From a44382a9d76da88827c1aeb1095d0169137cef8f Mon Sep 17 00:00:00 2001 From: Marco Stronati Date: Wed, 5 Jun 2019 10:22:47 +0200 Subject: [PATCH 001/252] Proto: fix many odoc errors --- src/proto_alpha/lib_protocol/contract_repr.mli | 8 ++++---- src/proto_alpha/lib_protocol/misc.mli | 2 +- src/proto_alpha/lib_protocol/raw_context.mli | 6 +++--- src/proto_alpha/lib_protocol/script_ir_annot.mli | 8 ++++---- src/proto_alpha/lib_protocol/seed_repr.mli | 10 +++++----- src/proto_alpha/lib_protocol/storage_sigs.ml | 2 +- 6 files changed, 18 insertions(+), 18 deletions(-) diff --git a/src/proto_alpha/lib_protocol/contract_repr.mli b/src/proto_alpha/lib_protocol/contract_repr.mli index 08ced771a8a7..b5decaa84540 100644 --- a/src/proto_alpha/lib_protocol/contract_repr.mli +++ b/src/proto_alpha/lib_protocol/contract_repr.mli @@ -30,13 +30,13 @@ type contract = t include Compare.S with type t := contract -(** {2 Implicit contracts} *****************************************************) +(** {2 Implicit contracts} *) val implicit_contract : Signature.Public_key_hash.t -> contract val is_implicit : contract -> Signature.Public_key_hash.t option -(** {2 Originated contracts} **************************************************) +(** {2 Originated contracts} *) (** Originated contracts handles are crafted from the hash of the operation that triggered their origination (and nothing else). @@ -56,7 +56,7 @@ val incr_origination_nonce : origination_nonce -> origination_nonce val is_originated : contract -> Contract_hash.t option -(** {2 Human readable notation} ***********************************************) +(** {2 Human readable notation} *) type error += Invalid_contract_notation of string (* `Permanent *) @@ -68,7 +68,7 @@ val pp: Format.formatter -> contract -> unit val pp_short: Format.formatter -> contract -> unit -(** {2 Serializers} ***********************************************************) +(** {2 Serializers} *) val encoding : contract Data_encoding.t diff --git a/src/proto_alpha/lib_protocol/misc.mli b/src/proto_alpha/lib_protocol/misc.mli index 6e359e0b4b17..407d7480b429 100644 --- a/src/proto_alpha/lib_protocol/misc.mli +++ b/src/proto_alpha/lib_protocol/misc.mli @@ -23,7 +23,7 @@ (* *) (*****************************************************************************) -(** {2 Stuff} ****************************************************************) +(** {2 Helper functions} *) type 'a lazyt = unit -> 'a type 'a lazy_list_t = LCons of 'a * ('a lazy_list_t tzresult Lwt.t lazyt) diff --git a/src/proto_alpha/lib_protocol/raw_context.mli b/src/proto_alpha/lib_protocol/raw_context.mli index 2dfc0ca3d261..5ee9b9e2c9b8 100644 --- a/src/proto_alpha/lib_protocol/raw_context.mli +++ b/src/proto_alpha/lib_protocol/raw_context.mli @@ -23,7 +23,7 @@ (* *) (*****************************************************************************) -(** {1 Errors} ****************************************************************) +(** {1 Errors} *) type error += Too_many_internal_operations (* `Permanent *) @@ -40,7 +40,7 @@ type error += Failed_to_decode_parameter of Data_encoding.json * string val storage_error: storage_error -> 'a tzresult Lwt.t -(** {1 Abstract Context} **************************************************) +(** {1 Abstract Context} *) (** Abstract view of the context. Includes a handle to the functional key-value database @@ -129,7 +129,7 @@ val origination_nonce: t -> Contract_repr.origination_nonce tzresult val increment_origination_nonce: t -> (t * Contract_repr.origination_nonce) tzresult val unset_origination_nonce: t -> t -(** {1 Generic accessors} *************************************************) +(** {1 Generic accessors} *) type key = string list diff --git a/src/proto_alpha/lib_protocol/script_ir_annot.mli b/src/proto_alpha/lib_protocol/script_ir_annot.mli index 0ad19733a937..88483d902e66 100644 --- a/src/proto_alpha/lib_protocol/script_ir_annot.mli +++ b/src/proto_alpha/lib_protocol/script_ir_annot.mli @@ -72,19 +72,19 @@ val var_to_field_annot : var_annot option -> field_annot option (** Replace an annotation by its default value if it is [None] *) val default_annot : default:'a option -> 'a option -> 'a option -(** Generate annotation for field accesses, of the form @var.field1.field2 *) +(** Generate annotation for field accesses, of the form [var.field1.field2] *) val gen_access_annot : var_annot option -> ?default:field_annot option -> field_annot option -> var_annot option (** Merge type annotations. - @returns an error {!Inconsistent_type_annotations} if they are both present + @return an error {!Inconsistent_type_annotations} if they are both present and different *) val merge_type_annot : type_annot option -> type_annot option -> type_annot option tzresult (** Merge field annotations. - @returns an error {!Inconsistent_type_annotations} if they are both present + @return an error {!Inconsistent_type_annotations} if they are both present and different *) val merge_field_annot : field_annot option -> field_annot option -> field_annot option tzresult @@ -93,7 +93,7 @@ val merge_field_annot : val merge_var_annot : var_annot option -> var_annot option -> var_annot option -(** @returns an error {!Unexpected_annotation} in the monad the list is not empty. *) +(** @return an error {!Unexpected_annotation} in the monad the list is not empty. *) val error_unexpected_annot : int -> 'a list -> unit tzresult (** Same as {!error_unexpected_annot} in Lwt. *) diff --git a/src/proto_alpha/lib_protocol/seed_repr.mli b/src/proto_alpha/lib_protocol/seed_repr.mli index ae9827c8e32a..d8ed774cebdb 100644 --- a/src/proto_alpha/lib_protocol/seed_repr.mli +++ b/src/proto_alpha/lib_protocol/seed_repr.mli @@ -33,7 +33,7 @@ seed such that the generated sequence is a given one. *) -(** {2 Random Generation} ****************************************************) +(** {2 Random Generation} *) (** The state of the random number generator *) type t @@ -56,7 +56,7 @@ val take : sequence -> MBytes.t * sequence (** Generates the next random value as a bounded [int32] *) val take_int32 : sequence -> int32 -> int32 * sequence -(** {2 Predefined seeds} *****************************************************) +(** {2 Predefined seeds} *) val empty : seed @@ -68,7 +68,7 @@ val deterministic_seed : seed -> seed concatenated with a constant. *) val initial_seeds : int -> seed list -(** {2 Entropy} **************************************************************) +(** {2 Entropy} *) (** A nonce for adding entropy to the generator *) type nonce @@ -88,12 +88,12 @@ val check_hash : nonce -> Nonce_hash.t -> bool (** For using nonce hashes as keys in the hierarchical database *) val nonce_hash_key_part : Nonce_hash.t -> string list -> string list -(** {2 Predefined nonce} *****************************************************) +(** {2 Predefined nonce} *) val initial_nonce_0 : nonce val initial_nonce_hash_0 : Nonce_hash.t -(** {2 Serializers} **********************************************************) +(** {2 Serializers} *) val nonce_encoding : nonce Data_encoding.t val seed_encoding : seed Data_encoding.t diff --git a/src/proto_alpha/lib_protocol/storage_sigs.ml b/src/proto_alpha/lib_protocol/storage_sigs.ml index 2831aaf7165c..ccb708aa4fd3 100644 --- a/src/proto_alpha/lib_protocol/storage_sigs.ml +++ b/src/proto_alpha/lib_protocol/storage_sigs.ml @@ -23,7 +23,7 @@ (* *) (*****************************************************************************) -(** {1 Entity Accessor Signatures} ****************************************) +(** {1 Entity Accessor Signatures} *) (** The generic signature of a single data accessor (a single value bound to a specific key in the hierarchical (key x value) -- GitLab From 37b91d3ee6972d4bd75fb851320e06c0585f2df9 Mon Sep 17 00:00:00 2001 From: Marco Stronati Date: Thu, 20 Jun 2019 19:36:04 +0200 Subject: [PATCH 002/252] Scripts: add yes-node to activate_protocol.sh --- scripts/activate_protocol.sh | 40 +++++++++------ scripts/yes-node.patch | 41 ++++++++++++++++ scripts/yes-wallet.ml | 95 ++++++++++++++++++++++++++++++++++++ 3 files changed, 162 insertions(+), 14 deletions(-) create mode 100644 scripts/yes-node.patch create mode 100644 scripts/yes-wallet.ml diff --git a/scripts/activate_protocol.sh b/scripts/activate_protocol.sh index 086ca390c619..fdbb950211a4 100755 --- a/scripts/activate_protocol.sh +++ b/scripts/activate_protocol.sh @@ -70,21 +70,33 @@ if [[ "$ans" == "Y" || "$ans" == "y" || -z "$ans" ]]; then src/bin_node/{dune,tezos-node.opam} fi -read -p "User-activated update in 3 blocks? (Y/n) " ans +read -p "User-activated update? (Y/n) " ans if [[ "$ans" == "Y" || "$ans" == "y" || -z "$ans" ]]; then - # clean existing lines, if any - awk -i inplace ' - BEGIN{found=0}{ - if (!found && $0 ~ "let forced_protocol_upgrades") - {found=1; print} - else { - if (found && $0 ~ "^]") - {found=0; print } - else - { if (!found){print}} - }}' src/lib_base/block_header.ml - - sed -i.old '/let forced_protocol_upgrades/ a \ \ 3l, Protocol_hash.of_b58check_exn '${full_hash}' ;' \ + + read -p "At what level? (e.g. 3 for sandbox): " level + + if [[ $level < 28082 ]]; then + # we are testing in sandbox so we clean existing lines + awk -i inplace ' + BEGIN{found=0}{ + if (!found && $0 ~ "let forced_protocol_upgrades") + {found=1; print} + else { + if (found && $0 ~ "^]") + {found=0; print } + else + { if (!found){print}} + }}' src/lib_base/block_header.ml + fi + + sed -i.old '/let forced_protocol_upgrades/ a \ \ '${level}'l, Protocol_hash.of_b58check_exn '${full_hash}' ;' \ src/lib_base/block_header.ml rm src/lib_base/block_header.ml.old + + patch -p1 < scripts/yes-node.patch + + if ! [ -d yes-wallet ]; then + dune utop src/lib_crypto scripts/yes-wallet.ml + echo 'Created `yes-wallet` directory.' + fi fi diff --git a/scripts/yes-node.patch b/scripts/yes-node.patch new file mode 100644 index 000000000000..b4bbfcf1c27f --- /dev/null +++ b/scripts/yes-node.patch @@ -0,0 +1,41 @@ +diff --git a/src/lib_crypto/signature.ml b/src/lib_crypto/signature.ml +index 8aec1057e..5b47714e4 100644 +--- a/src/lib_crypto/signature.ml ++++ b/src/lib_crypto/signature.ml +@@ -539,7 +539,7 @@ let pp_watermark ppf = + fprintf ppf "Custom: 0x%s" + (try String.sub hexed 0 10 ^ "..." with _ -> hexed) + +-let sign ?watermark secret_key message = ++let _sign ?watermark secret_key message = + let watermark = Option.map ~f:bytes_of_watermark watermark in + match secret_key with + | Secret_key.Ed25519 sk -> of_ed25519 (Ed25519.sign ?watermark sk message) +@@ -572,6 +572,27 @@ let check ?watermark public_key signature message = + P256.check ?watermark pk signature message + | _ -> false + ++let fake_sign pk_bytes msg = ++ let half = size / 2 in ++ let tmp = MBytes.init size (fun _ -> '0') in ++ let all_or_half buf = Pervasives.min (MBytes.length buf) half in ++ MBytes.blit pk_bytes 0 tmp 0 (all_or_half pk_bytes) ; ++ MBytes.blit msg 0 tmp half (all_or_half msg) ; ++ of_bytes_exn tmp ++ ++let fake_check ?watermark pk signature msg = ++ let pk_bytes = Data_encoding.Binary.to_bytes_exn ++ Public_key.encoding pk in ++ if equal signature (fake_sign pk_bytes msg) then true else ++ check ?watermark pk signature msg ++ ++let sign ?watermark:_ sk msg = ++ let pk_bytes = Data_encoding.Binary.to_bytes_exn ++ Secret_key.encoding sk in ++ fake_sign pk_bytes msg ++ ++let check = fake_check ++ + let append ?watermark sk msg = + MBytes.concat "" [msg; (to_bytes (sign ?watermark sk msg))] + diff --git a/scripts/yes-wallet.ml b/scripts/yes-wallet.ml new file mode 100644 index 000000000000..4285d304f668 --- /dev/null +++ b/scripts/yes-wallet.ml @@ -0,0 +1,95 @@ + +(* + dune utop src/lib_crypto scripts/yes-wallet.ml + + Given a list of aliases and public key hashes: + - finds the corresponding public keys using RPCs + (if you have a running node) + - encodes each public key as a fake secret key that can be used + with the yes-node.patch + - creates a 'yes-wallet' directory to be passed to tezos-client -d option + *) + +let string_to_file s file = + let oc = open_out file in + output_string oc s ; + close_out oc + +let json_of_list l = + Printf.sprintf "[ %s ]\n" (String.concat ",\n" l) + +let pkhs = [ + ("foundation1", "tz3RDC3Jdn4j15J7bBHZd29EUee9gVB1CxD9") ; + ("foundation2", "tz3bvNMQ95vfAYtG8193ymshqjSvmxiCUuR5") ; + ("foundation3", "tz3RB4aoyjov4KEVRbuhvQ1CKJgBJMWhaeB8") ; + ("foundation4", "tz3bTdwZinP8U1JmSweNzVKhmwafqWmFWRfk") ; + ("foundation5", "tz3NExpXn9aPNZPorRE4SdjJ2RGrfbJgMAaV") ; + ("foundation6", "tz3UoffC7FG7zfpmvmjUmUeAaHvzdcUvAj6r") ; + ("foundation7", "tz3WMqdzXqRWXwyvj5Hp2H7QEepaUuS7vd9K") ; + ("foundation8", "tz3VEZ4k6a4Wx42iyev6i2aVAptTRLEAivNN") ; +] + +let pkh_pp (alias, pkh) = + Printf.sprintf "{ \"name\": \"%s\", \"value\": \"%s\" }" alias pkh + + +let pk_of_pkh (pkh : string) : string = + let url = "localhost:8732" in + let curl = Printf.sprintf "curl -s '%s/chains/main/blocks/head/context/raw/json/contracts/index/%s/manager'" url pkh in + Lwt_main.run + (Lwt_process.pread_line (Lwt_process.shell curl)) + +(* let pks = List.map (fun (_alias, pkh) -> pk_of_pkh pkh) pkhs *) + +let pks = [ + "p2pk67wVncLFS1DQDm2gVR45sYCzQSXTtqn3bviNYXVCq6WRoqtxHXL" ; + "p2pk66n1NmhPDEkcf9sXEKe9kBoTwBoTYxke1hx16aTRVq8MoXuwNqo" ; + "p2pk67NECc8vGK4eLbXGEgBZGhk53x1pCMbgnFEgLxZEMGDtzVcFQok" ; + "p2pk6796esaR3dNr8jUx8S7xxZdRvpYSrhHMg6NagjwMRJHsERMiUKM" ; + "p2pk66iTZwLmRPshQgUr2HE3RUzSFwAN5MNaBQ5rfduT1dGKXd25pNN" ; + "p2pk65ffAqpYT6Et73DXdNqudthwmSNzNyzL3Wdn2EYuiiMwoPu6vFJ" ; + "p2pk67Cwb5Ke6oSmqeUbJxURXMe3coVnH9tqPiB2xD84CYhHbBKs4oM" ; + "p2pk67uapBxwkM1JNasGJ6J3rozzYELgrtcqxKZwZLjvsr4XcAr4FqC" ; +] + +let pk_pp (alias,pkh) pk = + let loc_key = + Printf.sprintf "{ \"locator\": \"unencrypted:%s\", \"key\": \"%s\" }" pk pk + in + Printf.sprintf "{ \"name\": \"%s\", \"value\": %s }" alias loc_key + + +open Tezos_crypto.Signature ;; +open Tezos_data_encoding ;; +open Tezos_stdlib ;; + +(* P-256 pk : 33+1 bytes + ed25519 pk sk : 32+1 bytes +*) + +let sk_of_pk (pk_s : string) : string = + let pk = Public_key.of_b58check_exn pk_s in + let pk_b = Data_encoding.Binary.to_bytes_exn Public_key.encoding pk in + let sk_b = MBytes.sub pk_b 0 33 in + let sk = Data_encoding.Binary.of_bytes_exn Secret_key.encoding sk_b in + let sk_s = Secret_key.to_b58check sk in + sk_s + +let sks = List.map (sk_of_pk) pks + +let sk_pp (alias,pkh) sk = + Printf.sprintf "{ \"name\": \"%s\", \"value\": \"unencrypted:%s\" }" alias sk + + +let _ = + Unix.mkdir "yes-wallet" 0o750 ; + Unix.chdir "yes-wallet" ; + + let l = List.map pkh_pp pkhs in + string_to_file (json_of_list l) "public_key_hashs" ; + + let l = List.map2 pk_pp pkhs pks in + string_to_file (json_of_list l) "public_keys" ; + + let l = List.map2 sk_pp pkhs sks in + string_to_file (json_of_list l) "secret_keys" -- GitLab From 259197c36bdae8ee80b5529a349eb03e666d526a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Rapha=C3=ABl=20Proust?= Date: Mon, 6 May 2019 16:15:50 +0800 Subject: [PATCH 003/252] Client: use built-in return operators --- .../lib_client/client_proto_contracts.ml | 2 +- .../client_proto_context_commands.ml | 2 +- .../lib_delegate/client_baking_forge.ml | 15 +++++++-------- 3 files changed, 9 insertions(+), 10 deletions(-) diff --git a/src/proto_alpha/lib_client/client_proto_contracts.ml b/src/proto_alpha/lib_client/client_proto_contracts.ml index e9f47f166c48..886c68a04604 100644 --- a/src/proto_alpha/lib_client/client_proto_contracts.ml +++ b/src/proto_alpha/lib_client/client_proto_contracts.ml @@ -124,7 +124,7 @@ module ContractAlias = struct | Ok v -> return (s, v) | Error c_errs -> - Lwt.return (Error (k_errs @ c_errs)) ) )) + Lwt.return_error (k_errs @ c_errs) ) )) let destination_param ?(name = "dst") ?(desc = "destination contract") next = let desc = diff --git a/src/proto_alpha/lib_client_commands/client_proto_context_commands.ml b/src/proto_alpha/lib_client_commands/client_proto_context_commands.ml index d04221b24f7b..64c05fb12b96 100644 --- a/src/proto_alpha/lib_client_commands/client_proto_context_commands.ml +++ b/src/proto_alpha/lib_client_commands/client_proto_context_commands.ml @@ -765,7 +765,7 @@ let commands version () = cctxt#message "Delegate already activated." >>= fun () -> return_unit | Error el -> - Lwt.return (Error el)) ] + Lwt.return_error el) ] @ ( if version = Some `Mainnet then [] else [ command diff --git a/src/proto_alpha/lib_delegate/client_baking_forge.ml b/src/proto_alpha/lib_delegate/client_baking_forge.ml index 8ecf60182abb..779d1e23a557 100644 --- a/src/proto_alpha/lib_delegate/client_baking_forge.ml +++ b/src/proto_alpha/lib_delegate/client_baking_forge.ml @@ -1317,14 +1317,13 @@ let build_block cctxt state seed_nonce_hash Lwt.return errs | Ok shell_header -> let raw_ops = List.map (List.map forge) operations in - return - (Some - ( bi, - priority, - shell_header, - raw_ops, - delegate, - seed_nonce_hash )) + return_some + ( bi, + priority, + shell_header, + raw_ops, + delegate, + seed_nonce_hash ) else lwt_log_notice Tag.DSL.( -- GitLab From 789f2268a981c3211305a8604779e33c7704c784 Mon Sep 17 00:00:00 2001 From: Benjamin Canou Date: Tue, 25 Jun 2019 11:56:40 +0200 Subject: [PATCH 004/252] Client: Michelson fix annotation handling in CADDADR --- src/proto_alpha/lib_client/michelson_v1_macros.ml | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/src/proto_alpha/lib_client/michelson_v1_macros.ml b/src/proto_alpha/lib_client/michelson_v1_macros.ml index 5dfd5bb2db52..278680c2059a 100644 --- a/src/proto_alpha/lib_client/michelson_v1_macros.ml +++ b/src/proto_alpha/lib_client/michelson_v1_macros.ml @@ -60,19 +60,22 @@ let expand_caddadr original = | _ :: _ -> error (Invalid_arity (str, List.length args, 0)) ) >>? fun () -> - let rec parse i annot acc = + let path_annot = + List.filter (function "@%" | "@%%" -> true | _ -> false) annot + in + let rec parse i acc = if i = 0 then Seq (loc, acc) else - let annot = if i = len - 2 then annot else [] in + let annot = if i = len - 2 then annot else path_annot in match str.[i] with | 'A' -> - parse (i - 1) [] (Prim (loc, "CAR", [], annot) :: acc) + parse (i - 1) (Prim (loc, "CAR", [], annot) :: acc) | 'D' -> - parse (i - 1) [] (Prim (loc, "CDR", [], annot) :: acc) + parse (i - 1) (Prim (loc, "CDR", [], annot) :: acc) | _ -> assert false in - ok (Some (parse (len - 2) annot [])) + ok (Some (parse (len - 2) [])) else ok None | _ -> ok None -- GitLab From c3f174bc38952223f8e5c47ba27e94949566db2b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Rapha=C3=ABl=20Proust?= Date: Thu, 20 Jun 2019 14:52:50 +0200 Subject: [PATCH 005/252] Proto: handle non-singleton traces This patch does not change the semantics. It is a minor refactory that uses a better pattern for error recovery in order to prevent future mistakes. --- src/proto_alpha/lib_protocol/operation_repr.ml | 6 +++--- src/proto_alpha/lib_protocol/raw_level_repr.ml | 2 +- src/proto_alpha/lib_protocol/storage_functors.ml | 2 +- src/proto_alpha/lib_protocol/voting_services.ml | 4 ++-- 4 files changed, 7 insertions(+), 7 deletions(-) diff --git a/src/proto_alpha/lib_protocol/operation_repr.ml b/src/proto_alpha/lib_protocol/operation_repr.ml index 17a62d71c1c6..1ccaa6297112 100644 --- a/src/proto_alpha/lib_protocol/operation_repr.ml +++ b/src/proto_alpha/lib_protocol/operation_repr.ml @@ -668,12 +668,12 @@ let check_signature_sync (type kind) key chain_id ({ shell ; protocol_data } : k if Signature.check ~watermark key signature unsigned_operation then Ok () else - Error [Invalid_signature] in + error Invalid_signature in match protocol_data.contents, protocol_data.signature with | Single _, None -> - Error [Missing_signature] + error Missing_signature | Cons _, None -> - Error [Missing_signature] + error Missing_signature | Single (Endorsement _) as contents, Some signature -> check ~watermark:(Endorsement chain_id) (Contents_list contents) signature | Single _ as contents, Some signature -> diff --git a/src/proto_alpha/lib_protocol/raw_level_repr.ml b/src/proto_alpha/lib_protocol/raw_level_repr.ml index 8af1b45439f4..16b4f2d62c60 100644 --- a/src/proto_alpha/lib_protocol/raw_level_repr.ml +++ b/src/proto_alpha/lib_protocol/raw_level_repr.ml @@ -72,7 +72,7 @@ let () = let of_int32 l = try Ok (of_int32_exn l) - with _ -> Error [Unexpected_level l] + with _ -> error (Unexpected_level l) module Index = struct type t = raw_level diff --git a/src/proto_alpha/lib_protocol/storage_functors.ml b/src/proto_alpha/lib_protocol/storage_functors.ml index 0fdfbc06b886..750f6240682d 100644 --- a/src/proto_alpha/lib_protocol/storage_functors.ml +++ b/src/proto_alpha/lib_protocol/storage_functors.ml @@ -28,7 +28,7 @@ open Storage_sigs module Make_encoder (V : VALUE) = struct let of_bytes ~key b = match Data_encoding.Binary.of_bytes V.encoding b with - | None -> Error [Raw_context.Storage_error (Corrupted_data key)] + | None -> error (Raw_context.Storage_error (Corrupted_data key)) | Some v -> Ok v let to_bytes v = match Data_encoding.Binary.to_bytes V.encoding v with diff --git a/src/proto_alpha/lib_protocol/voting_services.ml b/src/proto_alpha/lib_protocol/voting_services.ml index 80a42a4cdd24..37220bdc82db 100644 --- a/src/proto_alpha/lib_protocol/voting_services.ml +++ b/src/proto_alpha/lib_protocol/voting_services.ml @@ -112,8 +112,8 @@ let register () = (* this would be better implemented using get_option in get_current_proposal *) Vote.get_current_proposal ctxt >>= function | Ok p -> return_some p - | Error [Raw_context.Storage_error (Missing_key _)] -> return_none - | (Error _ as e) -> Lwt.return e + | Error (Raw_context.Storage_error (Missing_key _) :: _) -> return_none + | Error _ as e -> Lwt.return e end let ballots ctxt block = -- GitLab From bac496524d3fd3d39cdaa2756c172931acb4a55a Mon Sep 17 00:00:00 2001 From: Marco Stronati Date: Tue, 16 Apr 2019 22:32:21 +0200 Subject: [PATCH 006/252] Proto: remove unused register_resolvers function This patch does not change the semantics. It removes a vestigial accessory feature to provide completion of addresses from prefixes. This is a job for indexers and has nothing to do in the protocol. --- src/proto_alpha/lib_protocol/raw_context.ml | 24 -------------------- src/proto_alpha/lib_protocol/raw_context.mli | 3 --- 2 files changed, 27 deletions(-) diff --git a/src/proto_alpha/lib_protocol/raw_context.ml b/src/proto_alpha/lib_protocol/raw_context.ml index e1eb7386bf9b..f7c734ea460b 100644 --- a/src/proto_alpha/lib_protocol/raw_context.ml +++ b/src/proto_alpha/lib_protocol/raw_context.ml @@ -507,30 +507,6 @@ let fork_test_chain ({ context = c ; _ } as s) protocol expiration = Updater.fork_test_chain c ~protocol ~expiration >>= fun c -> Lwt.return { s with context = c } -let register_resolvers enc resolve = - let resolve context str = - let faked_context = { - context ; - constants = Constants_repr.default ; - first_level = Raw_level_repr.root ; - level = Level_repr.root Raw_level_repr.root ; - timestamp = Time.of_seconds 0L ; - fitness = 0L ; - allowed_endorsements = Signature.Public_key_hash.Map.empty ; - storage_space_to_pay = None ; - allocated_contracts = None ; - fees = Tez_repr.zero ; - rewards = Tez_repr.zero ; - deposits = Signature.Public_key_hash.Map.empty ; - block_gas = Constants_repr.default.hard_gas_limit_per_block ; - operation_gas = Unaccounted ; - origination_nonce = None ; - internal_nonce = 0 ; - internal_nonces_used = Int_set.empty ; - } in - resolve faked_context str in - Context.register_resolver enc resolve - (* Generic context ********************************************************) type key = string list diff --git a/src/proto_alpha/lib_protocol/raw_context.mli b/src/proto_alpha/lib_protocol/raw_context.mli index 5ee9b9e2c9b8..d8c1ce66e2b3 100644 --- a/src/proto_alpha/lib_protocol/raw_context.mli +++ b/src/proto_alpha/lib_protocol/raw_context.mli @@ -71,9 +71,6 @@ val prepare_first_block: val activate: context -> Protocol_hash.t -> t Lwt.t val fork_test_chain: context -> Protocol_hash.t -> Time.t -> t Lwt.t -val register_resolvers: - 'a Base58.encoding -> (context -> string -> 'a list Lwt.t) -> unit - (** Returns the state of the database resulting of operations on its abstract view *) val recover: context -> Context.t -- GitLab From b7a5b7477d2b3c54ba6d7585d096a9ec5a4a2b44 Mon Sep 17 00:00:00 2001 From: Benjamin Canou Date: Wed, 3 Jul 2019 14:44:50 +0200 Subject: [PATCH 007/252] Proto: allow storage functors to not register in the JSON storage RPC This patch does not change the semantics. It allows to hide some fields from the `/raw/context` access RPCs. This feature is used in later migration patches, to hide (re)moved fields after the migration. --- src/proto_alpha/lib_protocol/storage.ml | 58 +++++++++---------- .../lib_protocol/storage_functors.ml | 20 +++++-- .../lib_protocol/storage_functors.mli | 8 ++- 3 files changed, 49 insertions(+), 37 deletions(-) diff --git a/src/proto_alpha/lib_protocol/storage.ml b/src/proto_alpha/lib_protocol/storage.ml index b2e3fd919856..08ab374eecbe 100644 --- a/src/proto_alpha/lib_protocol/storage.ml +++ b/src/proto_alpha/lib_protocol/storage.ml @@ -77,17 +77,17 @@ module Last_block_priority = module Contract = struct module Raw_context = - Make_subcontext(Raw_context)(struct let name = ["contracts"] end) + Make_subcontext(Registered)(Raw_context)(struct let name = ["contracts"] end) module Global_counter = - Make_single_data_storage + Make_single_data_storage(Registered) (Raw_context) (struct let name = ["global_counter"] end) (Z) module Indexed_context = Make_indexed_subcontext - (Make_subcontext(Raw_context)(struct let name = ["index"] end)) + (Make_subcontext(Registered)(Raw_context)(struct let name = ["index"] end)) (Make_index(Contract_repr.Index)) let fold = Indexed_context.fold_keys @@ -100,7 +100,7 @@ module Contract = struct module Frozen_balance_index = Make_indexed_subcontext - (Make_subcontext + (Make_subcontext(Registered) (Indexed_context.Raw_context) (struct let name = ["frozen_balance"] end)) (Make_index(Cycle_repr.Index)) @@ -149,7 +149,7 @@ module Contract = struct module Delegated = Make_data_set_storage - (Make_subcontext + (Make_subcontext(Registered) (Indexed_context.Raw_context) (struct let name = ["delegated"] end)) (Make_index(Contract_hash)) @@ -235,7 +235,7 @@ module Contract = struct module *) module Big_map = struct module I = Storage_functors.Make_indexed_carbonated_data_storage - (Make_subcontext + (Make_subcontext(Registered) (Indexed_context.Raw_context) (struct let name = ["big_map"] end)) (Make_index(Script_expr_hash)) @@ -298,17 +298,17 @@ end module Delegates = Make_data_set_storage - (Make_subcontext(Raw_context)(struct let name = ["delegates"] end)) + (Make_subcontext(Registered)(Raw_context)(struct let name = ["delegates"] end)) (Make_index(Signature.Public_key_hash)) module Active_delegates_with_rolls = Make_data_set_storage - (Make_subcontext(Raw_context)(struct let name = ["active_delegates_with_rolls"] end)) + (Make_subcontext(Registered)(Raw_context)(struct let name = ["active_delegates_with_rolls"] end)) (Make_index(Signature.Public_key_hash)) module Delegates_with_frozen_balance_index = Make_indexed_subcontext - (Make_subcontext(Raw_context) + (Make_subcontext(Registered)(Raw_context) (struct let name = ["delegates_with_frozen_balance"] end)) (Make_index(Cycle_repr.Index)) @@ -323,12 +323,12 @@ module Cycle = struct module Indexed_context = Make_indexed_subcontext - (Make_subcontext(Raw_context)(struct let name = ["cycle"] end)) + (Make_subcontext(Registered)(Raw_context)(struct let name = ["cycle"] end)) (Make_index(Cycle_repr.Index)) module Last_roll = Make_indexed_data_storage - (Make_subcontext + (Make_subcontext(Registered) (Indexed_context.Raw_context) (struct let name = ["last_roll"] end)) (Int_index) @@ -377,7 +377,7 @@ module Cycle = struct module Nonce = Make_indexed_data_storage - (Make_subcontext + (Make_subcontext(Registered) (Indexed_context.Raw_context) (struct let name = ["nonces"] end)) (Make_index(Raw_level_repr.Index)) @@ -399,21 +399,21 @@ end module Roll = struct module Raw_context = - Make_subcontext(Raw_context)(struct let name = ["rolls"] end) + Make_subcontext(Registered)(Raw_context)(struct let name = ["rolls"] end) module Indexed_context = Make_indexed_subcontext - (Make_subcontext(Raw_context)(struct let name = ["index"] end)) + (Make_subcontext(Registered)(Raw_context)(struct let name = ["index"] end)) (Make_index(Roll_repr.Index)) module Next = - Make_single_data_storage + Make_single_data_storage(Registered) (Raw_context) (struct let name = ["next"] end) (Roll_repr) module Limbo = - Make_single_data_storage + Make_single_data_storage(Registered) (Raw_context) (struct let name = ["limbo"] end) (Roll_repr) @@ -469,7 +469,7 @@ module Roll = struct module Owner = Make_indexed_data_snapshotable_storage - (Make_subcontext(Raw_context)(struct let name = ["owner"] end)) + (Make_subcontext(Registered)(Raw_context)(struct let name = ["owner"] end)) (Snapshoted_owner_index) (Make_index(Roll_repr.Index)) (Signature.Public_key) @@ -486,10 +486,10 @@ end module Vote = struct module Raw_context = - Make_subcontext(Raw_context)(struct let name = ["votes"] end) + Make_subcontext(Registered)(Raw_context)(struct let name = ["votes"] end) module Current_period_kind = - Make_single_data_storage + Make_single_data_storage(Registered) (Raw_context) (struct let name = ["current_period_kind"] end) (struct @@ -498,44 +498,44 @@ module Vote = struct end) module Current_quorum = - Make_single_data_storage + Make_single_data_storage(Registered) (Raw_context) (struct let name = ["current_quorum"] end) (Int32) module Current_proposal = - Make_single_data_storage + Make_single_data_storage(Registered) (Raw_context) (struct let name = ["current_proposal"] end) (Protocol_hash) module Listings_size = - Make_single_data_storage + Make_single_data_storage(Registered) (Raw_context) (struct let name = ["listings_size"] end) (Int32) module Listings = Make_indexed_data_storage - (Make_subcontext(Raw_context)(struct let name = ["listings"] end)) + (Make_subcontext(Registered)(Raw_context)(struct let name = ["listings"] end)) (Make_index(Signature.Public_key_hash)) (Int32) module Proposals = Make_data_set_storage - (Make_subcontext(Raw_context)(struct let name = ["proposals"] end)) + (Make_subcontext(Registered)(Raw_context)(struct let name = ["proposals"] end)) (Pair(Make_index(Protocol_hash))(Make_index(Signature.Public_key_hash))) module Proposals_count = Make_indexed_data_storage - (Make_subcontext(Raw_context) + (Make_subcontext(Registered)(Raw_context) (struct let name = ["proposals_count"] end)) (Make_index(Signature.Public_key_hash)) (Int) module Ballots = Make_indexed_data_storage - (Make_subcontext(Raw_context)(struct let name = ["ballots"] end)) + (Make_subcontext(Registered)(Raw_context)(struct let name = ["ballots"] end)) (Make_index(Signature.Public_key_hash)) (struct type t = Vote_repr.ballot @@ -580,7 +580,7 @@ end module Commitments = Make_indexed_data_storage - (Make_subcontext(Raw_context)(struct let name = ["commitments"] end)) + (Make_subcontext(Registered)(Raw_context)(struct let name = ["commitments"] end)) (Make_index(Blinded_public_key_hash.Index)) (Tez_repr) @@ -590,7 +590,7 @@ module Ramp_up = struct module Rewards = Make_indexed_data_storage - (Make_subcontext(Raw_context)(struct let name = ["ramp_up"; "rewards"] end)) + (Make_subcontext(Registered)(Raw_context)(struct let name = ["ramp_up"; "rewards"] end)) (Make_index(Cycle_repr.Index)) (struct type t = Tez_repr.t * Tez_repr.t @@ -599,7 +599,7 @@ module Ramp_up = struct module Security_deposits = Make_indexed_data_storage - (Make_subcontext(Raw_context)(struct let name = ["ramp_up"; "deposits"] end)) + (Make_subcontext(Registered)(Raw_context)(struct let name = ["ramp_up"; "deposits"] end)) (Make_index(Cycle_repr.Index)) (struct type t = Tez_repr.t * Tez_repr.t diff --git a/src/proto_alpha/lib_protocol/storage_functors.ml b/src/proto_alpha/lib_protocol/storage_functors.ml index 750f6240682d..774066dda97d 100644 --- a/src/proto_alpha/lib_protocol/storage_functors.ml +++ b/src/proto_alpha/lib_protocol/storage_functors.ml @@ -25,6 +25,10 @@ open Storage_sigs +module type REGISTER = sig val ghost : bool end +module Registered = struct let ghost = false end +module Ghost = struct let ghost = true end + module Make_encoder (V : VALUE) = struct let of_bytes ~key b = match Data_encoding.Binary.of_bytes V.encoding b with @@ -54,7 +58,7 @@ let map_key f = function | `Key k -> `Key (f k) | `Dir k -> `Dir (f k) -module Make_subcontext (C : Raw_context.T) (N : NAME) +module Make_subcontext (R : REGISTER) (C : Raw_context.T) (N : NAME) : Raw_context.T with type t = C.t = struct type t = C.t type context = t @@ -84,10 +88,12 @@ module Make_subcontext (C : Raw_context.T) (N : NAME) let consume_gas = C.consume_gas let check_enough_gas = C.check_enough_gas let description = - Storage_description.register_named_subcontext C.description N.name + let description = if R.ghost then Storage_description.create () + else C.description in + Storage_description.register_named_subcontext description N.name end -module Make_single_data_storage (C : Raw_context.T) (N : NAME) (V : VALUE) +module Make_single_data_storage (R : REGISTER) (C : Raw_context.T) (N : NAME) (V : VALUE) : Single_data_storage with type t = C.t and type value = V.t = struct type t = C.t @@ -129,9 +135,11 @@ module Make_single_data_storage (C : Raw_context.T) (N : NAME) (V : VALUE) let () = let open Storage_description in + let description = if R.ghost then Storage_description.create () + else C.description in register_value ~get:get_option - (register_named_subcontext C.description N.name) + (register_named_subcontext description N.name) V.encoding end @@ -455,8 +463,8 @@ module Make_indexed_data_snapshotable_storage (C : Raw_context.T) let data_name = ["current"] let snapshot_name = ["snapshot"] - module C_data = Make_subcontext(C)(struct let name = data_name end) - module C_snapshot = Make_subcontext(C)(struct let name = snapshot_name end) + module C_data = Make_subcontext(Registered)(C)(struct let name = data_name end) + module C_snapshot = Make_subcontext(Registered)(C)(struct let name = snapshot_name end) include Make_indexed_data_storage(C_data)(I) (V) module Snapshot = Make_indexed_data_storage(C_snapshot)(Pair(Snapshot_index)(I))(V) diff --git a/src/proto_alpha/lib_protocol/storage_functors.mli b/src/proto_alpha/lib_protocol/storage_functors.mli index 83452908c670..08642f608fa2 100644 --- a/src/proto_alpha/lib_protocol/storage_functors.mli +++ b/src/proto_alpha/lib_protocol/storage_functors.mli @@ -27,11 +27,15 @@ open Storage_sigs -module Make_subcontext (C : Raw_context.T) (N : NAME) +module type REGISTER +module Registered : REGISTER +module Ghost : REGISTER + +module Make_subcontext (R : REGISTER) (C : Raw_context.T) (N : NAME) : Raw_context.T with type t = C.t module Make_single_data_storage - (C : Raw_context.T) (N : NAME) (V : VALUE) + (R : REGISTER) (C : Raw_context.T) (N : NAME) (V : VALUE) : Single_data_storage with type t = C.t and type value = V.t -- GitLab From e1ad25a1dd88d4afeb9ce4159c2236ca20047b75 Mon Sep 17 00:00:00 2001 From: Marco Stronati Date: Tue, 16 Apr 2019 22:25:15 +0200 Subject: [PATCH 008/252] Proto: remove default constants store all constants in the context This patch does not change the semantics. It changes the way protocol parameters (such as the block delay or the gas limit) are provided at protocol activation and stored in the context. Previously they were using an optional scheme, which allowed to launch a test network with the default mainnet constants, only specifying the updated ones. This feature led to confusion and several mishaps on the test networks, so it was decided that the parameters should now be provided exhaustively in the activation block of test networks or sandboxes. --- .../lib_protocol/constants_repr.ml | 31 --- .../lib_protocol/parameters_repr.ml | 192 +----------------- .../lib_protocol/parameters_repr.mli | 1 - src/proto_alpha/lib_protocol/raw_context.ml | 4 +- 4 files changed, 3 insertions(+), 225 deletions(-) diff --git a/src/proto_alpha/lib_protocol/constants_repr.ml b/src/proto_alpha/lib_protocol/constants_repr.ml index 7ab55b46845b..aa78b4304553 100644 --- a/src/proto_alpha/lib_protocol/constants_repr.ml +++ b/src/proto_alpha/lib_protocol/constants_repr.ml @@ -97,37 +97,6 @@ type parametric = { test_chain_duration: int64 ; (* in seconds *) } -let default = { - preserved_cycles = 5 ; - blocks_per_cycle = 4096l ; - blocks_per_commitment = 32l ; - blocks_per_roll_snapshot = 256l ; - blocks_per_voting_period = 32768l ; - time_between_blocks = - List.map Period_repr.of_seconds_exn [ 60L ; 75L ] ; - endorsers_per_block = 32 ; - hard_gas_limit_per_operation = Z.of_int 800_000 ; - hard_gas_limit_per_block = Z.of_int 8_000_000 ; - proof_of_work_threshold = - Int64.(sub (shift_left 1L 46) 1L) ; - tokens_per_roll = - Tez_repr.(mul_exn one 8_000) ; - michelson_maximum_type_size = 1000 ; - seed_nonce_revelation_tip = begin - match Tez_repr.(one /? 8L) with - | Ok c -> c - | Error _ -> assert false - end ; - origination_size = 257 ; - block_security_deposit = Tez_repr.(mul_exn one 512) ; - endorsement_security_deposit = Tez_repr.(mul_exn one 64) ; - block_reward = Tez_repr.(mul_exn one 16) ; - endorsement_reward = Tez_repr.(mul_exn one 2) ; - hard_storage_limit_per_operation = Z.of_int 60_000 ; - cost_per_byte = Tez_repr.of_mutez_exn 1_000L ; - test_chain_duration = Int64.mul 32768L 60L; -} - let parametric_encoding = let open Data_encoding in conv diff --git a/src/proto_alpha/lib_protocol/parameters_repr.ml b/src/proto_alpha/lib_protocol/parameters_repr.ml index b8c7b150d21d..5f2751658f18 100644 --- a/src/proto_alpha/lib_protocol/parameters_repr.ml +++ b/src/proto_alpha/lib_protocol/parameters_repr.ml @@ -85,196 +85,6 @@ let bootstrap_contract_encoding = (req "amount" Tez_repr.encoding) (req "script" Script_repr.encoding)) -(* This encoding is used to read configuration files (e.g. sandbox.json) - where some fields can be missing, in that case they are replaced by - the default. *) -let constants_encoding = - let open Data_encoding in - conv - (fun (c : Constants_repr.parametric) -> - let module Compare_time_between_blocks = Compare.List (Period_repr) in - let module Compare_keys = Compare.List (Ed25519.Public_key) in - let opt (=) def v = if def = v then None else Some v in - let default = Constants_repr.default in - let preserved_cycles = - opt Compare.Int.(=) - default.preserved_cycles c.preserved_cycles - and blocks_per_cycle = - opt Compare.Int32.(=) - default.blocks_per_cycle c.blocks_per_cycle - and blocks_per_commitment = - opt Compare.Int32.(=) - default.blocks_per_commitment c.blocks_per_commitment - and blocks_per_roll_snapshot = - opt Compare.Int32.(=) - default.blocks_per_roll_snapshot c.blocks_per_roll_snapshot - and blocks_per_voting_period = - opt Compare.Int32.(=) - default.blocks_per_voting_period c.blocks_per_voting_period - and time_between_blocks = - opt Compare_time_between_blocks.(=) - default.time_between_blocks c.time_between_blocks - and endorsers_per_block = - opt Compare.Int.(=) - default.endorsers_per_block c.endorsers_per_block - and hard_gas_limit_per_operation = - opt Compare.Z.(=) - default.hard_gas_limit_per_operation c.hard_gas_limit_per_operation - and hard_gas_limit_per_block = - opt Compare.Z.(=) - default.hard_gas_limit_per_block c.hard_gas_limit_per_block - and proof_of_work_threshold = - opt Compare.Int64.(=) - default.proof_of_work_threshold c.proof_of_work_threshold - and tokens_per_roll = - opt Tez_repr.(=) - default.tokens_per_roll c.tokens_per_roll - and michelson_maximum_type_size = - opt Compare.Int.(=) - default.michelson_maximum_type_size c.michelson_maximum_type_size - and seed_nonce_revelation_tip = - opt Tez_repr.(=) - default.seed_nonce_revelation_tip c.seed_nonce_revelation_tip - and origination_size = - opt Compare.Int.(=) - default.origination_size c.origination_size - and block_security_deposit = - opt Tez_repr.(=) - default.block_security_deposit c.block_security_deposit - and endorsement_security_deposit = - opt Tez_repr.(=) - default.endorsement_security_deposit c.endorsement_security_deposit - and block_reward = - opt Tez_repr.(=) - default.block_reward c.block_reward - and endorsement_reward = - opt Tez_repr.(=) - default.endorsement_reward c.endorsement_reward - and cost_per_byte = - opt Tez_repr.(=) - default.cost_per_byte c.cost_per_byte - and hard_storage_limit_per_operation = - opt Compare.Z.(=) - default.hard_storage_limit_per_operation c.hard_storage_limit_per_operation - and test_chain_duration = - opt Compare.Int64.(=) - default.test_chain_duration c.test_chain_duration - in - (( preserved_cycles, - blocks_per_cycle, - blocks_per_commitment, - blocks_per_roll_snapshot, - blocks_per_voting_period, - time_between_blocks, - endorsers_per_block, - hard_gas_limit_per_operation, - hard_gas_limit_per_block), - ((proof_of_work_threshold, - tokens_per_roll, - michelson_maximum_type_size, - seed_nonce_revelation_tip, - origination_size, - block_security_deposit, - endorsement_security_deposit, - block_reward), - (endorsement_reward, - cost_per_byte, - hard_storage_limit_per_operation, - test_chain_duration)))) - (fun (( preserved_cycles, - blocks_per_cycle, - blocks_per_commitment, - blocks_per_roll_snapshot, - blocks_per_voting_period, - time_between_blocks, - endorsers_per_block, - hard_gas_limit_per_operation, - hard_gas_limit_per_block), - ((proof_of_work_threshold, - tokens_per_roll, - michelson_maximum_type_size, - seed_nonce_revelation_tip, - origination_size, - block_security_deposit, - endorsement_security_deposit, - block_reward), - (endorsement_reward, - cost_per_byte, - hard_storage_limit_per_operation, - test_chain_duration))) -> - let unopt def = function None -> def | Some v -> v in - let default = Constants_repr.default in - { Constants_repr.preserved_cycles = - unopt default.preserved_cycles preserved_cycles ; - blocks_per_cycle = - unopt default.blocks_per_cycle blocks_per_cycle ; - blocks_per_commitment = - unopt default.blocks_per_commitment blocks_per_commitment ; - blocks_per_roll_snapshot = - unopt default.blocks_per_roll_snapshot blocks_per_roll_snapshot ; - blocks_per_voting_period = - unopt default.blocks_per_voting_period blocks_per_voting_period ; - time_between_blocks = - unopt default.time_between_blocks @@ - time_between_blocks ; - endorsers_per_block = - unopt default.endorsers_per_block endorsers_per_block ; - hard_gas_limit_per_operation = - unopt default.hard_gas_limit_per_operation hard_gas_limit_per_operation ; - hard_gas_limit_per_block = - unopt default.hard_gas_limit_per_block hard_gas_limit_per_block ; - proof_of_work_threshold = - unopt default.proof_of_work_threshold proof_of_work_threshold ; - tokens_per_roll = - unopt default.tokens_per_roll tokens_per_roll ; - michelson_maximum_type_size = - unopt default.michelson_maximum_type_size michelson_maximum_type_size ; - seed_nonce_revelation_tip = - unopt default.seed_nonce_revelation_tip seed_nonce_revelation_tip ; - origination_size = - unopt default.origination_size origination_size ; - block_security_deposit = - unopt default.block_security_deposit block_security_deposit ; - endorsement_security_deposit = - unopt default.endorsement_security_deposit endorsement_security_deposit ; - block_reward = - unopt default.block_reward block_reward ; - endorsement_reward = - unopt default.endorsement_reward endorsement_reward ; - cost_per_byte = - unopt default.cost_per_byte cost_per_byte ; - hard_storage_limit_per_operation = - unopt default.hard_storage_limit_per_operation hard_storage_limit_per_operation ; - test_chain_duration = - unopt default.test_chain_duration test_chain_duration ; - } ) - (merge_objs - (obj9 - (opt "preserved_cycles" uint8) - (opt "blocks_per_cycle" int32) - (opt "blocks_per_commitment" int32) - (opt "blocks_per_roll_snapshot" int32) - (opt "blocks_per_voting_period" int32) - (opt "time_between_blocks" (list Period_repr.encoding)) - (opt "endorsers_per_block" uint16) - (opt "hard_gas_limit_per_operation" z) - (opt "hard_gas_limit_per_block" z)) - (merge_objs - (obj8 - (opt "proof_of_work_threshold" int64) - (opt "tokens_per_roll" Tez_repr.encoding) - (opt "michelson_maximum_type_size" uint16) - (opt "seed_nonce_revelation_tip" Tez_repr.encoding) - (opt "origination_size" int31) - (opt "block_security_deposit" Tez_repr.encoding) - (opt "endorsement_security_deposit" Tez_repr.encoding) - (opt "block_reward" Tez_repr.encoding)) - (obj4 - (opt "endorsement_reward" Tez_repr.encoding) - (opt "cost_per_byte" Tez_repr.encoding) - (opt "hard_storage_limit_per_operation" z) - (opt "test_chain_duration" int64)))) - let encoding = let open Data_encoding in conv @@ -295,4 +105,4 @@ let encoding = (dft "commitments" (list Commitment_repr.encoding) []) (opt "security_deposit_ramp_up_cycles" int31) (opt "no_reward_cycles" int31)) - constants_encoding) + Constants_repr.parametric_encoding) diff --git a/src/proto_alpha/lib_protocol/parameters_repr.mli b/src/proto_alpha/lib_protocol/parameters_repr.mli index 45818219585e..bd7ffc705070 100644 --- a/src/proto_alpha/lib_protocol/parameters_repr.mli +++ b/src/proto_alpha/lib_protocol/parameters_repr.mli @@ -45,4 +45,3 @@ type t = { } val encoding: t Data_encoding.t -val constants_encoding: Constants_repr.parametric Data_encoding.t diff --git a/src/proto_alpha/lib_protocol/raw_context.ml b/src/proto_alpha/lib_protocol/raw_context.ml index f7c734ea460b..2d78258f479a 100644 --- a/src/proto_alpha/lib_protocol/raw_context.ml +++ b/src/proto_alpha/lib_protocol/raw_context.ml @@ -400,7 +400,7 @@ let get_proto_param ctxt = let set_constants ctxt constants = let bytes = Data_encoding.Binary.to_bytes_exn - Parameters_repr.constants_encoding constants in + Constants_repr.parametric_encoding constants in Context.set ctxt constants_key bytes let get_constants ctxt = @@ -409,7 +409,7 @@ let get_constants ctxt = failwith "Internal error: cannot read constants in context." | Some bytes -> match - Data_encoding.Binary.of_bytes Parameters_repr.constants_encoding bytes + Data_encoding.Binary.of_bytes Constants_repr.parametric_encoding bytes with | None -> failwith "Internal error: cannot parse constants in context." -- GitLab From 3a9e5a2e2428b3281fb144e34981d5b99be4dc2f Mon Sep 17 00:00:00 2001 From: Marco Stronati Date: Tue, 16 Apr 2019 23:16:50 +0200 Subject: [PATCH 009/252] Proto/Migration: add all constants in the context This patch does not change the semantics. It migrates the stored constants in a way compatible with the new format defined by the previous patch. In the previous format, only parameters different from the (now removed) default values were stored. Now all parameters are stored explicitly. --- .../lib_protocol/parameters_repr.ml | 250 ++++++++++++++++++ .../lib_protocol/parameters_repr.mli | 31 +++ src/proto_alpha/lib_protocol/raw_context.ml | 38 +++ 3 files changed, 319 insertions(+) diff --git a/src/proto_alpha/lib_protocol/parameters_repr.ml b/src/proto_alpha/lib_protocol/parameters_repr.ml index 5f2751658f18..bbf9c18fb359 100644 --- a/src/proto_alpha/lib_protocol/parameters_repr.ml +++ b/src/proto_alpha/lib_protocol/parameters_repr.ml @@ -106,3 +106,253 @@ let encoding = (opt "security_deposit_ramp_up_cycles" int31) (opt "no_reward_cycles" int31)) Constants_repr.parametric_encoding) + + +(* Only for migration from 004 to 005 *) + +module Proto_004 = struct + + type parametric = { + preserved_cycles: int ; + blocks_per_cycle: int32 ; + blocks_per_commitment: int32 ; + blocks_per_roll_snapshot: int32 ; + blocks_per_voting_period: int32 ; + time_between_blocks: Period_repr.t list ; + endorsers_per_block: int ; + hard_gas_limit_per_operation: Z.t ; + hard_gas_limit_per_block: Z.t ; + proof_of_work_threshold: int64 ; + tokens_per_roll: Tez_repr.t ; + michelson_maximum_type_size: int; + seed_nonce_revelation_tip: Tez_repr.t ; + origination_size: int ; + block_security_deposit: Tez_repr.t ; + endorsement_security_deposit: Tez_repr.t ; + block_reward: Tez_repr.t ; + endorsement_reward: Tez_repr.t ; + cost_per_byte: Tez_repr.t ; + hard_storage_limit_per_operation: Z.t ; + test_chain_duration: int64 ; (* in seconds *) + } + + let default = { + preserved_cycles = 5 ; + blocks_per_cycle = 4096l ; + blocks_per_commitment = 32l ; + blocks_per_roll_snapshot = 256l ; + blocks_per_voting_period = 32768l ; + time_between_blocks = + List.map Period_repr.of_seconds_exn [ 60L ; 75L ] ; + endorsers_per_block = 32 ; + hard_gas_limit_per_operation = Z.of_int 800_000 ; + hard_gas_limit_per_block = Z.of_int 8_000_000 ; + proof_of_work_threshold = + Int64.(sub (shift_left 1L 46) 1L) ; + tokens_per_roll = + Tez_repr.(mul_exn one 8_000) ; + michelson_maximum_type_size = 1000 ; + seed_nonce_revelation_tip = begin + match Tez_repr.(one /? 8L) with + | Ok c -> c + | Error _ -> assert false + end ; + origination_size = 257 ; + block_security_deposit = Tez_repr.(mul_exn one 512) ; + endorsement_security_deposit = Tez_repr.(mul_exn one 64) ; + block_reward = Tez_repr.(mul_exn one 16) ; + endorsement_reward = Tez_repr.(mul_exn one 2) ; + hard_storage_limit_per_operation = Z.of_int 60_000 ; + cost_per_byte = Tez_repr.of_mutez_exn 1_000L ; + test_chain_duration = Int64.mul 32768L 60L; + } + + (* This encoding is used to read configuration files (e.g. sandbox.json) + where some fields can be missing, in that case they are replaced by + the default. *) + let constants_encoding = + let open Data_encoding in + conv + (fun (c : parametric) -> + let module Compare_time_between_blocks = Compare.List (Period_repr) in + let module Compare_keys = Compare.List (Ed25519.Public_key) in + let opt (=) def v = if def = v then None else Some v in + let preserved_cycles = + opt Compare.Int.(=) + default.preserved_cycles c.preserved_cycles + and blocks_per_cycle = + opt Compare.Int32.(=) + default.blocks_per_cycle c.blocks_per_cycle + and blocks_per_commitment = + opt Compare.Int32.(=) + default.blocks_per_commitment c.blocks_per_commitment + and blocks_per_roll_snapshot = + opt Compare.Int32.(=) + default.blocks_per_roll_snapshot c.blocks_per_roll_snapshot + and blocks_per_voting_period = + opt Compare.Int32.(=) + default.blocks_per_voting_period c.blocks_per_voting_period + and time_between_blocks = + opt Compare_time_between_blocks.(=) + default.time_between_blocks c.time_between_blocks + and endorsers_per_block = + opt Compare.Int.(=) + default.endorsers_per_block c.endorsers_per_block + and hard_gas_limit_per_operation = + opt Compare.Z.(=) + default.hard_gas_limit_per_operation c.hard_gas_limit_per_operation + and hard_gas_limit_per_block = + opt Compare.Z.(=) + default.hard_gas_limit_per_block c.hard_gas_limit_per_block + and proof_of_work_threshold = + opt Compare.Int64.(=) + default.proof_of_work_threshold c.proof_of_work_threshold + and tokens_per_roll = + opt Tez_repr.(=) + default.tokens_per_roll c.tokens_per_roll + and michelson_maximum_type_size = + opt Compare.Int.(=) + default.michelson_maximum_type_size c.michelson_maximum_type_size + and seed_nonce_revelation_tip = + opt Tez_repr.(=) + default.seed_nonce_revelation_tip c.seed_nonce_revelation_tip + and origination_size = + opt Compare.Int.(=) + default.origination_size c.origination_size + and block_security_deposit = + opt Tez_repr.(=) + default.block_security_deposit c.block_security_deposit + and endorsement_security_deposit = + opt Tez_repr.(=) + default.endorsement_security_deposit c.endorsement_security_deposit + and block_reward = + opt Tez_repr.(=) + default.block_reward c.block_reward + and endorsement_reward = + opt Tez_repr.(=) + default.endorsement_reward c.endorsement_reward + and cost_per_byte = + opt Tez_repr.(=) + default.cost_per_byte c.cost_per_byte + and hard_storage_limit_per_operation = + opt Compare.Z.(=) + default.hard_storage_limit_per_operation c.hard_storage_limit_per_operation + and test_chain_duration = + opt Compare.Int64.(=) + default.test_chain_duration c.test_chain_duration + in + (( preserved_cycles, + blocks_per_cycle, + blocks_per_commitment, + blocks_per_roll_snapshot, + blocks_per_voting_period, + time_between_blocks, + endorsers_per_block, + hard_gas_limit_per_operation, + hard_gas_limit_per_block), + ((proof_of_work_threshold, + tokens_per_roll, + michelson_maximum_type_size, + seed_nonce_revelation_tip, + origination_size, + block_security_deposit, + endorsement_security_deposit, + block_reward), + (endorsement_reward, + cost_per_byte, + hard_storage_limit_per_operation, + test_chain_duration)))) + (fun (( preserved_cycles, + blocks_per_cycle, + blocks_per_commitment, + blocks_per_roll_snapshot, + blocks_per_voting_period, + time_between_blocks, + endorsers_per_block, + hard_gas_limit_per_operation, + hard_gas_limit_per_block), + ((proof_of_work_threshold, + tokens_per_roll, + michelson_maximum_type_size, + seed_nonce_revelation_tip, + origination_size, + block_security_deposit, + endorsement_security_deposit, + block_reward), + (endorsement_reward, + cost_per_byte, + hard_storage_limit_per_operation, + test_chain_duration))) -> + let unopt def = function None -> def | Some v -> v in + { preserved_cycles = + unopt default.preserved_cycles preserved_cycles ; + blocks_per_cycle = + unopt default.blocks_per_cycle blocks_per_cycle ; + blocks_per_commitment = + unopt default.blocks_per_commitment blocks_per_commitment ; + blocks_per_roll_snapshot = + unopt default.blocks_per_roll_snapshot blocks_per_roll_snapshot ; + blocks_per_voting_period = + unopt default.blocks_per_voting_period blocks_per_voting_period ; + time_between_blocks = + unopt default.time_between_blocks @@ + time_between_blocks ; + endorsers_per_block = + unopt default.endorsers_per_block endorsers_per_block ; + hard_gas_limit_per_operation = + unopt default.hard_gas_limit_per_operation hard_gas_limit_per_operation ; + hard_gas_limit_per_block = + unopt default.hard_gas_limit_per_block hard_gas_limit_per_block ; + proof_of_work_threshold = + unopt default.proof_of_work_threshold proof_of_work_threshold ; + tokens_per_roll = + unopt default.tokens_per_roll tokens_per_roll ; + michelson_maximum_type_size = + unopt default.michelson_maximum_type_size michelson_maximum_type_size ; + seed_nonce_revelation_tip = + unopt default.seed_nonce_revelation_tip seed_nonce_revelation_tip ; + origination_size = + unopt default.origination_size origination_size ; + block_security_deposit = + unopt default.block_security_deposit block_security_deposit ; + endorsement_security_deposit = + unopt default.endorsement_security_deposit endorsement_security_deposit ; + block_reward = + unopt default.block_reward block_reward ; + endorsement_reward = + unopt default.endorsement_reward endorsement_reward ; + cost_per_byte = + unopt default.cost_per_byte cost_per_byte ; + hard_storage_limit_per_operation = + unopt default.hard_storage_limit_per_operation hard_storage_limit_per_operation ; + test_chain_duration = + unopt default.test_chain_duration test_chain_duration ; + } ) + (merge_objs + (obj9 + (opt "preserved_cycles" uint8) + (opt "blocks_per_cycle" int32) + (opt "blocks_per_commitment" int32) + (opt "blocks_per_roll_snapshot" int32) + (opt "blocks_per_voting_period" int32) + (opt "time_between_blocks" (list Period_repr.encoding)) + (opt "endorsers_per_block" uint16) + (opt "hard_gas_limit_per_operation" z) + (opt "hard_gas_limit_per_block" z)) + (merge_objs + (obj8 + (opt "proof_of_work_threshold" int64) + (opt "tokens_per_roll" Tez_repr.encoding) + (opt "michelson_maximum_type_size" uint16) + (opt "seed_nonce_revelation_tip" Tez_repr.encoding) + (opt "origination_size" int31) + (opt "block_security_deposit" Tez_repr.encoding) + (opt "endorsement_security_deposit" Tez_repr.encoding) + (opt "block_reward" Tez_repr.encoding)) + (obj4 + (opt "endorsement_reward" Tez_repr.encoding) + (opt "cost_per_byte" Tez_repr.encoding) + (opt "hard_storage_limit_per_operation" z) + (opt "test_chain_duration" int64)))) + +end diff --git a/src/proto_alpha/lib_protocol/parameters_repr.mli b/src/proto_alpha/lib_protocol/parameters_repr.mli index bd7ffc705070..c679c58f1112 100644 --- a/src/proto_alpha/lib_protocol/parameters_repr.mli +++ b/src/proto_alpha/lib_protocol/parameters_repr.mli @@ -45,3 +45,34 @@ type t = { } val encoding: t Data_encoding.t + + +(* Only for migration from 004 to 005 *) + +module Proto_004 : sig + type parametric = { + preserved_cycles: int ; + blocks_per_cycle: int32 ; + blocks_per_commitment: int32 ; + blocks_per_roll_snapshot: int32 ; + blocks_per_voting_period: int32 ; + time_between_blocks: Period_repr.t list ; + endorsers_per_block: int ; + hard_gas_limit_per_operation: Z.t ; + hard_gas_limit_per_block: Z.t ; + proof_of_work_threshold: int64 ; + tokens_per_roll: Tez_repr.t ; + michelson_maximum_type_size: int; + seed_nonce_revelation_tip: Tez_repr.t ; + origination_size: int ; + block_security_deposit: Tez_repr.t ; + endorsement_security_deposit: Tez_repr.t ; + block_reward: Tez_repr.t ; + endorsement_reward: Tez_repr.t ; + cost_per_byte: Tez_repr.t ; + hard_storage_limit_per_operation: Z.t ; + test_chain_duration: int64 ; + } + + val constants_encoding: parametric Data_encoding.t +end diff --git a/src/proto_alpha/lib_protocol/raw_context.ml b/src/proto_alpha/lib_protocol/raw_context.ml index 2d78258f479a..581c20fc0b4e 100644 --- a/src/proto_alpha/lib_protocol/raw_context.ml +++ b/src/proto_alpha/lib_protocol/raw_context.ml @@ -415,6 +415,19 @@ let get_constants ctxt = failwith "Internal error: cannot parse constants in context." | Some constants -> return constants +(* only for migration from 004 to 005 *) +let get_004_constants ctxt = + Context.get ctxt constants_key >>= function + | None -> + failwith "Internal error: cannot read constants in context." + | Some bytes -> + match + Data_encoding.Binary.of_bytes Parameters_repr.Proto_004.constants_encoding bytes + with + | None -> + failwith "Internal error: cannot parse constants in context." + | Some constants -> return constants + let patch_constants ctxt f = let constants = f ctxt.constants in set_constants ctxt.context constants >>= fun context -> @@ -495,6 +508,31 @@ let prepare_first_block ~level ~timestamp ~fitness ctxt = set_constants ctxt param.constants >>= fun ctxt -> return ctxt | Alpha_previous -> + get_004_constants ctxt >>=? fun c -> + let constants = Constants_repr.{ + preserved_cycles = c.preserved_cycles ; + blocks_per_cycle = c.blocks_per_cycle ; + blocks_per_commitment = c.blocks_per_commitment ; + blocks_per_roll_snapshot = c.blocks_per_roll_snapshot ; + blocks_per_voting_period = c.blocks_per_voting_period ; + time_between_blocks = c.time_between_blocks ; + endorsers_per_block = c.endorsers_per_block ; + hard_gas_limit_per_operation = c.hard_gas_limit_per_operation ; + hard_gas_limit_per_block = c.hard_gas_limit_per_block ; + proof_of_work_threshold = c.proof_of_work_threshold ; + tokens_per_roll = c.tokens_per_roll ; + michelson_maximum_type_size = c.michelson_maximum_type_size; + seed_nonce_revelation_tip = c.seed_nonce_revelation_tip ; + origination_size = c.origination_size ; + block_security_deposit = c.block_security_deposit ; + endorsement_security_deposit = c.endorsement_security_deposit ; + block_reward = c.block_reward ; + endorsement_reward = c.endorsement_reward ; + cost_per_byte = c.cost_per_byte ; + hard_storage_limit_per_operation = c.hard_storage_limit_per_operation ; + test_chain_duration = c.test_chain_duration ; + } in + set_constants ctxt constants >>= fun ctxt -> return ctxt end >>=? fun ctxt -> prepare ctxt ~level ~timestamp ~fitness >>=? fun ctxt -> -- GitLab From 016cbda53d84edb6f3df94b38c0ed8624ce27bb0 Mon Sep 17 00:00:00 2001 From: Adrian Brink Date: Thu, 9 May 2019 17:57:49 +0200 Subject: [PATCH 010/252] Proto: participation EMA and min/max quorum caps Contains a BREAKING CHANGE (see end of message). Change the formula from quorum update on vote period to participation EMA (exponential moving average). Current quorum storage is removed and new storage participation EMA is introduced. Minimum and maximum quorum caps are added to the constants of the economic protocol. Whenever a voting period would cause the quorum to go below or above the caps it will be bound to the limit defined in the constants. In the future token holders can easily modify the caps by changing the constants. Third party developers should make sure they can parse the new fields in the `/constants` RPC, or at least ignore them. --- .../lib_protocol/alpha_context.mli | 8 ++++- src/proto_alpha/lib_protocol/amendment.ml | 33 +++++++++++-------- .../lib_protocol/constants_repr.ml | 18 +++++++--- .../lib_protocol/constants_storage.ml | 6 ++++ src/proto_alpha/lib_protocol/storage.ml | 4 +-- src/proto_alpha/lib_protocol/storage.mli | 4 +-- src/proto_alpha/lib_protocol/vote_storage.ml | 17 +++++++--- src/proto_alpha/lib_protocol/vote_storage.mli | 4 ++- 8 files changed, 66 insertions(+), 28 deletions(-) diff --git a/src/proto_alpha/lib_protocol/alpha_context.mli b/src/proto_alpha/lib_protocol/alpha_context.mli index 62d317621334..f49b685eb811 100644 --- a/src/proto_alpha/lib_protocol/alpha_context.mli +++ b/src/proto_alpha/lib_protocol/alpha_context.mli @@ -380,6 +380,8 @@ module Constants : sig cost_per_byte: Tez.t ; hard_storage_limit_per_operation: Z.t ; test_chain_duration: int64; + quorum_min: int32 ; + quorum_max: int32 ; } val parametric_encoding: parametric Data_encoding.t val parametric: context -> parametric @@ -404,6 +406,8 @@ module Constants : sig val block_security_deposit: context -> Tez.t val endorsement_security_deposit: context -> Tez.t val test_chain_duration: context -> int64 + val quorum_min: context -> int32 + val quorum_max: context -> int32 (** All constants: fixed and parametric *) type t = { @@ -775,7 +779,9 @@ module Vote : sig context -> Voting_period.kind -> context tzresult Lwt.t val get_current_quorum: context -> int32 tzresult Lwt.t - val set_current_quorum: context -> int32 -> context tzresult Lwt.t + + val get_participation_ema: context -> int32 tzresult Lwt.t + val set_participation_ema: context -> int32 -> context tzresult Lwt.t val get_current_proposal: context -> proposal tzresult Lwt.t diff --git a/src/proto_alpha/lib_protocol/amendment.ml b/src/proto_alpha/lib_protocol/amendment.ml index ec30af1105dd..7c3b5b5e5c5f 100644 --- a/src/proto_alpha/lib_protocol/amendment.ml +++ b/src/proto_alpha/lib_protocol/amendment.ml @@ -47,13 +47,15 @@ let select_winning_proposal proposals = the current quorum. Supermajority means the yays are more 8/10 of casted votes. The participation is the ratio of all received votes, including passes, with - respect to the number of possible votes. The quorum starts at 80% and at - each vote is updated using the last expected quorum and the current - participation with the following weights: - newQ = oldQ * 8/10 + participation * 2/10 *) -let check_approval_and_update_quorum ctxt = + respect to the number of possible votes. + The participation EMA (exponential moving average) uses the last + participation EMA and the current participation./ + The expected quorum is calculated using the last participation EMA, capped + by the min/max quorum protocol constants. *) +let check_approval_and_update_participation_ema ctxt = Vote.get_ballots ctxt >>=? fun ballots -> Vote.listing_size ctxt >>=? fun maximum_vote -> + Vote.get_participation_ema ctxt >>=? fun participation_ema -> Vote.get_current_quorum ctxt >>=? fun expected_quorum -> (* Note overflows: considering a maximum of 8e8 tokens, with roll size as small as 1e3, there is a maximum of 8e5 rolls and thus votes. @@ -64,15 +66,18 @@ let check_approval_and_update_quorum ctxt = let all_votes = Int32.add casted_votes ballots.pass in let supermajority = Int32.div (Int32.mul 8l casted_votes) 10l in let participation = (* in centile of percentage *) - Int64.to_int32 - (Int64.div - (Int64.mul (Int64.of_int32 all_votes) 100_00L) - (Int64.of_int32 maximum_vote)) in + Int64.(to_int32 + (div + (mul (of_int32 all_votes) 100_00L) + (of_int32 maximum_vote))) in let outcome = Compare.Int32.(participation >= expected_quorum && ballots.yay >= supermajority) in - let updated_quorum = - Int32.div (Int32.add (Int32.mul 8l expected_quorum) (Int32.mul 2l participation)) 10l in - Vote.set_current_quorum ctxt updated_quorum >>=? fun ctxt -> + let new_participation_ema = + Int32.(div (add + (mul 8l participation_ema) + (mul 2l participation)) + 10l) in + Vote.set_participation_ema ctxt new_participation_ema >>=? fun ctxt -> return (ctxt, outcome) (** Implements the state machine of the amendment procedure. @@ -96,7 +101,7 @@ let start_new_voting_period ctxt = return ctxt end | Testing_vote -> - check_approval_and_update_quorum ctxt >>=? fun (ctxt, approved) -> + check_approval_and_update_participation_ema ctxt >>=? fun (ctxt, approved) -> Vote.clear_ballots ctxt >>= fun ctxt -> Vote.clear_listings ctxt >>=? fun ctxt -> if approved then @@ -116,7 +121,7 @@ let start_new_voting_period ctxt = Vote.set_current_period_kind ctxt Promotion_vote >>=? fun ctxt -> return ctxt | Promotion_vote -> - check_approval_and_update_quorum ctxt >>=? fun (ctxt, approved) -> + check_approval_and_update_participation_ema ctxt >>=? fun (ctxt, approved) -> begin if approved then Vote.get_current_proposal ctxt >>=? fun proposal -> diff --git a/src/proto_alpha/lib_protocol/constants_repr.ml b/src/proto_alpha/lib_protocol/constants_repr.ml index aa78b4304553..acac04c8481c 100644 --- a/src/proto_alpha/lib_protocol/constants_repr.ml +++ b/src/proto_alpha/lib_protocol/constants_repr.ml @@ -95,6 +95,8 @@ type parametric = { cost_per_byte: Tez_repr.t ; hard_storage_limit_per_operation: Z.t ; test_chain_duration: int64 ; (* in seconds *) + quorum_min: int32 ; + quorum_max: int32 ; } let parametric_encoding = @@ -121,7 +123,9 @@ let parametric_encoding = (c.endorsement_reward, c.cost_per_byte, c.hard_storage_limit_per_operation, - c.test_chain_duration))) ) + c.test_chain_duration, + c.quorum_min, + c.quorum_max))) ) (fun (( preserved_cycles, blocks_per_cycle, blocks_per_commitment, @@ -142,7 +146,9 @@ let parametric_encoding = (endorsement_reward, cost_per_byte, hard_storage_limit_per_operation, - test_chain_duration))) -> + test_chain_duration, + quorum_min, + quorum_max))) -> { preserved_cycles ; blocks_per_cycle ; blocks_per_commitment ; @@ -164,6 +170,8 @@ let parametric_encoding = cost_per_byte ; hard_storage_limit_per_operation ; test_chain_duration ; + quorum_min ; + quorum_max ; } ) (merge_objs (obj9 @@ -186,11 +194,13 @@ let parametric_encoding = (req "block_security_deposit" Tez_repr.encoding) (req "endorsement_security_deposit" Tez_repr.encoding) (req "block_reward" Tez_repr.encoding)) - (obj4 + (obj6 (req "endorsement_reward" Tez_repr.encoding) (req "cost_per_byte" Tez_repr.encoding) (req "hard_storage_limit_per_operation" z) - (req "test_chain_duration" int64)))) + (req "test_chain_duration" int64) + (req "quorum_min" int32) + (req "quorum_max" int32)))) type t = { fixed : fixed ; diff --git a/src/proto_alpha/lib_protocol/constants_storage.ml b/src/proto_alpha/lib_protocol/constants_storage.ml index 3ede67cc243e..3afa9d458863 100644 --- a/src/proto_alpha/lib_protocol/constants_storage.ml +++ b/src/proto_alpha/lib_protocol/constants_storage.ml @@ -86,5 +86,11 @@ let endorsement_reward c = let test_chain_duration c = let constants = Raw_context.constants c in constants.test_chain_duration +let quorum_min c = + let constants = Raw_context.constants c in + constants.quorum_min +let quorum_max c = + let constants = Raw_context.constants c in + constants.quorum_max let parametric c = Raw_context.constants c diff --git a/src/proto_alpha/lib_protocol/storage.ml b/src/proto_alpha/lib_protocol/storage.ml index 08ab374eecbe..28f5a28a3260 100644 --- a/src/proto_alpha/lib_protocol/storage.ml +++ b/src/proto_alpha/lib_protocol/storage.ml @@ -497,10 +497,10 @@ module Vote = struct let encoding = Voting_period_repr.kind_encoding end) - module Current_quorum = + module Participation_ema = Make_single_data_storage(Registered) (Raw_context) - (struct let name = ["current_quorum"] end) + (struct let name = ["participation_ema"] end) (Int32) module Current_proposal = diff --git a/src/proto_alpha/lib_protocol/storage.mli b/src/proto_alpha/lib_protocol/storage.mli index 2e7f0b09472f..04d7971cb1cc 100644 --- a/src/proto_alpha/lib_protocol/storage.mli +++ b/src/proto_alpha/lib_protocol/storage.mli @@ -234,8 +234,8 @@ module Vote : sig with type value = Voting_period_repr.kind and type t := Raw_context.t - (** Expected quorum, in centile of percentage *) - module Current_quorum : Single_data_storage + (** Participation exponential moving average, in centile of percentage *) + module Participation_ema : Single_data_storage with type value = int32 and type t := Raw_context.t diff --git a/src/proto_alpha/lib_protocol/vote_storage.ml b/src/proto_alpha/lib_protocol/vote_storage.ml index 3a2a7b452526..d5e9013219ef 100644 --- a/src/proto_alpha/lib_protocol/vote_storage.ml +++ b/src/proto_alpha/lib_protocol/vote_storage.ml @@ -124,15 +124,24 @@ let clear_listings ctxt = let get_current_period_kind = Storage.Vote.Current_period_kind.get let set_current_period_kind = Storage.Vote.Current_period_kind.set -let get_current_quorum = Storage.Vote.Current_quorum.get -let set_current_quorum = Storage.Vote.Current_quorum.set +let get_current_quorum ctxt = + Storage.Vote.Participation_ema.get ctxt >>=? fun participation_ema -> + let quorum_min = Constants_storage.quorum_min ctxt in + let quorum_max = Constants_storage.quorum_max ctxt in + let quorum_diff = Int32.sub quorum_max quorum_min in + return Int32.(add quorum_min + (div (mul participation_ema quorum_diff) 100_00l)) + +let get_participation_ema = Storage.Vote.Participation_ema.get +let set_participation_ema = Storage.Vote.Participation_ema.set let get_current_proposal = Storage.Vote.Current_proposal.get let init_current_proposal = Storage.Vote.Current_proposal.init let clear_current_proposal = Storage.Vote.Current_proposal.delete let init ctxt = - (* quorum is in centile of a percentage *) - Storage.Vote.Current_quorum.init ctxt 80_00l >>=? fun ctxt -> + (* participation EMA is in centile of a percentage *) + let participation_ema = Constants_storage.quorum_max ctxt in + Storage.Vote.Participation_ema.init ctxt participation_ema >>=? fun ctxt -> Storage.Vote.Current_period_kind.init ctxt Proposal >>=? fun ctxt -> return ctxt diff --git a/src/proto_alpha/lib_protocol/vote_storage.mli b/src/proto_alpha/lib_protocol/vote_storage.mli index 3853f5e8f320..6606bbb8355d 100644 --- a/src/proto_alpha/lib_protocol/vote_storage.mli +++ b/src/proto_alpha/lib_protocol/vote_storage.mli @@ -79,7 +79,9 @@ val in_listings: val get_listings : Raw_context.t -> (Signature.Public_key_hash.t * int32) list Lwt.t val get_current_quorum: Raw_context.t -> int32 tzresult Lwt.t -val set_current_quorum: Raw_context.t -> int32 -> Raw_context.t tzresult Lwt.t + +val get_participation_ema: Raw_context.t -> int32 tzresult Lwt.t +val set_participation_ema: Raw_context.t -> int32 -> Raw_context.t tzresult Lwt.t val get_current_period_kind: Raw_context.t -> Voting_period_repr.kind tzresult Lwt.t -- GitLab From 98fa3e854545e972e8c5bc195b7a3fc5642a26c2 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Tom=C3=A1=C5=A1=20Zemanovi=C4=8D?= Date: Thu, 9 May 2019 17:14:54 +0200 Subject: [PATCH 011/252] Proto/Migration: participation EMA and min/max quorum caps This commit amends the context. It uses the last value of current quorum for participation EMA and adds min/max quorum caps to it. Initially the minimum quorum cap is set to 30% and the maximum to 70%. --- src/proto_alpha/lib_protocol/init_storage.ml | 3 +++ src/proto_alpha/lib_protocol/raw_context.ml | 2 ++ src/proto_alpha/lib_protocol/storage.ml | 6 ++++++ src/proto_alpha/lib_protocol/storage.mli | 6 ++++++ 4 files changed, 17 insertions(+) diff --git a/src/proto_alpha/lib_protocol/init_storage.ml b/src/proto_alpha/lib_protocol/init_storage.ml index 9d313def809a..600e16fad643 100644 --- a/src/proto_alpha/lib_protocol/init_storage.ml +++ b/src/proto_alpha/lib_protocol/init_storage.ml @@ -45,6 +45,9 @@ let prepare_first_block ctxt ~typecheck ~level ~timestamp ~fitness = Vote_storage.freeze_listings ctxt >>=? fun ctxt -> return ctxt | Alpha_previous -> + Storage.Vote.Current_quorum_004.get ctxt >>=? fun quorum -> + Storage.Vote.Participation_ema.init ctxt quorum >>=? fun ctxt -> + Storage.Vote.Current_quorum_004.delete ctxt >>=? fun ctxt -> return ctxt let prepare ctxt ~level ~timestamp ~fitness = diff --git a/src/proto_alpha/lib_protocol/raw_context.ml b/src/proto_alpha/lib_protocol/raw_context.ml index 581c20fc0b4e..2c10c4a0fb92 100644 --- a/src/proto_alpha/lib_protocol/raw_context.ml +++ b/src/proto_alpha/lib_protocol/raw_context.ml @@ -531,6 +531,8 @@ let prepare_first_block ~level ~timestamp ~fitness ctxt = cost_per_byte = c.cost_per_byte ; hard_storage_limit_per_operation = c.hard_storage_limit_per_operation ; test_chain_duration = c.test_chain_duration ; + quorum_min = 20_00l ; (* quorum is in centile of a percentage *) + quorum_max = 70_00l ; } in set_constants ctxt constants >>= fun ctxt -> return ctxt diff --git a/src/proto_alpha/lib_protocol/storage.ml b/src/proto_alpha/lib_protocol/storage.ml index 28f5a28a3260..65148be1838f 100644 --- a/src/proto_alpha/lib_protocol/storage.ml +++ b/src/proto_alpha/lib_protocol/storage.ml @@ -497,6 +497,12 @@ module Vote = struct let encoding = Voting_period_repr.kind_encoding end) + module Current_quorum_004 = + Make_single_data_storage(Ghost) + (Raw_context) + (struct let name = ["current_quorum"] end) + (Int32) + module Participation_ema = Make_single_data_storage(Registered) (Raw_context) diff --git a/src/proto_alpha/lib_protocol/storage.mli b/src/proto_alpha/lib_protocol/storage.mli index 04d7971cb1cc..e8278baa21d9 100644 --- a/src/proto_alpha/lib_protocol/storage.mli +++ b/src/proto_alpha/lib_protocol/storage.mli @@ -234,6 +234,12 @@ module Vote : sig with type value = Voting_period_repr.kind and type t := Raw_context.t + (** Only for migration from 004. + Expected quorum, in centile of percentage *) + module Current_quorum_004 : Single_data_storage + with type value = int32 + and type t := Raw_context.t + (** Participation exponential moving average, in centile of percentage *) module Participation_ema : Single_data_storage with type value = int32 -- GitLab From f49007f74bca83fe660a25d43e6c8debfa3428b6 Mon Sep 17 00:00:00 2001 From: Pierre Chambart Date: Fri, 10 May 2019 16:54:33 +0200 Subject: [PATCH 012/252] Proto: add a minimum number of endorsements requirement, a.k.a Emmy+ Contains a BREAKING CHANGE (see end of message). A block is now valid only if its timestamp has a minimal delay with respect to the previous block's timestamp, and this minimal delay depends not only on the block's priority but also on the number of endorsement operations included in the block. In Emmy+, blocks' fitness increases by one unit with each level. In this way, Emmy+ simplifies the optimal baking strategy: The bakers used to have to choose whether to wait for more endorsements to include in their block, or to publish the block immediately, without waiting. The incentive for including more endorsements was to increase the fitness and win against unknown blocks. However, when a block was produced too late in the priority period, there was the risk that the block did not reach endorsers before the block of next priority. In Emmy+, the baker does not need to take such a decision, because the baker cannot publish a block too early. Third party developers should make sure they can parse the new fields in the `/constants` RPC, or at least ignore them. --- src/proto_alpha/lib_protocol/alpha_context.ml | 1 + .../lib_protocol/alpha_context.mli | 7 +++ src/proto_alpha/lib_protocol/apply.ml | 55 ++++++++++++++++--- src/proto_alpha/lib_protocol/baking.ml | 46 +++++++++++++--- src/proto_alpha/lib_protocol/baking.mli | 38 ++++++++++++- .../lib_protocol/constants_repr.ml | 20 +++++-- .../lib_protocol/constants_storage.ml | 6 ++ src/proto_alpha/lib_protocol/main.ml | 30 ++++++---- src/proto_alpha/lib_protocol/main.mli | 3 + src/proto_alpha/lib_protocol/raw_context.ml | 5 ++ src/proto_alpha/lib_protocol/raw_context.mli | 3 + src/proto_alpha/lib_protocol/time_repr.ml | 20 ++++++- src/proto_alpha/lib_protocol/time_repr.mli | 1 + 13 files changed, 202 insertions(+), 33 deletions(-) diff --git a/src/proto_alpha/lib_protocol/alpha_context.ml b/src/proto_alpha/lib_protocol/alpha_context.ml index 435d9920ecb8..09dcebb54a4d 100644 --- a/src/proto_alpha/lib_protocol/alpha_context.ml +++ b/src/proto_alpha/lib_protocol/alpha_context.ml @@ -169,6 +169,7 @@ let fork_test_chain = Raw_context.fork_test_chain let record_endorsement = Raw_context.record_endorsement let allowed_endorsements = Raw_context.allowed_endorsements let init_endorsements = Raw_context.init_endorsements +let included_endorsements = Raw_context.included_endorsements let reset_internal_nonce = Raw_context.reset_internal_nonce let fresh_internal_nonce = Raw_context.fresh_internal_nonce diff --git a/src/proto_alpha/lib_protocol/alpha_context.mli b/src/proto_alpha/lib_protocol/alpha_context.mli index f49b685eb811..c504a3d9e6e6 100644 --- a/src/proto_alpha/lib_protocol/alpha_context.mli +++ b/src/proto_alpha/lib_protocol/alpha_context.mli @@ -81,6 +81,7 @@ module Timestamp : sig include BASIC_DATA with type t = Time.t type time = t val (+?) : time -> Period.t -> time tzresult + val (-?) : time -> time -> Period.t tzresult val of_notation: string -> time option val to_notation: time -> string @@ -382,6 +383,8 @@ module Constants : sig test_chain_duration: int64; quorum_min: int32 ; quorum_max: int32 ; + initial_endorsers: int ; + delay_per_missing_endorsement : Period.t ; } val parametric_encoding: parametric Data_encoding.t val parametric: context -> parametric @@ -392,6 +395,8 @@ module Constants : sig val blocks_per_voting_period: context -> int32 val time_between_blocks: context -> Period.t list val endorsers_per_block: context -> int + val initial_endorsers: context -> int + val delay_per_missing_endorsement: context -> Period.t val hard_gas_limit_per_operation: context -> Z.t val hard_gas_limit_per_block: context -> Z.t val cost_per_byte: context -> Tez.t @@ -1152,6 +1157,8 @@ val init_endorsements: context -> (Signature.Public_key.t * int list * bool) Signature.Public_key_hash.Map.t -> context +val included_endorsements: + context -> int val reset_internal_nonce: context -> context val fresh_internal_nonce: context -> (context * int) tzresult diff --git a/src/proto_alpha/lib_protocol/apply.ml b/src/proto_alpha/lib_protocol/apply.ml index 984d1fee67f7..d4b1ff251a2a 100644 --- a/src/proto_alpha/lib_protocol/apply.ml +++ b/src/proto_alpha/lib_protocol/apply.ml @@ -60,6 +60,12 @@ type error += Outdated_double_baking_evidence type error += Invalid_activation of { pkh : Ed25519.Public_key_hash.t } type error += Multiple_revelation type error += Gas_quota_exceeded_init_deserialize (* Permanent *) +type error += + Not_enough_endorsements_for_priority of + { required : int ; + priority : int ; + endorsements : int ; + timestamp: Time.t } let () = register_error_kind @@ -372,7 +378,28 @@ let () = parse within the provided gas bounds." Data_encoding.empty (function Gas_quota_exceeded_init_deserialize -> Some () | _ -> None) - (fun () -> Gas_quota_exceeded_init_deserialize) + (fun () -> Gas_quota_exceeded_init_deserialize) ; + register_error_kind + `Permanent + ~id:"operation.not_enought_endorsements_for_priority" + ~title:"Not enough endorsements for priority" + ~description:"The block being validated does not include the \ + required minimum number of endorsements for this priority." + ~pp:(fun ppf (required, endorsements, priority, timestamp) -> + Format.fprintf ppf "Wrong number of endorsements (%i) for \ + priority (%i), %i are expected at %a" + endorsements priority required Time.pp_hum timestamp) + Data_encoding.(obj4 + (req "required" int31) + (req "endorsements" int31) + (req "priority" int31) + (req "timestamp" Time.encoding)) + (function Not_enough_endorsements_for_priority + { required ; endorsements ; priority ; timestamp } -> + Some (required, endorsements, priority, timestamp) | _ -> None) + (fun (required, endorsements, priority, timestamp) -> + Not_enough_endorsements_for_priority + { required ; endorsements ; priority ; timestamp }) ; open Apply_results @@ -791,7 +818,6 @@ let apply_contents_list else let ctxt = record_endorsement ctxt delegate in let gap = List.length slots in - let ctxt = Fitness.increase ~gap ctxt in Lwt.return Tez.(Constants.endorsement_security_deposit ctxt *? Int64.of_int gap) >>=? fun deposit -> @@ -984,14 +1010,14 @@ let may_start_new_cycle ctxt = let begin_full_construction ctxt pred_timestamp protocol_data = Baking.check_baking_rights - ctxt protocol_data pred_timestamp >>=? fun delegate_pk -> + ctxt protocol_data pred_timestamp >>=? fun (delegate_pk, block_delay) -> let ctxt = Fitness.increase ctxt in match Level.pred ctxt (Level.current ctxt) with | None -> assert false (* genesis *) | Some pred_level -> Baking.endorsement_rights ctxt pred_level >>=? fun rights -> let ctxt = init_endorsements ctxt rights in - return (ctxt, protocol_data, delegate_pk) + return (ctxt, protocol_data, delegate_pk, block_delay) let begin_partial_construction ctxt = let ctxt = Fitness.increase ctxt in @@ -1007,7 +1033,8 @@ let begin_application ctxt chain_id block_header pred_timestamp = Baking.check_proof_of_work_stamp ctxt block_header >>=? fun () -> Baking.check_fitness_gap ctxt block_header >>=? fun () -> Baking.check_baking_rights - ctxt block_header.protocol_data.contents pred_timestamp >>=? fun delegate_pk -> + ctxt block_header.protocol_data.contents pred_timestamp + >>=? fun (delegate_pk, block_delay) -> Baking.check_signature block_header chain_id delegate_pk >>=? fun () -> let has_commitment = match block_header.protocol_data.contents.seed_nonce_hash with @@ -1023,9 +1050,23 @@ let begin_application ctxt chain_id block_header pred_timestamp = | Some pred_level -> Baking.endorsement_rights ctxt pred_level >>=? fun rights -> let ctxt = init_endorsements ctxt rights in - return (ctxt, delegate_pk) + return (ctxt, delegate_pk, block_delay) + +let check_minimum_endorsements ctxt protocol_data block_delay = + let minimum = Baking.minimum_allowed_endorsements ctxt ~block_delay in + let timestamp = Alpha_context.Timestamp.current ctxt in + if Compare.Int.(included_endorsements ctxt >= minimum) then + Ok () + else + error (Not_enough_endorsements_for_priority + { required = minimum ; + priority = protocol_data.Block_header.priority ; + endorsements = included_endorsements ctxt ; + timestamp }) -let finalize_application ctxt protocol_data delegate = +let finalize_application ctxt protocol_data delegate ~block_delay = + Lwt.return + (check_minimum_endorsements ctxt protocol_data block_delay) >>=? fun () -> let deposit = Constants.block_security_deposit ctxt in add_deposit ctxt delegate deposit >>=? fun ctxt -> let reward = (Constants.block_reward ctxt) in diff --git a/src/proto_alpha/lib_protocol/baking.ml b/src/proto_alpha/lib_protocol/baking.ml index d8d222c209a0..5e7bbd95e1f0 100644 --- a/src/proto_alpha/lib_protocol/baking.ml +++ b/src/proto_alpha/lib_protocol/baking.ml @@ -142,15 +142,16 @@ let earlier_predecessor_timestamp ctxt level = let check_timestamp c priority pred_timestamp = minimal_time c priority pred_timestamp >>=? fun minimal_time -> let timestamp = Alpha_context.Timestamp.current c in - fail_unless Timestamp.(minimal_time <= timestamp) - (Timestamp_too_early (minimal_time, timestamp)) + Lwt.return + (record_trace (Timestamp_too_early (minimal_time, timestamp)) + Timestamp.(timestamp -? minimal_time)) let check_baking_rights c { Block_header.priority ; _ } pred_timestamp = let level = Level.current c in Roll.baking_rights_owner c level ~priority >>=? fun delegate -> - check_timestamp c priority pred_timestamp >>=? fun () -> - return delegate + check_timestamp c priority pred_timestamp >>=? fun block_delay -> + return (delegate, block_delay) type error += Incorrect_priority (* `Permanent *) @@ -271,9 +272,7 @@ let check_signature block chain_id key = fail (Invalid_block_signature (Block_header.hash block, Signature.Public_key.hash key)) -let max_fitness_gap ctxt = - let slots = Int64.of_int (Constants.endorsers_per_block ctxt + 1) in - Int64.add slots 1L +let max_fitness_gap _ctxt = 1L let check_fitness_gap ctxt (block : Block_header.t) = let current_fitness = Fitness.current ctxt in @@ -294,3 +293,36 @@ let dawn_of_a_new_cycle ctxt = return_some level.cycle else return_none + +let minimum_allowed_endorsements ctxt ~block_delay = + let minimum = Constants.initial_endorsers ctxt in + let delay_per_missing_endorsement = + Int64.to_int + (Period.to_seconds + (Constants.delay_per_missing_endorsement ctxt)) + in + let reduced_time_constraint = + let delay = Int64.to_int (Period.to_seconds block_delay) in + if Compare.Int.(delay_per_missing_endorsement = 0) then + delay + else + delay / delay_per_missing_endorsement + in + Compare.Int.max 0 (minimum - reduced_time_constraint) + +let minimal_valid_time ctxt ~priority ~endorsing_power = + let predecessor_timestamp = Timestamp.current ctxt in + minimal_time ctxt + priority predecessor_timestamp >>=? fun minimal_time -> + let minimal_required_endorsements = Constants.initial_endorsers ctxt in + let delay_per_missing_endorsement = + Constants.delay_per_missing_endorsement ctxt + in + let missing_endorsements = + Compare.Int.max 0 (minimal_required_endorsements - endorsing_power) in + match Period.mult + (Int32.of_int missing_endorsements) + delay_per_missing_endorsement with + | Ok delay -> + return (Time.add minimal_time (Period.to_seconds delay)) + | Error _ as err -> Lwt.return err diff --git a/src/proto_alpha/lib_protocol/baking.mli b/src/proto_alpha/lib_protocol/baking.mli index 52c78f74ba91..4cce944b3aa1 100644 --- a/src/proto_alpha/lib_protocol/baking.mli +++ b/src/proto_alpha/lib_protocol/baking.mli @@ -47,7 +47,7 @@ val minimal_time: context -> int -> Time.t -> Time.t tzresult Lwt.t *) val check_baking_rights: context -> Block_header.contents -> Time.t -> - public_key tzresult Lwt.t + (public_key * Period.t) tzresult Lwt.t (** For a given level computes who has the right to include an endorsement in the next block. @@ -106,3 +106,39 @@ val check_fitness_gap: val dawn_of_a_new_cycle: context -> Cycle.t option tzresult Lwt.t val earlier_predecessor_timestamp: context -> Level.t -> Timestamp.t tzresult Lwt.t + +(** Since Emmy+ + + A block is valid only if its timestamp has a minimal delay with + respect to the previous block's timestamp, and this minimal delay + depends not only on the block's priority but also on the number of + endorsement operations included in the block. + + In Emmy+, blocks' fitness increases by one unit with each level. + + In this way, Emmy+ simplifies the optimal baking strategy: The + bakers used to have to choose whether to wait for more endorsements + to include in their block, or to publish the block immediately, + without waiting. The incentive for including more endorsements was + to increase the fitness and win against unknown blocks. However, + when a block was produced too late in the priority period, there + was the risk that the block did not reach endorsers before the + block of next priority. In Emmy+, the baker does not need to take + such a decision, because the baker cannot publish a block too + early. *) + +(** Given a delay of a block's timestamp with respect to the minimum + time to bake at the block's priority (as returned by + `minimum_time`), it returns the minimum number of endorsements that + the block has to contain *) +val minimum_allowed_endorsements: context -> block_delay:Period.t -> int + +(** This is the somehow the dual of the previous function. Given a + block priority and a number of endorsement slots (given by the + `endorsement_power` argument), it returns the minimum time at which + the next block can be baked. *) +val minimal_valid_time: + context -> + priority:int -> + endorsing_power: int -> + Time.t tzresult Lwt.t diff --git a/src/proto_alpha/lib_protocol/constants_repr.ml b/src/proto_alpha/lib_protocol/constants_repr.ml index acac04c8481c..dedf187f469c 100644 --- a/src/proto_alpha/lib_protocol/constants_repr.ml +++ b/src/proto_alpha/lib_protocol/constants_repr.ml @@ -97,6 +97,8 @@ type parametric = { test_chain_duration: int64 ; (* in seconds *) quorum_min: int32 ; quorum_max: int32 ; + initial_endorsers: int ; + delay_per_missing_endorsement: Period_repr.t ; } let parametric_encoding = @@ -125,7 +127,10 @@ let parametric_encoding = c.hard_storage_limit_per_operation, c.test_chain_duration, c.quorum_min, - c.quorum_max))) ) + c.quorum_max, + c.initial_endorsers, + c.delay_per_missing_endorsement + ))) ) (fun (( preserved_cycles, blocks_per_cycle, blocks_per_commitment, @@ -148,7 +153,9 @@ let parametric_encoding = hard_storage_limit_per_operation, test_chain_duration, quorum_min, - quorum_max))) -> + quorum_max, + initial_endorsers, + delay_per_missing_endorsement))) -> { preserved_cycles ; blocks_per_cycle ; blocks_per_commitment ; @@ -172,6 +179,8 @@ let parametric_encoding = test_chain_duration ; quorum_min ; quorum_max ; + initial_endorsers ; + delay_per_missing_endorsement ; } ) (merge_objs (obj9 @@ -194,13 +203,16 @@ let parametric_encoding = (req "block_security_deposit" Tez_repr.encoding) (req "endorsement_security_deposit" Tez_repr.encoding) (req "block_reward" Tez_repr.encoding)) - (obj6 + (obj8 (req "endorsement_reward" Tez_repr.encoding) (req "cost_per_byte" Tez_repr.encoding) (req "hard_storage_limit_per_operation" z) (req "test_chain_duration" int64) (req "quorum_min" int32) - (req "quorum_max" int32)))) + (req "quorum_max" int32) + (req "initial_endorsers" uint16) + (req "delay_per_missing_endorsement" Period_repr.encoding) + ))) type t = { fixed : fixed ; diff --git a/src/proto_alpha/lib_protocol/constants_storage.ml b/src/proto_alpha/lib_protocol/constants_storage.ml index 3afa9d458863..0e2992dbee16 100644 --- a/src/proto_alpha/lib_protocol/constants_storage.ml +++ b/src/proto_alpha/lib_protocol/constants_storage.ml @@ -44,6 +44,12 @@ let time_between_blocks c = let endorsers_per_block c = let constants = Raw_context.constants c in constants.endorsers_per_block +let initial_endorsers c = + let constants = Raw_context.constants c in + constants.initial_endorsers +let delay_per_missing_endorsement c = + let constants = Raw_context.constants c in + constants.delay_per_missing_endorsement let hard_gas_limit_per_operation c = let constants = Raw_context.constants c in constants.hard_gas_limit_per_operation diff --git a/src/proto_alpha/lib_protocol/main.ml b/src/proto_alpha/lib_protocol/main.ml index ec05389ca167..0d60dea22511 100644 --- a/src/proto_alpha/lib_protocol/main.ml +++ b/src/proto_alpha/lib_protocol/main.ml @@ -81,10 +81,12 @@ type validation_mode = | Application of { block_header : Alpha_context.Block_header.t ; baker : Alpha_context.public_key_hash ; + block_delay : Alpha_context.Period.t ; } | Partial_application of { block_header : Alpha_context.Block_header.t ; baker : Alpha_context.public_key_hash ; + block_delay : Alpha_context.Period.t ; } | Partial_construction of { predecessor : Block_hash.t ; @@ -93,6 +95,7 @@ type validation_mode = predecessor : Block_hash.t ; protocol_data : Alpha_context.Block_header.contents ; baker : Alpha_context.public_key_hash ; + block_delay : Alpha_context.Period.t ; } type validation_state = @@ -116,10 +119,10 @@ let begin_partial_application let timestamp = block_header.shell.timestamp in Alpha_context.prepare ~level ~timestamp ~fitness ctxt >>=? fun ctxt -> Apply.begin_application - ctxt chain_id block_header predecessor_timestamp >>=? fun (ctxt, baker) -> + ctxt chain_id block_header predecessor_timestamp >>=? fun (ctxt, baker, block_delay) -> let mode = Partial_application - { block_header ; baker = Signature.Public_key.hash baker } in + { block_header ; baker = Signature.Public_key.hash baker ; block_delay } in return { mode ; chain_id ; ctxt ; op_count = 0 } let begin_application @@ -133,8 +136,9 @@ let begin_application let timestamp = block_header.shell.timestamp in Alpha_context.prepare ~level ~timestamp ~fitness ctxt >>=? fun ctxt -> Apply.begin_application - ctxt chain_id block_header predecessor_timestamp >>=? fun (ctxt, baker) -> - let mode = Application { block_header ; baker = Signature.Public_key.hash baker } in + ctxt chain_id block_header predecessor_timestamp >>=? fun (ctxt, baker, block_delay) -> + let mode = + Application { block_header ; baker = Signature.Public_key.hash baker ; block_delay } in return { mode ; chain_id ; ctxt ; op_count = 0 } let begin_construction @@ -159,10 +163,10 @@ let begin_construction | Some proto_header -> Apply.begin_full_construction ctxt pred_timestamp - proto_header.contents >>=? fun (ctxt, protocol_data, baker) -> + proto_header.contents >>=? fun (ctxt, protocol_data, baker, block_delay) -> let mode = let baker = Signature.Public_key.hash baker in - Full_construction { predecessor ; baker ; protocol_data } in + Full_construction { predecessor ; baker ; protocol_data ; block_delay } in return (mode, ctxt) end >>=? fun (mode, ctxt) -> return { mode ; chain_id ; ctxt ; op_count = 0 } @@ -224,8 +228,12 @@ let finalize_block { mode ; ctxt ; op_count } = consumed_gas = Z.zero ; deactivated = []; balance_updates = []}) - | Partial_application { baker ; _ } -> - let level = Alpha_context. Level.current ctxt in + | Partial_application { block_header ; baker ; block_delay } -> + let level = Alpha_context.Level.current ctxt in + let included_endorsements = Alpha_context.included_endorsements ctxt in + Apply.check_minimum_endorsements ctxt + block_header.protocol_data.contents + block_delay included_endorsements >>=? fun () -> Alpha_context.Vote.get_current_period_kind ctxt >>=? fun voting_period_kind -> let ctxt = Alpha_context.finalize ctxt in return (ctxt, Apply_results.{ baker ; @@ -236,9 +244,9 @@ let finalize_block { mode ; ctxt ; op_count } = deactivated = []; balance_updates = []}) | Application - { baker ; block_header = { protocol_data = { contents = protocol_data ; _ } ; _ } } - | Full_construction { protocol_data ; baker ; _ } -> - Apply.finalize_application ctxt protocol_data baker >>=? fun (ctxt, receipt) -> + { baker ; block_delay ; block_header = { protocol_data = { contents = protocol_data ; _ } ; _ } } + | Full_construction { protocol_data ; baker ; block_delay ; _ } -> + Apply.finalize_application ctxt protocol_data baker ~block_delay >>=? fun (ctxt, receipt) -> let level = Alpha_context.Level.current ctxt in let priority = protocol_data.priority in let raw_level = Alpha_context.Raw_level.to_int32 level.level in diff --git a/src/proto_alpha/lib_protocol/main.mli b/src/proto_alpha/lib_protocol/main.mli index bde08a85e32b..c0d9f66c35c2 100644 --- a/src/proto_alpha/lib_protocol/main.mli +++ b/src/proto_alpha/lib_protocol/main.mli @@ -29,10 +29,12 @@ type validation_mode = | Application of { block_header : Alpha_context.Block_header.t ; baker : Alpha_context.public_key_hash ; + block_delay : Alpha_context.Period.t ; } | Partial_application of { block_header : Alpha_context.Block_header.t ; baker : Alpha_context.public_key_hash ; + block_delay : Alpha_context.Period.t ; } | Partial_construction of { predecessor : Block_hash.t ; @@ -41,6 +43,7 @@ type validation_mode = predecessor : Block_hash.t ; protocol_data : Alpha_context.Block_header.contents ; baker : Alpha_context.public_key_hash ; + block_delay : Alpha_context.Period.t ; } type validation_state = diff --git a/src/proto_alpha/lib_protocol/raw_context.ml b/src/proto_alpha/lib_protocol/raw_context.ml index 2c10c4a0fb92..91875c494251 100644 --- a/src/proto_alpha/lib_protocol/raw_context.ml +++ b/src/proto_alpha/lib_protocol/raw_context.ml @@ -33,6 +33,7 @@ type t = { timestamp: Time.t ; fitness: Int64.t ; deposits: Tez_repr.t Signature.Public_key_hash.Map.t ; + included_endorsements: int ; allowed_endorsements: (Signature.Public_key.t * int list * bool) Signature.Public_key_hash.Map.t ; fees: Tez_repr.t ; @@ -62,6 +63,7 @@ let record_endorsement ctxt k = | Some (_, _, true) -> assert false (* right already used *) | Some (d, s, false) -> { ctxt with + included_endorsements = ctxt.included_endorsements + (List.length s); allowed_endorsements = Signature.Public_key_hash.Map.add k (d,s,true) ctxt.allowed_endorsements } @@ -77,6 +79,8 @@ let init_endorsements ctxt allowed_endorsements = let allowed_endorsements ctxt = ctxt.allowed_endorsements +let included_endorsements ctxt = ctxt.included_endorsements + type error += Too_many_internal_operations (* `Permanent *) let () = @@ -461,6 +465,7 @@ let prepare ~level ~timestamp ~fitness ctxt = context = ctxt ; constants ; level ; timestamp ; fitness ; first_level ; allowed_endorsements = Signature.Public_key_hash.Map.empty ; + included_endorsements = 0 ; fees = Tez_repr.zero ; rewards = Tez_repr.zero ; deposits = Signature.Public_key_hash.Map.empty ; diff --git a/src/proto_alpha/lib_protocol/raw_context.mli b/src/proto_alpha/lib_protocol/raw_context.mli index d8c1ce66e2b3..6d54e267871e 100644 --- a/src/proto_alpha/lib_protocol/raw_context.mli +++ b/src/proto_alpha/lib_protocol/raw_context.mli @@ -238,6 +238,9 @@ val allowed_endorsements: context -> (Signature.Public_key.t * int list * bool) Signature.Public_key_hash.Map.t +(** Keep track of the number of endorsements that are included in a block *) +val included_endorsements: context -> int + (** Initializes the map of allowed endorsements, this function must only be called once. *) val init_endorsements: diff --git a/src/proto_alpha/lib_protocol/time_repr.ml b/src/proto_alpha/lib_protocol/time_repr.ml index cf81a00193c8..1709ca358127 100644 --- a/src/proto_alpha/lib_protocol/time_repr.ml +++ b/src/proto_alpha/lib_protocol/time_repr.ml @@ -27,6 +27,7 @@ include Time type time = t type error += Timestamp_add (* `Permanent *) +type error += Timestamp_sub (* `Permanent *) let () = register_error_kind @@ -38,7 +39,17 @@ let () = Format.fprintf ppf "Overflow when adding timestamps.") Data_encoding.empty (function Timestamp_add -> Some () | _ -> None) - (fun () -> Timestamp_add) + (fun () -> Timestamp_add); + register_error_kind + `Permanent + ~id:"timestamp_sub" + ~title:"Timestamp sub" + ~description:"Substracting timestamps resulted in negative period." + ~pp:(fun ppf () -> + Format.fprintf ppf "Substracting timestamps resulted in negative period.") + Data_encoding.empty + (function Timestamp_sub -> Some () | _ -> None) + (fun () -> Timestamp_sub) let of_seconds s = try Some (of_seconds (Int64.of_string s)) @@ -49,6 +60,9 @@ let to_seconds_string s = Int64.to_string (to_seconds s) let pp = pp_hum let (+?) x y = - (* TODO check overflow *) try ok (add x (Period_repr.to_seconds y)) - with _exn -> Error [ Timestamp_add ] + with _exn -> error Timestamp_add + +let (-?) x y = + record_trace Timestamp_sub + (Period_repr.of_seconds (diff x y)) diff --git a/src/proto_alpha/lib_protocol/time_repr.mli b/src/proto_alpha/lib_protocol/time_repr.mli index 4269fe68cc7a..3cb96922f9f9 100644 --- a/src/proto_alpha/lib_protocol/time_repr.mli +++ b/src/proto_alpha/lib_protocol/time_repr.mli @@ -31,4 +31,5 @@ val of_seconds: string -> time option val to_seconds_string: time -> string val (+?) : time -> Period_repr.t -> time tzresult +val (-?) : time -> time -> Period_repr.t tzresult -- GitLab From 9927cafcc23a6bd285810ba0013d7efab018b9c6 Mon Sep 17 00:00:00 2001 From: Marco Stronati Date: Thu, 20 Jun 2019 14:42:45 +0200 Subject: [PATCH 013/252] Proto/Migration: constants for Emmy+ This patches stores the initial values for the new protocol parameters introduced by Emmy+. --- src/proto_alpha/lib_protocol/raw_context.ml | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/proto_alpha/lib_protocol/raw_context.ml b/src/proto_alpha/lib_protocol/raw_context.ml index 91875c494251..2c1f2cd4b8a6 100644 --- a/src/proto_alpha/lib_protocol/raw_context.ml +++ b/src/proto_alpha/lib_protocol/raw_context.ml @@ -520,7 +520,8 @@ let prepare_first_block ~level ~timestamp ~fitness ctxt = blocks_per_commitment = c.blocks_per_commitment ; blocks_per_roll_snapshot = c.blocks_per_roll_snapshot ; blocks_per_voting_period = c.blocks_per_voting_period ; - time_between_blocks = c.time_between_blocks ; + time_between_blocks = + List.map Period_repr.of_seconds_exn [ 60L ; 40L ] ; endorsers_per_block = c.endorsers_per_block ; hard_gas_limit_per_operation = c.hard_gas_limit_per_operation ; hard_gas_limit_per_block = c.hard_gas_limit_per_block ; @@ -538,6 +539,8 @@ let prepare_first_block ~level ~timestamp ~fitness ctxt = test_chain_duration = c.test_chain_duration ; quorum_min = 20_00l ; (* quorum is in centile of a percentage *) quorum_max = 70_00l ; + initial_endorsers = 24 ; + delay_per_missing_endorsement = Period_repr.of_seconds_exn 8L ; } in set_constants ctxt constants >>= fun ctxt -> return ctxt -- GitLab From 391e3fc5c3e1abb787454529f16cd07a6b395ea0 Mon Sep 17 00:00:00 2001 From: Pierre Chambart Date: Fri, 10 May 2019 21:58:07 +0200 Subject: [PATCH 014/252] Proto: add RPCs to query the required endorsement constraints This patch adds the necessary RPCs to implement the baker for Emmy+. Developers of analytics tools or explorers may also want to use these new RPCs. --- .../lib_protocol/alpha_context.mli | 2 + .../lib_protocol/delegate_services.ml | 129 +++++++++++++++++- .../lib_protocol/delegate_services.mli | 42 ++++++ src/proto_alpha/lib_protocol/period_repr.ml | 3 + src/proto_alpha/lib_protocol/period_repr.mli | 2 + 5 files changed, 177 insertions(+), 1 deletion(-) diff --git a/src/proto_alpha/lib_protocol/alpha_context.mli b/src/proto_alpha/lib_protocol/alpha_context.mli index c504a3d9e6e6..3c9a75be9895 100644 --- a/src/proto_alpha/lib_protocol/alpha_context.mli +++ b/src/proto_alpha/lib_protocol/alpha_context.mli @@ -65,11 +65,13 @@ module Period : sig include BASIC_DATA type period = t + val rpc_arg: period RPC_arg.arg val of_seconds: int64 -> period tzresult val to_seconds: period -> int64 val mult: int32 -> period -> period tzresult + val zero: period val one_second: period val one_minute: period val one_hour: period diff --git a/src/proto_alpha/lib_protocol/delegate_services.ml b/src/proto_alpha/lib_protocol/delegate_services.ml index 1f01c3cef73e..88d6547c791f 100644 --- a/src/proto_alpha/lib_protocol/delegate_services.ml +++ b/src/proto_alpha/lib_protocol/delegate_services.ml @@ -534,10 +534,128 @@ module Endorsing_rights = struct end +module Endorsing_power = struct + + let endorsing_power ctxt (operation, chain_id) = + let Operation_data data = operation.protocol_data in + match data.contents with + | Single Endorsement _ -> + Baking.check_endorsement_rights ctxt chain_id { + shell = operation.shell ; + protocol_data = data ; + } >>=? fun (_, slots, _) -> + return (List.length slots) + | _ -> + failwith "Operation is not an endorsement" + + module S = struct + let endorsing_power = + let open Data_encoding in + RPC_service.post_service + ~description:"Get the endorsing power of an endorsement, that is, \ + the number of slots that the endorser has" + ~query: RPC_query.empty + ~input: (obj2 + (req "endorsement_operation" Operation.encoding) + (req "chain_id" Chain_id.encoding)) + ~output: int31 + RPC_path.(open_root / "endorsing_power") + end + + let register () = + let open Services_registration in + register0 S.endorsing_power begin fun ctxt () (op, chain_id) -> + endorsing_power ctxt (op, chain_id) + end + + let get ctxt block op chain_id = + RPC_context.make_call0 S.endorsing_power ctxt block () (op, chain_id) + +end + +module Required_endorsements = struct + + let required_endorsements ctxt block_delay = + return (Baking.minimum_allowed_endorsements ctxt ~block_delay) + + module S = struct + + type t = { block_delay : Period.t } + + let required_endorsements_query = + let open RPC_query in + query (fun block_delay -> { block_delay }) + |+ field "block_delay" Period.rpc_arg Period.zero (fun t -> t.block_delay) + |> seal + + let required_endorsements = + let open Data_encoding in + RPC_service.get_service + ~description:"Minimum number of endorsements for a block to be \ + valid, given a delay of the block's timestamp with \ + respect to the minimum time to bake at the \ + block's priority" + ~query: required_endorsements_query + ~output: int31 + RPC_path.(open_root / "required_endorsements") + end + + let register () = + let open Services_registration in + register0 S.required_endorsements begin fun ctxt ({ block_delay }) () -> + required_endorsements ctxt block_delay + end + + let get ctxt block block_delay = + RPC_context.make_call0 S.required_endorsements ctxt block { block_delay } () + +end + +module Minimal_valid_time = struct + + let minimal_valid_time ctxt ~priority ~endorsing_power = + Baking.minimal_valid_time ctxt + ~priority ~endorsing_power + + module S = struct + + type t = { priority : int ; + endorsing_power : int } + + let minimal_valid_time_query = + let open RPC_query in + query (fun priority endorsing_power -> + { priority ; endorsing_power }) + |+ field "priority" RPC_arg.int 0 (fun t -> t.priority) + |+ field "endorsing_power" RPC_arg.int 0 (fun t -> t.endorsing_power) + |> seal + + let minimal_valid_time = + RPC_service.get_service + ~description: "Minimal valid time for a block given a priority \ + and an endorsing power." + ~query: minimal_valid_time_query + ~output: Time.encoding + RPC_path.(open_root / "minimal_valid_time") + end + + let register () = + let open Services_registration in + register0 S.minimal_valid_time begin fun ctxt { priority ; endorsing_power } () -> + minimal_valid_time ctxt ~priority ~endorsing_power + end + + let get ctxt block priority endorsing_power = + RPC_context.make_call0 S.minimal_valid_time ctxt block { priority ; endorsing_power } () +end + let register () = register () ; Baking_rights.register () ; - Endorsing_rights.register () + Endorsing_rights.register () ; + Endorsing_power.register () ; + Required_endorsements.register () ; + Minimal_valid_time.register () let endorsement_rights ctxt level = Endorsing_rights.endorsement_slots ctxt (level, None) >>=? fun l -> @@ -551,3 +669,12 @@ let baking_rights ctxt max_priority = List.map (fun { Baking_rights.delegate ; timestamp ; _ } -> (delegate, timestamp)) l) + +let endorsing_power ctxt operation = + Endorsing_power.endorsing_power ctxt operation + +let required_endorsements ctxt delay = + Required_endorsements.required_endorsements ctxt delay + +let minimal_valid_time ctxt priority endorsing_power = + Minimal_valid_time.minimal_valid_time ctxt priority endorsing_power diff --git a/src/proto_alpha/lib_protocol/delegate_services.mli b/src/proto_alpha/lib_protocol/delegate_services.mli index 4061a665c22f..64384463d3a9 100644 --- a/src/proto_alpha/lib_protocol/delegate_services.mli +++ b/src/proto_alpha/lib_protocol/delegate_services.mli @@ -162,6 +162,32 @@ module Endorsing_rights : sig end +module Endorsing_power : sig + + val get: + 'a #RPC_context.simple -> 'a -> + Alpha_context.packed_operation -> + Chain_id.t -> + int shell_tzresult Lwt.t + +end + +module Required_endorsements : sig + + val get: + 'a #RPC_context.simple -> 'a -> + Period.t -> int shell_tzresult Lwt.t + +end + +module Minimal_valid_time : sig + + val get: + 'a #RPC_context.simple -> 'a -> + int -> int -> Time.t shell_tzresult Lwt.t + +end + (* temporary export for deprecated unit test *) val endorsement_rights: Alpha_context.t -> @@ -173,4 +199,20 @@ val baking_rights: int option -> (Raw_level.t * (public_key_hash * Time.t option) list) tzresult Lwt.t +val endorsing_power: + Alpha_context.t -> + (Alpha_context.packed_operation * Chain_id.t) -> + int tzresult Lwt.t + +val required_endorsements: + Alpha_context.t -> + Alpha_context.Period.t -> + int tzresult Lwt.t + +val minimal_valid_time: + Alpha_context.t -> + int -> + int -> + Time.t tzresult Lwt.t + val register: unit -> unit diff --git a/src/proto_alpha/lib_protocol/period_repr.ml b/src/proto_alpha/lib_protocol/period_repr.ml index f1a97d561acf..3719221f4c84 100644 --- a/src/proto_alpha/lib_protocol/period_repr.ml +++ b/src/proto_alpha/lib_protocol/period_repr.ml @@ -28,6 +28,8 @@ type period = t include (Compare.Int64 : Compare.S with type t := t) let encoding = Data_encoding.int64 +let rpc_arg = RPC_arg.int64 + let pp ppf v = Format.fprintf ppf "%Ld" v type error += (* `Permanent *) @@ -73,6 +75,7 @@ let mult i p = then error Invalid_arg else ok (Int64.mul (Int64.of_int32 i) p) +let zero = of_seconds_exn 0L let one_second = of_seconds_exn 1L let one_minute = of_seconds_exn 60L let one_hour = of_seconds_exn 3600L diff --git a/src/proto_alpha/lib_protocol/period_repr.mli b/src/proto_alpha/lib_protocol/period_repr.mli index 555b704dfdc9..a84fba7d239e 100644 --- a/src/proto_alpha/lib_protocol/period_repr.mli +++ b/src/proto_alpha/lib_protocol/period_repr.mli @@ -27,6 +27,7 @@ type t type period = t include Compare.S with type t := t val encoding : period Data_encoding.t +val rpc_arg : period RPC_arg.t val pp: Format.formatter -> period -> unit @@ -41,6 +42,7 @@ val of_seconds_exn : int64 -> period val mult : int32 -> period -> period tzresult +val zero : period val one_second : period val one_minute : period val one_hour : period -- GitLab From a122ff05904a5b81969c9d2daaf1726827bd8575 Mon Sep 17 00:00:00 2001 From: Vincent Botbol Date: Fri, 3 May 2019 16:19:16 +0200 Subject: [PATCH 015/252] Proto: freeze endorsement deposits at operation application In Athens and before, endorsement deposits where taken at the end of the block validation, after the transactions, including transaction from the endorsers' accounts. This made things more difficult for the baker, and led to a few mishaps in the past. This patch changes that behaviour, so that endorsement deposits are taken before transactions are evaluated. --- src/proto_alpha/lib_protocol/apply.ml | 13 ++++--------- src/proto_alpha/lib_protocol/helpers_services.ml | 2 +- src/proto_alpha/lib_protocol/main.ml | 8 +------- 3 files changed, 6 insertions(+), 17 deletions(-) diff --git a/src/proto_alpha/lib_protocol/apply.ml b/src/proto_alpha/lib_protocol/apply.ml index d4b1ff251a2a..83fa6298a80e 100644 --- a/src/proto_alpha/lib_protocol/apply.ml +++ b/src/proto_alpha/lib_protocol/apply.ml @@ -799,7 +799,7 @@ let apply_manager_contents_list ctxt mode baker contents_list = | `Success ctxt -> Lwt.return (ctxt, results) let apply_contents_list - (type kind) ctxt ~partial chain_id mode pred_block baker + (type kind) ctxt chain_id mode pred_block baker (operation : kind operation) (contents_list : kind contents_list) : (context * kind contents_result_list) tzresult Lwt.t = @@ -821,12 +821,7 @@ let apply_contents_list Lwt.return Tez.(Constants.endorsement_security_deposit ctxt *? Int64.of_int gap) >>=? fun deposit -> - begin - if partial then - Delegate.freeze_deposit ctxt delegate deposit - else - add_deposit ctxt delegate deposit - end >>=? fun ctxt -> + Delegate.freeze_deposit ctxt delegate deposit >>=? fun ctxt -> Global.get_last_block_priority ctxt >>=? fun block_priority -> Baking.endorsement_reward ctxt ~block_priority gap >>=? fun reward -> Delegate.freeze_rewards ctxt delegate reward >>=? fun ctxt -> @@ -977,10 +972,10 @@ let apply_contents_list apply_manager_contents_list ctxt mode baker op >>= fun (ctxt, result) -> return (ctxt, result) -let apply_operation ctxt ~partial chain_id mode pred_block baker hash operation = +let apply_operation ctxt chain_id mode pred_block baker hash operation = let ctxt = Contract.init_origination_nonce ctxt hash in apply_contents_list - ctxt ~partial chain_id mode pred_block baker operation + ctxt chain_id mode pred_block baker operation operation.protocol_data.contents >>=? fun (ctxt, result) -> let ctxt = Gas.set_unlimited ctxt in let ctxt = Contract.unset_origination_nonce ctxt in diff --git a/src/proto_alpha/lib_protocol/helpers_services.ml b/src/proto_alpha/lib_protocol/helpers_services.ml index 72702850782f..e768c5d4ba81 100644 --- a/src/proto_alpha/lib_protocol/helpers_services.ml +++ b/src/proto_alpha/lib_protocol/helpers_services.ml @@ -318,7 +318,7 @@ module Scripts = struct return result | _ -> Apply.apply_contents_list - ctxt ~partial:true Chain_id.zero Optimized shell.branch baker operation + ctxt Chain_id.zero Optimized shell.branch baker operation operation.protocol_data.contents >>=? fun (_ctxt, result) -> return result diff --git a/src/proto_alpha/lib_protocol/main.ml b/src/proto_alpha/lib_protocol/main.ml index 0d60dea22511..a094e57b0903 100644 --- a/src/proto_alpha/lib_protocol/main.ml +++ b/src/proto_alpha/lib_protocol/main.ml @@ -196,13 +196,7 @@ let apply_operation | Partial_construction { predecessor } -> predecessor, Signature.Public_key_hash.zero in - let partial = - match mode with - | Partial_construction _ -> true - | Application _ - | Full_construction _ - | Partial_application _ -> false in - Apply.apply_operation ~partial ctxt chain_id Optimized predecessor baker + Apply.apply_operation ctxt chain_id Optimized predecessor baker (Alpha_context.Operation.hash operation) operation >>=? fun (ctxt, result) -> let op_count = op_count + 1 in -- GitLab From dca3a6d27d73c93b676f2c64a3430ce34d69f148 Mon Sep 17 00:00:00 2001 From: Eugen Zalinescu Date: Fri, 7 Jun 2019 14:24:55 +0200 Subject: [PATCH 016/252] Proto: rewards depend on block priority Contains a BREAKING CHANGE (see end of message). The baking reward is now calculated w.r.t a given priority [p] and a number [e] of included endorsements as follows: (block_reward / (p+1)) * (0.8 + 0.2 * e / endorsers_per_block) Explorers or bakers that recompute the reward by themselves should implement this new formula. Those who use the block receipts should be fine. --- src/proto_alpha/lib_protocol/alpha_context.ml | 4 +- .../lib_protocol/alpha_context.mli | 4 +- src/proto_alpha/lib_protocol/apply.ml | 37 ++++++++++--------- src/proto_alpha/lib_protocol/baking.ml | 30 ++++++++++++++- src/proto_alpha/lib_protocol/baking.mli | 13 +++++-- src/proto_alpha/lib_protocol/init_storage.ml | 2 +- src/proto_alpha/lib_protocol/storage.ml | 6 +-- src/proto_alpha/lib_protocol/storage.mli | 2 +- 8 files changed, 68 insertions(+), 30 deletions(-) diff --git a/src/proto_alpha/lib_protocol/alpha_context.ml b/src/proto_alpha/lib_protocol/alpha_context.ml index 09dcebb54a4d..10d0accf5b5e 100644 --- a/src/proto_alpha/lib_protocol/alpha_context.ml +++ b/src/proto_alpha/lib_protocol/alpha_context.ml @@ -148,8 +148,8 @@ module Commitment = struct end module Global = struct - let get_last_block_priority = Storage.Last_block_priority.get - let set_last_block_priority = Storage.Last_block_priority.set + let get_block_priority = Storage.Block_priority.get + let set_block_priority = Storage.Block_priority.set end let prepare_first_block = Init_storage.prepare_first_block diff --git a/src/proto_alpha/lib_protocol/alpha_context.mli b/src/proto_alpha/lib_protocol/alpha_context.mli index 3c9a75be9895..d730a2dc3ac4 100644 --- a/src/proto_alpha/lib_protocol/alpha_context.mli +++ b/src/proto_alpha/lib_protocol/alpha_context.mli @@ -1124,8 +1124,8 @@ end module Global : sig - val get_last_block_priority: context -> int tzresult Lwt.t - val set_last_block_priority: context -> int -> context tzresult Lwt.t + val get_block_priority: context -> int tzresult Lwt.t + val set_block_priority: context -> int -> context tzresult Lwt.t end diff --git a/src/proto_alpha/lib_protocol/apply.ml b/src/proto_alpha/lib_protocol/apply.ml index 83fa6298a80e..80d510ab4fc2 100644 --- a/src/proto_alpha/lib_protocol/apply.ml +++ b/src/proto_alpha/lib_protocol/apply.ml @@ -822,8 +822,8 @@ let apply_contents_list Tez.(Constants.endorsement_security_deposit ctxt *? Int64.of_int gap) >>=? fun deposit -> Delegate.freeze_deposit ctxt delegate deposit >>=? fun ctxt -> - Global.get_last_block_priority ctxt >>=? fun block_priority -> - Baking.endorsement_reward ctxt ~block_priority gap >>=? fun reward -> + Global.get_block_priority ctxt >>=? fun block_priority -> + Baking.endorsing_reward ctxt ~block_priority gap >>=? fun reward -> Delegate.freeze_rewards ctxt delegate reward >>=? fun ctxt -> let level = Level.from_raw ctxt level in return (ctxt, Single_result @@ -1004,6 +1004,8 @@ let may_start_new_cycle ctxt = return (ctxt, update_balances, deactivated) let begin_full_construction ctxt pred_timestamp protocol_data = + Alpha_context.Global.set_block_priority ctxt + protocol_data.Block_header.priority >>=? fun ctxt -> Baking.check_baking_rights ctxt protocol_data pred_timestamp >>=? fun (delegate_pk, block_delay) -> let ctxt = Fitness.increase ctxt in @@ -1024,6 +1026,8 @@ let begin_partial_construction ctxt = return ctxt let begin_application ctxt chain_id block_header pred_timestamp = + Alpha_context.Global.set_block_priority ctxt + block_header.Block_header.protocol_data.contents.priority >>=? fun ctxt -> let current_level = Alpha_context.Level.current ctxt in Baking.check_proof_of_work_stamp ctxt block_header >>=? fun () -> Baking.check_fitness_gap ctxt block_header >>=? fun () -> @@ -1047,24 +1051,25 @@ let begin_application ctxt chain_id block_header pred_timestamp = let ctxt = init_endorsements ctxt rights in return (ctxt, delegate_pk, block_delay) -let check_minimum_endorsements ctxt protocol_data block_delay = +let check_minimum_endorsements ctxt protocol_data block_delay included_endorsements = let minimum = Baking.minimum_allowed_endorsements ctxt ~block_delay in - let timestamp = Alpha_context.Timestamp.current ctxt in - if Compare.Int.(included_endorsements ctxt >= minimum) then - Ok () - else - error (Not_enough_endorsements_for_priority - { required = minimum ; - priority = protocol_data.Block_header.priority ; - endorsements = included_endorsements ctxt ; - timestamp }) + let timestamp = Timestamp.current ctxt in + fail_unless Compare.Int.(included_endorsements >= minimum) + (Not_enough_endorsements_for_priority + { required = minimum ; + priority = protocol_data.Block_header.priority ; + endorsements = included_endorsements ; + timestamp }) let finalize_application ctxt protocol_data delegate ~block_delay = - Lwt.return - (check_minimum_endorsements ctxt protocol_data block_delay) >>=? fun () -> + let included_endorsements = included_endorsements ctxt in + check_minimum_endorsements ctxt + protocol_data block_delay included_endorsements >>=? fun () -> let deposit = Constants.block_security_deposit ctxt in add_deposit ctxt delegate deposit >>=? fun ctxt -> - let reward = (Constants.block_reward ctxt) in + + Baking.baking_reward ctxt + ~block_priority:protocol_data.priority ~included_endorsements >>=? fun reward -> add_rewards ctxt reward >>=? fun ctxt -> Signature.Public_key_hash.Map.fold (fun delegate deposit ctxt -> @@ -1084,8 +1089,6 @@ let finalize_application ctxt protocol_data delegate ~block_delay = Nonce.record_hash ctxt { nonce_hash ; delegate ; rewards ; fees } end >>=? fun ctxt -> - Alpha_context.Global.set_last_block_priority - ctxt protocol_data.priority >>=? fun ctxt -> (* end of cycle *) may_snapshot_roll ctxt >>=? fun ctxt -> may_start_new_cycle ctxt >>=? fun (ctxt, balance_updates, deactivated) -> diff --git a/src/proto_alpha/lib_protocol/baking.ml b/src/proto_alpha/lib_protocol/baking.ml index 5e7bbd95e1f0..168e707088df 100644 --- a/src/proto_alpha/lib_protocol/baking.ml +++ b/src/proto_alpha/lib_protocol/baking.ml @@ -154,6 +154,7 @@ let check_baking_rights c { Block_header.priority ; _ } return (delegate, block_delay) type error += Incorrect_priority (* `Permanent *) +type error += Incorrect_number_of_endorsements (* `Permanent *) let () = register_error_kind @@ -167,7 +168,34 @@ let () = (function Incorrect_priority -> Some () | _ -> None) (fun () -> Incorrect_priority) -let endorsement_reward ctxt ~block_priority:prio n = +let () = + let description = "The number of endorsements must be non-negative and \ + at most the endosers_per_block constant." in + register_error_kind + `Permanent + ~id:"incorrect_number_of_endorsements" + ~title:"Incorrect number of endorsements" + ~description + ~pp:(fun ppf () -> Format.fprintf ppf "%s" description) + Data_encoding.unit + (function Incorrect_number_of_endorsements -> Some () | _ -> None) + (fun () -> Incorrect_number_of_endorsements) + +let baking_reward ctxt ~block_priority:prio ~included_endorsements:num_endo = + fail_unless Compare.Int.(prio >= 0) Incorrect_priority >>=? fun () -> + let max_endorsements = Constants.endorsers_per_block ctxt in + fail_unless Compare.Int.(num_endo >= 0 && num_endo <= max_endorsements) + Incorrect_number_of_endorsements >>=? fun () -> + let prio_factor_denominator = Int64.(succ (of_int prio)) in + let endo_factor_numerator = Int64.of_int (8 + 2 * num_endo / max_endorsements) in + let endo_factor_denominator = 10L in + Lwt.return + Tez.( + Constants.block_reward ctxt *? endo_factor_numerator >>? fun val1 -> + val1 /? endo_factor_denominator >>? fun val2 -> + val2 /? prio_factor_denominator) + +let endorsing_reward ctxt ~block_priority:prio n = if Compare.Int.(prio >= 0) then Lwt.return diff --git a/src/proto_alpha/lib_protocol/baking.mli b/src/proto_alpha/lib_protocol/baking.mli index 4cce944b3aa1..39cc2e8e2be2 100644 --- a/src/proto_alpha/lib_protocol/baking.mli +++ b/src/proto_alpha/lib_protocol/baking.mli @@ -63,8 +63,15 @@ val check_endorsement_rights: context -> Chain_id.t -> Kind.endorsement Operation.t -> (public_key_hash * int list * bool) tzresult Lwt.t -(** Returns the endorsement reward calculated w.r.t a given priority. *) -val endorsement_reward: context -> block_priority:int -> int -> Tez.t tzresult Lwt.t +(** Returns the baking reward calculated w.r.t a given priority [p] and a + number [e] of included endorsements as follows: + (block_reward / (p+1)) * (0.8 + 0.2 * e / endorsers_per_block) +*) +val baking_reward: context -> + block_priority:int -> included_endorsements:int -> Tez.t tzresult Lwt.t + +(** Returns the endorsing reward calculated w.r.t a given priority. *) +val endorsing_reward: context -> block_priority:int -> int -> Tez.t tzresult Lwt.t (** [baking_priorities ctxt level] is the lazy list of contract's public key hashes that are allowed to bake for [level]. *) @@ -135,7 +142,7 @@ val minimum_allowed_endorsements: context -> block_delay:Period.t -> int (** This is the somehow the dual of the previous function. Given a block priority and a number of endorsement slots (given by the - `endorsement_power` argument), it returns the minimum time at which + `endorsing_power` argument), it returns the minimum time at which the next block can be baked. *) val minimal_valid_time: context -> diff --git a/src/proto_alpha/lib_protocol/init_storage.ml b/src/proto_alpha/lib_protocol/init_storage.ml index 600e16fad643..4570f94bee83 100644 --- a/src/proto_alpha/lib_protocol/init_storage.ml +++ b/src/proto_alpha/lib_protocol/init_storage.ml @@ -41,7 +41,7 @@ let prepare_first_block ctxt ~typecheck ~level ~timestamp ~fitness = param.bootstrap_contracts >>=? fun ctxt -> Roll_storage.init_first_cycles ctxt >>=? fun ctxt -> Vote_storage.init ctxt >>=? fun ctxt -> - Storage.Last_block_priority.init ctxt 0 >>=? fun ctxt -> + Storage.Block_priority.init ctxt 0 >>=? fun ctxt -> Vote_storage.freeze_listings ctxt >>=? fun ctxt -> return ctxt | Alpha_previous -> diff --git a/src/proto_alpha/lib_protocol/storage.ml b/src/proto_alpha/lib_protocol/storage.ml index 65148be1838f..cf4c6ed453d3 100644 --- a/src/proto_alpha/lib_protocol/storage.ml +++ b/src/proto_alpha/lib_protocol/storage.ml @@ -66,10 +66,10 @@ module Make_index(H : Storage_description.INDEX) } end -module Last_block_priority = - Make_single_data_storage +module Block_priority = + Make_single_data_storage(Registered) (Raw_context) - (struct let name = ["last_block_priority"] end) + (struct let name = ["block_priority"] end) (Int) (** Contracts handling *) diff --git a/src/proto_alpha/lib_protocol/storage.mli b/src/proto_alpha/lib_protocol/storage.mli index e8278baa21d9..e3740ea35815 100644 --- a/src/proto_alpha/lib_protocol/storage.mli +++ b/src/proto_alpha/lib_protocol/storage.mli @@ -36,7 +36,7 @@ open Storage_sigs -module Last_block_priority : sig +module Block_priority : sig val get : Raw_context.t -> int tzresult Lwt.t val set : Raw_context.t -> int -> Raw_context.t tzresult Lwt.t val init : Raw_context.t -> int -> Raw_context.t tzresult Lwt.t -- GitLab From 04270e7ca172f000f28f8b31bc6378ea8606556b Mon Sep 17 00:00:00 2001 From: Marco Stronati Date: Thu, 20 Jun 2019 14:35:58 +0200 Subject: [PATCH 017/252] Proto/Migration: migrate last_block_priority to block_priority This patch migrates the context to include the current block priority instead of the one of the predecessor. This is needed for the new block reward schema introduced by the previous patch. --- src/proto_alpha/lib_protocol/init_storage.ml | 2 ++ src/proto_alpha/lib_protocol/storage.ml | 7 +++++++ src/proto_alpha/lib_protocol/storage.mli | 5 +++++ 3 files changed, 14 insertions(+) diff --git a/src/proto_alpha/lib_protocol/init_storage.ml b/src/proto_alpha/lib_protocol/init_storage.ml index 4570f94bee83..ed8a4097a469 100644 --- a/src/proto_alpha/lib_protocol/init_storage.ml +++ b/src/proto_alpha/lib_protocol/init_storage.ml @@ -48,6 +48,8 @@ let prepare_first_block ctxt ~typecheck ~level ~timestamp ~fitness = Storage.Vote.Current_quorum_004.get ctxt >>=? fun quorum -> Storage.Vote.Participation_ema.init ctxt quorum >>=? fun ctxt -> Storage.Vote.Current_quorum_004.delete ctxt >>=? fun ctxt -> + Storage.Block_priority.init ctxt 0 >>=? fun ctxt -> + Storage.Last_block_priority.delete ctxt >>=? fun ctxt -> return ctxt let prepare ctxt ~level ~timestamp ~fitness = diff --git a/src/proto_alpha/lib_protocol/storage.ml b/src/proto_alpha/lib_protocol/storage.ml index cf4c6ed453d3..f988b930a91c 100644 --- a/src/proto_alpha/lib_protocol/storage.ml +++ b/src/proto_alpha/lib_protocol/storage.ml @@ -72,6 +72,13 @@ module Block_priority = (struct let name = ["block_priority"] end) (Int) +(* Only for migration from 004 *) +module Last_block_priority = + Make_single_data_storage(Ghost) + (Raw_context) + (struct let name = ["last_block_priority"] end) + (Int) + (** Contracts handling *) module Contract = struct diff --git a/src/proto_alpha/lib_protocol/storage.mli b/src/proto_alpha/lib_protocol/storage.mli index e3740ea35815..282261624887 100644 --- a/src/proto_alpha/lib_protocol/storage.mli +++ b/src/proto_alpha/lib_protocol/storage.mli @@ -42,6 +42,11 @@ module Block_priority : sig val init : Raw_context.t -> int -> Raw_context.t tzresult Lwt.t end +(* Only for migration from 004 *) +module Last_block_priority : sig + val delete : Raw_context.t -> Raw_context.t tzresult Lwt.t +end + module Roll : sig (** Storage from this submodule must only be accessed through the -- GitLab From b2c315e5d9c9139a96780777c9a2b1d90f70aca2 Mon Sep 17 00:00:00 2001 From: Vincent Botbol Date: Fri, 3 May 2019 14:07:15 +0200 Subject: [PATCH 018/252] Baker: adapt baker code for Emmy+ This is not a patch for the protocol. It does not affect the hash, but is needed for the baker to work. - BREAKING CHANGE: remove the await_endorsement arg as it becomes mandatory. - Implement new heuristic to wait for endorsements - Adapt local validation to match the new validation semantics. - Fix "bake for --minimal-timestamp". - Prevent the creation of block with a timestamp in the future unless --force is given. --- .../lib_delegate/client_baking_blocks.ml | 2 +- .../lib_delegate/client_baking_forge.ml | 557 ++++++++---------- .../lib_delegate/client_baking_forge.mli | 2 - .../lib_delegate/client_baking_lib.ml | 8 +- .../lib_delegate/client_baking_lib.mli | 1 - src/proto_alpha/lib_delegate/client_daemon.ml | 5 +- .../lib_delegate/client_daemon.mli | 1 - .../lib_delegate/delegate_commands.ml | 14 +- 8 files changed, 252 insertions(+), 338 deletions(-) diff --git a/src/proto_alpha/lib_delegate/client_baking_blocks.ml b/src/proto_alpha/lib_delegate/client_baking_blocks.ml index 784b79d8cb35..eb2faacf9015 100644 --- a/src/proto_alpha/lib_delegate/client_baking_blocks.ml +++ b/src/proto_alpha/lib_delegate/client_baking_blocks.ml @@ -172,7 +172,7 @@ let blocks_from_current_cycle cctxt ?(chain = `Main) block ?(offset = 0l) () = >>=? fun {level; _} -> Alpha_services.Helpers.levels_in_current_cycle cctxt ~offset (chain, block) >>= function - | Error [RPC_context.Not_found _] -> + | Error (RPC_context.Not_found _ :: _) -> return_nil | Error _ as err -> Lwt.return err diff --git a/src/proto_alpha/lib_delegate/client_baking_forge.ml b/src/proto_alpha/lib_delegate/client_baking_forge.ml index 779d1e23a557..150ae4569226 100644 --- a/src/proto_alpha/lib_delegate/client_baking_forge.ml +++ b/src/proto_alpha/lib_delegate/client_baking_forge.ml @@ -59,7 +59,8 @@ let default_minimal_nanotez_per_gas_unit = Z.of_int 100 let default_minimal_nanotez_per_byte = Z.of_int 1000 -let default_await_endorsements = true +type slot = + Time.Protocol.t * (Client_baking_blocks.block_info * int * public_key_hash) type state = { context_path : string; @@ -76,20 +77,14 @@ type state = { minimal_nanotez_per_gas_unit : Z.t; (* Minimal operation fee per byte required to include an operation in a block *) minimal_nanotez_per_byte : Z.t; - (* Await endorsements *) - await_endorsements : bool; (* truly mutable *) - mutable best_slot : - ( Time.Protocol.t - * (Client_baking_blocks.block_info * int * public_key_hash) ) - option; + mutable best_slot : slot option; } let create_state ?(minimal_fees = default_minimal_fees) ?(minimal_nanotez_per_gas_unit = default_minimal_nanotez_per_gas_unit) - ?(minimal_nanotez_per_byte = default_minimal_nanotez_per_byte) - ?(await_endorsements = default_await_endorsements) context_path index - nonces_location delegates constants = + ?(minimal_nanotez_per_byte = default_minimal_nanotez_per_byte) context_path + index nonces_location delegates constants = { context_path; index; @@ -99,7 +94,6 @@ let create_state ?(minimal_fees = default_minimal_fees) minimal_fees; minimal_nanotez_per_gas_unit; minimal_nanotez_per_byte; - await_endorsements; best_slot = None; } @@ -161,6 +155,23 @@ let assert_valid_operations_hash shell_header operations = shell_header.Tezos_base.Block_header.operations_hash) (failure "Client_baking_forge.inject_block: inconsistent header.") +let compute_endorsing_power cctxt ~chain ~block operations = + Shell_services.Chain.chain_id cctxt ~chain () + >>=? fun chain_id -> + fold_left_s + (fun sum -> function + | { Alpha_context.protocol_data = + Operation_data {contents = Single (Endorsement _); _}; + _ } as op -> + Delegate_services.Endorsing_power.get + cctxt + (chain, block) + op + chain_id + >>=? fun power -> return (sum + power) | _ -> return sum) + 0 + operations + let inject_block cctxt ?(force = false) ?seed_nonce_hash ~chain ~shell_header ~priority ~delegate_pkh ~delegate_sk ~level operations = assert_valid_operations_hash shell_header operations @@ -448,20 +459,15 @@ let all_ops_valid (results : error Preapply_result.t list) = && is_empty result.branch_delayed) results -let decode_priority cctxt chain block = function +let decode_priority cctxt chain block ~priority ~endorsing_power = + match priority with | `Set priority -> - Alpha_services.Delegate.Baking_rights.get + Alpha_services.Delegate.Minimal_valid_time.get cctxt - ~all:true - ~max_priority:(priority + 1) (chain, block) - >>=? fun rights -> - let time = - Option.apply - ~f:(fun r -> r.Alpha_services.Delegate.Baking_rights.timestamp) - (List.nth_opt rights priority) - in - return (priority, time) + priority + endorsing_power + >>=? fun minimal_timestamp -> return (priority, minimal_timestamp) | `Auto (src_pkh, max_priority) -> ( Alpha_services.Helpers.current_level cctxt ~offset:1l (chain, block) >>=? fun {level; _} -> @@ -473,34 +479,36 @@ let decode_priority cctxt chain block = function (chain, block) >>=? fun possibilities -> try - let { Alpha_services.Delegate.Baking_rights.priority = prio; - timestamp = time; - _ } = + let {Alpha_services.Delegate.Baking_rights.priority = prio; _} = List.find (fun p -> p.Alpha_services.Delegate.Baking_rights.level = level) possibilities in - return (prio, time) + Alpha_services.Delegate.Minimal_valid_time.get + cctxt + (chain, block) + prio + endorsing_power + >>=? fun minimal_timestamp -> return (prio, minimal_timestamp) with Not_found -> failwith "No slot found at level %a" Raw_level.pp level ) -let unopt_timestamp timestamp minimal_timestamp = - match (timestamp, minimal_timestamp) with - | (None, None) -> - return (Time.System.to_protocol (Systime_os.now ())) - | (None, Some timestamp) -> - return timestamp - | (Some timestamp, None) -> - return timestamp - | (Some timestamp, Some minimal_timestamp) -> - if timestamp < minimal_timestamp then - failwith - "Proposed timestamp %a is earlier than minimal timestamp %a" - Time.Protocol.pp_hum - timestamp - Time.Protocol.pp_hum - minimal_timestamp - else return timestamp +let unopt_timestamp ?(force = false) timestamp minimal_timestamp = + let timestamp = + match timestamp with + | None -> + minimal_timestamp + | Some timestamp -> + timestamp + in + if (not force) && timestamp < minimal_timestamp then + failwith + "Proposed timestamp %a is earlier than minimal timestamp %a" + Time.Protocol.pp_hum + timestamp + Time.Protocol.pp_hum + minimal_timestamp + else return timestamp let merge_preapps (old : error Preapply_result.t) (neu : error Preapply_result.t) = @@ -542,17 +550,25 @@ let error_of_op (result : error Preapply_result.t) op = (op, snd @@ Operation_hash.Map.find h result.branch_delayed)) with Not_found -> None ) ) -let filter_and_apply_operations state block_info ~timestamp ?protocol_data +let filter_and_apply_operations cctxt state ~chain ~block block_info ~priority + ?protocol_data ((operations : packed_operation list list), overflowing_operations) = + (* Retrieve the minimal valid time for when the block can be baked with 0 endorsements *) + Delegate_services.Minimal_valid_time.get cctxt (chain, block) priority 0 + >>=? fun min_valid_timestamp -> let open Client_baking_simulator in lwt_debug Tag.DSL.( fun f -> - f "Starting client-side validation %a" + f "starting client-side validation after %a" -% t event "baking_local_validation_start" -% a Block_hash.Logging.tag block_info.Client_baking_blocks.hash) >>= fun () -> - begin_construction ~timestamp ?protocol_data state.index block_info + begin_construction + ~timestamp:min_valid_timestamp + ?protocol_data + state.index + block_info >>= (function | Ok inc -> return inc @@ -572,7 +588,11 @@ let filter_and_apply_operations state block_info ~timestamp ?protocol_data Client_baking_simulator.load_context ~context_path:state.context_path >>= fun index -> - begin_construction ~timestamp ?protocol_data index block_info + begin_construction + ~timestamp:min_valid_timestamp + ?protocol_data + index + block_info >>=? fun inc -> state.index <- index ; return inc) @@ -610,38 +630,24 @@ let filter_and_apply_operations state block_info ~timestamp ?protocol_data (inc, []) ops in - (* Invalid endorsements are detected during block finalization *) - let is_valid_endorsement inc endorsement = - validate_operation inc endorsement - >>= function - | None -> - Lwt.return_none - | Some inc' -> ( - finalize_construction inc' - >>= function - | Ok _ -> Lwt.return_some endorsement | Error _ -> Lwt.return_none ) - in - filter_valid_operations initial_inc votes + (* First pass : we filter out invalid operations by applying them in the correct order *) + filter_valid_operations initial_inc endorsements + >>= fun (inc, endorsements) -> + filter_valid_operations inc votes >>= fun (inc, votes) -> filter_valid_operations inc anonymous - >>= fun (inc, anonymous) -> + >>= fun (manager_inc, anonymous) -> (* Retrieve the correct index order *) let managers = List.sort Protocol.compare_operations managers in let overflowing_operations = List.sort Protocol.compare_operations overflowing_operations in - filter_valid_operations inc (managers @ overflowing_operations) + filter_valid_operations manager_inc (managers @ overflowing_operations) >>= fun (inc, managers) -> - (* Gives a chance to the endorser to fund their deposit in the current block *) - Lwt_list.filter_map_s (is_valid_endorsement inc) endorsements - >>= fun endorsements -> finalize_construction inc >>=? fun _ -> let quota : Environment.Updater.quota list = Main.validation_passes in - let {Constants.endorsers_per_block; hard_gas_limit_per_block; _} = - state.constants.parametric - in - let endorsements = List.sub (List.rev endorsements) endorsers_per_block in + let {Constants.hard_gas_limit_per_block; _} = state.constants.parametric in let votes = retain_operations_up_to_quota (List.rev votes) (List.nth quota votes_index) in @@ -650,19 +656,6 @@ let filter_and_apply_operations state block_info ~timestamp ?protocol_data (List.rev anonymous) (List.nth quota anonymous_index) in - let is_evidence = function - | { protocol_data = - Operation_data {contents = Single (Double_baking_evidence _); _}; - _ } -> - true - | { protocol_data = - Operation_data {contents = Single (Double_endorsement_evidence _); _}; - _ } -> - true - | _ -> - false - in - let (evidences, anonymous) = List.partition is_evidence anonymous in trim_manager_operations ~max_size:(List.nth quota managers_index).max_size ~hard_gas_limit_per_block @@ -672,37 +665,43 @@ let filter_and_apply_operations state block_info ~timestamp ?protocol_data let accepted_managers = List.sort Protocol.compare_operations accepted_managers in - (* Make sure we only keep valid operations *) - filter_valid_operations initial_inc votes - >>= fun (inc, votes) -> - filter_valid_operations inc anonymous - >>= fun (inc, anonymous) -> - filter_valid_operations inc accepted_managers - >>= fun (inc, accepted_managers) -> - Lwt_list.filter_map_s (is_valid_endorsement inc) endorsements - >>= fun endorsements -> - (* Endorsements won't fail now *) + (* Second pass : make sure we only keep valid operations *) + filter_valid_operations manager_inc accepted_managers + >>= fun (_, accepted_managers) -> + (* Put the operations back in order *) + let operations = + List.map List.rev [endorsements; votes; anonymous; accepted_managers] + in + (* Construct a context with the valid operations and a correct timestamp *) + compute_endorsing_power cctxt ~chain ~block endorsements + >>=? fun current_endorsing_power -> + Delegate_services.Minimal_valid_time.get + cctxt + (chain, block) + priority + current_endorsing_power + >>=? fun expected_validity -> + (* Finally, we construct a block with the minimal possible timestamp + given the endorsing power *) + begin_construction + ~timestamp:expected_validity + ?protocol_data + state.index + block_info + >>=? fun inc -> fold_left_s (fun inc op -> add_operation inc op >>=? fun (inc, _receipt) -> return inc) inc - endorsements - >>=? fun inc -> - (* Endorsement and double baking/endorsement evidence do not commute: - we apply denunciation operations after endorsements. *) - filter_valid_operations inc evidences - >>= fun (final_inc, evidences) -> - let operations = - List.map - List.rev - [endorsements; votes; anonymous @ evidences; accepted_managers] - in + (List.flatten operations) + >>=? fun final_inc -> finalize_construction final_inc >>=? fun (validation_result, metadata) -> - return (final_inc, (validation_result, metadata), operations) + return + (final_inc, (validation_result, metadata), operations, expected_validity) (* Build the block header : mimics node prevalidation *) -let finalize_block_header pred_shell_header ~timestamp validation_result - operations = +let finalize_block_header shell_header ~timestamp validation_result operations + = let {Tezos_protocol_environment.context; fitness; message; _} = validation_result in @@ -732,8 +731,8 @@ let finalize_block_header pred_shell_header ~timestamp validation_result let header = Tezos_base.Block_header. { - pred_shell_header with - level = Int32.succ pred_shell_header.level; + shell_header with + level = Int32.succ shell_header.level; validation_passes; operations_hash; fitness; @@ -745,16 +744,17 @@ let finalize_block_header pred_shell_header ~timestamp validation_result let forge_block cctxt ?force ?operations ?(best_effort = operations = None) ?(sort = best_effort) ?(minimal_fees = default_minimal_fees) ?(minimal_nanotez_per_gas_unit = default_minimal_nanotez_per_gas_unit) - ?(minimal_nanotez_per_byte = default_minimal_nanotez_per_byte) - ?(await_endorsements = default_await_endorsements) ?timestamp ?mempool - ?context_path ?seed_nonce_hash ~chain ~priority ~delegate_pkh ~delegate_sk - block = + ?(minimal_nanotez_per_byte = default_minimal_nanotez_per_byte) ?timestamp + ?mempool ?context_path ?seed_nonce_hash ~chain ~priority ~delegate_pkh + ~delegate_sk block = (* making the arguments usable *) unopt_operations cctxt chain mempool operations >>=? fun operations_arg -> - decode_priority cctxt chain block priority + compute_endorsing_power cctxt ~chain ~block operations_arg + >>=? fun endorsing_power -> + decode_priority cctxt chain block ~priority ~endorsing_power >>=? fun (priority, minimal_timestamp) -> - unopt_timestamp timestamp minimal_timestamp + unopt_timestamp ?force timestamp minimal_timestamp >>=? fun timestamp -> (* get basic building blocks *) let protocol_data = forge_faked_protocol_data ~priority ~seed_nonce_hash in @@ -832,19 +832,24 @@ let forge_block cctxt ?force ?operations ?(best_effort = operations = None) constants; delegates = []; best_slot = None; - await_endorsements; minimal_fees = default_minimal_fees; minimal_nanotez_per_gas_unit = default_minimal_nanotez_per_gas_unit; minimal_nanotez_per_byte = default_minimal_nanotez_per_byte; } in filter_and_apply_operations - ~timestamp - ~protocol_data + cctxt state + ~chain + ~block + ~priority + ~protocol_data bi (operations, overflowing_ops) - >>=? fun (final_context, (validation_result, _), operations) -> + >>=? fun ( final_context, + (validation_result, _), + operations, + min_valid_timestamp ) -> let current_protocol = bi.next_protocol in let context = Shell_context.unwrap_disk_context validation_result.context @@ -854,16 +859,16 @@ let forge_block cctxt ?force ?operations ?(best_effort = operations = None) if Protocol_hash.equal current_protocol next_protocol then finalize_block_header final_context.header - ~timestamp + ~timestamp:min_valid_timestamp validation_result operations >>= function - | Error [Forking_test_chain] -> + | Error (Forking_test_chain :: _) -> Alpha_block_services.Helpers.Preapply.block cctxt ~chain ~block - ~timestamp + ~timestamp:min_valid_timestamp ~sort ~protocol_data operations @@ -884,7 +889,7 @@ let forge_block cctxt ?force ?operations ?(best_effort = operations = None) cctxt ~chain ~block - ~timestamp + ~timestamp:min_valid_timestamp ~sort ~protocol_data operations @@ -898,8 +903,7 @@ let forge_block cctxt ?force ?operations ?(best_effort = operations = None) Tag.DSL.( fun f -> f - "Found %d valid operations (%d refused) for timestamp %a. Computed \ - fitness %a." + "found %d valid operations (%d refused) for timestamp %a (fitness %a)" -% t event "found_valid_operations" -% s valid_ops valid_op_count -% s refused_ops (total_op_count - valid_op_count) @@ -913,7 +917,7 @@ let forge_block cctxt ?force ?operations ?(best_effort = operations = None) lwt_log_error Tag.DSL.( fun f -> - f "@[Error on raw_level conversion : %a@]" + f "Error on raw_level conversion : %a" -% t event "block_injection_failed" -% a errs_tag errs) >>= fun () -> Lwt.return err ) @@ -945,8 +949,8 @@ let forge_block cctxt ?force ?operations ?(best_effort = operations = None) >>= fun () -> Lwt.return error let shell_prevalidation (cctxt : #Protocol_client_context.full) ~chain ~block - seed_nonce_hash operations ((timestamp, (bi, priority, delegate)) as _slot) - = + ~timestamp seed_nonce_hash operations + ((_, (bi, priority, delegate)) as _slot) = let protocol_data = forge_faked_protocol_data ~priority ~seed_nonce_hash in Alpha_block_services.Helpers.Preapply.block cctxt @@ -985,62 +989,11 @@ let filter_outdated_endorsements expected_level ops = true) ops -let next_baking_delay state priority = - let {Constants.parametric = {time_between_blocks; _}; _} = state.constants in - let rec associated_period durations prio = - if List.length durations = 0 then - (* Mimic [Baking.minimal_time] behaviour *) - associated_period [Period.one_minute] prio - else - match durations with - | [] -> - assert false - | [last] -> - Period.to_seconds last - | first :: durations -> - if prio = 0 then Period.to_seconds first - else associated_period durations (prio - 1) - in - let span = associated_period time_between_blocks (priority + 1) in - return span - -let count_slots_endorsements inc (_timestamp, (head, _priority, _delegate)) - operations = - Lwt_list.fold_left_s - (fun acc -> function - | { Alpha_context.protocol_data = - Operation_data {contents = Single (Endorsement {level; _}); _}; - _ } as op - when Raw_level.(level = head.Client_baking_blocks.level) -> ( - let open Apply_results in - Client_baking_simulator.add_operation inc op - >>= function - | Ok - ( _inc, - Operation_metadata - {contents = Single_result (Endorsement_result {slots; _})} ) - -> - Lwt.return (acc + List.length slots) - | Error _ | _ -> - (* We do not handle errors here *) - Lwt.return acc ) | _ -> Lwt.return acc) - 0 - operations - -let rec filter_limits tnow limits = - match limits with - | [] -> - [] - | (time, _) :: _ as limits when Time.Protocol.(tnow < time) -> - limits - | _ :: limits -> - filter_limits tnow limits - (** [fetch_operations] retrieve the operations present in the mempool. If no endorsements are present in the initial set, it - waits until [state.max_waiting_time] seconds after its injection range start date. *) -let fetch_operations (cctxt : #Protocol_client_context.full) ~chain state - ((timestamp, (head, priority, _delegate)) as slot) = + waits until it's able to build a valid block. *) +let fetch_operations (cctxt : #Protocol_client_context.full) ~chain + (_, (head, priority, _delegate)) = Alpha_block_services.Mempool.monitor_operations cctxt ~chain @@ -1054,139 +1007,79 @@ let fetch_operations (cctxt : #Protocol_client_context.full) ~chain state Lwt_stream.get operation_stream >>= function | None -> - (* New head received : not supposed to happen. *) + (* New head received : aborting block construction *) return_none | Some current_mempool -> + let block = `Hash (head.Client_baking_blocks.hash, 0) in let operations = - ref - (filter_outdated_endorsements - head.Client_baking_blocks.level - current_mempool) + ref (filter_outdated_endorsements head.level current_mempool) in - Client_baking_simulator.begin_construction ~timestamp state.index head - >>=? fun inc -> - count_slots_endorsements inc slot !operations - >>= fun nb_arrived_endorsements -> - (* If 100% of the endorsements arrived, we don't need to wait *) - let endorsers_per_block = - state.constants.parametric.endorsers_per_block + (* Actively request our peers' for missing operations *) + Shell_services.Mempool.request_operations cctxt ~chain () + >>=? fun () -> + let compute_minimal_valid_time () = + compute_endorsing_power cctxt ~chain ~block !operations + >>=? fun current_endorsing_power -> + Delegate_services.Minimal_valid_time.get + cctxt + (chain, block) + priority + current_endorsing_power in - if - (not state.await_endorsements) - || nb_arrived_endorsements = endorsers_per_block - then return_some !operations - else - next_baking_delay state priority - >>=? fun next_slot_delay -> - let hard_delay = Int64.div next_slot_delay 2L in - (* The time limit is defined as 1/2 of the next baking slot's time *) - let limit_date = Time.Protocol.add timestamp hard_delay in - (* Time limits : - - We expect all of the endorsements until 1/3 of the time limit has passed ; - - We expect 2/3 of the endorsements until 2/3 of the time limit has passed ; - - We expect 1/3 of the endorsements until the time limit has passed ; - - We bake with what we have when the time limit has been reached. - *) - let limits = - [ ( Time.Protocol.add timestamp (Int64.div hard_delay 3L), - endorsers_per_block ); - ( Time.Protocol.add - timestamp - (Int64.div (Int64.mul hard_delay 2L) 3L), - 2 * endorsers_per_block / 3 ); - (limit_date, endorsers_per_block / 3) ] - in - let timespan = - let timespan = - Ptime.diff - (Time.System.of_protocol_exn limit_date) - (Systime_os.now ()) - in - if Ptime.Span.compare timespan Ptime.Span.zero > 0 then timespan - else Ptime.Span.zero - in - lwt_log_notice - Tag.DSL.( - fun f -> - f - "Waiting until %a (%a) for more endorsements in the mempool \ - (%a/%a arrived)." - -% t event "waiting_operations" - -% a timestamp_tag (Time.System.of_protocol_exn limit_date) - -% a timespan_tag timespan - -% a op_count nb_arrived_endorsements - -% a op_count endorsers_per_block) - >>= fun () -> - Shell_services.Mempool.request_operations cctxt ~chain () - >>=? fun () -> - let timeout = - match Client_baking_scheduling.sleep_until limit_date with - | None -> - Lwt.return_unit - | Some timeout -> - timeout - in - let last_get_event = ref None in - let get_event () = - match !last_get_event with - | None -> - let t = Lwt_stream.get operation_stream in - last_get_event := Some t ; - t - | Some t -> - t - in - let rec loop nb_arrived_endorsements limits = - Lwt.choose - [ (timeout >|= fun () -> `Timeout); - (get_event () >|= fun e -> `Event e) ] - >>= function - | `Event (Some op_list) -> - last_get_event := None ; - operations := op_list @ !operations ; - count_slots_endorsements inc slot op_list - >>= fun new_endorsements -> - let nb_arrived_endorsements = - nb_arrived_endorsements + new_endorsements - in - let limits = - filter_limits - (Time.System.to_protocol (Systime_os.now ())) - limits - in - let required = - match limits with - | [] -> - 0 (* If we are late, we do not require endorsements *) - | (_time, required) :: _ -> - required - in - let enough = nb_arrived_endorsements >= required in - if enough then - let remaining_ops = - List.flatten (Lwt_stream.get_available operation_stream) - in - let filtered_ops = - filter_outdated_endorsements - head.level - (remaining_ops @ !operations) - in - return_some filtered_ops - else loop nb_arrived_endorsements limits - | `Timeout -> - return_some !operations - | `Event None -> - (* New head received. Should not happen : let the - caller handle this case. *) - return_none - in - loop nb_arrived_endorsements limits + let compute_timeout () = + compute_minimal_valid_time () + >>=? fun expected_validity -> + match Client_baking_scheduling.sleep_until expected_validity with + | None -> + return_unit + | Some timeout -> + timeout >>= fun () -> return_unit + in + let last_get_event = ref None in + let get_event () = + match !last_get_event with + | None -> + let t = Lwt_stream.get operation_stream in + last_get_event := Some t ; + t + | Some t -> + t + in + let rec loop () = + Lwt.choose + [ (compute_timeout () >|= fun _ -> `Timeout); + (get_event () >|= fun e -> `Event e) ] + >>= function + | `Event (Some op_list) -> + last_get_event := None ; + let op_list = filter_outdated_endorsements head.level op_list in + operations := op_list @ !operations ; + loop () + | `Timeout -> + (* Retrieve the remaining operations present in the stream + before block construction *) + let remaining_operations = + filter_outdated_endorsements + head.level + (List.flatten (Lwt_stream.get_available operation_stream)) + in + operations := remaining_operations @ !operations ; + compute_minimal_valid_time () + >>=? fun expected_validity -> + return_some (!operations, expected_validity) + | `Event None -> + (* Got new head while waiting: + - not enough endorsements received ; + - late at baking *) + return_none + in + loop () (** Given a delegate baking slot [build_block] constructs a full block with consistent operations that went through the client-side validation *) let build_block cctxt state seed_nonce_hash - ((timestamp, (bi, priority, delegate)) as slot) = + ((slot_timestamp, (bi, priority, delegate)) as slot) = let chain = `Hash bi.Client_baking_blocks.chain_id in let block = `Hash (bi.hash, 0) in Alpha_services.Helpers.current_level cctxt ~offset:1l (chain, block) @@ -1204,9 +1097,9 @@ let build_block cctxt state seed_nonce_hash -% a Block_hash.Logging.tag bi.hash -% s bake_priority_tag priority -% s Client_keys.Logging.tag name - -% a timestamp_tag (Time.System.of_protocol_exn timestamp)) + -% a timestamp_tag (Time.System.of_protocol_exn slot_timestamp)) >>= fun () -> - fetch_operations cctxt ~chain state slot + fetch_operations cctxt ~chain slot >>=? function | None -> lwt_log_notice @@ -1217,7 +1110,7 @@ let build_block cctxt state seed_nonce_hash this block." -% t event "new_head_received") >>= fun () -> return_none - | Some operations -> ( + | Some (operations, timestamp) -> ( let hard_gas_limit_per_block = state.constants.parametric.hard_gas_limit_per_block in @@ -1243,15 +1136,25 @@ let build_block cctxt state seed_nonce_hash in if Protocol_hash.(Protocol.hash <> next_version) then (* Let the shell validate this *) - shell_prevalidation cctxt ~chain ~block seed_nonce_hash operations slot + shell_prevalidation + cctxt + ~chain + ~block + ~timestamp + seed_nonce_hash + operations + slot else let protocol_data = forge_faked_protocol_data ~priority ~seed_nonce_hash in filter_and_apply_operations - ~timestamp - ~protocol_data + cctxt state + ~chain + ~block + ~priority + ~protocol_data bi (operations, overflowing_ops) >>= function @@ -1276,10 +1179,33 @@ let build_block cctxt state seed_nonce_hash cctxt ~chain ~block + ~timestamp seed_nonce_hash operations slot - | Ok (final_context, (validation_result, _), operations) -> + | Ok + (final_context, (validation_result, _), operations, valid_timestamp) + -> + ( if + Time.System.(Systime_os.now () < of_protocol_exn valid_timestamp) + then + lwt_log_notice + Tag.DSL.( + fun f -> + f "[%a] not ready to inject yet, waiting until %a" + -% a timestamp_tag (Systime_os.now ()) + -% a + timestamp_tag + (Time.System.of_protocol_exn valid_timestamp) + -% t event "waiting_before_injection") + >>= fun () -> + match Client_baking_scheduling.sleep_until valid_timestamp with + | None -> + Lwt.return_unit + | Some timeout -> + timeout + else Lwt.return_unit ) + >>= fun () -> lwt_debug Tag.DSL.( fun f -> @@ -1301,15 +1227,16 @@ let build_block cctxt state seed_nonce_hash if Protocol_hash.equal current_protocol next_protocol then finalize_block_header final_context.header - ~timestamp + ~timestamp:valid_timestamp validation_result operations >>= function - | Error [Forking_test_chain] -> + | Error (Forking_test_chain :: _) -> shell_prevalidation cctxt ~chain ~block + ~timestamp seed_nonce_hash operations slot @@ -1335,6 +1262,7 @@ let build_block cctxt state seed_nonce_hash cctxt ~chain ~block + ~timestamp seed_nonce_hash operations slot ) @@ -1574,8 +1502,8 @@ let reveal_potential_nonces (cctxt : #Client_context.full) constants ~chain starts individual baking operations when baking-slots are available to any of the [delegates] *) let create (cctxt : #Protocol_client_context.full) ?minimal_fees - ?minimal_nanotez_per_gas_unit ?minimal_nanotez_per_byte ?await_endorsements - ?max_priority ~chain ~context_path delegates block_stream = + ?minimal_nanotez_per_gas_unit ?minimal_nanotez_per_byte ?max_priority + ~chain ~context_path delegates block_stream = let state_maker bi = Alpha_services.Constants.all cctxt (chain, `Head 0) >>=? fun constants -> @@ -1592,7 +1520,6 @@ let create (cctxt : #Protocol_client_context.full) ?minimal_fees ?minimal_fees ?minimal_nanotez_per_gas_unit ?minimal_nanotez_per_byte - ?await_endorsements context_path index nonces_location diff --git a/src/proto_alpha/lib_delegate/client_baking_forge.mli b/src/proto_alpha/lib_delegate/client_baking_forge.mli index e4c71ca83268..45e6b7159602 100644 --- a/src/proto_alpha/lib_delegate/client_baking_forge.mli +++ b/src/proto_alpha/lib_delegate/client_baking_forge.mli @@ -81,7 +81,6 @@ val forge_block : ?minimal_fees:Tez.t -> ?minimal_nanotez_per_gas_unit:Z.t -> ?minimal_nanotez_per_byte:Z.t -> - ?await_endorsements:bool -> ?timestamp:Time.Protocol.t -> ?mempool:string -> ?context_path:string -> @@ -98,7 +97,6 @@ val create : ?minimal_fees:Tez.t -> ?minimal_nanotez_per_gas_unit:Z.t -> ?minimal_nanotez_per_byte:Z.t -> - ?await_endorsements:bool -> ?max_priority:int -> chain:Chain_services.chain -> context_path:string -> diff --git a/src/proto_alpha/lib_delegate/client_baking_lib.ml b/src/proto_alpha/lib_delegate/client_baking_lib.ml index 7aa03834a1f2..72f1b91a6d81 100644 --- a/src/proto_alpha/lib_delegate/client_baking_lib.ml +++ b/src/proto_alpha/lib_delegate/client_baking_lib.ml @@ -27,10 +27,9 @@ open Protocol open Alpha_context let bake_block (cctxt : #Protocol_client_context.full) ?minimal_fees - ?minimal_nanotez_per_gas_unit ?minimal_nanotez_per_byte - ?(await_endorsements = false) ?force ?max_priority - ?(minimal_timestamp = false) ?mempool ?context_path ?src_sk ~chain ~head - delegate = + ?minimal_nanotez_per_gas_unit ?minimal_nanotez_per_byte ?force + ?max_priority ?(minimal_timestamp = false) ?mempool ?context_path ?src_sk + ~chain ~head delegate = ( match src_sk with | None -> Client_keys.get_key cctxt delegate @@ -57,7 +56,6 @@ let bake_block (cctxt : #Protocol_client_context.full) ?minimal_fees ?minimal_fees ?minimal_nanotez_per_gas_unit ?minimal_nanotez_per_byte - ~await_endorsements ?timestamp ?seed_nonce_hash ?mempool diff --git a/src/proto_alpha/lib_delegate/client_baking_lib.mli b/src/proto_alpha/lib_delegate/client_baking_lib.mli index fbbba4225263..3933545ada7a 100644 --- a/src/proto_alpha/lib_delegate/client_baking_lib.mli +++ b/src/proto_alpha/lib_delegate/client_baking_lib.mli @@ -32,7 +32,6 @@ val bake_block : ?minimal_fees:Tez.t -> ?minimal_nanotez_per_gas_unit:Z.t -> ?minimal_nanotez_per_byte:Z.t -> - ?await_endorsements:bool -> ?force:bool -> ?max_priority:int -> ?minimal_timestamp:bool -> diff --git a/src/proto_alpha/lib_delegate/client_daemon.ml b/src/proto_alpha/lib_delegate/client_daemon.ml index e7e1b91762a2..0a14069af352 100644 --- a/src/proto_alpha/lib_delegate/client_daemon.ml +++ b/src/proto_alpha/lib_delegate/client_daemon.ml @@ -128,8 +128,8 @@ end module Baker = struct let run (cctxt : #Protocol_client_context.full) ?minimal_fees - ?minimal_nanotez_per_gas_unit ?minimal_nanotez_per_byte - ?await_endorsements ?max_priority ~chain ~context_path delegates = + ?minimal_nanotez_per_gas_unit ?minimal_nanotez_per_byte ?max_priority + ~chain ~context_path delegates = await_bootstrapped_node cctxt >>=? fun _ -> ( if chain = `Test then monitor_fork_testchain cctxt ~cleanup_nonces:true @@ -147,7 +147,6 @@ module Baker = struct ?minimal_fees ?minimal_nanotez_per_gas_unit ?minimal_nanotez_per_byte - ?await_endorsements ?max_priority ~chain ~context_path diff --git a/src/proto_alpha/lib_delegate/client_daemon.mli b/src/proto_alpha/lib_delegate/client_daemon.mli index 64c0c1ae28d7..c43c1cb8f5d0 100644 --- a/src/proto_alpha/lib_delegate/client_daemon.mli +++ b/src/proto_alpha/lib_delegate/client_daemon.mli @@ -41,7 +41,6 @@ module Baker : sig ?minimal_fees:Tez.t -> ?minimal_nanotez_per_gas_unit:Z.t -> ?minimal_nanotez_per_byte:Z.t -> - ?await_endorsements:bool -> ?max_priority:int -> chain:Chain_services.chain -> context_path:string -> diff --git a/src/proto_alpha/lib_delegate/delegate_commands.ml b/src/proto_alpha/lib_delegate/delegate_commands.ml index 7b18a1efc88d..95577ad2c868 100644 --- a/src/proto_alpha/lib_delegate/delegate_commands.ml +++ b/src/proto_alpha/lib_delegate/delegate_commands.ml @@ -82,12 +82,11 @@ let delegate_commands () = [ command ~group ~desc:"Forge and inject block using the delegate rights." - (args9 + (args8 max_priority_arg minimal_fees_arg minimal_nanotez_per_gas_unit_arg minimal_nanotez_per_byte_arg - await_endorsements_arg force_switch minimal_timestamp_switch mempool_arg @@ -101,7 +100,6 @@ let delegate_commands () = minimal_fees, minimal_nanotez_per_gas_unit, minimal_nanotez_per_byte, - await_endorsements, force, minimal_timestamp, mempool, @@ -113,7 +111,6 @@ let delegate_commands () = ~minimal_fees ~minimal_nanotez_per_gas_unit ~minimal_nanotez_per_byte - ~await_endorsements ~force ?max_priority ~minimal_timestamp @@ -241,13 +238,12 @@ let baker_commands () = [ command ~group ~desc:"Launch the baker daemon." - (args6 + (args5 pidfile_arg max_priority_arg minimal_fees_arg minimal_nanotez_per_gas_unit_arg - minimal_nanotez_per_byte_arg - no_waiting_for_endorsements_arg) + minimal_nanotez_per_byte_arg) ( prefixes ["run"; "with"; "local"; "node"] @@ param ~name:"context_path" @@ -258,8 +254,7 @@ let baker_commands () = max_priority, minimal_fees, minimal_nanotez_per_gas_unit, - minimal_nanotez_per_byte, - no_waiting_for_endorsements ) + minimal_nanotez_per_byte ) node_path delegates cctxt -> @@ -277,7 +272,6 @@ let baker_commands () = ~minimal_nanotez_per_gas_unit ~minimal_nanotez_per_byte ?max_priority - ~await_endorsements:(not no_waiting_for_endorsements) ~context_path:(Filename.concat node_path "context") (List.map snd delegates) )) ] -- GitLab From c87999569d70acbfd3a9eead8448ffa0348db24c Mon Sep 17 00:00:00 2001 From: Adrian Brink Date: Sat, 27 Apr 2019 14:29:26 +0200 Subject: [PATCH 019/252] Proto: make implicit accounts delegatable Contains BREAKING CHANGES (see end of message). Implicit accounts (tz1, tz2, tz3) can directly set their delegate. Furthermore implicit accounts have the ability to delete their delegate by sending a "delegate" transaction with an empty delegate field. This specific patch does not impact the ability for originated (KT1) accounts to set or delete their delegate. The storage type of the "Delegated" accounts changes it's index from "Contract_hash" to "Contract_repr.Index". This change in the type signature allows that both implicit and originated accounts can be stored in the set. Explorers and wallets should handle the delegation from tz1, tz2 and tz3 accounts. RPC `/context/delegates//delegated_contracts` (and composite RPC `/context/delegates//`) can now contain tz1, tz2 and tz3 addresses. --- .../lib_protocol/alpha_context.mli | 2 +- .../lib_protocol/delegate_services.ml | 6 +- .../lib_protocol/delegate_services.mli | 4 +- .../lib_protocol/delegate_storage.ml | 81 +++++++++++-------- .../lib_protocol/delegate_storage.mli | 6 +- src/proto_alpha/lib_protocol/storage.ml | 2 +- src/proto_alpha/lib_protocol/storage.mli | 3 +- 7 files changed, 60 insertions(+), 44 deletions(-) diff --git a/src/proto_alpha/lib_protocol/alpha_context.mli b/src/proto_alpha/lib_protocol/alpha_context.mli index d730a2dc3ac4..3dc5027c1cf7 100644 --- a/src/proto_alpha/lib_protocol/alpha_context.mli +++ b/src/proto_alpha/lib_protocol/alpha_context.mli @@ -724,7 +724,7 @@ module Delegate : sig val delegated_contracts: context -> Signature.Public_key_hash.t -> - Contract_hash.t list Lwt.t + Contract_repr.t list Lwt.t val delegated_balance: context -> Signature.Public_key_hash.t -> diff --git a/src/proto_alpha/lib_protocol/delegate_services.ml b/src/proto_alpha/lib_protocol/delegate_services.ml index 88d6547c791f..bbaa282609bb 100644 --- a/src/proto_alpha/lib_protocol/delegate_services.ml +++ b/src/proto_alpha/lib_protocol/delegate_services.ml @@ -30,7 +30,7 @@ type info = { frozen_balance: Tez.t ; frozen_balance_by_cycle: Delegate.frozen_balance Cycle.Map.t ; staking_balance: Tez.t ; - delegated_contracts: Contract_hash.t list ; + delegated_contracts: Contract_repr.t list ; delegated_balance: Tez.t ; deactivated: bool ; grace_period: Cycle.t ; @@ -56,7 +56,7 @@ let info_encoding = (req "frozen_balance" Tez.encoding) (req "frozen_balance_by_cycle" Delegate.frozen_balance_by_cycle_encoding) (req "staking_balance" Tez.encoding) - (req "delegated_contracts" (list Contract_hash.encoding)) + (req "delegated_contracts" (list Contract_repr.encoding)) (req "delegated_balance" Tez.encoding) (req "deactivated" bool) (req "grace_period" Cycle.encoding)) @@ -140,7 +140,7 @@ module S = struct ~description: "Returns the list of contracts that delegate to a given delegate." ~query: RPC_query.empty - ~output: (list Contract_hash.encoding) + ~output: (list Contract_repr.encoding) RPC_path.(path / "delegated_contracts") let delegated_balance = diff --git a/src/proto_alpha/lib_protocol/delegate_services.mli b/src/proto_alpha/lib_protocol/delegate_services.mli index 64384463d3a9..74b282b98b32 100644 --- a/src/proto_alpha/lib_protocol/delegate_services.mli +++ b/src/proto_alpha/lib_protocol/delegate_services.mli @@ -36,7 +36,7 @@ type info = { frozen_balance: Tez.t ; frozen_balance_by_cycle: Delegate.frozen_balance Cycle.Map.t ; staking_balance: Tez.t ; - delegated_contracts: Contract_hash.t list ; + delegated_contracts: Contract_repr.t list ; delegated_balance: Tez.t ; deactivated: bool ; grace_period: Cycle.t ; @@ -72,7 +72,7 @@ val staking_balance: val delegated_contracts: 'a #RPC_context.simple -> 'a -> Signature.Public_key_hash.t -> - Contract_hash.t list shell_tzresult Lwt.t + Contract_repr.t list shell_tzresult Lwt.t val delegated_balance: 'a #RPC_context.simple -> 'a -> diff --git a/src/proto_alpha/lib_protocol/delegate_storage.ml b/src/proto_alpha/lib_protocol/delegate_storage.ml index da097d9d6f3b..b6df55ad7ede 100644 --- a/src/proto_alpha/lib_protocol/delegate_storage.ml +++ b/src/proto_alpha/lib_protocol/delegate_storage.ml @@ -215,30 +215,26 @@ let () = let is_delegatable c contract = match Contract_repr.is_implicit contract with | Some _ -> - return_false + (* Implicit contracts are delegatable *) + return_true | None -> Storage.Contract.Delegatable.mem c contract >>= return -let link c contract delegate balance = +let link c contract delegate = + Storage.Contract.Balance.get c contract >>=? fun balance -> Roll_storage.Delegate.add_amount c delegate balance >>=? fun c -> - match Contract_repr.is_originated contract with - | None -> return c - | Some h -> - Storage.Contract.Delegated.add - (c, Contract_repr.implicit_contract delegate) h >>= fun c -> - return c + Storage.Contract.Delegated.add (c, Contract_repr.implicit_contract delegate) contract >>= fun c -> + return c -let unlink c contract balance = +let unlink c contract = + Storage.Contract.Balance.get c contract >>=? fun balance -> Storage.Contract.Delegate.get_option c contract >>=? function | None -> return c | Some delegate -> + (* Removes the balance of the contract from the delegate *) Roll_storage.Delegate.remove_amount c delegate balance >>=? fun c -> - match Contract_repr.is_originated contract with - | None -> return c - | Some h -> - Storage.Contract.Delegated.del - (c, Contract_repr.implicit_contract delegate) h >>= fun c -> - return c + Storage.Contract.Delegated.del (c, Contract_repr.implicit_contract delegate) contract >>= fun c -> + return c let known c delegate = Storage.Contract.Manager.get_option @@ -246,46 +242,54 @@ let known c delegate = | None | Some (Manager_repr.Hash _) -> return_false | Some (Manager_repr.Public_key _) -> return_true -(* A delegate is registered if its "implicit account" - delegates to itself. *) +(* A delegate is registered if its "implicit account" delegates to itself. *) let registered c delegate = - Storage.Contract.Delegate.mem - c (Contract_repr.implicit_contract delegate) + Storage.Contract.Delegate.get_option + c (Contract_repr.implicit_contract delegate) >>=? function + | Some current_delegate -> + return @@ Signature.Public_key_hash.equal delegate current_delegate + | None -> + return_false let init ctxt contract delegate = known ctxt delegate >>=? fun known_delegate -> fail_unless known_delegate (Roll_storage.Unregistered_delegate delegate) >>=? fun () -> - registered ctxt delegate >>= fun is_registered -> + registered ctxt delegate >>=? fun is_registered -> fail_unless is_registered (Roll_storage.Unregistered_delegate delegate) >>=? fun () -> Storage.Contract.Delegate.init ctxt contract delegate >>=? fun ctxt -> - Storage.Contract.Balance.get ctxt contract >>=? fun balance -> - link ctxt contract delegate balance + link ctxt contract delegate let get = Roll_storage.get_contract_delegate let set_base c is_delegatable contract delegate = match delegate with | None -> begin + let delete () = + unlink c contract >>=? fun c -> + Storage.Contract.Delegate.remove c contract >>= fun c -> + return c in match Contract_repr.is_implicit contract with | Some pkh -> - fail (No_deletion pkh) + (* check if contract is a registered delegate *) + registered c pkh >>=? fun is_registered -> + if is_registered then + fail (No_deletion pkh) + else + delete () | None -> is_delegatable c contract >>=? fun delegatable -> if delegatable then - Storage.Contract.Balance.get c contract >>=? fun balance -> - unlink c contract balance >>=? fun c -> - Storage.Contract.Delegate.remove c contract >>= fun c -> - return c + delete () else fail (Non_delegatable_contract contract) end | Some delegate -> known c delegate >>=? fun known_delegate -> - registered c delegate >>= fun registered_delegate -> + registered c delegate >>=? fun registered_delegate -> is_delegatable c contract >>=? fun delegatable -> let self_delegation = match Contract_repr.is_implicit contract with @@ -308,14 +312,26 @@ let set_base c is_delegatable contract delegate = fail Current_delegate | None | Some _ -> return_unit end >>=? fun () -> + (* check if contract is a registered delegate *) + begin + match Contract_repr.is_implicit contract with + | Some pkh -> + registered c pkh >>=? fun is_registered -> + (* allow self-delegation to re-activate *) + if not self_delegation && is_registered then + fail (No_deletion pkh) + else + return_unit + | None -> + return_unit + end >>=? fun () -> Storage.Contract.Balance.mem c contract >>= fun exists -> fail_when (self_delegation && not exists) (Empty_delegate_account delegate) >>=? fun () -> - Storage.Contract.Balance.get c contract >>=? fun balance -> - unlink c contract balance >>=? fun c -> + unlink c contract >>=? fun c -> Storage.Contract.Delegate.init_set c contract delegate >>= fun c -> - link c contract delegate balance >>=? fun c -> + link c contract delegate >>=? fun c -> begin if self_delegation then Storage.Delegates.add c delegate >>= fun c -> @@ -333,8 +349,7 @@ let set_from_script c contract delegate = set_base c (fun _ _ -> return_true) contract delegate let remove ctxt contract = - Storage.Contract.Balance.get ctxt contract >>=? fun balance -> - unlink ctxt contract balance + unlink ctxt contract let delegated_contracts ctxt delegate = let contract = Contract_repr.implicit_contract delegate in diff --git a/src/proto_alpha/lib_protocol/delegate_storage.mli b/src/proto_alpha/lib_protocol/delegate_storage.mli index 6f458403b769..0fc6cc0cce69 100644 --- a/src/proto_alpha/lib_protocol/delegate_storage.mli +++ b/src/proto_alpha/lib_protocol/delegate_storage.mli @@ -67,7 +67,7 @@ val get: Raw_context.t -> Contract_repr.t -> Signature.Public_key_hash.t option tzresult Lwt.t -val registered: Raw_context.t -> Signature.Public_key_hash.t -> bool Lwt.t +val registered: Raw_context.t -> Signature.Public_key_hash.t -> bool tzresult Lwt.t (** Updating the delegate of a contract. @@ -169,10 +169,10 @@ val staking_balance: Raw_context.t -> Signature.Public_key_hash.t -> Tez_repr.t tzresult Lwt.t -(** Returns the list of contract that delegated towards a given delegate *) +(** Returns the list of contracts (implicit or originated) that delegated towards a given delegate *) val delegated_contracts: Raw_context.t -> Signature.Public_key_hash.t -> - Contract_hash.t list Lwt.t + Contract_repr.t list Lwt.t val delegated_balance: Raw_context.t -> Signature.Public_key_hash.t -> diff --git a/src/proto_alpha/lib_protocol/storage.ml b/src/proto_alpha/lib_protocol/storage.ml index f988b930a91c..4a39c48e9fca 100644 --- a/src/proto_alpha/lib_protocol/storage.ml +++ b/src/proto_alpha/lib_protocol/storage.ml @@ -159,7 +159,7 @@ module Contract = struct (Make_subcontext(Registered) (Indexed_context.Raw_context) (struct let name = ["delegated"] end)) - (Make_index(Contract_hash)) + (Make_index(Contract_repr.Index)) module Counter = Indexed_context.Make_map diff --git a/src/proto_alpha/lib_protocol/storage.mli b/src/proto_alpha/lib_protocol/storage.mli index 282261624887..7be92bef4327 100644 --- a/src/proto_alpha/lib_protocol/storage.mli +++ b/src/proto_alpha/lib_protocol/storage.mli @@ -157,8 +157,9 @@ module Contract : sig and type value = Signature.Public_key_hash.t and type t := Raw_context.t + (** All contracts (implicit and originated) that are delegated, if any *) module Delegated : Data_set_storage - with type elt = Contract_hash.t + with type elt = Contract_repr.t and type t = Raw_context.t * Contract_repr.t module Inactive_delegate : Data_set_storage -- GitLab From e8901b59cb63508cfb7dd53b8626b5fa4258c39f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Tom=C3=A1=C5=A1=20Zemanovi=C4=8D?= Date: Mon, 24 Jun 2019 13:24:16 +0200 Subject: [PATCH 020/252] Proto/Migration: migrate the values of 'Contract.Delegated' storage This patch migrates the context according to the previous patch. --- src/proto_alpha/lib_protocol/contract_repr.ml | 2 ++ .../lib_protocol/contract_repr.mli | 3 ++ src/proto_alpha/lib_protocol/init_storage.ml | 35 +++++++++++++++++++ src/proto_alpha/lib_protocol/storage.ml | 8 +++++ src/proto_alpha/lib_protocol/storage.mli | 5 +++ 5 files changed, 53 insertions(+) diff --git a/src/proto_alpha/lib_protocol/contract_repr.ml b/src/proto_alpha/lib_protocol/contract_repr.ml index 95e974ef4066..89632c77a7dd 100644 --- a/src/proto_alpha/lib_protocol/contract_repr.ml +++ b/src/proto_alpha/lib_protocol/contract_repr.ml @@ -109,6 +109,8 @@ let () = let implicit_contract id = Implicit id +let originated_contract_004 id = Originated id + let is_implicit = function | Implicit m -> Some m | Originated _ -> None diff --git a/src/proto_alpha/lib_protocol/contract_repr.mli b/src/proto_alpha/lib_protocol/contract_repr.mli index b5decaa84540..37f5503f6943 100644 --- a/src/proto_alpha/lib_protocol/contract_repr.mli +++ b/src/proto_alpha/lib_protocol/contract_repr.mli @@ -34,6 +34,9 @@ include Compare.S with type t := contract val implicit_contract : Signature.Public_key_hash.t -> contract +(** Only for migration from proto_004 *) +val originated_contract_004 : Contract_hash.t -> contract + val is_implicit : contract -> Signature.Public_key_hash.t option (** {2 Originated contracts} *) diff --git a/src/proto_alpha/lib_protocol/init_storage.ml b/src/proto_alpha/lib_protocol/init_storage.ml index ed8a4097a469..16773e013171 100644 --- a/src/proto_alpha/lib_protocol/init_storage.ml +++ b/src/proto_alpha/lib_protocol/init_storage.ml @@ -23,6 +23,36 @@ (* *) (*****************************************************************************) +(* Delegated storage changed type of value from Contract_hash to + Contract_repr. Move all 'delegated' data into a storage with + the original type, then copy over into the new storage. *) +let migrate_delegated ctxt contract = + let path = "contracts" :: (* module Contract *) + "index" :: (* module Indexed_context *) + Contract_repr.Index.to_path contract [ + "delegated" ; (* module Delegated *) + ] in + let path_tmp = "contracts" :: (* module Contract *) + "index" :: (* module Indexed_context *) + Contract_repr.Index.to_path contract [ + "delegated_004" ; (* module Delegated *) + ] in + Raw_context.dir_mem ctxt path >>= fun exists -> + if exists then + Raw_context.copy ctxt path path_tmp >>=? fun ctxt -> + Raw_context.remove_rec ctxt path >>= fun ctxt -> + Storage.Contract.Delegated_004.fold (ctxt, contract) ~init:(Ok ctxt) ~f:(fun delegated ctxt -> + Lwt.return ctxt >>=? fun ctxt -> + let originated = Contract_repr.originated_contract_004 delegated in + Storage.Contract.Delegated.add (ctxt, contract) originated >>= fun ctxt -> + return ctxt + ) >>=? fun ctxt -> + Raw_context.remove_rec ctxt path_tmp >>= fun ctxt -> + return ctxt + else + return ctxt + + (* This is the genesis protocol: initialise the state *) let prepare_first_block ctxt ~typecheck ~level ~timestamp ~fitness = Raw_context.prepare_first_block @@ -50,6 +80,11 @@ let prepare_first_block ctxt ~typecheck ~level ~timestamp ~fitness = Storage.Vote.Current_quorum_004.delete ctxt >>=? fun ctxt -> Storage.Block_priority.init ctxt 0 >>=? fun ctxt -> Storage.Last_block_priority.delete ctxt >>=? fun ctxt -> + Storage.Contract.fold ctxt ~init:(Ok ctxt) + ~f:(fun contract ctxt -> + Lwt.return ctxt >>=? fun ctxt -> + migrate_delegated ctxt contract) + >>=? fun ctxt -> return ctxt let prepare ctxt ~level ~timestamp ~fitness = diff --git a/src/proto_alpha/lib_protocol/storage.ml b/src/proto_alpha/lib_protocol/storage.ml index 4a39c48e9fca..effa7c90df84 100644 --- a/src/proto_alpha/lib_protocol/storage.ml +++ b/src/proto_alpha/lib_protocol/storage.ml @@ -161,6 +161,14 @@ module Contract = struct (struct let name = ["delegated"] end)) (Make_index(Contract_repr.Index)) + (** Only for migration from proto_004 *) + module Delegated_004 = + Make_data_set_storage + (Make_subcontext(Ghost) + (Indexed_context.Raw_context) + (struct let name = ["delegated_004"] end)) + (Make_index(Contract_hash)) + module Counter = Indexed_context.Make_map (struct let name = ["counter"] end) diff --git a/src/proto_alpha/lib_protocol/storage.mli b/src/proto_alpha/lib_protocol/storage.mli index 7be92bef4327..3f810bd9824a 100644 --- a/src/proto_alpha/lib_protocol/storage.mli +++ b/src/proto_alpha/lib_protocol/storage.mli @@ -162,6 +162,11 @@ module Contract : sig with type elt = Contract_repr.t and type t = Raw_context.t * Contract_repr.t + (** Only for migration from proto_004 *) + module Delegated_004 : Data_set_storage + with type elt = Contract_hash.t + and type t = Raw_context.t * Contract_repr.t + module Inactive_delegate : Data_set_storage with type elt = Contract_repr.t and type t = Raw_context.t -- GitLab From 376c9d7c42c04da7ced7eb5678c7e0c49a291abd Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Tom=C3=A1=C5=A1=20Zemanovi=C4=8D?= Date: Tue, 9 Jul 2019 19:21:28 +0200 Subject: [PATCH 021/252] Proto: Require 5% minimum quorum of protocol proposal Contains a BREAKING CHANGE (see end of message). The protocol will now remain in the initial proposal voting phase until a protocol gets upvoted by at least 5% of the stake. Third party developers should make sure they can parse the new fields in the `/constants` RPC, or at least ignore them. --- .../lib_protocol/alpha_context.mli | 2 ++ src/proto_alpha/lib_protocol/amendment.ml | 26 +++++++++++++------ .../lib_protocol/constants_repr.ml | 7 ++++- .../lib_protocol/constants_storage.ml | 3 +++ 4 files changed, 29 insertions(+), 9 deletions(-) diff --git a/src/proto_alpha/lib_protocol/alpha_context.mli b/src/proto_alpha/lib_protocol/alpha_context.mli index 3dc5027c1cf7..fa09af2a7ea1 100644 --- a/src/proto_alpha/lib_protocol/alpha_context.mli +++ b/src/proto_alpha/lib_protocol/alpha_context.mli @@ -385,6 +385,7 @@ module Constants : sig test_chain_duration: int64; quorum_min: int32 ; quorum_max: int32 ; + min_proposal_quorum : int32 ; initial_endorsers: int ; delay_per_missing_endorsement : Period.t ; } @@ -415,6 +416,7 @@ module Constants : sig val test_chain_duration: context -> int64 val quorum_min: context -> int32 val quorum_max: context -> int32 + val min_proposal_quorum: context -> int32 (** All constants: fixed and parametric *) type t = { diff --git a/src/proto_alpha/lib_protocol/amendment.ml b/src/proto_alpha/lib_protocol/amendment.ml index 7c3b5b5e5c5f..ba6d9ba646d4 100644 --- a/src/proto_alpha/lib_protocol/amendment.ml +++ b/src/proto_alpha/lib_protocol/amendment.ml @@ -26,22 +26,32 @@ open Alpha_context (** Returns the proposal submitted by the most delegates. - Returns None in case of a tie or if there are no proposals. *) -let select_winning_proposal proposals = + Returns None in case of a tie, if proposal quorum is below required + minimum or if there are no proposals. *) +let select_winning_proposal ctxt = + Vote.get_proposals ctxt >>=? fun proposals -> let merge proposal vote winners = match winners with | None -> Some ([proposal], vote) | Some (winners, winners_vote) as previous -> if Compare.Int32.(vote = winners_vote) then Some (proposal :: winners, winners_vote) - else if Compare.Int32.(vote >= winners_vote) then + else if Compare.Int32.(vote > winners_vote) then Some ([proposal], vote) else previous in match Protocol_hash.Map.fold merge proposals None with - | None -> None - | Some ([proposal], _) -> Some proposal - | Some _ -> None (* in case of a tie, lets do nothing. *) + | Some ([proposal], vote) -> + Vote.listing_size ctxt >>=? fun max_vote -> + let min_proposal_quorum = Constants.min_proposal_quorum ctxt in + let min_vote_to_pass = + Int32.div (Int32.mul min_proposal_quorum max_vote) 100_00l in + if Compare.Int32.(vote >= min_vote_to_pass) then + return_some proposal + else + return_none + | _ -> + return_none (* in case of a tie, let's do nothing. *) (** A proposal is approved if it has supermajority and the participation reaches the current quorum. @@ -87,10 +97,10 @@ let check_approval_and_update_participation_ema ctxt = let start_new_voting_period ctxt = Vote.get_current_period_kind ctxt >>=? function | Proposal -> begin - Vote.get_proposals ctxt >>=? fun proposals -> + select_winning_proposal ctxt >>=? fun proposal -> Vote.clear_proposals ctxt >>= fun ctxt -> Vote.clear_listings ctxt >>=? fun ctxt -> - match select_winning_proposal proposals with + match proposal with | None -> Vote.freeze_listings ctxt >>=? fun ctxt -> return ctxt diff --git a/src/proto_alpha/lib_protocol/constants_repr.ml b/src/proto_alpha/lib_protocol/constants_repr.ml index dedf187f469c..faaea8602919 100644 --- a/src/proto_alpha/lib_protocol/constants_repr.ml +++ b/src/proto_alpha/lib_protocol/constants_repr.ml @@ -97,6 +97,7 @@ type parametric = { test_chain_duration: int64 ; (* in seconds *) quorum_min: int32 ; quorum_max: int32 ; + min_proposal_quorum: int32 ; initial_endorsers: int ; delay_per_missing_endorsement: Period_repr.t ; } @@ -128,6 +129,7 @@ let parametric_encoding = c.test_chain_duration, c.quorum_min, c.quorum_max, + c.min_proposal_quorum, c.initial_endorsers, c.delay_per_missing_endorsement ))) ) @@ -154,6 +156,7 @@ let parametric_encoding = test_chain_duration, quorum_min, quorum_max, + min_proposal_quorum, initial_endorsers, delay_per_missing_endorsement))) -> { preserved_cycles ; @@ -179,6 +182,7 @@ let parametric_encoding = test_chain_duration ; quorum_min ; quorum_max ; + min_proposal_quorum ; initial_endorsers ; delay_per_missing_endorsement ; } ) @@ -203,13 +207,14 @@ let parametric_encoding = (req "block_security_deposit" Tez_repr.encoding) (req "endorsement_security_deposit" Tez_repr.encoding) (req "block_reward" Tez_repr.encoding)) - (obj8 + (obj9 (req "endorsement_reward" Tez_repr.encoding) (req "cost_per_byte" Tez_repr.encoding) (req "hard_storage_limit_per_operation" z) (req "test_chain_duration" int64) (req "quorum_min" int32) (req "quorum_max" int32) + (req "min_proposal_quorum" int32) (req "initial_endorsers" uint16) (req "delay_per_missing_endorsement" Period_repr.encoding) ))) diff --git a/src/proto_alpha/lib_protocol/constants_storage.ml b/src/proto_alpha/lib_protocol/constants_storage.ml index 0e2992dbee16..c6b1dfd2a212 100644 --- a/src/proto_alpha/lib_protocol/constants_storage.ml +++ b/src/proto_alpha/lib_protocol/constants_storage.ml @@ -98,5 +98,8 @@ let quorum_min c = let quorum_max c = let constants = Raw_context.constants c in constants.quorum_max +let min_proposal_quorum c = + let constants = Raw_context.constants c in + constants.min_proposal_quorum let parametric c = Raw_context.constants c -- GitLab From 5d9977b2b8d1b2d8afe826cd469483bdb0866a72 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Tom=C3=A1=C5=A1=20Zemanovi=C4=8D?= Date: Wed, 3 Jul 2019 14:57:02 +0200 Subject: [PATCH 022/252] Proto/Migration: new constant min_proposal_quorum This patch initializes the newly introduced min_proposal_quorum protocol parameter to 5%. --- src/proto_alpha/lib_protocol/raw_context.ml | 1 + 1 file changed, 1 insertion(+) diff --git a/src/proto_alpha/lib_protocol/raw_context.ml b/src/proto_alpha/lib_protocol/raw_context.ml index 2c1f2cd4b8a6..3597e7859f4c 100644 --- a/src/proto_alpha/lib_protocol/raw_context.ml +++ b/src/proto_alpha/lib_protocol/raw_context.ml @@ -539,6 +539,7 @@ let prepare_first_block ~level ~timestamp ~fitness ctxt = test_chain_duration = c.test_chain_duration ; quorum_min = 20_00l ; (* quorum is in centile of a percentage *) quorum_max = 70_00l ; + min_proposal_quorum = 5_00l ; initial_endorsers = 24 ; delay_per_missing_endorsement = Period_repr.of_seconds_exn 8L ; } in -- GitLab From 7b8f21920581e4b36c2a8439e2c41bf9444e46b6 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= Date: Fri, 17 May 2019 17:45:02 +0200 Subject: [PATCH 023/252] Proto/Michelson: peephole optimization of UNPAIR This makes the often used `UNPAIR` macro cheaper in terms of gas. --- src/proto_alpha/lib_protocol/script_interpreter.ml | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/src/proto_alpha/lib_protocol/script_interpreter.ml b/src/proto_alpha/lib_protocol/script_interpreter.ml index 04229a1aa8f6..83bb2071c1f5 100644 --- a/src/proto_alpha/lib_protocol/script_interpreter.ml +++ b/src/proto_alpha/lib_protocol/script_interpreter.ml @@ -263,6 +263,14 @@ let rec interp | Cons_pair, Item (a, Item (b, rest)) -> Lwt.return (Gas.consume ctxt Interp_costs.pair) >>=? fun ctxt -> logged_return (Item ((a, b), rest), ctxt) + (* Peephole optimization for UNPAIR *) + | Seq ({instr=Dup;_}, + {instr=Seq ({instr=Car;_}, + {instr=Seq ({instr=Dip {instr=Cdr}}, + {instr=Nop;_});_});_}), + Item ((a, b), rest) -> + Lwt.return (Gas.consume ctxt Interp_costs.pair_access) >>=? fun ctxt -> + logged_return (Item (a, Item (b, rest)), ctxt) | Car, Item ((a, _), rest) -> Lwt.return (Gas.consume ctxt Interp_costs.pair_access) >>=? fun ctxt -> logged_return (Item (a, rest), ctxt) -- GitLab From f95af53e699f06e37c2fbd10e3f72f2727fad526 Mon Sep 17 00:00:00 2001 From: Tom Jack Date: Thu, 30 May 2019 06:56:29 -0700 Subject: [PATCH 024/252] Proto/Michelson: eliminate useless storage read for parse_contract This patch removes a spurious access to the storage when typecheking a contract reference. It makes this operation cheaper in gas. --- src/proto_alpha/lib_protocol/alpha_context.mli | 2 ++ src/proto_alpha/lib_protocol/contract_storage.ml | 3 +++ src/proto_alpha/lib_protocol/contract_storage.mli | 2 ++ src/proto_alpha/lib_protocol/script_ir_translator.ml | 8 ++++---- 4 files changed, 11 insertions(+), 4 deletions(-) diff --git a/src/proto_alpha/lib_protocol/alpha_context.mli b/src/proto_alpha/lib_protocol/alpha_context.mli index fa09af2a7ea1..2f42a7c8e0e6 100644 --- a/src/proto_alpha/lib_protocol/alpha_context.mli +++ b/src/proto_alpha/lib_protocol/alpha_context.mli @@ -579,6 +579,8 @@ module Contract : sig context -> contract -> bool tzresult Lwt.t val is_spendable: context -> contract -> bool tzresult Lwt.t + val get_script_code: + context -> contract -> (context * Script.lazy_expr option) tzresult Lwt.t val get_script: context -> contract -> (context * Script.t option) tzresult Lwt.t val get_storage: diff --git a/src/proto_alpha/lib_protocol/contract_storage.ml b/src/proto_alpha/lib_protocol/contract_storage.ml index cc75a1c0dd1b..b41f74cb284c 100644 --- a/src/proto_alpha/lib_protocol/contract_storage.ml +++ b/src/proto_alpha/lib_protocol/contract_storage.ml @@ -365,6 +365,9 @@ let increment_counter c contract = Storage.Contract.Counter.get c contract >>=? fun contract_counter -> Storage.Contract.Counter.set c contract (Z.succ contract_counter) +let get_script_code c contract = + Storage.Contract.Code.get_option c contract + let get_script c contract = Storage.Contract.Code.get_option c contract >>=? fun (c, code) -> Storage.Contract.Storage.get_option c contract >>=? fun (c, storage) -> diff --git a/src/proto_alpha/lib_protocol/contract_storage.mli b/src/proto_alpha/lib_protocol/contract_storage.mli index 00ab164624e3..363f843cd3c7 100644 --- a/src/proto_alpha/lib_protocol/contract_storage.mli +++ b/src/proto_alpha/lib_protocol/contract_storage.mli @@ -72,6 +72,8 @@ val reveal_manager_key: val get_balance: Raw_context.t -> Contract_repr.t -> Tez_repr.t tzresult Lwt.t val get_counter: Raw_context.t -> Contract_repr.t -> Z.t tzresult Lwt.t +val get_script_code: + Raw_context.t -> Contract_repr.t -> (Raw_context.t * Script_repr.lazy_expr option) tzresult Lwt.t val get_script: Raw_context.t -> Contract_repr.t -> (Raw_context.t * Script_repr.t option) tzresult Lwt.t val get_storage: diff --git a/src/proto_alpha/lib_protocol/script_ir_translator.ml b/src/proto_alpha/lib_protocol/script_ir_translator.ml index 7deac792051a..6942a7f85c85 100644 --- a/src/proto_alpha/lib_protocol/script_ir_translator.ml +++ b/src/proto_alpha/lib_protocol/script_ir_translator.ml @@ -2772,13 +2772,13 @@ and parse_contract Lwt.return @@ Gas.consume ctxt Typecheck_costs.get_script >>=? fun ctxt -> trace (Invalid_contract (loc, contract)) @@ - Contract.get_script ctxt contract >>=? fun (ctxt, script) -> match script with + Contract.get_script_code ctxt contract >>=? fun (ctxt, code) -> match code with | None -> Lwt.return (ty_eq ctxt arg (Unit_t None) >>? fun (Eq, ctxt) -> let contract : arg typed_contract = (arg, contract) in ok (ctxt, contract)) - | Some { code ; _ } -> + | Some code -> Script.force_decode ctxt code >>=? fun (code, ctxt) -> Lwt.return (parse_toplevel code >>? fun (arg_type, _, _) -> @@ -2803,7 +2803,7 @@ and parse_contract_for_script Lwt.return @@ Gas.consume ctxt Typecheck_costs.get_script >>=? fun ctxt -> trace (Invalid_contract (loc, contract)) @@ - Contract.get_script ctxt contract >>=? fun (ctxt, script) -> match script with (* can only fail because of gas *) + Contract.get_script_code ctxt contract >>=? fun (ctxt, code) -> match code with (* can only fail because of gas *) | None -> Lwt.return (match ty_eq ctxt arg (Unit_t None) with @@ -2813,7 +2813,7 @@ and parse_contract_for_script | Error _ -> Gas.consume ctxt Typecheck_costs.cycle >>? fun ctxt -> ok (ctxt, None)) - | Some { code ; _ } -> + | Some code -> Script.force_decode ctxt code >>=? fun (code, ctxt) -> (* can only fail because of gas *) Lwt.return (match parse_toplevel code with -- GitLab From 6863d4edf6476a9e774eb2eb4a80e4494d2b3df8 Mon Sep 17 00:00:00 2001 From: Tom Jack Date: Wed, 10 Jul 2019 11:35:51 +0200 Subject: [PATCH 025/252] Proto/Michelson: disable storing values of type `contract t` in newly originated contracts Contains a BREAKING CHANGE (see end of message). In Athens and before, Michelson contracts could store typed handles to contracts in their storage or in constants in the code. This meant that typechecking a contract required accessing other contracts from the chain context. This extra type safety was not worth the engineering cost for tooling and high level languages. Contracts will now have to store values of type `address` and use the `CONTRACT` instruction to typecheck contract references on demand. All existing contracts that used the feature will continue to work as-is. This is done by introducing a `legacy` flag througout the typechecking code, with the following trivial semantics: - everything already in the chain is considered `legacy` and can use deprecated features, - everything added to the chain (parameters of transactions and code and storage of originations cannot. Smart contract developers should adapt their code to store `address`es and use instruction `CONTRACT`. --- src/proto_alpha/lib_protocol/apply.ml | 2 +- .../lib_protocol/contract_services.ml | 8 +- .../lib_protocol/helpers_services.ml | 4 +- src/proto_alpha/lib_protocol/main.ml | 2 +- .../lib_protocol/script_interpreter.ml | 6 +- .../lib_protocol/script_ir_translator.ml | 208 ++++++++++-------- .../lib_protocol/script_ir_translator.mli | 10 +- src/proto_alpha/lib_protocol/script_repr.ml | 2 +- .../lib_protocol/script_tc_errors.ml | 1 + .../script_tc_errors_registration.ml | 16 +- 10 files changed, 149 insertions(+), 110 deletions(-) diff --git a/src/proto_alpha/lib_protocol/apply.ml b/src/proto_alpha/lib_protocol/apply.ml index 80d510ab4fc2..3de8022d23ae 100644 --- a/src/proto_alpha/lib_protocol/apply.ml +++ b/src/proto_alpha/lib_protocol/apply.ml @@ -526,7 +526,7 @@ let apply_manager_operation_content : Lwt.return (Gas.consume ctxt (Script.deserialized_cost unparsed_storage)) >>=? fun ctxt -> Script.force_decode ctxt script.code >>=? fun (unparsed_code, ctxt) -> (* see [note] *) Lwt.return (Gas.consume ctxt (Script.deserialized_cost unparsed_code)) >>=? fun ctxt -> - Script_ir_translator.parse_script ctxt script >>=? fun (ex_script, ctxt) -> + Script_ir_translator.parse_script ctxt ~legacy:false script >>=? fun (ex_script, ctxt) -> Script_ir_translator.big_map_initialization ctxt Optimized ex_script >>=? fun (big_map_diff, ctxt) -> return (Some (script, big_map_diff), ctxt) end >>=? fun (script, ctxt) -> diff --git a/src/proto_alpha/lib_protocol/contract_services.ml b/src/proto_alpha/lib_protocol/contract_services.ml index 3951a34ae374..65e08c428411 100644 --- a/src/proto_alpha/lib_protocol/contract_services.ml +++ b/src/proto_alpha/lib_protocol/contract_services.ml @@ -193,16 +193,16 @@ let register () = | Some script -> let ctxt = Gas.set_unlimited ctxt in let open Script_ir_translator in - parse_script ctxt script >>=? fun (Ex_script script, ctxt) -> + parse_script ctxt ~legacy:true script >>=? fun (Ex_script script, ctxt) -> unparse_script ctxt Readable script >>=? fun (script, ctxt) -> Script.force_decode ctxt script.storage >>=? fun (storage, _ctxt) -> return_some storage) ; register1 S.big_map_get (fun ctxt contract () (key, key_type) -> let open Script_ir_translator in let ctxt = Gas.set_unlimited ctxt in - Lwt.return (parse_ty ctxt ~allow_big_map:false ~allow_operation:false (Micheline.root key_type)) + Lwt.return (parse_packable_ty ctxt ~legacy:true (Micheline.root key_type)) >>=? fun (Ex_ty key_type, ctxt) -> - parse_data ctxt key_type (Micheline.root key) >>=? fun (key, ctxt) -> + parse_data ctxt ~legacy:true key_type (Micheline.root key) >>=? fun (key, ctxt) -> hash_data ctxt key_type key >>=? fun (key_hash, ctxt) -> Contract.Big_map.get_opt ctxt contract key_hash >>=? fun (_ctxt, value) -> return value) ; @@ -219,7 +219,7 @@ let register () = | Some script -> let ctxt = Gas.set_unlimited ctxt in let open Script_ir_translator in - parse_script ctxt script >>=? fun (Ex_script script, ctxt) -> + parse_script ctxt ~legacy:true script >>=? fun (Ex_script script, ctxt) -> unparse_script ctxt Readable script >>=? fun (script, ctxt) -> return (Some script, ctxt) end >>=? fun (script, _ctxt) -> diff --git a/src/proto_alpha/lib_protocol/helpers_services.ml b/src/proto_alpha/lib_protocol/helpers_services.ml index e768c5d4ba81..e2c1c8fe6749 100644 --- a/src/proto_alpha/lib_protocol/helpers_services.ml +++ b/src/proto_alpha/lib_protocol/helpers_services.ml @@ -234,8 +234,8 @@ module Scripts = struct let ctxt = match maybe_gas with | None -> Gas.set_unlimited ctxt | Some gas -> Gas.set_limit ctxt gas in - Lwt.return (parse_ty ctxt ~allow_big_map:false ~allow_operation:false (Micheline.root typ)) >>=? fun (Ex_ty typ, ctxt) -> - parse_data ctxt typ (Micheline.root expr) >>=? fun (data, ctxt) -> + Lwt.return (parse_packable_ty ctxt ~legacy:true (Micheline.root typ)) >>=? fun (Ex_ty typ, ctxt) -> + parse_data ctxt ~legacy:true typ (Micheline.root expr) >>=? fun (data, ctxt) -> Script_ir_translator.pack_data ctxt typ data >>=? fun (bytes, ctxt) -> return (bytes, Gas.level ctxt) end ; diff --git a/src/proto_alpha/lib_protocol/main.ml b/src/proto_alpha/lib_protocol/main.ml index a094e57b0903..e286936160c6 100644 --- a/src/proto_alpha/lib_protocol/main.ml +++ b/src/proto_alpha/lib_protocol/main.ml @@ -300,7 +300,7 @@ let init ctxt block_header = let fitness = block_header.fitness in let timestamp = block_header.timestamp in let typecheck (ctxt:Alpha_context.context) (script:Alpha_context.Script.t) = - Script_ir_translator.parse_script ctxt script >>=? fun (ex_script, ctxt) -> + Script_ir_translator.parse_script ctxt ~legacy:false script >>=? fun (ex_script, ctxt) -> Script_ir_translator.big_map_initialization ctxt Optimized ex_script >>=? fun (big_map_diff, ctxt) -> return ((script, big_map_diff), ctxt) in diff --git a/src/proto_alpha/lib_protocol/script_interpreter.ml b/src/proto_alpha/lib_protocol/script_interpreter.ml index 83bb2071c1f5..ce77687bc6df 100644 --- a/src/proto_alpha/lib_protocol/script_interpreter.ml +++ b/src/proto_alpha/lib_protocol/script_interpreter.ml @@ -716,7 +716,7 @@ let rec interp logged_return (Item (None, rest), ctxt) | Some expr -> Lwt.return (Gas.consume ctxt (Script.deserialized_cost expr)) >>=? fun ctxt -> - parse_data ctxt t (Micheline.root expr) >>= function + parse_data ctxt ~legacy:false t (Micheline.root expr) >>= function | Ok (value, ctxt) -> logged_return (Item (Some value, rest), ctxt) | Error _ignored -> @@ -853,11 +853,11 @@ let rec interp and execute ?log ctxt mode ~source ~payer ~self script amount arg : (Script.expr * packed_internal_operation list * context * Script_typed_ir.ex_big_map option) tzresult Lwt.t = - parse_script ctxt script + parse_script ctxt script ~legacy:true >>=? fun ((Ex_script { code ; arg_type ; storage ; storage_type }), ctxt) -> trace (Bad_contract_parameter self) - (parse_data ctxt arg_type arg) >>=? fun (arg, ctxt) -> + (parse_data ctxt ~legacy:false arg_type arg) >>=? fun (arg, ctxt) -> Script.force_decode ctxt script.code >>=? fun (script_code, ctxt) -> trace (Runtime_contract_error (self, script_code)) diff --git a/src/proto_alpha/lib_protocol/script_ir_translator.ml b/src/proto_alpha/lib_protocol/script_ir_translator.ml index 6942a7f85c85..54cd79c19bed 100644 --- a/src/proto_alpha/lib_protocol/script_ir_translator.ml +++ b/src/proto_alpha/lib_protocol/script_ir_translator.ml @@ -1046,12 +1046,26 @@ let rec parse_comparable_ty T_string ; T_mutez ; T_bool ; T_key ; T_key_hash ; T_timestamp ] +and parse_packable_ty : + context -> legacy:bool -> + Script.node -> (ex_ty * context) tzresult + = fun ctxt ~legacy -> + parse_ty ctxt ~legacy ~allow_big_map:false ~allow_operation:false ~allow_contract:legacy + +and parse_any_ty : + context -> legacy:bool -> + Script.node -> (ex_ty * context) tzresult + = fun ctxt ~legacy -> + parse_ty ctxt ~legacy ~allow_big_map:true ~allow_operation:true ~allow_contract:true + and parse_ty : context -> + legacy: bool -> allow_big_map: bool -> allow_operation: bool -> + allow_contract: bool -> Script.node -> (ex_ty * context) tzresult - = fun ctxt ~allow_big_map ~allow_operation node -> + = fun ctxt ~legacy ~allow_big_map ~allow_operation ~allow_contract node -> Gas.consume ctxt Typecheck_costs.cycle >>? fun ctxt -> match node with | Prim (loc, T_unit, [], annot) -> @@ -1110,40 +1124,43 @@ and parse_ty : else error (Unexpected_operation loc) | Prim (loc, T_contract, [ utl ], annot) -> - parse_ty ctxt ~allow_big_map:false ~allow_operation:false utl >>? fun (Ex_ty tl, ctxt) -> - parse_type_annot loc annot >>? fun ty_name -> - Gas.consume ctxt (Typecheck_costs.type_ 1) >|? fun ctxt -> - Ex_ty (Contract_t (tl, ty_name)), ctxt + if allow_contract then + parse_ty ctxt ~legacy ~allow_big_map:false ~allow_operation:false ~allow_contract:true utl >>? fun (Ex_ty tl, ctxt) -> + parse_type_annot loc annot >>? fun ty_name -> + Gas.consume ctxt (Typecheck_costs.type_ 1) >|? fun ctxt -> + Ex_ty (Contract_t (tl, ty_name)), ctxt + else + error (Unexpected_contract loc) | Prim (loc, T_pair, [ utl; utr ], annot) -> extract_field_annot utl >>? fun (utl, left_field) -> extract_field_annot utr >>? fun (utr, right_field) -> - parse_ty ctxt ~allow_big_map ~allow_operation utl >>? fun (Ex_ty tl, ctxt) -> - parse_ty ctxt ~allow_big_map ~allow_operation utr >>? fun (Ex_ty tr, ctxt) -> + parse_ty ctxt ~legacy ~allow_big_map ~allow_operation ~allow_contract utl >>? fun (Ex_ty tl, ctxt) -> + parse_ty ctxt ~legacy ~allow_big_map ~allow_operation ~allow_contract utr >>? fun (Ex_ty tr, ctxt) -> parse_type_annot loc annot >>? fun ty_name -> Gas.consume ctxt (Typecheck_costs.type_ 2) >|? fun ctxt -> Ex_ty (Pair_t ((tl, left_field, None), (tr, right_field, None), ty_name)), ctxt | Prim (loc, T_or, [ utl; utr ], annot) -> extract_field_annot utl >>? fun (utl, left_constr) -> extract_field_annot utr >>? fun (utr, right_constr) -> - parse_ty ctxt ~allow_big_map ~allow_operation utl >>? fun (Ex_ty tl, ctxt) -> - parse_ty ctxt ~allow_big_map ~allow_operation utr >>? fun (Ex_ty tr, ctxt) -> + parse_ty ctxt ~legacy ~allow_big_map ~allow_operation ~allow_contract utl >>? fun (Ex_ty tl, ctxt) -> + parse_ty ctxt ~legacy ~allow_big_map ~allow_operation ~allow_contract utr >>? fun (Ex_ty tr, ctxt) -> parse_type_annot loc annot >>? fun ty_name -> Gas.consume ctxt (Typecheck_costs.type_ 2) >|? fun ctxt -> Ex_ty (Union_t ((tl, left_constr), (tr, right_constr), ty_name)), ctxt | Prim (loc, T_lambda, [ uta; utr ], annot) -> - parse_ty ctxt ~allow_big_map:true ~allow_operation:true uta >>? fun (Ex_ty ta, ctxt) -> - parse_ty ctxt ~allow_big_map:true ~allow_operation:true utr >>? fun (Ex_ty tr, ctxt) -> + parse_any_ty ctxt ~legacy uta >>? fun (Ex_ty ta, ctxt) -> + parse_any_ty ctxt ~legacy utr >>? fun (Ex_ty tr, ctxt) -> parse_type_annot loc annot >>? fun ty_name -> Gas.consume ctxt (Typecheck_costs.type_ 2) >|? fun ctxt -> Ex_ty (Lambda_t (ta, tr, ty_name)), ctxt | Prim (loc, T_option, [ ut ], annot) -> extract_field_annot ut >>? fun (ut, some_constr) -> - parse_ty ctxt ~allow_big_map ~allow_operation ut >>? fun (Ex_ty t, ctxt) -> + parse_ty ctxt ~legacy ~allow_big_map ~allow_operation ~allow_contract ut >>? fun (Ex_ty t, ctxt) -> parse_composed_type_annot loc annot >>? fun (ty_name, none_constr, _) -> Gas.consume ctxt (Typecheck_costs.type_ 2) >|? fun ctxt -> Ex_ty (Option_t ((t, some_constr), none_constr, ty_name)), ctxt | Prim (loc, T_list, [ ut ], annot) -> - parse_ty ctxt ~allow_big_map ~allow_operation ut >>? fun (Ex_ty t, ctxt) -> + parse_ty ctxt ~legacy ~allow_big_map ~allow_operation ~allow_contract ut >>? fun (Ex_ty t, ctxt) -> parse_type_annot loc annot >>? fun ty_name -> Gas.consume ctxt (Typecheck_costs.type_ 1) >|? fun ctxt -> Ex_ty (List_t (t, ty_name)), ctxt @@ -1154,13 +1171,13 @@ and parse_ty : Ex_ty (Set_t (t, ty_name)), ctxt | Prim (loc, T_map, [ uta; utr ], annot) -> parse_comparable_ty ctxt uta >>? fun (Ex_comparable_ty ta, ctxt) -> - parse_ty ctxt ~allow_big_map ~allow_operation utr >>? fun (Ex_ty tr, ctxt) -> + parse_ty ctxt ~legacy ~allow_big_map ~allow_operation ~allow_contract utr >>? fun (Ex_ty tr, ctxt) -> parse_type_annot loc annot >>? fun ty_name -> Gas.consume ctxt (Typecheck_costs.type_ 2) >|? fun ctxt -> Ex_ty (Map_t (ta, tr, ty_name)), ctxt | Prim (loc, T_big_map, args, annot) when allow_big_map -> - parse_big_map_ty ctxt loc args annot >>? fun (big_map_ty, ctxt) -> + parse_big_map_ty ctxt ~legacy loc args annot >>? fun (big_map_ty, ctxt) -> Gas.consume ctxt (Typecheck_costs.type_ 2) >|? fun ctxt -> big_map_ty, ctxt | Prim (loc, T_big_map, _, _) -> @@ -1184,12 +1201,12 @@ and parse_ty : T_string ; T_bytes ; T_mutez ; T_bool ; T_key ; T_key_hash ; T_timestamp ] -and parse_big_map_ty ctxt big_map_loc args map_annot = +and parse_big_map_ty ctxt ~legacy big_map_loc args map_annot = Gas.consume ctxt Typecheck_costs.cycle >>? fun ctxt -> begin match args with | [ key_ty ; value_ty ] -> parse_comparable_ty ctxt key_ty >>? fun (Ex_comparable_ty key_ty, ctxt) -> - parse_ty ctxt ~allow_big_map:false ~allow_operation:false value_ty + parse_packable_ty ctxt ~legacy value_ty >>? fun (Ex_ty value_ty, ctxt) -> parse_type_annot big_map_loc map_annot >|? fun map_name -> let big_map_ty = Big_map_t (key_ty, value_ty, map_name) in @@ -1198,15 +1215,15 @@ and parse_big_map_ty ctxt big_map_loc args map_annot = end and parse_storage_ty : - context -> Script.node -> (ex_ty * context) tzresult - = fun ctxt node -> + context -> legacy:bool -> Script.node -> (ex_ty * context) tzresult + = fun ctxt ~legacy node -> match node with | Prim (loc, T_pair, [ Prim (big_map_loc, T_big_map, args, map_annot) ; remaining_storage ], storage_annot) -> Gas.consume ctxt Typecheck_costs.cycle >>? fun ctxt -> - parse_big_map_ty ctxt big_map_loc args map_annot >>? fun (Ex_ty big_map_ty, ctxt) -> - parse_ty ctxt ~allow_big_map:false ~allow_operation:false remaining_storage + parse_big_map_ty ctxt ~legacy big_map_loc args map_annot >>? fun (Ex_ty big_map_ty, ctxt) -> + parse_packable_ty ctxt ~legacy remaining_storage >>? fun (Ex_ty remaining_storage, ctxt) -> parse_composed_type_annot loc storage_annot >>? fun (ty_name, map_field, storage_field) -> @@ -1216,9 +1233,9 @@ and parse_storage_ty : ty_name)), ctxt | _ -> - parse_ty ctxt ~allow_big_map:false ~allow_operation:false node + parse_packable_ty ctxt ~legacy node -let check_no_big_map_or_operation loc root = +let check_packable ~legacy loc root = let rec check : type t. t ty -> unit tzresult = function | Big_map_t _ -> error (Unexpected_big_map loc) | Operation_t _ -> error (Unexpected_operation loc) @@ -1243,7 +1260,8 @@ let check_no_big_map_or_operation loc root = | Set_t (_, _) -> ok () | Map_t (_, elt_ty, _) -> check elt_ty | Lambda_t (_l_ty, _r_ty, _) -> ok () - | Contract_t (_, _) -> ok () in + | Contract_t (_, _) when legacy -> ok () + | Contract_t (_, _) -> error (Unexpected_contract loc) in check root type ex_script = Ex_script : ('a, 'c) script -> ex_script @@ -1263,8 +1281,8 @@ let parse_var_type_annot loc annot = let rec parse_data : type a. ?type_logger: type_logger -> - context -> a ty -> Script.node -> (a * context) tzresult Lwt.t - = fun ?type_logger ctxt ty script_data -> + context -> legacy: bool -> a ty -> Script.node -> (a * context) tzresult Lwt.t + = fun ?type_logger ctxt ~legacy ty script_data -> Lwt.return (Gas.consume ctxt Typecheck_costs.cycle) >>=? fun ctxt -> let error () = Lwt.return (serialize_ty_for_error ctxt ty) >>|? fun (ty, _ctxt) -> @@ -1279,7 +1297,7 @@ let rec parse_data match item with | Prim (_, D_Elt, [ k; v ], _) -> parse_comparable_data ?type_logger ctxt key_type k >>=? fun (k, ctxt) -> - parse_data ?type_logger ctxt value_type v >>=? fun (v, ctxt) -> + parse_data ?type_logger ctxt ~legacy value_type v >>=? fun (v, ctxt) -> begin match last_value with | Some value -> if Compare.Int.(0 <= (compare_comparable key_type value k)) @@ -1471,8 +1489,8 @@ let rec parse_data check_const_type_annot loc annot ty_name [af; bf] >>=? fun () -> Lwt.return (Gas.consume ctxt Typecheck_costs.pair) >>=? fun ctxt -> traced @@ - parse_data ?type_logger ctxt ta va >>=? fun (va, ctxt) -> - parse_data ?type_logger ctxt tb vb >>=? fun (vb, ctxt) -> + parse_data ?type_logger ctxt ~legacy ta va >>=? fun (va, ctxt) -> + parse_data ?type_logger ctxt ~legacy tb vb >>=? fun (vb, ctxt) -> return ((va, vb), ctxt) | Pair_t _, Prim (loc, D_Pair, l, _) -> fail @@ Invalid_arity (loc, D_Pair, 2, List.length l) @@ -1483,7 +1501,7 @@ let rec parse_data check_const_type_annot loc annot ty_name [lconstr]>>=? fun () -> Lwt.return (Gas.consume ctxt Typecheck_costs.union) >>=? fun ctxt -> traced @@ - parse_data ?type_logger ctxt tl v >>=? fun (v, ctxt) -> + parse_data ?type_logger ctxt ~legacy tl v >>=? fun (v, ctxt) -> return (L v, ctxt) | Union_t _, Prim (loc, D_Left, l, _) -> fail @@ Invalid_arity (loc, D_Left, 1, List.length l) @@ -1491,7 +1509,7 @@ let rec parse_data check_const_type_annot loc annot ty_name [rconstr] >>=? fun () -> Lwt.return (Gas.consume ctxt Typecheck_costs.union) >>=? fun ctxt -> traced @@ - parse_data ?type_logger ctxt tr v >>=? fun (v, ctxt) -> + parse_data ?type_logger ctxt ~legacy tr v >>=? fun (v, ctxt) -> return (R v, ctxt) | Union_t _, Prim (loc, D_Right, l, _) -> fail @@ Invalid_arity (loc, D_Right, 1, List.length l) @@ -1501,7 +1519,7 @@ let rec parse_data | Lambda_t (ta, tr, _ty_name), (Seq (_loc, _) as script_instr) -> Lwt.return (Gas.consume ctxt Typecheck_costs.lambda) >>=? fun ctxt -> traced @@ - parse_returning Lambda ?type_logger ctxt (ta, Some (`Var_annot "@arg")) tr script_instr + parse_returning Lambda ?type_logger ctxt ~legacy (ta, Some (`Var_annot "@arg")) tr script_instr | Lambda_t _, expr -> traced (fail (Invalid_kind (location expr, [ Seq_kind ], kind expr))) (* Options *) @@ -1509,7 +1527,7 @@ let rec parse_data check_const_type_annot loc annot ty_name [some_constr] >>=? fun () -> Lwt.return (Gas.consume ctxt Typecheck_costs.some) >>=? fun ctxt -> traced @@ - parse_data ?type_logger ctxt t v >>=? fun (v, ctxt) -> + parse_data ?type_logger ctxt ~legacy t v >>=? fun (v, ctxt) -> return (Some v, ctxt) | Option_t _, Prim (loc, D_Some, l, _) -> fail @@ Invalid_arity (loc, D_Some, 1, List.length l) @@ -1527,7 +1545,7 @@ let rec parse_data fold_right_s (fun v (rest, ctxt) -> Lwt.return (Gas.consume ctxt Typecheck_costs.list_element) >>=? fun ctxt -> - parse_data ?type_logger ctxt t v >>=? fun (v, ctxt) -> + parse_data ?type_logger ctxt ~legacy t v >>=? fun (v, ctxt) -> return ((v :: rest), ctxt)) items ([], ctxt) | List_t _, expr -> @@ -1572,16 +1590,16 @@ and parse_comparable_data ?type_logger:type_logger -> context -> a comparable_ty -> Script.node -> (a * context) tzresult Lwt.t = fun ?type_logger ctxt ty script_data -> - parse_data ?type_logger ctxt (ty_of_comparable_ty ty) script_data + parse_data ?type_logger ctxt ~legacy: false (ty_of_comparable_ty ty) script_data and parse_returning : type arg ret. ?type_logger: type_logger -> - tc_context -> context -> + tc_context -> context -> legacy:bool -> arg ty * var_annot option -> ret ty -> Script.node -> ((arg, ret) lambda * context) tzresult Lwt.t = - fun ?type_logger tc_context ctxt (arg, arg_annot) ret script_instr -> - parse_instr ?type_logger tc_context ctxt + fun ?type_logger tc_context ctxt ~legacy (arg, arg_annot) ret script_instr -> + parse_instr ?type_logger tc_context ctxt ~legacy script_instr (Item_t (arg, Empty_t, arg_annot)) >>=? function | (Typed ({ loc ; aft = (Item_t (ty, Empty_t, _) as stack_ty) ; _ } as descr), ctxt) -> trace_eval @@ -1603,9 +1621,9 @@ and parse_returning and parse_instr : type bef. ?type_logger: type_logger -> - tc_context -> context -> + tc_context -> context -> legacy: bool -> Script.node -> bef stack_ty -> (bef judgement * context) tzresult Lwt.t = - fun ?type_logger tc_context ctxt script_instr stack_ty -> + fun ?type_logger tc_context ctxt ~legacy script_instr stack_ty -> let check_item check loc name n m = trace_eval (fun () -> serialize_stack_for_error ctxt stack_ty >>|? fun (stack_ty, _ctxt) -> @@ -1666,8 +1684,8 @@ and parse_instr | Prim (loc, I_PUSH, [ t ; d ], annot), stack -> parse_var_annot loc annot >>=? fun annot -> - Lwt.return @@ parse_ty ctxt ~allow_big_map:false ~allow_operation:false t >>=? fun (Ex_ty t, ctxt) -> - parse_data ?type_logger ctxt t d >>=? fun (v, ctxt) -> + Lwt.return @@ parse_packable_ty ctxt ~legacy t >>=? fun (Ex_ty t, ctxt) -> + parse_data ?type_logger ctxt ~legacy t d >>=? fun (v, ctxt) -> typed ctxt loc (Const v) (Item_t (t, stack, annot)) | Prim (loc, I_UNIT, [], annot), stack -> @@ -1683,7 +1701,7 @@ and parse_instr (Item_t (Option_t ((t, some_field), none_field, ty_name), rest, annot)) | Prim (loc, I_NONE, [ t ], annot), stack -> - Lwt.return @@ parse_ty ctxt ~allow_big_map:true ~allow_operation:true t >>=? fun (Ex_ty t, ctxt) -> + Lwt.return @@ parse_any_ty ctxt ~legacy t >>=? fun (Ex_ty t, ctxt) -> parse_constr_annot loc annot >>=? fun (annot, ty_name, some_field, none_field) -> typed ctxt loc (Cons_none t) (Item_t (Option_t ((t, some_field), none_field, ty_name), stack, annot)) @@ -1693,8 +1711,8 @@ and parse_instr check_kind [ Seq_kind ] bf >>=? fun () -> fail_unexpected_annot loc annot >>=? fun () -> let annot = gen_access_annot option_annot some_field ~default:default_some_annot in - parse_instr ?type_logger tc_context ctxt bt rest >>=? fun (btr, ctxt) -> - parse_instr ?type_logger tc_context ctxt bf (Item_t (t, rest, annot)) >>=? fun (bfr, ctxt) -> + parse_instr ?type_logger tc_context ctxt ~legacy bt rest >>=? fun (btr, ctxt) -> + parse_instr ?type_logger tc_context ctxt ~legacy bf (Item_t (t, rest, annot)) >>=? fun (bfr, ctxt) -> let branch ibt ibf = { loc ; instr = If_none (ibt, ibf) ; bef ; aft = ibt.aft } in merge_branches ctxt loc btr bfr { branch } >>=? fun (judgement, ctxt) -> @@ -1731,14 +1749,14 @@ and parse_instr (* unions *) | Prim (loc, I_LEFT, [ tr ], annot), Item_t (tl, rest, stack_annot) -> - Lwt.return @@ parse_ty ctxt ~allow_big_map:true ~allow_operation:true tr >>=? fun (Ex_ty tr, ctxt) -> + Lwt.return @@ parse_any_ty ctxt ~legacy tr >>=? fun (Ex_ty tr, ctxt) -> parse_constr_annot loc annot ~if_special_first:(var_to_field_annot stack_annot) >>=? fun (annot, tname, l_field, r_field) -> typed ctxt loc Left (Item_t (Union_t ((tl, l_field), (tr, r_field), tname), rest, annot)) | Prim (loc, I_RIGHT, [ tl ], annot), Item_t (tr, rest, stack_annot) -> - Lwt.return @@ parse_ty ctxt ~allow_big_map:true ~allow_operation:true tl >>=? fun (Ex_ty tl, ctxt) -> + Lwt.return @@ parse_any_ty ctxt ~legacy tl >>=? fun (Ex_ty tl, ctxt) -> parse_constr_annot loc annot ~if_special_second:(var_to_field_annot stack_annot) >>=? fun (annot, tname, l_field, r_field) -> @@ -1750,8 +1768,8 @@ and parse_instr fail_unexpected_annot loc annot >>=? fun () -> let left_annot = gen_access_annot union_annot l_field ~default:default_left_annot in let right_annot = gen_access_annot union_annot r_field ~default:default_right_annot in - parse_instr ?type_logger tc_context ctxt bt (Item_t (tl, rest, left_annot)) >>=? fun (btr, ctxt) -> - parse_instr ?type_logger tc_context ctxt bf (Item_t (tr, rest, right_annot)) >>=? fun (bfr, ctxt) -> + parse_instr ?type_logger tc_context ctxt ~legacy bt (Item_t (tl, rest, left_annot)) >>=? fun (btr, ctxt) -> + parse_instr ?type_logger tc_context ctxt ~legacy bf (Item_t (tr, rest, right_annot)) >>=? fun (bfr, ctxt) -> let branch ibt ibf = { loc ; instr = If_left (ibt, ibf) ; bef ; aft = ibt.aft } in merge_branches ctxt loc btr bfr { branch } >>=? fun (judgement, ctxt) -> @@ -1759,7 +1777,7 @@ and parse_instr (* lists *) | Prim (loc, I_NIL, [ t ], annot), stack -> - Lwt.return @@ parse_ty ctxt ~allow_big_map:true ~allow_operation:true t >>=? fun (Ex_ty t, ctxt) -> + Lwt.return @@ parse_any_ty ctxt ~legacy t >>=? fun (Ex_ty t, ctxt) -> parse_var_type_annot loc annot >>=? fun (annot, ty_name) -> typed ctxt loc Nil (Item_t (List_t (t, ty_name), stack, annot)) | Prim (loc, I_CONS, [], annot), @@ -1774,10 +1792,10 @@ and parse_instr fail_unexpected_annot loc annot >>=? fun () -> let hd_annot = gen_access_annot list_annot default_hd_annot in let tl_annot = gen_access_annot list_annot default_tl_annot in - parse_instr ?type_logger tc_context ctxt bt + parse_instr ?type_logger tc_context ctxt ~legacy bt (Item_t (t, Item_t (List_t (t, ty_name), rest, tl_annot), hd_annot)) >>=? fun (btr, ctxt) -> - parse_instr ?type_logger tc_context ctxt bf + parse_instr ?type_logger tc_context ctxt ~legacy bf rest >>=? fun (bfr, ctxt) -> let branch ibt ibf = { loc ; instr = If_cons (ibt, ibf) ; bef ; aft = ibt.aft } in @@ -1793,7 +1811,7 @@ and parse_instr parse_var_type_annot loc annot >>=? fun (ret_annot, list_ty_name) -> let elt_annot = gen_access_annot list_annot default_elt_annot in - parse_instr ?type_logger tc_context ctxt + parse_instr ?type_logger tc_context ctxt ~legacy body (Item_t (elt, starting_rest, elt_annot)) >>=? begin fun (judgement, ctxt) -> match judgement with | Typed ({ aft = Item_t (ret, rest, _) ; _ } as ibody) -> @@ -1815,7 +1833,7 @@ and parse_instr check_kind [ Seq_kind ] body >>=? fun () -> fail_unexpected_annot loc annot >>=? fun () -> let elt_annot = gen_access_annot list_annot default_elt_annot in - parse_instr ?type_logger tc_context ctxt + parse_instr ?type_logger tc_context ctxt ~legacy body (Item_t (elt, rest, elt_annot)) >>=? begin fun (judgement, ctxt) -> match judgement with | Typed ({ aft ; _ } as ibody) -> @@ -1842,7 +1860,7 @@ and parse_instr fail_unexpected_annot loc annot >>=? fun () -> let elt_annot = gen_access_annot set_annot default_elt_annot in let elt = ty_of_comparable_ty comp_elt in - parse_instr ?type_logger tc_context ctxt + parse_instr ?type_logger tc_context ctxt ~legacy body (Item_t (elt, rest, elt_annot)) >>=? begin fun (judgement, ctxt) -> match judgement with | Typed ({ aft ; _ } as ibody) -> @@ -1877,7 +1895,7 @@ and parse_instr | Prim (loc, I_EMPTY_MAP, [ tk ; tv ], annot), stack -> Lwt.return @@ parse_comparable_ty ctxt tk >>=? fun (Ex_comparable_ty tk, ctxt) -> - Lwt.return @@ parse_ty ctxt ~allow_big_map:true ~allow_operation:true tv >>=? fun (Ex_ty tv, ctxt) -> + Lwt.return @@ parse_any_ty ctxt ~legacy tv >>=? fun (Ex_ty tv, ctxt) -> parse_var_type_annot loc annot >>=? fun (annot, ty_name) -> typed ctxt loc (Empty_map (tk, tv)) (Item_t (Map_t (tk, tv, ty_name), stack, annot)) | Prim (loc, I_MAP, [ body ], annot), @@ -1887,7 +1905,7 @@ and parse_instr parse_var_type_annot loc annot >>=? fun (ret_annot, ty_name) -> let k_name = field_to_var_annot default_key_annot in let e_name = field_to_var_annot default_elt_annot in - parse_instr ?type_logger tc_context ctxt + parse_instr ?type_logger tc_context ctxt ~legacy body (Item_t (Pair_t ((k, None, k_name), (elt, None, e_name), None), starting_rest, None)) >>=? begin fun (judgement, ctxt) -> match judgement with @@ -1912,7 +1930,7 @@ and parse_instr let k_name = field_to_var_annot default_key_annot in let e_name = field_to_var_annot default_elt_annot in let key = ty_of_comparable_ty comp_elt in - parse_instr ?type_logger tc_context ctxt body + parse_instr ?type_logger tc_context ctxt ~legacy body (Item_t (Pair_t ((key, None, k_name), (element_ty, None, e_name), None), rest, None)) >>=? begin fun (judgement, ctxt) -> match judgement with @@ -1980,7 +1998,7 @@ and parse_instr typed ctxt loc Nop stack | Seq (loc, [ single ]), stack -> - parse_instr ?type_logger tc_context ctxt single + parse_instr ?type_logger tc_context ctxt ~legacy single stack >>=? begin fun (judgement, ctxt) -> match judgement with | Typed ({ aft ; _ } as instr) -> @@ -1995,13 +2013,13 @@ and parse_instr end | Seq (loc, hd :: tl), stack -> - parse_instr ?type_logger tc_context ctxt hd + parse_instr ?type_logger tc_context ctxt ~legacy hd stack >>=? begin fun (judgement, ctxt) -> match judgement with | Failed _ -> fail (Fail_not_in_tail_position (Micheline.location hd)) | Typed ({ aft = middle ; _ } as ihd) -> - parse_instr ?type_logger tc_context ctxt (Seq (-1, tl)) + parse_instr ?type_logger tc_context ctxt ~legacy (Seq (-1, tl)) middle >>=? fun (judgement, ctxt) -> match judgement with | Failed { descr } -> @@ -2017,8 +2035,8 @@ and parse_instr check_kind [ Seq_kind ] bt >>=? fun () -> check_kind [ Seq_kind ] bf >>=? fun () -> fail_unexpected_annot loc annot >>=? fun () -> - parse_instr ?type_logger tc_context ctxt bt rest >>=? fun (btr, ctxt) -> - parse_instr ?type_logger tc_context ctxt bf rest >>=? fun (bfr, ctxt) -> + parse_instr ?type_logger tc_context ctxt ~legacy bt rest >>=? fun (btr, ctxt) -> + parse_instr ?type_logger tc_context ctxt ~legacy bf rest >>=? fun (bfr, ctxt) -> let branch ibt ibf = { loc ; instr = If (ibt, ibf) ; bef ; aft = ibt.aft } in merge_branches ctxt loc btr bfr { branch } >>=? fun (judgement, ctxt) -> @@ -2027,7 +2045,7 @@ and parse_instr (Item_t (Bool_t _, rest, _stack_annot) as stack) -> check_kind [ Seq_kind ] body >>=? fun () -> fail_unexpected_annot loc annot >>=? fun () -> - parse_instr ?type_logger tc_context ctxt body + parse_instr ?type_logger tc_context ctxt ~legacy body rest >>=? begin fun (judgement, ctxt) -> match judgement with | Typed ibody -> @@ -2048,7 +2066,7 @@ and parse_instr check_kind [ Seq_kind ] body >>=? fun () -> parse_var_annot loc annot >>=? fun annot -> let l_annot = gen_access_annot union_annot l_field ~default:default_left_annot in - parse_instr ?type_logger tc_context ctxt body + parse_instr ?type_logger tc_context ctxt ~legacy body (Item_t (tl, rest, l_annot)) >>=? begin fun (judgement, ctxt) -> match judgement with | Typed ibody -> let unmatched_branches () = @@ -2065,13 +2083,13 @@ and parse_instr end | Prim (loc, I_LAMBDA, [ arg ; ret ; code ], annot), stack -> - Lwt.return @@ parse_ty ctxt ~allow_big_map:true ~allow_operation:true arg + Lwt.return @@ parse_any_ty ctxt ~legacy arg >>=? fun (Ex_ty arg, ctxt) -> - Lwt.return @@ parse_ty ctxt ~allow_big_map:true ~allow_operation:true ret + Lwt.return @@ parse_any_ty ctxt ~legacy ret >>=? fun (Ex_ty ret, ctxt) -> check_kind [ Seq_kind ] code >>=? fun () -> parse_var_annot loc annot >>=? fun annot -> - parse_returning Lambda ?type_logger ctxt + parse_returning Lambda ?type_logger ctxt ~legacy (arg, default_arg_annot) ret code >>=? fun (lambda, ctxt) -> typed ctxt loc (Lambda lambda) (Item_t (Lambda_t (arg, ret, None), stack, annot)) | Prim (loc, I_EXEC, [], annot), @@ -2083,7 +2101,7 @@ and parse_instr Item_t (v, rest, stack_annot) -> fail_unexpected_annot loc annot >>=? fun () -> check_kind [ Seq_kind ] code >>=? fun () -> - parse_instr ?type_logger (add_dip v stack_annot tc_context) ctxt code + parse_instr ?type_logger (add_dip v stack_annot tc_context) ctxt ~legacy code rest >>=? begin fun (judgement, ctxt) -> match judgement with | Typed descr -> typed ctxt loc (Dip descr) (Item_t (v, descr.aft, stack_annot)) @@ -2489,7 +2507,7 @@ and parse_instr | Prim (loc, I_CAST, [ cast_t ], annot), Item_t (t, stack, item_annot) -> parse_var_annot loc annot ~default:item_annot >>=? fun annot -> - (Lwt.return @@ parse_ty ctxt ~allow_big_map:true ~allow_operation:true cast_t) + (Lwt.return @@ parse_any_ty ctxt ~legacy cast_t) >>=? fun (Ex_ty cast_t, ctxt) -> Lwt.return @@ ty_eq ctxt cast_t t >>=? fun (Eq, ctxt) -> Lwt.return @@ merge_types ctxt loc cast_t t >>=? fun (_, ctxt) -> @@ -2501,14 +2519,14 @@ and parse_instr (* packing *) | Prim (loc, I_PACK, [], annot), Item_t (t, rest, unpacked_annot) -> - Lwt.return (check_no_big_map_or_operation loc t) >>=? fun () -> + Lwt.return (check_packable ~legacy:true loc t) >>=? fun () -> parse_var_annot loc annot ~default:(gen_access_annot unpacked_annot default_pack_annot) >>=? fun annot -> typed ctxt loc (Pack t) (Item_t (Bytes_t None, rest, annot)) | Prim (loc, I_UNPACK, [ ty ], annot), Item_t (Bytes_t _, rest, packed_annot) -> - Lwt.return @@ parse_ty ctxt ~allow_big_map:false ~allow_operation:false ty >>=? fun (Ex_ty t, ctxt) -> + Lwt.return @@ parse_packable_ty ctxt ~legacy ty >>=? fun (Ex_ty t, ctxt) -> let stack_annot = gen_access_annot packed_annot default_unpack_annot in parse_constr_annot loc annot ~if_special_first:(var_to_field_annot stack_annot) @@ -2524,7 +2542,7 @@ and parse_instr (Item_t (Address_t None, rest, annot)) | Prim (loc, I_CONTRACT, [ ty ], annot), Item_t (Address_t _, rest, addr_annot) -> - Lwt.return @@ parse_ty ctxt ~allow_big_map:false ~allow_operation:false ty >>=? fun (Ex_ty t, ctxt) -> + Lwt.return @@ parse_ty ctxt ~legacy ~allow_big_map:false ~allow_operation:false ~allow_contract:true ty >>=? fun (Ex_ty t, ctxt) -> parse_var_annot loc annot ~default:(gen_access_annot addr_annot default_contract_annot) >>=? fun annot -> typed ctxt loc (Contract t) @@ -2567,11 +2585,11 @@ and parse_instr Lwt.return @@ parse_toplevel cannonical_code >>=? fun (arg_type, storage_type, code_field) -> trace (Ill_formed_type (Some "parameter", cannonical_code, location arg_type)) - (Lwt.return @@ parse_ty ctxt ~allow_big_map:false ~allow_operation:false arg_type) + (Lwt.return @@ parse_packable_ty ctxt ~legacy arg_type) >>=? fun (Ex_ty arg_type, ctxt) -> trace (Ill_formed_type (Some "storage", cannonical_code, location storage_type)) - (Lwt.return @@ parse_storage_ty ctxt storage_type) + (Lwt.return @@ parse_storage_ty ctxt ~legacy storage_type) >>=? fun (Ex_ty storage_type, ctxt) -> let arg_annot = default_annot (type_to_var_annot (name_of_ty arg_type)) ~default:default_param_annot in @@ -2585,7 +2603,7 @@ and parse_instr trace (Ill_typed_contract (cannonical_code, [])) (parse_returning (Toplevel { storage_type ; param_type = arg_type }) - ctxt ?type_logger (arg_type_full, None) ret_type_full code_field) >>=? + ctxt ~legacy ?type_logger (arg_type_full, None) ret_type_full code_field) >>=? fun (Lam ({ bef = Item_t (arg, Empty_t, _) ; aft = Item_t (ret, Empty_t, _) ; _ }, _) as lambda, ctxt) -> Lwt.return @@ ty_eq ctxt arg arg_type_full >>=? fun (Eq, ctxt) -> @@ -2782,7 +2800,7 @@ and parse_contract Script.force_decode ctxt code >>=? fun (code, ctxt) -> Lwt.return (parse_toplevel code >>? fun (arg_type, _, _) -> - parse_ty ctxt ~allow_big_map:false ~allow_operation:false arg_type >>? fun (Ex_ty targ, ctxt) -> + parse_packable_ty ctxt ~legacy:true arg_type >>? fun (Ex_ty targ, ctxt) -> ty_eq ctxt targ arg >>? fun (Eq, ctxt) -> merge_types ctxt loc targ arg >>? fun (arg, ctxt) -> let contract : arg typed_contract = (arg, contract) in @@ -2819,7 +2837,7 @@ and parse_contract_for_script (match parse_toplevel code with | Error _ -> error (Invalid_contract (loc, contract)) | Ok (arg_type, _, _) -> - match parse_ty ctxt ~allow_big_map:false ~allow_operation:false arg_type with + match parse_packable_ty ctxt ~legacy:true arg_type with | Error _ -> error (Invalid_contract (loc, contract)) | Ok (Ex_ty targ, ctxt) -> @@ -2883,18 +2901,18 @@ and parse_toplevel let parse_script : ?type_logger: type_logger -> - context -> Script.t -> (ex_script * context) tzresult Lwt.t - = fun ?type_logger ctxt { code ; storage } -> + context -> legacy: bool -> Script.t -> (ex_script * context) tzresult Lwt.t + = fun ?type_logger ctxt ~legacy { code ; storage } -> Script.force_decode ctxt code >>=? fun (code, ctxt) -> Script.force_decode ctxt storage >>=? fun (storage, ctxt) -> Lwt.return @@ parse_toplevel code >>=? fun (arg_type, storage_type, code_field) -> trace (Ill_formed_type (Some "parameter", code, location arg_type)) - (Lwt.return (parse_ty ctxt ~allow_big_map:false ~allow_operation:false arg_type)) + (Lwt.return (parse_packable_ty ctxt ~legacy arg_type)) >>=? fun (Ex_ty arg_type, ctxt) -> trace (Ill_formed_type (Some "storage", code, location storage_type)) - (Lwt.return (parse_storage_ty ctxt storage_type)) + (Lwt.return (parse_storage_ty ctxt ~legacy storage_type)) >>=? fun (Ex_ty storage_type, ctxt) -> let arg_annot = default_annot (type_to_var_annot (name_of_ty arg_type)) ~default:default_param_annot in @@ -2909,26 +2927,27 @@ let parse_script (fun () -> Lwt.return @@ serialize_ty_for_error ctxt storage_type >>|? fun (storage_type, _ctxt) -> Ill_typed_data (None, storage, storage_type)) - (parse_data ?type_logger ctxt storage_type (root storage)) >>=? fun (storage, ctxt) -> + (parse_data ?type_logger ctxt ~legacy storage_type (root storage)) >>=? fun (storage, ctxt) -> trace (Ill_typed_contract (code, [])) (parse_returning (Toplevel { storage_type ; param_type = arg_type }) - ctxt ?type_logger (arg_type_full, None) ret_type_full code_field) >>=? fun (code, ctxt) -> + ctxt ~legacy ?type_logger (arg_type_full, None) ret_type_full code_field) >>=? fun (code, ctxt) -> return (Ex_script { code ; arg_type ; storage ; storage_type }, ctxt) let typecheck_code : context -> Script.expr -> (type_map * context) tzresult Lwt.t = fun ctxt code -> Lwt.return @@ parse_toplevel code >>=? fun (arg_type, storage_type, code_field) -> + let legacy = false in let type_map = ref [] in (* TODO: annotation checking *) trace (Ill_formed_type (Some "parameter", code, location arg_type)) - (Lwt.return (parse_ty ctxt ~allow_big_map:false ~allow_operation:false arg_type)) + (Lwt.return (parse_packable_ty ctxt ~legacy arg_type)) >>=? fun (Ex_ty arg_type, ctxt) -> trace (Ill_formed_type (Some "storage", code, location storage_type)) - (Lwt.return (parse_storage_ty ctxt storage_type)) + (Lwt.return (parse_storage_ty ctxt ~legacy storage_type)) >>=? fun (Ex_ty storage_type, ctxt) -> let arg_annot = default_annot (type_to_var_annot (name_of_ty arg_type)) ~default:default_param_annot in @@ -2942,7 +2961,7 @@ let typecheck_code let result = parse_returning (Toplevel { storage_type ; param_type = arg_type }) - ctxt + ctxt ~legacy ~type_logger: (fun loc bef aft -> type_map := (loc, (bef, aft)) :: !type_map) (arg_type_full, None) ret_type_full code_field in trace @@ -2954,15 +2973,16 @@ let typecheck_data : ?type_logger: type_logger -> context -> Script.expr * Script.expr -> context tzresult Lwt.t = fun ?type_logger ctxt (data, exp_ty) -> + let legacy = false in trace (Ill_formed_type (None, exp_ty, 0)) - (Lwt.return @@ parse_ty ctxt ~allow_big_map:false ~allow_operation:false (root exp_ty)) + (Lwt.return @@ parse_packable_ty ctxt ~legacy (root exp_ty)) >>=? fun (Ex_ty exp_ty, ctxt) -> trace_eval (fun () -> Lwt.return @@ serialize_ty_for_error ctxt exp_ty >>|? fun (exp_ty, _ctxt) -> Ill_typed_data (None, data, exp_ty)) - (parse_data ?type_logger ctxt exp_ty (root data)) >>=? fun (_, ctxt) -> + (parse_data ?type_logger ctxt ~legacy exp_ty (root data)) >>=? fun (_, ctxt) -> return ctxt (* ---- Unparsing (Typed IR -> Untyped expressions) --------------------------*) @@ -3114,10 +3134,12 @@ let rec unparse_data unparse_code ctxt mode (root original_code) (* Gas accounting may not be perfect in this function, as it is only called by RPCs. *) -and unparse_code ctxt mode = function +and unparse_code ctxt mode = + let legacy = true in + function | Prim (loc, I_PUSH, [ ty ; data ], annot) -> - Lwt.return (parse_ty ctxt ~allow_big_map:false ~allow_operation:false ty) >>=? fun (Ex_ty t, ctxt) -> - parse_data ctxt t data >>=? fun (data, ctxt) -> + Lwt.return (parse_packable_ty ctxt ~legacy ty) >>=? fun (Ex_ty t, ctxt) -> + parse_data ctxt ~legacy t data >>=? fun (data, ctxt) -> unparse_data ctxt mode t data >>=? fun (data, ctxt) -> Lwt.return (Gas.consume ctxt (Unparse_costs.prim_cost 2 annot)) >>=? fun ctxt -> return (Prim (loc, I_PUSH, [ ty ; data ], annot), ctxt) @@ -3193,7 +3215,7 @@ let big_map_get ctxt contract key { diff ; key_type ; value_type } = ctxt contract hash >>=? begin function | (ctxt, None) -> return (None, ctxt) | (ctxt, Some value) -> - parse_data ctxt value_type + parse_data ctxt ~legacy:true value_type (Micheline.root value) >>=? fun (x, ctxt) -> return (Some x, ctxt) end diff --git a/src/proto_alpha/lib_protocol/script_ir_translator.mli b/src/proto_alpha/lib_protocol/script_ir_translator.mli index 001bfa1dd5b0..28927cbc8de6 100644 --- a/src/proto_alpha/lib_protocol/script_ir_translator.mli +++ b/src/proto_alpha/lib_protocol/script_ir_translator.mli @@ -79,18 +79,22 @@ val ty_eq : val parse_data : ?type_logger: type_logger -> - context -> + context -> legacy: bool -> 'a Script_typed_ir.ty -> Script.node -> ('a * context) tzresult Lwt.t val unparse_data : context -> unparsing_mode -> 'a Script_typed_ir.ty -> 'a -> (Script.node * context) tzresult Lwt.t val parse_ty : - context -> + context -> legacy: bool -> allow_big_map: bool -> allow_operation: bool -> + allow_contract: bool -> Script.node -> (ex_ty * context) tzresult +val parse_packable_ty : + context -> legacy: bool -> Script.node -> (ex_ty * context) tzresult + val unparse_ty : context -> 'a Script_typed_ir.ty -> (Script.node * context) tzresult Lwt.t @@ -106,7 +110,7 @@ val typecheck_data : val parse_script : ?type_logger: type_logger -> - context -> Script.t -> (ex_script * context) tzresult Lwt.t + context -> legacy: bool -> Script.t -> (ex_script * context) tzresult Lwt.t (* Gas accounting may not be perfect in this function, as it is only called by RPCs. *) val unparse_script : diff --git a/src/proto_alpha/lib_protocol/script_repr.ml b/src/proto_alpha/lib_protocol/script_repr.ml index c51cfd8f3e60..f2f904ef4a79 100644 --- a/src/proto_alpha/lib_protocol/script_repr.ml +++ b/src/proto_alpha/lib_protocol/script_repr.ml @@ -62,7 +62,7 @@ let lazy_expr expr = type t = { code : lazy_expr ; - storage : lazy_expr + storage : lazy_expr ; } let encoding = diff --git a/src/proto_alpha/lib_protocol/script_tc_errors.ml b/src/proto_alpha/lib_protocol/script_tc_errors.ml index e0ec2ff63d6a..2041054fb3ac 100644 --- a/src/proto_alpha/lib_protocol/script_tc_errors.ml +++ b/src/proto_alpha/lib_protocol/script_tc_errors.ml @@ -44,6 +44,7 @@ type error += Missing_field of prim type error += Duplicate_field of Script.location * prim type error += Unexpected_big_map of Script.location type error += Unexpected_operation of Script.location +type error += Unexpected_contract of Script.location (* Instruction typing errors *) type error += Fail_not_in_tail_position of Script.location diff --git a/src/proto_alpha/lib_protocol/script_tc_errors_registration.ml b/src/proto_alpha/lib_protocol/script_tc_errors_registration.ml index 10347b6a7b5e..750213c838e1 100644 --- a/src/proto_alpha/lib_protocol/script_tc_errors_registration.ml +++ b/src/proto_alpha/lib_protocol/script_tc_errors_registration.ml @@ -180,14 +180,26 @@ let () = register_error_kind `Permanent ~id:"michelson_v1.unexpected_operation" - ~title: "Big map in unauthorized position (type error)" + ~title: "Operation in unauthorized position (type error)" ~description: - "When parsing script, a operation type was found \ + "When parsing script, an operation type was found \ in the storage or parameter field." (obj1 (req "loc" location_encoding)) (function Unexpected_operation loc -> Some loc | _ -> None) (fun loc -> Unexpected_operation loc) ; + (* Unexpected contract *) + register_error_kind + `Permanent + ~id:"unexpectedContract" + ~title: "Contract in unauthorized position (type error)" + ~description: + "When parsing script, a contract type was found \ + in the storage or parameter field." + (obj1 + (req "loc" location_encoding)) + (function Unexpected_contract loc -> Some loc | _ -> None) + (fun loc -> Unexpected_contract loc) ; (* -- Value typing errors ---------------------- *) (* Unordered map keys *) register_error_kind -- GitLab From 985d9a6bd8572c0f3bf8f30ab759d88c6475d536 Mon Sep 17 00:00:00 2001 From: Tom Jack Date: Wed, 10 Jul 2019 11:37:11 +0200 Subject: [PATCH 026/252] Client: handle disabled storing values of type contract t This is not a patch for the protocol. It does not affect the hash, but is needed for the client to work. --- src/proto_alpha/lib_client/michelson_v1_error_reporter.ml | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/src/proto_alpha/lib_client/michelson_v1_error_reporter.ml b/src/proto_alpha/lib_client/michelson_v1_error_reporter.ml index a48d1232e829..3edb68386299 100644 --- a/src/proto_alpha/lib_client/michelson_v1_error_reporter.ml +++ b/src/proto_alpha/lib_client/michelson_v1_error_reporter.ml @@ -300,6 +300,14 @@ let report_errors ~details ~show_source ?parsed ppf errs = loc ; if rest <> [] then Format.fprintf ppf "@," ; print_trace locations rest + | Environment.Ecoproto_error (Unexpected_contract loc) :: rest -> + Format.fprintf + ppf + "%acontract type forbidden in storage and constants" + print_loc + loc ; + if rest <> [] then Format.fprintf ppf "@," ; + print_trace locations rest | Environment.Ecoproto_error (Runtime_contract_error (contract, expr)) :: rest -> let parsed = -- GitLab From 22b58ca167e4aa51bd2aef146fb23e86415053de Mon Sep 17 00:00:00 2001 From: Benjamin Canou Date: Wed, 10 Jul 2019 12:15:51 +0200 Subject: [PATCH 027/252] Proto/Michelson: add lightweight multiple entrypoints Contains a BREAKING CHANGE (see end of message). This patch implements a way for a transaction to target a specific code path of a smart contract using a name. The implementation is piggy baking on Michelson's or type and field annotations. To take advantage of the multiple entrypoint feature, the parameter type of a contract must have at its toplevel a tree of `or` types. At each branching point in this tree, a field annotation (the ones with a %) can appear, providing the name of the entrypoint. Transactions now have to specify an entrypoint name. When a transaction is executed, the appropriate `Left` and `Right` constructors are automatically added to the value that is pushed onto the input stack, depending on the position of the entrypoint in the parameter type tree. This way, two contracts who share an entrypoint of the same type under the same name can be called exactly the same, even if the entrypoint is placed at a different point in their parameter type tree. From inside the smart contract, nothing changes. From within Michelson, this feature is also available. The `contract t` type now points to a specific entrypoint (of type `t`) of the contract. For this, the `CONTRACT` and `SELF` instructions now take an optional annotation (set to `%default` if not passed). The `TRANSFER_TOKEN` instruction will then use the entrypoint from the `contract t` value that it consumes from the stack. An exception to the semantics is made for the `%default` entrypoint : if present in the contract, it behaves as any other, however if not present, default is automatically attributed to the root of the parameter type. A special check is made at origination that there is no two entrypoints with the same name, and that if a default is present somewhere, then all entrypoints must be named, as otherwise some parts of the code would be unreachable. Smart contract developers can already use the feature, and their contracts will automatically take advantage of entrypoints after the migration. Smart contract developers should take great care when deploying contracts that use the `CREATE_CONTRACT` instruction, as this instruction will produce a failing operation after the migration if it tries to deploy a contract with ill formed entrypoints. To prevent this, contract authors should test their contract in a sandbox with the new protocol, or simply avoid hardcoding the `CREATE_CONTRACT` instruction when possible. --- .../lib_protocol/alpha_context.mli | 5 +- src/proto_alpha/lib_protocol/apply.ml | 53 ++- .../lib_protocol/helpers_services.ml | 29 +- .../lib_protocol/helpers_services.mli | 5 +- .../lib_protocol/michelson_v1_gas.mli | 2 +- .../lib_protocol/operation_repr.ml | 33 +- .../lib_protocol/operation_repr.mli | 3 +- .../lib_protocol/script_interpreter.ml | 62 +-- .../lib_protocol/script_interpreter.mli | 2 + .../lib_protocol/script_ir_annot.ml | 31 +- .../lib_protocol/script_ir_annot.mli | 6 + .../lib_protocol/script_ir_translator.ml | 377 +++++++++++++----- .../lib_protocol/script_ir_translator.mli | 10 +- src/proto_alpha/lib_protocol/script_repr.ml | 13 + src/proto_alpha/lib_protocol/script_repr.mli | 4 + .../lib_protocol/script_tc_errors.ml | 4 + .../script_tc_errors_registration.ml | 46 ++- .../lib_protocol/script_typed_ir.ml | 30 +- 18 files changed, 521 insertions(+), 194 deletions(-) diff --git a/src/proto_alpha/lib_protocol/alpha_context.mli b/src/proto_alpha/lib_protocol/alpha_context.mli index 2f42a7c8e0e6..52c0942bb16e 100644 --- a/src/proto_alpha/lib_protocol/alpha_context.mli +++ b/src/proto_alpha/lib_protocol/alpha_context.mli @@ -339,6 +339,8 @@ module Script : sig val minimal_deserialize_cost : lazy_expr -> Gas.cost val force_decode : context -> lazy_expr -> (expr * context) tzresult Lwt.t val force_bytes : context -> lazy_expr -> (MBytes.t * context) tzresult Lwt.t + + val unit_parameter : lazy_expr end module Constants : sig @@ -921,7 +923,8 @@ and _ manager_operation = | Reveal : Signature.Public_key.t -> Kind.reveal manager_operation | Transaction : { amount: Tez.tez ; - parameters: Script.lazy_expr option ; + parameters: Script.lazy_expr ; + entrypoint: string ; destination: Contract.contract ; } -> Kind.transaction manager_operation | Origination : { diff --git a/src/proto_alpha/lib_protocol/apply.ml b/src/proto_alpha/lib_protocol/apply.ml index 3de8022d23ae..c1dfc4bd8e3b 100644 --- a/src/proto_alpha/lib_protocol/apply.ml +++ b/src/proto_alpha/lib_protocol/apply.ml @@ -425,7 +425,7 @@ let apply_manager_operation_content : | Reveal _ -> return (* No-op: action already performed by `precheck_manager_contents`. *) (ctxt, (Reveal_result { consumed_gas = Gas.consumed ~since:before_operation ~until:ctxt } : kind successful_manager_operation_result), []) - | Transaction { amount ; parameters ; destination } -> begin + | Transaction { amount ; parameters ; destination ; entrypoint } -> begin spend ctxt source amount >>=? fun ctxt -> begin match Contract.is_implicit destination with | None -> return (ctxt, [], false) @@ -440,20 +440,21 @@ let apply_manager_operation_content : Contract.get_script ctxt destination >>=? fun (ctxt, script) -> match script with | None -> begin - match parameters with - | None -> return ctxt - | Some arg -> - Script.force_decode ctxt arg >>=? fun (arg, ctxt) -> (* see [note] *) - (* [note]: for toplevel ops, cost is nil since the - lazy value has already been forced at precheck, so - we compute and consume the full cost again *) - let cost_arg = Script.deserialized_cost arg in - Lwt.return (Gas.consume ctxt cost_arg) >>=? fun ctxt -> - match Micheline.root arg with - | Prim (_, D_Unit, [], _) -> - (* Allow [Unit] parameter to non-scripted contracts. *) - return ctxt - | _ -> fail (Script_interpreter.Bad_contract_parameter destination) + begin match entrypoint with + | "default" -> return () + | entrypoint -> fail (Script_tc_errors.No_such_entrypoint entrypoint) + end >>=? fun () -> + Script.force_decode ctxt parameters >>=? fun (arg, ctxt) -> (* see [note] *) + (* [note]: for toplevel ops, cost is nil since the + lazy value has already been forced at precheck, so + we compute and consume the full cost again *) + let cost_arg = Script.deserialized_cost arg in + Lwt.return (Gas.consume ctxt cost_arg) >>=? fun ctxt -> + match Micheline.root arg with + | Prim (_, D_Unit, [], _) -> + (* Allow [Unit] parameter to non-scripted contracts. *) + return ctxt + | _ -> fail (Script_interpreter.Bad_contract_parameter destination) end >>=? fun ctxt -> let result = Transaction_result @@ -472,20 +473,12 @@ let apply_manager_operation_content : } in return (ctxt, result, []) | Some script -> - begin match parameters with - | None -> - (* Forge a [Unit] parameter that will be checked by [execute]. *) - let unit = Micheline.strip_locations (Prim (0, Script.D_Unit, [], [])) in - return (ctxt, unit) - | Some parameters -> - Script.force_decode ctxt parameters >>=? fun (arg, ctxt) -> (* see [note] *) - let cost_arg = Script.deserialized_cost arg in - Lwt.return (Gas.consume ctxt cost_arg) >>=? fun ctxt -> - return (ctxt, arg) - end >>=? fun (ctxt, parameter) -> + Script.force_decode ctxt parameters >>=? fun (parameter, ctxt) -> (* see [note] *) + let cost_parameter = Script.deserialized_cost parameter in + Lwt.return (Gas.consume ctxt cost_parameter) >>=? fun ctxt -> Script_interpreter.execute ctxt mode - ~source ~payer ~self:(destination, script) ~amount ~parameter + ~source ~payer ~self:(destination, script) ~amount ~parameter ~entrypoint >>=? fun { ctxt ; storage ; big_map_diff ; operations } -> Contract.update_script_storage ctxt destination storage big_map_diff >>=? fun ctxt -> @@ -606,13 +599,13 @@ let precheck_manager_contents match operation with | Reveal pk -> Contract.reveal_manager_key ctxt source pk - | Transaction { parameters = Some arg ; _ } -> + | Transaction { parameters ; _ } -> (* Fail quickly if not enough gas for minimal deserialization cost *) Lwt.return @@ record_trace Gas_quota_exceeded_init_deserialize @@ - Gas.check_enough ctxt (Script.minimal_deserialize_cost arg) >>=? fun () -> + Gas.check_enough ctxt (Script.minimal_deserialize_cost parameters) >>=? fun () -> (* Fail if not enough gas for complete deserialization cost *) trace Gas_quota_exceeded_init_deserialize @@ - Script.force_decode ctxt arg >>|? fun (_arg, ctxt) -> ctxt + Script.force_decode ctxt parameters >>|? fun (_arg, ctxt) -> ctxt | Origination { script = Some script ; _ } -> (* Fail quickly if not enough gas for minimal deserialization cost *) Lwt.return @@ record_trace Gas_quota_exceeded_init_deserialize @@ diff --git a/src/proto_alpha/lib_protocol/helpers_services.ml b/src/proto_alpha/lib_protocol/helpers_services.ml index e2c1c8fe6749..8da5a2c8f61a 100644 --- a/src/proto_alpha/lib_protocol/helpers_services.ml +++ b/src/proto_alpha/lib_protocol/helpers_services.ml @@ -59,14 +59,15 @@ module Scripts = struct let path = RPC_path.(path / "scripts") let run_code_input_encoding = - (obj7 + (obj8 (req "script" Script.expr_encoding) (req "storage" Script.expr_encoding) (req "input" Script.expr_encoding) (req "amount" Tez.encoding) (opt "source" Contract.encoding) (opt "payer" Contract.encoding) - (opt "gas" z)) + (opt "gas" z) + (dft "entrypoint" string "default")) let trace_encoding = def "scripted.trace" @@ @@ -170,7 +171,7 @@ module Scripts = struct ~script: (script, None) >>=? fun ctxt -> return (ctxt, dummy_contract) in register0 S.run_code begin fun ctxt () - (code, storage, parameter, amount, source, payer, gas) -> + (code, storage, parameter, amount, source, payer, gas, entrypoint) -> let storage = Script.lazy_expr storage in let code = Script.lazy_expr code in originate_dummy_contract ctxt { storage ; code } >>=? fun (ctxt, dummy_contract) -> @@ -188,12 +189,13 @@ module Scripts = struct ~source ~payer ~self:(dummy_contract, { storage ; code }) + ~entrypoint ~amount ~parameter >>=? fun { Script_interpreter.storage ; operations ; big_map_diff ; _ } -> return (storage, operations, big_map_diff) end ; register0 S.trace_code begin fun ctxt () - (code, storage, parameter, amount, source, payer, gas) -> + (code, storage, parameter, amount, source, payer, gas, entrypoint) -> let storage = Script.lazy_expr storage in let code = Script.lazy_expr code in originate_dummy_contract ctxt { storage ; code } >>=? fun (ctxt, dummy_contract) -> @@ -211,6 +213,7 @@ module Scripts = struct ~source ~payer ~self:(dummy_contract, { storage ; code }) + ~entrypoint ~amount ~parameter >>=? fun ({ Script_interpreter.storage ; operations ; big_map_diff ; _ }, trace) -> return (storage, operations, trace, big_map_diff) @@ -255,9 +258,9 @@ module Scripts = struct match operation with | Reveal pk -> Contract.reveal_manager_key ctxt source pk - | Transaction { parameters = Some arg ; _ } -> + | Transaction { parameters ; _ } -> (* Here the data comes already deserialized, so we need to fake the deserialization to mimic apply *) - let arg_bytes = Data_encoding.Binary.to_bytes_exn Script.lazy_expr_encoding arg in + let arg_bytes = Data_encoding.Binary.to_bytes_exn Script.lazy_expr_encoding parameters in let arg = match Data_encoding.Binary.of_bytes Script.lazy_expr_encoding arg_bytes with | Some arg -> arg | None -> assert false in @@ -324,13 +327,13 @@ module Scripts = struct end - let run_code ctxt block code (storage, input, amount, source, payer, gas) = + let run_code ctxt block code (storage, input, amount, source, payer, gas, entrypoint) = RPC_context.make_call0 S.run_code ctxt - block () (code, storage, input, amount, source, payer, gas) + block () (code, storage, input, amount, source, payer, gas, entrypoint) - let trace_code ctxt block code (storage, input, amount, source, payer, gas) = + let trace_code ctxt block code (storage, input, amount, source, payer, gas, entrypoint) = RPC_context.make_call0 S.trace_code ctxt - block () (code, storage, input, amount, source, payer, gas) + block () (code, storage, input, amount, source, payer, gas, entrypoint) let typecheck_code ctxt block = RPC_context.make_call0 S.typecheck_code ctxt block () @@ -431,12 +434,12 @@ module Forge = struct let transaction ctxt block ~branch ~source ?sourcePubKey ~counter - ~amount ~destination ?parameters + ~amount ~destination ?(entrypoint = "default") ?parameters ~gas_limit ~storage_limit ~fee ()= - let parameters = Option.map ~f:Script.lazy_expr parameters in + let parameters = Option.unopt_map ~f:Script.lazy_expr ~default:Script.unit_parameter parameters in operations ctxt block ~branch ~source ?sourcePubKey ~counter ~fee ~gas_limit ~storage_limit - [Manager (Transaction { amount ; parameters ; destination })] + [Manager (Transaction { amount ; parameters ; destination ; entrypoint })] let origination ctxt block ~branch diff --git a/src/proto_alpha/lib_protocol/helpers_services.mli b/src/proto_alpha/lib_protocol/helpers_services.mli index 0603230637dd..498a7b5b5e8b 100644 --- a/src/proto_alpha/lib_protocol/helpers_services.mli +++ b/src/proto_alpha/lib_protocol/helpers_services.mli @@ -40,7 +40,7 @@ module Scripts : sig val run_code: 'a #RPC_context.simple -> 'a -> Script.expr -> - (Script.expr * Script.expr * Tez.t * Contract.t option * Contract.t option * Z.t option) -> + (Script.expr * Script.expr * Tez.t * Contract.t option * Contract.t option * Z.t option * string) -> (Script.expr * packed_internal_operation list * Contract.big_map_diff option) shell_tzresult Lwt.t @@ -48,7 +48,7 @@ module Scripts : sig val trace_code: 'a #RPC_context.simple -> 'a -> Script.expr -> - (Script.expr * Script.expr * Tez.t * Contract.t option * Contract.t option* Z.t option) -> + (Script.expr * Script.expr * Tez.t * Contract.t option * Contract.t option * Z.t option * string) -> (Script.expr * packed_internal_operation list * Script_interpreter.execution_trace * @@ -106,6 +106,7 @@ module Forge : sig counter:counter -> amount:Tez.t -> destination:Contract.t -> + ?entrypoint:string -> ?parameters:Script.expr -> gas_limit:Z.t -> storage_limit:Z.t -> diff --git a/src/proto_alpha/lib_protocol/michelson_v1_gas.mli b/src/proto_alpha/lib_protocol/michelson_v1_gas.mli index cfb121cf91fc..97d942a2e872 100644 --- a/src/proto_alpha/lib_protocol/michelson_v1_gas.mli +++ b/src/proto_alpha/lib_protocol/michelson_v1_gas.mli @@ -109,7 +109,7 @@ module Cost_of : sig val compare_nat : 'a Script_int.num -> 'b Script_int.num -> Gas.cost val compare_key_hash : 'a -> 'b -> Gas.cost val compare_timestamp : Script_timestamp.t -> Script_timestamp.t -> Gas.cost - val compare_address : Contract.t -> Contract.t -> Gas.cost + val compare_address : (Contract.t * string) -> (Contract.t * string) -> Gas.cost val manager_operation : Gas.cost diff --git a/src/proto_alpha/lib_protocol/operation_repr.ml b/src/proto_alpha/lib_protocol/operation_repr.ml index 1ccaa6297112..1cd5fc7bd635 100644 --- a/src/proto_alpha/lib_protocol/operation_repr.ml +++ b/src/proto_alpha/lib_protocol/operation_repr.ml @@ -110,7 +110,8 @@ and _ manager_operation = | Reveal : Signature.Public_key.t -> Kind.reveal manager_operation | Transaction : { amount: Tez_repr.tez ; - parameters: Script_repr.lazy_expr option ; + parameters: Script_repr.lazy_expr ; + entrypoint: string ; destination: Contract_repr.contract ; } -> Kind.transaction manager_operation | Origination : { @@ -225,6 +226,19 @@ module Encoding = struct (fun pkh -> Reveal pkh) } + let entrypoint_encoding = + def + ~title:"entrypoint" + ~description:"Named entrypoint to a Michelson smart contract" + "entrypoint" @@ + let builtin_case tag name = + Data_encoding.case (Tag tag) ~title:name + (constant name) + (fun n -> if Compare.String.(n = name) then Some () else None) (fun () -> name) in + union [ builtin_case 0 "default" ; + builtin_case 1 "root" ; + Data_encoding.case (Tag 255) ~title:"named" string (fun s -> Some s) (fun s -> s) ] + let transaction_case = MCase { tag = 1 ; @@ -233,18 +247,29 @@ module Encoding = struct (obj3 (req "amount" Tez_repr.encoding) (req "destination" Contract_repr.encoding) - (opt "parameters" Script_repr.lazy_expr_encoding)) ; + (opt "parameters" + (obj2 + (req "entrypoint" entrypoint_encoding) + (req "value" Script_repr.lazy_expr_encoding)))) ; select = (function | Manager (Transaction _ as op) -> Some op | _ -> None) ; proj = (function - | Transaction { amount ; destination ; parameters } -> + | Transaction { amount ; destination ; parameters ; entrypoint } -> + let parameters = + if Script_repr.is_unit_parameter parameters && Compare.String.(entrypoint = "default") then + None + else + Some (entrypoint, parameters) in (amount, destination, parameters)) ; inj = (fun (amount, destination, parameters) -> - Transaction { amount ; destination ; parameters }) + let entrypoint, parameters = match parameters with + | None -> "default", Script_repr.unit_parameter + | Some (entrypoint, value) -> entrypoint, value in + Transaction { amount ; destination ; parameters ; entrypoint }) } let origination_case = diff --git a/src/proto_alpha/lib_protocol/operation_repr.mli b/src/proto_alpha/lib_protocol/operation_repr.mli index fe1dcb7547ba..7aaec4451d1b 100644 --- a/src/proto_alpha/lib_protocol/operation_repr.mli +++ b/src/proto_alpha/lib_protocol/operation_repr.mli @@ -111,7 +111,8 @@ and _ manager_operation = | Reveal : Signature.Public_key.t -> Kind.reveal manager_operation | Transaction : { amount: Tez_repr.tez ; - parameters: Script_repr.lazy_expr option ; + parameters: Script_repr.lazy_expr ; + entrypoint: string ; destination: Contract_repr.contract ; } -> Kind.transaction manager_operation | Origination : { diff --git a/src/proto_alpha/lib_protocol/script_interpreter.ml b/src/proto_alpha/lib_protocol/script_interpreter.ml index ce77687bc6df..00292652606d 100644 --- a/src/proto_alpha/lib_protocol/script_interpreter.ml +++ b/src/proto_alpha/lib_protocol/script_interpreter.ml @@ -669,7 +669,12 @@ let rec interp | Compare (Timestamp_key _), Item (a, Item (b, rest)) -> consume_gaz_comparison descr Script_timestamp.compare Interp_costs.compare_timestamp a b rest | Compare (Address_key _), Item (a, Item (b, rest)) -> - consume_gaz_comparison descr Contract.compare Interp_costs.compare_address a b rest + let compare (x, ex) (y, ey) = + let lres = Contract.compare x y in + if Compare.Int.(lres = 0) then + Compare.String.compare ex ey + else lres in + consume_gaz_comparison descr compare Interp_costs.compare_address a b rest (* comparators *) | Eq, Item (cmpres, rest) -> let cmpres = Script_int.compare cmpres Script_int.zero in @@ -725,21 +730,25 @@ let rec interp else logged_return (Item (None, rest), ctxt) (* protocol *) - | Address, Item ((_, contract), rest) -> + | Address, Item ((_, address), rest) -> Lwt.return (Gas.consume ctxt Interp_costs.address) >>=? fun ctxt -> - logged_return (Item (contract, rest), ctxt) - | Contract t, Item (contract, rest) -> + logged_return (Item (address, rest), ctxt) + | Contract (t, entrypoint), Item (contract, rest) -> Lwt.return (Gas.consume ctxt Interp_costs.contract) >>=? fun ctxt -> - Script_ir_translator.parse_contract_for_script ctxt loc t contract >>=? fun (ctxt, maybe_contract) -> - logged_return (Item (maybe_contract, rest), ctxt) + begin match contract, entrypoint with + | (contract, "default"), entrypoint | (contract, entrypoint), "default" -> + Script_ir_translator.parse_contract_for_script ctxt loc t contract ~entrypoint >>=? fun (ctxt, maybe_contract) -> + logged_return (Item (maybe_contract, rest), ctxt) + | _ -> logged_return (Item (None, rest), ctxt) + end | Transfer_tokens, - Item (p, Item (amount, Item ((tp, destination), rest))) -> + Item (p, Item (amount, Item ((tp, (destination, entrypoint)), rest))) -> Lwt.return (Gas.consume ctxt Interp_costs.transfer) >>=? fun ctxt -> unparse_data ctxt Optimized tp p >>=? fun (p, ctxt) -> let operation = Transaction - { amount ; destination ; - parameters = Some (Script.lazy_expr (Micheline.strip_locations p)) } in + { amount ; destination ; entrypoint ; + parameters = Script.lazy_expr (Micheline.strip_locations p) } in Lwt.return (fresh_internal_nonce ctxt) >>=? fun (ctxt, nonce) -> logged_return (Item (Internal_operation { source = self ; operation ; nonce }, rest), ctxt) | Create_account, @@ -752,12 +761,12 @@ let rec interp delegatable ; script = None ; spendable = true } in Lwt.return (fresh_internal_nonce ctxt) >>=? fun (ctxt, nonce) -> logged_return (Item (Internal_operation { source = self ; operation ; nonce }, - Item (contract, rest)), ctxt) + Item ((contract, "default"), rest)), ctxt) | Implicit_account, Item (key, rest) -> Lwt.return (Gas.consume ctxt Interp_costs.implicit_account) >>=? fun ctxt -> let contract = Contract.implicit_contract key in - logged_return (Item ((Unit_t None, contract), rest), ctxt) - | Create_contract (storage_type, param_type, Lam (_, code)), + logged_return (Item ((Unit_t None, (contract, "default")), rest), ctxt) + | Create_contract (storage_type, param_type, Lam (_, code), root_name), Item (manager, Item (delegate, Item (spendable, Item @@ -766,6 +775,8 @@ let rec interp (init, rest)))))) -> Lwt.return (Gas.consume ctxt Interp_costs.create_contract) >>=? fun ctxt -> unparse_ty ctxt param_type >>=? fun (unparsed_param_type, ctxt) -> + let unparsed_param_type = + Script_ir_translator.add_field_annot (Option.map ~f:(fun n -> `Field_annot n) root_name) None unparsed_param_type in unparse_ty ctxt storage_type >>=? fun (unparsed_storage_type, ctxt) -> let code = Micheline.strip_locations @@ -784,7 +795,7 @@ let rec interp Lwt.return (fresh_internal_nonce ctxt) >>=? fun (ctxt, nonce) -> logged_return (Item (Internal_operation { source = self ; operation ; nonce }, - Item (contract, rest)), ctxt) + Item ((contract, "default"), rest)), ctxt) | Set_delegate, Item (delegate, rest) -> Lwt.return (Gas.consume ctxt Interp_costs.create_account) >>=? fun ctxt -> @@ -826,13 +837,13 @@ let rec interp logged_return (Item (Script_int.(abs (of_zint steps)), rest), ctxt) | Source, rest -> Lwt.return (Gas.consume ctxt Interp_costs.source) >>=? fun ctxt -> - logged_return (Item (payer, rest), ctxt) + logged_return (Item ((payer, "default"), rest), ctxt) | Sender, rest -> Lwt.return (Gas.consume ctxt Interp_costs.source) >>=? fun ctxt -> - logged_return (Item (source, rest), ctxt) - | Self t, rest -> + logged_return (Item ((source, "default"), rest), ctxt) + | Self (t, entrypoint), rest -> Lwt.return (Gas.consume ctxt Interp_costs.self) >>=? fun ctxt -> - logged_return (Item ((t,self), rest), ctxt) + logged_return (Item ((t, (self, entrypoint)), rest), ctxt) | Amount, rest -> Lwt.return (Gas.consume ctxt Interp_costs.amount) >>=? fun ctxt -> logged_return (Item (amount, rest), ctxt) in @@ -850,14 +861,17 @@ let rec interp (* ---- contract handling ---------------------------------------------------*) -and execute ?log ctxt mode ~source ~payer ~self script amount arg : +and execute ?log ctxt mode ~source ~payer ~self ~entrypoint script amount arg : (Script.expr * packed_internal_operation list * context * Script_typed_ir.ex_big_map option) tzresult Lwt.t = parse_script ctxt script ~legacy:true - >>=? fun ((Ex_script { code ; arg_type ; storage ; storage_type }), ctxt) -> + >>=? fun ((Ex_script { code ; arg_type ; storage ; storage_type ; root_name }), ctxt) -> + trace + (Bad_contract_parameter self) + (Lwt.return (find_entrypoint arg_type ~root_name entrypoint)) >>=? fun (box, _) -> trace (Bad_contract_parameter self) - (parse_data ctxt ~legacy:false arg_type arg) >>=? fun (arg, ctxt) -> + (parse_data ctxt ~legacy:false arg_type (box arg)) >>=? fun (arg, ctxt) -> Script.force_decode ctxt script.code >>=? fun (script_code, ctxt) -> trace (Runtime_contract_error (self, script_code)) @@ -874,9 +888,9 @@ type execution_result = big_map_diff : Contract.big_map_diff option ; operations : packed_internal_operation list } -let trace ctxt mode ~source ~payer ~self:(self, script) ~parameter ~amount = +let trace ctxt mode ~source ~payer ~self:(self, script) ~entrypoint ~parameter ~amount = let log = ref [] in - execute ~log ctxt mode ~source ~payer ~self script amount (Micheline.root parameter) + execute ~log ctxt mode ~source ~payer ~self ~entrypoint script amount (Micheline.root parameter) >>=? fun (storage, operations, ctxt, big_map) -> begin match big_map with | None -> return (None, ctxt) @@ -887,8 +901,8 @@ let trace ctxt mode ~source ~payer ~self:(self, script) ~parameter ~amount = let trace = List.rev !log in return ({ ctxt ; storage ; big_map_diff ; operations }, trace) -let execute ctxt mode ~source ~payer ~self:(self, script) ~parameter ~amount = - execute ctxt mode ~source ~payer ~self script amount (Micheline.root parameter) +let execute ctxt mode ~source ~payer ~self:(self, script) ~entrypoint ~parameter ~amount = + execute ctxt mode ~source ~payer ~self ~entrypoint script amount (Micheline.root parameter) >>=? fun (storage, operations, ctxt, big_map) -> begin match big_map with | None -> return (None, ctxt) diff --git a/src/proto_alpha/lib_protocol/script_interpreter.mli b/src/proto_alpha/lib_protocol/script_interpreter.mli index af616319bb56..4ca1fd998c4f 100644 --- a/src/proto_alpha/lib_protocol/script_interpreter.mli +++ b/src/proto_alpha/lib_protocol/script_interpreter.mli @@ -48,6 +48,7 @@ val execute: source: Contract.t -> payer: Contract.t -> self: (Contract.t * Script.t) -> + entrypoint: string -> parameter: Script.expr -> amount: Tez.t -> execution_result tzresult Lwt.t @@ -58,6 +59,7 @@ val trace: source: Contract.t -> payer: Contract.t -> self: (Contract.t * Script.t) -> + entrypoint: string -> parameter: Script.expr -> amount: Tez.t -> (execution_result * execution_trace) tzresult Lwt.t diff --git a/src/proto_alpha/lib_protocol/script_ir_annot.ml b/src/proto_alpha/lib_protocol/script_ir_annot.ml index 57c0af937f9d..9e684421a41b 100644 --- a/src/proto_alpha/lib_protocol/script_ir_annot.ml +++ b/src/proto_alpha/lib_protocol/script_ir_annot.ml @@ -290,12 +290,18 @@ let extract_field_annot : Script.node -> (Script.node * field_annot option) tzresult = function | Prim (loc, prim, args, annot) -> - let field_annots, annot = List.partition (fun s -> - Compare.Int.(String.length s > 0) && - Compare.Char.(s.[0] = '%') - ) annot in - parse_field_annot loc field_annots >|? fun field_annot -> - Prim (loc, prim, args, annot), field_annot + let rec extract_first acc = function + | [] -> None, annot + | s :: rest -> + if Compare.Int.(String.length s > 0) && + Compare.Char.(s.[0] = '%') then + Some s, List.rev_append acc rest + else extract_first (s :: acc) rest in + let field_annot, annot = extract_first [] annot in + let field_annot = match field_annot with + | None -> None + | Some field_annot -> Some (`Field_annot (String.sub field_annot 1 (String.length field_annot - 1))) in + ok (Prim (loc, prim, args, annot), field_annot) | expr -> ok (expr, None) let check_correct_field @@ -402,6 +408,19 @@ let parse_destr_annot | None -> value_annot in (v, f) +let parse_entrypoint_annot + : int -> ?default:var_annot option -> string list -> (var_annot option * field_annot option) tzresult + = fun loc ?default annot -> + parse_annots loc annot >>? + classify_annot loc >>? fun (vars, types, fields) -> + error_unexpected_annot loc types >>? fun () -> + get_one_annot loc fields >>? fun f -> + get_one_annot loc vars >|? function + | Some _ as a -> (a, f) + | None -> match default with + | Some a -> (a, f) + | None -> (None, f) + let parse_var_type_annot : int -> string list -> (var_annot option * type_annot option) tzresult = fun loc annot -> diff --git a/src/proto_alpha/lib_protocol/script_ir_annot.mli b/src/proto_alpha/lib_protocol/script_ir_annot.mli index 88483d902e66..78fa887690fa 100644 --- a/src/proto_alpha/lib_protocol/script_ir_annot.mli +++ b/src/proto_alpha/lib_protocol/script_ir_annot.mli @@ -157,5 +157,11 @@ val parse_destr_annot : value_annot:var_annot option -> (var_annot option * field_annot option) tzresult +val parse_entrypoint_annot : + int -> + ?default:var_annot option -> + string list -> + (var_annot option * field_annot option) tzresult + val parse_var_type_annot : int -> string list -> (var_annot option * type_annot option) tzresult diff --git a/src/proto_alpha/lib_protocol/script_ir_translator.ml b/src/proto_alpha/lib_protocol/script_ir_translator.ml index 54cd79c19bed..d7cc9b617e58 100644 --- a/src/proto_alpha/lib_protocol/script_ir_translator.ml +++ b/src/proto_alpha/lib_protocol/script_ir_translator.ml @@ -40,7 +40,7 @@ type ex_stack_ty = Ex_stack_ty : 'a stack_ty -> ex_stack_ty type tc_context = | Lambda : tc_context | Dip : 'a stack_ty * tc_context -> tc_context - | Toplevel : { storage_type : 'sto ty ; param_type : 'param ty } -> tc_context + | Toplevel : { storage_type : 'sto ty ; param_type : 'param ty ; root_name : string option } -> tc_context type unparsing_mode = Optimized | Readable @@ -415,7 +415,12 @@ let compare_comparable else if Compare.Int.(res > 0) then 1 else -1 | Timestamp_key _ -> Script_timestamp.compare x y - | Address_key _ -> Contract.compare x y + | Address_key _ -> + let x, ex = x and y, ey = y in + let lres = Contract.compare x y in + if Compare.Int.(lres = 0) then + Compare.String.compare ex ey + else lres | Bytes_key _ -> MBytes.compare x y let empty_set @@ -608,8 +613,8 @@ let rec unparse_ty_no_lwt unparse_ty_no_lwt ctxt uta >>? fun (ta, ctxt) -> unparse_ty_no_lwt ctxt utr >>? fun (tr, ctxt) -> return ctxt (T_lambda, [ ta; tr ], unparse_type_annot tname) - | Option_t ((ut, some_field), _none_field, tname) -> - let annot = unparse_type_annot tname in + | Option_t ((ut, some_field), none_field, tname) -> + let annot = unparse_type_annot tname @ unparse_field_annot none_field in unparse_ty_no_lwt ctxt ut >>? fun (ut, ctxt) -> let t = add_field_annot some_field None ut in return ctxt (T_option, [ t ], annot) @@ -832,13 +837,6 @@ let merge_comparable_types Address_key annot | _, _ -> assert false (* FIXME: fix injectivity of some types *) -let rec strip_annotations = function - | (Int (_,_) as i) -> i - | (String (_,_) as s) -> s - | (Bytes (_,_) as s) -> s - | Prim (loc, prim, args, _) -> Prim (loc, prim, List.map strip_annotations args, []) - | Seq (loc, items) -> Seq (loc, List.map strip_annotations items) - let merge_types : type b. context -> Script.location -> b ty -> b ty -> (b ty * context) tzresult = let rec help : type a. context -> a ty -> a ty -> (a ty * context) tzresult @@ -1052,6 +1050,12 @@ and parse_packable_ty : = fun ctxt ~legacy -> parse_ty ctxt ~legacy ~allow_big_map:false ~allow_operation:false ~allow_contract:legacy +and parse_parameter_ty : + context -> legacy:bool -> + Script.node -> (ex_ty * context) tzresult + = fun ctxt ~legacy -> + parse_ty ctxt ~legacy ~allow_big_map:false ~allow_operation:false ~allow_contract:true + and parse_any_ty : context -> legacy:bool -> Script.node -> (ex_ty * context) tzresult @@ -1269,6 +1273,8 @@ type ex_script = Ex_script : ('a, 'c) script -> ex_script (* Lwt versions *) let parse_var_annot loc ?default annot = Lwt.return (parse_var_annot loc ?default annot) +let parse_entrypoint_annot loc ?default annot = + Lwt.return (parse_entrypoint_annot loc ?default annot) let parse_constr_annot loc ?if_special_first ?if_special_second annot = Lwt.return (parse_constr_annot loc ?if_special_first ?if_special_second annot) let parse_two_var_annot loc annot = @@ -1278,6 +1284,83 @@ let parse_destr_annot loc annot ~default_accessor ~field_name ~pair_annot ~value let parse_var_type_annot loc annot = Lwt.return (parse_var_type_annot loc annot) + +let find_entrypoint (type full) (full : full ty) ~root_name entrypoint = + let rec find_entrypoint + : type t. t ty -> string -> ((Script.node -> Script.node) * ex_ty) + = fun t entrypoint -> match t with + | Option_t ((t, a), anone, _) -> + if match a with None -> false | Some (`Field_annot l) -> Compare.String.(l = entrypoint) then + ((fun e -> Prim (0, D_Some, [ e ], [])), Ex_ty t) + else if match anone with None -> false | Some (`Field_annot r) -> Compare.String.(r = entrypoint) then + ((fun _e -> Prim (0, D_None, [], [])), Ex_ty (Unit_t None)) + else + let f, t = find_entrypoint t entrypoint in + ((fun e -> Prim (0, D_Some, [ f e ], [])), t) + | Union_t ((tl, al), (tr, ar), _) -> + if match al with None -> false | Some (`Field_annot l) -> Compare.String.(l = entrypoint) then + ((fun e -> Prim (0, D_Left, [ e ], [])), Ex_ty tl) + else if match ar with None -> false | Some (`Field_annot r) -> Compare.String.(r = entrypoint) then + ((fun e -> Prim (0, D_Right, [ e ], [])), Ex_ty tr) + else begin try + let (f, t) = find_entrypoint tl entrypoint in + ((fun e -> Prim (0, D_Left, [ f e ], [])), t) + with Not_found -> + let (f, t) = find_entrypoint tr entrypoint in + ((fun e -> Prim (0, D_Right, [ f e ], [])), t) + end + | _ -> raise Not_found in + let entrypoint = if Compare.String.(entrypoint = "") then "default" else entrypoint in + match root_name with + | Some root_name when Compare.String.(entrypoint = root_name) -> + ok ((fun e -> e), Ex_ty full) + | _ -> + try ok (find_entrypoint full entrypoint) with Not_found -> + match entrypoint with + | "default" -> ok ((fun e -> e), Ex_ty full) + | _ -> error (No_such_entrypoint entrypoint) + +module Entrypoints = Set.Make (String) + +let well_formed_entrypoints (type full) (full : full ty) ~root_name = + let merge path annot (type t) (ty : t ty) reachable ((first_unreachable, all) as acc) = + match annot with + | None | Some (`Field_annot "") -> + if reachable then acc + else begin match ty with + | Union_t _ -> acc + | _ -> match first_unreachable with + | None -> (Some (List.rev path), all) + | Some _ -> acc + end + | Some (`Field_annot name) -> + if Entrypoints.mem name all then raise (Failure name) + else (first_unreachable, Entrypoints.add name all) in + let rec check + : type t. t ty -> prim list -> bool -> (prim list) option * Entrypoints.t -> (prim list) option * Entrypoints.t + = fun t path reachable acc -> + match t with + | Option_t ((t, a), anone, _) -> + let acc = merge (D_Some :: path) a t reachable acc in + let acc = merge (D_None :: path) anone (Unit_t None) reachable acc in + check t (D_Some :: path) (match a with Some _ -> true | None -> reachable) acc + | Union_t ((tl, al), (tr, ar), _) -> + let acc = merge (D_Left :: path) al tl reachable acc in + let acc = merge (D_Right :: path) ar tr reachable acc in + let acc = check tl (D_Left :: path) (match al with Some _ -> true | None -> reachable) acc in + check tr (D_Right :: path) (match ar with Some _ -> true | None -> reachable) acc + | _ -> acc in + try + let init, reachable = match root_name with + | None | Some "" -> Entrypoints.empty, false + | Some name -> Entrypoints.singleton name, true in + let first_unreachable, all = check full [] reachable (None, init) in + if not (Entrypoints.mem "default" all) then ok () + else match first_unreachable with + | None -> ok () + | Some path -> error (Unreachable_entrypoint path) + with (Failure name) -> error (Duplicate_entrypoint name) + let rec parse_data : type a. ?type_logger: type_logger -> @@ -1453,35 +1536,77 @@ let rec parse_data the protocol should never parse the bytes of an operation *) assert false (* Addresses *) - | Address_t _, Bytes (_, bytes) (* As unparsed with [O[ptimized]. *) -> + | Address_t _, Bytes (loc, bytes) (* As unparsed with [O[ptimized]. *) -> Lwt.return (Gas.consume ctxt Typecheck_costs.contract) >>=? fun ctxt -> begin - match Data_encoding.Binary.of_bytes Contract.encoding bytes with - | Some c -> return (c, ctxt) + match Data_encoding.Binary.of_bytes + Data_encoding.(tup2 Contract.encoding Variable.string) + bytes with + | Some (c, entrypoint) -> + if Compare.Int.(String.length entrypoint > 31) then + fail (Entrypoint_name_too_long entrypoint) + else + begin match entrypoint with + | "" -> return "default" + | "default" -> fail (Unexpected_annotation loc) + | name -> return name end >>=? fun entrypoint -> + return ((c, entrypoint), ctxt) | None -> error () >>=? fail end - | Address_t _, String (_, s) (* As unparsed with [Readable]. *) -> + | Address_t _, String (loc, s) (* As unparsed with [Readable]. *) -> Lwt.return (Gas.consume ctxt Typecheck_costs.contract) >>=? fun ctxt -> - traced (Lwt.return (Contract.of_b58check s)) >>=? fun c -> - return (c, ctxt) + begin match String.index_opt s '%' with + | None -> return (s, "default") + | Some pos -> + let len = String.length s - pos - 1 in + let name = String.sub s (pos + 1) len in + if Compare.Int.(len > 31) then + fail (Entrypoint_name_too_long name) + else + match String.sub s 0 pos, name with + | _, "default" -> traced (fail (Unexpected_annotation loc)) + | addr_and_name -> return addr_and_name + end >>=? fun (addr, entrypoint) -> + Lwt.return (Contract.of_b58check addr) >>=? fun c -> + return ((c, entrypoint), ctxt) | Address_t _, expr -> traced (fail (Invalid_kind (location expr, [ String_kind ; Bytes_kind ], kind expr))) (* Contracts *) | Contract_t (ty, _), Bytes (loc, bytes) (* As unparsed with [Optimized]. *) -> Lwt.return (Gas.consume ctxt Typecheck_costs.contract) >>=? fun ctxt -> begin - match Data_encoding.Binary.of_bytes Contract.encoding bytes with - | Some c -> - traced (parse_contract ctxt loc ty c) >>=? fun (ctxt, _) -> - return ((ty, c), ctxt) + match Data_encoding.Binary.of_bytes + Data_encoding.(tup2 Contract.encoding Variable.string) + bytes with + | Some (c, entrypoint) -> + if Compare.Int.(String.length entrypoint > 31) then + fail (Entrypoint_name_too_long entrypoint) + else + begin match entrypoint with + | "" -> return "default" + | "default" -> traced (fail (Unexpected_annotation loc)) + | name -> return name end >>=? fun entrypoint -> + traced (parse_contract ctxt loc ty c ~entrypoint) >>=? fun (ctxt, _) -> + return ((ty, (c, entrypoint)), ctxt) | None -> error () >>=? fail end | Contract_t (ty, _), String (loc, s) (* As unparsed with [Readable]. *) -> Lwt.return (Gas.consume ctxt Typecheck_costs.contract) >>=? fun ctxt -> - traced @@ - Lwt.return (Contract.of_b58check s) >>=? fun c -> - parse_contract ctxt loc ty c >>=? fun (ctxt, _) -> - return ((ty, c), ctxt) + begin match String.index_opt s '%' with + | None -> return (s, "default") + | Some pos -> + let len = String.length s - pos - 1 in + let name = String.sub s (pos + 1) len in + if Compare.Int.(len > 31) then + fail (Entrypoint_name_too_long name) + else + match String.sub s 0 pos, name with + | _, "default" -> traced (fail (Unexpected_annotation loc)) + | addr_and_name -> return addr_and_name + end >>=? fun (addr, entrypoint) -> + traced (Lwt.return (Contract.of_b58check addr)) >>=? fun c -> + parse_contract ctxt loc ty c ~entrypoint >>=? fun (ctxt, _) -> + return ((ty, (c, entrypoint)), ctxt) | Contract_t _, expr -> traced (fail (Invalid_kind (location expr, [ String_kind ; Bytes_kind ], kind expr))) (* Pairs *) @@ -1596,8 +1721,8 @@ and parse_returning : type arg ret. ?type_logger: type_logger -> tc_context -> context -> legacy:bool -> - arg ty * var_annot option -> ret ty -> Script.node -> - ((arg, ret) lambda * context) tzresult Lwt.t = + arg ty * var_annot option -> ret ty -> Script.node -> + ((arg, ret) lambda * context) tzresult Lwt.t = fun ?type_logger tc_context ctxt ~legacy (arg, arg_annot) ret script_instr -> parse_instr ?type_logger tc_context ctxt ~legacy script_instr (Item_t (arg, Empty_t, arg_annot)) >>=? function @@ -1622,7 +1747,7 @@ and parse_instr : type bef. ?type_logger: type_logger -> tc_context -> context -> legacy: bool -> - Script.node -> bef stack_ty -> (bef judgement * context) tzresult Lwt.t = + Script.node -> bef stack_ty -> (bef judgement * context) tzresult Lwt.t = fun ?type_logger tc_context ctxt ~legacy script_instr stack_ty -> let check_item check loc name n m = trace_eval (fun () -> @@ -2543,9 +2668,14 @@ and parse_instr | Prim (loc, I_CONTRACT, [ ty ], annot), Item_t (Address_t _, rest, addr_annot) -> Lwt.return @@ parse_ty ctxt ~legacy ~allow_big_map:false ~allow_operation:false ~allow_contract:true ty >>=? fun (Ex_ty t, ctxt) -> - parse_var_annot loc annot ~default:(gen_access_annot addr_annot default_contract_annot) - >>=? fun annot -> - typed ctxt loc (Contract t) + parse_entrypoint_annot loc annot ~default:(gen_access_annot addr_annot default_contract_annot) + >>=? fun (annot, entrypoint) -> + Lwt.return @@ begin match entrypoint with + | None -> Ok "default" + | Some (`Field_annot "default") -> error (Unexpected_annotation loc) + | Some (`Field_annot entrypoint) -> Ok entrypoint + end >>=? fun entrypoint -> + typed ctxt loc (Contract (t, entrypoint)) (Item_t (Option_t ((Contract_t (t, None), None), None, None), rest, annot)) | Prim (loc, I_TRANSFER_TOKENS, [], annot), Item_t (p, Item_t @@ -2582,11 +2712,12 @@ and parse_instr (ginit, rest, _), _), _), _), _), _) -> parse_two_var_annot loc annot >>=? fun (op_annot, addr_annot) -> let cannonical_code = fst @@ Micheline.extract_locations code in - Lwt.return @@ parse_toplevel cannonical_code >>=? fun (arg_type, storage_type, code_field) -> + Lwt.return @@ parse_toplevel ~legacy cannonical_code >>=? fun (arg_type, storage_type, code_field, root_name) -> trace (Ill_formed_type (Some "parameter", cannonical_code, location arg_type)) - (Lwt.return @@ parse_packable_ty ctxt ~legacy arg_type) + (Lwt.return @@ parse_parameter_ty ctxt ~legacy arg_type) >>=? fun (Ex_ty arg_type, ctxt) -> + Lwt.return (well_formed_entrypoints ~root_name arg_type) >>=? fun () -> trace (Ill_formed_type (Some "storage", cannonical_code, location storage_type)) (Lwt.return @@ parse_storage_ty ctxt ~legacy storage_type) @@ -2602,7 +2733,7 @@ and parse_instr (storage_type, None, None), None) in trace (Ill_typed_contract (cannonical_code, [])) - (parse_returning (Toplevel { storage_type ; param_type = arg_type }) + (parse_returning (Toplevel { storage_type ; param_type = arg_type ; root_name }) ctxt ~legacy ?type_logger (arg_type_full, None) ret_type_full code_field) >>=? fun (Lam ({ bef = Item_t (arg, Empty_t, _) ; aft = Item_t (ret, Empty_t, _) ; _ }, _) as lambda, ctxt) -> @@ -2612,7 +2743,7 @@ and parse_instr Lwt.return @@ merge_types ctxt loc ret ret_type_full >>=? fun (_, ctxt) -> Lwt.return @@ ty_eq ctxt storage_type ginit >>=? fun (Eq, ctxt) -> Lwt.return @@ merge_types ctxt loc storage_type ginit >>=? fun (_, ctxt) -> - typed ctxt loc (Create_contract (storage_type, arg_type, lambda)) + typed ctxt loc (Create_contract (storage_type, arg_type, lambda, root_name)) (Item_t (Operation_t None, Item_t (Address_t None, rest, addr_annot), op_annot)) | Prim (loc, I_NOW, [], annot), stack -> @@ -2670,12 +2801,15 @@ and parse_instr (Item_t (Address_t None, stack, annot)) | Prim (loc, I_SELF, [], annot), stack -> - parse_var_annot loc annot ~default:default_self_annot >>=? fun annot -> + parse_entrypoint_annot loc annot ~default:default_self_annot + >>=? fun (annot, entrypoint) -> + let entrypoint = Option.unopt_map ~f:(fun (`Field_annot annot) -> annot) ~default:"default" entrypoint in let rec get_toplevel_type : tc_context -> (bef judgement * context) tzresult Lwt.t = function | Lambda -> fail (Self_in_lambda loc) | Dip (_, prev) -> get_toplevel_type prev - | Toplevel { param_type ; _ } -> - typed ctxt loc (Self param_type) + | Toplevel { param_type ; root_name ; _ } -> + Lwt.return (find_entrypoint param_type ~root_name entrypoint) >>=? fun (_, Ex_ty param_type) -> + typed ctxt loc (Self (param_type, entrypoint)) (Item_t (Contract_t (param_type, None), stack, annot)) in get_toplevel_type tc_context (* Primitive parsing errors *) @@ -2690,13 +2824,13 @@ and parse_instr | I_COMPARE | I_EQ | I_NEQ | I_LT | I_GT | I_LE | I_GE | I_TRANSFER_TOKENS | I_CREATE_ACCOUNT - | I_CREATE_CONTRACT | I_SET_DELEGATE | I_NOW + | I_SET_DELEGATE | I_NOW | I_IMPLICIT_ACCOUNT | I_AMOUNT | I_BALANCE | I_CHECK_SIGNATURE | I_HASH_KEY | I_SOURCE | I_SENDER | I_BLAKE2B | I_SHA256 | I_SHA512 | I_STEPS_TO_QUOTA | I_ADDRESS as name), (_ :: _ as l), _), _ -> fail (Invalid_arity (loc, name, 0, List.length l)) - | Prim (loc, (I_NONE | I_LEFT | I_RIGHT | I_NIL | I_MAP | I_ITER + | Prim (loc, (I_NONE | I_LEFT | I_RIGHT | I_NIL | I_MAP | I_ITER | I_CREATE_CONTRACT | I_EMPTY_SET | I_DIP | I_LOOP | I_LOOP_LEFT | I_CONTRACT as name), ([] | _ :: _ :: _ as l), _), _ -> @@ -2727,7 +2861,7 @@ and parse_instr stack -> serialize_stack_for_error ctxt stack >>=? fun (stack, _ctxt) -> fail (Bad_stack (loc, name, 3, stack)) - | Prim (loc, I_CREATE_CONTRACT, [], _), + | Prim (loc, I_CREATE_CONTRACT, _, _), stack -> serialize_stack_for_error ctxt stack >>=? fun (stack, _ctxt) -> fail (Bad_stack (loc, I_CREATE_CONTRACT, 7, stack)) @@ -2780,9 +2914,9 @@ and parse_instr I_EMPTY_MAP ; I_IF ; I_SOURCE ; I_SENDER ; I_SELF ; I_LAMBDA ] and parse_contract - : type arg. context -> Script.location -> arg ty -> Contract.t -> - (context * arg typed_contract) tzresult Lwt.t - = fun ctxt loc arg contract -> + : type arg. context -> Script.location -> arg ty -> Contract.t -> entrypoint:string -> + (context * arg typed_contract) tzresult Lwt.t + = fun ctxt loc arg contract ~entrypoint -> Lwt.return @@ Gas.consume ctxt Typecheck_costs.contract_exists >>=? fun ctxt -> Contract.exists ctxt contract >>=? function | false -> fail (Invalid_contract (loc, contract)) @@ -2794,26 +2928,32 @@ and parse_contract | None -> Lwt.return (ty_eq ctxt arg (Unit_t None) >>? fun (Eq, ctxt) -> - let contract : arg typed_contract = (arg, contract) in - ok (ctxt, contract)) + match entrypoint with + | "default" -> + let contract : arg typed_contract = (arg, (contract, entrypoint)) in + ok (ctxt, contract) + | entrypoint -> error (No_such_entrypoint entrypoint)) | Some code -> Script.force_decode ctxt code >>=? fun (code, ctxt) -> Lwt.return - (parse_toplevel code >>? fun (arg_type, _, _) -> - parse_packable_ty ctxt ~legacy:true arg_type >>? fun (Ex_ty targ, ctxt) -> + (parse_toplevel ~legacy:true code >>? fun (arg_type, _, _, root_name) -> + parse_parameter_ty ctxt ~legacy:true arg_type >>? fun (Ex_ty targ, ctxt) -> + let return ctxt targ entrypoint = + merge_types ctxt loc targ arg >>? fun (arg, ctxt) -> + let contract : arg typed_contract = (arg, (contract, entrypoint)) in + ok (ctxt, contract) in + find_entrypoint targ root_name entrypoint >>? fun (_, Ex_ty targ) -> ty_eq ctxt targ arg >>? fun (Eq, ctxt) -> - merge_types ctxt loc targ arg >>? fun (arg, ctxt) -> - let contract : arg typed_contract = (arg, contract) in - ok (ctxt, contract)) + return ctxt targ entrypoint) (* Same as the one above, but does not fail when the contact is missing or if the expected type doesn't match the actual one. In that case None is returned and some overapproximation of the typechecking gas is consumed. This can still fail on gas exhaustion. *) and parse_contract_for_script - : type arg. context -> Script.location -> arg ty -> Contract.t -> - (context * arg typed_contract option) tzresult Lwt.t - = fun ctxt loc arg contract -> + : type arg. context -> Script.location -> arg ty -> Contract.t -> entrypoint:string -> + (context * arg typed_contract option) tzresult Lwt.t + = fun ctxt loc arg contract ~entrypoint -> Lwt.return @@ Gas.consume ctxt Typecheck_costs.contract_exists >>=? fun ctxt -> Contract.exists ctxt contract >>=? function | false -> return (ctxt, None) @@ -2823,41 +2963,48 @@ and parse_contract_for_script (Invalid_contract (loc, contract)) @@ Contract.get_script_code ctxt contract >>=? fun (ctxt, code) -> match code with (* can only fail because of gas *) | None -> - Lwt.return - (match ty_eq ctxt arg (Unit_t None) with - | Ok (Eq, ctxt) -> - let contract : arg typed_contract = (arg, contract) in - ok (ctxt, Some contract) - | Error _ -> - Gas.consume ctxt Typecheck_costs.cycle >>? fun ctxt -> - ok (ctxt, None)) + begin match entrypoint with + | "default" -> + Lwt.return + (match ty_eq ctxt arg (Unit_t None) with + | Ok (Eq, ctxt) -> + let contract : arg typed_contract = (arg, (contract, entrypoint)) in + ok (ctxt, Some contract) + | Error _ -> + Gas.consume ctxt Typecheck_costs.cycle >>? fun ctxt -> + ok (ctxt, None)) + | _ -> return (ctxt, None) + end | Some code -> Script.force_decode ctxt code >>=? fun (code, ctxt) -> (* can only fail because of gas *) Lwt.return - (match parse_toplevel code with + (match parse_toplevel ~legacy:true code with | Error _ -> error (Invalid_contract (loc, contract)) - | Ok (arg_type, _, _) -> - match parse_packable_ty ctxt ~legacy:true arg_type with + | Ok (arg_type, _, _, root_name) -> + match parse_parameter_ty ctxt ~legacy:true arg_type with | Error _ -> error (Invalid_contract (loc, contract)) | Ok (Ex_ty targ, ctxt) -> match - (ty_eq ctxt targ arg >>? fun (Eq, ctxt) -> - merge_types ctxt loc targ arg >>? fun (arg, ctxt) -> - let contract : arg typed_contract = (arg, contract) in - ok (ctxt, Some contract)) + let return ctxt targ entrypoint = + merge_types ctxt loc targ arg >>? fun (arg, ctxt) -> + let contract : arg typed_contract = (arg, (contract, entrypoint)) in + ok (ctxt, Some contract) in + find_entrypoint targ ~root_name entrypoint >>? fun (_, Ex_ty targ) -> + ty_eq ctxt targ arg >>? fun (Eq, ctxt) -> + return ctxt targ entrypoint with | Ok res -> ok res | Error _ -> (* overapproximation by checking if targ = targ, - can only fail because of gas *) + can only fail because of gas *) ty_eq ctxt targ targ >>? fun (Eq, ctxt) -> merge_types ctxt loc targ targ >>? fun (_, ctxt) -> ok (ctxt, None)) and parse_toplevel - : Script.expr -> (Script.node * Script.node * Script.node) tzresult - = fun toplevel -> + : legacy: bool -> Script.expr -> (Script.node * Script.node * Script.node * string option) tzresult + = fun ~legacy toplevel -> record_trace (Ill_typed_contract (toplevel, [])) @@ match root toplevel with | Int (loc, _) -> error (Invalid_kind (loc, [ Seq_kind ], Int_kind)) @@ -2872,19 +3019,19 @@ and parse_toplevel | String (loc, _) :: _ -> error (Invalid_kind (loc, [ Prim_kind ], String_kind)) | Bytes (loc, _) :: _ -> error (Invalid_kind (loc, [ Prim_kind ], Bytes_kind)) | Seq (loc, _) :: _ -> error (Invalid_kind (loc, [ Prim_kind ], Seq_kind)) - | Prim (loc, K_parameter, [ arg ], _) :: rest -> + | Prim (loc, K_parameter, [ arg ], annot) :: rest -> begin match p with - | None -> find_fields (Some arg) s c rest + | None -> find_fields (Some (arg, loc, annot)) s c rest | Some _ -> error (Duplicate_field (loc, K_parameter)) end - | Prim (loc, K_storage, [ arg ], _) :: rest -> + | Prim (loc, K_storage, [ arg ], annot) :: rest -> begin match s with - | None -> find_fields p (Some arg) c rest + | None -> find_fields p (Some (arg, loc, annot)) c rest | Some _ -> error (Duplicate_field (loc, K_storage)) end - | Prim (loc, K_code, [ arg ], _) :: rest -> + | Prim (loc, K_code, [ arg ], annot) :: rest -> begin match c with - | None -> find_fields p s (Some arg) rest + | None -> find_fields p s (Some (arg, loc, annot)) rest | Some _ -> error (Duplicate_field (loc, K_code)) end | Prim (loc, (K_parameter | K_storage | K_code as name), args, _) :: _ -> @@ -2897,7 +3044,30 @@ and parse_toplevel | (None, _, _) -> error (Missing_field K_parameter) | (Some _, None, _) -> error (Missing_field K_storage) | (Some _, Some _, None) -> error (Missing_field K_code) - | (Some p, Some s, Some c) -> ok (p, s, c) + | (Some (p, ploc, pannot), Some (s, sloc, sannot), Some (c, cloc, carrot)) -> + let maybe_root_name = + (* root name can be attached to either the parameter + primitive or the toplevel constructor *) + Script_ir_annot.extract_field_annot p >>? fun (p, root_name) -> + match root_name with + | Some (`Field_annot root_name) -> + ok (p, pannot, Some root_name) + | None -> + match pannot with + | [ single ] when Compare.Int.(String.length single > 0) && Compare.Char.(String.get single 0 = '%') -> + ok (p, [], Some (String.sub single 1 (String.length single - 1))) + | _ -> ok (p, pannot, None) in + if legacy then + (* legacy semantics ignores spurious annotations *) + let p, root_name = match maybe_root_name with Ok (p, _, root_name) -> (p, root_name) | Error _ -> (p, None) in + ok (p, s, c, root_name) + else + (* only one field annot is allowed to set the root entrypoint name *) + maybe_root_name >>? fun (p, pannot, root_name) -> + Script_ir_annot.error_unexpected_annot ploc pannot >>? fun () -> + Script_ir_annot.error_unexpected_annot cloc carrot >>? fun () -> + Script_ir_annot.error_unexpected_annot sloc sannot >>? fun () -> + ok (p, s, c, root_name) let parse_script : ?type_logger: type_logger -> @@ -2905,11 +3075,12 @@ let parse_script = fun ?type_logger ctxt ~legacy { code ; storage } -> Script.force_decode ctxt code >>=? fun (code, ctxt) -> Script.force_decode ctxt storage >>=? fun (storage, ctxt) -> - Lwt.return @@ parse_toplevel code >>=? fun (arg_type, storage_type, code_field) -> + Lwt.return @@ parse_toplevel ~legacy code >>=? fun (arg_type, storage_type, code_field, root_name) -> trace (Ill_formed_type (Some "parameter", code, location arg_type)) - (Lwt.return (parse_packable_ty ctxt ~legacy arg_type)) + (Lwt.return (parse_parameter_ty ctxt ~legacy arg_type)) >>=? fun (Ex_ty arg_type, ctxt) -> + Lwt.return (well_formed_entrypoints ~root_name arg_type) >>=? fun () -> trace (Ill_formed_type (Some "storage", code, location storage_type)) (Lwt.return (parse_storage_ty ctxt ~legacy storage_type)) @@ -2930,21 +3101,21 @@ let parse_script (parse_data ?type_logger ctxt ~legacy storage_type (root storage)) >>=? fun (storage, ctxt) -> trace (Ill_typed_contract (code, [])) - (parse_returning (Toplevel { storage_type ; param_type = arg_type }) + (parse_returning (Toplevel { storage_type ; param_type = arg_type ; root_name }) ctxt ~legacy ?type_logger (arg_type_full, None) ret_type_full code_field) >>=? fun (code, ctxt) -> - return (Ex_script { code ; arg_type ; storage ; storage_type }, ctxt) + return (Ex_script { code ; arg_type ; storage ; storage_type ; root_name }, ctxt) let typecheck_code : context -> Script.expr -> (type_map * context) tzresult Lwt.t = fun ctxt code -> - Lwt.return @@ parse_toplevel code >>=? fun (arg_type, storage_type, code_field) -> let legacy = false in + Lwt.return @@ parse_toplevel ~legacy code >>=? fun (arg_type, storage_type, code_field, root_name) -> let type_map = ref [] in - (* TODO: annotation checking *) trace (Ill_formed_type (Some "parameter", code, location arg_type)) - (Lwt.return (parse_packable_ty ctxt ~legacy arg_type)) + (Lwt.return (parse_parameter_ty ctxt ~legacy arg_type)) >>=? fun (Ex_ty arg_type, ctxt) -> + Lwt.return (well_formed_entrypoints ~root_name arg_type) >>=? fun () -> trace (Ill_formed_type (Some "storage", code, location storage_type)) (Lwt.return (parse_storage_ty ctxt ~legacy storage_type)) @@ -2960,7 +3131,7 @@ let typecheck_code (storage_type, None, None), None) in let result = parse_returning - (Toplevel { storage_type ; param_type = arg_type }) + (Toplevel { storage_type ; param_type = arg_type ; root_name }) ctxt ~legacy ~type_logger: (fun loc bef aft -> type_map := (loc, (bef, aft)) :: !type_map) (arg_type_full, None) ret_type_full code_field in @@ -3023,23 +3194,37 @@ let rec unparse_data | None -> return (Int (-1, Script_timestamp.to_zint t), ctxt) | Some s -> return (String (-1, s), ctxt) end - | Address_t _, c -> + | Address_t _, (c, entrypoint) -> Lwt.return (Gas.consume ctxt Unparse_costs.contract) >>=? fun ctxt -> begin match mode with | Optimized -> - let bytes = Data_encoding.Binary.to_bytes_exn Contract.encoding c in + let entrypoint = match entrypoint with "default" -> "" | name -> name in + let bytes = Data_encoding.Binary.to_bytes_exn + Data_encoding.(tup2 Contract.encoding Variable.string) + (c, entrypoint) in return (Bytes (-1, bytes), ctxt) - | Readable -> return (String (-1, Contract.to_b58check c), ctxt) + | Readable -> + let notation = match entrypoint with + | "default" -> Contract.to_b58check c + | entrypoint -> Contract.to_b58check c ^ "%" ^ entrypoint in + return (String (-1, notation), ctxt) end - | Contract_t _, (_, c) -> + | Contract_t _, (_, (c, entrypoint)) -> Lwt.return (Gas.consume ctxt Unparse_costs.contract) >>=? fun ctxt -> begin match mode with | Optimized -> - let bytes = Data_encoding.Binary.to_bytes_exn Contract.encoding c in + let entrypoint = match entrypoint with "default" -> "" | name -> name in + let bytes = Data_encoding.Binary.to_bytes_exn + Data_encoding.(tup2 Contract.encoding Variable.string) + (c, entrypoint) in return (Bytes (-1, bytes), ctxt) - | Readable -> return (String (-1, Contract.to_b58check c), ctxt) + | Readable -> + let notation = match entrypoint with + | "default" -> Contract.to_b58check c + | entrypoint -> Contract.to_b58check c ^ "%" ^ entrypoint in + return (String (-1, notation), ctxt) end | Signature_t _, s -> Lwt.return (Gas.consume ctxt Unparse_costs.signature) >>=? fun ctxt -> @@ -3162,12 +3347,13 @@ and unparse_code ctxt mode = | Int _ | String _ | Bytes _ as atom -> return (atom, ctxt) (* Gas accounting may not be perfect in this function, as it is only called by RPCs. *) -let unparse_script ctxt mode { code ; arg_type ; storage ; storage_type } = +let unparse_script ctxt mode { code ; arg_type ; storage ; storage_type ; root_name } = let Lam (_, original_code) = code in unparse_code ctxt mode (root original_code) >>=? fun (code, ctxt) -> unparse_data ctxt mode storage_type storage >>=? fun (storage, ctxt) -> unparse_ty ctxt arg_type >>=? fun (arg_type, ctxt) -> unparse_ty ctxt storage_type >>=? fun (storage_type, ctxt) -> + let arg_type = add_field_annot (Option.map ~f:(fun n -> `Field_annot n) root_name) None arg_type in let open Micheline in let code = Seq (-1, [ Prim (-1, K_parameter, [ arg_type ], []) ; @@ -3182,8 +3368,7 @@ let unparse_script ctxt mode { code ; arg_type ; storage ; storage_type } = storage = lazy_expr (strip_locations storage) }, ctxt) let pack_data ctxt typ data = - unparse_data ctxt Optimized typ data >>=? fun (data, ctxt) -> - let unparsed = strip_annotations @@ data in + unparse_data ctxt Optimized typ data >>=? fun (unparsed, ctxt) -> let bytes = Data_encoding.Binary.to_bytes_exn expr_encoding (Micheline.strip_locations unparsed) in Lwt.return @@ Gas.consume ctxt (Script.serialized_cost bytes) >>=? fun ctxt -> let bytes = MBytes.concat "" [ MBytes.of_string "\005" ; bytes ] in diff --git a/src/proto_alpha/lib_protocol/script_ir_translator.mli b/src/proto_alpha/lib_protocol/script_ir_translator.mli index 28927cbc8de6..a9c0629dd1a6 100644 --- a/src/proto_alpha/lib_protocol/script_ir_translator.mli +++ b/src/proto_alpha/lib_protocol/script_ir_translator.mli @@ -99,7 +99,10 @@ val unparse_ty : context -> 'a Script_typed_ir.ty -> (Script.node * context) tzresult Lwt.t val parse_toplevel : - Script.expr -> (Script.node * Script.node * Script.node) tzresult + legacy: bool -> Script.expr -> (Script.node * Script.node * Script.node * string option) tzresult + +val add_field_annot : + [ `Field_annot of string ] option -> [ `Var_annot of string ] option -> Script.node -> Script.node val typecheck_code : context -> Script.expr -> (type_map * context) tzresult Lwt.t @@ -119,12 +122,17 @@ val unparse_script : val parse_contract : context -> Script.location -> 'a Script_typed_ir.ty -> Contract.t -> + entrypoint: string -> (context * 'a Script_typed_ir.typed_contract) tzresult Lwt.t val parse_contract_for_script : context -> Script.location -> 'a Script_typed_ir.ty -> Contract.t -> + entrypoint: string -> (context * 'a Script_typed_ir.typed_contract option) tzresult Lwt.t +val find_entrypoint : + 't Script_typed_ir.ty -> root_name: string option -> string -> ((Script.node -> Script.node) * ex_ty) tzresult + val pack_data : context -> 'a Script_typed_ir.ty -> 'a -> (MBytes.t * context) tzresult Lwt.t val hash_data : context -> 'a Script_typed_ir.ty -> 'a -> (Script_expr_hash.t * context) tzresult Lwt.t diff --git a/src/proto_alpha/lib_protocol/script_repr.ml b/src/proto_alpha/lib_protocol/script_repr.ml index f2f904ef4a79..de41aeac6aa5 100644 --- a/src/proto_alpha/lib_protocol/script_repr.ml +++ b/src/proto_alpha/lib_protocol/script_repr.ml @@ -195,3 +195,16 @@ let minimal_deserialize_cost lexpr = ~fun_bytes:(fun b -> serialized_cost b) ~fun_combine:(fun c_free _ -> c_free) lexpr + +let unit = + Micheline.strip_locations (Prim (0, Michelson_v1_primitives.D_Unit, [], [])) + +let unit_parameter = + lazy_expr unit + +let is_unit_parameter = + let unit_bytes = Data_encoding.force_bytes unit_parameter in + Data_encoding.apply_lazy + ~fun_value:(fun v -> match Micheline.root v with Prim (_, Michelson_v1_primitives.D_Unit, [], []) -> true | _ -> false) + ~fun_bytes:(fun b -> MBytes.(=) b unit_bytes) + ~fun_combine:(fun res _ -> res) diff --git a/src/proto_alpha/lib_protocol/script_repr.mli b/src/proto_alpha/lib_protocol/script_repr.mli index 34dc0d90a851..f704d7b2231b 100644 --- a/src/proto_alpha/lib_protocol/script_repr.mli +++ b/src/proto_alpha/lib_protocol/script_repr.mli @@ -69,3 +69,7 @@ val force_decode : lazy_expr -> (expr * Gas_limit_repr.cost) tzresult val force_bytes : lazy_expr -> (MBytes.t * Gas_limit_repr.cost) tzresult val minimal_deserialize_cost : lazy_expr -> Gas_limit_repr.cost + +val unit_parameter : lazy_expr + +val is_unit_parameter : lazy_expr -> bool diff --git a/src/proto_alpha/lib_protocol/script_tc_errors.ml b/src/proto_alpha/lib_protocol/script_tc_errors.ml index 2041054fb3ac..d05cc2233cd8 100644 --- a/src/proto_alpha/lib_protocol/script_tc_errors.ml +++ b/src/proto_alpha/lib_protocol/script_tc_errors.ml @@ -45,6 +45,10 @@ type error += Duplicate_field of Script.location * prim type error += Unexpected_big_map of Script.location type error += Unexpected_operation of Script.location type error += Unexpected_contract of Script.location +type error += No_such_entrypoint of string +type error += Duplicate_entrypoint of string +type error += Unreachable_entrypoint of prim list +type error += Entrypoint_name_too_long of string (* Instruction typing errors *) type error += Fail_not_in_tail_position of Script.location diff --git a/src/proto_alpha/lib_protocol/script_tc_errors_registration.ml b/src/proto_alpha/lib_protocol/script_tc_errors_registration.ml index 750213c838e1..dbb6a179cf0d 100644 --- a/src/proto_alpha/lib_protocol/script_tc_errors_registration.ml +++ b/src/proto_alpha/lib_protocol/script_tc_errors_registration.ml @@ -188,10 +188,54 @@ let () = (req "loc" location_encoding)) (function Unexpected_operation loc -> Some loc | _ -> None) (fun loc -> Unexpected_operation loc) ; + (* No such entrypoint *) + register_error_kind + `Permanent + ~id:"michelson_v1.no_such_entrypoint" + ~title: "No such entrypoint (type error)" + ~description: + "An entrypoint was not found when calling a contract." + (obj1 + (req "entrypoint" string)) + (function No_such_entrypoint entrypoint -> Some entrypoint | _ -> None) + (fun entrypoint -> No_such_entrypoint entrypoint) ; + (* Unreachable entrypoint *) + register_error_kind + `Permanent + ~id:"michelson_v1.unreachable_entrypoint" + ~title: "Unreachable entrypoint (type error)" + ~description: + "An entrypoint in the contract is not reachable." + (obj1 + (req "path" (list prim_encoding))) + (function Unreachable_entrypoint path -> Some path | _ -> None) + (fun path -> Unreachable_entrypoint path) ; + (* Duplicate entrypoint *) + register_error_kind + `Permanent + ~id:"michelson_v1.duplicate_entrypoint" + ~title: "Duplicate entrypoint (type error)" + ~description: + "Two entrypoints have the same name." + (obj1 + (req "path" string)) + (function Duplicate_entrypoint entrypoint -> Some entrypoint | _ -> None) + (fun entrypoint -> Duplicate_entrypoint entrypoint) ; + (* Entrypoint name too long *) + register_error_kind + `Permanent + ~id:"michelson_v1.entrypoint_name_too_long" + ~title: "Entrypoint name too long (type error)" + ~description: + "An entrypoint name exceeds the maximum length of 31 characters." + (obj1 + (req "name" string)) + (function Entrypoint_name_too_long entrypoint -> Some entrypoint | _ -> None) + (fun entrypoint -> Entrypoint_name_too_long entrypoint) ; (* Unexpected contract *) register_error_kind `Permanent - ~id:"unexpectedContract" + ~id:"michelson_v1.unexpected_contract" ~title: "Contract in unauthorized position (type error)" ~description: "When parsing script, a contract type was found \ diff --git a/src/proto_alpha/lib_protocol/script_typed_ir.ml b/src/proto_alpha/lib_protocol/script_typed_ir.ml index 7656fc44a988..84fff17724c1 100644 --- a/src/proto_alpha/lib_protocol/script_typed_ir.ml +++ b/src/proto_alpha/lib_protocol/script_typed_ir.ml @@ -34,6 +34,8 @@ type field_annot = [ `Field_annot of string ] type annot = [ var_annot | type_annot | field_annot ] +type address = Contract.t * string + type 'ty comparable_ty = | Int_key : type_annot option -> (z num) comparable_ty | Nat_key : type_annot option -> (n num) comparable_ty @@ -43,7 +45,7 @@ type 'ty comparable_ty = | Bool_key : type_annot option -> bool comparable_ty | Key_hash_key : type_annot option -> public_key_hash comparable_ty | Timestamp_key : type_annot option -> Script_timestamp.t comparable_ty - | Address_key : type_annot option -> Contract.t comparable_ty + | Address_key : type_annot option -> address comparable_ty module type Boxed_set = sig @@ -69,7 +71,8 @@ type ('arg, 'storage) script = { code : (('arg, 'storage) pair, (packed_internal_operation list, 'storage) pair) lambda ; arg_type : 'arg ty ; storage : 'storage ; - storage_type : 'storage ty } + storage_type : 'storage ty ; + root_name : string option } and ('a, 'b) pair = 'a * 'b @@ -80,8 +83,7 @@ and end_of_stack = unit and ('arg, 'ret) lambda = Lam of ('arg * end_of_stack, 'ret * end_of_stack) descr * Script.expr -and 'arg typed_contract = - 'arg ty * Contract.t +and 'arg typed_contract = 'arg ty * address and 'ty ty = | Unit_t : type_annot option -> unit ty @@ -94,7 +96,7 @@ and 'ty ty = | Key_hash_t : type_annot option -> public_key_hash ty | Key_t : type_annot option -> public_key ty | Timestamp_t : type_annot option -> Script_timestamp.t ty - | Address_t : type_annot option -> Contract.t ty + | Address_t : type_annot option -> address ty | Bool_t : type_annot option -> bool ty | Pair_t : ('a ty * field_annot option * var_annot option) * @@ -348,19 +350,19 @@ and ('bef, 'aft) instr = (* protocol *) | Address : - (_ typed_contract * 'rest, Contract.t * 'rest) instr - | Contract : 'p ty -> - (Contract.t * 'rest, 'p typed_contract option * 'rest) instr + (_ typed_contract * 'rest, address * 'rest) instr + | Contract : 'p ty * string -> + (address * 'rest, 'p typed_contract option * 'rest) instr | Transfer_tokens : ('arg * (Tez.t * ('arg typed_contract * 'rest)), packed_internal_operation * 'rest) instr | Create_account : (public_key_hash * (public_key_hash option * (bool * (Tez.t * 'rest))), - packed_internal_operation * (Contract.t * 'rest)) instr + packed_internal_operation * (address * 'rest)) instr | Implicit_account : (public_key_hash * 'rest, unit typed_contract * 'rest) instr - | Create_contract : 'g ty * 'p ty * ('p * 'g, packed_internal_operation list * 'g) lambda -> + | Create_contract : 'g ty * 'p ty * ('p * 'g, packed_internal_operation list * 'g) lambda * string option -> (public_key_hash * (public_key_hash option * (bool * (bool * (Tez.t * ('g * 'rest))))), - packed_internal_operation * (Contract.t * 'rest)) instr + packed_internal_operation * (address * 'rest)) instr | Set_delegate : (public_key_hash option * 'rest, packed_internal_operation * 'rest) instr | Now : @@ -384,10 +386,10 @@ and ('bef, 'aft) instr = | Steps_to_quota : (* TODO: check that it always returns a nat *) ('rest, n num * 'rest) instr | Source : - ('rest, Contract.t * 'rest) instr + ('rest, address * 'rest) instr | Sender : - ('rest, Contract.t * 'rest) instr - | Self : 'p ty -> + ('rest, address * 'rest) instr + | Self : 'p ty * string -> ('rest, 'p typed_contract * 'rest) instr | Amount : ('rest, Tez.t * 'rest) instr -- GitLab From ac37d14545afaef1cf81d189c4cdb26af89af799 Mon Sep 17 00:00:00 2001 From: Julien Tesson Date: Tue, 23 Jul 2019 19:06:05 +0200 Subject: [PATCH 028/252] Proto/Michelson: add services to list entrypoints This patchs adds four new URIs. - `/helpers/entrypoint_type` - `/helpers/list_entrypoints` - `/contracts/index//entrypoints/` - `/contracts/index//entrypoints/` --- .../lib_protocol/contract_services.ml | 73 +++++++++++++++++++ .../lib_protocol/contract_services.mli | 8 ++ .../lib_protocol/helpers_services.ml | 72 +++++++++++++++++- .../lib_protocol/helpers_services.mli | 10 +++ .../lib_protocol/script_ir_translator.ml | 38 ++++++++++ .../lib_protocol/script_ir_translator.mli | 10 +++ 6 files changed, 210 insertions(+), 1 deletion(-) diff --git a/src/proto_alpha/lib_protocol/contract_services.ml b/src/proto_alpha/lib_protocol/contract_services.ml index 65e08c428411..c691d17e4172 100644 --- a/src/proto_alpha/lib_protocol/contract_services.ml +++ b/src/proto_alpha/lib_protocol/contract_services.ml @@ -127,6 +127,27 @@ module S = struct ~output: Script.expr_encoding RPC_path.(custom_root /: Contract.rpc_arg / "storage") + let entrypoint_type = + RPC_service.get_service + ~description: "Return the type of the given entrypoint of the contract" + ~query: RPC_query.empty + ~output: Script.expr_encoding + RPC_path.(custom_root /: Contract.rpc_arg / "entrypoints" /: RPC_arg.string) + + + let list_entrypoints = + RPC_service.get_service + ~description: "Return the list of entrypoints of the contract" + ~query: RPC_query.empty + ~output: (obj2 + (dft "unreachable" + (Data_encoding.list + (obj1 (req "path" (Data_encoding.list Michelson_v1_primitives.prim_encoding)))) + []) + (req "entrypoints" + (assoc Script.expr_encoding))) + RPC_path.(custom_root /: Contract.rpc_arg / "entrypoints") + let big_map_get = RPC_service.post_service ~description: "Access the value associated with a key in the big map storage of the contract." @@ -197,6 +218,52 @@ let register () = unparse_script ctxt Readable script >>=? fun (script, ctxt) -> Script.force_decode ctxt script.storage >>=? fun (storage, _ctxt) -> return_some storage) ; + register2 S.entrypoint_type + (fun ctxt v entrypoint () () -> Contract.get_script_code ctxt v >>=? fun (_, expr) -> + match expr with + | None -> raise Not_found + | Some expr -> + let ctxt = Gas.set_unlimited ctxt in + let legacy = true in + let open Script_ir_translator in + Script.force_decode ctxt expr >>=? fun (expr, _) -> + Lwt.return + begin + parse_toplevel ~legacy expr >>? fun (arg_type, _, _, root_name) -> + parse_ty ctxt ~legacy + ~allow_big_map:true ~allow_operation:false + ~allow_contract:true arg_type >>? fun (Ex_ty arg_type, _) -> + Script_ir_translator.find_entrypoint ~root_name arg_type + entrypoint + end >>= function + Ok (_f , Ex_ty ty)-> + unparse_ty ctxt ty >>=? fun (ty_node, _) -> + return (Micheline.strip_locations ty_node) + | Error _ -> raise Not_found) ; + register1 S.list_entrypoints + (fun ctxt v () () -> Contract.get_script_code ctxt v >>=? fun (_, expr) -> + match expr with + | None -> raise Not_found + | Some expr -> + let ctxt = Gas.set_unlimited ctxt in + let legacy = true in + let open Script_ir_translator in + Script.force_decode ctxt expr >>=? fun (expr, _) -> + Lwt.return + begin + parse_toplevel ~legacy expr >>? fun (arg_type, _, _, root_name) -> + parse_ty ctxt ~legacy + ~allow_big_map:true ~allow_operation:false + ~allow_contract:true arg_type >>? fun (Ex_ty arg_type, _) -> + Script_ir_translator.list_entrypoints ~root_name arg_type ctxt + end >>=? fun (unreachable_entrypoint,map) -> + return + (unreachable_entrypoint, + Entrypoints_map.fold + begin fun entry (_,ty) acc -> + (entry , Micheline.strip_locations ty) ::acc end + map []) + ) ; register1 S.big_map_get (fun ctxt contract () (key, key_type) -> let open Script_ir_translator in let ctxt = Gas.set_unlimited ctxt in @@ -266,6 +333,12 @@ let script_opt ctxt block contract = let storage ctxt block contract = RPC_context.make_call1 S.storage ctxt block contract () () +let entrypoint_type ctxt block contract entrypoint = + RPC_context.make_call2 S.entrypoint_type ctxt block contract entrypoint () () + +let list_entrypoints ctxt block contract = + RPC_context.make_call1 S.list_entrypoints ctxt block contract () () + let storage_opt ctxt block contract = RPC_context.make_opt_call1 S.storage ctxt block contract () () diff --git a/src/proto_alpha/lib_protocol/contract_services.mli b/src/proto_alpha/lib_protocol/contract_services.mli index 0682c387ba52..3676bfe6a1c3 100644 --- a/src/proto_alpha/lib_protocol/contract_services.mli +++ b/src/proto_alpha/lib_protocol/contract_services.mli @@ -75,6 +75,14 @@ val script_opt: val storage: 'a #RPC_context.simple -> 'a -> Contract.t -> Script.expr shell_tzresult Lwt.t +val entrypoint_type: + 'a #RPC_context.simple -> 'a -> Contract.t -> string -> Script.expr shell_tzresult Lwt.t + +val list_entrypoints: + 'a #RPC_context.simple -> 'a -> Contract.t -> + (Michelson_v1_primitives.prim list list * + (string * Script.expr) list) shell_tzresult Lwt.t + val storage_opt: 'a #RPC_context.simple -> 'a -> Contract.t -> Script.expr option shell_tzresult Lwt.t diff --git a/src/proto_alpha/lib_protocol/helpers_services.ml b/src/proto_alpha/lib_protocol/helpers_services.ml index 8da5a2c8f61a..9de19f0bb7f7 100644 --- a/src/proto_alpha/lib_protocol/helpers_services.ml +++ b/src/proto_alpha/lib_protocol/helpers_services.ml @@ -152,6 +152,33 @@ module Scripts = struct ~output: Apply_results.operation_data_and_metadata_encoding RPC_path.(path / "run_operation") + let entrypoint_type = + RPC_service.post_service + ~description: "Return the type of the given entrypoint" + ~query: RPC_query.empty + ~input: (obj2 + (req "script" Script.expr_encoding) + (dft "entrypoint" string "default")) + ~output: (obj1 + (req "entrypoint_type" (option Script.expr_encoding))) + RPC_path.(path / "entrypoint") + + + let list_entrypoints = + RPC_service.post_service + ~description: "Return the list of entrypoints of the given script" + ~query: RPC_query.empty + ~input: (obj1 + (req "script" Script.expr_encoding)) + ~output: (obj2 + (dft "unreachable" + (Data_encoding.list + (obj1 (req "path" (Data_encoding.list Michelson_v1_primitives.prim_encoding)))) + []) + (req "entrypoints" + (assoc Script.expr_encoding))) + RPC_path.(path / "entrypoints") + end let register () = @@ -324,7 +351,43 @@ module Scripts = struct ctxt Chain_id.zero Optimized shell.branch baker operation operation.protocol_data.contents >>=? fun (_ctxt, result) -> return result - + end; + register0 S.entrypoint_type begin fun ctxt () (expr, entrypoint) -> + let ctxt = Gas.set_unlimited ctxt in + let legacy = false in + let open Script_ir_translator in + Lwt.return + begin + parse_toplevel ~legacy expr >>? fun (arg_type, _, _, root_name) -> + parse_ty ctxt ~legacy + ~allow_big_map:true ~allow_operation:false + ~allow_contract:true arg_type >>? fun (Ex_ty arg_type, _) -> + Script_ir_translator.find_entrypoint ~root_name arg_type + entrypoint + end >>= function + Ok (_f , Ex_ty ty)-> + unparse_ty ctxt ty >>=? fun (ty_node, _) -> + return_some (Micheline.strip_locations ty_node) + | Error _ -> return_none + end ; + register0 S.list_entrypoints begin fun ctxt () expr -> + let ctxt = Gas.set_unlimited ctxt in + let legacy = false in + let open Script_ir_translator in + Lwt.return + begin + parse_toplevel ~legacy expr >>? fun (arg_type, _, _, root_name) -> + parse_ty ctxt ~legacy + ~allow_big_map:true ~allow_operation:false + ~allow_contract:true arg_type >>? fun (Ex_ty arg_type, _) -> + Script_ir_translator.list_entrypoints ~root_name arg_type ctxt + end >>=? fun (unreachable_entrypoint,map) -> + return + (unreachable_entrypoint, + Entrypoints_map.fold + begin fun entry (_,ty) acc -> + (entry , Micheline.strip_locations ty) ::acc end + map []) end let run_code ctxt block code (storage, input, amount, source, payer, gas, entrypoint) = @@ -347,6 +410,13 @@ module Scripts = struct let run_operation ctxt block = RPC_context.make_call0 S.run_operation ctxt block () + let entrypoint_type ctxt block = + RPC_context.make_call0 S.entrypoint_type ctxt block () + + let list_entrypoints ctxt block = + RPC_context.make_call0 S.list_entrypoints ctxt block () + + end module Forge = struct diff --git a/src/proto_alpha/lib_protocol/helpers_services.mli b/src/proto_alpha/lib_protocol/helpers_services.mli index 498a7b5b5e8b..12ba3ab3767a 100644 --- a/src/proto_alpha/lib_protocol/helpers_services.mli +++ b/src/proto_alpha/lib_protocol/helpers_services.mli @@ -72,6 +72,16 @@ module Scripts : sig 'a -> packed_operation -> (packed_protocol_data * Apply_results.packed_operation_metadata) shell_tzresult Lwt.t + val entrypoint_type: + 'a #RPC_context.simple -> + 'a -> Script.expr * string -> Script.expr option shell_tzresult Lwt.t + + val list_entrypoints: + 'a #RPC_context.simple -> + 'a -> Script.expr -> + (Michelson_v1_primitives.prim list list * + (string * Script.expr) list) shell_tzresult Lwt.t + end module Forge : sig diff --git a/src/proto_alpha/lib_protocol/script_ir_translator.ml b/src/proto_alpha/lib_protocol/script_ir_translator.ml index d7cc9b617e58..81e0ccc66fbe 100644 --- a/src/proto_alpha/lib_protocol/script_ir_translator.ml +++ b/src/proto_alpha/lib_protocol/script_ir_translator.ml @@ -3156,6 +3156,44 @@ let typecheck_data (parse_data ?type_logger ctxt ~legacy exp_ty (root data)) >>=? fun (_, ctxt) -> return ctxt +module Entrypoints_map = Map.Make (String) + +let list_entrypoints (type full) (full : full ty) ctxt ~root_name = + let merge path annot (type t) (ty : t ty) reachable ((unreachables, all) as acc) = + match annot with + | None | Some (`Field_annot "") -> + ok @@ + if reachable then acc else + begin match ty with + | Union_t _ -> acc + | _ -> ( (List.rev path)::unreachables, all ) + end + | Some (`Field_annot name) -> + if Compare.Int.(String.length name > 31) then ok ((List.rev path)::unreachables, all) + else if Entrypoints_map.mem name all then ok ((List.rev path)::unreachables, all) + else unparse_ty_no_lwt ctxt ty >>? fun (unparsed_ty , _) -> + ok (unreachables, Entrypoints_map.add name ((List.rev path),unparsed_ty) all) + in + let rec fold_tree + : type t. t ty -> + prim list -> + bool -> + prim list list * (prim list * Script.node) Entrypoints_map.t -> + (prim list list * (prim list * Script.node) Entrypoints_map.t) tzresult + = fun t path reachable acc -> + match t with + | Union_t ((tl, al), (tr, ar), _, _) -> + merge (D_Left :: path) al tl reachable acc >>? fun acc -> + merge (D_Right :: path) ar tr reachable acc >>? fun acc -> + fold_tree tl (D_Left :: path) (match al with Some _ -> true | None -> reachable) acc >>? fun acc -> + fold_tree tr (D_Right :: path) (match ar with Some _ -> true | None -> reachable) acc + | _ -> ok acc in + unparse_ty_no_lwt ctxt full >>? fun (unparsed_full , _) -> + let init, reachable = match root_name with + | None | Some "" -> Entrypoints_map.empty, false + | Some name -> Entrypoints_map.singleton name ([],unparsed_full), true in + fold_tree full [] reachable ([], init) + (* ---- Unparsing (Typed IR -> Untyped expressions) --------------------------*) let rec unparse_data diff --git a/src/proto_alpha/lib_protocol/script_ir_translator.mli b/src/proto_alpha/lib_protocol/script_ir_translator.mli index a9c0629dd1a6..f034103f66c9 100644 --- a/src/proto_alpha/lib_protocol/script_ir_translator.mli +++ b/src/proto_alpha/lib_protocol/script_ir_translator.mli @@ -133,6 +133,16 @@ val parse_contract_for_script : val find_entrypoint : 't Script_typed_ir.ty -> root_name: string option -> string -> ((Script.node -> Script.node) * ex_ty) tzresult +module Entrypoints_map : S.MAP with type key = string + +val list_entrypoints : + 't Script_typed_ir.ty -> + context -> + root_name: string option -> + (Michelson_v1_primitives.prim list list * + (Michelson_v1_primitives.prim list * Script.node) Entrypoints_map.t) + tzresult + val pack_data : context -> 'a Script_typed_ir.ty -> 'a -> (MBytes.t * context) tzresult Lwt.t val hash_data : context -> 'a Script_typed_ir.ty -> 'a -> (Script_expr_hash.t * context) tzresult Lwt.t -- GitLab From 139c32ef091aefba159c7ab1678a86a2565a0fbe Mon Sep 17 00:00:00 2001 From: Benjamin Canou Date: Wed, 10 Jul 2019 11:41:34 +0200 Subject: [PATCH 029/252] Client: adapt to Michelson lightweight multiple entrypoints This is not a patch for the protocol. It does not affect the hash, but is needed for the client to work. --- .../lib_client/client_proto_args.ml | 7 +++++ .../lib_client/client_proto_args.mli | 2 ++ .../lib_client/client_proto_context.ml | 14 ++++++--- .../lib_client/client_proto_context.mli | 1 + .../lib_client/client_proto_programs.ml | 10 ++++--- .../lib_client/client_proto_programs.mli | 2 ++ .../lib_client/michelson_v1_error_reporter.ml | 20 +++++++++++++ .../lib_client/operation_result.ml | 30 ++++++++++--------- .../client_proto_context_commands.ml | 9 ++++-- .../client_proto_programs_commands.ml | 9 ++++-- .../lib_protocol/helpers_services.ml | 10 +++---- .../lib_protocol/helpers_services.mli | 2 +- 12 files changed, 81 insertions(+), 35 deletions(-) diff --git a/src/proto_alpha/lib_client/client_proto_args.ml b/src/proto_alpha/lib_client/client_proto_args.ml index 82df813535a6..a189b8f69fd5 100644 --- a/src/proto_alpha/lib_client/client_proto_args.ml +++ b/src/proto_alpha/lib_client/client_proto_args.ml @@ -170,6 +170,13 @@ let source_arg = ~doc:"source of the deposits to be paid\nMust be a known address." string_parameter +let entrypoint_arg = + arg + ~long:"entrypoint" + ~placeholder:"name" + ~doc:"entrypoint of the smart contract" + string_parameter + let spendable_switch = switch ~long:"spendable" diff --git a/src/proto_alpha/lib_client/client_proto_args.mli b/src/proto_alpha/lib_client/client_proto_args.mli index 665abda70342..6c7e03b25dd4 100644 --- a/src/proto_alpha/lib_client/client_proto_args.mli +++ b/src/proto_alpha/lib_client/client_proto_args.mli @@ -44,6 +44,8 @@ val arg_arg : (string option, full) Clic.arg val source_arg : (string option, full) Clic.arg +val entrypoint_arg : (string option, full) Clic.arg + val delegate_arg : (Signature.Public_key_hash.t option, full) Clic.arg val delegatable_switch : (bool, full) Clic.arg diff --git a/src/proto_alpha/lib_client/client_proto_context.ml b/src/proto_alpha/lib_client/client_proto_context.ml index dd52feefa93e..6511becb2d2f 100644 --- a/src/proto_alpha/lib_client/client_proto_context.ml +++ b/src/proto_alpha/lib_client/client_proto_context.ml @@ -48,16 +48,22 @@ let parse_expression arg = (Michelson_v1_parser.parse_expression arg)) let transfer (cctxt : #full) ~chain ~block ?confirmations ?dry_run - ?verbose_signing ?branch ~source ~src_pk ~src_sk ~destination ?arg ~amount - ?fee ?gas_limit ?storage_limit ?counter ~fee_parameter () = + ?verbose_signing ?branch ~source ~src_pk ~src_sk ~destination + ?(entrypoint = "default") ?arg ~amount ?fee ?gas_limit ?storage_limit + ?counter ~fee_parameter () = ( match arg with | Some arg -> parse_expression arg >>=? fun {expanded = arg; _} -> return_some arg | None -> return_none ) >>=? fun parameters -> - let parameters = Option.map ~f:Script.lazy_expr parameters in - let contents = Transaction {amount; parameters; destination} in + let parameters = + Option.unopt_map + ~f:Script.lazy_expr + ~default:Script.unit_parameter + parameters + in + let contents = Transaction {amount; parameters; destination; entrypoint} in Injection.inject_manager_operation cctxt ~chain diff --git a/src/proto_alpha/lib_client/client_proto_context.mli b/src/proto_alpha/lib_client/client_proto_context.mli index e5cbc1ec373c..9448725ca02a 100644 --- a/src/proto_alpha/lib_client/client_proto_context.mli +++ b/src/proto_alpha/lib_client/client_proto_context.mli @@ -167,6 +167,7 @@ val transfer : src_pk:public_key -> src_sk:Client_keys.sk_uri -> destination:Contract.t -> + ?entrypoint:string -> ?arg:string -> amount:Tez.t -> ?fee:Tez.t -> diff --git a/src/proto_alpha/lib_client/client_proto_programs.ml b/src/proto_alpha/lib_client/client_proto_programs.ml index 90cc415b33ec..70a386f2b519 100644 --- a/src/proto_alpha/lib_client/client_proto_programs.ml +++ b/src/proto_alpha/lib_client/client_proto_programs.ml @@ -120,23 +120,25 @@ let run (cctxt : #Protocol_client_context.rpc_context) ~(chain : Chain_services.chain) ~block ?(amount = Tez.fifty_cents) ~(program : Michelson_v1_parser.parsed) ~(storage : Michelson_v1_parser.parsed) - ~(input : Michelson_v1_parser.parsed) ?source ?payer ?gas () = + ~(input : Michelson_v1_parser.parsed) ?source ?payer ?gas + ?(entrypoint = "default") () = Alpha_services.Helpers.Scripts.run_code cctxt (chain, block) program.expanded - (storage.expanded, input.expanded, amount, source, payer, gas) + (storage.expanded, input.expanded, amount, source, payer, gas, entrypoint) let trace (cctxt : #Protocol_client_context.rpc_context) ~(chain : Chain_services.chain) ~block ?(amount = Tez.fifty_cents) ~(program : Michelson_v1_parser.parsed) ~(storage : Michelson_v1_parser.parsed) - ~(input : Michelson_v1_parser.parsed) ?source ?payer ?gas () = + ~(input : Michelson_v1_parser.parsed) ?source ?payer ?gas + ?(entrypoint = "default") () = Alpha_services.Helpers.Scripts.trace_code cctxt (chain, block) program.expanded - (storage.expanded, input.expanded, amount, source, payer, gas) + (storage.expanded, input.expanded, amount, source, payer, gas, entrypoint) let typecheck_data cctxt ~(chain : Chain_services.chain) ~block ?gas ~(data : Michelson_v1_parser.parsed) ~(ty : Michelson_v1_parser.parsed) () diff --git a/src/proto_alpha/lib_client/client_proto_programs.mli b/src/proto_alpha/lib_client/client_proto_programs.mli index 97dde1f88438..c9fbb1be2b72 100644 --- a/src/proto_alpha/lib_client/client_proto_programs.mli +++ b/src/proto_alpha/lib_client/client_proto_programs.mli @@ -42,6 +42,7 @@ val run : ?source:Contract.t -> ?payer:Contract.t -> ?gas:Z.t -> + ?entrypoint:string -> unit -> (Script.expr * packed_internal_operation list * Contract.big_map_diff option) tzresult @@ -58,6 +59,7 @@ val trace : ?source:Contract.t -> ?payer:Contract.t -> ?gas:Z.t -> + ?entrypoint:string -> unit -> ( Script.expr * packed_internal_operation list diff --git a/src/proto_alpha/lib_client/michelson_v1_error_reporter.ml b/src/proto_alpha/lib_client/michelson_v1_error_reporter.ml index 3edb68386299..a85dd435f89f 100644 --- a/src/proto_alpha/lib_client/michelson_v1_error_reporter.ml +++ b/src/proto_alpha/lib_client/michelson_v1_error_reporter.ml @@ -85,6 +85,9 @@ let collect_error_locations errs = let rec collect acc = function | Environment.Ecoproto_error ( Ill_formed_type (_, _, _) + | No_such_entrypoint _ + | Duplicate_entrypoint _ + | Unreachable_entrypoint _ | Runtime_contract_error (_, _) | Michelson_v1_primitives.Invalid_primitive_name (_, _) | Ill_typed_data (_, _, _) @@ -207,6 +210,23 @@ let report_errors ~details ~show_source ?parsed ppf errs = ty ; if rest <> [] then Format.fprintf ppf "@," ; print_trace (parsed_locations parsed) rest + | Environment.Ecoproto_error (No_such_entrypoint entrypoint) :: rest -> + Format.fprintf ppf "Contract has no entrypoint named %s" entrypoint ; + if rest <> [] then Format.fprintf ppf "@," ; + print_trace locations rest + | Environment.Ecoproto_error (Duplicate_entrypoint entrypoint) :: rest -> + Format.fprintf ppf "Contract has two entrypoints named %s" entrypoint ; + if rest <> [] then Format.fprintf ppf "@," ; + print_trace locations rest + | Environment.Ecoproto_error (Unreachable_entrypoint path) :: rest -> + let path = + String.concat + "/" + (List.map Michelson_v1_primitives.string_of_prim path) + in + Format.fprintf ppf "Entrypoint at path %s is not reachable" path ; + if rest <> [] then Format.fprintf ppf "@," ; + print_trace locations rest | Environment.Ecoproto_error (Ill_formed_type (_, expr, loc)) :: rest -> let parsed = match parsed with diff --git a/src/proto_alpha/lib_client/operation_result.ml b/src/proto_alpha/lib_client/operation_result.ml index 3ca22e865f11..8b10b0c64553 100644 --- a/src/proto_alpha/lib_client/operation_result.ml +++ b/src/proto_alpha/lib_client/operation_result.ml @@ -31,7 +31,7 @@ let pp_manager_operation_content (type kind) source internal pp_result ppf ((operation, result) : kind manager_operation * _) = Format.fprintf ppf "@[" ; ( match operation with - | Transaction {destination; amount; parameters} -> + | Transaction {destination; amount; parameters; entrypoint} -> Format.fprintf ppf "@[%s:@,Amount: %s%a@,From: %a@,To: %a" @@ -43,20 +43,22 @@ let pp_manager_operation_content (type kind) source internal pp_result ppf source Contract.pp destination ; - ( match parameters with - | None -> + ( match entrypoint with + | "default" -> () - | Some expr -> - let expr = - Option.unopt_exn - (Failure "ill-serialized argument") - (Data_encoding.force_decode expr) - in - Format.fprintf - ppf - "@,Parameter: @[%a@]" - Michelson_v1_printer.print_expr - expr ) ; + | _ -> + Format.fprintf ppf "@,Entrypoint: %s" entrypoint ) ; + ( if not (Script_repr.is_unit_parameter parameters) then + let expr = + Option.unopt_exn + (Failure "ill-serialized argument") + (Data_encoding.force_decode parameters) + in + Format.fprintf + ppf + "@,Parameter: @[%a@]" + Michelson_v1_printer.print_expr + expr ) ; pp_result ppf result ; Format.fprintf ppf "@]" | Origination { manager; diff --git a/src/proto_alpha/lib_client_commands/client_proto_context_commands.ml b/src/proto_alpha/lib_client_commands/client_proto_context_commands.ml index 64c05fb12b96..7216cae2428b 100644 --- a/src/proto_alpha/lib_client_commands/client_proto_context_commands.ml +++ b/src/proto_alpha/lib_client_commands/client_proto_context_commands.ml @@ -570,7 +570,7 @@ let commands version () = command ~group ~desc:"Transfer tokens / call a smart contract." - (args14 + (args15 fee_arg dry_run_switch verbose_signing_switch @@ -584,7 +584,8 @@ let commands version () = minimal_nanotez_per_gas_unit_arg force_low_fee_arg fee_cap_arg - burn_cap_arg) + burn_cap_arg + entrypoint_arg) ( prefixes ["transfer"] @@ tez_param ~name:"qty" ~desc:"amount taken from source" @@ prefix "from" @@ -609,7 +610,8 @@ let commands version () = minimal_nanotez_per_gas_unit, force_low_fee, fee_cap, - burn_cap ) + burn_cap, + entrypoint ) amount (_, source) (_, destination) @@ -639,6 +641,7 @@ let commands version () = ~src_pk ~src_sk ~destination + ?entrypoint ?arg ~amount ?gas_limit diff --git a/src/proto_alpha/lib_client_commands/client_proto_programs_commands.ml b/src/proto_alpha/lib_client_commands/client_proto_programs_commands.ml index 7544427272e8..693c8c9f8c15 100644 --- a/src/proto_alpha/lib_client_commands/client_proto_programs_commands.ml +++ b/src/proto_alpha/lib_client_commands/client_proto_programs_commands.ml @@ -149,13 +149,14 @@ let commands () = command ~group ~desc:"Ask the node to run a script." - (args6 + (args7 trace_stack_switch amount_arg source_arg payer_arg no_print_source_flag - custom_gas_flag) + custom_gas_flag + entrypoint_arg) ( prefixes ["run"; "script"] @@ Program.source_param @@ prefixes ["on"; "storage"] @@ -163,7 +164,7 @@ let commands () = @@ prefixes ["and"; "input"] @@ Clic.param ~name:"input" ~desc:"the input data" data_parameter @@ stop ) - (fun (trace_exec, amount, source, payer, no_print_source, gas) + (fun (trace_exec, amount, source, payer, no_print_source, gas, entrypoint) program storage input @@ -185,6 +186,7 @@ let commands () = ?source ?payer ?gas + ?entrypoint () >>= fun res -> print_trace_result cctxt ~show_source ~parsed:program res @@ -200,6 +202,7 @@ let commands () = ?source ?payer ?gas + ?entrypoint () >>= fun res -> print_run_result cctxt ~show_source ~parsed:program res); diff --git a/src/proto_alpha/lib_protocol/helpers_services.ml b/src/proto_alpha/lib_protocol/helpers_services.ml index 9de19f0bb7f7..975d62f14d98 100644 --- a/src/proto_alpha/lib_protocol/helpers_services.ml +++ b/src/proto_alpha/lib_protocol/helpers_services.ml @@ -160,7 +160,7 @@ module Scripts = struct (req "script" Script.expr_encoding) (dft "entrypoint" string "default")) ~output: (obj1 - (req "entrypoint_type" (option Script.expr_encoding))) + (req "entrypoint_type" Script.expr_encoding)) RPC_path.(path / "entrypoint") @@ -364,11 +364,9 @@ module Scripts = struct ~allow_contract:true arg_type >>? fun (Ex_ty arg_type, _) -> Script_ir_translator.find_entrypoint ~root_name arg_type entrypoint - end >>= function - Ok (_f , Ex_ty ty)-> - unparse_ty ctxt ty >>=? fun (ty_node, _) -> - return_some (Micheline.strip_locations ty_node) - | Error _ -> return_none + end >>=? fun (_f , Ex_ty ty)-> + unparse_ty ctxt ty >>=? fun (ty_node, _) -> + return (Micheline.strip_locations ty_node) end ; register0 S.list_entrypoints begin fun ctxt () expr -> let ctxt = Gas.set_unlimited ctxt in diff --git a/src/proto_alpha/lib_protocol/helpers_services.mli b/src/proto_alpha/lib_protocol/helpers_services.mli index 12ba3ab3767a..e99aeb0aeb6e 100644 --- a/src/proto_alpha/lib_protocol/helpers_services.mli +++ b/src/proto_alpha/lib_protocol/helpers_services.mli @@ -74,7 +74,7 @@ module Scripts : sig val entrypoint_type: 'a #RPC_context.simple -> - 'a -> Script.expr * string -> Script.expr option shell_tzresult Lwt.t + 'a -> Script.expr * string -> Script.expr shell_tzresult Lwt.t val list_entrypoints: 'a #RPC_context.simple -> -- GitLab From e16c778051be8ecb11ec7861af55a7055e20bc75 Mon Sep 17 00:00:00 2001 From: Benjamin Canou Date: Wed, 10 Jul 2019 11:44:59 +0200 Subject: [PATCH 030/252] Proto/Michelson: option cannot bear field annotations anymore Contains a BREAKING CHANGE (see end of message). Field annotations on `option` types were inconsistent with other field annotations on other types, interfering with field annotations on their parent type, and the implementation was buggy. Smart contract authors should stop putting field annotations on their option types, or their contract will not be deployable after the migration. It is enough to erase the annotations. --- .../lib_protocol/script_ir_translator.ml | 141 ++++++++---------- .../lib_protocol/script_typed_ir.ml | 2 +- 2 files changed, 65 insertions(+), 78 deletions(-) diff --git a/src/proto_alpha/lib_protocol/script_ir_translator.ml b/src/proto_alpha/lib_protocol/script_ir_translator.ml index 81e0ccc66fbe..3a392bdb865d 100644 --- a/src/proto_alpha/lib_protocol/script_ir_translator.ml +++ b/src/proto_alpha/lib_protocol/script_ir_translator.ml @@ -90,7 +90,7 @@ let rec type_size : type t. t ty -> int = 1 + type_size l + type_size r | Lambda_t (arg, ret, _) -> 1 + type_size arg + type_size ret - | Option_t ((t,_), _, _) -> + | Option_t (t, _) -> 1 + type_size t | List_t (t, _) -> 1 + type_size t @@ -613,11 +613,10 @@ let rec unparse_ty_no_lwt unparse_ty_no_lwt ctxt uta >>? fun (ta, ctxt) -> unparse_ty_no_lwt ctxt utr >>? fun (tr, ctxt) -> return ctxt (T_lambda, [ ta; tr ], unparse_type_annot tname) - | Option_t ((ut, some_field), none_field, tname) -> - let annot = unparse_type_annot tname @ unparse_field_annot none_field in + | Option_t (ut, tname) -> + let annot = unparse_type_annot tname in unparse_ty_no_lwt ctxt ut >>? fun (ut, ctxt) -> - let t = add_field_annot some_field None ut in - return ctxt (T_option, [ t ], annot) + return ctxt (T_option, [ ut ], annot) | List_t (ut, tname) -> unparse_ty_no_lwt ctxt ut >>? fun (t, ctxt) -> return ctxt (T_list, [ t ], unparse_type_annot tname) @@ -680,7 +679,7 @@ let name_of_ty | Pair_t (_, _, tname) -> tname | Union_t (_, _, tname) -> tname | Lambda_t (_, _, tname) -> tname - | Option_t (_, _, tname) -> tname + | Option_t (_, tname) -> tname | List_t (_, tname) -> tname | Set_t (_, tname) -> tname | Map_t (_, _, tname) -> tname @@ -778,7 +777,7 @@ let rec ty_eq (ty_eq ctxt tal tbl >>? fun (Eq, ctxt) -> (ok Eq ctxt 1)) |> record_inconsistent ctxt ta tb - | Option_t ((tva, _), _, _), Option_t ((tvb, _), _, _) -> + | Option_t (tva, _), Option_t (tvb, _) -> (ty_eq ctxt tva tvb >>? fun (Eq, ctxt) -> (ok Eq ctxt 1)) |> record_inconsistent ctxt ta tb @@ -926,13 +925,11 @@ let merge_types : merge_type_annot tn1 tn2 >>? fun tname -> help ctxt tal tbl >|? fun (arg_ty, ctxt) -> Contract_t (arg_ty, tname), ctxt - | Option_t ((tva, some_annot_a), none_annot_a, tn1), - Option_t ((tvb, some_annot_b), none_annot_b, tn2) -> + | Option_t (tva, tn1), + Option_t (tvb, tn2) -> merge_type_annot tn1 tn2 >>? fun tname -> - merge_field_annot some_annot_a some_annot_b >>? fun some_annot -> - merge_field_annot none_annot_a none_annot_b >>? fun none_annot -> help ctxt tva tvb >|? fun (ty, ctxt) -> - Option_t ((ty, some_annot), none_annot, tname), ctxt + Option_t (ty, tname), ctxt | List_t (tva, tn1), List_t (tvb, tn2) -> merge_type_annot tn1 tn2 >>? fun tname -> help ctxt tva tvb >|? fun (ty, ctxt) -> @@ -1158,11 +1155,18 @@ and parse_ty : Gas.consume ctxt (Typecheck_costs.type_ 2) >|? fun ctxt -> Ex_ty (Lambda_t (ta, tr, ty_name)), ctxt | Prim (loc, T_option, [ ut ], annot) -> - extract_field_annot ut >>? fun (ut, some_constr) -> + begin if legacy then + (* legacy semantics with (broken) field annotations *) + extract_field_annot ut >>? fun (ut, _some_constr) -> + parse_composed_type_annot loc annot >>? fun (ty_name, _none_constr, _) -> + ok (ut, ty_name) + else + parse_type_annot loc annot >>? fun ty_name -> + ok (ut, ty_name) + end >>? fun (ut, ty_name) -> parse_ty ctxt ~legacy ~allow_big_map ~allow_operation ~allow_contract ut >>? fun (Ex_ty t, ctxt) -> - parse_composed_type_annot loc annot >>? fun (ty_name, none_constr, _) -> Gas.consume ctxt (Typecheck_costs.type_ 2) >|? fun ctxt -> - Ex_ty (Option_t ((t, some_constr), none_constr, ty_name)), ctxt + Ex_ty (Option_t (t, ty_name)), ctxt | Prim (loc, T_list, [ ut ], annot) -> parse_ty ctxt ~legacy ~allow_big_map ~allow_operation ~allow_contract ut >>? fun (Ex_ty t, ctxt) -> parse_type_annot loc annot >>? fun ty_name -> @@ -1259,7 +1263,7 @@ let check_packable ~legacy loc root = check l_ty >>? fun () -> check r_ty | Union_t ((l_ty, _), (r_ty, _), _) -> check l_ty >>? fun () -> check r_ty - | Option_t ((v_ty, _), _, _) -> check v_ty + | Option_t (v_ty, _) -> check v_ty | List_t (elt_ty, _) -> check elt_ty | Set_t (_, _) -> ok () | Map_t (_, elt_ty, _) -> check elt_ty @@ -1289,14 +1293,6 @@ let find_entrypoint (type full) (full : full ty) ~root_name entrypoint = let rec find_entrypoint : type t. t ty -> string -> ((Script.node -> Script.node) * ex_ty) = fun t entrypoint -> match t with - | Option_t ((t, a), anone, _) -> - if match a with None -> false | Some (`Field_annot l) -> Compare.String.(l = entrypoint) then - ((fun e -> Prim (0, D_Some, [ e ], [])), Ex_ty t) - else if match anone with None -> false | Some (`Field_annot r) -> Compare.String.(r = entrypoint) then - ((fun _e -> Prim (0, D_None, [], [])), Ex_ty (Unit_t None)) - else - let f, t = find_entrypoint t entrypoint in - ((fun e -> Prim (0, D_Some, [ f e ], [])), t) | Union_t ((tl, al), (tr, ar), _) -> if match al with None -> false | Some (`Field_annot l) -> Compare.String.(l = entrypoint) then ((fun e -> Prim (0, D_Left, [ e ], [])), Ex_ty tl) @@ -1340,10 +1336,6 @@ let well_formed_entrypoints (type full) (full : full ty) ~root_name = : type t. t ty -> prim list -> bool -> (prim list) option * Entrypoints.t -> (prim list) option * Entrypoints.t = fun t path reachable acc -> match t with - | Option_t ((t, a), anone, _) -> - let acc = merge (D_Some :: path) a t reachable acc in - let acc = merge (D_None :: path) anone (Unit_t None) reachable acc in - check t (D_Some :: path) (match a with Some _ -> true | None -> reachable) acc | Union_t ((tl, al), (tr, ar), _) -> let acc = merge (D_Left :: path) al tl reachable acc in let acc = merge (D_Right :: path) ar tr reachable acc in @@ -1648,16 +1640,16 @@ let rec parse_data | Lambda_t _, expr -> traced (fail (Invalid_kind (location expr, [ Seq_kind ], kind expr))) (* Options *) - | Option_t ((t, some_constr), _, ty_name), Prim (loc, D_Some, [ v ], annot) -> - check_const_type_annot loc annot ty_name [some_constr] >>=? fun () -> + | Option_t (t, ty_name), Prim (loc, D_Some, [ v ], annot) -> + check_const_type_annot loc annot ty_name [] >>=? fun () -> Lwt.return (Gas.consume ctxt Typecheck_costs.some) >>=? fun ctxt -> traced @@ parse_data ?type_logger ctxt ~legacy t v >>=? fun (v, ctxt) -> return (Some v, ctxt) | Option_t _, Prim (loc, D_Some, l, _) -> fail @@ Invalid_arity (loc, D_Some, 1, List.length l) - | Option_t (_, none_constr, ty_name), Prim (loc, D_None, [], annot) -> - check_const_type_annot loc annot ty_name [none_constr] >>=? fun () -> + | Option_t (_, ty_name), Prim (loc, D_None, [], annot) -> + check_const_type_annot loc annot ty_name [] >>=? fun () -> Lwt.return (Gas.consume ctxt Typecheck_costs.none) >>=? fun ctxt -> return (None, ctxt) | Option_t _, Prim (loc, D_None, l, _) -> @@ -1818,24 +1810,22 @@ and parse_instr typed ctxt loc (Const ()) (Item_t (Unit_t ty_name, stack, annot)) (* options *) | Prim (loc, I_SOME, [], annot), - Item_t (t, rest, stack_annot) -> - parse_constr_annot loc annot - ~if_special_first:(var_to_field_annot stack_annot) - >>=? fun (annot, ty_name, some_field, none_field) -> + Item_t (t, rest, _) -> + parse_var_type_annot loc annot >>=? fun (annot, ty_name) -> typed ctxt loc Cons_some - (Item_t (Option_t ((t, some_field), none_field, ty_name), rest, annot)) + (Item_t (Option_t (t, ty_name), rest, annot)) | Prim (loc, I_NONE, [ t ], annot), stack -> Lwt.return @@ parse_any_ty ctxt ~legacy t >>=? fun (Ex_ty t, ctxt) -> - parse_constr_annot loc annot >>=? fun (annot, ty_name, some_field, none_field) -> + parse_var_type_annot loc annot >>=? fun (annot, ty_name) -> typed ctxt loc (Cons_none t) - (Item_t (Option_t ((t, some_field), none_field, ty_name), stack, annot)) + (Item_t (Option_t (t, ty_name), stack, annot)) | Prim (loc, I_IF_NONE, [ bt ; bf ], annot), - (Item_t (Option_t ((t, some_field), _none_field, _), rest, option_annot) as bef) -> + (Item_t (Option_t (t, _), rest, option_annot) as bef) -> check_kind [ Seq_kind ] bt >>=? fun () -> check_kind [ Seq_kind ] bf >>=? fun () -> fail_unexpected_annot loc annot >>=? fun () -> - let annot = gen_access_annot option_annot some_field ~default:default_some_annot in + let annot = gen_access_annot option_annot default_some_annot in parse_instr ?type_logger tc_context ctxt ~legacy bt rest >>=? fun (btr, ctxt) -> parse_instr ?type_logger tc_context ctxt ~legacy bf (Item_t (t, rest, annot)) >>=? fun (bfr, ctxt) -> let branch ibt ibf = @@ -2082,9 +2072,9 @@ and parse_instr let k = ty_of_comparable_ty ck in check_item_ty ctxt vk k loc I_GET 1 2 >>=? fun (Eq, ctxt) -> parse_var_annot loc annot >>=? fun annot -> - typed ctxt loc Map_get (Item_t (Option_t ((elt, None), None, None), rest, annot)) + typed ctxt loc Map_get (Item_t (Option_t (elt, None), rest, annot)) | Prim (loc, I_UPDATE, [], annot), - Item_t (vk, Item_t (Option_t ((vv, _), _, _), + Item_t (vk, Item_t (Option_t (vv, _), Item_t (Map_t (ck, v, map_name), rest, map_annot), _), _) -> let k = ty_of_comparable_ty ck in check_item_ty ctxt vk k loc I_UPDATE 1 3 >>=? fun (Eq, ctxt) -> @@ -2107,10 +2097,10 @@ and parse_instr let k = ty_of_comparable_ty ck in check_item_ty ctxt vk k loc I_GET 1 2 >>=? fun (Eq, ctxt) -> parse_var_annot loc annot >>=? fun annot -> - typed ctxt loc Big_map_get (Item_t (Option_t ((elt, None), None, None), rest, annot)) + typed ctxt loc Big_map_get (Item_t (Option_t (elt, None), rest, annot)) | Prim (loc, I_UPDATE, [], annot), Item_t (set_key, - Item_t (Option_t ((set_value, _), _, _), + Item_t (Option_t (set_value, _), Item_t (Big_map_t (map_key, map_value, map_name), rest, map_annot), _), _) -> let k = ty_of_comparable_ty map_key in check_item_ty ctxt set_key k loc I_UPDATE 1 3 >>=? fun (Eq, ctxt) -> @@ -2282,7 +2272,7 @@ and parse_instr ~default:(gen_access_annot string_annot default_slice_annot) loc annot >>=? fun annot -> typed ctxt loc Slice_string - (Item_t (Option_t ((String_t tname, None), None, None), rest, annot)) + (Item_t (Option_t (String_t tname, None), rest, annot)) | Prim (loc, I_SIZE, [], annot), Item_t (String_t _, rest, _) -> parse_var_annot loc annot >>=? fun annot -> @@ -2305,7 +2295,7 @@ and parse_instr ~default:(gen_access_annot bytes_annot default_slice_annot) loc annot >>=? fun annot -> typed ctxt loc Slice_bytes - (Item_t (Option_t ((Bytes_t tname, None), None, None), rest, annot)) + (Item_t (Option_t (Bytes_t tname, None), rest, annot)) | Prim (loc, I_SIZE, [], annot), Item_t (Bytes_t _, rest, _) -> parse_var_annot loc annot >>=? fun annot -> @@ -2367,7 +2357,7 @@ and parse_instr Item_t (Int_t _, rest, int_annot) -> parse_var_annot loc annot ~default:int_annot >>=? fun annot -> typed ctxt loc Is_nat - (Item_t (Option_t ((Nat_t None, None), None, None), rest, annot)) + (Item_t (Option_t (Nat_t None, None), rest, annot)) | Prim (loc, I_INT, [], annot), Item_t (Nat_t _, rest, _) -> parse_var_annot loc annot >>=? fun annot -> @@ -2454,49 +2444,49 @@ and parse_instr parse_var_annot loc annot >>=? fun annot -> typed ctxt loc Ediv_teznat (Item_t (Option_t - ((Pair_t ((Mutez_t tname, None, None), - (Mutez_t tname, None, None), None), None), - None, None), rest, annot)) + (Pair_t ((Mutez_t tname, None, None), + (Mutez_t tname, None, None), None), + None), rest, annot)) | Prim (loc, I_EDIV, [], annot), Item_t (Mutez_t tn1, Item_t (Mutez_t tn2, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> Lwt.return @@ merge_type_annot tn1 tn2 >>=? fun tname -> typed ctxt loc Ediv_tez - (Item_t (Option_t ((Pair_t ((Nat_t None, None, None), - (Mutez_t tname, None, None), None), None), - None, None), rest, annot)) + (Item_t (Option_t (Pair_t ((Nat_t None, None, None), + (Mutez_t tname, None, None), None), + None), rest, annot)) | Prim (loc, I_EDIV, [], annot), Item_t (Int_t tn1, Item_t (Int_t tn2, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> Lwt.return @@ merge_type_annot tn1 tn2 >>=? fun tname -> typed ctxt loc Ediv_intint (Item_t (Option_t - ((Pair_t ((Int_t tname, None, None), - (Nat_t None, None, None), None), None), - None, None), rest, annot)) + (Pair_t ((Int_t tname, None, None), + (Nat_t None, None, None), None), + None), rest, annot)) | Prim (loc, I_EDIV, [], annot), Item_t (Int_t tname, Item_t (Nat_t _, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> typed ctxt loc Ediv_intnat (Item_t (Option_t - ((Pair_t ((Int_t tname, None, None), - (Nat_t None, None, None), None), None), - None, None), rest, annot)) + (Pair_t ((Int_t tname, None, None), + (Nat_t None, None, None), None), + None), rest, annot)) | Prim (loc, I_EDIV, [], annot), Item_t (Nat_t tname, Item_t (Int_t _, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> typed ctxt loc Ediv_natint - (Item_t (Option_t ((Pair_t ((Int_t None, None, None), - (Nat_t tname, None, None), None), None), - None, None), rest, annot)) + (Item_t (Option_t (Pair_t ((Int_t None, None, None), + (Nat_t tname, None, None), None), + None), rest, annot)) | Prim (loc, I_EDIV, [], annot), Item_t (Nat_t tn1, Item_t (Nat_t tn2, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> Lwt.return @@ merge_type_annot tn1 tn2 >>=? fun tname -> typed ctxt loc Ediv_natnat - (Item_t (Option_t ((Pair_t ((Nat_t tname, None, None), - (Nat_t tname, None, None), None), None), - None, None), rest, annot)) + (Item_t (Option_t (Pair_t ((Nat_t tname, None, None), + (Nat_t tname, None, None), None), + None), rest, annot)) | Prim (loc, I_LSL, [], annot), Item_t (Nat_t tn1, Item_t (Nat_t tn2, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> @@ -2652,12 +2642,9 @@ and parse_instr | Prim (loc, I_UNPACK, [ ty ], annot), Item_t (Bytes_t _, rest, packed_annot) -> Lwt.return @@ parse_packable_ty ctxt ~legacy ty >>=? fun (Ex_ty t, ctxt) -> - let stack_annot = gen_access_annot packed_annot default_unpack_annot in - parse_constr_annot loc annot - ~if_special_first:(var_to_field_annot stack_annot) - >>=? fun (annot, ty_name, some_field, none_field) -> - typed ctxt loc (Unpack t) - (Item_t (Option_t ((t, some_field), none_field, ty_name), rest, annot)) + parse_var_type_annot loc annot >>=? fun (annot, ty_name) -> + let annot = default_annot annot ~default:(gen_access_annot packed_annot default_unpack_annot) in + typed ctxt loc (Unpack t) (Item_t (Option_t (t, ty_name), rest, annot)) (* protocol *) | Prim (loc, I_ADDRESS, [], annot), Item_t (Contract_t _, rest, contract_annot) -> @@ -2676,7 +2663,7 @@ and parse_instr | Some (`Field_annot entrypoint) -> Ok entrypoint end >>=? fun entrypoint -> typed ctxt loc (Contract (t, entrypoint)) - (Item_t (Option_t ((Contract_t (t, None), None), None, None), rest, annot)) + (Item_t (Option_t (Contract_t (t, None), None), rest, annot)) | Prim (loc, I_TRANSFER_TOKENS, [], annot), Item_t (p, Item_t (Mutez_t _, Item_t @@ -2685,13 +2672,13 @@ and parse_instr parse_var_annot loc annot >>=? fun annot -> typed ctxt loc Transfer_tokens (Item_t (Operation_t None, rest, annot)) | Prim (loc, I_SET_DELEGATE, [], annot), - Item_t (Option_t ((Key_hash_t _, _), _, _), rest, _) -> + Item_t (Option_t (Key_hash_t _, _), rest, _) -> parse_var_annot loc annot >>=? fun annot -> typed ctxt loc Set_delegate (Item_t (Operation_t None, rest, annot)) | Prim (loc, I_CREATE_ACCOUNT, [], annot), Item_t (Key_hash_t _, Item_t - (Option_t ((Key_hash_t _, _), _, _), Item_t + (Option_t (Key_hash_t _, _), Item_t (Bool_t _, Item_t (Mutez_t _, rest, _), _), _), _) -> parse_two_var_annot loc annot >>=? fun (op_annot, addr_annot) -> @@ -2705,7 +2692,7 @@ and parse_instr | Prim (loc, I_CREATE_CONTRACT, [ (Seq _ as code)], annot), Item_t (Key_hash_t _, Item_t - (Option_t ((Key_hash_t _, _), _, _), Item_t + (Option_t (Key_hash_t _, _), Item_t (Bool_t _, Item_t (Bool_t _, Item_t (Mutez_t _, Item_t @@ -3314,7 +3301,7 @@ let rec unparse_data Lwt.return (Gas.consume ctxt Unparse_costs.union) >>=? fun ctxt -> unparse_data ctxt mode tr r >>=? fun (r, ctxt) -> return (Prim (-1, D_Right, [ r ], []), ctxt) - | Option_t ((t, _), _, _), Some v -> + | Option_t (t, _), Some v -> Lwt.return (Gas.consume ctxt Unparse_costs.some) >>=? fun ctxt -> unparse_data ctxt mode t v >>=? fun (v, ctxt) -> return (Prim (-1, D_Some, [ v ], []), ctxt) diff --git a/src/proto_alpha/lib_protocol/script_typed_ir.ml b/src/proto_alpha/lib_protocol/script_typed_ir.ml index 84fff17724c1..c3f5dad498c2 100644 --- a/src/proto_alpha/lib_protocol/script_typed_ir.ml +++ b/src/proto_alpha/lib_protocol/script_typed_ir.ml @@ -104,7 +104,7 @@ and 'ty ty = type_annot option -> ('a, 'b) pair ty | Union_t : ('a ty * field_annot option) * ('b ty * field_annot option) * type_annot option -> ('a, 'b) union ty | Lambda_t : 'arg ty * 'ret ty * type_annot option -> ('arg, 'ret) lambda ty - | Option_t : ('v ty * field_annot option) * field_annot option * type_annot option -> 'v option ty + | Option_t : 'v ty * type_annot option -> 'v option ty | List_t : 'v ty * type_annot option -> 'v list ty | Set_t : 'v comparable_ty * type_annot option -> 'v set ty | Map_t : 'k comparable_ty * 'v ty * type_annot option -> ('k, 'v) map ty -- GitLab From 682c06af9f87ee1f8a4c267e4b62049aae4774d3 Mon Sep 17 00:00:00 2001 From: Benjamin Canou Date: Mon, 24 Jun 2019 17:58:37 +0200 Subject: [PATCH 031/252] Proto/Michelson: do not allow annotations inside data anymore Some Michelson values could bear type annotations. These were inconsistent and unspecified. Annotations inside data can now only appear inside lambdas. --- .../lib_protocol/script_ir_translator.ml | 39 +++++++++++-------- 1 file changed, 23 insertions(+), 16 deletions(-) diff --git a/src/proto_alpha/lib_protocol/script_ir_translator.ml b/src/proto_alpha/lib_protocol/script_ir_translator.ml index 3a392bdb865d..26ce1f5a9342 100644 --- a/src/proto_alpha/lib_protocol/script_ir_translator.ml +++ b/src/proto_alpha/lib_protocol/script_ir_translator.ml @@ -1394,8 +1394,9 @@ let rec parse_data (items, ctxt) in match ty, script_data with (* Unit *) - | Unit_t ty_name, Prim (loc, D_Unit, [], annot) -> - check_const_type_annot loc annot ty_name [] >>=? fun () -> + | Unit_t _, Prim (loc, D_Unit, [], annot) -> + (if legacy then return () else + fail_unexpected_annot loc annot) >>=? fun () -> Lwt.return (Gas.consume ctxt Typecheck_costs.unit) >>|? fun ctxt -> ((() : a), ctxt) | Unit_t _, Prim (loc, D_Unit, l, _) -> @@ -1403,12 +1404,14 @@ let rec parse_data | Unit_t _, expr -> traced (fail (unexpected expr [] Constant_namespace [ D_Unit ])) (* Booleans *) - | Bool_t ty_name, Prim (loc, D_True, [], annot) -> - check_const_type_annot loc annot ty_name [] >>=? fun () -> + | Bool_t _, Prim (loc, D_True, [], annot) -> + (if legacy then return () else + fail_unexpected_annot loc annot) >>=? fun () -> Lwt.return (Gas.consume ctxt Typecheck_costs.bool) >>|? fun ctxt -> (true, ctxt) - | Bool_t ty_name, Prim (loc, D_False, [], annot) -> - check_const_type_annot loc annot ty_name [] >>=? fun () -> + | Bool_t _, Prim (loc, D_False, [], annot) -> + (if legacy then return () else + fail_unexpected_annot loc annot) >>=? fun () -> Lwt.return (Gas.consume ctxt Typecheck_costs.bool) >>|? fun ctxt -> (false, ctxt) | Bool_t _, Prim (loc, (D_True | D_False as c), l, _) -> @@ -1602,8 +1605,9 @@ let rec parse_data | Contract_t _, expr -> traced (fail (Invalid_kind (location expr, [ String_kind ; Bytes_kind ], kind expr))) (* Pairs *) - | Pair_t ((ta, af, _), (tb, bf, _), ty_name), Prim (loc, D_Pair, [ va; vb ], annot) -> - check_const_type_annot loc annot ty_name [af; bf] >>=? fun () -> + | Pair_t ((ta, _, _), (tb, _, _), _), Prim (loc, D_Pair, [ va; vb ], annot) -> + (if legacy then return () else + fail_unexpected_annot loc annot) >>=? fun () -> Lwt.return (Gas.consume ctxt Typecheck_costs.pair) >>=? fun ctxt -> traced @@ parse_data ?type_logger ctxt ~legacy ta va >>=? fun (va, ctxt) -> @@ -1614,16 +1618,17 @@ let rec parse_data | Pair_t _, expr -> traced (fail (unexpected expr [] Constant_namespace [ D_Pair ])) (* Unions *) - | Union_t ((tl, lconstr), _, ty_name), Prim (loc, D_Left, [ v ], annot) -> - check_const_type_annot loc annot ty_name [lconstr]>>=? fun () -> + | Union_t ((tl, _), _, _), Prim (loc, D_Left, [ v ], annot) -> + (if legacy then return () else + fail_unexpected_annot loc annot) >>=? fun () -> Lwt.return (Gas.consume ctxt Typecheck_costs.union) >>=? fun ctxt -> traced @@ parse_data ?type_logger ctxt ~legacy tl v >>=? fun (v, ctxt) -> return (L v, ctxt) | Union_t _, Prim (loc, D_Left, l, _) -> fail @@ Invalid_arity (loc, D_Left, 1, List.length l) - | Union_t (_, (tr, rconstr), ty_name), Prim (loc, D_Right, [ v ], annot) -> - check_const_type_annot loc annot ty_name [rconstr] >>=? fun () -> + | Union_t (_, (tr, _), _), Prim (loc, D_Right, [ v ], annot) -> + fail_unexpected_annot loc annot >>=? fun () -> Lwt.return (Gas.consume ctxt Typecheck_costs.union) >>=? fun ctxt -> traced @@ parse_data ?type_logger ctxt ~legacy tr v >>=? fun (v, ctxt) -> @@ -1640,16 +1645,18 @@ let rec parse_data | Lambda_t _, expr -> traced (fail (Invalid_kind (location expr, [ Seq_kind ], kind expr))) (* Options *) - | Option_t (t, ty_name), Prim (loc, D_Some, [ v ], annot) -> - check_const_type_annot loc annot ty_name [] >>=? fun () -> + | Option_t (t, _), Prim (loc, D_Some, [ v ], annot) -> + (if legacy then return () else + fail_unexpected_annot loc annot) >>=? fun () -> Lwt.return (Gas.consume ctxt Typecheck_costs.some) >>=? fun ctxt -> traced @@ parse_data ?type_logger ctxt ~legacy t v >>=? fun (v, ctxt) -> return (Some v, ctxt) | Option_t _, Prim (loc, D_Some, l, _) -> fail @@ Invalid_arity (loc, D_Some, 1, List.length l) - | Option_t (_, ty_name), Prim (loc, D_None, [], annot) -> - check_const_type_annot loc annot ty_name [] >>=? fun () -> + | Option_t (_, _), Prim (loc, D_None, [], annot) -> + (if legacy then return () else + fail_unexpected_annot loc annot) >>=? fun () -> Lwt.return (Gas.consume ctxt Typecheck_costs.none) >>=? fun ctxt -> return (None, ctxt) | Option_t _, Prim (loc, D_None, l, _) -> -- GitLab From 98830aa1abf089a0ef912db2b5bead4303c0df92 Mon Sep 17 00:00:00 2001 From: Benjamin Canou Date: Fri, 5 Jul 2019 15:30:48 +0200 Subject: [PATCH 032/252] Proto/Michelson: annotation semantics fixes Contains a BREAKING CHANGE (see end of message). Some instructions were missing consistency checks on the annotations of their arguments. For instance, it was possible to `CONS` a value of type `unit :A` on a `list (unit :B)`. Smart contracts already deployed before the migration will continue to work even if they present such issues. However, smart contract authors should already make sure that their annotations are consistent by using the new typechecker in a sandbox. This is even more recommended for contracts deployed before the migration that use the `CREATE_CONTRACT` instruction. If the code they deploy is ill-annotated according to the new stricter rule, these contracts will produce failing operations after the migration. --- .../lib_protocol/script_interpreter.ml | 3 +- .../lib_protocol/script_ir_annot.ml | 32 +- .../lib_protocol/script_ir_annot.mli | 13 +- .../lib_protocol/script_ir_translator.ml | 344 ++++++++++-------- .../lib_protocol/script_ir_translator.mli | 4 +- 5 files changed, 216 insertions(+), 180 deletions(-) diff --git a/src/proto_alpha/lib_protocol/script_interpreter.ml b/src/proto_alpha/lib_protocol/script_interpreter.ml index 00292652606d..42f3d72d78f0 100644 --- a/src/proto_alpha/lib_protocol/script_interpreter.ml +++ b/src/proto_alpha/lib_protocol/script_interpreter.ml @@ -737,7 +737,8 @@ let rec interp Lwt.return (Gas.consume ctxt Interp_costs.contract) >>=? fun ctxt -> begin match contract, entrypoint with | (contract, "default"), entrypoint | (contract, entrypoint), "default" -> - Script_ir_translator.parse_contract_for_script ctxt loc t contract ~entrypoint >>=? fun (ctxt, maybe_contract) -> + Script_ir_translator.parse_contract_for_script + ~legacy:false ctxt loc t contract ~entrypoint >>=? fun (ctxt, maybe_contract) -> logged_return (Item (maybe_contract, rest), ctxt) | _ -> logged_return (Item (None, rest), ctxt) end diff --git a/src/proto_alpha/lib_protocol/script_ir_annot.ml b/src/proto_alpha/lib_protocol/script_ir_annot.ml index 9e684421a41b..33660d98e1f2 100644 --- a/src/proto_alpha/lib_protocol/script_ir_annot.ml +++ b/src/proto_alpha/lib_protocol/script_ir_annot.ml @@ -101,26 +101,26 @@ let gen_access_annot Some (`Var_annot (String.concat "." [v; f])) let merge_type_annot - : type_annot option -> type_annot option -> type_annot option tzresult - = fun annot1 annot2 -> + : legacy: bool -> type_annot option -> type_annot option -> type_annot option tzresult + = fun ~legacy annot1 annot2 -> match annot1, annot2 with | None, None | Some _, None | None, Some _ -> ok None | Some `Type_annot a1, Some `Type_annot a2 -> - if String.equal a1 a2 + if legacy || String.equal a1 a2 then ok annot1 else error (Inconsistent_annotations (":" ^ a1, ":" ^ a2)) let merge_field_annot - : field_annot option -> field_annot option -> field_annot option tzresult - = fun annot1 annot2 -> + : legacy: bool -> field_annot option -> field_annot option -> field_annot option tzresult + = fun ~legacy annot1 annot2 -> match annot1, annot2 with | None, None | Some _, None | None, Some _ -> ok None | Some `Field_annot a1, Some `Field_annot a2 -> - if String.equal a1 a2 + if legacy || String.equal a1 a2 then ok annot1 else error (Inconsistent_annotations ("%" ^ a1, "%" ^ a2)) @@ -257,26 +257,6 @@ let parse_composed_type_annot get_two_annot loc fields >|? fun (f1, f2) -> (t, f1, f2) -let check_const_type_annot - : int -> string list -> type_annot option -> field_annot option list -> unit tzresult Lwt.t - = fun loc annot expected_name expected_fields -> - Lwt.return - (parse_composed_type_annot loc annot >>? fun (ty_name, field1, field2) -> - merge_type_annot expected_name ty_name >>? fun _ -> - match expected_fields, field1, field2 with - | [], Some _, _ | [], _, Some _ | [_], Some _, Some _ -> - (* Too many annotations *) - error (Unexpected_annotation loc) - | _ :: _ :: _ :: _, _, _ | [_], None, Some _ -> - error (Unexpected_annotation loc) - | [], None, None -> ok () - | [ f1; f2 ], _, _ -> - merge_field_annot f1 field1 >>? fun _ -> - merge_field_annot f2 field2 >|? fun _ -> () - | [ f1 ], _, None -> - merge_field_annot f1 field1 >|? fun _ -> () - ) - let parse_field_annot : int -> string list -> field_annot option tzresult = fun loc annot -> diff --git a/src/proto_alpha/lib_protocol/script_ir_annot.mli b/src/proto_alpha/lib_protocol/script_ir_annot.mli index 78fa887690fa..7ac4701391aa 100644 --- a/src/proto_alpha/lib_protocol/script_ir_annot.mli +++ b/src/proto_alpha/lib_protocol/script_ir_annot.mli @@ -79,15 +79,15 @@ val gen_access_annot : (** Merge type annotations. @return an error {!Inconsistent_type_annotations} if they are both present - and different *) + and different, unless [legacy] *) val merge_type_annot : - type_annot option -> type_annot option -> type_annot option tzresult + legacy: bool -> type_annot option -> type_annot option -> type_annot option tzresult (** Merge field annotations. @return an error {!Inconsistent_type_annotations} if they are both present - and different *) + and different, unless [legacy] *) val merge_field_annot : - field_annot option -> field_annot option -> field_annot option tzresult + legacy: bool -> field_annot option -> field_annot option -> field_annot option tzresult (** Merge variable annotations, does not fail ([None] if different). *) val merge_var_annot : @@ -117,11 +117,6 @@ val parse_composed_type_annot : int -> string list -> (type_annot option * field_annot option * field_annot option) tzresult -(** Check that type annotations on constants are consistent *) -val check_const_type_annot : - int -> string list -> type_annot option -> field_annot option list -> - unit tzresult Lwt.t - (** Extract and remove a field annotation from a node *) val extract_field_annot : Script.node -> (Script.node * field_annot option) tzresult diff --git a/src/proto_alpha/lib_protocol/script_ir_translator.ml b/src/proto_alpha/lib_protocol/script_ir_translator.ml index 26ce1f5a9342..5b9b3d9ad0e6 100644 --- a/src/proto_alpha/lib_protocol/script_ir_translator.ml +++ b/src/proto_alpha/lib_protocol/script_ir_translator.ml @@ -552,6 +552,20 @@ let ty_of_comparable_ty | Timestamp_key tname -> Timestamp_t tname | Address_key tname -> Address_t tname +let comparable_ty_of_ty + : type a. a ty -> a comparable_ty option + = function + | Int_t tname -> Some (Int_key tname) + | Nat_t tname -> Some (Nat_key tname) + | String_t tname -> Some (String_key tname) + | Bytes_t tname -> Some (Bytes_key tname) + | Mutez_t tname -> Some (Mutez_key tname) + | Bool_t tname -> Some (Bool_key tname) + | Key_hash_t tname -> Some (Key_hash_key tname) + | Timestamp_t tname -> Some (Timestamp_key tname) + | Address_t tname -> Some (Address_key tname) + | _ -> None + let unparse_comparable_ty : type a. a comparable_ty -> Script.node = function @@ -804,103 +818,103 @@ let rec stack_ty_eq | _, _ -> error Bad_stack_length let merge_comparable_types - : type ta. ta comparable_ty -> ta comparable_ty -> ta comparable_ty tzresult - = fun ta tb -> + : type ta. legacy: bool -> ta comparable_ty -> ta comparable_ty -> ta comparable_ty tzresult + = fun ~legacy ta tb -> match ta, tb with | Int_key annot_a, Int_key annot_b -> - merge_type_annot annot_a annot_b >|? fun annot -> + merge_type_annot ~legacy annot_a annot_b >|? fun annot -> Int_key annot | Nat_key annot_a, Nat_key annot_b -> - merge_type_annot annot_a annot_b >|? fun annot -> + merge_type_annot ~legacy annot_a annot_b >|? fun annot -> Nat_key annot | String_key annot_a, String_key annot_b -> - merge_type_annot annot_a annot_b >|? fun annot -> + merge_type_annot ~legacy annot_a annot_b >|? fun annot -> String_key annot | Bytes_key annot_a, Bytes_key annot_b -> - merge_type_annot annot_a annot_b >|? fun annot -> + merge_type_annot ~legacy annot_a annot_b >|? fun annot -> Bytes_key annot | Mutez_key annot_a, Mutez_key annot_b -> - merge_type_annot annot_a annot_b >|? fun annot -> + merge_type_annot ~legacy annot_a annot_b >|? fun annot -> Mutez_key annot | Bool_key annot_a, Bool_key annot_b -> - merge_type_annot annot_a annot_b >|? fun annot -> + merge_type_annot ~legacy annot_a annot_b >|? fun annot -> Bool_key annot | Key_hash_key annot_a, Key_hash_key annot_b -> - merge_type_annot annot_a annot_b >|? fun annot -> + merge_type_annot ~legacy annot_a annot_b >|? fun annot -> Key_hash_key annot | Timestamp_key annot_a, Timestamp_key annot_b -> - merge_type_annot annot_a annot_b >|? fun annot -> + merge_type_annot ~legacy annot_a annot_b >|? fun annot -> Timestamp_key annot | Address_key annot_a, Address_key annot_b -> - merge_type_annot annot_a annot_b >|? fun annot -> + merge_type_annot ~legacy annot_a annot_b >|? fun annot -> Address_key annot | _, _ -> assert false (* FIXME: fix injectivity of some types *) let merge_types : - type b. context -> Script.location -> b ty -> b ty -> (b ty * context) tzresult = + type b. legacy: bool -> context -> Script.location -> b ty -> b ty -> (b ty * context) tzresult = fun ~legacy -> let rec help : type a. context -> a ty -> a ty -> (a ty * context) tzresult = fun ctxt ty1 ty2 -> match ty1, ty2 with | Unit_t tn1, Unit_t tn2 -> - merge_type_annot tn1 tn2 >|? fun tname -> + merge_type_annot ~legacy tn1 tn2 >|? fun tname -> Unit_t tname, ctxt | Int_t tn1, Int_t tn2 -> - merge_type_annot tn1 tn2 >|? fun tname -> + merge_type_annot ~legacy tn1 tn2 >|? fun tname -> Int_t tname, ctxt | Nat_t tn1, Nat_t tn2 -> - merge_type_annot tn1 tn2 >|? fun tname -> + merge_type_annot ~legacy tn1 tn2 >|? fun tname -> Nat_t tname, ctxt | Key_t tn1, Key_t tn2 -> - merge_type_annot tn1 tn2 >|? fun tname -> + merge_type_annot ~legacy tn1 tn2 >|? fun tname -> Key_t tname, ctxt | Key_hash_t tn1, Key_hash_t tn2 -> - merge_type_annot tn1 tn2 >|? fun tname -> + merge_type_annot ~legacy tn1 tn2 >|? fun tname -> Key_hash_t tname, ctxt | String_t tn1, String_t tn2 -> - merge_type_annot tn1 tn2 >|? fun tname -> + merge_type_annot ~legacy tn1 tn2 >|? fun tname -> String_t tname, ctxt | Bytes_t tn1, Bytes_t tn2 -> - merge_type_annot tn1 tn2 >|? fun tname -> + merge_type_annot ~legacy tn1 tn2 >|? fun tname -> Bytes_t tname, ctxt | Signature_t tn1, Signature_t tn2 -> - merge_type_annot tn1 tn2 >|? fun tname -> + merge_type_annot ~legacy tn1 tn2 >|? fun tname -> Signature_t tname, ctxt | Mutez_t tn1, Mutez_t tn2 -> - merge_type_annot tn1 tn2 >|? fun tname -> + merge_type_annot ~legacy tn1 tn2 >|? fun tname -> Mutez_t tname, ctxt | Timestamp_t tn1, Timestamp_t tn2 -> - merge_type_annot tn1 tn2 >|? fun tname -> + merge_type_annot ~legacy tn1 tn2 >|? fun tname -> Timestamp_t tname, ctxt | Address_t tn1, Address_t tn2 -> - merge_type_annot tn1 tn2 >|? fun tname -> + merge_type_annot ~legacy tn1 tn2 >|? fun tname -> Address_t tname, ctxt | Bool_t tn1, Bool_t tn2 -> - merge_type_annot tn1 tn2 >|? fun tname -> + merge_type_annot ~legacy tn1 tn2 >|? fun tname -> Bool_t tname, ctxt | Operation_t tn1, Operation_t tn2 -> - merge_type_annot tn1 tn2 >|? fun tname -> + merge_type_annot ~legacy tn1 tn2 >|? fun tname -> Operation_t tname, ctxt | Map_t (tal, tar, tn1), Map_t (tbl, tbr, tn2) -> - merge_type_annot tn1 tn2 >>? fun tname -> + merge_type_annot ~legacy tn1 tn2 >>? fun tname -> help ctxt tar tbr >>? fun (value, ctxt) -> ty_eq ctxt tar value >>? fun (Eq, ctxt) -> - merge_comparable_types tal tbl >|? fun tk -> + merge_comparable_types ~legacy tal tbl >|? fun tk -> Map_t (tk, value, tname), ctxt | Big_map_t (tal, tar, tn1), Big_map_t (tbl, tbr, tn2) -> - merge_type_annot tn1 tn2 >>? fun tname -> + merge_type_annot ~legacy tn1 tn2 >>? fun tname -> help ctxt tar tbr >>? fun (value, ctxt) -> ty_eq ctxt tar value >>? fun (Eq, ctxt) -> - merge_comparable_types tal tbl >|? fun tk -> + merge_comparable_types ~legacy tal tbl >|? fun tk -> Big_map_t (tk, value, tname), ctxt | Set_t (ea, tn1), Set_t (eb, tn2) -> - merge_type_annot tn1 tn2 >>? fun tname -> - merge_comparable_types ea eb >|? fun e -> + merge_type_annot ~legacy tn1 tn2 >>? fun tname -> + merge_comparable_types ~legacy ea eb >|? fun e -> Set_t (e, tname), ctxt | Pair_t ((tal, l_field1, l_var1), (tar, r_field1, r_var1), tn1), Pair_t ((tbl, l_field2, l_var2), (tbr, r_field2, r_var2), tn2) -> - merge_type_annot tn1 tn2 >>? fun tname -> - merge_field_annot l_field1 l_field2 >>? fun l_field -> - merge_field_annot r_field1 r_field2 >>? fun r_field -> + merge_type_annot ~legacy tn1 tn2 >>? fun tname -> + merge_field_annot ~legacy l_field1 l_field2 >>? fun l_field -> + merge_field_annot ~legacy r_field1 r_field2 >>? fun r_field -> let l_var = merge_var_annot l_var1 l_var2 in let r_var = merge_var_annot r_var1 r_var2 in help ctxt tal tbl >>? fun (left_ty, ctxt) -> @@ -909,29 +923,29 @@ let merge_types : ctxt | Union_t ((tal, tal_annot), (tar, tar_annot), tn1), Union_t ((tbl, tbl_annot), (tbr, tbr_annot), tn2) -> - merge_type_annot tn1 tn2 >>? fun tname -> - merge_field_annot tal_annot tbl_annot >>? fun left_annot -> - merge_field_annot tar_annot tbr_annot >>? fun right_annot -> + merge_type_annot ~legacy tn1 tn2 >>? fun tname -> + merge_field_annot ~legacy tal_annot tbl_annot >>? fun left_annot -> + merge_field_annot ~legacy tar_annot tbr_annot >>? fun right_annot -> help ctxt tal tbl >>? fun (left_ty, ctxt) -> help ctxt tar tbr >|? fun (right_ty, ctxt) -> Union_t ((left_ty, left_annot), (right_ty, right_annot), tname), ctxt | Lambda_t (tal, tar, tn1), Lambda_t (tbl, tbr, tn2) -> - merge_type_annot tn1 tn2 >>? fun tname -> + merge_type_annot ~legacy tn1 tn2 >>? fun tname -> help ctxt tal tbl >>? fun (left_ty, ctxt) -> help ctxt tar tbr >|? fun (right_ty, ctxt) -> Lambda_t (left_ty, right_ty, tname), ctxt | Contract_t (tal, tn1), Contract_t (tbl, tn2) -> - merge_type_annot tn1 tn2 >>? fun tname -> + merge_type_annot ~legacy tn1 tn2 >>? fun tname -> help ctxt tal tbl >|? fun (arg_ty, ctxt) -> Contract_t (arg_ty, tname), ctxt | Option_t (tva, tn1), Option_t (tvb, tn2) -> - merge_type_annot tn1 tn2 >>? fun tname -> + merge_type_annot ~legacy tn1 tn2 >>? fun tname -> help ctxt tva tvb >|? fun (ty, ctxt) -> Option_t (ty, tname), ctxt | List_t (tva, tn1), List_t (tvb, tn2) -> - merge_type_annot tn1 tn2 >>? fun tname -> + merge_type_annot ~legacy tn1 tn2 >>? fun tname -> help ctxt tva tvb >|? fun (ty, ctxt) -> List_t (ty, tname), ctxt | _, _ -> assert false @@ -940,9 +954,9 @@ let merge_types : (help ctxt ty1 ty2)) let merge_stacks - : type ta. Script.location -> context -> ta stack_ty -> ta stack_ty -> + : type ta. legacy: bool -> Script.location -> context -> ta stack_ty -> ta stack_ty -> (ta stack_ty * context) tzresult - = fun loc -> + = fun ~legacy loc -> let rec help : type a. context -> a stack_ty -> a stack_ty -> (a stack_ty * context) tzresult = fun ctxt stack1 stack2 -> @@ -951,7 +965,7 @@ let merge_stacks | Item_t (ty1, rest1, annot1), Item_t (ty2, rest2, annot2) -> let annot = merge_var_annot annot1 annot2 in - merge_types ctxt loc ty1 ty2 >>? fun (ty, ctxt) -> + merge_types ~legacy ctxt loc ty1 ty2 >>? fun (ty, ctxt) -> help ctxt rest1 rest2 >|? fun (rest, ctxt) -> Item_t (ty, rest, annot), ctxt in help @@ -969,10 +983,10 @@ type ('t, 'f, 'b) branch = let merge_branches - : type bef a b. context -> int -> a judgement -> b judgement -> + : type bef a b. legacy: bool -> context -> int -> a judgement -> b judgement -> (a, b, bef) branch -> (bef judgement * context) tzresult Lwt.t - = fun ctxt loc btr bfr { branch } -> + = fun ~legacy ctxt loc btr bfr { branch } -> match btr, bfr with | Typed ({ aft = aftbt ; _ } as dbt), Typed ({ aft = aftbf ; _ } as dbf) -> let unmatched_branches () = @@ -981,7 +995,7 @@ let merge_branches Unmatched_branches (loc, aftbt, aftbf) in trace_eval unmatched_branches (Lwt.return (stack_ty_eq ctxt 1 aftbt aftbf) >>=? fun (Eq, ctxt) -> - Lwt.return (merge_stacks loc ctxt aftbt aftbf) >>=? fun (merged_stack, ctxt) -> + Lwt.return (merge_stacks ~legacy loc ctxt aftbt aftbf) >>=? fun (merged_stack, ctxt) -> return ( Typed (branch {dbt with aft=merged_stack} {dbf with aft=merged_stack}), ctxt)) @@ -1307,17 +1321,22 @@ let find_entrypoint (type full) (full : full ty) ~root_name entrypoint = end | _ -> raise Not_found in let entrypoint = if Compare.String.(entrypoint = "") then "default" else entrypoint in - match root_name with - | Some root_name when Compare.String.(entrypoint = root_name) -> - ok ((fun e -> e), Ex_ty full) - | _ -> - try ok (find_entrypoint full entrypoint) with Not_found -> - match entrypoint with - | "default" -> ok ((fun e -> e), Ex_ty full) - | _ -> error (No_such_entrypoint entrypoint) + if Compare.Int.(String.length entrypoint > 31) then + error (Entrypoint_name_too_long entrypoint) + else match root_name with + | Some root_name when Compare.String.(entrypoint = root_name) -> + ok ((fun e -> e), Ex_ty full) + | _ -> + try ok (find_entrypoint full entrypoint) with Not_found -> + match entrypoint with + | "default" -> ok ((fun e -> e), Ex_ty full) + | _ -> error (No_such_entrypoint entrypoint) module Entrypoints = Set.Make (String) +exception Duplicate of string +exception Too_long of string + let well_formed_entrypoints (type full) (full : full ty) ~root_name = let merge path annot (type t) (ty : t ty) reachable ((first_unreachable, all) as acc) = match annot with @@ -1330,7 +1349,8 @@ let well_formed_entrypoints (type full) (full : full ty) ~root_name = | Some _ -> acc end | Some (`Field_annot name) -> - if Entrypoints.mem name all then raise (Failure name) + if Compare.Int.(String.length name > 31) then raise (Too_long name) + else if Entrypoints.mem name all then raise (Duplicate name) else (first_unreachable, Entrypoints.add name all) in let rec check : type t. t ty -> prim list -> bool -> (prim list) option * Entrypoints.t -> (prim list) option * Entrypoints.t @@ -1351,7 +1371,9 @@ let well_formed_entrypoints (type full) (full : full ty) ~root_name = else match first_unreachable with | None -> ok () | Some path -> error (Unreachable_entrypoint path) - with (Failure name) -> error (Duplicate_entrypoint name) + with + | Duplicate name -> error (Duplicate_entrypoint name) + | Too_long name -> error (Entrypoint_name_too_long name) let rec parse_data : type a. @@ -1581,7 +1603,7 @@ let rec parse_data | "" -> return "default" | "default" -> traced (fail (Unexpected_annotation loc)) | name -> return name end >>=? fun entrypoint -> - traced (parse_contract ctxt loc ty c ~entrypoint) >>=? fun (ctxt, _) -> + traced (parse_contract ~legacy ctxt loc ty c ~entrypoint) >>=? fun (ctxt, _) -> return ((ty, (c, entrypoint)), ctxt) | None -> error () >>=? fail end @@ -1600,7 +1622,7 @@ let rec parse_data | addr_and_name -> return addr_and_name end >>=? fun (addr, entrypoint) -> traced (Lwt.return (Contract.of_b58check addr)) >>=? fun c -> - parse_contract ctxt loc ty c ~entrypoint >>=? fun (ctxt, _) -> + parse_contract ~legacy ctxt loc ty c ~entrypoint >>=? fun (ctxt, _) -> return ((ty, (c, entrypoint)), ctxt) | Contract_t _, expr -> traced (fail (Invalid_kind (location expr, [ String_kind ; Bytes_kind ], kind expr))) @@ -1732,7 +1754,7 @@ and parse_returning serialize_stack_for_error ctxt stack_ty >>|? fun (stack_ty, _ctxt) -> Bad_return (loc, stack_ty, ret)) (Lwt.return (ty_eq ctxt ty ret) >>=? fun (Eq, ctxt) -> - Lwt.return (merge_types ctxt loc ty ret) >>=? fun (_ret, ctxt) -> + Lwt.return (merge_types ~legacy ctxt loc ty ret) >>=? fun (_ret, ctxt) -> return ((Lam (descr, strip_locations script_instr) : (arg, ret) lambda), ctxt)) | (Typed { loc ; aft = stack_ty ; _ }, ctxt) -> Lwt.return (serialize_ty_for_error ctxt ret) >>=? fun (ret, ctxt) -> @@ -1748,14 +1770,36 @@ and parse_instr tc_context -> context -> legacy: bool -> Script.node -> bef stack_ty -> (bef judgement * context) tzresult Lwt.t = fun ?type_logger tc_context ctxt ~legacy script_instr stack_ty -> - let check_item check loc name n m = + let _check_item check loc name n m = trace_eval (fun () -> serialize_stack_for_error ctxt stack_ty >>|? fun (stack_ty, _ctxt) -> Bad_stack (loc, name, m, stack_ty)) @@ trace (Bad_stack_item n) @@ Lwt.return check in - let check_item_ty ctxt exp got loc n = - check_item (ty_eq ctxt exp got) loc n in + let check_item_ty + (type a) (type b) + ctxt (exp : a ty) (got : b ty) loc name n m + : ((a, b) eq * a ty * context) tzresult Lwt.t = + trace_eval (fun () -> + serialize_stack_for_error ctxt stack_ty >>|? fun (stack_ty, _ctxt) -> + Bad_stack (loc, name, m, stack_ty)) @@ + trace (Bad_stack_item n) @@ Lwt.return begin + ty_eq ctxt exp got >>? fun (Eq, ctxt) -> + merge_types ~legacy ctxt loc exp got >>? fun (ty, ctxt) -> + ok ((Eq : (a, b) eq), (ty : a ty), ctxt) + end in + let check_item_comparable_ty + (type a) (type b) + (exp : a comparable_ty) (got : b comparable_ty) loc name n m + : ((a, b) eq * a comparable_ty) tzresult Lwt.t = + trace_eval (fun () -> + serialize_stack_for_error ctxt stack_ty >>|? fun (stack_ty, _ctxt) -> + Bad_stack (loc, name, m, stack_ty)) @@ + trace (Bad_stack_item n) @@ Lwt.return begin + comparable_ty_eq ctxt exp got >>? fun Eq -> + merge_comparable_types ~legacy exp got >>? fun ty -> + ok ((Eq : (a, b) eq), (ty : a comparable_ty)) + end in let log_stack ctxt loc stack_ty aft = match type_logger, script_instr with | None, _ @@ -1837,7 +1881,7 @@ and parse_instr parse_instr ?type_logger tc_context ctxt ~legacy bf (Item_t (t, rest, annot)) >>=? fun (bfr, ctxt) -> let branch ibt ibf = { loc ; instr = If_none (ibt, ibf) ; bef ; aft = ibt.aft } in - merge_branches ctxt loc btr bfr { branch } >>=? fun (judgement, ctxt) -> + merge_branches ~legacy ctxt loc btr bfr { branch } >>=? fun (judgement, ctxt) -> return ctxt judgement (* pairs *) | Prim (loc, I_PAIR, [], annot), @@ -1894,7 +1938,7 @@ and parse_instr parse_instr ?type_logger tc_context ctxt ~legacy bf (Item_t (tr, rest, right_annot)) >>=? fun (bfr, ctxt) -> let branch ibt ibf = { loc ; instr = If_left (ibt, ibf) ; bef ; aft = ibt.aft } in - merge_branches ctxt loc btr bfr { branch } >>=? fun (judgement, ctxt) -> + merge_branches ~legacy ctxt loc btr bfr { branch } >>=? fun (judgement, ctxt) -> return ctxt judgement (* lists *) | Prim (loc, I_NIL, [ t ], annot), @@ -1904,7 +1948,7 @@ and parse_instr typed ctxt loc Nil (Item_t (List_t (t, ty_name), stack, annot)) | Prim (loc, I_CONS, [], annot), Item_t (tv, Item_t (List_t (t, ty_name), rest, _), _) -> - check_item_ty ctxt tv t loc I_CONS 1 2 >>=? fun (Eq, ctxt) -> + check_item_ty ctxt tv t loc I_CONS 1 2 >>=? fun (Eq, t, ctxt) -> parse_var_annot loc annot >>=? fun annot -> typed ctxt loc Cons_list (Item_t (List_t (t, ty_name), rest, annot)) | Prim (loc, I_IF_CONS, [ bt ; bf ], annot), @@ -1921,7 +1965,7 @@ and parse_instr rest >>=? fun (bfr, ctxt) -> let branch ibt ibf = { loc ; instr = If_cons (ibt, ibf) ; bef ; aft = ibt.aft } in - merge_branches ctxt loc btr bfr { branch } >>=? fun (judgement, ctxt) -> + merge_branches ~legacy ctxt loc btr bfr { branch } >>=? fun (judgement, ctxt) -> return ctxt judgement | Prim (loc, I_SIZE, [], annot), Item_t (List_t _, rest, _) -> @@ -1942,7 +1986,7 @@ and parse_instr Invalid_map_body (loc, aft) in trace_eval invalid_map_body (Lwt.return @@ stack_ty_eq ctxt 1 rest starting_rest >>=? fun (Eq, ctxt) -> - Lwt.return @@ merge_stacks loc ctxt rest starting_rest >>=? fun (rest, ctxt) -> + Lwt.return @@ merge_stacks ~legacy loc ctxt rest starting_rest >>=? fun (rest, ctxt) -> typed ctxt loc (List_map ibody) (Item_t (List_t (ret, list_ty_name), rest, ret_annot))) | Typed { aft ; _ } -> @@ -1965,7 +2009,7 @@ and parse_instr Invalid_iter_body (loc, rest, aft) in trace_eval invalid_iter_body (Lwt.return @@ stack_ty_eq ctxt 1 aft rest >>=? fun (Eq, ctxt) -> - Lwt.return @@ merge_stacks loc ctxt aft rest >>=? fun (rest, ctxt) -> + Lwt.return @@ merge_stacks ~legacy loc ctxt aft rest >>=? fun (rest, ctxt) -> typed ctxt loc (List_iter ibody) rest) | Failed { descr } -> typed ctxt loc (List_iter (descr rest)) rest @@ -1992,7 +2036,7 @@ and parse_instr Invalid_iter_body (loc, rest, aft) in trace_eval invalid_iter_body (Lwt.return @@ stack_ty_eq ctxt 1 aft rest >>=? fun (Eq, ctxt) -> - Lwt.return @@ merge_stacks loc ctxt aft rest >>=? fun (rest, ctxt) -> + Lwt.return @@ merge_stacks ~legacy loc ctxt aft rest >>=? fun (rest, ctxt) -> typed ctxt loc (Set_iter ibody) rest) | Failed { descr } -> typed ctxt loc (Set_iter (descr rest)) rest @@ -2001,14 +2045,19 @@ and parse_instr Item_t (v, Item_t (Set_t (elt, _), rest, _), _) -> let elt = ty_of_comparable_ty elt in parse_var_type_annot loc annot >>=? fun (annot, tname) -> - check_item_ty ctxt elt v loc I_MEM 1 2 >>=? fun (Eq, ctxt) -> + check_item_ty ctxt elt v loc I_MEM 1 2 >>=? fun (Eq, _, ctxt) -> typed ctxt loc Set_mem (Item_t (Bool_t tname, rest, annot)) | Prim (loc, I_UPDATE, [], annot), Item_t (v, Item_t (Bool_t _, Item_t (Set_t (elt, tname), rest, set_annot), _), _) -> - let ty = ty_of_comparable_ty elt in - parse_var_annot loc annot ~default:set_annot >>=? fun annot -> - check_item_ty ctxt ty v loc I_UPDATE 1 3 >>=? fun (Eq, ctxt) -> - typed ctxt loc Set_update (Item_t (Set_t (elt, tname), rest, annot)) + begin match comparable_ty_of_ty v with + | None -> + unparse_ty ctxt v >>=? fun (v, _ctxt) -> + fail (Comparable_type_expected (loc, Micheline.strip_locations v)) + | Some v -> + parse_var_annot loc annot ~default:set_annot >>=? fun annot -> + check_item_comparable_ty elt v loc I_UPDATE 1 3 >>=? fun (Eq, elt) -> + typed ctxt loc Set_update (Item_t (Set_t (elt, tname), rest, annot)) + end | Prim (loc, I_SIZE, [], annot), Item_t (Set_t _, rest, _) -> parse_var_annot loc annot >>=? fun annot -> @@ -2037,7 +2086,7 @@ and parse_instr Invalid_map_body (loc, aft) in trace_eval invalid_map_body (Lwt.return @@ stack_ty_eq ctxt 1 rest starting_rest >>=? fun (Eq, ctxt) -> - Lwt.return @@ merge_stacks loc ctxt rest starting_rest >>=? fun (rest, ctxt) -> + Lwt.return @@ merge_stacks ~legacy loc ctxt rest starting_rest >>=? fun (rest, ctxt) -> typed ctxt loc (Map_map ibody) (Item_t (Map_t (ck, ret, ty_name), rest, ret_annot))) | Typed { aft ; _ } -> @@ -2063,7 +2112,7 @@ and parse_instr Invalid_iter_body (loc, rest, aft) in trace_eval invalid_iter_body (Lwt.return @@ stack_ty_eq ctxt 1 aft rest >>=? fun (Eq, ctxt) -> - Lwt.return @@ merge_stacks loc ctxt aft rest >>=? fun (rest, ctxt) -> + Lwt.return @@ merge_stacks ~legacy loc ctxt aft rest >>=? fun (rest, ctxt) -> typed ctxt loc (Map_iter ibody) rest) | Failed { descr } -> typed ctxt loc (Map_iter (descr rest)) rest @@ -2071,21 +2120,21 @@ and parse_instr | Prim (loc, I_MEM, [], annot), Item_t (vk, Item_t (Map_t (ck, _, _), rest, _), _) -> let k = ty_of_comparable_ty ck in - check_item_ty ctxt vk k loc I_MEM 1 2 >>=? fun (Eq, ctxt) -> + check_item_ty ctxt vk k loc I_MEM 1 2 >>=? fun (Eq, _, ctxt) -> parse_var_annot loc annot >>=? fun annot -> typed ctxt loc Map_mem (Item_t (Bool_t None, rest, annot)) | Prim (loc, I_GET, [], annot), Item_t (vk, Item_t (Map_t (ck, elt, _), rest, _), _) -> let k = ty_of_comparable_ty ck in - check_item_ty ctxt vk k loc I_GET 1 2 >>=? fun (Eq, ctxt) -> + check_item_ty ctxt vk k loc I_GET 1 2 >>=? fun (Eq, _, ctxt) -> parse_var_annot loc annot >>=? fun annot -> typed ctxt loc Map_get (Item_t (Option_t (elt, None), rest, annot)) | Prim (loc, I_UPDATE, [], annot), Item_t (vk, Item_t (Option_t (vv, _), Item_t (Map_t (ck, v, map_name), rest, map_annot), _), _) -> let k = ty_of_comparable_ty ck in - check_item_ty ctxt vk k loc I_UPDATE 1 3 >>=? fun (Eq, ctxt) -> - check_item_ty ctxt vv v loc I_UPDATE 2 3 >>=? fun (Eq, ctxt) -> + check_item_ty ctxt vk k loc I_UPDATE 1 3 >>=? fun (Eq, _, ctxt) -> + check_item_ty ctxt vv v loc I_UPDATE 2 3 >>=? fun (Eq, v, ctxt) -> parse_var_annot loc annot ~default:map_annot >>=? fun annot -> typed ctxt loc Map_update (Item_t (Map_t (ck, v, map_name), rest, annot)) | Prim (loc, I_SIZE, [], annot), @@ -2096,13 +2145,13 @@ and parse_instr | Prim (loc, I_MEM, [], annot), Item_t (set_key, Item_t (Big_map_t (map_key, _, _), rest, _), _) -> let k = ty_of_comparable_ty map_key in - check_item_ty ctxt set_key k loc I_MEM 1 2 >>=? fun (Eq, ctxt) -> + check_item_ty ctxt set_key k loc I_MEM 1 2 >>=? fun (Eq, _, ctxt) -> parse_var_annot loc annot >>=? fun annot -> typed ctxt loc Big_map_mem (Item_t (Bool_t None, rest, annot)) | Prim (loc, I_GET, [], annot), Item_t (vk, Item_t (Big_map_t (ck, elt, _), rest, _), _) -> let k = ty_of_comparable_ty ck in - check_item_ty ctxt vk k loc I_GET 1 2 >>=? fun (Eq, ctxt) -> + check_item_ty ctxt vk k loc I_GET 1 2 >>=? fun (Eq, _, ctxt) -> parse_var_annot loc annot >>=? fun annot -> typed ctxt loc Big_map_get (Item_t (Option_t (elt, None), rest, annot)) | Prim (loc, I_UPDATE, [], annot), @@ -2110,8 +2159,8 @@ and parse_instr Item_t (Option_t (set_value, _), Item_t (Big_map_t (map_key, map_value, map_name), rest, map_annot), _), _) -> let k = ty_of_comparable_ty map_key in - check_item_ty ctxt set_key k loc I_UPDATE 1 3 >>=? fun (Eq, ctxt) -> - check_item_ty ctxt set_value map_value loc I_UPDATE 2 3 >>=? fun (Eq, ctxt) -> + check_item_ty ctxt set_key k loc I_UPDATE 1 3 >>=? fun (Eq, _, ctxt) -> + check_item_ty ctxt set_value map_value loc I_UPDATE 2 3 >>=? fun (Eq, map_value, ctxt) -> parse_var_annot loc annot ~default:map_annot >>=? fun annot -> typed ctxt loc Big_map_update (Item_t (Big_map_t (map_key, map_value, map_name), rest, annot)) (* control *) @@ -2161,7 +2210,7 @@ and parse_instr parse_instr ?type_logger tc_context ctxt ~legacy bf rest >>=? fun (bfr, ctxt) -> let branch ibt ibf = { loc ; instr = If (ibt, ibf) ; bef ; aft = ibt.aft } in - merge_branches ctxt loc btr bfr { branch } >>=? fun (judgement, ctxt) -> + merge_branches ~legacy ctxt loc btr bfr { branch } >>=? fun (judgement, ctxt) -> return ctxt judgement | Prim (loc, I_LOOP, [ body ], annot), (Item_t (Bool_t _, rest, _stack_annot) as stack) -> @@ -2177,7 +2226,7 @@ and parse_instr Unmatched_branches (loc, aft, stack) in trace_eval unmatched_branches (Lwt.return @@ stack_ty_eq ctxt 1 ibody.aft stack >>=? fun (Eq, ctxt) -> - Lwt.return @@ merge_stacks loc ctxt ibody.aft stack >>=? fun (_stack, ctxt) -> + Lwt.return @@ merge_stacks ~legacy loc ctxt ibody.aft stack >>=? fun (_stack, ctxt) -> typed ctxt loc (Loop ibody) rest) | Failed { descr } -> let ibody = descr stack in @@ -2197,7 +2246,7 @@ and parse_instr Unmatched_branches (loc, aft, stack) in trace_eval unmatched_branches (Lwt.return @@ stack_ty_eq ctxt 1 ibody.aft stack >>=? fun (Eq, ctxt) -> - Lwt.return @@ merge_stacks loc ctxt ibody.aft stack >>=? fun (_stack, ctxt) -> + Lwt.return @@ merge_stacks ~legacy loc ctxt ibody.aft stack >>=? fun (_stack, ctxt) -> typed ctxt loc (Loop_left ibody) (Item_t (tr, rest, annot))) | Failed { descr } -> let ibody = descr stack in @@ -2216,7 +2265,7 @@ and parse_instr typed ctxt loc (Lambda lambda) (Item_t (Lambda_t (arg, ret, None), stack, annot)) | Prim (loc, I_EXEC, [], annot), Item_t (arg, Item_t (Lambda_t (param, ret, _), rest, _), _) -> - check_item_ty ctxt arg param loc I_EXEC 1 2 >>=? fun (Eq, ctxt) -> + check_item_ty ctxt arg param loc I_EXEC 1 2 >>=? fun (Eq, _, ctxt) -> parse_var_annot loc annot >>=? fun annot -> typed ctxt loc Exec (Item_t (ret, rest, annot)) | Prim (loc, I_DIP, [ code ], annot), @@ -2238,34 +2287,31 @@ and parse_instr return ctxt (Failed { descr }) (* timestamp operations *) | Prim (loc, I_ADD, [], annot), - Item_t (Timestamp_t tn1, Item_t (Int_t tn2, rest, _), _) -> + Item_t (Timestamp_t tname, Item_t (Int_t _, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> - Lwt.return @@ merge_type_annot tn1 tn2 >>=? fun tname -> typed ctxt loc Add_timestamp_to_seconds (Item_t (Timestamp_t tname, rest, annot)) | Prim (loc, I_ADD, [], annot), - Item_t (Int_t tn1, Item_t (Timestamp_t tn2, rest, _), _) -> + Item_t (Int_t _, Item_t (Timestamp_t tname, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> - Lwt.return @@ merge_type_annot tn1 tn2 >>=? fun tname -> typed ctxt loc Add_seconds_to_timestamp (Item_t (Timestamp_t tname, rest, annot)) | Prim (loc, I_SUB, [], annot), - Item_t (Timestamp_t tn1, Item_t (Int_t tn2, rest, _), _) -> + Item_t (Timestamp_t tname, Item_t (Int_t _, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> - Lwt.return @@ merge_type_annot tn1 tn2 >>=? fun tname -> typed ctxt loc Sub_timestamp_seconds (Item_t (Timestamp_t tname, rest, annot)) | Prim (loc, I_SUB, [], annot), Item_t (Timestamp_t tn1, Item_t (Timestamp_t tn2, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> - Lwt.return @@ merge_type_annot tn1 tn2 >>=? fun tname -> + Lwt.return @@ merge_type_annot ~legacy tn1 tn2 >>=? fun tname -> typed ctxt loc Diff_timestamps (Item_t (Int_t tname, rest, annot)) (* string operations *) | Prim (loc, I_CONCAT, [], annot), Item_t (String_t tn1, Item_t (String_t tn2, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> - Lwt.return @@ merge_type_annot tn1 tn2 >>=? fun tname -> + Lwt.return @@ merge_type_annot ~legacy tn1 tn2 >>=? fun tname -> typed ctxt loc Concat_string_pair (Item_t (String_t tname, rest, annot)) | Prim (loc, I_CONCAT, [], annot), @@ -2288,7 +2334,7 @@ and parse_instr | Prim (loc, I_CONCAT, [], annot), Item_t (Bytes_t tn1, Item_t (Bytes_t tn2, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> - Lwt.return @@ merge_type_annot tn1 tn2 >>=? fun tname -> + Lwt.return @@ merge_type_annot ~legacy tn1 tn2 >>=? fun tname -> typed ctxt loc Concat_bytes_pair (Item_t (Bytes_t tname, rest, annot)) | Prim (loc, I_CONCAT, [], annot), @@ -2311,13 +2357,13 @@ and parse_instr | Prim (loc, I_ADD, [], annot), Item_t (Mutez_t tn1, Item_t (Mutez_t tn2, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> - Lwt.return @@ merge_type_annot tn1 tn2 >>=? fun tname -> + Lwt.return @@ merge_type_annot ~legacy tn1 tn2 >>=? fun tname -> typed ctxt loc Add_tez (Item_t (Mutez_t tname, rest, annot)) | Prim (loc, I_SUB, [], annot), Item_t (Mutez_t tn1, Item_t (Mutez_t tn2, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> - Lwt.return @@ merge_type_annot tn1 tn2 >>=? fun tname -> + Lwt.return @@ merge_type_annot ~legacy tn1 tn2 >>=? fun tname -> typed ctxt loc Sub_tez (Item_t (Mutez_t tname, rest, annot)) | Prim (loc, I_MUL, [], annot), @@ -2334,19 +2380,19 @@ and parse_instr | Prim (loc, I_OR, [], annot), Item_t (Bool_t tn1, Item_t (Bool_t tn2, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> - Lwt.return @@ merge_type_annot tn1 tn2 >>=? fun tname -> + Lwt.return @@ merge_type_annot ~legacy tn1 tn2 >>=? fun tname -> typed ctxt loc Or (Item_t (Bool_t tname, rest, annot)) | Prim (loc, I_AND, [], annot), Item_t (Bool_t tn1, Item_t (Bool_t tn2, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> - Lwt.return @@ merge_type_annot tn1 tn2 >>=? fun tname -> + Lwt.return @@ merge_type_annot ~legacy tn1 tn2 >>=? fun tname -> typed ctxt loc And (Item_t (Bool_t tname, rest, annot)) | Prim (loc, I_XOR, [], annot), Item_t (Bool_t tn1, Item_t (Bool_t tn2, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> - Lwt.return @@ merge_type_annot tn1 tn2 >>=? fun tname -> + Lwt.return @@ merge_type_annot ~legacy tn1 tn2 >>=? fun tname -> typed ctxt loc Xor (Item_t (Bool_t tname, rest, annot)) | Prim (loc, I_NOT, [], annot), @@ -2383,7 +2429,7 @@ and parse_instr | Prim (loc, I_ADD, [], annot), Item_t (Int_t tn1, Item_t (Int_t tn2, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> - Lwt.return @@ merge_type_annot tn1 tn2 >>=? fun tname -> + Lwt.return @@ merge_type_annot ~legacy tn1 tn2 >>=? fun tname -> typed ctxt loc Add_intint (Item_t (Int_t tname, rest, annot)) | Prim (loc, I_ADD, [], annot), @@ -2399,13 +2445,13 @@ and parse_instr | Prim (loc, I_ADD, [], annot), Item_t (Nat_t tn1, Item_t (Nat_t tn2, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> - Lwt.return @@ merge_type_annot tn1 tn2 >>=? fun tname -> + Lwt.return @@ merge_type_annot ~legacy tn1 tn2 >>=? fun tname -> typed ctxt loc Add_natnat (Item_t (Nat_t tname, rest, annot)) | Prim (loc, I_SUB, [], annot), Item_t (Int_t tn1, Item_t (Int_t tn2, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> - Lwt.return @@ merge_type_annot tn1 tn2 >>=? fun tname -> + Lwt.return @@ merge_type_annot ~legacy tn1 tn2 >>=? fun tname -> typed ctxt loc Sub_int (Item_t (Int_t tname, rest, annot)) | Prim (loc, I_SUB, [], annot), @@ -2421,13 +2467,13 @@ and parse_instr | Prim (loc, I_SUB, [], annot), Item_t (Nat_t tn1, Item_t (Nat_t tn2, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> - Lwt.return @@ merge_type_annot tn1 tn2 >>=? fun _tname -> + Lwt.return @@ merge_type_annot ~legacy tn1 tn2 >>=? fun _tname -> typed ctxt loc Sub_int (Item_t (Int_t None, rest, annot)) | Prim (loc, I_MUL, [], annot), Item_t (Int_t tn1, Item_t (Int_t tn2, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> - Lwt.return @@ merge_type_annot tn1 tn2 >>=? fun tname -> + Lwt.return @@ merge_type_annot ~legacy tn1 tn2 >>=? fun tname -> typed ctxt loc Mul_intint (Item_t (Int_t tname, rest, annot)) | Prim (loc, I_MUL, [], annot), @@ -2443,7 +2489,7 @@ and parse_instr | Prim (loc, I_MUL, [], annot), Item_t (Nat_t tn1, Item_t (Nat_t tn2, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> - Lwt.return @@ merge_type_annot tn1 tn2 >>=? fun tname -> + Lwt.return @@ merge_type_annot ~legacy tn1 tn2 >>=? fun tname -> typed ctxt loc Mul_natnat (Item_t (Nat_t tname, rest, annot)) | Prim (loc, I_EDIV, [], annot), @@ -2457,7 +2503,7 @@ and parse_instr | Prim (loc, I_EDIV, [], annot), Item_t (Mutez_t tn1, Item_t (Mutez_t tn2, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> - Lwt.return @@ merge_type_annot tn1 tn2 >>=? fun tname -> + Lwt.return @@ merge_type_annot ~legacy tn1 tn2 >>=? fun tname -> typed ctxt loc Ediv_tez (Item_t (Option_t (Pair_t ((Nat_t None, None, None), (Mutez_t tname, None, None), None), @@ -2465,7 +2511,7 @@ and parse_instr | Prim (loc, I_EDIV, [], annot), Item_t (Int_t tn1, Item_t (Int_t tn2, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> - Lwt.return @@ merge_type_annot tn1 tn2 >>=? fun tname -> + Lwt.return @@ merge_type_annot ~legacy tn1 tn2 >>=? fun tname -> typed ctxt loc Ediv_intint (Item_t (Option_t (Pair_t ((Int_t tname, None, None), @@ -2489,7 +2535,7 @@ and parse_instr | Prim (loc, I_EDIV, [], annot), Item_t (Nat_t tn1, Item_t (Nat_t tn2, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> - Lwt.return @@ merge_type_annot tn1 tn2 >>=? fun tname -> + Lwt.return @@ merge_type_annot ~legacy tn1 tn2 >>=? fun tname -> typed ctxt loc Ediv_natnat (Item_t (Option_t (Pair_t ((Nat_t tname, None, None), (Nat_t tname, None, None), None), @@ -2497,25 +2543,25 @@ and parse_instr | Prim (loc, I_LSL, [], annot), Item_t (Nat_t tn1, Item_t (Nat_t tn2, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> - Lwt.return @@ merge_type_annot tn1 tn2 >>=? fun tname -> + Lwt.return @@ merge_type_annot ~legacy tn1 tn2 >>=? fun tname -> typed ctxt loc Lsl_nat (Item_t (Nat_t tname, rest, annot)) | Prim (loc, I_LSR, [], annot), Item_t (Nat_t tn1, Item_t (Nat_t tn2, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> - Lwt.return @@ merge_type_annot tn1 tn2 >>=? fun tname -> + Lwt.return @@ merge_type_annot ~legacy tn1 tn2 >>=? fun tname -> typed ctxt loc Lsr_nat (Item_t (Nat_t tname, rest, annot)) | Prim (loc, I_OR, [], annot), Item_t (Nat_t tn1, Item_t (Nat_t tn2, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> - Lwt.return @@ merge_type_annot tn1 tn2 >>=? fun tname -> + Lwt.return @@ merge_type_annot ~legacy tn1 tn2 >>=? fun tname -> typed ctxt loc Or_nat (Item_t (Nat_t tname, rest, annot)) | Prim (loc, I_AND, [], annot), Item_t (Nat_t tn1, Item_t (Nat_t tn2, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> - Lwt.return @@ merge_type_annot tn1 tn2 >>=? fun tname -> + Lwt.return @@ merge_type_annot ~legacy tn1 tn2 >>=? fun tname -> typed ctxt loc And_nat (Item_t (Nat_t tname, rest, annot)) | Prim (loc, I_AND, [], annot), @@ -2526,7 +2572,7 @@ and parse_instr | Prim (loc, I_XOR, [], annot), Item_t (Nat_t tn1, Item_t (Nat_t tn2, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> - Lwt.return @@ merge_type_annot tn1 tn2 >>=? fun tname -> + Lwt.return @@ merge_type_annot ~legacy tn1 tn2 >>=? fun tname -> typed ctxt loc Xor_nat (Item_t (Nat_t tname, rest, annot)) | Prim (loc, I_NOT, [], annot), @@ -2543,55 +2589,55 @@ and parse_instr | Prim (loc, I_COMPARE, [], annot), Item_t (Int_t tn1, Item_t (Int_t tn2, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> - Lwt.return @@ merge_type_annot tn1 tn2 >>=? fun tname -> + Lwt.return @@ merge_type_annot ~legacy tn1 tn2 >>=? fun tname -> typed ctxt loc (Compare (Int_key tname)) (Item_t (Int_t None, rest, annot)) | Prim (loc, I_COMPARE, [], annot), Item_t (Nat_t tn1, Item_t (Nat_t tn2, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> - Lwt.return @@ merge_type_annot tn1 tn2 >>=? fun tname -> + Lwt.return @@ merge_type_annot ~legacy tn1 tn2 >>=? fun tname -> typed ctxt loc (Compare (Nat_key tname)) (Item_t (Int_t None, rest, annot)) | Prim (loc, I_COMPARE, [], annot), Item_t (Bool_t tn1, Item_t (Bool_t tn2, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> - Lwt.return @@ merge_type_annot tn1 tn2 >>=? fun tname -> + Lwt.return @@ merge_type_annot ~legacy tn1 tn2 >>=? fun tname -> typed ctxt loc (Compare (Bool_key tname)) (Item_t (Int_t None, rest, annot)) | Prim (loc, I_COMPARE, [], annot), Item_t (String_t tn1, Item_t (String_t tn2, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> - Lwt.return @@ merge_type_annot tn1 tn2 >>=? fun tname -> + Lwt.return @@ merge_type_annot ~legacy tn1 tn2 >>=? fun tname -> typed ctxt loc (Compare (String_key tname)) (Item_t (Int_t None, rest, annot)) | Prim (loc, I_COMPARE, [], annot), Item_t (Mutez_t tn1, Item_t (Mutez_t tn2, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> - Lwt.return @@ merge_type_annot tn1 tn2 >>=? fun tname -> + Lwt.return @@ merge_type_annot ~legacy tn1 tn2 >>=? fun tname -> typed ctxt loc (Compare (Mutez_key tname)) (Item_t (Int_t None, rest, annot)) | Prim (loc, I_COMPARE, [], annot), Item_t (Key_hash_t tn1, Item_t (Key_hash_t tn2, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> - Lwt.return @@ merge_type_annot tn1 tn2 >>=? fun tname -> + Lwt.return @@ merge_type_annot ~legacy tn1 tn2 >>=? fun tname -> typed ctxt loc (Compare (Key_hash_key tname)) (Item_t (Int_t None, rest, annot)) | Prim (loc, I_COMPARE, [], annot), Item_t (Timestamp_t tn1, Item_t (Timestamp_t tn2, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> - Lwt.return @@ merge_type_annot tn1 tn2 >>=? fun tname -> + Lwt.return @@ merge_type_annot ~legacy tn1 tn2 >>=? fun tname -> typed ctxt loc (Compare (Timestamp_key tname)) (Item_t (Int_t None, rest, annot)) | Prim (loc, I_COMPARE, [], annot), Item_t (Address_t tn1, Item_t (Address_t tn2, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> - Lwt.return @@ merge_type_annot tn1 tn2 >>=? fun tname -> + Lwt.return @@ merge_type_annot ~legacy tn1 tn2 >>=? fun tname -> typed ctxt loc (Compare (Address_key tname)) (Item_t (Int_t None, rest, annot)) | Prim (loc, I_COMPARE, [], annot), Item_t (Bytes_t tn1, Item_t (Bytes_t tn2, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> - Lwt.return @@ merge_type_annot tn1 tn2 >>=? fun tname -> + Lwt.return @@ merge_type_annot ~legacy tn1 tn2 >>=? fun tname -> typed ctxt loc (Compare (Bytes_key tname)) (Item_t (Int_t None, rest, annot)) (* comparators *) @@ -2632,7 +2678,7 @@ and parse_instr (Lwt.return @@ parse_any_ty ctxt ~legacy cast_t) >>=? fun (Ex_ty cast_t, ctxt) -> Lwt.return @@ ty_eq ctxt cast_t t >>=? fun (Eq, ctxt) -> - Lwt.return @@ merge_types ctxt loc cast_t t >>=? fun (_, ctxt) -> + Lwt.return @@ merge_types ~legacy ctxt loc cast_t t >>=? fun (_, ctxt) -> typed ctxt loc Nop (Item_t (cast_t, stack, annot)) | Prim (loc, I_RENAME, [], annot), Item_t (t, stack, _) -> @@ -2667,7 +2713,10 @@ and parse_instr Lwt.return @@ begin match entrypoint with | None -> Ok "default" | Some (`Field_annot "default") -> error (Unexpected_annotation loc) - | Some (`Field_annot entrypoint) -> Ok entrypoint + | Some (`Field_annot entrypoint) -> + if Compare.Int.(String.length entrypoint > 31) then + error (Entrypoint_name_too_long entrypoint) + else Ok entrypoint end >>=? fun entrypoint -> typed ctxt loc (Contract (t, entrypoint)) (Item_t (Option_t (Contract_t (t, None), None), rest, annot)) @@ -2675,7 +2724,7 @@ and parse_instr Item_t (p, Item_t (Mutez_t _, Item_t (Contract_t (cp, _), rest, _), _), _) -> - check_item_ty ctxt p cp loc I_TRANSFER_TOKENS 1 4 >>=? fun (Eq, ctxt) -> + check_item_ty ctxt p cp loc I_TRANSFER_TOKENS 1 4 >>=? fun (Eq, _, ctxt) -> parse_var_annot loc annot >>=? fun annot -> typed ctxt loc Transfer_tokens (Item_t (Operation_t None, rest, annot)) | Prim (loc, I_SET_DELEGATE, [], annot), @@ -2711,7 +2760,10 @@ and parse_instr (Ill_formed_type (Some "parameter", cannonical_code, location arg_type)) (Lwt.return @@ parse_parameter_ty ctxt ~legacy arg_type) >>=? fun (Ex_ty arg_type, ctxt) -> - Lwt.return (well_formed_entrypoints ~root_name arg_type) >>=? fun () -> + begin + if legacy then Error_monad.return () else + Lwt.return (well_formed_entrypoints ~root_name arg_type) + end >>=? fun () -> trace (Ill_formed_type (Some "storage", cannonical_code, location storage_type)) (Lwt.return @@ parse_storage_ty ctxt ~legacy storage_type) @@ -2732,11 +2784,11 @@ and parse_instr fun (Lam ({ bef = Item_t (arg, Empty_t, _) ; aft = Item_t (ret, Empty_t, _) ; _ }, _) as lambda, ctxt) -> Lwt.return @@ ty_eq ctxt arg arg_type_full >>=? fun (Eq, ctxt) -> - Lwt.return @@ merge_types ctxt loc arg arg_type_full >>=? fun (_, ctxt) -> + Lwt.return @@ merge_types ~legacy ctxt loc arg arg_type_full >>=? fun (_, ctxt) -> Lwt.return @@ ty_eq ctxt ret ret_type_full >>=? fun (Eq, ctxt) -> - Lwt.return @@ merge_types ctxt loc ret ret_type_full >>=? fun (_, ctxt) -> + Lwt.return @@ merge_types ~legacy ctxt loc ret ret_type_full >>=? fun (_, ctxt) -> Lwt.return @@ ty_eq ctxt storage_type ginit >>=? fun (Eq, ctxt) -> - Lwt.return @@ merge_types ctxt loc storage_type ginit >>=? fun (_, ctxt) -> + Lwt.return @@ merge_types ~legacy ctxt loc storage_type ginit >>=? fun (_, ctxt) -> typed ctxt loc (Create_contract (storage_type, arg_type, lambda, root_name)) (Item_t (Operation_t None, Item_t (Address_t None, rest, addr_annot), op_annot)) | Prim (loc, I_NOW, [], annot), @@ -2908,9 +2960,9 @@ and parse_instr I_EMPTY_MAP ; I_IF ; I_SOURCE ; I_SENDER ; I_SELF ; I_LAMBDA ] and parse_contract - : type arg. context -> Script.location -> arg ty -> Contract.t -> entrypoint:string -> + : type arg. legacy: bool -> context -> Script.location -> arg ty -> Contract.t -> entrypoint:string -> (context * arg typed_contract) tzresult Lwt.t - = fun ctxt loc arg contract ~entrypoint -> + = fun ~legacy ctxt loc arg contract ~entrypoint -> Lwt.return @@ Gas.consume ctxt Typecheck_costs.contract_exists >>=? fun ctxt -> Contract.exists ctxt contract >>=? function | false -> fail (Invalid_contract (loc, contract)) @@ -2933,11 +2985,12 @@ and parse_contract (parse_toplevel ~legacy:true code >>? fun (arg_type, _, _, root_name) -> parse_parameter_ty ctxt ~legacy:true arg_type >>? fun (Ex_ty targ, ctxt) -> let return ctxt targ entrypoint = - merge_types ctxt loc targ arg >>? fun (arg, ctxt) -> + merge_types ~legacy ctxt loc targ arg >>? fun (arg, ctxt) -> let contract : arg typed_contract = (arg, (contract, entrypoint)) in ok (ctxt, contract) in find_entrypoint targ root_name entrypoint >>? fun (_, Ex_ty targ) -> ty_eq ctxt targ arg >>? fun (Eq, ctxt) -> + merge_types ~legacy ctxt loc targ arg >>? fun (targ, ctxt) -> return ctxt targ entrypoint) (* Same as the one above, but does not fail when the contact is missing or @@ -2945,9 +2998,9 @@ and parse_contract returned and some overapproximation of the typechecking gas is consumed. This can still fail on gas exhaustion. *) and parse_contract_for_script - : type arg. context -> Script.location -> arg ty -> Contract.t -> entrypoint:string -> + : type arg. legacy: bool -> context -> Script.location -> arg ty -> Contract.t -> entrypoint:string -> (context * arg typed_contract option) tzresult Lwt.t - = fun ctxt loc arg contract ~entrypoint -> + = fun ~legacy ctxt loc arg contract ~entrypoint -> Lwt.return @@ Gas.consume ctxt Typecheck_costs.contract_exists >>=? fun ctxt -> Contract.exists ctxt contract >>=? function | false -> return (ctxt, None) @@ -2981,11 +3034,12 @@ and parse_contract_for_script | Ok (Ex_ty targ, ctxt) -> match let return ctxt targ entrypoint = - merge_types ctxt loc targ arg >>? fun (arg, ctxt) -> + merge_types ~legacy ctxt loc targ arg >>? fun (arg, ctxt) -> let contract : arg typed_contract = (arg, (contract, entrypoint)) in ok (ctxt, Some contract) in find_entrypoint targ ~root_name entrypoint >>? fun (_, Ex_ty targ) -> ty_eq ctxt targ arg >>? fun (Eq, ctxt) -> + merge_types ~legacy ctxt loc targ arg >>? fun (targ, ctxt) -> return ctxt targ entrypoint with | Ok res -> ok res @@ -2993,7 +3047,7 @@ and parse_contract_for_script (* overapproximation by checking if targ = targ, can only fail because of gas *) ty_eq ctxt targ targ >>? fun (Eq, ctxt) -> - merge_types ctxt loc targ targ >>? fun (_, ctxt) -> + merge_types ~legacy ctxt loc targ targ >>? fun (_, ctxt) -> ok (ctxt, None)) and parse_toplevel @@ -3074,7 +3128,10 @@ let parse_script (Ill_formed_type (Some "parameter", code, location arg_type)) (Lwt.return (parse_parameter_ty ctxt ~legacy arg_type)) >>=? fun (Ex_ty arg_type, ctxt) -> - Lwt.return (well_formed_entrypoints ~root_name arg_type) >>=? fun () -> + begin + if legacy then return () else + Lwt.return (well_formed_entrypoints ~root_name arg_type) + end >>=? fun () -> trace (Ill_formed_type (Some "storage", code, location storage_type)) (Lwt.return (parse_storage_ty ctxt ~legacy storage_type)) @@ -3109,7 +3166,10 @@ let typecheck_code (Ill_formed_type (Some "parameter", code, location arg_type)) (Lwt.return (parse_parameter_ty ctxt ~legacy arg_type)) >>=? fun (Ex_ty arg_type, ctxt) -> - Lwt.return (well_formed_entrypoints ~root_name arg_type) >>=? fun () -> + begin + if legacy then return () else + Lwt.return (well_formed_entrypoints ~root_name arg_type) + end >>=? fun () -> trace (Ill_formed_type (Some "storage", code, location storage_type)) (Lwt.return (parse_storage_ty ctxt ~legacy storage_type)) diff --git a/src/proto_alpha/lib_protocol/script_ir_translator.mli b/src/proto_alpha/lib_protocol/script_ir_translator.mli index f034103f66c9..995f00418ad2 100644 --- a/src/proto_alpha/lib_protocol/script_ir_translator.mli +++ b/src/proto_alpha/lib_protocol/script_ir_translator.mli @@ -121,12 +121,12 @@ val unparse_script : ('a, 'b) Script_typed_ir.script -> (Script.t * context) tzresult Lwt.t val parse_contract : - context -> Script.location -> 'a Script_typed_ir.ty -> Contract.t -> + legacy: bool -> context -> Script.location -> 'a Script_typed_ir.ty -> Contract.t -> entrypoint: string -> (context * 'a Script_typed_ir.typed_contract) tzresult Lwt.t val parse_contract_for_script : - context -> Script.location -> 'a Script_typed_ir.ty -> Contract.t -> + legacy: bool -> context -> Script.location -> 'a Script_typed_ir.ty -> Contract.t -> entrypoint: string -> (context * 'a Script_typed_ir.typed_contract option) tzresult Lwt.t -- GitLab From 1f301237b57e33e62e3f6883f58237bbc270914b Mon Sep 17 00:00:00 2001 From: Vincent Botbol Date: Thu, 9 May 2019 15:57:39 +0200 Subject: [PATCH 033/252] Proto/Michelson: modify semantics of NOW instruction The `NOW` instruction now pushes the minimal injection time on the stack for the current block/priority, instead of the actual timestamp put in the block by the baker. This is a change required by the switch to Emmy+, in which a baker could decide after having forged a block to include a late endorsement and update the timestamp to an earlier point. With the current semantics of `NOW`, this would mean reevaluating all operations to make sure they are still valid everytime such a change is decided. This patch prevents that issue by fixing the timestamp seen by Michelson independently of the number of endorsements. --- src/proto_alpha/lib_protocol/alpha_context.ml | 13 ++++++++++--- src/proto_alpha/lib_protocol/alpha_context.mli | 1 + src/proto_alpha/lib_protocol/init_storage.ml | 4 ++-- src/proto_alpha/lib_protocol/main.ml | 11 +++++------ src/proto_alpha/lib_protocol/raw_context.ml | 7 +++++-- src/proto_alpha/lib_protocol/raw_context.mli | 2 ++ .../lib_protocol/services_registration.ml | 6 +++++- src/proto_alpha/lib_protocol/test/rolls.ml | 2 ++ 8 files changed, 32 insertions(+), 14 deletions(-) diff --git a/src/proto_alpha/lib_protocol/alpha_context.ml b/src/proto_alpha/lib_protocol/alpha_context.ml index 10d0accf5b5e..5e4d2d97aacb 100644 --- a/src/proto_alpha/lib_protocol/alpha_context.ml +++ b/src/proto_alpha/lib_protocol/alpha_context.ml @@ -62,9 +62,16 @@ module Script_int = Script_int_repr module Script_timestamp = struct include Script_timestamp_repr let now ctxt = - Raw_context.current_timestamp ctxt - |> Timestamp.to_seconds - |> of_int64 + let { Constants_repr.time_between_blocks ; _ } = + Raw_context.constants ctxt in + match time_between_blocks with + | [] -> failwith "Internal error: 'time_between_block' constants \ + is an empty list." + | first_delay :: _ -> + let current_timestamp = Raw_context.predecessor_timestamp ctxt in + Time.add current_timestamp (Period_repr.to_seconds first_delay) + |> Timestamp.to_seconds + |> of_int64 end module Script = struct include Michelson_v1_primitives diff --git a/src/proto_alpha/lib_protocol/alpha_context.mli b/src/proto_alpha/lib_protocol/alpha_context.mli index 52c0942bb16e..457ed0618235 100644 --- a/src/proto_alpha/lib_protocol/alpha_context.mli +++ b/src/proto_alpha/lib_protocol/alpha_context.mli @@ -1148,6 +1148,7 @@ val prepare_first_block: val prepare: Context.t -> level:Int32.t -> + predecessor_timestamp:Time.t -> timestamp:Time.t -> fitness:Fitness.t -> context tzresult Lwt.t diff --git a/src/proto_alpha/lib_protocol/init_storage.ml b/src/proto_alpha/lib_protocol/init_storage.ml index 16773e013171..c3affbfc6634 100644 --- a/src/proto_alpha/lib_protocol/init_storage.ml +++ b/src/proto_alpha/lib_protocol/init_storage.ml @@ -87,5 +87,5 @@ let prepare_first_block ctxt ~typecheck ~level ~timestamp ~fitness = >>=? fun ctxt -> return ctxt -let prepare ctxt ~level ~timestamp ~fitness = - Raw_context.prepare ~level ~timestamp ~fitness ctxt +let prepare ctxt ~level ~predecessor_timestamp ~timestamp ~fitness = + Raw_context.prepare ~level ~predecessor_timestamp ~timestamp ~fitness ctxt diff --git a/src/proto_alpha/lib_protocol/main.ml b/src/proto_alpha/lib_protocol/main.ml index e286936160c6..e5c801690fda 100644 --- a/src/proto_alpha/lib_protocol/main.ml +++ b/src/proto_alpha/lib_protocol/main.ml @@ -54,7 +54,6 @@ type operation = Alpha_context.packed_operation = { protocol_data: operation_data ; } - let acceptable_passes = Alpha_context.Operation.acceptable_passes let max_block_length = @@ -117,7 +116,7 @@ let begin_partial_application let level = block_header.shell.level in let fitness = predecessor_fitness in let timestamp = block_header.shell.timestamp in - Alpha_context.prepare ~level ~timestamp ~fitness ctxt >>=? fun ctxt -> + Alpha_context.prepare ~level ~predecessor_timestamp ~timestamp ~fitness ctxt >>=? fun ctxt -> Apply.begin_application ctxt chain_id block_header predecessor_timestamp >>=? fun (ctxt, baker, block_delay) -> let mode = @@ -134,7 +133,7 @@ let begin_application let level = block_header.shell.level in let fitness = predecessor_fitness in let timestamp = block_header.shell.timestamp in - Alpha_context.prepare ~level ~timestamp ~fitness ctxt >>=? fun ctxt -> + Alpha_context.prepare ~level ~predecessor_timestamp ~timestamp ~fitness ctxt >>=? fun ctxt -> Apply.begin_application ctxt chain_id block_header predecessor_timestamp >>=? fun (ctxt, baker, block_delay) -> let mode = @@ -144,7 +143,7 @@ let begin_application let begin_construction ~chain_id ~predecessor_context:ctxt - ~predecessor_timestamp:pred_timestamp + ~predecessor_timestamp ~predecessor_level:pred_level ~predecessor_fitness:pred_fitness ~predecessor @@ -153,7 +152,7 @@ let begin_construction () = let level = Int32.succ pred_level in let fitness = pred_fitness in - Alpha_context.prepare ~timestamp ~level ~fitness ctxt >>=? fun ctxt -> + Alpha_context.prepare ~level ~predecessor_timestamp ~timestamp ~fitness ctxt >>=? fun ctxt -> begin match protocol_data with | None -> @@ -162,7 +161,7 @@ let begin_construction return (mode, ctxt) | Some proto_header -> Apply.begin_full_construction - ctxt pred_timestamp + ctxt predecessor_timestamp proto_header.contents >>=? fun (ctxt, protocol_data, baker, block_delay) -> let mode = let baker = Signature.Public_key.hash baker in diff --git a/src/proto_alpha/lib_protocol/raw_context.ml b/src/proto_alpha/lib_protocol/raw_context.ml index 3597e7859f4c..c7a58ed780d9 100644 --- a/src/proto_alpha/lib_protocol/raw_context.ml +++ b/src/proto_alpha/lib_protocol/raw_context.ml @@ -30,6 +30,7 @@ type t = { constants: Constants_repr.parametric ; first_level: Raw_level_repr.t ; level: Level_repr.t ; + predecessor_timestamp: Time.t ; timestamp: Time.t ; fitness: Int64.t ; deposits: Tez_repr.t Signature.Public_key_hash.Map.t ; @@ -51,6 +52,7 @@ type context = t type root_context = t let current_level ctxt = ctxt.level +let predecessor_timestamp ctxt = ctxt.predecessor_timestamp let current_timestamp ctxt = ctxt.timestamp let current_fitness ctxt = ctxt.fitness let first_level ctxt = ctxt.first_level @@ -448,7 +450,7 @@ let check_inited ctxt = else storage_error (Incompatible_protocol_version s) -let prepare ~level ~timestamp ~fitness ctxt = +let prepare ~level ~predecessor_timestamp ~timestamp ~fitness ctxt = Lwt.return (Raw_level_repr.of_int32 level) >>=? fun level -> Lwt.return (Fitness_repr.to_int64 fitness) >>=? fun fitness -> check_inited ctxt >>=? fun () -> @@ -463,6 +465,7 @@ let prepare ~level ~timestamp ~fitness ctxt = level in return { context = ctxt ; constants ; level ; + predecessor_timestamp ; timestamp ; fitness ; first_level ; allowed_endorsements = Signature.Public_key_hash.Map.empty ; included_endorsements = 0 ; @@ -546,7 +549,7 @@ let prepare_first_block ~level ~timestamp ~fitness ctxt = set_constants ctxt constants >>= fun ctxt -> return ctxt end >>=? fun ctxt -> - prepare ctxt ~level ~timestamp ~fitness >>=? fun ctxt -> + prepare ctxt ~level ~predecessor_timestamp:timestamp ~timestamp ~fitness >>=? fun ctxt -> return (previous_proto, ctxt) let activate ({ context = c ; _ } as s) h = diff --git a/src/proto_alpha/lib_protocol/raw_context.mli b/src/proto_alpha/lib_protocol/raw_context.mli index 6d54e267871e..eef5b0fae52c 100644 --- a/src/proto_alpha/lib_protocol/raw_context.mli +++ b/src/proto_alpha/lib_protocol/raw_context.mli @@ -54,6 +54,7 @@ type root_context = t with this version of the protocol. *) val prepare: level: Int32.t -> + predecessor_timestamp: Time.t -> timestamp: Time.t -> fitness: Fitness.t -> Context.t -> context tzresult Lwt.t @@ -76,6 +77,7 @@ val fork_test_chain: context -> Protocol_hash.t -> Time.t -> t Lwt.t val recover: context -> Context.t val current_level: context -> Level_repr.t +val predecessor_timestamp: context -> Time.t val current_timestamp: context -> Time.t val current_fitness: context -> Int64.t diff --git a/src/proto_alpha/lib_protocol/services_registration.ml b/src/proto_alpha/lib_protocol/services_registration.ml index 120afb9cf152..3113307f7c13 100644 --- a/src/proto_alpha/lib_protocol/services_registration.ml +++ b/src/proto_alpha/lib_protocol/services_registration.ml @@ -35,7 +35,11 @@ let rpc_init ({ block_hash ; block_header ; context } : Updater.rpc_context) = let level = block_header.level in let timestamp = block_header.timestamp in let fitness = block_header.fitness in - Alpha_context.prepare ~level ~timestamp ~fitness context >>=? fun context -> + Alpha_context.prepare + ~level + ~predecessor_timestamp:timestamp + ~timestamp + ~fitness context >>=? fun context -> return { block_hash ; block_header ; context } let rpc_services = ref (RPC_directory.empty : Updater.rpc_context RPC_directory.t) diff --git a/src/proto_alpha/lib_protocol/test/rolls.ml b/src/proto_alpha/lib_protocol/test/rolls.ml index 3fbac6f9163f..78d73c561a9b 100644 --- a/src/proto_alpha/lib_protocol/test/rolls.ml +++ b/src/proto_alpha/lib_protocol/test/rolls.ml @@ -59,6 +59,7 @@ let check_rolls b (account : Account.t) = Raw_context.prepare b.context ~level:b.header.shell.level + ~predecessor_timestamp:b.header.shell.timestamp ~timestamp:b.header.shell.timestamp ~fitness:b.header.shell.fitness >>= wrap @@ -74,6 +75,7 @@ let check_no_rolls (b : Block.t) (account : Account.t) = Raw_context.prepare b.context ~level:b.header.shell.level + ~predecessor_timestamp:b.header.shell.timestamp ~timestamp:b.header.shell.timestamp ~fitness:b.header.shell.fitness >>= wrap -- GitLab From ff02b0942b11052f03a5ecb11a0f1471e2cd66f4 Mon Sep 17 00:00:00 2001 From: Eugen Zalinescu Date: Thu, 17 Jan 2019 20:46:14 +0100 Subject: [PATCH 034/252] Proto/Michelson: corrected error message for the contract type This is a minor fix for the Michelson typechecker to produce a better error message on some ill-typed contracts. --- src/proto_alpha/lib_protocol/script_ir_translator.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/proto_alpha/lib_protocol/script_ir_translator.ml b/src/proto_alpha/lib_protocol/script_ir_translator.ml index 5b9b3d9ad0e6..7496e4a472d4 100644 --- a/src/proto_alpha/lib_protocol/script_ir_translator.ml +++ b/src/proto_alpha/lib_protocol/script_ir_translator.ml @@ -1210,9 +1210,9 @@ and parse_ty : | T_key | T_key_hash | T_timestamp | T_address as prim), l, _) -> error (Invalid_arity (loc, prim, 0, List.length l)) - | Prim (loc, (T_set | T_list | T_option as prim), l, _) -> + | Prim (loc, (T_set | T_list | T_option | T_contract as prim), l, _) -> error (Invalid_arity (loc, prim, 1, List.length l)) - | Prim (loc, (T_pair | T_or | T_map | T_lambda | T_contract as prim), l, _) -> + | Prim (loc, (T_pair | T_or | T_map | T_lambda as prim), l, _) -> error (Invalid_arity (loc, prim, 2, List.length l)) | expr -> error @@ unexpected expr [] Type_namespace -- GitLab From f512e91cecb1f3bf5ded35d3491b125b112d0ed7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= Date: Fri, 3 May 2019 13:41:04 +0200 Subject: [PATCH 035/252] Proto/Michelson: new instructions `DIG n`, `DUG n`, `DIP n { code }`, `DROP n` - `DIG n` : get the element at top of the n-th tail of the stack and move it to the top. `DIG 0` is a no-op. - `DUG n` : get the element at the top of the stack, and move it downwards n slots. `DUG 0` is a no-op. - `DIP n { code }` : execute code after removing the top n elements of the stack, and put these n elements back on top of the resulting stack. `DIP 0 { code }` is equivalent to `{ code }`. - `DROP n` : drop the top `n` elements of the stack. `DROP 0` is a no-op. Smart contract authors should switch to these new instructions in their developments. --- .../lib_client/michelson_v1_emacs.ml | 1 + .../lib_client/michelson_v1_error_reporter.ml | 11 ++ .../lib_protocol/alpha_context.mli | 3 + .../lib_protocol/michelson_v1_gas.ml | 8 + .../lib_protocol/michelson_v1_gas.mli | 1 + .../lib_protocol/michelson_v1_primitives.ml | 22 +++ .../lib_protocol/michelson_v1_primitives.mli | 2 + .../lib_protocol/script_interpreter.ml | 40 +++- .../lib_protocol/script_ir_translator.ml | 180 ++++++++++++++++-- .../lib_protocol/script_tc_errors.ml | 1 + .../script_tc_errors_registration.ml | 16 ++ .../lib_protocol/script_typed_ir.ml | 40 ++-- 12 files changed, 302 insertions(+), 23 deletions(-) diff --git a/src/proto_alpha/lib_client/michelson_v1_emacs.ml b/src/proto_alpha/lib_client/michelson_v1_emacs.ml index 80a9988157d6..b142177e0bc7 100644 --- a/src/proto_alpha/lib_client/michelson_v1_emacs.ml +++ b/src/proto_alpha/lib_client/michelson_v1_emacs.ml @@ -126,6 +126,7 @@ let first_error_location errs = | Bad_stack (loc, _, _, _) | Unmatched_branches (loc, _, _) | Invalid_constant (loc, _, _) + | Invalid_syntactic_constant (loc, _, _) | Invalid_contract (loc, _) | Comparable_type_expected (loc, _) | Michelson_v1_primitives.Invalid_primitive_name (_, loc) ) diff --git a/src/proto_alpha/lib_client/michelson_v1_error_reporter.ml b/src/proto_alpha/lib_client/michelson_v1_error_reporter.ml index a85dd435f89f..0e8ea487ec61 100644 --- a/src/proto_alpha/lib_client/michelson_v1_error_reporter.ml +++ b/src/proto_alpha/lib_client/michelson_v1_error_reporter.ml @@ -115,6 +115,7 @@ let collect_error_locations errs = | Unmatched_branches (loc, _, _) | Self_in_lambda loc | Invalid_constant (loc, _, _) + | Invalid_syntactic_constant (loc, _, _) | Invalid_contract (loc, _) | Comparable_type_expected (loc, _) | Overflow (loc, _) @@ -616,6 +617,16 @@ let report_errors ~details ~show_source ?parsed ppf errs = got print_ty exp + | Invalid_syntactic_constant (loc, got, exp) -> + Format.fprintf + ppf + "@[@[%avalue@ %a@]@ @[is invalid, \ + expected@ %s@]@]" + print_loc + loc + print_expr + got + exp | Invalid_contract (loc, contract) -> Format.fprintf ppf diff --git a/src/proto_alpha/lib_protocol/alpha_context.mli b/src/proto_alpha/lib_protocol/alpha_context.mli index 457ed0618235..87d8573d726b 100644 --- a/src/proto_alpha/lib_protocol/alpha_context.mli +++ b/src/proto_alpha/lib_protocol/alpha_context.mli @@ -278,6 +278,8 @@ module Script : sig | I_ISNAT | I_CAST | I_RENAME + | I_DIG + | I_DUG | T_bool | T_contract | T_int @@ -301,6 +303,7 @@ module Script : sig | T_operation | T_address + type location = Micheline.canonical_location type annot = Micheline.annot diff --git a/src/proto_alpha/lib_protocol/michelson_v1_gas.ml b/src/proto_alpha/lib_protocol/michelson_v1_gas.ml index 0e7e4561799c..a5a92ac5f8e0 100644 --- a/src/proto_alpha/lib_protocol/michelson_v1_gas.ml +++ b/src/proto_alpha/lib_protocol/michelson_v1_gas.ml @@ -32,6 +32,10 @@ module Cost_of = struct let stack_op = step_cost 1 + (* Cost of operations similar to dig which drill down the top N elements + of the stack without affecting them, and perform some simple operation. *) + let stack_n_op n = step_cost ((n + 1) / 64) (* to be customized by gas benchmarks *) + let bool_binop _ _ = step_cost 1 let bool_unop _ = step_cost 1 @@ -396,6 +400,10 @@ module Cost_of = struct | Sender -> alloc_cost 1 | Self _ -> alloc_cost 2 | Amount -> alloc_cost 1 + | Dig (n,_) -> n *@ alloc_cost 1 (* _ is a unary development of n *) + | Dug (n,_) -> n *@ alloc_cost 1 + | Dipn (n,_,_) -> n *@ alloc_cost 1 + | Dropn (n,_) -> n *@ alloc_cost 1 end module Unparse = struct diff --git a/src/proto_alpha/lib_protocol/michelson_v1_gas.mli b/src/proto_alpha/lib_protocol/michelson_v1_gas.mli index 97d942a2e872..def648d45297 100644 --- a/src/proto_alpha/lib_protocol/michelson_v1_gas.mli +++ b/src/proto_alpha/lib_protocol/michelson_v1_gas.mli @@ -31,6 +31,7 @@ module Cost_of : sig val list_size : Gas.cost val nop : Gas.cost val stack_op : Gas.cost + val stack_n_op : int -> Gas.cost val bool_binop : 'a -> 'b -> Gas.cost val bool_unop : 'a -> Gas.cost val pair : Gas.cost diff --git a/src/proto_alpha/lib_protocol/michelson_v1_primitives.ml b/src/proto_alpha/lib_protocol/michelson_v1_primitives.ml index d80f5f7eb0d6..60d4bc27775e 100644 --- a/src/proto_alpha/lib_protocol/michelson_v1_primitives.ml +++ b/src/proto_alpha/lib_protocol/michelson_v1_primitives.ml @@ -120,6 +120,8 @@ type prim = | I_ISNAT | I_CAST | I_RENAME + | I_DIG + | I_DUG | T_bool | T_contract | T_int @@ -253,6 +255,8 @@ let string_of_prim = function | I_ISNAT -> "ISNAT" | I_CAST -> "CAST" | I_RENAME -> "RENAME" + | I_DIG -> "DIG" + | I_DUG -> "DUG" | T_bool -> "bool" | T_contract -> "contract" | T_int -> "int" @@ -367,6 +371,8 @@ let prim_of_string = function | "ISNAT" -> ok I_ISNAT | "CAST" -> ok I_CAST | "RENAME" -> ok I_RENAME + | "DIG" -> ok I_DIG + | "DUG" -> ok I_DUG | "bool" -> ok T_bool | "contract" -> ok T_contract | "int" -> ok T_int @@ -436,6 +442,7 @@ let prim_encoding = let open Data_encoding in def "michelson.v1.primitives" @@ string_enum [ + (* /!\ NEW INSTRUCTIONS MUST BE ADDED AT THE END OF THE STRING_ENUM, FOR BACKWARD COMPATIBILITY OF THE ENCODING. *) ("parameter", K_parameter) ; ("storage", K_storage) ; ("code", K_code) ; @@ -446,6 +453,7 @@ let prim_encoding = ("Pair", D_Pair) ; ("Right", D_Right) ; ("Some", D_Some) ; + (* /!\ NEW INSTRUCTIONS MUST BE ADDED AT THE END OF THE STRING_ENUM, FOR BACKWARD COMPATIBILITY OF THE ENCODING. *) ("True", D_True) ; ("Unit", D_Unit) ; ("PACK", I_PACK) ; @@ -456,6 +464,7 @@ let prim_encoding = ("ABS", I_ABS) ; ("ADD", I_ADD) ; ("AMOUNT", I_AMOUNT) ; + (* /!\ NEW INSTRUCTIONS MUST BE ADDED AT THE END OF THE STRING_ENUM, FOR BACKWARD COMPATIBILITY OF THE ENCODING. *) ("AND", I_AND) ; ("BALANCE", I_BALANCE) ; ("CAR", I_CAR) ; @@ -466,6 +475,7 @@ let prim_encoding = ("CONS", I_CONS) ; ("CREATE_ACCOUNT", I_CREATE_ACCOUNT) ; ("CREATE_CONTRACT", I_CREATE_CONTRACT) ; + (* /!\ NEW INSTRUCTIONS MUST BE ADDED AT THE END OF THE STRING_ENUM, FOR BACKWARD COMPATIBILITY OF THE ENCODING. *) ("IMPLICIT_ACCOUNT", I_IMPLICIT_ACCOUNT) ; ("DIP", I_DIP) ; ("DROP", I_DROP) ; @@ -476,6 +486,7 @@ let prim_encoding = ("EQ", I_EQ) ; ("EXEC", I_EXEC) ; ("FAILWITH", I_FAILWITH) ; + (* /!\ NEW INSTRUCTIONS MUST BE ADDED AT THE END OF THE STRING_ENUM, FOR BACKWARD COMPATIBILITY OF THE ENCODING. *) ("GE", I_GE) ; ("GET", I_GET) ; ("GT", I_GT) ; @@ -486,6 +497,7 @@ let prim_encoding = ("IF_NONE", I_IF_NONE) ; ("INT", I_INT) ; ("LAMBDA", I_LAMBDA) ; + (* /!\ NEW INSTRUCTIONS MUST BE ADDED AT THE END OF THE STRING_ENUM, FOR BACKWARD COMPATIBILITY OF THE ENCODING. *) ("LE", I_LE) ; ("LEFT", I_LEFT) ; ("LOOP", I_LOOP) ; @@ -496,6 +508,7 @@ let prim_encoding = ("MEM", I_MEM) ; ("MUL", I_MUL) ; ("NEG", I_NEG) ; + (* /!\ NEW INSTRUCTIONS MUST BE ADDED AT THE END OF THE STRING_ENUM, FOR BACKWARD COMPATIBILITY OF THE ENCODING. *) ("NEQ", I_NEQ) ; ("NIL", I_NIL) ; ("NONE", I_NONE) ; @@ -506,6 +519,7 @@ let prim_encoding = ("PUSH", I_PUSH) ; ("RIGHT", I_RIGHT) ; ("SIZE", I_SIZE) ; + (* /!\ NEW INSTRUCTIONS MUST BE ADDED AT THE END OF THE STRING_ENUM, FOR BACKWARD COMPATIBILITY OF THE ENCODING. *) ("SOME", I_SOME) ; ("SOURCE", I_SOURCE) ; ("SENDER", I_SENDER) ; @@ -516,6 +530,7 @@ let prim_encoding = ("TRANSFER_TOKENS", I_TRANSFER_TOKENS) ; ("SET_DELEGATE", I_SET_DELEGATE) ; ("UNIT", I_UNIT) ; + (* /!\ NEW INSTRUCTIONS MUST BE ADDED AT THE END OF THE STRING_ENUM, FOR BACKWARD COMPATIBILITY OF THE ENCODING. *) ("UPDATE", I_UPDATE) ; ("XOR", I_XOR) ; ("ITER", I_ITER) ; @@ -526,6 +541,7 @@ let prim_encoding = ("CAST", I_CAST) ; ("RENAME", I_RENAME) ; ("bool", T_bool) ; + (* /!\ NEW INSTRUCTIONS MUST BE ADDED AT THE END OF THE STRING_ENUM, FOR BACKWARD COMPATIBILITY OF THE ENCODING. *) ("contract", T_contract) ; ("int", T_int) ; ("key", T_key) ; @@ -536,6 +552,7 @@ let prim_encoding = ("big_map", T_big_map) ; ("nat", T_nat) ; ("option", T_option) ; + (* /!\ NEW INSTRUCTIONS MUST BE ADDED AT THE END OF THE STRING_ENUM, FOR BACKWARD COMPATIBILITY OF THE ENCODING. *) ("or", T_or) ; ("pair", T_pair) ; ("set", T_set) ; @@ -546,9 +563,14 @@ let prim_encoding = ("timestamp", T_timestamp) ; ("unit", T_unit) ; ("operation", T_operation) ; + (* /!\ NEW INSTRUCTIONS MUST BE ADDED AT THE END OF THE STRING_ENUM, FOR BACKWARD COMPATIBILITY OF THE ENCODING. *) ("address", T_address) ; (* Alpha_002 addition *) ("SLICE", I_SLICE) ; + (* Alpha_005 addition *) + ("DIG", I_DIG) ; + ("DUG", I_DUG) ; + (* New instructions must be added here, for backward compatibility of the encoding. *) ] let () = diff --git a/src/proto_alpha/lib_protocol/michelson_v1_primitives.mli b/src/proto_alpha/lib_protocol/michelson_v1_primitives.mli index c51e8b443114..3cf2b872aa68 100644 --- a/src/proto_alpha/lib_protocol/michelson_v1_primitives.mli +++ b/src/proto_alpha/lib_protocol/michelson_v1_primitives.mli @@ -118,6 +118,8 @@ type prim = | I_ISNAT | I_CAST | I_RENAME + | I_DIG + | I_DUG | T_bool | T_contract | T_int diff --git a/src/proto_alpha/lib_protocol/script_interpreter.ml b/src/proto_alpha/lib_protocol/script_interpreter.ml index 42f3d72d78f0..0c12dc5ded4a 100644 --- a/src/proto_alpha/lib_protocol/script_interpreter.ml +++ b/src/proto_alpha/lib_protocol/script_interpreter.ml @@ -159,6 +159,26 @@ let unparse_stack ctxt (stack, stack_ty) = module Interp_costs = Michelson_v1_gas.Cost_of +let rec interp_stack_prefix_preserving_operation : type fbef bef faft aft result . + (fbef stack -> (faft stack * result) tzresult Lwt.t) + -> (fbef, faft, bef, aft) stack_prefix_preservation_witness + -> bef stack + -> (aft stack * result) tzresult Lwt.t = + fun f n stk -> + match n,stk with + | Prefix (Prefix (Prefix (Prefix (Prefix (Prefix (Prefix (Prefix (Prefix (Prefix (Prefix (Prefix (Prefix (Prefix (Prefix (Prefix n))))))))))))))), + Item (v0, Item (v1, Item (v2, Item (v3, Item (v4, Item (v5, Item (v6, Item (v7, Item (v8, Item (v9, Item (va, Item (vb, Item (vc, Item (vd, Item (ve, Item (vf, rest)))))))))))))))) -> + interp_stack_prefix_preserving_operation f n rest >>=? fun (rest', result) -> + return (Item (v0, Item (v1, Item (v2, Item (v3, Item (v4, Item (v5, Item (v6, Item (v7, Item (v8, Item (v9, Item (va, Item (vb, Item (vc, Item (vd, Item (ve, Item (vf, rest')))))))))))))))), result) + | Prefix (Prefix (Prefix (Prefix n))), + Item (v0, Item (v1, Item (v2, Item (v3, rest)))) -> + interp_stack_prefix_preserving_operation f n rest >>=? fun (rest', result) -> + return (Item (v0, Item (v1, Item (v2, Item (v3, rest')))), result) + | Prefix n, Item (v, rest) -> + interp_stack_prefix_preserving_operation f n rest >>=? fun (rest', result) -> + return (Item (v, rest'), result) + | Rest, v -> f v + let rec interp : type p r. (?log: execution_trace ref -> @@ -847,7 +867,25 @@ let rec interp logged_return (Item ((t, (self, entrypoint)), rest), ctxt) | Amount, rest -> Lwt.return (Gas.consume ctxt Interp_costs.amount) >>=? fun ctxt -> - logged_return (Item (amount, rest), ctxt) in + logged_return (Item (amount, rest), ctxt) + | Dig (n, n'), stack -> + Lwt.return (Gas.consume ctxt (Interp_costs.stack_n_op n)) >>=? fun ctxt -> + interp_stack_prefix_preserving_operation (fun (Item (v, rest)) -> return (rest, v)) n' stack + >>=? fun (aft, x) -> logged_return (Item (x, aft), ctxt) + | Dug (n, n'), Item (v, rest) -> + Lwt.return (Gas.consume ctxt (Interp_costs.stack_n_op n)) >>=? fun ctxt -> + interp_stack_prefix_preserving_operation (fun stk -> return (Item (v, stk), ())) n' rest + >>=? fun (aft, ()) -> logged_return (aft, ctxt) + | Dipn (n, n', b), stack -> + Lwt.return (Gas.consume ctxt (Interp_costs.stack_n_op n)) >>=? fun ctxt -> + interp_stack_prefix_preserving_operation (fun stk -> + step ctxt b stk >>=? fun (res, ctxt') -> + return (res, ctxt')) n' stack + >>=? fun (aft, ctxt') -> logged_return (aft, ctxt') + | Dropn (n, n'), stack -> + Lwt.return (Gas.consume ctxt (Interp_costs.stack_n_op n)) >>=? fun ctxt -> + interp_stack_prefix_preserving_operation (fun stk -> return (stk, stk)) n' stack + >>=? fun (_, rest) -> logged_return (rest, ctxt) in let stack = (Item (arg, Empty)) in begin match log with | None -> return_unit diff --git a/src/proto_alpha/lib_protocol/script_ir_translator.ml b/src/proto_alpha/lib_protocol/script_ir_translator.ml index 7496e4a472d4..a43f2f964324 100644 --- a/src/proto_alpha/lib_protocol/script_ir_translator.ml +++ b/src/proto_alpha/lib_protocol/script_ir_translator.ml @@ -240,6 +240,10 @@ let number_of_generated_growing_types : type b a. (b, a) instr -> int = function | Set_delegate -> 0 | Pack _ -> 0 | Unpack _ -> 1 + | Dig _ -> 0 + | Dug _ -> 0 + | Dipn _ -> 0 + | Dropn _ -> 0 (* ---- Error helpers -------------------------------------------------------*) @@ -347,7 +351,9 @@ let namespace = function | I_CONTRACT | I_ISNAT | I_CAST - | I_RENAME -> Instr_namespace + | I_RENAME + | I_DIG + | I_DUG -> Instr_namespace | T_bool | T_contract | T_int @@ -955,7 +961,7 @@ let merge_types : let merge_stacks : type ta. legacy: bool -> Script.location -> context -> ta stack_ty -> ta stack_ty -> - (ta stack_ty * context) tzresult + (ta stack_ty * context) tzresult = fun ~legacy loc -> let rec help : type a. context -> a stack_ty -> a stack_ty -> (a stack_ty * context) tzresult @@ -984,8 +990,8 @@ type ('t, 'f, 'b) branch = let merge_branches : type bef a b. legacy: bool -> context -> int -> a judgement -> b judgement -> - (a, b, bef) branch -> - (bef judgement * context) tzresult Lwt.t + (a, b, bef) branch -> + (bef judgement * context) tzresult Lwt.t = fun ~legacy ctxt loc btr bfr { branch } -> match btr, bfr with | Typed ({ aft = aftbt ; _ } as dbt), Typed ({ aft = aftbf ; _ } as dbf) -> @@ -1288,6 +1294,34 @@ let check_packable ~legacy loc root = type ex_script = Ex_script : ('a, 'c) script -> ex_script +type _ dig_proof_argument = + Dig_proof_argument + : ((('x * 'rest), 'rest, 'bef, 'aft) stack_prefix_preservation_witness + * ('x ty * var_annot option) + * 'aft stack_ty) + -> 'bef dig_proof_argument + +type (_, _) dug_proof_argument = + Dug_proof_argument + : (('rest, ('x * 'rest), 'bef, 'aft) stack_prefix_preservation_witness + * unit + * 'aft stack_ty) + -> ('bef, 'x) dug_proof_argument + +type (_) dipn_proof_argument = + Dipn_proof_argument + : (('fbef, 'faft, 'bef, 'aft) stack_prefix_preservation_witness + * (context * ('fbef, 'faft) descr) + * 'aft stack_ty) + -> 'bef dipn_proof_argument + +type (_) dropn_proof_argument = + Dropn_proof_argument + : (('rest, 'rest, 'bef, 'aft) stack_prefix_preservation_witness + * 'rest stack_ty + * 'aft stack_ty) + -> 'bef dropn_proof_argument + (* Lwt versions *) let parse_var_annot loc ?default annot = Lwt.return (parse_var_annot loc ?default annot) @@ -1764,6 +1798,24 @@ and parse_returning return ((Lam (descr (Item_t (ret, Empty_t, None)), strip_locations script_instr) : (arg, ret) lambda), ctxt) +and parse_int32 (n : (location, prim) Micheline.node) : int tzresult = + let error' () = + Invalid_syntactic_constant (location n, strip_locations n, + "a positive 32-bit integer (between 0 and " + ^ (Int32.to_string Int32.max_int) ^ ")") in + match n with + | Micheline.Int (_, n') -> + begin try + let n'' = Z.to_int n' in + if (Compare.Int.(0 <= n'')) && (Compare.Int.(n'' <= Int32.to_int Int32.max_int)) then + ok n'' + else + error @@ error' () + with _ -> + error @@ error' () + end + | _ -> error @@ error' () + and parse_instr : type bef. ?type_logger: type_logger -> @@ -1813,7 +1865,8 @@ and parse_instr log loc stack_ty aft; return_unit in - let return : + let outer_return = return in + let return : type bef . context -> bef judgement -> (bef judgement * context) tzresult Lwt.t = fun ctxt judgement -> match judgement with | Typed { instr ; loc ; aft ; _ } -> @@ -1836,14 +1889,83 @@ and parse_instr (* stack ops *) | Prim (loc, I_DROP, [], annot), Item_t (_, rest, _) -> - fail_unexpected_annot loc annot >>=? fun () -> - typed ctxt loc Drop - rest + (fail_unexpected_annot loc annot >>=? fun () -> + typed ctxt loc Drop rest : (bef judgement * context) tzresult Lwt.t) + | Prim (loc, I_DROP, [n], result_annot), whole_stack -> + Lwt.return (parse_int32 n) >>=? fun whole_n -> + let rec make_proof_argument + : type tstk . int -> (tstk stack_ty) -> (tstk dropn_proof_argument) tzresult Lwt.t = + fun n stk -> + match (Compare.Int.(n = 0)), stk with + true, rest -> + outer_return @@ (Dropn_proof_argument (Rest, rest, rest)) + | false, Item_t (v, rest, annot) -> + make_proof_argument (n - 1) rest + >>=? fun (Dropn_proof_argument (n', stack_after_drops, aft')) -> + outer_return @@ (Dropn_proof_argument (Prefix n', stack_after_drops, Item_t (v, aft', annot))) + | _, _ -> + serialize_stack_for_error ctxt whole_stack >>=? fun (whole_stack, _ctxt) -> + fail (Bad_stack (loc, I_DROP, whole_n, whole_stack)) + in + fail_unexpected_annot loc result_annot >>=? fun () -> + make_proof_argument whole_n whole_stack >>=? fun (Dropn_proof_argument (n', stack_after_drops, _aft)) -> + typed ctxt loc (Dropn (whole_n, n')) stack_after_drops + | Prim (loc, I_DROP, (_ :: _ :: _ as l), _), _ -> + (* Technically, the arities 0 and 1 are allowed but the error only mentions 1. + However, DROP is equivalent to DROP 1 so hinting at an arity of 1 makes sense. *) + fail (Invalid_arity (loc, I_DROP, 1, List.length l)) | Prim (loc, I_DUP, [], annot), Item_t (v, rest, stack_annot) -> parse_var_annot loc annot ~default:stack_annot >>=? fun annot -> typed ctxt loc Dup (Item_t (v, Item_t (v, rest, stack_annot), annot)) + | Prim (loc, I_DIG, [n], result_annot), stack -> + let rec make_proof_argument + : type tstk . int -> (tstk stack_ty) -> (tstk dig_proof_argument) tzresult Lwt.t = + fun n stk -> + match (Compare.Int.(n = 0)), stk with + true, Item_t (v, rest, annot) -> + outer_return @@ (Dig_proof_argument (Rest, (v, annot), rest)) + | false, Item_t (v, rest, annot) -> + make_proof_argument (n - 1) rest + >>=? fun (Dig_proof_argument (n', (x, xv), aft')) -> + outer_return @@ (Dig_proof_argument (Prefix n', (x, xv), Item_t (v, aft', annot))) + | _, _ -> + serialize_stack_for_error ctxt stack >>=? fun (whole_stack, _ctxt) -> + fail (Bad_stack (loc, I_DIG, 1, whole_stack)) + in + Lwt.return (parse_int32 n) >>=? fun n -> + fail_unexpected_annot loc result_annot >>=? fun () -> + make_proof_argument n stack >>=? fun (Dig_proof_argument (n', (x, stack_annot), aft)) -> + typed ctxt loc (Dig (n, n')) (Item_t (x, aft, stack_annot)) + | Prim (loc, I_DIG, ([] | _ :: _ :: _ as l), _), _ -> + fail (Invalid_arity (loc, I_DIG, 1, List.length l)) + | Prim (loc, I_DUG, [n], result_annot), Item_t (x, whole_stack, stack_annot) -> + Lwt.return (parse_int32 n) >>=? fun whole_n -> + let rec make_proof_argument + : type tstk x . int -> x ty -> var_annot option -> (tstk stack_ty) + -> ((tstk, x) dug_proof_argument) tzresult Lwt.t = + fun n x stack_annot stk -> + match (Compare.Int.(n = 0)), stk with + true, rest -> + outer_return @@ (Dug_proof_argument (Rest, (), Item_t (x, rest, stack_annot))) + | false, Item_t (v, rest, annot) -> + make_proof_argument (n - 1) x stack_annot rest + >>=? fun (Dug_proof_argument (n', (), aft')) -> + outer_return @@ (Dug_proof_argument (Prefix n', (), Item_t (v, aft', annot))) + | _, _ -> + serialize_stack_for_error ctxt whole_stack >>=? fun (whole_stack, _ctxt) -> + fail (Bad_stack (loc, I_DUG, whole_n, whole_stack)) + in + fail_unexpected_annot loc result_annot >>=? fun () -> + make_proof_argument whole_n x stack_annot whole_stack >>=? fun (Dug_proof_argument (n', (), aft)) -> + typed ctxt loc (Dug (whole_n, n')) aft + | Prim (loc, I_DUG, [_], result_annot), (Empty_t as stack) -> + fail_unexpected_annot loc result_annot >>=? fun () -> + serialize_stack_for_error ctxt stack >>=? fun (stack, _ctxt) -> + fail (Bad_stack (loc, I_DUG, 1, stack)) + | Prim (loc, I_DUG, ([] | _ :: _ :: _ as l), _), _ -> + fail (Invalid_arity (loc, I_DUG, 1, List.length l)) | Prim (loc, I_SWAP, [], annot), Item_t (v, Item_t (w, rest, stack_annot), cur_top_annot) -> fail_unexpected_annot loc annot >>=? fun () -> @@ -2279,6 +2401,41 @@ and parse_instr | Failed _ -> fail (Fail_not_in_tail_position loc) end + | Prim (loc, I_DIP, [n; code], result_annot), stack + when (match parse_int32 n with Ok _ -> true | Error _ -> false) -> + let rec make_proof_argument + : type tstk . int + (* -> (fbef stack_ty -> (fbef judgement * context) tzresult Lwt.t) *) + -> tc_context + -> (tstk stack_ty) + -> (tstk dipn_proof_argument) tzresult Lwt.t = + fun n inner_tc_context stk -> + match (Compare.Int.(n = 0)), stk with + true, rest -> + (parse_instr ?type_logger inner_tc_context ctxt ~legacy code + rest) >>=? begin fun (judgement, ctxt) -> match judgement with + | Typed descr -> + outer_return @@ (Dipn_proof_argument (Rest, (ctxt, descr), descr.aft)) + | Failed _ -> + fail (Fail_not_in_tail_position loc) + end + | false, Item_t (v, rest, annot) -> + make_proof_argument (n - 1) (add_dip v annot tc_context) rest + >>=? fun (Dipn_proof_argument (n', descr, aft')) -> + outer_return @@ (Dipn_proof_argument (Prefix n', descr, Item_t (v, aft', annot))) + | _, _ -> + serialize_stack_for_error ctxt stack >>=? fun (whole_stack, _ctxt) -> + fail (Bad_stack (loc, I_DIP, 1, whole_stack)) + in + Lwt.return (parse_int32 n) >>=? fun n -> + fail_unexpected_annot loc result_annot >>=? fun () -> + make_proof_argument n tc_context stack >>=? fun (Dipn_proof_argument (n', (new_ctxt, descr), aft)) -> + (* TODO: which context should be used in the next line? new_ctxt or the old ctxt? *) + typed new_ctxt loc (Dipn (n, n', descr)) aft + | Prim (loc, I_DIP, ([] | _ :: _ :: _ :: _ as l), _), _ -> + (* Technically, the arities 1 and 2 are allowed but the error only mentions 2. + However, DIP {code} is equivalent to DIP 1 {code} so hinting at an arity of 2 makes sense. *) + fail (Invalid_arity (loc, I_DIP, 2, List.length l)) | Prim (loc, I_FAILWITH, [], annot), Item_t (v, _rest, _) -> fail_unexpected_annot loc annot >>=? fun () -> @@ -2859,7 +3016,7 @@ and parse_instr (Item_t (Contract_t (param_type, None), stack, annot)) in get_toplevel_type tc_context (* Primitive parsing errors *) - | Prim (loc, (I_DROP | I_DUP | I_SWAP | I_SOME | I_UNIT + | Prim (loc, (I_DUP | I_SWAP | I_SOME | I_UNIT | I_PAIR | I_CAR | I_CDR | I_CONS | I_CONCAT | I_SLICE | I_MEM | I_UPDATE | I_MAP | I_GET | I_EXEC | I_FAILWITH | I_SIZE @@ -2876,7 +3033,7 @@ and parse_instr | I_BLAKE2B | I_SHA256 | I_SHA512 | I_STEPS_TO_QUOTA | I_ADDRESS as name), (_ :: _ as l), _), _ -> fail (Invalid_arity (loc, name, 0, List.length l)) - | Prim (loc, (I_NONE | I_LEFT | I_RIGHT | I_NIL | I_MAP | I_ITER | I_CREATE_CONTRACT + | Prim (loc, (I_NONE | I_LEFT | I_RIGHT | I_NIL | I_MAP | I_ITER | I_EMPTY_SET | I_DIP | I_LOOP | I_LOOP_LEFT | I_CONTRACT as name), ([] | _ :: _ :: _ as l), _), _ -> @@ -2939,7 +3096,8 @@ and parse_instr (* Generic parsing errors *) | expr, _ -> fail @@ unexpected expr [ Seq_kind ] Instr_namespace - [ I_DROP ; I_DUP ; I_SWAP ; I_SOME ; I_UNIT ; + [ I_DROP ; I_DUP; I_DIG; I_DUG; + I_SWAP ; I_SOME ; I_UNIT ; I_PAIR ; I_CAR ; I_CDR ; I_CONS ; I_MEM ; I_UPDATE ; I_MAP ; I_ITER ; I_GET ; I_EXEC ; I_FAILWITH ; I_SIZE ; diff --git a/src/proto_alpha/lib_protocol/script_tc_errors.ml b/src/proto_alpha/lib_protocol/script_tc_errors.ml index d05cc2233cd8..59b2e24d9a91 100644 --- a/src/proto_alpha/lib_protocol/script_tc_errors.ml +++ b/src/proto_alpha/lib_protocol/script_tc_errors.ml @@ -72,6 +72,7 @@ type error += Type_too_large : Script.location * int * int -> error (* Value typing errors *) type error += Invalid_constant : Script.location * Script.expr * Script.expr -> error +type error += Invalid_syntactic_constant : Script.location * Script.expr * string -> error type error += Invalid_contract of Script.location * Contract.t type error += Comparable_type_expected : Script.location * Script.expr -> error type error += Inconsistent_types : Script.expr * Script.expr -> error diff --git a/src/proto_alpha/lib_protocol/script_tc_errors_registration.ml b/src/proto_alpha/lib_protocol/script_tc_errors_registration.ml index dbb6a179cf0d..16bd49c1862a 100644 --- a/src/proto_alpha/lib_protocol/script_tc_errors_registration.ml +++ b/src/proto_alpha/lib_protocol/script_tc_errors_registration.ml @@ -510,6 +510,22 @@ let () = | _ -> None) (fun (loc, (ty, expr)) -> Invalid_constant (loc, expr, ty)) ; + (* Invalid syntactic constant *) + register_error_kind + `Permanent + ~id:"invalidSyntacticConstantError" + ~title: "Invalid constant (parse error)" + ~description: + "A compile-time constant was invalid for its expected form." + (located (obj2 + (req "expectedForm" Script.expr_encoding) + (req "wrongExpression" Script.expr_encoding))) + (function + | Invalid_constant (loc, expr, ty) -> + Some (loc, (ty, expr)) + | _ -> None) + (fun (loc, (ty, expr)) -> + Invalid_constant (loc, expr, ty)) ; (* Invalid contract *) register_error_kind `Permanent diff --git a/src/proto_alpha/lib_protocol/script_typed_ir.ml b/src/proto_alpha/lib_protocol/script_typed_ir.ml index c3f5dad498c2..274e28362c4e 100644 --- a/src/proto_alpha/lib_protocol/script_typed_ir.ml +++ b/src/proto_alpha/lib_protocol/script_typed_ir.ml @@ -123,12 +123,14 @@ and ('key, 'value) big_map = { diff : ('key, 'value option) map ; (* ---- Instructions --------------------------------------------------------*) (* The low-level, typed instructions, as a GADT whose parameters - encode the typing rules. The left parameter is the typed shape of - the stack before the instruction, the right one the shape - after. Any program whose construction is accepted by OCaml's - type-checker is guaranteed to be type-safe. Overloadings of the - concrete syntax are already resolved in this representation, either - by using different constructors or type witness parameters. *) + encode the typing rules. + + The left parameter is the typed shape of the stack before the + instruction, the right one the shape after. Any program whose + construction is accepted by OCaml's type-checker is guaranteed to + be type-safe. Overloadings of the concrete syntax are already + resolved in this representation, either by using different + constructors or type witness parameters. *) and ('bef, 'aft) instr = (* stack ops *) | Drop : @@ -234,10 +236,7 @@ and ('bef, 'aft) instr = | Diff_timestamps : (Script_timestamp.t * (Script_timestamp.t * 'rest), z num * 'rest) instr - (* currency operations *) - (* TODO: we can either just have conversions to/from integers and - do all operations on integers, or we need more operations on - Tez. Also Sub_tez should return Tez.t option (if negative) and *) + (* tez operations *) | Add_tez : (Tez.t * (Tez.t * 'rest), Tez.t * 'rest) instr | Sub_tez : @@ -347,7 +346,6 @@ and ('bef, 'aft) instr = (z num * 'rest, bool * 'rest) instr | Ge : (z num * 'rest, bool * 'rest) instr - (* protocol *) | Address : (_ typed_contract * 'rest, address * 'rest) instr @@ -393,6 +391,26 @@ and ('bef, 'aft) instr = ('rest, 'p typed_contract * 'rest) instr | Amount : ('rest, Tez.t * 'rest) instr + | Dig : int * ('x * 'rest, 'rest, 'bef, 'aft) stack_prefix_preservation_witness -> + ('bef, 'x * 'aft) instr + | Dug : int * ('rest, 'x * 'rest, 'bef, 'aft) stack_prefix_preservation_witness -> + ('x * 'bef, 'aft) instr + | Dipn : int * ('fbef, 'faft, 'bef, 'aft) stack_prefix_preservation_witness * ('fbef, 'faft) descr -> + ('bef, 'aft) instr + | Dropn : int * ('rest, 'rest, 'bef, _) stack_prefix_preservation_witness -> + ('bef, 'rest) instr + +(* Type witness for operations that work deep in the stack ignoring + (and preserving) a prefix. + + The two right parameters are the shape of the stack with the (same) + prefix before and after the transformation. The two left + parameters are the shape of the stack without the prefix before and + after. The inductive definition makes it so by construction. *) +and ('bef, 'aft, 'bef_suffix, 'aft_suffix) stack_prefix_preservation_witness = + | Prefix : ('fbef, 'faft, 'bef, 'aft) stack_prefix_preservation_witness + -> ('fbef, 'faft, 'x * 'bef, 'x * 'aft) stack_prefix_preservation_witness + | Rest : ('bef, 'aft, 'bef, 'aft) stack_prefix_preservation_witness and ('bef, 'aft) descr = { loc : Script.location ; -- GitLab From 45f923d44e708b18c8ab8277c90114efa7d402ff Mon Sep 17 00:00:00 2001 From: Benjamin Canou Date: Tue, 28 May 2019 14:10:13 +0200 Subject: [PATCH 036/252] Client: make macros DIIIP and DUUUP use new indexed instructions This is not a patch for the protocol. It makes existing macros produce cheaper code thatnks to the new stack instructions. --- .../lib_client/michelson_v1_macros.ml | 231 +++++++++++------- .../lib_client/michelson_v1_macros.mli | 8 +- 2 files changed, 144 insertions(+), 95 deletions(-) diff --git a/src/proto_alpha/lib_client/michelson_v1_macros.ml b/src/proto_alpha/lib_client/michelson_v1_macros.ml index 278680c2059a..f1a078258503 100644 --- a/src/proto_alpha/lib_client/michelson_v1_macros.ml +++ b/src/proto_alpha/lib_client/michelson_v1_macros.ml @@ -354,20 +354,22 @@ let decimal_of_roman roman = done ; !arabic -let expand_dxiiivp original = +let dip ~loc ?(annot = []) depth instr = + assert (depth >= 0) ; + if depth = 1 then Prim (loc, "DIP", [instr], annot) + else Prim (loc, "DIP", [Int (loc, Z.of_int depth); instr], annot) + +let expand_deprecated_dxiiivp original = + (* transparently expands deprecated macro [DI...IP] to instruction [DIP n] *) match original with | Prim (loc, str, args, annot) -> let len = String.length str in if len > 3 && str.[0] = 'D' && str.[len - 1] = 'P' then try let depth = decimal_of_roman (String.sub str 1 (len - 2)) in - let rec make i acc = - if i = 0 then acc - else make (i - 1) (Seq (loc, [Prim (loc, "DIP", [acc], annot)])) - in match args with | [(Seq (_, _) as arg)] -> - ok @@ Some (make depth arg) + ok @@ Some (dip ~loc ~annot depth arg) | [_] -> error (Sequence_expected str) | [] | _ :: _ :: _ -> @@ -379,10 +381,6 @@ let expand_dxiiivp original = exception Not_a_pair -let rec dip ~loc depth instr = - if depth <= 0 then instr - else dip ~loc (depth - 1) (Prim (loc, "DIP", [Seq (loc, [instr])], [])) - type pair_item = A | I | P of int * pair_item * pair_item let parse_pair_substr str ~len start = @@ -477,7 +475,10 @@ let expand_pappaiir original = car_annot @ cdr_annot in let acc = - dip ~loc depth (Prim (loc, "PAIR", [], annot)) :: acc + if depth = 0 then Prim (loc, "PAIR", [], annot) :: acc + else + dip ~loc depth (Seq (loc, [Prim (loc, "PAIR", [], annot)])) + :: acc in (depth, acc) |> parse left |> parse right | A | I -> @@ -515,7 +516,8 @@ let expand_unpappaiir original = ( loc, [ Prim (loc, "DUP", [], []); Prim (loc, "CAR", [], car_annot); - dip ~loc 1 (Prim (loc, "CDR", [], cdr_annot)) ] ) + dip ~loc 1 (Seq (loc, [Prim (loc, "CDR", [], cdr_annot)])) ] + ) in let ast = parse_pair_substr str ~len 2 in let annots_pos = pappaiir_annots_pos ast annot in @@ -529,7 +531,12 @@ let expand_unpappaiir original = | Some (car_annot, cdr_annot) -> (car_annot, cdr_annot) in - let acc = dip ~loc depth (unpair car_annot cdr_annot) :: acc in + let acc = + if depth = 0 then unpair car_annot cdr_annot :: acc + else + dip ~loc depth (Seq (loc, [unpair car_annot cdr_annot])) + :: acc + in (depth, acc) |> parse left |> parse right | A | I -> (depth + 1, acc) @@ -549,7 +556,34 @@ let expand_unpappaiir original = exception Not_a_dup -let expand_duuuuup original = +let dupn loc nloc n annot = + assert (n > 1) ; + if n = 2 then + (* keep the old expansion, shorter for [DUP 2] *) + Seq + ( loc, + [ Prim (loc, "DIP", [Seq (loc, [Prim (nloc, "DUP", [], annot)])], []); + Prim (loc, "SWAP", [], []) ] ) + else + Seq + ( loc, + [ Prim + ( loc, + "DIP", + [ Int (loc, Z.of_int (n - 1)); + Seq (loc, [Prim (loc, "DUP", [], annot)]) ], + [] ); + Prim (loc, "DIG", [Int (nloc, Z.of_int n)], []) ] ) + +let expand_dupn original = + match original with + | Prim (loc, "DUP", [Int (nloc, n)], annot) -> + ok (Some (dupn loc nloc (Z.to_int n) annot)) + | _ -> + ok None + +let expand_deprecated_duuuuup original = + (* transparently expands deprecated macro [DU...UP] to [{ DIP n { DUP } ; DIG n }] *) match original with | Prim (loc, str, args, annot) -> let len = String.length str in @@ -566,19 +600,12 @@ let expand_duuuuup original = error (Invalid_arity (str, List.length args, 0)) ) >>? fun () -> try - let rec parse i acc = - if i = 1 then acc - else if str.[i] = 'U' then - parse - (i - 1) - (Seq - ( loc, - [Prim (loc, "DIP", [acc], []); Prim (loc, "SWAP", [], [])] - )) + let rec parse i = + if i = 1 then dupn loc loc (len - 2) annot + else if str.[i] = 'U' then parse (i - 1) else raise_notrace Not_a_dup in - ok - (Some (parse (len - 2) (Seq (loc, [Prim (loc, "DUP", [], annot)])))) + ok (Some (parse (len - 2))) with Not_a_dup -> ok None else ok None | _ -> @@ -790,12 +817,13 @@ let expand original = [ expand_caddadr; expand_set_caddadr; expand_map_caddadr; - expand_dxiiivp; + expand_deprecated_dxiiivp; (* expand_paaiair ; *) expand_pappaiir; (* expand_unpaaiair ; *) expand_unpappaiir; - expand_duuuuup; + expand_deprecated_duuuuup; + expand_dupn; expand_compare; expand_asserts; expand_if_some; @@ -975,48 +1003,8 @@ let unexpand_map_caddadr expanded = | None -> None -let roman_of_decimal decimal = - (* http://rosettacode.org/wiki/Roman_numerals/Encode#OCaml *) - let digit x y z = function - | 1 -> - [x] - | 2 -> - [x; x] - | 3 -> - [x; x; x] - | 4 -> - [x; y] - | 5 -> - [y] - | 6 -> - [y; x] - | 7 -> - [y; x; x] - | 8 -> - [y; x; x; x] - | 9 -> - [x; z] - | _ -> - assert false - in - let rec to_roman x = - if x = 0 then [] - else if x < 0 then invalid_arg "Negative roman numeral" - else if x >= 1000 then "M" :: to_roman (x - 1000) - else if x >= 100 then digit "C" "D" "M" (x / 100) @ to_roman (x mod 100) - else if x >= 10 then digit "X" "L" "C" (x / 10) @ to_roman (x mod 10) - else digit "I" "V" "X" x - in - String.concat "" (to_roman decimal) - -let dxiiivp_roman_of_decimal decimal = - let roman = roman_of_decimal decimal in - if String.length roman = 1 then - (* too short for D*P, fall back to IIIII... *) - String.concat "" (List.init decimal (fun _ -> "I")) - else roman - -let unexpand_dxiiivp expanded = +let unexpand_deprecated_dxiiivp expanded = + (* transparently turn the old expansion of deprecated [DI...IP] to [DIP n] *) match expanded with | Seq ( loc, @@ -1029,32 +1017,34 @@ let unexpand_dxiiivp expanded = (acc, sub) in let (depth, sub) = count 1 sub in - let name = "D" ^ dxiiivp_roman_of_decimal depth ^ "P" in - Some (Prim (loc, name, [sub], [])) + Some (Prim (loc, "DIP", [Int (loc, Z.of_int depth); sub], [])) | _ -> None -let unexpand_duuuuup expanded = - let rec help expanded = - match expanded with - | Seq (loc, [Prim (_, "DUP", [], [])]) -> - Some (loc, 1) - | Seq (_, [Prim (_, "DIP", [expanded'], []); Prim (_, "SWAP", [], [])]) - -> ( - match help expanded' with - | None -> - None - | Some (loc, n) -> - Some (loc, n + 1) ) +let unexpand_dupn expanded = + match expanded with + | Seq + ( loc, + [ Prim + (_, "DIP", [Int (_, np); Seq (_, [Prim (_, "DUP", [], annot)])], []); + Prim (_, "DIG", [Int (nloc, ng)], []) ] ) + when Z.equal np (Z.pred ng) -> + Some (Prim (loc, "DUP", [Int (nloc, ng)], annot)) + | _ -> + None + +let unexpand_deprecated_duuuuup expanded = + (* transparently turn the old expansion of deprecated [DU...UP] to [DUP n] *) + let rec expand n = function + | Seq (loc, [Prim (nloc, "DUP", [], annot)]) -> + if n = 1 then None + else Some (Prim (loc, "DUP", [Int (nloc, Z.of_int n)], annot)) + | Seq (_, [Prim (_, "DIP", [expanded'], []); Prim (_, "SWAP", [], [])]) -> + expand (n + 1) expanded' | _ -> None in - let rec dupn = function 0 -> "P" | n -> "U" ^ dupn (n - 1) in - match help expanded with - | None -> - None - | Some (loc, n) -> - Some (Prim (loc, "D" ^ dupn n, [], [])) + expand 1 expanded let rec normalize_pair_item ?(right = false) = function | P (i, a, b) -> @@ -1075,6 +1065,35 @@ let unexpand_pappaiir expanded = match (nodes, stack) with | ([], _) -> stack + (* support new expansion using [DIP n] *) + | ( Prim (ploc, "DIP", [Int (loc, n); Seq (sloc, sub)], []) :: rest, + a :: rstack ) + when Z.to_int n > 1 -> + exec + ( a + :: exec + rstack + [ Prim + (ploc, "DIP", [Int (loc, Z.pred n); Seq (sloc, sub)], []) + ] ) + rest + | (Prim (_, "DIP", [Int (_, n); Seq (_, sub)], []) :: rest, a :: rstack) + when Z.to_int n = 1 -> + exec (a :: exec rstack sub) rest + | (Prim (ploc, "DIP", [Int (loc, n); Seq (sloc, sub)], []) :: rest, []) + when Z.to_int n > 1 -> + exec + ( A + :: exec + [] + [ Prim + (ploc, "DIP", [Int (loc, Z.pred n); Seq (sloc, sub)], []) + ] ) + rest + | (Prim (_, "DIP", [Int (_, n); Seq (_, sub)], []) :: rest, []) + when Z.to_int n = 1 -> + exec (A :: exec [] sub) rest + (* support old expansion using [DIP] *) | (Prim (_, "DIP", [Seq (_, sub)], []) :: rest, a :: rstack) -> exec (a :: exec rstack sub) rest | (Prim (_, "DIP", [Seq (_, sub)], []) :: rest, []) -> @@ -1107,6 +1126,35 @@ let unexpand_unpappaiir expanded = match (nodes, stack) with | ([], _) -> stack + (* support new expansion using [DIP n] *) + | ( Prim (ploc, "DIP", [Int (loc, n); Seq (sloc, sub)], []) :: rest, + a :: rstack ) + when Z.to_int n > 1 -> + exec + ( a + :: exec + rstack + [ Prim + (ploc, "DIP", [Int (loc, Z.pred n); Seq (sloc, sub)], []) + ] ) + rest + | (Prim (_, "DIP", [Int (_, n); Seq (_, sub)], []) :: rest, a :: rstack) + when Z.to_int n = 1 -> + exec (a :: exec rstack sub) rest + | (Prim (ploc, "DIP", [Int (loc, n); Seq (sloc, sub)], []) :: rest, []) + when Z.to_int n > 1 -> + exec + ( A + :: exec + [] + [ Prim + (ploc, "DIP", [Int (loc, Z.pred n); Seq (sloc, sub)], []) + ] ) + rest + | (Prim (_, "DIP", [Int (_, n); Seq (_, sub)], []) :: rest, []) + when Z.to_int n = 1 -> + exec (A :: exec [] sub) rest + (* support old expansion using [DIP] *) | (Prim (_, "DIP", [Seq (_, sub)], []) :: rest, a :: rstack) -> exec (a :: exec rstack sub) rest | (Prim (_, "DIP", [Seq (_, sub)], []) :: rest, []) -> @@ -1420,10 +1468,11 @@ let unexpand original = unexpand_caddadr; unexpand_set_caddadr; unexpand_map_caddadr; - unexpand_dxiiivp; + unexpand_deprecated_dxiiivp; unexpand_pappaiir; unexpand_unpappaiir; - unexpand_duuuuup; + unexpand_deprecated_duuuuup; + unexpand_dupn; unexpand_compare; unexpand_if_some; unexpand_if_right; diff --git a/src/proto_alpha/lib_client/michelson_v1_macros.mli b/src/proto_alpha/lib_client/michelson_v1_macros.mli index 2e68d9d06331..352a59b00a9e 100644 --- a/src/proto_alpha/lib_client/michelson_v1_macros.mli +++ b/src/proto_alpha/lib_client/michelson_v1_macros.mli @@ -43,11 +43,11 @@ val expand_set_caddadr : 'l node -> 'l node option tzresult val expand_map_caddadr : 'l node -> 'l node option tzresult -val expand_dxiiivp : 'l node -> 'l node option tzresult +val expand_deprecated_dxiiivp : 'l node -> 'l node option tzresult val expand_pappaiir : 'l node -> 'l node option tzresult -val expand_duuuuup : 'l node -> 'l node option tzresult +val expand_deprecated_duuuuup : 'l node -> 'l node option tzresult val expand_compare : 'l node -> 'l node option tzresult @@ -69,11 +69,11 @@ val unexpand_set_caddadr : 'l node -> 'l node option val unexpand_map_caddadr : 'l node -> 'l node option -val unexpand_dxiiivp : 'l node -> 'l node option +val unexpand_deprecated_dxiiivp : 'l node -> 'l node option val unexpand_pappaiir : 'l node -> 'l node option -val unexpand_duuuuup : 'l node -> 'l node option +val unexpand_deprecated_duuuuup : 'l node -> 'l node option val unexpand_compare : 'l node -> 'l node option -- GitLab From 7adde526bb4a3b40130336872d9048ca20a72eab Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Rapha=C3=ABl=20Proust?= Date: Mon, 15 Jul 2019 18:31:22 +0200 Subject: [PATCH 037/252] Proto: do not use parallel iterators This patch does not change the semantics. Using serial iterators (map_s) instead of parallel iterators (map_p) increases the determinism of the protocol. --- src/proto_alpha/lib_protocol/delegate_services.ml | 6 +++--- src/proto_alpha/lib_protocol/storage_description.ml | 2 +- src/proto_alpha/lib_protocol/storage_functors.ml | 6 +++--- 3 files changed, 7 insertions(+), 7 deletions(-) diff --git a/src/proto_alpha/lib_protocol/delegate_services.ml b/src/proto_alpha/lib_protocol/delegate_services.ml index bbaa282609bb..0e54e0afc1a4 100644 --- a/src/proto_alpha/lib_protocol/delegate_services.ml +++ b/src/proto_alpha/lib_protocol/delegate_services.ml @@ -281,7 +281,7 @@ let requested_levels ~default ctxt cycles levels = Level.compare (List.concat (List.map (Level.from_raw ctxt) levels :: List.map (Level.levels_in_cycle ctxt) cycles)) in - map_p + map_s (fun level -> let current_level = Level.current ctxt in if Level.(level <= current_level) then @@ -410,7 +410,7 @@ module Baking_rights = struct match q.max_priority with | None -> 64 | Some max -> max in - map_p (baking_priorities ctxt max_priority) levels >>=? fun rights -> + map_s (baking_priorities ctxt max_priority) levels >>=? fun rights -> let rights = if q.all then rights @@ -516,7 +516,7 @@ module Endorsing_rights = struct requested_levels ~default: (Level.current ctxt, Some (Timestamp.current ctxt)) ctxt q.cycles q.levels >>=? fun levels -> - map_p (endorsement_slots ctxt) levels >>=? fun rights -> + map_s (endorsement_slots ctxt) levels >>=? fun rights -> let rights = List.concat rights in match q.delegates with | [] -> return rights diff --git a/src/proto_alpha/lib_protocol/storage_description.ml b/src/proto_alpha/lib_protocol/storage_description.ml index 96aef4fea4a0..7fa1c1dbb981 100644 --- a/src/proto_alpha/lib_protocol/storage_description.ml +++ b/src/proto_alpha/lib_protocol/storage_description.ml @@ -285,7 +285,7 @@ let build_directory : type key. key t -> key RPC_directory.t = else if Compare.Int.(i = 0) then return_some [] else list k >>=? fun keys -> - map_p + map_s (fun key -> if Compare.Int.(i = 1) then return (key, None) diff --git a/src/proto_alpha/lib_protocol/storage_functors.ml b/src/proto_alpha/lib_protocol/storage_functors.ml index 774066dda97d..2180ac96b9d8 100644 --- a/src/proto_alpha/lib_protocol/storage_functors.ml +++ b/src/proto_alpha/lib_protocol/storage_functors.ml @@ -595,13 +595,13 @@ module Make_indexed_subcontext (C : Raw_context.T) (I : INDEX) end | [] -> list t prefix >>= fun prefixes -> - Lwt_list.map_p (function + Lwt_list.map_s (function | `Key prefix | `Dir prefix -> loop (i+1) prefix []) prefixes >|= List.flatten | [d] when Compare.Int.(i = I.path_length - 1) -> if Compare.Int.(i >= I.path_length) then invalid_arg "IO.resolve" ; list t prefix >>= fun prefixes -> - Lwt_list.map_p (function + Lwt_list.map_s (function | `Key prefix | `Dir prefix -> match Misc.remove_prefix ~prefix:d (List.hd (List.rev prefix)) with | None -> Lwt.return_nil @@ -610,7 +610,7 @@ module Make_indexed_subcontext (C : Raw_context.T) (I : INDEX) >|= List.flatten | "" :: ds -> list t prefix >>= fun prefixes -> - Lwt_list.map_p (function + Lwt_list.map_s (function | `Key prefix | `Dir prefix -> loop (i+1) prefix ds) prefixes >|= List.flatten | d :: ds -> -- GitLab From fd145e64f10106fa0cbcd0fec9a87224835e61bb Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Tom=C3=A1=C5=A1=20Zemanovi=C4=8D?= Date: Fri, 14 Jun 2019 16:26:49 +0200 Subject: [PATCH 038/252] Client: fix 'Invalid_arity' error pretty-print argument order This is not a patch for the protocol. --- src/proto_alpha/lib_client/michelson_v1_macros.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/proto_alpha/lib_client/michelson_v1_macros.ml b/src/proto_alpha/lib_client/michelson_v1_macros.ml index f1a078258503..c16b2b08db4e 100644 --- a/src/proto_alpha/lib_client/michelson_v1_macros.ml +++ b/src/proto_alpha/lib_client/michelson_v1_macros.ml @@ -1537,8 +1537,8 @@ let () = ppf "Macro %s expects %d arguments, was given %d." name - got - exp) + exp + got) (obj3 (req "macro_name" string) (req "given_number_of_arguments" uint16) -- GitLab From 2569208813a15365467e52d3395ab4530fa33a9e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Tom=C3=A1=C5=A1=20Zemanovi=C4=8D?= Date: Tue, 18 Jun 2019 17:16:36 +0200 Subject: [PATCH 039/252] Client: Add client 'call' command aliasing 'transfer 0' This is not a patch for the protocol. --- .../client_proto_context_commands.ml | 83 +++++++++++++++++++ 1 file changed, 83 insertions(+) diff --git a/src/proto_alpha/lib_client_commands/client_proto_context_commands.ml b/src/proto_alpha/lib_client_commands/client_proto_context_commands.ml index 7216cae2428b..9a74220b4cb8 100644 --- a/src/proto_alpha/lib_client_commands/client_proto_context_commands.ml +++ b/src/proto_alpha/lib_client_commands/client_proto_context_commands.ml @@ -654,6 +654,89 @@ let commands version () = cctxt >>= function | None -> return_unit | Some (_res, _contracts) -> return_unit); + command + ~group + ~desc:"Call a smart contract (same as 'transfer 0')." + (args14 + fee_arg + dry_run_switch + verbose_signing_switch + gas_limit_arg + storage_limit_arg + counter_arg + arg_arg + no_print_source_flag + minimal_fees_arg + minimal_nanotez_per_byte_arg + minimal_nanotez_per_gas_unit_arg + force_low_fee_arg + fee_cap_arg + burn_cap_arg) + ( prefixes ["call"] + @@ prefix "from" + @@ ContractAlias.destination_param + ~name:"src" + ~desc:"name of the source contract" + @@ prefix "to" + @@ ContractAlias.destination_param + ~name:"dst" + ~desc:"name/literal of the destination contract" + @@ stop ) + (fun ( fee, + dry_run, + verbose_signing, + gas_limit, + storage_limit, + counter, + arg, + no_print_source, + minimal_fees, + minimal_nanotez_per_byte, + minimal_nanotez_per_gas_unit, + force_low_fee, + fee_cap, + burn_cap ) + (_, source) + (_, destination) + cctxt -> + source_to_keys cctxt ~chain:cctxt#chain ~block:cctxt#block source + >>=? fun (src_pk, src_sk) -> + let fee_parameter = + { + Injection.minimal_fees; + minimal_nanotez_per_byte; + minimal_nanotez_per_gas_unit; + force_low_fee; + fee_cap; + burn_cap; + } + in + let amount = Tez.zero in + transfer + cctxt + ~chain:cctxt#chain + ~block:cctxt#block + ?confirmations:cctxt#confirmations + ~dry_run + ~verbose_signing + ~fee_parameter + ~source + ?fee + ~src_pk + ~src_sk + ~destination + ?arg + ~amount + ?gas_limit + ?storage_limit + ?counter + () + >>= report_michelson_errors + ~no_print_source + ~msg:"transfer simulation failed" + cctxt + >>= function + | None -> return_unit | Some (_res, _contracts) -> return_unit); command ~group ~desc:"Reveal the public key of the contract manager." -- GitLab From 3ea9a1c938e0abbf5385ed79b07163eaa6caff4b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Tom=C3=A1=C5=A1=20Zemanovi=C4=8D?= Date: Fri, 14 Jun 2019 12:39:26 +0200 Subject: [PATCH 040/252] Proto: add Michelson code stubs to replicate manager operations on KT1s Spendable, scriptless contracts are simulated by the 'manager.tz' script, which replaces their functionality. It allows for the contract's manager to set and withdraw delegate, spend the contract's funds and to set a new manager, which is written into script's storage. The 'manager.tz' script's parameters have field annotations, which in combination with script entry-points allows for friendlier commands for running the script. Spendable and delegatable flags are simulated by adding entrypoints to a scripted contract. --- .../lib_protocol/.ocamlformat-ignore | 2 + src/proto_alpha/lib_protocol/TEZOS_PROTOCOL | 1 + src/proto_alpha/lib_protocol/alpha_context.ml | 1 + .../lib_protocol/alpha_context.mli | 15 + src/proto_alpha/lib_protocol/dune.inc | 8 +- .../legacy_script_support_repr.ml | 481 ++++++++++++++++++ .../legacy_script_support_repr.mli | 58 +++ 7 files changed, 562 insertions(+), 4 deletions(-) create mode 100644 src/proto_alpha/lib_protocol/legacy_script_support_repr.ml create mode 100644 src/proto_alpha/lib_protocol/legacy_script_support_repr.mli diff --git a/src/proto_alpha/lib_protocol/.ocamlformat-ignore b/src/proto_alpha/lib_protocol/.ocamlformat-ignore index 638f36536584..260409bcad38 100644 --- a/src/proto_alpha/lib_protocol/.ocamlformat-ignore +++ b/src/proto_alpha/lib_protocol/.ocamlformat-ignore @@ -45,6 +45,8 @@ gas_limit_repr.mli helpers_services.ml helpers_services.mli init_storage.ml +legacy_script_support_repr.ml +legacy_script_support_repr.mli level_repr.ml level_repr.mli level_storage.ml diff --git a/src/proto_alpha/lib_protocol/TEZOS_PROTOCOL b/src/proto_alpha/lib_protocol/TEZOS_PROTOCOL index 227ece362d97..bede80027363 100644 --- a/src/proto_alpha/lib_protocol/TEZOS_PROTOCOL +++ b/src/proto_alpha/lib_protocol/TEZOS_PROTOCOL @@ -25,6 +25,7 @@ "Script_timestamp_repr", "Michelson_v1_primitives", "Script_repr", + "Legacy_script_support_repr", "Contract_repr", "Roll_repr", "Vote_repr", diff --git a/src/proto_alpha/lib_protocol/alpha_context.ml b/src/proto_alpha/lib_protocol/alpha_context.ml index 5e4d2d97aacb..4a184292617f 100644 --- a/src/proto_alpha/lib_protocol/alpha_context.ml +++ b/src/proto_alpha/lib_protocol/alpha_context.ml @@ -86,6 +86,7 @@ module Script = struct (Script_repr.force_bytes lexpr >>? fun (b, cost) -> Raw_context.consume_gas ctxt cost >|? fun ctxt -> (b, ctxt)) + module Legacy_support = Legacy_script_support_repr end module Fees = Fees_storage diff --git a/src/proto_alpha/lib_protocol/alpha_context.mli b/src/proto_alpha/lib_protocol/alpha_context.mli index 87d8573d726b..5639a1410fe7 100644 --- a/src/proto_alpha/lib_protocol/alpha_context.mli +++ b/src/proto_alpha/lib_protocol/alpha_context.mli @@ -344,6 +344,21 @@ module Script : sig val force_bytes : context -> lazy_expr -> (MBytes.t * context) tzresult Lwt.t val unit_parameter : lazy_expr + + module Legacy_support : sig + val manager_script_code: lazy_expr + val add_do: + manager_pkh: Signature.Public_key_hash.t -> + script_code: lazy_expr -> + script_storage: lazy_expr -> + (lazy_expr * lazy_expr) tzresult Lwt.t + val add_set_delegate: + manager_pkh: Signature.Public_key_hash.t -> + script_code: lazy_expr -> + script_storage: lazy_expr -> + (lazy_expr * lazy_expr) tzresult Lwt.t + end + end module Constants : sig diff --git a/src/proto_alpha/lib_protocol/dune.inc b/src/proto_alpha/lib_protocol/dune.inc index f7bbe11361d9..7d293d021848 100644 --- a/src/proto_alpha/lib_protocol/dune.inc +++ b/src/proto_alpha/lib_protocol/dune.inc @@ -18,7 +18,7 @@ module CamlinternalFormatBasics = struct include CamlinternalFormatBasics end (rule (targets registerer.ml) - (deps misc.mli misc.ml storage_description.mli storage_description.ml state_hash.ml nonce_hash.ml script_expr_hash.ml contract_hash.ml blinded_public_key_hash.mli blinded_public_key_hash.ml qty_repr.ml tez_repr.mli tez_repr.ml period_repr.mli period_repr.ml time_repr.mli time_repr.ml constants_repr.ml fitness_repr.ml raw_level_repr.mli raw_level_repr.ml voting_period_repr.mli voting_period_repr.ml cycle_repr.mli cycle_repr.ml level_repr.mli level_repr.ml seed_repr.mli seed_repr.ml gas_limit_repr.mli gas_limit_repr.ml script_int_repr.mli script_int_repr.ml script_timestamp_repr.mli script_timestamp_repr.ml michelson_v1_primitives.mli michelson_v1_primitives.ml script_repr.mli script_repr.ml contract_repr.mli contract_repr.ml roll_repr.mli roll_repr.ml vote_repr.mli vote_repr.ml block_header_repr.mli block_header_repr.ml operation_repr.mli operation_repr.ml manager_repr.mli manager_repr.ml commitment_repr.mli commitment_repr.ml parameters_repr.mli parameters_repr.ml raw_context.mli raw_context.ml storage_sigs.ml storage_functors.mli storage_functors.ml storage.mli storage.ml constants_storage.ml level_storage.mli level_storage.ml nonce_storage.mli nonce_storage.ml seed_storage.mli seed_storage.ml roll_storage.mli roll_storage.ml delegate_storage.mli delegate_storage.ml contract_storage.mli contract_storage.ml bootstrap_storage.mli bootstrap_storage.ml fitness_storage.ml vote_storage.mli vote_storage.ml commitment_storage.mli commitment_storage.ml init_storage.ml fees_storage.mli fees_storage.ml alpha_context.mli alpha_context.ml script_typed_ir.ml script_tc_errors.ml michelson_v1_gas.mli michelson_v1_gas.ml script_ir_annot.mli script_ir_annot.ml script_ir_translator.mli script_ir_translator.ml script_tc_errors_registration.ml script_interpreter.mli script_interpreter.ml baking.mli baking.ml amendment.mli amendment.ml apply_results.mli apply_results.ml apply.ml services_registration.ml constants_services.mli constants_services.ml contract_services.mli contract_services.ml delegate_services.mli delegate_services.ml helpers_services.mli helpers_services.ml voting_services.mli voting_services.ml alpha_services.mli alpha_services.ml main.mli main.ml + (deps misc.mli misc.ml storage_description.mli storage_description.ml state_hash.ml nonce_hash.ml script_expr_hash.ml contract_hash.ml blinded_public_key_hash.mli blinded_public_key_hash.ml qty_repr.ml tez_repr.mli tez_repr.ml period_repr.mli period_repr.ml time_repr.mli time_repr.ml constants_repr.ml fitness_repr.ml raw_level_repr.mli raw_level_repr.ml voting_period_repr.mli voting_period_repr.ml cycle_repr.mli cycle_repr.ml level_repr.mli level_repr.ml seed_repr.mli seed_repr.ml gas_limit_repr.mli gas_limit_repr.ml script_int_repr.mli script_int_repr.ml script_timestamp_repr.mli script_timestamp_repr.ml michelson_v1_primitives.mli michelson_v1_primitives.ml script_repr.mli script_repr.ml legacy_script_support_repr.mli legacy_script_support_repr.ml contract_repr.mli contract_repr.ml roll_repr.mli roll_repr.ml vote_repr.mli vote_repr.ml block_header_repr.mli block_header_repr.ml operation_repr.mli operation_repr.ml manager_repr.mli manager_repr.ml commitment_repr.mli commitment_repr.ml parameters_repr.mli parameters_repr.ml raw_context.mli raw_context.ml storage_sigs.ml storage_functors.mli storage_functors.ml storage.mli storage.ml constants_storage.ml level_storage.mli level_storage.ml nonce_storage.mli nonce_storage.ml seed_storage.mli seed_storage.ml roll_storage.mli roll_storage.ml delegate_storage.mli delegate_storage.ml contract_storage.mli contract_storage.ml bootstrap_storage.mli bootstrap_storage.ml fitness_storage.ml vote_storage.mli vote_storage.ml commitment_storage.mli commitment_storage.ml init_storage.ml fees_storage.mli fees_storage.ml alpha_context.mli alpha_context.ml script_typed_ir.ml script_tc_errors.ml michelson_v1_gas.mli michelson_v1_gas.ml script_ir_annot.mli script_ir_annot.ml script_ir_translator.mli script_ir_translator.ml script_tc_errors_registration.ml script_interpreter.mli script_interpreter.ml baking.mli baking.ml amendment.mli amendment.ml apply_results.mli apply_results.ml apply.ml services_registration.ml constants_services.mli constants_services.ml contract_services.mli contract_services.ml delegate_services.mli delegate_services.ml helpers_services.mli helpers_services.ml voting_services.mli voting_services.ml alpha_services.mli alpha_services.ml main.mli main.ml (:src_dir TEZOS_PROTOCOL)) (action (with-stdout-to %{targets} @@ -26,7 +26,7 @@ module CamlinternalFormatBasics = struct include CamlinternalFormatBasics end (rule (targets functor.ml) - (deps misc.mli misc.ml storage_description.mli storage_description.ml state_hash.ml nonce_hash.ml script_expr_hash.ml contract_hash.ml blinded_public_key_hash.mli blinded_public_key_hash.ml qty_repr.ml tez_repr.mli tez_repr.ml period_repr.mli period_repr.ml time_repr.mli time_repr.ml constants_repr.ml fitness_repr.ml raw_level_repr.mli raw_level_repr.ml voting_period_repr.mli voting_period_repr.ml cycle_repr.mli cycle_repr.ml level_repr.mli level_repr.ml seed_repr.mli seed_repr.ml gas_limit_repr.mli gas_limit_repr.ml script_int_repr.mli script_int_repr.ml script_timestamp_repr.mli script_timestamp_repr.ml michelson_v1_primitives.mli michelson_v1_primitives.ml script_repr.mli script_repr.ml contract_repr.mli contract_repr.ml roll_repr.mli roll_repr.ml vote_repr.mli vote_repr.ml block_header_repr.mli block_header_repr.ml operation_repr.mli operation_repr.ml manager_repr.mli manager_repr.ml commitment_repr.mli commitment_repr.ml parameters_repr.mli parameters_repr.ml raw_context.mli raw_context.ml storage_sigs.ml storage_functors.mli storage_functors.ml storage.mli storage.ml constants_storage.ml level_storage.mli level_storage.ml nonce_storage.mli nonce_storage.ml seed_storage.mli seed_storage.ml roll_storage.mli roll_storage.ml delegate_storage.mli delegate_storage.ml contract_storage.mli contract_storage.ml bootstrap_storage.mli bootstrap_storage.ml fitness_storage.ml vote_storage.mli vote_storage.ml commitment_storage.mli commitment_storage.ml init_storage.ml fees_storage.mli fees_storage.ml alpha_context.mli alpha_context.ml script_typed_ir.ml script_tc_errors.ml michelson_v1_gas.mli michelson_v1_gas.ml script_ir_annot.mli script_ir_annot.ml script_ir_translator.mli script_ir_translator.ml script_tc_errors_registration.ml script_interpreter.mli script_interpreter.ml baking.mli baking.ml amendment.mli amendment.ml apply_results.mli apply_results.ml apply.ml services_registration.ml constants_services.mli constants_services.ml contract_services.mli contract_services.ml delegate_services.mli delegate_services.ml helpers_services.mli helpers_services.ml voting_services.mli voting_services.ml alpha_services.mli alpha_services.ml main.mli main.ml + (deps misc.mli misc.ml storage_description.mli storage_description.ml state_hash.ml nonce_hash.ml script_expr_hash.ml contract_hash.ml blinded_public_key_hash.mli blinded_public_key_hash.ml qty_repr.ml tez_repr.mli tez_repr.ml period_repr.mli period_repr.ml time_repr.mli time_repr.ml constants_repr.ml fitness_repr.ml raw_level_repr.mli raw_level_repr.ml voting_period_repr.mli voting_period_repr.ml cycle_repr.mli cycle_repr.ml level_repr.mli level_repr.ml seed_repr.mli seed_repr.ml gas_limit_repr.mli gas_limit_repr.ml script_int_repr.mli script_int_repr.ml script_timestamp_repr.mli script_timestamp_repr.ml michelson_v1_primitives.mli michelson_v1_primitives.ml script_repr.mli script_repr.ml legacy_script_support_repr.mli legacy_script_support_repr.ml contract_repr.mli contract_repr.ml roll_repr.mli roll_repr.ml vote_repr.mli vote_repr.ml block_header_repr.mli block_header_repr.ml operation_repr.mli operation_repr.ml manager_repr.mli manager_repr.ml commitment_repr.mli commitment_repr.ml parameters_repr.mli parameters_repr.ml raw_context.mli raw_context.ml storage_sigs.ml storage_functors.mli storage_functors.ml storage.mli storage.ml constants_storage.ml level_storage.mli level_storage.ml nonce_storage.mli nonce_storage.ml seed_storage.mli seed_storage.ml roll_storage.mli roll_storage.ml delegate_storage.mli delegate_storage.ml contract_storage.mli contract_storage.ml bootstrap_storage.mli bootstrap_storage.ml fitness_storage.ml vote_storage.mli vote_storage.ml commitment_storage.mli commitment_storage.ml init_storage.ml fees_storage.mli fees_storage.ml alpha_context.mli alpha_context.ml script_typed_ir.ml script_tc_errors.ml michelson_v1_gas.mli michelson_v1_gas.ml script_ir_annot.mli script_ir_annot.ml script_ir_translator.mli script_ir_translator.ml script_tc_errors_registration.ml script_interpreter.mli script_interpreter.ml baking.mli baking.ml amendment.mli amendment.ml apply_results.mli apply_results.ml apply.ml services_registration.ml constants_services.mli constants_services.ml contract_services.mli contract_services.ml delegate_services.mli delegate_services.ml helpers_services.mli helpers_services.ml voting_services.mli voting_services.ml alpha_services.mli alpha_services.ml main.mli main.ml (:src_dir TEZOS_PROTOCOL)) (action (with-stdout-to %{targets} (chdir %{workspace_root} @@ -34,7 +34,7 @@ module CamlinternalFormatBasics = struct include CamlinternalFormatBasics end (rule (targets protocol.ml) - (deps misc.mli misc.ml storage_description.mli storage_description.ml state_hash.ml nonce_hash.ml script_expr_hash.ml contract_hash.ml blinded_public_key_hash.mli blinded_public_key_hash.ml qty_repr.ml tez_repr.mli tez_repr.ml period_repr.mli period_repr.ml time_repr.mli time_repr.ml constants_repr.ml fitness_repr.ml raw_level_repr.mli raw_level_repr.ml voting_period_repr.mli voting_period_repr.ml cycle_repr.mli cycle_repr.ml level_repr.mli level_repr.ml seed_repr.mli seed_repr.ml gas_limit_repr.mli gas_limit_repr.ml script_int_repr.mli script_int_repr.ml script_timestamp_repr.mli script_timestamp_repr.ml michelson_v1_primitives.mli michelson_v1_primitives.ml script_repr.mli script_repr.ml contract_repr.mli contract_repr.ml roll_repr.mli roll_repr.ml vote_repr.mli vote_repr.ml block_header_repr.mli block_header_repr.ml operation_repr.mli operation_repr.ml manager_repr.mli manager_repr.ml commitment_repr.mli commitment_repr.ml parameters_repr.mli parameters_repr.ml raw_context.mli raw_context.ml storage_sigs.ml storage_functors.mli storage_functors.ml storage.mli storage.ml constants_storage.ml level_storage.mli level_storage.ml nonce_storage.mli nonce_storage.ml seed_storage.mli seed_storage.ml roll_storage.mli roll_storage.ml delegate_storage.mli delegate_storage.ml contract_storage.mli contract_storage.ml bootstrap_storage.mli bootstrap_storage.ml fitness_storage.ml vote_storage.mli vote_storage.ml commitment_storage.mli commitment_storage.ml init_storage.ml fees_storage.mli fees_storage.ml alpha_context.mli alpha_context.ml script_typed_ir.ml script_tc_errors.ml michelson_v1_gas.mli michelson_v1_gas.ml script_ir_annot.mli script_ir_annot.ml script_ir_translator.mli script_ir_translator.ml script_tc_errors_registration.ml script_interpreter.mli script_interpreter.ml baking.mli baking.ml amendment.mli amendment.ml apply_results.mli apply_results.ml apply.ml services_registration.ml constants_services.mli constants_services.ml contract_services.mli contract_services.ml delegate_services.mli delegate_services.ml helpers_services.mli helpers_services.ml voting_services.mli voting_services.ml alpha_services.mli alpha_services.ml main.mli main.ml) + (deps misc.mli misc.ml storage_description.mli storage_description.ml state_hash.ml nonce_hash.ml script_expr_hash.ml contract_hash.ml blinded_public_key_hash.mli blinded_public_key_hash.ml qty_repr.ml tez_repr.mli tez_repr.ml period_repr.mli period_repr.ml time_repr.mli time_repr.ml constants_repr.ml fitness_repr.ml raw_level_repr.mli raw_level_repr.ml voting_period_repr.mli voting_period_repr.ml cycle_repr.mli cycle_repr.ml level_repr.mli level_repr.ml seed_repr.mli seed_repr.ml gas_limit_repr.mli gas_limit_repr.ml script_int_repr.mli script_int_repr.ml script_timestamp_repr.mli script_timestamp_repr.ml michelson_v1_primitives.mli michelson_v1_primitives.ml script_repr.mli script_repr.ml legacy_script_support_repr.mli legacy_script_support_repr.ml contract_repr.mli contract_repr.ml roll_repr.mli roll_repr.ml vote_repr.mli vote_repr.ml block_header_repr.mli block_header_repr.ml operation_repr.mli operation_repr.ml manager_repr.mli manager_repr.ml commitment_repr.mli commitment_repr.ml parameters_repr.mli parameters_repr.ml raw_context.mli raw_context.ml storage_sigs.ml storage_functors.mli storage_functors.ml storage.mli storage.ml constants_storage.ml level_storage.mli level_storage.ml nonce_storage.mli nonce_storage.ml seed_storage.mli seed_storage.ml roll_storage.mli roll_storage.ml delegate_storage.mli delegate_storage.ml contract_storage.mli contract_storage.ml bootstrap_storage.mli bootstrap_storage.ml fitness_storage.ml vote_storage.mli vote_storage.ml commitment_storage.mli commitment_storage.ml init_storage.ml fees_storage.mli fees_storage.ml alpha_context.mli alpha_context.ml script_typed_ir.ml script_tc_errors.ml michelson_v1_gas.mli michelson_v1_gas.ml script_ir_annot.mli script_ir_annot.ml script_ir_translator.mli script_ir_translator.ml script_tc_errors_registration.ml script_interpreter.mli script_interpreter.ml baking.mli baking.ml amendment.mli amendment.ml apply_results.mli apply_results.ml apply.ml services_registration.ml constants_services.mli constants_services.ml contract_services.mli contract_services.ml delegate_services.mli delegate_services.ml helpers_services.mli helpers_services.ml voting_services.mli voting_services.ml alpha_services.mli alpha_services.ml main.mli main.ml) (action (write-file %{targets} "module Environment = Tezos_protocol_environment_alpha.Environment @@ -62,7 +62,7 @@ include Tezos_raw_protocol_alpha.Main -open Tezos_protocol_environment_alpha__Environment -open Pervasives -open Error_monad)) - (modules Misc Storage_description State_hash Nonce_hash Script_expr_hash Contract_hash Blinded_public_key_hash Qty_repr Tez_repr Period_repr Time_repr Constants_repr Fitness_repr Raw_level_repr Voting_period_repr Cycle_repr Level_repr Seed_repr Gas_limit_repr Script_int_repr Script_timestamp_repr Michelson_v1_primitives Script_repr Contract_repr Roll_repr Vote_repr Block_header_repr Operation_repr Manager_repr Commitment_repr Parameters_repr Raw_context Storage_sigs Storage_functors Storage Constants_storage Level_storage Nonce_storage Seed_storage Roll_storage Delegate_storage Contract_storage Bootstrap_storage Fitness_storage Vote_storage Commitment_storage Init_storage Fees_storage Alpha_context Script_typed_ir Script_tc_errors Michelson_v1_gas Script_ir_annot Script_ir_translator Script_tc_errors_registration Script_interpreter Baking Amendment Apply_results Apply Services_registration Constants_services Contract_services Delegate_services Helpers_services Voting_services Alpha_services Main)) + (modules Misc Storage_description State_hash Nonce_hash Script_expr_hash Contract_hash Blinded_public_key_hash Qty_repr Tez_repr Period_repr Time_repr Constants_repr Fitness_repr Raw_level_repr Voting_period_repr Cycle_repr Level_repr Seed_repr Gas_limit_repr Script_int_repr Script_timestamp_repr Michelson_v1_primitives Script_repr Legacy_script_support_repr Contract_repr Roll_repr Vote_repr Block_header_repr Operation_repr Manager_repr Commitment_repr Parameters_repr Raw_context Storage_sigs Storage_functors Storage Constants_storage Level_storage Nonce_storage Seed_storage Roll_storage Delegate_storage Contract_storage Bootstrap_storage Fitness_storage Vote_storage Commitment_storage Init_storage Fees_storage Alpha_context Script_typed_ir Script_tc_errors Michelson_v1_gas Script_ir_annot Script_ir_translator Script_tc_errors_registration Script_interpreter Baking Amendment Apply_results Apply Services_registration Constants_services Contract_services Delegate_services Helpers_services Voting_services Alpha_services Main)) (install (section lib) diff --git a/src/proto_alpha/lib_protocol/legacy_script_support_repr.ml b/src/proto_alpha/lib_protocol/legacy_script_support_repr.ml new file mode 100644 index 000000000000..b0fb9010c481 --- /dev/null +++ b/src/proto_alpha/lib_protocol/legacy_script_support_repr.ml @@ -0,0 +1,481 @@ +(*****************************************************************************) +(* *) +(* Open Source License *) +(* Copyright (c) 2018 Dynamic Ledger Solutions, Inc. *) +(* Copyright (c) 2019 Nomadic Labs *) +(* Copyright (c) 2019 Cryptium Labs *) +(* *) +(* Permission is hereby granted, free of charge, to any person obtaining a *) +(* copy of this software and associated documentation files (the "Software"),*) +(* to deal in the Software without restriction, including without limitation *) +(* the rights to use, copy, modify, merge, publish, distribute, sublicense, *) +(* and/or sell copies of the Software, and to permit persons to whom the *) +(* Software is furnished to do so, subject to the following conditions: *) +(* *) +(* The above copyright notice and this permission notice shall be included *) +(* in all copies or substantial portions of the Software. *) +(* *) +(* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR*) +(* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, *) +(* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL *) +(* THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER*) +(* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING *) +(* FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER *) +(* DEALINGS IN THE SOFTWARE. *) +(* *) +(*****************************************************************************) + +let manager_script_code: Script_repr.lazy_expr = + let open Micheline in + let open Michelson_v1_primitives in + Script_repr.lazy_expr @@ strip_locations @@ + Seq (0, [ + Prim (0, K_parameter, [ + Prim (0, T_or, [ + Prim (0, T_lambda, [ + Prim (0, T_unit, [], []); + Prim (0, T_list, [ + Prim (0, T_operation, [], []) + ], []) + ], ["%do"]); + Prim (0, T_unit, [], ["%default"]) + ], []) + ], []); + Prim (0, K_storage, [ + Prim (0, T_key_hash, [], []) + ], []); + Prim (0, K_code, [ + Seq (0, [ + Seq (0, [ + Seq (0, [ + Prim (0, I_DUP, [], []); + Prim (0, I_CAR, [], []); + Prim (0, I_DIP, [ + Seq (0, [ + Prim (0, I_CDR, [], []) + ]) + ], []) + ]) + ]); + Prim (0, I_IF_LEFT, [ + Seq (0, [ + Prim (0, I_PUSH, [ + Prim (0, T_mutez, [], []); + Int (0, Z.zero) + ], []); + Prim (0, I_AMOUNT, [], []); + Seq (0, [ + Seq (0, [ + Prim (0, I_COMPARE, [], []); + Prim (0, I_EQ, [], []) + ]); + Prim (0, I_IF, [ + Seq (0, []); + Seq (0, [ + Seq (0, [ + Prim (0, I_UNIT, [], []); + Prim (0, I_FAILWITH, [], []) + ]) + ]) + ], []) + ]); + Seq (0, [ + Prim (0, I_DIP, [ + Seq (0, [ + Prim (0, I_DUP, [], []) + ]) + ], []); + Prim (0, I_SWAP, [], []) + ]); + Prim (0, I_IMPLICIT_ACCOUNT, [], []); + Prim (0, I_ADDRESS, [], []); + Prim (0, I_SENDER, [], []); + Seq (0, [ + Seq (0, [ + Prim (0, I_COMPARE, [], []); + Prim (0, I_EQ, [], []) + ]); + Prim (0, I_IF, [ + Seq (0, []); + Seq (0, [ + Seq (0, [ + Prim (0, I_UNIT, [], []); + Prim (0, I_FAILWITH, [], []) + ]) + ]) + ], []) + ]); + Prim (0, I_UNIT, [], []); + Prim (0, I_EXEC, [], []); + Prim (0, I_PAIR, [], []) + ]); + Seq (0, [ + Prim (0, I_DROP, [], []); + Prim (0, I_NIL, [ + Prim (0, T_operation, [], []) + ], []); + Prim (0, I_PAIR, [], []) + ]) + ], []) + ]) + ], []) + ]) + +(* Find the toplevel expression with a given prim type from list, + because they can be in arbitrary order. *) +let find_toplevel toplevel exprs = + let open Micheline in + let rec iter toplevel = function + | (Prim (_, prim, _, _) as found) :: _ + when String.equal toplevel (Michelson_v1_primitives.string_of_prim prim) -> + Some found + | _ :: rest -> + iter toplevel rest + | [] -> + None in + iter (Michelson_v1_primitives.string_of_prim toplevel) exprs + +let add_do: + manager_pkh: Signature.Public_key_hash.t -> + script_code: Script_repr.lazy_expr -> + script_storage: Script_repr.lazy_expr -> + (Script_repr.lazy_expr * Script_repr.lazy_expr) tzresult Lwt.t = + fun ~manager_pkh ~script_code ~script_storage -> + let open Micheline in + let open Michelson_v1_primitives in + Lwt.return (Script_repr.force_decode script_code) >>=? fun (script_code_expr, _gas_cost) -> + Lwt.return (Script_repr.force_decode script_storage) >>|? fun (script_storage_expr, _gas_cost) -> + let storage_expr = root script_storage_expr in + match root script_code_expr with + | Seq (_, toplevel) + -> begin + match find_toplevel K_parameter toplevel, + find_toplevel K_storage toplevel, + find_toplevel K_code toplevel with + Some (Prim (_, K_parameter, [ + Prim (_, parameter_type, parameter_expr, parameter_annot) + ], prim_param_annot)), + Some (Prim (_, K_storage, [ + Prim (_, code_storage_type, code_storage_expr, code_storage_annot) + ], k_storage_annot)), + Some (Prim (_, K_code, [code_expr], code_annot)) -> + (* Note that we intentionally don't deal with potential duplicate entrypoints in this migration as there already might be some in contracts that we don't touch. *) + + let migrated_code = + Seq (0, [ + Prim (0, K_parameter, [ + Prim (0, T_or, [ + Prim (0, T_lambda, [ + Prim (0, T_unit, [], []); + Prim (0, T_list, [ + Prim (0, T_operation, [], []) + ], []) + ], ["%do"]); + Prim (0, parameter_type, parameter_expr, "%default" :: parameter_annot) + ], []) + ], prim_param_annot); + Prim (0, K_storage, [ + Prim (0, T_pair, [ + Prim (0, T_key_hash, [], []); + Prim (0, code_storage_type, code_storage_expr, code_storage_annot) + ], []) + ], k_storage_annot); + Prim (0, K_code, [ + Seq (0, [ + Prim (0, I_DUP, [], []); + Prim (0, I_CAR, [], []); + Prim (0, I_IF_LEFT, [ + Seq (0, [ + Prim (0, I_PUSH, [ + Prim (0, T_mutez, [], []); + Int (0, Z.zero) + ], []); + Prim (0, I_AMOUNT, [], []); + Seq (0, [ + Seq (0, [ + Prim (0, I_COMPARE, [], []); + Prim (0, I_EQ, [], []) + ]); + Prim (0, I_IF, [ + Seq (0, []); + Seq (0, [ + Seq (0, [ + Prim (0, I_UNIT, [], []); + Prim (0, I_FAILWITH, [], []) + ]) + ]) + ], []) + ]); + Seq (0, [ + Prim (0, I_DIP, [ + Seq (0, [ + Prim (0, I_DUP, [], []) + ]) + ], []); + Prim (0, I_SWAP, [], []) + ]); + Prim (0, I_CDR, [], []); + Prim (0, I_CAR, [], []); + Prim (0, I_IMPLICIT_ACCOUNT, [], []); + Prim (0, I_ADDRESS, [], []); + Prim (0, I_SENDER, [], []); + Seq (0, [ + Prim (0, I_COMPARE, [], []); + Prim (0, I_NEQ, [], []); + Prim (0, I_IF, [ + Seq (0, [ + Prim (0, I_SENDER, [], []); + Prim (0, I_PUSH, [ + Prim (0, T_string, [], []); + String (0, "Only the owner can operate.") + ], []); + Prim (0, I_PAIR, [], []); + Prim (0, I_FAILWITH, [], []) + ]); + Seq (0, [ + Prim (0, I_UNIT, [], []); + Prim (0, I_EXEC, [], []); + Prim (0, I_DIP, [ + Seq (0, [ + Prim (0, I_CDR, [], []) + ]) + ], []); + Prim (0, I_PAIR, [], []) + ]) + ], []) + ]) + ]); + Seq (0, [ + Prim (0, I_DIP, [ + Seq (0, [ + Prim (0, I_CDR, [], []); + Prim (0, I_DUP, [], []); + Prim (0, I_CDR, [], []) + ]) + ], []); + Prim (0, I_PAIR, [], []); + + code_expr; + + Prim (0, I_SWAP, [], []); + Prim (0, I_CAR, [], []); + Prim (0, I_SWAP, [], []); + Seq (0, [ + Seq (0, [ + Prim (0, I_DUP, [], []); + Prim (0, I_CAR, [], []); + Prim (0, I_DIP, [ + Seq (0, [ + Prim (0, I_CDR, [], []) + ]) + ], []) + ]) + ]); + Prim (0, I_DIP, [ + Seq (0, [ + Prim (0, I_SWAP, [], []); + Prim (0, I_PAIR, [], []) + ]) + ], []); + Prim (0, I_PAIR, [], []) + ]) + ], []) + ]) + ], code_annot) + ]) + in + let migrated_storage = Prim (0, D_Pair, [ + (* Instead of + `String (0, Signature.Public_key_hash.to_b58check manager_pkh)` + the storage is written as unparsed with [Optimized] *) + Bytes (0, Data_encoding.Binary.to_bytes_exn Signature.Public_key_hash.encoding manager_pkh) ; + storage_expr + ], []) in + Script_repr.lazy_expr @@ strip_locations migrated_code, + Script_repr.lazy_expr @@ strip_locations migrated_storage + | _ -> + script_code, script_storage + end + | _ -> + script_code, script_storage + + + +let add_set_delegate: + manager_pkh: Signature.Public_key_hash.t -> + script_code: Script_repr.lazy_expr -> + script_storage: Script_repr.lazy_expr -> + (Script_repr.lazy_expr * Script_repr.lazy_expr) tzresult Lwt.t = + fun ~manager_pkh ~script_code ~script_storage -> + let open Micheline in + let open Michelson_v1_primitives in + Lwt.return (Script_repr.force_decode script_code) >>=? fun (script_code_expr, _gas_cost) -> + Lwt.return (Script_repr.force_decode script_storage) >>|? fun (script_storage_expr, _gas_cost) -> + let storage_expr = root script_storage_expr in + match root script_code_expr with + | Seq (_, toplevel) + -> begin + match find_toplevel K_parameter toplevel, + find_toplevel K_storage toplevel, + find_toplevel K_code toplevel with + Some (Prim (_, K_parameter, [ + Prim (_, parameter_type, parameter_expr, parameter_annot) + ], prim_param_annot)), + Some (Prim (_, K_storage, [ + Prim (_, code_storage_type, code_storage_expr, code_storage_annot) + ], k_storage_annot)), + Some (Prim (_, K_code, [code_expr], code_annot)) -> + (* Note that we intentionally don't deal with potential duplicate entrypoints in this migration as there already might be some in contracts that we don't touch. *) + + let migrated_code = + Seq (0, [ + Prim (0, K_parameter, [ + Prim (0, T_or, [ + Prim (0, T_or, [ + Prim (0, T_key_hash, [], ["%set_delegate"]); + Prim (0, T_unit, [], ["%remove_delegate"]) + ], []); + Prim (0, parameter_type, parameter_expr, "%default" :: parameter_annot) + ], []) + ], prim_param_annot); + Prim (0, K_storage, [ + Prim (0, T_pair, [ + Prim (0, T_key_hash, [], []); + Prim (0, code_storage_type, code_storage_expr, code_storage_annot) + ], []) + ], k_storage_annot); + Prim (0, K_code, [ + Seq (0, [ + Prim (0, I_DUP, [], []); + Prim (0, I_CAR, [], []); + Prim (0, I_IF_LEFT, [ + Seq (0, [ + Prim (0, I_PUSH, [ + Prim (0, T_mutez, [], []); + Int (0, Z.zero) + ], []); + Prim (0, I_AMOUNT, [], []); + Seq (0, [ + Seq (0, [ + Prim (0, I_COMPARE, [], []); + Prim (0, I_EQ, [], []) + ]); + Prim (0, I_IF, [ + Seq (0, []); + Seq (0, [ + Seq (0, [ + Prim (0, I_UNIT, [], []); + Prim (0, I_FAILWITH, [], []) + ]) + ]) + ], []) + ]); + Seq (0, [ + Prim (0, I_DIP, [ + Seq (0, [ + Prim (0, I_DUP, [], []) + ]) + ], []); + Prim (0, I_SWAP, [], []) + ]); + Prim (0, I_CDR, [], []); + Prim (0, I_CAR, [], []); + Prim (0, I_IMPLICIT_ACCOUNT, [], []); + Prim (0, I_ADDRESS, [], []); + Prim (0, I_SENDER, [], []); + Seq (0, [ + Prim (0, I_COMPARE, [], []); + Prim (0, I_NEQ, [], []); + Prim (0, I_IF, [ + Seq (0, [ + Prim (0, I_SENDER, [], []); + Prim (0, I_PUSH, [ + Prim (0, T_string, [], []); + String (0, "Only the owner can operate.") + ], []); + Prim (0, I_PAIR, [], []); + Prim (0, I_FAILWITH, [], []) + ]); + Seq (0, [ + Prim (0, I_DIP, [ + Seq (0, [ + Prim (0, I_CDR, [], []); + Prim (0, I_NIL, [ + Prim (0, T_operation, [], []) + ], []) + ]) + ], []); + Prim (0, I_IF_LEFT, [ + Seq (0, [ + Prim (0, I_SOME, [], []); + Prim (0, I_SET_DELEGATE, [], []); + Prim (0, I_CONS, [], []); + Prim (0, I_PAIR, [], []) + ]); + Seq (0, [ + Prim (0, I_DROP, [], []); + Prim (0, I_NONE, [ + Prim (0, T_key_hash, [], []) + ], []); + Prim (0, I_SET_DELEGATE, [], []); + Prim (0, I_CONS, [], []); + Prim (0, I_PAIR, [], []) + ]) + ], []) + ]) + ], []) + ]) + ]); + Seq (0, [ + Prim (0, I_DIP, [ + Seq (0, [ + Prim (0, I_CDR, [], []); + Prim (0, I_DUP, [], []); + Prim (0, I_CDR, [], []) + ]) + ], []); + Prim (0, I_PAIR, [], []); + + code_expr; + + Prim (0, I_SWAP, [], []); + Prim (0, I_CAR, [], []); + Prim (0, I_SWAP, [], []); + Seq (0, [ + Seq (0, [ + Prim (0, I_DUP, [], []); + Prim (0, I_CAR, [], []); + Prim (0, I_DIP, [ + Seq (0, [ + Prim (0, I_CDR, [], []) + ]) + ], []) + ]) + ]); + Prim (0, I_DIP, [ + Seq (0, [ + Prim (0, I_SWAP, [], []); + Prim (0, I_PAIR, [], []) + ]) + ], []); + Prim (0, I_PAIR, [], []) + ]) + ], []) + ]) + ], code_annot) + ]) + in + let migrated_storage = Prim (0, D_Pair, [ + (* Instead of + `String (0, Signature.Public_key_hash.to_b58check manager_pkh)` + the storage is written as unparsed with [Optimized] *) + Bytes (0, Data_encoding.Binary.to_bytes_exn Signature.Public_key_hash.encoding manager_pkh) ; + storage_expr + ], []) in + Script_repr.lazy_expr @@ strip_locations migrated_code, + Script_repr.lazy_expr @@ strip_locations migrated_storage + | _ -> + script_code, script_storage + end + | _ -> + script_code, script_storage diff --git a/src/proto_alpha/lib_protocol/legacy_script_support_repr.mli b/src/proto_alpha/lib_protocol/legacy_script_support_repr.mli new file mode 100644 index 000000000000..e90b66c95b70 --- /dev/null +++ b/src/proto_alpha/lib_protocol/legacy_script_support_repr.mli @@ -0,0 +1,58 @@ +(*****************************************************************************) +(* *) +(* Open Source License *) +(* Copyright (c) 2018 Dynamic Ledger Solutions, Inc. *) +(* Copyright (c) 2019 Nomadic Labs *) +(* Copyright (c) 2019 Cryptium Labs *) +(* *) +(* Permission is hereby granted, free of charge, to any person obtaining a *) +(* copy of this software and associated documentation files (the "Software"),*) +(* to deal in the Software without restriction, including without limitation *) +(* the rights to use, copy, modify, merge, publish, distribute, sublicense, *) +(* and/or sell copies of the Software, and to permit persons to whom the *) +(* Software is furnished to do so, subject to the following conditions: *) +(* *) +(* The above copyright notice and this permission notice shall be included *) +(* in all copies or substantial portions of the Software. *) +(* *) +(* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR*) +(* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, *) +(* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL *) +(* THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER*) +(* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING *) +(* FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER *) +(* DEALINGS IN THE SOFTWARE. *) +(* *) +(*****************************************************************************) + +(** This code mimics the now defunct scriptless KT1s. + + The manager contract is from: + https://gitlab.com/nomadic-labs/mi-cho-coq/blob/7b42f2e970e1541af54f8a9b6820b4f18e847575/src/contracts/manager.tz + The formal proof is at: + https://gitlab.com/nomadic-labs/mi-cho-coq/blob/a7603e12021166e15890f6d504feebec2f945502/src/contracts_coq/manager.v *) +val manager_script_code: Script_repr.lazy_expr + +(** This code mimics the now defunct "spendable" flags of KT1s by + adding a [do] entrypoint, preserving the original script's at + 'default' entrypoint. + + The pseudo-code for the applied transformations is from: + https://gitlab.com/nomadic-labs/mi-cho-coq/blob/7b42f2e970e1541af54f8a9b6820b4f18e847575/src/contracts/transform/add_do.tz *) +val add_do: + manager_pkh: Signature.Public_key_hash.t -> + script_code: Script_repr.lazy_expr -> + script_storage: Script_repr.lazy_expr -> + (Script_repr.lazy_expr * Script_repr.lazy_expr) tzresult Lwt.t + +(** This code mimics the now defunct "spendable" flags of KT1s by + adding a [do] entrypoint, preserving the original script's at + 'default' entrypoint. + + The pseudo-code for the applied transformations is from: + https://gitlab.com/nomadic-labs/mi-cho-coq/blob/7b42f2e970e1541af54f8a9b6820b4f18e847575/src/contracts/transform/add_set_delegate.tz *) +val add_set_delegate: + manager_pkh: Signature.Public_key_hash.t -> + script_code: Script_repr.lazy_expr -> + script_storage: Script_repr.lazy_expr -> + (Script_repr.lazy_expr * Script_repr.lazy_expr) tzresult Lwt.t -- GitLab From fde27ecc67424c1845348876360b8efc68f11b5a Mon Sep 17 00:00:00 2001 From: Benjamin Canou Date: Tue, 23 Jul 2019 17:33:43 +0200 Subject: [PATCH 041/252] Proto/Migration: migrate KT1s with and without script Contains a BREAKING CHANGE (see end of message). All spendable, scriptless contracts are migrated to 'manager.tz' script. Contracts that have a spendable flag set are augmented with a `%do` entrypoint. Contracts that have a delegatable flag set are augmented with `%set_delegate` and `%remove_delegate` entrypoints. Interacting with converted contracts must now be done via smart contract calls. As an example, here is how `tezos-client` handles retro-compatibility for the `transfer` and `set delegate` commands. When crafting a transaction, if the source is a KT1, if checks that its storage is either of type `key_hash` or `pair key_hash _`, and retrieve this `key_hash`. Let's name this `key_hash` . To implement `tezos-client set delegate for to `, it starts by looking for entrypoints. If `%set_delegate` is present, it does the equivalent of 'tezos-client transfer 0 from to \ --entrypoint 'set_delegate' --arg '' where is the key_hash found in the contract's storage If `%do` is present, it does the equivalent of 'tezos-client transfer 0 from to \ --entrypoint 'do' \ --arg '{ NIL operation ; \ PUSH key_hash ; \ SOME ; \ SET_DELEGATE ; \ CONS }' where is the key_hash found in the contract's storage To implement `tezos-client transfer from to `, when the destination is a simple adress or a contract of type `unit`, it does the equivalent of ``` tezos-client transfer 0 from to \ --entrypoint "do" \ --arg '{ NIL operation ; \ PUSH address ; \ CONTRACT unit; AMOUNT ; \ UNIT ; \ TRANSFER_TOKENS ; \ CONS ; \ PAIR }' ``` To implement `tezos-client transfer from to \ [--arg ] [--entrypoint ]`, it starts by checking that the contract has a `%do` entrypoint. Then it look for type `` of contract `` in the chain And it does the equivalent of ``` tezos-client transfer 0 from to \ --entrypoint "do" \ --arg '{ NIL operation ; \ PUSH address ; \ CONTRACT % ; # Omit if not given AMOUNT ; \ PUSH ; \ # UNIT if not given TRANSFER_TOKENS ; \ CONS ; \ PAIR }' ``` --- src/proto_alpha/lib_protocol/init_storage.ml | 84 ++++++++++++++++++- src/proto_alpha/lib_protocol/storage.ml | 8 ++ src/proto_alpha/lib_protocol/storage.mli | 40 +++++++-- .../lib_protocol/storage_functors.ml | 15 ++++ src/proto_alpha/lib_protocol/storage_sigs.ml | 16 +++- 5 files changed, 152 insertions(+), 11 deletions(-) diff --git a/src/proto_alpha/lib_protocol/init_storage.ml b/src/proto_alpha/lib_protocol/init_storage.ml index c3affbfc6634..c22bb60f5782 100644 --- a/src/proto_alpha/lib_protocol/init_storage.ml +++ b/src/proto_alpha/lib_protocol/init_storage.ml @@ -52,8 +52,87 @@ let migrate_delegated ctxt contract = else return ctxt +let transform_script: + (manager_pkh: Signature.Public_key_hash.t -> + script_code: Script_repr.lazy_expr -> + script_storage: Script_repr.lazy_expr -> + (Script_repr.lazy_expr * Script_repr.lazy_expr) tzresult Lwt.t) -> + Raw_context.t -> + Contract_repr.t -> + Script_repr.lazy_expr -> + Raw_context.t tzresult Lwt.t = + fun transformation ctxt contract code -> + (* Get the manager of the originated contract *) + Contract_storage.get_manager ctxt contract >>=? fun manager_pkh -> + Storage.Contract.Storage.get ctxt contract >>=? fun (_ctxt, storage) -> + transformation manager_pkh code storage >>=? fun (migrated_code, migrated_storage) -> + (* Set the migrated script code for free *) + Storage.Contract.Code.set_free ctxt contract migrated_code >>=? fun (ctxt, code_size_diff) -> + (* Set the migrated script storage for free *) + Storage.Contract.Storage.set_free ctxt contract migrated_storage >>=? fun (ctxt, storage_size_diff) -> + Storage.Contract.Used_storage_space.get ctxt contract >>=? fun used_space -> + let total_size = Z.(add (of_int code_size_diff) (add (of_int storage_size_diff) used_space)) in + (* Free storage space for migrated contracts *) + Storage.Contract.Used_storage_space.set ctxt contract total_size >>=? fun ctxt -> + Storage.Contract.Paid_storage_space.get ctxt contract >>=? fun paid_space -> + if Compare.Z.(paid_space < total_size) then + Storage.Contract.Paid_storage_space.set ctxt contract total_size >>=? fun ctxt -> + return ctxt + else + return ctxt + +let manager_script_storage: Signature.Public_key_hash.t -> Script_repr.lazy_expr = + fun manager_pkh -> + let open Micheline in + Script_repr.lazy_expr @@ strip_locations @@ + (* store in optimized binary representation - as unparsed with [Optimized]. *) + let bytes = Data_encoding.Binary.to_bytes_exn Signature.Public_key_hash.encoding manager_pkh in + Bytes (0, bytes) + +(* Process an individual contract *) +let process_contract contract ctxt = + let open Legacy_script_support_repr in + match Contract_repr.is_originated contract with + | None -> return ctxt (* Only process originated contracts *) + | Some _ -> begin + Storage.Contract.Spendable.mem ctxt contract >>= fun is_spendable -> + Storage.Contract.Delegatable.mem ctxt contract >>= fun is_delegatable -> + (* Try to get script code (ignore ctxt update to discard the initialization) *) + Storage.Contract.Code.get_option ctxt contract >>=? fun (_ctxt, code) -> + match code with + | Some code -> + (* + | spendable | delegatable | template | + |-----------+-------------+------------------| + | true | true | add_do | + | true | false | add_do | + | false | true | add_set_delegate | + | false | false | nothing | + *) + if is_spendable then + transform_script add_do ctxt contract code + else if is_delegatable then + transform_script add_set_delegate ctxt contract code + else + return ctxt + | None -> begin + (* Check that the contract is spendable *) + (* Get the manager of the originated contract *) + Contract_storage.get_manager ctxt contract >>=? fun manager_pkh -> + (* Initialize the script code for free *) + Storage.Contract.Code.init_free ctxt contract manager_script_code >>=? fun (ctxt, code_size) -> + let storage = manager_script_storage manager_pkh in + (* Initialize the script storage for free *) + Storage.Contract.Storage.init_free ctxt contract storage >>=? fun (ctxt, storage_size) -> + let total_size = Z.(add (of_int code_size) (of_int storage_size)) in + (* Free storage space for migrated contracts *) + Storage.Contract.Paid_storage_space.init_set ctxt contract total_size >>= fun ctxt -> + Storage.Contract.Used_storage_space.init_set ctxt contract total_size >>= fun ctxt -> + return ctxt + end + end + -(* This is the genesis protocol: initialise the state *) let prepare_first_block ctxt ~typecheck ~level ~timestamp ~fitness = Raw_context.prepare_first_block ~level ~timestamp ~fitness ctxt >>=? fun (previous_protocol, ctxt) -> @@ -83,7 +162,8 @@ let prepare_first_block ctxt ~typecheck ~level ~timestamp ~fitness = Storage.Contract.fold ctxt ~init:(Ok ctxt) ~f:(fun contract ctxt -> Lwt.return ctxt >>=? fun ctxt -> - migrate_delegated ctxt contract) + migrate_delegated ctxt contract >>=? fun ctxt -> + process_contract contract ctxt) >>=? fun ctxt -> return ctxt diff --git a/src/proto_alpha/lib_protocol/storage.ml b/src/proto_alpha/lib_protocol/storage.ml index effa7c90df84..f6657328da19 100644 --- a/src/proto_alpha/lib_protocol/storage.ml +++ b/src/proto_alpha/lib_protocol/storage.ml @@ -234,6 +234,14 @@ module Contract = struct let init_set ctxt contract value = consume_serialize_gas ctxt value >>=? fun ctxt -> I.init_set ctxt contract value + + (** Only for used for 005 migration to avoid gas cost. *) + let init_free ctxt contract value = + I.init_free ctxt contract value + + (** Only for used for 005 migration to avoid gas cost. *) + let set_free ctxt contract value = + I.set_free ctxt contract value end module Code = diff --git a/src/proto_alpha/lib_protocol/storage.mli b/src/proto_alpha/lib_protocol/storage.mli index 3f810bd9824a..47989c0dbaf6 100644 --- a/src/proto_alpha/lib_protocol/storage.mli +++ b/src/proto_alpha/lib_protocol/storage.mli @@ -190,15 +190,39 @@ module Contract : sig and type value = Z.t and type t := Raw_context.t - module Code : Non_iterable_indexed_carbonated_data_storage - with type key = Contract_repr.t - and type value = Script_repr.lazy_expr - and type t := Raw_context.t + module Code : sig + include Non_iterable_indexed_carbonated_data_storage + with type key = Contract_repr.t + and type value = Script_repr.lazy_expr + and type t := Raw_context.t + + (** Only used for 005 migration to avoid gas cost. + Allocates a storage bucket at the given key and initializes it ; + returns a {!Storage_error Existing_key} if the bucket exists. *) + val init_free: Raw_context.t -> Contract_repr.t -> Script_repr.lazy_expr -> (Raw_context.t * int) tzresult Lwt.t + + (** Only used for 005 migration to avoid gas cost. + Updates the content of a bucket ; returns A {!Storage_Error + Missing_key} if the value does not exists. *) + val set_free: Raw_context.t -> Contract_repr.t -> Script_repr.lazy_expr -> (Raw_context.t * int) tzresult Lwt.t + end - module Storage : Non_iterable_indexed_carbonated_data_storage - with type key = Contract_repr.t - and type value = Script_repr.lazy_expr - and type t := Raw_context.t + module Storage : sig + include Non_iterable_indexed_carbonated_data_storage + with type key = Contract_repr.t + and type value = Script_repr.lazy_expr + and type t := Raw_context.t + + (** Only used for 005 migration to avoid gas cost. + Allocates a storage bucket at the given key and initializes it ; + returns a {!Storage_error Existing_key} if the bucket exists. *) + val init_free: Raw_context.t -> Contract_repr.t -> Script_repr.lazy_expr -> (Raw_context.t * int) tzresult Lwt.t + + (** Only used for 005 migration to avoid gas cost. + Updates the content of a bucket ; returns A {!Storage_Error + Missing_key} if the value does not exists. *) + val set_free: Raw_context.t -> Contract_repr.t -> Script_repr.lazy_expr -> (Raw_context.t * int) tzresult Lwt.t + end (** Current storage space in bytes. Includes code, global storage and big map elements. *) diff --git a/src/proto_alpha/lib_protocol/storage_functors.ml b/src/proto_alpha/lib_protocol/storage_functors.ml index 2180ac96b9d8..0b73eef73468 100644 --- a/src/proto_alpha/lib_protocol/storage_functors.ml +++ b/src/proto_alpha/lib_protocol/storage_functors.ml @@ -803,11 +803,26 @@ module Make_indexed_subcontext (C : Raw_context.T) (I : INDEX) Raw_context.set c data_name bytes >>=? fun c -> let size_diff = MBytes.length bytes - prev_size in return (Raw_context.project c, size_diff) + let set_free s i v = + let c = pack s i in + let bytes = to_bytes v in + existing_size c >>=? fun prev_size -> + Raw_context.set c len_name (encode_len_value bytes) >>=? fun c -> + Raw_context.set c data_name bytes >>=? fun c -> + let size_diff = MBytes.length bytes - prev_size in + return (Raw_context.project c, size_diff) let init s i v = consume_write_gas Raw_context.init (pack s i) v >>=? fun (c, bytes) -> Raw_context.init c data_name bytes >>=? fun c -> let size = MBytes.length bytes in return (Raw_context.project c, size) + let init_free s i v = + let c = pack s i in + let bytes = to_bytes v in + let size = MBytes.length bytes in + Raw_context.init c len_name (encode_len_value bytes) >>=? fun c -> + Raw_context.init c data_name bytes >>=? fun c -> + return (Raw_context.project c, size) let init_set s i v = let init_set c k v = Raw_context.init_set c k v >>= return in existing_size (pack s i) >>=? fun prev_size -> diff --git a/src/proto_alpha/lib_protocol/storage_sigs.ml b/src/proto_alpha/lib_protocol/storage_sigs.ml index ccb708aa4fd3..4b4ffe31e6cb 100644 --- a/src/proto_alpha/lib_protocol/storage_sigs.ml +++ b/src/proto_alpha/lib_protocol/storage_sigs.ml @@ -358,6 +358,20 @@ module type VALUE = sig val encoding: t Data_encoding.t end +module type Non_iterable_indexed_carbonated_data_storage_with_free = sig + include Non_iterable_indexed_carbonated_data_storage + + (** Only used for 005 migration to avoid gas cost. + Allocates a storage bucket at the given key and initializes it ; + returns a {!Storage_error Existing_key} if the bucket exists. *) + val init_free: context -> key -> value -> (Raw_context.t * int) tzresult Lwt.t + + (** Only used for 005 migration to avoid gas cost. + Updates the content of a bucket ; returns A {!Storage_Error + Missing_key} if the value does not exists. *) + val set_free: context -> key -> value -> (Raw_context.t * int) tzresult Lwt.t +end + module type Indexed_raw_context = sig type t @@ -383,7 +397,7 @@ module type Indexed_raw_context = sig and type value = V.t module Make_carbonated_map (N : NAME) (V : VALUE) - : Non_iterable_indexed_carbonated_data_storage with type t = t + : Non_iterable_indexed_carbonated_data_storage_with_free with type t = t and type key = key and type value = V.t -- GitLab From f93c0669b4769317a8203fbaa5e0d959db21d803 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Rapha=C3=ABl=20Cauderlier?= Date: Mon, 17 Jun 2019 19:28:53 +0200 Subject: [PATCH 042/252] Proto/Michelson: Add CHAIN_ID and chain_id Add an abstract type and an instruction to obtain the chain id from Michelson code. This is to implement replay protection between the main chain and the test chain spawned in phase 3 of the voting procedure. --- .../lib_protocol/alpha_context.mli | 2 + src/proto_alpha/lib_protocol/apply.ml | 35 +++++++-------- .../lib_protocol/helpers_services.ml | 29 +++++++------ .../lib_protocol/helpers_services.mli | 6 +-- .../lib_protocol/michelson_v1_gas.ml | 4 ++ .../lib_protocol/michelson_v1_gas.mli | 3 ++ .../lib_protocol/michelson_v1_primitives.ml | 8 ++++ .../lib_protocol/michelson_v1_primitives.mli | 2 + .../lib_protocol/script_interpreter.ml | 23 +++++----- .../lib_protocol/script_interpreter.mli | 2 + .../lib_protocol/script_ir_translator.ml | 43 ++++++++++++++++++- .../lib_protocol/script_typed_ir.ml | 3 ++ 12 files changed, 116 insertions(+), 44 deletions(-) diff --git a/src/proto_alpha/lib_protocol/alpha_context.mli b/src/proto_alpha/lib_protocol/alpha_context.mli index 5639a1410fe7..e13c33111dfe 100644 --- a/src/proto_alpha/lib_protocol/alpha_context.mli +++ b/src/proto_alpha/lib_protocol/alpha_context.mli @@ -212,6 +212,7 @@ module Script : sig | I_BALANCE | I_CAR | I_CDR + | I_CHAIN_ID | I_CHECK_SIGNATURE | I_COMPARE | I_CONCAT @@ -302,6 +303,7 @@ module Script : sig | T_unit | T_operation | T_address + | T_chain_id type location = Micheline.canonical_location diff --git a/src/proto_alpha/lib_protocol/apply.ml b/src/proto_alpha/lib_protocol/apply.ml index c1dfc4bd8e3b..27a8ff0a8d86 100644 --- a/src/proto_alpha/lib_protocol/apply.ml +++ b/src/proto_alpha/lib_protocol/apply.ml @@ -406,9 +406,9 @@ open Apply_results let apply_manager_operation_content : type kind. ( Alpha_context.t -> Script_ir_translator.unparsing_mode -> payer:Contract.t -> source:Contract.t -> - internal:bool -> kind manager_operation -> + chain_id:Chain_id.t -> internal:bool -> kind manager_operation -> (context * kind successful_manager_operation_result * packed_internal_operation list) tzresult Lwt.t ) = - fun ctxt mode ~payer ~source ~internal operation -> + fun ctxt mode ~payer ~source ~chain_id ~internal operation -> let before_operation = (* This context is not used for backtracking. Only to compute gas consumption and originations for the operation result. *) @@ -478,7 +478,8 @@ let apply_manager_operation_content : Lwt.return (Gas.consume ctxt cost_parameter) >>=? fun ctxt -> Script_interpreter.execute ctxt mode - ~source ~payer ~self:(destination, script) ~amount ~parameter ~entrypoint + ~source ~payer ~chain_id ~self:(destination, script) + ~amount ~parameter ~entrypoint >>=? fun { ctxt ; storage ; big_map_diff ; operations } -> Contract.update_script_storage ctxt destination storage big_map_diff >>=? fun ctxt -> @@ -557,7 +558,7 @@ let apply_manager_operation_content : set_delegate ctxt source delegate >>=? fun ctxt -> return (ctxt, Delegation_result { consumed_gas = Gas.consumed ~since:before_operation ~until:ctxt }, []) -let apply_internal_manager_operations ctxt mode ~payer ops = +let apply_internal_manager_operations ctxt mode ~payer ~chain_id ops = let rec apply ctxt applied worklist = match worklist with | [] -> Lwt.return (`Success ctxt, List.rev applied) @@ -569,7 +570,7 @@ let apply_internal_manager_operations ctxt mode ~payer ops = else let ctxt = record_internal_nonce ctxt nonce in apply_manager_operation_content - ctxt mode ~source ~payer ~internal:true operation + ctxt mode ~source ~payer ~chain_id ~internal:true operation end >>= function | Error errors -> let result = @@ -631,7 +632,7 @@ let precheck_manager_contents return ctxt let apply_manager_contents - (type kind) ctxt mode (op : kind Kind.manager contents) + (type kind) ctxt mode chain_id (op : kind Kind.manager contents) : ([ `Success of context | `Failure ] * kind manager_operation_result * packed_internal_operation_result list) Lwt.t = @@ -640,10 +641,10 @@ let apply_manager_contents let ctxt = Gas.set_limit ctxt gas_limit in let ctxt = Fees.start_counting_storage_fees ctxt in apply_manager_operation_content ctxt mode - ~source ~payer:source ~internal:false operation >>= function + ~source ~payer:source ~internal:false ~chain_id operation >>= function | Ok (ctxt, operation_results, internal_operations) -> begin apply_internal_manager_operations - ctxt mode ~payer:source internal_operations >>= function + ctxt mode ~payer:source ~chain_id internal_operations >>= function | (`Success ctxt, internal_operations_results) -> begin Fees.burn_storage_fees ctxt ~storage_limit ~payer:source >>= function | Ok ctxt -> @@ -708,14 +709,14 @@ let rec precheck_manager_contents_list let rec apply_manager_contents_list_rec : type kind. Alpha_context.t -> Script_ir_translator.unparsing_mode -> - public_key_hash -> kind Kind.manager contents_list -> + public_key_hash -> Chain_id.t -> kind Kind.manager contents_list -> ([ `Success of context | `Failure ] * kind Kind.manager contents_result_list) Lwt.t = - fun ctxt mode baker contents_list -> + fun ctxt mode baker chain_id contents_list -> let level = Level.current ctxt in match contents_list with | Single (Manager_operation { source ; fee ; _ } as op) -> begin - apply_manager_contents ctxt mode op + apply_manager_contents ctxt mode chain_id op >>= fun (ctxt_result, operation_result, internal_operation_results) -> let result = Manager_operation_result { @@ -729,7 +730,7 @@ let rec apply_manager_contents_list_rec Lwt.return (ctxt_result, Single_result (result)) end | Cons (Manager_operation { source ; fee ; _ } as op, rest) -> - apply_manager_contents ctxt mode op >>= function + apply_manager_contents ctxt mode chain_id op >>= function | (`Failure, operation_result, internal_operation_results) -> let result = Manager_operation_result { @@ -751,7 +752,7 @@ let rec apply_manager_contents_list_rec operation_result ; internal_operation_results ; } in - apply_manager_contents_list_rec ctxt mode baker rest >>= fun (ctxt_result, results) -> + apply_manager_contents_list_rec ctxt mode baker chain_id rest >>= fun (ctxt_result, results) -> Lwt.return (ctxt_result, Cons_result (result, results)) let mark_backtracked results = @@ -785,8 +786,8 @@ let mark_backtracked results = | Applied result -> Backtracked (result, None) in mark_contents_list results -let apply_manager_contents_list ctxt mode baker contents_list = - apply_manager_contents_list_rec ctxt mode baker contents_list >>= fun (ctxt_result, results) -> +let apply_manager_contents_list ctxt mode baker chain_id contents_list = + apply_manager_contents_list_rec ctxt mode baker chain_id contents_list >>= fun (ctxt_result, results) -> match ctxt_result with | `Failure -> Lwt.return (ctxt (* backtracked *), mark_backtracked results) | `Success ctxt -> Lwt.return (ctxt, results) @@ -958,11 +959,11 @@ let apply_contents_list return (ctxt, Single_result Ballot_result) | Single (Manager_operation _) as op -> precheck_manager_contents_list ctxt chain_id operation op >>=? fun ctxt -> - apply_manager_contents_list ctxt mode baker op >>= fun (ctxt, result) -> + apply_manager_contents_list ctxt mode baker chain_id op >>= fun (ctxt, result) -> return (ctxt, result) | Cons (Manager_operation _, _) as op -> precheck_manager_contents_list ctxt chain_id operation op >>=? fun ctxt -> - apply_manager_contents_list ctxt mode baker op >>= fun (ctxt, result) -> + apply_manager_contents_list ctxt mode baker chain_id op >>= fun (ctxt, result) -> return (ctxt, result) let apply_operation ctxt chain_id mode pred_block baker hash operation = diff --git a/src/proto_alpha/lib_protocol/helpers_services.ml b/src/proto_alpha/lib_protocol/helpers_services.ml index 975d62f14d98..86a07db1ea95 100644 --- a/src/proto_alpha/lib_protocol/helpers_services.ml +++ b/src/proto_alpha/lib_protocol/helpers_services.ml @@ -59,11 +59,12 @@ module Scripts = struct let path = RPC_path.(path / "scripts") let run_code_input_encoding = - (obj8 + (obj9 (req "script" Script.expr_encoding) (req "storage" Script.expr_encoding) (req "input" Script.expr_encoding) (req "amount" Tez.encoding) + (req "chain_id" Chain_id.encoding) (opt "source" Contract.encoding) (opt "payer" Contract.encoding) (opt "gas" z) @@ -148,7 +149,9 @@ module Scripts = struct ~description: "Run an operation without signature checks" ~query: RPC_query.empty - ~input: Operation.encoding + ~input: (obj2 + (req "operation" Operation.encoding) + (req "chain_id" Chain_id.encoding)) ~output: Apply_results.operation_data_and_metadata_encoding RPC_path.(path / "run_operation") @@ -198,7 +201,7 @@ module Scripts = struct ~script: (script, None) >>=? fun ctxt -> return (ctxt, dummy_contract) in register0 S.run_code begin fun ctxt () - (code, storage, parameter, amount, source, payer, gas, entrypoint) -> + (code, storage, parameter, amount, chain_id, source, payer, gas, entrypoint) -> let storage = Script.lazy_expr storage in let code = Script.lazy_expr code in originate_dummy_contract ctxt { storage ; code } >>=? fun (ctxt, dummy_contract) -> @@ -215,6 +218,7 @@ module Scripts = struct ctxt Readable ~source ~payer + ~chain_id ~self:(dummy_contract, { storage ; code }) ~entrypoint ~amount ~parameter @@ -222,7 +226,7 @@ module Scripts = struct return (storage, operations, big_map_diff) end ; register0 S.trace_code begin fun ctxt () - (code, storage, parameter, amount, source, payer, gas, entrypoint) -> + (code, storage, parameter, amount, chain_id, source, payer, gas, entrypoint) -> let storage = Script.lazy_expr storage in let code = Script.lazy_expr code in originate_dummy_contract ctxt { storage ; code } >>=? fun (ctxt, dummy_contract) -> @@ -239,6 +243,7 @@ module Scripts = struct ctxt Readable ~source ~payer + ~chain_id ~self:(dummy_contract, { storage ; code }) ~entrypoint ~amount ~parameter @@ -270,7 +275,7 @@ module Scripts = struct return (bytes, Gas.level ctxt) end ; register0 S.run_operation begin fun ctxt () - { shell ; protocol_data = Operation_data protocol_data } -> + ({ shell ; protocol_data = Operation_data protocol_data }, chain_id) -> (* this code is a duplicate of Apply without signature check *) let partial_precheck_manager_contents (type kind) ctxt (op : kind Kind.manager contents) @@ -340,15 +345,15 @@ module Scripts = struct match protocol_data.contents with | Single (Manager_operation _) as op -> partial_precheck_manager_contents_list ctxt op >>=? fun ctxt -> - Apply.apply_manager_contents_list ctxt Optimized baker op >>= fun (_ctxt, result) -> + Apply.apply_manager_contents_list ctxt Optimized baker chain_id op >>= fun (_ctxt, result) -> return result | Cons (Manager_operation _, _) as op -> partial_precheck_manager_contents_list ctxt op >>=? fun ctxt -> - Apply.apply_manager_contents_list ctxt Optimized baker op >>= fun (_ctxt, result) -> + Apply.apply_manager_contents_list ctxt Optimized baker chain_id op >>= fun (_ctxt, result) -> return result | _ -> Apply.apply_contents_list - ctxt Chain_id.zero Optimized shell.branch baker operation + ctxt chain_id Optimized shell.branch baker operation operation.protocol_data.contents >>=? fun (_ctxt, result) -> return result end; @@ -388,13 +393,13 @@ module Scripts = struct map []) end - let run_code ctxt block code (storage, input, amount, source, payer, gas, entrypoint) = + let run_code ctxt block code (storage, input, amount, chain_id, source, payer, gas, entrypoint) = RPC_context.make_call0 S.run_code ctxt - block () (code, storage, input, amount, source, payer, gas, entrypoint) + block () (code, storage, input, amount, chain_id, source, payer, gas, entrypoint) - let trace_code ctxt block code (storage, input, amount, source, payer, gas, entrypoint) = + let trace_code ctxt block code (storage, input, amount, chain_id, source, payer, gas, entrypoint) = RPC_context.make_call0 S.trace_code ctxt - block () (code, storage, input, amount, source, payer, gas, entrypoint) + block () (code, storage, input, amount, chain_id, source, payer, gas, entrypoint) let typecheck_code ctxt block = RPC_context.make_call0 S.typecheck_code ctxt block () diff --git a/src/proto_alpha/lib_protocol/helpers_services.mli b/src/proto_alpha/lib_protocol/helpers_services.mli index e99aeb0aeb6e..85a3ca8c18f2 100644 --- a/src/proto_alpha/lib_protocol/helpers_services.mli +++ b/src/proto_alpha/lib_protocol/helpers_services.mli @@ -40,7 +40,7 @@ module Scripts : sig val run_code: 'a #RPC_context.simple -> 'a -> Script.expr -> - (Script.expr * Script.expr * Tez.t * Contract.t option * Contract.t option * Z.t option * string) -> + (Script.expr * Script.expr * Tez.t * Chain_id.t * Contract.t option * Contract.t option * Z.t option * string) -> (Script.expr * packed_internal_operation list * Contract.big_map_diff option) shell_tzresult Lwt.t @@ -48,7 +48,7 @@ module Scripts : sig val trace_code: 'a #RPC_context.simple -> 'a -> Script.expr -> - (Script.expr * Script.expr * Tez.t * Contract.t option * Contract.t option * Z.t option * string) -> + (Script.expr * Script.expr * Tez.t * Chain_id.t * Contract.t option * Contract.t option * Z.t option * string) -> (Script.expr * packed_internal_operation list * Script_interpreter.execution_trace * @@ -69,7 +69,7 @@ module Scripts : sig val run_operation: 'a #RPC_context.simple -> - 'a -> packed_operation -> + 'a -> packed_operation * Chain_id.t -> (packed_protocol_data * Apply_results.packed_operation_metadata) shell_tzresult Lwt.t val entrypoint_type: diff --git a/src/proto_alpha/lib_protocol/michelson_v1_gas.ml b/src/proto_alpha/lib_protocol/michelson_v1_gas.ml index a5a92ac5f8e0..a97fc96fbd7b 100644 --- a/src/proto_alpha/lib_protocol/michelson_v1_gas.ml +++ b/src/proto_alpha/lib_protocol/michelson_v1_gas.ml @@ -226,6 +226,7 @@ module Cost_of = struct let source = step_cost 1 let self = step_cost 1 let amount = step_cost 1 + let chain_id = step_cost 1 let compare_bool _ _ = step_cost 1 let compare_string s1 s2 = step_cost ((7 + Compare.Int.max (String.length s1) (String.length s2)) / 8) +@ step_cost 1 @@ -255,6 +256,7 @@ module Cost_of = struct let key = step_cost 3 +@ alloc_cost 3 let key_hash = step_cost 1 +@ alloc_cost 1 let signature = step_cost 1 +@ alloc_cost 1 + let chain_id = step_cost 1 +@ alloc_cost 1 let contract = step_cost 5 let get_script = step_cost 20 +@ alloc_cost 5 let contract_exists = step_cost 15 +@ alloc_cost 5 @@ -404,6 +406,7 @@ module Cost_of = struct | Dug (n,_) -> n *@ alloc_cost 1 | Dipn (n,_,_) -> n *@ alloc_cost 1 | Dropn (n,_) -> n *@ alloc_cost 1 + | ChainId -> alloc_cost 1 end module Unparse = struct @@ -423,6 +426,7 @@ module Cost_of = struct let tez = Script.int_node_cost_of_numbits 60 (* int64 bound *) let timestamp x = Script_timestamp.to_zint x |> Script_int.of_zint |> int let operation bytes = Script.bytes_node_cost bytes + let chain_id bytes = Script.bytes_node_cost bytes let key = string_cost 54 let key_hash = string_cost 36 let signature = string_cost 128 diff --git a/src/proto_alpha/lib_protocol/michelson_v1_gas.mli b/src/proto_alpha/lib_protocol/michelson_v1_gas.mli index def648d45297..253de3b175d4 100644 --- a/src/proto_alpha/lib_protocol/michelson_v1_gas.mli +++ b/src/proto_alpha/lib_protocol/michelson_v1_gas.mli @@ -101,6 +101,7 @@ module Cost_of : sig val source : Gas.cost val self : Gas.cost val amount : Gas.cost + val chain_id : Gas.cost val wrap : Gas.cost val compare_bool : 'a -> 'b -> Gas.cost val compare_string : string -> string -> Gas.cost @@ -127,6 +128,7 @@ module Cost_of : sig val key : Gas.cost val key_hash : Gas.cost val signature : Gas.cost + val chain_id : Gas.cost val contract : Gas.cost @@ -178,6 +180,7 @@ module Cost_of : sig val key_hash : Gas.cost val signature : Gas.cost val operation : MBytes.t -> Gas.cost + val chain_id : MBytes.t -> Gas.cost val contract : Gas.cost diff --git a/src/proto_alpha/lib_protocol/michelson_v1_primitives.ml b/src/proto_alpha/lib_protocol/michelson_v1_primitives.ml index 60d4bc27775e..18ae48a30893 100644 --- a/src/proto_alpha/lib_protocol/michelson_v1_primitives.ml +++ b/src/proto_alpha/lib_protocol/michelson_v1_primitives.ml @@ -54,6 +54,7 @@ type prim = | I_BALANCE | I_CAR | I_CDR + | I_CHAIN_ID | I_CHECK_SIGNATURE | I_COMPARE | I_CONCAT @@ -144,6 +145,7 @@ type prim = | T_unit | T_operation | T_address + | T_chain_id let valid_case name = let is_lower = function '_' | 'a'..'z' -> true | _ -> false in @@ -189,6 +191,7 @@ let string_of_prim = function | I_BALANCE -> "BALANCE" | I_CAR -> "CAR" | I_CDR -> "CDR" + | I_CHAIN_ID -> "CHAIN_ID" | I_CHECK_SIGNATURE -> "CHECK_SIGNATURE" | I_COMPARE -> "COMPARE" | I_CONCAT -> "CONCAT" @@ -279,6 +282,7 @@ let string_of_prim = function | T_unit -> "unit" | T_operation -> "operation" | T_address -> "address" + | T_chain_id -> "chain_id" let prim_of_string = function | "parameter" -> ok K_parameter @@ -305,6 +309,7 @@ let prim_of_string = function | "BALANCE" -> ok I_BALANCE | "CAR" -> ok I_CAR | "CDR" -> ok I_CDR + | "CHAIN_ID" -> ok I_CHAIN_ID | "CHECK_SIGNATURE" -> ok I_CHECK_SIGNATURE | "COMPARE" -> ok I_COMPARE | "CONCAT" -> ok I_CONCAT @@ -395,6 +400,7 @@ let prim_of_string = function | "unit" -> ok T_unit | "operation" -> ok T_operation | "address" -> ok T_address + | "chain_id" -> ok T_chain_id | n -> if valid_case n then error (Unknown_primitive_name n) @@ -570,6 +576,8 @@ let prim_encoding = (* Alpha_005 addition *) ("DIG", I_DIG) ; ("DUG", I_DUG) ; + ("chain_id", T_chain_id) ; + ("CHAIN_ID", I_CHAIN_ID) (* New instructions must be added here, for backward compatibility of the encoding. *) ] diff --git a/src/proto_alpha/lib_protocol/michelson_v1_primitives.mli b/src/proto_alpha/lib_protocol/michelson_v1_primitives.mli index 3cf2b872aa68..1ca1a35d57ea 100644 --- a/src/proto_alpha/lib_protocol/michelson_v1_primitives.mli +++ b/src/proto_alpha/lib_protocol/michelson_v1_primitives.mli @@ -52,6 +52,7 @@ type prim = | I_BALANCE | I_CAR | I_CDR + | I_CHAIN_ID | I_CHECK_SIGNATURE | I_COMPARE | I_CONCAT @@ -142,6 +143,7 @@ type prim = | T_unit | T_operation | T_address + | T_chain_id val prim_encoding : prim Data_encoding.encoding diff --git a/src/proto_alpha/lib_protocol/script_interpreter.ml b/src/proto_alpha/lib_protocol/script_interpreter.ml index 0c12dc5ded4a..4a0658a70a9b 100644 --- a/src/proto_alpha/lib_protocol/script_interpreter.ml +++ b/src/proto_alpha/lib_protocol/script_interpreter.ml @@ -184,9 +184,9 @@ let rec interp (?log: execution_trace ref -> context -> source: Contract.t -> payer:Contract.t -> self: Contract.t -> Tez.t -> - (p, r) lambda -> p -> + chain_id: Chain_id.t -> (p, r) lambda -> p -> (r * context) tzresult Lwt.t) - = fun ?log ctxt ~source ~payer ~self amount (Lam (code, _)) arg -> + = fun ?log ctxt ~source ~payer ~self amount ~chain_id (Lam (code, _)) arg -> let rec step : type b a. context -> (b, a) descr -> b stack -> @@ -658,7 +658,7 @@ let rec interp logged_return (Item (ign, res), ctxt) | Exec, Item (arg, Item (lam, rest)) -> Lwt.return (Gas.consume ctxt Interp_costs.exec) >>=? fun ctxt -> - interp ?log ctxt ~source ~payer ~self amount lam arg >>=? fun (res, ctxt) -> + interp ?log ctxt ~source ~payer ~chain_id ~self amount lam arg >>=? fun (res, ctxt) -> logged_return (Item (res, rest), ctxt) | Lambda lam, rest -> Lwt.return (Gas.consume ctxt Interp_costs.push) >>=? fun ctxt -> @@ -885,7 +885,10 @@ let rec interp | Dropn (n, n'), stack -> Lwt.return (Gas.consume ctxt (Interp_costs.stack_n_op n)) >>=? fun ctxt -> interp_stack_prefix_preserving_operation (fun stk -> return (stk, stk)) n' stack - >>=? fun (_, rest) -> logged_return (rest, ctxt) in + >>=? fun (_, rest) -> logged_return (rest, ctxt) + | ChainId, rest -> + Lwt.return (Gas.consume ctxt Interp_costs.chain_id) >>=? fun ctxt -> + logged_return (Item (chain_id, rest), ctxt) in let stack = (Item (arg, Empty)) in begin match log with | None -> return_unit @@ -900,7 +903,7 @@ let rec interp (* ---- contract handling ---------------------------------------------------*) -and execute ?log ctxt mode ~source ~payer ~self ~entrypoint script amount arg : +and execute ?log ctxt mode ~source ~payer ~self ~chain_id ~entrypoint script amount arg : (Script.expr * packed_internal_operation list * context * Script_typed_ir.ex_big_map option) tzresult Lwt.t = parse_script ctxt script ~legacy:true @@ -914,7 +917,7 @@ and execute ?log ctxt mode ~source ~payer ~self ~entrypoint script amount arg : Script.force_decode ctxt script.code >>=? fun (script_code, ctxt) -> trace (Runtime_contract_error (self, script_code)) - (interp ?log ctxt ~source ~payer ~self amount code (arg, storage)) + (interp ?log ctxt ~source ~payer ~self amount ~chain_id code (arg, storage)) >>=? fun ((ops, sto), ctxt) -> trace Cannot_serialize_storage (unparse_data ctxt mode storage_type sto) >>=? fun (storage, ctxt) -> @@ -927,9 +930,9 @@ type execution_result = big_map_diff : Contract.big_map_diff option ; operations : packed_internal_operation list } -let trace ctxt mode ~source ~payer ~self:(self, script) ~entrypoint ~parameter ~amount = +let trace ctxt mode ~source ~payer ~chain_id ~self:(self, script) ~entrypoint ~parameter ~amount = let log = ref [] in - execute ~log ctxt mode ~source ~payer ~self ~entrypoint script amount (Micheline.root parameter) + execute ~log ctxt mode ~source ~payer ~chain_id ~self ~entrypoint script amount (Micheline.root parameter) >>=? fun (storage, operations, ctxt, big_map) -> begin match big_map with | None -> return (None, ctxt) @@ -940,8 +943,8 @@ let trace ctxt mode ~source ~payer ~self:(self, script) ~entrypoint ~parameter ~ let trace = List.rev !log in return ({ ctxt ; storage ; big_map_diff ; operations }, trace) -let execute ctxt mode ~source ~payer ~self:(self, script) ~entrypoint ~parameter ~amount = - execute ctxt mode ~source ~payer ~self ~entrypoint script amount (Micheline.root parameter) +let execute ctxt mode ~source ~payer ~chain_id ~self:(self, script) ~entrypoint ~parameter ~amount = + execute ctxt mode ~source ~payer ~chain_id ~self ~entrypoint script amount (Micheline.root parameter) >>=? fun (storage, operations, ctxt, big_map) -> begin match big_map with | None -> return (None, ctxt) diff --git a/src/proto_alpha/lib_protocol/script_interpreter.mli b/src/proto_alpha/lib_protocol/script_interpreter.mli index 4ca1fd998c4f..dbf562a80fbf 100644 --- a/src/proto_alpha/lib_protocol/script_interpreter.mli +++ b/src/proto_alpha/lib_protocol/script_interpreter.mli @@ -47,6 +47,7 @@ val execute: Script_ir_translator.unparsing_mode -> source: Contract.t -> payer: Contract.t -> + chain_id: Chain_id.t -> self: (Contract.t * Script.t) -> entrypoint: string -> parameter: Script.expr -> @@ -58,6 +59,7 @@ val trace: Script_ir_translator.unparsing_mode -> source: Contract.t -> payer: Contract.t -> + chain_id: Chain_id.t -> self: (Contract.t * Script.t) -> entrypoint: string -> parameter: Script.expr -> diff --git a/src/proto_alpha/lib_protocol/script_ir_translator.ml b/src/proto_alpha/lib_protocol/script_ir_translator.ml index a43f2f964324..305634327b4d 100644 --- a/src/proto_alpha/lib_protocol/script_ir_translator.ml +++ b/src/proto_alpha/lib_protocol/script_ir_translator.ml @@ -102,6 +102,7 @@ let rec type_size : type t. t ty -> int = 1 + comparable_type_size k + type_size v | Contract_t (arg, _) -> 1 + type_size arg + | Chain_id_t _ -> 1 let rec type_size_of_stack_head : type st. st stack_ty -> up_to:int -> int @@ -244,6 +245,7 @@ let number_of_generated_growing_types : type b a. (b, a) instr -> int = function | Dug _ -> 0 | Dipn _ -> 0 | Dropn _ -> 0 + | ChainId -> 0 (* ---- Error helpers -------------------------------------------------------*) @@ -286,6 +288,7 @@ let namespace = function | I_BALANCE | I_CAR | I_CDR + | I_CHAIN_ID | I_CHECK_SIGNATURE | I_COMPARE | I_CONCAT @@ -375,7 +378,8 @@ let namespace = function | T_timestamp | T_unit | T_operation - | T_address -> Type_namespace + | T_address + | T_chain_id -> Type_namespace let unexpected expr exp_kinds exp_ns exp_prims = @@ -612,6 +616,7 @@ let rec unparse_ty_no_lwt | Address_t tname -> return ctxt (T_address, [], unparse_type_annot tname) | Signature_t tname -> return ctxt (T_signature, [], unparse_type_annot tname) | Operation_t tname -> return ctxt (T_operation, [], unparse_type_annot tname) + | Chain_id_t tname -> return ctxt (T_chain_id, [], unparse_type_annot tname) | Contract_t (ut, tname) -> unparse_ty_no_lwt ctxt ut >>? fun (t, ctxt) -> return ctxt (T_contract, [ t ], unparse_type_annot tname) @@ -695,6 +700,7 @@ let name_of_ty | Address_t tname -> tname | Signature_t tname -> tname | Operation_t tname -> tname + | Chain_id_t tname -> tname | Contract_t (_, tname) -> tname | Pair_t (_, _, tname) -> tname | Union_t (_, _, tname) -> tname @@ -760,6 +766,7 @@ let rec ty_eq | Signature_t _, Signature_t _ -> ok Eq ctxt 0 | Mutez_t _, Mutez_t _ -> ok Eq ctxt 0 | Timestamp_t _, Timestamp_t _ -> ok Eq ctxt 0 + | Chain_id_t _, Chain_id_t _ -> ok Eq ctxt 0 | Address_t _, Address_t _ -> ok Eq ctxt 0 | Bool_t _, Bool_t _ -> ok Eq ctxt 0 | Operation_t _, Operation_t _ -> ok Eq ctxt 0 @@ -897,6 +904,9 @@ let merge_types : | Bool_t tn1, Bool_t tn2 -> merge_type_annot ~legacy tn1 tn2 >|? fun tname -> Bool_t tname, ctxt + | Chain_id_t tn1, Chain_id_t tn2 -> + merge_type_annot ~legacy tn1 tn2 >|? fun tname -> + Chain_id_t tname, ctxt | Operation_t tn1, Operation_t tn2 -> merge_type_annot ~legacy tn1 tn2 >|? fun tname -> Operation_t tname, ctxt @@ -1144,6 +1154,10 @@ and parse_ty : Ex_ty (Operation_t ty_name), ctxt else error (Unexpected_operation loc) + | Prim (loc, T_chain_id, [], annot) -> + parse_type_annot loc annot >>? fun ty_name -> + Gas.consume ctxt (Typecheck_costs.type_ 0) >|? fun ctxt -> + Ex_ty (Chain_id_t ty_name), ctxt | Prim (loc, T_contract, [ utl ], annot) -> if allow_contract then parse_ty ctxt ~legacy ~allow_big_map:false ~allow_operation:false ~allow_contract:true utl >>? fun (Ex_ty tl, ctxt) -> @@ -1227,7 +1241,7 @@ and parse_ty : T_unit ; T_signature ; T_contract ; T_int ; T_nat ; T_operation ; T_string ; T_bytes ; T_mutez ; T_bool ; - T_key ; T_key_hash ; T_timestamp ] + T_key ; T_key_hash ; T_timestamp ; T_chain_id ] and parse_big_map_ty ctxt ~legacy big_map_loc args map_annot = Gas.consume ctxt Typecheck_costs.cycle >>? fun ctxt -> @@ -1279,6 +1293,7 @@ let check_packable ~legacy loc root = | Timestamp_t _ -> ok () | Address_t _ -> ok () | Bool_t _ -> ok () + | Chain_id_t _ -> ok () | Pair_t ((l_ty, _, _), (r_ty, _, _), _) -> check l_ty >>? fun () -> check r_ty | Union_t ((l_ty, _), (r_ty, _), _) -> @@ -1586,6 +1601,21 @@ let rec parse_data (* operations cannot appear in parameters or storage, the protocol should never parse the bytes of an operation *) assert false + (* Chain_ids *) + | Chain_id_t _, Bytes (_, bytes) -> + Lwt.return (Gas.consume ctxt Typecheck_costs.chain_id) >>=? fun ctxt -> + begin match Data_encoding.Binary.of_bytes Chain_id.encoding bytes with + | Some k -> return (k, ctxt) + | None -> error () >>=? fail + end + | Chain_id_t _, String (_, s) -> + Lwt.return (Gas.consume ctxt Typecheck_costs.chain_id) >>=? fun ctxt -> + begin match Chain_id.of_b58check_opt s with + | Some s -> return (s, ctxt) + | None -> error () >>=? fail + end + | Chain_id_t _, expr -> + traced (fail (Invalid_kind (location expr, [ String_kind ; Bytes_kind ], kind expr))) (* Addresses *) | Address_t _, Bytes (loc, bytes) (* As unparsed with [O[ptimized]. *) -> Lwt.return (Gas.consume ctxt Typecheck_costs.contract) >>=? fun ctxt -> @@ -2957,6 +2987,11 @@ and parse_instr parse_var_annot loc annot ~default:default_amount_annot >>=? fun annot -> typed ctxt loc Amount (Item_t (Mutez_t None, stack, annot)) + | Prim (loc, I_CHAIN_ID, [], annot), + stack -> + parse_var_annot loc annot >>=? fun annot -> + typed ctxt loc ChainId + (Item_t (Chain_id_t None, stack, annot)) | Prim (loc, I_BALANCE, [], annot), stack -> parse_var_annot loc annot ~default:default_balance_annot >>=? fun annot -> @@ -3513,6 +3548,10 @@ let rec unparse_data let bytes = Data_encoding.Binary.to_bytes_exn Operation.internal_operation_encoding op in Lwt.return (Gas.consume ctxt (Unparse_costs.operation bytes)) >>=? fun ctxt -> return (Bytes (-1, bytes), ctxt) + | Chain_id_t _, chain_id -> + let bytes = Data_encoding.Binary.to_bytes_exn Chain_id.encoding chain_id in + Lwt.return (Gas.consume ctxt (Unparse_costs.chain_id bytes)) >>=? fun ctxt -> + return (Bytes (-1, bytes), ctxt) | Pair_t ((tl, _, _), (tr, _, _), _), (l, r) -> Lwt.return (Gas.consume ctxt Unparse_costs.pair) >>=? fun ctxt -> unparse_data ctxt mode tl l >>=? fun (l, ctxt) -> diff --git a/src/proto_alpha/lib_protocol/script_typed_ir.ml b/src/proto_alpha/lib_protocol/script_typed_ir.ml index 274e28362c4e..0e2f87e58fb4 100644 --- a/src/proto_alpha/lib_protocol/script_typed_ir.ml +++ b/src/proto_alpha/lib_protocol/script_typed_ir.ml @@ -111,6 +111,7 @@ and 'ty ty = | Big_map_t : 'k comparable_ty * 'v ty * type_annot option -> ('k, 'v) big_map ty | Contract_t : 'arg ty * type_annot option -> 'arg typed_contract ty | Operation_t : type_annot option -> packed_internal_operation ty + | Chain_id_t : type_annot option -> Chain_id.t ty and 'ty stack_ty = | Item_t : 'ty ty * 'rest stack_ty * var_annot option -> ('ty * 'rest) stack_ty @@ -399,6 +400,8 @@ and ('bef, 'aft) instr = ('bef, 'aft) instr | Dropn : int * ('rest, 'rest, 'bef, _) stack_prefix_preservation_witness -> ('bef, 'rest) instr + | ChainId : + ('rest, Chain_id.t * 'rest) instr (* Type witness for operations that work deep in the stack ignoring (and preserving) a prefix. -- GitLab From c1e4b13bed559f3dac90496d50a1b9c7f9e5a4f6 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Rapha=C3=ABl=20Cauderlier?= Date: Thu, 11 Jul 2019 15:22:41 +0200 Subject: [PATCH 043/252] Proto/Migration: update deployed multisigs to the newest supported version Contains a BREAKING CHANGE (see end of message). This does not change the behaviour of the multisig. It adds a call to the newly introduced `CHAIN_ID` instruction in order to add extra replay protection between the main chain and the test chain. Smart contract users that do not use the `tezos-client` but a custom tool to interact with multi-signature contracts deployed with the `tezos-client` should also include the `CHAIN_ID` in the commands they sign. --- src/proto_alpha/lib_protocol/init_storage.ml | 78 +++++++++++++++++++- 1 file changed, 76 insertions(+), 2 deletions(-) diff --git a/src/proto_alpha/lib_protocol/init_storage.ml b/src/proto_alpha/lib_protocol/init_storage.ml index c22bb60f5782..61fe044994f5 100644 --- a/src/proto_alpha/lib_protocol/init_storage.ml +++ b/src/proto_alpha/lib_protocol/init_storage.ml @@ -2,6 +2,7 @@ (* *) (* Open Source License *) (* Copyright (c) 2018 Dynamic Ledger Solutions, Inc. *) +(* Copyright (c) 2019 Nomadic Labs *) (* *) (* Permission is hereby granted, free of charge, to any person obtaining a *) (* copy of this software and associated documentation files (the "Software"),*) @@ -90,7 +91,7 @@ let manager_script_storage: Signature.Public_key_hash.t -> Script_repr.lazy_expr Bytes (0, bytes) (* Process an individual contract *) -let process_contract contract ctxt = +let process_contract_add_manager contract ctxt = let open Legacy_script_support_repr in match Contract_repr.is_originated contract with | None -> return ctxt (* Only process originated contracts *) @@ -116,7 +117,6 @@ let process_contract contract ctxt = else return ctxt | None -> begin - (* Check that the contract is spendable *) (* Get the manager of the originated contract *) Contract_storage.get_manager ctxt contract >>=? fun manager_pkh -> (* Initialize the script code for free *) @@ -132,6 +132,80 @@ let process_contract contract ctxt = end end +(* The [[update_contract_script]] function returns a copy of its + argument (the Micheline AST of a contract script) with "ADDRESS" + replaced by "ADDRESS; CHAIN_ID; PAIR". + + [[Micheline.strip_locations]] should be called on the resulting + Micheline AST to get meaningful locations. *) + +let rec update_contract_script : ('l, 'p) Micheline.node -> ('l, 'p) Micheline.node + = function + | Micheline.Seq (_, + Micheline.Prim (_, Michelson_v1_primitives.I_ADDRESS, [], []) :: + l) -> + Micheline.Seq (0, + Micheline.Prim (0, Michelson_v1_primitives.I_ADDRESS, [], []) :: + Micheline.Prim (0, Michelson_v1_primitives.I_CHAIN_ID, [], []) :: + Micheline.Prim (0, Michelson_v1_primitives.I_PAIR, [], []) :: l) + | Micheline.Seq (_, a :: l) -> + let a' = update_contract_script a in + let b = Micheline.Seq (0, l) in + let b' = update_contract_script b in + begin match b' with + | Micheline.Seq (_, l') -> + Micheline.Seq (0, a' :: l') + | _ -> assert false + end + | Micheline.Prim (_, p, l, annot) -> + Micheline.Prim (0, p, List.map update_contract_script l, annot) + | script -> script + +let migrate_multisig_script (ctxt : Raw_context.t) (contract : Contract_repr.t) + (code : Script_repr.expr) : Raw_context.t tzresult Lwt.t = + let migrated_code = + Script_repr.lazy_expr @@ Micheline.strip_locations @@ + update_contract_script @@ Micheline.root code + in + Storage.Contract.Code.set_free ctxt contract migrated_code >>=? fun (ctxt, _code_size_diff) -> + (* Set the spendable and delegatable flags to false so that no entrypoint gets added by + the [[process_contract_add_manager]] function. *) + Storage.Contract.Spendable.set ctxt contract false >>= fun ctxt -> + Storage.Contract.Delegatable.set ctxt contract false >>= fun ctxt -> + return ctxt + +(* The hash of the multisig contract; only contracts with this exact + hash are going to be updated by the [[update_contract_script]] + function. *) +let multisig_hash : Script_expr_hash.t = + Script_expr_hash.of_bytes_exn @@ + MBytes.of_hex @@ + `Hex "475e37a6386d0b85890eb446db1faad67f85fc814724ad07473cac8c0a124b31" + +let process_contract_multisig (contract : Contract_repr.t) (ctxt : Raw_context.t) = + Contract_storage.get_script ctxt contract >>=? fun (ctxt, script_opt) -> + match script_opt with + | None -> + (* Do nothing on scriptless contracts *) + return ctxt + | Some { Script_repr.code = code ; Script_repr.storage = _storage } -> + (* The contract has some script, only try to modify it if it has + the hash of the multisig contract *) + Lwt.return (Script_repr.force_decode code) >>=? fun (code, _gas_cost) -> + let bytes = + Data_encoding.Binary.to_bytes_exn Script_repr.expr_encoding code + in + let hash = Script_expr_hash.hash_bytes [ bytes ] in + if Script_expr_hash.(hash = multisig_hash) then + migrate_multisig_script ctxt contract code + else + return ctxt + +(* Process an individual contract *) +let process_contract contract ctxt = + process_contract_multisig contract ctxt >>=? fun ctxt -> + process_contract_add_manager contract ctxt >>=? fun ctxt -> + return ctxt let prepare_first_block ctxt ~typecheck ~level ~timestamp ~fitness = Raw_context.prepare_first_block -- GitLab From 61bd15e121c29d061058570d91eee67700d50d93 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Rapha=C3=ABl=20Cauderlier?= Date: Mon, 17 Jun 2019 19:28:53 +0200 Subject: [PATCH 044/252] Client: add a chain_id parameter to RPCs and update the multisig support This is not a patch for the protocol. It does not affect the hash, but is needed for the client to work. --- .../lib_client/client_proto_multisig.ml | 175 +++++++++++++++--- .../lib_client/client_proto_multisig.mli | 2 + .../lib_client/client_proto_programs.ml | 22 ++- src/proto_alpha/lib_client/injection.ml | 4 +- .../client_proto_multisig_commands.ml | 19 +- 5 files changed, 188 insertions(+), 34 deletions(-) diff --git a/src/proto_alpha/lib_client/client_proto_multisig.ml b/src/proto_alpha/lib_client/client_proto_multisig.ml index 96b362eef57a..f6d173104b00 100644 --- a/src/proto_alpha/lib_client/client_proto_multisig.ml +++ b/src/proto_alpha/lib_client/client_proto_multisig.ml @@ -29,7 +29,8 @@ open Alpha_context type error += Contract_has_no_script of Contract.t -type error += Not_a_supported_multisig_contract of Script.expr +type error += + | Not_a_supported_multisig_contract of (Script_expr_hash.t * Script.expr) type error += Contract_has_no_storage of Contract.t @@ -72,15 +73,23 @@ let () = ~description: "A multisig command has referenced a smart contract whose script is not \ one of the known multisig contract scripts." - ~pp:(fun ppf script -> + ~pp:(fun ppf (hash, script) -> Format.fprintf ppf - "Not a supported multisig contract %a." + "Not a supported multisig contract %a.@\n\ + The hash of this script is 0x%a, it was not found among in the list \ + of known multisig script hashes." Michelson_v1_printer.print_expr - script) - Data_encoding.(obj1 (req "script" Script.expr_encoding)) - (function Not_a_supported_multisig_contract c -> Some c | _ -> None) - (fun c -> Not_a_supported_multisig_contract c) ; + script + Hex.pp + (Hex.of_bytes (Script_expr_hash.to_bytes hash))) + Data_encoding.( + obj2 + (req "hash" Script_expr_hash.encoding) + (req "script" Script.expr_encoding)) + (function + | Not_a_supported_multisig_contract (h, c) -> Some (h, c) | _ -> None) + (fun (h, c) -> Not_a_supported_multisig_contract (h, c)) ; register_error_kind `Permanent ~id:"contractHasNoStorage" @@ -244,6 +253,7 @@ let () = (* The multisig contract script written by Arthur Breitman https://github.com/murbard/smart-contracts/blob/master/multisig/michelson/multisig.tz *) +(* Updated to take the chain id into account *) let multisig_script_string = "parameter (pair\n\ \ (pair :payload\n\ @@ -272,7 +282,7 @@ let multisig_script_string = \ # pair the payload with the current contract address, to ensure \ signatures\n\ \ # can't be replayed accross different contracts if a key is reused.\n\ - \ DUP ; SELF ; ADDRESS ; PAIR ;\n\ + \ DUP ; SELF ; ADDRESS ; CHAIN_ID ; PAIR ; PAIR ;\n\ \ PACK ; # form the binary payload that we expect to be signed\n\ \ DIP { UNPAIR @counter ; DIP { SWAP } } ; SWAP\n\ \ } ;\n\n\ @@ -347,23 +357,80 @@ let multisig_script_hash = let hash = Script_expr_hash.hash_bytes [bytes] in ok hash -let known_multisig_hashes = multisig_script_hash >>? fun hash -> ok [hash] +(* The previous multisig script is the only one that the client can + originate but the client knows how to interact with several + versions of the multisig contract. For each version, the description + indicates which features are available and how to interact with + the contract. *) + +type multisig_contract_description = { + hash : Script_expr_hash.t; + (* The hash of the contract script *) + requires_chain_id : bool; + (* The signatures should contain the chain identifier *) + generic : bool; + (* False means that the contract uses a custom action type, true + means that the contract expects the action as a (lambda unit + (list operation)). *) +} -let check_multisig_script script : unit tzresult Lwt.t = +let script_hash_of_hex_string s = + Script_expr_hash.of_bytes_exn @@ MBytes.of_hex @@ `Hex s + +(* List of known multisig contracts hashes with their kinds *) +let known_multisig_contracts : multisig_contract_description list tzresult = + multisig_script_hash + >>? fun hash -> + ok + [ {hash; requires_chain_id = true; generic = false}; + { + hash = + script_hash_of_hex_string + "36cf0b376c2d0e21f0ed42b2974fedaafdcafb9b7f8eb9254ef811b37cb46d94"; + requires_chain_id = true; + generic = false; + }; + { + hash = + script_hash_of_hex_string + "475e37a6386d0b85890eb446db1faad67f85fc814724ad07473cac8c0a124b31"; + requires_chain_id = false; + generic = false; + } ] + +let known_multisig_hashes = + known_multisig_contracts + >>? fun l -> ok (List.map (fun descr -> descr.hash) l) + +let check_multisig_script script : multisig_contract_description tzresult Lwt.t + = let bytes = Data_encoding.force_bytes script in let hash = Script_expr_hash.hash_bytes [bytes] in - Lwt.return known_multisig_hashes + Lwt.return known_multisig_contracts >>=? fun l -> - fold_left_s (fun b h -> return (b || Script_expr_hash.(h = hash))) false l - >>=? fun hash_found -> - fail_unless - hash_found - (Not_a_supported_multisig_contract - ( match Data_encoding.force_decode script with - | Some s -> - s - | None -> - assert false )) + fold_left_s + (fun descr_opt d -> + return + @@ + match descr_opt with + | Some descr -> + Some descr + | None -> + if Script_expr_hash.(d.hash = hash) then Some d else None) + None + l + >>=? function + | None -> + fail + (Not_a_supported_multisig_contract + ( hash, + match Data_encoding.force_decode script with + | Some s -> + s + | None -> + assert false )) + | Some d -> + return d (* Returns [Ok ()] if [~contract] is an originated contract whose code is [multisig_script] *) @@ -608,14 +675,23 @@ let mutlisig_param_string ~counter ~action ~optional_signatures () = >>=? fun expr -> return @@ Format.asprintf "%a" Michelson_v1_printer.print_expr expr -let multisig_bytes ~counter ~action ~contract () = +let get_contract_address_maybe_chain_id ~descr ~loc ~chain_id contract = + let address = + bytes ~loc (Data_encoding.Binary.to_bytes_exn Contract.encoding contract) + in + if descr.requires_chain_id then + let chain_id_bytes = + bytes ~loc (Data_encoding.Binary.to_bytes_exn Chain_id.encoding chain_id) + in + pair ~loc chain_id_bytes address + else address + +let multisig_bytes ~counter ~action ~contract ~chain_id ~descr () = let loc = Tezos_micheline.Micheline_parser.location_zero in let triple = pair ~loc - (bytes - ~loc - (Data_encoding.Binary.to_bytes_exn Contract.encoding contract)) + (get_contract_address_maybe_chain_id ~descr ~loc ~chain_id contract) (pair ~loc (int ~loc counter) (action_to_expr ~loc action)) in let bytes = @@ -684,12 +760,14 @@ let prepare_multisig_transaction (cctxt : #Protocol_client_context.full) ~chain ~block ~multisig_contract ~action () = let contract = multisig_contract in check_multisig_contract cctxt ~chain ~block contract - >>=? fun () -> + >>=? fun descr -> check_action ~action () >>=? fun () -> multisig_get_information cctxt ~chain ~block contract >>=? fun {counter; threshold; keys} -> - multisig_bytes ~counter ~action ~contract () + Chain_services.chain_id cctxt ~chain () + >>=? fun chain_id -> + multisig_bytes ~counter ~action ~contract ~descr ~chain_id () >>=? fun bytes -> return {bytes; threshold; keys; counter} let check_multisig_signatures ~bytes ~threshold ~keys signatures = @@ -760,7 +838,7 @@ let call_multisig (cctxt : #Protocol_client_context.full) ~chain ~block ~fee_parameter () -let action_of_bytes ~multisig_contract ~stored_counter bytes = +let action_of_bytes ~multisig_contract ~stored_counter ~descr ~chain_id bytes = if Compare.Int.(Bytes.length bytes >= 1) && Compare.Int.(TzEndian.get_uint8 bytes 0 = 0x05) @@ -780,7 +858,8 @@ let action_of_bytes ~multisig_contract ~stored_counter bytes = Script.D_Pair, [Tezos_micheline.Micheline.Int (_, counter); e], [] ) ], - [] ) -> + [] ) + when not descr.requires_chain_id -> let contract = Data_encoding.Binary.of_bytes_exn Contract.encoding contract_bytes in @@ -788,6 +867,33 @@ let action_of_bytes ~multisig_contract ~stored_counter bytes = if multisig_contract = contract then action_of_expr e else fail (Bad_deserialized_contract (contract, multisig_contract)) else fail (Bad_deserialized_counter (counter, stored_counter)) + | Tezos_micheline.Micheline.Prim + ( _, + Script.D_Pair, + [ Tezos_micheline.Micheline.Prim + ( _, + Script.D_Pair, + [ Tezos_micheline.Micheline.Bytes (_, chain_id_bytes); + Tezos_micheline.Micheline.Bytes (_, contract_bytes) ], + [] ); + Tezos_micheline.Micheline.Prim + ( _, + Script.D_Pair, + [Tezos_micheline.Micheline.Int (_, counter); e], + [] ) ], + [] ) + when descr.requires_chain_id -> + let contract = + Data_encoding.Binary.of_bytes_exn Contract.encoding contract_bytes + in + let cid = + Data_encoding.Binary.of_bytes_exn Chain_id.encoding chain_id_bytes + in + if counter = stored_counter then + if multisig_contract = contract && chain_id = cid then + action_of_expr e + else fail (Bad_deserialized_contract (contract, multisig_contract)) + else fail (Bad_deserialized_counter (counter, stored_counter)) | _ -> fail (Bytes_deserialisation_error bytes) ) else fail (Bytes_deserialisation_error bytes) @@ -798,7 +904,16 @@ let call_multisig_on_bytes (cctxt : #Protocol_client_context.full) ~chain ?storage_limit ?counter ~fee_parameter () = multisig_get_information cctxt ~chain ~block multisig_contract >>=? fun info -> - action_of_bytes ~multisig_contract ~stored_counter:info.counter bytes + check_multisig_contract cctxt ~chain ~block multisig_contract + >>=? fun descr -> + Chain_services.chain_id cctxt ~chain () + >>=? fun chain_id -> + action_of_bytes + ~multisig_contract + ~stored_counter:info.counter + ~chain_id + ~descr + bytes >>=? fun action -> call_multisig cctxt diff --git a/src/proto_alpha/lib_client/client_proto_multisig.mli b/src/proto_alpha/lib_client/client_proto_multisig.mli index fcd496e04546..5b435ae6dc3a 100644 --- a/src/proto_alpha/lib_client/client_proto_multisig.mli +++ b/src/proto_alpha/lib_client/client_proto_multisig.mli @@ -39,6 +39,8 @@ type multisig_prepared_action = { counter : Z.t; } +val known_multisig_hashes : Script_expr_hash.t list tzresult + val originate_multisig : full -> chain:Shell_services.chain -> diff --git a/src/proto_alpha/lib_client/client_proto_programs.ml b/src/proto_alpha/lib_client/client_proto_programs.ml index 70a386f2b519..21736f532a4e 100644 --- a/src/proto_alpha/lib_client/client_proto_programs.ml +++ b/src/proto_alpha/lib_client/client_proto_programs.ml @@ -122,11 +122,20 @@ let run (cctxt : #Protocol_client_context.rpc_context) ~(storage : Michelson_v1_parser.parsed) ~(input : Michelson_v1_parser.parsed) ?source ?payer ?gas ?(entrypoint = "default") () = + Chain_services.chain_id cctxt ~chain () + >>=? fun chain_id -> Alpha_services.Helpers.Scripts.run_code cctxt (chain, block) program.expanded - (storage.expanded, input.expanded, amount, source, payer, gas, entrypoint) + ( storage.expanded, + input.expanded, + amount, + chain_id, + source, + payer, + gas, + entrypoint ) let trace (cctxt : #Protocol_client_context.rpc_context) ~(chain : Chain_services.chain) ~block ?(amount = Tez.fifty_cents) @@ -134,11 +143,20 @@ let trace (cctxt : #Protocol_client_context.rpc_context) ~(storage : Michelson_v1_parser.parsed) ~(input : Michelson_v1_parser.parsed) ?source ?payer ?gas ?(entrypoint = "default") () = + Chain_services.chain_id cctxt ~chain () + >>=? fun chain_id -> Alpha_services.Helpers.Scripts.trace_code cctxt (chain, block) program.expanded - (storage.expanded, input.expanded, amount, source, payer, gas, entrypoint) + ( storage.expanded, + input.expanded, + amount, + chain_id, + source, + payer, + gas, + entrypoint ) let typecheck_data cctxt ~(chain : Chain_services.chain) ~block ?gas ~(data : Michelson_v1_parser.parsed) ~(ty : Michelson_v1_parser.parsed) () diff --git a/src/proto_alpha/lib_client/injection.ml b/src/proto_alpha/lib_client/injection.ml index e4aa4c6c2141..cea6000b3970 100644 --- a/src/proto_alpha/lib_client/injection.ml +++ b/src/proto_alpha/lib_client/injection.ml @@ -293,10 +293,12 @@ let simulate (type t) (cctxt : #Protocol_client_context.full) ~chain ~block {shell = {branch}; protocol_data = {contents; signature = None}} in let oph = Operation.hash op in + Chain_services.chain_id cctxt ~chain () + >>=? fun chain_id -> Alpha_services.Helpers.Scripts.run_operation cctxt (chain, block) - (Operation.pack op) + (Operation.pack op, chain_id) >>=? function | (Operation_data op', Operation_metadata result) -> ( match diff --git a/src/proto_alpha/lib_client_commands/client_proto_multisig_commands.ml b/src/proto_alpha/lib_client_commands/client_proto_multisig_commands.ml index 598ed43bea4f..e642b91ce803 100644 --- a/src/proto_alpha/lib_client_commands/client_proto_multisig_commands.ml +++ b/src/proto_alpha/lib_client_commands/client_proto_multisig_commands.ml @@ -882,4 +882,21 @@ let commands () : #Protocol_client_context.full Clic.command list = ~msg:"transfer simulation failed" cctxt >>= function - | None -> return_unit | Some (_res, _contracts) -> return_unit) ] + | None -> return_unit | Some (_res, _contracts) -> return_unit); + command + ~group + ~desc:"Show the hashes of the supported multisig contracts." + no_options + (fixed ["show"; "supported"; "multisig"; "hashes"]) + (fun () _cctxt -> + Lwt.return Client_proto_multisig.known_multisig_hashes + >>=? fun l -> + Format.printf "Hashes of supported multisig contracts:@." ; + List.iter + (fun h -> + Format.printf + " 0x%a@." + Hex.pp + (Hex.of_bytes (Script_expr_hash.to_bytes h))) + l ; + return_unit) ] -- GitLab From 06f0b182f43d3d73503c0c34619dc5c6a56f4f6a Mon Sep 17 00:00:00 2001 From: Benjamin Canou Date: Wed, 17 Jul 2019 16:11:11 +0200 Subject: [PATCH 045/252] Proto: add code stubs to handle `%default` entrypoints originated before migration This code stub adds a `%root` entrypoint to contracts that have a default entrypoint, and rewrite their calls to `SELF` into `SELF %root`. This is used to preserve the typing of `SELF` within contracts with deployed before the migration that have a `%default` entrypoint. --- .../lib_protocol/alpha_context.mli | 4 ++ .../legacy_script_support_repr.ml | 51 +++++++++++++++++++ .../legacy_script_support_repr.mli | 11 ++++ 3 files changed, 66 insertions(+) diff --git a/src/proto_alpha/lib_protocol/alpha_context.mli b/src/proto_alpha/lib_protocol/alpha_context.mli index e13c33111dfe..7a3d7cc3c745 100644 --- a/src/proto_alpha/lib_protocol/alpha_context.mli +++ b/src/proto_alpha/lib_protocol/alpha_context.mli @@ -359,6 +359,10 @@ module Script : sig script_code: lazy_expr -> script_storage: lazy_expr -> (lazy_expr * lazy_expr) tzresult Lwt.t + val has_default_entrypoint: lazy_expr -> bool + val add_root_entrypoint: + script_code: lazy_expr -> + lazy_expr tzresult Lwt.t end end diff --git a/src/proto_alpha/lib_protocol/legacy_script_support_repr.ml b/src/proto_alpha/lib_protocol/legacy_script_support_repr.ml index b0fb9010c481..e9c74fae8ddd 100644 --- a/src/proto_alpha/lib_protocol/legacy_script_support_repr.ml +++ b/src/proto_alpha/lib_protocol/legacy_script_support_repr.ml @@ -479,3 +479,54 @@ let add_set_delegate: end | _ -> script_code, script_storage + +let has_default_entrypoint expr = + let open Micheline in + let open Michelson_v1_primitives in + match Script_repr.force_decode expr with + | Error _ -> false + | Ok (expr, _) -> + match root expr with + | Seq (_, toplevel) -> begin + match find_toplevel K_parameter toplevel with + | Some (Prim (_, K_parameter, [ _ ], [ "%default" ])) -> false + | Some (Prim (_, K_parameter, [ parameter_expr ], _)) -> + let rec has_default = function + | Prim (_, T_or, [ l ; r ], annots) -> + List.exists (String.equal "%default") annots || has_default l || has_default r + | Prim (_, _, _, annots) -> + List.exists (String.equal "%default") annots + | _ -> false + in + has_default parameter_expr + | Some _ | None -> false + end + | _ -> false + +let add_root_entrypoint + : script_code: Script_repr.lazy_expr -> Script_repr.lazy_expr tzresult Lwt.t + = fun ~script_code -> + let open Micheline in + let open Michelson_v1_primitives in + Lwt.return (Script_repr.force_decode script_code) >>|? fun (script_code_expr, _gas_cost) -> + match root script_code_expr with + | Seq (_, toplevel) -> + let migrated_code = + Seq (0, List.map (function + | Prim (_, K_parameter, [ parameter_expr ], _) -> + Prim (0, K_parameter, [ parameter_expr ], [ "%root" ]) + | Prim (_, K_code, exprs, annots) -> + let rec rewrite_self = function + | Int _ | String _ | Bytes _ | Prim (_, I_CREATE_CONTRACT, _, _) as leaf -> leaf + | Prim (_, I_SELF, [], annots) -> + Prim (0, I_SELF, [], "%root" :: annots) + | Prim (_, name, args, annots) -> + Prim (0, name, List.map rewrite_self args, annots) + | Seq (_, args) -> + Seq (0, List.map rewrite_self args) in + Prim (0, K_code, List.map rewrite_self exprs, annots) + | other -> other) + toplevel) in + Script_repr.lazy_expr @@ strip_locations migrated_code + | _ -> + script_code diff --git a/src/proto_alpha/lib_protocol/legacy_script_support_repr.mli b/src/proto_alpha/lib_protocol/legacy_script_support_repr.mli index e90b66c95b70..0b69d33938c3 100644 --- a/src/proto_alpha/lib_protocol/legacy_script_support_repr.mli +++ b/src/proto_alpha/lib_protocol/legacy_script_support_repr.mli @@ -56,3 +56,14 @@ val add_set_delegate: script_code: Script_repr.lazy_expr -> script_storage: Script_repr.lazy_expr -> (Script_repr.lazy_expr * Script_repr.lazy_expr) tzresult Lwt.t + +(** Checks if a contract was declaring a default entrypoint somewhere + else than at the root, in which case its type changes when + entrypoints are activated. *) +val has_default_entrypoint: + Script_repr.lazy_expr -> bool + +(** Adds a [%root] annotation on the toplevel parameter construct. *) +val add_root_entrypoint: + script_code: Script_repr.lazy_expr -> + Script_repr.lazy_expr tzresult Lwt.t -- GitLab From a6e718c8efbc4cb8d56117f159e8bc23dfff2b03 Mon Sep 17 00:00:00 2001 From: Benjamin Canou Date: Tue, 23 Jul 2019 16:45:36 +0200 Subject: [PATCH 046/252] Proto/Michelson: handle default entrypoint originated before migration This patch preserves the semantics of `CREATE_CONTRACT` instructions for contracts deployed before the migration that deploy a contract with a default entrypoint. This is done by adding a `%root` entrypoint as detailed in a previous patch. --- .../lib_protocol/script_interpreter.ml | 8 ++++- .../lib_protocol/script_ir_translator.ml | 35 ++++++++++++++----- 2 files changed, 33 insertions(+), 10 deletions(-) diff --git a/src/proto_alpha/lib_protocol/script_interpreter.ml b/src/proto_alpha/lib_protocol/script_interpreter.ml index 4a0658a70a9b..63b687bd8217 100644 --- a/src/proto_alpha/lib_protocol/script_interpreter.ml +++ b/src/proto_alpha/lib_protocol/script_interpreter.ml @@ -807,11 +807,17 @@ let rec interp unparse_data ctxt Optimized storage_type init >>=? fun (storage, ctxt) -> let storage = Micheline.strip_locations storage in Contract.fresh_contract_from_current_nonce ctxt >>=? fun (ctxt, contract) -> + let code = Script.lazy_expr code in + begin + if Legacy_support.has_default_entrypoint code then + Legacy_support.add_root_entrypoint code + else return code + end >>=? fun code -> let operation = Origination { credit ; manager ; delegate ; preorigination = Some contract ; delegatable ; spendable ; - script = Some { code = Script.lazy_expr code ; + script = Some { code ; storage = Script.lazy_expr storage } } in Lwt.return (fresh_internal_nonce ctxt) >>=? fun (ctxt, nonce) -> logged_return diff --git a/src/proto_alpha/lib_protocol/script_ir_translator.ml b/src/proto_alpha/lib_protocol/script_ir_translator.ml index 305634327b4d..29cadd5a8d65 100644 --- a/src/proto_alpha/lib_protocol/script_ir_translator.ml +++ b/src/proto_alpha/lib_protocol/script_ir_translator.ml @@ -1381,6 +1381,27 @@ let find_entrypoint (type full) (full : full ty) ~root_name entrypoint = | "default" -> ok ((fun e -> e), Ex_ty full) | _ -> error (No_such_entrypoint entrypoint) +let find_entrypoint_for_type + (type full) (type exp) ~(full : full ty) ~(expected : exp ty) ~root_name entrypoint ctxt + : (context * string * exp ty) tzresult = + match entrypoint, root_name with + | "default", Some "root" -> + begin match find_entrypoint full ~root_name entrypoint with + | Error _ as err -> err + | Ok (f, Ex_ty ty) -> + match ty_eq ctxt expected ty with + | Ok (Eq, ctxt) -> + ok (ctxt, "default", (ty : exp ty)) + | Error _ -> + ty_eq ctxt expected full >>? fun (Eq, ctxt) -> + ok (ctxt, "root", (full : exp ty)) + end + | _ -> + find_entrypoint full ~root_name entrypoint >>? fun (_, Ex_ty ty) -> + ty_eq ctxt expected ty >>? fun (Eq, ctxt) -> + ok (ctxt, entrypoint, (ty : exp ty)) + + module Entrypoints = Set.Make (String) exception Duplicate of string @@ -3181,8 +3202,7 @@ and parse_contract merge_types ~legacy ctxt loc targ arg >>? fun (arg, ctxt) -> let contract : arg typed_contract = (arg, (contract, entrypoint)) in ok (ctxt, contract) in - find_entrypoint targ root_name entrypoint >>? fun (_, Ex_ty targ) -> - ty_eq ctxt targ arg >>? fun (Eq, ctxt) -> + find_entrypoint_for_type ~full:targ ~expected:arg ~root_name entrypoint ctxt >>? fun (ctxt, entrypoint, targ) -> merge_types ~legacy ctxt loc targ arg >>? fun (targ, ctxt) -> return ctxt targ entrypoint) @@ -3226,14 +3246,11 @@ and parse_contract_for_script error (Invalid_contract (loc, contract)) | Ok (Ex_ty targ, ctxt) -> match - let return ctxt targ entrypoint = - merge_types ~legacy ctxt loc targ arg >>? fun (arg, ctxt) -> - let contract : arg typed_contract = (arg, (contract, entrypoint)) in - ok (ctxt, Some contract) in - find_entrypoint targ ~root_name entrypoint >>? fun (_, Ex_ty targ) -> - ty_eq ctxt targ arg >>? fun (Eq, ctxt) -> + find_entrypoint_for_type ~full:targ ~expected:arg ~root_name entrypoint ctxt >>? fun (ctxt, entrypoint, targ) -> merge_types ~legacy ctxt loc targ arg >>? fun (targ, ctxt) -> - return ctxt targ entrypoint + merge_types ~legacy ctxt loc targ arg >>? fun (arg, ctxt) -> + let contract : arg typed_contract = (arg, (contract, entrypoint)) in + ok (ctxt, Some contract) with | Ok res -> ok res | Error _ -> -- GitLab From 6a5705dfa61ea7fd1285db7f0362c445d193e281 Mon Sep 17 00:00:00 2001 From: Benjamin Canou Date: Tue, 23 Jul 2019 16:45:44 +0200 Subject: [PATCH 047/252] Proto/Migration: handle default entrypoint originated before migration This patch updates contracts deployed before the migration with a `%default` entrypoint. This is done by adding a `%root` entrypoint as detailed in a previous patch. --- src/proto_alpha/lib_protocol/init_storage.ml | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/src/proto_alpha/lib_protocol/init_storage.ml b/src/proto_alpha/lib_protocol/init_storage.ml index 61fe044994f5..51d03b01ef59 100644 --- a/src/proto_alpha/lib_protocol/init_storage.ml +++ b/src/proto_alpha/lib_protocol/init_storage.ml @@ -114,6 +114,12 @@ let process_contract_add_manager contract ctxt = transform_script add_do ctxt contract code else if is_delegatable then transform_script add_set_delegate ctxt contract code + else if has_default_entrypoint code then + transform_script + (fun ~manager_pkh:_ ~script_code ~script_storage -> + add_root_entrypoint script_code >>=? fun script_code -> + return (script_code, script_storage)) + ctxt contract code else return ctxt | None -> begin -- GitLab From 65d01a8f83a34f02358b47095fd264884f0d13ec Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Tom=C3=A1=C5=A1=20Zemanovi=C4=8D?= Date: Thu, 9 May 2019 16:34:42 +0200 Subject: [PATCH 048/252] Proto: all KT1s must now be scripted Contains BREAKING CHANGES (see end of message). It removes the manager, spendable and delegatable flags and counter from all KT1s. It deprecates CREATE_ACCOUNT from use in new contracts, as well as the manager, spendable and delegatable arguments from CREATE_CONTRACT. Already deployed contracts with deprecated instructions will continue to work by using legacy support scripts (deploying `manager.tz` for `CREATE_ACCOUNT` and adding entrypoints for `CREATE_CONTRACT`). This change will impact all users of the RPC API as well as anyone who forges operations. The source of manager operations is now a tz1, tz2 or tz3, and no longer a KT1. The manager field and the spendable and delegatable flags disappear from the origination operation format (JSON and binary) as well as everywhere in the RPC API. --- .../lib_client/michelson_v1_error_reporter.ml | 7 ++ src/proto_alpha/lib_protocol/alpha_context.ml | 6 +- .../lib_protocol/alpha_context.mli | 37 ++---- src/proto_alpha/lib_protocol/apply.ml | 83 ++++--------- .../lib_protocol/bootstrap_storage.ml | 7 +- .../lib_protocol/contract_services.ml | 109 ++++++----------- .../lib_protocol/contract_services.mli | 19 +-- .../lib_protocol/contract_storage.ml | 110 ++++++++---------- .../lib_protocol/contract_storage.mli | 30 ++--- .../lib_protocol/delegate_storage.ml | 39 +------ .../lib_protocol/delegate_storage.mli | 19 +-- src/proto_alpha/lib_protocol/fees_storage.ml | 2 +- .../lib_protocol/helpers_services.ml | 22 ++-- .../lib_protocol/helpers_services.mli | 15 +-- src/proto_alpha/lib_protocol/init_storage.ml | 27 +++-- .../lib_protocol/michelson_v1_gas.ml | 6 + .../lib_protocol/operation_repr.ml | 27 ++--- .../lib_protocol/operation_repr.mli | 7 +- .../lib_protocol/script_interpreter.ml | 67 ++++++++--- .../lib_protocol/script_ir_translator.ml | 86 ++++++++++++-- .../lib_protocol/script_tc_errors.ml | 3 + .../script_tc_errors_registration.ml | 12 +- .../lib_protocol/script_typed_ir.ml | 2 + src/proto_alpha/lib_protocol/storage.ml | 10 +- src/proto_alpha/lib_protocol/storage.mli | 4 +- .../lib_protocol/storage_functors.ml | 7 +- .../lib_protocol/storage_functors.mli | 1 - src/proto_alpha/lib_protocol/storage_sigs.ml | 4 +- 28 files changed, 348 insertions(+), 420 deletions(-) diff --git a/src/proto_alpha/lib_client/michelson_v1_error_reporter.ml b/src/proto_alpha/lib_client/michelson_v1_error_reporter.ml index 0e8ea487ec61..9260218fcf95 100644 --- a/src/proto_alpha/lib_client/michelson_v1_error_reporter.ml +++ b/src/proto_alpha/lib_client/michelson_v1_error_reporter.ml @@ -282,6 +282,13 @@ let report_errors ~details ~show_source ?parsed ppf errs = "Error too big to serialize within the provided gas bounds." ; if rest <> [] then Format.fprintf ppf "@," ; print_trace locations rest + | Environment.Ecoproto_error (Deprecated_instruction prim) :: rest -> + Format.fprintf + ppf + "@[Use of deprecated instruction: %s@]" + (Michelson_v1_primitives.string_of_prim prim) ; + if rest <> [] then Format.fprintf ppf "@," ; + print_trace locations rest | Environment.Ecoproto_error Cannot_serialize_storage :: rest -> Format.fprintf ppf diff --git a/src/proto_alpha/lib_protocol/alpha_context.ml b/src/proto_alpha/lib_protocol/alpha_context.ml index 4a184292617f..c99eec570bb4 100644 --- a/src/proto_alpha/lib_protocol/alpha_context.ml +++ b/src/proto_alpha/lib_protocol/alpha_context.ml @@ -121,10 +121,8 @@ module Contract = struct include Contract_repr include Contract_storage - let originate c contract ~balance ~manager ?script ~delegate - ~spendable ~delegatable = - originate c contract ~balance ~manager ?script ~delegate - ~spendable ~delegatable + let originate c contract ~balance ~script ~delegate = + originate c contract ~balance ~script ~delegate let init_origination_nonce = Raw_context.init_origination_nonce let unset_origination_nonce = Raw_context.unset_origination_nonce end diff --git a/src/proto_alpha/lib_protocol/alpha_context.mli b/src/proto_alpha/lib_protocol/alpha_context.mli index 7a3d7cc3c745..f2f0622940fe 100644 --- a/src/proto_alpha/lib_protocol/alpha_context.mli +++ b/src/proto_alpha/lib_protocol/alpha_context.mli @@ -590,21 +590,14 @@ module Contract : sig val list: context -> contract list Lwt.t - val get_manager: - context -> contract -> public_key_hash tzresult Lwt.t - val get_manager_key: - context -> contract -> public_key tzresult Lwt.t + context -> public_key_hash -> public_key tzresult Lwt.t val is_manager_key_revealed: - context -> contract -> bool tzresult Lwt.t + context -> public_key_hash -> bool tzresult Lwt.t val reveal_manager_key: - context -> contract -> public_key -> context tzresult Lwt.t + context -> public_key_hash -> public_key -> context tzresult Lwt.t - val is_delegatable: - context -> contract -> bool tzresult Lwt.t - val is_spendable: - context -> contract -> bool tzresult Lwt.t val get_script_code: context -> contract -> (context * Script.lazy_expr option) tzresult Lwt.t val get_script: @@ -612,7 +605,7 @@ module Contract : sig val get_storage: context -> contract -> (context * Script.expr option) tzresult Lwt.t - val get_counter: context -> contract -> Z.t tzresult Lwt.t + val get_counter: context -> public_key_hash -> Z.t tzresult Lwt.t val get_balance: context -> contract -> Tez.t tzresult Lwt.t @@ -632,18 +625,14 @@ module Contract : sig val originate: context -> contract -> balance: Tez.t -> - manager: public_key_hash -> - ?script: (Script.t * big_map_diff option) -> + script: (Script.t * big_map_diff option) -> delegate: public_key_hash option -> - spendable: bool -> - delegatable: bool -> context tzresult Lwt.t + context tzresult Lwt.t type error += Balance_too_low of contract * Tez.t * Tez.t val spend: context -> contract -> Tez.t -> context tzresult Lwt.t - val spend_from_script: - context -> contract -> Tez.t -> context tzresult Lwt.t val credit: context -> contract -> Tez.t -> context tzresult Lwt.t @@ -656,10 +645,10 @@ module Contract : sig val used_storage_space: context -> t -> Z.t tzresult Lwt.t val increment_counter: - context -> contract -> context tzresult Lwt.t + context -> public_key_hash -> context tzresult Lwt.t val check_counter_increment: - context -> contract -> Z.t -> unit tzresult Lwt.t + context -> public_key_hash -> Z.t -> unit tzresult Lwt.t module Big_map : sig val mem: @@ -699,9 +688,6 @@ module Delegate : sig val set: context -> Contract.t -> public_key_hash option -> context tzresult Lwt.t - val set_from_script: - context -> Contract.t -> public_key_hash option -> context tzresult Lwt.t - val fold: context -> init:'a -> f:(public_key_hash -> 'a -> 'a Lwt.t) -> 'a Lwt.t @@ -935,7 +921,7 @@ and _ contents = ballot: Vote.ballot ; } -> Kind.ballot contents | Manager_operation : { - source: Contract.contract ; + source: Signature.Public_key_hash.t ; fee: Tez.tez ; counter: counter ; operation: 'kind manager_operation ; @@ -952,11 +938,8 @@ and _ manager_operation = destination: Contract.contract ; } -> Kind.transaction manager_operation | Origination : { - manager: Signature.Public_key_hash.t ; delegate: Signature.Public_key_hash.t option ; - script: Script.t option ; - spendable: bool ; - delegatable: bool ; + script: Script.t ; credit: Tez.tez ; preorigination: Contract.t option ; } -> Kind.origination manager_operation diff --git a/src/proto_alpha/lib_protocol/apply.ml b/src/proto_alpha/lib_protocol/apply.ml index 27a8ff0a8d86..fa8b920d22d2 100644 --- a/src/proto_alpha/lib_protocol/apply.ml +++ b/src/proto_alpha/lib_protocol/apply.ml @@ -33,8 +33,6 @@ type error += Duplicate_endorsement of Signature.Public_key_hash.t (* `Branch *) type error += Invalid_endorsement_level type error += Invalid_commitment of { expected: bool } type error += Internal_operation_replay of packed_internal_operation -type error += Cannot_originate_spendable_smart_contract (* `Permanent *) -type error += Cannot_originate_non_spendable_account (* `Permanent *) type error += Invalid_double_endorsement_evidence (* `Permanent *) type error += Inconsistent_double_endorsement_evidence @@ -141,30 +139,6 @@ let () = Operation.internal_operation_encoding (function Internal_operation_replay op -> Some op | _ -> None) (fun op -> Internal_operation_replay op) ; - register_error_kind - `Permanent - ~id:"cannot_originate_non_spendable_account" - ~title:"Cannot originate non spendable account" - ~description:"An origination was attempted \ - that would create a non spendable, non scripted contract" - ~pp:(fun ppf () -> - Format.fprintf ppf "It is not possible anymore to originate \ - a non scripted contract that is not spendable.") - Data_encoding.empty - (function Cannot_originate_non_spendable_account -> Some () | _ -> None) - (fun () -> Cannot_originate_non_spendable_account) ; - register_error_kind - `Permanent - ~id:"cannot_originate_spendable_smart_contract" - ~title:"Cannot originate spendable smart contract" - ~description:"An origination was attempted \ - that would create a spendable scripted contract" - ~pp:(fun ppf () -> - Format.fprintf ppf "It is not possible anymore to originate \ - a scripted contract that is spendable.") - Data_encoding.empty - (function Cannot_originate_spendable_smart_contract -> Some () | _ -> None) - (fun () -> Cannot_originate_spendable_smart_contract) ; register_error_kind `Permanent ~id:"block.invalid_double_endorsement_evidence" @@ -399,7 +373,7 @@ let () = Some (required, endorsements, priority, timestamp) | _ -> None) (fun (required, endorsements, priority, timestamp) -> Not_enough_endorsements_for_priority - { required ; endorsements ; priority ; timestamp }) ; + { required ; endorsements ; priority ; timestamp }) open Apply_results @@ -414,19 +388,13 @@ let apply_manager_operation_content : gas consumption and originations for the operation result. *) ctxt in Contract.must_exist ctxt source >>=? fun () -> - let spend = - (* Ignore the spendable flag for smart contracts. *) - if internal then Contract.spend_from_script else Contract.spend in - let set_delegate = - (* Ignore the delegatable flag for smart contracts. *) - if internal then Delegate.set_from_script else Delegate.set in Lwt.return (Gas.consume ctxt Michelson_v1_gas.Cost_of.manager_operation) >>=? fun ctxt -> match operation with | Reveal _ -> return (* No-op: action already performed by `precheck_manager_contents`. *) (ctxt, (Reveal_result { consumed_gas = Gas.consumed ~since:before_operation ~until:ctxt } : kind successful_manager_operation_result), []) | Transaction { amount ; parameters ; destination ; entrypoint } -> begin - spend ctxt source amount >>=? fun ctxt -> + Contract.spend ctxt source amount >>=? fun ctxt -> begin match Contract.is_implicit destination with | None -> return (ctxt, [], false) | Some _ -> @@ -504,27 +472,14 @@ let apply_manager_operation_content : allocated_destination_contract } in return (ctxt, result, operations) end - | Origination { manager ; delegate ; script ; preorigination ; - spendable ; delegatable ; credit } -> - begin match script with - | None -> - if spendable then - return (None, ctxt) - else - fail Cannot_originate_non_spendable_account - | Some script -> - if spendable then - fail Cannot_originate_spendable_smart_contract - else - Script.force_decode ctxt script.storage >>=? fun (unparsed_storage, ctxt) -> (* see [note] *) - Lwt.return (Gas.consume ctxt (Script.deserialized_cost unparsed_storage)) >>=? fun ctxt -> - Script.force_decode ctxt script.code >>=? fun (unparsed_code, ctxt) -> (* see [note] *) - Lwt.return (Gas.consume ctxt (Script.deserialized_cost unparsed_code)) >>=? fun ctxt -> - Script_ir_translator.parse_script ctxt ~legacy:false script >>=? fun (ex_script, ctxt) -> - Script_ir_translator.big_map_initialization ctxt Optimized ex_script >>=? fun (big_map_diff, ctxt) -> - return (Some (script, big_map_diff), ctxt) - end >>=? fun (script, ctxt) -> - spend ctxt source credit >>=? fun ctxt -> + | Origination { delegate ; script ; preorigination ; credit } -> + Script.force_decode ctxt script.storage >>=? fun (unparsed_storage, ctxt) -> (* see [note] *) + Lwt.return (Gas.consume ctxt (Script.deserialized_cost unparsed_storage)) >>=? fun ctxt -> + Script.force_decode ctxt script.code >>=? fun (unparsed_code, ctxt) -> (* see [note] *) + Lwt.return (Gas.consume ctxt (Script.deserialized_cost unparsed_code)) >>=? fun ctxt -> + Script_ir_translator.parse_script ctxt ~legacy:false script >>=? fun (ex_script, ctxt) -> + Script_ir_translator.big_map_initialization ctxt Optimized ex_script >>=? fun (big_map_diff, ctxt) -> + Contract.spend ctxt source credit >>=? fun ctxt -> begin match preorigination with | Some contract -> assert internal ; @@ -536,9 +491,8 @@ let apply_manager_operation_content : Contract.fresh_contract_from_current_nonce ctxt end >>=? fun (ctxt, contract) -> Contract.originate ctxt contract - ~manager ~delegate ~balance:credit - ?script - ~spendable ~delegatable >>=? fun ctxt -> + ~delegate ~balance:credit + ~script:(script, big_map_diff) >>=? fun ctxt -> Fees.origination_burn ctxt >>=? fun (ctxt, origination_burn) -> Fees.record_paid_storage_space ctxt contract >>=? fun (ctxt, size, paid_storage_size_diff, fees) -> let result = @@ -555,7 +509,7 @@ let apply_manager_operation_content : paid_storage_size_diff } in return (ctxt, result, []) | Delegation delegate -> - set_delegate ctxt source delegate >>=? fun ctxt -> + Delegate.set ctxt source delegate >>=? fun ctxt -> return (ctxt, Delegation_result { consumed_gas = Gas.consumed ~since:before_operation ~until:ctxt }, []) let apply_internal_manager_operations ctxt mode ~payer ~chain_id ops = @@ -594,7 +548,7 @@ let precheck_manager_contents Lwt.return (Gas.check_limit ctxt gas_limit) >>=? fun () -> let ctxt = Gas.set_limit ctxt gas_limit in Lwt.return (Fees.check_storage_limit ctxt storage_limit) >>=? fun () -> - Contract.must_be_allocated ctxt source >>=? fun () -> + Contract.must_be_allocated ctxt (Contract.implicit_contract source) >>=? fun () -> Contract.check_counter_increment ctxt source counter >>=? fun () -> begin match operation with @@ -607,7 +561,7 @@ let precheck_manager_contents (* Fail if not enough gas for complete deserialization cost *) trace Gas_quota_exceeded_init_deserialize @@ Script.force_decode ctxt parameters >>|? fun (_arg, ctxt) -> ctxt - | Origination { script = Some script ; _ } -> + | Origination { script ; _ } -> (* Fail quickly if not enough gas for minimal deserialization cost *) Lwt.return @@ record_trace Gas_quota_exceeded_init_deserialize @@ (Gas.consume ctxt (Script.minimal_deserialize_cost script.code) >>? fun ctxt -> @@ -627,7 +581,7 @@ let precheck_manager_contents sequence of transactions. *) Operation.check_signature public_key chain_id raw_operation >>=? fun () -> Contract.increment_counter ctxt source >>=? fun ctxt -> - Contract.spend ctxt source fee >>=? fun ctxt -> + Contract.spend ctxt (Contract.implicit_contract source) fee >>=? fun ctxt -> add_fees ctxt fee >>=? fun ctxt -> return ctxt @@ -640,6 +594,7 @@ let apply_manager_contents { source ; operation ; gas_limit ; storage_limit } = op in let ctxt = Gas.set_limit ctxt gas_limit in let ctxt = Fees.start_counting_storage_fees ctxt in + let source = Contract.implicit_contract source in apply_manager_operation_content ctxt mode ~source ~payer:source ~internal:false ~chain_id operation >>= function | Ok (ctxt, operation_results, internal_operations) -> begin @@ -675,6 +630,7 @@ let rec mark_skipped baker : Signature.Public_key_hash.t -> Level.t -> kind Kind.manager contents_list -> kind Kind.manager contents_result_list = fun ~baker level -> function | Single (Manager_operation { source ; fee ; operation } ) -> + let source = Contract.implicit_contract source in Single_result (Manager_operation_result { balance_updates = @@ -684,6 +640,7 @@ let rec mark_skipped operation_result = skipped_operation_result operation ; internal_operation_results = [] }) | Cons (Manager_operation { source ; fee ; operation } , rest) -> + let source = Contract.implicit_contract source in Cons_result (Manager_operation_result { balance_updates = @@ -716,6 +673,7 @@ let rec apply_manager_contents_list_rec let level = Level.current ctxt in match contents_list with | Single (Manager_operation { source ; fee ; _ } as op) -> begin + let source = Contract.implicit_contract source in apply_manager_contents ctxt mode chain_id op >>= fun (ctxt_result, operation_result, internal_operation_results) -> let result = @@ -730,6 +688,7 @@ let rec apply_manager_contents_list_rec Lwt.return (ctxt_result, Single_result (result)) end | Cons (Manager_operation { source ; fee ; _ } as op, rest) -> + let source = Contract.implicit_contract source in apply_manager_contents ctxt mode chain_id op >>= function | (`Failure, operation_result, internal_operation_results) -> let result = diff --git a/src/proto_alpha/lib_protocol/bootstrap_storage.ml b/src/proto_alpha/lib_protocol/bootstrap_storage.ml index 50d17dfffa6a..8e0b46abc0b6 100644 --- a/src/proto_alpha/lib_protocol/bootstrap_storage.ml +++ b/src/proto_alpha/lib_protocol/bootstrap_storage.ml @@ -31,7 +31,7 @@ let init_account ctxt Contract_storage.credit ctxt contract amount >>=? fun ctxt -> match public_key with | Some public_key -> - Contract_storage.reveal_manager_key ctxt contract public_key >>=? fun ctxt -> + Contract_storage.reveal_manager_key ctxt public_key_hash public_key >>=? fun ctxt -> Delegate_storage.set ctxt contract (Some public_key_hash) >>=? fun ctxt -> return ctxt | None -> return ctxt @@ -43,11 +43,8 @@ let init_contract ~typecheck ctxt Contract_storage.originate ctxt contract ~balance:amount ~prepaid_bootstrap_storage:true - ~manager:Signature.Public_key_hash.zero ~script - ~delegate:(Some delegate) - ~spendable:false - ~delegatable:false >>=? fun ctxt -> + ~delegate:(Some delegate) >>=? fun ctxt -> return ctxt let init ctxt ~typecheck ?ramp_up_cycles ?no_reward_cycles accounts contracts = diff --git a/src/proto_alpha/lib_protocol/contract_services.ml b/src/proto_alpha/lib_protocol/contract_services.ml index c691d17e4172..d7a926ea53fe 100644 --- a/src/proto_alpha/lib_protocol/contract_services.ml +++ b/src/proto_alpha/lib_protocol/contract_services.ml @@ -29,34 +29,24 @@ let custom_root = (RPC_path.(open_root / "context" / "contracts") : RPC_context.t RPC_path.context) type info = { - manager: public_key_hash ; balance: Tez.t ; - spendable: bool ; - delegate: bool * public_key_hash option ; - counter: counter ; + delegate: public_key_hash option ; + counter: counter option ; script: Script.t option ; } let info_encoding = let open Data_encoding in conv - (fun {manager ; balance ; spendable ; delegate ; - script ; counter } -> - (manager, balance, spendable, delegate, - script, counter)) - (fun (manager, balance, spendable, delegate, - script, counter) -> - {manager ; balance ; spendable ; delegate ; - script ; counter}) @@ - obj6 - (req "manager" Signature.Public_key_hash.encoding) + (fun {balance ; delegate ; script ; counter } -> + (balance, delegate, script, counter)) + (fun (balance, delegate, script, counter) -> + {balance ; delegate ; script ; counter}) @@ + obj4 (req "balance" Tez.encoding) - (req "spendable" bool) - (req "delegate" @@ obj2 - (req "setable" bool) - (opt "value" Signature.Public_key_hash.encoding)) + (opt "delegate" Signature.Public_key_hash.encoding) (opt "script" Script.encoding) - (req "counter" n) + (opt "counter" n) module S = struct @@ -69,20 +59,11 @@ module S = struct ~output: Tez.encoding RPC_path.(custom_root /: Contract.rpc_arg / "balance") - let manager = - RPC_service.get_service - ~description: "Access the manager of a contract." - ~query: RPC_query.empty - ~output: Signature.Public_key_hash.encoding - RPC_path.(custom_root /: Contract.rpc_arg / "manager") - let manager_key = RPC_service.get_service ~description: "Access the manager of a contract." ~query: RPC_query.empty - ~output: (obj2 - (req "manager" Signature.Public_key_hash.encoding) - (opt "key" Signature.Public_key.encoding)) + ~output: (option Signature.Public_key.encoding) RPC_path.(custom_root /: Contract.rpc_arg / "manager_key") let delegate = @@ -99,20 +80,6 @@ module S = struct ~output: z RPC_path.(custom_root /: Contract.rpc_arg / "counter") - let spendable = - RPC_service.get_service - ~description: "Tells if the contract tokens can be spent by the manager." - ~query: RPC_query.empty - ~output: bool - RPC_path.(custom_root /: Contract.rpc_arg / "spendable") - - let delegatable = - RPC_service.get_service - ~description: "Tells if the contract delegate can be changed." - ~query: RPC_query.empty - ~output: bool - RPC_path.(custom_root /: Contract.rpc_arg / "delegatable") - let script = RPC_service.get_service ~description: "Access the code and data of the contract." @@ -192,19 +159,20 @@ let register () = | None -> raise Not_found | Some v -> return v) in register_field S.balance Contract.get_balance ; - register_field S.manager Contract.get_manager ; - register_field S.manager_key - (fun ctxt c -> - Contract.get_manager ctxt c >>=? fun mgr -> - Contract.is_manager_key_revealed ctxt c >>=? fun revealed -> - if revealed then - Contract.get_manager_key ctxt c >>=? fun key -> - return (mgr, Some key) - else return (mgr, None)) ; + register1 S.manager_key + (fun ctxt contract () () -> + match Contract.is_implicit contract with + | None -> raise Not_found + | Some mgr -> + Contract.is_manager_key_revealed ctxt mgr >>=? function + | false -> return_none + | true -> Contract.get_manager_key ctxt mgr >>=? return_some) ; register_opt_field S.delegate Delegate.get ; - register_field S.counter Contract.get_counter ; - register_field S.spendable Contract.is_spendable ; - register_field S.delegatable Contract.is_delegatable ; + register1 S.counter + (fun ctxt contract () () -> + match Contract.is_implicit contract with + | None -> raise Not_found + | Some mgr -> Contract.get_counter ctxt mgr) ; register_opt_field S.script (fun c v -> Contract.get_script c v >>=? fun (_, v) -> return v) ; register_opt_field S.storage (fun ctxt contract -> @@ -275,11 +243,13 @@ let register () = return value) ; register_field S.info (fun ctxt contract -> Contract.get_balance ctxt contract >>=? fun balance -> - Contract.get_manager ctxt contract >>=? fun manager -> Delegate.get ctxt contract >>=? fun delegate -> - Contract.get_counter ctxt contract >>=? fun counter -> - Contract.is_delegatable ctxt contract >>=? fun delegatable -> - Contract.is_spendable ctxt contract >>=? fun spendable -> + begin match Contract.is_implicit contract with + | Some manager -> + Contract.get_counter ctxt manager >>=? fun counter -> + return_some counter + | None -> return None + end >>=? fun counter -> Contract.get_script ctxt contract >>=? fun (ctxt, script) -> begin match script with | None -> return (None, ctxt) @@ -290,9 +260,7 @@ let register () = unparse_script ctxt Readable script >>=? fun (script, ctxt) -> return (Some script, ctxt) end >>=? fun (script, _ctxt) -> - return { manager ; balance ; - spendable ; delegate = (delegatable, delegate) ; - script ; counter }) + return { balance ; delegate ; script ; counter }) let list ctxt block = RPC_context.make_call0 S.list ctxt block () () @@ -303,11 +271,8 @@ let info ctxt block contract = let balance ctxt block contract = RPC_context.make_call1 S.balance ctxt block contract () () -let manager ctxt block contract = - RPC_context.make_call1 S.manager ctxt block contract () () - -let manager_key ctxt block contract = - RPC_context.make_call1 S.manager_key ctxt block contract () () +let manager_key ctxt block mgr = + RPC_context.make_call1 S.manager_key ctxt block (Contract.implicit_contract mgr) () () let delegate ctxt block contract = RPC_context.make_call1 S.delegate ctxt block contract () () @@ -315,14 +280,8 @@ let delegate ctxt block contract = let delegate_opt ctxt block contract = RPC_context.make_opt_call1 S.delegate ctxt block contract () () -let counter ctxt block contract = - RPC_context.make_call1 S.counter ctxt block contract () () - -let is_delegatable ctxt block contract = - RPC_context.make_call1 S.delegatable ctxt block contract () () - -let is_spendable ctxt block contract = - RPC_context.make_call1 S.spendable ctxt block contract () () +let counter ctxt block mgr = + RPC_context.make_call1 S.counter ctxt block (Contract.implicit_contract mgr) () () let script ctxt block contract = RPC_context.make_call1 S.script ctxt block contract () () diff --git a/src/proto_alpha/lib_protocol/contract_services.mli b/src/proto_alpha/lib_protocol/contract_services.mli index 3676bfe6a1c3..066ce2bc81ff 100644 --- a/src/proto_alpha/lib_protocol/contract_services.mli +++ b/src/proto_alpha/lib_protocol/contract_services.mli @@ -29,11 +29,9 @@ val list: 'a #RPC_context.simple -> 'a -> Contract.t list shell_tzresult Lwt.t type info = { - manager: public_key_hash ; balance: Tez.t ; - spendable: bool ; - delegate: bool * public_key_hash option ; - counter: counter ; + delegate: public_key_hash option ; + counter: counter option ; script: Script.t option ; } @@ -45,11 +43,8 @@ val info: val balance: 'a #RPC_context.simple -> 'a -> Contract.t -> Tez.t shell_tzresult Lwt.t -val manager: - 'a #RPC_context.simple -> 'a -> Contract.t -> public_key_hash shell_tzresult Lwt.t - val manager_key: - 'a #RPC_context.simple -> 'a -> Contract.t -> (public_key_hash * public_key option) shell_tzresult Lwt.t + 'a #RPC_context.simple -> 'a -> public_key_hash -> public_key option shell_tzresult Lwt.t val delegate: 'a #RPC_context.simple -> 'a -> Contract.t -> public_key_hash shell_tzresult Lwt.t @@ -57,14 +52,8 @@ val delegate: val delegate_opt: 'a #RPC_context.simple -> 'a -> Contract.t -> public_key_hash option shell_tzresult Lwt.t -val is_delegatable: - 'a #RPC_context.simple -> 'a -> Contract.t -> bool shell_tzresult Lwt.t - -val is_spendable: - 'a #RPC_context.simple -> 'a -> Contract.t -> bool shell_tzresult Lwt.t - val counter: - 'a #RPC_context.simple -> 'a -> Contract.t -> counter shell_tzresult Lwt.t + 'a #RPC_context.simple -> 'a -> public_key_hash -> counter shell_tzresult Lwt.t val script: 'a #RPC_context.simple -> 'a -> Contract.t -> Script.t shell_tzresult Lwt.t diff --git a/src/proto_alpha/lib_protocol/contract_storage.ml b/src/proto_alpha/lib_protocol/contract_storage.ml index b41f74cb284c..527d09fcf703 100644 --- a/src/proto_alpha/lib_protocol/contract_storage.ml +++ b/src/proto_alpha/lib_protocol/contract_storage.ml @@ -242,56 +242,51 @@ let update_script_big_map c contract = function let create_base c ?(prepaid_bootstrap_storage=false) (* Free space for bootstrap contracts *) contract - ~balance ~manager ~delegate ?script ~spendable ~delegatable = - (match Contract_repr.is_implicit contract with - | None -> return Z.zero - | Some _ -> Storage.Contract.Global_counter.get c) >>=? fun counter -> + ~balance ~manager ~delegate ?script () = + begin match Contract_repr.is_implicit contract with + | None -> return c + | Some _ -> + Storage.Contract.Global_counter.get c >>=? fun counter -> + Storage.Contract.Counter.init c contract counter + end >>=? fun c -> Storage.Contract.Balance.init c contract balance >>=? fun c -> - Storage.Contract.Manager.init c contract (Manager_repr.Hash manager) >>=? fun c -> + begin match manager with + | Some manager -> + Storage.Contract.Manager.init c contract (Manager_repr.Hash manager) + | None -> return c + end >>=? fun c -> begin match delegate with | None -> return c | Some delegate -> Delegate_storage.init c contract delegate end >>=? fun c -> - Storage.Contract.Spendable.set c contract spendable >>= fun c -> - Storage.Contract.Delegatable.set c contract delegatable >>= fun c -> - Storage.Contract.Counter.init c contract counter >>=? fun c -> - (match script with - | Some ({ Script_repr.code ; storage }, big_map_diff) -> - Storage.Contract.Code.init c contract code >>=? fun (c, code_size) -> - Storage.Contract.Storage.init c contract storage >>=? fun (c, storage_size) -> - update_script_big_map c contract big_map_diff >>=? fun (c, big_map_size) -> - let total_size = Z.add (Z.add (Z.of_int code_size) (Z.of_int storage_size)) big_map_size in - assert Compare.Z.(total_size >= Z.zero) ; - let prepaid_bootstrap_storage = - if prepaid_bootstrap_storage then - total_size - else - Z.zero - in - Storage.Contract.Paid_storage_space.init c contract prepaid_bootstrap_storage >>=? fun c -> - Storage.Contract.Used_storage_space.init c contract total_size - | None -> begin - match Contract_repr.is_implicit contract with - | None -> - Storage.Contract.Paid_storage_space.init c contract Z.zero >>=? fun c -> - Storage.Contract.Used_storage_space.init c contract Z.zero - | Some _ -> - return c - end >>=? fun c -> - return c) >>=? fun c -> - return c + match script with + | Some ({ Script_repr.code ; storage }, big_map_diff) -> + Storage.Contract.Code.init c contract code >>=? fun (c, code_size) -> + Storage.Contract.Storage.init c contract storage >>=? fun (c, storage_size) -> + update_script_big_map c contract big_map_diff >>=? fun (c, big_map_size) -> + let total_size = Z.add (Z.add (Z.of_int code_size) (Z.of_int storage_size)) big_map_size in + assert Compare.Z.(total_size >= Z.zero) ; + let prepaid_bootstrap_storage = + if prepaid_bootstrap_storage then + total_size + else + Z.zero + in + Storage.Contract.Paid_storage_space.init c contract prepaid_bootstrap_storage >>=? fun c -> + Storage.Contract.Used_storage_space.init c contract total_size + | None -> + return c let originate c ?prepaid_bootstrap_storage contract - ~balance ~manager ?script ~delegate ~spendable ~delegatable = - create_base c ?prepaid_bootstrap_storage contract ~balance ~manager - ~delegate ?script ~spendable ~delegatable + ~balance ~script ~delegate = + create_base c ?prepaid_bootstrap_storage contract ~balance + ~manager:None ~delegate ~script () let create_implicit c manager ~balance = create_base c (Contract_repr.implicit_contract manager) - ~balance ~manager ?script:None ~delegate:None - ~spendable:true ~delegatable:false + ~balance ~manager:(Some manager) ?script:None ~delegate:None () let delete c contract = match Contract_repr.is_implicit contract with @@ -302,8 +297,6 @@ let delete c contract = Delegate_storage.remove c contract >>=? fun c -> Storage.Contract.Balance.delete c contract >>=? fun c -> Storage.Contract.Manager.delete c contract >>=? fun c -> - Storage.Contract.Spendable.del c contract >>= fun c -> - Storage.Contract.Delegatable.del c contract >>= fun c -> Storage.Contract.Counter.delete c contract >>=? fun c -> Storage.Contract.Code.remove c contract >>=? fun (c, _) -> Storage.Contract.Storage.remove c contract >>=? fun (c, _) -> @@ -312,7 +305,7 @@ let delete c contract = return c let allocated c contract = - Storage.Contract.Counter.get_option c contract >>=? function + Storage.Contract.Balance.get_option c contract >>=? function | None -> return_false | Some _ -> return_true @@ -349,7 +342,8 @@ let originated_from_current_nonce ~since: ctxt_since ~until: ctxt_until = | false -> return_none) (Contract_repr.originated_contracts ~since ~until) -let check_counter_increment c contract counter = +let check_counter_increment c manager counter = + let contract = Contract_repr.implicit_contract manager in Storage.Contract.Counter.get c contract >>=? fun contract_counter -> let expected = Z.succ contract_counter in if Compare.Z.(expected = counter) @@ -359,7 +353,8 @@ let check_counter_increment c contract counter = else fail (Counter_in_the_future (contract, expected, counter)) -let increment_counter c contract = +let increment_counter c manager = + let contract = Contract_repr.implicit_contract manager in Storage.Contract.Global_counter.get c >>=? fun global_counter -> Storage.Contract.Global_counter.set c (Z.succ global_counter) >>=? fun c -> Storage.Contract.Counter.get c contract >>=? fun contract_counter -> @@ -384,7 +379,8 @@ let get_storage ctxt contract = Lwt.return (Raw_context.consume_gas ctxt cost) >>=? fun ctxt -> return (ctxt, Some storage) -let get_counter c contract = +let get_counter c manager = + let contract = Contract_repr.implicit_contract manager in Storage.Contract.Counter.get_option c contract >>=? function | None -> begin match Contract_repr.is_implicit contract with @@ -393,7 +389,7 @@ let get_counter c contract = end | Some v -> return v -let get_manager c contract = +let get_manager_004 c contract = Storage.Contract.Manager.get_option c contract >>=? function | None -> begin match Contract_repr.is_implicit contract with @@ -403,19 +399,22 @@ let get_manager c contract = | Some (Manager_repr.Hash v) -> return v | Some (Manager_repr.Public_key v) -> return (Signature.Public_key.hash v) -let get_manager_key c contract = +let get_manager_key c manager = + let contract = Contract_repr.implicit_contract manager in Storage.Contract.Manager.get_option c contract >>=? function | None -> failwith "get_manager_key" | Some (Manager_repr.Hash _) -> fail (Unrevealed_manager_key contract) | Some (Manager_repr.Public_key v) -> return v -let is_manager_key_revealed c contract = +let is_manager_key_revealed c manager = + let contract = Contract_repr.implicit_contract manager in Storage.Contract.Manager.get_option c contract >>=? function | None -> return_false | Some (Manager_repr.Hash _) -> return_false | Some (Manager_repr.Public_key _) -> return_true -let reveal_manager_key c contract public_key = +let reveal_manager_key c manager public_key = + let contract = Contract_repr.implicit_contract manager in Storage.Contract.Manager.get c contract >>=? function | Public_key _ -> fail (Previously_revealed_key contract) | Hash v -> @@ -435,13 +434,6 @@ let get_balance c contract = end | Some v -> return v -let is_delegatable = Delegate_storage.is_delegatable -let is_spendable c contract = - match Contract_repr.is_implicit contract with - | Some _ -> return_true - | None -> - Storage.Contract.Spendable.mem c contract >>= return - let update_script_storage c contract storage big_map_diff = let storage = Script_repr.lazy_expr storage in update_script_big_map c contract big_map_diff >>=? fun (c, big_map_size_diff) -> @@ -450,7 +442,7 @@ let update_script_storage c contract storage big_map_diff = let new_size = Z.add previous_size (Z.add big_map_size_diff (Z.of_int size_diff)) in Storage.Contract.Used_storage_space.set c contract new_size -let spend_from_script c contract amount = +let spend c contract amount = Storage.Contract.Balance.get c contract >>=? fun balance -> match Tez_repr.(balance -? amount) with | Error _ -> @@ -493,12 +485,6 @@ let credit c contract amount = Storage.Contract.Balance.set c contract balance >>=? fun c -> Roll_storage.Contract.add_amount c contract amount -let spend c contract amount = - is_spendable c contract >>=? fun spendable -> - if not spendable - then fail (Unspendable_contract contract) - else spend_from_script c contract amount - let init c = Storage.Contract.Global_counter.init c Z.zero diff --git a/src/proto_alpha/lib_protocol/contract_storage.mli b/src/proto_alpha/lib_protocol/contract_storage.mli index 363f843cd3c7..d066ea5b2a1a 100644 --- a/src/proto_alpha/lib_protocol/contract_storage.mli +++ b/src/proto_alpha/lib_protocol/contract_storage.mli @@ -47,30 +47,25 @@ val must_be_allocated: Raw_context.t -> Contract_repr.t -> unit tzresult Lwt.t val list: Raw_context.t -> Contract_repr.t list Lwt.t val check_counter_increment: - Raw_context.t -> Contract_repr.t -> Z.t -> unit tzresult Lwt.t + Raw_context.t -> Signature.Public_key_hash.t -> Z.t -> unit tzresult Lwt.t val increment_counter: - Raw_context.t -> Contract_repr.t -> Raw_context.t tzresult Lwt.t + Raw_context.t -> Signature.Public_key_hash.t -> Raw_context.t tzresult Lwt.t -val is_delegatable: - Raw_context.t -> Contract_repr.t -> bool tzresult Lwt.t - -val is_spendable: Raw_context.t -> Contract_repr.t -> bool tzresult Lwt.t - -val get_manager: +val get_manager_004: Raw_context.t -> Contract_repr.t -> Signature.Public_key_hash.t tzresult Lwt.t val get_manager_key: - Raw_context.t -> Contract_repr.t -> Signature.Public_key.t tzresult Lwt.t + Raw_context.t -> Signature.Public_key_hash.t -> Signature.Public_key.t tzresult Lwt.t val is_manager_key_revealed: - Raw_context.t -> Contract_repr.t -> bool tzresult Lwt.t + Raw_context.t -> Signature.Public_key_hash.t -> bool tzresult Lwt.t val reveal_manager_key: - Raw_context.t -> Contract_repr.t -> Signature.Public_key.t -> + Raw_context.t -> Signature.Public_key_hash.t -> Signature.Public_key.t -> Raw_context.t tzresult Lwt.t val get_balance: Raw_context.t -> Contract_repr.t -> Tez_repr.t tzresult Lwt.t -val get_counter: Raw_context.t -> Contract_repr.t -> Z.t tzresult Lwt.t +val get_counter: Raw_context.t -> Signature.Public_key_hash.t -> Z.t tzresult Lwt.t val get_script_code: Raw_context.t -> Contract_repr.t -> (Raw_context.t * Script_repr.lazy_expr option) tzresult Lwt.t @@ -98,26 +93,17 @@ val credit: Raw_context.t -> Contract_repr.t -> Tez_repr.t -> Raw_context.t tzresult Lwt.t -(** checks that the contract is spendable and decrease_balance *) val spend: Raw_context.t -> Contract_repr.t -> Tez_repr.t -> Raw_context.t tzresult Lwt.t -(** decrease_balance even if the contract is not spendable *) -val spend_from_script: - Raw_context.t -> Contract_repr.t -> Tez_repr.t -> - Raw_context.t tzresult Lwt.t - val originate: Raw_context.t -> ?prepaid_bootstrap_storage:bool -> Contract_repr.t -> balance:Tez_repr.t -> - manager:Signature.Public_key_hash.t -> - ?script:(Script_repr.t * big_map_diff option) -> + script:(Script_repr.t * big_map_diff option) -> delegate:Signature.Public_key_hash.t option -> - spendable:bool -> - delegatable:bool -> Raw_context.t tzresult Lwt.t val fresh_contract_from_current_nonce : diff --git a/src/proto_alpha/lib_protocol/delegate_storage.ml b/src/proto_alpha/lib_protocol/delegate_storage.ml index b6df55ad7ede..c8d5e878bd1a 100644 --- a/src/proto_alpha/lib_protocol/delegate_storage.ml +++ b/src/proto_alpha/lib_protocol/delegate_storage.ml @@ -123,7 +123,6 @@ let frozen_balance_encoding = (req "rewards" Tez_repr.encoding)) type error += - | Non_delegatable_contract of Contract_repr.contract (* `Permanent *) | No_deletion of Signature.Public_key_hash.t (* `Permanent *) | Active_delegate (* `Temporary *) | Current_delegate (* `Temporary *) @@ -134,18 +133,6 @@ type error += balance : Tez_repr.t } (* `Temporary *) let () = - register_error_kind - `Permanent - ~id:"contract.undelegatable_contract" - ~title:"Non delegatable contract" - ~description:"Tried to delegate an implicit contract \ - or a non delegatable originated contract" - ~pp:(fun ppf contract -> - Format.fprintf ppf "Contract %a is not delegatable" - Contract_repr.pp contract) - Data_encoding.(obj1 (req "contract" Contract_repr.encoding)) - (function Non_delegatable_contract c -> Some c | _ -> None) - (fun c -> Non_delegatable_contract c) ; register_error_kind `Permanent ~id:"delegate.no_deletion" @@ -212,14 +199,6 @@ let () = Some (delegate, balance, deposit) | _ -> None) (fun (delegate, balance, deposit) -> Balance_too_low_for_deposit { delegate ; balance ; deposit } ) -let is_delegatable c contract = - match Contract_repr.is_implicit contract with - | Some _ -> - (* Implicit contracts are delegatable *) - return_true - | None -> - Storage.Contract.Delegatable.mem c contract >>= return - let link c contract delegate = Storage.Contract.Balance.get c contract >>=? fun balance -> Roll_storage.Delegate.add_amount c delegate balance >>=? fun c -> @@ -265,7 +244,7 @@ let init ctxt contract delegate = let get = Roll_storage.get_contract_delegate -let set_base c is_delegatable contract delegate = +let set c contract delegate = match delegate with | None -> begin let delete () = @@ -280,25 +259,17 @@ let set_base c is_delegatable contract delegate = fail (No_deletion pkh) else delete () - | None -> - is_delegatable c contract >>=? fun delegatable -> - if delegatable then - delete () - else - fail (Non_delegatable_contract contract) + | None -> delete () end | Some delegate -> known c delegate >>=? fun known_delegate -> registered c delegate >>=? fun registered_delegate -> - is_delegatable c contract >>=? fun delegatable -> let self_delegation = match Contract_repr.is_implicit contract with | Some pkh -> Signature.Public_key_hash.equal pkh delegate | None -> false in if not known_delegate || not (registered_delegate || self_delegation) then fail (Roll_storage.Unregistered_delegate delegate) - else if not (delegatable || self_delegation) then - fail (Non_delegatable_contract contract) else begin Storage.Contract.Delegate.get_option c contract >>=? function @@ -342,12 +313,6 @@ let set_base c is_delegatable contract delegate = end >>=? fun c -> return c -let set c contract delegate = - set_base c is_delegatable contract delegate - -let set_from_script c contract delegate = - set_base c (fun _ _ -> return_true) contract delegate - let remove ctxt contract = unlink ctxt contract diff --git a/src/proto_alpha/lib_protocol/delegate_storage.mli b/src/proto_alpha/lib_protocol/delegate_storage.mli index 0fc6cc0cce69..730cde3053fa 100644 --- a/src/proto_alpha/lib_protocol/delegate_storage.mli +++ b/src/proto_alpha/lib_protocol/delegate_storage.mli @@ -49,10 +49,6 @@ type frozen_balance = { rewards : Tez_repr.t ; } -(** Is the contract eligible to delegation ? *) -val is_delegatable: - Raw_context.t -> Contract_repr.t -> bool tzresult Lwt.t - (** Allow to register a delegate when creating an account. *) val init: Raw_context.t -> Contract_repr.t -> Signature.Public_key_hash.t -> @@ -71,22 +67,15 @@ val registered: Raw_context.t -> Signature.Public_key_hash.t -> bool tzresult Lw (** Updating the delegate of a contract. - When calling this function on an "implicit contract" this function - fails, unless when the registered delegate is the contract manager. - In the that case, the manager is now registered as a delegate. One - cannot unregister a delegate for now. The associate contract is - now 'undeletable'. *) + When calling this function on an "implicit contract" and setting + the delegate to the contract manager registers it as a delegate. One + cannot unregister a delegate for now. The associate contract is now + 'undeletable'. *) val set: Raw_context.t -> Contract_repr.t -> Signature.Public_key_hash.t option -> Raw_context.t tzresult Lwt.t -(** Same as {!set} ignoring the [delegatable] flag. *) -val set_from_script: - Raw_context.t -> Contract_repr.t -> Signature.Public_key_hash.t option -> - Raw_context.t tzresult Lwt.t - type error += - | Non_delegatable_contract of Contract_repr.contract (* `Permanent *) | No_deletion of Signature.Public_key_hash.t (* `Permanent *) | Active_delegate (* `Temporary *) | Current_delegate (* `Temporary *) diff --git a/src/proto_alpha/lib_protocol/fees_storage.ml b/src/proto_alpha/lib_protocol/fees_storage.ml index e713d96f1439..67640e8558b9 100644 --- a/src/proto_alpha/lib_protocol/fees_storage.ml +++ b/src/proto_alpha/lib_protocol/fees_storage.ml @@ -97,7 +97,7 @@ let burn_storage_fees c ~storage_limit ~payer = else trace Cannot_pay_storage_fee (Contract_storage.must_exist c payer >>=? fun () -> - Contract_storage.spend_from_script c payer to_burn) >>=? fun c -> + Contract_storage.spend c payer to_burn) >>=? fun c -> return c let check_storage_limit c ~storage_limit = diff --git a/src/proto_alpha/lib_protocol/helpers_services.ml b/src/proto_alpha/lib_protocol/helpers_services.ml index 86a07db1ea95..ed37e1da4ece 100644 --- a/src/proto_alpha/lib_protocol/helpers_services.ml +++ b/src/proto_alpha/lib_protocol/helpers_services.ml @@ -194,10 +194,7 @@ module Scripts = struct | None -> assert false in Contract.originate ctxt dummy_contract ~balance - ~manager: Signature.Public_key_hash.zero ~delegate: None - ~spendable: false - ~delegatable: false ~script: (script, None) >>=? fun ctxt -> return (ctxt, dummy_contract) in register0 S.run_code begin fun ctxt () @@ -284,7 +281,7 @@ module Scripts = struct Lwt.return (Gas.check_limit ctxt gas_limit) >>=? fun () -> let ctxt = Gas.set_limit ctxt gas_limit in Lwt.return (Fees.check_storage_limit ctxt storage_limit) >>=? fun () -> - Contract.must_be_allocated ctxt source >>=? fun () -> + Contract.must_be_allocated ctxt (Contract.implicit_contract source) >>=? fun () -> Contract.check_counter_increment ctxt source counter >>=? fun () -> begin match operation with @@ -302,7 +299,7 @@ module Scripts = struct (* Fail if not enough gas for complete deserialization cost *) trace Apply.Gas_quota_exceeded_init_deserialize @@ Script.force_decode ctxt arg >>|? fun (_arg, ctxt) -> ctxt - | Origination { script = Some script ; _ } -> + | Origination { script = script ; _ } -> (* Here the data comes already deserialized, so we need to fake the deserialization to mimic apply *) let script_bytes = Data_encoding.Binary.to_bytes_exn Script.encoding script in let script = match Data_encoding.Binary.of_bytes Script.encoding script_bytes with @@ -322,7 +319,7 @@ module Scripts = struct Contract.get_manager_key ctxt source >>=? fun _public_key -> (* signature check unplugged from here *) Contract.increment_counter ctxt source >>=? fun ctxt -> - Contract.spend ctxt source fee >>=? fun ctxt -> + Contract.spend ctxt (Contract.implicit_contract source) fee >>=? fun ctxt -> return ctxt in let rec partial_precheck_manager_contents_list : type kind. @@ -479,7 +476,7 @@ module Forge = struct ~gas_limit ~storage_limit operations = Contract_services.manager_key ctxt block source >>= function | Error _ as e -> Lwt.return e - | Ok (_, revealed) -> + | Ok revealed -> let ops = List.map (fun (Manager operation) -> @@ -517,18 +514,13 @@ module Forge = struct let origination ctxt block ~branch ~source ?sourcePubKey ~counter - ~managerPubKey ~balance - ?(spendable = true) - ?(delegatable = true) - ?delegatePubKey ?script + ~balance + ?delegatePubKey ~script ~gas_limit ~storage_limit ~fee () = operations ctxt block ~branch ~source ?sourcePubKey ~counter ~fee ~gas_limit ~storage_limit - [Manager (Origination { manager = managerPubKey ; - delegate = delegatePubKey ; + [Manager (Origination { delegate = delegatePubKey ; script ; - spendable ; - delegatable ; credit = balance ; preorigination = None })] diff --git a/src/proto_alpha/lib_protocol/helpers_services.mli b/src/proto_alpha/lib_protocol/helpers_services.mli index 85a3ca8c18f2..fc205d97b945 100644 --- a/src/proto_alpha/lib_protocol/helpers_services.mli +++ b/src/proto_alpha/lib_protocol/helpers_services.mli @@ -91,7 +91,7 @@ module Forge : sig val operations: 'a #RPC_context.simple -> 'a -> branch:Block_hash.t -> - source:Contract.t -> + source:public_key_hash -> ?sourcePubKey:public_key -> counter:counter -> fee:Tez.t -> @@ -102,7 +102,7 @@ module Forge : sig val reveal: 'a #RPC_context.simple -> 'a -> branch:Block_hash.t -> - source:Contract.t -> + source:public_key_hash -> sourcePubKey:public_key -> counter:counter -> fee:Tez.t -> @@ -111,7 +111,7 @@ module Forge : sig val transaction: 'a #RPC_context.simple -> 'a -> branch:Block_hash.t -> - source:Contract.t -> + source:public_key_hash -> ?sourcePubKey:public_key -> counter:counter -> amount:Tez.t -> @@ -126,15 +126,12 @@ module Forge : sig val origination: 'a #RPC_context.simple -> 'a -> branch:Block_hash.t -> - source:Contract.t -> + source:public_key_hash -> ?sourcePubKey:public_key -> counter:counter -> - managerPubKey:public_key_hash -> balance:Tez.t -> - ?spendable:bool -> - ?delegatable:bool -> ?delegatePubKey: public_key_hash -> - ?script:Script.t -> + script:Script.t -> gas_limit:Z.t -> storage_limit:Z.t -> fee:Tez.t-> @@ -143,7 +140,7 @@ module Forge : sig val delegation: 'a #RPC_context.simple -> 'a -> branch:Block_hash.t -> - source:Contract.t -> + source:public_key_hash -> ?sourcePubKey:public_key -> counter:counter -> fee:Tez.t -> diff --git a/src/proto_alpha/lib_protocol/init_storage.ml b/src/proto_alpha/lib_protocol/init_storage.ml index 51d03b01ef59..5bd66fb1cbbc 100644 --- a/src/proto_alpha/lib_protocol/init_storage.ml +++ b/src/proto_alpha/lib_protocol/init_storage.ml @@ -58,13 +58,12 @@ let transform_script: script_code: Script_repr.lazy_expr -> script_storage: Script_repr.lazy_expr -> (Script_repr.lazy_expr * Script_repr.lazy_expr) tzresult Lwt.t) -> + manager_pkh: Signature.Public_key_hash.t -> Raw_context.t -> Contract_repr.t -> Script_repr.lazy_expr -> Raw_context.t tzresult Lwt.t = - fun transformation ctxt contract code -> - (* Get the manager of the originated contract *) - Contract_storage.get_manager ctxt contract >>=? fun manager_pkh -> + fun transformation ~manager_pkh ctxt contract code -> Storage.Contract.Storage.get ctxt contract >>=? fun (_ctxt, storage) -> transformation manager_pkh code storage >>=? fun (migrated_code, migrated_storage) -> (* Set the migrated script code for free *) @@ -96,10 +95,16 @@ let process_contract_add_manager contract ctxt = match Contract_repr.is_originated contract with | None -> return ctxt (* Only process originated contracts *) | Some _ -> begin - Storage.Contract.Spendable.mem ctxt contract >>= fun is_spendable -> - Storage.Contract.Delegatable.mem ctxt contract >>= fun is_delegatable -> + Storage.Contract.Counter.remove ctxt contract >>= fun ctxt -> + Storage.Contract.Spendable_004.mem ctxt contract >>= fun is_spendable -> + Storage.Contract.Delegatable_004.mem ctxt contract >>= fun is_delegatable -> + Storage.Contract.Spendable_004.del ctxt contract >>= fun ctxt -> + Storage.Contract.Delegatable_004.del ctxt contract >>= fun ctxt -> (* Try to get script code (ignore ctxt update to discard the initialization) *) Storage.Contract.Code.get_option ctxt contract >>=? fun (_ctxt, code) -> + (* Get the manager of the originated contract *) + Contract_storage.get_manager_004 ctxt contract >>=? fun manager_pkh -> + Storage.Contract.Manager.remove ctxt contract >>= fun ctxt -> match code with | Some code -> (* @@ -111,20 +116,18 @@ let process_contract_add_manager contract ctxt = | false | false | nothing | *) if is_spendable then - transform_script add_do ctxt contract code + transform_script add_do ~manager_pkh ctxt contract code else if is_delegatable then - transform_script add_set_delegate ctxt contract code + transform_script add_set_delegate ~manager_pkh ctxt contract code else if has_default_entrypoint code then transform_script (fun ~manager_pkh:_ ~script_code ~script_storage -> add_root_entrypoint script_code >>=? fun script_code -> return (script_code, script_storage)) - ctxt contract code + ~manager_pkh ctxt contract code else return ctxt | None -> begin - (* Get the manager of the originated contract *) - Contract_storage.get_manager ctxt contract >>=? fun manager_pkh -> (* Initialize the script code for free *) Storage.Contract.Code.init_free ctxt contract manager_script_code >>=? fun (ctxt, code_size) -> let storage = manager_script_storage manager_pkh in @@ -176,8 +179,8 @@ let migrate_multisig_script (ctxt : Raw_context.t) (contract : Contract_repr.t) Storage.Contract.Code.set_free ctxt contract migrated_code >>=? fun (ctxt, _code_size_diff) -> (* Set the spendable and delegatable flags to false so that no entrypoint gets added by the [[process_contract_add_manager]] function. *) - Storage.Contract.Spendable.set ctxt contract false >>= fun ctxt -> - Storage.Contract.Delegatable.set ctxt contract false >>= fun ctxt -> + Storage.Contract.Spendable_004.set ctxt contract false >>= fun ctxt -> + Storage.Contract.Delegatable_004.set ctxt contract false >>= fun ctxt -> return ctxt (* The hash of the multisig contract; only contracts with this exact diff --git a/src/proto_alpha/lib_protocol/michelson_v1_gas.ml b/src/proto_alpha/lib_protocol/michelson_v1_gas.ml index a97fc96fbd7b..7f517721b85a 100644 --- a/src/proto_alpha/lib_protocol/michelson_v1_gas.ml +++ b/src/proto_alpha/lib_protocol/michelson_v1_gas.ml @@ -387,6 +387,12 @@ module Cost_of = struct | Create_account -> alloc_cost 2 | Implicit_account -> alloc_cost 1 | Create_contract _ -> alloc_cost 8 + (* Deducted the cost of removed arguments manager, spendable and delegatable: + - manager: key_hash = 1 + - spendable: bool = 0 + - delegatable: bool = 0 + *) + | Create_contract_2 _ -> alloc_cost 7 | Set_delegate -> alloc_cost 1 | Now -> alloc_cost 1 | Balance -> alloc_cost 1 diff --git a/src/proto_alpha/lib_protocol/operation_repr.ml b/src/proto_alpha/lib_protocol/operation_repr.ml index 1cd5fc7bd635..98de105f0711 100644 --- a/src/proto_alpha/lib_protocol/operation_repr.ml +++ b/src/proto_alpha/lib_protocol/operation_repr.ml @@ -98,7 +98,7 @@ and _ contents = ballot: Vote_repr.ballot ; } -> Kind.ballot contents | Manager_operation : { - source: Contract_repr.contract ; + source: Signature.public_key_hash ; fee: Tez_repr.tez ; counter: counter ; operation: 'kind manager_operation ; @@ -115,11 +115,8 @@ and _ manager_operation = destination: Contract_repr.contract ; } -> Kind.transaction manager_operation | Origination : { - manager: Signature.Public_key_hash.t ; delegate: Signature.Public_key_hash.t option ; - script: Script_repr.t option ; - spendable: bool ; - delegatable: bool ; + script: Script_repr.t ; credit: Tez_repr.tez ; preorigination: Contract_repr.t option ; } -> Kind.origination manager_operation @@ -277,32 +274,26 @@ module Encoding = struct tag = 2 ; name = "origination" ; encoding = - (obj6 - (req "manager_pubkey" Signature.Public_key_hash.encoding) + (obj3 (req "balance" Tez_repr.encoding) - (dft "spendable" bool true) - (dft "delegatable" bool true) (opt "delegate" Signature.Public_key_hash.encoding) - (opt "script" Script_repr.encoding)) ; + (req "script" Script_repr.encoding)) ; select = (function | Manager (Origination _ as op) -> Some op | _ -> None) ; proj = (function - | Origination { manager ; credit ; spendable ; - delegatable ; delegate ; script ; + | Origination { credit ; delegate ; script ; preorigination = _ (* the hash is only used internally when originating from smart contracts, don't serialize it *) } -> - (manager, credit, spendable, - delegatable, delegate, script)) ; + (credit, delegate, script)) ; inj = - (fun (manager, credit, spendable, delegatable, delegate, script) -> + (fun (credit, delegate, script) -> Origination - {manager ; credit ; spendable ; delegatable ; - delegate ; script ; preorigination = None }) + {credit ; delegate ; script ; preorigination = None }) } let delegation_case = @@ -507,7 +498,7 @@ module Encoding = struct let manager_encoding = (obj5 - (req "source" Contract_repr.encoding) + (req "source" Signature.Public_key_hash.encoding) (req "fee" Tez_repr.encoding) (req "counter" (check_size 10 n)) (req "gas_limit" (check_size 10 n)) diff --git a/src/proto_alpha/lib_protocol/operation_repr.mli b/src/proto_alpha/lib_protocol/operation_repr.mli index 7aaec4451d1b..dd46b15c909e 100644 --- a/src/proto_alpha/lib_protocol/operation_repr.mli +++ b/src/proto_alpha/lib_protocol/operation_repr.mli @@ -99,7 +99,7 @@ and _ contents = ballot: Vote_repr.ballot ; } -> Kind.ballot contents | Manager_operation : { - source: Contract_repr.contract ; + source: Signature.Public_key_hash.t ; fee: Tez_repr.tez ; counter: counter ; operation: 'kind manager_operation ; @@ -116,11 +116,8 @@ and _ manager_operation = destination: Contract_repr.contract ; } -> Kind.transaction manager_operation | Origination : { - manager: Signature.Public_key_hash.t ; delegate: Signature.Public_key_hash.t option ; - script: Script_repr.t option ; - spendable: bool ; - delegatable: bool ; + script: Script_repr.t ; credit: Tez_repr.tez ; preorigination: Contract_repr.t option ; } -> Kind.origination manager_operation diff --git a/src/proto_alpha/lib_protocol/script_interpreter.ml b/src/proto_alpha/lib_protocol/script_interpreter.ml index 63b687bd8217..c56bd3be1c2e 100644 --- a/src/proto_alpha/lib_protocol/script_interpreter.ml +++ b/src/proto_alpha/lib_protocol/script_interpreter.ml @@ -773,13 +773,22 @@ let rec interp Lwt.return (fresh_internal_nonce ctxt) >>=? fun (ctxt, nonce) -> logged_return (Item (Internal_operation { source = self ; operation ; nonce }, rest), ctxt) | Create_account, - Item (manager, Item (delegate, Item (delegatable, Item (credit, rest)))) -> + Item (manager, Item (delegate, Item (_delegatable, Item (credit, rest)))) -> Lwt.return (Gas.consume ctxt Interp_costs.create_account) >>=? fun ctxt -> Contract.fresh_contract_from_current_nonce ctxt >>=? fun (ctxt, contract) -> + (* store in optimized binary representation - as unparsed with [Optimized]. *) + let manager_bytes = + Data_encoding.Binary.to_bytes_exn Signature.Public_key_hash.encoding manager in + let storage = + Script_repr.lazy_expr @@ Micheline.strip_locations @@ + Micheline.Bytes (0, manager_bytes) in + let script = + { code = Legacy_support.manager_script_code ; + storage ; + } in let operation = Origination - { credit ; manager ; delegate ; preorigination = Some contract ; - delegatable ; script = None ; spendable = true } in + { credit ; delegate ; preorigination = Some contract ; script } in Lwt.return (fresh_internal_nonce ctxt) >>=? fun (ctxt, nonce) -> logged_return (Item (Internal_operation { source = self ; operation ; nonce }, Item ((contract, "default"), rest)), ctxt) @@ -799,6 +808,45 @@ let rec interp let unparsed_param_type = Script_ir_translator.add_field_annot (Option.map ~f:(fun n -> `Field_annot n) root_name) None unparsed_param_type in unparse_ty ctxt storage_type >>=? fun (unparsed_storage_type, ctxt) -> + let code = + Script.lazy_expr @@ + Micheline.strip_locations + (Seq (0, [ Prim (0, K_parameter, [ unparsed_param_type ], []) ; + Prim (0, K_storage, [ unparsed_storage_type ], []) ; + Prim (0, K_code, [ Micheline.root code ], []) ])) in + unparse_data ctxt Optimized storage_type init >>=? fun (storage, ctxt) -> + let storage = Script.lazy_expr @@ Micheline.strip_locations storage in + begin + if spendable then + Legacy_support.add_do ~manager_pkh:manager + ~script_code:code ~script_storage:storage + else if delegatable then + Legacy_support.add_set_delegate ~manager_pkh:manager + ~script_code:code ~script_storage:storage + else if Legacy_support.has_default_entrypoint code then + Legacy_support.add_root_entrypoint code >>=? fun code -> + return (code, storage) + else return (code, storage) + end >>=? fun (code, storage) -> + Contract.fresh_contract_from_current_nonce ctxt >>=? fun (ctxt, contract) -> + let operation = + Origination + { credit ; delegate ; preorigination = Some contract ; + script = { code ; storage } } in + Lwt.return (fresh_internal_nonce ctxt) >>=? fun (ctxt, nonce) -> + logged_return + (Item (Internal_operation { source = self ; operation ; nonce }, + Item ((contract, "default"), rest)), ctxt) + | Create_contract_2 (storage_type, param_type, Lam (_, code), root_name), + (* Removed the instruction's arguments manager, spendable and delegatable *) + Item (delegate, Item + (credit, Item + (init, rest))) -> + Lwt.return (Gas.consume ctxt Interp_costs.create_contract) >>=? fun ctxt -> + unparse_ty ctxt param_type >>=? fun (unparsed_param_type, ctxt) -> + let unparsed_param_type = + Script_ir_translator.add_field_annot (Option.map ~f:(fun n -> `Field_annot n) root_name) None unparsed_param_type in + unparse_ty ctxt storage_type >>=? fun (unparsed_storage_type, ctxt) -> let code = Micheline.strip_locations (Seq (0, [ Prim (0, K_parameter, [ unparsed_param_type ], []) ; @@ -807,18 +855,11 @@ let rec interp unparse_data ctxt Optimized storage_type init >>=? fun (storage, ctxt) -> let storage = Micheline.strip_locations storage in Contract.fresh_contract_from_current_nonce ctxt >>=? fun (ctxt, contract) -> - let code = Script.lazy_expr code in - begin - if Legacy_support.has_default_entrypoint code then - Legacy_support.add_root_entrypoint code - else return code - end >>=? fun code -> let operation = Origination - { credit ; manager ; delegate ; preorigination = Some contract ; - delegatable ; spendable ; - script = Some { code ; - storage = Script.lazy_expr storage } } in + { credit ; delegate ; preorigination = Some contract ; + script = { code = Script.lazy_expr code ; + storage = Script.lazy_expr storage } } in Lwt.return (fresh_internal_nonce ctxt) >>=? fun (ctxt, nonce) -> logged_return (Item (Internal_operation { source = self ; operation ; nonce }, diff --git a/src/proto_alpha/lib_protocol/script_ir_translator.ml b/src/proto_alpha/lib_protocol/script_ir_translator.ml index 29cadd5a8d65..c3a6d6f99623 100644 --- a/src/proto_alpha/lib_protocol/script_ir_translator.ml +++ b/src/proto_alpha/lib_protocol/script_ir_translator.ml @@ -40,7 +40,8 @@ type ex_stack_ty = Ex_stack_ty : 'a stack_ty -> ex_stack_ty type tc_context = | Lambda : tc_context | Dip : 'a stack_ty * tc_context -> tc_context - | Toplevel : { storage_type : 'sto ty ; param_type : 'param ty ; root_name : string option } -> tc_context + | Toplevel : { storage_type : 'sto ty ; param_type : 'param ty ; root_name : string option ; + legacy_create_contract_literal : bool } -> tc_context type unparsing_mode = Optimized | Readable @@ -226,6 +227,7 @@ let number_of_generated_growing_types : type b a. (b, a) instr -> int = function | Create_account -> 0 | Implicit_account -> 0 | Create_contract _ -> 1 + | Create_contract_2 _ -> 1 | Now -> 0 | Balance -> 0 | Check_signature -> 0 @@ -1388,7 +1390,7 @@ let find_entrypoint_for_type | "default", Some "root" -> begin match find_entrypoint full ~root_name entrypoint with | Error _ as err -> err - | Ok (f, Ex_ty ty) -> + | Ok (_, Ex_ty ty) -> match ty_eq ctxt expected ty with | Ok (Eq, ctxt) -> ok (ctxt, "default", (ty : exp ty)) @@ -2945,9 +2947,16 @@ and parse_instr (Option_t (Key_hash_t _, _), Item_t (Bool_t _, Item_t (Mutez_t _, rest, _), _), _), _) -> - parse_two_var_annot loc annot >>=? fun (op_annot, addr_annot) -> - typed ctxt loc Create_account - (Item_t (Operation_t None, Item_t (Address_t None, rest, addr_annot), op_annot)) + if legacy + then begin + (* For existing contracts, this instruction is still allowed *) + parse_two_var_annot loc annot >>=? fun (op_annot, addr_annot) -> + typed ctxt loc Create_account + (Item_t (Operation_t None, Item_t (Address_t None, rest, addr_annot), op_annot)) + end + else + (* For new contracts this instruction is not allowed anymore *) + fail (Deprecated_instruction I_CREATE_ACCOUNT) | Prim (loc, I_IMPLICIT_ACCOUNT, [], annot), Item_t (Key_hash_t _, rest, _) -> parse_var_annot loc annot >>=? fun annot -> @@ -2961,6 +2970,57 @@ and parse_instr (Bool_t _, Item_t (Mutez_t _, Item_t (ginit, rest, _), _), _), _), _), _) -> + if legacy then begin + (* For existing contracts, this instruction is still allowed *) + parse_two_var_annot loc annot >>=? fun (op_annot, addr_annot) -> + let cannonical_code = fst @@ Micheline.extract_locations code in + Lwt.return @@ parse_toplevel ~legacy cannonical_code >>=? fun (arg_type, storage_type, code_field, root_name) -> + trace + (Ill_formed_type (Some "parameter", cannonical_code, location arg_type)) + (Lwt.return @@ parse_parameter_ty ctxt ~legacy arg_type) + >>=? fun (Ex_ty arg_type, ctxt) -> + begin + if legacy then Error_monad.return () else + Lwt.return (well_formed_entrypoints ~root_name arg_type) + end >>=? fun () -> + trace + (Ill_formed_type (Some "storage", cannonical_code, location storage_type)) + (Lwt.return @@ parse_storage_ty ctxt ~legacy storage_type) + >>=? fun (Ex_ty storage_type, ctxt) -> + let arg_annot = default_annot (type_to_var_annot (name_of_ty arg_type)) + ~default:default_param_annot in + let storage_annot = default_annot (type_to_var_annot (name_of_ty storage_type)) + ~default:default_storage_annot in + let arg_type_full = Pair_t ((arg_type, None, arg_annot), + (storage_type, None, storage_annot), None) in + let ret_type_full = + Pair_t ((List_t (Operation_t None, None), None, None), + (storage_type, None, None), None) in + trace + (Ill_typed_contract (cannonical_code, [])) + (parse_returning (Toplevel { storage_type ; param_type = arg_type ; root_name ; + legacy_create_contract_literal = true }) + ctxt ~legacy ?type_logger (arg_type_full, None) ret_type_full code_field) >>=? + fun (Lam ({ bef = Item_t (arg, Empty_t, _) ; + aft = Item_t (ret, Empty_t, _) ; _ }, _) as lambda, ctxt) -> + Lwt.return @@ ty_eq ctxt arg arg_type_full >>=? fun (Eq, ctxt) -> + Lwt.return @@ merge_types ~legacy ctxt loc arg arg_type_full >>=? fun (_, ctxt) -> + Lwt.return @@ ty_eq ctxt ret ret_type_full >>=? fun (Eq, ctxt) -> + Lwt.return @@ merge_types ~legacy ctxt loc ret ret_type_full >>=? fun (_, ctxt) -> + Lwt.return @@ ty_eq ctxt storage_type ginit >>=? fun (Eq, ctxt) -> + Lwt.return @@ merge_types ~legacy ctxt loc storage_type ginit >>=? fun (_, ctxt) -> + typed ctxt loc (Create_contract (storage_type, arg_type, lambda, root_name)) + (Item_t (Operation_t None, Item_t (Address_t None, rest, addr_annot), op_annot)) + end + else + (* For new contracts this instruction is not allowed anymore *) + fail (Deprecated_instruction I_CREATE_CONTRACT) + | Prim (loc, I_CREATE_CONTRACT, [ (Seq _ as code)], annot), + (* Removed the instruction's arguments manager, spendable and delegatable *) + Item_t + (Option_t (Key_hash_t _, _), Item_t + (Mutez_t _, Item_t + (ginit, rest, _), _), _) -> parse_two_var_annot loc annot >>=? fun (op_annot, addr_annot) -> let cannonical_code = fst @@ Micheline.extract_locations code in Lwt.return @@ parse_toplevel ~legacy cannonical_code >>=? fun (arg_type, storage_type, code_field, root_name) -> @@ -2987,7 +3047,8 @@ and parse_instr (storage_type, None, None), None) in trace (Ill_typed_contract (cannonical_code, [])) - (parse_returning (Toplevel { storage_type ; param_type = arg_type ; root_name }) + (parse_returning (Toplevel { storage_type ; param_type = arg_type ; root_name ; + legacy_create_contract_literal = false }) ctxt ~legacy ?type_logger (arg_type_full, None) ret_type_full code_field) >>=? fun (Lam ({ bef = Item_t (arg, Empty_t, _) ; aft = Item_t (ret, Empty_t, _) ; _ }, _) as lambda, ctxt) -> @@ -2997,7 +3058,7 @@ and parse_instr Lwt.return @@ merge_types ~legacy ctxt loc ret ret_type_full >>=? fun (_, ctxt) -> Lwt.return @@ ty_eq ctxt storage_type ginit >>=? fun (Eq, ctxt) -> Lwt.return @@ merge_types ~legacy ctxt loc storage_type ginit >>=? fun (_, ctxt) -> - typed ctxt loc (Create_contract (storage_type, arg_type, lambda, root_name)) + typed ctxt loc (Create_contract_2 (storage_type, arg_type, lambda, root_name)) (Item_t (Operation_t None, Item_t (Address_t None, rest, addr_annot), op_annot)) | Prim (loc, I_NOW, [], annot), stack -> @@ -3066,9 +3127,12 @@ and parse_instr let rec get_toplevel_type : tc_context -> (bef judgement * context) tzresult Lwt.t = function | Lambda -> fail (Self_in_lambda loc) | Dip (_, prev) -> get_toplevel_type prev - | Toplevel { param_type ; root_name ; _ } -> + | Toplevel { param_type ; root_name ; legacy_create_contract_literal = false} -> Lwt.return (find_entrypoint param_type ~root_name entrypoint) >>=? fun (_, Ex_ty param_type) -> typed ctxt loc (Self (param_type, entrypoint)) + (Item_t (Contract_t (param_type, None), stack, annot)) + | Toplevel { param_type ; root_name = _ ; legacy_create_contract_literal = true} -> + typed ctxt loc (Self (param_type, "default")) (Item_t (Contract_t (param_type, None), stack, annot)) in get_toplevel_type tc_context (* Primitive parsing errors *) @@ -3362,7 +3426,8 @@ let parse_script (parse_data ?type_logger ctxt ~legacy storage_type (root storage)) >>=? fun (storage, ctxt) -> trace (Ill_typed_contract (code, [])) - (parse_returning (Toplevel { storage_type ; param_type = arg_type ; root_name }) + (parse_returning (Toplevel { storage_type ; param_type = arg_type ; root_name ; + legacy_create_contract_literal = false}) ctxt ~legacy ?type_logger (arg_type_full, None) ret_type_full code_field) >>=? fun (code, ctxt) -> return (Ex_script { code ; arg_type ; storage ; storage_type ; root_name }, ctxt) @@ -3395,7 +3460,8 @@ let typecheck_code (storage_type, None, None), None) in let result = parse_returning - (Toplevel { storage_type ; param_type = arg_type ; root_name }) + (Toplevel { storage_type ; param_type = arg_type ; root_name ; + legacy_create_contract_literal = false }) ctxt ~legacy ~type_logger: (fun loc bef aft -> type_map := (loc, (bef, aft)) :: !type_map) (arg_type_full, None) ret_type_full code_field in diff --git a/src/proto_alpha/lib_protocol/script_tc_errors.ml b/src/proto_alpha/lib_protocol/script_tc_errors.ml index 59b2e24d9a91..db928d3c483f 100644 --- a/src/proto_alpha/lib_protocol/script_tc_errors.ml +++ b/src/proto_alpha/lib_protocol/script_tc_errors.ml @@ -88,3 +88,6 @@ type error += Ill_typed_contract : Script.expr * type_map -> error (* Gas related errors *) type error += Cannot_serialize_error + +(* Deprecation errors *) +type error += Deprecated_instruction of prim diff --git a/src/proto_alpha/lib_protocol/script_tc_errors_registration.ml b/src/proto_alpha/lib_protocol/script_tc_errors_registration.ml index 16bd49c1862a..89391cdf2e7e 100644 --- a/src/proto_alpha/lib_protocol/script_tc_errors_registration.ml +++ b/src/proto_alpha/lib_protocol/script_tc_errors_registration.ml @@ -691,4 +691,14 @@ let () = the provided gas" Data_encoding.empty (function Cannot_serialize_error -> Some () | _ -> None) - (fun () -> Cannot_serialize_error) + (fun () -> Cannot_serialize_error) ; + (* Deprecated instruction *) + register_error_kind + `Permanent + ~id:"michelson_v1.deprecated_instruction" + ~title:"Script is using a deprecated instruction" + ~description: + "A deprecated instruction usage is disallowed in newly created contracts" + (obj1 (req "prim" prim_encoding)) + (function Deprecated_instruction prim -> Some prim | _ -> None) + (fun prim -> Deprecated_instruction prim) ; diff --git a/src/proto_alpha/lib_protocol/script_typed_ir.ml b/src/proto_alpha/lib_protocol/script_typed_ir.ml index 0e2f87e58fb4..8b70e242a058 100644 --- a/src/proto_alpha/lib_protocol/script_typed_ir.ml +++ b/src/proto_alpha/lib_protocol/script_typed_ir.ml @@ -362,6 +362,8 @@ and ('bef, 'aft) instr = | Create_contract : 'g ty * 'p ty * ('p * 'g, packed_internal_operation list * 'g) lambda * string option -> (public_key_hash * (public_key_hash option * (bool * (bool * (Tez.t * ('g * 'rest))))), packed_internal_operation * (address * 'rest)) instr + | Create_contract_2 : 'g ty * 'p ty * ('p * 'g, packed_internal_operation list * 'g) lambda * string option -> + (public_key_hash option * (Tez.t * ('g * 'rest)), packed_internal_operation * (address * 'rest)) instr | Set_delegate : (public_key_hash option * 'rest, packed_internal_operation * 'rest) instr | Now : diff --git a/src/proto_alpha/lib_protocol/storage.ml b/src/proto_alpha/lib_protocol/storage.ml index f6657328da19..dd2af7e7a4ed 100644 --- a/src/proto_alpha/lib_protocol/storage.ml +++ b/src/proto_alpha/lib_protocol/storage.ml @@ -132,12 +132,12 @@ module Contract = struct (struct let name = ["manager"] end) (Manager_repr) - module Spendable = - Indexed_context.Make_set + module Spendable_004 = + Indexed_context.Make_set(Ghost) (struct let name = ["spendable"] end) - module Delegatable = - Indexed_context.Make_set + module Delegatable_004 = + Indexed_context.Make_set(Ghost) (struct let name = ["delegatable"] end) module Delegate = @@ -146,7 +146,7 @@ module Contract = struct (Signature.Public_key_hash) module Inactive_delegate = - Indexed_context.Make_set + Indexed_context.Make_set(Registered) (struct let name = ["inactive_delegate"] end) module Delegate_desactivation = diff --git a/src/proto_alpha/lib_protocol/storage.mli b/src/proto_alpha/lib_protocol/storage.mli index 47989c0dbaf6..308743f96888 100644 --- a/src/proto_alpha/lib_protocol/storage.mli +++ b/src/proto_alpha/lib_protocol/storage.mli @@ -177,11 +177,11 @@ module Contract : sig and type value = Cycle_repr.t and type t := Raw_context.t - module Spendable : Data_set_storage + module Spendable_004 : Data_set_storage with type elt = Contract_repr.t and type t := Raw_context.t - module Delegatable : Data_set_storage + module Delegatable_004 : Data_set_storage with type elt = Contract_repr.t and type t := Raw_context.t diff --git a/src/proto_alpha/lib_protocol/storage_functors.ml b/src/proto_alpha/lib_protocol/storage_functors.ml index 0b73eef73468..319fd0a7821b 100644 --- a/src/proto_alpha/lib_protocol/storage_functors.ml +++ b/src/proto_alpha/lib_protocol/storage_functors.ml @@ -25,7 +25,6 @@ open Storage_sigs -module type REGISTER = sig val ghost : bool end module Registered = struct let ghost = false end module Ghost = struct let ghost = true end @@ -620,7 +619,7 @@ module Make_indexed_subcontext (C : Raw_context.T) (I : INDEX) | false -> Lwt.return_nil in loop 0 [] prefix - module Make_set (N : NAME) = struct + module Make_set (R : REGISTER) (N : NAME) = struct type t = C.t type context = t type elt = I.t @@ -658,13 +657,15 @@ module Make_indexed_subcontext (C : Raw_context.T) (I : INDEX) let () = let open Storage_description in let unpack = unpack I.args in + let description = if R.ghost then Storage_description.create () + else Raw_context.description in register_value ~get:(fun c -> let (c, k) = unpack c in mem c k >>= function | true -> return_some true | false -> return_none) - (register_named_subcontext Raw_context.description N.name) + (register_named_subcontext description N.name) Data_encoding.bool end diff --git a/src/proto_alpha/lib_protocol/storage_functors.mli b/src/proto_alpha/lib_protocol/storage_functors.mli index 08642f608fa2..6217cb9c0682 100644 --- a/src/proto_alpha/lib_protocol/storage_functors.mli +++ b/src/proto_alpha/lib_protocol/storage_functors.mli @@ -27,7 +27,6 @@ open Storage_sigs -module type REGISTER module Registered : REGISTER module Ghost : REGISTER diff --git a/src/proto_alpha/lib_protocol/storage_sigs.ml b/src/proto_alpha/lib_protocol/storage_sigs.ml index 4b4ffe31e6cb..f177072d2d43 100644 --- a/src/proto_alpha/lib_protocol/storage_sigs.ml +++ b/src/proto_alpha/lib_protocol/storage_sigs.ml @@ -358,6 +358,8 @@ module type VALUE = sig val encoding: t Data_encoding.t end +module type REGISTER = sig val ghost : bool end + module type Non_iterable_indexed_carbonated_data_storage_with_free = sig include Non_iterable_indexed_carbonated_data_storage @@ -387,7 +389,7 @@ module type Indexed_raw_context = sig val resolve: context -> string list -> key list Lwt.t - module Make_set (N : NAME) + module Make_set (R : REGISTER) (N : NAME) : Data_set_storage with type t = t and type elt = key -- GitLab From 497e6be2b1c06f978b30d4c292aeea615ad5e93f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Tom=C3=A1=C5=A1=20Zemanovi=C4=8D?= Date: Tue, 14 May 2019 16:48:56 +0200 Subject: [PATCH 049/252] Client: update to the new tz1/KT1 policy This is not a patch for the protocol. It does not affect the hash, but is needed for the client to work. --- .../lib_client/client_proto_context.ml | 99 +--- .../lib_client/client_proto_context.mli | 45 +- .../lib_client/client_proto_contracts.ml | 7 - .../lib_client/client_proto_contracts.mli | 7 - .../lib_client/client_proto_multisig.ml | 6 +- .../lib_client/client_proto_multisig.mli | 9 +- src/proto_alpha/lib_client/injection.ml | 2 +- src/proto_alpha/lib_client/injection.mli | 2 +- .../lib_client/operation_result.ml | 69 +-- .../client_proto_context_commands.ml | 546 +++++++----------- .../client_proto_multisig_commands.ml | 445 +++++++------- 11 files changed, 499 insertions(+), 738 deletions(-) diff --git a/src/proto_alpha/lib_client/client_proto_context.ml b/src/proto_alpha/lib_client/client_proto_context.ml index 6511becb2d2f..1b56dfb4497b 100644 --- a/src/proto_alpha/lib_client/client_proto_context.ml +++ b/src/proto_alpha/lib_client/client_proto_context.ml @@ -94,7 +94,7 @@ let reveal cctxt ~chain ~block ?confirmations ?dry_run ?verbose_signing ?branch >>=? fun pcounter -> let counter = Z.succ pcounter in Alpha_services.Contract.manager_key cctxt (chain, block) source - >>=? fun (_, key) -> + >>=? fun key -> match key with | Some _ -> failwith "The manager key was previously revealed." @@ -129,65 +129,6 @@ let reveal cctxt ~chain ~block ?confirmations ?dry_run ?verbose_signing ?branch -> return (oph, op, result) ) -let originate cctxt ~chain ~block ?confirmations ?dry_run ?verbose_signing - ?branch ~source ~src_pk ~src_sk ?fee ?gas_limit ?storage_limit - ~fee_parameter contents = - Injection.inject_manager_operation - cctxt - ~chain - ~block - ?confirmations - ?dry_run - ?verbose_signing - ?branch - ~source - ?fee - ?gas_limit - ?storage_limit - ~src_pk - ~src_sk - ~fee_parameter - contents - >>=? fun ((_oph, _op, result) as res) -> - Lwt.return (Injection.originated_contracts (Single_result result)) - >>=? function - | [contract] -> - return (res, contract) - | contracts -> - failwith - "The origination introduced %d contracts instead of one." - (List.length contracts) - -let originate_account cctxt ~chain ~block ?confirmations ?dry_run - ?verbose_signing ?branch ~source ~src_pk ~src_sk ~manager_pkh - ?(delegatable = false) ?delegate ~balance ?fee ~fee_parameter () = - let origination = - Origination - { - manager = manager_pkh; - delegate; - script = None; - spendable = true; - delegatable; - credit = balance; - preorigination = None; - } - in - originate - cctxt - ~chain - ~block - ?confirmations - ?dry_run - ?verbose_signing - ?branch - ~source - ~src_pk - ~src_sk - ?fee - ~fee_parameter - origination - let delegate_contract cctxt ~chain ~block ?branch ?confirmations ?dry_run ?verbose_signing ~source ~src_pk ~src_sk ?fee ~fee_parameter delegate_opt = let operation = Delegation delegate_opt in @@ -247,13 +188,6 @@ let list_contract_labels cctxt ~chain ~block = let message_added_contract (cctxt : #full) name = cctxt#message "Contract memorized as %s." name -let get_manager (cctxt : #full) ~chain ~block source = - Client_proto_contracts.get_manager cctxt ~chain ~block source - >>=? fun src_pkh -> - Client_keys.get_key cctxt src_pkh - >>=? fun (src_name, src_pk, src_sk) -> - return (src_name, src_pkh, src_pk, src_sk) - let set_delegate cctxt ~chain ~block ?confirmations ?dry_run ?verbose_signing ?fee contract ~src_pk ~manager_sk ~fee_parameter opt_delegate = delegate_contract @@ -280,17 +214,13 @@ let register_as_delegate cctxt ~chain ~block ?confirmations ?dry_run ?confirmations ?dry_run ?verbose_signing - ~source:(Contract.implicit_contract source) + ~source ~src_pk ~src_sk:manager_sk ?fee ~fee_parameter (Some source) -let source_to_keys (wallet : #full) ~chain ~block source = - get_manager wallet ~chain ~block source - >>=? fun (_src_name, _src_pkh, src_pk, src_sk) -> return (src_pk, src_sk) - let save_contract ~force cctxt alias_name contract = RawContractAlias.add ~force cctxt alias_name contract >>=? fun () -> @@ -298,8 +228,9 @@ let save_contract ~force cctxt alias_name contract = let originate_contract (cctxt : #full) ~chain ~block ?confirmations ?dry_run ?verbose_signing ?branch ?fee ?gas_limit ?storage_limit ~delegate - ?(delegatable = true) ?(spendable = false) ~initial_storage ~manager - ~balance ~source ~src_pk ~src_sk ~code ~fee_parameter () = + ~initial_storage ~balance ~source ~src_pk ~src_sk ~code ~fee_parameter () = + (* With the change of making implicit accounts delegatable, the following + 3 arguments are being defaulted before they can be safely removed. *) Lwt.return (Michelson_v1_parser.parse_expression initial_storage) >>= fun result -> Lwt.return (Micheline_parser.no_parsing_error result) @@ -308,16 +239,13 @@ let originate_contract (cctxt : #full) ~chain ~block ?confirmations ?dry_run let origination = Origination { - manager; delegate; - script = Some {code; storage}; - spendable; - delegatable; + script = {code; storage}; credit = balance; preorigination = None; } in - originate + Injection.inject_manager_operation cctxt ~chain ~block @@ -326,13 +254,22 @@ let originate_contract (cctxt : #full) ~chain ~block ?confirmations ?dry_run ?verbose_signing ?branch ~source - ~src_pk - ~src_sk ?fee ?gas_limit ?storage_limit + ~src_pk + ~src_sk ~fee_parameter origination + >>=? fun ((_oph, _op, result) as res) -> + Lwt.return (Injection.originated_contracts (Single_result result)) + >>=? function + | [contract] -> + return (res, contract) + | contracts -> + failwith + "The origination introduced %d contracts instead of one." + (List.length contracts) type activation_key = { pkh : Ed25519.Public_key_hash.t; diff --git a/src/proto_alpha/lib_client/client_proto_context.mli b/src/proto_alpha/lib_client/client_proto_context.mli index 9448725ca02a..5c6a2108c53a 100644 --- a/src/proto_alpha/lib_client/client_proto_context.mli +++ b/src/proto_alpha/lib_client/client_proto_context.mli @@ -54,13 +54,6 @@ val get_script : Contract.t -> Script.t option tzresult Lwt.t -val get_manager : - #Protocol_client_context.full -> - chain:Shell_services.chain -> - block:Shell_services.block -> - Contract.t -> - (string * public_key_hash * public_key * Client_keys.sk_uri) tzresult Lwt.t - val get_balance : #Protocol_client_context.rpc_context -> chain:Shell_services.chain -> @@ -76,7 +69,7 @@ val set_delegate : ?dry_run:bool -> ?verbose_signing:bool -> ?fee:Tez.tez -> - Contract.t -> + public_key_hash -> src_pk:public_key -> manager_sk:Client_keys.sk_uri -> fee_parameter:Injection.fee_parameter -> @@ -96,33 +89,6 @@ val register_as_delegate : public_key -> Kind.delegation Kind.manager Injection.result tzresult Lwt.t -val source_to_keys : - #Protocol_client_context.full -> - chain:Shell_services.chain -> - block:Shell_services.block -> - Contract.t -> - (public_key * Client_keys.sk_uri) tzresult Lwt.t - -val originate_account : - #Protocol_client_context.full -> - chain:Shell_services.chain -> - block:Shell_services.block -> - ?confirmations:int -> - ?dry_run:bool -> - ?verbose_signing:bool -> - ?branch:int -> - source:Contract.t -> - src_pk:public_key -> - src_sk:Client_keys.sk_uri -> - manager_pkh:public_key_hash -> - ?delegatable:bool -> - ?delegate:public_key_hash -> - balance:Tez.tez -> - ?fee:Tez.tez -> - fee_parameter:Injection.fee_parameter -> - unit -> - (Kind.origination Kind.manager Injection.result * Contract.t) tzresult Lwt.t - val save_contract : force:bool -> #Protocol_client_context.full -> @@ -142,12 +108,9 @@ val originate_contract : ?gas_limit:Z.t -> ?storage_limit:Z.t -> delegate:public_key_hash option -> - ?delegatable:bool -> - ?spendable:bool -> initial_storage:string -> - manager:public_key_hash -> balance:Tez.t -> - source:Contract.t -> + source:public_key_hash -> src_pk:public_key -> src_sk:Client_keys.sk_uri -> code:Script.expr -> @@ -163,7 +126,7 @@ val transfer : ?dry_run:bool -> ?verbose_signing:bool -> ?branch:int -> - source:Contract.t -> + source:public_key_hash -> src_pk:public_key -> src_sk:Client_keys.sk_uri -> destination:Contract.t -> @@ -187,7 +150,7 @@ val reveal : ?dry_run:bool -> ?verbose_signing:bool -> ?branch:int -> - source:Contract.t -> + source:public_key_hash -> src_pk:public_key -> src_sk:Client_keys.sk_uri -> ?fee:Tez.t -> diff --git a/src/proto_alpha/lib_client/client_proto_contracts.ml b/src/proto_alpha/lib_client/client_proto_contracts.ml index 886c68a04604..d3866ebf330f 100644 --- a/src/proto_alpha/lib_client/client_proto_contracts.ml +++ b/src/proto_alpha/lib_client/client_proto_contracts.ml @@ -170,12 +170,5 @@ let list_contracts cctxt = keys >>=? fun accounts -> return (contracts @ accounts) -let get_manager cctxt ~chain ~block source = - match Contract.is_implicit source with - | Some hash -> - return hash - | None -> - Alpha_services.Contract.manager cctxt (chain, block) source - let get_delegate cctxt ~chain ~block source = Alpha_services.Contract.delegate_opt cctxt (chain, block) source diff --git a/src/proto_alpha/lib_client/client_proto_contracts.mli b/src/proto_alpha/lib_client/client_proto_contracts.mli index 968f33f64a74..6e1427c4c81b 100644 --- a/src/proto_alpha/lib_client/client_proto_contracts.mli +++ b/src/proto_alpha/lib_client/client_proto_contracts.mli @@ -63,13 +63,6 @@ val list_contracts : #Client_context.wallet -> (string * string * RawContractAlias.t) list tzresult Lwt.t -val get_manager : - #Protocol_client_context.rpc_context -> - chain:Shell_services.chain -> - block:Shell_services.block -> - Contract.t -> - public_key_hash tzresult Lwt.t - val get_delegate : #Protocol_client_context.rpc_context -> chain:Shell_services.chain -> diff --git a/src/proto_alpha/lib_client/client_proto_multisig.ml b/src/proto_alpha/lib_client/client_proto_multisig.ml index f6d173104b00..1d34bed924b7 100644 --- a/src/proto_alpha/lib_client/client_proto_multisig.ml +++ b/src/proto_alpha/lib_client/client_proto_multisig.ml @@ -711,8 +711,7 @@ let check_threshold ~threshold ~keys () = let originate_multisig (cctxt : #Protocol_client_context.full) ~chain ~block ?confirmations ?dry_run ?branch ?fee ?gas_limit ?storage_limit ~delegate - ?(delegatable = false) ?(spendable = false) ~threshold ~keys ~manager - ~balance ~source ~src_pk ~src_sk ~fee_parameter () = + ~threshold ~keys ~balance ~source ~src_pk ~src_sk ~fee_parameter () = Lwt.return multisig_script >>=? fun code -> multisig_storage_string ~counter:Z.zero ~threshold ~keys () @@ -730,10 +729,7 @@ let originate_multisig (cctxt : #Protocol_client_context.full) ~chain ~block ?gas_limit ?storage_limit ~delegate - ~delegatable - ~spendable ~initial_storage - ~manager ~balance ~source ~src_pk diff --git a/src/proto_alpha/lib_client/client_proto_multisig.mli b/src/proto_alpha/lib_client/client_proto_multisig.mli index 5b435ae6dc3a..f7fa5a4f30ed 100644 --- a/src/proto_alpha/lib_client/client_proto_multisig.mli +++ b/src/proto_alpha/lib_client/client_proto_multisig.mli @@ -52,13 +52,10 @@ val originate_multisig : ?gas_limit:Z.t -> ?storage_limit:Z.t -> delegate:public_key_hash option -> - ?delegatable:bool -> - ?spendable:bool -> threshold:Z.t -> keys:public_key list -> - manager:public_key_hash -> balance:Tez.t -> - source:Contract.t -> + source:public_key_hash -> src_pk:public_key -> src_sk:Client_keys.sk_uri -> fee_parameter:Injection.fee_parameter -> @@ -81,7 +78,7 @@ val call_multisig : ?confirmations:int -> ?dry_run:bool -> ?branch:int -> - source:Contract.t -> + source:public_key_hash -> src_pk:public_key -> src_sk:Client_keys.sk_uri -> multisig_contract:Contract.t -> @@ -104,7 +101,7 @@ val call_multisig_on_bytes : ?confirmations:int -> ?dry_run:bool -> ?branch:int -> - source:Contract.t -> + source:public_key_hash -> src_pk:public_key -> src_sk:Client_keys.sk_uri -> multisig_contract:Contract.t -> diff --git a/src/proto_alpha/lib_client/injection.ml b/src/proto_alpha/lib_client/injection.ml index cea6000b3970..5ce1a3251749 100644 --- a/src/proto_alpha/lib_client/injection.ml +++ b/src/proto_alpha/lib_client/injection.ml @@ -823,7 +823,7 @@ let inject_manager_operation cctxt ~chain ~block ?branch ?confirmations return counter ) >>=? fun counter -> Alpha_services.Contract.manager_key cctxt (chain, block) source - >>=? fun (_, key) -> + >>=? fun key -> let is_reveal : type kind. kind manager_operation -> bool = function | Reveal _ -> true diff --git a/src/proto_alpha/lib_client/injection.mli b/src/proto_alpha/lib_client/injection.mli index 01859b9b0d56..150d0c91df5b 100644 --- a/src/proto_alpha/lib_client/injection.mli +++ b/src/proto_alpha/lib_client/injection.mli @@ -79,7 +79,7 @@ val inject_manager_operation : ?confirmations:int -> ?dry_run:bool -> ?verbose_signing:bool -> - source:Contract.t -> + source:Signature.Public_key_hash.t -> src_pk:Signature.public_key -> src_sk:Client_keys.sk_uri -> ?fee:Tez.t -> diff --git a/src/proto_alpha/lib_client/operation_result.ml b/src/proto_alpha/lib_client/operation_result.ml index 8b10b0c64553..fc2b1a90f497 100644 --- a/src/proto_alpha/lib_client/operation_result.ml +++ b/src/proto_alpha/lib_client/operation_result.ml @@ -60,48 +60,36 @@ let pp_manager_operation_content (type kind) source internal pp_result ppf Michelson_v1_printer.print_expr expr ) ; pp_result ppf result ; Format.fprintf ppf "@]" - | Origination - { manager; - delegate; - credit; - spendable; - delegatable; - script; - preorigination = _ } -> + | Origination {delegate; credit; script = {code; storage}; preorigination = _} + -> Format.fprintf ppf - "@[%s:@,From: %a@,For: %a@,Credit: %s%a" + "@[%s:@,From: %a@,Credit: %s%a" (if internal then "Internal origination" else "Origination") Contract.pp source - Signature.Public_key_hash.pp - manager Client_proto_args.tez_sym Tez.pp credit ; - ( match script with - | None -> - Format.fprintf ppf "@,No script (accepts all transactions)" - | Some {code; storage} -> - let code = - Option.unopt_exn - (Failure "ill-serialized code") - (Data_encoding.force_decode code) - and storage = - Option.unopt_exn - (Failure "ill-serialized storage") - (Data_encoding.force_decode storage) - in - let {Michelson_v1_parser.source; _} = - Michelson_v1_printer.unparse_toplevel code - in - Format.fprintf - ppf - "@,@[Script:@ @[%a@]@,@[Initial storage:@ %a@]" - Format.pp_print_text - source - Michelson_v1_printer.print_expr - storage ) ; + let code = + Option.unopt_exn + (Failure "ill-serialized code") + (Data_encoding.force_decode code) + and storage = + Option.unopt_exn + (Failure "ill-serialized storage") + (Data_encoding.force_decode storage) + in + let {Michelson_v1_parser.source; _} = + Michelson_v1_printer.unparse_toplevel code + in + Format.fprintf + ppf + "@,@[Script:@ @[%a@]@,@[Initial storage:@ %a@]" + Format.pp_print_text + source + Michelson_v1_printer.print_expr + storage ; ( match delegate with | None -> Format.fprintf ppf "@,No delegate for this contract" @@ -111,11 +99,7 @@ let pp_manager_operation_content (type kind) source internal pp_result ppf "@,Delegate: %a" Signature.Public_key_hash.pp delegate ) ; - if spendable then Format.fprintf ppf "@,Spendable by the manager" ; - if delegatable then - Format.fprintf ppf "@,Delegate can be changed by the manager" ; - pp_result ppf result ; - Format.fprintf ppf "@]" + pp_result ppf result ; Format.fprintf ppf "@]" | Reveal key -> Format.fprintf ppf @@ -344,7 +328,7 @@ let pp_manager_operation_contents_and_result ppf Expected counter: %s@,\ Gas limit: %s@,\ Storage limit: %s bytes" - Contract.pp + Signature.Public_key_hash.pp source Client_proto_args.tez_sym Tez.pp @@ -364,7 +348,10 @@ let pp_manager_operation_contents_and_result ppf Format.fprintf ppf "@,%a" - (pp_manager_operation_content source false pp_result) + (pp_manager_operation_content + (Contract.implicit_contract source) + false + pp_result) (operation, operation_result) ; ( match internal_operation_results with | [] -> diff --git a/src/proto_alpha/lib_client_commands/client_proto_context_commands.ml b/src/proto_alpha/lib_client_commands/client_proto_context_commands.ml index 9a74220b4cb8..fb2a5cbe540d 100644 --- a/src/proto_alpha/lib_client_commands/client_proto_context_commands.ml +++ b/src/proto_alpha/lib_client_commands/client_proto_context_commands.ml @@ -206,29 +206,6 @@ let commands version () = Michelson_v1_printer.unparse_toplevel code in cctxt#answer "%a" Format.pp_print_text source >>= return )); - command - ~group - ~desc:"Get the manager of a contract." - no_options - ( prefixes ["get"; "manager"; "for"] - @@ ContractAlias.destination_param ~name:"src" ~desc:"source contract" - @@ stop ) - (fun () (_, contract) (cctxt : Protocol_client_context.full) -> - Client_proto_contracts.get_manager - cctxt - ~chain:cctxt#chain - ~block:cctxt#block - contract - >>=? fun manager -> - Public_key_hash.rev_find cctxt manager - >>=? fun mn -> - Public_key_hash.to_source manager - >>=? fun m -> - cctxt#message - "%s (%s)" - m - (match mn with None -> "unknown" | Some n -> "known as " ^ n) - >>= fun () -> return_unit); command ~group ~desc:"Get the delegate of a contract." @@ -297,22 +274,26 @@ let commands version () = burn_cap; } in - source_to_keys cctxt ~chain:cctxt#chain ~block:cctxt#block contract - >>=? fun (src_pk, manager_sk) -> - set_delegate - cctxt - ~chain:cctxt#chain - ~block:cctxt#block - ?confirmations:cctxt#confirmations - ~dry_run - ~verbose_signing - ~fee_parameter - ?fee - contract - (Some delegate) - ~src_pk - ~manager_sk - >>=? fun _ -> return_unit); + match Contract.is_implicit contract with + | None -> + failwith "only implicit accounts can be delegated" + | Some mgr -> + Client_keys.get_key cctxt mgr + >>=? fun (_, src_pk, manager_sk) -> + set_delegate + cctxt + ~chain:cctxt#chain + ~block:cctxt#block + ?confirmations:cctxt#confirmations + ~dry_run + ~verbose_signing + ~fee_parameter + ?fee + mgr + (Some delegate) + ~src_pk + ~manager_sk + >>=? fun _ -> return_unit); command ~group ~desc:"Withdraw the delegate from a contract." @@ -340,120 +321,40 @@ let commands version () = burn_cap ) (_, contract) (cctxt : Protocol_client_context.full) -> - source_to_keys cctxt ~chain:cctxt#chain ~block:cctxt#block contract - >>=? fun (src_pk, manager_sk) -> - let fee_parameter = - { - Injection.minimal_fees; - minimal_nanotez_per_byte; - minimal_nanotez_per_gas_unit; - force_low_fee; - fee_cap; - burn_cap; - } - in - set_delegate - cctxt - ~chain:cctxt#chain - ~block:cctxt#block - ?confirmations:cctxt#confirmations - ~dry_run - ~verbose_signing - ~fee_parameter - contract - None - ?fee - ~src_pk - ~manager_sk - >>=? fun _ -> return_unit); - command - ~group - ~desc:"Open a new account." - (args12 - fee_arg - dry_run_switch - verbose_signing_switch - delegate_arg - delegatable_switch - (Client_keys.force_switch ()) - minimal_fees_arg - minimal_nanotez_per_byte_arg - minimal_nanotez_per_gas_unit_arg - force_low_fee_arg - fee_cap_arg - burn_cap_arg) - ( prefixes ["originate"; "account"] - @@ RawContractAlias.fresh_alias_param - ~name:"new" - ~desc:"name of the new contract" - @@ prefix "for" - @@ Public_key_hash.source_param - ~name:"mgr" - ~desc:"manager of the new contract" - @@ prefix "transferring" - @@ tez_param ~name:"qty" ~desc:"amount taken from source" - @@ prefix "from" - @@ ContractAlias.destination_param - ~name:"src" - ~desc:"name of the source contract" - @@ stop ) - (fun ( fee, - dry_run, - verbose_signing, - delegate, - delegatable, - force, - minimal_fees, - minimal_nanotez_per_byte, - minimal_nanotez_per_gas_unit, - force_low_fee, - fee_cap, - burn_cap ) - new_contract - manager_pkh - balance - (_, source) - (cctxt : Protocol_client_context.full) -> - RawContractAlias.of_fresh cctxt force new_contract - >>=? fun alias_name -> - source_to_keys cctxt ~chain:cctxt#chain ~block:cctxt#block source - >>=? fun (src_pk, src_sk) -> - let fee_parameter = - { - Injection.minimal_fees; - minimal_nanotez_per_byte; - minimal_nanotez_per_gas_unit; - force_low_fee; - fee_cap; - burn_cap; - } - in - originate_account - cctxt - ~chain:cctxt#chain - ~block:cctxt#block - ?confirmations:cctxt#confirmations - ~dry_run - ~verbose_signing - ?fee - ?delegate - ~delegatable - ~manager_pkh - ~balance - ~fee_parameter - ~source - ~src_pk - ~src_sk - () - >>=? fun (_res, contract) -> - if dry_run then return_unit - else - save_contract ~force cctxt alias_name contract - >>=? fun () -> return_unit); + match Contract.is_implicit contract with + | None -> + failwith "only implicit accounts can be delegated" + | Some mgr -> + Client_keys.get_key cctxt mgr + >>=? fun (_, src_pk, manager_sk) -> + let fee_parameter = + { + Injection.minimal_fees; + minimal_nanotez_per_byte; + minimal_nanotez_per_gas_unit; + force_low_fee; + fee_cap; + burn_cap; + } + in + set_delegate + cctxt + ~chain:cctxt#chain + ~block:cctxt#block + ?confirmations:cctxt#confirmations + ~dry_run + ~verbose_signing + ~fee_parameter + mgr + None + ?fee + ~src_pk + ~manager_sk + >>=? fun _ -> return_unit); command ~group ~desc:"Launch a smart contract on the blockchain." - (args17 + (args15 fee_arg dry_run_switch verbose_signing_switch @@ -461,8 +362,6 @@ let commands version () = storage_limit_arg delegate_arg (Client_keys.force_switch ()) - delegatable_switch - spendable_switch init_arg no_print_source_flag minimal_fees_arg @@ -475,10 +374,6 @@ let commands version () = @@ RawContractAlias.fresh_alias_param ~name:"new" ~desc:"name of the new contract" - @@ prefix "for" - @@ Public_key_hash.source_param - ~name:"mgr" - ~desc:"manager of the new contract" @@ prefix "transferring" @@ tez_param ~name:"qty" ~desc:"amount taken from source" @@ prefix "from" @@ -499,8 +394,6 @@ let commands version () = storage_limit, delegate, force, - delegatable, - spendable, initial_storage, no_print_source, minimal_fees, @@ -510,7 +403,6 @@ let commands version () = fee_cap, burn_cap ) alias_name - manager balance (_, source) program @@ -519,54 +411,56 @@ let commands version () = >>=? fun alias_name -> Lwt.return (Micheline_parser.no_parsing_error program) >>=? fun {expanded = code; _} -> - source_to_keys cctxt ~chain:cctxt#chain ~block:cctxt#block source - >>=? fun (src_pk, src_sk) -> - let fee_parameter = - { - Injection.minimal_fees; - minimal_nanotez_per_byte; - minimal_nanotez_per_gas_unit; - force_low_fee; - fee_cap; - burn_cap; - } - in - originate_contract - cctxt - ~chain:cctxt#chain - ~block:cctxt#block - ?confirmations:cctxt#confirmations - ~dry_run - ~verbose_signing - ?fee - ?gas_limit - ?storage_limit - ~delegate - ~delegatable - ~spendable - ~initial_storage - ~manager - ~balance - ~source - ~src_pk - ~src_sk - ~code - ~fee_parameter - () - >>= fun errors -> - report_michelson_errors - ~no_print_source - ~msg:"origination simulation failed" - cctxt - errors - >>= function + match Contract.is_implicit source with | None -> - return_unit - | Some (_res, contract) -> - if dry_run then return_unit - else - save_contract ~force cctxt alias_name contract - >>=? fun () -> return_unit); + failwith + "only implicit accounts can be the source of an origination" + | Some source -> ( + Client_keys.get_key cctxt source + >>=? fun (_, src_pk, src_sk) -> + let fee_parameter = + { + Injection.minimal_fees; + minimal_nanotez_per_byte; + minimal_nanotez_per_gas_unit; + force_low_fee; + fee_cap; + burn_cap; + } + in + originate_contract + cctxt + ~chain:cctxt#chain + ~block:cctxt#block + ?confirmations:cctxt#confirmations + ~dry_run + ~verbose_signing + ?fee + ?gas_limit + ?storage_limit + ~delegate + ~initial_storage + ~balance + ~source + ~src_pk + ~src_sk + ~code + ~fee_parameter + () + >>= fun errors -> + report_michelson_errors + ~no_print_source + ~msg:"origination simulation failed" + cctxt + errors + >>= function + | None -> + return_unit + | Some (_res, contract) -> + if dry_run then return_unit + else + save_contract ~force cctxt alias_name contract + >>=? fun () -> return_unit )); command ~group ~desc:"Transfer tokens / call a smart contract." @@ -616,44 +510,48 @@ let commands version () = (_, source) (_, destination) cctxt -> - source_to_keys cctxt ~chain:cctxt#chain ~block:cctxt#block source - >>=? fun (src_pk, src_sk) -> - let fee_parameter = - { - Injection.minimal_fees; - minimal_nanotez_per_byte; - minimal_nanotez_per_gas_unit; - force_low_fee; - fee_cap; - burn_cap; - } - in - transfer - cctxt - ~chain:cctxt#chain - ~block:cctxt#block - ?confirmations:cctxt#confirmations - ~dry_run - ~verbose_signing - ~fee_parameter - ~source - ?fee - ~src_pk - ~src_sk - ~destination - ?entrypoint - ?arg - ~amount - ?gas_limit - ?storage_limit - ?counter - () - >>= report_michelson_errors - ~no_print_source - ~msg:"transfer simulation failed" + match Contract.is_implicit source with + | None -> + failwith "only implicit accounts can be the source of a transfer" + | Some source -> ( + Client_keys.get_key cctxt source + >>=? fun (_, src_pk, src_sk) -> + let fee_parameter = + { + Injection.minimal_fees; + minimal_nanotez_per_byte; + minimal_nanotez_per_gas_unit; + force_low_fee; + fee_cap; + burn_cap; + } + in + transfer cctxt - >>= function - | None -> return_unit | Some (_res, _contracts) -> return_unit); + ~chain:cctxt#chain + ~block:cctxt#block + ?confirmations:cctxt#confirmations + ~dry_run + ~verbose_signing + ~fee_parameter + ~source + ?fee + ~src_pk + ~src_sk + ~destination + ?entrypoint + ?arg + ~amount + ?gas_limit + ?storage_limit + ?counter + () + >>= report_michelson_errors + ~no_print_source + ~msg:"transfer simulation failed" + cctxt + >>= function + | None -> return_unit | Some (_res, _contracts) -> return_unit )); command ~group ~desc:"Call a smart contract (same as 'transfer 0')." @@ -699,44 +597,48 @@ let commands version () = (_, source) (_, destination) cctxt -> - source_to_keys cctxt ~chain:cctxt#chain ~block:cctxt#block source - >>=? fun (src_pk, src_sk) -> - let fee_parameter = - { - Injection.minimal_fees; - minimal_nanotez_per_byte; - minimal_nanotez_per_gas_unit; - force_low_fee; - fee_cap; - burn_cap; - } - in - let amount = Tez.zero in - transfer - cctxt - ~chain:cctxt#chain - ~block:cctxt#block - ?confirmations:cctxt#confirmations - ~dry_run - ~verbose_signing - ~fee_parameter - ~source - ?fee - ~src_pk - ~src_sk - ~destination - ?arg - ~amount - ?gas_limit - ?storage_limit - ?counter - () - >>= report_michelson_errors - ~no_print_source - ~msg:"transfer simulation failed" + match Contract.is_implicit source with + | None -> + failwith "only implicit accounts can be the source of a transfer" + | Some source -> ( + Client_keys.get_key cctxt source + >>=? fun (_, src_pk, src_sk) -> + let fee_parameter = + { + Injection.minimal_fees; + minimal_nanotez_per_byte; + minimal_nanotez_per_gas_unit; + force_low_fee; + fee_cap; + burn_cap; + } + in + let amount = Tez.zero in + transfer cctxt - >>= function - | None -> return_unit | Some (_res, _contracts) -> return_unit); + ~chain:cctxt#chain + ~block:cctxt#block + ?confirmations:cctxt#confirmations + ~dry_run + ~verbose_signing + ~fee_parameter + ~source + ?fee + ~src_pk + ~src_sk + ~destination + ?arg + ~amount + ?gas_limit + ?storage_limit + ?counter + () + >>= report_michelson_errors + ~no_print_source + ~msg:"transfer simulation failed" + cctxt + >>= function + | None -> return_unit | Some (_res, _contracts) -> return_unit )); command ~group ~desc:"Reveal the public key of the contract manager." @@ -766,32 +668,36 @@ let commands version () = burn_cap ) (_, source) cctxt -> - source_to_keys cctxt ~chain:cctxt#chain ~block:cctxt#block source - >>=? fun (src_pk, src_sk) -> - let fee_parameter = - { - Injection.minimal_fees; - minimal_nanotez_per_byte; - minimal_nanotez_per_gas_unit; - force_low_fee; - fee_cap; - burn_cap; - } - in - reveal - cctxt - ~dry_run - ~verbose_signing - ~chain:cctxt#chain - ~block:cctxt#block - ?confirmations:cctxt#confirmations - ~source - ?fee - ~src_pk - ~src_sk - ~fee_parameter - () - >>=? fun _res -> return_unit); + match Contract.is_implicit source with + | None -> + failwith "only implicit accounts can be revealed" + | Some source -> + Client_keys.get_key cctxt source + >>=? fun (_, src_pk, src_sk) -> + let fee_parameter = + { + Injection.minimal_fees; + minimal_nanotez_per_byte; + minimal_nanotez_per_gas_unit; + force_low_fee; + fee_cap; + burn_cap; + } + in + reveal + cctxt + ~dry_run + ~verbose_signing + ~chain:cctxt#chain + ~block:cctxt#block + ?confirmations:cctxt#confirmations + ~source + ?fee + ~src_pk + ~src_sk + ~fee_parameter + () + >>=? fun _res -> return_unit); command ~group ~desc:"Register the public key hash as a delegate." @@ -1035,7 +941,7 @@ let commands version () = ~long:"force" ())) ( prefixes ["submit"; "proposals"; "for"] - @@ ContractAlias.destination_param + @@ Client_keys.Secret_key.alias_param ~name:"delegate" ~desc:"the delegate who makes the proposal" @@ seq_of_param @@ -1049,9 +955,13 @@ let commands version () = | Some hash -> return hash))) ) (fun (dry_run, verbose_signing, force) - (_name, source) + (src_name, src_sk) proposals (cctxt : Protocol_client_context.full) -> + Client_keys.neuterize src_sk + >>=? fun src_pk -> + Client_keys.public_key_hash src_pk + >>=? fun (src_pkh, _) -> get_period_info ~chain:cctxt#chain ~block:cctxt#block cctxt >>=? fun info -> ( match info.current_period_kind with @@ -1066,12 +976,6 @@ let commands version () = >>=? fun known_proposals -> Alpha_services.Voting.listings cctxt (cctxt#chain, cctxt#block) >>=? fun listings -> - Client_proto_context.get_manager - cctxt - ~chain:cctxt#chain - ~block:cctxt#block - source - >>=? fun (src_name, src_pkh, _src_pk, src_sk) -> (* for a proposal to be valid it must either a protocol that was already proposed by somebody else or a protocol known by the node, because the user is the first proposer and just injected it with @@ -1191,7 +1095,7 @@ let commands version () = ~desc:"Submit a ballot" (args2 verbose_signing_switch dry_run_switch) ( prefixes ["submit"; "ballot"; "for"] - @@ ContractAlias.destination_param + @@ Client_keys.Secret_key.alias_param ~name:"delegate" ~desc:"the delegate who votes" @@ param @@ -1221,10 +1125,14 @@ let commands version () = failwith "Invalid ballot: '%s'" s)) @@ stop ) (fun (verbose_signing, dry_run) - (_name, source) + (_, src_sk) proposal ballot (cctxt : Protocol_client_context.full) -> + Client_keys.neuterize src_sk + >>=? fun src_pk -> + Client_keys.public_key_hash src_pk + >>=? fun (src_pkh, _) -> get_period_info ~chain:cctxt#chain ~block:cctxt#block cctxt >>=? fun info -> ( match info.current_period_kind with @@ -1233,12 +1141,6 @@ let commands version () = | _ -> cctxt#error "Not in a Testing_vote or Promotion_vote period" ) >>=? fun () -> - Client_proto_context.get_manager - cctxt - ~chain:cctxt#chain - ~block:cctxt#block - source - >>=? fun (_src_name, src_pkh, _src_pk, src_sk) -> submit_ballot cctxt ~chain:cctxt#chain diff --git a/src/proto_alpha/lib_client_commands/client_proto_multisig_commands.ml b/src/proto_alpha/lib_client_commands/client_proto_multisig_commands.ml index e642b91ce803..e7487e272c0a 100644 --- a/src/proto_alpha/lib_client_commands/client_proto_multisig_commands.ml +++ b/src/proto_alpha/lib_client_commands/client_proto_multisig_commands.ml @@ -85,15 +85,13 @@ let commands () : #Protocol_client_context.full Clic.command list = [ command ~group ~desc:"Originate a new multisig contract." - (args15 + (args13 Client_proto_args.fee_arg Client_proto_context_commands.dry_run_switch Client_proto_args.gas_limit_arg Client_proto_args.storage_limit_arg Client_proto_args.delegate_arg (Client_keys.force_switch ()) - Client_proto_args.delegatable_switch - Client_proto_args.spendable_switch Client_proto_args.no_print_source_flag Client_proto_args.minimal_fees_arg Client_proto_args.minimal_nanotez_per_byte_arg @@ -105,10 +103,6 @@ let commands () : #Protocol_client_context.full Clic.command list = @@ Client_proto_contracts.RawContractAlias.fresh_alias_param ~name:"new_multisig" ~desc:"name of the new multisig contract" - @@ prefix "for" - @@ Client_keys.Public_key_hash.source_param - ~name:"mgr" - ~desc:"manager of the new multisig contract" @@ prefix "transferring" @@ Client_proto_args.tez_param ~name:"qty" @@ -127,8 +121,6 @@ let commands () : #Protocol_client_context.full Clic.command list = storage_limit, delegate, force, - delegatable, - spendable, no_print_source, minimal_fees, minimal_nanotez_per_byte, @@ -137,7 +129,6 @@ let commands () : #Protocol_client_context.full Clic.command list = fee_cap, burn_cap ) alias_name - manager balance (_, source) threshold @@ -148,63 +139,61 @@ let commands () : #Protocol_client_context.full Clic.command list = force alias_name >>=? fun alias_name -> - Client_proto_context.source_to_keys - cctxt - ~chain:cctxt#chain - ~block:cctxt#block - source - >>=? fun (src_pk, src_sk) -> - let fee_parameter = - { - Injection.minimal_fees; - minimal_nanotez_per_byte; - minimal_nanotez_per_gas_unit; - force_low_fee; - fee_cap; - burn_cap; - } - in - map_s (fun (pk_uri, _) -> Client_keys.public_key pk_uri) keys - >>=? fun keys -> - Client_proto_multisig.originate_multisig - cctxt - ~chain:cctxt#chain - ~block:cctxt#block - ?confirmations:cctxt#confirmations - ~dry_run - ?fee - ?gas_limit - ?storage_limit - ~delegate - ~delegatable - ~spendable - ~threshold:(Z.of_int threshold) - ~keys - ~manager - ~balance - ~source - ~src_pk - ~src_sk - ~fee_parameter - () - >>= fun errors -> - Client_proto_context_commands.report_michelson_errors - ~no_print_source - ~msg:"multisig origination simulation failed" - cctxt - errors - >>= function + match Contract.is_implicit source with | None -> - return_unit - | Some (_res, contract) -> - if dry_run then return_unit - else - Client_proto_context.save_contract - ~force - cctxt - alias_name - contract - >>=? fun () -> return_unit); + failwith + "only implicit accounts can be the source of an origination" + | Some source -> ( + Client_keys.get_key cctxt source + >>=? fun (_, src_pk, src_sk) -> + let fee_parameter = + { + Injection.minimal_fees; + minimal_nanotez_per_byte; + minimal_nanotez_per_gas_unit; + force_low_fee; + fee_cap; + burn_cap; + } + in + map_s (fun (pk_uri, _) -> Client_keys.public_key pk_uri) keys + >>=? fun keys -> + Client_proto_multisig.originate_multisig + cctxt + ~chain:cctxt#chain + ~block:cctxt#block + ?confirmations:cctxt#confirmations + ~dry_run + ?fee + ?gas_limit + ?storage_limit + ~delegate + ~threshold:(Z.of_int threshold) + ~keys + ~balance + ~source + ~src_pk + ~src_sk + ~fee_parameter + () + >>= fun errors -> + Client_proto_context_commands.report_michelson_errors + ~no_print_source + ~msg:"multisig origination simulation failed" + cctxt + errors + >>= function + | None -> + return_unit + | Some (_res, contract) -> + if dry_run then return_unit + else + Client_proto_context.save_contract + ~force + cctxt + alias_name + contract + >>=? fun () -> return_unit )); command ~group ~desc: @@ -607,47 +596,48 @@ let commands () : #Protocol_client_context.full Clic.command list = (_, source) signatures (cctxt : #Protocol_client_context.full) -> - Client_proto_context.source_to_keys - cctxt - ~chain:cctxt#chain - ~block:cctxt#block - source - >>=? fun (src_pk, src_sk) -> - let fee_parameter = - { - Injection.minimal_fees; - minimal_nanotez_per_byte; - minimal_nanotez_per_gas_unit; - force_low_fee; - fee_cap; - burn_cap; - } - in - Client_proto_multisig.call_multisig - cctxt - ~chain:cctxt#chain - ~block:cctxt#block - ?confirmations:cctxt#confirmations - ~dry_run - ~fee_parameter - ~source - ?fee - ~src_pk - ~src_sk - ~multisig_contract - ~action:(Client_proto_multisig.Transfer (amount, destination)) - ~signatures - ~amount:Tez.zero - ?gas_limit - ?storage_limit - ?counter - () - >>= Client_proto_context_commands.report_michelson_errors - ~no_print_source - ~msg:"transfer simulation failed" + match Contract.is_implicit source with + | None -> + failwith + "only implicit accounts can be the source of a contract call" + | Some source -> ( + Client_keys.get_key cctxt source + >>=? fun (_, src_pk, src_sk) -> + let fee_parameter = + { + Injection.minimal_fees; + minimal_nanotez_per_byte; + minimal_nanotez_per_gas_unit; + force_low_fee; + fee_cap; + burn_cap; + } + in + Client_proto_multisig.call_multisig cctxt - >>= function - | None -> return_unit | Some (_res, _contracts) -> return_unit); + ~chain:cctxt#chain + ~block:cctxt#block + ?confirmations:cctxt#confirmations + ~dry_run + ~fee_parameter + ~source + ?fee + ~src_pk + ~src_sk + ~multisig_contract + ~action:(Client_proto_multisig.Transfer (amount, destination)) + ~signatures + ~amount:Tez.zero + ?gas_limit + ?storage_limit + ?counter + () + >>= Client_proto_context_commands.report_michelson_errors + ~no_print_source + ~msg:"transfer simulation failed" + cctxt + >>= function + | None -> return_unit | Some (_res, _contracts) -> return_unit )); command ~group ~desc:"Change the delegate of a multisig contract." @@ -683,47 +673,48 @@ let commands () : #Protocol_client_context.full Clic.command list = (_, source) signatures (cctxt : #Protocol_client_context.full) -> - Client_proto_context.source_to_keys - cctxt - ~chain:cctxt#chain - ~block:cctxt#block - source - >>=? fun (src_pk, src_sk) -> - let fee_parameter = - { - Injection.minimal_fees; - minimal_nanotez_per_byte; - minimal_nanotez_per_gas_unit; - force_low_fee; - fee_cap; - burn_cap; - } - in - Client_proto_multisig.call_multisig - cctxt - ~chain:cctxt#chain - ~block:cctxt#block - ?confirmations:cctxt#confirmations - ~dry_run - ~fee_parameter - ~source - ?fee - ~src_pk - ~src_sk - ~multisig_contract - ~action:(Client_proto_multisig.Change_delegate (Some delegate)) - ~signatures - ~amount:Tez.zero - ?gas_limit - ?storage_limit - ?counter - () - >>= Client_proto_context_commands.report_michelson_errors - ~no_print_source - ~msg:"transfer simulation failed" + match Contract.is_implicit source with + | None -> + failwith + "only implicit accounts can be the source of a contract call" + | Some source -> ( + Client_keys.get_key cctxt source + >>=? fun (_, src_pk, src_sk) -> + let fee_parameter = + { + Injection.minimal_fees; + minimal_nanotez_per_byte; + minimal_nanotez_per_gas_unit; + force_low_fee; + fee_cap; + burn_cap; + } + in + Client_proto_multisig.call_multisig cctxt - >>= function - | None -> return_unit | Some (_res, _contracts) -> return_unit); + ~chain:cctxt#chain + ~block:cctxt#block + ?confirmations:cctxt#confirmations + ~dry_run + ~fee_parameter + ~source + ?fee + ~src_pk + ~src_sk + ~multisig_contract + ~action:(Client_proto_multisig.Change_delegate (Some delegate)) + ~signatures + ~amount:Tez.zero + ?gas_limit + ?storage_limit + ?counter + () + >>= Client_proto_context_commands.report_michelson_errors + ~no_print_source + ~msg:"transfer simulation failed" + cctxt + >>= function + | None -> return_unit | Some (_res, _contracts) -> return_unit )); command ~group ~desc:"Withdrow the delegate of a multisig contract." @@ -754,47 +745,48 @@ let commands () : #Protocol_client_context.full Clic.command list = (_, source) signatures (cctxt : #Protocol_client_context.full) -> - Client_proto_context.source_to_keys - cctxt - ~chain:cctxt#chain - ~block:cctxt#block - source - >>=? fun (src_pk, src_sk) -> - let fee_parameter = - { - Injection.minimal_fees; - minimal_nanotez_per_byte; - minimal_nanotez_per_gas_unit; - force_low_fee; - fee_cap; - burn_cap; - } - in - Client_proto_multisig.call_multisig - cctxt - ~chain:cctxt#chain - ~block:cctxt#block - ?confirmations:cctxt#confirmations - ~dry_run - ~fee_parameter - ~source - ?fee - ~src_pk - ~src_sk - ~multisig_contract - ~action:(Client_proto_multisig.Change_delegate None) - ~signatures - ~amount:Tez.zero - ?gas_limit - ?storage_limit - ?counter - () - >>= Client_proto_context_commands.report_michelson_errors - ~no_print_source - ~msg:"transfer simulation failed" + match Contract.is_implicit source with + | None -> + failwith + "only implicit accounts can be the source of a contract call" + | Some source -> ( + Client_keys.get_key cctxt source + >>=? fun (_, src_pk, src_sk) -> + let fee_parameter = + { + Injection.minimal_fees; + minimal_nanotez_per_byte; + minimal_nanotez_per_gas_unit; + force_low_fee; + fee_cap; + burn_cap; + } + in + Client_proto_multisig.call_multisig cctxt - >>= function - | None -> return_unit | Some (_res, _contracts) -> return_unit); + ~chain:cctxt#chain + ~block:cctxt#block + ?confirmations:cctxt#confirmations + ~dry_run + ~fee_parameter + ~source + ?fee + ~src_pk + ~src_sk + ~multisig_contract + ~action:(Client_proto_multisig.Change_delegate None) + ~signatures + ~amount:Tez.zero + ?gas_limit + ?storage_limit + ?counter + () + >>= Client_proto_context_commands.report_michelson_errors + ~no_print_source + ~msg:"transfer simulation failed" + cctxt + >>= function + | None -> return_unit | Some (_res, _contracts) -> return_unit )); (* Unfortunately, Clic does not support non terminal lists of parameters so we cannot pass both a list of public keys and a list of signatures on the command line. This would permit a @@ -842,47 +834,48 @@ let commands () : #Protocol_client_context.full Clic.command list = (_, source) signatures (cctxt : #Protocol_client_context.full) -> - Client_proto_context.source_to_keys - cctxt - ~chain:cctxt#chain - ~block:cctxt#block - source - >>=? fun (src_pk, src_sk) -> - let fee_parameter = - { - Injection.minimal_fees; - minimal_nanotez_per_byte; - minimal_nanotez_per_gas_unit; - force_low_fee; - fee_cap; - burn_cap; - } - in - Client_proto_multisig.call_multisig_on_bytes - cctxt - ~chain:cctxt#chain - ~block:cctxt#block - ?confirmations:cctxt#confirmations - ~dry_run - ~fee_parameter - ~source - ?fee - ~src_pk - ~src_sk - ~multisig_contract - ~bytes - ~signatures - ~amount:Tez.zero - ?gas_limit - ?storage_limit - ?counter - () - >>= Client_proto_context_commands.report_michelson_errors - ~no_print_source - ~msg:"transfer simulation failed" + match Contract.is_implicit source with + | None -> + failwith + "only implicit accounts can be the source of a contract call" + | Some source -> ( + Client_keys.get_key cctxt source + >>=? fun (_, src_pk, src_sk) -> + let fee_parameter = + { + Injection.minimal_fees; + minimal_nanotez_per_byte; + minimal_nanotez_per_gas_unit; + force_low_fee; + fee_cap; + burn_cap; + } + in + Client_proto_multisig.call_multisig_on_bytes cctxt - >>= function - | None -> return_unit | Some (_res, _contracts) -> return_unit); + ~chain:cctxt#chain + ~block:cctxt#block + ?confirmations:cctxt#confirmations + ~dry_run + ~fee_parameter + ~source + ?fee + ~src_pk + ~src_sk + ~multisig_contract + ~bytes + ~signatures + ~amount:Tez.zero + ?gas_limit + ?storage_limit + ?counter + () + >>= Client_proto_context_commands.report_michelson_errors + ~no_print_source + ~msg:"transfer simulation failed" + cctxt + >>= function + | None -> return_unit | Some (_res, _contracts) -> return_unit )); command ~group ~desc:"Show the hashes of the supported multisig contracts." -- GitLab From 5c130921a6555a2082da5119c3f6f8f9e60e0fee Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Tom=C3=A1=C5=A1=20Zemanovi=C4=8D?= Date: Thu, 11 Jul 2019 17:35:46 +0200 Subject: [PATCH 050/252] Proto/Michelson: add special encoding for `do` and `set/remove_delegate` entrypoints This patch optimises the binary representation of transactions to usual entrypoints. The `do` entrypoint is used by manager.tz script and the `set_delegate` and `remove_delegate` by spendable script transformation. --- src/proto_alpha/lib_protocol/operation_repr.ml | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/proto_alpha/lib_protocol/operation_repr.ml b/src/proto_alpha/lib_protocol/operation_repr.ml index 98de105f0711..2a4e06a7c5d9 100644 --- a/src/proto_alpha/lib_protocol/operation_repr.ml +++ b/src/proto_alpha/lib_protocol/operation_repr.ml @@ -234,6 +234,9 @@ module Encoding = struct (fun n -> if Compare.String.(n = name) then Some () else None) (fun () -> name) in union [ builtin_case 0 "default" ; builtin_case 1 "root" ; + builtin_case 2 "do" ; + builtin_case 3 "set_delegate" ; + builtin_case 4 "remove_delegate" ; Data_encoding.case (Tag 255) ~title:"named" string (fun s -> Some s) (fun s -> s) ] let transaction_case = -- GitLab From 09df4654bfce7f8191f0a956c1d548b899384409 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Rapha=C3=ABl=20Proust?= Date: Thu, 27 Jun 2019 08:19:25 +0800 Subject: [PATCH 051/252] Proto/Michelson: comparisons return -1, 0, or 1, as per the documentation The Michelson documentation states that `COMPARE` pushes -1 (resp. 1) if the top element of the stack is smaller (resp. greater) than the second. However, the implementation can actually push a negative number instead of -1 and a positive number instead of 1 depending on the type and values. This semantics should not break any code as the result of `COMPARE` is almost always comsumed by comparison projectors such as `GT` or `LT` who only care about the sign. However, for the sake of consistency, this patches makes `COMPARE` return only -1, 0 or 1. This fixes issue #546 --- .../lib_protocol/script_interpreter.ml | 48 ++++++++----------- .../lib_protocol/script_ir_translator.ml | 34 +++++++------ .../lib_protocol/script_ir_translator.mli | 2 + 3 files changed, 39 insertions(+), 45 deletions(-) diff --git a/src/proto_alpha/lib_protocol/script_interpreter.ml b/src/proto_alpha/lib_protocol/script_interpreter.ml index c56bd3be1c2e..b7302a27c806 100644 --- a/src/proto_alpha/lib_protocol/script_interpreter.ml +++ b/src/proto_alpha/lib_protocol/script_interpreter.ml @@ -240,14 +240,14 @@ let rec interp let consume_gaz_comparison : type t rest. (t * (t * rest), Script_int.z Script_int.num * rest) descr -> - (t -> t -> int) -> + t comparable_ty -> (t -> t -> Gas.cost) -> t -> t -> rest stack -> ((Script_int.z Script_int.num * rest) stack * context) tzresult Lwt.t = - fun descr op cost x1 x2 rest -> + fun descr ty cost x1 x2 rest -> Lwt.return (Gas.consume ctxt (cost x1 x2)) >>=? fun ctxt -> - logged_return descr (Item (Script_int.of_int @@ op x1 x2, rest), ctxt) in + logged_return descr (Item (Script_int.of_int @@ Script_ir_translator.compare_comparable ty x1 x2, rest), ctxt) in let logged_return : a stack * context -> (a stack * context) tzresult Lwt.t = @@ -671,30 +671,24 @@ let rec interp | Nop, stack -> logged_return (stack, ctxt) (* comparison *) - | Compare (Bool_key _), Item (a, Item (b, rest)) -> - consume_gaz_comparison descr Compare.Bool.compare Interp_costs.compare_bool a b rest - | Compare (String_key _), Item (a, Item (b, rest)) -> - consume_gaz_comparison descr Compare.String.compare Interp_costs.compare_string a b rest - | Compare (Bytes_key _), Item (a, Item (b, rest)) -> - consume_gaz_comparison descr MBytes.compare Interp_costs.compare_bytes a b rest - | Compare (Mutez_key _), Item (a, Item (b, rest)) -> - consume_gaz_comparison descr Tez.compare Interp_costs.compare_tez a b rest - | Compare (Int_key _), Item (a, Item (b, rest)) -> - consume_gaz_comparison descr Script_int.compare Interp_costs.compare_int a b rest - | Compare (Nat_key _), Item (a, Item (b, rest)) -> - consume_gaz_comparison descr Script_int.compare Interp_costs.compare_nat a b rest - | Compare (Key_hash_key _), Item (a, Item (b, rest)) -> - consume_gaz_comparison descr Signature.Public_key_hash.compare - Interp_costs.compare_key_hash a b rest - | Compare (Timestamp_key _), Item (a, Item (b, rest)) -> - consume_gaz_comparison descr Script_timestamp.compare Interp_costs.compare_timestamp a b rest - | Compare (Address_key _), Item (a, Item (b, rest)) -> - let compare (x, ex) (y, ey) = - let lres = Contract.compare x y in - if Compare.Int.(lres = 0) then - Compare.String.compare ex ey - else lres in - consume_gaz_comparison descr compare Interp_costs.compare_address a b rest + | Compare (Bool_key _ as ty), Item (a, Item (b, rest)) -> + consume_gaz_comparison descr ty Interp_costs.compare_bool a b rest + | Compare (String_key _ as ty), Item (a, Item (b, rest)) -> + consume_gaz_comparison descr ty Interp_costs.compare_string a b rest + | Compare (Bytes_key _ as ty), Item (a, Item (b, rest)) -> + consume_gaz_comparison descr ty Interp_costs.compare_bytes a b rest + | Compare (Mutez_key _ as ty), Item (a, Item (b, rest)) -> + consume_gaz_comparison descr ty Interp_costs.compare_tez a b rest + | Compare (Int_key _ as ty), Item (a, Item (b, rest)) -> + consume_gaz_comparison descr ty Interp_costs.compare_int a b rest + | Compare (Nat_key _ as ty), Item (a, Item (b, rest)) -> + consume_gaz_comparison descr ty Interp_costs.compare_nat a b rest + | Compare (Key_hash_key _ as ty), Item (a, Item (b, rest)) -> + consume_gaz_comparison descr ty Interp_costs.compare_key_hash a b rest + | Compare (Timestamp_key _ as ty), Item (a, Item (b, rest)) -> + consume_gaz_comparison descr ty Interp_costs.compare_timestamp a b rest + | Compare (Address_key _ as ty), Item (a, Item (b, rest)) -> + consume_gaz_comparison descr ty Interp_costs.compare_address a b rest (* comparators *) | Eq, Item (cmpres, rest) -> let cmpres = Script_int.compare cmpres Script_int.zero in diff --git a/src/proto_alpha/lib_protocol/script_ir_translator.ml b/src/proto_alpha/lib_protocol/script_ir_translator.ml index c3a6d6f99623..b6cf8c57798e 100644 --- a/src/proto_alpha/lib_protocol/script_ir_translator.ml +++ b/src/proto_alpha/lib_protocol/script_ir_translator.ml @@ -409,31 +409,29 @@ let check_kind kinds expr = (* ---- Sets and Maps -------------------------------------------------------*) +let wrap_compare compare a b = + let res = compare a b in + if Compare.Int.(res = 0) then 0 + else if Compare.Int.(res > 0) then 1 + else -1 + let compare_comparable : type a. a comparable_ty -> a -> a -> int - = fun kind x y -> match kind with - | String_key _ -> Compare.String.compare x y - | Bool_key _ -> Compare.Bool.compare x y - | Mutez_key _ -> Tez.compare x y - | Key_hash_key _ -> Signature.Public_key_hash.compare x y - | Int_key _ -> - let res = (Script_int.compare x y) in - if Compare.Int.(res = 0) then 0 - else if Compare.Int.(res > 0) then 1 - else -1 - | Nat_key _ -> - let res = (Script_int.compare x y) in - if Compare.Int.(res = 0) then 0 - else if Compare.Int.(res > 0) then 1 - else -1 - | Timestamp_key _ -> Script_timestamp.compare x y + = fun kind -> match kind with + | String_key _ -> wrap_compare Compare.String.compare + | Bool_key _ -> wrap_compare Compare.Bool.compare + | Mutez_key _ -> wrap_compare Tez.compare + | Key_hash_key _ -> wrap_compare Signature.Public_key_hash.compare + | Int_key _ -> wrap_compare Script_int.compare + | Nat_key _ -> wrap_compare Script_int.compare + | Timestamp_key _ -> wrap_compare Script_timestamp.compare | Address_key _ -> - let x, ex = x and y, ey = y in + wrap_compare @@ fun (x, ex) (y, ey) -> let lres = Contract.compare x y in if Compare.Int.(lres = 0) then Compare.String.compare ex ey else lres - | Bytes_key _ -> MBytes.compare x y + | Bytes_key _ -> wrap_compare MBytes.compare let empty_set : type a. a comparable_ty -> a set diff --git a/src/proto_alpha/lib_protocol/script_ir_translator.mli b/src/proto_alpha/lib_protocol/script_ir_translator.mli index 995f00418ad2..7ff777b0589b 100644 --- a/src/proto_alpha/lib_protocol/script_ir_translator.mli +++ b/src/proto_alpha/lib_protocol/script_ir_translator.mli @@ -77,6 +77,8 @@ val ty_eq : 'ta Script_typed_ir.ty -> 'tb Script_typed_ir.ty -> (('ta Script_typed_ir.ty, 'tb Script_typed_ir.ty) eq * context) tzresult +val compare_comparable : 'a Script_typed_ir.comparable_ty -> 'a -> 'a -> int + val parse_data : ?type_logger: type_logger -> context -> legacy: bool -> -- GitLab From 6ecec57efe350ab68c105c2ac117df73ca898fbe Mon Sep 17 00:00:00 2001 From: Benjamin Canou Date: Thu, 18 Jul 2019 14:51:39 +0200 Subject: [PATCH 052/252] Proto/Michelson: extend comparison to linear pair structures Michelson's `COMPARE` instruction can currently only compare simple values (`string`s, `int`s, etc.). This limitation also applies to `set`, `map` and `big_map` indexes. This is an issue in particular for `big_map`s that cannot be nested, because it prevents indexing data by a pair of indexes, such as a `key_hash` and a `string`. This patch lifts that restriction, allowing to compare `pair`s of values, as long as their left component remains a simple value, impicitly making comparable values right combs whose leaves are simple values. The ordering is naturally lexicographic. This patch also refactors a bit the comparison code to simplify it and reduce code duplication. --- .../lib_protocol/michelson_v1_gas.ml | 35 +++-- .../lib_protocol/michelson_v1_gas.mli | 10 +- .../lib_protocol/script_interpreter.ml | 32 +---- .../lib_protocol/script_ir_translator.ml | 123 ++++++++---------- .../lib_protocol/script_typed_ir.ml | 36 +++-- 5 files changed, 104 insertions(+), 132 deletions(-) diff --git a/src/proto_alpha/lib_protocol/michelson_v1_gas.ml b/src/proto_alpha/lib_protocol/michelson_v1_gas.ml index 7f517721b85a..19e7d6cb9b55 100644 --- a/src/proto_alpha/lib_protocol/michelson_v1_gas.ml +++ b/src/proto_alpha/lib_protocol/michelson_v1_gas.ml @@ -227,18 +227,31 @@ module Cost_of = struct let self = step_cost 1 let amount = step_cost 1 let chain_id = step_cost 1 - let compare_bool _ _ = step_cost 1 - let compare_string s1 s2 = - step_cost ((7 + Compare.Int.max (String.length s1) (String.length s2)) / 8) +@ step_cost 1 - let compare_bytes s1 s2 = - step_cost ((7 + Compare.Int.max (MBytes.length s1) (MBytes.length s2)) / 8) +@ step_cost 1 - let compare_tez _ _ = step_cost 1 let compare_zint n1 n2 = step_cost ((7 + Compare.Int.max (Z.numbits n1) (Z.numbits n2)) / 8) +@ step_cost 1 - let compare_int n1 n2 = compare_zint (Script_int.to_zint n1) (Script_int.to_zint n2) - let compare_nat = compare_int - let compare_key_hash _ _ = alloc_bytes_cost 36 - let compare_timestamp t1 t2 = compare_zint (Script_timestamp.to_zint t1) (Script_timestamp.to_zint t2) - let compare_address _ _ = step_cost 20 + let rec compare : type a s. (a, s) Script_typed_ir.comparable_struct -> a -> a -> cost = fun ty x y -> + match ty with + | Bool_key _ -> + step_cost 1 + | String_key _ -> + step_cost ((7 + Compare.Int.max (String.length x) (String.length y)) / 8) +@ step_cost 1 + | Bytes_key _ -> + step_cost ((7 + Compare.Int.max (MBytes.length x) (MBytes.length y)) / 8) +@ step_cost 1 + | Mutez_key _ -> + step_cost 1 + | Int_key _ -> + compare_zint (Script_int.to_zint x) (Script_int.to_zint y) + | Nat_key _ -> + compare_zint (Script_int.to_zint x) (Script_int.to_zint y) + | Key_hash_key _ -> + alloc_bytes_cost 36 + | Timestamp_key _ -> + compare_zint (Script_timestamp.to_zint x) (Script_timestamp.to_zint y) + | Address_key _ -> + step_cost 20 + | Pair_key ((tl, _), (tr, _), _) -> + (* Reasonable over-approximation of the cost of lexicographic comparison. *) + let (xl, xr) = x and (yl, yr) = y in + compare tl xl yl +@ compare tr xr yr let manager_operation = step_cost 10_000 diff --git a/src/proto_alpha/lib_protocol/michelson_v1_gas.mli b/src/proto_alpha/lib_protocol/michelson_v1_gas.mli index 253de3b175d4..ae8d59cb2146 100644 --- a/src/proto_alpha/lib_protocol/michelson_v1_gas.mli +++ b/src/proto_alpha/lib_protocol/michelson_v1_gas.mli @@ -103,15 +103,7 @@ module Cost_of : sig val amount : Gas.cost val chain_id : Gas.cost val wrap : Gas.cost - val compare_bool : 'a -> 'b -> Gas.cost - val compare_string : string -> string -> Gas.cost - val compare_bytes : MBytes.t -> MBytes.t -> Gas.cost - val compare_tez : 'a -> 'b -> Gas.cost - val compare_int : 'a Script_int.num -> 'b Script_int.num -> Gas.cost - val compare_nat : 'a Script_int.num -> 'b Script_int.num -> Gas.cost - val compare_key_hash : 'a -> 'b -> Gas.cost - val compare_timestamp : Script_timestamp.t -> Script_timestamp.t -> Gas.cost - val compare_address : (Contract.t * string) -> (Contract.t * string) -> Gas.cost + val compare : 'a Script_typed_ir.comparable_ty -> 'a -> 'a -> Gas.cost val manager_operation : Gas.cost diff --git a/src/proto_alpha/lib_protocol/script_interpreter.ml b/src/proto_alpha/lib_protocol/script_interpreter.ml index b7302a27c806..1043b830185b 100644 --- a/src/proto_alpha/lib_protocol/script_interpreter.ml +++ b/src/proto_alpha/lib_protocol/script_interpreter.ml @@ -237,17 +237,6 @@ let rec interp fun descr (op, arg) cost_func rest ctxt -> Lwt.return (Gas.consume ctxt (cost_func arg)) >>=? fun ctxt -> logged_return descr (Item (op arg, rest), ctxt) in - let consume_gaz_comparison : - type t rest. - (t * (t * rest), Script_int.z Script_int.num * rest) descr -> - t comparable_ty -> - (t -> t -> Gas.cost) -> - t -> t -> - rest stack -> - ((Script_int.z Script_int.num * rest) stack * context) tzresult Lwt.t = - fun descr ty cost x1 x2 rest -> - Lwt.return (Gas.consume ctxt (cost x1 x2)) >>=? fun ctxt -> - logged_return descr (Item (Script_int.of_int @@ Script_ir_translator.compare_comparable ty x1 x2, rest), ctxt) in let logged_return : a stack * context -> (a stack * context) tzresult Lwt.t = @@ -671,24 +660,9 @@ let rec interp | Nop, stack -> logged_return (stack, ctxt) (* comparison *) - | Compare (Bool_key _ as ty), Item (a, Item (b, rest)) -> - consume_gaz_comparison descr ty Interp_costs.compare_bool a b rest - | Compare (String_key _ as ty), Item (a, Item (b, rest)) -> - consume_gaz_comparison descr ty Interp_costs.compare_string a b rest - | Compare (Bytes_key _ as ty), Item (a, Item (b, rest)) -> - consume_gaz_comparison descr ty Interp_costs.compare_bytes a b rest - | Compare (Mutez_key _ as ty), Item (a, Item (b, rest)) -> - consume_gaz_comparison descr ty Interp_costs.compare_tez a b rest - | Compare (Int_key _ as ty), Item (a, Item (b, rest)) -> - consume_gaz_comparison descr ty Interp_costs.compare_int a b rest - | Compare (Nat_key _ as ty), Item (a, Item (b, rest)) -> - consume_gaz_comparison descr ty Interp_costs.compare_nat a b rest - | Compare (Key_hash_key _ as ty), Item (a, Item (b, rest)) -> - consume_gaz_comparison descr ty Interp_costs.compare_key_hash a b rest - | Compare (Timestamp_key _ as ty), Item (a, Item (b, rest)) -> - consume_gaz_comparison descr ty Interp_costs.compare_timestamp a b rest - | Compare (Address_key _ as ty), Item (a, Item (b, rest)) -> - consume_gaz_comparison descr ty Interp_costs.compare_address a b rest + | Compare ty, Item (a, Item (b, rest)) -> + Lwt.return (Gas.consume ctxt (Interp_costs.compare ty a b)) >>=? fun ctxt -> + logged_return (Item (Script_int.of_int @@ Script_ir_translator.compare_comparable ty a b, rest), ctxt) (* comparators *) | Eq, Item (cmpres, rest) -> let cmpres = Script_int.compare cmpres Script_int.zero in diff --git a/src/proto_alpha/lib_protocol/script_ir_translator.ml b/src/proto_alpha/lib_protocol/script_ir_translator.ml index b6cf8c57798e..829a78f2e249 100644 --- a/src/proto_alpha/lib_protocol/script_ir_translator.ml +++ b/src/proto_alpha/lib_protocol/script_ir_translator.ml @@ -55,8 +55,7 @@ let add_dip ty annot prev = (* ---- Type size accounting ------------------------------------------------*) -(* TODO include annot in size ? *) -let comparable_type_size : type t. t comparable_ty -> int = fun ty -> +let rec comparable_type_size : type t a. (t, a) comparable_struct -> int = fun ty -> (* No wildcard to force the update when comparable_ty chages. *) match ty with | Int_key _ -> 1 @@ -68,8 +67,8 @@ let comparable_type_size : type t. t comparable_ty -> int = fun ty -> | Key_hash_key _ -> 1 | Timestamp_key _ -> 1 | Address_key _ -> 1 + | Pair_key (_, (t, _), _) -> 1 + comparable_type_size t -(* TODO include annot in size ? *) let rec type_size : type t. t ty -> int = fun ty -> match ty with | Unit_t _ -> 1 @@ -415,8 +414,8 @@ let wrap_compare compare a b = else if Compare.Int.(res > 0) then 1 else -1 -let compare_comparable - : type a. a comparable_ty -> a -> a -> int +let rec compare_comparable + : type a s. (a, s) comparable_struct -> a -> a -> int = fun kind -> match kind with | String_key _ -> wrap_compare Compare.String.compare | Bool_key _ -> wrap_compare Compare.Bool.compare @@ -432,6 +431,12 @@ let compare_comparable Compare.String.compare ex ey else lres | Bytes_key _ -> wrap_compare MBytes.compare + | Pair_key ((tl, _), (tr, _), _) -> + fun (lx, rx) (ly, ry) -> + let lres = compare_comparable tl lx ly in + if Compare.Int.(lres = 0) then + compare_comparable tr rx ry + else lres let empty_set : type a. a comparable_ty -> a set @@ -549,8 +554,8 @@ let map_size (* ---- Unparsing (Typed IR -> Untyped expressions) of types -----------------*) -let ty_of_comparable_ty - : type a. a comparable_ty -> a ty +let rec ty_of_comparable_ty + : type a s. (a, s) comparable_struct -> a ty = function | Int_key tname -> Int_t tname | Nat_key tname -> Nat_t tname @@ -561,8 +566,10 @@ let ty_of_comparable_ty | Key_hash_key tname -> Key_hash_t tname | Timestamp_key tname -> Timestamp_t tname | Address_key tname -> Address_t tname + | Pair_key ((l, al), (r, ar), tname) -> + Pair_t ((ty_of_comparable_ty l, al, None), (ty_of_comparable_ty r, ar, None), tname) -let comparable_ty_of_ty +let rec comparable_ty_of_ty : type a. a ty -> a comparable_ty option = function | Int_t tname -> Some (Int_key tname) @@ -574,10 +581,32 @@ let comparable_ty_of_ty | Key_hash_t tname -> Some (Key_hash_key tname) | Timestamp_t tname -> Some (Timestamp_key tname) | Address_t tname -> Some (Address_key tname) + | Pair_t ((l, al, _), (r, ar, _), pname) -> + begin match comparable_ty_of_ty r with + | None -> None + | Some rty -> + match comparable_ty_of_ty l with + | None -> None + | Some (Pair_key _) -> None (* not a comb *) + | Some (Int_key tname) -> Some (Pair_key ((Int_key tname, al), (rty, ar), pname)) + | Some (Nat_key tname) -> Some (Pair_key ((Nat_key tname, al), (rty, ar), pname)) + | Some (String_key tname) -> Some (Pair_key ((String_key tname, al), (rty, ar), pname)) + | Some (Bytes_key tname) -> Some (Pair_key ((Bytes_key tname, al), (rty, ar), pname)) + | Some (Mutez_key tname) -> Some (Pair_key ((Mutez_key tname, al), (rty, ar), pname)) + | Some (Bool_key tname) -> Some (Pair_key ((Bool_key tname, al), (rty, ar), pname)) + | Some (Key_hash_key tname) -> Some (Pair_key ((Key_hash_key tname, al), (rty, ar), pname)) + | Some (Timestamp_key tname) -> Some (Pair_key ((Timestamp_key tname, al), (rty, ar), pname)) + | Some (Address_key tname) -> Some (Pair_key ((Address_key tname, al), (rty, ar), pname)) + end | _ -> None -let unparse_comparable_ty - : type a. a comparable_ty -> Script.node +let add_field_annot a var = function + | Prim (loc, prim, args, annots) -> + Prim (loc, prim, args, annots @ unparse_field_annot a @ unparse_var_annot var ) + | expr -> expr + +let rec unparse_comparable_ty + : type a s. (a, s) comparable_struct -> Script.node = function | Int_key tname -> Prim (-1, T_int, [], unparse_type_annot tname) | Nat_key tname -> Prim (-1, T_nat, [], unparse_type_annot tname) @@ -588,11 +617,10 @@ let unparse_comparable_ty | Key_hash_key tname -> Prim (-1, T_key_hash, [], unparse_type_annot tname) | Timestamp_key tname -> Prim (-1, T_timestamp, [], unparse_type_annot tname) | Address_key tname -> Prim (-1, T_address, [], unparse_type_annot tname) - -let add_field_annot a var = function - | Prim (loc, prim, args, annots) -> - Prim (loc, prim, args, annots @ unparse_field_annot a @ unparse_var_annot var ) - | expr -> expr + | Pair_key ((l, al), (r, ar), pname) -> + let tl = add_field_annot al None (unparse_comparable_ty l) in + let tr = add_field_annot ar None (unparse_comparable_ty r) in + Prim (-1, T_pair, [ tl ; tr ], unparse_type_annot pname) let rec unparse_ty_no_lwt : type a. context -> a ty -> (Script.node * context) tzresult @@ -2795,59 +2823,17 @@ and parse_instr (Item_t (Int_t None, rest, annot)) (* comparison *) | Prim (loc, I_COMPARE, [], annot), - Item_t (Int_t tn1, Item_t (Int_t tn2, rest, _), _) -> - parse_var_annot loc annot >>=? fun annot -> - Lwt.return @@ merge_type_annot ~legacy tn1 tn2 >>=? fun tname -> - typed ctxt loc (Compare (Int_key tname)) - (Item_t (Int_t None, rest, annot)) - | Prim (loc, I_COMPARE, [], annot), - Item_t (Nat_t tn1, Item_t (Nat_t tn2, rest, _), _) -> - parse_var_annot loc annot >>=? fun annot -> - Lwt.return @@ merge_type_annot ~legacy tn1 tn2 >>=? fun tname -> - typed ctxt loc (Compare (Nat_key tname)) - (Item_t (Int_t None, rest, annot)) - | Prim (loc, I_COMPARE, [], annot), - Item_t (Bool_t tn1, Item_t (Bool_t tn2, rest, _), _) -> - parse_var_annot loc annot >>=? fun annot -> - Lwt.return @@ merge_type_annot ~legacy tn1 tn2 >>=? fun tname -> - typed ctxt loc (Compare (Bool_key tname)) - (Item_t (Int_t None, rest, annot)) - | Prim (loc, I_COMPARE, [], annot), - Item_t (String_t tn1, Item_t (String_t tn2, rest, _), _) -> - parse_var_annot loc annot >>=? fun annot -> - Lwt.return @@ merge_type_annot ~legacy tn1 tn2 >>=? fun tname -> - typed ctxt loc (Compare (String_key tname)) - (Item_t (Int_t None, rest, annot)) - | Prim (loc, I_COMPARE, [], annot), - Item_t (Mutez_t tn1, Item_t (Mutez_t tn2, rest, _), _) -> - parse_var_annot loc annot >>=? fun annot -> - Lwt.return @@ merge_type_annot ~legacy tn1 tn2 >>=? fun tname -> - typed ctxt loc (Compare (Mutez_key tname)) - (Item_t (Int_t None, rest, annot)) - | Prim (loc, I_COMPARE, [], annot), - Item_t (Key_hash_t tn1, Item_t (Key_hash_t tn2, rest, _), _) -> - parse_var_annot loc annot >>=? fun annot -> - Lwt.return @@ merge_type_annot ~legacy tn1 tn2 >>=? fun tname -> - typed ctxt loc (Compare (Key_hash_key tname)) - (Item_t (Int_t None, rest, annot)) - | Prim (loc, I_COMPARE, [], annot), - Item_t (Timestamp_t tn1, Item_t (Timestamp_t tn2, rest, _), _) -> + Item_t (t1, Item_t (t2, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> - Lwt.return @@ merge_type_annot ~legacy tn1 tn2 >>=? fun tname -> - typed ctxt loc (Compare (Timestamp_key tname)) - (Item_t (Int_t None, rest, annot)) - | Prim (loc, I_COMPARE, [], annot), - Item_t (Address_t tn1, Item_t (Address_t tn2, rest, _), _) -> - parse_var_annot loc annot >>=? fun annot -> - Lwt.return @@ merge_type_annot ~legacy tn1 tn2 >>=? fun tname -> - typed ctxt loc (Compare (Address_key tname)) - (Item_t (Int_t None, rest, annot)) - | Prim (loc, I_COMPARE, [], annot), - Item_t (Bytes_t tn1, Item_t (Bytes_t tn2, rest, _), _) -> - parse_var_annot loc annot >>=? fun annot -> - Lwt.return @@ merge_type_annot ~legacy tn1 tn2 >>=? fun tname -> - typed ctxt loc (Compare (Bytes_key tname)) - (Item_t (Int_t None, rest, annot)) + check_item_ty ctxt t1 t2 loc I_COMPARE 1 2 >>=? fun (Eq, t, ctxt) -> + begin match comparable_ty_of_ty t with + | None -> + Lwt.return (serialize_ty_for_error ctxt t) >>=? fun (t, _ctxt) -> + fail (Comparable_type_expected (loc, t)) + | Some key -> + typed ctxt loc (Compare key) + (Item_t (Int_t None, rest, annot)) + end (* comparators *) | Prim (loc, I_EQ, [], annot), Item_t (Int_t _, rest, _) -> @@ -3166,8 +3152,7 @@ and parse_instr fail (Invalid_arity (loc, I_LAMBDA, 3, List.length l)) (* Stack errors *) | Prim (loc, (I_ADD | I_SUB | I_MUL | I_EDIV - | I_AND | I_OR | I_XOR | I_LSL | I_LSR - | I_COMPARE as name), [], _), + | I_AND | I_OR | I_XOR | I_LSL | I_LSR as name), [], _), Item_t (ta, Item_t (tb, _, _), _) -> Lwt.return @@ serialize_ty_for_error ctxt ta >>=? fun (ta, ctxt) -> Lwt.return @@ serialize_ty_for_error ctxt tb >>=? fun (tb, _ctxt) -> diff --git a/src/proto_alpha/lib_protocol/script_typed_ir.ml b/src/proto_alpha/lib_protocol/script_typed_ir.ml index 8b70e242a058..15535705b79c 100644 --- a/src/proto_alpha/lib_protocol/script_typed_ir.ml +++ b/src/proto_alpha/lib_protocol/script_typed_ir.ml @@ -36,17 +36,29 @@ type annot = [ var_annot | type_annot | field_annot ] type address = Contract.t * string -type 'ty comparable_ty = - | Int_key : type_annot option -> (z num) comparable_ty - | Nat_key : type_annot option -> (n num) comparable_ty - | String_key : type_annot option -> string comparable_ty - | Bytes_key : type_annot option -> MBytes.t comparable_ty - | Mutez_key : type_annot option -> Tez.t comparable_ty - | Bool_key : type_annot option -> bool comparable_ty - | Key_hash_key : type_annot option -> public_key_hash comparable_ty - | Timestamp_key : type_annot option -> Script_timestamp.t comparable_ty - | Address_key : type_annot option -> address comparable_ty +type ('a, 'b) pair = 'a * 'b +type ('a, 'b) union = L of 'a | R of 'b + +type comb = Comb +type leaf = Leaf + +type (_, _) comparable_struct = + | Int_key : type_annot option -> (z num, _) comparable_struct + | Nat_key : type_annot option -> (n num, _) comparable_struct + | String_key : type_annot option -> (string, _) comparable_struct + | Bytes_key : type_annot option -> (MBytes.t, _) comparable_struct + | Mutez_key : type_annot option -> (Tez.t, _) comparable_struct + | Bool_key : type_annot option -> (bool, _) comparable_struct + | Key_hash_key : type_annot option -> (public_key_hash, _) comparable_struct + | Timestamp_key : type_annot option -> (Script_timestamp.t, _) comparable_struct + | Address_key : type_annot option -> (address, _) comparable_struct + | Pair_key : + (('a, leaf) comparable_struct * field_annot option) * + (('b, _) comparable_struct * field_annot option) * + type_annot option -> (('a, 'b) pair, comb) comparable_struct + +type 'a comparable_ty = ('a, comb) comparable_struct module type Boxed_set = sig type elt @@ -74,10 +86,6 @@ type ('arg, 'storage) script = storage_type : 'storage ty ; root_name : string option } -and ('a, 'b) pair = 'a * 'b - -and ('a, 'b) union = L of 'a | R of 'b - and end_of_stack = unit and ('arg, 'ret) lambda = -- GitLab From acc5d4b699d02e1929dafeeb46dbca7eee24b331 Mon Sep 17 00:00:00 2001 From: Ilias Garnier Date: Fri, 19 Jul 2019 11:14:17 +0200 Subject: [PATCH 053/252] Proto/Michelson: unshare cost functions of the interpeter & the rest of the protocol This patch is a refactor to prepare for the gas costs rehaul. It dissociates the gas consumed by the interpreter, which is the part that is updated according to thorough benchmarking, from other source of gas consumption in the protocol (typechecking, serialization etc.) which are left untouched in this update. --- .../lib_protocol/michelson_v1_gas.ml | 415 ++++++++++-------- .../lib_protocol/michelson_v1_gas.mli | 167 +++---- .../lib_protocol/script_interpreter.ml | 2 +- .../lib_protocol/script_ir_translator.ml | 8 +- 4 files changed, 315 insertions(+), 277 deletions(-) diff --git a/src/proto_alpha/lib_protocol/michelson_v1_gas.ml b/src/proto_alpha/lib_protocol/michelson_v1_gas.ml index 19e7d6cb9b55..059fc127b108 100644 --- a/src/proto_alpha/lib_protocol/michelson_v1_gas.ml +++ b/src/proto_alpha/lib_protocol/michelson_v1_gas.ml @@ -27,233 +27,260 @@ open Alpha_context open Gas module Cost_of = struct - let cycle = step_cost 1 - let nop = free - let stack_op = step_cost 1 + let log2 = + let rec help acc = function + | 0 -> acc + | n -> help (acc + 1) (n / 2) + in help 1 - (* Cost of operations similar to dig which drill down the top N elements - of the stack without affecting them, and perform some simple operation. *) - let stack_n_op n = step_cost ((n + 1) / 64) (* to be customized by gas benchmarks *) + let string length = + alloc_bytes_cost length - let bool_binop _ _ = step_cost 1 - let bool_unop _ = step_cost 1 + let bytes length = + alloc_mbytes_cost length - let pair = alloc_cost 2 - let pair_access = step_cost 1 + let manager_operation = step_cost 10_000 - let cons = alloc_cost 2 + module Legacy = struct + let zint z = + alloc_bits_cost (Z.numbits z) - let variant_no_data = alloc_cost 1 + let set_to_list : type item. item Script_typed_ir.set -> cost + = fun (module Box) -> + alloc_cost @@ Pervasives.(Box.size * 2) - let branch = step_cost 2 + let map_to_list : type key value. (key, value) Script_typed_ir.map -> cost + = fun (module Box) -> + let size = snd Box.boxed in + 3 *@ alloc_cost size - let string length = - alloc_bytes_cost length + let z_to_int64 = step_cost 2 +@ alloc_cost 1 - let bytes length = - alloc_mbytes_cost length + let hash data len = 10 *@ step_cost (MBytes.length data) +@ bytes len - let zint z = - alloc_bits_cost (Z.numbits z) + let set_access : type elt. elt -> elt Script_typed_ir.set -> int + = fun _key (module Box) -> + log2 @@ Box.size - let concat cost length ss = - let rec cum acc = function - | [] -> acc - | s :: ss -> cum (cost (length s) +@ acc) ss in - cum free ss + let set_update key _presence set = + set_access key set *@ alloc_cost 3 + end - let concat_string ss = concat string String.length ss - let concat_bytes ss = concat bytes MBytes.length ss + module Interpreter = struct + let cycle = step_cost 1 + let nop = free - let slice_string length = string length - let slice_bytes = alloc_cost 0 + let stack_op = step_cost 1 - (* Cost per cycle of a loop, fold, etc *) - let loop_cycle = step_cost 2 + (* Cost of operations similar to dig which drill down the top N elements + of the stack without affecting them, and perform some simple operation. *) + let stack_n_op n = step_cost ((n + 1) / 64) (* to be customized by gas benchmarks *) - let list_size = step_cost 1 + let bool_binop _ _ = step_cost 1 + let bool_unop _ = step_cost 1 - let log2 = - let rec help acc = function - | 0 -> acc - | n -> help (acc + 1) (n / 2) - in help 1 + let pair = alloc_cost 2 + let pair_access = step_cost 1 - let module_cost = alloc_cost 10 + let cons = alloc_cost 2 - let map_access : type key value. (key, value) Script_typed_ir.map -> int - = fun (module Box) -> - log2 (snd Box.boxed) + let variant_no_data = alloc_cost 1 - let map_to_list : type key value. (key, value) Script_typed_ir.map -> cost - = fun (module Box) -> - let size = snd Box.boxed in - 3 *@ alloc_cost size + let branch = step_cost 2 - let map_mem _key map = step_cost (map_access map) + let concat cost length ss = + let rec cum acc = function + | [] -> acc + | s :: ss -> cum (cost (length s) +@ acc) ss in + cum free ss - let map_get = map_mem + let concat_string ss = concat string String.length ss + let concat_bytes ss = concat bytes MBytes.length ss - let map_update _ _ map = - map_access map *@ alloc_cost 3 + let slice_string length = string length + let slice_bytes = alloc_cost 0 - let map_size = step_cost 2 + (* Cost per cycle of a loop, fold, etc *) + let loop_cycle = step_cost 2 - let big_map_mem _key _map = step_cost 50 - let big_map_get _key _map = step_cost 50 - let big_map_update _key _value _map = step_cost 10 + let list_size = step_cost 1 - let set_access : type elt. elt -> elt Script_typed_ir.set -> int - = fun _key (module Box) -> - log2 @@ Box.size + let module_cost = alloc_cost 10 - let set_mem key set = step_cost (set_access key set) + let map_access : type key value. (key, value) Script_typed_ir.map -> int + = fun (module Box) -> + log2 (snd Box.boxed) - let set_update key _presence set = - set_access key set *@ alloc_cost 3 + let map_to_list : type key value. (key, value) Script_typed_ir.map -> cost + = fun (module Box) -> + let size = snd Box.boxed in + 3 *@ alloc_cost size - (* for LEFT, RIGHT, SOME *) - let wrap = alloc_cost 1 + let map_mem _key map = step_cost (map_access map) - let mul n1 n2 = - let steps = - (Z.numbits (Script_int.to_zint n1)) - * (Z.numbits (Script_int.to_zint n2)) in - let bits = - (Z.numbits (Script_int.to_zint n1)) - + (Z.numbits (Script_int.to_zint n2)) in - step_cost steps +@ alloc_bits_cost bits + let map_get = map_mem - let div n1 n2 = - mul n1 n2 +@ alloc_cost 2 + let map_update _ _ map = + map_access map *@ alloc_cost 3 - let add_sub_z n1 n2 = - let bits = - Compare.Int.max (Z.numbits n1) (Z.numbits n2) in - step_cost bits +@ alloc_cost bits + let map_size = step_cost 2 - let add n1 n2 = - add_sub_z (Script_int.to_zint n1) (Script_int.to_zint n2) + let big_map_mem _key _map = step_cost 50 + let big_map_get _key _map = step_cost 50 + let big_map_update _key _value _map = step_cost 10 - let sub = add + let set_access : type elt. elt -> elt Script_typed_ir.set -> int + = fun _key (module Box) -> + log2 @@ Box.size - let abs n = - alloc_bits_cost (Z.numbits @@ Script_int.to_zint n) + let set_mem key set = step_cost (set_access key set) - let neg = abs - let int _ = step_cost 1 - - let add_timestamp t n = - add_sub_z (Script_timestamp.to_zint t) (Script_int.to_zint n) - - let sub_timestamp t n = - add_sub_z (Script_timestamp.to_zint t) (Script_int.to_zint n) - - let diff_timestamps t1 t2 = - add_sub_z (Script_timestamp.to_zint t1) (Script_timestamp.to_zint t2) - - let empty_set = module_cost - - let set_size = step_cost 2 - - let set_to_list : type item. item Script_typed_ir.set -> cost - = fun (module Box) -> - alloc_cost @@ Pervasives.(Box.size * 2) - - let empty_map = module_cost - - let int64_op = step_cost 1 +@ alloc_cost 1 - - let z_to_int64 = step_cost 2 +@ alloc_cost 1 - - let int64_to_z = step_cost 2 +@ alloc_cost 1 - - let bitwise_binop n1 n2 = - let bits = Compare.Int.max (Z.numbits (Script_int.to_zint n1)) (Z.numbits (Script_int.to_zint n2)) in - step_cost bits +@ alloc_bits_cost bits - - let logor = bitwise_binop - let logand = bitwise_binop - let logxor = bitwise_binop - let lognot n = - let bits = Z.numbits @@ Script_int.to_zint n in - step_cost bits +@ alloc_cost bits - - let unopt ~default = function - | None -> default - | Some x -> x - - let max_int = 1073741823 - - let shift_left x y = - alloc_bits_cost - (Z.numbits (Script_int.to_zint x) + - (unopt (Script_int.to_int y) ~default:max_int)) - - let shift_right x y = - alloc_bits_cost - (Compare.Int.max 1 - (Z.numbits (Script_int.to_zint x) - - unopt (Script_int.to_int y) ~default:max_int)) - - let exec = step_cost 1 - - let push = step_cost 1 - - let compare_res = step_cost 1 - - let unpack_failed bytes = - (* We cannot instrument failed deserialization, - so we take worst case fees: a set of size 1 bytes values. *) - let len = MBytes.length bytes in - (len *@ alloc_mbytes_cost 1) +@ - (len *@ (log2 len *@ (alloc_cost 3 +@ step_cost 1))) - - let address = step_cost 1 - let contract = Gas.read_bytes_cost Z.zero +@ step_cost 10000 - let transfer = step_cost 10 - let create_account = step_cost 10 - let create_contract = step_cost 10 - let implicit_account = step_cost 10 - let set_delegate = step_cost 10 +@ write_bytes_cost (Z.of_int 32) - let balance = step_cost 1 +@ read_bytes_cost (Z.of_int 8) - let now = step_cost 5 - let check_signature = step_cost 1000 - let hash_key = step_cost 3 +@ bytes 20 - let hash data len = 10 *@ step_cost (MBytes.length data) +@ bytes len - let steps_to_quota = step_cost 1 - let source = step_cost 1 - let self = step_cost 1 - let amount = step_cost 1 - let chain_id = step_cost 1 - let compare_zint n1 n2 = step_cost ((7 + Compare.Int.max (Z.numbits n1) (Z.numbits n2)) / 8) +@ step_cost 1 - let rec compare : type a s. (a, s) Script_typed_ir.comparable_struct -> a -> a -> cost = fun ty x y -> - match ty with - | Bool_key _ -> - step_cost 1 - | String_key _ -> - step_cost ((7 + Compare.Int.max (String.length x) (String.length y)) / 8) +@ step_cost 1 - | Bytes_key _ -> - step_cost ((7 + Compare.Int.max (MBytes.length x) (MBytes.length y)) / 8) +@ step_cost 1 - | Mutez_key _ -> - step_cost 1 - | Int_key _ -> - compare_zint (Script_int.to_zint x) (Script_int.to_zint y) - | Nat_key _ -> - compare_zint (Script_int.to_zint x) (Script_int.to_zint y) - | Key_hash_key _ -> - alloc_bytes_cost 36 - | Timestamp_key _ -> - compare_zint (Script_timestamp.to_zint x) (Script_timestamp.to_zint y) - | Address_key _ -> - step_cost 20 - | Pair_key ((tl, _), (tr, _), _) -> - (* Reasonable over-approximation of the cost of lexicographic comparison. *) - let (xl, xr) = x and (yl, yr) = y in - compare tl xl yl +@ compare tr xr yr + let set_update key _presence set = + set_access key set *@ alloc_cost 3 - let manager_operation = step_cost 10_000 + (* for LEFT, RIGHT, SOME *) + let wrap = alloc_cost 1 + + let mul n1 n2 = + let steps = + (Z.numbits (Script_int.to_zint n1)) + * (Z.numbits (Script_int.to_zint n2)) in + let bits = + (Z.numbits (Script_int.to_zint n1)) + + (Z.numbits (Script_int.to_zint n2)) in + step_cost steps +@ alloc_bits_cost bits + + let div n1 n2 = + mul n1 n2 +@ alloc_cost 2 + + let add_sub_z n1 n2 = + let bits = + Compare.Int.max (Z.numbits n1) (Z.numbits n2) in + step_cost bits +@ alloc_cost bits + + let add n1 n2 = + add_sub_z (Script_int.to_zint n1) (Script_int.to_zint n2) + + let sub = add + + let abs n = + alloc_bits_cost (Z.numbits @@ Script_int.to_zint n) + + let neg = abs + let int _ = step_cost 1 + + let add_timestamp t n = + add_sub_z (Script_timestamp.to_zint t) (Script_int.to_zint n) + + let sub_timestamp t n = + add_sub_z (Script_timestamp.to_zint t) (Script_int.to_zint n) + + let diff_timestamps t1 t2 = + add_sub_z (Script_timestamp.to_zint t1) (Script_timestamp.to_zint t2) + + let empty_set = module_cost + + let set_size = step_cost 2 + + let set_to_list : type item. item Script_typed_ir.set -> cost + = fun (module Box) -> + alloc_cost @@ Pervasives.(Box.size * 2) + + let empty_map = module_cost + + let int64_op = step_cost 1 +@ alloc_cost 1 + + let z_to_int64 = step_cost 2 +@ alloc_cost 1 + + let int64_to_z = step_cost 2 +@ alloc_cost 1 + + let bitwise_binop n1 n2 = + let bits = Compare.Int.max (Z.numbits (Script_int.to_zint n1)) (Z.numbits (Script_int.to_zint n2)) in + step_cost bits +@ alloc_bits_cost bits + + let logor = bitwise_binop + let logand = bitwise_binop + let logxor = bitwise_binop + let lognot n = + let bits = Z.numbits @@ Script_int.to_zint n in + step_cost bits +@ alloc_cost bits + + let unopt ~default = function + | None -> default + | Some x -> x + + let max_int = 1073741823 + + let shift_left x y = + alloc_bits_cost + (Z.numbits (Script_int.to_zint x) + + (unopt (Script_int.to_int y) ~default:max_int)) + + let shift_right x y = + alloc_bits_cost + (Compare.Int.max 1 + (Z.numbits (Script_int.to_zint x) - + unopt (Script_int.to_int y) ~default:max_int)) + + let exec = step_cost 1 + + let push = step_cost 1 + + let compare_res = step_cost 1 + + let unpack_failed bytes = + (* We cannot instrument failed deserialization, + so we take worst case fees: a set of size 1 bytes values. *) + let len = MBytes.length bytes in + (len *@ alloc_mbytes_cost 1) +@ + (len *@ (log2 len *@ (alloc_cost 3 +@ step_cost 1))) + + let address = step_cost 1 + let contract = Gas.read_bytes_cost Z.zero +@ step_cost 10000 + let transfer = step_cost 10 + let create_account = step_cost 10 + let create_contract = step_cost 10 + let implicit_account = step_cost 10 + let set_delegate = step_cost 10 +@ write_bytes_cost (Z.of_int 32) + let balance = step_cost 1 +@ read_bytes_cost (Z.of_int 8) + let now = step_cost 5 + let check_signature = step_cost 1000 + let hash_key = step_cost 3 +@ bytes 20 + let hash data len = 10 *@ step_cost (MBytes.length data) +@ bytes len + let steps_to_quota = step_cost 1 + let source = step_cost 1 + let self = step_cost 1 + let amount = step_cost 1 + let chain_id = step_cost 1 + let compare_bool _ _ = step_cost 1 + let compare_string s1 s2 = + step_cost ((7 + Compare.Int.max (String.length s1) (String.length s2)) / 8) +@ step_cost 1 + let compare_bytes s1 s2 = + step_cost ((7 + Compare.Int.max (MBytes.length s1) (MBytes.length s2)) / 8) +@ step_cost 1 + let compare_tez _ _ = step_cost 1 + let compare_zint n1 n2 = step_cost ((7 + Compare.Int.max (Z.numbits n1) (Z.numbits n2)) / 8) +@ step_cost 1 + let compare_key_hash _ _ = alloc_bytes_cost 36 + let compare_timestamp t1 t2 = compare_zint (Script_timestamp.to_zint t1) (Script_timestamp.to_zint t2) + let compare_address _ _ = step_cost 20 + + let rec compare : type a s. (a, s) Script_typed_ir.comparable_struct -> a -> a -> cost = fun ty x y -> + match ty with + | Bool_key _ -> compare_bool x y + | String_key _ -> compare_string x y + | Bytes_key _ -> compare_bytes x y + | Mutez_key _ -> compare_tez x y + | Int_key _ -> compare_zint (Script_int.to_zint x) (Script_int.to_zint y) + | Nat_key _ -> compare_zint (Script_int.to_zint x) (Script_int.to_zint y) + | Key_hash_key _ -> compare_key_hash x y + | Timestamp_key _ -> compare_timestamp x y + | Address_key _ -> compare_address x y + | Pair_key ((tl, _), (tr, _), _) -> + (* Reasonable over-approximation of the cost of lexicographic comparison. *) + let (xl, xr) = x and (yl, yr) = y in + compare tl xl yl +@ compare tr xr yr + + end module Typechecking = struct let cycle = step_cost 1 @@ -261,7 +288,7 @@ module Cost_of = struct let unit = free let string = string let bytes = bytes - let z = zint + let z = Legacy.zint let int_of_string str = alloc_cost @@ (Pervasives.(/) (String.length str) 5) let tez = step_cost 1 +@ alloc_cost 1 @@ -460,8 +487,8 @@ module Cost_of = struct let one_arg_type = prim_cost 1 let two_arg_type = prim_cost 2 - let set_to_list = set_to_list - let map_to_list = map_to_list + let set_to_list = Legacy.set_to_list + let map_to_list = Legacy.map_to_list end end diff --git a/src/proto_alpha/lib_protocol/michelson_v1_gas.mli b/src/proto_alpha/lib_protocol/michelson_v1_gas.mli index ae8d59cb2146..689a72818d53 100644 --- a/src/proto_alpha/lib_protocol/michelson_v1_gas.mli +++ b/src/proto_alpha/lib_protocol/michelson_v1_gas.mli @@ -26,87 +26,98 @@ open Alpha_context module Cost_of : sig - val cycle : Gas.cost - val loop_cycle : Gas.cost - val list_size : Gas.cost - val nop : Gas.cost - val stack_op : Gas.cost - val stack_n_op : int -> Gas.cost - val bool_binop : 'a -> 'b -> Gas.cost - val bool_unop : 'a -> Gas.cost - val pair : Gas.cost - val pair_access : Gas.cost - val cons : Gas.cost - val variant_no_data : Gas.cost - val branch : Gas.cost - val concat_string : string list -> Gas.cost - val concat_bytes : MBytes.t list -> Gas.cost - val slice_string : int -> Gas.cost - val slice_bytes : Gas.cost - val map_mem : - 'a -> ('b, 'c) Script_typed_ir.map -> Gas.cost - val map_to_list : - ('b, 'c) Script_typed_ir.map -> Gas.cost - val map_get : - 'a -> ('b, 'c) Script_typed_ir.map -> Gas.cost - val map_update : - 'a -> 'b -> ('c, 'd) Script_typed_ir.map -> Gas.cost - val map_size : Gas.cost - val big_map_mem : 'key -> ('key, 'value) Script_typed_ir.big_map -> Gas.cost - val big_map_get : 'key -> ('key, 'value) Script_typed_ir.big_map -> Gas.cost - val big_map_update : 'key -> 'value option -> ('key, 'value) Script_typed_ir.big_map -> Gas.cost - val set_to_list : 'a Script_typed_ir.set -> Gas.cost - val set_update : 'a -> bool -> 'a Script_typed_ir.set -> Gas.cost - val set_mem : 'a -> 'a Script_typed_ir.set -> Gas.cost - val mul : 'a Script_int.num -> 'b Script_int.num -> Gas.cost - val div : 'a Script_int.num -> 'b Script_int.num -> Gas.cost - val add : 'a Script_int.num -> 'b Script_int.num -> Gas.cost - val sub : 'a Script_int.num -> 'b Script_int.num -> Gas.cost - val abs : 'a Script_int.num -> Gas.cost - val neg : 'a Script_int.num -> Gas.cost - val int : 'a -> Gas.cost - val add_timestamp : Script_timestamp.t -> 'a Script_int.num -> Gas.cost - val sub_timestamp : Script_timestamp.t -> 'a Script_int.num -> Gas.cost - val diff_timestamps : Script_timestamp.t -> Script_timestamp.t -> Gas.cost - val empty_set : Gas.cost - val set_size : Gas.cost - val empty_map : Gas.cost - val int64_op : Gas.cost - val z_to_int64 : Gas.cost - val int64_to_z : Gas.cost - val bitwise_binop : 'a Script_int.num -> 'b Script_int.num -> Gas.cost - val logor : 'a Script_int.num -> 'b Script_int.num -> Gas.cost - val logand : 'a Script_int.num -> 'b Script_int.num -> Gas.cost - val logxor : 'a Script_int.num -> 'b Script_int.num -> Gas.cost - val lognot : 'a Script_int.num -> Gas.cost - val shift_left : 'a Script_int.num -> 'b Script_int.num -> Gas.cost - val shift_right : 'a Script_int.num -> 'b Script_int.num -> Gas.cost - val exec : Gas.cost - val push : Gas.cost - val compare_res : Gas.cost - val unpack_failed : MBytes.t -> Gas.cost - val address : Gas.cost - val contract : Gas.cost - val transfer : Gas.cost - val create_account : Gas.cost - val create_contract : Gas.cost - val implicit_account : Gas.cost - val set_delegate : Gas.cost - val balance : Gas.cost - val now : Gas.cost - val check_signature : Gas.cost - val hash_key : Gas.cost - val hash : MBytes.t -> int -> Gas.cost - val steps_to_quota : Gas.cost - val source : Gas.cost - val self : Gas.cost - val amount : Gas.cost - val chain_id : Gas.cost - val wrap : Gas.cost - val compare : 'a Script_typed_ir.comparable_ty -> 'a -> 'a -> Gas.cost val manager_operation : Gas.cost + module Legacy : sig + val z_to_int64 : Gas.cost + val hash : MBytes.t -> int -> Gas.cost + val map_to_list : + ('b, 'c) Script_typed_ir.map -> Gas.cost + val set_update : 'a -> bool -> 'a Script_typed_ir.set -> Gas.cost + end + + module Interpreter : sig + val cycle : Gas.cost + val loop_cycle : Gas.cost + val list_size : Gas.cost + val nop : Gas.cost + val stack_op : Gas.cost + val stack_n_op : int -> Gas.cost + val bool_binop : 'a -> 'b -> Gas.cost + val bool_unop : 'a -> Gas.cost + val pair : Gas.cost + val pair_access : Gas.cost + val cons : Gas.cost + val variant_no_data : Gas.cost + val branch : Gas.cost + val concat_string : string list -> Gas.cost + val concat_bytes : MBytes.t list -> Gas.cost + val slice_string : int -> Gas.cost + val slice_bytes : Gas.cost + val map_mem : + 'a -> ('b, 'c) Script_typed_ir.map -> Gas.cost + val map_to_list : + ('b, 'c) Script_typed_ir.map -> Gas.cost + val map_get : + 'a -> ('b, 'c) Script_typed_ir.map -> Gas.cost + val map_update : + 'a -> 'b -> ('c, 'd) Script_typed_ir.map -> Gas.cost + val map_size : Gas.cost + val big_map_mem : 'key -> ('key, 'value) Script_typed_ir.big_map -> Gas.cost + val big_map_get : 'key -> ('key, 'value) Script_typed_ir.big_map -> Gas.cost + val big_map_update : 'key -> 'value option -> ('key, 'value) Script_typed_ir.big_map -> Gas.cost + val set_to_list : 'a Script_typed_ir.set -> Gas.cost + val set_update : 'a -> bool -> 'a Script_typed_ir.set -> Gas.cost + val set_mem : 'a -> 'a Script_typed_ir.set -> Gas.cost + val mul : 'a Script_int.num -> 'b Script_int.num -> Gas.cost + val div : 'a Script_int.num -> 'b Script_int.num -> Gas.cost + val add : 'a Script_int.num -> 'b Script_int.num -> Gas.cost + val sub : 'a Script_int.num -> 'b Script_int.num -> Gas.cost + val abs : 'a Script_int.num -> Gas.cost + val neg : 'a Script_int.num -> Gas.cost + val int : 'a -> Gas.cost + val add_timestamp : Script_timestamp.t -> 'a Script_int.num -> Gas.cost + val sub_timestamp : Script_timestamp.t -> 'a Script_int.num -> Gas.cost + val diff_timestamps : Script_timestamp.t -> Script_timestamp.t -> Gas.cost + val empty_set : Gas.cost + val set_size : Gas.cost + val empty_map : Gas.cost + val int64_op : Gas.cost + val z_to_int64 : Gas.cost + val int64_to_z : Gas.cost + val bitwise_binop : 'a Script_int.num -> 'b Script_int.num -> Gas.cost + val logor : 'a Script_int.num -> 'b Script_int.num -> Gas.cost + val logand : 'a Script_int.num -> 'b Script_int.num -> Gas.cost + val logxor : 'a Script_int.num -> 'b Script_int.num -> Gas.cost + val lognot : 'a Script_int.num -> Gas.cost + val shift_left : 'a Script_int.num -> 'b Script_int.num -> Gas.cost + val shift_right : 'a Script_int.num -> 'b Script_int.num -> Gas.cost + val exec : Gas.cost + val push : Gas.cost + val compare_res : Gas.cost + val unpack_failed : MBytes.t -> Gas.cost + val address : Gas.cost + val contract : Gas.cost + val transfer : Gas.cost + val create_account : Gas.cost + val create_contract : Gas.cost + val implicit_account : Gas.cost + val set_delegate : Gas.cost + val balance : Gas.cost + val now : Gas.cost + val check_signature : Gas.cost + val hash_key : Gas.cost + val hash : MBytes.t -> int -> Gas.cost + val steps_to_quota : Gas.cost + val source : Gas.cost + val self : Gas.cost + val amount : Gas.cost + val chain_id : Gas.cost + val wrap : Gas.cost + val compare : 'a Script_typed_ir.comparable_ty -> 'a -> 'a -> Gas.cost + end + module Typechecking : sig val cycle : Gas.cost val unit : Gas.cost diff --git a/src/proto_alpha/lib_protocol/script_interpreter.ml b/src/proto_alpha/lib_protocol/script_interpreter.ml index 1043b830185b..0c2e40cb373c 100644 --- a/src/proto_alpha/lib_protocol/script_interpreter.ml +++ b/src/proto_alpha/lib_protocol/script_interpreter.ml @@ -157,7 +157,7 @@ let unparse_stack ctxt (stack, stack_ty) = return ((data, annot) :: rest) in unparse_stack (stack, stack_ty) -module Interp_costs = Michelson_v1_gas.Cost_of +module Interp_costs = Michelson_v1_gas.Cost_of.Interpreter let rec interp_stack_prefix_preserving_operation : type fbef bef faft aft result . (fbef stack -> (faft stack * result) tzresult Lwt.t) diff --git a/src/proto_alpha/lib_protocol/script_ir_translator.ml b/src/proto_alpha/lib_protocol/script_ir_translator.ml index 829a78f2e249..9d8b3dd4d2fa 100644 --- a/src/proto_alpha/lib_protocol/script_ir_translator.ml +++ b/src/proto_alpha/lib_protocol/script_ir_translator.ml @@ -1577,7 +1577,7 @@ let rec parse_data | Mutez_t _, Int (_, v) -> Lwt.return ( Gas.consume ctxt Typecheck_costs.tez >>? fun ctxt -> - Gas.consume ctxt Michelson_v1_gas.Cost_of.z_to_int64 + Gas.consume ctxt Michelson_v1_gas.Cost_of.Legacy.z_to_int64 ) >>=? fun ctxt -> begin try match Tez.of_mutez (Z.to_int64 v) with @@ -1827,7 +1827,7 @@ let rec parse_data else return_unit | None -> return_unit end >>=? fun () -> - Lwt.return (Gas.consume ctxt (Michelson_v1_gas.Cost_of.set_update v false set)) >>=? fun ctxt -> + Lwt.return (Gas.consume ctxt (Michelson_v1_gas.Cost_of.Legacy.set_update v false set)) >>=? fun ctxt -> return (Some v, set_update v true set, ctxt)) (None, empty_set t, ctxt) vs >>|? fun (_, set, ctxt) -> (set, ctxt) @@ -3733,7 +3733,7 @@ let pack_data ctxt typ data = let hash_data ctxt typ data = pack_data ctxt typ data >>=? fun (bytes, ctxt) -> Lwt.return @@ Gas.consume ctxt - (Michelson_v1_gas.Cost_of.hash bytes Script_expr_hash.size) >>=? fun ctxt -> + (Michelson_v1_gas.Cost_of.Legacy.hash bytes Script_expr_hash.size) >>=? fun ctxt -> return (Script_expr_hash.(hash_bytes [ bytes ]), ctxt) (* ---------------- Big map -------------------------------------------------*) @@ -3764,7 +3764,7 @@ let big_map_update key value ({ diff ; _ } as map) = { map with diff = map_set key value diff } let diff_of_big_map ctxt mode (Ex_bm { key_type ; value_type ; diff }) = - Lwt.return (Gas.consume ctxt (Michelson_v1_gas.Cost_of.map_to_list diff)) >>=? fun ctxt -> + Lwt.return (Gas.consume ctxt (Michelson_v1_gas.Cost_of.Legacy.map_to_list diff)) >>=? fun ctxt -> let pairs = map_fold (fun key value acc -> (key, value) :: acc) diff [] in fold_left_s (fun (acc, ctxt) (key, value) -> -- GitLab From cc482e17205564ed74ec2f5fdbbb4e215059935c Mon Sep 17 00:00:00 2001 From: Ilias Garnier Date: Tue, 25 Jun 2019 08:51:51 +0200 Subject: [PATCH 054/252] Proto/Michelson: add comparable_ty type witness in boxed sets Some cost functions require computing the size of keys/elts of maps/sets. Not being able to dispatch on the element type was making this impossible outside of the interpreter (where the element type of the set could be accessed elsewhere). This patch fixes that. --- src/proto_alpha/lib_protocol/script_ir_translator.ml | 2 ++ src/proto_alpha/lib_protocol/script_typed_ir.ml | 9 +++++---- 2 files changed, 7 insertions(+), 4 deletions(-) diff --git a/src/proto_alpha/lib_protocol/script_ir_translator.ml b/src/proto_alpha/lib_protocol/script_ir_translator.ml index 9d8b3dd4d2fa..654020ba49bd 100644 --- a/src/proto_alpha/lib_protocol/script_ir_translator.ml +++ b/src/proto_alpha/lib_protocol/script_ir_translator.ml @@ -447,6 +447,7 @@ let empty_set end) in (module struct type elt = a + let elt_ty = ty module OPS = OPS let boxed = OPS.empty let size = 0 @@ -457,6 +458,7 @@ let set_update = fun v b (module Box) -> (module struct type elt = a + let elt_ty = Box.elt_ty module OPS = Box.OPS let boxed = if b diff --git a/src/proto_alpha/lib_protocol/script_typed_ir.ml b/src/proto_alpha/lib_protocol/script_typed_ir.ml index 15535705b79c..aabb68ac2903 100644 --- a/src/proto_alpha/lib_protocol/script_typed_ir.ml +++ b/src/proto_alpha/lib_protocol/script_typed_ir.ml @@ -62,6 +62,7 @@ type 'a comparable_ty = ('a, comb) comparable_struct module type Boxed_set = sig type elt + val elt_ty : elt comparable_ty module OPS : S.SET with type elt = elt val boxed : OPS.t val size : int @@ -403,13 +404,13 @@ and ('bef, 'aft) instr = | Amount : ('rest, Tez.t * 'rest) instr | Dig : int * ('x * 'rest, 'rest, 'bef, 'aft) stack_prefix_preservation_witness -> - ('bef, 'x * 'aft) instr + ('bef, 'x * 'aft) instr | Dug : int * ('rest, 'x * 'rest, 'bef, 'aft) stack_prefix_preservation_witness -> - ('x * 'bef, 'aft) instr + ('x * 'bef, 'aft) instr | Dipn : int * ('fbef, 'faft, 'bef, 'aft) stack_prefix_preservation_witness * ('fbef, 'faft) descr -> - ('bef, 'aft) instr + ('bef, 'aft) instr | Dropn : int * ('rest, 'rest, 'bef, _) stack_prefix_preservation_witness -> - ('bef, 'rest) instr + ('bef, 'rest) instr | ChainId : ('rest, Chain_id.t * 'rest) instr -- GitLab From beca4b73c21907f8748d612cda5535ba5373dff9 Mon Sep 17 00:00:00 2001 From: Ilias Garnier Date: Fri, 21 Jun 2019 14:47:37 +0200 Subject: [PATCH 055/252] Proto/Michelson: finer-grained cost accounting for the interpreter I. Rescaling step cost - Rescale step_cost by 2^7 to allow finer cost accounting in the interpeter. - Expose new function atomic_step_cost exposing finer resolution step increments. II. Provide facilities for interpreter-specific cost accounting Introduce new functions `Gas.incr_interpreter_cost` and `Gas.bill_interpreter_cost`. - The context stores a new counter 'interpreter_cost' of type Gas_limit_repr.cost - functions are provided to: - increment this counter (incr_interpreter_cost) and - bill for the gas corresponding to this counter and reset this counter. Until bill_interpreter_cost is called, the interpreter_cost is _not_ taken into account into the effectively consumed gas. - Each call to incr_interpreter_cost still checks that we are under the operation and block gas limits. - The interpreter uses these functions instead of the usual Gas.consume. The invariant that has to be respected for this to be transparent to the rest of the protocol is that all continuations of the `step` function to other functions should bill and reset the interpreter_cost beforehand. This concerns calls to interp, calls to the typechecker, calls to read from a big map, calls to the serialization/deserialization mechanism, etc; in short, all calls to other parts of the protocol should have a context in a state where this fine-grained gas bookkeeping has been settled and reset. --- .../lib_protocol/gas_limit_repr.ml | 97 +++++++++++++------ .../lib_protocol/gas_limit_repr.mli | 9 +- src/proto_alpha/lib_protocol/raw_context.ml | 16 ++- .../lib_protocol/script_interpreter.ml | 14 +-- 4 files changed, 91 insertions(+), 45 deletions(-) diff --git a/src/proto_alpha/lib_protocol/gas_limit_repr.ml b/src/proto_alpha/lib_protocol/gas_limit_repr.ml index 27025d7d6ab0..37e4de65f3a4 100644 --- a/src/proto_alpha/lib_protocol/gas_limit_repr.ml +++ b/src/proto_alpha/lib_protocol/gas_limit_repr.ml @@ -27,6 +27,8 @@ type t = | Unaccounted | Limited of { remaining : Z.t } +type internal_gas = Z.t + type cost = { allocations : Z.t ; steps : Z.t ; @@ -90,37 +92,60 @@ let write_base_weight = Z.of_int 160 let byte_read_weight = Z.of_int 10 let byte_written_weight = Z.of_int 15 -let consume block_gas operation_gas cost = match operation_gas with - | Unaccounted -> ok (block_gas, Unaccounted) +let rescaling_bits = 7 +let rescaling_mask = + Z.sub (Z.shift_left Z.one rescaling_bits) Z.one + +let scale (z : Z.t) = Z.shift_left z rescaling_bits +let rescale (z : Z.t) = Z.shift_right z rescaling_bits + +let cost_to_internal_gas (cost : cost) : internal_gas = + Z.add + (Z.add + (Z.mul cost.allocations allocation_weight) + (Z.mul cost.steps step_weight)) + (Z.add + (Z.add + (Z.mul cost.reads read_base_weight) + (Z.mul cost.writes write_base_weight)) + (Z.add + (Z.mul cost.bytes_read byte_read_weight) + (Z.mul cost.bytes_written byte_written_weight))) + +let internal_gas_to_gas internal_gas : Z.t * internal_gas = + let gas = rescale internal_gas in + let rest = Z.logand internal_gas rescaling_mask in + (gas, rest) + +let consume block_gas operation_gas internal_gas cost = + match operation_gas with + | Unaccounted -> ok (block_gas, Unaccounted, internal_gas) | Limited { remaining } -> - let weighted_cost = - Z.add - (Z.add - (Z.mul allocation_weight cost.allocations) - (Z.mul step_weight cost.steps)) - (Z.add - (Z.add - (Z.mul read_base_weight cost.reads) - (Z.mul write_base_weight cost.writes)) - (Z.add - (Z.mul byte_read_weight cost.bytes_read) - (Z.mul byte_written_weight cost.bytes_written))) in - let remaining = - Z.sub remaining weighted_cost in - let block_remaining = - Z.sub block_gas weighted_cost in - if Compare.Z.(remaining < Z.zero) - then error Operation_quota_exceeded - else if Compare.Z.(block_remaining < Z.zero) - then error Block_quota_exceeded - else ok (block_remaining, Limited { remaining }) - -let check_enough block_gas operation_gas cost = - consume block_gas operation_gas cost - >|? fun (_block_remainig, _remaining) -> () + let cost_internal_gas = cost_to_internal_gas cost in + let total_internal_gas = + Z.add cost_internal_gas internal_gas in + let gas, rest = internal_gas_to_gas total_internal_gas in + if Compare.Z.(gas > Z.zero) then + let remaining = + Z.sub remaining gas in + let block_remaining = + Z.sub block_gas gas in + if Compare.Z.(remaining < Z.zero) + then error Operation_quota_exceeded + else if Compare.Z.(block_remaining < Z.zero) + then error Block_quota_exceeded + else ok (block_remaining, Limited { remaining }, rest) + else + ok (block_gas, operation_gas, total_internal_gas) + +let check_enough block_gas operation_gas internal_gas cost = + consume block_gas operation_gas internal_gas cost + >|? fun (_block_remainig, _remaining, _internal_gas) -> () + +let internal_gas_zero : internal_gas = Z.zero let alloc_cost n = - { allocations = Z.of_int (n + 1) ; + { allocations = scale (Z.of_int (n + 1)) ; steps = Z.zero ; reads = Z.zero ; writes = Z.zero ; @@ -133,7 +158,7 @@ let alloc_bytes_cost n = let alloc_bits_cost n = alloc_cost ((n + 63) / 64) -let step_cost n = +let atomic_step_cost n = { allocations = Z.zero ; steps = Z.of_int n ; reads = Z.zero ; @@ -141,6 +166,14 @@ let step_cost n = bytes_read = Z.zero ; bytes_written = Z.zero } +let step_cost n = + { allocations = Z.zero ; + steps = scale (Z.of_int n) ; + reads = Z.zero ; + writes = Z.zero ; + bytes_read = Z.zero ; + bytes_written = Z.zero } + let free = { allocations = Z.zero ; steps = Z.zero ; @@ -152,9 +185,9 @@ let free = let read_bytes_cost n = { allocations = Z.zero ; steps = Z.zero ; - reads = Z.one ; + reads = scale Z.one ; writes = Z.zero ; - bytes_read = n ; + bytes_read = scale n ; bytes_written = Z.zero } let write_bytes_cost n = @@ -163,7 +196,7 @@ let write_bytes_cost n = reads = Z.zero ; writes = Z.one ; bytes_read = Z.zero ; - bytes_written = n } + bytes_written = scale n } let ( +@ ) x y = { allocations = Z.add x.allocations y.allocations ; diff --git a/src/proto_alpha/lib_protocol/gas_limit_repr.mli b/src/proto_alpha/lib_protocol/gas_limit_repr.mli index 00db52353718..d5b58c203fe5 100644 --- a/src/proto_alpha/lib_protocol/gas_limit_repr.mli +++ b/src/proto_alpha/lib_protocol/gas_limit_repr.mli @@ -27,6 +27,8 @@ type t = | Unaccounted | Limited of { remaining : Z.t } +type internal_gas + val encoding : t Data_encoding.encoding val pp : Format.formatter -> t -> unit @@ -38,10 +40,13 @@ val pp_cost : Format.formatter -> cost -> unit type error += Block_quota_exceeded (* `Temporary *) type error += Operation_quota_exceeded (* `Temporary *) -val consume : Z.t -> t -> cost -> (Z.t * t) tzresult -val check_enough : Z.t -> t -> cost -> unit tzresult +val consume : Z.t -> t -> internal_gas -> cost -> (Z.t * t * internal_gas) tzresult +val check_enough : Z.t -> t -> internal_gas -> cost -> unit tzresult + +val internal_gas_zero : internal_gas val free : cost +val atomic_step_cost : int -> cost val step_cost : int -> cost val alloc_cost : int -> cost val alloc_bytes_cost : int -> cost diff --git a/src/proto_alpha/lib_protocol/raw_context.ml b/src/proto_alpha/lib_protocol/raw_context.ml index c7a58ed780d9..5339404ae384 100644 --- a/src/proto_alpha/lib_protocol/raw_context.ml +++ b/src/proto_alpha/lib_protocol/raw_context.ml @@ -41,6 +41,7 @@ type t = { rewards: Tez_repr.t ; block_gas: Z.t ; operation_gas: Gas_limit_repr.t ; + internal_gas: Gas_limit_repr.internal_gas ; storage_space_to_pay: Z.t option ; allocated_contracts: int option ; origination_nonce: Contract_repr.origination_nonce option ; @@ -190,16 +191,22 @@ let check_gas_limit ctxt remaining = else ok () let set_gas_limit ctxt remaining = - { ctxt with operation_gas = Limited { remaining } } + { ctxt with operation_gas = Limited { remaining } ; + internal_gas = Gas_limit_repr.internal_gas_zero } let set_gas_unlimited ctxt = { ctxt with operation_gas = Unaccounted } let consume_gas ctxt cost = - Gas_limit_repr.consume ctxt.block_gas ctxt.operation_gas cost >>? fun (block_gas, operation_gas) -> - ok { ctxt with block_gas ; operation_gas } + Gas_limit_repr.consume + ctxt.block_gas + ctxt.operation_gas + ctxt.internal_gas + cost >>? fun (block_gas, operation_gas, internal_gas) -> + ok { ctxt with block_gas ; operation_gas ; internal_gas } let check_enough_gas ctxt cost = - Gas_limit_repr.check_enough ctxt.block_gas ctxt.operation_gas cost + Gas_limit_repr.check_enough ctxt.block_gas ctxt.operation_gas ctxt.internal_gas cost let gas_level ctxt = ctxt.operation_gas let block_gas_level ctxt = ctxt.block_gas + let gas_consumed ~since ~until = match gas_level since, gas_level until with | Limited { remaining = before }, Limited { remaining = after } -> Z.sub before after @@ -473,6 +480,7 @@ let prepare ~level ~predecessor_timestamp ~timestamp ~fitness ctxt = rewards = Tez_repr.zero ; deposits = Signature.Public_key_hash.Map.empty ; operation_gas = Unaccounted ; + internal_gas = Gas_limit_repr.internal_gas_zero ; storage_space_to_pay = None ; allocated_contracts = None ; block_gas = constants.Constants_repr.hard_gas_limit_per_block ; diff --git a/src/proto_alpha/lib_protocol/script_interpreter.ml b/src/proto_alpha/lib_protocol/script_interpreter.ml index 0c2e40cb373c..cdda8850083b 100644 --- a/src/proto_alpha/lib_protocol/script_interpreter.ml +++ b/src/proto_alpha/lib_protocol/script_interpreter.ml @@ -314,7 +314,7 @@ let rec interp step ctxt bt (Item (hd, Item (tl, rest))) | List_map body, Item (l, rest) -> let rec loop rest ctxt l acc = - Lwt.return (Gas.consume ctxt Interp_costs.loop_cycle) >>=? fun ctxt -> + Lwt.return (Gas.consume ctxt Interp_costs.loop_map) >>=? fun ctxt -> match l with | [] -> return (Item (List.rev acc, rest), ctxt) | hd :: tl -> @@ -334,7 +334,7 @@ let rec interp logged_return (Item (Script_int.(abs (of_int len)), rest), ctxt) | List_iter body, Item (l, init) -> let rec loop ctxt l stack = - Lwt.return (Gas.consume ctxt Interp_costs.loop_cycle) >>=? fun ctxt -> + Lwt.return (Gas.consume ctxt Interp_costs.loop_iter) >>=? fun ctxt -> match l with | [] -> return (stack, ctxt) | hd :: tl -> @@ -351,7 +351,7 @@ let rec interp Lwt.return (Gas.consume ctxt (Interp_costs.set_to_list set)) >>=? fun ctxt -> let l = List.rev (set_fold (fun e acc -> e :: acc) set []) in let rec loop ctxt l stack = - Lwt.return (Gas.consume ctxt Interp_costs.loop_cycle) >>=? fun ctxt -> + Lwt.return (Gas.consume ctxt Interp_costs.loop_iter) >>=? fun ctxt -> match l with | [] -> return (stack, ctxt) | hd :: tl -> @@ -374,7 +374,7 @@ let rec interp Lwt.return (Gas.consume ctxt (Interp_costs.map_to_list map)) >>=? fun ctxt -> let l = List.rev (map_fold (fun k v acc -> (k, v) :: acc) map []) in let rec loop rest ctxt l acc = - Lwt.return (Gas.consume ctxt Interp_costs.loop_cycle) >>=? fun ctxt -> + Lwt.return (Gas.consume ctxt Interp_costs.loop_map) >>=? fun ctxt -> match l with | [] -> return (acc, ctxt) | (k, _) as hd :: tl -> @@ -387,7 +387,7 @@ let rec interp Lwt.return (Gas.consume ctxt (Interp_costs.map_to_list map)) >>=? fun ctxt -> let l = List.rev (map_fold (fun k v acc -> (k, v) :: acc) map []) in let rec loop ctxt l stack = - Lwt.return (Gas.consume ctxt Interp_costs.loop_cycle) >>=? fun ctxt -> + Lwt.return (Gas.consume ctxt Interp_costs.loop_iter) >>=? fun ctxt -> match l with | [] -> return (stack, ctxt) | hd :: tl -> @@ -406,11 +406,11 @@ let rec interp consume_gas_unop descr (map_size, map) (fun _ -> Interp_costs.map_size) rest ctxt (* Big map operations *) | Big_map_mem, Item (key, Item (map, rest)) -> - Lwt.return (Gas.consume ctxt (Interp_costs.big_map_mem key map)) >>=? fun ctxt -> + Lwt.return (Gas.consume ctxt (Interp_costs.map_mem key map.diff)) >>=? fun ctxt -> Script_ir_translator.big_map_mem ctxt self key map >>=? fun (res, ctxt) -> logged_return (Item (res, rest), ctxt) | Big_map_get, Item (key, Item (map, rest)) -> - Lwt.return (Gas.consume ctxt (Interp_costs.big_map_get key map)) >>=? fun ctxt -> + Lwt.return (Gas.consume ctxt (Interp_costs.map_get key map.diff)) >>=? fun ctxt -> Script_ir_translator.big_map_get ctxt self key map >>=? fun (res, ctxt) -> logged_return (Item (res, rest), ctxt) | Big_map_update, Item (key, Item (maybe_value, Item (map, rest))) -> -- GitLab From e70fc610713badbb20e8009d7c778193028a0421 Mon Sep 17 00:00:00 2001 From: Ilias Garnier Date: Tue, 2 Jul 2019 16:49:10 +0200 Subject: [PATCH 056/252] Proto/Michelson: new gas costs The cost functions in Michelson_v1_gas were to a large extent automatically generated. Please refer to meta_model.ml The (abstract) cost model makes large use of floating-point coefficient. These were converted to either integer multiplication/divisions or to statically generated fixed-point computations. --- .../lib_protocol/alpha_context.mli | 1 + .../lib_protocol/gas_limit_repr.ml | 2 +- .../lib_protocol/michelson_v1_gas.ml | 363 +++++++++--------- .../lib_protocol/michelson_v1_gas.mli | 27 +- .../lib_protocol/script_interpreter.ml | 12 +- 5 files changed, 202 insertions(+), 203 deletions(-) diff --git a/src/proto_alpha/lib_protocol/alpha_context.mli b/src/proto_alpha/lib_protocol/alpha_context.mli index f2f0622940fe..73123874dc88 100644 --- a/src/proto_alpha/lib_protocol/alpha_context.mli +++ b/src/proto_alpha/lib_protocol/alpha_context.mli @@ -146,6 +146,7 @@ module Gas : sig type error += Gas_limit_too_high (* `Permanent *) val free : cost + val atomic_step_cost : int -> cost val step_cost : int -> cost val alloc_cost : int -> cost val alloc_bytes_cost : int -> cost diff --git a/src/proto_alpha/lib_protocol/gas_limit_repr.ml b/src/proto_alpha/lib_protocol/gas_limit_repr.ml index 37e4de65f3a4..2d935809ecf9 100644 --- a/src/proto_alpha/lib_protocol/gas_limit_repr.ml +++ b/src/proto_alpha/lib_protocol/gas_limit_repr.ml @@ -160,7 +160,7 @@ let alloc_bits_cost n = let atomic_step_cost n = { allocations = Z.zero ; - steps = Z.of_int n ; + steps = Z.of_int (2 * n) ; reads = Z.zero ; writes = Z.zero ; bytes_read = Z.zero ; diff --git a/src/proto_alpha/lib_protocol/michelson_v1_gas.ml b/src/proto_alpha/lib_protocol/michelson_v1_gas.ml index 059fc127b108..bb6bfcaebb10 100644 --- a/src/proto_alpha/lib_protocol/michelson_v1_gas.ml +++ b/src/proto_alpha/lib_protocol/michelson_v1_gas.ml @@ -34,6 +34,34 @@ module Cost_of = struct | n -> help (acc + 1) (n / 2) in help 1 + let z_bytes (z : Z.t) = + let bits = Z.numbits z in + (7 + bits) / 8 + + let int_bytes (z : 'a Script_int.num) = + z_bytes (Script_int.to_zint z) + + let timestamp_bytes (t : Script_timestamp.t) = + let z = Script_timestamp.to_zint t in + z_bytes z + + (* For now, returns size in bytes, but this could get more complicated... *) + let rec size_of_comparable : type a b. (a, b) Script_typed_ir.comparable_struct -> a -> int = + fun wit v -> + match wit with + | Int_key _ -> int_bytes v + | Nat_key _ -> int_bytes v + | String_key _ -> String.length v + | Bytes_key _ -> MBytes.length v + | Bool_key _ -> 8 + | Key_hash_key _ -> Signature.Public_key_hash.size + | Timestamp_key _ -> timestamp_bytes v + | Address_key _ -> Signature.Public_key_hash.size + | Mutez_key _ -> 8 + | Pair_key ((l, _), (r, _), _) -> + let (lval, rval) = v in + size_of_comparable l lval + size_of_comparable r rval + let string length = alloc_bytes_cost length @@ -68,201 +96,176 @@ module Cost_of = struct end module Interpreter = struct - let cycle = step_cost 1 + let cycle = atomic_step_cost 10 let nop = free - - let stack_op = step_cost 1 - - (* Cost of operations similar to dig which drill down the top N elements - of the stack without affecting them, and perform some simple operation. *) - let stack_n_op n = step_cost ((n + 1) / 64) (* to be customized by gas benchmarks *) - - let bool_binop _ _ = step_cost 1 - let bool_unop _ = step_cost 1 - - let pair = alloc_cost 2 - let pair_access = step_cost 1 - - let cons = alloc_cost 2 - - let variant_no_data = alloc_cost 1 - - let branch = step_cost 2 - - let concat cost length ss = - let rec cum acc = function - | [] -> acc - | s :: ss -> cum (cost (length s) +@ acc) ss in - cum free ss - - let concat_string ss = concat string String.length ss - let concat_bytes ss = concat bytes MBytes.length ss - - let slice_string length = string length - let slice_bytes = alloc_cost 0 - - (* Cost per cycle of a loop, fold, etc *) - let loop_cycle = step_cost 2 - - let list_size = step_cost 1 - - let module_cost = alloc_cost 10 - - let map_access : type key value. (key, value) Script_typed_ir.map -> int - = fun (module Box) -> - log2 (snd Box.boxed) - - let map_to_list : type key value. (key, value) Script_typed_ir.map -> cost - = fun (module Box) -> + let stack_op = atomic_step_cost 10 + let push = atomic_step_cost 10 + let wrap = atomic_step_cost 10 + let variant_no_data = atomic_step_cost 10 + let branch = atomic_step_cost 10 + let pair = atomic_step_cost 10 + let pair_access = atomic_step_cost 10 + let cons = atomic_step_cost 10 + let loop_size = atomic_step_cost 5 + let loop_cycle = atomic_step_cost 10 + let loop_iter = atomic_step_cost 20 + let loop_map = atomic_step_cost 30 + let empty_set = atomic_step_cost 10 + let set_to_list : type elt. elt Script_typed_ir.set -> cost = + fun (module Box) -> + atomic_step_cost (Box.size * 20) + + let set_mem : type elt. elt -> elt Script_typed_ir.set -> cost = + fun elt (module Box) -> + let elt_bytes = size_of_comparable Box.elt_ty elt in + atomic_step_cost ((1 + (elt_bytes / 82)) * log2 Box.size) + + let set_update : type elt. elt -> bool -> elt Script_typed_ir.set -> cost = + fun elt _ (module Box) -> + let elt_bytes = size_of_comparable Box.elt_ty elt in + atomic_step_cost ((1 + (elt_bytes / 82)) * log2 Box.size) + + let set_size = atomic_step_cost 10 + let empty_map = atomic_step_cost 10 + let map_to_list : type key value. (key, value) Script_typed_ir.map -> cost = + fun (module Box) -> let size = snd Box.boxed in - 3 *@ alloc_cost size - - let map_mem _key map = step_cost (map_access map) - - let map_get = map_mem - - let map_update _ _ map = - map_access map *@ alloc_cost 3 - - let map_size = step_cost 2 - - let big_map_mem _key _map = step_cost 50 - let big_map_get _key _map = step_cost 50 - let big_map_update _key _value _map = step_cost 10 - - let set_access : type elt. elt -> elt Script_typed_ir.set -> int - = fun _key (module Box) -> - log2 @@ Box.size - - let set_mem key set = step_cost (set_access key set) - - let set_update key _presence set = - set_access key set *@ alloc_cost 3 - - (* for LEFT, RIGHT, SOME *) - let wrap = alloc_cost 1 - - let mul n1 n2 = - let steps = - (Z.numbits (Script_int.to_zint n1)) - * (Z.numbits (Script_int.to_zint n2)) in - let bits = - (Z.numbits (Script_int.to_zint n1)) - + (Z.numbits (Script_int.to_zint n2)) in - step_cost steps +@ alloc_bits_cost bits - - let div n1 n2 = - mul n1 n2 +@ alloc_cost 2 - - let add_sub_z n1 n2 = - let bits = - Compare.Int.max (Z.numbits n1) (Z.numbits n2) in - step_cost bits +@ alloc_cost bits - - let add n1 n2 = - add_sub_z (Script_int.to_zint n1) (Script_int.to_zint n2) - - let sub = add - - let abs n = - alloc_bits_cost (Z.numbits @@ Script_int.to_zint n) - + atomic_step_cost (size * 20) + + let map_access : type key value. key -> (key, value) Script_typed_ir.map -> cost + = fun key (module Box) -> + let map_card = snd Box.boxed in + let key_bytes = size_of_comparable Box.key_ty key in + atomic_step_cost ((1 + (key_bytes / 70)) * log2 map_card) + + let map_mem = map_access + let map_get = map_access + + let map_update : type key value. key -> value option -> (key, value) Script_typed_ir.map -> cost + = fun key _value (module Box) -> + let map_card = snd Box.boxed in + let key_bytes = size_of_comparable Box.key_ty key in + atomic_step_cost ((1 + (key_bytes / 38)) * log2 map_card) + + let map_size = atomic_step_cost 10 + + let add_timestamp (t1 : Script_timestamp.t) (t2 : 'a Script_int.num) = + let bytes1 = timestamp_bytes t1 in + let bytes2 = int_bytes t2 in + atomic_step_cost (51 + (Compare.Int.max bytes1 bytes2 / 62)) + let sub_timestamp = add_timestamp + let diff_timestamps (t1 : Script_timestamp.t) (t2 : Script_timestamp.t) = + let bytes1 = timestamp_bytes t1 in + let bytes2 = timestamp_bytes t2 in + atomic_step_cost (51 + (Compare.Int.max bytes1 bytes2 / 62)) + + let rec concat_loop l acc = + match l with + | [] -> 30 + | _ :: tl -> concat_loop tl (acc + 30) + + let concat_string string_list = + atomic_step_cost (concat_loop string_list 0) + + let slice_string string_length = + atomic_step_cost (40 + (string_length / 70)) + + let concat_bytes bytes_list = + atomic_step_cost (concat_loop bytes_list 0) + + let int64_op = atomic_step_cost 61 + let z_to_int64 = atomic_step_cost 20 + let int64_to_z = atomic_step_cost 20 + let bool_binop _ _ = atomic_step_cost 10 + let bool_unop _ = atomic_step_cost 10 + + let abs int = atomic_step_cost (61 + ((int_bytes int) / 70)) + let int _int = free let neg = abs - let int _ = step_cost 1 - - let add_timestamp t n = - add_sub_z (Script_timestamp.to_zint t) (Script_int.to_zint n) - - let sub_timestamp t n = - add_sub_z (Script_timestamp.to_zint t) (Script_int.to_zint n) - - let diff_timestamps t1 t2 = - add_sub_z (Script_timestamp.to_zint t1) (Script_timestamp.to_zint t2) - - let empty_set = module_cost - - let set_size = step_cost 2 - - let set_to_list : type item. item Script_typed_ir.set -> cost - = fun (module Box) -> - alloc_cost @@ Pervasives.(Box.size * 2) - - let empty_map = module_cost - - let int64_op = step_cost 1 +@ alloc_cost 1 - - let z_to_int64 = step_cost 2 +@ alloc_cost 1 - - let int64_to_z = step_cost 2 +@ alloc_cost 1 - - let bitwise_binop n1 n2 = - let bits = Compare.Int.max (Z.numbits (Script_int.to_zint n1)) (Z.numbits (Script_int.to_zint n2)) in - step_cost bits +@ alloc_bits_cost bits - - let logor = bitwise_binop - let logand = bitwise_binop - let logxor = bitwise_binop - let lognot n = - let bits = Z.numbits @@ Script_int.to_zint n in - step_cost bits +@ alloc_cost bits - - let unopt ~default = function - | None -> default - | Some x -> x - - let max_int = 1073741823 - - let shift_left x y = - alloc_bits_cost - (Z.numbits (Script_int.to_zint x) + - (unopt (Script_int.to_int y) ~default:max_int)) - - let shift_right x y = - alloc_bits_cost - (Compare.Int.max 1 - (Z.numbits (Script_int.to_zint x) - - unopt (Script_int.to_int y) ~default:max_int)) - - let exec = step_cost 1 - - let push = step_cost 1 + let add i1 i2 = atomic_step_cost (51 + (Compare.Int.max (int_bytes i1) (int_bytes i2) / 62)) + let sub = add - let compare_res = step_cost 1 + let mul i1 i2 = + let bytes = Compare.Int.max (int_bytes i1) (int_bytes i2) in + atomic_step_cost (51 + (bytes / 6 * log2 bytes)) + + let indic_lt x y = if Compare.Int.(x < y) then 1 else 0 + + let div i1 i2 = + let bytes1 = int_bytes i1 in + let bytes2 = int_bytes i2 in + let cost = indic_lt bytes2 bytes1 * (bytes1 - bytes2) * bytes2 in + atomic_step_cost (51 + (cost / 3151)) + + let shift_left _i _shift_bits = atomic_step_cost 30 + let shift_right _i _shift_bits = atomic_step_cost 30 + let logor i1 i2 = + let bytes1 = int_bytes i1 in + let bytes2 = int_bytes i2 in + atomic_step_cost (51 + ((Compare.Int.max bytes1 bytes2) / 70)) + let logand i1 i2 = + let bytes1 = int_bytes i1 in + let bytes2 = int_bytes i2 in + atomic_step_cost (51 + ((Compare.Int.min bytes1 bytes2) / 70)) + let logxor = logor + let lognot i = atomic_step_cost (51 + ((int_bytes i) / 20)) + let exec = atomic_step_cost 10 + let compare_bool _ _ = atomic_step_cost 30 + let compare_string s1 s2 = + let bytes1 = String.length s1 in + let bytes2 = String.length s2 in + atomic_step_cost (30 + ((Compare.Int.min bytes1 bytes2) / 123)) + let compare_bytes b1 b2 = + let bytes1 = MBytes.length b1 in + let bytes2 = MBytes.length b2 in + atomic_step_cost (30 + ((Compare.Int.min bytes1 bytes2) / 123)) + let compare_tez _ _ = atomic_step_cost 30 + let compare_zint i1 i2 = + atomic_step_cost (51 + ((Compare.Int.min (int_bytes i1) (int_bytes i2)) / 82)) + let compare_key_hash _ _ = atomic_step_cost 92 + + let compare_timestamp t1 t2 = + let bytes1 = timestamp_bytes t1 in + let bytes2 = timestamp_bytes t2 in + atomic_step_cost (51 + ((Compare.Int.min bytes1 bytes2) / 82)) + + let compare_address _ _ = atomic_step_cost 92 + let compare_res = atomic_step_cost 30 let unpack_failed bytes = (* We cannot instrument failed deserialization, so we take worst case fees: a set of size 1 bytes values. *) let len = MBytes.length bytes in (len *@ alloc_mbytes_cost 1) +@ (len *@ (log2 len *@ (alloc_cost 3 +@ step_cost 1))) - - let address = step_cost 1 - let contract = Gas.read_bytes_cost Z.zero +@ step_cost 10000 + let address = atomic_step_cost 10 + let contract = step_cost 10000 let transfer = step_cost 10 let create_account = step_cost 10 let create_contract = step_cost 10 let implicit_account = step_cost 10 let set_delegate = step_cost 10 +@ write_bytes_cost (Z.of_int 32) - let balance = step_cost 1 +@ read_bytes_cost (Z.of_int 8) - let now = step_cost 5 - let check_signature = step_cost 1000 - let hash_key = step_cost 3 +@ bytes 20 - let hash data len = 10 *@ step_cost (MBytes.length data) +@ bytes len - let steps_to_quota = step_cost 1 - let source = step_cost 1 - let self = step_cost 1 - let amount = step_cost 1 + let balance = atomic_step_cost 10 + let now = atomic_step_cost 10 + let check_signature_secp256k1 bytes = atomic_step_cost (10342 + (bytes / 5)) + let check_signature_ed25519 bytes = atomic_step_cost (36864 + (bytes / 5)) + let check_signature_p256 bytes = atomic_step_cost (36864 + (bytes / 5)) + let check_signature (pkey : Signature.public_key) bytes = + match pkey with + | Ed25519 _ -> check_signature_ed25519 (MBytes.length bytes) + | Secp256k1 _ -> check_signature_secp256k1 (MBytes.length bytes) + | P256 _ -> check_signature_p256 (MBytes.length bytes) + let hash_key = atomic_step_cost 30 + let hash_blake2b b = atomic_step_cost (102 + ((MBytes.length b) / 5)) + let hash_sha256 b = atomic_step_cost (409 + (MBytes.length b)) + let hash_sha512 b = + let bytes = MBytes.length b in atomic_step_cost (409 + ((bytes lsr 1) + (bytes lsr 4))) + let steps_to_quota = atomic_step_cost 10 + let source = atomic_step_cost 10 + let self = atomic_step_cost 10 + let amount = atomic_step_cost 10 let chain_id = step_cost 1 - let compare_bool _ _ = step_cost 1 - let compare_string s1 s2 = - step_cost ((7 + Compare.Int.max (String.length s1) (String.length s2)) / 8) +@ step_cost 1 - let compare_bytes s1 s2 = - step_cost ((7 + Compare.Int.max (MBytes.length s1) (MBytes.length s2)) / 8) +@ step_cost 1 - let compare_tez _ _ = step_cost 1 - let compare_zint n1 n2 = step_cost ((7 + Compare.Int.max (Z.numbits n1) (Z.numbits n2)) / 8) +@ step_cost 1 - let compare_key_hash _ _ = alloc_bytes_cost 36 - let compare_timestamp t1 t2 = compare_zint (Script_timestamp.to_zint t1) (Script_timestamp.to_zint t2) - let compare_address _ _ = step_cost 20 + let stack_n_op n = atomic_step_cost (20 + (((n lsr 1) + (n lsr 2)) + (n lsr 4))) let rec compare : type a s. (a, s) Script_typed_ir.comparable_struct -> a -> a -> cost = fun ty x y -> match ty with @@ -270,8 +273,8 @@ module Cost_of = struct | String_key _ -> compare_string x y | Bytes_key _ -> compare_bytes x y | Mutez_key _ -> compare_tez x y - | Int_key _ -> compare_zint (Script_int.to_zint x) (Script_int.to_zint y) - | Nat_key _ -> compare_zint (Script_int.to_zint x) (Script_int.to_zint y) + | Int_key _ -> compare_zint x y + | Nat_key _ -> compare_zint x y | Key_hash_key _ -> compare_key_hash x y | Timestamp_key _ -> compare_timestamp x y | Address_key _ -> compare_address x y diff --git a/src/proto_alpha/lib_protocol/michelson_v1_gas.mli b/src/proto_alpha/lib_protocol/michelson_v1_gas.mli index 689a72818d53..398f201656c8 100644 --- a/src/proto_alpha/lib_protocol/michelson_v1_gas.mli +++ b/src/proto_alpha/lib_protocol/michelson_v1_gas.mli @@ -40,7 +40,9 @@ module Cost_of : sig module Interpreter : sig val cycle : Gas.cost val loop_cycle : Gas.cost - val list_size : Gas.cost + val loop_size : Gas.cost + val loop_iter : Gas.cost + val loop_map : Gas.cost val nop : Gas.cost val stack_op : Gas.cost val stack_n_op : int -> Gas.cost @@ -54,19 +56,11 @@ module Cost_of : sig val concat_string : string list -> Gas.cost val concat_bytes : MBytes.t list -> Gas.cost val slice_string : int -> Gas.cost - val slice_bytes : Gas.cost - val map_mem : - 'a -> ('b, 'c) Script_typed_ir.map -> Gas.cost - val map_to_list : - ('b, 'c) Script_typed_ir.map -> Gas.cost - val map_get : - 'a -> ('b, 'c) Script_typed_ir.map -> Gas.cost - val map_update : - 'a -> 'b -> ('c, 'd) Script_typed_ir.map -> Gas.cost + val map_mem : 'a -> ('a, 'b) Script_typed_ir.map -> Gas.cost + val map_to_list : ('a, 'b) Script_typed_ir.map -> Gas.cost + val map_get : 'a -> ('a, 'b) Script_typed_ir.map -> Gas.cost + val map_update : 'a -> 'b option -> ('a, 'b) Script_typed_ir.map -> Gas.cost val map_size : Gas.cost - val big_map_mem : 'key -> ('key, 'value) Script_typed_ir.big_map -> Gas.cost - val big_map_get : 'key -> ('key, 'value) Script_typed_ir.big_map -> Gas.cost - val big_map_update : 'key -> 'value option -> ('key, 'value) Script_typed_ir.big_map -> Gas.cost val set_to_list : 'a Script_typed_ir.set -> Gas.cost val set_update : 'a -> bool -> 'a Script_typed_ir.set -> Gas.cost val set_mem : 'a -> 'a Script_typed_ir.set -> Gas.cost @@ -86,7 +80,6 @@ module Cost_of : sig val int64_op : Gas.cost val z_to_int64 : Gas.cost val int64_to_z : Gas.cost - val bitwise_binop : 'a Script_int.num -> 'b Script_int.num -> Gas.cost val logor : 'a Script_int.num -> 'b Script_int.num -> Gas.cost val logand : 'a Script_int.num -> 'b Script_int.num -> Gas.cost val logxor : 'a Script_int.num -> 'b Script_int.num -> Gas.cost @@ -106,9 +99,11 @@ module Cost_of : sig val set_delegate : Gas.cost val balance : Gas.cost val now : Gas.cost - val check_signature : Gas.cost + val check_signature : public_key -> MBytes.t -> Gas.cost val hash_key : Gas.cost - val hash : MBytes.t -> int -> Gas.cost + val hash_blake2b : MBytes.t -> Gas.cost + val hash_sha256 : MBytes.t -> Gas.cost + val hash_sha512 : MBytes.t -> Gas.cost val steps_to_quota : Gas.cost val source : Gas.cost val self : Gas.cost diff --git a/src/proto_alpha/lib_protocol/script_interpreter.ml b/src/proto_alpha/lib_protocol/script_interpreter.ml index cdda8850083b..02730f208931 100644 --- a/src/proto_alpha/lib_protocol/script_interpreter.ml +++ b/src/proto_alpha/lib_protocol/script_interpreter.ml @@ -328,7 +328,7 @@ let rec interp (List.fold_left (fun acc _ -> acc >>? fun (size, ctxt) -> - Gas.consume ctxt Interp_costs.list_size >>? fun ctxt -> + Gas.consume ctxt Interp_costs.loop_size >>? fun ctxt -> ok (size + 1 (* FIXME: overflow *), ctxt)) (ok (0, ctxt)) list) >>=? fun (len, ctxt) -> logged_return (Item (Script_int.(abs (of_int len)), rest), ctxt) @@ -416,7 +416,7 @@ let rec interp | Big_map_update, Item (key, Item (maybe_value, Item (map, rest))) -> consume_gas_terop descr (Script_ir_translator.big_map_update, key, maybe_value, map) - Interp_costs.big_map_update rest + (fun k v m -> Interp_costs.map_update k (Some v) m.diff) rest (* timestamp operations *) | Add_seconds_to_timestamp, Item (n, Item (t, rest)) -> consume_gas_binop descr @@ -847,22 +847,22 @@ let rec interp let now = Script_timestamp.now ctxt in logged_return (Item (now, rest), ctxt) | Check_signature, Item (key, Item (signature, Item (message, rest))) -> - Lwt.return (Gas.consume ctxt Interp_costs.check_signature) >>=? fun ctxt -> + Lwt.return (Gas.consume ctxt (Interp_costs.check_signature key message)) >>=? fun ctxt -> let res = Signature.check key signature message in logged_return (Item (res, rest), ctxt) | Hash_key, Item (key, rest) -> Lwt.return (Gas.consume ctxt Interp_costs.hash_key) >>=? fun ctxt -> logged_return (Item (Signature.Public_key.hash key, rest), ctxt) | Blake2b, Item (bytes, rest) -> - Lwt.return (Gas.consume ctxt (Interp_costs.hash bytes 32)) >>=? fun ctxt -> + Lwt.return (Gas.consume ctxt (Interp_costs.hash_blake2b bytes)) >>=? fun ctxt -> let hash = Raw_hashes.blake2b bytes in logged_return (Item (hash, rest), ctxt) | Sha256, Item (bytes, rest) -> - Lwt.return (Gas.consume ctxt (Interp_costs.hash bytes 32)) >>=? fun ctxt -> + Lwt.return (Gas.consume ctxt (Interp_costs.hash_sha256 bytes)) >>=? fun ctxt -> let hash = Raw_hashes.sha256 bytes in logged_return (Item (hash, rest), ctxt) | Sha512, Item (bytes, rest) -> - Lwt.return (Gas.consume ctxt (Interp_costs.hash bytes 64)) >>=? fun ctxt -> + Lwt.return (Gas.consume ctxt (Interp_costs.hash_sha512 bytes)) >>=? fun ctxt -> let hash = Raw_hashes.sha512 bytes in logged_return (Item (hash, rest), ctxt) | Steps_to_quota, rest -> -- GitLab From 35df3988b725dafe90fe2d7396a4ded7808acc81 Mon Sep 17 00:00:00 2001 From: Benjamin Canou Date: Wed, 3 Jul 2019 00:00:29 +0200 Subject: [PATCH 057/252] Proto/Michelson: relax big_map restrictions A contract can now have more than one big_map, they can be placed anywhere in the storage. Big maps can be transferred from a contract to another, either as parameter (transactions) or storage (originations). In this case, they are morally duplicated (as opposed to shared) from the contract point of view. In the implementation, sharing happens. Big maps can be created with `EMPTY_BIG_MAP t` and cleared on the fly. The big_map type still cannot appear as argument of big_map, PUSH or UNPACK. When you duplicate a big map, you are charged with the full storage cost. This patch moves the big maps outside of the contracts in the context, in their own prefix path and indexed by integers. Big_map literals in Michelson expressions are now either the same as maps or their integer index. A temporary zone is introduced, necessary to make sure that big_maps are not spuriously cleared or left dangling during big_map transfers in internal operations. These are represented by negative indexes, and don't persist. --- src/proto_alpha/lib_protocol/alpha_context.ml | 19 + .../lib_protocol/alpha_context.mli | 38 +- src/proto_alpha/lib_protocol/apply.ml | 17 +- src/proto_alpha/lib_protocol/apply_results.ml | 14 +- .../lib_protocol/apply_results.mli | 3 +- .../lib_protocol/contract_services.ml | 77 ++- .../lib_protocol/contract_services.mli | 8 +- .../lib_protocol/contract_storage.ml | 155 ++++- .../lib_protocol/contract_storage.mli | 27 +- src/proto_alpha/lib_protocol/init_storage.ml | 1 + src/proto_alpha/lib_protocol/main.ml | 11 +- .../lib_protocol/michelson_v1_gas.ml | 1 + .../lib_protocol/michelson_v1_primitives.ml | 4 + .../lib_protocol/michelson_v1_primitives.mli | 1 + src/proto_alpha/lib_protocol/raw_context.ml | 18 + src/proto_alpha/lib_protocol/raw_context.mli | 9 + .../lib_protocol/script_interpreter.ml | 74 ++- .../lib_protocol/script_ir_translator.ml | 602 ++++++++++++------ .../lib_protocol/script_ir_translator.mli | 28 +- src/proto_alpha/lib_protocol/script_repr.ml | 9 + src/proto_alpha/lib_protocol/script_repr.mli | 2 + .../lib_protocol/script_tc_errors.ml | 1 + .../script_tc_errors_registration.ml | 20 +- .../lib_protocol/script_typed_ir.ml | 40 +- src/proto_alpha/lib_protocol/storage.ml | 163 ++++- src/proto_alpha/lib_protocol/storage.mli | 42 +- .../lib_protocol/storage_functors.ml | 89 +-- src/proto_alpha/lib_protocol/storage_sigs.ml | 35 +- 28 files changed, 1098 insertions(+), 410 deletions(-) diff --git a/src/proto_alpha/lib_protocol/alpha_context.ml b/src/proto_alpha/lib_protocol/alpha_context.ml index c99eec570bb4..c5fd259f1e5b 100644 --- a/src/proto_alpha/lib_protocol/alpha_context.ml +++ b/src/proto_alpha/lib_protocol/alpha_context.ml @@ -126,6 +126,25 @@ module Contract = struct let init_origination_nonce = Raw_context.init_origination_nonce let unset_origination_nonce = Raw_context.unset_origination_nonce end +module Big_map = struct + type id = Z.t + let fresh = Storage.Big_map.Next.incr + let fresh_temporary = Raw_context.fresh_temporary_big_map + let mem c m k = Storage.Big_map.Contents.mem (c, m) k + let get_opt c m k = Storage.Big_map.Contents.get_option (c, m) k + let rpc_arg = Storage.Big_map.rpc_arg + let cleanup_temporary c = + Raw_context.temporary_big_maps c Storage.Big_map.remove_rec c >>= fun c -> + Lwt.return (Raw_context.reset_temporary_big_map c) + let exists c id = + Lwt.return (Raw_context.consume_gas c (Gas_limit_repr.read_bytes_cost Z.zero)) >>=? fun c -> + Storage.Big_map.Key_type.get_option c id >>=? fun kt -> + match kt with + | None -> return (c, None) + | Some kt -> + Storage.Big_map.Value_type.get c id >>=? fun kv -> + return (c, Some (kt, kv)) +end module Delegate = Delegate_storage module Roll = struct include Roll_repr diff --git a/src/proto_alpha/lib_protocol/alpha_context.mli b/src/proto_alpha/lib_protocol/alpha_context.mli index 73123874dc88..c3ee807531bd 100644 --- a/src/proto_alpha/lib_protocol/alpha_context.mli +++ b/src/proto_alpha/lib_protocol/alpha_context.mli @@ -225,6 +225,7 @@ module Script : sig | I_DROP | I_DUP | I_EDIV + | I_EMPTY_BIG_MAP | I_EMPTY_MAP | I_EMPTY_SET | I_EQ @@ -571,6 +572,17 @@ module Seed : sig end +module Big_map: sig + type id = Z.t + val fresh : context -> (context * id) tzresult Lwt.t + val fresh_temporary : context -> context * id + val mem : context -> id -> Script_expr_hash.t -> (context * bool) tzresult Lwt.t + val get_opt : context -> id -> Script_expr_hash.t -> (context * Script.expr option) tzresult Lwt.t + val rpc_arg : id RPC_arg.t + val cleanup_temporary : context -> context Lwt.t + val exists : context -> id -> (context * (Script.expr * Script.expr) option) tzresult Lwt.t +end + module Contract : sig include BASIC_DATA @@ -615,11 +627,20 @@ module Contract : sig val fresh_contract_from_current_nonce : context -> (context * t) tzresult Lwt.t val originated_from_current_nonce: since: context -> until:context -> contract list tzresult Lwt.t - type big_map_diff_item = { - diff_key : Script_repr.expr; - diff_key_hash : Script_expr_hash.t; - diff_value : Script_repr.expr option; - } + type big_map_diff_item = + | Update of { + big_map : Big_map.id ; + diff_key : Script.expr; + diff_key_hash : Script_expr_hash.t; + diff_value : Script.expr option; + } + | Clear of Big_map.id + | Copy of Big_map.id * Big_map.id + | Alloc of { + big_map : Big_map.id; + key_type : Script.expr; + value_type : Script.expr; + } type big_map_diff = big_map_diff_item list val big_map_diff_encoding : big_map_diff Data_encoding.t @@ -651,13 +672,6 @@ module Contract : sig val check_counter_increment: context -> public_key_hash -> Z.t -> unit tzresult Lwt.t - module Big_map : sig - val mem: - context -> contract -> Script_expr_hash.t -> (context * bool) tzresult Lwt.t - val get_opt: - context -> contract -> Script_expr_hash.t -> (context * Script_repr.expr option) tzresult Lwt.t - end - (**/**) (* Only for testing *) type origination_nonce diff --git a/src/proto_alpha/lib_protocol/apply.ml b/src/proto_alpha/lib_protocol/apply.ml index fa8b920d22d2..db5d491e2808 100644 --- a/src/proto_alpha/lib_protocol/apply.ml +++ b/src/proto_alpha/lib_protocol/apply.ml @@ -477,8 +477,14 @@ let apply_manager_operation_content : Lwt.return (Gas.consume ctxt (Script.deserialized_cost unparsed_storage)) >>=? fun ctxt -> Script.force_decode ctxt script.code >>=? fun (unparsed_code, ctxt) -> (* see [note] *) Lwt.return (Gas.consume ctxt (Script.deserialized_cost unparsed_code)) >>=? fun ctxt -> - Script_ir_translator.parse_script ctxt ~legacy:false script >>=? fun (ex_script, ctxt) -> - Script_ir_translator.big_map_initialization ctxt Optimized ex_script >>=? fun (big_map_diff, ctxt) -> + Script_ir_translator.parse_script ctxt ~legacy:false script >>=? fun (Ex_script parsed_script, ctxt) -> + Script_ir_translator.collect_big_maps ctxt parsed_script.storage_type parsed_script.storage >>=? fun (to_duplicate, ctxt) -> + let to_update = Script_ir_translator.no_big_map_id in + Script_ir_translator.extract_big_map_diff ctxt Optimized parsed_script.storage_type parsed_script.storage + ~to_duplicate ~to_update ~temporary:false >>=? fun (storage, big_map_diff, ctxt) -> + Script_ir_translator.unparse_data ctxt Optimized parsed_script.storage_type storage >>=? fun (storage, ctxt) -> + let storage = Script.lazy_expr (Micheline.strip_locations storage) in + let script = { script with storage } in Contract.spend ctxt source credit >>=? fun ctxt -> begin match preorigination with | Some contract -> @@ -497,7 +503,8 @@ let apply_manager_operation_content : Fees.record_paid_storage_space ctxt contract >>=? fun (ctxt, size, paid_storage_size_diff, fees) -> let result = Origination_result - { balance_updates = + { big_map_diff ; + balance_updates = Delegate.cleanup_balance_updates [ Contract payer, Debited fees ; Contract payer, Debited origination_burn ; @@ -749,7 +756,9 @@ let apply_manager_contents_list ctxt mode baker chain_id contents_list = apply_manager_contents_list_rec ctxt mode baker chain_id contents_list >>= fun (ctxt_result, results) -> match ctxt_result with | `Failure -> Lwt.return (ctxt (* backtracked *), mark_backtracked results) - | `Success ctxt -> Lwt.return (ctxt, results) + | `Success ctxt -> + Big_map.cleanup_temporary ctxt >>= fun ctxt -> + Lwt.return (ctxt, results) let apply_contents_list (type kind) ctxt chain_id mode pred_block baker diff --git a/src/proto_alpha/lib_protocol/apply_results.ml b/src/proto_alpha/lib_protocol/apply_results.ml index 0ef56ef6e36f..d02de349ab6f 100644 --- a/src/proto_alpha/lib_protocol/apply_results.ml +++ b/src/proto_alpha/lib_protocol/apply_results.ml @@ -56,7 +56,8 @@ type _ successful_manager_operation_result = allocated_destination_contract : bool ; } -> Kind.transaction successful_manager_operation_result | Origination_result : - { balance_updates : Delegate.balance_updates ; + { big_map_diff : Contract.big_map_diff option ; + balance_updates : Delegate.balance_updates ; originated_contracts : Contract.t list ; consumed_gas : Z.t ; storage_size : Z.t ; @@ -215,7 +216,8 @@ module Manager_result = struct make ~op_case: Operation.Encoding.Manager_operations.origination_case ~encoding: - (obj5 + (obj6 + (opt "big_map_diff" Contract.big_map_diff_encoding) (dft "balance_updates" Delegate.balance_updates_encoding []) (dft "originated_contracts" (list Contract.encoding) []) (dft "consumed_gas" z Z.zero) @@ -234,19 +236,19 @@ module Manager_result = struct ~proj: (function | Origination_result - { balance_updates ; + { big_map_diff ; balance_updates ; originated_contracts ; consumed_gas ; storage_size ; paid_storage_size_diff } -> - (balance_updates, + (big_map_diff, balance_updates, originated_contracts, consumed_gas, storage_size, paid_storage_size_diff)) ~kind: Kind.Origination_manager_kind ~inj: - (fun (balance_updates, + (fun (big_map_diff, balance_updates, originated_contracts, consumed_gas, storage_size, paid_storage_size_diff) -> Origination_result - { balance_updates ; + { big_map_diff ; balance_updates ; originated_contracts ; consumed_gas ; storage_size ; paid_storage_size_diff }) diff --git a/src/proto_alpha/lib_protocol/apply_results.mli b/src/proto_alpha/lib_protocol/apply_results.mli index b4505f5021d0..a5f17d2ef566 100644 --- a/src/proto_alpha/lib_protocol/apply_results.mli +++ b/src/proto_alpha/lib_protocol/apply_results.mli @@ -100,7 +100,8 @@ and _ successful_manager_operation_result = allocated_destination_contract : bool ; } -> Kind.transaction successful_manager_operation_result | Origination_result : - { balance_updates : Delegate.balance_updates ; + { big_map_diff : Contract.big_map_diff option ; + balance_updates : Delegate.balance_updates ; originated_contracts : Contract.t list ; consumed_gas : Z.t ; storage_size : Z.t ; diff --git a/src/proto_alpha/lib_protocol/contract_services.ml b/src/proto_alpha/lib_protocol/contract_services.ml index d7a926ea53fe..5d57e0174967 100644 --- a/src/proto_alpha/lib_protocol/contract_services.ml +++ b/src/proto_alpha/lib_protocol/contract_services.ml @@ -28,6 +28,9 @@ open Alpha_context let custom_root = (RPC_path.(open_root / "context" / "contracts") : RPC_context.t RPC_path.context) +let big_map_root = + (RPC_path.(open_root / "context" / "big_maps") : RPC_context.t RPC_path.context) + type info = { balance: Tez.t ; delegate: public_key_hash option ; @@ -115,15 +118,22 @@ module S = struct (assoc Script.expr_encoding))) RPC_path.(custom_root /: Contract.rpc_arg / "entrypoints") + let contract_big_map_get_opt = + RPC_service.post_service + ~description: "Access the value associated with a key in a big map of the contract (deprecated)." + ~query: RPC_query.empty + ~input: (obj2 + (req "key" Script.expr_encoding) + (req "type" Script.expr_encoding)) + ~output: (option Script.expr_encoding) + RPC_path.(custom_root /: Contract.rpc_arg / "big_map_get") + let big_map_get = - RPC_service.post_service - ~description: "Access the value associated with a key in the big map storage of the contract." + RPC_service.get_service + ~description: "Access the value associated with a key in a big map." ~query: RPC_query.empty - ~input: (obj2 - (req "key" Script.expr_encoding) - (req "type" Script.expr_encoding)) - ~output: (option Script.expr_encoding) - RPC_path.(custom_root /: Contract.rpc_arg / "big_map_get") + ~output: Script.expr_encoding + RPC_path.(big_map_root /: Big_map.rpc_arg /: Script_expr_hash.rpc_arg) let info = RPC_service.get_service @@ -158,6 +168,24 @@ let register () = f ctxt a1 >>=? function | None -> raise Not_found | Some v -> return v) in + let do_big_map_get ctxt id key = + let open Script_ir_translator in + let ctxt = Gas.set_unlimited ctxt in + Big_map.exists ctxt id >>=? fun (ctxt, types) -> + match types with + | None -> raise Not_found + | Some (_, value_type) -> + Lwt.return (parse_ty ctxt + ~legacy:true ~allow_big_map:false ~allow_operation:false ~allow_contract:true + (Micheline.root value_type)) + >>=? fun (Ex_ty value_type, ctxt) -> + Big_map.get_opt ctxt id key >>=? fun (_ctxt, value) -> + match value with + | None -> raise Not_found + | Some value -> + parse_data ctxt ~legacy:true value_type (Micheline.root value) >>=? fun (value, ctxt) -> + unparse_data ctxt Readable value_type value >>=? fun (value, _ctxt) -> + return (Micheline.strip_locations value) in register_field S.balance Contract.get_balance ; register1 S.manager_key (fun ctxt contract () () -> @@ -232,15 +260,25 @@ let register () = (entry , Micheline.strip_locations ty) ::acc end map []) ) ; - register1 S.big_map_get (fun ctxt contract () (key, key_type) -> - let open Script_ir_translator in - let ctxt = Gas.set_unlimited ctxt in - Lwt.return (parse_packable_ty ctxt ~legacy:true (Micheline.root key_type)) - >>=? fun (Ex_ty key_type, ctxt) -> - parse_data ctxt ~legacy:true key_type (Micheline.root key) >>=? fun (key, ctxt) -> - hash_data ctxt key_type key >>=? fun (key_hash, ctxt) -> - Contract.Big_map.get_opt ctxt contract key_hash >>=? fun (_ctxt, value) -> - return value) ; + register1 S.contract_big_map_get_opt (fun ctxt contract () (key, key_type) -> + Contract.get_script ctxt contract >>=? fun (ctxt, script) -> + Lwt.return (Script_ir_translator.parse_packable_ty ctxt ~legacy:true (Micheline.root key_type)) >>=? fun (Ex_ty key_type, ctxt) -> + Script_ir_translator.parse_data ctxt ~legacy:true key_type (Micheline.root key) >>=? fun (key, ctxt) -> + Script_ir_translator.hash_data ctxt key_type key >>=? fun (key, ctxt) -> + match script with + | None -> raise Not_found + | Some script -> + let ctxt = Gas.set_unlimited ctxt in + let open Script_ir_translator in + parse_script ctxt ~legacy:true script >>=? fun (Ex_script script, ctxt) -> + Script_ir_translator.collect_big_maps ctxt script.storage_type script.storage >>=? fun (ids, _ctxt) -> + let ids = Script_ir_translator.list_of_big_map_ids ids in + let rec find = function + | [] -> return_none + | (id : Z.t) :: ids -> try do_big_map_get ctxt id key >>=? return_some with Not_found -> find ids in + find ids) ; + register2 S.big_map_get (fun ctxt id key () () -> + do_big_map_get ctxt id key) ; register_field S.info (fun ctxt contract -> Contract.get_balance ctxt contract >>=? fun balance -> Delegate.get ctxt contract >>=? fun delegate -> @@ -301,5 +339,8 @@ let list_entrypoints ctxt block contract = let storage_opt ctxt block contract = RPC_context.make_opt_call1 S.storage ctxt block contract () () -let big_map_get_opt ctxt block contract key = - RPC_context.make_call1 S.big_map_get ctxt block contract () key +let big_map_get ctxt block id key = + RPC_context.make_call2 S.big_map_get ctxt block id key () () + +let contract_big_map_get_opt ctxt block contract key = + RPC_context.make_call1 S.contract_big_map_get_opt ctxt block contract () key diff --git a/src/proto_alpha/lib_protocol/contract_services.mli b/src/proto_alpha/lib_protocol/contract_services.mli index 066ce2bc81ff..7b638ebd7904 100644 --- a/src/proto_alpha/lib_protocol/contract_services.mli +++ b/src/proto_alpha/lib_protocol/contract_services.mli @@ -75,9 +75,11 @@ val list_entrypoints: val storage_opt: 'a #RPC_context.simple -> 'a -> Contract.t -> Script.expr option shell_tzresult Lwt.t -val big_map_get_opt: - 'a #RPC_context.simple -> 'a -> Contract.t -> Script.expr * Script.expr -> - Script.expr option shell_tzresult Lwt.t +val big_map_get: + 'a #RPC_context.simple -> 'a -> Z.t -> Script_expr_hash.t -> + Script.expr shell_tzresult Lwt.t +val contract_big_map_get_opt: + 'a #RPC_context.simple -> 'a -> Contract.t -> Script.expr * Script.expr -> Script.expr option shell_tzresult Lwt.t val register: unit -> unit diff --git a/src/proto_alpha/lib_protocol/contract_storage.ml b/src/proto_alpha/lib_protocol/contract_storage.ml index 527d09fcf703..21a74782b0f1 100644 --- a/src/proto_alpha/lib_protocol/contract_storage.ml +++ b/src/proto_alpha/lib_protocol/contract_storage.ml @@ -202,41 +202,135 @@ let () = let failwith msg = fail (Failure msg) -type big_map_diff_item = { - diff_key : Script_repr.expr; - diff_key_hash : Script_expr_hash.t; - diff_value : Script_repr.expr option; -} +type big_map_diff_item = + | Update of { + big_map : Z.t; + diff_key : Script_repr.expr; + diff_key_hash : Script_expr_hash.t; + diff_value : Script_repr.expr option; + } + | Clear of Z.t + | Copy of Z.t * Z.t + | Alloc of { + big_map : Z.t; + key_type : Script_repr.expr; + value_type : Script_repr.expr; + } + type big_map_diff = big_map_diff_item list let big_map_diff_item_encoding = let open Data_encoding in - conv - (fun { diff_key_hash ; diff_key ; diff_value } -> (diff_key_hash, diff_key, diff_value)) - (fun (diff_key_hash, diff_key, diff_value) -> { diff_key_hash ; diff_key ; diff_value }) - (obj3 - (req "key_hash" Script_expr_hash.encoding) - (req "key" Script_repr.expr_encoding) - (opt "value" Script_repr.expr_encoding)) + union + [ case (Tag 0) ~title:"update" + (obj5 + (req "action" (constant "update")) + (req "big_map" z) + (req "key_hash" Script_expr_hash.encoding) + (req "key" Script_repr.expr_encoding) + (opt "value" Script_repr.expr_encoding)) + (function + | Update { big_map ; diff_key_hash ; diff_key ; diff_value } -> + Some ((), big_map, diff_key_hash, diff_key, diff_value) + | _ -> None ) + (fun ((), big_map, diff_key_hash, diff_key, diff_value) -> + Update { big_map ; diff_key_hash ; diff_key ; diff_value }) ; + case (Tag 1) ~title:"remove" + (obj2 + (req "action" (constant "remove")) + (req "big_map" z)) + (function + | Clear big_map -> + Some ((), big_map) + | _ -> None ) + (fun ((), big_map) -> + Clear big_map) ; + case (Tag 2) ~title:"copy" + (obj3 + (req "action" (constant "copy")) + (req "source_big_map" z) + (req "destination_big_map" z)) + (function + | Copy (src, dst) -> + Some ((), src, dst) + | _ -> None ) + (fun ((), src, dst) -> + Copy (src, dst)) ; + case (Tag 3) ~title:"alloc" + (obj4 + (req "action" (constant "alloc")) + (req "big_map" z) + (req "key_type" Script_repr.expr_encoding) + (req "value_type" Script_repr.expr_encoding)) + (function + | Alloc { big_map ; key_type ; value_type } -> + Some ((), big_map, key_type, value_type) + | _ -> None ) + (fun ((), big_map, key_type, value_type) -> + Alloc { big_map ; key_type ; value_type }) ] let big_map_diff_encoding = let open Data_encoding in def "contract.big_map_diff" @@ list big_map_diff_item_encoding -let update_script_big_map c contract = function +let big_map_key_cost = 65 +let big_map_cost = 33 + +let update_script_big_map c = function | None -> return (c, Z.zero) | Some diff -> - fold_left_s (fun (c, total) diff_item -> - match diff_item.diff_value with - | None -> - Storage.Contract.Big_map.remove (c, contract) diff_item.diff_key_hash - >>=? fun (c, freed) -> - return (c, Z.sub total (Z.of_int freed)) - | Some v -> - Storage.Contract.Big_map.init_set (c, contract) diff_item.diff_key_hash v - >>=? fun (c, size_diff) -> - return (c, Z.add total (Z.of_int size_diff))) + fold_left_s (fun (c, total) -> function + | Clear id -> + Storage.Big_map.Total_bytes.get c id >>=? fun size -> + Storage.Big_map.remove_rec c id >>= fun c -> + if Compare.Z.(id < Z.zero) then + return (c, total) + else + return (c, Z.sub (Z.sub total size) (Z.of_int big_map_cost)) + | Copy (from, to_) -> + Storage.Big_map.copy c ~from ~to_ >>=? fun c -> + if Compare.Z.(to_ < Z.zero) then + return (c, total) + else + Storage.Big_map.Total_bytes.get c from >>=? fun size -> + return (c, Z.add (Z.add total size) (Z.of_int big_map_cost)) + | Alloc { big_map ; key_type ; value_type } -> + Storage.Big_map.Total_bytes.init c big_map Z.zero >>=? fun c -> + (* Annotations are erased to allow sharing on + [Copy]. The types from the contract code are used, + these ones are only used to make sure they are + compatible during transmissions between contracts, + and only need to be compatible, annotations + nonwhistanding. *) + let key_type = Micheline.strip_locations (Script_repr.strip_annotations (Micheline.root key_type)) in + let value_type = Micheline.strip_locations (Script_repr.strip_annotations (Micheline.root value_type)) in + Storage.Big_map.Key_type.init c big_map key_type >>=? fun c -> + Storage.Big_map.Value_type.init c big_map value_type >>=? fun c -> + if Compare.Z.(big_map < Z.zero) then + return (c, total) + else + return (c, Z.add total (Z.of_int big_map_cost)) + | Update { big_map ; diff_key_hash ; diff_value = None } -> + Storage.Big_map.Contents.remove (c, big_map) diff_key_hash + >>=? fun (c, freed, existed) -> + let freed = if existed then freed + big_map_key_cost else freed in + Storage.Big_map.Total_bytes.get c big_map >>=? fun size -> + Storage.Big_map.Total_bytes.set c big_map (Z.sub size (Z.of_int freed)) >>=? fun c -> + if Compare.Z.(big_map < Z.zero) then + return (c, total) + else + return (c, Z.sub total (Z.of_int freed)) + | Update { big_map ; diff_key_hash ; diff_value = Some v } -> + Storage.Big_map.Contents.init_set (c, big_map) diff_key_hash v + >>=? fun (c, size_diff, existed) -> + let size_diff = if existed then size_diff else size_diff + big_map_key_cost in + Storage.Big_map.Total_bytes.get c big_map >>=? fun size -> + Storage.Big_map.Total_bytes.set c big_map (Z.add size (Z.of_int size_diff)) >>=? fun c -> + if Compare.Z.(big_map < Z.zero) then + return (c, total) + else + return (c, Z.add total (Z.of_int size_diff))) (c, Z.zero) diff let create_base c @@ -265,7 +359,7 @@ let create_base c | Some ({ Script_repr.code ; storage }, big_map_diff) -> Storage.Contract.Code.init c contract code >>=? fun (c, code_size) -> Storage.Contract.Storage.init c contract storage >>=? fun (c, storage_size) -> - update_script_big_map c contract big_map_diff >>=? fun (c, big_map_size) -> + update_script_big_map c big_map_diff >>=? fun (c, big_map_size) -> let total_size = Z.add (Z.add (Z.of_int code_size) (Z.of_int storage_size)) big_map_size in assert Compare.Z.(total_size >= Z.zero) ; let prepaid_bootstrap_storage = @@ -298,8 +392,8 @@ let delete c contract = Storage.Contract.Balance.delete c contract >>=? fun c -> Storage.Contract.Manager.delete c contract >>=? fun c -> Storage.Contract.Counter.delete c contract >>=? fun c -> - Storage.Contract.Code.remove c contract >>=? fun (c, _) -> - Storage.Contract.Storage.remove c contract >>=? fun (c, _) -> + Storage.Contract.Code.remove c contract >>=? fun (c, _, _) -> + Storage.Contract.Storage.remove c contract >>=? fun (c, _, _) -> Storage.Contract.Paid_storage_space.remove c contract >>= fun c -> Storage.Contract.Used_storage_space.remove c contract >>= fun c -> return c @@ -436,7 +530,7 @@ let get_balance c contract = let update_script_storage c contract storage big_map_diff = let storage = Script_repr.lazy_expr storage in - update_script_big_map c contract big_map_diff >>=? fun (c, big_map_size_diff) -> + update_script_big_map c big_map_diff >>=? fun (c, big_map_size_diff) -> Storage.Contract.Storage.set c contract storage >>=? fun (c, size_diff) -> Storage.Contract.Used_storage_space.get c contract >>=? fun previous_size -> let new_size = Z.add previous_size (Z.add big_map_size_diff (Z.of_int size_diff)) in @@ -506,10 +600,3 @@ let set_paid_storage_space_and_return_fees_to_pay c contract new_storage_space = let to_pay = Z.sub new_storage_space already_paid_space in Storage.Contract.Paid_storage_space.set c contract new_storage_space >>=? fun c -> return (to_pay, c) - -module Big_map = struct - let mem ctxt contract key = - Storage.Contract.Big_map.mem (ctxt, contract) key - let get_opt ctxt contract key = - Storage.Contract.Big_map.get_option (ctxt, contract) key -end diff --git a/src/proto_alpha/lib_protocol/contract_storage.mli b/src/proto_alpha/lib_protocol/contract_storage.mli index d066ea5b2a1a..a8c1747e1c0e 100644 --- a/src/proto_alpha/lib_protocol/contract_storage.mli +++ b/src/proto_alpha/lib_protocol/contract_storage.mli @@ -75,11 +75,21 @@ val get_storage: Raw_context.t -> Contract_repr.t -> (Raw_context.t * Script_repr.expr option) tzresult Lwt.t -type big_map_diff_item = { - diff_key : Script_repr.expr; - diff_key_hash : Script_expr_hash.t; - diff_value : Script_repr.expr option; -} +type big_map_diff_item = + | Update of { + big_map : Z.t ; + diff_key : Script_repr.expr; + diff_key_hash : Script_expr_hash.t; + diff_value : Script_repr.expr option; + } + | Clear of Z.t + | Copy of Z.t * Z.t + | Alloc of { + big_map : Z.t; + key_type : Script_repr.expr; + value_type : Script_repr.expr; + } + type big_map_diff = big_map_diff_item list val big_map_diff_encoding : big_map_diff Data_encoding.t @@ -119,10 +129,3 @@ val init: val used_storage_space: Raw_context.t -> Contract_repr.t -> Z.t tzresult Lwt.t val paid_storage_space: Raw_context.t -> Contract_repr.t -> Z.t tzresult Lwt.t val set_paid_storage_space_and_return_fees_to_pay: Raw_context.t -> Contract_repr.t -> Z.t -> (Z.t * Raw_context.t) tzresult Lwt.t - -module Big_map : sig - val mem : - Raw_context.t -> Contract_repr.t -> Script_expr_hash.t -> (Raw_context.t * bool) tzresult Lwt.t - val get_opt : - Raw_context.t -> Contract_repr.t -> Script_expr_hash.t -> (Raw_context.t * Script_repr.expr option) tzresult Lwt.t -end diff --git a/src/proto_alpha/lib_protocol/init_storage.ml b/src/proto_alpha/lib_protocol/init_storage.ml index 5bd66fb1cbbc..b382ec3b058f 100644 --- a/src/proto_alpha/lib_protocol/init_storage.ml +++ b/src/proto_alpha/lib_protocol/init_storage.ml @@ -219,6 +219,7 @@ let process_contract contract ctxt = let prepare_first_block ctxt ~typecheck ~level ~timestamp ~fitness = Raw_context.prepare_first_block ~level ~timestamp ~fitness ctxt >>=? fun (previous_protocol, ctxt) -> + Storage.Big_map.Next.init ctxt >>=? fun ctxt -> match previous_protocol with | Genesis param -> Commitment_storage.init ctxt param.commitments >>=? fun ctxt -> diff --git a/src/proto_alpha/lib_protocol/main.ml b/src/proto_alpha/lib_protocol/main.ml index e5c801690fda..32e72cfa5385 100644 --- a/src/proto_alpha/lib_protocol/main.ml +++ b/src/proto_alpha/lib_protocol/main.ml @@ -299,9 +299,14 @@ let init ctxt block_header = let fitness = block_header.fitness in let timestamp = block_header.timestamp in let typecheck (ctxt:Alpha_context.context) (script:Alpha_context.Script.t) = - Script_ir_translator.parse_script ctxt ~legacy:false script >>=? fun (ex_script, ctxt) -> - Script_ir_translator.big_map_initialization ctxt Optimized ex_script >>=? fun (big_map_diff, ctxt) -> - return ((script, big_map_diff), ctxt) + Script_ir_translator.parse_script ctxt ~legacy:false script >>=? fun (Ex_script parsed_script, ctxt) -> + Script_ir_translator.extract_big_map_diff ctxt Optimized parsed_script.storage_type parsed_script.storage + ~to_duplicate: Script_ir_translator.no_big_map_id + ~to_update: Script_ir_translator.no_big_map_id + ~temporary:false >>=? fun (storage, big_map_diff, ctxt) -> + Script_ir_translator.unparse_data ctxt Optimized parsed_script.storage_type storage >>=? fun (storage, ctxt) -> + let storage = Alpha_context.Script.lazy_expr (Micheline.strip_locations storage) in + return (({ script with storage }, big_map_diff), ctxt) in Alpha_context.prepare_first_block ~typecheck diff --git a/src/proto_alpha/lib_protocol/michelson_v1_gas.ml b/src/proto_alpha/lib_protocol/michelson_v1_gas.ml index bb6bfcaebb10..e3ec0a1af374 100644 --- a/src/proto_alpha/lib_protocol/michelson_v1_gas.ml +++ b/src/proto_alpha/lib_protocol/michelson_v1_gas.ml @@ -357,6 +357,7 @@ module Cost_of = struct | Map_get -> alloc_cost 1 | Map_update -> alloc_cost 1 | Map_size -> alloc_cost 1 + | Empty_big_map _ -> alloc_cost 2 | Big_map_mem -> alloc_cost 1 | Big_map_get -> alloc_cost 1 | Big_map_update -> alloc_cost 1 diff --git a/src/proto_alpha/lib_protocol/michelson_v1_primitives.ml b/src/proto_alpha/lib_protocol/michelson_v1_primitives.ml index 18ae48a30893..aae22775a02c 100644 --- a/src/proto_alpha/lib_protocol/michelson_v1_primitives.ml +++ b/src/proto_alpha/lib_protocol/michelson_v1_primitives.ml @@ -66,6 +66,7 @@ type prim = | I_DROP | I_DUP | I_EDIV + | I_EMPTY_BIG_MAP | I_EMPTY_MAP | I_EMPTY_SET | I_EQ @@ -203,6 +204,7 @@ let string_of_prim = function | I_DROP -> "DROP" | I_DUP -> "DUP" | I_EDIV -> "EDIV" + | I_EMPTY_BIG_MAP -> "EMPTY_BIG_MAP" | I_EMPTY_MAP -> "EMPTY_MAP" | I_EMPTY_SET -> "EMPTY_SET" | I_EQ -> "EQ" @@ -321,6 +323,7 @@ let prim_of_string = function | "DROP" -> ok I_DROP | "DUP" -> ok I_DUP | "EDIV" -> ok I_EDIV + | "EMPTY_BIG_MAP" -> ok I_EMPTY_BIG_MAP | "EMPTY_MAP" -> ok I_EMPTY_MAP | "EMPTY_SET" -> ok I_EMPTY_SET | "EQ" -> ok I_EQ @@ -576,6 +579,7 @@ let prim_encoding = (* Alpha_005 addition *) ("DIG", I_DIG) ; ("DUG", I_DUG) ; + ("EMPTY_BIG_MAP", I_EMPTY_BIG_MAP) ; ("chain_id", T_chain_id) ; ("CHAIN_ID", I_CHAIN_ID) (* New instructions must be added here, for backward compatibility of the encoding. *) diff --git a/src/proto_alpha/lib_protocol/michelson_v1_primitives.mli b/src/proto_alpha/lib_protocol/michelson_v1_primitives.mli index 1ca1a35d57ea..a0986a1d84ab 100644 --- a/src/proto_alpha/lib_protocol/michelson_v1_primitives.mli +++ b/src/proto_alpha/lib_protocol/michelson_v1_primitives.mli @@ -64,6 +64,7 @@ type prim = | I_DROP | I_DUP | I_EDIV + | I_EMPTY_BIG_MAP | I_EMPTY_MAP | I_EMPTY_SET | I_EQ diff --git a/src/proto_alpha/lib_protocol/raw_context.ml b/src/proto_alpha/lib_protocol/raw_context.ml index 5339404ae384..26841b7db2a4 100644 --- a/src/proto_alpha/lib_protocol/raw_context.ml +++ b/src/proto_alpha/lib_protocol/raw_context.ml @@ -45,6 +45,7 @@ type t = { storage_space_to_pay: Z.t option ; allocated_contracts: int option ; origination_nonce: Contract_repr.origination_nonce option ; + temporary_big_map: Z.t ; internal_nonce: int ; internal_nonces_used: Int_set.t ; } @@ -485,6 +486,7 @@ let prepare ~level ~predecessor_timestamp ~timestamp ~fitness ctxt = allocated_contracts = None ; block_gas = constants.Constants_repr.hard_gas_limit_per_block ; origination_nonce = None ; + temporary_big_map = Z.sub Z.zero Z.one ; internal_nonce = 0 ; internal_nonces_used = Int_set.empty ; } @@ -686,3 +688,19 @@ let project x = x let absolute_key _ k = k let description = Storage_description.create () + +let fresh_temporary_big_map ctxt = + { ctxt with temporary_big_map = Z.sub ctxt.temporary_big_map Z.one }, + ctxt.temporary_big_map + +let reset_temporary_big_map ctxt = + { ctxt with temporary_big_map = Z.sub Z.zero Z.one } + +let temporary_big_maps ctxt f acc = + let rec iter acc id = + if Z.equal id ctxt.temporary_big_map then + Lwt.return acc + else + f acc id >>= fun acc -> + iter acc (Z.sub id Z.one) in + iter acc (Z.sub Z.zero Z.one) diff --git a/src/proto_alpha/lib_protocol/raw_context.mli b/src/proto_alpha/lib_protocol/raw_context.mli index eef5b0fae52c..6bec232523bd 100644 --- a/src/proto_alpha/lib_protocol/raw_context.mli +++ b/src/proto_alpha/lib_protocol/raw_context.mli @@ -253,3 +253,12 @@ val init_endorsements: (** Marks an endorsment in the map as used. *) val record_endorsement: context -> Signature.Public_key_hash.t -> context + +(** Provide a fresh identifier for a temporary big map (negative index). *) +val fresh_temporary_big_map: context -> context * Z.t + +(** Reset the temporary big_map identifier generator to [-1]. *) +val reset_temporary_big_map: context -> context + +(** Iterate over all created temporary big maps since the last {!reset_temporary_big_map}. *) +val temporary_big_maps: context -> ('a -> Z.t -> 'a Lwt.t) -> 'a -> 'a Lwt.t diff --git a/src/proto_alpha/lib_protocol/script_interpreter.ml b/src/proto_alpha/lib_protocol/script_interpreter.ml index 02730f208931..939f78082edd 100644 --- a/src/proto_alpha/lib_protocol/script_interpreter.ml +++ b/src/proto_alpha/lib_protocol/script_interpreter.ml @@ -405,13 +405,16 @@ let rec interp | Map_size, Item (map, rest) -> consume_gas_unop descr (map_size, map) (fun _ -> Interp_costs.map_size) rest ctxt (* Big map operations *) + | Empty_big_map (tk, tv), rest -> + Lwt.return (Gas.consume ctxt Interp_costs.empty_map) >>=? fun ctxt -> + logged_return (Item (Script_ir_translator.empty_big_map tk tv, rest), ctxt) | Big_map_mem, Item (key, Item (map, rest)) -> Lwt.return (Gas.consume ctxt (Interp_costs.map_mem key map.diff)) >>=? fun ctxt -> - Script_ir_translator.big_map_mem ctxt self key map >>=? fun (res, ctxt) -> + Script_ir_translator.big_map_mem ctxt key map >>=? fun (res, ctxt) -> logged_return (Item (res, rest), ctxt) | Big_map_get, Item (key, Item (map, rest)) -> Lwt.return (Gas.consume ctxt (Interp_costs.map_get key map.diff)) >>=? fun ctxt -> - Script_ir_translator.big_map_get ctxt self key map >>=? fun (res, ctxt) -> + Script_ir_translator.big_map_get ctxt key map >>=? fun (res, ctxt) -> logged_return (Item (res, rest), ctxt) | Big_map_update, Item (key, Item (maybe_value, Item (map, rest))) -> consume_gas_terop descr @@ -733,13 +736,17 @@ let rec interp | Transfer_tokens, Item (p, Item (amount, Item ((tp, (destination, entrypoint)), rest))) -> Lwt.return (Gas.consume ctxt Interp_costs.transfer) >>=? fun ctxt -> + collect_big_maps ctxt tp p >>=? fun (to_duplicate, ctxt) -> + let to_update = no_big_map_id in + extract_big_map_diff ctxt Optimized tp p + ~to_duplicate ~to_update ~temporary:true >>=? fun (p, big_map_diff, ctxt) -> unparse_data ctxt Optimized tp p >>=? fun (p, ctxt) -> let operation = Transaction { amount ; destination ; entrypoint ; parameters = Script.lazy_expr (Micheline.strip_locations p) } in Lwt.return (fresh_internal_nonce ctxt) >>=? fun (ctxt, nonce) -> - logged_return (Item (Internal_operation { source = self ; operation ; nonce }, rest), ctxt) + logged_return (Item ((Internal_operation { source = self ; operation ; nonce }, big_map_diff), rest), ctxt) | Create_account, Item (manager, Item (delegate, Item (_delegatable, Item (credit, rest)))) -> Lwt.return (Gas.consume ctxt Interp_costs.create_account) >>=? fun ctxt -> @@ -758,7 +765,7 @@ let rec interp Origination { credit ; delegate ; preorigination = Some contract ; script } in Lwt.return (fresh_internal_nonce ctxt) >>=? fun (ctxt, nonce) -> - logged_return (Item (Internal_operation { source = self ; operation ; nonce }, + logged_return (Item ((Internal_operation { source = self ; operation ; nonce }, None), Item ((contract, "default"), rest)), ctxt) | Implicit_account, Item (key, rest) -> Lwt.return (Gas.consume ctxt Interp_costs.implicit_account) >>=? fun ctxt -> @@ -782,6 +789,10 @@ let rec interp (Seq (0, [ Prim (0, K_parameter, [ unparsed_param_type ], []) ; Prim (0, K_storage, [ unparsed_storage_type ], []) ; Prim (0, K_code, [ Micheline.root code ], []) ])) in + collect_big_maps ctxt storage_type init >>=? fun (to_duplicate, ctxt) -> + let to_update = no_big_map_id in + extract_big_map_diff ctxt Optimized storage_type init + ~to_duplicate ~to_update ~temporary:true >>=? fun (init, big_map_diff, ctxt) -> unparse_data ctxt Optimized storage_type init >>=? fun (storage, ctxt) -> let storage = Script.lazy_expr @@ Micheline.strip_locations storage in begin @@ -803,7 +814,7 @@ let rec interp script = { code ; storage } } in Lwt.return (fresh_internal_nonce ctxt) >>=? fun (ctxt, nonce) -> logged_return - (Item (Internal_operation { source = self ; operation ; nonce }, + (Item ((Internal_operation { source = self ; operation ; nonce }, big_map_diff), Item ((contract, "default"), rest)), ctxt) | Create_contract_2 (storage_type, param_type, Lam (_, code), root_name), (* Removed the instruction's arguments manager, spendable and delegatable *) @@ -820,6 +831,10 @@ let rec interp (Seq (0, [ Prim (0, K_parameter, [ unparsed_param_type ], []) ; Prim (0, K_storage, [ unparsed_storage_type ], []) ; Prim (0, K_code, [ Micheline.root code ], []) ])) in + collect_big_maps ctxt storage_type init >>=? fun (to_duplicate, ctxt) -> + let to_update = no_big_map_id in + extract_big_map_diff ctxt Optimized storage_type init + ~to_duplicate ~to_update ~temporary:true >>=? fun (init, big_map_diff, ctxt) -> unparse_data ctxt Optimized storage_type init >>=? fun (storage, ctxt) -> let storage = Micheline.strip_locations storage in Contract.fresh_contract_from_current_nonce ctxt >>=? fun (ctxt, contract) -> @@ -830,14 +845,14 @@ let rec interp storage = Script.lazy_expr storage } } in Lwt.return (fresh_internal_nonce ctxt) >>=? fun (ctxt, nonce) -> logged_return - (Item (Internal_operation { source = self ; operation ; nonce }, + (Item ((Internal_operation { source = self ; operation ; nonce }, big_map_diff), Item ((contract, "default"), rest)), ctxt) | Set_delegate, Item (delegate, rest) -> Lwt.return (Gas.consume ctxt Interp_costs.create_account) >>=? fun ctxt -> let operation = Delegation delegate in Lwt.return (fresh_internal_nonce ctxt) >>=? fun (ctxt, nonce) -> - logged_return (Item (Internal_operation { source = self ; operation ; nonce }, rest), ctxt) + logged_return (Item ((Internal_operation { source = self ; operation ; nonce }, None), rest), ctxt) | Balance, rest -> Lwt.return (Gas.consume ctxt Interp_costs.balance) >>=? fun ctxt -> Contract.get_balance ctxt self >>=? fun balance -> @@ -918,26 +933,35 @@ let rec interp (* ---- contract handling ---------------------------------------------------*) -and execute ?log ctxt mode ~source ~payer ~self ~chain_id ~entrypoint script amount arg : - (Script.expr * packed_internal_operation list * context * - Script_typed_ir.ex_big_map option) tzresult Lwt.t = - parse_script ctxt script ~legacy:true - >>=? fun ((Ex_script { code ; arg_type ; storage ; storage_type ; root_name }), ctxt) -> +and execute ?log ctxt mode ~source ~payer ~self ~chain_id ~entrypoint unparsed_script amount arg : + (Script.expr * packed_internal_operation list * context * Contract.big_map_diff option) tzresult Lwt.t = + parse_script ctxt unparsed_script ~legacy:true + >>=? fun (Ex_script { code ; arg_type ; storage ; storage_type ; root_name }, ctxt) -> trace (Bad_contract_parameter self) (Lwt.return (find_entrypoint arg_type ~root_name entrypoint)) >>=? fun (box, _) -> trace (Bad_contract_parameter self) (parse_data ctxt ~legacy:false arg_type (box arg)) >>=? fun (arg, ctxt) -> - Script.force_decode ctxt script.code >>=? fun (script_code, ctxt) -> + Script.force_decode ctxt unparsed_script.code >>=? fun (script_code, ctxt) -> + Script_ir_translator.collect_big_maps ctxt arg_type arg >>=? fun (to_duplicate, ctxt) -> + Script_ir_translator.collect_big_maps ctxt storage_type storage >>=? fun (to_update, ctxt) -> trace (Runtime_contract_error (self, script_code)) (interp ?log ctxt ~source ~payer ~self amount ~chain_id code (arg, storage)) - >>=? fun ((ops, sto), ctxt) -> + >>=? fun ((ops, storage), ctxt) -> + Script_ir_translator.extract_big_map_diff ctxt mode + ~temporary:false ~to_duplicate ~to_update storage_type storage + >>=? fun (storage, big_map_diff, ctxt) -> trace Cannot_serialize_storage - (unparse_data ctxt mode storage_type sto) >>=? fun (storage, ctxt) -> - return (Micheline.strip_locations storage, ops, ctxt, - Script_ir_translator.extract_big_map storage_type sto) + (unparse_data ctxt mode storage_type storage) >>=? fun (storage, ctxt) -> + let ops, op_diffs = List.split ops in + let big_map_diff = match + List.flatten (List.map (Option.unopt ~default:[]) (op_diffs @ [ big_map_diff ])) + with + | [] -> None + | diff -> Some diff in + return (Micheline.strip_locations storage, ops, ctxt, big_map_diff) type execution_result = { ctxt : context ; @@ -948,23 +972,11 @@ type execution_result = let trace ctxt mode ~source ~payer ~chain_id ~self:(self, script) ~entrypoint ~parameter ~amount = let log = ref [] in execute ~log ctxt mode ~source ~payer ~chain_id ~self ~entrypoint script amount (Micheline.root parameter) - >>=? fun (storage, operations, ctxt, big_map) -> - begin match big_map with - | None -> return (None, ctxt) - | Some big_map -> - Script_ir_translator.diff_of_big_map ctxt mode big_map >>=? fun (big_map_diff, ctxt) -> - return (Some big_map_diff, ctxt) - end >>=? fun (big_map_diff, ctxt) -> + >>=? fun (storage, operations, ctxt, big_map_diff) -> let trace = List.rev !log in return ({ ctxt ; storage ; big_map_diff ; operations }, trace) let execute ctxt mode ~source ~payer ~chain_id ~self:(self, script) ~entrypoint ~parameter ~amount = execute ctxt mode ~source ~payer ~chain_id ~self ~entrypoint script amount (Micheline.root parameter) - >>=? fun (storage, operations, ctxt, big_map) -> - begin match big_map with - | None -> return (None, ctxt) - | Some big_map -> - Script_ir_translator.diff_of_big_map ctxt mode big_map >>=? fun (big_map_diff, ctxt) -> - return (Some big_map_diff, ctxt) - end >>=? fun (big_map_diff, ctxt) -> + >>=? fun (storage, operations, ctxt, big_map_diff) -> return { ctxt ; storage ; big_map_diff ; operations } diff --git a/src/proto_alpha/lib_protocol/script_ir_translator.ml b/src/proto_alpha/lib_protocol/script_ir_translator.ml index 654020ba49bd..b06396291db8 100644 --- a/src/proto_alpha/lib_protocol/script_ir_translator.ml +++ b/src/proto_alpha/lib_protocol/script_ir_translator.ml @@ -84,19 +84,19 @@ let rec type_size : type t. t ty -> int = | Address_t _ -> 1 | Bool_t _ -> 1 | Operation_t _ -> 1 - | Pair_t ((l, _, _), (r, _, _), _) -> + | Pair_t ((l, _, _), (r, _, _), _, _) -> 1 + type_size l + type_size r - | Union_t ((l, _), (r, _), _) -> + | Union_t ((l, _), (r, _), _, _) -> 1 + type_size l + type_size r | Lambda_t (arg, ret, _) -> 1 + type_size arg + type_size ret - | Option_t (t, _) -> + | Option_t (t, _, _) -> 1 + type_size t - | List_t (t, _) -> + | List_t (t, _, _) -> 1 + type_size t | Set_t (k, _) -> 1 + comparable_type_size k - | Map_t (k, v, _) -> + | Map_t (k, v, _, _) -> 1 + comparable_type_size k + type_size v | Big_map_t (k, v, _) -> 1 + comparable_type_size k + type_size v @@ -153,6 +153,7 @@ let number_of_generated_growing_types : type b a. (b, a) instr -> int = function | Map_get -> 0 | Map_update -> 0 | Map_size -> 0 + | Empty_big_map _ -> 1 | Big_map_get -> 0 | Big_map_update -> 0 | Big_map_mem -> 0 @@ -301,6 +302,7 @@ let namespace = function | I_DROP | I_DUP | I_EDIV + | I_EMPTY_BIG_MAP | I_EMPTY_MAP | I_EMPTY_SET | I_EQ @@ -569,7 +571,7 @@ let rec ty_of_comparable_ty | Timestamp_key tname -> Timestamp_t tname | Address_key tname -> Address_t tname | Pair_key ((l, al), (r, ar), tname) -> - Pair_t ((ty_of_comparable_ty l, al, None), (ty_of_comparable_ty r, ar, None), tname) + Pair_t ((ty_of_comparable_ty l, al, None), (ty_of_comparable_ty r, ar, None), tname, false) let rec comparable_ty_of_ty : type a. a ty -> a comparable_ty option @@ -583,7 +585,7 @@ let rec comparable_ty_of_ty | Key_hash_t tname -> Some (Key_hash_key tname) | Timestamp_t tname -> Some (Timestamp_key tname) | Address_t tname -> Some (Address_key tname) - | Pair_t ((l, al, _), (r, ar, _), pname) -> + | Pair_t ((l, al, _), (r, ar, _), pname, _) -> begin match comparable_ty_of_ty r with | None -> None | Some rty -> @@ -650,14 +652,14 @@ let rec unparse_ty_no_lwt | Contract_t (ut, tname) -> unparse_ty_no_lwt ctxt ut >>? fun (t, ctxt) -> return ctxt (T_contract, [ t ], unparse_type_annot tname) - | Pair_t ((utl, l_field, l_var), (utr, r_field, r_var), tname) -> + | Pair_t ((utl, l_field, l_var), (utr, r_field, r_var), tname, _) -> let annot = unparse_type_annot tname in unparse_ty_no_lwt ctxt utl >>? fun (utl, ctxt) -> let tl = add_field_annot l_field l_var utl in unparse_ty_no_lwt ctxt utr >>? fun (utr, ctxt) -> let tr = add_field_annot r_field r_var utr in return ctxt (T_pair, [ tl; tr ], annot) - | Union_t ((utl, l_field), (utr, r_field), tname) -> + | Union_t ((utl, l_field), (utr, r_field), tname, _) -> let annot = unparse_type_annot tname in unparse_ty_no_lwt ctxt utl >>? fun (utl, ctxt) -> let tl = add_field_annot l_field None utl in @@ -668,17 +670,17 @@ let rec unparse_ty_no_lwt unparse_ty_no_lwt ctxt uta >>? fun (ta, ctxt) -> unparse_ty_no_lwt ctxt utr >>? fun (tr, ctxt) -> return ctxt (T_lambda, [ ta; tr ], unparse_type_annot tname) - | Option_t (ut, tname) -> + | Option_t (ut, tname, _) -> let annot = unparse_type_annot tname in unparse_ty_no_lwt ctxt ut >>? fun (ut, ctxt) -> return ctxt (T_option, [ ut ], annot) - | List_t (ut, tname) -> + | List_t (ut, tname, _) -> unparse_ty_no_lwt ctxt ut >>? fun (t, ctxt) -> return ctxt (T_list, [ t ], unparse_type_annot tname) | Set_t (ut, tname) -> let t = unparse_comparable_ty ut in return ctxt (T_set, [ t ], unparse_type_annot tname) - | Map_t (uta, utr, tname) -> + | Map_t (uta, utr, tname, _) -> let ta = unparse_comparable_ty uta in unparse_ty_no_lwt ctxt utr >>? fun (tr, ctxt) -> return ctxt (T_map, [ ta; tr ], unparse_type_annot tname) @@ -732,13 +734,13 @@ let name_of_ty | Operation_t tname -> tname | Chain_id_t tname -> tname | Contract_t (_, tname) -> tname - | Pair_t (_, _, tname) -> tname - | Union_t (_, _, tname) -> tname + | Pair_t (_, _, tname, _) -> tname + | Union_t (_, _, tname, _) -> tname | Lambda_t (_, _, tname) -> tname - | Option_t (_, tname) -> tname - | List_t (_, tname) -> tname + | Option_t (_, tname, _) -> tname + | List_t (_, tname, _) -> tname | Set_t (_, tname) -> tname - | Map_t (_, _, tname) -> tname + | Map_t (_, _, tname, _) -> tname | Big_map_t (_, _, tname) -> tname (* ---- Equality witnesses --------------------------------------------------*) @@ -800,7 +802,7 @@ let rec ty_eq | Address_t _, Address_t _ -> ok Eq ctxt 0 | Bool_t _, Bool_t _ -> ok Eq ctxt 0 | Operation_t _, Operation_t _ -> ok Eq ctxt 0 - | Map_t (tal, tar, _), Map_t (tbl, tbr, _) -> + | Map_t (tal, tar, _, _), Map_t (tbl, tbr, _, _) -> (comparable_ty_eq ctxt tal tbl >>? fun Eq -> ty_eq ctxt tar tbr >>? fun (Eq, ctxt) -> (ok Eq ctxt 2)) |> @@ -814,13 +816,14 @@ let rec ty_eq (comparable_ty_eq ctxt ea eb >>? fun Eq -> (ok Eq ctxt 1)) |> record_inconsistent ctxt ta tb - | Pair_t ((tal, _, _), (tar, _, _), _), - Pair_t ((tbl, _, _), (tbr, _, _), _) -> + | Pair_t ((tal, _, _), (tar, _, _), _, _), + Pair_t ((tbl, _, _), (tbr, _, _), _, _) -> (ty_eq ctxt tal tbl >>? fun (Eq, ctxt) -> ty_eq ctxt tar tbr >>? fun (Eq, ctxt) -> (ok Eq ctxt 2)) |> record_inconsistent ctxt ta tb - | Union_t ((tal, _), (tar, _), _), Union_t ((tbl, _), (tbr, _), _) -> + | Union_t ((tal, _), (tar, _), _, _), + Union_t ((tbl, _), (tbr, _), _, _) -> (ty_eq ctxt tal tbl >>? fun (Eq, ctxt) -> ty_eq ctxt tar tbr >>? fun (Eq, ctxt) -> (ok Eq ctxt 2)) |> @@ -834,11 +837,11 @@ let rec ty_eq (ty_eq ctxt tal tbl >>? fun (Eq, ctxt) -> (ok Eq ctxt 1)) |> record_inconsistent ctxt ta tb - | Option_t (tva, _), Option_t (tvb, _) -> + | Option_t (tva, _, _), Option_t (tvb, _, _) -> (ty_eq ctxt tva tvb >>? fun (Eq, ctxt) -> (ok Eq ctxt 1)) |> record_inconsistent ctxt ta tb - | List_t (tva, _), List_t (tvb, _) -> + | List_t (tva, _, _), List_t (tvb, _, _) -> (ty_eq ctxt tva tvb >>? fun (Eq, ctxt) -> (ok Eq ctxt 1)) |> record_inconsistent ctxt ta tb @@ -940,12 +943,12 @@ let merge_types : | Operation_t tn1, Operation_t tn2 -> merge_type_annot ~legacy tn1 tn2 >|? fun tname -> Operation_t tname, ctxt - | Map_t (tal, tar, tn1), Map_t (tbl, tbr, tn2) -> + | Map_t (tal, tar, tn1, has_big_map), Map_t (tbl, tbr, tn2, _) -> merge_type_annot ~legacy tn1 tn2 >>? fun tname -> help ctxt tar tbr >>? fun (value, ctxt) -> ty_eq ctxt tar value >>? fun (Eq, ctxt) -> merge_comparable_types ~legacy tal tbl >|? fun tk -> - Map_t (tk, value, tname), ctxt + Map_t (tk, value, tname, has_big_map), ctxt | Big_map_t (tal, tar, tn1), Big_map_t (tbl, tbr, tn2) -> merge_type_annot ~legacy tn1 tn2 >>? fun tname -> help ctxt tar tbr >>? fun (value, ctxt) -> @@ -956,8 +959,8 @@ let merge_types : merge_type_annot ~legacy tn1 tn2 >>? fun tname -> merge_comparable_types ~legacy ea eb >|? fun e -> Set_t (e, tname), ctxt - | Pair_t ((tal, l_field1, l_var1), (tar, r_field1, r_var1), tn1), - Pair_t ((tbl, l_field2, l_var2), (tbr, r_field2, r_var2), tn2) -> + | Pair_t ((tal, l_field1, l_var1), (tar, r_field1, r_var1), tn1, has_big_map), + Pair_t ((tbl, l_field2, l_var2), (tbr, r_field2, r_var2), tn2, _) -> merge_type_annot ~legacy tn1 tn2 >>? fun tname -> merge_field_annot ~legacy l_field1 l_field2 >>? fun l_field -> merge_field_annot ~legacy r_field1 r_field2 >>? fun r_field -> @@ -965,16 +968,16 @@ let merge_types : let r_var = merge_var_annot r_var1 r_var2 in help ctxt tal tbl >>? fun (left_ty, ctxt) -> help ctxt tar tbr >|? fun (right_ty, ctxt) -> - Pair_t ((left_ty, l_field, l_var), (right_ty, r_field, r_var), tname), + Pair_t ((left_ty, l_field, l_var), (right_ty, r_field, r_var), tname, has_big_map), ctxt - | Union_t ((tal, tal_annot), (tar, tar_annot), tn1), - Union_t ((tbl, tbl_annot), (tbr, tbr_annot), tn2) -> + | Union_t ((tal, tal_annot), (tar, tar_annot), tn1, has_big_map), + Union_t ((tbl, tbl_annot), (tbr, tbr_annot), tn2, _) -> merge_type_annot ~legacy tn1 tn2 >>? fun tname -> merge_field_annot ~legacy tal_annot tbl_annot >>? fun left_annot -> merge_field_annot ~legacy tar_annot tbr_annot >>? fun right_annot -> help ctxt tal tbl >>? fun (left_ty, ctxt) -> help ctxt tar tbr >|? fun (right_ty, ctxt) -> - Union_t ((left_ty, left_annot), (right_ty, right_annot), tname), + Union_t ((left_ty, left_annot), (right_ty, right_annot), tname, has_big_map), ctxt | Lambda_t (tal, tar, tn1), Lambda_t (tbl, tbr, tn2) -> merge_type_annot ~legacy tn1 tn2 >>? fun tname -> @@ -985,15 +988,15 @@ let merge_types : merge_type_annot ~legacy tn1 tn2 >>? fun tname -> help ctxt tal tbl >|? fun (arg_ty, ctxt) -> Contract_t (arg_ty, tname), ctxt - | Option_t (tva, tn1), - Option_t (tvb, tn2) -> + | Option_t (tva, tn1, has_big_map), + Option_t (tvb, tn2, _) -> merge_type_annot ~legacy tn1 tn2 >>? fun tname -> help ctxt tva tvb >|? fun (ty, ctxt) -> - Option_t (ty, tname), ctxt - | List_t (tva, tn1), List_t (tvb, tn2) -> + Option_t (ty, tname, has_big_map), ctxt + | List_t (tva, tn1, has_big_map), List_t (tvb, tn2, _) -> merge_type_annot ~legacy tn1 tn2 >>? fun tname -> help ctxt tva tvb >|? fun (ty, ctxt) -> - List_t (ty, tname), ctxt + List_t (ty, tname, has_big_map), ctxt | _, _ -> assert false in (fun ctxt loc ty1 ty2 -> record_inconsistent_type_annotations ctxt loc ty1 ty2 @@ -1016,6 +1019,33 @@ let merge_stacks Item_t (ty, rest, annot), ctxt in help +let has_big_map + : type t. t ty -> bool + = function + | Unit_t _ -> false + | Int_t _ -> false + | Nat_t _ -> false + | Signature_t _ -> false + | String_t _ -> false + | Bytes_t _ -> false + | Mutez_t _ -> false + | Key_hash_t _ -> false + | Key_t _ -> false + | Timestamp_t _ -> false + | Address_t _ -> false + | Bool_t _ -> false + | Lambda_t (_, _, _) -> false + | Set_t (_, _) -> false + | Big_map_t (_, _, _) -> false + | Contract_t (_, _) -> false + | Operation_t _ -> false + | Chain_id_t _ -> false + | Pair_t (_, _, _, has_big_map) -> has_big_map + | Union_t (_, _, _, has_big_map) -> has_big_map + | Option_t (_, _, has_big_map) -> has_big_map + | List_t (_, _, has_big_map) -> has_big_map + | Map_t (_, _, _, has_big_map) -> has_big_map + (* ---- Type checker results -------------------------------------------------*) type 'bef judgement = @@ -1111,7 +1141,7 @@ and parse_parameter_ty : context -> legacy:bool -> Script.node -> (ex_ty * context) tzresult = fun ctxt ~legacy -> - parse_ty ctxt ~legacy ~allow_big_map:false ~allow_operation:false ~allow_contract:true + parse_ty ctxt ~legacy ~allow_big_map:true ~allow_operation:false ~allow_contract:true and parse_any_ty : context -> legacy:bool -> @@ -1190,7 +1220,7 @@ and parse_ty : Ex_ty (Chain_id_t ty_name), ctxt | Prim (loc, T_contract, [ utl ], annot) -> if allow_contract then - parse_ty ctxt ~legacy ~allow_big_map:false ~allow_operation:false ~allow_contract:true utl >>? fun (Ex_ty tl, ctxt) -> + parse_parameter_ty ctxt ~legacy utl >>? fun (Ex_ty tl, ctxt) -> parse_type_annot loc annot >>? fun ty_name -> Gas.consume ctxt (Typecheck_costs.type_ 1) >|? fun ctxt -> Ex_ty (Contract_t (tl, ty_name)), ctxt @@ -1203,7 +1233,7 @@ and parse_ty : parse_ty ctxt ~legacy ~allow_big_map ~allow_operation ~allow_contract utr >>? fun (Ex_ty tr, ctxt) -> parse_type_annot loc annot >>? fun ty_name -> Gas.consume ctxt (Typecheck_costs.type_ 2) >|? fun ctxt -> - Ex_ty (Pair_t ((tl, left_field, None), (tr, right_field, None), ty_name)), ctxt + Ex_ty (Pair_t ((tl, left_field, None), (tr, right_field, None), ty_name, has_big_map tl || has_big_map tr)), ctxt | Prim (loc, T_or, [ utl; utr ], annot) -> extract_field_annot utl >>? fun (utl, left_constr) -> extract_field_annot utr >>? fun (utr, right_constr) -> @@ -1211,7 +1241,7 @@ and parse_ty : parse_ty ctxt ~legacy ~allow_big_map ~allow_operation ~allow_contract utr >>? fun (Ex_ty tr, ctxt) -> parse_type_annot loc annot >>? fun ty_name -> Gas.consume ctxt (Typecheck_costs.type_ 2) >|? fun ctxt -> - Ex_ty (Union_t ((tl, left_constr), (tr, right_constr), ty_name)), ctxt + Ex_ty (Union_t ((tl, left_constr), (tr, right_constr), ty_name, has_big_map tl || has_big_map tr)), ctxt | Prim (loc, T_lambda, [ uta; utr ], annot) -> parse_any_ty ctxt ~legacy uta >>? fun (Ex_ty ta, ctxt) -> parse_any_ty ctxt ~legacy utr >>? fun (Ex_ty tr, ctxt) -> @@ -1230,12 +1260,12 @@ and parse_ty : end >>? fun (ut, ty_name) -> parse_ty ctxt ~legacy ~allow_big_map ~allow_operation ~allow_contract ut >>? fun (Ex_ty t, ctxt) -> Gas.consume ctxt (Typecheck_costs.type_ 2) >|? fun ctxt -> - Ex_ty (Option_t (t, ty_name)), ctxt + Ex_ty (Option_t (t, ty_name, has_big_map t)), ctxt | Prim (loc, T_list, [ ut ], annot) -> parse_ty ctxt ~legacy ~allow_big_map ~allow_operation ~allow_contract ut >>? fun (Ex_ty t, ctxt) -> parse_type_annot loc annot >>? fun ty_name -> Gas.consume ctxt (Typecheck_costs.type_ 1) >|? fun ctxt -> - Ex_ty (List_t (t, ty_name)), ctxt + Ex_ty (List_t (t, ty_name, has_big_map t)), ctxt | Prim (loc, T_set, [ ut ], annot) -> parse_comparable_ty ctxt ut >>? fun (Ex_comparable_ty t, ctxt) -> parse_type_annot loc annot >>? fun ty_name -> @@ -1246,7 +1276,7 @@ and parse_ty : parse_ty ctxt ~legacy ~allow_big_map ~allow_operation ~allow_contract utr >>? fun (Ex_ty tr, ctxt) -> parse_type_annot loc annot >>? fun ty_name -> Gas.consume ctxt (Typecheck_costs.type_ 2) >|? fun ctxt -> - Ex_ty (Map_t (ta, tr, ty_name)), ctxt + Ex_ty (Map_t (ta, tr, ty_name, has_big_map tr)), ctxt | Prim (loc, T_big_map, args, annot) when allow_big_map -> parse_big_map_ty ctxt ~legacy loc args annot >>? fun (big_map_ty, ctxt) -> @@ -1292,20 +1322,28 @@ and parse_storage_ty : match node with | Prim (loc, T_pair, [ Prim (big_map_loc, T_big_map, args, map_annot) ; remaining_storage ], - storage_annot) -> - Gas.consume ctxt Typecheck_costs.cycle >>? fun ctxt -> - parse_big_map_ty ctxt ~legacy big_map_loc args map_annot >>? fun (Ex_ty big_map_ty, ctxt) -> - parse_packable_ty ctxt ~legacy remaining_storage - >>? fun (Ex_ty remaining_storage, ctxt) -> - parse_composed_type_annot loc storage_annot - >>? fun (ty_name, map_field, storage_field) -> - Gas.consume ctxt (Typecheck_costs.type_ 5) >|? fun ctxt -> - Ex_ty (Pair_t ((big_map_ty, map_field, None), - (remaining_storage, storage_field, None), - ty_name)), - ctxt + storage_annot) when legacy -> + begin match storage_annot with + | [] -> + parse_ty ctxt ~legacy ~allow_big_map:true ~allow_operation:false ~allow_contract:legacy node + | [ single ] when Compare.Int.(String.length single > 0) && Compare.Char.(String.get single 0 = '%') -> + parse_ty ctxt ~legacy ~allow_big_map:true ~allow_operation:false ~allow_contract:legacy node + | _ -> + (* legacy semantics of big maps used the wrong annotation parser *) + Gas.consume ctxt Typecheck_costs.cycle >>? fun ctxt -> + parse_big_map_ty ctxt ~legacy big_map_loc args map_annot >>? fun (Ex_ty big_map_ty, ctxt) -> + parse_ty ctxt ~legacy ~allow_big_map:true ~allow_operation:false ~allow_contract:legacy remaining_storage + >>? fun (Ex_ty remaining_storage, ctxt) -> + parse_composed_type_annot loc storage_annot + >>? fun (ty_name, map_field, storage_field) -> + Gas.consume ctxt (Typecheck_costs.type_ 5) >|? fun ctxt -> + Ex_ty (Pair_t ((big_map_ty, map_field, None), + (remaining_storage, storage_field, None), + ty_name, true)), + ctxt + end | _ -> - parse_packable_ty ctxt ~legacy node + parse_ty ctxt ~legacy ~allow_big_map:true ~allow_operation:false ~allow_contract:legacy node let check_packable ~legacy loc root = let rec check : type t. t ty -> unit tzresult = function @@ -1324,14 +1362,14 @@ let check_packable ~legacy loc root = | Address_t _ -> ok () | Bool_t _ -> ok () | Chain_id_t _ -> ok () - | Pair_t ((l_ty, _, _), (r_ty, _, _), _) -> + | Pair_t ((l_ty, _, _), (r_ty, _, _), _, _) -> check l_ty >>? fun () -> check r_ty - | Union_t ((l_ty, _), (r_ty, _), _) -> + | Union_t ((l_ty, _), (r_ty, _), _, _) -> check l_ty >>? fun () -> check r_ty - | Option_t (v_ty, _) -> check v_ty - | List_t (elt_ty, _) -> check elt_ty + | Option_t (v_ty, _, _) -> check v_ty + | List_t (elt_ty, _, _) -> check elt_ty | Set_t (_, _) -> ok () - | Map_t (_, elt_ty, _) -> check elt_ty + | Map_t (_, elt_ty, _, _) -> check elt_ty | Lambda_t (_l_ty, _r_ty, _) -> ok () | Contract_t (_, _) when legacy -> ok () | Contract_t (_, _) -> error (Unexpected_contract loc) in @@ -1386,7 +1424,7 @@ let find_entrypoint (type full) (full : full ty) ~root_name entrypoint = let rec find_entrypoint : type t. t ty -> string -> ((Script.node -> Script.node) * ex_ty) = fun t entrypoint -> match t with - | Union_t ((tl, al), (tr, ar), _) -> + | Union_t ((tl, al), (tr, ar), _, _) -> if match al with None -> false | Some (`Field_annot l) -> Compare.String.(l = entrypoint) then ((fun e -> Prim (0, D_Left, [ e ], [])), Ex_ty tl) else if match ar with None -> false | Some (`Field_annot r) -> Compare.String.(r = entrypoint) then @@ -1456,7 +1494,7 @@ let well_formed_entrypoints (type full) (full : full ty) ~root_name = : type t. t ty -> prim list -> bool -> (prim list) option * Entrypoints.t -> (prim list) option * Entrypoints.t = fun t path reachable acc -> match t with - | Union_t ((tl, al), (tr, ar), _) -> + | Union_t ((tl, al), (tr, ar), _, _) -> let acc = merge (D_Left :: path) al tl reachable acc in let acc = merge (D_Right :: path) ar tr reachable acc in let acc = check tl (D_Left :: path) (match al with Some _ -> true | None -> reachable) acc in @@ -1742,7 +1780,7 @@ let rec parse_data | Contract_t _, expr -> traced (fail (Invalid_kind (location expr, [ String_kind ; Bytes_kind ], kind expr))) (* Pairs *) - | Pair_t ((ta, _, _), (tb, _, _), _), Prim (loc, D_Pair, [ va; vb ], annot) -> + | Pair_t ((ta, _, _), (tb, _, _), _, _), Prim (loc, D_Pair, [ va; vb ], annot) -> (if legacy then return () else fail_unexpected_annot loc annot) >>=? fun () -> Lwt.return (Gas.consume ctxt Typecheck_costs.pair) >>=? fun ctxt -> @@ -1755,7 +1793,7 @@ let rec parse_data | Pair_t _, expr -> traced (fail (unexpected expr [] Constant_namespace [ D_Pair ])) (* Unions *) - | Union_t ((tl, _), _, _), Prim (loc, D_Left, [ v ], annot) -> + | Union_t ((tl, _), _, _, _), Prim (loc, D_Left, [ v ], annot) -> (if legacy then return () else fail_unexpected_annot loc annot) >>=? fun () -> Lwt.return (Gas.consume ctxt Typecheck_costs.union) >>=? fun ctxt -> @@ -1764,7 +1802,7 @@ let rec parse_data return (L v, ctxt) | Union_t _, Prim (loc, D_Left, l, _) -> fail @@ Invalid_arity (loc, D_Left, 1, List.length l) - | Union_t (_, (tr, _), _), Prim (loc, D_Right, [ v ], annot) -> + | Union_t (_, (tr, _), _, _), Prim (loc, D_Right, [ v ], annot) -> fail_unexpected_annot loc annot >>=? fun () -> Lwt.return (Gas.consume ctxt Typecheck_costs.union) >>=? fun ctxt -> traced @@ @@ -1782,7 +1820,7 @@ let rec parse_data | Lambda_t _, expr -> traced (fail (Invalid_kind (location expr, [ Seq_kind ], kind expr))) (* Options *) - | Option_t (t, _), Prim (loc, D_Some, [ v ], annot) -> + | Option_t (t, _, _), Prim (loc, D_Some, [ v ], annot) -> (if legacy then return () else fail_unexpected_annot loc annot) >>=? fun () -> Lwt.return (Gas.consume ctxt Typecheck_costs.some) >>=? fun ctxt -> @@ -1791,7 +1829,7 @@ let rec parse_data return (Some v, ctxt) | Option_t _, Prim (loc, D_Some, l, _) -> fail @@ Invalid_arity (loc, D_Some, 1, List.length l) - | Option_t (_, _), Prim (loc, D_None, [], annot) -> + | Option_t (_, _, _), Prim (loc, D_None, [], annot) -> (if legacy then return () else fail_unexpected_annot loc annot) >>=? fun () -> Lwt.return (Gas.consume ctxt Typecheck_costs.none) >>=? fun ctxt -> @@ -1801,7 +1839,7 @@ let rec parse_data | Option_t _, expr -> traced (fail (unexpected expr [] Constant_namespace [ D_Some ; D_None ])) (* Lists *) - | List_t (t, _ty_name), Seq (_loc, items) -> + | List_t (t, _ty_name, _), Seq (_loc, items) -> traced @@ fold_right_s (fun v (rest, ctxt) -> @@ -1836,15 +1874,28 @@ let rec parse_data | Set_t _, expr -> traced (fail (Invalid_kind (location expr, [ Seq_kind ], kind expr))) (* Maps *) - | Map_t (tk, tv, _ty_name), (Seq (loc, vs) as expr) -> + | Map_t (tk, tv, _ty_name, _), (Seq (loc, vs) as expr) -> parse_items ?type_logger loc ctxt expr tk tv vs (fun x -> x) | Map_t _, expr -> traced (fail (Invalid_kind (location expr, [ Seq_kind ], kind expr))) | Big_map_t (tk, tv, _ty_name), (Seq (loc, vs) as expr) -> parse_items ?type_logger loc ctxt expr tk tv vs (fun x -> Some x) >>|? fun (diff, ctxt) -> - ({ diff ; key_type = ty_of_comparable_ty tk ; value_type = tv }, ctxt) + ({ id = None ; diff ; key_type = ty_of_comparable_ty tk ; value_type = tv }, ctxt) + | Big_map_t (tk, tv, _ty_name), Int (loc, id) -> + Big_map.exists ctxt id >>=? begin function + | _, None -> + traced (fail (Invalid_big_map (loc, id))) + | ctxt, Some (btk, btv) -> + Lwt.return begin + parse_comparable_ty ctxt (Micheline.root btk) >>? fun (Ex_comparable_ty btk, ctxt) -> + parse_packable_ty ctxt ~legacy (Micheline.root btv) >>? fun (Ex_ty btv, ctxt) -> + comparable_ty_eq ctxt tk btk >>? fun Eq -> + ty_eq ctxt tv btv >>? fun (Eq, ctxt) -> + ok ({ id = Some id ; diff = empty_map tk ; key_type = ty_of_comparable_ty tk ; value_type = tv }, ctxt) + end + end | Big_map_t (_tk, _tv, _), expr -> - traced (fail (Invalid_kind (location expr, [ Seq_kind ], kind expr))) + traced (fail (Invalid_kind (location expr, [ Seq_kind ; Int_kind ], kind expr))) and parse_comparable_data : type a. @@ -2067,15 +2118,15 @@ and parse_instr Item_t (t, rest, _) -> parse_var_type_annot loc annot >>=? fun (annot, ty_name) -> typed ctxt loc Cons_some - (Item_t (Option_t (t, ty_name), rest, annot)) + (Item_t (Option_t (t, ty_name, has_big_map t), rest, annot)) | Prim (loc, I_NONE, [ t ], annot), stack -> Lwt.return @@ parse_any_ty ctxt ~legacy t >>=? fun (Ex_ty t, ctxt) -> parse_var_type_annot loc annot >>=? fun (annot, ty_name) -> typed ctxt loc (Cons_none t) - (Item_t (Option_t (t, ty_name), stack, annot)) + (Item_t (Option_t (t, ty_name, has_big_map t), stack, annot)) | Prim (loc, I_IF_NONE, [ bt ; bf ], annot), - (Item_t (Option_t (t, _), rest, option_annot) as bef) -> + (Item_t (Option_t (t, _, _), rest, option_annot) as bef) -> check_kind [ Seq_kind ] bt >>=? fun () -> check_kind [ Seq_kind ] bf >>=? fun () -> fail_unexpected_annot loc annot >>=? fun () -> @@ -2094,9 +2145,9 @@ and parse_instr ~if_special_second:(var_to_field_annot snd_annot) >>=? fun (annot, ty_name, l_field, r_field) -> typed ctxt loc Cons_pair - (Item_t (Pair_t((a, l_field, fst_annot), (b, r_field, snd_annot), ty_name), rest, annot)) + (Item_t (Pair_t((a, l_field, fst_annot), (b, r_field, snd_annot), ty_name, has_big_map a || has_big_map b), rest, annot)) | Prim (loc, I_CAR, [], annot), - Item_t (Pair_t ((a, expected_field_annot, a_annot), _, _), rest, pair_annot) -> + Item_t (Pair_t ((a, expected_field_annot, a_annot), _, _, _), rest, pair_annot) -> parse_destr_annot loc annot ~pair_annot ~value_annot:a_annot @@ -2106,7 +2157,7 @@ and parse_instr Lwt.return @@ check_correct_field field_annot expected_field_annot >>=? fun () -> typed ctxt loc Car (Item_t (a, rest, annot)) | Prim (loc, I_CDR, [], annot), - Item_t (Pair_t (_, (b, expected_field_annot, b_annot), _), rest, pair_annot) -> + Item_t (Pair_t (_, (b, expected_field_annot, b_annot), _, _), rest, pair_annot) -> parse_destr_annot loc annot ~pair_annot ~value_annot:b_annot @@ -2122,16 +2173,16 @@ and parse_instr parse_constr_annot loc annot ~if_special_first:(var_to_field_annot stack_annot) >>=? fun (annot, tname, l_field, r_field) -> - typed ctxt loc Left (Item_t (Union_t ((tl, l_field), (tr, r_field), tname), rest, annot)) + typed ctxt loc Left (Item_t (Union_t ((tl, l_field), (tr, r_field), tname, has_big_map tl || has_big_map tr), rest, annot)) | Prim (loc, I_RIGHT, [ tl ], annot), Item_t (tr, rest, stack_annot) -> Lwt.return @@ parse_any_ty ctxt ~legacy tl >>=? fun (Ex_ty tl, ctxt) -> parse_constr_annot loc annot ~if_special_second:(var_to_field_annot stack_annot) >>=? fun (annot, tname, l_field, r_field) -> - typed ctxt loc Right (Item_t (Union_t ((tl, l_field), (tr, r_field), tname), rest, annot)) + typed ctxt loc Right (Item_t (Union_t ((tl, l_field), (tr, r_field), tname, has_big_map tl || has_big_map tr), rest, annot)) | Prim (loc, I_IF_LEFT, [ bt ; bf ], annot), - (Item_t (Union_t ((tl, l_field), (tr, r_field), _), rest, union_annot) as bef) -> + (Item_t (Union_t ((tl, l_field), (tr, r_field), _, _), rest, union_annot) as bef) -> check_kind [ Seq_kind ] bt >>=? fun () -> check_kind [ Seq_kind ] bf >>=? fun () -> fail_unexpected_annot loc annot >>=? fun () -> @@ -2148,21 +2199,21 @@ and parse_instr stack -> Lwt.return @@ parse_any_ty ctxt ~legacy t >>=? fun (Ex_ty t, ctxt) -> parse_var_type_annot loc annot >>=? fun (annot, ty_name) -> - typed ctxt loc Nil (Item_t (List_t (t, ty_name), stack, annot)) + typed ctxt loc Nil (Item_t (List_t (t, ty_name, has_big_map t), stack, annot)) | Prim (loc, I_CONS, [], annot), - Item_t (tv, Item_t (List_t (t, ty_name), rest, _), _) -> + Item_t (tv, Item_t (List_t (t, ty_name, has_big_map), rest, _), _) -> check_item_ty ctxt tv t loc I_CONS 1 2 >>=? fun (Eq, t, ctxt) -> parse_var_annot loc annot >>=? fun annot -> - typed ctxt loc Cons_list (Item_t (List_t (t, ty_name), rest, annot)) + typed ctxt loc Cons_list (Item_t (List_t (t, ty_name, has_big_map), rest, annot)) | Prim (loc, I_IF_CONS, [ bt ; bf ], annot), - (Item_t (List_t (t, ty_name), rest, list_annot) as bef) -> + (Item_t (List_t (t, ty_name, has_big_map), rest, list_annot) as bef) -> check_kind [ Seq_kind ] bt >>=? fun () -> check_kind [ Seq_kind ] bf >>=? fun () -> fail_unexpected_annot loc annot >>=? fun () -> let hd_annot = gen_access_annot list_annot default_hd_annot in let tl_annot = gen_access_annot list_annot default_tl_annot in parse_instr ?type_logger tc_context ctxt ~legacy bt - (Item_t (t, Item_t (List_t (t, ty_name), rest, tl_annot), hd_annot)) + (Item_t (t, Item_t (List_t (t, ty_name, has_big_map), rest, tl_annot), hd_annot)) >>=? fun (btr, ctxt) -> parse_instr ?type_logger tc_context ctxt ~legacy bf rest >>=? fun (bfr, ctxt) -> @@ -2175,7 +2226,7 @@ and parse_instr parse_var_type_annot loc annot >>=? fun (annot, tname) -> typed ctxt loc List_size (Item_t (Nat_t tname, rest, annot)) | Prim (loc, I_MAP, [ body ], annot), - (Item_t (List_t (elt, _), starting_rest, list_annot)) -> + (Item_t (List_t (elt, _, _), starting_rest, list_annot)) -> check_kind [ Seq_kind ] body >>=? fun () -> parse_var_type_annot loc annot >>=? fun (ret_annot, list_ty_name) -> @@ -2191,14 +2242,14 @@ and parse_instr (Lwt.return @@ stack_ty_eq ctxt 1 rest starting_rest >>=? fun (Eq, ctxt) -> Lwt.return @@ merge_stacks ~legacy loc ctxt rest starting_rest >>=? fun (rest, ctxt) -> typed ctxt loc (List_map ibody) - (Item_t (List_t (ret, list_ty_name), rest, ret_annot))) + (Item_t (List_t (ret, list_ty_name, has_big_map ret), rest, ret_annot))) | Typed { aft ; _ } -> serialize_stack_for_error ctxt aft >>=? fun (aft, _ctxt) -> fail (Invalid_map_body (loc, aft)) | Failed _ -> fail (Invalid_map_block_fail loc) end | Prim (loc, I_ITER, [ body ], annot), - Item_t (List_t (elt, _), rest, list_annot) -> + Item_t (List_t (elt, _, _), rest, list_annot) -> check_kind [ Seq_kind ] body >>=? fun () -> fail_unexpected_annot loc annot >>=? fun () -> let elt_annot = gen_access_annot list_annot default_elt_annot in @@ -2271,16 +2322,16 @@ and parse_instr Lwt.return @@ parse_comparable_ty ctxt tk >>=? fun (Ex_comparable_ty tk, ctxt) -> Lwt.return @@ parse_any_ty ctxt ~legacy tv >>=? fun (Ex_ty tv, ctxt) -> parse_var_type_annot loc annot >>=? fun (annot, ty_name) -> - typed ctxt loc (Empty_map (tk, tv)) (Item_t (Map_t (tk, tv, ty_name), stack, annot)) + typed ctxt loc (Empty_map (tk, tv)) (Item_t (Map_t (tk, tv, ty_name, has_big_map tv), stack, annot)) | Prim (loc, I_MAP, [ body ], annot), - Item_t (Map_t (ck, elt, _), starting_rest, _map_annot) -> + Item_t (Map_t (ck, elt, _, _), starting_rest, _map_annot) -> let k = ty_of_comparable_ty ck in check_kind [ Seq_kind ] body >>=? fun () -> parse_var_type_annot loc annot >>=? fun (ret_annot, ty_name) -> let k_name = field_to_var_annot default_key_annot in let e_name = field_to_var_annot default_elt_annot in parse_instr ?type_logger tc_context ctxt ~legacy - body (Item_t (Pair_t ((k, None, k_name), (elt, None, e_name), None), + body (Item_t (Pair_t ((k, None, k_name), (elt, None, e_name), None, has_big_map elt), starting_rest, None)) >>=? begin fun (judgement, ctxt) -> match judgement with | Typed ({ aft = Item_t (ret, rest, _) ; _ } as ibody) -> @@ -2291,21 +2342,21 @@ and parse_instr (Lwt.return @@ stack_ty_eq ctxt 1 rest starting_rest >>=? fun (Eq, ctxt) -> Lwt.return @@ merge_stacks ~legacy loc ctxt rest starting_rest >>=? fun (rest, ctxt) -> typed ctxt loc (Map_map ibody) - (Item_t (Map_t (ck, ret, ty_name), rest, ret_annot))) + (Item_t (Map_t (ck, ret, ty_name, has_big_map ret), rest, ret_annot))) | Typed { aft ; _ } -> serialize_stack_for_error ctxt aft >>=? fun (aft, _ctxt) -> fail (Invalid_map_body (loc, aft)) | Failed _ -> fail (Invalid_map_block_fail loc) end | Prim (loc, I_ITER, [ body ], annot), - Item_t (Map_t (comp_elt, element_ty, _), rest, _map_annot) -> + Item_t (Map_t (comp_elt, element_ty, _, _), rest, _map_annot) -> check_kind [ Seq_kind ] body >>=? fun () -> fail_unexpected_annot loc annot >>=? fun () -> let k_name = field_to_var_annot default_key_annot in let e_name = field_to_var_annot default_elt_annot in let key = ty_of_comparable_ty comp_elt in parse_instr ?type_logger tc_context ctxt ~legacy body - (Item_t (Pair_t ((key, None, k_name), (element_ty, None, e_name), None), + (Item_t (Pair_t ((key, None, k_name), (element_ty, None, e_name), None, has_big_map element_ty), rest, None)) >>=? begin fun (judgement, ctxt) -> match judgement with | Typed ({ aft ; _ } as ibody) -> @@ -2321,30 +2372,36 @@ and parse_instr typed ctxt loc (Map_iter (descr rest)) rest end | Prim (loc, I_MEM, [], annot), - Item_t (vk, Item_t (Map_t (ck, _, _), rest, _), _) -> + Item_t (vk, Item_t (Map_t (ck, _, _, _), rest, _), _) -> let k = ty_of_comparable_ty ck in check_item_ty ctxt vk k loc I_MEM 1 2 >>=? fun (Eq, _, ctxt) -> parse_var_annot loc annot >>=? fun annot -> typed ctxt loc Map_mem (Item_t (Bool_t None, rest, annot)) | Prim (loc, I_GET, [], annot), - Item_t (vk, Item_t (Map_t (ck, elt, _), rest, _), _) -> + Item_t (vk, Item_t (Map_t (ck, elt, _, has_big_map), rest, _), _) -> let k = ty_of_comparable_ty ck in check_item_ty ctxt vk k loc I_GET 1 2 >>=? fun (Eq, _, ctxt) -> parse_var_annot loc annot >>=? fun annot -> - typed ctxt loc Map_get (Item_t (Option_t (elt, None), rest, annot)) + typed ctxt loc Map_get (Item_t (Option_t (elt, None, has_big_map), rest, annot)) | Prim (loc, I_UPDATE, [], annot), - Item_t (vk, Item_t (Option_t (vv, _), - Item_t (Map_t (ck, v, map_name), rest, map_annot), _), _) -> + Item_t (vk, Item_t (Option_t (vv, _, _), + Item_t (Map_t (ck, v, map_name, has_big_map), rest, map_annot), _), _) -> let k = ty_of_comparable_ty ck in check_item_ty ctxt vk k loc I_UPDATE 1 3 >>=? fun (Eq, _, ctxt) -> check_item_ty ctxt vv v loc I_UPDATE 2 3 >>=? fun (Eq, v, ctxt) -> parse_var_annot loc annot ~default:map_annot >>=? fun annot -> - typed ctxt loc Map_update (Item_t (Map_t (ck, v, map_name), rest, annot)) + typed ctxt loc Map_update (Item_t (Map_t (ck, v, map_name, has_big_map), rest, annot)) | Prim (loc, I_SIZE, [], annot), - Item_t (Map_t (_, _, _), rest, _) -> + Item_t (Map_t (_, _, _, _), rest, _) -> parse_var_annot loc annot >>=? fun annot -> typed ctxt loc Map_size (Item_t (Nat_t None, rest, annot)) (* big_map *) + | Prim (loc, I_EMPTY_BIG_MAP, [ tk ; tv ], annot), + stack -> + Lwt.return @@ parse_comparable_ty ctxt tk >>=? fun (Ex_comparable_ty tk, ctxt) -> + Lwt.return @@ parse_packable_ty ctxt ~legacy tv >>=? fun (Ex_ty tv, ctxt) -> + parse_var_type_annot loc annot >>=? fun (annot, ty_name) -> + typed ctxt loc (Empty_big_map (tk, tv)) (Item_t (Big_map_t (tk, tv, ty_name), stack, annot)) | Prim (loc, I_MEM, [], annot), Item_t (set_key, Item_t (Big_map_t (map_key, _, _), rest, _), _) -> let k = ty_of_comparable_ty map_key in @@ -2356,10 +2413,10 @@ and parse_instr let k = ty_of_comparable_ty ck in check_item_ty ctxt vk k loc I_GET 1 2 >>=? fun (Eq, _, ctxt) -> parse_var_annot loc annot >>=? fun annot -> - typed ctxt loc Big_map_get (Item_t (Option_t (elt, None), rest, annot)) + typed ctxt loc Big_map_get (Item_t (Option_t (elt, None, has_big_map elt), rest, annot)) | Prim (loc, I_UPDATE, [], annot), Item_t (set_key, - Item_t (Option_t (set_value, _), + Item_t (Option_t (set_value, _, _), Item_t (Big_map_t (map_key, map_value, map_name), rest, map_annot), _), _) -> let k = ty_of_comparable_ty map_key in check_item_ty ctxt set_key k loc I_UPDATE 1 3 >>=? fun (Eq, _, ctxt) -> @@ -2436,7 +2493,7 @@ and parse_instr typed ctxt loc (Loop ibody) rest end | Prim (loc, I_LOOP_LEFT, [ body ], annot), - (Item_t (Union_t ((tl, l_field), (tr, _), _), rest, union_annot) as stack) -> + (Item_t (Union_t ((tl, l_field), (tr, _), _, _), rest, union_annot) as stack) -> check_kind [ Seq_kind ] body >>=? fun () -> parse_var_annot loc annot >>=? fun annot -> let l_annot = gen_access_annot union_annot l_field ~default:default_left_annot in @@ -2553,7 +2610,7 @@ and parse_instr typed ctxt loc Concat_string_pair (Item_t (String_t tname, rest, annot)) | Prim (loc, I_CONCAT, [], annot), - Item_t (List_t (String_t tname, _), rest, list_annot) -> + Item_t (List_t (String_t tname, _, _), rest, list_annot) -> parse_var_annot ~default:list_annot loc annot >>=? fun annot -> typed ctxt loc Concat_string (Item_t (String_t tname, rest, annot)) @@ -2563,7 +2620,7 @@ and parse_instr ~default:(gen_access_annot string_annot default_slice_annot) loc annot >>=? fun annot -> typed ctxt loc Slice_string - (Item_t (Option_t (String_t tname, None), rest, annot)) + (Item_t (Option_t (String_t tname, None, false), rest, annot)) | Prim (loc, I_SIZE, [], annot), Item_t (String_t _, rest, _) -> parse_var_annot loc annot >>=? fun annot -> @@ -2576,7 +2633,7 @@ and parse_instr typed ctxt loc Concat_bytes_pair (Item_t (Bytes_t tname, rest, annot)) | Prim (loc, I_CONCAT, [], annot), - Item_t (List_t (Bytes_t tname, _), rest, list_annot) -> + Item_t (List_t (Bytes_t tname, _, _), rest, list_annot) -> parse_var_annot ~default:list_annot loc annot >>=? fun annot -> typed ctxt loc Concat_bytes (Item_t (Bytes_t tname, rest, annot)) @@ -2586,7 +2643,7 @@ and parse_instr ~default:(gen_access_annot bytes_annot default_slice_annot) loc annot >>=? fun annot -> typed ctxt loc Slice_bytes - (Item_t (Option_t (Bytes_t tname, None), rest, annot)) + (Item_t (Option_t (Bytes_t tname, None, false), rest, annot)) | Prim (loc, I_SIZE, [], annot), Item_t (Bytes_t _, rest, _) -> parse_var_annot loc annot >>=? fun annot -> @@ -2648,7 +2705,7 @@ and parse_instr Item_t (Int_t _, rest, int_annot) -> parse_var_annot loc annot ~default:int_annot >>=? fun annot -> typed ctxt loc Is_nat - (Item_t (Option_t (Nat_t None, None), rest, annot)) + (Item_t (Option_t (Nat_t None, None, false), rest, annot)) | Prim (loc, I_INT, [], annot), Item_t (Nat_t _, rest, _) -> parse_var_annot loc annot >>=? fun annot -> @@ -2736,16 +2793,16 @@ and parse_instr typed ctxt loc Ediv_teznat (Item_t (Option_t (Pair_t ((Mutez_t tname, None, None), - (Mutez_t tname, None, None), None), - None), rest, annot)) + (Mutez_t tname, None, None), None, false), + None, false), rest, annot)) | Prim (loc, I_EDIV, [], annot), Item_t (Mutez_t tn1, Item_t (Mutez_t tn2, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> Lwt.return @@ merge_type_annot ~legacy tn1 tn2 >>=? fun tname -> typed ctxt loc Ediv_tez (Item_t (Option_t (Pair_t ((Nat_t None, None, None), - (Mutez_t tname, None, None), None), - None), rest, annot)) + (Mutez_t tname, None, None), None, false), + None, false), rest, annot)) | Prim (loc, I_EDIV, [], annot), Item_t (Int_t tn1, Item_t (Int_t tn2, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> @@ -2753,31 +2810,31 @@ and parse_instr typed ctxt loc Ediv_intint (Item_t (Option_t (Pair_t ((Int_t tname, None, None), - (Nat_t None, None, None), None), - None), rest, annot)) + (Nat_t None, None, None), None, false), + None, false), rest, annot)) | Prim (loc, I_EDIV, [], annot), Item_t (Int_t tname, Item_t (Nat_t _, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> typed ctxt loc Ediv_intnat (Item_t (Option_t (Pair_t ((Int_t tname, None, None), - (Nat_t None, None, None), None), - None), rest, annot)) + (Nat_t None, None, None), None, false), + None, false), rest, annot)) | Prim (loc, I_EDIV, [], annot), Item_t (Nat_t tname, Item_t (Int_t _, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> typed ctxt loc Ediv_natint (Item_t (Option_t (Pair_t ((Int_t None, None, None), - (Nat_t tname, None, None), None), - None), rest, annot)) + (Nat_t tname, None, None), None, false), + None, false), rest, annot)) | Prim (loc, I_EDIV, [], annot), Item_t (Nat_t tn1, Item_t (Nat_t tn2, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> Lwt.return @@ merge_type_annot ~legacy tn1 tn2 >>=? fun tname -> typed ctxt loc Ediv_natnat (Item_t (Option_t (Pair_t ((Nat_t tname, None, None), - (Nat_t tname, None, None), None), - None), rest, annot)) + (Nat_t tname, None, None), None, false), + None, false), rest, annot)) | Prim (loc, I_LSL, [], annot), Item_t (Nat_t tn1, Item_t (Nat_t tn2, rest, _), _) -> parse_var_annot loc annot >>=? fun annot -> @@ -2883,7 +2940,7 @@ and parse_instr (* packing *) | Prim (loc, I_PACK, [], annot), Item_t (t, rest, unpacked_annot) -> - Lwt.return (check_packable ~legacy:true loc t) >>=? fun () -> + Lwt.return (check_packable ~legacy:true (* allow to pack contracts for hash/signature checks *) loc t) >>=? fun () -> parse_var_annot loc annot ~default:(gen_access_annot unpacked_annot default_pack_annot) >>=? fun annot -> typed ctxt loc (Pack t) @@ -2893,7 +2950,7 @@ and parse_instr Lwt.return @@ parse_packable_ty ctxt ~legacy ty >>=? fun (Ex_ty t, ctxt) -> parse_var_type_annot loc annot >>=? fun (annot, ty_name) -> let annot = default_annot annot ~default:(gen_access_annot packed_annot default_unpack_annot) in - typed ctxt loc (Unpack t) (Item_t (Option_t (t, ty_name), rest, annot)) + typed ctxt loc (Unpack t) (Item_t (Option_t (t, ty_name, false (* cannot unpack big_maps *)), rest, annot)) (* protocol *) | Prim (loc, I_ADDRESS, [], annot), Item_t (Contract_t _, rest, contract_annot) -> @@ -2903,7 +2960,7 @@ and parse_instr (Item_t (Address_t None, rest, annot)) | Prim (loc, I_CONTRACT, [ ty ], annot), Item_t (Address_t _, rest, addr_annot) -> - Lwt.return @@ parse_ty ctxt ~legacy ~allow_big_map:false ~allow_operation:false ~allow_contract:true ty >>=? fun (Ex_ty t, ctxt) -> + Lwt.return @@ parse_parameter_ty ctxt ~legacy ty >>=? fun (Ex_ty t, ctxt) -> parse_entrypoint_annot loc annot ~default:(gen_access_annot addr_annot default_contract_annot) >>=? fun (annot, entrypoint) -> Lwt.return @@ begin match entrypoint with @@ -2915,7 +2972,7 @@ and parse_instr else Ok entrypoint end >>=? fun entrypoint -> typed ctxt loc (Contract (t, entrypoint)) - (Item_t (Option_t (Contract_t (t, None), None), rest, annot)) + (Item_t (Option_t (Contract_t (t, None), None, false), rest, annot)) | Prim (loc, I_TRANSFER_TOKENS, [], annot), Item_t (p, Item_t (Mutez_t _, Item_t @@ -2924,13 +2981,13 @@ and parse_instr parse_var_annot loc annot >>=? fun annot -> typed ctxt loc Transfer_tokens (Item_t (Operation_t None, rest, annot)) | Prim (loc, I_SET_DELEGATE, [], annot), - Item_t (Option_t (Key_hash_t _, _), rest, _) -> + Item_t (Option_t (Key_hash_t _, _, _), rest, _) -> parse_var_annot loc annot >>=? fun annot -> typed ctxt loc Set_delegate (Item_t (Operation_t None, rest, annot)) | Prim (loc, I_CREATE_ACCOUNT, [], annot), Item_t (Key_hash_t _, Item_t - (Option_t (Key_hash_t _, _), Item_t + (Option_t (Key_hash_t _, _, _), Item_t (Bool_t _, Item_t (Mutez_t _, rest, _), _), _), _) -> if legacy @@ -2951,7 +3008,7 @@ and parse_instr | Prim (loc, I_CREATE_CONTRACT, [ (Seq _ as code)], annot), Item_t (Key_hash_t _, Item_t - (Option_t (Key_hash_t _, _), Item_t + (Option_t (Key_hash_t _, _, _), Item_t (Bool_t _, Item_t (Bool_t _, Item_t (Mutez_t _, Item_t @@ -2978,10 +3035,12 @@ and parse_instr let storage_annot = default_annot (type_to_var_annot (name_of_ty storage_type)) ~default:default_storage_annot in let arg_type_full = Pair_t ((arg_type, None, arg_annot), - (storage_type, None, storage_annot), None) in + (storage_type, None, storage_annot), None, + has_big_map arg_type || has_big_map storage_type) in let ret_type_full = - Pair_t ((List_t (Operation_t None, None), None, None), - (storage_type, None, None), None) in + Pair_t ((List_t (Operation_t None, None, false), None, None), + (storage_type, None, None), None, + has_big_map storage_type) in trace (Ill_typed_contract (cannonical_code, [])) (parse_returning (Toplevel { storage_type ; param_type = arg_type ; root_name ; @@ -3004,7 +3063,7 @@ and parse_instr | Prim (loc, I_CREATE_CONTRACT, [ (Seq _ as code)], annot), (* Removed the instruction's arguments manager, spendable and delegatable *) Item_t - (Option_t (Key_hash_t _, _), Item_t + (Option_t (Key_hash_t _, _, _), Item_t (Mutez_t _, Item_t (ginit, rest, _), _), _) -> parse_two_var_annot loc annot >>=? fun (op_annot, addr_annot) -> @@ -3027,10 +3086,11 @@ and parse_instr let storage_annot = default_annot (type_to_var_annot (name_of_ty storage_type)) ~default:default_storage_annot in let arg_type_full = Pair_t ((arg_type, None, arg_annot), - (storage_type, None, storage_annot), None) in + (storage_type, None, storage_annot), None, + has_big_map arg_type || has_big_map storage_type) in let ret_type_full = - Pair_t ((List_t (Operation_t None, None), None, None), - (storage_type, None, None), None) in + Pair_t ((List_t (Operation_t None, None, false), None, None), + (storage_type, None, None), None, has_big_map storage_type) in trace (Ill_typed_contract (cannonical_code, [])) (parse_returning (Toplevel { storage_type ; param_type = arg_type ; root_name ; @@ -3400,10 +3460,11 @@ let parse_script let storage_annot = default_annot (type_to_var_annot (name_of_ty storage_type)) ~default:default_storage_annot in let arg_type_full = Pair_t ((arg_type, None, arg_annot), - (storage_type, None, storage_annot), None) in + (storage_type, None, storage_annot), None, + has_big_map arg_type || has_big_map storage_type) in let ret_type_full = - Pair_t ((List_t (Operation_t None, None), None, None), - (storage_type, None, None), None) in + Pair_t ((List_t (Operation_t None, None, false), None, None), + (storage_type, None, None), None, has_big_map storage_type) in trace_eval (fun () -> Lwt.return @@ serialize_ty_for_error ctxt storage_type >>|? fun (storage_type, _ctxt) -> @@ -3439,10 +3500,12 @@ let typecheck_code let storage_annot = default_annot (type_to_var_annot (name_of_ty storage_type)) ~default:default_storage_annot in let arg_type_full = Pair_t ((arg_type, None, arg_annot), - (storage_type, None, storage_annot), None) in + (storage_type, None, storage_annot), None, + has_big_map arg_type || has_big_map storage_type) in let ret_type_full = - Pair_t ((List_t (Operation_t None, None), None, None), - (storage_type, None, None), None) in + Pair_t ((List_t (Operation_t None, None, false), None, None), + (storage_type, None, None), None, + has_big_map storage_type) in let result = parse_returning (Toplevel { storage_type ; param_type = arg_type ; root_name ; @@ -3612,7 +3675,7 @@ let rec unparse_data | Readable -> return (String (-1, Signature.Public_key_hash.to_b58check k), ctxt) end - | Operation_t _, op -> + | Operation_t _, (op, _big_map_diff) -> let bytes = Data_encoding.Binary.to_bytes_exn Operation.internal_operation_encoding op in Lwt.return (Gas.consume ctxt (Unparse_costs.operation bytes)) >>=? fun ctxt -> return (Bytes (-1, bytes), ctxt) @@ -3620,27 +3683,27 @@ let rec unparse_data let bytes = Data_encoding.Binary.to_bytes_exn Chain_id.encoding chain_id in Lwt.return (Gas.consume ctxt (Unparse_costs.chain_id bytes)) >>=? fun ctxt -> return (Bytes (-1, bytes), ctxt) - | Pair_t ((tl, _, _), (tr, _, _), _), (l, r) -> + | Pair_t ((tl, _, _), (tr, _, _), _, _), (l, r) -> Lwt.return (Gas.consume ctxt Unparse_costs.pair) >>=? fun ctxt -> unparse_data ctxt mode tl l >>=? fun (l, ctxt) -> unparse_data ctxt mode tr r >>=? fun (r, ctxt) -> return (Prim (-1, D_Pair, [ l; r ], []), ctxt) - | Union_t ((tl, _), _, _), L l -> + | Union_t ((tl, _), _, _, _), L l -> Lwt.return (Gas.consume ctxt Unparse_costs.union) >>=? fun ctxt -> unparse_data ctxt mode tl l >>=? fun (l, ctxt) -> return (Prim (-1, D_Left, [ l ], []), ctxt) - | Union_t (_, (tr, _), _), R r -> + | Union_t (_, (tr, _), _, _), R r -> Lwt.return (Gas.consume ctxt Unparse_costs.union) >>=? fun ctxt -> unparse_data ctxt mode tr r >>=? fun (r, ctxt) -> return (Prim (-1, D_Right, [ r ], []), ctxt) - | Option_t (t, _), Some v -> + | Option_t (t, _, _), Some v -> Lwt.return (Gas.consume ctxt Unparse_costs.some) >>=? fun ctxt -> unparse_data ctxt mode t v >>=? fun (v, ctxt) -> return (Prim (-1, D_Some, [ v ], []), ctxt) | Option_t _, None -> Lwt.return (Gas.consume ctxt Unparse_costs.none) >>=? fun ctxt -> return (Prim (-1, D_None, [], []), ctxt) - | List_t (t, _), items -> + | List_t (t, _, _), items -> fold_left_s (fun (l, ctxt) element -> Lwt.return (Gas.consume ctxt Unparse_costs.list_element) >>=? fun ctxt -> @@ -3659,7 +3722,7 @@ let rec unparse_data ([], ctxt) (set_fold (fun e acc -> e :: acc) set []) >>=? fun (items, ctxt) -> return (Micheline.Seq (-1, items), ctxt) - | Map_t (kt, vt, _), map -> + | Map_t (kt, vt, _, _), map -> let kt = ty_of_comparable_ty kt in fold_left_s (fun (l, ctxt) (k, v) -> @@ -3670,8 +3733,27 @@ let rec unparse_data ([], ctxt) (map_fold (fun k v acc -> (k, v) :: acc) map []) >>=? fun (items, ctxt) -> return (Micheline.Seq (-1, items), ctxt) - | Big_map_t (_kt, _kv, _), _map -> - return (Micheline.Seq (-1, []), ctxt) + | Big_map_t (kt, vt, _), { id = None ; diff = (module Diff) ; _ } -> + (* this branch is to allow roundtrip of big map literals *) + let kt = ty_of_comparable_ty kt in + fold_left_s + (fun (l, ctxt) (k, v) -> + Lwt.return (Gas.consume ctxt Unparse_costs.map_element) >>=? fun ctxt -> + unparse_data ctxt mode kt k >>=? fun (key, ctxt) -> + unparse_data ctxt mode vt v >>=? fun (value, ctxt) -> + return (Prim (-1, D_Elt, [ key ; value ], []) :: l, ctxt)) + ([], ctxt) + (Diff.OPS.fold + (fun k v acc -> match v with | None -> acc | Some v -> (k, v) :: acc) + (fst Diff.boxed) []) >>=? fun (items, ctxt) -> + return (Micheline.Seq (-1, items), ctxt) + | Big_map_t (_kt, _kv, _), { id = Some id ; diff = (module Diff) ; _ } -> + if Compare.Int.(Diff.OPS.cardinal (fst Diff.boxed) = 0) then + return (Micheline.Int (-1, id), ctxt) + else + (* this can only be the result of an execution and the map + must have been flushed at this point *) + assert false | Lambda_t _, Lam (_, original_code) -> unparse_code ctxt mode (root original_code) @@ -3740,21 +3822,26 @@ let hash_data ctxt typ data = (* ---------------- Big map -------------------------------------------------*) -let big_map_mem ctxt contract key { diff ; key_type ; _ } = - match map_get key diff with - | None -> hash_data ctxt key_type key >>=? fun (hash, ctxt) -> - Alpha_context.Contract.Big_map.mem ctxt contract hash >>=? fun (ctxt, res) -> - return (res, ctxt) - | Some None -> return (false, ctxt) - | Some (Some _) -> return (true, ctxt) +let empty_big_map tk tv = + { id = None ; diff = empty_map tk ; key_type = ty_of_comparable_ty tk ; value_type = tv } -let big_map_get ctxt contract key { diff ; key_type ; value_type } = - match map_get key diff with - | Some x -> return (x, ctxt) - | None -> +let big_map_mem ctxt key { id ; diff ; key_type ; _ } = + match map_get key diff, id with + | None, None -> return (false, ctxt) + | None, Some id -> hash_data ctxt key_type key >>=? fun (hash, ctxt) -> + Alpha_context.Big_map.mem ctxt id hash >>=? fun (ctxt, res) -> + return (res, ctxt) + | Some None, _ -> return (false, ctxt) + | Some (Some _), _ -> return (true, ctxt) + +let big_map_get ctxt key { id ; diff ; key_type ; value_type } = + match map_get key diff, id with + | Some x, _ -> return (x, ctxt) + | None, None -> return (None, ctxt) + | None, Some id -> hash_data ctxt key_type key >>=? fun (hash, ctxt) -> - Alpha_context.Contract.Big_map.get_opt - ctxt contract hash >>=? begin function + Alpha_context.Big_map.get_opt + ctxt id hash >>=? begin function | (ctxt, None) -> return (None, ctxt) | (ctxt, Some value) -> parse_data ctxt ~legacy:true value_type @@ -3765,8 +3852,37 @@ let big_map_get ctxt contract key { diff ; key_type ; value_type } = let big_map_update key value ({ diff ; _ } as map) = { map with diff = map_set key value diff } -let diff_of_big_map ctxt mode (Ex_bm { key_type ; value_type ; diff }) = +module Ids = Set.Make (Compare.Z) + +type big_map_ids = Ids.t + +let no_big_map_id = Ids.empty + +let diff_of_big_map ctxt fresh mode ~ids { id ; key_type ; value_type ; diff } = Lwt.return (Gas.consume ctxt (Michelson_v1_gas.Cost_of.Legacy.map_to_list diff)) >>=? fun ctxt -> + begin match id with + | Some id -> + if Ids.mem id ids then + fresh ctxt >>=? fun (ctxt, duplicate) -> + return (ctxt, [ Contract.Copy (id, duplicate) ], duplicate) + else + (* The first occurence encountered of a big_map reuses the + ID. This way, the payer is only charged for the diff. + For this to work, this diff has to be put at the end of + the global diff, otherwise the duplicates will use the + updated version as a base. This is true because we add + this diff first in the accumulator of + `extract_big_map_updates`, and this accumulator is not + reversed before being flattened. *) + return (ctxt, [], id) + | None -> + fresh ctxt >>=? fun (ctxt, id) -> + unparse_ty ctxt key_type >>=? fun (kt, ctxt) -> + unparse_ty ctxt value_type >>=? fun (kv, ctxt) -> + return (ctxt, [ Contract.Alloc { big_map = id ; + key_type = Micheline.strip_locations kt ; + value_type = Micheline.strip_locations kv } ], id) + end >>=? fun (ctxt, init, big_map) -> let pairs = map_fold (fun key value acc -> (key, value) :: acc) diff [] in fold_left_s (fun (acc, ctxt) (key, value) -> @@ -3783,18 +3899,146 @@ let diff_of_big_map ctxt mode (Ex_bm { key_type ; value_type ; diff }) = return (Some (Micheline.strip_locations node), ctxt) end end >>=? fun (diff_value, ctxt) -> - let diff_item = Contract.{ diff_key ; diff_key_hash ; diff_value } in + let diff_item = Contract.Update { big_map ; diff_key ; diff_key_hash ; diff_value } in return (diff_item :: acc, ctxt)) - ([], ctxt) pairs - -(* Get the big map from a contract's storage if one exists *) -let extract_big_map : type a. a ty -> a -> ex_big_map option = fun ty x -> - match (ty, x) with - | Pair_t ((Big_map_t (_, _, _), _, _), _, _), (map, _) -> Some (Ex_bm map) - | _, _ -> None - -let big_map_initialization ctxt mode (Ex_script { storage ; storage_type; _ }) = - match extract_big_map storage_type storage with - | None -> return (None, ctxt) - | Some bm -> - diff_of_big_map ctxt mode bm >>=? fun (bm, ctxt) -> return (Some bm, ctxt) + ([], ctxt) pairs >>=? fun (diff, ctxt) -> + return (init @ diff, big_map, ctxt) + +let rec extract_big_map_updates + : type a. context -> (context -> (context * Big_map.id) tzresult Lwt.t) -> + unparsing_mode -> Ids.t -> Contract.big_map_diff list -> a ty -> a -> + (context * a * Ids.t * Contract.big_map_diff list) tzresult Lwt.t + = fun ctxt fresh mode ids acc ty x -> + match (ty, x) with + | Big_map_t (_, _, _), map -> + diff_of_big_map ctxt fresh mode ids map >>=? fun (diff, id, ctxt) -> + let (module Map) = map.diff in + let map = { map with diff = empty_map Map.key_ty ; id = Some id } in + return (ctxt, map, Ids.add id ids, diff :: acc) + | Pair_t ((tyl, _, _), (tyr, _, _), _, true), (xl, xr) -> + Lwt.return (Gas.consume ctxt Typecheck_costs.cycle) >>=? fun ctxt -> + extract_big_map_updates ctxt fresh mode ids acc tyl xl >>=? fun (ctxt, xl, ids, acc) -> + extract_big_map_updates ctxt fresh mode ids acc tyr xr >>=? fun (ctxt, xr, ids, acc) -> + return (ctxt, (xl, xr), ids, acc) + | Union_t ((ty, _), (_, _), _, true), L x -> + Lwt.return (Gas.consume ctxt Typecheck_costs.cycle) >>=? fun ctxt -> + extract_big_map_updates ctxt fresh mode ids acc ty x >>=? fun (ctxt, x, ids, acc) -> + return (ctxt, L x, ids, acc) + | Union_t ((_, _), (ty, _), _, true), R x -> + Lwt.return (Gas.consume ctxt Typecheck_costs.cycle) >>=? fun ctxt -> + extract_big_map_updates ctxt fresh mode ids acc ty x >>=? fun (ctxt, x, ids, acc) -> + return (ctxt, R x, ids, acc) + | Option_t (ty, _, true), Some x -> + Lwt.return (Gas.consume ctxt Typecheck_costs.cycle) >>=? fun ctxt -> + extract_big_map_updates ctxt fresh mode ids acc ty x >>=? fun (ctxt, x, ids, acc) -> + return (ctxt, Some x, ids, acc) + | List_t (ty, _, true), l -> + fold_left_s + (fun (ctxt, l, ids, acc) x -> + Lwt.return (Gas.consume ctxt Typecheck_costs.cycle) >>=? fun ctxt -> + extract_big_map_updates ctxt fresh mode ids acc ty x >>=? fun (ctxt, x, ids, acc) -> + return (ctxt, x :: l, ids, acc)) + (ctxt, [], ids, acc) l >>=? fun (ctxt, l, ids, acc) -> + return (ctxt, List.rev l, ids, acc) + | Map_t (_, ty, _, true), ((module M) as m) -> + Lwt.return (Gas.consume ctxt (Michelson_v1_gas.Cost_of.Legacy.map_to_list m)) >>=? fun ctxt -> + fold_left_s + (fun (ctxt, m, ids, acc) (k, x) -> + Lwt.return (Gas.consume ctxt Typecheck_costs.cycle) >>=? fun ctxt -> + extract_big_map_updates ctxt fresh mode ids acc ty x >>=? fun (ctxt, x, ids, acc) -> + return (ctxt, M.OPS.add k x m, ids, acc)) + (ctxt, M.OPS.empty, ids, acc) (M.OPS.bindings (fst M.boxed)) >>=? fun (ctxt, m, ids, acc) -> + let module M = struct + module OPS = M.OPS + type key = M.key + type value = M.value + let key_ty = M.key_ty + let boxed = m, (snd M.boxed) + end in + return (ctxt, (module M : Boxed_map with type key = M.key and type value = M.value), ids, acc) + | Option_t (_, _, true), None -> return (ctxt, None, ids, acc) + | List_t (_, _, false), v -> return (ctxt, v, ids, acc) + | Map_t (_, _, _, false), v -> return (ctxt, v, ids, acc) + | Option_t (_, _, false), None -> return (ctxt, None, ids, acc) + | Pair_t (_, _, _, false), v -> return (ctxt, v, ids, acc) + | Union_t (_, _, _, false), v -> return (ctxt, v, ids, acc) + | Option_t (_, _, false), v -> return (ctxt, v, ids, acc) + | Chain_id_t _, v -> return (ctxt, v, ids, acc) + | Set_t (_, _), v -> return (ctxt, v, ids, acc) + | Unit_t _, v -> return (ctxt, v, ids, acc) + | Int_t _, v -> return (ctxt, v, ids, acc) + | Nat_t _, v -> return (ctxt, v, ids, acc) + | Signature_t _, v -> return (ctxt, v, ids, acc) + | String_t _, v -> return (ctxt, v, ids, acc) + | Bytes_t _, v -> return (ctxt, v, ids, acc) + | Mutez_t _, v -> return (ctxt, v, ids, acc) + | Key_hash_t _, v -> return (ctxt, v, ids, acc) + | Key_t _, v -> return (ctxt, v, ids, acc) + | Timestamp_t _, v -> return (ctxt, v, ids, acc) + | Address_t _, v -> return (ctxt, v, ids, acc) + | Bool_t _, v -> return (ctxt, v, ids, acc) + | Lambda_t (_, _, _), v -> return (ctxt, v, ids, acc) + | Contract_t (_, _), v -> return (ctxt, v, ids, acc) + | Operation_t _, _ -> assert false (* called only on parameters and storage, which cannot contain operations *) + +let collect_big_maps ctxt ty x = + let rec collect + : type a. context -> a ty -> a -> Ids.t -> (Ids.t * context) tzresult + = fun ctxt ty x acc -> + match (ty, x) with + | Big_map_t (_, _, _), { id = Some id } -> + Gas.consume ctxt Typecheck_costs.cycle >>? fun ctxt -> + ok (Ids.add id acc, ctxt) + | Pair_t ((tyl, _, _), (tyr, _, _), _, true), (xl, xr) -> + collect ctxt tyl xl acc >>? fun (acc, ctxt) -> + collect ctxt tyr xr acc + | Union_t ((ty, _), (_, _), _, true), L x -> + collect ctxt ty x acc + | Union_t ((_, _), (ty, _), _, true), R x -> + collect ctxt ty x acc + | Option_t (ty, _, true), Some x -> + collect ctxt ty x acc + | List_t (ty, _, true), l -> + List.fold_left (fun acc x -> acc >>? fun (acc, ctxt) -> collect ctxt ty x acc) (ok (acc, ctxt)) l + | Map_t (_, ty, _, true), m -> + map_fold (fun _ v acc -> acc >>? fun (acc, ctxt) -> collect ctxt ty v acc) m (ok (acc, ctxt)) + | List_t (_, _, false), _ -> ok (acc, ctxt) + | Map_t (_, _, _, false), _ -> ok (acc, ctxt) + | Big_map_t (_, _, _), { id = None } -> ok (acc, ctxt) + | Option_t (_, _, true), None -> ok (acc, ctxt) + | Option_t (_, _, false), _ -> ok (acc, ctxt) + | Union_t (_, _, _, false), _ -> ok (acc, ctxt) + | Pair_t (_, _, _, false), _ -> ok (acc, ctxt) + | Chain_id_t _, _ -> ok (acc, ctxt) + | Set_t (_, _), _ -> ok (acc, ctxt) + | Unit_t _, _ -> ok (acc, ctxt) + | Int_t _, _ -> ok (acc, ctxt) + | Nat_t _, _ -> ok (acc, ctxt) + | Signature_t _, _ -> ok (acc, ctxt) + | String_t _, _ -> ok (acc, ctxt) + | Bytes_t _, _ -> ok (acc, ctxt) + | Mutez_t _, _ -> ok (acc, ctxt) + | Key_hash_t _, _ -> ok (acc, ctxt) + | Key_t _, _ -> ok (acc, ctxt) + | Timestamp_t _, _ -> ok (acc, ctxt) + | Address_t _, _ -> ok (acc, ctxt) + | Bool_t _, _ -> ok (acc, ctxt) + | Lambda_t (_, _, _), _ -> ok (acc, ctxt) + | Contract_t (_, _), _ -> ok (acc, ctxt) + | Operation_t _, _ -> assert false (* called only on parameters and storage, which cannot contain operations *) in + Lwt.return (collect ctxt ty x no_big_map_id) + +let extract_big_map_diff ctxt mode + ~temporary ~to_duplicate ~to_update + ty v = + let to_duplicate = Ids.diff to_duplicate to_update in + let fresh = if temporary then (fun c -> return (Big_map.fresh_temporary c)) else Big_map.fresh in + extract_big_map_updates ctxt fresh mode to_duplicate [] ty v >>=? fun (ctxt, v, alive, diffs) -> + let diffs = if temporary then diffs else + let dead = Ids.diff to_update alive in + Ids.fold (fun id acc -> Contract.Clear id :: acc) dead [] :: diffs in + match diffs with + | [] -> return (v, None, ctxt) + | diffs -> return (v, Some (List.flatten diffs (* do not reverse *)), ctxt) + +let list_of_big_map_ids ids = Ids.elements ids diff --git a/src/proto_alpha/lib_protocol/script_ir_translator.mli b/src/proto_alpha/lib_protocol/script_ir_translator.mli index 7ff777b0589b..432b0cfce33a 100644 --- a/src/proto_alpha/lib_protocol/script_ir_translator.mli +++ b/src/proto_alpha/lib_protocol/script_ir_translator.mli @@ -59,13 +59,13 @@ val map_get : 'key -> ('key, 'value) Script_typed_ir.map -> 'value option val map_key_ty : ('a, 'b) Script_typed_ir.map -> 'a Script_typed_ir.comparable_ty val map_size : ('a, 'b) Script_typed_ir.map -> Script_int.n Script_int.num +val empty_big_map : 'a Script_typed_ir.comparable_ty -> 'b Script_typed_ir.ty -> ('a, 'b) Script_typed_ir.big_map val big_map_mem : - context -> Contract.t -> 'key -> + context -> 'key -> ('key, 'value) Script_typed_ir.big_map -> (bool * context) tzresult Lwt.t val big_map_get : - context -> - Contract.t -> 'key -> + context -> 'key -> ('key, 'value) Script_typed_ir.big_map -> ('value option * context) tzresult Lwt.t val big_map_update : @@ -148,13 +148,19 @@ val list_entrypoints : val pack_data : context -> 'a Script_typed_ir.ty -> 'a -> (MBytes.t * context) tzresult Lwt.t val hash_data : context -> 'a Script_typed_ir.ty -> 'a -> (Script_expr_hash.t * context) tzresult Lwt.t -val extract_big_map : - 'a Script_typed_ir.ty -> 'a -> Script_typed_ir.ex_big_map option +type big_map_ids + +val no_big_map_id : big_map_ids -val diff_of_big_map : - context -> unparsing_mode -> Script_typed_ir.ex_big_map -> - (Contract.big_map_diff * context) tzresult Lwt.t +val collect_big_maps : + context -> 'a Script_typed_ir.ty -> 'a -> (big_map_ids * context) tzresult Lwt.t -val big_map_initialization : - context -> unparsing_mode -> ex_script -> - (Contract.big_map_diff option * context) tzresult Lwt.t +val list_of_big_map_ids : big_map_ids -> Z.t list + +val extract_big_map_diff : + context -> unparsing_mode -> + temporary: bool -> + to_duplicate: big_map_ids -> + to_update: big_map_ids -> + 'a Script_typed_ir.ty -> 'a -> + ('a * Contract.big_map_diff option * context) tzresult Lwt.t diff --git a/src/proto_alpha/lib_protocol/script_repr.ml b/src/proto_alpha/lib_protocol/script_repr.ml index de41aeac6aa5..81effec8f016 100644 --- a/src/proto_alpha/lib_protocol/script_repr.ml +++ b/src/proto_alpha/lib_protocol/script_repr.ml @@ -208,3 +208,12 @@ let is_unit_parameter = ~fun_value:(fun v -> match Micheline.root v with Prim (_, Michelson_v1_primitives.D_Unit, [], []) -> true | _ -> false) ~fun_bytes:(fun b -> MBytes.(=) b unit_bytes) ~fun_combine:(fun res _ -> res) + +let rec strip_annotations node = + let open Micheline in + match node with + | Int (_, _) | String (_, _) | Bytes (_, _) as leaf -> leaf + | Prim (loc, name, args, _) -> + Prim (loc, name, List.map strip_annotations args, []) + | Seq (loc, args) -> + Seq (loc, List.map strip_annotations args) diff --git a/src/proto_alpha/lib_protocol/script_repr.mli b/src/proto_alpha/lib_protocol/script_repr.mli index f704d7b2231b..d44e137e4197 100644 --- a/src/proto_alpha/lib_protocol/script_repr.mli +++ b/src/proto_alpha/lib_protocol/script_repr.mli @@ -73,3 +73,5 @@ val minimal_deserialize_cost : lazy_expr -> Gas_limit_repr.cost val unit_parameter : lazy_expr val is_unit_parameter : lazy_expr -> bool + +val strip_annotations : node -> node diff --git a/src/proto_alpha/lib_protocol/script_tc_errors.ml b/src/proto_alpha/lib_protocol/script_tc_errors.ml index db928d3c483f..3d0e0ea8572c 100644 --- a/src/proto_alpha/lib_protocol/script_tc_errors.ml +++ b/src/proto_alpha/lib_protocol/script_tc_errors.ml @@ -74,6 +74,7 @@ type error += Type_too_large : Script.location * int * int -> error type error += Invalid_constant : Script.location * Script.expr * Script.expr -> error type error += Invalid_syntactic_constant : Script.location * Script.expr * string -> error type error += Invalid_contract of Script.location * Contract.t +type error += Invalid_big_map of Script.location * Big_map.id type error += Comparable_type_expected : Script.location * Script.expr -> error type error += Inconsistent_types : Script.expr * Script.expr -> error type error += Unordered_map_keys of Script.location * Script.expr diff --git a/src/proto_alpha/lib_protocol/script_tc_errors_registration.ml b/src/proto_alpha/lib_protocol/script_tc_errors_registration.ml index 89391cdf2e7e..e8a33c5fe929 100644 --- a/src/proto_alpha/lib_protocol/script_tc_errors_registration.ml +++ b/src/proto_alpha/lib_protocol/script_tc_errors_registration.ml @@ -170,8 +170,9 @@ let () = ~id:"michelson_v1.unexpected_bigmap" ~title: "Big map in unauthorized position (type error)" ~description: - "When parsing script, a big_map type was found somewhere else \ - than in the left component of the toplevel storage pair." + "When parsing script, a big_map type was found in a position \ + where it could end up stored inside a big_map, which is \ + forbidden for now." (obj1 (req "loc" location_encoding)) (function Unexpected_big_map loc -> Some loc | _ -> None) @@ -541,6 +542,21 @@ let () = | _ -> None) (fun (loc, c) -> Invalid_contract (loc, c)) ; + (* Invalid big_map *) + register_error_kind + `Permanent + ~id:"michelson_v1.invalid_big_map" + ~title: "Invalid big_map" + ~description: + "A script or data expression references a big_map that does not \ + exist or assumes a wrong type for an existing big_map." + (located (obj1 (req "big_map" z))) + (function + | Invalid_big_map (loc, c) -> + Some (loc, c) + | _ -> None) + (fun (loc, c) -> + Invalid_big_map (loc, c)) ; (* Comparable type expected *) register_error_kind `Permanent diff --git a/src/proto_alpha/lib_protocol/script_typed_ir.ml b/src/proto_alpha/lib_protocol/script_typed_ir.ml index aabb68ac2903..5c64a122edd4 100644 --- a/src/proto_alpha/lib_protocol/script_typed_ir.ml +++ b/src/proto_alpha/lib_protocol/script_typed_ir.ml @@ -80,8 +80,10 @@ end type ('key, 'value) map = (module Boxed_map with type key = 'key and type value = 'value) +type operation = packed_internal_operation * Contract.big_map_diff option + type ('arg, 'storage) script = - { code : (('arg, 'storage) pair, (packed_internal_operation list, 'storage) pair) lambda ; + { code : (('arg, 'storage) pair, (operation list, 'storage) pair) lambda ; arg_type : 'arg ty ; storage : 'storage ; storage_type : 'storage ty ; @@ -110,23 +112,29 @@ and 'ty ty = | Pair_t : ('a ty * field_annot option * var_annot option) * ('b ty * field_annot option * var_annot option) * - type_annot option -> ('a, 'b) pair ty - | Union_t : ('a ty * field_annot option) * ('b ty * field_annot option) * type_annot option -> ('a, 'b) union ty + type_annot option * + bool -> ('a, 'b) pair ty + | Union_t : + ('a ty * field_annot option) * + ('b ty * field_annot option) * + type_annot option * + bool -> ('a, 'b) union ty | Lambda_t : 'arg ty * 'ret ty * type_annot option -> ('arg, 'ret) lambda ty - | Option_t : 'v ty * type_annot option -> 'v option ty - | List_t : 'v ty * type_annot option -> 'v list ty + | Option_t : 'v ty * type_annot option * bool -> 'v option ty + | List_t : 'v ty * type_annot option * bool -> 'v list ty | Set_t : 'v comparable_ty * type_annot option -> 'v set ty - | Map_t : 'k comparable_ty * 'v ty * type_annot option -> ('k, 'v) map ty + | Map_t : 'k comparable_ty * 'v ty * type_annot option * bool -> ('k, 'v) map ty | Big_map_t : 'k comparable_ty * 'v ty * type_annot option -> ('k, 'v) big_map ty | Contract_t : 'arg ty * type_annot option -> 'arg typed_contract ty - | Operation_t : type_annot option -> packed_internal_operation ty + | Operation_t : type_annot option -> operation ty | Chain_id_t : type_annot option -> Chain_id.t ty and 'ty stack_ty = | Item_t : 'ty ty * 'rest stack_ty * var_annot option -> ('ty * 'rest) stack_ty | Empty_t : end_of_stack stack_ty -and ('key, 'value) big_map = { diff : ('key, 'value option) map ; +and ('key, 'value) big_map = { id : Z.t option ; + diff : ('key, 'value option) map ; key_type : 'key ty ; value_type : 'value ty } @@ -209,6 +217,8 @@ and ('bef, 'aft) instr = ('a * ('v option * (('a, 'v) map * 'rest)), ('a, 'v) map * 'rest) instr | Map_size : (('a, 'b) map * 'rest, n num * 'rest) instr (* big maps *) + | Empty_big_map : 'a comparable_ty * 'v ty -> + ('rest, ('a, 'v) big_map * 'rest) instr | Big_map_mem : ('a * (('a, 'v) big_map * 'rest), bool * 'rest) instr | Big_map_get : @@ -362,19 +372,19 @@ and ('bef, 'aft) instr = | Contract : 'p ty * string -> (address * 'rest, 'p typed_contract option * 'rest) instr | Transfer_tokens : - ('arg * (Tez.t * ('arg typed_contract * 'rest)), packed_internal_operation * 'rest) instr + ('arg * (Tez.t * ('arg typed_contract * 'rest)), operation * 'rest) instr | Create_account : (public_key_hash * (public_key_hash option * (bool * (Tez.t * 'rest))), - packed_internal_operation * (address * 'rest)) instr + operation * (address * 'rest)) instr | Implicit_account : (public_key_hash * 'rest, unit typed_contract * 'rest) instr - | Create_contract : 'g ty * 'p ty * ('p * 'g, packed_internal_operation list * 'g) lambda * string option -> + | Create_contract : 'g ty * 'p ty * ('p * 'g, operation list * 'g) lambda * string option -> (public_key_hash * (public_key_hash option * (bool * (bool * (Tez.t * ('g * 'rest))))), - packed_internal_operation * (address * 'rest)) instr - | Create_contract_2 : 'g ty * 'p ty * ('p * 'g, packed_internal_operation list * 'g) lambda * string option -> - (public_key_hash option * (Tez.t * ('g * 'rest)), packed_internal_operation * (address * 'rest)) instr + operation * (address * 'rest)) instr + | Create_contract_2 : 'g ty * 'p ty * ('p * 'g, operation list * 'g) lambda * string option -> + (public_key_hash option * (Tez.t * ('g * 'rest)), operation * (address * 'rest)) instr | Set_delegate : - (public_key_hash option * 'rest, packed_internal_operation * 'rest) instr + (public_key_hash option * 'rest, operation * 'rest) instr | Now : ('rest, Script_timestamp.t * 'rest) instr | Balance : diff --git a/src/proto_alpha/lib_protocol/storage.ml b/src/proto_alpha/lib_protocol/storage.ml index dd2af7e7a4ed..5d2ec65c9784 100644 --- a/src/proto_alpha/lib_protocol/storage.ml +++ b/src/proto_alpha/lib_protocol/storage.ml @@ -36,7 +36,7 @@ module Int32 = struct end module Z = struct - type t = Z.t + include Z let encoding = Data_encoding.z end @@ -252,15 +252,146 @@ module Contract = struct Make_carbonated_map_expr (struct let name = ["storage"] end) - type bigmap_key = Raw_context.t * Contract_repr.t + module Paid_storage_space = + Indexed_context.Make_map + (struct let name = ["paid_bytes"] end) + (Z) + + module Used_storage_space = + Indexed_context.Make_map + (struct let name = ["used_bytes"] end) + (Z) + + module Roll_list = + Indexed_context.Make_map + (struct let name = ["roll_list"] end) + (Roll_repr) + + module Change = + Indexed_context.Make_map + (struct let name = ["change"] end) + (Tez_repr) + +end + +(** Big maps handling *) + +module Big_map = struct + module Raw_context = + Make_subcontext(Registered)(Raw_context)(struct let name = ["big_maps"] end) + + module Next = struct + include + Make_single_data_storage(Registered) + (Raw_context) + (struct let name = ["next"] end) + (Z) + let incr ctxt = + get ctxt >>=? fun i -> + set ctxt (Z.succ i) >>=? fun ctxt -> + return (ctxt, i) + let init ctxt = init ctxt Z.zero + end + + module Index = struct + type t = Z.t + + let rpc_arg = + let construct = Z.to_string in + let destruct hash = + match Z.of_string hash with + | exception _ -> Error "Cannot parse big map id" + | id -> Ok id in + RPC_arg.make + ~descr: "A big map identifier" + ~name: "big_map_id" + ~construct + ~destruct + () + + let encoding = + Data_encoding.def "big_map_id" + ~title:"Big map identifier" + ~description: "A big map identifier" + Z.encoding + let compare = Compare.Z.compare + + let path_length = 7 + + let to_path c l = + let raw_key = Data_encoding.Binary.to_bytes_exn encoding c in + let `Hex index_key = MBytes.to_hex (Raw_hashes.blake2b raw_key) in + String.sub index_key 0 2 :: + String.sub index_key 2 2 :: + String.sub index_key 4 2 :: + String.sub index_key 6 2 :: + String.sub index_key 8 2 :: + String.sub index_key 10 2 :: + Z.to_string c :: + l + + let of_path = function + | [] | [_] | [_;_] | [_;_;_] | [_;_;_;_] | [_;_;_;_;_] | [_;_;_;_;_;_] + | _::_::_::_::_::_::_::_::_ -> + None + | [ index1 ; index2 ; index3 ; index4 ; index5 ; index6 ; key ] -> + let c = Z.of_string key in + let raw_key = Data_encoding.Binary.to_bytes_exn encoding c in + let `Hex index_key = MBytes.to_hex (Raw_hashes.blake2b raw_key) in + assert Compare.String.(String.sub index_key 0 2 = index1) ; + assert Compare.String.(String.sub index_key 2 2 = index2) ; + assert Compare.String.(String.sub index_key 4 2 = index3) ; + assert Compare.String.(String.sub index_key 6 2 = index4) ; + assert Compare.String.(String.sub index_key 8 2 = index5) ; + assert Compare.String.(String.sub index_key 10 2 = index6) ; + Some c + end + + module Indexed_context = + Make_indexed_subcontext + (Make_subcontext(Registered)(Raw_context)(struct let name = ["index"] end)) + (Make_index(Index)) + + let rpc_arg = Index.rpc_arg + + let fold = Indexed_context.fold_keys + let list = Indexed_context.keys + + let remove_rec ctxt n = + Indexed_context.remove_rec ctxt n + + let copy ctxt ~from ~to_ = + Indexed_context.copy ctxt ~from ~to_ + + type key = Raw_context.t * Z.t + + module Total_bytes = + Indexed_context.Make_map + (struct let name = ["total_bytes"] end) + (Z) + + module Key_type = + Indexed_context.Make_map + (struct let name = ["key_type"] end) + (struct + type t = Script_repr.expr + let encoding = Script_repr.expr_encoding + end) + + module Value_type = + Indexed_context.Make_map + (struct let name = ["value_type"] end) + (struct + type t = Script_repr.expr + let encoding = Script_repr.expr_encoding + end) + + module Contents = struct - (* Consume gas for serilization and deserialization of expr in this - module *) - module Big_map = struct module I = Storage_functors.Make_indexed_carbonated_data_storage (Make_subcontext(Registered) (Indexed_context.Raw_context) - (struct let name = ["big_map"] end)) + (struct let name = ["contents"] end)) (Make_index(Script_expr_hash)) (struct type t = Script_repr.expr @@ -297,26 +428,6 @@ module Contract = struct (ctxt, value_opt) end - module Paid_storage_space = - Indexed_context.Make_map - (struct let name = ["paid_bytes"] end) - (Z) - - module Used_storage_space = - Indexed_context.Make_map - (struct let name = ["used_bytes"] end) - (Z) - - module Roll_list = - Indexed_context.Make_map - (struct let name = ["roll_list"] end) - (Roll_repr) - - module Change = - Indexed_context.Make_map - (struct let name = ["change"] end) - (Tez_repr) - end module Delegates = diff --git a/src/proto_alpha/lib_protocol/storage.mli b/src/proto_alpha/lib_protocol/storage.mli index 308743f96888..c4a4afaca136 100644 --- a/src/proto_alpha/lib_protocol/storage.mli +++ b/src/proto_alpha/lib_protocol/storage.mli @@ -237,12 +237,48 @@ module Contract : sig and type value = Z.t and type t := Raw_context.t - type bigmap_key = Raw_context.t * Contract_repr.t +end + +module Big_map : sig + + module Next : sig + val incr : Raw_context.t -> (Raw_context.t * Z.t) tzresult Lwt.t + val init : Raw_context.t -> Raw_context.t tzresult Lwt.t + end + + (** The domain of alive big maps *) + val fold : + Raw_context.t -> + init:'a -> f:(Z.t -> 'a -> 'a Lwt.t) -> 'a Lwt.t + val list : Raw_context.t -> Z.t list Lwt.t + + val remove_rec : Raw_context.t -> Z.t -> Raw_context.t Lwt.t + + val copy : Raw_context.t -> from:Z.t -> to_:Z.t -> Raw_context.t tzresult Lwt.t + + type key = Raw_context.t * Z.t - module Big_map : Non_iterable_indexed_carbonated_data_storage + val rpc_arg : Z.t RPC_arg.t + + module Contents : Non_iterable_indexed_carbonated_data_storage with type key = Script_expr_hash.t and type value = Script_repr.expr - and type t := bigmap_key + and type t := key + + module Total_bytes : Indexed_data_storage + with type key = Z.t + and type value = Z.t + and type t := Raw_context.t + + module Key_type : Indexed_data_storage + with type key = Z.t + and type value = Script_repr.expr + and type t := Raw_context.t + + module Value_type : Indexed_data_storage + with type key = Z.t + and type value = Script_repr.expr + and type t := Raw_context.t end diff --git a/src/proto_alpha/lib_protocol/storage_functors.ml b/src/proto_alpha/lib_protocol/storage_functors.ml index 319fd0a7821b..54c3dbbdb24c 100644 --- a/src/proto_alpha/lib_protocol/storage_functors.ml +++ b/src/proto_alpha/lib_protocol/storage_functors.ml @@ -336,76 +336,76 @@ module Make_indexed_carbonated_data_storage type key = I.t type value = V.t include Make_encoder(V) - let name i = + let data_key i = I.to_path i [data_name] - let len_name i = + let len_key i = I.to_path i [len_name] let consume_mem_gas c = Lwt.return (C.consume_gas c (Gas_limit_repr.read_bytes_cost Z.zero)) let existing_size c i = - C.get_option c (len_name i) >>= function - | None -> return 0 - | Some len -> decode_len_value (len_name i) len + C.get_option c (len_key i) >>= function + | None -> return (0, false) + | Some len -> decode_len_value (len_key i) len >>=? fun len -> return (len, true) let consume_read_gas get c i = - get c (len_name i) >>=? fun len -> - decode_len_value (len_name i) len >>=? fun len -> + get c (len_key i) >>=? fun len -> + decode_len_value (len_key i) len >>=? fun len -> Lwt.return (C.consume_gas c (Gas_limit_repr.read_bytes_cost (Z.of_int len))) let consume_serialize_write_gas set c i v = let bytes = to_bytes v in let len = MBytes.length bytes in Lwt.return (C.consume_gas c (Gas_limit_repr.alloc_mbytes_cost len)) >>=? fun c -> Lwt.return (C.consume_gas c (Gas_limit_repr.write_bytes_cost (Z.of_int len))) >>=? fun c -> - set c (len_name i) (encode_len_value bytes) >>=? fun c -> + set c (len_key i) (encode_len_value bytes) >>=? fun c -> return (c, bytes) let consume_remove_gas del c i = Lwt.return (C.consume_gas c (Gas_limit_repr.write_bytes_cost Z.zero)) >>=? fun c -> - del c (len_name i) + del c (len_key i) let mem s i = consume_mem_gas s >>=? fun s -> - C.mem s (name i) >>= fun exists -> + C.mem s (data_key i) >>= fun exists -> return (C.project s, exists) let get s i = consume_read_gas C.get s i >>=? fun s -> - C.get s (name i) >>=? fun b -> - let key = C.absolute_key s (name i) in + C.get s (data_key i) >>=? fun b -> + let key = C.absolute_key s (data_key i) in Lwt.return (of_bytes ~key b) >>=? fun v -> return (C.project s, v) let get_option s i = consume_mem_gas s >>=? fun s -> - C.mem s (name i) >>= fun exists -> + C.mem s (data_key i) >>= fun exists -> if exists then get s i >>=? fun (s, v) -> return (s, Some v) else return (C.project s, None) let set s i v = - existing_size s i >>=? fun prev_size -> + existing_size s i >>=? fun (prev_size, _) -> consume_serialize_write_gas C.set s i v >>=? fun (s, bytes) -> - C.set s (name i) bytes >>=? fun t -> + C.set s (data_key i) bytes >>=? fun t -> let size_diff = MBytes.length bytes - prev_size in return (C.project t, size_diff) let init s i v = consume_serialize_write_gas C.init s i v >>=? fun (s, bytes) -> - C.init s (name i) bytes >>=? fun t -> + C.init s (data_key i) bytes >>=? fun t -> let size = MBytes.length bytes in return (C.project t, size) let init_set s i v = let init_set s i v = C.init_set s i v >>= return in - existing_size s i >>=? fun prev_size -> + existing_size s i >>=? fun (prev_size, existed) -> consume_serialize_write_gas init_set s i v >>=? fun (s, bytes) -> - init_set s (name i) bytes >>=? fun t -> + init_set s (data_key i) bytes >>=? fun t -> let size_diff = MBytes.length bytes - prev_size in - return (C.project t, size_diff) + return (C.project t, size_diff, existed) let remove s i = let remove s i = C.remove s i >>= return in - existing_size s i >>=? fun prev_size -> + existing_size s i >>=? fun (prev_size, existed) -> consume_remove_gas remove s i >>=? fun s -> - remove s (name i) >>=? fun t -> - return (C.project t, prev_size) + remove s (data_key i) >>=? fun t -> + return (C.project t, prev_size, existed) let delete s i = - existing_size s i >>=? fun prev_size -> + existing_size s i >>=? fun (prev_size, _) -> consume_remove_gas C.delete s i >>=? fun s -> - C.delete s (name i) >>=? fun t -> + C.delete s (data_key i) >>=? fun t -> return (C.project t, prev_size) let set_option s i v = match v with @@ -414,14 +414,21 @@ module Make_indexed_carbonated_data_storage let fold_keys_unaccounted s ~init ~f = let rec dig i path acc = - if Compare.Int.(i <= 1) then + if Compare.Int.(i <= 0) then C.fold s path ~init:acc ~f:begin fun k acc -> match k with | `Dir _ -> Lwt.return acc | `Key file -> - match I.of_path file with - | None -> assert false - | Some path -> f path acc + match List.rev file with + | last :: _ when Compare.String.(last = len_name) -> + Lwt.return acc + | last :: rest when Compare.String.(last = data_name) -> + let file = List.rev rest in + begin match I.of_path file with + | None -> assert false + | Some path -> f path acc + end + | _ -> assert false end else C.fold s path ~init:acc ~f:begin fun k acc -> @@ -429,7 +436,7 @@ module Make_indexed_carbonated_data_storage | `Dir k -> dig (i-1) k acc | `Key _ -> Lwt.return acc end in - dig I.path_length [data_name] init + dig I.path_length [] init let keys_unaccounted s = fold_keys_unaccounted s ~init:[] ~f:(fun p acc -> Lwt.return (p :: acc)) @@ -517,6 +524,12 @@ module Make_indexed_subcontext (C : Raw_context.T) (I : INDEX) let list t k = C.fold t k ~init:[] ~f:(fun k acc -> Lwt.return (k :: acc)) + let remove_rec t k = + C.remove_rec t (I.to_path k []) + + let copy t ~from ~to_ = + C.copy t ~from:(I.to_path from []) ~to_:(I.to_path to_ []) + let description = Storage_description.register_indexed_subcontext ~list:(fun c -> keys c >>= return) @@ -764,8 +777,8 @@ module Make_indexed_subcontext (C : Raw_context.T) (I : INDEX) Lwt.return (Raw_context.consume_gas c (Gas_limit_repr.read_bytes_cost Z.zero)) let existing_size c = Raw_context.get_option c len_name >>= function - | None -> return 0 - | Some len -> decode_len_value len_name len + | None -> return (0, false) + | Some len -> decode_len_value len_name len >>=? fun len -> return (len, true) let consume_read_gas get c = get c (len_name) >>=? fun len -> decode_len_value len_name len >>=? fun len -> @@ -799,7 +812,7 @@ module Make_indexed_subcontext (C : Raw_context.T) (I : INDEX) else return (C.project s, None) let set s i v = - existing_size (pack s i) >>=? fun prev_size -> + existing_size (pack s i) >>=? fun (prev_size, _) -> consume_write_gas Raw_context.set (pack s i) v >>=? fun (c, bytes) -> Raw_context.set c data_name bytes >>=? fun c -> let size_diff = MBytes.length bytes - prev_size in @@ -807,7 +820,7 @@ module Make_indexed_subcontext (C : Raw_context.T) (I : INDEX) let set_free s i v = let c = pack s i in let bytes = to_bytes v in - existing_size c >>=? fun prev_size -> + existing_size c >>=? fun (prev_size, _) -> Raw_context.set c len_name (encode_len_value bytes) >>=? fun c -> Raw_context.set c data_name bytes >>=? fun c -> let size_diff = MBytes.length bytes - prev_size in @@ -826,19 +839,19 @@ module Make_indexed_subcontext (C : Raw_context.T) (I : INDEX) return (Raw_context.project c, size) let init_set s i v = let init_set c k v = Raw_context.init_set c k v >>= return in - existing_size (pack s i) >>=? fun prev_size -> + existing_size (pack s i) >>=? fun (prev_size, existed) -> consume_write_gas init_set (pack s i) v >>=? fun (c, bytes) -> init_set c data_name bytes >>=? fun c -> let size_diff = MBytes.length bytes - prev_size in - return (Raw_context.project c, size_diff) + return (Raw_context.project c, size_diff, existed) let remove s i = let remove c k = Raw_context.remove c k >>= return in - existing_size (pack s i) >>=? fun prev_size -> + existing_size (pack s i) >>=? fun (prev_size, existed) -> consume_remove_gas remove (pack s i) >>=? fun c -> remove c data_name >>=? fun c -> - return (Raw_context.project c, prev_size) + return (Raw_context.project c, prev_size, existed) let delete s i = - existing_size (pack s i) >>=? fun prev_size -> + existing_size (pack s i) >>=? fun (prev_size, _) -> consume_remove_gas Raw_context.delete (pack s i) >>=? fun c -> Raw_context.delete c data_name >>=? fun c -> return (Raw_context.project c, prev_size) diff --git a/src/proto_alpha/lib_protocol/storage_sigs.ml b/src/proto_alpha/lib_protocol/storage_sigs.ml index f177072d2d43..a637af7066c5 100644 --- a/src/proto_alpha/lib_protocol/storage_sigs.ml +++ b/src/proto_alpha/lib_protocol/storage_sigs.ml @@ -118,16 +118,18 @@ module type Single_carbonated_data_storage = sig (** Allocates the data and initializes it with a value ; just updates it if the bucket exists. Consumes [Gas_repr.write_bytes_cost ]. - Returns the difference from the old (maybe 0) to the new size. *) - val init_set: context -> value -> (Raw_context.t * int) tzresult Lwt.t + Returns the difference from the old (maybe 0) to the new size, and a boolean + indicating if a value was already associated to this key. *) + val init_set: context -> value -> (Raw_context.t * int * bool) tzresult Lwt.t (** When the value is [Some v], allocates the data and initializes it with [v] ; just updates it if the bucket exists. When the valus is [None], delete the storage bucket when the value ; does nothing if the bucket does not exists. Consumes the same gas cost as either {!remove} or {!init_set}. - Returns the difference from the old (maybe 0) to the new size. *) - val set_option: context -> value option -> (Raw_context.t * int) tzresult Lwt.t + Returns the difference from the old (maybe 0) to the new size, and a boolean + indicating if a value was already associated to this key. *) + val set_option: context -> value option -> (Raw_context.t * int * bool) tzresult Lwt.t (** Delete the storage bucket ; returns a {!Storage_error Missing_key} if the bucket does not exists. @@ -138,8 +140,9 @@ module type Single_carbonated_data_storage = sig (** Removes the storage bucket and its contents ; does nothing if the bucket does not exists. Consumes [Gas_repr.write_bytes_cost Z.zero]. - Returns the freed size. *) - val remove: context -> (Raw_context.t * int) tzresult Lwt.t + Returns the freed size, and a boolean + indicating if a value was already associated to this key. *) + val remove: context -> (Raw_context.t * int * bool) tzresult Lwt.t end @@ -245,8 +248,9 @@ module type Non_iterable_indexed_carbonated_data_storage = sig with a value ; just updates it if the bucket exists. Consumes serialization cost. Consumes [Gas_repr.write_bytes_cost ]. - Returns the difference from the old (maybe 0) to the new size. *) - val init_set: context -> key -> value -> (Raw_context.t * int) tzresult Lwt.t + Returns the difference from the old (maybe 0) to the new size, and a boolean + indicating if a value was already associated to this key. *) + val init_set: context -> key -> value -> (Raw_context.t * int * bool) tzresult Lwt.t (** When the value is [Some v], allocates the data and initializes it with [v] ; just updates it if the bucket exists. When the @@ -254,8 +258,9 @@ module type Non_iterable_indexed_carbonated_data_storage = sig nothing if the bucket does not exists. Consumes serialization cost. Consumes the same gas cost as either {!remove} or {!init_set}. - Returns the difference from the old (maybe 0) to the new size. *) - val set_option: context -> key -> value option -> (Raw_context.t * int) tzresult Lwt.t + Returns the difference from the old (maybe 0) to the new size, and a boolean + indicating if a value was already associated to this key. *) + val set_option: context -> key -> value option -> (Raw_context.t * int * bool) tzresult Lwt.t (** Delete a storage bucket and its contents ; returns a {!Storage_error Missing_key} if the bucket does not exists. @@ -266,8 +271,9 @@ module type Non_iterable_indexed_carbonated_data_storage = sig (** Removes a storage bucket and its contents ; does nothing if the bucket does not exists. Consumes [Gas_repr.write_bytes_cost Z.zero]. - Returns the freed size. *) - val remove: context -> key -> (Raw_context.t * int) tzresult Lwt.t + Returns the freed size, and a boolean + indicating if a value was already associated to this key. *) + val remove: context -> key -> (Raw_context.t * int * bool) tzresult Lwt.t end @@ -389,7 +395,12 @@ module type Indexed_raw_context = sig val resolve: context -> string list -> key list Lwt.t + val remove_rec: context -> key -> context Lwt.t + + val copy: context -> from:key -> to_:key -> context tzresult Lwt.t + module Make_set (R : REGISTER) (N : NAME) + : Data_set_storage with type t = t and type elt = key -- GitLab From ea7ba3e3d5d32eadd4b9a07ce271c4a2e71ddf39 Mon Sep 17 00:00:00 2001 From: Benjamin Canou Date: Thu, 25 Jul 2019 14:01:09 +0200 Subject: [PATCH 058/252] Client: adapt to relaxed big_map restrictions This is not a patch for the protocol. It does not affect the hash, but is needed for the client to work. --- .../lib_client/client_proto_context.ml | 12 +++++- .../lib_client/client_proto_context.mli | 10 ++++- .../lib_client/client_proto_programs.ml | 32 ++++----------- .../lib_client/michelson_v1_error_reporter.ml | 2 +- .../lib_client/michelson_v1_printer.ml | 39 +++++++++++++++++++ .../lib_client/michelson_v1_printer.mli | 2 + .../lib_client/operation_result.ml | 23 ++++++++++- .../client_proto_context_commands.ml | 30 +++++++++++++- 8 files changed, 117 insertions(+), 33 deletions(-) diff --git a/src/proto_alpha/lib_client/client_proto_context.ml b/src/proto_alpha/lib_client/client_proto_context.ml index 1b56dfb4497b..15172b876d1f 100644 --- a/src/proto_alpha/lib_client/client_proto_context.ml +++ b/src/proto_alpha/lib_client/client_proto_context.ml @@ -36,8 +36,16 @@ let get_balance (rpc : #rpc_context) ~chain ~block contract = let get_storage (rpc : #rpc_context) ~chain ~block contract = Alpha_services.Contract.storage_opt rpc (chain, block) contract -let get_big_map_value (rpc : #rpc_context) ~chain ~block contract key = - Alpha_services.Contract.big_map_get_opt rpc (chain, block) contract key +let get_big_map_value (rpc : #rpc_context) ~chain ~block id key = + Alpha_services.Contract.big_map_get rpc (chain, block) id key + +let get_contract_big_map_value (rpc : #rpc_context) ~chain ~block contract key + = + Alpha_services.Contract.contract_big_map_get_opt + rpc + (chain, block) + contract + key let get_script (rpc : #rpc_context) ~chain ~block contract = Alpha_services.Contract.script_opt rpc (chain, block) contract diff --git a/src/proto_alpha/lib_client/client_proto_context.mli b/src/proto_alpha/lib_client/client_proto_context.mli index 5c6a2108c53a..22fa21272ca9 100644 --- a/src/proto_alpha/lib_client/client_proto_context.mli +++ b/src/proto_alpha/lib_client/client_proto_context.mli @@ -39,7 +39,7 @@ val get_storage : Contract.t -> Script.expr option tzresult Lwt.t -val get_big_map_value : +val get_contract_big_map_value : #Protocol_client_context.rpc_context -> chain:Shell_services.chain -> block:Shell_services.block -> @@ -47,6 +47,14 @@ val get_big_map_value : Script.expr * Script.expr -> Script.expr option tzresult Lwt.t +val get_big_map_value : + #Protocol_client_context.rpc_context -> + chain:Shell_services.chain -> + block:Shell_services.block -> + Z.t -> + Script_expr_hash.t -> + Script.expr tzresult Lwt.t + val get_script : #Protocol_client_context.rpc_context -> chain:Shell_services.chain -> diff --git a/src/proto_alpha/lib_client/client_proto_programs.ml b/src/proto_alpha/lib_client/client_proto_programs.ml index 21736f532a4e..f47fd7181577 100644 --- a/src/proto_alpha/lib_client/client_proto_programs.ml +++ b/src/proto_alpha/lib_client/client_proto_programs.ml @@ -54,27 +54,6 @@ let print_errors (cctxt : #Client_context.printer) errs ~show_source ~parsed = errs >>= fun () -> cctxt#error "error running script" >>= fun () -> return_unit -let print_big_map_diff ppf = function - | None -> - () - | Some diff -> - Format.fprintf - ppf - "@[map diff:@,%a@]@," - (Format.pp_print_list - ~pp_sep:Format.pp_print_space - (fun ppf Contract.{diff_key; diff_value; _} -> - Format.fprintf - ppf - "%s %a%a" - (match diff_value with None -> "-" | Some _ -> "+") - print_expr - diff_key - (fun ppf -> function None -> () | Some x -> - Format.fprintf ppf "-> %a" print_expr x) - diff_value)) - diff - let print_run_result (cctxt : #Client_context.printer) ~show_source ~parsed = function | Ok (storage, operations, maybe_diff) -> @@ -83,12 +62,13 @@ let print_run_result (cctxt : #Client_context.printer) ~show_source ~parsed = %a@]@,\ @[emitted operations@,\ %a@]@,\ - @[%a@]@]@." + @[big_map diff%a@]@]@." print_expr storage (Format.pp_print_list Operation_result.pp_internal_operation) operations - print_big_map_diff + (fun ppf -> function None -> () | Some diff -> + print_big_map_diff ppf diff) maybe_diff >>= fun () -> return_unit | Error errs -> @@ -102,13 +82,15 @@ let print_trace_result (cctxt : #Client_context.printer) ~show_source ~parsed = %a@]@,\ @[emitted operations@,\ %a@]@,\ - %a@[@[trace@,\ + @[big_map diff@,\ + %a@[trace@,\ %a@]@]@." print_expr storage (Format.pp_print_list Operation_result.pp_internal_operation) operations - print_big_map_diff + (fun ppf -> function None -> () | Some diff -> + print_big_map_diff ppf diff) maybe_big_map_diff print_execution_trace trace diff --git a/src/proto_alpha/lib_client/michelson_v1_error_reporter.ml b/src/proto_alpha/lib_client/michelson_v1_error_reporter.ml index 9260218fcf95..2c476aa68b1e 100644 --- a/src/proto_alpha/lib_client/michelson_v1_error_reporter.ml +++ b/src/proto_alpha/lib_client/michelson_v1_error_reporter.ml @@ -315,7 +315,7 @@ let report_errors ~details ~show_source ?parsed ppf errs = | Environment.Ecoproto_error (Unexpected_big_map loc) :: rest -> Format.fprintf ppf - "%abig_map type only allowed on the left of the toplevel storage pair" + "%abig_map type not allowed inside another big_map" print_loc loc ; if rest <> [] then Format.fprintf ppf "@," ; diff --git a/src/proto_alpha/lib_client/michelson_v1_printer.ml b/src/proto_alpha/lib_client/michelson_v1_printer.ml index 991a1de9f195..f091a1a0c0b5 100644 --- a/src/proto_alpha/lib_client/michelson_v1_printer.ml +++ b/src/proto_alpha/lib_client/michelson_v1_printer.ml @@ -78,6 +78,45 @@ let print_execution_trace ppf trace = ppf trace +let print_big_map_diff ppf diff = + let pp_map ppf id = + if Compare.Z.(id < Z.zero) then + Format.fprintf ppf "temp(%s)" (Z.to_string (Z.neg id)) + else Format.fprintf ppf "map(%s)" (Z.to_string id) + in + Format.fprintf + ppf + "@[%a@]" + (Format.pp_print_list ~pp_sep:Format.pp_print_space (fun ppf -> + function + | Contract.Clear id -> + Format.fprintf ppf "Clear %a" pp_map id + | Contract.Alloc {big_map; key_type; value_type} -> + Format.fprintf + ppf + "New %a of type (big_map %a %a)" + pp_map + big_map + print_expr + key_type + print_expr + value_type + | Contract.Copy (src, dst) -> + Format.fprintf ppf "Copy %a to %a" pp_map src pp_map dst + | Contract.Update {big_map; diff_key; diff_value; _} -> + Format.fprintf + ppf + "%s %a[%a]%a" + (match diff_value with None -> "Unset" | Some _ -> "Set") + pp_map + big_map + print_expr + diff_key + (fun ppf -> function None -> () | Some x -> + Format.fprintf ppf " to %a" print_expr x) + diff_value)) + diff + let inject_types type_map parsed = let rec inject_expr = function | Seq (loc, items) -> diff --git a/src/proto_alpha/lib_client/michelson_v1_printer.mli b/src/proto_alpha/lib_client/michelson_v1_printer.mli index 673a29bc7900..769a6817fe06 100644 --- a/src/proto_alpha/lib_client/michelson_v1_printer.mli +++ b/src/proto_alpha/lib_client/michelson_v1_printer.mli @@ -36,6 +36,8 @@ val print_execution_trace : (Script.location * Gas.t * (Script.expr * string option) list) list -> unit +val print_big_map_diff : Format.formatter -> Contract.big_map_diff -> unit + (** Insert the type map returned by the typechecker as comments in a printable Micheline AST. *) val inject_types : diff --git a/src/proto_alpha/lib_client/operation_result.ml b/src/proto_alpha/lib_client/operation_result.ml index fc2b1a90f497..b86516d3a9cf 100644 --- a/src/proto_alpha/lib_client/operation_result.ml +++ b/src/proto_alpha/lib_client/operation_result.ml @@ -206,7 +206,7 @@ let pp_manager_operation_contents_and_result ppf originated_contracts; storage_size; paid_storage_size_diff; - big_map_diff = _; + big_map_diff; allocated_destination_contract = _ }) = ( match originated_contracts with | [] -> @@ -226,6 +226,15 @@ let pp_manager_operation_contents_and_result ppf "@,@[Updated storage:@ %a@]" Michelson_v1_printer.print_expr expr ) ; + ( match big_map_diff with + | None | Some [] -> + () + | Some diff -> + Format.fprintf + ppf + "@,@[Updated big_maps:@ %a@]" + Michelson_v1_printer.print_big_map_diff + diff ) ; if storage_size <> Z.zero then Format.fprintf ppf "@,Storage size: %s bytes" (Z.to_string storage_size) ; if paid_storage_size_diff <> Z.zero then @@ -246,7 +255,8 @@ let pp_manager_operation_contents_and_result ppf in let pp_origination_result (Origination_result - { balance_updates; + { big_map_diff; + balance_updates; consumed_gas; originated_contracts; storage_size; @@ -262,6 +272,15 @@ let pp_manager_operation_contents_and_result ppf contracts ) ; if storage_size <> Z.zero then Format.fprintf ppf "@,Storage size: %s bytes" (Z.to_string storage_size) ; + ( match big_map_diff with + | None | Some [] -> + () + | Some diff -> + Format.fprintf + ppf + "@,@[Updated big_maps:@ %a@]" + Michelson_v1_printer.print_big_map_diff + diff ) ; if paid_storage_size_diff <> Z.zero then Format.fprintf ppf diff --git a/src/proto_alpha/lib_client_commands/client_proto_context_commands.ml b/src/proto_alpha/lib_client_commands/client_proto_context_commands.ml index fb2a5cbe540d..f7f5d9989a22 100644 --- a/src/proto_alpha/lib_client_commands/client_proto_context_commands.ml +++ b/src/proto_alpha/lib_client_commands/client_proto_context_commands.ml @@ -158,7 +158,7 @@ let commands version () = ~group ~desc: "Get the value associated to a key in the big map storage of a \ - contract." + contract (deprecated)." no_options ( prefixes ["get"; "big"; "map"; "value"; "for"] @@ Clic.param ~name:"key" ~desc:"the key to look for" data_parameter @@ -168,7 +168,7 @@ let commands version () = @@ ContractAlias.destination_param ~name:"src" ~desc:"source contract" @@ stop ) (fun () key key_type (_, contract) (cctxt : Protocol_client_context.full) -> - get_big_map_value + get_contract_big_map_value cctxt ~chain:cctxt#chain ~block:cctxt#block @@ -180,6 +180,32 @@ let commands version () = | Some value -> cctxt#answer "%a" Michelson_v1_printer.print_expr_unwrapped value >>= fun () -> return_unit); + command + ~group + ~desc:"Get a value in a big map." + no_options + ( prefixes ["get"; "element"] + @@ Clic.param + ~name:"key" + ~desc:"the key to look for" + (Clic.parameter (fun _ s -> + return (Script_expr_hash.of_b58check_exn s))) + @@ prefixes ["of"; "big"; "map"] + @@ Clic.param + ~name:"big_map" + ~desc:"identifier of the big_map" + int_parameter + @@ stop ) + (fun () key id (cctxt : Protocol_client_context.full) -> + get_big_map_value + cctxt + ~chain:cctxt#chain + ~block:cctxt#block + (Z.of_int id) + key + >>=? fun value -> + cctxt#answer "%a" Michelson_v1_printer.print_expr_unwrapped value + >>= fun () -> return_unit); command ~group ~desc:"Get the storage of a contract." -- GitLab From fceeb3d2bd659bbfaf2666a0bafbe23e72d7de7a Mon Sep 17 00:00:00 2001 From: Benjamin Canou Date: Wed, 3 Jul 2019 23:45:23 +0200 Subject: [PATCH 059/252] Proto/Migration: switch scripted KT1s to new `big_map` storage This patch looks for big_maps in existing smart contracts, and moves them to their new storage path. --- src/proto_alpha/lib_protocol/init_storage.ml | 102 +++++++++++++++++++ src/proto_alpha/lib_protocol/storage.mli | 2 + 2 files changed, 104 insertions(+) diff --git a/src/proto_alpha/lib_protocol/init_storage.ml b/src/proto_alpha/lib_protocol/init_storage.ml index b382ec3b058f..05ec7b0b800b 100644 --- a/src/proto_alpha/lib_protocol/init_storage.ml +++ b/src/proto_alpha/lib_protocol/init_storage.ml @@ -216,6 +216,107 @@ let process_contract contract ctxt = process_contract_add_manager contract ctxt >>=? fun ctxt -> return ctxt +(* Extract Big_maps from their parent contract directory, + recompute their used space, and assign them an ID. *) +let migrate_contract_big_map ctxt contract = + Storage.Contract.Code.get_option ctxt contract >>=? function + | ctxt, None -> return ctxt + | ctxt, Some code -> + Storage.Contract.Storage.get ctxt contract >>=? fun (ctxt, storage) -> + let extract_big_map_types expr = + let open Michelson_v1_primitives in + let open Micheline in + match Micheline.root expr with + | Seq (_, [ Prim (_, K_storage, [ expr ], _) ; _ ; _ ]) + | Seq (_, [ _ ; Prim (_, K_storage, [ expr ], _) ; _ ]) + | Seq (_, [ _ ; _ ; Prim (_, K_storage, [ expr ], _) ]) -> + begin match expr with + | Prim (_, T_pair, [ Prim (_, T_big_map, [ kt ; vt ], _ ) ; _ ], _) -> Some (kt, vt) + | _ -> None + end + | _ -> None in + let rewrite_big_map expr id = + let open Michelson_v1_primitives in + let open Micheline in + match Micheline.root expr with + | Prim (_, D_Pair, [ Seq (_, _ (* ignore_unused_origination_literal *)) ; pannot ], sannot) -> + Micheline.strip_locations (Prim (0, D_Pair, [ Int (0, id) ; pannot ], sannot)) + | _ -> assert false in + Lwt.return (Script_repr.force_decode code) >>=? fun (code, _) -> + match extract_big_map_types code with + | None -> return ctxt + | Some (kt, vt) -> + Lwt.return (Script_repr.force_decode storage) >>=? fun (storage, _) -> + Storage.Big_map.Next.incr ctxt >>=? fun (ctxt, id) -> + let contract_path suffix = + "contracts" :: (* module Contract *) + "index" :: (* module Indexed_context *) + Contract_repr.Index.to_path contract suffix in + let old_path = contract_path [ "big_map" ] in + let storage = rewrite_big_map storage id in + Storage.Contract.Storage.set ctxt contract (Script_repr.lazy_expr storage) >>=? fun (ctxt, _) -> + let kt = Micheline.strip_locations (Script_repr.strip_annotations kt) in + let vt = Micheline.strip_locations (Script_repr.strip_annotations vt) in + Storage.Big_map.Key_type.init ctxt id kt >>=? fun ctxt -> + Storage.Big_map.Value_type.init ctxt id vt >>=? fun ctxt -> + Raw_context.dir_mem ctxt old_path >>= fun exists -> + if exists then + let read_size ctxt key = + Raw_context.get ctxt key >>=? fun len -> + match Data_encoding.(Binary.of_bytes int31) len with + | None -> assert false + | Some len -> return len in + let iter_sizes f (ctxt, acc) = + let rec dig i path (ctxt, acc) = + if Compare.Int.(i <= 0) then + Raw_context.fold ctxt path ~init:(ok (ctxt, acc)) ~f:begin fun k acc -> + Lwt.return acc >>=? fun (ctxt, acc) -> + match k with + | `Dir _ -> return (ctxt, acc) + | `Key file -> + match List.rev file with + | last :: _ when Compare.String.(last = "data") -> + return (ctxt, acc) + | last :: _ when Compare.String.(last = "len") -> + read_size ctxt file >>=? fun len -> + return (ctxt, f len acc) + | _ -> assert false + end + else + Raw_context.fold ctxt path ~init:(ok (ctxt, acc)) ~f:begin fun k acc -> + Lwt.return acc >>=? fun (ctxt, acc) -> + match k with + | `Dir k -> dig (i-1) k (ctxt, acc) + | `Key _ -> return (ctxt, acc) + end in + dig Script_expr_hash.path_length old_path (ctxt, acc) in + iter_sizes + (fun s acc -> (acc |> Z.add (Z.of_int s) |> Z.add (Z.of_int 65))) + (ctxt, (Z.of_int 0)) >>=? fun (ctxt, total_bytes) -> + Storage.Big_map.Total_bytes.init ctxt id total_bytes >>=? fun ctxt -> + let new_path = "big_maps" :: (* module Big_map *) + "index" :: (* module Indexed_context *) + Storage.Big_map.Index.to_path id [ + "contents" ; (* module Delegated *) + ] in + Raw_context.copy ctxt old_path new_path >>=? fun ctxt -> + Raw_context.remove_rec ctxt old_path >>= fun ctxt -> + read_size ctxt (contract_path [ "len" ; "code" ]) >>=? fun code_size -> + read_size ctxt (contract_path [ "len" ; "storage" ]) >>=? fun storage_size -> + let total_bytes = + total_bytes |> + Z.add (Z.of_int 33) |> + Z.add (Z.of_int code_size) |> + Z.add (Z.of_int storage_size) in + Storage.Contract.Used_storage_space.get ctxt contract >>=? fun previous_size -> + Storage.Contract.Paid_storage_space.get ctxt contract >>=? fun paid_bytes -> + let change = Z.sub paid_bytes previous_size in + Storage.Contract.Used_storage_space.set ctxt contract total_bytes >>=? fun ctxt -> + Storage.Contract.Paid_storage_space.set ctxt contract (Z.add total_bytes change) + else + Storage.Big_map.Total_bytes.init ctxt id Z.zero >>=? fun ctxt -> + return ctxt + let prepare_first_block ctxt ~typecheck ~level ~timestamp ~fitness = Raw_context.prepare_first_block ~level ~timestamp ~fitness ctxt >>=? fun (previous_protocol, ctxt) -> @@ -247,6 +348,7 @@ let prepare_first_block ctxt ~typecheck ~level ~timestamp ~fitness = ~f:(fun contract ctxt -> Lwt.return ctxt >>=? fun ctxt -> migrate_delegated ctxt contract >>=? fun ctxt -> + migrate_contract_big_map ctxt contract >>=? fun ctxt -> process_contract contract ctxt) >>=? fun ctxt -> return ctxt diff --git a/src/proto_alpha/lib_protocol/storage.mli b/src/proto_alpha/lib_protocol/storage.mli index c4a4afaca136..1d7c887d5d74 100644 --- a/src/proto_alpha/lib_protocol/storage.mli +++ b/src/proto_alpha/lib_protocol/storage.mli @@ -260,6 +260,8 @@ module Big_map : sig val rpc_arg : Z.t RPC_arg.t + module Index : Storage_description.INDEX with type t = Z.t + module Contents : Non_iterable_indexed_carbonated_data_storage with type key = Script_expr_hash.t and type value = Script_repr.expr -- GitLab From 19820f97466b4433386c5a6a7e7ea3cbbf6014e4 Mon Sep 17 00:00:00 2001 From: Galfour Date: Tue, 7 May 2019 15:32:48 +0000 Subject: [PATCH 060/252] Proto/Michelson: add `APPLY` instruction to partially apply a lambda This instruction applies a tuplified function from the stack. Such a lambda is storable, and thus values that cannot be stored (values of type `operation`, `contract _` and `big_map _ _`) cannot be captured by `APPLY` (cannot appear in ``'a``). --- .../lib_protocol/alpha_context.mli | 1 + .../lib_protocol/michelson_v1_gas.ml | 2 + .../lib_protocol/michelson_v1_gas.mli | 1 + .../lib_protocol/michelson_v1_primitives.ml | 4 ++ .../lib_protocol/michelson_v1_primitives.mli | 1 + .../lib_protocol/script_interpreter.ml | 46 ++++++++++++++++++- .../lib_protocol/script_ir_translator.ml | 16 +++++-- .../lib_protocol/script_typed_ir.ml | 4 +- 8 files changed, 68 insertions(+), 7 deletions(-) diff --git a/src/proto_alpha/lib_protocol/alpha_context.mli b/src/proto_alpha/lib_protocol/alpha_context.mli index c3ee807531bd..b970ad11012c 100644 --- a/src/proto_alpha/lib_protocol/alpha_context.mli +++ b/src/proto_alpha/lib_protocol/alpha_context.mli @@ -230,6 +230,7 @@ module Script : sig | I_EMPTY_SET | I_EQ | I_EXEC + | I_APPLY | I_FAILWITH | I_GE | I_GET diff --git a/src/proto_alpha/lib_protocol/michelson_v1_gas.ml b/src/proto_alpha/lib_protocol/michelson_v1_gas.ml index e3ec0a1af374..f61e519feafc 100644 --- a/src/proto_alpha/lib_protocol/michelson_v1_gas.ml +++ b/src/proto_alpha/lib_protocol/michelson_v1_gas.ml @@ -266,6 +266,7 @@ module Cost_of = struct let amount = atomic_step_cost 10 let chain_id = step_cost 1 let stack_n_op n = atomic_step_cost (20 + (((n lsr 1) + (n lsr 2)) + (n lsr 4))) + let apply = alloc_cost 8 +@ step_cost 1 let rec compare : type a s. (a, s) Script_typed_ir.comparable_struct -> a -> a -> cost = fun ty x y -> match ty with @@ -415,6 +416,7 @@ module Cost_of = struct | Loop_left _ -> alloc_cost 5 | Dip _ -> alloc_cost 4 | Exec -> alloc_cost 1 + | Apply _ -> alloc_cost 1 | Lambda _ -> alloc_cost 2 | Failwith _ -> alloc_cost 1 | Nop -> alloc_cost 0 diff --git a/src/proto_alpha/lib_protocol/michelson_v1_gas.mli b/src/proto_alpha/lib_protocol/michelson_v1_gas.mli index 398f201656c8..c950a7496e3d 100644 --- a/src/proto_alpha/lib_protocol/michelson_v1_gas.mli +++ b/src/proto_alpha/lib_protocol/michelson_v1_gas.mli @@ -111,6 +111,7 @@ module Cost_of : sig val chain_id : Gas.cost val wrap : Gas.cost val compare : 'a Script_typed_ir.comparable_ty -> 'a -> 'a -> Gas.cost + val apply : Gas.cost end module Typechecking : sig diff --git a/src/proto_alpha/lib_protocol/michelson_v1_primitives.ml b/src/proto_alpha/lib_protocol/michelson_v1_primitives.ml index aae22775a02c..6c6a1025b0b6 100644 --- a/src/proto_alpha/lib_protocol/michelson_v1_primitives.ml +++ b/src/proto_alpha/lib_protocol/michelson_v1_primitives.ml @@ -71,6 +71,7 @@ type prim = | I_EMPTY_SET | I_EQ | I_EXEC + | I_APPLY | I_FAILWITH | I_GE | I_GET @@ -209,6 +210,7 @@ let string_of_prim = function | I_EMPTY_SET -> "EMPTY_SET" | I_EQ -> "EQ" | I_EXEC -> "EXEC" + | I_APPLY -> "APPLY" | I_FAILWITH -> "FAILWITH" | I_GE -> "GE" | I_GET -> "GET" @@ -328,6 +330,7 @@ let prim_of_string = function | "EMPTY_SET" -> ok I_EMPTY_SET | "EQ" -> ok I_EQ | "EXEC" -> ok I_EXEC + | "APPLY" -> ok I_APPLY | "FAILWITH" -> ok I_FAILWITH | "GE" -> ok I_GE | "GET" -> ok I_GET @@ -580,6 +583,7 @@ let prim_encoding = ("DIG", I_DIG) ; ("DUG", I_DUG) ; ("EMPTY_BIG_MAP", I_EMPTY_BIG_MAP) ; + ("APPLY", I_APPLY) ; ("chain_id", T_chain_id) ; ("CHAIN_ID", I_CHAIN_ID) (* New instructions must be added here, for backward compatibility of the encoding. *) diff --git a/src/proto_alpha/lib_protocol/michelson_v1_primitives.mli b/src/proto_alpha/lib_protocol/michelson_v1_primitives.mli index a0986a1d84ab..6a0852bf4615 100644 --- a/src/proto_alpha/lib_protocol/michelson_v1_primitives.mli +++ b/src/proto_alpha/lib_protocol/michelson_v1_primitives.mli @@ -69,6 +69,7 @@ type prim = | I_EMPTY_SET | I_EQ | I_EXEC + | I_APPLY | I_FAILWITH | I_GE | I_GET diff --git a/src/proto_alpha/lib_protocol/script_interpreter.ml b/src/proto_alpha/lib_protocol/script_interpreter.ml index 939f78082edd..cf39bef6699e 100644 --- a/src/proto_alpha/lib_protocol/script_interpreter.ml +++ b/src/proto_alpha/lib_protocol/script_interpreter.ml @@ -652,6 +652,48 @@ let rec interp Lwt.return (Gas.consume ctxt Interp_costs.exec) >>=? fun ctxt -> interp ?log ctxt ~source ~payer ~chain_id ~self amount lam arg >>=? fun (res, ctxt) -> logged_return (Item (res, rest), ctxt) + | Apply capture_ty, Item (capture, Item (lam, rest)) -> ( + Lwt.return (Gas.consume ctxt Interp_costs.apply) >>=? fun ctxt -> + let (Lam (descr, expr)) = lam in + let (Item_t (full_arg_ty , _ , _)) = descr.bef in + unparse_data ctxt Optimized capture_ty capture >>=? fun (const_expr, ctxt) -> + unparse_ty ctxt capture_ty >>=? fun (ty_expr, ctxt) -> + match full_arg_ty with + | Pair_t ((capture_ty, _, _), (arg_ty, _, _), _, _) -> ( + let arg_stack_ty = Item_t (arg_ty, Empty_t, None) in + let const_descr = ({ + loc = descr.loc ; + bef = arg_stack_ty ; + aft = Item_t (capture_ty, arg_stack_ty, None) ; + instr = Const capture ; + } : (_, _) descr) in + let pair_descr = ({ + loc = descr.loc ; + bef = Item_t (capture_ty, arg_stack_ty, None) ; + aft = Item_t (full_arg_ty, Empty_t, None) ; + instr = Cons_pair ; + } : (_, _) descr) in + let seq_descr = ({ + loc = descr.loc ; + bef = arg_stack_ty ; + aft = Item_t (full_arg_ty, Empty_t, None) ; + instr = Seq (const_descr, pair_descr) ; + } : (_, _) descr) in + let full_descr = ({ + loc = descr.loc ; + bef = arg_stack_ty ; + aft = descr.aft ; + instr = Seq (seq_descr, descr) ; + } : (_, _) descr) in + let full_expr = Micheline.Seq (0, [ + Prim (0, I_PUSH, [ ty_expr ; const_expr ], []) ; + Prim (0, I_PAIR, [], []) ; + expr ]) in + let lam' = Lam (full_descr, full_expr) in + logged_return (Item (lam', rest), ctxt) + ) + | _ -> assert false + ) | Lambda lam, rest -> Lwt.return (Gas.consume ctxt Interp_costs.push) >>=? fun ctxt -> logged_return (Item (lam, rest), ctxt) @@ -788,7 +830,7 @@ let rec interp Micheline.strip_locations (Seq (0, [ Prim (0, K_parameter, [ unparsed_param_type ], []) ; Prim (0, K_storage, [ unparsed_storage_type ], []) ; - Prim (0, K_code, [ Micheline.root code ], []) ])) in + Prim (0, K_code, [ code ], []) ])) in collect_big_maps ctxt storage_type init >>=? fun (to_duplicate, ctxt) -> let to_update = no_big_map_id in extract_big_map_diff ctxt Optimized storage_type init @@ -830,7 +872,7 @@ let rec interp Micheline.strip_locations (Seq (0, [ Prim (0, K_parameter, [ unparsed_param_type ], []) ; Prim (0, K_storage, [ unparsed_storage_type ], []) ; - Prim (0, K_code, [ Micheline.root code ], []) ])) in + Prim (0, K_code, [ code ], []) ])) in collect_big_maps ctxt storage_type init >>=? fun (to_duplicate, ctxt) -> let to_update = no_big_map_id in extract_big_map_diff ctxt Optimized storage_type init diff --git a/src/proto_alpha/lib_protocol/script_ir_translator.ml b/src/proto_alpha/lib_protocol/script_ir_translator.ml index b06396291db8..74eb556293c1 100644 --- a/src/proto_alpha/lib_protocol/script_ir_translator.ml +++ b/src/proto_alpha/lib_protocol/script_ir_translator.ml @@ -211,6 +211,7 @@ let number_of_generated_growing_types : type b a. (b, a) instr -> int = function | Loop_left _ -> 0 | Dip _ -> 0 | Exec -> 0 + | Apply _ -> 0 | Lambda _ -> 1 | Failwith _ -> 1 | Nop -> 0 @@ -307,6 +308,7 @@ let namespace = function | I_EMPTY_SET | I_EQ | I_EXEC + | I_APPLY | I_FAILWITH | I_GE | I_GET @@ -1921,13 +1923,13 @@ and parse_returning Bad_return (loc, stack_ty, ret)) (Lwt.return (ty_eq ctxt ty ret) >>=? fun (Eq, ctxt) -> Lwt.return (merge_types ~legacy ctxt loc ty ret) >>=? fun (_ret, ctxt) -> - return ((Lam (descr, strip_locations script_instr) : (arg, ret) lambda), ctxt)) + return ((Lam (descr, script_instr) : (arg, ret) lambda), ctxt)) | (Typed { loc ; aft = stack_ty ; _ }, ctxt) -> Lwt.return (serialize_ty_for_error ctxt ret) >>=? fun (ret, ctxt) -> serialize_stack_for_error ctxt stack_ty >>=? fun (stack_ty, _ctxt) -> fail (Bad_return (loc, stack_ty, ret)) | (Failed { descr }, ctxt) -> - return ((Lam (descr (Item_t (ret, Empty_t, None)), strip_locations script_instr) + return ((Lam (descr (Item_t (ret, Empty_t, None)), script_instr) : (arg, ret) lambda), ctxt) and parse_int32 (n : (location, prim) Micheline.node) : int tzresult = @@ -2528,6 +2530,12 @@ and parse_instr check_item_ty ctxt arg param loc I_EXEC 1 2 >>=? fun (Eq, _, ctxt) -> parse_var_annot loc annot >>=? fun annot -> typed ctxt loc Exec (Item_t (ret, rest, annot)) + | Prim (loc, I_APPLY, [], annot), + Item_t (capture, Item_t (Lambda_t (Pair_t ((capture_ty, _, _), (arg_ty, _, _), lam_annot, _), ret, _), rest, _), _) -> + Lwt.return @@ check_packable ~legacy:false loc capture_ty >>=? fun () -> + check_item_ty ctxt capture capture_ty loc I_APPLY 1 2 >>=? fun (Eq, capture_ty, ctxt) -> + parse_var_annot loc annot >>=? fun annot -> + typed ctxt loc (Apply capture_ty) (Item_t (Lambda_t (arg_ty, ret, lam_annot), rest, annot)) | Prim (loc, I_DIP, [ code ], annot), Item_t (v, rest, stack_annot) -> fail_unexpected_annot loc annot >>=? fun () -> @@ -3755,7 +3763,7 @@ let rec unparse_data must have been flushed at this point *) assert false | Lambda_t _, Lam (_, original_code) -> - unparse_code ctxt mode (root original_code) + unparse_code ctxt mode original_code (* Gas accounting may not be perfect in this function, as it is only called by RPCs. *) and unparse_code ctxt mode = @@ -3788,7 +3796,7 @@ and unparse_code ctxt mode = (* Gas accounting may not be perfect in this function, as it is only called by RPCs. *) let unparse_script ctxt mode { code ; arg_type ; storage ; storage_type ; root_name } = let Lam (_, original_code) = code in - unparse_code ctxt mode (root original_code) >>=? fun (code, ctxt) -> + unparse_code ctxt mode original_code >>=? fun (code, ctxt) -> unparse_data ctxt mode storage_type storage >>=? fun (storage, ctxt) -> unparse_ty ctxt arg_type >>=? fun (arg_type, ctxt) -> unparse_ty ctxt storage_type >>=? fun (storage_type, ctxt) -> diff --git a/src/proto_alpha/lib_protocol/script_typed_ir.ml b/src/proto_alpha/lib_protocol/script_typed_ir.ml index 5c64a122edd4..d536ecec8798 100644 --- a/src/proto_alpha/lib_protocol/script_typed_ir.ml +++ b/src/proto_alpha/lib_protocol/script_typed_ir.ml @@ -92,7 +92,7 @@ type ('arg, 'storage) script = and end_of_stack = unit and ('arg, 'ret) lambda = - Lam of ('arg * end_of_stack, 'ret * end_of_stack) descr * Script.expr + Lam : ('arg * end_of_stack, 'ret * end_of_stack) descr * Script.node -> ('arg, 'ret) lambda and 'arg typed_contract = 'arg ty * address @@ -344,6 +344,8 @@ and ('bef, 'aft) instr = ('top * 'bef, 'top * 'aft) instr | Exec : ('arg * (('arg, 'ret) lambda * 'rest), 'ret * 'rest) instr + | Apply : 'arg ty -> + ('arg * (('arg * 'remaining, 'ret) lambda * 'rest), ('remaining, 'ret) lambda * 'rest) instr | Lambda : ('arg, 'ret) lambda -> ('rest, ('arg, 'ret) lambda * 'rest) instr | Failwith : -- GitLab From 1283fb3d5c77cb4722e463e4b9fbe9d0557de0a6 Mon Sep 17 00:00:00 2001 From: Ilias Garnier Date: Mon, 22 Jul 2019 11:44:39 +0200 Subject: [PATCH 061/252] Proto/Michelson: expose internal function of the Michelson interpreter This patch is a refactor that does not change the semantics. It will allow external tools such as steppers or debuggers to control more finely the Michelson interpreter from outside the protocol. --- src/proto_alpha/lib_protocol/apply.ml | 11 +- .../lib_protocol/helpers_services.ml | 30 +- .../lib_protocol/script_interpreter.ml | 1582 +++++++++-------- .../lib_protocol/script_interpreter.mli | 32 +- .../lib_protocol/script_ir_translator.mli | 16 + 5 files changed, 861 insertions(+), 810 deletions(-) diff --git a/src/proto_alpha/lib_protocol/apply.ml b/src/proto_alpha/lib_protocol/apply.ml index db5d491e2808..df4ba5b85fff 100644 --- a/src/proto_alpha/lib_protocol/apply.ml +++ b/src/proto_alpha/lib_protocol/apply.ml @@ -444,10 +444,15 @@ let apply_manager_operation_content : Script.force_decode ctxt parameters >>=? fun (parameter, ctxt) -> (* see [note] *) let cost_parameter = Script.deserialized_cost parameter in Lwt.return (Gas.consume ctxt cost_parameter) >>=? fun ctxt -> + let step_constants = + let open Script_interpreter in + { source ; + payer ; + self = destination ; + amount ; + chain_id } in Script_interpreter.execute - ctxt mode - ~source ~payer ~chain_id ~self:(destination, script) - ~amount ~parameter ~entrypoint + ctxt mode step_constants ~script ~parameter ~entrypoint >>=? fun { ctxt ; storage ; big_map_diff ; operations } -> Contract.update_script_storage ctxt destination storage big_map_diff >>=? fun ctxt -> diff --git a/src/proto_alpha/lib_protocol/helpers_services.ml b/src/proto_alpha/lib_protocol/helpers_services.ml index ed37e1da4ece..a44c6c7f3ed3 100644 --- a/src/proto_alpha/lib_protocol/helpers_services.ml +++ b/src/proto_alpha/lib_protocol/helpers_services.ml @@ -211,14 +211,19 @@ module Scripts = struct | Some gas -> gas | None -> Constants.hard_gas_limit_per_operation ctxt in let ctxt = Gas.set_limit ctxt gas in + let step_constants = + let open Script_interpreter in + { source ; + payer ; + self = dummy_contract ; + amount ; + chain_id } in Script_interpreter.execute ctxt Readable - ~source - ~payer - ~chain_id - ~self:(dummy_contract, { storage ; code }) + step_constants + ~script:{ storage ; code } ~entrypoint - ~amount ~parameter + ~parameter >>=? fun { Script_interpreter.storage ; operations ; big_map_diff ; _ } -> return (storage, operations, big_map_diff) end ; @@ -236,14 +241,19 @@ module Scripts = struct | Some gas -> gas | None -> Constants.hard_gas_limit_per_operation ctxt in let ctxt = Gas.set_limit ctxt gas in + let step_constants = + let open Script_interpreter in + { source ; + payer ; + self = dummy_contract ; + amount ; + chain_id } in Script_interpreter.trace ctxt Readable - ~source - ~payer - ~chain_id - ~self:(dummy_contract, { storage ; code }) + step_constants + ~script:{ storage ; code } ~entrypoint - ~amount ~parameter + ~parameter >>=? fun ({ Script_interpreter.storage ; operations ; big_map_diff ; _ }, trace) -> return (storage, operations, trace, big_map_diff) end ; diff --git a/src/proto_alpha/lib_protocol/script_interpreter.ml b/src/proto_alpha/lib_protocol/script_interpreter.ml index cf39bef6699e..86d5dde5354a 100644 --- a/src/proto_alpha/lib_protocol/script_interpreter.ml +++ b/src/proto_alpha/lib_protocol/script_interpreter.ml @@ -179,788 +179,796 @@ let rec interp_stack_prefix_preserving_operation : type fbef bef faft aft result return (Item (v, rest'), result) | Rest, v -> f v -let rec interp - : type p r. +type step_constants = + { source : Contract.t ; + payer : Contract.t ; + self : Contract.t ; + amount : Tez.t ; + chain_id : Chain_id.t } + +let rec step + : type b a. (?log: execution_trace ref -> - context -> - source: Contract.t -> payer:Contract.t -> self: Contract.t -> Tez.t -> - chain_id: Chain_id.t -> (p, r) lambda -> p -> - (r * context) tzresult Lwt.t) - = fun ?log ctxt ~source ~payer ~self amount ~chain_id (Lam (code, _)) arg -> - let rec step - : type b a. - context -> (b, a) descr -> b stack -> - (a stack * context) tzresult Lwt.t = - fun ctxt ({ instr ; loc ; _ } as descr) stack -> - Lwt.return (Gas.consume ctxt Interp_costs.cycle) >>=? fun ctxt -> - let logged_return : type a b. - (b, a) descr -> - a stack * context -> - (a stack * context) tzresult Lwt.t = - fun descr (ret, ctxt) -> - match log with - | None -> return (ret, ctxt) - | Some log -> - trace - Cannot_serialize_log - (unparse_stack ctxt (ret, descr.aft)) >>=? fun stack -> - log := (descr.loc, Gas.level ctxt, stack) :: !log ; - return (ret, ctxt) in - let get_log (log : execution_trace ref option) = - Option.map ~f:(fun l -> List.rev !l) log in - let consume_gas_terop : type ret arg1 arg2 arg3 rest. - (_ * (_ * (_ * rest)), ret * rest) descr -> - ((arg1 -> arg2 -> arg3 -> ret) * arg1 * arg2 * arg3) -> - (arg1 -> arg2 -> arg3 -> Gas.cost) -> - rest stack -> - ((ret * rest) stack * context) tzresult Lwt.t = - fun descr (op, x1, x2, x3) cost_func rest -> - Lwt.return (Gas.consume ctxt (cost_func x1 x2 x3)) >>=? fun ctxt -> - logged_return descr (Item (op x1 x2 x3, rest), ctxt) in - let consume_gas_binop : type ret arg1 arg2 rest. - (_ * (_ * rest), ret * rest) descr -> - ((arg1 -> arg2 -> ret) * arg1 * arg2) -> - (arg1 -> arg2 -> Gas.cost) -> - rest stack -> - context -> - ((ret * rest) stack * context) tzresult Lwt.t = - fun descr (op, x1, x2) cost_func rest ctxt -> - Lwt.return (Gas.consume ctxt (cost_func x1 x2)) >>=? fun ctxt -> - logged_return descr (Item (op x1 x2, rest), ctxt) in - let consume_gas_unop : type ret arg rest. - (_ * rest, ret * rest) descr -> - ((arg -> ret) * arg) -> - (arg -> Gas.cost) -> - rest stack -> - context -> - ((ret * rest) stack * context) tzresult Lwt.t = - fun descr (op, arg) cost_func rest ctxt -> - Lwt.return (Gas.consume ctxt (cost_func arg)) >>=? fun ctxt -> - logged_return descr (Item (op arg, rest), ctxt) in - let logged_return : - a stack * context -> - (a stack * context) tzresult Lwt.t = - logged_return descr in - match instr, stack with - (* stack ops *) - | Drop, Item (_, rest) -> - Lwt.return (Gas.consume ctxt Interp_costs.stack_op) >>=? fun ctxt -> - logged_return (rest, ctxt) - | Dup, Item (v, rest) -> - Lwt.return (Gas.consume ctxt Interp_costs.stack_op) >>=? fun ctxt -> - logged_return (Item (v, Item (v, rest)), ctxt) - | Swap, Item (vi, Item (vo, rest)) -> - Lwt.return (Gas.consume ctxt Interp_costs.stack_op) >>=? fun ctxt -> - logged_return (Item (vo, Item (vi, rest)), ctxt) - | Const v, rest -> - Lwt.return (Gas.consume ctxt Interp_costs.push) >>=? fun ctxt -> - logged_return (Item (v, rest), ctxt) - (* options *) - | Cons_some, Item (v, rest) -> - Lwt.return (Gas.consume ctxt Interp_costs.wrap) >>=? fun ctxt -> - logged_return (Item (Some v, rest), ctxt) - | Cons_none _, rest -> - Lwt.return (Gas.consume ctxt Interp_costs.variant_no_data) >>=? fun ctxt -> - logged_return (Item (None, rest), ctxt) - | If_none (bt, _), Item (None, rest) -> - Lwt.return (Gas.consume ctxt Interp_costs.branch) >>=? fun ctxt -> - step ctxt bt rest - | If_none (_, bf), Item (Some v, rest) -> - Lwt.return (Gas.consume ctxt Interp_costs.branch) >>=? fun ctxt -> - step ctxt bf (Item (v, rest)) - (* pairs *) - | Cons_pair, Item (a, Item (b, rest)) -> - Lwt.return (Gas.consume ctxt Interp_costs.pair) >>=? fun ctxt -> - logged_return (Item ((a, b), rest), ctxt) - (* Peephole optimization for UNPAIR *) - | Seq ({instr=Dup;_}, - {instr=Seq ({instr=Car;_}, - {instr=Seq ({instr=Dip {instr=Cdr}}, - {instr=Nop;_});_});_}), - Item ((a, b), rest) -> - Lwt.return (Gas.consume ctxt Interp_costs.pair_access) >>=? fun ctxt -> - logged_return (Item (a, Item (b, rest)), ctxt) - | Car, Item ((a, _), rest) -> - Lwt.return (Gas.consume ctxt Interp_costs.pair_access) >>=? fun ctxt -> - logged_return (Item (a, rest), ctxt) - | Cdr, Item ((_, b), rest) -> - Lwt.return (Gas.consume ctxt Interp_costs.pair_access) >>=? fun ctxt -> - logged_return (Item (b, rest), ctxt) - (* unions *) - | Left, Item (v, rest) -> - Lwt.return (Gas.consume ctxt Interp_costs.wrap) >>=? fun ctxt -> - logged_return (Item (L v, rest), ctxt) - | Right, Item (v, rest) -> - Lwt.return (Gas.consume ctxt Interp_costs.wrap) >>=? fun ctxt -> - logged_return (Item (R v, rest), ctxt) - | If_left (bt, _), Item (L v, rest) -> - Lwt.return (Gas.consume ctxt Interp_costs.branch) >>=? fun ctxt -> - step ctxt bt (Item (v, rest)) - | If_left (_, bf), Item (R v, rest) -> - Lwt.return (Gas.consume ctxt Interp_costs.branch) >>=? fun ctxt -> - step ctxt bf (Item (v, rest)) - (* lists *) - | Cons_list, Item (hd, Item (tl, rest)) -> - Lwt.return (Gas.consume ctxt Interp_costs.cons) >>=? fun ctxt -> - logged_return (Item (hd :: tl, rest), ctxt) - | Nil, rest -> - Lwt.return (Gas.consume ctxt Interp_costs.variant_no_data) >>=? fun ctxt -> - logged_return (Item ([], rest), ctxt) - | If_cons (_, bf), Item ([], rest) -> - Lwt.return (Gas.consume ctxt Interp_costs.branch) >>=? fun ctxt -> - step ctxt bf rest - | If_cons (bt, _), Item (hd :: tl, rest) -> - Lwt.return (Gas.consume ctxt Interp_costs.branch) >>=? fun ctxt -> - step ctxt bt (Item (hd, Item (tl, rest))) - | List_map body, Item (l, rest) -> - let rec loop rest ctxt l acc = - Lwt.return (Gas.consume ctxt Interp_costs.loop_map) >>=? fun ctxt -> - match l with - | [] -> return (Item (List.rev acc, rest), ctxt) - | hd :: tl -> - step ctxt body (Item (hd, rest)) - >>=? fun (Item (hd, rest), ctxt) -> - loop rest ctxt tl (hd :: acc) - in loop rest ctxt l [] >>=? fun (res, ctxt) -> - logged_return (res, ctxt) - | List_size, Item (list, rest) -> - Lwt.return - (List.fold_left - (fun acc _ -> - acc >>? fun (size, ctxt) -> - Gas.consume ctxt Interp_costs.loop_size >>? fun ctxt -> - ok (size + 1 (* FIXME: overflow *), ctxt)) - (ok (0, ctxt)) list) >>=? fun (len, ctxt) -> - logged_return (Item (Script_int.(abs (of_int len)), rest), ctxt) - | List_iter body, Item (l, init) -> - let rec loop ctxt l stack = - Lwt.return (Gas.consume ctxt Interp_costs.loop_iter) >>=? fun ctxt -> - match l with - | [] -> return (stack, ctxt) - | hd :: tl -> - step ctxt body (Item (hd, stack)) - >>=? fun (stack, ctxt) -> - loop ctxt tl stack - in loop ctxt l init >>=? fun (res, ctxt) -> - logged_return (res, ctxt) - (* sets *) - | Empty_set t, rest -> - Lwt.return (Gas.consume ctxt Interp_costs.empty_set) >>=? fun ctxt -> - logged_return (Item (empty_set t, rest), ctxt) - | Set_iter body, Item (set, init) -> - Lwt.return (Gas.consume ctxt (Interp_costs.set_to_list set)) >>=? fun ctxt -> - let l = List.rev (set_fold (fun e acc -> e :: acc) set []) in - let rec loop ctxt l stack = - Lwt.return (Gas.consume ctxt Interp_costs.loop_iter) >>=? fun ctxt -> - match l with - | [] -> return (stack, ctxt) - | hd :: tl -> - step ctxt body (Item (hd, stack)) - >>=? fun (stack, ctxt) -> - loop ctxt tl stack - in loop ctxt l init >>=? fun (res, ctxt) -> - logged_return (res, ctxt) - | Set_mem, Item (v, Item (set, rest)) -> - consume_gas_binop descr (set_mem, v, set) Interp_costs.set_mem rest ctxt - | Set_update, Item (v, Item (presence, Item (set, rest))) -> - consume_gas_terop descr (set_update, v, presence, set) Interp_costs.set_update rest - | Set_size, Item (set, rest) -> - consume_gas_unop descr (set_size, set) (fun _ -> Interp_costs.set_size) rest ctxt - (* maps *) - | Empty_map (t, _), rest -> - Lwt.return (Gas.consume ctxt Interp_costs.empty_map) >>=? fun ctxt -> - logged_return (Item (empty_map t, rest), ctxt) - | Map_map body, Item (map, rest) -> - Lwt.return (Gas.consume ctxt (Interp_costs.map_to_list map)) >>=? fun ctxt -> - let l = List.rev (map_fold (fun k v acc -> (k, v) :: acc) map []) in - let rec loop rest ctxt l acc = - Lwt.return (Gas.consume ctxt Interp_costs.loop_map) >>=? fun ctxt -> - match l with - | [] -> return (acc, ctxt) - | (k, _) as hd :: tl -> - step ctxt body (Item (hd, rest)) - >>=? fun (Item (hd, rest), ctxt) -> - loop rest ctxt tl (map_update k (Some hd) acc) - in loop rest ctxt l (empty_map (map_key_ty map)) >>=? fun (res, ctxt) -> - logged_return (Item (res, rest), ctxt) - | Map_iter body, Item (map, init) -> - Lwt.return (Gas.consume ctxt (Interp_costs.map_to_list map)) >>=? fun ctxt -> - let l = List.rev (map_fold (fun k v acc -> (k, v) :: acc) map []) in - let rec loop ctxt l stack = - Lwt.return (Gas.consume ctxt Interp_costs.loop_iter) >>=? fun ctxt -> - match l with - | [] -> return (stack, ctxt) - | hd :: tl -> - step ctxt body (Item (hd, stack)) - >>=? fun (stack, ctxt) -> - loop ctxt tl stack - in loop ctxt l init >>=? fun (res, ctxt) -> - logged_return (res, ctxt) - | Map_mem, Item (v, Item (map, rest)) -> - consume_gas_binop descr (map_mem, v, map) Interp_costs.map_mem rest ctxt - | Map_get, Item (v, Item (map, rest)) -> - consume_gas_binop descr (map_get, v, map) Interp_costs.map_get rest ctxt - | Map_update, Item (k, Item (v, Item (map, rest))) -> - consume_gas_terop descr (map_update, k, v, map) Interp_costs.map_update rest - | Map_size, Item (map, rest) -> - consume_gas_unop descr (map_size, map) (fun _ -> Interp_costs.map_size) rest ctxt - (* Big map operations *) - | Empty_big_map (tk, tv), rest -> - Lwt.return (Gas.consume ctxt Interp_costs.empty_map) >>=? fun ctxt -> - logged_return (Item (Script_ir_translator.empty_big_map tk tv, rest), ctxt) - | Big_map_mem, Item (key, Item (map, rest)) -> - Lwt.return (Gas.consume ctxt (Interp_costs.map_mem key map.diff)) >>=? fun ctxt -> - Script_ir_translator.big_map_mem ctxt key map >>=? fun (res, ctxt) -> - logged_return (Item (res, rest), ctxt) - | Big_map_get, Item (key, Item (map, rest)) -> - Lwt.return (Gas.consume ctxt (Interp_costs.map_get key map.diff)) >>=? fun ctxt -> - Script_ir_translator.big_map_get ctxt key map >>=? fun (res, ctxt) -> - logged_return (Item (res, rest), ctxt) - | Big_map_update, Item (key, Item (maybe_value, Item (map, rest))) -> - consume_gas_terop descr - (Script_ir_translator.big_map_update, key, maybe_value, map) - (fun k v m -> Interp_costs.map_update k (Some v) m.diff) rest - (* timestamp operations *) - | Add_seconds_to_timestamp, Item (n, Item (t, rest)) -> - consume_gas_binop descr - (Script_timestamp.add_delta, t, n) - Interp_costs.add_timestamp rest ctxt - | Add_timestamp_to_seconds, Item (t, Item (n, rest)) -> - consume_gas_binop descr (Script_timestamp.add_delta, t, n) - Interp_costs.add_timestamp rest ctxt - | Sub_timestamp_seconds, Item (t, Item (s, rest)) -> - consume_gas_binop descr (Script_timestamp.sub_delta, t, s) - Interp_costs.sub_timestamp rest ctxt - | Diff_timestamps, Item (t1, Item (t2, rest)) -> - consume_gas_binop descr (Script_timestamp.diff, t1, t2) - Interp_costs.diff_timestamps rest ctxt - (* string operations *) - | Concat_string_pair, Item (x, Item (y, rest)) -> - Lwt.return (Gas.consume ctxt (Interp_costs.concat_string [x; y])) >>=? fun ctxt -> - let s = String.concat "" [x; y] in - logged_return (Item (s, rest), ctxt) - | Concat_string, Item (ss, rest) -> - Lwt.return (Gas.consume ctxt (Interp_costs.concat_string ss)) >>=? fun ctxt -> - let s = String.concat "" ss in - logged_return (Item (s, rest), ctxt) - | Slice_string, Item (offset, Item (length, Item (s, rest))) -> - let s_length = Z.of_int (String.length s) in - let offset = Script_int.to_zint offset in - let length = Script_int.to_zint length in - if Compare.Z.(offset < s_length && Z.add offset length <= s_length) then - Lwt.return (Gas.consume ctxt (Interp_costs.slice_string (Z.to_int length))) >>=? fun ctxt -> - logged_return (Item (Some (String.sub s (Z.to_int offset) (Z.to_int length)), rest), ctxt) - else - Lwt.return (Gas.consume ctxt (Interp_costs.slice_string 0)) >>=? fun ctxt -> - logged_return (Item (None, rest), ctxt) - | String_size, Item (s, rest) -> - Lwt.return (Gas.consume ctxt Interp_costs.push) >>=? fun ctxt -> - logged_return (Item (Script_int.(abs (of_int (String.length s))), rest), ctxt) - (* bytes operations *) - | Concat_bytes_pair, Item (x, Item (y, rest)) -> - Lwt.return (Gas.consume ctxt (Interp_costs.concat_bytes [x; y])) >>=? fun ctxt -> - let s = MBytes.concat "" [x; y] in - logged_return (Item (s, rest), ctxt) - | Concat_bytes, Item (ss, rest) -> - Lwt.return (Gas.consume ctxt (Interp_costs.concat_bytes ss)) >>=? fun ctxt -> - let s = MBytes.concat "" ss in - logged_return (Item (s, rest), ctxt) - | Slice_bytes, Item (offset, Item (length, Item (s, rest))) -> - let s_length = Z.of_int (MBytes.length s) in - let offset = Script_int.to_zint offset in - let length = Script_int.to_zint length in - if Compare.Z.(offset < s_length && Z.add offset length <= s_length) then - Lwt.return (Gas.consume ctxt (Interp_costs.slice_string (Z.to_int length))) >>=? fun ctxt -> - logged_return (Item (Some (MBytes.sub s (Z.to_int offset) (Z.to_int length)), rest), ctxt) - else - Lwt.return (Gas.consume ctxt (Interp_costs.slice_string 0)) >>=? fun ctxt -> - logged_return (Item (None, rest), ctxt) - | Bytes_size, Item (s, rest) -> - Lwt.return (Gas.consume ctxt Interp_costs.push) >>=? fun ctxt -> - logged_return (Item (Script_int.(abs (of_int (MBytes.length s))), rest), ctxt) - (* currency operations *) - | Add_tez, Item (x, Item (y, rest)) -> - Lwt.return (Gas.consume ctxt Interp_costs.int64_op) >>=? fun ctxt -> - Lwt.return Tez.(x +? y) >>=? fun res -> - logged_return (Item (res, rest), ctxt) - | Sub_tez, Item (x, Item (y, rest)) -> - Lwt.return (Gas.consume ctxt Interp_costs.int64_op) >>=? fun ctxt -> - Lwt.return Tez.(x -? y) >>=? fun res -> - logged_return (Item (res, rest), ctxt) - | Mul_teznat, Item (x, Item (y, rest)) -> - Lwt.return (Gas.consume ctxt Interp_costs.int64_op) >>=? fun ctxt -> - Lwt.return (Gas.consume ctxt Interp_costs.z_to_int64) >>=? fun ctxt -> - begin - match Script_int.to_int64 y with - | None -> fail (Overflow (loc, get_log log)) - | Some y -> - Lwt.return Tez.(x *? y) >>=? fun res -> - logged_return (Item (res, rest), ctxt) - end - | Mul_nattez, Item (y, Item (x, rest)) -> - Lwt.return (Gas.consume ctxt Interp_costs.int64_op) >>=? fun ctxt -> - Lwt.return (Gas.consume ctxt Interp_costs.z_to_int64) >>=? fun ctxt -> - begin - match Script_int.to_int64 y with - | None -> fail (Overflow (loc, get_log log)) - | Some y -> - Lwt.return Tez.(x *? y) >>=? fun res -> - logged_return (Item (res, rest), ctxt) - end - (* boolean operations *) - | Or, Item (x, Item (y, rest)) -> - consume_gas_binop descr ((||), x, y) Interp_costs.bool_binop rest ctxt - | And, Item (x, Item (y, rest)) -> - consume_gas_binop descr ((&&), x, y) Interp_costs.bool_binop rest ctxt - | Xor, Item (x, Item (y, rest)) -> - consume_gas_binop descr (Compare.Bool.(<>), x, y) Interp_costs.bool_binop rest ctxt - | Not, Item (x, rest) -> - consume_gas_unop descr (not, x) Interp_costs.bool_unop rest ctxt - (* integer operations *) - | Is_nat, Item (x, rest) -> - consume_gas_unop descr (Script_int.is_nat, x) Interp_costs.abs rest ctxt - | Abs_int, Item (x, rest) -> - consume_gas_unop descr (Script_int.abs, x) Interp_costs.abs rest ctxt - | Int_nat, Item (x, rest) -> - consume_gas_unop descr (Script_int.int, x) Interp_costs.int rest ctxt - | Neg_int, Item (x, rest) -> - consume_gas_unop descr (Script_int.neg, x) Interp_costs.neg rest ctxt - | Neg_nat, Item (x, rest) -> - consume_gas_unop descr (Script_int.neg, x) Interp_costs.neg rest ctxt - | Add_intint, Item (x, Item (y, rest)) -> - consume_gas_binop descr (Script_int.add, x, y) Interp_costs.add rest ctxt - | Add_intnat, Item (x, Item (y, rest)) -> - consume_gas_binop descr (Script_int.add, x, y) Interp_costs.add rest ctxt - | Add_natint, Item (x, Item (y, rest)) -> - consume_gas_binop descr (Script_int.add, x, y) Interp_costs.add rest ctxt - | Add_natnat, Item (x, Item (y, rest)) -> - consume_gas_binop descr (Script_int.add_n, x, y) Interp_costs.add rest ctxt - | Sub_int, Item (x, Item (y, rest)) -> - consume_gas_binop descr (Script_int.sub, x, y) Interp_costs.sub rest ctxt - | Mul_intint, Item (x, Item (y, rest)) -> - consume_gas_binop descr (Script_int.mul, x, y) Interp_costs.mul rest ctxt - | Mul_intnat, Item (x, Item (y, rest)) -> - consume_gas_binop descr (Script_int.mul, x, y) Interp_costs.mul rest ctxt - | Mul_natint, Item (x, Item (y, rest)) -> - consume_gas_binop descr (Script_int.mul, x, y) Interp_costs.mul rest ctxt - | Mul_natnat, Item (x, Item (y, rest)) -> - consume_gas_binop descr (Script_int.mul_n, x, y) Interp_costs.mul rest ctxt - | Ediv_teznat, Item (x, Item (y, rest)) -> - Lwt.return (Gas.consume ctxt Interp_costs.int64_to_z) >>=? fun ctxt -> - let x = Script_int.of_int64 (Tez.to_mutez x) in - consume_gas_binop descr - ((fun x y -> - match Script_int.ediv x y with - | None -> None - | Some (q, r) -> - match Script_int.to_int64 q, - Script_int.to_int64 r with - | Some q, Some r -> - begin - match Tez.of_mutez q, Tez.of_mutez r with - | Some q, Some r -> Some (q,r) - (* Cannot overflow *) - | _ -> assert false - end - (* Cannot overflow *) - | _ -> assert false), - x, y) - Interp_costs.div - rest - ctxt - | Ediv_tez, Item (x, Item (y, rest)) -> - Lwt.return (Gas.consume ctxt Interp_costs.int64_to_z) >>=? fun ctxt -> - Lwt.return (Gas.consume ctxt Interp_costs.int64_to_z) >>=? fun ctxt -> - let x = Script_int.abs (Script_int.of_int64 (Tez.to_mutez x)) in - let y = Script_int.abs (Script_int.of_int64 (Tez.to_mutez y)) in - consume_gas_binop descr - ((fun x y -> match Script_int.ediv_n x y with - | None -> None - | Some (q, r) -> - match Script_int.to_int64 r with + context -> step_constants -> (b, a) descr -> b stack -> + (a stack * context) tzresult Lwt.t) = + fun ?log ctxt step_constants ({ instr ; loc ; _ } as descr) stack -> + Lwt.return (Gas.consume ctxt Interp_costs.cycle) >>=? fun ctxt -> + let logged_return : type a b. + (b, a) descr -> + a stack * context -> + (a stack * context) tzresult Lwt.t = + fun descr (ret, ctxt) -> + match log with + | None -> return (ret, ctxt) + | Some log -> + trace + Cannot_serialize_log + (unparse_stack ctxt (ret, descr.aft)) >>=? fun stack -> + log := (descr.loc, Gas.level ctxt, stack) :: !log ; + return (ret, ctxt) in + let get_log (log : execution_trace ref option) = + Option.map ~f:(fun l -> List.rev !l) log in + let consume_gas_terop : type ret arg1 arg2 arg3 rest. + (_ * (_ * (_ * rest)), ret * rest) descr -> + ((arg1 -> arg2 -> arg3 -> ret) * arg1 * arg2 * arg3) -> + (arg1 -> arg2 -> arg3 -> Gas.cost) -> + rest stack -> + ((ret * rest) stack * context) tzresult Lwt.t = + fun descr (op, x1, x2, x3) cost_func rest -> + Lwt.return (Gas.consume ctxt (cost_func x1 x2 x3)) >>=? fun ctxt -> + logged_return descr (Item (op x1 x2 x3, rest), ctxt) in + let consume_gas_binop : type ret arg1 arg2 rest. + (_ * (_ * rest), ret * rest) descr -> + ((arg1 -> arg2 -> ret) * arg1 * arg2) -> + (arg1 -> arg2 -> Gas.cost) -> + rest stack -> + context -> + ((ret * rest) stack * context) tzresult Lwt.t = + fun descr (op, x1, x2) cost_func rest ctxt -> + Lwt.return (Gas.consume ctxt (cost_func x1 x2)) >>=? fun ctxt -> + logged_return descr (Item (op x1 x2, rest), ctxt) in + let consume_gas_unop : type ret arg rest. + (_ * rest, ret * rest) descr -> + ((arg -> ret) * arg) -> + (arg -> Gas.cost) -> + rest stack -> + context -> + ((ret * rest) stack * context) tzresult Lwt.t = + fun descr (op, arg) cost_func rest ctxt -> + Lwt.return (Gas.consume ctxt (cost_func arg)) >>=? fun ctxt -> + logged_return descr (Item (op arg, rest), ctxt) in + let logged_return : + a stack * context -> + (a stack * context) tzresult Lwt.t = + logged_return descr in + match instr, stack with + (* stack ops *) + | Drop, Item (_, rest) -> + Lwt.return (Gas.consume ctxt Interp_costs.stack_op) >>=? fun ctxt -> + logged_return (rest, ctxt) + | Dup, Item (v, rest) -> + Lwt.return (Gas.consume ctxt Interp_costs.stack_op) >>=? fun ctxt -> + logged_return (Item (v, Item (v, rest)), ctxt) + | Swap, Item (vi, Item (vo, rest)) -> + Lwt.return (Gas.consume ctxt Interp_costs.stack_op) >>=? fun ctxt -> + logged_return (Item (vo, Item (vi, rest)), ctxt) + | Const v, rest -> + Lwt.return (Gas.consume ctxt Interp_costs.push) >>=? fun ctxt -> + logged_return (Item (v, rest), ctxt) + (* options *) + | Cons_some, Item (v, rest) -> + Lwt.return (Gas.consume ctxt Interp_costs.wrap) >>=? fun ctxt -> + logged_return (Item (Some v, rest), ctxt) + | Cons_none _, rest -> + Lwt.return (Gas.consume ctxt Interp_costs.variant_no_data) >>=? fun ctxt -> + logged_return (Item (None, rest), ctxt) + | If_none (bt, _), Item (None, rest) -> + Lwt.return (Gas.consume ctxt Interp_costs.branch) >>=? fun ctxt -> + step ?log ctxt step_constants bt rest + | If_none (_, bf), Item (Some v, rest) -> + Lwt.return (Gas.consume ctxt Interp_costs.branch) >>=? fun ctxt -> + step ?log ctxt step_constants bf (Item (v, rest)) + (* pairs *) + | Cons_pair, Item (a, Item (b, rest)) -> + Lwt.return (Gas.consume ctxt Interp_costs.pair) >>=? fun ctxt -> + logged_return (Item ((a, b), rest), ctxt) + (* Peephole optimization for UNPAIR *) + | Seq ({instr=Dup;_}, + {instr=Seq ({instr=Car;_}, + {instr=Seq ({instr=Dip {instr=Cdr}}, + {instr=Nop;_});_});_}), + Item ((a, b), rest) -> + Lwt.return (Gas.consume ctxt Interp_costs.pair_access) >>=? fun ctxt -> + logged_return (Item (a, Item (b, rest)), ctxt) + | Car, Item ((a, _), rest) -> + Lwt.return (Gas.consume ctxt Interp_costs.pair_access) >>=? fun ctxt -> + logged_return (Item (a, rest), ctxt) + | Cdr, Item ((_, b), rest) -> + Lwt.return (Gas.consume ctxt Interp_costs.pair_access) >>=? fun ctxt -> + logged_return (Item (b, rest), ctxt) + (* unions *) + | Left, Item (v, rest) -> + Lwt.return (Gas.consume ctxt Interp_costs.wrap) >>=? fun ctxt -> + logged_return (Item (L v, rest), ctxt) + | Right, Item (v, rest) -> + Lwt.return (Gas.consume ctxt Interp_costs.wrap) >>=? fun ctxt -> + logged_return (Item (R v, rest), ctxt) + | If_left (bt, _), Item (L v, rest) -> + Lwt.return (Gas.consume ctxt Interp_costs.branch) >>=? fun ctxt -> + step ?log ctxt step_constants bt (Item (v, rest)) + | If_left (_, bf), Item (R v, rest) -> + Lwt.return (Gas.consume ctxt Interp_costs.branch) >>=? fun ctxt -> + step ?log ctxt step_constants bf (Item (v, rest)) + (* lists *) + | Cons_list, Item (hd, Item (tl, rest)) -> + Lwt.return (Gas.consume ctxt Interp_costs.cons) >>=? fun ctxt -> + logged_return (Item (hd :: tl, rest), ctxt) + | Nil, rest -> + Lwt.return (Gas.consume ctxt Interp_costs.variant_no_data) >>=? fun ctxt -> + logged_return (Item ([], rest), ctxt) + | If_cons (_, bf), Item ([], rest) -> + Lwt.return (Gas.consume ctxt Interp_costs.branch) >>=? fun ctxt -> + step ?log ctxt step_constants bf rest + | If_cons (bt, _), Item (hd :: tl, rest) -> + Lwt.return (Gas.consume ctxt Interp_costs.branch) >>=? fun ctxt -> + step ?log ctxt step_constants bt (Item (hd, Item (tl, rest))) + | List_map body, Item (l, rest) -> + let rec loop rest ctxt l acc = + Lwt.return (Gas.consume ctxt Interp_costs.loop_map) >>=? fun ctxt -> + match l with + | [] -> return (Item (List.rev acc, rest), ctxt) + | hd :: tl -> + step ?log ctxt step_constants body (Item (hd, rest)) + >>=? fun (Item (hd, rest), ctxt) -> + loop rest ctxt tl (hd :: acc) + in loop rest ctxt l [] >>=? fun (res, ctxt) -> + logged_return (res, ctxt) + | List_size, Item (list, rest) -> + Lwt.return + (List.fold_left + (fun acc _ -> + acc >>? fun (size, ctxt) -> + Gas.consume ctxt Interp_costs.loop_size >>? fun ctxt -> + ok (size + 1 (* FIXME: overflow *), ctxt)) + (ok (0, ctxt)) list) >>=? fun (len, ctxt) -> + logged_return (Item (Script_int.(abs (of_int len)), rest), ctxt) + | List_iter body, Item (l, init) -> + let rec loop ctxt l stack = + Lwt.return (Gas.consume ctxt Interp_costs.loop_iter) >>=? fun ctxt -> + match l with + | [] -> return (stack, ctxt) + | hd :: tl -> + step ?log ctxt step_constants body (Item (hd, stack)) + >>=? fun (stack, ctxt) -> + loop ctxt tl stack + in loop ctxt l init >>=? fun (res, ctxt) -> + logged_return (res, ctxt) + (* sets *) + | Empty_set t, rest -> + Lwt.return (Gas.consume ctxt Interp_costs.empty_set) >>=? fun ctxt -> + logged_return (Item (empty_set t, rest), ctxt) + | Set_iter body, Item (set, init) -> + Lwt.return (Gas.consume ctxt (Interp_costs.set_to_list set)) >>=? fun ctxt -> + let l = List.rev (set_fold (fun e acc -> e :: acc) set []) in + let rec loop ctxt l stack = + Lwt.return (Gas.consume ctxt Interp_costs.loop_iter) >>=? fun ctxt -> + match l with + | [] -> return (stack, ctxt) + | hd :: tl -> + step ?log ctxt step_constants body (Item (hd, stack)) + >>=? fun (stack, ctxt) -> + loop ctxt tl stack + in loop ctxt l init >>=? fun (res, ctxt) -> + logged_return (res, ctxt) + | Set_mem, Item (v, Item (set, rest)) -> + consume_gas_binop descr (set_mem, v, set) Interp_costs.set_mem rest ctxt + | Set_update, Item (v, Item (presence, Item (set, rest))) -> + consume_gas_terop descr (set_update, v, presence, set) Interp_costs.set_update rest + | Set_size, Item (set, rest) -> + consume_gas_unop descr (set_size, set) (fun _ -> Interp_costs.set_size) rest ctxt + (* maps *) + | Empty_map (t, _), rest -> + Lwt.return (Gas.consume ctxt Interp_costs.empty_map) >>=? fun ctxt -> + logged_return (Item (empty_map t, rest), ctxt) + | Map_map body, Item (map, rest) -> + Lwt.return (Gas.consume ctxt (Interp_costs.map_to_list map)) >>=? fun ctxt -> + let l = List.rev (map_fold (fun k v acc -> (k, v) :: acc) map []) in + let rec loop rest ctxt l acc = + Lwt.return (Gas.consume ctxt Interp_costs.loop_map) >>=? fun ctxt -> + match l with + | [] -> return (acc, ctxt) + | (k, _) as hd :: tl -> + step ?log ctxt step_constants body (Item (hd, rest)) + >>=? fun (Item (hd, rest), ctxt) -> + loop rest ctxt tl (map_update k (Some hd) acc) + in loop rest ctxt l (empty_map (map_key_ty map)) >>=? fun (res, ctxt) -> + logged_return (Item (res, rest), ctxt) + | Map_iter body, Item (map, init) -> + Lwt.return (Gas.consume ctxt (Interp_costs.map_to_list map)) >>=? fun ctxt -> + let l = List.rev (map_fold (fun k v acc -> (k, v) :: acc) map []) in + let rec loop ctxt l stack = + Lwt.return (Gas.consume ctxt Interp_costs.loop_iter) >>=? fun ctxt -> + match l with + | [] -> return (stack, ctxt) + | hd :: tl -> + step ?log ctxt step_constants body (Item (hd, stack)) + >>=? fun (stack, ctxt) -> + loop ctxt tl stack + in loop ctxt l init >>=? fun (res, ctxt) -> + logged_return (res, ctxt) + | Map_mem, Item (v, Item (map, rest)) -> + consume_gas_binop descr (map_mem, v, map) Interp_costs.map_mem rest ctxt + | Map_get, Item (v, Item (map, rest)) -> + consume_gas_binop descr (map_get, v, map) Interp_costs.map_get rest ctxt + | Map_update, Item (k, Item (v, Item (map, rest))) -> + consume_gas_terop descr (map_update, k, v, map) Interp_costs.map_update rest + | Map_size, Item (map, rest) -> + consume_gas_unop descr (map_size, map) (fun _ -> Interp_costs.map_size) rest ctxt + (* Big map operations *) + | Empty_big_map (tk, tv), rest -> + Lwt.return (Gas.consume ctxt Interp_costs.empty_map) >>=? fun ctxt -> + logged_return (Item (Script_ir_translator.empty_big_map tk tv, rest), ctxt) + | Big_map_mem, Item (key, Item (map, rest)) -> + Lwt.return (Gas.consume ctxt (Interp_costs.map_mem key map.diff)) >>=? fun ctxt -> + Script_ir_translator.big_map_mem ctxt key map >>=? fun (res, ctxt) -> + logged_return (Item (res, rest), ctxt) + | Big_map_get, Item (key, Item (map, rest)) -> + Lwt.return (Gas.consume ctxt (Interp_costs.map_get key map.diff)) >>=? fun ctxt -> + Script_ir_translator.big_map_get ctxt key map >>=? fun (res, ctxt) -> + logged_return (Item (res, rest), ctxt) + | Big_map_update, Item (key, Item (maybe_value, Item (map, rest))) -> + consume_gas_terop descr + (Script_ir_translator.big_map_update, key, maybe_value, map) + (fun k v m -> Interp_costs.map_update k (Some v) m.diff) rest + (* timestamp operations *) + | Add_seconds_to_timestamp, Item (n, Item (t, rest)) -> + consume_gas_binop descr + (Script_timestamp.add_delta, t, n) + Interp_costs.add_timestamp rest ctxt + | Add_timestamp_to_seconds, Item (t, Item (n, rest)) -> + consume_gas_binop descr (Script_timestamp.add_delta, t, n) + Interp_costs.add_timestamp rest ctxt + | Sub_timestamp_seconds, Item (t, Item (s, rest)) -> + consume_gas_binop descr (Script_timestamp.sub_delta, t, s) + Interp_costs.sub_timestamp rest ctxt + | Diff_timestamps, Item (t1, Item (t2, rest)) -> + consume_gas_binop descr (Script_timestamp.diff, t1, t2) + Interp_costs.diff_timestamps rest ctxt + (* string operations *) + | Concat_string_pair, Item (x, Item (y, rest)) -> + Lwt.return (Gas.consume ctxt (Interp_costs.concat_string [x; y])) >>=? fun ctxt -> + let s = String.concat "" [x; y] in + logged_return (Item (s, rest), ctxt) + | Concat_string, Item (ss, rest) -> + Lwt.return (Gas.consume ctxt (Interp_costs.concat_string ss)) >>=? fun ctxt -> + let s = String.concat "" ss in + logged_return (Item (s, rest), ctxt) + | Slice_string, Item (offset, Item (length, Item (s, rest))) -> + let s_length = Z.of_int (String.length s) in + let offset = Script_int.to_zint offset in + let length = Script_int.to_zint length in + if Compare.Z.(offset < s_length && Z.add offset length <= s_length) then + Lwt.return (Gas.consume ctxt (Interp_costs.slice_string (Z.to_int length))) >>=? fun ctxt -> + logged_return (Item (Some (String.sub s (Z.to_int offset) (Z.to_int length)), rest), ctxt) + else + Lwt.return (Gas.consume ctxt (Interp_costs.slice_string 0)) >>=? fun ctxt -> + logged_return (Item (None, rest), ctxt) + | String_size, Item (s, rest) -> + Lwt.return (Gas.consume ctxt Interp_costs.push) >>=? fun ctxt -> + logged_return (Item (Script_int.(abs (of_int (String.length s))), rest), ctxt) + (* bytes operations *) + | Concat_bytes_pair, Item (x, Item (y, rest)) -> + Lwt.return (Gas.consume ctxt (Interp_costs.concat_bytes [x; y])) >>=? fun ctxt -> + let s = MBytes.concat "" [x; y] in + logged_return (Item (s, rest), ctxt) + | Concat_bytes, Item (ss, rest) -> + Lwt.return (Gas.consume ctxt (Interp_costs.concat_bytes ss)) >>=? fun ctxt -> + let s = MBytes.concat "" ss in + logged_return (Item (s, rest), ctxt) + | Slice_bytes, Item (offset, Item (length, Item (s, rest))) -> + let s_length = Z.of_int (MBytes.length s) in + let offset = Script_int.to_zint offset in + let length = Script_int.to_zint length in + if Compare.Z.(offset < s_length && Z.add offset length <= s_length) then + Lwt.return (Gas.consume ctxt (Interp_costs.slice_string (Z.to_int length))) >>=? fun ctxt -> + logged_return (Item (Some (MBytes.sub s (Z.to_int offset) (Z.to_int length)), rest), ctxt) + else + Lwt.return (Gas.consume ctxt (Interp_costs.slice_string 0)) >>=? fun ctxt -> + logged_return (Item (None, rest), ctxt) + | Bytes_size, Item (s, rest) -> + Lwt.return (Gas.consume ctxt Interp_costs.push) >>=? fun ctxt -> + logged_return (Item (Script_int.(abs (of_int (MBytes.length s))), rest), ctxt) + (* currency operations *) + | Add_tez, Item (x, Item (y, rest)) -> + Lwt.return (Gas.consume ctxt Interp_costs.int64_op) >>=? fun ctxt -> + Lwt.return Tez.(x +? y) >>=? fun res -> + logged_return (Item (res, rest), ctxt) + | Sub_tez, Item (x, Item (y, rest)) -> + Lwt.return (Gas.consume ctxt Interp_costs.int64_op) >>=? fun ctxt -> + Lwt.return Tez.(x -? y) >>=? fun res -> + logged_return (Item (res, rest), ctxt) + | Mul_teznat, Item (x, Item (y, rest)) -> + Lwt.return (Gas.consume ctxt Interp_costs.int64_op) >>=? fun ctxt -> + Lwt.return (Gas.consume ctxt Interp_costs.z_to_int64) >>=? fun ctxt -> + begin + match Script_int.to_int64 y with + | None -> fail (Overflow (loc, get_log log)) + | Some y -> + Lwt.return Tez.(x *? y) >>=? fun res -> + logged_return (Item (res, rest), ctxt) + end + | Mul_nattez, Item (y, Item (x, rest)) -> + Lwt.return (Gas.consume ctxt Interp_costs.int64_op) >>=? fun ctxt -> + Lwt.return (Gas.consume ctxt Interp_costs.z_to_int64) >>=? fun ctxt -> + begin + match Script_int.to_int64 y with + | None -> fail (Overflow (loc, get_log log)) + | Some y -> + Lwt.return Tez.(x *? y) >>=? fun res -> + logged_return (Item (res, rest), ctxt) + end + (* boolean operations *) + | Or, Item (x, Item (y, rest)) -> + consume_gas_binop descr ((||), x, y) Interp_costs.bool_binop rest ctxt + | And, Item (x, Item (y, rest)) -> + consume_gas_binop descr ((&&), x, y) Interp_costs.bool_binop rest ctxt + | Xor, Item (x, Item (y, rest)) -> + consume_gas_binop descr (Compare.Bool.(<>), x, y) Interp_costs.bool_binop rest ctxt + | Not, Item (x, rest) -> + consume_gas_unop descr (not, x) Interp_costs.bool_unop rest ctxt + (* integer operations *) + | Is_nat, Item (x, rest) -> + consume_gas_unop descr (Script_int.is_nat, x) Interp_costs.abs rest ctxt + | Abs_int, Item (x, rest) -> + consume_gas_unop descr (Script_int.abs, x) Interp_costs.abs rest ctxt + | Int_nat, Item (x, rest) -> + consume_gas_unop descr (Script_int.int, x) Interp_costs.int rest ctxt + | Neg_int, Item (x, rest) -> + consume_gas_unop descr (Script_int.neg, x) Interp_costs.neg rest ctxt + | Neg_nat, Item (x, rest) -> + consume_gas_unop descr (Script_int.neg, x) Interp_costs.neg rest ctxt + | Add_intint, Item (x, Item (y, rest)) -> + consume_gas_binop descr (Script_int.add, x, y) Interp_costs.add rest ctxt + | Add_intnat, Item (x, Item (y, rest)) -> + consume_gas_binop descr (Script_int.add, x, y) Interp_costs.add rest ctxt + | Add_natint, Item (x, Item (y, rest)) -> + consume_gas_binop descr (Script_int.add, x, y) Interp_costs.add rest ctxt + | Add_natnat, Item (x, Item (y, rest)) -> + consume_gas_binop descr (Script_int.add_n, x, y) Interp_costs.add rest ctxt + | Sub_int, Item (x, Item (y, rest)) -> + consume_gas_binop descr (Script_int.sub, x, y) Interp_costs.sub rest ctxt + | Mul_intint, Item (x, Item (y, rest)) -> + consume_gas_binop descr (Script_int.mul, x, y) Interp_costs.mul rest ctxt + | Mul_intnat, Item (x, Item (y, rest)) -> + consume_gas_binop descr (Script_int.mul, x, y) Interp_costs.mul rest ctxt + | Mul_natint, Item (x, Item (y, rest)) -> + consume_gas_binop descr (Script_int.mul, x, y) Interp_costs.mul rest ctxt + | Mul_natnat, Item (x, Item (y, rest)) -> + consume_gas_binop descr (Script_int.mul_n, x, y) Interp_costs.mul rest ctxt + | Ediv_teznat, Item (x, Item (y, rest)) -> + Lwt.return (Gas.consume ctxt Interp_costs.int64_to_z) >>=? fun ctxt -> + let x = Script_int.of_int64 (Tez.to_mutez x) in + consume_gas_binop descr + ((fun x y -> + match Script_int.ediv x y with + | None -> None + | Some (q, r) -> + match Script_int.to_int64 q, + Script_int.to_int64 r with + | Some q, Some r -> + begin + match Tez.of_mutez q, Tez.of_mutez r with + | Some q, Some r -> Some (q,r) + (* Cannot overflow *) + | _ -> assert false + end + (* Cannot overflow *) + | _ -> assert false), + x, y) + Interp_costs.div + rest + ctxt + | Ediv_tez, Item (x, Item (y, rest)) -> + Lwt.return (Gas.consume ctxt Interp_costs.int64_to_z) >>=? fun ctxt -> + Lwt.return (Gas.consume ctxt Interp_costs.int64_to_z) >>=? fun ctxt -> + let x = Script_int.abs (Script_int.of_int64 (Tez.to_mutez x)) in + let y = Script_int.abs (Script_int.of_int64 (Tez.to_mutez y)) in + consume_gas_binop descr + ((fun x y -> match Script_int.ediv_n x y with + | None -> None + | Some (q, r) -> + match Script_int.to_int64 r with + | None -> assert false (* Cannot overflow *) + | Some r -> + match Tez.of_mutez r with | None -> assert false (* Cannot overflow *) - | Some r -> - match Tez.of_mutez r with - | None -> assert false (* Cannot overflow *) - | Some r -> Some (q, r)), - x, y) - Interp_costs.div - rest - ctxt - | Ediv_intint, Item (x, Item (y, rest)) -> - consume_gas_binop descr (Script_int.ediv, x, y) Interp_costs.div rest ctxt - | Ediv_intnat, Item (x, Item (y, rest)) -> - consume_gas_binop descr (Script_int.ediv, x, y) Interp_costs.div rest ctxt - | Ediv_natint, Item (x, Item (y, rest)) -> - consume_gas_binop descr (Script_int.ediv, x, y) Interp_costs.div rest ctxt - | Ediv_natnat, Item (x, Item (y, rest)) -> - consume_gas_binop descr (Script_int.ediv_n, x, y) Interp_costs.div rest ctxt - | Lsl_nat, Item (x, Item (y, rest)) -> - Lwt.return (Gas.consume ctxt (Interp_costs.shift_left x y)) >>=? fun ctxt -> - begin - match Script_int.shift_left_n x y with - | None -> fail (Overflow (loc, get_log log)) - | Some x -> logged_return (Item (x, rest), ctxt) - end - | Lsr_nat, Item (x, Item (y, rest)) -> - Lwt.return (Gas.consume ctxt (Interp_costs.shift_right x y)) >>=? fun ctxt -> - begin - match Script_int.shift_right_n x y with - | None -> fail (Overflow (loc, get_log log)) - | Some r -> logged_return (Item (r, rest), ctxt) - end - | Or_nat, Item (x, Item (y, rest)) -> - consume_gas_binop descr (Script_int.logor, x, y) Interp_costs.logor rest ctxt - | And_nat, Item (x, Item (y, rest)) -> - consume_gas_binop descr (Script_int.logand, x, y) Interp_costs.logand rest ctxt - | And_int_nat, Item (x, Item (y, rest)) -> - consume_gas_binop descr (Script_int.logand, x, y) Interp_costs.logand rest ctxt - | Xor_nat, Item (x, Item (y, rest)) -> - consume_gas_binop descr (Script_int.logxor, x, y) Interp_costs.logxor rest ctxt - | Not_int, Item (x, rest) -> - consume_gas_unop descr (Script_int.lognot, x) Interp_costs.lognot rest ctxt - | Not_nat, Item (x, rest) -> - consume_gas_unop descr (Script_int.lognot, x) Interp_costs.lognot rest ctxt - (* control *) - | Seq (hd, tl), stack -> - step ctxt hd stack >>=? fun (trans, ctxt) -> - step ctxt tl trans - | If (bt, _), Item (true, rest) -> - Lwt.return (Gas.consume ctxt Interp_costs.branch) >>=? fun ctxt -> - step ctxt bt rest - | If (_, bf), Item (false, rest) -> - Lwt.return (Gas.consume ctxt Interp_costs.branch) >>=? fun ctxt -> - step ctxt bf rest - | Loop body, Item (true, rest) -> - Lwt.return (Gas.consume ctxt Interp_costs.loop_cycle) >>=? fun ctxt -> - step ctxt body rest >>=? fun (trans, ctxt) -> - step ctxt descr trans - | Loop _, Item (false, rest) -> - logged_return (rest, ctxt) - | Loop_left body, Item (L v, rest) -> - Lwt.return (Gas.consume ctxt Interp_costs.loop_cycle) >>=? fun ctxt -> - step ctxt body (Item (v, rest)) >>=? fun (trans, ctxt) -> - step ctxt descr trans - | Loop_left _, Item (R v, rest) -> - Lwt.return (Gas.consume ctxt Interp_costs.loop_cycle) >>=? fun ctxt -> - logged_return (Item (v, rest), ctxt) - | Dip b, Item (ign, rest) -> - Lwt.return (Gas.consume ctxt Interp_costs.stack_op) >>=? fun ctxt -> - step ctxt b rest >>=? fun (res, ctxt) -> - logged_return (Item (ign, res), ctxt) - | Exec, Item (arg, Item (lam, rest)) -> - Lwt.return (Gas.consume ctxt Interp_costs.exec) >>=? fun ctxt -> - interp ?log ctxt ~source ~payer ~chain_id ~self amount lam arg >>=? fun (res, ctxt) -> - logged_return (Item (res, rest), ctxt) - | Apply capture_ty, Item (capture, Item (lam, rest)) -> ( - Lwt.return (Gas.consume ctxt Interp_costs.apply) >>=? fun ctxt -> - let (Lam (descr, expr)) = lam in - let (Item_t (full_arg_ty , _ , _)) = descr.bef in - unparse_data ctxt Optimized capture_ty capture >>=? fun (const_expr, ctxt) -> - unparse_ty ctxt capture_ty >>=? fun (ty_expr, ctxt) -> - match full_arg_ty with - | Pair_t ((capture_ty, _, _), (arg_ty, _, _), _, _) -> ( - let arg_stack_ty = Item_t (arg_ty, Empty_t, None) in - let const_descr = ({ - loc = descr.loc ; - bef = arg_stack_ty ; - aft = Item_t (capture_ty, arg_stack_ty, None) ; - instr = Const capture ; - } : (_, _) descr) in - let pair_descr = ({ - loc = descr.loc ; - bef = Item_t (capture_ty, arg_stack_ty, None) ; - aft = Item_t (full_arg_ty, Empty_t, None) ; - instr = Cons_pair ; - } : (_, _) descr) in - let seq_descr = ({ - loc = descr.loc ; - bef = arg_stack_ty ; - aft = Item_t (full_arg_ty, Empty_t, None) ; - instr = Seq (const_descr, pair_descr) ; - } : (_, _) descr) in - let full_descr = ({ - loc = descr.loc ; - bef = arg_stack_ty ; - aft = descr.aft ; - instr = Seq (seq_descr, descr) ; - } : (_, _) descr) in - let full_expr = Micheline.Seq (0, [ - Prim (0, I_PUSH, [ ty_expr ; const_expr ], []) ; - Prim (0, I_PAIR, [], []) ; - expr ]) in - let lam' = Lam (full_descr, full_expr) in - logged_return (Item (lam', rest), ctxt) - ) - | _ -> assert false + | Some r -> Some (q, r)), + x, y) + Interp_costs.div + rest + ctxt + | Ediv_intint, Item (x, Item (y, rest)) -> + consume_gas_binop descr (Script_int.ediv, x, y) Interp_costs.div rest ctxt + | Ediv_intnat, Item (x, Item (y, rest)) -> + consume_gas_binop descr (Script_int.ediv, x, y) Interp_costs.div rest ctxt + | Ediv_natint, Item (x, Item (y, rest)) -> + consume_gas_binop descr (Script_int.ediv, x, y) Interp_costs.div rest ctxt + | Ediv_natnat, Item (x, Item (y, rest)) -> + consume_gas_binop descr (Script_int.ediv_n, x, y) Interp_costs.div rest ctxt + | Lsl_nat, Item (x, Item (y, rest)) -> + Lwt.return (Gas.consume ctxt (Interp_costs.shift_left x y)) >>=? fun ctxt -> + begin + match Script_int.shift_left_n x y with + | None -> fail (Overflow (loc, get_log log)) + | Some x -> logged_return (Item (x, rest), ctxt) + end + | Lsr_nat, Item (x, Item (y, rest)) -> + Lwt.return (Gas.consume ctxt (Interp_costs.shift_right x y)) >>=? fun ctxt -> + begin + match Script_int.shift_right_n x y with + | None -> fail (Overflow (loc, get_log log)) + | Some r -> logged_return (Item (r, rest), ctxt) + end + | Or_nat, Item (x, Item (y, rest)) -> + consume_gas_binop descr (Script_int.logor, x, y) Interp_costs.logor rest ctxt + | And_nat, Item (x, Item (y, rest)) -> + consume_gas_binop descr (Script_int.logand, x, y) Interp_costs.logand rest ctxt + | And_int_nat, Item (x, Item (y, rest)) -> + consume_gas_binop descr (Script_int.logand, x, y) Interp_costs.logand rest ctxt + | Xor_nat, Item (x, Item (y, rest)) -> + consume_gas_binop descr (Script_int.logxor, x, y) Interp_costs.logxor rest ctxt + | Not_int, Item (x, rest) -> + consume_gas_unop descr (Script_int.lognot, x) Interp_costs.lognot rest ctxt + | Not_nat, Item (x, rest) -> + consume_gas_unop descr (Script_int.lognot, x) Interp_costs.lognot rest ctxt + (* control *) + | Seq (hd, tl), stack -> + step ?log ctxt step_constants hd stack >>=? fun (trans, ctxt) -> + step ?log ctxt step_constants tl trans + | If (bt, _), Item (true, rest) -> + Lwt.return (Gas.consume ctxt Interp_costs.branch) >>=? fun ctxt -> + step ?log ctxt step_constants bt rest + | If (_, bf), Item (false, rest) -> + Lwt.return (Gas.consume ctxt Interp_costs.branch) >>=? fun ctxt -> + step ?log ctxt step_constants bf rest + | Loop body, Item (true, rest) -> + Lwt.return (Gas.consume ctxt Interp_costs.loop_cycle) >>=? fun ctxt -> + step ?log ctxt step_constants body rest >>=? fun (trans, ctxt) -> + step ?log ctxt step_constants descr trans + | Loop _, Item (false, rest) -> + logged_return (rest, ctxt) + | Loop_left body, Item (L v, rest) -> + Lwt.return (Gas.consume ctxt Interp_costs.loop_cycle) >>=? fun ctxt -> + step ?log ctxt step_constants body (Item (v, rest)) >>=? fun (trans, ctxt) -> + step ?log ctxt step_constants descr trans + | Loop_left _, Item (R v, rest) -> + Lwt.return (Gas.consume ctxt Interp_costs.loop_cycle) >>=? fun ctxt -> + logged_return (Item (v, rest), ctxt) + | Dip b, Item (ign, rest) -> + Lwt.return (Gas.consume ctxt Interp_costs.stack_op) >>=? fun ctxt -> + step ?log ctxt step_constants b rest >>=? fun (res, ctxt) -> + logged_return (Item (ign, res), ctxt) + | Exec, Item (arg, Item (lam, rest)) -> + Lwt.return (Gas.consume ctxt Interp_costs.exec) >>=? fun ctxt -> + interp ?log ctxt step_constants lam arg >>=? fun (res, ctxt) -> + logged_return (Item (res, rest), ctxt) + | Apply capture_ty, Item (capture, Item (lam, rest)) -> ( + Lwt.return (Gas.consume ctxt Interp_costs.apply) >>=? fun ctxt -> + let (Lam (descr, expr)) = lam in + let (Item_t (full_arg_ty , _ , _)) = descr.bef in + unparse_data ctxt Optimized capture_ty capture >>=? fun (const_expr, ctxt) -> + unparse_ty ctxt capture_ty >>=? fun (ty_expr, ctxt) -> + match full_arg_ty with + | Pair_t ((capture_ty, _, _), (arg_ty, _, _), _, _) -> ( + let arg_stack_ty = Item_t (arg_ty, Empty_t, None) in + let const_descr = ({ + loc = descr.loc ; + bef = arg_stack_ty ; + aft = Item_t (capture_ty, arg_stack_ty, None) ; + instr = Const capture ; + } : (_, _) descr) in + let pair_descr = ({ + loc = descr.loc ; + bef = Item_t (capture_ty, arg_stack_ty, None) ; + aft = Item_t (full_arg_ty, Empty_t, None) ; + instr = Cons_pair ; + } : (_, _) descr) in + let seq_descr = ({ + loc = descr.loc ; + bef = arg_stack_ty ; + aft = Item_t (full_arg_ty, Empty_t, None) ; + instr = Seq (const_descr, pair_descr) ; + } : (_, _) descr) in + let full_descr = ({ + loc = descr.loc ; + bef = arg_stack_ty ; + aft = descr.aft ; + instr = Seq (seq_descr, descr) ; + } : (_, _) descr) in + let full_expr = Micheline.Seq (0, [ + Prim (0, I_PUSH, [ ty_expr ; const_expr ], []) ; + Prim (0, I_PAIR, [], []) ; + expr ]) in + let lam' = Lam (full_descr, full_expr) in + logged_return (Item (lam', rest), ctxt) ) - | Lambda lam, rest -> - Lwt.return (Gas.consume ctxt Interp_costs.push) >>=? fun ctxt -> - logged_return (Item (lam, rest), ctxt) - | Failwith tv, Item (v, _) -> - trace Cannot_serialize_failure - (unparse_data ctxt Optimized tv v) >>=? fun (v, _ctxt) -> - let v = Micheline.strip_locations v in - fail (Reject (loc, v, get_log log)) - | Nop, stack -> - logged_return (stack, ctxt) - (* comparison *) - | Compare ty, Item (a, Item (b, rest)) -> - Lwt.return (Gas.consume ctxt (Interp_costs.compare ty a b)) >>=? fun ctxt -> - logged_return (Item (Script_int.of_int @@ Script_ir_translator.compare_comparable ty a b, rest), ctxt) - (* comparators *) - | Eq, Item (cmpres, rest) -> - let cmpres = Script_int.compare cmpres Script_int.zero in - let cmpres = Compare.Int.(cmpres = 0) in - Lwt.return (Gas.consume ctxt Interp_costs.compare_res) >>=? fun ctxt -> - logged_return (Item (cmpres, rest), ctxt) - | Neq, Item (cmpres, rest) -> - let cmpres = Script_int.compare cmpres Script_int.zero in - let cmpres = Compare.Int.(cmpres <> 0) in - Lwt.return (Gas.consume ctxt Interp_costs.compare_res) >>=? fun ctxt -> - logged_return (Item (cmpres, rest), ctxt) - | Lt, Item (cmpres, rest) -> - let cmpres = Script_int.compare cmpres Script_int.zero in - let cmpres = Compare.Int.(cmpres < 0) in - Lwt.return (Gas.consume ctxt Interp_costs.compare_res) >>=? fun ctxt -> - logged_return (Item (cmpres, rest), ctxt) - | Le, Item (cmpres, rest) -> - let cmpres = Script_int.compare cmpres Script_int.zero in - let cmpres = Compare.Int.(cmpres <= 0) in - Lwt.return (Gas.consume ctxt Interp_costs.compare_res) >>=? fun ctxt -> - logged_return (Item (cmpres, rest), ctxt) - | Gt, Item (cmpres, rest) -> - let cmpres = Script_int.compare cmpres Script_int.zero in - let cmpres = Compare.Int.(cmpres > 0) in - Lwt.return (Gas.consume ctxt Interp_costs.compare_res) >>=? fun ctxt -> - logged_return (Item (cmpres, rest), ctxt) - | Ge, Item (cmpres, rest) -> - let cmpres = Script_int.compare cmpres Script_int.zero in - let cmpres = Compare.Int.(cmpres >= 0) in - Lwt.return (Gas.consume ctxt Interp_costs.compare_res) >>=? fun ctxt -> - logged_return (Item (cmpres, rest), ctxt) - (* packing *) - | Pack t, Item (value, rest) -> - Script_ir_translator.pack_data ctxt t value >>=? fun (bytes, ctxt) -> - logged_return (Item (bytes, rest), ctxt) - | Unpack t, Item (bytes, rest) -> - Lwt.return (Gas.check_enough ctxt (Script.serialized_cost bytes)) >>=? fun () -> - if Compare.Int.(MBytes.length bytes >= 1) && - Compare.Int.(MBytes.get_uint8 bytes 0 = 0x05) then - let bytes = MBytes.sub bytes 1 (MBytes.length bytes - 1) in - match Data_encoding.Binary.of_bytes Script.expr_encoding bytes with - | None -> + | _ -> assert false + ) + | Lambda lam, rest -> + Lwt.return (Gas.consume ctxt Interp_costs.push) >>=? fun ctxt -> + logged_return (Item (lam, rest), ctxt) + | Failwith tv, Item (v, _) -> + trace Cannot_serialize_failure + (unparse_data ctxt Optimized tv v) >>=? fun (v, _ctxt) -> + let v = Micheline.strip_locations v in + fail (Reject (loc, v, get_log log)) + | Nop, stack -> + logged_return (stack, ctxt) + (* comparison *) + | Compare ty, Item (a, Item (b, rest)) -> + Lwt.return (Gas.consume ctxt (Interp_costs.compare ty a b)) >>=? fun ctxt -> + logged_return (Item (Script_int.of_int @@ Script_ir_translator.compare_comparable ty a b, rest), ctxt) + (* comparators *) + | Eq, Item (cmpres, rest) -> + let cmpres = Script_int.compare cmpres Script_int.zero in + let cmpres = Compare.Int.(cmpres = 0) in + Lwt.return (Gas.consume ctxt Interp_costs.compare_res) >>=? fun ctxt -> + logged_return (Item (cmpres, rest), ctxt) + | Neq, Item (cmpres, rest) -> + let cmpres = Script_int.compare cmpres Script_int.zero in + let cmpres = Compare.Int.(cmpres <> 0) in + Lwt.return (Gas.consume ctxt Interp_costs.compare_res) >>=? fun ctxt -> + logged_return (Item (cmpres, rest), ctxt) + | Lt, Item (cmpres, rest) -> + let cmpres = Script_int.compare cmpres Script_int.zero in + let cmpres = Compare.Int.(cmpres < 0) in + Lwt.return (Gas.consume ctxt Interp_costs.compare_res) >>=? fun ctxt -> + logged_return (Item (cmpres, rest), ctxt) + | Le, Item (cmpres, rest) -> + let cmpres = Script_int.compare cmpres Script_int.zero in + let cmpres = Compare.Int.(cmpres <= 0) in + Lwt.return (Gas.consume ctxt Interp_costs.compare_res) >>=? fun ctxt -> + logged_return (Item (cmpres, rest), ctxt) + | Gt, Item (cmpres, rest) -> + let cmpres = Script_int.compare cmpres Script_int.zero in + let cmpres = Compare.Int.(cmpres > 0) in + Lwt.return (Gas.consume ctxt Interp_costs.compare_res) >>=? fun ctxt -> + logged_return (Item (cmpres, rest), ctxt) + | Ge, Item (cmpres, rest) -> + let cmpres = Script_int.compare cmpres Script_int.zero in + let cmpres = Compare.Int.(cmpres >= 0) in + Lwt.return (Gas.consume ctxt Interp_costs.compare_res) >>=? fun ctxt -> + logged_return (Item (cmpres, rest), ctxt) + (* packing *) + | Pack t, Item (value, rest) -> + Script_ir_translator.pack_data ctxt t value >>=? fun (bytes, ctxt) -> + logged_return (Item (bytes, rest), ctxt) + | Unpack t, Item (bytes, rest) -> + Lwt.return (Gas.check_enough ctxt (Script.serialized_cost bytes)) >>=? fun () -> + if Compare.Int.(MBytes.length bytes >= 1) && + Compare.Int.(MBytes.get_uint8 bytes 0 = 0x05) then + let bytes = MBytes.sub bytes 1 (MBytes.length bytes - 1) in + match Data_encoding.Binary.of_bytes Script.expr_encoding bytes with + | None -> + Lwt.return (Gas.consume ctxt (Interp_costs.unpack_failed bytes)) >>=? fun ctxt -> + logged_return (Item (None, rest), ctxt) + | Some expr -> + Lwt.return (Gas.consume ctxt (Script.deserialized_cost expr)) >>=? fun ctxt -> + parse_data ctxt ~legacy:false t (Micheline.root expr) >>= function + | Ok (value, ctxt) -> + logged_return (Item (Some value, rest), ctxt) + | Error _ignored -> Lwt.return (Gas.consume ctxt (Interp_costs.unpack_failed bytes)) >>=? fun ctxt -> logged_return (Item (None, rest), ctxt) - | Some expr -> - Lwt.return (Gas.consume ctxt (Script.deserialized_cost expr)) >>=? fun ctxt -> - parse_data ctxt ~legacy:false t (Micheline.root expr) >>= function - | Ok (value, ctxt) -> - logged_return (Item (Some value, rest), ctxt) - | Error _ignored -> - Lwt.return (Gas.consume ctxt (Interp_costs.unpack_failed bytes)) >>=? fun ctxt -> - logged_return (Item (None, rest), ctxt) - else - logged_return (Item (None, rest), ctxt) - (* protocol *) - | Address, Item ((_, address), rest) -> - Lwt.return (Gas.consume ctxt Interp_costs.address) >>=? fun ctxt -> - logged_return (Item (address, rest), ctxt) - | Contract (t, entrypoint), Item (contract, rest) -> - Lwt.return (Gas.consume ctxt Interp_costs.contract) >>=? fun ctxt -> - begin match contract, entrypoint with - | (contract, "default"), entrypoint | (contract, entrypoint), "default" -> - Script_ir_translator.parse_contract_for_script - ~legacy:false ctxt loc t contract ~entrypoint >>=? fun (ctxt, maybe_contract) -> - logged_return (Item (maybe_contract, rest), ctxt) - | _ -> logged_return (Item (None, rest), ctxt) - end - | Transfer_tokens, - Item (p, Item (amount, Item ((tp, (destination, entrypoint)), rest))) -> - Lwt.return (Gas.consume ctxt Interp_costs.transfer) >>=? fun ctxt -> - collect_big_maps ctxt tp p >>=? fun (to_duplicate, ctxt) -> - let to_update = no_big_map_id in - extract_big_map_diff ctxt Optimized tp p - ~to_duplicate ~to_update ~temporary:true >>=? fun (p, big_map_diff, ctxt) -> - unparse_data ctxt Optimized tp p >>=? fun (p, ctxt) -> - let operation = - Transaction - { amount ; destination ; entrypoint ; - parameters = Script.lazy_expr (Micheline.strip_locations p) } in - Lwt.return (fresh_internal_nonce ctxt) >>=? fun (ctxt, nonce) -> - logged_return (Item ((Internal_operation { source = self ; operation ; nonce }, big_map_diff), rest), ctxt) - | Create_account, - Item (manager, Item (delegate, Item (_delegatable, Item (credit, rest)))) -> - Lwt.return (Gas.consume ctxt Interp_costs.create_account) >>=? fun ctxt -> - Contract.fresh_contract_from_current_nonce ctxt >>=? fun (ctxt, contract) -> - (* store in optimized binary representation - as unparsed with [Optimized]. *) - let manager_bytes = - Data_encoding.Binary.to_bytes_exn Signature.Public_key_hash.encoding manager in - let storage = - Script_repr.lazy_expr @@ Micheline.strip_locations @@ - Micheline.Bytes (0, manager_bytes) in - let script = - { code = Legacy_support.manager_script_code ; - storage ; - } in - let operation = - Origination - { credit ; delegate ; preorigination = Some contract ; script } in - Lwt.return (fresh_internal_nonce ctxt) >>=? fun (ctxt, nonce) -> - logged_return (Item ((Internal_operation { source = self ; operation ; nonce }, None), - Item ((contract, "default"), rest)), ctxt) - | Implicit_account, Item (key, rest) -> - Lwt.return (Gas.consume ctxt Interp_costs.implicit_account) >>=? fun ctxt -> - let contract = Contract.implicit_contract key in - logged_return (Item ((Unit_t None, (contract, "default")), rest), ctxt) - | Create_contract (storage_type, param_type, Lam (_, code), root_name), - Item (manager, Item - (delegate, Item - (spendable, Item - (delegatable, Item - (credit, Item - (init, rest)))))) -> - Lwt.return (Gas.consume ctxt Interp_costs.create_contract) >>=? fun ctxt -> - unparse_ty ctxt param_type >>=? fun (unparsed_param_type, ctxt) -> - let unparsed_param_type = - Script_ir_translator.add_field_annot (Option.map ~f:(fun n -> `Field_annot n) root_name) None unparsed_param_type in - unparse_ty ctxt storage_type >>=? fun (unparsed_storage_type, ctxt) -> - let code = - Script.lazy_expr @@ - Micheline.strip_locations - (Seq (0, [ Prim (0, K_parameter, [ unparsed_param_type ], []) ; - Prim (0, K_storage, [ unparsed_storage_type ], []) ; - Prim (0, K_code, [ code ], []) ])) in - collect_big_maps ctxt storage_type init >>=? fun (to_duplicate, ctxt) -> - let to_update = no_big_map_id in - extract_big_map_diff ctxt Optimized storage_type init - ~to_duplicate ~to_update ~temporary:true >>=? fun (init, big_map_diff, ctxt) -> - unparse_data ctxt Optimized storage_type init >>=? fun (storage, ctxt) -> - let storage = Script.lazy_expr @@ Micheline.strip_locations storage in - begin - if spendable then - Legacy_support.add_do ~manager_pkh:manager - ~script_code:code ~script_storage:storage - else if delegatable then - Legacy_support.add_set_delegate ~manager_pkh:manager - ~script_code:code ~script_storage:storage - else if Legacy_support.has_default_entrypoint code then - Legacy_support.add_root_entrypoint code >>=? fun code -> - return (code, storage) - else return (code, storage) - end >>=? fun (code, storage) -> - Contract.fresh_contract_from_current_nonce ctxt >>=? fun (ctxt, contract) -> - let operation = - Origination - { credit ; delegate ; preorigination = Some contract ; - script = { code ; storage } } in - Lwt.return (fresh_internal_nonce ctxt) >>=? fun (ctxt, nonce) -> - logged_return - (Item ((Internal_operation { source = self ; operation ; nonce }, big_map_diff), - Item ((contract, "default"), rest)), ctxt) - | Create_contract_2 (storage_type, param_type, Lam (_, code), root_name), - (* Removed the instruction's arguments manager, spendable and delegatable *) - Item (delegate, Item - (credit, Item - (init, rest))) -> - Lwt.return (Gas.consume ctxt Interp_costs.create_contract) >>=? fun ctxt -> - unparse_ty ctxt param_type >>=? fun (unparsed_param_type, ctxt) -> - let unparsed_param_type = - Script_ir_translator.add_field_annot (Option.map ~f:(fun n -> `Field_annot n) root_name) None unparsed_param_type in - unparse_ty ctxt storage_type >>=? fun (unparsed_storage_type, ctxt) -> - let code = - Micheline.strip_locations - (Seq (0, [ Prim (0, K_parameter, [ unparsed_param_type ], []) ; - Prim (0, K_storage, [ unparsed_storage_type ], []) ; - Prim (0, K_code, [ code ], []) ])) in - collect_big_maps ctxt storage_type init >>=? fun (to_duplicate, ctxt) -> - let to_update = no_big_map_id in - extract_big_map_diff ctxt Optimized storage_type init - ~to_duplicate ~to_update ~temporary:true >>=? fun (init, big_map_diff, ctxt) -> - unparse_data ctxt Optimized storage_type init >>=? fun (storage, ctxt) -> - let storage = Micheline.strip_locations storage in - Contract.fresh_contract_from_current_nonce ctxt >>=? fun (ctxt, contract) -> - let operation = - Origination - { credit ; delegate ; preorigination = Some contract ; - script = { code = Script.lazy_expr code ; - storage = Script.lazy_expr storage } } in - Lwt.return (fresh_internal_nonce ctxt) >>=? fun (ctxt, nonce) -> - logged_return - (Item ((Internal_operation { source = self ; operation ; nonce }, big_map_diff), - Item ((contract, "default"), rest)), ctxt) - | Set_delegate, - Item (delegate, rest) -> - Lwt.return (Gas.consume ctxt Interp_costs.create_account) >>=? fun ctxt -> - let operation = Delegation delegate in - Lwt.return (fresh_internal_nonce ctxt) >>=? fun (ctxt, nonce) -> - logged_return (Item ((Internal_operation { source = self ; operation ; nonce }, None), rest), ctxt) - | Balance, rest -> - Lwt.return (Gas.consume ctxt Interp_costs.balance) >>=? fun ctxt -> - Contract.get_balance ctxt self >>=? fun balance -> - logged_return (Item (balance, rest), ctxt) - | Now, rest -> - Lwt.return (Gas.consume ctxt Interp_costs.now) >>=? fun ctxt -> - let now = Script_timestamp.now ctxt in - logged_return (Item (now, rest), ctxt) - | Check_signature, Item (key, Item (signature, Item (message, rest))) -> - Lwt.return (Gas.consume ctxt (Interp_costs.check_signature key message)) >>=? fun ctxt -> - let res = Signature.check key signature message in - logged_return (Item (res, rest), ctxt) - | Hash_key, Item (key, rest) -> - Lwt.return (Gas.consume ctxt Interp_costs.hash_key) >>=? fun ctxt -> - logged_return (Item (Signature.Public_key.hash key, rest), ctxt) - | Blake2b, Item (bytes, rest) -> - Lwt.return (Gas.consume ctxt (Interp_costs.hash_blake2b bytes)) >>=? fun ctxt -> - let hash = Raw_hashes.blake2b bytes in - logged_return (Item (hash, rest), ctxt) - | Sha256, Item (bytes, rest) -> - Lwt.return (Gas.consume ctxt (Interp_costs.hash_sha256 bytes)) >>=? fun ctxt -> - let hash = Raw_hashes.sha256 bytes in - logged_return (Item (hash, rest), ctxt) - | Sha512, Item (bytes, rest) -> - Lwt.return (Gas.consume ctxt (Interp_costs.hash_sha512 bytes)) >>=? fun ctxt -> - let hash = Raw_hashes.sha512 bytes in - logged_return (Item (hash, rest), ctxt) - | Steps_to_quota, rest -> - Lwt.return (Gas.consume ctxt Interp_costs.steps_to_quota) >>=? fun ctxt -> - let steps = match Gas.level ctxt with - | Limited { remaining } -> remaining - | Unaccounted -> Z.of_string "99999999" in - logged_return (Item (Script_int.(abs (of_zint steps)), rest), ctxt) - | Source, rest -> - Lwt.return (Gas.consume ctxt Interp_costs.source) >>=? fun ctxt -> - logged_return (Item ((payer, "default"), rest), ctxt) - | Sender, rest -> - Lwt.return (Gas.consume ctxt Interp_costs.source) >>=? fun ctxt -> - logged_return (Item ((source, "default"), rest), ctxt) - | Self (t, entrypoint), rest -> - Lwt.return (Gas.consume ctxt Interp_costs.self) >>=? fun ctxt -> - logged_return (Item ((t, (self, entrypoint)), rest), ctxt) - | Amount, rest -> - Lwt.return (Gas.consume ctxt Interp_costs.amount) >>=? fun ctxt -> - logged_return (Item (amount, rest), ctxt) - | Dig (n, n'), stack -> - Lwt.return (Gas.consume ctxt (Interp_costs.stack_n_op n)) >>=? fun ctxt -> - interp_stack_prefix_preserving_operation (fun (Item (v, rest)) -> return (rest, v)) n' stack - >>=? fun (aft, x) -> logged_return (Item (x, aft), ctxt) - | Dug (n, n'), Item (v, rest) -> - Lwt.return (Gas.consume ctxt (Interp_costs.stack_n_op n)) >>=? fun ctxt -> - interp_stack_prefix_preserving_operation (fun stk -> return (Item (v, stk), ())) n' rest - >>=? fun (aft, ()) -> logged_return (aft, ctxt) - | Dipn (n, n', b), stack -> - Lwt.return (Gas.consume ctxt (Interp_costs.stack_n_op n)) >>=? fun ctxt -> - interp_stack_prefix_preserving_operation (fun stk -> - step ctxt b stk >>=? fun (res, ctxt') -> - return (res, ctxt')) n' stack - >>=? fun (aft, ctxt') -> logged_return (aft, ctxt') - | Dropn (n, n'), stack -> - Lwt.return (Gas.consume ctxt (Interp_costs.stack_n_op n)) >>=? fun ctxt -> - interp_stack_prefix_preserving_operation (fun stk -> return (stk, stk)) n' stack - >>=? fun (_, rest) -> logged_return (rest, ctxt) - | ChainId, rest -> - Lwt.return (Gas.consume ctxt Interp_costs.chain_id) >>=? fun ctxt -> - logged_return (Item (chain_id, rest), ctxt) in + else + logged_return (Item (None, rest), ctxt) + (* protocol *) + | Address, Item ((_, address), rest) -> + Lwt.return (Gas.consume ctxt Interp_costs.address) >>=? fun ctxt -> + logged_return (Item (address, rest), ctxt) + | Contract (t, entrypoint), Item (contract, rest) -> + Lwt.return (Gas.consume ctxt Interp_costs.contract) >>=? fun ctxt -> + begin match contract, entrypoint with + | (contract, "default"), entrypoint | (contract, entrypoint), "default" -> + Script_ir_translator.parse_contract_for_script + ~legacy:false ctxt loc t contract ~entrypoint >>=? fun (ctxt, maybe_contract) -> + logged_return (Item (maybe_contract, rest), ctxt) + | _ -> logged_return (Item (None, rest), ctxt) + end + | Transfer_tokens, + Item (p, Item (amount, Item ((tp, (destination, entrypoint)), rest))) -> + Lwt.return (Gas.consume ctxt Interp_costs.transfer) >>=? fun ctxt -> + collect_big_maps ctxt tp p >>=? fun (to_duplicate, ctxt) -> + let to_update = no_big_map_id in + extract_big_map_diff ctxt Optimized tp p + ~to_duplicate ~to_update ~temporary:true >>=? fun (p, big_map_diff, ctxt) -> + unparse_data ctxt Optimized tp p >>=? fun (p, ctxt) -> + let operation = + Transaction + { amount ; destination ; entrypoint ; + parameters = Script.lazy_expr (Micheline.strip_locations p) } in + Lwt.return (fresh_internal_nonce ctxt) >>=? fun (ctxt, nonce) -> + logged_return (Item ((Internal_operation { source = step_constants.self ; operation ; nonce }, big_map_diff), rest), ctxt) + | Create_account, + Item (manager, Item (delegate, Item (_delegatable, Item (credit, rest)))) -> + Lwt.return (Gas.consume ctxt Interp_costs.create_account) >>=? fun ctxt -> + Contract.fresh_contract_from_current_nonce ctxt >>=? fun (ctxt, contract) -> + (* store in optimized binary representation - as unparsed with [Optimized]. *) + let manager_bytes = + Data_encoding.Binary.to_bytes_exn Signature.Public_key_hash.encoding manager in + let storage = + Script_repr.lazy_expr @@ Micheline.strip_locations @@ + Micheline.Bytes (0, manager_bytes) in + let script = + { code = Legacy_support.manager_script_code ; + storage ; + } in + let operation = + Origination + { credit ; delegate ; preorigination = Some contract ; script } in + Lwt.return (fresh_internal_nonce ctxt) >>=? fun (ctxt, nonce) -> + logged_return (Item ((Internal_operation { source = step_constants.self ; operation ; nonce }, None), + Item ((contract, "default"), rest)), ctxt) + | Implicit_account, Item (key, rest) -> + Lwt.return (Gas.consume ctxt Interp_costs.implicit_account) >>=? fun ctxt -> + let contract = Contract.implicit_contract key in + logged_return (Item ((Unit_t None, (contract, "default")), rest), ctxt) + | Create_contract (storage_type, param_type, Lam (_, code), root_name), + Item (manager, Item + (delegate, Item + (spendable, Item + (delegatable, Item + (credit, Item + (init, rest)))))) -> + Lwt.return (Gas.consume ctxt Interp_costs.create_contract) >>=? fun ctxt -> + unparse_ty ctxt param_type >>=? fun (unparsed_param_type, ctxt) -> + let unparsed_param_type = + Script_ir_translator.add_field_annot (Option.map ~f:(fun n -> `Field_annot n) root_name) None unparsed_param_type in + unparse_ty ctxt storage_type >>=? fun (unparsed_storage_type, ctxt) -> + let code = + Script.lazy_expr @@ + Micheline.strip_locations + (Seq (0, [ Prim (0, K_parameter, [ unparsed_param_type ], []) ; + Prim (0, K_storage, [ unparsed_storage_type ], []) ; + Prim (0, K_code, [ code ], []) ])) in + collect_big_maps ctxt storage_type init >>=? fun (to_duplicate, ctxt) -> + let to_update = no_big_map_id in + extract_big_map_diff ctxt Optimized storage_type init + ~to_duplicate ~to_update ~temporary:true >>=? fun (init, big_map_diff, ctxt) -> + unparse_data ctxt Optimized storage_type init >>=? fun (storage, ctxt) -> + let storage = Script.lazy_expr @@ Micheline.strip_locations storage in + begin + if spendable then + Legacy_support.add_do ~manager_pkh:manager + ~script_code:code ~script_storage:storage + else if delegatable then + Legacy_support.add_set_delegate ~manager_pkh:manager + ~script_code:code ~script_storage:storage + else if Legacy_support.has_default_entrypoint code then + Legacy_support.add_root_entrypoint code >>=? fun code -> + return (code, storage) + else return (code, storage) + end >>=? fun (code, storage) -> + Contract.fresh_contract_from_current_nonce ctxt >>=? fun (ctxt, contract) -> + let operation = + Origination + { credit ; delegate ; preorigination = Some contract ; + script = { code ; storage } } in + Lwt.return (fresh_internal_nonce ctxt) >>=? fun (ctxt, nonce) -> + logged_return + (Item ((Internal_operation { source = step_constants.self ; operation ; nonce }, big_map_diff), + Item ((contract, "default"), rest)), ctxt) + | Create_contract_2 (storage_type, param_type, Lam (_, code), root_name), + (* Removed the instruction's arguments manager, spendable and delegatable *) + Item (delegate, Item + (credit, Item + (init, rest))) -> + Lwt.return (Gas.consume ctxt Interp_costs.create_contract) >>=? fun ctxt -> + unparse_ty ctxt param_type >>=? fun (unparsed_param_type, ctxt) -> + let unparsed_param_type = + Script_ir_translator.add_field_annot (Option.map ~f:(fun n -> `Field_annot n) root_name) None unparsed_param_type in + unparse_ty ctxt storage_type >>=? fun (unparsed_storage_type, ctxt) -> + let code = + Micheline.strip_locations + (Seq (0, [ Prim (0, K_parameter, [ unparsed_param_type ], []) ; + Prim (0, K_storage, [ unparsed_storage_type ], []) ; + Prim (0, K_code, [ code ], []) ])) in + collect_big_maps ctxt storage_type init >>=? fun (to_duplicate, ctxt) -> + let to_update = no_big_map_id in + extract_big_map_diff ctxt Optimized storage_type init + ~to_duplicate ~to_update ~temporary:true >>=? fun (init, big_map_diff, ctxt) -> + unparse_data ctxt Optimized storage_type init >>=? fun (storage, ctxt) -> + let storage = Micheline.strip_locations storage in + Contract.fresh_contract_from_current_nonce ctxt >>=? fun (ctxt, contract) -> + let operation = + Origination + { credit ; delegate ; preorigination = Some contract ; + script = { code = Script.lazy_expr code ; + storage = Script.lazy_expr storage } } in + Lwt.return (fresh_internal_nonce ctxt) >>=? fun (ctxt, nonce) -> + logged_return + (Item ((Internal_operation { source = step_constants.self ; operation ; nonce }, big_map_diff), + Item ((contract, "default"), rest)), ctxt) + | Set_delegate, + Item (delegate, rest) -> + Lwt.return (Gas.consume ctxt Interp_costs.create_account) >>=? fun ctxt -> + let operation = Delegation delegate in + Lwt.return (fresh_internal_nonce ctxt) >>=? fun (ctxt, nonce) -> + logged_return (Item ((Internal_operation { source = step_constants.self ; operation ; nonce }, None), rest), ctxt) + | Balance, rest -> + Lwt.return (Gas.consume ctxt Interp_costs.balance) >>=? fun ctxt -> + Contract.get_balance ctxt step_constants.self >>=? fun balance -> + logged_return (Item (balance, rest), ctxt) + | Now, rest -> + Lwt.return (Gas.consume ctxt Interp_costs.now) >>=? fun ctxt -> + let now = Script_timestamp.now ctxt in + logged_return (Item (now, rest), ctxt) + | Check_signature, Item (key, Item (signature, Item (message, rest))) -> + Lwt.return (Gas.consume ctxt (Interp_costs.check_signature key message)) >>=? fun ctxt -> + let res = Signature.check key signature message in + logged_return (Item (res, rest), ctxt) + | Hash_key, Item (key, rest) -> + Lwt.return (Gas.consume ctxt Interp_costs.hash_key) >>=? fun ctxt -> + logged_return (Item (Signature.Public_key.hash key, rest), ctxt) + | Blake2b, Item (bytes, rest) -> + Lwt.return (Gas.consume ctxt (Interp_costs.hash_blake2b bytes)) >>=? fun ctxt -> + let hash = Raw_hashes.blake2b bytes in + logged_return (Item (hash, rest), ctxt) + | Sha256, Item (bytes, rest) -> + Lwt.return (Gas.consume ctxt (Interp_costs.hash_sha256 bytes)) >>=? fun ctxt -> + let hash = Raw_hashes.sha256 bytes in + logged_return (Item (hash, rest), ctxt) + | Sha512, Item (bytes, rest) -> + Lwt.return (Gas.consume ctxt (Interp_costs.hash_sha512 bytes)) >>=? fun ctxt -> + let hash = Raw_hashes.sha512 bytes in + logged_return (Item (hash, rest), ctxt) + | Steps_to_quota, rest -> + Lwt.return (Gas.consume ctxt Interp_costs.steps_to_quota) >>=? fun ctxt -> + let steps = match Gas.level ctxt with + | Limited { remaining } -> remaining + | Unaccounted -> Z.of_string "99999999" in + logged_return (Item (Script_int.(abs (of_zint steps)), rest), ctxt) + | Source, rest -> + Lwt.return (Gas.consume ctxt Interp_costs.source) >>=? fun ctxt -> + logged_return (Item ((step_constants.payer, "default"), rest), ctxt) + | Sender, rest -> + Lwt.return (Gas.consume ctxt Interp_costs.source) >>=? fun ctxt -> + logged_return (Item ((step_constants.source, "default"), rest), ctxt) + | Self (t, entrypoint), rest -> + Lwt.return (Gas.consume ctxt Interp_costs.self) >>=? fun ctxt -> + logged_return (Item ((t, (step_constants.self, entrypoint)), rest), ctxt) + | Amount, rest -> + Lwt.return (Gas.consume ctxt Interp_costs.amount) >>=? fun ctxt -> + logged_return (Item (step_constants.amount, rest), ctxt) + | Dig (n, n'), stack -> + Lwt.return (Gas.consume ctxt (Interp_costs.stack_n_op n)) >>=? fun ctxt -> + interp_stack_prefix_preserving_operation (fun (Item (v, rest)) -> return (rest, v)) n' stack + >>=? fun (aft, x) -> logged_return (Item (x, aft), ctxt) + | Dug (n, n'), Item (v, rest) -> + Lwt.return (Gas.consume ctxt (Interp_costs.stack_n_op n)) >>=? fun ctxt -> + interp_stack_prefix_preserving_operation (fun stk -> return (Item (v, stk), ())) n' rest + >>=? fun (aft, ()) -> logged_return (aft, ctxt) + | Dipn (n, n', b), stack -> + Lwt.return (Gas.consume ctxt (Interp_costs.stack_n_op n)) >>=? fun ctxt -> + interp_stack_prefix_preserving_operation (fun stk -> + step ?log ctxt step_constants b stk >>=? fun (res, ctxt') -> + return (res, ctxt')) n' stack + >>=? fun (aft, ctxt') -> logged_return (aft, ctxt') + | Dropn (n, n'), stack -> + Lwt.return (Gas.consume ctxt (Interp_costs.stack_n_op n)) >>=? fun ctxt -> + interp_stack_prefix_preserving_operation (fun stk -> return (stk, stk)) n' stack + >>=? fun (_, rest) -> logged_return (rest, ctxt) + | ChainId, rest -> + Lwt.return (Gas.consume ctxt Interp_costs.chain_id) >>=? fun ctxt -> + logged_return (Item (step_constants.chain_id, rest), ctxt) + +and interp + : type p r. + (?log: execution_trace ref -> + context -> + step_constants -> (p, r) lambda -> p -> + (r * context) tzresult Lwt.t) + = fun ?log ctxt step_constants (Lam (code, _)) arg -> let stack = (Item (arg, Empty)) in begin match log with | None -> return_unit @@ -970,27 +978,27 @@ let rec interp log := (code.loc, Gas.level ctxt, stack) :: !log ; return_unit end >>=? fun () -> - step ctxt code stack >>=? fun (Item (ret, Empty), ctxt) -> + step ctxt step_constants code stack >>=? fun (Item (ret, Empty), ctxt) -> return (ret, ctxt) (* ---- contract handling ---------------------------------------------------*) -and execute ?log ctxt mode ~source ~payer ~self ~chain_id ~entrypoint unparsed_script amount arg : +and execute ?log ctxt mode step_constants ~entrypoint unparsed_script arg : (Script.expr * packed_internal_operation list * context * Contract.big_map_diff option) tzresult Lwt.t = parse_script ctxt unparsed_script ~legacy:true >>=? fun (Ex_script { code ; arg_type ; storage ; storage_type ; root_name }, ctxt) -> trace - (Bad_contract_parameter self) + (Bad_contract_parameter step_constants.self) (Lwt.return (find_entrypoint arg_type ~root_name entrypoint)) >>=? fun (box, _) -> trace - (Bad_contract_parameter self) + (Bad_contract_parameter step_constants.self) (parse_data ctxt ~legacy:false arg_type (box arg)) >>=? fun (arg, ctxt) -> Script.force_decode ctxt unparsed_script.code >>=? fun (script_code, ctxt) -> Script_ir_translator.collect_big_maps ctxt arg_type arg >>=? fun (to_duplicate, ctxt) -> Script_ir_translator.collect_big_maps ctxt storage_type storage >>=? fun (to_update, ctxt) -> trace - (Runtime_contract_error (self, script_code)) - (interp ?log ctxt ~source ~payer ~self amount ~chain_id code (arg, storage)) + (Runtime_contract_error (step_constants.self, script_code)) + (interp ?log ctxt step_constants code (arg, storage)) >>=? fun ((ops, storage), ctxt) -> Script_ir_translator.extract_big_map_diff ctxt mode ~temporary:false ~to_duplicate ~to_update storage_type storage @@ -1011,14 +1019,14 @@ type execution_result = big_map_diff : Contract.big_map_diff option ; operations : packed_internal_operation list } -let trace ctxt mode ~source ~payer ~chain_id ~self:(self, script) ~entrypoint ~parameter ~amount = +let trace ctxt mode step_constants ~script ~entrypoint ~parameter = let log = ref [] in - execute ~log ctxt mode ~source ~payer ~chain_id ~self ~entrypoint script amount (Micheline.root parameter) + execute ~log ctxt mode step_constants ~entrypoint script (Micheline.root parameter) >>=? fun (storage, operations, ctxt, big_map_diff) -> let trace = List.rev !log in return ({ ctxt ; storage ; big_map_diff ; operations }, trace) -let execute ctxt mode ~source ~payer ~chain_id ~self:(self, script) ~entrypoint ~parameter ~amount = - execute ctxt mode ~source ~payer ~chain_id ~self ~entrypoint script amount (Micheline.root parameter) +let execute ctxt mode step_constants ~script ~entrypoint ~parameter = + execute ctxt mode step_constants ~entrypoint script (Micheline.root parameter) >>=? fun (storage, operations, ctxt, big_map_diff) -> return { ctxt ; storage ; big_map_diff ; operations } diff --git a/src/proto_alpha/lib_protocol/script_interpreter.mli b/src/proto_alpha/lib_protocol/script_interpreter.mli index dbf562a80fbf..7d583d37ab2f 100644 --- a/src/proto_alpha/lib_protocol/script_interpreter.mli +++ b/src/proto_alpha/lib_protocol/script_interpreter.mli @@ -42,26 +42,38 @@ type execution_result = big_map_diff : Contract.big_map_diff option ; operations : packed_internal_operation list } +type step_constants = + { source : Contract.t ; + payer : Contract.t ; + self : Contract.t ; + amount : Tez.t ; + chain_id : Chain_id.t } + +type 'tys stack = + | Item : 'ty * 'rest stack -> ('ty * 'rest) stack + | Empty : Script_typed_ir.end_of_stack stack + +val step: + ?log: execution_trace ref -> + context -> step_constants -> + ('bef, 'aft) Script_typed_ir.descr -> + 'bef stack -> + ('aft stack * context) tzresult Lwt.t + val execute: Alpha_context.t -> Script_ir_translator.unparsing_mode -> - source: Contract.t -> - payer: Contract.t -> - chain_id: Chain_id.t -> - self: (Contract.t * Script.t) -> + step_constants -> + script: Script.t -> entrypoint: string -> parameter: Script.expr -> - amount: Tez.t -> execution_result tzresult Lwt.t val trace: Alpha_context.t -> Script_ir_translator.unparsing_mode -> - source: Contract.t -> - payer: Contract.t -> - chain_id: Chain_id.t -> - self: (Contract.t * Script.t) -> + step_constants -> + script: Script.t -> entrypoint: string -> parameter: Script.expr -> - amount: Tez.t -> (execution_result * execution_trace) tzresult Lwt.t diff --git a/src/proto_alpha/lib_protocol/script_ir_translator.mli b/src/proto_alpha/lib_protocol/script_ir_translator.mli index 432b0cfce33a..41843bb34794 100644 --- a/src/proto_alpha/lib_protocol/script_ir_translator.mli +++ b/src/proto_alpha/lib_protocol/script_ir_translator.mli @@ -32,6 +32,17 @@ type ex_comparable_ty = Ex_comparable_ty : 'a Script_typed_ir.comparable_ty -> e type ex_ty = Ex_ty : 'a Script_typed_ir.ty -> ex_ty type ex_stack_ty = Ex_stack_ty : 'a Script_typed_ir.stack_ty -> ex_stack_ty type ex_script = Ex_script : ('a, 'b) Script_typed_ir.script -> ex_script +type tc_context = + | Lambda : tc_context + | Dip : 'a Script_typed_ir.stack_ty * tc_context -> tc_context + | Toplevel : { storage_type : 'sto Script_typed_ir.ty ; + param_type : 'param Script_typed_ir.ty ; + root_name : string option ; + legacy_create_contract_literal : bool } -> tc_context +type 'bef judgement = + | Typed : ('bef, 'aft) Script_typed_ir.descr -> 'bef judgement + | Failed : + { descr : 'aft. 'aft Script_typed_ir.stack_ty -> ('bef, 'aft) Script_typed_ir.descr } -> 'bef judgement type unparsing_mode = Optimized | Readable @@ -87,6 +98,11 @@ val unparse_data : context -> unparsing_mode -> 'a Script_typed_ir.ty -> 'a -> (Script.node * context) tzresult Lwt.t +val parse_instr : + ?type_logger: type_logger -> + tc_context -> context -> legacy: bool -> + Script.node -> 'bef Script_typed_ir.stack_ty -> ('bef judgement * context) tzresult Lwt.t + val parse_ty : context -> legacy: bool -> allow_big_map: bool -> -- GitLab From 7481eef85a0ecf2900c187e94c9bfde62a5ed6a7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Rapha=C3=ABl=20Cauderlier?= Date: Tue, 23 Jul 2019 14:10:04 +0200 Subject: [PATCH 062/252] Proto/Michelson: Deprecate instruction STEPS_TO_QUOTA The semantics of the STEPS_TO_QUOTA instruction changes each time the gas constants are modified to better reflect the real costs. Moreover, because of STEPS_TO_QUOTA, the interpreter is not monotonic: it is easy to write a contract that runs successfully at some gas amount but fails when more gas is given. --- .../lib_protocol/script_ir_translator.ml | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) diff --git a/src/proto_alpha/lib_protocol/script_ir_translator.ml b/src/proto_alpha/lib_protocol/script_ir_translator.ml index 74eb556293c1..5ad517ab4b39 100644 --- a/src/proto_alpha/lib_protocol/script_ir_translator.ml +++ b/src/proto_alpha/lib_protocol/script_ir_translator.ml @@ -3160,9 +3160,16 @@ and parse_instr (Item_t (Bytes_t None, rest, annot)) | Prim (loc, I_STEPS_TO_QUOTA, [], annot), stack -> - parse_var_annot loc annot ~default:default_steps_annot >>=? fun annot -> - typed ctxt loc Steps_to_quota - (Item_t (Nat_t None, stack, annot)) + if legacy + then begin + (* For existing contracts, this instruction is still allowed *) + parse_var_annot loc annot ~default:default_steps_annot >>=? fun annot -> + typed ctxt loc Steps_to_quota + (Item_t (Nat_t None, stack, annot)) + end + else + (* For new contracts this instruction is not allowed anymore *) + fail (Deprecated_instruction I_STEPS_TO_QUOTA) | Prim (loc, I_SOURCE, [], annot), stack -> parse_var_annot loc annot ~default:default_source_annot >>=? fun annot -> -- GitLab From 5139955cd8bd04ba0b5f0354aa0c32fe3fbdd476 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Tom=C3=A1=C5=A1=20Zemanovi=C4=8D?= Date: Wed, 5 Jun 2019 11:13:18 +0200 Subject: [PATCH 063/252] Parameters: add constants for Emmy+, proposal_quorum and quorum caps This is not a patch for the protocol. It does not affect the hash, but it adds the new constants for Emmy+, proposal quorum and quorum caps to the parameters used to bootstrap a protocol in tests or test-nets. --- src/proto_alpha/lib_parameters/default_parameters.ml | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/src/proto_alpha/lib_parameters/default_parameters.ml b/src/proto_alpha/lib_parameters/default_parameters.ml index b9dcfcf39990..1da7d964151d 100644 --- a/src/proto_alpha/lib_parameters/default_parameters.ml +++ b/src/proto_alpha/lib_parameters/default_parameters.ml @@ -33,7 +33,7 @@ let constants_mainnet = blocks_per_commitment = 32l; blocks_per_roll_snapshot = 256l; blocks_per_voting_period = 32768l; - time_between_blocks = List.map Period_repr.of_seconds_exn [60L; 75L]; + time_between_blocks = List.map Period_repr.of_seconds_exn [60L; 40L]; endorsers_per_block = 32; hard_gas_limit_per_operation = Z.of_int 800_000; hard_gas_limit_per_block = Z.of_int 8_000_000; @@ -50,6 +50,12 @@ let constants_mainnet = hard_storage_limit_per_operation = Z.of_int 60_000; cost_per_byte = Tez_repr.of_mutez_exn 1_000L; test_chain_duration = Int64.mul 32768L 60L; + quorum_min = 20_00l; + (* quorum is in centile of a percentage *) + quorum_max = 70_00l; + min_proposal_quorum = 5_00l; + initial_endorsers = 24; + delay_per_missing_endorsement = Period_repr.of_seconds_exn 8L; } let constants_sandbox = @@ -63,6 +69,8 @@ let constants_sandbox = blocks_per_voting_period = 64l; time_between_blocks = List.map Period_repr.of_seconds_exn [1L; 0L]; proof_of_work_threshold = Int64.of_int (-1); + initial_endorsers = 1; + delay_per_missing_endorsement = Period_repr.of_seconds_exn 1L; } let constants_test = @@ -75,6 +83,8 @@ let constants_test = blocks_per_voting_period = 256l; time_between_blocks = List.map Period_repr.of_seconds_exn [1L; 0L]; proof_of_work_threshold = Int64.of_int (-1); + initial_endorsers = 1; + delay_per_missing_endorsement = Period_repr.of_seconds_exn 1L; } let bootstrap_accounts_strings = -- GitLab From 0bfad1ba48ffd228f337da339eaa0df7dbd0fc60 Mon Sep 17 00:00:00 2001 From: Benjamin Canou Date: Tue, 23 Jul 2019 18:18:27 +0200 Subject: [PATCH 064/252] Tests/OCaml: Adapt to the new protocol - Add test to quorum caps. - Adapt tests to the new endorsement semantics. - Adapt tests for delegatable implicit accounts. - Add tests for minimum proposal quorum. - Adapt tests for lightweight multiple entrypoints. - Adapt tests for disabled storage of values of type contract t --- .../test/test_michelson_v1_macros.ml | 26 +- src/proto_alpha/lib_protocol/test/baking.ml | 53 +- .../lib_protocol/test/combined_operations.ml | 21 +- .../lib_protocol/test/delegation.ml | 837 +++++++++--------- .../lib_protocol/test/double_endorsement.ml | 6 +- .../lib_protocol/test/endorsement.ml | 332 ++++--- .../lib_protocol/test/helpers/block.ml | 48 +- .../lib_protocol/test/helpers/block.mli | 6 + .../lib_protocol/test/helpers/context.ml | 78 +- .../lib_protocol/test/helpers/context.mli | 19 +- .../lib_protocol/test/helpers/dune | 1 + .../lib_protocol/test/helpers/incremental.ml | 8 +- .../lib_protocol/test/helpers/op.ml | 70 +- .../lib_protocol/test/helpers/op.mli | 10 +- .../lib_protocol/test/origination.ml | 313 +------ src/proto_alpha/lib_protocol/test/qty.ml | 16 +- src/proto_alpha/lib_protocol/test/seed.ml | 16 +- src/proto_alpha/lib_protocol/test/transfer.ml | 99 +-- src/proto_alpha/lib_protocol/test/voting.ml | 340 ++++++- 19 files changed, 1252 insertions(+), 1047 deletions(-) diff --git a/src/proto_alpha/lib_client/test/test_michelson_v1_macros.ml b/src/proto_alpha/lib_client/test/test_michelson_v1_macros.ml index f2a287707ee1..73f3a569e91c 100644 --- a/src/proto_alpha/lib_client/test/test_michelson_v1_macros.ml +++ b/src/proto_alpha/lib_client/test/test_michelson_v1_macros.ml @@ -265,10 +265,17 @@ let test_assert_right () = let test_diip () = let code = Seq (zero_loc, [Prim (zero_loc, "CAR", [], [])]) in - let dip = Prim (zero_loc, "DIP", [code], []) in + assert_expands + (Prim (zero_loc, "DIP", [code], [])) + (Prim (zero_loc, "DIP", [code], [])) + >>? fun () -> + assert_expands + (Prim (zero_loc, "DIIIIIIIIP", [code], [])) + (Prim (zero_loc, "DIP", [Int (zero_loc, Z.of_int 8); code], [])) + >>? fun () -> assert_expands (Prim (zero_loc, "DIIP", [code], [])) - (Seq (zero_loc, [Prim (zero_loc, "DIP", [Seq (zero_loc, [dip])], [])])) + (Prim (zero_loc, "DIP", [Int (zero_loc, Z.of_int 2); code], [])) (* pair *) @@ -698,7 +705,7 @@ let test_unexpand_duup () = [Seq (zero_loc, [Prim (zero_loc, "DUP", [], [])])], [] ); Prim (zero_loc, "SWAP", [], []) ] )) - (Prim (zero_loc, "DUUP", [], [])) + (Prim (zero_loc, "DUP", [Int (zero_loc, Z.of_int 2)], [])) let test_unexpand_caddadr () = let car = Prim (zero_loc, "CAR", [], []) in @@ -822,10 +829,9 @@ let test_unexpand_map_car () = let test_unexpand_diip () = let code = Seq (zero_loc, [Prim (zero_loc, "CAR", [], [])]) in - let dip = Prim (zero_loc, "DIP", [code], []) in assert_unexpansion (Prim (zero_loc, "DIIP", [code], [])) - (Seq (zero_loc, [Prim (zero_loc, "DIP", [Seq (zero_loc, [dip])], [])])) + (Prim (zero_loc, "DIP", [Int (zero_loc, Z.of_int 2); code], [])) let test_unexpand_map_cdr () = let code = Seq (zero_loc, [Prim (zero_loc, "CAR", [], [])]) in @@ -922,7 +928,9 @@ let test_unexpand_diip_duup1 () = let cst str = Prim (zero_loc, str, [], []) in let app str code = Prim (zero_loc, str, [code], []) in let dip = app "DIP" in - let diip = app "DIIP" in + let diip code = + Prim (zero_loc, "DIP", [Int (zero_loc, Z.of_int 2); code], []) + in let dup = cst "DUP" in let swap = cst "SWAP" in let dip_dup_swap = Seq (zero_loc, [dip (single dup); swap]) in @@ -937,9 +945,11 @@ let test_unexpand_diip_duup2 () = let cst str = Prim (zero_loc, str, [], []) in let app str code = Prim (zero_loc, str, [code], []) in let dip = app "DIP" in - let diip = app "DIIP" in + let diip code = + Prim (zero_loc, "DIP", [Int (zero_loc, Z.of_int 2); code], []) + in let dup = cst "DUP" in - let duup = cst "DUUP" in + let duup = Prim (zero_loc, "DUP", [Int (zero_loc, Z.of_int 2)], []) in let swap = cst "SWAP" in let dip_dup_swap = Seq (zero_loc, [dip (single dup); swap]) in assert_unexpansion diff --git a/src/proto_alpha/lib_protocol/test/baking.ml b/src/proto_alpha/lib_protocol/test/baking.ml index 1a7ea2519eb7..2e429179dbd4 100644 --- a/src/proto_alpha/lib_protocol/test/baking.ml +++ b/src/proto_alpha/lib_protocol/test/baking.ml @@ -24,6 +24,8 @@ (*****************************************************************************) open Protocol +open Alpha_context +open Test_utils (** Tests for [bake_n] and [bake_until_end_cycle]. *) let test_cycle () = @@ -64,4 +66,53 @@ let test_cycle () = (Alpha_context.Raw_level.to_int32 curr_level) (Int32.add (Alpha_context.Raw_level.to_int32 l) 10l) -let tests = [Test.tztest "cycle" `Quick test_cycle] +(** Tests the formula introduced in Emmy+ for block reward: + (16/(p+1)) * (0.8 + 0.2 * e / 32) + where p is the block priority and + e is the number of included endorsements *) +let test_block_reward priority () = + ( match priority with + | 0 -> + Test_tez.Tez.(of_int 128 /? Int64.of_int 10) + >>?= fun min -> return (Test_tez.Tez.of_int 16, min) + | 1 -> + Test_tez.Tez.(of_int 64 /? Int64.of_int 10) + >>?= fun min -> return (Test_tez.Tez.of_int 8, min) + | 3 -> + Test_tez.Tez.(of_int 32 /? Int64.of_int 10) + >>?= fun min -> return (Test_tez.Tez.of_int 4, min) + | _ -> + fail (invalid_arg "prio should be 0, 1, or 3") ) + >>=? fun (expected_reward_max_endo, expected_reward_min_endo) -> + let endorsers_per_block = 32 in + Context.init ~endorsers_per_block 32 + >>=? fun (b, _) -> + Context.get_endorsers (B b) + >>=? fun endorsers -> + fold_left_s + (fun ops (endorser : Alpha_services.Delegate.Endorsing_rights.t) -> + let delegate = endorser.delegate in + Op.endorsement ~delegate (B b) () + >>=? fun op -> return (Operation.pack op :: ops)) + [] + endorsers + >>=? fun ops -> + Block.bake ~policy:(By_priority 0) ~operations:ops b + >>=? fun b -> + (* bake a block at priority 0 and 32 endorsements; + the reward is 16 tez *) + Context.get_baking_reward (B b) ~priority ~endorsing_power:32 + >>=? fun baking_reward -> + Assert.equal_tez ~loc:__LOC__ baking_reward expected_reward_max_endo + >>=? fun () -> + (* bake a block at priority 0 and 0 endorsements; + the reward is 12.8 tez *) + Context.get_baking_reward (B b) ~priority ~endorsing_power:0 + >>=? fun baking_reward -> + Assert.equal_tez ~loc:__LOC__ baking_reward expected_reward_min_endo + +let tests = + [ Test.tztest "cycle" `Quick test_cycle; + Test.tztest "block_reward for priority 0" `Quick (test_block_reward 0); + Test.tztest "block_reward for priority 1" `Quick (test_block_reward 1); + Test.tztest "block_reward for priority 3" `Quick (test_block_reward 3) ] diff --git a/src/proto_alpha/lib_protocol/test/combined_operations.ml b/src/proto_alpha/lib_protocol/test/combined_operations.ml index 428be0c5bc0b..63b4bf20e69c 100644 --- a/src/proto_alpha/lib_protocol/test/combined_operations.ml +++ b/src/proto_alpha/lib_protocol/test/combined_operations.ml @@ -79,24 +79,24 @@ let multiple_origination_and_delegation () = Context.init 2 >>=? fun (blk, contracts) -> let c1 = List.nth contracts 0 in + let c2 = List.nth contracts 1 in let n = 10 in Context.get_constants (B blk) >>=? fun {parametric = {origination_size; cost_per_byte; _}; _} -> - Context.Contract.pkh c1 + Context.Contract.pkh c2 >>=? fun delegate_pkh -> - let new_accounts = List.map (fun _ -> Account.new_account ()) (1 -- n) in - mapi_s - (fun i {Account.pk; _} -> + (* Deploy n smart contracts with dummy scripts from c1 *) + map_s + (fun i -> Op.origination ~delegate:delegate_pkh ~counter:(Z.of_int i) ~fee:Tez.zero - ~public_key:pk - ~spendable:true + ~script:Op.dummy_script ~credit:(Tez.of_int 10) (B blk) c1) - new_accounts + (1 -- n) >>=? fun originations -> (* These computed originated contracts are not the ones really created *) (* We will extract them from the tickets *) @@ -141,8 +141,11 @@ let multiple_origination_and_delegation () = >>?= fun origination_burn -> Tez.(origination_burn *? Int64.of_int n) >>?= fun origination_total_cost -> - Tez.(Tez.of_int (10 * n) +? origination_total_cost) - >>?= fun total_cost -> + Lwt.return + ( Tez.( *? ) Op.dummy_script_cost 10L + >>? Tez.( +? ) (Tez.of_int (10 * n)) + >>? Tez.( +? ) origination_total_cost ) + >>=? fun total_cost -> Assert.balance_was_debited ~loc:__LOC__ (I inc) c1 c1_old_balance total_cost >>=? fun () -> iter_s diff --git a/src/proto_alpha/lib_protocol/test/delegation.ml b/src/proto_alpha/lib_protocol/test/delegation.ml index 1a73958d0f7c..f40bc370dc00 100644 --- a/src/proto_alpha/lib_protocol/test/delegation.ml +++ b/src/proto_alpha/lib_protocol/test/delegation.ml @@ -43,14 +43,7 @@ let expect_error err = function let expect_alpha_error err = expect_error (Environment.Ecoproto_error err) -let expect_non_delegatable_contract = function - | Environment.Ecoproto_error (Delegate_storage.Non_delegatable_contract _) - :: _ -> - return_unit - | _ -> - failwith "Contract is not delegatable and operation should fail." - -let expect_no_deletion_pkh pkh = function +let expect_no_change_registered_delegate_pkh pkh = function | Environment.Ecoproto_error (Delegate_storage.No_deletion pkh0) :: _ when pkh0 = pkh -> return_unit @@ -83,6 +76,7 @@ let bootstrap_delegate_cannot_change ~fee () = >>=? fun balance0 -> Context.Contract.delegate (I i) bootstrap0 >>=? fun delegate0 -> + (* change delegation to bootstrap1 *) Op.delegation ~fee (I i) bootstrap0 (Some manager1.pkh) >>=? fun set_delegate -> if fee > balance0 then @@ -95,7 +89,7 @@ let bootstrap_delegate_cannot_change ~fee () = false) else Incremental.add_operation - ~expect_failure:expect_non_delegatable_contract + ~expect_failure:(expect_no_change_registered_delegate_pkh delegate0) i set_delegate >>=? fun i -> @@ -104,7 +98,7 @@ let bootstrap_delegate_cannot_change ~fee () = (* bootstrap0 still has same delegate *) Context.Contract.delegate (B b) bootstrap0 >>=? fun delegate0_after -> - Assert.equal_pkh ~loc:__LOC__ delegate0 delegate0_after + Assert.equal_pkh ~loc:__LOC__ delegate0_after delegate0 >>=? fun () -> (* fee has been debited *) Assert.balance_was_debited ~loc:__LOC__ (B b) bootstrap0 balance0 fee @@ -122,6 +116,7 @@ let bootstrap_delegate_cannot_be_removed ~fee () = >>=? fun delegate -> Context.Contract.manager (I i) bootstrap >>=? fun manager -> + (* remove delegation *) Op.delegation ~fee (I i) bootstrap None >>=? fun set_delegate -> if fee > balance then @@ -134,7 +129,7 @@ let bootstrap_delegate_cannot_be_removed ~fee () = false) else Incremental.add_operation - ~expect_failure:(expect_no_deletion_pkh manager.pkh) + ~expect_failure:(expect_no_change_registered_delegate_pkh manager.pkh) i set_delegate >>=? fun i -> @@ -146,6 +141,112 @@ let bootstrap_delegate_cannot_be_removed ~fee () = (* fee has been debited *) Assert.balance_was_debited ~loc:__LOC__ (I i) bootstrap balance fee +(** contracts not registered as delegate can change their delegation *) +let delegate_can_be_changed_from_unregistered_contract ~fee () = + Context.init 2 + >>=? fun (b, bootstrap_contracts) -> + let bootstrap0 = List.hd bootstrap_contracts in + let bootstrap1 = List.nth bootstrap_contracts 1 in + let unregistered_account = Account.new_account () in + let unregistered_pkh = Account.(unregistered_account.pkh) in + let unregistered = Contract.implicit_contract unregistered_pkh in + Incremental.begin_construction b + >>=? fun i -> + Context.Contract.manager (I i) bootstrap0 + >>=? fun manager0 -> + Context.Contract.manager (I i) bootstrap1 + >>=? fun manager1 -> + let credit = Tez.of_int 10 in + Op.transaction ~fee:Tez.zero (I i) bootstrap0 unregistered credit + >>=? fun credit_contract -> + Context.Contract.balance (I i) bootstrap0 + >>=? fun balance -> + Incremental.add_operation i credit_contract + >>=? fun i -> + (* delegate to bootstrap0 *) + Op.delegation ~fee:Tez.zero (I i) unregistered (Some manager0.pkh) + >>=? fun set_delegate -> + Incremental.add_operation i set_delegate + >>=? fun i -> + Context.Contract.delegate (I i) unregistered + >>=? fun delegate -> + Assert.equal_pkh ~loc:__LOC__ delegate manager0.pkh + >>=? fun () -> + (* change delegation to bootstrap1 *) + Op.delegation ~fee (I i) unregistered (Some manager1.pkh) + >>=? fun change_delegate -> + if fee > balance then + Incremental.add_operation i change_delegate + >>= fun err -> + Assert.proto_error ~loc:__LOC__ err (function + | Contract_storage.Balance_too_low _ -> + true + | _ -> + false) + else + Incremental.add_operation i change_delegate + >>=? fun i -> + (* delegate has changed *) + Context.Contract.delegate (I i) unregistered + >>=? fun delegate_after -> + Assert.equal_pkh ~loc:__LOC__ delegate_after manager1.pkh + >>=? fun () -> + (* fee has been debited *) + Assert.balance_was_debited ~loc:__LOC__ (I i) unregistered credit fee + +(** contracts not registered as delegate can delete their delegation *) +let delegate_can_be_removed_from_unregistered_contract ~fee () = + Context.init 1 + >>=? fun (b, bootstrap_contracts) -> + let bootstrap = List.hd bootstrap_contracts in + let unregistered_account = Account.new_account () in + let unregistered_pkh = Account.(unregistered_account.pkh) in + let unregistered = Contract.implicit_contract unregistered_pkh in + Incremental.begin_construction b + >>=? fun i -> + Context.Contract.manager (I i) bootstrap + >>=? fun manager -> + let credit = Tez.of_int 10 in + Op.transaction ~fee:Tez.zero (I i) bootstrap unregistered credit + >>=? fun credit_contract -> + Context.Contract.balance (I i) bootstrap + >>=? fun balance -> + Incremental.add_operation i credit_contract + >>=? fun i -> + (* delegate to bootstrap *) + Op.delegation ~fee:Tez.zero (I i) unregistered (Some manager.pkh) + >>=? fun set_delegate -> + Incremental.add_operation i set_delegate + >>=? fun i -> + Context.Contract.delegate (I i) unregistered + >>=? fun delegate -> + Assert.equal_pkh ~loc:__LOC__ delegate manager.pkh + >>=? fun () -> + (* remove delegation *) + Op.delegation ~fee (I i) unregistered None + >>=? fun delete_delegate -> + if fee > balance then + Incremental.add_operation i delete_delegate + >>= fun err -> + Assert.proto_error ~loc:__LOC__ err (function + | Contract_storage.Balance_too_low _ -> + true + | _ -> + false) + else + Incremental.add_operation i delete_delegate + >>=? fun i -> + (* the delegate has been removed *) + Context.Contract.delegate_opt (I i) unregistered + >>=? (function + | None -> + return_unit + | Some _ -> + failwith "Expected delegate to be removed") + >>=? fun () -> + (* fee has been debited *) + Assert.balance_was_debited ~loc:__LOC__ (I i) unregistered credit fee + (** bootstrap keys are already registered as delegate keys *) let bootstrap_manager_already_registered_delegate ~fee () = Context.init 1 @@ -195,14 +296,21 @@ let delegate_to_bootstrap_by_origination ~fee () = Context.Contract.balance (I i) bootstrap >>=? fun balance -> (* originate a contract with bootstrap's manager as delegate *) - Op.origination ~fee ~credit:Tez.zero ~delegate:manager.pkh (I i) bootstrap + Op.origination + ~fee + ~credit:Tez.zero + ~delegate:manager.pkh + (I i) + bootstrap + ~script:Op.dummy_script >>=? fun (op, orig_contract) -> Context.get_constants (I i) >>=? fun {parametric = {origination_size; cost_per_byte; _}; _} -> (* 0.257tz *) Tez.(cost_per_byte *? Int64.of_int origination_size) >>?= fun origination_burn -> - Lwt.return (Tez.( +? ) fee origination_burn) + Lwt.return + (Tez.( +? ) fee origination_burn >>? Tez.( +? ) Op.dummy_script_cost) >>=? fun total_fee -> if fee > balance then Incremental.add_operation i op @@ -245,126 +353,47 @@ let delegate_to_bootstrap_by_origination ~fee () = >>=? fun () -> Assert.balance_was_debited ~loc:__LOC__ (I i) bootstrap balance total_fee -(** bootstrap manager can be set as delegate of an originated contract - without initial delegate (through delegation operation) *) -let delegate_to_bootstrap_by_delegation ~fee () = - Context.init 1 - >>=? fun (b, bootstrap_contracts) -> - Incremental.begin_construction b - >>=? fun i -> - let bootstrap = List.hd bootstrap_contracts in - Context.Contract.manager (I i) bootstrap - >>=? fun manager -> - (* originate a contract with no delegate *) - Op.origination ~fee:Tez.zero (I i) bootstrap - >>=? fun (op, orig_contract) -> - Incremental.add_operation i op - >>=? fun i -> - Context.Contract.balance (I i) orig_contract - >>=? fun orig_balance -> - (* Format.printf "\nBalance of originated contract: %a\n%!" Tez.pp orig_balance; *) - (* delegate to bootstrap *) - Op.delegation ~fee (I i) orig_contract (Some manager.pkh) - >>=? fun deleg_op -> - if fee > orig_balance then - Incremental.add_operation i deleg_op - >>= fun err -> - Assert.proto_error ~loc:__LOC__ err (function - | Contract_storage.Balance_too_low _ -> - true - | _ -> - false) - else - (* manager is delegate, fee is debited *) - Incremental.add_operation i deleg_op - >>=? fun i -> - Context.Contract.delegate (I i) orig_contract - >>=? fun delegate -> - Assert.equal_pkh ~loc:__LOC__ delegate manager.pkh - >>=? fun () -> - Assert.balance_was_debited - ~loc:__LOC__ - (I i) - orig_contract - orig_balance - fee - -(** bootstrap manager can be set as delegate of an originated contract - with initial delegate (through delegation operation) *) -let delegate_to_bootstrap_by_delegation_switch ~fee () = - Context.init 2 - >>=? fun (b, bootstrap_contracts) -> - Incremental.begin_construction b - >>=? fun i -> - let bootstrap0 = List.hd bootstrap_contracts in - Context.Contract.manager (I i) bootstrap0 - >>=? fun manager0 -> - let bootstrap1 = List.nth bootstrap_contracts 1 in - Context.Contract.manager (I i) bootstrap1 - >>=? fun manager1 -> - (* originate a contract with bootstrap1's manager as delegate *) - Op.origination - ~fee:Tez.zero - ~credit:Tez.one - ~delegate:manager1.pkh - (I i) - bootstrap0 - >>=? fun (op, orig_contract) -> - Incremental.add_operation i op - >>=? fun i -> - Context.Contract.balance (I i) orig_contract - >>=? fun orig_balance -> - Context.Contract.delegate (I i) orig_contract - >>=? fun delegate -> - Assert.equal_pkh ~loc:__LOC__ delegate manager1.pkh - >>=? fun _ -> - (* switch delegate to bootstrap0 *) - Op.delegation ~fee (I i) orig_contract (Some manager0.pkh) - >>=? fun switch_deleg -> - if fee > orig_balance then - Incremental.add_operation i switch_deleg - >>= fun err -> - Assert.proto_error ~loc:__LOC__ err (function - | Contract_storage.Balance_too_low _ -> - true - | _ -> - false) - else - (* manager0 is delegate, fee is debited *) - Incremental.add_operation i switch_deleg - >>=? fun i -> - Context.Contract.delegate (I i) orig_contract - >>=? fun delegate -> - Assert.equal_pkh ~loc:__LOC__ delegate manager0.pkh - >>=? fun () -> - Assert.balance_was_debited - ~loc:__LOC__ - (I i) - orig_contract - orig_balance - fee - let tests_bootstrap_contracts = [ Test.tztest "bootstrap contracts delegate to themselves" `Quick bootstrap_manager_is_bootstrap_delegate; Test.tztest - "bootstrap contracts cannot change their delegate (small fee)" + "bootstrap contracts can change their delegate (small fee)" `Quick (bootstrap_delegate_cannot_change ~fee:Tez.one_mutez); Test.tztest - "bootstrap contracts cannot change their delegate (max fee)" + "bootstrap contracts can change their delegate (max fee)" `Quick (bootstrap_delegate_cannot_change ~fee:Tez.max_tez); Test.tztest - "bootstrap contracts cannot delete their delegation (small fee)" + "bootstrap contracts cannot remove their delegation (small fee)" `Quick (bootstrap_delegate_cannot_be_removed ~fee:Tez.one_mutez); Test.tztest - "bootstrap contracts cannot delete their delegation (max fee)" + "bootstrap contracts cannot remove their delegation (max fee)" `Quick (bootstrap_delegate_cannot_be_removed ~fee:Tez.max_tez); + Test.tztest + "contracts not registered as delegate can remove their delegation \ + (small fee)" + `Quick + (delegate_can_be_changed_from_unregistered_contract ~fee:Tez.one_mutez); + Test.tztest + "contracts not registered as delegate can remove their delegation (max \ + fee)" + `Quick + (delegate_can_be_changed_from_unregistered_contract ~fee:Tez.max_tez); + Test.tztest + "contracts not registered as delegate can remove their delegation \ + (small fee)" + `Quick + (delegate_can_be_removed_from_unregistered_contract ~fee:Tez.one_mutez); + Test.tztest + "contracts not registered as delegate can remove their delegation (max \ + fee)" + `Quick + (delegate_can_be_removed_from_unregistered_contract ~fee:Tez.max_tez); Test.tztest "bootstrap keys are already registered as delegate keys (small fee)" `Quick @@ -377,33 +406,17 @@ let tests_bootstrap_contracts = "bootstrap manager can be delegate (init origination, small fee)" `Quick (delegate_to_bootstrap_by_origination ~fee:Tez.one_mutez); - (* balance enough for fee but not for fee + origination burn *) + (* balance enough for fee but not for fee + origination burn + dummy script storage cost *) Test.tztest "bootstrap manager can be delegate (init origination, edge case)" `Quick (delegate_to_bootstrap_by_origination - ~fee:(Tez.of_mutez_exn 3_999_999_743_000L)); + ~fee:(Tez.of_mutez_exn 3_999_999_705_000L)); (* fee bigger than bootstrap's initial balance*) Test.tztest "bootstrap manager can be delegate (init origination, large fee)" `Quick - (delegate_to_bootstrap_by_origination ~fee:(Tez.of_int 10_000_000)); - Test.tztest - "bootstrap manager can be delegate (init delegation, small fee)" - `Quick - (delegate_to_bootstrap_by_delegation ~fee:Tez.one_mutez); - Test.tztest - "bootstrap manager can be delegate (init delegation, max fee)" - `Quick - (delegate_to_bootstrap_by_delegation ~fee:Tez.max_tez); - Test.tztest - "bootstrap manager can be delegate (switch delegation, small fee)" - `Quick - (delegate_to_bootstrap_by_delegation_switch ~fee:Tez.one_mutez); - Test.tztest - "bootstrap manager can be delegate (switch delegation, max fee)" - `Quick - (delegate_to_bootstrap_by_delegation_switch ~fee:Tez.max_tez) ] + (delegate_to_bootstrap_by_origination ~fee:(Tez.of_int 10_000_000)) ] (**************************************************************************) (* delegate registration *) @@ -422,8 +435,8 @@ let tests_bootstrap_contracts = We consider three scenarios for setting a delegate: - through origination, - - through delegation when the originated contract has no delegate yet, - - through delegation when the originated contract already has a delegate. + - through delegation when the implicit contract has no delegate yet, + - through delegation when the implicit contract already has a delegate. We also test that emptying the implicit contract linked to a registered delegate key does not unregister the delegate key. @@ -448,13 +461,13 @@ Not credited: (* Two main series of tests: without self-delegation, and with a failed attempt at self-delegation 1- no self-delegation a- no credit - - no token transfer - - credit of 1μꜩ and then debit of 1μꜩ + - no token transfer + - credit of 1μꜩ and then debit of 1μꜩ b- with credit of 1μꜩ. - For every scenario, we try three different ways of delegating: + For every scenario, we try three different ways of delegating: - through origination (init origination) - - through delegation when no delegate was assigned at origination (init delegation) - - through delegation when a delegate was assigned at origination (switch delegation). + - through delegation when no delegate was assigned (init delegation) + - through delegation when a delegate was assigned (switch delegation). 2- Self-delegation fails if the contract has no credit. We try the two possibilities of 1a for non-credited contracts. @@ -478,7 +491,12 @@ let unregistered_delegate_key_init_origination ~fee () = let unregistered_account = Account.new_account () in let unregistered_pkh = Account.(unregistered_account.pkh) in (* origination with delegate argument *) - Op.origination ~fee ~delegate:unregistered_pkh (I i) bootstrap + Op.origination + ~fee + ~delegate:unregistered_pkh + (I i) + bootstrap + ~script:Op.dummy_script >>=? fun (op, orig_contract) -> Context.get_constants (I i) >>=? fun {parametric = {origination_size; cost_per_byte; _}; _} -> @@ -523,16 +541,21 @@ let unregistered_delegate_key_init_delegation ~fee () = let bootstrap = List.hd bootstrap_contracts in let unregistered_account = Account.new_account () in let unregistered_pkh = Account.(unregistered_account.pkh) in - Context.Contract.balance (I i) bootstrap - >>=? fun _balance -> - (* FIXME unused variable *) - (* origination without delegate argument *) + let impl_contract = Contract.implicit_contract unregistered_pkh in + let unregistered_delegate_account = Account.new_account () in + let unregistered_delegate_pkh = + Account.(unregistered_delegate_account.pkh) + in + (* initial credit for the delegated contract *) let credit = Tez.of_int 10 in - Op.origination (I i) bootstrap ~credit - >>=? fun (op, orig_contract) -> - Incremental.add_operation i op + Op.transaction ~fee:Tez.zero (I i) bootstrap impl_contract credit + >>=? fun credit_contract -> + Incremental.add_operation i credit_contract >>=? fun i -> - Op.delegation ~fee (I i) orig_contract (Some unregistered_pkh) + Assert.balance_is ~loc:__LOC__ (I i) impl_contract credit + >>=? fun _ -> + (* try to delegate *) + Op.delegation ~fee (I i) impl_contract (Some unregistered_delegate_pkh) >>=? fun delegate_op -> if fee > credit then Incremental.add_operation i delegate_op @@ -546,13 +569,13 @@ let unregistered_delegate_key_init_delegation ~fee () = (* fee has been debited; no delegate *) Incremental.add_operation i - ~expect_failure:(expect_unregistered_key unregistered_pkh) + ~expect_failure:(expect_unregistered_key unregistered_delegate_pkh) delegate_op >>=? fun i -> - Assert.balance_was_debited ~loc:__LOC__ (I i) orig_contract credit fee + Assert.balance_was_debited ~loc:__LOC__ (I i) impl_contract credit fee >>=? fun () -> - (* originated contract has no delegate *) - Context.Contract.delegate (I i) orig_contract + (* implicit contract has no delegate *) + Context.Contract.delegate (I i) impl_contract >>= fun err -> Assert.error ~loc:__LOC__ err (function | RPC_context.Not_found _ -> @@ -566,22 +589,35 @@ let unregistered_delegate_key_switch_delegation ~fee () = Incremental.begin_construction b >>=? fun i -> let bootstrap = List.hd bootstrap_contracts in + let bootstrap_pkh = + Contract.is_implicit bootstrap |> Option.unopt_assert ~loc:__POS__ + in let unregistered_account = Account.new_account () in let unregistered_pkh = Account.(unregistered_account.pkh) in - (* origination with delegate setting *) - Context.Contract.manager (I i) bootstrap - >>=? fun manager -> + let impl_contract = Contract.implicit_contract unregistered_pkh in + let unregistered_delegate_account = Account.new_account () in + let unregistered_delegate_pkh = + Account.(unregistered_delegate_account.pkh) + in + (* initial credit for the delegated contract *) let credit = Tez.of_int 10 in - Op.origination (I i) ~delegate:manager.pkh bootstrap ~credit - >>=? fun (op, orig_contract) -> - Incremental.add_operation i op + Op.transaction ~fee:Tez.zero (I i) bootstrap impl_contract credit + >>=? fun init_credit -> + Incremental.add_operation i init_credit >>=? fun i -> - Context.Contract.delegate (I i) orig_contract - >>=? fun delegate -> - Assert.equal_pkh ~loc:__LOC__ delegate manager.pkh + Assert.balance_is ~loc:__LOC__ (I i) impl_contract credit >>=? fun _ -> - (* switch delegate through delegation *) - Op.delegation ~fee (I i) orig_contract (Some unregistered_pkh) + (* set and check the initial delegate *) + Op.delegation ~fee:Tez.zero (I i) impl_contract (Some bootstrap_pkh) + >>=? fun delegate_op -> + Incremental.add_operation i delegate_op + >>=? fun i -> + Context.Contract.delegate (I i) bootstrap + >>=? fun delegate_pkh -> + Assert.equal_pkh ~loc:__LOC__ bootstrap_pkh delegate_pkh + >>=? fun () -> + (* try to delegate *) + Op.delegation ~fee (I i) impl_contract (Some unregistered_delegate_pkh) >>=? fun delegate_op -> if fee > credit then Incremental.add_operation i delegate_op @@ -595,16 +631,15 @@ let unregistered_delegate_key_switch_delegation ~fee () = (* fee has been debited; no delegate *) Incremental.add_operation i - ~expect_failure:(expect_unregistered_key unregistered_pkh) + ~expect_failure:(expect_unregistered_key unregistered_delegate_pkh) delegate_op >>=? fun i -> - Assert.balance_was_debited ~loc:__LOC__ (I i) orig_contract credit fee + Assert.balance_was_debited ~loc:__LOC__ (I i) impl_contract credit fee >>=? fun () -> - (* originated contract's delegate has not changed *) - Context.Contract.delegate (I i) orig_contract - >>=? fun delegate -> - Assert.not_equal_pkh ~loc:__LOC__ delegate unregistered_pkh - >>=? fun () -> Assert.equal_pkh ~loc:__LOC__ delegate manager.pkh + (* implicit contract delegate has not changed *) + Context.Contract.delegate (I i) bootstrap + >>=? fun delegate_pkh_after -> + Assert.equal_pkh ~loc:__LOC__ delegate_pkh delegate_pkh_after (* credit of some amount, no self-delegation *) let unregistered_delegate_key_init_origination_credit ~fee ~amount () = @@ -626,7 +661,12 @@ let unregistered_delegate_key_init_origination_credit ~fee ~amount () = (* origination with delegate argument *) Context.Contract.balance (I i) bootstrap >>=? fun balance -> - Op.origination ~fee ~delegate:unregistered_pkh (I i) bootstrap + Op.origination + ~fee + ~delegate:unregistered_pkh + (I i) + bootstrap + ~script:Op.dummy_script >>=? fun (op, orig_contract) -> if fee > balance then Incremental.add_operation i op @@ -662,6 +702,10 @@ let unregistered_delegate_key_init_delegation_credit ~fee ~amount () = let unregistered_account = Account.new_account () in let unregistered_pkh = Account.(unregistered_account.pkh) in let impl_contract = Contract.implicit_contract unregistered_pkh in + let unregistered_delegate_account = Account.new_account () in + let unregistered_delegate_pkh = + Account.(unregistered_delegate_account.pkh) + in (* credit + check balance *) Op.transaction ~fee:Tez.zero (I i) bootstrap impl_contract amount >>=? fun create_contract -> @@ -669,13 +713,18 @@ let unregistered_delegate_key_init_delegation_credit ~fee ~amount () = >>=? fun i -> Assert.balance_is ~loc:__LOC__ (I i) impl_contract amount >>=? fun _ -> - (* origination without delegate argument *) + (* initial credit for the delegated contract *) let credit = Tez.of_int 10 in - Op.origination ~fee:Tez.zero ~credit (I i) bootstrap - >>=? fun (op, contract) -> - Incremental.add_operation i op + Lwt.return Tez.(credit +? amount) + >>=? fun balance -> + Op.transaction ~fee:Tez.zero (I i) bootstrap impl_contract credit + >>=? fun init_credit -> + Incremental.add_operation i init_credit >>=? fun i -> - Op.delegation ~fee (I i) contract (Some unregistered_pkh) + Assert.balance_is ~loc:__LOC__ (I i) impl_contract balance + >>=? fun _ -> + (* try to delegate *) + Op.delegation ~fee (I i) impl_contract (Some unregistered_delegate_pkh) >>=? fun delegate_op -> if fee > credit then Incremental.add_operation i delegate_op @@ -688,13 +737,13 @@ let unregistered_delegate_key_init_delegation_credit ~fee ~amount () = else (* fee has been taken, no delegate for contract *) Incremental.add_operation - ~expect_failure:(expect_unregistered_key unregistered_pkh) + ~expect_failure:(expect_unregistered_key unregistered_delegate_pkh) i delegate_op >>=? fun i -> - Assert.balance_was_debited ~loc:__LOC__ (I i) contract credit fee + Assert.balance_was_debited ~loc:__LOC__ (I i) impl_contract balance fee >>=? fun () -> - Context.Contract.delegate (I i) contract + Context.Contract.delegate (I i) impl_contract >>= fun err -> Assert.error ~loc:__LOC__ err (function | RPC_context.Not_found _ -> @@ -708,9 +757,16 @@ let unregistered_delegate_key_switch_delegation_credit ~fee ~amount () = Incremental.begin_construction b >>=? fun i -> let bootstrap = List.hd bootstrap_contracts in + let bootstrap_pkh = + Contract.is_implicit bootstrap |> Option.unopt_assert ~loc:__POS__ + in let unregistered_account = Account.new_account () in let unregistered_pkh = Account.(unregistered_account.pkh) in let impl_contract = Contract.implicit_contract unregistered_pkh in + let unregistered_delegate_account = Account.new_account () in + let unregistered_delegate_pkh = + Account.(unregistered_delegate_account.pkh) + in (* credit + check balance *) Op.transaction ~fee:Tez.zero (I i) bootstrap impl_contract amount >>=? fun create_contract -> @@ -718,20 +774,27 @@ let unregistered_delegate_key_switch_delegation_credit ~fee ~amount () = >>=? fun i -> Assert.balance_is ~loc:__LOC__ (I i) impl_contract amount >>=? fun _ -> - (* origination without delegate setting *) - Context.Contract.manager (I i) bootstrap - >>=? fun manager -> + (* initial credit for the delegated contract *) let credit = Tez.of_int 10 in - Op.origination (I i) ~fee:Tez.zero ~credit ~delegate:manager.pkh bootstrap - >>=? fun (op, contract) -> - Incremental.add_operation i op + Lwt.return Tez.(credit +? amount) + >>=? fun balance -> + Op.transaction ~fee:Tez.zero (I i) bootstrap impl_contract credit + >>=? fun init_credit -> + Incremental.add_operation i init_credit >>=? fun i -> - Context.Contract.delegate (I i) contract - >>=? fun delegate -> - Assert.equal_pkh ~loc:__LOC__ delegate manager.pkh + Assert.balance_is ~loc:__LOC__ (I i) impl_contract balance >>=? fun _ -> + (* set and check the initial delegate *) + Op.delegation ~fee:Tez.zero (I i) impl_contract (Some bootstrap_pkh) + >>=? fun delegate_op -> + Incremental.add_operation i delegate_op + >>=? fun i -> + Context.Contract.delegate (I i) bootstrap + >>=? fun delegate_pkh -> + Assert.equal_pkh ~loc:__LOC__ bootstrap_pkh delegate_pkh + >>=? fun () -> (* switch delegate through delegation *) - Op.delegation ~fee (I i) contract (Some unregistered_pkh) + Op.delegation ~fee (I i) impl_contract (Some unregistered_delegate_pkh) >>=? fun delegate_op -> if fee > credit then Incremental.add_operation i delegate_op @@ -744,16 +807,16 @@ let unregistered_delegate_key_switch_delegation_credit ~fee ~amount () = else (* fee has been taken, delegate for contract has not changed *) Incremental.add_operation - ~expect_failure:(expect_unregistered_key unregistered_pkh) + ~expect_failure:(expect_unregistered_key unregistered_delegate_pkh) i delegate_op >>=? fun i -> - Assert.balance_was_debited ~loc:__LOC__ (I i) contract credit fee + Assert.balance_was_debited ~loc:__LOC__ (I i) impl_contract balance fee >>=? fun () -> - Context.Contract.delegate (I i) contract + Context.Contract.delegate (I i) impl_contract >>=? fun delegate -> - Assert.not_equal_pkh ~loc:__LOC__ delegate unregistered_pkh - >>=? fun () -> Assert.equal_pkh ~loc:__LOC__ delegate manager.pkh + Assert.not_equal_pkh ~loc:__LOC__ delegate unregistered_delegate_pkh + >>=? fun () -> Assert.equal_pkh ~loc:__LOC__ delegate bootstrap_pkh (* a credit of some amount followed by a debit of the same amount, no self-delegation *) let unregistered_delegate_key_init_origination_credit_debit ~fee ~amount () = @@ -782,7 +845,12 @@ let unregistered_delegate_key_init_origination_credit_debit ~fee ~amount () = (* origination with delegate argument *) Context.Contract.balance (I i) bootstrap >>=? fun balance -> - Op.origination ~fee ~delegate:unregistered_pkh (I i) bootstrap + Op.origination + ~fee + ~delegate:unregistered_pkh + (I i) + bootstrap + ~script:Op.dummy_script >>=? fun (op, orig_contract) -> if fee > balance then Incremental.add_operation i op @@ -818,6 +886,10 @@ let unregistered_delegate_key_init_delegation_credit_debit ~amount ~fee () = let unregistered_account = Account.new_account () in let unregistered_pkh = Account.(unregistered_account.pkh) in let impl_contract = Contract.implicit_contract unregistered_pkh in + let unregistered_delegate_account = Account.new_account () in + let unregistered_delegate_pkh = + Account.(unregistered_delegate_account.pkh) + in (* credit + check balance *) Op.transaction ~fee:Tez.zero (I i) bootstrap impl_contract amount >>=? fun create_contract -> @@ -832,14 +904,16 @@ let unregistered_delegate_key_init_delegation_credit_debit ~amount ~fee () = >>=? fun i -> Assert.balance_is ~loc:__LOC__ (I i) impl_contract Tez.zero >>=? fun _ -> - (* origination without delegate argument *) + (* initial credit for the delegated contract *) let credit = Tez.of_int 10 in - Op.origination ~fee:Tez.zero (I i) ~credit bootstrap - >>=? fun (op, contract) -> - Incremental.add_operation i op + Op.transaction ~fee:Tez.zero (I i) bootstrap impl_contract credit + >>=? fun credit_contract -> + Incremental.add_operation i credit_contract >>=? fun i -> - (* set a delegate with delegation operation *) - Op.delegation ~fee (I i) contract (Some unregistered_pkh) + Assert.balance_is ~loc:__LOC__ (I i) impl_contract credit + >>=? fun _ -> + (* try to delegate *) + Op.delegation ~fee (I i) impl_contract (Some unregistered_delegate_pkh) >>=? fun delegate_op -> if fee > credit then Incremental.add_operation i delegate_op @@ -852,13 +926,13 @@ let unregistered_delegate_key_init_delegation_credit_debit ~amount ~fee () = else (* fee has been taken, no delegate for contract *) Incremental.add_operation - ~expect_failure:(expect_unregistered_key unregistered_pkh) + ~expect_failure:(expect_unregistered_key unregistered_delegate_pkh) i delegate_op >>=? fun i -> - Assert.balance_was_debited ~loc:__LOC__ (I i) contract credit fee + Assert.balance_was_debited ~loc:__LOC__ (I i) impl_contract credit fee >>=? fun () -> - Context.Contract.delegate (I i) contract + Context.Contract.delegate (I i) impl_contract >>= fun err -> Assert.error ~loc:__LOC__ err (function | RPC_context.Not_found _ -> @@ -872,9 +946,16 @@ let unregistered_delegate_key_switch_delegation_credit_debit ~fee ~amount () = Incremental.begin_construction b >>=? fun i -> let bootstrap = List.hd bootstrap_contracts in + let bootstrap_pkh = + Contract.is_implicit bootstrap |> Option.unopt_assert ~loc:__POS__ + in let unregistered_account = Account.new_account () in let unregistered_pkh = Account.(unregistered_account.pkh) in let impl_contract = Contract.implicit_contract unregistered_pkh in + let unregistered_delegate_account = Account.new_account () in + let unregistered_delegate_pkh = + Account.(unregistered_delegate_account.pkh) + in (* credit + check balance *) Op.transaction ~fee:Tez.zero (I i) bootstrap impl_contract amount >>=? fun create_contract -> @@ -889,20 +970,25 @@ let unregistered_delegate_key_switch_delegation_credit_debit ~fee ~amount () = >>=? fun i -> Assert.balance_is ~loc:__LOC__ (I i) impl_contract Tez.zero >>=? fun _ -> - (* origination with delegate setting *) - Context.Contract.manager (I i) bootstrap - >>=? fun manager -> + (* delegation - initial credit for the delegated contract *) let credit = Tez.of_int 10 in - Op.origination (I i) ~fee:Tez.zero ~credit ~delegate:manager.pkh bootstrap - >>=? fun (op, contract) -> - Incremental.add_operation i op + Op.transaction ~fee:Tez.zero (I i) bootstrap impl_contract credit + >>=? fun credit_contract -> + Incremental.add_operation i credit_contract >>=? fun i -> - Context.Contract.delegate (I i) contract - >>=? fun delegate -> - Assert.equal_pkh ~loc:__LOC__ delegate manager.pkh + Assert.balance_is ~loc:__LOC__ (I i) impl_contract credit >>=? fun _ -> + (* set and check the initial delegate *) + Op.delegation ~fee:Tez.zero (I i) impl_contract (Some bootstrap_pkh) + >>=? fun delegate_op -> + Incremental.add_operation i delegate_op + >>=? fun i -> + Context.Contract.delegate (I i) bootstrap + >>=? fun delegate_pkh -> + Assert.equal_pkh ~loc:__LOC__ bootstrap_pkh delegate_pkh + >>=? fun () -> (* switch delegate through delegation *) - Op.delegation (I i) ~fee contract (Some unregistered_pkh) + Op.delegation (I i) ~fee impl_contract (Some unregistered_delegate_pkh) >>=? fun delegate_op -> if fee > credit then Incremental.add_operation i delegate_op @@ -915,16 +1001,15 @@ let unregistered_delegate_key_switch_delegation_credit_debit ~fee ~amount () = else (* fee has been taken, delegate for contract has not changed *) Incremental.add_operation - ~expect_failure:(expect_unregistered_key unregistered_pkh) + ~expect_failure:(expect_unregistered_key unregistered_delegate_pkh) i delegate_op >>=? fun i -> - Assert.balance_was_debited ~loc:__LOC__ (I i) contract credit fee + Assert.balance_was_debited ~loc:__LOC__ (I i) impl_contract credit fee >>=? fun () -> - Context.Contract.delegate (I i) contract + Context.Contract.delegate (I i) impl_contract >>=? fun delegate -> - Assert.not_equal_pkh ~loc:__LOC__ delegate unregistered_pkh - >>=? fun () -> Assert.equal_pkh ~loc:__LOC__ delegate manager.pkh + Assert.not_equal_pkh ~loc:__LOC__ delegate unregistered_delegate_pkh (* A2- self-delegation to an empty contract fails *) let failed_self_delegation_no_transaction () = @@ -990,42 +1075,7 @@ let failed_self_delegation_emptied_implicit_contract amount () = - credit implicit contract with some ꜩ + verification of balance - self delegation + verification - empty contract + verification of balance + verification of not being erased / self-delegation - - originate contract w implicit contract as delegate + verification of delegation *) -let valid_delegate_registration_init_origination_credit amount () = - (* create an implicit contract *) - Context.init 1 - >>=? fun (b, bootstrap_contracts) -> - Incremental.begin_construction b - >>=? fun i -> - let bootstrap = List.hd bootstrap_contracts in - let delegate_account = Account.new_account () in - let delegate_pkh = Account.(delegate_account.pkh) in - let impl_contract = Contract.implicit_contract delegate_pkh in - (* credit > 0ꜩ + check balance *) - Op.transaction (I i) bootstrap impl_contract amount - >>=? fun create_contract -> - Incremental.add_operation i create_contract - >>=? fun i -> - Assert.balance_is ~loc:__LOC__ (I i) impl_contract amount - >>=? fun _ -> - (* self delegation + verification *) - Op.delegation (I i) impl_contract (Some delegate_pkh) - >>=? fun self_delegation -> - Incremental.add_operation i self_delegation - >>=? fun i -> - Context.Contract.delegate (I i) impl_contract - >>=? fun delegate -> - Assert.equal_pkh ~loc:__LOC__ delegate delegate_pkh - >>=? fun _ -> - (* originating a contract with the newly registered delegate account as delegate *) - Op.origination ~delegate:delegate_account.pkh (I i) bootstrap - >>=? fun (op, orig_contract) -> - Incremental.add_operation i op - >>=? fun i -> - Context.Contract.delegate (I i) orig_contract - >>=? fun orig_delegate -> - Assert.equal_pkh ~loc:__LOC__ orig_delegate delegate_pkh - + - create delegator implicit contract w first implicit contract as delegate + verification of delegation *) let valid_delegate_registration_init_delegation_credit amount () = (* create an implicit contract *) Context.init 1 @@ -1052,13 +1102,16 @@ let valid_delegate_registration_init_delegation_credit amount () = >>=? fun delegate -> Assert.equal_pkh ~loc:__LOC__ delegate delegate_pkh >>=? fun _ -> - (* originating a contract with no delegate *) - Op.origination (I i) bootstrap - >>=? fun (op, orig_contract) -> - Incremental.add_operation i op + (* create an implicit contract with no delegate *) + let unregistered_account = Account.new_account () in + let unregistered_pkh = Account.(unregistered_account.pkh) in + let delegator = Contract.implicit_contract unregistered_pkh in + Op.transaction ~fee:Tez.zero (I i) bootstrap delegator Tez.one + >>=? fun credit_contract -> + Incremental.add_operation i credit_contract >>=? fun i -> - (* check no delegate for orig contract *) - Context.Contract.delegate (I i) orig_contract + (* check no delegate for delegator contract *) + Context.Contract.delegate (I i) delegator >>= fun err -> Assert.error ~loc:__LOC__ err (function | RPC_context.Not_found _ -> @@ -1067,14 +1120,14 @@ let valid_delegate_registration_init_delegation_credit amount () = false) >>=? fun _ -> (* delegation to the newly registered key *) - Op.delegation (I i) orig_contract (Some delegate_account.pkh) + Op.delegation (I i) delegator (Some delegate_account.pkh) >>=? fun delegation -> Incremental.add_operation i delegation >>=? fun i -> (* check delegation *) - Context.Contract.delegate (I i) orig_contract - >>=? fun orig_delegate -> - Assert.equal_pkh ~loc:__LOC__ orig_delegate delegate_pkh + Context.Contract.delegate (I i) delegator + >>=? fun delegator_delegate -> + Assert.equal_pkh ~loc:__LOC__ delegator_delegate delegate_pkh let valid_delegate_registration_switch_delegation_credit amount () = (* create an implicit contract *) @@ -1102,76 +1155,33 @@ let valid_delegate_registration_switch_delegation_credit amount () = >>=? fun delegate -> Assert.equal_pkh ~loc:__LOC__ delegate delegate_pkh >>=? fun _ -> - (* originating a contract with bootstrap's account as delegate *) + (* create an implicit contract with bootstrap's account as delegate *) + let unregistered_account = Account.new_account () in + let unregistered_pkh = Account.(unregistered_account.pkh) in + let delegator = Contract.implicit_contract unregistered_pkh in + Op.transaction ~fee:Tez.zero (I i) bootstrap delegator Tez.one + >>=? fun credit_contract -> + Incremental.add_operation i credit_contract + >>=? fun i -> Context.Contract.manager (I i) bootstrap >>=? fun bootstrap_manager -> - Op.origination (I i) ~delegate:bootstrap_manager.pkh bootstrap - >>=? fun (op, orig_contract) -> - Incremental.add_operation i op + Op.delegation (I i) delegator (Some bootstrap_manager.pkh) + >>=? fun delegation -> + Incremental.add_operation i delegation >>=? fun i -> (* test delegate of new contract is bootstrap *) - Context.Contract.delegate (I i) orig_contract - >>=? fun orig_delegate -> - Assert.equal_pkh ~loc:__LOC__ orig_delegate bootstrap_manager.pkh + Context.Contract.delegate (I i) delegator + >>=? fun delegator_delegate -> + Assert.equal_pkh ~loc:__LOC__ delegator_delegate bootstrap_manager.pkh >>=? fun _ -> (* delegation with newly registered key *) - Op.delegation (I i) orig_contract (Some delegate_account.pkh) + Op.delegation (I i) delegator (Some delegate_account.pkh) >>=? fun delegation -> Incremental.add_operation i delegation >>=? fun i -> - Context.Contract.delegate (I i) orig_contract - >>=? fun orig_delegate -> - Assert.equal_pkh ~loc:__LOC__ orig_delegate delegate_pkh - -let valid_delegate_registration_init_origination_credit_debit amount () = - (* create an implicit contract *) - Context.init 1 - >>=? fun (b, bootstrap_contracts) -> - Incremental.begin_construction b - >>=? fun i -> - let bootstrap = List.hd bootstrap_contracts in - let delegate_account = Account.new_account () in - let delegate_pkh = Account.(delegate_account.pkh) in - let impl_contract = Contract.implicit_contract delegate_pkh in - (* credit > 0ꜩ+ check balance *) - Op.transaction (I i) bootstrap impl_contract amount - >>=? fun create_contract -> - Incremental.add_operation i create_contract - >>=? fun i -> - Assert.balance_is ~loc:__LOC__ (I i) impl_contract amount - >>=? fun _ -> - (* self delegation + verification *) - Op.delegation (I i) impl_contract (Some delegate_pkh) - >>=? fun self_delegation -> - Incremental.add_operation i self_delegation - >>=? fun i -> - Context.Contract.delegate (I i) impl_contract - >>=? fun delegate -> - Assert.equal_pkh ~loc:__LOC__ delegate_pkh delegate - >>=? fun _ -> - (* empty implicit contracts are usually deleted but they are kept if - they were registered as delegates. we empty the contract in - order to verify this. *) - Op.transaction (I i) impl_contract bootstrap amount - >>=? fun empty_contract -> - Incremental.add_operation i empty_contract - >>=? fun i -> - (* impl_contract is empty *) - Assert.balance_is ~loc:__LOC__ (I i) impl_contract Tez.zero - >>=? fun _ -> - (* verify self-delegation after contract is emptied *) - Context.Contract.delegate (I i) impl_contract - >>=? fun delegate -> - Assert.equal_pkh ~loc:__LOC__ delegate_pkh delegate - >>=? fun _ -> - (* originating a contract with the newly registered delegate account as delegate *) - Op.origination ~delegate:delegate_account.pkh (I i) bootstrap - >>=? fun (op, orig_contract) -> - Incremental.add_operation i op - >>=? fun i -> - Context.Contract.delegate (I i) orig_contract - >>=? fun orig_delegate -> - Assert.equal_pkh ~loc:__LOC__ orig_delegate delegate_pkh + Context.Contract.delegate (I i) delegator + >>=? fun delegator_delegate -> + Assert.equal_pkh ~loc:__LOC__ delegator_delegate delegate_pkh let valid_delegate_registration_init_delegation_credit_debit amount () = (* create an implicit contract *) @@ -1214,13 +1224,16 @@ let valid_delegate_registration_init_delegation_credit_debit amount () = >>=? fun delegate -> Assert.equal_pkh ~loc:__LOC__ delegate_pkh delegate >>=? fun _ -> - (* originating a contract with no delegate *) - Op.origination (I i) bootstrap - >>=? fun (op, orig_contract) -> - Incremental.add_operation i op + (* create an implicit contract with no delegate *) + let unregistered_account = Account.new_account () in + let unregistered_pkh = Account.(unregistered_account.pkh) in + let delegator = Contract.implicit_contract unregistered_pkh in + Op.transaction ~fee:Tez.zero (I i) bootstrap delegator Tez.one + >>=? fun credit_contract -> + Incremental.add_operation i credit_contract >>=? fun i -> - (* check no delegate for orig contract *) - Context.Contract.delegate (I i) orig_contract + (* check no delegate for delegator contract *) + Context.Contract.delegate (I i) delegator >>= fun err -> Assert.error ~loc:__LOC__ err (function | RPC_context.Not_found _ -> @@ -1229,14 +1242,14 @@ let valid_delegate_registration_init_delegation_credit_debit amount () = false) >>=? fun _ -> (* delegation to the newly registered key *) - Op.delegation (I i) orig_contract (Some delegate_account.pkh) + Op.delegation (I i) delegator (Some delegate_account.pkh) >>=? fun delegation -> Incremental.add_operation i delegation >>=? fun i -> (* check delegation *) - Context.Contract.delegate (I i) orig_contract - >>=? fun orig_delegate -> - Assert.equal_pkh ~loc:__LOC__ orig_delegate delegate_pkh + Context.Contract.delegate (I i) delegator + >>=? fun delegator_delegate -> + Assert.equal_pkh ~loc:__LOC__ delegator_delegate delegate_pkh let valid_delegate_registration_switch_delegation_credit_debit amount () = (* create an implicit contract *) @@ -1274,26 +1287,33 @@ let valid_delegate_registration_switch_delegation_credit_debit amount () = (* impl_contract is empty *) Assert.balance_is ~loc:__LOC__ (I i) impl_contract Tez.zero >>=? fun _ -> - (* originating a contract with bootstrap's account as delegate *) + (* create an implicit contract with bootstrap's account as delegate *) + let unregistered_account = Account.new_account () in + let unregistered_pkh = Account.(unregistered_account.pkh) in + let delegator = Contract.implicit_contract unregistered_pkh in + Op.transaction ~fee:Tez.zero (I i) bootstrap delegator Tez.one + >>=? fun credit_contract -> + Incremental.add_operation i credit_contract + >>=? fun i -> Context.Contract.manager (I i) bootstrap >>=? fun bootstrap_manager -> - Op.origination (I i) ~delegate:bootstrap_manager.pkh bootstrap - >>=? fun (op, orig_contract) -> - Incremental.add_operation i op + Op.delegation (I i) delegator (Some bootstrap_manager.pkh) + >>=? fun delegation -> + Incremental.add_operation i delegation >>=? fun i -> (* test delegate of new contract is bootstrap *) - Context.Contract.delegate (I i) orig_contract - >>=? fun orig_delegate -> - Assert.equal_pkh ~loc:__LOC__ orig_delegate bootstrap_manager.pkh + Context.Contract.delegate (I i) delegator + >>=? fun delegator_delegate -> + Assert.equal_pkh ~loc:__LOC__ delegator_delegate bootstrap_manager.pkh >>=? fun _ -> (* delegation with newly registered key *) - Op.delegation (I i) orig_contract (Some delegate_account.pkh) + Op.delegation (I i) delegator (Some delegate_account.pkh) >>=? fun delegation -> Incremental.add_operation i delegation >>=? fun i -> - Context.Contract.delegate (I i) orig_contract - >>=? fun orig_delegate -> - Assert.equal_pkh ~loc:__LOC__ orig_delegate delegate_pkh + Context.Contract.delegate (I i) delegator + >>=? fun delegator_delegate -> + Assert.equal_pkh ~loc:__LOC__ delegator_delegate delegate_pkh (* with implicit contract with some credit *) @@ -1417,22 +1437,22 @@ let double_registration_when_recredited () = | _ -> false) -(* originate and self-delegation on unrevealed contract *) -let unregistered_and_unrevealed_self_delegate_key_init_origination ~fee () = +(* self-delegation on unrevealed contract *) +let unregistered_and_unrevealed_self_delegate_key_init_delegation ~fee () = Context.init 1 >>=? fun (b, bootstrap_contracts) -> Incremental.begin_construction b >>=? fun i -> let bootstrap = List.hd bootstrap_contracts in let {Account.pkh; _} = Account.new_account () in + let {Account.pkh = delegate_pkh; _} = Account.new_account () in let contract = Alpha_context.Contract.implicit_contract pkh in Op.transaction (I i) bootstrap contract (Tez.of_int 10) >>=? fun op -> Incremental.add_operation i op >>=? fun i -> - (* origination with delegate argument *) - Op.origination ~fee ~delegate:pkh (I i) contract - >>=? fun (op, orig_contract) -> + Op.delegation ~fee (I i) contract (Some delegate_pkh) + >>=? fun op -> Context.Contract.balance (I i) contract >>=? fun balance -> if fee > balance then @@ -1446,29 +1466,21 @@ let unregistered_and_unrevealed_self_delegate_key_init_origination ~fee () = else (* origination did not proceed; fee has been debited *) Incremental.add_operation - ~expect_failure:(expect_unregistered_key pkh) + ~expect_failure:(expect_unregistered_key delegate_pkh) i op >>=? fun i -> Assert.balance_was_debited ~loc:__LOC__ (I i) contract balance fee - >>=? fun () -> - (* originated contract has not been created *) - Context.Contract.balance (I i) orig_contract - >>= fun err -> - Assert.error ~loc:__LOC__ err (function - | RPC_context.Not_found _ -> - true - | _ -> - false) -(* originate and self-delegation on revelead but not registered contract *) -let unregistered_and_revealed_self_delegate_key_init_origination ~fee () = +(* self-delegation on revelead but not registered contract *) +let unregistered_and_revealed_self_delegate_key_init_delegation ~fee () = Context.init 1 >>=? fun (b, bootstrap_contracts) -> Incremental.begin_construction b >>=? fun i -> let bootstrap = List.hd bootstrap_contracts in let {Account.pkh; pk; _} = Account.new_account () in + let {Account.pkh = delegate_pkh; _} = Account.new_account () in let contract = Alpha_context.Contract.implicit_contract pkh in Op.transaction (I i) bootstrap contract (Tez.of_int 10) >>=? fun op -> @@ -1478,9 +1490,8 @@ let unregistered_and_revealed_self_delegate_key_init_origination ~fee () = >>=? fun op -> Incremental.add_operation i op >>=? fun i -> - (* origination with delegate argument *) - Op.origination ~fee ~delegate:pkh (I i) contract - >>=? fun (op, orig_contract) -> + Op.delegation ~fee (I i) contract (Some delegate_pkh) + >>=? fun op -> Context.Contract.balance (I i) contract >>=? fun balance -> if fee > balance then @@ -1494,58 +1505,50 @@ let unregistered_and_revealed_self_delegate_key_init_origination ~fee () = else (* origination did not proceed; fee has been debited *) Incremental.add_operation - ~expect_failure:(expect_unregistered_key pkh) + ~expect_failure:(expect_unregistered_key delegate_pkh) i op >>=? fun i -> Assert.balance_was_debited ~loc:__LOC__ (I i) contract balance fee - >>=? fun () -> - (* originated contract has not been created *) - Context.Contract.balance (I i) orig_contract - >>= fun err -> - Assert.error ~loc:__LOC__ err (function - | RPC_context.Not_found _ -> - true - | _ -> - false) -(* originate and self-delegation on revealed and registered contract *) -let registered_self_delegate_key_init_origination () = +(* self-delegation on revealed and registered contract *) +let registered_self_delegate_key_init_delegation () = Context.init 1 >>=? fun (b, bootstrap_contracts) -> Incremental.begin_construction b >>=? fun i -> let bootstrap = List.hd bootstrap_contracts in - let {Account.pkh; pk; _} = Account.new_account () in + let {Account.pkh; _} = Account.new_account () in + let {Account.pkh = delegate_pkh; pk = delegate_pk; _} = + Account.new_account () + in let contract = Alpha_context.Contract.implicit_contract pkh in + let delegate_contract = + Alpha_context.Contract.implicit_contract delegate_pkh + in Op.transaction (I i) bootstrap contract (Tez.of_int 10) >>=? fun op -> Incremental.add_operation i op >>=? fun i -> - Op.revelation (I i) pk + Op.transaction (I i) bootstrap delegate_contract (Tez.of_int 1) >>=? fun op -> Incremental.add_operation i op >>=? fun i -> - Op.delegation (I i) contract (Some pkh) + Op.revelation (I i) delegate_pk >>=? fun op -> Incremental.add_operation i op >>=? fun i -> - Context.Contract.balance (I i) contract - >>=? fun balance -> - Context.get_constants (I i) - >>=? fun {parametric = {origination_size; cost_per_byte; _}; _} -> - Tez.(cost_per_byte *? Int64.of_int origination_size) - >>?= fun origination_burn -> - (* origination with delegate argument *) - Op.origination ~delegate:pkh ~credit:Tez.one (I i) contract - >>=? fun (op, orig_contract) -> - Tez.(origination_burn +? Tez.one) - >>?= fun total_cost -> + Op.delegation (I i) delegate_contract (Some delegate_pkh) + >>=? fun op -> Incremental.add_operation i op >>=? fun i -> - Assert.balance_was_debited ~loc:__LOC__ (I i) contract balance total_cost - >>=? fun () -> - Assert.balance_is ~loc:__LOC__ (I i) orig_contract Tez.one + Op.delegation (I i) contract (Some delegate_pkh) + >>=? fun op -> + Incremental.add_operation i op + >>=? fun i -> + Context.Contract.delegate (I i) contract + >>=? fun delegate -> + Assert.equal_pkh ~loc:__LOC__ delegate delegate_pkh >>=? fun () -> return_unit let tests_delegate_registration = @@ -1667,33 +1670,33 @@ let tests_delegate_registration = (unregistered_delegate_key_switch_delegation_credit ~amount:Tez.one_mutez ~fee:Tez.max_tez); - (* origination with self_delegation on unrevealed and unregistered contract *) + (* self delegation on unrevealed and unregistered contract *) Test.tztest - "unregistered and unrevealed self-delegation (origination, small fee)" + "unregistered and unrevealed self-delegation (small fee)" `Quick - (unregistered_and_unrevealed_self_delegate_key_init_origination + (unregistered_and_unrevealed_self_delegate_key_init_delegation ~fee:Tez.one_mutez); Test.tztest - "unregistered and unrevealed self-delegation (origination, large fee)" + "unregistered and unrevealed self-delegation (large fee)" `Quick - (unregistered_and_unrevealed_self_delegate_key_init_origination + (unregistered_and_unrevealed_self_delegate_key_init_delegation ~fee:Tez.max_tez); - (* origination with self_delegation on unregistered contract *) + (* self delegation on unregistered contract *) Test.tztest - "unregistered and revealed self-delegation (origination, small fee)" + "unregistered and revealed self-delegation (small fee)" `Quick - (unregistered_and_revealed_self_delegate_key_init_origination + (unregistered_and_revealed_self_delegate_key_init_delegation ~fee:Tez.one_mutez); Test.tztest - "unregistered and revealed self-delegation (origination, large fee)" + "unregistered and revealed self-delegation large fee)" `Quick - (unregistered_and_revealed_self_delegate_key_init_origination + (unregistered_and_revealed_self_delegate_key_init_delegation ~fee:Tez.max_tez); - (* origination with self_delegation on registered contract *) + (* self delegation on registered contract *) Test.tztest - "registered and revelead self-delegation (origination)" + "registered and revelead self-delegation" `Quick - registered_self_delegate_key_init_origination; + registered_self_delegate_key_init_delegation; (*** unregistered delegate key: failed self-delegation ***) (* no token transfer, self-delegation *) Test.tztest @@ -1707,11 +1710,6 @@ let tests_delegate_registration = (failed_self_delegation_emptied_implicit_contract Tez.one_mutez); (*** valid registration ***) (* valid registration: credit 1 μꜩ, self delegation *) - Test.tztest - "valid delegate registration: credit 1μꜩ, self delegation \ - (origination)" - `Quick - (valid_delegate_registration_init_origination_credit Tez.one_mutez); Test.tztest "valid delegate registration: credit 1μꜩ, self delegation (init with \ delegation)" @@ -1723,11 +1721,6 @@ let tests_delegate_registration = `Quick (valid_delegate_registration_switch_delegation_credit Tez.one_mutez); (* valid registration: credit 1 μꜩ, self delegation, debit 1μꜩ *) - Test.tztest - "valid delegate registration: credit 1μꜩ, self delegation, debit \ - 1μꜩ (origination)" - `Quick - (valid_delegate_registration_init_origination_credit_debit Tez.one_mutez); Test.tztest "valid delegate registration: credit 1μꜩ, self delegation, debit \ 1μꜩ (init with delegation)" diff --git a/src/proto_alpha/lib_protocol/test/double_endorsement.ml b/src/proto_alpha/lib_protocol/test/double_endorsement.ml index 982cec9b488b..accc3c0ded72 100644 --- a/src/proto_alpha/lib_protocol/test/double_endorsement.ml +++ b/src/proto_alpha/lib_protocol/test/double_endorsement.ml @@ -131,7 +131,7 @@ let too_early_double_endorsement_evidence () = block_fork b >>=? fun (blk_a, blk_b) -> Context.get_endorser (B blk_a) - >>=? fun (delegate, _) -> + >>=? fun (delegate, _slots) -> Op.endorsement ~delegate (B blk_a) () >>=? fun endorsement_a -> Op.endorsement ~delegate (B blk_b) () @@ -222,11 +222,11 @@ let wrong_delegate () = block_fork b >>=? fun (blk_a, blk_b) -> Context.get_endorser (B blk_a) - >>=? fun (endorser_a, _) -> + >>=? fun (endorser_a, _a_slots) -> Op.endorsement ~delegate:endorser_a (B blk_a) () >>=? fun endorsement_a -> Context.get_endorser (B blk_b) - >>=? fun (endorser_b, _) -> + >>=? fun (endorser_b, _b_slots) -> let delegate = if Signature.Public_key_hash.equal pkh1 endorser_b then pkh2 else pkh1 in diff --git a/src/proto_alpha/lib_protocol/test/endorsement.ml b/src/proto_alpha/lib_protocol/test/endorsement.ml index e4e511211f01..ecf3a0667020 100644 --- a/src/proto_alpha/lib_protocol/test/endorsement.ml +++ b/src/proto_alpha/lib_protocol/test/endorsement.ml @@ -25,10 +25,10 @@ (** Endorsing a block adds an extra layer of confidence to the Tezos's PoS algorithm. The block endorsing operation must be included in - the following block. Each endorser possess a slot corresponding to - their priority. After [preserved_cycles], a reward is given to the - endorser. This reward depends on the priority of the endorsed - block. *) + the following block. Each endorser possess a number of slots + corresponding to their priority. After [preserved_cycles], a reward + is given to the endorser. This reward depends on the priority of + the block that contains the endorsements. *) open Protocol open Alpha_context @@ -39,20 +39,16 @@ open Test_tez (* Utility functions *) (****************************************************************) -let get_expected_reward ?(priority = 0) ~nb_baking ~nb_endorsement ctxt = - Context.get_constants ctxt - >>=? fun Constants.{parametric = {endorsement_reward; block_reward; _}; _} -> - let open Environment in - let open Tez in - (endorsement_reward /? Int64.(succ (of_int priority))) - >>?= fun endorsement_reward -> - endorsement_reward *? Int64.of_int nb_endorsement - >>?= fun endorsement_reward -> - block_reward *? Int64.of_int nb_baking - >>?= fun baking_reward -> - endorsement_reward +? baking_reward >>?= fun reward -> return reward +let get_expected_reward ctxt ~priority ~baker ~endorsing_power = + ( if baker then Context.get_baking_reward ctxt ~priority ~endorsing_power + else return (Test_tez.Tez.of_int 0) ) + >>=? fun baking_reward -> + Context.get_endorsing_reward ctxt ~priority ~endorsing_power + >>=? fun endorsing_reward -> + Test_tez.Tez.(endorsing_reward +? baking_reward) + >>?= fun reward -> return reward -let get_expected_deposit ctxt ~nb_baking ~nb_endorsement = +let get_expected_deposit ctxt ~baker ~endorsing_power = Context.get_constants ctxt >>=? fun Constants. { parametric = @@ -60,18 +56,19 @@ let get_expected_deposit ctxt ~nb_baking ~nb_endorsement = _ } -> let open Environment in let open Tez in - endorsement_security_deposit *? Int64.of_int nb_endorsement + let baking_deposit = if baker then block_security_deposit else of_int 0 in + endorsement_security_deposit *? Int64.of_int endorsing_power >>?= fun endorsement_deposit -> - block_security_deposit *? Int64.of_int nb_baking - >>?= fun baking_deposit -> endorsement_deposit +? baking_deposit >>?= fun deposit -> return deposit -let assert_endorser_balance_consistency ~loc ?(priority = 0) ?(nb_baking = 0) - ~nb_endorsement ctxt pkh initial_balance = +(* [baker] is true if the [pkh] has also baked the current block, in + which case correspoding deposit and reward should be ajusted *) +let assert_endorser_balance_consistency ~loc ?(priority = 0) ?(baker = false) + ~endorsing_power ctxt pkh initial_balance = let contract = Contract.implicit_contract pkh in - get_expected_reward ~priority ~nb_baking ~nb_endorsement ctxt + get_expected_reward ctxt ~priority ~baker ~endorsing_power >>=? fun reward -> - get_expected_deposit ctxt ~nb_baking ~nb_endorsement + get_expected_deposit ctxt ~baker ~endorsing_power >>=? fun deposit -> Assert.balance_was_debited ~loc ctxt contract initial_balance deposit >>=? fun () -> @@ -82,6 +79,19 @@ let assert_endorser_balance_consistency ~loc ?(priority = 0) ?(nb_baking = 0) Context.Contract.balance ~kind:Deposit ctxt contract >>=? fun deposit_balance -> Assert.equal_tez ~loc deposit_balance deposit +let delegates_with_slots endorsers = + List.map + (fun (endorser : Delegate_services.Endorsing_rights.t) -> + endorser.delegate) + endorsers + +let endorsing_power endorsers = + List.fold_left + (fun sum (endorser : Delegate_services.Endorsing_rights.t) -> + sum + List.length endorser.slots) + 0 + endorsers + (****************************************************************) (* Tests *) (****************************************************************) @@ -96,17 +106,21 @@ let simple_endorsement () = >>=? fun op -> Context.Contract.balance (B b) (Contract.implicit_contract delegate) >>=? fun initial_balance -> - Block.bake ~policy:(Excluding [delegate]) ~operations:[Operation.pack op] b + let policy = Block.Excluding [delegate] in + Block.get_next_baker ~policy b + >>=? fun (_, priority, _) -> + Block.bake ~policy ~operations:[Operation.pack op] b >>=? fun b2 -> assert_endorser_balance_consistency ~loc:__LOC__ (B b2) - ~nb_endorsement:(List.length slots) + ~priority + ~endorsing_power:(List.length slots) delegate initial_balance -(** Apply a maximum number of endorsement. A endorser can be selected - twice. *) +(** Apply a maximum number of endorsements. An endorser can be + selected twice. *) let max_endorsement () = let endorsers_per_block = 16 in Context.init ~endorsers_per_block 32 @@ -142,92 +156,75 @@ let max_endorsement () = (* One account can endorse more than one time per level, we must check that the bonds are summed up *) iter_s - (fun (endorser_account, (nb_endorsement, previous_balance)) -> + (fun (endorser_account, (endorsing_power, previous_balance)) -> assert_endorser_balance_consistency ~loc:__LOC__ (B b) - ~nb_endorsement + ~endorsing_power endorser_account previous_balance) (List.combine delegates previous_balances) -(** Check that an endorser balance is consistent with a different priority *) -let consistent_priority () = - Context.init 32 - >>=? fun (b, _) -> - Block.get_next_baker ~policy:(By_priority 15) b - >>=? fun (baker_account, _, _) -> - Block.bake ~policy:(By_priority 15) b - >>=? fun b -> - (* Grab an endorser that didn't bake the previous block *) - Context.get_endorsers (B b) - >>=? fun endorsers -> - let endorser = - List.find - (fun e -> e.Delegate_services.Endorsing_rights.delegate <> baker_account) - endorsers - in - Context.Contract.balance (B b) (Contract.implicit_contract endorser.delegate) - >>=? fun balance -> - Op.endorsement ~delegate:endorser.delegate (B b) () - >>=? fun operation -> - let operation = Operation.pack operation in - Block.bake ~policy:(Excluding [endorser.delegate]) ~operation b - >>=? fun b -> - assert_endorser_balance_consistency - ~loc:__LOC__ - ~priority:15 - (B b) - ~nb_endorsement:(List.length endorser.slots) - endorser.delegate - balance - -(** Check every 32 endorser's balances are consistent with a different priority *) +(** Check every that endorsers' balances are consistent with different priorities *) let consistent_priorities () = - let priorities = 15 -- 31 in + let priorities = 0 -- 64 in Context.init 64 >>=? fun (b, _) -> - iter_s - (fun priority -> - (* Bake with a specific priority *) - Block.get_next_baker ~policy:(By_priority priority) b - >>=? fun (baker_account, _, _) -> - Block.bake ~policy:(By_priority priority) b - >>=? fun b -> - (* Grab an endorser that didn't bake the previous block *) + fold_left_s + (fun (b, used_pkhes) priority -> + (* Choose an endorser that has not baked nor endorsed before *) Context.get_endorsers (B b) >>=? fun endorsers -> let endorser = - List.find - (fun e -> - e.Delegate_services.Endorsing_rights.delegate <> baker_account) + List.find_opt + (fun (e : Delegate_services.Endorsing_rights.t) -> + not (Signature.Public_key_hash.Set.mem e.delegate used_pkhes)) endorsers in - Context.Contract.balance - (B b) - (Contract.implicit_contract endorser.delegate) - >>=? fun balance -> - Op.endorsement ~delegate:endorser.delegate (B b) () - >>=? fun operation -> - let operation = Operation.pack operation in - Block.bake ~policy:(Excluding [endorser.delegate]) ~operation b - >>=? fun b -> - assert_endorser_balance_consistency - ~loc:__LOC__ - ~priority - (B b) - ~nb_endorsement:(List.length endorser.slots) - endorser.delegate - balance) + match endorser with + | None -> + return (b, used_pkhes) (* not enough fresh endorsers; we "stop" *) + | Some endorser -> + Context.Contract.balance + (B b) + (Contract.implicit_contract endorser.delegate) + >>=? fun balance -> + Op.endorsement ~delegate:endorser.delegate (B b) () + >>=? fun operation -> + let operation = Operation.pack operation in + Block.get_next_baker ~policy:(By_priority priority) b + >>=? fun (baker, _, _) -> + let used_pkhes = + Signature.Public_key_hash.Set.add baker used_pkhes + in + let used_pkhes = + Signature.Public_key_hash.Set.add endorser.delegate used_pkhes + in + (* Bake with a specific priority *) + Block.bake ~policy:(By_priority priority) ~operation b + >>=? fun b -> + let is_baker = + Signature.Public_key_hash.(baker = endorser.delegate) + in + assert_endorser_balance_consistency + ~loc:__LOC__ + ~priority + ~baker:is_baker + (B b) + ~endorsing_power:(List.length endorser.slots) + endorser.delegate + balance + >>=? fun () -> return (b, used_pkhes)) + (b, Signature.Public_key_hash.Set.empty) priorities + >>=? fun _b -> return_unit (** Check that after [preserved_cycles] cycles the endorser gets his reward *) let reward_retrieval () = Context.init 5 >>=? fun (b, _) -> Context.get_constants (B b) - >>=? fun Constants.{parametric = {preserved_cycles; endorsement_reward; _}; _} - -> + >>=? fun Constants.{parametric = {preserved_cycles; _}; _} -> Context.get_endorser (B b) >>=? fun (endorser, slots) -> Context.Contract.balance (B b) (Contract.implicit_contract endorser) @@ -235,7 +232,10 @@ let reward_retrieval () = Op.endorsement ~delegate:endorser (B b) () >>=? fun operation -> let operation = Operation.pack operation in - Block.bake ~policy:(Excluding [endorser]) ~operation b + let policy = Block.Excluding [endorser] in + Block.get_next_baker ~policy b + >>=? fun (_, priority, _) -> + Block.bake ~policy ~operation b >>=? fun b -> (* Bake (preserved_cycles + 1) cycles *) fold_left_s @@ -243,7 +243,11 @@ let reward_retrieval () = b (0 -- preserved_cycles) >>=? fun b -> - Lwt.return Tez.(endorsement_reward *? Int64.of_int (List.length slots)) + get_expected_reward + (B b) + ~priority + ~baker:false + ~endorsing_power:(List.length slots) >>=? fun reward -> Assert.balance_was_credited ~loc:__LOC__ @@ -270,7 +274,6 @@ let reward_retrieval_two_endorsers () = >>=? fun endorsers -> let endorser1 = List.hd endorsers in let endorser2 = List.hd (List.tl endorsers) in - let policy = Block.Excluding [endorser1.delegate; endorser2.delegate] in Context.Contract.balance (B b) (Contract.implicit_contract endorser1.delegate) @@ -284,12 +287,17 @@ let reward_retrieval_two_endorsers () = endorsement_security_deposit *? Int64.of_int (List.length endorser1.slots)) >>=? fun security_deposit1 -> - Lwt.return - Tez.(endorsement_reward *? Int64.of_int (List.length endorser1.slots)) - >>=? fun reward1 -> (* endorser1 endorses the genesis block in cycle 0 *) Op.endorsement ~delegate:endorser1.delegate (B b) () >>=? fun operation1 -> + let policy = Block.Excluding [endorser1.delegate; endorser2.delegate] in + Block.get_next_baker ~policy b + >>=? fun (_, priority, _) -> + Tez.(endorsement_reward /? Int64.(succ (of_int priority))) + >>?= fun reward_per_slot -> + Lwt.return + Tez.(reward_per_slot *? Int64.of_int (List.length endorser1.slots)) + >>=? fun reward1 -> (* bake next block, include endorsement of endorser1 *) Block.bake ~policy ~operation:(Operation.pack operation1) b >>=? fun b -> @@ -326,10 +334,8 @@ let reward_retrieval_two_endorsers () = Context.get_endorsers (B b) >>=? fun endorsers -> let same_endorser2 endorser = - Signature.Public_key_hash.compare - endorser.Delegate_services.Endorsing_rights.delegate - endorser2.delegate - = 0 + Signature.Public_key_hash.( + endorser.Delegate_services.Endorsing_rights.delegate = endorser2.delegate) in let endorser2 = List.find same_endorser2 endorsers in (* No exception raised: in sandboxed mode endorsers do not change between blocks *) @@ -341,15 +347,15 @@ let reward_retrieval_two_endorsers () = (* endorser2 endorses the last block in cycle 0 *) Op.endorsement ~delegate:endorser2.delegate (B b) () >>=? fun operation2 -> + (* bake first block in cycle 1, include endorsement of endorser2 *) + Block.bake ~policy ~operation:(Operation.pack operation2) b + >>=? fun b -> let priority = b.header.protocol_data.contents.priority in Tez.(endorsement_reward /? Int64.(succ (of_int priority))) >>?= fun reward_per_slot -> Lwt.return Tez.(reward_per_slot *? Int64.of_int (List.length endorser2.slots)) >>=? fun reward2 -> - (* bake first block in cycle 1, include endorsement of endorser2 *) - Block.bake ~policy ~operation:(Operation.pack operation2) b - >>=? fun b -> Assert.balance_was_debited ~loc:__LOC__ (B b) @@ -482,15 +488,19 @@ let duplicate_endorsement () = false) (** Apply a single endorsement from the slot 0 endorser *) -let no_enough_for_deposit () = +let not_enough_for_deposit () = Context.init 5 ~endorsers_per_block:1 - >>=? fun (b, contracts) -> + >>=? fun (b_init, contracts) -> Error_monad.map_s - (fun c -> Context.Contract.manager (B b) c >>=? fun m -> return (m, c)) + (fun c -> + Context.Contract.manager (B b_init) c >>=? fun m -> return (m, c)) contracts >>=? fun managers -> + Block.bake b_init + >>=? fun b -> + (* retrieve the level 2's endorser *) Context.get_endorser (B b) - >>=? fun (endorser, _) -> + >>=? fun (endorser, _slots) -> let (_, contract_other_than_endorser) = List.find (fun (c, _) -> @@ -502,19 +512,23 @@ let no_enough_for_deposit () = (fun (c, _) -> Signature.Public_key_hash.equal c.Account.pkh endorser) managers in - Op.endorsement ~delegate:endorser (B b) () - >>=? fun op_endo -> Context.Contract.balance (B b) (Contract.implicit_contract endorser) >>=? fun initial_balance -> + (* Empty the future endorser account *) Op.transaction - (B b) + (B b_init) contract_of_endorser contract_other_than_endorser initial_balance >>=? fun op_trans -> + Block.bake ~operation:op_trans b_init + >>=? fun b -> + (* Endorse with a zero balance *) + Op.endorsement ~delegate:endorser (B b) () + >>=? fun op_endo -> Block.bake ~policy:(Excluding [endorser]) - ~operations:[Operation.pack op_endo; op_trans] + ~operation:(Operation.pack op_endo) b >>= fun res -> Assert.proto_error ~loc:__LOC__ res (function @@ -523,16 +537,104 @@ let no_enough_for_deposit () = | _ -> false) +(* check that a block with not enough endorsement cannot be baked *) +let endorsement_threshold () = + let initial_endorsers = 28 in + let num_accounts = 100 in + Context.init ~initial_endorsers num_accounts + >>=? fun (b, _) -> + Context.get_endorsers (B b) + >>=? fun endorsers -> + let num_endorsers = List.length endorsers in + (* we try to bake with more and more endorsers, but at each + iteration with a timestamp smaller than required *) + iter_s + (fun i -> + (* the priority is chosen rather arbitrarily *) + let priority = num_endorsers - i in + let crt_endorsers = List.take_n i endorsers in + let endorsing_power = endorsing_power crt_endorsers in + let delegates = delegates_with_slots crt_endorsers in + map_s (fun x -> Op.endorsement ~delegate:x (B b) ()) delegates + >>=? fun ops -> + Context.get_minimal_valid_time (B b) ~priority ~endorsing_power + >>=? fun timestamp -> + (* decrease the timestamp by one second *) + let seconds = + Int64.(sub (of_string (Timestamp.to_seconds_string timestamp)) 1L) + in + match Timestamp.of_seconds (Int64.to_string seconds) with + | None -> + failwith "timestamp to/from string manipulation failed" + | Some timestamp -> + Block.bake + ~timestamp + ~policy:(By_priority priority) + ~operations:(List.map Operation.pack ops) + b + >>= fun b2 -> + Assert.proto_error ~loc:__LOC__ b2 (function + | Baking.Timestamp_too_early _ + | Apply.Not_enough_endorsements_for_priority _ -> + true + | _ -> + false)) + (0 -- (num_endorsers - 1)) + >>=? fun () -> + (* we bake with all endorsers endorsing, at the right time *) + let priority = 0 in + let endorsing_power = endorsing_power endorsers in + let delegates = delegates_with_slots endorsers in + map_s (fun delegate -> Op.endorsement ~delegate (B b) ()) delegates + >>=? fun ops -> + Context.get_minimal_valid_time (B b) ~priority ~endorsing_power + >>=? fun timestamp -> + Block.bake + ~policy:(By_priority priority) + ~timestamp + ~operations:(List.map Operation.pack ops) + b + >>= fun _ -> return_unit + +let test_fitness_gap () = + let num_accounts = 5 in + Context.init num_accounts + >>=? fun (b, _) -> + ( match Fitness_repr.to_int64 b.header.shell.fitness with + | Ok fitness -> + return (Int64.to_int fitness) + | Error _ -> + assert false ) + >>=? fun fitness -> + Context.get_endorser (B b) + >>=? fun (delegate, _slots) -> + Op.endorsement ~delegate (B b) () + >>=? fun op -> + (* bake at priority 0 succeed thanks to enough endorsements *) + Block.bake ~policy:(By_priority 0) ~operations:[Operation.pack op] b + >>=? fun b -> + ( match Fitness_repr.to_int64 b.header.shell.fitness with + | Ok new_fitness -> + return (Int64.to_int new_fitness - fitness) + | Error _ -> + assert false ) + >>=? fun res -> + (* in Emmy+, the fitness increases by 1, so the difference between + the fitness at level 1 and at level 0 is 1, independently if the + number fo endorements (here 1) *) + Assert.equal_int ~loc:__LOC__ res 1 >>=? fun () -> return_unit + let tests = [ Test.tztest "Simple endorsement" `Quick simple_endorsement; Test.tztest "Maximum endorsement" `Quick max_endorsement; - Test.tztest "Consistent priority" `Quick consistent_priority; Test.tztest "Consistent priorities" `Quick consistent_priorities; Test.tztest "Reward retrieval" `Quick reward_retrieval; Test.tztest "Reward retrieval two endorsers" `Quick reward_retrieval_two_endorsers; + Test.tztest "Endorsement threshold" `Quick endorsement_threshold; + Test.tztest "Fitness gap" `Quick test_fitness_gap; (* Fail scenarios *) Test.tztest "Wrong endorsement predecessor" @@ -540,4 +642,4 @@ let tests = wrong_endorsement_predecessor; Test.tztest "Invalid endorsement level" `Quick invalid_endorsement_level; Test.tztest "Duplicate endorsement" `Quick duplicate_endorsement; - Test.tztest "Not enough for deposit" `Quick no_enough_for_deposit ] + Test.tztest "Not enough for deposit" `Quick not_enough_for_deposit ] diff --git a/src/proto_alpha/lib_protocol/test/helpers/block.ml b/src/proto_alpha/lib_protocol/test/helpers/block.ml index 6a9b12ad3a58..03b87d389556 100644 --- a/src/proto_alpha/lib_protocol/test/helpers/block.ml +++ b/src/proto_alpha/lib_protocol/test/helpers/block.ml @@ -113,6 +113,23 @@ let dispatch_policy = function let get_next_baker ?(policy = By_priority 0) = dispatch_policy policy +let get_endorsing_power b = + fold_left_s + (fun acc (op : Operation.packed) -> + let (Operation_data data) = op.protocol_data in + match data.contents with + | Single (Endorsement _) -> + Alpha_services.Delegate.Endorsing_power.get + rpc_ctxt + b + op + Chain_id.zero + >>=? fun endorsement_power -> return (acc + endorsement_power) + | _ -> + return acc) + 0 + b.operations + module Forge = struct type header = { baker : public_key_hash; @@ -163,9 +180,13 @@ module Forge = struct in Block_header.{shell; protocol_data = {contents; signature}} |> return - let forge_header ?(policy = By_priority 0) ?(operations = []) pred = + let forge_header ?(policy = By_priority 0) ?timestamp ?(operations = []) pred + = dispatch_policy policy pred - >>=? fun (pkh, priority, timestamp) -> + >>=? fun (pkh, priority, _timestamp) -> + Alpha_services.Delegate.Minimal_valid_time.get rpc_ctxt pred priority 0 + >>=? fun expected_timestamp -> + let timestamp = Option.unopt ~default:expected_timestamp timestamp in let level = Int32.succ pred.header.shell.level in ( match Fitness_repr.to_int64 pred.header.shell.fitness with | Ok old_fitness -> @@ -288,8 +309,8 @@ let genesis_with_parameters parameters = (* if no parameter file is passed we check in the current directory where the test is run *) -let genesis ?with_commitments ?endorsers_per_block - (initial_accounts : (Account.t * Tez_repr.t) list) = +let genesis ?with_commitments ?endorsers_per_block ?initial_endorsers + ?min_proposal_quorum (initial_accounts : (Account.t * Tez_repr.t) list) = if initial_accounts = [] then Pervasives.failwith "Must have one account with a roll to bake" ; let open Tezos_protocol_alpha_parameters in @@ -297,7 +318,20 @@ let genesis ?with_commitments ?endorsers_per_block let endorsers_per_block = Option.unopt ~default:constants.endorsers_per_block endorsers_per_block in - let constants = {constants with endorsers_per_block} in + let initial_endorsers = + Option.unopt ~default:constants.initial_endorsers initial_endorsers + in + let min_proposal_quorum = + Option.unopt ~default:constants.min_proposal_quorum min_proposal_quorum + in + let constants = + { + constants with + endorsers_per_block; + initial_endorsers; + min_proposal_quorum; + } + in (* Check there is at least one roll *) ( try let open Test_utils in @@ -363,7 +397,7 @@ let apply header ?(operations = []) pred = let hash = Block_header.hash header in {hash; header; operations; context} -let bake ?policy ?operation ?operations pred = +let bake ?policy ?timestamp ?operation ?operations pred = let operations = match (operation, operations) with | (Some op, Some ops) -> @@ -375,7 +409,7 @@ let bake ?policy ?operation ?operations pred = | (None, None) -> None in - Forge.forge_header ?policy ?operations pred + Forge.forge_header ?timestamp ?policy ?operations pred >>=? fun header -> Forge.sign_header header >>=? fun header -> apply header ?operations pred diff --git a/src/proto_alpha/lib_protocol/test/helpers/block.mli b/src/proto_alpha/lib_protocol/test/helpers/block.mli index 23b560363085..b1d4ad5bc28e 100644 --- a/src/proto_alpha/lib_protocol/test/helpers/block.mli +++ b/src/proto_alpha/lib_protocol/test/helpers/block.mli @@ -54,6 +54,8 @@ val get_next_baker : t -> (public_key_hash * int * Time.Protocol.t) tzresult Lwt.t +val get_endorsing_power : block -> int tzresult Lwt.t + module Forge : sig val contents : ?proof_of_work_nonce:MBytes.t -> @@ -68,6 +70,7 @@ module Forge : sig The header can then be modified and applied with [apply]. *) val forge_header : ?policy:baker_policy -> + ?timestamp:Timestamp.time -> ?operations:Operation.packed list -> t -> header tzresult Lwt.t @@ -90,6 +93,8 @@ end val genesis : ?with_commitments:bool -> ?endorsers_per_block:int -> + ?initial_endorsers:int -> + ?min_proposal_quorum:int32 -> (Account.t * Tez_repr.tez) list -> block tzresult Lwt.t @@ -113,6 +118,7 @@ val apply : *) val bake : ?policy:baker_policy -> + ?timestamp:Timestamp.time -> ?operation:Operation.packed -> ?operations:Operation.packed list -> t -> diff --git a/src/proto_alpha/lib_protocol/test/helpers/context.ml b/src/proto_alpha/lib_protocol/test/helpers/context.ml index 4cb8647c283b..b1164be156f0 100644 --- a/src/proto_alpha/lib_protocol/test/helpers/context.ml +++ b/src/proto_alpha/lib_protocol/test/helpers/context.ml @@ -134,6 +134,38 @@ let get_seed ctxt = Alpha_services.Seed.get rpc_ctxt ctxt let get_constants ctxt = Alpha_services.Constants.all rpc_ctxt ctxt +let get_minimal_valid_time ctxt ~priority ~endorsing_power = + Alpha_services.Delegate.Minimal_valid_time.get + rpc_ctxt + ctxt + priority + endorsing_power + +let get_baking_reward ctxt ~priority ~endorsing_power = + get_constants ctxt + >>=? fun Constants.{parametric = {block_reward; endorsers_per_block; _}; _} -> + let prio_factor_denominator = Int64.(succ (of_int priority)) in + let endo_factor_numerator = + Int64.of_int (8 + (2 * endorsing_power / endorsers_per_block)) + in + let endo_factor_denominator = 10L in + Lwt.return + Test_tez.Tez.( + block_reward *? endo_factor_numerator + >>? fun val1 -> + val1 /? endo_factor_denominator + >>? fun val2 -> val2 /? prio_factor_denominator) + +let get_endorsing_reward ctxt ~priority ~endorsing_power = + get_constants ctxt + >>=? fun Constants.{parametric = {endorsement_reward; _}; _} -> + let open Test_utils in + Test_tez.Tez.( + (endorsement_reward /? Int64.(succ (of_int priority))) + >>?= fun reward_per_slot -> + reward_per_slot *? Int64.of_int endorsing_power + >>?= fun reward -> return reward) + (* Voting *) module Vote = struct @@ -169,6 +201,17 @@ module Vote = struct assert false | Some p -> Lwt.return (Protocol_hash.of_bytes_exn p) + + let get_participation_ema (b : Block.t) = + Environment.Context.get b.context ["votes"; "participation_ema"] + >>= function + | None -> assert false | Some bytes -> return (MBytes.get_int32 bytes 0) + + let set_participation_ema (b : Block.t) ema = + let bytes = MBytes.create 4 in + MBytes.set_int32 bytes 0 ema ; + Environment.Context.set b.context ["votes"; "participation_ema"] bytes + >>= fun context -> Lwt.return {b with context} end module Contract = struct @@ -211,15 +254,26 @@ module Contract = struct (Ok Tez.zero) ) let counter ctxt contract = - Alpha_services.Contract.counter rpc_ctxt ctxt contract + match Contract.is_implicit contract with + | None -> + invalid_arg "Helpers.Context.counter" + | Some mgr -> + Alpha_services.Contract.counter rpc_ctxt ctxt mgr - let manager ctxt contract = - Alpha_services.Contract.manager rpc_ctxt ctxt contract - >>=? fun pkh -> Account.find pkh + let manager _ contract = + match Contract.is_implicit contract with + | None -> + invalid_arg "Helpers.Context.manager" + | Some pkh -> + Account.find pkh let is_manager_key_revealed ctxt contract = - Alpha_services.Contract.manager_key rpc_ctxt ctxt contract - >>=? fun (_, res) -> return (res <> None) + match Contract.is_implicit contract with + | None -> + invalid_arg "Helpers.Context.is_manager_key_revealed" + | Some mgr -> + Alpha_services.Contract.manager_key rpc_ctxt ctxt mgr + >>=? fun res -> return (res <> None) let delegate ctxt contract = Alpha_services.Contract.delegate rpc_ctxt ctxt contract @@ -234,7 +288,7 @@ module Delegate = struct frozen_balance : Tez.t; frozen_balance_by_cycle : Delegate.frozen_balance Cycle.Map.t; staking_balance : Tez.t; - delegated_contracts : Contract_hash.t list; + delegated_contracts : Contract_repr.t list; delegated_balance : Tez.t; deactivated : bool; grace_period : Cycle.t; @@ -243,12 +297,18 @@ module Delegate = struct let info ctxt pkh = Alpha_services.Delegate.info rpc_ctxt ctxt pkh end -let init ?endorsers_per_block ?with_commitments ?(initial_balances = []) n = +let init ?endorsers_per_block ?with_commitments ?(initial_balances = []) + ?initial_endorsers ?min_proposal_quorum n = let accounts = Account.generate_accounts ~initial_balances n in let contracts = List.map (fun (a, _) -> Alpha_context.Contract.implicit_contract Account.(a.pkh)) accounts in - Block.genesis ?endorsers_per_block ?with_commitments accounts + Block.genesis + ?endorsers_per_block + ?with_commitments + ?initial_endorsers + ?min_proposal_quorum + accounts >>=? fun blk -> return (blk, contracts) diff --git a/src/proto_alpha/lib_protocol/test/helpers/context.mli b/src/proto_alpha/lib_protocol/test/helpers/context.mli index 008cb18060a4..c21301efa7e3 100644 --- a/src/proto_alpha/lib_protocol/test/helpers/context.mli +++ b/src/proto_alpha/lib_protocol/test/helpers/context.mli @@ -48,6 +48,15 @@ val get_seed : t -> Seed.seed tzresult Lwt.t (** Returns all the constants of the protocol *) val get_constants : t -> Constants.t tzresult Lwt.t +val get_minimal_valid_time : + t -> priority:int -> endorsing_power:int -> Time.t tzresult Lwt.t + +val get_baking_reward : + t -> priority:int -> endorsing_power:int -> Tez.t tzresult Lwt.t + +val get_endorsing_reward : + t -> priority:int -> endorsing_power:int -> Tez.t tzresult Lwt.t + module Vote : sig val get_ballots : t -> Vote.ballots tzresult Lwt.t @@ -62,6 +71,8 @@ module Vote : sig val get_current_quorum : t -> Int32.t tzresult Lwt.t + val get_participation_ema : Block.t -> Int32.t tzresult Lwt.t + val get_listings : t -> (Signature.Public_key_hash.t * int32) list tzresult Lwt.t @@ -70,6 +81,8 @@ module Vote : sig val get_current_proposal : t -> Protocol_hash.t option tzresult Lwt.t val get_protocol : Block.t -> Protocol_hash.t Lwt.t + + val set_participation_ema : Block.t -> int32 -> Block.t Lwt.t end module Contract : sig @@ -81,7 +94,7 @@ module Contract : sig (** Returns the balance of a contract, by default the main balance. If the contract is implicit the frozen balances are available too: - deposit, fees ot rewards. *) + deposit, fees or rewards. *) val balance : ?kind:balance_kind -> t -> Contract.t -> Tez.t tzresult Lwt.t val counter : t -> Contract.t -> Z.t tzresult Lwt.t @@ -101,7 +114,7 @@ module Delegate : sig frozen_balance : Tez.t; frozen_balance_by_cycle : Delegate.frozen_balance Cycle.Map.t; staking_balance : Tez.t; - delegated_contracts : Contract_hash.t list; + delegated_contracts : Contract_repr.t list; delegated_balance : Tez.t; deactivated : bool; grace_period : Cycle.t; @@ -116,5 +129,7 @@ val init : ?endorsers_per_block:int -> ?with_commitments:bool -> ?initial_balances:int64 list -> + ?initial_endorsers:int -> + ?min_proposal_quorum:int32 -> int -> (Block.t * Alpha_context.Contract.t list) tzresult Lwt.t diff --git a/src/proto_alpha/lib_protocol/test/helpers/dune b/src/proto_alpha/lib_protocol/test/helpers/dune index 01eeff6a6af9..f4b8af066949 100644 --- a/src/proto_alpha/lib_protocol/test/helpers/dune +++ b/src/proto_alpha/lib_protocol/test/helpers/dune @@ -8,6 +8,7 @@ tezos-protocol-alpha tezos-protocol-alpha-parameters) (flags (:standard -open Tezos_base__TzPervasives + -open Tezos_micheline -open Tezos_stdlib_unix -open Tezos_protocol_alpha -open Tezos_shell_services))) diff --git a/src/proto_alpha/lib_protocol/test/helpers/incremental.ml b/src/proto_alpha/lib_protocol/test/helpers/incremental.ml index b9eca52a6651..7529e8975b83 100644 --- a/src/proto_alpha/lib_protocol/test/helpers/incremental.ml +++ b/src/proto_alpha/lib_protocol/test/helpers/incremental.ml @@ -59,7 +59,13 @@ let rpc_ctxt = let begin_construction ?(priority = 0) ?timestamp ?seed_nonce_hash ?(policy = Block.By_priority priority) (predecessor : Block.t) = Block.get_next_baker ~policy predecessor - >>=? fun (delegate, priority, real_timestamp) -> + >>=? fun (delegate, priority, _timestamp) -> + Alpha_services.Delegate.Minimal_valid_time.get + Block.rpc_ctxt + predecessor + priority + 0 + >>=? fun real_timestamp -> Account.find delegate >>=? fun delegate -> let timestamp = Option.unopt ~default:real_timestamp timestamp in diff --git a/src/proto_alpha/lib_protocol/test/helpers/op.ml b/src/proto_alpha/lib_protocol/test/helpers/op.ml index 60fdf0ffbd0a..03a7a9d7e1ca 100644 --- a/src/proto_alpha/lib_protocol/test/helpers/op.ml +++ b/src/proto_alpha/lib_protocol/test/helpers/op.ml @@ -104,7 +104,7 @@ let combine_operations ?public_key ?counter ~source ctxt let reveal_op = Manager_operation { - source; + source = Signature.Public_key.hash public_key; fee = Tez.zero; counter; operation = Reveal public_key; @@ -159,14 +159,21 @@ let manager_operation ?counter ?(fee = Tez.zero) ?gas_limit ?storage_limit | true -> let op = Manager_operation - {source; fee; counter; operation; gas_limit; storage_limit} + { + source = Signature.Public_key.hash public_key; + fee; + counter; + operation; + gas_limit; + storage_limit; + } in return (Contents_list (Single op)) | false -> let op_reveal = Manager_operation { - source; + source = Signature.Public_key.hash public_key; fee = Tez.zero; counter; operation = Reveal public_key; @@ -177,7 +184,7 @@ let manager_operation ?counter ?(fee = Tez.zero) ?gas_limit ?storage_limit let op = Manager_operation { - source; + source = Signature.Public_key.hash public_key; fee; counter = Z.succ counter; operation; @@ -200,7 +207,7 @@ let revelation ctxt public_key = (Single (Manager_operation { - source; + source = Signature.Public_key.hash public_key; fee = Tez.zero; counter; operation = Reveal public_key; @@ -216,27 +223,14 @@ let originated_contract op = exception Impossible -let origination ?counter ?delegate ?script ?(spendable = true) - ?(delegatable = true) ?(preorigination = None) ?public_key ?manager ?credit - ?fee ?gas_limit ?storage_limit ctxt source = +let origination ?counter ?delegate ~script ?(preorigination = None) ?public_key + ?credit ?fee ?gas_limit ?storage_limit ctxt source = Context.Contract.manager ctxt source >>=? fun account -> - let manager = Option.unopt ~default:account.pkh manager in let default_credit = Tez.of_mutez @@ Int64.of_int 1000001 in let default_credit = Option.unopt_exn Impossible default_credit in let credit = Option.unopt ~default:default_credit credit in - let operation = - Origination - { - manager; - delegate; - script; - spendable; - delegatable; - credit; - preorigination; - } - in + let operation = Origination {delegate; script; credit; preorigination} in manager_operation ?counter ?public_key @@ -262,9 +256,10 @@ let miss_signed_endorsement ?level ctxt = let delegate = Account.find_alternate real_delegate_pkh in endorsement ~delegate:delegate.pkh ~level ctxt () -let transaction ?fee ?gas_limit ?storage_limit ?parameters ctxt +let transaction ?fee ?gas_limit ?storage_limit + ?(parameters = Script.unit_parameter) ?(entrypoint = "default") ctxt (src : Contract.t) (dst : Contract.t) (amount : Tez.t) = - let top = Transaction {amount; parameters; destination = dst} in + let top = Transaction {amount; parameters; destination = dst; entrypoint} in manager_operation ?fee ?gas_limit ?storage_limit ~source:src ctxt top >>=? fun sop -> Context.Contract.manager ctxt src @@ -343,3 +338,32 @@ let ballot ctxt (pkh : Contract.t) proposal ballot = let op = Ballot {source; period; proposal; ballot} in Account.find source >>=? fun account -> return (sign account.sk ctxt (Contents_list (Single op))) + +let dummy_script = + let open Micheline in + Script. + { + code = + lazy_expr + (strip_locations + (Seq + ( 0, + [ Prim (0, K_parameter, [Prim (0, T_unit, [], [])], []); + Prim (0, K_storage, [Prim (0, T_unit, [], [])], []); + Prim + ( 0, + K_code, + [ Seq + ( 0, + [ Prim (0, I_CDR, [], []); + Prim + ( 0, + I_NIL, + [Prim (0, T_operation, [], [])], + [] ); + Prim (0, I_PAIR, [], []) ] ) ], + [] ) ] ))); + storage = lazy_expr (strip_locations (Prim (0, D_Unit, [], []))); + } + +let dummy_script_cost = Test_tez.Tez.of_mutez_exn 38_000L diff --git a/src/proto_alpha/lib_protocol/test/helpers/op.mli b/src/proto_alpha/lib_protocol/test/helpers/op.mli index 429e32380563..7c6becf44523 100644 --- a/src/proto_alpha/lib_protocol/test/helpers/op.mli +++ b/src/proto_alpha/lib_protocol/test/helpers/op.mli @@ -44,6 +44,7 @@ val transaction : ?gas_limit:Z.t -> ?storage_limit:Z.t -> ?parameters:Script.lazy_expr -> + ?entrypoint:string -> Context.t -> Contract.t -> Contract.t -> @@ -62,12 +63,9 @@ val revelation : Context.t -> public_key -> Operation.packed tzresult Lwt.t val origination : ?counter:Z.t -> ?delegate:public_key_hash -> - ?script:Script.t -> - ?spendable:bool -> - ?delegatable:bool -> + script:Script.t -> ?preorigination:Contract.contract option -> ?public_key:public_key -> - ?manager:public_key_hash -> ?credit:Tez.tez -> ?fee:Tez.tez -> ?gas_limit:Z.t -> @@ -122,3 +120,7 @@ val ballot : Protocol_hash.t -> Vote.ballot -> Operation.packed tzresult Lwt.t + +val dummy_script : Script.t + +val dummy_script_cost : Test_tez.Tez.t diff --git a/src/proto_alpha/lib_protocol/test/origination.ml b/src/proto_alpha/lib_protocol/test/origination.ml index 57b24c993c69..0fca2df85eee 100644 --- a/src/proto_alpha/lib_protocol/test/origination.ml +++ b/src/proto_alpha/lib_protocol/test/origination.ml @@ -35,14 +35,13 @@ let ten_tez = Tez.of_int 10 send to this originated contract; spendable default is set to true meaning that this contract is spendable; delegatable default is set to true meaning that this contract is able to delegate. *) -let register_origination ?(fee = Tez.zero) ?(credit = Tez.zero) ?spendable - ?delegatable () = +let register_origination ?(fee = Tez.zero) ?(credit = Tez.zero) () = Context.init 1 >>=? fun (b, contracts) -> let source = List.hd contracts in Context.Contract.balance (B b) source >>=? fun source_balance -> - Op.origination (B b) source ~fee ~credit ?spendable ?delegatable + Op.origination (B b) source ~fee ~credit ~script:Op.dummy_script >>=? fun (operation, originated) -> Block.bake ~operation b >>=? fun b -> @@ -56,7 +55,8 @@ let register_origination ?(fee = Tez.zero) ?(credit = Tez.zero) ?spendable Lwt.return ( Tez.( +? ) credit block_security_deposit >>? Tez.( +? ) fee - >>? Tez.( +? ) origination_burn ) + >>? Tez.( +? ) origination_burn + >>? Tez.( +? ) Op.dummy_script_cost ) >>=? fun total_fee -> Assert.balance_was_debited ~loc:__LOC__ (B b) source source_balance total_fee >>=? fun () -> @@ -79,14 +79,14 @@ let register_origination ?(fee = Tez.zero) ?(credit = Tez.zero) ?spendable originated operation valid. - the source contract has payed all the fees - the originated has been credited correctly *) -let test_origination_balances ~loc ?(fee = Tez.zero) ?(credit = Tez.zero) - ?delegatable () = +let test_origination_balances ~loc:_ ?(fee = Tez.zero) ?(credit = Tez.zero) () + = Context.init 1 >>=? fun (b, contracts) -> let contract = List.hd contracts in Context.Contract.balance (B b) contract >>=? fun balance -> - Op.origination (B b) contract ~fee ~credit ?delegatable + Op.origination (B b) contract ~fee ~credit ~script:Op.dummy_script >>=? fun (operation, new_contract) -> (* The possible fees are: a given credit, an origination burn fee (constants_repr.default.origination_burn = 257 mtez), @@ -104,29 +104,17 @@ let test_origination_balances ~loc ?(fee = Tez.zero) ?(credit = Tez.zero) Lwt.return ( Tez.( +? ) credit block_security_deposit >>? Tez.( +? ) fee - >>? Tez.( +? ) origination_burn ) + >>? Tez.( +? ) origination_burn + >>? Tez.( +? ) Op.dummy_script_cost ) >>=? fun total_fee -> Block.bake ~operation b >>=? fun b -> (* check that after the block has been baked the source contract was debited all the fees *) - Assert.balance_was_debited ~loc (B b) contract balance total_fee + Assert.balance_was_debited ~loc:__LOC__ (B b) contract balance total_fee >>=? fun _ -> (* check the balance of the originate contract is equal to credit *) - Assert.balance_is ~loc (B b) new_contract credit - -(** [transfer_and_check_balances b source dest amount] takes a block, - a source contract, a destination and the amount that one wants to send - (with no fee) and check the source and destination balances. *) -let transfer_and_check_balances b source dest amount = - Context.Contract.balance (B b) source - >>=? fun balance -> - Op.transaction (B b) source dest amount - >>=? fun operation -> - Block.bake ~operation b - >>=? fun b -> - Assert.balance_was_debited ~loc:__LOC__ (B b) source balance amount - >>=? fun _ -> return b + Assert.balance_is ~loc:__LOC__ (B b) new_contract credit (******************************************************) (** Tests *) @@ -154,26 +142,7 @@ let balances_credit () = let balances_credit_fee () = test_origination_balances ~loc:__LOC__ ~credit:(Tez.of_int 2) ~fee:ten_tez () -let balances_undelegatable () = - test_origination_balances ~loc:__LOC__ ~delegatable:false () - -(*******************) -(** create an originate contract with a credit, then use this contract to - transfer some tez back into the source contract, change the delegate - contract to the endorser account *) - -(*******************) - -let regular () = - register_origination ~credit:ten_tez () - >>=? fun (b, contract, new_contract) -> - transfer_and_check_balances b new_contract contract Tez.one_cent - >>=? fun _ -> - (* Delegatable *) - Context.get_endorser (B b) - >>=? fun (account, _slots) -> - Op.delegation (B b) new_contract (Some account) - >>=? fun operation -> Block.bake ~operation b >>=? fun _ -> return_unit +let balances_undelegatable () = test_origination_balances ~loc:__LOC__ () (*******************) (** ask source contract to pay a fee when originating a contract *) @@ -182,9 +151,7 @@ let regular () = let pay_fee () = register_origination ~credit:(Tez.of_int 2) ~fee:ten_tez () - >>=? fun (b, contract, new_contract) -> - transfer_and_check_balances b new_contract contract (Tez.of_int 2) - >>=? fun _ -> return_unit + >>=? fun (_b, _contract, _new_contract) -> return_unit (******************************************************) (** Errors *) @@ -192,184 +159,8 @@ let pay_fee () = (******************************************************) (*******************) -(** Originating an unspendable contract w/o code reises an error. *) - -(*******************) - -let unspendable () = - Context.init 1 - >>=? fun (b, contracts) -> - Incremental.begin_construction b - >>=? fun i -> - let source = List.hd contracts in - Op.origination (I i) source ~fee:Tez.zero ~credit:Tez.one ~spendable:false - >>=? fun (operation, _contract) -> - Incremental.add_operation i operation - >>= fun res -> - let cannot_originate = function - | Apply.Cannot_originate_non_spendable_account -> - true - | _ -> - false - in - Assert.proto_error ~loc:__LOC__ res cannot_originate - -(*******************) -(** The originate contract is marked as undelegatable. Then do the delegation - for this contract, it will raise an error *) - -(*******************) - -let undelegatable fee () = - register_origination ~delegatable:false () - >>=? fun (b, _, new_contract) -> - Context.get_endorser (B b) - >>=? fun (account, _slots) -> - Incremental.begin_construction b - >>=? fun i -> - Context.Contract.balance (I i) new_contract - >>=? fun balance -> - Context.Contract.delegate_opt (I i) new_contract - >>=? fun delegate_opt -> - assert (delegate_opt = None) ; - Op.delegation ~fee (I i) new_contract (Some account) - >>=? fun operation -> - if fee > balance then - (* fees cannot be paid *) - Incremental.add_operation i operation - >>= fun res -> - let not_enough_money = function - | Contract_storage.Balance_too_low _ -> - true - | _ -> - false - in - Assert.proto_error ~loc:__LOC__ res not_enough_money - else - (* delegation is processed ; but delegate does not change *) - let expect_failure = function - | Environment.Ecoproto_error - (Delegate_storage.Non_delegatable_contract _) - :: _ -> - return_unit - | _ -> - failwith "The contract is not delegatable, it fails!" - in - Incremental.add_operation ~expect_failure i operation - >>=? fun i -> - (* still no delegate *) - Context.Contract.delegate_opt (I i) new_contract - >>=? fun new_delegate_opt -> - assert (new_delegate_opt = None) ; - (* new contract loses the fee *) - Assert.balance_was_debited ~loc:__LOC__ (I i) new_contract balance fee - -(*******************) -(** the credit is zero tez *) - -(*******************) - -let credit fee () = - register_origination ~credit:Tez.zero () - >>=? fun (b, contract, new_contract) -> - Incremental.begin_construction b - >>=? fun i -> - Context.Contract.balance (I i) contract - >>=? fun balance -> - Context.Contract.balance (I i) new_contract - >>=? fun new_balance -> - (* the source contract does not have enough tez to transfer *) - Op.transaction ~fee (I i) new_contract contract Tez.one_cent - >>=? fun operation -> - if fee > new_balance then - Incremental.add_operation i operation - >>= fun res -> - let not_enough_money = function - | Contract_storage.Balance_too_low _ -> - true - | _ -> - false - in - Assert.proto_error ~loc:__LOC__ res not_enough_money - else - let not_enough_money = function - | Environment.Ecoproto_error (Contract_storage.Balance_too_low _) :: _ -> - return_unit - | _ -> - failwith "The contract does not have enough money, it fails!" - in - Incremental.add_operation ~expect_failure:not_enough_money i operation - >>=? fun i -> - (* new contract loses the fee *) - Assert.balance_was_debited ~loc:__LOC__ (I i) new_contract new_balance fee - >>=? fun () -> - (* contract is not credited *) - Assert.balance_was_credited ~loc:__LOC__ (I i) contract balance Tez.zero - -(*******************) -(** same as register_origination but for an incremental *) - -(*******************) - -let register_origination_inc ~credit () = - Context.init 1 - >>=? fun (b, contracts) -> - let source_contract = List.hd contracts in - Incremental.begin_construction b - >>=? fun inc -> - Context.get_constants (B b) - >>=? fun {parametric = {origination_size; _}; _} -> - Op.origination - (I inc) - ~storage_limit:(Z.of_int origination_size) - ~credit - source_contract - >>=? fun (operation, new_contract) -> - Incremental.add_operation inc operation - >>=? fun inc -> return (inc, source_contract, new_contract) - -(*******************) -(** Using the originate contract to create another - originate contract *) - -(*******************) - (** create an originate contract where the contract does not have enough tez to pay for the fee *) -let origination_contract_from_origination_contract_not_enough_fund fee () = - let amount = Tez.one in - register_origination_inc ~credit:amount () - >>=? fun (inc, _, contract) -> - (* contract's balance is not enough to afford origination burn *) - Op.origination ~fee (I inc) ~credit:amount contract - >>=? fun (operation, orig_contract) -> - let expect_failure = function - | Environment.Ecoproto_error Alpha_context.Fees.Cannot_pay_storage_fee :: _ - -> - return_unit - | e -> - failwith - "The contract has not enough funds, it fails! %a" - Error_monad.pp_print_error - e - in - Incremental.add_operation ~expect_failure inc operation - >>=? fun inc -> - Context.Contract.balance (I inc) contract - >>=? fun balance_aft -> - (* contract was debited of [fee] but not of origination burn *) - Assert.balance_was_debited ~loc:__LOC__ (I inc) contract balance_aft fee - >>=? fun () -> - (* orig_contract does not exist *) - Context.Contract.balance (I inc) orig_contract - >>= fun res -> - Assert.error ~loc:__LOC__ res (function - | RPC_context.Not_found _ -> - true - | _ -> - false) - -(*******************) (*******************) @@ -393,7 +184,12 @@ let not_tez_in_contract_to_pay_fee () = >>=? fun _ -> (* use this source contract to create an originate contract where it requires to pay a fee and add an amount of credit into this new contract *) - Op.origination (I inc) ~fee:ten_tez ~credit:Tez.one contract_1 + Op.origination + (I inc) + ~fee:ten_tez + ~credit:Tez.one + contract_1 + ~script:Op.dummy_script >>=? fun (op, _) -> Incremental.add_operation inc op >>= fun inc -> @@ -418,43 +214,16 @@ let register_contract_get_endorser () = >>=? fun (account_endorser, _slots) -> return (inc, contract, account_endorser) -let set_manager () = - register_contract_get_endorser () - >>=? fun (inc, contract, account_endorser) -> - Op.origination ~manager:account_endorser (I inc) ~credit:Tez.one contract - >>=? fun (op, orig_contract) -> - Incremental.add_operation inc op - >>=? fun inc -> - Incremental.finalize_block inc - >>=? fun b -> - (* the manager is indeed the endorser *) - Context.Contract.manager (B b) orig_contract - >>=? fun manager -> - Assert.equal_pkh ~loc:__LOC__ manager.pkh account_endorser - -let set_delegate () = - register_contract_get_endorser () - >>=? fun (inc, contract, account_endorser) -> - Op.origination ~delegate:account_endorser (I inc) ~credit:Tez.one contract - >>=? fun (op, orig_contract) -> - Incremental.add_operation inc op - >>=? fun inc -> - Incremental.finalize_block inc - >>=? fun b -> - (* the delegate is indeed the endorser *) - Context.Contract.delegate (B b) orig_contract - >>=? fun delegate -> Assert.equal_pkh ~loc:__LOC__ delegate account_endorser - (*******************) (** create multiple originated contracts and ask contract to pay the fee *) (*******************) -let n_originations n ?credit ?fee ?spendable ?delegatable () = +let n_originations n ?credit ?fee () = fold_left_s (fun new_contracts _ -> - register_origination ?fee ?credit ?spendable ?delegatable () + register_origination ?fee ?credit () >>=? fun (_b, _source, new_contract) -> let contracts = new_contract :: new_contracts in return contracts) @@ -477,9 +246,9 @@ let counter () = let contract = List.hd contracts in Incremental.begin_construction b >>=? fun inc -> - Op.origination (I inc) ~credit:Tez.one contract + Op.origination (I inc) ~credit:Tez.one contract ~script:Op.dummy_script >>=? fun (op1, _) -> - Op.origination (I inc) ~credit:Tez.one contract + Op.origination (I inc) ~credit:Tez.one contract ~script:Op.dummy_script >>=? fun (op2, _) -> Incremental.add_operation inc op1 >>=? fun inc -> @@ -491,25 +260,6 @@ let counter () = | _ -> false) -(*******************) -(* create an originate contract from an originate contract *) -(*******************) - -let origination_contract_from_origination_contract () = - register_origination_inc ~credit:ten_tez () - >>=? fun (inc, _source_contract, new_contract) -> - let credit = Tez.one in - Op.origination (I inc) ~credit new_contract - >>=? fun (op2, orig_contract) -> - Incremental.add_operation inc op2 - >>=? fun inc -> - Incremental.finalize_block inc - >>=? fun b -> - (* operation has been processed: - originated contract exists and has been credited with the right amount *) - Context.Contract.balance (B b) orig_contract - >>=? fun credit0 -> Assert.equal_tez ~loc:__LOC__ credit0 credit - (******************************************************) let tests = @@ -517,25 +267,10 @@ let tests = Test.tztest "balances_credit" `Quick balances_credit; Test.tztest "balances_credit_fee" `Quick balances_credit_fee; Test.tztest "balances_undelegatable" `Quick balances_undelegatable; - Test.tztest "regular" `Quick regular; Test.tztest "pay_fee" `Quick pay_fee; - Test.tztest "unspendable" `Quick unspendable; - Test.tztest "undelegatable (no fee)" `Quick (undelegatable Tez.zero); - Test.tztest "undelegatable (with fee)" `Quick (undelegatable Tez.one); - Test.tztest "credit" `Quick (credit Tez.one); - Test.tztest - "create origination from origination not enough fund" - `Quick - (origination_contract_from_origination_contract_not_enough_fund Tez.zero); Test.tztest "not enough tez in contract to pay fee" `Quick not_tez_in_contract_to_pay_fee; - Test.tztest "set manager" `Quick set_manager; - Test.tztest "set delegate" `Quick set_delegate; Test.tztest "multiple originations" `Quick multiple_originations; - Test.tztest "counter" `Quick counter; - Test.tztest - "create origination from origination" - `Quick - origination_contract_from_origination_contract ] + Test.tztest "counter" `Quick counter ] diff --git a/src/proto_alpha/lib_protocol/test/qty.ml b/src/proto_alpha/lib_protocol/test/qty.ml index 6fe42741ad8f..429b18652c74 100644 --- a/src/proto_alpha/lib_protocol/test/qty.ml +++ b/src/proto_alpha/lib_protocol/test/qty.ml @@ -25,7 +25,7 @@ open Protocol -let known_ok_tez_litterals = +let known_ok_tez_literals = [ (0L, "0"); (10L, "0.00001"); (100L, "0.0001"); @@ -48,7 +48,7 @@ let known_ok_tez_litterals = (123_123_123_123_123_123L, "123123123123.123123"); (999_999_999_999_999_999L, "999999999999.999999") ] -let known_bad_tez_litterals = +let known_bad_tez_literals = [ "10000."; "100,."; "100,"; @@ -80,7 +80,7 @@ let is_none ?(msg = "") x = if x <> None then fail "None" "Some _" msg let is_some ?(msg = "") x = if x = None then fail "Some _" "None" msg -let test_known_tez_litterals () = +let test_known_tez_literals () = List.iter (fun (v, s) -> let vv = Tez_repr.of_mutez v in @@ -108,15 +108,15 @@ let test_known_tez_litterals () = equal ~prn:Tez_repr.to_string vv vs ; equal ~prn:Tez_repr.to_string vv vs' ; equal ~prn:(fun s -> s) (Tez_repr.to_string vv) s) - known_ok_tez_litterals ; + known_ok_tez_literals ; List.iter (fun s -> let vs = Tez_repr.of_string s in is_none ~msg:("Unexpected successful parsing of " ^ s) vs) - known_bad_tez_litterals ; + known_bad_tez_literals ; return_unit -let test_random_tez_litterals () = +let test_random_tez_literals () = for _ = 0 to 100_000 do let v = Random.int64 12L in let vv = Tez_repr.of_mutez v in @@ -145,8 +145,8 @@ let test_random_tez_litterals () = return_unit let tests = - [ ("tez-litterals", fun _ -> test_known_tez_litterals ()); - ("rnd-tez-litterals", fun _ -> test_random_tez_litterals ()) ] + [ ("tez-literals", fun _ -> test_known_tez_literals ()); + ("rnd-tez-literals", fun _ -> test_random_tez_literals ()) ] let wrap (n, f) = Alcotest_lwt.test_case n `Quick (fun _ () -> diff --git a/src/proto_alpha/lib_protocol/test/seed.ml b/src/proto_alpha/lib_protocol/test/seed.ml index b528ccdf9183..66248269347b 100644 --- a/src/proto_alpha/lib_protocol/test/seed.ml +++ b/src/proto_alpha/lib_protocol/test/seed.ml @@ -57,6 +57,12 @@ let no_commitment () = | _ -> false) +let baking_reward ctxt (b : Block.t) = + let priority = b.header.protocol_data.contents.priority in + Block.get_endorsing_power b + >>=? fun endorsing_power -> + Context.get_baking_reward ctxt ~priority ~endorsing_power + (** Choose a baker, denote it by id. In the first cycle, make id bake only once. Test that: - after id bakes with a commitment the bond is frozen and the reward allocated @@ -74,7 +80,6 @@ let revelation_early_wrong_right_twice () = Context.get_constants (B b) >>=? fun csts -> let bond = csts.parametric.block_security_deposit in - let reward = csts.parametric.block_reward in let tip = csts.parametric.seed_nonce_revelation_tip in let blocks_per_commitment = Int32.to_int csts.parametric.blocks_per_commitment @@ -101,6 +106,8 @@ let revelation_early_wrong_right_twice () = >>=? fun level_commitment -> Context.get_seed_nonce_hash (B b) >>=? fun committed_hash -> + baking_reward (B b) b + >>=? fun reward -> (* test that the bond was frozen and the reward allocated *) balance_was_debited ~loc:__LOC__ (B b) id bal_main bond >>=? fun () -> @@ -151,6 +158,8 @@ let revelation_early_wrong_right_twice () = (* bake the operation in a block *) Block.bake ~policy ~operation b >>=? fun b -> + baking_reward (B b) b + >>=? fun baker_reward -> (* test that the baker gets the tip reward *) balance_was_debited ~loc:__LOC__ (B b) baker ~kind:Main baker_bal_main bond >>=? fun () -> @@ -162,7 +171,7 @@ let revelation_early_wrong_right_twice () = baker_bal_deposit bond >>=? fun () -> - Lwt.return @@ Tez.( +? ) reward tip + Lwt.return @@ Tez.( +? ) baker_reward tip >>=? fun expected_rewards -> balance_was_credited ~loc:__LOC__ @@ -209,7 +218,8 @@ let revelation_missing_and_late () = >>=? fun (b, _) -> get_constants (B b) >>=? fun csts -> - let reward = csts.parametric.block_reward in + baking_reward (B b) b + >>=? fun reward -> let blocks_per_commitment = Int32.to_int csts.parametric.blocks_per_commitment in diff --git a/src/proto_alpha/lib_protocol/test/transfer.ml b/src/proto_alpha/lib_protocol/test/transfer.ml index 5d90ba561521..4ade36bc8135 100644 --- a/src/proto_alpha/lib_protocol/test/transfer.ml +++ b/src/proto_alpha/lib_protocol/test/transfer.ml @@ -183,40 +183,10 @@ let transfer_zero_tez () = Tez.zero (********************) -(** Transfer zero tez from an originated/implicit contract *) +(** Transfer zero tez from an implicit contract *) (********************) -let transfer_zero_originated () = - register_two_contracts () - >>=? fun (b, contract_1, contract_2) -> - Incremental.begin_construction b - >>=? fun i -> - (* originated the first contract *) - Op.origination (I i) contract_1 - >>=? fun (operation, orig_contract_1) -> - Incremental.add_operation i operation - >>=? fun i -> - Context.Contract.balance (I i) orig_contract_1 - >>=? fun balance_1 -> - (* transfer all the tez inside the originated contract *) - transfer_and_check_balances - ~loc:__LOC__ - i - orig_contract_1 - contract_2 - balance_1 - >>=? fun (i, _) -> - Op.transaction (I i) orig_contract_1 contract_2 Tez.zero - >>=? fun op -> - Incremental.add_operation i op - >>= fun res -> - Assert.proto_error ~loc:__LOC__ res (function - | Contract_storage.Empty_transaction _ -> - true - | _ -> - false) - let transfer_zero_implicit () = Context.init 1 >>=? fun (b, contracts) -> @@ -249,7 +219,7 @@ let transfer_to_originate_with_fee () = two_nth_of_balance b contract 10L >>=? fun fee -> (* originated contract, paying a fee to originated this contract *) - Op.origination (I b) ~fee:ten_tez contract + Op.origination (I b) ~fee:ten_tez contract ~script:Op.dummy_script >>=? fun (operation, new_contract) -> Incremental.add_operation b operation >>=? fun b -> @@ -395,7 +365,7 @@ let transfer_from_implicit_to_originated_contract () = amount1 >>=? fun (b, _) -> (* originated contract *) - Op.origination (I b) contract + Op.origination (I b) contract ~script:Op.dummy_script >>=? fun (operation, new_contract) -> Incremental.add_operation b operation >>=? fun b -> @@ -405,57 +375,6 @@ let transfer_from_implicit_to_originated_contract () = transfer_and_check_balances ~loc:__LOC__ b src new_contract amount2 >>=? fun (b, _) -> Incremental.finalize_block b >>=? fun _ -> return_unit -(** Originted to originted *) - -let transfer_from_originated_to_originated () = - register_two_contracts () - >>=? fun (b, contract_1, contract_2) -> - Incremental.begin_construction b - >>=? fun b -> - (* originated contract 1 *) - Op.origination (I b) contract_1 - >>=? fun (operation, orig_contract_1) -> - Incremental.add_operation b operation - >>=? fun b -> - (* originated contract 2 *) - Op.origination (I b) contract_2 - >>=? fun (operation, orig_contract_2) -> - Incremental.add_operation b operation - >>=? fun b -> - (* transfer from originated contract 1 to originated contract 2 *) - transfer_and_check_balances - ~loc:__LOC__ - b - orig_contract_1 - orig_contract_2 - Alpha_context.Tez.one - >>=? fun (b, _) -> Incremental.finalize_block b >>=? fun _ -> return_unit - -(** Originted to impicit *) - -let transfer_from_originated_to_implicit () = - Context.init 1 - >>=? fun (b, contracts) -> - let contract_1 = List.nth contracts 0 in - let account = Account.new_account () in - let src = Contract.implicit_contract account.pkh in - Incremental.begin_construction b - >>=? fun b -> - (* originated contract 1*) - Op.origination (I b) contract_1 - >>=? fun (operation, new_contract) -> - Incremental.add_operation b operation - >>=? fun b -> - (* transfer from originated contract to implicit contract *) - transfer_and_check_balances - ~with_burn:true - ~loc:__LOC__ - b - new_contract - src - Alpha_context.Tez.one_mutez - >>=? fun (b, _) -> Incremental.finalize_block b >>=? fun _ -> return_unit - (********************) (** Slow tests case *) @@ -768,10 +687,6 @@ let tests = block_with_a_single_transfer_with_fee; (* transfer zero tez *) Test.tztest "single transfer zero tez" `Quick transfer_zero_tez; - Test.tztest - "transfer zero tez from originated contract" - `Quick - transfer_zero_originated; Test.tztest "transfer zero tez from implicit contract" `Quick @@ -799,14 +714,6 @@ let tests = "transfer from an implicit to an originated contract" `Quick transfer_from_implicit_to_originated_contract; - Test.tztest - "transfer from an originated to an originated contract" - `Quick - transfer_from_originated_to_originated; - Test.tztest - "transfer from an originated to an implicit contract" - `Quick - transfer_from_originated_to_implicit; (* Slow tests *) Test.tztest "block with multiple transfers" diff --git a/src/proto_alpha/lib_protocol/test/voting.ml b/src/proto_alpha/lib_protocol/test/voting.ml index 13557b5f12b1..d6f881b0e984 100644 --- a/src/proto_alpha/lib_protocol/test/voting.ml +++ b/src/proto_alpha/lib_protocol/test/voting.ml @@ -41,27 +41,40 @@ let ballots_pp ppf v = v.nay v.pass) -(* constantans and ratios used in voting: +(* constants and ratios used in voting: percent_mul denotes the percent multiplier - initial_qr is 8000 that is, 8/10 * percent_mul - the quorum ratio qr_num / den = 8 / 10 - the participation ration pr_num / den = 2 / 10 - note: we use the same denominator for both quorum and participation rate. + initial_participation is 7000 that is, 7/10 * percent_mul + the participation EMA ratio pr_ema_weight / den = 7 / 10 + the participation ratio pr_num / den = 2 / 10 + note: we use the same denominator for both participation EMA and participation rate. supermajority rate is s_num / s_den = 8 / 10 *) let percent_mul = 100_00 -let initial_qr = 8 * percent_mul / 10 +let initial_participation_num = 7 -let qr_num = 8 +let initial_participation = initial_participation_num * percent_mul / 10 + +let pr_ema_weight = 8 let den = 10 -let pr_num = den - qr_num +let pr_num = den - pr_ema_weight let s_num = 8 let s_den = 10 +let qr_min_num = 2 + +let qr_max_num = 7 + +let expected_qr_num = + Float.( + of_int qr_min_num + +. of_int initial_participation_num + *. (of_int qr_max_num -. of_int qr_min_num) + /. of_int den) + (* Protocol_hash.zero is "PrihK96nBAFSxVL1GLJTVhu9YnzkMFiBeuJRPA8NwuZVZCE1L6i" *) let protos = Array.map @@ -113,7 +126,8 @@ let get_rolls b delegates loc = delegates let test_successful_vote num_delegates () = - Context.init num_delegates + let min_proposal_quorum = Int32.(of_int @@ (100_00 / num_delegates)) in + Context.init ~min_proposal_quorum num_delegates >>=? fun (b, _) -> Context.get_constants (B b) >>=? fun {parametric = {blocks_per_voting_period; _}; _} -> @@ -155,10 +169,10 @@ let test_successful_vote num_delegates () = | _ -> failwith "%s - Unexpected period kind" __LOC__) >>=? fun () -> - (* quorum starts at initial_qr *) - Context.Vote.get_current_quorum (B b) + (* participation EMA starts at initial_participation *) + Context.Vote.get_participation_ema b >>=? fun v -> - Assert.equal_int ~loc:__LOC__ initial_qr (Int32.to_int v) + Assert.equal_int ~loc:__LOC__ initial_participation (Int32.to_int v) >>=? fun () -> (* listings must be populated in proposal period *) Context.Vote.get_listings (B b) @@ -475,7 +489,7 @@ let test_successful_vote num_delegates () = (* given a list of active delegates, return the first k active delegates with which one can have quorum, that is: - their roll sum divided by the total roll sum is bigger than qr_num/qr_den *) + their roll sum divided by the total roll sum is bigger than pr_ema_weight/den *) let get_smallest_prefix_voters_for_quorum active_delegates active_rolls = fold_left_s (fun v acc -> return Int32.(add v acc)) 0l active_rolls >>=? fun active_rolls_sum -> @@ -484,7 +498,10 @@ let get_smallest_prefix_voters_for_quorum active_delegates active_rolls = | ([], []) -> selected | (del :: delegates, del_rolls :: rolls) -> - if den * sum < qr_num * Int32.to_int active_rolls_sum then + if + den * sum + < Float.to_int (expected_qr_num *. Int32.to_float active_rolls_sum) + then loop delegates rolls (sum + Int32.to_int del_rolls) (del :: selected) else selected | (_, _) -> @@ -492,12 +509,12 @@ let get_smallest_prefix_voters_for_quorum active_delegates active_rolls = in return (loop active_delegates active_rolls 0 []) -let get_expected_quorum ?(min_participation = 0) rolls voter_rolls old_quorum = - (* formula to compute the updated quorum as in the whitepaper *) - let get_updated_quorum old_quorum participation = - (* if not enough participation, don't update the quorum *) - if participation < min_participation then Int32.to_int old_quorum - else ((qr_num * Int32.to_int old_quorum) + (pr_num * participation)) / den +let get_expected_participation_ema rolls voter_rolls old_participation_ema = + (* formula to compute the updated participation_ema *) + let get_updated_participation_ema old_participation_ema participation = + ( (pr_ema_weight * Int32.to_int old_participation_ema) + + (pr_num * participation) ) + / den in fold_left_s (fun v acc -> return Int32.(add v acc)) 0l rolls >>=? fun rolls_sum -> @@ -506,12 +523,13 @@ let get_expected_quorum ?(min_participation = 0) rolls voter_rolls old_quorum = let participation = Int32.to_int voter_rolls_sum * percent_mul / Int32.to_int rolls_sum in - return (get_updated_quorum old_quorum participation) + return (get_updated_participation_ema old_participation_ema participation) -(* if not enough quorum -- get_updated_quorum < qr_num/qr_den -- in testing vote, +(* if not enough quorum -- get_updated_participation_ema < pr_ema_weight/den -- in testing vote, go back to proposal period *) let test_not_enough_quorum_in_testing_vote num_delegates () = - Context.init num_delegates + let min_proposal_quorum = Int32.(of_int @@ (100_00 / num_delegates)) in + Context.init ~min_proposal_quorum num_delegates >>=? fun (b, delegates) -> Context.get_constants (B b) >>=? fun {parametric = {blocks_per_voting_period; _}; _} -> @@ -541,15 +559,15 @@ let test_not_enough_quorum_in_testing_vote num_delegates () = | _ -> failwith "%s - Unexpected period kind" __LOC__) >>=? fun () -> - Context.Vote.get_current_quorum (B b) - >>=? fun initial_quorum -> + Context.Vote.get_participation_ema b + >>=? fun initial_participation_ema -> (* beginning of testing_vote period, denoted by _p2; take a snapshot of the active delegates and their rolls from listings *) get_delegates_and_rolls_from_listings b >>=? fun (delegates_p2, rolls_p2) -> get_smallest_prefix_voters_for_quorum delegates_p2 rolls_p2 >>=? fun voters -> - (* take the first voter out so there cannot be quorum *) + (* take the first two voters out so there cannot be quorum *) let voters_without_quorum = List.tl voters in get_rolls b voters_without_quorum __LOC__ >>=? fun voters_rolls_in_testing_vote -> @@ -572,19 +590,26 @@ let test_not_enough_quorum_in_testing_vote num_delegates () = | _ -> failwith "%s - Unexpected period kind" __LOC__) >>=? fun () -> - (* check quorum update *) - get_expected_quorum rolls_p2 voters_rolls_in_testing_vote initial_quorum - >>=? fun expected_quorum -> - Context.Vote.get_current_quorum (B b) - >>=? fun new_quorum -> - (* assert the formula to calculate quorum is correct *) - Assert.equal_int ~loc:__LOC__ expected_quorum (Int32.to_int new_quorum) + (* check participation_ema update *) + get_expected_participation_ema + rolls_p2 + voters_rolls_in_testing_vote + initial_participation_ema + >>=? fun expected_participation_ema -> + Context.Vote.get_participation_ema b + >>=? fun new_participation_ema -> + (* assert the formula to calculate participation_ema is correct *) + Assert.equal_int + ~loc:__LOC__ + expected_participation_ema + (Int32.to_int new_participation_ema) >>=? fun () -> return_unit -(* if not enough quorum -- get_updated_quorum < qr_num/qr_den -- in promotion vote, +(* if not enough quorum -- get_updated_participation_ema < pr_ema_weight/den -- in promotion vote, go back to proposal period *) let test_not_enough_quorum_in_promotion_vote num_delegates () = - Context.init num_delegates + let min_proposal_quorum = Int32.(of_int @@ (100_00 / num_delegates)) in + Context.init ~min_proposal_quorum num_delegates >>=? fun (b, delegates) -> Context.get_constants (B b) >>=? fun {parametric = {blocks_per_voting_period; _}; _} -> @@ -646,8 +671,8 @@ let test_not_enough_quorum_in_promotion_vote num_delegates () = | _ -> failwith "%s - Unexpected period kind" __LOC__) >>=? fun () -> - Context.Vote.get_current_quorum (B b) - >>=? fun initial_quorum -> + Context.Vote.get_participation_ema b + >>=? fun initial_participation_ema -> (* beginning of promotion period, denoted by _p4; take a snapshot of the active delegates and their rolls from listings *) get_delegates_and_rolls_from_listings b @@ -669,12 +694,15 @@ let test_not_enough_quorum_in_promotion_vote num_delegates () = (* skip to end of promotion_vote period *) Block.bake_n (Int32.to_int blocks_per_voting_period - 1) b >>=? fun b -> - get_expected_quorum rolls_p4 voter_rolls initial_quorum - >>=? fun expected_quorum -> - Context.Vote.get_current_quorum (B b) - >>=? fun new_quorum -> - (* assert the formula to calculate quorum is correct *) - Assert.equal_int ~loc:__LOC__ expected_quorum (Int32.to_int new_quorum) + get_expected_participation_ema rolls_p4 voter_rolls initial_participation_ema + >>=? fun expected_participation_ema -> + Context.Vote.get_participation_ema b + >>=? fun new_participation_ema -> + (* assert the formula to calculate participation_ema is correct *) + Assert.equal_int + ~loc:__LOC__ + expected_participation_ema + (Int32.to_int new_participation_ema) >>=? fun () -> (* we move back to the proposal period because not enough quorum *) Context.Vote.get_current_period_kind (B b) @@ -731,7 +759,8 @@ let test_multiple_identical_proposals_count_as_one () = (* assumes the initial balance of allocated by Context.init is at least 4 time the value of the tokens_per_roll constant *) let test_supermajority_in_proposal there_is_a_winner () = - Context.init ~initial_balances:[1L; 1L; 1L] 10 + let min_proposal_quorum = 0l in + Context.init ~min_proposal_quorum ~initial_balances:[1L; 1L; 1L] 10 >>=? fun (b, delegates) -> Context.get_constants (B b) >>=? fun { parametric = @@ -801,8 +830,80 @@ let test_supermajority_in_proposal there_is_a_winner () = failwith "%s - Unexpected period kind" __LOC__) >>=? fun () -> return_unit +let test_quorum_in_proposal has_quorum () = + let total_tokens = 32_000_000_000_000L in + let half_tokens = Int64.div total_tokens 2L in + Context.init ~initial_balances:[1L; half_tokens; half_tokens] 3 + >>=? fun (b, delegates) -> + Context.get_constants (B b) + >>=? fun { parametric = + { blocks_per_cycle; + blocks_per_voting_period; + min_proposal_quorum; + _ }; + _ } -> + let del1 = List.nth delegates 0 in + let del2 = List.nth delegates 1 in + map_s (fun del -> Context.Contract.pkh del) [del1; del2] + >>=? fun pkhs -> + let policy = Block.Excluding pkhs in + let quorum = + if has_quorum then Int64.of_int32 min_proposal_quorum + else Int64.(sub (of_int32 min_proposal_quorum) 10L) + in + let bal = + Int64.(div (mul total_tokens quorum) 100_00L) |> Test_tez.Tez.of_mutez_exn + in + Op.transaction (B b) del2 del1 bal + >>=? fun op2 -> + Block.bake ~policy ~operations:[op2] b + >>=? fun b -> + (* we let one voting period pass; we make sure that: + - the two selected delegates remain active by re-registering as delegates + - their number of rolls do not change *) + fold_left_s + (fun b _ -> + Error_monad.map_s + (fun del -> + Context.Contract.pkh del + >>=? fun pkh -> Op.delegation (B b) del (Some pkh)) + [del1; del2] + >>=? fun ops -> + Block.bake ~policy ~operations:ops b + >>=? fun b -> Block.bake_until_cycle_end ~policy b) + b + (1 -- Int32.to_int (Int32.div blocks_per_voting_period blocks_per_cycle)) + >>=? fun b -> + (* make the proposal *) + Op.proposals (B b) del1 [protos.(0)] + >>=? fun ops -> + Block.bake ~policy ~operations:[ops] b + >>=? fun b -> + Block.bake_n ~policy (Int32.to_int blocks_per_voting_period - 1) b + >>=? fun b -> + (* we remain in the proposal period when there is no quorum, + otherwise we move to the testing vote period *) + Context.Vote.get_current_period_kind (B b) + >>=? (function + | Testing_vote -> + if has_quorum then return_unit + else + failwith + "%s - Expected period kind Proposal, obtained Testing_vote" + __LOC__ + | Proposal -> + if not has_quorum then return_unit + else + failwith + "%s - Expected period kind Testing_vote, obtained Proposal" + __LOC__ + | _ -> + failwith "%s - Unexpected period kind" __LOC__) + >>=? fun () -> return_unit + let test_supermajority_in_testing_vote supermajority () = - Context.init 100 + let min_proposal_quorum = Int32.(of_int @@ (100_00 / 100)) in + Context.init ~min_proposal_quorum 100 >>=? fun (b, delegates) -> Context.get_constants (B b) >>=? fun {parametric = {blocks_per_voting_period; _}; _} -> @@ -875,7 +976,8 @@ let test_supermajority_in_testing_vote supermajority () = (* test also how the selection scales: all delegates propose max proposals *) let test_no_winning_proposal num_delegates () = - Context.init num_delegates + let min_proposal_quorum = Int32.(of_int @@ (100_00 / num_delegates)) in + Context.init ~min_proposal_quorum num_delegates >>=? fun (b, _) -> Context.get_constants (B b) >>=? fun {parametric = {blocks_per_voting_period; _}; _} -> @@ -905,6 +1007,134 @@ let test_no_winning_proposal num_delegates () = failwith "%s - Unexpected period kind" __LOC__) >>=? fun () -> return_unit +(** Test that for the vote to pass with maximum possible participation_ema + (100%), it is sufficient for the vote quorum to be equal or greater than + the maximum quorum cap. *) +let test_quorum_capped_maximum num_delegates () = + let min_proposal_quorum = Int32.(of_int @@ (100_00 / num_delegates)) in + Context.init ~min_proposal_quorum num_delegates + >>=? fun (b, delegates) -> + (* set the participation EMA to 100% *) + Context.Vote.set_participation_ema b 100_00l + >>= fun b -> + Context.get_constants (B b) + >>=? fun {parametric = {blocks_per_voting_period; quorum_max; _}; _} -> + (* proposal period *) + let open Alpha_context in + Context.Vote.get_current_period_kind (B b) + >>=? (function + | Proposal -> + return_unit + | _ -> + failwith "%s - Unexpected period kind" __LOC__) + >>=? fun () -> + (* propose a new protocol *) + let protocol = Protocol_hash.zero in + let proposer = List.nth delegates 0 in + Op.proposals (B b) proposer [protocol] + >>=? fun ops -> + Block.bake ~operations:[ops] b + >>=? fun b -> + (* skip to vote_testing period + -1 because we already baked one block with the proposal *) + Block.bake_n (Int32.to_int blocks_per_voting_period - 1) b + >>=? fun b -> + (* we moved to a testing_vote period with one proposal *) + Context.Vote.get_current_period_kind (B b) + >>=? (function + | Testing_vote -> + return_unit + | _ -> + failwith "%s - Unexpected period kind" __LOC__) + >>=? fun () -> + (* take percentage of the delegates equal or greater than quorum_max *) + let minimum_to_pass = + Float.of_int (List.length delegates) + *. Int32.(to_float quorum_max) + /. 100_00. + |> Float.ceil |> Float.to_int + in + let voters = List.take_n minimum_to_pass delegates in + (* all voters vote for yays; no nays, so supermajority is satisfied *) + map_s (fun del -> Op.ballot (B b) del protocol Vote.Yay) voters + >>=? fun operations -> + Block.bake ~operations b + >>=? fun b -> + (* skip to next period *) + Block.bake_n (Int32.to_int blocks_per_voting_period - 1) b + >>=? fun b -> + (* expect to move to testing because we have supermajority and enough quorum *) + Context.Vote.get_current_period_kind (B b) + >>=? function + | Testing -> + return_unit + | _ -> + failwith "%s - Unexpected period kind" __LOC__ + +(** Test that for the vote to pass with minimum possible participation_ema + (0%), it is sufficient for the vote quorum to be equal or greater than + the minimum quorum cap. *) +let test_quorum_capped_minimum num_delegates () = + let min_proposal_quorum = Int32.(of_int @@ (100_00 / num_delegates)) in + Context.init ~min_proposal_quorum num_delegates + >>=? fun (b, delegates) -> + (* set the participation EMA to 0% *) + Context.Vote.set_participation_ema b 0l + >>= fun b -> + Context.get_constants (B b) + >>=? fun {parametric = {blocks_per_voting_period; quorum_min; _}; _} -> + (* proposal period *) + let open Alpha_context in + Context.Vote.get_current_period_kind (B b) + >>=? (function + | Proposal -> + return_unit + | _ -> + failwith "%s - Unexpected period kind" __LOC__) + >>=? fun () -> + (* propose a new protocol *) + let protocol = Protocol_hash.zero in + let proposer = List.nth delegates 0 in + Op.proposals (B b) proposer [protocol] + >>=? fun ops -> + Block.bake ~operations:[ops] b + >>=? fun b -> + (* skip to vote_testing period + -1 because we already baked one block with the proposal *) + Block.bake_n (Int32.to_int blocks_per_voting_period - 1) b + >>=? fun b -> + (* we moved to a testing_vote period with one proposal *) + Context.Vote.get_current_period_kind (B b) + >>=? (function + | Testing_vote -> + return_unit + | _ -> + failwith "%s - Unexpected period kind" __LOC__) + >>=? fun () -> + (* take percentage of the delegates equal or greater than quorum_min *) + let minimum_to_pass = + Float.of_int (List.length delegates) + *. Int32.(to_float quorum_min) + /. 100_00. + |> Float.ceil |> Float.to_int + in + let voters = List.take_n minimum_to_pass delegates in + (* all voters vote for yays; no nays, so supermajority is satisfied *) + map_s (fun del -> Op.ballot (B b) del protocol Vote.Yay) voters + >>=? fun operations -> + Block.bake ~operations b + >>=? fun b -> + (* skip to next period *) + Block.bake_n (Int32.to_int blocks_per_voting_period - 1) b + >>=? fun b -> + (* expect to move to testing because we have supermajority and enough quorum *) + Context.Vote.get_current_period_kind (B b) + >>=? function + | Testing -> + return_unit + | _ -> + failwith "%s - Unexpected period kind" __LOC__ + let tests = [ Test.tztest "voting successful_vote" `Quick (test_successful_vote 137); Test.tztest @@ -927,6 +1157,14 @@ let tests = "voting proposal, without supermajority" `Quick (test_supermajority_in_proposal false); + Test.tztest + "voting proposal, with quorum" + `Quick + (test_quorum_in_proposal true); + Test.tztest + "voting proposal, without quorum" + `Quick + (test_quorum_in_proposal false); Test.tztest "voting testing vote, with supermajority" `Quick @@ -938,4 +1176,12 @@ let tests = Test.tztest "voting proposal, no winning proposal" `Quick - (test_no_winning_proposal 400) ] + (test_no_winning_proposal 400); + Test.tztest + "voting quorum, quorum capped maximum" + `Quick + (test_quorum_capped_maximum 400); + Test.tztest + "voting quorum, quorum capped minimum" + `Quick + (test_quorum_capped_minimum 401) ] -- GitLab From b39355cfcb91cd27fbfc50604b61cdcc0670919f Mon Sep 17 00:00:00 2001 From: Marco Stronati Date: Wed, 12 Jun 2019 18:28:12 +0200 Subject: [PATCH 065/252] Tests/Flextesa: adapt to the new protocol - Adapt the test to the new constants. - Adapt for minimum proposal quorum. --- vendors/flextesa-lib/tezos_protocol.ml | 131 +++++++++++++++++------- vendors/flextesa-lib/tezos_protocol.mli | 22 +++- 2 files changed, 116 insertions(+), 37 deletions(-) diff --git a/vendors/flextesa-lib/tezos_protocol.ml b/vendors/flextesa-lib/tezos_protocol.ml index ea27b8f9e31b..72320b79e6e0 100644 --- a/vendors/flextesa-lib/tezos_protocol.ml +++ b/vendors/flextesa-lib/tezos_protocol.ml @@ -76,7 +76,27 @@ type t = ; blocks_per_voting_period: int ; blocks_per_cycle: int ; preserved_cycles: int - ; proof_of_work_threshold: int } + ; proof_of_work_threshold: int + ; blocks_per_commitment: int + ; endorsers_per_block: int + ; hard_gas_limit_per_operation: int + ; hard_gas_limit_per_block: int + ; tokens_per_roll: int + ; michelson_maximum_type_size: int + ; seed_nonce_revelation_tip: int + ; origination_size: int + ; block_security_deposit: int + ; endorsement_security_deposit: int + ; block_reward: int + ; endorsement_reward: int + ; hard_storage_limit_per_operation: int + ; cost_per_byte: int + ; test_chain_duration: int + ; quorum_min: int + ; quorum_max: int + ; min_proposal_quorum: int + ; initial_endorsers: int + ; delay_per_missing_endorsement: int } let compare a b = String.compare a.id b.id @@ -96,7 +116,27 @@ let default () = ; blocks_per_voting_period= 16 ; blocks_per_cycle= 8 ; preserved_cycles= 2 - ; proof_of_work_threshold= -1 } + ; proof_of_work_threshold= -1 + ; blocks_per_commitment= 4 + ; endorsers_per_block= 32 + ; hard_gas_limit_per_operation= 800000 + ; hard_gas_limit_per_block= 8000000 + ; tokens_per_roll= 8000000000 + ; michelson_maximum_type_size= 1000 + ; seed_nonce_revelation_tip= 125000 + ; origination_size= 257 + ; block_security_deposit= 512000000 + ; endorsement_security_deposit= 64000000 + ; block_reward= 16000000 + ; endorsement_reward= 2000000 + ; hard_storage_limit_per_operation= 60000 + ; cost_per_byte= 1000 + ; test_chain_duration= 1966080 + ; quorum_min= 3000 + ; quorum_max= 7000 + ; min_proposal_quorum= 500 + ; initial_endorsers= 1 + ; delay_per_missing_endorsement= 1 } let protocol_parameters_json t : Ezjsonm.t = let open Ezjsonm in @@ -118,7 +158,37 @@ let protocol_parameters_json t : Ezjsonm.t = ; ("blocks_per_cycle", int t.blocks_per_cycle) ; ("preserved_cycles", int t.preserved_cycles) ; ( "proof_of_work_threshold" - , ksprintf string "%d" t.proof_of_work_threshold ) ] + , ksprintf string "%d" t.proof_of_work_threshold ) + (* which constants are encoded in json as int or string looks a bit arbitrary + e.g. michelson_maximum_type_size=1000 is an int but cost_per_byte=1000 is + a string *) + ; ("blocks_per_commitment", int t.blocks_per_commitment) + ; ("endorsers_per_block", int t.endorsers_per_block) + ; ( "hard_gas_limit_per_operation" + , string (Int.to_string t.hard_gas_limit_per_operation) ) + ; ( "hard_gas_limit_per_block" + , string (Int.to_string t.hard_gas_limit_per_block) ) + ; ("tokens_per_roll", string (Int.to_string t.tokens_per_roll)) + ; ("michelson_maximum_type_size", int t.michelson_maximum_type_size) + ; ( "seed_nonce_revelation_tip" + , string (Int.to_string t.seed_nonce_revelation_tip) ) + ; ("origination_size", int t.origination_size) + ; ( "block_security_deposit" + , string (Int.to_string t.block_security_deposit) ) + ; ( "endorsement_security_deposit" + , string (Int.to_string t.endorsement_security_deposit) ) + ; ("block_reward", string (Int.to_string t.block_reward)) + ; ("endorsement_reward", string (Int.to_string t.endorsement_reward)) + ; ( "hard_storage_limit_per_operation" + , string (Int.to_string t.hard_storage_limit_per_operation) ) + ; ("cost_per_byte", string (Int.to_string t.cost_per_byte)) + ; ("test_chain_duration", string (Int.to_string t.test_chain_duration)) + ; ("quorum_min", int t.quorum_min) + ; ("quorum_max", int t.quorum_max) + ; ("min_proposal_quorum", int t.min_proposal_quorum) + ; ("initial_endorsers", int t.initial_endorsers) + ; ( "delay_per_missing_endorsement" + , string (Int.to_string t.delay_per_missing_endorsement) ) ] let sandbox {dictator; _} = let pk = Account.pubkey dictator in @@ -163,28 +233,31 @@ let ensure t ~config = let cli_term () = let open Cmdliner in let open Term in - let def = default () in let docs = "PROTOCOL OPTIONS" in pure (fun remove_default_bas - (`Blocks_per_voting_period blocks_per_voting_period) - (`Protocol_hash hash) - (`Time_between_blocks time_between_blocks) - (`Blocks_per_cycle blocks_per_cycle) - (`Preserved_cycles preserved_cycles) + (`Blocks_per_voting_period bpvp) + (`Protocol_hash hashopt) + (`Time_between_blocks tbb) add_bootstraps -> - let id = "default-and-command-line" in + let d = default () in + let id = + if add_bootstraps = [] && remove_default_bas = false then d.id + else "default-and-command-line" in + let time_between_blocks = + Option.value tbb ~default:d.time_between_blocks in let bootstrap_accounts = add_bootstraps - @ if remove_default_bas then [] else def.bootstrap_accounts in - { def with + @ if remove_default_bas then [] else d.bootstrap_accounts in + let blocks_per_voting_period = + match bpvp with Some v -> v | None -> d.blocks_per_voting_period in + let hash = Option.value hashopt ~default:d.hash in + { d with id - ; blocks_per_cycle ; hash ; bootstrap_accounts ; time_between_blocks - ; preserved_cycles ; blocks_per_voting_period }) $ Arg.( value @@ -195,39 +268,25 @@ let cli_term () = $ Arg.( pure (fun x -> `Blocks_per_voting_period x) $ value - (opt int def.blocks_per_voting_period - (info ~docs + (opt (some int) None + (info ["blocks-per-voting-period"] ~doc:"Set the length of voting periods."))) $ Arg.( pure (fun x -> `Protocol_hash x) $ value - (opt string def.hash - (info ["protocol-hash"] ~docs - ~doc:"Set the (initial) protocol hash."))) + (opt (some string) None + (info ["protocol-hash"] ~doc:"Set the (initial) protocol hash."))) $ Arg.( pure (fun x -> `Time_between_blocks x) $ value - (opt (list ~sep:',' int) def.time_between_blocks + (opt + (some (list ~sep:',' int)) + None (info ["time-between-blocks"] ~docv:"COMMA-SEPARATED-SECONDS" - ~docs ~doc: "Set the time between blocks bootstrap-parameter, e.g. \ `2,3,2`."))) - $ Arg.( - pure (fun x -> `Blocks_per_cycle x) - $ value - (opt int def.blocks_per_cycle - (info ["blocks-per-cycle"] ~docv:"NUMBER" ~docs - ~doc:"Number of blocks per cycle."))) - $ Arg.( - pure (fun x -> `Preserved_cycles x) - $ value - (opt int def.preserved_cycles - (info ["preserved-cycles"] ~docv:"NUMBER" ~docs - ~doc: - "Base constant for baking rights (search for \ - `PRESERVED_CYCLES` in the white paper)."))) $ Arg.( pure (fun l -> List.map l ~f:(fun ((name, pubkey, pubkey_hash, private_key), tez) -> @@ -236,7 +295,7 @@ let cli_term () = (opt_all (pair ~sep:'@' (t4 ~sep:',' string string string string) int64) [] - (info ["add-bootstrap-account"] ~docs + (info ["add-bootstrap-account"] ~docv:"NAME,PUBKEY,PUBKEY-HASH,PRIVATE-URI@MUTEZ-AMOUNT" ~doc: "Add a custom bootstrap account, e.g. \ diff --git a/vendors/flextesa-lib/tezos_protocol.mli b/vendors/flextesa-lib/tezos_protocol.mli index aa2e1266c2dd..f84ed4ed1c9b 100644 --- a/vendors/flextesa-lib/tezos_protocol.mli +++ b/vendors/flextesa-lib/tezos_protocol.mli @@ -51,7 +51,27 @@ type t = ; blocks_per_voting_period: int ; blocks_per_cycle: int ; preserved_cycles: int - ; proof_of_work_threshold: int } + ; proof_of_work_threshold: int + ; blocks_per_commitment: int + ; endorsers_per_block: int + ; hard_gas_limit_per_operation: int + ; hard_gas_limit_per_block: int + ; tokens_per_roll: int + ; michelson_maximum_type_size: int + ; seed_nonce_revelation_tip: int + ; origination_size: int + ; block_security_deposit: int + ; endorsement_security_deposit: int + ; block_reward: int + ; endorsement_reward: int + ; hard_storage_limit_per_operation: int + ; cost_per_byte: int + ; test_chain_duration: int + ; quorum_min: int + ; quorum_max: int + ; min_proposal_quorum: int + ; initial_endorsers: int + ; delay_per_missing_endorsement: int } (** [t] wraps bootstrap parameters for sandboxed protocols. *) val compare : t -> t -> int -- GitLab From 4f0c556d94ce727dcc9d3ceb63a4d8a4007533ad Mon Sep 17 00:00:00 2001 From: Benjamin Canou Date: Tue, 23 Jul 2019 16:57:53 +0200 Subject: [PATCH 066/252] Tests/Python: update Python tests - Add all constants to parameters. - Adapt the tests to the new constants and semantics. - Adapt for minimum proposal quorum. - Adapt test_multinode_snapshot to Emmy+. - Adapt to Michelson lightweight multiple entrypoints --- tests_python/client/client.py | 19 ++++-- tests_python/client/client_output.py | 35 ++++++++++ tests_python/examples/test_example.py | 2 + tests_python/tests/test_contract.py | 66 +++++++++++++++++-- tests_python/tests/test_contract_baker.py | 2 +- tests_python/tests/test_fork.py | 14 +--- tests_python/tests/test_multinode_snapshot.py | 2 + tests_python/tools/constants.py | 30 +++++++-- 8 files changed, 144 insertions(+), 26 deletions(-) diff --git a/tests_python/client/client.py b/tests_python/client/client.py index 269a38c0ddc3..e57cd80b002c 100644 --- a/tests_python/client/client.py +++ b/tests_python/client/client.py @@ -245,19 +245,28 @@ class Client: def originate(self, contract_name: str, - manager: str, amount: float, sender: str, contract: str, args: List[str] = None) -> client_output.OriginationResult: - cmd = ['originate', 'contract', contract_name, 'for', manager, - 'transferring', str(amount), 'from', sender, 'running', - contract] + cmd = ['originate', 'contract', contract_name, 'transferring', + str(amount), 'from', sender, 'running', contract] if args is None: args = [] cmd += args return client_output.OriginationResult(self.run(cmd)) + def hash(self, data: str, typ: str) -> client_output.HashResult: + cmd = ['hash', 'data', data, 'of', 'type', typ] + return client_output.HashResult(self.run(cmd)) + + def pack(self, data: str, typ: str) -> str: + return self.hash(data, typ).packed + + def sign(self, data: str, identity: str) -> str: + cmd = ['sign', 'bytes', data, 'for', identity] + return client_output.SignatureResult(self.run(cmd)).sig + def transfer(self, amount: float, account1: str, @@ -349,7 +358,7 @@ class Client: branch: str = None, args=None) -> client_output.WaitForResult: cmd = ['wait', 'for', operation_hash, 'to', 'be', 'included'] - cmd += ['--check-previous', '5'] + cmd += ['--check-previous', '2'] if branch is not None: cmd += ['--branch', branch] if args is None: diff --git a/tests_python/client/client_output.py b/tests_python/client/client_output.py index 37a7388f43ed..71554bc626d5 100644 --- a/tests_python/client/client_output.py +++ b/tests_python/client/client_output.py @@ -129,6 +129,41 @@ class WaitForResult: self.block_hash = match.groups()[0] +class HashResult: + """Result of a 'hash data' command.""" + + def __init__(self, client_output: str): + + pattern = r'''Raw packed data: ?(0x[0-9a-f]*) +Script-expression-ID-Hash: ?(\w*) +Raw Script-expression-ID-Hash: ?(\w*) +Ledger Blake2b hash: ?(\w*) +Raw Sha256 hash: ?(\w*) +Raw Sha512 hash: ?(\w*) +Gas remaining: ?(\w*)''' + match = re.search(pattern, client_output) + if match is None: + raise InvalidClientOutput(client_output) + self.packed = match.groups()[0] + self.hash = match.groups()[1] + self.raw_hash = match.groups()[2] + self.blake2b = match.groups()[3] + self.sha256 = match.groups()[4] + self.sha512 = match.groups()[5] + + +class SignatureResult: + """Result of a 'sign bytes' command.""" + + def __init__(self, client_output: str): + + pattern = r'Signature: ?(\w*)\n' + match = re.search(pattern, client_output) + if match is None: + raise InvalidClientOutput(client_output) + self.sig = match.groups()[0] + + def extract_rpc_answer(client_output: str) -> dict: """Convert json client output to a dict representation. diff --git a/tests_python/examples/test_example.py b/tests_python/examples/test_example.py index 87bd9ee714d9..aafa91cc01fd 100644 --- a/tests_python/examples/test_example.py +++ b/tests_python/examples/test_example.py @@ -39,4 +39,6 @@ class TestExample: # @pytest.mark.timeout(5, method='thread') def test_inclusion(self, sandbox, session): operation_hash = session['operation_hash'] + # FIXME retrieve the block hash where the operation was + # injected and pass it to `wait_for_inclusion` sandbox.client(0).wait_for_inclusion(operation_hash) diff --git a/tests_python/tests/test_contract.py b/tests_python/tests/test_contract.py index 17513e4239fb..d0bb4fcd731c 100644 --- a/tests_python/tests/test_contract.py +++ b/tests_python/tests/test_contract.py @@ -1,11 +1,36 @@ import os import subprocess import pytest -from tools import paths - +from tools import utils, paths, constants CONTRACT_PATH = f'{paths.TEZOS_HOME}/src/bin_client/test/contracts' +BAKE_ARGS = ['--minimal-timestamp'] + + +def file_basename(path): + return os.path.splitext(os.path.basename(path))[0] + + +def originate(client, + session, + contract, + init_storage, + amount, + contract_name=None, + sender='bootstrap1', + baker='bootstrap5'): + if contract_name is None: + contract_name = file_basename(contract) + args = ['--init', init_storage, '--burn-cap', '10.0'] + origination = client.originate(contract_name, amount, + sender, contract, args) + session['contract'] = origination.contract + print(origination.contract) + client.bake(baker, BAKE_ARGS) + assert utils.check_block_contains_operations(client, + [origination.operation_hash]) + def all_contracts(): directories = ['attic', 'opcodes'] @@ -85,8 +110,7 @@ class TestGasBound: # TODO client.typecheck(contract) -> type error not what we expect? args = ['-G', '8000', '--burn-cap', '10'] with pytest.raises(subprocess.CalledProcessError) as _exc: - client.originate(f'{name}', 'bootstrap1', 0, - 'bootstrap1', contract, args) + client.originate(f'{name}', 0, 'bootstrap1', contract, args) # TODO capture output and check error message is correct def test_originate_second_explosion(self, client, session): @@ -97,3 +121,37 @@ class TestGasBound: client.run_script(contract, storage, inp) # TODO complete with tests from test_contract.sh + + +@pytest.mark.contract +class TestChainId: + + def test_chain_id_opcode(self, client, session): + path = f'{CONTRACT_PATH}/opcodes/chain_id.tz' + originate(client, session, path, 'Unit', 0) + client.transfer(0, 'bootstrap2', "chain_id", []) + client.bake('bootstrap5', BAKE_ARGS) + + def test_chain_id_authentication_origination(self, client, session): + path = f'{CONTRACT_PATH}/mini_scenarios/authentication.tz' + pubkey = constants.IDENTITIES['bootstrap1']['public'] + originate(client, session, path, f'Pair 0 "{pubkey}"', 1000) + client.bake('bootstrap5', BAKE_ARGS) + + def test_chain_id_authentication_first_run(self, client, session): + destination = constants.IDENTITIES['bootstrap2']['identity'] + operation = '{DROP; NIL operation; ' + \ + f'PUSH address "{destination}"; ' + \ + 'CONTRACT unit; ASSERT_SOME; PUSH mutez 1000; UNIT; ' + \ + 'TRANSFER_TOKENS; CONS}' + chain_id = client.rpc('get', 'chains/main/chain_id') + contract_address = session['contract'] + packed = client.pack( + f'Pair (Pair "{chain_id}" "{contract_address}") ' + + f'(Pair {operation} 0)', + 'pair (pair chain_id address)' + + '(pair (lambda unit (list operation)) nat)') + signature = client.sign(packed, "bootstrap1") + client.transfer(0, 'bootstrap2', 'authentication', + ['--arg', f'Pair {operation} \"{signature}\"']) + client.bake('bootstrap5', BAKE_ARGS) diff --git a/tests_python/tests/test_contract_baker.py b/tests_python/tests/test_contract_baker.py index 6da6412cd4ab..353802a0c2c3 100644 --- a/tests_python/tests/test_contract_baker.py +++ b/tests_python/tests/test_contract_baker.py @@ -23,7 +23,7 @@ class TestOriginationCall: path = f'{paths.TEZOS_HOME}/src/bin_client/test/contracts/opcodes' contract = f'{path}/transfer_tokens.tz' args = ['--init', initial_storage, '--burn-cap', '0.400'] - origination = client.originate('foobar', 'bootstrap1', 1000, + origination = client.originate('foobar', 1000, 'bootstrap1', contract, args) session['contract'] = origination.contract client.bake('bootstrap5', BAKE_ARGS) diff --git a/tests_python/tests/test_fork.py b/tests_python/tests/test_fork.py index 6e40c3c9b11d..577871aceb24 100644 --- a/tests_python/tests/test_fork.py +++ b/tests_python/tests/test_fork.py @@ -33,23 +33,15 @@ class TestFork: """Client 0 bakes block A at level 2, not communicated to 1 and 2""" sandbox.client(0).bake('bootstrap1', BAKE_ARGS) - def test_endorse_node_0(self, sandbox, session): - """bootstrap1 builds an endorsement for block A""" - client = sandbox.client(0) - client.endorse('bootstrap1') - mempool = client.get_mempool() - endorsement = mempool['applied'][0] - session['endorsement1'] = endorsement - def test_bake_node_0_again(self, sandbox): - """Client 0 bakes block A' at level 3, not communicated to 1 and 2""" + """Client 0 bakes block A' at level 3 & 4, not communicated to 1 and 2""" + sandbox.client(0).bake('bootstrap1', BAKE_ARGS) sandbox.client(0).bake('bootstrap1', BAKE_ARGS) def test_first_branch(self, sandbox, session): head = sandbox.client(0).get_head() - assert head['header']['level'] == 3 + assert head['header']['level'] == 4 session['hash1'] = head['hash'] - assert len(head['operations'][0]) == 1 def test_terminate_node_0(self, sandbox): sandbox.node(0).terminate() diff --git a/tests_python/tests/test_multinode_snapshot.py b/tests_python/tests/test_multinode_snapshot.py index b8ae3723ab44..6d2a511c0812 100644 --- a/tests_python/tests/test_multinode_snapshot.py +++ b/tests_python/tests/test_multinode_snapshot.py @@ -25,6 +25,7 @@ class TestMultiNodeSnapshot: def test_bake_group1_level_a(self, sandbox): for _ in range(LEVEL_A - 1): sandbox.client(GROUP1[0]).bake('bootstrap1', BAKE_ARGS) + sandbox.client(GROUP1[0]).endorse('bootstrap2') def test_group1_level_a(self, sandbox, session): for i in GROUP1: @@ -57,6 +58,7 @@ class TestMultiNodeSnapshot: def test_bake_group2_level_b(self, sandbox): for _ in range(LEVEL_B - LEVEL_A): sandbox.client(GROUP2[0]).bake('bootstrap1', BAKE_ARGS) + sandbox.client(GROUP2[0]).endorse('bootstrap2') def test_all_level_c(self, sandbox): for client in sandbox.all_clients(): diff --git a/tests_python/tools/constants.py b/tests_python/tools/constants.py index ca5d7e65b6b4..53840647327c 100644 --- a/tests_python/tools/constants.py +++ b/tests_python/tools/constants.py @@ -27,12 +27,32 @@ COMMITMENTS = [ PARAMETERS = { "bootstrap_accounts": BOOTSTRAP_ACCOUNTS, "commitments": COMMITMENTS, + "preserved_cycles": 2, + "blocks_per_cycle": 8, + "blocks_per_commitment": 4, + "blocks_per_roll_snapshot": 4, + "blocks_per_voting_period": 64, "time_between_blocks": ["1", "0"], - "blocks_per_cycle": 128, - "blocks_per_roll_snapshot": 32, - "blocks_per_voting_period": 16, - "preserved_cycles": 1, - "proof_of_work_threshold": "-1" + "endorsers_per_block": 32, + "hard_gas_limit_per_operation": "800000", + "hard_gas_limit_per_block": "8000000", + "proof_of_work_threshold": "-1", + "tokens_per_roll": "8000000000", + "michelson_maximum_type_size": 1000, + "seed_nonce_revelation_tip": "125000", + "origination_size": 257, + "block_security_deposit": "512000000", + "endorsement_security_deposit": "64000000", + "block_reward": "16000000", + "endorsement_reward": "2000000", + "cost_per_byte": "1000", + "hard_storage_limit_per_operation": "60000", + "test_chain_duration": "1966080", + "quorum_min": 3000, + "quorum_max": 7000, + "min_proposal_quorum": 500, + "initial_endorsers": 1, + "delay_per_missing_endorsement": "1" } GENESIS_SK = "edsk31vznjHSSpGExDMHYASz45VZqXN4DPxvsa4hAyY8dHM28cZzp6" -- GitLab From d332429d043db3a106968e642110d41fc5ae4ebc Mon Sep 17 00:00:00 2001 From: Benjamin Canou Date: Tue, 23 Jul 2019 16:55:39 +0200 Subject: [PATCH 067/252] Tests/Contracts: update Michelson test contracts and bash tests - Update tests for the new semantics of CREATE_CONTRACT. - Adds tests for DIG, DUG, DROP and DIP. - Test the new CHAIN_ID instruction. - Test the new APPLY instruction. --- .../test/contracts/attic/bad_lockup.tz | 6 ++-- .../test/contracts/attic/create_add1_lists.tz | 3 -- .../test/contracts/attic/forward.tz | 12 +++++-- .../contracts/attic/list_of_transactions.tz | 6 ++-- .../test/contracts/attic/reentrancy.tz | 8 ++--- .../test/contracts/attic/reservoir.tz | 4 ++- .../contracts/attic/scrutable_reservoir.tz | 9 ++++-- .../test/contracts/attic/spawn_identities.tz | 2 -- .../create_account.tz | 6 ++-- .../contracts/deprecated/create_contract.tz | 18 +++++++++++ .../originator.tz | 0 .../mini_scenarios/authentication.tz | 30 ++++++++++++++++++ .../mini_scenarios/big_map_entrypoints.tz | 31 +++++++++++++++++++ .../contracts/mini_scenarios/big_map_magic.tz | 31 +++++++++++++++++++ .../mini_scenarios/create_contract.tz | 17 +++++----- .../test/contracts/mini_scenarios/lockup.tz | 3 +- .../multiple_entrypoints_counter.tz | 29 +++++++++++++++++ .../mini_scenarios/weather_insurance.tz | 5 +-- .../test/contracts/mini_scenarios/xcat.tz | 6 ++-- .../test/contracts/opcodes/chain_id.tz | 3 ++ src/bin_client/test/contracts/opcodes/dign.tz | 3 ++ src/bin_client/test/contracts/opcodes/dipn.tz | 3 ++ .../test/contracts/opcodes/dropn.tz | 3 ++ src/bin_client/test/contracts/opcodes/dugn.tz | 3 ++ .../test/contracts/opcodes/pexec.tz | 6 ++++ .../test/contracts/opcodes/pexec_2.tz | 11 +++++++ src/bin_client/test/contracts/opcodes/self.tz | 4 +-- .../test/contracts/opcodes/steps_to_quota.tz | 3 -- 28 files changed, 222 insertions(+), 43 deletions(-) rename src/bin_client/test/contracts/{mini_scenarios => deprecated}/create_account.tz (72%) create mode 100644 src/bin_client/test/contracts/deprecated/create_contract.tz rename src/bin_client/test/contracts/{mini_scenarios => deprecated}/originator.tz (100%) create mode 100644 src/bin_client/test/contracts/mini_scenarios/authentication.tz create mode 100644 src/bin_client/test/contracts/mini_scenarios/big_map_entrypoints.tz create mode 100644 src/bin_client/test/contracts/mini_scenarios/big_map_magic.tz create mode 100644 src/bin_client/test/contracts/mini_scenarios/multiple_entrypoints_counter.tz create mode 100644 src/bin_client/test/contracts/opcodes/chain_id.tz create mode 100644 src/bin_client/test/contracts/opcodes/dign.tz create mode 100644 src/bin_client/test/contracts/opcodes/dipn.tz create mode 100644 src/bin_client/test/contracts/opcodes/dropn.tz create mode 100644 src/bin_client/test/contracts/opcodes/dugn.tz create mode 100644 src/bin_client/test/contracts/opcodes/pexec.tz create mode 100644 src/bin_client/test/contracts/opcodes/pexec_2.tz delete mode 100644 src/bin_client/test/contracts/opcodes/steps_to_quota.tz diff --git a/src/bin_client/test/contracts/attic/bad_lockup.tz b/src/bin_client/test/contracts/attic/bad_lockup.tz index aeb3ec7fea8e..f334e899e71c 100644 --- a/src/bin_client/test/contracts/attic/bad_lockup.tz +++ b/src/bin_client/test/contracts/attic/bad_lockup.tz @@ -1,6 +1,6 @@ parameter unit; -storage (pair timestamp (pair (contract unit) (contract unit))); +storage (pair timestamp (pair address address)); code { CDR; DUP; CAR; NOW; CMPLT; IF {FAIL} {}; - DUP; CDAR; PUSH mutez 100000000; UNIT; TRANSFER_TOKENS; SWAP; - DUP; CDDR; PUSH mutez 100000000; UNIT; TRANSFER_TOKENS; DIP {SWAP} ; + DUP; CDAR; CONTRACT unit ; ASSERT_SOME ; PUSH mutez 100000000; UNIT; TRANSFER_TOKENS; SWAP; + DUP; CDDR; CONTRACT unit ; ASSERT_SOME ; PUSH mutez 100000000; UNIT; TRANSFER_TOKENS; DIP {SWAP} ; NIL operation ; SWAP ; CONS ; SWAP ; CONS ; PAIR } diff --git a/src/bin_client/test/contracts/attic/create_add1_lists.tz b/src/bin_client/test/contracts/attic/create_add1_lists.tz index c183ad1e26ea..5a4245966379 100644 --- a/src/bin_client/test/contracts/attic/create_add1_lists.tz +++ b/src/bin_client/test/contracts/attic/create_add1_lists.tz @@ -2,10 +2,7 @@ parameter unit; storage address; code { DROP; NIL int; # starting storage for contract AMOUNT; # Push the starting balance - PUSH bool False; # Not spendable - DUP; # Or delegatable NONE key_hash; # No delegate - PUSH key_hash "tz1cxcwwnzENRdhe2Kb8ZdTrdNy4bFNyScx5"; CREATE_CONTRACT # Create the contract { parameter (list int) ; storage (list int) ; diff --git a/src/bin_client/test/contracts/attic/forward.tz b/src/bin_client/test/contracts/attic/forward.tz index 9894dae20e94..5b66891bb1bf 100644 --- a/src/bin_client/test/contracts/attic/forward.tz +++ b/src/bin_client/test/contracts/attic/forward.tz @@ -8,8 +8,8 @@ storage (pair (pair mutez mutez) # K C (pair - (pair (contract unit) (contract unit)) # B S - (contract unit))))) ; # W + (pair address address) # B S + address)))) ; # W code { DUP ; CDDADDR ; # Z PUSH int 86400 ; SWAP ; ADD ; # one day in second @@ -49,15 +49,18 @@ code IF { # refund the parties CDR ; DUP ; CADAR ; # amount versed by the buyer DIP { DUP ; CDDDAAR } ; # B + DIP { CONTRACT unit ; ASSERT_SOME } ; UNIT ; TRANSFER_TOKENS ; NIL operation ; SWAP ; CONS ; SWAP ; DUP ; CADDR ; # amount versed by the seller DIP { DUP ; CDDDADR } ; # S + DIP { CONTRACT unit ; ASSERT_SOME } ; UNIT ; TRANSFER_TOKENS ; SWAP ; DIP { CONS } ; DUP ; CADAR ; DIP { DUP ; CADDR } ; ADD ; BALANCE ; SUB ; # bonus to the warehouse DIP { DUP ; CDDDDR } ; # W + DIP { CONTRACT unit ; ASSERT_SOME } ; UNIT ; TRANSFER_TOKENS ; DIP { SWAP } ; CONS ; # leave the storage as-is, as the balance is now 0 @@ -101,6 +104,7 @@ code BALANCE ; DIP { DUP ; CDDDDADR } ; # S DIIP { CDR } ; + DIP { CONTRACT unit ; ASSERT_SOME } ; UNIT ; TRANSFER_TOKENS ; NIL operation ; SWAP ; CONS ; PAIR } { # otherwise continue @@ -110,7 +114,7 @@ code NOW ; COMPARE ; LT ; IF { # Between T + 24 and T + 48 # We accept only delivery notifications, from W - DUP ; CDDDDDR ; ADDRESS ; # W + DUP ; CDDDDDR ; # W SENDER ; COMPARE ; NEQ ; IF { FAIL } {} ; # fail if not the warehouse @@ -132,6 +136,7 @@ code BALANCE ; DIP { DUP ; CDDDDADR } ; # S DIIP { CDR } ; + DIP { CONTRACT unit ; ASSERT_SOME } ; UNIT ; TRANSFER_TOKENS ; NIL operation ; SWAP ; CONS } } ; PAIR } @@ -139,6 +144,7 @@ code BALANCE ; DIP { DUP ; CDDDDAAR } ; # B DIIP { CDR } ; + DIP { CONTRACT unit ; ASSERT_SOME } ; UNIT ; TRANSFER_TOKENS ; NIL operation ; SWAP ; CONS ; PAIR} } } } } } } \ No newline at end of file diff --git a/src/bin_client/test/contracts/attic/list_of_transactions.tz b/src/bin_client/test/contracts/attic/list_of_transactions.tz index 412112aad02c..620ceedd5a67 100644 --- a/src/bin_client/test/contracts/attic/list_of_transactions.tz +++ b/src/bin_client/test/contracts/attic/list_of_transactions.tz @@ -1,8 +1,8 @@ parameter unit; -storage (list (contract unit)); +storage (list address); code { CDR; DUP; DIP {NIL operation}; PUSH bool True; # Setup loop - LOOP {IF_CONS { PUSH mutez 1000000; UNIT; TRANSFER_TOKENS; # Make transfer + LOOP {IF_CONS { CONTRACT unit ; ASSERT_SOME ; PUSH mutez 1000000; UNIT; TRANSFER_TOKENS; # Make transfer SWAP; DIP {CONS}; PUSH bool True} # Setup for next round of loop - { NIL (contract unit); PUSH bool False}}; # Data to satisfy types and end loop + { NIL address ; PUSH bool False}}; # Data to satisfy types and end loop DROP; PAIR}; # Calling convention diff --git a/src/bin_client/test/contracts/attic/reentrancy.tz b/src/bin_client/test/contracts/attic/reentrancy.tz index 2e5d92060ad7..b9e614a4e53e 100644 --- a/src/bin_client/test/contracts/attic/reentrancy.tz +++ b/src/bin_client/test/contracts/attic/reentrancy.tz @@ -1,7 +1,7 @@ parameter unit; -storage (pair (contract unit) (contract unit)); -code { CDR; DUP; CAR; PUSH mutez 5000000; UNIT; - TRANSFER_TOKENS; +storage (pair address address); +code { CDR; DUP; CAR; + CONTRACT unit ; ASSERT_SOME ; PUSH mutez 5000000; UNIT; TRANSFER_TOKENS; DIP {DUP; CDR; - PUSH mutez 5000000; UNIT; TRANSFER_TOKENS}; + CONTRACT unit ; ASSERT_SOME ; PUSH mutez 5000000; UNIT; TRANSFER_TOKENS}; DIIP{NIL operation};DIP{CONS};CONS;PAIR}; diff --git a/src/bin_client/test/contracts/attic/reservoir.tz b/src/bin_client/test/contracts/attic/reservoir.tz index 4e693c9ba885..291e09b262b5 100644 --- a/src/bin_client/test/contracts/attic/reservoir.tz +++ b/src/bin_client/test/contracts/attic/reservoir.tz @@ -2,7 +2,7 @@ parameter unit ; storage (pair (pair (timestamp %T) (mutez %N)) - (pair (contract %A unit) (contract %B unit))) ; + (pair (address %A) (address %B))) ; code { CDR ; DUP ; CAAR %T; # T NOW ; COMPARE ; LE ; @@ -11,11 +11,13 @@ code COMPARE ; LE ; IF { NIL operation ; PAIR } { DUP ; CDDR %B; # B + CONTRACT unit ; ASSERT_SOME ; BALANCE ; UNIT ; TRANSFER_TOKENS ; NIL operation ; SWAP ; CONS ; PAIR } } { DUP ; CDAR %A; # A + CONTRACT unit ; ASSERT_SOME ; BALANCE ; UNIT ; TRANSFER_TOKENS ; diff --git a/src/bin_client/test/contracts/attic/scrutable_reservoir.tz b/src/bin_client/test/contracts/attic/scrutable_reservoir.tz index 9e30a1a72628..d415cdda0f54 100644 --- a/src/bin_client/test/contracts/attic/scrutable_reservoir.tz +++ b/src/bin_client/test/contracts/attic/scrutable_reservoir.tz @@ -7,8 +7,8 @@ storage (pair (pair mutez mutez) # P N (pair - (contract unit) # X - (pair (contract unit) (contract unit)))))) ; # A B + address # X + (pair address address))))) ; # A B code { DUP ; CDAR ; # S PUSH string "open" ; @@ -34,10 +34,12 @@ code # We transfer the fee to the broker DUP ; CDDAAR ; # P DIP { DUP ; CDDDAR } ; # X + DIP { CONTRACT unit ; ASSERT_SOME } ; UNIT ; TRANSFER_TOKENS ; # We transfer the rest to A DIP { DUP ; CDDADR ; # N DIP { DUP ; CDDDDAR } ; # A + DIP { CONTRACT unit ; ASSERT_SOME } ; UNIT ; TRANSFER_TOKENS } ; NIL operation ; SWAP ; CONS ; SWAP ; CONS ; PAIR } } @@ -50,13 +52,16 @@ code COMPARE ; LT ; # available < P IF { BALANCE ; # available DIP { DUP ; CDDDAR } ; # X + DIP { CONTRACT unit ; ASSERT_SOME } ; UNIT ; TRANSFER_TOKENS } { DUP ; CDDAAR ; # P DIP { DUP ; CDDDAR } ; # X + DIP { CONTRACT unit ; ASSERT_SOME } ; UNIT ; TRANSFER_TOKENS } ; # We transfer the rest to B DIP { BALANCE ; # available DIP { DUP ; CDDDDDR } ; # B + DIP { CONTRACT unit ; ASSERT_SOME } ; UNIT ; TRANSFER_TOKENS } ; NIL operation ; SWAP ; CONS ; SWAP ; CONS ; PAIR } } } diff --git a/src/bin_client/test/contracts/attic/spawn_identities.tz b/src/bin_client/test/contracts/attic/spawn_identities.tz index 91b062aff83b..b8e64bb8686a 100644 --- a/src/bin_client/test/contracts/attic/spawn_identities.tz +++ b/src/bin_client/test/contracts/attic/spawn_identities.tz @@ -9,9 +9,7 @@ code { DUP; { PUSH nat 1; SWAP; SUB; ABS; # Subtract 1. The ABS is to make it back into a nat PUSH string "init"; # Storage type PUSH mutez 5000000; # Strating balance - PUSH bool False; DUP; # Not spendable or delegatable NONE key_hash; - PUSH key_hash "tz1cxcwwnzENRdhe2Kb8ZdTrdNy4bFNyScx5"; CREATE_CONTRACT { parameter string ; storage string ; diff --git a/src/bin_client/test/contracts/mini_scenarios/create_account.tz b/src/bin_client/test/contracts/deprecated/create_account.tz similarity index 72% rename from src/bin_client/test/contracts/mini_scenarios/create_account.tz rename to src/bin_client/test/contracts/deprecated/create_account.tz index 6d0d261ec4ec..e3349c50752f 100644 --- a/src/bin_client/test/contracts/mini_scenarios/create_account.tz +++ b/src/bin_client/test/contracts/deprecated/create_account.tz @@ -1,12 +1,12 @@ parameter (or key_hash address) ; -storage (option (contract unit)) ; +storage (option address) ; code { CAR; IF_LEFT { DIP { PUSH mutez 100000000 ; PUSH bool False ; NONE key_hash }; CREATE_ACCOUNT ; DIP { RIGHT key_hash ; DIP { SELF ; PUSH mutez 0 } ; TRANSFER_TOKENS ; NIL operation ; SWAP ; CONS } ; - CONS ; NONE (contract unit) ; SWAP ; PAIR } + CONS ; NONE address ; SWAP ; PAIR } { SELF ; ADDRESS ; SENDER ; IFCMPNEQ { FAIL } {} ; - CONTRACT unit ; DUP ; IF_SOME { DROP } { FAIL } ; + DUP ; CONTRACT unit ; IF_SOME { DROP ; SOME } { FAIL } ; NIL operation ; PAIR } } ; diff --git a/src/bin_client/test/contracts/deprecated/create_contract.tz b/src/bin_client/test/contracts/deprecated/create_contract.tz new file mode 100644 index 000000000000..a162044ac62b --- /dev/null +++ b/src/bin_client/test/contracts/deprecated/create_contract.tz @@ -0,0 +1,18 @@ +parameter (or key_hash address); +storage unit; +code { CAR; + IF_LEFT + { DIP { PUSH string "dummy"; + PUSH mutez 100000000 ; PUSH bool False ; + PUSH bool False ; NONE key_hash } ; + CREATE_CONTRACT + { parameter string ; + storage string ; + code { CAR ; NIL operation ; PAIR } } ; + DIP { RIGHT key_hash ; DIP { SELF ; PUSH mutez 0 } ; TRANSFER_TOKENS ; + NIL operation ; SWAP ; CONS } ; + CONS ; UNIT ; SWAP ; PAIR } + { SELF ; ADDRESS ; SENDER ; IFCMPNEQ { FAIL } {} ; + CONTRACT string ; IF_SOME {} { FAIL } ; + PUSH mutez 0 ; PUSH string "abcdefg" ; TRANSFER_TOKENS ; + NIL operation; SWAP; CONS ; UNIT ; SWAP ; PAIR } }; diff --git a/src/bin_client/test/contracts/mini_scenarios/originator.tz b/src/bin_client/test/contracts/deprecated/originator.tz similarity index 100% rename from src/bin_client/test/contracts/mini_scenarios/originator.tz rename to src/bin_client/test/contracts/deprecated/originator.tz diff --git a/src/bin_client/test/contracts/mini_scenarios/authentication.tz b/src/bin_client/test/contracts/mini_scenarios/authentication.tz new file mode 100644 index 000000000000..021bbd26361a --- /dev/null +++ b/src/bin_client/test/contracts/mini_scenarios/authentication.tz @@ -0,0 +1,30 @@ +/* + +This contract is an example of using a cryptographic signature to +handle authentication. A public key is stored, and only the owner of +the secret key associated to this public key can interact with the +contract. She is allowed to perform any list of operations by sending +them wrapped in a lambda to the contract with a cryptographic +signature. + +To ensure that each signature is used only once and is not replayed by +an attacker, not only the lambda is signed but also the unique +identifier of the contract (a pair of the contract address and the +chain id) and a counter that is incremented at each successful call. + +More precisely, the signature should check against pack ((chain_id, +self) (param, counter)). + +*/ +parameter (pair (lambda unit (list operation)) signature); +storage (pair (nat %counter) key); +code + { + UNPPAIPAIR; + DUUUP; DUUP ; SELF; CHAIN_ID ; PPAIPAIR; PACK; + DIP { SWAP }; DUUUUUP ; DIP { SWAP }; + DUUUP; DIP {CHECK_SIGNATURE}; SWAP; IF {DROP} {FAILWITH}; + UNIT; EXEC; + DIP { PUSH nat 1; ADD }; + PAPAIR + } diff --git a/src/bin_client/test/contracts/mini_scenarios/big_map_entrypoints.tz b/src/bin_client/test/contracts/mini_scenarios/big_map_entrypoints.tz new file mode 100644 index 000000000000..d49e6257167a --- /dev/null +++ b/src/bin_client/test/contracts/mini_scenarios/big_map_entrypoints.tz @@ -0,0 +1,31 @@ +storage + (pair (big_map string nat) (big_map string nat)) ; +parameter + (or (unit %default) + (or (or %mem (string %mem_left) (string %mem_right)) + (or (or %add (pair %add_left string nat) (pair %add_right string nat)) + (or %rem (string %rem_left) (string %rem_right))))) ; +code { UNPAIR ; + IF_LEFT + { DROP ; + DUP ; CAR ; + PUSH mutez 0 ; + NONE key_hash ; + CREATE_CONTRACT + { parameter string ; + storage (big_map string nat) ; + code { UNPAIR ; DROP ; NIL operation ; PAIR }} ; + DIP { DROP } ; + NIL operation ; SWAP ; CONS ; PAIR } + { IF_LEFT + { IF_LEFT + { DIP { UNPAIR } ; DIP { DUP } ; MEM ; ASSERT } + { DIP { UNPAIR ; SWAP } ; DIP { DUP } ; MEM ; ASSERT ; SWAP } } + { IF_LEFT + { IF_LEFT + { UNPAIR ; DIIP { UNPAIR } ; DIP { SOME } ; UPDATE } + { UNPAIR ; DIIP { UNPAIR ; SWAP } ; DIP { SOME } ; UPDATE ; SWAP } } + { IF_LEFT + { DIP { UNPAIR } ; DIP { NONE nat } ; UPDATE } + { DIP { UNPAIR ; SWAP } ; DIP { NONE nat } ; UPDATE ; SWAP } } } ; + PAIR ; NIL operation ; PAIR } } diff --git a/src/bin_client/test/contracts/mini_scenarios/big_map_magic.tz b/src/bin_client/test/contracts/mini_scenarios/big_map_magic.tz new file mode 100644 index 000000000000..0bfc429e0cfd --- /dev/null +++ b/src/bin_client/test/contracts/mini_scenarios/big_map_magic.tz @@ -0,0 +1,31 @@ +storage + (or (pair (big_map string string) (big_map string string)) unit) ; +parameter + (or (unit %swap) + (or (or %reset (pair (big_map string string) (big_map string string)) unit) + (or (pair %import (list (pair string string)) (list (pair string string))) + (or (list %add (pair string string)) + (list %rem string))))) ; +code { UNPAIR ; + IF_LEFT + { DROP ; ASSERT_LEFT ; UNPAIR ; SWAP ; PAIR ; LEFT unit } + { IF_LEFT + { SWAP ; DROP } + { IF_LEFT + { DIP { ASSERT_RIGHT ; DROP } ; + UNPAIR ; + DIP { EMPTY_BIG_MAP string string } ; + ITER { UNPAIR ; DIP { SOME } ; UPDATE } ; + SWAP ; + DIP { EMPTY_BIG_MAP string string } ; + ITER { UNPAIR ; DIP { SOME } ; UPDATE } ; + SWAP ; + PAIR ; LEFT unit } + { IF_LEFT + { DIP { ASSERT_LEFT ; UNPAIR } ; + ITER { UNPAIR ; DIP { SOME } ; UPDATE } ; + PAIR ; LEFT unit } + { DIP { ASSERT_LEFT ; UNPAIR } ; + ITER { DIP { NONE string } ; UPDATE } ; + PAIR ; LEFT unit } }} } ; + NIL operation ; PAIR } \ No newline at end of file diff --git a/src/bin_client/test/contracts/mini_scenarios/create_contract.tz b/src/bin_client/test/contracts/mini_scenarios/create_contract.tz index a162044ac62b..a60df2803501 100644 --- a/src/bin_client/test/contracts/mini_scenarios/create_contract.tz +++ b/src/bin_client/test/contracts/mini_scenarios/create_contract.tz @@ -1,18 +1,17 @@ -parameter (or key_hash address); -storage unit; -code { CAR; - IF_LEFT - { DIP { PUSH string "dummy"; - PUSH mutez 100000000 ; PUSH bool False ; - PUSH bool False ; NONE key_hash } ; +parameter (option address) ; +storage unit ; +code { CAR ; + IF_NONE + { PUSH string "dummy" ; + PUSH mutez 100000000 ; NONE key_hash ; CREATE_CONTRACT { parameter string ; storage string ; code { CAR ; NIL operation ; PAIR } } ; - DIP { RIGHT key_hash ; DIP { SELF ; PUSH mutez 0 } ; TRANSFER_TOKENS ; + DIP { SOME ; DIP { SELF ; PUSH mutez 0 } ; TRANSFER_TOKENS ; NIL operation ; SWAP ; CONS } ; CONS ; UNIT ; SWAP ; PAIR } { SELF ; ADDRESS ; SENDER ; IFCMPNEQ { FAIL } {} ; CONTRACT string ; IF_SOME {} { FAIL } ; PUSH mutez 0 ; PUSH string "abcdefg" ; TRANSFER_TOKENS ; - NIL operation; SWAP; CONS ; UNIT ; SWAP ; PAIR } }; + NIL operation; SWAP; CONS ; UNIT ; SWAP ; PAIR } } ; \ No newline at end of file diff --git a/src/bin_client/test/contracts/mini_scenarios/lockup.tz b/src/bin_client/test/contracts/mini_scenarios/lockup.tz index a68a8628f25c..eb238fd654fe 100644 --- a/src/bin_client/test/contracts/mini_scenarios/lockup.tz +++ b/src/bin_client/test/contracts/mini_scenarios/lockup.tz @@ -1,5 +1,5 @@ parameter unit; -storage (pair timestamp (pair mutez (contract unit))); +storage (pair timestamp (pair mutez address)); code { CDR; # Ignore the parameter DUP; # Duplicate the storage CAR; # Get the timestamp @@ -12,6 +12,7 @@ code { CDR; # Ignore the parameter DUP; # Duplicate the transfer information CAR; # Get the amount of the transfer on top of the stack DIP{CDR}; # Put the contract underneath it + DIP { CONTRACT unit ; ASSERT_SOME } ; UNIT; # Put the contract's argument type on top of the stack TRANSFER_TOKENS; # Emit the transfer NIL operation; SWAP; CONS;# Make a singleton list of internal operations diff --git a/src/bin_client/test/contracts/mini_scenarios/multiple_entrypoints_counter.tz b/src/bin_client/test/contracts/mini_scenarios/multiple_entrypoints_counter.tz new file mode 100644 index 000000000000..740190697171 --- /dev/null +++ b/src/bin_client/test/contracts/mini_scenarios/multiple_entrypoints_counter.tz @@ -0,0 +1,29 @@ +{ parameter unit ; + storage (option address) ; + code { SENDER ; SELF ; ADDRESS ; + IFCMPEQ + { CDR ; ASSERT_SOME ; + DIP { NIL operation } ; + DUP ; CONTRACT %add unit ; ASSERT_NONE ; + DUP ; CONTRACT %fact nat ; ASSERT_NONE ; + DUP ; CONTRACT %add nat ; ASSERT_SOME ; PUSH mutez 0 ; PUSH nat 12 ; TRANSFER_TOKENS ; SWAP ; DIP { CONS } ; + DUP ; CONTRACT unit ; ASSERT_SOME ; PUSH mutez 0 ; PUSH unit Unit ; TRANSFER_TOKENS ; SWAP ; DIP { CONS } ; + DUP ; CONTRACT %sub nat ; ASSERT_SOME ; PUSH mutez 0 ; PUSH nat 3 ; TRANSFER_TOKENS ; SWAP ; DIP { CONS } ; + DUP ; CONTRACT %add nat ; ASSERT_SOME ; PUSH mutez 0 ; PUSH nat 5 ; TRANSFER_TOKENS ; SWAP ; DIP { CONS } ; + DROP ; DIP { NONE address } ; PAIR } + { CAR ; DUP ; + DIP + { DIP { PUSH int 0 ; PUSH mutez 0 ; NONE key_hash } ; + DROP ; + CREATE_CONTRACT + { parameter (or (or (nat %add) (nat %sub)) (unit %default)) ; + storage int ; + code { AMOUNT ; PUSH mutez 0 ; ASSERT_CMPEQ ; + UNPAIR ; + IF_LEFT + { IF_LEFT { ADD } { SWAP ; SUB } } + { DROP ; DROP ; PUSH int 0 } ; + NIL operation ; PAIR } } } ; + DIP { SELF ; PUSH mutez 0 } ; TRANSFER_TOKENS ; + NIL operation ; SWAP ; CONS ; SWAP ; CONS ; + DIP { SOME } ; PAIR } } } \ No newline at end of file diff --git a/src/bin_client/test/contracts/mini_scenarios/weather_insurance.tz b/src/bin_client/test/contracts/mini_scenarios/weather_insurance.tz index 858fe918fa50..e7e99e018335 100644 --- a/src/bin_client/test/contracts/mini_scenarios/weather_insurance.tz +++ b/src/bin_client/test/contracts/mini_scenarios/weather_insurance.tz @@ -1,7 +1,7 @@ parameter (pair (signature %signed_weather_data) (nat :rain %actual_level)); # (pair (under_key over_key) (pair weather_service_key (pair rain_level days_in_future))) -storage (pair (pair (contract %under_key unit) - (contract %over_key unit)) +storage (pair (pair (address %under_key) + (address %over_key)) (pair (nat :rain %rain_level) (key %weather_service_key))); code { DUP; DUP; CAR; MAP_CDR{PACK ; BLAKE2B}; @@ -13,6 +13,7 @@ code { DUP; DUP; DIP{CADR %actual_level}; # Get actual rain CDDAR %rain_level; # Get rain threshold CMPLT; IF {CAR %under_key} {CDR %over_key}; # Select contract to receive tokens + CONTRACT unit ; ASSERT_SOME ; BALANCE; UNIT ; TRANSFER_TOKENS @trans.op; # Setup and execute transfer NIL operation ; SWAP ; CONS ; PAIR }; diff --git a/src/bin_client/test/contracts/mini_scenarios/xcat.tz b/src/bin_client/test/contracts/mini_scenarios/xcat.tz index 254f4d825283..83e6c7ac1d50 100644 --- a/src/bin_client/test/contracts/mini_scenarios/xcat.tz +++ b/src/bin_client/test/contracts/mini_scenarios/xcat.tz @@ -9,8 +9,10 @@ code { # There's a temptation to use @storage to parametrize # a contract but, in general, there's no reason to encumber # @storage with immutable values. - PUSH @from (contract unit) "tz1KqTpEZ7Yob7QbPE4Hy4Wo8fHG8LhKxZSx"; #changeme - PUSH @to (contract unit) "tz1gjaF81ZRRvdzjobyfVNsAeSC6PScjfQwN"; #changeme + PUSH @from key_hash "tz1KqTpEZ7Yob7QbPE4Hy4Wo8fHG8LhKxZSx"; #changeme + IMPLICIT_ACCOUNT ; + PUSH @to key_hash "tz1gjaF81ZRRvdzjobyfVNsAeSC6PScjfQwN"; #changeme + IMPLICIT_ACCOUNT ; PUSH @target_hash bytes 0x123456; #changeme PUSH @deadline timestamp "2018-08-08 00:00:00Z"; #changeme }; diff --git a/src/bin_client/test/contracts/opcodes/chain_id.tz b/src/bin_client/test/contracts/opcodes/chain_id.tz new file mode 100644 index 000000000000..783d13fa0afc --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/chain_id.tz @@ -0,0 +1,3 @@ +parameter unit; +storage unit; +code { CHAIN_ID; DROP; CAR; NIL operation; PAIR } diff --git a/src/bin_client/test/contracts/opcodes/dign.tz b/src/bin_client/test/contracts/opcodes/dign.tz new file mode 100644 index 000000000000..ec8a339dd48c --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/dign.tz @@ -0,0 +1,3 @@ +parameter (pair (pair (pair (pair nat nat) nat) nat) nat); +storage nat; +code {CAR; UNPAIR ; UNPAIR ; UNPAIR ; UNPAIR ; DIG 4 ; DIP { DROP ; DROP ; DROP ; DROP } ; NIL operation; PAIR}; diff --git a/src/bin_client/test/contracts/opcodes/dipn.tz b/src/bin_client/test/contracts/opcodes/dipn.tz new file mode 100644 index 000000000000..55d088e5518f --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/dipn.tz @@ -0,0 +1,3 @@ +parameter (pair (pair (pair (pair nat nat) nat) nat) nat); +storage nat; +code {CAR; UNPAIR ; UNPAIR ; UNPAIR ; UNPAIR ; DIP 5 {PUSH nat 6} ; DROP ; DROP ; DROP ; DROP ; DROP ; NIL operation; PAIR}; diff --git a/src/bin_client/test/contracts/opcodes/dropn.tz b/src/bin_client/test/contracts/opcodes/dropn.tz new file mode 100644 index 000000000000..4b5379b3a3b3 --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/dropn.tz @@ -0,0 +1,3 @@ +parameter (pair (pair (pair (pair nat nat) nat) nat) nat); +storage nat; +code {CAR; UNPAIR ; UNPAIR ; UNPAIR ; UNPAIR ; DROP 4 ; NIL operation; PAIR}; diff --git a/src/bin_client/test/contracts/opcodes/dugn.tz b/src/bin_client/test/contracts/opcodes/dugn.tz new file mode 100644 index 000000000000..521c052f1fcd --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/dugn.tz @@ -0,0 +1,3 @@ +parameter (pair (pair (pair (pair nat nat) nat) nat) nat); +storage nat; +code {CAR; UNPAIR ; UNPAIR ; UNPAIR ; UNPAIR ; DUG 4 ; DROP ; DROP ; DROP ; DROP ; NIL operation; PAIR}; diff --git a/src/bin_client/test/contracts/opcodes/pexec.tz b/src/bin_client/test/contracts/opcodes/pexec.tz new file mode 100644 index 000000000000..eab0c71b4f59 --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/pexec.tz @@ -0,0 +1,6 @@ +parameter nat; +storage nat; +code { + LAMBDA (pair nat nat) nat + {UNPAIR ; ADD}; + SWAP; UNPAIR ; DIP { APPLY } ; EXEC ; NIL operation; PAIR}; diff --git a/src/bin_client/test/contracts/opcodes/pexec_2.tz b/src/bin_client/test/contracts/opcodes/pexec_2.tz new file mode 100644 index 000000000000..d64f7442f50e --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/pexec_2.tz @@ -0,0 +1,11 @@ +parameter int; +storage (list int); +code { + UNPAIR @p @s ; # p :: s + LAMBDA (pair int (pair int int)) int + { UNPAIR ; DIP { UNPAIR } ; ADD ; MUL }; # l :: p :: s + SWAP ; APPLY ; # l :: s + PUSH int 3 ; APPLY ; # l :: s + SWAP ; MAP { DIP { DUP } ; EXEC } ; # s :: l + DIP { DROP } ; # s + NIL operation; PAIR }; diff --git a/src/bin_client/test/contracts/opcodes/self.tz b/src/bin_client/test/contracts/opcodes/self.tz index 728cd5f1dbdb..d96457fd1331 100644 --- a/src/bin_client/test/contracts/opcodes/self.tz +++ b/src/bin_client/test/contracts/opcodes/self.tz @@ -1,3 +1,3 @@ parameter unit ; -storage (contract unit) ; -code { DROP ; SELF ; NIL operation ; PAIR } +storage address ; +code { DROP ; SELF ; ADDRESS ; NIL operation ; PAIR } diff --git a/src/bin_client/test/contracts/opcodes/steps_to_quota.tz b/src/bin_client/test/contracts/opcodes/steps_to_quota.tz deleted file mode 100644 index 4981864be9b1..000000000000 --- a/src/bin_client/test/contracts/opcodes/steps_to_quota.tz +++ /dev/null @@ -1,3 +0,0 @@ -parameter unit; -storage nat; -code {DROP; STEPS_TO_QUOTA; NIL operation; PAIR}; -- GitLab From 21e505de4c389f159e7340fa547702050be9513d Mon Sep 17 00:00:00 2001 From: Benjamin Canou Date: Tue, 23 Jul 2019 17:52:42 +0200 Subject: [PATCH 068/252] Tests/Bash: adapt to the new protocol --- src/bin_client/test/test_basic.sh | 14 ++---- src/bin_client/test/test_contracts.sh | 4 +- src/bin_client/test/test_contracts_macros.sh | 6 +-- .../test/test_contracts_mini_scenarios.sh | 39 ++++++++-------- src/bin_client/test/test_contracts_opcode.sh | 46 +++++++++++-------- src/bin_client/test/test_lib.inc.sh | 32 +++++++++++-- 6 files changed, 82 insertions(+), 59 deletions(-) diff --git a/src/bin_client/test/test_basic.sh b/src/bin_client/test/test_basic.sh index 69eddfe82894..c685714b9ed2 100755 --- a/src/bin_client/test/test_basic.sh +++ b/src/bin_client/test/test_basic.sh @@ -62,26 +62,18 @@ bake $client remember script noop file:contracts/opcodes/noop.tz $client typecheck script file:contracts/opcodes/noop.tz bake_after $client originate contract noop \ - for $key1 transferring 1,000 from bootstrap1 \ + transferring 1,000 from bootstrap1 \ running file:contracts/opcodes/noop.tz --burn-cap 0.295 bake_after $client transfer 10 from bootstrap1 to noop --arg "Unit" bake_after $client originate contract hardlimit \ - for $key1 transferring 1,000 from bootstrap1 \ + transferring 1,000 from bootstrap1 \ running file:contracts/mini_scenarios/hardlimit.tz --init "3" --burn-cap 0.341 bake_after $client transfer 10 from bootstrap1 to hardlimit --arg "Unit" bake_after $client transfer 10 from bootstrap1 to hardlimit --arg "Unit" -bake_after $client originate account free_account for $key1 \ - transferring 1,000 from bootstrap1 --delegatable --burn-cap 0.257 -$client get delegate for free_account - -bake_after $client register key $key2 as delegate -bake_after $client set delegate for free_account to $key2 -$client get delegate for free_account - $client get balance for bootstrap5 | assert "4000000 ꜩ" bake_after $client transfer 400,000 from bootstrap5 to bootstrap1 --fee 0 --force-low-fee bake_after $client transfer 400,000 from bootstrap1 to bootstrap5 --fee 0 --force-low-fee @@ -101,7 +93,7 @@ echo echo "-- Origination --" echo -bake_after $client deploy multisig msig for bootstrap1 transferring 100 from bootstrap1 with threshold 2 on public keys $key1 $key2 $key3 --burn-cap 100 +bake_after $client deploy multisig msig transferring 100 from bootstrap1 with threshold 2 on public keys $key1 $key2 $key3 --burn-cap 100 echo echo "-- Transfer --" diff --git a/src/bin_client/test/test_contracts.sh b/src/bin_client/test/test_contracts.sh index 28ce61827970..d2bd74fdbcfc 100755 --- a/src/bin_client/test/test_contracts.sh +++ b/src/bin_client/test/test_contracts.sh @@ -44,7 +44,7 @@ tee /tmp/first_explosion.tz < Date: Tue, 18 Jun 2019 16:36:20 +0200 Subject: [PATCH 069/252] Docs: synchronise Michelson specification - Updates the documentation of `big_map`s. - Adds a short documentation of entrypoints. - Adds the chain_id type and the `CHAIN_ID` instruction - Adds `COMPARE` variants. - Adds documentation for `APPLY`. --- docs/whitedoc/michelson.rst | 475 +++++++++++++++++++++++++++++++----- 1 file changed, 416 insertions(+), 59 deletions(-) diff --git a/docs/whitedoc/michelson.rst b/docs/whitedoc/michelson.rst index 057acfc2b8f2..9580a5880794 100644 --- a/docs/whitedoc/michelson.rst +++ b/docs/whitedoc/michelson.rst @@ -3,6 +3,10 @@ Michelson: the language of Smart Contracts in Tezos =================================================== +This specification gives a detailed formal semantics of the Michelson +language, and a short explanation of how smart contracts are executed +and interact in the blockchain. + The language is stack-based, with high level data types and primitives and strict static type checking. Its design cherry picks traits from several language families. Vigilant readers will notice direct @@ -14,30 +18,154 @@ previous instruction, and rewrites it for the next one. The stack contains both immediate values and heap allocated structures. All values are immutable and garbage collected. -A Michelson program receives as input a stack containing a single pair whose -first element is an input value and second element the content of a storage -space. It must return a stack containing a single pair whose first element is -a list of internal operations, and second element the new contents of the -storage space. Alternatively, a Michelson program can fail, explicitly using -a specific opcode, or because something went wrong that could not be caught -by the type system (e.g. division by zero, gas exhaustion). - -The types of the input, output and storage are fixed and monomorphic, +The types of the input and output stack are fixed and monomorphic, and the program is typechecked before being introduced into the system. No smart contract execution can fail because an instruction has been executed on a stack of unexpected length or contents. This specification gives the complete instruction set, type system and semantics of the language. It is meant as a precise reference manual, -not an easy introduction. Even though, some examples are provided at the -end of the document and can be read first or at the same time as the -specification. +not an easy introduction. Even though, some examples are provided at +the end of the document and can be read first or at the same time as +the specification. The document also starts with a less formal +explanation of the context: how Michelson code interacts with the +blockchain. -Semantics ---------- +Semantics of smart contracts and transactions +--------------------------------------------- -This specification gives a detailed formal semantics of the Michelson -language. It explains in a symbolic way the computation performed by the +The Tezos ledger currently has two types of accounts that can hold +tokens (and be the destinations of transactions). + + - An implicit account is a non programmable account, whose tokens + are spendable and delegatable by a public key. Its address is + directly the public key hash, and starts with ``tz1``, ``tz2`` or + ``tz3``. + - A smart contract is a programmable account. A transaction to such + an address can provide data, and can fail for reasons decided by + its Michelson code. Its address is a unique hash that depends on + the operation that led to its creation, and starts with ``KT1``. + +From Michelson, they are indistinguishable. A safe way to think about +this is to consider that implicit accounts are smart contracts that +always succeed to receive tokens, and does nothing else. + +Intra-transaction semantics +~~~~~~~~~~~~~~~~~~~~~~~~~~~ + +Alongside their tokens, smart contracts keep a piece of storage. Both +are ruled by a specific logic specified by a Michelson program. A +transaction to smart contract will provide an input value and in +option some tokens, and in return, the smart contract can modify its +storage and transfer its tokens. + +The Michelson program receives as input a stack containing a single +pair whose first element is an input value and second element the +content of the storage space. It must return a stack containing a +single pair whose first element is the list of internal operations +that it wants to emit, and second element is the new contents of the +storage space. Alternatively, a Michelson program can fail, explicitly +using a specific opcode, or because something went wrong that could +not be caught by the type system (e.g. gas exhaustion). + +A bit of polymorphism can be used at contract level, with a +lightweight system of named entrypoints: instead of an input value, +the contract can be called with an entrypoint name and an argument, +and these two component are transformed automatically in a simple and +deterministic way to an input value. This feature is available both +for users and from Michelson code. See the dedicated section. + +Inter-transaction semantics +~~~~~~~~~~~~~~~~~~~~~~~~~~~ + +An operation included in the blockchain is a sequence of "external +operations" signed as a whole by a source address. These operations +are of three kinds: + + - Transactions to transfer tokens to implicit accounts or tokens and + parameters to a smart contract (or, optionally, to a specified + entrypoint of a smart contract). + - Originations to create new smart contracts from its Michelson + source code, an initial amount of tokens transferred from the + source, and an initial storage contents. + - Delegations to assign the tokens of the source to the stake of + another implicit account (without transferring any tokens). + +Smart contracts can also emit "internal operations". These are run +in sequence after the external transaction completes, as in the +following schema for a sequence of two external operations. + +:: + + +------+----------------+-------+----------------+ + | op 1 | internal ops 1 | op 2 | internal ops 2 | + +------+----------------+-------+----------------+ + +Smart contracts called by internal transactions can in turn also emit +internal operation. The interpretation of the internal operations +of a given external operation use a queue, as in the following +example, also with two external operations. + +:: + + +-----------+---------------+--------------------------+ + | executing | emissions | resulting queue | + +-----------+---------------+--------------------------+ + | op 1 | 1a, 1b, 1c | 1a, 1b, 1c | + | op 1a | 1ai, 1aj | 1b, 1c, 1ai, 1aj | + | op 1b | 1bi | 1c, 1ai, 1aj, 1bi | + | op 1c | | 1ai, 1aj, 1bi | + | op 1ai | | 1aj, 1bi | + | op 1aj | | 1bi | + | op 1bi | | | + | op 2 | 2a, 2b | 2a, 2b | + | op 2a | 2ai | 2b, 2ai | + | op 2b | | 2ai | + | op 2ai | 2ai1 | 2ai1 | + | op 2a1 | 2ai2 | 2ai2 | + | op 2a2 | 2ai3 | 2ai3 | + | op 2a3 | | | + +-----------+---------------+--------------------------+ + +Failures +~~~~~~~~ + +All transactions can fail for a few reasons, mostly: + + - Not enough tokens in the source to spend the specified amount. + - The script took too many execution steps. + - The script failed programmatically using the ``FAILWITH`` instruction. + +External transactions can also fail for these additional reasons: + + - The signature of the external operations was wrong. + - The code or initial storage in an origination did not typecheck. + - The parameter in a transfer did not typecheck. + - The destination did not exist. + - The specified entrypoint did not exist. + +All these errors cannot happen in internal transactions, as the type +system catches them at operation creation time. In particular, +Michelson has two types to talk about other accounts: ``address`` and +``contract t``. The ``address`` type merely gives the guarantee that +the value has the form of a Tezos address. The ``contract t`` type, on +the other hand, guarantees that the value is indeed a valid, existing +account whose parameter type is ``t``. To make a transaction from +Michelson, a value of type ``contract t`` must be provided, and the +type system checks that the argument to the transaction is indeed of +type ``t``. Hence, all transactions made from Michelson are well +formed by construction. + +In any case, when a failure happens, either total success or total +failure is guaranteed. If a transaction (internal or external) fails, +then the whole sequence fails and all the effects up to the failure +are reverted. These transactions can still be included in blocks, and +the transaction fees given to the implicit account who baked the block. + +Language semantics +------------------ + +This specification explains in a symbolic way the computation performed by the Michelson interpreter on a given program and initial stack to produce the corresponding resulting stack. The Michelson interpreter is a pure function: it only builds a result stack from the elements of an initial @@ -357,11 +485,10 @@ Core data types and notations - ``big_map (k) (t)``: Lazily deserialized maps from keys of type ``(k)`` of values of type ``(t)`` that we note ``{ Elt key value ; ... }``, - with keys sorted. These maps should be used if you intend to store + with keys sorted. These maps should be used if you intend to store large amounts of data in a map. They have higher gas costs than - standard maps as data is lazily deserialized. You are limited to a - single ``big_map`` per program, which must appear on the left hand - side of a pair in the contract's storage. + standard maps as data is lazily deserialized. A ``big_map`` cannot + appear inside another ``big_map``. Core instructions ----------------- @@ -454,6 +581,17 @@ Control structures > EXEC / a : f : S => r : S where f / a : [] => r : [] +- ``APPLY``: Partially apply a tuplified function from the stack. + Such a lambda is storable, and thus values that cannot be stored + (values of type ``operation``, ``contract _`` and ``big map _ _``) + cannot be captured by ``APPLY`` (cannot appear in ``'a``). + +:: + + :: 'a : lambda (pair 'a 'b) 'c : 'C -> lambda 'b 'c : 'C + + > APPLY / a : f : S => { PUSH t v ; PAIR ; code } : S + Stack operations ~~~~~~~~~~~~~~~~ @@ -849,6 +987,20 @@ Operations on pairs > CDR / (Pair _ b) : S => b : S +- ``COMPARE``: Lexicographic comparison. + +:: + + :: pair 'a 'b : pair 'a 'b : 'S -> int : 'S + + > COMPARE / (Pair sa sb) : (Pair ta tb) : S => -1 : S + iff COMPARE / sa : ta : S => -1 : S + > COMPARE / (Pair sa sb) : (Pair ta tb) : S => 1 : S + iff COMPARE / sa : ta : S => 1 : S + > COMPARE / (Pair sa sb) : (Pair ta tb) : S => r : S + iff COMPARE / sa : ta : S => 0 : S + COMPARE / sb : tb : S => r : S + Operations on sets ~~~~~~~~~~~~~~~~~~ @@ -1029,6 +1181,15 @@ The behavior of these operations is the same as if they were normal maps, except that under the hood, the elements are loaded and deserialized on demand. +- ``EMPTY_BIG_MAP 'key 'val``: Build a new, empty big map from keys of a + given type to values of another given type. + + The ``'key`` type must be comparable (the ``COMPARE`` primitive must + be defined over it). + +:: + + :: 'S -> map 'key 'val : 'S - ``GET``: Access an element in a ``big_map``, returns an optional value to be checked with ``IF_SOME``. @@ -1192,9 +1353,10 @@ Domain specific data types - ``mutez``: A specific type for manipulating tokens. -- ``contract 'param``: A contract, with the type of its code. +- ``address``: An untyped address (implicit account or smart contract). -- ``address``: An untyped contract address. +- ``contract 'param``: A contract, with the type of its code, + ``contract unit`` for implicit accounts. - ``operation``: An internal operation emitted by a contract. @@ -1204,6 +1366,8 @@ Domain specific data types - ``signature``: A cryptographic signature. +- ``chain_id``: An identifier for a chain, used to distinguish the test and the main chains. + Domain specific operations -------------------------- @@ -1324,27 +1488,15 @@ Operations on contracts :: - :: key_hash : option key_hash : bool : bool : mutez : 'g : 'S + :: option key_hash : mutez : 'g : 'S -> operation : address : 'S -Originate a contract based on a literal. This is currently the only way -to include transfers inside of an originated contract. The first -parameters are the manager, optional delegate, then spendable and -delegatable flags and finally the initial amount taken from the -currently executed contract. The contract is returned as a first class -value (to be dropped, passed as parameter or stored). -The ``CONTRACT 'p`` instruction will fail until it is actually originated. - -- ``CREATE_ACCOUNT``: Forge an account (a contract without code) creation operation. - -:: - - :: key_hash : option key_hash : bool : mutez : 'S - -> operation : address : 'S - -Take as argument the manager, optional delegate, the delegatable flag -and finally the initial amount taken from the currently executed -contract. +Originate a contract based on a literal. The parameters are the +optional delegate, the initial amount taken from the currently +executed contract, and the initial storage of the originated contract. +The contract is returned as a first class value (to be dropped, passed +as parameter or stored). The ``CONTRACT 'p`` instruction will fail +until it is actually originated. - ``TRANSFER_TOKENS``: Forge a transaction. @@ -1432,13 +1584,6 @@ contract, unit for an account. Special operations ~~~~~~~~~~~~~~~~~~ -- ``STEPS_TO_QUOTA``: Push the remaining steps before the contract - execution must terminate. - -:: - - :: 'S -> nat : 'S - - ``NOW``: Push the timestamp of the block whose validation triggered this execution (does not change during the execution of the contract). @@ -1447,6 +1592,13 @@ Special operations :: 'S -> timestamp : 'S +- ``CHAIN_ID``: Push the chain identifier. + +:: + + :: 'S -> chain_id : 'S + + Operations on bytes ~~~~~~~~~~~~~~~~~~~ @@ -1563,6 +1715,46 @@ Cryptographic primitives > COMPARE / x : y : S => 1 : S iff x > y +Deprecated instructions +~~~~~~~~~~~~~~~~~~~~~~~ + +The following instructions are deprecated. The Michelson type-checker +will reject any contract using them but contracts already originated +on the blockchain using them will continue to work as before. + +- ``CREATE_CONTRACT { storage 'g ; parameter 'p ; code ... }``: + Forge a new contract from a literal. + +:: + + :: key_hash : option key_hash : bool : bool : mutez : 'g : 'S + -> operation : address : 'S + +See the documentation of the new ``CREATE_CONTRACT`` instruction. The +first, third, and fourth parameters are ignored. + +- ``CREATE_ACCOUNT``: Forge an account creation operation. + +:: + + :: key_hash : option key_hash : bool : mutez : 'S + -> operation : address : 'S + +Takes as argument the manager, optional delegate, the delegatable flag +and finally the initial amount taken from the currently executed +contract. This instruction originates a contract with two entrypoints; +``%default`` of type ``unit`` that does nothing and ``%do`` of type +``lambda unit (list operation)`` that executes and returns the +parameter if the sender is the contract's manager. + +- ``STEPS_TO_QUOTA``: Push the remaining steps before the contract + execution must terminate. + +:: + + :: 'S -> nat : 'S + + Macros ------ @@ -1937,10 +2129,14 @@ line can also be written, using C-like delimiters (``/* ... */``). Annotations ----------- -The annotation mechanism of Michelson provides ways to better track data -on the stack and to give additional type constraints. Annotations are -only here to add constraints, *i.e.* they cannot turn an otherwise -rejected program into an accepted one. +The annotation mechanism of Michelson provides ways to better track +data on the stack and to give additional type constraints. Except for +a single exception specified just after, annotations are only here to +add constraints, *i.e.* they cannot turn an otherwise rejected program +into an accepted one. The notable exception to this rule is for +entrypoints: the `CONTRACT` instruction semantics varies depending on +its constructor annotation, and some contract origination may fail due +to invalid entrypoint constructor annotations. Stack visualization tools like the Michelson's Emacs mode print annotations associated with each type in the program, as propagated by @@ -2017,6 +2213,9 @@ type on top. EMPTY_MAP :t 'key 'val :: 'S -> (map :t 'key 'val) : 'S + EMPTY_BIG_MAP :t 'key 'val + :: 'S -> (big_map :t 'key 'val) : 'S + A no-op instruction ``CAST`` ensures the top of the stack has the specified type, and change its type if it is compatible. In particular, @@ -2082,6 +2281,7 @@ The instructions which accept at most one variable annotation are: MEM EMPTY_SET EMPTY_MAP + EMPTY_BIG_MAP UPDATE GET LAMBDA @@ -2124,6 +2324,7 @@ The instructions which accept at most one variable annotation are: SELF CAST RENAME + CHAIN_ID The instructions which accept at most two variable annotations are: @@ -2221,12 +2422,6 @@ and variable annotations). RIGHT %left %right 'a :: 'b : 'S -> (or ('a %left) ('b %right)) : 'S - NONE %some 'a - :: 'S -> (option ('a %some)) - - Some %some - :: 'a : 'S -> (option ('a %some)) - To improve readability and robustness, instructions ``CAR`` and ``CDR`` accept one field annotation. For the contract to type check, the name of the accessed field in the destructed pair must match the one given here. @@ -2433,6 +2628,144 @@ treatment of annotations with `.`. :: @p.x 'a : @p.y 'b : 'S -> @p (pair ('a %x) ('b %y)) : 'S :: @p.x 'a : @q.y 'b : 'S -> (pair ('a %x) ('b %y)) : 'S +Entrypoints +----------- + +The specification up to this point has been mostly ignoring existence +of entrypoints: a mechanism of contract level polymorphism. This +mechanism is optional, non intrusive, and transparent to smart +contracts that don't use them. This section is to be read as a patch +over the rest of the specification, introducing rules that apply only +in presence of contracts that make use of entrypoints. + +Defining and calling entrypoints +~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ + +Entrypoints piggyback on the constructor annotations. A contract with +entrypoints is basically a contract that takes a disjunctive type (a +nesting of ``or`` types) as the root of its input parameter, decorated +with constructor annotations. An extra check is performed on these +constructor annotations: a contract cannot define two entrypoints with +the same name. + +An external transaction can include an entrypoint name alongside the +parameter value. In that case, if there is a constructor annotation +with this name at any position in the nesting of ``or`` types, the +value is automatically wrapped into the according constructors. If the +transaction specifies an entrypoint, but there is no such constructor +annotation, the transaction fails. + +For instance, suppose the following input type. + +``parameter (or (or (nat %A) (bool %B)) (or %maybe_C (unit %Z) (string %C)))`` + +The input values will be wrapped as in the following examples. + +:: + + +------------+-----------+---------------------------------+ + | entrypoint | input | wrapped input | + +------------+-----------+---------------------------------+ + | %A | 3 | Left (Left 3) | + | %B | False | Left (Right False) | + | %C | "bob" | Right (Right "bob") | + | %Z | Unit | Right (Left Unit) | + | %maybe_C | Right "x" | Right (Right "x") | + | %maybe_C | Left Unit | Right (Left Unit) | + +------------+-----------+---------------------------------+ + | not given | value | value (untouched) | + | %BAD | _ | failure, contract not called | + +------------+-----------+---------------------------------+ + +The ``default`` entrypoint +~~~~~~~~~~~~~~~~~~~~~~~~~~ + +A special semantics is assigned to the ``default`` entrypoint. If the +contract does not explicitly declare a ``default`` entrypoint, then it +is automatically assigned to the root of the parameter +type. Conversely, if the contract is called without specifying an +entrypoint, then it is assumed to be called with the ``default`` +entrypoint. This behaviour makes the entrypoint system completely +transparent to contracts that do not use it. + +This is the case for the previous example, for instance. If a value is +passed to such a contract specifying entrypoint ``default``, then the +value is fed to the contract untouched, exactly as if no entrypoint +was given. + +A non enforced convention is to make the entrypoint ``default`` of +type unit, and to implement the crediting operation (just receive the +transferred tokens). + +A consequence of this semantics is that if the contract uses the +entrypoint system and defines a ``default`` entrypoint somewhere else +than at the root of the parameter type, then it must provide an +entrypoint for all the paths in the toplevel disjunction. Otherwise, +some parts of the contracts would be dead code. + +Another consequence of setting the entrypoint somewhere else than at +the root is that it makes it impossible to send the raw values of the +full parameter type to a contract. A trivial solution for that is to +name the root of the type. The conventional name for that is ``root``. + +Let us recapitulate this by tweaking the names of the previous example. + +``parameter %root (or (or (nat %A) (bool %B)) (or (unit %default) string))`` + +The input values will be wrapped as in the following examples. + +:: + + +------------+---------------------+-----------------------+ + | entrypoint | input | wrapped input | + +------------+---------------------+-----------------------+ + | %A | 3 | Left (Left 3) | + | %B | False | Left (Right False) | + | %default | Unit | Right (Left Unit) | + | %root | Right (Right "bob") | Right (Right "bob") | + +------------+---------------------+-----------------------+ + | not given | Unit | Right Unit | + | %BAD | _ | failure, contract not | + +------------+---------------------+-----------------------+ + +Calling entrypoints from Michelson +~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ + +Michelson code can also produce transactions to a specific entrypoint. + +For this, both types ``address`` and ``contract`` have the ability to +denote not just an address, but a pair of an address and an +entrypoint. The concrete notation is ``"address%entrypoint"``. +Note that ``"address"`` is strictly equivalent to ``"address%default"``, +and for clarity, the second variant is forbidden in the concrete syntax. + +When the ``TRANSFER_TOKENS`` instruction is called, it places the +entrypoint provided in the contract handle in the transaction. + +The ``CONTRACT t`` instruction has a variant ``CONTRACT %entrypoint +t``, that works as follows. Note that ``CONTRACT t`` is strictly +equivalent to ``CONTRACT %default t``, and for clarity, the second +variant is forbidden in the concrete syntax. + +:: + + +---------------+---------------------+------------------------------------------+ + | input address | instruction | output contract | + +---------------+---------------------+------------------------------------------+ + | "addr" | CONTRACT t | (Some "addr") if contract exists, has a | + | | | default entrypoint of type t, or has no | + | | | default entrypoint and parameter type t | + +---------------+---------------------+------------------------------------------+ + | "addr%name" | CONTRACT t | (Some "addr%name") if addr exists and | + +---------------+---------------------+ has an entrypoint %name of type t | + | "addr" | CONTRACT %name t | | + +---------------+---------------------+------------------------------------------+ + | "addr%_" | CONTRACT %_ t | None | + +---------------+---------------------+------------------------------------------+ + +Implicit accounts are considered to have a single ``default`` +entrypoint of type ``Unit``. + JSON syntax ----------- @@ -2492,6 +2825,23 @@ The simplest contract is the contract for which the ``parameter`` and parameter unit; +Example contract with entrypoints +~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ + +The following contract maintains a number in its storage. It has two +entrypoints ``add`` and ``sub`` to modify it, and the default +entrypoint, of type ``unit`` will reset it to ``0``. + +:: + + { parameter (or (or (nat %add) (nat %sub)) (unit %default)) ; + storage int ; + code { AMOUNT ; PUSH mutez 0 ; ASSERT_CMPEQ ; UNPAIR ; + IF_LEFT + { IF_LEFT { ADD } { SWAP ; SUB } } + { DROP ; DROP ; PUSH int 0 } ; + NIL operation ; PAIR } } + Multisig contract ~~~~~~~~~~~~~~~~~ @@ -2540,7 +2890,7 @@ using the Coq proof assistant. UNPAIR ; # pair the payload with the current contract address, to ensure signatures # can't be replayed accross different contracts if a key is reused. - DUP ; SELF ; ADDRESS ; PAIR ; + DUP ; SELF ; ADDRESS ; CHAIN_ID ; PAIR ; PAIR ; PACK ; # form the binary payload that we expect to be signed DIP { UNPAIR @counter ; DIP { SWAP } } ; SWAP } ; @@ -2652,6 +3002,7 @@ Full grammar | SIZE | EMPTY_SET | EMPTY_MAP + | EMPTY_BIG_MAP | MAP { ... } | ITER { ... } | MEM @@ -2708,6 +3059,7 @@ Full grammar | SOURCE | SENDER | ADDRESS + | CHAIN_ID ::= | | key @@ -2723,7 +3075,11 @@ Full grammar | lambda | map | big_map + | chain_id ::= + | + | pair + ::= | int | nat | string @@ -2734,6 +3090,7 @@ Full grammar | timestamp | address + Reference implementation ------------------------ -- GitLab From 88722037a381ab1b8ea9ce81cc63e24e0f508a37 Mon Sep 17 00:00:00 2001 From: vbot Date: Thu, 25 Jul 2019 18:45:18 +0200 Subject: [PATCH 070/252] Proto/Migration: add invoicing to multi-sig smart-contract --- src/proto_alpha/lib_protocol/init_storage.ml | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/src/proto_alpha/lib_protocol/init_storage.ml b/src/proto_alpha/lib_protocol/init_storage.ml index 05ec7b0b800b..782fc86de2c9 100644 --- a/src/proto_alpha/lib_protocol/init_storage.ml +++ b/src/proto_alpha/lib_protocol/init_storage.ml @@ -216,6 +216,15 @@ let process_contract contract ctxt = process_contract_add_manager contract ctxt >>=? fun ctxt -> return ctxt +let invoice_contract ctxt kt1_addr amount = + let amount = Tez_repr.of_mutez_exn (Int64.(mul 1_000_000L (of_int amount))) in + match Contract_repr.of_b58check kt1_addr with + | Ok recipient -> begin + Contract_storage.credit ctxt recipient amount >>= function + | Ok ctxt -> return ctxt + | Error _ -> return ctxt end + | Error _ -> return ctxt + (* Extract Big_maps from their parent contract directory, recompute their used space, and assign them an ID. *) let migrate_contract_big_map ctxt contract = @@ -351,6 +360,7 @@ let prepare_first_block ctxt ~typecheck ~level ~timestamp ~fitness = migrate_contract_big_map ctxt contract >>=? fun ctxt -> process_contract contract ctxt) >>=? fun ctxt -> + invoice_contract ctxt "KT1DUfaMfTRZZkvZAYQT5b3byXnvqoAykc43" 500 >>=? fun ctxt -> return ctxt let prepare ctxt ~level ~predecessor_timestamp ~timestamp ~fitness = -- GitLab From bf7eb4bfda5b362a9cbd399ebaed324ee4d0aa47 Mon Sep 17 00:00:00 2001 From: Benjamin Canou Date: Wed, 31 Jul 2019 14:41:42 +0200 Subject: [PATCH 071/252] Proto: update the fitness format for Emmy+ --- src/proto_alpha/lib_protocol/constants_repr.ml | 3 ++- src/proto_alpha/lib_protocol/fitness_repr.ml | 5 +++++ src/proto_alpha/lib_protocol/main.ml | 2 +- 3 files changed, 8 insertions(+), 2 deletions(-) diff --git a/src/proto_alpha/lib_protocol/constants_repr.ml b/src/proto_alpha/lib_protocol/constants_repr.ml index faaea8602919..6ad7b1526431 100644 --- a/src/proto_alpha/lib_protocol/constants_repr.ml +++ b/src/proto_alpha/lib_protocol/constants_repr.ml @@ -23,7 +23,8 @@ (* *) (*****************************************************************************) -let version_number = "\000" +let version_number_004 = "\000" +let version_number = "\001" let proof_of_work_nonce_size = 8 let nonce_length = 32 let max_revelations_per_block = 32 diff --git a/src/proto_alpha/lib_protocol/fitness_repr.ml b/src/proto_alpha/lib_protocol/fitness_repr.ml index 9e4e4e688457..9bbc19e74a5a 100644 --- a/src/proto_alpha/lib_protocol/fitness_repr.ml +++ b/src/proto_alpha/lib_protocol/fitness_repr.ml @@ -57,5 +57,10 @@ let to_int64 = function when Compare.String. (MBytes.to_string version = Constants_repr.version_number) -> int64_of_bytes fitness + | [ version ; + _fitness (* ignored since higher version takes priority *) ] + when Compare.String. + (MBytes.to_string version = Constants_repr.version_number_004) -> + ok 0L | [] -> ok 0L | _ -> error Invalid_fitness diff --git a/src/proto_alpha/lib_protocol/main.ml b/src/proto_alpha/lib_protocol/main.ml index 32e72cfa5385..6fe0c821d8db 100644 --- a/src/proto_alpha/lib_protocol/main.ml +++ b/src/proto_alpha/lib_protocol/main.ml @@ -246,7 +246,7 @@ let finalize_block { mode ; ctxt ; op_count } = let fitness = Alpha_context.Fitness.current ctxt in let commit_message = Format.asprintf - "lvl %ld, fit %Ld, prio %d, %d ops" + "lvl %ld, fit 1:%Ld, prio %d, %d ops" raw_level fitness priority op_count in let ctxt = Alpha_context.finalize ~commit_message ctxt in return (ctxt, receipt) -- GitLab From 6d26cdcecdea808203710e3a7363f4bdc36fc7b7 Mon Sep 17 00:00:00 2001 From: Benjamin Canou Date: Wed, 31 Jul 2019 14:42:13 +0200 Subject: [PATCH 072/252] Proto: use only one size byte for entrypoint name --- src/proto_alpha/lib_protocol/operation_repr.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/proto_alpha/lib_protocol/operation_repr.ml b/src/proto_alpha/lib_protocol/operation_repr.ml index 2a4e06a7c5d9..acbf76fb8dad 100644 --- a/src/proto_alpha/lib_protocol/operation_repr.ml +++ b/src/proto_alpha/lib_protocol/operation_repr.ml @@ -237,7 +237,7 @@ module Encoding = struct builtin_case 2 "do" ; builtin_case 3 "set_delegate" ; builtin_case 4 "remove_delegate" ; - Data_encoding.case (Tag 255) ~title:"named" string (fun s -> Some s) (fun s -> s) ] + Data_encoding.case (Tag 255) ~title:"named" (Bounded.string 31) (fun s -> Some s) (fun s -> s) ] let transaction_case = MCase { -- GitLab From e59397c1e75e8673f5154fcfc6a71ade450f8fce Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Tom=C3=A1=C5=A1=20Zemanovi=C4=8D?= Date: Wed, 31 Jul 2019 13:24:59 +0200 Subject: [PATCH 073/252] Proto/Migration: ensure managers of migrated contracts are allocated --- src/proto_alpha/lib_protocol/init_storage.ml | 18 +++++++++++++++--- 1 file changed, 15 insertions(+), 3 deletions(-) diff --git a/src/proto_alpha/lib_protocol/init_storage.ml b/src/proto_alpha/lib_protocol/init_storage.ml index 782fc86de2c9..e7ed875a5d8d 100644 --- a/src/proto_alpha/lib_protocol/init_storage.ml +++ b/src/proto_alpha/lib_protocol/init_storage.ml @@ -89,6 +89,15 @@ let manager_script_storage: Signature.Public_key_hash.t -> Script_repr.lazy_expr let bytes = Data_encoding.Binary.to_bytes_exn Signature.Public_key_hash.encoding manager_pkh in Bytes (0, bytes) +(* If the given contract is not allocated, we'll allocate it with 1 mutez, + so that the migrated contracts' managers don't have to pay origination burn *) +let allocate_contract ctxt contract = + Contract_storage.allocated ctxt contract >>=? function + | true -> + return ctxt + | false -> + Contract_storage.credit ctxt contract Tez_repr.one_mutez + (* Process an individual contract *) let process_contract_add_manager contract ctxt = let open Legacy_script_support_repr in @@ -104,6 +113,7 @@ let process_contract_add_manager contract ctxt = Storage.Contract.Code.get_option ctxt contract >>=? fun (_ctxt, code) -> (* Get the manager of the originated contract *) Contract_storage.get_manager_004 ctxt contract >>=? fun manager_pkh -> + let manager = Contract_repr.implicit_contract manager_pkh in Storage.Contract.Manager.remove ctxt contract >>= fun ctxt -> match code with | Some code -> @@ -116,9 +126,11 @@ let process_contract_add_manager contract ctxt = | false | false | nothing | *) if is_spendable then - transform_script add_do ~manager_pkh ctxt contract code + transform_script add_do ~manager_pkh ctxt contract code >>=? fun ctxt -> + allocate_contract ctxt manager else if is_delegatable then - transform_script add_set_delegate ~manager_pkh ctxt contract code + transform_script add_set_delegate ~manager_pkh ctxt contract code >>=? fun ctxt -> + allocate_contract ctxt manager else if has_default_entrypoint code then transform_script (fun ~manager_pkh:_ ~script_code ~script_storage -> @@ -137,7 +149,7 @@ let process_contract_add_manager contract ctxt = (* Free storage space for migrated contracts *) Storage.Contract.Paid_storage_space.init_set ctxt contract total_size >>= fun ctxt -> Storage.Contract.Used_storage_space.init_set ctxt contract total_size >>= fun ctxt -> - return ctxt + allocate_contract ctxt manager end end -- GitLab From 1c5e2d1342c089a999777be6d680ea5a74b69b83 Mon Sep 17 00:00:00 2001 From: Benjamin Canou Date: Thu, 1 Aug 2019 14:49:09 +0200 Subject: [PATCH 074/252] Proto: update the tags of manager operations --- src/proto_alpha/lib_protocol/operation_repr.ml | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/proto_alpha/lib_protocol/operation_repr.ml b/src/proto_alpha/lib_protocol/operation_repr.ml index acbf76fb8dad..f07ef5c55530 100644 --- a/src/proto_alpha/lib_protocol/operation_repr.ml +++ b/src/proto_alpha/lib_protocol/operation_repr.ml @@ -545,10 +545,10 @@ module Encoding = struct (rebuild op (mcase.inj contents))) } - let reveal_case = make_manager_case 7 Manager_operations.reveal_case - let transaction_case = make_manager_case 8 Manager_operations.transaction_case - let origination_case = make_manager_case 9 Manager_operations.origination_case - let delegation_case = make_manager_case 10 Manager_operations.delegation_case + let reveal_case = make_manager_case 107 Manager_operations.reveal_case + let transaction_case = make_manager_case 108 Manager_operations.transaction_case + let origination_case = make_manager_case 109 Manager_operations.origination_case + let delegation_case = make_manager_case 110 Manager_operations.delegation_case let contents_encoding = let make (Case { tag ; name ; encoding ; select ; proj ; inj }) = -- GitLab From 91840e8da88e1294ce2942d1e33449696d55224f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Rapha=C3=ABl=20Cauderlier?= Date: Tue, 17 Sep 2019 16:58:38 +0200 Subject: [PATCH 075/252] Tests: Add a failing test for big_maps --- .../test/contracts/opcodes/big_map_to_self.tz | 22 +++++++++++++++++++ tests_python/tests/test_contract.py | 11 ++++++++++ 2 files changed, 33 insertions(+) create mode 100644 src/bin_client/test/contracts/opcodes/big_map_to_self.tz diff --git a/src/bin_client/test/contracts/opcodes/big_map_to_self.tz b/src/bin_client/test/contracts/opcodes/big_map_to_self.tz new file mode 100644 index 000000000000..6a9442b9f3e5 --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/big_map_to_self.tz @@ -0,0 +1,22 @@ +parameter (or (pair %have_fun (big_map string nat) unit) (unit %default)); +storage (big_map string nat); +code { + UNPAIR; + DIP {NIL operation}; + IF_LEFT { + DROP + } + { + DROP; + SELF %have_fun; + PUSH mutez 0; + DUP 4; + PUSH (option nat) (Some 8); + PUSH string "hahaha"; + UPDATE; + UNIT; SWAP; PAIR; + TRANSFER_TOKENS; + CONS + }; + PAIR + } diff --git a/tests_python/tests/test_contract.py b/tests_python/tests/test_contract.py index d0bb4fcd731c..587199bdfd38 100644 --- a/tests_python/tests/test_contract.py +++ b/tests_python/tests/test_contract.py @@ -155,3 +155,14 @@ class TestChainId: client.transfer(0, 'bootstrap2', 'authentication', ['--arg', f'Pair {operation} \"{signature}\"']) client.bake('bootstrap5', BAKE_ARGS) + +@pytest.mark.contract +class TestBigMapToSelf: + + def test_big_map_to_self_origination(self, client, session): + path = f'{CONTRACT_PATH}/opcodes/big_map_to_self.tz' + originate(client, session, path, '{}', 0) + client.bake('bootstrap5', BAKE_ARGS) + + def test_big_map_to_self_transfer(self, client): + client.transfer(0, 'bootstrap2', "big_map_to_self", []) -- GitLab From ff07c566d85b366f3efd9fe5bc11f33b7e646e1e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Rapha=C3=ABl=20Cauderlier?= Date: Tue, 17 Sep 2019 17:00:55 +0200 Subject: [PATCH 076/252] Protocol/Michelson: Fix the computation of the big_map flag on type construtors --- src/proto_alpha/lib_protocol/script_ir_translator.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/proto_alpha/lib_protocol/script_ir_translator.ml b/src/proto_alpha/lib_protocol/script_ir_translator.ml index 5ad517ab4b39..b73d610ba73f 100644 --- a/src/proto_alpha/lib_protocol/script_ir_translator.ml +++ b/src/proto_alpha/lib_protocol/script_ir_translator.ml @@ -1038,7 +1038,7 @@ let has_big_map | Bool_t _ -> false | Lambda_t (_, _, _) -> false | Set_t (_, _) -> false - | Big_map_t (_, _, _) -> false + | Big_map_t (_, _, _) -> true | Contract_t (_, _) -> false | Operation_t _ -> false | Chain_id_t _ -> false -- GitLab From 184d9d9a868527679021d3ba01b24a2f055fa7fb Mon Sep 17 00:00:00 2001 From: vbot Date: Wed, 18 Sep 2019 17:05:44 +0200 Subject: [PATCH 077/252] Proto/Michelson: restore missing optional log argument to the step function --- src/proto_alpha/lib_protocol/script_interpreter.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/proto_alpha/lib_protocol/script_interpreter.ml b/src/proto_alpha/lib_protocol/script_interpreter.ml index 86d5dde5354a..3e4917b1af3a 100644 --- a/src/proto_alpha/lib_protocol/script_interpreter.ml +++ b/src/proto_alpha/lib_protocol/script_interpreter.ml @@ -978,7 +978,7 @@ and interp log := (code.loc, Gas.level ctxt, stack) :: !log ; return_unit end >>=? fun () -> - step ctxt step_constants code stack >>=? fun (Item (ret, Empty), ctxt) -> + step ?log ctxt step_constants code stack >>=? fun (Item (ret, Empty), ctxt) -> return (ret, ctxt) (* ---- contract handling ---------------------------------------------------*) -- GitLab From cbaf08cea8bfc2db468f550cab1b4800e525fb90 Mon Sep 17 00:00:00 2001 From: vbot Date: Wed, 18 Sep 2019 17:09:54 +0200 Subject: [PATCH 078/252] Client: fix `run script` command output format --- src/proto_alpha/lib_client/client_proto_programs.ml | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/proto_alpha/lib_client/client_proto_programs.ml b/src/proto_alpha/lib_client/client_proto_programs.ml index f47fd7181577..9d18eb069534 100644 --- a/src/proto_alpha/lib_client/client_proto_programs.ml +++ b/src/proto_alpha/lib_client/client_proto_programs.ml @@ -62,7 +62,8 @@ let print_run_result (cctxt : #Client_context.printer) ~show_source ~parsed = %a@]@,\ @[emitted operations@,\ %a@]@,\ - @[big_map diff%a@]@]@." + @[big_map diff@,\ + %a@]@]@." print_expr storage (Format.pp_print_list Operation_result.pp_internal_operation) @@ -83,7 +84,8 @@ let print_trace_result (cctxt : #Client_context.printer) ~show_source ~parsed = @[emitted operations@,\ %a@]@,\ @[big_map diff@,\ - %a@[trace@,\ + %a@]@,\ + @[trace@,\ %a@]@]@." print_expr storage -- GitLab From caf4643273f26a509c11e5a6fc853957a7004b50 Mon Sep 17 00:00:00 2001 From: Ilias Date: Thu, 25 Apr 2019 22:01:58 +0200 Subject: [PATCH 079/252] Add function [check_run_failure] in tools/utils.py [check_run_failure] expects the called closure to fail and some given pattern to be present in stdout or stderr. Useful to test expected failure of client commands. --- tests_python/tools/utils.py | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) diff --git a/tests_python/tools/utils.py b/tests_python/tools/utils.py index 08ede84d3126..014b48637706 100644 --- a/tests_python/tools/utils.py +++ b/tests_python/tools/utils.py @@ -13,6 +13,7 @@ import base58check import pyblake2 from client.client import Client from . import constants +import subprocess def retry(timeout: float, attempts: float): # pylint: disable=unused-argument @@ -273,3 +274,24 @@ def sign_operation(encoded_operation: str, secret_key: str) -> str: sig_hex = sign(watermarked_operation, sender_sk_bin) signed_op = encoded_operation + sig_hex return signed_op +def check_run_failure(code, pattern, mode='stderr'): + """Executes [code()] and expects the code to fail and raise [subprocess.CalledProcessError]. + If so, the [pattern] is searched in stderr. If it is found, returns True; + else returns False. + """ + try: + code() + return False + except subprocess.CalledProcessError as exc: + stdout_output = exc.args[2] + stderr_output = exc.args[3] + data = [] + if mode == 'stderr': + data = stderr_output + else: + data = stdout_output.split('\n') + for line in data: + if re.search(pattern, line): + return True + return False + -- GitLab From e620da0fb19f4b6eeddbae0e1763cd958270c60d Mon Sep 17 00:00:00 2001 From: Ilias Date: Thu, 25 Apr 2019 22:07:41 +0200 Subject: [PATCH 080/252] Add contract tests. Complete contract.py. * In test_contract.py: imported 90% of tests * In client.py: add facilities to get stderr as well as stdout in case of error while running the client. --- tests_python/client/client.py | 13 +++++- tests_python/tests/test_contract.py | 72 ++++++++++++++++++++++++++--- 2 files changed, 78 insertions(+), 7 deletions(-) diff --git a/tests_python/client/client.py b/tests_python/client/client.py index e57cd80b002c..a0295389f204 100644 --- a/tests_python/client/client.py +++ b/tests_python/client/client.py @@ -5,6 +5,7 @@ import os import subprocess import tempfile import json +import sys from . import client_output @@ -113,6 +114,7 @@ class Client: print(format_command(cmd)) + stderr = [] stdout = "" new_env = os.environ.copy() if self._disable_disclaimer: @@ -120,6 +122,7 @@ class Client: # in python3.7, cleaner to use capture_output=true, text=True with subprocess.Popen(cmd, stdout=subprocess.PIPE, + stderr=subprocess.PIPE, bufsize=1, universal_newlines=True, env=new_env) as process: @@ -127,9 +130,14 @@ class Client: print(line, end='') stdout += line + for line in process.stderr: + print(line, end='', file=sys.stderr) + stderr.append(line) if check and process.returncode: raise subprocess.CalledProcessError(process.returncode, - process.args) + process.args, + stdout, + stderr) return stdout @@ -163,6 +171,9 @@ class Client: assert os.path.isfile(contract), f'{contract} is not a file' return self.run(['typecheck', 'script', contract]) + def typecheck_data(self, data: str, typ: str) -> str: + return self.run(['typecheck', 'data', data, 'against', 'type', typ]) + def run_script(self, contract: str, storage: str, diff --git a/tests_python/tests/test_contract.py b/tests_python/tests/test_contract.py index 587199bdfd38..2e3b8db4cef6 100644 --- a/tests_python/tests/test_contract.py +++ b/tests_python/tests/test_contract.py @@ -1,6 +1,7 @@ import os import subprocess import pytest +import re from tools import utils, paths, constants CONTRACT_PATH = f'{paths.TEZOS_HOME}/src/bin_client/test/contracts' @@ -77,9 +78,28 @@ FIRST_EXPLOSION = ''' DUP ; PAIR ; DUP ; PAIR ; DUP ; PAIR ; - DUP ; PAIR } } + DUP ; PAIR ; + DROP ; UNIT ; NIL operation ; PAIR} } ''' +# FIRST_EXPLOSION costs a large amount of gas just for typechecking. +# FIRST_EXPLOSION_BIGTYPE type size exceeds the protocol set bound. +FIRST_EXPLOSION_BIGTYPE = ''' +{ parameter unit; + storage unit; + code{ DROP; PUSH nat 0 ; + DUP ; PAIR ; + DUP ; PAIR ; + DUP ; PAIR ; + DUP ; PAIR ; + DUP ; PAIR ; + DUP ; PAIR ; + DUP ; PAIR ; + DUP ; PAIR ; + DUP ; PAIR ; + DUP ; PAIR ; + DROP ; UNIT ; NIL operation ; PAIR} } +''' SECOND_EXPLOSION = ''' { parameter (list int) ; @@ -91,12 +111,12 @@ SECOND_EXPLOSION = ''' DROP ; NIL operation ; PAIR } } ''' - @pytest.mark.contract class TestGasBound: def test_write_contract(self, tmpdir, session): items = {'first_explosion.tz': FIRST_EXPLOSION, + 'first_explosion_bigtype.tz': FIRST_EXPLOSION_BIGTYPE, 'second_explosion.tz': SECOND_EXPLOSION}.items() for name, script in items: contract = f'{tmpdir}/{name}' @@ -107,11 +127,20 @@ class TestGasBound: def test_originate_first_explosion(self, client, session): name = 'first_explosion.tz' contract = session[name] - # TODO client.typecheck(contract) -> type error not what we expect? + client.typecheck(contract) args = ['-G', '8000', '--burn-cap', '10'] - with pytest.raises(subprocess.CalledProcessError) as _exc: - client.originate(f'{name}', 0, 'bootstrap1', contract, args) - # TODO capture output and check error message is correct + def client_cmd(): + client.originate(f'{name}', 'bootstrap1', 0, + 'bootstrap1', contract, args) + assert(utils.check_run_failure(client_cmd, "Gas limit exceeded during typechecking or execution")) + + def test_originate_big_type(self, client, session): + name = 'first_explosion_bigtype.tz' + contract = session[name] + def client_cmd(): + client.typecheck(contract) + # We could not be bothered with finding how to escape parentheses so we put dots + assert(utils.check_run_failure(client_cmd, "type size .1023. exceeded maximum type size .1000.")) def test_originate_second_explosion(self, client, session): name = 'second_explosion.tz' @@ -120,6 +149,37 @@ class TestGasBound: inp = '{1;2;3;4;5;6;7;8;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1}' client.run_script(contract, storage, inp) + def test_originate_second_explosion_fail(self, client, session): + name = 'second_explosion.tz' + contract = session[name] + storage = '{}' + inp = '{1;2;3;4;5;6;7;8;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1}' + def client_cmd(): + client.run_script(contract, storage, inp) + assert(utils.check_run_failure(client_cmd, "Cannot serialize the resulting storage value within the provided gas bounds.")) + + def test_typecheck_map_dup_key(self, client, session): + def client_cmd(): + client.typecheck_data('{ Elt 0 1 ; Elt 0 1}', '(map nat nat)') + assert(utils.check_run_failure(client_cmd, "Map literals cannot contain duplicate keys, however a duplicate key was found")) + + def test_typecheck_map_bad_ordering(self, client, session): + def client_cmd(): + client.typecheck_data('{ Elt 0 1 ; Elt 10 1 ; Elt 5 1 }', '(map nat nat)') + assert(utils.check_run_failure(client_cmd, "Keys in a map literal must be in strictly ascending order, but they were unordered in literal")) + + def test_typecheck_set_bad_ordering(self, client, session): + def client_cmd(): + client.typecheck_data('{ "A" ; "C" ; "B" }', '(set string)') + assert(utils.check_run_failure(client_cmd, "Values in a set literal must be in strictly ascending order, but they were unordered in literal")) + + def test_typecheck_set_no_duplicates(self, client, session): + def client_cmd(): + client.typecheck_data('{ "A" ; "B" ; "B" }', '(set string)') + assert(utils.check_run_failure(client_cmd, "Set literals cannot contain duplicate values, however a duplicate value was found")) + + + # TODO complete with tests from test_contract.sh -- GitLab From a4127c394062c197bf9496368891fb73193c0e9d Mon Sep 17 00:00:00 2001 From: Ilias Date: Thu, 25 Apr 2019 22:17:45 +0200 Subject: [PATCH 081/252] Add all scripts in bin_client/test/contracts to typechecking test --- tests_python/tests/test_contract.py | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests_python/tests/test_contract.py b/tests_python/tests/test_contract.py index 2e3b8db4cef6..bfbf4b045632 100644 --- a/tests_python/tests/test_contract.py +++ b/tests_python/tests/test_contract.py @@ -34,7 +34,7 @@ def originate(client, def all_contracts(): - directories = ['attic', 'opcodes'] + directories = ['attic', 'opcodes', 'macros', 'mini_scenarios', 'non_regression'] contracts = [] for directory in directories: for contract in os.listdir(f'{CONTRACT_PATH}/{directory}'): -- GitLab From cfebefd792a76c2edd2daf9a52eb15007c69af11 Mon Sep 17 00:00:00 2001 From: Ilias Date: Thu, 25 Apr 2019 22:21:26 +0200 Subject: [PATCH 082/252] Add script testing non-regression of issue #262 --- src/bin_client/test/contracts/non_regression/bug_262.tz | 5 +++++ 1 file changed, 5 insertions(+) create mode 100644 src/bin_client/test/contracts/non_regression/bug_262.tz diff --git a/src/bin_client/test/contracts/non_regression/bug_262.tz b/src/bin_client/test/contracts/non_regression/bug_262.tz new file mode 100644 index 000000000000..63475c5ac185 --- /dev/null +++ b/src/bin_client/test/contracts/non_regression/bug_262.tz @@ -0,0 +1,5 @@ +{ parameter unit ; + storage unit ; + code { DROP ; + LAMBDA unit unit {} ; UNIT ; EXEC ; + NIL operation ; PAIR } } \ No newline at end of file -- GitLab From 9752ebe5d7b96e26440d3dde541f4ced4db74acd Mon Sep 17 00:00:00 2001 From: Ilias Date: Fri, 26 Apr 2019 16:41:12 +0200 Subject: [PATCH 083/252] Added get_storage/get_delegate in client.py --- tests_python/client/client.py | 9 +++++++++ tests_python/client/client_output.py | 17 ++++++++++++++++- 2 files changed, 25 insertions(+), 1 deletion(-) diff --git a/tests_python/client/client.py b/tests_python/client/client.py index a0295389f204..d3b83447a6d4 100644 --- a/tests_python/client/client.py +++ b/tests_python/client/client.py @@ -306,6 +306,15 @@ class Client: cmd += args return client_output.GetReceiptResult(self.run(cmd)) + def get_storage(self, contract: str) -> str: + cmd = ['get', 'script', 'storage', 'for', contract] + res = self.run(cmd) + return res.rstrip() + + def get_delegate(self, contract: str) -> client_output.GetDelegateResult: + cmd = ['get', 'delegate', 'for', contract] + return client_output.GetDelegateResult(self.run(cmd)) + def get_prevalidator(self) -> dict: return self.rpc('get', '/workers/prevalidators') diff --git a/tests_python/client/client_output.py b/tests_python/client/client_output.py index 71554bc626d5..11229b30011e 100644 --- a/tests_python/client/client_output.py +++ b/tests_python/client/client_output.py @@ -29,6 +29,7 @@ class TransferResult: """Result of a 'transfer' operation.""" def __init__(self, client_output: str): + self.client_output = client_output pattern = r"Operation hash is '?(\w*)" match = re.search(pattern, client_output) if match is None: @@ -57,6 +58,18 @@ class GetReceiptResult: raise InvalidClientOutput(client_output) self.block_hash = match.groups()[0] +class GetDelegateResult: + """Result of 'get delegate for' command. + self.delegate is set to None if the contract has no delegate. + """ + + def __init__(self, client_output: str): + if client_output == 'none\n': + self.delegate = None + else: + pattern = r'(\w*) ' + match = re.search(pattern, client_output) + self.delegate = match.groups()[0] class RunScriptResult: """Result of a 'get script' operation.""" @@ -178,7 +191,9 @@ def extract_rpc_answer(client_output: str) -> dict: def extract_balance(client_output: str) -> float: """Extract float balance from the output of 'get_balance' operation.""" try: - return float(client_output[:-3]) + pattern= r"(\w*) ꜩ" + match = re.search(pattern, client_output) + return float(match.groups()[0]) except Exception: raise InvalidClientOutput(client_output) -- GitLab From 2fdd2fa4cc7535c123dbc4a38f7fe7a481ee2292 Mon Sep 17 00:00:00 2001 From: Ilias Date: Fri, 26 Apr 2019 16:41:42 +0200 Subject: [PATCH 084/252] Pythonified test_contracts_mini_scenarios.sh & test_contracts.sh --- tests_python/tests/test_contract.py | 174 +++++++++++++++++++++++++++- 1 file changed, 172 insertions(+), 2 deletions(-) diff --git a/tests_python/tests/test_contract.py b/tests_python/tests/test_contract.py index bfbf4b045632..48e609b82249 100644 --- a/tests_python/tests/test_contract.py +++ b/tests_python/tests/test_contract.py @@ -3,6 +3,7 @@ import subprocess import pytest import re from tools import utils, paths, constants +from tools.constants import IDENTITIES CONTRACT_PATH = f'{paths.TEZOS_HOME}/src/bin_client/test/contracts' @@ -179,8 +180,8 @@ class TestGasBound: assert(utils.check_run_failure(client_cmd, "Set literals cannot contain duplicate values, however a duplicate value was found")) - - # TODO complete with tests from test_contract.sh +def file_basename(path): + return os.path.splitext(os.path.basename(path))[0] @pytest.mark.contract @@ -216,6 +217,7 @@ class TestChainId: ['--arg', f'Pair {operation} \"{signature}\"']) client.bake('bootstrap5', BAKE_ARGS) + @pytest.mark.contract class TestBigMapToSelf: @@ -226,3 +228,171 @@ class TestBigMapToSelf: def test_big_map_to_self_transfer(self, client): client.transfer(0, 'bootstrap2', "big_map_to_self", []) + + +@pytest.mark.contract +class TestNonRegression: + """Test contract-related non-regressions""" + + def test_issue_242_originate(self, client, session): + path = f'{CONTRACT_PATH}/non_regression/bug_262.tz' + originate(client, session, path, 'Unit', 1) + + def test_issue_242_assert_balance(self, client, session): + assert(client.get_balance('bug_262') == 1) + +@pytest.mark.contract +class TestMiniScenarios: + """Test mini scenarios""" + + # replay.tz related tests + def test_replay_originate(self, client, session): + path = f'{CONTRACT_PATH}/mini_scenarios/replay.tz' + originate(client, session, path, 'Unit', 0) + + def test_replay_transfer_fail(self, client, session): + def client_cmd(): + client.transfer(0, "bootstrap1", "replay", []) + assert(utils.check_run_failure(client_cmd, "Internal operation replay attempt")) + + # create_account.tz related tests + def test_create_account_originate(self, client, session): + path = f'{CONTRACT_PATH}/mini_scenarios/create_account.tz' + originate(client, session, path, 'None', 1000) + + def test_create_account_balance(self, client, session): + assert(client.get_balance('create_account') == 1000) + + def test_create_account_perform_creation(self, client, session): + tz1 = IDENTITIES['bootstrap1']['identity'] + transfer_result = client.transfer(100, "bootstrap1", "create_account", + ['-arg', f'(Left "{tz1}")', '--burn-cap', '10']) + pattern= r"New contract (\w*) originated" + match = re.search(pattern, transfer_result.client_output) + KT1 = match.groups()[0] + client.bake('bootstrap5', BAKE_ARGS) + assert(client.get_balance(KT1) == 100) + assert(client.get_balance('create_account') == 1000) + + # create_contract.tz related tests + def test_create_contract_originate(self, client, session): + path = f'{CONTRACT_PATH}/mini_scenarios/create_contract.tz' + originate(client, session, path, 'Unit', 1000) + + def test_create_contract_balance(self, client, session): + assert(client.get_balance('create_contract') == 1000) + + def test_create_contract_perform_creation(self, client, session): + tz1 = IDENTITIES['bootstrap1']['identity'] + transfer_result = client.transfer(0, "bootstrap1", "create_contract", + ['-arg', f'(Left "{tz1}")', '--burn-cap', '10']) + client.bake('bootstrap5', BAKE_ARGS) + pattern = r"New contract (\w*) originated" + match = re.search(pattern, transfer_result.client_output) + KT1 = match.groups()[0] + assert(client.get_storage(KT1) == '"abcdefg"') + assert(client.get_balance(KT1) == 100) + assert(client.get_balance('create_contract') == 900) + + # default_account.tz related tests + def test_default_account_originate(self, client, session): + path = f'{CONTRACT_PATH}/mini_scenarios/default_account.tz' + originate(client, session, path, 'Unit', 1000) + + def test_default_account_transfer_then_bake(self, client, session): + tz1 = IDENTITIES['bootstrap4']['identity'] + transfer_result = client.transfer(0, "bootstrap1", "default_account", + ['-arg', f'"{tz1}"', '--burn-cap', '10']) + client.bake('bootstrap5', BAKE_ARGS) + account='tz1SuakBpFdG9b4twyfrSMqZzruxhpMeSrE5' + transfer_result = client.transfer(0, "bootstrap1", "default_account", + ['-arg', f'"{account}"', '--burn-cap', '10']) + client.bake('bootstrap5', BAKE_ARGS) + assert(client.get_balance(account) == 100) + + # Test bytes, SHA252, CHECK_SIGNATURE + def test_reveal_signed_preimage_originate(self, client, session): + path = f'{CONTRACT_PATH}/mini_scenarios/reveal_signed_preimage.tz' + storage = '(Pair 0x9995c2ef7bcc7ae3bd15bdd9b02dc6e877c27b26732340d641a4cbc6524813bb "p2pk66uq221795tFxT7jfNmXtBMdjMf6RAaxRTwv1dbuSHbH6yfqGwz")' + originate(client, session, path, storage, 1000) + + def test_wrong_preimage(self, client, session): + arg = '(Pair 0x050100000027566f756c657a2d766f757320636f75636865722061766563206d6f692c20636520736f6972 "p2sigvgDSBnN1bUsfwyMvqpJA1cFhE5s5oi7SetJVQ6LJsbFrU2idPvnvwJhf5v9DhM9ZTX1euS9DgWozVw6BTHiK9VcQVpAU8")' + def client_cmd(): + transfer_result = client.transfer(0, "bootstrap1", "reveal_signed_preimage", + ['-arg', arg, '--burn-cap', '10']) + # We check failure of ASSERT_CMPEQ in the script. + assert(utils.check_run_failure(client_cmd, "At line 8 characters 9 to 21")) + + def test_wrong_signature(self, client, session): + arg = '(Pair 0x050100000027566f756c657a2d766f757320636f75636865722061766563206d6f692c20636520736f6972203f "p2sigvgDSBnN1bUsfwyMvqpJA1cFhE5s5oi7SetJVQ6LJsbFrU2idPvnvwJhf5v9DhM9ZTX1euS9DgWozVw6BTHiK9VcQVpAU8")' + def client_cmd(): + transfer_result = client.transfer(0, "bootstrap1", "reveal_signed_preimage", + ['-arg', arg, '--burn-cap', '10']) + # We check failure of CHECK_SIGNATURE ; ASSERT in the script. + assert(utils.check_run_failure(client_cmd, "At line 15 characters 9 to 15")) + + def test_good_preimage_and_signature(self, client, session): + arg = '(Pair 0x050100000027566f756c657a2d766f757320636f75636865722061766563206d6f692c20636520736f6972203f "p2sigsceCzcDw2AeYDzUonj4JT341WC9Px4wdhHBxbZcG1FhfqFVuG7f2fGCzrEHSAZgrsrQWpxduDPk9qZRgrpzwJnSHC3gZJ")' + transfer_result = client.transfer(0, "bootstrap1", "reveal_signed_preimage", + ['-arg', arg, '--burn-cap', '10']) + client.bake('bootstrap5', BAKE_ARGS) + + # Test vote_for_delegate + def test_vote_for_delegate_originate(self, client, session): + b3 = IDENTITIES['bootstrap3']['identity'] + b4 = IDENTITIES['bootstrap4']['identity'] + path = f'{CONTRACT_PATH}/mini_scenarios/vote_for_delegate.tz' + storage = f'''(Pair (Pair "{b3}" None) (Pair "{b4}" None))''' + originate(client, session, path, storage, 1000) + assert(client.get_delegate('vote_for_delegate').delegate == None) + + def test_vote_for_delegate_wrong_identity1(self, client, session): + def client_cmd(): + transfer_result = client.transfer(0, "bootstrap1", "vote_for_delegate", + ['-arg', 'None', '--burn-cap', '10']) + # We check failure of CHECK_SIGNATURE ; ASSERT in the script. + assert(utils.check_run_failure(client_cmd, "At line 15 characters 57 to 61")) + + + def test_vote_for_delegate_wrong_identity2(self, client, session): + def client_cmd(): + transfer_result = client.transfer(0, "bootstrap2", "vote_for_delegate", + ['-arg', 'None', '--burn-cap', '10']) + # We check failure of CHECK_SIGNATURE ; ASSERT in the script. + assert(utils.check_run_failure(client_cmd, "At line 15 characters 57 to 61")) + + def test_vote_for_delegate_b3_vote_for_b5(self, client, session): + b5 = IDENTITIES['bootstrap5']['identity'] + transfer_result = client.transfer(0, "bootstrap3", "vote_for_delegate", + ['-arg', f'(Some "{b5}")', '--burn-cap', '10']) + client.bake('bootstrap5', BAKE_ARGS) + storage = client.get_storage('vote_for_delegate') + assert(re.search(b5, storage)) + + def test_vote_for_delegate_still_no_delegate1(self, client, session): + assert(client.get_delegate('vote_for_delegate').delegate == None) + + def test_vote_for_delegate_b4_vote_for_b2(self, client, session): + b2 = IDENTITIES['bootstrap2']['identity'] + transfer_result = client.transfer(0, "bootstrap4", "vote_for_delegate", + ['-arg', f'(Some "{b2}")', '--burn-cap', '10']) + client.bake('bootstrap5', BAKE_ARGS) + storage = client.get_storage('vote_for_delegate') + assert(re.search(b2, storage)) + + def test_vote_for_delegate_still_no_delegate2(self, client, session): + assert(client.get_delegate('vote_for_delegate').delegate == None) + + def test_vote_for_delegate_b4_vote_for_b5(self, client, session): + b5 = IDENTITIES['bootstrap5']['identity'] + transfer_result = client.transfer(0, "bootstrap4", "vote_for_delegate", + ['-arg', f'(Some "{b5}")', '--burn-cap', '10']) + client.bake('bootstrap5', BAKE_ARGS) + storage = client.get_storage('vote_for_delegate') + assert(re.search(b5, storage)) + + def test_vote_for_delegate_has_delegate(self, client, session): + b5 = IDENTITIES['bootstrap5']['identity'] + result = client.get_delegate('vote_for_delegate') + assert(result.delegate == b5) -- GitLab From 8c66b06b8c64baa22d4dfcf8ef0f8732b91e0b87 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Rapha=C3=ABl=20Cauderlier?= Date: Fri, 26 Apr 2019 16:44:59 +0200 Subject: [PATCH 085/252] Remove some bash tests about smart contracts These tests have been pythonified. --- src/bin_client/test/test_contracts.sh | 87 -------------- .../test/test_contracts_mini_scenarios.sh | 113 ------------------ 2 files changed, 200 deletions(-) delete mode 100755 src/bin_client/test/test_contracts.sh delete mode 100644 src/bin_client/test/test_contracts_mini_scenarios.sh diff --git a/src/bin_client/test/test_contracts.sh b/src/bin_client/test/test_contracts.sh deleted file mode 100755 index d2bd74fdbcfc..000000000000 --- a/src/bin_client/test/test_contracts.sh +++ /dev/null @@ -1,87 +0,0 @@ -#!/bin/bash - -set -e -set -o pipefail - -test_dir="$(cd "$(dirname "$0")" && echo "$(pwd -P)")" -source $test_dir/test_lib.inc.sh "$@" - -start_node 1 -activate_alpha - -$client -w none config update - -bake - -key1=foo -key2=bar - -$client gen keys $key1 -$client gen keys $key2 - -printf "\n\n" - -# Assert all contracts typecheck -if [ ! $NO_TYPECHECK ] ; then - for contract in `ls $contract_attic_dir/*.tz`; do - printf "[Typechecking %s]\n" "$contract"; - ${client} typecheck script "$contract"; - done - printf "All contracts are well typed\n\n" -fi - -# Typing gas bounds checks -tee /tmp/first_explosion.tz < Date: Fri, 26 Apr 2019 16:50:07 +0200 Subject: [PATCH 086/252] Document some smart contract scripts in the mini_scenario test suite --- .../test/contracts/deprecated/create_account.tz | 17 +++++++++++++++++ .../contracts/mini_scenarios/create_contract.tz | 16 ++++++++++++++++ .../contracts/mini_scenarios/default_account.tz | 4 ++++ .../test/contracts/mini_scenarios/replay.tz | 1 + .../mini_scenarios/reveal_signed_preimage.tz | 8 +++++++- 5 files changed, 45 insertions(+), 1 deletion(-) diff --git a/src/bin_client/test/contracts/deprecated/create_account.tz b/src/bin_client/test/contracts/deprecated/create_account.tz index e3349c50752f..7cd38465a10b 100644 --- a/src/bin_client/test/contracts/deprecated/create_account.tz +++ b/src/bin_client/test/contracts/deprecated/create_account.tz @@ -1,3 +1,20 @@ +/* +- optional storage: the address of the created account +- param: Left [hash]: + + Create an account with manager [hash]; then perform a recursive call + on Right [addr] where [addr] is the address of the newly created + account. + + The created account has an initial balance of 100tz. It is not + delegatable. + +- param: Right [addr]: + + Check that the sender is self and that [addr] is a contract of type + [unit]. Finally store [addr]. + +*/ parameter (or key_hash address) ; storage (option address) ; code { CAR; diff --git a/src/bin_client/test/contracts/mini_scenarios/create_contract.tz b/src/bin_client/test/contracts/mini_scenarios/create_contract.tz index a60df2803501..0d09a1fdfca6 100644 --- a/src/bin_client/test/contracts/mini_scenarios/create_contract.tz +++ b/src/bin_client/test/contracts/mini_scenarios/create_contract.tz @@ -1,3 +1,19 @@ +/* +- param: None: + + Create a contract then perform a recursive call on Some [addr] where + [addr] is the address of the newly created contract. + + The created contract simply stores its parameter (a string). It is + initialized with the storage "dummy" and has an initial balance of + 100tz. It has no delegate so these 100tz are totally frozen. + +- param: Some [addr]: + + Check that the sender is self, call the contract at address [addr] + with param "abcdefg" transferring 0tz. + +*/ parameter (option address) ; storage unit ; code { CAR ; diff --git a/src/bin_client/test/contracts/mini_scenarios/default_account.tz b/src/bin_client/test/contracts/mini_scenarios/default_account.tz index db9f01156c68..74e7693d7ba5 100644 --- a/src/bin_client/test/contracts/mini_scenarios/default_account.tz +++ b/src/bin_client/test/contracts/mini_scenarios/default_account.tz @@ -1,3 +1,7 @@ +/* +Send 100 tz to the implicit account given as parameter. +*/ + parameter key_hash; storage unit; code {DIP{UNIT}; CAR; IMPLICIT_ACCOUNT; diff --git a/src/bin_client/test/contracts/mini_scenarios/replay.tz b/src/bin_client/test/contracts/mini_scenarios/replay.tz index d00e368d9e1d..73ac145abae3 100644 --- a/src/bin_client/test/contracts/mini_scenarios/replay.tz +++ b/src/bin_client/test/contracts/mini_scenarios/replay.tz @@ -1,3 +1,4 @@ +# This contract always fail because it tries to execute twice the same operation parameter unit ; storage unit ; code { CDR ; NIL operation ; diff --git a/src/bin_client/test/contracts/mini_scenarios/reveal_signed_preimage.tz b/src/bin_client/test/contracts/mini_scenarios/reveal_signed_preimage.tz index 520707c60e2b..1a7e97eb8a68 100644 --- a/src/bin_client/test/contracts/mini_scenarios/reveal_signed_preimage.tz +++ b/src/bin_client/test/contracts/mini_scenarios/reveal_signed_preimage.tz @@ -1,7 +1,13 @@ parameter (pair bytes signature) ; storage (pair bytes key) ; -code { DUP ; UNPAIR ; CAR ; SHA256 ; DIP { CAR } ; ASSERT_CMPEQ ; +code { + #check that sha256(param.bytes) == storage.bytes + DUP ; UNPAIR ; CAR; SHA256; DIP { CAR } ; ASSERT_CMPEQ ; + + # check that the sig is a valid signature of the preimage DUP ; UNPAIR ; SWAP ; DIP { UNPAIR ; SWAP } ; CDR ; CHECK_SIGNATURE ; ASSERT ; + + # send all our tokens to the implicit account corresponding to the stored public key CDR ; DUP ; CDR ; HASH_KEY ; IMPLICIT_ACCOUNT ; BALANCE ; UNIT ; TRANSFER_TOKENS ; NIL operation ; SWAP ; CONS ; PAIR } \ No newline at end of file -- GitLab From 1f8171db1fa88cab11a2107d55d2242d00f78d48 Mon Sep 17 00:00:00 2001 From: Ilias Date: Fri, 26 Apr 2019 16:54:42 +0200 Subject: [PATCH 087/252] Removed test_contracts{_mini_scearios}.sh from CI --- .gitlab-ci.yml | 10 ---------- src/bin_client/test/dune | 34 ---------------------------------- 2 files changed, 44 deletions(-) diff --git a/.gitlab-ci.yml b/.gitlab-ci.yml index 797dee1e42b2..e69e459f7094 100644 --- a/.gitlab-ci.yml +++ b/.gitlab-ci.yml @@ -183,11 +183,6 @@ integration:basic.sh: script: - dune build @src/bin_client/runtest_basic.sh -integration:contracts.sh: - <<: *integration_definition - script: - - dune build @src/bin_client/runtest_contracts.sh - integration:contracts_opcode.sh: <<: *integration_definition script: @@ -198,11 +193,6 @@ integration:contracts_macros.sh: script: - dune build @src/bin_client/runtest_contracts_macros.sh -integration:contracts_mini_scenarios.sh: - <<: *integration_definition - script: - - dune build @src/bin_client/runtest_contracts_mini_scenarios.sh - integration:multinode.sh: <<: *integration_definition script: diff --git a/src/bin_client/test/dune b/src/bin_client/test/dune index 34664e10daa4..f3988b366f08 100644 --- a/src/bin_client/test/dune +++ b/src/bin_client/test/dune @@ -21,22 +21,6 @@ %{bin:tezos-client} %{bin:tezos-admin-client}))) -(alias - (name runtest_contracts.sh) - (deps sandbox.json - protocol_parameters.json - test_lib.inc.sh - (glob_files contracts/attic/*)) - (locks /tcp-port/18731 - /tcp-port/19731) - (action - (run bash %{dep:test_contracts.sh} - %{bin:tezos-sandboxed-node.sh} - %{bin:tezos-node} - %{bin:tezos-init-sandboxed-client.sh} - %{bin:tezos-client} - %{bin:tezos-admin-client}))) - (alias (name runtest_contracts_opcode.sh) (deps sandbox.json @@ -69,22 +53,6 @@ %{bin:tezos-client} %{bin:tezos-admin-client}))) -(alias - (name runtest_contracts_mini_scenarios.sh) - (deps sandbox.json - protocol_parameters.json - test_lib.inc.sh - (glob_files contracts/mini_scenarios/*)) - (locks /tcp-port/18731 - /tcp-port/19731) - (action - (run bash %{dep:test_contracts_mini_scenarios.sh} - %{bin:tezos-sandboxed-node.sh} - %{bin:tezos-node} - %{bin:tezos-init-sandboxed-client.sh} - %{bin:tezos-client} - %{bin:tezos-admin-client}))) - (alias (name runtest_multinode.sh) (deps sandbox.json @@ -170,10 +138,8 @@ (alias (name runtest) (deps (alias runtest_basic.sh) - (alias runtest_contracts.sh) (alias runtest_contracts_opcode.sh) (alias runtest_contracts_macros.sh) - (alias runtest_contracts_mini_scenarios.sh) (alias runtest_multinode.sh) (alias runtest_injection.sh) (alias runtest_tls.sh) -- GitLab From 2d69880472e0ac3f645499fcd34325e30f80427d Mon Sep 17 00:00:00 2001 From: Ilias Date: Fri, 26 Apr 2019 17:57:15 +0200 Subject: [PATCH 088/252] Satisfy linter requirements. --- tests_python/client/client.py | 4 +- tests_python/client/client_output.py | 8 +- tests_python/tests/test_contract.py | 258 ++++++++++++++++----------- tests_python/tools/utils.py | 13 +- 4 files changed, 172 insertions(+), 111 deletions(-) diff --git a/tests_python/client/client.py b/tests_python/client/client.py index d3b83447a6d4..e7254a46df3d 100644 --- a/tests_python/client/client.py +++ b/tests_python/client/client.py @@ -114,7 +114,7 @@ class Client: print(format_command(cmd)) - stderr = [] + stderr = "" stdout = "" new_env = os.environ.copy() if self._disable_disclaimer: @@ -132,7 +132,7 @@ class Client: for line in process.stderr: print(line, end='', file=sys.stderr) - stderr.append(line) + stderr += line if check and process.returncode: raise subprocess.CalledProcessError(process.returncode, process.args, diff --git a/tests_python/client/client_output.py b/tests_python/client/client_output.py index 11229b30011e..cddb1fa09337 100644 --- a/tests_python/client/client_output.py +++ b/tests_python/client/client_output.py @@ -58,6 +58,7 @@ class GetReceiptResult: raise InvalidClientOutput(client_output) self.block_hash = match.groups()[0] + class GetDelegateResult: """Result of 'get delegate for' command. self.delegate is set to None if the contract has no delegate. @@ -69,8 +70,11 @@ class GetDelegateResult: else: pattern = r'(\w*) ' match = re.search(pattern, client_output) + if match is None: + raise InvalidClientOutput(client_output) self.delegate = match.groups()[0] + class RunScriptResult: """Result of a 'get script' operation.""" @@ -191,8 +195,10 @@ def extract_rpc_answer(client_output: str) -> dict: def extract_balance(client_output: str) -> float: """Extract float balance from the output of 'get_balance' operation.""" try: - pattern= r"(\w*) ꜩ" + pattern = r"(\w*) ꜩ" match = re.search(pattern, client_output) + if match is None: + raise InvalidClientOutput(client_output) return float(match.groups()[0]) except Exception: raise InvalidClientOutput(client_output) diff --git a/tests_python/tests/test_contract.py b/tests_python/tests/test_contract.py index 48e609b82249..441cb2e726bb 100644 --- a/tests_python/tests/test_contract.py +++ b/tests_python/tests/test_contract.py @@ -1,8 +1,8 @@ import os -import subprocess -import pytest import re -from tools import utils, paths, constants +import pytest +from tools import paths +from tools import utils from tools.constants import IDENTITIES CONTRACT_PATH = f'{paths.TEZOS_HOME}/src/bin_client/test/contracts' @@ -14,6 +14,7 @@ def file_basename(path): return os.path.splitext(os.path.basename(path))[0] +# Generic piece of code to originate a contract def originate(client, session, contract, @@ -35,7 +36,8 @@ def originate(client, def all_contracts(): - directories = ['attic', 'opcodes', 'macros', 'mini_scenarios', 'non_regression'] + directories = ['attic', 'opcodes', + 'macros', 'mini_scenarios', 'non_regression'] contracts = [] for directory in directories: for contract in os.listdir(f'{CONTRACT_PATH}/{directory}'): @@ -83,6 +85,7 @@ FIRST_EXPLOSION = ''' DROP ; UNIT ; NIL operation ; PAIR} } ''' + # FIRST_EXPLOSION costs a large amount of gas just for typechecking. # FIRST_EXPLOSION_BIGTYPE type size exceeds the protocol set bound. FIRST_EXPLOSION_BIGTYPE = ''' @@ -102,6 +105,7 @@ FIRST_EXPLOSION_BIGTYPE = ''' DROP ; UNIT ; NIL operation ; PAIR} } ''' + SECOND_EXPLOSION = ''' { parameter (list int) ; storage (list (list (list int))) ; @@ -112,6 +116,7 @@ SECOND_EXPLOSION = ''' DROP ; NIL operation ; PAIR } } ''' + @pytest.mark.contract class TestGasBound: @@ -130,18 +135,23 @@ class TestGasBound: contract = session[name] client.typecheck(contract) args = ['-G', '8000', '--burn-cap', '10'] + def client_cmd(): client.originate(f'{name}', 'bootstrap1', 0, 'bootstrap1', contract, args) - assert(utils.check_run_failure(client_cmd, "Gas limit exceeded during typechecking or execution")) + expected_error = "Gas limit exceeded during typechecking or execution" + assert utils.check_run_failure(client_cmd, expected_error) def test_originate_big_type(self, client, session): name = 'first_explosion_bigtype.tz' contract = session[name] + def client_cmd(): client.typecheck(contract) - # We could not be bothered with finding how to escape parentheses so we put dots - assert(utils.check_run_failure(client_cmd, "type size .1023. exceeded maximum type size .1000.")) + # We could not be bothered with finding how to escape parentheses + # so we put dots + expected_error = "type size .1023. exceeded maximum type size .1000." + assert utils.check_run_failure(client_cmd, expected_error) def test_originate_second_explosion(self, client, session): name = 'second_explosion.tz' @@ -154,34 +164,51 @@ class TestGasBound: name = 'second_explosion.tz' contract = session[name] storage = '{}' - inp = '{1;2;3;4;5;6;7;8;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1}' + inp = ('{1;2;3;4;5;6;7;8;1;1;1;1;1;1;1;1;1;' + + '1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1}') + def client_cmd(): client.run_script(contract, storage, inp) - assert(utils.check_run_failure(client_cmd, "Cannot serialize the resulting storage value within the provided gas bounds.")) + expected_error = \ + ("Cannot serialize the resulting storage" + + " value within the provided gas bounds.") + assert utils.check_run_failure(client_cmd, expected_error) + + def test_typecheck_map_dup_key(self, client, _session): - def test_typecheck_map_dup_key(self, client, session): def client_cmd(): client.typecheck_data('{ Elt 0 1 ; Elt 0 1}', '(map nat nat)') - assert(utils.check_run_failure(client_cmd, "Map literals cannot contain duplicate keys, however a duplicate key was found")) + expected_error = \ + ('Map literals cannot contain duplicate' + + ' keys, however a duplicate key was found') + assert utils.check_run_failure(client_cmd, expected_error) + + def test_typecheck_map_bad_ordering(self, client, _session): - def test_typecheck_map_bad_ordering(self, client, session): def client_cmd(): - client.typecheck_data('{ Elt 0 1 ; Elt 10 1 ; Elt 5 1 }', '(map nat nat)') - assert(utils.check_run_failure(client_cmd, "Keys in a map literal must be in strictly ascending order, but they were unordered in literal")) + client.typecheck_data('{ Elt 0 1 ; Elt 10 1 ; Elt 5 1 }', + '(map nat nat)') + expected_error = \ + ("Keys in a map literal must be in strictly" + + " ascending order, but they were unordered in literal") + assert utils.check_run_failure(client_cmd, expected_error) + + def test_typecheck_set_bad_ordering(self, client, _session): - def test_typecheck_set_bad_ordering(self, client, session): def client_cmd(): client.typecheck_data('{ "A" ; "C" ; "B" }', '(set string)') - assert(utils.check_run_failure(client_cmd, "Values in a set literal must be in strictly ascending order, but they were unordered in literal")) + expected_error = \ + ("Values in a set literal must be in strictly" + + " ascending order, but they were unordered in literal") + assert utils.check_run_failure(client_cmd, expected_error) - def test_typecheck_set_no_duplicates(self, client, session): + def test_typecheck_set_no_duplicates(self, client, _session): def client_cmd(): client.typecheck_data('{ "A" ; "B" ; "B" }', '(set string)') - assert(utils.check_run_failure(client_cmd, "Set literals cannot contain duplicate values, however a duplicate value was found")) - - -def file_basename(path): - return os.path.splitext(os.path.basename(path))[0] + expected_error = \ + ("Set literals cannot contain duplicate values," + + " however a duplicate value was found") + assert utils.check_run_failure(client_cmd, expected_error) @pytest.mark.contract @@ -195,12 +222,12 @@ class TestChainId: def test_chain_id_authentication_origination(self, client, session): path = f'{CONTRACT_PATH}/mini_scenarios/authentication.tz' - pubkey = constants.IDENTITIES['bootstrap1']['public'] + pubkey = IDENTITIES['bootstrap1']['public'] originate(client, session, path, f'Pair 0 "{pubkey}"', 1000) client.bake('bootstrap5', BAKE_ARGS) def test_chain_id_authentication_first_run(self, client, session): - destination = constants.IDENTITIES['bootstrap2']['identity'] + destination = IDENTITIES['bootstrap2']['identity'] operation = '{DROP; NIL operation; ' + \ f'PUSH address "{destination}"; ' + \ 'CONTRACT unit; ASSERT_SOME; PUSH mutez 1000; UNIT; ' + \ @@ -238,8 +265,9 @@ class TestNonRegression: path = f'{CONTRACT_PATH}/non_regression/bug_262.tz' originate(client, session, path, 'Unit', 1) - def test_issue_242_assert_balance(self, client, session): - assert(client.get_balance('bug_262') == 1) + def test_issue_242_assert_balance(self, client, _session): + assert client.get_balance('bug_262') == 1 + @pytest.mark.contract class TestMiniScenarios: @@ -250,149 +278,175 @@ class TestMiniScenarios: path = f'{CONTRACT_PATH}/mini_scenarios/replay.tz' originate(client, session, path, 'Unit', 0) - def test_replay_transfer_fail(self, client, session): + def test_replay_transfer_fail(self, client, _session): def client_cmd(): client.transfer(0, "bootstrap1", "replay", []) - assert(utils.check_run_failure(client_cmd, "Internal operation replay attempt")) + assert utils.check_run_failure(client_cmd, + "Internal operation replay attempt") # create_account.tz related tests def test_create_account_originate(self, client, session): path = f'{CONTRACT_PATH}/mini_scenarios/create_account.tz' originate(client, session, path, 'None', 1000) - def test_create_account_balance(self, client, session): - assert(client.get_balance('create_account') == 1000) + def test_create_account_balance(self, client, _session): + assert client.get_balance('create_account') == 1000 - def test_create_account_perform_creation(self, client, session): + def test_create_account_perform_creation(self, client, _session): tz1 = IDENTITIES['bootstrap1']['identity'] transfer_result = client.transfer(100, "bootstrap1", "create_account", - ['-arg', f'(Left "{tz1}")', '--burn-cap', '10']) - pattern= r"New contract (\w*) originated" + ['-arg', + f'(Left "{tz1}")', + '--burn-cap', '10']) + pattern = r"New contract (\w*) originated" match = re.search(pattern, transfer_result.client_output) - KT1 = match.groups()[0] + kt_1 = match.groups()[0] client.bake('bootstrap5', BAKE_ARGS) - assert(client.get_balance(KT1) == 100) - assert(client.get_balance('create_account') == 1000) + assert client.get_balance(kt_1) == 100 + assert client.get_balance('create_account') == 1000 # create_contract.tz related tests def test_create_contract_originate(self, client, session): path = f'{CONTRACT_PATH}/mini_scenarios/create_contract.tz' originate(client, session, path, 'Unit', 1000) - def test_create_contract_balance(self, client, session): - assert(client.get_balance('create_contract') == 1000) + def test_create_contract_balance(self, client, _session): + assert client.get_balance('create_contract') == 1000 - def test_create_contract_perform_creation(self, client, session): + def test_create_contract_perform_creation(self, client, _session): tz1 = IDENTITIES['bootstrap1']['identity'] transfer_result = client.transfer(0, "bootstrap1", "create_contract", - ['-arg', f'(Left "{tz1}")', '--burn-cap', '10']) + ['-arg', + f'(Left "{tz1}")', + '--burn-cap', + '10']) client.bake('bootstrap5', BAKE_ARGS) pattern = r"New contract (\w*) originated" match = re.search(pattern, transfer_result.client_output) - KT1 = match.groups()[0] - assert(client.get_storage(KT1) == '"abcdefg"') - assert(client.get_balance(KT1) == 100) - assert(client.get_balance('create_contract') == 900) + kt_1 = match.groups()[0] + assert client.get_storage(kt_1) == '"abcdefg"' + assert client.get_balance(kt_1) == 100 + assert client.get_balance('create_contract') == 900 # default_account.tz related tests def test_default_account_originate(self, client, session): path = f'{CONTRACT_PATH}/mini_scenarios/default_account.tz' originate(client, session, path, 'Unit', 1000) - def test_default_account_transfer_then_bake(self, client, session): + def test_default_account_transfer_then_bake(self, client, _session): tz1 = IDENTITIES['bootstrap4']['identity'] - transfer_result = client.transfer(0, "bootstrap1", "default_account", - ['-arg', f'"{tz1}"', '--burn-cap', '10']) + client.transfer(0, "bootstrap1", "default_account", + ['-arg', f'"{tz1}"', '--burn-cap', '10']) client.bake('bootstrap5', BAKE_ARGS) - account='tz1SuakBpFdG9b4twyfrSMqZzruxhpMeSrE5' - transfer_result = client.transfer(0, "bootstrap1", "default_account", - ['-arg', f'"{account}"', '--burn-cap', '10']) + account = 'tz1SuakBpFdG9b4twyfrSMqZzruxhpMeSrE5' + client.transfer(0, "bootstrap1", "default_account", + ['-arg', f'"{account}"', '--burn-cap', '10']) client.bake('bootstrap5', BAKE_ARGS) - assert(client.get_balance(account) == 100) + assert client.get_balance(account) == 100 # Test bytes, SHA252, CHECK_SIGNATURE def test_reveal_signed_preimage_originate(self, client, session): path = f'{CONTRACT_PATH}/mini_scenarios/reveal_signed_preimage.tz' - storage = '(Pair 0x9995c2ef7bcc7ae3bd15bdd9b02dc6e877c27b26732340d641a4cbc6524813bb "p2pk66uq221795tFxT7jfNmXtBMdjMf6RAaxRTwv1dbuSHbH6yfqGwz")' + byt = ('0x9995c2ef7bcc7ae3bd15bdd9b02' + + 'dc6e877c27b26732340d641a4cbc6524813bb') + sign = f'p2pk66uq221795tFxT7jfNmXtBMdjMf6RAaxRTwv1dbuSHbH6yfqGwz' + storage = f'(Pair {byt} "{sign}")' originate(client, session, path, storage, 1000) - def test_wrong_preimage(self, client, session): - arg = '(Pair 0x050100000027566f756c657a2d766f757320636f75636865722061766563206d6f692c20636520736f6972 "p2sigvgDSBnN1bUsfwyMvqpJA1cFhE5s5oi7SetJVQ6LJsbFrU2idPvnvwJhf5v9DhM9ZTX1euS9DgWozVw6BTHiK9VcQVpAU8")' + def test_wrong_preimage(self, client, _session): + byt = ('0x050100000027566f756c657a2d766f75732' + + '0636f75636865722061766563206d6f692c20636520736f6972') + sign = ('p2sigvgDSBnN1bUsfwyMvqpJA1cFhE5s5oi7SetJ' + + 'VQ6LJsbFrU2idPvnvwJhf5v9DhM9ZTX1euS9DgWozVw6BTHiK9VcQVpAU8') + arg = f'(Pair {byt} "{sign}")' + def client_cmd(): - transfer_result = client.transfer(0, "bootstrap1", "reveal_signed_preimage", - ['-arg', arg, '--burn-cap', '10']) + client.transfer(0, "bootstrap1", "reveal_signed_preimage", + ['-arg', arg, '--burn-cap', '10']) # We check failure of ASSERT_CMPEQ in the script. - assert(utils.check_run_failure(client_cmd, "At line 8 characters 9 to 21")) + assert utils.check_run_failure(client_cmd, + "At line 8 characters 9 to 21") + + def test_wrong_signature(self, client, _session): + byt = ('0x050100000027566f756c657a2d766f757320636' + + 'f75636865722061766563206d6f692c20636520736f6972203f') + sign = ('p2sigvgDSBnN1bUsfwyMvqpJA1cFhE5s5oi7SetJVQ6' + + 'LJsbFrU2idPvnvwJhf5v9DhM9ZTX1euS9DgWozVw6BTHiK9VcQVpAU8') + arg = f'(Pair {byt} "{sign}")' - def test_wrong_signature(self, client, session): - arg = '(Pair 0x050100000027566f756c657a2d766f757320636f75636865722061766563206d6f692c20636520736f6972203f "p2sigvgDSBnN1bUsfwyMvqpJA1cFhE5s5oi7SetJVQ6LJsbFrU2idPvnvwJhf5v9DhM9ZTX1euS9DgWozVw6BTHiK9VcQVpAU8")' def client_cmd(): - transfer_result = client.transfer(0, "bootstrap1", "reveal_signed_preimage", - ['-arg', arg, '--burn-cap', '10']) + client.transfer(0, "bootstrap1", "reveal_signed_preimage", + ['-arg', arg, '--burn-cap', '10']) # We check failure of CHECK_SIGNATURE ; ASSERT in the script. - assert(utils.check_run_failure(client_cmd, "At line 15 characters 9 to 15")) - - def test_good_preimage_and_signature(self, client, session): - arg = '(Pair 0x050100000027566f756c657a2d766f757320636f75636865722061766563206d6f692c20636520736f6972203f "p2sigsceCzcDw2AeYDzUonj4JT341WC9Px4wdhHBxbZcG1FhfqFVuG7f2fGCzrEHSAZgrsrQWpxduDPk9qZRgrpzwJnSHC3gZJ")' - transfer_result = client.transfer(0, "bootstrap1", "reveal_signed_preimage", - ['-arg', arg, '--burn-cap', '10']) + assert utils.check_run_failure(client_cmd, + "At line 15 characters 9 to 15") + + def test_good_preimage_and_signature(self, client, _session): + byt = ('0x050100000027566f756c657a2d766f757320636f7563' + + '6865722061766563206d6f692c20636520736f6972203f') + sign = ('p2sigsceCzcDw2AeYDzUonj4JT341WC9Px4wdhHBxbZcG1F' + + 'hfqFVuG7f2fGCzrEHSAZgrsrQWpxduDPk9qZRgrpzwJnSHC3gZJ') + arg = f'(Pair {byt} "{sign}")' + client.transfer(0, "bootstrap1", "reveal_signed_preimage", + ['-arg', arg, '--burn-cap', '10']) client.bake('bootstrap5', BAKE_ARGS) # Test vote_for_delegate def test_vote_for_delegate_originate(self, client, session): - b3 = IDENTITIES['bootstrap3']['identity'] - b4 = IDENTITIES['bootstrap4']['identity'] + b_3 = IDENTITIES['bootstrap3']['identity'] + b_4 = IDENTITIES['bootstrap4']['identity'] path = f'{CONTRACT_PATH}/mini_scenarios/vote_for_delegate.tz' - storage = f'''(Pair (Pair "{b3}" None) (Pair "{b4}" None))''' + storage = f'''(Pair (Pair "{b_3}" None) (Pair "{b_4}" None))''' originate(client, session, path, storage, 1000) - assert(client.get_delegate('vote_for_delegate').delegate == None) + assert client.get_delegate('vote_for_delegate').delegate is None - def test_vote_for_delegate_wrong_identity1(self, client, session): + def test_vote_for_delegate_wrong_identity1(self, client, _session): def client_cmd(): - transfer_result = client.transfer(0, "bootstrap1", "vote_for_delegate", - ['-arg', 'None', '--burn-cap', '10']) + client.transfer(0, "bootstrap1", "vote_for_delegate", + ['-arg', 'None', '--burn-cap', '10']) # We check failure of CHECK_SIGNATURE ; ASSERT in the script. - assert(utils.check_run_failure(client_cmd, "At line 15 characters 57 to 61")) - + assert utils.check_run_failure(client_cmd, + "At line 15 characters 57 to 61") - def test_vote_for_delegate_wrong_identity2(self, client, session): + def test_vote_for_delegate_wrong_identity2(self, client, _session): def client_cmd(): - transfer_result = client.transfer(0, "bootstrap2", "vote_for_delegate", - ['-arg', 'None', '--burn-cap', '10']) + client.transfer(0, "bootstrap2", "vote_for_delegate", + ['-arg', 'None', '--burn-cap', '10']) # We check failure of CHECK_SIGNATURE ; ASSERT in the script. - assert(utils.check_run_failure(client_cmd, "At line 15 characters 57 to 61")) + assert utils.check_run_failure(client_cmd, + "At line 15 characters 57 to 61") - def test_vote_for_delegate_b3_vote_for_b5(self, client, session): - b5 = IDENTITIES['bootstrap5']['identity'] - transfer_result = client.transfer(0, "bootstrap3", "vote_for_delegate", - ['-arg', f'(Some "{b5}")', '--burn-cap', '10']) + def test_vote_for_delegate_b3_vote_for_b5(self, client, _session): + b_5 = IDENTITIES['bootstrap5']['identity'] + client.transfer(0, "bootstrap3", "vote_for_delegate", + ['-arg', f'(Some "{b_5}")', '--burn-cap', '10']) client.bake('bootstrap5', BAKE_ARGS) storage = client.get_storage('vote_for_delegate') - assert(re.search(b5, storage)) + assert re.search(b_5, storage) - def test_vote_for_delegate_still_no_delegate1(self, client, session): - assert(client.get_delegate('vote_for_delegate').delegate == None) + def test_vote_for_delegate_still_no_delegate1(self, client, _session): + assert client.get_delegate('vote_for_delegate').delegate is None - def test_vote_for_delegate_b4_vote_for_b2(self, client, session): - b2 = IDENTITIES['bootstrap2']['identity'] - transfer_result = client.transfer(0, "bootstrap4", "vote_for_delegate", - ['-arg', f'(Some "{b2}")', '--burn-cap', '10']) + def test_vote_for_delegate_b4_vote_for_b2(self, client, _session): + b_2 = IDENTITIES['bootstrap2']['identity'] + client.transfer(0, "bootstrap4", "vote_for_delegate", + ['-arg', f'(Some "{b_2}")', '--burn-cap', '10']) client.bake('bootstrap5', BAKE_ARGS) storage = client.get_storage('vote_for_delegate') - assert(re.search(b2, storage)) + assert re.search(b_2, storage) - def test_vote_for_delegate_still_no_delegate2(self, client, session): - assert(client.get_delegate('vote_for_delegate').delegate == None) + def test_vote_for_delegate_still_no_delegate2(self, client, _session): + assert client.get_delegate('vote_for_delegate').delegate is None - def test_vote_for_delegate_b4_vote_for_b5(self, client, session): - b5 = IDENTITIES['bootstrap5']['identity'] - transfer_result = client.transfer(0, "bootstrap4", "vote_for_delegate", - ['-arg', f'(Some "{b5}")', '--burn-cap', '10']) + def test_vote_for_delegate_b4_vote_for_b5(self, client, _session): + b_5 = IDENTITIES['bootstrap5']['identity'] + client.transfer(0, "bootstrap4", "vote_for_delegate", + ['-arg', f'(Some "{b_5}")', '--burn-cap', '10']) client.bake('bootstrap5', BAKE_ARGS) storage = client.get_storage('vote_for_delegate') - assert(re.search(b5, storage)) + assert re.search(b_5, storage) - def test_vote_for_delegate_has_delegate(self, client, session): - b5 = IDENTITIES['bootstrap5']['identity'] + def test_vote_for_delegate_has_delegate(self, client, _session): + b_5 = IDENTITIES['bootstrap5']['identity'] result = client.get_delegate('vote_for_delegate') - assert(result.delegate == b5) + assert result.delegate == b_5 diff --git a/tests_python/tools/utils.py b/tests_python/tools/utils.py index 014b48637706..31cf451a048b 100644 --- a/tests_python/tools/utils.py +++ b/tests_python/tools/utils.py @@ -7,13 +7,13 @@ import json import time import re import hashlib +import subprocess import requests import ed25519 import base58check import pyblake2 from client.client import Client from . import constants -import subprocess def retry(timeout: float, attempts: float): # pylint: disable=unused-argument @@ -274,10 +274,12 @@ def sign_operation(encoded_operation: str, secret_key: str) -> str: sig_hex = sign(watermarked_operation, sender_sk_bin) signed_op = encoded_operation + sig_hex return signed_op + + def check_run_failure(code, pattern, mode='stderr'): - """Executes [code()] and expects the code to fail and raise [subprocess.CalledProcessError]. - If so, the [pattern] is searched in stderr. If it is found, returns True; - else returns False. + """Executes [code()] and expects the code to fail and raise + [subprocess.CalledProcessError]. If so, the [pattern] is searched + in stderr. If it is found, returns True; else returns False. """ try: code() @@ -287,11 +289,10 @@ def check_run_failure(code, pattern, mode='stderr'): stderr_output = exc.args[3] data = [] if mode == 'stderr': - data = stderr_output + data = stderr_output.split('\n') else: data = stdout_output.split('\n') for line in data: if re.search(pattern, line): return True return False - -- GitLab From a60f09bffba7d649c1c8e2afe16c4cdf97516e7d Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Wed, 4 Sep 2019 14:30:04 +0200 Subject: [PATCH 089/252] Test: second_explosion_fail, larger input to make it fail --- tests_python/tests/test_contract.py | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/tests_python/tests/test_contract.py b/tests_python/tests/test_contract.py index 441cb2e726bb..48a4dcec2fd5 100644 --- a/tests_python/tests/test_contract.py +++ b/tests_python/tests/test_contract.py @@ -164,8 +164,8 @@ class TestGasBound: name = 'second_explosion.tz' contract = session[name] storage = '{}' - inp = ('{1;2;3;4;5;6;7;8;1;1;1;1;1;1;1;1;1;' + - '1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1;1}') + inp = ('{1;2;3;4;5;6;7;8;9;0;1;2;3;4;5;6;7;1;1;1;1;1;1;1;1;1;1;1' + + ';1;1;1;1;1;1;1;1;1;1;1}') def client_cmd(): client.run_script(contract, storage, inp) -- GitLab From fb8ee6da62b5f58c420cfd08989784f5e4cfffad Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Wed, 4 Sep 2019 14:30:53 +0200 Subject: [PATCH 090/252] Tests: fix parsing of decimal balance --- tests_python/client/client_output.py | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests_python/client/client_output.py b/tests_python/client/client_output.py index cddb1fa09337..2d1f77d2b9c7 100644 --- a/tests_python/client/client_output.py +++ b/tests_python/client/client_output.py @@ -195,7 +195,7 @@ def extract_rpc_answer(client_output: str) -> dict: def extract_balance(client_output: str) -> float: """Extract float balance from the output of 'get_balance' operation.""" try: - pattern = r"(\w*) ꜩ" + pattern = r"([\w.]*) ꜩ" match = re.search(pattern, client_output) if match is None: raise InvalidClientOutput(client_output) -- GitLab From 3f68ef52feab669d683f107099d29041fa55aa1d Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Mon, 2 Sep 2019 10:53:02 +0200 Subject: [PATCH 091/252] Pythonified test_contracts_opcodes.sh --- tests_python/client/client.py | 17 + tests_python/client/client_output.py | 11 + tests_python/tests/test_contract.py | 79 +-- tests_python/tests/test_contract_opcodes.py | 574 ++++++++++++++++++ .../tests/test_slice_fails_params.txt | 5 + .../tests/test_slice_success_params.txt | 1 + 6 files changed, 630 insertions(+), 57 deletions(-) create mode 100644 tests_python/tests/test_contract_opcodes.py create mode 100644 tests_python/tests/test_slice_fails_params.txt create mode 100644 tests_python/tests/test_slice_success_params.txt diff --git a/tests_python/client/client.py b/tests_python/client/client.py index e7254a46df3d..c40ac471cc9b 100644 --- a/tests_python/client/client.py +++ b/tests_python/client/client.py @@ -297,6 +297,14 @@ class Client: res = self.run(['get', 'balance', 'for', account]) return client_output.extract_balance(res) + def get_script_storage(self, contract: str) -> str: + res = self.run(['get', 'script', 'storage', 'for', contract]) + return res[:-1] + + def get_timestamp(self) -> str: + res = self.run(['get', 'timestamp']) + return res[:-1] + def get_receipt(self, operation: str, args: List[str] = None) -> client_output.GetReceiptResult: @@ -332,6 +340,12 @@ class Client: def get_head(self) -> dict: return self.rpc('get', '/chains/main/blocks/head') + def get_hash_data(self, + data: str, + typ: str) -> client_output.HashDataResult: + cmd = ['hash', 'data', data, 'of', 'type', typ] + return client_output.HashDataResult(self.run(cmd)) + def get_block(self, block_hash) -> dict: return self.rpc('get', f'/chains/main/blocks/{block_hash}') @@ -341,6 +355,9 @@ class Client: def get_ballots(self) -> dict: return self.rpc('get', '/chains/main/blocks/head/votes/ballots') + def get_contract_address(self, contract) -> str: + return self.run(['show', 'known', 'contract', contract]).strip() + def get_current_period_kind(self) -> dict: return self.rpc('get', 'chains/main/blocks/head/votes/current_period_kind') diff --git a/tests_python/client/client_output.py b/tests_python/client/client_output.py index 2d1f77d2b9c7..c628cad4002e 100644 --- a/tests_python/client/client_output.py +++ b/tests_python/client/client_output.py @@ -181,6 +181,17 @@ class SignatureResult: self.sig = match.groups()[0] +class HashDataResult: + """Result of a 'hash data' command.""" + + def __init__(self, client_output: str): + pattern = r"Raw Script-expression-ID-Hash: ?(\w*)" + match = re.search(pattern, client_output) + if match is None: + raise InvalidClientOutput(client_output) + self.raw_script_expression_id_hash = match.groups()[0] + + def extract_rpc_answer(client_output: str) -> dict: """Convert json client output to a dict representation. diff --git a/tests_python/tests/test_contract.py b/tests_python/tests/test_contract.py index 48a4dcec2fd5..4e4f997ba5a9 100644 --- a/tests_python/tests/test_contract.py +++ b/tests_python/tests/test_contract.py @@ -50,25 +50,11 @@ def all_contracts(): class TestContracts: """Test type checking and execution of a bunch of contracts""" - def test_gen_keys(self, client): - client.gen_key('foo') - client.gen_key('bar') - @pytest.mark.parametrize("contract", all_contracts()) def test_typecheck(self, client, contract): if contract.endswith('.tz'): client.typecheck(f'{CONTRACT_PATH}/{contract}') - # TODO add more tests here - @pytest.mark.parametrize("contract,param,storage,expected", - [('opcodes/ret_int.tz', 'None', 'Unit', - '(Some 300)')]) - def test_run(self, client, contract, param, storage, expected): - if contract.endswith('.tz'): - contract = f'{CONTRACT_PATH}/{contract}' - run_script_res = client.run_script(contract, param, storage) - assert run_script_res.storage == expected - FIRST_EXPLOSION = ''' { parameter unit; @@ -137,7 +123,7 @@ class TestGasBound: args = ['-G', '8000', '--burn-cap', '10'] def client_cmd(): - client.originate(f'{name}', 'bootstrap1', 0, + client.originate(f'{name}', 0, 'bootstrap1', contract, args) expected_error = "Gas limit exceeded during typechecking or execution" assert utils.check_run_failure(client_cmd, expected_error) @@ -174,7 +160,7 @@ class TestGasBound: " value within the provided gas bounds.") assert utils.check_run_failure(client_cmd, expected_error) - def test_typecheck_map_dup_key(self, client, _session): + def test_typecheck_map_dup_key(self, client): def client_cmd(): client.typecheck_data('{ Elt 0 1 ; Elt 0 1}', '(map nat nat)') @@ -183,7 +169,7 @@ class TestGasBound: ' keys, however a duplicate key was found') assert utils.check_run_failure(client_cmd, expected_error) - def test_typecheck_map_bad_ordering(self, client, _session): + def test_typecheck_map_bad_ordering(self, client): def client_cmd(): client.typecheck_data('{ Elt 0 1 ; Elt 10 1 ; Elt 5 1 }', @@ -193,7 +179,7 @@ class TestGasBound: " ascending order, but they were unordered in literal") assert utils.check_run_failure(client_cmd, expected_error) - def test_typecheck_set_bad_ordering(self, client, _session): + def test_typecheck_set_bad_ordering(self, client): def client_cmd(): client.typecheck_data('{ "A" ; "C" ; "B" }', '(set string)') @@ -202,7 +188,7 @@ class TestGasBound: " ascending order, but they were unordered in literal") assert utils.check_run_failure(client_cmd, expected_error) - def test_typecheck_set_no_duplicates(self, client, _session): + def test_typecheck_set_no_duplicates(self, client): def client_cmd(): client.typecheck_data('{ "A" ; "B" ; "B" }', '(set string)') expected_error = \ @@ -265,7 +251,7 @@ class TestNonRegression: path = f'{CONTRACT_PATH}/non_regression/bug_262.tz' originate(client, session, path, 'Unit', 1) - def test_issue_242_assert_balance(self, client, _session): + def test_issue_242_assert_balance(self, client): assert client.get_balance('bug_262') == 1 @@ -278,46 +264,25 @@ class TestMiniScenarios: path = f'{CONTRACT_PATH}/mini_scenarios/replay.tz' originate(client, session, path, 'Unit', 0) - def test_replay_transfer_fail(self, client, _session): + def test_replay_transfer_fail(self, client): def client_cmd(): client.transfer(0, "bootstrap1", "replay", []) assert utils.check_run_failure(client_cmd, "Internal operation replay attempt") - # create_account.tz related tests - def test_create_account_originate(self, client, session): - path = f'{CONTRACT_PATH}/mini_scenarios/create_account.tz' - originate(client, session, path, 'None', 1000) - - def test_create_account_balance(self, client, _session): - assert client.get_balance('create_account') == 1000 - - def test_create_account_perform_creation(self, client, _session): - tz1 = IDENTITIES['bootstrap1']['identity'] - transfer_result = client.transfer(100, "bootstrap1", "create_account", - ['-arg', - f'(Left "{tz1}")', - '--burn-cap', '10']) - pattern = r"New contract (\w*) originated" - match = re.search(pattern, transfer_result.client_output) - kt_1 = match.groups()[0] - client.bake('bootstrap5', BAKE_ARGS) - assert client.get_balance(kt_1) == 100 - assert client.get_balance('create_account') == 1000 - # create_contract.tz related tests def test_create_contract_originate(self, client, session): path = f'{CONTRACT_PATH}/mini_scenarios/create_contract.tz' originate(client, session, path, 'Unit', 1000) - def test_create_contract_balance(self, client, _session): + def test_create_contract_balance(self, client): assert client.get_balance('create_contract') == 1000 - def test_create_contract_perform_creation(self, client, _session): + def test_create_contract_perform_creation(self, client): tz1 = IDENTITIES['bootstrap1']['identity'] transfer_result = client.transfer(0, "bootstrap1", "create_contract", ['-arg', - f'(Left "{tz1}")', + 'None', '--burn-cap', '10']) client.bake('bootstrap5', BAKE_ARGS) @@ -333,7 +298,7 @@ class TestMiniScenarios: path = f'{CONTRACT_PATH}/mini_scenarios/default_account.tz' originate(client, session, path, 'Unit', 1000) - def test_default_account_transfer_then_bake(self, client, _session): + def test_default_account_transfer_then_bake(self, client): tz1 = IDENTITIES['bootstrap4']['identity'] client.transfer(0, "bootstrap1", "default_account", ['-arg', f'"{tz1}"', '--burn-cap', '10']) @@ -353,7 +318,7 @@ class TestMiniScenarios: storage = f'(Pair {byt} "{sign}")' originate(client, session, path, storage, 1000) - def test_wrong_preimage(self, client, _session): + def test_wrong_preimage(self, client): byt = ('0x050100000027566f756c657a2d766f75732' + '0636f75636865722061766563206d6f692c20636520736f6972') sign = ('p2sigvgDSBnN1bUsfwyMvqpJA1cFhE5s5oi7SetJ' + @@ -367,7 +332,7 @@ class TestMiniScenarios: assert utils.check_run_failure(client_cmd, "At line 8 characters 9 to 21") - def test_wrong_signature(self, client, _session): + def test_wrong_signature(self, client): byt = ('0x050100000027566f756c657a2d766f757320636' + 'f75636865722061766563206d6f692c20636520736f6972203f') sign = ('p2sigvgDSBnN1bUsfwyMvqpJA1cFhE5s5oi7SetJVQ6' + @@ -381,7 +346,7 @@ class TestMiniScenarios: assert utils.check_run_failure(client_cmd, "At line 15 characters 9 to 15") - def test_good_preimage_and_signature(self, client, _session): + def test_good_preimage_and_signature(self, client): byt = ('0x050100000027566f756c657a2d766f757320636f7563' + '6865722061766563206d6f692c20636520736f6972203f') sign = ('p2sigsceCzcDw2AeYDzUonj4JT341WC9Px4wdhHBxbZcG1F' + @@ -400,7 +365,7 @@ class TestMiniScenarios: originate(client, session, path, storage, 1000) assert client.get_delegate('vote_for_delegate').delegate is None - def test_vote_for_delegate_wrong_identity1(self, client, _session): + def test_vote_for_delegate_wrong_identity1(self, client): def client_cmd(): client.transfer(0, "bootstrap1", "vote_for_delegate", ['-arg', 'None', '--burn-cap', '10']) @@ -408,7 +373,7 @@ class TestMiniScenarios: assert utils.check_run_failure(client_cmd, "At line 15 characters 57 to 61") - def test_vote_for_delegate_wrong_identity2(self, client, _session): + def test_vote_for_delegate_wrong_identity2(self, client): def client_cmd(): client.transfer(0, "bootstrap2", "vote_for_delegate", ['-arg', 'None', '--burn-cap', '10']) @@ -416,7 +381,7 @@ class TestMiniScenarios: assert utils.check_run_failure(client_cmd, "At line 15 characters 57 to 61") - def test_vote_for_delegate_b3_vote_for_b5(self, client, _session): + def test_vote_for_delegate_b3_vote_for_b5(self, client): b_5 = IDENTITIES['bootstrap5']['identity'] client.transfer(0, "bootstrap3", "vote_for_delegate", ['-arg', f'(Some "{b_5}")', '--burn-cap', '10']) @@ -424,10 +389,10 @@ class TestMiniScenarios: storage = client.get_storage('vote_for_delegate') assert re.search(b_5, storage) - def test_vote_for_delegate_still_no_delegate1(self, client, _session): + def test_vote_for_delegate_still_no_delegate1(self, client): assert client.get_delegate('vote_for_delegate').delegate is None - def test_vote_for_delegate_b4_vote_for_b2(self, client, _session): + def test_vote_for_delegate_b4_vote_for_b2(self, client): b_2 = IDENTITIES['bootstrap2']['identity'] client.transfer(0, "bootstrap4", "vote_for_delegate", ['-arg', f'(Some "{b_2}")', '--burn-cap', '10']) @@ -435,10 +400,10 @@ class TestMiniScenarios: storage = client.get_storage('vote_for_delegate') assert re.search(b_2, storage) - def test_vote_for_delegate_still_no_delegate2(self, client, _session): + def test_vote_for_delegate_still_no_delegate2(self, client): assert client.get_delegate('vote_for_delegate').delegate is None - def test_vote_for_delegate_b4_vote_for_b5(self, client, _session): + def test_vote_for_delegate_b4_vote_for_b5(self, client): b_5 = IDENTITIES['bootstrap5']['identity'] client.transfer(0, "bootstrap4", "vote_for_delegate", ['-arg', f'(Some "{b_5}")', '--burn-cap', '10']) @@ -446,7 +411,7 @@ class TestMiniScenarios: storage = client.get_storage('vote_for_delegate') assert re.search(b_5, storage) - def test_vote_for_delegate_has_delegate(self, client, _session): + def test_vote_for_delegate_has_delegate(self, client): b_5 = IDENTITIES['bootstrap5']['identity'] result = client.get_delegate('vote_for_delegate') assert result.delegate == b_5 diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py new file mode 100644 index 000000000000..f1b4405c9bc5 --- /dev/null +++ b/tests_python/tests/test_contract_opcodes.py @@ -0,0 +1,574 @@ +import os +import pytest +from tools import paths +from tools.utils import check_run_failure + +from client.client import Client +from client.client_output import BakeForResult, RunScriptResult + +CONTRACT_PATH = f'{paths.TEZOS_HOME}/src/bin_client/test/contracts/opcodes/' +KEY1 = 'foo' +KEY2 = 'bar' + + +@pytest.mark.incremental +@pytest.mark.slow +@pytest.mark.contract +class TestContractOpcodes: + def test_gen_keys(self, client): + """Add keys used by later tests.""" + client.gen_key(KEY1) + client.gen_key(KEY2) + + @pytest.mark.parametrize( + "contract,param,storage,expected", + [ # FORMAT: assert_output contract_file storage input expected_result + + # TODO add tests for map_car.tz, subset.tz + # NB: noop.tz is tested in test_basic.sh + + ('ret_int.tz', 'None', 'Unit', '(Some 300)'), + + # Map block on lists + ('list_map_block.tz', '{0}', '{}', '{}'), + ('list_map_block.tz', '{0}', '{ 1 ; 1 ; 1 ; 1 }', + '{ 1 ; 2 ; 3 ; 4 }'), + ('list_map_block.tz', '{0}', '{ 1 ; 2 ; 3 ; 0 }', + '{ 1 ; 3 ; 5 ; 3 }'), + + # Reverse a list + ('reverse.tz', '{""}', '{}', '{}'), + ('reverse.tz', '{""}', '{ "c" ; "b" ; "a" }', + '{ "a" ; "b" ; "c" }'), + + # Reverse using LOOP_LEFT + ('loop_left.tz', '{""}', '{}', '{}'), + ('loop_left.tz', '{""}', '{ "c" ; "b" ; "a" }', + '{ "a" ; "b" ; "c" }'), + + # Identity on strings + ('str_id.tz', 'None', '"Hello"', '(Some "Hello")'), + ('str_id.tz', 'None', '"abcd"', '(Some "abcd")'), + + # Identity on pairs + ('pair_id.tz', 'None', '(Pair True False)', + '(Some (Pair True False))'), + ('pair_id.tz', 'None', '(Pair False True)', + '(Some (Pair False True))'), + ('pair_id.tz', 'None', '(Pair True True)', + '(Some (Pair True True))'), + ('pair_id.tz', 'None', '(Pair False False)', + '(Some (Pair False False))'), + + # Logical not + ('not.tz', 'None', 'True', '(Some False)'), + ('not.tz', 'None', 'False', '(Some True)'), + + # Logical and + ('and.tz', 'None', '(Pair False False)', '(Some False)'), + ('and.tz', 'None', '(Pair False True)', '(Some False)'), + ('and.tz', 'None', '(Pair True False)', '(Some False)'), + ('and.tz', 'None', '(Pair True True)', '(Some True)'), + + # Logical or + ('or.tz', 'None', '(Pair False False)', '(Some False)'), + ('or.tz', 'None', '(Pair False True)', '(Some True)'), + ('or.tz', 'None', '(Pair True False)', '(Some True)'), + ('or.tz', 'None', '(Pair True True)', '(Some True)'), + + # XOR + ('xor.tz', 'None', '(Pair False False)', '(Some False)'), + ('xor.tz', 'None', '(Pair False True)', '(Some True)'), + ('xor.tz', 'None', '(Pair True False)', '(Some True)'), + ('xor.tz', 'None', '(Pair True True)', '(Some False)'), + + + # Concatenate all strings of a list into one string + ('concat_list.tz', '""', '{ "a" ; "b" ; "c" }', '"abc"'), + ('concat_list.tz', '""', '{}', '""'), + ('concat_list.tz', '""', '{ "Hello" ; " " ; "World" ; "!" }', + '"Hello World!"'), + + # Identity on lists + ('list_id.tz', '{""}', '{ "1" ; "2" ; "3" }', + '{ "1" ; "2" ; "3" }'), + ('list_id.tz', '{""}', '{}', '{}'), + ('list_id.tz', '{""}', '{ "a" ; "b" ; "c" }', + '{ "a" ; "b" ; "c" }'), + + ('list_id_map.tz', '{""}', '{ "1" ; "2" ; "3" }', + '{ "1" ; "2" ; "3" }'), + ('list_id_map.tz', '{""}', '{}', '{}'), + ('list_id_map.tz', '{""}', '{ "a" ; "b" ; "c" }', + '{ "a" ; "b" ; "c" }'), + + + # Identity on maps + ('map_id.tz', '{}', '{ Elt 0 1 }', '{ Elt 0 1 }'), + ('map_id.tz', '{}', '{ Elt 0 0 }', '{ Elt 0 0 }'), + ('map_id.tz', '{}', '{ Elt 0 0 ; Elt 3 4 }', + '{ Elt 0 0 ; Elt 3 4 }'), + + # Identity on sets + ('set_id.tz', '{}', '{ "a" ; "b" ; "c" }', '{ "a" ; "b" ; "c" }'), + ('set_id.tz', '{}', '{}', '{}'), + ('set_id.tz', '{}', '{ "asdf" ; "bcde" }', '{ "asdf" ; "bcde" }'), + + # List concat + ('list_concat.tz', '"abc"', '{ "d" ; "e" ; "f" }', '"abcdef"'), + ('list_concat.tz', '"abc"', '{}', '"abc"'), + + ('list_concat_bytes.tz', '0x00ab', '{ 0xcd ; 0xef ; 0x00 }', + '0x00abcdef00'), + ('list_concat_bytes.tz', '0x', '{ 0x00 ; 0x11 ; 0x00 }', + '0x001100'), + ('list_concat_bytes.tz', '0xabcd', '{}', '0xabcd'), + ('list_concat_bytes.tz', '0x', '{}', '0x'), + + # List iter + ('list_iter.tz', '0', '{ 10 ; 2 ; 1 }', '20'), + ('list_iter.tz', '0', '{ 3 ; 6 ; 9 }', '162'), + + # Set member -- set is in storage + ('set_member.tz', '(Pair {} None)', '"Hi"', + '(Pair {} (Some False))'), + ('set_member.tz', '(Pair { "Hi" } None)', '"Hi"', + '(Pair { "Hi" } (Some True))'), + ('set_member.tz', '(Pair { "Hello" ; "World" } None)', '""', + '(Pair { "Hello" ; "World" } (Some False))'), + + # Set size + ('set_size.tz', '111', '{}', '0'), + ('set_size.tz', '111', '{ 1 }', '1'), + ('set_size.tz', '111', '{ 1 ; 2 ; 3 }', '3'), + ('set_size.tz', '111', '{ 1 ; 2 ; 3 ; 4 ; 5 ; 6 }', '6'), + + # Set iter + ('set_iter.tz', '111', '{}', '0'), + ('set_iter.tz', '111', '{ 1 }', '1'), + ('set_iter.tz', '111', '{ -100 ; 1 ; 2 ; 3 }', '-94'), + + # Map size + ('map_size.tz', '111', '{}', '0'), + ('map_size.tz', '111', '{ Elt "a" 1 }', '1'), + ('map_size.tz', '111', '{ Elt "a" 1 ; Elt "b" 2 ; Elt "c" 3 }', + '3'), + ('map_size.tz', '111', '{ Elt "a" 1 ; Elt "b" 2 ; Elt "c" 3 ; \ + Elt "d" 4 ; Elt "e" 5 ; Elt "f" 6 }', + '6'), + + # Contains all elements -- does the second list contain + # all of the same elements as the first one? I'm ignoring + # element multiplicity + ('contains_all.tz', 'None', '(Pair {} {})', + '(Some True)'), + ('contains_all.tz', 'None', '(Pair { "a" } { "B" })', + '(Some False)'), + ('contains_all.tz', 'None', '(Pair { "A" } { "B" })', + '(Some False)'), + ('contains_all.tz', 'None', '(Pair { "B" } { "B" })', + '(Some True)'), + ('contains_all.tz', 'None', + '(Pair { "B" ; "C" ; "asdf" } { "B" ; "B" ; "asdf" ; "C" })', + '(Some True)'), + ('contains_all.tz', 'None', + '(Pair { "B" ; "B" ; "asdf" ; "C" } { "B" ; "C" ; "asdf" })', + '(Some True)'), + + # Concatenate the string in storage with all strings in + # the given list + ('concat_hello.tz', '{}', '{ "World!" }', '{ "Hello World!" }'), + ('concat_hello.tz', '{}', '{}', '{}'), + ('concat_hello.tz', '{}', '{ "test1" ; "test2" }', + '{ "Hello test1" ; "Hello test2" }'), + + # Create an empty map and add a string to it + ('empty_map.tz', '{}', 'Unit', '{ Elt "hello" "world" }'), + + # Get the value stored at the given key in the map + ('get_map_value.tz', '(Pair None { Elt "hello" "hi" })', + '"hello"', '(Pair (Some "hi") { Elt "hello" "hi" })'), + ('get_map_value.tz', '(Pair None { Elt "hello" "hi" })', + '""', '(Pair None { Elt "hello" "hi" })'), + ('get_map_value.tz', '(Pair None { Elt "1" "one" ; \ + Elt "2" "two" })', + '"1"', '(Pair (Some "one") { Elt "1" "one" ; Elt "2" "two" })'), + + # Map iter + ('map_iter.tz', '(Pair 0 0)', '{ Elt 0 100 ; Elt 2 100 }', + '(Pair 2 200)'), + ('map_iter.tz', '(Pair 0 0)', '{ Elt 1 1 ; Elt 2 100 }', + '(Pair 3 101)'), + + # Return True if True branch of if was taken and False otherwise + ('if.tz', 'None', 'True', '(Some True)'), + ('if.tz', 'None', 'False', '(Some False)'), + + # Generate a pair of or types + ('left_right.tz', '(Left "X")', '(Left True)', '(Right True)'), + ('left_right.tz', '(Left "X")', '(Right "a")', '(Left "a")'), + + # Reverse a list + ('reverse_loop.tz', '{""}', '{}', '{}'), + ('reverse_loop.tz', '{""}', '{ "c" ; "b" ; "a" }', + '{ "a" ; "b" ; "c" }'), + + # Exec concat contract + ('exec_concat.tz', '"?"', '""', '"_abc"'), + ('exec_concat.tz', '"?"', '"test"', '"test_abc"'), + + # Get current steps to quota + ('steps_to_quota.tz', '111', 'Unit', '799813'), + + # Get the current balance of the contract + ('balance.tz', '111', 'Unit', '4000000000000'), + + # Test addition and subtraction on tez + ('tez_add_sub.tz', 'None', '(Pair 2000000 1000000)', + '(Some (Pair 3000000 1000000))'), + ('tez_add_sub.tz', 'None', '(Pair 2310000 1010000)', + '(Some (Pair 3320000 1300000))'), + + # Test get first element of list + ('first.tz', '111', '{ 1 ; 2 ; 3 ; 4 }', '1'), + ('first.tz', '111', '{ 4 }', '4'), + + # Hash input string + # Test assumed to be correct -- hash is based on encoding of AST + ('hash_string.tz', '0x00', '"abcdefg"', '0x46fdbcb4ea4eadad5615c' + + 'daa17d67f783e01e21149ce2b27de497600b4cd8f4e'), + ('hash_string.tz', '0x00', '"12345"', '0xb4c26c20de52a4eaf0d8a34' + + '0db47ad8cb1e74049570859c9a9a3952b204c772f'), + + # IF_SOME + ('if_some.tz', '"?"', '(Some "hello")', '"hello"'), + ('if_some.tz', '"?"', 'None', '""'), + + # Tests the SET_CAR and SET_CDR instructions + ('set_car.tz', '(Pair "hello" 0)', '"world"', '(Pair "world" 0)'), + ('set_car.tz', '(Pair "hello" 0)', '"abc"', '(Pair "abc" 0)'), + ('set_car.tz', '(Pair "hello" 0)', '""', '(Pair "" 0)'), + + ('set_cdr.tz', '(Pair "hello" 0)', '1', '(Pair "hello" 1)'), + ('set_cdr.tz', '(Pair "hello" 500)', '3', '(Pair "hello" 3)'), + ('set_cdr.tz', '(Pair "hello" 7)', '100', '(Pair "hello" 100)'), + + # Convert a public key to a public key hash + ('hash_key.tz', 'None', + '"edpkuBknW28nW72KG6RoHtYW7p12T6GKc7nAbwYX5m8Wd9sDVC9yav"', + '(Some "tz1KqTpEZ7Yob7QbPE4Hy4Wo8fHG8LhKxZSx")'), + ('hash_key.tz', 'None', + '"edpkuJqtDcA2m2muMxViSM47MPsGQzmyjnNTawUPqR8vZTAMcx61ES"', + '(Some "tz1XPTDmvT3vVE5Uunngmixm7gj7zmdbPq6k")'), + + # Test timestamp operations + ('add_timestamp_delta.tz', 'None', + '(Pair 100 100)', '(Some "1970-01-01T00:03:20Z")'), + ('add_timestamp_delta.tz', 'None', + '(Pair 100 -100)', '(Some "1970-01-01T00:00:00Z")'), + ('add_timestamp_delta.tz', 'None', + '(Pair "1970-01-01T00:00:00Z" 0)', + '(Some "1970-01-01T00:00:00Z")'), + + ('add_delta_timestamp.tz', 'None', + '(Pair 100 100)', '(Some "1970-01-01T00:03:20Z")'), + ('add_delta_timestamp.tz', 'None', + '(Pair -100 100)', '(Some "1970-01-01T00:00:00Z")'), + ('add_delta_timestamp.tz', 'None', + '(Pair 0 "1970-01-01T00:00:00Z")', + '(Some "1970-01-01T00:00:00Z")'), + + ('sub_timestamp_delta.tz', '111', '(Pair 100 100)', + '"1970-01-01T00:00:00Z"'), + ('sub_timestamp_delta.tz', '111', '(Pair 100 -100)', + '"1970-01-01T00:03:20Z"'), + ('sub_timestamp_delta.tz', '111', '(Pair 100 2000000000000000000)', + '-1999999999999999900'), + + ('diff_timestamps.tz', '111', '(Pair 0 0)', '0'), + ('diff_timestamps.tz', '111', '(Pair 0 1)', '-1'), + ('diff_timestamps.tz', '111', '(Pair 1 0)', '1'), + ('diff_timestamps.tz', '111', + '(Pair "1970-01-01T00:03:20Z" "1970-01-01T00:00:00Z")', '200'), + ]) + def test_contract_input_output(self, + client, + contract, + param, + storage, + expected): + if contract.endswith('.tz'): + contract = f'{CONTRACT_PATH}/{contract}' + run_script_res = client.run_script(contract, param, storage) + assert run_script_res.storage == expected + + def test_packunpack(self, client): + """Test PACK/UNPACK and binary format.""" + assert_run_script_success( + client, + f'{CONTRACT_PATH}/packunpack.tz', + 'Unit', + '(Pair (Pair (Pair "toto" {3;7;9;1}) {1;2;3}) ' + + '0x05070707070100000004746f746f020000000800030' + + '007000900010200000006000100020003)' + ) + assert_run_script_failwith( + client, + f'{CONTRACT_PATH}/packunpack.tz', + 'Unit', + '(Pair (Pair (Pair "toto" {3;7;9;1}) {1;2;3}) ' + + '0x05070707070100000004746f746f020000000800030' + + '0070009000102000000060001000200030004)' + ) + + def test_fails_annotated_set_car_cdr(self, client): + """Tests the SET_CAR and SET_CDR instructions.""" + def cmd(): + client.run_script(f'{CONTRACT_PATH}/set_car.tz', + '(Pair %wrong %field "hello" 0)', + '""') + assert check_run_failure(cmd, r'The two annotations do not match') + + def test_check_signature(self, client): + sig = 'edsigthTzJ8X7MPmNeEwybRAvdxS1pupqcM5Mk4uCuyZA' \ + + 'e7uEk68YpuGDeViW8wSXMrCi5CwoNgqs8V2w8ayB5dMJzrYCHhD8C7' + assert_run_script_success( + client, + f'{CONTRACT_PATH}/check_signature.tz', + f'(Pair "{sig}" "hello")', + '"edpkuBknW28nW72KG6RoHtYW7p12T6GKc7nAbwYX5m8Wd9sDVC9yav"' + ) + assert_run_script_failwith( + client, + f'{CONTRACT_PATH}/check_signature.tz', + f'(Pair "{sig}" "abcd")', + '"edpkuBknW28nW72KG6RoHtYW7p12T6GKc7nAbwYX5m8Wd9sDVC9yav"' + ) + + def test_store_input(self, client): + client.transfer(1000, "bootstrap1", KEY1, ['--burn-cap', '0.257']) + bake(client) + + client.transfer(2000, "bootstrap1", KEY2, ['--burn-cap', '0.257']) + bake(client) + + assert_balance(client, KEY1, 1000) + assert_balance(client, KEY2, 2000) + + # Create a contract and transfer 100 ꜩ to it + init_with_transfer(client, f'{CONTRACT_PATH}/store_input.tz', + KEY1, '""', 100, 'bootstrap1') + + client.transfer(100, "bootstrap1", "store_input", + ["-arg", '"abcdefg"', '--burn-cap', '10']) + bake(client) + + assert_balance(client, "store_input", 200) + + assert_storage_contains(client, "store_input", '"abcdefg"') + + client.transfer(100, "bootstrap1", "store_input", + ["-arg", '"xyz"', '--burn-cap', '10']) + bake(client) + + assert_storage_contains(client, "store_input", '"xyz"') + + def test_transfer_amount(self, client): + init_with_transfer(client, + f'{CONTRACT_PATH}/transfer_amount.tz', + KEY1, '0', 100, 'bootstrap1') + + client.transfer(500, "bootstrap1", 'transfer_amount', + ['-arg', 'Unit', '--burn-cap', '10']) + bake(client) + + assert_storage_contains(client, "transfer_amount", '500000000') + + def test_now(self, client): + init_with_transfer(client, + f'{CONTRACT_PATH}/store_now.tz', + KEY1, '"2017-07-13T09:19:01Z"', 100, 'bootstrap1') + + client.transfer(500, "bootstrap1", 'store_now', + ['-arg', 'Unit', '--burn-cap', '10']) + bake(client) + + assert_storage_contains(client, 'store_now', + f'"{client.get_timestamp()}"') + + def test_transfer_tokens(self, client): + """Tests TRANSFER_TOKENS.""" + client.originate_account('test_transfer_account1', KEY1, 100, + 'bootstrap1', ['--burn-cap', '10']) + bake(client) + + client.originate_account('test_transfer_account2', KEY2, 20, + 'bootstrap1', ['--burn-cap', '10']) + bake(client) + + init_with_transfer(client, f'{CONTRACT_PATH}/transfer_tokens.tz', + KEY2, 'Unit', 1000, 'bootstrap1') + + assert_balance(client, 'test_transfer_account1', 100) + + account1_addr = client.get_contract_address('test_transfer_account1') + client.transfer(100, 'bootstrap1', 'transfer_tokens', + ['-arg', f'"{account1_addr}"', '--burn-cap', '10']) + bake(client) + + # Why isn't this 200 ꜩ? Baking fee? + assert_balance(client, 'test_transfer_account1', 200) + + account2_addr = client.get_contract_address('test_transfer_account2') + client.transfer(100, 'bootstrap1', 'transfer_tokens', + ['-arg', f'"{account2_addr}"', '--burn-cap', '10']) + bake(client) + + assert_balance(client, 'test_transfer_account2', 120) + + def test_self(self, client): + init_with_transfer(client, f'{CONTRACT_PATH}/self.tz', + KEY1, '"tz1KqTpEZ7Yob7QbPE4Hy4Wo8fHG8LhKxZSx"', + 1000, 'bootstrap1') + + client.transfer(0, 'bootstrap1', 'self', ['--burn-cap', '10']) + bake(client) + + self_addr = client.get_contract_address('self') + assert_storage_contains(client, 'self', f'"{self_addr}"') + + def test_slice(self, client): + init_with_transfer( + client, f'{CONTRACT_PATH}/slices.tz', 'bootstrap1', + '"sppk7dBPqMPjDjXgKbb5f7V3PuKUrA4Zuwc3c3H7XqQerqPUWbK7Hna"', + 1000, 'bootstrap1') + + @pytest.mark.parametrize('contract_arg', + [line.rstrip('\n') + for line + in open(f'{paths.TEZOS_HOME}/tests_python/tests/' + + 'test_slice_fails_params.txt')]) + def test_slice_fails(self, client, contract_arg): + def cmd(): + client.transfer( + 0, 'bootstrap1', 'slices', + ['-arg', contract_arg, '--burn-cap', '10']) + + assert check_run_failure(cmd, r'script reached FAILWITH instruction') + # bake(client) + + @pytest.mark.parametrize('contract_arg', + [line.rstrip('\n') + for line + in open(f'{paths.TEZOS_HOME}/tests_python/tests/' + + 'test_slice_success_params.txt')]) + def test_slice_success(self, client, contract_arg): + client.transfer(0, 'bootstrap1', 'slices', + ['-arg', contract_arg, '--burn-cap', '10']) + bake(client) + + def test_split_string(self, client): + init_with_transfer(client, f'{CONTRACT_PATH}/split_string.tz', + 'bootstrap1', '{}', + 1000, 'bootstrap1') + + client.transfer(0, 'bootstrap1', 'split_string', + ['-arg', '"abc"', '--burn-cap', '10']) + bake(client) + assert_storage_contains(client, 'split_string', + '{ "a" ; "b" ; "c" }') + + client.transfer(0, 'bootstrap1', 'split_string', + ['-arg', '"def"', '--burn-cap', '10']) + bake(client) + assert_storage_contains(client, 'split_string', + '{ "a" ; "b" ; "c" ; "d" ; "e" ; "f" }') + + def test_split_bytes(self, client): + init_with_transfer(client, f'{CONTRACT_PATH}/split_bytes.tz', + 'bootstrap1', '{}', + 1000, 'bootstrap1') + + client.transfer(0, 'bootstrap1', 'split_bytes', + ['-arg', '0xaabbcc', '--burn-cap', '10']) + bake(client) + assert_storage_contains(client, 'split_bytes', + '{ 0xaa ; 0xbb ; 0xcc }') + + client.transfer(0, 'bootstrap1', 'split_bytes', + ['-arg', '0xddeeff', '--burn-cap', '10']) + bake(client) + assert_storage_contains(client, 'split_bytes', + '{ 0xaa ; 0xbb ; 0xcc ; 0xdd ; 0xee ; 0xff }') + + def test_hash_consistency_michelson_cli(self, client): + hash_result = client.get_hash_data( + '(Pair 22220000000 (Pair "2017-12-13T04:49:00Z" 034))', + '(pair mutez (pair timestamp int))').raw_script_expression_id_hash + hash_contract = f'{CONTRACT_PATH}/hash_consistency_checker.tz' + run_script_res = client.run_script( + hash_contract, '0x00', + '(Pair 22220000000 (Pair "2017-12-13T04:49:00Z" 034))') + assert run_script_res.storage == hash_result + run_script_res = client.run_script( + hash_contract, '0x00', + '(Pair 22220000000 (Pair "2017-12-13T04:49:00Z" 034))') + assert run_script_res.storage == hash_result + + +def assert_storage_contains(client: Client, + contract: str, + expected_storage: str) -> None: + actual_storage = client.get_script_storage(contract) + assert actual_storage == expected_storage + + +def contract_name_of_file(contract_path: str) -> str: + return os.path.splitext(os.path.basename(contract_path))[0] + + +def bake(client: Client) -> BakeForResult: + return client.bake('bootstrap1', + ['--max-priority', '512', + '--minimal-timestamp', + '--minimal-fees', '0', + '--minimal-nanotez-per-byte', '0', + '--minimal-nanotez-per-gas-unit', '0']) + + +def init_with_transfer(client: Client, + contract: str, + manager: str, + initial_storage: str, + amount: float, + sender: str): + client.originate(contract_name_of_file(contract), manager, amount, + sender, contract, + ['-init', initial_storage, '--burn-cap', '10']) + bake(client) + + +def assert_balance(client: Client, + account: str, + expected_balance: float) -> None: + actual_balance = client.get_balance(account) + assert actual_balance == expected_balance + + +def assert_run_script_success(client: Client, + contract: str, + param: str, + storage: str) -> RunScriptResult: + return client.run_script(contract, param, storage) + + +def assert_run_script_failwith(client: Client, + contract: str, + param: str, + storage: str) -> None: + # TODO: ideally check that an the actual FAILWITH instruction is + # reached. to do this, client needs modification + def cmd(): + client.run_script(contract, param, storage) + + assert check_run_failure(cmd, r'script reached FAILWITH instruction') diff --git a/tests_python/tests/test_slice_fails_params.txt b/tests_python/tests/test_slice_fails_params.txt new file mode 100644 index 000000000000..7241bd22aff3 --- /dev/null +++ b/tests_python/tests/test_slice_fails_params.txt @@ -0,0 +1,5 @@ +(Pair 0xe009ab79e8b84ef0e55c43a9a857214d8761e67b75ba63500a5694fb2ffe174acc2de22d01ccb7259342437f05e1987949f0ad82e9f32e9a0b79cb252d7f7b8236ad728893f4e7150742eefdbeda254970f9fcd92c6228c178e1a923e5600758eb83f2a05edd0be7625657901f2ba81eaf145d003dbef78e33f43a32a3788bdf0501000000085341554349535345 "p2sigsceCzcDw2AeYDzUonj4JT341WC9Px4wdhHBxbZcG1FhfqFVuG7f2fGCzrEHSAZgrsrQWpxduDPk9qZRgrpzwJnSHC3gZJ") +(Pair 0xeaa9ab79e8b84ef0e55c43a9a857214d8761e67b75ba63500a5694fb2ffe174acc2de22d01ccb7259342437f05e1987949f0ad82e9f32e9a0b79cb252d7f7b8236ad728893f4e7150742eefdbeda254970f9fcd92c6228c178e1a923e5600758eb83f2a05edd0be7625657901f2ba81eaf145d003dbef78e33f43a32a3788bdf0501000000085341554349535345 "spsig1PPUFZucuAQybs5wsqsNQ68QNgFaBnVKMFaoZZfi1BtNnuCAWnmL9wVy5HfHkR6AeodjVGxpBVVSYcJKyMURn6K1yknYLm") +(Pair 0xe009ab79e8b84ef0e55c43a9a857214d8761e67b75ba63500a5694fb2ffe174acc2deaad01ccb7259342437f05e1987949f0ad82e9f32e9a0b79cb252d7f7b8236ad728893f4e7150742eefdbeda254970f9fcd92c6228c178e1a923e5600758eb83f2a05edd0be7625657901f2ba81eaf145d003dbef78e33f43a32a3788bdf0501000000085341554349535345 "spsig1PPUFZucuAQybs5wsqsNQ68QNgFaBnVKMFaoZZfi1BtNnuCAWnmL9wVy5HfHkR6AeodjVGxpBVVSYcJKyMURn6K1yknYLm") +(Pair 0xe009ab79e8b84ef0e55c43a9a857214d8761e67b75ba63500a5694fb2ffe174acc2de22d01ccb7259342437f05e1987949f0ad82e9f32e9a0b79cb252d7f7b8236ad728893f4e7150733eefdbeda254970f9fcd92c6228c178e1a923e5600758eb83f2a05edd0be7625657901f2ba81eaf145d003dbef78e33f43a32a3788bdf0501000000085341554349535345 "spsig1PPUFZucuAQybs5wsqsNQ68QNgFaBnVKMFaoZZfi1BtNnuCAWnmL9wVy5HfHkR6AeodjVGxpBVVSYcJKyMURn6K1yknYLm") +(Pair 0xe009ab79e8b84ef0 "spsig1PPUFZucuAQybs5wsqsNQ68QNgFaBnVKMFaoZZfi1BtNnuCAWnmL9wVy5HfHkR6AeodjVGxpBVVSYcJKyMURn6K1yknYLm") diff --git a/tests_python/tests/test_slice_success_params.txt b/tests_python/tests/test_slice_success_params.txt new file mode 100644 index 000000000000..8c0d89bd8142 --- /dev/null +++ b/tests_python/tests/test_slice_success_params.txt @@ -0,0 +1 @@ +(Pair 0xe009ab79e8b84ef0e55c43a9a857214d8761e67b75ba63500a5694fb2ffe174acc2de22d01ccb7259342437f05e1987949f0ad82e9f32e9a0b79cb252d7f7b8236ad728893f4e7150742eefdbeda254970f9fcd92c6228c178e1a923e5600758eb83f2a05edd0be7625657901f2ba81eaf145d003dbef78e33f43a32a3788bdf0501000000085341554349535345 "spsig1PPUFZucuAQybs5wsqsNQ68QNgFaBnVKMFaoZZfi1BtNnuCAWnmL9wVy5HfHkR6AeodjVGxpBVVSYcJKyMURn6K1yknYLm") -- GitLab From 0e6ad43e729cbacbcce786f57ffadbc192afeeb8 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Mon, 2 Sep 2019 10:57:16 +0200 Subject: [PATCH 092/252] Remove test_contracts_opcode.sh --- .gitlab-ci.yml | 11 +- src/bin_client/test/dune | 17 - src/bin_client/test/test_contracts_opcode.sh | 375 ------------------- 3 files changed, 6 insertions(+), 397 deletions(-) delete mode 100644 src/bin_client/test/test_contracts_opcode.sh diff --git a/.gitlab-ci.yml b/.gitlab-ci.yml index e69e459f7094..b4765a038a74 100644 --- a/.gitlab-ci.yml +++ b/.gitlab-ci.yml @@ -183,11 +183,6 @@ integration:basic.sh: script: - dune build @src/bin_client/runtest_basic.sh -integration:contracts_opcode.sh: - <<: *integration_definition - script: - - dune build @src/bin_client/runtest_contracts_opcode.sh - integration:contracts_macros.sh: <<: *integration_definition script: @@ -277,6 +272,12 @@ integration:contract_baker: - pytest tests_python/tests/test_contract_baker.py stage: test +integration:contract_opcodes: + <<: *integration_definition + script: + - pytest tests_python/tests/test_contract_opcodes.py + stage: test + integration:cors: <<: *integration_definition script: diff --git a/src/bin_client/test/dune b/src/bin_client/test/dune index f3988b366f08..5e2969269faf 100644 --- a/src/bin_client/test/dune +++ b/src/bin_client/test/dune @@ -21,22 +21,6 @@ %{bin:tezos-client} %{bin:tezos-admin-client}))) -(alias - (name runtest_contracts_opcode.sh) - (deps sandbox.json - protocol_parameters.json - test_lib.inc.sh - (glob_files contracts/opcodes/*)) - (locks /tcp-port/18731 - /tcp-port/19731) - (action - (run bash %{dep:test_contracts_opcode.sh} - %{bin:tezos-sandboxed-node.sh} - %{bin:tezos-node} - %{bin:tezos-init-sandboxed-client.sh} - %{bin:tezos-client} - %{bin:tezos-admin-client}))) - (alias (name runtest_contracts_macros.sh) (deps sandbox.json @@ -138,7 +122,6 @@ (alias (name runtest) (deps (alias runtest_basic.sh) - (alias runtest_contracts_opcode.sh) (alias runtest_contracts_macros.sh) (alias runtest_multinode.sh) (alias runtest_injection.sh) diff --git a/src/bin_client/test/test_contracts_opcode.sh b/src/bin_client/test/test_contracts_opcode.sh deleted file mode 100644 index ccd01327cc5e..000000000000 --- a/src/bin_client/test/test_contracts_opcode.sh +++ /dev/null @@ -1,375 +0,0 @@ -#!/bin/bash - -set -e -set -o pipefail - -test_dir="$(cd "$(dirname "$0")" && echo "$(pwd -P)")" -source $test_dir/test_lib.inc.sh "$@" - -start_node 1 -activate_alpha - -$client -w none config update - -bake - -key1=foo -key2=bar - -$client gen keys $key1 -$client gen keys $key2 - -printf "\n\n" - -# Assert all contracts typecheck -if [ ! $NO_TYPECHECK ] ; then - for contract in `ls $contract_op_dir/*.tz`; do - printf "[Typechecking %s]\n" "$contract"; - ${client} typecheck script "$contract"; - done - printf "All contracts are well typed\n\n" -fi - -# FORMAT: assert_output contract_file storage input expected_result - -# TODO add tests for map_car.tz, subset.tz -# NB: noop.tz is tested in test_basic.sh - -assert_storage $contract_op_dir/ret_int.tz None Unit '(Some 300)' - -assert_storage $contract_op_dir/dign.tz '0' '(Pair (Pair (Pair (Pair 1 2) 3) 4) 5)' '5' -assert_storage $contract_op_dir/dugn.tz '0' '(Pair (Pair (Pair (Pair 1 2) 3) 4) 5)' '1' -assert_storage $contract_op_dir/dropn.tz '0' '(Pair (Pair (Pair (Pair 1 2) 3) 4) 5)' '5' -assert_storage $contract_op_dir/dipn.tz '0' '(Pair (Pair (Pair (Pair 1 2) 3) 4) 5)' '6' - -# Partial Exec - -assert_storage $contract_op_dir/pexec.tz 14 38 52 -assert_storage $contract_op_dir/pexec_2.tz "{ 0 ; 1 ; 2 ; 3}" 4 "{ 0 ; 7 ; 14 ; 21 }" - - -# Map block on lists -assert_storage $contract_op_dir/list_map_block.tz '{0}' '{}' '{}' -assert_storage $contract_op_dir/list_map_block.tz '{0}' '{ 1 ; 1 ; 1 ; 1 }' '{ 1 ; 2 ; 3 ; 4 }' -assert_storage $contract_op_dir/list_map_block.tz '{0}' '{ 1 ; 2 ; 3 ; 0 }' '{ 1 ; 3 ; 5 ; 3 }' - -# Reverse a list -assert_storage $contract_op_dir/reverse.tz '{""}' '{}' '{}' -assert_storage $contract_op_dir/reverse.tz '{""}' '{ "c" ; "b" ; "a" }' '{ "a" ; "b" ; "c" }' - -# Reverse using LOOP_LEFT -assert_storage $contract_op_dir/loop_left.tz '{""}' '{}' '{}' -assert_storage $contract_op_dir/loop_left.tz '{""}' '{ "c" ; "b" ; "a" }' '{ "a" ; "b" ; "c" }' - -# Identity on strings -assert_storage $contract_op_dir/str_id.tz None '"Hello"' '(Some "Hello")' -assert_storage $contract_op_dir/str_id.tz None '"abcd"' '(Some "abcd")' - -# Identity on pairs -assert_storage $contract_op_dir/pair_id.tz None '(Pair True False)' '(Some (Pair True False))' -assert_storage $contract_op_dir/pair_id.tz None '(Pair False True)' '(Some (Pair False True))' -assert_storage $contract_op_dir/pair_id.tz None '(Pair True True)' '(Some (Pair True True))' -assert_storage $contract_op_dir/pair_id.tz None '(Pair False False)' '(Some (Pair False False))' - -# Logical not -assert_storage $contract_op_dir/not.tz None True '(Some False)' -assert_storage $contract_op_dir/not.tz None False '(Some True)' - -# Logical and -assert_storage $contract_op_dir/and.tz None "(Pair False False)" '(Some False)' -assert_storage $contract_op_dir/and.tz None "(Pair False True)" '(Some False)' -assert_storage $contract_op_dir/and.tz None "(Pair True False)" '(Some False)' -assert_storage $contract_op_dir/and.tz None "(Pair True True)" '(Some True)' - -# Logical or -assert_storage $contract_op_dir/or.tz None "(Pair False False)" '(Some False)' -assert_storage $contract_op_dir/or.tz None "(Pair False True)" '(Some True)' -assert_storage $contract_op_dir/or.tz None "(Pair True False)" '(Some True)' -assert_storage $contract_op_dir/or.tz None "(Pair True True)" '(Some True)' - -# XOR -assert_storage $contract_op_dir/xor.tz None "(Pair False False)" '(Some False)' -assert_storage $contract_op_dir/xor.tz None "(Pair False True)" '(Some True)' -assert_storage $contract_op_dir/xor.tz None "(Pair True False)" '(Some True)' -assert_storage $contract_op_dir/xor.tz None "(Pair True True)" '(Some False)' - - -# Concatenate all strings of a list into one string -assert_storage $contract_op_dir/concat_list.tz '""' '{ "a" ; "b" ; "c" }' '"abc"' -assert_storage $contract_op_dir/concat_list.tz '""' '{}' '""' -assert_storage $contract_op_dir/concat_list.tz \ - '""' '{ "Hello" ; " " ; "World" ; "!" }' '"Hello World!"' - -# Identity on lists -assert_storage $contract_op_dir/list_id.tz '{""}' '{ "1" ; "2" ; "3" }' '{ "1" ; "2" ; "3" }' -assert_storage $contract_op_dir/list_id.tz '{""}' '{}' '{}' -assert_storage $contract_op_dir/list_id.tz '{""}' '{ "a" ; "b" ; "c" }' '{ "a" ; "b" ; "c" }' - -assert_storage $contract_op_dir/list_id_map.tz '{""}' '{ "1" ; "2" ; "3" }' '{ "1" ; "2" ; "3" }' -assert_storage $contract_op_dir/list_id_map.tz '{""}' '{}' '{}' -assert_storage $contract_op_dir/list_id_map.tz '{""}' '{ "a" ; "b" ; "c" }' '{ "a" ; "b" ; "c" }' - - -# Identity on maps -assert_storage $contract_op_dir/map_id.tz '{}' '{ Elt 0 1 }' '{ Elt 0 1 }' -assert_storage $contract_op_dir/map_id.tz '{}' '{ Elt 0 0 }' '{ Elt 0 0 }' -assert_storage $contract_op_dir/map_id.tz '{}' '{ Elt 0 0 ; Elt 3 4 }' '{ Elt 0 0 ; Elt 3 4 }' - -# Identity on sets -assert_storage $contract_op_dir/set_id.tz '{}' '{ "a" ; "b" ; "c" }' '{ "a" ; "b" ; "c" }' -assert_storage $contract_op_dir/set_id.tz '{}' '{}' '{}' -assert_storage $contract_op_dir/set_id.tz '{}' '{ "asdf" ; "bcde" }' '{ "asdf" ; "bcde" }' - -# List concat -assert_storage $contract_op_dir/list_concat.tz '"abc"' '{ "d" ; "e" ; "f" }' '"abcdef"' -assert_storage $contract_op_dir/list_concat.tz '"abc"' '{}' '"abc"' - -assert_storage $contract_op_dir/list_concat_bytes.tz '0x00ab' '{ 0xcd ; 0xef ; 0x00 }' '0x00abcdef00' -assert_storage $contract_op_dir/list_concat_bytes.tz '0x' '{ 0x00 ; 0x11 ; 0x00 }' '0x001100' -assert_storage $contract_op_dir/list_concat_bytes.tz '0xabcd' '{}' '0xabcd' -assert_storage $contract_op_dir/list_concat_bytes.tz '0x' '{}' '0x' - -# List iter -assert_storage $contract_op_dir/list_iter.tz 0 '{ 10 ; 2 ; 1 }' 20 -assert_storage $contract_op_dir/list_iter.tz 0 '{ 3 ; 6 ; 9 }' 162 - -# Set member -- set is in storage -assert_storage $contract_op_dir/set_member.tz '(Pair {} None)' '"Hi"' '(Pair {} (Some False))' -assert_storage $contract_op_dir/set_member.tz '(Pair { "Hi" } None)' '"Hi"' '(Pair { "Hi" } (Some True))' -assert_storage $contract_op_dir/set_member.tz '(Pair { "Hello" ; "World" } None)' '""' '(Pair { "Hello" ; "World" } (Some False))' - -# Set size -assert_storage $contract_op_dir/set_size.tz 111 '{}' 0 -assert_storage $contract_op_dir/set_size.tz 111 '{ 1 }' 1 -assert_storage $contract_op_dir/set_size.tz 111 '{ 1 ; 2 ; 3 }' 3 -assert_storage $contract_op_dir/set_size.tz 111 '{ 1 ; 2 ; 3 ; 4 ; 5 ; 6 }' 6 - -# Set iter -assert_storage $contract_op_dir/set_iter.tz 111 '{}' 0 -assert_storage $contract_op_dir/set_iter.tz 111 '{ 1 }' 1 -assert_storage $contract_op_dir/set_iter.tz 111 '{ -100 ; 1 ; 2 ; 3 }' '-94' - -# Map size -assert_storage $contract_op_dir/map_size.tz 111 '{}' 0 -assert_storage $contract_op_dir/map_size.tz 111 '{ Elt "a" 1 }' 1 -assert_storage $contract_op_dir/map_size.tz 111 \ - '{ Elt "a" 1 ; Elt "b" 2 ; Elt "c" 3 }' 3 -assert_storage $contract_op_dir/map_size.tz 111 \ - '{ Elt "a" 1 ; Elt "b" 2 ; Elt "c" 3 ; Elt "d" 4 ; Elt "e" 5 ; Elt "f" 6 }' 6 - -# Contains all elements -- does the second list contain all of the same elements -# as the first one? I'm ignoring element multiplicity -assert_storage $contract_op_dir/contains_all.tz \ - None '(Pair {} {})' '(Some True)' -assert_storage $contract_op_dir/contains_all.tz \ - None '(Pair { "a" } { "B" })' '(Some False)' -assert_storage $contract_op_dir/contains_all.tz \ - None '(Pair { "A" } { "B" })' '(Some False)' -assert_storage $contract_op_dir/contains_all.tz \ - None '(Pair { "B" } { "B" })' '(Some True)' -assert_storage $contract_op_dir/contains_all.tz None \ - '(Pair { "B" ; "C" ; "asdf" } { "B" ; "B" ; "asdf" ; "C" })' '(Some True)' -assert_storage $contract_op_dir/contains_all.tz None \ - '(Pair { "B" ; "B" ; "asdf" ; "C" } { "B" ; "C" ; "asdf" })' '(Some True)' - -# Concatenate the string in storage with all strings in the given list -assert_storage $contract_op_dir/concat_hello.tz '{}' \ - '{ "World!" }' '{ "Hello World!" }' -assert_storage $contract_op_dir/concat_hello.tz '{}' \ - '{}' '{}' -assert_storage $contract_op_dir/concat_hello.tz '{}' \ - '{ "test1" ; "test2" }' '{ "Hello test1" ; "Hello test2" }' - -# Create an empty map and add a string to it -assert_storage $contract_op_dir/empty_map.tz '{}' Unit \ - '{ Elt "hello" "world" }' - -# Get the value stored at the given key in the map -assert_storage $contract_op_dir/get_map_value.tz '(Pair None { Elt "hello" "hi" })' \ - '"hello"' '(Pair (Some "hi") { Elt "hello" "hi" })' -assert_storage $contract_op_dir/get_map_value.tz '(Pair None { Elt "hello" "hi" })' \ - '""' '(Pair None { Elt "hello" "hi" })' -assert_storage $contract_op_dir/get_map_value.tz \ - '(Pair None { Elt "1" "one" ; Elt "2" "two" })' \ - '"1"' '(Pair (Some "one") { Elt "1" "one" ; Elt "2" "two" })' - -# Map iter -assert_storage $contract_op_dir/map_iter.tz '(Pair 0 0)' '{ Elt 0 100 ; Elt 2 100 }' '(Pair 2 200)' -assert_storage $contract_op_dir/map_iter.tz '(Pair 0 0)' '{ Elt 1 1 ; Elt 2 100 }' '(Pair 3 101)' - -# Return True if True branch of if was taken and False otherwise -assert_storage $contract_op_dir/if.tz None True '(Some True)' -assert_storage $contract_op_dir/if.tz None False '(Some False)' - -# Generate a pair of or types -assert_storage $contract_op_dir/left_right.tz '(Left "X")' '(Left True)' '(Right True)' -assert_storage $contract_op_dir/left_right.tz '(Left "X")' '(Right "a")' '(Left "a")' - -# Reverse a list -assert_storage $contract_op_dir/reverse_loop.tz '{""}' '{}' '{}' -assert_storage $contract_op_dir/reverse_loop.tz '{""}' '{ "c" ; "b" ; "a" }' '{ "a" ; "b" ; "c" }' - -# Exec concat contract -assert_storage $contract_op_dir/exec_concat.tz '"?"' '""' '"_abc"' -assert_storage $contract_op_dir/exec_concat.tz '"?"' '"test"' '"test_abc"' - -# Test PACK/UNPACK and binary format -assert_success $client run script $contract_op_dir/packunpack.tz on storage Unit and input \ - '(Pair (Pair (Pair "toto" {3;7;9;1}) {1;2;3}) 0x05070707070100000004746f746f020000000800030007000900010200000006000100020003)' - -assert_fails $client run script $contract_op_dir/packunpack.tz on storage Unit and input \ - '(Pair (Pair (Pair "toto" {3;7;9;1}) {1;2;3}) 0x05070707070100000004746f746f0200000008000300070009000102000000060001000200030004)' - -# Get the current balance of the contract -assert_storage $contract_op_dir/balance.tz '111' Unit '4000000000000' - -# Test addition and subtraction on tez -assert_storage $contract_op_dir/tez_add_sub.tz None '(Pair 2000000 1000000)' '(Some (Pair 3000000 1000000))' -assert_storage $contract_op_dir/tez_add_sub.tz None '(Pair 2310000 1010000)' '(Some (Pair 3320000 1300000))' - -# Test get first element of list -assert_storage $contract_op_dir/first.tz '111' '{ 1 ; 2 ; 3 ; 4 }' '1' -assert_storage $contract_op_dir/first.tz '111' '{ 4 }' '4' - -# Hash input string -# Test assumed to be correct -- hash is based on encoding of AST -assert_storage $contract_op_dir/hash_string.tz '0x00' '"abcdefg"' '0x46fdbcb4ea4eadad5615cdaa17d67f783e01e21149ce2b27de497600b4cd8f4e' -assert_storage $contract_op_dir/hash_string.tz '0x00' '"12345"' '0xb4c26c20de52a4eaf0d8a340db47ad8cb1e74049570859c9a9a3952b204c772f' - -# IF_SOME -assert_storage $contract_op_dir/if_some.tz '"?"' '(Some "hello")' '"hello"' -assert_storage $contract_op_dir/if_some.tz '"?"' 'None' '""' - -# Tests the SET_CAR and SET_CDR instructions -assert_storage $contract_op_dir/set_car.tz '(Pair "hello" 0)' '"world"' '(Pair "world" 0)' -assert_storage $contract_op_dir/set_car.tz '(Pair "hello" 0)' '"abc"' '(Pair "abc" 0)' -assert_storage $contract_op_dir/set_car.tz '(Pair "hello" 0)' '""' '(Pair "" 0)' -assert_fails $client run script $contract_op_dir/set_car.tz on storage '(Pair %wrong %field "hello" 0)' Unit and input '""' - -assert_storage $contract_op_dir/set_cdr.tz '(Pair "hello" 0)' '1' '(Pair "hello" 1)' -assert_storage $contract_op_dir/set_cdr.tz '(Pair "hello" 500)' '3' '(Pair "hello" 3)' -assert_storage $contract_op_dir/set_cdr.tz '(Pair "hello" 7)' '100' '(Pair "hello" 100)' - -# Did the given key sign the string? (key is bootstrap1) -assert_success $client run script $contract_op_dir/check_signature.tz \ - on storage '(Pair "edsigthTzJ8X7MPmNeEwybRAvdxS1pupqcM5Mk4uCuyZAe7uEk68YpuGDeViW8wSXMrCi5CwoNgqs8V2w8ayB5dMJzrYCHhD8C7" "hello")' \ - and input '"edpkuBknW28nW72KG6RoHtYW7p12T6GKc7nAbwYX5m8Wd9sDVC9yav"' - -assert_fails $client run script $contract_op_dir/check_signature.tz \ - on storage '(Pair "edsigthTzJ8X7MPmNeEwybRAvdxS1pupqcM5Mk4uCuyZAe7uEk68YpuGDeViW8wSXMrCi5CwoNgqs8V2w8ayB5dMJzrYCHhD8C7" "abcd")' \ - and input '"edpkuBknW28nW72KG6RoHtYW7p12T6GKc7nAbwYX5m8Wd9sDVC9yav"' - - -# Convert a public key to a public key hash -assert_storage $contract_op_dir/hash_key.tz None '"edpkuBknW28nW72KG6RoHtYW7p12T6GKc7nAbwYX5m8Wd9sDVC9yav"' \ - '(Some "tz1KqTpEZ7Yob7QbPE4Hy4Wo8fHG8LhKxZSx")' -assert_storage $contract_op_dir/hash_key.tz None '"edpkuJqtDcA2m2muMxViSM47MPsGQzmyjnNTawUPqR8vZTAMcx61ES"' \ - '(Some "tz1XPTDmvT3vVE5Uunngmixm7gj7zmdbPq6k")' - -bake_after $client transfer 1,000 from bootstrap1 to $key1 --burn-cap 0.257 -bake_after $client transfer 2,000 from bootstrap1 to $key2 --burn-cap 0.257 - -assert_balance $key1 "1000 ꜩ" -assert_balance $key2 "2000 ꜩ" - -# Create a contract and transfer 100 ꜩ to it -init_with_transfer $contract_op_dir/store_input.tz '""' 100 bootstrap1 -bake_after $client transfer 100 from bootstrap1 to store_input -arg '"abcdefg"' --burn-cap 10 -assert_balance store_input "200 ꜩ" -assert_storage_contains store_input '"abcdefg"' -bake_after $client transfer 100 from bootstrap1 to store_input -arg '"xyz"' --burn-cap 10 -assert_storage_contains store_input '"xyz"' - -init_with_transfer $contract_op_dir/transfer_amount.tz '0' "100" bootstrap1 -bake_after $client transfer 500 from bootstrap1 to transfer_amount -arg Unit --burn-cap 10 -assert_storage_contains transfer_amount 500 - - -# This tests the `NOW` instruction. -# This test may fail if timings are marginal, though I have not yet seen this happen -init_with_transfer $contract_op_dir/store_now.tz '"2017-07-13T09:19:01Z"' "100" bootstrap1 -bake_after $client transfer 500 from bootstrap1 to store_now -arg Unit --burn-cap 10 -assert_storage_contains store_now "$(get_NOW)" - -# Test timestamp operations -assert_storage $contract_op_dir/add_timestamp_delta.tz None '(Pair 100 100)' '(Some "1970-01-01T00:03:20Z")' -assert_storage $contract_op_dir/add_timestamp_delta.tz None '(Pair 100 -100)' '(Some "1970-01-01T00:00:00Z")' -assert_storage $contract_op_dir/add_timestamp_delta.tz None '(Pair "1970-01-01T00:00:00Z" 0)' '(Some "1970-01-01T00:00:00Z")' - -assert_storage $contract_op_dir/add_delta_timestamp.tz None '(Pair 100 100)' '(Some "1970-01-01T00:03:20Z")' -assert_storage $contract_op_dir/add_delta_timestamp.tz None '(Pair -100 100)' '(Some "1970-01-01T00:00:00Z")' -assert_storage $contract_op_dir/add_delta_timestamp.tz None '(Pair 0 "1970-01-01T00:00:00Z")' '(Some "1970-01-01T00:00:00Z")' - -assert_storage $contract_op_dir/sub_timestamp_delta.tz 111 '(Pair 100 100)' '"1970-01-01T00:00:00Z"' -assert_storage $contract_op_dir/sub_timestamp_delta.tz 111 '(Pair 100 -100)' '"1970-01-01T00:03:20Z"' -assert_storage $contract_op_dir/sub_timestamp_delta.tz 111 '(Pair 100 2000000000000000000)' -1999999999999999900 - -assert_storage $contract_op_dir/diff_timestamps.tz 111 '(Pair 0 0)' 0 -assert_storage $contract_op_dir/diff_timestamps.tz 111 '(Pair 0 1)' -1 -assert_storage $contract_op_dir/diff_timestamps.tz 111 '(Pair 1 0)' 1 -assert_storage $contract_op_dir/diff_timestamps.tz 111 '(Pair "1970-01-01T00:03:20Z" "1970-01-01T00:00:00Z")' 200 - -# Tests TRANSFER_TOKENS -bake_after $client originate contract "test_transfer_contract1" transferring 100 from bootstrap1 running file:contracts/opcodes/noop.tz --burn-cap 10 -bake_after $client originate contract "test_transfer_contract2" transferring 20 from bootstrap1 running file:contracts/opcodes/noop.tz --burn-cap 10 -init_with_transfer $contract_op_dir/transfer_tokens.tz Unit 1,000 bootstrap1 -assert_balance test_transfer_contract1 "100 ꜩ" -bake_after $client transfer 100 from bootstrap1 to transfer_tokens \ - -arg "\"$(get_contract_addr test_transfer_contract1)\"" --burn-cap 10 -assert_balance test_transfer_contract1 "200 ꜩ" -bake_after $client transfer 100 from bootstrap1 to transfer_tokens \ - -arg "\"$(get_contract_addr test_transfer_contract2)\"" --burn-cap 10 -assert_balance test_transfer_contract2 "120 ꜩ" - -# Test SELF -init_with_transfer $contract_op_dir/self.tz \ - '"tz1KqTpEZ7Yob7QbPE4Hy4Wo8fHG8LhKxZSx"' 1,000 bootstrap1 -bake_after $client transfer 0 from bootstrap1 to self --burn-cap 10 -assert_storage_contains self "\"$(get_contract_addr self)\"" - -# Test SLICE and SIZE on bytes -init_with_transfer $contract_op_dir/slices.tz \ - '"sppk7dBPqMPjDjXgKbb5f7V3PuKUrA4Zuwc3c3H7XqQerqPUWbK7Hna"' 1,000 bootstrap1 - -assert_fails $client transfer 0 from bootstrap1 to slices -arg \ - '(Pair 0xe009ab79e8b84ef0e55c43a9a857214d8761e67b75ba63500a5694fb2ffe174acc2de22d01ccb7259342437f05e1987949f0ad82e9f32e9a0b79cb252d7f7b8236ad728893f4e7150742eefdbeda254970f9fcd92c6228c178e1a923e5600758eb83f2a05edd0be7625657901f2ba81eaf145d003dbef78e33f43a32a3788bdf0501000000085341554349535345 "p2sigsceCzcDw2AeYDzUonj4JT341WC9Px4wdhHBxbZcG1FhfqFVuG7f2fGCzrEHSAZgrsrQWpxduDPk9qZRgrpzwJnSHC3gZJ")' --burn-cap 10 -assert_fails $client transfer 0 from bootstrap1 to slices -arg \ - '(Pair 0xeaa9ab79e8b84ef0e55c43a9a857214d8761e67b75ba63500a5694fb2ffe174acc2de22d01ccb7259342437f05e1987949f0ad82e9f32e9a0b79cb252d7f7b8236ad728893f4e7150742eefdbeda254970f9fcd92c6228c178e1a923e5600758eb83f2a05edd0be7625657901f2ba81eaf145d003dbef78e33f43a32a3788bdf0501000000085341554349535345 "spsig1PPUFZucuAQybs5wsqsNQ68QNgFaBnVKMFaoZZfi1BtNnuCAWnmL9wVy5HfHkR6AeodjVGxpBVVSYcJKyMURn6K1yknYLm")' --burn-cap 10 -assert_fails $client transfer 0 from bootstrap1 to slices -arg \ - '(Pair 0xe009ab79e8b84ef0e55c43a9a857214d8761e67b75ba63500a5694fb2ffe174acc2deaad01ccb7259342437f05e1987949f0ad82e9f32e9a0b79cb252d7f7b8236ad728893f4e7150742eefdbeda254970f9fcd92c6228c178e1a923e5600758eb83f2a05edd0be7625657901f2ba81eaf145d003dbef78e33f43a32a3788bdf0501000000085341554349535345 "spsig1PPUFZucuAQybs5wsqsNQ68QNgFaBnVKMFaoZZfi1BtNnuCAWnmL9wVy5HfHkR6AeodjVGxpBVVSYcJKyMURn6K1yknYLm")' --burn-cap 10 -assert_fails $client transfer 0 from bootstrap1 to slices -arg \ - '(Pair 0xe009ab79e8b84ef0e55c43a9a857214d8761e67b75ba63500a5694fb2ffe174acc2de22d01ccb7259342437f05e1987949f0ad82e9f32e9a0b79cb252d7f7b8236ad728893f4e7150733eefdbeda254970f9fcd92c6228c178e1a923e5600758eb83f2a05edd0be7625657901f2ba81eaf145d003dbef78e33f43a32a3788bdf0501000000085341554349535345 "spsig1PPUFZucuAQybs5wsqsNQ68QNgFaBnVKMFaoZZfi1BtNnuCAWnmL9wVy5HfHkR6AeodjVGxpBVVSYcJKyMURn6K1yknYLm")' --burn-cap 10 -assert_fails $client transfer 0 from bootstrap1 to slices -arg \ - '(Pair 0xe009ab79e8b84ef0 "spsig1PPUFZucuAQybs5wsqsNQ68QNgFaBnVKMFaoZZfi1BtNnuCAWnmL9wVy5HfHkR6AeodjVGxpBVVSYcJKyMURn6K1yknYLm")' --burn-cap 10 -assert_success $client transfer 0 from bootstrap1 to slices -arg \ - '(Pair 0xe009ab79e8b84ef0e55c43a9a857214d8761e67b75ba63500a5694fb2ffe174acc2de22d01ccb7259342437f05e1987949f0ad82e9f32e9a0b79cb252d7f7b8236ad728893f4e7150742eefdbeda254970f9fcd92c6228c178e1a923e5600758eb83f2a05edd0be7625657901f2ba81eaf145d003dbef78e33f43a32a3788bdf0501000000085341554349535345 "spsig1PPUFZucuAQybs5wsqsNQ68QNgFaBnVKMFaoZZfi1BtNnuCAWnmL9wVy5HfHkR6AeodjVGxpBVVSYcJKyMURn6K1yknYLm")' --burn-cap 10 -bake - -init_with_transfer $contract_op_dir/split_string.tz '{}' 1,000 bootstrap1 - -bake_after $client transfer 0 from bootstrap1 to split_string -arg '"abc"' --burn-cap 10 -assert_storage_contains split_string '{ "a" ; "b" ; "c" }' -bake_after $client transfer 0 from bootstrap1 to split_string -arg '"def"' --burn-cap 10 -assert_storage_contains split_string '{ "a" ; "b" ; "c" ; "d" ; "e" ; "f" }' - -init_with_transfer $contract_op_dir/split_bytes.tz '{}' 1,000 bootstrap1 - -bake_after $client transfer 0 from bootstrap1 to split_bytes -arg '0xaabbcc' --burn-cap 10 -assert_storage_contains split_bytes '{ 0xaa ; 0xbb ; 0xcc }' -bake_after $client transfer 0 from bootstrap1 to split_bytes -arg '0xddeeff' --burn-cap 10 -assert_storage_contains split_bytes '{ 0xaa ; 0xbb ; 0xcc ; 0xdd ; 0xee ; 0xff }' - -# Test hash consistency between Michelson and the CLI -hash_result=`$client hash data '(Pair 22220000000 (Pair "2017-12-13T04:49:00Z" 034))' \ - of type '(pair mutez (pair timestamp int))' | grep 'Raw Script-expression-ID-Hash' | sed 's/.*: *//'` - -assert_storage $contract_op_dir/hash_consistency_checker.tz '0x00' \ - '(Pair 22220000000 (Pair "2017-12-13T04:49:00Z" 034))' "$hash_result" - -assert_storage $contract_op_dir/hash_consistency_checker.tz '0x00' \ - '(Pair 22220000000 (Pair "2017-12-13T04:49:00+00:00" 34))' "$hash_result" - - -printf "\nEnd of test\n" - -show_logs="no" -- GitLab From 068095c617ddde9dd5ff10f847c785ead9cf3de9 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Mon, 9 Sep 2019 18:56:50 +0200 Subject: [PATCH 093/252] tests: add CONS unit test --- src/bin_client/test/contracts/opcodes/cons.tz | 3 +++ tests_python/tests/test_contract_opcodes.py | 4 ++++ 2 files changed, 7 insertions(+) create mode 100644 src/bin_client/test/contracts/opcodes/cons.tz diff --git a/src/bin_client/test/contracts/opcodes/cons.tz b/src/bin_client/test/contracts/opcodes/cons.tz new file mode 100644 index 000000000000..5189b47c36b4 --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/cons.tz @@ -0,0 +1,3 @@ +parameter int; +storage (list int); +code { UNPAIR; CONS; NIL operation; PAIR; }; diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index f1b4405c9bc5..a469b34f798d 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -27,6 +27,10 @@ class TestContractOpcodes: # TODO add tests for map_car.tz, subset.tz # NB: noop.tz is tested in test_basic.sh + ('cons.tz', '{}', '10', '{ 10 }'), + ('cons.tz', '{ 10 }', '-5', '{ -5 ; 10 }'), + ('cons.tz', '{ -5 ; 10 }', '99', '{ 99 ; -5 ; 10 }'), + ('ret_int.tz', 'None', 'Unit', '(Some 300)'), # Map block on lists -- GitLab From c0db9894b224073f09a43d8295d3fff4cb51c657 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Fri, 13 Sep 2019 11:15:15 +0200 Subject: [PATCH 094/252] tests: add NONE unit test --- src/bin_client/test/contracts/opcodes/none.tz | 3 +++ tests_python/tests/test_contract_opcodes.py | 3 +++ 2 files changed, 6 insertions(+) create mode 100644 src/bin_client/test/contracts/opcodes/none.tz diff --git a/src/bin_client/test/contracts/opcodes/none.tz b/src/bin_client/test/contracts/opcodes/none.tz new file mode 100644 index 000000000000..9a1d7d22c0b0 --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/none.tz @@ -0,0 +1,3 @@ +parameter unit; +storage (option nat); +ecode { DROP; NONE nat; NIL operation; PAIR; }; diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index a469b34f798d..85b6bf9cbf8c 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -31,6 +31,9 @@ class TestContractOpcodes: ('cons.tz', '{ 10 }', '-5', '{ -5 ; 10 }'), ('cons.tz', '{ -5 ; 10 }', '99', '{ 99 ; -5 ; 10 }'), + # Tests on Options + ('none.tz', 'Some 10', 'Unit', 'None'), + ('ret_int.tz', 'None', 'Unit', '(Some 300)'), # Map block on lists -- GitLab From a52b651ff33db578dec10cf7766c82b3f8b46706 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Mon, 9 Sep 2019 18:38:04 +0200 Subject: [PATCH 095/252] tests: add CONCAT unit test --- src/bin_client/test/contracts/opcodes/concat_hello_bytes.tz | 4 ++++ tests_python/tests/test_contract_opcodes.py | 5 +++++ 2 files changed, 9 insertions(+) create mode 100644 src/bin_client/test/contracts/opcodes/concat_hello_bytes.tz diff --git a/src/bin_client/test/contracts/opcodes/concat_hello_bytes.tz b/src/bin_client/test/contracts/opcodes/concat_hello_bytes.tz new file mode 100644 index 000000000000..55f8ab7a216b --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/concat_hello_bytes.tz @@ -0,0 +1,4 @@ +parameter (list bytes); +storage (list bytes); +code{ CAR; + MAP { PUSH bytes 0xFF; CONCAT }; NIL operation; PAIR}; diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index 85b6bf9cbf8c..b8ddc3293399 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -96,6 +96,11 @@ class TestContractOpcodes: ('concat_list.tz', '""', '{ "Hello" ; " " ; "World" ; "!" }', '"Hello World!"'), + # Concatenate the bytes in storage with all bytes in the given list + ('concat_hello_bytes.tz', '{}', '{ 0xcd }', '{ 0xffcd }'), + ('concat_hello_bytes.tz', '{}', '{}', '{}'), + ('concat_hello_bytes.tz', '{}', '{ 0xab ; 0xcd }', '{ 0xffab ; 0xffcd }'), + # Identity on lists ('list_id.tz', '{""}', '{ "1" ; "2" ; "3" }', '{ "1" ; "2" ; "3" }'), -- GitLab From cc257ad4b9a696dd07a64d5181ce1859e32c7496 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Fri, 13 Sep 2019 11:23:39 +0200 Subject: [PATCH 096/252] fixup! tests: add NONE unit test --- src/bin_client/test/contracts/opcodes/none.tz | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/bin_client/test/contracts/opcodes/none.tz b/src/bin_client/test/contracts/opcodes/none.tz index 9a1d7d22c0b0..473a288b4926 100644 --- a/src/bin_client/test/contracts/opcodes/none.tz +++ b/src/bin_client/test/contracts/opcodes/none.tz @@ -1,3 +1,3 @@ parameter unit; storage (option nat); -ecode { DROP; NONE nat; NIL operation; PAIR; }; +code { DROP; NONE nat; NIL operation; PAIR; }; -- GitLab From e1ac92b9eb2d9c3cb831452d62f883a543d830f4 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Fri, 13 Sep 2019 11:28:02 +0200 Subject: [PATCH 097/252] tests: add CAR/CDR unit tests these were already covered but will be used in michelson reference --- src/bin_client/test/contracts/opcodes/car.tz | 3 +++ src/bin_client/test/contracts/opcodes/cdr.tz | 3 +++ tests_python/tests/test_contract_opcodes.py | 4 ++++ 3 files changed, 10 insertions(+) create mode 100644 src/bin_client/test/contracts/opcodes/car.tz create mode 100644 src/bin_client/test/contracts/opcodes/cdr.tz diff --git a/src/bin_client/test/contracts/opcodes/car.tz b/src/bin_client/test/contracts/opcodes/car.tz new file mode 100644 index 000000000000..033d5332c1b2 --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/car.tz @@ -0,0 +1,3 @@ +parameter (pair nat nat); +storage nat; +code { CAR; CAR ; NIL operation ; PAIR } diff --git a/src/bin_client/test/contracts/opcodes/cdr.tz b/src/bin_client/test/contracts/opcodes/cdr.tz new file mode 100644 index 000000000000..68fd61492589 --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/cdr.tz @@ -0,0 +1,3 @@ +parameter (pair nat nat); +storage nat; +code { CAR; CDR ; NIL operation ; PAIR } diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index b8ddc3293399..4ac45ddbbfa0 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -67,6 +67,10 @@ class TestContractOpcodes: ('pair_id.tz', 'None', '(Pair False False)', '(Some (Pair False False))'), + # Tests CAR and CDR instructions + ('car.tz', '0', '(Pair 34 17)', '34'), + ('cdr.tz', '0', '(Pair 34 17)', '17'), + # Logical not ('not.tz', 'None', 'True', '(Some False)'), ('not.tz', 'None', 'False', '(Some True)'), -- GitLab From 26b4f183fd059947812073cac67490dc26bef2bc Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Fri, 13 Sep 2019 11:33:42 +0200 Subject: [PATCH 098/252] tests: test all variations of AND --- .../test/contracts/opcodes/and_binary.tz | 27 +++++++++++++++++++ .../test/contracts/opcodes/and_logical_1.tz | 3 +++ tests_python/tests/test_contract_opcodes.py | 9 +++++++ 3 files changed, 39 insertions(+) create mode 100644 src/bin_client/test/contracts/opcodes/and_binary.tz create mode 100644 src/bin_client/test/contracts/opcodes/and_logical_1.tz diff --git a/src/bin_client/test/contracts/opcodes/and_binary.tz b/src/bin_client/test/contracts/opcodes/and_binary.tz new file mode 100644 index 000000000000..96f60082c713 --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/and_binary.tz @@ -0,0 +1,27 @@ +parameter unit; +storage unit; +code { DROP; + + # 0101 & 0110 = 0100 + PUSH nat 5; PUSH nat 6; AND; PUSH nat 4; ASSERT_CMPEQ; + + # 0110 & 0101 = 0100 + PUSH nat 6; PUSH int 5; AND; PUSH nat 4; ASSERT_CMPEQ; + + # Negative numbers are represented as with a initial virtual + # infinite series of 1's. + # Hence, AND with -1 (1111...) is identity: + + # 12 = ...1100 + # & -1 = ...1111 + # ---- + # = 12 = ...1100 + PUSH nat 12; PUSH int -1; AND; PUSH nat 12; ASSERT_CMPEQ; + + # 12 = ...0001100 + # & -5 = ...1111011 + # ----------------- + # 8 = ...0001000 + PUSH nat 12; PUSH int -5; AND; PUSH nat 8; ASSERT_CMPEQ; + + UNIT; NIL @noop operation; PAIR; }; diff --git a/src/bin_client/test/contracts/opcodes/and_logical_1.tz b/src/bin_client/test/contracts/opcodes/and_logical_1.tz new file mode 100644 index 000000000000..20743c0bfdf9 --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/and_logical_1.tz @@ -0,0 +1,3 @@ +parameter (pair bool bool); +storage bool; +code { CAR ; UNPAIR; AND @and; NIL @noop operation; PAIR; }; diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index 4ac45ddbbfa0..6516d1f4d73a 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -87,6 +87,15 @@ class TestContractOpcodes: ('or.tz', 'None', '(Pair True False)', '(Some True)'), ('or.tz', 'None', '(Pair True True)', '(Some True)'), + # Logical and + ('and_logical_1.tz', 'False', "(Pair False False)", 'False'), + ('and_logical_1.tz', 'False', "(Pair False True)", 'False'), + ('and_logical_1.tz', 'False', "(Pair True False)", 'False'), + ('and_logical_1.tz', 'False', "(Pair True True)", 'True'), + + # Binary and + ('and_binary.tz', 'Unit', 'Unit', 'Unit'), + # XOR ('xor.tz', 'None', '(Pair False False)', '(Some False)'), ('xor.tz', 'None', '(Pair False True)', '(Some True)'), -- GitLab From 3ff9290fd4ebbd9055f1f143e2c4deaa4859ddb1 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Fri, 13 Sep 2019 11:37:36 +0200 Subject: [PATCH 099/252] tests: test all variations of ADD --- src/bin_client/test/contracts/opcodes/add.tz | 25 ++++++++++++++++++++ tests_python/tests/test_contract_opcodes.py | 3 +++ 2 files changed, 28 insertions(+) create mode 100644 src/bin_client/test/contracts/opcodes/add.tz diff --git a/src/bin_client/test/contracts/opcodes/add.tz b/src/bin_client/test/contracts/opcodes/add.tz new file mode 100644 index 000000000000..cbefea08a7a4 --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/add.tz @@ -0,0 +1,25 @@ +parameter unit; +storage unit; +code + { + CAR; + + PUSH int 2; PUSH int 2; ADD; PUSH int 4; ASSERT_CMPEQ; + PUSH int 2; PUSH int 2; ADD; PUSH int 4; ASSERT_CMPEQ; + PUSH int 2; PUSH nat 2; ADD; PUSH int 4; ASSERT_CMPEQ; + PUSH nat 2; PUSH int 2; ADD; PUSH int 4; ASSERT_CMPEQ; + PUSH nat 2; PUSH nat 2; ADD; PUSH nat 4; ASSERT_CMPEQ; + + # Offset a timestamp by 60 seconds + PUSH int 60; PUSH timestamp "2019-09-09T12:08:37Z"; ADD; + PUSH timestamp "2019-09-09T12:09:37Z"; ASSERT_CMPEQ; + + PUSH timestamp "2019-09-09T12:08:37Z"; PUSH int 60; ADD; + PUSH timestamp "2019-09-09T12:09:37Z"; ASSERT_CMPEQ; + + PUSH mutez 1000; PUSH mutez 1000; ADD; + PUSH mutez 2000; ASSERT_CMPEQ; + + NIL operation; + PAIR; + } diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index 6516d1f4d73a..764626bdd453 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -254,6 +254,9 @@ class TestContractOpcodes: ('tez_add_sub.tz', 'None', '(Pair 2310000 1010000)', '(Some (Pair 3320000 1300000))'), + # Test various additions + ('add.tz', 'Unit', 'Unit', 'Unit'), + # Test get first element of list ('first.tz', '111', '{ 1 ; 2 ; 3 ; 4 }', '1'), ('first.tz', '111', '{ 4 }', '4'), -- GitLab From 71763ee628c2edf1f2fa9507fd0d20009f616ad2 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Fri, 13 Sep 2019 11:51:47 +0200 Subject: [PATCH 100/252] tests: tests ABS --- src/bin_client/test/contracts/opcodes/abs.tz | 5 +++++ tests_python/tests/test_contract_opcodes.py | 5 +++++ 2 files changed, 10 insertions(+) create mode 100644 src/bin_client/test/contracts/opcodes/abs.tz diff --git a/src/bin_client/test/contracts/opcodes/abs.tz b/src/bin_client/test/contracts/opcodes/abs.tz new file mode 100644 index 000000000000..d03d0883fe73 --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/abs.tz @@ -0,0 +1,5 @@ +parameter nat; +storage unit; +code { CAR; + DUP; NEG; ABS; COMPARE; ASSERT_EQ; + UNIT; NIL operation; PAIR} diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index 764626bdd453..b83c2ac96dee 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -257,6 +257,11 @@ class TestContractOpcodes: # Test various additions ('add.tz', 'Unit', 'Unit', 'Unit'), + # Test ABS + ('abs.tz', 'Unit', '12039123919239192312931', 'Unit'), + ('abs.tz', 'Unit', '0', 'Unit'), + ('abs.tz', 'Unit', '948', 'Unit'), + # Test get first element of list ('first.tz', '111', '{ 1 ; 2 ; 3 ; 4 }', '1'), ('first.tz', '111', '{ 4 }', '4'), -- GitLab From 530bba61cd8a68d53fc572ae6574ccadc9b821b4 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Fri, 13 Sep 2019 12:02:10 +0200 Subject: [PATCH 101/252] tests: test DIP --- src/bin_client/test/contracts/opcodes/dip.tz | 8 ++++++++ tests_python/tests/test_contract_opcodes.py | 4 ++++ 2 files changed, 12 insertions(+) create mode 100644 src/bin_client/test/contracts/opcodes/dip.tz diff --git a/src/bin_client/test/contracts/opcodes/dip.tz b/src/bin_client/test/contracts/opcodes/dip.tz new file mode 100644 index 000000000000..f0c32a838747 --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/dip.tz @@ -0,0 +1,8 @@ +parameter (pair nat nat); +storage (pair nat nat); +code{ + CAR; UNPAIR; + DUP; DIP { ADD }; + PAIR; + NIL operation; + PAIR}; diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index b83c2ac96dee..63856e3dd3f4 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -262,6 +262,10 @@ class TestContractOpcodes: ('abs.tz', 'Unit', '0', 'Unit'), ('abs.tz', 'Unit', '948', 'Unit'), + # Test DIP + ('dip.tz', '(Pair 0 0)', '(Pair 15 9)', '(Pair 15 24)'), + ('dip.tz', '(Pair 0 0)', '(Pair 1 1)', '(Pair 1 2)'), + # Test get first element of list ('first.tz', '111', '{ 1 ; 2 ; 3 ; 4 }', '1'), ('first.tz', '111', '{ 4 }', '4'), -- GitLab From 283e8d79819e162313733a6a7191b08e7e38917b Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Fri, 13 Sep 2019 12:02:28 +0200 Subject: [PATCH 102/252] tests: test PACK/UNPACK --- .../test/contracts/opcodes/packunpack_rev.tz | 29 +++++++++++++++++++ tests_python/tests/test_contract_opcodes.py | 8 +++++ 2 files changed, 37 insertions(+) create mode 100644 src/bin_client/test/contracts/opcodes/packunpack_rev.tz diff --git a/src/bin_client/test/contracts/opcodes/packunpack_rev.tz b/src/bin_client/test/contracts/opcodes/packunpack_rev.tz new file mode 100644 index 000000000000..986b4e8cd33b --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/packunpack_rev.tz @@ -0,0 +1,29 @@ +parameter (pair + int + (pair + nat + (pair + string + (pair bytes (pair mutez (pair bool (pair key_hash (pair timestamp address)))))))); +storage unit ; +code { CAR; + # Check the int + DUP; CAR; DIP { UNPAIR; }; PACK; UNPACK int; ASSERT_SOME; ASSERT_CMPEQ; + # Check the nat + DUP; CAR; DIP { UNPAIR; }; PACK; UNPACK nat; ASSERT_SOME; ASSERT_CMPEQ; + # Check the string + DUP; CAR; DIP { UNPAIR; }; PACK; UNPACK string; ASSERT_SOME; ASSERT_CMPEQ; + # Check the bytes + DUP; CAR; DIP { UNPAIR; }; PACK; UNPACK bytes; ASSERT_SOME; ASSERT_CMPEQ; + # Check the mutez + DUP; CAR; DIP { UNPAIR; }; PACK; UNPACK mutez; ASSERT_SOME; ASSERT_CMPEQ; + # Check the bool + DUP; CAR; DIP { UNPAIR; }; PACK; UNPACK bool; ASSERT_SOME; ASSERT_CMPEQ; + # Check the key_hash + DUP; CAR; DIP { UNPAIR; }; PACK; UNPACK key_hash; ASSERT_SOME; ASSERT_CMPEQ; + # Check the timestamp + DUP; CAR; DIP { UNPAIR; }; PACK; UNPACK timestamp; ASSERT_SOME; ASSERT_CMPEQ; + # Check the address + DUP; PACK; UNPACK address; ASSERT_SOME; ASSERT_CMPEQ; + + UNIT ; NIL operation ; PAIR } diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index 63856e3dd3f4..b727b86587c7 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -327,6 +327,14 @@ class TestContractOpcodes: ('diff_timestamps.tz', '111', '(Pair 1 0)', '1'), ('diff_timestamps.tz', '111', '(Pair "1970-01-01T00:03:20Z" "1970-01-01T00:00:00Z")', '200'), + + # Test pack/unpack + ('packunpack_rev.tz', 'Unit', + '(Pair -1 (Pair 1 (Pair "foobar" (Pair 0x00AABBCC (Pair 1000 ' + + '(Pair False (Pair "tz1cxcwwnzENRdhe2Kb8ZdTrdNy4bFNyScx5" ' + + '(Pair "2019-09-09T08:35:33Z" ' + + '"tz1cxcwwnzENRdhe2Kb8ZdTrdNy4bFNyScx5"))))))))', 'Unit'), + ]) def test_contract_input_output(self, client, -- GitLab From 54129c3eaa29ccf6e611256e272d8d9b8bb7b86d Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Fri, 13 Sep 2019 12:02:41 +0200 Subject: [PATCH 103/252] tests: satisfy linter --- tests_python/tests/test_contract.py | 1 - tests_python/tests/test_contract_opcodes.py | 9 ++++++--- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/tests_python/tests/test_contract.py b/tests_python/tests/test_contract.py index 4e4f997ba5a9..6348edc163c1 100644 --- a/tests_python/tests/test_contract.py +++ b/tests_python/tests/test_contract.py @@ -279,7 +279,6 @@ class TestMiniScenarios: assert client.get_balance('create_contract') == 1000 def test_create_contract_perform_creation(self, client): - tz1 = IDENTITIES['bootstrap1']['identity'] transfer_result = client.transfer(0, "bootstrap1", "create_contract", ['-arg', 'None', diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index b727b86587c7..1d1c5297cf29 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -110,9 +110,12 @@ class TestContractOpcodes: '"Hello World!"'), # Concatenate the bytes in storage with all bytes in the given list - ('concat_hello_bytes.tz', '{}', '{ 0xcd }', '{ 0xffcd }'), - ('concat_hello_bytes.tz', '{}', '{}', '{}'), - ('concat_hello_bytes.tz', '{}', '{ 0xab ; 0xcd }', '{ 0xffab ; 0xffcd }'), + ('concat_hello_bytes.tz', '{}', '{ 0xcd }', + '{ 0xffcd }'), + ('concat_hello_bytes.tz', '{}', '{}', + '{}'), + ('concat_hello_bytes.tz', '{}', '{ 0xab ; 0xcd }', + '{ 0xffab ; 0xffcd }'), # Identity on lists ('list_id.tz', '{""}', '{ "1" ; "2" ; "3" }', -- GitLab From 17c7864eb2485023ef91d9806ca976a140587821 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Rapha=C3=ABl=20Cauderlier?= Date: Fri, 13 Sep 2019 16:57:30 +0200 Subject: [PATCH 104/252] Remove test for the deprecated STEPS_TO_QUOTA instruction --- tests_python/tests/test_contract_opcodes.py | 3 --- 1 file changed, 3 deletions(-) diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index 1d1c5297cf29..cf4e330dea07 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -245,9 +245,6 @@ class TestContractOpcodes: ('exec_concat.tz', '"?"', '""', '"_abc"'), ('exec_concat.tz', '"?"', '"test"', '"test_abc"'), - # Get current steps to quota - ('steps_to_quota.tz', '111', 'Unit', '799813'), - # Get the current balance of the contract ('balance.tz', '111', 'Unit', '4000000000000'), -- GitLab From 42f2d81dc78e6d270f07c75da4a10cd43fccf0cb Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Fri, 13 Sep 2019 15:52:32 +0200 Subject: [PATCH 105/252] test: add test for big_map GET --- .../contracts/opcodes/get_big_map_value.tz | 6 ++++ tests_python/client/client_output.py | 10 +++++++ tests_python/tests/test_contract_opcodes.py | 28 +++++++++++++++++++ 3 files changed, 44 insertions(+) create mode 100644 src/bin_client/test/contracts/opcodes/get_big_map_value.tz diff --git a/src/bin_client/test/contracts/opcodes/get_big_map_value.tz b/src/bin_client/test/contracts/opcodes/get_big_map_value.tz new file mode 100644 index 000000000000..4ca52343d45a --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/get_big_map_value.tz @@ -0,0 +1,6 @@ +parameter string; +storage (pair (big_map string string) (option string)); +# retrieves the values stored in the big_map on the left side of the +# pair at the key denoted by the parameter and puts it in the right +# hand side of the storage +code {DUP; CAR; DIP{CDAR; DUP}; GET; SWAP; PAIR; NIL operation; PAIR}; diff --git a/tests_python/client/client_output.py b/tests_python/client/client_output.py index c628cad4002e..8997f1069718 100644 --- a/tests_python/client/client_output.py +++ b/tests_python/client/client_output.py @@ -79,12 +79,22 @@ class RunScriptResult: """Result of a 'get script' operation.""" def __init__(self, client_output: str): + # read storage output pattern = r"^storage\n\s*(.*)" match = re.search(pattern, client_output) if match is None: raise InvalidClientOutput(client_output) self.storage = match.groups()[0] + # read map diff output + self.big_map_diff = [] + pattern = r"map diff:\n" + match = re.search(pattern, client_output) + if match is not None: + pattern = re.compile(r" ([+-]) (.*?)-> (.*?)\n") + for match_diff in pattern.finditer(client_output, match.end(0)): + self.big_map_diff.append(match_diff.groups()) + class OriginationResult: """Result of an 'originate contract' operation.""" diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index cf4e330dea07..fbdf69239443 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -347,6 +347,34 @@ class TestContractOpcodes: run_script_res = client.run_script(contract, param, storage) assert run_script_res.storage == expected + @pytest.mark.parametrize( + "contract,param,storage,expected,big_map_diff", + [ # FORMAT: assert_output contract_file storage input expected_result + # expected_diffs + + # Get the value stored at the given key in the big map + ('get_big_map_value.tz', '(Pair { Elt "hello" "hi" } None)', + '"hello"', '(Pair {} (Some "hi"))', [("+", '"hello"', '"hi"')]), + ('get_big_map_value.tz', '(Pair { Elt "hello" "hi" } None)', '""', + '(Pair {} None)', [("+", '"hello"', '"hi"')]), + ('get_big_map_value.tz', + '(Pair { Elt "1" "one" ; Elt "2" "two" } None)', + '"1"', + '(Pair {} (Some "one"))', + [("+", '"1"', '"one"'), ("+", '"2"', '"two"')]), + ]) + def test__big_map_contract_io(self, + client, + contract, + param, + storage, + expected, + big_map_diff): + contract = f'{CONTRACT_PATH}/{contract}' + run_script_res = client.run_script(contract, param, storage) + assert run_script_res.storage == expected + assert run_script_res.big_map_diff == big_map_diff + def test_packunpack(self, client): """Test PACK/UNPACK and binary format.""" assert_run_script_success( -- GitLab From c0405d9005ee1d8f552466cb67035061e40246ed Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Fri, 13 Sep 2019 16:20:52 +0200 Subject: [PATCH 106/252] test: test MEM for map and big_map --- .../test/contracts/opcodes/big_map_mem_nat.tz | 7 ++ .../contracts/opcodes/big_map_mem_string.tz | 7 ++ .../test/contracts/opcodes/map_mem_nat.tz | 7 ++ .../test/contracts/opcodes/map_mem_string.tz | 7 ++ tests_python/tests/test_contract_opcodes.py | 64 ++++++++++++++++++- 5 files changed, 91 insertions(+), 1 deletion(-) create mode 100644 src/bin_client/test/contracts/opcodes/big_map_mem_nat.tz create mode 100644 src/bin_client/test/contracts/opcodes/big_map_mem_string.tz create mode 100644 src/bin_client/test/contracts/opcodes/map_mem_nat.tz create mode 100644 src/bin_client/test/contracts/opcodes/map_mem_string.tz diff --git a/src/bin_client/test/contracts/opcodes/big_map_mem_nat.tz b/src/bin_client/test/contracts/opcodes/big_map_mem_nat.tz new file mode 100644 index 000000000000..71ecaf2c4a75 --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/big_map_mem_nat.tz @@ -0,0 +1,7 @@ +parameter nat; +storage (pair (big_map nat nat) (option bool)) ; +# stores (map, Some flag) where flag = parameter is a member of +# the map in first component of storage +code { UNPAIR; + DIP { CAR; DUP }; + MEM; SOME; SWAP; PAIR; NIL operation; PAIR;} diff --git a/src/bin_client/test/contracts/opcodes/big_map_mem_string.tz b/src/bin_client/test/contracts/opcodes/big_map_mem_string.tz new file mode 100644 index 000000000000..8c557f7dc1f8 --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/big_map_mem_string.tz @@ -0,0 +1,7 @@ +parameter string; +storage (pair (big_map string nat) (option bool)) ; +# stores (map, Some flag) where flag = parameter is a member of +# the map in first component of storage +code { UNPAIR; + DIP { CAR; DUP }; + MEM; SOME; SWAP; PAIR; NIL operation; PAIR;} diff --git a/src/bin_client/test/contracts/opcodes/map_mem_nat.tz b/src/bin_client/test/contracts/opcodes/map_mem_nat.tz new file mode 100644 index 000000000000..0c245d7e0a65 --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/map_mem_nat.tz @@ -0,0 +1,7 @@ +parameter nat; +storage (pair (map nat nat) (option bool)) ; +# stores (map, Some flag) where flag = parameter is a member of +# the map in first component of storage +code { UNPAIR; + DIP { CAR; DUP }; + MEM; SOME; SWAP; PAIR; NIL operation; PAIR;} diff --git a/src/bin_client/test/contracts/opcodes/map_mem_string.tz b/src/bin_client/test/contracts/opcodes/map_mem_string.tz new file mode 100644 index 000000000000..3fa5cd5b579f --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/map_mem_string.tz @@ -0,0 +1,7 @@ +parameter string; +storage (pair (map string nat) (option bool)) ; +# stores (map, Some flag) where flag = parameter is a member of +# the map in first component of storage +code { UNPAIR; + DIP { CAR; DUP }; + MEM; SOME; SWAP; PAIR; NIL operation; PAIR;} diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index fbdf69239443..05f3cefb2584 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -137,6 +137,66 @@ class TestContractOpcodes: ('map_id.tz', '{}', '{ Elt 0 0 ; Elt 3 4 }', '{ Elt 0 0 ; Elt 3 4 }'), + # Memberships in maps + ('map_mem_nat.tz', '(Pair { Elt 0 1 } None)', '1', + '(Pair { Elt 0 1 } (Some False))'), + ('map_mem_nat.tz', '(Pair {} None)', '1', + '(Pair {} (Some False))'), + ('map_mem_nat.tz', '(Pair { Elt 1 0 } None)', '1', + '(Pair { Elt 1 0 } (Some True))'), + ('map_mem_nat.tz', '(Pair { Elt 1 4 ; Elt 2 11 } None)', '1', + '(Pair { Elt 1 4 ; Elt 2 11 } (Some True))'), + ('map_mem_nat.tz', '(Pair { Elt 1 4 ; Elt 2 11 } None)', '2', + '(Pair { Elt 1 4 ; Elt 2 11 } (Some True))'), + ('map_mem_nat.tz', '(Pair { Elt 1 4 ; Elt 2 11 } None)', '3', + '(Pair { Elt 1 4 ; Elt 2 11 } (Some False))'), + + ('map_mem_string.tz', '(Pair { Elt "foo" 1 } None)', '"bar"', + '(Pair { Elt "foo" 1 } (Some False))'), + ('map_mem_string.tz', '(Pair {} None)', '"bar"', + '(Pair {} (Some False))'), + ('map_mem_string.tz', '(Pair { Elt "foo" 0 } None)', '"foo"', + '(Pair { Elt "foo" 0 } (Some True))'), + ('map_mem_string.tz', '(Pair { Elt "bar" 4 ; Elt "foo" 11 } None)', + '"foo"', '(Pair { Elt "bar" 4 ; Elt "foo" 11 } (Some True))'), + ('map_mem_string.tz', '(Pair { Elt "bar" 4 ; Elt "foo" 11 } None)', + '"bar"', '(Pair { Elt "bar" 4 ; Elt "foo" 11 } (Some True))'), + ('map_mem_string.tz', '(Pair { Elt "bar" 4 ; Elt "foo" 11 } None)', + '"baz"', '(Pair { Elt "bar" 4 ; Elt "foo" 11 } (Some False))'), + + # Memberships in big maps + ('big_map_mem_nat.tz', '(Pair { Elt 0 1 } None)', '1', + '(Pair {} (Some False))'), + ('big_map_mem_nat.tz', '(Pair {} None)', '1', + '(Pair {} (Some False))'), + ('big_map_mem_nat.tz', '(Pair { Elt 1 0 } None)', '1', + '(Pair {} (Some True))'), + ('big_map_mem_nat.tz', '(Pair { Elt 1 4 ; Elt 2 11 } None)', '1', + '(Pair {} (Some True))'), + ('big_map_mem_nat.tz', '(Pair { Elt 1 4 ; Elt 2 11 } None)', '2', + '(Pair {} (Some True))'), + ('big_map_mem_nat.tz', '(Pair { Elt 1 4 ; Elt 2 11 } None)', '3', + '(Pair {} (Some False))'), + + ('big_map_mem_string.tz', + '(Pair { Elt "foo" 1 } None)', '"bar"', + '(Pair {} (Some False))'), + ('big_map_mem_string.tz', + '(Pair {} None)', '"bar"', + '(Pair {} (Some False))'), + ('big_map_mem_string.tz', + '(Pair { Elt "foo" 0 } None)', '"foo"', + '(Pair {} (Some True))'), + ('big_map_mem_string.tz', + '(Pair { Elt "bar" 4 ; Elt "foo" 11 } None)', + '"foo"', '(Pair {} (Some True))'), + ('big_map_mem_string.tz', + '(Pair { Elt "bar" 4 ; Elt "foo" 11 } None)', + '"bar"', '(Pair {} (Some True))'), + ('big_map_mem_string.tz', + '(Pair { Elt "bar" 4 ; Elt "foo" 11 } None)', + '"baz"', '(Pair {} (Some False))'), + # Identity on sets ('set_id.tz', '{}', '{ "a" ; "b" ; "c" }', '{ "a" ; "b" ; "c" }'), ('set_id.tz', '{}', '{}', '{}'), @@ -335,6 +395,8 @@ class TestContractOpcodes: '(Pair "2019-09-09T08:35:33Z" ' + '"tz1cxcwwnzENRdhe2Kb8ZdTrdNy4bFNyScx5"))))))))', 'Unit'), + + ]) def test_contract_input_output(self, client, @@ -361,7 +423,7 @@ class TestContractOpcodes: '(Pair { Elt "1" "one" ; Elt "2" "two" } None)', '"1"', '(Pair {} (Some "one"))', - [("+", '"1"', '"one"'), ("+", '"2"', '"two"')]), + [("+", '"1"', '"one"'), ("+", '"2"', '"two"')]) ]) def test__big_map_contract_io(self, client, -- GitLab From 380947fd9a156f851dd9ca87456da8d9410080c4 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Fri, 13 Sep 2019 16:59:04 +0200 Subject: [PATCH 107/252] test: test MAP for maps --- src/bin_client/test/contracts/opcodes/map_map.tz | 8 ++++++++ tests_python/tests/test_contract_opcodes.py | 6 ++++++ 2 files changed, 14 insertions(+) create mode 100644 src/bin_client/test/contracts/opcodes/map_map.tz diff --git a/src/bin_client/test/contracts/opcodes/map_map.tz b/src/bin_client/test/contracts/opcodes/map_map.tz new file mode 100644 index 000000000000..4acbd63c32c4 --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/map_map.tz @@ -0,0 +1,8 @@ +parameter nat; +storage (map string nat); +# this contract adds the value passed by parameter to each entry in +# the stored map. +code { UNPAIR; SWAP; + MAP { CDR; DIP {DUP}; ADD; }; + DIP { DROP; }; + NIL operation; PAIR; } diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index 05f3cefb2584..939866c9f167 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -164,6 +164,12 @@ class TestContractOpcodes: ('map_mem_string.tz', '(Pair { Elt "bar" 4 ; Elt "foo" 11 } None)', '"baz"', '(Pair { Elt "bar" 4 ; Elt "foo" 11 } (Some False))'), + # Mapping over maps + ('map_map.tz', '{}', '10', '{}'), + ('map_map.tz', '{ Elt "foo" 1 }', '10', '{ Elt "foo" 11 }'), + ('map_map.tz', '{ Elt "bar" 5 ; Elt "foo" 1 }', '15', + '{ Elt "bar" 20 ; Elt "foo" 16 }'), + # Memberships in big maps ('big_map_mem_nat.tz', '(Pair { Elt 0 1 } None)', '1', '(Pair {} (Some False))'), -- GitLab From 385db87ad85ee4b9b5993da450736f062cdc8b72 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Fri, 13 Sep 2019 17:26:09 +0200 Subject: [PATCH 108/252] tests: test UPDATE on big_map --- .../test/contracts/opcodes/update_big_map.tz | 6 +++ tests_python/client/client_output.py | 5 +- tests_python/tests/test_contract_opcodes.py | 48 +++++++++++++++++-- 3 files changed, 54 insertions(+), 5 deletions(-) create mode 100644 src/bin_client/test/contracts/opcodes/update_big_map.tz diff --git a/src/bin_client/test/contracts/opcodes/update_big_map.tz b/src/bin_client/test/contracts/opcodes/update_big_map.tz new file mode 100644 index 000000000000..c403975a38fb --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/update_big_map.tz @@ -0,0 +1,6 @@ +storage (pair (big_map string string) unit); +parameter (map string (option string)); +# this contract the stored big_map according to the map taken in parameter +code { UNPAPAIR; + ITER { UNPAIR; UPDATE; } ; + PAIR; NIL operation; PAIR}; diff --git a/tests_python/client/client_output.py b/tests_python/client/client_output.py index 8997f1069718..fe78d9607295 100644 --- a/tests_python/client/client_output.py +++ b/tests_python/client/client_output.py @@ -91,9 +91,10 @@ class RunScriptResult: pattern = r"map diff:\n" match = re.search(pattern, client_output) if match is not None: - pattern = re.compile(r" ([+-]) (.*?)-> (.*?)\n") + pattern = re.compile(r" ([+-]) (.*?)\n") for match_diff in pattern.finditer(client_output, match.end(0)): - self.big_map_diff.append(match_diff.groups()) + diff = [match_diff.group(1)] + match_diff.group(2).split('-> ') + self.big_map_diff.append(diff) class OriginationResult: diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index 939866c9f167..82c4a30b12ab 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -203,6 +203,20 @@ class TestContractOpcodes: '(Pair { Elt "bar" 4 ; Elt "foo" 11 } None)', '"baz"', '(Pair {} (Some False))'), + # Memberships in big maps + ('big_map_mem_nat.tz', '(Pair { Elt 0 1 } None)', '1', + '(Pair {} (Some False))'), + ('big_map_mem_nat.tz', '(Pair {} None)', '1', + '(Pair {} (Some False))'), + ('big_map_mem_nat.tz', '(Pair { Elt 1 0 } None)', '1', + '(Pair {} (Some True))'), + ('big_map_mem_nat.tz', '(Pair { Elt 1 4 ; Elt 2 11 } None)', '1', + '(Pair {} (Some True))'), + ('big_map_mem_nat.tz', '(Pair { Elt 1 4 ; Elt 2 11 } None)', '2', + '(Pair {} (Some True))'), + ('big_map_mem_nat.tz', '(Pair { Elt 1 4 ; Elt 2 11 } None)', '3', + '(Pair {} (Some False))'), + # Identity on sets ('set_id.tz', '{}', '{ "a" ; "b" ; "c" }', '{ "a" ; "b" ; "c" }'), ('set_id.tz', '{}', '{}', '{}'), @@ -422,14 +436,42 @@ class TestContractOpcodes: # Get the value stored at the given key in the big map ('get_big_map_value.tz', '(Pair { Elt "hello" "hi" } None)', - '"hello"', '(Pair {} (Some "hi"))', [("+", '"hello"', '"hi"')]), + '"hello"', '(Pair {} (Some "hi"))', [["+", '"hello"', '"hi"']]), ('get_big_map_value.tz', '(Pair { Elt "hello" "hi" } None)', '""', - '(Pair {} None)', [("+", '"hello"', '"hi"')]), + '(Pair {} None)', [["+", '"hello"', '"hi"']]), ('get_big_map_value.tz', '(Pair { Elt "1" "one" ; Elt "2" "two" } None)', '"1"', '(Pair {} (Some "one"))', - [("+", '"1"', '"one"'), ("+", '"2"', '"two"')]) + [["+", '"1"', '"one"'], ["+", '"2"', '"two"']]), + + # Test updating big maps + ('update_big_map.tz', + '(Pair { Elt "1" "one" ; Elt "2" "two" } Unit)', + '{}', '(Pair {} Unit)', + [["+", '"1"', '"one"'], ["+", '"2"', '"two"']]), + ('update_big_map.tz', + '(Pair { Elt "1" "one" ; Elt "2" "two" } Unit)', + '{ Elt "1" (Some "two") }', '(Pair {} Unit)', + [["+", '"1"', '"two"'], ["+", '"2"', '"two"']]), + ('update_big_map.tz', + '(Pair { Elt "1" "one" ; Elt "2" "two" } Unit)', + '{ Elt "3" (Some "three") }', '(Pair {} Unit)', + [["+", '"1"', '"one"'], + ["+", '"2"', '"two"'], + ["+", '"3"', '"three"']]), + ('update_big_map.tz', + '(Pair { Elt "1" "one" ; Elt "2" "two" } Unit)', + '{ Elt "3" None }', '(Pair {} Unit)', + [["+", '"1"', '"one"'], ["+", '"2"', '"two"'], ["-", '"3"']]), + ('update_big_map.tz', + '(Pair { Elt "1" "one" ; Elt "2" "two" } Unit)', + '{ Elt "2" None }', '(Pair {} Unit)', + [["+", '"1"', '"one"'], ["-", '"2"']]), + ('update_big_map.tz', + '(Pair { Elt "1" "one" ; Elt "2" "two" } Unit)', + '{ Elt "1" (Some "two") }', '(Pair {} Unit)', + [["+", '"1"', '"two"'], ["+", '"2"', '"two"']]) ]) def test__big_map_contract_io(self, client, -- GitLab From f383152fba7bd4e8fbaedf904b03ae8a43d00568 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Fri, 13 Sep 2019 17:52:57 +0200 Subject: [PATCH 109/252] tests: test EDIV --- src/bin_client/test/contracts/opcodes/ediv.tz | 13 +++++++++++++ tests_python/tests/test_contract_opcodes.py | 17 +++++++++++++++-- 2 files changed, 28 insertions(+), 2 deletions(-) create mode 100644 src/bin_client/test/contracts/opcodes/ediv.tz diff --git a/src/bin_client/test/contracts/opcodes/ediv.tz b/src/bin_client/test/contracts/opcodes/ediv.tz new file mode 100644 index 000000000000..ee577a4dc4a0 --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/ediv.tz @@ -0,0 +1,13 @@ +parameter (pair int int); +storage (pair (option (pair int nat)) (pair (option (pair int nat)) (pair (option (pair int nat)) (option (pair nat nat))))); +code { CAR; + # :: nat : nat : 'S -> option (pair nat nat) : 'S + DUP; UNPAIR; ABS; DIP { ABS; }; EDIV; SWAP; + # :: nat : int : 'S -> option (pair int nat) : 'S + DUP; UNPAIR; ABS; EDIV; SWAP; + # :: int : nat : 'S -> option (pair int nat) : 'S + DUP; UNPAIR; DIP { ABS; }; EDIV; SWAP; + # :: int : int : 'S -> option (pair int nat) : 'S + UNPAIR; EDIV; + PAPAPAIR; + NIL operation; PAIR} diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index 82c4a30b12ab..d622be0e1e54 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -415,8 +415,21 @@ class TestContractOpcodes: '(Pair "2019-09-09T08:35:33Z" ' + '"tz1cxcwwnzENRdhe2Kb8ZdTrdNy4bFNyScx5"))))))))', 'Unit'), - - + # Test EDIV + ('ediv.tz', + '(Pair None (Pair None (Pair None None)))', + '(Pair 10 -3)', + '(Pair (Some (Pair -3 1)) (Pair (Some (Pair 3 1)) ' + + '(Pair (Some (Pair -3 1)) (Some (Pair 3 1)))))'), + ('ediv.tz', + '(Pair None (Pair None (Pair None None)))', + '(Pair 10 0)', + '(Pair None (Pair None (Pair None None)))'), + ('ediv.tz', + '(Pair None (Pair None (Pair None None)))', + '(Pair -8 2)', + '(Pair (Some (Pair -4 0)) (Pair (Some (Pair -4 0)) ' + + '(Pair (Some (Pair 4 0)) (Some (Pair 4 0)))))') ]) def test_contract_input_output(self, client, -- GitLab From 1a4bfbc64b5d925c3bf15a7abf3db15baff64496 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Rapha=C3=ABl=20Cauderlier?= Date: Mon, 16 Sep 2019 12:23:36 +0200 Subject: [PATCH 110/252] Tests: test XOR on nats --- src/bin_client/test/contracts/opcodes/xor.tz | 16 +++++++++++++--- tests_python/tests/test_contract_opcodes.py | 16 +++++++++++----- 2 files changed, 24 insertions(+), 8 deletions(-) diff --git a/src/bin_client/test/contracts/opcodes/xor.tz b/src/bin_client/test/contracts/opcodes/xor.tz index ab8dcf57d086..557eaa642b9a 100644 --- a/src/bin_client/test/contracts/opcodes/xor.tz +++ b/src/bin_client/test/contracts/opcodes/xor.tz @@ -1,3 +1,13 @@ -parameter (pair bool bool); -storage (option bool); -code {CAR; DUP; CAR; DIP{CDR}; XOR; SOME; NIL operation ; PAIR}; +parameter (or (pair bool bool) (pair nat nat)); +storage (option (or bool nat)); +code { + CAR; + IF_LEFT + { + UNPAIR; XOR; LEFT nat + } + { + UNPAIR; XOR; RIGHT bool + } ; + SOME; NIL operation ; PAIR + } diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index d622be0e1e54..6cb96d8fde40 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -97,11 +97,17 @@ class TestContractOpcodes: ('and_binary.tz', 'Unit', 'Unit', 'Unit'), # XOR - ('xor.tz', 'None', '(Pair False False)', '(Some False)'), - ('xor.tz', 'None', '(Pair False True)', '(Some True)'), - ('xor.tz', 'None', '(Pair True False)', '(Some True)'), - ('xor.tz', 'None', '(Pair True True)', '(Some False)'), - + ('xor.tz', 'None', 'Left (Pair False False)', '(Some (Left False))'), + ('xor.tz', 'None', 'Left (Pair False True)', '(Some (Left True))'), + ('xor.tz', 'None', 'Left (Pair True False)', '(Some (Left True))'), + ('xor.tz', 'None', 'Left (Pair True True)', '(Some (Left False))'), + + ('xor.tz', 'None', 'Right (Pair 0 0)', '(Some (Right 0))'), + ('xor.tz', 'None', 'Right (Pair 0 1)', '(Some (Right 1))'), + ('xor.tz', 'None', 'Right (Pair 1 0)', '(Some (Right 1))'), + ('xor.tz', 'None', 'Right (Pair 1 1)', '(Some (Right 0))'), + ('xor.tz', 'None', 'Right (Pair 42 21)', '(Some (Right 63))'), + ('xor.tz', 'None', 'Right (Pair 42 63)', '(Some (Right 21))'), # Concatenate all strings of a list into one string ('concat_list.tz', '""', '{ "a" ; "b" ; "c" }', '"abc"'), -- GitLab From dcbbf6650d5a54b148ebba764a7b1a92873358c3 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Fri, 13 Sep 2019 18:00:28 +0200 Subject: [PATCH 111/252] tests: test SIZE on list --- src/bin_client/test/contracts/opcodes/list_size.tz | 3 +++ tests_python/tests/test_contract_opcodes.py | 6 ++++++ 2 files changed, 9 insertions(+) create mode 100644 src/bin_client/test/contracts/opcodes/list_size.tz diff --git a/src/bin_client/test/contracts/opcodes/list_size.tz b/src/bin_client/test/contracts/opcodes/list_size.tz new file mode 100644 index 000000000000..6ced12799187 --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/list_size.tz @@ -0,0 +1,3 @@ +parameter (list int); +storage nat; +code {CAR; SIZE; NIL operation; PAIR} diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index 6cb96d8fde40..450a3c86b9cc 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -243,6 +243,12 @@ class TestContractOpcodes: ('list_iter.tz', '0', '{ 10 ; 2 ; 1 }', '20'), ('list_iter.tz', '0', '{ 3 ; 6 ; 9 }', '162'), + # List size + ('list_size.tz', '111', '{}', '0'), + ('list_size.tz', '111', '{ 1 }', '1'), + ('list_size.tz', '111', '{ 1 ; 2 ; 3 }', '3'), + ('list_size.tz', '111', '{ 1 ; 2 ; 3 ; 4 ; 5 ; 6 }', '6'), + # Set member -- set is in storage ('set_member.tz', '(Pair {} None)', '"Hi"', '(Pair {} (Some False))'), -- GitLab From 4b0a3a787ff97123258e33a7e333f84d72541fd6 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Fri, 13 Sep 2019 18:21:07 +0200 Subject: [PATCH 112/252] tests: test false branch of SLICE on string and bytes --- src/bin_client/test/contracts/opcodes/slice.tz | 5 +++++ .../test/contracts/opcodes/slice_bytes.tz | 5 +++++ tests_python/tests/test_contract_opcodes.py | 18 ++++++++++++++++++ 3 files changed, 28 insertions(+) create mode 100644 src/bin_client/test/contracts/opcodes/slice.tz create mode 100644 src/bin_client/test/contracts/opcodes/slice_bytes.tz diff --git a/src/bin_client/test/contracts/opcodes/slice.tz b/src/bin_client/test/contracts/opcodes/slice.tz new file mode 100644 index 000000000000..3461bb5533d1 --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/slice.tz @@ -0,0 +1,5 @@ +parameter (pair nat nat); +storage (option string); +code { UNPAIR; SWAP; + IF_SOME {SWAP; UNPAIR; SLICE;} {DROP; NONE string;}; + NIL operation; PAIR} diff --git a/src/bin_client/test/contracts/opcodes/slice_bytes.tz b/src/bin_client/test/contracts/opcodes/slice_bytes.tz new file mode 100644 index 000000000000..c0f60f358765 --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/slice_bytes.tz @@ -0,0 +1,5 @@ +parameter (pair nat nat); +storage (option bytes); +code { UNPAIR; SWAP; + IF_SOME {SWAP; UNPAIR; SLICE;} {DROP; NONE bytes;}; + NIL operation; PAIR} diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index 450a3c86b9cc..c05287bf69e9 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -57,6 +57,24 @@ class TestContractOpcodes: ('str_id.tz', 'None', '"Hello"', '(Some "Hello")'), ('str_id.tz', 'None', '"abcd"', '(Some "abcd")'), + # Slice strings + ('slice.tz', 'None', 'Pair 0 0', 'None'), + ('slice.tz', 'Some "Foo"', 'Pair 10 5', 'None'), + ('slice.tz', 'Some "Foo"', 'Pair 0 0', '(Some "")'), + ('slice.tz', 'Some "Foo"', 'Pair 0 10', 'None'), + ('slice.tz', 'Some "Foo"', 'Pair 0 2', '(Some "Fo")'), + ('slice.tz', 'Some "Foo"', 'Pair 1 3', 'None'), + ('slice.tz', 'Some "Foo"', 'Pair 1 1', '(Some "o")'), + + # Slice bytes + ('slice_bytes.tz', 'None', 'Pair 0 1', 'None'), + ('slice_bytes.tz', 'Some 0xaabbcc', 'Pair 0 0', '(Some 0x)'), + ('slice_bytes.tz', 'Some 0xaabbcc', 'Pair 0 1', '(Some 0xaa)'), + ('slice_bytes.tz', 'Some 0xaabbcc', 'Pair 1 1', '(Some 0xbb)'), + ('slice_bytes.tz', 'Some 0xaabbcc', 'Pair 1 2', '(Some 0xbbcc)'), + ('slice_bytes.tz', 'Some 0xaabbcc', 'Pair 1 3', 'None'), + ('slice_bytes.tz', 'Some 0xaabbcc', 'Pair 1 1', '(Some 0xbb)'), + # Identity on pairs ('pair_id.tz', 'None', '(Pair True False)', '(Some (Pair True False))'), -- GitLab From 68b012988a1bd2821067f8ba09bd6a4188365f40 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Mon, 16 Sep 2019 12:16:50 +0200 Subject: [PATCH 113/252] test: test COMPARE (scalar cases) --- .../test/contracts/opcodes/compare.tz | 52 +++++++++++++++++++ tests_python/tests/test_contract_opcodes.py | 5 +- 2 files changed, 56 insertions(+), 1 deletion(-) create mode 100644 src/bin_client/test/contracts/opcodes/compare.tz diff --git a/src/bin_client/test/contracts/opcodes/compare.tz b/src/bin_client/test/contracts/opcodes/compare.tz new file mode 100644 index 000000000000..963215fb46cd --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/compare.tz @@ -0,0 +1,52 @@ +parameter unit; +storage unit; +code { + DROP; + + # bool + PUSH bool True; DUP; COMPARE; ASSERT_EQ; + PUSH bool False; DUP; COMPARE; ASSERT_EQ; + PUSH bool False; PUSH bool True; COMPARE; ASSERT_GT; + PUSH bool True; PUSH bool False; COMPARE; ASSERT_LT; + + # bytes + PUSH bytes 0xAABBCC; DUP; COMPARE; ASSERT_EQ; + PUSH bytes 0x; PUSH bytes 0x; COMPARE; ASSERT_EQ; + PUSH bytes 0x; PUSH bytes 0x01; COMPARE; ASSERT_GT; + PUSH bytes 0x01; PUSH bytes 0x02; COMPARE; ASSERT_GT; + PUSH bytes 0x02; PUSH bytes 0x01; COMPARE; ASSERT_LT; + + # int + PUSH int 1; DUP; COMPARE; ASSERT_EQ; + PUSH int 10; PUSH int 5; COMPARE; ASSERT_LT; + PUSH int -4; PUSH int 1923; COMPARE; ASSERT_GT; + + # nat + PUSH nat 1; DUP; COMPARE; ASSERT_EQ; + PUSH nat 10; PUSH nat 5; COMPARE; ASSERT_LT; + PUSH nat 4; PUSH nat 1923; COMPARE; ASSERT_GT; + + # key_hash + PUSH key_hash "tz1KqTpEZ7Yob7QbPE4Hy4Wo8fHG8LhKxZSx"; DUP; COMPARE; ASSERT_EQ; + PUSH key_hash "tz1ddb9NMYHZi5UzPdzTZMYQQZoMub195zgv"; PUSH key_hash "tz1KqTpEZ7Yob7QbPE4Hy4Wo8fHG8LhKxZSx"; COMPARE; ASSERT_LT; + PUSH key_hash "tz1KqTpEZ7Yob7QbPE4Hy4Wo8fHG8LhKxZSx"; PUSH key_hash "tz1ddb9NMYHZi5UzPdzTZMYQQZoMub195zgv"; COMPARE; ASSERT_GT; + + # mutez + PUSH mutez 1; DUP; COMPARE; ASSERT_EQ; + PUSH mutez 10; PUSH mutez 5; COMPARE; ASSERT_LT; + PUSH mutez 4; PUSH mutez 1923; COMPARE; ASSERT_GT; + + # string + PUSH string "AABBCC"; DUP; COMPARE; ASSERT_EQ; + PUSH string ""; PUSH string ""; COMPARE; ASSERT_EQ; + PUSH string ""; PUSH string "a"; COMPARE; ASSERT_GT; + PUSH string "a"; PUSH string "b"; COMPARE; ASSERT_GT; + PUSH string "b"; PUSH string "a"; COMPARE; ASSERT_LT; + + # timestamp + PUSH timestamp "2019-09-16T08:38:05Z"; DUP; COMPARE; ASSERT_EQ; + PUSH timestamp "2017-09-16T08:38:04Z"; PUSH timestamp "2019-09-16T08:38:05Z"; COMPARE; ASSERT_GT; + PUSH timestamp "2019-09-16T08:38:05Z"; PUSH timestamp "2019-09-16T08:38:04Z"; COMPARE; ASSERT_LT; + + UNIT; NIL operation; PAIR; + } diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index c05287bf69e9..d1d94083fdba 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -459,7 +459,10 @@ class TestContractOpcodes: '(Pair None (Pair None (Pair None None)))', '(Pair -8 2)', '(Pair (Some (Pair -4 0)) (Pair (Some (Pair -4 0)) ' + - '(Pair (Some (Pair 4 0)) (Some (Pair 4 0)))))') + '(Pair (Some (Pair 4 0)) (Some (Pair 4 0)))))'), + + # Test compare + ('compare.tz', 'Unit', 'Unit', 'Unit') ]) def test_contract_input_output(self, client, -- GitLab From caba44634c3f2b502232bf7bdeb9b933c4765ba2 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Mon, 16 Sep 2019 14:11:22 +0200 Subject: [PATCH 114/252] test: capture multistring storage in client output --- tests_python/client/client_output.py | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests_python/client/client_output.py b/tests_python/client/client_output.py index fe78d9607295..f77ba6c49429 100644 --- a/tests_python/client/client_output.py +++ b/tests_python/client/client_output.py @@ -80,7 +80,7 @@ class RunScriptResult: def __init__(self, client_output: str): # read storage output - pattern = r"^storage\n\s*(.*)" + pattern = r"(?s)storage\n\s*(.*)\nemitted operations\n" match = re.search(pattern, client_output) if match is None: raise InvalidClientOutput(client_output) -- GitLab From 9d850173fb34b9edac0be22157439897d5289e36 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Mon, 16 Sep 2019 14:12:20 +0200 Subject: [PATCH 115/252] tests: test comparison combinators (EQ/NEQ/LE/LT/GE/GT) --- .../test/contracts/opcodes/comparisons.tz | 15 +++++++++++++++ tests_python/tests/test_contract_opcodes.py | 16 +++++++++++++++- 2 files changed, 30 insertions(+), 1 deletion(-) create mode 100644 src/bin_client/test/contracts/opcodes/comparisons.tz diff --git a/src/bin_client/test/contracts/opcodes/comparisons.tz b/src/bin_client/test/contracts/opcodes/comparisons.tz new file mode 100644 index 000000000000..c603f07339ce --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/comparisons.tz @@ -0,0 +1,15 @@ +parameter (list int); +storage (list (list bool)); +code { + CAR; + + NIL (list bool); + DIP {DUP; MAP { EQ; };}; SWAP; CONS; + DIP {DUP; MAP { NEQ; };}; SWAP; CONS; + DIP {DUP; MAP { LE; };}; SWAP; CONS; + DIP {DUP; MAP { LT; };}; SWAP; CONS; + DIP {DUP; MAP { GE; };}; SWAP; CONS; + DIP {MAP { GT; };}; SWAP; CONS; + + NIL operation; PAIR; + } diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index d1d94083fdba..e42a3c574e26 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -462,7 +462,21 @@ class TestContractOpcodes: '(Pair (Some (Pair 4 0)) (Some (Pair 4 0)))))'), # Test compare - ('compare.tz', 'Unit', 'Unit', 'Unit') + ('compare.tz', 'Unit', 'Unit', 'Unit'), + + # Test comparison combinators: + # GT, GE, LT, LE, NEQ, EQ + + ('comparisons.tz', '{}', + '{ -9999999; -1 ; 0 ; 1 ; 9999999 }', + '{ ' + + '{ False ; False ; False ; True ; True } ;' "\n" + ' { False ; False ; True ; True ; True } ;' "\n" + ' { True ; True ; False ; False ; False } ;' "\n" + ' { True ; True ; True ; False ; False } ;' "\n" + ' { True ; True ; False ; True ; True } ;' "\n" + ' { False ; False ; True ; False ; False }' + ' }') ]) def test_contract_input_output(self, client, -- GitLab From 6f0006443d084c45ceeb4e4668a87d95162a91b4 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Rapha=C3=ABl=20Cauderlier?= Date: Mon, 16 Sep 2019 15:28:21 +0200 Subject: [PATCH 116/252] Tests: Test ADDRESS and (CONTRACT unit) --- .../test/contracts/opcodes/address.tz | 3 +++ .../test/contracts/opcodes/contract.tz | 11 +++++++++ tests_python/tests/test_contract_opcodes.py | 23 +++++++++++++++++++ 3 files changed, 37 insertions(+) create mode 100644 src/bin_client/test/contracts/opcodes/address.tz create mode 100644 src/bin_client/test/contracts/opcodes/contract.tz diff --git a/src/bin_client/test/contracts/opcodes/address.tz b/src/bin_client/test/contracts/opcodes/address.tz new file mode 100644 index 000000000000..7e6bcdec337b --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/address.tz @@ -0,0 +1,3 @@ +parameter (contract unit); +storage (option address); +code {CAR; ADDRESS; SOME; NIL operation; PAIR } diff --git a/src/bin_client/test/contracts/opcodes/contract.tz b/src/bin_client/test/contracts/opcodes/contract.tz new file mode 100644 index 000000000000..939337918d1c --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/contract.tz @@ -0,0 +1,11 @@ +parameter address; +storage unit; +code { + CAR; + CONTRACT unit; + ASSERT_SOME; + DROP; + UNIT; + NIL operation; + PAIR + }; diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index e42a3c574e26..4dbaf6c0ef3b 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -477,6 +477,14 @@ class TestContractOpcodes: ' { True ; True ; False ; True ; True } ;' "\n" ' { False ; False ; True ; False ; False }' ' }') + + # Test ADDRESS + ('address.tz', 'None', '"tz1cxcwwnzENRdhe2Kb8ZdTrdNy4bFNyScx5"', + '(Some "tz1cxcwwnzENRdhe2Kb8ZdTrdNy4bFNyScx5")'), + + # Test (CONTRACT unit) + ('contract.tz', 'Unit', '"tz1cxcwwnzENRdhe2Kb8ZdTrdNy4bFNyScx5"', + 'Unit'), ]) def test_contract_input_output(self, client, @@ -680,6 +688,21 @@ class TestContractOpcodes: self_addr = client.get_contract_address('self') assert_storage_contains(client, 'self', f'"{self_addr}"') + def test_contract_fails(self, client): + init_with_transfer(client, f'{CONTRACT_PATH}/contract.tz', + KEY1, 'Unit', + 1000, 'bootstrap1') + + client.transfer(0, 'bootstrap1', 'self', ['--burn-cap', '10']) + bake(client) + addr = client.get_contract_address('contract') + def cmd(): + client.transfer( + 0, 'bootstrap1', 'contract', + ['-arg', f'"{addr}"', '--burn-cap', '10']) + + assert check_run_failure(cmd, r'script reached FAILWITH instruction') + def test_slice(self, client): init_with_transfer( client, f'{CONTRACT_PATH}/slices.tz', 'bootstrap1', -- GitLab From f65e7ddac609ee0f4fc9011e3bc5d2e14c633872 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Mon, 16 Sep 2019 14:31:46 +0200 Subject: [PATCH 117/252] tests: test CREATE_CONTRACT --- .../test/contracts/opcodes/create_contract.tz | 17 +++++++++++++++++ tests_python/tests/test_contract_opcodes.py | 5 ++++- 2 files changed, 21 insertions(+), 1 deletion(-) create mode 100644 src/bin_client/test/contracts/opcodes/create_contract.tz diff --git a/src/bin_client/test/contracts/opcodes/create_contract.tz b/src/bin_client/test/contracts/opcodes/create_contract.tz new file mode 100644 index 000000000000..eabe1d705ccc --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/create_contract.tz @@ -0,0 +1,17 @@ +parameter unit; +storage (option address); +code { DROP; + UNIT; # starting storage for contract + AMOUNT; # Push the starting balance + PUSH bool False; # Not spendable + DUP; # Or delegatable + NONE key_hash; # No delegate + PUSH key_hash "tz1cxcwwnzENRdhe2Kb8ZdTrdNy4bFNyScx5"; + CREATE_CONTRACT # Create the contract + { parameter unit ; + storage unit ; + code + { CDR; + NIL operation; + PAIR; } }; + DROP; SOME; NIL operation; PAIR} # Ending calling convention stuff diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index 4dbaf6c0ef3b..b8afc9b32005 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -476,7 +476,7 @@ class TestContractOpcodes: ' { True ; True ; True ; False ; False } ;' "\n" ' { True ; True ; False ; True ; True } ;' "\n" ' { False ; False ; True ; False ; False }' - ' }') + ' }'), # Test ADDRESS ('address.tz', 'None', '"tz1cxcwwnzENRdhe2Kb8ZdTrdNy4bFNyScx5"', @@ -485,6 +485,9 @@ class TestContractOpcodes: # Test (CONTRACT unit) ('contract.tz', 'Unit', '"tz1cxcwwnzENRdhe2Kb8ZdTrdNy4bFNyScx5"', 'Unit'), + + # Test create_contract + ('create_contract.tz', 'None', 'Unit', '(Some "KT1Mjjcb6tmSsLm7Cb3DSQszePjfchPM4Uxm")'), ]) def test_contract_input_output(self, client, -- GitLab From ec90ae680cc10f0b856465d2b2f32a147768c77d Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Mon, 16 Sep 2019 14:50:39 +0200 Subject: [PATCH 118/252] tests: test binary OR --- src/bin_client/test/contracts/opcodes/or_binary.tz | 9 +++++++++ tests_python/tests/test_contract_opcodes.py | 9 +++++++++ 2 files changed, 18 insertions(+) create mode 100644 src/bin_client/test/contracts/opcodes/or_binary.tz diff --git a/src/bin_client/test/contracts/opcodes/or_binary.tz b/src/bin_client/test/contracts/opcodes/or_binary.tz new file mode 100644 index 000000000000..a31f109827ef --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/or_binary.tz @@ -0,0 +1,9 @@ +parameter (pair nat nat); +storage (option nat); +# This contract takes a pair of natural numbers as argument and +# stores the result of their binary OR. +code { CAR; + UNPAIR; + OR; + SOME; NIL operation; PAIR + } diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index b8afc9b32005..4ca994d164f4 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -114,6 +114,15 @@ class TestContractOpcodes: # Binary and ('and_binary.tz', 'Unit', 'Unit', 'Unit'), + + # Binary or + ('or_binary.tz', 'None', '(Pair 4 8)', '(Some 12)'), + ('or_binary.tz', 'None', '(Pair 0 8)', '(Some 8)'), + ('or_binary.tz', 'None', '(Pair 8 0)', '(Some 8)'), + ('or_binary.tz', 'None', '(Pair 15 4)', '(Some 15)'), + ('or_binary.tz', 'None', '(Pair 14 1)', '(Some 15)'), + ('or_binary.tz', 'None', '(Pair 7 7)', '(Some 7)'), + # XOR ('xor.tz', 'None', 'Left (Pair False False)', '(Some (Left False))'), ('xor.tz', 'None', 'Left (Pair False True)', '(Some (Left True))'), -- GitLab From cc731b578ee5dc9349a7170118a068a79a289858 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Mon, 16 Sep 2019 15:01:03 +0200 Subject: [PATCH 119/252] tests: test binary NOT --- src/bin_client/test/contracts/opcodes/not_binary.tz | 12 ++++++++++++ tests_python/tests/test_contract_opcodes.py | 11 +++++++++++ 2 files changed, 23 insertions(+) create mode 100644 src/bin_client/test/contracts/opcodes/not_binary.tz diff --git a/src/bin_client/test/contracts/opcodes/not_binary.tz b/src/bin_client/test/contracts/opcodes/not_binary.tz new file mode 100644 index 000000000000..c1e0f97979d7 --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/not_binary.tz @@ -0,0 +1,12 @@ +parameter (or int nat); +storage (option int); +code { CAR; + IF_LEFT + { + NOT; + } + { + NOT; + } ; + SOME; NIL operation ; PAIR + } diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index 4ca994d164f4..70ebd675033d 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -123,6 +123,17 @@ class TestContractOpcodes: ('or_binary.tz', 'None', '(Pair 14 1)', '(Some 15)'), ('or_binary.tz', 'None', '(Pair 7 7)', '(Some 7)'), + # Binary not + ('not_binary.tz', 'None', '(Left 0)', '(Some -1)'), + ('not_binary.tz', 'None', '(Left 8)', '(Some -9)'), + ('not_binary.tz', 'None', '(Left 7)', '(Some -8)'), + ('not_binary.tz', 'None', '(Left -9)', '(Some 8)'), + ('not_binary.tz', 'None', '(Left -8)', '(Some 7)'), + + ('not_binary.tz', 'None', '(Right 0)', '(Some -1)'), + ('not_binary.tz', 'None', '(Right 8)', '(Some -9)'), + ('not_binary.tz', 'None', '(Right 7)', '(Some -8)'), + # XOR ('xor.tz', 'None', 'Left (Pair False False)', '(Some (Left False))'), ('xor.tz', 'None', 'Left (Pair False True)', '(Some (Left True))'), -- GitLab From 68727bd2eac813ec4470419dbb1f0c5fa219a841 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Mon, 16 Sep 2019 15:31:46 +0200 Subject: [PATCH 120/252] tests: test shifts (LSL & LSR) --- .../test/contracts/opcodes/shifts.tz | 18 ++++++++++ tests_python/tests/test_contract_opcodes.py | 33 +++++++++++++++++++ 2 files changed, 51 insertions(+) create mode 100644 src/bin_client/test/contracts/opcodes/shifts.tz diff --git a/src/bin_client/test/contracts/opcodes/shifts.tz b/src/bin_client/test/contracts/opcodes/shifts.tz new file mode 100644 index 000000000000..71964750c0b8 --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/shifts.tz @@ -0,0 +1,18 @@ +parameter (or (pair nat nat) (pair nat nat)); +storage (option nat); +# this contract takes either (Left a b) and stores (a << b) +# or (Right a b) and stores (a >> b). +# i.e., in the first case, the first component shifted to the left by +# the second, and the second case, component shifted to the right by +# the second. +code { CAR; + IF_LEFT { + UNPAIR; LSL; + } + { + UNPAIR; LSR; + }; + SOME; + NIL operation; + PAIR; + }; diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index 70ebd675033d..92fdd8d84305 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -147,6 +147,19 @@ class TestContractOpcodes: ('xor.tz', 'None', 'Right (Pair 42 21)', '(Some (Right 63))'), ('xor.tz', 'None', 'Right (Pair 42 63)', '(Some (Right 21))'), + # test shifts: LSL & LSR + ('shifts.tz', 'None', '(Left (Pair 8 1))', '(Some 16)'), + ('shifts.tz', 'None', '(Left (Pair 0 0))', '(Some 0)'), + ('shifts.tz', 'None', '(Left (Pair 0 1))', '(Some 0)'), + ('shifts.tz', 'None', '(Left (Pair 1 2))', '(Some 4)'), + ('shifts.tz', 'None', '(Left (Pair 15 2))', '(Some 60)'), + + ('shifts.tz', 'None', '(Right (Pair 8 1))', '(Some 4)'), + ('shifts.tz', 'None', '(Right (Pair 0 0))', '(Some 0)'), + ('shifts.tz', 'None', '(Right (Pair 0 1))', '(Some 0)'), + ('shifts.tz', 'None', '(Right (Pair 1 2))', '(Some 0)'), + ('shifts.tz', 'None', '(Right (Pair 15 2))', '(Some 3)'), + # Concatenate all strings of a list into one string ('concat_list.tz', '""', '{ "a" ; "b" ; "c" }', '"abc"'), ('concat_list.tz', '""', '{}', '""'), @@ -804,6 +817,26 @@ class TestContractOpcodes: '(Pair 22220000000 (Pair "2017-12-13T04:49:00Z" 034))') assert run_script_res.storage == hash_result + @pytest.mark.parametrize( + "contract,param,storage", + [ # FORMAT: assert_output contract_file storage input + + # Test overflow in shift + ('shifts.tz', 'None', '(Left (Pair 1 257)'), + ('shifts.tz', 'None', '(Left (Pair 123 257)'), + ('shifts.tz', 'None', '(Right (Pair 1 257)'), + ('shifts.tz', 'None', '(Right (Pair 123 257)'), + ]) + def test_arithmetic_overflow(self, + client, + contract, + param, + storage): + contract = f'{CONTRACT_PATH}/{contract}' + def cmd(): + run_script_res = client.run_script(contract, param, storage) + check_run_failure(cmd, r'unexpected arithmetic overflow') + def assert_storage_contains(client: Client, contract: str, -- GitLab From 82454c23a9a9fceca6c650cbb86b60c6b15d3100 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Mon, 16 Sep 2019 15:42:04 +0200 Subject: [PATCH 121/252] tests: test instruction INT --- src/bin_client/test/contracts/opcodes/int.tz | 5 +++++ tests_python/tests/test_contract_opcodes.py | 5 +++++ 2 files changed, 10 insertions(+) create mode 100644 src/bin_client/test/contracts/opcodes/int.tz diff --git a/src/bin_client/test/contracts/opcodes/int.tz b/src/bin_client/test/contracts/opcodes/int.tz new file mode 100644 index 000000000000..3f199881392a --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/int.tz @@ -0,0 +1,5 @@ +parameter nat; +storage (option int); +# this contract takes a natural number as parameter, converts it to an +# integer and stores it. +code { CAR; INT; SOME; NIL operation; PAIR }; diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index 92fdd8d84305..2e918140a9b0 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -405,6 +405,11 @@ class TestContractOpcodes: ('abs.tz', 'Unit', '0', 'Unit'), ('abs.tz', 'Unit', '948', 'Unit'), + # Test INT + ('int.tz', 'None', '0', '(Some 0)'), + ('int.tz', 'None', '1', '(Some 1)'), + ('int.tz', 'None', '9999', '(Some 9999)'), + # Test DIP ('dip.tz', '(Pair 0 0)', '(Pair 15 9)', '(Pair 15 24)'), ('dip.tz', '(Pair 0 0)', '(Pair 1 1)', '(Pair 1 2)'), -- GitLab From cb1f16bd2f7db8439b151a8542c8de7df759c302 Mon Sep 17 00:00:00 2001 From: Ilias Garnier Date: Mon, 16 Sep 2019 15:47:06 +0200 Subject: [PATCH 122/252] tests: test multiplications --- src/bin_client/test/contracts/opcodes/mul.tz | 48 +++++++++++++++++++ .../test/contracts/opcodes/mul_overflow.tz | 18 +++++++ tests_python/tests/test_contract_opcodes.py | 35 ++++++++++++++ 3 files changed, 101 insertions(+) create mode 100644 src/bin_client/test/contracts/opcodes/mul.tz create mode 100644 src/bin_client/test/contracts/opcodes/mul_overflow.tz diff --git a/src/bin_client/test/contracts/opcodes/mul.tz b/src/bin_client/test/contracts/opcodes/mul.tz new file mode 100644 index 000000000000..8432394b526d --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/mul.tz @@ -0,0 +1,48 @@ +parameter unit ; +storage unit ; +code { CAR ; + DROP ; + # tez-nat, no overflow + PUSH nat 7987 ; + PUSH mutez 10 ; + MUL ; + PUSH mutez 79870 ; + COMPARE ; + ASSERT_EQ ; + # nat-tez, no overflow + PUSH mutez 10 ; + PUSH nat 7987 ; + MUL ; + PUSH mutez 79870 ; + COMPARE ; + ASSERT_EQ ; + # int-int, no overflow + PUSH int 10 ; + PUSH int -7987 ; + MUL ; + PUSH int -79870 ; + COMPARE ; + ASSERT_EQ ; + # int-nat, no overflow + PUSH nat 10 ; + PUSH int -7987 ; + MUL ; + PUSH int -79870 ; + COMPARE ; + ASSERT_EQ ; + # nat-int, no overflow + PUSH int -10 ; + PUSH nat 7987 ; + MUL ; + PUSH int -79870 ; + COMPARE ; + ASSERT_EQ ; + # nat-nat, no overflow + PUSH nat 10 ; + PUSH nat 7987 ; + MUL ; + PUSH nat 79870 ; + COMPARE ; + ASSERT_EQ ; + + UNIT ; NIL operation ; PAIR } diff --git a/src/bin_client/test/contracts/opcodes/mul_overflow.tz b/src/bin_client/test/contracts/opcodes/mul_overflow.tz new file mode 100644 index 000000000000..2abb417346e4 --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/mul_overflow.tz @@ -0,0 +1,18 @@ +parameter (or unit unit) ; +storage unit ; +code { CAR ; + IF_LEFT + { + PUSH nat 9223372036854775807 ; + PUSH mutez 10 ; + MUL ; # FAILURE + DROP + } + { + PUSH mutez 10 ; + PUSH nat 9223372036854775807 ; + MUL ; # FAILURE + DROP + } ; + + NIL operation ; PAIR } diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index 2e918140a9b0..1e60c5a168f9 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -483,6 +483,7 @@ class TestContractOpcodes: '(Pair "2019-09-09T08:35:33Z" ' + '"tz1cxcwwnzENRdhe2Kb8ZdTrdNy4bFNyScx5"))))))))', 'Unit'), + # Test EDIV ('ediv.tz', '(Pair None (Pair None (Pair None None)))', @@ -526,6 +527,11 @@ class TestContractOpcodes: # Test create_contract ('create_contract.tz', 'None', 'Unit', '(Some "KT1Mjjcb6tmSsLm7Cb3DSQszePjfchPM4Uxm")'), + + # Test multiplication - success case (no overflow) + # Failure case is tested in mÌ€ul_overflow.tz + ('mul.tz', 'Unit', 'Unit', 'Unit'), + ]) def test_contract_input_output(self, client, @@ -822,6 +828,7 @@ class TestContractOpcodes: '(Pair 22220000000 (Pair "2017-12-13T04:49:00Z" 034))') assert run_script_res.storage == hash_result + @pytest.mark.parametrize( "contract,param,storage", [ # FORMAT: assert_output contract_file storage input @@ -842,6 +849,22 @@ class TestContractOpcodes: run_script_res = client.run_script(contract, param, storage) check_run_failure(cmd, r'unexpected arithmetic overflow') + def test_multiplication_overflow(self, client): + """Test occurrence of overflow in multiplication with tez.""" + # tez-nat + assert_run_script_overflow( + client, + f'{CONTRACT_PATH}/mul_overflow.tz', + 'Unit', + 'Left Unit') + # nat-tez + assert_run_script_overflow( + client, + f'{CONTRACT_PATH}/mul_overflow.tz', + 'Unit', + 'Right Unit') + + def assert_storage_contains(client: Client, contract: str, @@ -899,3 +922,15 @@ def assert_run_script_failwith(client: Client, client.run_script(contract, param, storage) assert check_run_failure(cmd, r'script reached FAILWITH instruction') + + +def assert_run_script_overflow(client: Client, + contract: str, + param: str, + storage: str) -> None: + # TODO: ideally check that an the actual FAILWITH instruction is + # reached. to do this, client needs modification + def cmd(): + client.run_script(contract, param, storage) + + assert check_run_failure(cmd, r'Overflowing') -- GitLab From f28d535abc63a5fb9cfc8f66f3d7b6452297d905 Mon Sep 17 00:00:00 2001 From: Ilias Garnier Date: Mon, 16 Sep 2019 16:13:32 +0200 Subject: [PATCH 123/252] tests: test PACK/UNPACK failure --- src/bin_client/test/contracts/opcodes/packunpack_rev.tz | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/bin_client/test/contracts/opcodes/packunpack_rev.tz b/src/bin_client/test/contracts/opcodes/packunpack_rev.tz index 986b4e8cd33b..0c2427f43a47 100644 --- a/src/bin_client/test/contracts/opcodes/packunpack_rev.tz +++ b/src/bin_client/test/contracts/opcodes/packunpack_rev.tz @@ -26,4 +26,8 @@ code { CAR; # Check the address DUP; PACK; UNPACK address; ASSERT_SOME; ASSERT_CMPEQ; + # Assert failure modes of unpack + PUSH int 0; PACK; UNPACK nat; ASSERT_SOME; DROP; + PUSH int -1; PACK; UNPACK nat; ASSERT_NONE; + UNIT ; NIL operation ; PAIR } -- GitLab From b3fc1b38bd1cdecdbd7968e0c460b781f66422b3 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Mon, 16 Sep 2019 16:32:45 +0200 Subject: [PATCH 124/252] tests: add tests for EDIV on mutez/tez --- src/bin_client/test/contracts/opcodes/ediv_mutez.tz | 12 ++++++++++++ tests_python/tests/test_contract_opcodes.py | 13 +++++++++++-- 2 files changed, 23 insertions(+), 2 deletions(-) create mode 100644 src/bin_client/test/contracts/opcodes/ediv_mutez.tz diff --git a/src/bin_client/test/contracts/opcodes/ediv_mutez.tz b/src/bin_client/test/contracts/opcodes/ediv_mutez.tz new file mode 100644 index 000000000000..2df73dd4a0e3 --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/ediv_mutez.tz @@ -0,0 +1,12 @@ +parameter (pair mutez (or mutez nat)); +storage (or (option (pair nat mutez)) (option (pair mutez mutez))); +code { CAR; + UNPAIR; + SWAP; + IF_LEFT { + SWAP; EDIV; LEFT (option (pair mutez mutez)); + } + { + SWAP; EDIV; RIGHT (option (pair nat mutez)); + }; + NIL operation; PAIR} diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index 1e60c5a168f9..ad610ca60db8 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -483,8 +483,7 @@ class TestContractOpcodes: '(Pair "2019-09-09T08:35:33Z" ' + '"tz1cxcwwnzENRdhe2Kb8ZdTrdNy4bFNyScx5"))))))))', 'Unit'), - - # Test EDIV + # Test EDIV on nat and int ('ediv.tz', '(Pair None (Pair None (Pair None None)))', '(Pair 10 -3)', @@ -500,6 +499,16 @@ class TestContractOpcodes: '(Pair (Some (Pair -4 0)) (Pair (Some (Pair -4 0)) ' + '(Pair (Some (Pair 4 0)) (Some (Pair 4 0)))))'), + # Test EDIV on mutez + ('ediv_mutez.tz', '(Left None)', '(Pair 10 (Left 10))', '(Left (Some (Pair 1 0)))'), + ('ediv_mutez.tz', '(Left None)', '(Pair 10 (Left 3))', '(Left (Some (Pair 3 1)))'), + ('ediv_mutez.tz', '(Left None)', '(Pair 10 (Left 0))', '(Left None)'), + + ('ediv_mutez.tz', '(Left None)', '(Pair 10 (Right 10))', '(Right (Some (Pair 1 0)))'), + ('ediv_mutez.tz', '(Left None)', '(Pair 10 (Right 3))', '(Right (Some (Pair 3 1)))'), + ('ediv_mutez.tz', '(Left None)', '(Pair 10 (Right 0))', '(Right None)'), + ('ediv_mutez.tz', '(Left None)', '(Pair 5 (Right 10))', '(Right (Some (Pair 0 5)))'), + # Test compare ('compare.tz', 'Unit', 'Unit', 'Unit'), -- GitLab From 9634a15060456d3827612bbcc980b6a5caec184f Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Mon, 16 Sep 2019 17:01:18 +0200 Subject: [PATCH 125/252] fixup! tests: test shifts (LSL & LSR) --- tests_python/tests/test_contract_opcodes.py | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index ad610ca60db8..a8af99c1b869 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -837,16 +837,15 @@ class TestContractOpcodes: '(Pair 22220000000 (Pair "2017-12-13T04:49:00Z" 034))') assert run_script_res.storage == hash_result - @pytest.mark.parametrize( "contract,param,storage", [ # FORMAT: assert_output contract_file storage input # Test overflow in shift - ('shifts.tz', 'None', '(Left (Pair 1 257)'), - ('shifts.tz', 'None', '(Left (Pair 123 257)'), - ('shifts.tz', 'None', '(Right (Pair 1 257)'), - ('shifts.tz', 'None', '(Right (Pair 123 257)'), + ('shifts.tz', 'None', '(Left (Pair 1 257))'), + ('shifts.tz', 'None', '(Left (Pair 123 257))'), + ('shifts.tz', 'None', '(Right (Pair 1 257))'), + ('shifts.tz', 'None', '(Right (Pair 123 257))'), ]) def test_arithmetic_overflow(self, client, @@ -854,9 +853,10 @@ class TestContractOpcodes: param, storage): contract = f'{CONTRACT_PATH}/{contract}' + def cmd(): - run_script_res = client.run_script(contract, param, storage) - check_run_failure(cmd, r'unexpected arithmetic overflow') + client.run_script(contract, param, storage) + assert check_run_failure(cmd, r'unexpected arithmetic overflow') def test_multiplication_overflow(self, client): """Test occurrence of overflow in multiplication with tez.""" @@ -874,7 +874,6 @@ class TestContractOpcodes: 'Right Unit') - def assert_storage_contains(client: Client, contract: str, expected_storage: str) -> None: -- GitLab From f08e7754b4fbcf6c2e448841cd689bfa856eed71 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Rapha=C3=ABl=20Cauderlier?= Date: Mon, 16 Sep 2019 15:56:47 +0200 Subject: [PATCH 126/252] Tests: test SET_DELEGATE --- .../test/contracts/opcodes/set_delegate.tz | 9 ++++++++ tests_python/tests/test_contract_opcodes.py | 22 +++++++++++++++++++ 2 files changed, 31 insertions(+) create mode 100644 src/bin_client/test/contracts/opcodes/set_delegate.tz diff --git a/src/bin_client/test/contracts/opcodes/set_delegate.tz b/src/bin_client/test/contracts/opcodes/set_delegate.tz new file mode 100644 index 000000000000..a7e051e50494 --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/set_delegate.tz @@ -0,0 +1,9 @@ +parameter (option key_hash); +storage unit; +code { + UNPAIR; + SET_DELEGATE; + DIP {NIL operation}; + CONS; + PAIR + } diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index a8af99c1b869..60a8a5db6937 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -2,6 +2,7 @@ import os import pytest from tools import paths from tools.utils import check_run_failure +from tools.constants import IDENTITIES from client.client import Client from client.client_output import BakeForResult, RunScriptResult @@ -873,6 +874,27 @@ class TestContractOpcodes: 'Unit', 'Right Unit') + def test_set_delegate(self, client): + init_with_transfer(client, f'{CONTRACT_PATH}/set_delegate.tz', + 'bootstrap1', 'Unit', 1000, 'bootstrap1') + bake(client) + + assert client.get_delegate('set_delegate').delegate is None + + addr = IDENTITIES['bootstrap5']['identity'] + client.transfer(0, 'bootstrap1', 'set_delegate', + ['-arg', f'(Some "{addr}")']) + bake(client) + + assert client.get_delegate('set_delegate').delegate == addr + + client.transfer(0, 'bootstrap1', 'set_delegate', + ['-arg', f'None']) + bake(client) + + assert client.get_delegate('set_delegate').delegate is None + + def assert_storage_contains(client: Client, contract: str, -- GitLab From f52d2c05cbe83a6872f0b9c2aa99d63fce33ba92 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Rapha=C3=ABl=20Cauderlier?= Date: Mon, 16 Sep 2019 17:43:42 +0200 Subject: [PATCH 127/252] Tests: test NEG --- src/bin_client/test/contracts/opcodes/neg.tz | 8 ++++++++ tests_python/tests/test_contract_opcodes.py | 7 +++++++ 2 files changed, 15 insertions(+) create mode 100644 src/bin_client/test/contracts/opcodes/neg.tz diff --git a/src/bin_client/test/contracts/opcodes/neg.tz b/src/bin_client/test/contracts/opcodes/neg.tz new file mode 100644 index 000000000000..9cedf765f1b2 --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/neg.tz @@ -0,0 +1,8 @@ +parameter (or int nat); +storage int; +code { + CAR; + IF_LEFT {NEG} {NEG}; + NIL operation; + PAIR + } diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index 60a8a5db6937..16abab0b1bbb 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -542,6 +542,13 @@ class TestContractOpcodes: # Failure case is tested in mÌ€ul_overflow.tz ('mul.tz', 'Unit', 'Unit', 'Unit'), + # Test NEG + ('neg.tz', '0', '(Left 2)', '-2'), + ('neg.tz', '0', '(Right 2)', '-2'), + ('neg.tz', '0', '(Left 0)', '0'), + ('neg.tz', '0', '(Right 0)', '0'), + ('neg.tz', '0', '(Left -2)', '2') + ]) def test_contract_input_output(self, client, -- GitLab From 5cd4d85898b7704719ee9039af0900b5d8dd6937 Mon Sep 17 00:00:00 2001 From: Ilias Garnier Date: Mon, 16 Sep 2019 18:09:05 +0200 Subject: [PATCH 128/252] tests: test multiplication failure by overflow --- .../test/contracts/opcodes/mul_overflow.tz | 4 +-- tests_python/tests/test_contract_opcodes.py | 29 ++----------------- 2 files changed, 4 insertions(+), 29 deletions(-) diff --git a/src/bin_client/test/contracts/opcodes/mul_overflow.tz b/src/bin_client/test/contracts/opcodes/mul_overflow.tz index 2abb417346e4..5d2b3a3dcff2 100644 --- a/src/bin_client/test/contracts/opcodes/mul_overflow.tz +++ b/src/bin_client/test/contracts/opcodes/mul_overflow.tz @@ -3,14 +3,14 @@ storage unit ; code { CAR ; IF_LEFT { - PUSH nat 9223372036854775807 ; + PUSH nat 922337203685477580700 ; PUSH mutez 10 ; MUL ; # FAILURE DROP } { PUSH mutez 10 ; - PUSH nat 9223372036854775807 ; + PUSH nat 922337203685477580700 ; MUL ; # FAILURE DROP } ; diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index 16abab0b1bbb..48486954b3f5 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -854,6 +854,8 @@ class TestContractOpcodes: ('shifts.tz', 'None', '(Left (Pair 123 257))'), ('shifts.tz', 'None', '(Right (Pair 1 257))'), ('shifts.tz', 'None', '(Right (Pair 123 257))'), + ('mul_overflow.tz', 'Unit', 'Left Unit'), + ('mul_overflow.tz', 'Unit', 'Right Unit') ]) def test_arithmetic_overflow(self, client, @@ -866,21 +868,6 @@ class TestContractOpcodes: client.run_script(contract, param, storage) assert check_run_failure(cmd, r'unexpected arithmetic overflow') - def test_multiplication_overflow(self, client): - """Test occurrence of overflow in multiplication with tez.""" - # tez-nat - assert_run_script_overflow( - client, - f'{CONTRACT_PATH}/mul_overflow.tz', - 'Unit', - 'Left Unit') - # nat-tez - assert_run_script_overflow( - client, - f'{CONTRACT_PATH}/mul_overflow.tz', - 'Unit', - 'Right Unit') - def test_set_delegate(self, client): init_with_transfer(client, f'{CONTRACT_PATH}/set_delegate.tz', 'bootstrap1', 'Unit', 1000, 'bootstrap1') @@ -959,15 +946,3 @@ def assert_run_script_failwith(client: Client, client.run_script(contract, param, storage) assert check_run_failure(cmd, r'script reached FAILWITH instruction') - - -def assert_run_script_overflow(client: Client, - contract: str, - param: str, - storage: str) -> None: - # TODO: ideally check that an the actual FAILWITH instruction is - # reached. to do this, client needs modification - def cmd(): - client.run_script(contract, param, storage) - - assert check_run_failure(cmd, r'Overflowing') -- GitLab From 45ed175690af0840585088013b3c12bbd2f51911 Mon Sep 17 00:00:00 2001 From: Julien Tesson Date: Mon, 16 Sep 2019 22:12:29 +0200 Subject: [PATCH 129/252] Test/Python: Client - adding list known addresses --- tests_python/client/client.py | 3 +++ tests_python/client/client_output.py | 9 +++++++++ 2 files changed, 12 insertions(+) diff --git a/tests_python/client/client.py b/tests_python/client/client.py index c40ac471cc9b..5fd13389917b 100644 --- a/tests_python/client/client.py +++ b/tests_python/client/client.py @@ -358,6 +358,9 @@ class Client: def get_contract_address(self, contract) -> str: return self.run(['show', 'known', 'contract', contract]).strip() + def get_known_addresses(self) -> str: + return client_output.GetAddressesResult(self.run(['list', 'known', 'addresses'])) + def get_current_period_kind(self) -> dict: return self.rpc('get', 'chains/main/blocks/head/votes/current_period_kind') diff --git a/tests_python/client/client_output.py b/tests_python/client/client_output.py index f77ba6c49429..b11329459fee 100644 --- a/tests_python/client/client_output.py +++ b/tests_python/client/client_output.py @@ -74,6 +74,15 @@ class GetDelegateResult: raise InvalidClientOutput(client_output) self.delegate = match.groups()[0] +class GetAddressesResult: + """Result of 'list known addresses' operation. + + """ + + def __init__(self, client_output: str): + + pattern = re.compile(r"^(\w+):\s*(\w+).*$", re.MULTILINE) + self.wallet = dict(re.findall(pattern, client_output)) class RunScriptResult: """Result of a 'get script' operation.""" -- GitLab From 40e9d938cd1064151dc0481d9c1082c39cb22b12 Mon Sep 17 00:00:00 2001 From: Julien Tesson Date: Mon, 16 Sep 2019 16:47:31 +0200 Subject: [PATCH 130/252] tests: test SOURCE --- .../test/contracts/opcodes/proxy.tz | 15 ++++++++++ .../test/contracts/opcodes/source.tz | 10 +++++++ tests_python/tests/test_contract_opcodes.py | 29 +++++++++++++++++++ 3 files changed, 54 insertions(+) create mode 100644 src/bin_client/test/contracts/opcodes/proxy.tz create mode 100644 src/bin_client/test/contracts/opcodes/source.tz diff --git a/src/bin_client/test/contracts/opcodes/proxy.tz b/src/bin_client/test/contracts/opcodes/proxy.tz new file mode 100644 index 000000000000..388c20e8e1b2 --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/proxy.tz @@ -0,0 +1,15 @@ +parameter address ; + +storage unit ; + +code{ + CAR ; DIP{UNIT}; + CONTRACT unit; + ASSERT_SOME ; + AMOUNT ; + UNIT ; + TRANSFER_TOKENS; + DIP {NIL operation} ; + CONS; + PAIR + } \ No newline at end of file diff --git a/src/bin_client/test/contracts/opcodes/source.tz b/src/bin_client/test/contracts/opcodes/source.tz new file mode 100644 index 000000000000..fc3c642027d3 --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/source.tz @@ -0,0 +1,10 @@ +parameter unit ; + +storage address ; + +code{ + DROP ; + SOURCE; + NIL operation ; + PAIR + } \ No newline at end of file diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index 48486954b3f5..254b973feee5 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -767,6 +767,35 @@ class TestContractOpcodes: assert check_run_failure(cmd, r'script reached FAILWITH instruction') + def test_init_proxy(self, client): + init_with_transfer(client, + f'{CONTRACT_PATH}/proxy.tz', + KEY1, 'Unit', + 1000, 'bootstrap1') + + def test_source(self, client): + wallet = client.get_known_addresses().wallet + init_store = wallet.get(KEY1) + init_with_transfer(client, + f'{CONTRACT_PATH}/source.tz', + KEY1, f'"{init_store}"', + 1000, 'bootstrap1') + + # direct transfer to the contract + client.transfer(0, 'bootstrap2', 'source', ['--burn-cap', '10']) + bake(client) + + source_addr = wallet.get('bootstrap2') + assert_storage_contains(client, 'source', f'"{source_addr}"') + + + # indirect transfer to the contract through proxy + contract_addr = client.get_contract_address('source') + client.transfer(0, 'bootstrap2', 'proxy', + ['--burn-cap', '10', '--arg', f'"{contract_addr}"']) + bake(client) + assert_storage_contains(client, 'source', f'"{source_addr}"') + def test_slice(self, client): init_with_transfer( client, f'{CONTRACT_PATH}/slices.tz', 'bootstrap1', -- GitLab From 7257a593bcc8bc2d5a6a52daf7f508bc6de3530b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Rapha=C3=ABl=20Cauderlier?= Date: Tue, 17 Sep 2019 11:15:30 +0200 Subject: [PATCH 131/252] Tests: Simplify SOURCE test --- tests_python/tests/test_contract_opcodes.py | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index 254b973feee5..4617b2c98239 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -770,22 +770,21 @@ class TestContractOpcodes: def test_init_proxy(self, client): init_with_transfer(client, f'{CONTRACT_PATH}/proxy.tz', - KEY1, 'Unit', + 'bootstrap1', 'Unit', 1000, 'bootstrap1') def test_source(self, client): - wallet = client.get_known_addresses().wallet - init_store = wallet.get(KEY1) + init_store = IDENTITIES['bootstrap4']['identity'] init_with_transfer(client, f'{CONTRACT_PATH}/source.tz', - KEY1, f'"{init_store}"', + 'bootstrap3', f'"{init_store}"', 1000, 'bootstrap1') # direct transfer to the contract client.transfer(0, 'bootstrap2', 'source', ['--burn-cap', '10']) bake(client) - source_addr = wallet.get('bootstrap2') + source_addr = IDENTITIES['bootstrap2']['identity'] assert_storage_contains(client, 'source', f'"{source_addr}"') -- GitLab From ac1dea27a2837e502f44f3ff07d521670ec5956d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Rapha=C3=ABl=20Cauderlier?= Date: Tue, 17 Sep 2019 11:16:11 +0200 Subject: [PATCH 132/252] Tests: Simplify and document the proxy contract used to test SOURCE --- src/bin_client/test/contracts/opcodes/proxy.tz | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/src/bin_client/test/contracts/opcodes/proxy.tz b/src/bin_client/test/contracts/opcodes/proxy.tz index 388c20e8e1b2..857df97e390a 100644 --- a/src/bin_client/test/contracts/opcodes/proxy.tz +++ b/src/bin_client/test/contracts/opcodes/proxy.tz @@ -1,11 +1,9 @@ -parameter address ; - +/* This proxy contract transfers the recieved amount to the contract given as parameter. + It is used to test the SOURCE opcode; see source.tz. */ +parameter (contract unit) ; storage unit ; - code{ - CAR ; DIP{UNIT}; - CONTRACT unit; - ASSERT_SOME ; + UNPAIR; AMOUNT ; UNIT ; TRANSFER_TOKENS; -- GitLab From 9b2626ef713452bfc37de39529af8a05a71c1092 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Rapha=C3=ABl=20Cauderlier?= Date: Tue, 17 Sep 2019 11:30:35 +0200 Subject: [PATCH 133/252] Tests: Test SENDER --- .../test/contracts/opcodes/proxy.tz | 2 +- .../test/contracts/opcodes/sender.tz | 8 +++++++ tests_python/tests/test_contract_opcodes.py | 23 +++++++++++++++++++ 3 files changed, 32 insertions(+), 1 deletion(-) create mode 100644 src/bin_client/test/contracts/opcodes/sender.tz diff --git a/src/bin_client/test/contracts/opcodes/proxy.tz b/src/bin_client/test/contracts/opcodes/proxy.tz index 857df97e390a..a9f17836e3c0 100644 --- a/src/bin_client/test/contracts/opcodes/proxy.tz +++ b/src/bin_client/test/contracts/opcodes/proxy.tz @@ -1,5 +1,5 @@ /* This proxy contract transfers the recieved amount to the contract given as parameter. - It is used to test the SOURCE opcode; see source.tz. */ + It is used to test the SOURCE and SENDER opcodes; see source.tz and sender.tz. */ parameter (contract unit) ; storage unit ; code{ diff --git a/src/bin_client/test/contracts/opcodes/sender.tz b/src/bin_client/test/contracts/opcodes/sender.tz new file mode 100644 index 000000000000..fb174179aca5 --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/sender.tz @@ -0,0 +1,8 @@ +parameter unit ; +storage address ; +code{ + DROP ; + SENDER; + NIL operation ; + PAIR + } diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index 4617b2c98239..8fed83bcca2b 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -795,6 +795,29 @@ class TestContractOpcodes: bake(client) assert_storage_contains(client, 'source', f'"{source_addr}"') + def test_sender(self, client): + init_store = IDENTITIES['bootstrap4']['identity'] + init_with_transfer(client, + f'{CONTRACT_PATH}/sender.tz', + 'bootstrap3', f'"{init_store}"', + 1000, 'bootstrap1') + + # direct transfer to the contract + client.transfer(0, 'bootstrap2', 'sender', ['--burn-cap', '10']) + bake(client) + + sender_addr = IDENTITIES['bootstrap2']['identity'] + assert_storage_contains(client, 'sender', f'"{sender_addr}"') + + + # indirect transfer to the contract through proxy + contract_addr = client.get_contract_address('sender') + proxy_addr = client.get_contract_address('proxy') + client.transfer(0, 'bootstrap2', 'proxy', + ['--burn-cap', '10', '--arg', f'"{contract_addr}"']) + bake(client) + assert_storage_contains(client, 'sender', f'"{proxy_addr}"') + def test_slice(self, client): init_with_transfer( client, f'{CONTRACT_PATH}/slices.tz', 'bootstrap1', -- GitLab From e123cf88bec9273e0324790922371b6824af3fac Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Tue, 17 Sep 2019 11:19:29 +0200 Subject: [PATCH 134/252] Tests: operations and big_maps cannot be packed --- .../test/contracts/ill_typed/pack_big_map.tz | 7 ++++++ .../contracts/ill_typed/pack_operation.tz | 23 +++++++++++++++++++ tests_python/tests/test_contract.py | 13 +++++++++++ 3 files changed, 43 insertions(+) create mode 100644 src/bin_client/test/contracts/ill_typed/pack_big_map.tz create mode 100644 src/bin_client/test/contracts/ill_typed/pack_operation.tz diff --git a/src/bin_client/test/contracts/ill_typed/pack_big_map.tz b/src/bin_client/test/contracts/ill_typed/pack_big_map.tz new file mode 100644 index 000000000000..29ae0d665051 --- /dev/null +++ b/src/bin_client/test/contracts/ill_typed/pack_big_map.tz @@ -0,0 +1,7 @@ +parameter unit; +storage (pair (big_map int int) unit); +code { CDAR; + DUP; PACK; DROP; + UNIT; SWAP; PAIR; + NIL operation; + PAIR; } diff --git a/src/bin_client/test/contracts/ill_typed/pack_operation.tz b/src/bin_client/test/contracts/ill_typed/pack_operation.tz new file mode 100644 index 000000000000..476f93d9da5a --- /dev/null +++ b/src/bin_client/test/contracts/ill_typed/pack_operation.tz @@ -0,0 +1,23 @@ +parameter unit; +storage unit; +code { DROP; + UNIT; # starting storage for contract + AMOUNT; # Push the starting balance + PUSH bool False; # Not spendable + DUP; # Or delegatable + NONE key_hash; # No delegate + PUSH key_hash "tz1cxcwwnzENRdhe2Kb8ZdTrdNy4bFNyScx5"; + CREATE_CONTRACT # Create the contract + { parameter unit ; + storage unit ; + code + { CDR; + NIL operation; + PAIR; } }; + DIP { DROP }; + # invalid PACK + PACK; + DROP; + UNIT; + NIL operation; + PAIR; } diff --git a/tests_python/tests/test_contract.py b/tests_python/tests/test_contract.py index 6348edc163c1..646ad337c66e 100644 --- a/tests_python/tests/test_contract.py +++ b/tests_python/tests/test_contract.py @@ -6,6 +6,7 @@ from tools import utils from tools.constants import IDENTITIES CONTRACT_PATH = f'{paths.TEZOS_HOME}/src/bin_client/test/contracts' +ILLTYPED_CONTRACT_PATH = f'{CONTRACT_PATH}/ill_typed' BAKE_ARGS = ['--minimal-timestamp'] @@ -55,6 +56,18 @@ class TestContracts: if contract.endswith('.tz'): client.typecheck(f'{CONTRACT_PATH}/{contract}') + @pytest.mark.parametrize("contract,error_pattern", [ + # operations cannot be PACKed + ("pack_operation.tz", r'operation type forbidden in parameter, storage and constants'), + # big_maps cannot be PACKed + ("pack_big_map.tz", r'big_map type only allowed on the left of the toplevel storage pair') + ]) + def test_ill_typecheck(self, client, contract, error_pattern): + def cmd(): + client.typecheck(f'{ILLTYPED_CONTRACT_PATH}/{contract}') + + assert utils.check_run_failure(cmd, error_pattern) + FIRST_EXPLOSION = ''' { parameter unit; -- GitLab From 6a44831e1005ae7e3e0f43994629dc9e3b0f7bb1 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Tue, 17 Sep 2019 14:12:20 +0200 Subject: [PATCH 135/252] Tests: test all branches failure modes of UNPACK --- src/bin_client/test/contracts/opcodes/packunpack_rev.tz | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/src/bin_client/test/contracts/opcodes/packunpack_rev.tz b/src/bin_client/test/contracts/opcodes/packunpack_rev.tz index 0c2427f43a47..86871a5c6287 100644 --- a/src/bin_client/test/contracts/opcodes/packunpack_rev.tz +++ b/src/bin_client/test/contracts/opcodes/packunpack_rev.tz @@ -30,4 +30,12 @@ code { CAR; PUSH int 0; PACK; UNPACK nat; ASSERT_SOME; DROP; PUSH int -1; PACK; UNPACK nat; ASSERT_NONE; + # Try deserializing invalid byte sequence (no magic number) + PUSH bytes 0x; UNPACK nat; ASSERT_NONE; + PUSH bytes 0x04; UNPACK nat; ASSERT_NONE; + + # Assert failure for byte sequences that do not correspond to + # any micheline value + PUSH bytes 0x05; UNPACK nat; ASSERT_NONE; + UNIT ; NIL operation ; PAIR } -- GitLab From 9ba52c783089f9e78d884a05f85bd480b5c6b502 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Wed, 18 Sep 2019 09:34:38 +0200 Subject: [PATCH 136/252] Tests: test PACK/UNPACK of uncomparable types --- .../contracts/opcodes/packunpack_rev_cty.tz | 36 +++++++++++++++++++ tests_python/tests/test_contract_opcodes.py | 24 +++++++++++++ 2 files changed, 60 insertions(+) create mode 100644 src/bin_client/test/contracts/opcodes/packunpack_rev_cty.tz diff --git a/src/bin_client/test/contracts/opcodes/packunpack_rev_cty.tz b/src/bin_client/test/contracts/opcodes/packunpack_rev_cty.tz new file mode 100644 index 000000000000..6442f1f73ef8 --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/packunpack_rev_cty.tz @@ -0,0 +1,36 @@ +parameter (pair key (pair unit (pair signature (pair (option signature) (pair (list unit) (pair (set bool) (pair (pair int int) (pair (or key_hash timestamp) (map int string))))))))); +storage unit ; +# for each uncomparable type t (we take an arbitrary parameter for +# parametric data-types e.g. pair, list), +# that is packable (which excludes big_map and operation) +# and excluding types which cannot be passed as literals (contract and lambda) +# this contract receives a parameter v_t. +# it verifies that pack v_t == pack (unpack (pack v_t)) +# we verify the same thing for contract and lambda but for hard-coded values. +code { CAR; + # packable uncomparable types + # checking: key + DUP; CAR; DIP { UNPAIR; }; PACK; DIP { PACK; UNPACK key; ASSERT_SOME; PACK; }; ASSERT_CMPEQ; + # checking: unit + DUP; CAR; DIP { UNPAIR; }; PACK; DIP { PACK; UNPACK unit; ASSERT_SOME; PACK; }; ASSERT_CMPEQ; + # checking: signature + DUP; CAR; DIP { UNPAIR; }; PACK; DIP { PACK; UNPACK (signature); ASSERT_SOME; PACK; }; ASSERT_CMPEQ; + # checking: option signature + DUP; CAR; DIP { UNPAIR; }; PACK; DIP { PACK; UNPACK (option signature); ASSERT_SOME; PACK; }; ASSERT_CMPEQ; + # checking: list unit + DUP; CAR; DIP { UNPAIR; }; PACK; DIP { PACK; UNPACK (list unit); ASSERT_SOME; PACK; }; ASSERT_CMPEQ; + # checking: set bool + DUP; CAR; DIP { UNPAIR; }; PACK; DIP { PACK; UNPACK (set bool); ASSERT_SOME; PACK; }; ASSERT_CMPEQ; + # checking: pair int int + DUP; CAR; DIP { UNPAIR; }; PACK; DIP { PACK; UNPACK (pair int int); ASSERT_SOME; PACK; }; ASSERT_CMPEQ; + # checking: or key_hash timestamp + DUP; CAR; DIP { UNPAIR; }; PACK; DIP { PACK; UNPACK (or key_hash timestamp); ASSERT_SOME; PACK; }; ASSERT_CMPEQ; + # checking: map int string + DUP; PACK; DIP { PACK; UNPACK (map int string); ASSERT_SOME; PACK; }; ASSERT_CMPEQ; + # checking contract, using this very contract. + SELF; DUP; PACK; DIP { PACK; UNPACK (contract (pair key (pair unit (pair signature (pair (option signature) (pair (list unit) (pair (set bool) (pair (pair int int) (pair (or key_hash timestamp) (map int string)))))))))); ASSERT_SOME; PACK; }; ASSERT_CMPEQ; + # checking: lambda string bytes + LAMBDA string bytes { DUP; DROP; PACK; } ; + DUP; PACK; DIP { PACK; UNPACK (lambda string bytes); ASSERT_SOME; PACK; }; ASSERT_CMPEQ; + + UNIT ; NIL operation ; PAIR } diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index 8fed83bcca2b..c89648e5f624 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -484,6 +484,30 @@ class TestContractOpcodes: '(Pair "2019-09-09T08:35:33Z" ' + '"tz1cxcwwnzENRdhe2Kb8ZdTrdNy4bFNyScx5"))))))))', 'Unit'), + ('packunpack_rev.tz', 'Unit', + '(Pair -1 (Pair 1 (Pair "foobar" (Pair 0x00AABBCC (Pair 1000 ' + + '(Pair False (Pair "tz1cxcwwnzENRdhe2Kb8ZdTrdNy4bFNyScx5" ' + + '(Pair "2019-09-09T08:35:33Z" ' + + '"tz1cxcwwnzENRdhe2Kb8ZdTrdNy4bFNyScx5"))))))))', 'Unit'), + + ('packunpack_rev_cty.tz', 'Unit', + '(Pair "edpkuBknW28nW72KG6RoHtYW7p12T6GKc7nAbwYX5m8Wd9sDVC9yav" ' + + '(Pair Unit (Pair "edsigthTzJ8X7MPmNeEwybRAvdxS1pupqcM5Mk4uCuyZA' + + 'e7uEk68YpuGDeViW8wSXMrCi5CwoNgqs8V2w8ayB5dMJzrYCHhD8C7" (Pair (' + + 'Some "edsigthTzJ8X7MPmNeEwybRAvdxS1pupqcM5Mk4uCuyZAe7uEk68YpuGD' + + 'eViW8wSXMrCi5CwoNgqs8V2w8ayB5dMJzrYCHhD8C7") (Pair { Unit } (P' + + 'air { True } (Pair (Pair 19 10) (Pair (Left "tz1cxcwwnzENRdhe2' + + 'Kb8ZdTrdNy4bFNyScx5") { Elt 0 "foo" ; Elt 1 "bar" } ))))))))', + 'Unit'), + + ('packunpack_rev_cty.tz', 'Unit', + '(Pair "edpkuBknW28nW72KG6RoHtYW7p12T6GKc7nAbwYX5m8Wd9sDVC9yav" ' + + '(Pair Unit (Pair "edsigthTzJ8X7MPmNeEwybRAvdxS1pupqcM5Mk4uCuyZA' + + 'e7uEk68YpuGDeViW8wSXMrCi5CwoNgqs8V2w8ayB5dMJzrYCHhD8C7" (Pair N' + + 'one (Pair { } (Pair { } (Pair (Pair 40 -10) (Pair (Right "2' + + '019-09-09T08:35:33Z") { } ))))))))', + 'Unit'), + # Test EDIV on nat and int ('ediv.tz', '(Pair None (Pair None (Pair None None)))', -- GitLab From cb9b8c6adf389939b4319f39b012b725e7fcbed6 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Thu, 19 Sep 2019 14:31:20 +0200 Subject: [PATCH 137/252] REBASE : fix NOW --- tests_python/client/client.py | 18 ++++++++++++++++-- tests_python/tests/test_contract_opcodes.py | 2 +- 2 files changed, 17 insertions(+), 3 deletions(-) diff --git a/tests_python/client/client.py b/tests_python/client/client.py index 5fd13389917b..75cdbea8c5e0 100644 --- a/tests_python/client/client.py +++ b/tests_python/client/client.py @@ -305,6 +305,20 @@ class Client: res = self.run(['get', 'timestamp']) return res[:-1] + def get_now(self) -> str: + """Returns the timestamp of next-to-last block, offset by time_between_blocks""" + rfc3399_format = "%Y-%m-%dT%H:%M:%SZ" + timestamp = self.rpc('get', f'/chains/main/blocks/head~1/header')['timestamp'] + timestamp_date = datetime.datetime.strptime(timestamp, rfc3399_format) + timestamp_date = timestamp_date.replace(tzinfo=datetime.timezone.utc) + + constants = self.rpc('get', f'/chains/main/blocks/head/context/constants') + delta = datetime.timedelta(seconds=int(constants['time_between_blocks'][0])) + + now_date = timestamp_date + delta + + return now_date.strftime(rfc3399_format) + def get_receipt(self, operation: str, args: List[str] = None) -> client_output.GetReceiptResult: @@ -342,9 +356,9 @@ class Client: def get_hash_data(self, data: str, - typ: str) -> client_output.HashDataResult: + typ: str) -> client_output.HashResult: cmd = ['hash', 'data', data, 'of', 'type', typ] - return client_output.HashDataResult(self.run(cmd)) + return client_output.HashResult(self.run(cmd)) def get_block(self, block_hash) -> dict: return self.rpc('get', f'/chains/main/blocks/{block_hash}') diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index c89648e5f624..7003458f1661 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -733,7 +733,7 @@ class TestContractOpcodes: bake(client) assert_storage_contains(client, 'store_now', - f'"{client.get_timestamp()}"') + f'"{client.get_now()}"') def test_transfer_tokens(self, client): """Tests TRANSFER_TOKENS.""" -- GitLab From bea760a31c1eee957cf425a994bb81f3d96bb223 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Thu, 19 Sep 2019 14:34:39 +0200 Subject: [PATCH 138/252] REBASE : contract origination fixes --- tests_python/tests/test_contract_opcodes.py | 43 ++++++++++++--------- 1 file changed, 24 insertions(+), 19 deletions(-) diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index 7003458f1661..a705ca000e69 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -696,7 +696,7 @@ class TestContractOpcodes: # Create a contract and transfer 100 ꜩ to it init_with_transfer(client, f'{CONTRACT_PATH}/store_input.tz', - KEY1, '""', 100, 'bootstrap1') + '""', 100, 'bootstrap1') client.transfer(100, "bootstrap1", "store_input", ["-arg", '"abcdefg"', '--burn-cap', '10']) @@ -715,7 +715,7 @@ class TestContractOpcodes: def test_transfer_amount(self, client): init_with_transfer(client, f'{CONTRACT_PATH}/transfer_amount.tz', - KEY1, '0', 100, 'bootstrap1') + '0', 100, 'bootstrap1') client.transfer(500, "bootstrap1", 'transfer_amount', ['-arg', 'Unit', '--burn-cap', '10']) @@ -726,7 +726,7 @@ class TestContractOpcodes: def test_now(self, client): init_with_transfer(client, f'{CONTRACT_PATH}/store_now.tz', - KEY1, '"2017-07-13T09:19:01Z"', 100, 'bootstrap1') + '"2017-07-13T09:19:01Z"', 100, 'bootstrap1') client.transfer(500, "bootstrap1", 'store_now', ['-arg', 'Unit', '--burn-cap', '10']) @@ -737,16 +737,22 @@ class TestContractOpcodes: def test_transfer_tokens(self, client): """Tests TRANSFER_TOKENS.""" - client.originate_account('test_transfer_account1', KEY1, 100, - 'bootstrap1', ['--burn-cap', '10']) + client.originate('test_transfer_account1', + 100, + 'bootstrap1', + f'{CONTRACT_PATH}/noop.tz', + ['--burn-cap', '10']) bake(client) - client.originate_account('test_transfer_account2', KEY2, 20, - 'bootstrap1', ['--burn-cap', '10']) + client.originate('test_transfer_account2', + 20, + 'bootstrap1', + f'{CONTRACT_PATH}/noop.tz', + ['--burn-cap', '10']) bake(client) init_with_transfer(client, f'{CONTRACT_PATH}/transfer_tokens.tz', - KEY2, 'Unit', 1000, 'bootstrap1') + 'Unit', 1000, 'bootstrap1') assert_balance(client, 'test_transfer_account1', 100) @@ -767,7 +773,7 @@ class TestContractOpcodes: def test_self(self, client): init_with_transfer(client, f'{CONTRACT_PATH}/self.tz', - KEY1, '"tz1KqTpEZ7Yob7QbPE4Hy4Wo8fHG8LhKxZSx"', + '"tz1KqTpEZ7Yob7QbPE4Hy4Wo8fHG8LhKxZSx"', 1000, 'bootstrap1') client.transfer(0, 'bootstrap1', 'self', ['--burn-cap', '10']) @@ -778,7 +784,7 @@ class TestContractOpcodes: def test_contract_fails(self, client): init_with_transfer(client, f'{CONTRACT_PATH}/contract.tz', - KEY1, 'Unit', + 'Unit', 1000, 'bootstrap1') client.transfer(0, 'bootstrap1', 'self', ['--burn-cap', '10']) @@ -794,14 +800,14 @@ class TestContractOpcodes: def test_init_proxy(self, client): init_with_transfer(client, f'{CONTRACT_PATH}/proxy.tz', - 'bootstrap1', 'Unit', + 'Unit', 1000, 'bootstrap1') def test_source(self, client): init_store = IDENTITIES['bootstrap4']['identity'] init_with_transfer(client, f'{CONTRACT_PATH}/source.tz', - 'bootstrap3', f'"{init_store}"', + f'"{init_store}"', 1000, 'bootstrap1') # direct transfer to the contract @@ -823,7 +829,7 @@ class TestContractOpcodes: init_store = IDENTITIES['bootstrap4']['identity'] init_with_transfer(client, f'{CONTRACT_PATH}/sender.tz', - 'bootstrap3', f'"{init_store}"', + f'"{init_store}"', 1000, 'bootstrap1') # direct transfer to the contract @@ -844,7 +850,7 @@ class TestContractOpcodes: def test_slice(self, client): init_with_transfer( - client, f'{CONTRACT_PATH}/slices.tz', 'bootstrap1', + client, f'{CONTRACT_PATH}/slices.tz', '"sppk7dBPqMPjDjXgKbb5f7V3PuKUrA4Zuwc3c3H7XqQerqPUWbK7Hna"', 1000, 'bootstrap1') @@ -874,7 +880,7 @@ class TestContractOpcodes: def test_split_string(self, client): init_with_transfer(client, f'{CONTRACT_PATH}/split_string.tz', - 'bootstrap1', '{}', + '{}', 1000, 'bootstrap1') client.transfer(0, 'bootstrap1', 'split_string', @@ -891,7 +897,7 @@ class TestContractOpcodes: def test_split_bytes(self, client): init_with_transfer(client, f'{CONTRACT_PATH}/split_bytes.tz', - 'bootstrap1', '{}', + '{}', 1000, 'bootstrap1') client.transfer(0, 'bootstrap1', 'split_bytes', @@ -945,7 +951,7 @@ class TestContractOpcodes: def test_set_delegate(self, client): init_with_transfer(client, f'{CONTRACT_PATH}/set_delegate.tz', - 'bootstrap1', 'Unit', 1000, 'bootstrap1') + 'Unit', 1000, 'bootstrap1') bake(client) assert client.get_delegate('set_delegate').delegate is None @@ -987,11 +993,10 @@ def bake(client: Client) -> BakeForResult: def init_with_transfer(client: Client, contract: str, - manager: str, initial_storage: str, amount: float, sender: str): - client.originate(contract_name_of_file(contract), manager, amount, + client.originate(contract_name_of_file(contract), amount, sender, contract, ['-init', initial_storage, '--burn-cap', '10']) bake(client) -- GitLab From 83e10fff9848d8cba89ce38c45087446484276b3 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Thu, 19 Sep 2019 14:34:54 +0200 Subject: [PATCH 139/252] REBASE : hash data changes --- tests_python/tests/test_contract_opcodes.py | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index a705ca000e69..3d511f5bc3d3 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -915,7 +915,7 @@ class TestContractOpcodes: def test_hash_consistency_michelson_cli(self, client): hash_result = client.get_hash_data( '(Pair 22220000000 (Pair "2017-12-13T04:49:00Z" 034))', - '(pair mutez (pair timestamp int))').raw_script_expression_id_hash + '(pair mutez (pair timestamp int))').blake2b hash_contract = f'{CONTRACT_PATH}/hash_consistency_checker.tz' run_script_res = client.run_script( hash_contract, '0x00', -- GitLab From b9eeeff376b8093bc7c697c6d8fb86d4c391183f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Rapha=C3=ABl=20Cauderlier?= Date: Thu, 19 Sep 2019 23:53:44 +0200 Subject: [PATCH 140/252] REBASE: Fix big map tests using the new diff format --- tests_python/client/client_output.py | 7 +- tests_python/tests/test_contract_opcodes.py | 90 ++++++++++++--------- 2 files changed, 57 insertions(+), 40 deletions(-) diff --git a/tests_python/client/client_output.py b/tests_python/client/client_output.py index b11329459fee..ba6bb2e4ec97 100644 --- a/tests_python/client/client_output.py +++ b/tests_python/client/client_output.py @@ -97,13 +97,12 @@ class RunScriptResult: # read map diff output self.big_map_diff = [] - pattern = r"map diff:\n" + pattern = r"big_map diff\n" match = re.search(pattern, client_output) if match is not None: - pattern = re.compile(r" ([+-]) (.*?)\n") + pattern = re.compile(r" ([^ ].*?)\n") for match_diff in pattern.finditer(client_output, match.end(0)): - diff = [match_diff.group(1)] + match_diff.group(2).split('-> ') - self.big_map_diff.append(diff) + self.big_map_diff.append([match_diff.group(1)]) class OriginationResult: diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index 3d511f5bc3d3..ae8dc3cc47bc 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -230,50 +230,50 @@ class TestContractOpcodes: # Memberships in big maps ('big_map_mem_nat.tz', '(Pair { Elt 0 1 } None)', '1', - '(Pair {} (Some False))'), + '(Pair 0 (Some False))'), ('big_map_mem_nat.tz', '(Pair {} None)', '1', - '(Pair {} (Some False))'), + '(Pair 0 (Some False))'), ('big_map_mem_nat.tz', '(Pair { Elt 1 0 } None)', '1', - '(Pair {} (Some True))'), + '(Pair 0 (Some True))'), ('big_map_mem_nat.tz', '(Pair { Elt 1 4 ; Elt 2 11 } None)', '1', - '(Pair {} (Some True))'), + '(Pair 0 (Some True))'), ('big_map_mem_nat.tz', '(Pair { Elt 1 4 ; Elt 2 11 } None)', '2', - '(Pair {} (Some True))'), + '(Pair 0 (Some True))'), ('big_map_mem_nat.tz', '(Pair { Elt 1 4 ; Elt 2 11 } None)', '3', - '(Pair {} (Some False))'), + '(Pair 0 (Some False))'), ('big_map_mem_string.tz', '(Pair { Elt "foo" 1 } None)', '"bar"', - '(Pair {} (Some False))'), + '(Pair 0 (Some False))'), ('big_map_mem_string.tz', '(Pair {} None)', '"bar"', - '(Pair {} (Some False))'), + '(Pair 0 (Some False))'), ('big_map_mem_string.tz', '(Pair { Elt "foo" 0 } None)', '"foo"', - '(Pair {} (Some True))'), + '(Pair 0 (Some True))'), ('big_map_mem_string.tz', '(Pair { Elt "bar" 4 ; Elt "foo" 11 } None)', - '"foo"', '(Pair {} (Some True))'), + '"foo"', '(Pair 0 (Some True))'), ('big_map_mem_string.tz', '(Pair { Elt "bar" 4 ; Elt "foo" 11 } None)', - '"bar"', '(Pair {} (Some True))'), + '"bar"', '(Pair 0 (Some True))'), ('big_map_mem_string.tz', '(Pair { Elt "bar" 4 ; Elt "foo" 11 } None)', - '"baz"', '(Pair {} (Some False))'), + '"baz"', '(Pair 0 (Some False))'), # Memberships in big maps ('big_map_mem_nat.tz', '(Pair { Elt 0 1 } None)', '1', - '(Pair {} (Some False))'), + '(Pair 0 (Some False))'), ('big_map_mem_nat.tz', '(Pair {} None)', '1', - '(Pair {} (Some False))'), + '(Pair 0 (Some False))'), ('big_map_mem_nat.tz', '(Pair { Elt 1 0 } None)', '1', - '(Pair {} (Some True))'), + '(Pair 0 (Some True))'), ('big_map_mem_nat.tz', '(Pair { Elt 1 4 ; Elt 2 11 } None)', '1', - '(Pair {} (Some True))'), + '(Pair 0 (Some True))'), ('big_map_mem_nat.tz', '(Pair { Elt 1 4 ; Elt 2 11 } None)', '2', - '(Pair {} (Some True))'), + '(Pair 0 (Some True))'), ('big_map_mem_nat.tz', '(Pair { Elt 1 4 ; Elt 2 11 } None)', '3', - '(Pair {} (Some False))'), + '(Pair 0 (Some False))'), # Identity on sets ('set_id.tz', '{}', '{ "a" ; "b" ; "c" }', '{ "a" ; "b" ; "c" }'), @@ -592,42 +592,60 @@ class TestContractOpcodes: # Get the value stored at the given key in the big map ('get_big_map_value.tz', '(Pair { Elt "hello" "hi" } None)', - '"hello"', '(Pair {} (Some "hi"))', [["+", '"hello"', '"hi"']]), + '"hello"', '(Pair 0 (Some "hi"))', + [["New map(0) of type (big_map string string)"], + ['Set map(0)["hello"] to "hi"']]), ('get_big_map_value.tz', '(Pair { Elt "hello" "hi" } None)', '""', - '(Pair {} None)', [["+", '"hello"', '"hi"']]), + '(Pair 0 None)', + [["New map(0) of type (big_map string string)"], + ['Set map(0)["hello"] to "hi"']]), ('get_big_map_value.tz', '(Pair { Elt "1" "one" ; Elt "2" "two" } None)', '"1"', - '(Pair {} (Some "one"))', - [["+", '"1"', '"one"'], ["+", '"2"', '"two"']]), + '(Pair 0 (Some "one"))', + [["New map(0) of type (big_map string string)"], + ['Set map(0)["1"] to "one"'], + ['Set map(0)["2"] to "two"']]), # Test updating big maps ('update_big_map.tz', '(Pair { Elt "1" "one" ; Elt "2" "two" } Unit)', - '{}', '(Pair {} Unit)', - [["+", '"1"', '"one"'], ["+", '"2"', '"two"']]), + '{}', '(Pair 0 Unit)', + [["New map(0) of type (big_map string string)"], + ['Set map(0)["1"] to "one"'], + ['Set map(0)["2"] to "two"']]), ('update_big_map.tz', '(Pair { Elt "1" "one" ; Elt "2" "two" } Unit)', - '{ Elt "1" (Some "two") }', '(Pair {} Unit)', - [["+", '"1"', '"two"'], ["+", '"2"', '"two"']]), + '{ Elt "1" (Some "two") }', '(Pair 0 Unit)', + [["New map(0) of type (big_map string string)"], + ['Set map(0)["1"] to "two"'], + ['Set map(0)["2"] to "two"']]), ('update_big_map.tz', '(Pair { Elt "1" "one" ; Elt "2" "two" } Unit)', - '{ Elt "3" (Some "three") }', '(Pair {} Unit)', - [["+", '"1"', '"one"'], - ["+", '"2"', '"two"'], - ["+", '"3"', '"three"']]), + '{ Elt "3" (Some "three") }', '(Pair 0 Unit)', + [["New map(0) of type (big_map string string)"], + ['Set map(0)["1"] to "one"'], + ['Set map(0)["2"] to "two"'], + ['Set map(0)["3"] to "three"']]), ('update_big_map.tz', '(Pair { Elt "1" "one" ; Elt "2" "two" } Unit)', - '{ Elt "3" None }', '(Pair {} Unit)', - [["+", '"1"', '"one"'], ["+", '"2"', '"two"'], ["-", '"3"']]), + '{ Elt "3" None }', '(Pair 0 Unit)', + [["New map(0) of type (big_map string string)"], + ['Set map(0)["1"] to "one"'], + ['Set map(0)["2"] to "two"'], + ['Unset map(0)["3"]']]), ('update_big_map.tz', '(Pair { Elt "1" "one" ; Elt "2" "two" } Unit)', - '{ Elt "2" None }', '(Pair {} Unit)', - [["+", '"1"', '"one"'], ["-", '"2"']]), + '{ Elt "2" None }', '(Pair 0 Unit)', + [["New map(0) of type (big_map string string)"], + ['Set map(0)["1"] to "one"'], + ['Unset map(0)["2"]']]), ('update_big_map.tz', '(Pair { Elt "1" "one" ; Elt "2" "two" } Unit)', - '{ Elt "1" (Some "two") }', '(Pair {} Unit)', - [["+", '"1"', '"two"'], ["+", '"2"', '"two"']]) + '{ Elt "1" (Some "two") }', '(Pair 0 Unit)', + [["New map(0) of type (big_map string string)"], + ['Set map(0)["1"] to "two"'], + ['Set map(0)["2"] to "two"']]) ]) def test__big_map_contract_io(self, client, -- GitLab From 02c3b25b72170386e467b3e1cda151121750d8fd Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Rapha=C3=ABl=20Cauderlier?= Date: Fri, 20 Sep 2019 00:00:27 +0200 Subject: [PATCH 141/252] REBASE: Fix the tests of the CREATE_CONTRACT instruction --- src/bin_client/test/contracts/ill_typed/pack_operation.tz | 3 --- src/bin_client/test/contracts/opcodes/create_contract.tz | 3 --- 2 files changed, 6 deletions(-) diff --git a/src/bin_client/test/contracts/ill_typed/pack_operation.tz b/src/bin_client/test/contracts/ill_typed/pack_operation.tz index 476f93d9da5a..349ca053af27 100644 --- a/src/bin_client/test/contracts/ill_typed/pack_operation.tz +++ b/src/bin_client/test/contracts/ill_typed/pack_operation.tz @@ -3,10 +3,7 @@ storage unit; code { DROP; UNIT; # starting storage for contract AMOUNT; # Push the starting balance - PUSH bool False; # Not spendable - DUP; # Or delegatable NONE key_hash; # No delegate - PUSH key_hash "tz1cxcwwnzENRdhe2Kb8ZdTrdNy4bFNyScx5"; CREATE_CONTRACT # Create the contract { parameter unit ; storage unit ; diff --git a/src/bin_client/test/contracts/opcodes/create_contract.tz b/src/bin_client/test/contracts/opcodes/create_contract.tz index eabe1d705ccc..d5a2fe4760fe 100644 --- a/src/bin_client/test/contracts/opcodes/create_contract.tz +++ b/src/bin_client/test/contracts/opcodes/create_contract.tz @@ -3,10 +3,7 @@ storage (option address); code { DROP; UNIT; # starting storage for contract AMOUNT; # Push the starting balance - PUSH bool False; # Not spendable - DUP; # Or delegatable NONE key_hash; # No delegate - PUSH key_hash "tz1cxcwwnzENRdhe2Kb8ZdTrdNy4bFNyScx5"; CREATE_CONTRACT # Create the contract { parameter unit ; storage unit ; -- GitLab From b579e69b390d201a800d99d2360b7624e6ed688c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Rapha=C3=ABl=20Cauderlier?= Date: Fri, 20 Sep 2019 00:11:12 +0200 Subject: [PATCH 142/252] REBASE: Remove test on packing of contract since this type is not packable anymore. --- .../test/contracts/opcodes/packunpack_rev_cty.tz | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/src/bin_client/test/contracts/opcodes/packunpack_rev_cty.tz b/src/bin_client/test/contracts/opcodes/packunpack_rev_cty.tz index 6442f1f73ef8..dd59cecdc360 100644 --- a/src/bin_client/test/contracts/opcodes/packunpack_rev_cty.tz +++ b/src/bin_client/test/contracts/opcodes/packunpack_rev_cty.tz @@ -2,11 +2,11 @@ parameter (pair key (pair unit (pair signature (pair (option signature) (pair (l storage unit ; # for each uncomparable type t (we take an arbitrary parameter for # parametric data-types e.g. pair, list), -# that is packable (which excludes big_map and operation) -# and excluding types which cannot be passed as literals (contract and lambda) +# that is packable (which excludes big_map, operation, and contract) +# and excluding types which cannot be passed as literals (lambda) # this contract receives a parameter v_t. # it verifies that pack v_t == pack (unpack (pack v_t)) -# we verify the same thing for contract and lambda but for hard-coded values. +# we verify the same thing for lambda but for an hard-coded value. code { CAR; # packable uncomparable types # checking: key @@ -27,8 +27,6 @@ code { CAR; DUP; CAR; DIP { UNPAIR; }; PACK; DIP { PACK; UNPACK (or key_hash timestamp); ASSERT_SOME; PACK; }; ASSERT_CMPEQ; # checking: map int string DUP; PACK; DIP { PACK; UNPACK (map int string); ASSERT_SOME; PACK; }; ASSERT_CMPEQ; - # checking contract, using this very contract. - SELF; DUP; PACK; DIP { PACK; UNPACK (contract (pair key (pair unit (pair signature (pair (option signature) (pair (list unit) (pair (set bool) (pair (pair int int) (pair (or key_hash timestamp) (map int string)))))))))); ASSERT_SOME; PACK; }; ASSERT_CMPEQ; # checking: lambda string bytes LAMBDA string bytes { DUP; DROP; PACK; } ; DUP; PACK; DIP { PACK; UNPACK (lambda string bytes); ASSERT_SOME; PACK; }; ASSERT_CMPEQ; -- GitLab From 72a0d27a3a280f2998c267e83de1101c15cb2ead Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Rapha=C3=ABl=20Cauderlier?= Date: Fri, 20 Sep 2019 00:22:01 +0200 Subject: [PATCH 143/252] REBASE: Update error message --- tests_python/tests/test_contract.py | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests_python/tests/test_contract.py b/tests_python/tests/test_contract.py index 646ad337c66e..34b7ec3379d1 100644 --- a/tests_python/tests/test_contract.py +++ b/tests_python/tests/test_contract.py @@ -60,7 +60,7 @@ class TestContracts: # operations cannot be PACKed ("pack_operation.tz", r'operation type forbidden in parameter, storage and constants'), # big_maps cannot be PACKed - ("pack_big_map.tz", r'big_map type only allowed on the left of the toplevel storage pair') + ("pack_big_map.tz", r'big_map type not allowed inside another big_map') ]) def test_ill_typecheck(self, client, contract, error_pattern): def cmd(): -- GitLab From 16efed1bf1bd847316ba7cab76683b22cf630402 Mon Sep 17 00:00:00 2001 From: Ilias Garnier Date: Fri, 20 Sep 2019 11:34:59 +0200 Subject: [PATCH 144/252] Tests: fix broken tests --- tests_python/tests/test_contract_opcodes.py | 19 ++++++++++--------- 1 file changed, 10 insertions(+), 9 deletions(-) diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index ae8dc3cc47bc..8aee4a37d051 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -678,14 +678,6 @@ class TestContractOpcodes: '0070009000102000000060001000200030004)' ) - def test_fails_annotated_set_car_cdr(self, client): - """Tests the SET_CAR and SET_CDR instructions.""" - def cmd(): - client.run_script(f'{CONTRACT_PATH}/set_car.tz', - '(Pair %wrong %field "hello" 0)', - '""') - assert check_run_failure(cmd, r'The two annotations do not match') - def test_check_signature(self, client): sig = 'edsigthTzJ8X7MPmNeEwybRAvdxS1pupqcM5Mk4uCuyZA' \ + 'e7uEk68YpuGDeViW8wSXMrCi5CwoNgqs8V2w8ayB5dMJzrYCHhD8C7' @@ -933,7 +925,7 @@ class TestContractOpcodes: def test_hash_consistency_michelson_cli(self, client): hash_result = client.get_hash_data( '(Pair 22220000000 (Pair "2017-12-13T04:49:00Z" 034))', - '(pair mutez (pair timestamp int))').blake2b + '(pair mutez (pair timestamp int))').raw_hash hash_contract = f'{CONTRACT_PATH}/hash_consistency_checker.tz' run_script_res = client.run_script( hash_contract, '0x00', @@ -987,6 +979,15 @@ class TestContractOpcodes: assert client.get_delegate('set_delegate').delegate is None + @pytest.mark.skip(reason="Bug in annotation system") + def test_fails_annotated_set_car_cdr(self, client): + """Tests the SET_CAR and SET_CDR instructions.""" + def cmd(): + client.run_script(f'{CONTRACT_PATH}/set_car.tz', + '(Pair %wrong %field "hello" 0)', + '""') + assert check_run_failure(cmd, r'The two annotations do not match') + def assert_storage_contains(client: Client, -- GitLab From c73356c308f3099735c73b46e945fd782eabaa92 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Fri, 20 Sep 2019 11:19:30 +0200 Subject: [PATCH 145/252] Tests: add lambda to PACK/UNPACK comparable types --- .../contracts/opcodes/packunpack_rev_cty.tz | 6 ++--- tests_python/tests/test_contract_opcodes.py | 27 ++++++++++--------- 2 files changed, 17 insertions(+), 16 deletions(-) diff --git a/src/bin_client/test/contracts/opcodes/packunpack_rev_cty.tz b/src/bin_client/test/contracts/opcodes/packunpack_rev_cty.tz index dd59cecdc360..94ab64d33e85 100644 --- a/src/bin_client/test/contracts/opcodes/packunpack_rev_cty.tz +++ b/src/bin_client/test/contracts/opcodes/packunpack_rev_cty.tz @@ -1,4 +1,4 @@ -parameter (pair key (pair unit (pair signature (pair (option signature) (pair (list unit) (pair (set bool) (pair (pair int int) (pair (or key_hash timestamp) (map int string))))))))); +parameter (pair key (pair unit (pair signature (pair (option signature) (pair (list unit) (pair (set bool) (pair (pair int int) (pair (or key_hash timestamp) (pair (map int string) (lambda string bytes)))))))))); storage unit ; # for each uncomparable type t (we take an arbitrary parameter for # parametric data-types e.g. pair, list), @@ -26,9 +26,7 @@ code { CAR; # checking: or key_hash timestamp DUP; CAR; DIP { UNPAIR; }; PACK; DIP { PACK; UNPACK (or key_hash timestamp); ASSERT_SOME; PACK; }; ASSERT_CMPEQ; # checking: map int string - DUP; PACK; DIP { PACK; UNPACK (map int string); ASSERT_SOME; PACK; }; ASSERT_CMPEQ; - # checking: lambda string bytes - LAMBDA string bytes { DUP; DROP; PACK; } ; + DUP; CAR; DIP { UNPAIR; }; PACK; DIP { PACK; UNPACK (map int string); ASSERT_SOME; PACK; }; ASSERT_CMPEQ; DUP; PACK; DIP { PACK; UNPACK (lambda string bytes); ASSERT_SOME; PACK; }; ASSERT_CMPEQ; UNIT ; NIL operation ; PAIR } diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index 8aee4a37d051..00ee7ed4cfb5 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -491,21 +491,24 @@ class TestContractOpcodes: '"tz1cxcwwnzENRdhe2Kb8ZdTrdNy4bFNyScx5"))))))))', 'Unit'), ('packunpack_rev_cty.tz', 'Unit', - '(Pair "edpkuBknW28nW72KG6RoHtYW7p12T6GKc7nAbwYX5m8Wd9sDVC9yav" ' + - '(Pair Unit (Pair "edsigthTzJ8X7MPmNeEwybRAvdxS1pupqcM5Mk4uCuyZA' + - 'e7uEk68YpuGDeViW8wSXMrCi5CwoNgqs8V2w8ayB5dMJzrYCHhD8C7" (Pair (' + - 'Some "edsigthTzJ8X7MPmNeEwybRAvdxS1pupqcM5Mk4uCuyZAe7uEk68YpuGD' + - 'eViW8wSXMrCi5CwoNgqs8V2w8ayB5dMJzrYCHhD8C7") (Pair { Unit } (P' + - 'air { True } (Pair (Pair 19 10) (Pair (Left "tz1cxcwwnzENRdhe2' + - 'Kb8ZdTrdNy4bFNyScx5") { Elt 0 "foo" ; Elt 1 "bar" } ))))))))', + '(Pair "edpkuBknW28nW72KG6RoHtYW7p12T6GKc7nAbwYX5m8Wd9' + + 'sDVC9yav" (Pair Unit (Pair "edsigthTzJ8X7MPmNeEwybRAv' + + 'dxS1pupqcM5Mk4uCuyZAe7uEk68YpuGDeViW8wSXMrCi5CwoNgqs8' + + 'V2w8ayB5dMJzrYCHhD8C7" (Pair (Some "edsigthTzJ8X7MPmN' + + 'eEwybRAvdxS1pupqcM5Mk4uCuyZAe7uEk68YpuGDeViW8wSXMrCi5' + + 'CwoNgqs8V2w8ayB5dMJzrYCHhD8C7") (Pair { Unit } (Pair' + + ' { True } (Pair (Pair 19 10) (Pair (Left "tz1cxcwwnz' + + 'ENRdhe2Kb8ZdTrdNy4bFNyScx5") (Pair { Elt 0 "foo" ; El' + + 't 1 "bar" } { PACK } )))))))))', 'Unit'), ('packunpack_rev_cty.tz', 'Unit', - '(Pair "edpkuBknW28nW72KG6RoHtYW7p12T6GKc7nAbwYX5m8Wd9sDVC9yav" ' + - '(Pair Unit (Pair "edsigthTzJ8X7MPmNeEwybRAvdxS1pupqcM5Mk4uCuyZA' + - 'e7uEk68YpuGDeViW8wSXMrCi5CwoNgqs8V2w8ayB5dMJzrYCHhD8C7" (Pair N' + - 'one (Pair { } (Pair { } (Pair (Pair 40 -10) (Pair (Right "2' + - '019-09-09T08:35:33Z") { } ))))))))', + '(Pair "edpkuBknW28nW72KG6RoHtYW7p12T6GKc7nAbwYX5m8Wd9' + + 'sDVC9yav" (Pair Unit (Pair "edsigthTzJ8X7MPmNeEwybRAv' + + 'dxS1pupqcM5Mk4uCuyZAe7uEk68YpuGDeViW8wSXMrCi5CwoNgqs8' + + 'V2w8ayB5dMJzrYCHhD8C7" (Pair None (Pair { } (Pair {' + + ' } (Pair (Pair 40 -10) (Pair (Right "2019-09-09T08:' + + '35:33Z") (Pair { } { DUP ; DROP ; PACK } )))))))))', 'Unit'), # Test EDIV on nat and int -- GitLab From d591a71f3c14de876d1b9e97bcb40645b8f2ff9c Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Fri, 20 Sep 2019 12:02:26 +0200 Subject: [PATCH 146/252] Tests: port DIGN, DUGN, DROPN, DIPN tests from test_contract_opcodes.sh --- tests_python/tests/test_contract_opcodes.py | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index 00ee7ed4cfb5..9ef7a710049b 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -574,8 +574,13 @@ class TestContractOpcodes: ('neg.tz', '0', '(Right 2)', '-2'), ('neg.tz', '0', '(Left 0)', '0'), ('neg.tz', '0', '(Right 0)', '0'), - ('neg.tz', '0', '(Left -2)', '2') + ('neg.tz', '0', '(Left -2)', '2'), + # Test DIGN, DUGN, DROPN, DIPN + ('dign.tz','0', '(Pair (Pair (Pair (Pair 1 2) 3) 4) 5)', '5'), + ('dugn.tz', '0', '(Pair (Pair (Pair (Pair 1 2) 3) 4) 5)', '1'), + ('dropn.tz','0', '(Pair (Pair (Pair (Pair 1 2) 3) 4) 5)', '5'), + ('dipn.tz', '0', '(Pair (Pair (Pair (Pair 1 2) 3) 4) 5)', '6') ]) def test_contract_input_output(self, client, -- GitLab From fdb65f61bb29b418ce62f4c2c044787cb36115dd Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Fri, 20 Sep 2019 14:20:24 +0200 Subject: [PATCH 147/252] Tests: port EXEC/APPLY tests from test_contract_opcodes.sh --- tests_python/tests/test_contract_opcodes.py | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index 9ef7a710049b..eaa5286031a7 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -580,7 +580,11 @@ class TestContractOpcodes: ('dign.tz','0', '(Pair (Pair (Pair (Pair 1 2) 3) 4) 5)', '5'), ('dugn.tz', '0', '(Pair (Pair (Pair (Pair 1 2) 3) 4) 5)', '1'), ('dropn.tz','0', '(Pair (Pair (Pair (Pair 1 2) 3) 4) 5)', '5'), - ('dipn.tz', '0', '(Pair (Pair (Pair (Pair 1 2) 3) 4) 5)', '6') + ('dipn.tz', '0', '(Pair (Pair (Pair (Pair 1 2) 3) 4) 5)', '6'), + + # Test Partial Exec + ('pexec.tz', '14', '38', '52'), + ('pexec_2.tz', "{ 0 ; 1 ; 2 ; 3}", '4', "{ 0 ; 7 ; 14 ; 21 }") ]) def test_contract_input_output(self, client, -- GitLab From 18c05e62da9a7bcf58d78b434c9e936a5be53fcc Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Fri, 20 Sep 2019 14:20:38 +0200 Subject: [PATCH 148/252] Tests: port deprecation tests from test_contract.sh --- tests_python/tests/test_contract.py | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/tests_python/tests/test_contract.py b/tests_python/tests/test_contract.py index 34b7ec3379d1..ae1dbc6b73c4 100644 --- a/tests_python/tests/test_contract.py +++ b/tests_python/tests/test_contract.py @@ -7,6 +7,7 @@ from tools.constants import IDENTITIES CONTRACT_PATH = f'{paths.TEZOS_HOME}/src/bin_client/test/contracts' ILLTYPED_CONTRACT_PATH = f'{CONTRACT_PATH}/ill_typed' +DEPRECATED_CONTRACT_PATH = f'{CONTRACT_PATH}/deprecated' BAKE_ARGS = ['--minimal-timestamp'] @@ -45,6 +46,12 @@ def all_contracts(): contracts.append(f'{directory}/{contract}') return contracts +def all_deprecated_contract(): + contracts = [] + for contract in os.listdir(f'{DEPRECATED_CONTRACT_PATH}'): + contracts.append(f'{DEPRECATED_CONTRACT_PATH}/{contract}') + return contracts + @pytest.mark.slow @pytest.mark.contract @@ -68,6 +75,12 @@ class TestContracts: assert utils.check_run_failure(cmd, error_pattern) + @pytest.mark.parametrize("contract", all_deprecated_contract()) + def test_deprected_typecheck(self, client, contract): + def cmd(): + client.typecheck(contract) + + assert utils.check_run_failure(cmd, r'Use of deprecated instruction') FIRST_EXPLOSION = ''' { parameter unit; -- GitLab From d34c63e3a26673ac36f14ce66d39ea8388915af9 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Fri, 20 Sep 2019 15:53:28 +0200 Subject: [PATCH 149/252] Tests: more DIGN tests --- src/bin_client/test/contracts/opcodes/dig_eq.tz | 14 ++++++++++++++ tests_python/tests/test_contract_opcodes.py | 14 ++++++++++++++ 2 files changed, 28 insertions(+) create mode 100644 src/bin_client/test/contracts/opcodes/dig_eq.tz diff --git a/src/bin_client/test/contracts/opcodes/dig_eq.tz b/src/bin_client/test/contracts/opcodes/dig_eq.tz new file mode 100644 index 000000000000..fff548bbf597 --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/dig_eq.tz @@ -0,0 +1,14 @@ +parameter (pair nat (pair nat (pair nat (pair nat (pair nat (pair nat (pair nat (pair nat (pair nat (pair nat (pair nat (pair nat (pair nat (pair nat (pair nat (pair nat nat)))))))))))))))); +storage unit; +# this contract receives a 17-tuple, unpairs it, reverses the order, reverses it again, and pairs it and verifies that the result is the same as the original tuple. +code { CAR; + DUP; + + UNPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAIR; + DIG 0; DIG 1; DIG 2; DIG 3; DIG 4; DIG 5; DIG 6; DIG 7; DIG 8; DIG 9; DIG 10; DIG 11; DIG 12; DIG 13; DIG 14; DIG 15; DIG 16; + # PUSH nat 1; ADD; + DIG 0; DIG 1; DIG 2; DIG 3; DIG 4; DIG 5; DIG 6; DIG 7; DIG 8; DIG 9; DIG 10; DIG 11; DIG 12; DIG 13; DIG 14; DIG 15; DIG 16; + PAPAPAPAPAPAPAPAPAPAPAPAPAPAPAPAIR; + ASSERT_CMPEQ; + + UNIT; NIL operation; PAIR}; diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index eaa5286031a7..c1f3e9283233 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -582,6 +582,20 @@ class TestContractOpcodes: ('dropn.tz','0', '(Pair (Pair (Pair (Pair 1 2) 3) 4) 5)', '5'), ('dipn.tz', '0', '(Pair (Pair (Pair (Pair 1 2) 3) 4) 5)', '6'), + # Test DIGN 17 times. + ('dig_eq.tz', + 'Unit', + '(Pair 17 (Pair 16 (Pair 15 (Pair 14 (Pair 13 (Pair 12' + + ' (Pair 11 (Pair 10 (Pair 9 (Pair 8 (Pair 7 (Pair 6 (P' + + 'air 5 (Pair 4 (Pair 3 (Pair 2 1))))))))))))))))', + 'Unit'), + ('dig_eq.tz', + 'Unit', + '(Pair 2 (Pair 3 (Pair 12 (Pair 16 (Pair 10 (Pair 14 (' + + 'Pair 19 (Pair 9 (Pair 18 (Pair 6 (Pair 8 (Pair 11 (Pa' + + 'ir 4 (Pair 13 (Pair 15 (Pair 5 1))))))))))))))))', + 'Unit'), + # Test Partial Exec ('pexec.tz', '14', '38', '52'), ('pexec_2.tz', "{ 0 ; 1 ; 2 ; 3}", '4', "{ 0 ; 7 ; 14 ; 21 }") -- GitLab From b3c4d695c7efeaf38a66b3a2395daa29b09bd01d Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Fri, 20 Sep 2019 16:40:45 +0200 Subject: [PATCH 150/252] Tests: Test the `big_map_magic.tz` contract Covers the EMPTY_BIG_MAP instruction. --- .../contracts/mini_scenarios/big_map_magic.tz | 10 +++ tests_python/tests/test_contract_opcodes.py | 61 +++++++++++++++++++ 2 files changed, 71 insertions(+) diff --git a/src/bin_client/test/contracts/mini_scenarios/big_map_magic.tz b/src/bin_client/test/contracts/mini_scenarios/big_map_magic.tz index 0bfc429e0cfd..f4e36f639bff 100644 --- a/src/bin_client/test/contracts/mini_scenarios/big_map_magic.tz +++ b/src/bin_client/test/contracts/mini_scenarios/big_map_magic.tz @@ -1,10 +1,20 @@ +# this contracts handles two big_maps storage (or (pair (big_map string string) (big_map string string)) unit) ; parameter + # it has 5 entry points + # swap: swaps the two maps. (or (unit %swap) + # reset: resets storage, either to a new pair of maps, or to unit (or (or %reset (pair (big_map string string) (big_map string string)) unit) + # import: drops the existing storage and creates two maps + # from the given lists of string pairs. (or (pair %import (list (pair string string)) (list (pair string string))) + # add: adds the given list of key - value pairs into the + # first map (or (list %add (pair string string)) + # rem: removes the given list of key - value pairs + # from the first map (list %rem string))))) ; code { UNPAIR ; IF_LEFT diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index c1f3e9283233..81561ebffa79 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -685,6 +685,67 @@ class TestContractOpcodes: assert run_script_res.storage == expected assert run_script_res.big_map_diff == big_map_diff + @pytest.mark.parametrize( + "param,storage,expected,big_map_diff", + [ # test swap + ('(Left (Pair { Elt "1" "one" } { Elt "2" "two" }))', + '(Left Unit)', + '(Left (Pair 0 1))', + [ ['New map(1) of type (big_map string string)'], + ['Set map(1)["1"] to "one"'], + ['New map(0) of type (big_map string string)'], + ['Set map(0)["2"] to "two"'] ]), + # test reset with new map + ('(Left (Pair { Elt "1" "one" } { Elt "2" "two" }))', + '(Right (Left (Left (Pair { Elt "3" "three" } { Elt "4" "four" }))))', + '(Left (Pair 0 1))', + [ ['New map(1) of type (big_map string string)'], + ['Set map(1)["4"] to "four"'], + ['New map(0) of type (big_map string string)'], + ['Set map(0)["3"] to "three"'] ]), + # test reset to unit + ('(Left (Pair { Elt "1" "one" } { Elt "2" "two" }))', + '(Right (Left (Right Unit)))', + '(Right Unit)', + [ ['\n'] ] ), + # test import to big_map + ('(Right Unit)', + '(Right (Right (Left (Pair { Pair "foo" "bar" } { Pair "gaz" "baz" }) )))', + '(Left (Pair 0 1))', + [ ['New map(1) of type (big_map string string)'], + ['Set map(1)["gaz"] to "baz"'], + ['New map(0) of type (big_map string string)'], + ['Set map(0)["foo"] to "bar"'] ]), + # test add to big_map + ('(Left (Pair { Elt "1" "one" } { Elt "2" "two" }) )', + '(Right (Right (Right (Left { Pair "3" "three" }))))', + '(Left (Pair 0 1))', + [ ['New map(1) of type (big_map string string)'], + ['Set map(1)["2"] to "two"'], + ['New map(0) of type (big_map string string)'], + ['Set map(0)["1"] to "one"'], + ['Set map(0)["3"] to "three"'] ]), + # test remove from big_map + ('(Left (Pair { Elt "1" "one" } { Elt "2" "two" }))', + '(Right (Right (Right (Right { "1" }))))', + '(Left (Pair 0 1))', + [ ['New map(1) of type (big_map string string)'], + ['Set map(1)["2"] to "two"'], + ['New map(0) of type (big_map string string)'], + ['Unset map(0)["1"]'] ]) + ]) + def test_big_map_magic(self, + client, + param, + storage, + expected, + big_map_diff): + contract = f'{paths.TEZOS_HOME}/src/bin_client/test/' + \ + 'contracts/mini_scenarios/big_map_magic.tz' + run_script_res = client.run_script(contract, param, storage) + assert run_script_res.storage == expected + assert run_script_res.big_map_diff == big_map_diff + def test_packunpack(self, client): """Test PACK/UNPACK and binary format.""" assert_run_script_success( -- GitLab From dd337f4165c51c661a3dc4588ff16c84470109e9 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Fri, 20 Sep 2019 16:58:17 +0200 Subject: [PATCH 151/252] Tests: Cover CHAIN_ID in test_contract_opcodes.py --- src/bin_client/test/contracts/opcodes/chain_id_store.tz | 3 +++ tests_python/tests/test_contract_opcodes.py | 5 ++++- 2 files changed, 7 insertions(+), 1 deletion(-) create mode 100644 src/bin_client/test/contracts/opcodes/chain_id_store.tz diff --git a/src/bin_client/test/contracts/opcodes/chain_id_store.tz b/src/bin_client/test/contracts/opcodes/chain_id_store.tz new file mode 100644 index 000000000000..11e57fd210c7 --- /dev/null +++ b/src/bin_client/test/contracts/opcodes/chain_id_store.tz @@ -0,0 +1,3 @@ +parameter unit; +storage (option chain_id); +code { DROP; CHAIN_ID; SOME; NIL operation; PAIR } diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index 81561ebffa79..17717bc3d561 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -598,7 +598,10 @@ class TestContractOpcodes: # Test Partial Exec ('pexec.tz', '14', '38', '52'), - ('pexec_2.tz', "{ 0 ; 1 ; 2 ; 3}", '4', "{ 0 ; 7 ; 14 ; 21 }") + ('pexec_2.tz', "{ 0 ; 1 ; 2 ; 3}", '4', "{ 0 ; 7 ; 14 ; 21 }"), + + # Test CHAIN_ID + ('chain_id_store.tz', 'None', 'Unit', '(Some 0x7a06a770)') ]) def test_contract_input_output(self, client, -- GitLab From 2a0328a5b6efd61425267ab42425f54042130b02 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Tue, 24 Sep 2019 13:52:34 +0200 Subject: [PATCH 152/252] Tests: remove fixed TODO comment --- tests_python/tests/test_contract_opcodes.py | 2 -- 1 file changed, 2 deletions(-) diff --git a/tests_python/tests/test_contract_opcodes.py b/tests_python/tests/test_contract_opcodes.py index 17717bc3d561..518b49ac554a 100644 --- a/tests_python/tests/test_contract_opcodes.py +++ b/tests_python/tests/test_contract_opcodes.py @@ -1129,8 +1129,6 @@ def assert_run_script_failwith(client: Client, contract: str, param: str, storage: str) -> None: - # TODO: ideally check that an the actual FAILWITH instruction is - # reached. to do this, client needs modification def cmd(): client.run_script(contract, param, storage) -- GitLab From d084c3c31ab73646beb2bed3c9bcfd7114bcab01 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Thu, 26 Sep 2019 16:19:05 +0200 Subject: [PATCH 153/252] Tests: fix erroneous comment regarding literal lambdas --- src/bin_client/test/contracts/opcodes/packunpack_rev_cty.tz | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/bin_client/test/contracts/opcodes/packunpack_rev_cty.tz b/src/bin_client/test/contracts/opcodes/packunpack_rev_cty.tz index 94ab64d33e85..5e32b8a6f6aa 100644 --- a/src/bin_client/test/contracts/opcodes/packunpack_rev_cty.tz +++ b/src/bin_client/test/contracts/opcodes/packunpack_rev_cty.tz @@ -3,10 +3,8 @@ storage unit ; # for each uncomparable type t (we take an arbitrary parameter for # parametric data-types e.g. pair, list), # that is packable (which excludes big_map, operation, and contract) -# and excluding types which cannot be passed as literals (lambda) # this contract receives a parameter v_t. # it verifies that pack v_t == pack (unpack (pack v_t)) -# we verify the same thing for lambda but for an hard-coded value. code { CAR; # packable uncomparable types # checking: key @@ -27,6 +25,7 @@ code { CAR; DUP; CAR; DIP { UNPAIR; }; PACK; DIP { PACK; UNPACK (or key_hash timestamp); ASSERT_SOME; PACK; }; ASSERT_CMPEQ; # checking: map int string DUP; CAR; DIP { UNPAIR; }; PACK; DIP { PACK; UNPACK (map int string); ASSERT_SOME; PACK; }; ASSERT_CMPEQ; + # checking: lambda string bytes DUP; PACK; DIP { PACK; UNPACK (lambda string bytes); ASSERT_SOME; PACK; }; ASSERT_CMPEQ; UNIT ; NIL operation ; PAIR } -- GitLab From 6de54de3968f29fd8b7b83b797f9fb575bc7de8d Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Fri, 6 Sep 2019 14:17:46 +0200 Subject: [PATCH 154/252] Include patched version of ott This is a version of ott patched to generate json output. It is based on Basile's version at https://github.com/Vertmo/ott but modified to read the current version of the michelson.ott formalization. --- vendors/ott/.gitignore | 17 + vendors/ott/LICENCE | 30 + vendors/ott/Makefile | 265 + vendors/ott/README.md | 143 + vendors/ott/aux/y2l/0README_FIRST | 11 + vendors/ott/aux/y2l/Artistic | 125 + vendors/ott/aux/y2l/README | 82 + vendors/ott/aux/y2l/y2l | 1151 + vendors/ott/aux/y2l/y2l.man | 75 + vendors/ott/aux/y2l/y2lman.html | 103 + vendors/ott/built_doc/top2.html | 3297 ++ vendors/ott/built_doc/top2.pdf | Bin 0 -> 450300 bytes vendors/ott/built_doc/top2.ps | 35284 ++++++++++++++++ vendors/ott/built_doc/top2001.png | Bin 0 -> 2857 bytes vendors/ott/built_doc/top2002.png | Bin 0 -> 385 bytes vendors/ott/built_doc/top2003.png | Bin 0 -> 416 bytes vendors/ott/built_doc/top2004.png | Bin 0 -> 214 bytes vendors/ott/built_doc/top2005.png | Bin 0 -> 1202 bytes vendors/ott/built_doc/top2006.png | Bin 0 -> 621 bytes vendors/ott/built_doc/top2007.png | Bin 0 -> 11523 bytes vendors/ott/built_doc/top2008.png | Bin 0 -> 421 bytes vendors/ott/built_doc/top2009.png | Bin 0 -> 347 bytes vendors/ott/built_doc/top2010.png | Bin 0 -> 149 bytes vendors/ott/built_doc/top2011.png | Bin 0 -> 126 bytes vendors/ott/built_doc/top2012.png | Bin 0 -> 526 bytes vendors/ott/built_doc/top2013.png | Bin 0 -> 264 bytes vendors/ott/built_doc/top2014.png | Bin 0 -> 135 bytes vendors/ott/built_doc/top2015.png | Bin 0 -> 143 bytes vendors/ott/built_doc/top2016.png | Bin 0 -> 1630 bytes vendors/ott/built_doc/top2017.png | Bin 0 -> 135 bytes vendors/ott/built_doc/top2018.png | Bin 0 -> 150 bytes vendors/ott/built_doc/top2019.png | Bin 0 -> 5801 bytes vendors/ott/built_doc/top2020.png | Bin 0 -> 593 bytes vendors/ott/built_doc/top2021.png | Bin 0 -> 199 bytes vendors/ott/built_doc/top2022.png | Bin 0 -> 197 bytes vendors/ott/built_doc/top2023.png | Bin 0 -> 3315 bytes vendors/ott/built_doc/top2024.png | Bin 0 -> 2314 bytes vendors/ott/built_doc/top2025.png | Bin 0 -> 864 bytes vendors/ott/built_doc/top2026.png | Bin 0 -> 629 bytes vendors/ott/built_doc/top2027.png | Bin 0 -> 1282 bytes vendors/ott/built_doc/top2028.png | Bin 0 -> 1325 bytes vendors/ott/built_doc/top2029.png | Bin 0 -> 2152 bytes vendors/ott/built_doc/top2030.png | Bin 0 -> 1611 bytes vendors/ott/built_doc/top2031.png | Bin 0 -> 260 bytes vendors/ott/built_doc/top2032.png | Bin 0 -> 144 bytes vendors/ott/built_doc/top2033.png | Bin 0 -> 153 bytes vendors/ott/built_doc/top2034.png | Bin 0 -> 991 bytes vendors/ott/built_doc/top2035.png | Bin 0 -> 1116 bytes vendors/ott/built_doc/top2036.png | Bin 0 -> 578 bytes vendors/ott/built_doc/top2037.png | Bin 0 -> 1773 bytes vendors/ott/coq-ott.opam | 18 + vendors/ott/coq/.gitignore | 7 + vendors/ott/coq/Makefile | 14 + vendors/ott/coq/_CoqProject | 14 + vendors/ott/coq/ott_list.v | 36 + vendors/ott/coq/ott_list_base.v | 236 + vendors/ott/coq/ott_list_core.v | 81 + vendors/ott/coq/ott_list_distinct.v | 197 + vendors/ott/coq/ott_list_eq_dec.v | 44 + vendors/ott/coq/ott_list_flat_map.v | 96 + vendors/ott/coq/ott_list_mem.v | 205 + vendors/ott/coq/ott_list_nth.v | 194 + vendors/ott/coq/ott_list_predicate.v | 426 + vendors/ott/coq/ott_list_repeat.v | 83 + vendors/ott/coq/ott_list_support.v | 53 + vendors/ott/coq/ott_list_takedrop.v | 317 + vendors/ott/doc/Makefile | 459 + vendors/ott/doc/favicon.ico | Bin 0 -> 1406 bytes vendors/ott/doc/index.html.p | 367 + vendors/ott/doc/let.alltt.tex | 31 + vendors/ott/doc/shorter.bib | 1141 + vendors/ott/doc/squishtex.hand.ott | 11 + vendors/ott/doc/style.css | 50 + vendors/ott/doc/test10.hand.edited.thy | 51 + vendors/ott/doc/test10.hand.edited.v | 60 + vendors/ott/doc/top2.mng | 5570 +++ vendors/ott/emacs/ott-mode.el | 32 + vendors/ott/examples/1Bsemantics/Makefile | 23 + vendors/ott/examples/1Bsemantics/l1.ott | 204 + vendors/ott/examples/1Bsemantics/l2.ott | 85 + .../ott/examples/1Bsemantics/svn-log-2018-01 | 38 + vendors/ott/examples/ocaml_light/.gitignore | 19 + vendors/ott/examples/ocaml_light/Makefile | 228 + .../ott/examples/ocaml_light/Makefile-distrib | 58 + vendors/ott/examples/ocaml_light/README | 88 + .../ott/examples/ocaml_light/README.internal | 58 + .../ott/examples/ocaml_light/caml_lib_misc.v | 110 + vendors/ott/examples/ocaml_light/doc/Makefile | 14 + .../ott/examples/ocaml_light/doc/abstract.tex | 78 + vendors/ott/examples/ocaml_light/doc/bib.bib | 19 + .../ocaml_light/doc/built_doc/poster.pdf | Bin 0 -> 41167 bytes .../doc/built_doc/poster_rules.pdf | Bin 0 -> 153504 bytes .../ott/examples/ocaml_light/doc/llncs.cls | 1189 + .../ott/examples/ocaml_light/doc/ott-spec.ltx | 77 + .../ott/examples/ocaml_light/doc/poster.sty | 44 + .../ott/examples/ocaml_light/doc/poster.tex | 409 + .../examples/ocaml_light/doc/poster_rules.tex | 3604 ++ .../examples/ocaml_light/doc/postercore.sty | 41 + .../ott/examples/ocaml_light/doc/splncs.bst | 1098 + vendors/ott/examples/ocaml_light/funex.ott | 190 + .../examples/ocaml_light/hol/basicScript.sml | 872 + .../ocaml_light/hol/definitionsScript.sml | 833 + .../ocaml_light/hol/defs_red_funScript.sml | 219 + .../ocaml_light/hol/env_permScript.sml | 579 + .../ocaml_light/hol/environmentScript.sml | 639 + .../ocaml_light/hol/matching_funScript.sml | 331 + .../ocaml_light/hol/ocamlpp/.cvsignore | 8 + .../examples/ocaml_light/hol/ocamlpp/Makefile | 71 + .../examples/ocaml_light/hol/ocamlpp/README | 7 + .../examples/ocaml_light/hol/ocamlpp/main.ml | 13 + .../hol/ocamlpp/parsing/.cvsignore | 11 + .../hol/ocamlpp/parsing/asttypes.mli | 36 + .../ocaml_light/hol/ocamlpp/parsing/lexer.mll | 500 + .../hol/ocamlpp/parsing/linenum.ml | 179 + .../hol/ocamlpp/parsing/linenum.mli | 23 + .../hol/ocamlpp/parsing/linenum.mll | 74 + .../hol/ocamlpp/parsing/location.ml | 250 + .../hol/ocamlpp/parsing/location.mli | 56 + .../hol/ocamlpp/parsing/longident.ml | 38 + .../hol/ocamlpp/parsing/longident.mli | 23 + .../ocaml_light/hol/ocamlpp/parsing/parse.ml | 64 + .../ocaml_light/hol/ocamlpp/parsing/parse.mli | 21 + .../hol/ocamlpp/parsing/parser.mly | 1537 + .../hol/ocamlpp/parsing/parsetree.mli | 275 + .../hol/ocamlpp/parsing/printast.ml | 959 + .../hol/ocamlpp/parsing/printast.mli | 20 + .../hol/ocamlpp/parsing/syntaxerr.ml | 41 + .../hol/ocamlpp/parsing/syntaxerr.mli | 26 + .../ocaml_light/hol/ocamlpp/utils/.cvsignore | 7 + .../ocaml_light/hol/ocamlpp/utils/ccomp.ml | 112 + .../ocaml_light/hol/ocamlpp/utils/ccomp.mli | 24 + .../ocaml_light/hol/ocamlpp/utils/clflags.ml | 90 + .../ocaml_light/hol/ocamlpp/utils/clflags.mli | 75 + .../ocaml_light/hol/ocamlpp/utils/config.ml | 109 + .../hol/ocamlpp/utils/config.mlbuild | 124 + .../ocaml_light/hol/ocamlpp/utils/config.mli | 112 + .../ocaml_light/hol/ocamlpp/utils/config.mlp | 109 + .../hol/ocamlpp/utils/consistbl.ml | 57 + .../hol/ocamlpp/utils/consistbl.mli | 60 + .../ocaml_light/hol/ocamlpp/utils/misc.ml | 197 + .../ocaml_light/hol/ocamlpp/utils/misc.mli | 104 + .../ocaml_light/hol/ocamlpp/utils/tbl.ml | 104 + .../ocaml_light/hol/ocamlpp/utils/tbl.mli | 30 + .../ocaml_light/hol/ocamlpp/utils/terminfo.ml | 25 + .../hol/ocamlpp/utils/terminfo.mli | 25 + .../ocaml_light/hol/ocamlpp/utils/warnings.ml | 191 + .../hol/ocamlpp/utils/warnings.mli | 56 + .../ocaml_light/hol/preservationScript.sml | 1270 + .../ocaml_light/hol/progressScript.sml | 616 + .../ocaml_light/hol/reduction_funScript.sml | 1046 + .../ocaml_light/hol/remv_tyvarScript.sml | 223 + .../examples/ocaml_light/hol/shiftScript.sml | 206 + .../examples/ocaml_light/hol/storeScript.sml | 170 + .../ocaml_light/hol/strengthenScript.sml | 128 + .../examples/ocaml_light/hol/substsScript.sml | 957 + .../examples/ocaml_light/hol/teqScript.sml | 939 + .../examples/ocaml_light/hol/testing/Makefile | 8 + .../examples/ocaml_light/hol/testing/README | 39 + .../ocaml_light/hol/testing/make_ml.sml | 453 + .../ocaml_light/hol/testing/process-tests.scm | 184 + .../hol/testing/reduction_funML.BUGFIX.sml | 1042 + .../ocaml_light/hol/testing/sources1.cm | 14 + .../ocaml_light/hol/testing/sources2.cm | 19 + .../examples/ocaml_light/hol/testing/tests | 985 + .../ocaml_light/hol/testing/theoryML.cm | 30 + .../ocaml_light/hol/type_substScript.sml | 592 + .../ocaml_light/hol/type_substsScript.sml | 31 + .../examples/ocaml_light/hol/utilScript.sml | 378 + .../examples/ocaml_light/hol/validScript.sml | 229 + .../examples/ocaml_light/hol/weakenScript.sml | 830 + vendors/ott/examples/ocaml_light/library.ott | 15902 +++++++ vendors/ott/examples/ocaml_light/opsem.ott | 168 + .../ott/examples/ocaml_light/ott-preamble.sed | 4 + vendors/ott/examples/ocaml_light/ott-spec.ltx | 96 + .../ott/examples/ocaml_light/reduction.ott | 805 + vendors/ott/examples/ocaml_light/syntax.ott | 1966 + vendors/ott/examples/ocaml_light/typing.ott | 1547 + vendors/ott/examples/peterson_caml.ott | 334 + vendors/ott/examples/tapl/.gitignore | 13 + vendors/ott/examples/tapl/Makefile | 200 + vendors/ott/examples/tapl/arrow.ott | 41 + vendors/ott/examples/tapl/arrow_typing.ott | 79 + vendors/ott/examples/tapl/ascribe.ott | 29 + vendors/ott/examples/tapl/basety.ott | 8 + vendors/ott/examples/tapl/bool.ott | 31 + vendors/ott/examples/tapl/bool_typing.ott | 27 + vendors/ott/examples/tapl/bot.ott | 12 + vendors/ott/examples/tapl/common.ott | 32 + vendors/ott/examples/tapl/common_index.ott | 32 + vendors/ott/examples/tapl/common_labels.ott | 27 + vendors/ott/examples/tapl/common_typing.ott | 37 + vendors/ott/examples/tapl/fix.ott | 31 + vendors/ott/examples/tapl/inert.ott | 14 + vendors/ott/examples/tapl/let.ott | 30 + vendors/ott/examples/tapl/let_alltt.ott | 29 + vendors/ott/examples/tapl/nat.ott | 52 + vendors/ott/examples/tapl/nat_typing.ott | 24 + vendors/ott/examples/tapl/product.ott | 69 + vendors/ott/examples/tapl/record.ott | 52 + .../tapl/record_with_explicit_types.ott | 66 + vendors/ott/examples/tapl/seq.ott | 29 + vendors/ott/examples/tapl/sub_arrow.ott | 27 + vendors/ott/examples/tapl/sub_record.ott | 27 + vendors/ott/examples/tapl/sum.ott | 65 + vendors/ott/examples/tapl/top.ott | 12 + vendors/ott/examples/tapl/tuple.ott | 52 + vendors/ott/examples/tapl/tuples.ott | 1 + vendors/ott/examples/tapl/unit.ott | 23 + vendors/ott/examples/tapl/variant.ott | 58 + vendors/ott/hol/Makefile | 5 + vendors/ott/hol/ottLib.sig | 10 + vendors/ott/hol/ottLib.sml | 167 + vendors/ott/hol/ottScript.sml | 80 + vendors/ott/menhir/menhir_library_extra.mly | 73 + vendors/ott/ocamlgraph-1.7.tar.gz | Bin 0 -> 236906 bytes vendors/ott/ocamlgraph-safe-string.patch | 19 + vendors/ott/ott.opam | 14 + vendors/ott/regression/Makefile | 81 + vendors/ott/regression/README | 10 + vendors/ott/regression/_ott_coqrc.v | 7 + vendors/ott/regression/baseline-jenkins.bl | Bin 0 -> 5195 bytes vendors/ott/regression/baseline-ps.bl | Bin 0 -> 5197 bytes vendors/ott/regression/baseline.bl | Bin 0 -> 67 bytes vendors/ott/regression/baseline.fzn.txt | 102 + vendors/ott/regression/baseline.ps.txt | 102 + vendors/ott/regression/config.otr | 27 + vendors/ott/regression/ln.otl | 6 + vendors/ott/regression/ln_check.sh | 2 + vendors/ott/regression/loops | 16 + vendors/ott/regression/regression-jenkins.ml | 48 + vendors/ott/regression/regression-small.otl | 1 + vendors/ott/regression/regression.ml | 842 + vendors/ott/regression/regression.otl | 101 + .../ott/regression/regression_night_script.sh | 21 + vendors/ott/regression/regression_p_client.ml | 303 + vendors/ott/regression/regression_p_master.ml | 207 + vendors/ott/regression/regression_para.ml | 586 + .../regression/tests_not_in_regression.otl | 27 + vendors/ott/regression/tp_check.sh | 80 + vendors/ott/revision_history.txt | 505 + vendors/ott/src/Makefile | 381 + vendors/ott/src/README-src.txt | 77 + vendors/ott/src/align.ml | 75 + vendors/ott/src/align.mli | 34 + vendors/ott/src/auxl.ml | 1846 + vendors/ott/src/bounds.ml | 353 + vendors/ott/src/bounds.mli | 44 + vendors/ott/src/context_pp.ml | 163 + vendors/ott/src/coq_induct.ml | 371 + vendors/ott/src/coq_induct.mli | 35 + vendors/ott/src/defns.ml | 1396 + vendors/ott/src/defns.mli | 47 + vendors/ott/src/dependency.ml | 720 + vendors/ott/src/dependency.mli | 43 + vendors/ott/src/embed_pp.ml | 101 + vendors/ott/src/embed_pp.mli | 44 + vendors/ott/src/global_option.ml | 42 + vendors/ott/src/glr.ml | 645 + vendors/ott/src/grammar_lexer.mll | 496 + vendors/ott/src/grammar_parser.mly | 604 + vendors/ott/src/grammar_pp.ml | 4374 ++ vendors/ott/src/grammar_typecheck.ml | 2843 ++ vendors/ott/src/grammar_typecheck.mli | 53 + vendors/ott/src/lex_menhir_pp.ml | 942 + vendors/ott/src/lex_menhir_pp.mli | 41 + vendors/ott/src/ln_transform.ml | 1838 + vendors/ott/src/location.ml | 200 + vendors/ott/src/main.ml | 866 + vendors/ott/src/merge.ml | 435 + vendors/ott/src/merge.mli | 58 + vendors/ott/src/michelson_specific.ml | 62 + vendors/ott/src/new_term_parser.ml | 946 + vendors/ott/src/parse_table.ml | 1062 + vendors/ott/src/quotient_rules.ml | 263 + vendors/ott/src/subrules_pp.ml | 520 + vendors/ott/src/subrules_pp.mli | 38 + vendors/ott/src/substs_pp.ml | 2079 + vendors/ott/src/substs_pp.mli | 56 + vendors/ott/src/system_pp.ml | 683 + vendors/ott/src/system_pp.mli | 41 + vendors/ott/src/term_parser.ml | 1233 + vendors/ott/src/term_parser.mli | 67 + vendors/ott/src/tmp_date.txt | 1 + vendors/ott/src/transform.ml | 416 + vendors/ott/src/transform.mli | 37 + vendors/ott/src/types.ml | 983 + vendors/ott/src/version_src.tex | 4 + vendors/ott/tests/binding.1.ott | 17 + vendors/ott/tests/binding.2.ott | 24 + vendors/ott/tests/binding.3.ott | 32 + vendors/ott/tests/binding.4.ott | 40 + vendors/ott/tests/binding.5.ott | 82 + vendors/ott/tests/binding.6.ott | 5 + vendors/ott/tests/binding.6b.ott | 36 + vendors/ott/tests/leroy-jfp96.ott | 680 + .../tests/menhir_tests/test10menhir/Makefile | 44 + .../tests/menhir_tests/test10menhir/main.ml | 58 + .../test10menhir/test10menhir.ott | 86 + .../test10menhir_with_aux/Makefile | 44 + .../PPrintCombinators.ml | 311 + .../PPrintCombinators.mli | 236 + .../test10menhir_with_aux/PPrintEngine.ml | 642 + .../test10menhir_with_aux/PPrintEngine.mli | 226 + .../test10menhir_with_aux/PPrintRenderer.ml | 37 + .../test10menhir_with_aux/main.ml | 58 + .../test10menhir_with_aux/pprint-master.zip | Bin 0 -> 51643 bytes .../test10menhir_with_aux.ott | 138 + .../ott/tests/menhir_tests/test_if/Makefile | 48 + .../ott/tests/menhir_tests/test_if/main.ml | 32 + .../tests/menhir_tests/test_if/test_if.ott | 58 + .../tests/menhir_tests/test_lists/Makefile | 48 + .../ott/tests/menhir_tests/test_lists/main.ml | 57 + .../menhir_tests/test_lists/test_lists.ott | 31 + .../tests/menhir_tests/test_phantom/Makefile | 48 + .../tests/menhir_tests/test_phantom/main.ml | 57 + .../test_phantom/test_phantom.ott | 53 + vendors/ott/tests/non_super_tabular.ott | 6 + vendors/ott/tests/squishtex.ott | 9 + vendors/ott/tests/test-j.ott | 278 + vendors/ott/tests/test-lj-list_ambiguity.ott | 41 + vendors/ott/tests/test-mjp-trans.ott | 428 + vendors/ott/tests/test-mjp.ott | 15 + vendors/ott/tests/test-pottier1.ott | 13 + vendors/ott/tests/test1.ott | 181 + vendors/ott/tests/test10.0.ott | 34 + vendors/ott/tests/test10.2.ott | 39 + vendors/ott/tests/test10.4.ott | 38 + vendors/ott/tests/test10.7.ott | 44 + vendors/ott/tests/test10.ott | 45 + vendors/ott/tests/test10_homs.ott | 58 + vendors/ott/tests/test10_isasyn.ott | 59 + vendors/ott/tests/test10_twf.ott | 100 + vendors/ott/tests/test10literate/Makefile | 20 + vendors/ott/tests/test10literate/README | 16 + .../tests/test10literate/test10-wrapper.tex | 52 + vendors/ott/tests/test10literate/test10.ott | 90 + vendors/ott/tests/test10rdx.ott | 120 + vendors/ott/tests/test10st.ott | 126 + vendors/ott/tests/test10st_codegen.thy | 41 + vendors/ott/tests/test10st_fe.ott | 97 + vendors/ott/tests/test10st_first_half.ott | 66 + .../ott/tests/test10st_metatheoryScript.sml | 110 + .../ott/tests/test10st_metatheory_autoed.thy | 135 + vendors/ott/tests/test10st_snapshot_out.thy | 91 + vendors/ott/tests/test10typing_minimal.ott | 41 + vendors/ott/tests/test11.ott | 25 + vendors/ott/tests/test12.ott | 15 + vendors/ott/tests/test13.ott | 61 + vendors/ott/tests/test13b.ott | 200 + vendors/ott/tests/test13d.ott | 474 + vendors/ott/tests/test14.ott | 27 + vendors/ott/tests/test15.0.ott | 16 + vendors/ott/tests/test15.1.ott | 37 + vendors/ott/tests/test15.2.ott | 20 + vendors/ott/tests/test15.3.ott | 31 + vendors/ott/tests/test15.4.ott | 30 + vendors/ott/tests/test15.4b.ott | 31 + vendors/ott/tests/test15.4c.ott | 32 + vendors/ott/tests/test15.4d.ott | 33 + vendors/ott/tests/test15.5.ott | 27 + vendors/ott/tests/test15.6.ott | 42 + vendors/ott/tests/test15.7.ott | 44 + vendors/ott/tests/test16.0.ott | 18 + vendors/ott/tests/test16.1.ott | 29 + vendors/ott/tests/test16.2.ott | 18 + vendors/ott/tests/test16.3.ott | 18 + vendors/ott/tests/test16.4.ott | 24 + vendors/ott/tests/test16.5.ott | 21 + vendors/ott/tests/test16.6.ott | 20 + vendors/ott/tests/test17.0.ott | 22 + vendors/ott/tests/test17.1.ott | 24 + vendors/ott/tests/test17.10.ott | 104 + vendors/ott/tests/test17.11.ott | 438 + vendors/ott/tests/test17.12.ott | 136 + vendors/ott/tests/test17.13.ott | 36 + vendors/ott/tests/test17.14.ott | 27 + vendors/ott/tests/test17.2.ott | 23 + vendors/ott/tests/test17.3.ott | 26 + vendors/ott/tests/test17.4.ott | 23 + vendors/ott/tests/test17.5.ott | 20 + vendors/ott/tests/test17.6.ott | 16 + vendors/ott/tests/test17.7.ott | 31 + vendors/ott/tests/test17.8.ott | 49 + vendors/ott/tests/test17.9.ott | 52 + vendors/ott/tests/test18.0.ott | 10 + vendors/ott/tests/test18.1.ott | 45 + vendors/ott/tests/test18.2.ott | 30 + vendors/ott/tests/test19.0.ott | 322 + vendors/ott/tests/test2.ott | 33 + vendors/ott/tests/test21.1.ott | 42 + vendors/ott/tests/test3.ott | 344 + vendors/ott/tests/test4.ott | 99 + vendors/ott/tests/test5.ott | 165 + vendors/ott/tests/test6-tex.ott | 299 + vendors/ott/tests/test6.ott | 218 + vendors/ott/tests/test7.ott | 499 + vendors/ott/tests/test7a.ott | 362 + vendors/ott/tests/test7b.ott | 499 + vendors/ott/tests/test7t.mng | 156 + vendors/ott/tests/test7tt.mng | 27 + vendors/ott/tests/test8.ott | 240 + vendors/ott/tests/test8p.ott | 294 + vendors/ott/tests/test_bind_aux_empty_1.ott | 8 + vendors/ott/tests/test_bind_dots_1.ott | 8 + vendors/ott/tests/test_bind_isa_1.ott | 22 + vendors/ott/tests/test_coq_equality_x_1.ott | 1 + .../test_defn_repeated_nonterminal_1.ott | 20 + vendors/ott/tests/test_embed_location_1.ott | 53 + vendors/ott/tests/test_embed_top_1.ott | 7 + vendors/ott/tests/test_empty_defn.ott | 17 + vendors/ott/tests/test_jan_2006-09-08.ott | 185 + vendors/ott/tests/test_lists_1.ott | 54 + vendors/ott/tests/test_lists_coq_bind_1.ott | 17 + .../tests/test_lists_coq_defn_subrule_1.ott | 22 + .../tests/test_lists_coq_defn_subrule_2.ott | 24 + .../tests/test_lists_coq_defn_subrule_3.ott | 34 + .../ott/tests/test_lists_coq_defn_tuple_1.ott | 11 + .../ott/tests/test_lists_coq_defn_tuple_2.ott | 23 + .../tests/test_lists_coq_list_functions_1.ott | 49 + .../tests/test_lists_coq_list_functions_2.ott | 29 + .../tests/test_lists_coq_list_functions_3.ott | 27 + .../tests/test_lists_coq_list_functions_4.ott | 26 + .../ott/tests/test_lists_defn_list_form_1.ott | 27 + vendors/ott/tests/test_lists_freevars_1.ott | 18 + vendors/ott/tests/test_lists_terminal_1.ott | 5 + .../tests/test_merge_embed_location_1-1.ott | 17 + .../tests/test_merge_embed_location_1-2.ott | 53 + vendors/ott/tests/test_subrules_1.ott | 12 + vendors/ott/tex/Makefile | 27 + vendors/ott/tex/README | 33 + vendors/ott/tex/empty.ott | 0 vendors/ott/tex/lj.ott | 183 + vendors/ott/tex/lj_base.ott | 136 + vendors/ott/tex/lj_common.ott | 1018 + vendors/ott/tex/manual.bib | 7 + vendors/ott/tex/manual.tex | 227 + vendors/ott/tex/ott_alltt.tex | 6 + vendors/ott/tex/ottlayout.sty | 339 + vendors/ott/tex/override.tex | 4 + 439 files changed, 145280 insertions(+) create mode 100644 vendors/ott/.gitignore create mode 100644 vendors/ott/LICENCE create mode 100644 vendors/ott/Makefile create mode 100644 vendors/ott/README.md create mode 100644 vendors/ott/aux/y2l/0README_FIRST create mode 100644 vendors/ott/aux/y2l/Artistic create mode 100644 vendors/ott/aux/y2l/README create mode 100755 vendors/ott/aux/y2l/y2l create mode 100644 vendors/ott/aux/y2l/y2l.man create mode 100644 vendors/ott/aux/y2l/y2lman.html create mode 100644 vendors/ott/built_doc/top2.html create mode 100644 vendors/ott/built_doc/top2.pdf create mode 100644 vendors/ott/built_doc/top2.ps create mode 100644 vendors/ott/built_doc/top2001.png create mode 100644 vendors/ott/built_doc/top2002.png create mode 100644 vendors/ott/built_doc/top2003.png create mode 100644 vendors/ott/built_doc/top2004.png create mode 100644 vendors/ott/built_doc/top2005.png create mode 100644 vendors/ott/built_doc/top2006.png create mode 100644 vendors/ott/built_doc/top2007.png create mode 100644 vendors/ott/built_doc/top2008.png create mode 100644 vendors/ott/built_doc/top2009.png create mode 100644 vendors/ott/built_doc/top2010.png create mode 100644 vendors/ott/built_doc/top2011.png create mode 100644 vendors/ott/built_doc/top2012.png create mode 100644 vendors/ott/built_doc/top2013.png create mode 100644 vendors/ott/built_doc/top2014.png create mode 100644 vendors/ott/built_doc/top2015.png create mode 100644 vendors/ott/built_doc/top2016.png create mode 100644 vendors/ott/built_doc/top2017.png create mode 100644 vendors/ott/built_doc/top2018.png create mode 100644 vendors/ott/built_doc/top2019.png create mode 100644 vendors/ott/built_doc/top2020.png create mode 100644 vendors/ott/built_doc/top2021.png create mode 100644 vendors/ott/built_doc/top2022.png create mode 100644 vendors/ott/built_doc/top2023.png create mode 100644 vendors/ott/built_doc/top2024.png create mode 100644 vendors/ott/built_doc/top2025.png create mode 100644 vendors/ott/built_doc/top2026.png create mode 100644 vendors/ott/built_doc/top2027.png create mode 100644 vendors/ott/built_doc/top2028.png create mode 100644 vendors/ott/built_doc/top2029.png create mode 100644 vendors/ott/built_doc/top2030.png create mode 100644 vendors/ott/built_doc/top2031.png create mode 100644 vendors/ott/built_doc/top2032.png create mode 100644 vendors/ott/built_doc/top2033.png create mode 100644 vendors/ott/built_doc/top2034.png create mode 100644 vendors/ott/built_doc/top2035.png create mode 100644 vendors/ott/built_doc/top2036.png create mode 100644 vendors/ott/built_doc/top2037.png create mode 100644 vendors/ott/coq-ott.opam create mode 100644 vendors/ott/coq/.gitignore create mode 100644 vendors/ott/coq/Makefile create mode 100644 vendors/ott/coq/_CoqProject create mode 100644 vendors/ott/coq/ott_list.v create mode 100644 vendors/ott/coq/ott_list_base.v create mode 100644 vendors/ott/coq/ott_list_core.v create mode 100644 vendors/ott/coq/ott_list_distinct.v create mode 100644 vendors/ott/coq/ott_list_eq_dec.v create mode 100644 vendors/ott/coq/ott_list_flat_map.v create mode 100644 vendors/ott/coq/ott_list_mem.v create mode 100644 vendors/ott/coq/ott_list_nth.v create mode 100644 vendors/ott/coq/ott_list_predicate.v create mode 100644 vendors/ott/coq/ott_list_repeat.v create mode 100644 vendors/ott/coq/ott_list_support.v create mode 100644 vendors/ott/coq/ott_list_takedrop.v create mode 100644 vendors/ott/doc/Makefile create mode 100644 vendors/ott/doc/favicon.ico create mode 100644 vendors/ott/doc/index.html.p create mode 100644 vendors/ott/doc/let.alltt.tex create mode 100644 vendors/ott/doc/shorter.bib create mode 100644 vendors/ott/doc/squishtex.hand.ott create mode 100644 vendors/ott/doc/style.css create mode 100644 vendors/ott/doc/test10.hand.edited.thy create mode 100644 vendors/ott/doc/test10.hand.edited.v create mode 100644 vendors/ott/doc/top2.mng create mode 100644 vendors/ott/emacs/ott-mode.el create mode 100644 vendors/ott/examples/1Bsemantics/Makefile create mode 100644 vendors/ott/examples/1Bsemantics/l1.ott create mode 100644 vendors/ott/examples/1Bsemantics/l2.ott create mode 100644 vendors/ott/examples/1Bsemantics/svn-log-2018-01 create mode 100644 vendors/ott/examples/ocaml_light/.gitignore create mode 100644 vendors/ott/examples/ocaml_light/Makefile create mode 100644 vendors/ott/examples/ocaml_light/Makefile-distrib create mode 100644 vendors/ott/examples/ocaml_light/README create mode 100644 vendors/ott/examples/ocaml_light/README.internal create mode 100644 vendors/ott/examples/ocaml_light/caml_lib_misc.v create mode 100644 vendors/ott/examples/ocaml_light/doc/Makefile create mode 100644 vendors/ott/examples/ocaml_light/doc/abstract.tex create mode 100644 vendors/ott/examples/ocaml_light/doc/bib.bib create mode 100644 vendors/ott/examples/ocaml_light/doc/built_doc/poster.pdf create mode 100644 vendors/ott/examples/ocaml_light/doc/built_doc/poster_rules.pdf create mode 100644 vendors/ott/examples/ocaml_light/doc/llncs.cls create mode 100644 vendors/ott/examples/ocaml_light/doc/ott-spec.ltx create mode 100644 vendors/ott/examples/ocaml_light/doc/poster.sty create mode 100644 vendors/ott/examples/ocaml_light/doc/poster.tex create mode 100644 vendors/ott/examples/ocaml_light/doc/poster_rules.tex create mode 100644 vendors/ott/examples/ocaml_light/doc/postercore.sty create mode 100644 vendors/ott/examples/ocaml_light/doc/splncs.bst create mode 100644 vendors/ott/examples/ocaml_light/funex.ott create mode 100644 vendors/ott/examples/ocaml_light/hol/basicScript.sml create mode 100644 vendors/ott/examples/ocaml_light/hol/definitionsScript.sml create mode 100644 vendors/ott/examples/ocaml_light/hol/defs_red_funScript.sml create mode 100644 vendors/ott/examples/ocaml_light/hol/env_permScript.sml create mode 100644 vendors/ott/examples/ocaml_light/hol/environmentScript.sml create mode 100644 vendors/ott/examples/ocaml_light/hol/matching_funScript.sml create mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/.cvsignore create mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/Makefile create mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/README create mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/main.ml create mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/.cvsignore create mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/asttypes.mli create mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/lexer.mll create mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/linenum.ml create mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/linenum.mli create mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/linenum.mll create mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/location.ml create mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/location.mli create mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/longident.ml create mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/longident.mli create mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/parse.ml create mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/parse.mli create mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/parser.mly create mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/parsetree.mli create mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/printast.ml create mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/printast.mli create mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/syntaxerr.ml create mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/syntaxerr.mli create mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/.cvsignore create mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/ccomp.ml create mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/ccomp.mli create mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/clflags.ml create mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/clflags.mli create mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/config.ml create mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/config.mlbuild create mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/config.mli create mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/config.mlp create mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/consistbl.ml create mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/consistbl.mli create mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/misc.ml create mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/misc.mli create mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/tbl.ml create mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/tbl.mli create mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/terminfo.ml create mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/terminfo.mli create mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/warnings.ml create mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/warnings.mli create mode 100644 vendors/ott/examples/ocaml_light/hol/preservationScript.sml create mode 100644 vendors/ott/examples/ocaml_light/hol/progressScript.sml create mode 100644 vendors/ott/examples/ocaml_light/hol/reduction_funScript.sml create mode 100644 vendors/ott/examples/ocaml_light/hol/remv_tyvarScript.sml create mode 100644 vendors/ott/examples/ocaml_light/hol/shiftScript.sml create mode 100644 vendors/ott/examples/ocaml_light/hol/storeScript.sml create mode 100644 vendors/ott/examples/ocaml_light/hol/strengthenScript.sml create mode 100644 vendors/ott/examples/ocaml_light/hol/substsScript.sml create mode 100644 vendors/ott/examples/ocaml_light/hol/teqScript.sml create mode 100644 vendors/ott/examples/ocaml_light/hol/testing/Makefile create mode 100644 vendors/ott/examples/ocaml_light/hol/testing/README create mode 100644 vendors/ott/examples/ocaml_light/hol/testing/make_ml.sml create mode 100755 vendors/ott/examples/ocaml_light/hol/testing/process-tests.scm create mode 100644 vendors/ott/examples/ocaml_light/hol/testing/reduction_funML.BUGFIX.sml create mode 100644 vendors/ott/examples/ocaml_light/hol/testing/sources1.cm create mode 100644 vendors/ott/examples/ocaml_light/hol/testing/sources2.cm create mode 100644 vendors/ott/examples/ocaml_light/hol/testing/tests create mode 100644 vendors/ott/examples/ocaml_light/hol/testing/theoryML.cm create mode 100644 vendors/ott/examples/ocaml_light/hol/type_substScript.sml create mode 100644 vendors/ott/examples/ocaml_light/hol/type_substsScript.sml create mode 100644 vendors/ott/examples/ocaml_light/hol/utilScript.sml create mode 100644 vendors/ott/examples/ocaml_light/hol/validScript.sml create mode 100644 vendors/ott/examples/ocaml_light/hol/weakenScript.sml create mode 100644 vendors/ott/examples/ocaml_light/library.ott create mode 100644 vendors/ott/examples/ocaml_light/opsem.ott create mode 100644 vendors/ott/examples/ocaml_light/ott-preamble.sed create mode 100644 vendors/ott/examples/ocaml_light/ott-spec.ltx create mode 100644 vendors/ott/examples/ocaml_light/reduction.ott create mode 100644 vendors/ott/examples/ocaml_light/syntax.ott create mode 100644 vendors/ott/examples/ocaml_light/typing.ott create mode 100644 vendors/ott/examples/peterson_caml.ott create mode 100644 vendors/ott/examples/tapl/.gitignore create mode 100644 vendors/ott/examples/tapl/Makefile create mode 100644 vendors/ott/examples/tapl/arrow.ott create mode 100644 vendors/ott/examples/tapl/arrow_typing.ott create mode 100644 vendors/ott/examples/tapl/ascribe.ott create mode 100644 vendors/ott/examples/tapl/basety.ott create mode 100644 vendors/ott/examples/tapl/bool.ott create mode 100644 vendors/ott/examples/tapl/bool_typing.ott create mode 100644 vendors/ott/examples/tapl/bot.ott create mode 100644 vendors/ott/examples/tapl/common.ott create mode 100644 vendors/ott/examples/tapl/common_index.ott create mode 100644 vendors/ott/examples/tapl/common_labels.ott create mode 100644 vendors/ott/examples/tapl/common_typing.ott create mode 100644 vendors/ott/examples/tapl/fix.ott create mode 100644 vendors/ott/examples/tapl/inert.ott create mode 100644 vendors/ott/examples/tapl/let.ott create mode 100644 vendors/ott/examples/tapl/let_alltt.ott create mode 100644 vendors/ott/examples/tapl/nat.ott create mode 100644 vendors/ott/examples/tapl/nat_typing.ott create mode 100644 vendors/ott/examples/tapl/product.ott create mode 100644 vendors/ott/examples/tapl/record.ott create mode 100644 vendors/ott/examples/tapl/record_with_explicit_types.ott create mode 100644 vendors/ott/examples/tapl/seq.ott create mode 100644 vendors/ott/examples/tapl/sub_arrow.ott create mode 100644 vendors/ott/examples/tapl/sub_record.ott create mode 100644 vendors/ott/examples/tapl/sum.ott create mode 100644 vendors/ott/examples/tapl/top.ott create mode 100644 vendors/ott/examples/tapl/tuple.ott create mode 100644 vendors/ott/examples/tapl/tuples.ott create mode 100644 vendors/ott/examples/tapl/unit.ott create mode 100644 vendors/ott/examples/tapl/variant.ott create mode 100644 vendors/ott/hol/Makefile create mode 100644 vendors/ott/hol/ottLib.sig create mode 100644 vendors/ott/hol/ottLib.sml create mode 100644 vendors/ott/hol/ottScript.sml create mode 100644 vendors/ott/menhir/menhir_library_extra.mly create mode 100644 vendors/ott/ocamlgraph-1.7.tar.gz create mode 100644 vendors/ott/ocamlgraph-safe-string.patch create mode 100644 vendors/ott/ott.opam create mode 100644 vendors/ott/regression/Makefile create mode 100644 vendors/ott/regression/README create mode 100644 vendors/ott/regression/_ott_coqrc.v create mode 100644 vendors/ott/regression/baseline-jenkins.bl create mode 100644 vendors/ott/regression/baseline-ps.bl create mode 100644 vendors/ott/regression/baseline.bl create mode 100644 vendors/ott/regression/baseline.fzn.txt create mode 100644 vendors/ott/regression/baseline.ps.txt create mode 100644 vendors/ott/regression/config.otr create mode 100644 vendors/ott/regression/ln.otl create mode 100755 vendors/ott/regression/ln_check.sh create mode 100644 vendors/ott/regression/loops create mode 100644 vendors/ott/regression/regression-jenkins.ml create mode 100644 vendors/ott/regression/regression-small.otl create mode 100644 vendors/ott/regression/regression.ml create mode 100644 vendors/ott/regression/regression.otl create mode 100755 vendors/ott/regression/regression_night_script.sh create mode 100644 vendors/ott/regression/regression_p_client.ml create mode 100644 vendors/ott/regression/regression_p_master.ml create mode 100644 vendors/ott/regression/regression_para.ml create mode 100644 vendors/ott/regression/tests_not_in_regression.otl create mode 100755 vendors/ott/regression/tp_check.sh create mode 100644 vendors/ott/revision_history.txt create mode 100644 vendors/ott/src/Makefile create mode 100644 vendors/ott/src/README-src.txt create mode 100644 vendors/ott/src/align.ml create mode 100644 vendors/ott/src/align.mli create mode 100644 vendors/ott/src/auxl.ml create mode 100644 vendors/ott/src/bounds.ml create mode 100644 vendors/ott/src/bounds.mli create mode 100644 vendors/ott/src/context_pp.ml create mode 100644 vendors/ott/src/coq_induct.ml create mode 100644 vendors/ott/src/coq_induct.mli create mode 100644 vendors/ott/src/defns.ml create mode 100644 vendors/ott/src/defns.mli create mode 100644 vendors/ott/src/dependency.ml create mode 100644 vendors/ott/src/dependency.mli create mode 100644 vendors/ott/src/embed_pp.ml create mode 100644 vendors/ott/src/embed_pp.mli create mode 100644 vendors/ott/src/global_option.ml create mode 100644 vendors/ott/src/glr.ml create mode 100644 vendors/ott/src/grammar_lexer.mll create mode 100644 vendors/ott/src/grammar_parser.mly create mode 100644 vendors/ott/src/grammar_pp.ml create mode 100644 vendors/ott/src/grammar_typecheck.ml create mode 100644 vendors/ott/src/grammar_typecheck.mli create mode 100644 vendors/ott/src/lex_menhir_pp.ml create mode 100644 vendors/ott/src/lex_menhir_pp.mli create mode 100644 vendors/ott/src/ln_transform.ml create mode 100644 vendors/ott/src/location.ml create mode 100644 vendors/ott/src/main.ml create mode 100644 vendors/ott/src/merge.ml create mode 100644 vendors/ott/src/merge.mli create mode 100644 vendors/ott/src/michelson_specific.ml create mode 100644 vendors/ott/src/new_term_parser.ml create mode 100644 vendors/ott/src/parse_table.ml create mode 100644 vendors/ott/src/quotient_rules.ml create mode 100644 vendors/ott/src/subrules_pp.ml create mode 100644 vendors/ott/src/subrules_pp.mli create mode 100644 vendors/ott/src/substs_pp.ml create mode 100644 vendors/ott/src/substs_pp.mli create mode 100644 vendors/ott/src/system_pp.ml create mode 100644 vendors/ott/src/system_pp.mli create mode 100644 vendors/ott/src/term_parser.ml create mode 100644 vendors/ott/src/term_parser.mli create mode 100644 vendors/ott/src/tmp_date.txt create mode 100644 vendors/ott/src/transform.ml create mode 100644 vendors/ott/src/transform.mli create mode 100644 vendors/ott/src/types.ml create mode 100644 vendors/ott/src/version_src.tex create mode 100644 vendors/ott/tests/binding.1.ott create mode 100644 vendors/ott/tests/binding.2.ott create mode 100644 vendors/ott/tests/binding.3.ott create mode 100644 vendors/ott/tests/binding.4.ott create mode 100644 vendors/ott/tests/binding.5.ott create mode 100644 vendors/ott/tests/binding.6.ott create mode 100644 vendors/ott/tests/binding.6b.ott create mode 100644 vendors/ott/tests/leroy-jfp96.ott create mode 100644 vendors/ott/tests/menhir_tests/test10menhir/Makefile create mode 100644 vendors/ott/tests/menhir_tests/test10menhir/main.ml create mode 100644 vendors/ott/tests/menhir_tests/test10menhir/test10menhir.ott create mode 100644 vendors/ott/tests/menhir_tests/test10menhir_with_aux/Makefile create mode 100644 vendors/ott/tests/menhir_tests/test10menhir_with_aux/PPrintCombinators.ml create mode 100644 vendors/ott/tests/menhir_tests/test10menhir_with_aux/PPrintCombinators.mli create mode 100644 vendors/ott/tests/menhir_tests/test10menhir_with_aux/PPrintEngine.ml create mode 100644 vendors/ott/tests/menhir_tests/test10menhir_with_aux/PPrintEngine.mli create mode 100644 vendors/ott/tests/menhir_tests/test10menhir_with_aux/PPrintRenderer.ml create mode 100644 vendors/ott/tests/menhir_tests/test10menhir_with_aux/main.ml create mode 100644 vendors/ott/tests/menhir_tests/test10menhir_with_aux/pprint-master.zip create mode 100644 vendors/ott/tests/menhir_tests/test10menhir_with_aux/test10menhir_with_aux.ott create mode 100644 vendors/ott/tests/menhir_tests/test_if/Makefile create mode 100644 vendors/ott/tests/menhir_tests/test_if/main.ml create mode 100644 vendors/ott/tests/menhir_tests/test_if/test_if.ott create mode 100644 vendors/ott/tests/menhir_tests/test_lists/Makefile create mode 100644 vendors/ott/tests/menhir_tests/test_lists/main.ml create mode 100644 vendors/ott/tests/menhir_tests/test_lists/test_lists.ott create mode 100644 vendors/ott/tests/menhir_tests/test_phantom/Makefile create mode 100644 vendors/ott/tests/menhir_tests/test_phantom/main.ml create mode 100644 vendors/ott/tests/menhir_tests/test_phantom/test_phantom.ott create mode 100644 vendors/ott/tests/non_super_tabular.ott create mode 100644 vendors/ott/tests/squishtex.ott create mode 100644 vendors/ott/tests/test-j.ott create mode 100644 vendors/ott/tests/test-lj-list_ambiguity.ott create mode 100644 vendors/ott/tests/test-mjp-trans.ott create mode 100755 vendors/ott/tests/test-mjp.ott create mode 100644 vendors/ott/tests/test-pottier1.ott create mode 100644 vendors/ott/tests/test1.ott create mode 100644 vendors/ott/tests/test10.0.ott create mode 100644 vendors/ott/tests/test10.2.ott create mode 100644 vendors/ott/tests/test10.4.ott create mode 100644 vendors/ott/tests/test10.7.ott create mode 100644 vendors/ott/tests/test10.ott create mode 100644 vendors/ott/tests/test10_homs.ott create mode 100644 vendors/ott/tests/test10_isasyn.ott create mode 100644 vendors/ott/tests/test10_twf.ott create mode 100644 vendors/ott/tests/test10literate/Makefile create mode 100644 vendors/ott/tests/test10literate/README create mode 100644 vendors/ott/tests/test10literate/test10-wrapper.tex create mode 100644 vendors/ott/tests/test10literate/test10.ott create mode 100644 vendors/ott/tests/test10rdx.ott create mode 100644 vendors/ott/tests/test10st.ott create mode 100644 vendors/ott/tests/test10st_codegen.thy create mode 100644 vendors/ott/tests/test10st_fe.ott create mode 100644 vendors/ott/tests/test10st_first_half.ott create mode 100644 vendors/ott/tests/test10st_metatheoryScript.sml create mode 100644 vendors/ott/tests/test10st_metatheory_autoed.thy create mode 100644 vendors/ott/tests/test10st_snapshot_out.thy create mode 100644 vendors/ott/tests/test10typing_minimal.ott create mode 100644 vendors/ott/tests/test11.ott create mode 100644 vendors/ott/tests/test12.ott create mode 100644 vendors/ott/tests/test13.ott create mode 100644 vendors/ott/tests/test13b.ott create mode 100644 vendors/ott/tests/test13d.ott create mode 100644 vendors/ott/tests/test14.ott create mode 100644 vendors/ott/tests/test15.0.ott create mode 100644 vendors/ott/tests/test15.1.ott create mode 100644 vendors/ott/tests/test15.2.ott create mode 100644 vendors/ott/tests/test15.3.ott create mode 100644 vendors/ott/tests/test15.4.ott create mode 100644 vendors/ott/tests/test15.4b.ott create mode 100644 vendors/ott/tests/test15.4c.ott create mode 100644 vendors/ott/tests/test15.4d.ott create mode 100644 vendors/ott/tests/test15.5.ott create mode 100644 vendors/ott/tests/test15.6.ott create mode 100644 vendors/ott/tests/test15.7.ott create mode 100644 vendors/ott/tests/test16.0.ott create mode 100644 vendors/ott/tests/test16.1.ott create mode 100644 vendors/ott/tests/test16.2.ott create mode 100644 vendors/ott/tests/test16.3.ott create mode 100644 vendors/ott/tests/test16.4.ott create mode 100644 vendors/ott/tests/test16.5.ott create mode 100644 vendors/ott/tests/test16.6.ott create mode 100644 vendors/ott/tests/test17.0.ott create mode 100644 vendors/ott/tests/test17.1.ott create mode 100644 vendors/ott/tests/test17.10.ott create mode 100644 vendors/ott/tests/test17.11.ott create mode 100644 vendors/ott/tests/test17.12.ott create mode 100644 vendors/ott/tests/test17.13.ott create mode 100644 vendors/ott/tests/test17.14.ott create mode 100644 vendors/ott/tests/test17.2.ott create mode 100644 vendors/ott/tests/test17.3.ott create mode 100644 vendors/ott/tests/test17.4.ott create mode 100644 vendors/ott/tests/test17.5.ott create mode 100644 vendors/ott/tests/test17.6.ott create mode 100644 vendors/ott/tests/test17.7.ott create mode 100644 vendors/ott/tests/test17.8.ott create mode 100644 vendors/ott/tests/test17.9.ott create mode 100644 vendors/ott/tests/test18.0.ott create mode 100644 vendors/ott/tests/test18.1.ott create mode 100644 vendors/ott/tests/test18.2.ott create mode 100644 vendors/ott/tests/test19.0.ott create mode 100644 vendors/ott/tests/test2.ott create mode 100644 vendors/ott/tests/test21.1.ott create mode 100644 vendors/ott/tests/test3.ott create mode 100644 vendors/ott/tests/test4.ott create mode 100644 vendors/ott/tests/test5.ott create mode 100644 vendors/ott/tests/test6-tex.ott create mode 100644 vendors/ott/tests/test6.ott create mode 100644 vendors/ott/tests/test7.ott create mode 100644 vendors/ott/tests/test7a.ott create mode 100644 vendors/ott/tests/test7b.ott create mode 100644 vendors/ott/tests/test7t.mng create mode 100644 vendors/ott/tests/test7tt.mng create mode 100644 vendors/ott/tests/test8.ott create mode 100644 vendors/ott/tests/test8p.ott create mode 100644 vendors/ott/tests/test_bind_aux_empty_1.ott create mode 100644 vendors/ott/tests/test_bind_dots_1.ott create mode 100644 vendors/ott/tests/test_bind_isa_1.ott create mode 100644 vendors/ott/tests/test_coq_equality_x_1.ott create mode 100644 vendors/ott/tests/test_defn_repeated_nonterminal_1.ott create mode 100644 vendors/ott/tests/test_embed_location_1.ott create mode 100644 vendors/ott/tests/test_embed_top_1.ott create mode 100644 vendors/ott/tests/test_empty_defn.ott create mode 100644 vendors/ott/tests/test_jan_2006-09-08.ott create mode 100644 vendors/ott/tests/test_lists_1.ott create mode 100644 vendors/ott/tests/test_lists_coq_bind_1.ott create mode 100644 vendors/ott/tests/test_lists_coq_defn_subrule_1.ott create mode 100644 vendors/ott/tests/test_lists_coq_defn_subrule_2.ott create mode 100644 vendors/ott/tests/test_lists_coq_defn_subrule_3.ott create mode 100644 vendors/ott/tests/test_lists_coq_defn_tuple_1.ott create mode 100644 vendors/ott/tests/test_lists_coq_defn_tuple_2.ott create mode 100644 vendors/ott/tests/test_lists_coq_list_functions_1.ott create mode 100644 vendors/ott/tests/test_lists_coq_list_functions_2.ott create mode 100644 vendors/ott/tests/test_lists_coq_list_functions_3.ott create mode 100644 vendors/ott/tests/test_lists_coq_list_functions_4.ott create mode 100644 vendors/ott/tests/test_lists_defn_list_form_1.ott create mode 100644 vendors/ott/tests/test_lists_freevars_1.ott create mode 100644 vendors/ott/tests/test_lists_terminal_1.ott create mode 100644 vendors/ott/tests/test_merge_embed_location_1-1.ott create mode 100644 vendors/ott/tests/test_merge_embed_location_1-2.ott create mode 100644 vendors/ott/tests/test_subrules_1.ott create mode 100644 vendors/ott/tex/Makefile create mode 100644 vendors/ott/tex/README create mode 100644 vendors/ott/tex/empty.ott create mode 100644 vendors/ott/tex/lj.ott create mode 100644 vendors/ott/tex/lj_base.ott create mode 100644 vendors/ott/tex/lj_common.ott create mode 100644 vendors/ott/tex/manual.bib create mode 100644 vendors/ott/tex/manual.tex create mode 100644 vendors/ott/tex/ott_alltt.tex create mode 100644 vendors/ott/tex/ottlayout.sty create mode 100644 vendors/ott/tex/override.tex diff --git a/vendors/ott/.gitignore b/vendors/ott/.gitignore new file mode 100644 index 000000000000..00b97d19723e --- /dev/null +++ b/vendors/ott/.gitignore @@ -0,0 +1,17 @@ +*.cmi +*.cmo +*.cmx +*.o +*.annot +src/ott +grammar_lexer.ml +grammar_lexer.o +grammar_parser.ml +grammar_parser.mli +grammar_parser.output +version.tex +*byte +*opt +bin/ +.depend +ocamlgraph-1.7 diff --git a/vendors/ott/LICENCE b/vendors/ott/LICENCE new file mode 100644 index 000000000000..096b97c0c252 --- /dev/null +++ b/vendors/ott/LICENCE @@ -0,0 +1,30 @@ + Ott + + Peter Sewell, Computer Laboratory, University of Cambridge + Francesco Zappa Nardelli, Moscova project, INRIA Rocquencourt + +Copyright 2005-2011 + +Redistribution and use in source and binary forms, with or without +modification, are permitted provided that the following conditions +are met: +1. Redistributions of source code must retain the above copyright +notice, this list of conditions and the following disclaimer. +2. Redistributions in binary form must reproduce the above copyright +notice, this list of conditions and the following disclaimer in the +documentation and/or other materials provided with the distribution. +3. The names of the authors may not be used to endorse or promote +products derived from this software without specific prior written +permission. + +THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS +OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED +WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY +DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE +GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS +INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER +IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR +OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN +IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. diff --git a/vendors/ott/Makefile b/vendors/ott/Makefile new file mode 100644 index 000000000000..ecf2b11b99e4 --- /dev/null +++ b/vendors/ott/Makefile @@ -0,0 +1,265 @@ +######################################################################### +# Ott # +# # +# Peter Sewell, Computer Laboratory, University of Cambridge # +# Francesco Zappa Nardelli, Moscova project, INRIA Rocquencourt # +# # +# Copyright 2005-2011 # +# # +# Redistribution and use in source and binary forms, with or without # +# modification, are permitted provided that the following conditions # +# are met: # +# 1. Redistributions of source code must retain the above copyright # +# notice, this list of conditions and the following disclaimer. # +# 2. Redistributions in binary form must reproduce the above copyright # +# notice, this list of conditions and the following disclaimer in the # +# documentation and/or other materials provided with the distribution. # +# 3. The names of the authors may not be used to endorse or promote # +# products derived from this software without specific prior written # +# permission. # +# # +# THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS # +# OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED # +# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE # +# ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY # +# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL # +# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE # +# GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS # +# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER # +# IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR # +# OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN # +# IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. # +########################################################################## + +# make world ############################################################# + + + +world: + cd src; $(MAKE) install + +world.byt: + cd src; $(MAKE) install.byt + +# cleanup ################################################################ + +clean: + cd src; $(MAKE) clean + rm -f *~ + +# tests ################################################################## + +LATEX = latex +DVIPS = dvips + +# normal case, e.g. "make tests/test8.out" + +%.out: %.ott + bin/ott \ + -o out.thy -o out.v -o outScript.sml \ + -o out.tex \ + $< \ + && ($(LATEX) out; $(DVIPS) out -o) + +%.tex.out: %.ott + bin/ott \ + -o out.tex \ + $< \ + && ($(LATEX) out; $(DVIPS) out -o) + +%.coq.out: %.ott + bin/ott \ + -o out.v \ + -o out.tex \ + $< \ + && ($(LATEX) out; $(DVIPS) out -o) + +%.hol.out: %.ott + bin/ott \ + -o outScript.sml \ + -o out.tex \ + $< \ + && ($(LATEX) out; $(DVIPS) out -o) + +%.isa.out: %.ott + bin/ott \ + -o out.thy \ + -o out.tex \ + $< \ + && ($(LATEX) out; $(DVIPS) out -o) + +# test10 special cases + +test10: tests/test10.ott + bin/ott \ + -o out.thy -o out.v -o outScript.sml \ + -o out.tex \ + -parse ":user_syntax: :user_syntax__t: :concrete: \x1'.x1'" \ + -parse ":user_syntax: :concrete: \x1'.x1'" \ + -parse ":user_syntax: \x1'.x1'" \ + -parse ":concrete_t:\x1'.x1'" \ + tests/test10.ott \ + && ($(LATEX) out; $(DVIPS) out -o) + +test10st_halves: tests/test10st_first_half.ott tests/test10st_second_half.ott + bin/ott -o out.thy -o out.v -o out.tex \ + -o outScript.sml \ + tests/test10st_first_half.ott \ + tests/test10st_second_half.ott \ + && ($(LATEX) out; $(DVIPS) out -o) + +test10_isasyn: tests/test10_isasyn.ott + bin/ott -colour true -showraw false \ + -o out.thy -o out.v -o out.tex \ + -isa_syntax true \ + -tex_show_meta true \ + tests/test10_isasyn.ott \ + && ($(LATEX) out; $(DVIPS) out -o) + +# test 7 special case - ott as a munger + +test7afilter: tests/test7b.ott tests/test7t.mng + bin/ott -o out.sty \ + -tex_show_meta false \ + -tex_wrap false \ + -tex_name_prefix ott \ + -tex_filter tests/test7t.mng out.tex \ + tests/test7b.ott \ + && ($(LATEX) out; $(DVIPS) out -o) + +# TAPL examples + +SYS_BOOL = \ + examples/tapl/common.ott \ + examples/tapl/bool.ott + +SYS_ARITH = \ + examples/tapl/nat.ott \ + $(SYS_BOOL) + +SYS_UNTYPED = \ + examples/tapl/common.ott \ + examples/tapl/bool.ott + +SYS_PURESIMPLE = \ + examples/tapl/common.ott \ + examples/tapl/common_typing.ott \ + examples/tapl/arrow_typing.ott + +SYS_TYBOOL = \ + examples/tapl/bool.ott \ + examples/tapl/bool_typing.ott \ + $(SYS_PURESIMPLE) + +SYS_SORTOFFULLSIMPLE = \ + examples/tapl/common.ott \ + examples/tapl/common_typing.ott \ + examples/tapl/common_labels.ott \ + examples/tapl/common_index.ott \ + examples/tapl/arrow_typing.ott \ + examples/tapl/basety.ott \ + examples/tapl/bool.ott \ + examples/tapl/bool_typing.ott \ + examples/tapl/nat.ott \ + examples/tapl/nat_typing.ott \ + examples/tapl/unit.ott \ + examples/tapl/seq.ott \ + examples/tapl/ascribe.ott \ + examples/tapl/inert.ott \ + examples/tapl/let.ott \ + examples/tapl/sum.ott \ + examples/tapl/variant.ott \ + examples/tapl/product.ott \ + examples/tapl/tuple.ott \ + examples/tapl/record.ott \ + examples/tapl/fix.ott +# examples/tapl/arrow.ott \ + +SYS_ROUGHLYFULLSIMPLE = \ + examples/tapl/common.ott \ + examples/tapl/common_index.ott \ + examples/tapl/common_labels.ott \ + examples/tapl/common_typing.ott \ + examples/tapl/bool.ott \ + examples/tapl/bool_typing.ott \ + examples/tapl/nat.ott \ + examples/tapl/nat_typing.ott \ + examples/tapl/arrow_typing.ott \ + examples/tapl/basety.ott \ + examples/tapl/unit.ott \ + examples/tapl/seq.ott \ + examples/tapl/ascribe.ott \ + examples/tapl/let.ott \ + examples/tapl/product.ott \ + examples/tapl/sum.ott \ + examples/tapl/fix.ott \ + examples/tapl/tuple.ott \ + examples/tapl/variant.ott +# examples/tapl/record.ott + +SYS_TUPLE = \ + examples/tapl/common.ott \ + examples/tapl/common_typing.ott \ + examples/tapl/common_index.ott \ + examples/tapl/unit.ott \ + examples/tapl/tuple.ott +# examples/tapl/arrow.ott \ + +SYS_PURESUB = \ + examples/tapl/common.ott \ + examples/tapl/common_typing.ott \ + examples/tapl/arrow_typing.ott \ + examples/tapl/sub_arrow.ott \ + examples/tapl/top.ott + +SYS_PURERCDSUB = $(SYS_PURESUB) \ + examples/tapl/common_labels.ott \ + examples/tapl/common_index.ott \ + examples/tapl/record.ott \ + examples/tapl/sub_record.ott + +sys-bool: $(SYS_BOOL) + bin/ott -merge true -tex_show_meta false -o out.tex -o out.v -o out.thy -o outScript.sml $(SYS_BOOL) \ + && ($(LATEX) out; $(DVIPS) out -o) + +sys-arith: $(SYS_ARITH) + bin/ott -merge true -tex_show_meta false -o out.tex -o out.v -o out.thy -o outScript.sml $(SYS_ARITH) \ + && ($(LATEX) out; $(DVIPS) out -o) + +sys-untyped: $(SYS_UNTYPED) + bin/ott -merge true -tex_show_meta false -o out.tex -o out.v -o out.thy -o outScript.sml $(SYS_UNTYPED) \ + && ($(LATEX) out; $(DVIPS) out -o) + +sys-puresimple: $(SYS_PURESIMPLE) + bin/ott -merge true -tex_show_meta false -o out.tex -o out.v -o out.thy -o outScript.sml $(SYS_PURESIMPLE) \ + && ($(LATEX) out; $(DVIPS) out -o) + +sys-tuple: $(SYS_TUPLE) + bin/ott -merge true -tex_show_meta false -o out.tex -o out.v -o out.thy -o outScript.sml $(SYS_TUPLE) \ + && ($(LATEX) out; $(DVIPS) out -o) + +sys-tybool: $(SYS_TYBOOL) + bin/ott -merge true -tex_show_meta false -o out.tex -o out.v -o out.thy -o outScript.sml $(SYS_TYBOOL) \ + && ($(LATEX) out; $(DVIPS) out -o) + +sys-sortoffullsimple: $(SYS_SORTOFFULLSIMPLE) + bin/ott -merge true -tex_show_meta false -o out.tex -o out.v -o out.thy -o outScript.sml $(SYS_SORTOFFULLSIMPLE) \ + && ($(LATEX) out; $(DVIPS) out -o) + +sys-roughlyfullsimple: $(SYS_ROUGHLYFULLSIMPLE) + bin/ott -merge true -tex_show_meta false -o out.tex -o out.v -o out.thy -o outScript.sml $(SYS_ROUGHLYFULLSIMPLE) \ + && ($(LATEX) out; $(DVIPS) out -o) + +sys-puresub: $(SYS_PURESUB) + bin/ott -merge true -tex_show_meta false -o out.tex -o out.v -o out.thy -o outScript.sml $(SYS_PURESUB) \ + && ($(LATEX) out; $(DVIPS) out -o) + +sys-purercdsub: $(SYS_PURERCDSUB) + bin/ott -merge true -tex_show_meta false -o out.tex -o out.v -o out.thy -o outScript.sml $(SYS_PURERCDSUB) \ + && ($(LATEX) out; $(DVIPS) out -o) + +# Jenksin regression + +jenkins: + cd regression; \ + make run-jenkins diff --git a/vendors/ott/README.md b/vendors/ott/README.md new file mode 100644 index 000000000000..f6f738aa1e18 --- /dev/null +++ b/vendors/ott/README.md @@ -0,0 +1,143 @@ +# Ott + +A tool for writing definitions of programming languages and calculi + +by Peter Sewell, Francesco Zappa Nardelli, and Scott Owens. + +## Repository and Package + +Ott is now [available from github](https://github.com/ott-lang/ott), and as +an [opam](https://opam.ocaml.org) package. + +We no longer provide non-github tarballs or a Windows distribution. + + +## Directory contents + +directory | description +----------------------- | ------------------------------------------------- +`aux/` | auxiliary code (y2l) used to build the user guide +`bin/` | the Ott binary +`built_doc/` | the user guide, in html, pdf, and ps +`coq/` | auxiliary files for Coq +`doc/` | the user guide sources +`emacs/` | an Ott Emacs mode +`examples/` | some larger example Ott files +`tex/` | auxiliary files for LaTeX +`hol/` | auxiliary files for HOL +`menhir/` | auxiliary files for menhir +`ocamlgraph-1.7.tar.gz` | a copy of the ocamlgraph library +`regression/` | regression-test machinery +`tests/` | various small example Ott files +`src/` | the (OCaml) Ott sources +`Makefile` | a Makefile for the examples +`LICENCE` | the BSD-style licence terms +`README.md` | this file (Section 2 of the user guide) +`revisionhistory.txt` | the revision history + + + +## To build + +### With OPAM + +If you have [OPAM](https://opam.ocaml.org) installed on your system, +`opam install ott` will install the latest Ott version. The Emacs mode +will be in `` `opam config var prefix`/share/emacs/site-lisp ``, and +documentation in `` `opam config var prefix`/doc/ott ``. + +To install the Ott auxiliary files for Coq, first activate the +`coq-released` OPAM repository: + +`opam repo add coq-released https://coq.inria.fr/opam/released` + +and then run `opam install coq-ott`. + +### Without OPAM + +Ott depends on OCaml version 4.00.0 or later. It builds with (at +least) OCaml 4.02.3. + +The command `make` (`make world`) builds the `ott` binary in the `bin/` subdirectory. + +This will compile Ott using `ocamlopt`. To force it to +compile with `ocamlc` (which may give significantly slower execution +of Ott), do `make world.byt`. + +To build the Ott auxiliary files for Coq, go to the `coq/` subdirectory +and run `make`. To install the resulting files in Coq's `user-contrib`, +run `make install`. + +## To run + +Ott runs as a command-line tool. Executing `bin/ott` shows the +usage and options. To run Ott on the test file +`tests/test10.ott`, generating LaTeX in `test10.tex` and +Coq in `test10.v`, type: + + `bin/ott -i tests/test10.ott -o test10.tex -o test10.v` + +Isabelle, HOL, and Lem can be generated with options `-o test10.thy`, +`-o test10Script.sml`, and `-o test10.lem`, respectively. + +The Makefile has various sample targets, `make tests/test10.out`, +`make test7`, etc. Typically they generate: + +filename | description +---------------- | ---------------------------------- +`out.tex` | LaTeX source for a definition +`out.ps` | the postscript built from that +`out.v` | Coq source +`outScript.sml` | HOL source +`out.thy` | Isabelle source + +from files `test10.ott`, `test8.ott`, etc., in `tests/`. + +## Manual + +* in the [Ott github](https://github.com/ott-lang/ott) built_doc directory, or +* [here (html)](http://www.cl.cam.ac.uk/~pes20/ott/top2.html) + +## Editor Plugins + +### Emacs mode + +The file `emacs/ott-mode.el` defines a very simple Emacs mode for syntax +highlighting of Ott source files. It can be used by, for example, +adding the following to your `.emacs` file, replacing `PATH` by a path to your +Ott Emacs directory. + +```ELisp +(setq load-path (cons (expand-file-name "PATH") load-path)) +(require 'ott-mode) +``` + +For installations using OPAM on \*nix systems, it is sufficient to use the following code, which will call `opam config var prefix` at load-time. + +```ELisp +(setq opam-share (substring (shell-command-to-string "opam config var share") 0 -1)) +(add-to-list 'load-path (concat opam-share "/emacs/site-lisp")) +(require 'ott-mode) +``` + +### Visual Studio Code + +There is a [plugin for VSCode](https://marketplace.visualstudio.com/items?itemName=JoeyEremondi.ott), which features syntax highlighting and inline error reporting. + +## Mailing lists + +* [cl-ott-announce announcement mailing list](https://lists.cam.ac.uk/mailman/listinfo/cl-ott-announce) +* [cl-ott-discuss discussion mailing list](https://lists.cam.ac.uk/mailman/listinfo/cl-ott-discuss) + +## Web page with examples + +* [here](http://www.cl.cam.ac.uk/users/pes20/ott) + +## Copyright information + +The ocamlgraph library is distributed under the LGPL (from +http://www.lri.fr/~filliatr/ftp/ocamlgraph/); we include a snapshot +for convenience. For its authorship and copyright information see the +files therein. + +All other files are distributed under the BSD-style licence in LICENCE. diff --git a/vendors/ott/aux/y2l/0README_FIRST b/vendors/ott/aux/y2l/0README_FIRST new file mode 100644 index 000000000000..327ac24fda50 --- /dev/null +++ b/vendors/ott/aux/y2l/0README_FIRST @@ -0,0 +1,11 @@ +This is y2l 1.0, downloaded from + +http://www.alchar.org/~aedil/Projects/y2l.html#download +http://y2l.sourceforge.net/download/y2l.tar.gz + +by Keith Wansbrough on 2004-08-06. + +It is an external program; don't modify it, just use it. It's here +for our convenience. + + diff --git a/vendors/ott/aux/y2l/Artistic b/vendors/ott/aux/y2l/Artistic new file mode 100644 index 000000000000..4ffc78e97079 --- /dev/null +++ b/vendors/ott/aux/y2l/Artistic @@ -0,0 +1,125 @@ + The "Artistic License" + + Preamble + +The intent of this document is to state the conditions under which a +Package may be copied, such that the Copyright Holder maintains some +semblance of artistic control over the development of the Package, +while giving the users of the package the right to use and distribute +the Package in a more-or-less customary fashion, plus the right to make +reasonable modifications. + +It also grants you the rights to reuse parts of a Package in your own +programs without transferring this License to those programs, provided +that you meet some reasonable requirements. + +Definitions: + + "Package" refers to the collection of files distributed by the + Copyright Holder, and derivatives of that collection of files + created through textual modification. + + "Standard Version" refers to such a Package if it has not been + modified, or has been modified in accordance with the wishes + of the Copyright Holder as specified below. + + "Copyright Holder" is whoever is named in the copyright or + copyrights for the package. + + "You" is you, if you're thinking about copying or distributing + this Package. + + "Reasonable copying fee" is whatever you can justify on the + basis of media cost, duplication charges, time of people involved, + and so on. (You will not be required to justify it to the + Copyright Holder, but only to the computing community at large + as a market that must bear the fee.) + + "Freely Available" means that no fee is charged for the item + itself, though there may be fees involved in handling the item. + It also means that recipients of the item may redistribute it + under the same conditions they received it. + +1. You may make and give away verbatim copies of the source form of the +Standard Version of this Package without restriction, provided that you +duplicate all of the original copyright notices and associated disclaimers. + +2. You may apply bug fixes, portability fixes and other modifications +derived from the Public Domain or from the Copyright Holder. A Package +modified in such a way shall still be considered the Standard Version. + +3. You may otherwise modify your copy of this Package in any way, provided +that you insert a prominent notice in each changed file stating how and +when you changed that file, and provided that you do at least ONE of the +following: + + a) place your modifications in the Public Domain or otherwise make them + Freely Available, such as by posting said modifications to Usenet or + an equivalent medium, or placing the modifications on a major archive + site such as uunet.uu.net, or by allowing the Copyright Holder to include + your modifications in the Standard Version of the Package. + + b) use the modified Package only within your corporation or organization. + + c) rename any non-standard executables so the names do not conflict + with standard executables, which must also be provided, and provide + a separate manual page for each non-standard executable that clearly + documents how it differs from the Standard Version. + + d) make other distribution arrangements with the Copyright Holder. + +4. You may distribute the programs of this Package in object code or +executable form, provided that you do at least ONE of the following: + + a) distribute a Standard Version of the executables and library files, + together with instructions (in the manual page or equivalent) on where + to get the Standard Version. + + b) accompany the distribution with the machine-readable source of + the Package with your modifications. + + c) give non-standard executables non-standard names, and clearly + document the differences in manual pages (or equivalent), together + with instructions on where to get the Standard Version. + + d) make other distribution arrangements with the Copyright Holder. + +5. You may charge a reasonable copying fee for any distribution of this +Package. You may charge any fee you choose for support of this +Package. You may not charge a fee for this Package itself. However, +you may distribute this Package in aggregate with other (possibly +commercial) programs as part of a larger (possibly commercial) software +distribution provided that you do not advertise this Package as a +product of your own. + +6. The scripts and library files supplied as input to or produced as +output from the programs of this Package do not automatically fall +under the copyright of this Package, but belong to whomever generated +them, and may be sold commercially, and may be aggregated with this +Package. If such scripts or library files are aggregated with this +Package via the so-called "undump" or "unexec" methods of producing a +binary executable image, then distribution of such an image shall +neither be construed as a distribution of this Package nor shall it +fall under the restrictions of Paragraphs 3 and 4, provided that you do +not represent such an executable image as a Standard Version of this +Package. + +7. You may reuse parts of this Package in your own programs, provided that +you explicitly state where you got them from, in the source code (and, left +to your courtesy, in the documentation), duplicating all the associated +copyright notices and disclaimers. Besides your changes, if any, must be +clearly marked as such. Parts reused that way will no longer fall under this +license if, and only if, the name of your program(s) have no immediate +connection with the name of the Package itself or its associated programs. +You may then apply whatever restrictions you wish on the reused parts or +choose to place them in the Public Domain--this will apply only within the +context of your package. + +8. The name of the Copyright Holder may not be used to endorse or promote +products derived from this software without specific prior written permission. + +9. THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR +IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED +WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. + + The End diff --git a/vendors/ott/aux/y2l/README b/vendors/ott/aux/y2l/README new file mode 100644 index 000000000000..159a99523e52 --- /dev/null +++ b/vendors/ott/aux/y2l/README @@ -0,0 +1,82 @@ + + Yacc to LaTeX + _________________________________________________________________ + +Contents + + * What is y2l? + * What is the purpose of y2l? + * What about portability? + * Where to download y2l? + * How to use y2l? + + The master copy of this document is available at the following URL: + http://www.alchar.org/~aedil/Projects/y2l.html. + +What is y2l? + + The Yacc to LaTeX utility takes (hopefully) any yacc source file, and + derives an Extended Backus-Naur Form (EBNF) description from it. This + EBNF is written out as LaTeX source. The output is a LaTeX "longtable" + environment, that can be included in any LaTeX document, typically + using an \input{} statement. + +What is the purpose of y2l? + + Questions about the purpose of things are so common, so here is the + answer to this very frequently asked question. When designing Abyss, I + found that I was continuously updating the grammar in two places. The + yacc description was of course the final authority. But I made it a + point to ensure that I would have decent and up-to-date documentation + for the language. Which led to the first incarnation of y2l. + + Then came the well known moment of truth when that first version was + used to try and generate an EBNF description for someone else's + grammar. That failed quite miserably because of implicit dependencies + on the format of the Abyss grammar description. A new y2l was written, + based around a strict yacc source file parser. It is designed to be + able to turn any yacc source file into an EBNF description, yet it + might choke on some Bison source files, because of large liberties the + authors of Bison have taken compared to the "original" yacc. This is + considered to be a "known bug" and might be solved in the future. + +What about portability? + + How portable is this little utility? Well, it's pretty portable in the + sense that is has been written in good ol' AWK! As long as you have a + machine with a sensible AWK (such as Gawk, or the one true AWK on + Brian Kernighan's homepage (http://plan9.bell-labs.com/cm/cs/who/bwk), + it will work. + + You may have to manually update the first line of the y2l script to + point to the proper AWK executable on your system. Not every system + has a sensible AWK as /usr/bin/awk! + +Where to download y2l? + + The latest release of y2l is available here for download + (http://y2l.sourceforge.net/download/y2l.tar.gz). + + The PGP signature for y2l is available at + http://y2l.sourceforge.net/download/y2l.tar.gz.asc. The signing key + can be found at the author's homepage (http://www.alchar.org/~aedil/). + + Anonymous read-only CVS access is available from SourceForge. Follow + these easy steps: + * cvs -d:pserver:anonymous@cvs.y2l.sourceforge.net:/cvsroot/y2l + login + * cvs -d:pserver:anonymous@cvs.y2l.sourceforge.net:/cvsroot/y2l co + y2l + * cvs update + You can use this in the y2l directory any time you wish to update + your local copy against the CVS repository. + +How to use y2l? + + The y2l manual is included in the distribution in Unix manpage format + and as an HTML file. The link in this section will bring you to the + most current HTML version of the y2l manual. + _________________________________________________________________ + + Last modified: Mar 7th, 2000 + ©1995-2000 by Aedil diff --git a/vendors/ott/aux/y2l/y2l b/vendors/ott/aux/y2l/y2l new file mode 100755 index 000000000000..1c24dab2b755 --- /dev/null +++ b/vendors/ott/aux/y2l/y2l @@ -0,0 +1,1151 @@ +#!/usr/bin/awk -f + +############################################################################### +# +# FILE: y2l +# DESCRIPTION: Yacc-to-LaTeX grammar processor +# +# Copyright (c) 1994-2000 by Kris Van Hees, Belgium. All rights reserved. +# See the "Artistic License" included in this package (file: "Artistic") for +# terms and conditions. +# +# $Id: y2l,v 1.4 2004/08/06 18:02:51 fz212 Exp $ +# +############################################################################### + +# +# Reserved variables: +# _debug Debug level +# _exit Exiting due to an error +# _line Current line being processed +# _spclen Length of string holding padding spaces +# _spcstr String to hold padding spaces +# + +############################################################################### +# Support functions +############################################################################### + +# +# NAME: SPACES() +# DESCRIPTION: return a given number of spaces +# +function SPACES(snum) { + if (!_spclen) { # uninitialized (first use) + _spcstr = " "; + _spclen = 1; + } + + while (_spclen < snum) { # extend the string of spaces + _spcstr = _spcstr _spcstr; # double the spaces + _spclen *= 2; # update the string length + } + + return substr(_spcstr, 1, snum); # requested number of spaces +} + +# +# NAME: DBG() +# DESCRIPTION: write debug output to standard error (if debugging is enabled) +# +function DBG(dlvl, dmsg) { + if (!_debug) # debugging is disabled + return; + + print "DBG:" SPACES(dlvl * 2 + 1) dmsg >"/dev/stderr"; +} + +# +# NAME: error() +# DESCRIPTION: write an error message to standard error +# +function error(emsg) { + print "ERROR: " emsg >"/dev/stderr"; + + if (_line) + print " Line is (on or about) " _line >"/dev/stderr"; + + _exit = 1; # mark program as exiting + exit; +} + +# +# NAME: exiting() +# DESCRIPTION: return whether the program is exiting +# +function exiting() { + return _exit; # exit status +} + +# +# NAME: exists() +# DESCRIPTION: return whether a file exists +# +function exists(fname) { + return !system("ls " fname " >/dev/null 2>&1"); +} + +############################################################################### +# Yacc-to-LaTeX initialization +############################################################################### + +# +# NAME: init() +# DESCRIPTION: initialization +# +function init() { + PERC_PERC = 257; + PERC_LACC = 258; + PERC_RACC = 259; + PERC_LEFT = 260; + PERC_ASSC = 261; + PERC_RGHT = 262; + PERC_STRT = 263; + PERC_TOKN = 264; + PERC_TYPE = 265; + PERC_UNIO = 266; + PERC_PREC = 267; + + CHAR = 268; + IDENT = 269; + STRING = 270; + TYPE = 271; + + EOF = -1; + BAD = -2; + + reserved["%%"] = PERC_PERC; + reserved["%{"] = PERC_LACC; + reserved["%}"] = PERC_RACC; + reserved["%left"] = PERC_LEFT; + reserved["%nonassoc"] = PERC_ASSC; + reserved["%right"] = PERC_RGHT; + reserved["%start"] = PERC_STRT; + reserved["%token"] = PERC_TOKN; + reserved["%type"] = PERC_TYPE; + reserved["%union"] = PERC_UNIO; + reserved["%prec"] = PERC_PREC; +} + +############################################################################### +# Yacc-to-LaTeX processor functions +############################################################################### + +# +# NAME: token() +# DESCRIPTION: verify whether something is a valid token +# +function token(tokname) { + return tokname ~ /^[_\.A-Za-z][_\.A-Za-z0-9]*$/; +} + +# +# NAME: read() +# DESCRIPTION: read another (non-blank) line from the input file +# +function read() { + while (getline < grammar_file == 1) { + _line++; + + if ($1 != "") + return; + } + + return grammar_eof = 1; +} + +# +# NAME: skip_ws() +# DESCRIPTION: skip a continuous block of whitespace +# +function skip_ws() { + in_comment = 0; + + while (!grammar_eof) { + sub(/^[ \t]+/, ""); # remove leading whitespace + + if ($1 != "") { + if (/^\/\//) { # C++ comment + $0 = ""; + } else if (in_comment) { # in a comment + if (match($0, /\*\//)) { # end of a comment + $0 = substr($0, RSTART + RLENGTH); + in_comment = 0; + } else + $0 = ""; + } else if (/^\/\*"[^"]+"\*\//) { # special marker + sub(/\/\*"/, "\""); + sub(/"\*\//, "\""); + + return; + } else if (/^\/\*/) { # regular comment + $0 = substr($0, 3); + in_comment = 1; + } else + return; + + sub(/[ \t]+$/, ""); # remove trailing whitespace + } + + if ($1 == "") + read(); + } +} + +# +# NAME: lex() +# DESCRIPTION: read the next token from the input +# +function lex() { + if (tok_prev) { + tok = tok_prev; + tok_str = tok_pstr; + tok_prev = 0; + + return tok; + } + + skip_ws(); + + if (grammar_eof) + return EOF; + + if (/^%/) + if (match($0, /^%(%|{|}|left|nonassoc|right|start|token|type|union)/)) { + tok_str = substr($0, 1, RLENGTH); + $0 = substr($0, RLENGTH + 1); + + return reserved[tok_str]; + } else if (match($0, /^%[_A-Za-z][_A-Za-z0-9]*/)) { + tok_str = substr($0, 1, RLENGTH); + $0 = substr($0, RLENGTH + 1); + + return BAD; + } + + if (match($0, /^[_\.A-Za-z][_\.A-zA-z0-9]*/)) { + tok_str = substr($0, 1, RLENGTH); + $0 = substr($0, RLENGTH + 1); + + return IDENT; + } + + if (match($0, /^<[_\.A-Za-z][_\.A-zA-z0-9]*>/)) { + tok_str = substr($0, 1, RLENGTH); + $0 = substr($0, RLENGTH + 1); + + return TYPE; + } + + if (/^'/) + if (match($0, /^'(.|\\([tnarfbv\\'"]|[0-7][0-7]*))'/)) { + tok_str = "@C" (consts++); + transtab[tok_str] = "\"" substr($0, 2, RLENGTH - 2) "\""; + $0 = substr($0, RLENGTH + 1); + + return CHAR; + } else + error("Excuse me, but this character constant is a bit weird."); + + if (/^"/) + if (match($0, /([^\\]|[ \t]+)(\\\\)*"/)) { + tok_str = "@S" (strings++); + transtab[tok_str] = substr($0, 1, RSTART + RLENGTH - 1); + $0 = substr($0, RSTART + RLENGTH); + + return STRING; + } else + error("Newlines in strings are interesting, but not allowed."); + + tok_str = substr($0, 1, 1); + $0 = substr($0, 2); + + return tok_str; +} + +# +# NAME: unlex() +# DESCRIPTION: return a token to the input stream +# +function unlex(tok) { + tok_prev = tok; + tok_pstr = tok_str; +} + +# +# NAME: skip_definition() +# DESCRIPTION: skip the contents of a %{ ... %} block +# +function skip_definition() { + do { + skip = lex(); + } while (skip != PERC_RACC && skip != EOF); +} + +# +# NAME: decl_token() +# DESCRIPTION: read a token declaration +# +function decl_token() { + first = 1; + + do { + tok = lex(); + + if (tok == ",") { + symbol = 0; + } else if (tok == CHAR) { + DBG(1, transtab[tok_str] ": No need to remember this token."); + } else if (tok == IDENT) { + if (_tkpat && tok_str !~ _tkpat) { + if (transtab[tok_str]) + DBG(2, "WARNING: Redefining '" tok_str "'."); + + transtab[tok_str] = "\"" tolower(tok_str) "\""; + DBG(1, tok_str ": Defined as " transtab[tok_str] "."); + } + + symbol = tok_str; + } else if (tok == NUMBER) { + if (!symbol) + error("How about giving a token first?"); + + symbol = 0; + } else if (tok == STRING) { + if (!symbol) + error("How about giving a token first?"); + + str = transtab[tok_str]; + transtab[symbol] = "\"" substr(str, 2, length(str) - 2) "\""; + DBG(1, SPACES(length(symbol) + 2) \ + "Defined as " transtab[symbol] "."); + + symbol = 0; + } else if (tok == TYPE) { + if (!first) + error("This is no place for a type name."); + } else { + unlex(tok); + return; + } + + first = 0; + } while (tok != EOF); +} + +# +# NAME: decl_start() +# DESCRIPTION: read a start rule declaration +# +function decl_start() { + if (grammar_start) + error("Hm, you want the grammar to start with two rules?"); + else if (lex() == IDENT) { + grammar_start = tok_str; + DBG(2, "The grammar start rule is '" grammar_start "'."); + } else + error("How about a nice juicy identifier?"); +} + +# +# NAME: decl_type() +# DESCRIPTION: read a type declaration +# +function decl_type() { + if (lex() != TYPE) + error("So where is the typename?"); + + do { + tok = lex(); + + if (tok == ",") { + symbol = 0; + } else if (tok == CHAR) { + error("Bison etc may accept literals in a %type declaration, " \ + "but the Unix 7th\n Ed manual clearly indicates " \ + "that it is NOT legal. And I think that the\n Bell " \ + "Labs guys know what they are talking about; but anyway, " \ + "do you\n really spend the time reading this long " \ + "error message?"); + } else if (tok == IDENT) { + if (_tkpat && tok_str !~ _tkpat) { + if (transtab[tok_str]) + DBG(2, "WARNING: Redefining '" tok_str "'."); + + transtab[tok_str] = "\"" tolower(tok_str) "\""; + DBG(1, tok_str ": Defined as " transtab[tok_str] "."); + } + + symbol = tok_str; + } else if (tok == NUMBER) { + if (!symbol) + error("How about giving a token first?"); + + symbol = 0; + } else if (tok == STRING) { + if (!symbol) + error("How about giving a token first?"); + + str = transtab[tok_str]; + transtab[symbol] = "\"" substr(str, 2, length(str) - 2) "\""; + DBG(1, SPACES(length(symbol) + 2) \ + "Defined as " transtab[symbol] "."); + + symbol = 0; + } else { + unlex(tok); + return; + } + } while (tok != EOF); +} + +# +# NAME: decl_union() +# DESCRIPTION: read a union declaration +# +function decl_union() { + if (grammar_union) + error("How about sticking to one single union declaration?"); + + grammar_union = 1; + DBG(2, "Extended types have been registered with a union declaration."); + + do { + tok = lex(); + + if (tok == "{") + block++; + else if (tok == "}") { + if (!block) + error("Why close an unopened block?"); + if (--block <= 0) + return; + } else if (tok == EOF) + error("The file ends before the union is finished. How rude!"); + } while (1); +} + +# +# NAME: read_declarations() +# DESCRIPTION: read the yacc declarations +# +function read_declarations() { + do { + tok = lex(); # next token + + if (tok == PERC_PERC || tok == EOF) # end of the declarations + return; + if (tok == PERC_LACC) { # definition block + skip_definition(); + } else if (tok == PERC_LEFT) { # left associative declaration + decl_token(); + } else if (tok == PERC_ASSC) { # non-associative declaration + decl_token(); + } else if (tok == PERC_RGHT) { # right associative declaration + decl_token(); + } else if (tok == PERC_STRT) { # start rule declaration + decl_start(); + } else if (tok == PERC_TOKN) { # token declaration(s) + decl_token(); + } else if (tok == PERC_TYPE) { # type declaration + decl_type(); + } else if (tok == PERC_UNIO) { # union declaration + decl_union(); + } else + DBG(2, "WARNING: Ignoring the unknown token '" tok_str "'."); + } while (1); +} + +# +# NAME: skip_action() +# DESCRIPTION: skip the contents of an action block +# +function skip_action() { + block = 1; + + do { + tok = lex(); + + if (tok == "{") + block++; + else if (tok == "}") { + if (!block) + error("Why close an unopened block?"); + if (--block <= 0) + return; + } else if (tok == EOF) + error("The file ends before the action is finished. How rude!"); + } while (tok != EOF); +} + +# +# NAME: read_grammar() +# DESCRIPTION: read the yacc grammar +# +function read_grammar() { + tok = lex(); + + do { + if (tok == PERC_PERC || tok == EOF) # end of the grammar + return; + + if (tok == IDENT) { # rule begins here + if (!(rule_idx = rule_ref[tok_str])) { + rule_idx = ++rule_cnt; # new rule + rule_lhs[rule_idx] = tok_str; + rule_ref[tok_str] = rule_idx; + rule_sub = ++rule_len[rule_idx]; + + if (!grammar_start) + grammar_start = tok_str; + } + + if (lex() != ":") + error("The LHS and RHS would like to be separated by a colon."); + } else if (tok == "|") { # alternative RHS for a rule + if (!rule_cnt) + error("The grammar shouldn't start with a |."); + + rule_sub = ++rule_len[rule_idx]; + } else + error("You could at least give a valid token."); + + rule_rhs[rule_cnt] = ""; # empty RHS + + do { # read the RHS + tok = lex(); + + if (tok == PERC_PREC) { # %prec + tok = lex(); + + if (tok != IDENT && tok != CHAR) + error("What precedence are you talking about?"); + + tok = lex(); # continue with the rest + } + + if (tok == IDENT) { # might be a new rule + old_str = tok_str; + nxt = lex(); # look ahead + unlex(nxt); + tok_str = old_str; + + if (nxt == ":") # yup, a new rule started + break; + + rule_rhs[rule_idx, rule_sub] = rule_rhs[rule_idx, rule_sub] \ + " " tok_str; + } else if (tok == CHAR) { + if (tok_str ~ /^@/) + tok_str = transtab[tok_str]; + + rule_rhs[rule_idx, rule_sub] = rule_rhs[rule_idx, rule_sub] \ + " " tok_str; + } else if (tok == "{") { # an action block + skip_action(); + } else # can't be part of a rule + break; + } while (1); + + sub(/^ /, "", rule_rhs[rule_idx, rule_sub]); + + if (rule_rhs[rule_idx, rule_sub] ~ \ + /(^|[^_\.A-Za-z0-9])error($|[^_\.A-Za-z0-9])/) { + DBG(1, rule_lhs[rule_idx] ": " rule_rhs[rule_idx, rule_sub] \ + " [IGNORED]"); + + rule_rhs[rule_idx, rule_sub] = ""; + rule_len[rule_idx]--; + } else + DBG(1, rule_lhs[rule_idx] ": " rule_rhs[rule_idx, rule_sub]); + + if (tok == ";") + tok = lex(); + } while (1); +} + +# +# NAME: is_optional() +# DESCRIPTION: check whether the given non-terminal is optional +# +function is_optional(idx) { + if ((len = rule_len[idx]) <= 1) + return 0; + + # + # One or more empty rules for a non-terminal indicate that the other rules + # are in fact optional. There shouldn't be multiple empty rules, but it is + # is technically possible. + # + for (rule_sub = 1; rule_sub <= len; rule_sub++) + if (rule_rhs[idx, rule_sub] == "") { + while (++rule_sub <= len) + rule_rhs[idx, rule_sub - 1] = rule_rhs[idx, rule_sub]; + + rule_len[idx]--; + } + + return rule_len[idx] < len; +} + +# +# NAME: get_prefix() +# DESCRIPTION: check whether the given non-terminal has a common prefix +# +function get_prefix(idx) { + if ((len = rule_len[idx]) <= 1) + return 0; + + # + # Split up the first rule into tokens. These will be compared with all the + # other rules for this non-terminal. + # + gp_last = split(rule_rhs[idx, 1], arr); + gp_pref = gp_last; + + # + # Look for the longest common prefix. + # + for (rule_sub = 2; rule_sub <= len; rule_sub++) { + $0 = rule_rhs[idx, rule_sub]; + gp_tokc = NF; + + if (gp_tokc < gp_pref) + gp_pref = gp_tokc; + + for (j = 1; j <= gp_pref; j++) + if (arr[j] != $j) { + if (!(gp_pref = j - 1)) + return 0; + + break; + } + } + + # + # Construct the prefix string. + # + gp_pstr = arr[1]; + for (j = 2; j <= gp_pref; j++) + gp_pstr = gp_pstr " " arr[j]; + + # + # Remove the common prefix from all rules for this non-terminal. + # + for (rule_sub = 1; rule_sub <= len; rule_sub++) { + $0 = rule_rhs[idx, rule_sub]; + + for (j = 1; j <= gp_pref; j++) + $j = ""; + + sub(/^ +/, ""); + rule_rhs[idx, rule_sub] = $0; + } + + return gp_pstr; +} + +# +# NAME: get_suffix() +# DESCRIPTION: check whether the given non-terminal has a common suffix +# +function get_suffix(idx) { + if ((len = rule_len[idx]) <= 1) + return 0; + + # + # Split up the first rule into tokens. These will be compared with all the + # other rules for this non-terminal. + # + gs_last = split(rule_rhs[idx, 1], arr); + gs_suff = gs_last; + + # + # Look for the longest common suffix. + # + for (rule_sub = 2; rule_sub <= len; rule_sub++) { + $0 = rule_rhs[idx, rule_sub]; + gs_tokc = NF; + + if (gs_tokc < gs_suff) + gs_suff = gs_tokc; + + for (j = 0; j < gs_suff; j++) + if (arr[gs_last - j] != $(gs_tokc - j)) { + if (!(gs_suff = j)) + return 0; + + break; + } + } + + # + # Construct the suffix string. + # + gs_sstr = arr[gs_last]; + for (j = 1; j < gs_suff; j++) + gs_sstr = arr[gs_last - j] " " gs_sstr; + + # + # Remove the common suffix from all rules for this non-terminal. + # + for (rule_sub = 1; rule_sub <= len; rule_sub++) { + $0 = rule_rhs[idx, rule_sub]; + + for (j = 0; j < gs_suff; j++) + $(NF - j) = ""; + + sub(/ +$/, ""); + rule_rhs[idx, rule_sub] = $0; + } + + return gs_sstr; +} + +# +# NAME: optimize1() +# DESCRIPTION: first pass of the optimizer +# +function optimize1() { + DBG(0, "Optimization pass 1..."); + + for (rule_idx = 1; rule_idx <= rule_cnt; rule_idx++) { + # + # Non-terminals with only a single rule can't be optimized here. + # + if ((len = rule_len[rule_idx]) <= 1) + continue; + + # + # First record whether the entire non-terminal might be optional. + # + rule_opt[rule_idx] = is_optional(rule_idx); + + # + # The actual optimization takes place in this endless loop. It will in + # fact end when an iteration does not yield an optional ruleset. This + # is a proper and correct stop criteria, since a non-optional ruleset + # cannot have any common prefix or suffix. If it did, those would have + # been added to the already present prefix or suffix. + # + pref = ""; + suff = ""; + do { + if (pstr = get_prefix(rule_idx)) + pref = pref " " pstr; + else if (sstr = get_suffix(rule_idx)) + suff = sstr " " suff; + + if (is_optional(rule_idx)) { + pref = pref " ["; + suff = "] " suff; + } else { + if (pstr || sstr) { + pref = pref " ("; + suff = ") " suff; + } + + break; + } + } while (1); + + # + # Compose the single composite rule for this non-terminal, if a common + # prefix or suffix was found. + # + if (pref != "" || suff != "") { + sub(/^ /, "", pref); + sub(/ $/, "", suff); + + DBG(2, "Rules for '" rule_lhs[rule_idx] "' have:"); + + if (pref != "") + DBG(3, "Prefix '" pref "'"); + if (suff != "") + DBG(3, "Suffix '" suff "'"); + + len = rule_len[rule_idx]; + pref = pref " " rule_rhs[rule_idx, 1]; + + for (rule_sub = 2; rule_sub <= len; rule_sub++) + pref = pref " | " rule_rhs[rule_idx, rule_sub]; + + rule_rhs[rule_idx, 1] = pref " " suff; + rule_len[rule_idx] = 1; + + DBG(3, "Combined rule '" rule_rhs[rule_idx, 1] "'"); + + if (rule_opt[rule_idx]) + DBG(3, "(The non-terminal is optional.)"); + } + } +} + +# +# NAME: optimize2() +# DESCRIPTION: second pass of the optimizer +# +function optimize2() { + DBG(0, "Optimization pass 2..."); + + for (rule_idx = 1; rule_idx <= rule_cnt; rule_idx++) { + $0 = rule_rhs[rule_idx, 1]; + + if ((len = rule_len[rule_idx]) > 1) + for (rule_sub = 2; rule_sub <= len; rule_sub++) + $0 = $0 " | " rule_rhs[rule_idx, rule_sub]; + + if ($1 != "[" && rule_opt[rule_idx]) { + $0 = "[ " $0 " ]"; + rule_opt[rule_idx] = 0; + } + + if ($1 == "[") + if ($2 == rule_lhs[rule_idx]) { + for (i = NF; i > 0; i--) + if ($i == "]") + break; + + if ((NF - i) < 3) { + $1 = ""; + subst = "{"; + $i = "}"; + + while (++i <= NF) + subst = subst " " $i; + + $2 = subst; + + sub(/^ +/, ""); + } + } + + if ($NF == "]") + if ($(NF - 1) == rule_lhs[rule_idx]) { + for (i = 1; i <= NF; i++) + if ($i == "[") + break; + + if (i < 3) { + $i = "{"; + subst = "}"; + $NF = ""; + + while (--i > 0) + subst = $i " " subst; + + $(NF - 1) = subst; + + sub(/ +$/, ""); + } + } + + if (rule_opt[rule_idx]) { + $0 = "[ " $0 " ]"; + rule_opt[rule_idx] = 0; + } + + rule_rhs[rule_idx, 1] = $0; + rule_len[rule_idx] = 1; + } +} + +# +# NAME: latexify() +# DESCRIPTION: make substitutions to ensure that the string is LaTeX ok +# +function latexify(txt) { + gsub(/[{&%}]/, "\\\\&", txt); + gsub(/!/, "!\\@", txt); + gsub(/\|/, "\\textbar{}", txt); + gsub(/\*/, "\\textasteriskcentered{}", txt); + gsub(//, "\\textgreater{}", txt); + gsub(/"[^"]+"/, "\\token{&}", txt); + gsub(/_/, "\\textunderscore{}", txt); + gsub(/\^/, "\\textasciicircum{}", txt); + gsub(/"/, "", txt); + + return txt; +} + +# +# NAME: break_string() +# DESCRIPTION: possibly break up a string in multiple lines +# +function break_string(str) { + match(str, /^([_A-Za-z][_A-Za-z0-9]* +| +)(::=|\|)/); + bs_len = RLENGTH; + bs_str = substr(str, 1, RLENGTH); + bs_pln = RLENGTH; + bs_pre = SPACES(RLENGTH); + + $0 = substr(str, RLENGTH + 2); + for (i = 1; i <= NF; i++) { + if (bs_len + 1 + length($i) > 79) { + bs_str = bs_str "\n" bs_pre; + bs_len = bs_pln; + } + + bs_str = bs_str " " $i; + bs_len += 1 + length($i); + } + + return bs_str; +} + +# +# NAME: output() +# DESCRIPTION: write out the rewritten rules +# +function output(LaTeX) { + rule_use[grammar_start] = 1; + + for (rule_idx = 1; rule_idx <= rule_cnt; rule_idx++) { + len = rule_len[rule_idx]; + + if (rule_opt[rule_idx]) { + rule_rhs[rule_idx, 1] = "[ " rule_rhs[rule_idx, 1]; + rule_rhs[rule_idx, len] = rule_rhs[rule_idx, len] " ]"; + } + + str = LaTeX ? latexify(rule_lhs[rule_idx]) \ + : rule_lhs[rule_idx]; + + if (length(str) > rule_max) { + rule_max = length(str); + rule_mls = str; + } + + for (rule_sub = 1; rule_sub <= len; rule_sub++) { + $0 = rule_rhs[rule_idx, rule_sub]; + + for (j = 1; j <= NF; j++) { + # + # A couple of notes here... Non-terminals that merely have a + # single terminal as definition are substituted anywhere they + # are used. And some special casing is needed for situations + # where someone actually defines the non-terminals as tokens. + # Those should definitely not be quotated. + # + if ((idx = rule_ref[$j]) && + rule_len[$j] == 1 && rule_rhs[idx, 1] ~ /^[^ ]+$/) + $j = rule_rhs[idx, 1]; + else if ((str = transtab[$j]) && !rule_ref[$j]) + $j = str; + + rule_use[$j] = 1; + } + + rule_rhs[rule_idx, rule_sub] = $0; + } + } + + if (LaTeX) + # + # Some LaTeX magic... We calculate the available size for the RHS of + # the rules. This will be provided as argument to the minipages used + # for each independent rule. + # + # The formula is fairly easy: + # textwidth - width(LHS) - width("::=") - 6 * tabcolsep + # + print "\\settowidth\\rulelhs{" rule_mls "}\n" \ + "\\settowidth\\rulemid{::=}\n" \ + "\\setlength\\rulerhs{\\textwidth}\n" \ + "\\addtolength\\rulerhs{-\\rulelhs}\n" \ + "\\addtolength\\rulerhs{-\\rulemid}\n" \ + "\\addtolength\\rulerhs{-6\\tabcolsep}\n\n" \ + "\\addtolength\\rulerhs{-5.5em}\n\n" \ + "\\begin{longtable}{lrl}"; + + for (rule_idx = 1; rule_idx <= rule_cnt; rule_idx++) { + if (!rule_use[rule_lhs[rule_idx]]) + continue; + + len = rule_len[rule_idx]; + + for (rule_sub = 1; rule_sub <= len; rule_sub++) { + if (LaTeX) { + str = latexify(rule_lhs[rule_idx]); + out = str SPACES(rule_max - length(str)) " & ::= &\n" \ + " \\begin{minipage}[t]{\\rulerhs}\n" \ + " \\raggedright\n "; + } else { + str = rule_lhs[rule_idx]; + out = str SPACES(rule_max - length(str)) " ::= "; + } + + rhs = rule_rhs[rule_idx, rule_sub]; + lvl = 0; + + while (match(rhs, /(^[\(\{\[] | [\(\{\[\|\]\}\)] | [\]\}\)]$)/)) { + o_beg = RSTART; + o_len = RLENGTH; + + if (substr(rhs, o_beg) ~ /(^[\(\{\[] | [\(\{\[] )/) { + lvl++; + + str = LaTeX ? latexify(substr(rhs, 1, o_beg + o_len - 1)) \ + : substr(rhs, 1, o_beg + o_len - 1); + + out = out str; + rhs = substr(rhs, o_beg + o_len); + } else if (substr(rhs, o_beg) ~ /( [\]\}\)] | [\]\}\)]$)/) { + lvl--; + + str = LaTeX ? latexify(substr(rhs, 1, o_beg + o_len - 1)) \ + : substr(rhs, 1, o_beg + o_len - 1); + + out = out str; + rhs = substr(rhs, o_beg + o_len); + } else if (substr(rhs, o_beg + 1, 1) == "|") { + if (lvl) { + out = out substr(rhs, 1, o_beg + o_len - 1); + rhs = substr(rhs, o_beg + o_len); + } else { + if (LaTeX) { + str = latexify(substr(rhs, 1, o_beg - 1)); + + print out str \ + SPACES(64 - rule_max - length(str)) "\n" \ + " \\end{minipage}" SPACES(60) " \\\\"; + + out = SPACES(rule_max) " & $|$ &\n" \ + " \\begin{minipage}[t]{\\rulerhs}\n" \ + " \\raggedright\n "; + } else { + print break_string(out substr(rhs, 1, o_beg - 1)); + + out = SPACES(rule_max + 1) " | "; + } + + rhs = substr(rhs, o_beg + o_len); + } + } + } + + if (LaTeX) { + str = latexify(rhs); + + print out str SPACES(76 - length(out) - length(str)) "\n" \ + " \\end{minipage}" SPACES(60) " \\\\"; + } else + print break_string(out rhs); + } + } + + if (LaTeX) + print "\\end{longtable}"; +} + +# +# NAME: process() +# DESCRIPTION: process a given yacc grammar definition file +# +function process(grammar_file) { + if (!exists(grammar_file)) + error("So where exactly is this file?"); + + DBG(0, "Reading grammar from '" grammar_file "'."); + + read_declarations(); + read_grammar(); + + if (_optim >= 1) + optimize1(); + if (_optim >= 2) + optimize2(); + + output(!_plain); +} + +# +# NAME: load_tokens() +# DESCRIPTION: load a list of literal tokens from a file +# +function load_tokens(file) { + while (getline < file == 1) + transtab[$1] = "\"" $2 "\""; + + close(file); +} + +# +# NAME: give_help() +# DISCRIPTION: offer some help to the poor user +# +function give_help() { + print "Usage: y2l -- [options] yacc-file\n" \ + "Options:\n" \ + " -d\n" \ + "\tWrite debugging output to the standard error stream. One can\n"\ + "\tsupply a numeric argument to this option to set an indentation\n"\ + "\tlevel for the messages.\n" \ + " -h\n" \ + "\tDisplay this help information.\n" \ + " -O, -O[012]\n"u \ + "\tOptimize the grammar to get more typical EBNF. If no argument\n"\ + "\tis provided, the highest optimization level is selected.\n" \ + " -p\n" \ + "\tGive basic ASCII output rather than LaTeX output.\n" \ + " -t/regexp/, -tfile\n" \ + "\tIn the first form, the regular expression is used to decide\n" \ + "\twhether a terminal in the grammar is a real token or rather a\n" \ + "\tliteral. The second variant specifies a file which contains\n" \ + "\tlines listing a token and the literal it represents.\n" \ + " -v\n" \ + "\tPrint out version information."; + exit; +} + +# +# All processing is done from the BEGIN block. The one and only mandatory +# argument to the program is passed on to the grammar processor. +# +BEGIN { + _debug = 0; # no debugging + _optim = 0; # no optimization + _plain = 0; # no plain output + _tkpat = 0; # no token pattern + + _bannr = "Yacc-to-LaTeX grammar processor v1.0"; + + for (i = 1; i < ARGC; i++) # loop over all arguments + if (ARGV[i] ~ /^-d$/) # debugging + _debug = 1; + else if (ARGV[i] ~ /^-h$/) # help the user + give_help(); + else if (ARGV[i] ~ /^-O([012]|$)/) # optimization level + if (length(ARGV[i]) > 2) + _optim = substr(ARGV[i], 3, 1); + else + _optim = 1; # default optimization level + else if (ARGV[i] ~ /^-p$/) # non-LaTeX output + _plain = 1; + else if (ARGV[i] ~ /^-t/) # regexp or file for tokens + if (ARGV[i] ~ /^-t(\/\^|\/)[_\.A-Za-z][_\.A-zA-z0-9]*(\/|\$\/)$/) { + l = length(ARGV[i]); + _tkpat = substr(ARGV[i], 4, l - 4); + } else if (exists(file = substr(ARGV[i], 3))) + load_tokens(file); + else + error("So where is the token regexp pattern or file?"); + else if (ARGV[i] ~ /^-v$/) # version + print _bannr >"/dev/stderr"; + else if (ARGV[i] ~ /^-/) # unknown option + error("Am I supposed to do something with '" ARGV[i] "'?"); + else if (grammar_file) # more than one grammar + error("How about just processing one grammar at a time?"); + else + grammar_file = ARGV[i]; # name of the grammar file + + if (!grammar_file) # no grammar file provided + error("Any particular grammar you have in mind?"); + + init(); # initialization + + process(grammar_file) # process the given grammar + + exit; +} diff --git a/vendors/ott/aux/y2l/y2l.man b/vendors/ott/aux/y2l/y2l.man new file mode 100644 index 000000000000..d5702dafe523 --- /dev/null +++ b/vendors/ott/aux/y2l/y2l.man @@ -0,0 +1,75 @@ +.\" +.\" Copyright (c) 1994-2000 by Kris Van Hees, Belgium. All rights reserved. +.\" See the "Artistic License" included in this package (file: "Artistic") for +.\" terms and conditions. +.\" +.\" $Id: y2l.man,v 1.1 2004/08/06 10:59:29 kw217 Exp $ +.\" +.TH y2l 1 "Aedil's Utilities" "ASI" +.SH NAME +y2l \- Yacc to LaTeX grammar pretty printer +.SH SYNOPSIS +\fBy2l\fP [\fB\-\-\fP options] \fIfile\fP +.br +Options: +.br +[-d] [-h] [-O] [-O{0,1,2}] [-p] [-t{regexp,file}] [-v] +.SH DESCRIPTION +This utility takes a +.IR yacc (1) +grammar description file and generates an EBNF (Extended Backus-Naur Form) +grammar from it. By default, the output will be a +.IR LaTeX (1) +longtable environment, that can be \\input{} into any LaTeX document. Automatic +substitution of symbolic terminals can also be taken care of. Options control +whether any optimization should be done on the grammar, and whether plain ASCII +output should be generated instead. +.SH OPTIONS +.TP +.I \-d +Write out debugging information to standard error. +.TP +.I \-h +Display a short usage summary on standard output and exit. +.TP +.I \-O +Optimize the yacc grammar. This basic optimization will look for empty rules to +make non-terminals optional. It also recursively generates choice groups and +optional groups and elements based on common prefix and suffix token lists. +.TP +.I \-O0 +Turn off optimization. +.TP +.I \-O1 +This gives the same optimization as the regular +.I \-O +option. +.TP +.I \-O2 +Do basic optimization. In addition, multiple rules for the same non-terminal +are combined as a choice group. Rules that were optimized by the first phase +as optional non-terminals are converted into repetitive rules if possible. +.TP +.I \-p +Generate plain ASCII output rather than LaTeX output. +.TP +.IR \-t regexp +Use the provided regular expression to determine whether a terminal is a lexical +token rather than a literal. This is useful for grammars where literal tokens +represent string literals that differ only in that the string literals are all +lowercase versions of the token. Since this is a fairly common practise in yacc +grammars, this option ha sbeen provided. +.TP +.IR \-t file +Use the provided file as a mapping between literal tokens and the literal +strings they represent. Each line in the file should contain two identifiers: +the first one is the lexical token, and the second one is the literal string it +represents. +.TP +.I \-v +Display the program version information on standard error prior to doing any +processing. +.SH BUGS +While no known bugs seem to exist, there are probably quite a few unknown bugs. +.SH AUTHOR +Kris Van Hees diff --git a/vendors/ott/aux/y2l/y2lman.html b/vendors/ott/aux/y2l/y2lman.html new file mode 100644 index 000000000000..a0301a6ceaba --- /dev/null +++ b/vendors/ott/aux/y2l/y2lman.html @@ -0,0 +1,103 @@ + + + + + + y2l (1) + + +

NAME

+y2l - Yacc to LaTeX grammar pretty printer + +

SYNOPSIS

+ +y2l [-- options] file
+Options:
+[-d] [-h] [-O] [-O{0,1,2}] [-p] [-t{regexp,file}] [-v] + + +

DESCRIPTION

+This utility takes a +yacc(1) +grammar description file and generates an EBNF (Extended Backus-Naur Form) +grammar from it. By default, the output will be a +LaTeX(1) +longtable environment, that can be \input{} into any LaTeX document. Automatic +substitution of symbolic terminals can also be taken care of. Options control +whether any optimization should be done on the grammar, and whether plain ASCII +output should be generated instead. + +

OPTIONS

+
+
+-d +
+Write out debugging information to standard error. +
+-h +
+Display a short usage summary on standard output and exit. +
+-O +
+Optimize the yacc grammar. This basic optimization will look for empty rules to +make non-terminals optional. It also recursively generates choice groups and +optional groups and elements based on common prefix and suffix token lists. +
+-O0 +
+Turn off optimization. +
+-O1 +
+This gives the same optimization as the regular +-O +option. +
+-O2 +
+Do basic optimization. In addition, multiple rules for the same non-terminal +are combined as a choice group. Rules that were optimized by the first phase +as optional non-terminals are converted into repetitive rules if possible. +
+-p +
+Generate plain ASCII output rather than LaTeX output. +
+-tregexp +
+Use the provided regular expression to determine whether a terminal is a lexical +token rather than a literal. This is useful for grammars where literal tokens +represent string literals that differ only in that the string literals are all +lowercase versions of the token. Since this is a fairly common practise in yacc +grammars, this option ha sbeen provided. +
+-tfile +
+Use the provided file as a mapping between literal tokens and the literal +strings they represent. Each line in the file should contain two identifiers: +the first one is the lexical token, and the second one is the literal string it +represents. +
+-v +
+Display the program version information on standard error prior to doing any +processing. +
+ +

BUGS

+While no known bugs seem to exist, there are probably quite a few unknown bugs. + +

AUTHOR

+Kris Van Hees <aedil@alchar.org> + +

+ Copyright © 19994-2000 Kris Van Hees. All rights reserved. + + diff --git a/vendors/ott/built_doc/top2.html b/vendors/ott/built_doc/top2.html new file mode 100644 index 000000000000..269633e5bf01 --- /dev/null +++ b/vendors/ott/built_doc/top2.html @@ -0,0 +1,3297 @@ + + + +Ott: Tool Support for +Semantics +User Guide + version 0.28 + + + + + + + + + + +

Ott: Tool Support for +Semantics
+User Guide
+ version 0.28 +

Peter Sewell*     Francesco Zappa Nardelli**     Scott Owens *
+with Gilles Peskine*, Tom +Ridge*,
+Susmit Sarkar*, and Rok Strniša*
+ *University of Cambridge     **INRIA

+

Contents

+

1  Introduction

Ott is a tool for writing definitions of programming languages and +calculi. +It takes as input a definition of a language syntax and semantics, in +a concise and readable ASCII notation that is close to what one would +write in informal mathematics. It generates output: +

  1. +a LaTeX source file that defines commands to build a typeset version of +the definition; +
  2. a Coq version of the definition; +
  3. a HOL version of the definition; +
  4. an Isabelle/HOL version of the definition; +
  5. a Lem version of the definition; +
  6. an OCaml version of the syntax of the definition. +

+Additionally, it can be run as a filter, taking a +LaTeX/Coq/Isabelle/HOL/Lem/OCaml source file +with embedded (symbolic) terms of the defined language, parsing them and replacing +them by typeset terms.

This document is a user guide for the tool. The papers +

+give an overview of the project, including discussion of motivation, +design decisions, and related work, and one should look at that together +with this manual. The project web page +

+http://www.cl.cam.ac.uk/users/pes20/ott/ +

+links to the github source repository, with a +BSD-style licence. It also has a range of examples, including +untyped and simply typed CBV lambda calculus, ML polymorphism, various +first-order systems from Pierce’s TAPL [Pie02], the +POPLmark F<: language [ABF+05], a module system by +Leroy [Ler96, §4] (extended with a term language and an +operational semantics), the LJ Java fragment and LJAM Java module +system [SSP07], and a substantial fragment of OCaml.

Our main goal is to support work on large programming language +definitions, where the scale makes it hard to keep a definition +internally consistent, and hard to keep a tight correspondence between a +definition and implementations. +We also wish to ease rapid prototyping work with smaller calculi, +and to make it easier to exchange definitions and definition fragments +between groups. +Most simply, the tool can be used to aid completely informal LaTeX mathematics. +Here it permits the definition, and terms within proofs and +exposition, to be written in a clear, editable, ASCII notation, without LaTeX +noise. It generates good-quality typeset output. +By parsing (and so sort-checking) this input, it quickly catches a +range of simple errors, e.g. inconsistent use of judgement forms or +metavariable naming conventions. +That same input, extended with some additional data, can be used to generate formal definitions for +Coq, HOL, Isabelle, and Lem. It should thereby enable a smooth transition +between use of informal and formal mathematics. Further, the +tool can automatically generate definitions of functions for free +variables, single and multiple substitutions, subgrammar checks +(e.g. for value subgrammars), and binding auxiliary functions. +Ott supports a ‘fully concrete’ representation, sufficient +for many examples but not dealing with general alpha equivalence. +An experimental Coq backend generates definitions in locally-nameless style for a subset of the Ott metalanguage. +The OCaml backend +generates type definitions that may be useful for developing a complete +implementation of the language, together with the functions listed +above. It does not generate anything for inductively defined relations +(the various proof-assistant code extraction facilities can +sometimes be used for that). +Our focus here is on the problem of writing and editing language +definitions, not (directly) on aiding mechanized proof of metatheory. If one +is involved in hard proofs about a relatively stable small calculus +then it will aid only a small part of the work (and one might choose +instead to work just within a single proof assistant), but for larger +languages the definition is a more substantial problem — so much so +that only a handful of full-scale languages have been given complete definitions. We +aim to make this more commonplace, less of a heroic task.

+

2  Getting started with Ott (the README)

A tool for writing definitions of programming languages and calculi

by Peter Sewell, Francesco Zappa Nardelli, and Scott Owens.

+

2.1  Repository and Package

Ott is now available from +github, and as an opam package.

We no longer provide non-github tarballs or a Windows distribution.

+

2.2  Directory contents

ll + +

+ + + + + + + + + + + + + + + + + + + +
directorydescription
aux/auxiliary code (y2l) used to build the user guide
bin/the Ott binary
built_doc/the user guide, in html, pdf, and ps
coq/auxiliary files for Coq
doc/the user guide sources
emacs/an Ott Emacs mode
examples/some larger example Ott files
tex/auxiliary files for LaTeX
hol/auxiliary files for HOL
menhir/auxiliary files for menhir
ocamlgraph-1.7.tar.gza copy of the ocamlgraph library
regression/regression-test machinery
tests/various small example Ott files
src/the (OCaml) Ott sources
Makefilea Makefile for the examples
LICENCEthe BSD-style licence terms
README.mdthis file (Section 2 of the user guide)
revisionhistory.txtthe revision history
+

2.3  To build

+

2.3.1  With OPAM

If you have OPAM installed on your +system, opam install ott will install the latest Ott version. +The Emacs mode will be in +‘opam config var prefix‘/share/emacs/site-lisp, and +documentation in ‘opam config var prefix‘/doc/ott.

To install the Ott auxiliary files for Coq, first activate the +coq-released OPAM repository:

opam repo add coq-released https://coq.inria.fr/opam/released

and then run opam install coq-ott.

+

2.3.2  Without OPAM

Ott depends on OCaml version 4.00.0 or later. It builds with (at least) +OCaml 4.02.3.

The command make (make world) builds the ott +binary in the bin/ subdirectory.

This will compile Ott using ocamlopt. To force it to compile +with ocamlc (which may give significantly slower execution of +Ott), do make world.byt.

To build the Ott auxiliary files for Coq, go to the coq/ +subdirectory and run make. To install the resulting files in +Coq’s user-contrib, run make install.

+

2.4  To run

Ott runs as a command-line tool. Executing bin/ott shows the +usage and options. To run Ott on the test file +tests/test10.ott, generating LaTeX in test10.tex and +Coq in test10.v, type:

bin/ott -i tests/test10.ott -o test10.tex -o test10.v

Isabelle, HOL, and Lem can be generated with options +-o test10.thy, -o test10Script.sml, and +-o test10.lem, respectively.

The Makefile has various sample targets, make tests/test10.out, +make test7, etc. Typically they generate:

ll + +

+ + + + + + +
filenamedescription
out.texLaTeX source for a definition
out.psthe postscript built from that
out.vCoq source
outScript.smlHOL source
out.thyIsabelle source

from files test10.ott, test8.ott, etc., in +tests/.

+

2.5  Manual

+

2.6  Editor Plugins

+

2.6.1  Emacs mode

The file emacs/ott-mode.el defines a very simple Emacs mode for +syntax highlighting of Ott source files. It can be used by, for example, +adding the following to your .emacs file, replacing +PATH by a path to your Ott Emacs directory.

(setq load-path (cons (expand-file-name "PATH") load-path))
+(require 'ott-mode)
+

For installations using OPAM on *nix systems, it is sufficient to use +the following code, which will call opam config var prefix at +load-time.

(setq opam-share (substring (shell-command-to-string "opam config var share") 0 -1))
+(add-to-list 'load-path (concat opam-share "/emacs/site-lisp"))
+(require 'ott-mode)
+
+

2.6.2  Visual Studio Code

There is a +plugin +for VSCode, which features syntax highlighting and inline error +reporting.

+

2.7  Mailing lists

+

2.8  Web page with examples

+

2.9  Copyright information

The ocamlgraph library is distributed under the LGPL (from +http://www.lri.fr/∼filliatr/ftp/ocamlgraph/); we include +a snapshot for convenience. For its authorship and copyright information +see the files therein.

All other files are distributed under the BSD-style licence in LICENCE. +

+

3  A minimal Ott source file: the untyped CBV lambda calculus

Fig. 1 shows an Ott source file for an untyped call-by-value +(CBV) lambda calculus. This section explains the basic features that +appear there, while in the following sections we show what must be +added to generate typeset output, proof assistant definitions, and +other things. +

+
+

+% minimal
+metavar termvar, x ::=  
+
+grammar
+t :: ’t_’ ::=              
+  | x            ::  :: Var
+  | \ x . t      ::  :: Lam
+  | t t’         ::  :: App 
+  | ( t )        :: S:: Paren
+  | { t / x } t’ :: M:: Tsub  
+
+v :: ’v_’ ::=              
+  | \ x . t      ::  :: Lam 
+
+subrules
+  v <:: t
+
+defns
+Jop :: ” ::=
+
+ defn
+ t1 –> t2 :: ::reduce::”  by
+
+
+    --------------------------  :: ax_app
+    (\x.t12) v2 –>  {v2/x}t12
+
+    t1 –> t1’
+    -------------- :: ctx_app_fun
+    t1 t –> t1’ t
+
+    t1 –> t1’
+    -------------- :: ctx_app_arg
+    v t1 –> v t1’
+
+ +
+
+
Figure 1: Source: test10.0.ott
+

+The figure is colourised, with Ott keywords like this and Ott +symbols such as | and ::. Other user-specific input +appears like this.

At the top of the figure, the metavar declaration introduces +a sort of metavariables termvar (with synonym x), for term +variables. +The following grammar introduces two grammar rules, one for terms, with +nonterminal root +t, and one for values v. +This specifies the concrete syntax of object-language terms, +the abstract syntax representations for proof-assistant mathematics, +and the syntax of symbolic terms to be used in semantic rules.

Each rule has a rule name prefix (e.g. ’t_’) and then a list +of productions. Each production, e.g. +

+  | \ x . t      ::  :: Lam
+

+specifies a syntactic form as a list of elements, here ‘\’, +‘x’, ‘.’, and ‘t’, each of which is either a +metavariable (the ‘x’), a nonterminal (the ‘t’), or a +terminal +(\ . ( ) { } / -->). +Within productions all elements must be whitespace-separated, so that +the tool can deduce which are terminals. In the symbolic terms in +the semantic rules below, however, whitespace is required only where necessary. +A few terminals have to be quoted (with '') if they appear in a grammar, e.g. to +use | as an object-language token, as they are part of the Ott syntax, but they +do not have to be quoted at usage points. +(If one accidentally omits inter-token whitespace in the grammar, the +output of Ott can be surprising. This is best diagnosed by looking at +the colourised ASCII or LaTeX output from Ott.)

Metavariables and nonterminals can be formed from the specified +metavariable and nonterminal roots by appending a suffix, e.g. the +nonterminal t' in the App and Tsub productions.

Between the ::’s is an optional meta flag M or S. Non-meta +productions give rise to clauses of datatype definitions in the +Isabelle/Coq/HOL output, whereas meta productions do not. Later, we +will see how the user can specify how meta syntax should be translated +away when generating proof assistant output. The two flags M +and S are identical except that productions with the latter are +admitted when parsing example concrete terms; the S tag is thus +appropriate for lightweight syntactic sugar, such as productions for +parentheses. One can also use an X flag here to suppress a +production in the generated LaTeX.

Each production has a production name (e.g. t_Lam), composed of +the rule name prefix (here t_) and the production name kernel +that follows the ::’s (here Lam). The production name is +used as a constructor name in the generated Isabelle/Coq/HOL.

The tool supports arbitrary context-free grammars, extended with +special constructs for list forms (c.f. §12).

Following the grammar in this example is a subrule +declaration +

+  subrules
+    v <:: t
+

+declaring that the v grammar rule (of values) is a +subgrammar of the t rule (of terms). The tool checks that +there is in fact a subgrammar relationship, i.e. that for each +production of the lower rule there exists a production of the higher +rule with corresponding elements (up to the subrule relation). +The subrule declaration means that, in the semantic rules below, we +will be able to use v’s in places where the grammar specifies t’s. +In the generated Isabelle/Coq/HOL for this example only one free +datatype will be generated, for the t rule, while for the v +rule we generate an is_v predicate over the t type. Usages of +v nonterminals in the semantic rules will have instances of this +predicate automatically inserted.

Finally, we give a collection of definitions of inductive relations. +In this example there is just one family of definitions (of +operational judgements), introduced by the defns Jop; it contains just one +definition of a relation, called reduce. +In general there may be many defns blocks, each of which introduces a +mutually recursive collection of defns. +The relation definition +defn ... +also includes a grammar production specifying how elements of the +relation can be written and typeset, here +

  t1 --> t2
+

As in the main grammar, the tokens of this syntax definition in the +header must be space-separated, but usages of the syntax generally +need not be. +Syntax rules for each family of +judgements, and for their union, are implicitly generated. +The relation definition is given by a sequence of inference rules, +each with a horizontal line separating a number of premises from a +conclusion, for example as below. +

+    t1 –> t1’
+    -------------- :: ctx_app_arg
+    v t1 –> v t1’
+

+The conclusion must be a symbolic term of the form of the judgement being +defined. +In simple cases (as here) the premises can be symbolic terms of the +form of any of the defined judgements. More generally (see +§6) they can be symbolic terms of a user-defined +formula grammar, or in-line embedded prover code. +Each rule +has a name, composed of a definition family prefix +(here empty), a definition prefix (here also empty) and a kernel +(the ctx_app_arg). +

The symbolic terms in semantic rules are parsed with a scannerless parser, built +using parser combinators over character-list inputs. The parser +searches for all parses of the input. If none are found, the ASCII +and TeX output are annotated no parses, with a copy of the +input with *** inserted at the point where the last token was +read. This is often at the point of the error (though if, for +example, a putative dot form is read but the two element lists cannot +be anti-unified, it will be after the point of the error). +If multiple parses are found, the TeX output is annotated +multiple parses and the different parses are output to the +console in detail during the Ott run. +If the option picky_multiple_parses is set to +true, multiple parses are always reported. If it set to +false, a symbolic term is considered ambiguous only if two +different parses compile to different strings (for a target). +The parser combinators use memoization and continuation-passing to +achieve reasonable performance on the small symbolic terms that are +typical in semantic rules. Their performance on large (whole-program +size) examples is untested. +To resolve ambiguity one can add metaproductions for parentheses (as +in Fig. 1), or +production-name annotations in particular symbolic terms, +e.g. the :t_tsub: in the AppAbs rule of the POPLmark +example, +test7.ott. There is currently no support for precedence +or associativity.

This file is included in the distribution as +tests/test10.0.ott. It can be processed by executing +

+   bin/ott -i tests/test10.0.ott
+

+from the main directory. This simply reads in the file, checking that +it is well-formed. Adding options: +

+   bin/ott -show_sort true -show_defns true -i tests/test10.0.ott
+

+it echos a colourised version to the screen, +with metavariables in red, nonterminals +in yellow, terminals in green, and object variables in white. +The colourisation uses vt220 control codes; if they do not work on +your screen add -colour false to the middle of the command +line. To suppress the echo of the definition, add +-show_post_sort false and -show_defns false.

+

3.1  Index variables

+In addition to the metavar declarations above, the user can declare any number of distinguished index +metavariables, e.g. by: +

+  indexvar index, i, j, n, m ::= {{ isa num }} {{ coq nat }} {{ hol num }} 
+

+Given such a declaration, index, i, j, n +and m can be used in suffixes, e.g. in the production +

+   |  ( t1 , .... , tn )           :: :: Tuple
+

+There is a fixed ad-hoc language of suffixes, including numbers, primes, and index variables (see §23). +Index metavariables cannot themselves be suffixed.

+

4  Generating LaTeX

The example from the previous section can already be used to generate +LaTeX, for example by executing +

+   bin/ott -i tests/test10.0.ott -o out.tex 
+

+to produce a LaTeX file out.tex. One often needs to +fine-tune the default typesetting, as illustrated in +Figure 2 (the Ott source) and Figure 3 +(the resulting LaTeX). +(The latter was built using the additional option -tex_show_meta false, to +suppress display of the metaproductions.) +

+
+

+% minimal + latex + comments
+metavar termvar, x ::=   
+  {{ tex \mathit{[[termvar]]} }}
+
+grammar
+t :: ’t_’ ::=                               {{ com term    }}
+  | x            ::  :: Var                   {{ com variable}}
+  | \ x . t      ::  :: Lam                   {{ com lambda  }}
+  | t t’         ::  :: App                   {{ com app     }}
+  | ( t )        :: S:: Paren      
+  | { t / x } t’ :: M:: Tsub  
+
+v :: ’v_’ ::=                               {{ com value   }}
+  | \ x . t      ::  :: Lam                   {{ com lambda  }}
+
+terminals :: ’terminals_’ ::=
+  | \            ::  :: lambda  {{ tex \lambda }}
+  | –>          ::  :: red     {{ tex \longrightarrow }}
+
+subrules
+  v <:: t
+
+defns
+Jop :: ” ::=
+
+ defn
+ t1 –> t2 :: ::reduce::” {{ com $[[t1]]$ reduces to $[[t2]]$}} by
+
+
+    --------------------------  :: ax_app
+    (\x.t12) v2 –>  {v2/x}t12
+
+    t1 –> t1’
+    -------------- :: ctx_app_fun
+    t1 t –> t1’ t
+
+    t1 –> t1’
+    -------------- :: ctx_app_arg
+    v t1 –> v t1’
+
+ +
+
+
Figure 2: Source: test10.2.ott
+
+ +
+
Figure 3: Generated LaTeX: test10.2.tex
+

+The source file has three additions to the previous file. +Firstly, the metavar declaration is annotated with a +specification of how metavariables should be translated to LaTeX: +

+  metavar termvar, x ::=   
+    {{ tex \mathit{[[termvar]]} }}
+

+Inside the {{ tex … }} +is some LaTeX code +\mathit{$[[termvar]]$} +giving the translation of a termvar or x. Here they +are typeset in math italic (which in fact is also the default). +Within the translation, the metavariable itself can be mentioned +inside double square brackets [[ … ]].

Secondly, there is a grammar for a distinguished nonterminal root +terminals, with a +{{ tex … }} +translation for each, overriding the default typesetting of some +terminals. Note that the other terminals +(. ( ) { } /) +are still given their default typesetting. +

+  terminals :: ’terminals_’ ::=
+    | \            ::  :: lambda  {{ tex \lambda }}
+    | –>          ::  :: red     {{ tex \longrightarrow }}
+

+Thirdly, the file has com comments, including +the +{{ com term }} +attached to a grammar rule, +the +{{ com variable}} +attached to a production, and the +{{ com [[t1]] reduces to [[t2]]}} +attached to a semantic relation. These appear in the LaTeX output +as shown in Figure 3.

+

4.1  Specifying LaTeX for productions

+One can also specify tex translations for productions, overriding the default +LaTeX typesetting, e.g. as in this example of +a type abstraction production. +

+    |  X <: T . t   :: :: TLam   {{ tex \Lambda [[X]] [[<:]] [[T]]. \, [[t]] }}
+

+These homomorphisms, or homs1, can refer to the metavariables and +nonterminals that occur in the production, e.g. the [[X]], +[[T]], and [[t]] in the tex hom above, +interleaved with arbitrary strings and with typeset elements of the +terminals grammar, e.g. the [[<:]].

Homomorphisms are applied recursively down the structure of symbolic +terms. For example, an F<: term +

  (\X<:T11.t12) [T2]
+

would be LaTeX-pretty-printed, using the tex clause above, as +

( \, \Lambda  \mathit{X} <: \mathit{T_{\mathrm{11}}} . \, \mathit{t_{\mathrm{12}}} \, )
+ \, \, [ \, \mathit{T_{\mathrm{2}}} \, ]
+

which is typeset as below. +

+
+

+Note the X, T11 and t12 of the symbolic term are +used to instantiate the formal parameters X, T and +t of the homomorphism definition clause. +If the t itself had compound term structure, e.g. as below +

  (\X<:T. \X'<:T'.x)
+

the homomorphism would be applied recursively, producing +

( \, \Lambda  \mathit{X} <: \mathit{T} . \,  \Lambda  \mathit{X'} <: \mathit{T'} 
+. \,  \mathit{x} \,  \, )
+

typeset as follows. +

+
+

+Where there is no user-supplied homomorphism clause the LaTeX +pretty-printing defaults to a sequence of the individual items +separated by thin spaces (\,), +with reasonable default fonts and making use of the terminals grammar where appropriate.

+

4.2  Specifying LaTeX for grammar rules

+Grammar rules can include a tex hom specifying how all the +nonterminal roots should be typeset, e.g. +

+  type, t, s :: Typ_ ::=  {{ tex \mathsf{[[type]]} }} 
+        | unit                  ::   :: unit   
+        | type * type’          ::   :: pair   
+        | type -> type’         ::   :: fun    
+

Alternatively, the individual nonterminal roots can have tex +homs specifying how they should be typeset: +

+  G {{ tex \Gamma }} , D {{ tex \Delta }} :: ’G_’ ::= 
+        | empty                 ::   :: empty       
+        | G , x : T             ::   :: term        
+

+permitting the user to write G', D12 etc. in symbolic +terms, to be typeset as + +etc.

+

4.3  Using the LaTeX code

The generated LaTeX code can be used in two main ways. +By default, Ott generates a stand-alone LaTeX file, +with a standard wrapper (including a \documentclass, various +macro definitions, and a main body), +that gives the complete system definition.

The default header can be overridden by writing + embed {{ tex-wrap-pre ... }} and the default footer by +writing embed {{ tex-wrap-post ... }} . Alternatively, the +program option -tex_wrap false with the -tex_wrap false +command-line argument, one can generate a file that can be included in +other LaTeX files, that just defines macros to typeset various +parts of the system (-tex_wrap false overrides any +tex-wrap-pre/tex-wrap-post embeds).

The generated LaTeX output is factored into individual LaTeX +commands: for the metavariable declarations, each rule of the syntax +definition, the collected syntax (\ottgrammar), each rule of the inductive relation +definitions, the collected rules for each relation, the collected +rules for each defns block, the union of those +(\ottdefns) and the whole (\ottall). +This makes it possible to quote individual parts of the definition, +possibly out-of-order, in a paper or technical report.

If one needs to include more than one system in a single LaTeX +document, the ott prefix can be replaced using the +-tex_name_prefix command-line argument.

The generated LaTeX is factored through some common style macros, +e.g. to typeset a comment, a production, and a grammar. If necessary +these can be redefined in an embed block (see Section 8.1). +For example, the file tests/squishtex.ott +

+embed 
+ {{ tex-preamble
+\renewcommand{\[[TEX_NAME_PREFIX]]grammartabular}[1]
+  {\begin{minipage}{\columnwidth}\begin{tabular}{ll}#1\end{tabular}\end{minipage} }
+\renewcommand{\[[TEX_NAME_PREFIX]]rulehead}[3]
+  {$#1$  $#2$ & $#3$}
+\renewcommand{\[[TEX_NAME_PREFIX]]prodline}[6]
+  { \quad $#1$ \ $#2$ & \quad $#3 #4$  $#5$  $#6$}
+\renewcommand{\[[TEX_NAME_PREFIX]]interrule}
+  {\\[2.0mm]}
+ }}
+

+ +defines a more compact style for grammars. Note that the +[[TEX_NAME_PREFIX]] is replaced by whatever prefix is in force, +so such style files can be reused in different contexts.

A more sophisticated LaTeX package ottlayout.sty, providing fine control of how +inference rules and grammars should be typeset, is contained in the +tex directory of the distribution. It is described in the +manual therein.

+

5  Generating proof assistant definitions

To generate proof assistant definitions, for Coq, Isabelle, and HOL, +the minimal Ott source file of Section 3/Figure 1 must +be extended with a modest amount of additional data, as shown in Figure 4. +Executing +

+   bin/ott  -i tests/test10.4.ott  -o out.v  -o out.thy  -o outScript.sml 
+

+generates Coq out.v, Isabelle out.thy, and HOL +outScript.sml, shown in Figures 5, 6, and 7. +The additional data can be combined with the annotations for +LaTeX of the previous section, but those are omitted here. +

+
+

+% minimal                    + binding + subst + coq/hol/isa
+metavar termvar, x ::=  
+{{ isa string}} {{ coq nat}} {{ hol string}} {{ coq-equality }}
+
+grammar
+t :: ’t_’ ::=                               
+  | x            ::  :: Var                  
+  | \ x . t      ::  :: Lam     (+ bind x in t +)
+  | t t’         ::  :: App                  
+  | ( t )        :: S:: Paren   {{ icho [[t]]  }} 
+  | { t / x } t’ :: M:: Tsub    {{ icho (tsubst_t [[t]] [[x]] [[t’]])}}
+
+v :: ’v_’ ::=                              
+  | \ x . t      ::  :: Lam                
+
+subrules
+  v <:: t
+
+substitutions
+  single t x :: tsubst 
+
+defns
+Jop :: ” ::=
+
+ defn
+ t1 –> t2 :: ::reduce::”  by
+
+
+    --------------------------  :: ax_app
+    (\x.t12) v2 –>  {v2/x}t12
+
+    t1 –> t1’
+    -------------- :: ctx_app_fun
+    t1 t –> t1’ t
+
+    t1 –> t1’
+    -------------- :: ctx_app_arg
+    v t1 –> v t1’
+
+ +
+
+
Figure 4: Source: test10.4.ott
+

+We add four things. +First, we specify proof assistant types to represent object-language +variables — in this example, choosing the string type of +Isabelle and HOL, and the nat type for Coq: +

+  metavar termvar, x ::=  
+  {{ isa string}} {{ coq nat}} {{ hol string}} {{ coq-equality }}
+

+For Coq output, one can specify {{ coq-equality proof-script }} +to build a decidable equality over the Coq representation type using +the proof proof-script. If the script is omitted, as in this +example, it defaults +to +

Proof.
+  decide equality; auto with ott_coq_equality arith.
+Defined.
+

where the ott_coq_equality database contains the decidable +equalities of the representation types defined in the source. It is +possible to suppress type generation for specific metavariables or nonterminals, by adding the +declaration {{ phantom }}. This is useful in some cases, for +instance to avoid duplicate definitions of types already defined in an +imported library. Any type homs are taken into account when +the metavariable or nonterminal root is output as a type.

Second, we specify what the binding is in the object language, with +the (+ bind x in t +) +annotation on the Lam production: +

+  | \ x . t      ::  :: Lam     (+ bind x in t +)
+

+Section 9 describes the full language of binding specifications.

Third, we add a block +

+  substitutions
+    single t x :: tsubst 
+

+to cause Ott to generate Coq/Isabelle/HOL definitions of a substitution +function, with name root tsubst, replacing metavariables x by terms t. This is for single +substitutions; multiple substitution functions (taking lists of +substitutand/substitutee pairs) can also be generated with the keyword +multiple. +Substitution functions are generated for all rules of the grammar for +which they might be required — here, just over t, with a +function named tsubst_t.

Finally, we specify translations for the metaproductions: +

+  | ( t )        :: S:: Paren   {{ icho [[t]]  }} 
+  | { t / x } t’ :: M:: Tsub    {{ icho (tsubst_t [[t]] [[x]] [[t’]])}}
+

+These specify that (t) should be translated into just the +translation of t, whereas +{t/x}t’ should be translated into the +proof-assistant application of tsubst_t to the translations +of t, x, and t’. +The (admittedly terse) icho specifies that these translations should be +done uniformly for Isabelle, Coq, HOL, and OCaml output. One can also +specify just one of these, writing +{{ coq …}}, +{{ hol …}}, +{{ isa …}}, or +{{ ocaml …}}, +or include several, with different translations for each. +There are also abbreviated forms ich, ic, ch, and ih. +The body of a proof assistant hom should normally include outer +parentheses, as in the Tsub hom above, so that it is +parsed correctly by the proof assistant in all contexts.

+
+
(* generated by Ott 0.28 from: ../tests/test10.ott ../tests/non_super_tabular.ott *)
+
+Require Import Arith.
+Require Import Bool.
+Require Import List.
+
+
+Definition var := nat. (*r term variable *)
+Lemma eq_var: forall (x y : var), {x = y} + {x <> y}.
+Proof.
+  decide equality; auto with ott_coq_equality arith.
+Defined.
+Hint Resolve eq_var : ott_coq_equality.
+
+Inductive term : Set :=  (*r term *)
+ | t_var (x:var) (*r variable *)
+ | t_lam (x:var) (t:term) (*r lambda *)
+ | t_app (t:term) (t':term) (*r app *).
+
+(** subrules *)
+Definition is_val_of_term (t5:term) : Prop :=
+  match t5 with
+  | (t_var x) => False
+  | (t_lam x t) => (True)
+  | (t_app t t') => False
+end.
+
+(** library functions *)
+Fixpoint list_mem A (eq:forall a b:A,{a=b}+{a<>b}) (x:A) (l:list A) {struct l} : bool :=
+  match l with
+  | nil => false
+  | cons h t => if eq h x then true else list_mem A eq x t
+end.
+Implicit Arguments list_mem.
+
+
+(** substitutions *)
+Fixpoint tsubst_term (t5:term) (x5:var) (t_6:term) {struct t_6} : term :=
+  match t_6 with
+  | (t_var x) => (if eq_var x x5 then t5 else (t_var x))
+  | (t_lam x t) => t_lam x (if list_mem eq_var x5 (cons x nil) then t else (tsubst_term t5 x5 t))
+  | (t_app t t') => t_app (tsubst_term t5 x5 t) (tsubst_term t5 x5 t')
+end.
+
+(** definitions *)
+
+(* defns Jop *)
+Inductive reduce : term -> term -> Prop :=    (* defn reduce *)
+ | ax_app : forall (x:var) (t1 v2:term),
+     is_val_of_term v2 ->
+     reduce (t_app  (t_lam x t1)  v2)  (tsubst_term  v2   x   t1 ) 
+ | ctx_app_fun : forall (t1 t t1':term),
+     reduce t1 t1' ->
+     reduce (t_app t1 t) (t_app t1' t)
+ | ctx_app_arg : forall (v t1 t1':term),
+     is_val_of_term v ->
+     reduce t1 t1' ->
+     reduce (t_app v t1) (t_app v t1').
+
+
+
+
+
+
Figure 5: Generated Coq:test10.v
+
+
+
(* generated by Ott 0.28 from: ../tests/test10.ott ../tests/non_super_tabular.ott *)
+theory test10
+imports Main
+begin
+
+type_synonym "var" = "string" -- {* term variable *}
+datatype "term" =  -- {* term *}
+   t_var "var"   -- {* variable *}
+ | t_lam "var" "term"   -- {* lambda *}
+ | t_app "term" "term"   -- {* app *}
+
+
+(** subrules *)
+primrec
+is_val_of_term :: "term => bool"
+where
+"is_val_of_term (t_var x) = (False)"
+| "is_val_of_term (t_lam x t) = ((True))"
+| "is_val_of_term (t_app t t') = (False)"
+
+
+(** substitutions *)
+primrec
+tsubst_term :: "term => var => term => term"
+where
+"tsubst_term t5 x5 (t_var x) = ((if x=x5 then t5 else (t_var x)))"
+| "tsubst_term t5 x5 (t_lam x t) = (t_lam x (if x5 : set [x] then t else (tsubst_term t5 x5 t)))"
+| "tsubst_term t5 x5 (t_app t t') = (t_app (tsubst_term t5 x5 t) (tsubst_term t5 x5 t'))"
+
+(** definitions *)
+(* defns Jop *)
+inductive reduce :: "term \<Rightarrow> term \<Rightarrow> bool"
+where
+(* defn reduce *)
+
+ax_appI: "\<lbrakk>is_val_of_term v2\<rbrakk> \<Longrightarrow>
+reduce ((t_app  (t_lam x t1)  v2)) ( (tsubst_term  v2   x   t1 ) )"
+
+| ctx_app_funI: "\<lbrakk>reduce (t1) (t1')\<rbrakk> \<Longrightarrow>
+reduce ((t_app t1 t)) ((t_app t1' t))"
+
+| ctx_app_argI: "\<lbrakk>is_val_of_term v ;
+reduce (t1) (t1')\<rbrakk> \<Longrightarrow>
+reduce ((t_app v t1)) ((t_app v t1'))"
+
+end
+
+
+
+
+
+
+
Figure 6: Generated Isabelle:test10.thy
+
+
+
(* generated by Ott 0.28 from: ../tests/test10.ott ../tests/non_super_tabular.ott *)
+(* to compile: Holmake test10Theory.uo   *)
+(* for interactive use:
+  app load ["pred_setTheory","finite_mapTheory","stringTheory","containerTheory","ottLib"];
+*)
+
+open HolKernel boolLib Parse bossLib ottLib;
+infix THEN THENC |-> ## ;
+local open arithmeticTheory stringTheory containerTheory pred_setTheory listTheory 
+  finite_mapTheory in end;
+
+val _ = new_theory "test10";
+
+
+val _ = type_abbrev("var", ``:string``); (* term variable *)
+val _ = Hol_datatype ` 
+term =  (* term *)
+   t_var of var (* variable *)
+ | t_lam of var => term (* lambda *)
+ | t_app of term => term (* app *)
+`;
+
+(** subrules *)
+val _ = ottDefine "is_val_of_term" `
+    ( is_val_of_term (t_var x) = F)
+/\  ( is_val_of_term (t_lam x t) = (T))
+/\  ( is_val_of_term (t_app t t') = F)
+`;
+
+(** substitutions *)
+val _ = ottDefine "tsubst_term" `
+    ( tsubst_term t5 x5 (t_var x) = (if x=x5 then t5 else (t_var x)))
+/\  ( tsubst_term t5 x5 (t_lam x t) = t_lam x (if MEM x5 [x] then t else (tsubst_term t5 x5 t)))
+/\  ( tsubst_term t5 x5 (t_app t t') = t_app (tsubst_term t5 x5 t) (tsubst_term t5 x5 t'))
+`;
+(** definitions *)
+(* defns Jop *)
+
+val (Jop_rules, Jop_ind, Jop_cases) = Hol_reln`
+(* defn reduce *)
+
+( (* ax_app *) ! (x:var) (t1:term) (v2:term) . (clause_name "ax_app") /\
+((is_val_of_term v2))
+ ==> 
+( ( reduce (t_app  (t_lam x t1)  v2)  (tsubst_term  v2   x   t1 )  )))
+
+/\ ( (* ctx_app_fun *) ! (t1:term) (t:term) (t1':term) . (clause_name "ctx_app_fun") /\
+(( ( reduce t1 t1' )))
+ ==> 
+( ( reduce (t_app t1 t) (t_app t1' t) )))
+
+/\ ( (* ctx_app_arg *) ! (v:term) (t1:term) (t1':term) . (clause_name "ctx_app_arg") /\
+((is_val_of_term v) /\
+( ( reduce t1 t1' )))
+ ==> 
+( ( reduce (t_app v t1) (t_app v t1') )))
+
+`;
+
+val _ = export_theory ();
+
+
+
+
+
+
+
Figure 7: Generated HOL:test10Script.sml
+
+

5.1  Proof assistant code for grammar rules

+The normal behaviour is to generate a free proof assistant type for +each (non-subrule, non-phantom) grammar rule. +For example, the Coq compilation for t here generates a free type with three +constructors: +

  Inductive term : Set := 
+   | t_var (x:var)
+   | t_lam (x:var) (t:term)
+   | t_app (t:term) (t':term).
+

(note that the metaproductions do not give rise to constructors).

Remark: prior to version 0.20.2, the free type generated for Coq was +

  Inductive term : Set := 
+   | t_var : var -> term
+   | t_lam : var -> term -> term
+   | t_app : term -> term -> term.
+

but we found that trying to preserve the names specified by the user +is helpful later, when doing proofs. Whenever a clash is detected, or +for list forms, the wildcard _ is used. The old behaviour +can be obtained via the top-level option +-coq_names_in_rules false.

By default the order of the arguments to those constructors follows +the order in which they appear in the production. That can be +overridden with an order hom. For example, if for some +reason (perhaps compatibility with other Coq code) one wished the +arguments to t_Lam to be reversed: +

   | t_Lam : t -> termvar -> t
+

one could add an order hom as below. +

+  | \ x . t      ::  :: Lam  {{ order [[t]] [[x]] }}
+

Instead of using the generated free type, one can specify an arbitrary proof assistant representation type, +annotating the grammar rule with a coq, isa, hol, or ocaml hom — +for example, in the following grammar for substitutions. +

+  s {{ tex \sigma }} :: ’S_’ ::= {{ com multiple subst }} {{ isa (termvar*t) list }}
+       | [ x |-> t ]            ::   :: singleton   {{ isa [ ([[x]],[[t]]) ]  }}
+       | s1 , .. , sn           ::   :: list        {{ isa List.concat [[s1 .. sn]] }}
+

+Here the {{ isa (termvar*t) list }} hom specifies that in +Isabelle output this type be represented as an Isabelle +(termvar*t) list instead of the default free inductive type; +all the productions are metaproductions (tagged M); and isa homs for each production specify how they should be translated into that Isabelle type. +This feature must be used with care, as any Ott-generated functions, e.g. substitution functions, cannot recurse through such user-defined types.

Grammar rules (whether free or non-free) can also include a coq equality hom, instructing +the Coq code generator to derive a decidable equality for the Coq +representation type. For example, the ML polymorphism Ott source of +test8.ott includes the following. +

+  typvar :: TV_ ::= {{ coq-equality decide equality. apply eq_value_name_t. }}
+       | ’ ident                ::   :: ident
+

The Coq/HOL/Isabelle/OCaml type name for a grammar rule, or for a +metavariable declaration, is normally +taken to be just its primary nonterminal root. +Occasionally it is useful to work around a clash between a +metavar or nonterminal primary root and a proof assistant symbol, +e.g. T in HOL or value in Isabelle. +For this, one can add a coq, hol, isa, or +ocaml hom to the primary nonterminal root. In the example +below, the user can write T, T’ etc. in their Ott +source, but the generated HOL type is Typ. +

+T {{ hol Typ }}, S, U :: ’T_’ ::=                    {{ com type  }}
+  | T -> T’                          :: :: Fun          {{ com type of functions }}
+

The grammar rules within each grammar block of a syntax definition may depend on each other arbitrarily. +When generating Isabelle/Coq/HOL/OCaml representation types, however, they are +topologically sorted, to simplify the resulting induction +principles.

+

5.2  Proof assistant code for inductive definitions

+The semantic relations are defined +with the proof-assistant inductive relations packages, +Inductive, Hol_reln, and inductive_set or inductive, respectively. +Each defns block gives rise to a potentially mutually +recursive definition of each defn inside it +(it seems clearer not to do a topological sort here). +Definition rules are expressed internally with symbolic terms. +We give a simplified grammar thereof in Fig. 17, omitting the +symbolic terms for list forms. +A symbolic term st for a nonterminal root is either an explicit nonterminal or a +node, the latter labelled with a production name and containing a list of +symterm_elements, which in turn are either symbolic terms, +metavariables, or variables. +Each definition rule +gives rise to an implicational clause, essentially +that the premises (Ott symbolic terms of the formula grammar) +imply the conclusion (an Ott symbolic term of whichever judgement is +being defined). +Symbolic terms are compiled in several different ways: +

  • +Nodes of non-meta productions are output as applications of the appropriate proof-assistant constructor (and, for a subrule, promoted to the corresponding constructor of a maximal rule). +
  • Nodes of meta productions are transformed with the user-specified homomorphism. +
  • Nodes of judgement forms are represented as applications of the defined relation in Coq and HOL, and as set-membership assertions in Isabelle. +
  • Lists of formulae (the formula_dots production, c.f.§12) are +special-cased to proof-assistant conjunctions. +

+Further, for each nonterminal of a non-free grammar rule, +e.g. a usage of v' where v<::t, an additional premise +invoking the generated subrule predicate for the non-free rule is added, e.g. is_v v'. +For Coq and HOL, explicit quantifiers are introduced for all variables +mentioned in the rule. +For HOL, rules are tagged with their rule name (using clause_name).

+

5.3  Representation of binding

+At present the generated Isabelle/Coq/HOL uses fully concrete +representations of variables in terms, without any notion of alpha +equivalence, as one can see in Fig. 6: +see the t datatype of terms and the tsubst_t +substitution function there. +An experimental Coq backend generates definitions in locally-nameless style for a subset of the Ott metalanguage. This is work-in-progress, and it is extensively documented in http://moscova.inria.fr/ zappa/projects/ln_ott/. +We intend in future to generate other representations, and in some +circumstances homs can be used to implement other representations directly. +For a reasonably wide variety of +languages, however, one can capture the intended semantics of whole programs in +this idiom, subject only to the condition that standard library +identifiers are not shadowed within the program, as the operational +semantics does not involve reduction under binders — so any +substitutions are of terms which (except for standard library +identifiers) are closed. This includes the ML polymorphism example of +test8.ott. For languages which require a type +environment with internal dependencies, however, for example F<:, this is +no longer the case. The POPLmark F<: example given in test7.ott +has a type system which disallows all shadowing, a property that is +not preserved by reduction. However, a correct translation of F<: is generated by the Coq locally-nameless backend, and can be found in http://moscova.inria.fr/ zappa/projects/ln_ott/.

Further discussion of binding representations is in the Ott ICFP 2007 +paper and in a working draft +

Binding and Substitition. Susmit Sarkar, Peter Sewell, and Francesco +Zappa Nardelli. August 2007. +

+available from the Ott web page.

+

5.4  Helper functions for free variable and substitution functions

The generated free variable and substitution functions in the Coq output +(e.g., in Figure 5) often rely on a few standard library functions: +list_mem, list_assoc, list_minus, list_minus2. +In order to avoid dependencies on external libraries for defining those +functions, by default Ott generates the definitions for any such functions it +uses. It is possible to turn off the generation of definitions for +these such functions by writing the following directive early on in the source file: 

+embed {{ coq-lib list_mem list_minus }}
+

This instructs Ott to avoid generating definition for list_mem and +list_minus, but to continue generating definitions for other functions +such as list_assoc and list_minus2.

Note about list_minus2: +Instead of using the function list_minus2, earlier versions of Ott +generated equivalent code based on list_filter, which was more +difficult to reason about. For backwards compatibility, however, we provide the +command-line option -coq_use_filter_fn for generating a definition using +the older code pattern.

+

5.5  Correctness of the generated proof assistant code

+We have attempted to ensure that the proof assistant definitions +generated by Ott are well-formed and what the user would intend. This +is not guaranteed, however, for several reasons: (1) There may be name +clashes between Ott-generated identifiers and proof assistant built-in +identifiers (or, in pathological cases, even among different +Ott-generated identifiers). (2) In some cases we depend on automatic +proof procedures, e.g. for HOL definitions. These work in our test +cases, but it is hard to ensure that they will in all cases. More +importantly, (3) the generation process is complex, so it is quite +possible that there is either a bug in Ott or a mismatch between the +user expectation and what the tool actually does. Ultimately one has +to read the generated proof assistant definitions to check that they +are as intended — but typically one would do this in any case, many +times over, in the process of proving metatheoretic results, so we do +not consider it a major issue.

+

5.6  Using the generated proof assistant code

+Note added 2017-11-30: the following is out of date.

Ott builds code for

+ + +
Coq 8.3http://coq.inria.fr/
HOL 4 (the current svn version)http://hol.sourceforge.net/
Isabelle/HOL (Isabelle 2011)http://isabelle.in.tum.de/

Given proof assistant files in the top-level directory of the +distribution, as produced at the start of this section +(Coq out.v, Isabelle out.thy, and HOL +outScript.sml), the various proof assistants can be invoked as follows.

+

5.6.1  Coq

+First run +

  make
+

in the coq directory of the distribution, to build the auxiliary files. +These include a core file (ott_list_core) of definitions that +are used in Ott-generated output. +At present these are only required when Coq native lists are used. +There are also various lemmas (in +ott_list.v) which may be useful; they can be made available with +Require Import ott_list.

For batch mode run +

  coqc -I coq  out.v
+

where coq is the path to the coq directory of the distribution.

The experimental locally-nameless backend requires the Metatheory library by Arthur Chargueraud, available from the project web page.

+

5.6.2  HOL

+First run +

  Holmake
+

in the hol directory of the distribution, to build the auxiliary files.

For +batch mode run +

  Holmake -I hol  outTheory.uo
+

where hol is the path to the hol directory of the distribution. +For interactive mode, run +

  hol -I hol
+

inside an editor window (where the second hol is again the path +to the hol directory of the distribution), and in +another window view the outScript.sml file. First +paste in the app load command from a comment at the top of the +file, then paste in the remainder.

+

5.6.3  Isabelle

+For batch mode: +

  echo 'ML_command {* (use_thy "Tmp"; OS.Process.exit OS.Process.success) handle e => (OS.Process.exit OS.Process.failure); *}' | /usr/local/Isabelle/bin/isabelle tty 
+

Interactively, using Proof General: +

  isabelle emacs out.thy
+
+

6  Judgments and formulae

In a semantic rule, for example +

+    t1 –> t1’
+    -------------- :: ctx_app_arg
+    v t1 –> v t1’
+

+the conclusion must be a symbolic term of the form of the judgement being +defined, but in general the premises may be symbolic terms +of a formula grammar or in-line embedded prover code. +By default the formula grammar includes all the defined judgement forms: for the +running example Ott will synthesise grammars as below.

The user can also define an explicit formula grammar, to let other +forms (not just judgements) appear as rule premises. Below is a +fragment of the formula grammar from the LJ example on the Ott web page. +

+  formula :: formula_ ::=  
+   |  judgement                       ::   :: judgement
+   |  formula1 .. formulan            ::   :: dots
+   |  not formula                     :: M :: not
+          {{ tex \neg [[formula]] }} 
+          {{ isa \<not> ([[formula]]) }}
+   |  ( formula )                     :: M :: brackets
+          {{ tex ([[formula]]\!) }}  
+          {{ isa [[formula]] }}
+   |  formula \/ formula’             :: M :: or
+          {{ tex [[formula]] \vee [[formula’]] }}
+          {{ isa [[formula]] \<or> [[formula’]] }}
+   |  formula /\ formula’             :: M :: and
+          {{ tex [[formula]] \wedge [[formula’]] }}
+          {{ isa [[formula]] \<and> [[formula’]] }}
+   |  x = x’                          :: M :: xali
+          {{ isa [[x]] = [[x’]] }}
+   |  X = X’                          :: M :: Xali
+          {{ isa [[X]] = [[X’]] }}
+

+This example adds (to the judgement forms) syntax for parenthesised +formulae, negation, and, or, and equality testing on two sorts. For +each, tex and isa homs specify how they should be +typeset and be translated into Isabelle.

If the user defines a formula grammar then (as here) the production +name prefix must be formula_ and the name for the +judgement production must be judgement.

+

6.1  Naming of premises for the Coq backend

+It is possible to specify the names of premises of inductive +predicates; these names are then used by the Coq backend, and are +often useful in proofs. For instance, we can call RED the hypothesis in the rule below +

+    t1 –> t1’  [[:RED]]
+    -------------- :: ctx_app_arg
+    v t1 –> v t1’
+

+which will then generate the following Coq code: +

+| ctx_app_arg : forall (v t1 t1’:term)
+    (RED: reduce t1 t1’),
+    is_val_of_term v ->
+    reduce (t_app v t1) (t_app v t1’).
+

+Names of rules cannot contain spaces or other non alpha-numerical +characters, and must begin with a letter. The name annotation must at +the rightmost place on the hypothesis line, and must be enclosed +(without spaces) between the [[: and ]] parentheses.

+

6.2  In-line embedded prover code in premises

+Instead of adding a formula production, one can directly embed prover +code as a premise, delimited as below by {{ and +}}. Within that, text will be echoed +directly to a prover (or given a default LATEX typesetting) except that symbolic terms enclosed within +[[ and ]] will be processed as in an +embed section. +

+  {{ type_to_chunk ([[typeof e1]]) = Some [[c]] }}
+  ----------------------------------------------------------- :: Assign1
+  e1=e2 . k |env   –tau–>    lval(e1) . [__=c e2] . k |env
+
+

6.3  User syntax

+The tool also synthesises a user_syntax grammar of all the +user syntax, for example:

This is used for parsing top-level strings, for example when filtering +embedded code (§8).

+

7  Concrete terms and OCaml generation

In semantic definitions, one typically never uses concrete variables, +only metavariables that range over them. +In examples, however, one may need either a mix of concrete variables +and metavariables, or, for strictly concrete terms, to restrict to +just the former (and also to prohibit symbolic nonterminals).

Figure 2 combines the LaTeX and proof assistant +annotations of Sections 3 and 4, adding a +{{ lex alphanum}} +hom +to the metavar declaration to specify the lexical form of +concrete variables of this sort. +At present a lex homomorphism must have body either +Alphanum (standing for [A-Z]([A-Z]|[a-z]|[0-9]|'|_)*), +alphanum (for ([A-Z]|[a-z])([A-Z]|[a-z]|[0-9]|'|_)*), +alphanum0 (for [a-z]([A-Z]|[a-z]|[0-9]|'|_)*), or +numeral (for [0-9][0-9]*); more general regular expressions are not supported. +An identifier that can be ambiguously lexed as either a concrete or +symbolic metavariable, e.g. x in the scope of the above +declaration, will be taken to be symbolic. +To restrict the parser to strictly concrete terms only, one can add a +:concrete: prefix, as shown in Figure 10.

One can also specify how concrete variables should be LaTeX’d or +translated into a proof assistant, e.g. with +homomorphisms +{{ texvar \mathrm{[[termvar]]}} +and +{{ isavar ’’[[termvar]]’’}} +(and similarly coqvar, holvar, and ocamlvar).

Figure 2 also specifies an OCaml representation type for +variables, with the metavar hom +{{ ocaml int}}. +Executing +

+   bin/ott -i tests/test10.ott -o test10.ml  
+

+produces the OCaml code shown in Figure 9, including OCaml +types to represent the abstract syntax, and auxiliary functions for +subrules and substitutions. This does not implement the semantic +rules. In some cases the various proof assistant code extraction +facilities can be used — see Section 21.

+
+

+% all
+metavar termvar, x ::=   {{ com  term variable }} 
+{{ isa string}} {{ coq nat}} {{ hol string}} {{ coq-equality }}
+{{ ocaml int}} {{ lex alphanum}} {{ tex \mathit{[[termvar]]} }}
+
+grammar
+t :: ’t_’ ::=                               {{ com term    }}
+  | x            ::  :: Var                   {{ com variable}}
+  | \ x . t      ::  :: Lam (+ bind x in t +) {{ com lambda  }}
+  | t t’         ::  :: App                   {{ com app     }}
+  | ( t )        :: S:: Paren                 {{ icho [[t]]  }} 
+  | { t / x } t’ :: M:: Tsub  
+                        {{ icho (tsubst_t [[t]] [[x]] [[t’]])}}
+
+v :: ’v_’ ::=                               {{ com value   }}
+  | \ x . t      ::  :: Lam                   {{ com lambda  }}
+
+terminals :: ’terminals_’ ::=
+  | \            ::  :: lambda  {{ tex \lambda }}
+  | –>          ::  :: red     {{ tex \longrightarrow }}
+
+subrules
+  v <:: t
+
+substitutions
+  single t x :: tsubst 
+
+defns
+Jop :: ” ::=
+
+ defn
+ t1 –> t2 :: ::reduce::” {{ com $[[t1]]$ reduces to $[[t2]]$}} by
+
+
+    --------------------------  :: ax_app
+    (\x.t12) v2 –>  {v2/x}t12
+
+    t1 –> t1’
+    -------------- :: ctx_app_fun
+    t1 t –> t1’ t
+
+    t1 –> t1’
+    -------------- :: ctx_app_arg
+    v t1 –> v t1’
+
+ +
+
+
Figure 8: Source: test10.7.ott
+
+
+
(* generated by Ott 0.28 from: ../tests/test10.ott ../tests/non_super_tabular.ott *)
+
+type var = int (* term variable *)
+
+type 
+term =  (* term *)
+   T_var of var (* variable *)
+ | T_lam of var * term (* lambda *)
+ | T_app of term * term (* app *)
+
+
+(** subrules *)
+let is_val_of_term (t5:term) : bool =
+  match t5 with
+  | (T_var x) -> false
+  | (T_lam (x,t)) -> (true)
+  | (T_app (t,t')) -> false
+
+
+
+(** substitutions *)
+let rec tsubst_term (t5:term) (x5:var) (t_6:term) : term =
+  match t_6 with
+  | (T_var x) -> (if x=x5 then t5 else (T_var x))
+  | (T_lam (x,t)) -> T_lam (x,(if List.mem x5 ([x]) then t else (tsubst_term t5 x5 t)))
+  | (T_app (t,t')) -> T_app ((tsubst_term t5 x5 t),(tsubst_term t5 x5 t'))
+
+
+(** definitions *)
+
+
+
+
+
+
Figure 9: Generated OCaml code: test10.ml
+
+

8  Filtering: Using Ott syntax within LaTeX, Coq, Isabelle, +HOL, or OCaml

+

8.1  Filtering embedded code

It is possible to embed arbitrary code in +the Ott source using an embed block, which can contain +tex, +coq, +hol, +isa, or +ocaml homomorphisms, the +bodies of which will appear in the respective output. +The embed keyword should be on a line by itself). For +example, +test8.ott contains the following to +define Coq and HOL remove_duplicates functions. +

+embed
+{{ coq
+Fixpoint remove_duplicates (l:list typvar_t) : list typvar_t :=
+  match l with
+  | nil => nil
+  | cons h t => if (list_mem eq_typvar_t h t)  then remove_duplicates t
+                else cons h (remove_duplicates t)
+end. }}
+
+{{ hol
+val _ = Define ‘
+  (remove_duplicates [] = []) /\
+  (remove_duplicates (x::xs) = if (MEM x xs) then remove_duplicates xs 
+                               else x::(remove_duplicates xs))
+‘; }}
+

+Within the body of an embed homomorphism, any text between +[[ and ]] will be parsed as a symbolic term (of the +user_syntax grammar) and pretty printed, so one can use user +syntax within LaTeX or proof assistant code. An Isabelle example +is below, defining an Isabelle function to calculate the order of a +type with productions unit, t*t', and t->t'. +

+{{ isa
+consts
+order :: "type => nat"
+primrec
+"order [[unit]] = 0"
+"order [[t*t’]] = max (order [[t]]) (order [[t’]])"
+"order [[t->t’]] = max (1+order [[t]]) (order [[t’]])"
+
+}}
+

+It is often useful to define a proof assistant function, in an +embed section, together with a production of the formula +grammar with a proof assistant hom that uses that function, thereby +introducing syntax that lets the function be used in semantic rules.

Ott also permits embed blocks with tex-preamble, +homs, whose +contents appear in the generated LATEX preamble. +Any definitions of LATEX commands must appear in such a +tex-preamble section. +

+

8.2  Filtering files

+Similar processing can be carried out on separate files, using the +command-line options tex_filter, isa_filter, etc. +Each of these takes two arguments, a source filename and a destination +filename. In processing the source file, +any text between +[[ and ]] will be parsed as a symbolic term (of the +user_syntax grammar) and pretty printed in the appropriate +style. All other text is simply echoed. +

Typical usage for LaTeX would be something like this (from the Makefile +used to produce this document): +

test7.tex: ../src/ott ../tests/test7.ott ../tests/test7tt.mng
+         cd ../src; make tmp_test7_clean.ott
+         ../src/ott                                        \
+                -i ../src/tmp_test7_clean.ott              \
+                -o test7.tex                               \
+                -tex_show_meta false                       \
+                -tex_wrap false                            \
+                -tex_name_prefix testSeven                 \
+                -tex_filter ../tests/test7tt.mng test7tt.tex 
+

The -tex_wrap false turns off output of the default LaTeX +document preamble, so the generated file test7.tex just contains +LaTeX definitions. +The -tex_name_prefix testSeven sets a prefix for the generated +LaTeX commands +(so the LaTeX definitions from multiple Ott source files can be +included in a single LaTeX document). +The -tex_filter argument takes two +filenames, a source and a destination. It filters the source file, +(roughly) replacing any string found within [[ ]] by +the tex pretty-print of its parse. This parsing is done w.r.t. the generated nonterminal +user_syntax which is a union of all the user’s grammar.

At present munged strings are not automatically +put within $ $, and there is no analogue of the +<[ ]> of our previous munger.

The lexing +turns any sequence of [ (resp. of ]) of +length n+1 for n>2 into a literal sequence of length n.

Figures 10 and 11 show a source file (test7tt.mng) that uses terms of the F<: +definition of test7.ott, and the result of filtering it.

Similar filtering can be performed on Coq, Isabelle, HOL, and OCaml files.

To filter files with respect to a relatively stable +system definition, without having to re-process the Ott source files of +that system definition each time, there are command-line options +

  -writesys <filename>                Output system definition
+  -readsys <filename>                 Input system definition
+

to first write the system definition (generated from some source files) to a file, and +then to read one back in (instead of re-reading the Ott source files). +The saved system definitions are in an internal format, produced using +the OCaml marshaller, and contain OCaml closures. They therefore will +not be compatible between different Ott versions. They may also be +quite large.

+
+We can TeX-typeset symbolic terms of the language, e.g.
+\[ [[ (\X<:Top. \x:X.x) [Top->Top] ]]\]
+and concrete terms
+\[ [[ :concrete: \Z1<:Top. \x:Z1.x ]]\]
+and similarly judgements etc, e.g.
+\[ [[G |- t : T ]] \]
+   
+Here is an extract of the syntax:
+
+\testSevengrammartabular{\testSevent\testSevenafterlastrule}
+
+and a single semantic rule:
+
+\[\testSevendruletinXXTwo{}\]
+
+and a judgement definition:
+
+\testSevendefnSA
+
+One can also include a ‘defns’ collection of judgements, or the complete definition.
+% \section{Full Definition}
+% \testSevenmetavars\\[0pt]
+% \testSevengrammar\\[0pt]
+% \testSevendefnss
+%
+% \testSevenall
+
+
+
+
+
Figure 10: F<: Extracts: LaTeX source file to be filtered (test7tt.mng)
+
+
+
Figure 11: F<: Extracts: the filtered output (test7tt.tex)
+
+

9  Binding specifications

Our first example involved a production with a single binder: + +

specified by the source shown in Figure 4: +

+  | \ x . t      ::  :: Lam     (+ bind x in t +)
+

+in which a single variable binds in a single subterm. +Realistic programming languages often have much more complex binding +structures, e.g. structured patterns, multiple mutually recursive let definitions, +comprehensions, or-patterns, and dependent record patterns.

Ott has a flexible metalanguage for specifying binding structures, +expressive enough to cover these. +It comprises two forms of annotation on productions. +The first, + +lets one specify that variables bind in nonterminals of the +production, as in the Lam production above. +Here + +is a metavariable set expression, +e.g. in that lambda production just the singleton +metavariable + +of the production. +A variable can bind in multiple nonterminals, as in the example of +a simple recursive let below.

More complex examples require one to collect together sets of +variables. For example, the grammar below (shown in Ott source and the +generated LaTeX) has structured patterns, +with a +production in which all the binders of the pattern + +bind in the continuation + +

+t :: E_ ::=
+  | x                        ::   :: ident
+  | ( t1 , t2 )              ::   :: pair
+  | let p = t in t’          ::   :: letrec      (+ bind binders(p) in t’ +)
+
+
+p :: P_ ::=
+  | _                        ::   :: wildcard    (+ binders = {} +)
+  | x                        ::   :: ident       (+ binders = x +)
+  | ( p1 , p2 )              ::   :: pair        (+ binders = binders(p1) union binders(p2) +)
+

This is expressed with the second form of annotation: user-defined +auxiliary functions such as the +binders above. This is an auxiliary function defined over the + +grammar that identifies a set of variables to be +used in the bind annotation on the +production. There can be any number of such auxiliary functions; +binders is not a distinguished keyword.

The syntax of a precise fragment of the binding metalanguage is given in +Fig. 12, + +

+
+
Figure 12: Mini-Ott in Ott: the binding specification metalanguage
+

where we have used Ott to define part of the Ott +metalanguage. A simple type system (not shown) enforces sanity properties, +e.g. that each auxiliary function is only applied to nonterminals that +it is defined over, and that metavariable set expressions are +well-sorted.

Further to that fragment, the tool supports binding for the list forms +of §12. +Metavariable set expressions can include lists of metavariables +and auxiliary functions applied to lists of nonterminals, e.g. as in +the record patterns below. +

This suffices to express the binding structure of almost all the +natural examples we have come across, including definitions of +mutually recursive functions with multiple clauses for each, Join +calculus definitions [FGL+96], dependent record patterns, and many others.

+

10  Generating substitution and free variable functions

The tool can generate Isabelle/Coq/HOL/OCaml code for both single and multiple +substitution functions. For example, the ML polymorphism Ott source +of test8.ott includes the following. +

+  substitutions
+    single   expr value_name :: subst  
+    multiple typexpr typvar  :: tsubst 
+

+This causes the generation of two families of substitution +functions, one replacing a single value_name by a expr, +the other replacing multiple typvars by typexprs.

Each family contains a function for each datatype for which it is +required, so in that example there are functions +subst_expr for the first and tsubst_typexpr, +tsubst_typscheme and tsubst_G for the second.

The functions for substitutions declared by +

+  substitutions
+    single   this that :: name1 
+    multiple this that :: name2 
+

+replaces terms of productions consisting just of a single that by a +this. +Here this must be a nonterminal root, while that can be +either a metavariable root or a nonterminal root (the latter +possibility allows substitution for compound identifiers, though it is +not clear that this is generally useful enough to be included). +Substitution functions are generated for each member of each (mutually recursive) +block of grammar rules which either contain such a production or (indirectly) +refer to one that does.

At present multiple substitutions are represented by Isabelle/Coq/HOL/OCaml +lists, so for the example above we have Isabelle +

  tsubst_typexpr :: "(typvar*typexpr) list => typexpr => typexpr"
+  tsubst_typscheme :: "(typvar*typexpr) list => typscheme => typscheme"
+  tsubst_G :: "(typvar*typexpr) list => G => G"
+

The generated functions do not substitute bound things, and recursive +calls under binders are filtered to remove the bound things.

Similarly, the tool can generate Isabelle/Coq/HOL/OCaml to calculate the free +variables of terms. For example, the ML polymorphism Ott source +of test8.ott includes the following. +

+  freevars
+    typexpr typvar :: ftv
+

+This causes Isabelle functions as below to be generated, calculating +the free typvars that occur in singleton productions in the +typexpr grammar, within terms of all types. +

  ftv_typexpr :: "typexpr => typvar list"
+  ftv_typscheme :: "typscheme => typvar list"
+  ftv_G :: "G => typvar list"
+
+

11  Locally-nameless representation

The Coq backend of Ott includes experimental support for a +locally-nameless representation (and co-finite quantification).

The user must specify which metavariables require a locally-nameless +representation via the repr-locally-nameless hom, +e.g.:

+metavar x ::= {{ repr-locally-nameless }} {{ com  term variable  }} 
+

As usual, metavariables can be bound in productions, using the +bindspec language, as in the lam production below: +

+grammar
+  t :: ’t_’ ::=                                         {{ com term }}
+    | x                   ::   :: Var                     {{ com variable }}         
+    | \ x . t             ::   :: Lam  (+ bind x in t +)  {{ com abstraction }}      
+    | t t’                ::   :: App                     {{ com application }}      
+    | ( t )               :: S :: paren   {{ coq [[t]] }} 
+    | { t / x } t’        :: M :: tsub    {{ coq (t_subst_t [[t]][[x  t’]]) }}
+

This definition gives rise to the datatype term below (here with option -coq_names_in_rules false): +

+Inductive term : Set := 
+| term_var_b : nat -> term 
+| term_var_f : var -> term 
+| term_lam : term -> term 
+| term_app : term -> term -> term.
+

Remarks: +

  1. +Productions containing metavariables susceptible to be bound +(e.g., term_var) give rise to two distinct constructors, one +(term_var_b) for de Bruijn indices to be used when the metavariable +is bound, one (term_var_f) for "free" variables. The type var, +together with decidable equality and several useful lemmas and +functions, is defined in the Metatheory library.

    In the current implementation, metavariables susceptible to be bound +in a symbolic term (eg. the x in the term_var +production) must be the only element of the production.

  2. Binder metavariables are erased from productions +(eg. term_lam), as in de Bruijn representation. +

Ott automatically generates the appropriate open functions +and lc predicates to test if terms are locally-closed. The +other support functions for substitutions and free-variables +(subst and fv) are generated once the user declares +the relevant substitutions and freevars sections.

Ott automatically compiles the symbolic terms that appear in rule +definitions into the appropriate terms in locally-nameless style. For +instance, the typing rule for the simply-typed lambda-calculus:

+    E,x:S |- t : T
+    ------------------ :: lambda
+    E |- \x.t : S->T
+

+is compiled into its locally-nameless representation: +

+Inductive typing : env -> term -> type -> Prop := (* defn typing *) 
+| ... 
+| typing_lambda : forall (L:vars) (E:env) (t:term) (S T:type), 
+   (forall x, x \notin L -> typing (E & x ~ S) (open_term_wrt_term t (term_var_f x)) T) -> 
+   typing E (term_lam t) (type_arrow S T).
+

For that, Ott follows the algorithm below. For each rule, +

  1. +for each nonterminal that appears in the rule, compute the +maximal set of binders under which it appears: for example, in the +rule lambda above, the maximal set of binders for the nonterminal t +is the singleton x, and it is empty for all the other nonterminals; +
  2. for each pair nonterminal / maximal binder set collected in +phase 1., go over all the occurrences of the nonterminal in the rule +and open them with respect to all the variables in the maximal +binding set except those under which this particular occurrence is +bound. In the example, this amounts to opening the occurrence of t +in the premise with respect to the metavariable x; +
  3. quantify using cofinite-quantification each metavariable that +has been used to open a nonterminal; +
  4. add hypothesis about local-closure to guarantee the invariant +that if a derivation holds, then the top-level terms involved are +locally-closed. +

+In some cases the user may want a finer control on which nonterminals +are opened and with respect to which metavariables. Consider for +instance the CBV beta-reduction rule: +

+    --------------------------  :: ax_app
+    (\x.t1) v2 –>  {v2/x}t1
+

+A naive application of the algorithm described above would open the +right hand side occurrence of t1 with respect to a +cofinitely-quantified x. Substitution should then be used to replace +the occurrences of x with v2, resulting in the awkward term +

+reduce (term_app (term_lam t1) v2) (subst_term v2 x (open_term_wrt_term t1 (term_var_f x)))
+

Instead, an idiomatic translation of CBV beta-reduction rule would +directly rely on the open function to substitute v2 for the +bound occurrences of x in t1, as in: +

+reduce (term_app (term_lam t1) v2) (open_term_wrt_term t1 v2)
+

A special syntax for production homomorphisms allow the user to specify this translation: +

+    | { t / x } t’        :: M :: tsub    {{ coq (t_subst_t [[t]][[x t’]]) }}
+

+In the homomorphism the nonterminal t’ is referred to with +[[x t’]] instead of the usual +[[t’]]: the prefixed x specifies +that occurrences of t’ should not be opened with respect to +the metavariable x. If this homomorphism is specified, then +the translation of the ax_app rule is exactly idiomatic Coq +shown above.

Current limitations: support for single binders only, no auxfn, Coq only.

Disclaimer: to compile rule definitions, Ott applies blindly the algorithm described above. Although in most of the cases, this generates a correct and idiomatic representation of the language, some language constructs might not be faithfully translated. Please, let us know if you find one of these cases. +

If Ott is invoked with the -coq_lngen option, then the +generated locally-nameless Coq code is compatible with Aydemir’s +lngen tool (http://www.cis.upenn.edu/ baydemir/papers/lngen/).

+

12  List forms

Ott has direct support for lists, both as dot forms such as + +and as list comprehensions such as + +. +Figure 13 shows an example semantic rule taken from our OCaml +fragment semantics, as both the generated LaTeX and its Ott +source, that involves several dot forms. +Other types commonly used in semantics, e.g. finite maps or sets, can +often be described with this list syntax in conjunction with type and +metaproduction homs to specify the proof assistant representation. +When using list forms, one usually also wants to add a list-of-formula +production to the formula grammar, e.g. (as in +test17.10.ott): +

+  formula :: formula_ ::=  
+   |  judgement                       ::   :: judgement
+   |  formula1 .. formulan            ::   :: dots
+

+The proof assistant code generation for such a production (which must +be named formula_dots) is special-cased to a list conjunction.

+
+ E |- e1 : t1 ... E |- en : tn
+ E |- field_name1 : t->t1 ... E |- field_namen : t->tn
+ t = (t1’, ..., tl’) typeconstr_name
+ E |- typeconstr_name gives typeconstr_name:kind {field_name1’; ...; field_namem’}
+ field_name1...field_namen PERMUTES field_name1’...field_namem’
+ length (e1)...(en)>=1
+ ————————————————————————– :: record_constr
+ E |- {field_name1=e1; ...; field_namen=en} : t
+
+
Figure 13: A sample OCaml semantic rule, in LaTeX and Ott +source forms
+

12.1  List dot forms

Example productions for +record types, record terms, and record +patterns are shown below, in both Ott source and LaTeX, taken +from our F<: example. +

+T, S, U :: ’T_’ ::=                                               {{ com type  }}
+  | { l1 : T1 , .. , ln : Tn }      :: :: Rec                       {{ com record }}           
+
+t :: ’t_’ ::=                                                     {{ com  term  }}
+  | { l1 = t1 ,  .. , ln = tn }     :: :: Rec                       {{ com record }}
+  | let p = t in t’                 :: :: Let (+ bind b(p) in t’ +) {{ com pattern binding}}
+
+p :: ’P_’ ::=                                                     {{ com  pattern }}
+  | x : T                           :: :: Var (+ b = x  +)          {{ com variable pattern }}
+  | { l1 = p1 , .. , ln = pn }      :: :: Rec (+ b = b(p1 .. pn) +) {{ com  record pattern  }}
+
+

+

Dot forms can be used in symbolic terms in semantic rules:

+

Individually indexed projections from dot forms can be mentioned, eg +the lj below:

+

Symbolic terms can also include concatenations of two dot forms with a +singleton in between:

+

Multiple dot forms within the same semantic rule can share bounds (e.g. 1..m):

+

In more detail, productions can have dot tokens interspersed between the elements. +Dot tokens consist of two, three or four consecutive dots (.., +..., or ....), indicating lists with minimum lengths 0, +1, and 2 respectively (these length minimums are respected +only when parsing concrete lists; they are not present in Isabelle/Coq/HOL +output). +The tool identifies the maximal sequence of elements on either side of +the dots that are identical modulo anti-unification of some +index. Optionally, there may also be a single terminal on either side +of the dot token, separating instances of the repeated unit. +For example, in the test7.ott production +

+  | { l1 = t1 ,  .. , ln = tn }  :: :: Rec                     
+

+there is such a terminal (the ‘,’). The tool identifies +that l1 = t1 and ln = tn can be anti-unified as +(roughly) l_ = t_, taking _ to be the bounds 1 and n. +A single production may contain multiple dot forms, but they must not overlap; +nested dot forms (including those with multiple changing indices) are not currently +supported.

Homomorphisms and binding specifications are generalised to match: an mse can +involve a dot form of metavariables; +a dot form of nonterminals; or an auxiliary function applied to a dot +form +of nonterminals (e.g. the +b(p1..pn) above). +Dot forms on the right of a bind are not currently supported.

LaTeX homomorphisms should not refer to dot forms, as either an error +or bad output will be generated. (For LaTeX, there should really be +some means to specify +a homomorphism for the repeated expression, and also data on how any +list separators should be typeset. This would require more +special-case treatment, which is not currently supported.)

+

12.2  List comprehension forms

Lists can also be expressed as explicit list comprehensions, +for more concise typesetting. +Three different styles are supported, with no bounds, an upper bound, +or a lower and upper bound. For example, in a symbolic +term, instead of the dot form +

+  G |- t1:T1  ..  G |- tn:Tn
+

+ +one can write any of the following +

+   </ G |- ti:Ti // i           />
+   </ G |- ti:Ti // i IN n      />
+   </ G |- ti:Ti // i IN 1 .. n />
+

+ +Similar comprehensions can be used in productions, for example lines +2–4 below. In addition, comprehensions in productions can specify a +terminal to be used as a separator in concrete lists, as in lines 5–7 below. +(These examples are taken from test17.10.ott.) +

+  |  l1 = t1 ,  .. , ln = tn            :: :: Rec              {{ com dots }}
+  |  </ li = ti // i           />       :: :: Rec_comp_none    {{ com comp }}
+  |  </ li = ti // i IN n      />       :: :: Rec_comp_u_none  {{ com compu }} 
+  |  </ li = ti // i IN 1 .. n />       :: :: Rec_comp_lu_none {{ com complu }}  
+  |  </ li = ti // , // i           />  :: :: Rec_comp_some    {{ com comp with terminal }}
+  |  </ li = ti // , // i IN n      />  :: :: Rec_comp_u_some  {{ com compu with terminal }} 
+  |  </ li = ti // , // i IN 1 .. n />  :: :: Rec_comp_lu_some {{ com complu with terminal }}  
+

+ +In Coq, HOL or Isabelle output, list dot forms and the +various list comprehension forms are treated almost identically. +In LaTeX output, comprension forms are default-typeset with overbars. +For example, the rules below +

+ G|- t:l1:T1,..,ln:Tn
+ ----------------------- :: Proj_dotform
+ G|- t.lj : Tj
+
+ G|- t:  </ li:Ti // i/> 
+ ---------------------------------- :: Proj_comp
+ G|- t.lj : Tj
+
+ G|- t:  </ li:Ti // i IN n/> 
+ ---------------------------------- :: Proj_comp_u
+ G|- t.lj : Tj
+
+ G|- t:  </ li:Ti // i IN 1..n/> 
+ ---------------------------------- :: Proj_comp_lu
+ G|- t.lj : Tj
+

+ +are typeset as follows.

+

Upper bounds of the form n−1 are also permitted, e.g. with +

+ G|- t:l0:T0,..,ln-1:Tn-1
+ ----------------------- :: Proj_dotform_minus
+ G|- t.lj : Tj
+
+ G|- t:  </ li:Ti // i IN 0..n-1/> 
+ ---------------------------------- :: Proj_comp_lu_minus
+ G|- t.lj : Tj
+

+ +typeset as below. More complex arithmetic expressions are not +currently supported.

+

A list form used in a symbolic term does not have to be in the same +style as that in the corresponding production. +However, if a metavariable or nonterminal occurs in multiple different +list forms in the same inference rule, they must all be in the same style and +with the same bounds. Moreover, in a production, a list form in a bindspec or +homomorphism must be in the same style and with the same bounds as the +corresponding list form in the elements of the production.

The comprehension form without an upper bound, +e.g. </ G |- ti:Ti // i />, +typeset as +is not standard +notation, but is often very useful. Many semantic rules involve lists +of matched length, e.g. of the +and +here, but do not need to introduce an +identifier for that length; omitting it keeps them concise.

The default visual style for typesetting list comprehensions can be +overridden by redefining the LaTeX commands \ottcomp, +\ottcompu, and \ottcomplu in an embed section, as +in Section 4.3.

In some cases one could make the typeset notation even less noisy, by +either omitting the superscript i or omitting both the superscript i and +the subscript i’s on t and T. The first is unambiguous if there +is at most one index on each element in the comprehension; the second +if all the elements are indexed by the same thing (not the case for +this example, but common for comprehensions of single elements, +e.g. << Ti // i>> for T). It is arguable that that +should be automated in future Ott releases, though it would bring the typeset and ASCII +versions out of step.

List comprehension forms can also be used in bindspecs and in +homomorphisms.

+

12.3  Proof assistant code for list forms

+

12.3.1  Types

+We have to choose proof assistant representations for productions involving list +forms. For example, for a language with records one might write +

+  metavar label, l ::= {{ hol string }} {{ coq nat }}
+  indexvar index, n ::=  {{ hol num }} {{ coq nat }} 
+  grammar
+  term, t :: ’t_’ ::=
+    | { l1 = t1 ,  .. , ln = tn }      :: :: record
+

+ +In HOL and Isabelle we represent these simply with contructors whose +argument types involve proof-assistant native list types, e.g. +the HOL list of pairs of a label and a t: +

  val _ = Hol_datatype ` 
+  t = E_record of (label#t) list  `;
+

For Coq we provide two alternatives: one can either use +native lists, or lists can be translated away, depending on taste. +The choice is determined by the -coq_expand_list_types +command-line option. +In the former case we generate an appropriate induction principle +using nested fixpoints, as +the default principle produced by Coq is too weak to be useful. +In the latter case we +synthesise an additional type for each type of lists-of-tuples that +arises in the grammar. +In the example, we need a type of lists of +pairs of a label and a t: +

Inductive 
+list_label_t : Set := 
+   Nil_list_label_t : list_label_t
+ | Cons_list_label_t : label -> t -> list_label_t 
+     -> list_label_t
+
+with t : Set := 
+   E_record : list_label_t -> t .
+

These are included in the grammar topological sort, and utility functions, e.g. to +make and unmake lists, are synthesised. +

+

12.3.2  Terms (in inductive definition rules)

+Supporting list forms in the rules of an inductive definition requires some additional analysis. For example, +consider the record typing rule below.

We analyse the symbolic terms in the premises and conclusion to +identify lists of nonterminals and metavariables with the same bounds — here t0 .. tn−1, T0 .. Tn−1, and l0 .. ln−1 +all have bounds 0..n−1. +To make the fact that they have the same length immediate in the +generated code, we introduce a single proof assistant +variable for each such collection, with appropriate projections and +list maps/foralls at the usage points. +For example, the HOL for the above is essentially as follows, with +an l_t_Typ_list : (label#t#Typ) list. +

(* Ty_Rcd *)  !(l_t_Typ_list:(label#t#Typ) list) (G:G) . 
+(EVERY (\b.b) 
+  (MAP (\(l_,t_,Typ_). (Ty G t_ Typ_)) l_t_Typ_list))
+ ==> 
+(Ty 
+  G 
+  (E_record (MAP (\(l_,t_,Typ_). (l_,t_)) l_t_Typ_list))
+  (T_Rec    (MAP (\(l_,t_,Typ_). (l_,Typ_)) l_t_Typ_list)))
+

This seems to be a better idiom for later proof development than the +alternative of three different list variables coupled with assertions +that they have the same length.

With direct support for lists, we need also direct support for +symbolic terms involving list projection and concatenation. +For example, the rule +

gives rise to HOL code as below — note the list-lifted usage of the +is_v_of_t predicate, and the list appends (++) in the conclusion. +

(* reduce_Rec *)  !(l'_t'_list:(label#t) list) 
+       (l_v_list:(label#t) list) (l:label) (t:t) (t':t) . 
+((EVERY (\(l_,v_). is_v_of_t v_) l_v_list) /\
+(( reduce t t' )))
+ ==> 
+(( reduce (t_Rec (l_v_list ++ [(l,t)] ++ l'_t'_list)) 
+          (t_Rec (l_v_list ++ [(l,t')] ++ l'_t'_list))))
+

For the Proj typing rule

we need a specific projection (the +HOL EL) to +pick out the j’th element: +

(* Ty_Proj *)  !(l_Typ_list:(label#Typ) list) 
+       (j:index) (G:G) (t:t) . 
+((( Ty G t (T_Rec (l_Typ_list)) )))
+ ==> 
+(( Ty 
+     G 
+     (t_Proj t  ((\ (l_,Typ_) . l_) (EL j l_Typ_list)))  
+     ((\ (l_,Typ_) . Typ_) (EL  j l_Typ_list))))
+

For Coq, when translating away lists, we have to introduce +yet more list types for +these proof assistant variables, in addition to the obvious +translation of symbolic terms, and, more substantially, to introduce additional inductive relation +definitions to induct over them.

For similar examples in Isabelle, the generated Isabelle for the first +three rules of §12.1 is +shown below (lightly hand-edited for format). The first involves an +Isabelle variable l_t_T_list, and list maps and projections +thereof. +

Ty_RcdI: "
+  [|(formula_formuladots ((List.map (%(l_,t_,T_).( ( G , t_ , T_ ) : Ty)) l_t_T_list)))|] 
+  ==> 
+  ( G , 
+    (t_Rec ((List.map (%(l_,t_,T_).(l_,t_)) l_t_T_list))) , 
+    (T_Rec ((List.map (%(l_,t_,T_).(l_,T_)) l_t_T_list))) 
+  ) : Ty"
+
+Ty_ProjI: "
+  [| ( G , t , (T_Rec (l_T_list)) ) : Ty|] ==> 
+  ( G , 
+    (t_Proj t (%(l_,T_).l_) (List.nth l_T_list (j - 1))) , 
+    (%(l_,T_).T_) (List.nth l_T_list (j - 1)) 
+  ) : Ty"
+
+E_Ctx_recordI: "
+[| List.list_all (%(l_,v_).is_v v_) l_v_list ;
+   ( t , t' ) : E|] 
+==> 
+ ( (t_Rec (l_v_list @ [(l,t)] @ l_'t_'list)) , 
+   (t_Rec (l_v_list @ [(l,t')] @ l_'t_'list)) 
+ ) : E"
+

+The generated code for substitutions and free variables takes account of such list structure.

Note that at present the generated Isabelle code for these functions +does not always build without change, in particular if tuples of size +3 or more are required in patterns.

+

12.3.3  List forms in homomorphisms

Proof assistant homomorphisms in productions can refer to dot-form +metavariables and nonterminals. For example, the second production +below (taken from test17.9) mentions [[x1 t1 ... xn tn]] in the isa +homomorphism. This must exactly match the dot form in the production +except that all terminals must be omitted — the metavariables and +nonterminals must occur in the same order as in the production, and +the bounds must be the same. 

+    E :: ’E_’ ::= {{ isa ( ident * t ) list  }}
+      | < x1 : t1 , .. , xn : tn > :: :: 2  {{ isa  List.rev [[x1 t1 .. xn tn]] }}
+    formula :: formula_ ::=          
+      | judgement              :: :: judgement
+      | formula1 .. formulan   :: :: dots
+

+The generated Isabelle code for symbolic +terms mentioning this production will involve a list of pairs. For +example, the rules +

+defn
+|- E  :: :: Eok :: Eok_ by
+
+---------------------------- :: 2
+|- <x1:t1,..,xn:tn> 
+
+|- t1:K1  .. |- tn:Kn
+---------------------------- :: 3
+|- <x1:t1,..,xn:tn> 
+

+generate +

consts
+  Eok :: "E set"
+inductive Eok tK
+intros
+
+(* defn Eok *)
+
+Eok_2I: " ( List.rev  (x_t_list) ) : Eok"
+
+Eok_3I: "[|
+(List.list_all (\<lambda> b . b) (  ((List.map (%(x_,t_,K_). ( t_ , K_ ) : tK) x_t_K_list))  ) )|]
+ ==> 
+ ( List.rev  ((List.map (%(x_,t_,K_).(x_,t_)) x_t_K_list)) ) : Eok"
+

+Note that in the second the list of pairs is projected out from the +x_t_K_list list of triples that is quantified over in the rule.

+

13  Subrules

Subrule declarations have the form +

+  subrules
+    nt1 <:: nt2
+

+where nt1 and nt2 are nonterminal roots.

Subrules can be chained, i.e. there can be a pair of +subrule declarations nt1 <:: nt2 and nt2 <:: nt3, +and they can form a directed acyclic graph, e.g. with +nt0 <:: nt1, nt0 <:: nt2, +nt1 <:: nt3, and nt2 <:: nt3. However, there cannot be +cycles, or nonterminal roots for which there are multiple upper bounds. +Subrule declarations should not involve nonterminal roots for which +proof-assistant type homs are specified.

We support the case in which the upper rule is also +non-free, i.e. it contains productions that mention nonterminals that +occur on the left of a subrule declaration. In the example below +(test11.ott) the +t rule contains a production Foo v. +

+  metavar termvar , x ::=
+    {{ isa string }} {{ coq nat }} {{ coq-equality }} {{ hol string }} {{ ocaml int }}
+
+  grammar
+    t :: ’t_’ ::=                                         
+      | x                   ::   :: Var                   
+      | \ x . t             ::   :: Lam  (+ bind x in t +)
+      | t t’                ::   :: App                   
+      | Foo v               ::   :: Foo
+
+    v :: ’v_’ ::=                        
+      | \ x . t             ::   :: Lam   
+
+  subrules
+    v <:: t
+
+  defns
+    Jb :: ” ::=
+
+      defn
+      Baz t , v ::  :: Baz :: ”       by 
+
+      
+      --------- :: ax
+      Baz t , v
+

+ +In this case generated Isabelle/Coq/HOL/OCaml will define a single type and both is_v +and is_t predicates, and the generated inductive definition +clause for ax uses both predicates. The Isabelle clause is below. +

  axI: "[|is_t t ; is_v v|] ==>  ( t , v ) : Baz"
+
+

14  Context rules

The system supports the definition of single-hole contexts, e.g. for +evaluation contexts. For example, suppose one has a term grammar as below: +

+t :: ’t_’ ::=                               {{ com term    }}
+  | x                  ::  :: Var                   {{ com variable}}
+  | \ x . t            ::  :: Lam (+ bind x in t +) {{ com lambda  }}
+  | t t’               ::  :: App                   {{ com app     }}
+  | ( t1 , .... , tn ) ::  :: Tuple                 {{ com tuple }}
+  | ( t )              :: S:: Paren                 {{ icho [[t]]  }} 
+  | { t / x } t’       :: M:: Tsub  
+                        {{ icho (tsubst_t [[t]] [[x]] [[t’]])}}
+
+  | E . t              :: M:: Ctx  
+                        {{ icho (appctx_E_t [[E]] [[t]])}}
+                        {{ tex [[E]] \cdot [[t]] }}
+

+A context grammar is declared as a normal grammar but with a single +occurrence of the terminal __ in each production, e.g. as in +the grammar for E below (a rather strange evaluation +strategy, admittedly). +

+E :: ’E_’ ::=                               {{ com evaluation context }}
+  | __ t         ::  :: AppL                   {{ com app L    }}
+  | v __         ::  :: AppR                   {{ com app R    }}
+  | \ x . __     ::  :: Lam                    {{ com reduce under lambda }}
+  | ( t1 ( __  t2 ) ) :: :: Nested              {{ com hole nested }}
+  | ( v1 , .. , vm , __ , t1 , .. , tn ) :: :: Tuple {{ com tuple }}
+

+A contextrules declaration: +

+contextrules
+  E _:: t :: t
+

+causes Ott to (a) check that each production of the E grammar +is indeed a context for the t grammar, and (b) generates +proof assistant functions, e.g. appctx_E_t, to apply a context +to a term: +

(** context application *)
+Definition appctx_E_t (E5:E) (t_6:t) : t :=
+  match E5 with
+  | (E_AppL t5) => (t_App t_6 t5)
+  | (E_AppR v5) => (t_App v5 t_6)
+  | (E_Lam x) => (t_Lam x t_6)
+  | (E_Nested t1 t2) =>  (t_App t1  (t_App t_6 t2) )
+  | (E_Tuple v_list t_list) => (t_Tuple ((app_list_t v_list
+     (app_list_t (Cons_list_t t_6 Nil_list_t) (app_list_t t_list Nil_list_t)))))
+

As the Nested production shows, context productions can +involve nested term structure.

Note also that here the E grammar is not free (it mentions the +subrule nonterminal v) so an isvalue predicate +is_E_of_E is also generated.

In general, context rule declarations have the form +

+  contextrules
+    ntE _:: nt1 :: nt2
+

+where ntE, nt1, and nt2 are nonterminal +roots. This declares contexts ntE for the nt1 +grammar, with holes in nt2 positions.

Just as for substitutions, the context application function is +typically used by adding a metaproduction to the term grammar. +Here we add a production E.t to the t grammar with +an icho hom that uses appctx_E_t. +

+t :: ’t_’ ::=                               {{ com term    }}
+  ...
+  | E . t              :: M:: Ctx  
+                        {{ icho (appctx_E_t [[E]] [[t]])}}
+                        {{ tex [[E]] \cdot [[t]] }}
+

+That can then be used in relations: +

+    t –> t’
+    -------------- :: ctx
+    E.t –> E.t’
+

One would typically also define a terminals production for +the hole terminal __, e.g. here we typeset the hole as [·]. +

+terminals :: ’terminals_’ ::=
+  | __           ::  :: hole    {{ tex [\cdot] }}
+
+

15  Auxiliary Rules

+We permit an aux hom on grammar rules. For any rule with such a hom, +we transform that rule by appending an _aux to its primary nonterminal +root name. We then add a synthesised rule with the original nonterminal +root name and a single production, with a shape described by the body of +the aux hom, which must be of the form +

  {{ aux  foo1 foo2 _ bar1 bar2 bar3 }}
+

with a single _ and any number of strings fooi and barj before and +after. The _ is replaced by the original +nonterminal root name.

For example, given a grammar or metavariable l of source locations, one +might say +

ntr :: 'NTR_'  ::=  {{ aux _ l }}
+ | ...
+

to synthesise grammars ntr_aux and ntr of unannotated and location-annotated +terms, the first with all the original productions and the second with a +single production +

 | ntr l :: :: NTR_aux. 
+

If the rule has an empty production name wrapper (eg with ’’ in place +of ’NTR_’) then the production name is based on the original +nonterminal root, capitalised and with _aux appended (eg Ntr_aux), to +avoid spurious conflicts.

An additional auxparams hom on rules lets the user add type +parameters to the generated OCaml output.

Generation of aux rules is controlled by a command-line option +-generate_aux_rules, which one might (eg) set to false +for latex output and true for OCaml output.

+

16  Functions

Ott includes experimental support for writing function definitions. +As a simple example, consider the Ott file below:

+    grammar
+     n :: ’n_’ ::=
+       | 0       :: :: Zero
+       | S n     :: :: Succ
+
+    funs
+      Add ::=   {{ hol-proof ...  }}
+    fun
+      n1 + n2 :: n :: add    {{ com a function of type num -> num -> num }}
+    by
+      0 + n2 === n2
+      S n1 + n2 === n1 + S n2
+

Here the add function is compiled into the following Coq code:

+    Fixpoint add (x1:num) (x2:num) : num:=
+      match x1,x2 with
+      | n_zero , n2 => n2
+      | (n_succ n1) , n2 =>  (add n1 (n_succ n2) ) 
+    end.
+

More in detail, the +fun +n1 + n2 :: n :: add +by +declaration specifies: +

  • +the name of the function: add +
  • the symbolic term that defines the lhs: n1 + n2 +
  • the non-terminal that defines the rhs: n +

The type of the arguments of the function is defined by the +non-terminals appearing in the lhs, the return type by the rhs +non-terminal (so num → num → num in the +above example). As side-effect, whenever a function of type +symb_term → nt is defined, a production +nt ::= symb_term is added to the definition of the +non-terminal nt (in the above example, the production +n1 + n2 is added to the grammar of num).

Functions are then defined by case analysis, where the lhs and the rhs +are separated by the reserved symbol ===.

The {{ hol-proof }} hom +allows the specification of a termination proof, which is required by +Hol. Mutually recursive functions can be defined in the same +funs block, analogously to mutually recursive rule +definitions.

Disclaimer: the different treatment of partial functions by the +different provers can result in a function definition being compiled +correctly to one prover but not to others.

+

17  Parsing Priorities

Symbolic terms that can have more than one parse tree are typically considered +erroneous; however, certain classes of parse trees are ignored in order to +support common idioms that are ambiguous. For example, the production +

+
Γ ::= Γ1, .., Γn

+might be used to allow a list of typing contexts to be appended together, but +it is highly ambiguous. The following restrictions forbid many unwanted parses +that could otherwise occur. +

  • +All parses in which a nonterminal derives itself without consuming any input +are ignored. For example, in the production above, the list could otherwise be +of length one so that Γ directly derives Γ giving rise to a +vacuous cycle, and an infinite forest of parse trees. This restriction +ensures that only the tree without the vacuous cycle is considered. +
  • The parser for a list form ignores parses that unnecessarily break up the list +due to (direct or indirect) self reference. For example, +Γ1,Γ2,Γ3,Γ4 will not parse as a two element sequence +of two element sequences (Γ1,Γ2),(Γ3,Γ4) given the +production above. +
  • User supplied priority annotations in a parsing section rule out certain +trees as follows: +
    • +prodname1 <= prodname2: Parse trees where a +prodname1 node is a child of a prodname2 node are +ignored. +
    • prodname1 right prodname2: Parse trees where a +prodname1 node is the leftmost child of a prodname1 +node are ignored. +
    • prodname1 left prodname2: Parse trees where a +prodname2 node is the rightmost child of a prodname1 +node are ignored. +
    +In addition to immediate children, these priority annotations also prohibit +parse trees where the forbidden child node occurs underneath a chain of +derivations from the specified parent when the chain does not consume any +input. +Figure 17 demonstrates a typical use of a parsing +section; the declarations have effect as follows: +
    • +Line #1: n + n + n parses as (n + n) + n, but not n + (n + n); +
    • Line #3: n + n - n parses as (n + n) - n, but not n + (n - n); +
    • Line #9: -n + n parses as (-n) + n, but not -(n + n); +
    • Line #15: n + n n parses as n + (n n), but not (n + n) n; +n n + n parses as (n n) + n, but not n (n + n); +
    • Line #20: n, n n, n parses as n, (n n), n, but not (n, n) (n, n). +
    +Currently, the parsing section supports only these relatively low level +and verbose declarations. +
+
+metavar n ::=
+
+grammar
+
+e :: e_ ::= 
+| n             ::   :: num
+| - e           ::   :: neg
+| e1 + e2       ::   :: add
+| e1 - e2       ::   :: sub
+| e1 e2         ::   :: mul
+| e1 / e2       ::   :: div
+| e1 , .. , e2  ::   :: tup
+| ( e )         :: M :: par {{ icho [[e]] }}
+
+parsing
+
+e_add left e_add   % #1
+e_sub left e_sub
+e_add left e_sub   % #3
+e_sub left e_add
+
+e_mul left e_mul
+e_div left e_div
+e_mul left e_div
+e_div left e_mul
+
+e_neg <= e_add     % #9
+e_neg <= e_sub
+e_neg <= e_mul
+e_neg <= e_div
+e_neg <= e_tup
+
+e_add <= e_div
+e_add <= e_mul     % #15
+e_add <= e_tup
+e_sub <= e_div
+e_sub <= e_mul
+e_sub <= e_tup
+
+e_mul <= e_tup     % #20
+e_div <= e_tup
+
+

+
+
+
+
Figure 14: An Ott source file for basic arithmetic using the typical parsing priorities
+

18  Combining multiple source files

+Ott can be invoked with multiple source files. +Input filenames with extensions .tex, .v, +.thy, .sml, or ml are simply copied into +the relevant output (LATEX, Coq, Isabelle, HOL, or OCaml). +By default the source-file and command-line order of blocks is preserved, for grammar, +embeds, and inductive definitions.

The prover output can be split into multiple output files: each prover +output file specified with -o <filename> will contain the material +from the previous input files specified with -i (since the last -o +for the same prover).

Alternatively, one can add a -merge true command-line option, +in which case +the productions of multiple grammars that share the same header +are merged into a single grammar, and the rules of multiple +inductive definitions that share the same header are merged into a +single inductive definition. +This rudimentary form of modularity can be very useful, either to +split a language definition into separate features, or to define +reusable Ott components to define standard formulae, LaTeX pretty +printing of terminals, or LaTeX styles. +For example, Figure 15 shows the Ott source file for a +let feature in isolation, taken from our Ott development of +some languages from Pierce’s TAPL [Pie02]. +

+
+

+grammar
+t :: Tm ::=                                        {{ com terms: }}
+  | let x = t in t’                   ::   :: Let (+ bind x in t’ +)     {{ com let binding }}
+
+
+defns 
+Jop :: ” ::= 
+
+defn 
+t –> t’ :: :: red :: E_ {{ com Evaluation }} by
+
+----------------------------- :: LetV
+let x=v1 in t2 –> [x|->v1]t2 
+
+t1 –> t1’
+---------------------------------- :: Let
+let x=t1 in t2 –> let x=t1’ in t2
+
+
+defns
+Jtype :: ” ::= 
+
+defn
+G |- t : T :: :: typing :: T_ {{ com Typing }} by
+
+G |- t1:T1
+G,x:T1 |- t2:T2
+------------------------ :: Let
+G |- let x=t1 in t2 : T2
+
+
+
+
Figure 15: An ott source file for the let fragment of TAPL
+

+The original TAPL languages were produced using +TinkerType [LP03] to compose features and check for +conflicts. +In examples/tapl we build a system, similar to the TinkerType +sys-fullsimple, from ott source files that +correspond roughly to the various TinkerType components, each with +syntax and semantic rules for a single feature.

+

19  Hom blocks

+Bindspecs and homomorphisms for productions, and any homomorphisms +for definitions, can appear in an Ott source file either +attached to the production or definition, as we have shown earlier, or +in separate hom blocks. +For example, one can write +

+homs ’t_’
+  :: Lam  (+ bind x in t +)  
+
+homs ’t_’
+  :: Var     {{ com variable }}         
+  :: Lam     {{ com abstraction }}      
+  :: App     {{ com application }}      
+  :: paren   {{ ich [[t]] }} 
+  :: tsub    {{ ich ( tsubst_t [[t]] [[x]] [[t’]] ) }}
+
+homs ”
+  :: reduce  {{ com [[t1]] reduces to [[t2]] }} 
+

+Each of these begins with a prefix and then has a sequence of +production name or definition name kernels, each followed by a +sequence of bindspecs and then a sequence of homomorphisms.

The test10_homs.ott example, in Fig. 16, shows this. It +is semantically equivalent to the test10.ott example of +Fig. 8, but the homs have been moved into hom +blocks. +

+
+

+metavar termvar , x ::= 
+  {{ isa string }} {{ coq nat }} {{ coq-equality }} {{ hol string }} {{ lex alphanum }}
+  {{ tex \mathit{[[termvar]]} }} {{ com  term variable  }} 
+
+grammar
+  t :: ’t_’ ::=    {{ com term }}
+    | x                   ::   :: Var   
+    | \ x . t             ::   :: Lam  
+    | t t’                ::   :: App  
+    | ( t )               :: S :: paren 
+    | { t / x } t’        :: M :: tsub  
+
+  v :: ’v_’ ::=    {{ com  value }}
+    | \ x . t             ::   :: Lam   
+
+  terminals :: ’terminals_’ ::=
+    | \                   ::   :: lambda  {{ tex \lambda }}
+    | –>                 ::   :: red     {{ tex \longrightarrow }}
+
+
+homs ’t_’
+  :: Lam  (+ bind x in t +)  
+
+homs ’t_’
+  :: Var     {{ com variable }}         
+  :: Lam     {{ com abstraction }}      
+  :: App     {{ com application }}      
+  :: paren   {{ ich [[t]] }} 
+  :: tsub    {{ ich ( tsubst_t [[t]] [[x]] [[t’]] ) }}
+
+homs ”
+  :: reduce  {{ com $[[t1]]$ reduces to $[[t2]]$ }} 
+
+
+subrules
+  v <:: t
+
+substitutions
+  single t x :: tsubst 
+
+defns
+  Jop :: ” ::=
+
+    defn
+    t1 –> t2 ::  :: reduce :: ” by 
+
+
+    --------------------------  :: ax_app
+    (\x.t12) v2 –>  {v2/x}t12
+
+    t1 –> t1’
+    -------------- :: ctx_app_fun
+    t1 t –> t1’ t
+
+    t1 –> t1’
+    -------------- :: ctx_app_arg
+    v t1 –> v t1’
+
+
+ +
+
+
Figure 16: Hom Sections: test10_homs.ott
+
+

20  Isabelle syntax support

Ott has limited facilities to allow the Isabelle mixfix syntax support +and xsymbol to be used. The example test10_isasyn.ott shows +this in use. +

Non-meta productions can be annotated with +isasyn and/or isaprec homomorphisms. +For example, test10_isasyn.ott contains the production +

+  | t t’      :: :: App   {{ isasyn [[t]]\<bullet>[[t’]] }}  {{ isaprec 50 }}
+

+The two homs are used to output the Isabelle syntax annotation in the +t_App clause of the datatype definition below. +

t = 
+   t_Var "termvar"  
+ | t_Lam "termvar" "t"  ("\<lambda> _ . _" 60)
+ | t_App "t" "t"  ("_\<bullet>_" 50)
+

+Definitions can be annotated with +isasyn and/or isaprec homomorphisms similarly, e.g. as below. +

+    defn
+    t1 –> t2 ::  :: reduce :: ” {{ isasyn [[t1]] —> [[t2]] }}  by 
+

+This generates syntax and translations blocks as below. +

inductive_set reduce :: "(t*t) set"
+and  "reduce'" :: "t => t =>  bool" ("_ ---> _" 50)
+where "(t1 ---> t2) ==  ( t1 , t2 ) : reduce"
+

+Symbolic terms in definitions are printed using any production or +definition syntax. This (especially with xsymbol turned on) makes the +current goal state during Isabelle proof development much more +readable.

Further, there is a command line option -isa_syntax true. If +this is set then the tool generates Isabelle syntax annotations from +the source syntax. For example, the source file production for the +t_Lam clause is +

+    | \ x . t             ::   :: Lam   {{ isaprec 60 }}
+

+and the terminals grammar contains a mapping from \ to \<lambda>: +

+  terminals :: ’terminals_’ ::=
+    | \                   ::   :: lambda  {{ tex \lambda }}  {{ isa \<lambda> }}
+    | –>                 ::   :: red     {{ tex \longrightarrow }} {{ isa —> }}
+

+This is used (just as for LaTeX homs) to generate the ("\<lambda> _ . _" 60) +in the datatype definition above.

This functionality is limited in various ways: +(1) the full range of Isabelle precedence and associativity +specifications are not supported; +(2) the automatically generated syntax annotations are somewhat crude, +especially w.r.t. spacing and parenthesisation; +(3) syntax annotation on meta productions is not propertly supported; +and +(4) it would be desirable to have more fine-grain control of whether +to automatically generate annotations: per-production, per-rule, and +per-file.

+

21  Isabelle code generation example

The Isabelle/Coq/HOL code generation facilities can be sometimes used to +generate (variously) OCaml and SML code from the Isabelle/Coq/HOL +definitions produced by Ott.

For example, the test10st_codegen.thy file uses Isabelle +code generation to produce SML code to calculate the possible +reductions of terms in the test10st.ott simply typed lambda +calculus.

theory test10st_codegen 
+imports test10st_snapshot_out Executable_Set
+begin
+
+ML "reset Codegen.quiet_mode"
+
+(* Code generation for the test10st simply typed lambda calculus. *)
+
+constdefs
+ ta :: t
+"ta == (t_App (t_Lam ''z'' (t_Var ''z''))) (t_Lam ''y'' (t_Var ''y''))"
+;
+
+code_module Test10st_codegen file "test10st_codegen.ml" contains 
+(*is_v
+tsubst_T
+tsubst_t*)
+reduce_ta  = "(ta,_):reduce"
+
+
+(* ...to build and demo the resulting test10st_codegen.ml code...
+
+Isabelle test10st_codegen.thy
+...`use' that...
+
+...in a shell...
+isabelle
+use "test10st_codegen.ml";
+open Test10st_codegen;
+
+...a test term...
+ta;
+val it = t_App (t_Lam (["z"], t_Var ["z"]), t_Lam (["y"], t_Var ["y"]))
+
+...a sample reduction...
+DSeq.hd(reducep__1 ta);
+val it = t_Lam (["y"], t_Var ["y"]) : Test10st_codegen.t 
+
+*)
+
+end
+
+

22  Reference: Command-line usage

A good place to get started is one of the test +make targets in the ott directory, e.g. +

test10: tests/test10.ott
+           bin/ott                                                \
+                  -i tests/test10.ott                             \ 
+                  -o out.thy -o out.v -o outScript.sml            \
+                  -o out.tex                                      \
+                  -parse ":t:  (\z.z z) y"                        \                  
+           && ($(LATEX) out; $(DVIPS) out -o)
+

When make test10 is executed, ott: +

  • +reads the source file tests/test10.ott +
  • (if one also specifies -show_post_sort true and -show_defns +true) prints on standard output various diagnostic information, +including ASCII versions of the grammar and +inductive definitions. +By default these are coloured (using +vt220 control codes) with metavariables in red, nonterminals +in yellow, terminals in green, and object variables in white. +Scanning over this output quickly picks up some common errors. +
  • parses the symbolic term (\z.z z) y using the t +grammar and prints the result to standard output +
  • generates Isabelle definitions in the file out.thy +
  • generates Coq definitions in the file out.v +
  • generates HOL definitions in the file outScript.sml +
  • generates a LaTeX document in the file out.tex, with a +standard document preamble to make it self-contained. +

+That LaTeX document is then compiled and converted to postscript.

For convenience, input files can also be listed at the end of the command line: +

  ott [options] <file1> ... <filen>
+

is equivalent to +

  ott -i <file1> ... -i <filen> [options]
+

The %.out Makefile target runs ott with common +defaults on the file %.ott, so for example executing make tests/test10.out +runs ott on tests/test10.ott, generating all outputs. There are +also targets  %.coq.out,  %.hol.out, and + %.isa.out, to generate just LaTeX and the code for one proof +assistant, and  %.tex.out, to generate just LaTeX.

The ott command-line options (with default values where applicable) are +shown below. +

Ott version 0.28   distribution of Mon 27 Nov 2017 17:18:55 GMT
+
+usage: ott <options> <filename1> .. <filenamen> 
+  (use "OCAMLRUNPARAM=p  ott ..." to show the ocamlyacc trace)
+  (ott <options> <filename1> .. <filenamen>    is equivalent to
+   ott -i <filename1> .. -i <filenamen> <options>)
+
+  -i <filename>                      Input file (can be used multiple times)
+  -o <filename>                      Output file (can be used multiple times)
+  -writesys <filename>               Output system definition
+  -readsys <filename>                Input system definition
+  -tex_filter <src><dst>             Files to TeX filter
+  -coq_filter <src><dst>             Files to Coq filter
+  -hol_filter <src><dst>             Files to HOL filter
+  -lem_filter <src><dst>             Files to HOL filter
+  -isa_filter <src><dst>             Files to Isabelle filter
+  -ocaml_filter <src><dst>           Files to OCaml filter
+  -merge <false>                     merge grammar and definition rules
+  -parse <string>                    Test parse symterm,eg ":nontermroot: term"
+  -fast_parse <false>                do not parse :rulename: pseudoterminals
+  -signal_parse_errors <false>       return >0 if there are bad defns
+  -picky_multiple_parses <false>     Picky about multiple parses
+  -quotient_rules <true>             Quotient rules, as per {{ quotient-with ntr }} homs
+  -generate_aux_rules <true>         Generate auxiliary rules or constructor arguments from {{ aux ... }} homs
+  -aux_style_rules <true>            Auxiliary rules (true) vs constructor arguments (false)
+  -output_source_locations <0>       Include source location info in output (0=none, 1=drules, 2=grammar+drules)
+  -colour <true>                     Use (vt220) colour for ASCII pretty print
+  -show_sort <false>                 Show ASCII pretty print of syntax
+  -show_defns <false>                Show ASCII pretty print defns
+  -tex_show_meta <true>              Include meta prods and rules in TeX output
+  -tex_show_categories <false>       Signal production flags in TeX output
+  -tex_suppress_category <[]>        Suppress productions and rules with this category in TeX output
+  -tex_suppress_ntr <[]>             Suppress nonterminal root in TeX output
+  -tex_colour <true>                 Colour parse errors in TeX output
+  -tex_wrap <true>                   Wrap TeX output in document pre/postamble
+  -tex_name_prefix <string>          Prefix for tex commands (default "ott")
+  -isabelle_primrec <true>           Use "primrec" instead of "fun"
+                                       for functions
+  -isabelle_inductive <true>         Use "inductive" instead of "inductive_set"
+                                       for relations
+  -isa_syntax <false>                Use fancy syntax in Isabelle output
+  -isa_generate_lemmas <false>       Lemmas for collapsed functions in Isabelle
+  -coq_avoid <1>                     coq type-name avoidance
+                                       (0=nothing, 1=avoid, 2=secondaryify)
+  -coq_expand_list_types <true>      Expand list types in Coq output
+  -coq_lngen <false>                 lngen compatibility
+  -coq_names_in_rules <true>         Copy user names in rule definitions
+  -coq_use_filter_fn <false>         Use list_filter instead of list_minus2 in substitutions
+  -ocaml_include_terminals <false>   Include terminals in OCaml output (experimental!)
+  -pp_grammar                        (debug) print term grammar
+  -dot <filename>                    (debug) dot graph of syntax dependencies
+  -alltt <filename>                  (debug) alltt output of single source file
+  -sort <true>                       (debug) do topological sort
+  -process_defns <true>              (debug) process inductive reln definitions
+  -showraw <false>                   (debug) show raw grammar
+  -ugly <false>                      (debug) use ugly ASCII output
+  -no_rbcatn <true>                  (debug) remove relevant bind clauses
+  -lem_debug                         (debug) print lem debug locations
+  -help                              Display this list of options
+  --help                             Display this list of options
+
+

23  Reference: The language of symbolic terms

A syntax definition conceptually defines two different languages: that +of concrete terms of the object language, and that of symbolic terms +over the object language. +The former includes concrete variables (if nontrivial lex homs +have been specified for metavariables). +The latter includes the former but also +allows symbolic metavariables and nonterminals. +Symbolic terms may also include the production-name +annotations mentioned in §3. +For a syntax definition with list forms (c.f. §12) symbolic +terms also include various list constructs. +A simplified abstract syntax of symbolic terms is shown in +Figure 17, omitting list forms. In this section we give an +informal definition of the full concrete syntax of symbolic terms. +

+
+
Figure 17: Mini-Ott in Ott: symbolic terms
+

The premises and conclusions of inductive definition rules are +symbolic terms. +The language of symbolic terms is defined informally below, with interpretation functions [[_]] that map defined entities into grammar clauses.

For a rule rule   = +

+
nontermroot1   ,   ..   ,   nontermrootn ::   ’’   ::=   prod1   ..   prodm 

+we have +

+
+ + + + +
 [[rule]]::= 
 |nontermroot suffix(1) 
 |[[prod1]] 
 |..  
 |[[prodm]] 

(1) for each nontermroot in the set +{nontermroot1   ,   ..   ,   +nontermrootn } +and for each nontermroot defined by any rule′ +which is declared as a subrule of this rule.

For a production prod   = +

+
|   element1   ..   elementm   ::   ::   prodname

+we have +

+
+ + +
 [[prod]]::= 
 |[[element1]]   ..   [[elementm]] 
 |:prodname:  [[element1]]   ..   [[elementm]] 

For an element there are various cases. +

  1. +For a terminal terminal + +
    +
     [[terminal]]::=terminal
    +
  2. For a nonterminal nontermroot   suffix + +
    +
     [[nontermroot   suffix]]::=[[rule]] 
    +where rule includes nontermroot among the +nonterminal roots it defines. (Note that this does not depend on what suffix was used in the grammar, and similarly for the metavar case below.)
  3. For an index variable indexvarroot + +
    +
     [[indexvarroot]]::=indexvarroot′
    +for each indexvarroot′ defined by the indexvar +definition that defines indexvarroot.
  4. For a metavariable metavarroot   suffix + +
    + + +
     [[metavarroot   suffix]]::= 
     |metavarroot′ suffix(1) 
     |variable 
    +(1) for each metavarroot′ defined by the metavar +definition that defines metavarroot. +(2) where variable ranges over all the strings defined by +the lex regexp of the metavar +definition that defines metavarroot, except for any string +which can be parsed as a nonterminal, metavariable or terminal of the syntax +definition. +
  5. A list form element element could be any of the following, either without a separating terminal: + +
    + + + + +
    element1 .. elementn  +  dots   +element′1 .. element′n 
    </  element1 .. elementn   //   indexvar   /> 
    </  element1 .. elementn   //   indexvar   IN   indexvar′   /> 
    </  element1 .. elementn   //   indexvar   IN   number   dots   indexvar′   /> 
    </  element1 .. elementn   //   indexvar   IN   number   dots   indexvar′-1   /> 
    +or with a separating terminal: + +
    + + + + +
    element1 .. elementn  +  terminal   dots   terminal   +element′1 .. element′n 
    </  element1 .. elementn   //  terminal //  indexvar   /> 
    </  element1 .. elementn   //  terminal //  indexvar   IN   indexvar′   /> 
    </  element1 .. elementn   //  terminal //   indexvar   IN   number   dots   indexvar′   /> 
    </  element1 .. elementn   //  terminal //   indexvar   IN   number   dots   indexvar′-1   /> 
    +In any of these cases the interpretation [[element]] is the lists (separated by the terminal if one was specified) of concrete list entries and of list forms. +Without a separating terminal, this is: + +
    + + + + + + + + + +
     [[element]]::=(concrete_list_entry | list_form)*(2), (3)
     
    concrete_list_entry::=[[element1]]   ..   [[elementn]] 
     
    list_form::= 
     |[[element1]]   ..   [[elementn]]  + dots′  +[[element′1]]   ..   [[element′n]](1) 
     |</  [[element1]] .. [[elementn]]   //  indexvar″   /> 
     |</  [[element1]] .. [[elementn]] //  indexvar″   IN   indexvar‴   /> 
     |</  [[element1]] .. [[elementn]] //   indexvar″   IN   number′   dots′   indexvar‴   /> 
     |</  [[element1]] .. [[elementn]] //   indexvar″   IN   number′   dots′   indexvar‴-1   /> 
    +This is subject to constraints: (1) that +[[element1]]   ..   [[elementn]] +and +[[element′1]]   ..   [[element′n]] can be +anti-unified with exactly one varying index; (2) if the list has only +concrete entries (i.e., no list forms), its length must meet +the constraint of any dots in the +element.

    With a separating terminal, we have: +

    +
    +
     [[element]]::=є | (concrete_list_entry | list_form) +(terminal (concrete_list_entry | list_form))*

In the above +

+
+ + + + + + + + +
dots::=.. | ... | .... 
number::=0 | 1  
suffix::=suffix_item* 
suffix_item::= 
 |(0 | 1 |2 | 3 |4 | 5 |6 | 7 |8 | 9)+(longest match) 
 |_ 
 |’ 
 |indexvar 
 |indexvar-1 

Further, whitespace (' '|'\010'|'\009'|'\013'|'\012') is allowed before any token except a those in a suffix, and nonterminals, metavariables, index variables, and terminals that end with an alphanumeric character, must not be followed by an alphanumeric character.

The tool also builds a parser +for concrete terms, with fake nonterminal roots concrete_ntr +for each primary ntr of the syntax definition. One can +switch to concrete-term parsing with a :concrete: annotation, +as in the example +

\[ [[ :concrete: \Z1<:Top. \x:Z1.x ]]\]
+

+shown in Figure 10. Below such an annotation, only concrete terms +are permitted, with no further annotation, no symbolic nonterminals or +metavariables, no list dot forms or comprehensions, etc.

Parsing of terms is done with a scannerless GLR parser over character-list +inputs. The parser +searches for all parses of the input. If none are found, the ASCII +and TeX output are annotated no parses, with a copy of the +input with *** inserted at the point where the last token was +read. This is often at the point of the error (though if, for +example, a putative dot form is read but the two element lists cannot +be anti-unified, it will be after the point of the error). +If multiple parses are found, the TeX output is annotated +multiple parses and the different parses are output to the +console in detail during the Ott run.

The GLR parser +achieves reasonable performance on the small symbolic terms that are +typical in semantic rules. Its performance on large (whole-program +size) examples is untested.

+

24  Reference: Generation of proof assistant definitions

This section briefly summarises the steps involved in the generation +of proof assistant definitions from an Ott source file. For a description of the locally-nameless backend, refer to http://moscova.inria.fr/ zappa/projects/ln_ott/. +

+

24.1  Generation of types

  • +The primary metavariable roots and primary nonterminal roots are used +directly as the names of proof assistant types, except where they +have a hom specifying a root-overriding string. +
  • Type abbreviation declarations are produced for metavars, in the +source-file order, skipping metavars or nonterminals defined with phantom. +
  • Type generation considers each rule of the user’s source grammar +except those for formula and terminals (or the +synthesized rules for the syntax of judgements or user_syntax). +
  • The subrule order is analysed to identify the top elements. For +each of those, a proof assistant type will be generated — either a +free type (coq: inductive, isa: +datatype, hol: Hol_datatype), or if there is a +type hom for the proof assistant in question, a type abbreviation. +No types are generated for the non-top elements, as they will be +represented as predicates over the top free type above them. +
  • For the former, each non-meta production of the rule +gives rise to a constructor. The production name (with any per-rule +prefix already applied) is used directly as the constructor name. +The (curried) constructor argument types are taken from the +types associated with the metavariables and nonterminals mentioned +in the production body. +
  • Rules (within each grammar block, if -merge +false, or all rules, if -merge true) are topologically sorted according to the dependency order +(a free-type rule directly depends on another if one of its non-meta +productions includes a nonterminal of the other; dependencies for rules with a type-hom +for the proof assistant in question +are obtained from a crude lexing of the body of the type hom). +We then generate mutually recursive type +definitions for connected components, in an order consistent with +the dependencies. +
  • For productions that involve list dot forms or list comprehension +forms, for HOL and Isabelle we produce constructors with argument +types that involve native list types. For Coq, however, we +synthesise an additional inductive type for each list-of-tuples that arises +(both for those that occur in the grammar and for others required in +the translations of inductive definitions) and include them in the +topological sort. +
+

24.2  Generation of functions

+A small number of library functions (list_mem, +list_minus,...) are included in the output if they are +required.

Several Coq list functions (map, make, unmake, nth, app) are generated +for each synthesized list type.

The definitions of the more interesting functions (subrule predicates, +binding auxiliaries, free variable functions, and substitutions) are +generated over the free types generated for the maximal elements of the +subrule order (generation of these functions for rules with type homs +is not supported). The definitions are by pattern-matching and +recursion. +The patterns are generated by building canonical symbolic terms from +the productions of each relevant rule. +The recursion is essentially primitive recursion: +for Coq we produce Fixpoints or Definitions +(the latter is sometimes needed as the former gives an error in the case where there is no +recursion); +for Isabelle we produce primrecs (or, experimentally, funs); +for HOL we use an ottDefine variant of the Define +package. +In general we have to deal both with the type dependency +(the topologically sorted mutually recursive types described above) +and with function dependency — for example, for subrule predicates +and binding auxiliaries we may have multiple mutually recursive +functions over the same type.

For Coq the function generation over productions that involve list +types must mirror that, so we generate auxiliary functions +that recurse over those list types.

For Isabelle the primrec package does not support +definitions involving several mutually recursive functions over the +same type, so for these we generate single functions calculating +tuples of results, define the intended functions as projections of +these, and generate lemmas (and simple proof scripts) characterising +them in terms of the intended definitions. +Further, it does not support pattern matching involving nested +constructors. We therefore generate auxiliary functions for +productions with embedded list types. Isabelle tuples are treated as +iterated pairs, so we do the same for productions with tuples of size +3 or more. +Isabelle also requires a function definition for each recursive type. +In the case where there are multiple uses of the same type +(e.g. several uses of t list in different productions) all the +functions we wish to generate need identical auxiliaries. As yet, the +tool does not generate the identical copies required.

If the option -isabelle_primrec is set to false, then +Ott uses the fun package instead of the primrec package. +Since at the time of writing Isabelle 2008 is not capable of proving +automatically termination of all the funs that Ott generates, +this feature should be considered experimental.

For HOL the standard Define package tries an automatic +termination proof. For productions that involve list types +our generated functions involve various list functions which prevent +those proofs working in all cases. +We therefore use an ottDefine variant (due to Scott Owens), +with slightly stronger support for proving termination of +definitions involving list operators.

+

24.2.1  Subrule predicates

We generate subrule predicates to carve out the subsets of each free +proof assistant type (from the maximal elements of the subrule order) +that represent the rules of the grammar. +The non-free rules are the least subset of the rules that either +(1) occur on the left of a subrule (<::) declaration, or +(2) have a (non-meta) production that mentions a non-free rule. +Note that these can include rules that are maximal elements of the +subrule order, e.g. if an expression grammar included a production +involving packaged values. +The subrule predicate for a type is defined by pattern matching over +constructors of the maximal type above it — for each non-meta +production of the maximal type it calculates a disjunction +over all the productions of the lower type that are subproductions of +it, invoking other subrule predicates as appropriate.

+

24.2.2  Binding auxiliaries

+The binding auxiliary functions calculate the intuitive semantics of auxiliary functions defined in bindspecs of the Ott source file. Currently these are represented as proof assistant lists of metavariables or nonterminals (arguably set types should be used instead, at least in Isabelle).

+

24.2.3  Free variables

+The free variable functions simply walk over the structure of the free proof assistant types, using any bind specifications (and binding auxiliaries) as appropriate. +For these, and for substitutions, we simplify the generated functions by using the dependency analysis of the syntax to exclude recursive calls where there is no dependency.

+

24.2.4  Substitutions

+The generated substitution functions also walk over the structure of the free proof assistant types. +For each production, for each occurrence of a nonterminal nt within it, we first calculate the things (of whatever type is in question) binding in that nt, i.e. those that should be removed from the domain of any substitution pushed down into it. There are two cases: +(1) the mse' from any bind mse' in nt; +(2) nt itself if it occurs in the mse'' of any bind mse'' in nt'', i.e.  +nt itself if it is directly used to bind elsewhere. +List forms within bindspecs are dealt with analogously. +

The substitution function clause for a production is then of one of two forms: +either (1) the production comprises a single element, of the nonterminal or metavariable that we are substituting for, and this is within the rule of the nonterminal that it is being replaced by, or (2) all other cases. +For (1) the element is compared with the domain of the substitution, and replaced by the corresponding value from the range if it is found. +For (2) the substitution functions are mapped over the subelements, having first removed any bound things from the domain of the substitution.

This is all done similarly, but with differences in detail, for single and for multiple substitutions.

+

24.3  Generation of relations

+The semantic relations are defined +with the proof-assistant inductive relations packages +(coq: Inductive, +isa: inductive, +hol: Hol_reln). +They use the mutual recursion structure that is given by the user, +with each defns block giving rise to a potentially mutually +recursive definition of each defn inside it. +(It is debatable whether it would be preferable to do an automatic dependency analysis and topological sort, as for the syntax.) +Each definition rule gives rise to an implicational clause, essentially +that the premises (Ott formulas) imply the conclusion (an Ott symbolic term of whichever judgement is being defined). +In addition: +

  • +Symbolic terms are transformed in various different ways: +
    • +Nodes of non-meta productions are output as applications of the appropriate proof-assistant constructor (and, for a subrule, promoted to the corresponding constructor of a maximal rule). +
    • Nodes of meta productions are transformed with the user-specified homomorphism. +
    • Nodes of judgement forms are represented as applications of the defined relation in Coq and HOL, and as set-membership assertions in Isabelle. +
    • Lists of formulae (the formula_dots production) are special-cased. +
    +
  • For each nonterminal of a non-free syntax rule (as in §24.2.1) that occurs, +e.g. a usage of v' where v<::t, an additional premise invoking the subrule predicate for the non-free rule is added, e.g. is_v v'. +
  • The set of symbolic terms of the definition rule are analysed together to identify list forms with the same bounds. A single proof assistant variable is introduced for each such, with appropriate projections and list maps/foralls at the usage points. +
  • For Coq, auxiliary defined relations are introduced for list forms. +
  • For Coq, as the projections from list forms involve (Ott-generated) nth functions that return option types, for any such projection a pattern-match against Some is introduced as an additional premise. +
  • For Coq and HOL, explicit quantifiers are introduced for all variables mentioned in the rule. +
+

25  Reference: Summary of homomorphisms

Homomorphisms can appear in various positions in an Ott source +file. The table below summarises their meanings. A * indicates that arguments are meaningful for that usage (e.g. [[e1]] in a production mentioning a nonterminal or metavariable +e1).

+ + + + + + +
a metavar or indexvar declaration, after one of the defined metavar/indexvar roots, or
a rule, after one of the defined nonterminal +roots
tex*LaTeX typesetting for symbolic variables with that root
isa/coq/hol/ocaml Isabelle/Coq/HOL/OCaml root overriding string (1)
repr-locally-nameless use a locally-nameless representation (Coq backend only)
 
+ + + + + + + + + + + + + + + + +
a metavar or indexvar declaration, after the ::=
isa Isabelle representation type
coq Coq representation type
hol HOL representation type
ocaml OCaml representation type
tex*LaTeX typesetting for symbolic variables
com comment to appear in LaTeX syntax definition
coq-equality Coq proof script to decide equality over the representation type
repr-locally-nameless (Coq only) use a locally-nameless representation
phantom suppress the representation type definition in theorem prover output
lex regular expression for lexing concrete variables
texvar*LaTeX typesetting for concrete variables
isavar*Isabelle output for concrete variables
holvar*HOL output for concrete variables
ocamlvar*OCaml output for concrete variables
 
+ + + + + + + + + + + + + + + + + + +
a rule, after the ::=
isa Isabelle representation type, if a non-free type is required
coq Coq representation type, if a non-free type is required
hol HOL representation type, if a non-free type is required
ocaml OCaml representation type, if a non-free type is required
tex*LaTeX typesetting for symbolic variables
com*comment to appear in LaTeX syntax definition
coq-equality Coq proof script to decide equality over the representation type
coq-universe Coq universe (e.g. Type) for the representation type
phantom suppress the representation type definition in theorem prover output
aux(*)construct an auxiliary grammar rule with a single production
icho*shorthand for identical coq, isa, hol, and ocaml homs
ichlo*shorthand for identical coq, +isa, hol, lem, and ocaml homs
ich*shorthand for identical coq, isa and hol homs
ic*shorthand for identical coq and isa homs
ch*shorthand for identical coq and hol homs
ih*shorthand for identical isa and hol homs
 
+ + + + + + + + + + + + + + + + +
a production
isa*Isabelle output, for a non-free (meta) production
coq*Coq output, for a non-free (meta) production
hol*HOL output, for a non-free (meta) production
ocaml*OCaml output, for a non-free (meta) production
tex*LaTeX typesetting for symbolic terms
texlong typeset as long production
com*comment to appear in LaTeX syntax definition
order*specify order of arguments to prover or Ocaml constructor
isasyn*Isabelle mixfix syntax output
isaprec Isabelle mixfix syntax precedence string
ich*shorthand for identical coq, isa and holhoms
ic*shorthand for identical coq and isa homs
ch*shorthand for identical coq and hol homs
ih*shorthand for identical isa and hol homs
 
+ + + + + +
a production of the terminals grammar
isa Isabelle output, for terminals in default generated Isabelle mixfix declarations
tex LaTeX default typesetting for terms
com*comment to appear in LaTeX syntax definition
 
+ + + + + + + + + + + +
a defn, before the by
tex*LaTeX typesetting for symbolic terms
com*comment to appear in LaTeX syntax definition
isasyn*Isabelle mixfix syntax output
isaprec Isabelle mixfix syntax precedence string
lemwcf Lem witness, check, and functions spec for indrelns
 
a homs section clause (for a production or a definition)
as in the above production and defn forms
 
+ + + +
a group of defns, after the ::=
coq-universe Coq universe (e.g. Type) for the representation type
 
+ + + + + + + + + + +
an embed section
isa embedded Isabelle output
coq embedded Coq output
hol embedded HOL output
ocaml embedded OCaml output
tex embedded LaTeX output
tex-preamble embedded LaTeX output, appearing in the LaTeX preamble
coq-lib do not generate definitions for the listed helper functions
isa-auxfn-proof Isabelle proof script
isa-subrule-proof Isabelle proof script
+ + +
in a subrule, substitution or function definition
isa-proof Isabelle proof script

(1) This is occasionally useful to work around a clash between a +metavar or nonterminal primary root and a proof assistant symbol, +e.g. value in Isabelle or T in HOL.

+

26  Reference: The Ott source grammar

+This is automatically generated (by mly-y2l) from the +ocamlyacc grammar for Ott. +

The lexing of Ott source files is context-dependent; this does not +show that.

Not everything in the grammar is fully supported — in particular, +option element forms, non-dotted element list forms, the three names distinctness forms of +bindspecs, and context rules.

+

27  Reference: Examples

The project web page +

+http://www.cl.cam.ac.uk/users/pes20/ott/ +

+gives a variety of examples. Some of these, and additional +small examples, are included in the distribution in the tests +directory. Typically they can be built using the Makefile in +the ott directory, e.g. typing make test10 or (more generally) make tests/test10.out) there.

+ + + + + + + + + + + + + + + + + + +
test10.ottuntyped CBV lambda
test10st.ottsimply typed CBV lambda
test8.ottML polymorphism example
test7a.ottPOPLmark Fsub example (without records)
test7b.ottPOPLmark Fsub example (with records)
leroy-jfp96.ottLeroy module system
lj.ottLJ: Lightweight Java
test7t.mngwhole-document tex mng source
 (make test7afilter to build)
test7tt.mngfragment tex mng source
test11.ottsubrule example
test12.otttopological sort example
test13.ottsmall bindspec fragment
test10st_snapshot_out.thysnapshot of generated Isabelle from test10st.ott
test10st_metatheory_autoed.thyIsabelle proof script for type +preservation and progress
test10st_codegen.thyIsabelle code generation script for reduction
test10_isasyn.ottIsabelle mixfix syntax example
test10st_metatheoryScript.smlHOL proof script for type preservation and progress
test17.10.ottlist comprehension examples

The examples/tapl directory contains several examples taken from the book ‘Types and Programming Languages’ by Benjamin Pierce. The make targets, listed below, combine Ott source files +following roughly the TinkerType component structure used in TAPL.

+ + + + + + + + +
sys-boolbooleans (p34)
sys-aritharithmetic expressions (p41)
sys-untypeduntyped lambda-calculus with booleans
sys-puresimplesimply-typed lambda-calculus
sys-tybooltyped booleans
sys-sortoffullsimple 
sys-roughlyfullsimple 
sys-puresub 
sys-purercdsub 

Other examples can be found on the locally-nameless backend web page.

+

Acknowledgements

+We thank +the Ott users for their feedback, especially Matthew Parkinson; +the other members of the POPLmark team, especially Benjamin +Pierce, Stephanie Weirich, and Steve Zdancewic, for +discussions; +and Keith Wansbrough, Matthew Fairbairn, and Tom Wilkie, for their work +on various Ott predecessors.

We acknowledge the support of EPSRC grants +GR/T11715, EP/C510712, and EP/F036345, a Royal Society +University Research Fellowship (Sewell), an EPSRC Leadership +Fellowship (Sewell), +EPSRC Programme Grant, EP/K008528/1 REMS Rigorous Engineering of +Mainstrem Systems, +and ANR grant ANR-06-SETI-010-02 (Zappa Nardelli).

+

References

+[ABF+05]
+Brian E. Aydemir, Aaron Bohannon, Matthew Fairbairn, J. Nathan Foster, +Benjamin C. Pierce, Peter Sewell, Dimitrios Vytiniotis, Geoffrey Washburn, +Stephanie Weirich, and Steve Zdancewic. +Mechanized metatheory for the masses: The POPLmark Challenge. +In Proc. TPHOLs, LNCS 3603, 2005.
[FGL+96]
+Cédric Fournet, Georges Gonthier, Jean-Jacques Lévy, Luc Maranget, and +Didier Rémy. +A calculus of mobile agents. +In Proc. CONCUR ’96, LNCS 1119, 1996.
[Ler96]
+Xavier Leroy. +A syntactic theory of type generativity and sharing. +Journal of Functional Programming, 6(5):667–698, 1996.
[LP03]
+Michael Y. Levin and Benjamin C. Pierce. +Tinkertype: A language for playing with formal systems. +Journal of Functional Programming, 13(2), March 2003.
[Pie02]
+Benjamin C. Pierce. +Types and Programming Languages. +MIT Press, 2002.
[SSP07]
+Rok Strniša, Peter Sewell, and Matthew Parkinson. +The Java Module System: core design and semantic definition. +In Proceedings of OOPSLA 2007, the 22nd ACM SIGPLAN +International Conference on Object-Oriented Programming, Systems, Languages +and Applications (Montreál), October 2007. +15pp.
[SZNO+07]
+Peter Sewell, Francesco Zappa Nardelli, Scott Owens, Gilles Peskine, Thomas +Ridge, Susmit Sarkar, and Rok Strniša. +Ott: Effective tool support for the working semanticist. +In Proceedings of ICFP 2007: the 12th ACM SIGPLAN International +Conference on Functional Programming (Freiburg), October 2007. +12pp.
[SZNO+10]
+Peter Sewell, Francesco Zappa Nardelli, Scott Owens, Gilles Peskine, Thomas +Ridge, Susmit Sarkar, and Rok Strniša. +Ott: Effective tool support for the working semanticist. +Journal of Functional Programming, 20(1):70–122, January 2010. +Invited submission from ICFP 2007.
+
+1
Strictly, clauses +of primitive recursive function definitions from symbolic terms to strings, here of LaTeX code. +
+ + + + + +
This document was translated from LATEX by +HEVEA.
+ diff --git a/vendors/ott/built_doc/top2.pdf b/vendors/ott/built_doc/top2.pdf new file mode 100644 index 0000000000000000000000000000000000000000..217435caddf5e6d46bfa32374ef5575ee8dc6be4 GIT binary patch literal 450300 zcmY!laBC%lmg1t89dnMlf zEC2I!qIvEHwRL6-ZgX&~e!P3jr2ET1Nv(Vput&rwXIxi^uBoOy;$r`?@D{l=B8X0ZbH}6gGPNPiWi%E;ywy)LTIsAHpd@pa~@vj$s znHDWmj9e{QCC$qs?&_Vof%n|g#Cs8+w^_4R&XAh3IC0;D=NxVeSKs@*N_EB(+iSWk z%?q_Y9+#4MySS?V^QW5*e>{aLNuRC7;)bup)bIuwr#lz}t6w*FztlZ##Bc+3|VUO7Y~+y*fJX73C{-92ZJ^5^}n;$kNm$NRqB@Q25S0`=}Ft#fBVtVU{-ITA_F23|EXbEea z$Kt+)Pc4yOBFbSF-$547n@_#!160>CNhpVJnC*P4quqx6ok2DSyFkv?dz-6`oCMah zc%Ip^qEphmUuarS($7hM=X}Z5&+=RAza(9jUr26~^RXiax8CwsUfFlFBPGqFPhi#B zx=Hol?99wB&j@@i)h*kTd4}KRsO;nNWn0f3ZtaQpI_kFjhLB5`bnc305*PKiGt6N5 z$GJbuL#(K0;+DlBkE}IsCTIFJeaOh=mF6=JZAvuT$}=x_=6CTey?ry-d^GK(zTMq3 z(WZFk#G>``Pn9Od@n4?0NpI@)3!m0!d%v3Qb36We#)%Ih4&u!-TMW;duoU0=V{SFU zL(4hLd`r~s&Fe3IFFJErZ+}u|DdRSt1p9Eyg;Me%!JjX`-cxexSeEPi=dl})@Y=~< zxvH&0%nbvH0@%C|=)o~z$Bsaji`ZMJ^Hbn)DYTifII>+hIUB$&DC ztU0Tz+vO9h;_c#|=LWZMEy|SMw#+_9p8 zk0QIDZ(w!We#yktNNA>ht4FTjAs>aUYis3REzfLCs+?;0MGJD4|wMlY0kF?v;+&a8{#MTDiOW)>Q!{&P;Y_3hCfKz76j%-2B z2A7-j)0CtY)EwW>dYGsjB{a=rpKp}P8P!;m&L#P~=9}Bd%AZ^(T{V zsV2XE;_zwlLeA3UPe)3gT1fm;n{;8)SD)2hpOxmEnzh~NYX6hulTQUzy`IneHnB8$ zON*;}j$-GoMX4*Q#6{(&U9vKi^F5%Xt;D_O1Z%^FKi#;vpYG<`d3%Ze8Y7i9&-;rO%5~Z5<*Ko+=PkUoWqAnG z$`8EH7D-H5dFtN7?Z=L%?6iGv9Jb$HAoj9ck&&$r!TK63HtS(*bd!u|od4fFKoBCt#?DmE{VHY(K zW-Q$3ocl=7Nn?`Gw^N&};~D&gvb8y9ve<-#F0GkkFm-`lsjA~n{|6qydJnd&=9(bG zcGz&~(gSIU8vEG(oBTM-P*)@~(Lzn-QG&n>?R2}R)ot3ytU7dW{u*-$rsGqmZC-Hw#@-28lKopQ7V_6s>-~Or?84c-X`l1T6tDB0_-oZJ z(-dyNCA}dzMV7<2(tC@$i)q#Ms?7&-ceK5$T(J5+PZ_uQTj#TzACxjz1h<^e47oco zy6NSLi;pP$P=J+Ss)@5}<`iZxSRzvr z7cH+Kx9Y4!<8n&{Myb!7%f7$JVXt}Xe!%?HfL*NC+EfMuBiq^d_r$d zoBYX}Wh1|5ZJnj$9ecawu6CS9gHN4qcIYgr>Tg&ZcKY6r?<`+u<~w8`j4R0a9<$=R z@Wyz#NAnVU4Ho=6Ub`Dt%VnBcqr5+d()9P1-yO}qP7 z^QiBqX$!v}4=OqGP)=CxoZ98rL(j1zPZ+&hGm-FnK|2wq|Z4_-Dq*EW8d4L zV^1Hi+b0_7vTym^i+;(C*K4d~9vU*(UaL8DW@Yq5-tVqWZXD;hS~Y6d-z)h)v(`>Q z^iP(NsP8j@&{Y9qyKFDK3$|clTx*)=DD!ac)itM|p1WmL#cS!hYeB@@OPikfPAWVf zWwumv`kVW*m3!5lsylmbulcfu`3;NJgbngje!ZT(KFH@n(t$}w_%>{E@!iAwG_SRL zMR-lRPkFfGr9ktIVplt>ZT;#dpSoK(ulRpu@d=wj9H8k|uav9Uh8LKP%E*T2n?G4+J9Ar9O zLV9i2h0o4=^7Nh-%j^~Aocn0c(aC3Kd3&C!SRL|GNNv80_{@7PUM0&zH9J>5H`x+s zb!*LvLrt!xv8$|nLfW-HFUra(Uz;5l(r(n=`KtL>ss0+HF6Gz@oaI+Or%rgsb9Lv+ znCXfJlcz`K2(hR2JUi`sooTmEW9wy>vhBH|oflqavpju}{;lq`2aE5=+h)O$HMKs5 zZ$yG_D|v<(t?;qtGg(nPb+f0YcQilF{jK^hG3jb5C%a9JVf6>>{ z@R@-6vUE44;L>ZI6El4-$%y}LTDOS#`{uXD0*|<4y@<@UEwq|BWy=%(r_ZKtw^Z@d zQGB=b>!z&xj>$Vr0=TXI4oT|nvWjdxT2ZVzkh zE8e-A^Lk5aSluIbhfWo6teCo|Mu*spVUlX3X1MU2ta zZ3`G~Zol@+*yG8&3RR1L)BJZdWyj<<9yq%3z|^BRgCDfC8`Qh+Tl^=8C;RX1)90_v zy{BX}*-7=j|AJNa?!Mb^^vo3g@zCnIpWv+TWj5*_2bbpEk8Zp4WL8#M_OmmY$@xxJ zDTfYPJh*x`-9Jiwo!H;#ALp5Vi>hlbGrI>z>eE)}`|evppFz&3D(I)S7u>)_UQovT9bduSUMk{MmBi;q66Qdci5X zOYdG@&}kiN9O-Iw#j5$QrKOGJ#^vu`L=~NxbKCy3U%C6`S4V6U{nTgNF1umzJ4mQ- z(T}_D+$!$asZV+mwNq;L_s!XD>--GoBwY9O((XAe|763Hg4OSvQ&M++HJs>K$BoJ*Iz_?{>KUJ@@jEzSW%c9t=f5-wmdP*3<7_Lj)(mdGVTSz6*~1L$Sn>1ppUx!VUn!NxZ$A4}y{l7o`r)`jZ-+Tnr?33_ zSMjydZau59-G#efmamR2vTc#!P_%My3ZARi{rUME*ZkVj#SZs`CfwyYen|NFwh7iA z&$s=oy#M6#xu#C;6?4^YSZ)97Cb4Sg?!4udhBuhbSpL0i*Lp!scy7*p2ie$_%Fa?- z?x|n&sS@Yk?!VmWxZ2!HyOvLWG1GsUes!2(*~{lk_^&Q9`?D}gZQfRXGaUhC^$(R7 zT2*JomTg_4Ao72|-t?vN>n%T7;!@So#Qg^&EE z|9^hGu>bP>f5iR!7gO_6pd$dOc`2Y#1JGCjh&C~>u;7A<85?2@DHt0OHKq^~nJ;r( zuulDp^0z{<4}HJw{-m)^d#vCfGLw<%NM(nLSD8+b_)L%gcA>RrLe7_*ms_;ubjOEg z_szAT*S}shtl6Dp8*lhW|L^~sPj7DbfAi|;@68{|j)w1_zt{HhOL?8%NL!os#HO_| z?|UcamHvCwv;5<^FLONiZ3_GDH1q1ur#J1bHs9NDk6W$vMO96jn`E-D`ZeiuChzCI zs%ttPXO&)3-r66-bvw6U!-i|8-i6LtzO-o5Z{2^+Rp~Wy>t?*wyC%Idm)f>aOLldp{KDtbFnQ{PCaX+vlFXUl_=`dY@!neY^SvALHk{uJ2&{KB@eF zB=_~=g}ihB^F9B3&+4x2;mB#32X)UJI&7eMIyZ668_CNvk9m9uwQ3IdZ0r#|@4HZZ z@%uG}PnF&uuGqox?nOn#TOAp0H-=)9>3hE`*=bdTY~CKtUh`;6{k;D#eJt*0D>^JY zH@}%>?y-Y>bB}FpOmBQ-_o7i|{=|E}Y7!z$Tf9Dalm{0-Sz%d!`1`r4)Y|T&jx4VH z$z6i->#rU9a?kR9?Bi_KsHD*E`kP+1e?7)=&AYOP+a|Pbp3X-N&!A>Tk!2U=Ebjce z-G9g8yd>q`w{zoi9hU9*=y~dG)nn5Lg`>OeT^=9Z@;yV*v1#V#YYQ1!eqL#dlwP~S zJW7Lq67S))9}{BqFBlj-Jm?m;_=Pp6Jxlj1-4)a3?m3%$l56@04ts9B0N*9%dmq@X zVrFN4RchB3dWm)agO5xx-={y=ldwUH!^3#*RkO8kOG;8Vgypxsi*pldl<+@4Wn191 z^i3+?+vH4jb7$(T;QbcIk^ZxwHZgaT!X{VEwtZ%&J35qmr>hwWohnEvU)0mBbR z3frVDziIq1d95=?C6|B8>=zp@7uzV7Gg~qp3og3kqFs9ORf)Y{#r0bDL+o;snWdXf zPL9($yV!BF*FmeJ|0bt?IL5nx^^jIk{`JC!1f})r7Y*xqejmuNczZRf>z;+;OPf;< z`3refKJ5?WP{}%yzqy*jxL#Ffo{V(($5W;C$F5&2caLTI&aj_hOV@8%RWNgc z(7knChV}f@xw{tc%3oA=pfz}0rf<*oZ31s!A7O*x6VS2SC- z9_P#EWHa0@Qs1zKLFDk=yT1JYS(mdW98ffq?ERN1lOsJZKzPQSP7bbxPt95djt6$I zH}{Bj`#0(79gvzmnQh8{^UG3+Y7sdNZB^`ZExNwk&drFDEcjN(bnXwwIXO1R5T_Gr zW>tO)xv4%C^FIjx*m6jHe`no|EZ0QY*5@MEZ8IDyy4F7rF!MP(k>QX-Rawytt~FDS zT->A@Va=j6$3@1#IjiI3(ie3+(NPP3IIOt*RQFuMS~I7&PPcfLNfrEHO})$e@W^GW zuWPTKd@XG>`9a~SPbW>2?>u2l4t(LNJXw)p)7@?k>$!T&T0*;HTm&!8P~mRUE8Y0P zMuNkA)`5MA`CQ-h9&OFsaQTbOms>A3PJYAqJ@)CX7p@mBXzFa1)0} zLH4!si=ro`T)Wm}v&QZ=-q2H<+nc%Ql!>+B`YD-<&Y4tA@sWJ2*FN*kXPuSzb_Ttl z^|C{jH9y*AAxlPApfJPH&dZ&A93^6Zj+^YdAarqW?-8wIEpaCd8nsv|f+tG)c z>^qa&_fE2i?qDwpWIx>D7WzCq>Z#PdINmB(bA3P8tuM8vPE0t%$d!KZWYg=N) z4x6dy?)~uM@01Ki-@lgxmF?e8oM;v2{OYV>BjBQly6SnBiR_Ic7isvtOOIhF0 z7`wI3Fs<(LwkY0z3_g3WRSI)NmGZ7g?Vs8(OGoC=S-r}q2XFt`#I~1x_39@pGyFd= zhdq{^?{wyarEcA#O>B$#uF6?vo!@78!ttT0((EXCsaG>jFm|qBGfkYhW#ZAWj-S6R z??_tTKDKrC5nsR6J6_J*XKhq6!=2NwLGysnuOn8EH~CGdiaoPaKU9Co`<=numKB!E zuGjTN+BAFam;U4<{79wTZSwxfF@x9`*DiQ9#yF~9)}-q zonq_mc{(P+Z2N4>l|B>a#p?)39SOSo*eyF;`J!$9#96Ty9BV?o%Y&w7ZI8{@|F~|- zgJlM`YbV`HT6uoazvZk;r~6LL6Zw8`i!Q@DUWv^bf|pJ&w-$6$@icAgcQu{Iy?yJh z=ymVjo)g}?ea^3m>MOIo4Oem(=>^BSer(eG64YiTwXE*Iry`f5`-P>ey;XSXd<29% zbS<}Tw_IAgbw97D{`c)uOP_kp%ug{-OFP~5Vd38HwWo}yZj1O~-gA1ISO4#voj$uY z_;)^Y)1O?w@br?W*Y0e4QSxs3iO~N6SJ*Zk&Rqjg8MVSrkKB*^ee>3@C(P|;}+|(_Ag#5 zv1-+m!i6WRADFFOxIN%Z%l!y3_5*W7HD_EWdt4+7g-hg^PfnKpQzZI z&uzDNYG>E2L|N6(YWJS@O_E<7`qqtGZ>><+rcIadHB@s^%>|u8|EJUVUac&dnDzbqWi7dHF1Bmy zMDMSe-m3qpwx>%g{>yp$h*{H=GJbn_E31oEG_Uxyul7~LKP}BaE3I0hev8PNHz_9O zJAd=M`X^DqdV@fNQ`CJ$QA9^OJzGh{~X|@9;f(Lu~_e$SNTCsvFarw1RTnJ~?_xk%}*?-@% z`f5Twwdw9>H-Ff8$Laqs-m?MyODFui z9dK0VzsTtg%4c7N|J&sE!`i?kbN|vOL1&xw!&a^S>R$biBBrY-jRldRey8Bex z;t#$SHk;bQ+>cjA@7NNtbe-6-H-{9852;H%QVFT3BgPMd#p+5XsdTs~7H3v+&% zD~XkTy6UNu(&Wphz2yBI$zn}b#(TLp#PtGC{777Hy7%PWV`3_&Pb4tt{Clf%-*!=O z{3Jv3ij{2Jyd_x=^76}bKB#3V*-&-kWJb8QN8`#eCq;qp3E5lZt-2icN&InHVDj}w z^12C3OtXHeSv<9V^!>5qk|pUExWqjkR+ZO&{3oR#^g2F1e*O9Xw$>XhWuDDlm2JZ) zQoAR!DYCuE?5{=xGv5`Tv(877y_fBnerCP1k#W+}`=37rc{#G2IkmV(s#WQMWf|Wh z@d8^%%Y;3QA}bV3qI`=* z%mw!5KXpG-xJ_%d$J%L8i;5IAKg})Ts9wNT#BlqDO5E)Sst5nut(|%E=CztPNd{@T z8hmH^qGwI}68HV}yvopwRIa)IO#i>vSG)hm^XSE+OLj%icr^dy>dwr%7srlW2|9Ss>{4hkjV}`)=62@WdtblU^1^qg&vgmKi102;zGcSUD*|SJ+J4F@yWrvapZX`Ab>?)v z@qD_FpKDJu(-gOkkTd)@HvhJnTzKtAn#(q|)6LC|Nz-^|EMU%Q<&3h|Gjf#`tv>ai7!vXiY*_Xu4cP@E@^}F z489d7q)!?CeJ?O?V#Pd(^=z-^S{>YN^yb!s*SkM#bz|lBonY$g_1&E5{`|`&W-M** zT}?Y3^PS92e&)KyknvPTo$29f`B0AOb-CPc4K?z&p3dB0vrk5eX*uJi0_B6X#~aGM z6a8XmSg+3E{ycTs0_nz|{!TaEar*8PUD(LFi&N4;{_Xy{%6%c?-IEn(1ckg<$8q^K z+r((D6BmTHFR>{NasKh;*0g;Yx1-J9G&^XmTDK(X_|{x)zDK<-XKfYpo}O^sWo9^m zU-N79lLLJ_9yKsKYwPCZnkL>~x%MtAL)k*-o`)UXevQ|!uboiN6Te;LtnEr|r#x-O zl%8ug{afRXerlK6=GVTgxGk#eTtmp!$B!odsS$p?a-VNRvEdPmE4jrnC54sSoKEfa z`YmOYxZ>ioDbIIx8&`f~xag{V-;1qxqmNqKv3m-M%eLJVELo!QU|U_{S(Do3{8&_}ap-_zT_AG#HzdP7|(@?FWr>lAJ4xiHT(9lMcK?s>tAQ?l(UrB+7mcs>enqX ztB$_BnBaJLn~S!A-CU!Y6`UswzZ&z1#OAW;Y01~P&pGLlcuzg3h2i01x2~_uc4bQ@ zs2w*w7kHWL@2uiCX2q1y9sjfYZ#`T^!yz~5` z^V-3iXX=@MTR0CitgU5@vn+Gv;g{}AoGB5yN#axX+jj@enitr{ zB>N;MqwA@k*K%t4&g=A@=6$BkOmbRG&)0uDyf%8L>e)=VY$L3^d56OM*=tK0z7z>% z7S3p3llhh*QpXwRuttrk&-2@E7o*wB*UU*dYxZR8T$P!*o@MnBnY~j}pG&t)*_)N9 zF0T=wy0-WOL-iX2o`d2x7Slh>Q|o^->5O&$u|0Y7f0jNLJ#tZEqpOqj`>D^GsvMj) z*GT((kTx}W&9XVvrTO?C&%0<82W9^@p zDqs8IF~7X2cCXRP1h)f!L#tZP#9a%SxtHZr;qMjYC*uEFOga~+5L={ZoG0dt0|jNe!lyxb=cR3Xi;XHxeyz+}{{7;aQ^p$7hG!>iN&OYF)y6J5rf09v zlU@DWUz|>#y4!c=zuD;@BcCp4S`zzqorhJd-Xt@wijIQlGq* zH51#@N=56UC)Nf!2T$F)Vq8Bxe~rD~r=!|$-mxE**;gYtneX$AL*mUg3s=r4Jmx2` z!gf0k)0Sx)xGsf$sI~Yhe`3xS9n6XrRDpsjT0;v16IexSg1JD-1T^YNc!iYh%}Fvl z3*T=!T=$Xv%&A9VW@pH_%H;(Q0_hxb~&}wuF zD=+rY64`i={aeU_0+mnuUd`^V3=%i~r~SYF@1uL^@h#oz=HFkuY~58+_I`Htsy~L) z4aM#E^B=pP}beFnQa*NB_F3q@S5Kyn)qeTS zYEeFY{oYw~yxtX5SDO0YQeFP_A@AR?xXk*B(#q5?ChF3B*QalA&o}M)QTF$zY5iya zAGfvU^X#?scXWTuyC(Q}ed+(}8w%g*Uz)P#o0$2!!y@Ud=|BG5`@8@Drw{o*lIF~9 z=gcg6JtbJKURqZD@o6izv~BIuHB!q24nK7K_cAT~{_M*+1!@t~5Nj?C@tB z>70ijW~6Q2e0^ij22Bf==8KuLu0E`;SdpF_bfBHXM%w9a3%8ZY>yOX%KW^uCJp1s& zk~j8DDlav2Jmuvs&aUIzZ2!l!`ro9#cAJ7i6hAGV8s2NF)vWH9n8){jhupspvvh;c zrNtP3JNaufPk|=mn(52+A3W!I|2ooqKYPJ~R4o~X*Yh?j@|&@1ES`S+{-$DEiM$UN zRUb|N*6>{LUUvWf zru*A}hDty3a^UW|)WO(wso2gszO-S{mp@l`#edVfcO!JKQ9_V#!K9i(R?exMEgRC< zrakgA$VmNjCkJ18@L&A!wd!+A3 z`hItw$85Q(;r#WVDsC&&MER2aT+Zt3_%UbB31*|TT`T6Up8T7`=k4V^t7n+GbVgq^ z)ODB}+z7#4(kxKvynh$NK9`>hDrh_SMI>$a>V&rv!67c{5|l zPt~+fdf|>w-aem_|KztfgL#8Rk=Oc?Rke>;{7yV-csp0K=jEQVPa6*MzGC(_a})`V zUfXcmAtrdi<>!^F#VmFkBo%y&5jQy1JHw&9tmeK9r^Um`FBseIamzUzn2@Axd0oRWoyfY)f#~Q5B0l zvqe`dh)ipcn(grPuZ()&vGbCq_P-CcaoaCVSfm_##mDZNR^l7cx;9`zi4vCDu*G(5%0m;I_Ldq(J%7E9OG9Xvf}S(jEdMQ}`Z zeq`n^>+t%Q-fM9~&ywR89j^WRIDymU=V~2xWuESRrw$&kw6s{S(V%ti%q!(rjqUT- zIeTPCunO^Ua&zAK;S}*pqS3f9PRD-6{|~-bUM z&RdpZWEx{pY_PRUuSg_6>PHdVRl_f*{@F*X-`wpwAyNLhSgPRWJCA-AJ+%#H(-3_s zc31KiOZ%_xnwSX!?|GLrXes#r`^0&8zN3VUuVi%nhFfnU^%>sQUEO{6kKDpK_p&3d zb=L%HN}joxJC#ZPRTa2+<=&600mkXy%I`|us`z7G{JQA4e)XQa4(sQ6*?fGPdSyY9 zyZ1eT4eoP4{+-#&p3~!2#I)~>@}yONEYj}YJijE<=!=$=>dxBJ(VKJUOk1(A>dM#7 z*#~$Eu1>1ci;VEmKVtlo3t^tV}4mEBa~9p~pELSs8|nzUy;st|wj6 zk~N*_P^dil}Ge`8Tl}m>1bNO7CbqxB84}N*hubTcaeRWdov*z5}MJ1nJ80hoW3q~&gJ~^x^A>&fUJHvAo z>>oBy4U&12s>pgEGf&ngeb)cQKHLsTXHIW1m3)w~Vde7IDmOcq{1pj#?!0QjjDr=m zj{la-jP2ikmf@U`YGX&+JsEZW?;nmcD=%ddw^*6kV;fcCmVfG$NL=sDi`SB!PaTri zPxMq-6gk)F)t`G4y3aH^+&kH6$@ur}X$^~|yB7=A&%Mt7irJ;;+F|A5;5;U!2Nzcz z)!b&U$cFC@*(|}pGy4hSrs0$*f;nbdAKJsdas1Sf_s}JSBW3~@r4Uqv zkGy#IdP2p_!l+8ePVT3>GebK=gG{y`&EHccAG$hGy9s+9>che z+3VkR)nn<(QFC&N=6N2dw?FZG?!%t_s%NjAzxGjl<|B&_+Ls^2L_gWTbJCBOT$7bl zK8a3w!Z*(U27GXGhOAq@HYy-LAOWZ|0^`ld~Nk+;ZYrW*S%6%=zvS_oH^d+m>BPS&Ofw z-dTUZtLn)4tZ$c`W(Q>j?zIq~mFf2C;b!l2!Cv zES2l8M?U+Sp3JB9?aw6Jbi-H95yv+?43E5KwS4yRsvnb$$~zc2X9xYsyvTO+ z_oDl>r!si1`5E~5Hw-;idR)`me`D#c#fRJ#XO@Jw_RkRwtCeW&-=-1uQvGGMC4IhDAs0R%2;>#8b1WtuJzc!RhF!n|Im1Ii};;ZF+*o#wD3e z`+~KNt>W*8yLoI*u{@VJ8PfRv^PU-3?^`}Gv|3&kY+uOHwb{{=O-b7zvpsLuO}T&V zobQFd2yj)jaUPDG^vU{!(lW!Ct2^=pqQe$3-r6kaUi?LVM}m3IgCjlWyUzG7k(+mJ zRjO*Q$%#iYuV;(Bov{9+>_>j}XYca9KfWEo>1gMBP{r_!5l7^O8vh$LC05$kc?%=& zE$#fi;r8Z>RR_f;oSCyEC1!f<&tn_yFJwiu9Nr$YxqtUX!@rZn*Zp+6DRo|ARn4uB z9aXb?(+pPdX|80Sx&HH?V!H*u)=Qt@SQNa9WmWf?wLjLsE4?kTHT2S%+P2bf7py1N z_IxgmuK#zUByVfCylK5r`y%|R#ooF`>-}` zAM-PDZBml=6 zPFIxciSO;h=QkgdyR*mQiAT*}W4#rz0oy)u7g_XX^H>E3x!b!gc6+IIMl{Hl>BzM? zO}=`ej6s$1?1rC0oOfKiDtz%(l+KK&(?6{0Da%sWzvtWvDK%HG>rDF!p9anr+L*y5 zDznWqp=!?jUsvY6WG~B8wCu9B*_E=)_4TU|^|=pD?TP8u7JXZ&I^(zZlFDnr=}(v6 z$(*fpRQuH?ma9`7cZKg-6#jILir>tX4U>}AubJw$W8yW>41Od$-;RI!!*y}z&7X(sA8_>Eo)k2-NGaT?%JWIl+GBqe^plSMxlr7FWa$$D9_PfY zzVP<@4<0YEy<@2QO5OGArsTBij72*`4*p4WIr@20)Z3m2Rt7)qv#(yZ`$^p@Yw|WY zT3~dGt500<>8#^(^Nh9>vYb~-c_pcz{ZwX$L6C8~iiAK=;N{spDz~-CuR~LbGP_Tce3DYc6LlOt+djhx?9u<3`B`=Uw+d*t8;}!{rR;ugPD1Pq{4n zqc7Hf;^eIm?L$h1^Pihs6*uj5uHlM@(_lle|{+t$n zvhMaLiOJ2gOCk@>%Fy+ibGzZi**r6Dt?G;0eINhplCV3dJu~OfndDuQ>(9i!i{y_@ ztGl#dyDr-iec_^`D!sSf8xf-0o3sWng;ooxzJc zYgXPlzPOp|v&p(y()ygg`&dKbR2pN&|E!8->B(oV%00a+i(zgL|GD0}ghQ{wBraR# zwbgBS9kXA+G5Jo`E9Pv~>BUpJ)&;#S2x2qayCSy2{E*Cdg-Fg||Hm(s8!UblKe_T_=CjP-joCUM zJbgX6pIv*9>|i-B?X$w=#i6}=n-e+}&dg-}n4)o=UGiv#-u-9U-&c0-%G0bAnRfpqZgVMPFpS{AY7R;n6cW~+2M~;Cf@3z@S)Jj$+nY)+j#Z<&M9=!Og&5)IK zjaX;Gg$R}C&E4WfIWoq}ic}Ww-4doef8#r44b_C*(VaUZmy{mi(>hn#ZJsx8-^r7m z3VA9^*K*rL&X6enb2IZMW5mK2pKXdeR+d{nPTrg=(%Ap}oPdPNy@1Ym-#wnn=|Za> zZnxZ6(5C&WS-N@7%o>gBALH&!xa1~enbQ?E?}B5(Hhcf&<~H8%XY6Wbn|(Hr^^W$Y zKhjYywQDAYi)o)erY^OQZD-PiS?Zi#_ZRnwdGRw_fA!tva5w4EHRg-U!>*Z6-pCx4 z#QQA3hhwMOQLeKO@>-puSIyQ>(7dS}mF8&f#(AA}uesfg)XnGH5-ZYt_N^0fl9hjH zy4q##2if;^3;sMySZgfWw*E51y=velWLZ`md0#vl)J>K zc<7bKUE7qo1ru2Bo6Vt0{54WFh(=D*_uiwWN|GwU=C}v*a)aBlM zY72Ab{4(0GaeIdJ-88-XXBamzd?=ng@9xTc=l;un*W_e#;`UD5SZn;--FK5y$He@p ziuvn5KF!WJW3ui>uZHIDiP!J{4*k7&8<*asBXeHkf_VeQH zDf^a%D(kLf-Fg1*;TrX?%R*jk>CRa#nX~(P+U4A!j9JH1qAG5?tF&c*_dLS4+3c+5 ztI&HzRvTIN_B~?|ezJ1P$y=WFceJM6e{=eS?~Oj|@HPKxzc9q(JSzx(9${FM(G zYA0A!`gqE&e4=qzx^b;=Te_KI5>Lm^2mS}$4z~VL^G{mz)^KlLzQ8qQo?ljvr}70I z>sioZr*-?^inSqmMjV%IvJ|41>dmvLn^OBQ&cOYlPqndkMR$sc*W`Sj^Qq!bUkJ_+ z>prlz`ONA`qWSBuGR!JDb??@Ln{TDh>mS|6yNc1*C+~7<>BeuI+Rc&+%_hFm6nr+R zIbrkkBsON-cV=%Fn?9as^{$XNZ0DLaPgVyxom}i5`zdFO#QYahxid0WXdcuIeSbZ* z;+EICj=za2i~n2k7kFLj^1m+JvA!Vlyxe!kmmHT$7XMy9`Mr7f+uLO&c5^w@7Vsbc z^=8EcHBpnVHyLwZ-#NGBwD$6HwWqOVZfiZ2+tQCtmdz~Ewr;z>@Z?(W8wc)uYO`wM z4cj2%{>7EGfcM7#Utec@=Lpx_cxCn;KB=SCv1Wo-?b9}wCaG}h%I{ySnDS~G@3F_d zHbv4KQq=E>t4YFzZSEdXEm(P=Dj$jCHZOV-SpQ-k7!QP-Oe<-uaVJ1?reG|7CD@|DeVL(+e2h*Hx0rlWFe&NTs9KL)N@`G-Zr zO)vI}G8Uhmr`|TLtyIKPc+ttA;~Ui$o;y>ui0@6h%1zG)`_4W;)YAI>%8R*r7n(YS zXC1k@y;4#9vPJH{KW+&rYt^n!`*wN~WBB*Yul|~*s2&SQz9MHPbLGJMgGZhz#Pb%K z%wDC}`Bl7*qVx`1(FeOSt2B?Tpoa!H_m>qXxeJmY;@vL#gp$=CfVD5Z{GJt z|H5=xx%733cbC*o*?DZiSLJtCDzEcii&&Z4yrVO0wp8lQo@vj_Z+&x|DrmSUVd|~} zJUuHMtE%17t$%3+UR=0J{pIdNgUy~BEsy&>x+p8+o>9qi^vayM{f|wu-1gpZJHMhs zqy4)4({7V<PkPz8*3>$x&{N(|;?-e^m_G^3E@BosRUM<0WMwaxar6Z@Au8*%_a8JX$xz)yDLf z=hU{1W_j;^tA04MC-?ZIns{DmjccAsoT;+j5q5tTNHw=i{l9Vk+?}(fCEiwAWqsNA zruw&N^H;r%l95e^U;k5XoAPU6wEg#=s+TM+6U@ttpVVe$XJv~WzFlOrxs#*kl75+s z#N6C%HfLS5>Q?4``zFnMw=hef?t*1X%&l#!1x4Ki8aA)Eu~lDU+4=^r-HWcsCTp8A zFV?>Ka8I{`nYpP&|L5)*&$Uk0%nWeXJ8qWOWhoo?*1}Bt(EZejW_dvi^wZB6bw7|O zdM@|OeeO&5nn$KFq6WdDY3F+vI|-f6IlsVii^7D>7Oq;K&dnCH_s{q(#^U6ixJv8l zqvPT6&tBHtu8b}+kjYOk;WA)t=i)!N|E!{;?2@Lx)+g`W$~^OW>77T9+ZKKda>|ai zIVYYdUU@6R{r%?HC%$o<(mAKLbSXQm^E&xM_WPz83!fe`_&s<3vGU_?HYvNMRmyWT z3a)J8c^|Zixy9(8y0neXBsmt@ObzRMS`rVPb#r(xb}~gMam;%hbL{q`E!WMK&-8eC zk^koENiXdV_!~K^Y=6M{%4Yi173(WYinsZeEy?+tJIi7Di}@dH51C88+GVwN1J7HV z@O!@V7`=6*moIr!fASvlsRJu}l1@#I*epI{S?{rp5A{Pe!}n}{ncT2txlf<_(l6;B zjk9zf23Bv1Pu7o}5I<*vs_K(1x2k7dYHyoZ5O<=Q`$OcCH)}txjMPmk)OfNxZ+9&J zkHX0-PVUYB{A=NP;r;8ctQ2#&KKZp>)aC7AJO_#wosc`Xc3woqVc&P&t@77vC)BUX z;QN2}Ln%w=yoXB_C@Slw#@>_3%7+9_+82D8oTRSFFm?Km zN<$5eM251dJszLx4{L<~GO>7GlY3WMsq22R?gI|}dY{T%uCHeOZ|!${`4?5AFfW6F zC0()hifI4iDBF%q-BOnc!G~H~f-Jvp<%{3ZJiog6$&w}9%{@nd1`2G+Z@l#^m9Hey zCwtRQt7rl3JGD2TrCyqCP`TOaf6(+VnNt?sWL00g^J~5kbJlO3hm*dr=9T%;k!=lxi){MsKD$cv%05u z^Db&iG~F0*Tx&|C!#jHSD&@$;o6|a*CJH?a`h4I~MCEiwlWfZa9^Fj$xhf_WLT) z4YQLsnVpJXoA$YIa>Dk#24$Y-Iy>$$cAPuGEWfpW;+3*j{fpTr-C|7Ubx*rfwhsj#3!&>am@-6&EZW4i^_!i!X|>X} z*h4Gk82TBu=)GuH&C%MH+4bgf*IuRP7t}IYlciOR^#Y4qYEKr>uA zUyZYUTM)l@Rr9PxlVVklW;(1*C~BQ{aNYN*pTwUZdf>+~_y2Ukiu3mhUWzF>1*dYaqZDsnRi9|q+i7p_k<&> zgM~j7b}TFoos_#W((cQSH@oW;Gb5U|f9fpi&5f<_{y8H;@X^Y%^Aj#gv`?=r;#|J8 zrp<9y$`#*lvD4ir2s;#AR_G1#`nY%RY@z5!d@QdX9?zfV=cn4}`Re!u0`KB$OyM~mT zOda#n?WraI>YUxCm~H*I<(hH*`~y$bN{fD{}(y);7L|jS?>ii-FbW5=Sxj=F?SL=92&BY_t)~=#oyIM zc)sPvy!85Q=l^&4B&IrU6P~Uaa?`u=FB^pHTiR%;bG3FO7thB256et9oU2_}c_ca5 z;O)xbwQ~wO94=flU1GQF<+oxL?)R&UJA$`xx;ejRk=9*PH2J;#j)e!WYwLMGkKeQN zTJ{e?tAmZlR-HXoQCxTE)noSQ-pQN(=0}Jy_Vu|LZ||)>=j(On2j|vFo5iBP_4_Rr z@qf9c%Ik2GI4fVl)Bn@!-8O65E<0BArL#G(FFo+o-%IM}RQAq2IC*W^tZaqq;LDj! zCiS+wmX$GY8=ktg>nf|>f1%(LDt<)w?7r_u9%g?0yke4Y{Hv?SWXqe|Rxf$U?Nndr zbd2Bcu7lZ+*2d*$yED`lN}8-`ITI46m#kj0!-B!;|L%igH{3oyS+JIC&6>OWo_9>K z_t?Db&);YE?Zykt$KSS?mdN1fBAJR-MQn(!AWW|{(pC!HOMj4 zdL~~JQMhJ7F@TQd;P{d zZH9)u@zOiD?+sz|;{_pZ1-~antvBspLZ)5|n=>V<$urM<)hpqiE#av`*3R)vVaP7y_n8<#a?Sggj zKitnG`#;G1Z1*QE+V9bgq8gnC3S|uI%Ss)qJ#Jl{8b4oa(p{ZRCvVQ1Dx+?ob3k|1 zEcdzbqN|@DZR@Q${9*r>|ChTL``2xlef+w6V##6i^L=qLAHRrC%P^ZS&n#&!z0PfA z&kY%St4E#px_Y-}g?Q!n>G##i9Vt7$^TOh7hvTl-XXIYQ|>*|C^(^!t!$qtr2S@#!siXSR&|mpS-RxG36OS+}hbfo7_P55~{J>kt0(_QC-HyzX76zDa%@7<14i;sD;Dv#^tocOfk zK(p?OWkCxB-!EI+@z7ePMe=Qp1e^N;EnohhMsh(-cmLnGxXL{Gp+o&ah8G%lb!-1s zY~r!}Q~BEB7pwo(eafn*rg(AWu!w7|)y`N~AZci2amzl@?W8P6tDoQ3Np|yH{44|h z=U;qYv3$=$eIZ#}q7L_6YphZ~B0% zf-5=i+l6~Cx9G5!zn$=O(qTCV#r2m|m~66dG$x7t^I=r=shIp{Tll60^B+w$GJ9d+ zW_3l;MtDcq^B|2YU8f~>1bo$za5VVnpvG#^6)YjKmZ|+~PWF!#tl>xZ+pBd?DmHn{ z)>5hb^vGfrrrc!}bJyfdn>6doArH~HT~a%BuKwprUB2aLf*{9?V}Bni9O-@dHB7tX z&7OkjE4F2S9yIq=9~96&yTZ{v?*CQ(Z9w$bN;mGS+Rz;`j$^FcWCy=n^vTl zwf?b@Z#CwP5dXGUBvL`%yC$%`@$QyadMqp_k`6uETcGf)prGIC>ytfT6lF6cvx&VvuEDvTdhD&@tyEOa3|Xe{Y;!-ZNm94(shK7CL3UN&KRpk-^Vi&q-Q$bdFv&X*;X9J#7CIiOTDr zzsxW^82wJ`eSE^JihY(M7C)-X`}LJAZ`5!Z$5h1cnfXnrb*^o`g!*O|UX88U<|_~A z{ctecc`LGUUfR}OdlpBTRyd^QC~_`Lm^VpykALe0@BZDh%wL|75<9`l-;rs1cJcF{ zAJf!k#4=r};d zK0nH14XMBP?Bv^9X%SpAm-`y-`ypTcWXr2C)yPy`P9gq_tHi}JLOwj~?okO&xFENq zV8UNNi6?vCJSq_XHv6_~LCcyJ^YFKk9G4;kW24SrX`fjuK652Yi@?9Q^rqdf-lc9b z;FzS%6Tj_Z!Ry+~1$tjiVe+t?$`?HUvS!WYF4nKtJ)ieZ&pxvMlDO}hi1lC0x0?LZ zH~7Y0e)hfs>-1C8nr!Y_bsn8w^sN5O*QZ}=>Mnh`@x0!|?!W2uXDhD>e_LPRVAFV` zd)Yf71^*d-6aJmHm%6N-eq)c*g2MUl%<>EOu8Y5_SnQu*ah|3BvxeYBPqm6TZ?m3v zpES<*C#!8ZdvSJEx{LXt#}RLRTD51?i=Vu(R!W%b@Qj-2p^QQ2-FozU`?wl1O9Q2= zrfhBz)yQ?4x-4eB@XQr?cdMrV-g9N@g4JH7Q|CO}>~i|H;r9a~W}l|5IC1!PNrynp z^$Cl=@wrs$zwhuAn|eT_?L@M2)qlT*JV$S6pW3%2$Uk4C+I*e4XZoD?%_liE%xn%X zGI12Xy_>7-*wkDPrzNGqr#}=3?#+v3F7;Y*+C-&1;6d+v4VCK;(@WRN_1x;_=Tb90 zv!XuSpfWc4e*WBPVpoH!iY8^f|6bQvyKzO=_hogw|Lcy+e62G!u*+T+(r@Ird&Bg# zuQx=9Np0R^Fln;(we-(_3lxXVSk&m$Ve$cNP_u`Yn<1L*uYZgYX?ObK&l`=7^my9UJHU zyZj^c;t}mvpAM}$bxi&Bq9EG~i-N>HI-mWeFyZ{C7kmFy*b56-_L*+tWl5KJ>brWi zh{K|0K65|YLhti8UNbDV^%ODtqR+m3w){l>Ywvr){#S4PcEeDr{PRAJ&!xRm*)mRU zw<9*qox1HK?@G}LZ}()UX{s!)ye;+D;N24Dxa7~Bg}ZWsBifUbcgM(QeVe7VYx;{! z?XzMW?|z(cJZ7D9Gx5~B{Kg5z+($lMdtBSWqsz7My=Bb2O)I^1?<|&7{d?zyj3=PZ=44Kw=^4`z2m6@t-TO-!AXTvf7*>`U{e+=zWkdt-#!1Q2hFLPkamuqJi z9g=$;F6il?qsdZdwEfiHzWkd{E;y`P=Td$@@%2>W9llRid>0Ei^w(qc)K|+iL%CXd zL?WDCKK`<^Gplg9p3~u|wZ|7kB`9Cs_*br?W6QMDPTMy>D+`_XuKC!${>_D3ZDhWe zv8Wr|v@FzKVpKorw2b)exom6A@94Zgv3YmbmbYG~ENgovb2^LfTPb%qMK`oK?Tf(-%CiI+g-c65 z8myW&lf%l|II`=aZbggUqKEZ|*RA`sPAJ^Tp0z?`DMNMROIda^V}8D+R;ue3Coa8l z;9b-8RRION)+QaezhtRcoPqQIZCn}d51*X6t#v{y!SwotR@duqEQ5AmoN*yVQ194V z6V}hRe=}|g>`^Q-Ke+y^hHuss*Mq`342hc-iC$cNYSSW1-Amg-ZgiQc_&O<^K9y=@ zOQ-jB$R8_BP_DjT9yS#MSd%X+7}9ne>`^3yuhv)tf&rJU`_{$P{DZI`*6 z-sQ-dUi`S`-!!HV(|$>3HF3Az+03%@v&u5xDc{#*?sQ4E&lFnISA6Hj1?HJk*1WR2 z@B3fIPE<&*R!bybqt$5V()_Zl8yCH#FD*|9XkApR=-%KpKNTv7p z=2qe5kMCNuta%{0)!cgD?Y}p3Ypsi|MO{>O{V?M5FHjb{U#TzmO{z5cYE^OULkXtGJQ>?M7RP zj#VPDCVSOgEmGF`&t5mfX5KSNG56K0HQ#P|o+|7<$0WVtO3hkXl~+1Cc5xxgJB&qq z_~%cu;GS4$)^4k|{XpSr-#l|&p~L-KUHw^>eKol>;a%Xbmv@Anf~GblU)KH`qG~ zdp1af9LWB0blGO%B#SlcRQT3uZ@g&XaWg1a<=l@hp5!0ROA2>oS?~C?<{z-6P`Eu-c$9koJ3#k)V``r!vFMV)%^n~fn zrxv^DvQ2Bh*`##EH=>EhY3l`k?e*2uHZ*UM)LHl6+0?Pw#Ag+M)-ofdJ*V5%PoFNo zy_!Arhq_rf=N|FS_%F;d0(&mrn!2rh{+llcl7GI<+T3GOzwGeQhu<$v?pnd4>(*o! zAt#p0wNpaP-a>#suBrF&p0#ZI%5}aAKg{Qw5S8~{U9RKb<@>u7lyZI*{@FWONA!|f z+3nQwf^5`*ZO;I&)og~>)zlNv2LUPU+$ifJ;T^i8^8vrgzePyq8cKN7SkNB%-iL*+?exdr>w%&?|&QHckQd_ zz0!R?_WQ}=_4{W%T^Y{yW$)A~59QYEpR1!Bx}&~Sc5hSVlGHX_`@+e8LfNh#U8di{ zUsVX7j{PCBo@YUYv{q2Efslsl{=TKft{Nv@(~`CqIi~G+^X84R(Y`lIe(N7KotZX0 z@yoUDEB1?KGq%5Ip1tt8%Mt}oyF>lOP1?$ASzUjw2Q4Md@KU;e;T55^MZI;q3MU4qx4o*w; z++gOtDf$2Ja}#WyOlW@|alNd0(T8TuuGaHizdvEdme~iIriSJB#mRNp-1AhM%P;+$XY#GQK0W@rn{u*M zM@9bZ*lTwu^YqL|dB6V@9G_X}c56fJnu3;>Ftj zWJ;f;@V50QSIQr}v0%o=+n0AaEZmdvV&d-9h^4PeF4W8a<&C??@#|BN=CbD2>-JTQ z`L#UJT%tNYd)A%3e&b4z#@5=Hs>@lr@}7rz%oC&D@_jGkWBdJb;*>C^neJ6-doG<2 zcfP0C@90@OC-3D_%^pVK68G#moqOLKU#(g2zQ)z>lag)Eqj~2}r+?+r^Kt8cAa9lCTr>vL%CyeZEn)XiZHlxvoKw`WU_cXY}IBc~ZBmM+Q6-IPmb7=PObC=~8s*tXcFwDoQmYpQz? z$C49C8menPrq1GcGU2jp14Gsk=BC3Q&zGfF3(voi{Wu|M;=;+ds-tJ`wtBGRo6yDG ztIqz`YTdr|`yR9T>rbg=#4rC_a>Ct%`|y_QAy-yR5c1-+YB^i$zOe9!%B(EQ+P59s^wZ$@t`AdSFiT5nk z$2!Un{$;Z2&JoR9-5A02?xCZKqc?kn;S+_YI>lj1x{0P6{I99nZE)kBx=wPo^Gfz0 zE5@WRhYwy1-|utme1xX-%?2}>j-RU@2V7eb5IAwC_u^2&KP!G0tuI+2xbWn~W3s{* z6}v>{PdOYUG;P7#EpzzJ`AAzGj9q-P{3MT*^5I2Km$us;+^mr{_w8Bfu4UhQo0fAM znM|9qP*!Q57T*Th*}S-tI641No@&Y1D;XMn?cx3Vc- zzyGeVOp@f?|0F9TW974bb}ZJb9p~oNujbPK)R2-SYOIjm!go9Huv10Xfhn1fRvmO@ z<5^gFNjhoYij#}-3uDiU$4-!2Rp6X$AUylDD0jd6qk_XaRU4+gD@+%%y)LWlSHf>T zH;D1w#hWFw)?}}kpg-f>@05#cwjX6E3;V)sq5rBXddj0(Q#19sTz-2~7z~s8+nKM0 zb?jaA?bEH4y&PX&uj^*mvwmynqb|o_S!c1v{j>Iazfu3zZ}8SZ^~{xPEZz-&>=U*J z+^Td8_sr4A>GuCO^%SOUd>*7`|Xs{GwiHchZti@7a3~ZY0C*&G$rQhz2jReV`ule zFmi0>Is0kdw|U9>n>PNMf1P_~3 zsw->2;Bsh>F!LK>e`sZjYOJ;5{WO02)obQl6}`8fx$NNF-&uYh3Xj*B8*S9gDqeOq z`SYUsc{i$eo>EQtaPZ#w!{S*Y<);i6JQ7dQ&WT-pu5b0clTGT4YkD8-bzRMOCGV{H zSBLxZRh(>BJM1oOnB6DSyQ4&J?w=K}I_-X}O<+=3B)`$x<8ZC;ygJc-C2NhHLVUBY zExx^FA;S&{=S6#LO&SuX2s9U1Tq<=GE!~$G!z;6#)qG-`z>0H=H=cNTW!u*k#~gpL zp7m3|wAd!Zip;-;AJ^1|yx=k6H9V%SnJDC6VH}m%p;*Dd@lJk4OJfidbJ+am zFzr=0*JgQ$=nFL*+0yBlvHJv%h(p5~tAeA3X5}r0LX4-s9oV}fOe$mk;t7EcdwGuY zu(&PS`*z|14HpOh2}*AZl%M|*(F=IFYUamA6W+Sn6B@T9vSbEKkY~u;mp9+eO5vLC zgQ5<>#}+=Z5f&>B?ufU0;hgkUq(e7@`wCZ7gqn|V%92J~DF*9#_hqlLh9;T6-nd`% zOl$eycP}0+XD+yZ_SyDHnSZUd1UO$LH~SpE^6ZmCamI&Bg@qqV45e?cT(oByN0+Cl z*)g_fA9xLmm(>^dF*;dkr+j{wa#_uMqEU^XZe0DE z*LHu(f`<+ckt$%sUtqGg`TCd2xLFA!f%<5;$nmPIdy6e2zcdP6E zy6LffvW=+mg5S;0l;_qe-1?DpUG$Q`MY$zbZae>NmFNh2arRXI$?7u=W$%xl6DsFF z5q0M8jjtK)50qx~TkicoA^*a2sl_Y!l<)D$b+*rZy;i$XJ!dgZig#p`LsFLoQZnr@4BpwQ7z{hk5_bs@zj%RoVd^GtZ0}T zw0DNIurEg$XUW{D57>CMY|igg%yi30+InvSO9@ws_(9Hsqh?XjON1RtE(Bgk_Bt=+ zCLivzXqs@)W3Gm)p@&|GbfpQucM<94=&SjWKYeea2Uk^gl^1W@AvNVRr?^zR8+t#t zh@0z*D3ooqx^S8&CGq#`vSXZ0+b2xf)%;~7oRq4aNjeF`xXmxxO5r!o{b0DPqCT=HGFkf=Bb_MzFfxE zVTbRDu2{y-l$MoTa~zaKWP6{AX$0-ubh%1<)7GZz&(b7L9t>XJ;=1$bqa*z~)d!w1 z>2FJx$UEn_`i6Jchhs0#F6~KqsVdod`r#Jwy?0Us|qFVw8BHW@oMJ1HHPY zl4~~CS~K$`9vzbT`|WVWr4aSAjB-1~I)i%6IDYdrU;Q{WHTbBhzE$_D?nT|ZOBh~8 zi%y)nZmxUJBfEsOFs`kZ)8=edTq-hs^Sy*Ax|fb@yVfW3URLj+Z^8X4FTr*Yvn296fCMn$|UOkC> zu3nZtx*+YnL`Gu4_jB#PHq@N=+G}!v`vQ;2L)pOgj++mr))@92;1|4Av+^F> zE~!P4sXm9>->qO!jhKANpU->Mv)Q+7R-JwCUA*v(Zh%Hln<}O;u5fxoKyCz&!?#ZVV00SBL4S z&3}LCQVbt!@f-0YogqiJPBJ_-J#2fzvwP=K6dwL#(O{hSS#zO(60iE!=_>!@pNGho zv+TLBftfK{ziq|KW#1-k^u3`oHICCzw%1|%zMMB*OuK4KZl9T*>X!80xBk%$mHFBN z67GEeH)XL2iOv|z;TYQde z_*-;h_GXQH%N2gTYf@hRT)$n;e$T3vydhRAGI&L^=27bckzb|me=-g*CSC02$P~EL9qj-4xa>jmS)VyqDIe%k`TsKzZhO1W`|iE%vx6)? zxo;A@`uvNR$eq}!9+A_`)L)u6+d3R_X5HA9_4szlyEAW+1^$>FuhBa3*zvY$I;$kl znyT-%L0t1S-L>zeJvh;@)O_B%;%x`yjxY85t@BZ8Qu@Oh@my(l?fvPTCk%Q`Y;P$D zihsR+hV9tB(@}1lzimu-QyV$^h`?Mw(@A>EbzX{TuAa{3;eEcqI;7yS?kZl{Ym%Jj zL$>m+wewO;z5Fpi((rp~+WlF&Pe1O?niN=+^uzCRVfoTyyS97%W>88pO8YkX$danX z&f6@aE4Iw+yv%zuOIHMwpvr0d;2ou)=i5IUR$|`9LT!HzdrBPrt>dqxlCm18~yjm)L7d1 zPR#M%7r*fS0^yTtSIg45lf5U4ysW**uyc=WnD6p_xgEIe&w+ z$NgJ@1#D{Z~JCirLmBET7laMQw@C^1OEC()s5r?|aN!U0h-i z^CTnNPw1k{Wmhk~%GRgur5;<}A1XB6skn3gvso{~IvQ;2V%KlKf2_mjP=%%E)5;sl z-dC62oF*Jrqjlo#=DA$^U(Nr?F7flCC!k}Tjsv0S-*|< z)qdJNZ_?7|Uo)@0axCj?Q9F3Dz+{rQrc?j*rhFTX{NyJkPg|2xy;>_Ha!#eWZu;~= zGjdLe-Np*ZPb}%&`r9mQvh=cNE?(-H{Kl%gWpQOzSE0Dw_Sj!pGp)3;>nAXF8$LDo z+CIr|mWpi2>}|)H_1IS>Us~$xHSwVL{r~6xi#g9Z`D%j5mr#iV>?h6vD~D#{Iml@kqfli8o2QQ2y1Q&alB-@UTP%KsEc`k%r>>AG`7-@WkjYn_nx>G=H% zw+*-#_Vs_bnW4GIeqX}k_)Y2m{{3Mo%iGHJ>BpNVA(qx>m3Z9aFMWRV;Qr(2Thp&Q zYXAGUU+y2bjBmU1jHan!moI)13Hi_-yi)zCi-nC%bMs$aowZYiwEnt9{gbZx!sy`C zEPt7+Y+iHM?%-2w%Kgi~tm&QjutHG1#Olb|Oyl;*(DRu)O5K=Oocd7QB;|19^sAX? ze;iKmxHn_=+mD**UXcL80==`zIJU{ zRCp=1qv~PJ*Lm-sM$QX-{?OzJ>u=44jm6iz&o8{^+J*lxIV6UGOqZ%{>i0mvGyEuE;lKY>R&ah>FT9OAf2w_5H;=c!->S#iNy%>JG9M!6M0!bgSWMg-S@=gV z-aEgBL$vy_&Ra`9^U2@7&U*jRaz~|@+4?0I47Ku-r>;_I5Y#wLfs(Df7Uo z$M&vMgb$?rYYyO6G4T1J(8tDPS67^3Y}flKjjiaZL2AvP&?e=Dc8_Lm5wmDNeZ+QB z%AZsA=>dOoX3nzx=W)Z5J@>M*qE_`BiRsTX4x62Q-^DLK$8a6rciE~O{)(N~?BqYa zFW|CgUi3n4rR4PhFq&c|fA?rB^7@PoH?=mHKMYv1%v`_~S$ zCv@@ptGu1E`pB=vsV?nHGC!rCp0Gps@!DthHD~#L&avHmb-!hz^`E0f6)X=|UaH#^ z)O@Zr$IkPFXYfZn1rn|IC$X!*Ly1s%T z+>Gr^x3=RPsqCwL*CuW{w5PkP(vyD|lSf%yhgYT3-AKvO8u9sAf{`Bu`aBmKD&Lho z;iCOxYv}R#`4u}jp0BRm)7ilEWyK2Z#Cc9n_VgSNJytZM^oMe9-MM?$U#Dz(qIKu< zLBsgtrmcosbA@kS=FwVoa!Z9+qV86SgTG2!Hu$b;C@f~MJ9VOe{hyqlcZ+|`{ib)n zVnWr5-Rle&+J2AnRFit-@~`P*e|PE$OTGNYj-1xB{;#avH9Bs7f5LgtoS%`k?8yEf zJ<|(!m?dSq$?$D?WMT1B=a0+toU1Dn#eN2zbYNa>d+)9IivKJD6SLVq2)$*oRqTut zF)j7(E85sC*4EVhM^gHbdVWF!H|I-BscTWXw;bfY?A(3X@x{#lTP`{lbjR)Nzvx)- zdBykK1APjze?CqRyjj4e_dDC{xBVl_C52Am%L;09f~*}&pRwFvussyWtGi#Y{q}>V z9i{GbdVjPPI@Fte?)}VK5VQAJ*EAF34e#{DpFRoqx%_K8t0uehjJ!=Ztfbb~N#@So zGCBBZX*NUc-0rL&%1#Ck;-4fQ z<~(@7>R)w;e5%I{4c-%JPWm#6kM=fhP4YF$lsUmZLC*d{lLNz|2y>@fj~}alY(K!# zu;@h8%-D@CCp(s&7P^+5z_>vD&{rS38GEcGo-qZi`(t$0oZ0H{hCR0Kvw6OC?%|ks zBq!yF>V^%ARx#x_nw7+zZQ@YB*l?Wf%nzeHkBSO4AGXxvXP*7o&5{-WEoaH9gzs8< z8jIK&!VdnOqkExZN+LIxH}5B-+sSM;|K{!WOPJqyyxi9|z@hoW%`3l6*C~I|QMo>M z#tSB%DQpWkuFXB*&iZZtii}Oyavd};SDf~d-`^7~v7rCfUX5P2_3}wVtImk|U%J8Z z!&xv(&7i=+h*5Iobr#vF&bPMQd31S4k4U2Pw?}b@b9Sj4@E%r4PZMCybCu%!(=VVc zEKs&^%exo%x5O#$;Ie;w=F{y(nIBYtc9g4cNZ-M2I&0SaR)=JD#hhI3x|v_pEovvs zc7?T>WkFH|QG6x0HoJ zWfSKxF7Yl(3gnjNS6J6s{F?Xb;(0Re=aX0K2C4_~#xD!IRlv9WN}TJ)<>&6X7jsQ% zJJoscxx~&rFQpo0rCp8^*r6@3EP8jBc!pa|-}=LxTANCFotkpXT2jvorRaCIZ%<`@>`Bkz`gi99+parSAqRPOyPOkzGIjQon@;m8-KIRfV{Ptv&Rw!c>&}(* zrX}uLPX$&t zHVHch9{dowkJWF@nZQT^s}Q@k(-zWFqS^TZf$vU>K6q*RJ$-GgbLG2fVjlJu$@XWz zr)WJplK$}4k#nOu^g{OBdB3Rp^y;qIf>a~J=<~K}J-G#2 z{2o4u~@^+1a35Up*m5IvIoLX)nfhVUdP`co( zc*e1s_mXky$~~^Op_REYCbFR$T4p_cn_Br~_bw&pWoA21u^osg54$2Qp%OD^=>&@v z3#G3K?o@S{Q(W^X+_lN8BeHmJmG1k^<(==mu1=bq{5kp2_XQ7ycLg4~$5)ZcC>A$E zks;>$z9nBBYS*z{k3Xe)_lMPzVuirFq1P{3?aO9b68O7_%ZU-;ck$yIz3(JhPc@%yaIh{Nps0$_lqbEz#a{ z{_j8g&cl=|Bv*<_=SFI9O7orF3#ODSm4A`3oV()d+7}BmHyqL2aLTL2ph)AwvPs3- zcKaga^iL;Wzi-Sethw&gwa9g;9$Ly)r`Mi7S7fnsPI6l3wlX8{l7-n~QOpyz$lf)X z9d6OdEVBBl?w`3E6E7z$yjsmvd;0%j9q%ohnG6nA7SG&0)kfjo10lYOX*b(En%9dJ z)o-%7l$y=Cs7pY1Z|!!QP22PHCW>Y?Oep-y=l&~Gea0!L%Qov4zREdT>$RFq`m78?r3SO?c^5)>F&Ip0_57(bKx2v0~&+xQ8 zp7Gr1+3lyxOOhAlS}FfnG+m^+(Xysrl`+6z|BAzt=IQk3Pdgrd`tk0kA1^lD$v3N< zCN{$@X4-0-{y=fFxZQnvF&E8>J|1~u@Y3mOS>dz@L+uqAK6muee&zZFi1t>6KH6Zr zqH!xzTS8&up7katznw|B+itYuRJ((m+7p$%cRhpy4hDRvostxCv_I1%&0Q^jgMjR( zT;{GEmVVv578`EP#ycAovY6&19IjyA>XA`@{M<^L`?4FW`Y$eRW?RAaP)WJ=+T)vZ zq-N+;lolOd6X)3(5%B(l@TaIfDX~BM#Gc=EJ;Zq0wZ`6i!g2?mON#f7+?=zfX2ar& z11CaVx2UUaJ+=5jpVbmIAL)mh;o`67-Y8^JxUFdKw|TPF#e-)`CSR=95Ao~H%4A@! zVt%?-eThoM$vVBBjzfnx&!|18F3Qxr{NvX(vEQ^aRxa@sa&4+OS;X0wuI)KJWy+x+ znzNq@&i55DQ*n2X3Uvm-5wC)7q#bjQ|yei3757$xOKAWy}EYh zVVCPODl)&Ec-!`C^_3lu+!6$ze>j%vr=vYJQ(5o&;cIdnOgVukidL12YVTxXIk0VR zK!L0Cw!2T3KPX&$Jtg%)r1tvU2V1M8)Hc4#iwoK)uJY{F$-+%B^F7z*v_G2t?26a) z%#ibUos8#A|6=gZ`Pig;$1RtvnsM^-j@**V8@4MX@t(+Nc=+*r&)S0WhmQ}2Ofe25^xc9F9S~Y&V}E<1XqBI3n3Qw%Q8tN?*H`w;6rU*BdhT$b?M1op>%W$J z-}9A4j z+4V~)$0W6agr`=WjVuuU{(e)tn(Ky?y~qBno8n`!SR!$z)Wyl`A8a^(nelm-eNo5P zP1>#UsS#6L!aoH)Irw^|W{&lYstGaoL;8=I_-{Vzcar@?XxDekBE_uzPLp57Z3|s~ z=<3NCy__8nzc0P<^m%Xidb9gqOlBYMKic*Cdi8>{$B9k#y4vjURmfwJs*PDD3QB`7Fpk)3WN#nu}*RkN94Y zyLTvVotS_1nyb<**NQ_}&rM#Lx6(=>Z04i%gJP>zU*5T`Y;RXW%*NM#&+31^{L5o< z+4=XjWy?Dy?-+c0dQtP)AI6-6o|WOQU(=-5J-q+oyu6C4Q~2fj&%7@#Ehx8UIRE=; zVU%3<;SX)@B4us1SE7H^bZXS|ZMS*N;Iyjlx1ipe%A4k7VzQM3<{oy<}x9;6xiO04t@)VY_4Bu|8*)dDfoJ;e-{7W~k z*;uhvWGQ;NGf#cLfBM`nOXgph!WPYP-2A$rv3>gTCA?N=BzGpcE@UvDzTn7j|Gf`N z7PIQMsvI{Goya)(+WH%l7kxQ;Yk#S-1W(f4z>=2^Gu>PkE-XzH_;xB#Ej6~md6RFq z#mxB|dc7yhyYei&R`pZF_g%1g_9x#tH6KN$_;|LaoA&A&DXpA!K4A^xWYwYvOFpUI z(I{A?!w@h#O84o%?rYpkzm~DAt72`dVAWXo$T5oA5S+p^>W4E#T;f6e#CAlo$G$>(2{VWX)_K!xMse54UgF;34;x$dSW+1 zF0?UzK9^v6_>oLl>~_luOCsm!udsi(ZH~fR&%>Ma%-B8hPx^H9|8Mrs@c;Gr|Fr4z zr!K#&Dsx8ef18zxP~y(cts*|*4u_U-R~nvr;|n(1(^rDhz%D>wUAE4ibad99}J zZoau}NyaIo8DHnkX49POtlG5l)1I{xF3GM{Y?zr;73CcKsan!F@1ptUQx)$mqf8ar z*qZlzI{3hwb=Ji`t#-jvpHt)37g%>LcddPBFRMDY^v=dJ&-V(J-^q9o_^q{3Sz1jn zW$QE6uo?!f^N+cDmj$uvg?0Mwp4GNyZ(_&ld*OvEr(azCisjjqv?!@7L35Y?m~C=c zWkH|rS*!Y~-3OSHCGu;3hikBI`J-@CFY)SCpH02X`n*ouG`chUX2nezEI6KxMZUSOKvu~xIj^!o~hVwJQX#q&99Ej}tp zg{~22J;N0D(=|rgJA3{*!%5eoH(d|na^JIa_7N90-F!ArmYcTgeUvLW=4+mwU^?;O zo2>WN2gNMUZq9DjEno`}Q0j6?=RGd?Eav7LhlMK`_D%l0{nTqIgT?F2`WNa~M(lpJ zeec7hzH_HeN%JXin(nWi6_+n9_jHDQ&RiWc$LkF*+Vwlr66B4NOogdnx^6x-a*k#f*m2r&PIJoGzHO ziErAx<8M3vxBrxwVVl^Lzv+;Lf8rbSYbrB#rkUKSJ93)uM!@n*y@FW@Q$4q@&v@c2 zqqj?A>g@X#CI)Xjsx}_XfBYcfb`euechsS2AN}p`ys>a}u35XQKH|u|d4KvB9Z-GI zcx&TTL4&+kRukqp%bs;AD&lL&eqoWAbdBlXnd*y=f5oM*d+*FR$#1s z@l*3lw5qZIdRo8`?zJ~ zvnN>%XJ2j;Wiw{y;yX2Q<$Z&#mwE1ZF|K&@g*)<7y4sg&+nGwD!Ri90XQsd0BE0Z9 zzoB{x-_^Ojb9{MsOljP|G1oRse{qHT%o_{lX%wyvjk%d{dg8pbmAti83xC#TnP`|y zE+|uNeYkbYY?EGJUPqg|`%2EKHNG;xCzF#LTeCmw#BtLp%N*j5#ypv(m>fBgYxW(n zhu3o}gINrlF8y9MkxAgr5}&zKj90vu+wsNi>kVafM_Iw^b_pzr>HQKcEg!SCq-|vV za7ruez?(Y1+h^iGn5k#z$m#_CP3LKP$a#2cz)N-q*+-2RLCcJ4` zUi?K@E$02dvo?y&QeY6h#&yp{Z|m$*cJ83SN@3wIvVU&KI@De>nlj1vO{{Hm+ZEjv zvqXN*Sv6lr^6n4eH=A-=4;vn8DCtiQQsVx$$h+CZ;FGiIGk(EuPVKXe1RIud=EW~g zymV{sokzM)XR2>o@`2HnPx!88&g=_MEG}%aShUh$!L0&sDs6(ov_cU*fpALi6;SnVe2Vsy5k88sVGMkG%~0`$Xhs zs8w~7UfX#`DVD_QT|B)1q?@MlE=-PHqe zeWGd3fhSsir`k{7ntu8*f2#CGi5d@`mid) z{=55XGlePf=1DT5@v%3nWrE!n?kRn;ocBqvbKVZk_hnp1BAggGzMq|awI}Re?cVK% zfs)TB{5|{juFSRbE)QL7Z8d*$M)CF6^|js4KQm3)##R@s;`(&8*iGgq5BV0~ z)kxOleXPDpLSfRX$3}BJ?unM)oV?{~ZC|%~r&w6u=8)77>&R6@$O3fouQjLhR+8aDT#-%}ZmbS>3BYx^HpKhG(alb01a{{BH& zMUD5}-QllVSW~9XzRw@PwmX64o=n}_ljl}h&6HZTjl(@II_%w%eNzwH2uQBZeY+^V z`G4g?)4Wjoj^{`3+@F2(JFD9FV6{aOYW6&9+8hnO7&XOt?w`$kpx{qJ%2~#uwkeTL zt>x#q3+``@a4lx=-O!S^wr#ye=c))1(-j_l$~TpF`)0qXJEL}N-S<#C?ncj3fy}3# zHM@4GnypyKZ@6&3z_L?Ee0G|&Ew7pqqPeGQm*Z16c_T03NlTBj?@e2G>DdRN%{PwU zz4m!|P>Jlcb8-yv+j$aYpU*zi@Tl9vQrGcioYus}=YKz(XOOT}xcB7&-#d?HZS;!S zxb}ctO=WtBNY%8oz_ros+pb4+|CKntVp*Q<(pge(jwwoiPn^8iW#xenKLZ!Nmy|46 zmcMI?LFC%+8y58lZxgyF>(1aGn8o|}ZPs7EJB@x%*X*>i+$nbahq18MN4rynQZGfA zC(fPpZAGvDow;jb41AX#H9G2M?so2cR=0j^#9ZFJ7hSnja|(`!HY={G@t?ClU3ZJ% zBsGU(ao$YBGNIRB)1L2mTVVY+Z7Wl5z_ri)cTe0oTEO1EHEYr`%Qx4zS460Krx_X=6UMu(Jopbbq+vKW4bCYHKXPVDpZm2$X zTmMyrap$w>NzBb%Fa3W1GFTYwGE3X^wqH@TV9x%IqSL2hC3DJ;2r65SCGFqZ$aNIp!_Dt57 z10AA!#b!n_JmBzIDiNBwe%}oVXW7?otui-%Ji9i(X3IzIu!NYO%bs2={qn_D=4aue zoy+Vc!#788o$l%l=;I7iwb+v9W9#CKvLilEWt~z$( zX~vJlH8RhH*5)1RoKqXEYnD1OOWV+zFVntln&y+}xhz>V8ZiuDtUE^N;Fva|Ks<`CO+Hyl^o@#kH9$}2)H;a`hX;+Y<<>l{0# z`K7byTs&F$oXza~vQ$%tx6_wzH|kxvcDkg+S-E)?BJ*}Fi*zzSke(Yh_Y14l>XO-R zQ$8&>yPf~ATyGDj=;oL8Ych7fDBAthv(|RYGcD;kv-fFiO8KRs>ZSks_^02?q~AQ? zUne=|Z3}1axhB&C_a?7;sh%)n`@Qqp5iJhtPapW7e%!3O?%uYmlI=G(p8Yy0@V;5t zgt(x$9~_GFzPyi7-*WEZ8&w^lh}ZAS?0Xru+&&o)*t|02buX7s=Ubi}{p*KMUE401 zf4+Z9i=R$=+n)aFL+7`LeXrZQ-s}7R{emB|8NTifp50_W_4wSQNhM})v#;MQYO7KF z>z`0^x_zT~>5SC1$4e~OU#Vs9>tn7ekt|mIX3%$IPi}p;oq&zO{qno|mp899)AE)4 zWV9~ht;LFKYFvxINYuIfjk0}m`ugfJb&k7Vb~{)FSZY|kGw^=Px1YNuj@Kf8?-ea& zmVfKKW37`*?zXumeExNG?xzIHyYIH8Flql6J9fv6rBiG3ts+6;sJbBj$h@i@?aFR4 z+tvolmFt?XT3|JGOYuq1xGq`Mqte}B5>`cN3BIASQzH%9r>yI{yY1JL+`B^djn-B_ zLuafp=$*Vj`23x!1@m-7nM)PF^j+CE=k*TRQxA95K3;U|y10tgtVipd{uQ2id;HJo z@;5WTO_4t16)$zBZ{?YU{U+h{7Fkzjv#@11oHbxI3)C|0J?rJ4@mf8i@x`3er}Yc7 z4tx%fT%BWZ{?Pj=9l0ia>G}3YE`QrEdUEmyY4P(KIu|tMmi<}gm{l#D;vVrxT{Lg! zrZsPsG7hmUxLev5*kV$BV`Y)a=g)0592@Sv?NNVlGxzeR53}SIDy}FjYjXT0Ty*mE zjuqeQ9#<<_IQ7lWH;?X=*!Z<}lD3`Qq<#7_?^mW>inLew^^EK3mJi8&+fTm^xg#>` z{MC~;H{`2L{rRiZS1KaVbG}%2&xF&e+kQD7J<~K_MC^aU*8giJU43_|zkA--+tvTs zXU^|q!kC{2&%1->=Pe8jjA45h%*`?9=Pii280%={-F#(Jf%^OVli~wpj_msOV>gq^ zga;2Tmh8?x;@z|=W_DO>UiI`mrwfJufA@Yb7MnCVLncH1Rq5ONXa1zw%)41TpIfh3 zu>SV`@YJ$z$DVHYpZV<2llqje_Qf;*PqAcpS94-5*Ch7&(`N=c73BV&`TGr1c;>sM zXAer9+H3@G({8@j=%|)m!%>*fe1+raR6(Y%wcAQw zUQ`lay16J+cl+tDCEud;KSWORT)BhE{?NLx*OQXmulnx&7r!|B^ue8izrv5d&Y3Vl z!F|PUky}xRRo&!|+S>nbdo}ysO0@_%mMe$yuAkoI^WciyZE3lZ$Cp|DD9rkh#!_8Z zw`G%Jfk0oA->TD|T;<1(EKFRJ_x7xlWnORVo(W9fUBlzk->iS^dvV38!WqJI{Kco{ zZV|py`9!wVe8t|rP zcRk_pZKa;GQc6gRitVJ>8e(Xn8@%}2STmG>+*>B#5+~!P|G0daN&C#*u4|g3A8J$5H*R$G%+a z^qF)oY1x-qClX#?{rW6x>JovD@(GJ?oXqm^4D_6##;dkxv7vH>)~mPkSN5&nG;Q~` z-CBJAWPHUL;#8AV`rIZaoxb~2X!dRi&(O zn$DhXKD)gwP<@A}TVK{XL;fWvf3T|_c0RB6;{P z+0mCa$}URr&hkISXQm~$TlCYxC9@aG`|Rr1Zg~ss3n|^S0)*&LL)M6FzP< znNjW-eP;iK8~>E$lymY@HoVD;O1KqttTB0e@RX%fE;r^r+ERF|I^p$>sEAaPXkYH7 zChm)$ZV>CdVik5`TI__}{;yozzc=`BywUQ@)}FILQ2h9@WP0aERRE~klJ3~Wr_+BjwBaHIS!kC!y?yhZgzuflH_g-~J z_N8wB;MZ1eq{+3!wM)(S;Cad`3eKnP(y!O$1`li4CxV1Dp z>g?0_8xzF8+*_ac_5bIm`Sbt$I<3C{c&+Y5wf$-}A3P%?ekR@7wX9-8_gliOFD7QKl3H=~`IM>Ln^oaGId+tG)&-M_KE0hU+jZuD zDD(@g-n(K#l*HXP>Yoq)`@ti>wypSi`f0X3x8&om9A}@uC^E5i)#5eJnV0QeF?aW$ zuDRUoCf3u-!>?yW?k$|Q|LODpyuTmLu08SkuYmk>okeY;EDJQm#h8shZH}nD<=`9g zDW`t7@R88ovuMGK zSv=EO{mVHwCa&OJ_<a;X+kpvyf$Y_ZQr2}HV66MF+9k)+gROs?P7j#&`ZDQ*~5F(W-S*fAA)&8L-S_cz-Bo%U2ZzwjB={_a2C6 z%I@BHJaf*4GON?CZEm?($yMZrhxmW?%Hdj@qqkaVs%E{~mgR?6<|+3qXxJ0?PI%MS zZ!L^Q8V$45gxTtBm(=aw`_937_x5QQ1gzXu{{^p;s$+az#JOdT*cNYZ+0u#L_l~{# z>!~ee9L$-r5#wfAy; zyA->D+AF0P=D!xd`m`T7O_}et)9ElvbBOA_GVYlT3cd-y{h2)DS$&ZSrq}(*A zm~PL{cE(e)<+Ru8c{d)LEQ;1$XV6&i+@aD~^bynPhi911v3$7ja3j~6r$0G3qD19C z7u{~&D4Ty;q~GCt>!Y6x=S+Y8zV7kaL$&6$=*pumnSv}4>V**~0lgr#?x21pnrsPAQ%>v6Bx#({mq>q$Zz-@I)2 zu;q~SpQTJ2PE@VlFhzgDj5m|2N?Df|AJ1WLk4TrkHAQ3TBQLedqF0E}| zZKpMZHz-%C<*)CN`;t}hHoE9}&I2)P)ul%pwq2H5>zMxDH-9-pLW$2+zn_weKhE|s zDh#i9S$b3<-sQ!CoO$o=GzyDO|0lY(dyZuipX}*VA7(0jn6g&lg6`t5wN@XCUX}0I zy)ZK%G&A&vZ`aQk>VJ-^-o7PjFM8vmnev-M9P>D3ld{$Zo-{SIf0}gdO6z39jvK;y z_0GO$YxsEuV0~uf#VIu>YD zv+4Vy%2=Mw{W;yznrx3x^UeJ@=W)TgZ(0BLd=#*lyCPaHsAB*2%CaB9C37|x%wEdz z^`3rJI@bz`kFIT^9`giOcP(bvw!xy*V`uv&mcw?>RHk>n@Vg_MvN*`CkH@cGziiqM z*SOXFZKvZq8Q89v9(Z_GvDB7>?*+S`=XRseZ+{u3*8S?+XKye!{8GdWwIlT;A(UoX5x^=#jAY#D}wT9SMz_?cZPAl&q0>ps~_}Rlcj`w~XYDzQR5CSBM1j z*-to>wdZx?^ogmf3eJo4aBiv)kD4{{%X+@>a|IiZ@uxXTHHrMt7qU5!d{>RPcGFs= zZ$+qMJSjsTSGl(~f!MY%BjUbE9Ed%O=-jYO~8zRnq%=AG)M3*>gfr za#OLRy6c1)$UkT(N_+Bi&Sj*D9oomdeT~)EM42g-3&a0!o-6M7bdz=St8?Nl zGk?kSuzeM`YmhFAsZEr++@a)iQ}VC=V=u2COYQIb#y5v9`pG58v8|ED^B0d zB~`*VG`u5x`vhMLd^-8Z*l*RFRVL;4i^L3$sYE^!u&dkCB~`JUcZp@d8BMW=lAG+7 z9hmYlrtH(^GZJfc5e=6kgyiqvvLL_h}ufeik=61d_x>7VV5)M4Hx-2em z=)AL3@aCQe*Hww^6q6HAmi7feW|AHqY*Cj{O?^?H}J4Lq&hRn+c&S z?#QY|JUA3~`hFf)%#~oAJ5sZCc-diaf>;WAIQU`sH0`h8p+0$fz}nR~Aj@yFPa-%l;L2rT;`ucJB>! zsQz~-n|)T7mS^qcKaK~MWO?kJ7a7Ix_tWUb(X9((Pv?L4-+NR3{NZXwK-!aVs)Sh3!rzrN3dE&FzGFH39SS{^!S%Y9=l zLFFear*pEb-?)4K67Pp9A~pN=r~X_J|8+217VyLO)(R(|4)l=}5jwqU#29~b+eq&<&J)4N<%D|Ou1g=|)F zuQ!Oct5tJTPYGh*U>mesWM1)&Ha^c^6;HQ?$k+Uurdcp&xo1Yy92g+*-C#{_Dv1`v2*KNnHWjx;V>3~eWtm|s$1$k>u ziNyYqYHR-19Lgv4QhS%0()r6pJED{-QhyjL?KOYVH?MHdy$_EjZ+@t=!fZ2JagahD zqtDgz+02jb864kqRdwg;w}M>?CRKYJq$95i1@ADPXg9-X>(?3DxAYbmpI-Fs^sZyN z?I|5x7b-Qqa;tmhxOJB*ove4${xk81;R+AKUFQq09AcWpsCd7w{-*sc`>s>V*mOG9 zu_?Me4>v5((c?ws(>X5-H&2n46^`9daiOrv;@;f9rtiKf_SbIcVts!9-{CWb z2g?}#?lA7^w%+XBELH5k)&H{2v8~>$Rt3Qm)&DTA9kZZctJbmr;GbAhwB`Zk;q zlo1y>;S&{76t|>8ENM@6o&3)E*AMEq2cByFHTji7fB&Hg8vheTYcH<<%+wfJvP$u& zhQq!M83%UH637hY4fk9*Z_?-O4_c@F`F;L%gYJ%{PQ^b|cU;vBOnw!awj;Lfwiv_o zES@JSkLUTvCQpheTKPF-|9ZwX-le5)9TE&Ly7~i*Wt>xv1hT(4tnp%N zRPo2?XqT_6SI_cjni<6T=1|1V>(8{0Z|6AB{E5x?qRmN}7oVAgyEs0tG-cZaYeB0!*>~Flg$?-`LDMy)~HFB-C^Qc#QX20HH};X99YA-_WY#<1u!^6Ax+jneNwwYA<9ZoResS;NA^ zW($i}WPEGA5x4J5QG<%|Q!8$X4fdCG7Px+@nsX`J(QQ6wh3FTy(@$q61Z|vfUrhLP z`sE#!JEk5nniuIh`N3odN7h}T8=QAa?{W2h;}O7kqH(^-hFcZJ0bA@_-&(Yrz7(6z z>8?HH=%V8;oBqBqzIOJRvdP=O2R2mpJpTCb>h&LX|L?Bb`+v!~hMlji(v|-=-uIw&aDk4qRXA!)V3HZZEg!Q%i2( zmxD#KB#Q%=9AFN76Zk;!`OXE(Y^*EuPkb-^UFpR6e3pS|@zIb4ey&FavK}vUS-xWW zWr3H`Nx#lqJ)Qh;$8J-`Nvk?L?#@wYIbUt3>}$?x!1qs2bFbqhS7yB*tR^%4o&Ibu zh_+%}m9H zN(vmPiV0tPHvLE4^TwdoA1Zs>GnUQim0LCI;p?iYlY=cz_I-Reso}K5v45BSLKnQ( zKFs>h@nlGTZ^-)hQU}>=o_@(?vU&RC)|*|Pk7w^STeITp%^%A)J)CoLhSltfV-gm2 zfApi@Oh~w{zOd9W^|4`P-hjLd!p${{dC`)#jKnEyZoA=;;ve8<<6EcBXh$-wI!b)G*qA6bYJJx^%K(` zY?)^CP9{QLHihAmf^9lsL}FsPZd~>$X~*TJ`+i zlTNAK)^j`=r`$T@@o=Y~@u3TgyCw@L&t9xny=KbYpqY->oWcZ_c~0KaaD2(s45swT zg(1N&E!~)R`m9-bd$oG_+m&ZZqd1~&&Ark1^tVFw`nWgNQzY|0i~1N!*4#?p*QDTG z?ysXPDH_g`Cni~{by&ywyl2rb5Ahq*s;$}0R zmJhaCm5)RE<2jQRUH_e$p(t`V&PYK|S9n|0qquj*YXlkgt+JLrU32F1TZ7y=8|NJ_ z*H!#z-Scb4>H5RhJ*&@H<;l9+yqq<`$CG>JhuQZg*@mA#c$szGX+x8e*cnbQ8;!Tx zN~ETj9$2P#ORjm<%DML67Dqol$h6BPwEO0tb?ge488+8n{1w8fruzFp!Q=jpIc__q z9n;-5_jS(sWGVjb6DkUOBLg;s?c{J%D~y@6ebr*+7@K1|=I3RXMO{g1IiGWo@A;Rz z-7Z#Kk5A6*pHRIhVBb>iH?gd{GOz93f6p{%TE?He>vJM!->F=GHCDO4qHV!qmPci+ z$ucF^3g3pvh*UD~>eZ=nE6tJew=dm!c#ijn8Dh^FgT5;(F?DOz9cQ%O?>8Qb>G!=G)T;ytj2gF z;!M#xGg$$_xr?0E&z)_f5O797E?g+cDYI?KC!w&0onl8z4*PY^`Eq_#$m0XI?)G`pWmfH|zWsPwQ_`U=`5Jj?Q`TR- z?{O|!K6=USbZxGuhlH|k+Gsbth>eKsv0KEQ{lZ9O!%??TvEOM0tt*UwHTWesJ$IUV z*XPzk>r;~ce(lJ{@C4GQ^CInODxd{cf(o3N0?zr3vrXI6#$s?~0cO1dp=eXU1*+cQDE z$Xy@#jU?`hv#ed`{`R59sa@xf@q14ydT*TJrewAN>RePlpGaq~shs zXS2&L{lwe&IbUm+duYHT)4kERo>_&S?EP8hB7OXmvZlT(!*4WA}~g zmo4`{c)I6f0&|kNN9*EZ)v^Q2b<$VPHmmvidELVG%}QZ0U4=}4uQLYOi9EN9RSS(Z zZL2-F%=Gi`imcxifBNnh&06VxQT|55orHd-_4^ec=FUm1`?glz!ET$|&6JfBZKAnU z15I51#>YKu-qt(&^{0Ldhu}36=e}z>k)c1CSvmM)ZJyGqDdIOycJJY{&8{)-FxV!b z$otsEdB@6a9hHLB##&(sKbNtHiiR`J>^o6oxMsh&wn&z@346K%Tg>;oL=7QfjjK^P z9#^zE7-D@TJu9LZSWY_BMceYqZ;zjOZ+;*9#$|_R@mgt@s<*{(m_K&3*}497{RG=R6nQ@>`K9c%|?=$(Hum7nvRFT;*T1Buagw`e_0L>W=U_$)maD7YCo>+N&@Fx~HQ!lg)@;ALPxH5O z%SO-Kd3Yx~`;+#=j}k0BH|0k)&;NM1RD6f({t>!Usz|~v5hAyYB)2s_e<|i*ZCcI=gY%S`=9Jpxo@U`3?&v-xf|>Q<7ca@%EhG7t`!L$4XXJ zughKkjwe<0cITF_6NOthz5dzrG0?rYY4>iG7i;Z2Yb_+cF6i7FUcx1_=un|}s*I4V z_SD;v%)9o-NUeKV?XXeVk3IRwfo)e#zE}Id<-Dp07elJ8di{R?qb?E|Pu<^l^lsWd zll^d=fL-0P*JZ2kKKtY4>iS8zF>0HD%gy`I8aFy^zS_Qdc)pvjm-`FP{MzZyxsS7Q zOD?_?tEzWyPSWA9edi{x{T#LHUv*QE;f5>s^j_|5>w72u(dKiTq)zl+SG$F7>(2l7 zHwZk(YQOmR_Qx-rqSP`B_MdyAFTZ46j!~%I6NhEbw_dq4bGAYd`@Ta94{v;4LP_jW}j%O1gVcjqS8IGy&0PBHF!zJ&APvm9o_ z?^dsC{(Q?4n^m{*X|mRTi*2G3E~l=!-BuRKJ}LYvu}-T{Yp;;hmPYk+qIFL17hk-a zYvpueMXHj@0r^M0IwHxF-yC~UQuAec#LnUcS9;qn*P0(&qwxCL!&!XIiRra>I2hX3 zEP877a@KCvUCZ>=89j`sZPY&UU~|XkRGB?9AMMKrLeT zXG!y)S?S#O-{sqz?P(B-)#-THz5i;>^!i#Rp7_R<6^RW?53Y=_`F_OZjP<9lXIHD& z@5sLAcSJg`fNg`vn`xq-1?*C0Pp z&tG`|gq`!j*{0$}L-;vxn|IXZI2-ohs;k{^T>InA%;f zvw|i&ADDHNd)vc1^#^C%Jed@JN`SHFg@p9gMZB)NqT|anSA5*35`9L1=eqgTNdana zuBPf_zkfO9*YaCuM6TQXIa2h!An)m=DIYj}Ew&Z>&w4+3#oYCaEF&j3W;{_ZfB(e$ zmH(Ano`unx=hH)SJ@~aWHFv#U({n_;S5$eU4)@IJ)D{E(qp$y6ySOs=MY5c1Nc48= zi1fByYrn-^Kezv3aaI4h7w0DbmAHJPBrw4|Nu%tF>({nl60bY>leK0XkU5$>{nG?1 z-PMVu5ueTO@O9qr%&fYu`uBtS@g0}1@6JyMnAqs}>CK#=k5c@m%VsUR_P0{tFzezI zOJdUcW|u4qJT7JwCY-pavs--fJ+r;v4@5ba&y+iIgj2!zh=siH@zck4ch8gFqmZ}t zH=BLtK9)rRHW}NUqgnD^t$iW%r?$#D&i88 z4&OLw`=;!RymX&euY8}^+?~q{oo7uD{<(T`+vW+K3^O8qBMv5heWG>Z!q%|cdA|Ig z<{tQyVSnXp@&{d&3AK}r*65WsFaGt`_c{Oj?JP%a%`VC`#?M`uG%L8ggw_QD+SM0yg!urcInrXev|&3o~vKdGW*45(TCIB z*XHi>&|}i|I5&&y>a1rr_rgt|7H_{F6};ItCOv)2+V?uwY~T6b%E>bBk)M>zX~FT$ z=d#IUw7y=hv>-Zu6z@c9Bm|*Y$+gUyd>EE}P8#>zbQhXU7c9Cn6E2H+Mf<&9Z@^ zDSdd4-~M*T{Fk*yN6~)?vv1FS9IQA#iG6WT z@bBCInxwz5F}tt}Tuki^ntJKRteJBkUfBF9Ppd3g_r&=yj~@%p{1<((;N-an!hJiJ z#rbdeCil$Y;Pxd)r+hn`bmF+i_q}O3O`Rt@pBH8nAGbWJ@$8lAt|KM4TVDGIhxDv< zet+4l!Cd)pKxbt1%$+)L99Ch%YL?(AhbQ6ll$@|M^sRgJZCxO{eARh%5B(2?cmcNDjlM=M;-XE8Xzjb@5S^3{XMGI2i?ph-=i#aGUCFZtQ z)1zuL&nHPalPY&l^^JbBh@m##|CQN|vfH(j|9&#u>c{)9@EyPA)>9{adZzT+KVSBx zUH9>ZX7>7~!qjw*(=GpZ^pu6*)gR*8a4 zRio!lp5L`hdpQm;bXxL#4{p)vocHyjpH)e>_tsi<={-RoTpX5bzV8;>5`O*DzRX7# zCcgRmGbH7{74vI_?eF@#|4iF_{a^O)$31(K(rwmSR3EKA`=KaHjBV}3Gm#r#@FjWA z-TG^_fk~`;!Rk7@M9sfTUoP6Y$@R^Le-qNThWpAJgllwD2R7?x8eRVU}Fyq?Q z=dwC`+w7<9)_ZhJ)XX@sH$6imBkXLc@by0?Mx;;)Hk?DF%TC)V}eI{$UU?5KT-|L*w89f|BY^Xyqy zV@m0{*q+EI2X6b!|8Vef5Nmd2%Jkba*F6n&7MxuZKAolA@#n66``>isilT6aFUb{`4wv-9^vL)v>WPd5-^hxq-2(gFw1T`?~|zauz8 zZc@6#6Fu?YXTN<}cRSc`cA9nSU-uhl*Xx@tWD1&Udg$$UdxI}0|84EeyV&?PKKg0n zZ2N@&2FzwPncwTTzxFrQ2s@t|z~A-9cv|i`hmXEH*PZ(F|EkD((Q7+@{`>NnxAmd>@@)_68SUKf_2?-Cr-3^6=LwuLuazix6iuW{$DQ-D45ms_VVhkXV(|aFA$o4 zLjRTCnIoaik8b^+WF~BIz&`thda1@)+o%oaCS1+AoF-fIBy4*5dWAc+=DG4S-@5Pz zaeXNB-Fm!#cLdXO**`nob8;>$3{7t>n$A|c?5#h;F-@}>N7pItIlOkwOlj_KtJis~ zTaslYcrrgcA^%hOmm}K_@LFijvCrhmC_6U6G%nQ9Sye(kETpUT|mLd0&e> zy}LIiPAT4)rLv_|&WQUc_YuSScG}NF9^czKX=dEJ#6q#_KR#Rhd;M4YP2t^!1XqPK z`RTKlyY4x~E)_C=->lo&vlP-)KKK6pq-B0Hkk_$pZn)Id#D$Sxvue(GN9NvM_}7_|2hmUZj|y^WB9~?PoX=Y#C=h`=7O{*0}dq>`oV@nnNc47d-5* z_Vig^tH5%pFpfcv+sJyQ^NS-Aa|*ZF_}05B?fZH>&^apUdUl-0FR{z#W{E1jOW^ii z>EW1lxyRD7V&jV3;G%-cGO3A*pB~Vf;2CPk-_A65L{_%`-L$)fVWp!%f82*VkFI&F=-VzVdEj=cdxq_u{*sr+o=#C) zQmy~{Zn9A8?f|dGX^St`eeY1%w{K_r-*=x~Qw^9iUhPR*m#z?e|LwkQGX!q`yfuk& zX1?4evpt@6=L4>nJ&C&U=0uiqz16d}ENN@^na}zsFdh_e>gN9bJyk_IDu%&S+m=T> zfh}wOfrqvJ;m6cjY*i12Z}^(%-~VL2!@cH3i9xqm>Q=FbFn;^3{-6EEa!(zM1wG(} zI-mtTmImf#umy}3=9mk5Kns5e9x!y)HnU&GyzG9fYn^jF#|GQRUE3-qA5%NPb|a_H zwdt;?0OK~n6ULLC-o2REtKwbo=l`Q$HfmBe+{#U#|1Y{gaMX z@@3~{I%e&z{`BhN_3F|>3HH<$<2w5X+r`dtZ5J13S6m|b=imJY*#U<*_t)1luHNXz zy>-xFH*|K+0v2^IW{YxitOG6;I{*Z57s7Lj}J??2ow5*EGvf8*KXziZr+ zvqhi$n^pSo^PLOdIp#mRt^S`cdRm!yTf)+-J5pD&KXtib`}6T)_5UAC^BB!mHZQl8 znX<8&kLg*9;S`}$2g?eo(wFcaHP;Q)e7xlL{^gcuCEP-{?C(5mA^Ye-T|nr2^BXw{ zexWA&eS|CZFF$+p!mV5S*WbzR^@qCU_VAVQ{77uRP%yP1^0CC9Q*RHi-Mn~4Uc7{@ z$B)Uz2GcHo{1*SvQ+qw{JiR(L?(E9>(et04@88LsU29(dDfK?n{HLjBwRxo0nM~2% zlQsY1ze%<6$4`Ga^z)_PN27a+512Y6&PGdb_psN=7knNP#mQo_C-89lk9Ut07M|>9 ztYeM8AoHMNNwdCuSE^mx{AkM=8_GU1xHY$&=U+3E;g03ngv^=)<$_aO3XTfetWFSM zykpLHz9RFCEdTpT8G(ScbJ)JG-g~>g&pKekk}Dh>r@nvU;`cnTZ+Y|QtexuSJuR9R zjT02##2?9A8hF`mPtfPNj9oV$O?dS4P{-mHJB}WPxMl&agx4oU9fbB@egD}+zE9$} z>g&Ve=dOvaoG@8t!&Zry4M|Z9y?S3Y9ny*ejX#Bl!qd^c{h zUX4>-O$Q4XLprU(7!jJR!rr+xyy-zUzWV7Vb>4TZw zJjF6j9xX50J^r~#D@pe}d9StI?)=*MMl1i^ShDo}GrsZ#vt)Pa9e&XG&|J(rc<;IF zovT*XZoN^dTT#|_Y`^t%L+2I!?>^R6xTM!`Px1YAFK_#eM&V}DcQw`wFNA`oKmK2O zS++vqnA_ZZ_JfQ^Ld*YDot8Zj$h$Z%H$iyHL?_;~HS2y{otB}nw8<^_+=tL(F5iCk zi?cI7(weaC?|B#F#%Y(!vv=RVXpuQ_-Y&J?%_{X%F3EX3n|N|=*{8S#B6pZ%XT5U% zSF?4_*MHv^x^>QSwtTN&xhejVYD30{3DX&h4hQJIGSYwL`|nTTZf%B6zJ{|U>mNie zWzQ*NT_6^vdu=_#u7-}O{eRz>FL0k={rYl+=VU9+3m??#1iw<{~{I_Vn?6%UKH?K8Jk=dc?`;~o?&eS=qxvRe{F=w?t-KMHjQbj?cSyx`T?db!J&fX~R&fLV`8ydD)`7qz##KWD{!Lu&LEkDE9<7M-X`xokM z?_XFS-pJnymCa&v#O)uZJ%_?853xnln7?c*&QqNkYOx+So@{cVZZRfFaW zi!Qx$ynT0n>Mb*4=RJ*!nOe*j8n739ohx6?9O=0>ovrQq(ruH zkN5w|!}$EC?`-Ug((Zn^|EBu1m8Rx5J3Xfb>Ms1xvel{I;d1H57Da#SlwVsi?uLAQ z{Mp{GT2|D)@%m(qh2QVTO( zHERC)pmoh6QUPx7_?QwRn~EGMGVm3}8|{6Qr+^+L+QBlmX(2n3wF#eZ>Ieh<&lUus1QSue3lrRbau^^S9}Pr1@_ zIq}-;uM6HTGK-X$5PyWT_xfz1hYQ#w#imTw?pSnF==8Tw(|Av3*qWdD?lWs^tDsxR;`oOj1Sfcv9jI_P81}PkX&=VPyaN8z-)>@!l%?^r^uiu?ZW_pV7{{%r^J8^bgm!2EWeEcYN|# zT9^SWoS@&AI ztSL`gcXz8w2h?mz>E0Z%>0;GeM$TWK?$~hsPZN1qJEcKjdEQ3`t;C#-Kj$%=kTv)0 z6!M-B#P%in_C#ZUMZfSh^{hM>8F@b}a7KT-TN3gVTq;njKA_9-(N8M^(1s-^2#ZU zY*o9NcUEoL@np68@B6VfKVK(#i`l+Nz9AdopE7mFBnB%p&nX2DxGdDmgzhak)H}D% zzy0aM=fUa+@-}P#vRRtz!61A0$rYw`q1hXq#hxb`Z!gSZeY9A@_u!VFM~xDmE%?5z zU(O<_Au!H`r``C2%>8>G82K~mniofWZCtdFLF`@v#|ift9v>!pa><(RximkcD$wEg zB?ST7#hI;Lf}f}L*I(Ii!}Kd(8S^3W{HM>i-?)*)(-%Aca>Zk&-o*Grw-;Y^eX*`3 z&PB~(Gt0WqwMkcBRLwTcwqr?OE?ahgmUX#vHd4^H0)>0Qf~a8BtNB#`LN5%rM*6aR*ZfxV=q3} z6q?xZ%}vPY7=yMU=c~#G2UIv8WLiDXT4yFNGnq?j#b>GV)mf2rKXrP>?G;~V-#O)T$EUt}{ulEDQ=Ieu zDrT3i(KqhC`$6#8`Pt8oxc51%RodRSb&~h|((Eg{#j3sMZ{Y5p=$Dy)@`}Cm{+s9R zLX?jbwm;k9KAWAN>6xQ=?#idC2@D%A9xG5~NS^<+SmX-Vr?{I*9p9#0yU9}`;$U=0 zXi=@0N-+N%!2?3uek$Y%^-z@yq6Jujo`gYvUhX%Zkr6Ff^aN z+F+cV+tFuSZFZvJOq2e@sD|AiFTdNUkjL`iaLtSVW_h9OPpNdU_>~@Bap~fUi=uP- zy)VUhxXT_`aj@!+*24aR-~?{Z#C+xQ@+`$;*LCK;u`>aUD>@{)-&+ttQX4-R)(?`?bWaMa?T3BlkT38s&qAV zT8(AE0wX`>RqM2>M8j1ZuPrkcTqrWrdf7UyZ~Ajvn*2*zW;~l|@=<-Rr~93^mftKq z-@0aB`=%AMSa`eV^nwV38OrmR5(?Aj8U0^&KG@;z7u%OY9({L3YiE?qT%%pMT7;S1 zm?=?{uiEvnxB3Ocf}*|4+>ZuUO)X-0TKZo&^2Y;#9}?z;VmC4qFT7$6DBAVWj*nOU z#sV=xre7i2jj_SCb5>gB?pM&eGv_+Df^M_hY$Mxr>6{X`8=Yc|Hzk@nmT>Sg8~6J& zK8u;~Xp@+7Ag}$Vo^^|(CIu+?%*6Q8 z9r2ya-P$|XE&c4pm;Z1f!_?a>=Y3C9aOG*5E%4lsee=o66a9x&zf`SM11UTz7&RCJM;7=uIP}4q&$%`)!LbUKF8G< zLGtZ`l3DwHO5WQdzr^&p;rWAKuI)^|qLtJm_eG=ON}o@##eAa&ANPJdXdhp}x#ZMI z4dL#ClDo?U{_vd_n3^f$v89OJoNLuBC8N@bON4cqdba3IDtYla?%}hy2lN6~J34Ya z<=TGIcxUmXzDta6|8cu-c2iyToa2pkMik3tb?w-tHyLNvom#S5J!+57UfrjM1b6)m z;`dlJ|Lf9M$4^Sg&k^3VRCLzMu-m#1K_sO828xOfYb?3MqTK7P$+*N+rpPEpw z%g?=EUc47{MOA%G=%;hP?^Mlub39J2UoE+6?F9>1C}?MnCo_tl(o@yPb9BZ_DOWJDIN@<>0=N$-X6QwdsS5 zIoJO>8ZDb9y1DMNFK?~siH)Uu&&bwglx4`=ez`LGXx096lWS|`4Kr9Lv{*iK>N|36 z-hwixEsH)J(5~5eEdO)L{k(D+A=9vM$5Z;V^V}LQu~uB4xzO}xt?M1la>ro5qE(YG zbf?UkQK@0FS!Y+c*@#pp{Zv3>+ay29G z)zw8|6SNI-Zde4?etOb0d1W7?>zX;=r|-GV%NWcck$J?(E_CT1g%yTRn@a90Nh}vQ zv(fyR*c~N{ED5idyJwx9{9s3#>3kOVGiP77rf8&>?KvH6!pJgZ3is9YO^HAAZZ
P))pxm{h5deFo|@++Wf2@4_wWAmll#`$nV%B7vfxa`%|lOb zDSXtM&ttud{Xy|5%aT>ovU5J|tca7I%X3WH`sShE`*>%!oM*{7^Yhr(&;4h@Ha-%* z$f)OLcK7<^rzT3}&X%g&n#Q6Z7D}JWls#KBC)JUiCyj4vD&zGh>5qA~ZBy=^BB64L zUoY4AXwS;*_eI*5pWB&D-4P@ibwS5O{hS<|o5^O)MKfjE%I?hB`7N`wPwQ;%4vU6+ zevKyoy>1m0Y?6$bE_3Bp!>|2uK574+KEEM*BKr6mqh9y4bz3V~F8X^vc-HydVxDZm z8>_7f>lX85zmvEbmz00x`K8T=e3j-d@XAx))3aEj;q#&TUzc4k*GK&;DQZ3A&AIpQ zhZ_>xR-FoWYEQb`6zu#t;@G{o>9!Kg{pP9J<<>h5Y-T+xzuD~g`DskQs~t0cTuR1S zTg|EO%jRt?3#wLR=jHzYe#T8{x4Rn}#S(TE9NgE(UH10G533myOA1Z=lY$Cg<~+S8 z!1naG^uvIHbiNt8m;crhsX4mqKA-aY!_&{_IV@fwS;~Dp;@ZioO9#6xuYZ15x$a`# zE$h}9Wh%M${}w;aicvYSXzP^{vEv~2aSZyU;-F8)e0x>a=hP-J`1iK~YLs=Y>+6HW*9|n-s=-^knKQ(@QpMH})J1)Vs{p<;cS>6TiuoQ%Fh3 z{#R4xjs<-_Yap#KPK?LGrwpO zqtbKbLvqwi4)te^YgsCN%MbLg+WszGQ~TYtBAcVI8RV z_PNi^y1aRZ+FUE=FeYBwzHZ91`g!*DxhLG1rmYKpy5@PhGMh_=&tBbSe^qZSG;y0h zf1y@?-%aPs2kSU@Mlw#{bjxgop=jfgh>%9hzFiCAS|^z<{a#%5*}|>cYu0+Lvr(z3 z8}}M%9Sg6?*<_=0MRUK_H*S&U!_#K6n7mBu`n@Jb{`i?^w);JUj4$YzzFwgJ=)R+b z?Ij-HD!}lrtwtCtF{fo^_^8c zGRX=rzWgl?nRw*IL=L~Tmc{EccW_7aCW-kkdl-}9I?H#ZTu6?F$d{hwFp0( zeZ|j|XU7%gAnCwBy|4>!W-u{?x+wdtblJb)v+WD^R|^;a4`NA)Q{v{Z%YV{elob#p z{^?=vvL{o@qfWM$8pekuJYUvuIaszkVz=Y$qNisQrd~cQ$#ZA*I=+|JD_5089aP%1 zknc;xoN((u^P?i$4zAz+g)dNqMPS`AO+D|8Mei>(c7xSakQr^2t$g%BuWg+|>t8 zExsgmMp);0yyus@s~GavC|qN*Y@73Qhxn^c%rU)6_ktg~nqPaaFwyeXsmKaG6IM%S zZo%n?i`GTR{kNaXTK;oSJWKgcrhBH2U$QtCNiR^F|J{3m+Wh|y116up<#^Uy(sbt8 zSHDkP*}5TrBcJ|fj`z_SXWT2oea~!S-oBcTw}3}y+l@b!hkqL!bMQZZrbH-Py3=)q zy@}4_43^HeLQ&&Rl}GQYyrw$8+BWT*$mVq^A5R-8mOtEhQ$(=EwRwkL|0|=*Qf$1D z33j$;&T{LNg`A&tbwZzF;@#OAB`arNIV$?`kXR%4=au=9(SrJ=l3xp!B?L&aWHmfZ zv{TS!ohsrGvBhD9nnrKe|L;qeYB+MlH(rpP!xSB0vY3(Kl&H#Py;ku&kBbgJBvX2q z&HXXUZ(j74Wm&JK7tEO4uhG8ti|)oRfzxgs^XlCqd-=8A?wvEl#MYR%7Vj2cdPuPD z+!LEq%eF1#-S4z1=dk_u<0;QFm3Z7vF`d3J=U^A_Q-z(AH}YifSaf&oj8ehMaCJw6 z-wdxm#OC^EUSYX$XkODahJANhCUMQ(Ynk=CM6S(p#nqE*l2syQlf^$ZtVvAaD`1?; z?oit}G5Nq5uR|Ua9`?QwyA`YZq%`Z%|Hn_*H9UP|r;1<8diPE5k>;HX{8=VX_u8nK zi$t9EH~aXdEU$veIB3S=*QY99cYMs9;86bLrDCxsQbxl*M+Kms(DoA{F;! zh*toiwdu%uJvwLyyRQ+=*N%aKBpYwtFyiKu}ga0-+JQdl*p|?kBj_H#;n3ogHyKQBSwE=$&u zW$%`=^N-aDHoxA;{xhRl`uNI6{;v+nJzEy^ob8L_saJ&Z=FnRM~iZbxtNKhFaGbex*Uozama=6$0l;wFc0LfVrD=|?iA_|09> zP<8QnW{mZV*_W5~E;?gp6}fWd5sPmEi~IcN9I;(~=)=8$eS&hi2ObE2bNku;N77&N z%jA~*4V?#Hy|j3#^rPoZMt)_9%)6OJhJ0Us{RrtZ5^XUFJEgQsEb)Alg@53YM{X?> z-LjerYCazmFakft_o*ORidT*2wfFeztiy zuk>QTtZ>t8wI|Zz1(r?66;rp&Yr6aE;7Jay#Ub%76IbUh^@xA6Hh=!+<~KHP53Rmq zzN&iJ@?FaF?j-rBhuktbaL!6Wvnc67QPrc}t2DYcl^R5cip=fO5)ECo`c6iT{T?li zQ^kuXazq%rvt=17ehT^jfzg}Cx?4S5ykNHf%&&5f8o2}atO;gc_)z;}RETRt#Ld>F z8E%1Vh1Y~U{jAowM1;Y=My&bCJXc3|pUFj&_WSMZ*uAK!^72=YsqC*)OTH>yza@G# z@8G|%7Cklp%)hQ2eqR@y>Fj!xvV4j}QT`E0x#x#(*&Kc0|M_sq{q`@+SXa>}I`ky0tcRt(x76f_pz2lNjIZ-DUsmeA=3mVr=%jPY!e!amGKI`!-9*t@9~Ud-A)ldF*s$)7{VXO?l) z#8<@XJ=k8kiY;!w&^kf+&;OEks}_r&ip{;WskL-s9NYD^y7%n&ZZ@9Eu<_XGqE(4W z0%crGi!$Z&vmHYV+_$wh%#Lp3wVSy#x};$B*@SDea*`5uZD5)F?M(hW?*?DxYs}p{ zc(>)w>Rr`5`6#y$Ao@yTj6#-m+Pvs!{*s+1eh>tvi&S z-`XYJ(JC}U(1TN9~YUg>PlX1b7)6w`swYR@8&(M zsrq+$%caLf`wFf`{8D@EDkD;%_Fq4?cB zF&b(sy(9g;mPDuapW%GUbN|`dJEw*3ZC+6I<Mh{%sbqy85%xGfQ18Tv%{*wDA1M0<()d8)sGC+_h)zRfbHR6|bK9 zyf@!#-P5q`q2s%Aky=|Ld_t>j68FDtpCI?FmdjMCYyK;lA1AN%_|<4nb7Mcbenx5J zq5ED{**5~DTvcZVeAN8Jx9+!&+BDHu0`I~&Dv#g1C|q~xw7rvG@$I9VJAP=$Py1>0 z$(Pfp{rkN|&+|*ZvSqSA-*oM~@R_Y|&UPFAvYWHcGd}5~n((SUpOi#YPpe+G=9zSy zT}S@N%nwSxn2rQ)`(_$`Lgn|7IWL1|M8=s}hUTAimGI82T`RB`rUiX<>`CjpT$%r4qyIo*(ReiS3k+Q?ON)y zD&e%S#pIV49Ts1F8uHxOHfe@i>E`DTPn=pDxn#~tF21ghR}-szZ!S0AkZgE;*D?-v z&9LIN7h|rjexSF5#n7*(`%jr%aW4$*8=3^@B|}%0pkyd84s+ResLR z;}#CTFJ^pH`Vtbx{yJgi&9rYy|L)E-s?_~tvP$k}*Sxn!9%zK+Pj0*twewEOz8%S& za&_JfQhsjpKkkpIXxzASa%H}dw#i=Zo1eB{7n|C)fA93q&TgVc2R&U5uG(bkC%MPh zu}N$H*|n#ZPkbOBahEMa&F-%+`@h=}y46#5rP^)Dcr8-=wqg~Rn97Fr-!{LVb?Kjh zgZOnDSKdzsta-v|KTi5B3QcNnJ3L`e6GQFh`FC$0?bh`#E`B(D-pS{a?`Xa9e|4d5 z+MKUbe+p}Vyb!#=sp#$8oeh!CbJon@+}?Ki{$G>J@Bde@Op>-s+$St#c89?oxLMmq~oB~y9J>fjTf~#&rFt#sM_&LlP%=)4bNW1l(@v2KKZ*P zFE(CVCLW}orPM69w)_m3nx95%abpxE|As#S4~Jy zaPxS$Rk3Tn%F~ATR<10|7}tHSx^YSGa%lh4NAo|2F5zZ-X`v^{w|m!pbKx65|N3T? zJ9VBp3;1_ z%_Yfk<2LIv{U84LS|^_IG046nYulzL-*rEL$5>4J@{{k5uIGEXtStrA+8hKc#GY6Q z{yv~Ca<+`7O;bCiyKv^Zo=U`Hx0<=ihb{*!Ma7!-PX2(QCi| zHJHVudqM7!NQTftacho@=)yZ*Wl9&jxUc`;yZOqbIi*jSdfR+!I9%86n>qLIv#q=3 zz0SFud>sGle@>*#zLKX$cU|b2{VDlkU1Zm%>4!YyqOy6pSH+0Au^nIY`o2zAxPgt9u&*yI3#wy%PAZV<)0i`@pl}=VP8H+M!iq57hU~*{ka!^`0jeq zzCQhY*Zj1j-7DliTSdq{YUXunX7Z6d*Zevx3(=tvP z$4XCZnEf-WbK~M?%Vhu0zi28UsMd3F|K0fXDhw*zIkp>Rz5%A z@ch)u2Opdtp1N5Xc=ztZofp=YHY`0+W|vPtE8EJr zyVdc>@#DW&-(BmS#%I*$#8M={Y4Gdy^=fThOBM-vqZ`#srAs%QDVqBDUjO04dhZ;1 z0#0pPq!;$J$Wx%)DnoB(QPu7xEZ08H+9{DQ@aE#hd#Aqr>qy|AWzH`0ruoXUwTCVo z&%H2{OI!AX9ox*pOk(Lk3qcAe)!p@+vx+f&C2y+s?HSrp=Z=DP?4L^c3XGxta+!;GHT{-oNzJ2nqy^M#s7JewsBOJ+)|2Mvc+|W zX=iEGIi)9a87)eSTjrR~lbqYNb8?o#TY*x4wIzRKS?pGnzvNI@B>7NV=e4M-DobeI zlMjo7Z=8QA@FxFjR-Nnh6p6PpK5lANdvdO!D(3FnMdu!V=rHZ53ft_UazHd!<`?Qk$abc8TinVr!?v3JpSI?JF-v7$?4kP5!=r|vE%*wsScBZulryUQYOmn}e{*q@tFJi=wzMR++WaZ+NdfGdE z(UeVwHPipG>}iVc-Ewq+tVC_KSd8!T`@uqG4ssJWc>KNkXU?Rx9F-;8lp>epxb8S` z?e*&Jt51*aUKY1@oqf;~OIDRncEZMG^Dcjgwffn-EV*>^jP>8m!n5?Y6uoV%jlM24 zV|lq@%WqlNUq08x4DyWEU1j~@VpU`{fB)WF_n*ibnENdG+?ak{L^^)&MM0z1vzAAs zb&YQ@pRzN&{{5xJX-WMemJiYVXTu8q7QK7#zYVp_|JNz8$JPc^uo?tW{_ zKlkLK7r&M?U2=JPtkNlQ_Kf49Cki;<{qtBcz2~GaU!LoN{5AYJ&umq$*FEyj8(^SY3xNx;chqzNFYoo$*-WJ1Ex%%FF1>Ul?C@tT)sn2t2 zborVp{t6cRv$3zf=pSNoT*=UQY3Z@&8|#1ncF9toutP8KXi3JZU*CLfK6O8t&&9e| zPDN&qxgh_=N86Sp%&FF26@87P(&*(Jk5K8K3Kz?2uibT%yLa#K3$Z=-C)UTE+4t^J zafoC2OG~E)f38WwQ_h_+l1K}3_s+TXE=xsd;&p~}-|XAw`T6U%eQUKl>K69w+tFnX z?!NOQQh$7K<;`N*Y}b=@!SP65^R?C8vTVMyg^ypb`Kn$%U#u~Dan6NlR@?eJyI+3z z`~4m7zW;LXFCONIC~JOqu{{4#$8j~j&D@1A*VesQ!u7|G%VUS0<;(LIpC=R@44Xb# zlf@`?PRZ4yEzZ0P=kQ(it;wD9F)nQNHRrWPyJq<>^U{3Qy8elQ#F-Ua6U83HExaGQ zU3twN)-CzZZ*?8aI-Kl3 zQT(WVHv{)3j9L?18-i+0LvvGOSgmPj0J>=pBx+-$?~|IBUXr0;XaG6@i(tL^Hui46 zjCm1%L4Nn1d%vHY+|2IVeqX*z-+`~(aFPt)j*3Q(4ZMe^ZP`?OYwDV*C1Nsv-+$LO z+Z~y*IlXMlW+8z&e-maUO%6T!Yu%$4%X=lBxLw%)bASK(bN_zs|NHFb*~nRUPn?ZE zS7$Z(XT3|@=AU<2b%SSHxGbM@GbU!<$vyYl8I6CeFL%CBSX@~8?drF$KmB-)dFY@0 z_R^A%+bC*tt?T83)(`J~>pFH#DtTM}Wv>`PnU-YLk> zHmz8`p>f3y_spkNEoNl}tryP!ZrNiMo+xm!N=dWL?8b)LLo2M;mBz-cJoz*643o-~ z$<3m5o&6$JkJ~tQZhYy@v9Y^wF}r&0m&f0m?1Tg9hX}1OU%7ZPHpY@|_vIEKv z^0{$sJt)c>^wTp%y|h|t?$uDnIkERQNLwj9*nT;#Ui|&KivJHEy*Zztap3p$n-Tx7 z&tyMc;lNtjBYfuBD<3b893A8H=l31aVm`E^*EozfD)FjKb8%bY#ffF|995mk3Wp3P zaPOY~{(iCOLU!G$Dy=3nGF~Vv^)2aNqSW@LLddsef2tK5`LQ`NsDiFMoym9pQlVO{=o4ey%zA8Mli z8u@uT+m4GDxJS88xOUd~_q!Dv6@K<*xVP#atVubsZr8OX9}}~)jkL^HnANrvZQk}; zZobn_Pt7Ne=PupTvskTK>AlHecDwJ_pO-AQ-H6_ybjH-T%uo7i^Mwh$9P1hj7_T~A zmT11cVxOX~bD5dL)i+bVGjr_Qd*}2fFXxUqHkwPmK9wpGeh?mV|4-R|nTH2tO zY1@@FFa7wNnyPyf51Gp`{>u?w(D3$&zEH8ds?x*O#1234$m`blbEc+j>~60 zeiN4B<>-X1=AReNxpUsx<3(ho_q$IEo?U853463}-RTu8{HvmE?-aH)rRT)N zu&x&~e-UT#dv=NLBcYNNiMy5@F5E7%XRl^eVRfuv*1}#T8$H&i z9=AALu5Z8Qw)y#1J)YOMRv7L0zPPuk%>9G8P26dh){1W4>&J z_G)Y8?V%f9ObqDJyO<+)@4^L*m8S6urvs)u3}{<5Gxp7az8{rx-!iraUpsh`QSrcR zC;y)h_Xi2_$%rm4|I;m%?CONqvhd)$O}m78lBG`c$Opl>4mR_}A;=rw47L^6vM_Yqg42I%kK* z+@9e5!8A9?pepBxYF zT{W@Z!QQ+|BS!@$7NK{%$yjEOp+_+zRb9m~H z+Q<(}&K#2Qn!{Ti^S12j-M6KZ{{qDR+=%_)9rYPqLW3(q;vPmdG=fi7**m~b7KYyh% z8*UW)@`vGgmQj>@aBhtCp?9Kv6|rsirzu8HNc4ET+UU=^-ADOTf2{hMQ@BaTIkfG4 zc-sQch6UF@oLOQtrDN{0;NliBm5aO9-FiEHlacS7tZng6MHfvwEc(%Ar9fF zZ|+r}9&I^qdg#v_e&)-eM@-lKP22CxT+g)8QDUlM&F7N~XYOe}wWhH6x5dqz>`Ps5 zE`G4zFFDn^@7%MyUhy-(PhUKbz48_pzq!Djc#mUDhoi194>pM285}!#%Gu5$nf(jb zWd&>z6F7d2mmx()V+yPHzpiV$GZw#Y+rpK&dj9IK{X#1D+Vg5z-78k7&;MQ=CDY=p zus0~oSn*7>{EA~f_h!wwvzMi#%k0Y?FaM+U>%XU55qB)=^)kBbd-E|vOUD;MhuO+S z|EecDx4&||63tYl^UC$)$G*ldr|&Hjv$V*XvV+@}-{FNv>xyMdzWVZB>x(gXUNS9w z{@$PVQ!Q3caZ-OD(!@V$eQLwXPghH(zID~N**!~y!XCcyeEc<_G0ao*)t(=Y z-nXmL75EOlbh;fm(}-E`yPU>j1+Q$mU;&$7Y5(fYS$Y?A@t1PkYFfzG=y-DC9_HO$ z-b(u)J$ZkWXNyY2aoZbfjAA!bz4_YEAaU>YLB5B(`q=gRGt;})UwwOvU0B9q*ZmFV z2UlKGUT#*Hs1dP_zkXtQ;X=+wV%BO}AN*I}_DyVDbJ(-*cU2baMAe>4_ayT6@Y|*x zG);01y}0{+@yz}yTFayrPdT6T7t|4b_LFN`Lel2N)hqYNq?N^V&$Zs}F?-|d7awF>%JDEA0ee*%fwvBAh+YevXS$t4fHhW$8zUbF2ewVnOdshT6 zHMa==qda?m+|5nOb~jTWiBGy?^W#x@_s{44?S|#ATyOkyzjc&rvHP#XCo0Qte>v5( zvvpa_6Qk)jo;z57mo3p)B%S!ma=Pcmm}fCA#reU%@6I_eb)nLIuHuyE7HlWO_asKH zIJQC1o-H?j^@Ee?Woe;Dja)yqom6C>qyIenRZr#IRSTo9>T;hEsR^sdow4cF)OB;_ z)>=y+SP-tSQvLf`~smHtBQ-6In`n^F~*UysmX?664 zN9RwyIe6FZvGnzqdu7_@z3>0JMB;18+#gm>Coh^@o-*I*`?X%|Z`t-d> z#AsFN%eX^xTt2a0jhKA<^2$*^B<;ZKFBdmxF`j)pXI}cuN{=PQA9`-FXz7W5k_rF3>Uni?+@z1L zZT=IUUpo1LGvbTqWkXrd%k086r!~&F#@RQ6l*Q37kq#D~+AeBJ#e4j7&anmm;w*!aPw#mjR8w(D*64~wr2 zDbl+j@v>4xs!M1>i0sOJR(iF!%#yEL9Cut6cY3OOia@YO#feacs{hlb{q_GO%~P}U znqki2u9!Q^H|?14(5x_ecHpHiyOst!UYK%y&76Mm$5{fe!W`AC+s#EjJgu31F4n&x{|N1`yiyO=d$y$vZAxmY8$NY6@9w0WBQ4UGap&6e;+d^T;*`Jamvek zR~F7wsbbK2bTL=kNajt{!sjw~*NNVn=5q7PvRqZg}Luj1~te##2{mi^A$&_*!KvErmzI-_y_>G_-Q{#-e^aqaq_u3~8uZC(ei z`@5>=?~#DI%}h$iH8!gz?RLG&_>eP3>jtw9}!i=D#<|PI;4XRVMFK(4056 zr5B3sPw>ug=H3;tGk2|Gg*6=Dfkj^*wXvyqn>2V&4WayRs>k z_X~w8oE)863qk`^%Y)^6K65{PaH9KLbB z=8P}ZYo=WNvS4=qXDQ9O^4nX^7H+%s%vVX%LUpwj^RHtk&mE{sUw(swx$O1x!>WHj z1XL|q;(0;1YiD=-%f6Pap6{2oEbTe6+VJg~)`!)5B0JS)Y&pAc##*2ByXOqTCcasf zz4_Va;_XWfwUfp5^rzhqzHVg7XT3LYNz~q-5wWMc;HMQBzwNiwWNVw(KI>OY`_p&cKYzSC5#hbxC1~yuuS@T{4%J1b z?YGt3)M%8o-Emr7QP!&Ee&04>voQd1rKP}Te%f?o9lhi!bh>dIuOCFi~ z{wzNfrha`%;EDJCT|IpqL62^6o=xmHcvj%`m%IPx2JH^2XEq7?(9HFd_txx1eCznH zxcMJExuBgnOO(Th*S1BfiJwJ$!#rEr=JqQ}_ZBmHTZ%|+Vf{H-;$qG+PXD#;0`DHr z`uT6op}Xcb{>5`;{odrCDqa{}W5#c9z4Fv-iB{#0o)WFhA2wx+ODx{AOWdun>O$OI z`Nbdp_9sq>o%#3rrOzK;R<=F<>{-#qd|*yf*!eT}&U{+Cr(y4eWiMARSruQm>X7n{ zXKPO_I-qkms$l1}U32F1Twl89>ORY-qCL0oeTaKD}7`zSjQT?rGC@DGP)u2AIohYr5`~ zc>Btk-;CF%MYQ|XZQJL|Uu+TxHJLfRByw6-MkZsbm(`=m-yU#IDpwX$d0Bq?)sond z+dO=Ya&s)KR&UPcUf-Q^t}))=;6Wy_qb4tB>OXTi!@0)!O33;~Q`IXjWk>5ZSI+y* zSGttLx%k)XYiee>?aNOu{}5cc`jPlr=gVb0<xra*uPgW4XErFC{9TmVe=_V6lX~i=kWbgw9Z&l{(|@MSdcN69H`m>FFt9qkX2S1X zshfj$w%ogTzyD(L=3S~$_a}R=XqBJy(Uf70`fSbz+gpv)OS_LVb*^!IkuY_ZTvE`{DtgvPF}PVOE|ebuk78Fi|V1eM{JjA z{`eO^<;vmaOF#Y>&#aAT6ZejISM_sK+q1{<`&Kc&$bJ|8^wWAR1~IPE-E$AOCB zxV>x3_U~oC+j8^gQR&1h@9r%Yp7$$ydNN4uWwk& zt+sS~iE~Nom-du5`S1Q}I|O{@YI4$_mD%uUuQ9_N`Gg$3xtGfR`!9UiEBvvX_emks z>re0BO}pv7S)yUH@Y0e9wK}%Bz@M;(Ne<*ei4DeS77_ODD><2iJ5czdmYUYTZy1 zCsoj>q;Rx#cjd*&m({bmW~hoi|8S%=cFQxf+#^QsE7X{|?H8|J@VoE+R^h0}J%Tgu z{;RvG_r>hkq5Px&-fu9Tt~6gDy(nEQf9d6i9dn|l+&Fo(;B~HzdYgUXJmZ6ZUPK&C z+FM*y9`*NC-ktS~6@O|Qga7Q^bahVFM87u-Yffpedvv}sV!44&#er2@ZD-xr^(x%H zx~|Ur-3{+romr_e9tnol=fwGsHyY3JIxT*VCr8ll0s~jOXUGrHITA7{5{`x30yn%J z1XaAY|JVPc)v~?oxN`8BL;nSz2fgQBBDr`;|C$p_3sb{bLf(jOQhKvclz)aqmBr5g zHVTUx6dz5p{Sd&Q^*HgQT*S(2b?oiRTm1umswhn>xYNIFB_m5i#_r3n+`lt@dFcE^ zN$e$89sAq_&tu2^=C@6>yd1RD??6;p=yd(UmsN>kj{O!VcsAIpa7Q#=Osfye6@H*R zqi``Z`-@eq4$RpMS2o^x-n!0bYvR2_+BZ}h%mY}aZxhlKFHLt5STCbm;^bw#t)Ojl zM#KJN%?IBee2~`iu3=gjcLQ&*lJIHu9VP7c0gL}0Qrr7rN9?cJn_~a)b}%%ak@=;- zyzICV!y>(}fgXyX)Af}rSQf}H<**P>aX)5xCyL$Y>8g7y4&s6WKEK<}x89E|oWf$; zeb@5Oro=ytC;Ei*emXz+%CKfb+8mZyQ%olxEp3)e*gJ`*P(J#?&2XO?dcqvC|77`` z-quSm%r@n=vCg^uODs-1zfMFgTz(ROAEV|01efB7Fb4V9Oy z+qI{QyMW>Q@zesYE8Iqbzt%mB7h1&btF70~ZSVeNwMG91jYNUfEuRmZN}2XbB&?7} z#n`dkkGoJo-e`lcaXL0lA?&RWkYOnNu-sCpA z)!mgHu$Q~tc)`t@z3;F7axfA(tXaJ%#r0%wUeaNk1C@J&QVu$s-r0C`P0EL_*Il*k zw9lRnb@X#GsHu&eb>92)9us}9&sPgt(wA25H(Bp?RdImstmU4M17>W4_!6#f9| z-W91+%;%~X^YY}L+9$Ll!NoW!d#*>doUiDD*4GarkDIbph*|L6)J_fPJ$vwC)W!wv z^>sz>=Wm}9dDQX0cq{Ycz)N>sOr5J(Prta@!?$I9fy5V`mk_rn3=d_bdeKBfK~Sb3;9p~*jrCe=G&lq;S=MTwExLJe<|0oKALL7)$Uid zN3(hEwDtB=o}FI!r6O?F^3)db!}I4pmf~5V*KqB}#jb{jOC-bf&isr088yqfTu>vs zZ>`*NOXfazt0c$B>%At*TFa~!%q%#RGVl5l>#I&DeH!0-u}{;xkax6f@-F^ayH4la zm72KI@zE}0@yQL$PtT?6ux?n`sCeP(qIEBAWfC$kJdj)8b(h22QQ5$4r<8Yd@W!K; zeoQTSvB9L~uVF3ksf^E?o0hWNwG){Z$My|+vN{iv)ooOt*H#(H|?23^1&+) zR;!Eoy0Trfd%-rJ#q_>r{xY+B4Yw7$7x$z-YG3e2v(P{I_g;;|_0{YfMEjc9-@5HQ z`bzQbns56A4tBez8b``c%scWVY*$$LqH2>j zAJ)|Dl``yH_*-1icg?obf>F#XpXuDU~>_4cxUR zDw9)XZB+k+4F`SZy_}vX$<&c~I+$H{%e3nsB(|QqamTbvLNjzj7f*Yn&r%ojTeT4{ zz5d(EcU_)wVEf|(%D%>*+jr=?^R6!CyBC$H{k~G-ZsfGX3(OW@X1vaLRi(-Jt>oX#q$Xh-Fy!lC-8V)Hqf!0IO)81^CkPDD#rhOb$_$1_U^ELQ8@4S zo;8KicI$&1xHQ(}ajV{nxGohXT=y`IV{hYxDMGC4@BQ!1NH*p-DPymh=xlAUE;WsP zTbNN=Ur}; ze;O=yR+F8{l+T1?(adAc%x)H(Y?seR>oGKFmMy<`bmE#22CcJFk&!XQ@*xKuA~o$7 zG%;?v#I^m@sg#mp(?ID?vFp-z8#kW4p-{NUb-x+=z0=aiMG75UC6_aFbGr5KUDN$I z&-U+Fb@@iQ>SJQDz|Aidi&Ue~BC1<{UEXI6`FZ#6NEuoD$Cyp%iobZO@ zbX)Gz1dshE7QMV`(hz8{tWVKx9X}VlX^m~?%3+Lv&~Uersi9IZhO|l=^OS% z_g{Tv;`OU}V^o6gnSWE7K0B-sE2-ab{Yww`W!Ye}KeKN9b<|+GpT6qR>x0v~kF8p1 zBQCr$w0r5qGcOqUD%5Xr&sc4b8qG|GBT zG8{UP|J+bA>B{$IG0T@MVq0_bk(BDrMVA-IHvRm`vOUv4#7VYwilm8^dBjfce;Y0y zof6w(678on$4%0Z_i)UbU#_+LUYq1UGC4J4z7gBx#+7d$o;`b_yJ9o1>uHB!gYw`mZ0j!oD@KZ$*%alhn3-GA~80D1O;-wI}NSo6pN6 z-FMjky4jJR6(Rk7^}3*yk`JFa%+9qDYvEIt)Yxz+%xJ=tl=O3dYaXoX60q-ze|p1x zgxZ9PFpV40bd|N%o*A=b}Ognwoez?8!aAKJh@76~?LNinYtI~GH z^xE=8-AmebM5C;5k7(E z-^^{3i!GmaS=Rl})nz?Av+UipuI;J08n-^5Io9&xK|9NDJspMFN;4)IBr}+LJIbBg zlPStKi>qg8y61QP%^hWo`3Yz;YxjH8_u${c771*;d zF@Z64=5i*#tj0z4&X&h@KlzGDG$gFrvYYcu)K`AL!;NfZ993dV=Hxe)&pCI2wR+Yw zfwP92UHZN<^lYr^jeKCd+$sCXA-UG+#@;V(uSl`Hzp49&^>r@e7E?98$!m_vSvRY> zhbEsYls|Jb)WSp8`m=??&Kvdab)H*0^^OQUUiq`3R(!U^EA_4K0@G&g{QrXM)tkEu zR!By&Rvk|hiPdWi-?F&L{m%6$zK3f4Ny{XqtT*>;|2*SG>fXPar89OLdiz>#PU@6Z z@O0>5oYb;Vcv8S@-4zD;kC(;j#;5BoOqnGWef;f8Ij82i$;bJ=GWj(%RUY>Zza9Uoz#bdR|(>Z?j9?h?|ELiCTng#xm-wMujCy)p##5PUAZ`i z|9JN0?@~7fdet>!CUADzM|TNson<|j%{()gv$ywCn^&JbUGOVa(B{Ig&408UlfRe*9Q$HX z_;2A9JGF36MwXVniK{NT{`6AHyZf~JTe^zM^`lJA>`AOPxz`PR6PUCc7M%Ux$)YBb zKkIH9Q?R(YOS0Kf&WU{dM>wa7R?MssQCFGiZQdvR$V5Y#?+B;v4K~fgZjV%dzTSBE z(`3urSLfW0Twrjt#cR5L;lrAVx3*v7uM6uv<(^k@SL4WXon>WwwH(r(i$g3GD!!^5 zoOivb*hxTAahcq5$*)&#F}^$CeYNAC&dQ8+zRGiy&0a}A`Mu_IqsrwMF%M0hgk>i- zWp)-PuM1qf=Amct#<(e=dv>`_DQ-w7TRcT#B2m_E$GrKqIc>*p0hOxnwo=J#Af_{KvM(sx8yK z>_Fq@W!jQ|db?M!RBdSgq2Ru2Cs!rQe02?xJmuFDlH}eppG~R}dp>#De@ptq-KEc$bpk#rCG_tNF=~fzTbv5`xVm)=?^b-Zv@Z*#`_JA5og z8sE*X9p8Cxui~ouCtvr5&y+iQrRm?jEZyrRHqV3CzWaD7d-@dTIqn_JHUFE=7$zW^IsN?Hb%~C%@9lR#wz#IaLeFT+&Rsz)0ik@_Qr*?gEL@z& zdi7i;?Yv7x@VM)^4gzGjM`(qdUaJzYx|QollfH4-#-49olzHVwI}cE z^RheYYs>2%Z<5}5_Oj*I+0WiySSxBRGBIvPSK8*o%DFEce|lNXS$noLcZZN{+rDp3 zIvgd>%NMXVUz(+r^EX0G`}>x42NjM5H*S63x-R|ICX=dpCb*vZ!$t& zF+X6qenRSrpQg{nppPm0w6cG^n%3DU-C%da2Vb${W{_e&3}KYcyF zO<7>}UwiM*`b#~3)rHNf&$+f?*~NPT-c^##XS~GiVi{Nl47Pe@qFV;(Ym&i$udk}!n7&Bmszz3=jAk{$X2MW z;pt!#-yU zo1uK`OJ#_TH91uczLc+ts%?9_FHk~qEBQmwqG{fqN%Ln z-|}S25z$NoZR5!H^ZxDomE+^5s6}3U{P4{CQ*W>T;M8fs&y0jXZ*EaR>hf6*;lXj@_dKPlI2CSvM*iZ+ZQkQKY{18 z>z|rG&FB7mKb9|fzx|B;i;%~Mtd=CmI65q{?b)h#DD>E$!!gtAU7W&KDIMGRyzRpI z$Y)$xheWgXO`gfA^|5l_;~4^H4u+;UT{UXwTlP-QY5SQETa)5e)=gXzADWrAY~`C2 zmRL2r8`m%Fd!q1ve(1L~LZ=nEdk+2cS+i-@fAM2ltM}g5TfJtP)MuMX1wJ?KpH3{! z=@i_(O?4ZySLoBy1tuO5dWn(VnVWcpxP6(fm&;FT*yJx^d~T_?*PGp&J{?SH=P&%V z&DrBZ$VpjK?N|@(yKz3h5~`GDyxZ_9BI;NI%ZC$x9ACUSs}Z+1vSSnXljl}bB03MP zvhtgCiFMWKev?FVedq4p*Y<}JuH=LStUeiIX&2EGDQ>c@d!x>Tii(Gp28$wQ_vkEM z{Vdrz_vPbN>yF%;&7XB4;WDpbB-c)c#w!+X9PhWeI-W?sylUS6dlM}AZy3ll-TS*? z@1lC^i4q09B`x7R<>w!A`<#CI>*>vt;@4xh^KIYqsw)8v1M#pC6+CJ%2IM$Xnd zXH_M z((BijTTa{i6gjAMcfL$*+Fg@+FClT_*Hy<|1SOWwxLla|%q{p_m)DJ7VeYebuWR|t zxv#5f$q{!eo@LEfX7tUyeMe_g$*S!+F-_6yea>yVSG9yg<$}olb$nMo9gVEi2o}41 zsbTY9AJx*ftHA<)id*&XfBah(qMRFJUN~cGUpceK!?m}vUh>Q+{PH?CbCO^jzq`Uo z{oKM8Wg7%9eEhhiNSaA<_F<*IsyMc7Q-rj)7_L6F`Ky?;(vF*_u64&Q*(LY0taAHn zUpe}R?|&o{R#3Io`fXslyV;@h7kp;LE?si{RHmJDW$seH7G3+?CEhAOy(ZsZ z5gWL%!X6)9|udS)kQwCMY}aNeT!_MZ4t2i2}mPB(ph{*lHaJym%x z+c1CTz{Hux^IX5rIs1Wi(YKhAzK2GwBV7i>te0mB)^Y?up zSbS;Rt1cf{Wl=bli(T)o>W@Boi} z?1ML}?k{0^#%#nBTE6b*1&&z{y!0!!D%^d$W#a?&catmcY5kVGnI^hgLyJF8X3Klk zlv|negsi%^ng`y^kBD~Je)gC7%(-jd9NA{|r@?i?ul}Hr?I%6j(=AVyZVvkyBhT~e zr_URcRZ%tK{N1}HCay|OzLiil(|P&zzYdcBoh6*5pI-7TNbbGx($l`z|L(=}`ptHS zc*P&aX&j%P8)G!3g-xLIYofzz9oeUaHP+`NMGw2Mg=hr!if0{Wy7uCN%gv`LI)=jU zd{$%~YtUS9dPa?Q=wZfZr=7a2m1D1}ue~67`lW$*`GXeI3yBU<*M1jSdVxO2@FROL^A^c=M z*G$cqua7VNDfy1~%7SGN9P7VN75bUAbajA3V{)+5{E*n`kvHCl{VaU5X14mIL++v4 z-;LRiJm7ottl1--lPipG-pm*CG%6=0K67H^@6K2vwcmBm$HQNz95*=?#&-3{k{4?m zH_TrWd0c&8;GvU#x-EsNu}{A01R2FG)PHKnX7%uyv;XAZ4ZfuU*@q?<{MGJ^4VC+3 z8F5pJMdojXs33#O!xKqLWtyklA5A^`BR6LG@rSqV4ipPD-45ELl=G+1{T1V*t=*On zmV8lUUbNp)G}HXx&U5}Ac9J#n3!ENFDxUYcx##}v=oo#qPr`dr-&L%ey^YQG_|FGV zZe3bqC6QM0V5w2n)TfzsGrZsB*Tug&A?Ok0n=$Ew(MOJz&$3G-&+ZA@VZJe>zdiQZ z^*K+r+63NTzq0jh#K*szUiX;##nsO)&c5?o?|b(r)3ie^2hN>7V0~yc&r{D$h2Kn8 ziaW(QD4YKB3@g)oWM9Y6@y1!sN8^>T-Gc4giVELspXtf_#9VJ*uzkS62747*p1E3w zPgO~AU)XW$vZTNk*7E6GAO9|M4^r?B{n8usLMpEG_0|2~P8EgypQRn6jTY2DJCXF|>Qbv?FBck)sY{9Ca`;rH1O zukWeqW5R7@T|JYEqlbi%AxPV=R9@3Lkr*H zz3nxJa!+v>d5dn_^*_HxN_g5lKAHGA1zQ;--R!z!xaDnUJn6nrE*5v}p7g!f%34f8 zH`+r#yWV`WBH+&TrqzABcppobFIHqvVVlE!Q{JoR^NtXQo3F|>>(Y88Ze_V>wB6M7 zxu+J8%hJEOdA+Ll0r7Qgae>0c3ZI&5{chb|Q1kr3$Nb2+*Bncn<}4PPyz<7^_;Bts zn+kj4)D*7ir=Km_tQO05r$NNmE78>@_^IyFzy&3|$M|O5s8_zQ!1)YU?Zo5WX_CoP z_WFd#Uz+{pMM+;t!PaJly{^Y~L+#bh%S@Jw%$V$?>DCv&nw|GYeG=28kX4tz2Jzi6 zOqs>L#xN=1YO40`A04ao3^`eAvr6aGtX*ii(qiw_RKZgU{P$m4s+FCY>$W|A+0MeI zlcyIw=okKW`tHYt4~6xFCv_ROuQXb|Y%AlV7Z3LIYB-+Qd0Xp{MDdF|6CXD0xT2eC z&s(0tv+aBR!neDQ{W?ysr*_w(xixwE^bpU0dx2G0hAW{AzrObih7 z#^x9sLk$f;HbwnkQSo>E~Ii;3+Tv ztY7oT==smzXSf{Ke%@&~Cs^-ODv{k?Yg1!%<`it){(q!^>0}Ab?Bc{oq9<1 z#?cbf{*BGAcE$YPe{t%l>Pln z=R^pec%^Prc3W&FtK-eNdg_YYOKxwNAtDh|={_^?e4*;^$6g%Hs>YqZ6ZTjYtBSm7 z4Eeib+J*^>*Hp6ZQfbyYba!7i@AB`nPrhCAL;9daCX2}a5SAO)yyI?)3Z<>QylYD7 z=2>T+bF?lwc(yE_d;|Ksx|Mq#@WoCLs^$t0b&1N_ zA{Z*lxzZwJV*M`Z#SY=TKB2t)euithbGWO;D)fJ=&ER-!@home;z9*Y`PKidz3y); zmXa1~(Vn<5BTw=CiHbYl8u`y&5WdCNJx#S`Z%69)ZIXiN@@mCBe`3YvwpbapiS3#$ zqrRXr_>jsWr{w#4k4R>)`)uM2T=4K#fY_cX8*VPz&3Y~+St9eGB(`+=1 z=QT9X7q)skd!y6E1A-whv}C%>gu0clEa+bPMXY44z^BJ|Wz)E>2vzxZ&SHx8@Mu&~ z+IO~k!`~Uz0+JKO>dz#%u>1R_&P@^t>fqv4KmI)T#WPF6H~EvVmNd@Xp!{avxm~+! zWKYhDt&L2YaWUl$$FDbQs-pwOsGEbckH6}ZDtW^BoRCVHU zsQ5|UEWc1DzRP=r{#6)k>A#(L<+F{eEq~s>T+>(f-;^WwFFLyKe;2QQ|KF7LCo=Z# zJks-rW7qu?+dJ2&e2SM@kb0+^rNXD{6W4bp8nL|fNN=TqU+?KMtCzeq@xTF!bbwV_17U-PTu z&vWx0nQm26-JP|=`qk<~pQUDR*jq0BRjIaoy7PmFcV-Heb>DpAwxeUZv*4?XV&982 z0)Je1Do_-eo-iq3eQ~zn>344#u5x+i=>}+rJwC?8cWKhq?RRFMzWS_e*SkIbz53cG zT!SLFNN9eyXZtI+n0ckV^sybT=a*!Q${jRavc5ZVqh{J^*OPmecWI|x>c09lr?A-C zb%W@yB2F2t6)t7(w<&%(Ah9vX-ZndR!Iw_Ob91@^SL>~KK38bYt6v`vef{!zQFYFn z35nHP*Z0M|pC)l#CA7q4gT$8W=OdGED4%&X@zw8b%iAw}IQ_w_okw!pzN_53Z`xio zJ#Z~(_wId<-%ft?@I(8vX2n*APW{A%TklPl%nDQ%UMhC=p%|y)>X%=iWp!=*ZYE+e zyJ2yx@<$f4PoW|GP4l=eP4G^MO|o&;ZH~}lT@_YmRr4+W`{C4Dr@kXc=c$~0@-V5W zJpBF@4?o$RWk(Hr!3Cj zFJ>z9ly8~Rw1b)3-<3@`nG<)n!^I?}ZSqQ`aMzR1jy^xTDCvq(){JM>J;!WZmj1M# zvPC|w*LR`r({27n(VXo&=d8)&D_GgOcE=sJ>2>D?H}&>$8Jb5`xNq&a_clB2QTgv# z-&qnxp9l%>RljkjCG@(k2zxklkV{LbPNuc`SSDw&{dR6moc1`>#8+ z#psNYa6#glxfiSsu=dJq*ZWZZhqFw{i09H?L7|-0GBPa%oYhJU$>uTbiY3uO$G9u3 zQ{GP4=DgKBT2bfr%|{nD1R15u3(1(=)0q?ba6`JZ_#@p+-Fj>FpELe)Pj#Pl3rhtD zsRh^U28XKiDPWwuXzZ}XpHUuC7Bdvm_SN}D@R&rQ8!DSG_c z?59PZN~%A70;hSL4!ZgC{q^4dnRz@0yPv!}rDF*R8(%@!OXc9hU|FpZ;I} z@7I%u*WZ14dX{tFXR8~A51M(M4vRM%J(l?MvR^&l-{sHU%zyVkUtj+Jr$k-$kxYrE zsbTZ&>Ix^Zi7t=hyJb=TYL4WRZOi-P=hy76tYzE0%HY<9ojv_>`)=Mjmp}hp{{7|K zuX+FacK6GVyN~}{{(OI2{lCRYhr5zaieD9+9|+t#7aV(z;mqb|s&{yuTo!k3z9;Es z&6hYu<`_Hskw)R>Rpl=aJBB|v`e5o)W1CqQzh<~Sntx-@b47)WM_*z(6osBX=Kk?= zz469Bw~ics=wb20QG%5v>8iqB&jtStn(Hp#`u}&kOG{!&&868#6IZU7C9t}*=HGlKfn3Y!eVjHw;wr6B-dO^Nk3J`XmR}JlFoe^5$B)(ynp6JMfDEfNsDFX zh}K+tJxlIU@*M-+)*$v9ESfesP3z4QXRUeD7{v0?{XX+b<~NS5z2Tq#r0}nsc4NnP zISUor+g6&!k4}1aZhkgd=)RsG*Wn9)%{>_lIj-7h1fAUDSyiz3&y?9qrbzklUiWvpKD-b6?bx35XSY4vC6vr=;0|zpVKR}-Ip?LT2%a!Et%4`DTNS8|wwRSVbd)ZaD7UdTS+9^&KVCsv8nFY9>qxi@3wd>>}{suJotx9g3X4 z({vd6JHiyan3Q69f~=;CziqvAV%G!iA9JN#4;BAYooguA6n5-{*t}l39+8CyP90&5 zPj>wzbjC1{^{gYtWRQkk^l1o^Cr>S+PPxPHO)Z`52b%@W$6)BIq1IW zku#^w)WGx>?K_UASY(YPA6&Q`#GBqRMfKv^9csIO2-UxGWMN@@t!>2Pn8K{Q!JK7f z3S-Oatveby#7fHk>Yw8Mv9j&zYK5A{QU<1PKhpRA%$7OQ6Qvl^u`KX*tijChY&Sa6 ziy9NA=H2v9Ih}VpFI&wu?~-5IU)y}9S@)EEcu$%Cp5Zh@JpXv0*r)zG%|$)z9=!^O z)-Fi@tLC_9ZsM9}R(p>*-#Boj>FUJ57cYN1*r^v^68-CiO*`@Z)7l0YjLWgN$9k^+4t-0_s3q` zc9nm{Gcht{JEj?=W_@#97sw1X<_%}SfHY3k+``XQ{I+s^_^6XuC za)a91_u|Ww)EJ$3LXlW~xS5&CHdYU`y z=($~C7k{a|II(yJ57T)O2d=>LauFLDA5S?Lvg?#(mHyo4QE$%I2rp+1zFL~-y76r9 z;X6w%x@O$4{rEtXNl=MVgH7e~^v{!Co|tmbgvXnuWoByUHAmSGi!N9lHQRo^AWwb9 zQs?~@)Avm{xS3V#`GnL(D__g}>RIsV=N`on-ereBOzyn4mE}@Jy_l@j<*dhnF|(vT zZqS>{Z2NcDo4F=Jd>spq|A}o1IXrWRTC;(hz|)oo3fp`CPm>JR>CLs{@cP34?7Qd7 z^VVl)oY>4UBkaXFud*{LR*M%;GLrliQ`nn%IWDdEY_}=jq&H621#-MUojBbs*Sx&v z-Yk>70yexsdc|gI`4icG^!%17UZA!5uhfcNOSA0emIex0D$EkSI5+q$%IbT8*MS4b3{ zDs8;$sLuC{pmY^c3*J&4zRfP_VF`;EHXJz5&C&kb6ThP6c`xJYU7h$_+p3K$?H>+6_2wd->SZ!ni4WER)3#o z)F0O}uHm9Mo*|Ia4%CcRHL{0x_vOj&+Q_13e~ z^5^%kSiYGwX}N07;+ucm)vRt@DeQWq@=?RcEAgV^nE|67$}7<8KYWPuHgN zEK*%FJu@jk#sBVq!$TP@YeMx{n63qNzS^^37Q4cM#$IoJ^;DG>)eE2f+>fb7&Y#PX zd|{i}l#W>A-U%g*J^$w>b941Y7nBDcX<$@$_2IneU^UOs>)`I2D-XD^83<&Rt^2aT z{h;5COCI;v)y%x`UGefp%kK^|9+X^gEb2JG?f7tq?}SB8(WetCbhl(g1RiC#t2EHq zzy8s|)B-)j$2XLfEZ!{=uUo#@m3IqM)|Vwk@86iq1_rEUH<#Xh!Qo0h!|{*x?w;uqNRCL8CfRHi?kd-~JlC z2ijVN4?d6QSZq1p%<_aDUwg#`H+D@E_6LVIip#RB@Ne?J&=6CShtvP*cT=&@PKD{h`F3oG3r`jFYlZUrNAc0rJw z0pFERM+z%vIYkypJU_B^pLgM{KZ$WJd=r-lo?ATib&OO7`**8_b8f9U%F8=7RGRne zyy%Zgs~rvn&))l7z;Be zQvPj-`k@3*p;KS~R2-HNRr?*0U~%TO>w%aLuPu(nh`3G;el}+s^A*u1sYM5>q#D;T zbk1BToceM?*2K-bgqvNz!}C6?H&x4=nDUyjN{Y#${_3}g zG?r5he+<@s$$OBJ|6F)~rNr?I2PJ0(IsTL@-{$skSw)kN>a6|25qfov_zn zN$t!7d_kqfGpYn9#a`;1CbREJnCFzzu+U9>rpz#^jyIa!(Qkjg|NJcZ506gG>etZ8nY zRS#$HR;EQ>V!1~+CTyVei8{RIEy?x*I%B4%wX8&gSU}ZRWI{)e( z>t`pMr`m0LBYfeO{jyf><=OkT>w0WvwOQL1`0K#Q71I+FA3XVOa8YJO`?aRI>Sy~j z#iV>pBU{t*FP-|bB3wx51NUpuWcOOBg%{PQ9pzknAZk}<*8EA+uL`>+{F~7&!2HXh zp~Rgh==++5_jI&N1v={A?`(8$UT*SzePctb`sPLksR_3q{k*cce<{EIrqZTPnc!7M z{V&g*kN)witGRTd=_=MXSKp^OwVM>9f|Ro*Ll@`R_o%2d&XnxECu+TZrgi|wezyW0 z#?xh+IZ7Erja;K=i)Sk5$F0e^yQy+Y-J?0SuinnM780o#bx!OAU)4H|=evDUO~NeH z(w6a*S6OjPU$Vf)^046(0k^xxE4p9DzR)@l`#!_(QI`wva!U>GDN9%QNX<`R+x7YO zl!tRShu+?yd2Q1j%di>y@4ec*(emkHy~|5}-oCkJ`=oiEi+)a6vsRh)sKcAZr}?&I z2C&$?T@laLX>~`~8<)npK zC5ncYXKroWwe92iZp-Tr_)6uZOj*jyO`D8%yZYZZXECvq@O59gTPOXN{NV>{`fq5w zjq*}uXyRFQ*lL|o_4YS4!831dHp;(rqwD#lJs$b7yI&RAoe-MB>$~xCoK>hse0m}8 zsyXuxb@;D7+LUsaQ+BS6@UGwIm!Fz&XzsDAi=s|-T-s-{dD^07ABvuNtdXCOww$WDZq+pZ)F_ejA5xlwH*O6OiW8luyu$m3#T#`$ zlOn$@7Mhx?H=Rn-oxgppi@{R&?IwrC;tr}b%rmuDu>Za9>$b>qeQ)Qh7{1Ji_$$Nx z`D%o<(EbCp;#DG>mjBbcDO2Yt7yLe(4S?0b| z-e&MPWvZu#8boMjX0}k?Us6Kw` zdcxtwi5BT;KK+(Is&DA zzDoOHzz5mFES9=H~0D9Zw1lu zm;7&pu%G3es35^C|9^L-=KVx7Q8%&L{WWi67X9~Jed>P+i{3L`uP&!TUA1o;yj;Cw zHU8i9a=l$s=V2mN=kEB&_J{1;|M~6@%gdu4*8S=8`?^EYE-!0RdrHxqCw7*T7hk^L ze)8_@_ab8Mj0;Y-ZB3f5pm0;BJnRksRQ1SP(MA{g56=~?a$W6QexqgY4P%85k`~o^ zZw33eIJL{_X{VSK>3!GS)DU0w^S7>GbLP6VoFj$5eqPewPMn!D*ET#dz1NHFsoHw(*r%IPwq3unw&bag_vX?G>;e{A z+jn12Of(2Sp1(OWI9BJa!{ZI5iZLa5uXde}xfTCo$5Zh&i!X1_?49AV=h^fFf?os0 z_dJ?&cJNhKzG$!Wj7cvK zm-RFhx~jP5&-*BAo@?(*GCthiH8uI}ET7vqcr&VVuQY{)URbPEX!E+_cZ06%9I?a~ zc?R}nyjuiSXB=ZKi#zPSBjf&+?2K)}d{yr+Wa(H(sVJ|T7uC6U+L=#R?p=x|@; z`SWGE=dFM5I}d4eG5B6$;Pfv1C3UZ2!_Vd7;p+GAgcdg|KPY7A4(yutZTA^2W+RK- zlIZHmoW5(nDSK~uVXy0+mwI1eVdb=WpPP=anHDJcCtK9&L^g?brBDi}5_YU$QYY?r>AxU4fbpr%Q7mo?L4ETxLz9=7TpU*4$X@xj<9e;ns#} zpRTOjmEjVQEw})IHXC_j-Gd|p%U$&|Ah5C%0!FAOt>Vk7ZxYa`&Ileu;#S}Cx zuv#>O{hqa$%a*AX4^>}Gn8jRBKlP9CIk^nA#$#q|`{mxR+FFMg1y_b zTa&&Vj&PYYA$Q~Vm@|(L@+~~|Rii!VkDmDCBW7i4&)kCpv_5Id{tqt_FSOk^yWvQ& z`0{z5s;_8Vn^r%kKHXWk`bg$&ZjI@BMeD9fUEa2Cm9yf~*aX?VU_?{ivRO|^W#SVXh$bIA|- zU(R2Q+*r+6u<6e6gsMenlH%vjJ@#%v&9$5Uh!J+?>m2E#VBxtXT> z&BBWvP8IUyEbl6cGu3?ls$oj=cfqWWD>d0In7-w$(s=$y;$EDx`<_ovW-MvuOP!&b zaki;?{v#{T_iV2XSNK0y59goo>*aFaYvuZ@4xX{mUKQ%UMQN4$ESv55PbAEPLr*{b z?kacgP(U(|>xP|4vkgOyvTd#ddanuQ8&BKEO9uVIs1%Lgo?d4_47D|Z0#mVicE181+%Vx zxqC=I>&Ub%d;fi(F4^6*^Lth9ljo+YlSQT!tzJDVL#Rn(YrzZ^-}%;Sr`})ge{9$9 zk9nz@E3~y0PNyy^G>Iu+En(N@eD*=_{N*>M39X)6UbNz^{^L0Zeo5KAZe~-reG?^n z=Gj%gY}8Hk3UmkHp zrbh@R&908Q+ql7=>%*&<$hU^a7(+VByT1tA7`$|u>t)%fG zT5#L$BSj|hA&P=T}U$a>9yVtZAD}T;#`0D3B{jblz zR~Pnil$SXsZwvhHv~?Emw2ty!^-HJ!zMRy|y>xQ?u1QRm3exH2rD>fn&2DcgT$QGg zd9#dt-IUv@3Exi#ty2h@wc_@PeY?I?9CWl3I6Ljpj*ImhH1zrRi+wXO(zTd;V;+b8 zk^^p8E3fbCjF)EIGOdo&ojbdSHK+4H-<{d(KdhZ9w0>iUIit6LyO|l+;ahRjQ<7v{ zUPU-`b?$LIIxT`hS1PiynPK}blUpaw+fT53`Fn@e13`)D3m(VJKe*(ay54FTwfD2v zSaP1Zej;GuO5xiFqngb#V$~KnFgpBTVM|E9d`j|7`AhCSIuBIqZFMc08OtnI{rhoG zW6k2_=YL8!iU%H5G~`-$!(ih1$kvaSS8u7XXiA;^G($b6@!-WAgVr-wIs?iIT&o48 zcK2}WOBeW z^HLX^p6s(6B|c2NyzVY}K5kM154L-~(o9!Ns;=DF_4H!(rK!o$pH-Dyd)QNF)@>?U zYpT`j*genb7IT~0uRz@yPfd@SoLDuPMRNAM9dmkxRfDyPx}_(Fp4BmqJ6E)5?$wjG zeNE0A-_y+4xRY7BneF2Azqb~>>)=z-OqzdK|C~+H-+;|RnMV~?hp=g_vzlNgq$+;) z(T42`1yyf8Z(P*yXl}BD^V+y+hKfv#TS8CoIk&d3r1|B>+k2<&4ZP8NUD@+>cwb1G z?%OB6_BS>pAGb8GFzws7RN?ZL@^fbdY%5~=Z$-RRJNx)?VxxP2&Z=uuYWZd}T$%l~ zyY0%KwLH7GEow1d7;CKBeQ&4Nr3zTgo!^O6Q%qho044sh{iIv?SMX=b3pW*HzaYbCrMk<44`U2Sxiz=GAz=I(q-2 zz{Qf6e-`iT`ZoL7c`sQ#578irU+QIg2F#`!d7J*5g}>5!r_#^7e?9Y}j~`?INj~$N zv}oo|t6ry#5{u$8LKBQ{vUx7N&Gjf$_{jBkHp6(eS5>J_{javKj*bo&_x-!&^RqWQ z$~HZi|022gZ8hWRiwe6ke$>?Mp3zeBQ*H8u+esX5lU^rBJbm;0(2@eXe6{mM6Qys} zE$&hNdfEKUr874CJN$I-B`rVjl`p7#_t|`@n!VQ!dtJ|3TQor}BVjRD=+c?X%sf^t zo^vm43+FZcspr1et*V<@{ZYsGzSz!Y$=W!*_vO90GhO^MU$!b+H=e0WpLJ=8l(Nt1 z)qGa-)MvTw%V-L5d+a-5pWn7m89UmpUk~q|Z!p?zu(H66%vzo=bLPv zv#(3dpR(CEI@he1R{u3+V};e_bpP}EH|F2Y*w*_x=62)R9bYx?#k@$);b<58%zx&K zMeD+Ug`fVf3zuh3%}XgRDN0SuMNE%^rb0oJrsl>Lh6qtCtAdO`)2l)HZkahHsYMF< zZaIl1sV=F>`6;P(c3e-|12_P!fGx5H5AXs7g16QwCTv)v2st2<_-aXmMVU{zVR&|9*bqx+!O`G%1 zZ){NTJhJC?&g9UQXTt7Id2sKMT>U>^udfOZ6u;G+@c%DT9Ui)KUP-^dVIWK>TzYpGa z_i5-gR&J;FcYkeLv!w3Xz0|3vr7!8UUhwo-JbC&)&C^WbTz>v>KNZ)f?w({Uf0}G`?~tN#lHHSi=XS(pZe6*b8b!xi^&J)@;h6a7#C?jc&!!vY&B0|`@SWvdhhqU zpIT-eDJ8O>NnF7E!S$NRyysP-|0XGA9@~3@cZT-z+>~ufi(k&?-L(IS^xc0NjCEI1 zH*WuNQK|Pp6a(L6g%h6?uJu-Lk9<4L$XsvXIy+XK_W8!y@mh9)_8tna%r%#A3QsuE zUvp3UTlaVKGM{r3*E=XCoLI7u;o7Rh9l|>@->!`7QHr$}cJ>Qld^;zgM`8-QoY-oS znHO&hu3+4|;^o`5vRC;Q8iWU@H*ZK15Q{y)eB_NqN`mRDtyx#U$*g^SchN1;$lOCO zr}T5W$2seFRaTl_-z##~t<~hH!dC`Pq1Cpf*@n*-abCI~zbE^T)zs6{M_jn3G^c65 z{Gua~ZrjE1sa%aWqV%KG@%+n+&h_ndVABvkkym-<_LVI%AU^F8eyrerX`Wq zYu_ATe`OO>>Y=-_5(~|zbnju6St9XR;Bn6t9*OXTa-N50I6o}eIeU-9xAm&Wr@p+; z5Rv_HQ?|=)-8`MB2N%B0jDKixTPb|aRI~j2O}tg?7mR97g%mx@ybyID*MqfR1CM{R= zXcMyvLvd$&$AY=69*c|EB_tv_q8^5Byms=>{`1q8fA6c)%G&$Fbo2G1=-&Cd$s4|{ zS)E+-;>&y4tR8vGD`C%)lD65}ep`2~dUs1}8t0V1``*OQ;hXsJfbNb{38$(UH@rJ2 z#I*-;WLFU={4M%kH%H!yc~(oDoz(A^V!@3kcFQ>$ zoLj8$u`DafMTza{+9_M*i+02?`pqd8x_m=8gU5%1$`j&7P?8;a}pPlh+RU*WCNODQmHM-Gjdj*Umhb@w+YLVxh#OS905|Ydzl^ z&TC6&efTtafo+9`@*Gu$z{3`t?=;$vt^9IkL)hVlz;n6GUC#3DEbZ0CIm+LqjrkOc z-5Nj3{5q#}FU?`&p9?&^wRTqj87`(IxM8XEKvfy2(la!(K&%upHo{yAYYeI$30HdI zxAPvG3DjN>=cwb9JeQ)HFdqp^QLY8?=95mnxdO7 ztixm>Vri59?97L6wmk-%%73r_+kclu{CeSzRZM-#f_7|Y6Fd(2JNhg(SmyE|qGh(j z1(jn)@2ajHyr1A$=o0B6qC6v8`!;hJkM^aA$Rqg&zc*}=5A>G%XU1B0%&Apab0*jF za>mTJ$&E7~CHiQn1+`rEEoe@AQDY-G<*~}LjH#lLGq2qYD(9TT(I|F4@5lOG+vJ5@ zXK4LidLee_-I#6jyA*o#U#(fS`q^}sitIEdmGHa`H^e???LU30a<1OD*IT~45pjOL z`Qwk*UzA%o7EZ93Q^&XLx%rBH=eIrG+$ww`z+_sL#r-$iQe!Q5*_W3EWT<*5-2l zKWDqd#&4VMSnOml@E3o5=B)Mq_ZQsXo;O+>{C4tLc2{NID<2Kt@^n@-2|o+GJnhz& z-&dw}Bs+0(s?Xi!y`rs(Z{AIw0%;3D!{b_Zo&`p;Jew>ZPRxnaFx2@U#V9JU?($i| zg`v0Des5ytVLX;JbJwJdms^``*OhGlyn}B_jqXh5!Yn_FzQq7N4kYRc~V}_5DL~NwQ(s>8o_Z^PrHU4538-6p#MrzW3*FW31qH5S9 zt+k%55IHk*VdhSDz0=oRJa)%E+Il3{jJNQu;C#!po9XXZGe74>^c%%pt=zl*b8g~g zz6kR?G64m+ImzzuK6TniMQ~cv4I918;oI8dY+l>*Sq+|u1z*yuD6vd zmXk zV{^?-@b-av9Y}JxsE0uj&lnn9QHNLt^jOifHp+ zXWxHwUA}PN3@hI1N`u`hFL%ZW$9}W5oqhGgG;|>f3fvW1$GmU z(^olp+432LEdDR=FaYZFtNlqd8XzFqBfNz(a~rFaC>9r<2e zTwR zPn&g)39s5PVM+hSZ;x_scRAG6&h}1U{JFAF*TX+b>aYfD<=Mx)7M#sm7Z#SD^)k0q znf8V4_KsJ zd8E@4T6B#6&Vfa1;#8OZGyP$;;BE6=DT6ANqbLxVCH@v#jcWpDD!%=Lx`0z`v2ff>(MJ7DE$fdYjHn+RNRR8fR z!;CLETl_XH>3TjpWA(CAt2{PUf8B9rvzC{FR~DN>^=uut`RlW_)!HOYvsOF4z5nHW zqx0GcMea;9^B?=n66V@)?})3|@~AhTZCG!1+?NjwJSOqfHE!D5>KO&Lmu?jG1{SXf znU?bUiNbcPlwYrozUOGI_{AFkZ-$NgJlo2qhdaUoy*{T-dBk^jYJ-bwQ0>hlp__67 zCQVVYnqky3r^I0DDoex1%17Zd$$`#a0+nZ5hCTT0Z;en!@!qJ5Shj!bY zdTG|;#J2VB1+K{DO%l_z4##v`P1%1S652q`UO;c{`@=Bu)M5?Q@cD{9Jh z?|;ipQ}B7WE_7}Y^V$dT3mS^HYm{ZitkTMt5tjHXyo2TGtLqX%q0>w>Di<$lky!q@ z##UUeS7d_jVJ7VYrdub!N;-agR@d3joL%yX;Rm}x^wQJ3Tosy(MkQOP{+SkYE^X3@ zcPG0hx;SkVd#P-8=0u6vwcsh55&x&wr7*l$Z}QjwBEx!q7Tsk{(*FM^N~KN>*{yYQ zvry~b{VXf9blI#EQu%E|PLxd9a`%RFh|K2~2Mi1So}KAY$^P=RpxMdcvH0H%m(V#! zR$85TJ*9Sq&%}gF{(lyySlm8aESV+Zw(7mX#)|KcWVZ>em@@J9;q;iR2RT|Z1sbPC zUe_0_-v4!V9&bSNhM0rjGak+9y?XOzipUq?I|*z-ZX9xNa-%d%t{WOutWwChw7vM= z?3cT{UN7_XkE_zD>}6&%Tcul&u=iZ`x!HaX4JOsAZ9DTi_^D);Sh44}Nptzvv!0(G zC^?-=@Wob>Ij;FZM>4P7?zPzW_pZIudG=;$`W9Wi3bC(ibIup8n)~6P;4>5Ux1GFsH8-BQF1;)NVVc^b({UVi zhO#vh1?oIH6Z)=CDstODZA$o@g~Czu&TiHAvs4a~-My(KVWz{~;;-7?Qoq77E-Qwd zKk)o)?^Ev;vlkdYnWFNzGuQA~?Q!+*$rp~!c;A+yzHH}t<_tEjjkmr@6i7WfD6yGI zN8+^I4`bQ(+`#W%mtpEUe%o83RceO{eohQ#mVXtw?L5QcXK_v(DFV@n z3#6tcy|9{MSj%{HVeesoiCFkN3uR2{8XV5G$}Or3b$(HtQ-IL?q+zmp_{qS z{gYhQpMw_!`8P0#{odET{rF>rKKDQR|NpaqLzewTOepDyVAeEi%@$E@lEY`I@^ z=1gBNf9m??FITH7KkcijjhrR#-JZ_x*Sn=zu<2WEnAINb`1r(lVg6^8sNjZu`pWe>@$;uV z+x=(r#Dm*j%$`2wmsfRBl+~Z$e=~!k%aXDlSqaoB_siGTetBUoEmm+b=D_OexC1p) zmM=YQbEt(!()9;N6xWPLqSmK;xz$(KI?rC)dcTG>zJ%Y8ZJTWTU*D*zt^TZM9?xZn zDR&OIrW#ZK>p_W3PcwJNck`{ayKKBxC>~h)=VjxU=7z$L%Z~M1&9OPY&#OP|*W~L4 z8^f$DjCmg(dC}l8<>9%H)2k$=9-O#vwHW8M4Ow!5j&V*`Mk!^@%2rO^_SB#_A1UjdEd-bcE-|xgq@_u*T z<(O@ne||-5`NUxHM2QudZ^Mo~mf2fqw!>!r$4e3|%-{W^jyg1n9=Iuyt=jyqXUofX zf4ZEFzFYbSa7ui9xo6h-%M(vdy{fRxQ=CnCVyR2dqKGMpS5N6~^XHU&&(Zo`>)^sQ zE6j86b#!03%l&-$=U^#4uVe0}yCnM`fA8MHC4J;eupGf$I5OJ( zW3iv|SYpduhn~w%rW#42Ly`_{iWP?gJ~hewoa|(6^kPH1;OPPZd7oZ|ACY}^w{EfOeee66<1BCW%y~~#;)Tk^ z%CV=so8`@3$iH1!o3OfOr_I8O`uopQ`_fVmbn2i-2RrrD7NTHr3zDhP05$*$}Ybi&re(V*}h-oUeW5l#(-#tosYvmxH{|G z*6+0VwM=_<5u4e`Wef)tdJYRFoHaVROjkv4wufM>PK*Tan;VB!>q53=Zk$;5q3@yV z)=G9gasg**?Yz3lZ-Up~Wqm+-rJ zOE!94l=}K$@7xMCLHW*SUv|~ho?h~|;-_EU~iIA21~Hl`UbfmgNfF^3d9YjItZOUP!qXeM~*|| z_gj`+tZ$ww{E1y~!5~E{vF%Z8<0I##d8TIB*R1B5f1mMZO^%M_Le*!77xBdW=G@rU zH20<3p>qqJ&QEQyPtgCN^U!V44R#hM@t3KJ`~hLE6--OFec89rguhzn&MXB<_0Y{R z&NF+;)}4NPf2n+*@xmVan!fnA3R7+wJ)X4oVUNC8iTNb!Q!P7tTBf*Unmr6{I(%a( zTT}7+9F9nzqdN*5o^VfjrT@~eW$Pr9s49`zD1WCcZ{_ez!3%9~{jwNhydJ!f{5Z%V*WB#VX0fGcylA3@;MwI_0RZxc80i zk)88Q-8!`uaye`}R~vCl7*@QkN_v_4s`1nrmCrjWTf@?Nnk|iD&q8GHh>{(n2byw5U!b#~|MeA($6?F1z!teF)QzUpo;m(yCt6*Jt;)=6%%^`Bhz zbVlBvS@%^el!SLAIaGzT*eT6R4{JQ9`nIQhW`fYeCm%U2|JJ;eU2#J8F>|>1tSQYt zGdUPM)D~2wZr*mH=zB?eK? zc%ds5o-#@5hA89C`^;*4(w;0hE-!JCJu=R-_LF|x?q#Otp=by-$*r z1aci0uKeVo@Oj;zJT;FaHvdZ(Mr>WT(QV@vD3Iu=~tR^BeD` z=G+ik@lSgDx9v}-MDH$K+Ki6ekpz18~O3h9{sbo>=|oCXFsx17cRYF zS`$~0xV|_cr@+gh`Ba}rmDcTKoAYw2uQe5(|LpTt^Sw}Q`#odB1JBm}Diy29y?yJP zGHxiCZ156z#UN6jtiPI}&frk!CZz*c)G{ZmfBCE^%+G(-D+k6s#~$C_wu*BLFZbER zml-PSFXeHbRhhQ>Pie{3-0WMmn^o9SrUx8rygxJLS;Jpb!4tQwHooOpW4&X`lKJvJ z?_NpgL{|S{aFTu_BK_~<)nKkR1{uhl;w^`&i zWM*G3J#HfN!?59j>#vs?UuHe%j%^AKIg)Fs-}$3&TD_8VF}L%1!wzrmY0~!Aj?9uP z0@GWMa~x+9Q=98w;LNYF`BwIV<=U@YV%9`$u0Nt|P~IuDK>N=e_81ShmrEuda$m}D z@{msR0Rr#(lRJ zHXfH{a~C~6neQ@F=S%15NWq1_w|2yOJSd&h#{D?KYSk&T9c{~w*tRj5-->DYYqj*{ z)8*HDwpstGdVX$g0Mmko4aG^JtkV=ct-LroBsV9gF3MeJrLDe7i{eWy6og2WQi2Bl^BMWV7RZvJ<{=34jPX{%T~(t`A^Nv&)Y%}qbkXvQGo zo2$*EyxJ~%u4(VoJvaQP1%)LZ@u-#X-TiYV)7M*!bN^bJ-;Gicyd;uuarvK%hd?3= zuX0|Bg~_wtqG=U5QcE&+7qlK+a{b2^p}ALWZ(Gg%+*JDT-M$y;uiFp#K2}{P>T)L~ z?_yoxkMnaiYPSfKCr3S(J9FXOlAFt0!gY_ftLC4+uexS^->$u#-`5DfF&CVhdcf1D zt)Tev)k{)E)mznWJNHa$7HE9=WQJ@(#@v{mx(!aBe%=;4=kG0jX05J*QNxjUKi2fi zPtWAMt@x5(KTA40HRA43vy{dUtb8~1Q}4xl&H0ts>&(*-KYiuCl`#yR9{;PtlbyB+ z8w#8f%KZF&vTF3*)ru#XRKHwR+{(J8jq&X^^~q~2W}Wx?ut9d$mwm^c+^D&nv`TZi zx~f@>>G9gAW2&-cTU9iL*|K9_GaWfur#Wp&wN0VGaYL_Zj9V8^xiv3D`F6?GHU0jN zViw%@&6{hinV!IAZqaF~ zb(!poW3$&;>zsLbJS$QA%>~Y$sI?*QnLju`WVej+dZqkaST*kH!*#zV9($61_POk- zJ%{T;RCd3->BGGiQbz7M_=xVZ|M$Z;7DKhGiYu4n-hJSEb&dUmw&$Rm%SXh z|K7g$EZ-*^&9d5~XYy#1$$78IE0}*zP70p;sPP8ZFP_%iz{M6*Z!JpROAb{XvoiMFUc0aO`Hwci-YYj{{;SJaJy@Hz&L_#lZL?WW zrlE9V=CYP;#{!N2$h~o2;V5q_X?` zrWLn(?bgoyZm>;U=Uv;bU&eR14x43!ah*LrkKy~-RJ}*>>psm}ZNM6zVaOVP_SKyHwT4sI>8*58a!v5deJkJ=ezgBV zxJdhSb(x3Rb2b!RpIb2X!`)9k2iGj-{9LtJ*|WNH!xyIKx70QF3YdGa7j7=tfB)b?ZCj7CLQdMxE&JBw7=KLX<81NWHud&? zNg4OzPewEMKF-m%YDo2~Fu5@rgH-PyZ$dhZnu8RtnCPlUUw%m~`P z%1O;ybxl&CV8H5!^FG?xy}GErVvdqXl7yqW-P8jW3YO>V9!{X1JTCw3b0>#$J@aOtU=j}=TctVtSuHwsUTHY#>`bT^w zX=gP(;WS&@wZKWR=A&5}M>vw1r>@+$yU=&%rEsf^bzd*uHd(lFOU!~rJNHbv zG2v8#^dforXR~7C)+{-e;}PHy`DNLzv%Ybz?^R#=t(JHe^7%seq#1Xjv>kSKz5G+D z)ok!dscBBI@>G|(kJ^Jw6OvueaSBwut(tXvz142d-%ob2KKA{*;Ki*r54UGCu7=$E zabJ0jME~xdUu(6abQae=pK*_Y$7!>nhVA>19_Pcp3^ImYr~lh;z3JoM8@W2Xv0&!3 zuIS{)n_0Rql}Kg_q@G{@>L6RwYb!@Dzr_1NtL>oaE^(wn*R&!)#Zj@51YEABX%*ZL$|T+i~jPsRUlxyg=RVY{t(9qI0hXE!^7F`)}HZ9{#t2E2FNh zwOFD$>-IIHyhm}f>Uux@42ZtkqV!7PkJoNF)>`B17e3~Rbzjf!*N^xb6_%mDc+K^MKpFMT$kY>Sg#$zX*?%S|~Z~f|4X_K&Noqsn?E793?bIofDX_v>GGbitV@SNd~ zOTx`L!76=4>n2R+YnUnjc~YRWx@)RlmyFl<_NII5oIKX*YR`IJb7cJ_4r{Be%VdsL z1s&QDU#8;DbUIQ|KUh#UF#V-+fMfrv*xj68s-3%Z&aUg(_2aeDlq1vCI<+eAK1p~# z^JQ+}Es+I#&+RPa=1iOxzMRRdXzQH=A?d4~UGhR+Zwe2ddE!r~=Nwl_%`=}07oK~4 zs=6yPeE#Xky_)gW{Z(%y>TOb4_xOWm;f#|4ChQ;9oQYpvzg*4JG-9HEW{SsL%`J;-cFi+8Dpq!{<@Xv+ zvDen@%Ca6Z{!iz>NpSObuLw51EFxagvU63mw9zE9?HcF9=6hOgu{!+x_azm@T9v-{ zS4-`cCGC0(w(dTDY@>2qXOP?MiWS~*@8p;EES&0hN^@r6xm${j!Q3_~6ZcO2U4L95 zp6$kTj!&r!U)J5~>07eukEtrtQ;A1E<{bWdKmEkg@+ziZZ>)Z-ifHzzP!Qd_>B5SO z&whm_p1l1ySZ4eDc=`EG%NI_VaI|F8ZNsnw2`)`{Q*ydXTO2Oj{lpRYX7%+gYA+Ic zJFAk`Twfw(8lhEN7M*4{?V922>xzMG3%!Lodce+Y0+_LwF3&ZwL zS3*0M&wXac7!}{MBJzmLMF;jp9lCkvpMSBKY`AVY|9=V5v|!DP%Ol#(Zj)o*9Kp0( zOQBCcTcYw)JxgquO;sU}u2!(i%x7AqoVCksLV16EPk!~+a{aL#^Uj*j;&J)^a`8E9 zXItCu*>R5^N7PL4DekUJNSx^)zqW7V%APB8bp@?%Po3<1kvHgUXp6M!9;s=4uX)^b zbE0lce8eW5oc-5!-r~2(%y*y6EB>g&8+=oTQ_s);!^u_=fE@bxn;YgbGAvri!rB!woSNie> zYmV@*JI&(FE=mMW1A@ZYPM^yXYL3VH@p607N73b+7$xcJci7!AxzFwRxi!@w#IbD z6@?#j+Si+OXqnd}ZI;{fXCBMLdXw+_!n6anJl-s4S73H*`O2eFA4SD>*nN-83Set4 zoGUX$KQt>KNoe_c!S#wC_IrKb_if5TkCleG$ybkdny{{({7x-bfz_z( z^P7aOplfyG>QKIukB&)|*qq<>aB=8nB{$ZeN@qh#N+v3s^%UHfat?p`N=!WbpxDo! z8|Tamax%}FQFG@s&xs!_mtHCF|E%$4`TI-$TQ`^&=scgW=GI1;!kUK>ac=FlKIu7o zlMc#-PRTs9Iy*prn%hpbf8`%<#aZ8~Q~hV2`)<_%o(T&ovx4`f#og$t%=x%TT4vY8 zhZTx{(%pk{_C<;=S$@3a$L;yHxsOG(Uoe>FNL)J_r|P&|J>tQ;2aC_YowT6cyO4jz z_eD&z|Fu7AU-@)PtgLH^-=l7|xP#`WE#E)rW}9ika(G$lQM>1v(yk?Wd#{9CZ#(z% z?7Hq#sy;7Ss+-;$6i<@B`u`2r{_>2=X~HsUEKZ9qp5ihKPV}9UD7)^;s^jK5(%EZe z`Xsm&-E_PkyxS_&f7E@sZu9#Gtzn`kCd7S8&TQwHz|oLiE!WNVsPE-&?_C$ZELtqE z;C00HzxU5fl4HJm$VGPd`72959cig~*S$$Ba^2$#1=oLm;XB_L^PDkw87upP`=>%w zE~MR;ntC~Q!RLF=W6ykDdE*cJ{vIj$?eezsOADp7EwlOfg{EEGUlrHXHqYF5-dms`pi&b5CNwobqBR+(W!xI@4xEya zITROmAmoDMj6IzoABtJlRD-Mphv!f2 zsho527T5m8n~l`;eOAA9G}2tKZK=Hb<{Oo_1k;(f?>nly`6_?swK-<7?Gnf49k^h- zJMy^5v~|xVnlo<6Wl4SAbS5x%3CBjqpah0RH)Z7K3E$qZ$)`+a=fPX6?s0e;rUw37 zuyvM5m8|?p;ZINA7pC>TKc%m$H?e0yE!*o=Roj0%m)MFMF0-oK5-`Jgn$Ic4%)-^u zhNaV%KcDbp>ulDmcP(!5J~`<4YpToaWqY%h|CyyJ;=1+j#Xo7soj;kc;d99ple)}w zN^hOfx9P9MgDW^>m6jGU&ajQHk_qSa$}viJ_qNkXl_`DBXYXCEuy$*Yy9evWNu_c; zO7lA(&k16YdU{QNj>-1UiFtgU2a_Lb@qLumuk}9pN?cqd`0~oH^Cmsc@!7sO&LZ}c z@sqvb`q9V!&Ej2m#m!Njfv0M(>{h+ti+i|j7iMbv9@^Ts=yvLUCF8=IS(E3#+GH&F z*4fidf76zakAghU3VyTLBrcLMPyV4<#OvitN+)}4VKBI??`XW;fm?+^XG7S@ll70o zwN>qYe&xFz6ph+Ls?g=;y!Y@4oynn+jpsUfMDH9Hd6?_C#aEQy;6_c)hs0_7I?MMq z{MGyV;hw)jk)k{t78flgJ9u+bXV^~(=fJ5A8o`7*;^XV1z? z&+`Qt@^?4L3OTI*#pbyrehTw*##a|Vus_#)EY8+PD5>$DQ>j79N!OzRqN;Y%PbX z{!@)-T1|qL5oQI!qCYo^#`vqW$z80AaA{t~FPSk*?z!*Z;>$+G_qP1Fk|sB+IP9M9 zEg^yB7qbHzcCe*f$lY*i+j^B*_GjI0=frn?yWIWh>+ef7;j_-a+Si-TDfXf3ptk3M zP>D;=qZAjLdYRcSWc%2`agEpDljM>0@?Mi~2zd4xNj5GyIdN)T{Ju%sB|O@{im0ly zt^E3?{4JZh?&ekOilXu9hTkTYUgFtj^+6l< z$1PthcXyd2*Vk&3*JgF`{B2nsGhR3Ej=H*RE%#4P=^0@j`}2LG4|(0HzA6UK36X?)av{u#rs4>k|{^zZI6Jlk)xF$Z>6>;N0LS9X2Imbg+ z=he>{a#mjU{e6XX-G_?SmHpXPrD03f2=#y5lU8bQev8icsZVlORm3cv-xsvyQ*+1P z4dD@+o@u@p+M`gh_40MKh~vBXf>zy$U#0QYPH5?kWwSOcb?_GbHPyu>^6KuN;W7f}w)r$mJ#*oEW!1}D;$7u z`G-q)@5nFzxHWfSn25)V0M}iYG;X#1+opDOjY#Ox&SMK!TT6AWz81UA<=LLfZ;EbD z7fwuG9JX3#n(Yncsh#JFrup%AKmRT+dGXu=A*=3vqEi zwjN({@Yu3_3d>qTdU)!e#dJFzotDp9EPycE2_```wJ8s3TC>8%2BhAeh zzRpH)6Hj97opL98539^RQ~&mZ$!9yKzc!lcDz>poyhrbghRWLm-291qO=^}oPg%dt zB-v0;e)Aa)x35Lg(x!FEYyaF~|7YYaKhbK>ftMRsl-O^66&ZDQ#gEcuPZt{h(?LNOW$VAw4BhETmJ2o#1yg2uw$wJD zQAN>4?9_jwPOXmjemB}q7S3ETsUT_ZpC-4RSBvKPTiWjYzE|u0)(Ovoy#lA6dB_-_ za^px}HQ(BM$_(!>e^?m3`KLqY^^H1bTxZ?s@BX!G2fvZ(Dd*sxRZRLxj*n9P{#t(_G^eM}8*-QTKTyx~RY{0*tWr<9!{1Zj;Cr2xt z>)6vQR(D~_t#5U6lej8oroF#&bX6aNTp`CAchNB6;Mlg^p^9vd;6< zE%ejxysEPAb*#4LOKtHzQfVrClBTcRw?0sJs&=;DMh1iFF58cIge}pyc75tAfmdE@ zq~GKzuDhx((6Ua`Ve%dwtXoot`S2PE)eW0|t}vHU z{nGKi^p-D|)?G#0Br~ziSHHb-I1=e_@(cIvusL(wKgKRwXxqPT;n!PLjykr9ufNT! z%R6_$!LyY+w)w%Q%KcY$l8%(ljFWxidi3kz?~@u9wQYRj^zBL0x!o)!&+XEe2>#u4 zphkG(_MK{%5?nTJidJjaTfW@=%e;4IZnRtJZ~l8J=bD$~@qgF0PI=McHdE{HH2Yku z^s2O}o41I5d-m&+(^SV;K3-{w!Y8@k3WPVi%$U9T!iVdN|FfGsogSWwvCj>>A_lZx z#=;VL?F^Q6r6!Xt>e1 z@yR41-6GGz@F^n4|J#OMJsuMO`JP_+Qk4k|y=lL{2F89jy+3Ddw?*{F`Cslo&zH0P zd1!8J<=>8b^Ex-Lm#_WovE+Z`GT;nT;Rmx>B6$>+(V_%!1k$E%BZCv~-(2jtD0g(1-oX`B{rZXhPL;Vbx#24k_S)>Z ze{bJSx&3$9_T0M{H^qJ5TWiO_j5`b0m;Xp@S#+6kTdCf(t6AdVzWIgitG@@W+f=ph zMO}uI#h;Icaji|OFSLhq6fNzUyzbZ2-6gv7{JfI)6#V<({AcC%r()MPtSaiZ_`}L4 zSin_SF;DNxTC>GW@1AP)wROHytXY_Ub4GSe8Q+3;t9h>nU)ndv>d(gmW@Q(7CT>|@ ze^{_?YtYPB66Tq&jY6{jIaF`Fr_nI+OSiykJDchnzW!s<=f8iPmHS@Q`rK!hqUg2X zn`Gz3UYNZjIP&ZtqjzV$tAFs_I~BU}f!2ZRuRXU*EN1O-Si*8CW=>&4vcEp#;va|P z3szj)cAGCRLc97$alLMwX6cTU^MbCeJPT*FE)J>6f1qC=UU_yli$nrz=6^4yDeHte zdNdopeP#QZY3Y<}eX#hj&V~s^>Cc(oiSFc>`@iTwX~8A`8^2edoZ-z@q_VVV_UXsP zYtKGZxnCUOspWJEtkaNxI^=<3F8@H{T z{PM@^j=4bs{fB$46fBoiCtTm4cX9I8hRtf1gLfrQ@NA7{y!7*Mx^&NnaQ}T58jJrH zXR>@?;lA;*;dO;z`tRFHrjPrx0v-DmGA>{G-*rfxMV&R~mSxc1@4K2SFjb5`= zHovetWLtvmzYXa(zxyxrm`%$fl8?(Z9Ft2#!e6BAz_G3YbRAa%@H~*7_)p-vGTj@C6 zw&9#;GFv4%C~m^CijxawO$cAB_aW5c;-}|sYE!=#hOb!dW#@a=l0*7S!}?_#Z*$&Q z=aKdFw!+HPls%L8)G>=3JL9i7W4kD)LV5GwcbdMbZho`oADe$GROLn1g=I#puO9f! zxufId#+2AZ%tXP{;gKWea6F)ov5 zSsmR!FSB&U?c!BsGbPt-lH>lSWW3K}s%ecv-@WI2vns^e6`uDA+fLPvXa4tqp-Eq8 z;%`?@bETp>#rZxLUKw4Q&+zMsbp7nD@8(UswA3%oxa;wy|JrV~#-69sZTxB!3jg-6 z_Fd0*apBUvR}cNjv2yQuEPhr!<=$MCYfayReSD^ERy^5!+G5ATogDLSwtR3_Oy^r9 z{xKqM#mp3`6$Qc%uRbiYY1ot&{$kyMi!RGO9NcthY$ZU7k!9Qmqlvs%9Rm{k4e^0$heXAeBvdsA-x>Blen*082V zPKot6|Bn#)g&Et*yqC~$=y{akbZUSMsN$= z*Z$uB@PNVb)D#?`z&U$Z~CCM6UAv3A2`{oXt3{ufo)pxY|-ef`7+X-`|` zHLkhVzc!p)IRE`A#f4(4OMl)ipPlwwlv$`hp>ONki}M<|qnFq0RaZ~k7oXEVpI1Kr z)Z>iHmz2cB5+|=ewZrYRn}JsN-lq$r|DBnsnm%E#%-a}?t*h4t-E!p6QCs1bS$}+o zr|bls3^Rp@)g`O{E&5S*&_t!ThOyIxP3Yqvp5A?Z*};4Aj&bfgGLuoiZ%1K4p}^j` zqVw0@4NF$;PV_lh&1R@0eBjb^p?R0zZ;mUra(Z;C<7l+?<(+AQ@1vzI>l+EUe_HTC zO`@^xW~{;Cytx??xoJ+vZu+pwpDg)k_BU4{qa@q+L8jT=mU9&+)n@*jWFa}p@0Hla z7a`oy^HpO?;x?-N%;Z&Y>{kA8^;q1x?Z@qN`{m{4OJ|B{>pTy&zn|*LbtP`2rF5cu z8mmofbUzoHn^#u3f>YG)ox+NTyCpi}8e8VBJeduS?b~b^f!qQLZzOj^Gtm;dxv0n zI;u2lrForY;rivL3mM)9_iUJ`9rEi*!`CwpgYf z+G957#hmUd$$7gwU;psl8>V(AX1Ue*=~FElR?S(RGUrRwk{esnYf^45Rb985{ox#+ zo!O%28V_cL3rZL@$RvtSoj66orEkAlu~ysEzXw!ami!fQUc{kVE^+qCo4+lVbLuo~ z89r=yB<42jSKA`-4$FSC>-=v@pV;h@I`<*%%jSs}7&$YKEPK;`XiM~?sT!uZVvASfs5km4!k7+=5o;bxR(+V>#hc|D(yRLVAzqbiF;HFLE2_Ms0}f z%w+Q7T)lR6+lAN$mFD`@-^2SGg=BmrH+nbjxs+mdkawZ-q37SVPAsWk8o$r?_S9K< zA(q@<-mJQwvDRucOKatn)b91Go}PYvda?4pJImyvRHS%#8GrqK-aqf(U3tF!F8`Ou zuuhyj?L@#+&8+%EQ5!akgwLA1cKzd=1GZ%^4cDp5MHwDXHSpe8-oJfYZdw28UmKS1 zI6gmT^Pj56;gRu7s{f>yZP;*dFO!Sr`T56l*-g{M&X#5vDDGX!`s2*HOKh&R6Qmo!0P_^pz{ptfn_7xT!%S2~Z$S%xZn`JZShnQsbm4cKR zCy#k9y0iK6lf0PS-@4;me@K>}>0UNVL8ATU^4l$eDa&`Sb}iG-UwbK7UwO6s!+)Mv zRv&!xId`3u=7j}b$y1wR4OPrPOV4{2an$vi9q;{$fIWwN!k@A+Klc&tfT$TM6NU3~0jnwDi&o*2)WsBX2#raBY1pP3Ravysiv_}_Y?7uoTy>FJ9TUQ9mp zak@~i+X1tMj=$HqEqPyx7jZeQA}{bhG=>;SSC( zQROc=s+NRQbG9ME8;<*;A-)zQ#PEwh-qk4<#i zDd^QdEz|dV?QZGd8|s&Sl-j6Pm9y;{>bCZJq3vU>e+S)b4&5s*dMo>T`{nS2z}%|2jI|Y;E}2DK zi_urS^}^w+_qkiQGFA!6J#iFvco1j*j7KJs@7AC7=B3GLIS&Fa>Sy{mzkKp*mDbKn zISj`#au-}KH`jETynV(MhMFl>cV;~{d8O~W*k|$F2aMO0mkIt8$jDjFGwIys$!!+u z`zC%~%eQ*U^_aUe*%&P!e|!-l_VB}(k8zACWk-&$mf5d%o-W^;O>^||5rLOEm<=>ergjO8Tu-*M~ zVpy`F`6d>peNr!#Vj?TI+tzL4t=P0Twf~Iax3cQfdveZi-=4$3-LzR|U25@;y;4bVU-%!t&;Q4)4n|J3^ zb}kMNna5dSNA?IG7s*QTe!sZ-{)w6Qi-W2T-ZaOB3cRhNa-w^rysQhA-V>|h9+pk2#ipE(yBYUa$&njCz_M%8k`u5i|1 zu_X%@hE(qpWa)Ge)qke9<7n2&Gps#bYyX+-&td$tz(UaRB^z7l9j)tLX{l3xHyN*+ zsV#HAuQNlvyocFhUXo@SYCEav%eV@Bq4lNb4Q+w$W593IRrXw3XlGWslCh+izg+t-dF32zb(7sL!`X*#RDn67yq695yrqGe@X1246o#p@&#YF+Bj7$ zQ9WDb{z21j${SVbHct*7sZ36uE$=PT72$bp~k=Z&CM>e#JPp*98*)Pt@_ob zFIL;|0(OLkeJGt1SsHo%=6$=%aktKx%}H^&d-p-usrIY8Oeb}HEjY5P zZG~rw30rmP53R_$Bes*}neJXt^wC`WHqP}R=T%Ri87cc`$cKOYH^tx?kH(y3SqV?8 zVs}pMTk;|}qei#Xq4RaQAkQYIH~a2g&MiCBrEfehj*sgkGypj^AWz{7%dIX2`O=p<#QLU(WW(_Q+9)yS~Pmy+6t5dCJ?p4xEf(!P5lR zdG8K&(x1Uw6gBOVz-xhtEHfsjt(YzPMQp`%Ki>(vi{|+!f7(A~;YHg5Th-?~=57;l zIqF@+ktlm@eoxE`<|ON7ulMvZY%Y>J_=c5xYW0K&&a{@5J2_(l*ROx9)npV_?5?@H zvTswicZnba(_A^%ZI3q!rtg`xw7gEkvDfqdM*h?n-8)><`&8S6*B0nL^hn4G$>NzE zXKuQtJKiKKCDkk7W81170gsz3R{5ChX_^o$|L=F9($@;(Qcdy2rF&K<7`CtW^HQr{ zzI=i1KUvQY_3jfU&YouUG_enT_-rrxhw0fD+;>SV+mjW> z*|z_%QNPyBLb04TXMcK>z0ZnxIHzpAAqOAB)TfF|vQ(-#qg4hA%~F=H$Xz_+wco_~1_`Bnm-2Sp z|6f(yznO7gXZ?qSQ+E#9oso59xwWPAfP=SeSaFo?sV1ox1uMHnE`R#}yU06ZN?Y;m z;#097rOq69duH+#4TfKDQ?~t@UU6&2RR0s%O*WdHopskNnT^_iT?jUrn0Niv+TurZ zADwYI;kmrx;ywTEJ{d1oq#X`c{(MQK)ZlprCh1y1ifLSK0OLVL>(jWEySF$=DwlX-I<9L1ZTD?6Q z>-L>jYG&s%=DU4RuVg~{RVK-6iFp>Ld!+l7ceSZ=m`O@;H+_j=k$N5=ytnXB{k`L? zTkoDVSX{bg=1#@*dwW!$DRw6QbHC=7k@w)x{-f7})*rfZ)%#EFs+2{aj&-h{P&jS< z{@LFyTP{7)%IhB)mGtUG z=SzVbj@NERJ**U~UzPIZW7ET&n8)54a}oobd3uiDRb0B$r+H#f?g}%-Yqm@E`Z}~% zJi6=1e^NGg&f+Ovs~&9Vo>U~pmayMi=-1hU+*6Lc-mvgA;f9}%Q;Jq_-Q7LqaNJ%;H{KOG7hIPZgx{9e{A4|^xOU55wxrFMSdac~ zd-U5bXHVP%uFXCrJ#C(k<;|LRJ(3lknlNF~%~dQ@wVzof@jtr0`Qw{dxxJ=~cfY)| zDOPf3RA8gUy^kAB>JPm44bc?)`rwApr7L@-G$$WzkNju0{>Hna`3ZaNzGwO$=JePT z?Y@BBSE$!+f}ZD=(waY8JQvATWc~O*L1h&~tN7D%4qqA9e3&8pN;j+H=~>w#C&$!_ z3tEFWu^L@!_uyLV!NJ9Lr`oMu-IfzRuXBp=lvMdu%GuRi^LgSLXQSBPaxYh` z3g!D28TLPCckXG8oRbR6`?kpMWMW5f&hu4kdZQQApUq1YYdW!FNs6lM@t2}DTX%Vf956G~GLcvLA=)>oK>JwVhM6pP zJ0iBrDJT@*iY!bXwZBBuEZ`yZ>F@!MD0XmNhJ!&(W>kk-TX2YR>? zLhM$iWKS2X-{g<%isj54~fTS=oF^XZfqhXOD^$_UC$OiKD-@@(mFa~?0v`}0b&T9zK#9-<__`^$zl+rX`&epB?EuEf3& zjb8drDWqYtpAlGl086ddjN=B7sLx!69DT@DrZRqoYk z^a?hKY~8f~`rA7@u4f%uwK=e)>RFjULuc2mP16O>ubMnvkTXLqA~v^cdrH@4jj6(2 z{x7dQnO3@%;k4RLrF&hr`+GGK-&IW14$J2eWAw{r7k}xcx;bv|w8Qg!pI0vYd}%M| z_1RNy1bt!)n{p~Ld+YD4H7dj7d$k7?iJY$Nr^l7-yGhv z_#T5p#K|9d`PUftzn@dm+_WPyPyF)x zw--+7@$~ZDn`|{om(@1I}b9HiE)bHMW1{j+mRT+_U-brze<58=O3lbR7)65o+K z$Kl7%B*|?&2Pf{&o%801lrCSi)~4-;dDP$N1b7MCuMIu9?p3WI+msjmcb>T#Z>vt3 zx99op+3qD@qm!O~yc_-Y>tDvoH#&dIp7igXez#ucjW?6a(^pHkhu?m@{kHOJY2DM0 zIc2RbdL8P^QZQX~zWr84jH}#2@2;2 zWRZtF4ga@!{+d^7ZsY!4a&d0y!s;`74;@n2vC?t#t_vp9pX>~n^RiEL^V}v5ovQBn zM|RjQw%xjIvR~WRGu5?=E*1$amf7()f7#p0oQ+ZXXSy?Qu-)S458!vIXHV6(_P@6E z!rRQK@X*pM+gTrT1A+oX|MEEeiFSKam6rQ1|Iu8FhLiKo`ZjFfzty&ILHiwDqyFud z=~Dcc6||4LcHd{y-xf5DO`~_3uxZ;NrmVshi>9n8Vfmlue0Soie{Zz1&ICotjh=_+G_o&z+vfcI(D`Mzy+mhy<@%RX9bY7I&3M9sSwXoE4ze|#>^?EUvD@bN zuW2W_`FtdwAD+o@%JA0FC#@;XN%ya1m;^rK%6@Z-EoR#BO^$c^7XHlNExl3e!JAF@ z&c<`xa7&cC8Gouwj!mX%U(2&syd}A}Pni8qtFGQ>TXs#BId*q$)W>VqETMh}POg&O zcW+u&?kPRa-J3fi-<6#T@VYN9HRstv-M9Tm}vmFO1*LUsqHVNf82~(zq3HnDra`m%h8a{rkM?-OaWgwZ8+eJW=~)6<(~ZA?`EZurTfhPoSB{dDQ5P+)|T_j%AHkB=GWPkeR+FnU!ahg{X_13 z9WRtlhqJ#=D#)+RS-hM3@0mRH(`6fuPTQEG8+2xFY`Mw|2jfKa%5lHF?sashp)SikJPh0XytNdW681KSq1*^TvdJY&Y>|M!! zsM>p*(wUAsk)P#-%p&t$|6TB&lky{z`_B*Oj3zGm#SBKdTU&FkACCxomBYQ7ZBxo2 ziw(!FC#uSycz^Y0;JTNBb60$}zjid^N2#>*t(v5lEULP9{z>ONzrB6S3{I3h&Cnc>uoPYo7JAJwLQZ=VLy1z%L`^-1`6v~$PeqKUu@8qPV zJZ9A)y+)<;Za11qwI2%o^FmmDx9PL#AE%#iI{xa|1d9*RP5-8?*`(Sx-T6_%lw(=e zGur?){r5QhB`p`<#>I!e6c&{BE8zDUy-n_>3Nzb>Rm- zUcUVH6L0W_qGx%#Po221tm|n~g4@v6Q7_}u!dtK?HX zp+oCG>#g}N|HM0vogwbFdFSy95tENLUS@Q!iCndg?P>d!AcgSnZJF1%%-p_c#{cD7 zvO6XwK8$=`xFgocFWHvqX>-i?FCUW@Z&|11{HkilqxOGy7yoBGdFGfBmUR}O)f3=# z7AB@<@H0wGv7Aw2O4J!8Z*8LU<#v|7fA^2WwoYr!#}9sa^DntxzMF7aA)2+;qw9e7 z$?3n8yf>MfUXZ_E%y;tP!`vn3H{Mm^NI9U~*hlbcL-e4`S(G#&nv%%qy4o>bXNV2rG<%GORs(ojX4_qlwW)~ z!_G;5t%s|tuD)Jy^`S0b^y1c4Y4Ih+fh|p zaW3x3?;~%g7A=x`)?U$d-c5UF-h|l+rKbOl4lQClQl9#MOP9I!LT^S+9S3Vmmiy|m z^3%+IMrvE!IW6aE(tddAH9@9?`f9G(Ruac0PgN?!EjyCce0zbBSlC5otxLxVG_XoGxZaW#-$d;FH z_AFT0H?1thP5DlPWAcQ#+gj%z-M(i{!ORES<9@x;IpXM5`S8_8mdS^59~p%)IZa5& zHV~}ZYT;<{RN!%RoK*3Tw%%f&WwO1@IiDx*w{d+pNoQh=vSu>e zh_&Es+H+Q7LSNeFLbr9Ci$C7%j19}>v%h@N^u*2MCM)>%A6{9I+ubuEW2M%=ZXR8!QiIEkb1olLh}u8t&D{Qv2fpv@US8t$^{~RK z1%^NDu1DUxcl>(5V*B^!JocQOV4L=~#K}7SQ=9R&rSgZLdFg7;I3zAwuw-B3)8lKT zr|#O4r&iv-cusY~(g&LsxTmqbR<%`sp6lYku`MX!Z{4j`wU*nD@b8$x(|hS&T+*Qf zKi^mBDA%0Yet=h7=jGvt{_Jh(fpLE?XDX>>oIhchePOmvfom$mEVt+h9VfgNES8*_ z;AWq8k8i=!a|t3ZLK2m`3Y;n?J?!{)ru3qo@U7OOwT~E*^yEx_xkeT7YH?3*U3zJ@ zmBr+VOztmyZniz!9ehdsMSn^~c3Ne>im6tH+GE?}lN{@%7jhry^OTOBDSM#t`Ghaa z4L{t8?AxQj^!A8V%7Y}n_r@{}K?Q-%s_*x%JmaNy+9y|_yXpV4y6R~cvubqzKRtT7 zMMvS=L_XGi&z7u^PkemQ@w9NwFP_-To@^NgaP|_PtmX!PEQA{=$yt`xU)XrEF>>B-^%k#zUS=&N42&`^zeC=tRSJ0rvv3o%qO1y zbf2>@v3DnrtUU94Q^UI&-|kk(HVa6KG3NU5$H!5~;Pz zHdkKxxUt9mp`Xc$C9{wI<#ZNnsEoCJ6*^h{l-i!7fgHh3sjGJWpLU;lalxLxd&dGb zdLq_rZ@>SjU_#p0yaRVVXDbA(ns`!et%u<$DYfi^BV`k}Z`%6s`OLZfGqg-^c|Ho` zT(~mB#wB#7^P#>gX)dR9-j+x$wyTfpS-d>Vmt!gye~0FznCODtcf^d&oaop&G4xS> z>?xM^=Cu_mNnh`8d|Y(qv+w`e&m#CePNxKH@?^L$@79e|4g36WT-zFZSK&&#^fue+ z&(fxzoe{4pba>|dsUGtr@3T4Pu5so5cgF0|zq+)(w&dqs%Kn~`2RydkIw_y>^+Z|m z^?lRKULHR@(G(-zwyodH27?(#=^M3tE-mRJ_~K ze=T!)#NEYVb6OAYy?(9p9_v$Q9}`<6jx)~rD}{rLi>F&>UMlW2I+4Rkhg=L&vH1~VOi#7aus}A#+zCL_KNb%Iky(t`%ZkodrdQDKmQf7MLrb%`FE>k!w&gjSYG}WebUYCpEJHpb-$?X2Bcp5X~Hi5ELjTgUJ zs}xN8dR|=U;kyK@^p-xUD^1l`XZLf&&spf86t8Nt{!wGuq!sedHcPY57Ms5L!oyVz zvD1|cLfEf9VOhCDdAW`8%9p)Kd10@+O;&Z+{%00gBf!(J>x|h}-b?q7Yqo80>e1NN z;dE+-kmRJ_i&ivLrUYcN^}P9Fvb|iCapP+HT^=h8S}%xfo!B3?dxxQOPgd=YuJ?~q z8&0lW)-SlFfBB)kPcLrdf9Ac>ZQHi53(Ka5?DpGzCM74#MDKW)s6)s9BIb5}#? zwPE=|_Kv6L)v0E^YIl)H_Fw*ScH!R8TWV`t7iVxSyJ=vx?LxsDr8~Y|b=4m$o1#iG zPsqMscKZ6+D<^i`vyZNsaC!ZyCXd;-*2_yAQ}dpm$}yFJ`|nQq3n|YvR=$ssj%1AJ z=HI9H_3F;6zFe8Bq^_LW-Y4brlG~7*H=Wm(-?RPxv8!9Z#O~5y`fZXr!}ay$`I0|& zH@^MfeNS3+Cu8N5pIKi#vKPJl>3m+;=JHJ8&AHR%o6^>v&yCvr%x<^o_rHwpOIf-) zR{edaI$QSk(=A*Z7c`wMjr4xE<^Ia*Tkm(h+wb^$uE@@nPu{;Rf6$%#w)}tCpUV9~;2X9)^7LYjm&M_3!L_HY0s?c|UZe%E`tXMT6FcpC z<^6_i^%bw4rD^_k3=i#+4&1z0{_1kG;)@l+JD&$eomH^!2~`r9=4n?G?7yk>e4@y+ zkc|5^Iqxd`UrC)1J;Zp~YT`}>RsEi+n-=|LYo1qC_$Q#Z_(-X`Y}ih>%adfc?aSus z;Ylyg(mk1cU~|Ktg++{$TfVYR_PJEvYI5}6eU-kJ&p(=i<34M?5ou+gq9`nvD6(Tq z^t;9>Q@N(ix%o>_gfHT2dFq$jpMIqLs0fr>f11lYwM4UD|McVApDJ$qbZFbiuKSSl zG`?yYj(xaFo=Q=O0KN+asCiAuG1b_M2 zJ3oFbd^l+b)8i|v72RX`wG~Z!j@zi>-J!VN-?rQa9b= z3Ad)1uDdBQ-Bz>vjYzF%*&g$`b!!Y8zaQ9mZ3j!JL1~5&ck$+HQ@-DhO7k?XUc^zC z`>p0?LHzP{b#k8$zkc{QH1c7b?M@!Y^gaL5EWQ_UoZG8qtkV>=P&1-Lu>Zf;FPEwB zl6qPvz2e;V$mxo&)C;NLhijQkKC1D~+-~*otBzT2^J;T%t}`Z*&yU}YdV1|fz8Evt zd~^LTpMo|q70e3#t+(blU-4%7YuP+KuS(>t4c+;_3#4yY!e@AQ>!rtyC6|{TTsU_N z^YSesOWAiyUkh(6{F1zA_1inv5~g176qL4EKI~n#R=$cY>$2fS-4lHWmcQR(Co?(W z=!@9))VCG=8ToJjc1q5xdGfU<@=#ih>%-b-GZoE>U3|oY-ze0|cCUH7M>~4gNiM~o zPi%BAr=Q8a5S^Z)lJz#;H%g(>|H_g%MX`@eSM5%o-n`~*z*)MbQZ%fy~~tiM|=Ch2wOyM0=c-s$wDQjQ!z2*Cyq!M`fWaIa_fBEhR?#VY?vf#*Pz;WyHTv;;^21mrcKXmGZVjN!M(ra=wTX|8T$YKhMhRs~F1` z@%}zw^F2oK)86UF&7713+{{{MRZE-5EtoOMwruONa}83aD+Hf-sD8fqE>vK*$71RI zyRxn>+I6YSxj5TN@#<%-slq8s_Z1ay3|ZTIz~`XNxA`YO8)zD9gg@swF?s%*sFMl` zr>ep~&7J*snRqNiY$9KojgA3#)`y&zeZ_D1I(}LTy~wmWN-Y`i>q@>-hBTQ zs(Ja!$1^jhRLtL+$2OycwU>cCIdP4Ct%CFvpSgG6ICXAdobe$`Gfo}@$yk5a*6Dj_#_*2Ehxj|Yz^80!wt8ZmZ`St9F;5~)@ef`BV3%2xg zv+fVAQ;nZh&Ubd(!^e9CJ@)NnnRsN=bLM8LYe~NMb~ddz|N2bCar0Ad)JJ~K8qaq$E-ZITw*%f{-&a->oD(0X0d*rtiLudm#TxEP^x{Hh;&hV8_f zW#2xYfBLbsGG*r3-M`~@YxL)Azx}CVtF7Ggk_nMlZfL8_u2WC@9cuTS;2n^uagl)G}iTr$16;A`%rs)NT^6HJ(k5HA!Ua58eULX77asS<;gWJA4Tg_HqpEj>4*iTBoa=CMw zX~5n4bBo;9gfu9vDE)o(NtBAY=;7|iE19)~R`cDCobG&g&z)PZ?)+K6v*U2wXRU1A z4hzQER(7vPX6!pIt*Ll^>3y_PQT8nUDG6JioQ<(enW5Gjk^7l#o7tLQ>w6Auo2B%o zcj=y)vCncvCx@v=u~u&_nJYFkq_{m#qhexEZxQQbk)QM1f4(-8ytj746wzIfcx%7rxrZivnwX8df^!*1wzS5^A}x@pa00*FoxsK>D|7m?*vwf zb$WiU64H0KeetnqYsR|y^PgUOyiT2Iz4C0wDgN^FE!0lkfAq0i=)AGlohcW)T{s)> z3*A!t)3A7!oxd^n?(;{wehU1ToP0R_vCmPLm1ozBynQBOvrYSNsAcPhHLE`_es*=Y z$EVQq(#?^l@uT z7e_jOy1h0$ElBMc_bx7-1;M_n%*1AGnf-O$@|#kVfBEYFzqaM@Vi!3+zkRO_S96{f zvYcTP&e*czTyk!2S>WWwuYYIVxO#6|HUocN?*9MRkGPktEV&kAUOD*z%lj9>uCYm) z9{F3B-xvES_x*uQ?$nCtSG%ONxUaEqiRWgXekqCjQY zXslZ4!mvF_Df{=CpXxTdI^AZ5&oQp^wNX3Gn@Ue}yG^RN-EV&K{N~Ra7hdtP6ZrP| z<+soU_g>w4>8`w+@7KOXPxk!S(ltp(RCUb{8Ds)G9iy`M}1nW8@QOR(tP% zx$4rhQML9ZX7ST6nx{_5oEe_$@M*)W%g?r6H(maNQ8xH#T;EE|Mlt>S5|xHu_~Ydt z%hx@e75rv@xbyam>nSO07K@&JnJU%oaQQ{)s}FTfXEk?S_$^+>DLu9Olj|x!5y4d- zIzyKm^ZLmzt6Ov@^1Hd%wmhZ3mL?~sEzWoxb;kO|$_#s(b+-EbbIZ3({{16DM)jKU z;cXfZWCAPxH#vSv4``|vb}YJ`d;Y_R?+QP?SxBBf7%3&a>D zmc3x6pwUc%d%@1e-p!ZUF8F@)1^Y+0rr%+`*mhq&b8ISV$ZM*3=b z_o-T&-TL!>uHy95iqot2O)e|-k~{Qa$DD@+c6G*2*40IB>{~DK@Am)iU!GoE{(sBr z?%9hk?0&TRzs%pFBftMA{+)3(-Y;Q>f%g4M<({aydn_LPtvZXBnwp6Qeu@n}X)^Wg zd53k34;P>7G?}~Y(7OD?5@&5DzkY3V`n5&(_L{%iU%1qkZa>-_p5kQn^Q)W141xLF zcQW&?*{|UgHM+n5Wbu^91?Q~Orfe3l&h~!TDYjslw>zrC_L|&``in&)@|Cz zwo>K)$0wX`7Cbx3XLZ%`b%MD6xrFoocqbRU^o{s%Vb76eLNTW-T$i%&RhZcLI<{6e zdq0@lx>qf_a^mbI+i$TXie@z2a~kzKLDo;Hbq{7GxrwM&Ce z9hoO`jmJ!Pt@aOvBflT^9iH$!<(+wom)Cqh{~ddk4%goh2%7)oXW+TxK@I;Zwp%@u zS#q{!O8)x%m|KU`5AK>$GFNodr>G5!)|ELQQRTU7ts%hW?0LU1;;3y6|EHHM@%wxC zb2A!$FV?sd>GkpY4u>ZfCFbB&7iSE3`aa&Vv5!Vm4f`wgHtru2XF>lN`eed8ehj6upCs$i^PHy|Q zuVe25h21`TyLZ)JGTuG;{I0Iz>cnqhg(^uq*M-{nsBaJI-&7Lpn7_tN_s<0;2VH}< z&E-EYu6WrN=sSH+@v+ZWPlmgz%iG7kKFgqUsQH>UuXX;dyFw=xh_lN7`R?H6VDc!i z;1u(msT(*lirGz6+T1wxdW`Rwq<9&8@Sa}iq`P4Dw#Nd`S~4RwZtUE0M}6P^I~E(* zjwHGKj(0EAPIzg_*`eZhsn^QY`a;6$9jT7dk(rMegGz55*f-yI#g+7}8?yD;n006A zvFJUl*mC#ti!%}%#2$AA-%>l!y7&5v>m}(7Q|qU&|55&ZV13d1{Y8^mR=&RTdsAK; z*8bDsWM|M|WAa=%u~Ll=CLp83ABJ-_$=DyO6zp_rd``k(uEeqX{h#cLrr7XLg>X!~xP!{%oN{2Ukr?^kZ!W^vfp^nJ#g-D)N~T-6Rf_S&dEc|~Bu zFDtzg=FM-;=XErj@BFD|?mzqN=V!?+EKS#TnBC9Mku6&vB{;+F_2)gU&ucB(E5209 zeQ>=$`>K9P{oL92pQ=T^FyHyps<>wFdnfnLlQzCD`n>$kp1WNpeFqPh-uiCG7!!5p z#tXlx<#)a^N_|~g9xn6w^OG`zN0aZ&wlMFClDg^6p_ZTgp*;1+f`?!K9&?ORJrGzg z^s%wTO4aP(|BHWC2rk#z^}Aa_TK4+}{tLPyKiE%|y^l_u#o6#-yMY)J&-&ya+p=2p zCKvBocmC9ztlg`(nLYjA9IWQ|F7jRNy^`ALJHJojd+|3`YWGpi$p;E9+h0q*xbgSi zvwLIn`fBoC)Y_XY7T6J4*sh2k&eS4Hxd~%V#kyXyvF- z6PfaXwe#3(LNtEH`}gfT`Y3O?b7T1~nHbBKeKK!U!_5D9X)}ECJ6iOiFm1YlSQbRgYmOf) z@SSkWb>pn$^$9)eH$B?U>3AZ@xGa3d_P-HZXXo`UvJQQxxZ|?Hyi14wUri4>$73LYu5_S+PdLnH$Lg~l~-O~SjlwQb^qdJYx*y{ z*ZcokuXgN0x*<#EMajj%VRE}xM^#SfH*;P2N2_e{N|%W(UXjdvLBAgUQOKKB=63PX zoz(roNv~fz%u?AgQ|0HOvr7)N_e?#WaCR5p%0t203lD$H;biK)wCWH?gf@HG$1TjZ za)06^7JXnkvbq23O@4{^CTWkpm9oA1#dE}hE>#Lv&r}O&I=1B8%7QfqopQYrH?VzW zeY3HAfe>TE$Ej%>^1Y5Zd{x?=KgnV8nh6O7O{?|Idp~S-*T|LEfBbXG6xC*N-*RKd z-D(a`UhhahcI6(oYQE@vlb?@YOxz;Y?8L%vWBPATINwXHUiZ-CDF2-@uO2RYm6<*< zw!~f}R!p_ng!5$R{8L_wv-k3FU)#6p(eWDLq*qhoUvFSK-}vp9zG3QBoB-yV1-%&c4$WelTk*YNo^{V@ z-oi7HbJ!*?-pgEN?csC0@Q%WEVJpo$9}1>?lzg$3sdif_m&AnD)EUa^DIcva1*iSy zP}{B z$&r7jyMeR0@y&K_|DsFvb4AswX6@j-%v3X}+bJYE{^_@7%>{c--*TV5A zpETrB2svT>bm`mf!!q)Zn2M6_KjJW4r+HC*Zphvovhn#dS%wyC3|$Y zu{;-zUX-?4Wud{^qJ1f^{aV~!uV43}#H>em-pn1`4uZ_CLLw%C0!6~F&nA6p%P4-j zjXA_%ea>sC8IwBxJzNCN7UC(~Yett^n*)XB8i?A3G5JI+ph?kpi1SI$T0}DSM44vCI?>Y09-BWL@Xlz%qu;g5P zcg8F2-o6bdzHV2JNKS({)2|Dx4^ux49fqkk5vUwFpeMHy4TN%ULfAGC?Ip^cI zyVpCNm~^Ts&A!uL%l7T!*P<0X%|+S!I<156zU_N{=xp?VO+}ujmUp?CSr*?#7gR;W zH)})}{I$88sk2jgo8?3IU1$CqO^xWdEasD@`uJ|^A|YwTPYqk*pT`wN=Z18umg}ck z-G0i{e=PUpV<+_$3t1LNJ$kXZcawqbu07us3nvI)u~fM%|D!I#=x^-WEy~C5l`l9p z_5J_*8xDULSD8H5FiCai5f=NRZ^glW={vtGnV+;uNr_imO5>|vPZ8?|WldAoC;9(veS$ak-Mx7O8sk5-BQ#YVF#4||oz5A+`t%qTO!JK0 z&eIZeb?*7Fmd}o!(>6^_`nP(So5`N%YXp>A-#1OQoLcPGt5fl3!Mn2+3h#JQviB_c z-yfNK?slK`{^wlpQ)7AW&fd08vT)IcZHL1TGsk}FI#Mrw?+A+=_pc{)w_eD$+7ST*@%P^<-who0>^rUf z_J^VH?~VIqwZ8t^e&=`e!9#}W`-%@u+wfOFE3f4F65se(i5K^;9GV?|R5Ntdqxy9l zb#H$C_3X9y%Xur8>U*8tcu=4yQgzmvAKkYZR+KD%u(Ro(Qu(TPib{JfpQ<>SoXEVH zRWb3yhRxSzo)t3Krm*p7ne2=9mFH}yH`G|&ne#IIPQb@XTc&VX@qJ5naqQZ?Ic5vn zirCK7%^X!rRQMX@H2FG6fY z_VKe>Y5r|zo;&5$o`)t^O}K>kJ2lt7oMWu|x7um$u$HQ~93oj!`_2d(lt&)6(m ztP@nU^PjVtb@7Z)F0-cTQ|h^&w?ugu_HAa;IkfuKq_c`XK?nN7-f&KOpKQ1{FlZNl zmf;HSZA^rpd8v(-5v(5qfjXV-PE_gi9_#g;B{i!w2vl(H=O zSHn|puljTqOXnMlO85o0Y5aAU+NROX{m5pqchFv8{w?>yUWT68e=a>%cUosfu(I5; zDQSn;rK6+_i#6Y#+bvR)aPonBab9Bz)Be(pu8)6dt-8Z?RJX-ikuPrDvmar4x3|aC z)=v++VB6rW{leaFdf0{?YrM5R0;hj_erk(*{MH{yaqrvArDMD;pQ0y{@l57p3R#1(yvb@e=eSKIQ7q+B}(rm88Iy=epx-E?etN-Mnt4^Q{bxf0ei-Vf9Wyw!m!Vcrb>;czF+TN|cWpF` zUi5J8wMlxR=4NUWW?e5-`gdX1R`+ys@3XG9x8LT{Ah>AqF;}(y`D`=ZPvhs{@Qpn9NeFM;Os*to~8dMFt%NawKxzEbYEX6L8G;mnMZZ2 zM}uVknIy)vJ%-$DGd{|_l}RXzd3z*$YU1-X+qEBm%Mk=Z%i_$4S{8TKHakCd`^5XLe+9qajuYLtygmO? zx5$gM;03!~#eKKlV4bA2K{dKC=X7W8PNP}>zR#7M)b1?z>BXr@mk+V|T(o&oVDVlu z$o}m!&o^m*CjYaoul@9T{oQw;?s9&8cjVpElm6;Te+`x!?yk3QPQ3K)kjR=XRpsCQ zxGeeT_im2y_4zA=$PmB`tquPWBzH| zey879`__hi>;BHe&mSE9$9ZPa)FP`l@y^9L!7oFY@Y5$oU7o}_e{a3Yj#U-yd`rI*< zm-z$^lpp`S-f!vbE!$W^@65h$pZYg z2t?(FL$9|z?@>}9W1Hv zXs_{NS9H)gqbMi#{P}zd`}p-I8V%+NWIcQnKjm5V687X!hfghq9~Q3pV64P^?m*0g zn2lHU3%yJwg@0U(Ph3A|4rgYm@|}O{Jy;4R&04}(_vF>rUt10+{LO3mwkZOM zow^h_X^V*w*Xb7R#Fn$4oUN}be#+UZqhPdirW^OuHYFj)5VndPf?X?0Td!R$*LW!s z&@b@&{^bPY*HJx&A1<}6ExKBD$0&P^NsM~Nq}G@WP6MeW;=4E7&zbZ0)$A>s*p50b zYnydcg`ui%y-&1)+KUT`9W1dGwhj{P{H$+nn*Xe2aW{PuAMyWc!kOJWw5DH}@BV|s zVAmR!hs@6xJy&6yH~Gj%DUQ#+f_C}d?_XcqqsJUK^`5%-=X*_FEC$?DS1Im!qjkJ7 z@%(N7thpA<{nfQo5_WbSR^?gGQ*D-PWh$JLF7|k-p|bW=p9~daee+r-28V{Phj|my zG8pS8My%Q^toL|_%R7lymETgQRo~7Gel>YsR)mCV&wA! z0c)|9*A7i9Tffk~)pO_4=T}e8e}97W!DT;3^Em}eTzTaLYNMmCL_6_|6&}5~Aa5C; z)b*f)Un){>lk)v?47>!q|b@#x%#H-Pc?j> zdMAtj(1CkRCk*~f^5J;lYQ6fsAnu*=htlxAna^5;PGbg@z^O2v; zlk3&`jw9%PPdx!`F3L+4O&AecN~Oc+Itue~&IDUx6KL-CmI-qX*; zbn^NhRf(;6xnBiT~ zqtF!_?wRPfT%9aUyu=sNGJm#uT%IAM5>A#h_uULJhfg2FHOzL>vrWq9VZrZ2wdCv{I&%jmq-hL!~^w%eSa4Wxwa@ zvysE9RDa3Se#U8mGShW!?p|cua>1Fa;rXq|%BU^&=UFxsgz`vfH98*FaoxrD(1tZL z;g^i$E)B=$k}TX2-E1AQf7bk6xP!C3XuSAZ<99GHJpBT#~YNlsiMk2h@d$+)SE>xHs4+8^FYJ<@(>t>tU|9<^8ZW>qSs zi$63uk-SNE?_iMcxJI+4dl(BNc!uhU`Q&V~^ zo38Y0wq|TN<9Pd&d5^U7^`3J*FN`?YN>{z_S{|^{{Mm`Z|9#I_RLt&Aw6U2hS5m+* zOE$DSC|5Oy>BiF?4%srb<#O*o=BjU*sdG@vE^&jGlibYrjvwY^ge{D#_HNbe2$#0< zaZoU{{`EV^B{J=CL{$6Z;u-FeI>$HD|1fo za{FQSc6*K2Q3=hzb2o;!Pfq?hoom+ALc8d*dt53nY6m})xb$jQJeOar&PrY}m#oL0 zhXs^x1UiXavsibjkkx%g$i+FTLRVRqhCTFkSW>=ly6JxBx8Ls0D4Mcnr|wFfJ;#!! zD^EUEoT;{DkYv<^!rmn z-M(IkCy~Qh-Sgb!k7BD=9rOHj$JWcz`l7Gp=U3Bw91`dJNM<#Nl(D}4OZ39)lGH1G z@49lPPMmzUQG3#fdDRP-#zYlg+1s=v=kbw)|0iA5KE1sEktko_^Y=eH)+}_GmzR=% zf#pMD$EijW&&;Z>3e^Lmc{7z?B+uJ>wr}y2`73RdW=VM*nlw`?hWirF0_ir5bCF#$ z&WG)5`p z3(jT#_q)7~GD(~~G4P^C>W{pj$D8Ih=C?;?nf#t3CuFjJ(hs|J&2g_4gfBdCD=?{x z5dW#jc4dw9#`YxV_HT8pp2F&3K5fMd&VH?2qMaCgE#{vZqn_v8Ohxsrp^s};e>q}$ zp=|xBEw5K+?ueV=tA5VW=!Ns7PxD@^QhsV2n<3~JHkl_+gK7Te;*?FzH%>qTa5-E6k;MMSg0)VF)5)G)7m-t8Ug znUOZB)XC{j+*_>$lT@US7U_5IY}q&0t@~EDqH$l1i{HcwH!kJa#~qHkk{Mf8HkF7BN7Zc6#zm%roJUw$EQt7@h79fLi`)i$p3`&spL;r6=yzD>a^V)kB| z_=@|luX6NP)?AetjSHh{CiAtgST5N3eL3;?^3~T4Cm*Uh-28Cwr*od$ zS-vCN?^|4S3F+FosW-fOg3z8V%X&&f6Hj)3`?Yue_Cueh%O9xnHWqqvtRZ^#e2c^O zIS=1TK3Xd#utT-{(*XsUo=FL-J>oWfYgoEf>ZF{FOU?D;?I}n9Y?IJ@zw4~{(#ptL z;i>(LHs$hhy)kY+r&Vq=Uo=ms^~XMqy*}KhkDN%5@>`nqDphPz)&Jt~{RXwa8GS;U zE%~h#N|$YqczUh0T4(O7Sj`WWOb5Be?Wd@%R!?Itnwbz>c0>E0P|o>KtB<>vNs9k$ zx~E3&E&d%Q*u&G&3`t9>q&oW-hPG24Dz3yGTMxSEyWhM1KnLn}W zdwBe!c@^tzcT|eKkb2PSF}*wJ!H1@}bv~DRFU>ak)zLjc`l!~9gFE%=Jl9S5zN=F( z;p~=m@|Pa03;%l{U{2Jk#DGQrbFS-3MtnFjEr2I>)04lxnzA!}ZNjhl+Hmh#n7Uac z#qIrWJ>I=*IoeZZEK%8Y$5Z|gOUoCjDxDo%Subzy>a#Z}Z<(7ir*WQv*Sm{M$ByfT z?$5trZk8_-5(}Y;vzYa@Ux-t$UZRRU_ox%kd&qD)IQo*-K^a$^T8_ny^rC zm)F(%A3yF;t@y6NC~@YRbJ0t~CO?)5Q@z)%OZc?I<@rCMRt34~|0<>^%&hQSeIO~s zDnB77u|Rd~#C{GKN+N_VmpxdcWpto#Lwpf0q39Ytmy`(Xi~O&Ev(M z-si=9uP5l{UAGB-!kEVJeA|vcEP)=K28t~+C;QDy-)nPbNh;SvW+sOlUX2!_8mzxU zHQDalopSj*Lr^lm-ch>UI7D+hf6amCGnN?MyY}jTyVa5nw{*7r-E-%rvhCwkopm}J z(tFPTRCwLWUpej8uKl+!$>g8slE`@(!Ijv<_-Kc054$Tv;11I$+0E;I{kh$5<(if0 zX{>uhJaL|_#$%q%N6n>#ZdzSewc8;7h9!#6?7_#-)&s_h+xHo8eM%NiM6Onwu_5-NkUIs5c{C{Hakrn_|I~xGuV}@55jHU8_7eL!XP*DT@+6zPstb3fACO;)5 z)P3q6tN!GVSk-Vo%YZ@e(b;B(PapO_RyGjo(dM)Kt#|$0L)M?+f*Q#i7wvze%b5Cc z8$v|47usWrJCdU*R55mYHyduxQPAGUm0S;j7Rvv_gH1b+LPMU@3S6Gehm@11yMlf(UKbA73TWazSPIg_t)uC>|6 zQ@5Re#OHdU_khZwF8+Atl%z6e#tla7EVpb!zZ)(s(YBBGxt6`kGjv7Vkq>uQ&SrV6 zWz~2+{LNifu1=2r+1Gaa*0D|CJBA_jYZvjN|4`3jB&J*d^m z-FVGRZjR20(9nAgO^fQSe%60d_kWE!W^D!$iO!BR5 zcE1d0%=%A9XYcH<=JJ~{1^&ub&1BBv$&-oLyn#k_m{ zyqk9;k6Os^+;|(u7pWumI`*o*dCnv0w*O21+ga}a{xSZ|v!7S@ekeO^e*bQDW&iU3 ziJ51f-IqILkZ4x-$xUKw<&QUV{*TwrXeq5rUOTVFXm$57=w(FmI$S9P)z5c-U z7^!1tuJixr7FhV^n9n`0<;+Sm=57&@HZ)Y-bJwPZi{ppL0TI5sg^&Eb?yU5zI`}s& z{LeGRe{G&Gb^p2fM`gS&;0d>|==sT$DA?sa{g}tuv&$qtxw_1mnD$#kS$mlOd!4F@2I19eW$bXFw?$G-^nf=fNM&rM||FT z$?(?N9`2K=-(!BHZkQZ&Y;p5`gWaK(M`|lxA5H05xW78;UtXo3foGzx;rGwNOEe$q z2sF0smR+HFzPn}>VtAD^9Hvg2=Z+``KKaE1Q7gR;(+iTq*ha-L2Qzdsg{Pdp-Z@SO3qCZ|iAPTcp%qZFOc!<$NOfoO69l726+u zrUz5D706ECuK!6{vU=k2e-q@-KW5m`>~5iQPP8C2uIV@TC$`0ncMm+?^Ul=Z@^o35 znLOf8gYvSE1q>04l3 z&180)Q~m321@F~d#JauUv9^o7ZNv1rg8y7^XbFm5Puq4VTVP&RNmt0ch7u;h^}U)$ z%~>aO{Z4-vX~=9}E1v%3+}ew*d>^l!zs|)k;*Q@vY?5=+P)26LoUjFnKb$U2 zNM7pH)KlT}PxZ(J4%)XDC_MGxO~>H zlAYr@pTrB5p1W@>=I;^PJdcegkj`UPnfr(?8!;Je?$`96EZ(hHg)qKi77%G^q0(;I>{>__Q`Si zPs#3@J2kf+ygH9zrRs+GTu!N#S0rXIO=S%U4o)yDIrI65fYRxx^k)}OXdA9|d~(aR z|DVz7Y4e{QkFEO?UH8Yz{*apZllui-^FJ%kd>B~XR^OAJk&tj#@{gT_-J5-X+j4%Y z*w=4abH{kG<%H&g-U5L<_Gj4Z_doe}e7{3?n7%EC`oFp@zoa*3^Eo-46uR+>ZxJlZpP}5~826W3Eh5nvmDsA5y$3tZ~ZkygVJZRZ2|$SMOOU2Kd0bhQ&K3hVQvErj^BHaHS5|**0e$suo z?b~mm70#`@E-jxt_gdAb7%`Ny}cp<*HWqlQB}MbdxF253O=bdoTRCTeS5I|97@iOG0Zlwk|&GSyWQP zSyge7qr6CF!D|;5?dJzi)GU|VUB1K0p=g0}|GxTJ+mgA1KWgnu{kBbQ&y%t)yF(rF zs_P$KUH#s6?(B8-QVUI2J+t}|7Iyt%Y{YR3-P1oZzhwnH+w^98QQf0`TQq7dR4W>< zFlR^INGn;(v0%=Nnki1a>#UBNNII^}D7m0;b}56A-pm_UmhW77r8v7Y<;WAGAE_=Y z#02^D=6~=0vMMR3@tBYKEt}$B1uZuhigxT-I<=r)__fpfYegSRo+cfAxh3Sa_96b( zb$50*3aI>A@^OnwyiB6o^@&sFh9qs;@Up4!%s$aXuSrXJROia6u?pOCim87c*jmu{ z_9`9KkkU2&yG|7Rw)N+T5&FRyqdwlcUmmbFo{InnD#N6Y) zXvvyuImbz&VP-sZ($Ac|_S3HWK7X8-Z#Ms-S=#4=5wp&y`-CjdFuQN_q&p#0>HqCI50wjhJdbKm zmA{|0&V5pz0N>&l?|!jmT#8GzdpObZ0GuhJjq3ac-Q{@t-Mih0A7V=lXe)~w%mDtm6YfXfb!2l`b77w4B6RDVuBQWIz~ zNhnU}@Q+U&D?Tcm-fH#aNL=cf3BB?)73S{juk5343%NbYQ0v!R9@MD$?exbl&Y2JT zR&h1_%@jC(!%9NL=l8ud#Mb%{alec~Bw=aug6;a%( zeNbuR+CLRNJlUF$H&i`ZXpYTw2h!#4TF1F^TwbzCzX+jzgG??b4*giGdJazidx3mA; z=$Q4GC9!vIkM6=<@lprNC%)u+wSD5#Rr=)}F$6Z(^6` zO_pP^oZ<%sKdK4xRm3TOtlD+DcOr**tY>&^iPWoghg7W(N{G3J+D*HC<)3GYna!1d z3)L^ny~^fn{;FG}d&NHNx5@(n!?Iu@!6vSX`LJ z>E@QLUymdo{`;gw@5~&nnLoaM`o@vYP_~afbaTYF=>?CsTsh!ZpDDgub73WqE=Tw} z(M2<>HZ5VRnsLqX@9isrHeIU0driGp#rYlRd(09sJ(gqdamoMp)Ba4pbESW`*QM;L zFl*fs4@L#gy!*?xD^7|(I=ds#+t1o2u2kHvpzXu7=i62O=AG*Qs+VRiav)nxSLN)^ z-E+zn+274ty-vCN`Efg*t;7ca*L^Nt4xwS2ZJ+N^14KOWus zA%X9F@~eEQo~T`p&u;15a5WSCTQb+r(f@gpI>VK(Tg_a$bVC+JXup5xFm1{FAakwG zCjZj7`>8DKhXvYSHBPTb(WROWMzg!%e1P#N9w+^1wT@!ItxxX zcgo?c^`<|w?nyoCj4OJWGsXH+mRfm~k{f#Uv-u+ z|4~%f`cVw;HMY-d-d5mvh?jl!(a);U+q)(y zX6?Mr`rVV~X3lzlHh-=$#9U2so;(SXgpS#S!YGR<1TJH&^LaE*JdN`JM znf_7^o~*aoyv>VwqrcK6oeu3o)^!SN+Ma3jTEtoya;q=h_FwYly|g{gWR{ea8HSxs zwQ+jXEyLpHzxXl7%^wPqDJ|11^V`;+t~c1QcKc?}GnMWA3#5z^7((4l)U1;hR7_wt zd2O`qU50S*zIWRu^B+o^VG)vekY&Es)!w2fSLd*8o<6ZGMwVl~ZnddE&6Hdv%cSX%Es7ip+m-e|`MELc(ua@n5B3$YI!FnA`6l_;`sJZmzKZgK9}&$g z+fF`Dj6J%x)YC^h&)}`r0X35sES-Wy$-Nv*g7=CKyIzXFoZq}M&1CZpcFv8;GOLd9 zUod>~@L$e-~LIcY=292ZW(DZY$<<}^;C4p|hil>FTHB9PH)A|9gZ4A5K3Q%pW!*w#`DB z`LT<~gJ;K|XgDy>p1hc6ahb@n{T0W|9RdrYP2`S$yF9u5|7{tWYo3cRfE z<`OsWXR3~wQfKG7U2L>D5@{&UutC@P;%|w`Pa311ISJ%R&d>H2xt?KrA>B%CO|p~e z)%TB|9Eg1C!=2^0)rc+P@823J?^%Mu%Z$SHITPEuc@KW&RL>#xW^&&?J ztCDA3=6gjJC&v9qRi5BJGuLsM%G;Yty_Yt;h|yJ_tzy$ze&d7J{KHwy%Ss~`2XqLo z$=IBMJN&ULxrw31a!s<0gf4#UJQ9i{dnI&#{Z_tU(pq17iZwOw${rJru zW#)Nu`bL_zH+CHO#U0_sxNv5ag_)6e-k$dyX%`-2hs<(X_@<{M z^@kU)%N`ZepJCqwPwbhvJo&<`kLz|RCY816U%ci2U}vEDk$;IRkKi@)(-R&+v*JrA3iD$`VFPzh* z^4ck2%aWb3Paof!y^W70>*k8cB=y|A*EI_!uAaN)tEDc(8J#O0VOyCMn|^24Z{KeE zIWEC*-`cx+3oUkfcu6dMIDM15M+r;cB*|B^!X$cCf4L+txaWN7_k%4HQ@y`hnAu)J~8 zayq8pIQvLCZwsqX>C0o?iPIf!@9PPelQzxgoeHPYWJZ7P#w!uB2daw2mq$$3S)Df3 zr2hHw1uv`9f1S~?dUG{pb;a2ScI!nFAL>-BNxf+NtIjuenppd(3#yFl6}CG0>#TOQ z#~bx1KG-+4#QVche%m7D=i;R+54#>sp1g5kgj$Kt+CKSC$Zn$Wc^dAHw^yRssW)-V2hH_Vdf=P91U8$=5IkK|uj^hZl>=juHN zeZMfxZ9BQv`|rNQJgEc=?Y0CPnPinCdJ^Bg+Cv@swxmAaQFgO>ZV*%MgQAP_!q(aa zrkvqMyh1C^Npk5w*U7%hU46+WXX9Vnd2`s6_nooL*q0wrdho)5_iOL!xc=O$B6R3z zhuEiOY6m}joBd}-ugk4#uYS*)<~4P<+wPT@17>}h7I|^yNl{(zoh%=|w`9-0bn|uj zujP*JRny;}do=MzW8|+x4f`AK>`eW1gQ@p0+mkZC2e)-^Cfk>uU8igox_QOLnL-Vr z+#e)FvrlhxoXohl_@9NBe)yZ*y5F_DVfO2FmiJ2L_l*-ckybr7fV_biW45{t}LmXxV_#i-#)Ehv?U@&nV8Cv|(utUs#T&myp^Pd`6C%-EzV-nY5h z+xHQV?5W9;)@SEF^r_syz-D@CdF8$Cp4Z{cxq8X^yFbjkX0f{F;>4LpC8g5B;vZ(T zdNuZHif^6ur2KpB(w4PP88sDIeb^UQFH7(hY~k@U4*C_EZn`n)RacbW>Pf8SYd_wa zA`>gUzL4!w^>>Cn)4p7tkgBWFurI_nlr{VCw6*j2b90&&uDN<<+POlJIhLuhMRKq9 z2Uq>slo$DMZ?kS;j>{I|84neM{xl7I~&#ylUfcJu70W+TECWyKF-a zPw}{1UR1fNZ|~cuEB7m0$+tG$th6*U{?7W%HosJqr)|kmu;mh)>V6``Qy{)Rbi$FE zw~I>t+BX?$t-k;4;F9PY&F>mk%YE~4D?P|H|LG}?Q%nEPkhecA^QnL4?)_)))aGW2 zTAlkd>uKJE4Lp-;#6-(og97drxxU-CG@o0r=kDb>+kOAfn|DM>%4Xt0Ud=1hPR-h~ zR4p?6mf5>*(VTBfbLTvCkh#{f;Xy&`qR(#Hif4Gs)~&k5@!$6Tulr(mzHwa52+L=2 zcwNNYlDby8Zb_bCB+oyM;F{OAFX6_fdBb&e%}rr_K;6L)KuAAiSiW7moUB8lrt&v_hv-9N)vX$A|=Dxqm+ zU5PFelj8TrWIwH&-SOn_mC|b~Kh-onDcrcQRAJIG-uoJcRqxcI)3}7)RfYP$WcB?I ziN7LUvcTRgSYho057$b*?YaD>uWDHK90+^zeV&zkqG6M6_&c-OUA4SshmU=F>h;?2 zq2+}}l}8?J^Sf(f5AG6O$J6$0KZiu;&5Ehq#?R`0oXBa>_i|kKC|Y#Yt3z55FATI8 zz3=w5F22B`D`a)WDGCE6;=3;G+L zbtf>$Z1yhb`4QULl56)QF#F&U(+_&~Ld?s59?PhRuKTlIO@EC}?7q-%dlD-w(>LqA zdq0KgYCMN)sK^$h19PHx_H{%HOkAuV)E_n3?cA~lckV5_`3$Tq2Y-r_404hI=_ z-&HYa3;QS0alVqnAs~Ye1^lZ^R8g=&1vRJG3`8G?AM(pUh z&b};6-+5Vv(2p;gD<$mwQXj>=n(}sTq1o=xoJ-owD-UHrLND zJaG1UYE<|~(|Ly+a>6z{EWS$t{#&wU41Y&KY-xvvv9CwrwMDaCEZn%auKw~^Z8_`O z?EO!+2&A8IzgqRRT%14ZS5@uvSvGpMt+#fHSzHQwS}ti}l)yiS?XU6aBcZ4ND5q8| zXy>i|`1iDt4Htt)yvibTd#jy|w%gKgbJ?4%zxK&XFDv5EIWKk?*G? ziBU5k-@E*)(A<9t`*Rl^RJpjg!+sMp(}&(>!##f&+zjUvtGRzy%yQf3Du=&2533)2 zWAU6l_RHk>{taa=|5eiSK0UlYsruDdjtw#!HOn3>x;52%?Z-=6%FiXLLv>1+^c)oK zKiNC+ck%|2y4>^Av?nTvt?tY_!nJYbYGJc$Q>~{b)hd0?-fE*~@c-vMd&brJ_ZYEE z{(+|SK$Cyw248Nz~s=Bh#S6QSnz#KYdd3?d}Wt%@_SAvVFFSkbBh3>%`0z-1hlFyw43yF~-J% zt+UL(=I)()=3niC?@BXU0(xEtB$$7G%a!bY&Ug2}|8CdYSOp{&*H_z|KW3nt(pcqw zaP8GI-ra@%tIOZt^Ivwz;zn}d-TVAo4o|XHtJ%prefHIht0r|BtCwm9-MOE!ZG-u~ zrrx+K;-@S1Z=4p@Xig35bn0qv*Eka5b#O`9J*P@Gm+!W?8Wi006vV2y-vFcWt;c>3-R))tp(wg&r-iW!j`mwJwhe6o{ z9%cP&DtSv-KA%f`63%TI@cyLJlBa*(RfJkrtgLN}*0;ZZ<@MjLL;WmI%-7Aoe0@Tq zdON#Hg!2M}OhuRK&4we^I@4V5V zaHITvUz*tg>zA&K)t72)7IvJxupw);K}nv|nijny{1PceKl_#}%5a*}PGj-4cX`ORPmMkP@%P8*^)p2p(iSFn3(j2g^Neq9zw~$6ZL+tDJ+eMZ z=Kt=VAud;vsFn2bF~Wi-x>zanYOUu{I*vM zjxe9s-j!?>ZTjE_qfk_KaC-X6@8t>GGb=>3uGyQ3EN;j-$NF;N8A-vFbt^oz_L}q` zJdu9Y{P2z9IlUTzU4gat#&ud)8SoKH|A~ z`sDDJ9myXywR)5sTrIFN>e}k=)w9+eIda4G$t360$j6ESOWjsm9$EXW#l%HXs@Zh~ zbMLGC`S!xkqFHQ8cDXLm*sR;M)-z=CXC01r}~R=FIdwc-Gpg;g;LQAcpI*k_?la$y{-5xWaTy(L-_N;*W(_@U@raG?v z@OS#F<<`54SU*HwZD=by>pp9f)jZ>yO$?4X6Xk@eR#pq;?Pb2NcjaR1v^&fUuieEP z?k?GN$ET|>aNbJZ(=~jrB0h^a`z^J-yywBZv_pKkb3>Lk`g8o2Z;9@^5q~64s?vE= zl2f_n=V^IQdJ{R_?@4@nGOgrE?}GU1C%sD-$yAD0N9%uADL!KI`Phy1#-Gh589#g* zK2tgAQgi7`TftS9N$(^DK0UByUgUafg>uZTlR-Jx1b-Y@K3&Rb=9_o<+l~ixm+rkI z*k;({A9!_Hb)v+#CkM=Z8S>T#&vc)&Ki|1aKq#hW!-Pc(If7rVQg9L3Rcyjy6La9e zoyj|0^e!9zNZ8xPw*9iI?xbqfjne&Mp*i| zT0ArCZYS@TpSS-O?X!-GU3u_A)J7Fn*V{!OHpqR`7kO!1dyw&<+2K_&Txpj+)>%hI zn*2`N7`eTQ|G}$Sw~egcioMP*IsD-1q_XcWrU|nbTv!-6&nxK4)ffFKK{_&XyHmFbWtv&hv zccWf>@iFH&J-nY|WVU_&;W547v2B;lj0~50d#f;pm7L!~l|5yAtk_;|QIK5S=rd`F zl*hfcjw4wK^`3_FPLyvjw0Kw`e|VBamU&({>xTqZpIr`pnHOu$p5Brv_jupJ3%)u# zLNp3A*?tAwkP2QUbEm7}e#D8JhpIK6oq8K_*1n55f6{a3w6`_s)8~ZTUUliZ>|#$aonfE^@!wN`&JAL%Ye5 znRdV1-xvr^Jl(0a%sKdKx%}hWdEW~5{aqxeA`|oNn6^=2n~ucud)=@4Or7M`J;)5b zd&<4j%>2mr?VsM>WnPnaaN!-kw-SHaFTOc%Y3nXl;&)z$fc0}iYO;!(mP_E>mR#SAT-fcef!=|-jlQmh4Qs@An}d?sVXkm(<{Zo5+`-T3fkMW#TR2`v2>{zi-)h$LIRFY6cU3K7X@i#^pcf zeT>_-Zrqu4CL!sw+T=L`I#&`_Zr*>uJHa{h+yi!QuDF9taa_TbpSV`kr_VRK`MK4p-8jobP#huFCsUP$6&TJL; z*ZPG&=N8u~B_;_RJkz4uZ1y|W`2F%WrJnaOH+Oye;>~%F*SfW{`}WIkSC6+U5V*X4t?9vq#IO)7?hMm&)r)znRi2V(IbJ%6!@46K_tG4Oga(CQS zbe~0N|6Z+Yr3@^kjawh@Y-C}UTg+U&e|IvwlUK{pY4OiqOcGXDd0*t+Pg<|>n(=E>zeKlPoc=|L?Blnt4HJkZ`ZN2Xvx7A*Laa-=%Z|B%;3-`Mh zy*A36xvF*3mDP9CroLjfP=9`p>G!WI+9v&l>&kaqu@%=Jk`r(Fo|@0~{fm_GqZFR^ z#ZTk(RSPX&iF$n77<}>VtiK}1XD`Y-oh`8O*P-oiKVH*SXBL=YrBHvWwZFVx!}&kk zU;gO{$$@?w-d(%9WJgwuH0!ZCQ5osHms59bU01{&{&rjLlDTS!M6NpCSTW)ECr!UQ zoEcL~ragLY`nC2Uv;8Sc6>GK!i%YaipRL^e>U7}oy6UgtT3vtsebNuy+G+mv<3EkX zTHmAcCg0p}DDb7X(VCbf@81nCwQE1=Z*kpsq(;KECvK*ImEaO+F)~6Zt8QbJ~}^Lig+*s2bFqczjzuV$b!h z+j)X_e)SAjsy!XBdgC+8;15#**HoYW!xo?HvvaCQ=w!)*bG*-*RLx`%e;yT4@*!>I z(#Dqed(8u7_^h|EJumnj(414!)~w57Gjom8{`obQt;TUx919T}I0e`y#Z9e;W^|D?W2I+kh$2RyHf@>wXZeZ^wL6KyZjQ#8-&f`v+9 z$Kws1hpQZ3xb$e-PL@(@Ie0d+)xS=??P$!3L<^HAzu(xuY1_OAOSu9nEkNapp#jo@ zOA9Q0E(@aiTvu&x=E)wP`o72hkrIc1*2Ubb`_8DaO>%6S*~soFV=J+N*I7t2TDfbI z>#1pSpWYYy>BcT!wfdLYN$+FL5+17~V{hNQ{`+yCZ_V)!^)LU&@3E}>wDfLmeW}pB zcR${JJ=w2r^S61a;ck2T*2G!w|2*k6$ol@}DX0JAwKpPHt1mqB?&a*s>;3Ehay*+h zPqO}(nT^%bw=aKx`nJYq-t^<&Ki|lo|L^so3BCjHCwJT z-P11pwQS9=H8Ovc`2r@3zWOrzveBbl$-svB8=3FV+s?eo_|CsWEfXeh+}19exKTN& zeFE3AOSWGut|c=35{fHbAkSCq@`C%Ry1LYh`p+88@o6vGN~2$B9b8%?@S@7N@|Zl+ zu1PmNv+SGlls+rZ^)9lu%#&xj5VXTHVlTs&J=fN+-ulgHwn5!_OP^zZ-o3o3?<*i- z$+=wKN#Md%j??$2-~PR4Pwa^nWkv3A2FrD?@7|g0W03RdEbo8A!Wy-FHK7X0kG~DI zJNx+$dQI3Kb@TAN#oSy^)^2LIJ#NL_k=M2-t5eW@y0Dx7Eb}EFx+e=y>h`SuEO21z zf&zoJZWnAf&6yyS7jMI|VCkgE@rNoE)ZSI-Z84r8C)>~ccXLNiy`Jl_hsvDBQLZ06 zHATaJu6M6C^L#2>&aiQ>h$Ew2t!SLL^3|82HLvG#?O3zq$)$PwdhQ!4A1eP4XUzZR zgNleG&hi=81troh6}(+M+cTX>=jn3&6FXm;Uc7oz@Wt}} zLRI_1x$N26Ic;(^-`4z=JbL8h$^~Kvn?J@V@_L+|QNI1snF;BEBC0%}d@F0>W@t(l zlu18&AKZ0?PcQa*^+JbbE5z2vTTgHjO?cV6F4q3lV&1Cr&HMHHpEGOxcX;NVY|`W8 zGp!-u&Wp?Q6U7(}0@d=l{!L16)SP)BvS5o~%`)za*&2rrvd=X7kkV>&?nDFslb;M; zZBHK??)+eRwtt|#mcg>joy?Nca=7qTp zOO5O`1B96S_QY)F<`Qe)E`REFci2Q5uKmx2mOuK+$LXfpp_Q#U_c5R328n|%U;nK6 z6=22vK!|hek}um1eP?r2b?S4U_S&JE{XyA`yxu6@%dL_T3AetVEO{7k@18Rvo3CYC-Gn@_%vx6@$z&(*Eu#Kj$+BKjbF!9LMvlNG)C zf7;yH#!&k>m}R9#g>Z!v3%mGLyT>WFW=h)X%&Fmiy>hu;@;?97%w9nqHA>4nttYyL zM^}dJxP08;hK1~p({duqIycX>JX!kg%bJW}4j;+4C%YF_3VsXCWe{|2+Isj{M28mN zi<8%GJKqqT$DiQtUh|MmC!_2g94_#?ky{k=umA~#-!nWsI zjr;_ZE-Yl^*jF)Se%$ec8&rj-9}D$ycWKF%Tk!rbM|Pw7wzBj!?rOU?1a(UN+^8}A z$ojAAUN2XiFUWpjw$b6wVaLqp-;F%R-7lvVEC0r@Ni@Z7MKE(<+m6L+KW=l{|I^y9 zaoe1xuKPZB4kW2R&rS^9*ehqfG-A4&#r;pa8{A_88GrOm$Xg_`A!+qXj^%aoA0tI? zn{l@^JgW_xQ#)D0g6x@#H`Se} ze$jql^1+6gJl`LR?f9OsDOI=0)s$JK_xYn^^O`1F?asTFy0hKrQt|DqjY5lyC6Ar5 zy2otv>g^$U-V+{2Bu_M~WIQpeIGQn1Vw#~Nt%$0;wo|7e zy1{nyg2w(W9ZPg1-{&3WOMA`wEFea2D}Sfa-b;2XrU|&t4QNzvJ9zcX_a|bGy|X{d zO2|#V_-Dl;?Y`bcr@2l}u9T9SKmB<3rwTj!dyyrI>pz^k&Mv*ON1r2qXCGxr_N@EXpl-A@z68T=Wh`r4dsU2nq9(_^fW*XTHp>p{GX?CjThX{wQ=TAjjSI zVFl)8f$yYdoA3lWvwq|gN|86?_`%_Im^JW&+qM6dE^$v+Zl1Wy>bj)Qw}^Aqiql0; zu1|czH237sP3x-nm=wMH@gugfCQ>e5w9I!$Vg07>qWyV086Bjj)J*^WdB@ZKug@I! z7Ax_WQ< z5xZx@fk;P=KQdENcZjBJ_exd?RlvVGPjjA zV&gPF1D5Z-5}zbzwiIof$m%8bios07zt?UH`&yBZyvWPuy*!W0maq$Z_v-9?wAp^q zlIb((xKE36Ufay`vE0r1RN%4Whm%o!?oJ0S?T+eZ8k&4w zeENowiQl@%8JyF6!os#>?+8zDiW4-lkB|A#B-1z1|M3@=N6GBbvrLMQd&*0?L>cZ{ zP`dX@;>`M<7@>m(H-gvKT#uP_Q1Rft(htkCRyIaYNxIMah=W}>+QdTW!nN66-{;+Z z$a2$t*0ab(nPHVz*C~13dXU{MqLKA!5#yv6D;S@q-J3mmN^h^pM)8jUlWr@{6)^qd zduQcl8RONbK3Mt4{$xm&nz~^xNLLlTR5TN&|Frv1a0`gwx@3mlr>!fFtdI<> z{9nt|X>xVjix1a}`<&b6%dlB%=M{>!H|IrlTXFri)2>zHu~;N<^XtVMW?Z(g z*8I2pgsRe_IB|KFLaY5c{p(LXHn_FZ!I(89T<2%+OXiB0%vX>1`9>`GTlnePIpw}n z`zG#pm@HYdYu4NXB`eF=l9W|nlb30%Nf-WfKTB=fg&dXX2VVH5WL+wH)vR<>(@}D# zR{lwbXu0Lr(w#*YMYSL7&GbnO{jz!`Pwl03x7AMV)yO{?F)6U#w_N!0`=!=Y7jSJ+6}?+k-8K9D!)wbqW;F>PIAc_LE3NTpNXmAV z_~{z^@1LK4bc&zK2DQbL9scPsf0M}g@;=ijk-gP=y=KtyjR%=8T3^~-^ymGq?fZC5 z#f|6*O>+T-bn~l32-ev&3)LhaK^@0v-4N&f7cq2kYOTP{@dv0 z>g1%Oli!t26p<6M+iSSwG0!&Z!(2-;Betn7;GJ+UdS&C=)!&i?uT^uc{3-SO&73>3 zk{32@G2O;>jnRC?9&_uNZ{O(O^8MP(=(3^a`rZ5du`GXf{=PZ;UD(M(=Z%!tO_65m z>tgVVld)i>W6*y!c$ z`}-zgTI}kaW0z}u7=){O^~4XolE1srzVv>R;DbE}WWMO>8P~hN*tg_OZkTr;BcGPThWF@?u@-bvJVgRo1Jvt#fmgKhDMf z{#D20+Z6_>75uzK8x;6=zMm8C!l$r7H}PKG9jD!%JGaT@r73++xn2I*@JC9>#TWml z?^qKSWI6TNKfU&%V_yw|lSJ%~IZSJ;uPi*FpJmW)yu-CI1*;`qRuCs zT6OzR*+RQ*zp_``>GeFXU;9gf-R0{>-;=xM$X8n&HOzH5FR7utKYemn^Oahw6c;*KS?9@#^=E9`o5*eaSMcJ=OEF8PY!6wwhXSo=C`yc1w)f zcw5A(w^&X)ENg?oA^An+PaA69n{KWPwA;wjeBl-64U1nrXWw2@au(3IyO8zf4v#hF zClX3!{TJM{(BSW#ea%Vad7;#@FN&(iZhKmlC9A3xUfz0I_S!N5Rkm%Z*4tk@b)7xD z>2k$eX=U>ru20>L@{3EGIhj6OHX$&|!08! z9S`jHUbu5T)1fJQCmzU)ecpXmETNy>Vmgn^KgG<~0*{4eG-vN-Yr0^|tjKdSMPbXq zbrI*Jg5*?YoY{WW_rfB>cYV7~9;`^ezk0*G^E|g!T~%e?I(-m1}*=X2#B~5L6+^O^j(k3gsdJLniOYF`EewLmjyyy6|FuRn> zXB+=-a(R%rjqCdX$J*P|HoSeY1K%v0ZX z?od!|wAprby@D5m`~j^MUK?L_N9?j$xKN&r`=ZJG3F7SSpBF7U5_pzxszs=w<3;nZ zPhN+db}j1H+Ai_`oU5(sh>2OfhFJ{P-~= zZDLXP&#NbUzAQSmdg)c4W=?C_;GXj={aeqKmg(#(UG#5F@U@Arr#q?1s2$*4z2mjh zft(e+XTlO<9aa@AS$HRJ(*lRw#!~B(XLAo}Z%w&YAot9gX8Um#hx^<5CLY-kcce2T`^e+X9fIx0{bTxl*%)Q)*D}5VYK0rE3ewd;wQ;z40gM| zbo_Gc-P~>AWOnXVsCs{hgLUrq#X4E7AFn99dLibqcfane6QMpg#TJ?d_g~7Ndu!eb z!9Eo$-|BxYuht}NEMd@IxJNYlS7^X7=T~#I=0-2neaV(qdv@WjC4DZd5(|%4XQdf* zoOpNaP5!(;T5^HA;z|px5^rq%TDxt+dykiaAG(h{XY*UbSiR`C{PMudr)JFD5zv$E z^K5wOl*UsryImo?6_S{IH#z(-psjdqsXUIkjf0-Q&cH=~2~| ze_Z%Gw?7bDWRSDvkzxMn2aQWj9;mf^o$y04HTAjR=DCL4uB?j}Y}bAK@YDjaY5Je| zkN*DmwdPR%>C@-KV?R~5W{O&J>uNie3df{0?fSxaVEYv2b615A%W<}p{tNKl)kv`bCPJ#gx}qnsU6pUKF~``+2G1<+H11qy*}? z9eaC%*>NLJZEA#2!cX39U9DyJ&K%rby4j2QhsP(c4O0b|#h7Y8ihlM+@p(Y^D($}y z=heKdN!7P{GyO@|UasHQ;&$Y%kXqx|SZbH~;k`WT{dMe*=RA%p>`qFN6Ib}MP4VcG zlf5y=uBGy5d@i1&x9k3Hp#%PhHbfeVrOKN!e&u>}Pb{cv+WufsXStcR%$k9lODil~ zJWZI>A1c1Cc%E)A^KR=@2FCCZ{jv#ON~b2d>?$c>4S&O!*>9h7C?ff;+mym%WwtL9 zwk4dO%QHVSt;SLOT>aW?oqt{Cr$irzn$KM-{Jmk8=1%Ut%9TGSJdEz2JK=hlX=2Nz zFUE4}hrKMhF6`PZ-yx*hJWV96LAo=d_5RLi%O70NeI~D|_;G0Ctb)|(OQkyJw!WIC zb=;p{#q&Wf>){#NO>>V+uhY0-ZK8KJOX@e*gxy7V7}vJTYwNPJwN?GQG;3NUx6S7) z*~pejXC=s>sljB~)Kl1|Pa^ZFDJZ)+ZWN&kIi+N9eX8TB0dPSnI z>Cv!)J!X@n{N=7rd+zdJ@wV{E3m1Id*Kd)xL`?g2?*5aX557C{`d9Gn{WH>1p4_{z zsPtGHuV&#d`J)D!U+35hEq+{hh<`&&vW<^%=yLN3lb1b~jJyBn#Pthp3kzf~y#FWc zsXy((WgqTI`o{h5OqIRTYTvA1cj$bts?pNT6Px+(Brbd+AKjDldf^q7e}QxEJ+FO} z-XD2Jt{}pHl}~{6#MBA*ETtE9?_9|s@%YA}+Q(|mZ`V~bE`OKLn;~;_`-izL#}<4I zb@oX4WF@=#q~qD;+YLQr^bYm-m{e^leIM?yasD%xj*BYu7yUo7d)L9!3cLQ#c@QyM zR%B0YDO(1QYhv{8hfhl4^B;W_d~myHO_G9xAH$5EC*>a7X6;RVwXARN&DA%r@v-oy zuU@z?uE+lPXW_`|x5rs86kk(`5tt)+gw5RLU(x;2>#tWy`l@t2XspONAr#wN;AY}+ zhRtrxSNl&gmCj7@Z~v(C{V%=kP`G&mZcaE%X-O$(nfP#8#QQ;zidZ zO%0DQq&zz|bKOMKgn74f?C-7+++0 zt6w-x+{$*xv!j#ml!3$z`HR79A8&8lYW#hn;Qc6VpE=Phc6%Aea5`Ij*FQTYVX~pG z|NgIYrnkmbKAt0P6DQ0nx%_GSZiB6PHhCJN2_|{=q3Rdit+@*7leNM9X4YLNhg$r)S+srZF5yc@j?Y#G? zV}{p1|5lB@rgKW=bAPwV%N)<%B(C~19Jd(`bIxk{_u-n!%H`TqJBk;b;4tR=G;e9% zkC7A>;IzT)@gKf_1|jul?U(-OF!Uxpfbkn7X9)$O_l`y*(u7eunR`jqD*FmhN+`e=_e)mG82t zpTcGLL-$Vm!YfXB9&4nJ3Ye?p@H)t?lUcp5s_?AkXU_VX)=p;C$9Lm%m#99zDa5nC zlG`h?HZanm+35Dllaeu!%fGGJD(b#pd&|7r6aQ}Z>ike$^>q2}wj?pz7AEd%W~n88 zDercu&6xG~W%~~H{f2j*&3u%)@>aatvVDEO*&MHl{L_76*|aS0`keRjq7hEt=3d)0 zH~zsJu1{0t6%N1P$>RJg9}rWLmoIasbXDNHEbpBhcaN<!Q-?3j8C=_sD(N1*zh`Yj(21?rQr_=Ld-vsZlwC`aM2O5K_o@TAS-Hwp^ICGE zjy+4b*57&WtBR!l%V$qjl*>O=?z1uc^zr-Y@3S6tXuVssQ7q)t-FqKSM$Q#(dY1q8 zk45>?|G!WEXS@`Zx(RbK4m`yMnv65EG)0`)ZDFoppa2rJvC;QQ%}X!IP%yLrP1_Ni zjs zzEeDSP4SV;b*bj@J`t15=M*HzE|*ky+nrZub92_eZ4X5`+_%n_%Q+(w?!s+)m-$_u z%G!{$s!1$6W}R!SzHmD0^m6@1YvxZ(Ecckdui1Hc)ycgQI*0$)^Z&PJd#A17@0h@O zNBP0K)?CxTGfC1D?|pXgI@jW%HK}*6X-KkY_kpQLINHpA3%{SeM}3mz#NFIaI5VtS z-rZjICh_vU-wBeBCM89#XWC)?IbN+taCwD!z17V6?WT9{-J21ZG$r7Y-}Yk>98LYt zCZ{Vd>gWpmy3sI$x6tjCU$B>saV<|%n@d}_)YQ9XcO*q!vgfV7HP1<9NpRG=DTfyR z7WlK3^G>Dlh5(Vt59=PEQ~tea=WXvjc_KSpj^!RGi(V=k_(SB~C!QU~3j5hN#kBRj zFTZhe(L-VVncA)`TXsHoboRcPt3NZ_RY&)c=Fa^KvyaVD=$f4;#uR6K@$C1%O|cvY zgg<<>J0N?=`H8*CZuTdYGiPzI2ygiMdsEZw!+z&oPi)(Dxh2$1*!?N5@U)1RCZ&xR z`c5v0)9{+Rw^S_sm$~=x#V7oxu2L~y?@9T-^}oeyy&*TFLAi-(%AYyn9TUJL_BEGDYcC`w9yZ3uGR@b=j5i zOYoqGP{qYH)$eB&G(F(=m7DrG;B?TUfY!>Vz6y=u3Lmx|IsR$Y1YUWwv^fDZZQv+r5e?6G&EBevye{Wkai?U?OTz5i7kYnk{0A>V)Qt=g-cX3U&obahQ-bjINCwC2IU_ zk?Bl}b6IrpOa23;HE%E9x-RjuS?gCj_qp{M&$t@?%ux7Ubobhg3vbQKBVwN099b)K zcV3;;$1?G+N&9!^T-+kY`i5WGQsQ6sXF2{^&Q;%5O=B@Rm)|15A?6pXVzBd>*tb)% z>o}%1mps4okmL7buJcn2>Vl*sPv$>#xcY(nM6syZ;#7{irz50R#nf}{e75#;X{W%0 zwpW^)Pt8b6bZ!e>`m1h}TSE4^kEgRc#16_V%vw?KR{h33_O{=y%N^vHE7_h1d4&Ae zH!y!|y~O;)wgW7@T4K+1J^wXqJLdiMcg(}xtD3dD9j+dn8n!jt-Bfr= z!tK1qiK&dwYwvEE^l?q&jiy$S9qGPTt*0Kpz*1kX=j^(}cE95Mu(z=|ogM#(Lzdph8RgrhV5ZJ4w8>nN+#W=+w8TZGx+&cCQz5>iFJ*0h5w!JwJGH@o7@w7Z<&O`R{3&>) z>DwFMo*Hgg-}8O1Y~Q-t)&ER3%$#s+(>2FEQ?Bldf8OHt?$X?rfBn&3TXW{R2|ctZ zuA6ft`;f-Ll>&O-dQNSRJ9R@rSZnp_zBw%|NxM#`#C^MdYRPH8lBlE26ZWwwvnTHF z*_gQe{(={gix|3_I>ig+50|8~FYq$1G7edQag)-9z=OLTo_FHvorR)4-Y z=lq(tAK$!tvwQXujnG{iZRR~Lp7;6Xvg`L`c}HG}eg&q;rAaPsYY@ApVeG5NUB;yUNSxxU(5iClr7<6G@^K4I zyjwTv+A+U4l~;55Zm(Bz<(ho=Tlb^y$#FM%!ZPYOmq`n{_+HsxR?RfohohoXqUC$V z!W5?&YC>15?YtKsTbZ@DUd@Ylp6{BlX6|i^UR_L_`26Ub^ZbYZ`yKYu)=C#Q_S$s+ z;q@Di+^gE!A5A?vxl-cNSNZ$@ANKVyc$rl?sof9R z#T@UAw{6!pu2|U;c_(zQN!imAzq@Z#CuQ1Za4pea^lNc!V?Tek!`7ya%xn6Vmo{Cz zdaS`$K4;q7Z|b{$FWO2Quf-|_5T9Gg8yQDop2|IJyeB|{@`ZK$0j zVn1Ph&YSL^IbnZHjO+^|2%CvuC-xmIzz)GS(D!i+S~nuT^N4; zzS!?N#s1~)UH<$J^fyKw`e}JwbV0w?f&D)JVmLOh(CY90SiWgD-#;ex&JE1f*E~br z)PFM1bN1S;GVNN1?~K34TPDnt{MLN^Tf#%(pR+sy;wxFUG@dj0$aZmtVs*g07q%$| z`?i0JD-w9@gg>}gn2D_pS*PRZ zX*4BYQ>-%P^z8WLz3S4_29~rD0Byj0Q%i~QP=QjOkXqghQP;9&M zU13i4T?!kN-@W?2KC9b%-rv;T6~%L1_)i{Sw*JWW&%gh@IGcWjqi@ARai6tcInJmr z_?MopV6FPK>7nM?5W~llopvq#s#SLP{=DZZhvwb5cV^!7+urMra9d2?_rdn%;eUO` z$)zn3)+gMK-xd%|n=N#`UpmNi{Ipu` ztXQYNuBmSBE9SR-5xKoKIC6rbF0b2;c~7n$JG4kM-{}9Mxk1c6F$FIx5At*Vu$BJx zaofk781vt+RyL`}i{JTEweI$tIk$Q0A0=))v-RfA48^pUE+@~*glFe0KVEGRJZXl( zRAJlf<2SeaEV&=myomSG9OmG4`2n|Tc2(LhdCTRxf3Bn8gyotxX4fzB__l75i0^4N zS>*iU)3@7l%2!*rEq8O9t>9UZ>hz_Z-??OOS@VnjgGL*e6<@a&RaUQ&*rb}{du}e1 zRJA1SQ&~G<;qh|O*Zo<+ zwwGPD>H6kP=Ua}NX--%b&gey$HQW(V<&&9WZt&z8mS^-kUhtW!tJVXKwDu z_`kSy)@(_$4E|2r*}rnnUfEH|-pS#2|A(XIv0wa?QWx)1>sm0)E%2zIsuKsdX|Bea z85909$gbR;v}0G{iiU`?{i)Qaf#%6)f4hXXFYh_NBP#5WMsxcokw>0_%csnWU-A1)M!dbR6|1Oe zh03hct13+VY&b>JD}Q#*_#XZKqKJ>@YsaU;BFay8mi};WugZ+9j1lq)oR+sL>Z44? zM~%HY%fm$@^s>4V#GFrkTry{sR{pxD)^=?3!>=bX{%hsm=Y4+@Gr-Z$5P;KSV#=?_Z!{T-2XS66;U@ zj;?W?XsKx?C07(MLCjN}t-y$X!v+}%jRi;6I7A3fUMASOCSKM&nEP)!+kr-hjT08; zEZwwEx#Bv%wSlSYt}!|S zTslz2-pJClb;F~Yq)8X@R$gr6`>o*^HuvGNZI0)ZPd6;SGRwb2E7vLGclbg3k5LVmr4m z3EkA$QeCDVW_f9vw%LNiM?b%x!gcuUkGj)t6Po*;T0{sh5|Fz#)5zWYWbwtdEK7Jb zqIkD2I;goqPWypL5#yfFH7N>K4I5f*x$jN4ocOqQ>RH1Jx^qw1?_$sB@Q3CJE=-)C(99;@6lrBKGRPr)V&wbTV|lnXf9dW&Tuv8l#F2c zEhRg~atk?q%@77N+YW~n%a_dB7j*L9CS|7gw%b1&EOqRPu;@#DuCROUx!*_3MV0-U zC4TBM`_I-rV`Tcyf2Y@~ZS7v(E*fVg@AJm`@7^vs`Sjks?+pCCyyBdcmR%F+m4EE- zt1K>I|3mT!`-LqPPl}4~*GV1ic$RlGAv4o*Rd%kz^|uFuwlx}Prr$ciP}ndtNJAz5 zBHJNe<$rSSdYc-#l={36XszDa>-p@+fqyr0QYYos)NQcPU#u=Fp(m8nD;wmg{bcTe z63ex>3b}6?t$lv;@V0-N0?d}zZyc6xDv9e^#aDUPp~LEv;(E2(Yl`~IlVe;~&fB?^ zHFNQcD*m?UDXo@U+uelNG@N`mI~ClD|2=Ekk;4B;ck*G^ge7i4!TNp6{=zoS3G^vw!EBlj)KAWfvm6tA6LMDq~)8_tcGf6B=$LJbbw0l2D%f z^L2(^&$k)wE&CFGbcW35g1VPn=Xm`m#AQ3wtehW}=>2TMj-7{p$VI)hOy4cou;E1W z&m6IQgNqvuCP>V3)8k+euoRd!h2!tj%B|~X-o5!b(OIDEHGk-@cL(>#U75Y}aP5}g zZ+SXCe!M>`LEh@!k38S6XLc?7dO5^0JG_0L+v?SB`*PXST7L@{SOiY4sa~ff!-H_SoC}G~e zzR33agw46R+i%M)+c9%yv!=CN*c#?!o4He>e%5_{86je|`$S~iY3sU^v7cGbUD!R% z{GVM7n)mlda8yW{-P?ocsHwA>m0U5_uM(> z-Ur7OZcT{#o9P^|I<6>B_kW#?xbK~c$Ro$A-Q*udKsgy!Pfx zE|h1ler)T1@91N*$y+1lr$5SH#Po~pz`q9WO0Tm0j~=oMD=*G2+Wc7N*_)h`v*J(B zj@^-Cy5KCg&h5NuORgu`e6yc8BV*x=G7F)1J}v2vEDJ5u-+U`9=?Z(0p0jtVm&RrN4@K3=>yKD=KCv--_rl+EE2CUwsi41a_uhPUuRYbj z_VLdAbk4Ohe$ktGH4~#JE{)prH!$v;_VmcCaJluZCl+12xmkYhyqH&RetV~DIm9Wm zZk)PV<;U{J<)uEZHx4})KdpVv`@7j`Z{O2@&))HTd*#x1asMra=Hb)D^iP)j+L8OW z@c5^=zt){vvN6Tqr>uOGZ@BN4;iH5zNnGhMOwHdx>F0mMgjoJb z`4g5?%DnqeUFOOMs%_q!{qi5VmQ5~|Ud3E{Xpd%gmw9-|hQi{@=cn(!q2cK@Rrt=s z=d0hHUnuFTy`*$5%h~(B_SHh>c?Kmb7H_Y-HqVp2-mF^wQoBS^WNK3MiaGfu^WNY4 z%dh5Jl!ZB303HJXjTV>~m>~AkSz0Qf549T^7!WmD5PP~eB6~%CvIAL>q)(TIkWNQ0}S%*PXhdMe=c|^aXG`} z*GJ|HFWw)YEAhndLH*DBo6Ft*e-qzdU0myuUtaY6`eOP1lz+}o%y!?mYfroMc8TPc z!mRIqzD_*zcCXYF{=(;bWv3MGe*V61-|gd%g*B(juDSpJ+Yc9>gOb{B{xQw(EeYKH z_o?BB2R%Vq^>+4UQF|=yF5cq}d-2zF+lDAh>2L2JZk0*t$@|Y0@BMu4rr*YXPs5F; zZVpb!7C6?jWB)<5Q*6&uFTNDDs}|jIc_!o9g`BUy*3bLT&f&Z>R%TJ~xdjGOtO=w}<)^+{BG~;{A>l~)=xm7i<{raHU zXR)zg#lvs&FHKiE^gH;$1%_s|clQr2=5W+p7@+4O^Y707qv>nchRdBy_^&t1mUz+jP|I3obiK}NCE&p)&%9PC|eI<7rHrXF_H+6Z*rT0l-tEoofg2db-=a;cX z`rOLcX`j3#bDl$`5{JrXnI-&l_MbLcwcyad^orFj*Di|pT26ewajWc}usPRt%G+JM zE}qfZm)Whtef53(rfs%T&vRzPG)3B(9s7Iv@sh;2Lf*+z>S^tZf-fGu`?=U)vx%Pa z(h0t6c^2$bYML4JdU?M@z-23h> zNRf!X+)|}G<@BqRMGV`gshRAzpFcnPueL;a$lZmZciRuLNvr2s*P2~*UJ!NSorQFl zp!(4t(`uHR?RyCsn!)hJ%x&l2=Q)orT{&hm^V;e+dXJyD9-JuJ_eeSWERWtt_9A}eUWH`G=JMiF zo@5gVxfz=!V<)WPo$tn!__X}ST$b1p*KTw6na=r^g(Bb5@?tXonxF6g*TY!3L1fBr z#XF~*GK)C)vp%p*Id0h=sNMQuf8vMBfjca|7FfGvT<({8D&qZ1KTc+T1Z$n}vX8=c zw+=c+NIu(ce#FtBtlQAb-C^OAhcB-%dx`W2o?Tnx?bNX0LxSQ74hhFFr+;PdUX{G+ z;_;VKoxHu~!GWoL%s<|H{rJ6e`}$eQGEJQ#)(pEFnUDV4%3914_iJYSnhlCD$Vo%KdmLIN4OWn zd@)#k_TSNuwQj*}OR6j%`ZQQ_EPk+TMWfx-2Kz13e#gICu(RIQT5Uz9%0at7=PH|O z-FO*3a;w+#-(Y9i>l%>5tHYNfXe+tm`IJcRK5^?Q?-?{-{w5Y!-WbzE)Gc&??%)GH{C4v5lrmFYegx{dXd6 z^R+ds;@?Z9QcU#v+oJZo)0y&P`t+CH`R?AQZIwh0O^t~&XZk-m?ZAPD|GDII4yJDM zNH$qM`X=8UKh{tF8vUW+@~n21q=XMeD_3y8eUa<5 zC*ApZUPp+?hJ|j4}YR^o$=z#4$ zT~}t`d1su|y0i7uhr2DxPt(FT|D3#KZR#me z{l`yRUPwMq{574;ZS78ld_%(}Ga^3*{ZQ3TIJron?xaa!)T8!8wVxQ~e;3-5&6%xo zNl@dJ!Mn3P(kl!L>bIIqz4ACH=SEdZXnXsPr5FD<)b&W+pW*Ro(;4;U8)n#BPn6s7 z!Kn6Z`HbT2m%KKymVDt;I<=x;#pLCiZz*wn*dX?;ZNmcR$vwZt<*hC~*?l%fmA^4O z<-n^$4i=tz%a$Hq9azNPTNmTw#(OqSl|O&YX@TP$%d=iP1kT{%?!O)3xAl(J{bNdT zmLJc1XHH~(UiDk;E7zL)mB)W5cwS&%|6Xo`uz^|gmdROmA{j0P>({MzwaF+uGpTy= zF|F2P@lJj+dnf9~JKFtU#XD2d@1NaSuMJCYtoxMWXkPR0vYLY4W-hZG(|u+wjk-Ox z=KK6bCi3~M=hu8~W)G{MzlEn(a`BAD;#qrpo5Z4XzW-?YZjcgDlYC}@=(aB#WRB-P zeets8xPuOtote&gmk8++u{!10mpf+e^LtWrUH8ND)nyj1U3UKK6zY*=YLDGh+AQ$N zTQ1jkewgE-Xs7Vs&)>#Q2=~k=JQiTO+1CH#lO2_23!7Reyfd?rW@O1|n(OeyI_dJO z3D@2g1w@^gz>qrO){1YPzAUANiRIswCv&7cwo$k>QCLfB^0|hs91OWXvddN++HouR z3D3L@cD)SqX15=?C7y2bKx^?L{o@zhS4{ogdPh0pV~+HpZw9JtYhRyzB;B*4Zjj5w6N#>d??MY=+N z@?EyvW1rnJtpb>x8kxDA+Wh3WPy)L&Z?Za1}El*y?=83m>L|_ zbT1365lKqyc)@3*nSc7lCiinsMIRfnYA4o2A53Lv7y7|BgYih3*o@8F)iY!qEcX`7 z_;AbW=GHqxRf*X)7v8V=cBw3q<&Mp)2Ho!*Fa8`lG^hUNA0-*(GiUgD&V8C1*t)dC z`7OUyrj$#LZvMLhj>|G`Ph)%BXKXDp?c2xpu)OO^men#lzDc6 zC-dDeG82qslGB_Se`l;Rt~e{8UaIGB60pb3eCnpSTGeotywlVBR&2J3S|x54u{nKz zl6${cP17ft{eHjq?5O?7@w{7)?|~Xu*y*F9+a{b_!xnra=5}j7!+Z9+R};70D7?5n zm3furSJlR-oj(QJ5)9v{{NB*~WwKqox@G3;sv@f=1{tSLo!Dn5x~0~I@mfkquH^x* zDKDqYIcHFl9X+dO=SBb14>~`~@%&U;F1kP?=x6(!unS31+_Ad##}uBP>e;Tt5PraX z+ByTD|NA=+@$kg-?3@?3-s>gv^d}LE9@`e%US;q$&CfsiwPaC@yL6)KjHTU^MdvOQ z)wEwSu_8yc=1}y4Xfug>k8+MV>8{LRu)p_BNYgtpq;g8PqkfV4+K|6@P8RJb>+otT zI;_Y){SNDztxI#?mwUwQ{r=nW$y>G=9}Ro>->F?p{ldjd6DLG21(0~jSCsy`IYCa-1O&~*P`NcA?j8W zU4HEC<~e3l{*~*wu+vVaJL`{m{4@2k;rNiN>)tOE@Zg?*SN=0)r9W(HQZaQ0%yvl5 zN4RZQ-7*oNqg(bk6eY*;l|9d7!piH~2)v zr3-WJ3n_LTyk+!q|AC%Uscu15+ke{KZY?>}5`7@Z%I5I8LX$5`guKESCsZow&Mmgu za-FZDMXfvbP06IIcbpnO*uP(pGK0rCN8kI4!mHX}&Ki-cEN{PS;(gY=@QFsN(8j&9 zj5pk4Ywt7P_cZQziV*m-!5C0F8s`=8~n-EY&>^xOVag~4(wb0d!c|A(ei|6X41 zeE0Ty+^vwstg;tbujchbx=QqIT!KD^3lo_WdX z;;Ihe`i=j){IAvK6_!~|mMd^sDXy=tcV2#t)U5+Q7RL+JeSKKPEm_I?+C2Q^i-$hd z91>yTDfjaa<^@!QZ+r0V$3!&~rZ~>00tZgWX-O(?u;|r1(X`ht#zdlH&L-A}>%AV{ z>3;ZemTsJPw_={z)W!0tDchOd=e(M~jm2GccRZ6!W_IS?M%z5YNhjByFOlb!DZE#| zucErH?AOB@;L@vJ4bBi2PdQGs;KVgx%;O4-W+m{iTTI>zqLFMX1y`Xzwye^ zV|K`Ct^FIbBqJ_WZMJ-uRwD1eRpNd0!*_w}C0_b|?YdaYvN!3I9BZ{-Pv}2d%+jgwNK0ieVjUi-C?SHWIuKU<0-$_VsX3G1nZl1ic zRNFf5)dD+14J(QM>mT=p7@y?z&Gb_~6%-t`^BUtuxh*cjwg-QORYZBqds-=m_^r6H zYJLXW6c~^yQT$;7*)#TS~(JN*>-sx8Cw#9E(S%KTNCE8Nb zxqfa(E+4Ns^J?kU!oP;v_YP((SDy9Y>6Kq`FFQ7GxV}U=O7+iQzNqJQQtsw_`*Kw0 zMZRCO-&D5n-Ji%8t+|PC~LES z$CfK^ybAIPrc`XK)x7XqRb*Q2oD&NY_Hv&KySR44iByHwZ22dl$CrQq^l8S17mH+t zH!jV)X>(LRqWi|(^T86o&o7qvuqNnjLp=NIDR->}MCIbo<=>P0dtLVQRnPbAq8&`r zO69tx*M%K(-P;=^DasQ3Vd?gzxygb0n#(qP+%;9y!8s*(`40!ST(!(0oXwL9l!E?S1TW9YIemVK; zDaZb>|3ViXvRdVKOY>ekQDS&i+Ck+*w&Qurxch=?4BDC3Hy%IjZMLKS(TZKiQu40* zrngw@92aJ-l5$=!rIKTQsamSJF}LX@EiJ3iu%N)Oprfm!Up>0wxo-QFqmftAERWA) znI@GNayUL_>+gRvxO@^54=`7HoUl4@B5(fPKTDi^Cv=Iwaxh)?(=Kk(w9wE`5?*2M zH&1`8?Qt>?{3j7dL!^yql^YdxNPt=VXrX_&io z=-KKSi<`Z-1>7rmwsXHt_KxtY8)~;3PK{jHl(Q>bIPui$>193-*l+DLa=GBT&VJg( zqt#0{Myss&6dfTNnYp({cjFT0T1N>fXOV~bJ0rimI`;9%m2+SD(=6u)+ech!tmeHZ zXnyf`%$ws^nC~`7m2YwrnYiWi6d%z-=QZkbv#n}Bta^WAPv-3i<`b<`SD))RkrC&5 zZ+AhVrL~4h_AkN3>wYYF!7lnEXZ@=U`*d!s1+B~QGEA8{GwIDZbGRiyM8}?7IpD$sL;Z7r_|@^weV<5$9+uw zqZeZOpQD>ytI229>*G%R5wSh)tXdX|uD(+~cgP;eJhPbDVbi6fQx%%7EM^egqq{%h zge=>49$EK8DIUp3ojff4|Q{D$?8m;!}fpn%!47CtnWL2xGA=r zWS=URR(1E&&qaGypVsTWBEb^>y5hixm*zWGxSaaZY`OQ+o4rzRv|qjdlE?eKPItw= zxozQ&J$L?Z?c}TYdLzcyc*i-RPW|2Ok-7z48v-^Qdh+#4atS+^%On3+n#Y^j(ihh5 zZMpe)xyvElRi#yXk~=O4$R&ntvE8#{sq~z^pLT_Es5dQ(aWUe}n$Gm@s-0HXkps^o zey^~cR-wU^ARM8e8+mrR$1A(X(bEFfai15T9)B{OWzB`~Yi2Xl*&}=V>W@lqsn`Et zq}>;HLni1m!;;JIQ!|(GsHl}yS4li~d;9cH*x7#n58`u04prCrZVqqS&J(pH)vG`3 zMOyL3qO<-9Qx@o+UjJpr>j3Fgw;9dl%N^6%H)}AKC8ek^eqZpdaVl@wt@T3Z*SuBR z9?H$nV8eLCI>Yo!VvO;o_&Z$B^fq2$_;*jp<@Nf>JsVFIuJ5>gic8GI@35C$+bu;O7mE{`-4;D;r@Y;+vN{wvY;!S~JO84le$L_-d%tyW+Fr5ff$5qZ zJafgKs!pG`)mcP6r{vR*=ZotZbpPCKz!*e_42^>Z(M>JP3}FZM8X1^i8ALZ#AY#eg z*_h~j+3kXL;!S_rK2KYGENNPKkYikwN#;7$f zes#mAgGtMxW8XzCUDQ!1we!Yr^)wAbjlD+4A`@-XdX?>FC@k^Yd`$HJ=I^KH>Dcq6 ze!eQ-zhOVmYK29`R%`m=-kvnN@BWbI-}BxHZ2NcK`CVAM)1E_j@1(51MgJX=)+gNk z72dOIfzOuLk89U%2nl$-{r90hy^l{`^+k_u_r9fx{I`;SynGQoVIkY` zmm8uo|Yu);xu+iM?ie5{@Uc)teWZCAMclmjxZ~SZ0%D;bEy87JkFFC45 zmYw}IYu=P1DgV!RHf_1A*T)jp)YNg;f3;+z z)2gDjYZepOSorEn6*{$4KcD{7`Zh_eCpu3+}yN z6*M7pPut{Oryku?v1eq>`>PkZ=Qw}fU#(!tq$h`7PI}7pal_`7XRT8uy?=aOu&HP5 zr^-vdPnA#lElI8`+?ClR9d!3gKo@7Nr~8j>cc(6%Jxd~Yji~dDl1gbGqu)3E&ZVy` zmYsVhKkkg!wWW8oA8HV$+OT`6M7arXbETYn!LnhuDG>#pJB@jXU;YEEX|MI zwx|eaDs!0fcw_aPhilUXcY52Kg_u3-y(=(ZL+pDm3ui*d_i0<$rK>jFR(|s%?dT#= zyIGlwowr^5!EEy4(XZ8pIVWD#?yz0Pv#~`tGUnCu-5h)yRCKSp`xczCY~p8hPxR_Fh7_kmcMXGb-2PM*@o1g6>+4Yc@L0|6&73xhY*{B{&Hv41-CQk@{q_B^ z{bqX|R;!Dgncx3ypZgLgxuQDOcJ4zNA!d4DX@ywNtas1~V z?caCQ(tlNRiO;vUfmV78wt1H^Z9K`q`mBlP+Ty9Ny52CX(=wJwIPfBc&3SgEwc@j2 zu_lY%=E7ywJM*U+n0!C_?U$(Q)Ih(tQVacdE!-?UO@K>%{S8j5Y{kQOEtYIseoEuI z`t$JRwZ%*&t<1K|-p>2ZTh5~9|K|JJ4>}o(|J`n9T+Giid8^}rR@J4ib=Ixlb*byn zX$koi)0t<~G2Ar0@Tz3Xly~J@cJ(>EID3Ep`O7~}o_+Re>zu8D7vH~=Id#D4%Us3k z*~Ndp+f{a@e&SB+wieB8Yfs|kKE$srBz&latI~evJua!Knc>=EPnPa0`g(2ApIxh( zCPrxf72crnxVB=C&pemj9rGs5`CwZ8+WF7reqF~8m$oE-blaR(zr20+ChmNfPoJCK zUhI$BksK_w;Q43Pdb6zTZw0qj&8s}{b3(BAn#0rL%8pyb%&OU5s$*@m<}mN2yX{Zh z?$*v)?{RyB(rwoaw*GlcjNw0?3kPLCU}jnuaO~=b#53H@hBhAYcP=&^7jm9-HIH%K zSzZHjh&&)3+Qt`W_1+#jN>VsG>3&E~_0>-3g1hY0U#mn)xh z;fst{P`}ho^T_lNqkFd(2S}X={d=w1w(Iz9_Li0FX6qINEqZ0}#eXv6{k<1vt&*{t zB)Ru<&arz-qu;%1nzDMH{pYZ#;;P_Xh6gz$lwRqpuUUGoolS)=P3q>-&kH%TBcq%o zRu?~Smd^TE&%ZV1%Wj#!5dy9W5q}qMe2|mPY}&z}F)xTes^48Zy5No3g5qz#eti1$ zqxAmC07Z6r>%d&cX|eYg=|xAJ3X9&*(;fHo_z|P;OZS(qv|~06@J!2nxah{*SW8Lw zA5(>Q?P`*|GA}ti{Mf{`ZSTWMn${Wg-nMo1T@bUF$tinh_ovcTHYHnD-tBGji}o;< zTzv7Ca?5_tG=4c}tHh})*E}5mIV|SkyX5S8ImOi8>D7YJ8!N8WpBLTRY#O>dX5-SI zKOC#f7{Utw_Fsu)h`Fk&En$7c@$%+ntJyAY^S)GYq3-tV%f(8Q9u%x-`+t^0yXV&n zhU8ygitPM8Z#Ju%q>&sxx_TtYF1X)jRM(SVh)FI1~0#l+TEJDB-8abkIs5s|4Bmq|#^RfdxtFJAMzZ(5 z_L<+a@zWol)yka?zBhJEV~n41H1J)Cw_)nRmwB6u7!FrGn;Mb+&vfSX6#iKak1XEA zn$9VC@bcSDiHno=7pd7LJ`U$D_S?MTL7zbXqRm>F*YY>l%z1mVWsP3tOxJ7cB_328 z%nE9em>O|^gJ#e~u~iat`xYJjD5K;h#dv9F`VVEbDGP5KT;oX4y!lb4ODAS}&asor zbeCyrp0?;J3f+_W;zZ{PwSH@>?O&|I%NI-5$NBMJ?%Ez1w&~f5X3hz|^~#P1H)cm! z9={`8dFZ+1$6eA>rtNt(<>DzNBT0_0iYreRf4O__qCCe}mK&Y(CkM`UnWnScFd}uO zx$^B74u|jEsAj8u8elk6YoC$VjTp95X1P}vozb1>esq@7j>(Hw=SLg%IjIy@DPLGx z{48OInx4@~w^?4{`C>|Wo`+KA&3?6IBb(;-$cjt9jylGb z`BUe1e2&%FXDNPa{pae_v%d!&%&il=DmDMiwG*lxoiZ<(A4I=g?({L1ck!)V3=zC~ zhNYFiH00`7n8l?&J<6O;*=Tc^mTaNzVHhY>{C@j0Z^|;C_8K2u9 zPMkGbdoH8Wq2kKVedXrr8(&Ip4O)Ka)W=`@f;Ar1uGG)R9mAC!YmJQb~UeWwi zka6^|Mtjootw*zFOBvXnFn`qEY0uY^Z*0iLv2B~J)Y2W_HX5s5pSCUPL{;v)zsnqn~;|}#%aubc> zKg>9Pl3_;^hf&Xz!0)TJbI*-Br7=5pO{uLJpTmR`>AzEag3e#hmuc9z>`|SM>)o>} z9vi-$y5;2>P2c3l;eC8Rn|;3vGo;FzIx-3<|1CXr=g3r#^Q%^CWr&)thzxyyN0nj5 z{7GLou9Xwm71OWNz3cjtUj^Ecie?O&cgxq``)On?)O18~bC!*F`=_%{xBcIwxmcj^ z;40S0Aorc3%Q9PMo^v|6ZTF^@@4RIk{aUBn*6cHg-XxXLC3L&ZZCbJ8<;O09hvt3E zd@KD$gR#%jt76|g=ZJpaSJlDaH>4R?=uh`))2Ll>a*6TWS96aA9Lu@XU&2s*R#RSm zL`sa7cZTs2xE%COk zwq?~TIBu5ynwJ;Ur?zZ|&5RjYS|`}%UhOVBlvbQ(S&?_@yx<&PF}d8kPfqcyxLCpU z%IE2Z-qQ1v@9{hHZ&MYxIVC*v;Vz$N`bM?!;SO7(kK4`OdCFk3#v&$*{(z=Sf6f`1 zsLrj^G*p;i&YFEY>RIXKw(ED_=d5O1*>Gi3DXXumk*J_nW!KspFD+(HKb-OT<%D+e zuo$iP+>hjLiM>3M+F9oqxx3`ltxU%yy_+mO!>iVb6g<5gJ}{3%R_ zYZc>ju4hHl*bf0NNR{VSu})A?7-UB3ppHmCpG zEAZ&o?IlSm#b@Vk)0I3p3i4%IacSK1B2 zdgd>mD`Vs(USRcb31`WfGx1%6lW<4m@@?0$YV8h3>%$L#D z^Z&QRNiW!|c_H7>KeypRCbLQBH@Ugf-AaY6X0R;U{`F~xfaI!@@Uwmwf}ab=?OLR; zI_`(qfosZBCvU%)H$lTE;IY*5PkZZ|r;Dtr5SJc~a(I%%`>jDg1L<6E0Q7scFmeY@)89xfK`>dOzS6ywi-(R%U6o$J{C+t%>BhmOKb0sMTd7UeeG=e{_-ECr;4}UF>=2#=g~NNdf{WIuTwrO5aX~3T@zzd zefeO6%jS}&?IFTb3IacUKD2bj<@|TLC9LjV3peanksn+r6Gyep3JzXfebZ&pigh^k7w%NtwD-c@svX~Sk`0BoKfA@_`KQ7v zhdpKOd#>2aQ;$8Et#EAhlFn&zbWsJfB9>^@^bk7xO4s6zhq4DF*jaz(ZIgz=f|qLKU*t( zv`cn3F4(s7$Ob{zGK;Et37<;LQmWic=GF9uZ`i?XB>wc^<3+Qa-ij)RYI?M1+gr4G zk4yGm%@Mt`&Mz%5KRP=*v(n~zr`FV%qK+xwpYf-K&Aa?+^Lr-qwF}L->TR5#9x;l# zSDv|ZyQ+5m_oUk3`oAjIPVTHpdVNRa#T?$53)5cPy!2baTdMq?v0A!W=>COxammTa z^XE>APj-l%y6Z z=)2`4mZZ9*Cg-Q5+SzdxmlUNY=5kfcxoR7mAG>|xd#C!A3)5q^UiHuI{{B zu3d{(Zq)Y_@Ys}8o$T4CvfFIe&-Zg59)CEY-DX$#_n4jCHZ994PCP8wmww{+=Z_W} z9t-~O{=a{RRn@;<%evC?C)NEoKl;1d%WwSAZ`fz~uV37t=XJ8V#o4VkbsrxKc0cBo z-?8!C4GGhNmHqKCvbDP_3yt_{L=Me7`+D-_!T`6()8_dbbX$z>jl5}0%4PB8Gk`EPZBS(xp>uYX7DDN8njcdKO|KSNYXMViN+-l;)#7JJxnGrhJTp5JeNG^Gk*1d z92PkbbXn>>M;U!{79C4x z3d`PY(^q}od1;BEuGi=Ipm*wrnm(~U_1AhG*V@{1p}JzTE->IH9dwcNa(zGVtLmiz=0c>2R zJr0(gb95#NH`!aAp5?;wqWn}2@3Yi*a|3Uh3A}dfpDDevMe0-JgXzm-xUaAsP){qk zv+2W8`9hKD$~De6m{%~0_9bw2@@=z~I948DJdZ)cu*Pfii>3=)7ds`yyhK`@r@a(> z8av}w?~2leE7_T2+!AwFFx{_n5H;CS!Y!O~M7Pg?`9w?8Z!W#hT``*)!kLpYKTm2f z>8x9&$DOQH>;FO^l50nxN#zD>)0nPxFWbCE z_C52lFA*B<53WDUIK}tAW7pb}oEa0#ukTmcW&ch-bK#^(%U_D@`4((5hc)p@kRn4W zFGp3k^^UUYBKOnpvQK(!xfLSzv^;X@zVk)zZN5)pbeZ>WLbZNzv1jP_mK8w@R`L3O zIP=rZYVn?Ftb$rIVnZHwByO;(bKQ0FV<2O#yid+)E>1^Z52pvZHd2Njt1FzZ-+B7% z_nPc;vzgO0)>hj;mF$SS6 z%XkGpI_iFzzVoh0=bZ(ixk5j;zMu8&du8!~+IwI4cYa^(`eG^5C;gwTRep8K!uwa` zrpysfV>r5C=L(;nD!v_G+>g&^W6axhV7J<%9<7d3GP8OXtnZKevrM|a!))iunm30# zeDbr4wyV_dnR=d!*S$3D%U)h--_zgc9TfU)Ip@0bzVBiitOFHn*xYo&S2>)ybJ;h| z)A{(ro_p1weeP~N`2WYF7x@x>Qft11F!L60s1{sT5V_DE+YuNlBbpo{*0STu8;LbS z5yx94uEv&e+)uw+G_U%0)hpk-(b-m)eye@I_vGH|C{eYArvwfjn|5k`gXc2k;ytI% zZr>{4eJ{u9C9~i@vu_422YPL;DLgSXXRJ<{zJB%zMy;S2-dpa^qLR-?bY3XcPwt!Cwi64iWJIR(z1Y~(6gqMJ6N#Yh+O;QhME5)s`crPKli9agMH|07&`~|6X7R)QH-kmK zkwy9G2O^D$2HvU#fOfHKx za@Ca%Ez;Sr=YyU`j6{)?WBjMJOqs=>+!e1|xg9Ntd3r5(?UJ-ZLOWnXOKj&}ML)_O-d@|3RUu4{?5omF8T zAxCmdPad*!xY79OXP&b{=9~r3=bW~f_s~f34!7ClDZL#>|K?a-`BM|@YQQY`L1c~F zLx+g@UX$WJeVTK?{dZ={)NkzxmM5y_Gq*gQ`=+yHQSIZGeVM{Pt4f007i^h4`Am16<{%b%O}%64AOV|M8IS{^!W_JgK^D|as%|FE=} zuxk6-r&2Tg);UG$O0RJ{?QgTXw(G>SUD@FmTr*cp?5mePu=esjS>xt9&n|^H^+&p{ zw|r+vr^KgTpHexaAf?sxqgu7KiPp`<%%?*1PyUEI^?J83lj@C$UfMpax&Qo*nJj9) z@}yl@ICkZw6=yz9JgU2N!o}tbuN*ofUa2|CTa>O#mRg`>?2uR`?zOJfXZf7fd?8Y6 zK5XFb43|0BvpQm)#UYiOuhK6^WD0i8zT=QnZPjRg_NGPJ?&zB{S)Ykto9f@bchRj< zc^SrUn{?K;KM;)w{Ul<_l<|MltFJ!2pAJa$y!yg)Xp35x*N4hUxoP$_AAYq>_2Srh zLYSkxwJ}hN<=zsflLCd0%p@sj`eVH?Jk2X!{2+}#R)yc7cjmj5}IozyAjz`>ly0_rm=?n#n85*3;x?ZYP z8^TPjf?YeGb2+Sew#Qs`YEiE+n|bLnH``;8FF&UD?e06=QHj!3NE<%?7qHh$ArSezp`#UUaGVBUFhkuwl8OnZSz>U#a!>a=xU~x zf=@h4?$7@#Cd%fqVvc4q?~3ZJ{nJ=_Z7==Os9HC7)A6&PZSK~m-JGK`(Qj)|qwC28 zAV~VvG$xB~E$zVRprv zvV~m?>=IXXT7Au=<%H**t$G@H@>oYyO^nVauQKsq!!m^$##QQ8(yY=QS_~@F-b>Fs zU90WRXCL0S^nCK&FbT`$PW?yNM8h7fcdUtKQ8L`S##dMJeX&_V+)mS93GT|VzK3Tl zDasC$e_frP>b7LdYPo{$mo~g|D*DBl7rLjOO8Wfz4!6`cR{!d!?OYw^`!iJ)(o*;F zhk3V3p4hXZdg}HNQQr%b&%Bb2tvr?XPmljc?Jc|LrA(Fy5>M{tc`NvK1~MEy^?1{Y zy4kBX78J-G6Da657WMhD<%q|$9VgC4s?K=7_te?bEe?jtfm67OvW3=8{5sQ9WZM(b zBab~rw(sYNni~+k=D_KnZ>~sBlPFAFKWXmKZlg|#a`uDE&w}dhvu=Nt4pf}byj?ac zLG$tP)t5epbAC+o-<93%cHjF`fa%@0Di7yRd)IWw>jz`$E$INR#jQ;otF)GPb+oQJ zBxtvwks-?P<8c+5JwG{Z8xRO@4v5_w#7}s?C}? z$;Vhfpq@G@PnjKO%H%KhTdX{PClfxUU<6Og9gHErQc67~L-ZN^v_blU& zOg}PN@Tz3nlwG=dzmqO`a;^6eKc%H&vG;Yn%6=Z>FqJTrPoI)$}pJ<8g`OwLb_0iQ; zS@NQH!WHx1j9JSnrtWa?;Jv@|+bXWLUcHk1+kdVX=1vc2t^O<$DACs3eJNndPTeVu z@|=}|arrETd)~ZQdUbwlPG?U0wCup2;%~}g9&!uBx94Rp-z6G+vLWryo+)?NHmLhr z>!>_ezY=$pTggr2O_1pQ7J+I_POE9WjZ3u-_|BYY6ggwX_E<$tM%T5cZywpD@AG-( z^=Ho}%r@U@K52HaOF~(1{u0)1Tko9dZ>np1Q+F-dyvET+@@1UVjzBKKwb>ybXUtQn z-03E@LN9v7CCT>PJj#wQyo9??)}PVKtYc4fzUQN`a6;saMOAhSwPxI1{mC{qVZx7F zOw+&kHLz!k{l4*yDYHOy=gjKkUvJDT_gQ3=9jj`PbK%sK-8N@JnbLR#`ZT8h+W7K* zy~Z|+?-M1v^dnm*Z?FEz{%4|N#O9mtpUT^F|EOy3Sp4|T;+*@!G1qVM?bcW`=}Pu4 zQ-xwr`_T6FOJ=4q9$h=*tK`{ry5g&XE$8K|K2zzw zIPakx>!MRDk6N+&vxZ&`zJF`6=dznm^KO{ldpkS+-QOv*-xqEED{%hpqGNORmkX^} zF+Y2CoU20%hhLVe#v|#eR&nKb*{qn#H$H#ZUSa<$_uAFz(*D68bC&PQt9#7i{>AIe z>t8%Ns)_U8Rs~e#E;EZg^!NJOQ`xg3Z7xJ-g&hC{T^VQ0WA=ft6-#yvU>M&D&;aj!+Pp{Pt`Ix`J24?D!a|b*z+$}&xxxMm>>Ui$?f+= z@85sE;a)9Tc<)i)*FNd`f4rBE`!wxcR5|nPq4KRexF)q!1|H!(A(msjK0JlvW#$JR z-Om%v?Rxm0JUBX2d_mAH4GvY~W3#SYtJwS?SfGS0<&CD<%%q^51^$uV=l)JTXmV1t zk0JTKfvAegWw+u`ABo>I}@zvtA9k=4Y7Bpa?7G1G~%O2N$Npf`hUq8eW zVRP_Oaf~8QVEE069TJiSvu5XScC49P?dco;TQd97pDT09+tb%*@+|qj?&=-Iy8VCd z*s)6d0cYYno>=H*FU})`xri19CO`okDvIC)UVGba=s6I6C?d5|HSIb zWsKs1yQYR%U9o-q^71cn?+;UYUhlHv-s#^j`kuG7MEmf8*iDOGD~P;_SY>qT3isDN zZybKFo7=FzV{`Vk(@)D*rC7Zem>^iXcgEER;$l}zg*TtDDwI4|k0eY zNm*vPC&L;hSk~M~&^qwyh^v?qZ-cFX=ek{ePV*Hrms(y_%dtsX;`(>Bh2q^~-hSD? zf;L((>WDp(v7Z@uQb#AxWy0k3o0fX45l-@oGo9VOQ7c$f%z5Rp$k-cOn!>!61|Q{$ ze^$FTGQ{N8!l)PBGw=3gOyM>dZp3``e1Bloww8x4E4MN|c&)bC>_pjpjn)+t{ND-u|90TbsgI>j z8^XC6I$p>9|Kj+dXZq{JID?uJ-)RgrHd`ienI=75v^l;qBE3GSs(nGkt2(>?a!m4b z>Y4L=Haabno-fM6^H}!T`9&NW5&p|LU#!|%k^jH!ypQ9Aj%TjLIu{jG*e4lFWWV5Q z{+@E`t|V8V zm#O>pzcMjC*XynHmaP`jtGk}FFSqEK>$69j&!0V7VjW%d(J@xP&;I9XwbjiVKBhcx z{ASVO?-pJ+AvxTnd`E*{=(_*kLsh5NPYr&vWVvos*Mx_YRtV zpr-9g)W*8#fWLcIHGEr^a@70&v!nZB-|uNHI2;jpZP&DvO`$Kj?mypKGk@|jSFNc{ z1zl4e7YDU}51%R5Bhq;xYSZh=yt*^Yb(xkM+YQ2VI3G{$wv1f&fBM&>GWQGHt2=gb z&9weg@-k`@ujJw-JJrSVcE!|ZKm3+aIeAaYu2+8=H_u6!vDe7_x9p=|2W}a!(Y~@q zZk4T!hmCdbbgAl+U2T$`o-EN59Tn%RPyTc}thj!+%lsDd;-_Oy2Y?6p^OLf;%nZzo;nM*|m`6<-84-8XWNdW5ta(wL{F{D@8|@Ez z7G|2iUm}*RAZ_6w#C~%tTV*6`o1Sv?>zNlLq)rNLI+^b;y5807=JNABdTtNcw^vo1 zP>Njh>(#M;spkGU=8x+?{y)FYZ{NRrZ|Z7_AKia<3x0o=hc(-zdv8De6(5M+?#qU+u7==Q?}Op7nOo9}miM{E6oihc362l-bo zd@1sH&y?cds~uR|8Rxgzt=Sa%_;gm~!d4NVclErht+n^o?~y;hK~_k8viiD()6W>_ z`~QFaC*FU@w#fy2J6`{>Gzi&TwnN{oVApB$L>oqzP;IlcE*Ckz?_a-n1sO2uk&)vJ5 z%&+;yJT;%L-rvT)ewn_k%?ri|zw682-x5x?SaW3Zr;1QH{Zo%;|B2ub_X<{OJ$krM zUa7V9YL3g1(@uv=+u2?wq{^r|7n;xf9kB4n6Q0#8D`HnvM9b;3dzUWTG0Vi@WA{6* z_;1suei4vZJ8c2iIRkSw!&{Go553@Le$ACv((iu0AU1JsS^60tzXMll#QzIL6kgNQ zTQl`kL(0kg`_qo6KmE9EOKqgwebK!A9+%hOikrf={`BqDH>PFIX{l#<_-n=Q&Cxju z>W5XgoaOx&A**prZTXLPe|As)y#C*=|J8qv>L{t!F^NAt4$}1LTf5P--Jiale3X9U zLHnm~ntg0ZA#E#L3fJG}I~9_!F2=p{p>&OKz1op!t&1=J`!l)r;_NqznmxWApR4oE z(BS&<+fPov+q3==4`aDaPWz2x7r)QawX5UmQ#0PPus=R$lP~{1$9IiOGuaLXeHSpv zO6>a^^6?~7v)V)PX`iY^X2qPHw}r`igY|`NbI#9c(qMX1$JfCS^@8Qi5(6{OL>7U% z$3KoZ#8uBcojYZx&KHg(xenXl&u3iQ_QBM2 zcY#Tl7(Kg}r{r{bO25%leNlPzavan58(U7usa*PAvNFS5Ho(*TkkNzwlZfDiNR8UUxJnOU7@x@x-f2%PzRAs0%2r z?zWu58sZ&L$*(Tx6Kas|SQcZPaDJ{?LmUf}^*f7>mM@R^4)8T7^2;`u88P12`&wzs zbx~VxPbQ|*Qf?b(+;`lt^iY;z+zz3@NF$lb8#xxto0qcj<$AfEa=oGb>`sSiSK)VU zIdL`QxNu3$$YQ&qzuNd>a?Y`YsXJF$R!^=vHRo(A+v<>aTiW)S z+|rSGbF*{hpJx^K+T;WzlldoKoAt>o@HcN^t5Srz$z2ZDQ-&9Ozc2LI+1V<`)^$(x^TyIJ_e;$_Lv3zha~|M@#^mok;EdUTKP#{c|8nF)Od zpIW zTW)8*d=QXnF`q%VvG-H=<9_uLgTiOK=kQDpNzmclq3Ypnx=`h9mf>IS%zxYND~r}$Y2uJx zz4mCY>vY=_qQ7=$Uy@b4*6q$GHE*|@jhf`G4^7U~ns zzUZCyE-<5en`d!Tp46O2@!eOGr$l_Y|8eW%s13V5rv|L-H2Eu{8^kQO(uaNCyW2tw z7AO3fa4vD{ec9@p!d?ds2c3I#n}7K<<|hF?GDuZuQY!=u&RLUi;$XzjG%&ikeeoq8=!4>_m}jt^I_5>-O|F z6wW@rt!W2$Ro8KQ`)U#Z%NLJ|~-lYuYu5Lj5D_r!bzo$;j6{H-uwDV@$*DpJ!zmwrx^)xRL#Z z)QQ_XKgD01^EEcMIop3qt7zBa|564gV*g&xcG66!6*$?rGClb?gUadKt(Cp`Zy7hr z*I6hubG7h))G#vjX}55y`RuT5j@Iq3u1(QN+!yE0J;*$(?ATYcXC8MpGt682uhgOI z*{X~C_egVeo|9_zRFa+Eow)g>qUx1(H#bWcSFX_ZTevz~Hofn(Ezy>Dh+2tPjKLg*p)P0J6y$XY9ZVfW`l z@sbVAnYwWnOD4}wEqyc1F6jQOMUDF>&h?w??OK1cF=F3z$H{#gC2FVGF|7<`KT);Q znYY^Oq1#23wAR3R5{pgM)_kc?(B{rQxOw4WkD0qrycZ`pU*8() z{xPa*UzWAC`NH$^6SOQ3PL$sfU=@};W%|~hNP(+w1k5*Rz1}4>TO;)BB&IitelND! z<){Z}PnoeMcDh)GV%nxP6`_0&eU;6c*6fJu4K8Tp-n(slL;r6Y}M9SZ+kp?k>c%{xq_d+yjgno)_aX7pU+A=KXbJ>tgv{y zq|wtSN`X>g$0M~GUbT9#1Q}~-g>YXxTO_&S;?v58f0Ly0(i@K(=!njd;=6X-Eq`8` zQcj>$LfOsLi&}kpS|6=?{NeC1lZ{d>OXmGdVYFMfW7gVvGuEDa#}<6D*@Qdncg*pb zFIVnV4A9@TX0EhrrJ!Q8Y3Iz^wqS`%(c#V$>+-5zOk6NyqwwFjC5pjPFXvp#yuNk0 zLGZcoC+yoA=C?=M1)e2b;a$d{mN@IsY^5*vrX62y zdAj-8!)Yl~*S&F<3|R8g?EUW`*@M5tE_!Whxxbe0T*0wpVITEuI@3fleci8mzAAiq zfLV&=;|=W+rXNvyjMsxQwq0aPd}>l0Zk^I0m zGU59+o?FRQKkc{3H^G}<-F`@32|RI3=+l8?*Xrian!Ax-J7ryQlEM+A=ke@aD#26I zs{YLmFxmEO-D|sOUK6<$3$0UjK1iG1(RzIAmHm+it7D8WruK-iteAc^Tjf<;#4f2l z|EjL$*IFp9d^pKr!M^6F0jgR{=dRgUt-|=Rs?UCf)KPY4r;}dELKim{Eh@ZZmpGSc z>ubB;eRr0#e+t=CR*50)Z)z_b=W(uJhQ0ORBU8h$XVon(@#2x z;l(Cd>FLXgm)VGgx#oDfa@}w^XmuraGP9(UtzUuEewigt1t$M&cskc?9~P~@tWC>Cm+bXsa6^PsBp=tw}D!xCjQ<(eS7-G3bzw6 zGUBTkgB9;qs&ClQtXUEMbw}Cm_czL9I>N0p->O8MnP;zEtnk!2eaew%ANzRiLib<2 zC9^I|K2>i~-qf#`Y?esR{QfdPr6I**dC-|%xg9HadS)EY`uytlAtv4amZUYu`%l0A zzV!XdJ$r4}o;GyO@89M9)3-8ub7c0Gc^_{Y`^hq>{L-5pxK-EV%+YFvb1ES&vt_QH zo>(cWYAF49o==YMl1XLL+COZ&UOqqGx_aTft;NR|#6COBGpmQ^?bd{|v77q%IIhNo ziLd%;mv8vF-K_4yw}40NEAG~2E?wcJt-mYx{#2po+vXW{{%m$U_x9_Qw>nPz;_X#G zij6-!>T8zPaxH4MpC%{w{`Bkhm!7apEl(-Z_d0%k>Eq_h6_NMCW;gC>xtVh=<@tl~ zqkq5s*z#%r+@;f|E>Lyd5uB*1GmZ`)e9qMU3$49^2E*# zPy3CZrUyR=xb!Y_%^TCdk@*i!Z<)F5*5mi59v|N1tX=u^;Y5qviQc?)LOU zwpSlUl^uWmE^qhUwK7(V_GO;mF>l+epMekmeNGcFDv?;9lyQE&vD4k0-|-=bpFU?& zO71wpUYK>wS4FWn_s-*OF8_@D1VTg(uHxr9QxPvABfzf3&8oI>Y0=Nn-A}xK&iweU zyjAMbyjMcZu#-=f3+$h1Et^lMDlZ&RQ5X7XN0FlU$y>ubA9Z$ zJ-N5!p1d+~nK0Er)AMumU+ZN{kXXMTKAahOl#?_T}`SFjh zsqlSTzduv8c1C(>Oc?8yZwy=X7i^aJv#lUMW@XV6B-oQ^; z9F~&`df({KH(`E9<)%gjzgw7Xy+milt%?YXwhJB#eGC2G zoUpz!J>$xCGj(_VhKn!OT;J3Aa!CPq@Z2BkSvm~9>}!?YaN)k^yLDb3b7qzv_vw(~ z-SbW5VfzKcjxEO)%TIrX&d+5mJ?jONVL5B#530yg32$G zi}to(Ug?za2 zZdvo*^?T>ejS~}nx}I6tLfP%>^HPI#R-ZQeKZ+E~efEbh{(#2LoOK%&9`e7ExOL{> zlXV>>o&7HIzYgv8dz!6bzV`Zryq^bRH!ofG+A)Bq=-ri13&meMXee2H+U_QJ;qryT zt?q}S!*^$`pUd-Ad{NZ3D-~s);T+7XQmUJY6~QQvc$T z*ir_*G`;ff(+#^i{EIH^T%{S3xA*9Vn4-h3E5F{9yYGFqHGJ`eqR#m}_e##apAaae zJjeUN)5(+VINwD1OnUX!{))#Jo?`8(S-CUnSg)MYI?on%Gw1N4&EIx>UFL5wH~Q7g zPW{%H^cK^y|6fP6p%I-?I}c%vQ6t znO8P^UZR>`>zTgRU+L*)rr-V*5B8s7JQBsEQ=b#n9BCH0ch=2WFVrG-?YzABoWtR& z+RGO+G>xzDYib`X5B`ucd23Je?9fjg^FFUl*M9Z;Fn6V|{=)Z(Q>HX^c`Ug0c+R8S z7UkP^e6-a$+4ac9DPjJDa>g~AI4ewLzrD+w(LbYpe%}2>!p8&Wzxr-X;rUt6^*Aekr{Qz66UWpRc51C*HV;r~XL<23 zGc9?^mn_A-pWRtMOz&+^F4-NaJuR^_RGGXf5KcN zXZJs4`^ASv*O#zQk$<-_aPyZByzCG6RQJ0byE)Hy_daeW{-kYp581r9dv?0$3U-cb z%1b9oEVw<>(y5P4Rcl+B+t)9Nul%-Ne{rqdO0VXvt5RUgk^+m@xj(d;d@ASU)G{wh z-F0fRU8&}|o6`^J=8I>&_HdiN>6umjwH=0&=3dlpv zo$5Wii)V+$wdEF*nDP%zSaIG;kpG;Of!^V&wKXR%&kbs;&DN5zVqN{VQFiL}>sfje zuI}3YaO;PgD)xHME>}(XwY}rWlPueH;(p2UE9P9);J>w_$m`CsM@pe5IA{3#Fn-=Yy zlGj(dxlr`ut-x2=_Y@pwNd`D?=_)DUENkH9PhE|wO)zy;8C+( z^wC%1=(^wRwa=yXuh+}YO78V~JK@s<)tL0|(C!2LADv~=mKMnOF&Go}1&;9^8ZYQNbm>*a(g#b5Bqv_vc>Q-@(zK$5 zeLm7T`!0Mde3dv;H29a-i~rq4H>^!8zC_gLzF3#K?MJV2qRZAtOPZb~t~{V{^3{?H zQ$^$^u$k{Y{=rr92>Ycz?TjSH-01DGqF0`=t=Xg7%GGvn{~2#y-};UF8O!F2ZrFVH ze|e_Et63G5ze_7syg%5-o%0Z=%JIB?Vt=&ghcy4Y_G~}$Ljr%Q9F;p;I%&&PBL?Rs zT)w&&cdJdh$FP0EJNJ7UJCtmr{$CUkAl-<5#{0~<= z4AouS{gz$X_HFa5=SNd)wCauD#{J&AvvqcZ*Td%z%j+%%tIS@qwrBC5&LhsdmD;#{ z%Tz784&`#5ytn+>C$0`>BbV!@TQ;oN9DlU#oXFG%6IaY(@{Ky>wC0iFg`}C&B#$1n za1K7lach>uEu&jP@0Xr9_Saugs8#T>BhTvg{N6VYqVqrfPT+p_Mt| zzl~!JuD8~d{*#?LlX<`PUHSLri3;n(CI@JrWIk&dUt_>?Z?EMtFZecT zKAfI+W^!^`(O=6g95=4{g%n3VZ%$~*-0k|~;syKE#}^|bmnc4H=X@{KZGO?oeW{n& z`*fvKdpJebm?VJLJivY5^^0 zr8uSocF9-so1b(}Rh(w#6uX75sBap__U%vg^3;@gZ$0`{_qXcB!&2wH`hx2`PK(|7 z9hCY%@YKue>jN$JZP>TA>i@#u+t#+Kmv2!JC^da?D)iO_}7ci238 zGW~qQ454=_J{K)z{pRhhQTfbn=i@i4;8E<1mh0;0*U8mx{rTyOkB?u5=Kn8m!hh(V zIl6!9#-FV6I~TdB)2I(S#bE3L-XZD56hdb=@h9gWiRSgPZx}P_33J}(UEkE zn5gu*i9hbe%zOO%#gY=S7E=y@R*C{QPe3u+NXy{mS?xiP7@) z9^KucEeVJJ3%0Y%CZ06pXA1Tf{QuvxPveT*Bxm=_!KE9r{ob!pyo`}Xg<_3m7}Omm#88~5#YiJD;MW@{C~ozPs!c$+_Tb6xGM zbHPo1a(T!7f_hh$eAaASIWhD8oG4DW1)mS>3-e`@{B!hA$>E5(uQ!(e$eH^+X!^{? zosXaCcDiMjZkpubagssJs7vLs$sb(g_bi+IONw=rn&e)#>4{# z39mh5);#e~*z!mA{6U5%2@5NEndEkGoI98yu%W1~_=KZG3d^jdNf%`kKQg4uk$iab zv}E@FC6NuhM^;5XoD%%KFXd9XmQ~eG`K8$WNrIae= zd+&6KK2>X$TVvs~vMxM#a=vHHPl06S(DaQulA4R=ns~36ZW6<}_Lv@9!LBw_zKxSj zA_N`$--K-GP;h)?xST2Y!0C!VE4OsHYHrXwkmG*zQEQ%vchBaNH(!gguj1aC74UTS znowPt(-Et8G`wJ0$~9kX>Mn)GIKk|Y1I&{o|1n2gx^?kUVbG<}?q7a)dAPN!FPvN~ z%DqnBx^lvm$=}`Q+I-mI8GPsW$>wAC>OOf-POAJ8eqw^baUI?2YH>cc7H#Wa;pGPR zXND~}QRTby%YnV6+Hw^oWloaIdS-5EZ)V75x8wLco0*TPA|hD8FVW%Xoz?sImV}lW z1TVh*YR#LMWo0p&{P!?#2~xOfw^-VK&K^6qy9TT;9E)vsxvzU@wC`g3oRo~KjlL%` z_x*f3{bUdWllkoXlQY$}hSYtQW@6u?n{8IVlbeNf8zW%eo!}dZRgNn8D{nsDSEBjh1uM`|~ zX6d)Z6UF7WIc%G6bYl^BpX*5@`Gpsz?R93_uF%NhXHzEb74`Zs^Vgj-*6uuOKgaI( z>7=xhkh?i)mrlCyNS!#fB>026yjT^YW!oV8Z2HG1=Tw)2%a$0QG|5?G*G zk`q*2y`-BbYMxvA{xr7wooiUr*6y}dSgqLHnev1y@!;~s9Npz9Po9~xw?=$eP}AMI z*I6ezSTgYBj>+o}1xr3%d{(@*D8}FFn}FvAV}lr>EB*icfBV%u+{+`%UuP^;W1Ohj zZ?@gKZ9@Xr2a{thr8#wpo{{Cx#YGMjnIz^;ULM^raj(N%-&?;f9x%iqi=~VypOtRP>t#)6s*w=fuuIZ!$$HZ_$HNaa zn+7wNb0qvZy7&QKqR}qaYF@h}4$x*q6S) z?#r9`VUCqQ-?DZresx;wvD#X{In()^IcBW-KIN%S{CsuO44_VD6u9GF$(@)9inr45Mm3+uQHmSy5R0_uV($+g7uL z+-CLY+Ef>j^Z9%?tU9V^r_JD*(X^rTmSxvFW6r!;!fJ2%c-q&N*f&MYVz|Z9 zcg!Vzk-Eg&tDk2xYn)pYv0PHky1IemQ_r68`~M0)u2ZV&@YZgaZkduG*(hAWlQQE& zcooCV%kTH?wLAYIV)M^z_e)W(SD1Lj)*3F8?`vR9V=!q~)%o=CxunqJ2`u*OGhQDs zn(?vKd3}PU>V^3>Ogb|dd2-GlR9dl4?!Sjf`^*fV^y0cx1qbH~`*Qw~_E|VlI$*H} zV;|d##!t@}W(i5za5ozt_;-b88VgJ5YU?%30X3!KJRcuCTx}hYp4qmkO1Mn!LCh=|6(4!Siz~;S5)}-)wj}x`MgTso$6}2J{&sy_4;!A|4!#_O+FHN zXOig#j1cN~1eC9&`6S;m^DZ=YP|SXFHii-)wOa=2k-IbclV!hw8;mO3PwTC6udJ;oEemUCu zXOF*Eg@faJxbDf^W@aF_w$k!3sgy z5vof>4<4OR_E}zpll9=5x6kHZOcs7n@M|ll{zqr)#%21acQ44WlX%B6t-I_$W+Y{jw;Cvg)&5B*DL{LEHV?%&r~c~G5GRqqAc`|Fwgj=#^Y&z`3`SAEu$ zj7GNEt7g4f(qkK_ARKz;(=&0A4$(t11vwYYR%RAp`2XZ)kKG@Z;7X0X=K?Cu&(k`3 zVoG4b)u)a#!Ynh7{V8vXVNl$dyd!Oeg?}`gz^u=YckEs3e#ZY*n;Of$`GwL6%X*5W z=XlhPV*f-Oxr>PhcE>9d@_1iww( z&TcW=^Yno~HQs+N7$>RBc~|*M$l;p{_XEdY3#_gr+DTmwpW}2+()!bP^WutCQ3(Jkvifd9&!}_oUQsZ=;zv-tJ;wqL*NN>Kezi z!o()NGBroD8jIFm&j$&1Z)eq5o)=;EdnGk>%^UN#r`b}|>#m%T{S#up^eo4F%l{uD zEp+Bzl5_Y}aBR0;e)Oq|vt}g|%@kt}Z_NM1`MT_=QG7<^T<*^7Z#Bn1WITO50gThHxtPCt?CrVuTaFPwA8wQEzll+F75``3?)*XURphPnInox8u$ zck|7A*N(5YdT{>h+t0s#EaR(~tW%@@F17b`ouyR4)bEN|U+(@jNwM3DkMrNXaWtiVopDZNQ{vIZ2ALb1 zN|v(T`+jll1E~i~)|i!4pHgw@zI8fDBRzZS>6dF#=B)Q}I}(;%(3fCS9J%J_4GGuz zLgyP4pKUT;I5*bV+fFV1(DXB(!UBJ%y_q6vIJ2j*^2kIr9!r&8m;IW0K}M!)%P)S{ zpZxdavZR8d4?90S-zVyxlD<@V-l9o&InO*Owtm9Kt8rik^QNWmn`Cdvg$6cW>t5$5 z+5SXHGGDGnK9wtVpYQ$1%vmd^Ut_2=Zap(c>PCXM(c>c@H0QT*tge1AUo23Mz0G!~ z@A>v)=T2-;zum!m|9p*>6m$C(i*uZRW*(AxJ$;My-s#Os5eZr)HinEZ7O=SfGh5wL z*=qCj-sj{WqJ7Kf{$C&YO)B`4rrfuGn}7Y-$oFI8zP)QtJt$l}r~gQ!P-9l6l*Ih7 zoj*!;O4L}e3d@G^FWjyEQSb2*U5}j`{{Q0AF|N3}=Kt*KyNV~Rwm#?Mw<<_Y)VirS z`Q_sBuODke^X}hyou_=m$LyPl`TF12+3oywZ6>VCzFu#*#c*G~$-BUg>l&PUbHbl4 zJ9}fzi}T91b;dRucJoZGwy>7HbLH*B)w^DWe|KMQz@7Eo)M{`0S_#F2(Qi&X@Gmuf zd9k^5{`af4a(i7LROobOF#ed4n;x7~6!rCE(N$%$Jd-#+iQGA2zc1V7U2J+PX?=0# zn;X@)dk;@zm-YP@QU3X{;_jDoPTI)%D7GdtHS-3antE2xV-;&z=tti*OC)r)epXbx zKGpDltBJ9=;o05s>A{yP?2Sy_%Pz@uFt)oi&wtZ&J4@|Qn*m3qZJU|&?@McsX6`UN z^L@j!!hYSmi8%+n9|)J(R;1m%_D8~{dd;lW$E&o15~M{oi}^fMdzCO*LOq6m%c4gg zwe)n-j~LweA)obSdNsRtda?YW7jW*!C%yAnsGvMYeb<&_Me84@R;@l{AZOV=W8$tQIZ8+GyncAl z<=Iz*^PlWmwulG6Isdn8zjD2eYCcD`lpML0!@sGPs zvvXAfKDCP6GM7r-;I*)Jby3Ft7kp2prXG6v(b()sa+R3j3AKijd#9GmrJHt%lhc@t$lJ#5aFFd=Chht^4_cb#l8Fi@D|6|r@4 z=PvKuOVRh&1R5nL$yV<@)asdYCv>yYf(1I){4!k{qM4#o)AJ-XnHM>)*v6ULy*4K& z*^JklYt=NepHV z(eu3*7OPc-CA~f^G=FX2Pw`Hdgy}11xFu{X4ZKnKxwg%D+soD0dHSZfGg?l%%69gE zhNY;-gSiWW6cR&K=jg?mJ-^Vj-JO+w zdTK<1e8t;Ur`T8+W=Dr#xZ3<*MN#BOukbxySr>!OxdP&9@7RBbO!s~>g)uw$`hTaz zA~HXH!hhWN(Z020L+zpudnRoy*fP_Kb($rQhV-?wk-rwK`OM3kSh?|V_oQtLvv15h z_@VcRmQ(lDzY?6xoqzb54cn6+=G5hO`5xzl7Zki{6`egR?C`TEv*TjcmIpSk$wG4@NP8`r+(Ny}(G?lUuMc8u4Q zOewaQq&U|JygnX_O5%aZ0*Zp{)mK4H0D-1_#>a}JM1e7~(Sk2LumG9f%iEAL2A zTDQ3l$$;K;jFrKH@#hE%y4PjaO`Q1->Z~to7pO!9s4FS1s5^0 zR7}}F*OY5}?T5uHqUxdzv=r^5j|6TJ-jJ;7n6N>rXdAah-ls_A)EaY zY|ees-yA8Ill<|M{{7{Ow_b@Je!EBFqw?liKVB*Y^0h6fPIT(#PdRC(tlTbh*WqjK zLGx7vFNYZFw$rrSf;9v@`jdQ#gbVB|q`oxV5m-n$?_3civgfiK(_i zd;jh`Ib+G{85OM3v)4uiM+qOuO89j)|69NNL7svr6X#6d525S6zUy8SfA-^wLeXy> zQX&Pt*FUejE%0Av=`CHk6U=i@HCtzIyLawEqu&y#-Angdr-gg-J~iBcjxOu zd!M)V+`8h)7u9OEc7wBG!K$NWj7PlpF|-{l<$HbV?Ztz<>a*r76)3)P#`SURBbz-+ zJEgK0*Jj>-qrm^+YnDRmU88NK9KJUFh2_?q+yZL(=YyLwFFrBOd?vf7&3c)`0l{e* zu_cn7OIH+_Dn@@25ed8ArMK>sM4|JZjDLGn_f#&|9;oT%(m~&1;@lg*1b-@T=1r{w&r{}qnJ$F4(0XC zsV|%SOYePtxF`HD@7}ipQ`0JpW0Ll4-!5BriHGxb2!COu{LN?aSGSAbZTJ$AE+I63 z>AJbCK1JV;xikf*KD#4*X0AtpH}Ag!_Ioowa+%1))vy(F{|npwoYCC1SDd}^x+sU` zYUlds#P9dC%bzH~F?y|j*nW53U-`}QXjId5N)Hkk2i7DLX@wbENp z3(b7o!W&_}Ra~vSbjQ*@>0?o^X03`~;i<4`+dc2<8@X+E4TrZMzQj9^siyJS`p{$N zXPYFxRy)|2!(Dko@VQfbbmEs4_07kc%U75f&I`9v7M{$=-(YVXbueMmLB`FW^6lE^ zTL1A?+%;q8H;ID_zt!aM%l%N?vzO&l(P`S>%wlo;NXr{cHf!YX2DmYYWm&t@0pai#qI06vpxEwE?@^J9?>GXqY+HL6WULnS8CcP z@lJGe&6Gl8!c8Z%ulu#u~mR z=9-wK&4zEc@{3naS8Ng6xc2>pQo93!j0bMqQt7nrj93@Fn<-{lbN3~4ThoZ6GP56w z&d+&ctnQ*c{fwl`iX4s1-=0rrFDVI&TeoY~9j@29(#`vYuTLrb-dnfDG57hdfGWe* zXJTq9M%BR@O-kzvCFAPd_txrN64-NppKZ*cnwU-6-}|NssARp9e(J)xZflS(m&l5V zzuXcJ?~?uPmN%*ySE8(XZRUyxb!$KU@btSri`8|_RL{qs(y9&2j_9cv@c&JeyEWbZ z@RoBgLvK#EGs*k%D*>b9sU_Q$#F6#jn>e0bih zHz49ryi8h5{H4FIOE~A7*lVZG;5Voai_<@SbYehG4FBxV9n(|ScW1w~(K>d`-$^y& z&7Ui2uPU__u2nADtvi7u?(>eDrGlna{0~pQTeMbV*CmD=--@8UE!ivcq9R0}bo+5E zJeqyQms9Wg)2+wcHc#Nmp8bIJnDN!yeLp&EwnRT=-S_{f9kZ2Cw&T;LzxxiAJ!>-E zSu;1`Xw~<1ljOg1Z@Xx8Xy&ehkG2I1?w$Lqp74M1?W)w7>w>RUD%G+-DmuQao+bM2 zy>zB;&8@HJDDUbp<#(Q7a%EfPS;>m%?IMp3^-DV4WjnV1^=nbS=Wl+CZ~NQ+N^+Y2 ztA-mpK2FT?%saV%^Ck0zAC(@3tZMl@!}9HK_9E3Tzx$k5OI%PsSZ$R0 zzgyvA;Ed4K53C;EZ@apB&fJO_$M>94Pye#csarku+$m0zSG5Te3(p^L+NFG$L%>1s zhDGJxStniRK2(ZZ7W>xs$ouQI>$@r^2(IOo-T3)Sma?kdPv5xs^S+vUBWFqeEfrq1 zc<*JgYvE_bpL@kVmpUzvS}gXB zS8Z0*-W%U-a>Z-b?q2GsZ60hWr{QXP{P#P71#4F3=9+P7yso*@lU0yiu6w+q;hs^6 z;*B{PnadPDzhAX)O{U?s=(LNqeL=DBcc(;3ec0pKAY0mhBjNx17ttJ%1<5jhBR-2A z6X)gbzrE1X_xQ=MBc~g}e4}2dDc)%{{BUGyVYXA=jk$uS->={|nI2=Ac*iuoCj9;; z#!Ys=tjbpPuUWb91^bty*4zI+j;ihX{KMGiaLu#Jr<(Yk4>&F??A|{&?S=X}3&!r6 z_DwJOJoDGTik`M2uB1JOYdYWlQhm{FpT6k!_`gp2enZb&>QAPou@k%Q)z8NH({>75 zMeIKL`+(1f8Mp5+8qe0BC2ZOKGTbmatg^wa_{V9rio!mH-=_uqpMQP3`qvJP_=NnI z6Gg-B+*9A07&`O9w$?qF=gQP{#SYJA&$`K`B=CBw`-<1z&gWL2stCQ`r)_`CRCD`h zp6?A-KJAPLE(PX2JUC0-?DKu?;!{sG$8(oGsYAfosFmS?PP)UhnqqHJ!QP!@7;0lcp_>(}_KP``li$c~TiY z-P~?+j~00!^zvBpb+w>Ps@v8%dM$Q)+8q{N-&m}basAXyT}RPBsoL9h)B2+WVtv#R2h^`=9*WWMyyu^P~_Rwsu|V%YJu3Db-Z(9uWi4xG`{os`lFj(h_my= z-jB+B@@J0?-(tbVUAsSBWJ!Li0eDdpd8 z!NPX^ndpM|Es5m%m2TZKX2deMcbu! z{`~f8xAx5cil1hjwZC(~;H6nm*~O@xJ1dJ+KUb_byLa19a{JE8%CASm;@-O~U;D)@ zN3{Cghnpu9LJt@QY29Ys`Ikq|df}Wex6?CQjz2H|qGR(Xzq)$w<$I-0`TO^=?U-vC zlpp_mt!29y^FKy>IAj=N#14x}2&1 z_}R0~t7q^3oAlfJm(a0Y8~zH;Un?%S?E}XGqbTp*$=!Y}43k&Coo#aDko|Uj4vE~o zpKc##SZg@<@;Zr6(;Ujp+*o3No{N%CIR3c9e&h4?97XDT3U<_1Y*S)lnzykvPJPFo z&fDQ{E|>4v$7W;YBHm+mXypX=*)MdPngp_xt5@`>?`T*3`6*|nO;mJqL-t}T#{TWs zw@5E|Ro!NKV>j0ae$DQgohotxJPNi4EOmU|S(Gg+xUpbO?t#X|#xfVDRXm!!;o_V+ zNukAmIXb0QoZY~6W6EKx11y_2DD^XDm)?^Qm^*vDW0Y8<+mk{uPjBn1?_IJFy?eB- z;6%%>Wx{SB=T1?0e9Lhs6Z8EgmQB|*svRsDT=MH1G^Yq$w1{aDV95EJs+7y2>JrJ( z^kw0ECn-DD#G8!wd27~8J#YM4uR$o$SpAGAt3t6z&E?C{dG*cfn;Bks>ugM4a$=qO z$-XVKFLfIIeda00?oufECe?Y`rv{EI4C{J$;}-Jo_fuZPv*Mq_(oFRhZ>bYMdS5TP zesB@nrd6AxT6>+ET<0tNu09gcpzq_I*?7l|)hj!^rr0^+n$@I5o9DXrb|cw(Zm z+I*$698<}5X}d@F1OFa-;m9SoMAu?H*Og7Y_1!`FIR_a%Jaetrmn^KBF)49HU1zhe z`rbT&hLm@?Qj8yR>sx~vmKZL+nALZTVb3$>2QFo5kJe>a*SnvNTIj?5bzQKQ$6fAM z&N1d%7Z_HxmTs^+$GKHg>_K$CM9-F!od*}JEsU%@GbP4+-+Ae&GCgxk7BWBOwEoJl zHvP(UD=zVmi{tOb{N+1ao_@0By!4-DXJhw1SXL#dx^v3qbLGOn7KlJdiyCv^$Q&K7F8-|uZJC-1rFp!$U>-iwUw zCoMxizqyBWO_KMIKc8MCIOq712#X7@KT1jj z^WGnDEs&_0rVw|^xj@!s&C{T2+ZO-dj9uM7m)f>49sB)3fQ#YX1?LqJU(eaLB>lDi zEYKBdufo5OA;+=zB!icJTui^?h1Dr`y_JShRmY}mk2DZ{I=%X$UdXKv-y(w_%slt| zh0>z4=7su;&NBX3qj_t4_NPhHR&7pr(pCC@hiv%o%HsalC%1($8svL1?31}(f9z}3 z{*NmDuM^^;FH6ckV~Air{@}ZXdH>_j+ZkqQxrFO|NV}?AF=LI`C;PbgS>{X!q_r2W zkW5k)abrKVFNopH@`%ve5?7AwJM`?lJ1bwuS-GB_)yB~eAM~ABlWVB2`!%CxPp;jy zLgz~Y%@-#`&d5Bl`QyjX)Va5rFQxcj=W$vSC@c3~T>2j;f9sr5vo*30vhQauC(6a2`b)mIsf-I|spg+`c*pr>KJo7h9OEv!LOnfEN>%Rk-t?AY%? z?dJ~9?-I3(Eo4_K^Exui_WB*i_xnGIx=E$fpHSL<&-+$mb7^@d`@UD-egB>m;yFKy zd7sSJ=iKWO7-z5B>{VY-b@P?qv8?ypRg#N@*2mf%o%$=OE0Rh1$YbLz`LmeyiaJg^ z?s+4r7yt4D%i6S$FP;i-;W<*hF+Jz6wa0nBXFa;rnc2st?P@U84y@peE;Ib`J11zi zn0CtQBE8PD=T*Gd&Hlou`=-Qs`-Ld&S7Ndom5TC$dri(u?i5$F*4AQ*{caUq?~y6N z_E5G$R`5a)*SC}DvXN(Z@n7Dn@$=1{Q(UTd)DnJLa@0nymD(FDEgkbb(KG6GTh{L0 zt9H+l;u2iGZG6Ay@R_3@Hq#nj{Vey(?~-CXFjd(OR5uWHTy znfG2B7Jp=4mCb%rvf+92)>kPK@5F6^;ui*IoTL0vUq=R#LBC>l-Ynb-#k1781N9z9rtB1jB%clrLo_O|8eF6O+F*H2{SzPVxxPrGToNT}r&Pf%WaOzPbu<-W;kHtUMR z4%xZH+xp&Nnlv+eo%e+Ujr<`o`^2|2abAc$a{knMJI`|2EgOX|Exg~ZUN-*?v%L5I z)G4Y~7iX{kAlbC8v99%||KsMVx+TZ>PJhjw!0)(R_)_SLD^cl3LKd8TP|Or{vUQ!Y z;es9!d0XGm-%i?B?@VBIIQA=Hms(n@-}Wt4%lxNX@7dt>t7Nr~?+yOxP8UkmIjy{Z zsXvY>+YfCger?@8tyyCC1L>xKK!33uMP-+l z%q1oB-8I+i-hF;hd%fL~Ssn?xmdQU3+8QMW_?OsowD?-x4iVpws`=?f@XE--ZH5Z- z{=P`h;a`7guFB)3xz2h&-YsuZ4?SrrsMCG-!dupfpMN#okzt>6>$l~u2&Nj3_G7i- zHD6T~H6xyDimEpmDy3R|Fg0-97wqjkE2s79zOox%rrYKxe6e_O<=H&uW#La2K4EHp z@NrUrT(6;@>F#xFG^m|er!V)!)HLZG_A;(KAEtd5TzrEk&G4bWsO~+U9o0uv z`e!fuqq8KWI8E#RKa&Lp?ol?6wZ2~c@auIgvy@iq$$;>rt*y0u98K<+E1hI0O8e|=VHbHCOPF#WNBjXCsx+onwCtSbra=Y;pY zf6uTl;v#R8`RNDZ|J&2}_hp>B~*!Xg5dD*iq)`_TJ&nbG-({SE7b zrn7Rq@z1Dqk`Vlzu=JZwjg#H!3(KB}Zfy{_m?y29#TAfx@qgR*iWz238o!PRT#}pS zE4UTyMadGTbjxij3=Y>H1m$<-%k{ZrHnN6A-`2XAwx`Q% z%Yjc%9=xheXl3%f6!3U@J1h-wBeA{`-4nE5jlNK&%SNYzN-}Gf7gZ{Rg zp{-IKCw|t>ck1I>V`l5M;f2nT2ZDF`4^KR?Kj!2D2eA!j1eCgWR8}sPHR~%pJX<_` z{`vW{cce{p40xcC*K;V$>g5HM%UxSn&0H+XA@{@nN&2@_t6JsXBsQMSt>`)uxj6a^ z*KNitKOd)XY+c7Wm8aHgqRxztdkZxhnRZ5pukrrL_;KOnMUQ6tPr9{rue@Q`q>={- zjcR{WW?nwvu`A;VkD9ifb4b(uYLVaS`)hS=%$^i>ose2E>2}WZlUx14q{2$zQbXBsmqy2C z!Gl}bRlep=<8k9X7+{rTHFp`q{fKX_;V-r`yGQpVVbM;|^!^(4;SQ1KlFs&r(!!5- zMI2ryuM%gl^6q_uCz|_?1zipJu9CCS)qC+Rj!A-EciA1cgrD74b|cU5R@7;m^KbNO zjJJK8JN3rX4L_b;nbsSboiyJqCR<(kn$OPap1rTma!DRnUh~`Jm;3JZ8DBpBc>BNi z-~YnJ_7jg?dNKKIm{Jl~A@eFR;r5Kp8(qXhT>n4&q2MohUGqY_)FRjW-}QIQp0FoP zGqtv~%EVukC9GF{;qS=Q340bAKQI2|rc@Bv9V)X-&RJu2<+}4)j;m}FLf1{38j-GU z&S;v)!){e=*0k_YRjQ9#P!WT*)vAYQHTTV9KAl{m)g(5vu+F=LA)Hm`-tFuU4_OKV z{nV>}_!Ta*9p_wUTBVrBfDaXQkNNugkESJ{z+)1|fs ztyfrC;>r@BkhDhqyHx(FqrF^Q-P;{?lh)^4usS?jb!$XkriSV9MP+j?C;z^`Msz+8 z*Gmq0A*D@wU1uNm+3hmRxbW;J+y%dq=wZ+r#Zi>W3d5_IXnF?56YVtX15O9g?iJ z6DLp16Jt0y+qhjeQXpxCW!Hu0@=;q(mOb&CP_QyDt5AEg#6&Hl?zJ|)$8+ph@?0Lu z##I$o7l|kQ)j3dD^Dc>Zb@7HrEk7LBW|qz=+m~4S?)j74^>-P?YjwYvzTuM-lSwJp zQTuEka=3V1#kAc=Hy2Gh`)KvnwPL&McvH_W$coT?^S)%wRi!iY(zkwl^nFEdRb z)ujh(l4s|r&(Kx6u{rGlFg| z;0%145X!Fa{Di$zQ*n{<8wGjOM|;iesyP1k9KV0UP~ZjU<;_j)c>S=K7X&+zhw(J!S~lh3mQYVG{* zRXVwn;m# zaqLoItWzhW+Qg~fV`MKqsytosxnS8J!`Ka?3pS_j7P)kRcf%{Dh^DehRobSn`FyMo zJYSuB&EV0)2Ia1jx#t@uU+}q-=*p=*ebM|+B?-zo#m0hr6s|EQO4f&7Tiv+7HCT*` z<@0oXciyW}>I~MKx}R6`)vr!oS|MUIUp*x%aW>26AI-Io3vbk=Tnc>ZbwVb)P<*1N ztX+%2-^REVHyn%K_!LC`Ez0Wj*6Tc5FlC+CywV@Pb3VHGmw$Tl>1cjG$Fc}sH%>p@ z=&Y)ifAdX)EjAV`@>;`R$Nn<(%Y5bq2LHD${c>Z8sEMgWs;;BvB(buCp0}4w3!D4x zmrK&bwbvf7|K28^b5Q<(t={C-DP|>a1ecd~9uzFRVW{{)=jyBYYa)DS$~Z+=?g%?=a&DAF*7Y}^wkeJUF>4lbLgY6u$8dl>N>S) zr*9Z?ZrmqQTg6lSz0~HnP}1Sj8Kxh$FIl4HkmddErCtJ~N9>Z_84J}pOiUwp$XR#g zX9t`5&c2qp-&x{%g7w^P)gu0e7ji$oNi4Q!D2zyZ{;p`(@hkJrek#gk=5C8V|LZDO zujKyElF9LH^X2y5%APEGuYRhpZs7Aog>MJ$H7>k-itnUAXXGM-ZL>`!jyD!)a-e=`Pu*MJQ`fI- zmr8T9KX)|ZhGa$u&&x1N4$jq&Hb0#5YU#u8Pj%Psol&Q3(jK<(_Y#rSg_{+wdkUTl z+30s`ZTGR@KF-*j4Vr(~mOfTm|7@2mIqP?{@NeSkW3fp5JoAc?_6f}%dtu+3ne!Zvw6e;U zzK`m>r}J1YfAjN;7q;N8@^RKvuoz>F_gDf zf0~l)#<*}vPJDS(@^*n>>DPU?-_8=b$|c&U#i&tq%~tH!Kac8n$3sAH*9|RzH~C_W5&%SM1~^M>oWLwki*3aj@dU(O4j3cL6 zETkrj=M*fKFn>Qex-Y8s+poFbnEy?ca5vs`;!$p4zV|}GW%D?E&f80EEiZi>B>n1c zQ)iBY)QbNRmQ~D_(*K%1r}?dYwpO!Y<3g{kC7a!(^V6lScD}mN?r%}dyFToDg6D^S zr`LEJ1fPiwZ&x-rw|z$Hp~HV_lf*u(*wGy&A0l-oU4PEu(yd=`3(cSHKahy3hwgX4?+Kh`?=UFM%*;S+Bd z>BD_dR#!#lcMb)jZ1fjiJtx18~*b4c|`WT zP3O#d-Bo?*&xBdOOY?73>)oDnqSdyQ<51F9wiTaeM>;Cz{IXJ8!rPi)5u-1(<=&Ko z_hVGft@qo$_QUyQGB=AE^;*PsraV}}vtdaA$Nx`!N*@ky>1#ajEd06U9pl4=(;3$< zY`xjk>5{^6ro^#*r$o1Qquj%76XvVG%*`-$`4?*BV~nDWU-`CzEgG zsTdX9ZTu<0e`I2sLVa(8Zhe*XRX=2tp-Ou|#!X8n*!xsv_4cgppt zrw;QhV%q!D?xFgR$O*5sms`lrxc)8o;1W)uy_=LS)S7I#EU>|4Y1$N~e!*qiWeQpH z*t}(1=YG{nKlS;U$N!8imoze&o-8z}KGA(B$b3`Vsu-O&s}CGH8CtT|B+9$=!K$TZ z)sy0^-iw7Q)u}(J5t9&jQKOw%ksu~f8Tg3*(zz&)cdNEE_b`8Pd|CEA%HgOZ?-|~C z+}BTUsrt-U{I-q5Juu6c+2&28nfFXKW5z49zu88s)p;8V7cJ&;)l1MTKG18SWsqaf zqV^#CIwOlQ&&y@^o*rMhHe;Jy(v~F`W47JfaP@hR;N%*|WvPHO_;?fYZfa~jrvPWtk#)OH$M&wSJKIj+Zl_1!-% zDeRlO`qc-~-#dt@0*PiBb;nb|vOg7WR2Jj+pcO_pjf# z%ckOE@7+CnEgSaxTkZLM`d~l1jmfPg_HnU!|9*-{W$pVo+5FIovoB{idonP5?_2W!>4ykz(@3@L z;tRExZ@F7kvszvG>bLFQ&9~E<7yo=~bLjZz25Gy(_};>(U%mbJEIy``6=bVD_qlmB zaMtvoDYD_6>_Kj23C(BtWKLgd$ghv>|M2mRfY(6@SIc9Qm)@VO!xp(u_LvHzkC5AR z<{xPei1A;`gPG?YUEDWAjYd_*7JlE-&-6A8)I36jiex_||AQ{x<({ElPFm?K-b7F%ok& z2zQ)F(ifW2v+}K^O{RU}vrh&y*mcjxMyC~BzxDgAs!u$?u->+|pRN z=jsC63%w2X6K>n*bAG)t`N5&{!exyU6Zzsky#23xMOj_@qK94PQU{yHX7|<&+1r}0 zw0yQP|5t7F!CwB@!UOT5H$*ii&6M!@BEr$MVafKjj8++rJ4UzS&!ToQiug}^)?skx#b zzGcGL~l^{H!vd7ns$X^+VbUh&)S9iQ=~>TM1)P&~Cw!#_2}d!CR%YPHO~sVUde ztxG@nv)aF#u)j@F>3qPyhD%%Oo0u#T4T_B&vk%DGRq8&n*&NCCMp44~$_%9wx1XA_ zuIgrSb}0L8xi9_R$D6w@T!_BJk`NvgvP(>C_Vn_#d-cm-&1zZMWU2F^Kxgi}gjn4a z$B+;Dg;yAImT~8teiB_gv24?wv&EH>7A#+X$apyDyM-lkmKZX6r1M_Z%a}2>p<-F~ z!{;xpb6>P)Te7`fczIDp$V(qvcW&<1Ynvy&+4eoFuYX&4cIvXiuL3jNP0ZOC4(8X3 z-+X=}N7UiaUFQpto1G^gNVN6b{MSKBeeuDs%DT+A#BG+=EZ=a+`RD7Vz#EH;wnbE) z=X2b%At=LS+XaSeQC`1xxhbCXb^h$k%;mAr-uUDN`7a08TxKjL)TQ+k`K|I~FE?-}EqF_^q zeP?SR>tFXdJLWvlcfCGwL7CI*LmE|a4_=!@hgKOBvZW=;_3TnqmI*oDzo%3F(W_94 z&MRsfNdd0=6>?Y1y(l;>tgnl;g0ZgVSm*Z42VLb${nQ*=tM=9W{QOA&QeimD#;q55 zA9L*uh_pMlgF$=gxww7v!e3n2_9gMz_596Wq|W&9J`!2GrZFkcsdwhKg++_*aXnSA z;)u*XA;7szNVI2$K&rUGL4*0%TaSt>E@;rwJXrjo`%;32Yo(u0=Zf@Ayz67WovK|a z6B05%S>Nwf-h-)2(ky-cJIBn~JDvCTfx-(9I(S-Eec4jd?{hFA$bv&{zn#V3_V?TV z_pM%1eoFclv#I5w#m8P}*@$@Go7fq!dy(+^-00H+vFon?e^cwh8(SH8peR4{owQl( zzD5<7iE*L_rb*=cbUq64)jWD%pzC$Ug1#kP{_AfC@9hkBy={@b=uxFq#mlBChL5zE zRycpzyzR3S@18>&m>va+t!S21mz}-$#cLaz&`M?Bwk0Xe=B$(E$;fGcQEGi*(W0v^ zz$CtW+Ko3woWJs3srcycVa{op`MbKM+*8tfi!)Ed41L|>4=M!Lw;uZ7zcW=}DZ~8( zM|rrpU4Ga3C#><(R{zSJZL_B*H}vJxiSLuvxZ5n3R9$&t#SQP{20NxTq}t17vFl`U4w&Kuau`3K$ReaL08!w-Xkkc5WGG zLMKkCY|gjcab?r2J5=jqzRjl3-OYeKaID(?rb zzuviMOKC#yD^V69(X*dr#X40Er0$#UI<0D&uF(Bgm*(y=HppHP`6hX3nzsF$HN2js zQX1YH=d&%!eEuXeLGIbxM$kiRml;AqcvGZh8 z@|;qgjyR+Ddpp-oy*uM%^vjZ-A2Y*c_8#S#V_P8w5&7K>H3ghrCU$V~3_c`Yxa|^_^a9ILFq|4KCje zvH}(__-n~`m|0%xVi3b7uHTNUc_+($P}N*)rD}J1wwTErXOCqrTRFd%I`DRc?a6ZN zJy6Sj&Ya2qt6AM=>z-e-%j5ug1>&Rt1_`MSc^ zKn|uYC%3;abyQeWsqcTW^R=AlyS0nfs#x|Gtz0|*W@l#+|0d%jaqpN93$Sh2=^dQ- z>D;P$QbA`{g@ybH`aLzhVSQov^4YhV7#r7rD=?W8Yjei_(4^B|?H|<2bR#VTPQCfP zM9Kb`pjLc)=){SuvSjvHerUKcDN6s+jgq*=#C7v@FI{z*zV2=M%=pNLrr^~})%?y* zTefADS>x*sN=M#Et@*m_L!I8K^qkzDHRaC=PTzgrVb!xlFtA-tv%#eMsL&fJS^QjX#8o767IcT~?8p2hN=)vR#lLQkf&oG!KdZC@sD zSNOZwg1tIlRZmRYMC^ZvLgPEj$083hrq8{QGxZ*`(xQ9)+>a->_Let%vze6OQ=a_c z+`AjTe>R2feSO0={gER^CS{wb}WWJQmqvdheQk^=q!KEgRRZG24+Z zWK_AqX6usbrsE1Z+Aq%kW9Yk4bo0{YIXZ{c7EGJ_q$n-UsW+@F5_$Gznyi(?AUr}xaUj8NCUk|--jlSc>IluC$_iB!-B4%$Y+XRhodu6N%(%!yt zr{?xL?UU!5vVNbN%ehWewzW#w`pFs}`{3L?@@1`&r*`o%%uJWfb8pF&%j@pyUUGED z(~ALmMqhV)oSrs$_53{y=Hg%0tf=EsdzrX5v6yY!BU6@@4{S6i$b31QIPv9F*$WN| z{u|Qy?I*oo5$*7H;UANNW4qbJOwFb)N)x*^_u=K4Vl`~*8_MpT+BcFE%i1FJuU@>@ba|a07q?l<6oU=(`Dcq3gnY?d9(a7OFVBaW>r0hW zn3ud)jh2osQF$e^!F4;!+#Rmrde=itUw)dh{e{f?HL2x08XF(D{93+p`V^C{yw=G=uBGA?Yqyg;4n8NYAOBs&B7xZ)0n&4C5!DvNI3c{1lq<<>oZ zcb${xwu|mtGIv>(@Ez`2VKqj(b(&F2{>g68;}7IosQGnTy>v`ciHEXtCv)u7GtXWL zWF?qyywvzI>AJxE?De(I{idI+-(Qh=ih4D zLhrUQg>Ejrb8@57x|f?T{0l!2tK@Kd>zvcEM`CABsO)uXlTwsQ_0cY$#kc10jM5Il z>$|h8w?%SZySulyT0!RETrn{&pEqx{st&I7T>Ac@a{5{ZH9=WIWdCUQpPZu^_dZ~2JD0bq-Vyzn@(fGZ$lH z+F`4cJKPMzza>mzKEZTfCv}Cz`onoCn=^G4Rc3MZN;BNkN}9da?t^?-Nn%z`riEwc*FXMJlKqUo-_M85d_7b5o^8LiR#wn;n- z+LWTVZ_eqfCo^@-V&^gzS9q{q6T4#leD3L^p=ZDN+;ZFAV?O8N9jlxbQzzWhys~nN z+4~FMKj}CgtcbP$%)t6Ozv0rR*%C;G&x*3BF*^=Khz4<-!)#G;UmII&bo)+wPI&?hd z(5>Tz^QSHR*;0FJVvu3N)K7fIa(YvjUS1fanBwly8qLd?eQ@zx`Tw6^9xml*S*1{I z8q}##{(Z5F)W5U0Y_%_5dKsXql+vyxxX?PNlOxhDX~(_fN1GQ|AIKJn@q17wmU8^% z9*wCFSF`hMj}1&YsYXb>H|nH3Enl*=A$Zf?=aNZljJ0k`a6guOxv5~&#CV=NJWHS7z4NfIILEP0=JVs? z_wm!*r>Yz+*}B^7{DVagLRPHcv5qc2#??Qyshm6LS8@t(p5@ZwhjF5*J4|A)ddFUD zxfSJAvfA80%fl_fHRAn&bo~qOo*e3X?zu$6>eLF4hOO_GESRP??QG~%?v@*g=@Npo zwz9S`PxbwMyudiRp;T8mV(!(-BaE^#(?WNju}}T?et&UA`a{@BJA+o~O{vUSBqb0eF?C#6Or+eJ>DR!K`+w<+;Nh4Sv$Z?A3}IZl`vx9jI7 zn_E_U#ahFcUHACbleVvuJs>%QL#i4RP-`?MK>Gq5cNuJXEt}EWgy|Gx@veQoO zPv4ilJ=?iT@~0k1>3XKk&dM1bsCI*EMt1M6N_(asH_lAxR*9M})EZp0@!OutXzvN7 zRdZ(X-f(I(*%2p~AKkz9%k+&0qhsG?%&7EV|44G;#fKHPXWg8(Fc=8jc^p6Q&6#Qg zGeymd@3)E9aDJ`Z?b5LQ$=8b$UijZUDe_rz;$@cgN1Z}q&b-K&dGu&#by2u-nu<@u zvQ3{SPrkGG$a8j?i7!eX$(&g8;I{em^=vE&mlzU5d+L5a<(_&XnQvCfuOgOdD|BJ{`Koy8bkGz3kf$>AJ_jieUg$;I=9D1Q*z#_{(8nA$vYk^8`^$O z*;vfBWXi1rR)(C@{f@=#$v~uQ%w~$W>Ki zW~}m=!MKLg>(9fdSHE8U>CvoGYqQ&N(!MsS6wmL6J(^XPM6+rB_$;MT!BCNso6olM zi}@7=&YOlOgZSctE$=9v46^0S<=*7HsbA85g~|6u`4lCCa@{lEarn+ z(f~-)5W$maJdM;q+99X}t#T@$L5e_t$R!^Y+`H$4`H+-rOztZJEt{gVi3- zrZBiQzRiC4eTo+2g5VF&?=hsk%-1*|u*sP*?L&bvh%x8Dn^3`B%ySOhT&dDw z+RBUllRWnQ!R-qLaohIYNL{(3YOc!i-{BwUpKtaS7va9TQs}kFpQ)_53-x$Ev{ZhY z?ZlsW@xtdBd((GJS3C3-&GEPR8#&cz*gwDL7*%ci- zbIa$dV-c~_TrTY1*da2d)bHZ-a!U?%b;Xc{%;kUHT`Q74w<=~!Fwd?1hCB~q9{<>I z&Ue#Fmd@2B>o*DfjN?l1cl`0?LSp7t-O?wwf6SeFck`JqX7Z~_tP30~&Lotrm#$bK zbw9A`{;pq=5lf#i`_EF!O=+FHDEasEm;b69xzAna5?FmK`2NFV^Un3&+M+e5$RN}| zTldplhOXc0aVJDdufO@{IWZ&X{RY$HyL^Jucg6(W-^ul`I!Nf&wsI}&D~WR&U&%2Y zS1h=<=AcXg*PdOwLN9zOseJxk{n)Pn_tR$f6UBOGOFz5hzvpPg^yN0QyvrZeC~mwK znPC%@JEJ3g;Yaf~k0M_@T{7e5y?HSYBwrXlZ4%m}_rf*f&)fNlUz@yq&Ut%%eW5g` zv~JgN**vBogQQmTIZJuBJ^ohTnf~A`Z>PqGZ{f=`&fot3uj23F)7P(W&tGRBcWiP? zLfDz5F>A!OsqTOIsQr)mcH77xmgV*?4oquX?LKXFnfj*PWA5XlG8W1o=KS2zd}hI; zYh6umTrI9yC|LL(f2H|WaA(VuMGI2g=Vj@%NuQrp)g!TXt;v$b2d5fk|2WhWn8wSz zMf%-G_8%R3&y6-E_wAPx%v-X2_cZ>nly%=1o~W>xy7OU|&&j^96tC(9O2M0)+qmVX zTw}c{cvMOAs@uuF2$@eW?=R_Au2|jZhr|KmS1ve@4_D_(_tY~?2BKhN#cL%g|y~=#1hS}uBzhK(Q)pYf$RlW9{ z1`fB7)t^syv-zE|j^RJld9`&$g^xfpf2Vyslk`Xghce z9kkiS)Y8C+D>W|##5OW9!!p_qI!Bb?X#3mP?Ebjzh3B5Htv~X6?R&9X%J=lU5*O$; zUCF(r_EAhDKz!ZWttpnfEaFafHvaix=lp4o@e{@Sr{A3te5K~_sq2wq`{9Q%^CW}n z?{s>;WBI%N&;QHe;{EmS%g^WQ2fg-t_pjjNaqh@}3SRT?+Q%%OU9{W6b@`l|vG%(s zEZrY&o&R@<>z&yByMC5PI_8A{`>FsY3;RNMO^Oe-y2f5DeTwZ z{^{XKo8pcre7_$Xx3a-r!?)J3ML2H9U){go?q$fY`nKI<-pm*2GcU~c*t;@x(O1dR zYi<^z-|~a_h4k0X7zi_iqlzY6d-P*bTfB%}Vzl0}vLt1(3 z))g-{e3M@DSNw`+mU_!#zyA7srS!-dNmHB}b60-VRU70t6Ny}cuZYh3##5CPk@z#&I&g`-} zUqdIG&M0oLHNWUF*?wZD?kP^u-&?ek9jd>cO=C3;Jj=CCxO`8S*_RWaX56i=?O7x6 zx>TC|=gO16Ql}Y6n=GGD=lxvmwa8ZsmmOawA1+|dJCzYtwo5>2SN!ti)GbD~c}_ix z4=2`my?Jxe)vh_y!(Pr>^L*-qzps8hDu1wR!)|-sTQB1E3LFkSVfxZ@ROr#W ztF6Z*7sVH!KHYu(+?7bL#?5u?T@F*vRIQ#9`?$I0efoA$6IRs~?djX)qJ8D8bm!?g zoUXib?^*sn){hs&Caj&uuv0TbaMK}^B0Q$~c% zpWX(Mg9{dzR{c4ikeKqkDeTsoC6>Hx1*hg5Pr9qs4ImhOk7b~mugJ*5d(N{D6M=~Bvo+Kf-j6s{ba{0R??l>9CQ^&G? zZkYB}B|2boYND7^LyVur8^v#$`R1(A3|DJhy#wO--?mONV7ielp4713Z8r1HL)X1e z%bsB_yQ-;UyoC8f@kajB?_{_03$_1M7hk3Pt+8)WXo}o|C5JoNoFw0{o=f~NZ3#z~ zL|dj(me=XnD+W%SGusc;Jd6uFq-D)|_+|5hgj3ZQ(+$;Lta?#BYlimH$c{}3=hpma zUCPjVV|fUNvvk7W_7rA0ErnB6$1H3e#VvxkUU1qzR*l@d^eJB$gU)3WwLKzT8~nB~ zMYq3OAzHw->x->*$>~Pf39exdD^ge|DZUQMGnEhXpVU52UOjP3QlEj8(jAtEQ@ZEb z$n-mWu|4`Wd~>gilmw4qzt&7M~CN3;=j8^ zgY#m=`DLk`wti;1A5Pfb*;4Gp&#L=+!E)Ug*Qc9P8|{UrO|y=gHle*?&F$ZjVrwoi6^g2Y|hns=lEb_TlGY7fp@oO?JCdww8BMv=B`PO2T%OU zxzhC0KK;rA4OK;jgH7*Q?z-JscwotvI|o-NI`NsPwR*VC%e~^qpDVWbTR2~CS77rQ zzMfek?Q3Q&nw*eew!1@%r{#Lm%RL8mqMJEqvw7`okPy^7aen_&v0|S4Yp(g&{XCl< z?O)7sZt}(U&M+0_9rG_(D?VJYd+AfXYnKBW`UN>|Sn%$%zFVbs|HUaEBqzHJOp1Z(WNLrYY$qgEEB{MJ zbK8hm9IokCSeZ8b*}HI`e0;7bKO$vY9qv8!N zKAo!2aOB$glLtCd&wJVnW;O>2O$=&}e=2uy`ja@X|9iEaTNZfK>+a9L@!rx^L-+ru zNYB?5q38CnmVf;x{Vnli!mk(ZJC9C!x5Y52S>eGCFV3sMGD1F6;@0gFi`fv^x=vEv zpz(t7!9D#AJ4?m8kNU3;e-k`y&uShU|5F;VLYqU`=Sk^C28dtED$ZZ}+?H#b-rd6)Esj#NV@Iy%6OnVP`H|se&SAOmLAiCVS zjA5aPjAet!>%-4d*ZupYA3i<&NrxN9zuW5iM<-{0d{JatW!*FL+*ym6ap#Ta8*x5+ zwCDYr=G;QgSvUPJKmEGB^1)-vUk5j^?XxpslK*z`^!4yhCr$sQOa6OTQf*%Of;ao? zlGf9w9wW;pvhDVAgdIf`|R~O1VC~Gj@)y=l7mI!s&S-Lzsu=Zx3BW+U2*;Ug;O7L=5L&t;JxtJO|9g| z9Dx^wSb0-yooCoSn%uqU1plnplakiV>c8f))=zl*;@d_VJMP~pQ|o?};PB;N{AA%( zYgWjv-*&+}F_rDyYb(yzXYMw=pE2`!Nx`pwbI$H>-+sG1(QO~=_j^B<_{!eAG{66| ziT^8?oXm%_o%e6OxT$c(uB+L1dLP~Mc-FJp_FCm-hm(QZ-)3l}L>x ztG+#so&V#YRovu~McHT9PtOsxPpeXDd(8dx@`t_iWNS7U25VilvR<^>@>5%a{_j-B z({IGte9WvHqJD~$KiVQywAkBs-umEx#k2NQGct3jKeZKCu!%6eC$zR(%;{FhiDEMW&!G(WcD$e`weDZBYj@TV$+1w6^Que*8IZc! zTfY2{7dC2m_(O)`f0L$0(VgkG9EW%o zOO*EgaVwU8C9{OtebJ(Kwj#XGUd27sDBW-=f60M$$Ez>&3ohtR@%?XA`fck0)m)#l zjY4iGA9xi-T#!8I8Gbr0&^AqE;cVub{;B`iYr5OdGM>`VWY1Wl$`-^o;e+vw=R2SB zSvp9ndnR+uiAt}tvple+<@;RbI~88`p?n`~tmD@wCO?~PdL`-g3D=%a6{US&;)3b~ zr4@=B=X5oFSh4h}-m-Z~2^q&aEUvwr-@Vda`LxD=skrAGbryTiJ#X~&f^YDx7c;W7 zUS@eNaVXE+*=^hU?sFx_u9wC7+58I^c%`|`ckIc2v-gGZ7N_vb<=br*FVAs3YS+KP z`)+^jJzu_CtCjNSr0Z~=Pgs#QT~J8%PD#1GQ-T=tzg0>psUBt8TY`>>ZC5&ZO|p)a zlgl?C-Q~ZWqHfuVldLm}CrlB4?cb*0TT&lC{$VeQ#_ zZgGZtM$D^)&b}dx2BJ!8XFRuF2-;P5Xqt1K?yoeZr5^2^ht3@;nftO;VRHVPr_bCn zlM1GYJ_=(@Gub{-wBbjplbi0fU(RfYi_DBR-oLiv@$5@)9&dUzN5%Kfrm`dFoo7DZ za(daJYx|x|$ZBF(ymbHUt#AI!EWesAnW?s}V98F#c;oM--OAETi+8uEwY)zqda8Q& zy9eE(%c8??yJlThIGvTu?vR)0^lkFumdd>rTknakxVW@7vaRB5f(xIf*%rOG=coG% zU$Q9v<#p)j41YcSgoK6)L1$_4hfDbWu$()sBT*;bpVr>yt?T$X>Y)C_-}R@SUDS?@ zP4g=k+_SRJVOj#K=bJeii)I?Vb6VQNrp{#L=ISe_IJcJdyGLZX(3W}r{fB1$dMM=R zYNU7kV9mA1+S^{Zg@vj-T|cXaMexnp0(VmuBYQRhkg_cZp{2 z8jZwNxeD(i4X4cY>1xbNoE}lI@!sYO6ZjseRTl_UR`u7PO6?F)dz9mH=+9{-Ub%a| z>YLjV43-4zX||{E&77Ai=k<}}(vmcVlC|khn$N7nZ|>RWV0$6%xoW1aS>6*{-`qQn z%8_a^QYW+S2jxq?OOP&pHHZK2EY1tQaZIIlYyWXv{E@<+>lh@+QT$ly+T86f&suX< zKNY&jzUt`@Zi%)}8v@c*dEXQ$u(eO*_A_($I@i`-Gq>@YhSJM$=M6h}GygjmSxw$@ zJhD+$_sFpu5_hgVl>L3y-{0MOnI`+WLyNb1+kHrl*Ya=32$`}mO#Rmft=~7J<@asv zd-6)FeSuQWIrdqxn_N!cxs%q%6P~_V_otVt-<;^y zoWXj~dP(=Co{tmsfD_GCW?X%6<|xl=fwi;kJ}s`8|9oeG zT32Djov!s}9LbM67urvqT(Ngz)~Q)93h(l)u9CaT^YL4tPJqpUUtjJ#laf|k^&w63 z=(XdWMN_*hQka9-^FH?7V0f0E=XZ5Wnc~SwgEjz6ffSjqK`r7 zqO$o~P30(-G#Otl);Om!ze&okbRLA|e?58d*J{V9c9uU%F6+;7YfYWyb9E-WPH}3? zjU7TqQf1#i{&L`$_Nj)M!LQHmG?^1)o0%$JDq^tY(EE^b*!X1Tgx*S(|%dr$mTKYiX#UTEK#mh8yHGhesfFRdihV5JC%-?W$#uUR< z(<6k+yvn&dRZ@?>={#EhB4=sTsh?&)cd6AbH5Bo4`fkYLa{g|%bwtC0qz7?fxqN0( zn+|MMTdcOm;`za~vs5CIUiebYg#)l=g(UJGY2R$2-cL zG18k*^O|wu%0PjwN+l;_rWy);IJotfSe{CE)#Uat!;%SyuIy|x+#& zhYoK#Cblfp>ZVn#WO@FaB}YU06?{Iu%h?qdzFenD;(327uid;U(vL3pC%89pGo9>O z_n=9CyTlutN@2_1Kd1D?9b8_ix}93wnbCgk&gCD97d?BCID;6&B@v9f+~s`c6}FTG z&vaP5b$8&)Q1{Kj2Lsnjo%sFlaYgaou&*c0;_~-i$jfDqy=S`Hc$LOB{kbx#W>@cq z%BOUQ0{RxbJySe+da9vN*2btOP(*6l*uXl`!Y~jx% zQ)b_oci#B@nUbS({IC66vf$HerP&)@(}jGGg-*WD6EUYVC~wZupB=vUbNFN>I$kqI z7=D*%ezkS);(KhrKIdGW@P2uV=gFm8dR}*g9F^C2^KjSN$z|TgdHMY5U%HH!E>r2{ zv%SeTdAs}D{})`B{yb%I=}ggS&&3a|S6y4Ncec|KmB6`@UVgmcCB_=eEAJ{XaeWL^ zeX`U0)a??5g)KKXUGe)JRr=}Wlfn)sb}8MEm9N%5yngY@xeJX~7V~M%JSSf?Jw!A} ztigAUW4fKsT+>6_{I;3)y)+4Xs-}PQ!0D{E{KoqE$FFL>y%)3J`|w%E2~+kebXaOe zexKrdeb>onGERS*d?p02e|-F+>|k4QdHu1YyPT(A-j-#nznEF!qj&bv(`PHQXU_W( zdD``7yNk}kZF6q92`AM%73lu!bFjZ*ao_dI#~r^^1T(b574*$aYCOVv4B#_t1LRDH_TP_Ik-XC#t^xG(Yr3 zMXJEv=+MbvcMs-W5UyPlQ8ih5A@|y~mu88d zZrrK)#QgimX0P|0;x00-{l0VfPX(Rbd0W%BA!Mc1-(9;OtiKkziO;;e(ed|&S=+eo z1eoeB=J@;afPmaFw@FvNJk8p|wuOOD>+EyxP(!CGYd}s^0$FH;RtQ z?UDP*udJ`PkSXNb8uwc}DlR^L@jkdH$+7X- zSAOq+Ypu82P6qC4sN6p%zvJ8uu}7j0rMGS=OTF7kG=HO-VU-J_})=uVS2%9d~aN^`ngQ8A}l6#e2+7BPv9D20w(&tAvx(;$@ zB6Oq->U~4%)T$OIu{S+RPVQWDdApXr6Mx zeNE+p#Cu|#5eH{U-d>&-^lR~{<*O!jdEHnP$Mw^!QHA;DkBVld)wgTDO0DBDmw>8Wo8@6Xs8z$7j9v#m3sq z6PLaHH-2R@NZqj2G(G57iRZ%lV7C=h@7AtbdMWGew!H4Nn_6#p#eIG#Tv+tZPw<^I z>qEQaUGtr*y!HnFw&`*>R$9?nxUZ~v-qSSwWM=EIqpxmosPo6koG4meUA_OLR@t|G z4KJF#EZ09+9`aQ5YoO2M-G-M;oYwrav3S8_qrK4YR?DsYnR|VwDjFLt?2diYczjyZo^XHNklni_+u_#aNuQT)ZT~efIql4&nNyS87+XISYMNcy7Q(Bx2Iyu#1ubYXYJi^?mJ7){0cjIF(~}o0hXy6tLJ_Rk@7#k_=LmyStpi0 z4cHs?c#&8FZ}Oz|I~PA^&#BbiZn4Iy?ci#C?zi*fH{D&LHM`^D9PJgtKW`YTD49Kd z%vt!O%t`sKQL&J;MTLJF(de4iS@}c(pQ^)?9(cM<~rv=_xI=e|4E`ATBrH?NXixyt-$Pc)yZzSZE7 z`V-91>*Skby>`Nvw0W0uMUp-D%`NPl_`9I<$WNig>&lz-|C^m(Qu5wJw;|rn_v@F) z-b=AhRgLb(RYb0{jH-y)ms@jVcmLI}?f>)sPTIKX%lUGL&+(Stn}SPL#ASXsef}u> zue(S8GfgTuosVS}1~j(>&s4?({Tr`m9DVvtg-JEC zq2J#pD^qKOzVHp7Tz_G?o)Sr$#d}XaaNOS4J-btLpONCCQ<=}Ur!QQ)RAAP*PxZh5 zvrRG1dCZuQC=%qi!ZYff`S1E0H~-6IvNms>62-XkS=xdrU%je%r@SgFR$1_j;cS_F zpxTpfY7AL(f^M5L?3=NKVafah--Ec8RWhB;K9M!B|Efb8q&Ue`@3$#z?nNBW%I2 zTUX%&lex~)P&=j^-7{~}6m0VH{=GAL7g;@j`Gsp2HTQKhc;+(Rdv|1uY#;N3TU@h$ zZ)N=PGVYOy+kwENbB*Nvxwp+-$S}91pJ(%#lo?AW)tD@~`R0!N^oefe3pi#kyqn3~ zcRj*F{dBx*LhcSN1Br91RDLl3E>B;v#W;yOU@Zx;1Ht+ZCSoSw(3h(&{YB1PLo7W=Gd80kmBvw`MjHhKj zdzw+Dl*O5{-z@3hg~NY+(^YW&ZshsBiA8AQh67s?-<|v@`P6Myjn2+3k|!HO_vn17 zbob-2JW|-gR4AOc>xyvEPWc7l2AZ>#9r!P;wzzeuP56e^r-hQaUpTHEx9MND{D;;% zZj0*YF>QkCna@QZy{xR9X?bMz&lPd*8oWI!)kioC6n>B6uQB?oje}%4(f+g?g z8wT^VFR(WpHMDr4t;Mo}ujO{SDASBRp>6p+<||lTL?7vJ#PAE5pWx?fic-Gy{NCY9 zzwN%wayfsc+R|L}#&!+MS`NoMez$H)9lE^fN+RO}*O#gV^UpD-MF=EXovF{yFo{Xl z%*vQ&^C*vZ{*Ld9@7f*X)0y9s_u=Q31+Oy?KHq%TR`YAuk(zpGv}yTG$dVyKd_o z$h)h{A+hV-JXYmMjlgQwx_SLq4^N!zKdGqTb!p3+-hJsvKe|vn_?ow^=5Ey&7Uy@XzF6^Q`e&t;Rz9B@nS`c@zFC!^ zqW&V2am}k*6BW<2hdCx+G*;y%H7u+Q$+1vUIeFtT*P3gQ`_z}rTT)o?=k1fFPe1%Z&WSzBs_!l&QKt9J;u`yO_7?xDUrnatm-Wftu%D*v4Fc-xdK zYxVo9Zn~}e_+jOY>x^7i=l$+;Hu3Q^uNVH#c_QYQgt(u@7sD!*?ednwzx}G3=9M2Q zxBk=_@4~)ot8jACWSJK!eXBV(H)?WRD3wT+u;z4G8?!Fu+0uHmiV2!Z)-6xego6B? zl8leAh`8T5S6wT7US$S{uIt3EYiIg?K3L|ruXbYWZ@1v>CZ!qs&nq9kcc$h046FUS zFLD`)f310c)SLUvVfXs-MGlYO&$GR~_eEgg!$lJ^mDoHI*PYhwe^)4F>$NYj>g#o7 z8_j)<#Ru-(Oz(4FEPQmq$2FE+iVsyP=bt>5t0o(QH9|ABbFs!Zk%^k+oV$X zs(k`G!wd0yzi+MYbJ)qZ-{e3(^L`d-2Fpvj8)qF5UU$01*F`|ha9a48M84M-Z_YZ+ zE|FGb61gyZiul$RA+CSzCu>%BdsjW&*Jsq}vFdWDql(P~=jWBvlT_{;dd#ux`8zWM z$GTaT73F((8O2mTv^n2AU##oM#h^Ty9O72PhQ-8`tcQJ zou|9^EW2TMf1cbv3(LQ6e*Mh*CtI@edieE|vzZR>|NAvBoSESW_sNng3@zSL4m>X+ z?b%g7ZaQokWK+SneZS_M-3H6H|JZ$0r#VXGvHQI4!V}WUAA)AcyyPi2mrdA_sN}v) zC%tT*{)?ucm!?0}Q{wRpJ(yZ`o~=-Gl}3#Kv$Nx+hei+i4zDyi(RNkCYfiaph-&!j z?gr%@Yb39FIc!|r665wKLvNKtnsR!f>anU010{XoNtRhAE(hN`RDS(wH&>t^-s2_6RO{&sH3Jz~o`ax;;*pSd{{s^cw1xILwwY5KEi* zOz_Auy~gTisjDxZe`~dN;g@8;CfD<#`F^%HBo8>h{%qxu?di;-uwv@@sM(wvo9|w z&QqUjh32jJUgEBQIg{yjd~>*v0xvSz&T8KWC~_%F-!j;+_#7+iDnE zRvKOCc;E2sZ0U(U=SwQ5UMzL@Z#7Zhx8jlsnX6Vdb&gHi>^O>`dr;&@R?edhv#a&6BA5`3nNNmn6?QcrI&&pE$Es zWA56Fk7ortcxLu3k8r=AFLLz6POn@hTPM8Ei+{qk77mftQV;#TE4KJ9-?!XB zee?WBvpQnS_2biwgq0$*j2BK$n7fy;$N!L+tLR#mM>0LLwoh~Xd~Bmy%#_==6vuwBKo9M4?%}<+O?$LhXu;cr)CuHx>_}|revdVammLt@Z*bw zFUt-;xk`_2`G)O_!p}r8REbq2tTtumd=juK^hoqVA&Db}_gc6)pI+GV&2PK@J8u)c z+L$O#!!5j4>b2i84NAU!bnH>!{NmBQ&_UgNhDWy2v*~^*GS=1;^9#>0Ij0=G|LdXT zh3}<`=O>=vFH?M8@S8dI#GIL&pQ9J?-}L;G_51hd$K~$V*WaK2=G}i)i)HP_{z%#T?k&=*S6;R*Qw}NOx4`q9&&1HIWDDuLxKNn^!v62+6egDe)+E-io<6qb2 zrStDi3$y}kxqQFG3f=AGJgX4k6>rc?ToUrcp4BF zh**24XVQj5c41wa{k{oiXN-;tFPh#aF;CjGkA7soF2Nm@-1AdEtUAhH#%saS!VO;o7}v^pr_Sbk!dCOOru*)lqPag8v8o(@ zA<@UUW$WDqS1k{ht~%-cwtR`KUT4a^^v?^7|Nf3Wd7-9jB8U2e+f|2la6W74Jh$?S z?{)vrl2hj%`D%6Pd4R`}=o=G{Nd&oZ2gIbFn473sF?C-L!<1y{)tk0Uw6sm_Nk7N$ zz2#_(?LXd&w$))`-_+aQOwIDSP_u63(d|MLf@ai5I2CM{oOmknrQQDJ?$Tci(wkmh zzm>?h`jmKPE;xH$8e8Iwm`Z*d9rr^QkhX=c+PW zuD^Q6v+MfPf>H!S_DmKznWvgsss6HO(W~4DwI7Z5c*A7Gw`=c^Ti2-_|7B~xkI#S4 zx%OO7y0!$~nX>F`(ytr>m-HeK=mTb$rx|bi)s}HwVg7T2x9X5%;nayw{)@0Qvxv=5T7N3|AVb)u z=c<`sqDA!YFzzYbAo?|7`Br7MsvRbCHrs5yD`B#34&N=7Gb$ExjuV0wFdgZSXkfph zeo-{!g~kP^yjA&P&uV$6&2TZ88oBL)fR6T_GTRM0Yw{Saw>Lc1GATUs<7yp8SYCRR z4%3|%&*qo@^Y@$_FtbKF@Z90b(4ZAx1jE)$>o-xjQSEr(_ynEV?$^B~zMTDFnLN?_ z!S+5GwxE}RC+{{~UjBXg?ZOq_0Uy3TYu{<}@P4_47)$Y1#@jBB^3$yk2pxTL=T7mi z&u2GuEVPU%_UxO_b1pMbZmIj+OOed;@~hI%P7fBlG~L#Dd(zuwt1q5!%=CQNWiBWh zx;Ewgx=v5#)SM%GnJ&CL#WW>&_N&?HKYY(Td&|fw^WJ&KC5a`!ejR>mUh!mAe%;(X z>n}cZvt+#HmZ@BDpOO zvo2qJ@7?KVi>^p;WpRr;%a`tTIDGZm`-BgDRkhEpci33S7qQ#Vlh}9McFPRQy?fdt zsx;*b`1d~gzvFvA@#hs&q9!l+uTehHIQpW*=N$*-4zYx>y}I<~H2dU}MN{7xzT7i$ zDO0E+Yps~erq)KemMuwPhgKDzpEV&*(IZG|*#Q~*8B7U@D+|75UwOYZz)G#L>FBbc zb*m@*Xh|@45L9Yf@&55|W3{8|tFC`{$a*-tWAXK^Y%hOZ`H(rMtMJg*726JG&AnBz zw30nt@yY3(GvCTtfBIpbdC21P+M_JC=O=W&H{Ui-vFB9P)_vlwecJ=S$;Q@AiM8<( z*wwX}d!JCu0mga!yf*?l8fMMB@<(Q>t=?R#a}Q^?Y+W<&?{CKZH+kQxzvOTmf71xG zzt8KJr*_(2M}R*i?cTPDwat~erDgd~uPTamWlsepyZ1h8LU+XS+x&KXlValqlGZ)Fb)asBNO?`R{+y>@yChQ& zZ253l>*=+N?2BzLU#WKDGqU}ztp7T64vT#KU&+}Dx0b$di4~j5(#`Wf%9~Nod}GvQ z-kIjL#Vl$fkLvDmWcA&7)*G>Ay|y9mBIk_PV%H28+=@E3_AOVrit4LG=7(|lg^IVs zP5p1oZoVAy{;lWg^H+Xw{EEJ4y2$SFgIlG#4z@c(>dNh>oS*f4twuaUz+)M`Eg|pT zb3Z?QHgVdt_R2e54X4DHR&&QxJZsRpD)Yr7vFbz8KJBb-`F=HShOAi($9eKT?U$Za z@u1W$GQrq}`C-wlqcZ33Xm>99aBkDLC0cfyBhxc_Wd%DHJNzzO>ydKo$YS6;LEaNpE(ndOJl=$B^gs%?3imbuqtU`hwmarSZ$oeU$TlVQ}l?LcT!uu9s>rf9+s?`)WsCj7M~hXu?V%*Gk(} z(`CZHX2`{*WxiptNnIfSNLj+RwW49+^rvp6+kAqfovpI>&njK&qIT)3=`zO}?$}$2 zsa*ShFU~zNe??IKW67M?4=;I3HgAePWOA$Bz-ZsGqwDt`672C(s^4U^Bt$kzn59{! zotIsGg=N91q;J04+p@m?EoV8>rS<#u!}t3qhsR%%mXqAGWNr8ECyVdzP^;^^pBtFAnUIuKM}fg;kL2aIV~$FCT8sK6lxv`%jm0(ad1pZcbLmy;pWR z?vXrieSG=0cfVrzm5yloPW3(_g=#4R^+|SBcguh zl?kt(Zj|8^PCc%cWx?|4-p&%ubiGOW85f1jMSX1*B8&I0(tGhBpgbtV-9NIm$S9;K zL|J^vrpYn76Anz0-yqq3HKE)5RdHy}kASIK$6kFX`Eyx7^yi)n1EnOTsEuw=;H!c37><^zPQZZ+6(~ z{1g|(+O^+Vg39A$7&gpVIse~+9q%o^9pZg6eIDPt`o%{tzfrK6ekm-|)i|W=3%i8X z=cS4}N=2Sc7tPDx|L48_{(tvPd=;*Ley+bv{DWej-g&KyT{EBG{{LgT{j*K{ z@^+3I^JC;~94+R*_xtHSC;$I4k@+>Dr##p3d)@T;lf@=h;P73hj`I?q{P`_D%NB`B z9=K^&{f#wD`eDCKl2yK79na~*>-Y9DnC$fOENYstjLq%Z@6yG8kF8xI{~|A@-u!HJ zB*V*t*VPwfbF{fuy!yA=EaJ%TYinkQ#ibZA|7JK^$;`tMzopYDYT6_|RD(Y|j ztXDqF@CtLP06YNzo+>b~G(=1lVA-%?3Yt_PykW!UcAkuTSzX#E!OhYVS+|mQzY~`_ z=PcH>sk7mYRx?XuhL1+jlod-|X3CsYThM>rvh<}@XsoTwNuy2NEL91cBV$Y7eZSD$d8%8rKDTmE?2usl8@YV)tpfOBNsG7LvNVi&w0X)cF6%pTa-Q05X{>geE=E25 z`+-S*YT~q+uYU68oJin4=<@Rt&+QE^#^;|D^sfJz(JMDkUXIf|E4`3E^X3Z?dB4l| zA0Bx1{<36=@h_k2caCgcy0*YF{=i461z|xmDq(uD578KPBr$ z$<^Z%=K0=qwXc;nd*Y>N#Ifa?>D_qQe>?tNXHLAUF_-;f)cj@>L8(2xAx>)7=ZA7U z5Mq9!ARn}#TtG;3S*=C-ErWN5TF>h+q}(`?aeS?J%cMI;E;H&+&6M4@yTc&!B5U*^ ztyAk<40%nue>Yz7^C=2CRkKZG0du|hJ!{P+S*}}ePS|wd$BCv5Uqx^B<;@ihX6j3==3MDE;) zY^8?xoaa{<1YJ`vtA09RUeKzGg@%7(&Rl&O<7c$`P}a$nA%RR6pYzFoQL!sL%xdk( z`rd5b$))ik-)`9`H1Y)R4oPNut*3k?k7JtP7su3@Wd}7L2W{qYi%@ibtv=I`@62t@ zt@Tq~5B$~1j}Q*I-w|jyHFW-@$4}3QoO>W~x-QV;a-RF0zBmgx^S|p42(ms%(Oa-# zsqIcS-8S2U4$VG0TyOi`@M`JmdM0LmQJI}}@urJ{!KWQB-*;X9WN*$Lr)zWf%zwQ@ z;A!rLc#f@wo0M`Mmqz!BB`jR^oj*}};ek-g03L?U=H2cxh52FL8e8Xu>^P^qV#PUb zvl(3{OWl0l`M<3=CuvzfTR~@)gjv0R&YRt{zBJzHD?c%Jis`2HOUp%qt*z!R{i3F~ zb%VI=FFl#`InxyWd3f;cnwiWWTlt@Fe^at$x5v+8_jPYfSMze3VIt${TV?cLX|;Kd z&mWOe7I}_`uVlOAt2)~ovJCgF=jYU6x^sVG>?;q~#Y-7wYkW^Q*d{GbTI z$4M2IbFAB!x{4+&P(O94cTu(6+F8$C*GFFT+a<;NYE49Atofen!`T+bSiR!NAEE6D8o#;Kc0IP|R9rYVBjryclOWA|E4xYsz(M}HmPzhp!9)rMy*CE9J=i?=cf^(J^EDU}&+ z+}^JDgG=>?NIH9*#M%_4B}-2@eOc90yuf1dCxJu9{VnPawI(Xb20U+9kUdbnf7QO9 zjQa}{e3rgreClAkb+*MfMuP_m`NzI3Xi5-fvZ$30Id?sy_@TpuRr&k+7iBr9_jMY! zrB9LI)%)<aTS?zH>F^Ku&P-zZck zc3-NLv!|J#X`SS|?S_jdIDOrb=2oz3!P|xmg?ImD??=UG9n)0|-YxxM?=;gLd)DkZ zBRI#%E3Q4_MTIHLJU$zJ7F~fU5{3QcOy>NDlE~nQ!DqUz85)jb>BVC-1pNz`psXy-}Kl5mndcz_p9Ocvg>rCPy8>>txsO3 zdtAlQ<6BAI9oBu43diGD7e~9Lzq@xqJ>=xVCesJcP=~pQ=<0Y$i=KdCe z1BtSYiMG9(cNeFgSRRo%)-)7J@K(@th=pMFUCn%ahxH;z+#qE_u%Ue#l^ zu}5Vu%kGoub4^Mfp5p&6^x&&l*q`c$FF&ZPOSofp^v8vCCigqrraY?Kv~up_=*3^0 z?AN_BPK=ByGW{cCe>sX@Uirtlm8-ObxE0b?c|Eb?7jips_b3-j@T;RmGHc&m%^$*>c!sYWE$E#_iUra>{;PX zdG6V2Q}?>;WC&m`xcrz+-f`BFp1iqxdi$?G{kUjNFZY@W8f`x}zE*ZvdT@KXf>>4u zuj6jt&Bj3iHn~qykBRDZ6#w9T(({EWQ}&BZ7hlVf?!S9IIqg>8R@*AW>YeI+`01Lw zncQU&+s`b`U9EN7q4dd~Y3nYeJxa5Xd{rE+$gugz)hEsSc+V7deBCabTwUY*XkonP z{kbyB*aA{#+*_8lI>-8uuchGW!*wg!cLYpWYIQSkO#;vNj1#7Bm%g9pwX>*Und55y zXVNp4Y%t)|ll`z^rBkI*O>xDNR;KGJZL`Inzds+BGjE@T_xpy5`wEU0&M(6bzxQif z%|82W^VzFU-+q&*v#kC1=#~7o9V+XO??3RKqlt&-;GXuxb*Y~_!)No~nALU z)jtx8i!7GS-72q_&v@r`_gS;~eBY9dWm#5Dytwc~ZF!MU-+aE>q7DDldqE{BM2hpd-m9J#mqdg7KdZhwYP26^8s3biTuR`KfYa&dj?WwZ1!oFZ}&> zdrzaxyn{{c4X^rJ3%;Cpwc<}?4hF<{dwI`Q>JfWev`|*KOu=mEv_+ z8otzW-tYC3O?MyHZ=K0tytJTR%k1T{uhtLWzJ9rp-8w-_fk9`V(V4Ri;k|opv{`OQ z-;&AHk;n{l7gp!tJu>Mn=iht(BAA$-Zk)is?5RhEQPjs!56dN+*4=*bU zH!OR?H^<+6`T=26mL+^r}&vUeHUoo9`fmd+C_MWhHCN0{FWA<7K z%-borMRV_stG_coc{#iv45Yr@^cQ;NFQNDF$%|XV;(eKqy{?b}= zEywGLmW)Cd+hyg?k0KAPd&aq&Z)H+Sq5AvoO{aUC_oOeCbh&C|@@~mTfk{63WuE!< zRY4jSp=%Cs^v&6+u_r$2Hf#K~Z*%8Psy-s!6z4bN|I5~+=@*ssU&$<~75IE5bZ>P+ zmd*t`t>+C-cQ4E;s$+E%OtRN3`DWd*<6}>vo)XK64xYz64<;&3Y!9$GV|>JN@4D+E z*ZL!jttJ&1Tt1ooj8n#a*@k=H_9lzId47}i+2IG;Z5ey~41=a6%z4>+Wx@O9``*5P zeL(7a*`4ofex)Bi6!tW$ZVA4%+eTyS@d%k~ZaPceo4D_^5B3n{S-vMzTViY7)|+}^ z=4#wORkOaukv%;*z#zSx>{@WnpZl$73I%Dv+wkI$1a`S!MG$Nu>48l z>)mJP=dFvME?}*icMUZ^HJlzh8d( z6YmQ)+WTIlhH46S?sPk8#`7Sspvq^`>`xU&Yo2F19Mfg_n7K0Ar#WcZ<_T;UTl$48 z#OA9UvtQ)5T<)>n$Pa-m68igvl)YCF=6+Q~$3O%tcoNKAej3xh_XC~_@|F@rbhShzWg7sl9 z>6w-DqPuJsw@Lp_bD2Nm=jFPYEmbq`mP@9o?e|?MA~oA&3eSeL@(j_+a`EdAkM{Ym zy=|7fUWmz%WAUqv;TtwCW-WSStU7nvwqtTDUi4%OsG2KQZSm#VvT0wO6R-W(g+EI? zUcTq>aAf_+)H7M-54Uz|YSC}w4VB?H=W4v0Xr}W#ZJuR&=3$ZIh&X8XT)OaWUZE^=@u@F9nIF#FRqRa> zc_S%p#fz|Br8tdLz0c)-QB{R0Z)oPjXLQadr&P03*gL8P^ ziP~Qwl^5ziEZnu^-`NUFxi_;EYW9Ep6jg9wcELs$6)nX~)BJUvy3z^)EoSAF{vtnr z&XLUJPF+{kw0m9!+h5i0%++mn_hqd<>@a%7wC(8mT)Tq4?aiO(dYC<0HFxHj38kgC zyB^(&sFAuXpK5kpd{c+z2_KKeZ!dp7BrEZ$YN2dU{M&}56^c0*=a%o0$h`dK9Lr@_ z7vbn@6{lC;nc>X5V@kps!NQVBKKFJCNPb@yX>jzd+-mndk>~3kESz`VRpV*Le1{8> z5gUAO8%&RWAz%<{$Q@e3l5$OfU(Ll*;M2(#ou|2*Ux&ZkY`Zuj_uyC2=Wn$y_B^jx zs_~uFVf~t^E+&v_AW=N!ws(VMs@{8N%lqsH_Zk+y zymR1ELgU+z@co_HvbSqJ4JWp|GUQ~r9U;aNG$YS@|KClThgHo~zb)Lt)S?e!#V~yCS2al$Ty>qRbF|EvZV^)OnR>`Ti&+E80H~rl* zulsi9{11AwPD#!R=;c3k<$X%VNrijQv#YLVE?69vBC^FiYisWF)rW4EN^Vs;92Nfb zZEEG7yVW}04I8y%_dJ-Z5Wc$U&<)qYXRX4zPA{>`Nj&Hk%5zTSQI z^5#$Z{^HWoAGH@IE=WIPV)`;&-oLH;^=$L^>;24MKL7dkn_0M5uEuh^oqO)~<@?>A zYPf9j!`A`fck|@d70PLZ^_R+=kn}qHrLeLlLT>wPqZv+d>rZA!-Lg~je&=yj`q6>a zXUjILncnQT-&X9p@WWq)&^B>~Xf^(shffMSnp!>*xH3oPp*Yj(d53517PNB|aEz({ zR{8q(Ic}-ohmo)Tdq4SC`*|vZ?PIO8x=Y-A1Wj*F-uiMvy8Ov2Vg2I!Je;qxDdzu{ zow!ZDNhRvgi{yC|m|nMRn)p=J=Yj1{7sr)s+tPF=Fnzf$+apbybVkv)>n=@!yU& zGuJ=2F2753v*#wYw>>)oCvvS&cryF)YVEGa*HiNZmy0f!{axI}`u_dyzp@|V7eA{g zKHf5~z9CZV@Z0Cj>h*R%;=`spYG4@@0uA+m28B#ajS**Nn;BxB;$cSA`q8&C+4(Zt zKkmLDUuY0eq5mOwdj2JkrbP{0ON_eIE|{MdNU@bUUUg&N=E)}K>fiIopH}SGp1U|y zSftf{#-qaYHsd+Z&waX^^x|gHf%=dCFR$Lazb0L5{k7`4vV&sz-|oHL_~W?1b)A1@ z9H(0%Zrsb%ee>u;QvcDfVc&}ixRXQ9FO8Fldu#i?Z`V_=LeB2o?I#bbXTI2V_OXT8 z9_y%QKbKeT`2X_gr=t(;zlHgH^Wn+an8f_&z|BV=a@PNTwR-*ZcKbIc?-|&B_%K`O z-*%z@f!i(rz58S0=fNmE{kVL;e*AjjRIifyvl;UbzxOwDKP~=}Q?@Sj-}TdvkI#O5 z{KtojMwiznWP7Z7tvb26Z;H|66+d-FZ2D9f;-=PbHD#UWtQt3O$A&Zhwr3Cjb^o_; zf6ei)haMK`2F_c3#_O_mp7MmlPcM9S}%(|_B+(Lx?rQ#O44eECeWgStT8`vTH(DU3b({%=JT*2WM+8OEn#qVu>pmUA$EIXu7ceEI>g?YcWIc6!&v$a2~E-@17$ z($V!n=XIx(Eti-UB*phCKe;}^UGwrUpPuXgj>NCu;pD#hv;PBz;;>y!`GTUsXXXp( z<>u>ZFIzmzd#%sXMF$iNZWLvUC1hOQtLmQiI;QGwzfMrql_GoDC+aCqhA)C{YwZ@E zHY25c0@tazJKyl-b(h|+h+ECL#?01c>9PXuZ5>kuR$Ph^`r0pDkmuekR&mcL!*g!h)Z?|>c-jtZ_^5Vj5k=Z@f=Az8k8*Lt@ zC|#Ip`{o zr4q({{{Dm1%|gYtuQ;u~t+2f`<4{Pz^TJuBZXR2qC!e0kF|S>2TA@N7>!X=7+CHz7ka+)2($9LeM8EsB2B{?<{H#n3 z);Apb6t^KGOL1O7;4H>()&Be3@++T;-%z|EkoZt!1Jj4n8COpVWv`a32xjVS;MjbM zuQ#&kCJ%GYQ(Z=J$7tIdEwMX}l)T(=X_1oY+ijx%oy!=4%DWGzSGUL8y#Lp_dZ&y- zS;+6n8|6Y7*D_~K3$|sBRa`zh>*kbW7dsM^+ITJ=e6YvW!6atKq5XorvjdLY{wloP zRkY#IyhT@?TNDI8&o5Q*Zgk1|T2x>(>B6ZK98aYxIj7Crb=XL6Z~tc3FH&a|TZ5K~ z&vUrSas5z|l*EOf-yfcIoZ__mU?!stD zp{*_G;%Y+4qvC@x{Fi+o`)$SWU~^czG>yPf4%YG`aHd zS&41`B+Pn}4&1udk!JM%o8(5}(zGXyJUOe{E^M25Fj^z5g8OLoQJ0{%ylS%-u*R7^ zF6ebWIdi-4W1Z8^liO?Mb`{?E6fCre`Jiypn!=xp6@D&prWo(S5q})^xmdi znDF=T-u#VkZfeK>nxi*m+8VFcpp!aciee9TE3P(N81(DT`>O>OUX>O~yLYQuH+Joo zE7|YzHQ4Q_Q)1xnQ@k_pDm{?fef5LNV^z*tw`(%@>K})Fk9vKwH@@9y#mA#;M%Isy zC0?FkIz?sAi4$>urrn*UH6ft!;Im^*GuRvZOc!WA4?kr3XXJbN^_MO_ z_|U;xZKAZ(L8ad}-y|?^a=vb&#IIv@r1aYF$%WtU%}Lyl8}L`?wY*YBkHEp7QWhFB zbbLZ?XlrPAtQFw+(Q?p%!DaJ-RX;kqT{Hiv*A$<*r5nDAOA?1}TR+T(mj;oVHIQn$Q)MK3~Z<3uAW8cT~ z{=8uD^G{AthKPsB62X;jyFu#i&+@DbhE>xlvTe)68QgIn>;sTSNt-g&)m}IuUPTx#2F`A9==(2vGlo(sz%D} z>(?FU>O@o*@C43%XT|>Q^EpSZyIbeg%nsR`c~G7G^s64Or)yUK4ch8eq!%o>C~WE% zLAez3D=Y%u&b?l93zcivU3gr|z`kMmrvnpixcXJUbzQ%2>Ap~x32~VhlRlL3u87_K z;jwj2f=}M8$eWV`c28Y8d)23HU$nlMJ#AJ!CYdC#?Y`Wvt)eeJOy<`pcFzuqz2c?5>3Q*^wZG@=Hxb^luskMI|MPd}4W=39&I?W}Y`Zi|e@fZ|@z9Qq z^PZh}mpSp+UF|jLXB_`zdWZBIulg(FBKQ2}o`k-;UQa*I++BXVR&+9t!NdJeSofRU zG)!KQYx$&RlS;uchuyuROxNpHOlW&2ZE!2dg~{gH=2dP2T+G)i&B_kXa4d^Y;dq>r zCvxaxYF*!hj4+wB3Hu~?1QwsJ{Wt65zbJ)h#qc>(Q}=wyv|DGK)7kVV&M|_`hU-bq z%o)l_$6g;j7j#V9iC@6TRCWK?CiTr)Js0O`pMK!!hxO=^Lo`S*63HxqLa!WFqm$v8Vn;f4T&Zk*UQa!dxdpt_T`5K+Mm->KCY0lBIS#Xa<$$4 z#>vcwcPw*p4Vh?~UHDl{QE^Msw$!FHeVaD571z>=9~Q2DWR?9eP%39hvMQ(R!@?)u z*V|nQ5jfNRVpo>hndMXc5=y!K<}iqJx!syvYRI<8PDlUT{_lL@l|K~qcbwVWEAdQj zAJ=ZzC0dy^3j)FzpEu6uEvpFmp61@ukiJR$jAZ=TeY1@Pz6H(RRV1*;VbSjoh5{?5 zb}s+ht~UGJr#Gu@RK&imnz!{~sBWiEx=qd0|o1 z>2TH665sH%H)jr@xK+Fg0^m%enndbEJIP9eCEx5sPLQ-zZdn+S}vF z{D-P934-6>?pm0_zr5f& zztgdB0p&^E2B+6*#@(72WY_9$QI)+vOe9(`!FOx+(y*uPnb$vwR&RHny8DI7{4C-8 zdc#i!H$Af!PKaVv6Y{qGv0ZU7zp~}&uNHf@ua@8pn8aoxcUJ4C=2wHMzXj6;FSyV7 zv`}cljO^YM-)9#dnH~Arn)Q;Y@b9^XUP*hy(!S4~I9-(gi=RSTzOt*n@w@rYdv+WP z*11r2WZ802+mp)o*53R!Va?KhMdtE3e;@13kh^F9=?T+*cRkjNddAbY-WRRYUbr^z z>FceAzl_d{lQ}j&OonB@b}ihy z-gjQAuMd04c5O3_3)79BO5I;tv*?q&?<=vDrn~u~xYI%c{v2!lA8%h@{&z`H#_Hue zTy2l5_5GLpdnfCOPcFA({QDir4P~1q<#0Ej***D2!@ga2oRYiV+PA&(%U^eW_Sa8_ z_ud^ix?okb*th(9OIGWYd^fqfIiccvhJF9_=d;}(hw@5xJo>1;{rdHEc|Y^@_VboY z%ZG557eAOUC&(PRe!cno{0TaI>`k7tBTA>l&3iokR{C@C>zrM>j&*|i{RfWkeDbm| zqWH}I&On8>2mPOpiu{b?y>45*_uiNH=j|6sPEoL6+yAd*k0qaY@RHmeC%rZD?%7CP z6n-VRSL1^H|B!s!H0j=%{8Lc!<>}LtS5I%Ay#DfAseRlUg7?yu;`&;o zo|=nqYZ5PU`4O(3Z#-e~yYoAatIvL{&VJn8n@OY8=ErQ`KH+}XeIJgLv8Pl$>6DCQ z>Z+Kqd~5pCgN6IjkNlPjx2f9FBfezII|tA2i&^4QjiQonr>_6lU-Gi^Q~9(jF3U~_ zY)g@|Fg{iD>y=<$^=r0&lI9W~ob`s6v(mHgBnX6UUdxu4m@I!F<)2pT=hBYqx`LLD zS+=`O=dFwq){R}t%iFbR4~N5q1JBC$ib!dCuVpSRoqf-uHu|c2;%jMxf9ye(vy;y0 zE_J!XBQtGfwVhdF@}(Vf_r-JhE?brU__&kxoe3ARmL`k+{vs^!iS74}PlXG6ywmt+ zW$S;wbwTz){P}gC4fZSMWp-cMYnHq<@A#q+i?BsnUaiGJr&KlsN9uM@{xpqa(XR7N z-^7(&ZeLpxCcZ2DxaKbB=R4(2O?e`_GHPkrnOEDI0zOWT5(#TGS@6G8qGPT8)6jei z@B8;Sr=My&c14j*PqZ}q^AF#@Z?}FH>i(pY-xbl<7tLv;f5KgH&1Zk##KZg{l)Y-QTNk+s@-M3z`}dW#9`vG z4ErOF54SgaZIadOn|$T}UgIZvmWQ9-o4X{|($#Lp!iqT$_gK!kX+C?O@NBvN(*J6U z>OOt6zw_+qQ_nefJI>bo-J8?#u>M!#*=Lj4H~8G>y)gGuSe~4Xz2M<0b@OvG{jzpf z7Sw(E8aC(MuXCQ_Q*N)iJXhdSiCg}DE7l2N-kRI*Pk;E>!enpo?e`zbgCZ1lV+-3Z zN8MQP=9^?+YiZc5x2k=;ldk>9m#g8s;klbLcEhEtBYwNiePER{C#XMcHEN8 zWX_p)?4I%;BYuvKb=z<4+{3b5naL}1so=h#RmJym=TGugin{e}-S*q+DK>wCX2<2p zAMD%`&9;oIAn zJ20(%U?7-%H!lLPXAed*PU6$da!EB zJe%KZc=SIrRW&hRy6UL8+K`}=-{zuc2%0W<6`MSu7wQ`nhyW1 zwS4%O>H9yCcfS1E4jyy1uD$HG;>ngtj%&9Tr>EY@V3%fn*>K!Hak=~h^G)GeJEE)> zdwq2blvTaV$#Pus%Ynrf%hulZ=-TVib>XY+iH94GF5adjVP?{>~Fwgtys@Qs`Mj$z41rvMv`FBymD zGE4o)4L_hDT6V8Vr^C@@itx)X-8VnhWF2tSDzTY&Gw)n(jGzw-b5UxIiiKZQr<#0! zX6s6w!g~pQO(MLn{NEkC=T>$~>RYgr;G9e+QS*ZHF zo>hK`-R_S+%YzQzG7+izT~$;yd+BlR=YmFg%eF3J`dH%-Z%`;S zB;(|bo2O29+d1i2seoP2tt$oB3;S12Q{4M)_v;^rSMKinF>&$MH7(bEC?7oQvW0i+ z)=NPeTN{`I9m@~C?)~cUOJN1GVq7zitij7`d@LK>y^k-9d-Ava^09>}0qSmoJx$Z^ zsBuXeU9^ojJn^?h-mEnK#=a?YUi`keL-pcT<_Y(<-tQq7gK=*{X+c}HdBhrpCc}$02LrUu=dhaYe$vjVE^P8$w3x5dX34@Cb`PIB zO%PD&XS-3s84>915?I+JJ!@Ti@IH%@`4zrv_)A$|#5jE4J87%%$%GU4Vr`gu&#c%u zyU_e>0Z(&f{eeSYyQ3^LtuNp1-MX+?OJ+-f%sbzyzKudRxLz1O`(qI+y?C)yRm_{i zu|ehzE+yBGTuu1qnjdv#@3P-FvQJ7~X`TGzY@EBISgD9wNz@Cm%J32qshn=ZhZ3LS zt_QkIR({HB`_-@c>j9SF65Sc83zFjA-TauO`uPo0kHos~VvF3^%MG-iag;61HjDcy z!+vX@<*L8t?&sJxJdJX?qJHR`{*T=PbB?T*OzYV)A>m1)O4H--i>J6dt-rEE`;qMH zxKBk3r?;<@|Eep@T*}`4Aj$Oowavn_cV3TssK%t+@vE&Vy7~RCb%)pLwM%TvX8rs< zXoY~&TnXn7hjy?v75tCwFOAmu<#_CtXcBX!LZWA#%sk@<*gGdO}qnHPgdG^C<%DGx^7EY zwf59cf%p%pKPP;fYUwxsV@cDc4IC2Ry*+ZWZ+d1&*fntR{d{_-ao#fKv#Xwl{;Hm^ zF399c*ut+f?7lZTEf%==0#;@QHQretLkH z%Q@*n+JdX9Ma_I0jN_JOuARZ+6K{GTGCl&_xqDIK$YwPOsT+SZw~;t-QuT zy0~QO2d!M|^rLH-J}EG>h&?%%wl7j{vjDf{hYOt|6_5Crt_}X~^*DO@t<`@yE_PW> zI;AjQ_`9jn3fHgS8Vh<39X_Jy(stUm`9KVN%G|b+m)ADGd+ff;?1Am%I0st}mJJWq ze+*y7es-Tn#V@b+=q+Yd~wz=J2QS0Tz zk`XCl%)9hpmQn4ZdH);iZxp}IJjL&pq^Ny9U6t|6DwPHX?GIZ8rX((E6Wi+ZYN1X{ zTgZw(A0)o44L_1R=iM)ZDP41>pOIX7Y^T=d{!=-Yd~@6*{&?=4g~^KQ#GnOCm5{7?Vpu5>qFxnY*i z)(U~fR5=c(A6F|IPDZ51bh9`2XMJGMn_2lSa;pOG{`^ay*Sz_V>-yB>Phr)q=siVR z{O*(Y8#HMv>|pqQZbQ{gl^-{YoYph7IDJ^&mb$9)L+sfl67wcaKO*j()!Me>%&lc% zE(!13B|L978W(Qkxt=Iw_wd`UB%#jR^QSyqY-FQRpiv-tiFDQrl#P)siYI?uw=8|r*{2|YSX*_#SCri zCbhmYaLq9g^ji3KiRj$MYWvgHYZCmE0@S`#JZgI=G3T*Ui9{|(^KZo*4(A8{tXE!V z?by!+o2K*DML_Ut1E zq;h&MmJ2WiJE$HZ<{16apRPOp!tT35O(QO#Tm-yLL>i}%AJ`clz7wc zLR(kZ-vz(+oQcy};jhf(#q7&g`zvMAV`r8+sTiLu2N~J(dmmMZ@t$uv=*M$XFxlr; z=RJoInQKCx0j82)3a3PVIkzy$JLB<#?%!cM)SGWUSkSd<>z2I0m&c`cJ>YHk7h>(+ z=iNJrFKwA{(S={J57jGUW}ms2bnxxdf&i8_^YE50A&WEj%}uv1i#Q>oP?aS9#q~-} z(B>s96C!`TQWjZR;mfX{XNaT`dhWSMu8&-u&B7!t(m#n7KUFDqFcWn@-*G zXx}5hCrgi?+7co4^5MPN)|MG(pU3Q!n%LNNWMiSRnYC*W*Kw)4$COGGjl{w(etNV@ z*qF=NV2i<|D}3j#aBb7N;c)Wzr8Q3Xq`j{uZ`0WI`s}mzoQQvAi*&d3NbN8_xIbaW zdH*ek(`9F;pYz+d>)Utnls`Y%-&{Dk@!(fo=d?@ConKd3eGj;|rap90^~6UOUJ{HS zC#yVXtF!8e%`eQmp*SsWQ}O*JF~w_o*Vt{ooTa-`M}F;Hn?q`$z0w&2`m$ zM#=_<$7!a2SJWHLSa)f$X-?*mBfh%=G&Yrf&CuCq8(=Hd8<=Hv`SAC4rjFL^+OE9) znyaLA_`-|aJAaI&O$dZi}%X;5EJ@7px@Aa>T3$wRgo0wsh(S2-kP=4&b z1tmRQ38{O75>_7i=2((!D`pzL^v*=aw31J^Snn5ny13$u!yH#1-1 zTl3@zHp@6Xwkh!aw}|r(zU?9<%&_Gw{wo6#PRQ^ANkMXJU_qaQ1ODOz|?Ie=@8W+3B?3YSrm*cl+K;3N8JRioL5{`}KXt_Jy?%rhea2@LbR@&))j$gIurue}25>w5im8wq5Pt+KYA9 zew}hD`|>sY3fr}fJAOMH{%WvJM67!8E56J(g|Dvqh+q04n{d5*r`_p`&%HdOm-YQx z=lDyp;>FA5r!UMq6LaC^jPI&RucuAg*BbkNRsKPf!`IS03ifv-8LJ$ynNYg;Xxx^N z;+mO)tB%_+dQY3y&#N0;_A1z1g1Pkg)>((OJs)qm+}=HR!wR$V$YlOG-yW=$ta`hw z?OX8M-XD`*tz&8Tni2SY$VzZo-flLGFpi^&9KYq#uT||#;JD-XP^T=mIn7{0`N~AK5-}gm=KcHHdLQ{N z^s}3FJR<~4=8ce}rAYY3h&wP0Vr-`$4mA)(x?JM8Zq+14d4e)X7KaZKW} zE_L4Ps~&m&T4ljkzJ9%^;JZa)QS1{MyS|l2aOr-mwzyQt@@|tz6x+o}bql7|)18hp zeK^p#E`;0mn2gAkO@6 z6Pb<8xy9@m0Z$Ka_VV;;&dq7?_P1}i^wdrDlR@*ZPfzOeo#Izu87u+~0p%xUahaH! zn!|Vbm}6PcVNTS7j=Q$8`7%2vzW*g!6`i>-an}7MjVvcr*(M#BzWdF~-15W|lm0Y% zY)a0a8=Ld#{(6tH$)P!A=XY5;bKlMQ^!GM{xUJpn0!5q0ae*v#@eZ}Ck)@y<&cpSYcWCy?c5u`zD7MiOg=UR&{+Se?mKOLH}`~#z#yp z0h%s_{>uKWzZP51wwWsS+EVN6%qg3mu9%d$s?;Yq;KUJ=>sMVbTB`ZD{`{|_nRP+A zKxdun!>mL;wy*bDMWUMR#bx!oc;zYz&4V|7lQ_uV_J834ce&@a504#pjeNk9!_UEV zUwp-Vef7#2t(mc!Hy-GQFV-CB|mnhT!@Uy|6|1n3O_iDzReV!PgvE^5g?#Gj-?(1m#b1RzN z*tx-n^Ud=`7T3QOH{MjVIPhTpqi6GU7$59uT)=X;{f44*?V6T}0uCRq&0e;GYQJ+K973PJi^a@}tuGcgGv07JbVx+( zSnq^0?V&YWUo2pre)2cZ#nYR9Y`*qr|C6r%hjPhBkAJux`SG~Ox^0h=1L`yMWbE~K zM)91sIl+{aTf3!n-U0h#PW}Q1v}@-+_LZo~S`^`(x#iM+9pfvn{}-)Ji<-visJ&Jp z#vq-S^=naJ(vIW}%!>v1c6ogJUE6eE)2E<$n$OcbV)|xGun7<~7mt&14oDPbHQa1f zlswa9k{VWWuu+es~k*BKia zz81}0xS;OG!k0byQLm3~+NPcG^~pJTr>?_k8BT%XAGaQy{aVs6Ek3$u$EN49o+8Uy z8$^9>9Pm9n({Sg4y%P@^sPmo>yVGHm@Z58emzSP%t1io2;F@G=Zp{1N+ZP60wq)Ng{N!iX9|NE3k-UN2 z4ikkQMBMnKzGg0)Y0rVJ-S?I#l=jYhf60HUoUh!5OZUF-zY@38U?EG_)~^+B7z8Vd zr^@**clv6`?5|_Y#RvW!}6FSWxyrr0*;b^bsnF?cu2R@xH}xlxhm4XPMP>gOtyuiw;d96Rk9IZf{MZ*T zo3(tlM))~~{br44Zv{j?O!r}Y&=%EWA&tIdJ^FBQ=ey}y@LGa$Sxsn+VK3Ma7T&T|bA~)m6 zg9N8*r+!Tu^G`)D=O2z`2Z%f8Ch1Yo&_Z3I_js-m}?cx284NzD`ux(V1}H z&-&0&>qGStjJsAHNOaj(a_h*aytFf+No+a!>J|pc;Wru%Jz4en$o>cO`_#;nPF=mT z>}Jn(mJ`>D*Uk`=T|cKlO-%ba3*(I`6QnCWluVp>e`wF#n`xlZSj)2Mzh?iZbv!?x z-r;0>{myj}S4(SMee<1DQ(hl5FmSt(eNW-worPZ?O#gAuqJckph7rGYe&!=K2jkPu z@l#UcT4r%w@|e?BUAKJk#D%LoF1s=?K0P*X{%7u0`mC&9eQ%nHdcVGFsP#klTC=E1 zUi6i)m-{#0Z)%cEOiZu15cG3`^#P7`_a_Q(`ZbBkb@qw%p-GunCVmb!O_&n#Dy0WX@{4!{pNZXv-_S8-(Sy`=RW#w55BX8Y;OGe=Bn0Bo1R1KH7vL6^5%Hx z5dJZtb~;1%?$(HQhq+m@eyP$AjxL(h->bLJDRE2pa#`J~ujgzc?#yX;~1%7}%k zufI-;IbqiEQ0^$3Ayahjhuxt$0*eboq>pgOoMSV*ves;e#`Dd*Ng{oD&9|~U+AGg3 zx%6#gh*?^@v2W8kL!ZeCA67N&niYEb`EBLKYMyEp4w*A@oLA1Xig3*gl#^#Ye!U_` zev_olgN2sNT^08HQEPwwu->;uC?5A#> zyx_m>v7x+8(~qv4eJ{!v$!lL0tNU^H(Agj7nle3{*h_Vo`Ls*R8XBWBIsWW76O}a; z+NM3hyqk^5$!MiUJl{@h|KBM*e;NGLP0uGUct6|W{f6TnT!%!BH{Sic}Y_*H?Xun%RKPhozu%$c1OQstjWr~`h8CqwFF&JpTu}$ zt()khr4On$E_uqomz}rHbqDt+?NYWMoOKiTTswS#Z(o6TSAp6YuR?`=cFb|qoX5rcu`J#4 zl*JE)3#BSN-ofTfRddDX#vS_m@x>o8*0$2?p;g^%HS1i(@Ao|syBWVL$}?)7pZll1r);iZ(DkRU4P2^kt@~`aXByA4by32bG~4Iquc*?L zn0zaO=Xz-{dy!V6%Zio%Z5d7C{K}dG<_ldc-ZG=#?TfBS*Kx5~2AenUY*jncc8jG= zOzQrt1)WoW>B^dHZ1Vpbd4{9($mzYl`BTM;dG(p+gx$24S#4mmT{<`0VdJUNo$RSA z*`y|{U13#ORa@kDjn{7GhL5Wj&AqTC_lcV3^taXj7R`%1^y|*&>*k(C#y78jEWX-% zef5*u6AvVnAAj!B_~C4v${knXSr)VQI<^@{S2br`tW>|q(_u0z{F!U;{|`;ucIAdV zpRsvf-mHnoC7y`b9P_(w`n%J%KH7jOaDB3Pix9*F@9(KWC^^#UyYmK<)i?{d0D6CD{vGL`@$bZWJ zMYd-?&9iysdi-uhp;(w&zLoGj!{jFmT5jvr-};{*P!;`ra+KRbMZIEy^Iw0YL><=- zxX;>tg0diPveo(HS`nyj)tkXbrEBe&MExAG20 zT0)d=aE?N+?-^;on$`txZVMf+xxGB0MUH*Xic5?d`!obZ>`et-nZw`)ss)R-=F_?Bj5eU`S+%6mp}E``R}%8?sqr0 ztUK0a>m7Zw@a__^k77@+-rAerFBzf#s%lN1>-q`@t-vK#myd)poG9^?y?H(PbIGA6 zA|YowzV3ALw0_aCqKWs$F3(r{JQCN)#P;ZYzWv=+#9;CCr)%{jPu82Ye(y*>AXsr> zM*TuAzD>)vS)|R9yL3DJXoQ?$oA1BB+j@S;uF{;_dt-yL*xotP_TBwy4L+B)ifrdo zT{rFdx$;))`2OQ_*U$JdXZ5^Ck!HPZk2}5oWYxR*ioP)JI^invJJdhzB;SXqnSbW~ z6lglDzTx5evrC_Q`}*2GSoXbh&SS@ea#(dUh)zP?LJ! zD)!Z!@4IXp&Bc0eD^wly`S4_&{Vk0dpDk;RSQU2fJ+dz%?pJ_Z z;N#1$pWWtXJ*xloZSv>z7rE~h=YP86^Ws_Bi3#Vo{++jW%EnWjmQ@@TCq%fMKkZyw zyYR^w*4b}<{(K@@T5(%R`B}pf`Gg$*OFHFthO#m$oicOW-tu3T?DW6iC#1<`#`EhY zXTv$`DGUPbXAB?91YQxhI(c^6Nj<=^YOMXKTUiO)yZ zyt{JokkxJN)EB%hiWga5Ob|P}e75w?i6uv@CuWsdG2HlEUg9RH+%m<1+STU{`BipZShR5OEIn77m&=$`cNbWC&pj0SkcruS@`arRA7=c!pD}B@ zY^?8u{!Q*?nNjano%`s%P1@OD>CF!nTW4+bH+XHZ{qttl#UA~OzOyFmZ+frcQ1VF8 z!q@5okBhnGj=f(t-BPSgR5-9DDPZyX&E0F#oGj+w_3UWS@)K1y-dNTuQ0dXURz2eJ z{j2G7vj22Ougu9*j@|Kn=`OVuh5PoKhrTiXJV9>bhQIkCP3c_Py63b`vh?mvYf7Gy zt`sItI4-stqL zE4R{p`nuZ-?>ywYu zHfVpfjFelnCRRgaGxyCk$k-?s#!i)XOZykRE|x%gideUI46Ez65p9; z8IKqJI4WjyxaIlW8SE#%vuOB6u&vH(JtX;L@@yTB<6Gv;ch8Iqy3_1ZGB4@Pm1@r= z$2O(AP5)XNAKdGH)igmWB46rdXTTEq{98%|GU4ru7tc+VX^Yt=y5XYuQ}x~RrCuk- zTsyXAb@>u!?)yx#JkCsuT?>MPcNJ`u3!P%c9jVtgH%Me%(emRJp}Mw_Rx*ogv;3#A zxKy6h*rLz-aP#gCuB%V2w@$jscl}6doaCmb2P%8Nr@Bup7mN$3jkR#^$P?Y8y}Nan zu!)YV)8oHK4)0k#;bGDCS!=6zcdgqzbM5?Jzc+f!%3tN3eZH>f&XrcFrAq9F-|EE9 zJ@(Uk3V+M~WjDQVr_Vn0d|r!spQw9drGpSU0KKVxAtax}a*wb$xFgOB6o_Yprz+stO9 zE_c*zwn#iI@|@wKc73hnQ{yhoAyVPem-C#9kL80{r5OIfp88CaQy=uWYgO=IiNa8OQE{ z-fv+hpOu_nutj*hOWevdv9REItH7oH&dc5=tMAuza_$>cnwjawo z!F?}X9<2Z5yPU06BYkg29^d^Er3HLHeAU+_KRHc# zP0hCw-kns3;s&*c^o`;0*X>$dI_vVW7khuy157#q;|j{+yOMzUJR!mNw08MUyYb zoW6SUs9^VF+4(Zz+R0arERCBRBU`)w-(ABq`ghjct>Wsx_37)~k8XvQl6u#r|6lV; zeY9Bq!+Q${-wjT44)U)^JCR>MRleThr?9|rQ`Nk~>Hb&SW}f6c9HyS`aIIcG|JliN zUd8+N9ZOFYVV64JZ+_^5r}xHxzYVtwHy^$BK9NzgWn$i6!@jK!hg9vj7xI|DHvThr z&J;5TN%P4;XV%!aADnZ(>Tlzp53)ZWYT9`}T@t%r@AQS0FF&WpxcMLYc=1JajhP!) zbIIWhL(S6@_U-wzGd}1%+lgPQmG!axA8Rg5(h<3Fd(K{_XVIL`-~X%%_j|F&=H7$F zPkcJQhF1PwXA?L5`1PkBH`&~KCRvrvVbep^xPL-!MrpRpuB66}jzsb9B%jc1{hhu8ix%SN~wum_vJ5A|e?>o6IAq(uaKK__$FMYT%`{~AV zGoF(sW`EyF<{UiLsU1Dhc4F*4T@&BL!xd%|EyXn6n*CeFZ_f4#E%9U&vxA9{ZJyb;VN(PrA)6Brd0 zJ$lLU(~n>4NO6C-z0pP6|7dMy+JpTLF4~9YPfwlyJXQ0w+>@}xStl(+*M`*GyYxgT z@8|K>lV9`2?b`8Z$u^ZrBz-YE~Zp8KopeQ2@e zyat}&1z*hszOCZ8wfgBzJEuOAN0Y18di9y*OyisLBiM7g@x1AxjP}!(-ZMWWc<0AY z#mEDW2M)SjSE@Q z54$&Mvf`D01t%s8GR)G=kN8|1`Q~~13B}9WYK%IW_kJ+&UI_CP3`@NCzleE8?OF%U zJ?Bn;HNUsH$mI;f-GowI%j3--hVer4@v zYKPP2EsIzb?td)wMk4o|i3u--Zg?kHzMXO)XjkU1Kf8V{obxn=v0eCwcVjK{qTLGo z0exXLK?2c#|J`UxHViY5kn3!lvGJLam40SzPFo1aW_7`TcX*G@RH)l5(7>5F=i(9W zqP7LMcDWeN>C1HzKe8=mmVv~#g_2&CQA?$xS?aVFC+0FdOGs2>{2cZ`@_P$+aMdBU zy(=b7-lfJd*XUc4pzY6x=EpTclGubw+U5pE^}J^Dsau|MbhpR6A`_k;9xoIeeQ)rr z;5>1Cc0rcUB@cxImC}>M<)Sjwx~g0n<~4aAc^jBIcV*}_wg{6eGOUUDjRp%H>h6mD z{dz2v>3Vqmd9!cl-F-6HpJgrm=&v3YF0h=@ee215z5cj6;({JFLiWruE*p;VZ{(L* z_R#Xrg5y8!a&8!2yS35giCBBa1gDGK&jYu<&_CX$$a(a+!Ti!SNws0E3ywF*T5R(B zDH*`hQjpR&qj$pr=A@K&Of!$YJeSgYjP21B)*nsBPHXVDO)j1or>5G{b#7Mf&GtP9 zUsq^d3wU(Cp1N7dtjTNLa8&<|SLK%xBpI|JGnx>lrKp z&nIsdcWBf;x9U@8vh;1=>GRZ??p{A5^=!VKxBAIr1_!$LrwN}hYK)r4n{%RV>ESQg z%VVa8&b+zdn31JS57*oeTlB4`+|5^N5Z!due@Q^|!qs>5)~##sjTX`NaGrOg>uF{M zYyakxQVB6F+h=6m*~KQaf3?xVD`hoV9~`YZ8~7Fetl5x1`OM-&e|4U`owE7Mij}(S zPBYcbJ~f&9JwvAP48Co~j~`w%VlkaluDO4O@ns)Bt0?!QACxX7|G0Lg4{ek_3_>C z@msn&K_+sh;3Zdc|1bMa+}yoZh*ij zONc)bT77=;g3r3UU!CBdTfraDdXwe28s}nvu5)*oWSnc*CF+}O#X=_@;yf_FKR{IT zD2v0EOH-s0svSk=m~P#&XDvUoj&IB}O~+5V7T?*Hb?$6F^j1{TCFE>@uz%kw(SrN` zP6wFIX-fUQFe_d>q%AY8*+^m?t z(r1rbzv9jmhkcV~NKAX38n?*wPs)+mclW%Gj&bR|=@yq~x+1~0xNI3akL%MN(|ir$ z0#AlzbQHw#wN9G3q?+)m3rLtli`A+U=SbKP3xT z%T3|^5YgIo=%?1TW&F24-zeBpT+DrD9rqj6S|9V3&pns^lH;q8Gt|5h7xd-tHj4|B zKYiQ%DI#mi2jc_nT;HDlQa$oD|1yI#<4*YxOLc5mo~(4&W=_{%`){pC@}E@>d)FlA z{xxfUzcQy@%iBMCX=Sk5(lyI6#D6bb(^{`1Ab#YV@y3*khny|;`5)5pWAfAD*8bBJ z{yy;8n%O$#?VJ2O@0LAuG+^C)`a$=U-<}&c95H5HYi$srujHkmnzLYwc+43aaeGUWI_rBX(#)l%mAo;06m*S$O0C41ktTsBKc%wTX_Db1o; z;_>!XXYk8?dBwU7R=p5mo5HvaDmUYWipnPErMTc*^Gtd(Jb z)&F#+wEYNkc=a`6$u!UYwv$&9t=^`1C{{Zg@BTaK%)*tdTYMNVt?x$3vN-wrKc^vhd#eaD=M4WAa6Ox{%Dn>TUQk-jA_`Ih&;KJOfB#a+F zHQoCnX1BKA?`+UJePfrjmI~+7N4XAK_or=FKRQdlAaM5e-x2qw&3d+%p`Cwm!Q}s< zI`a=-_La=odtz5;Raa!*>Xk*u78^b|GW{u6bFcJN3-h-N4dj<~XTSZxSrpDZBXEnD zbgHwhzDP`4>W$;CtJbf*6>eT7mJ!L!>&oO8I$=V%xc#RT`CnVRW*f+wUEdeOf9K@w z6W+(ZU-`9G(}*|W^i#7r@qt(N`Tmf|C|$YMeA?m3>0b>P)NL}8w*?fe6!i6~{`z7% zgDT7W3Hvz$YF7U!|G9C=o`%L7EL^)5D#jg|BJTcvQv4nHyhAJu=91?aY6`X_mt9#p zuf#I%$Sv5uf_Xb>orM3ZY-G z=%hu?K6%D@#iQ>g$4=ztX|BEX_M6Czyz_0pZYNE8f9kRCaVutlL-+oiDb4I<i5(S@J~d%wMMh zw3}}9Ds(;Sw_dQ5CGeBoygVy|El!uK&2%5vI9%PZ=2A(}Bc~?bT%CU+=_R*#ti7e; z+YfJDyT|vkMu+l@>-(Qst?}Qo%uVIkp+_@x5=9fv7VPJL_I>3co3g43NEUVhZ;b>LH zQ1~?1JLlUR$$%~H6B8%+te>ITi>s){a)3QYxXg={b%Tj<2)XdajW6L3Eyi^%=r&2)4TKY z%gvf&Y&W(vPh!eSmU}PQrBW=E^vFGc#rT2eRT0r69-6y!`kz1jSf)MevDAr4H>V~U ziZkBR$zYp%>~hEpzt2bC$v2-UwCieV4mhMg^A&5BU7Ommxzida|8o1SE^zw#1H;DR z`A-*5>oZyO<4V){+d@}7jz4?X*INBa^y|(%*HzITx6V5}5mM1RQ8i!FBXcu?% zPcF*ae`%_1O*d@X^kw>${pQI9wNJNATWfIjT$^l(h~-iz`#0&Q+a)*5Z{GYQ(o|fl zDolPh-v&3Gx&xmU_i$N6lXX7*fuB*pVLk`zDINg7gYGS)5>%-}qvyM}8ES46yd+dBWiFNJ9 z#AvmM`aQ3`n{MCUQ2X%o=b1kj--=nDb!m6nlha3w!>w*t_f(&oakw*RU0lY)~K2<&H(^3wb?JszaevXrB2>E3dtpeslh-V3meDbJuYGxW6gH-mf}daKpw!%cr}qZPgE|USzYu z$mO1=@yC+PU-5^my$*Eeg?-ub{l}KDN!^|=ZhS8fT%)4c^+mnR?(&y{uZ^v`8oD0M zDHna}gQqFQ2U}XNFj1*?y)J8hzlohCy;XMmgO#Ezd|L#+fAlekcxGT~7`^X;5t^;s(~ue-RzYksqAhhFf^KmE9U)2+&x4|jRr41EZyBaCWrm`ioXw<;Ym@b??mTpR=+3w`)2{i;qSG>Avx@e!eV_7)VZJ7t_p9|s zZ5K0Mo>6smuHSdpono#f`_tT?>+S#IeKp?eNAk%qUau9JFVDtI&F!p|zCU5p<8KRC zzF3BD&n~N6?5BR^j8C5Nt%=?>4_q4p3JSWtbj;3hZ1=xg{KfEHptWn(*N3^riMwX) z(zudPmA(Eodoz#z+W&f!W23A3Gar4<-67anp6rph_{+?HB9$jy4x89J-2ON{ao%*% z+S>v*#F!60cYFN(z0Vf0O*!sQj<4ygxBaE=CN}p8mJvYExE^=}(7?zHzK+oX%Q{92 zqSi6KwY^;=YhLtw%?_>o2lh;iEVkLfTsCJ_j_Nve{(vNrX~r@VBU& zZ}u+(Ub6k0o6f$n_#!Lgeuizs!ElY!>;A7=5WGw#@u#KByoiwCE$Y3& zcgh35vDU||n0!{@_T)z#t>~iubVP!k4eK_gOHUSMjyib;}qSSwjYz^uikkq zJvW^_<>S10XJr_q^&emHYq#kvY+%a2@p-w$;+X}W|DLY?_oiZB{f>%n)=%zFzRsdt zvB5Fp!G+02pJo0W^of-)_ssUcBcmpplJd$tcFw-F4s*9}a-MSK`^Gh|-l*(d6}~t1 zxfq9(<GarlGX#Li0x;?`NE*MzuC^Yh)D74WLk@_W0x&Gzk+#W%%e zofU4FE!pf-_>jNz$KHZ@hc!3KrJB^Ajy#n8?P08Bk+ft-u+R+So&vtU=Z;UUrq>x= zyLPAZeaq%0{%m)2d{<6YKC7Cq@F`MO%TC*AM$h$$7q!%t7XLlny7$`*W8117zb!20 zhD!(pcCuz=i{-s(TK!_aBUkBs$$KXwk6m2BAHla`_7AbX-A6M&8=03x*dBh@@PDde zO(ox%bH0KJuV+VjB(k1nTi7Vgxv^oX=<~HH@8j7yZq97cJZ1ae<@!OvC(bfVDqq$MJCZ{yOuI2Kp=czv8k`1dlH^+Fzm;NrjzGlVOTc%wVGa^s*du+@uT5$dO z#9KWRxzA5#nkRgRdBygtTg9WEpD<3~%`ea{bKn>ed zGjYjkA?^*28-JTvePpd+xwe;U-QDF|4B{RKE}7lK$ZUDh$|G}PYVYJM$<r6jX` zsg&_UJH1z1Y`WrOk7o9W9q1C&iV|FX%s6}TH_Oknn%3sL5WmQCRbM;iu+%om9}B0% zIJ5IEKj6M6dHaM5LWWcH<=vUfS58^CW!I!U%XRJhneMr2+$dvdJl`t!BjYQN-Q03t z`F%;j#TPl#6ec`OiT!Rji}U6-_i4}hb7altC~8XH`FSj>xmsQ;yklm9O!^e3r?cXI z?c|=^`Z$tN#=q#2pR&xSQ@<^o&OH-XG;7e>I^l)*${8mPO*y@9mrdmE&NnlsK6tn5 zca>5U%Z7=uvmSj}e@^dT@!l>b)A(;!nw!HozkLkP^ii*ymVZlI;ZES}HyV%n9!#Gy z)!Sj0^%aYUr51k;jq2qexp)1^n-f%*lwrF;(L(v5n)LHEFHRlWuc5M*Q^dg3-yv;z zeR~2!(WOA%hGx#C+C|UzJn5RKbw9-^&vbXsg@knG&Ob-1Z1&1?%6>7p$*|$-lTA|- zBC~H7O-r42`(U1uPb;sk_VLG=3nim_=eRyxDV*-O|GntXDc3dy-@0JB>e&LVr;{ol zO1%z0fO^De;xlMR~V>e6ruM}(1K~gX=}5F zldG&nItxk{&U)Cs_==9+pD=+rynnLA8@i`n{km{&U8K#eGxql$xtA<3&cDKC|Kj5= zn{7V~pR9S&y=mW0=On%F6NOCfC|<6%I4!wx{_2X~r>?)7wEIWYuXQKq-sD`TX;yJt z{f+H&i<;MSrI&s$e=74PILXSZ`{eT9L%|%WDTc;tQp|bt zB^_?E$^2XTL2lE%x5+yyUhNKJ43{k^XK`Bbb!Fr3eNTB>#1*&9Xs-k;UH7f)*PS*0!7S1H%;({;)Sd&zXE{zq(FDiqGY% zL;H;;Q+>;Z(lWRMU&FDI* zReWCk+ArftmVMS!iZ1spRCLP!*;d#Qm{xLb^^5$E2K|?9>rZF7_NdR`wO{P!8c=G$ zc3e;5@vYwx4IlbEKkjR9-P>#J`exeHj~gF!oV8#IIAyVD*Sno(!e6u$J&}6(W|mmb z;oj|42@ecd)n=J;KA9RhIlX;yp-*(X!C!>U<@sdw(rKR2yr zlD(~pf=$zY_GGs!-cv<1=Kc7#Y>%ye|NE$;^J}l2E7-j6kg~yXmJN)ldq3MxFa7^V zK%uwDZo-6UiPEiawmV#2@HS(;n_R-Vhl}TFwm#*NzBy}4g4J!`dmV*AsdCy?b`z3+ zA8jw(y?JV{KJ!C|EGZjJi*xffUTn_kt^NM|z@?DgSD*c2=)TO(y1Gqp0Siw}V2sNC zj(yU)1uSusFYMcxmwbcqU4-tb&kig#$HgArE3~`+;PUDUR*OYq-aAwm`~Bbe$>`1so<~nuX7)La1m3`%Rb`q z$*8r8caHlTo<7-$rV~Y#SIx12!=QzAao5lQzCEsy=!xifl?<}h42``jWeY3L-(@%z zWU%V&j+e_PC%g)IyYu0Lu7%3{CvJpFN4*r7tda8M@(icsSzFfJa>@Czk?&lH-Nm;t zyl-XWm-*h=oH0AJ%01?&*S_wF>g&$36-};MlD zb`C2`)$A_E$=RNYsy=roO|oWO%~`o2@%YnsJZ1~JkNujZ{4S~J&RO-`2k-XuO<#Zb zanic=$&piQW=>r6f76m#AA|3I{n}s7eCBb`Oje6^pVl48C^{DZEx_ex?3N;Z(fBQk zrn&S;OiU7U+HApew=k18fb@4`c6iu%D9XQ@r8v zc&+eH+Z)SH9#mh$%Bqm>)BNqO@Y;-X=aN=>{Wf=-sqHW4k+uEy}L>Q#E1-MG8rmZ0*Tf|8@M)lM6JP2i1;_6=ND&*{m-9Z|))6C2yDgI)6SmYukyi}r1cyL0u{ z(aB8{L{|4O*VvYCWfy++p+tLrtis(5qU*N2ot0Ry@vPz*p|;ge7e`DJzVXjT@A8>j z?-vK~Mrg{42TO(aPucnFC=ai8v}0rOnZLgRpZz=0XwI^sc(KCW(#8nUZuiKRWABUI zcEVfA_E- z$?*2@nO@0d9}@X<*$V@)x%<|ZG;QB}!{1Ts`su4PrWXcFG|Ot)E}0x<95UB(sd=c~ z4#&G2g+H34iAs5t7e`2X&g}~W?;a;i;E73>E~v9>sm`-Iva&T)K5)eqtHfPRQ8_)q0!ge3 z*4MN!SLgedys%9VeBnEv$H2w(Q>V!ii*$P}>3b5h`KPGdY&FlmYH6ssndhiQoM{$! z*I@-0_4xjYC6C$H#;#xTy4fryr}69ed%Tf{LT7$=;NBE;@}b0IrH`kN_HwyD{k5P= zH-qg@kM`U?rqpvw+|EyyiMQwSk`zLQ+wufhi z)_1)>#_AKZ2Ki+*;&0ijR zV0UfJ1h<}mnvF#k$rbX#Mt`U63YfE;+pM%_U+C2jY}INovkJnKOB2l`J)Tr&kjpUv3>d<6LUhEi3;hHI{mLMOEq0 z1baajgLRwb=ee+5e|kiU-Gy68^7=U zyxrO-f_rh+q`qp_jZCX;>qXBSiN8*`pJS}oQ912|)xx_~i>DdowIrL1Snk*yR_l|o ztLt=@wwm$@e+GT^d=vA~SCU-HHy*7DW4c_pxYp#6^mO-=w<3yWbsb6eQ?XrSVLZcF ze>I!eTo&_PTTDZBW_}NwFzLYlC)eI`t3_Nl^=RF}{A^vD8p9!7x0b_N>74Oh8$NaE zNxxA!z2?mux8nyi6QA2gFMGZ4thqer72j(Hs?*gzFI(z=rXlN+Q}o>1*|9S-u0IvJ zel9D>ymC)cig=^RXNltst^Xh8q&vN=wP|>F%+<|I{QJV~bCvph6g?iSJu$8OnxCJr z|HO==F^@00YrDzblFUp{+?Kg?#qG|IcdlDX$W;ZraZyU*xnnNWxCcla_$$gh!FyCCf)^b_OE7Td3HJ^Jwh$F15s z+iojs<{iH57%k;)F-wNoX3d1dDLVt7%DeyNTfek+?dCz*Gem9hLmn7KYe@cB4elXr>@_$@V|Z{sQuN>$O_r_%v;;SZXYb2WoBX{a%!Qm zz=GZ-UF9#g@$6^0>}7HF;0M--#UV%cxPBW^h(V$Oew&4<}`dwtt+;MBWUDKnNYb6dGWQQnzH z^2`dKHHS4SgbK}qIuu*IUheNqpP-Un>?m!YBqw=OuPl4!_CL8hcPUAnoO!FPZ10S} zi^R`AzEEss`_<#or3q_|wVu8@8sM@bHSAD@Mf=;tnggp;zHZ*Q_Tsi*Gg-8^ZH-FW zt9ws#QMp*F+`A1KZ`AS_U_J>=Txx`9@FFbPxMaO;ONfcxV=JHR^jMr*D3rr z1Xe8GHgn@v-Bn2vwp=sim)9?MahR}m)+*-HzeCoo+~c!W%26)!rf^u4Uzq2ESvQnt z&YEAcWomMCaYC$dgrrbJgHP$D`r>PuuZkE1O%-CSiWfvi>z2q^v@(QlWA=M`NMO#A zKcNrq1fO2D@25;}3D47&m+#LD)ND7FU9Y$~bd%hgGzO;^RsVk9{Mpig| zdYyk3q&S<{j&-G5+%YNb&Q?;8Wk7_0!bnmA?sC*f?u- zewL$W)Fk0mrGCm9f8T_^D_{`OVw;}X5@IQ>&QmOGxp`MtaK*+=XALxG79YIFTH$M| zB`yBo?=#jD4uWl;tYRC=RTh>RNvZNL?pe$25vlx<>B@#Ojj)|nZ^T~Co;K_7v7(LV zjBL&vzq{+bRbt1Y!)A||T@T9q`S1GivZ+R&2kw z{jG6IU(5SO#Oj{*g3fjh**z>PZ-3x*ywOu!|7rTt1x@>&c$r^cTxoTFmzqxYgV4XN z*Cv~ODhOOIYWgZGW$rQg+zr+#vfM8>T{wUKfNZ!?{`0@q8$#~B`#pVi-?N|J4{c+e zEzmE#$JS*-;=jo%;j-oD{^SehByN)r+#tE~PwQ$uk|j)hSgriO&t-Q#wBl8oc(s^BYSxJ{+aST+W=o?=SVH|a zFfWz*wd<8$w|U|D8?%$AhiuLZTKBi`;eYXLdDk^_AHQEQA!Nmo8}=79WG|#wNoW6X zzPqmbyrq}%&GolXTtK&3)@{<;PR%tqZ;?ui1NKUHh8uhbzvk@H`jK zQDR-#+LkcM<3PZTI?g}3-`x@-EV*)dABi>#mh!Ml%l=4o{+yhou~CNK^3*3`4e5g- z{XBV(-JjmbuXZhH=`GuST4iz1lbjZmtozf}S%D6N&wJc9u z-q&BOa9ZYR&^wPCsr#R9moi!~IsE06kPEH--PDX8xCUWi%(w+%6K(^gA4fpytyL^&1m(OyXdYU8p@Y?^2zpQ$Y z_VZ-2;>xx+M$g}ddO74>lS_FU@@8Azd!sGpg`Dz#!qi2ZJhD|7-lX0C=kxIKZp95{ zx1wG5_dIlY@KWf@X{YH=KmPty5ib`%-Thk4@28)>y(r-{NS@gATDDJ!$^B@@-F+c8 zd%hf%{JUrVoj(_+b=^-WKk9(we@x=W@|^y2og1I5y!B$& z<05@lJGZl1qU9%#6ew@)l;*UaJ)wXrzs^(UOpJl|o0FC+SPFWz)bHwYPd(21z3%&) zdWOlOVf!$r$-t9eplLEQ3sY0XG?^LZLU{|&gc`wx@=s%<^JR}utP}sE%<;yVFL{39 zef@JujOrc}VkK^wdvYHa&zJlAr(?N&L{{;a-@+MbHzv;C zBj_eOcaHs|mA2`5kM77tu2x@o=Hkhti;wS)@4vZZ%akZv%b)r`LT0=QHj6yRQd3vN z)mv|I?{LYI#4~T=9vauAx8B`*FgwYLZbH)WLK)4qpLV}L zHNDX1?8_NmK4H%V7pCieNttr1wzofPlh3j3A3wgn^x&+a-#KaZD({O1b??6F&U}B_ zz)-pDec$(*B)97QyARcG7pp4TA(xRbqm?!G=+>wGhq63wAIxeAGwc8JIB(vQJ!YDx zZ?QxkeRurvm#9yh{3`ESy$`Vov;%i++4dHemp_|3Zd`#Jh|Y&Y-yZ?x?`JD0`MT*Yu@#+{D&|BOsNC71CF z-#Yaniz({Pgr~i4HvO5miP1*uU?Xpu-SaH#J=%7bUlVft#5O(1jpz{g+nRFk-nJF@ zx5`}Jukj_PB89@Km6>2&XdFd*$S~)cY01v ze8POATl#)7?}H=KADUZtR@VpXO`rVrPxsE4oeQ@qsoijhc1_stR`NPj_r{)ilNkFZ z-z(L)tGvrIxqplM6UplzdYES|J^TCwduMioM<;(z__dUE7Y~@XX7l_tDD0h7#(iDo z*P|HjbC*R0gdK9@l`mbd^4!subz*N)%_N6^w$CSDS2BC`A-E#$>2d{)&c!p*H*HT@ zsUE+@bmH4BKYYFNX3u%C_Q1gV@n2Y)5L6Yd==Mk;RX26o358qQ?3abgg1R`lWOrY8>9CWx zHq2a_bBEVf^9Jv&AE~;jGrtyWs<)~965hkpsQ8rk^N)mvm5KH0D(;tmU+cD-|L<81Va=W^_d2++zh5}( zp@+?UcPp!frcbYM9p%`wzw;A=w1f4MM-GKd^IB(bVdrlB;`pQCUD7wbmMpe8yZw9~ z?kGJVQm9lTtR3Jxr%{5n?BJx0rcdpdqDvNpr|8Kub9*mtpIg({lf83oT)Z4}rHD_~ zckh_K>!r-M?iWl^5V{w1_%W|xir?cRTY29pGtAFFYO}m?-#hD=fwHbY^ro`R9V+7q`uGG4F-JQV%;Vbgx6T|0RrYJZ#O_3fCo#7K#afx-L06U!!c z27TG^vF<#kRRm9M}(L7Di{NsJo&7A*5%H4K(@GhLY(WYGd-u}1d$9p%jWlUZZs@r;T zU6g|i#|$eEh7!I7Y*LSYM$QqP(YSkk+uX<1?celY?p^NMa8)Mx-HRvf?&|w%_x#S! zc{{@_$*pSL&V%VkO)AzIedaz;WVT;bL-S77(FE?bbAB3ouE>N+-WWPI8pmuvTaulgYC+OwTG#Jbx!aa~jR zCWfvpEPLinzM69Cz^VOGKC7F15)}mGgcorneV@N@XWFX1{tKPveU1_$DM_anh+O47 z5GSyE$Gl_)1%X(#wC0kXp^Ytj*A|)Xsqb2Be8qdq&y2PyF5Y{0u({hdpFgA}qkQdZ z&a}Py{pn9XUS73UO+sO}q(!;+^PAIGC`tZ!{7OKEGv)3#!ye6ff%TR8ryoCW*2_2e z5?Z-OqksMWniqS6_!2H(&HJ3nxHjqgx3p77pM0^oXran)mp$u}#u3&opQ#l$jVijs z%#wDnAC`Gzxk_B~evo0c^@Ol35qsv#ba1eWGr4{_9nNjZzwK}4I~P8OSzh;5&B`36 zxAKJRnV2=|n@8kr{kTN*m6q$uX)*lb1y*G_ZVBGGk3|KJJiR6HTHD*>B4cW7l1XZR zfXLFziQ$PUKi+dR=N?+VfSJM@Ly!B zQ6Y3o-8XNC%)9u-63@*tW!R?tEuNXVN&kTBwV4l?4*ZzCWAn7|YmayD2u?_P_TIrQ zBueS?s!f3_cLW%V-F;u#A6TlzSN*+YT7yC~BIg?8-^?9GZz%S1b^Q$F`Gt_^v zUp)3g^lqEZx#Iuv6Tj!5D3;=0{8B{p7~{N|lZ9p;sGojw{W->$0>3t!S(m$h-tsF- zvh{^kvBtTM0>_?)27b>!TfPG^IU@UgtS{wgGd3NuuKD(LwqRIg`?@)w&N;O_pZdI2-{e!|GrgOeJU0}? z$mT3?G~{C5^4-jWac^_zB%6B)^DgLTZh4dXa_Q^x41T>YbMD>{kAJc0Q|p1f2QT#b zTsS;A^yB-ZftK+sTe^P>$(=u?%vo%&+b^!lR~L5g-|?!lV?I9XTo_i|oiU#=$RNkS zNOzHkSM2eLoaJUeZQk%Pb7k9gT}}A&t4}YwWuo;giNuM0p8L+MHr#q`?T0BDp&30n zE7#3meK*OmMn&zULv_H39bI#!SGQ?iiiks&$_bz;Ebx1fB82qk1aZ+6xbeR6_(DmJ3-F1)0AIBtZrx4r^gy8 zXNrEzYsuM?P?Vu&-NWQDomXqY^b>5M8n?RGu6{qd@vX-H4J+;`+zI)#b>40++hv~D zC+$14k4rYEZee5o*%NUsdMvZ_A29Zw)yYweV9mY~YwfFR!OQdAIYTBma<0_L)+EJ~ zH$MDmGMn)_=U(~kwh&JpADifKU%3U_JidrqZtCuNt}7d{B(vZ+2T|l}eZA z%6t)LDIwVm^`+Xvg%-shNBU~w|2y(R8T)8*TDKln}D zU}QICNza*Xsk$jgU6Qx1Z9Z0-6E1nfWSf-8u}%*)bEaKJ8~pc#YYUuKU^}s;K=;Cw zY1yCq4);uoT4LHc;X>z}V}VmHM9=k*5fm4YZh)GWG&z7$}D;JYt zYT7tGw_xGZCs!+`+&S_oFl$k3w}D`B^o|36g75A!&#(2~abaVd#!CLz2ll9My`+4H z!})fD^bd>cmi2~t3MX^k%G~wbVPf#fVyjcKR>_~Gm$yZpZ@&3XVp(|b8Don^k=_-S z*Fu=yd~UnK7`v!{*%dqB#28+otq=C5xSmT21zKNa{o$ z=RaQ@wf3CarIiPRh>FXW7t_1>+;-ReT{ywI&epA1 zBGPgBxl2N_TWw6Yhw|)~uFpPR3qLtS?tI#Vmn?eOJuh8(FNP~@@_L&5pw{N??COwN z7v}~S3EeWWS<3t=y2@|WX#uI^+(!;Pj@%24oHO>kY%XG%zAmxj5{o61NN0}M%SUDH zLY69g7jpV$B$^%(TzF~7y~)%&xtNyTylEBfie-% z6*W~43O}5PdArFTt^L&V8oU(ecKgOF7?e@vQHB&>OmD z?ybkI@z*(i|M@dJs=xIf<5IuAxpOvzS)@JWVZQdu+fX5(J2Ci5MStg!3u+;gR%C2a zn#J^7U3Ol0y;GFGp_=9z8CQvOM)Pm7)mNFZeLUbcjkS@Rsq$oMXLZO-;h8pVX_}uO z8LsL0Qdnlh;2nR&Ew|ylYoXAsE&JO!8$v&OYyA5h_SHfm{OI8+7UGX>^3L!@n)Af= z+<0M9rZ+>njn|E{(uV!nfirB^6iiDNUlV+uV*j(d+oH3iKuucxV3r48|I>-(2{!z( zHfqt%T357hDyd&eZ83a1!>R5ltM%p&b%&CkbV-Y8@4b^E5z1QHiCi(2Xrrd%n@8o6T1)sPGXnyT#pZdZvqoz9W-ag%xUyH7_ ziZ#SeWxGFZyNc!iEpK&f_SwaGpNlrA*r{Eb%%XchVP;M6T;H2%A(3q{jg7XVO=&ke z*UU8YT2L6pXZvec-Od+@TPiF*q!jZNl(e-UI%=_pYXjrDGeJp-uX4T$nCe|Ftj}kd zy8m_2JbuZOLa*lBd{kV?lb?K+ZRgCFe|G4-THtfTZj#)I!rG#eH@TH>q&~%}vApko z`RbS4!6vUo9D$-bX966y?RFOv{B*zg`qBkma=W6x>o(j^m|Q9B61ItL?Na`Qa|63~ z89mY5`poC6%#$Z+D>(bp!%LShj#_tXDM$Kxll7Mt7QT8=rkTZ?(=o?wT8rP86S|hZ zFWDBe`LVhRCOrvw`D*Tt%XNy29@^Z`TBI;P?)AK4=_g@fugq+h?SJq8C^_kYUefl9 z7X!X*Nfkae_oAtMeD<0%tNiAM=pS{Nc&mcP^4aZIDu>gJUYmbD%i}F>&T((~mG+|S zG_G?eb@FzPb*r&TnLkcDI>$d)Qti9RxeYuaOe{C2 z?lJk6W^I;oV!^uE6BKm~5A;6E@u`09vM*C9tnAWmwVIvTkIpAbWPV`rs=a#lGmS|N01(vAg5uW0o&GqEugO5EEx_kDz$&$m}4$^j9ESHa%-0ao4v?@GLRzoJQ z;^6IL*Zi20xG#pJ^B#Ec>w3!J6}Qc`{FiKeb3r*`{j{Awv!wFEKdD(1p8on{i&t>% zjuln=m;Gw|!OwjmyMSl?qRsn!`zH4UW*pqPF8axhE6=~YKT}qA@JYgyZO5X28SN@7 z(kgHJD(pRXZp7+2E54cCS7Qr~zs+eVS+_n_amx?8`=@VYY?0b#JbUtXlVq1KcY-9( zzDtgHo^{3St$XXXuUEAqCO2)@SbOJu(@s}|&sJs+zbPNK;AyyhtCBA#>E_zkDlN{f zHad0w=NGcgPno|sFZ>wqZoA&t*~{2|8u`Yod1m zab-({;QBq5SGFvC{YGNX%4MMy87ix+x1>GV{z&TC!Q-xO?b`O9)?wkT!R1{u;>0~4 zuiUApyyZq!j_nhd*&I`Xst&O(y^}6``}{Jw)gSY!-xYsth}dVoL2h%o<@2cA$Q^lp z!OitABXo2AtIaF?@tb3?}uHr`8KICwv) zxZRk4Z0Yx>b+Je7-ak0yy+`fl>nf)6r+)mE*7fIiugv555boUQfA=5%j;w5ljW?<; zgs0Z#?+W?9>1*X4tEj8ad+k;D8H1WCPrVl8y1&I->priKrgh`CYKIw%gew$gFqx`+ zp1Y=;C%9zA|CfiZ>~203;>Kz9Zhh*V`1evvH(a>dS@q|6>Yvl075|bhp4D)4|69Sk zRkLRT+xcBPJ2tD{&1+<4k_o=;^L>8mhWfDPw~5Zn3eHD_el0#;)4lzpL~;Eq)6crH z-xYsM>#MJ?@pe~T8G5Mu$-7sJCclu(++=+Iw6f#X1Mdvyx`ka1T(CVM=Z0%$>fU*x z$F8M)in-o6(fV0--_o5YJ^t+zn3Qtl{yon4%Z2hy>tFu(e*AjL71xsv&bd)tA6A_{ z<1asF{mZI<;U7(xJ#k)^eA)HKl1q;ll$^Q~clH_Mj=fUzS5zMI*5}uH+IfFl2Y$3#@+aF-+PqQ1LU+gi#oxavbgXmQux3`3;ALm8H33}7 zk8Qu%TuBn)incv4dDFDWgr~7<1?txwFg^08H3)LO<^Ae`svx~W~dKLp` zmF$$Is91d|UQ4s}T^Ftb_js%4&e_0;ko3x%qd{?ZljT6?eCJF6qP zSg-8#@8vxm-Y&+sFM9Up-R|E%U68M}MuPvw+FvujFSfid`MvyyG{es>36_^X?;K%V z-6NDc?RuYCYg78hwE}MyHELeB>}t>2dmyGMd@oPk^T#^d+-CfJxl8_RwebuK+s^wj zr!L8C>ZuN%U%5csREH(*w8DplDy=^QHB+7+4|#E(ugK8CT=JE(uf?f*w1t^Fr4Y9?4vnYFuv{&38)bFsJ!7(>70~IhoJ8 zZ+h;wU~IADD2x=qb? z%YEvOt?A#~9!%264r+NUapqFVtxw-P&DMP?%5d-8QuOjv>Jp1jU8WH!XA7T5*j$nF zh_Mf z3@LvXo4Sy7se9)+ZLzNo7SvVM3*M74^Hu1vb3TiV${2K0o(Det92k-|O+xi}uw?)I z@SUrd8Q{gxnqw;8Ha4 z(c-O-b!O$a?YRA2m0S4whb57x7fmTdCTm-A4!#F_58cqWy) z&b9GwVU;TyFA1DdJ@@X9Y-+~d-eX78X4!EG7~&)%v{ zj}x4tK7UbVl(*oA37X~$RcK|Z6^DNuu{_5+G40e< zQR{$3YkqjWi{F*M&}QF@W3qbYn)Xkc);|}ooBHm&!+sa>c`4@;_>(7Do?x2o^mb?T zbEz`*FVVk6rU$+4Fa7tWr2omf6I%*;UR+H~jaeqVg8AD6&WYA$HKsF7`ZA8LGU!~$ zH{C{uOenp2miI842z`*ugu%9BeT2COU*RWl4( z>iX|qxHjvIDboxzK~DUZTy*@F$bR?Cm(#YcyzthG@lvbWnb62tLMz&rzki$_lRSg3 zY~KfWleuLZ*weg|{#(47QSV{6V8db;j?^EYO4o=S@|b^aZvD!2IX~hUtAf|gu@@0AQkW&RYWlmv8QXUKWn?XAP1+OjC}a7p>kA{B z^tI;*96GzHon^oOMTPZF{Aa`8F+MCiD)%9AukvY*U+Y#M4C_l;R`?`ephI6ngvW2^ z_Yw}C@5djr_{>N%3FR^Fh^=YY*z;!Tllvvh#BW>lpXUwaO8Ni&#Bxb4gRT zJa-q$dN*0{iJmcBwB?%bbDqRRwd%ABS1vSLiu5kuyk09ZVKrvu1Flj)m5-sR8DbjW z63aBcC8(MrIE{ZcCNf{fT&Pa|i964iM`4o^E99MW6uQr{%{DDFk5ts3rr5J&e=euz8+FIj_ zJ+oiRPyX>Z#OJ?Z;UxdL<_4Gj&a1nfI^gtT-W=b5%*HB@gM7D^c3JXnzNLOH`+Q5+ z<_R;dANc;d~XS(%Ct z{hvn|r0uG=%Z!UZfByXQ>$`vdpZjNr{m-Sh4>e!k)>o+a_}1yX(3D$8W`2*ouKjH3 z)T_IytNYW;8(6jkU)}Wkx$*~X7LAL)3T} z$a?YXHO8}TwfhYG5`+&q6&RR$_T=RLkx|~l$*ZAiqk1Vu-|tw!?$(OMxm!O;gmqc& zD80JLUas$8eglii74CfPn^W#IXlTdf{=hm6XmA2pl)n?9Hk@%dIzPgBa= z1FcENYMTzYPuj&La8Xxvx6)Ug5^l+v7k9=80k99;fI^TQy8zNEX~oE zl9JvKY*d$)+|w@bG&pPXp50MBjfVr?Mqgl!t?t<|aj|A>*_Z?@I_3S}|1O`cI@_jw^=MFBtQEC5#rBr*FucEgN(8T|sn(k0Ih&3IxfP9_^h$2YFBR zv74$`bK0|A&9j*;u)XorJ2k$&W_tb|&VgzlK7HB1bAJlw^rtU>KG?N}CtPQjdxb~6 zz*3nR`MY^nwcS?X?(k^RnvnH2>uTA-%-XnP6`Wc>#I~~T3dTYXDXbUP;M|iR?BX$OwC%J_L!_?O~)^=6vl5z zNO>FCpyoV}^)zqQv@MCIS`ujo!hdzFm{B@kpg7XaKjOxB84km%X6{FRWH!Vt(==P* z`%vxZ8Yxfx_KS;4xg=NJ{QP3YvFr^yBsgl$aZE5PQa8*s-}?Q^N97_xhu|qOObiNP zy0`b1PGa=@mcaF#Yi+gL?Ys;FqXccgnb#D;FWB&%e=i)i(rblj!)J!-V_eJ@7yACW zuhDMq4bx)^D<)A?Qz0MW(P-v$rTAV+&2VwUT5k#u`T&|&8F;h1&h~N2X`+~U=JwX zxO&5)N0KX-GG3oF<&myl;>_=+{`r9y#HOeoSXq!^p~4s5X)71dw!^u9;zO%-I%_8A zik_Y-eMP|IcCq4ZtLO0+w~Lcg+mjD1S;6$_=;Zcu$1X1A47$HWG9h_t)=I%3?Pcdz zdVceXJf0IC!WpTws@XVH&nrCU_(6v+nGaV)KUWJBUHD$RuznGDwuxQfBEzs$b=H%A zCr&q(-h5l*j)Ss6@A{U6W4zi~fomTt>+`bSoABlFl$J-=q(h&6*xs2xk6~T%({*Rg z{am}Y`Ik+rfA)jkYwsUNacQlp(v@16$yGM>TSs5~bk1D4eLB097VT6xJ$H#@g5~xn znynM9KmC!}%DO2~R_C{v%Kg(b0ouA-2;d|7?!v^^mn0vyvRJ+|f%b4*w;9!)- z@*t!0&D&-dbwp14Jk9CLvRU4&drDrsE>TT;)vqt(#~wa|-)^t=;clbErE?T)zG!tT zhVUdXBSp0<*H)p}&+ff)%pGg_O!9DLe$*514OVbRg-MZeNH zQ+p@AUVUqiCTCw`pm!zbw=C`ds`F+kTi+ZEWw13zf$e+f3>HCD_i=kOQ z9WrbecV=*1k~?(A>cavRj;B&j+2p?q8}hHzFy-sooxSGqM)$<6)2B6OvwKdQsr7DV zcE0}F9g#BUyjdOR-J629M`1E(DKjtNOkDTi!Z zD?;bR@s};@bDy%@|9hM^U%0n~_U3Bmxgs*XC8Y~5+Mb&fI>9JjaOxh#jos63h%B#~ zD&+gv_duOzL(+NYAD^7Qcr?v7I8)BP%W~qMni=o44~53wDBmdj`pCDR0R_!VqMmaf zQQ5H08x`F6>aZ*|GvFN_-7+88zJ9haIi+lvIT1g_T- zu77e&wY;J#WMXZ6#$Ne54?7H_l3uUg{`O-9!QjbA+-3wE;R8#s4d zu;-mI{b8tN-1LWwB(4^I|8jBH<&W~DF+LNt#|BO`}>|f=s%v9PjWB-x)bAKEuW|{ML^)8ci=UY2ndW^G= zs++R@&>b%S1$Q`TR)l4m0_w?A~%TKa*y_zXB>80g&E1-JDW2Vbi|VtxqQfuX`8FTjli5+RHoI zdyS9Buh+4^H|c1s-=+Qj>9=c_OYZv`E4IFfWsH~mXSV-b@WFzz54Z1@e||l;#8Br! zCja)myMM`_x^(*R^Ut3bUcYQxko@4HU*8%>bM~|64j%lT{`vFb$(7apG84XT&^dAH zL&5Sp3fuoAY`=5suyj`DbWv^lnApIuvQws8&#=_p7oTatqStqC-dx>j=eedH+u{<& zcWR?dbCb^Y=-g>{;{|svHC&Z-f`6v>e)T_@-;6@C@?SJ1Sx0_ZskpCoC%9w&R^e3*&YD?# z_8Wz7*)FNQ@J~`DH}ax^D{r;4yojwB|F)MRx13}x*7lyi?sEHxM9QOGvkJF!SF$Ip z^$<_ysq5JF?ukbHy3W%ZZEjn7EwNqAv|#0VYxd$snWZh~^5oAOMcyr!y>C=}o@f8Q zDQfW#Y+ruQUA%GcEA!CRdY7EJ7fsv8_=dk!clNDAD{I;B8EAh=-_qfKc56lP;@Jw@ zFWz5WvF3NRp~NxnQ_(NqSMGV0md&<~TXWHp$)CRDO3LvsJT9?U@!`fLl9PN?%og#e zSWS8->GiUt=k}Kg6XGjXvytZ(*P4S+vrrxq^4#WMh%#&X3YV(-drX8Cl^=`?!fHWc^GX3CG*{mtCFLNtbne zI{oB-dct8xEIofve;(BHH@37ifi2)SHozQqHZ~w?*!gL!cfQO{!F}h~&p6Cv?Pp|i zpI?!419y%<&YZ)?4#nvl+@O0??3(iJNoz_U{Mf(zMBRoH&(3&Am2Gc6z%Hn}Yjwoe ztIbD~UO%2Bv~9`1_}`zerhWVopZ4=vl_F>8>HFdjr+aVvbNo<&Ur(ubvgny>r_VZZ zdUam;JGs1jxq-J3ck*$ai*1M3yzAU}Nl5LGj{gO(|EppMHGJnjLA(rD2$GCPQgOtX#g>`LNmU2PPGS?7mtl5w-Hn zD>b`X!S?MxFB^PcB|lH@|DGQ&D?WPb_xvt8F+-7S+Ps1aVNX*Tt6a-PxAYWw@*lU{ zm8mjZ~U+v$V=~!!(|0 z9cxcpJUpuraipiVw`9Lvlr~?OzRD$^<@yiOR8%d!dNyc=uUGo}Jy1%%dyS2Ur;NeM ztsX1mo>g!hUZ8(+rhsV40ao=>(U$|*8za^;H?r98;@ctiFVT~|v2I8$)0V9+6Ox1n5r+(iRsO3Lub3^!H)Kr<^ zbxo@m^-29Uh}m$=@Tw8lNykOYRxEbVdEwDC{e?_$g;e|F7am%EpB{YFn`GaA_`Iv1 z+!EzXmPED1zmz69@ziu2-d@=8EY3}}uFK!tIZb|@CF`umUT-hRsBN3Z6vVV{R*%ES zpF&IlYYVc%k42nV$mhplaCP!z8`ZO)1CEFn@robiWUViCn8$D`By7nayY3_Nu5usd zDU%G@v|HmzpQg>MXipi%&Or zrMq3m$p2UfXH8{L^P`8$rV3o%eZah9ZpNY0I=h}<$x5-kCA74BWo1n3x1-E?om=)S z{I6zJm2zf9(gsbwdbouVErHM;s&-GtE@`4s!tF2Z&H+M20ok3uBPi zl#`($d4~?mobr{Z2nxwl^j^6j#@mr0%jW5$@Aq9=?>z}zoR;)fwCm-$MFD3H@K3zb zo)ZzfaKh5YK5@ z{+Z`K-y}SnT92_xKVc8GkehYu^#E-q|8@>(s)g!#ARL z9?IIkc5lp~2Q0HKeb*#wUM>2|J~w|M^M+MVW%YC)svSOg?Gs;0;Dc>zn0nc}>_D^_CBuBTrm?x{cA z^P-lIeQnmcMM6POH{EoI`?>P$f=cFav*fwv`Bs&3?WLDR>U$1&JDqX3U-IUQM@+L# zhtQs4kt7rUg=>_id_EW$;p#qN!i>X$Dm)6!npR9T8U(#_TO1taJu}#JsMXNmtW{HXp%?|QY#P1+G*Hw`J?t$t{;nXHKN_c z+obCMS#`Zs+O#=BZ&7_H%ZtdfMFIKKJKpf5b*}JFpW5+4Y;lczZ_x#bnX=y=?_u?= zkiK6KY?Sb)ZFNt9@gG|r?XPD%o?VWgyrwq$^qC6x&0ZDqizeMOp3k;VKE>kS%TnLx zmrNe2@c2~6-Bdp@;eCPT_MDfmP5zgxKDuO{$mAowXH|{z6n>tbRsp<+`>F7vqxaq&zRsR__$5zd>Gvxk&KpEETRUdI zdz0|TOo-J@Pe<*TY)mz9ce-qqypdb_ow<=?ud zB-zaEeM$?fcDvuYG1=#Kz%|)5s&C${u$UI*>DH$Erc=fIGV2Y#Z8P4%tK3H*G*z#)kj2(-whS*+xvcOd*l zmATl3G_TiMF86lEY|9IMFBcp1Z}_rp)ztEe<0bC9o?M)FLv6{bypUaM1Dqb3=sh#J zmvtkNN#t9%lYbV|1U1dG#hpA+@&!3--##_uE`A_)dB5>H{%@aVWZjb79?My|E_R>Q z&pltZBt4EiRJG;OEH>#|+*`B`ZoZauAYkd~E%WcJe8pR~L{-Xt%N9-M`K$FVo+?;b zx=poh*S;Iej_guD*JS+2{_BR?jbEp+mL14pn;WG1s^O}Kvx!SX%MqUK%T<`|mdsxN zZmK~8SA6Kk%hPvg=-gg7?x*=qvFl8UPfuD1RDD0q?m_rjakqP#Qs zPn4KAGl>1;2;9Qy(6j!qujH;PJ!&nAT7nCuj+NS$mV6A>xS=31ZHwCVw+;Rpe=Pei ztdL&rSCV1>ep-O;6y9SO_k4&~F(|)cGppfN&guED9Nr1ox?XjjayK@QnP;(!*6Gdu zt7FA8Se$gYd6AV>wtcD61NEg+v8r#@z3!P{qI%?5mRR1W#W}I%dN+8oSsy#k zu$Hz{6RNQ7R&a=WQCd?K=~Qfb|Hxm5ZDxOp3)Md_Tz34Gl!WjuWyi&>HBMP;_6A*- z-(Mel^SH$8!)v&?Vu}y#yvwxtz^T`h+^r)%*fO7buOu{^hiAhN%fq>QS4ZBHR15Jv zHDk*WtGSPd&y zQeKxsb%KAb=!yAS+`c!^z*8l8N2#?0Yt#P&8b!Z%{BPNKuUh`lcZslHJt5VXW_8%) zM(6K~JMrOS+8R@Hb+)r{lD-l$7K@)r-T0$DSuSMj+PRJ=|Gkn`JyvwXdEu07*RGZ7 z+CS~$19R^#KbY&eC%WgxyAbLAw8Fn!cc(o0`10{0i&@qDK~{%9q|HoS|6=O(`+sUT zS^RVEpFLc7y#BWT($&7s@$D)h8GAIHnC7m0yIH{Id#QIXBv$$xXL z|GuF5QF`uW(d$oFSt#FY`kQOD>XyeJa}JNX^-sRMI^-^l-Z`D(Ds z<2(JeKiL+2UTtvgNHoVkOqP{`rr+VrKf-+eV;FwV}K zaq-Ab-cuj86!>zzoTWB_dzaWg`5X1I(H2g<*B5=5&(fx|vwD+vcXZeOQ}rxYmqh8* z%Shjy@5(9`G^aXP%IuKW#Vy~q%EenmdNVmaUu$@B1?z48YR5mDe&~m!YM;eu`9s?C zpq9UprMUs3<&Qb%XKVoKBM_YPyBd?5AG>|xKfNdJF+aTfxb9CrTz)B&r=(frc5C;d z&H#}P@wmuIsrjmr6H||8&H8^&avxu1#kzG*wA00Z3UobFZ9hCSJTV@}?APpz{Ck{{M>r|fefic6tDD2Cb^6R}QhTI! zURmAzd9Qr?{P_7XbKk5NoxXT;O~sd*9cdr^liR;m{T2Bi^r8Q-Y5l(W|2+Bc*KFRO zHo0W+u{H~v#!T3K53=iiGb7ys4E{}G>X{wvqBYcbyb z`y}TYfxVu+aITFk&Jt{e&NbB(+=PMn>oeF zAhFF@M!Uu64o|+v?~HogMlQ96fH%{!iY80=)kOQJT{G<}JmU^cf+$oco&v4;xe1_$p2?Yw%nz= z4<=obvbkpRm1$-E!;Z5nrmT+mGjC0yi^tl?PNQSIJR&P3*pDyZH1+>`Yu4p^t1o0b z_B~5qr4#;YU;3+=m)GgL^IdX|taRQcCZW1z)idrnDKdS(7R#?$D|C3rezTtbGcz7C zuzkoZ3gTaXGG|Jkip#0hrQdI822OXp*mL3PgcDV)^-FKEvfoe;nK$vBvC{$HWitMm zbNe#S-gqIx-~M&;{dNJp^Xpv2f|t#>A7|k#8Yw8CG>NaIldmX3U|EaI)M;~BGoMag z{lm9)-in(?eQY{*8QhSLzm(8&Y{9}+O_Gb0{&T43$5yL&EC@4g+PhBk;8oS_Q8;UIqJBJZZVW*7*6u zWtUYF|3pIWb1iUFy}H~*&}orMMwqv~sZvOuaQ)S{4X!u7XnBU+TgW8;Ros8yZ93z^ikS0_7LJY#E6cWq*0-t?uyG6HG9$eQ_&p$VO>Cb(CUa5TlCKD{c@MHRxPQw?I zA2%4E5H@YxwTCNRvnOK8$hFlGWKcXQHjtp}qsjnRC|K2pM@g6(ou+ zoLr@7d?Scs^0v0MTc)gb?$40mU7gSpAuM2NsM+8cXT7Jkf8vXaVrfOYZ#ej*wOoy7 z-R3KGr2Rl-tFA%Vqn6n$ob5ZhKD)?>>6ow@+qXK*4)!c5{BLHpvvc`RhJf!aZ2TVT zOSbPSygxC?_G*;Fa*HK88WX$<*Bk!0`I$Xg!NE)7wN`M-%yL_k7k!1c*P8{Z&A(mT zu-LF;N9yY@dy`hYU<_fn+%@OAbkRHUz*CLy!fV-8=Q-aG^j$Iez`|?`hov*m$?!1b zS^W9nnrWwf_V6W}^JnFz6|);oI?Jed*V6Xe;eAtrT{FrAdY!)1e|d6? z);E4@r{%ak-E4N+a$cLE;qk{i;(eH9vh$qgJ&!-w<-1F#pqgu?y)E-f;jk;8?d#=) zEZNR|O3v(4tX@*f$Edj>Xr^q=MCK`$ud}4)iTwV{;v&-`nXvBN(q(@p&p5DDI$F*~ zTU#*vvCVFw-8ak`qZZ+jlwn@Yie6$~+u= zS5mJZ*2)vrxOJ|NHKfF(_r>c?mrUYc{!3^4(OFor_s06vjq&d{uT^^+xoKNeqtwm~ z9G$I`I*(hhD#$QYmYm5GKJ{fm=mKvW(+gc%-uf;5`2$25pa)miqpjyy+dEu3E5NVu1eF)W|NDN5*x68x$p(?pr?&pSa6)G1-UntL_3oAvm)@WJW0}w$Q|9L$g%>T__#du0=v0<;GxGLU{b#R4?e=RQ%VO#{ zR8qS!S}{$$r!ePA#xBjo`4=M(SHx#TueT50JcEC><;w462Ni4{hn1=Jy-0hldXMpM z`NQ3kGkB6!yq>JL<6tg*@?uZx?c9zY`^TM)wer1JOe6EX{`^`eezopXr{{;-Ezj-> zf6o59&*Xew=jy``Ta|6!_0?Lb|M~Y^gSTYXH;KyKIVDyhZaJU+ALgl*%R|3OvWpBoFJn;xxp6OfbJ zZhEcbgxsAUOMjic`)K{_4GR(u7v4$U-fb!H^va8hmY)Hq9(g;M#V$Q~a*EcH8CggD z48*%ly?xKJO_xbHcI~Ude{ZHwODjJ(`FX{&x@}_U)XH7G!tTh`e~-Rt{mI*uRMDn9 z<3h044UY|F5w7V|)A=G~nAs-upWu|%xg|frSgcNQ_rZ@E4efbb*VP5@=-hvB0Sj}K z#9@(SwVt1RnGc1|gvlt2Twa}Z;y&|soz>@5a(tKn=`p%Bvnw#-+at@R>E^u$G&5I8 zO+GhQX|Gv^{_W}7-hb{?tv-DzZ&h-TL7|=!F+CS&`}LET%8<0sTrG5UVraCd9iugniBs?T;t2yee`sSl#uve0q^Zxoe>|5(sB;1+<0l~?U-iijzzn!6m7I%KRZt^)Xz*ncgo@FiQDF}h6l;~=sW3uFmIA#hjlLaNh6rCu_S&)9XVQ z%SX-)d#l6v@Uapjqs60_VUmVig2e(GC*NRmG3#ECf1f3!p`zj1=gFsHSFPVNd){q{ zA4x8)H)ZT)Wg%S-Hfr_FR1hB!P0P(&r!!!V_xjhJ~``C z>6+_P_OO{>Y?3Z;+O&Js8h5_L4RU&l$B&oX`Zam#cfQ}Qt)}bV9yuJG6)62$bhAlL zwDa?=?=EM($U4J#dgbba@0kK)t~#E*Z5fj>?Zh`_txcaFEV=3Q?Sm|P@T$zCZ_WsI zrtb?e^wxf_|GF%BongnU+1W{i4J1PP*r{%<)B;s#r!LK3 zzB4-3e}BU>oik~#qF#h=6t~&4b7J1~O#Unn`#y>rIs=M*2I?l5mT&iAYlDWfD zY7yIl$#-I(yBwV@Il1^sQ_jI&y%ZHaChY)@?DZ#%J+8mMy{g8e!k#(J@syRk;GSiw zpQhcZ@n6+cAN8-wadz6blJjr2so&WudF5Nm`|lrgJ$P5!UYl{D%)7Ir^*~dVaLIIT zHv1*ZK3Z|kkam@CJH5j0o}kj}V6(}R&9?>ob3g7&S=cwX?#1KtH`r8;f36a1Ti}Ed>Qf-Ie(H4CIOf;>x$bk6NQS6*aMTj>_( zzAC}U{oHGo-{1PV^NV+ExX}Bt*W4wu;{7_Qy=4Nwt{!WbUAk!wU&7m7!o|`#od7Sx19q$?U zk9_%c@A11s%X9TBL#C?eKKQ`qMKVE_0^EDKUuel+^p<=5WpC;{4M)(pNGBF1d6sKCMI(^4_eXruQGf~N(_k9ssV(EEaXvY3`Kkc8ts&Wg9T;`xJF4Eeuc16t^odr)? z-LrQcx>47&J=R7dO(E~j+{u~7r?2=gn|nF8EkujG-IRS|e;4;{^@odeu9b(S$8XCp zlM!B%G*2eL!o$J%<2TynXH7xzU;d^TNx0$!!&t|`>CuLr> zTwCy-ke|SZIq#>m#2vXHv{rqIOzH7&*N^{x=(#a4&D%nCxt)ON;qzwqs_tBUvSa46 z)ymw4hYC+$6yu3!-E$J(!Vu{PaynbHO8$ww-^B56$M@ zb^MLY_m6LC{FpD#w#h9yI(^?kSDUx{*embmt+@K~@*^L+khUI)hwZ!KRtOk2%=dp& zb#vwh7sJ_q%I-=&>pOk+6YC6U#!4NHOsFinjN&EW%>hFF#^7!tR1K_)X_X8YIO0t@OB1-Bg3`rua~ z?(dB?XN z>-?HHt2UJHaMLT3Dg&L0f)Cqm&oOd83uiC?&S&>;Vv`eJ?Tj?}r4JLO!k)K3Oe~!w zcG*$!GUfiPX;my(=lW*x zmIi@mhfV&NEEWuUrlMFEHPD=O5b#nvuTsJwh-uqO`!_UjEF1b|f zE5koKMdgz7ms!fLZx>8iwnWiJveLgN{Pvx{VcS+4*(^@YyR~lH!<{~dz3v`*vnFpF z^O5hFJGvk4+|%?>QZw<|c6G0gi`Bw$YU*O;s~<@{+S_?pS!n(bx$+fz%mvqedXRoJ z=T2kA`-P=ZhbPw0acStdy2U_Z(hdXeEH2%dHP6-W7jAx(HQ^Ko&(@{VdoEn&OR7K2 zroDzem@)ZW`CG3<$RN_!}a{~hC7)X3UB_Amf_B`h)A-MUtlyVa)HWR zcQqqBgO%6gA8vVcr_s>1^MXaDN|#>F%B5yj(#@qU{8NkOy^||23yRuzucg=|TQNx+wdBSXu)LEA~wug^KX|1%i{V2&;aOAkdI-!?3JieI+qAZT3@BPoz zH!&;0s-ts~&>xmZ+^4sQ70E?SS-0VeAy0xJ&+6EY`ibg7VJ@QWwrf5qEbI_dvC)|z zx4$QhX}KwL;laI2MHDRStYqwMROILR%kS#gxz#JmJXguV?6~sO?Txn`1Qzc--?vcu zoJCKG{6o9$%L;QH=el|HDNl3A^$S$cp7&^t49|w?^M1^kkpAaF#dX#!7v3p)(ZV~! zRhHaq-dG-d!r_uY(v3JZ-Sfd)y~IS)HrL$hJ>+iTdE!?3P zT4&JZKHV$55)RC25<T+I-B3JNxDTmG`Y`WxJPc%P1(GtHD!zr9@e1x>5aEfyGLN z3mr5b$8Za91ulwOvRB&cn56rm?cHjH?PBJcvTux11EslgdNwyj&r3h8ti;7~e7oii zZFA>}r{B)LTN)`;yVuiMDP{TX1Bx+cy*#Bka&J6{7V+Qs%Uab!aDM!!2l-Q;XLngE zGIIX$^eS;noblO7DC2&fkf4rex)e{^yzJfwQ(2oE&z%!;@RBra>Hjq4=~w9v$wtvV zPBBs*jYl(bnxqt-$*Uf*^RiiZ@~r&Hg(v>F^8hh zyY>B-Yfew);$WLl9jOwUc3yww!h1_SEcs_&y(zY+jn{AagC)XqgIMZ2IgH*{CVNt^>erMisUD0 zulvvye6wPzw$j70h_gK>mMI#G#I!RL(2}FJ;3#2zGDQ}oJ&kTr+gcNs{{($S?)v%?=X+7nPc5zB)7*S zd-~;qjwLFm*D*@5awILD^{$7PiDN>y%gQ(Bg z6O-ah`@Y*n>QYy=FO;acrTMRZzIgrw!$>EEDk1(OCiCW0IPP0~JYb7ec2dsi9}ni} zCf(lt`@#3EPxb_gI<5E8jXKUbZ($_MuNI?%-EW+})rGBei17WE7sAXe|Dvt`@l3s# zxRj|YDvt-4Pvh#@k$t65z`TcB@f6E%RgIQjV`okEyd;-0E|yS*yoB4e;sR2e1N)sb zZz#*$eJ=T^XHrg**~7V?*p$9)d89o<%*Tr(ZXf49udKC?1@xs$c1k((+THEx z)-C#lqCY&B@m@>)z!v#*m5*azmg?S9+$Te3tei0aIPb&e)mPdw3q%fO{JHWaCpdy( zm-=UEPNjNfm4X#FgbppftE(?OLBQ{PVmiYfgBst|g;JAJc13UK+@`;(eqZ28cs2>o$NMYNr#{ypIDRgvz0r~XxBfU7xBf) zt?aX7^_wZ23Su+Ouhv@Gajt26I_2$lxARBdn3+sW=QYum_srwze&QE#LZwDj&*#RK zeaqKqZh7S&%<|yLgSn9$?++WA1=~$9Fm}(vt^19Y`a_(al zhA_s>i?1yF{L;<@C9c`HK!3UGnvMJO9R%-6nZa_d~aR)cG$7xs3%Q+fHZa8JoL zfmh}{%vqUFH=OEYT(SqHh;uxa+yjFrL~Uu)6HnF-Ioc25&^fRn+Wy!oRaXOCK?AkMDdwyLvNkQki@%AT^ z94-mCYppGfOj+Wm(XA1B%{4$|ZouhFT*nKpa(8PuuV7vB?QPAJ%4yTz`agQ+@bdl= zmgef{wEKyi%Ql%hc?5*Sm(;vT$@WMO*LP54Tc#Vxz1RC=o>vkt^i*0$d zV^5Tg#n+h5yhWa`pNq_OTXIqJs>vzQjrE=8zov)mu)9&Eo3gHY>EVOU*2lxYe!X?= zUt1ja(MPr1dPj-(o@n+nn{*^@M1Gtdvt^%p$}#6@y?XXMk}0>#3t6W>Sm>^&vD>J5`=yrxo>^~B zlxlkjPW_dz2p*Si%b~0ZIc#+gKR2J7n{n4$_|g3tkw&{CH0Ey8i)UWYGQ;hdP+6TN zv-x|4s_hCJLk>EI?9}uU4bF+$QXcHNG?u zuIsorS-V_U_}UJ}6RgscyW-mKhUP7JmhwPLb#?Hf@+%2nPOZKyEV^;ZjN_uW-{)+L zdzM$N5xn&B#_V4IUO&I|nIY$oU2OSKC@pk~KPrF0?J3izdO0mRRwKCOU+VqFL$^!J zj~;Hm+%O@jhOME}GrT9{a?zq$Z`&pGwVt&WB*!Ej{3m+0?z7(ZMM00QW}nv!c+<^x zPFCsIm6J0j+la3cSo-PBv;`MGiv6%Ol;^p-_{bm4*QIAyJq!`b=W>m{=f%A2(9|=c zi(as;pR}uC!HG9(&t3i)**Ep*y@z^AZCaB*tGB<2SbT5M!AoVG*NR29Pd=QzPeAAv zuVUVrIjlcFcD||gep4%+Rl^v)uhnvC_H#u~VUO3Al@ZQG&Fqg4D{YXNzm(Pg^ql5B zBKpx0C%G4%zwCVf8UOqRwKH~|wfElqG}F-T%)O=OoiF8o`Td7fv6p{8 z*|0Lso+*m!?w0u=c=MG>n^*RclvDqv zSlq5lDWCW;nv2tLLG*v+v)|^q$FzSvyPL1zQq%iC8m2Cfp59KJ!m0dXt<=>Wi~5Xz zu6TBsoiD^^uhI3Y9}n7o{$9OpYeV;jKULosZEimPX5sB}<1{Ow&s%o|ci&SAXP9?% z@6Pr9Ea|%|tUI;m?5&#_Gt)6EyrbkbqtntQg%*3CuCiLhQ!}YHvDBCJc_br{Tu=hvTtCU&c z+a4r1F-`maPeygN)4X4MeKudOvHn^YFCM?8EJMpk{Dq9v`EEUrANLLPg85xj7yV3_ zlP~(U+)(e-4!3gMPOI6gRM=0t)N=0q%X;De8Rkx_Umr~pcG4|abF<$wV6pe@#TkqX%Xi0=tk>w^+{muf#=~>_;QVqQ z*SL$^4czy3emur{t@(rYt_7F1B~F<(^6hzefg!js>}_mz zzRY&fzw6=`a&c_P+B;eCd9DiMB?aHu9iEd{t!Pv+NI6+$QWcr6e4<`I{lr7tJ$sBd zuZ}&LnfRnxvg>{IyUEixzc;(=lDq6}{k!{nFZcS_uQ20ZZ?@}}@7ABEkL~7t`cJ(y z*X;kE}X*P5=4q+`+b@x7vFnLtPhrE-HRr^7!~o_1kH0)_9&yn^tnvN`KW& zxvTSnKhC}JZBCc@Hpj@|;*#JhjNMkXu{% zuHREhwa&i(OL&&SLeBmpqH_b9x9VFOhdz@@-@Pn;UTWyQGv{vgii8Hve)w&rPOg`^ z=dF;)9hwmt;Wl~QJHsN)b}zaWyYa21=+9-l1gG5$N&PkR>T}myOJ+*m3`zG4JF^i3#v%T(ho7t2f{_IUQx}~{h4$mvDPFsB{XIb9v zva@F^_vEae8kx7Y;KSUvR^CRTVF#V!Zr1tE<-GE0+TQ%=E1|M$-gAgOx*jF*Z^6d1 zFJEYBp4#=!GcJAR?U{aAbIGbik!kK296ZYD&ZayCJ*dYCO+98{@Aq76?w?&tn z4Ncv!bk^COL2Suv;j*jlbgo|W>CeJmj+@IjoshTEeC=lVPvPd_h--7E>ff_hyPWPi zNm`=t-wB?wDYFtL$hqa7S6eUsq+iEh?0H|FtaovH=Itw$!LvSdseIg%!*h?~{Lo88TmZlx&Mo|Qiv@J_{Xb&S3jPpZl?qhF_a1wSpg|7fM=vNYRU z55!J?6Zy1Et12r*Yi)qn`DfpHx}D733V$@eh+Lv=?3ETdQ$&{K50l;k)=5I{mi;XO z{%6GES8Ao(pIz`;cJ2?u6GCb$ZmpZD*Q9H?;p#08UG26{I%}DB+-(rC;dIY;H~BFC zZk~8$P>S0WM|+!v(v0l7vFmhdroOB+?~@7;Uz4G{AMMto@wwZPF`bjVd}BHhg^R>QZ=5O^L93;wnkij_?v6l z5tb`#GPHX?n6mu&U9i4v`pnz@;n9KH^N;3jPuf1Et7}^H&TVcg8gmYb&kv5y2-wWF zEh6D!|8L%_hs?@#lDGUg)1y?sbK~dZ^1qdH8yQ`0F1>Y_!!q~d&e=NLTM86@-0hsQ z`TUM!@1$Zn1SAg09nQS|fZM$Fq1lW_4lEZr&9!B=s&fCC(v|NTRP%7bRK-8Shfbt( zSe*Q1pJ=SJf0l8KZ+y+A&eLss{t@CtkxbD5` zZ)4a0MQrzj-rBGD=DqRubeV&(Z=Z*loN`*)>Q~ac;1Pq#mkU-)f+Dso-|0HLUGQ9W z5Bs`Xg3c>sAD%m#*79@fjc>Z191-v3ly}PVc<^~t>K{tx@9vXtijClGLA-t}goX(N=4{^t9kC(>V5**F-JL8@KSa_8gQ9F7x=M_tvPS|BPq9Q+3q{aww!QI%bXaj5@kM9)K0g_<#@wwwc?hR+aBLe zq`b>gow)A8!7nN2?ke4tvYWBw{nvBp6(1C5e>F*R7n8PXm=`ephG375!(OBJp0{uD zKYKrITk)c|h4o=agD0GmX$^8+I4S3w(;bmHt_h}5mzGxUF=E>PmQ8A-c;jKE-#t?M z53*J-xzq8Sx8&Y(!GzQ1k1pwyYUduaU8a=tvn6Zqqd?}nejC^7#|2(gI_NGFJ(r=x z{(nHpe?J@558QfeQaip*<90fb_4PhKi%#IQHiy?-yo%|O92K`esk$GQo%l*9mH9+% z=b8sqdyWTJDJ{M4yn5AYqm!>p9k@AUay*1CY`7OJl^CB>;Git?Ik!lm{{_RksHD~W z8C8<9xzXIucb+fnXeoJ8+7fdyIC{o}(!3m%zX^9g*n8NzZPw_yclBQI+w5&xCMSQ| zM%&CN)!B2B#bxgywtZ#%D<4ZcY_BbB$$n#IZkif&ZS#Jg?zaIg5sOaEyW8inBK(Ps zpBASi_jJb6HdeJcJ|+6UCk8mIST7;`#qQiMPF1dhFN}7rw*Bd$?zen@knW0$)B6tw zXbE$OzV6@l?Thk4JDG(pZB~8X&aUa|FWFR5)tFl=DARAQB~5ZCzx9q^146rO^?U+F@J7Y zI6XKwKiJ_tPj+L>zh(KE0Z}Wz&dJ}beMt7)tLT_HyB;4pWNh$ZU23< z>1oA58QIbc4(wt2TkbArV+d<_+SnR(O@;TV9+QaWm6*edGua+6ENN{0$sKNR=RvR1 zUu8D^h$9EKO+0Sh`9LD`5{K-+S1PAxH&**?SS)sMz8-JtEQO!U3Y*=VS<{~_RSJ;I z;4kv%II^5Oe%Z&TF3+W3h==Mc-L_t`QfKAXMK&%E=jdFDacc>9$%_@YSYoF51wP`G*J)|_x!hw_)wjJKOFWJjD4jgTe<^UsubvM5 zON-BPy?4En}SDS>7T`PSP5v`@Qe@^7^+)Ok^Q zrMWUAV*mW2Z_-!)xwRLojVw>av7(6IKYrn z%<@pM^7YS!F;nDO1ZRe~DYTur-@$tzctWipLv{h*JoyETYaY%!_Vi=ZV&Gen0JwhQ>NT9^6fRQKJzBQ)iT3|Vc z#i`&A;j6wjsUCMdRP?U1UU-#gH@Bp<;Om|kty7Zs9weXszDL_=zFt_MTjVUY(&nAZ z_ZzDnR1w*?^8_2$XREzu_N6LEpJmb1ZP@+v#_GrC51k20`LZZo&@Ef`+Z#=ZvvcPc zv(yNtiOuz!b9m`d!Sg$K`9J#naqEpe@4ixHPI}6+u6u1o^E!=cc0Ojj(0l0Ho!e7u zCuqco?%=g5kba=sQtEnkV<_`a$p>6>KIB^I^M8AmdPnrWKxwzl*}WAlYkK-y^xeZY zDDwxbxiIbVzH_3cGAmZM&AYfUu1|393ifA=Z47(jc}za+cG2@#`D5pa?=ey?g(uRd z#4I~<@BqI&XQcb%xQ&{(j04}5^3H!0Fo)@e6w|KdNz5<4El-_pH`jvw(V@WV3ry2K zJNhlU)$#H9-`8u}wGaH;#Ck7>gVAd(vn|Un7AKDnTwZkoPeUgq-tqWZkgH+evR}nR zzC*dep3Um-{E$Cg%NRVrG>Pba5Mp5PsMQs_fBDoC!6yb9y$UgFo8H(9T|F)PmSM@B zHAW1)Q_k+6*HO7RTAts(^3%~XUPm5=iM@FBLbfQOE!A1s;nzNaP>$NE%%4IVUf=hh zAg;=PbLwkltC)n(-6u4JuFQ6Sz0c@pJ==jNuJ02ZDlPIeXZD=s5Sz3A{gJ$ju6E%< zyU+EW3h#Uw8aZ*+;n?-L>i7RQAG#^JzNv9V!ybkB$X$gGuKx~ex4Dox`Roqaz`1)C z$+DNlrE6T%S~>N9+BqgMd9G=d_iIlCRxvaO)|ZrRKUI zFaO59Me5q0SU-r0?G^r|vVm9qU7UrVS~Ra`GXK>rVhgw;;@{M<#JBE_S}8q8;>ez| zqlJl<4|W`CY*>8ZwpP?y*ZwufCTjj)bKw1SRYf_`8Tw(?E&Nw4^DBe5y~$IT@8AC9 z&%y^wx0=kDQ*$iYC-A_lBcH|6pL8fIuJ^md@l@g!i|qq_^{>sn;IP-7_G?y6KehF% zYrXdduG-nlv?f{2{u^!Mx?!JQ$3Zb0tG?D$xy41ZZfeh0SZFz9yq7pK$cX-K|@F3O;uf z&PZ54OULl|+nj=@Ml9+x4QI99?&$uRrMx_8zexA$-v$kBnhsoUd|KacKHYON`p9dk z;N8<2cjjESzwmh9Qo)4O=zH1~A#b9M1)n57ILkFNw&3e2;qAxvH5PljZm@_8o|s6Izk^}C$UNwz(`Z-43UMV0v{9AhKb zIlh|u=aF~WuAgSd&%FFa5`LE7czPe0sPV%sLZ=mzU% z={e>C$1WOfU@KJWO~}*v94mU@RqmDEnXG>~+0B{6$`%Tu9CVI9Ym zxyDj%H#ls9`k68cPEQlQdFJ<{9e>`589YDQy{7$wWb>K%=PhUa;5?~+EG3#F=1%&( zNr5?=JVZV(?nt|lemLrVQ1|1eR*|3LHk%mlFthc|X=n3PIS|L5#5^zUSkK2Fh8K_{@S#Y)AOb_YF#p$^4;|6z0IA< z-hLj^9Fx78{kJVkDfp4_z(^?Z)2*^k-JZ@9T_1Ag{`6iXnrd`|rN~9wz)eoI^{va2 zHw!&_?g{vOetBb>%e z(B$;stCI)&4NtePynL^_cf}u?@ViL0?}M96kNe_95>wyo)<5entp6qK|G#N9leegs zG57U6;gv6+^l(uK+q&P%`E~~1zRa=mpDY%2G@U7QUf9DaZ17`2 z#PNX4X(>zV=bQh`-1v2$8I$_|I2k4>m+w}8o{8V`Q@h#R^OIS0@o~#{1#E{`KFE&= z&|P5j>)wryohs~GZ^bXXl)6fM$Ehjx5}eZ-@^j>7yxhl7v^Q}}U;o;#M=!pv{-Dz= zKmEhC^TM?q_iC5roSic1v(ba+Icn!6Gir}S&dk1l_3*<_$zj!pY8w8BwYONBbIS5&}bHT+{@eyu_4k3%X%UsqSh0=jfu=xH7~0RXZy+f zJ$GHxomr3k`W`d*sWJPAu_V7fo6Peh%=>O%)Y{CgZ}SrB{?xRmi1J6S+3k_Fypg4@ z!1U-RVX3n2pC2{uI^UXhw_ulw(eCFh$0=t|! z<}Y&1^Uw8!Trt^xXI^b{T-Apk+rl~(1JCZMXA&<+W8rjP> zA9gwDHF4Qb#ojB|tZu8`;Li(jl2fRt7XO*DW@FXw+7#6puYR}q1iN|ll=LrdS^s0& zzGl%wvsT##XNca|B(kCO(iWzBobIPo9OlTbnRGhVe!kJ)+edH8pJ(xq-Ov|&jDK-k zF2_UDT3_81Y4s?UWfCT5xPp1gL{2JYwMiO!aL!sM@j5Q7$@_`sCcWb)FE5tPsSv7^ z+Lhztd++;mH@>L8qShT}%5&ZBZgmlw6MR0W_Po3U{d& zw#hfGla?@^Teo3K{yU?s-paX4uenaGo*kALaLyV~*>t?t+CubZWbe<*KN&UOu$cJFikExjrqBM+^2pO^%N_1; zh&ZVT8ZP-zQGJ>t=2h{VOCLq<{Jd5d$1`otGvmXjoi1m4I8HE`rM{!4z`Wt;{A17S zy`Jw=GCa4-n=QqDs@|TNKYuEB)SA>^dX*x^9wr}sTLi53mhnFiJKRoa}_THwg#h;!!-%Y&!^z*us18M@h8~k?uU4H3d?aL4Aw)~5* zi=W2#zhIz12Elo0*5nZn{-~8$1I~yimaAOJit}FWSbMDOCgY)++ ztt!vlbbaa9bqkGrkG)9zY~;5=vhESLI$Pg7;h852gE%$r{i&RO(lMhlG%E7`>rX$e ztkhHA9++(Y?fJ|P-+i-x)tsI_*IxeF`5D`uzFfHKNvRmuDU-LM;g0q1UY%5ZKcW21 zj;h${iEG~HhOeK==6uE7@zI5ux55r(qfoidD%4)4kUq4T?e;uf6yLpTK z(cH*)$rI0qFFkDj^mDxTefufb>@OHF)z96!OZ7*sWZC_)4z^G$pG8X6Q68_>ZTOg* znL6XF$v@>X zn*2X89qP`9{S+2BU;A^~BIDVtsBh{TyJ7=-Zr%}R^x4?mx_;lwbEiXIyGkBga?Q$j z-NfH>pRMZM|LRn~=U2HV2Z7!-$-j56W3wx{*p}O!`R%w8TiUzzyOJt2UQ|?PJp8^? zKlxFqS%>9@j?e~R8`C!yuI_FsLQSlhp6*@@;( z%KDp)RF$Tjv}md1>fC6ed1kU<^+Y|5?V(R@Ix25Ex;{DU$;92SrZ6iCZ@(n4_eGz} z>65E$)6NA&FmC(!&10_VV&^I6ZcjWuQ}Cup(B5tflM0nnoo82CKV8l7sbk%Y&6$p- zrmF-KW?ZxTurvRXo{i{5C5?!b>ZbB%wvVnPR9XEz(R)49R@F)Grbec(pYB#(GXWFD zR_8p=4<0w?ELr+fX3mA{FK-8>d7oUm`A7H(SBb}Kg@qUIDchFxVD=Sv$!xW#V+qT$ zyh61n@JW7tp)T=@>*YrdYk}grH51n^`*NfApzyrJ4z*`bOu{8HR9@EmO|ZWpB33QD z^48qTwevXscWqrim8C-H?CnUcI(O}zi98|?rrdlj_xZ`nZq8fbTkdSutMt`OiDgaP zy*pLYUZ1t*%odmS8}DvaWS)7ou5y0+k@^=Z9gK^61*iN8@MKa_j#a#;S-6^xk_HVy={0~*t$FR z-&xjN)wy%cgc~PpZe+H&fAgx4#bQfa6)9)-kVUR#*DM)BJluJf{Jm`XvGLh%onT{^ zht|8-JV=Q9Gp+RHgEt{@_k4v`8z{_|RZsu7i-Bq8w9p8%SI_QCo%uRQ=67P=+g2MU361B$1?&2KK1M}vD~ZsSicvaj z=I7J)Hbz8qmlM~Y9}V4$zwLXm_VJNB()X56yml%y`PrGrg{<%WFJvu@OY1Kb+^Bf( z@Jng&>6y3IUs1|lJ!uwqp6iq8q6uePia4UWxjqF}Ma{k7;_c=3Z6W8k)yG2{PVWv( z39SAw$K>AXuaj3x`3Z4N5_vvb;`k%36{WooO%xqM)Yfih5zgBCR_Tac#SxXoTSTM& zoY;5Y-|O_k*2A3NSEYUp`FUL{j-ewXsnv@op^&9pZ%4?a@F^W#b$XXn<^>4YE)6*U z`h=kGPm9CKA+a5OtFoWZTk$IEjpYN+{EkO~U0&ZW#jTxF5PlA&$3y|wR=ap^31u->t=|zWo6}^)8=##bzZ|_@KZ)ED^gqeaBJUB zfq6?WD4kx576F(}Za}ESe`pCH7~%v;1uO?8;7QaqkQLKZ<=lgBTV$ zi#Bjro+y&~z0l_dcld-G9`RMHokV9YJ`$3A{z>%J#gI;lxXE5%cLf!Wsf z)M>Ln9+}0)@%*OU1re@|uTQe}F{jEtyP}qMymii#eU0ULYt+BS9TnU6@cT-0F)PEz z6&`y^I82sDSn8ec%}rp5G4@V+8(Yfp@y5f#R|nQTI`PSKV(_hW_d6$-Y*wCH=a#kJ zLZ{&W`H7ER=SA*z4{=iB-fE|Ju48Yb-h8FC-W$2^9w@OC?n=*mX&3qFN1yWbuH)$k zOhw&N_Pn1U%(h!MYav1Irhlh-y99^kIFF(<7g&jhD}| zp7LIveeC<{TRX3w>|~ww<(X zJVdTVxlXz26gAoRyn0pL633pYr|T}(XGhGwUed@ic}C#spH7c&tmW00dF8w)Wli?{ z>aGU&BUU97FE)q%d~opWbo;sMz4n%7w&!@gxO4r;s$;3fy1CwKj$K|}`NXPix#-Io z?=Bx#+ahGLl9kQ%YviQ^EeuR*ch(yE&fzINJGt5Hc-tORfzm@OkL?ql&lY-V>btPbrmLUEDQOd9TaAl^@+V?fKC0qj~l{lVrC>l?^`_ct3_tx;@WHc=fX#d=^sLyU{Uv;{w?or;;QcK6KPd${b0%Hv4PE z%<_a=lY^uDJ@>Omol1*vRhF(2a+Uq;zh>*K-5*jV0{B=@-hQzvs_@N1g$T|w*yj_dK}w2&nxTL(P~ZYo=*n{_sNV!0xQ ztn%(Je*HDlx%*t@d-y`5tR=6OO8I`19xga%0K+Pd8WIwtW_1 zd*58vx93^?{AZi(z64e0X>a_SxAgo~liru2thv`6H{>MGOx*Ir|C2=QWGh$IwUQU* zmUFm%-D4%Y^JSW7Pwt#>Z84wY4qOShGH!iZ;KQEsKhkrq#NDi@i=4~VQWqmR$5#d@{AkJiXWHNs6)Q zr3mwh>-Gx1w3}}jW>qEQlE1`lcKlRjYvIag7kB>*o7cwVw>5qH#xG{~XIIqu>2F-h zJkdd|$|i1JKKGJCM*EGwhqg|V`_8g;Wn0Zehjam>{5?^5KR0QHs$Hl zX!(yfjdy=N=>3gJq2)yB=H|BBKdk1d#g(4rmXX}U>u4tN?23jOkMX7U#fCl;+=D;& z&OBv$c*}(EZKjF3g6nN}GCVTf&RK7f@U?)~HS+)WwfmlhZmA0WKf}fEWW}TJ-_IPc z>xenBXp@~p61(vqIq&{nYxRX~Q6`=znUw z$QbWas4ViXF-$x(U7+dd<cLVABHO+Bbv^7rGyHDBlRFP^qg=kG4B zvnyORqO-a7G8P@Y+OsS3%hIqsulgevkFU?G&Rz2S)cf7jw4OYe^7eqE4wH(-1xLSU zjz4R~`Bv1eo~7cN4oAMs(t15q05wAI4#QFQEQ}NowM%}2-N3z(SAM*1) zQ5Mpzl)h%+>WW1Dc{e+r9d%!|k^A4h)vs4PNf2zYvpXr4ymWz~Q>*hrb(vdfS?*G{ zRm>c(tRf>eDdg{5?Y2?q(XGbJZ>nmd!jCV8M$B9BsvSz+ciNzxfA6ly)v|jeYlYVx)lg{9?sMl1fBOEem+%y)Y4`PG zRN_h(GS_9etDuJ-E3e|JLO*REsgT99l%l}jTr>FN}ZlgCwqYEQpW4eEaGH0!9q z`FQ(_>_IpEC&v6c^lX2eM@$IYqMvfpJGVVZWYd^Y;J)-{E?dmOW6zIVtt}|lSlut% z_cS&7$AT3(ChR4f-F9p{vx$G_8HJ~hPhIPGTz9PY)R*Y}+AZ4})1F$`tKY4dayWMT zj^wPu|HpOL6@KvUUd(s=qtL#IbY2`(nqG9-_psrdFN^wIAD`{rI%VNi!`iulZ>_h?i`!gS*jaL$}`p&yw zWoMz?k81)?_6Ho#O4fE|yFX3m0Gp1(HbsYT40ayXFK&K3k$wK~teJP`{{7yk@L4cr z(#*)v*t@39hnRM6z3HPS+4Dn5g8$Qc>x(DnE~x+YzwZ0Dcj5ovmDT^O5TF0<$-DaZ z|Ekn~{}-&Ceb;{PfwYA3h1_Cm?(MCpRsa1huKd!@xy8$vbIbMb-TRxV|K4@^)Jdn_ z?*82@xajkOZ~J$D-^8ug^7r?b^5uvB9scX6c{fw>JO3BqT?%jiUH;1$Eg{%)>woy4 z+*aXfQK$VPnrrtQwQKp#!1V2Yu<+6z=I!1?c?(5OyB2wkHmK`4*wxkw@G5}6pt$= zRVz(+7MF9$e_tFfr+KYkE`5@le(QmaJk7_&pBPlU?pebdzw=y#b0bN%nDKf^X065D_bwYkx<2$>t4Wzl}FdX3YFQZ!L2f zyO`CR{Qnc5aqO5@_un~2R>V;L+y0*Y&5n`3d~^%+j$ONU<_F(#t-u*h>05c9b6)Nd z%G^`z^`KzEp()D)ol3dR+?-Od@bj(tTGMa1lv(UQJLU2s?zA6L(>?8e2(nAA%}SoG z!WkfMBY%X^rbKAr>}j{N@9KZ|zhTL-wCVPLbKwpZZ?%l`uAQC{xp5DyUoT%+pnKuG z5BF;G^E?}-iYPa4P5ExE_RXi_vifhc^=ZN0Z|yJTKi^Wc@6@AxlZ%pif?NK^h{>xg z(>ky&`0@)mwVEdrrXNgO(&Y5y&VN=%v4v3)^Aj@;GIL#L$XW4VL#y|~0-0CRzqY-a zbJEK3)&uq4>684s>;EQ88T%RiKD9h?+p_vUI{#TxN z`_Qftpp*Etag# zpl&Ol1wxw_GknQ-EBiz4f^Npto7eAn{VP0F^KZt>AFsA4EVyfJBy>HUhn;JlV%OuG zIJKRh?AY&__Z)lQX}D4Nu6IDoGCk9P2BDwNe>-iNs>-lYdk zyFF(+_M(^Z<=@O>4QlTMUQJx{^H|>pDYdTC>(%*>u$o^CcV+JM&JMgV#avmi?92MX zm8^T4@}*ZS=3#18EoRvMVps6Xxup_MgH9ZIX}#%h&&5f}+0DzY`MJH?#Nf()Va~E2 zXXh;|eEsJ@PJUkG`HZYX4wr8j8lMZ#$Z9#C(N*SMU^*-6j{JlxGMlzXX>2=sL}rR+ z(6`hr>nDbJew^4g_4d_S6K^^cnm&E9?Z>)-%Fl+Jb3Y#l>TKHnz3OYkyTFPt@{l%c;L!JGt2J zyvPnJE0pA!vw=%m$D;4?p0lT4UR~RFj+tSB;=~qXj{E%;GxnQwOfGUVp0%G#=(qq*laI@9Y?rwwUi^Pf?qbEw%}Hjnrb_LeY#HIiH;q%r=s$nC{P!n@9t!V% zL>u;9P;faN=dkcil@QC~*-YoZH|#lkIIoxLh?@f$4eD=DjChf4R~zIXz>-H^+A6##@cA0+s*P%#f;)n7=LNn9h|` z&bFfc&Nct~{{E}Gb?52?E4%cK^UFJ*`r1ZBbVdmNmcG+0Z@o@=f>ikgky8CNd$bMw zpEay?Temc!Ys1`++fFXH^Eck*f?J$QtcSFy$s}G2`24F}rKq=&ZL$T)E= zUFuQts~blhB7eD^iJiIcV@Tlpz&}c>ANYxef5?@ebv5HlU)>VX^v*4NH?tgj5HI4l z?7_|ro5l2J+I(URyx{r3PPKxMmw7SkPB;EvDXnrF^ZOWcG~RqZ$0jM=$!5{F;;bg-&4;<7gD;fEEHjk4$`>&=L+SYQ&po|Avdm38k4)Hcl8t+> z^SQ5bvcaV%{w7OpJaOsvrv9R&npqiF+NO6NU7Rl!@ zE>-y!cgK&flA-qopZx9FJ+C>;x13op=lz{eZx(LcKSTb3)rq$o#O9mpth#8~lbl<# z@9JreGxi2NoiaUDVMg(vbz0(9T@$L6$a{M2?1P#p1%LVQ53Cw)GRwdCKIU@%W>X?F zX9{!Bxn9*wFJ#QcDB<`e%hBwEZPc7rq?_> z=LtqJ=t$_ z^n>1FS#2gcKY@a%59@sod_Jneczo-bxS7}T4+r_p+sFNE(G|CKOjF z`^v{3Il81nC&JL|oN?bRrmkrwT+8-zzVLO} zU%{Bl{IpZP#x!nH|FvC_HL;)}a(EDJ2yzIdK|9No?-7*Mig>y-Cbj&(-%O$xHe zpZ<#b0ROwRXEo_R=N5~{ofVuRR4RI&E%xJusUIg*?b!dH$0MRAhIi(Eaqh=Cjgr3V zOd0e46gl7g6TI`OUhB%WGP|{w<;_T2Gu2iybn*OW8OLKfSBYB&GR|2NDc|iVF2(IN zFHrnq3F|6PSAkIdtr4FzysXwH>~^1MbK>Gvy(^}x{_k`*eD&Y`yGGESgFiRNbWJ`~ ztCcaU^UbfSXk9tUS^Lt8-*ftP%#^HQFbaw33eQ^_wf7)DmqH8%cQRN!M-Y|_{JzQ)kPtgphluXp{Of;Vl+*ISZjC#OGY z6Y^MMQ&zTZxy;&a7pC9xXV?8_=jY0T?BZq3IXypH^BLVe?3=pHcgD zde7VbIl^so^42zWPkTPs&p=q?i;+(46szyX&ntXhUaRVE-&_9S_?w$Qk^~no0 z=RRhs`d#TEwDaCC@20|uDfgNS--a}W7@3^DzWjKQ&a?1f;jY4vP5;_2Gp*ige|S~* z1o3IxR%QM8boG2;_L_*wU$S*m&S|{K<`1;1^E>0(etN6d`G~(+rK*}22_h2vLztX!kN%tPvomgtK&?O|Jw{9(A>x;ZU9ez@)Fs`TisRcl_&nOE?;v(?uA{@>Y&XSdJ4 zBXypuRMM*;O>dRWg-a7;cZ6I`41B!g{k*Cb=UvUhjCIA$!&;{?Un;s4XmDrCHlIIB z-ukHLy3dGsxQ{of?YT*3eO=-A^!VqRP*WC zJNv#p%1qTSnz*hoXYo$e>$C_e?^kA1zxXV$ror#=2&s~ z3r@ZCX^VgU!NjA$D*{%nl-PDs{A6>BY(~h}c}Ki2NjfH06f`v~ z^!m1v`Ok*zm91XAdl{ded=MwFX6a;3S=qzV*ZPjkmY1}YWh?XTDHXoH-YF(rNkLln z+~3FrUwxeKuS{4K_wd`phOb>+*-p5-^@V?0M^xS9pFRJxu{ZY% zQ%)qa(Dbc84p;q3i(Ry;CEVqQ0#EFll3#@@m-Hyy*czODTKMjcq94B2Q^HJsm3x_Pc~bazX7 zhrrpG)!}Q7N-Nx9c*w>PZ=evPbTv%tb;Ini=W1m-XKW{0E281G654W8CDiUe z2rPVES+@D2%X>$=S?cEmdgchNikl=X+IemB>iyfYC(Zbkd@5${Y`vW?C(YK|$rKy3 z_NA56^q%+eYxN>me2ciC`Z&6Ojd!2q*(Kh`w$BTk9^zg%N3U@1r+d4u3P-aP9r$Kb zqRVq>`n%sEvGuX{yMJE|{#AH(%Yrqgv9&UvdQ9q8e?9%X+0gK=Zstajiz)5(pQrTt zuiXF0>-G09CcAcRe^MUuXnU#`leg}i=gX$M@A>Sa$WrgTQ~t(|M-lSxA6{}2cFNsz zKx3QP!w#L2{!hvKvsi1+Zd{lib|B%fP^f2}!__=1sZSGDvR<8>qu#q@(UjH@>6ed> zda4$l8E@>zHD8RlwyT4`}JYWjqak^ihpowvUWF$!3|Tko;2^R%hAQ?tHr1AZ5?Y zWpgEc-ngnKZQ@R}{~FJ;Ytc#FB{sF5JJ;wYebzSnwREA^s-3RMjhla6Xox+MzDHKO z^igu%Zx?$ABfF6;e~Z*G3n2g`_Ro_4#z`tlIw5*Giu};{D!~yK!CSp%pArM+36A-!G7mOl>>- zAiz{Pm(x{n;?bgN~YbzIlE-(Q!ts*TAopz+NM*;_Z7oQ~wbpWyt`ZS}{KoL|Fcom)TU#tg3+ zPiKBjP!n_i#5k+L|A{5D$--be`TOGW{A~p?Cte!~dU0BPiJ0rCvFn}Dg`Jvnf|g%z zPUVRUPu`I{yU(h!X>r&yhSz6|yB3S-C0x%D6!iUYQZl#-n zw7kWtb2iB}J6_yd=k@r|xd+cr{>k=SJaMVXHW|gzOq+QD*N(pOann#wx_Mi2N|6%d zXCH~5Hx-|%Hr(Ml-&!~=F*Yn~kx7)OwrO&Ju29O-pwA2?pO~dI*)Pp@Ub<{1i(9H# z*pjRA@Bhh9TyK+&Wv~@AgbE&PHMX#XZ*?}tvgFg)NWnmX;9%?7*yv)}3(F=@@SxuYvZrb3#?F~BJik8&XDr-mUikm`Wn)n_=_z;a&p9N#r|&oa@>7Q= zfBzw9QhJE{``6F^TP(XZvvyl|Pc92QB%`0GG`(_)fJn)vlDXd`plmhAt;dk;P9Wj z^G`k4>v-kKTqdLZ-br%3lcLJmw>TuK%cmc>nv|VqIeEjK2T%FrmSu##`ZCMxvc~rR z^WI*LzLTTbP@2ZK!mRqg+`TM8wXcuMe0EgkCKbYZTP#xE;+r|mqxU`oIZ<$dA`n=P)^ zSJ!>IEo{uW`*&g>@Bh+8dxR%5Eo`@)zvu4WR&&8HiD~BH>ic&uXKIvFbF^jP-Q&mg zgf}`wEbPbhlQj%h2csSc&)NG`@7df5PVZ&D3F`1R%u;y6vt_%I%B_F0b^Jl=Ti$P8 z$uz5qRr-;d^4+~=DXw;$zwKVmz3$XFg<)e#&w*`qmBsZ*j{Lz6NtqH+s}whSY`%Kr z)SZMr@mW!P4vx_w@}le4Em=5o+x#TKx#GW#cFueAg0pkwKenWuucCfm`cW6V`uOW8 zdpXB5kI&w+i@W~rBgZ58{A&+CrpcP0^)-GizI?5P)cLQ=-I`?&`T6_(dU4tPzf0A* z%;ibp4`ekCGI%Ze)xrJmU)M?*wv+2-##Y6~6(2r-_J*vK1A~cIs`Z35H!9^H$0}Ud zpryCLm_cPOC&S+EcVP|7x<6c9c1+oIz0Qhc1s0zm|DZ*YTm1aa>E~}VscpWLwwdGC zwT9k;iw!G3cwUx&&=z&~U(V$7=ZYTZmhvqtxM4q2mQ`dMUm5=~p+gKe6i)E|I8)8J zyZwPfmh%s%r0W-cI9FDmliIKT`|-goC!2-Kl>UjN-??F2pp_IM@GtVi3*n7h z8o+em(y5pfyKRPQ)0p-(@AVU&q;>4(_Lh_NUOMTH36{e5r);|)6s`SwW$g3!O>5%n zQ`)qOx3%sM$-QT&T|C`VZqM}3E>_QTO(*9^^yh@dYoV<-IMSsS{8yoKTsf~`^yY`J0Yfb~Bn^a4#s`=A7 z&)0=_9d%K76nb{r4x<}fbC>aYxSU$$Zl^K-Oy#3MWykZ(jBCT%^rxTgKfkgsMECOJ zVyVXIsda~4KkX1Le{7dlbo#^f+1f>73Nl^mI%h84wS#viT3x{j?A1PA@Q&{HA*wPbxWn_74Hc*7y~UrPNYn}RlLMt!&CNe7Rfv_Liz zMBf?C8!P=Yr!}xi8+ruhSw4#7>$^6GE3I(rcT1^T?`kixWP7StS5N%A=-j`s=8fn3 zZ^Z^NooieecfsU!(yG88H}6a`*!@lNfZhAWJ`qzJcZx0cVED$SEB7YfU=HKD4Z1Uo zmYRngJ``Yn_^~^z6BsW_~OS?`ONU;stLc zZa=8FwKL0^?VM45(BefC7YJ>ApWAPl=(r|vwpu{soze$2H(sR1@CPi4GE|OYN;s90 z#^B2{DdIIlk^}!6m1ztQl^wfhUF3P6lI9i3xK(X7O9<2QySwwAF>X%%{70XouX<`? zeBBzXFsKB>s)LRD~e#Mn&I-Q zQDx2{p`26Ydo|1V@>Z~2wZ8l)^r^AVl3168_rlW*C(knuES&7+b;85?r&^UUckW}$ z^tOUqUlw`xn*Ir4D7yZdeI27h;Ea-wF7Lb4ztvUVUfkPs(qjJyOW_)Y$&B_2>sZ!Y zS|;auDNJa#I`8SC&38;*bQ=CYeudp(5ubps^@oK_djyBCa@v@!yVXlq)os(nE20)Tt1fDrXXfbseVp<1 z>EFmp6R)kRn3J?vbn)z6W}cB99+hmin%f;JmaSNIcID#@l_y_$MEH~#%Ut}X!eVyQ zZ7WOJyfV>yg;Itq4^EH$d-$H+-4NGwtEQu!TbCtlvM*N9;{8_>JgeY|QHNvkzG!3K zw~`A}?NEGMGr~0SK{>3xy%0IEUudVx> zH|u_8#rKad<)3^p{Lb{?XnUbxtV&<{5iGBI2Y!`b8ZBX}7jZwE?HqO`d zSwHvwf3ByzCFPGdZFXU0pStzH;bRRJ)?Fu`9$RE{D64jh@S+*<3F4MEXTPt0your8 zAH}aZj0*iiS1jKqa^xo`GYhNH14TV z3CIa7efWBbj-&Dm*10n5{S&9HTUO96Y_hXyZ-9F7bL)($2VX78ci;AK(}M*r$vUDF zj%O8cb6mZ8QE*F*TF{w!hfU-bCIshO#msu58MMa4bo;@XPxR8V{!bApIQvWU&4RN6 z!AlpZYRYo^T&a6)WH$e}YtW;(KU*I!zdKMccFj%&Ty=g#{7ZmE@$;l&l~J*PP&*`LH}n;y!OU3`a2X8Bo<2Rrhf z==(M}e#Kvl=mjSyF#gb5cB!1tdD+_q3k2*gto!p`^Jra@d`0x!n~P>2yUK7N zBzI%n>W@=CER8a`RLdkQrLc;B;iF5puP8R02n@}9yfQ&uP41Iz+66ZKjgNXJnQ}~M zT_aKa_T7$KAG6rrALZO>`PBD^#TGAzsTbe ziLUnwoh#lr{gOPt;nckir^1y}j|3f=s5DDcN<=+y&lC1`v)w!g=Wbx`O74ukonmR# zHQlANTYvl9I|-lk1lgM%OB#gciQhguxm91-n@MM_)%uwIuD%8B>o*?FG=9}^P~pxY zt1}bD7gt9uU(4$urSLvt?z}e|m)0XED^6 zY>2F>^0iyvq~Y;f^y{qd+jn^qi(7xrN~w|MF0s@&Ou4}}lT zbDZ3u!D6ep?t~@hdc&0_+Ku<0|DCdFv)!w%_L_Sezn>L*_-}D`>4YV(B_~T<`LT0B z`?36}qy6j-`=Z~r-hMdSA-Qkv1a@BTW>vlX^SduTxt(|5Ng3z5FEP2yB5ohgDxY5? z_+_G>o9r^y^Kw@*x&NKtvRs(C`;k~+@z)P}Gr7IL%0BoWJZ<^L{~yGP%cCC(${ewC zY1>#FF!Q+N_n(K~nH}1-Hfr0)ZXx}Di;i@kzU`S!`z9L*X3ZQ$8+ti~jRpGpTKhl*z*Qga048aJd}U zePtxv)TZ@W{aIGi_m|eMU+qfEyZ+OF+4{6od&@u3gm+duPV{~~FT7_;T>g)_H#np2 zv>&Ys7c_sTbm7Mgrt^GUE1GVE_TM=sCoR8bg8kd2w+r?cp6-#KtQe}*@U^?!uXc9E zVwafek|L)@i6b21^B)(x|w(Zqavr1-KV_mR&HN%G@APkZ-&%Ar#x-Dpal(e=W70n^ zp4suWIpvRtmr>q@-3Gn(Q`8=`*wz2EFjyj3;9QhT)XBX3XtIicyxo`XL#mw!;M zj{CWJsbl4B=UUv3p(4|?5M=e|Vwr_uFD#YwX&9gV^cO?mCr zy6$t;W0o^YXZK8BeTBQ~#h&Sr?QTbQmqw~fKIz>x!Dars)CduQi|Lxr7)t|wPk%G> z3rmjK0`wX6bS!rHs2%0)oTtT~9p_^XbPswSqM**-x35_s1#BJ|?xRsNQV)k+SBF*CH|J z?Szglv7WGh+s5#Yy;EggtC`#iPImAJS^br%z^y_lM_Z*+J}ds@g9j%vdhe#yB=)ZB zUKS*;`TKR#)#6X#5_KJ!*1xUAv(?qEI0u`Z3w*dM$^Mg5b$IntlRkq#xw7RRUqa6q z{ybv!SYSc%l?A1I1}5u2s%*}kD#`cwtik0C_aw@6oJ`brun9*xu;<0FTCweFc`D+j zE^Qc)Z*U}%^;L8~XT}`aSO2!EetvNKQll;#&n`uIP2Ibv+^r@raG$7WmQ?%9O7&o_ z>_Z8cM{GTITA5F7m53%RjEh^Zwqotd#o|+Z`qxd%TIcjXCOEy)tvosI&fdo=p2`PW zmgL*?#raMB^fzjq6JNyX^pwXdCr#=vTERYR#uKqObGtJuKm9$Oe(CKJNBzj9%Eu}t zA3SZ^x#ja+QHzdGf>)L@o_d_C;qWv4iujDQiL5SG??d#SvB&$I7u@n^UZ1Nr=dB~5 z?=_ttu3^~!v}ylwC5J|}8Aazduy6~6pP$e6SoZ&v{m+!=3a^$B-W0!p;n11ms=X~Y zFINi0#2@%%-xc5F!X3Z2Zfab%q;P|O^0UI4L;2|)wMtXhuC+Uopfj5@clK2-W7nTI zGo)8Xel)9jwr2M0;1;C=6Hh)b63&``TGUrYZexYh`o`MghdEVen4{LLuDF^U=M zt?+rJaQDaNu#3edJIr64cyM=_W2&%et|5=f$3yZYUkPP@rT;$mg?o&Wukh1DoHx~OhaX*g?$gPJ zf9cFi?rO$JwZsHZNo6T7IQM{;_wIi6H@5u}Yd^2gzEX1dxX%1E#$K=R#8sg>`r#{7 z<&4wr^Yf?Mxc!bixbcldRJc-)$isuK+P&L-3;!CNSZq+XL!+rTXBk5#SEOsT`wy0f zvh)74&fk7#Q=qc(8^7hk4Oc#YNa4AE-%rxWI&X`W*eT}y(mp&}J{BGA{c!C_u0O}K zw+UgTwv|>FuQh*~EpBb_U45~&{A-Pa3~s$zx7{~&AoZG%fJO5_l zOnvWW{nNL%Kb?nVnm{x<{ui$N2Lr1}T^G zGcGJI@SfFZl-PDg?aKP}C*CK59v|GfVp3H{T!)BW({+WOeY3bYEj_02-TlpWFq(13 z(icK1Dn*l~*2hd@veohGf7-UW@D2YK(K4$dx1FDCdp_GO{dcBF{i$vDlch30o_yDz zbo|Vo3@-6m%BQt=l+0fCKBjuYrc>$B6<1xOqgjs~H#=C_cbQGq>CZ1kK2>S!wY)FFfLQ5|it&HKBqjAS}{$4IVRgO6J4e?LcxUH|qW;qyM z&dQq=YQ)lS_O!zwV8ao&rR)3tJt>fvi&IM z&b4Ja@#n(ly!hrP8xj*C8Xf*7z@qn6Qvr{p)kVkUK^OR(<4yORzEXU4Z^9gz#fvn` z1mtg>DYZY4v{Yr=hR?5OvRIuJ3C>Lxy%0LZrYrK?#JUK-%lsYoJC>%aypFjMmws<@ z;R`dqDIb1W`3fCc$#Z3Ia$u#xf(-qE}1d@_FRQw(a!|{us@f|LOiN#xGVr2d^J8exxi~JaZSD ze~q$nWAw74KlE0$%QCN-nqsv@J}e4w&kJG|CZWYOWs|+ z7IJk1!=E0ejBxU3PMNj>kHc3cI{1v$I7`+8nLUSx{2R9J*$mRrFk~q@#9~ zzqMA!&3`r1-{#+2eV!#Mlls2zd$Pnee@2S&rxU9uRHO?1?D>%`QxU|*AM$|rg;4&{ zgFMO-+j{3eesTYN^FpBw?bbf~nQp61pLCQzV$H)nKh9pi%W=fFvSzof~gmss2w@%&wUMoz4q^{crpQijf{N?YSw$fLYZ?l-D|6tZyvtrMRc^gl6r*LG|{P*gM3_iDm`S*0I(>|*v zZZ_LzCZ@h%jr7&oVxjl!lid8AcP?2i9-KVUOswY5KF*n{uEB@O?iQyqy7s$5h)O&5(l(Yq}@SRu8`*wj$56c<;Yk zt$kc-)?kh z2Ca*}&UtY59=4@@P69i1PWJK#n>>^deWCN(@aF%6nWxH&HQjTK+&d5Do}9c&bdPJP z&&wpwZqEBV?;X%Do!9%CJJ>8pj&*KO>%mQoh(-97V5 z=k!7WpO3P?WcfVPd#81ralP*NC(ls#F7vAhtJmVv2kRQwm?z9=P-*;|<=uSz#m7xI zjM8{-KAE9>y6VS;8K)h`8VIlWSsV23f%l?EpoPE$=-ErZW=Lb_8`PIcgY+IE?gUt$99?44a@ot zy_H{c8-(1C&G=pJ<6PYTYR0GckKdW7EOFlKT^`M(KGot_;4-EBhgR{mJU2<};%2`06b=3Xaq--r&0Dip=(z6_dX`t@vTMxx7c(Jtb?+ zq?I$C8XcF66F*qPvt*&ty`{IkFP|~hym2UxopFPw^hLQ3e$TbCwES`ytj}iEq`ysP zd{c6A0^^*kX}=3gw$2ocV*45L%&Oz6`HD&FmKwdy4_=uuOKEoC->(Z!p2$AE^!$TB z_T8^T=9TPlbh*6zxC3w5x$ZTuK37JbTy(*VZ<)f>CzFJxr_B*MKJ8fV-vvH*B%-#L zPCU_i_t6TIosLJY%-_mi;C9Jui~Z8AC%!+NuYSH&@OXimc(?P;36>0>l$+ERE2aCI zOXMGa_-U$Tvgno5XG=F6`}5i1+9mzDGE=7?(2h8CEOck>+0vL}#$WZGJU_W!e)_-T z)?r7ilsv`7Wp}u_9q2oz+`RG1t*~;w!pisaKb{CbU{X3!Gpyd6U^RUKVrS^&O-<9+I4lN%LRjT zWDcKDoapk}YOZ02kXcWj!6}_%?H1-t!VC7OFPyb`xyTtd$^TRS>wSH=cwG$N^)t7) zH#I38oL_2xtl{IIKgYi;?MW0dzq{vgXVm9_|9ejCVl{s^_r8Zhqx9S-&-X4q-F`RO zZSmJl2I5LjHZEPfBg1E1PtVVUtKvIPO+B~BETY+FrrM)985jTQxz5TC4?fGp;_Fr( z-T!Xpznn>ZlaD#S|Gp;v==_uelOh+JiyXGG@ziV!4fNpM!@KIwyUJx#BITyP>byVi zk9|oBn=R&qBzT$;G$Cn@e5aK$mfau5ps7oO6Ou=5Pxi@L7L`{r{BP!1GDzi0dF?e~WtU*C4W@+-pj-^Yvo{UJY($NaMS*S`FM@9*Q8UUAjGf4p4n zzUqsAofqhKjDpGA{(Zb$-v6)YGr>XbN(@w*?RXjzuW#pw#ig6 zuI3c??8LJ*j5V<}F8Aj4)-`{=?Roy&qsYrqexrW#6nmO_YqdH#L;yuFt17#_87GC9>d8gw@013;T|Dl|DK;gf6mcW&tiV+CNKUFI^9yX>5Y|q_x6vE>KAOE_dI2~V-Mfg zMF(CKY|8g~Uo+2E;)T+c#|EBzgx?w-To}!J;>*uVH%~s?TeU52W0BOcn`yplj(@f( zZ`mKSCpFgUK-h+df-zT(cLZ@=sPp@&!L?-yCvTr(OV8W~-P_GLJi}vt3QowZD_d^i z^CR%%#?MYUT(?BqXO}xGgeNq(Y=6|2zw-6;(<>H+uI|pf zD{-&meqFwBI%D{c+>#b)AqM%yr_7(^PnVulf8`VJub!1j-@aS4vQ<5Ia&GxKv21$C zagO7!#nqgp&u3)%WLb8Uu-%>ba!CTy?K4MC9O^#p<$Ob8$4+~@+Arx(<^*qPQT*_5 z@}>jQ>W>>dj>wk1y3#Rs6~~&J%+_1^+Bjy;RWc7$i)y&YTdNi?uwcu+*Y=U@zhdf- zO|MmNTOZ1_DdD!Lop|567(@PuNsS%x_C`hjSsMAboZV`&^MjOe`xN~^Ze3yZr_Unv zFJ9dhxb5%sADk|iCHS^p-*b5CWxkFL?LXZDs(1Gl-0t0dU=zErk$Hnxq-3tXuiBSK z%nJ@I>3z1n=kVLycZoq#9-1zU_l$hRS5(ZC&0lBDzQf~N=??3h=5tFn9r||pR@LUZ ze`kJQJ1^)Uo5PUl9m#*Hjzj7}BNKPcOiz{#>l%N!&0Q^!YLox8W}>NaV4v}IaUYus zGr5-f`pEvi8LKxYc5Oa;=IYBm+pEgfh8)#vIAS$X($#q9lBi8vzn!?Rchf>bO7+?y z#->@#CyL@9n^b*TCEk-+CjD6Nyz@Gyih{dl$=^Hn?2zkv|MdLRQ~C8f-yZ({XQ_^P zB;%axO!@myN(Xsv_jwk1(^aH3(T?l?zEgK)@7+>vvYnfzE&Nu&UYDz^GB)M8#o2>l zEf3o@*L-2MZYyeHGwcjjVOqA-*{-zdVsBr2%K7YXy_2F^Zp#O&=RbV5H%w;j4~aF! z>ZSUzX6>2ktPM|p{MI_ptS#YDT`I8a+QP{Dt3|)KdY!wFxAcio@Oq{P({y8W)V)t; z8}BzhK7~a>MvSo}Um-j#RF}I(v5)0+?9*~>+5Rgzx8_XeqfN9{y_4 z+xOimp!0m;pO>LUHc~=Ms#uq7N`Lc^AuC7N-ZMK8e|wh0dwyyE?=Fk!m4kk--G z*@tf!OlM+Svdhao{40-?-`}+2w_?m54X$eU4LbN&ud13{ZLv9DsZsButi$7XT)#}V zZlCJi{AYIjmrH!=IV!gU+*Vi$RvS1rc4V7n>948W_VAJVu`3qmr8rimthIDYE%+jG zWnL+FiraM#zw~{lU`i+U~YUS?nA4_G+P>zvR4T6m&z$&A=l;m$ntJaNpX=j3jsJC@M_bd|I)|`~Mdw|N zr}*>g_;>HKdiZA3ybsdX&MnlMS(`HX2GgqBJdZO34;$Y%y}XFAyvth0pHcAUck2rq zZW}*$xO*yMu3NkD!b4l;b_R6cf6n80KWpb)ozv@*Y-jkHv?jB}a$00L*jae!e8SzKMJCyE`I(HdtkHh-XfOEapbvQ_wT-xL&1wASle z@?LmDJ1X3EC09axZ7`cZvL4AV{~wqN--EYCHhe0ya5CQ<$EqLjls&Ut?| zIJW=E(zYvJFV=qM^K3O=`^5agtI%pCg9+g*bsXGRqEB`z#Llf=)#3NOdA7my*2LK3 zul6l1-xp5y zFOK?9&oD#&hGW>m8!6L^-C`B=)+Oc1aUR_#-{Y*Hh^@2c-?(Y#`1F8}@d6`rgF1zFn=-jY5jXdT1x~1#R`{^&jiTnk zkWYdI8>Z}jc2}{sb@iX8Di6eWWx5*~9gd%rtIMb&wd=|Qj^$i`ez*ASJHF9+@@<}~ zo2wq?efhfngmbTCqPJCdlS2Wu2%jAYf#7w{~fHa9o5e9y(2O6lFLpZYt0S-O^S z=N5|?@z}e*Pi|YXES^!A{pHzB`BGUq z`-`2{s9oWj@kX4R zw#c-6&CLC~-rF!?b-wJ}eW4C^Cf)Jb$_~2&3>#X)Uj3VPvhG{m-#?YI56j9w`Za%; z_bB1(oTd*ut}T<@$y5-W5>(yi)><}?y|ZwKUU?y});gQ^S!V-wM>C%?T(^%i?wONH z`Q-YPx3Thv)=JF&seS70*?k=AMCbFQugR^5TmIx%X4tN&X)`sVelO-vco6;Uku=x- zuhUO`zjXW3ZtiTiVDk&tyx#xY`{jxqZ%EaGS7*Dn85z4B+kdu3!c9|*ZIiX3@h$(> zz|{*wQ=S}H@vo(NLEv(pr^gt3y_RQA=?X6Ko+H`qn5MWzzWigT<&JDe*=1%2bS7o1 zzez5ukI6h*w_qLH)tH}$gU@rO91V?^o4B(4^_9O(eJ*^`t%Zk_AC)G!=1BIO*cTaA zB7Y%YO=e!rG*E#PCLWo8q&MK;%)U+cg8u(@4lL2ma?+){G?=qOAF?@ZhDe( zCQo3-apO0$UYR{9d2nB4)}Q@3inXgIoqQR1NAp0v)e@bLdo))1DX=rjJWi^8Zc(#K zXn&mYJlT%L+Oh9ezLnkkXZe-;lCjy_gw;2ee%pPFElMwgFXoMGwakjmb4y;Rwq!-w z3ry0G+@@MNdGW#5dm?JP0`D01c5rWIIXlhYBuh5DnRQ}~`ihwjd=`pI+K% zqj+l`YiWp8*E#tN(~hZgqY4i>I7wR-x-6(K66`#kxIf4JW{L>M%sMB%1uj7u)nY&P zX02JwRP*{NTT0~)mm^A|&pzk*DlfL~?Uv-U*O*%v%r#k%zd}iqg{{O?w9IFgl@?d# zQ~M_?!pyuaMb$sd5H{%wp6IlvPjFZ2syTYeYHL-NtGT8h%->pBptpK48>f}Xd&v!~ z&nCTLbGxw22=IBSEHPi z>4%wSTNqpx5cB%t`r@D2{e|}?t1ex@`{$ucITwG<`_H-i#9nx1J$5VPwvrQ?)Wy=| zuJzN)a%;u8eUi_g#ok+Yq-jaOgsjEF7W+h&mrkzlXj|ImD%U5Fs~7Nms-=XfuU^{K z+2<2NPx4Q`tmGWVP+`p+tEo{!k6i(4E0&V*e)`HoS}2%{Ow7 z_p@GUs}{b<=Xv4E5YGl(eWn}p5Ifv>>}VW>q8-D$RDjX zfA@sz+Tz!>pG(hee!OjoXbgAlt`dP3CbiYMqKo&Icyqcwjmen9{@748+M|q7GiOR_nq1-c`E+7uSDkhU3hT$wA^)8=L@`(ADLKRuc&6>t)0NK z`*e-HzT`Ij&o&o5{N@FQ2={a87g{?jFL$W^_wUoGpDriV+e=J$sy3OIQtfJ>YQJui<3UCG5G&NKl}CZub-XYdoR8A{q^%# zvKDXu?mheaTU0=8Tin79$-mv=kNKU&zpTC*Z1nBNrfdF(ukpX;cwb(AWoJwN=bu&% z``t8eD?fVr!g5)z~4YsU66CH4&Sr#o&KbK_4TE-G^qao0ykIqYIYY443oy?f0ab#BU9p-LSeEwd^78BtM<%jutV)ozo z9$mdfTf;4J^X#?S^ENw{^`t+0C(4(ex8To?EH+b2#XP0@hSFzr3-=Dm@1{an0{0u9-cAim6q?&!EYNOAyFQ#i^ z!!KXIvqqzumto$t)iN^#xAg9QxwhF#kgMk`uks96bIYxFuJ9`xF0BcAEr0EN+^h$m z1SePC2t9UfVN1i31l#Qk-zlkR=WLPwl2W6!!Ap7f>zXs~tauJwnEWZ*=Yg#1YGFeS zu^0YPn#XtTIQnOk)WSL$M=yifBE^Ywq#ymZyDyoN`u$N@WpvN&b>6j0x^Jcx*hU-e zu+yK?D7oYJue2SfBD>qpOzXSgXsv(4#BApi2Hv;*VcQ$OzAT)&aASDOmelLgZr|Qq zw|ZU|xyK`^=2+gZT>_7HyuBQrZQRNAw@0OT(~7)Tnir+y)%xb{I2mU2c~|0}+D?=1 zkI&QDwtrVL>oUA$@3E6#r>{lj#cE&WhMzrwou&34T(<6XHq4%UV)MRWo*c%4=$Lem z<=RTKe0O;4ExKLu+M|)_$%?RTszRq3L=Li9eO@y+#cnNo)|H39Lc7+4#{@o_7O%

T_~#p+ zKU-r_v!p02DC|v`+iTILv(Jq_peG{2rF zE52LzP{pE4?$hqry!x5DurKHn^YjOgA0|0$VUs>D_U=PDm&L1y18~82(hb*hxg2_pJ$J-1Im!$P%YE~p& z_`IwyfZL1X=F0km+jev=+$^%aY|E3d+4Bm+EM=sUC%kjZFRj^r+UpEYkB=1|_juiXp|`1BM#%ZS#;(Us>G$5rA5UmIP=1(iweN-*+f_d=aGYiF z{>G7t3oJ3ml0<{OwslQ(zqsX9P@=wL?vc_PItyA}-qHOm#ny4*O3^FU_`;ofnyVUP z4_%c~E%^R;MbSfNu?J`Ro>j;>KVI~t?Og9CJ&sS?j`o`sv|e2y5h=Pukb|*b@Ra+K zk7ufs7tDJmS+e|SQBiPKp!T1x2VC!Tj~ct*{=d_$eP6^jM!(rr&4+GAN=W4N{p6U+ zBOU2*{bEqazr1-2%j|nrz3x>hdGf=J|HRsBXV@0q<__BAYA|8bbddrJ(eFK68}{tj z-#l-P{?_)44}M$+@19#E`)~Cn5rG?C+gmfAytu45Pw#nQ&K^_uJaPw(v&5EGcc@y1@^fDL?YJIW6OtkH7Mab@!$f?>y&(@7!81_+CNuQOE?Z68NGS zzT8yyprlHH%!*9630xs*%c_|(DsH8w|6rQzBFjH(Nv7~gkHFchB^POLe*eL8o7wA{ z2a+$D?SJYBi7M!~pPqTy^_=fq)hXGxOQo(=EqSzagTuZFXD`dxY)_8i$XDc8|G9GA zlMImwTXonD?{fsi#XKsc*W&Cs3c0Anq+pMlSS?Ltlv5htoR$@L4wC-QG;Wa6U$iMgZ^)G>Qk=HLY&&@J5ef@t;mT7Eh zf!xu`(EeS5O6N9It!nEqI9xT|`Q65tV;;PVMDa zW@)j1ox9EQ5%;EKvqf8{@NYh=@#1aI^WC0rZ2a$iXI$sqf9{gU-sTrP+DnB`c2zF= zRQmt&ZJQrC%6l{0Z`S===;aWhqy2tg>*s^#ejN!m-0||=mL(>UZ@9QMe>zIo375#E zw%@_H88l{y_d1nJeY*CaJc*P+6z!^K-f3*7e$VZ(eV+c9~QyG3mtI zrR;`oajCtg5mM^SmnC8soL`w`^F{t~u#Z{E!b`7jGnN_YoZGiNwO*OyTvNdJy2|or z!IsvRJ4*iasFw@gvE4IcdZOmhZ?bdZ=W86CJMZT#{>4mUN-pBx8E3!VQ_D|O7;yc6*>q$L*OO;Aby+6e3|?vX{BX*( zCFV|tC8VdHxvj$$IhW6^^Fmki2ZdkDwR~O~zp*&J`0}cP4b%ViGGwftR zD`W}phoi4A*w0Yt5bpiha#_agN2#1)-n>BfIsCgH1{+VtAwT9F%RhzJuGyEKyYY!G zl$R1xWNk8t?oUN7%GWfC0f!+4-HswG4#$w+r zvOM`K7*Y#XFxhGr^nRLMXls}JZ%)?d5?1AvPu^vn75_Sw-*5A__4!4nh0Sli^7dD* z-Sr?zR$BSex7c5^cT7>1`fzRaKAT4_`UP789(v{KW;(AsDD}{4ef~?1%s1bIZZG>@ zFEw?8SYhQ(W?|=|vzCg71-#XnUkiC34`AOKzeD!)`I3c~?y#P;nf$ckgzl;S#5WA7 zwrxfNZGoD1#R7IdPcka_VCPa=FB)PJx>L+{*Pp5qiN5_IwFi_A+0E35jN2g{uHjs+ z!1|f>T=Io2HF-1U97#QY{`ZmQ5A1VR9GZMGxbE-ehFN=$EiH{~ZQ=S>vf$azXIEu5 zt!li<8Yi8Zvt~*0woPA`rrrq=NIU$jpFJyA`%S8rlcw~($L}AT9JX7eoVeiWN*43I zy2%Vb<}^*)aoAT*^7SS=745y}F8_EZ`{6gQMtoCQK=1D^8O>?0z4Ldw7l-ZCX1w%O zXOWQZmfB|qvOnV-!uSqtlF*7Xe4zb!uF;E@N1eJ~v*J?QH~TJHx8ZC0!d-?B&dyYR zR?GiZUwyu$yR6rmr`oQqpP3an0{)(m`fs#u|4-%U3w{UG*JdPtJF#Pe%ERW`=?_-d z9O<3eu>Zl~62@nq58cAA^|)9w8qeDu;CZFx(Lr|ocS2f`&FdSI-luNX*AA2oz9$?t zW!WP~cdsWGpZi7b*sC5Ee!4F}>HN{3b>2@DH#kj?QFJv4eXwoD=Y>r+W?~BO%6@H7 ze6ZDTeW8Ma#pR5o7RjeCPw>vZv4UgkpNvxG#2sdC=`vNJEzkPribgJ)w|@1LA8iU2 z?P2R~z4*Jrq3_7+H5>a+tMoXpt-f*~bi4BWpAS63$`~G9Gzzy~*qUv-yXb}3mb~m+ zg}0TQPsb*o({OJI37mQNzGvQDmdI0g?j@Lp?mc-Ay;Z%3W#lNVyIxC0AktL==-GR zrI%zV7@H8cFWT0-Uv6h%`B8^|O?mS;%dF0t?>u?3aju1dkc!xZW?7a=Zj;P+Ti?2S zF-up$-Y)d0yZFsD|EiW;ymi5Gt(g6$h?KqZfB#-C4fGHH6a264=iABq|DXTxZ^MAt1c=oTdugnHTwUTo7?^W z6)atU{is#)oV}ZFKQ5}>tfv?`T}J+3{OZ@zOXo!O?EYoD@7qOf@pW}6=k;%V=KqmX zQ*f~?dEd!ktG#Wj!>^mG%{rQ0`t|O=<%U`kjQ(!x{bKKK5{%#I8F%T0>Cz|b=RMxs zby2=tzy;b@7{`r5R1s-Bh($ zFzoePp+)1=nl9AfZqH+u`eIG=<*Zv* zHZV5nv1B`)iO~MM_r!U}wF~_+oL{sFBt5*+#3#K$Q+XRt;sOJP{F@!?Z>Z>>zIW&q zze2wAyF%aXD?-bi@1+Gil3L2i9a3@sUi|9~5!p)a-*4w;++4rW?V-|+xPZGw^{@C9 zA72gG^J_)2`AKfGIgjV%_xRV(Uw)+e_<^dqj)e<<-~F7uC&B7a_k%`-`FELq?mZ%F zl`iVkW#6^>@O|cMZ(o((nIAZ>=UdXWEvs&JD!pU4Xi|F1F-`ov_OYpLoj?747F*UX zcCHsTX8SNJ+wQFF+-p*&B7YoR%FtihEH5#SF-`WPe4X{pim%7D+ivx+2#0q3-FB<$ z{xs=l%iaB6i%hX}kW%`;EJ;4%I@6m&Pn>^6Ot8<``+1gw}$YmQ$NY4f-;M=)>C;?xI0vn2R0W(F)O zvHoW$Y!>6X-bwWhW4a7qjOv=QswqZJH*V!G>qwV)ygj=A z9{R7{jSg-7dTU7(%eDiV6Zh{s`R4Q*Mb8kM4Mw|oG(QO1Z{pmaSd-CydP_yZ%+GT- z9-R5-w4~^#^Xj1je7k&ZZ@D}#uRpTUbL~Q=hAZb)Z61q0tzulP=*wK6k!;~w!d}D{ z!0}<$$7KhirTg+T8EgD6Y*}((%Dc~ZR!>XSIBa}ydPC&bqWPb8#lOlt9m{wSM3C#_yeYr1sw5S#Rxlf2Ds~xcSg0e#h8H`rP~GUVgdc zk#F$s%}Z|9btZ+)c3oNWHQysqlkeA^1kY5L+&!#nyelW&6|8gIUGPlgy{rp=?isJL zo3U)1SAFZm-?i*Md{fQ+`~j7W>4CK^FOJ7&+27UBz4CctmsnuniRH6YYG0nuNjulo z@{s4750~f6E;3d!l^m>2)8i{c|VD@yrO;y)Jd{iK|V)m-kjT@28#dlj5HC_xg3dls$RJ zUH|`0tA295`Qd^M4K)$6+!g-9QWL(OnUSz(fn1=Wht%KeyQc?D(_S#)MbJRQaV;MBdI2@eNkVP;mirMbKXUAz0+Ol5hUMew5)0_!&>>OS!(Mi2jxC8 zEm64p{AQDvlH;GIz4LceXkS!Nku%vRezx_e;`z4>b$y$kPj#MBJ9%+z(JG^)-P$q- zn1g0n2R;z1*;O;M^wV9@i4n(VH>q!$A0XLwI`pL8GC?z$Sw8if7GH8bvh}-K+JjI3 zV!o6eGdt1n!0h1dl?M6kH+U=N-hcI?Z%=FG=K22ICzfB0<~Tk*bhhsdt#hhzPZ$MX z)Rmhkevs!?tE{X2TK|DX=cKCfLfzR+mA4Dl81L;!6JK2%Ke^_!aPREZudL@rZ({zT zxbO+%Rk`)oA}=0(D`mBgdr^8)Q$ax9#DXQ%5`nHfAV= zF^6yeHRZ5xz@O8ZEU9u64;S2bwd1=k&n{T`!Fz+T?EGw=_yxl9vBg;vo-WafKHXv# z{V=;xlvj&E@rKsPNJW=BpB73RY<}bOUgcBm#^c{u#Tn)CG>;mb1JMUguWszq9zoJI&KGwtk=Lkr*PNwt!nt+ha%lEsK>KdK6w7``$Px zeU8~s{?oAwTmE+(;8>{Z@#jVJ^yE+0U};M! zm9vk2KKuMI#Va#?-X7N2CpCU-`P)1z)^X0BZ9Vg}mBC`QM<#qGFAm2@Bx~%1WyzpPg3; zw7Yc8N)B>%KC&tB#+hY1S6c7Qymt2O@+CWFpWXKJY-v#fQ?;h_-ev2wuY6_bGJRq9 zch29Oq?s24=IPyEesum;AH5mMClgeXraet?t{2ZRnUUb|)6{9HT1tJww4&*!BqZD{ zdVcpDb6u(yqnTknImEjEbve@k`A;Si+cekd+V4ugePey$nx$vwc1(M4A@rwnZErxT z%Q=N53p^rbXN0;=HS!FUdwN?ewCGr9-$yIvq-)7{h4guJ>hwC7#jS5&rNY{Ge$L*w zk9BI*wW|&-wB|GB@qM*MmUEw>Ts{6 zDc%p2|IQN@2>;;UQhYv8*Qqtp%JaFzAGIx=Db{_;o;N1viS>Q-Dm z_`zUPa`lXo>WgwtuIX17Jh**w>I%-Z4jCP8%M+3w5v;|hbaf>a=G3YCY!g$pz0iHo zvLn)QF5}+H$=2(Qo@n}{-qI5}JNLUzTOn=DTDnX#Oy>wJ*Vb}-lNFB^E??-=n7ZEQ<*!=bs_Lozr`sY~Rr!O8 zXNGK5u;Ny@Fn`@rr}=F6TdkyQc5I&bZf5+VS?5m{vOcxDy;0kv)2_dz>vfXRqqlZT zxD}5U+Amwq-Q%PvZ!7HG{c3V@=C?%Et4AeF7KW{v`YJ6ie%g2KWtJZ*mwe1OKk@FF zcWsi3PvExi&!_S8nY3Izd*pZGX36$e@8KcC}pu)@DX{Ow)$6N(E2JXW{ep1FKZ z^*-J9iGH)T8Wi(rz}TTu}@PD z4B~A3o~UXQ_r$<=+K-%6pSR01b~8Wcf2W{->CxJP=bw~br^&_bvS`_R?6;aB-3h>-WhpGYee$0zGTXCiS-NMM2|YM@j)iA`S-w?UEB8Y;>+`H$M>J6-_A-jD}0dJTXcW( zPYd~^tTO@1{{*JFu&&y`{`8OYpBV8zz5J{1bgu1MUVL+U>4_<`!vEa=P>{83zG>FK zMNd}muq)fPVJ@#GYsZ?e2d*CZU~}vjr@H!gz7x>_X0=HLf*)m%-ALNm#`Io&-Ry=n zD{L8DHy->mH{IxdnuBl9-0kjfRwb=ruYO=~eDZ?N3pdy8_FVQ=AUTXzCP=KusJ&tK zgeh-LIhL7C3u=Pg?LGv5dj@b{Va5{+Y zoi^G3cB9*IiKnr5_eyqDPTSkIt3IZ@d1uSvHFI8w=RayRHP2!Wy?Sit^1S!6beU&& zH5Nbi?b>%%`lBb0hR3`_zvg(RA8I-g?j|NvS4dth%Sdck_ODP`_8sHRkCxkCi0nSH z_t5iq+ueH}KikI@zTf6a-3*QWR!0xz8=p>I5b3b%oi2xAiiuM`uhab%B@>0_2k;C;6_8HzrIhWIp!_poAfpNUC`oMxA!qR zd(PQJ-;8@)F*kDky+A!rrRROUJW;Lc&kgGD)IR)O_e4SbY9sfSg<+e2nAWl6#wZEr z{N22C5AQTvrSnVfEuNd|8eU=4ED@diaz<5^Lc_jWa_`ML%D)tpmH$j%{rfB%R413+) zyl^^s{a)8sCH0!0cYYczo4e@Q)~P}7AJtg9^1gc!uy|MDuRG~%djFzcpP6;FMDLM* zWzMehQ=5xE+a{lCNcBCObnYXoY{H7adV7xsT>T-tFO==tm&Lh9Lk(Ll9A7-^%FM?L z)qZK(8~)|54tzW5mdu5?iVahbZtb7toOtNXp_0zdXBsPSNW7Y?>B`i)BF6j1W%a!Z zCF(xC-;%>Umz(dpw@qWs@gI7xa}-NnKFN5sc}+{iXXI(BANHVDMT>V$u zkjW>n^jD?Q)hP`-+ahO7TKf27&z;CNEkz%BRqqE@eyXePnR0cU`LibV#t!ejk0pQn znzC=+^9vFi=Cm%*j4-^Y_~UH-RP%Y4Zafoh{NUI*jb~BVPv$FJdwQgeX4Zd;z7^SetnHhYT0%}-rkeD2=# z`00;d&uOW?dptkyZtNtl^@ho93;mAgP7P;u-qka$nQwJkYkh02ayY|Br_=X0_1p+~ z`Z-87EvjvEBZJJ^7^$o3x16?E|Ky$hJ#)MdP*!d4YoOci)pqH<`Pu?n6*O zq0-|M4QJoiZaTQ#Crj?9u5trllB7`Hdi zJD*!T*?n-lX?0vi`@m-lm?b`hzv+5K+W@}%`^j$NBJ-S@jpG~sRKs#}+S@L4O z9kFF=7KERPHZZemXun#0T0&VPE#}6$m_U&eS32twq%6XgYW!TjLr6h&zS;5_tCk97 zs=FoRTAWNabh>t{@RL+zcK`=9N8 zm*_psRY6bPeUkRm4aRkLn^*pduhiA_abBLVa?N+erp>|3`!wG5rdVxfdf&N^u{6bA zU{mn*#^mWDQ>U+S5kKO`Ut_L*NsjHhqutu#oh%j6Q*&?Jn_?)V_4C83_PZxSECX{o z|3v((@ol<(c}?&&T`lf^HTMs1+}RZOb;`MH{^;rNXIZ$+`xq-d^BKeL4JChGUy^0h zH~uxvH$YtIM!B4ah4R$0PY3%Nj|c8-zrXRk>YLnMjJ0ffi^Tu>P6|~oaZT#kkblr& zTJOo&?Y+yhr0a~BmleNktBPoGT($4d?6}?;H`l3Oj@ua*@>tvHI+NzAL+j@*@F>1w zR?^G&WzNBM;`_fo|D(v9S}M=}ljFVOv2wmCakm!FdZ{tH?xDl)L+cF~%A+@0Ic9y( ztn6HJ>ri-Q(faeIe}8j_hQG7&)c8N;NK^36$u5>VrI*;9anYHp@*!Mdf9#Q@x!-&? zM~aF*m^sTWgJ0|LRr|}2&fSi9zqM;dpzFb+_uKTJKe>KI$w|9ER&9lT%i+F6R$aAQ zDW}cWa?O)6O6S;e_K)S0fAW96zW!q+dHw9U@V{#I%u|2vT6Hmd)#^jp(cw!C|E}60 zxFck%@lh@zpMQNyYENTU2^^Xfe0Tbi&kciI*8um61g`6c(97r%D&9jyCwoa5c+ zm%CQz)hT;r>io*HJ3sxpuKoMB-+ui48o27-hu#(X?rFF6Ux-`G)%Ab5{ko3tgr_pw zj>~U%XOmef`*e%Ow2U8h)itFYn~v(=Uel@SE!#L}GjFKO-fmrA1NHjESqid#b=7jA z3%t)wYc+kmYw4wpUnBlqeY@>T|Lw=8Un@Fx->chdyYD{Ro~-=y$zG>~KYLtVdG+(3 z%;*nqw>>a#=ROyxqRU~yRK2S4yS}*Co?r9dery+H&3QBJv-+}ak*hc!MIP<_C<`J2-#1XfA>KGpjBkJRsL;)z2#6n^eL( z`~RLm1?An>Z{Obi_T#?^Os00rOEml9MI_h9FiOtfaKbX`kBEi&o*iLEX&@T+x6ebye@t#EnL7pM=D$X z>$;oMj{jMEd40t$)fX$Oe@Sxd$DO~TvGP{R^a*>5pLnUhNd7InXS-(Cv)>8j_Zb%I z6y{Xl63zW%CN1hvV!2iHAn&Zt8d=$oG`yF{8NRm`y0$MZDBzs`H@zb*weOcmg-+Xc zRM@@$(N}|oH)~C&m%aRX+@z%@$}e_%<+cgOyqx~9HTzGBJkI#&+MEZS*4^qc#pkbm zC=F_UZM>f^*8jEdizmy472ca0 zI&FjQ@_WUiF?aa3#!cm(@gPla(HjqzC_hIZCdnIz6*k)+v$mKKrm1&hW7VYn=S@tM zrhD=p)obsr>Qj5O(8ycxrs<@aEX{vQoRiBrA4*5;3|_ZLiRcN`(^af8?&Z>~h0R71EZQ<# zyVuUIvHtajb)jpPfycG}pw&-TUA^5mL%Lwj(tSF@yA`CeVw?0FyXGs;sNElV#j4uQ z^u~kTD_;E$6SG^jh;jd#)VA~QQti01T#R%czIA$bwRO$pAm5yTXa27YKPET&nTH&g z3)(r~vsESBldXTH=w2tqo9z1&-oI}#jCs;`&i2ojsD`y^$*oZjH~(5wd;VW+%A=+l zyGfeX^(%aLAM;pw<$Pctv(lsd*=;6kWsV(R%kb-aj_JBDBJ&*#-mW;rx+r6onOn#8 z?)y8ZuCl3?+>@^*c|C5z*|XCXbFS}ra(LC&V}A<0N(&Y@uSk=%Sz_jzAs1}ye@0m? zSdKxS@l)S)vSNSZx!DztEoQnaDUymC-x7{|7Y%q zFY?Bm2?ft@g62HUjg1l4@tI)RkZl5*GY!&r%giZBEmF{T%SkLrbxBRmPf4}2<0>vG zN=?k=s+jXOHacHs=hQlJwj28|pUX^gmD_aU)ubzHH99A<8=K}#YPXsGKE`A3?Twx9CI0FE{r%_Fo7eYm-+j%W z{_u6*`+fG+<;O1nPh5Ha-Tiq^=7-DbKDkM3t^W0@XZgQ5J3EVaZw~W!ntAu~>dp4= z{uiB7Te|ehtJ}-}v)YR;`=vQsC!MM8-xt=BfB7%Y?A_k<{{Fmp4(rV4SN$V&Fk8CqKW3>5yL7n2%rh^;IYo=b(+F#!qe^zDbt@z3EljOd9X5F^*Qq+&Xq9utR z0yk96n|(=mSC`iJ0 zH0(6UZC%@;ez@eDVu`#=bVS$Op2=S?D))0fPGqwGEF$~U_pE2)@&^kZS?%~RQ$~I1 znp=h4TaC4Rcf9b8P!LpTH7&{6HEDWgyQn;G(2owEA6;*$;dGqYN{HOONl&%29YbYxc#1 zlfGWP)t>cyPq@R(g2~_d`bBPcYwU{hzceedWTn%Rx$)v$*M8<*n^~#oy^mYz@5GJ- zsldZCrsfD}o~conx_M;%rJaY2wpke|#mzs#v@(TnSNx-ftVh=_&0T(apGxzEB9ha*gOq{=zwy!*UzX8#VQU`d(%pn3Kh6`f8bed z_H5#UbmPe5)h}-P#N{%b-*A*6!R^df(TRQ8m*R3nSGWZ$#@}krb5Xg`A-B`?`INwlzk2h8=2Z8#p8ga+rOfH@j(D3xiMo%r{dE^S{QuxT zzKG~ofAcq5RYiZRclcM(Vb%F$m1x z@uo0ABA@e7^8A%wUS^eDxpZdt?+03^tfw5A7;b9ZWx$=XG~s%cS9w`=*QM6K3D;hF zeZTy-BJ5?I%*`LSM7_O*6x`P`%`Dd!T5qX(uepyk)Kd6A*Hh0Xx85{M)BDN7F(DI9 zt^V{iIWunBv(1n}BoY|Sog)k!jC*&TO19Tls_fic zop8nMT<2?XAzx7w-XA~rK0RpI!!$31l_%lCX^)*kTb=(~_GHYN#_Zs-?PGAv3Zv*` zEg_x>BMh}Uj#ubVb|@8ewoF^i7}9X5FMUN6_b zAoy3z{pcAVUie?*F7~?pSHElPk7YHgXJ>~>EAen_JGF`{aiQDVCsGj_TX`Dh)+~*h zvTbF+9U=FtU2$2=?S?!)*A$8tUSje$4e-x0j9f3h)0LHJHp6bIkj~X#zI-n%YCCv% z;-;EjW#%=7$tSBMw+l@8Ah>u(Ns-X+Z2|`R zyIewUU*P!b6U<}s)nI|4en@^#kXu>A6SV??G~KJ(N8YZwHCLDK{`@N|9yt|#c(unT zl3VZbxikCI?2fzfX7n#P+VnBj;kR3S<0O-N(>qGVely7mKjMk6XVKMh2xSaVuzHfd zTFXi5#re(eBG;^7^kJ)UyP|RN=7w@cAOH5QV5z=+z_g8<@t^o-}ihwlAS;&t8+2Wzv+cb0@SF@_(60-9pm=iae&vjJo?XV*Z}RTSpU<)4 zM_y$ZciyYlJ|^cl`bF)hv`5WYo_eT4gjw2U&-*a-2T!@IyeHn;t^LmFURbScO2qn? z*)}BytJ$4<6SdZNzFY2Srg`wUbJFbt3(l_T+iA}E)+(`1B<%PuO+B+syEg1t%G-4y zNp`$}(~+LL|ho|=P8_?P5&QrpDm z$gX>3VRZKRCEdjqeaB8rf69AMc&Fc-b!y9sw$(f+-By_$`ADtMKx_M!xYgnX45AB7 z&;O~u>l?lIWaZktw2O@1x93#^mAF23VE?gZa?SF>M+ef^MCW?kIVUNzFu=oHhhssr z&f~OS$lWPyF$p{hhP*k-Ss7)*#x4mrGc}U+(uKC(zRB{Kb;qM? z-vfO0?6)R;@|Cd&Ie(!3pUnTwuMR&Baqxa%Saxmcr>8GgEld8{;wt*U*>K6z4OgnZ ztqYOqc(~;9TeZz>J0|r-REqDgIr)cS%f$7{`6Uln%OQ`+}+t<+t3cjD=?h=kjxA}uoG zU#*TVEmY{;*zsY>KgIWD8kM~#8h!>dOlgj=QLtVY_Sc+KZr<&fwM(3s=H!X9ew_Ph zYupyI|JyoSmCUX=9I-Zfa{TDTAl-~70fM!zbr$PVxI~?|vi-0=^f)=*eBKmh0}90+W z?R@e5`wg)>34g`@%6*u3@l2EH;`{pe5p9oeWOZ3N^QSyL6yL7{v`|( z(?p&x(tGsQIMHN+(6hkY7VDa8xwg4~R$P~{f5Rjcpj%K-{i*iSN(qiPvHlg3+eK=c zv_6;w&5KA^4!pQ~>YVHtx%FXtLoV&DQINCpnf2LhUG%M4X3|v$1hW1Is~j|oj9X=( z$@UEix?f6z<>T44E^zxWZn4?dvtoliTyszs{cMU9?|GxJsg-K<(^L zgQ}|{s|qbSt+_7kd)Ix*Dr$nMa!to%iH(!)gvGR+IQZ@Gvg_}yw(}H!Z#m{9>od9T zc<-lkYZ%O8rhR|xkWjCkKR21fp5^+st}@=PD-V|&9&I<|y(=>9%(*k`=g<4g_x_u| z)t&e9``Ipp99eRmL8Lq(@i_iBN~sUs$JbRHDC7#6_i1lW>V7`kk{2E*^&C|mS7+fW$J=(q6IMvig<OOVex3VB; zEz2f`Z_Jz9Bl#k#;h3vo$k|=kmk;YRbCLtqlzi%v?E3>aWd1 ziH?B(pC%m1xa|6M@}v8Y{Xaa~&FE3yIDvCJ&+b1`;Yti5u8(^foeQ+ex19d(HtlJn z_N*t5W!m)fHAD1bi-q-HT@L*8R^d#P?niIMR|k7HhP*l}vbSJQ+-uo0cR!n$2dlfd zKJ^sZ`Y+CHr9993)EkL+7Ww6$zxLVe*Zi(ioJ*#i^prBL7LUxb7gb@INK zld39Rf*M!b&Y0G&8v4jR-2d0M3BUGC__d~Huh!Wj`#<-j8Q9X37A3x(ywB31AWNM+ z$7iai>RiuHizmNz)%K{qtd}zDU}z&l)*Y1{cUiKYO}Z^oJ#C&y1#iH$P5Z2JcwC=o zuWvhQ6?0efZpW<}gI`G^hLsnuO#QfM=j89wZ8mFPvCU}Q`Qk+G``rz%+doY$+3_N? z@$jbNn}2UUzohawZu_%lkN6iKHp!Zsc%EpKSa8W^){?O5?Vl!ue(-Nu7O1K<&$xJY z;DlP0(<}l@jnwvVTJGpGPPN%0&kfYOjo#f?w5Yx+T#*e zqxPp*@OA(C;Py}^;@7el8khcDFODjaE)n_lFi2WQg2_H6*>TggpQlg$DOh=6|E711 z0<~c)O0ESv%um>Rba8mn_K&CidH4;kSv>EZCvK-u_U|s|kA`!%8kbGwt3T4-xi#&P z;oM~blMQB7mAuW2oAERsGdOmYM>ij_T2jS!@yNyBX`ic4{Wx|tE6Ab6 zy=R{aYu@W^xznGu8?FA)-nT^0FHmT=`C6Zr_1Bkr-iwZKxcIopKK9{@kC&b~-8i;b zdym5MZ*|Xheft0V+o#2j-_?(_U0s#(SL((x>(w{SzRl-blfU*jb4XdtZ~Oc2yrwsq zzG*!-byKa1gW9s~EGs@-ddXJnr?Z#qxldmdXZ=0v2}KS{FV`^V^=~ikS#ieW`}vs@ zRBkt({u;e>b@Am%8`5e7?S8c7ynPh({^|0IO#EW89TTN}tIH=;dZ+z1DB7^^*}TNQ ztI-cqlKsz|R#@zo!^5@gd9(B6ANlX!C)HhB+{UEr`Ok4t8-r(_bj=C-pXxnQc1fL8 zDvi#3_txK?#$NBxC?u4>{(j^FzZuc;cdC}h?D=Ni9Bg}E>bcUU3Go)+6`pVUpz~>4 z%6sNbde0kXKb;%-y@2WG7nzEnyOQ@S|GGbLcy}~q>t6r5S^qkjg~F@mTg&w7e~efE znfue|zTMv9bHDe!k&@s0Yq{aqA1Mp@>t{3NBzU+!e)rmF+1ayar1x9@)_!pNvJI9| zRnS-|XjIkI*vt&Rzr+;F{t{E7_LsbkjqHE2O|VY>iTjtwJP#5pSO0H~0Li5S*8H;p1nXwy(~1TQTieOx?a+%UmRnZrxq;xSo4q>zAe+I5{Myj%%%G`km5zE%mkPkK?DrEEl`t`1-o6XSU_C&--WZ zkFO~&{@5(f8knf^wop4v+I;ed3nz>2oL_L>Ct{_~_sf|Ie{%nCS+30)I{W@F&;Q3; zAI_0@{h*ksYKhr*@k?2*E8fiCv-8LHeE&5iv#kC*TdVzLXjydS=3e&;>*uspZno)r z@cc$Dm-iP#{%70jZ}mS2*kjZFugH%c(t$Ho?WPZ3+z;N7m2 zy2Eq7ZnJrOg$YN}Oy3{D=S1`ObsrE2+7KpuNA%C1hh5SyriZa!3P}I>cz)ped(YJP z1=me;O#U$|=zwN?^7I7FneXSxuTRW5BiH4TeyRQNh4^C+rB*3DKRVG~;f?#HS>pWb z534T;ve`Ie$t?5bI=)#6hwje(_Ly1ZVO?F1KjT(isrQGUZwXcM zbQ!t67_Uc5SW52Nup8K(f1kKP?|^xiu&Pqid!yTX&gOistJ~&i@}DXGxyX@4jI*vM zIx?iZ7vA(lxWz7mZTYba>^3xpqj-^KOQ{Ij#1@ZZ({ z_Y}8nK3)GSFgn6?q2B)f*UG)t&Hp-^>`whoZjd{+VrJ)$>e-I<;l}-X??0b6-^*$t zt^HtK!XM>OfkIBPCa&6r26N{W<;$|FyqvtPL&UIWe&mxtwTp%kEt!k9cJ25x#qxn` z+C=^K7pyN=omp_;agfXoMxT36D)*j__|DSSb0o2=wQzQ}^NNXc+=D+>+dKMXNZC3m zWSGseP+r5OFZjV+;&ws7;RB()@Bf_KJge0_rMFMzP$64MS9xC5w=eHC7VQYnxWJZn z|CrkSpX&-ZH(xas?0U(Y_i=uQso0H7ezuo0#Et|cMWyb16&YG_CFFyK7LiMe-Y$8UM0L+|Rvs}lcFCFG3yU+H@$LaaU8B&x*e*0T56h7{q9NGI=^67y)r;2R~R^Ofe__K9x zU-*?NI_FEL*j?~A#FE=(*6~tWXKV2Hx|crwrzSZ$T->0+^{-)G^0ecVEqq&-AB~z; zzvVHD&BM%f<}bc9I&nGf{J!(;^NFgNr9`wmz2Z+YKU__pNz{e@GV z#2m8Te7IC1sFdqmTA5IvjhIIb55QTd%aDdjq~Apd-wSFJ(`b8j{fV^dS{$f zXB{N{uv<0luTRE9o5Kxee5YQoz3%v75p$?e#PMn0uC;5-XSpxt;U^n=eOlTb)o7`x z;5doK{Nl;&65_#q0jGju))-42xbVkHY?YhHadh={?EUjm=poyFFM;$ur_MMV zon3MN)X~j6Z0Wg97k%fQUH^0Wb~T9`wN46x(Ob1wd_R2Yc-@|^V56gpY%J4aZfuO5 z!MgSA?y&bp{d?E3naX`S?_YV*{o1QFcUr7Frn7JM+rFu-ar*rWZMyz1l6kl|ww3Px z;Hjv+DsOv}s6>_OlN%iDFV)X%<6OT}y!YxJ|A~|Dd2vj*qW@6^ci8S3af{C$dhak9Q&Rjg26F?SkA1h3#?lfT|^-Ufb&p_QkZj}{!2X`k38Au@a7kM8-a>@u9z zJ^7*e@0j?J;u+de4|@uq96J0pJ4vSfs_`qcs)?C3m{~tS~^SXRxt5j;_ zg4~vieYe&;l;@4%QNCdxbIVxinU2o(V|Huk!?abIZB1`I<$*JCV^E%v6u`B~ku zjadP;IX2f8uXf?)cZ?JJJ8OjyFTY&$ub(e0C!J{wnCvW)*3V_>c|5S|PW7M1TfVFc zn&bbs(0j$@eh)3n)%#~&l|Oc{>J@)*tpDFogZ)c>O?J3CHKbondZ|Lx%1y?nvt7@2 zUQ6=W`cgt;@!ZHjwjlOJsoflN{NEY!7Hgd^dSCKHF6#Huqw^NXblhrsaZ!cw!y?mF zZ2wqO6?g0vvx)HeQu3sssBMGDZdXg;_2L37B0Fw(ZC0?5bPS08^HkN*@#~F63tpVz zT30lMm3fuAGS3<%pWd}itSya2a~d{R^0Ce9GgzVXuPMrqliBC%i$e_MX|{<0L3jNn zVv66V|IjIXxSuUXXa@6CPY>z)`^=cMW*Xf3!KYHl7gGJ$`taU)niu_jSJ^HQ`FdM< z-#3P>7rMUsi>aa~K3K>t9HE zSb8k`_qs;bJ8Dz83~E;AeCa&rDt5fd{YlrEE7u$+x>?2eh+cIGG_&+%Iq$D~J>5y| zw$*dV1TD`l%X1N)3GBig4O?cs_;`IrLi)7Ni5`46=Y*@)G{$r!OLmPpvri~Up^R*`P?74PqWq0_^ zsLHCOixs~otPNeaP`LY&gu?#%35&$L*+a8Aj+*RF;{6k`RqB!9M$N5Kb7Gv<_^-S= z;nn6d@v9vLBMz$vuV&okyF)_qlDyG-8+otDD+yuFQCY4mwJt}Pxi9cNyfy7A*E=I| z-cx~JSAEOAwROeZqA!m3uf20QZ*;VK#TMtiN_X7(SQ(lF6hNo;dUitJ++8&M978kgI`?&_O9m4&e4#cvTWPoA4hF#Hbu+~IL*+#$m{I>kN|eiuYXP++^u+z zN$)00;*Q@D?+-CNox@@KQQ&QjQ?Iqe-G7W-M<**BdThtJ=-Gw#4|2C&{GO}s=;6L# zw<^yxf6nW6meEr~#Qiy+w=tSVxBe;Ol)vNH{x)HayZ4U;eG;mt&gsnma8Pt&kw?ji zEyun7P3ozdUwLuL2bFIU9gQLH9#3F668Yw=&bJS@)+>C|xfn7vq+gY5hpFAC;MV_> zUgqDrzDTQMUY~{lpG~$cpZB?$?6X`Lc?H*R*02x_42b^y)D@OVKZQApure=FSLRxy zmb^ZL(NSSegW!94CtL2Or7QD9h*}kn`3YCN->jHGdb{q}Z{L-86d!l5>3&z~PPj)So*qibHkJ*X>%m2jg z^Wj4w(>r&2J?L4i67_Co*QKt;zNPj19vpo?XX`qZjNC6}vf@`n8gfMo-fVx>&AZ== zqe4V#ov~YX*rdMJmokqPj`V3;BqTL72TTcUQkYsBcr4KL6hp_UGwovWMJcr+ZT#PJ z9y(2&dSK@#bLLVN=bt4ZiL$MCzOUUqFLPb`Z%(&{KW{v%ty!3sRsCVHIXdI!#K!5f z7l`bc_OLyFj;wKfM&C>uL;2Nr-kT{ZXV2SRxlHZr+^kn~6Zq^lM$HmsUFdVLiN(SD zU&rPIcdyM}tQVFqiEKQ4IK=zEjQv@!U&pN19XXj>cRu`4j4|)&H7U;-EGEh{d|(ph zeydv9?^^ucG;)5M{6;&k-CQ!?jO=YSY?mxFT~W@HbF*=ug7oXl9lpUF*B>+gb)2^L zyK_Q+>c5kzvkpy~=KNdJKjYkX$x8k^Uhx64d)N~h#IJqv-}Aj-h5&1Ki@~-suKo6N z&%IGDJJFx-*wYfA+Fq~Ie9rUF@(j-d@(D}UmF8_tUA z2+Ll-Yg3fAa{pPLDYqZq`I@qswVr?G(wJYWmJg2v-8rbXWkO*L&q{J66TsF%HtJD2i^={MVZozQ22VX46T_vh|l# z=kIG}nEZMA4W*clDRv9rPP==k;lihyir0Nd4*PR1i?ETM^T)%z(nNk!Q~QR}JSWz< zVoe)EFCpxXaMdf(4a3O;-D>5F5D z$)CKpPW`SWI5lKe?fL&1kpIc+T9g8 z@?xpcWhR+`Ykn^)rYeS|l!Ta1y;qv8a#O?bu>8k4TjIZ7m=IjMXKTUhkF#YvEHcD% zlD=$QvbKC_-=Z~g8d^So?kR>YUr@clXIABV8@bF3XBPsn%ux>UR9F-=i<=gE`~?9!LNUIhYt4nj(fA zuq@;<1r1IRUdR;_oiDRpv@ZUO`Q}5g{rGyZoEiB(&wHMI*#2%!!Rg1{N6S|~cdu1% zO*pjXp6uG+ev(JG{=WWkdbfU`c>LqIxl{eV^T}^X77Baa@~S#Loo_+JTZX>UX^}JK zABgZBXnDOgI`)UV_SDF|9E)##N^Fv^wd}jZY}X;tv$=12`c6kK3FX#}8+2{F@6L`} z?|0(!+WN4)uaCaswc}pMW4`*dgNO264-fBin!Dq4@An`7d-~7^IWuvCKwW*YAj7+w zwtaK-_ubWh>;5eJrswIywf9wS-B;1Fmv^tXoGLrV=KkbMUmtbc?)&P+xc~Zx6>Cm$ z{x=E;@;La&IB4q}<(4-(;j8Vd>sG{do$wM6l}?q3G=8&q=80<->OC^^bh(`rS{zm` z{j*njxzrKHdsA0y8`Zh{dAmF_=rT15|LE80@O<)-+ozA*p8xG!^rokZk-yn3EZ(;k ztjNsHbMTb8qxQ$X;Iroj_eb;01YVa;wSQjyod53U2|T}q=iN~}8&-cG?llOt0Nk}%dAx{ zSj8M>!&}!BeKm?z>z-PfV8F-3_ge1XZB(AmduSkhDWc8&{}<`ZX;SZW*BlD=yq@{` z#-#EG0Kd8hM z-F=HgBGg?w(Iw9)4#do z`mfRxY8=z<2AW;g&b=A3_ol|2%yaja7Jv1O2uz(eWnYEpi#Ix_Gd$Ab<<~}D&%X1K zmvO1eo`|`vu{_3+2A}jQV%0xYJS{zEJ}2oweEtK`#|;g=_ojx=+1Y!>DP>b4W_}=kC*#+n#JAmLdzjzskquk^O_i}%u}1k> za(|nWwfxoZrxjI%jD(LYFunEKVS+x5&ZTD?N)^)uCCrggs!cD=lIc_;t;!>d&6xDsdh)-){p zn31?QMu2;EQ^6w6^-Z}K+EO3YO!AIDyFBptj|>U_?Ab;2yE)GJh8Dz4ITYZhunbTw z)|+yx_^!QlgXl+{8E+Omn{uh;(yPf2%luMZmaV^Z_2rx}u_}q@3Ei_#Y?-^&%{@Kh z?DnrYlQ(~ua_@nTR$bYRPakD|tTteO1KSZj5M8t<7)+pN|ctA4fTmB_rQlO-p%TWil%kzaREd(wM;r+YacAIkAF zorpi>b3D3r<1}9j{_loL*Zq2AO-@Nf@BO||!Xr8{S84zKHc=Uw6e&UW#uaTZzwFaL zER`@}uk3g0-92l*yb9h`6+kuKt`i@eew@TH-%;(ISBH$Y*3#-n z>n5jNS?2ccwZYef_sdp=t#)I4YQ=50#9wp6x1~DM{ykrRMQ`&_5xJ)!H(D}3JW5!` zSbIP%TaUNvXpyeKzf~J#zkhjntWoHNa?6PsRnfJNuWyR_;vCeQ$zZ4@QI{;bqSUOe z_xzm9W2I*A4yUiJQVvru`LlWP)>o3dA{BV|y;^fkNyPndiOSBvxd}Y_J;8~77dY4H zRMm;p7u>83(cRDywNUDpbY#O9$2BG!x>MC{I=c^lmYnJL+~)giuU@Ms-&szt+VniJ zZA;(22+=6!KS>8#)4LzvuiLI0_u;0xJM)y;3T+A=A=9EO=6Afhvdyn3r=Eu0sxafRh(3_CsrsB-AduMp-T&gLp48KrvefAD>P60nIXPI?Y z&fT3C?KI{7a+xw|SR~jSj69pQ&Fd_0;$A*2#fmfWmooI7T4y|z$x+$iJoDlNyK>GN zmYxR(l8cXUIN0VzM($ZLH87`0YQ=(yx_gCJ^Lxs8FSgTt{DHITfRNDnoZ7x)&UGCi+tB7Vxod6Xa8vFux@uBrBE)ei1nb_qqkgcpj7+9ZFH?zu{Jkwi^(KQ2K7Z#SZ&z*9ahRIh6_Hc ztq}b>>C^1C9VSeQu1~6DY#+NYue|c=exu5!6P^M|alR}bpRcKzoOI$n7(1a(+hDTT z()suH#QkW?aN%08;hf95NqYrV`qnHlJ1AK)ZL`#={u6aF>s=lSbj&>HXCS8{7r-KJ zthYi;J6QT{ew(G~WxkV_KO``*imlJocC)=UH@P~-=*7CM>!it#3QyN;`}9S$=H2BFC4XORyy0WJ=imy7Q&$Z7I=1#j z?)G<`FSjc2^|J4CIJnvw!k$Y`<bVrK7F_68cBn(nl7)~Pcs z*I3rN&u^P)_vk<4dQB5&pY?Srk9?c1I+Zs~G&cO6U1a?;>BOB6UHo5@OgN`Rv$-Y6 zb&5Nle4Ub>H`#Tk@8Ttn4>y}UylmnncYitO`_+qMrBwf3cs^V0inQGBvJgohm6;Bk zn(|LaPZ7>r<@RmY41>tVkn4Vzxl;5vfBb&MHT~sQPW`T(rYmEE+4?)G1^9h@C;#zp zxaO0(PJBy~x8V(wiYE%Wde=A(MEQRdJ!NgW(`+`H^R;106D9JUs=Y8w9YR;Rth~3|babe)%HRV&i@d3|@LHj=tx+^3C&L4*ws)SJoCpe7`ET@5aiGV3n4eC55|AZE<7{ogB^;`)`l_ ziB}?AZ?2`9x4dpV&DF;OhMYH@6dfIRn{wHa{_ z{zh2eTJWpPzTl)u@cW7V=R~h&$b=TKb1how6mW3ya#xn-b1pB_4(`8H{cie^C8`ac zmrv*Fg-_LFYns@V93QH9@b)Ta^|dqeS4F=5`APA{X*nCO)i<7nw%Y%QTA+1kht1o( z9sJB%{aZgLrqA-2k{LP2?euTXjTKh}t_q7Zhc%QWMzFLW_sLlLtp7X@eW zW;l9^m3FADQd_?4n9bVo#ZRId5;tcVm5wCzE8VxFJPn4 zNrk|plCp3h5rRx6G zIT4qk#QJ=@sd#lcITY z#JpNxNwH5?Up}`JR^UDIe|0_2Ri265#cVE#i3hajSUGbkByHN|^|E5A&i9|EIc*Jf zQ!{Mb|4londBR`N^lR+xBaz=X*67VM+V2*>f&1_q9{XFKQ*?iP6uo!QG2yVq-$#G7 z?ryr6kbk*-ef^O@wV9_MA6&FjUUkX)r*b!iE}hnLmwi8Z*|s9ykiJ{<_a&*uJiY&7 zD?_?$N|@01d3v)IPQIOq8~9nPpvZx+_g7W(4t@A7QPfk#vGZ(lQ-?RZy* z^I}}}pYG0sEz4iUGv#b#$mxl_J4-Ho-{b!e!ai@)I;SF`a`oNj*fnY!ReANVtm5Ay zbx11ye89uJ+N6nBi<@^(_HFzpP^$gDWyY2-iHjZYow!`Eaq>BvTg3)yv)mp?|7u^E zxNaKH#;u1xI=8C*<4e&F1Y?_w7wz~;S9-Mt%>ip~enQEWA77jZ+9#xlVJh_qe zX|arcRy+$k+dZO$*IZQi-&mHX=Lg>O1-`2R(3IWmi3>x~ z1^xugEeMxe{-t62Ro!>;T7g??EdNHX^L)Cw(d)6hc(49N{*Rm8C+n=Scyhe=cFimk z>5GP`f7HK3Zf?-8p117y>@OZ_8@}97-w-kX_R{0IU2FEO%idWxr^kL`MbjSt(>qhU zV`3k1I;p+P`eZHe{c3OLy?deCcdW_#Xe3y-sQcf?(yBY2;`|z$<)5af+C1A-v^t*c zc1#v0?}xRsL!_?!St;GQKru976aUBU*}7iwdoN$ym@=Qsv3LE?lUYk*6?_81`ollI ze01#k2l@R;?pIzcSyijQdRK8+-?WF(;qTl^=4M=(_VF&GsaAeX{PDUAkF<9&Bpv;? z_g>q4%}JjwmTaGRbXmfrZ|`mYh=1mjKQ6RV{gbbd$>sTqT5j*nIls!CTFEZ*>XiQU zACijiK1t^O63p>Q`%<~A>B;`r_ZufH?(?=e>G1wKckw>mx5jH~Y8MVq*a{#KX6}iQOo;9|I!t_PP0yt56|NaJk+ziC(vh>H_w}x`tX%j{Jw{Cerj+1 z=$CKjrm@>&`TkOyN4ju{9?9&s;w9Cz&Bp_j>yu z>wm1>`-6XesFE|5p&rlx4tS`?#1e6OsTr2lC1ymfE{UEVYg$xS{w((s^RHY#bvx<1 z`e!D$^GsHB;HW5?ow)W!-t8IRc+HPJesX^KDwW)+TbABke$Zi)SU0B(ngHe75u+}2dRLKOADE_@L{$s_+#S=SUwKX|y|4i4aCry~6V&lm8Cdi5L zy0)jk1o48kn^-Yg+xho#|&E3i{@@H0y5S-SfcZV8X@&`m~l|zdaoY1_uuRGrHZcd^AFRxGODZl7A>9A)>EMK=Fg8Go~!4` z*L<~7%zMePS@+`a&5NfjFjiW&wzkK9!mU>k*DeM9HtKhsXSZ&B{O0R#X2@SZ-e<3| z->v!1pJ#tE4p^|ReAwerBWffa$Mp8qhuufywAZ|LO|^Zte&!mVCDUI2{Jdq6$tDB& zH6F%IEA1!SuDdX2%F{m*Yhs(su1khU*cz?4H2dfZrQq{b$?pBre`HL#vP$7QXh|Qm_-nvs$wq6#M$#Xm@XDGMX^r!xOGv^7}Y!P#Is3}P- z5zb}mY0JHpBD}_H)0Ea@74bXnthSr1s`r1U7Q0jvU(oHN%%Rm`(XWplmNc%NB^&)o zC2H5i^Ugshn@&rdSoPq%$gIyvJE!`+ZoJmuJew=%@&6C)hOe%z4qty`mgW*aw@I>5 zt}9m787!?i`)szW!g@*Z8OaOYu2Ai|(er@mwx&{%wb%8{GvcyK8XcQ8&DyOqDv}H? ziXL7mb7q2V>qh|-ozkv}OE-J-gjoq_?_Z&iGHLZ{DaUL@PlgD2C3J#Y4UliBgZ&9u@#ayaV z_?%(-r&WEmMm?MMN8O)y;K;`4hlflqm#hmnzJK_6Wy71&?x~+wOl@C2yP;0HwjlJ0 z-WylWDdx*pA1u24^W`SxsrSE^%)Mf6fA9L&FY~^qd-dnPW@wv}WxzP?0bBbyUvHx# zEw6~a5|3X=*{5etSo^lGSEoO6Rs90vJSK}Dk_{Ks+#bBhZ8bhF!uTuVL)0O~?`B;- z?WcLQ%(v9=)YnfvqL(38SCIMg$?USF^*oP*o_ssLQGjRe{&mUmysb}HnJa!NWBzJA z`OJcUoJPk)r_OFoDQo_9-hj&ONOrb!t!H|7dXHi=d~t zCgz5X3beeRmH#s1)++)e;PYKz zkjSz7V$nsumQO~$(mWn~u20Tsw7La!A7$Ks@52A-Mk4$3mUOF5&2wI=bh&X3T;1i*yzvSVwEFV(=Sfhl(2tu@#ZK?>9&*3{7h=jhUWjv?6{b(hhrC^0NIgs9mPxR&VTEJN22_xi^A4 z&fN{|d9i$(DRWJQ_~tdi_vE#sg4kHS>Q277of~o7%V6v5D-Twss`_wkll+w6^i$>C z8>NgpF$^l7IrsIQ$~SIb7PmvevBro_I^M zd#%q6wI?0d_a7Bm6?unmW+cPxU8m2zFrB%ZtAEa|6Fq_tB)b1|9R4Nq>7$mf`r2nL zHeOFEwfz@rKFv2ieY?hKr77cfDf2U@6!yG1T)xFt{><9AWiiSvM=rbkKhk~2Z~qrr z{T*)U6Zz&oKL3HU+xWN8+1R*=88N{PWluLv+J4A??%9{AOO>W{if=pFm-pIBTG~`w zN3h@FV}pCVLE*f@Sn3k!!+*e1UP{>frTR^_ebtM1`mKqcU>z0Am%jGOmRunZ!y`2X z3_DmBIA8WKHJ@nnYDT1<5~qmGH^tCTU-JU5>g@4a{k`>yaI^Lu@wQ8*hvdue#-xcI zS$DbZ+O-s|H3v6n6*(XH^Uh_umFW@F3;OS-v=?&hxSrGFe zI_CLxXRk^^OZTyShqD{!2tF!ukg<~um40)2gTkT&HpTX3aiWR~t+cM+k69Mp_x$8` zfr&BZ{jJeDX(CEfVk;G2P074*;H={_yTWxc}^D%X4PArQ5{}KE9u6{(RnF z?qx0WgB4!$$uF6Iv@Co!pUySTX{XdmS4%LR;>gnCulM-HwL##Sz0fIRrGVs^c}-W3 zM{e!3{q-<9I;nz1j7?d|_^xX7+vZ)fR8y}zJ+u@_P1o*t?GeDsDRqd+zW9=O=W<4c z7_~{WmR3BzQvG$hywYWdxW%ezXv_Dl-SV|imCuxM#RnHxD<0v+x@$GBB{{7# z`L?lk!@Zs>*;6g2?ak{u?Y*UWpP71zjrN~pF`a0QoP`!y{w0%35KSYokwy zzV&Hq-l(`O&&4{FkE~bwQ!&#_*g400w+&zJV}=~=Db}{$b9CbVsm|=;yAveOF3J9a zvF}&fH#N)Hy%sygf-0PkwY(Ld{A1bKIcwUtpEk=W@BPhw^l{Id6!yKIchYOO_Rh$h zR1?5(ppAVigM za0nT>1rs%jZ2ESNG^!m8nd zwcIm?UySby(-}iD)~qwT*Dud{-rLaEcc$<9Sy9R?7Z0t`Vrox4xbKKe(KEJSEmzhH zGCipQS`4}sDRV^&nyk$7H6IilS|t#Ccs=vM&dz;zte7@)Chj>WoGl-^Sx)-nhdZZ^ zTF&Oq@9YRa68-+6Mf(2g9_{v{FWa`c|G1{N!ejmtJr@?!?-?yqynL7MK6H`mnzk>m zo7cvo1CoAsH*d*&9>`z7COXx#lr`e8w)t$`vkyfYG)~1uOV?>E2LItuJ4P08M{A( zlw_aD@mk+7llM;72QKdZz3;Eiy1IO-;^UC_XOz!gx_n2|<^@!ni5 zQ_FBpiRfo9#MZ={6&;(OnCr^!eOYk*Q^{Y_^2Y0aS1TQ4EI-r15|FU8+0NR`K55Z` zoNv=N?BYl>^o{>}Y6HeNDi3digth>U)BVppC>_FWge41gJ zuaxRG_&+FL&uksB-kSA|fa;9kj`n(m{=DAo{HBSuNM;pSz{3IV;#IQC2th!OgJQYNF;!?*WM;&Yt1Et7H{Dd+_TPN=qWld#5idWeZ++>XrM21R|E>7@cjvP1 zSvyB&OP0v|UX!DL^)w|IW#)vg-+gUKVqI5%rF_bnhi~mn_uqAw;+T~Ch0DM)>e*MO ze|FC^_gpG+$nAI2n|vdaA@R&%pOV694`x_evo*-^9XTi3aB%jKuAr|0zat_x`c|yb zHRn+OI3Z5q&D4v>u9R~GaR_jST{R0>`a|#Usnr?I#)s{fedlvdP0DY%!0z%tIVD+F zz3Dq+#k{Vq*Mb{o^#3q9+qCf#d(J}rOTQvoE^K+tvP!mE?8}@5Cep_5irn%n_+k#` zCPsEIbvQOtSgfji#WRh)(Oa(XYdP}T$Ql>tu^C7j{b$kkE&OYPhRoNcgt-8XR|Je8H zyC;)2ob&&7c$xg#s`mVdjH5HHZ>@I;UGi?@OTqf%%T7;!og0&~R`$Lh`x>VVqg!{c zdh80}oL9`T*v!*kPT>Mi^x^c^;;h$f3<}L>&DCIbw@77E)W3N*lG&qtfd#i&^|Kfw z8SjU&ujgDondR-U9Q-?2&tHnwe75kl$3D~JzwaJ0m@H+wBqwU+?mVAe ze=8xqG$D^5#4%R(0P!p38eoY7pSmOY-RMrPugt~ymo^_Yx%2#FYhu(_bImq|FH-7!ugc=C zi1&*(NbG+7(dHfF<#(@DZa;tW@x~(O{&W+LS+W&2)0%rir`}N3KKJd0WbxTaUd#7n zH&)u*+hwsbEAOw+wD1G^nzD_NpFX@d6)ery4NUcR)m*9W<5=~yx9H-jB7N(FA6EWi zUFdl+-aXU%fbxR4E&x0vVr z4SV@;t@!d-&Z8R{7d5T43$M2Q*dYAl;yBf_*$LNgB=5?)?*3f6O(JA@$c2TP%C_sL&Z^F_xDjPwbmjj2 zs}p-TA{I1CaL?ZOp#AKX9ILdC6&s&(GTYR=vQ#v%T)?1Re3-=}qr?2LP`~yxkN?pY z;bEN-Urwj0Z&5+3Zib zpMPwa!IpacTDGK5j`r26wKc_iZasYy<>2k}G0N}9GUrBfLmOX5y&tc9zcZ&+r+kdk zGkGhOv#WN!tKv8AZI9X}T+LQgWcyMtFSdbia&P*gnLEr+o%fq6w`a{e50)2G5AaXC za&A(hO5c6e;JnAPWXf6IG@JBJPkOm>U!(5B#B$vi=WGujTYf%?L5Jbfdf#fpCNox( zM>FUCR=5{#`f_H@Eg7l$ln*@X*Yee!&p&r@xyk{Rl4mj-3opEX<6Tm1rNOJ9vD2-u z{JdfNiZxkPWpR_%GzEPQo4;D+{>5!c=eImm>TP&FKaM%!>5c<}bv@k?;&*#Iwwal; z*O*9OdRM>R^kmin-qy9M+Zn=IRVTtzh z?f<;pX($&RF7?b{s*BxB56v6W;m0OgaVqUy+p~Pii`kz_F9>r#F8Eh+xMy`*#TMCQZdAY(kPss$cIgT-zNeCBEF&w7WZY=YbV>=HIr9HP~;Mdp@^jMPT>zMBz0|7RPz)&vQIa zm*>86`u6`t=gxlKRenilhDS(F(Z))@#5L*f^VN6Fx#G+6M^xJHX89hT)LA!w8hbyF zQHk0R|Ki+EriBg%Pu@&pRFI!4!On8ggzqwERq}-Q^$K}y8gsRGtG|4|O~y>`pfR7dsM*eR708 z$%t%>xAU4DT({~bdxu_JXmx~eyrxUj+Tdm4u4WZM9((!{roNg~cx4t_*iykmze_vU z&z>>E#Nno7)u}yS{EnsVi?siJSoDa=#Ms-$e%Z%rBqgWZ`%@Fpz3zZpguCXt374;Z z54q!VdH1ck+xqL4HvjFpb|CHX2I(7-CAh z4BNw!e{h$0c!%MRQxiA8E6I(Su=%gx`XUj%6JkQ!tRuwVG6)8BEZ&*-l)E8ziS1$2 zpSRf#a9mqAd3CFwo`Al%@4SUJeEjQ$JQGez{F^0viIbz}@r2Nr9JYwrWe#l4YBwLP zRyka>H)*=SuQi3KmsBD&G83+T<5uGgJNrsjM{u6-^%=J|SoiMQtS=;(b!D^nv5ba| zwio^P|L=ULeecGXJpEioyNkcGFNr#t&c|prp zH{s7egM4fGnv|sN_7AM%-Z)N+xV(G$m$wHm)D*B3Km2jCcU^Vk^mHp_=lkg#XJcnB zTjFwuE$-b`R_02t{C!96e1B0@@}}_j!vlr+hgFp;*B@|R(`n9d^^MoU4~MI{cKzpe z+Pt3apc-KwfJ}cwQqM*)gL@NvF`pk z?RQ@sc@kf|FZ!U-7bVP6+o|qsx1jRqOd;d9PdCj`U$G!LW&=}Ya81vw)DQYkPQ=#m zY;K;L5w+}x*U#lrNp7oJ4-`m05>pWV^;_kwuk^`>N9Dth^?xw*_{e9~wnM69&CFzJ zHsQkPikv3d1J~Jp`emifW~m9^bJ+KqpUElSC+j&}J08Ayl`YA3f+J!H_iS6HKHk5+ z#azw@PV_j)Cp>i#GL=~K*JrL?>iMVl4c=kli2*sPxrHI((<#V4}v!Y z|GoI*-4Fd6FU8*+vG~ee_G^E~TrZDrehVgd-MG88c}@UB(@pIkmpH8dFM4V1=y$6% zDsZQqrDUt^)@R2Z{VMkP&1IW2Ddbl<+nfnElVvBuIzW6np;ZhgpQfU=1$&!>gt!c-;XZdR9W+| zO6KcE_eCczl+OCNbywBv{`dt_r57HCvUHjkr_GjbPYaPO|8n>0G9y3n#U(HFoI~>W ze12|adM^Fy6|;}}x6a#$eot#oYu|VOYvsK?#lG%uew=?|=dE&RTE(~K*r{ppZGUv4 zP4{!`&-%7CHe{b&-mVn}-A(sJ4SvjIns5K+p<8WO?k#mYUC@Ij>g`g0DxzGac8YCA&0vVAGEkK!@jxMx74nqqp zVQ2wfBmpXcprwrkox{))k~tuyjU~jnD5Z@BdKg-Qyg|n>w1i|1s0$%cj^aW~P>>;~ zLqh{lTA-s74Gkd9g1FJp5M({rL5QSiXaGujU_oe18ybQ{=;=yBNc6&735rLsgOFTl zh@Kt|4MCwxS68Bhr4hEUG(=C6hDP)bOCyx9G{P2^Mi^mfMDMVKw!ok;F~SnucB88+QPQOewy-qD2ul-sr%Mx*utYS(kn%XRfr+RU z4Uv!Br$-~)&;%tcO|gZg2}W3&(mO0oQNj}1>P1bL;GM7FLKIf2gWJROOqZr8VQGdf zEWyoh6jvfI*rZF0gWK1zwwfWLaf_5Lp^bK=bZJKK@)F#}hPx8cz(sZ?M!Gboce+Gr znHyqjnj4y9l$Z2woEw^>q)Tkgb3=2Cu%veb-4LaPZiuakZivxFH>7tX-OvIhEG@C+ zag27lp(VZ3CA1+9ZEaY>BNr+6SYo70aPyvy<)sm{Ar5h+kpbL6$gYG0H=-mmG5~dx z=;=z7wz`oamiDEQ0i=3DawWan>PCi;fP#i4wzj$vMqAy8-feXwl(xDNwzj$vMqAy8 z-feXwaI+g$_ZT4>yohvZgwa+vGNyOBG)C@?8yQ35AEixX1Z~bErAu&QnVz`^I&2C} zm(Vsbsw=@QbL2LW5xB8TS68BhCA3Y9=1Nct2*s7)#xgx!X$neW@N@}n6QjBk+%iXX zC8)rnt1D5$651w4b0tPtf*Z^9bR~2s8k#PlZDLecf?MV&VF_+5)76zIVF_&$qq!0z zEWwRsdb-jaC0#<>#Hg+Wx6Dz(65Lp(t1D5$651w4b0tPtf*Z^9bfpDKSVG&xsICOJ z%u&J;+*qcoD^bD{+9pPGB}Q0+8_V=`CCZ4p5w;<9BXG+cB`oPZsBQ#qcEd|`OKkNx zv^kHc$BpSdu5Ju&cEen0jA-y8+C;|C<~*`1>0I|18z84kW9VD}O1d;QKu?#(;7I~H zrb}Z(N^ma+ zB`m=m54yS%B`l$H0cfto2utuJ0X#`Ny@7@MGkCANN#F?dD-B`oRP?=eQ{_ZVaA_ZVaJ zdyK)81oTXo(1k3J9)&TsevdJDMgk=)>D})!M(Ot$W9#=AWAuAKMJyyF6~HUQ6u@iO ziWT&|GgFEcqPZZWU*O^@hzmON22JtM`3|T(&<+fE06d5b+KvSe;RbPm+g(9ikQD<# zT#z|=5Dh68A@j;XT!!G$pdcWWUWeA?h2;wq? z_DBq&jxmI~1~Q@?#043%1<{Z!0vUG<;xYn{>;-W_#?C-A#C?$QpCB$Ha7hEAL2aKP zE+cSm0nt!CIL3pxjKF=#ATA?tZw*94<-t9UATA?tn?8uk2;6E0(GYn^%P)w_*Z|50 zw_bv{Ank)7E@N;F45Fd(uxJ67(?MLuQ1?N~njkJ?sQV!KC5X!y>b_V7edqkryb=X7 z1Ee)EXye!l`p$_Zi8=Y{uoMAGDM4KNzNsaNDTyVC3MLqJFK8$ll9s?p39(?2OW!}h zSHaNE4my1YUcU%c8D!1{(ieoNcED9AOxDPZ3z91IgN#hLAZ-BsAR{9#$XKF&kdXlw zBv|x=3@x|}!7-{IWN5|(iA?<JHm{`@E*A2 zg2^HUB$7>L23(Nji)0g$@t`yWGXT?gPz1wdi8mgrN5DfMFtadhLLT`DG9eUt=0;qQ zDMTbcVYd|2bHr&WxLAS7Vowq9$Uy`dc>DpT3&SJeA_^vp6l8FNu(}i6D~IXAFcaKM zhsk0O9HcyMX~+fX!RrTESaLzeAy6_lQs^P&apZJDY~loW(_s$7bT)F}6CJ#e)oM5m zg)Co#Nn;NTLj!XzLjzFC4gwWerd)=QiUGti<}!qI+x3G;2`K#0X9zARVUEHG2t(w4 zDz4ORfZb(CIT`K-L|QZicR_Jm3@+he(!@srxVnI8!}JbvR}s1RCYao?`2eNX!n6xq zRl}S@ybr(~HJCOmrh*y*FliD@MNZL}rh+RM(oF?73t`%@n2PLHq!I-wWgz8fY(WgJ zQ*c`VZtcLNapWjOvw)m(!Vug)fmwm+MU7X z0MmvUaO73ekd-rdOhwLA*rNk`X@;%gh7?5L>K3=P;EoGS8oRXwEC3IC!%V;oE%34y zm^6|FhL$E=hTwKY5NeZ@xT+E;)yZw2n248R4(oA*)}oxY)?hfXfKhS28lN;4*@Y#DltCW?V*)F?W=n2(Cy%YTRM( zwGs3zQXyhwXvAd%>&;>5a6neg!2E+5K`2cM>}56FHblmNta8C)Dsp~AG8LOq;870T zMuFF+z@(8<5cT2%rG1GMIflq>I5K0($jFk*2;3$L(htH`7U%~d#UN4ugO|R*yp0)c z;4xvCH0hy&D{0a+D2&axjKHG?LHa?+*%fP9gA^**voXq00A>K8w8D@A2&v$~6$r#< zKcx5q4>Q9e1dDT!>vhtcgAykwX%fkyNX0nzREDi+01sKWicdck>VRU4v0>! z7Wh4m((1(SE+oewy8ufnz&{oRSuz3(A|#Jvi!c1+Lq_0r9WbM?r&uIsW3d3T0t03O zM%scb$$&}YcPnI>1WYX!qX?JBNEQ%qHh8fEZo5z#oCKp29xhmuv@v*OACFzg{zCEr z+*CxBWei?dfZHgPQ6pq$6W0*NRl5?=z#^FGh_2#{@lUZBgIi{>AVBsbV!DNzHLfvu zk_2WSW~xLP=0b7~j?9GIK1E8RNTm}z+Oa1l{EbXwltv~}VnVWufCcy)X^=Gou;9RM z0k+Z&yJzsXz>HBw&5**DQfu)yq99ZGFfU@amOvPSC*5HtV5S*dZ5!P$@wXndFlG$nR$+R#hI=!esF103FuH8&<;jJ zgqMuLv-(g!xn<^*q!#JBK zuUSE$t$bdSIYZ`^84_ZdRa1zsz2L2TEIK4Ax?NpXMKdo1NYdR=r-W{am6tYxht;Q2aL=k^G2ZJosN{Og3R z(>#JEhkB~4Ja#R8vW@Gx;y(YcV#+^6os(D0Ia>MSulEe+b&EJZvHr15-UB)g2I?Ky zY&Ljs1R4X9v_y|xBghg!{gC|7yi8DFDL?`fM}!+0A|l+-zziPa z=9ZvJ4;qi)m<6-B3=|9vz?)dWT!aLI#f4J_qK0C5GjRO_v&GcVSOJ7Vd?O1}q{OCR z3?2v!(#M&|Kua*7VGBxt`tW243TZe8JZtAP>+6Xb^^k?D*mJh21tOwNE#dJDS}%eTY>;U| zoWTZ?hPsQ~U^BJQFGwxQ%umrz&d<$FMDjNB1QFcVfsT>BUO`}Ao1rIo$O0bho;EW; zc-qVW?rBRi&{QuD7|>h2kXaSHt2LZTz&%U!(%Rn`_a@Atslj0 zsL2Ub%i&2*AZZGdld+|KVQGFzDx{pZG=uO!wE_}&9zbe+fX~B$r(kfJ zh4VoDIq>f=U^TwkLR%7mh*(xeP|?N`nFf>~*A|g=|BBih=^! z(hMni6I(<=R`8*_-qqbX*wqizR}99ML_l3293HR$C35IkfFV*P0?M^ew<7rgECMO; zz^kK8!6aBz!3aDi24R~TlH)hB& z##mtvPe9g*Lj4XemYjVe!-HKwNiGtz*#g-DiZna{2|pZBg;YwJ!kaN%7T`l@3=~Yk zD~TcL3XKG(L^Ltv)JjkuGK_6*W{H#&6-*$9&EOhQfJj4w16=IF`fphSVC>ZGH zX6BU^a~bO=7K2)i#o4)uB^g{M7WxH6nYpQ4rUv?{IjOm+c_m2o1M-R!kX4}KUO&L! z-`_I;RB&PRO(6R#uy>kqcTAz-Nigi7>fqsRY-yK)OKUprm19U9_6AURX;(cQ4rp6B)RV ziuOM?kEfQidNDoLa7=x>RBLxc+0|g6H69r3f zLN-${H!)VQG_q8%1dXwP+dv@I=7t6ehLG)T78Vv<7U0&Ng@u^{$TJp3#tN1O77CD( z5<-GBK`|&vo121Fg8I}T9iW5=?i_#`VxZ&=9%ThJ$v{rDgqmw=X~+dq4H7r8uuw2D zGXr}cCI)ggNY2d21hw1*@Abo7Zi1wt$&cJ}6Fo_TavS{QeBAZ2k+B7Gy*$A-@2~++ zYx!I!a|7Aqd|VtclT@9%7rkZu;>;?i#NB25<(uluUC!z7&Y|Mlx@?8!}ypO)SKGj~_Na!=LO zeCI;XFDvYVK0kFk#<<|LB=6KO>yO^Q)H$I%`&jQhCaLTFD-H;Ru!SUaFrPlSn5jTv z;vK;Vw~2zH3ENM!aFuWNaBAIcWGxrS_#o@fm!`Z+XKRv9W~-U{Z+dm)*yLF|Pp$rT ze>%HYNVSofUG(BjS@UL1KVl;Ot9y@L=rWz;I)=PURnA-(7Z4z?k$~ql-$38608lH- z*Aue=30|xlgi@P>Rw?4jen<^3Lqo)5gNcDDQk??oYD3d0X!HoY;S$V8QUm70>lY{w zt30UR3BsTbFR1SbqCpc=P(A2oK=^QzOu@@pu&9NrK*)h+UQNKWFQBtIEX*ww%s~B8 zxJqM`fe!@}=<3#B>{DP6X-e~iseWofab`|_o*`(aA}0~tXEid{FV0NQP2@rwh37Ie z)Gy9SEY3ix7{IM~s4L(}BE-`>!rK*G{2Cge*9?&3;z(;+fJP#~0SON*Fb@(L$Rvim ziLto?2!qrc8yYDXo0}?tXwW>Rk%FliVGLFcvjbEDn^=My85V{{3KnKY3g*TZ3g!mp z3KkY73Kr&;3MPgY3Z~#)zh>s93Wf$|=3rq96B90T@aizo@HWUp<`y6WOcX3kEENn5 zLF3*gpy5Q2OQ9H441>yZ&;Ti@uMDCMjTJzL0DxQ$G6do}Q%hs8uPlwt6+ohXZ}Szs z7zS@bL{C6|p;5t+pq6O}mNEsr7!Fqnf@{(QJTYMbiWX=RF$L#DXh6fF7eYf-z~n$j zyO8-b?RjTFH8!6t#)sGuev*nGGT zKyCmvJU|%62Dt>r2eCmI#5XcERj@ELhhzss(0VpQaIFp6W)1SSv9XbYsWG%BH#1Q% zF*8;$L7htlDKk*OlXO6Chek6+H8^zQ1wN3*g)(A>TrwfG89>Ps+~tXg2=x!~0d;vW zTCCs=hNLDdaQy~q&mjdqBnnVTv?K*nZDC}lU<4kh2a`Bd!BitxOQ2y-xVVCWf*E*0 z3Bo0&mIeyu;44T#s?5Q5fLKrrDp`yT6+o&$GjK547&O8L6$iUW!2s+&3s9o8G*B=# zHsk`SHBc}yGy%`ZnSiF(K{DX&VFn7OW@sa?pdt-VvH(d_BUvCtJY>B))KGZLhx<83 zx`QUhgM%@;1V)g9Ej*H_YL-q z3ZUd!lQ%kTyP{9Y%0Gb>C4WfeF2;xIrWM*Kd0Ag91 zT0m5rn{t62V@f(#+hl1U_B8okX{%zPyn$Y zW*}G)J}5JQmQ8@B;QbBxnhkjF zeCGPEFu_PkY?r~7Rk!LCEci|}2)7!1`L4=nRbt`&eD~z@o8;Fq?`HWVXuD6Nu{1|X zx31U2;L?+bD_lK?OEwr4UUNM0Z`tAB!W?GIH|O5}>htO5mFb&SeHW;5_P*c|_}OLA z+EweeZWBK8%-@P>vF)7RS6ox1LO;&;>U$>i-1mT~+oO%D%t~sH3Lt&rQ zqTndZE;nQ!8#M3`S=+jtpRChBVuO=yRK!o1+$R zpym{wI0i{Wok?ySo0;jC6lEsnrRP8vLm&vCg3&I5E2ps z1_}@!SRNK`XrX2fUf2Os52DQtEum^m4MFW*a|JW-b{mi!3I-K{5IYUb6hLZ0LncPx zQ*sOxV0MCNb8{nzyr~5jNS%QKXazaws5KA`5;3tr90*er(7mqtA(T`dv zf*PxM3Pq4KGy#yCXHmMhpasL=#bRj7!%V<~YEYYSk7XO0q0cdct3uI#%^y}=VcmG4 zb>WJv-^>RK1K8$hv@EQT7h2%lzPV(d^-rDM|E_KBRggdUuvGW&ZR}v%;UsIW5op$fc<<&%?y^qS>)6O%eY+ z-4jgOH{YAX85$UVvtCPcme(9}#_Iwd$$7J8FJYSY@_SFY-O_~SA51!l!RlCQLvTw2 z>Q8ua<>>C@=?_`%jycZ{tNP%}-63IxBa@jRb@oi)B^Z~n8Op+O&=4QK!4Bj(DRSc- zHlK@BRD)K)64Br>LT&I&vz>*5K zc|QeRzaIbma?bR#U-CyX&>jb|Iy!6ZEght~u)Lbt7=z|JFMh> z_GuBP=mv$r?ar(T9cvDB_U?6IcVIp6&c(9uLdv`IyWCq#6KdxLFg7T7t=MpCr?S7v zs}M)4er2s|zdWxjK4jI+77~%Fb-r}pT@R~jImZoV6?acOezi#^@^kWPwR_o1_q>dL zu`czf_p6`Xfb=3T*c41zn7Lq@3w6B`Xa)s@LAp@9$^}}_2NFeK6BFc0Rlx+jMgezW3YLau zeR4AubnOImZ$WZu9%x@i3YVd&eo|>pPHG94k%@kBW^QIqViDR-4O9543NBMK{nEV5 zvecsD#2o$9ip*lrz1NwEIb4>8Ac_1uE=v>roc#36Mh-CX*fC5bti z$&R4rx`F|hesD=@ZkU3hkpY*!Z)S0EW?nkD{Rdk8%B2t5JQkcm%kW*T$Uy@OjnyOz?p08h(T9mH|cD`F?PO7njG5F9Yq!T(J0?>4TS=Di& z&LKO)w}KfMSt4}WQ@;^~F66iYNVOcT>_&NS33eyzeHc3REwuw}{w!L!pOHqD&z zOC>8@btC#BdaIgGwnjrQwtJm|m`qHQBy-@~{Qm%8St{38awI;1eVaBIT*F#!et-ClMr7HCY z2uOFxJgQWhp3u4FNSq7TL#4D6JexZAsA*3*8&o+-+qjNhDI?yc>bASr){k7%B!=|JwEYE@av6+AknsYg?#w$Chz=;>RcA21_eco!*PrEHu75?{e)a`G7F3 zSySQ<&$gYr{MN$a#R1%6e*XTI&ukMr4&_eYt{s`Q{C?}VebWS*(^d4li#`@NH{+@H*xqF9Se9!sSHC)rP zn{Ts*+IxPd0vDEcq2m|k?2&IW)9&EoJO9w~RwnaoQ-<`Z8iFV1CUEyTJkXi0d3Qtm zBcF~r``QnE*H|fkH;M7&9PLtb>3!>W?Gcu^!&4EmmhFx6*%gu#-cJ)Ue_XkZZ`JwR z;j)Git*$?Kr=2_dEBx8t`v-V@uJgZ@UGX-|*>H;U&drzBRV@$X_DK?PSu*j2sC;MD zzXccKKjwVfvpf31w~$r4_*4SfAF`ckoAFg{m)x9ai@9-jS9&-3`5v-ZAanhL@ieO{ z?l18nYP0XUexJX_^~7ucfZMfRpB8+NSbXQ|jbHmVZ(W;gZXt9@`)U96LkoAlNXmJb z{$sYIoh+dOtqgKDY0|jf9jHwtpDS|Gm~f9GD>I^Il7P-Krlk>yOC(aCyyH z(7Yiq=;Y)cy*n-7BF6AMb^MU(|R1N!IP(e0BcYtM5J>GdZ>5c(vf4 zGpx}I90mI1D*gtVo^m)9mJH)5J>@P1yAdSKKG zqaQ_1JH6gdGTZ#x$i^f6R_&x;GDhFO{(2Jec&YMB?em2%HC63gqh9nlZ8TbNLZRb7 z!^4KJrkKqF$ks?`(So;B#n@m8D^@|rGFyUHi=3%slxWe+0imP6FS7Sv%uDQrOk&=4WMu(d$xXShzx z&yX&aIR5_nl{+`n0@*L}Z9lEavAU;>uQ04_QEGBiXrx2Lb-&GDW-WQ*U%oTjXZExF z%gZYDt}og7NAhgd%U##5UhQ2QU9z>yV7Y<7wujQswH*|+Hzw&(IuI-+8(;0kkS>5%pVN_$DF)LiE{@t;i=>?xO zZN8Z#x||UA=$N`R?|(r@v30D?=KB}V?YVTd^an%niw6hwp5^MF-YHuqe>wSi?3(N6 zUU#=|{3)9^joH>Nfr+k4_m8?K2tjKFSft%x;#&9_AIm2uD-ig%!>><_hG6|(*J+r;{K0kUztgldl$mOz7X7z!>2un!jp6h2 zm;X=7cK@IF*sS}<(WUeMojCc(NA6RIrJmZ$#g|rY{qbwdn(DZP8~n;-&HCd0X8hcn z!?PkoMrmV`T6*o2Uw@vw*&uTD=iDjFCjVRz?jw>b?Y#ZCNft-n!Q)fP=CtrP$bVvU z-<$mRWrP~1z+xp=jr_cI_9B^|!+tvQzF(aj<=E?Pk#aFAo;&0G%UK_}L{4oEnD`>~ zPSJbuo@<|OHnFfyP+t-fc6)E#qw+fA+B`2F=BXWrDslp|53g-s+rPYbv7?0Gvxj@G z-if$u_3FpfS-+Z_>arzxdmsM@@3sj(<;n64Q`ei4RPo_v6`>yhNqNO4GPouT>E=72UHr{GtNPPXR%}}SoV39-U_C*WY-e37B z%UT<6zGC`E=hJuo^ckewtz*A$@b9;vqL01W2?Gvp(|}bb`#fhcclT}=>$!DLC^CQL z_Di~F&-1zY`d?eEHaTuL$D{lu%`;DOVJy-z0`KyL=2^U@STOotVOS|tkOJf|3Lt{g{1sQm&FSKorS}cJkM^K6-kO0(+ z#1~7(#^y*(z~q#K#H56jl$7FcU%zf)*%(sqVf=4G;xEP1cm7&`ss2>Xb}ditS)Saq zsrUK0Yx{-&$esLe8`97?bE4t;9VadKFW97EY`fUSQ8_aB;Dt+je*gQ}{e|57tZUK}{=D1T@^km~oQv<)!y9 zm*3s_bMEJqm)}~>d^+^!&(GHE^s}=Ja#zU&WSa-ve*B*2%zb6Pu5}ublO_iTO_{!Z zMaI=tuHIoMK2Fv9^Ux;u)|U4_xo_5~`z6O8Eu9+O*L}3cj{o_jP8%B@9)_*Es~9j7 zB6x=mG?MV9LyXoK+%KP>^|!CNYjftVjgI#Ie6e40sy}S! z{IBj{U^Z4xjw_s8T<4e?m{#T1+2poqS<}L$OLz7)O>Asj+LWA^6_{3(G_NT?$ zFNt%)nmFf13}r_ip`-_lr$+dvotz zopkrB@a*R%|3&`Rx+JBYUh-~UUf;~i%g@ibX0;m zZ`7&#q{bir+5k&(yXxfR*w`3WJD2fcCOJ@{1s@^9o8~aK<%83lu92yNu91PM0%#$f zxq&Gx*&(&z3`~)eoH>XKPjW^e9`-Z`Dm?LYi(U1D^+WVS^%M1z^po{d^i%cIK-&dD z8wb<%Gxf9ebM$ld^Yrue3-pWhi}g$NOZCh2EA%T-)2XF`fdWc81qqOzPEE~BkP_|MDa0SJP;^aL`Xnw`p`~Th5)+jrTR79WTXb)v8Qwc!bgw1XbDPe|XTc;@@Wh=nEaXbzLal`xJd{q@PE+oxfA!+i4^#a;8}eNLY+fC{ zU*NydeDxEyvnp-s(wAwpA3rbh(4OnjcTu^sPdimU`v28&SJ8^vpEWf?CvN6R@pU>P zGQWR*68-onCeZIswvD2Hz^T(+_k${8MD}Y>KHojx=FX{;^Eq4pED{p*7udhqpj+L- zPv8iDzqnYg7>BFs(wV95D(;&rZXPfCuKG+}^h0tIXOj8G_8Z!5U@$U@peBLqlh+dPt>FkION5y5r&Vj{?^88;XuT7Xc zN6!B5rygD7d#TxrlNVQ?sC;sB=IQjfnNy8kci&_-R4pz$^V7)e@x&+Y;pcU^rIQXP zcO_Ir3OuejTio6HsLJvemqAnCl!_^(>Th|c-&on(bB<{^X!A?L&&C=x+!AQ?UV|?AzF^uNIuY zf0=E`cDK-gRk~&`U*0H4cy*%VE8nNRhq?E7!2eQ$QVmdDtY7YUqLxGp)m_>@H1EitSA7asocQTP}<^NB!| zA?vY5>oxxq>J9`x&;AnWuu98u(dHGgCEP7*axXB>Z4;Q&8<|t?yf>P0)8Pjz%6J!T z{l;c>AbWZlW9N+wv#7p#e@tFhIT`8iR+ztT$CP(^f9@II(|Kxfo7uOwaq>blci9Qk z*X*D0UO&O3&`Q_C%ll-D(1cx28b75ut4AD2Dx0-7<;{=P0#4VRRxCEosu7=5ubNwthV?>U- z8J6C>-4l?bvCOwh`Cs}b8>7`bPo*!Mbzz>Q9FLS~;T+w=2To-lsAk>5Wh?RZsmbRb zF4MK#SKnldnaNcDl1X27+D7S*Dt%Qxm(*Mp{_v<}ysZ`cw5YD{s9}rTPmWa!c$uEo zEcN4vGiA%~7aL;~mr9)Dl>2$_fw}>6u=Ro7Hx0+*MT>$qJ}m8e zaI`w(>Fo3kAHrfCxz}wv#C4Ky&RPtyZ(U8`AH$D$6gB|Gx0XL$lOw3kT8d9d9zP z)*LrvpQH48Z@GQe`*mklE=;<}yyoXm#VHpAT9fiN1=Ln>J}=Li&&?gcY4pq0EY8ZO zk2NP|{vB2ApeY_-L&P>$9V^aRnZ%Xy%l4bvGJYQ`&MC#0omPhL-_bJd+Kwj)6K3;> zMy)C+P7C6iz_oJe`dha;w#rD$)$Yj1&I^rCZ`uu%nV%Vka^KEbc**o{l>#8_N|77 z7k8ITkM?7~_vV*!=-nTC`)8i8VRiB;v0PI2$+@-p7sI`eU!PxS4!*x(ab|f$Vrj)S z5jQiVL(O|!Vmov zpWpBi=1nere(U0vU2(gf9((!O*&%Ly-13W!Cl?%f{?LE!^GCHMy!j{RU%V}I|LwUx zKMsezw-$=7&^{XQ?dzlzlch2ztd&+QII`UM_2$NyNhfp!d>s=%-*|CsV{y7$2$6d6v}#v@Z<1b}XI^D=_<3xH~j7 z>O$ki6@h!V71nxcOBr@0Bhya8G@Fp<4W$^={kpTdU&R87$98-`F*!^4IY*+GoBuxm&gxI$u@<}cn7>@5kj}F9@0nKzWfc!R*H5fty8SZZi`cZb_vVS79Bcpd>Px8Z z=zsU<>Z@aFe;!WZeC)8e{@AzwM{g#tT`jpz^5vmLnM~{7%(xW55Eb-h?V9|YqaPfFE4$q#sBii&z*M;{b6$D+qNTV_nkCTcH4p`o+-Oesr=!Jd$!1ufhV5^!TlDXaACSu1aG3O=`9y=eWalcI}kZ4*B7mf3Zz&MVs5 z{D1zN=>f{qO&$s8K0GyeWZ`GA=4x8|QO6vN!)& z8zOy+NzB`H#!fj^kCmMayG69UwQruy>1Lk1PsnGo>G?GF)l)Y;a*DiLBc{t|w&3_d z`H34DMJASsX{HyhlIcz2ogkVsQ)ac;{w6za@iosM$i$e;>D`jF{CA?JX8QEz8!>re zkyq0`H1X<~@mp@)ZvJlPa-Fm%y&He?^Zu_ll@!kS`c!0d%A>g_vz9%d_Bi1CwQE;G z0?n2$E|qw@V~M4519QdtuWej=MXoGRD(89DS7L6y?f1%M_jaw`v90E%IfpunB+>^wppHu2%7<-L^7Hhu{6)rAaTE#e}Xy%LW@&EjF zwrA+_6}M z_j62*c&tHqWX_LYp{oyFS3h>3Z12Om^YyD9ewpxIch1M_3t|@-J_~o!i;P-zzdx|Br%E{J;N~YxK$(1pl4C&31w3!L~!L$+KU)KQ^0n&-57* zvY&(GLce|CId&q?OU*z@M?8D`f-N!x!2ghx-@sx8>9 z%I|WIt^Ioc>Eq#3e>_Ni`BJ*v?OjAl+#*1zjT}3-HEwGfNX#Z`vF_ zj%a3Sg4~-n1C7iedecT0IK~kTjX*|}!6ukNx_lEWpwrD@9?AqXNF)L}k8NUNgfbiL zr0=ZnqVKBjrthxrq3@~hrSGlpqwlNlr|+*HpdSS7mWSy_>PP7(!cSb#Pb|?-(oafE z&Ia#?#69lj@^f+$i}X|V!PD*f;KL&IQ!A2l z5_3UA0hwi~kSX(Y*i?>whJHq6K}Kqxex`mFcz^&jZUr7C$SciFN-ZkROa~1Zfalot z3lfV`^T4hEvmkCLNG$?Q^+QKoAv5uX@bicu46q*Xk~4@N(C9;PYHlWE7QZ;PEHzKR zII{w>FI2w-X(qo^zceo;wWv5bzbI9|Ourm7T!A^g4?cqddCUSV08MhlkFA+mm>D6B zSuBlYuMj@IElx3eYr{*O8vKI?s-3^z zi$7|de{`Bdcz$_e%h4-KId`zF;+S+>d)_Zv)ZG#)dH@8TNCEjz=?>_rZ@!i3N z@AAa5nVDO}q`&{(9sPpO-1~cR=z{$YDkc2eHgJ~|^YbZi94bt02z_uav?+FV^EH;rhpwK>UA%j5d-L+^Y43IIqHAUUZu_Y}Z%@jpOZxV)W~H~d zyqCW`XIyrE&erdnYd0@`*74l!{OtV?KDP?*pYg@e(MRb`XFn%W!ok2T#=Hshti`-hj?wA~{51A4Z|RhC?N5qNa*zv3^KEblXpn?FuIzTW>`QeVFQ+u}y~+}|FyiKkd@ zbGpxLJ;Pcic00lFpwgK~pN7Q%F7jn4|&frTP;+yyDlB@ zafx}ybhRG~9rvcD2`-6XsHx3z;N-SUDb&r#5@Xa4``N>uKJnB{8-2kKAJ?)T{Ttrw zAR_IkBy7>|rhG!`M1I?5BfcP`AiXoilT-tC^**!|eLhplYQ;_|?TRV?a<5->J-1uA z_Rh>*TY|*XEG1<-zF%2a#Zvm-wCBO|lt9^g&J0K1#O;{$=lI-flhwPOWF$l$o$lv5 zu=&-N%{skl6My|>(c0mBv~o$Clj-+GY?qS$PEyVBU9ZvcM*g6Q(4^;eJFCwcj@ZyR+Tw%Cmx-h z6!M{~>+@ErX~~cGER^SMKmUjKqd@+%5EB{R`aDkG1t&j?7g#jMT+F$3>fg1;?$h;R zcGq3ZdnZ$^tsPb#*Xwb#QEATsH(&L&3f-?ZS~lL8)A?)hH3n7bg!KM4@7R?gLAMh5 z-C5==pJKXTr>FgDd2Uutd$;({6G}PkwO-6!-X>)u%CvSX$I+E04o6=G9DZEBV^+c0 z*j*A=esu{Y?_DgB_;X$qyTd}mj&3`r*B7iT7*Va?{Nkb;Pnp^4gs#SKC(e z*Y8}ot9E(u%)N3_5-XalOZQ2ve0T6(1lR3Mi%BKy533C3eV3GZ*Y{ZdU5k+WCixY+ z|D!i3q zYwFU{ryJe(-^h`E^x}xwD|1J+w$%3v->JHtm?o*?dS_ow`Q}?f-nU|MOxU@7b>@~yInxE1?H0P9k|2p?w zvft@Xkvk*gF5cO$kn+=Nw$RZ=!x{WGtF|T0_EBH_F~fFKb@Q1A4>rs8E?t@v5ErwS z&&5{jdB}QE8H?DppEr9LH?)1`Inwj2*8f|ptHkCf-23?AbCv!#9C>owd~e>LlC|!4 zrC1&%*JG`R z*`mw6lpkb;CFEb3eDqhXfl@Qi_p1{oPs}n3`Iy!7PCjMIV--CHer^MOt;R~r6>O}z zQ}#6-S!oeI@6c3$x$%Qj;S7#LYCCaPoxLd6uIgp)Rfo2^A3! zerZ?7{rhtH<#V6^ncgOaF}=oixv`>saj_404Cj0m*(ojiZ0W?4TLaUV@IG2U$=jwu z-9yYhx9f99p&#F}ODE=jFnB*@qN?+kd+V4=-$Z^1-d4?ePXDvtgn8k&f`9JyQPe)< zrE0t3ik^2!)_l2Q4(laMDe?=x+?%(!YSE*brPo5ArEci`ckN$v%EsTq8D^fUJj)c>{hpOd zs9t(do)EVAb=un6Q>$NsYP2zthN zThlY9hZH#M&xlyH^UwE~*Q_Zs<{cG1!|uu=mHH`h;)iyrV-K!gfB53>EsZL1$(+pB zqLor^Qo*&2)lIKGMbkD-C`i-ox+rELvg}gGYKys9wX3E!SxwM9KT$ljnTxBqK&9Ek zNNB!|n)WV>nP+{DZfK4@aY?7ZaZY)V1mEqJUmMmfc-=R_RQs6bG*$gGXU-k(Y&zI` z;huDBt!SLWN#BFtuRWG%6}}*C9GT^&%k%_;rGran|^}5`=yg%wPu~Adl zj3QiD>G-O7eqYzC&ls}SDX_YltH4d$e9_0x7cSKMv>twNym!B-w9>aM{*XrtY!}XS zIKJc94wYYttA$=amVP`dcfsVyn!PI5g#%`P35;Zwx)CRM-+syZWB0BvmTyuHc&zz2 zz3mCx6Sf%Fyfn#;mX5p&7@u585s7K(OLGXTG~V1b>1)-b_j@Cccx6$y`kA}$JJn5^MW*f!%R9Wa&$`x1sTg#D)=PqqCyTmRitW>VL;?RrfC;2u?MT*{^(An~_=w4>Zmy0KaCm#QuvsC|};*9P4S}P;& z>bK3#aAmb%(3~AF*xPn)MpJO{kJ&2=Ok~Qx6izkcS(IELu|aXRd4t6UPMsXiYQK|u z7oUFDm;1vO!`@z&zJ9^4>Nex5#)quuFMTM;klo~5wvg#cC!aR!1-@HhR}LNKDRPwj z!lbaK!&>Y%>$^s|0>L{v7Eu+u_C1I$5H~p{X7%hn+v-N!4Q$!T+mBkec8D>&lKt)w z>|<|cpuZZvyYtuIE)+| z)AH8t2)x9xBK=jgy}9QrrR*DBO-Yp#b+kP+bq_t-v1iSyuq!)!cbFR?(t#VCr3B6e=}3L(|5*ur`S|Jz1FGk8SY*ARvR6*Ysa%`95e2go@~E# z>ay1*k+|Bwtcyx{-CXk$oz05Rgo~C-iF>_zcD{eMifkQwz&AHQvP_vOycy`Ifxx9)j;!Zl-|-U^f7Pfxq=KOlH!|90WpRQ_5& zso(A`$0T~?rEc20RXcSCU0(5MO6HN6vtc#+#By7C87{t2v9*}Gpf$GnR`Ry)H1(Y` zmQP$M%6Yca)YvrnY?RjTtdAEs?Z@3(ih)!lnO=UwBHZ-=kG zX^p=u$}sCpZ#k27?2IctACmhlifWcHI-dNR$naWP{%@nUgLe0>pMUvP<)!CE9J=~P zo=^65fQZ{|LybxLoG-i&O8;N3dFybZT`aSE;R0cqqpkNdca-doU%S5j!1?Qo120^O zyM5!xf_$HU-|TCii=UDc{Zhg5Hq@5u+|AYbA?w#?v0gI#<&fl_GSNF}QV5rm=Kfb2 zsfpg-CU&p0U$pV(8OGT6Z<$#Fd)Va#AMvg}V6RcW7%HZ)cbi zXu7cLfrkCdeWAyn9iF(cqE1A>#JurV(w341 zTFH|%#idTAUyi=$t3AN^rtJ1!MYq?iN35k& zE1%MiD{;P8d9d;Cye5bB6O_IOue4&&J6t$D@l>kCKcnSam+yYg|L5%0HI>#=&YhT= z-k7t>Xpe=Ghm_d#GYf9nhc8uIroz-&nUT3YLG#TW`*P zm-Tk%(KGSx-iNjOWi;2HIjJfB?yj`nluaiB7ca}No_E;zZP@yZ;seI|cP^Zp;u2CS zchtD}w9~h@7tbA8{wgTTMr4lhteY{t&1y~OPV1dw^jZ}aqT$!eTo}l+tNBjS(n3y! zGcqlro<)-$C_l-bHg{69WVcqZNVrx~(c{gLSGd+zR#@)%`t9!RIb~gV|&ZNjyry_WXVOxf(3Vlk8JdCK32)Z|Gjwz{}%3=r7e6rmYJ;B z@nNT0V_3E9t=E#G3SLv*+s{07!eO7!G&TRjYi4q=1kJws`|;#Q!j3GWfm(Vie?1Si znDukD@9YH8*a?&8_e#gQmaH=owr$#%#`!WRQfh(Hp(BSjIC;h~aYs)ywQ7@@6uhKU z;f~D?rDYbz!FuN}9e*3Wu!(tkvQyOlUN+T_k&|*#zFlB7dceD5aY(4l+a1N9E_^)p z=FFOy3I0!2wO9_d&VH7kxUE*uQvCI5m^InIu`MshfyTKjSL>Oi@p& zB=_Rn;QeKXM5iy;%h z|1;`7Sib-Nx9arb3GRZg8`fRk9ee)nzkeR)&$!z~yT4oQ%IK|HbEW67Lu>5wLytfB zN5$y|H%4i(Z>g$e)L-e4rp%wFHoyO*-&F60${7|~HfF}#bmsj{K7Hiup$GxaNoNjs zFBaK3^W{s6Yn|RJ4`!M`&PaSQ8wdh0n)*P}^At|fj+ zR@z!IWg2#$`}5CeaTn;%be-DmeMrSqQ`6Imebv3b<8$N})Gqu`rqFxS=k#FSX?1-YYAzL7@MH#e;i&>f#cQUaU!D6Q8wzuBZA_?^8|%JZ;^r zmv~m{w6=c#7c*NtN$WGeUUCnb|K4%NCZQBhSA>?kR@ z{Nbtj+f^*Mf2WL|al#qf7IJt8xn&VM{{>BSpv_b+FE z4ycTt@5sIJB3t+R34g_2tvV z6knT(Xa!Rv-=%^LuY3NB#m9X6`hlIf+{A2Z*VWbgH@(vSG%NVcO|}A|-TwdM6eC%; zueR7e@0EjI!}1r`-LJjbaQDpyg^bE$ocdxXo){?{E_Kj5Klx;XOiIAj#8V3d7T&17 zxA|-Vi_GT_)1QBTd(J|8W_0Y$=^G!v)7#%uk#XZ!?6rTQf>*D4x%%dL)diVdj#+(( z(I?ja)k7hP$B)F$u(`S|v0T1mXAL~PBuP+of?#b! zIRKrQ3YzS#Q2O==YcD zpBGDc70%lb@l8t3S!2uEHtTM#pNR@9w(1xg>$hiSSVxrz1>Bd7+?;qbs@-+nZEq{r zH9phks!u-6edc$=O3q-GR`z4N^!M$T`t+dVzP$6h)l2m+ILJ>|xoF3B>sxMYy`)}1 zq2J#HwTpS&52cqFn$&-JVEF8RR)Emd854xsPcPgM5)r>zBj4g#bsm>g|Nb^bbrJTR z+V>pJz2|=*aANjviJ3Wf1>e0qB(fmW@(g-&)U*y3}X z)63UbZ{e%SH$vpht|soi%(edL?TZ1LQY>Y`h6gt9^}QB!D8)hW$$_o;anq(RJ?&_? zw6)o>{A9}{4~2`Rvmd^hw~x&ya`oqHtJ%GJS-(wtuC1FIyI}vV>55a|_}|;6EbKeo z+F+B$OzDnEKTj)JIj~QddMfHkddl;Z^psf1y9>Hsoi+a%U7jg3HT~)af#fedb_>o= zi?iff7x-PguH9$i%R@`Muf^T0HS5~Q8NX9hXW25_ne7v0em=R_&3<}!?&%pzeZNTk zKDXY#RDOT)^4pcq!+zIhN0i)4+4y$m>F4`jR{r=b`MdXZ?slDPp{?(y8h9W4DXzHB z@6WHl>+jSHe*fp1k#}J&W9!6=^Msa{EEBLi-CUfk-MEuUMC8OOjUAFzfBdg+J)ogj zE$z35*U%zj^NdUGCl8hB@Za5N^F^imLBpBmgFh!8xWlgUd)d*>iw>J#zW@7vRe9^u z3AX-ji#qr0P3d75o6El8MULv?jsJrjwM3(YA}>w}ygcn-%C=?K)3yZeulsRnZTV5V zwynw+(+iaTuFiY-^2voAHD_1J>`0WVv zDc(n#Rp$8n4EF7j*5;R8?(B#&iF9kqd7Q|yS;x?2TCWHXlX9ZQ(m5h-J1^bay5)=4 z|4+;JFJ9Vu=qrEnQV(WkP9F81i4Xq>&nyg%pJr>ZS>o%#cH4WU?VYl}o^1a3bo%}G zFTel%=O|by*R&|3Zt1drNk6;awp8$l_CN1*HClY-*B;&IS_ToLfD__u_3|6-C`^ZSbC>Z?(!OlNp&1|R?VNa)Zl&)1z+mwaaFq*w>Ke!bw* zd(A=Ucfr!%n=R@iz%b&1qP1=ACOOB9xKO;nCw zJpJPFO7WDfoAQq)rf$12SMaK2$eL;e;e8@5Q{T@%ohiG8$=T9p+PZ&IACmp#jxD#; z6FxZke*Es895<9oc)nQ9-cx0&s(6^s-13QrOo~m_heV%4((!#dN1Q7(PUg1#nX6|c755{rwlwkILB4}bnOw~BN2asnWG6{&(5%}r`(xBz zu~I&dtg{{d-#dH!TmQ+YK9aUvv~ypE{ZR?sZ<^748D)IaOX}x^Zv1-oebxcioD0Ic z%p^S>MP?@^_e@;I`%Cn5xc&cqzq7gi`<~%e-N89SW6$kvaoUPkgC^E0uuWt!m*Rf> zy8h1JA8ZMq6PI0Q-M6rAYtW6-^iAyB10EjWH+s1IO|+JtiBzM&k>AYg8d@siirMBc zZb;DK|0DLpW}o2u4*uzU?|FHmiUWUe>EByyH#=75{+#2%*?+_Z4*lDB!med=?>BFi zgew=Ej4aFMa<7_tKKuW=fNk#^eXjgn^vO6ccAe?}WZ`q>+sw8-oTo1SLrkN2S=6rU z_4^aI{oS8kSYy6VdJaq8%Ztada*8ZBGv9do!aY25{>A&NzeUgKZRS}fGXG%LifF+L zk|8|l{VR4Th&L*jNzF*IZ4|uLI{ECZU7PKmcW5)z&QNAc?mTdGZW zHvKG9H()GKyAr)Yco%c|gU<_fZ-ni!lxq$-!^vkl`+QSxvZa;<$AlBDR#IKbUaxy1 zBt_5M`Qo$hij;1I<(C(#e)~#gbr=YJ_fvisf zFIAyr(F%N}3YN7hpmPjSswI#BGzAe~Em@eFSRk!c*;>V3A$)z?SB}K97i2cfNMM$n zDP+|m<)zSauX_ElyAR@8cI%2qrg|4m-<^81$kA-u!5NPjmN_fj5ny8BP*vG7d%}bX z6O14Ic=p$Ql5f%f>D80J@B97X`^U(6W#8^)uitx3l5@qmxf+cQ3bQuneBH6}+Woc< ze_3k&`~8V_@?TS}x?RQEpI%9k2y!8d!rW%fdSm8H2FIy|! zD!oy%zoTP9=KDRul9HCkYz=CB3TC|jeb{}c+q<3*#j$T?-^p&fefxB2T|q$0>!R-t z`Qf*J9lP;wzOamhQtt=8;#jdaPi4hSu3IY{s%@-JSnxaOy92*|dDkMdvs||w=Bp8xfn>F#U4)^kV5??}8= z{YcWeomYNiYRdOO+ikslvY*fOZQOhOXzzT3!b=Cr)%|B$c{p(HwhX%Bki}{`Rmx@U zl4XI-D?_hTU%7oHD~n@mo0QkurEP()S3JB@mBq5PQOYxSNm}sY6~0$wvP`zloaNoS za9hCV73C{_UWv$JH0_J>&|Rb!(7m$ricpr&)+trfquhL#O$!cQQ5RCLHSdu|+bgHi zrMm(zuY4DxaJ89h(Y@s|D-&Mvu2MJce&wpEsqW?4x$>Tf_g+uepjwUeQ?0MOOT|{O zDqP^$#kDJNwrA_gb5q+II~<@av>+;Z5Xz3QSupq}oc*)w^4Jg47` z)!OyvlIe!mPxDs2JG|@u>%;DTHT^=bc`wlCYe_2XKuJjvnlDC zvFj{XcIvU-KF)rs(xK^{k!X`OyB?M&+{4#0^TQH zkdl&Xuw0))=kq5AI-MET+whwu|Z7!pNVzp<|ETYyASBB*swYCIHL~)yT6ljFkjgl)X|_aRV%d3wW7^9?V{CGJzeQb zu?puSY61?=$h3c&^P!C)V%f)wQR}sq`a5Q3Wg0|vojq5<<=5TMbH|J&#^aR9*;`f_ zEx{KSY*|}3TWuMamxBBBc}v}yC-xgl^#^a^n#(jrZ-Pee&BV37d*4ZUmVAEg;y!Uf zdHNeORZ6U z=cQd9@~$CNW$L~Sey`N-z7yNRIpeyh^LKfUpYcC_=R9sLe!11*liY$&A?*|PtiRNj zm2=f9Ktxn?vbx3-Asf-@4_#jzz7li6sm*()=3j&KWwo9Q_Z*PjmU$<)RcoPrV@_nC z#;1e#EgtihRR3ATb~kj>w!Z~i_xcEa`F-lnU!g61Wm|rDoSk+tZTV&WivPb1g5^J6 zzWhR3ta?%TM~f{ozW?|<1txPxavDugU%6An=0vHM7{g|n{5#!!-bd^ggl$QD&#F>k zA;xc5aH}Ffj3Jn1ml3DeqHaa+WdROJT-!6J`5!)(tbEY*kI4E1lRvQRX(8sxE`}^8%uFkv~<|HZ;e)a#p zoy#s;mbm47-gUmw@owEOzKtF>kE-uPD%F`W-?^)_w1-c8lg6BNmUUa6Sr}Z`^Etq` z;vOB4KOkKdp{P=|Ojnn_L#9|CTp7wG2H({y$?4|1Mn`S6kx)kMRyBg_~ z8gy=&aCn||23O?`i@@35(tcALrGjFTj284fzUzAQ!~+2}uY;3TT&$2ZsOUOzanilG zvUiO7b$V;IpGjfXdcn7*OkwL}4qtZ}skX31S9i!uwWoU(yszJ}$!x=?-*0q3#C#Eq znJ72Ex*+wO$_&N`iLHmqi&IX#3U%h#^P}tAoIV3rsX5>7IlHzjeD}dte?!H={pS_y z-Mp&%O9kv#`+eB)BhLN|k4)qJBYWrZI`XVMu)N^Gf{kq#7cz+PFF0s#6(KcG;Jy4N z(HS>S%PUEh{{C|BtNtwYb?S3W=9YY{G+uRE+u^VLqO)oymzEfF2L6xEai4SD^{j_~ zkVxBcmovxYCy4CaV!q^|;9sBj|JNO9@jB!(IfYSqN1;Y&N`7rvi<|S+TS_{KK8q4m zN;9nQUwq$Jv!5@juJY&8X1hnTU)X+8?Y6oYk#uxoukO+IdgYgYXNl#SnmBTs+^kA6 zxAk6{KVgAk3!hxwyrryLrviXFm;>x?XJYcN2bFXFhi@*u-`i`&Izii(r%joZS z%XHH07NgtD@ARCM4{TY+QLK{SK5w$*&vNg%uY3~a7i9z=X|FxPKT$mDyp(8paw6a6 zi|31vrQA1;cPl(qQ(7ftz&Sxm_u#n_o+Yo0O=evR@>|WC>-kdg`{7qcO|idD+_$q9 z+@WshziIU~?c27q&rCP{)%r92_qA}jiUzCH9_|Z8v!2K}S^C(eO!2DQU|KSZOGwya zsgh>o!Y}K-HCP1My1#GD{?pa8dWq1-!?!ME{Y?L;Vz0K+@@B)KGkrT!8l`IACXcbcq| z3yVG^?b#_OtKPGD<-0%n{l_0J{6DSWPxke>GHiMkmUZI&$KTzM^*thdA*<8kom5TW z&hIiWMbl?;@|rG4FrJkp@TY|JtE$G_qx@+X6^!LtrnPlm31*IM*OquWeMj4|d>h}K z9Z|Jkh04`(bbVFUo_DHp6!VUpp)2KdeuY-tud9Ol#zm<#Sx!8q8}L z>b9-8HCs;oLD&?B|0g5&2QnW#UutCf{UGm(?GM%G)ZJ&h;dG^o`~Mpqr>#bdx6Cv- zk$qL@==a@c`xakJ*xNjF-tnaKUx75ky4>d`dT&Fb1wQI=m)e@~2FAfta! z`Gur`Sns1Ffy*BTl%93(QU2v_z5i>yhD%WPAFIE)>n=&%ED@S6?vvlYX41a3+5JA6 zv(L3gU9XwFro#SCUVO2JZER+AaqF6%_t|1oK7DkmQ>r@fY>K%2o}5q(!Bq;SEG>u4 za(iln%vOCB6kt86)#~)k>|EKgxq)kK<}-x94%#X2#j%6wYIcaA0Moo#4!74V(RbQq zW6!{Q?1ZIp-0W%mKPSwaJkL8|qPFQg*SSCMrX6IwBFS5?;IjOJ!MC}-+1E~sABc=! zXPWPy>byZQVwdr~+-p}w`Rn(5d&#@kWwNi__URA9FR^nyP^w%s`&9JasXos+ALMfH zY5d10^oPUt*Nwwk8&}=<@5Fy|Qu4DuRoM|iLeoT=5_X%Nk_&6TCE;s#+HvYM1F`28 z{LWjuY_^6nhP-8Gu5_DFwOC7rNpXepDmRUwr)nuDzBWb%PA-`BStG^cv@*B%`yGeo zv9qqZ{^Qnq3%1HrHuXI=_xTwfaTdBNE;8b26KE&g{%UrxPdzw=4+xp~q{&qyS@ z{X2Hb{qZ~*Lo3t!cRsQB?kno$Xg?tQ;^6a~UFlP+xeZdqx!!sBwXag)co_LPEi>;x zbDWjiESg+*=onk7GYZ8r?d>Spa4K%~{uS-DZ#PYkW8Zz5nLpBfTWQHm*2+C@9kT+I zcBkLpw^(%Qvo_{d-LQz3RZLeGE;;dfD`#26l$D!=J6?DCdU;INpZ(D0aeK;Yoiink zhYra!zvcR>6sq&4ZS5?9>WTKOy}MG6exFe)*SkA6a%<4m+gkUvx2E~3UUAsG>d-po zCA+TFXs{&v-fcZ^C;w`W?&*Hj2i|^t+#6qgvz>K0N_ish@2k~TOdZ$Ut{9jVDbA2f zaj`oqYoynAVuzg0uPw31Z*nYsyR!3I#wPAnQ4$|7b{u-Np48a z&M^_pcGdZ`V4;Y~uSI{C`=^El<;OFTMQij=q zs?WaUD2o_Q4RjTpc&X*U+q3(Q>&aOZFKa4(5R7)@8%p({1gd=}`ak5`j>3qC8@onwXsI%dB1eJECTFlM~nRL{!;#l_D#Y>zM zUMI|6Y3r4fC@b^!!t~~aOT7-6XJn}ScVFJq!qXHkZu?@><*y#OFCVVS+^zNM#VWVE z>SpUdnP>c|4gV-AJGV2v!-?_A%8M2|-tI9z$uQ%`JvYbAoV6~i?oO|tefDBBXa7n6 z#tgoA<*r(xz&A7Pr0yE7G1n>KkZrIzvcIxW!Nt`@>*+Mk9==fV3D@*$L_=vU2nV# zD%P)@=9oHnqqXmWMU#%Qc~a;n5z*)76*4LZ)jr%2z9{iSF{X`8sI+s-C8M1|4p$c6 z=3aPI+BWebpUtEhmycF3%Jr%z@hiPP_F!X%T~v?TBF+r!_WeiVH!Bz3UmwVL%Gud& z=XX&l6Y=K{g#KK6Qm)eXVoh((#UsCOx-q`0`FS$j$)tV$VWqZzzYg>BzvNQfI>9@{ zMcqL{I8Y=qG&o~L#+Q}R_V4e0Ww!9~=ikwr|8Hjdjz*WXTY1gjLKk(1UH&exb&tRz zkCIkbW0w`yi{9D%&%1H`hc0K`&)vG+_L90@A!im9?dGh}a1u^9@NBJvRAp1?bEfJk zi?61?pRTM?zACSGPh;Bs75Sysx847A^RzDHztQ<&&mOPf=!{7z&!>i)GkzB3>E#Ig zeZ18(NJzQKmUDuHzSyOOdv0v7|Ix5XWXAIFb$4=la(T3;o4mIw!a zuYAv`oMmb)7~Fs5MB=mVeC^*I@e4V=OmeL>nc_SzaQf=CjLZi80qLxD)pb8iYu{ztM2bSFV2*psKa)i`5t?X z|H_pHtmm!r-oPiJn(qYp=gAM|WAj zss7?Ml{;r9Uo}|w<=Yca?@LMw_EWTd%tahTgC%o0`1<;I?iN`6IMds&XRB6x)o59< zZ-r|>Kt)ABfNO=Xud6HX#N~D>uY*rtSmWl{%$aKMa#L+#YEP=x?KYRdZM938Ojd5- z>unKYIvo=_lPN{upn%VtmLH9C(i>hhymPm3s*5|oD6MAmvN2%8bt_rUV_aUBzOr0c z>W~+(V>N^Srd+8TM^(9U#rEvcsrk7p@D)e-)dO-FLFOy#vZsiDSsHB4ZnC~HWBLjS zR}stgQN@1IZYD{+yN=b($$AlD7A~RFT>A2Pm8y?w?=n!)_H|gCKlnT zdwrzyijh=tNU2c@yve*_v9bKe^K+;82wXm{cS9#_bwYRQ#{+`zdvA5^o^>Is z@BP>1i}tYhvMaDnj#l_}F<3?GSqa;TMm4tB#jhW1D4q9n)%F!-P4YPxfBnmwcT?)1 zl7f%Y9vzp@I^8$#pT3&(t8|lJhHrvW@|KU~Ym#CsXQna)woKD?>TcM7TFfNuYR#g| z`=_>geY+mLbM3250ZP+@rW8$;(a*g7w&(hXsLIB(3$M*#oSbW3ZpWF+{pLl)!{cGT zFM1!{inC02P1X3kP-2UuBx{OJ-2dm{0%rF0U+jO1J+ePK>tp=cOZoMGzdbtldb_y$ z+oknW)BO`pt}b}Eno*@uHJ$I-yX{%896}pr-H3{~H1WXxmAtz<4o}w(_F!_~QfcwH zv!=-^cB!k4@SZSs|n!{JP`P#lNRN=Q~tI z&EvmyE3NRF>g!3L8n38p+sgYsHJ)>E%Qm0i^09B~w@!TFE%GPm!-J&)YoE&A{D1Ak zk8AQ17;ZIRpSqBLO}Le9g=Fd*<$n+R*NfTrW(jXvGCfUa=G0kEDGMffo()KOVgH-S z&~(-7*MAl{J2`hdOBrohaIqj#YOk5~=~owi>TC&Wu(?pAc>nCBxo1zFy5=kwEEFpw zt3LUpsLZ=QcX4-Xfx_09Sr=xg9n3tPu`reISCg&|YqKKPBh}pdU5^$k7;O^aQvG9I zVH=%bFQlINd$-29x+Mp0+3Z=8W1c1JpyYUWsoQG4FAwB5JU`6;{zb&xg$m}AFYF0h ze34;sYej4Qt2s+gt8{kmXDxYOd}S&RU-}yD>aE8Ve*9Y_aQFC1okX!*AH#R8bN*b^ za#+lG_FjA1V)KCYHLv^H`c4MDc;fk3Ea9V9p7OgX9jz=S#$R?E*L+hTxBp{8p`O9a zm%DUM=5Ke~_~hPMkK>1QC0}h6vs~kl@AJ!oQ(~u+VtCUklc-O3HyBqiCFCD4uKf^m zN7!2R#&j+J@RVnEzgRlY7ak8>Zlluj`&!Q8^QX!_7k^mH{QTtk(&o#@_b}g!xaa;S zenrFe&Btr<*PIMU({Eb-)`6)CP-D!W!F zZ0U1eXMg13ciBguCV%SwQu%WyXGgGPZpLNPy;4_I9Aam;Xh^@lu}pBin{D=?{J&D} zDp@C|7?teclr`k2XjfCTmpU4uTJ6ZrSD?E}SkxgiMaAW4@eaQ07eC5gb$>EhLv9fd zn}+U#Tk+kqnE8}`B{r7|%jwo8$u2m4!M4tzT1ESybJOYnw(~zZNm;8NUv<*HK=6L> z>JWkZ{N=8Ei{8td)NWa>sCno><%%Z<1x~+N<)fjiuYapJFZc5r!yUKXbRKMYF@MWX zd3&b2OWyKkxaLYa=89Wq-8Ff$^aJxe*#)|%PM>-1fbj z{XW;W{7E_;W~O}q*7hDdOLwvL9$rC3Ki=;@=jW}^!PB!`L9h635^O@G>w|m+w}K)z&BgP{mik+54*SM|5=y+yDV#>^_qs83+0mkJYRmc z;roN;FNN%Ba&yXbKWWTqIe(h3Hn>{#vDlro4f^|zRUPyS{<3}3=MOCB4yx{$Q@cr| zboaz$CB9!pB`-JJF*OjLCiHcq!#0(?E3Xc`O?Z6!kFY!E))H4&rzMZ|H}7~o^@qom z=ebY*B=0%cIL9I3Qih$2ALmXz7u{+1a#%Bzccgl&HP{<4ZfUexy>(KiwhFUmq0ICA zt@ZJO;Wt_0x8Am|ubLBd-{V;7oV5W+*3|3A$)U*0%>;_b$} zz1{hn^y3$7?69sEnzviw;tu@{%4IXYp8H{X+#x(>e)$5UU6=G-S+i8b|9w1pZ1Vvd zJB!>`)w7qak5xOE{ZVgbX|>87*FVPo-K#FOCQC9H}Lipe^qr1XDHp!e$aN=cVb z1zwl8GqN;YeD3|fj(gQcpIzk*mtAoDVqCrb)tlui>&w;W$XTX5>zcW{C(tyldE>Ji zVI7apxa&VRXDEI!r6guiR_Kb^Dg~$gQfFAX%C7Tj6)9aMHA$jyw$C)yqjwZ9-aW>8 zxbXi^$2@C04ZG*+EB%e76Xh=pByn(k?=P4BT_Px?aQt|G{gV@mAHKU3-F!+S`dVPT z@q52Z_lhPjk@Zbgk6L?GCvSVG+jgPfS9sKKrIze2{QqiarN;hN5fx*z$jsW#mh;=+ zsuZ!#^w_NF>T$BXa6@aKRc-q;slfTwe#iISPjU<7?>znN`odhDS7u)=mu-8~@%8i5 z3v9O()_bp2jeFedFaJDU%Q)z2%7i7JN|Vjq^;rCGOxwCu$91{V%(O`gs$ot2mo82S zny~b0>ayZri;hh$Um)spd(-0Xnk{h~ItBMD{VH|cQN3fj{|hsvRblfxESD=!YWuN# zS5mO6YfonQp7>YWJj2}5HY-)_<-y zf9Uz_N8{7)a^`{uY@Fi!#q3`x=Q*Ey!58f)9DRH9!wT2UHOnV zMcogqQw+9e&9~RGVmf^$rjtKM#jJumr|Tnc%*Ngu=F%OffAr^b`OV%}sr1D8$Ml@O zsY$0K)(9lJ2RzmGnrU!R?~P;6%yk;ilj`Eap6Q-Y|N2GbWYY5F#**t6ck;!j9k{)u z;dZ}Fw38}Hs8uV&1HX1;&|P)iY=mg#{S3VOInxQT4Q+e*4wkumbFRAGdgG7 z7hm0^wpQ|5`GJ1!dN;oNcYZH*EW5FLX17-N+1N`*cuLbRN*k|Q9L1El^Yj{iGoQI8 z&lgvxXY1GAO!BWkJo)$2KMC2t#O)p9`qyj_U9@_QeXlTEZnWrTzuo37)>C4GbNKY9 z9Ai_f*0p*0Q8j6zvSHXimER{iUiu$fe^+L2E&KD0wufZx5(?I@Z(n?F&X4Kb1q*im z(P^&UcmCKRGmae+cR7w9IJHSPwKw$mx2M;I??-LlTv0u*{#VeAV?H-6lbALhx&HB& zQOUVg&KE0<+;rlc_HpdopyBi-syHcL(DGeFT2~x*h)rM#w`um4T{a%&8_&&(NNw^t z>3ev&?1xkJwHlAiBfD!{=T-DD&-*!ho~y8{alz)Or9LdJxnZI&KYg`&$7l7nA?)8n z#XIt~r*B=`cB#yKwejyePLeFT)9yOe?M$_tJ!}1`jz)=qrAyTw9REM#*_>%Ux17!{ zNpTWPkJQmR)sn-Tak)q(cio?0G0EFfvbUsMwuwvrS^q6x?9OVTPsi8BYis;`9k2ah z^_$x*`Yss)Q`YJn`nzT}=Ig^=` z_dbhU9yIsc4z>0l|Ae(R$5yVn>=NSGTFP#)n4$N<+W5CwlT(jO&Ir+K)KDT#ccbVBe|enr zpKt3TUp`yw@wiFqdP)m}F_*El!PoFqp-(?ApN&!~jNf#kv94_U&&P|e1}=DbrKCse z(yn&J>n)+G+QJHwLXtk0-)_6DRyhC4R_}dfQ>$Z+{r_S=VQ1W_vt1%L78MBIU;b~^ znYkNo8SBmJUQuqI!<1(7&dKC`ykGPC_<$+hw^*NkUjJ?W>J|Rn>mKb1Ir&h4^U|Ih zlT3~UW<7Z>vRI*ZSzwFpr;Ot3+IM%Xo2xFptK9He$@{va7xuEd{5riS z(h0sHl?AE#Zuxm7prtuQnFS^JMPRNU=>8N}H#dKG&~0*Yj1(-5 zEEUWR&0s5k42=y9L2D!7SE!gFpKfDrXvU=vvIBgDijfhnHI&Ad*jE3*)=+}3VAe-k z3goQsrSGc`JE|s3KM{U@Ea>3aER2I=OUm>0OChJRXo9^7y=Mh-tGb;XD6l|FT8zO0 zAeN1dKJklNj7^P^uiLB*=ZpwWzqZeCLbYH|=<}!<7-K=S+QDP z-k~i_OsAxrCg`$wI8B;7o0X$m$53e738n6^=sT;nE)Ki0=xY71*H_Ax{k8T_cbi+b zZ+2bg{Quksw{8A={;adpygAk9zRxSZ_kFLDRsxf%Q0I&ly@3}4KP%VHPv_h(#Od!N zFi*t!UU|38$3_9Awh0aE)a5Swx*lJ?VA08p)YGc=Q+8(yQ5Qis_SO)q0g5^Rz8fLTs-;dsV7T5m`2X*`rykcdGg`ot7m2F`%j%Z zaV}Wp^kMTfRn^nRnq8Cj&X_4WRrh@8lf9GXZ`iL;m>l$Jo~~x}qy}at#d+Fq*btfM-#l5oR&f9WXcTHi(y{{@Ats3XG*DSl4q1mEj zkWs2N=kZ^yEir*2+Yg*ra+%$?`HzB3>*qGL$0sNJFS?wsaVskKK=kV!|A@gJX&0q zHJz{Uh4rntF1J0eS6xlp;26OivbEsQ<1dO9##+S}y^`lB%6BDB_dGXQ!P1t?kc)5r zlBM%bs^&JW@-2BK_v_)jh#k$VB2A>(7a#v%Twyk^LteRF`GSg#psnvZ&kUum35o3M zQoM#%PV+n|G|-@U#0<(^N` zf`~ml_U+}5D_rhfoSpG=`wLEyoOZ3LQd?5p)-jzwy^sB z_F3FbQ_fjj+QO3)Sm&KeoamzUXX%lJr3+=$PZj!pRlQZ0eSNR=y5q}57x^9v6N}k% zH*c-cc4uP)bNj39>Ms|4D9KyMvUg3=dh>W2zWu4|^nVEWPf9$yf6C?5s_E|={48=a zepg!R|D8Cm>=J9PTluepHYZx|3h=VFU!Kj)*4@us{PTcoyXYIOtsD1Dx}4)>n57_p z>h;#GqP@5Hu0HL$w<&nFmE_6|tB7jU2XKu?YqqP@jgzH>>d8$i$ z>q+;rt9w~}p8VQ+dNKd|wc1a28OcnI*E+xIO`Ee*BFui)J>{(=7zJLQV$nBZIf6mwn^dgl&_z8wU-)h ze$l&Ca`UST>rc*!J5{`|pNVB@bcrDA0@sv>)41x>`>!2NojLnnu7}yX7M2K(lW9fW zU+jLJU*Pq0kM)a=w}!Wq%D2hh)3=Vje)Zb)rzcK%Yu}VDt$lnwzNYM7|JOO427)EV zLFaY9Ix1dQ6}r^IyJp?In#^RY>V>UybPh{oPY@2enS1Kn_3QjwtEvOH?n*RQ)K!+y zI=z9TUZ6{T@ozWpRNfnhtbQ+idEZs8dDp31JXYgZw*w|Kwk}u~BK~7>!<&K@On4Ky`z6!D^KudfTYfPwT6kyGtJDu7M>bV# zexkkPZ|CIJj@N5k)2}(QW|Xi-?rV`<_MJ0#%b^7q-!8xJQ#9vqujNCvzbr z_V$Ys{!&?6n-hPQ=&s97D&Y^^5YblldX-7phIUJ-lWw)g5{+31aMzEoUe=ZBb|P{eSnq-Rhr#q9(>-xp6!` zI(-@Lksf`|w#x1Q`0{l{6!-CLpQzs!=?k82nSYfh)kSFEX}0a|E*wvO@;&_Wzr*(E zyyX#-4KG-GEtlYkf3nQGZ^rsV3_IN(boA@r+4+UbIagkN%ca_yx4Dt4rS+$4IPi=9 zF5LLtOG8i0&E#xUfRjYryn9+Z&#n%(SU>Mv+g#($Ti<83{mgsOmgv0xzQUQ7@>`Y* z=bOz8IQ!jkT2b~+*+Xv<)^5Bq!If7cpGR=w=klW(8B@M0_f}^<>9-**QD z9hW%oy6cG3#(=X`@zqOg9(}yWwflvih_J?Vkw>08tv~2{m}{JjklOOms&=zpz3g)* z>nD>+m;Tg073b!yn!HlpgM)M1(rZbAkCU$)R*6)r{5koo;>n_#lh^(f8|}JX(pElk z*{G*g^~=6yJ?-99s&Q)mOMf8~Myu~P3mfz&FK^hf?Vnjm zXUVsn)h~`YZ~P#%>zI(X=$HHa|BW6S+cbafs(a)2y8rAu)B7rEYvk?P?#(xso+`Xk zK5h5URplw)RWn#0a29@SVE(|x_kUJOvUg0zQf}VgZDMy-gRXpET=r|3&dXj~XTx*3 zDN1RNUmnr1?M`2;8PTOwogZ~y`azc0u1lSZ1kJ1tEOe+kkYw#^mbYH<;tXcZ4^m5h zWyHN(kRN%aQ|6)s>k~DtPa&DJd=kta&b+J9+f(iG`$O;j|ED*2+d5bJF&&juw|YD8 zRr8{!=cDERt^N8jQ$q6McAZs=7tURuX?lIeofgp<=L0kz+lw?o$ zZ*#TZvp$S!p_S%v(}m1IJc&+ zv&$zUyf$a{o2kLSq>srZPn~w%w#do)rPGBgVIQAK&3B}X)JVtrJg}>_s zsvp^S-+V7W{mt>pBetdsQv1wI&_BV z*;Pt^MNGc@@DSv4oO?OvxwWTGS4*=cZ^g|U?{3$>S~S6NUe1$AUH7Nx9(Z_Q&#UKx zjm!My8v2jFxyt6uCU_vi?&$rS^(F@o*?h7oGJC%uo$cm3riY5z8(w4|I8-vPk?&D| z(AU+9l4TBi?5*bR7lN_;u)0uhv$#&0Q5rZ28l9_SZg7UcGeXN0<2G$4kHK&uP_{6fya2 zHm|99y8F3)JI-gz?(JH*t!Z1xUa_94n+N&N$;vW5J8isLEbnaW?i$X*9Xl4R>5*`B zo$;Z?W!7_%Ea?eru05NwL%omfv>KaESqsa~97V;&zKWAIUj1ii)#d~D3X4mMQWJBz zQu9*sld`ysK-blS7&bQgcze*Ej)6gbk=o9_L6FOtq1|T#1q%~H1#?6Asj%qRkD73y zTt8}p=sO$W>Ny)>-F=AES%z$2$w%LAXrh36Z;Clc0O~j5yS}Cd7D(GVl2f49OO<}( zHDWeIy58sR-_P&PTR<BQW#4hGI{wH1K}_hs+vX4hGq zP5%@4=d$mX%DUkC-15ls>fr3N@3+~1S2?AWlk-QT-O55 zntkK2_jH{(H*R0I_pLi$o_Fp2@0)%9!(QgT&wiOVU5De9-URQ&`FB5W%lH01@7-lt z?}JfZH}CF>US_KE_($!(<0%*4Puicq;orRT$G-n9{$4)s{lWW{68np5o+tjh_n|qq z#P{H)HEWuh)~rco&Az4+z0K|2_e?P!!+rAicbos6u|M;7&9V31@<#Rl|4xoCNv$ql zH)r|wta7Up7rl3%FO!cy_i_1j+ts`MT=f)N-v<0Y`|hwq#pd4u)+c;9-)P-6zINg> z_(r1F)&H)XteHu&bZ8vu|)P=4g|NCG|&}%uVnOHkp`$wgJQTodxSB>8I#t>gS;j9Dxb~lwDCE z0g`i%nF;c^5j^*lf8*sdGhr|ct%F~W75i)P-*l#IbN*s;{?oVQ^IP_%bJg`f{x7Eo z&OhQLINVvrz7RA2M0}nUWYjDv@kerwWQ^n<2_K0Y4RuKgi5n6!(s!Kx(7*AA zJNx~9$-CTj1@jX26o0P1;`>bg-Tm*K^VU{=n|zn8Gc9#Dw z?f2ex=lxsrn~hacel_*QkE;LG9NT?;U-`Y1e|bMHdtZ6D{`%RuIo;mdQ|G*XR`LJC z-}063ncm%(ED5fWUi|0j?>{c-`f>Z;1(+Y-_?mOSYhCwD^&d-9&fbkw>Cd@SwIKES zjQSmoJ-_#M>*iE{*s>*$k2m`1{YCqa=C9ZnRh)C`;NedX&2Q%JKiyq+y(~2C`P3=m zrs8GAKdj#V()$qm=;5?v>#%7l`ct0&zQ^)q#;-r`U-?VCk4gTQ_wTaXl@l*Gqfh6T z2DaNXUcd39?v4K550C#w9y`2!U;dt>f0Vy2pOQlzwe<3r zNk3=ojST)G&U$XmyYsQPj122tznAqTv-jKY-*2s*-YgUU@{l}Z@xFHbIeRC(Ex%Oq zO*qDU=hGb#XP$p9nD^rG!=0AB?b90>88pudpTo?-M#e;DVBbhDPxlCIXJ4lXwCc{% z%tFE3z#KMKj8@$ln4?s8ATDgE7-w~7g8v>nN7QTzDuPh5DM*0iY-((de2q3dn-+g7 z?J_{Q#P052?Puv0&|JFgJ%8&ycg{Ng=l|uDz_~R1&J()i(uTRq*wyA@)N&HCpgL}b zgk+k%`RE^rcXxZ*9vz0s7F510mx8DEnUH0!)qh9ac zb;??L*QwpoyDWqL+!XsZ=iTj_dw2f!JbnjM%N;*`Bf4p~`Zu2$m+mUpKiRGD`g?Rv zdcF2Wso$GrU+uqAyW@Ap_nGH%=PFEn^`>5>eoJTF^q+g%zkU}o+jncGJ=3z<{`r>0 zYPa9-IQi!I&VAj5rwcdEIRE_N9rM=q=eutx$=#Eavtwgpu$$X=5i^Av8Xz@V@YXTT zK9S+UE}%Ll(i}Vk0Bw=!nwu$@TbL-An!^(*Vk@($IZ6Trb72Wo*W3(Oi_Fj*TlE5O zktG(Fq!wisXXhrCWay{nq~@mPmFVYY=9L!f7ZhdYqMZt1j^0cI36PwE%?u2YnrWf_ zj{d@d0(JeZrHhv?;^gEgi(e!W5TwljncT_rPO(``D4;w#(O?JACFA^!GCYs@q?|+7gN$covktc`K)=tUS0=|%I8O} zY~Cnb68gTms(yCeOy#~X=l?eyePj%`zJK8^p81D~ckc2c@dt`LD^5<`+7-;_CNlr{ z>V=Nq1$Jd_@8?|{IQwj$oL9uhow1B24=?SBD9Utu>>j-7cKcQisXgznZh3Hb;=}@r zoKnwKp+GIRnz<6gf>wVMgL^g2SL1V zg5y2Zjp}qBHi(7P2(dA2Va~h4c0lfo1JmXOhYhmMtZRP%!Hnm{>1T`etS+~RY@siX7qv8Tr;~f8%oQ)b*krtXCcMJ?o*4k!lm&ySyJmo$_GIpn%5;QOb4 zc#h5Nl*4bNst+AoIW>0SW2Mr6hpj8pl+WzwxyX3Xhu<#uwSM*o?z6>THotqX7q;0o zNZ{MkUGnOGioM0I75~wg?03|2nfXThc%78usZB@MT#N2wJAdTU%x5>B?MyqHVzf!P z!QStx;CsycX@qoy3Eu1(;P3D6835`pS)$}lBNIynLjz+or9YEZcf$gRY&;bLGYb+tXt>paN+(ht|mdICI zr0J(+>O)Qj$S*C@Pe;DaA{#nsnFl%)AYUK<4Hlr201CmEVq&|N0`)=)_}>21qI}fK z5i}i)QaOSINH1EH$C2>89YZu z{Aac1w~8tji*;W(zJC4monz_$3D)blzub8&D)rDJZC-vx#)Ua2Cm%j^NUicmyAM~$ z4;=~XgN8Z&E7mVw9o{iLY5w)R-FVLNJ*$404rd`}?5db;`e&4Du6J>qpSnA|a_zUc$B$p{O21pRpZ8Pm zzuC{u%(YKj^R=aO@-m;fW`EyG8mFHvOPcZUOxCeZ$%AVW-Hftl2KHzh&x$<0=jfXB zV+PVQHlA@yliA!^n0znQ%=p|Hmo)Cra>kvJXMED883ap+r)h1T5_!xgeVTE;vGEMi zGd^jm#@&%e&!ojA$E7bh<9&wV*nG(oHw>C*96Td%Y?|b$4`){Q$R?k+FgQHJbqj+} zy_)Y6g~=zMqbd zvW~1bDtL3C*i1V|k4MT}BkjW9@ECS)_Un8%t)DnYFMZp*kkfho$ICz4!bQu9-#ERo z+a#Z`|MtGq2k$OCu<+u;$%&`iQ}e(y@vTqJlH)~vuyRvmy;-59ax|# zZ2E0iS8M0q_n$RcU%k=jVDc?068ZT0_bt1;{1xw+bk)=OmtA$>HgRnIw&q#OR}SUZ ztGZ2`G@raM{vs)R;&$@BCnl2f<<`A3wUlR^5(7f?N+)ub-}65 z^-oXe+&LgTm4*F*ueS6EtJV#k$qCOV&2aG3-njQ$hw9>x zu%d65=Pc1R3i{SAts8vMaHgf^UZuq=c9l<$u+Y5o@V5TFD^r=>#Oi_3SwNs7L+0Hc&5l~*}W z262ULy4WGib7=Lk6Sox4uS+@_YkfO+2haXT()Jd?*SPL{Ee_^%R?)lsd`EStdFzR! z(;1asmec=TJ=j}q&&U^ltnU6oSw6|%Q+RG{h}?PFJFWTwllQS1300QHmCM(h|GqvU zDz{OSZ@+p^h0?wYuTT8nZp1l^;kBsYX^In&UpY@Q@ z#bn+M!Q1l;e*|TRUz}+sS^56FzuuhC4Yxhb`2{CP$u7C^^5J&D9j@B@T(qC)-QQRC z_r{yACcCbRY0hKAKm8pTX&GmbKXYuz>T^J<1_s@w*5BEFkFaN^2 zOV5HQ^cMHC7l&_@U#-+N*^+6pg-=;-bIZ2Ywr_JaxA6Z<&zSUW%jYfJe21@JNO_lQ zU*?rn*Ue-4{ib_mow07?*^r;Tll_kNJa6Qk_`t=B{9HsRW(%&tN+%$RS7gh$VWi3@X7RGy^2Dp{&}>C2ftO+7u=Vvk>8>-ylB z8?Lvt{i=p`YBk@F6kRQza~0becI|9Cb#48`le5-d@GdQ!;3K_8V3Sv7nAH@w9#bym zv$b!E;_vLAdvDiy7;_wf;_8=$cSj#F(t2`)g13C9lOtV)ycGyPPh&V|IV!$$#aC za{aBn3k!J8IqjBYU-*WJ_o$HABi5iF;r6N_8|pu*oyyR1=E-fiR^K0gQ1JPu%VzuE z+gLAsyG7*vhLk;=Pp&)I`nnz4xIxCI@8`8vSx+k-^@W=^y^~3oUN>9!pkZa0+cj0i z)xm8)YI=7X=CGVBK2)?v|CqV1*(>w~ilyvkO_zG%3^skh;DjRtddu>A96uKVu7 z=HaU*c=s)-<;wl?Q>1SObMS^@)1PNcPCKtEN}LfGqLy)Fhseb6^eiLA?$vp1K~ewa z&I)+T_o0>HgJJ%evVg5YPkI+~-b!~%U0tlezUgb^?~kQ>QseJkopL{A*7bi`qR? zPkVE39a7+EuJGMtm1*R;S-#g)BtCP(vw++y;g^l`!rw1S^7cFbB0cgVL+Y(PGh{*= z)mJ!9Uc|IkIPjMLfu<))R?e4Xv-oBv-}X!XyyQJsgYC4^DQTuZt0$=c-*UdgyIX(J zE=5~?+wJW9H~u^DEjhk?b=QG~9G8kN7h7HqF>5hh*uU^y;^ah++h5o67reWwy|rvx zbm)(_qIQQDpIgprakzES>`j{+Uq_1OeEZn=_-If`+DnDJ68lHB3E3CZ9;E4htB8-2 zi;NA93cI^a*;#w_O1pW%>@nfnub146yS8oC%>|J&HeES?GkhnfjpcH8$LUMH$Zmi5 zVCJDHy@$qicbxvq-Yzql_hZTL;yE)s-Crvj^LKN#+8EX~c-d*PmwdSx|KH5|_Kh16 zUngpwWqhR|wL^Ta!uiWFOEf)}WcGOlELGWWf4=VD>1Ic34D6 zQ0kg>=2z}ZLf1YYlT~N({~vA3Blp>MW7*AT(jrQWKRv!w{4?R*wtehdr&Pz)UM#G*uOYVY zsEu8~A}LwtHUaSm_qO?XE}WL@dH#RYt%NB*RxNK(U)nyk-o?df?hzFZ8=j-(EdjR} z{tG-V`lCKShC_0}^HtId=QtI2tNFZkJosDb`rCk2C;1O$)~?x`)LWF?aJr}(7y?UMA{d}AKKOU4A zmF!WL^!XuwJm|J!_JKyrpIQr?orGuV@WyV^yTQBT`&_@Eqb5(&j_+)`EX6way1jnY zyrY3`3x7`AaeZ(2sn=V=YNyA2c(-$l_mSlXthbR|ge+UBi{fn|Ha!W8&S3m8*Ug zxE>aKteMez_;=QxPm3M6AI98rukl*;d*#m%E}kM8?+T+IFEeU>c7NOUNvLc6_eh!l zO}AR*>$$gyPveyBJ>;}lB6RQNpGRs;x4OynZU`%q;qkP3@N3q8rDIHCGwy%avDRxo zbaJ7@Cht@y_Gsqg)f%hJG8S!(PUJrF>RP131?K4Hl-loj%|S-OkFI*IjJi25@UqFp4WeaNTg=|Q zy)v&k%rE@t^9M_QAKhBOcCPZpiGWx7eA=(8mS3A$;+fIE!<=dV!$S3$K6`Iu{qj-U ze1dNi^YVb^ja_!Z1yb)OOv*ngTW2z{wzG1@F+p=V+e3n%J7zr*y!qv#k@S`uu~(#B zGD?3Q3{SF24HMH}Ec&}Ny*fH?otkO5)O@ed;e&m9 zKfUZdci`9!r<)I-@ttTFDNW*XDOk1U!>L1$?tHo=u{gb9_o?IIQXw06Pl(#hc~0;1 zomaJ8i&Le17wD@lvps5ODwr2I@7{*q>i3=6d`BJa=k6*~`Lm*YYDw(ns2L9J4e~0l zn2io+Yh3C!?keKiF)yS}%4Xe)i{|gvPZFJaRpcsDx%{!#wnIBsZc0vJyx-8gr8q`> zhri736_0%i->H|UPW#PK9NekX<tr!&ZV9{q{+=OSJJODNH_I&#Aa5m$rE{VBvhWI zzbyF~d8ujAj~mSD=hyEOyzhB@%h|Qd&+qy!%e!*=Tbsx8w(mJn66zT280Dhtc4l|~ zPPfUY3m?@dswTQ*hH7iNEZ<}$S+OWxlzTMhm$ zzBy;^-8TgqSth+wE3Q4Avh?|@>;)_@#8MeskDSb5@a^&n>OZ)4QTp_wSFZi~>}2qJ zw}ag(^A}MMIV85c-Ou>x`ut$vnDRSX4Z9RZ069tCi=1mhKf;^x4v{ z?J?W$f16Wjfm|Boo>3``lGU{?C|0wVWCW;PZ@9DocYvJwD73# zpQ)-+2PR##_~1L`QFQr--sM4Wl3y=;-2a@p^3u$_Cv^2;&YO5+te?`tnF`OSRfg}TjC%~eK@$FG(<%Gx&WzSTSL2J@oQ_mO@d zSf4Bv`<3JszrHrDBr3?zwKOWtP0@|J{LN{9SL#gkUFEN8az*?x4>s^DlrueWYW zTctmy#KyCHmF};rwtSWRD>wai=017XXTLg&)4j^{{~7oFoZA0yf87uBmJh zUUzQMx??wZO`nP6En8G>d(}%@_tM60uj6}8%(<~?X~?3Ct5=#Qn*V-wb8@7U$=ATD zSBw8;q?%80Y!t8h^7Ur=krb8Z&Sqb$W-hgeKe6RFYi;JtiNBUO6`W}23HCJOGJo5B zE1O4t)|sZ5x9nX`P` zcCw4Mm-v61vuD2e&7D-^Ayjc9 zV7Y3#pd9;~V@n&(HB5e8$h)ue@TJRNGbbEOUAjd5sBfv-BHl}DA3M7-RZ7k&?s&o@ z`9V?g%Y)ccTO%c3M()2U`S``P*cs;z*B?#X@2e5l+^kkB$R4vtEpYCl@O0Iab~jr7 zo_OuR$0RA}vu#q~6VqNRQ_&!ct#*dy|Nn`K%$+9pf88r~hwOLP-*XpyI9$d2)bx(` z?Vsy5wDe!P6u;nN)(Y0=9lYNr|M{_D)QKQ;!pjNzVoDGPR+UB&BcipQAg`J%2&?(E0XtQzUJ>&NuJ6wE!>Gq zCx5zjxF*8!@541eOn-Nz1nxOh;ylMY`=V2&&6`;gyQ_06o5R*mSXWbTl&kcr*ZZNe zMeNzHqMPo$+Tj^we_7&pm)}g~g8x4SJ}0ZM{2c9bU-W?Qo1YtxYrOg;_;;Tm_wE8i z(>1eh95LM(c#_k5#g4}(gicOww~%hHFX5_^nJ~9tGLO=mKbpa2+m}8Gxgu_U{r&0* z%U3wg)>^x(W@F>7r}LI^db{b)*jqZeXOI836)SEw2e2Q!wj_M&){y=OAF^aVeA$!e zA>CE*x!KjWY}@}s{2$c+IbOb~|G@a&tuw{SZfD{@pS#!fVb`utpLQ*qu*mk(t84wI zUUck_-IFuB{!>`%bf0(cR&!p^Fp=_LIrnWkOYWjDQynwuZ{F4_-}&_BIkfHiv7@#B z^p010*?ucc11?uP1j;S=(En}5w*<~2iysI7%B_66|G~XUs~?}%wLF^WcCh)|Irs3R zr7w=1-dM%vyD)2Ei01SdkKZzzR(S9Fbf-w`W~>cg2?v+CDWY(C-SjWwQkwRPa4bByxy05-ig8knIiTHz!#`6R& zUegV<+h=s=%r$k1;GSixA85ymK2ce|{KAtZDkrwJ=KFtHzHXU_zdf8d<}wmoWmx~TPEy_aHk#MEmN~rm2iMMX zyAR##+p+6I+1p%=XL^zof3Djh9A@U>y>~^!4X^pS5APLSm-Tc^E73mP`q|v|?y+|M zBTj2R^qfDrxOw>;&OG!wI*1X9^F%&`(8on{mTcBBdTqFY?=GkG)5!m;a_j(>;g>c=5Q;GNPto?ki z?)#s&+UnRokWYd@5%Uo41Y5}&F5_X5FB?h=&{zlmr}2$)hR^G(mQ!g z=2Y9^m{OO>goKKg|C@rX-z)peSMyA{^{*%N$gjyOTVzd7e%X4#{P9G!|2M@8euQ{R zyZ`w9Lt|Fb{?8BD7hZm3b&CI5xvW;kvY6n_Dz^JBSl5cad2;Wrb<(0MZjp)>?~ga^ zIm5+ybLx31_L$m8s|Ekp7`>j(GxOTD@b0zjMrZyrM_-j%iaEz;iF6(`-Z?&`RU#J1 zlY9mW7NALZ14CS^L_qf^AkGsvFyw-7C^Wz|!)Hw3Fmcq0FiZ3~c8~zc6Jf^Y#z=GQ zD62#^Fl~p2XcE6_&f1cak)4sjEy}yx> z;pvecHO#bWh!l}{(`KNPbCk0$cm)&M1hlDvf}sH@eVQ7;(kEhp2>JxHfdL|If{w|@ zl|0R`CQrl!G-wMgYyl$X1hkhvXbRdNzW+5;KTJPDAK&ydbtax+GtOnHdHThf75YTZ zGg}y-WiPM*$=S=)!Wj8tlerP>AtC9v_B}pu##QijXvaHQ9geb%-|uZuQhFqzd1W^OE@|dxSFguRxH*K>rq{nvB_<6hDo-G+v8<>#O*)5|9^HtWclR3=jZ)D zlgMXqfA8mM&uiyB->YW~S-EqE}Nii*=^6 zRJH!9+`%5XuAKk-SFRHN<@GEPd3@hKeCF!kxMk*hX*oHg@=s4ztXSdst}$_PlXIX2TM@098<=SmIbUfb?9tGfOBht-eVvM=|A9*9_6 zPh0b{r878Zx!-KN;rF&Wsqwh8$aC>C_l&m59~kVKbXD_ptfRXS(n zq$Hi`WzQOy_r%1hPQQ0iq;cB4Z47qicS=Ned0%|tnf?4@*NLMxn*TQ|2RSz#VxH@9 zLZE_gdP0WdMyt)9$$@K6HaZ`WyX5&yJLrIhh_Wa9M+H&Ok0%9IZ8*VT@5-{lvFK#3uUyQciFYc4 z88dbEUfLfpcjny5D-Tw_$nVqknDjAb=MvA)U16&vMdAs^+V zGGdFHMSiFB_C;yMXX`3&K3U5*`(kTaxm;h>m7h;8RNR;^+^eSx#duS7Vvbvriyuan_gJZZ|QDJl2zCLdn8G}QZGlgK2`6sAJe zqAiNsBKp4F5cj>fMT;{@__1P`s<&d;k)+owH<%uCh2JlH<@1*>k8xI5x!HWH+JAL# z!?(npu(~=SbLL0a0H&O^YMZCk?G-J&w9rR;#+Hr%mxG}mn-5+-(iPqMS|vQjD#3n3 z#_z|*vsV0^^8VzHoqcuHi&N8=q)e5|5e?uv+Vz*qqs3!e^hbA>wL-IYd|Gw+R`h|o zI~(WC5WM**x9nVA=~+di&DU%AFJ+ugIg}yuKku}eN1^qtOESzCr$;<4c%=I}&fl8# zF2BV?M!yMljO9+zveD+x_1aIqu~6t^so1QyxIV4;&;=<)sI9$vvN&4$P52JW{H_O~8j~he{y)cNS-{43 zDAgk0qd-k|c0|=@F4=eW!rx1zzW-SF^G^Pv?TP_OPJ(l{U2YJ{FpF_-OFYW@@^j60 zRoj_5o@LU<^AG;b&^;(wP*BME(%INhc+cf6hZd+^?6jUy<*w5s@a+2mD>GHiw(s|! z&)mv=gTaWmwEgS;b;v^p76q&y36F=^_8M$cIkAE53tgkuto~l*?2?`SJ}=Z>ta)}e&VONS?xnz1$P|C;%3@#NMs(QfxR zl@D%L_icMJxqXJe{p5cijSuU1Nt@bVJebiof8j=UMjo?=&X>MCpC1?zxioWPOqKhZ zUtH2VwnvmqICpzj?!!Ypt3KP07q}^H< za#yS6Ud%f?-*=`7rI!+1HCUVlemDp8FOqHg^W_guD4WLR;111`ChE=~7ZmRHOIqF& zRN2h$(zy5G6H}=)^V#xqr`HJR@HxfR{j0m?^TX6Jy6G`X_1qT>ey-kAI$6!73__30 z?P7hvrRSjX;HvPt)bcqc+uE=HS`i!Bda%Yh@}Qu_fmbzryWf7{y0_~|ar&G7#q-Mc zEqd~8jrx~$J_lP)>z+Nc^N-mV0jY|HTlSX)stjcsx>8cPR*0-r_E=|`xbfbPCcjOw zk}HdvRVFmge%P(=-QDakQ`mfN#q8*$eg95mWkuB}$m}`z^Q_>UOLun{lxvDKy6UEg zKbsaPr)B0YsHu4;mg#6hpbP7Q4QSxz{3 z>ZG2#a=(mi(A}8r%Y7C;xa0A@V>50qm{>U3Z&TpT=%?;5scNVnLsD4lDC>w(_<6T5x%*C@tj?~r?H;;`@cP0N=ry}$n3)!=`CY5AV2uJ;c& z6y6t{UFlaf_3X_vvTN*v>!)fJ)GI72d$+;#lKZyo&uu*#5&Uw;m0w40*86Fle9`pU z0xM1J?-N$0=x&%6qSgM=(Y@zk?cWJseqFyPCiglVBD2O%y)dL|HPgRRHJRP1`-=C7>9BO0cr=IjM%D#d z%B1wOhyVP|?p~2=x%=~}yZn0hEu7|th?WNBKdEBn6XfnZQMB}muY04GT5JEUcS1S- zPm5I^yx8VvD%-Yjr+COqt))&&C#kBZ9XS+N_I%=o#qND!+iX>*J@AwX51Q`Cdt-Y@ zd;iO#EWc0FrMho99-g)L-&5a}YH_b#IWG;_(c^5nNF+-r>s!#O?FtWn?TVS=(BdV! zh9g+xWx~eYPbW#wa-Q-jdZAdJ)U4gJqbgKeGMh}bOhYyv^4u!IUv7Wa>)h>NRxx&k z?Iyb!X1Bzjy?QtPd&Z0JSE4c={(LXvdHc`{j~OOHj}#TB)QW5WvJ!c<{P>FOm+$B7 zbbS@|zwTpMRC}aw4u`wWJih~+*UyDrzjAt;XW`%XHkyB8y?l16Q$>WlL01!?`Qq5l-boG#2?t<&TjddfXp??g;r z?wRSAt#xL(N_aIm$45MNnp6B~`lT)nkM6)_Z+$1X=HC_AGJVBSg>BLo!tRvv&M$c3>h{25lFOt{RY`xFPVQ4DB77F=OWsP6O|w5({5QV)byl1At?DoR*^26OO0qYl9pIWVYmZq%^Y>Fv z?|CWn*;uZe|lsup(gv6&sTfiJHxdVZECLfZ&|*YS}5{ur?2Yz z>oeL@Ca$Tzcw2JvpH7!Y1rHh9g%dA+65TMtXVS&4Im@QK6ui06^|ko+EfOBTKS{*f zi6tLkJ}3X}(7Z=G9!)WNRi#zLedSg1#kDKfP7zhxR$scfXnJ^FLWcrc^Y^%jRzP+JEYW z>qO5yfrEK}GDPzZruJLe<@fwgNVVO+@)&1ML#V>xn}@z$Gu!d+?e-1VuCiXcb!wde z|2vLN8!q0zJ&{NK*}HWAn0A}<_xmq-Kk32B|NqzBvUZeS zb2v)(+AB6Gt4nR$oY{|ZZr8XV7gAp-w=b<;ZSVWZzBSvAzUR%nw8zBciF-!X>-4Op z%_TSdFY#tUATZHJyR^NB;cHKacWw{{Ra=^7q0El%Skd^#&tJl zclFxyeX;ZAy>s7tyDyu6{=<`1i{!tb-kJaQSNqJPuO=^OPP*#4)b0dt)6}@&7n^R} zRonHGX@7;{F|9;l^JQKi72hQL%kTW7>}TsJvD+z5nENIBy^6S)1WqbcUFdW1!Sb+cEe+bzQ_bcTNS|Ef zG-uMG)u$BI-}H*Bm$4boo6h<3XN_Oj)q{VRhR4dQU(|Zo^g829dCIdo(}hh+53QEo zz8&uR!)3kCsdY2&uLk+)x3Www0#lCr4a zH@BwkB=gM;9bdSQN>4qmYg?stEPmy+habX^{$#B*|C026J;x%QebP2p-+y0mweEsO zQP7Jti(@er|M@$1Pm6TozQfe|;i2@AuT$f4FQ+_6NMe2|c5>r{6Q`Gk8)aX0U-|8N z)3>+Dof;k?$1{yKP2$!(9C@kD=6zuN!Dn4NyjB04ahw`e>k+*6rdB7bq;Bwi zXkduQy>MJAQ#ZwF>!S%yYZoP7&(%_`-+0d@G<&O%uHJ{HxAg{(A1^r~Q+;vk75=&M z!K-9XNFPwO+3|%fa^wGJdS5c{Eec*NzFz7o>(lrC6_d1g_pF?Fg`?%P=DAb*nR9mf zZE_X#Yreyi_-d`~*VT<~D?C;9-L-qB62M_vw`lwAYi;aSpATFXxGJnE_x7KA;0e1M z{9?Zo@U095B)xmucpq?uL5&j`M-XdtJtw4_#Ury`I}GoUfz0f`_`o!Hx3D} zy?FcoTZ?V0e})|1n3ffKr(@Ztug|yyzx@i-`O|u&c*5cfDk2x}E||~1j%5y~#d{XL zrD{jF?D1LKCbLZ=aI(zHExLvix6j+r;KTNaL525hN9k@G{jaBP2$UHyd~E4Ll*WD8is;dV$&Z?4a;xL+^w{x%;{ z7KlE6e2I%oGym&KjUPug9yV3K9h)zdY}C^8QDN`TjrpM;`6~{IXXx8b;N53b^!L1- z__0^sesi=6I~P9TKKdg5*wXW#@9ep&ZL1v1sF@QK=;U}(pFi;1#P_Q0xd-RXliND) z?bN50KU=rFu+gj2)H=q0w1Qu}SpQ`EwG#1~DGNm9GF+Dzu(-XD-#_<=|ITnO9|f&N z9?F4Bu50jiI*Do(8L%9+IjOQXhGUIRSN)_Sxqoc31-$#tS;rQ=KkT%3=YFy1Jqr2O zXBgNc7?$|2NpHEMnkN2LPpRu~>&;l0KC2F6!Wpy+qHw1p- z@-&UP5Tld4o11g)?8j1XxO0D{tL?pSXT0&!aUKf^{RcCu=Dy(SbG4RH6?<0Cx?cPNyO^(zy>i%+{}#VbMsH2*{i@EtC0td$ zSoe`M|JKw{hTo~b+isq|^JdPr6CM(ro<1z1E|D(W(mbJA)?Jh9Gj}#F?#pzIf0Qw2 znR^ZIz2_G=j^!0IYM*YII+NErWqB93--WH8zpVQun`h^EPB=bq$?Oxi&d1yROnU5o zWXG)k8$TX#FPQo_=VPhSv@f&M&95)Di?|(BzGSE3u5-%s&!5h6N zmr}WIEcFRFs--9xbaRE1#&h1Se_YkqEZJJqwkD$BrO~5TA~zcoy;5t0{9E2_Jyv96 z-Q@9gb#=dkeck7l>%XQ?x60OxO<7<3#Oma`lW&CXuGZap|A7M6D{YB2^%@584DT|c zG(!$4?%}2lZz)td)925w5!65@6qFwCp=TP z?7ez)=Br0e`+ka)$rS%QzTP}b3y}3|9 zuj*URq&X??jExf8qfh0P-xHABmtog=$8oKPyX`{eyO}R;=a(#Cm$@P~6SA z%9|;L>yC8IXfQHL;Cm_Wtg@ji_ToaF6}tLo&pq?jQk2#UJgawTpLyQqwmYrWCU5gM zzFij~q3^N7Uz&e@WA~fyo6k*jO!>0uXY%$dxw~GTwPw}-)?ip-@2G4UYoBIU(=aLi z*_<+~Gs5O?jxNpKqqT72-pcJ89&bE%H*fX+@8>w?6+GT~Y)19Er=H?Wvlk^=TX)V_ zQt2Ce^UsSb|GxRps`iR+jPW-97pwiNNobF9p8$8*jU$b*uXbg8|8ZB&k6VHDj>3XZ z8Ht6wuE#w8Gw*iV^DQU3^xV8xD|vF|lgoBLQh&aC&-}b#?XUY%zO1Oca*wYfp*uM` zdX=8cM8TE%=5l%aEBL+#mb^XiETwl%hPXwO{BGs889mR>3U#skt|?iop)qNK?9L!r z(Svq1`HLe(m#N*V2@W=~Ot}@Fn{~|KKlkU2g8wlmEi6If<uoSBoKXQ-cEl$uzQ zTBHxT^gIW0J8w>Eaj|}`ex80oY7uB3TXAN3ZlZp1PGWI}ehJFFoCRq2Ao2z^umCh< z+%j`OM!V%CmZZ9*Cg-Q5a_I+`CY6BBH3fy5p|ieEYF>IthJvAmA@Ug|bEi}m2!9tn zUalLhbHvajcxhQ*tmzbyWe*ExPBT<(JmP8GBBhbAZq|`QV$*t5Z%*2fBkBG6>efrq zC$+t!Jg4PEPMg@Da3-+*aPXrkn;XBJ@>yp5MXmMH$uBc_K1XllyZm&<%P&7xZ{ECl zf35NU?{@p&|E`tq6BSRi=sUl9-O8I0J6|3AW-P29r?PObjjKAcmu7Hp~b zv$Jyhe5aZEidBk6x`(D%oe7_=HY8s1?|te zFzYL?)Z$%k$yYOZrB?sByy#wD)`je~b6+ieT@sf4`qotKT(jF;y$3fPO3ABAz3H7b z``)VH{L4{Wo|WY;{O2OS!pI2#UHsft+aP#V7A$|44&W8red{| z9T(?reG%<*%!}u+nAF-|&t!GmO4rw zAi9OU;DBY$#5F8oJ#&vvf4IE+n%G&*SKZ~J&%5pQS8Cl1Jv6=Jl4d)4>y++EAQxSk^t3Dpg@Z&Y*h&GPSax7?MLmg{`B zC^D;{OiJ{i>!amgm#@l#-N={DVsynfb!*9;^me~R-&(#k*T>Wxc+Dg)oRFy>xxZq$E5A#% z|Dz1O8`oz~du=PkY5P~R?(wPWaFG`k3tgtZ^oxv+z8z&f>D!$TKR#IOtXmf%DnEJU z=ZQS?TO1#qIrzAGTJ}=aGmAH~1l!EqUz}AV)Zrn;w{7?BTH7hB-{y9{SoJ=$*u>d7 z(0t|WiC3eA{!Xu&dq4Z$p5Gg*9zOXHy2>X;Gjr2M`>uuU4t=*z{8;GpXO)l1jk((* zc*B}?Z<@|IFMo3KrG5I>R#;v8pK!bE!-2#XJ$>K5$~W>%T*MxI_Sm;&ZNcqnbswMK z+}}50`%$IHjVdi#dRcvMBR9P@ESd6{P5H@*tDD2?d0dJPEZ?|k%XvNJKT>KgFD>-e ziQ9*N?fusFcwxo|4Iaji-;MW8=l?BLn;UZAc{!7Jh10tg0zF^YPuf)VzJ8ii#JkhC ztms|sQdTC$^5bGJzkX`Cf19`N(BbOeNiy@fCd)6F>dtl{NWo9b{owOY8_qF!d!9ez zYrq~6#VhJ7w{t2}%jd<8CxRCn9P4fR!}96F;!8)94c^JKDv3?cZ{famhL2-g;IRqX zESe7*-oI5pb)nKKI>7gF`qSUaBG*=1bXcxgzw=M-5^V?e15WF7ExCKoAA4~y`eVX-mx?EMIcDxrxUExVG-ZbCQV#YM%}vbG>)tWxzel@O2$TFn zMZQ9D|IfwG12^5d_?%sgV^(5D+jo__Q)W!vVfpiIS+(tfkPCrs9IOlV9j7fUTv^7E zyQ6z?ZzO9~dvI-v-OU?0#ZK*~L;prz?`TQ0f75=f)U*v^NR`^mjg}Eh7b0_Uvd*<)ILrbF_d^9d= zTE3XjY_;^umM>?nFMS$xQT_G1xczlr9IPzI-m~*NZ@s~HgP-B!U)#&({jPp3k3w!P zToa+o!I^SGOSRV^Kk49c{|Ve(*HgTn_qTX^8@`!8f9nHY%!Y^|(oqwjDiz$sa7isr zEi_GG$0ACSQ;Z~EKQg;rd`bG! z{KZEcjXr+Odz4@~;mvhjrQ4Hr4@U7_6Kju`w^_X2VgvuQuZOnomE7qgCN}q#&^A*& zr3>~7r|uEnaY&<^_GN zbN3$3ZCJ5lZNBdu32ABTgVriVP7y8tcP~DE^EjIu>ka+y-Cw#pK7QU>&dc4qDgKe{ zqxAfH_gFsbPv0p|}@4l+&e`%YwW_jfMw=XXh@9$mf+jBO3FIRQ+mv!&|I?rEZ z$Nx+1``_^WC;xKA&Hi*tb>7pzKQ{k;{>}eQ{Du9M2VOJRu*GcW-DI1&{nEQv2W~Ro zm;SPBM&{*z0zNM?gv7&69^rj^t|qHBEnLN=LCw~*?}b&}Cf{Cm--tAqG&UDz@#R5p zuEjU7t!U2~m2nN#e0?RNA2zP-rtqha9|ne{<$uG=@N-Qc%(h+Y2D zV%iW8>^5AODRZ z8|9xit)CQA7`oB)*Xj-J>*D9X?`qUB+I~w<&dBAQfXCnYGdIl5>+<(8D(ucU|G1<_ zQ{&t<>CJD-(o=);cidHTo$@S~qd8#)lVH^^RncgcCW&PV$xcH0B z&9|@k^LESWCF%Qw+ONOg$*g-vd3kh7mqXY@|H?H7S>F^N{$g5O8|zW7D(SoL(MQ`a zNgJyz6U}t^YPvUgNq?+~T5NGa<97SCh?Z+b8|4mH$e4W8oar)W8ISVclMU{V3x%xi z)_2viE>b^TaY=r|@3~?X>o)~P);_6d<+N)!w)Saa=)VVyad%7bNLurq40Kd&xpNEhj~_?f5ddte7wYp%FcTmEJuUfENweWu`gTCEC!#A}%gep!fKDfL{S3u6=yR01J zYo=@G?;CMiNPm3zzRu*L&Qp)8fqLtnnQMpnb7#cvu4n9BXz<3@XbMlYnP~3psLy_L z!zS_8cl}F@I9$E|@w^SJJ6yfbKUR?WxqaGa^Zxx?=jGY8Jz9ISB~^Xt-`k6f&tA(q z86)WImOsxgjoDphh3LDS!q#D2b8g|C#lbrUBWJxQn0vieOX+ra|!&;Iir5^9U z^48rsB7Z3x5e+N=$j)`YdFjN*`t&&uy9 z_m*GEny!6fOa1z9(pRRk?cm)y_ngl{)kluo?>NNAM$hxvo^#c1?)!>_x?PJL`?)Mw zaz8NmmDY9MNIWe0t?=Hln`!)M%X4J3*BoJ!S$5!Lfcfs0FH7WZba-FxS@bt9@^ZSw z|CupwG|xTIRxEd)#Wty&Lvm*4%9k?}Q)d_dY2;Q+ZulbKwRiFNrP{AA_h#NKQ2FV> zQc?Wg%Bko1qfP3GPEk|Cw#)92IMEX%H0>_i%B4H2G*%0hh0F0*$ZH*V$Ma3oY4_xZ z$8K;fJ>Pg>PAF?P*L1N%p6@2JCpc7|yTh?}f%l2Y2XY(MNG&~kUPf0>fAWp%F_HNT zbai#_oV#zLsbu<1fWno4Gh7AK{rH9L3SHogCNqC8X7;m@D6 zkKg{ctIJ@@-~X$>UYfo%*L^B`lU>Idrga=#r!u@F9iq9i4@rh@lFzvNHD}u5{T5Bf zAF3J2gjZ;9;fv$rn|Wv2?G$U-~ZZy}NsmYm1cY_{o2-=d6dt_y7ZKA|i=I;Ua7n~MN2z=msUE_nf`l&^aIX4Du z?480r>tz*NZ`v8J@`@RG0+n7-nu~bnN6(u3-LOFITKwXLDqBQNHr(+E`Fi!`%BTy= z)HOZJgB&Vs5-QyuZQglBLu8s`#qyiSbvf`%=pO{Br2O@-^VOw#l>U<_F^5P026a zQ15W$*Ub0|rRMdvR^MYDF?`;3yY}e3n!L)ecb1vA7tUgtr7G|7qG--pdsfbp+mfEA z7A~2w;YP~O#+KyrUD^Jx?#%LA{W&M>)Vh{8Pu6T{^6+5yO)4;D6)f*IFRnXx%2%hd z+2@|elfDy2G9l0P1k-&`2S&^ zS$qGjP)3yIx%y=XDmomF3fvMEd;YwZwM?yy)i+n+>`bmhXAD=FELk3;y6mFH@}9B- z^QN8MUnRq|dRLBJ`o)Pl%ct0S?KL(nmAbL=26vThs2s0|Z}pj5$k2YzWM3Yr&F6& zUAvkt)E{6Z8h3B0SL%l!?I|06@5*(wI~5!E=iub!+OuA6z31>t_XfjhWpnN3z1LJ( z58B+QDM~j@zx?itbowQ!=T@BRS54=&mD&}2n(d@0SN)$_PU;8PnS;@yJQ~qZUANzxbJD)>jv$jgD zH8M6%WOpgJ$G+{l?zENsR-$!lZstl8xv;7YFMd@|7l~AQ zU2&pX|D(@>HC|QB-+oW=I`c~H>Aua+i?beR$aEX$J+Yd3kY~D>;abh_bm=SiHq{>0(#y(`kMqo>?EtKBu- zQz`2e$EE2v?8}dAwD|Vp^ruU*6U5e^_3;R9(~l8&?5gXQQFtLTwYl}*igz0pZY=tL zFiTiD zt+RhwFFERcbM8wDAW6Qxy^+mB>s z$0##}uUZ!Tv9sS=TEy+r#WSCdGJEcC^@v$#Fj4NjsJ@-9vDmAvvt$z8gFcmYJT!aT ze>?VWMAe%W^`B+jmA)&_F-V&B%IfD&{V&mWd#f{rx6M>F-WE{4Ld^R3EFzCTww=D}r|6?gXO>NN<>Se3R}(az|sF4wf;ck|C2Kl8oFp4^}+6WvMtR&W-7J*(C<5&7nXO6xyZrRBRE5=pzHL%F*+(WK+~;+cGtFlJwokOcsx`SJYIwS8Ww+Gi^V9 zVV!l(F%_lR_jjyIS^jCu@p)Us1J5t&Ho0nel#@5{!O4|L_Y}n@cNXdQ`3PweRFi$Rg17czr?(GKh62%x&7S2 zV>)IRycd;N-g8#&udUb6(m1nUN3*ZMS7+&sf{2S(AKh4V>&%p%Ej+6%PB?MIUuna^`R+G0PK zOKoGzsRMaCaK0|OX&2EI=h1Fr}^CEZ(lz9`PYpk zOWo^o_HFZ-^n`Un{(>0uzf+wz_CAxZ{B0ZczrV&`xO?L3XRJrLKYo8URj+B|gNI^| zkN!QrJZ01E<@RLSxqVMl=1JuITr1MZX~J~SVA<(6deu`5QVQ6eV^$utUuv0eayCk! z=QY>GSh30V4~w>?dsfZM`hI7Q(Hz~X+l##0%l&GeFQ2+W+j{$?$(KA6pLpCp5-X#3 zJXh)ZO|_csEWdw9H1p5C?K1nQyxro(+9%Ea?Ahei#A*(KTiL z9ovr+W%3u#V~=^$_4!1=lS8XbC$PlqlDZ2tj*Tt<2mzKFQ}^Sk!Ht^AMV^G&6ew-{7+eoVi9 zlv9V-Ix_b_TDctomzv0_TJyvewQ{Ny*#QT)o%}o@Yv?&Fs6l=dFvkrCo0NPc~i_&dp+iJ4;0N z`G&5v;K;Rf@7mdywJ2oc*E8rEWcVEGzZO_Tx>hH?8O5|2@9B zvLpZGk*bHUfAQNl>F<=*lNVOqSWs4H3T z`sEvOIf->2FR$3T@fMG7l-iP@J9+0BGouzgT=FaMmpOBtBIm4~7M=A;Qp)Fou4Haj zeq^%2S$BfEtha7xMF&%`n(P&urBaU>Y~IdtI(8w^k>~Nr=PYO9>iTL6_I#|4niBMK z-T{M`b5ffkj>&thT%NUF%&x)P{d?#Kd1+i#iT zeP@?uyj3FqoDWYJzq!rM{C@I*Z=9y1R_gO(6D01tueR;oB=+Q@{O^;6X8-v8w|;l8 zzPCOv&-M?eXj|{ht%7xu9}_oB{k*>a*8bZOb#D$W<8Pm2m-4G5$Z58xrrN@{<>o6V zZI>^e`=uk6CD@!(Ls|TXtH8%Pw|jodcbaPWs<+Oy`!8}&?kPh)|LZk;%xgKcHC42i zG+xxOd-j=IBR;71>3R=VqpImq@)Or;UJ)s{*QLv{V$}kHPQN9Z9C|8Mg1Q=J_62wlS?TY1<|Rm-lSZ zJ9aMQ^K0te86nj*R&_3J`72{``2OLR?|~iYpP$Z$(49k&*-bN zG#GQD1o_rbyb~pUp;5t+pkt0hP*-din?hD>7#bKDAy1W<;G8NUcF6`voo{Awab{k6 zcxFmThJq<*k_CPixud?bzKcHMY-2C*)>72D5zyAs#N^VFRQ)9VWPSAWjnnkgz=s;^ zqnu`(rBB9r#)YN%pp((lGfMP}^o#Y2Q%T)uYOG+OfHFM-5+Hec#N5aPc_a7QO3s?# ztJ~_FGAua47P4^^oYy=NAR=&qyJ?Y4(gP>ic`IKYVxP?)Q83%XR&(m;bN2|M%(j_**8w=j^@y>)Q9) zY+1AHCmdq4&&q8rdVH;vTfCxv?$eovzWK;L{K>2?CcS_9m*>9^MDX><-ZUwlRb*;_bxnH2`i){6u5A$8bZyhMjq_61rrRFBb>Nrs>(XmU z*W9kDT@#r$!*!$EX1PSwjdH0!H_0XUCikZQ+&C}6H^n!}H?2Q$ugjwIQYVWxHoLp@ zym)AH{AbaVc@zIXE}p)-`pTI=-VmnJ{4ZDCKgs?f)G9 zCcc;7m8o1ib>R$#V{h!Q{lB#3O6Gstz0XeWH2!2Ob-zw<$3?yE>A9-EbN(-u*&_P$ z!=X67;Nw}TR# zr0h9Ui|1C%^bgx*;-l7@lc^~2vh0OPnS=D3>szYCqq!FD@nBpeD-}I=8t3chuVSng zbNo;W&<-`y5-hH``ePe^-?Lv;=T61UtJE{=dg(0v+d@Np?UR|Y)3i3Peqr(Av{ZL? zRo)$zR}&OXiXX?>xXGOKcx3W(g6G@Z4$Duj+Ov|&G#oS;bLY(p<6tQ^W1hNFTXS9M zm77^JPEC%@P?@vP?#`=QTT99lwzY)G^=5N5OPn|*pqlFL)#TuPQZ_;F((Bl?U4OEU z2AT(yPS6p~+;mmxnP^SW>Pw;xZTg#^hKfy#)L!!?!Q%JLyl)@>3H7-@`}laFs>X&3 zfx*}Bm0mtm{z{hN>6F;akc*lVmUy;V+(_^F?&j*cNOkk;o}SR_D_9vdOg7E&k!gsZ z^+oFzZ`D@jFEty&!nR0jZVrxr79usp$HXOT(FxV0c6~)f#&U;`nv-KPlJ^}uYr%E8 z`5H_1qpg1)rmW)SV!z9fm#n;HQq2|~wapS*vPOHSc^ZjLX=L`PYQLIj@Pa*lGKWHt z-9fIsw;tGPo-i&>+TsQcG*VO@K1}r?OZRr+Ih~iV4v#y6PGbN$mZUV z7EzlsQQ(A1{$0sk+#2`)?R6^uZ(}ZPTRQ)8{hoSD|NKkQ2V5je%yw>LNcs8Ywf3QP zIeNT|c6|ppBRZD;___bQgUPMN8yf#QocUO_R5=Yd3+o?$Y-YoMWm3BT;+M~}FCMy` z!BYJ5^ZDxg?5}qJ^|zlMHGx6uSU1!1!1%O9Cp$lsna{GW(DHv^J;(o}u#M{?C*h@w zKY4OZea566?7wO$?m(Knz-@WOs|=LGp3ntH+#hL;bh&h1q>$7 z-#5B5m$x20qH27}cwuYie#RCp0nOkUnf2-f(#njg}u5-LLvT020Q8>o8l*j70>+C>-E@!7NPd4pO zlxx;6WdEPt%vEmtB+Fs7nDKVC8@Jc|5?k=^$lhXY5q}=9V~ySE#=Ezz;i_j`A$iBe zAWGM*{hpJN{I}#e0;^G3TuB(58Nts=E=OM6s46nz8nf$ z@J-{KnQZami%;2S-r9FBIX0m=E4H%B`H4qc&V?6OqC^`n8adTIzq4ZL)Vurl&At5J zXws)IY>Q>TObO z^UIQAZO8T7rv>brw{(+M$Ws(IjEMs_^d<4h51LmZIJ#t>Bhb*=N!W?uJl^kEHd7-#96F)`BCXqoQJ?vekHeawW2w$Y6dgBI3_$l z6_bD0?X$joaqs?0|4OOe`t0*xJL~Q%J1FjP{v>Cavsj2l|BOJMnY{SL<7W#dDC}_x znlf|ZBpI7IU1r&Le#3#+ME}Sr@c|TDrGvS~6wBinW(A7Ch6d zmHv4C%7XOw3g_&V_t`CxON#twpM2B4&Y0Kt|DUS-YUO1A@}m|9x!Afddj4Eg?ZWXR zZ_B1h0{1NWv_74AaQE>v%XZ~|OxtByXLKEO_!K`id)o4o#+@nd57TSKii_o)ew&r6 zzPqyWs*=EG=O`urKVN@rIN?wSg~bYidN^{Flz$ zzb)k2)49$kD2ApknbS3CjY{e!C-41T)m%jmv-KaQFIQ22%c^DaKfpWw^zyCKC8I?R znMJQ`tSGM*@9by}Ba0p}Fdv&!?4>*ZTUJ zmi*k77s|TDIW)I(_nyTccvdzYyz`>ONmQ5bT%9f7ijWoha_4&6&6jxOS2kJ9>y&d5 zO5PZ+*jdPPY1gdImI7ZE7l#>!hpM9{JvrEwm#cE|s!(0RhbxVGt~L9TbUzq>R&-Ch z8pW=?i+k6C=*yN8O6%P;6ta~g=2mUsY17EDaN+*d<-fSq-BNC6y3TsvSAOR_PM??% zF;z@8c5;@Ff|^k(zuCjU+bPGR&Y9d_zu#@Px321bL#xj2%}j~>TOTBSiu{tK|7*Qf zl1z-#^`-XJNAkWkueY2RcAnwx|#&ExtAXf=`ptItTaPUrW-}r>Ob-T*;mI=iYt(_ElE>LCYsh z-OipLrjir0P4vhA1f3PmTdfam-Nm%FD?vNxnbyAEpnUP&H`L!RN-npYmvTOMkB8+O z<$J#uo|C&DGh>fwUHG;+V)JgNdNXHzGqW*FHaN9F-_-c4{CtZGoFU1sZYjG;!vER1 zi7gC1eNSNR`5Hw5lL>q~kNTQb>rM$MohjxS6_r+VA74>|ni+jMco z_6ZMU`K<2l|G<9QjbYWq*CkR`4vJS#mP|N1ePY<-4oA)F87d1FGqXv|b(3Sf_(zrf zdW^gB#f&c^v)*pqda-aOXW^E#1JkFA#g{&wuy?Isp=36%gqN1IwRMzr-Pv8gzV%Bj zYX3ZMv&?yx^X4|yvyT?CYaE}Dc7nrkg44x4ju+(fdj8~ovCim^d$_B^cGHx*E}WAc z@{5EvyUWaSTXi`_`(=x3;*3Mwd*t3O4>MzLpFU^L-PfPateCR%*#GBypX{4-S@`ch z=f9~U=v(NAQcRuRZdAX>3 zLjk>K|EF~G|Nc=sbxjWs&#X`NOB0jyst(2mhnP(9zEZe4eZ@zv{l`D9`Dk;BJ8)t~ zrsl-pkl6UguPmgl?R%IgFIG@?SN%n2|G%K5FbmPFxqj;wgrA9Ca*j1CI_mt)$zShZ zlTG{KR#`U~A7w9n73C>t6wmiMWes)dIa^9F9OFOn5X1ugsNb~BJ|M^N; zzc&i7b+$dW{A$gWXgux7PS&pvpDeL|IQeh;s=hL#{c~4)>6rQioPD32-saBV9HxG_ zxIMh;XaX(u2aH)WQ$OWx6uj7M`yD`qMTJ*l~m$a>;&6huC z>>qx#ka174Ja^dN{)2n)MY%2gCWo}D622XHy@&On{364>M^F6M`jqNt_v6j4+68ty z#5&aNrJH}=7B_fpm>zgRyJho*NSSx5cDy}VwzyJ0Wao{{@{5(1%1s4V|5n_7#xO?w z^v=yLD@>`uE8$VVT`7o~(~bPAqD9`svcGTc@_Y>v+{+nOWg9XVSSN$~D(2 zgD1EKgdLjme4mv;)UH6eg{PiqKT@$ya^Sn^7U?;8=MFY4&G0_wDbuEjO5d7$^PjKy zt?l=%Cw?m1DO>u2>E%E5nnRB77iimj;Suk35B}HYc0aaQaI<91r|Vgt;tSU=QK+u? z_BZU(@?iPm^>Y4qCrmY0uhJKm7M&#PG3&+0nD;3PcS3*sW1fEey6cfYPht-~?X0`M z=)B)2qv;;bAu}}#|D3R$c;tnLf*{K|ujoY4DS@s(MORvOK3Z|&+nn9^@74THW9_{$ z@9Q$5MNgMG>P}D7m~?f^{pr0)j?OnkY=rs`F;?7qbU3?XT79+5uH9VRE4^3D5bwIK zEo7#v9<|T6`f}wG&faxaXRge%x>C%rqWGI?*L>jvdoMq&-S5v)c;G&G8_oDuVF_QMCV|73sMe^|gd^_PO!_XnI8y*8@F%bYp!ZNPd3`?YHUem}~OEmrrFuQUF0 zxU){KMBMh|Z_g={Sp6q!Xde0XYuBP_i^`rURo%Sku_^3ez45NH`+F>GmOpUU+`9cr zt)a$JR>_x}Qc}$(f7zoF=M`5|xMkKAY0*&O!bgtWRi|8j|8;LvZw{ZGDxA)>Dd>`x z=+UXXqP<5Z&J*4BTij&B#doJO-lzKgSGJdT6?;*##FLM=uPS}2U3b9CsA40-3Ytti`who{9kq}CcorT!UbuLCv$!-n3T0w z{Z8ZJtzL84Olqb^=5Bn&%P0L-XH9mQ$kzPbGs>AXg09M#NcQH3lr1$g&dgg`nCHCB z@?u;x65awRJ|fWS;2%&h0NYIJ2=l@XbzJdEYP6 z4&fI}nd*ZzMS|NW?`me=_W0(h_PVQ1*W+H;_~*rD3q0fDZF$DmGdZU}YM?6|)CimcmZsZ|2}E5h3Z~eOZyK%8Gp`q{X3coqL zH$222HZx9qolXbq(S+TPvNYbWIGxFRS58b$(mg*?UFhhus$RCnzb@v|t@nPEE}rPp z#5dSy+TqfyGk3fA8*R zjGvTM4H$b@s5hv&+&gc5qORaw`LWtN3?D;SBPSfczpwuO#J*F%ZYk|rv-ZcMf(Y)A zfCUSuX6{_Q`EYQ<|Ha9l-`anE%)HvSHskmC`H`}$&WWLqH@-6tZ+O)@w~{G!liB4J+rr_#Qr`tns-}=u(v<>PMGPdwy-}uIO1A`}bMDV2<0m!bnxmP||wfRx2NK(yh3^Fn~AgQ^#rp4cXgvA$OWrH!Pd?wa3Xz zBrImlbzzQ(t8P*$MsJjrGBr?lCs?I&yp7Cs7>CU|L5VR?|p?f zk8KrgEN0g$K99I%otS>aVda%9QAL&2b1b)B*(MRjJWtBRfJ?h@Mud;q+J#fpdXILx z-F3YD{&EIO)N{A!hwod$+j5?LJy`i_@^)$V-e=;^{e)KE^jM>I>+@v8mE!x}hHiZ) z^y|O9)XvU(Qg8fuYnBTYWv+QJtv>K)=tb5i+<(|C)~xisJ)1x9a5Im-@tp(x4pPg) zTpngJS*6cA|4ZI|>+_xKAJ+ZUyQ%k5Z=X@&`jCS|I)$DAux`D*1;KYWVgy179;=vT7R>5IuP0!@~=#!UZUFmdWqzsWOW7Rj^D zORMkEk@+IV^(0h4)j&*2M@&5MiKF8I>kfqsN8O97xHj!QZ( zE?l+m4Eg$k`^6>JzUM9OCtvG02pi--<*qg`pK#CAo@afFYlu<;n{VB3NAX#eo$r1v zV%BZ47O^v2@IFgL&?gU zray9fI5se)}C$4&baa!!d)dtM>9aO(^8kTQZ>@AH2T;8X@XM1qpoDe!YdirCrG9i28RpNVJ)mWSiGJe#tVr#Y{>!KW` z;2zym^Eix@)T8b`_!oQsj$81Z=bg89-H6|{-u!NP?A~Wq&sz^&-xK3Btw?%`A@7|o z<6EhgKN+o=W=`2*e#uFZ#c9@-_ob`5Z!K)mnmRS@%@ww1Yb=E-`e&^Ccz@AG(O0ka zw_m)!W$sU&yrA#b?DmpD=08 z(p4J!zus)N-ztAHQghN{g*_z#9=!8juG7yizqaY(4et{bYZtaQzY&X@@TKPQ+PEpb zKaT2o=qJAksup`$cdz4U@a9E9-&@*QnWy&IJqxXm`ds!t@_XZC_g@ECb+g=gw(eGN z(%km+%GPP-B{H|KOYA6lIBll(%%c@+1njw2Ycf8ljC1!$DYUA3HRFNxo6VW|5*HcX zr>(Nty6$lJ&5Snp6OR6sO_f@jEBPh~&n{0`w|&+N>5OO3Lw|P~8)%;n@|x_;eQJS- zm(S5_krgxjr1$4B#?620|0*a#Pun^nKX2>BJd>J&_#bv(OCSG~+inq-w zCew^7C2`mG<^EPuZqR4(?OYamcVS)^1LK>ZoO@BVJvHI}mGjS^F0tBJq>=P?`~ITJ zv@4tTXRhAe<}=-5-t~)-aj&*)Ik5NO%$2*#b5triHhW3+&*+(ZBuz~FRPf`XNy*#3 zbDgU%{eI56{pJ1znMX5BWfr|+wCz=Y(0QXj!_y%{SFY1-uJx758@`V{UstYvP*vzI zJnK?Hk7h|}e4Y4;$4hq~4r@!a{Kx$G_g?3eP$T{GYV`{)=k$#5{vke~>v2&|&ekE@Po5KI&tl; zGa_(1t`XAhxUTv>`oa1kNXHMu?!5)?mjlfSXX@vGxBKVo7r?gs7vz){gQs{)^h@>2 z^ea(!{e!ObMw!J034nsj#zx!RIhZcQj+Kejz$K~#t8z9H@COUS5=CRn4G||L~&7AKtS}BUE9hQUoG2J zwdM4dTjzXU*M7M*bEiYDt?k@zU*=fqtDm%f{_p#}|Iz>ciwDk=o8qDJi7RrmV!@B| z&4=P$4*iuo#B7pq^TOAKy>SnGo42Q5|7({yIbgc}B_D@{!kSSkK}(;st(bh-^kX5{ z+LEv>`%CHqE6CP?n!!KCrv+I+@$hSYG#;X_{l9#Ts3(^-H)H%`tnj_w@6g( zCt-g3HP>H1KNYgF`0A`3%m1W%fBhKMTGDJ2y3TX*agXUMCvUm5)o5yrRn7LDhvOBq zLO1zoU-!7aBKgTIm99l{9=F!`#jWzZ`sz}Ob=Y$E<0q0Ii+o%tJ#|(4p7ireSCobb ze3jWcuWACEUKa2Q# zBm42PzTIzZ&;D-t-v3x$fXD8TXaT3Ntdhwyp`h4Btvn?`pElMcyjrtj!WEfyU$hP9 zO?*A|z@B}}3%L8GXReTmII3!3E4udrpKJj~70>ZK%XiKQwJez7e%|Q*-?uMrZsxrm zUTpFA`}JQuZ3AgLF*c~xx%_sHT5;>T4TO94ytW{v-^jW{rOmdUL z`G9~K{pycg>ngaoj6#dQU=_1q`&v-;#VYzV_nZJ`(SYFV9nThI*l*!T4}IPw$TL~7Iz6pK zbM}Fns6ak-k15P-Zi|d&Y@HCgHb1?V#eH7zj7I{cajxy_FEue9^`7v)#3j-Gjk#>_ z4e{UizPOhwpZtD(qJDev2RBcN6K|}xKXW}Cxao17#p5>{ck^%kcF_C6;*FZOQd1KJ zcqbm~&5A543HfEF&>nMecFYUK_JaMvEib%JR8Dp4tyq{M@=ak`{^yTP;tj6liv6#j z=-g-DfADegwdbw*&(0g(sGo6QyN|2UziEH!CkW|m@yucGFP+c+?bGW1M8PyCruhLb zW-{JSif1k0iHexNFrr{#u-=uO{w--WeMxh_T;K}P59|sqaJUs*!Mfo_yiDerSC0Z8 zUq8dU`BmV(&Zw!6+&718-oY?M`<>Q$t3wM{CVgRvxMuqJcf@iF&X;@hVm&u>=}&)t z?9+Cs84=0vg6HTt{s?=ctfTO2L6zsO<_@)&>)fnWKdciDjGrn#^@(W1w9sv-Ten3@ zS>NgG%hleV%jx^rYrpX0mHQR1GmEM(;PrF1++%fU-n_`9HFuBy=IDQJ*)p@*^&Mk~ zg@dvq#}pGM-?EL2M#h%OnRWXZy*l~2w2ZSSXD#+<3rhWP?fLG>T0DOor>=dH`6QpDr|2U9hHW!vV)_m#bd9KXF-PiQe;5T&s9O512WHa_@XmqqOOx zp2!U?C%Net{`yI+62s!upuI#ng1ccdB}E?RFEk%zd-!y$9%Eb26T>FspxM-jPDSC7I>5dF35d_AZ{&+2(E$=;-racizrSzo78Z zW-aescQ0PLb#L2h&-6#TzVk6KetL3phC+^rW5T3wPVsmk3}6z%`!z}0`V zO{cO%q|Ot5yZ_oFk)7+6j!xh5K+|X9iqGC#CLC7V{zA6QyZHIer*n%9?Ab3@$n1L^ zzxjfS$~s22FuO81QV)-$`L zbHcaR^e=zV$#~f_e6m88+R10@lFf6cw#|AIlbkqlVn268hDWS{Q-z96MFG#F75`1dQ8vb2AOB9O~m0vziX5YWdZSjSNuO7TTBs^jIk5d;9@9n*+ zx^!wxRb3%l%4SVn>$h*u>VA`pJictXc#Egy8_6jj6y^RLE_!)j6W^9cSHD{Y|}nTer$?iDkeYwl}>8&F|fw|IumHT=VNYb=*&T@fE^R%ugdkk8GGAk+q4r(mcGS4!7Lj#Pt&P3I<#)Xi^{pn6a<43-B(|lB{*-Z zGMm!P3H5DC_D{NP`u5vTsL)v0S$%FN>z~H8yEJEV$4Bn={ni$?@8q);+3erAD?G%b z=WOcES>mVT!@iB*UN_VI`=R*5^Sb7k8vi)au=L}X_CIe=rXM-BU#d>7lgHQRx!1+% zkF0%T|JTo{3;6F*?tHI9Zds4p!$Z2B?b~b>HC<<~c;T^mx2|j%ANzx?E{nuhb$7VT zu3PwA#bm#SsmaOS$Qn{Qj9a>+(nn4U;O&nTY{@{E6B+o9$~h{9Asm$;|k$?D_*4Cv=~PEIdCy;_3!Lwa111XXXpuQO>@3@_l!) zsDjt$mHQ4p2)gp*U2nVYn@zsn&l31`>Lfq9#%SJDe_eK*TmEH5^{G?Yt9G2aJN0Ux z^K<9>C+(cA=Dj~|o)>qspwvxz=AUm9?&QmfEX%cE&umgMTs za?V;T{7oX->(nQQ!}qe1L?)Q_PFC;Otu4T6`$W)Gcyy)K066Bo2}R!5;nbj zLdK?6-{fQdlLV7RUdmUy2lD+5ox5(o@MX1(Rz`~gbzl3QpQ%=UQvWVEhb@}OFS2~Y zi-#w!dd`gbbz3?r+=;G^G5@Y(%BYuLns z`+`vsjbDVWsGCI}OuOtT*8e+T{|%n7wPGcaGVhN6^_j-EB}#inrOUk|kqb88JdpLw z&DTk*`~3AKH~GqUi!?nlKV;;YmuV>BebSk&SnPhY%OmOdlKHRS=-k;k-T0Wu8;>pN zQDhF`e_kV`{zI1M}&o>^2hd$e`;NJWq^I1S>U(a#f{riIi3|nIMoNN-~pPezc z+3mHI%7Uf^57K$qF75BS@#mFN@L%`$itmMgP2Z;WB4|>`G?DFBW5NRu^1g0rsqM>< z%C%N}>9uXuOm(SGvw z@1VusE4qH^iydIC0QHWFQTjAdP67J_1>F%iQ>>C_xiECA_0# zXl!T*>LEE6C#U9>fMk$+OJICf2`*hOh`yeIisCdbWVST&MBYs8i5x)u7wzE*SGrd6@bKtVdTP$(;rYjN zj%OWD9M77b9v!i_<^TV_c<_7Un(Bl6*Nl70-_`c-KK@7f%kQ|0tDk4nfdZ{KlFaiz5dyHb6R6@^o-p#^ZQ?{VSRmF_T@8+I^~bsALIvK zPO*Q#hdKDxlZn02_3x|C=RT7^sPMS%eG>P*r?!^6XFHz_d%68Y{zd6i`Qh_smHgOI z^TW2R`+e76LR=TU$Rr`MIy0$#$9D|J|pu zkL}(*bN}tXB?4Ek)t$ZeC))MOFaHC%X8SI++A}??;g7W_SG@gx$;&tCJKhzZF5Ecd z{PTx4W)s_=-{X;sV`F1zNxq6@fWZuOf*v$A;a!;S8|)hy>;yT%#{ebc7@1fq7#fI%Po(wfpmB#V{cx0vk5cqg^;7dw zKxYYp2O!ci%To2z@=J@r%hNOAtJ3rJ^YcXd1esTU+Z`#vRc+ z2Vx5kvNkp>db68DgXwPVE=My#*D?{ujL24@$3l;-3WZDq)n}e5_PnFsmt3@J?~iA9 z^Gr^AKdXLU{eCt7u7!DbtIyZ}`#k^uw5FFg8Ur;%-sF6bTz%YX=6=4ZzqOv!$v*i$ z#ewIq)hplKYY#+mUXy+O>+8L=Zu_qXzU1xLX1zE>qe z%viBv#l^VWhuzp)fB6>6ycF1~dgp%P%={Vo8B5mpH)jVV>^Q8n{_Q@#x3{J5{xh`B zs4j5Xk-wt3dP0AGhQeWk$LVb6xMs=9JQ8{(C1$6eRJSDjOWJmc{POv(`?~F;9zEZm z`m?JcclEYvAGv24dy~K1D11Cueb0FV<{3xNIHYkJcSN4jNp3SZJ#*n1t~AxhC)Omj z8Oxo~N#ix1EqQcJ>NA7IlHzGRk55?`7SG&x#wN{fb3Ty(}+0Iio&J z-9d-NG3(MiiADLptKUDd@V!*>K*=_A>#xaeUMrgYAMAKG<*P&IRjb2wwNZU>`tuI0 z3yWB?%cCu#cM0?5c@Dx?4%e>O$Rl%Z((xjOeyyNP*F~XbYSFvibr;vUMTcC>7GCw{ z%God7XC|LsH}8$$Usq?{*yl~(I?nysq5W&qiXFGBmhRFh+U4N&ufRj^cUJ1%3xcbs zt>qKEvVCIW$sQGL|FF9?mclhI(wA9xrEC`btQsxTRaPO!E+E!^Yh~)1DZ4++=;yv6 z-o9+j{B7rIcXX_Zkek_LAKP;Kj`Q>NCs`Jry(&C&8@tw5?L!r(?6l_m+5Y?de7_xT zyHdJ^PlV3fk!ZXwNVJLN>g>MCgGC-sgc`o6G_y$mbSv7s#!PF~2KBTg|D`eQjW*vT zKR5ZP$XoELeOvPT@4_F7emlQ2?dDYJ-tp0e_r#s-w*Jqnk2XE-bzOUbqu09YZ}+wX zToK1DnG-vrHW>XXs_&LRlbyx=?TCY$ zp!*}&Jrn8{F^Vr1Epy&h&~Il}XMW_>5!)sFFLz~d__TH|m78vJUcH9({z3K36EQ#E z_|Lz4yL{F=ws}7KYOl6r?A^w)qiFBKIZ0XGVV*bcYiOUVyng$ihwu*Z>RT)KA58e8 z&Cgm@8y8o5_+?MhgLSo=I&Mt*rzgi3(kz@TazdM?~LU=@bE)@O}o-9 zYg@JEv^BTHg!NX<-@56@(K(K@?Bh53{&)9G&wVmIfBS{KcB?LIo2Inqy3exoPa-l0 zoOv=HDeaxU#_tZ_oZpZ9FUqmkXvXd-EjlG-_}=>7{?eZpj~{6Y4Kk1=zRMrx=`#BknQ9HQYygMx)=Y-Y%?l#);)A7Q~ zq%sGE?K`zrEn2i{#lJJBxcD9KzG1qTedw-*^kn(ir7njaZD;J6_`z1nIsdZAzPIx4 zw>f+NV4c$t=D<2^k(Q4M(Id)4qb_CssR;oKYD|7a$)(m;Y zl>PN><^{J;W+;^1YdzSyF==mo?x(kN=lp6k{JHvvYHeCiW5+*5^VvczQ}&45;Ea(_ zY43J9=yv#>^Gr620F@UDe>luqsQSP}gekmpF=M-l>(w9ff>*cKYB3otd-pu&$lpjSFu%#A>u0Vsl<{&xSiXV4>%wms?iuc0DxFWYMvr)te_} ztu9;R=N^5D?Qq)Z4Xbs|&4-zp{~8| zi$9yPJ@jy!YA3#9eb%03-O&+SP28Q0$|oPJbxZg@<2-BWlj{nmBIZRKEvCtz?2{0d z-*s#EGZrHYz4swfSN}|(BB8J9y0Ip(v))~{f9{6s|Mv8p$v+sE^mnV=E)l8kQqBR@ zcPb~WK6`iaES_6eu5>Q0vR29t)nDmUl6Q-NV?km5R-WDG76}(Bm!)LnY>{8XT&>02 zcKO%d0JiyA+`3XnkGZ@*d!gCR*t@2U>y1NI?{NIY{6>4FSyl(rwL@+apKkw}uz!QczU6`crX+ReSkE{5eCgItk!5%P zMcYZvQgocY%X_&nr+3K|f7SnO{@u5KwXg4v5H~32yYZf7t(~T>^9@5`s3hfTIeZkb=cI()|NvpR1U9xBhr&AEGLxy&x_9X(4^-udj( zaepJ17_D)!T@_NR%ZnO3Idyi(^ zko?IzH$LysJ)4`#)77V`I0%R6ntfNQzh`aj$q9^) zJ?k(1e&`|NcCwh$Z(7*2!iuHJp2?4s&DJlln|yJ4Jz@F@uO+X!#jNj~(!0G|e9KIyn4};Rm*Ux3i%$24iJF@HGW9Q2=@H+! z=-XF=x%R6Wqwl|R6y@cRo~YH?-Q~qo-n{Ns;*I(VCzEcslyfck)vV_snE%vMKIiB@ zEg8Pc>E|0WQ(8QF%_H-VO!QwbZMf&)wpSauwF>#P9_~9GYyH)~b4KgwA0G?W?vz}2 zcR&AUvz&&?$F516yYo4JM?|}&=3Llm9q+O5_#?h9cYZO+Z!foM-nu*COzX4bQ>H%` zpEB*pwKe^pul&dtNh;dgm3HX~Z=fdRwT15N zxcWS8f%>jHJ3kz~xJ3K&s@A9OVuv|67WSIB?l&~vD8}dL_p7l-=bcfcXLQ>tp|uC@ zo=;bO>AL3nwk zli$kTsdu6+n)I*J$HKtL^O4G0E7d^@T!?{0ez3;z& zv(2vlFgKN2?SEm-?Mu$5>&dM>~4LvW&HtiLBFY}nGJNb;6gwf`fY17VMv-8Sh zsGd_Ixi+rj)$E2-C+}N`URad9pyB?{kc%1*<-9Jd+}d`?SNNy7aL7cJn_fYwi$l+u zTX5{Som+lF!~g0{6R%C&Ulz%y-}bcf+E?6tv~j}cM83etnxfr~4*kVkuf9&*AzJ?N z)35tq?gooodt7xgq2+PGC*3vcR-|crZ8GBe94B!5-c3&S#SVwx_BB=s`C>B1?+2R9rLxOY#@Tfuko)FY9X zbnO>xd2}Y4%Ut)t|KD}1zNqs)dzF1LY`=BWOdn5IHPNl*%RYMrZ~4=9{>J=ywZc1? zR?XQ}dMn|>vQsaU1O3c?>ra@l%JX8T%ch07vNx65BW=yN-*9BL)+Q+Zh;Fk@+4!he zNn6eKCC3fwI34b6UDwj27os=08%(-%yq1mNJEPqGrC}&eLXJ)c>AX zU0*N%eNSM@8;|>;Y~NBR%$r;&kbZJ?)#EkWLihh%uX_AN%ifEgA9<}b3#Z>{%>T6h z=9hJDv$L{hv0S?FvHbty=c-8>ReRS2G@dbDdZ*XrLu0#m%%?;16ze@JIKDGpujxtN z$gIULbK!NO{`UOvsGv31-8ULC6)Ghk>XiP%e(ABqONH7Gl8O80hcm>4`Q6&LcUH-T z?)|fDf6f%zf80cF!||{;4}QL_NtwIOm3jIW@5wWmZvBx}x;1Iu)g!DYA{4U2CU0EA z9C++#p!f7cs?RbueUk2fE-#cZA=&E!Z{3qy@#cG{*qo1dEp5D5v+Y=GhWQ1ZwB;#{ za=*Nc55%j~|5L6ztsG&bKJ(mK=Cyl&MH_wD`6|DDU2R0*6rp&fBWmo&o6MgF3ntmb z1zsztdK|iI>bsN){4Z5_YHzF7+pF$d()N%oO-Du^9{0F7V?IA zmM)(?tAF9E{BYHZLyFcPyt5wc>MN4p{UjwOGqm>O%FA)=k1w@$UAk54_Tb&NGjkul zvc8_$=W$JV{STH4PE%@oY%cFfNfOTekP%wWe1G-Y&9)RB3dGR~# znxpk`C7*5XJk9gp?{od7QR&0>*;>unvrn(;tKU@=zbbBpWs%Zqp&j{`#qxTu3+`?_ z`6z8|*z`rWmtKCiXl>-(X%dr}+gpUSLK+@t`AgUs98v!J!s=s0S)`;%!CA(s(tH0j zhxgZRlc=0i{ki=;>n?*i+O?pT`}=NoiRbkGsE1U)pTcx@+2IOWp&v4IkyZUR~dups|s!_;&R@ zZv!bUugo{;X0jaJpKt7a@z?r&a=GJQVJrLpe7P>C`93cFs8XhHzTEYI>y5*Vzi+O* zeSvrW2UeX0t5#@!c34?*t)kOvN|vwZj(9I0gPiBvrm$SSI(6FhxNp0Xt}XWzJ`v~m zS87>G{f!4&zWYVLvGTgs{0e{5%;%gpY2Bh-x=hoWua~?N-Fc|mp&<6sLD|p(VZOo} zkJpsE<2)l_#gfJ+m?QN4r1z#m=fHDzqLK4Ydd&^I>iXhNVba3V<-dHgvqNMzzFW0@ zTjGrWOe~9(Utms57#b6~fXhF`C&=F$G%pc}vVzM%!Nd%NO)-~mnV5kl4-yMJQbB`~ z3Schi@O98+g#nInRWnO$!>aJpJ`#&T=W7&a=O&h9piV=8=2uXrAwU8o4`7-YA}_f@ zo`&e#!hkXj@mKkwyB2gB;*k6#r~8*#_b>lY?=O;&kO-QFcvVcFd5FBr81oRFM;*%2 z3e7IG@vyP6xuvlk(_>R}bDOr+-s(r4PW9^}XlfFlU+UREeD?i69H2L>4-NjhJOaUXcho(Z)^RUEfn5 z^%R>Z*gQdEQGT928IhFBmf;oQ=(r|o)2EFSgv2GUzJ*vkD7rj6wr>I z0SSkP-) zD?VA=XK&oyJ-f2)UD`56S4okOp5UIYV-mGphFNU$JEbOPEGzykdvAUHu8T+Zc)be$ z`)j{M*E*~8`NiMjs@HB63~Xi(RGR4VXj|6W#gl)o=R7o9De;ZM!~CQJb<3F5;N6JToXlI~-QgoI56hrk(cP{HLtDr=x2!>#-YayLdQyCI*R^ zzKqRW5td|EJP zrRWu&EVZYeXBUM9#$7SUVp+PxEoiaEG%06aHOVDx!CDs$0;jzA?C99M>*$;a;~SM9 zDpxNIdl;s!x>?2k(#J2#Zs+dEe7ZM5+IenU8c*$~Q)$`auld_j`F@{a%ek<6*Tci@ z>!lKHliqf$R-V^eB6-uu%Oq?2f-Qze8wB4PaC!46JuIE9K09>LsmaYUA*asRT5R~g zacxa{$`>zF<)!)=TQ|r{J+!#8+Am^%>XN@EhM`Z2QeQEZV?I$O>?cg(Io*m{Obi!J4jrgj_BMu=IJIUjyLZcoIvlii0;*6%DcKGLwObEDvsuB?M66|!DA`_?8UT5}}}X8%`C z+wgTtVTFp^-@_>?j?VLI+TDsQcz$nkd=Rbpw)0h3JxBXOUOkg?bGetRGFrwZJHlbnr2+NMCszgFZQl` zZD0SmMP0HY*GR*=L9;oB*?&`)xx~a~#~D$&zg`-xdLgVVI`1@}%JHe!j+U^+FtJ_q zpRXX+JL{LMm}UOgGeMuiGtSK3{KqrySJ^)MH~L1~Jv5RW`DZ=qTJ}z^R@%V)y#Mj$ zkJ|5y#oD~RzjE$bleV5w$}>scd9$ZaobHmYR zVUq(}p9}adhz&i;UMYQ9C% zCEX)^>Vw6yS$kfZwmQyOD*X1no9Er6689PT2i>BQVzR8nOXPiRCkL%s<9*?+Zf~d3YKTjCqK`d&zJ3~`=ojH;!ieSN}pm*Kd`wRQ~HHb=&3LF z^`co@YEG~%lPD@x(QN(bw&lEr&z1!h|716Iy4&Sc`@K^==i$D3nj_1bCP{&%s*w}S zE`Q%Vx%uZ*lW7mGUtSdZ;nm|6b03uYURRI*`=oRFwc=Y-?tknO`EvTMg6)gaG_IFy z{7mKUZ`^ksoLO?XE4w^PPxevi?r-g)48aVQqAbr3dp_Tn=u*tHNM3*O#;ZwBlzb8{ zS}4o4+dNizwGwn@_RJRj0^{DJ<|)gozQ^x5S1Yi6UfJYdtUC@L_UhZhb@JbAS$z(U zT7?~(^cx=eo&OZOsUq*$#$cIWbB;YeBk+oOsc^sg#SL6dvkzr0ww`=n{bWufvs<#S zt2D!759NI)PI>HJ{`C6?j|I6G^b<@XCC>&3E#`Qr{w<*FqVKv}8l9nMRXn>DJiE85 ztev$llQDd;WK8!?3*#O8R32nCtzU4BX`MyY#!W8-D$7?c@~XJ3af#DtqXFyR$+~OS z*%WymmdIS`#rIHvzdCWYs#@saEA&i$BhWme=ewiB|!_t~t1c1v7! z>u54KbT^JU`kYf>n5RV*_y5yo;p@)oG}fHB{49J{}_ArHAiaYEzfK3m8`GvzR73~ z3jMh6PS2zbe_A3VGOZ=ArcRqAYnd!{%Q1iF^R%M#9-9sqCmjF%WZu!;7d(p2&zbV( zOOi&*oi}&7%O?!Ru6z%dc$vO2$wtxtF}w(ooQuCjT>YpGk6JNrw%W}i49 z6!!YYJ-JJdqPNM;*g5Z>_L8bf-`v#H+;oFCPqX>tua`0ue>v>nesBJ<+f%yJ4m%xt zI(r7Ud}+DN^bQ&hfK z$pYPVD{OD1zF}PU@_EXhx}Asg&1U#>eCNN$f zDkt4P-_~*c?nP3P@8_)(+xkuMes$89_@)+LzNWbwr|!+ihQ?Aps*4CE`d_uJ+Pp!El^qwO>Vb8OHSRq*v25BZ z)50fPRtB9ET+!TCvTXm{X@{<9in-dR8oDo!tC*-+aOMQJX^ErM3a-hm=D+rD)18!k z%{{G7?lf<(gXZz?~O?$^*r(u@sa(}}Kd4EU08>0G$zg4g)zIvNsROXU* zLe|&iT!wUe{$utx6*<3kwOq80+^_y(TUD%f?#R-LHHTI1vCUOUvOCi8spGHk*E(O8 z+Kn^!uI-uO=B&csC-+uIBRq9VLFB6$Arp)?b=jJ36&2mu-qagCZC6GA^A8hPFZq9* z`#fxv-%v+v*d+Tx0uI;3Gw;%wMH-P>LwrOue<#1*z_%b^$Kl$ z3%*z?y9k*!-o7jcJAynXeX z+@!oG2j#fmHzXy<#r*sc<{Wi?TdpXa8; zhV1oox>s;&s`6bb-1+;^*0qkVD{DU8Q_*BOFzeckrZc&}x3L~}OS`#v>xivZF2g-GNbwgSK6NK8LOH9AKEl~_nY-G zzkNQ$EAppbc`@@zYT4>v_FLaBYxtoRbaOLXN!o%|CgW!tf!XyrS1Fpsp*YBw|rT> z%0|N{(4o!gZ2G!sZf~1%7g$Uy^O`%q&?RzuoziO6MV3n~b|uzY8gFe;O^ViQl+svv zO7n_IBjXI~43h^Zjkm2kvVJ1l3e}k@Ru@*NKVuV64qrHbZU6etp1$t>t`)v(a<5$t zFP?EYuH~?vXqo`u>ff?&j-Pzm{ZK}x!Y(%T>9)^@5)LuRrd%n=5twV&zHYwoVunPu z-7BwrXNgI&v%LLVb5?L~`r8waPwbcw`sL0o#rW>OL1_o~mFS(xKJD5+>Ftra&gYiB z_k(u+onU`o>cXrl-IbP%x z?|ypba)$S(opYL2IkP@x|6A?6U!}6GMMq2wUSK-Ou$4uFNAIwo*y>m>A-zn;jcJTxi~o8YZ&KUaz@vI| z?{aRgb@Sd|3Yq!Vr%7wpk4+gjST-^CtqqyJhb5x8)|$e*%;5$S$p}Lz&0xAx>)jU% z)JymNZ4}OV!M$B4O+V_X?-pmTm_zSh37R&zOb$KHz$5;@U9<9Kq3yKebAKFuoa2)o zKkwn$mV{5g`JHAk*RB4}aw5Mny!zk%zAyi!mM!o zc<12kTkjvpIJ^Cqexnz$(A#Cvl+PF3XMESYv*O2wPp5vLbzi`H?&KF^@9RQdMeR>F zXdKlRg!x-m4>5q-)99JFnr!@{?BDn;NdHIDEr(noFGM zVn5;2*BaCsyL)fRd@(Z!+SL~F)yMYo`o+ytPo9g}5prokEz|Fl*SB9t@Qko{yGCX5 zTFWb@U)H<3EO)i-54d5w@j++I4U5jA@>^9$=Y6@dm1P1?oNDHZodqlRO|vlBy;=QX zbyDi``-hHH@ARLub0znt)vr!RO9_9SxKb-X+w$-6<^6GN&$=gj%cT9>v%5_7p@2-j zsCGxj>9d0ABHJdfmjCb3^Dp;Nr0tVam#0jabL`>ezX!vDLJa5f1!=~xcho-k?>GPN z#2fqTvgSBca~!_$FVW((jOo6EU$WM&_^e@dOVjQB;`+_%QvV7??9%tms=b%^i0S&v zg{}*G7sh-{A>-*eyW>CM{4?^Yf+R;jD_{yaVJE_YvX#T(|b_=WYhUks+(zuQyv z_mZ3W`nPu3Wre5BHe}53{`+q6!w05m7Z3G*PTv`~=le_cz0+q~%>JQuaIK81m}rRS zhIqqVnW~?nc`qK^WP7dH=9K;VwCJ_N8n5;^DzE5A@P^u={s}(Tz-AL>RO)Mvpl(J zSMQs1*7}S5kvsn1Hmaeqb)w<^EvxQY?q9G;!`ODQi=%R6@WBh0F2%SXJaOPa&_P4< zts2IbhW-c5H>xO`nr~z|aWatOoc}o=-IXC1Hk{PZ)ZB3Cy1u^tb?-B}*G}tuZNGda zP~*JL$p8*7T|ZqdZ{NUz)91AVKX{+<4Q;US<9FIQ?b#BssUoRr&z3SvDx8*-kdT-w zA+cLxhJ<8fOk^J(?`>xG5 z>(qVI@1NN^GrF()XpJ5J^GT65HV$V_A7Eg(qF$PbndVH9wj$$SPwnsS83a1$+tiGrD#F)Ya$8XFpzBbHQ~nHeLeJ1`fX?ur&HTJl zIyF_5^~%{tkBnZeYkc-4s(0e5%O9+6EqLhfZhrMh##fX3{!c?+RLs-W*D{)YwpGg6 zU-58h$TRVPG~4xyrC!R-dcE}aimYQNg1?)v&9W-jwmGkL?7*ywS&LuIFq>t}#E^3A zTvrjpD@WZEtdR;|zwk|Hv|Ym{yrIQnp@&)j5tmRNVQ)L@eGfc7I$GvQK7PQGI7@!! z-1)rcc6fe2^QF!DQQU|9UtDav=ed5LRDau0_I{tO{~I}{r217$*T?BTY?hijRZ_l{ z+2ym}^Vjy)9XzbM1xXo2XRQ1_ZNIuU%HvBP_e9n5f`6@A8}|Jbem%N8p#Z6{CoHN?}~zRC0}f^lby9?waD?C6gV`bt5fi?ev8Txo9 zt9y9y^!MIapvuno>#g1H3Kdm7ZZq)`2d59eTQ6)#zp~WoXUn6NTwj$b_syt3KLuBKnSY8sTt*BxpX&#>{KiRWAI`zQWXHJ+I=wdJX#wBAmchX3<> zjbCAw0!ZaD-a^1D(#b2z8FXrcA!;FDXlbfoZepTfZeRo}1dNRkvm^#aC zLrYT}bAN`QO-h(G4}6xy1Y~MPVo`8viH5$rzCZZfhEV-Peb|})$g?3>4s9sXFV;uQ zf?&*mSc0aGP>KzZ0LjIMk(q@B@(jqd>JZ^_vE%6+DQ*s{wq-88s#FV0%tJgv^b9YB=4_m!^ z^?uL#H|h{mHmwl!|4kDo*Xb zcKXoLPZ3QDaeY&do)o^OB{ccSq=J`iv4M^UXD>?LbJsRL-a|mTgCR*-(1k_VxWo5I zS`zohNfEAV)UFB4I}(*7`_T1_`aP9v!vBt_JhDu(`DpXd%jc1Z;+syBM`oI;zuzdm z{dX+-;OZ^)C-(^Yr|q*FVcw2+dkDwdD4U7lx+EYx=xpr03kZ5hH$$K`bmq zNj@@g$JFEd8qaa<+Pv>bpLf|W?{7x8+-u&hyCZcT}s!j9=@XUwWGDy6?8cnqTMN@7kcKW&Ao->GkhGXZ!xIj=Nc3 zuzr^}?DYKp@&~KU!+SX{N}ul4nlv6%wD8#=tHLh2_S58@wiozvE0^o2Yx8e4D=&U6 zH~G4oSuT5gM_a+!wjH^fWD_-m7VNz9L5zD=ev<9kC(hbN-#!P(#A!*~ea*JY@s3zJ z>#yVP_ZOYaXu4jzo%j9QX(w9d2i|x&eM)=MKVPZr$h{0b0atGYMHKAV$o=BH-Nz#} zXTBH53km)^=x%uEOV)+v&N4@Tchsk*Hm97Q zN9H$1u09=@y|vnSM$FfJYhu36JFK|td*d;ilgD~L%c+|_;m}_azIyePRLQHI0*>9n zW|bAL{57jnih36WGp@aqHM#XhZ_ukPzntc-TQT9H`1I?qytN+p9r@1i_d?Y#{=0== zUoJf~W0^E|HcbPw^?6p`WAI#rr4&( z++|-G&buwjZA$*x`dpHG>Vlgrg$m6}tycD(*4#JomzBP;(+lrJ>pze7Wti{z!evy{ z{{5-^gu@Sfbk-z%GI9v!`NDX@m^)DHtIqYF9JP{z)z8gkV%gSJSbjUO`J+41SC|%BAK5tR)NY>eggGD9Z?Vai`y#kI=ELUn*DF{R zwZnBz{re%(%%*8mcH`{h0DddZ-e%1T=|ei3HhtOkV|9TvU##w`MWyd*o`gI}SjhD4 zrFH8I^;50BfuS2G>!ff>pG#I>Sl#p}>+;8YHn*IXW<0$m;?Z<>!W{E8lA+5D(;RHx zF#GyREswtJ@}^~tW$FZW)^%Ik7u2{s513Hw$cx*V@_kOW(V6F(U14ZkpBW^CBkC3!`T(HCp^i z`}&zD3+q(&opSEKIGgb$h<^`S3B{%D-u8!hCjT*|V7Je6ND71y}Z8_w~4Dv}fJQ+3kL}{v{?_E!Deo z^F8mEE0Xgnl&$&Gns z8$E;0Zaezyq21)#gPYGjU&Yq>vE)hL-j7Ca+H4Co_*^gVm>1DAZL#JF;oS5O4EwYn z+%V<)7$|niW%B;&FD$-unlBgd)y-S2X1y+wuSlSHVYc-h-5Ty? z7bE^n&s}b(qaB_;-9XDX$n3<+A6`>0MntAqiUlfj#_akV%4V(Gx4(1$-+YDBkL?~` zX^NA4Vt2?{?#+Y+QIQKhd;+zE&T5)o6@4bf)_+jivb(D5UuTcJlkAm4oGT<_4ICER zYo+{*5tj_o-L`XUio5!+J(G{G+pH_snB3>K*Z=I1A71Bk)>N~{EZ6%qPb!zgR!3~x z8;eD|W?otG%1b|RzHi1I2FESuucgK=sVOf$-M*(Q zId)(C(o&}06R*qX&+)RHmnqiu+u3XT)U@Z>3MY1)Tw!qHb*gXV*$Y1PRj*FHRcFqB z`0=Ta-S(b`;t^F1N8QXPyf8WLX? zSxc3QjKz&MRn#qC=l$KVh9~xx-`fprMp=pP82wtpxK=H^5)-f_`$5vh7>$12!}qq# ze4q6B>6V8a&2dr=-&a@Ua0hXHI31UN?&hw=`+SeRc^NXlUD?EXqE#h>ULjBC)tqNP z1bJsGmQ7Kd&galk@S>7yw_=ghqKn=0m9Mk&SoghpdCk0lk*jw`bKe~8=%X12d~fK< zf4%waic!+1nA=td*VpgZKhyBl4z0}pZ|@{%|Gs*_s3-QeQ(oH3Ti->?qITCFS5sa5 zG@XZSMsot^n=kjZ7yhqTKJ(w?U4bV5qAtfzs~zP&rNy$Ao?N!%$&!$rdyKZO+H@-9 z_yhNE`>V}_Or?q*eHWBj5$tOgE?l`rUUG+Emf|k82D`WMN6gD(`BvO!x_!Vt@Rf3< z_gg-1#enBmxBPM5{yKB*1;**xel_*GI-5 zeJkg!eckukjxN{K#$DSJ4c9aum1Ojs!Q;^>GjFZag6T{17Z!?rI-)zJr1SVWcR40i z`|PP&&T}`%KV{CmvqSKV{jI8>r`{gicTZdVp<=Jh^SBz`+k0)Z<0=mSyEMt|@5E(4 z9&MQ;v)1iw$enk&ubF?%-kfc-ciTSE9ey3#AG)x!{?ay`lfL%s#x|QPO;-G$17xLy zVlv*nZ+ZRYuKAjK^SWzopZ?kqrWrixs#x%Rp+yzC5*uXSemn5KeR=sh`+cwPtF27m zATOmKAnG;CBJW%5iyc*q%`@iyo^tk%Klc}{XKZzm0rPI|l>YNlRJ%#6V%^U#$9nfQ zdi(Zxuj-7A>`HNU6P9lm4Hk1>E&MoR{S?c7!>Jb5(WmDe7dmpEapF4e*_cg#QzIf5 z`~`Zr`nrMI{vjdAV@|pz3c5x{mI|iE=Ae-$SnJ;$-uMTfJK&rMTlHsVWQ^4KH!{Mx zq1wolOW&~!cE=Zp=bKmoz3~goL%9PCB!azT;Hd9}aV3~H(x&S`{UB(^0krixLLaoO zDlxYpwWv5TFGWAGI5{)3Br_)^RUfw2P(MjODKR;_I0v*RJ1Mb9KdC4&ITgI+8q5L@ zgnbZfbmx(KkffNuh+9Vw2}SbX&Zb?JHq3O0A-^W+>XK2#(IdUhW^wDb^z zef`ASH)8X5`_43dy_YjDSlxf#(`^Pv!X-9jr>~fO+;8Ik{1bkH`#8#?#kXl62v;eU zwmu%O!ZqJEb5exPydB0WMM*O*%huJE?~ z#uuwE^_|?L`DtZW=EnDa^FQ9(F!OMFuR_PeBko6Zl2|s*lJH!kcu(C;FuU{O5vwGg zhn_vE*M#$hr8^3bxFy+a?2K^nQ7{wk?kw-nJtCB(v~g;Lmygmk!O5Nc9hyhlkAxhW zJHt&!{hn%=z~#=VM|ci3SM*1?o>6HN@H-OFq;gN`2a9t6i}x3mD#5*-mM-#1dKah9 zaQ~wGOPITZ@rYBB!p7bLwQa&ohq^18Kd5Cq@=X$W==4P)hLb(X;Gsv((b-+~o}KqA zjqaV6d;fJsk;EH?!X3{n4u70*IYHgja?+aTlWTbY>t{)Z`u@Ebd^x*d{il2R-}PSn z-Qu4jpM3wozVKgX-(SD8KmGrMf97mHGB>gl7JoKKUz{-Iz?Wl>%)flmu$sB=&$HY4 z_oP(hN)D)=c{=H}+4W-wFE;n{{kuLv)S0Wj#@ra-IeVh zQ@Es}?YAclZfA&0X+Eps7Zhw#N;2SHPKPamRg!b}8$0gI)MjgJeqW@X zVKL#)vOCHb)KApPSWjwsefY)dr|#z)%wBz4#eSmE@#2z0Htkvghpv@qcpN-kVBK*= zrDWHgy7ODU-g;wnO;+@R2g71T=epqiC$dk!yZU}p#e)>(KX*>-PG|~MV?W2w_E=E; zUysbh$4541C^Z`ZDxPcHqe+-GBtNbi(U ze!qY-ZvUGDo;#{bI9G5@T&AM3)L>P}f-X_EYkAl658d{AT*tonX$I?&{SRkP__git z$9oqQy^L}!2b_Qpfr!FS$2YZ>+kH`@#5}B@9Fw;U;lrh((Gm}cdOFnCWpp}>Tk><2mS@u zOKrRAEhTe+Yu?qBT{ZvR*7e=`@20nDw#szh0(-Yi{_>V{+H6r1+~0OH39;F#FbfMa z-*m0v?6{RaPor4u+2@PRe3?x$D$Oj{8;Sys9hm;)-kUpa-#GX4Okw}goME_G;_9c} z)%6KYOV!#>%Pg^e9(ZP2xyGUs@3dbyA9CzpAU%ig{#?G}is51(t^F>{dE{CwPeW6$?(N8O&ChYl=S zpj*TJP}^|vgWoBIQ(F%hm2vOnajJSdEpoG%-u{n2PV!!!UfzGUIDO5PUL&Xc(`7tH zvc|cGqdz@2R+degZFxLu`n|m9Uq(xwb6X{d$Q=33xM^AKf;~Nzw|+)EJG{X0g7hl0 z33og0Ju_E%&T1fQo9h^!uP^&SRygKc!Gs4AB8Ni1e4k#|QY-1Z#4m<*MNzG1uid*3 zXMDAnXxl~}eExe)>_WMe?_Td0Z@aloJ0hjq@5u#AuLVD6fA8kxJDOe6@HtVJw|&z3 zxxWJ>IE>?rzc-q>d@IvndRtbui1$TrN_dFXeWODb$r}nMJYcoqEzSsBX5lmZ%xO&lq4jwn*$#R!3NGho9v;3wMEb6Is?Dhj*m5ToR;%7h2{$lj3vq{t@ z*Yl52+2IGa)lBO7(bMbwPb`_T?3p{msXfYXEcWqmye{@OIm_zPeLpf(mv7F>-uSsG ztojG?JIq*81E(dlU+(#!5#}Sj=Gc}f{@Rybo0Xytyvk+%Xdu}xvpwfF!-|`q6&a5o zDBt(zYusf~L8X$Msvfg-yNXXu*m}m&O4ZKc+>h(;weEF3zmu*a)pY0LsrwVO-_$-V zsBN9s%ao*jDXe0hbp6%OXJ*@p=C@5y&a}APra0?o!<)2QYs%N&JfO3?KS0Xz->&;_ zt-tqgnaEwFlxuK;6~oJH`_Tb_pR7jpi3EV?UMa^0raxAS^KPjLTqUccY| z?X>@^_*yTNu~y%X;@rsddvV4>*{5&jM@c@&Oe+ibnsUHiI@5Oo;}oV>W|2Xuj4=nR z4ze$4jjlgEnbAVpZ>Frc3HzJelmyoQ^L2|(eq46qc8^05hs>$$bz7f0Y8)(>XQVE7 zNRN&0MiZZqESJlTSosav?laQoRk7VO{iLKVx8cW%ElXlMJVk@Eij-~M zUP&@_R#JHRZwKR*&C>&`muWcH3G9$#k=(iT*edr~i+YN@oYQi1+-!}7xs$vc88g@< zRcAg8x&F`J(9YayzWLjXcDWhM7i0R}cG>(`@{3_X*6FosDd|pOZc5zEKh3Y#_qx54 zU=?eXNSS(c>&~-MY)>*wetl8$RXo9ZB|W`q`i3Uqj7+Il`z!xENDZI%{}9Kb*^bfQ zI@z@3yq{Iqym`H--1~3R9tWibHZ|XB?|jNNmYI68Z1Up0R~fGzw9m9)tg?D*-Yn8* zX>qn^=hYlV`;ccWr%(Mn8hf+2r_}k(zax{*>{>r>^4;7;3$%ZVd~3!y( zCyqkjoRTjxnB2{r{#NfzW@@4dN80|@zqbSHmv7M9+%~_of8%On3tj=Kg~8j|CnleM z<#hPz|DLUUx|(bkBX)fW?OBleT=9)Z+YL#fFopYEdzLUB6uI@LV)lQ2@#Jowd7NsG zAH=k2-p|_pOmbUC=DUD58)FM=cTLjkQ_yLBlrg7d^4U6O&z?JW%I{Ac{;%vLzPRCr z?a50^62eVq1}!sDnd;l(sTaDQ|2mrxpZj_v;Rdc1v5j69+F=r}UM`=sx=~G=T_h;< zQcz+=k4e(=eX+Xd`yHqM@mY4e?w;Af6J6MYq{PtM{&uf2tB96 z=kM2vR;C?$*1=V~dD50nR!`Oi0wPbJh@@uhZ@ksCdCD^7rkc0yqJP|+)!DBnZl16z z!0krIousCA9nCMIxfimH8rEI*x7+&bX_$2IX3nFPyR(fzxR8vH&Ywd`Gqr?dWH z^PWAQ)gn3@=P+Nt*k*Kr=cK6pLi51)ACosozx$qKvSi`u&f}qJS)Rg|RXlU9Ec<%O zU;~4Wh3fBVmtvN6=fzvqGe6kmHN$$+t92Psz8l!Szv9=w^r4_c_mhL%#fL9Ata3Qo z z{ikyzl0O^k2i(rs9TSsz`siZo+}B>pM_vl8p2C%VJZFVb_>>8|{{DD*xwT(#zN?b8 z{oREdKEIi;tyIjZi0kKmn-}JFU|BRN>ULNr{i+aht{cmE*1CzdK%E!kP zXHR(0U$LUW`^8sl|2caLzPy-O+`c_G;`Q6T6X!niPhY{;5ykNJ$+xxNs#0Tpbh9;9 zoYA?GaaeoOCx)e~HCC*iV6vwF{vy5`=T3e4dwLu5tGTM&X>TsDig`ycDm_X)wPM1- z1N%K@NN>NuUBmEb6RXoHp-P$l)Vt?{(%gtyr3()WO>M@)?uPI*olE zYuR5a81L0E?r++AQMBqzld`*av9$EpoKR1_9lR^bUa%~y*1utREXa0aoBbQh4|Yi} zlVmk6cYQxTeRF5)rCQHccW>|6MenoEH~Jqed^Mj%GlykXjhl3JnNL-gUyPl`!EN7o zceL>-EoUgqJ!JVbvp{wZ^V$cW_e^eme)_AwgY}BulkxL*bLwZ?I_yhwol^7KSv+-P zlrme0&B_T(o?U9X%1eVE={!8U`G+%mo}G=~?0z#l6Zvd|f~(n|COoRQwEbB>XYPb) zJ8s;GDfe?D>uDtIOL?cLV}hHGr3TpH&lSaN7`UuwN_>Ko%LuczwlQp%1t-(D+bnFVfD zSL2bfuV#Isp*>@V)kMdM_hqBM&$o8I|NQiaKl2WmWgwOcsLx%Mqb{Ux^_ z50^Y(U0$@NSBsy!yNiokyMNVMUH$c`yS5zsdB!xN=IA2$*S7m!2BwfB{ zp71u+&1vGBH>-W!uq$M3@N~A)Y2hc12E|X!?v^T^*{tYxGc+bXaJ$^r_^;M7;U|8{ z@SL9)?Zp{)M(=LqgWD{AJLctCRtkU9s#A|Ro#OIT{q^ows^Zzb(}jd5o%mt0R{z7H zBSjGg>BriS-`(GJ#58W%ubC?}dS9LUEYUIfZNUWAuIY1<%|(Jw=1Df@m+f(Gl6WBf zQ2w2CPi=xmhxhd5kEcxG+q5!jqF$7UsIb+4^#YE*Tl~LcQd#_W#>aQ}nX-q>Ua*>T zSIJZ%z4a?w+xI*>b7ZUY#*6R1BtEPcIU08IO|R-^_tiHUo?X~r|HRt#rl^AO+cN^4 zX$v_0J}fOg@O0aj%a<13ND8mKdG%iOyUFqQ4t_E?SyhwSxNQ2`-wB&`|J#w>^zqr1 zzw%$%bC)lBQGMxb?c-y-r_cX6c;Nl(v-5tGuB}rG{NFx#o_+lfmT&3*HuL@d^1eEi z^R9UzqucFR`wiYw`LohzWEkw;9pslccmB~8vyaQB%3fobb))h{&>Oasf0oFmrC*=2 zD%h<5aZK#2e;14FmqoYho!`!Kh4H#n09(=Q-OOh$zo^+J`pv9<_W1`DcQm3x_1S_P zSZ~_(-TF~?aciZnET{P zMZ1l=4@>;qx8ah51Lr&TMgi9pk<^1sas~%Q-Qw()mpwRSAoDZ!TxH)}rHS`m+&&WO zDSb6jV#1Tvw;zaY4U1G{@``!X>Byw_aofUNO}QI(O**BKmv;8fnZ1{PUh-PyEJwZ7 ziut84HviEsG<-g*`)=esJLTUpJ!fq?y!ZO7FZNg!n99A{(X1|xbJHxHj6;nVWci*P z%q>{Jyyv*(rL&4x9rqo2@WA$~U@!YBDJhAPlON^3e^5`C(vy5&!)v=g&p7Uqb^M-P zi~dSKK3^UdBdhY`G(-Pkt6!6ED90rT-*~b$*VSe#*QpGZ=hd0Dr=Bj~IgTr41_Ko}Fvf80{7bSN$;i{tN4Bz1(|y(!U;RJ-ga}Zq~k% z_R4ZjS@o5cRa@39Td+Xq&h2O+x#Nqz-m(34@7=Yv(KXj~X8iuRYqBo8-o35c*4S39 z*s^cK29qPlqlLuM{cfyfI~RRE`>C3B!D>s%x$|RZFrQk%<=N;nb6J>{#21FQL2Ad< zm^!sP&UT*nZo01&KV2!cO-lT|YAUN}>W@6LZa$}S_1A`Xa+PZ?pIB|08NENRRj;D+ zeIobG1m&ko^m;FEeCW-zygk3e^hb=~{OXTFF^8n{d;aB|eD*aixh!S9@tPDN;p=Mx zR;o@ks^2hoR(;aP^mIN`xr_ua6?d~(mMiL|*Ztr1GOXeVb>W)*O1E=rqwRt3J2oA- zu*7~|xa-2H1v0w!i|x3JR&-yz`t)`kDQozZrW56)bztId8a zeX#1Z_Cv3;C;v1Fr=K}-px0dP&I8#8HnJA{Kj!G&;GQ+>+k;0e+KZF;KYYK>%@y%O z$ag{atdEl&8XEsk?%_V-KWn4J3~P)0j<($7f_>lHzi2J~dG+M?7^A;G=cUbe$aG2B z5f?Il?o!5=K57AK-j~GA-#n+bOl3&|pJ!>;qEq*MFU6>}hD}A-uaiOMe z$2_*9o-;2onLK#?_JXK``-eXaDGwjK_xiNixbWw+$&30qT&*W?pK{&X@1J?=%$(Sg za#_8i)tkRqu35YJuZ8NKmgyM`)%o>r>az~NWnDY5K}fAz_~}p2$V{C%ofStjtjv6p zzbT0E&eS=c$n_*-QCLhUd%1)7jO=;0lATSqOW5vZ`W?S>W%<5yI~6{vH?#b2I=*0< z8QYtS_ischd$U_MToRuq_WDs#s8raB-wF9Hf+~7DMN-7mlJBK8?TY1*+F-Fa>NDqx z!%o}H4Fp)UoK4@o6y#A_r%@EDz`3I$ozuKK02Ue|H?^1QoHLr=e=J8b(D^>kKaaN6uHg2|-xandSZ$iN2HI6s|7(FI(QM#A1E;-_x zzjkefN@b2w^S)o%k&}FQ9Tu(LV&N7)FE(a{Y5Cc}^T!XEZM-L${xo!gS#xpkY~Sl0 z+D?;#t~eZB(iD>$d2FqI-)76m%4g2EFU?SLeX=3-L}lFPdCt||tF?FMTD+gaS=SRO zl%;nuytk=2fd7fbu}^)4SM@Ul-Z09}KYUQ&HhX={vh%Thm(NC6-1_o)?rrmXZpjyJ zJY8`;=5$oghbcdIpDufu5x~lq_GF4&#guz28f)XCJ3ZB6yDBzbPKqcsy1{d3g=WnI z_9t~l_CM3Mas-@w^yI_@uTr__wQYO0eEBLe>nywCf!97S5-h;^V`O<5jJmU?%r_j z$%mJ&Q8Q=EVG^10Q)XJD|C%eS-q|EiYBBWijI;Xt_^vYh`Ym$%x%Mqdn18W6(EdvH zxiym2S&vKGxMFi1y%rkH*0ifz^w4I3T+P1PTbFdR@7Tt(n@-ytRgjZ>_u8weGygSo z9aPg_q$7Ge%B}Sw?-BvF%<#esf){rwTs52EwJ^0NX6}!Lfm+;;D*AS{+rM}(zFA7w zf;DU9@tU68kN+n9J*sXx_1fCi{Z~{rOq9B!9DDWFPcH4hn|{XrzWA;GR^pCKalM{- zg?t|r@9x_Fjmg6OZsZruM~m&ex9f4Q33_q%wWilO@6!oVQhBrbFRh>d=`+{F-|g-j z9R;1H&dm0uUoIGx+?I8A8svd-T3Q8?EO3!IsNAgx%IHpBG-v%oQ!mcfce{k~<_~0#os1DTx`a9Q?a4{c)C_Yokzj zzRdLcA0ul`^#)F5Wydb7FrS6rtu>^$9_stO5Z}l8fgUf{r9+| zCl=fBD9@VQE4Ws8s>^BTDZA6__KH{?YP7d+yYz&qVAXk! z(rsStXVY#!4W573{`bQ}FW+U0M=wi#FspaZ;$_?s+kQPNV$pTcW)84$u+?DY$hq|L z)9V>JH+b$hc5hg&@9WR*Iz>`(&GM9@&MSYi)EHbmZ_J(BT0C>>o4S8n8>QQn@BZJ( zJngdCuQmS5f?iJErKrH|>-9a!#4e$HSHIdKDUnAXPMq+xpHb&m>|5+ttoGT)!n;)D z&-BH7GxAz)7cQ7#bN0VWLY?4G9++vF!avpM+NT(ElPkB0~O`TncD`#bx=x=WJkOhrkJEG@^< zE5w!Z#d~d(cZqeEgspT-Uv{bQ|K8S8!_Bu6jGr}UCR_LHP4D|T@y2u21&qbV`;JeY zH(za+im|pgcS*?75P3zB<1H*x^&0aN?q88VU&F1&;^W4*jPpd|7oRf%pDu=UaDIHl zW3kw}tiws!_~lJ$yS<-3q`h9Nyj7`?Gg>xc1E&h})F{><2d`y38k*<7W~WDeJI&C3 zzhQCyfrnLb!rPBFzGl3?*naa*k@8I5+HfL-N@1uX}Ucb>3)Vj6K2$dk^cVbKfLCy&6&G4I^6s9MSjgw_+dNkfAtgw zW^U!=xWeGw#dVIUfoWB4olS0=mNhM0x^!n>)5ONcrA^6sS%GOqN%NZWlRVwB@{%|w zOkON7Xa1a-Q9&ygBu)+t3QAbIK0YpP-SipJYo^Cf$y>g1alpLDNecz0M9ql`nKoE<&gCtxR<|_=H#T7=%?nS=BDPA=%-d>7MG;vm1HL7=;!38XC^1+fL7P! zX6BU^Ll>Zc)}o{qrKac?C8mJn^@~%JOEN*LOfqvbK`UfRN{jM}OEPmHOKnQ?Kysyd znPs4rIytCm9JHwkC5?jwNKWI1rWVMFJalq>fOM+V@$$_R*66yu_NfYZt@d@!za6Vh zgVJ=&uZC^B^L0rSSCuZuq-NGje-5Q6wro=o5OR{6uUw)|F~)hn6jckcL{|0w_VcUx+%lqYn@O2zHsHQ3!mq#S-WeT zHwNeXp4a`e`oxtK<7{au%d6LJ<*qu;%{~9dx>Mn+xkLS>BQ|dfOAe8}P|&-^@o=Z` z-c@HpR;OCd&U*dMtuOo6)#U!jwbx{&np4|P-uZB4+gq*G)3QTklXTbYY+V~HI=g4i ztIFQS&{Tu+ls2Ww3s=reKD&x}nbozN9J8$Gh|R8x)1$YF^_dn$^~S{*OPZ!_KDmqQ z_^Zffi47UNQG0i+TIqfGg)i?*$K*ASXPtH9UVgRv_AARKg?IU?Cw?vdZu&-R&7CRp zZ->M>3w%9dk*F4@wu+-~h1y<~3453Hf0@jd6Z~mdEY*^yJ)qyUn{(c72+^rfB}w zWi0cWb+^aO%iEh~5zCcYvNJP(<5Clw{KRuV?(-bG<-X>4&RpN~`(uBdtpE4%;_`6Q z&FB3zw+0^VY?`?~KjzQvqYsa+%B@}%zb5Qdu;GZ{|Z zzW;h&Zb!%u*$d3PTLKiBd0(X6EN=TQ^Sq&t$3aCW?@j157A>{g`jt)(nm3!Qntrgy zc-8D2Pl?0J8qdeuTQi4e2u8X@X$eR^% z7t9NdI_upYHYb&C|0FIi*3tB*-CXyb%aQHzy7zu9+;@!Snwrtqm#x(z0l!}rGu@o} zaJj4?$KU_;#pYF#D%Z;S)P5T0`}+KJt2X|6SnKCMho_Op=crF&6n{Ot?c}MIx9mmQ zw>p$t9oTq__371jmUk~C)~7GyO{xuL&Yir=<+RIj&2+`<0jx{6$i(OQC7AZ>6bgNa z*R+{k<#KVl-yQe%xrx=gPrrMSR>tXj^U$6W@vI{L-Og_(TvxQSy>PkSsk27g{=N0Z z>y|8)hXp!V4sDsxf0gS?TgVNK2RVlJA3FT^tJJkF-=MxVvhdjB>xQSZ-*Yf~v&J1L zf5yT6XVaH;KcZePxnJ)Va@ePF3xSRzJBiq)l>5%d4ALiv@AG%|MG9IkR9Lkb#A?t{POE|L)oo^_k^`( z{_8c$n~`C&esOr8XRhR*2&vuE#Lq{To|vyu^HH7crmn1u^n^ERw^&Sqyz6;5eg-A> z-#GHssWG78h~V46MSpfb%38UBljWwb^(}|xf2U7(`J^(_$JT4s2T(?6B_USPT0t+(Z@ zzZV~77F@PJUqwjL!F}5Ir)>RS9XZ?%+?SU*ChA>X+`K5{z;-Qz^y$B6O!kb=VY=^e z`?*l7!M})yJ-e9ZUf`Rjcb)U#_Bm%tw^mml@U?cDJMlro`>l*@H$Pfz((iANI+V0+ zkB5fH$Hw!fE2bo~aBexUc>86ig#{wDW#PN$yNEB5bloD89;UMC@r6kn4R$F^jy@Jt z?Y8t#v!LYuw)oR)PDaJ&pWoSTKXbBj-FKlQ->0^PFT$+uO^lE>kcCthr0V;omL#Sm zmLziN2bU(5fJ7pEee``&^U_N)6by~c5!H{4eMLcHa&~HoLQ-maW}dD3``!E16*5z7 z)x%AF4SWlnQ!_F>s)|yBtNcQetFn_VQ`GJ4xNPhbQ}UBibt@7Jbko2W4Hqk<7AM;( zIS2W;DS;GJSXJZ}w(>*mziSUcQ_EEqxdqrmp(3#W8VoiSxdm3f`6-!cl`e@Tsdh#N zh8DU8Cb~u@AqHkv#wJ##7TN|zRt5$(`e-V-z*?Qbi;9WSilh=rYkpBketwQ!N?B$> zu|~G0f~lURg@SW_K_$3>s9iU6HBmbOq$I-~Tu@q+1I{`r$*^X1vA&_6 zp}x98O0rd2eo<~>iLH8KK|xMtav~@{=oh4pOlL^Xb zRym1z>9*<>x+$q?iKRIu>UJgh1x9))WtouJ$jP*WFu?ls5oTeDE3i#d@fMQt#7Jr&{cBy$O zpgvDUQED2Ofr5#V5f`ZVgJ1Ws|L++t#AVQzq-&cMI`U7dlYfeD%&#>N&F7-3*(g6TeEa}y&p ze;8Ys8JnW}!`RFWbRY#N%wXYXY;Iv{g6=+JQwvOWW|k%x=9!vUpvRlJsiC zGBGj6B4&mzW@utyiI!&!3@l9z(fnp$Xkm!y7DH3abZ=^m5$7f*W+rH9&BWNkz!1$| zV-sT|12i!cBMVDov^X+0F)}qYK}|0vMkW@<=;2~yVrq;YenuvyX6RyuCPt>1{x!k~ z10y3-6ZG&iF)%|9KNCY^BP?z)!${9YCT13B>A={~1l$luPHP56My6(HVPIfnW{I9& zjEzjpL4$V4dO>0qXkl+`Xku!C#XR(~#K73pzz{vGj4e$J(8J!q&=@`5jEzhzu;fb% z%zSBLj-Ee2_8Ozdhq0LvmNagOo~MnCObras{AO%uVu|iP17kB|bae(MrY5H7Ws{Mq zfhk&=1leJME@o(IV218y6H^oPa?QZh*vt?;of=yhVdQB`BQuP0(%9SxBfnXgnpvR7 z5h#0L`oqv1UChwb$QVrwOkgUl+PAM<```TBTynot+$Mg%nUL7YiMSQURM}c7@1?_8B0TRj55N= z%n*ychMBGeQp+V?#3w^mGq0 z58ZEu2Bu~hZ2==QW6bW}DE=45N)?Xl{(|7La-7XldNg$k-T5Seaww1tT+a z^nQi0p}8q~84EHGBdm-}&CvT>#ztlq7;PUTGYgFR*U;P?-F=2ere^4Mk0Ho?7q^n7G!Y-xc}jvJd8V6+9y49wB%tO!T zpr#ahd(GI`$P%M%Yhr1H87@Yq7-`qU9J3E$Y-E6uo=wcm4bju2i3vu%WdiCuW5zjV zztPCt45JTbXkm^%9s%+%dSBAe)C^lVTVR%9<`(FA%h=Gu!W^wG1DS^r&Su7@80{+~ zb4!f6+sND!qYZ3mX@H(*49$!&+ApA@6QeveF)~6ghfIu2j4<0=76ur7aU%-@%rLby zLXS6)z36>ELvu?*^t#8`#K6=Lt?g)H2paf7ucs}H(8JW&$if(1ud$(}u{m1W0NINn zW?^cGUT+y2fg1A|_L^Fv#ig;Kr73z}&CtTs&>XEDW@u?>hF<>~8(CncaU%^qm~J+=K<^6~85o&jmTQ&<==};~BTGZf zJ_%@)2Q^GV=ApN#jSS38G0GexOCyZ>&B)Riz5i=$WPmYl0WuFgPa7E;8lsOK8XH*} zqqnn-jVw(t)4hQ)x?4czq4$Z649!f;G1_L9CYXJ3ODug715@<2fRUk@sR3I4FfuYU zLl*-T&**gpNDRG=1RCK%AIAilhu$wUGP1yEs~8(unqjsNEX^?52Sx@MWg^HtjPNry zH9$`X#zvOr7~>^ImKNyci?NZR0eU~#$k@~Xy?!$?HZ#K*^DwfsKrf4pjVvuO+O|f9 zM(F9@$k+^HY}m-ez}y_8&tz$d-X{UsVTsnBG&V9cMjy8TnTI~sXJlfG+5R&&Fu+L9 z#s&uHeMw^@L(phGs0jjZ`+&?dLvxFf36}EN*uW5dtkl@pz!0+yVrY(@XF%qmm%E@L z3XJ}$v4IhKd1`EIV1!w&8CsyX^^8E{IcVj*k*NjdIFhk}F?yY6Y;0hRo_~#vj117* zjv(_e(yp1YIeI=aHa0N9sJo2~Ofc$hBO^ofI>pG$*c^S{z{t$f5MxZ=*uV^Owr36ka_5N+Q`Dh0(5vi zC;`ITz{Uoa7;PzI151pyl#vm}_%6si^nRX^rI8VOdNwx3EF(Z-7~{`IMi%IK6=WWI zxnX2!ZjKqhhKA_vFk@pwL(KBP*Z`wGvNSix7&9^eHDJ)<(%2B2-;6NwkrAk6f~MEN z5VQYgU}lO@PaA_K>d^EW8yaJbTNoJ|WAt4>NfN#MGc-2ED2KoU-xzk7p!c_oO-xPE z+aSg!W|rvvb7K<=%=+BK!W=zs8Jk#|V6+`gjmdKx!2H#Ehl z&&^GZG5l+8W`sV*V{C4YIbUXOZh=uxn_F0-mz~BIrWWY+g0Y1e<~WxnsG>#-XG>Ef z^!~YtfuT8iU);pN(ina2!~~T5(Au^ppyYzqS2HoRutZN+CWe;g=;faYmboz#BU1zP zdf&vz%n-e8VPa%yik@CfjLpr^+X5!W78v~i(8vu&m>L@yW0tX?K?=0+Gd9Mkr;Uw` zK?|%w#TvX`H8wV}L@&pUjmViOYs1LShIq$n{nC$)&n#zsLuII}7h zv=~A`KPW%HL;)YZ+x)Y8Pw$=TV( t&D6xwz}e8))!fC^j), with Reserved Font Name CMSS9. +% This Font Software is licensed under the SIL Open Font License, Version 1.1. +% This license is in the accompanying file OFL.txt, and is also +% available with a FAQ at: http://scripts.sil.org/OFL. +%%EndComments + +FontDirectory/CMSS9 known{/CMSS9 findfont dup/UniqueID known{dup +/UniqueID get 5000802 eq exch/FontType get 1 eq and}{pop false}ifelse +{save true}{false}ifelse}{false}ifelse +11 dict begin +/FontType 1 def +/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def +/FontName /CMSS9 def +/FontBBox {-63 -250 1027 760 }readonly def +/UniqueID 5000802 def +/PaintType 0 def +/FontInfo 9 dict dup begin + /version (003.002) readonly def + /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMSS9.) readonly def + /FullName (CMSS9) readonly def + /FamilyName (Computer Modern) readonly def + /Weight (Medium) readonly def + /ItalicAngle 0 def + /isFixedPitch false def + /UnderlinePosition -100 def + /UnderlineThickness 50 def +end readonly def +/Encoding 256 array + 0 1 255 { 1 index exch /.notdef put} for +dup 0 /Gamma put +dup 1 /Delta put +dup 2 /Theta put +dup 3 /Lambda put +dup 4 /Xi put +dup 5 /Pi put +dup 6 /Sigma put +dup 7 /Upsilon put +dup 8 /Phi put +dup 9 /Psi put +dup 10 /Omega put +dup 11 /ff put +dup 12 /fi put +dup 13 /fl put +dup 14 /ffi put +dup 15 /ffl put +dup 16 /dotlessi put +dup 17 /dotlessj put +dup 18 /grave put +dup 19 /acute put +dup 20 /caron put +dup 21 /breve put +dup 22 /macron put +dup 23 /ring put +dup 24 /cedilla put +dup 25 /germandbls put +dup 26 /ae put +dup 27 /oe put +dup 28 /oslash put +dup 29 /AE put +dup 30 /OE put +dup 31 /Oslash put +dup 32 /suppress put +dup 33 /exclam put +dup 34 /quotedblright put +dup 35 /numbersign put +dup 36 /dollar put +dup 37 /percent put +dup 38 /ampersand put +dup 39 /quoteright put +dup 40 /parenleft put +dup 41 /parenright put +dup 42 /asterisk put +dup 43 /plus put +dup 44 /comma put +dup 45 /hyphen put +dup 46 /period put +dup 47 /slash put +dup 48 /zero put +dup 49 /one put +dup 50 /two put +dup 51 /three put +dup 52 /four put +dup 53 /five put +dup 54 /six put +dup 55 /seven put +dup 56 /eight put +dup 57 /nine put +dup 58 /colon put +dup 59 /semicolon put +dup 60 /exclamdown put +dup 61 /equal put +dup 62 /questiondown put +dup 63 /question put +dup 64 /at put +dup 65 /A put +dup 66 /B put +dup 67 /C put +dup 68 /D put +dup 69 /E put +dup 70 /F put +dup 71 /G put +dup 72 /H put +dup 73 /I put +dup 74 /J put +dup 75 /K put +dup 76 /L put +dup 77 /M put +dup 78 /N put +dup 79 /O put +dup 80 /P put +dup 81 /Q put +dup 82 /R put +dup 83 /S put +dup 84 /T put +dup 85 /U put +dup 86 /V put +dup 87 /W put +dup 88 /X put +dup 89 /Y put +dup 90 /Z put +dup 91 /bracketleft put +dup 92 /quotedblleft put +dup 93 /bracketright put +dup 94 /circumflex put +dup 95 /dotaccent put +dup 96 /quoteleft put +dup 97 /a put +dup 98 /b put +dup 99 /c put +dup 100 /d put +dup 101 /e put +dup 102 /f put +dup 103 /g put +dup 104 /h put +dup 105 /i put +dup 106 /j put +dup 107 /k put +dup 108 /l put +dup 109 /m put +dup 110 /n put +dup 111 /o put +dup 112 /p put +dup 113 /q put +dup 114 /r put +dup 115 /s put +dup 116 /t put +dup 117 /u put +dup 118 /v put +dup 119 /w put +dup 120 /x put +dup 121 /y put +dup 122 /z put +dup 123 /endash put +dup 124 /emdash put +dup 125 /hungarumlaut put +dup 126 /tilde put +dup 127 /dieresis put +dup 128 /suppress put +dup 160 /space put +dup 161 /Gamma put +dup 162 /Delta put +dup 163 /Theta put +dup 164 /Lambda put +dup 165 /Xi put +dup 166 /Pi put +dup 167 /Sigma put +dup 168 /Upsilon put +dup 169 /Phi put +dup 170 /Psi put +dup 171 /sfthyphen put +dup 172 /nbspace put +dup 173 /Omega put +dup 174 /ff put +dup 175 /fi put +dup 176 /fl put +dup 177 /ffi put +dup 178 /ffl put +dup 179 /dotlessi put +dup 180 /dotlessj put +dup 181 /grave put +dup 182 /acute put +dup 183 /caron put +dup 184 /breve put +dup 185 /macron put +dup 186 /ring put +dup 187 /cedilla put +dup 188 /germandbls put +dup 189 /ae put +dup 190 /oe put +dup 191 /oslash put +dup 192 /AE put +dup 193 /OE put +dup 194 /Oslash put +dup 195 /suppress put +dup 196 /dieresis put +readonly def +currentdict end +currentfile eexec + +D9D66F633B846AB284BCF8B0411B772DE5CD06DFE1BE899059C588357426D7A07B684C079A47 +D271426064AD18CB9750D8A986D1D67C1B2AEEF8CE785CC19C81DE96489F740045C5E342F02D +A1C9F9F3C167651E646F1A67CF379789E311EF91511D0F605B045B279357D6FC8537C233E7AE +E6A4FDBE73E75A39EB206D20A6F61021961B748D419EBEEB028B592124E174CA595C108E1272 +5B9875544955CFFD028B698EF742BC8C19F979E35B8E99CADDDDC89CC6C59733F2A24BC3AF36 +AD861319147A4A219ECB92D0D9F6228B51A97C295470093CA270C5165C6545D6DD11633CB01C +F6EE3B37AA823D92F442576C06EA48520F0F737DD7E36EFF1436913D7B55347D27E02EC93D8F +98260A4CA0D41D684DC6D2CCA5746F13A862CA42419FFC585050BB153883D3924F26A261CB59 +E945236BF818D1067BEB62B89F25B57AC81D10844C89A1A648EFABD92B5C8FC1671A9361602E +52B9EAEEB8A603C8945AF8295D0706DA6CF8964B671F90DBB3949ACDDD20530134FBEFE9D1F1 +C429097B2A8AF2818951D34F2798A46FE02C69BCE1A2B4C11DF1D8FE0610BD9FD2016D3AABFB +483773ED4255C1B00B9484918BB10893DB86FABB84B063B0F287AB61C16D6751C62EF5CDC87D +D0A92D85A316BE8C707249B5FDD59C4B5427D80710F7241CDE5C21DCB42CF52503F8FDB41BF4 +84D264BB5CBA25E4CC23CDB884D163D32B34A8209DD4E00225CA040C066AD5845EEC2B7E2054 +B53FD752C0044B3BEE4C222478F96458AE8D804ACC0A2F2F6BF49887D658BC29239F598D69F2 +525756FEA34640A7D49C471AFAFC9E74F61DCDA120756BE6D706721FE72D68E7B68512EC0487 +7560C5EC2AA420518E9BD3A4B99A379BAD8A42AE8594CD2487006FAEC7103CCA1C4DC2706EE4 +61694D0DA1A4CC575D42283F5FBE9D6C83DC44A36B28E4B5A4DAA82DC26A5E7A5E639DD955A2 +688E23D5DB20456A3FC37CF8AB13AB07B6449916527F0C18B29FDE7B500F0181117C77C71610 +2E82DCDA92DAA3480C915B204C1B32D592E53952E23161DBF0329475C707CE9587E609C891E8 +2D224C772A425B90F84989038C3A19B0F228C63E3D96B522A4AA806DB21D2AC737C4B51DDA64 +A8C26A6DFA02EA06D1ABB94BB4436C9AE3DC8C4C86C6FFDF51AA4D698015BC6638E11C139A7F +A791F4945B42838ACBDA6F8BC254DDD17136C5398244476FA89C3EF4517BE1A038AAF06517D1 +DE74D08A57068F96921DD3D0F1CAFA3E7656A6CFA105D616B0A9310BD235936E5F2D814108EE +D94A3FB6C4C6CA8EC24CC88DEE11D8C49E8E9A541304A8F73D0881F86C8C9F8C6B7B9DAD1F5B +110CF977A2BB5DD1FB01D38EFC6FB7D47F285D5476E0A8EE6CB18C660DE50B947C4038F2C0D4 +28EEB74801AAA4F8C69EAF98F3534F2A07F125D955A9819F91DB70698B3CBE43AE7BD21543E0 +4E45B561EA49AF2A9F502BBC4457940198D19057957E97437DB68F543BAE48645DA4A1CA3174 +584909A708ABD1F4D88609312695579F5ACE19B74DABBFB9DDB7D95B2F209D781E940ADDD6D8 +81D4F8E874357C5331195385A57FA05D3FEB409DAB7E68E9410DA635EF7ECC450982B226113B +815518F312DF623976EC7993A1C2A5635AE195F5F3F899D6F3CF7B6EEE7F155BE79B359C7E15 +E8362F23A9DA3F34A63A9CE2635FE978F3D5CD8B82BB6C8744B9422A24E6CF1213D39D11FE06 +C1C7963D3F7CE449E81EE9811FF709AD805FB005A705CE4C104B3CF29C849B8F98C3F29E89EA +03B917EF7C7C3E2302260042E9002B2FAEA12DE813DC69EAAB7F885D836C9C848834BFF7A63E +39846FEE95C41EDCB80B6C0ADA68FC4C6B62B7DFFB39E62ACE498797C093739E9F676D71805E +DCB65EDCA354371D3A4C15FDCB47DC58859E0E0FEA835860FD215F9CF19713B9DA526D62F75F +FAD049B02E363A41F5C59D94E349A4AEE4E70147C4A33B2CE345B721FA4701026AD762DB6199 +5F3597FE83BD9D3BCFDE995DFABDCA93DE3FA056884EB5A6A8B193D940C22708588C79253A13 +70A1E0A2C4BE2C7A58B16CF9FCAE5FB905D15C9A3990E9871098BF64604F89805378009D6BF5 +9D7FF307E09A76D36ABB06CF7FEFACAB0052112C83D5D57CD214C1EC35A637E0EC5A5C77560E +ECF5FF2411BA5DC31FDCEB84E976435BB284C486B4378E82EF848C17F62E80D492F6A298ADE5 +3A0C2B3700DA662856E6008672873ABBDC38161EC955E237FB6E530EF212684044803A52C1C9 +21B9F1C2D270D2748EF96C448C7FF39549E12D616E46B071EE03EE9331CA72A6FD313B12964B +C7125C8EB88915B442ED1A0FC0F48C3508FE224F04A943E92D89111BA63F21303E94FB462DA4 +BA90CD05E8DEC329ABA0D6AF66396DF0C3BAB3CD9788030317DF37278700F23636CAFA3F7D7E +816E174CEEDF2DF4E5B681AABD94A6A249695487DE6D2460A80C6D218428F41C65508EB4E5F6 +E15FBA934E4BDD1065709B77D2908F076A343885A145544B39B53E39A64E0C0606362C7FCF2E +E8CF0C7F5B8533BBFC988F7B28E9AA1F45E49830373EAC501997D875A56AA523455862A4FF1C +313E2D50471DD83CE9C376C5F78AEC48719A568D66DADA4F8C3552BFE938E762340D9543AD1E +603A9E2223634FB84A06CEBF7F768A71CBA2438783EF8E1AB64596ABFCE695D84A3A04C5F8AB +92F4896D704A38E895E9DA72B8DC2A4A4F5D57AB554EB0ABD6FA201B74CD9821E9C80CA44378 +7EEDCE073931C02A040858FB82699FC5D6E6879CC70288FACFED3EA2CC073A1D61E00C6E17E5 +C12D4870F2D1303CAE0E0CD46E473A733A816D452C23B3826CE7DBA860631ED1504008607A82 +BE0A3D02EC135008FD18391153090560495C10E6AB73296E172E87F431BA31E1C5A5BDC81D04 +B0CE0003AA3E14CB8173C9E7BC43E3BE479597B59243F39A69B9A95C7A9EFE777EEC915ADF25 +34CC249AE9827260C30981ACA1DB8D606A10FF89A58A7D2908D7EB8586DFCFDCA41C69CDFD13 +E7B20B81CFDBDEB8BF20DB61EF5BAD0C0BFDDEF3478C287B804F90E133F84ADBD86B834604A0 +91CF2B6B6B0E5DFB4DC854261D5DD9315DF2227FF09837148464C57634029DDDE46428CB51BA +919797A0926B3040B29E547FE627D4B1E352A05A6839B09EE230025F820CE9B4999A3F030C2D +50C155458067CFB67F1FD865EB5E31F7CA4D939B46FB5540C760085042D3B7DD5A968572B780 +E977D671AAFA122547A3C47B3AB133AF9714586A32CE4158C636DE175BD167A4E841D45061BE +BE87FDEE0EACF42F2A0EB0D9FAA621E6AA79BB5940B70A4773EEE5866BE7A2E81B668CBFCFAC +0F3DDE69DD4DB3651F442685ECF5B647B89A43EB6DF40CDA7D6B29E1BE8A050DBD84327C2C2A +12F45F9D550245CFB8F26BA4B81E09C67C10CEAADAF697C9A83BFD6E4845950428278DFA8560 +FD7F38E8CFBB2C04DDCCB8D1DD10229AD4F08D12C1DFA90FFC23260104D124E59C9B2E667CE7 +A9868F2987DB126B299472247A1A69A5E21D0A3BDE5A8BB43A392D442CA40B00B52E4643C512 +1EE272EE0FEB5C70060EB45EC4AE3A7F398B13CF32F68002F2BD3231E96CD8D2E51891314ABF +E65EE88BEED24685604CC89210E6593A23D3F066DD0E3C949E490E85CCFFC8166C2CDC64D879 +FFDC3F44D65F3B066AFF0976664E46D0A9C94C9CDEC0E5533D41D530D1DB570C8AC27C8B790D +6AD35D6453EC945FB86623B81BAD1E065C881CDBAB1EC87A79D943D92B83028D9190D0820E03 +A12106ECCB96DAA50CC4548313929DE2EBD193CDD23B378C0974FF5DF699F5D9BB639C556372 +7828108D3FB2C4AE1226A400575F15FF8E9D5655949DE98F0C0DA25B41CAFE181DDD050BE021 +88E0735A3FB17C9D700701723C89506280308894FD1975C67B47A71502394FF30454E5416612 +7E57DF543F9C7257EDAF871E68494D154BCBB1EB62835A746F5E16B14DF9BABEEFFC52D4006B +0C3212FAB2021DDF8E1B06BCA553853BFA2252DC7C50D2D650290C31E6DA8142047A852863BA +EB8449E2C4FBF0C175ACD477A5587C7356610CF25548DE384E8801CE9DB85F7ACA70E4E65EFD +479523D5988B907AD6EF8DED95FE647D43EBDB42BA1F9D6CD9248E3213A3F9FD3CB95B2EC852 +5BCE59F37A0D682EFA5BF31396F72B201E018D90774B549006852FD141E90F496A7E9D55EE24 +6F7E03A6D7E25E2CC2A38B5AE3A0976B2D8E4801973692139D5E1D001CAA7FE05CAFFED91628 +A88361246828E5A80F87A8A08CEFF029E8EF5E36AEEC4C49F9AA11D4583846D73C8CED51271B +F9228EE65330D6446CE21B9059949D9033AA8AFEED34CD9CDFA46C7FFC5BF5454ADEE41AC210 +3B09DC6DF90CBABE3619870DA5F355668BB3FC86A1718263076785F83A57E25A5632F06EDD2F +E2F5458BDAB29D792DFA45E938C40AA6194C6AED40AAF38AF43907C61F4A57B567326AAD5A2C +E27FAE13E5290EE143209633661B5AE4CB7A3F0D7C9A0D9BE9D593798D0ACED669BF64C82EEC +7A98C31F0A2D5F95A8A0589A1FCFFFA35BBDCE6CC68078DEE928014982E7DE1E650AC69EB797 +95BB0F664E30111F827E138FA21C319138D8C5419D4705F0867A7F2371441509048AD051E9D7 +873EFC9A88F87948749AF2C473B7D803D5CBF2E417860D8B2DEA0AD52BBE6C6915E981451B6F +9CBE7E7144053EE05E3558F2822D8A2ADA6C3B3722759C6A77B6059E74FA4FFF689BC3FD7174 +BF795B23F7ED887E9F9FA95D54E0930E0035CD7E93860B73E7B6CB756FAC75F189C3995470C2 +9DE3AAABC3F15E2158F11FCE6611A3D16D3B91E9FB8264FC8530FD5E9867B4F5AEFBC3DC0ED6 +565AFF2F5966EFC6F1C646BEC9477E32AE76742ECFE3A7B83FB762C7D4161E6AF680A6AC8988 +256723915AA1B19C603A3267C04B3D3AC5E957A20F1CF2E4D838101661F3F176639F22F57E44 +6C24D8D77DE05DF0AB12275205CCFB1D893069B727A3F04A585C75FDE2FBC8EAC3A75CA25128 +D7319212C363F5282AB0F9DFC8E87B6D55638542888DA7F8863A3E04C1DF95FC2532CEC511EA +8CBB2A97CA1158A2E0054781AE62D361F8BD431C22BB964999101C97359C07913BCB06ED0896 +3016F4EE983C2D098C500C453064AC152E312AEBBD326350398B9DC1F43821B65BD53D00D6E5 +3AF12D5DB49C366834BA0106B02AE59EC6229EA201EA4B889EE7C106180451D735F011E3C8AB +E169FB94CEA17ABFDEC0FCBF0194D92E8E2A46B26E21FE04D0470C3F6D8F4B244350D64457F3 +29F81540520F2DBF21BC866C63CAC3709E070AC3B2974AD3593F690C15FF852E1A31C9AE493E +F19F538412C38CC6728FC413C4DE68B9CCB1C08F7D3863E01A673B5C50D64A8FE9CF612D5AC4 +7CCB47453A8942D9F97DFCF6BC2CBCA0C96FAE3B91A318235E822D6B09DBD5A58783826195B7 +CB570B6C21196C9BD83AF1E51585EC473BA01A1583A7B3A474687E4ACFC52D17BBB573F6A7C8 +1B72DDD4EC4F51AC869A4B1FC0E581D253CB20FAFB8A6E34D02735F1A8AA6004E3A7E30CBCB5 +B02D64992EBEEC146B573EF8F7E3C2DCC6FD52D168C9702D1869D1B0551CF0ABC4BCFF2102D9 +AF602CC8D8ECCA99B7493CCA6D8B3CD73ECD82333AEC452826ADB00FAAD0BBA7412FB5F5C2D3 +0E9871A79E8ACB203353C3145462BBE0D72CEFFB9DD3C6BE3F8DDB8019F9BC7350316C12A437 +5A0F72FBCC81236FBC7CEB73892E1E62ABD598BD2EBDE3F78012196F7C2B88BC4C7D1ADCABAE +D824D1C14AA5CE6035643C71774347780F4051855F27655C0309B2272C549FB86FF5E9610024 +769789D6C68C4BE575942A93FAC82E78E9A885DE95739A39E37077EFFD005714976CE2CA8753 +34D7E002A0CB2540914EB2950496FE67DCE6E7FD1E7BD22ED7231CD656F8C2517E2D9CB4968A +46599E647375D4CBF896411BE2C19FFFEB14165069CF4C88772D40AA755E56CCE5839F4C370B +A9C52569E3CEB35D2F6643CC5985DE6DA6884FF76CB6A7D25A91C868E9A3273A4C998D326F41 +1047F90AFB770599D060727E726AA5D56D831CFD1641F2C12C33BD7295173A9D7DDC83F6246E +2F2FFC3B4CA05FB9AB18270DA97FA393675AABC43235ED541B97A8D829E268C27BA8CE33C185 +60129FF95B525CCF77FFBD9CF6D2D1EB185DEF612A0B54E465B93D3237BCE7EB53355C7DB0BD +1F3E57ACECB18EEBABD3488AE6FC078CB2AAA273504E460BF89607DCF6E7C9D4C5FB6FE4B175 +9EFED186307916D5BCEDDDE972B9AADCC5C99A41727BBE9B803BCC7AB528F3B982311069657B +0DA985DBD1BA07CD5EFA77630E51E304C75A6FD8CFA43578FE6D9FB9E2609C24D271CAB5499C +31A23579085042D39D9647ADDDA8DDE0D7A3F9352336761CD938E458181A1869E3878364812B +A70E592B0AF8BBBD91240291CCE7BC8F2991EED02E49173A9175344385840FB5D2EC4CA1FCCD +7ED933804A6B444FB69776358BC64C9E289240842F7759F5440D8500839EC16E6C1B9FC0A3A3 +5CF97640A9C8006484A84DDAE9F0310E8987BEFA5013C7516C0FB2BB0704F89E644A905AA013 +DB97FD31EF20CD5352682373CE65F68AEB8CE44BC4C996917553AAB182155B3DA6F42F10D1C4 +25D1EB57627AB11177BDFEB59279EF8A21DEE5342F54BE1F15ABE84769CA83683C9B6AE769B1 +1C15EFAF1BDA1B25456CBFFA001D15C6956F0E57B5FB13EC0F10D0199E5B1378DB8C4DDF2C7D +74BBC1013DDF485A17B5D2904EFB1945669AFDF68AA15519C3670F290127EEBE708A5FEA73B5 +A6DD95668BA397BFDC573BF7FC44259D56312F04205EE7DE055D8A83813D55BB7BB6E76354CC +AC10FE43699980ED2CB268ADABC9C50E043867798CC9542F3D13AC77A84C6FDAD12146B2E627 +6E52FC092DBDDD95598672DB0D932B7E3B5423E0014A4C7E09C3160B9F61392A832AB12AD450 +DE69404A65CB691585BCB7B1C5BEEF6AE75B715EDDFA5F08C18248EB53AE744DA607DD246218 +85F1D17F9C23C6D7915261701C86670DB85311A1EBD0F3E9FF751A2045018B07C658D675F8E2 +6FE6420CCF8AA6034901B151214DB97FC4A27C8A8D45B46C923FDB9CA03713538EB61F7E1580 +3EDADCC5510223772F352B36EA0CACDDCD1A0F8CCCF1C89934DAB6FCD58A0756E1A9A6A545E8 +30F9BD9907190890E477D05A9E860E1C8D4C96F761428AFC557175A33793241704703A258097 +3A639AAC95F459E7BC046C15EE0F7DA6C4FF99B0BD49CF36D81DA77F2F77C4A7E3997BE37090 +F9DCCE93957BC70B0D435E8851BDF5669580BB30EA17BAE6E6B6FE98ED26EA55BF9C4BF709B3 +1C9F424149BB258AA66A8617CA818D2B2165A4D7824D2DEF339840A38164B9538E2A6B7EF7F5 +9357A6F69DBB861195F852B5E1662AD4E8785DBCC85CEDCC4E72E1E0BA088651F1DD6C31BC2B +81A337F439A105D4AD8DE58F3E7F1468940914B45669008B855AA81BE3EB153FF82FBFE6D0F9 +7FDFFA1B2EF967995D4D8B19ED1BC5C65782F6F61659F406C52B44259FB9B1C39456AC4B57DC +EC123F4E963EBA714DF245F3367D68B50322C627FCB04858CB867DAA25B1B1D8E44360DA9735 +E7DF7C70A358A63046C461FEB66EBC50BD94E01041ACD4EB1F70DB6C25915DFEAC28BA13A412 +E42AA5A4C09EC49AB7904C13E3C202AEE30654C412FA4527211A8EBE9FCACEB05E0702A69E40 +B508E472B890284DB8B37A6647BEAA561799877DD6858FCA71CA6003F2961FA666D909B48662 +D13FF62E75FCBE030AEFE8A27F599B92B6B94EE66F695422D324FB51E3781CBE15E0807F2018 +F45DD4F1D0F9C73AADDEFB5316396EC63E2057EBFAEF4FB44B6550E08E2B7A4501513DE5F48A +8C7813951669916157F91F73CC03092ED02CCA878D0BDB3491FA283F3DB3EE7FC2F84C7BC1A5 +EE078CE7A5169E3A9D36545C5A8F0F05B91C9CD317124FD10F708AA21669FE4F50F213DC0527 +BF0AA0F94054B054F4F1357F07BC9CCB64890C3317000CF73EBA5C70F57C53A8F04B528CD1D6 +8969EFB6C82877DE79FA0642E1A60488C0FCDCEFFFEE5EDCA4D16C84E03F22490D3608BF590B +F047D37F90DADABB7BD6FF3499F108BA1894F24E9568F4F1D5E43CBD0C2C73248DBEFBE0E0F5 +9B67E12C48839EE03EB54DE3215CD1B5C11FFFA38026D15411CD48CCECC43E8AC8432A623DAC +A7F41E4B962E6F7F85C21F704013686A7770BABC5FFD5F430D2CD486E384E2C426789A1CA445 +86CE55BAB4264C11021749BD8689904BBB589CA901E7A5BDF0D081D3B1D67AF95B79602F210C +C643F7E55B9A8D44314BDB787910C531B6E33EAC6A93FC39020072C76108197B6019ADA1F358 +E075B4F8220016D35457E14CE5DB1BFCC5AD4B2ED83B49514CB9194EB0FD85A195A202BC3520 +4D40D96379ADF397D636DE6B2B1CD4681F55A23A3A5ADAD2965D1F8EC170093E0CF57679B692 +AA51AA80A4011140142DD8185C51D692405CCC2BE99110D0BB68B865F3E42C939283341B57F4 +F3607E29A34AA81FE89597394FC627C1D04D7FFED71590A2A0877E06AFD2E5790B0CDBDD2A2F +2A19D8CED93D7CFFF895430533036E261340EFBAA076C19DB786990FA6EA1673CA8E56813028 +D5C2AB944FE5E594D05BADFAFFB545D9E144A976F44BAB92659FB1D64D9FD6B64BF03A46E106 +967EB521BAB229AB7F5BBB852B3C59740680731E9A3B0C85B3BEDF0AD31AD80963EC87A8CC47 +BBE8279638A0E116012646E9B3FF0F84196CDBAE8F16946F6FE647D32496D758AEBFBD492D85 +A922161EB50E11CA7E48C48B67891FF42EA4870FE04CEB24A5FEB30C5D496DCB96A463318E94 +F2E5C65647939C93C159E00FB696006E68273866CD683D9E2833EE0BB55D070706DC36760076 +BD237B64627866E0C8F640D9780A1A1576C6CACA3B299E6A9671052376EA422332F2CE25A8AF +6BF39CEF330FBBB0CBE03CEF685312782B25A0904BCB5EA7C1FA871B1ABB5BD21F93DFAC1319 +D7BC58E323CE25814E3087647010DF7EC77F8B84FD721EE31AC69A9CBE339F97E9818F8EC3C5 +29D90DEC1E78B2E73E121F1720C6294E1591D4D5F7E66C5A13C13C451219BF8224AF528721DB +E521A10DAF6CF1E1837E861FE19271FF057C27CD826976E99843537D6AB8542B34C5E6820CE8 +D2DEF11278932BC15E38CEFB91A9A3842E3F89F20FA4FB1D71E065F124CE4022DF9D30974A40 +872ED83F13FE710C2A486E3ACFB9C872E0AB9E10307D0412FDF18AB6C7F4813993FFB8F8729F +B47BAC611393FCFFDE35F8D351F69DF40D276E20543622618CB1B26CE2F43A9D701770EF670A +F2624EBE83CF25951322D93E47B9FB005A134C5EC2CB9981DF847BCCC688BBE5B7C4932EC371 +0808A2606DFC13823DF3A68243A7F2CF037AFEB8A2C4D7F378B62DB43CA41F49D3E13D751E0A +89DFE313D0E5257A4ECEC85E4720B2EF52728FB5A4C076F9E7F7F94C3321C2834BF03C3D7767 +B61F2AFC251180BAAA721130AC0A1E6DFCC24EEE43516CDF03CBF5BC62A9D16EC09C0A5F8D10 +38ED6E52E6020A3507FD73709C7FADD876778AA28726DBFBB77B064D0A418222CA4873B00788 +390B802A4A79C555B86F35895B7670C38564DDFD1758C69C3F6C4BABF655B971D926D0A7B155 +A13557F1768D2B1369C78790F84FD5F55397480A65F16475EBE5A8B5E847D6B7FEC2EA2AFA2E +8E9F852AD94D3AA0D3796485BA22FA69CD6AF0730E2BD653023C7FBD91CFF63ED6C0D17CD066 +4BCD24671C4FC507EEC3F779F354B447141CD79D8D7F3784FCB98D9322A5B53C43AEDA8AF0A3 +8F58292F103DE3E5A6E1E3712E74A35A9F7A411CFA8D43F60A7F1FC8269DA96F57F99FE039AE +00B0FD20B684C57497BACBB88AA5B68B7AB2F9A6CE7B69D01D3AE489F12489F038E845D669D9 +7263796AEC3D71570D703F283017CEC58F4CFF645AC1B0AD280031E3CCB725F51426708D3674 +B5010A4B996A172764A5D0FAF00DD5B7EAB803F299EC1C19CF17A16A3A4F5C4437A002740DFE +47F67910FA2BE74BD31D3B4C7C79EEF4308B6C88AAF71090A324D263652F07C08D254AB41BE7 +79E008995D55B9075992A492210B5DE04C5ED43D71430E29FE04F85028D690DE362B64DC5F34 +2D5AC8A86018469D7AE2D0C03FEB43E50A07030868355C2007E893339CE1C8B50C233DBAB842 +9B4B3A3725BB25908B6BFE1F003C81F266E89AD6E76C51C9589C8248CA98B3EEA5081FBF7276 +319BE7A5D878003DB29CE9D8F8F287E9D319E9CFD8E0DB31305DAC8E02BBAD1EEE1052DB8FAB +71AD5C29470100258870A092D3914595015403386FC30A0A6AE87FAC2D9E09BDA066C5EA9388 +5A4E1DB4FCAA7888E919C922A07477168E8977CDA919051C480CA3E5948EC551540D55C39111 +03B69E670E9591AA484015173E33190353FB20F1610C64549B493BDAAA8C528C4D11A0DCD8E2 +C9696C9410F7ED8E731980D86E87CA05BCCCA64C449C8880C5465AB30DE89F713BF88678D6B2 +CBD149E54648FB23A6F688CAC130549EE4C514889BBF7483812A7DCE5C36FA7D22005EF3A3F5 +E525C03402B8AFCDAFB28CE290C871672D5526E045F24B3C752D6FCE3011A57B8865C11C51C5 +6A2BCCC47FB8C4BFA8863077D5DE4EAD5259AA99A2CC6583942EC56BD5F108966EF9CE8FD86B +14CD8F8A2D538548ED1BCC081D9AC5C44C596A6D77F39EA609C7C7D856EB95615ED0B06ADB48 +E1D6C05ED7E805E33C57F633F3DD6962E54E37A1C8F86ED87AECABA47B729B819F709479EF60 +7721BE6D8C4388492ABBBC5EC181E3F906B18FA3633CDF874163C8B7D023640EBC0C5EC4F0C8 +563C385B58E784821E2E62D0CDBFF981378212B0CA82A1D10667B68EA71A49C749EAE4DDBA4C +E508EDFF8546749340344821284396E0733E82580DE43C7A69B1228A61668AD8D6C702D005A5 +905AB84F6715C2ADEE42F1294020738E93B8A6E3E4C6A59BC5436416BE0B7844DCD78C6CEF7B +FA88AE0EDF80660A261869A3FA154A7A760873951655921570266955C5FC0D1F0B9F45BECF25 +F8AF243F9B12BBE4CAA8BBC74A2E175C4E0F8BC34BC98F33989CF8E5235965A524EF9AE262D3 +D0248045266C7FE635BB64BFE7BD2C40CD4CB84802E8D40D42515E02D17DE79E40F1D99D2810 +427F709B97B34ABA3CF2E534D325D08B41A50140E6D219EDB873F845C98A35F91228DB1B0888 +4424F04B7A118128BCACB32F4C7DEC701DD7B8AC832D0975B6A7E8E723F1DB920A57F0AEF62C +A59E86F96D2C23786CBB770E00E2D3F74528F79748AD50F1B04E94EA45E98F210DEE3CCA2695 +47B148848A1531FA9400C515F746D06A68B396403ECE8C1745819DE0DDDFCFD94C4749321ACB +67124CB21B41739DA7BED93F247317F22C31D6C64E627F1E41BC24B083A02D8263D4BE4F6F7F +0865FB120EBE302DEE5C8285223592A81FE688956755110AE2338DB0794BE8A1719A3CE37280 +0FE9BD52AE2FD5F03F034E2C7802C35ABCEBC9FA8F9CDD64F25026C4D2B1DCC85EDD0E7B18C2 +F28D4DA5569BC164FBC4F7A8FB8BE197DF05CA5D90183D2997D98498FD6540AD9074B7E88C80 +ADD92F3D8CE61B173D2DE873B6439D9FB485310E0608E611D67C1EB45580B80C4BCFABAAF954 +D3F50471DF48682A2ED9DA5E6412B674B3B9458EB36C82F10914531CE55C492617EBB1791630 +88E673FB94AAA6A60FB1355388BA5C12487BE520DAF9743A8A12DE2920D26BA2EA28196DE06F +D9C84F1A067C2E71BA2E2C1A1CF970CA514550F689A87AB654AC68CF28E0E4C81BECD4FC0637 +33F244EC9B2B59CF52BA59A5535696ADB86A03B2A43162AF51984779E20CC344FDE1DB8B119C +612E00F2E2E7897FC666940ED136F05CD21FB47F481FF7D67519F7CD75843078623981759C54 +FC95E4245943A11A57696A8415CA49700437A1CAB0089189D0A29E77F9419E4E98B69F6B8B9C +6D83910EC17572D7244BB35D16E153DDC343D5179D867A037E5AC96E5EBE7905CE3DF8BA19B2 +C88942AA1B9B5C362748C2D17D10BDC34F34DA91337E821C8C5C10D81A23253681508BAAE66B +B6EFB21D243B08C845850081BBD2A8D47903B0A8C0FD183A4E794629FE4AE7D593705AA510E9 +E4FCDB3EA7B3AE15614E863FBF0500E7DB3DCE9807B35B2C2C0CEB941646F2BCBDE4822C1C36 +BC2E962CBD438A2D1EC4E0B47BB6BA10F3389B81335E9869F44A2714BBF952A4EF77EFEAF1E5 +361F8093388B5AED8280C50BB74256085D87BD32641A0E4D2803C192FEDA29FA1F7D69AB2181 +4BECC447582AB4D53E2A4577795B41108045F63DC1C11CB06C991B99E335EF27782F5AC42802 +CE23943DF74ED3C75BD93DCDF1E51883F88B6BCB38A9F1A6133B3C327B6D4E544D043F01064F +EADB79AE138AFBF35406358D033610721918E64787D84A6D38EF68A34BEC8C10EEC8D502D814 +6E3B845352BCB5DB5B6552522AB67B2AB16E4EE34C3281A6E83940CDD4B9B308CA1582D6378A +D62D641FD12BBE086AB60E21B043B819028C00032576D0C839D1E6A99065F17C22078923F9C3 +39407E5827923F61F5B58684541351A8A6BF1419D8463AB830F5125E9C58D4BC812369540CE5 +F36F6CD5776D5D008A128CC3B8EAF83C94923E781FDBF418FF0790FDD90901F8FDDEDEE4C3A9 +2009B07E69D7C46E312AC9CA616FDA7430409803B7B069A24313FC5739A9778A0E108CA69E0D +BEB7C0C967C1D81796556318B517C7269E1464352E6AC9CE256F9C5DDD97E82D290315C06905 +78FC51244167FFE064E65100D1076E0EEB3BECE7BFA10C4EC405871318A8CC036F98C97BA00D +3F13902BB84D53664B6B783A815E67010C9D86778D20549AB0ECFF66047D5613CCBF5C4A99EF +7845780AE00386E9265A0BE8CAC95A490CF665D9646A58D46DFFC958F7D4805F837B69204CF6 +A6F5AF97422A2A147DC5963298DB02BAE25E5C3C7D02CA0DDDE3CF9FB0CFB2D8B833D569D814 +2B85003507B9C5E2A6EFE659E27B6EAB72E66E6C72CEA027C62B7603F6FED5BC2C9FDC15FB66 +4D110491D3B5D74005FEBBB45240ABA19769838A12A9C15A36D31BDE47EFE101C212154F8C10 +D2B875E7F30127742B0524DB4ED4D318DF4F03530EAC96A906DC1837B50E4354A3E7C3640648 +A919B0FCE9AC09D89C91184B82C61FCB9E7659E210E5D915CDF4EF2103E27FD8A6DAE7ED401C +CF279F593FD0647B1D6C4F5C929ACDAC60589F86C0E953E29D6AD0E79A858D27ADA5A737808E +C23EDE173DA5F824355F9EE44B6D35E7C2B216BB7BAA5EE8552C73A0FED3903346A325F944FF +887B8C09164F75448B0ACB4F6A77C92DB39134C59789340722F3AA9BFF322C39B9CBDC134720 +774B5C89CF5181BC143C3D15DD48296352152C3BA996AAE831C6DE24F6B5588E441299D20EED +D5ECE7B70636B1C36FA0C2735EB03E8DB3EA3EC2184E7E826D1FDEECC32E111A045A21607869 +0F9E680EE43888E4852C1C8C71C68CB2E9131808195DFFC772EAF0F0CB04A3ACF238E857B535 +8B3FF2C7F0EE8DCC058F9FC2E22372388C7D4906A1C45913781D0442279A5B5677B107A435EC +6B9DBCC9A7C400FFD4F4C5981CBBB7B3B73D2B5FA02107FD771284EF8EB5C2E79EEA80691119 +A52EF7F4638DC7254B28311BB06D89DCC1989DA299830B736F62BD7B2B1C3AC49270C1E3A5A2 +551630C982054F179CDF5343F3D3F4BB536010D65465643C700B310B1F95CA5BFAEC4CE8C207 +D324A52B5E8BEA61B69A71F5E00362980F80675143CF372EC5517D3AA1AC0713F4F8B6C0F728 +827112A598E7E950444E7E5CEEA8643BD49AB7F5982BED6332FD3C1DFAE99DA34B3F026DF847 +160DA56F85683176257F5E6F22C3ECBC3F2E5D261D389EA6D77980AD430A5F0F153FD2290618 +E2F70A4D4903B0881672D35A4280E69AFB655F369A42D2B65EC2BDA60FD212BA0A10847DF73C +8493491C6254ECDF0B4D42ADF784291BF7CF02D5BDEA946F6600AC97974E20F9650978AD7457 +F529591416A7B7F1956219D70BC6205224684AEFB4775E1019ECFED107AD9857BCFA4A620386 +B928DE41A49716897A322D943DC88D4AFE9A23B8BB4A46413DE787B3A1F2CE69C1426F6776D4 +1D0B3EE5C185661E6F364000549759B7B4BFDA11C9E570C127CCA36E78FF001BBF7E6F4C3E14 +9C1208CE6576FF78DE646E670985FAAA29AFCFF63A4D316598EDFD8FCDA1D779BBC955E4B1E1 +333A64484AB719E9F4176C34724A1C857C8C8246D54AF15C5B7D1E93BDE7FA56A56DAC25572C +31C291B582ACE639189AC3B99FDC47234F9C8A732ADBD0D33ED60826B7E41ED1F28CAAC6882E +A12F08286206E7A4279139EF644FA49CB8548D2DDD50B7E0A2EA56BE5ECB0086F92A29D809FD +8CD9C60DACE4EAB254D133A571F24B8E171E5A5DDE65E523327BD35DBAE84E1CD09EE78EF367 +BA50669E2AC20F61DD120B8410670990B7DF8D2B897142C076681F4AE45DDCF6B58E60A195D0 +8FD4DAE04F9122EBE43BDCA131C0E57E2013DCB2CA6651C708FFE459541163158B9E877B96F6 +BDA735EA6BB5116E412A1DB915958389AC7E983D056036457B1EB18752EB935DE60ED37421BE +255BBEF808380BF5FE328625138AC11B63FF2EA03A63C3AA9829EEDAE32D09A622C9DE82FDB8 +6E502DAD4EB1E542DC1202C1964BBC23BD85AC2083C17AAF9ED79C692B71A71FB99CC053ED23 +8A42C02C33635ADD8E05B6A9B72A000BAA0814325E62BFC2D35CD0B0F4D0AC75560AF003F9EC +0927F94FEE922B537287898D35A5F08C628A8733BF202957FC85C9D5650F0E7E47E955E7B865 +8AEEC972BB58DA25BCBA981652FF197BA6F28BCBE57C866077B3DB11A8200BF7D6897D882B8F +442F20F873BEAEE91C86AC8E3E53B40523D659F0D05DCF12D8105C7D251A55413DBEA8F40005 +D4A79AB2B4B08413C93B3FD74C6467284AE169D9FC71410C9EDCCF293B2A872B82D0C8ABF3F8 +603ADC711801ACEAB22597D994FEE0FE0A05C5807B3D5DAA6BBD753D9EB6ADAA5251D427D1D0 +23E49FED7C656D9196601C07F69DFC8C643E6C04A9B71A2CFBDD9770A01436C90765AE76F4F2 +A80779D8003D5F97F7C3F21CD960887217FE0E7737C8495A1F452210F4D7ABA5E5FEBF814F88 +971859D6BC6ED965998935167338ABDB4AC2B87C43BAAA4659E1F504CF7DCE499445A23FD40B +C35E45BEBBA1EDFF3DAD4E2BDAA504E478CFE2B4141618E36B3BFDA5424DC56A6685BC2FAF5A +5461E0030B847B8E6A286402E1EF836CEE64E00ADDB073FDCCF1501260D8F19086D39A77BA75 +BEB17CDD4D1C3D2BDF025A5E1279CE83968929E8BB487EA4273625E061DA84FA433F6704E587 +DDEF75B9A891DFA6A7F1ADAD2030F291EFC35D7FAD0A401C211B3B478BE6547BD09951538DCD +44CBFA9C6CEA598DB97DB35B6185AC8F927291A26483E158E6D71A8DA87E008B725FBDEADA05 +E86961260F2789095E000285F5EAAD2163B2871DDB90093B3FB79B4945313EB9329519CE0A1E +8D947AC1929DD9DF850995EB8F851F443E7B05CDF972613614306871E98D74B65BF7415F136E +04DE1BFB0B0AD90D6BD83E681148C6F1AE0A696C5EF8CB7D1541C7BAD732C0FCFF82EA04BADB +B8A02F1FA1CA92A2AC82F8CB174048049A86515BED2834A8CAB56348ACC4E0B5B75DC23C59F6 +F0DA988C6FF0A482562CDA3CD91EAA8DEC7099441FE264AFCD924242AB817130F297C871F6C9 +1C2653538DF0684353D3368170213CAFFC5176AAEF5083F7381FE53037944A44A37886285E01 +50AA77A4B4CD74A7808BB374E222B6426D8AF5B1D99803A0EE69443432967356BEB01E41FC17 +B901FE96C015E996C0BA83E38B2D0581A8AE98D98B1FB93C00BE73E2113312D0425EC8B9A998 +1BAEDDC1E3C173265043C2395893EB4F5A62619F4C0410067BD02111859A449BA33415048ECA +8009EE3F3ADFFEFE560BA93D50444FB5693B9885A215F33B5BA881854D8BCC1D769E8D87E1F2 +10862993F205A48641F87B7C4431DCAF3541134305DA7A7B97A149371AD0CD30AAC23F995AD6 +3B3F00281829F30C715422C5DEBB637C76C9AFAB22DAFC9687418EB438E451CD6C49BB581156 +637C1C6B47A9D0CBC1BFE8F2879B28CCFD09691B16123843E0D8F44BA028820091A2E25D7E02 +2BC3A3BC898FC449AA52482C7A6349435509B59328B068D72838B2A3D338312E2C38517660C2 +167EED603B454011A66C7035A3DFCDFAACD52DD9778135D1ADBA2A8EA7367A87FFCFE5A24D80 +37999482BF45A003B884577DB0D8C1DFE563BD1F43641C741463FB7ACCC96CEFBC7A96DE119C +21B4E2DD4DC8D3AD4F88799EB9D0B6E1818ECCBAEE8E95D67C238582FA576529FF3C6D8BCDC1 +0B9C7D15396CCCDFA63AC29F85F68CC26A4D2587CA028498A904FD2E9BB667A643A1F8B0AFB9 +15545C69635C6E561D8780A7B72000C7B2DAFFAD5EEB131C1ECD8C6A8A2ADEE95CE3C0E613CD +D57B988531F13CEC3320710ED2A2AA38C13D344B6F6FF97F1B8C0FB4E9DD1E46D64A66A65AE4 +539A7BB4DC6268801D3C6AFC097F92D26EA13A7EE53623329DA39C7D667AF33A9B47AE7B0FF0 +550DF27A68F235704BD6C157ED55FC8A6A56433DB9309C25A0FB87B8E8D7E64240786A9E2E99 +E4147B877ABDB7979B3CF0B2698235450E1650EF0DFFEB2406A2E2C9C1401DD0682F80A85F36 +82E07620AA4DE542010321527DACA2D1F13BDA6289FA2D3F1284C85BC9BE72A774A9EC40CD79 +8E6CEEA0B89A186CAE176B24119ACA73404B36AF71C8ED83A3155E40E674FF549D7CCAFB3F8F +7D55788792077F946FF82FE00D00A4875104640C058E1EAFCFF9F825A790514F40F286279FC6 +CABC0106EDC2CE231530645C182B624F2F669375C0EB0DA31233D7314E1854038F09E4BB4DAB +210CE249C4FCBFED2E986BA84DA2662F6EFEAC62AE52DEB481FB2B79C33DBA0F5CF08F18E307 +0813DC2CFF23EF88190F2AE5E0EA20A9F152227AF0DE635AD103BB5ACA286BACE07F71E39CF3 +166B1EC7B09D7444355817EA0AD82AFA691CEE59AD9B49D71AC91B0FEB0A7935295DB7BA2868 +07F974FBEA3C51BBFD1A45E2144DAEC2779AA3D621BA5528B0226F7C8DE261BC1D52ACC4A07B +CC4120D3D1C0EC66BAD1F6DD06C3F425BB3AB8F7BE0787F30E6CC315815DDD3B65B30AC66693 +D38A0EF63D1821CBC546722707F44F2B0A8B770A093439ADEE28CB1F31B3E9334FFAF12ECF72 +AF25FC843C65B0F5F56C58415F9565E574B5716F956DFCC02B36A185615DB3E82EF35ECA8BF4 +C1B592E33F021730936DC0274220F020ED95D9D1DDCD5A4365F42A8046808FF9EDCECE4412CA +F225A85213146176161219AE2FF648421C5BD410CD38093312DF02DA7B8D4D86246B309129F1 +9C14313E4C365FC2F58F7F78AD987755B921B20DD17B106C2F85EAD1023EBA7D94603D219FAE +4611F6A5951BF8878932BF3BE8D0BC9D193F7218B76F768385DD8D22B428CEFBDD05E3324B05 +5FA8C90A3D5F1714AD78F25157787469589724AF73CA7CDDE0B2D57050B21952BF0C3E346E76 +5C56E48BA9397DCF239562DC5EFB17B012ADD8C8DF59844931B148863A2AB9F25C510CD2E437 +23A105B28509E698A18CB4F2BD47C1D71FFBC7B508BDD437EE7C0BFD93520888C71E03D5ABB8 +5BC28F088A64F5438C01E1916A8B0B42062E7230746F06E9D0FE0EC63118B4FD9449EB77DE51 +05BCCC02FC7129B0BE948BAC164787E2EB4BC386A8161BC934D4C491A818D7441F525C0024A7 +E232E80CC618E1F78138255FFF587DD1A25D620A5C0AFBDB5FA0B27EC1ED0E6E74B2C19728AC +9B36FCF7A86CBE707D2461C53E7E408938067E1EE30F3BEA7F9783249B30998E6B15E788E57E +D35B59B962174DA4B0EEA717088D3842D1CE1E7DA6970019912408727F16AB3FEB37E78106CA +B71F93EB0C08CCAC4E26DC53B26D0862DE70CDE5915782FB29179B0E812251AB5329DDF1D950 +14499F03B3672085E3422C79157C5619E11128E5CC1897FCEFE29C6400C630BA82A25D0922F1 +304F9112DA84E2CD8713D85B166407DE22DBEBAD11D55B6789621EDCE77AF71AD6E60B98FE0D +53766E3FAE85EC952CC49CEBB4C48A8C7A7516F9E18A42D2A8A6F4D0152C43F9EBC6E20CCC7D +E48CB1B2BE3103C9A968BBDB85F8A6A31F140AE19DBC7ECFAB23124BE589DCC152BC2B83DE01 +574D404476F80D280E51939EFBA40F08AC53E0FA31285B4A272B19FB5DB0EE278D67B2B9DECC +CD25759068096BB5A722B0115628C9C5D19C3E4D80350F6D4D8AA219EC4A3D607C79A97A06B5 +6F2632A1DAD6829A6CF42991492745095FD15DC118DEA840A4E59C5FE4A02906BFED2D339D9A +9B9602B269DC7A0E7A0C18FF01B5D0792D7443368FD6795CCF6CF6C5CDACE621775FF9F57C00 +05B8609EE6375F20883A8BDDDF66F07309C36B0A362873B6142F7B1E9F26C1EA255B6D6F28C3 +998D7F565DB96E9C2EAEA17555489D90F1E0C87F98202DB2B16509741BD3E65F2F73693DBF91 +7B25934BE1E005BCF74878B845BB11C5D5B6EBD2CEA50DF854B8853CDEDD6ACF0F1F7F03270C +1EA8BBCB799452AF22CF1DDC3BF7182DA41C52F85BDA083D7D57BFC9CC2AB719B5620C313F0B +286F3FCD9681FD6F535FC4F03CFE967B0DA095DA0AEBFEAD38B6CE4A3CD0A74881EB37ED4656 +7AF9E165B01466A0F69759202F08B6128A814A99EF6DDAF2F2AE427401ACDF67AC5EEA2855D0 +2154503788E01F0498F64AD474AC885851F69832D67F021C4151310909AE45C96B4DEB20AC4E +490467B745A98F61C777FBCB70707F4FC03338DBDC2D84843E46A057FF4E29B546EE6671697B +F9E8154C17E0DD4E2312875137C05A28540C01C4E1713E7AFAAE2BFCBCF6E52B222A5DC02040 +05721F4883FA49390F6B79A54D5163CF24B826A2252B81FA4654EE351B21373AE65CE7999E18 +9EF84883E6C61F9E6D3F225FCED94A9A088196A877CFF4EB81192C3E3580AE4FFD0DF85FD60C +6A12E98718F86A1AAEC9AC08FDD0953AEA9168A9ABBA0C7F135CE859A46DE293393649F71FFB +1CC6B2EF9F0808456EE1CF95D54D3861C5697342244BF620E5E6E570CB088362160D35C3AF10 +C394FD98C1F2DE6D328B149F25683F9354597C54E310035EBE97F26B0B5858811EDFB671315A +DEAE3EE54C06320368EDF39D4A436A7518B104E389166F043E76DD7EA9942BB5F8C59EB6023D +6253C23F27A25D87D1C1A48040596C7C6CDAF63979630A00F77FDEB00CD3190B986BC7F8DFB9 +D93A50CD27C5EBE67C7B7B96472B8829BCBF359CB0AB4E2457C5E74626582A0370FF7DADDD8E +8648A721873A9D47AA06139818E5AB9C76CBFFAE6179A7FB33932D95F989D6835274F4FF751F +A43CA94A40E718CA46DC38197B4C4E604934C9775FD29EF78464D88A6E4BAD8DE8582066311D +582374FE62BD6BDDD77CD67ED2E066589D8F55D558D63ECA0C6B283A8F0E8A24244978096824 +4E7E62F1B170BA804BE0A72AAFE7417F64887F56F29C2F4A48A324CE1E4187A190A9813CA5B4 +7D610B67A7EB20B83AB532D4DF16F0B8F1FB3B6F0C3AC88D7FE6AA57D354C49806A308D98409 +ED450E053FA02422B38398F868978A3B486B137CB83776280E69B005C3206FA3DA390D749B70 +38591EE3C313C394C468E66F7EB84D3D5340EAA8125921E0A2D989B34F7236F551E0FCD6E9BD +2489F5A47288F20E4E8CF0BE7F6A365182462602386850C094E544F42771F50DA21168259501 +743343078D49191049836409110CD74F36A98509CFA61C0BD14DCA784C86FBC4A6ABFB69F6CB +7A07458CDBBB1F3D0BE971812A9DEA446ECF2ACA25F1BAAF22AE300683FF1378161E2976FF6A +1B31EC003611C5CADB4F0302B2685F70C14B38BA6FA9AA0B4E6947EFAA5B401CE74A9E89EF2F +EA96E84D8ED3A2119C281F10F2026E280DDB45190FD4B999DE15BB9EC58D0B10DBEC91F8131A +F9787A9E85152D475EDBE6CC8D08D4E7576CF4DBD4BA7D699418F0AD518293968D3D0D2B841C +48E8A24AF29CB15D714AED1137174D114307DDCD0D2260817F140A369EBC39B54B412D5D905F +953ED86396530E6EFCC0BA20BF55D36FEC317C70D813AB64A9BA5334881B24C54967F180A93B +2A5F8F6ADEA00DAA7225F05F8DB099569DC4876E20A447180505410A50399290EC4E790133AA +574AE0269B258F22AED32444A7D2BD9A4F5B02A85B3239463070CC027A8F0707E50C8D1C08FB +27CDBE36C1EF42D13882EE4F7EDC5450FF72CCCFFB14AFFE82D2FFE009F43B7D284996B8E514 +AC564464949381FD62CDA2B12E809F8B1CBB5C1F6D1ED00F0F72B07ECFF9C64C582368F6DDE2 +073E7B7FE30D31721BEB6D6EF787EDE8C7E9600FDC7B38B18D41AA4B611F83B9A637433024A3 +9F9B27BA7D0D5DA857FC3600E405A96E5570D5EAC357AA7A46E4F34E8BF75AE8453D950E89ED +8D29500AAE88859631DF3350F14AD34582F93CC75858D8B12DCABEA8CEB6D7795962781FDE56 +7A63D5C86157FE6AC212A20E02B8D68602791A903D424F616FEA489C907F1D9C7FAE0C4E8516 +74F25EDAE0778EF4237C7BE987A64077F5C1A1A41688F44D7F591C6CC03B4CF4607140C1D8F4 +13EF734ADF4A633D9A2577B58D7276DC8E5AE1E90EA5B24EFBBBC40F49151E9ECEC1B10C89FE +C00F859B696BF072AFCB0C1F52773534FBD196308F224126222131D515F9BD697B670DF51DEC +8EF7370231D9EF10CE8B22198D3D23E92749435F9FBD3F2461CC8BEE181739F5F772AB436906 +195CBA31B3CED100EDCCEF4A207CD819F1C435DA28EF60BFD8062A3915AA5C4FE5200C58F113 +CDCA09399719E3E66AEAFAA4F9640C00188737EA5BCDE1EC460DCFF55BE23FE9F7BBAE77F6CD +995CE16A95606EF801DE3B4F59098A8785B516CDAC7FFDE735A54FFD50030A8959BD23D0C36D +B0A784F70243939778DC7278AEEC2474A275B322015CB0338C7D65D721D31ADA0EB1631C028F +FC9AAF598C88CEF2478C8F22A14D6A29FCEBBC4C3175E3C2F22CDE118661DB7841A220E7A6EF +E968A9A8CB509C10A9288EC2E1E4480AA2882E841BA15AA31B3AC98C7961D5ECFD4855CA704E +07BC12E71813E9BDF4621EBB7854D748B953DA4E23526C2DA66070B713F19D4B5ADAD7C71F0B +DAE0826D6E78BF6AB19822600E21DC276FF2F305C27E02B2602A66B3DB9C3EDEB20C348386DA +93A43A7745C39893720350C72AAE64041ACF8F30B7EE59E9E424AB550C63B0E649BD0CAA0016 +313579C900F935D5615B410E984A5E0F4B182009BB7147C792996269D2CCDCBDAE0CBF856244 +5750B448DABCC8B5ACC7E607C5E6B7DC8D90D5D2D4B2E04D2C5C88F4F3B0D0C63EBC43A3A344 +F9FEB3936B148EC73C80AD6929D97A7DF7D8C4A8328815B45D0A6A642B0BED5E30E693DD4452 +88F5891E30CAE2BCB9A208FD0DFA79202859AEF791AB9DFB71277F0ECB4F356FF2AE6BDA6E21 +8734B2B8BB27509A5D28B7997DBA88E134E5B5B867C5B1D01B8CB55CDFE0BB7A1946BA5C6833 +9BAA6621134AF0204DED9ED6ABB457921450B4568ABBB3C7550A21973E7C99CD438DA8A73C79 +E53AD8140A29D90818FFDFD24E5B9A7AD742294C9F64F18DBDFC2FE9B680812118FE5C2E5C58 +47C7997E9DEC79FBBA92A279654864F7E3FA9F7B9759AAF57F43E7FA50AF59FAF9BD10E81E7B +E40AF39F465632764110CB9B5807AB369A70373A80C43EBCDCF9E3F20E040849BC52077F55E8 +16849FA1B1CC8FB7E3D342F493BDB68972D2818E3910A0FA4C4D6CC6988AA783B8EA5B4EAC93 +4945ADEA6D0696357A5296EAFAE132AC7FBAF47861DE726EB9E9E76D77922A1A3F086B843599 +8484970FDABF227EBF975BD11CD772B880DE86AD584967EF3A6373B4939698516513FE803BE9 +7BEC1E3232EC86E85E5CA74C5F1EC3A4E5A177A21C7376D5A0148BD8EB14658B434F3E07C04F +4B79D05E13C4C85603AE16ADD9B2BD507645D0318316860A239E17F22E4F250B1A694440CE1F +62C384CE68680F1C156A4747EA3F16DD29782C8ECA2E0D817BCD7CDF9388778BAFC8528B1D49 +63DF7043EF6C848A5D3F5FA3BB5B0AE9F3E5B551EEC3CE13B1FEA97B55500D89AADD69E73145 +F145A147B92958C161667104657E6505E7A2D475D80CC09AA9ABAC20E83CE65C975490586673 +81EBC9386873DBA5427AF0778FA61414402371D28B021A85B5303A0CE0D06EB59CD7C0EC05D6 +3A7A93FB1C2F1C7103806FD10D6F5CDB1D95D43F09EBCD8D59959EF9492575D027D566989092 +91228D1969B5B2722AA504D9FA1AC735D8B1F80EA63752D5F8902748231CB4CD1A04523763B7 +12D613A423C69EDB73F3AA86ABD7A602C25157337B51FE060D097EABC22586BF740938A77302 +BF2BDD1BBE9DF1F27126463FFFAAA4477CD19706FB77ED81592D039422B807F91383ABF1EDA9 +956535B0824E84D3191FD32C1E5511230492951B4A87FCBEC538227DCFCBA5513B70222E3E9E +D193826A79F40B954466C7032C6FD34C8FF870B686156A4DCC69BB1B128D7DFC8FDD168C177E +6D5F58C4610CE8235598A0A35E53EA8D52B306359663BAE6085727231EB3802CDFC63A6D155A +5E18796F03957F4CFBE764B49331578ECF6BF0E8726FD7A8C6BDCDAA29445FA22489E5D61A79 +69726F1BE58EC0777E10BCA4FEF164E0FB10B09A21F9E3147C9B56B313F4A5BE68B343ED21BB +861A2D074B541C8581B40AD0AB672FEE52D9D97ED14E0DDB2A4D3FCF991B68C1FA08D6E4EB68 +E8F8D51953641B6F6E8BD7E7DB0C44F57BF525579945012C97B812348C975C26C2093424296B +2EB38838A85F70A89192EC607F81B67CEF2DBA81D8422C20E14598F0BFA34FBD88F8205FD13A +C0CD64707AF88E7ECE3FAAA26E7B3A7942772FD51AB2AFD8A2BEBB558091840854FED6FBD80D +F4B368810007E61B9B44C2ABBCB605357F60A18B6D92390A8A823B64ECA9FE9EF008FA39F548 +CE3A39E3041AD552B2311D6FA91BCE3260C5187B153C2B6C2D2D237F1E12422CF81334BEF5BD +4C077811073FB797DD25F5FBA834FE424851CB825DFB06C7D6F6CD6F7AAB0AE6F20DE5E84994 +4D772705AE240862EB82FC870115973BCE13EDE1F488A58EA3806ED040C9568CC2EF34CD7C9B +416E14E022D4EA4316C849C25795521CB778BF96693EFBE8FA283B356535443DF8C21D3BEA96 +57AD8F532F184594CEFA8EFABA8D5741FF7AE67D07BFD44F02D89F5C4E2C5A184FA611D617BE +003954BDF0AFC74F5F97826BC0D9DEEE696DB691F71A1B3D33AE7ACAE2E9F95ABA6C7CBBF700 +FAB3B925324CCD5DBB0293B545563C0A52E5CC3D60D43F2CA0FF6BE3B8CCB57B0CC4F700C198 +93A7B36F7A8F6D61C18E639FA95146B2A79F15AD3B08D726BF8A0594F1DF5C30A5D1FDC43C7F +9A7960D4E363D981A4E3F42F0DB207B02336A0743E6807C6CDBB7BEB092AAEB8A91BE1636908 +29FC897E5A0CA683445B3331DB8E56F3D1A26DFE931C60475DA69DDD84E23BC2AA688BDF545E +ADED366BD57798F0717B6CE7F6FD336139DCCF95FD800E527E611E43B9DC09459096C2ADE990 +1A1D5D378642463D3D440085317D8BDD05E2863841CDF50C1B0D3C82E86ABFF61E142BCD6DC2 +DB5315BCC9709A437BBE0C74F1C2733B56A3A3CFB92804EA203639C0D12472C12A7355C326F7 +D4869F5BFC7E6DA394B48E5D8B3ACB9D149C0D12C6F74288BF953B2C37AE4AFB9A48C30E6FAD +2FBBE899C98CACD534E2DCC5E90226A6F358843EE6CEC4DB9129F55BDDB703D2AD8745514455 +9F8A3380F5ABEDDF727636CFB35F07C594D02D7F1A024EF4D129D7A128855B8CC3DABAB0E2CF +182CFA6788921FB6B1CB16146ADF2AEF444DC22E6E4291AFA2A193D521E67825B33B888DEA2D +D6E0378E9B7D17A6FCE5B4AF73BE68CA5F50B39F65FADF8278CAAF83BFE0203F64FD6531259C +A0C5948D10481E4B1AC2A4CCB600497A31C70C5F898C5BA515B2D8AC50877396C8A34B4CC581 +CDB4F154F709352897F2C6114BBA2C5B5FD2004D4391ADE6076FF14BAF7B130DEBCD07925C36 +37EFA40C025856A3D03D8DA0F486917C461A78BF982D26412E31843FB8203F9F8B6287A9F44A +7B3E530BEAB6EEF132C59A0938E29AE3642815217C700E4F93DD2E75FAAB717329CEC07B5DCA +B4E98245C0342DB48E8172A080D9061A9BEFF36E9322D76AFCC6566BF78C0BD3E648CCDC23B0 +16C8C4249DC85E9D0BBD5BCD518DC5F97B9201F51FDBA717F4E44AC71D88D94DECD265ABBF53 +907696439E3876BC9388C67AC8E7CD8814C33B98D56B9BB8DC374C96B96CF0D2D90BD9365959 +5E1B16E97DA41BA5E6BD5D73F15B01C45CF8AA71B4C089E5A1A07843C4A517ED3D03349970FF +D1AF3819A4A8CFB7707A5B8DB27598F28D95569EC3353792F57B980C2C8701EC5434F224888B +7B86DB71EA6D910DDB061320F201E061BAC2B8E10B86D7A1B533B62E5B5FA59DDE7FE47C1BEF +7B1F432B9CE28C69BBC82800BC76732448757329FA905601B4A1D37AD006C70CB73210A9876C +7C009AB614C4F736CF293C7226CE158AE15438F54C5A96FEFA27F72798EBBF3FE55FBAA929CB +2E2B7D736DB0F325966C351F598566115022E155404954A0D7B2BFBCF4F59C6974699A1E2AD1 +B60A98B07669D08AD979BE3D9F861A9D9CB91313C31D67DAA681F6886E6D8EF3D44976359052 +B85DACD2F163B853E8C6913F4342D0B05283E639A52B70155619625BE086D5E53C6BB9744E4C +E78E2D172CE064CC84072C22EACEEC8D6F77109C4B0F5503B71479FD9A85FB15B8AA535A8655 +6486A50E5BB74037C261416E9982B0BACDC8DA0CB976FB378537DCA3F81EE6EA06902488363E +951B96A3130E6B6235B6FCDEE21F39B036C8F47F2E7CCE5E460E0991463718D06FFE8F7D87E3 +14D1348D8C871DB4639636BF8E5619AFA408E1C083A421A4C9736052FD8C7C0EBFA59E4698FF +AF225197F9145361590E5FCA66640F91719179D293911241D571577F627EEA5B81FCFBEBC586 +BCB872E6B058306409CA7EADCD0C535320637D735AE4CB540BDD0D3D749B667408795C04C23C +0C7364143001E26243C9396441EE06F20A8A6AC2F05B7931A6E13DCFC68D1BAC6ECE7EBB899B +F65197EB54C36D0A0F880D7090225AA8155E4545EF26CE6CD1FB220FA73C11B5F87DDCA0D3AC +1A923AF6DE5F4B2420C0FB669877A4EE73542E973BEE8CEFA58F6F3056CD13DFDB1557624483 +02721C3E802E0AF95E7F93699675ECC867C958D18B0F134A7907C03264A7CB17488AA088B099 +90F1AC946F56541C74ECE27246ABA8F138251F939DB9B0F68850624C2D55A249DEBF14CBE48E +C2FD3DA660FD4796F1EDE6041ABA326B525AB79207557E658596CC81E361007403B2CDE9BD41 +8C62A6FCA7AD901E1C01AE18953CE6ACAE8F20671E4A4FD9A8D1616C4C9507839AB84315049B +4BDD7824534CB41D6FA018FB7ABD31F8FDCA4ACB4091749F3C6651EFE93AB4AC080E47FBD491 +626C7274E7D0DF7CFE499F7CA24133D4CDED2C626CC5129427357ADAF7450949E1A3CBAC94B4 +620C4C1C93FB26576C2B594D568623C77F2A08F3ADDDE80BBA4201E36F7901146BE6CD10E14A +26F8B427203C230C347B2288D4123EAD72F38BB5B62BC90E36796A4689E8631AFEA19092BBC8 +C597AB67421D92D5D27FCFBE449A63F57BC0E6105B9768D2304079BD8558E472A3E4FEA4FE20 +EB8719C1372F8DC124DAB421970AC2183749DB4E568BDD44112D90B9DA219D5AF383FA5A6ECD +CDBF482F5D48412404B0B30F346F883B8F5EBE4F81E8EFDD72A30A2D1584805688C232D26772 +C9F72EB83EDBC50818C742781A4BC601DDBBB382E8E06F66B93A094E3E8B20E9C267B3708DAC +DB370559EBC302A0C5808333C42D611F6CF4B3081A4B47BBCED186DE1C6CEBD5B6509AF5CDDD +CB95171D3FD6083E9988289D0BF427A13D37571F1558E71295C69C205310FD8800C55823AB59 +F3ACA0628D0F2058705B0FE08CCAD85F0527595EA67F8E3B5D8F85E3437E7EBD99B0577476B8 +1AFBC5C6457C79E4A790612A09A4AB3849A011F384643FD1D6FC03839919F8E59D90D68DAD06 +B7229F32D00F99B504485C0A3BCBD9F659BE7637B80199C3B22C60E20C432D9DEB0A1052574E +C07B2288F3F5D46A113228AEC71AF587461FCE98837D83350029BC15D4FE7FF0158AED53E043 +08F609F83D82BC779FC7B64B29607029A8BF4D6B90799506697631D1D7FE6130F69442677395 +CB8B593EF8E5A1BEF218C124F762F15F1CC24871AA23DF8B4015D02982C6AA9B7A9E1583AF97 +ECE43536D788EBBFC6787CA7D6D4C11FB7CC2BFE3E96EB5261E9AF3C9B374D73679B5C9EA026 +633931CB1EE20F3013585E1AFBA293DB55DF62D145A1C0620D2E3BF35304F47704CA4AB2A320 +FA4160128552331955801885DD2A8EBD843952E32ADE7C08EF02499A9EB93CA78D83C895BF01 +91D3CC4C815978AA5D3C7153A1B221A2303D53098095A33F7410FE00A5E5D8D01620F1A54657 +56313E4A393ADB67599B98442B1E1F0D258851A52E636BBC5C5F96CD3FECCBB36100722407ED +840CC2ACDF40D7EBF33DD484BD325DC893582B1CB937DDB505BF1B83270EFBF84F99203C746A +18621FCEA034C5C72C087F911146C775BEDF31FEB52183E307EFF8AFFBF7E369B85BB33944CD +A5EEAFC975CFA2C3DB2E94A227A4C88E3474E1B4108A0D1F868BF89E94BA97646FD995B1E2BC +76C04CEA127335272E7A0506DCA85ED8C1C4AB2B838B62D9FB32471B723A968A445D337907C6 +9A631349126BB63B8259F5BF5932352BB445A0180F547A456DDAD37D07E41AA680C61C4BFBE4 +49EF8D255A569253848C019A8B727189F11E9E60A5A690895AF50B3AC2B15DB2DC33012F6EAC +8848BF27FC93F240AC736F4F4835D32BE58D3A3DB48E00C61AF279A4E5DF0984C36A7122989D +151CF47105F80AD9937504DAE6EBC5393B03999EF7882F0C91BBABCCD7E797950B2E78B315DB +E2328B3A70965A47AF9F54627258CE248CC69C5CEC682CCE5B697C4CEC698C1F1F9219D9CCEC +14B9561248F4859474D611522E42430E9F9D379837056264C5ED203A6253ED0050BDB15B7FE7 +BC1EB6ED74605554C294336C06B1587D448BE30614ECCADF4981DC0A45B3AC3D9AE882977526 +4BC51AE9934E8E8228C8CAF5D75C57049BC452745268E1E2DB88382793C4FBEBB07738553E37 +485D5ECC2E3EFAD46CF7B20E082A22FA3E1F3CFD2E6D72C10FF61DDB08C18BDC620573E40BA2 +FECC91E6F56BB8A10F9834240262EAE14D1BB3E5E2A056D7A0DD048F88BCB54D02C0CF93C999 +8FF51B3D09BFFB2093C19AF2846F8001A363A1FB32C65594AD2AB3528E7F851C89C4F2428B75 +736A0B10D5E0A43AC4EF1A886DFE6345D5E4C925F9A32CF2489CED46E29BDD42112E8DF58F8D +BE748E7FEA9D6A32FF6D53076BCA828F803B0322A1A3086D125AED413502A65CA2AD5C2BFDC4 +46E8217D424B6BF42ECE04D6EF8F0A76FD324CCEC6AA54D01833F0D04D1B0FA3A8C9727EB15E +04FC32A92E14D21F191CD1FED3165AFE56BF3C26CCE8A082988B8F700570B484D6F9687D4A3D +06FEDDB757DF9C90AD3BA3A1DC3CFA7F1252E4E71AC3B2D7EED7880000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 + +cleartomark +{restore}if + + +%%EndFont +%%BeginFont: CMCSC10 +%!PS-AdobeFont-1.0: CMCSC10 003.002 +%%Title: CMCSC10 +%Version: 003.002 +%%CreationDate: Mon Jul 13 16:17:00 2009 +%%Creator: David M. Jones +%Copyright: Copyright (c) 1997, 2009 American Mathematical Society +%Copyright: (), with Reserved Font Name CMCSC10. +% This Font Software is licensed under the SIL Open Font License, Version 1.1. +% This license is in the accompanying file OFL.txt, and is also +% available with a FAQ at: http://scripts.sil.org/OFL. +%%EndComments + +FontDirectory/CMCSC10 known{/CMCSC10 findfont dup/UniqueID known{dup +/UniqueID get 5087402 eq exch/FontType get 1 eq and}{pop false}ifelse +{save true}{false}ifelse}{false}ifelse +11 dict begin +/FontType 1 def +/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def +/FontName /CMCSC10 def +/FontBBox {14 -250 1077 750 }readonly def +/UniqueID 5087402 def +/PaintType 0 def +/FontInfo 10 dict dup begin + /version (003.002) readonly def + /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMCSC10.) readonly def + /FullName (CMCSC10) readonly def + /FamilyName (Computer Modern) readonly def + /Weight (Medium) readonly def + /ItalicAngle 0 def + /isFixedPitch false def + /UnderlinePosition -100 def + /UnderlineThickness 50 def + /ascent 750 def +end readonly def +/Encoding 256 array + 0 1 255 { 1 index exch /.notdef put} for +dup 0 /Gamma put +dup 1 /Delta put +dup 2 /Theta put +dup 3 /Lambda put +dup 4 /Xi put +dup 5 /Pi put +dup 6 /Sigma put +dup 7 /Upsilon put +dup 8 /Phi put +dup 9 /Psi put +dup 10 /Omega put +dup 11 /arrowup put +dup 12 /arrowdown put +dup 13 /quotesingle put +dup 14 /exclamdown put +dup 15 /questiondown put +dup 16 /dotlessi put +dup 17 /dotlessj put +dup 18 /grave put +dup 19 /acute put +dup 20 /caron put +dup 21 /breve put +dup 22 /macron put +dup 23 /ring put +dup 24 /cedilla put +dup 25 /germandbls put +dup 26 /ae put +dup 27 /oe put +dup 28 /oslash put +dup 29 /AE put +dup 30 /OE put +dup 31 /Oslash put +dup 32 /suppress put +dup 33 /exclam put +dup 34 /quotedblright put +dup 35 /numbersign put +dup 36 /dollar put +dup 37 /percent put +dup 38 /ampersand put +dup 39 /quoteright put +dup 40 /parenleft put +dup 41 /parenright put +dup 42 /asterisk put +dup 43 /plus put +dup 44 /comma put +dup 45 /hyphen put +dup 46 /period put +dup 47 /slash put +dup 48 /zero put +dup 49 /one put +dup 50 /two put +dup 51 /three put +dup 52 /four put +dup 53 /five put +dup 54 /six put +dup 55 /seven put +dup 56 /eight put +dup 57 /nine put +dup 58 /colon put +dup 59 /semicolon put +dup 60 /less put +dup 61 /equal put +dup 62 /greater put +dup 63 /question put +dup 64 /at put +dup 65 /A put +dup 66 /B put +dup 67 /C put +dup 68 /D put +dup 69 /E put +dup 70 /F put +dup 71 /G put +dup 72 /H put +dup 73 /I put +dup 74 /J put +dup 75 /K put +dup 76 /L put +dup 77 /M put +dup 78 /N put +dup 79 /O put +dup 80 /P put +dup 81 /Q put +dup 82 /R put +dup 83 /S put +dup 84 /T put +dup 85 /U put +dup 86 /V put +dup 87 /W put +dup 88 /X put +dup 89 /Y put +dup 90 /Z put +dup 91 /bracketleft put +dup 92 /quotedblleft put +dup 93 /bracketright put +dup 94 /circumflex put +dup 95 /dotaccent put +dup 96 /quoteleft put +dup 97 /a put +dup 98 /b put +dup 99 /c put +dup 100 /d put +dup 101 /e put +dup 102 /f put +dup 103 /g put +dup 104 /h put +dup 105 /i put +dup 106 /j put +dup 107 /k put +dup 108 /l put +dup 109 /m put +dup 110 /n put +dup 111 /o put +dup 112 /p put +dup 113 /q put +dup 114 /r put +dup 115 /s put +dup 116 /t put +dup 117 /u put +dup 118 /v put +dup 119 /w put +dup 120 /x put +dup 121 /y put +dup 122 /z put +dup 123 /endash put +dup 124 /emdash put +dup 125 /hungarumlaut put +dup 126 /tilde put +dup 127 /dieresis put +dup 128 /suppress put +dup 160 /space put +dup 161 /Gamma put +dup 162 /Delta put +dup 163 /Theta put +dup 164 /Lambda put +dup 165 /Xi put +dup 166 /Pi put +dup 167 /Sigma put +dup 168 /Upsilon put +dup 169 /Phi put +dup 170 /Psi put +dup 171 /sfthyphen put +dup 172 /nbspace put +dup 173 /Omega put +dup 174 /arrowup put +dup 175 /arrowdown put +dup 176 /quotesingle put +dup 177 /exclamdown put +dup 178 /questiondown put +dup 179 /dotlessi put +dup 180 /dotlessj put +dup 181 /grave put +dup 182 /acute put +dup 183 /caron put +dup 184 /breve put +dup 185 /macron put +dup 186 /ring put +dup 187 /cedilla put +dup 188 /germandbls put +dup 189 /ae put +dup 190 /oe put +dup 191 /oslash put +dup 192 /AE put +dup 193 /OE put +dup 194 /Oslash put +dup 195 /suppress put +dup 196 /dieresis put +readonly def +currentdict end +currentfile eexec + +D9D66F633B846AB284BCF8B0411B772DE5CE3C05EF98F858322DCEA45E0874C545D25FE19253 +9D9CDA4BAA46D9C431465E6ABF4E4271F89EDED7F37BE4B31FB47934F62D1F46E8671F6290D6 +FFF601D4937BF71C22D60FB800A15796421E3AA772C500501D8B10C0093F6467C553250F7C27 +B2C3D893772614A846374A85BC4EBEC0B0A89C4C161C3956ECE25274B962C854E535F418279F +E26D8F83E38C5C89974E9A224B3CBEF90A9277AF10E0C7CAC8DC11C41DC18B814A7682E5F024 +867411453BC81C443407AF41AF8A831A85A700CFC65E2181BB89566A9BDEC70EB4F2048A6EB6 +31F05C014D372103E37FC3FA317EBC9973565A638403DA02E48B7D31CFF6C241DC5CDB470561 +002FF46437C06EF93BC99352DF04393C661FFFBF4BA20723ABD9B3E9CA9E63BA57EFDBAE6846 +55CBBDBA15ADAE43E1A2C98A3CF060A3D16AF8FE3A49B50A24C20EEED716E49AF6013D4D38CD +9CC41A91C17E4D04D79D567E1EF49110AA9C34464E95D81A730ECEB2C9AF38FBA6B45E253288 +438B4CB3DC75B3A906D4357293BA41E59C35223A6C9CBD6FF5FC90C2D07CBB376C7320FF435A +6251822BFCBB612CE630EDF826C37E95F541C21B93FCE10D8F3CA4218B9A8FE8CE77130C4DC5 +C8AB724A04CD26A3B5ABCF422522BD6D6C4CDA508285E30FD30AA8083552F15B367050B62297 +3DDD1C6BA6E6338B00AE1F998EBBEE6E2AEF1AC1EF1B649AA82538290E0C1251399B2E1A73DB +672EA580B28F76F4A75CA47FE3940832A522A3CCE35ACF62988E63E67DD2408E2C22B0D6A503 +F1F01C1B3AA9BF6EA45DD6AD75F1E02C72ED44A3869543CE54C1F08C769EAED10ABE0BA8E186 +159623D3F35ED06D889C947CD18EE443260ED7A61AA08B09B6E1A246EE8EA6B89685AD1FE94F +7BD87F4F23EE64789BB62814B375861B04B6179673DDC6F438806BECB57C84EF2A3B24A40862 +AABEFDBBF3A70029AA2B0E315629159A8ECE66F23351D410AE2CFC9C53820326B85CE3A41285 +DF0C48600E4F9723D0BBF9F2020B3AF468311496DC38C9165C4E4DFF145F22F8A63A0C30B09A +654A5A9CA43968A524B7F4D204C06F82E2FB03DA74BFE2A9CD06B85644BFC3C4C8AFEB5F1DA1 +2E63B30B00CB96692424239CD18EEA1E599C53C8F4388F550C92F7667C151D9DD13F3A9B7557 +50CE577F5C0D4B222422F5EB76978216AD3C28D3357F7CC822736EDA22A680476B333D94CBF6 +E6E600318255524B8664A01F5E73BC2F4473E0F30FCFC7E92AF98F88317E513A06DC10EBA262 +4084DA48174C2B3510872580CD6E1C2ABE2CF18327E3DC660793DC74A647F063C82B47A628E9 +F042B2B7A1BD410FF4E2203A37FA8CEFEE099369FB143C7A7B217917CA7A24ADD0096DC4B063 +84223FC9C78E8F1C4B9A865EB3712378C72C04C594E91E9803F58C078344F12949E8F85C850D +6C561CCA7896675CF7FE38D4C8C3BB34AFCB9F99B893F6242C3000E8AFC0D9D237C1E271BDFE +691D167760080E304560DB47245C644A2A1154A5FDA041B1BAB29F68CD57DBB69B19AD1BC6F8 +9DEB9278E355B8FC62150C23BB7AC459F710077F199D258EA80DB405A25102A1F9C38E45D206 +784A78395FA7CDC6BFC51876C81B7C189129D7BD16237F605E5C1CFC6BE98A6C2D6BDC125491 +4B571CC03FBF7545BE86E9956C9CF26FCFE4B9A4FB3D0D2B22DC218D475B11D7822C1BA6316D +96B0B1C79A7CCADA5FBC457AE7B81F01E50840B337FFEEE5F7F69D8D060427F86F2495AE1C3F +6EA62725106ADEEE2955EDBB30A1C9F4AAF2F8237F873CF8E858133F415502EF51359C2FF9A0 +058330C2A6DB37F7BEA1C7E7EDC595193FC1F9F943035135FD8EC2B7E8AAB4BE2E3EAFC6DC6A +E2F75EACCD23F6BDE828452FDEDBCBDAB39CCA496219BC5249BE52C39DC98110D11055274548 +C8EC389F138BCE2F260AB6F49E0980CD130593CB2AD990F061476ED0B7525DFEF225DBE5E72A +5E2C0C2C9E29DED782B8A7B6BBCF6E9766124288DECCBAAC20D75A5FADEA15DE29DD60802AB0 +C7900F664F19DCB6154AEA1633376B566061FE6C1080D2BF7B74E3BD59137BF9D8DE51991E84 +7F0DFEB34E51CC2019917D24FD7669D812E163670C7D91372750020D72AA7B0965F62AE668DB +280B3B8C887CDB46EE0B1B129380BF76BFD659ACEB92B5364165B684021C6468BD5862F130A2 +0492AFD424A0AC02A200F59B25FB4D1718F129554C47F379EBFF2BDCC1CB2FAC1CB289DBC3E0 +76B0C56DD99742C1CF0BCFBC39CAE8D741C31E47D6CB2F8668FA01FBF487DCBD903AC144C67E +11C454570DFFBA539C28C0C0AAA9FB8017051830153D0C53BAF826A4B51EA65F72074F111CC5 +982CF377A48888F789D08C7216A364BC9C1CFA1B85E6D025E69C3CE889D50818AADF80BB9639 +C9D506B807EA6C94714EE47254790628F44E3C5D8C20944E4AE6024EDC6FA8219BC3E26C5E17 +08D61ED34D7EFD76DA7D91073EA529CE74650019802BE4EF5CE2C5A543D55EA063282266BB78 +4A42EF0E794564BF784AE786CCE04CF0BC6073F3CC3B52918C2599D584220D21C8B96A07A5C9 +54A7E9E640518ECDABDE6E2EE9B85D53463A0AA07A20932EF29E97AF77F147692EFBDA2EB385 +44738BE9C1652CB6796BC50BF1B3F0A60C7C9469153749D74EB31076BEC5998C3842462F033E +3CB44B6E778BD9E14046234C03A6C18E26F7AB9CE96040D382217169CFD9A29CF4556EDA7BA7 +6B920F6F27307B46C174A7202201169508C735DB19D4D89EB0206F4FD67A8B6C2C27AA0456A2 +CAA4E1CECED0E8B2E6E9553C609D02651A7A5A2448375B1C5213734439D934AEDBB5DF8E8969 +F718F2930B91367D5C726D0574DC22FC5560B8AFC0EFFC77089E62E80E6BAD447656B8BB43AE +029CF91F80D43C3550B378EC68906B09A6454EBC7966B066B7258648E684D4F00E6292F9DE0C +BEA61B866B83DF4E321A301D06DEC171C95524FC2FFB6EBBAC19818DD29094D89DA2637C9E7F +D847390A3855E2313AB217FB6DFD1729CDA6DC8DE85C9DDB20CCE685213623C491E6EB0308CB +9BD480DB516F404FEBF60F2C4432E0E8419BAC78B5280AE90591C9997C9DB935FD64203C5B3E +F93C060284C3274E8242BE629B96EAFFA886D34979146342761007CBBFC78018DFBA38D55636 +34146E94FD94772FDE288CB49634364CBD687423CFD3262F108B9C5D9A71A3BC21F60754C549 +C2C5B95C23DBE0D9B6918EA4D6DBC693107D3101E8D68FD6C8036766DE26DC422A0EFDED57DC +B161D39B12C0C37FFE6004E3A7E37B1E25BCF482F12A93BA85CFA56D56379126E325BDEFE08C +D83AB47F0979DB8939407443F7ABE9D52CAE7600176825E9C0DC22ECBF11A18F21C59823CC45 +770274F9D3E24282A487E1900A6F54B4A6B511809F606AD0BF8440DA8E16FB9280FC0E81ABD3 +487802D38215E0C5C741FA3242D77601251431C671E8B1EEE8197839B845F4D9CDD823ED0A89 +1593BDBFE29488CFB58FE7DB6B65BBBB8F6D747DDAD90C872F48A3DB3F0773F775E29D2A0F2B +CF5778A2533B6AA66AABC7D999355B047104A8A7DABB2ABD31A23EE03A87025ACFCA9C1DDBAC +1EBC02A5E5CFFBA6116538BD6A30523E6494F48F30CDA6AE470B713FF970E905936980AD5CC6 +6DFE433A66AAF0310072B195ABE57AFD5307004E7B2C6A251BBDCAB86D7A1A63B5D3C79AB0EB +787CC4E2F6153E5B77C66FC94D81E804A5A1FB949CC0880F12280B444CA8FA613D36FEFC5387 +39B67B15877BD3079C12133721F5428F148F36667914EA0B91DB3A58843E700B82857E0C57CB +E3970CE645B09692F465BE578CE56EA0EAA6D824102B3001C62C575B0B42742323878960B9CE +F44C5ED4940250447ECC3536BA135EBA8AA278FB3E2F3D65887407107AEB96A5E643CC38BB9B +7C79D7C4DF60C50CD2BA5BB02DCEA78B7E1F538F9EA74035F86E66A104B6B1B1C07F5175D072 +E1C248F3577BECDA8F3D108CBFD037440E1F4B11B92FA2F72FE771C7F27B4501541ED32D21BF +04FADC00B4A7208E61803146CC89306C00E523A03A84CD9EC15F16DB99E343D19B3FB9C6AD52 +E15F40D9F9C01DF22411DBED84FFDFD3CF92FB6165374FCBA541CAE583A9827D214EBD5C717B +C16BD0EE02E4A3F826DA8AA1ADD90189FAF85EAC52F1BED032E2379888B9087C97870DDFA7AA +7F0234CE238E5C99F8B9FFE169571327D4771519AFFA527A2347A7F41654FD492D28AE1E9425 +B239A3CE98116DE83651BF947085B523156B1629FEA828190EA00F46AE25F76BD63F879EEB6D +C4C0ED03887F45C4F2F8CDED6E5079B900FDBBB04C001B7D04B5EFB94C4817C05A4964E68DFA +C0BFB89B19E6D87FE4496D3EB3C086996D50FA1DBDCAA1E794BF728798EF96C7B74EB3853BFC +0C45142066260A85C09B5A5F7F37BCA72C6EC6F63E8E32CB27F30CAEB820A1F7BAB92B5596FE +5B1BA2E3B949065DC4991F098FDB0A8A9E546F5C4844499A86EF260B5EF929948304C6D8E5A1 +A3B9F41C76BE7C5BF0CE931EC8A1367EC167E68B88CEEA21C00FABA4E3CE8C4A117D494D0F82 +B7BBB5C34C5C754F65A1D791DF550005775E7E4476573CAF59DA0D4036135C34A5AE55C11D3D +7FD25FE51BA86CA8864FDB41B7347D0ABA8C70BD7A48C5C72CB114E479BE36FCD3FEB315CD7C +237DD2BC2863FB1B214503A96D7F82A36CE2FFDB728DED7677B2C926579B074434F59FFEA0CB +C99297065A89DAF81127EDD444ACE8D58F17623BADD2FFDB763A053012F4265293874F36B7F5 +B48D68FBA52FEFFB17345CE1A595062B0D6ADDF3B5238D67EE52A211FA990C7E678D4A13BC52 +75804A0B1965DC49A54E2CD96FE179FA334E34B9DA476696ACFFB2160F8AD45604E51494761D +C2184018E99460ADB165110C4DDBF7AF9E76E9AB2A653BE47553550C80295F7AFF008C356DF0 +21D28B8DF95CE859E1B94879824945DEEDE9D1BD90652EE7C1C57E7C444924F3E4A945539C4F +E7B1C1FE7EBD0E005C7188078BE16FD26001708CD98F9D59F638D8E2C21A72DA8AE00E7FB022 +0C51A9312BFF95F716CABE2967A6D8667C14EFDCD30EE04D87E7B0A0A5E83B81FD4A4F0B9C58 +930BDC097736FE8BEB6A7FB6EF88B49CA6A91387D4AD80CBA7C5A9B3BE02352DAA123AC165A6 +9763C37864909BCBBAA2CA81BB34AF52D0F9C203CE748276052159300D851D9FBC73E22A32C6 +C3A47C8478603389BF852C2342D92DAFA82E0EED593E3E666BD8554C610753E0DFBC02BF44E1 +EE8A9B897719882926D860222AA9CC6F04F1A149BD1BE2B14A66421149EBC60AD02CF6D9A65A +C84A41C02EF7DFB70E75C5F51266A7F5ECDD2C412E94623C5E0E95F9CFF6DEC69B5294682E60 +65F39EB434CFE6B0A5EFB913850B8320E4407DAB555EAA51BC92EF34B49ADAE54980DB221A0A +F360EC3F79E59D074D570AE07AC69D4EFC54463B0DD25D6946E9A91F468149032718BB050213 +564D6111E61587EA14AD263564E72A4DA92EB8B1EE3CF064A8B73CDD356552A86DCA02A020A1 +695208B140BC1DAB8DD608D8FC976EF3DAF98CE00D91EFE930074368736B2DC19E45DFCEC94E +1BBDA941925982F544E04E7F6C4F5134F3D203788DA11CBAECA1A0AF3BAA1DDA3D8539F59288 +001B553AFC938A176352113C78FB8BDC18EADF70B1D4CEE71F71743C50527BC9D0A7E9D12BD2 +5EEE940981F167A64BA10DDC002327D8B414EC3937CDDAEDC5FA77ACEC0ABDB4BAFD8DB86E77 +62985BB5F730D9E07E7B01AC234E892531C107C637C0A2C3A8F38756D5E98FD180AA82E95E4C +241B6B55FC8304F9D93E4536A393338550CDFFBEFCED1CAE42CDD8D44C7E4262E0DEFF5B77F4 +0F731390F2C3E16AC846CE67E3F6606ABE1B1E1B439C867A773F82A6DA325F5EBA3469A1FC79 +8213E26DBD8911B15EFEA4AFAE8B9D876C847AEFAC0F6A48C006904F98554782AAE4511ED545 +3EBE75CE983AA949A9A71BFC13A4E732BC67A870D349AA291EA4E775669730B6C2449E629A4A +0297104004F4AC6709EE91C101AD7BCACAC6B06B6EEFD397ADB2C12D8392DFD23611A9A5753E +19C5C856E84F1390D426ED06FA5C525F2F0A83D2F3F30FDE2EA3EC537FF38E5E69CCF1580BE2 +D7EAC0B2C0F41FCAAAE2A3E76416767647E455BF0EBB6E35BA91988D1F0F8C9E81766F40ABF7 +7409F7342B378406734D462FF168537B586D15C1B7EA0BD5C4975E6B51ABA36652F10C57477A +30DABD7E6DA3810DE175A06ABBBE237648DAC40426268958058AE1DAC62A92DE92017FEE410C +CDD282773562DE188704746C01023F589D59D83EB386D4536CE073FC67356960897E4F8BA482 +676711858ADF246E5B34670BC5B85B3D70FAD010BF13FCE42A297E9FC37DDF1E1C5BD4B9B4D0 +10FF6B0B5F7E4984A1CA2FBFB49C4A3B23344B4B4D959C4D981B1DAB33CE0C41C6F474DBB3EA +F06CB7EB42903E486933839C6889E40F0457832257A55817829851A97643F75DE9F136F15381 +8DAA9984F17BC3FE144E5E8C2609C0B248DBE38F27F3CCE5DA5CB990442AFD61F6EFAEE67EE0 +5C225BB539ED42B958B042509DAA707CE96E71CCBB43885888A594785E5D6FBF5C63DDE688F4 +E409CEFC4B54A20667C961644851CD0C9CCB93DCCAA20223E76477DDB35642E03DB6C9FCC324 +C5663FEC81D913CF613B0D10AF6BF103709D786AD6C89A4D9ED96DCF206E04382FD968FF7633 +9D879D0049C40EAA95591DABB317BB593416B056C3782A21FDD0B2B2A8EE3AE58FFE90636AF3 +BD3F082CE2618F6B28D88ECBE209C5EA21D725FE206C538F0727FC1C7020393C950A256063E6 +6FD54A9ECF85D87989DC89DF6E318D512369F47D63381A644E2396867428F6188B8C051970F6 +5C3E612778CEF1FA020C58BAEB685226A3ED939FFE3E86F78AD3C1866D8ADD4FE0519C28E839 +2A7F8ECDE776F92540AE04660AA3F1F90BDF9DFA159A039FB95BDE63DA63EE35680B855DF3C2 +02A99BFCDE92AC0729A55A86D00976FEEC60E7241F3446B19820B951EC272ED01AF7F81CFF7D +F47DC0CADE59E4D633A5F7C1C7BE8535C52D07E75B127FB82199F3349B1FF478F774166CF933 +F49DD0AFC57D1178CE64EA98A4966344FCDA7E8B47BE898A4B42AAB7F3F2BA2E00834D317A78 +8C7DD9E7F7F1D055362E760BA703D544A11A63E5B7A427154E03DE019103367E1885DF3EE934 +8E6EF2AD70635DA71053704AC4038663343AC9BBC4B99A4DFD5F48986DA9CF44B300FBFE6765 +A8B6C3C462D0900CCD091152DD0B76C366B16ADD394B60544411037256C223C4CFDA0D6BB99D +94A8700952A00ED93129924AB8572169E06F9C7EE5CB46F0E4D41F1CE347A15636C89614D036 +55D9D3E1F4FE2FF9B60E97C648ED0A3DF7B208B25FE8BA16A0FF3C36357D7969DA2FE2471430 +18F5202F2AEBC437ADCAD7D64C898491F2315E5E7756A9FB716B66F5F970CDBFD2D67F47E5FB +3094C43B2AC52BC50E9DFC57078CDADD3803F2BB4A72677393FD36807F51A6B4EEFD517D4B94 +3552461504ADE980AD3DA6E7EC13DFCC1844CDCB61A2C10D2A000EB259EA771832C23BF8FFEF +89F43B3199F88833654020DC0B703003E03835F7D6D58049367CD4FE202C46467182F7EF56BF +4B930FB49E5FF2C89E29AC95B2E7445F8125603BE3538C93CEE4707412202DABAA33A0DB32C3 +7A71F03CC63D8C6637ABC4E94B5A8254664055A8394728B0DA3AFDA640399E63DABF4776716A +A0DB3D1CCC9ADB7FEC8D77BDD50A5EDF06BE50D33C5EC29843731AC2F8403C657B7C5B9017E6 +701ED72D9A94F1C83DF199B48A1C20E7B77854DA4B4B05AB928DC1B0DF1E3255C881D652964F +31FD690082FA02D1E2A4260E5270EF79967750DCBF7EEF9B9448984B66D0AE83D7F31DA878D2 +0968D88F8038E776781B0672E18A012390DF6D9D25468C1EC1B6C4D0FA2C6E35B7954447C52E +96937FEABC908746DD48BCAF67335C613727E155AED84989E78792EC3F51E618CD559F65B172 +8DFE59F750EF7F6A7B729380BEF8AAE755BF9736395C609B315ACC4F49566EDF37EE388C76C6 +3C35637CF0AB9DFC59772BA96C4758629650F5FB9B42ACAD3609B12A6FE6231E3C48243AA297 +85E3852553E5211590AF74080F00418761B999C45345ED0B16F9453BBE8FD563B46384274DF5 +FCD8601FA561B0A79B134F530C5CE89BCAE148803B0A0A40046AB9306578E3F6108BA2C364A9 +7378970975561A4D85AF0220FE72240F197CF299DE44663FF5DCC858145157A5465ACD50C269 +F967F3ED0BE266E2D9707B7DCB885D6B72C0B35FA773ED99C2528933F0D4EA88D6AC4187E1B4 +DD119EBE7E37AC81F9DF993A8CE6C799AC0D70D2DA0931390A12B854F1DAE15B0F0201A12FF1 +5BD010771FC32ED7CF56AB06140CA983FF91F8441EF3DADCBD623C583741356BC5A2380B4C95 +188629BDEA477FACAB7056516B9769A31460860E2779C1D86B1AFEA523A21B250F0E798C164A +059D9AEE28C7CF7AD74A0A56416637EB9809308173244D83C443965718E75401AEEC87368C46 +80F8F526ADCA7F96FD1220119DAFB19D6A9DE12A5655014B26DBFA0AC4D2824C807F00A9043B +5FC25BAB9639EC5276C0F1CAB1A1A0765A78592FF9E3010A95AC9261D30DEA8F91CAF5C555ED +069AC7A5CA90C476C6C7BEB4FC61282658AAC0425BB388754AE1816028CA38F9B9A07F8F3CF0 +685454DDE1FE1488DA51896E3066C7385FA9BE55FCCA6FB800183913DB33B4D5BD7CF659C943 +4F7114DD6B7706EC735DF255C2A71183B3DA3C296D592DA11AFBBB0F4755E85DE7D6C89FB41F +115C81E8894F614F2D7FF4DD8DBC0FCDB5AD7AA34F93D1D56C717D3F83DC12698ABCB0A77441 +1823F23F527DA1D587CDADDF9D8CF9752463E3291529FE936CBDA063299642856624131ADFDF +FED6232965624BC8798E3ACFA42954D090C00BB0C1FD12BB7C5F63153094ED462A98F27666D4 +37984B94694784A64D85E062626042894D2B90CCC2CD52521CB0D366148180D040AAB0F28761 +F59D8BD34AB8D7BCC416508A770986B96BE929DAB44D0AD3E58D62041426D9030CE86B3C3D43 +D4B7F9693548FFB34611F3219D5077CB51EE81A9D105B7750E3000AEA0BB7DDBA9A987A77AB1 +DF7CB4B9A74C8B499ADFE24E29655E487EEAB7641CBC6A85944D53B8EFF347467D727EDDC878 +81A72D922116D291C3B026442A481A822DF9B5C2FF7D809AE36CD5767B0E81393AA87B79746D +DBF14D5987499067B5B8C281C21CBE8D589CF50BA27C5A814EB51D2A74E12A72DA5238794D8D +E55F48CC27D379836764AFED41CDD9550DD11F805C58D83420F4B02BD74264A8EDAE2F21FB94 +C2D83DB81AF082DC733CA4DD94B3E1E8BE65922315729DDF37AA7585D1B5855E4A02397475E3 +2C011D0C72816A37A90C81CD3942A7CEFF6928C514C6AFA64961B5AE46E3418DBCA54D391E2B +0875F4818E597F1A5705F4332BDF6B56218E7F536581362A02A633FF668EBB8778FBC2CB5FEC +7C8C36433B281DB32EC5C1F4621DB8827664041EF017494238AFFE3A78426A4303FE1EAA546E +897DEA51417801CE7A208880B7D8908C67C6FB7F80DC5B4613CF17910D9D33AA411597CD25BF +308818D2450B77D907055650B89FDE749D7AE19BF2E13A3F9D6950AC490A265E06B895687A3F +0DEA8BB6634AD0DABDF70A76FD4D2E393B52E5576389ABC00A8BE8A08FCA3EA1EAA65BC6A2A1 +1F3877AB60FBF1A66E12855344246859499FB0720705D18F22D648B395CC827D7BEC5D5306AE +B354581A46B491759F8740E9ECBD31D0634AAE7E45376CAF8BD6EEF476735C7D360D25162581 +CC15E0517D6B6976B9321AC32DA2FC8A11D58781F85731D960259DE496ACFA943537E0407DAA +C0AA2542FC1866ABB7380271ECCD9C4F9A20A97F7E61E7661DA1286D8B5DB86E03138F32EAD3 +966EE3C2BFC5B275729DB0192043F5B716E44F012B89D2F3DB6D1DCFDED8A8B53E1B592E4574 +A37CB9A9B1E72092109E8947E5EC8C2EF8E5F422C3C27FC74F229B1658A300AD4D07E645ADFE +E1A266D1B657EFB78DB2E660F8D7823747DF7CC283F5C5991F29DBFAB7419DE2E36C44DAD5B7 +3BDED61BA7CE912EB54916335FD28AEE1DF6DB88B80C38A8C80FF046F880580C5EC642B758A1 +8C1D4E977146BA3DBE7DD73E3254BD0D12D06B920CCF9ED0C34A9E775741E280311FB6537CD1 +0ED5D98031A290361144079C42C5DF4B0FF314B8C504C507C527FEB4D6CBF363D6AC2E9BCB3D +01544D3127147DA3C4AB4E682D60466512BF8135CFDFACFA9BD61CFB8B45B09FB65B44E838E6 +514C97E3CE79435B7FC3463FC8421A830E97F0AD7CE9282E23178C52AC9AD826E3E26CB7C18B +92DBCF7553EC161A2613B15D9106D63E655610A7BEC0BB9AF57979D22DFFA69CD3C8A706CF21 +D5DF0D64A78486690274BD567E5B2B0C25CF9B6DA99CE82C698D4CF0DDAA8C4536F912FD44B7 +C31669F4C261E06BA90346F5C56D884C62EBEAD83266A1D07A71D7FE7C4F8DAA041FCABB45F7 +F9B1BAAAF4B9AD814D3E051002BA4D1088BEC8B72B46F55524BE4C089FDAC55D07DE76A7D7C1 +4E6275FD8D43A3098CD64D337E206D12F2A0786896B1C0D425D8C33E3999486DF944ADC045B0 +3B642F9FBC56998CC5160847B82E65B42E978F9D6A0FD7F937349B188B96E2DB8848752134B8 +D2806C1663C7EC284F1F7AFB574ADC36677990EA2E0C63A7B8A95933E7854EAD8FE50AA49F25 +B4D6510FE65425738A964B08C7E6760FA87EFB7683D62E18D34135AB9055A9B1E05C177F4878 +F526736F0386CF8E59E28F94D9FA38B86EE391894D0571D5D9D0C6EAC5219B20503119D1CFFF +8B4BF3CD9A00B7B345E789502D29A243C2C0A2857F978944ADCA23CCCE4F5D0B8BDEA5EA9AC1 +2573C88F74509FA0CDBB551C46A5759D88D334E32D2F6292A0E860C33F8A7E38129019BF411E +4B89340F8B2E18E7773F192DF8FE57E1FC14CB9C5327E6E7ED9931B0DB795F88D0ACA24D3C9A +95ADDC5AE805206A48EA14E72D33B6F4A58CF00C2A29F963F92EE4A21D2AB2C0798F32F61344 +25AFB3CEBB64144EDBE038E7905CA2CA4B7C9CBF27E97C249362C3D66798FDC4ACA50BE36FCA +8B51BF53FDF9C75F006E950F7C934576534BCC41B38D69940F56FE08EC9CB9BCEFABC16943A1 +406B027B0E67F03FFF1253AAA6A198F235D26D82F87FEA64D56A52BB620D29CDBB08258FC35A +C43B1C2438BBF457D4426992C9CF082C249EC90BAD5B323A2EE5EF6F46D64F364F92DE349B8E +4D5D5AFAAFF9C812F170CB6A7865AAC72A5ACF02D6B080B6E2379150398C2163F23826E60BBE +DEB5E365AD95D927C826BC666AD0DC1C4DDDC64993C5514A8B854A0E7231A2244A7E1562B950 +093DDF1A8FD787D2DB6C7D78AE6B28EFCAC105078060A4E8F19DAA4543F71F6236A237C34B4E +94ABF3B4AA0574150E8617597C7D32F3FEC01C99C3060334800EB6578812E7CE583FD73A055E +D87B1BAE29EC5B80BB5CED3B587E0D5FB08BD934B7749655AFE53065F759DAF8D47E245A6640 +BB57B55552792947B539313F11DC39FEFAE5E8E68975D223884AB0CFF0241D945684FB716537 +4505C966B799302D4AB83E8437E0FCF395421774AB24D098E46AF6C8D5B3445832E46D1D1EC2 +FF218EB64959D0933CD37AFAEC4384061D2DFB656220F90DDA116BF84A7719AA671FF50094E7 +5049E6F9A3C3718FA1B5447C45B916354F49B430D6BE382736704F46FD54F4F22932FB7393DF +283E2E50AC03D04E4194738B58D8A06756330FF020EC77B00E08AB43F60612EC0FAD787D99F7 +7EE4339403FE25624C075CEC3E62C60ABFA1942F2644D3FEB86D2C8D5DAD9DDFC4A8E8D927EC +D3B5E0ED4C224EA4D2EEA3FD1AB087937D913DA584335305F527D5A6A321CE91E681CC108E1C +391134246274F48DB281811D81DD62B33E903ECEDB150A4E51FE70F014FB717B5625517F2E54 +7A69D2AD8F6F3368E074F781E0266FB0DB8EBCCB1514AF2535FDA7657F73A9CB922ECDC84842 +FC38728B9C7BCA3DE32DC0A7B33A4E22A4457E08808146C53536FA033F465079E95B661673B1 +3E3737A27464A9413DA36C323AEF4C5475C5D508BCC83E3A5BF384D4662B351CF21CDB91D2C8 +960FFDCDF773C7988FF9B8F8FB606A6704799369D9027BDAC6B53CB9101E9C331104B77A77DA +33000A1EFD94148791CB96432980060A3ED24D316AD0CD1A66A911E062FBF963D275254B4DE6 +52AEDDEC86217A11B07DB7CA8A49AAFF46C29661DAA75453B3D87E5BA383785D7623EC291D04 +80C1E154BDDB88FDDC88FCF8B616B69C033C319F733B9155CDA62FF123FEE7ABA42ADC32037F +971DAF70973560B8B14C3ABB5AB3CAD294EB74F8A8F1D18F68B85B288A0E3F3D51A9F7C94F0A +C269C0308DD9817CE43ED8183A4FB11894CB129A06E5943BE8B69210A934151A60D32025D1A7 +05258FD1F469D09363116AED0B4B13605B6ACFE038083B1D76223C54AFB75C16E27430CE1214 +DD70B855A961676BB8D824C6A79DB2BD939A09E0493EEE5D064734F8E130512D4BC5DEE31925 +90F1A0DCA0454228F2D069AF8335949043672949A488A9EB42E63FDAD5AE1659B213B3CAD995 +6B09482BF4A99FC765B98D91B8B16267AFABB442888A04DA07340D750420F926EDE9813D4BE1 +FB6557B150704A6C568A8CF7E4482B3B06F5C52EB3CA89CFDE1B960A57C85B3DB544C84E53B9 +56B9214B99011D617227A4D6D50F9813F80AE568F64AF7971176A0C70B52568AA3D56CDDDC09 +8DAC87AAFAEBC804FDE3C3715EA47559986DF06A16364C762D5C8386EE57CDBA55D3945728BC +0AC1BBF62E8934AF85270A530242BD66EFC4E95ED84873ACDA36EBF62B90D0B09E6A1B6B9A0E +BF6A0E0B9CDE2559410A67A89278AB6651D31F3FCC1BCAB537D4902F5DE80181286B7FCE2573 +20371AE90FF49ECB23959C9D4BE874484D3820D1CAC79708377622DBC65B880BD77936849438 +B46CB5BDAEAC969E4D6CCC5695DC9943A08BBD39B23BF75251C0AF3086C6F0939EE94BB7D9A1 +82A59A1267F5FE09037D981E9E7F23B3F33EE9741F1E6AC620D92C46F5FAB3DFC98082A0B7C9 +F06421A1C39781BBAA9FB959DD9B7C46DE34AADEE496BCF7A087A2467D60BC0C4FF95C24DC0F +29CBF153FD3F7E0023FF7FFB852EE6BD321BB315B382B86A973B0D04A441BD9B4D9B7FBA221D +7BEF8F4DDA9F7F3EABCA77CEDC54A64B6CC314E2EDBF24BF83F75B095B9A96FCE6EAF0CF0D50 +9721DA57B0C98F758915784EF5540B3C693F705DCC3741F60D7887FC1824EB35505F8F393EFA +7EB7C88CDE8E966B5F806744725B308DB34A28F256E4B86B6C92A86248AA4005C84E86C97330 +36477C54DE60E9B659F02DB87520EA16C6AA6653E716413C61389ACC214E61E8D1E091521436 +485C63F4A1B78C56CC9ACCF4890044C5EFFFD5DD88BED43D8C9E6E10F4D591FFD6E91EE125F9 +E7478D6A834FD389407D8F58A64F478FE1ADF148F08B39D7383D27131E5B43D76489655EC271 +F7DF5A5940EC8A05042EDF192587B64D570ECDC629D7B0CA531AD10CC76CA799CB676A552368 +665BD0ED1B9DD5DB1449E29C8BF8E98A4B3C055C017E5BCCA81F4E4B1AC49D050B9A54032E90 +DE3F00DA04AD1F18BAB9BE37A72847A38F07031CD02AC3DE54840233394BF7CF365278661E65 +06EE7EFA0BDED0292E62934DA4A4F1EA7D997579C3C50FAB5812344B0522419922575F0400D5 +C6FE77E2EA92F9C5B59FEEDC87E946489F4A82D3ABFE95EFCB26F2BA42A4C6B74A295CB1A6B3 +B22358FF018B9790210993BDA35B8D4A43234E5DD2775017891991A91797B486A66E189696B2 +33427AC1CEC4BF67CFBF72D17AFBBC17A93D710FCAA0C1B94BC1DB0B1E97989E459CA3BD8565 +B0E63929AC9E9A6E601863ACE1EA2CCBF7F10E9723EC6A46D89FF6C8FC55AC8B140F1ABCBBEF +AAAE337951C65EFE90F9CB8835CBC250A2F9CFDEE17B07389549CA23CEDE0D43F5248CD7CADB +4D4AE03F815855DA701E681EE90DE419172B498DB299064F5A3E57E8245E8089D4AAFDDED5A2 +3E75212130D1A5005493850BEF1C34504E634A4D28AA121A535023391B79812F20E136A32CD1 +7842C373426BE65CD9595C931952C24F4988BCAE07F4E3B8BF310971DF2830713BD32E712DDD +2D355FB141494C72CB4125AAFFD04E304BDFA2C8B371F8A6EF0438D5EF97C7B00A6998D9A1ED +F5C344FE6B56A773378A9712BCB4AA364C93FF33D7D6D6CE0C6C90384BB3A32BD43F1B12BF64 +44B9FD6E547778E27459820A26914A34363C236C867824E62D2DC59A18FEBD2C931628D4EC95 +F2A1A1BC3CF2E5178B37E49EF86C48113F95252227668B2F7B1671CF937F403EB6F5BDD20E7B +E458834BFB36C638CD6651F543DBC4160710461DADF9FDC51E2D9A60BBDD4B4206047EB5A0D7 +B04D3715FB7516FD4BC4BE7CDBB243090FB70FB2730D5FD1FD7B517E3CE78A0C6044B0687305 +E77A61F55248188A6FD0EEA4171D62294A4B313ACE799B200EA0E3BFA3915687A5B2B4FF78CD +7B58213193DF419818F57C5DED5D6542ABAF4FAEB8A969D4068C43C15C730EC917D2DDCA4628 +B290126DC3FBC8E8847E77D0B8D3B9AA8BF363E40FD721FBE3E04E85C8267AB501B2E3D5D879 +337AEB3D85A1482E318D0D6C7B64D4A82C1D4736D22ED418621483C22D9237FA53146B03F96E +A21EEF7804A8E75467FBFBA2E7D95137C3C6220EA136BF161FBA786AF595542161B2A64AE44D +0E416C64E67318F05AF487BD8FDFE8208585F38685A91248F2DA3B490834E7763BF4A3912859 +964B62E8758DDA6B260D7F46558E21A73D5A15E4F97EFDADA03A4EA4828B3709FBCB105461EA +F062CDD3E8B34AFF103CB1008557FD27FBD6DD83C4055D701EE6B5D9A336649297923987BFA6 +76E20008A5872869D3F1523A1B8AC81DD9A3C268994924AAF68008B2B62CE507637915C02647 +67595E031A5FED09109ECCBDB61D006C2B0745AA855BAC7D5B3219B3345DC1D3EEA9381A4DDA +BDE1B6A504AED3C43B012B51BA8221ED83F93325E56D14F17313A7B1D88189BAC87022CCBAA8 +F998AA1B43A01CFC698E68DEAB7E95AEA46E8AB1883BA0BB1A3F83083F9B8A00B876BBE95F2A +AFC5FB24C1EC6D84DC1431E1BD733E39A85ECC542692E628A23EC2AE637CA9487CB03FB67900 +FA4BDA9ECB15E6DAC43CCD9FFCA599247C8AF9A52DD54E83D915939429E91F83B44CA20C77CA +3560B82027FFEF3A2B741D103B12863C927C56E2571380ACA9F0080524A48A9DA3964E9BB325 +95E78A44E81CEEFECDE8138551847F47A003D71B7474022D620FDC21944BB5AB3F543575F324 +4DF4FF6E2CBDC16B6AA5D1DB13CDA777F466D212FF88DD98D0BB4AEAD3FB6AA0B4B2B4BD33CA +349AEFA4003EEF18225ABA664FF2147EF98F0F871F2E73C244D8E2356611A1E99A0AEC503FD7 +5EC69BB41E3ACB1E6ECC0DB13E2796D8273C2F7567551D7B5E57E7537A4557FA4FE79C1E943D +0E243793E0B38B92DDDA01EFD4D68A89B19023663835A8937E5BC26C05E14D941FCE5873C628 +2C0F4FE02373F315A39D1B03C069FEA8C002C0FBB1305B494E09B4A742A65F816B800385966C +ED365F47D575D6DF9378FB7BD8BAA942071068D94AA6E33DCE51E7304B888671D3094316EB23 +AE9E63F8A2DFEE0D2AAEE78EC377839F178CC1B15ED9127C00C877A46674EEBB96FA1AEE3F12 +92E9514564355D6FFC3527DE8B53D881206282765921199DF61E9AB1E0EDAA6C99ABC88CA1A8 +F5DF149CFBB4C9371EC1DD494C7A591D5545D97A528DD96CB802C4B3565BCEEFB50AF105D05E +F39C2F5BFD00D622B935CFD11C641B6CF03961E85A15BD8DADAA68FB5682D9A08D40B748D9E6 +F563CA9D51C12E6DB826F763C31A282C2EC215C69AD81AF1CF072048748D549C122D639EA8B3 +67CE9361BF952C094EA0737A5263ED4820CE2692A1C22806061A186EE97DA27E23C6DF43BF13 +53EDFC673A172F0EBE0FC34AA2BA6DBF9176D2E877C9D142FB48C83A144A7AA2A452D88234BE +D478D910CF7977C7DDF80E99561136E6C9C1F3810B5AABFC33535BCFF00F3D2D00A2029314C9 +BC018EAAAA1B90748C719FF01051B373F8D223FADDEB2E4C4C006723329EF86B326CFB4A17A2 +0599F0AC20F66A8B6B84BB55622C7E913345B8498B1FD7827D903DF01A05A4623D43F2F471EE +034C483BE304657374F412C6AA75065D6F1FAEDC2FDCC8E6AFD13885FD88AC0C591F66241E77 +31CE0587B8B7CBABA989E0EE7DB381676256CCB8264AE6B8DC169D1379DF60CAA58893107663 +EC7BEAF030F2B625D3A4C5717F842F5C9A6FBBE428B254F755252CC1AB980059F2236EFA1A88 +4CD6BE2838E205A5F3AD426C2BC96F2D0C3E3AE533A7EAB2EDED38D0090482D624EF3FDFD716 +174B17A9DEFB69D8CD61A428ED5B3EDA32DE39FFBBE3AA6552D086AB502ACB529E7EBBE29A57 +0A22A98C550FCF60E6E457C259A83CF2E6086F72C1957551FD696EF98A3C360254ACC3359FEA +2457831A92A96C8D3D7ADD11A8F693D3E912EE033600D311147659CABD4EC87383CF4BD22380 +631D0791E2B4D69915524EFD1014C18B5DAE94023DA2464D33B5AD1939C66082F87DC99FCB94 +E7F33A1708817547D979958F88C2B4D7BEE6293B3D5B34CE5F736189C7A002365A57544D4EE0 +C5CE762DBA8D16EB2509FFE6D06B5A6E58E934CF7580A50065526626A224FAFA1F759F2B42B2 +3DD578766C58F4413D2D3CCA41BBC75AC9531283A57648729552849ABF4507E807BA347DE89E +28495E88E9B7C5F81AE29F955A9959615E6E5DFB41852996D85D498165946F8803299AF53D02 +DB04C7E81E2801777A20E2BE7FBF5E0D020CEEAD4EFAE6160CC2B113F5C92CE545131F7C9F99 +452F0761B93E38DBC28EE12C5CC7B9559323DEC2FF7ABEAECD7FAE9F7CD819F960A8AFDED243 +211AC7D8216F83BCA0A8FD16B53CDBF1774BBD35854646632BF18A93EA191BDCA0A31B62275F +62887BB03060145BAB2FE686B24327A632629C2A5F8C8DF68E0FC1698D78908543F878E64A64 +2636181E732DB041979F99911880AE3841C604AA220423E241EC17D0112B719025A017BEC43E +FA26EC2CE2355022594D5881ECB485BF775A277F5507E7CB35EE837EA78D8428E12A0BCCED62 +99EEDA1110C08D06F9AC20AAE45DF9BD8D434351299098EB17E452FD89CBFDC1CB3C45918E92 +417FB433D05613179FCF3AFCB746E08C39013811F8B0512F5CC1F35E43D04F8863E0E64231D9 +CC88D4836BB04C6C1A5D28000A46B3FE13A32E695A81CEA3784869D7F41D201FD4A0BAA0A0AE +4F4F8D03ACF81DD4E365B1A03284D3DFA1D562864B56B4423368E1160D48A23C0E36D4947D1F +D88E92D582D78DAB82F60C29ACFCBD2B3DE9E9BCC47357D85FDCD10FD57A5A05D313D14EB93B +F2B95F69F37897893F8F4CC64B7680EFD9A3A15B086B1D09428F1E96CB1484BBE74E7F6673B6 +E00057898DB8B104D3B9E546AAFC9984D49B751E4CEAA3CF90E289765EA282F8CEE8A6474650 +4643444F53A8F4983617B3601DA09021058905B6682862505C915E38C0517282B111958ECA12 +1D0910DF2EE50897C3F79ADC23489B622B28AE7C48F040DD7AA00995810FFD9782AA0FDE05B9 +28BE428EF8FC03FA257CAFDA83A770C09921E32DDB49D3358C1116C5733104A7CF66A56FBEFA +6AA81BEBF676B7A1FEAE68067659E33C54BFC283F1A5ADFC9B596CD28B2DBE64FC9F5589CFC3 +01BCD92F1DE7B4AD217E0FDE0FFD3A886449DEA5F25CF9C578707F16B84926A64F57E6916473 +4ADF319C834F5A99E09DA7B3C61C0FC0219444C27A1E86CA58A9DDCEFA7597621CF958E94E3E +859023C4781D3552179654FA04C82F9431A50B6C4DEA1DB0A47889526403E2097AE9E932B7AC +F813D4B3A1036F89B82FFB00C9C70FEF8F400C36BDE4DD07CF591DD4935D11DC4062427CD385 +CEC69CF55FBDB237A694718AB9766F01093FE04E1D2048E86E40A32C7737A61EA5617DA2BEB2 +1C7593489F6191FACBE9E91B081159BCAF8749083A29203E65D6CAF4BDBBC7C67C07A569E790 +FB24DF078EB4199E5526FA591CD1D6D486E8985EA7891ADB1CFD2D92B2EB919D28FC1F2180B2 +D6E2199D1A3641B3CDB63586FE3CE6D4D85F69A28CE4ACE048F4687622CE8C4FDCDB0A805112 +128FD7A42E4EDB3343E1B9AD54CD1EA05F5A46D174A1428AC9E26584493742E6A8F231902893 +EE09B75EDF6EF231B71FCE0E63496F718F7FA64EC8A36CDD0E15A7A4F32A439313DDACB068D1 +66D9DA4EA1B25A91B8406D37526A38AC8D54564E9091CC80884575F8E0878F915CF508B9C10A +86E270A3587125CD917B84468B68B16762BFA910EB64CB5635B952F3F006AFCBC0358A239F04 +C8C2FDF77B57F577C37FD3595260798ECAB7CDFCC87CFFC32142DC8A0BBF13E1A1705221A903 +BD0564F726871BE198C0602D859FE48D8809709660224E38EEDC84CB5FEBBFF637B747E62C03 +0C8172E8A330B2FB1997CB72C7AB0CAF8C60F273028B8886C4B1E7B1583179B66D549848676D +A4BCD36159E6D549E8F5BA6735D40304C536CE4FDE740DF0D6F5C235D2F4A35F146919EF655B +1C3F7D5FE468B398322336A2B09FF81F1743F2123036BBBB9F2FC3CC9B9CDBC04317C7E71F5C +43B1BFDBBD3431F1262CDE85CE3CC60B0871AF5508253CC8F5F15C7F78252948A9D03F57C155 +37E001E25308F60C77602CACD23A0A5B704062B6786F0BA5C557B4EF2ED4B20AAA56C4156EAD +7E02B2D49835C34DE75C5129EB5A9B74BF86DC0DF4671C61F434D1231D4F2A09B53492113D89 +3B0140FD03F0A113CD855E63626B707ADA07097C7FE417BE935CF9AEC3F4ABE7DED498945B59 +F92ABDA5DDF60F7FE401E79D57F395C2D48EC8F19465B6D4AE9A5651A1EE7E96B5F13D549681 +2D576979D0E261361DFC4318970C195C3C393D041D4DA27968D3C157A865295A80BC736A2879 +B7EA0AB0C1CBBA6CEE4BFA8614464B900FE76F712446CD40C7BFBBA5DCE13C385CA79EEF3D49 +74B1971EB9A1D7956F83AC0AFA4C09C559A115B684E9A27A44EB697F027389B9EABED14DE232 +9C13637507ADDA9F176962FD4AEDBCFE176510A2131D9C96FA58F357456323638D19869AB506 +549F029BC108205F86EC368F3187049D3B165CD9C87C5DBBC38DBB19AFD942471E709FC38FF6 +72B5E26EF63714E24AE2625E80C939362920A48CCFA0277153F6AFED2E10C79E0D8766A139DE +CA324D0C79BF2CA7B136452FA539E9FFE7532044961C0E2152387825724B344EC93A86C40F71 +AA14DFC9FED630B05EB813AF29BDA57188956F3F8B81400F10CDE102672EAB3681063F3F1E50 +1A02100A9CF06A07DDC889D26242C1CBF381AF54B85A920C7E9B786C398C94E5A0FBBBABADAC +BE25AB650C264621FA8D2131B32CA33B9EAD2B57A35AA33B5BF8BE4EDB3FF2D8CCAEAE65267D +E35A550EC1BD450AA71984278E884A10AF191C8E21173BE554155B4127E2403201917CA67B9D +E2E624C2AEAAC89AEE39FA7DCD39079EB50F16C7C86D8C6DE39BFDFFCFCE611E1F57EFE04F26 +F13AE6CC514CAE778EC6AAD4E01C9001DEBB10C7818646D40223A3609CDF997F69961568AAC0 +604FD17B2A2F43C01421CA6479F844A00D9556D5E375FDDC8065AE5B5A3208AC5F0935FE7498 +E98D12F47C89C2DEB29CD672098C01890B08457D24F19EB26D79553116272A715E9420766A81 +F1F86A3A0C1A514281918EB84B6CA876F47F143BDF209AA884117BFBB2763024440484BE63D2 +458C41D2FEA3CE5D61828F6CF4C2B9527D0F26587708E8DF1CC24310F18834701143DF58A8C8 +9C9D1E6EF571E6544860D688E9CDF290093DBD5628B9EA8148A5552676810C1BF79D962DE02F +25508C9655D9C1A423E69967280BD589A867AC7CA460E7F7BE622FC2FC11F2FBBF5AF67EADED +AABE5EF2EABCFA27245872E40C48DC0309CEFD6CBD9AEA6DFA57766F04C6498253DCE014C158 +5804D0388033C4AEE33B2E97DE27A8619D62C1C951B18B29409FCDC8F8431534902E52FF6F84 +7E11D429AD992DEB56A3892CC34301AC652212077DC16925CAB65CAD01596865383F98DD9ACC +1DA0DB95AD49D2958D1F431E250B36C0F86B428E84F8187A5BE8D40FC056DD1C6AE583052B1A +F77A1FFB698514675BBC655419C044C79957EF73D6F722E27517BCA837D3E33734F4E5151F54 +490CDE88D2FC512DF002EA9720E22BA118539E6CF6500310372834BF5BEB3FB90232FA5E990C +53B9FAA1FD63E56D013A12A95047F1C24438EB56ADDDAF9A8207BE117D94851A619930595239 +52A3B3301CA9B795626F8E79CBA80242E2FD39A60F75DF3C940BEC2E218327C90E65E094674C +1170F33BEC61F872593888E73CA66704037257360D0EF98756DFF142847843F5A3ABD91726CC +F15E46427456FEA929995708D233B9AE72E1C51E39FA16576EAAA14AA659232A5A18DFF2427E +0F0DC58C228FA04AD00061E3751930BA9BA64BC22D6885994A16165922689877782447230E4A +A6606AFBC8951407F465F8527FF9389C592E8EDABEA2ADE36D993109376CD3482C5061F17DC0 +F2BFC2111A2023011F02F232E95B1C3C074ACDB850C080D414F3A61388AB10EDB0FE648DA1AA +5A700EF74FED94093359C38AE7225FC988545D9AB7F55619D54C6DBDB574720B5D5B79535CC4 +920829F6797369D5786497F05A812804531A1DF1B0837A67EA31F41BAD09BF528D7B306F37BD +E400D275820370E44E0561DC97D65559F2B3D2C8A5AC2582612744EA664F4628FEC8747FBA48 +A1E90D0C13E2B9EFB26B915DC22C6DF95A0E6B46CED10C877365AF5FF795D70C0ADA8499A96C +EE812F3CDAAB7083B376ADD72C4C21A39D9FA81C0B0A6BC9DD68A2BA8123CCD2F3109D11CC63 +B0C2D41094691037F24988E8A9A47FC6C0DB30AE5EB78569A34AB0471FE2F31A7E29E7282919 +A7167986F6525559292F9E68871AA5865556493FEF266679DDC1220E3D227763071590A679F8 +594A8DD1A9D3C1C95A3D014C3E8018A951F74F9F335CBB0130925F1020D3DB4915F722CAC04F +BCDB54039B2CFC5EB3EAA9DF6FE67AA4DE878F9D2439D9C6C3907CFA38C6ACB2B2DE3206D402 +C053AB8CC5451DA2961B8B9DDC17C7A492D6667269058D6C4E21368B936F29988B0C276EACA8 +A73F8392EA3CD1B64393401472203693AF11A2528BCA4D37EE437F93056B30CFEF8AB8ACC667 +9763556A93D81A5AD52C0775623840C15DE887C70109C154959DB746B0E95C6057A59839E1E9 +DF389480E616B667887F864FE14B576EE1B57F02D516303A77DD15D4815FB20DC2C1ED0CA0C7 +31326A991A21B04892320190CB035EE4A09BF5ECAF9A2DADE3823E8FE491798DAA0F87CDCE6F +491158199643817178F1BFA3E46D1A4BD1FC28AFF47B728E178EEC6E72E6A089DC8580593BAF +D4390A6B550A7440537E299020F5C8BC1EB1D84009786EC2560CE88E703043C12187C7A892DB +B447C88DB968AA089740F977930DDCD1FF7915292A68A22C133D2E488DE3058AFB6E4A7324C4 +EBAB354F4258DE02CA937D4D9088779546CB7D8F9D9C43AC01B930A5806F4E336687B064B7F4 +E2EBE01D2BEC79F4FAFCBCF953AAFEDEEC6BC123511344B963C2233052BBDE1A4FCE35B1F4F5 +5EBA67F74C2523ECB2B4E78B7B8BADAA0AD1EDE238D56F025FC1F81ECF57862249AE023ADD00 +F34704DFACE6B50D4DFD4B04C1211396CD12DF18964AF0DBAC66C0A979E6B6656FF1F1076974 +6E38FC9D80B27DBA36DB3F517908F58E5E195C1FED78E295031DC76628061DEABDCCB57EBE96 +C9AAE3DA9A08035B88A070DA3FB87015D7F9A3107E39CD5A66AF1062C6DF77C3B288EF212A93 +C15E88F45430E0C5657691FAA62D3BE8B2902B3D81B43260FEC58D69C975336EE35CA96983CE +2566F64058A403CC63CA8DB895DA1EBCD0731D42134A8EDAE605AC8EFEC1D6FE87C17E9301FA +F0C15B4A28414BC0FA33039639F62BA1623328C00BA21DC7C4813893EC88F4ADF15362461385 +9AFE74EB08CEB0352C7110DABA102C9A1EC4DB5E8E8F52B8E80FBFBA2FFF1155166332FEA71D +1EBC5B220AE0DAA5F875E8BFF00B0F1800D12082479358730447890CB0E82C63B0B1BA05344B +CC2C9EA46CDE7428BCAE88FD2DC3C342ADC76D0CB98F6B76B890205F941FE40C0E71A5D67AED +5C7CA0FD3110D3ECB1E2A318314B1BFA17CB981F04D6B0D0E5994481B25021661CC63E8119F4 +C8B18530B97B51122F59459A47FC32D3EF2B6C30459E403E0BE9FC41D7074A5846303FCAA8E7 +6887B0C770E71F58198D7440B180E38420810120EEB7C739EC9DD60CF0DDBA669BBD1C858915 +0B7C4BC3094462D098487A738182E2DE8E5C2293B3CACD0FA13F643B1130AD9BB3BFF783B1C2 +997DCFCA45568B213BDDB41083C4EF1A1239E269D94A92AFA41B6D67A479E541A03EA6614100 +0FFEBB668F44706E0E5A9732EB901928A0BD9D750352D45BE8AB927B3587CB15195D53F69A28 +7D692946A36D92344542CC7CEEA4EF0FDF4D47B00914FCD2EE27BE73E9A8E233DCE083579086 +D91330E8C99B5122862C8456231D68AB110E8BF8256442AA1B2F176327C9EE2553855E2D4155 +99E0767295C1887C1B1919511AD064D5AEA9AC49CFC34315148CAAAA5A7A7D8AAFB591A7C6A1 +61EA6BA15AC8095C178C36836938A60DD06642F52DEF86E30964F79E2438BD67BE36E22D02A8 +DE00C92BBD86AEAFABE6473FB8F6916982C178C8ED89DC6A38AEF60D739716FC6AA95252E9EB +0D2EE7B7CCBA342809DC8EDAB95A703DEA4B951E40F8F1CFC1059C09572A5C7A83A8BC1F2CCC +1257936AD83AD5321E643DD9373C1E6FE96D71366756E0C1C225C08584445123B4F0D36F2A4E +58E8880144D85CC3D5B1977FEA3410B0F0FA6ADFA7731A081D21D5EE11D8BC35F0D2280CA5AA +D1E4C5BB3EA1D1F2B2C2954EF17541E0C416F5156D248CFB3C842EDFD770811E0E5C0CDF3D24 +DFBC2B76E1305DD7C12D277165E272530FF37FBB43405CB48C96F59E9B06C8D9FA3691674C88 +B6A0DDE7E167DBCA1D6162A3ACD6CCE0278E9745777E1E60BDC6523116B292029B671A199342 +63B603E8D47C406D7A7EF6263A06D8E70A13B4009ECC498BD4E7B7C6F109C4712B72F9E89C72 +28ED620593B726DC4CF62CCB235EDEE47109B7E5CE709BA5DA388040D6DAC3360B5FC0D50027 +B0A59EBC58EEA0703CE427901D6A49D144B53D75C96D9B5262B439F379186845F0E0C3AFAEB6 +AABDE72B623BA1C3B179C856F92394BFD700C057BA1B57787450273C8484A3025BCCD6B7A727 +742EEBB6C7C765C050BC2848C0DA99BF2A0EF9E87F75B5BA745ECF46FC97B0B768B505E22575 +B90AE4DD03703365BE82D5D3E9F6EF66983E629BFC6C73D1D51E4DECD619F841ADAA3FECE1AB +A334442C6EEE4C3CF6239318AC667BD186898A75EDFCBEDA77BD3B0AB7AEC7B6A2E9A6962919 +5EE8C1E27D3665A8C5A34996804B42AF0DA575C1CEF56D73A5DD0DF07A843AA41FD2A7DC028B +1BD4BFBC00F983597941ABC2805CBEC54B43320B693ED3B47B436BFFF1296EE8915EADD06845 +9626F795FC76C31A94EB0657B5CD77B5332EC3D139AECB0F4EB12492FC234A064922CC04AD07 +E8960F8C144C3FFA612546D7FB9E6E96A5B06B16CCFFE04BA2FCA18BBA02D0A0275F305DD147 +3B4A2A6C25685E8848EB50B74C89ECDA3A07157E524771FDBBEDDB2352F16401771DFE1F279D +71F856E1FA6ED98DDC907BD9459C2BB736B37411D21201C6C617EAAE51DB03D56AA3D2AC6371 +38F26F1F7BF547AA4269FF73BE1016B8883E123F0FD7800D8E6ACBC77A07AD2A2F219FCAFA12 +E932B7EEE9CC134D09058B5841363C63992D258B9A11EEDA2B5FEBEDBF60EFB4A2CEF1636276 +F71990B339AF758E0458C5EECDEAF82C208F254C2C55368B66F783180F2D62F8DB00F242DDB6 +0147352AA5C95DCD388C03F4C19E324CAF87052FCEC00A906845043144D52CE3393737DF18C4 +7313807435C07E8FF8829A686C14534F4D54FE40DBE30373E481B88C8EB99F8405888BF9E6E8 +BD46030B27293973FAD635446C49FFB7EB409C9CE336C39D857C472D56AF82D0FA2BBE908611 +AD49227103C054E78CCAD256C5A1F36F2197674B2B83DF0E16BA13E4A36F4AE7BD62E514FB5D +D9254F0500D9BA474A7BD55B54E011448444B6AA774067E3BC3DE345295E18755658BAA40EFB +120E4DE1D6B34629C1999E35C39F3AD277F299A6646BA94F007D69EAEECC6D9609B6B058FC7D +8D33B38DB65608A0629612FCF4802644F8B2BD86DEC86F1DF5E7A610F2BA35F7302FACB926A2 +C55FA8565A40BFE716FA8AFB1ACAE951FB5FA46FC62C5F9CAE2E9F1E68B994D5F207406FAD7D +4A0D78E3195E5BD616EB965EF6327FF95C99525F2479D77F2F8A21DAD2C86816746130CD269C +1F499329DD02DEB55C3052048B9E31E09E39135F2851B6158DFAD97F75191B08E2F9AE5912B1 +A54278BB1CB22C8326DF9C78A438AA4268A27866F52BE2920105E04C734CC61C505EA6A96424 +BDFD76BDDFF08A2D60E6AD0CF1CB737D8EFDA7A4744BCAD5DF57C175AC9F89472245AF441CE2 +985C6365F978A672D4C2CD123AFBEB4C33C4650B51881ADE77DB96B71947D2D5B8465B208C56 +69CF121FDB4A506DEA93482976913C3A26EC4D98B24677A87F9990A7184BB98213279F70C199 +AB8AAC5AFEDF54A1000CE3B862A52ACF24CA9F09F189D897B7BBC4686443FFA4EF15B5EA9B79 +FB7F6E5ECECE81F200F321D9D947AB1630D2F5D460DC12A08B0EB74E4167496D71F546C0FE66 +234D697AC0DB95DCE1476368F5B0794800250D10F9F7B674F8D2DD1DBF0B539FCE0D036CDABE +CCDBA6E6B954951CA810BA4009D90648959DBD9A9EBD2EE5F7F9BF42EA170FF25C9D6030968A +27B1B29010ABEDCFFC80105A6E97DE36C7A56FA431C45FC8CB8D202CFDD8C1949498F673AE64 +EF261D905519C54AC3C0BB1FE9A58D38670EC4016EEFA07C128BBD7B92C62FA4AAF056E27445 +8A1D224E5BA7DFB4739D52866E359EA1F6251D8D5B2E8322EC9307CE756270786C4C9B6B0E6D +89FE9A98C71D4840C9CD6D75BDA50720CF1B02202079E599A6982CC555980E5C8A568AC2D39E +FFF50C2257AD918525794D2BAEA1E2AF62C95CA4DB656C6450DC69D4D831FECCA72E7E14A2D6 +D9D0C416D9FF67035E0654D30E8A5D6A9FB547932C07388A96CC33501D478F8982BDF8B684F3 +E50879058AC5AED03BAC3D05218E1E8B5DF16B3BE113B8935A8393BAC4850216022013715CB3 +E6530F8B75EEE04A5AF3A2FBF9D548803DC0AD8E95F247D348D34B9FB01F93260A8039094375 +32A5BE370A5A4FC7C2EA4262A17C8D17CCE0F70DF11D634A25DE5A33828AFDA8DACF1A20819C +63D718398D9B7B4328167AFFD65DB1BB7CC4995D719034F28BCB96D221890EF91C72F9875839 +42FA62D1A260FF1B55884308643C53B2EE1D411F734ECD3F8D651C18AA38DCD70E9A3558F9A3 +A58A64E14CA3E3F2E6577838189A8FAFD31A601D3D63CBA0B54C2CDB23BEEB21AD6DF0509FD9 +D5D1705CEF9688181820F1DA5FB9A54A68233D9907C895567E5A2BC160AC87290306C995FE8E +7481B41A48A3892EA0735F79F67D6A6B4B01F7999590DAFA186EDEE1AD744AF1CF9C4D46E8B4 +1028F9D1739529472A6D40F27AD9083257A58B9805A5E38055AB9336F47D8B4F21B3CB0E2AC4 +7E0F5F4B53060A3EF5088EEFBD8495C9DD0F98AB77464585EFA96B8C193ADBF0E8D5B920CD16 +6C64E06FDB0C649DBE9C10D69BCA92F3C06826D4B4C29718D3F2F9DD1DBF82A76D17F168550C +5C73D8A9AE18F61D907298C1A7663415080BAB670A8A9D271E436134EE2C11D8219B65A145A6 +7C1C14418A5EA1400490D9B31A443D88150AE47DB6937BF667F7C5096C0C79462D4B9F9BEF18 +B4AC8A3CEC5CBA1508872D9C2C00D5389C2755D02B699D9420B7F1EFA0EEF1DA235951F69DF4 +186BE9AEF84698C28B5B32C1DD28723E637D813C61C9C616BA9F1AA22C72B4C9BA364AE10253 +14BD187AB5E76220A5F91F620D70AAECFCB96EDF17D992E42489D23E066BB0A5A493E038CD29 +3293B401C95649047511F8CF275489C0045523D0769F39BA458A3CE956927A82F074311AC982 +F6479EE51F92D0F7359CC8540C3BE4F61E706E2E0DC8173B6257A7AD426618D6FBD34E426AA7 +E4E7BB484745975C7E6F7DF7E88F29343E5BAE399EFFC2F0DF5329FE28D55E912AD2F98880F9 +EBF3B9A3198D67592573237B2AC4767D309365FF02E605C30F734A505341495AD539B3E5A345 +5B6CAFC2DD32678F0083C6BEF65C07E572807D60AE314398DD06ADF6463B66CEC18F41B5EC7B +6DBF0A0F239D36D31E5808B8BE9AC0FF5F48C1F3D96C67492736D1F2E952C7D870517CCBC16B +B49BBAE50476FCB91E8D9AED491495A4128A7296F5BE2AFAD8299B7DE90D28EC48983EA5F50C +DE5FBD2FF42E93089ED9F2D2509FB8867AE8B67FD2E5C14C9CEF8FE46B85BB8652C246C3E2F9 +8918A6814C2922EF1811221A13BB5DF761143E6C6D1191758747B650CBC8C65370E7D7C9627E +2B036F04581D73B6CF02F5CF08E14B13E561F613D19A740EDF7A4A2F9B45BD0D13C93A6636EB +6D4ABC5C2B12C0A39EC19ED12FA0E9024D7CE66487F30B2AA1F3C3D1AE50A44DAD397382339B +2A9BA8EFCF74774EB7FD67A33057B0694E2E3B8D8D2F06F7094BD0E318B38BF2FB19EBE94619 +EDD2A37A180E34F997B5D2CC78A210169162123EF09AD9DA6457DA0DE95BC288FF1D9C3BA73A +8A4AC506381AE8B6FD92EAFAE226AAB6DEA8B9AEC2C9044FB6100C7B3357E4F0EE8BD7005EBF +FD3BF5A2BA18F9F11F936B1F3B1134EE6CCD7966B60223D1EC36EFAB2F5D5AFD49FED88A39E2 +138758FB8D1E4C471AE128FF3AEE6D46EF04C706EB2F97C0520788A2C148F5830664805CDAD9 +5D9701F74ED76F7AAC3886E154460D7D30A1F805EBF1AD3E2CF81D2FA7C5A76A551915A64937 +23CAE057491D2262D16949C9937EA9FFAF8C07A25FC61DCC10F4B60FEC5FB88C86B1BB6709CD +B169380B0E1566DE388EAD0B97F9796E56D2278B989FBB3156D12F5967114C31C495203739D2 +4E0DB10ACDB7956AA2AA9F4E4246AED9EA3AF1BA9427E0D7EC06461E8C088E1E090AE267036D +D628F1D436B1B9ED0B8397A9E41036A87E3A140F01EFE180D4C0D201A9EEF53BF64A8A4E56A1 +516936E81035508218688FD5FCCA4B47EF17979AFE2A259DB227256E5445735A07B1D10B2FB1 +451295153BDEB7935351CF451CB7DDE52729D3CB94D918A4E744FD1F1DA4DDA1A34081972EE2 +3870D8AA84933F48DE88FBF2D6B94F122B4D4000180738ABEF58760C222ECCE43898399EE6B8 +F36C1DF965D621670DE1EC32688F9FAF172A4A42C1BC519795129A66703C376B24737ACC810C +0AFD9672986290D192E7130D1D909FB5C3C0D00206293C0E82E3ED78138BE1C71B75A76BF48D +E81FD4C53CAF1A8B09B0BF878E67AF6371079B07623DFCBDA52D0EAE21A2B4C43567E8989E84 +38986D379BC4BFB4736B908B22405BD7CF27DC42E9DE322F9203C78D7105171D0F5B24A9ED05 +F79745850A9C52BD08095470D8F0A2BFE2625FBDDC2F49C4C27353C40624F233FDF7585BAD27 +4C751EFA1E4DEF66EEB9B11532EB41B392D86720081FEB6EAD9EF3542E06A81E7C7175903003 +784024ACD31BB9699D7B120266564A37AC85FF2F802982233586ACC543102A6621DFAAE59EBC +92DE7EA40982C770C96EED089570EBBAEEDC30377CE561665BB4DE7A4C622A3F1DDB6D34E44C +CF78B99B0D7AA337475DB44F0BDCA82F775C95A000A6D8B01D222387A6C807FF0C16B1950493 +E95F0190CEF799F0766F08C04F39A1A48D4BBAB5A21D40D6170690EF1DD66020B1E79398BAE8 +F6E05EF549337610993D8E8C52898C2082BBC3069C245C54FD4334A3CBB6D8D926B2116124F0 +28836C7322EFBC9CBD3BDEB81C6733046361C84BBDCDADDE43433B6321A268558C0FBD132B79 +590C56B88A81E00407B14A2E17170BCE64130C5E031FA5049ABD066B4830B704268494E4DDAE +CF6E7C204795DDC5A66301953EF6E0D6CB90D09AC5F4FF81E38A47E1F186D3D8D93E686A49F7 +8ADF24F3F0F8950F41D1D5A17C16243D466B6AEA42E45ED5E70084BB67650BE241DAF7FA7545 +54FEC10E3C44013995523D304FE9D2C92DFA6E5D749649B582C06398E1044C9651469323B2DC +03A31907574406B4AE0C9823125222413831E70006E5231B3E6057A933176F161BBA4E231343 +2D2983A0D820E38876CC7A3470A6A4C0CF89AB24A26A328E25CD81A5119A8D1B22D1FD2FEDCB +F99E9DBA54B96F5D8C23645DBB0E377AB4D43F2A10A24AE6F0CF92BA0DAD6CF17326E5D5C951 +F8DEF22ECE9344793E25E46CC77BAFC14511289D88B4F2E81B0F33318BF8ECF9A85527FBDF8A +5D686199319A9E4F2E5D3261720A5F58386768AA3DD6270F6C80FC4080AF57723E6174779CDF +1D7F74150DC241A27A8571D1C5ED78BEB96F5DF810FB1AEB2B787A6D369117298C94E273E0B8 +70998FC1CFBAF6BBC819F78DC9BDF4C3FFB63156D72146BDB04F6DE7A34EA9971FA17CAF13BA +1706BD0713A30DB443F7792DFA56B3F3B4394595E38089089E2D0210928B304E5699ADF723C4 +57E6C86AAEF85CFD66C8B7304416C6D1D663CDA2FB5042376A785D45C8E71D5F1E4613BF8A2C +D7EAB30681441CF31E11122F07D1AFF26BAACE48A4274C90C40BBB27C43518E18C0D47539F45 +5D17F02F397615BA7AA3BCEC0FCD1C1A4F03D12A062791364485FDC009A633472707634B037A +6F6734E94AB4C70ED05BE5DCA450E1A0D26C297A26E42C9F70DD7A8DD12546D07F2C1810B187 +7FD8EA8432EDE171D3EDEA034424D0CDA5D3E775A0CC4299675AB4E99548EC6F273F1E2B8822 +8094A3C197A8A559F2A16A7C6CD1B0B87EE7429BAB25AECC7A792F1409E6A13CECE6C6DB4F22 +6690131478BC9F80F5F93801778192AD28E82B24E5F81C2541A40F4EEA3C63FAC503D958AA8A +37831A5297336CDA31B9D53570F317188090E417ECBB51B259F21695684AF7141CB3DC834FAC +A59BE02F2444EFE40ECF9971D427D4B1C3874DC824E800C335EA70C988F06C17AE56A9092693 +9846B7E23F5AA176DAF5C746B3A4B876156382FC92E35509730CAA7CD5DF9229FBB9FC8705C7 +15AFB61AA9A90D2BF314D9BD9C9082BD80E9B64027C43C08B7B723B9051DEAF77D78DECED20C +3F27BCDC3D54BE3B856B38F7342913D7B6094871654A665256BC3C5EC7EE74145D169487557E +ED4734901B65E15E646347CBE134C7A616AD924DCF6A9D67CE461130F335C6A09DEFF02DB8CA +8DD08236E08F1BA9AA19834AFE25858D520A5CB8B80CAB07A10B7931FE58273322AE0ADE965B +F004D0AD0E44C7B8A0ECF7FAA22B1A2BE0C56B108A50B638AE2F681C4633806789F8698B2B93 +F471852692E7D7F8C516952217CAB6EA346F0DCF9B96E582F453B88517955522B28CD39CEBC1 +0671335313ED6A20417A031FE3A9F0207BDF40B4D2A41160B7B48E15FB1728668116F4E5CB1B +EEF57BD3A1D0CACDA29308A46F568465BCA4AAE866200BF9B7545FA46BF2A288B510CEDE0EE7 +01335876118B36A8BCD6F47EAB1B30AD0BE96EE91F3AB6DC9FA2BD055A60DA8F158104A3F398 +F2B2F6146E3C2ED9428FC25ACACF462F602D5705AD2E6124BDEF9A2A41E310C37AE06BE77056 +B2D23ED8E7836DABE876222FB969DBDA05B027A041759E5F7EF1D7F8553C130C63E35BDD3960 +E5B73B942DA8457C0C01CDF34F615BEB084B59781E8AC2654AD4A3C1DA7E9C7BC7535062C9B6 +04C13F25C7EF01D41EB951CE3FDD7042DD71A28A575ADADF1B5B4AB84BFF2A75B3B82BB90497 +C6F35E72ED5DA402C92A36F28BC2340A3088ED7C8F583E303B463757F0AC29C1777B1D62A6E1 +4B738B9C99ABF35508BB4F3E0FA3FAF8F3C3082E714D76870B3C880C0ABA3539128BDD3F792D +B59DE5547AE84B020B944CA721A5326AE69CA6466AE0789DB02C7231C71DD0A71C884D80602B +E6EAB756AB7BEFD5115F355206375B6BDFCFFB40DEBD8A45262C6D41E1A9337538B092B8444F +B37A7AE4D709E53208AE8A5267B93BBA88A3770013799272428EAD5B467219AE6C5AE87E5E86 +DB3C359FE7457D813EECBEB4ACA526C70A25CA3C4B37C12C787BB31AB99441E557DCF53DDB2C +98D229925ECF2503EDB45B75F1A8C8DBF59D06DE66FE7D9C065C8F11267FE20EA7A111A44349 +B2DA1E7E908F1E87ACB9C8C8A61DA29A6CD6397342418E68B2A9B7A10650CE7EFF2926921A98 +74B7F10293756E9F86BCECF72D8077490F9230BF4E1E34821006ACBDE624A29A16293D562333 +0AA5C8BD15F3EDD9D31A1B4762BB53A3CB44C761372E4B716C24D0A6C09AB0244C483C42A7C7 +B8136E574C38A018A2270622DAB4FEDFDD88E87F7D993C06911C2916547AAF90FE6E559A2B06 +D43A4321B5DCE8B92D4ACCBB7DA9362E095898FB218056EBF6DF9315118C3A3532344E37F91B +322CBE7EEEFA420F945D9028D46D5586F936B415138FDE89B7AA568A6BA1FA24BFB37F0F21F5 +09705605C63D865BD5CC4C121EF7A9762206F94C10897FC6B45D6A20C60658D61E2742531F4A +41EC36899421D5393019C959E0219A9C9F6C321F8F3B74849AADAD188A59CE6BB9D75F9EFF92 +608D3C410992FA5D39365055476E9B42C383FE0E07E73127ECC1AC10CA4E96A5842D6700A828 +03329C4A695E1E42694EF84A1676670339CD8C131732F0B54D688600EBA052B22536B99AC938 +9238F712AAAF98D845F351BA59F086E96679E0855BD9DFD1D1371D90FA8B8063C76F76EC370A +990CCA40526C5245DEE4D0382C26A84EF7583856699FD0D7A2B5C078E7B24AC9F24999A25C34 +9B5DC84EB12A2BE71DE65F5ABC7B8BEB8E98D67F6481C238B94E6D6A138E9BE3A6E23463FDD4 +4C6AFCCB1B6794224FE5F8E12599A6D6ADB66EBA5A8DD856E178463A4BBC2AF51293BCD42AEB +A7EF934D7FDF8053542DD276C82E0E2D136DCFFC31E9C9379F2B34401C3E918AC5203C1DB743 +A62B981C32A4FFB6DF0C0DC60F0344F42E0C6F22DD9EF8B0DC24AA31509C254ABCAEAB8AE611 +DB24A4ECDAEDB8B81C386117DB8EB61BD98E7FDBBCF60A1312FAEC29114E1315EBC88883A016 +36EE4DA190726DCDEBA7B763BB9AF6A756F3ECEE7062BE7D3CB46CD21281582DE2DC96DD9089 +E85B052E5F79D2E1CD9FBFCACC012948A5899FE940A25B9C4B67097D79AE5F3133EB0854F82E +4395FF4D74AD4CA046A9938EC5F730CB3992EBA8DA693E1022828A941A42E1DE65BF9DD8BF93 +10601F114DCF83B648EF5A459957109AA94766B5F2604F3ADBB6975C7D12553E014820E85F75 +BF00561FEC1F81842810C1B82B786BBF503A5AB31D9085D1435CE1E748E33FE29323EE002F0C +28D5D0BB7937856C4D35E275636B41A90652D4EDFAD52E4F29805FE1DD5517E27BAB602EDE76 +FC9A94F6793822A9E0513AAFE3EE166A004B4BDDEB37A4BD482FD6FC665E26C2B053D7191D6F +62FBBCD33526690E23E1CC4CD4A2AD134C4F8553BC53DDCC0F010A8CEA4CE9D5DDF0F6D12FA3 +4A8D576FFED29956AF504274CE05270CD0F9DB9473701FB194A7835F36BEC7D46E30349B657D +42F00492E7DB717ADFDB99CBB6A7DEEA4A3065FB9DC61CD1BFD4A77AB069740B462C4EF3A3A3 +0BA4231B5EB772742413F4A0054FC8777C74981AE144A66D059BA2430B8B48B709CC6BDF9020 +C0A8D865EBB6E21E61BEFF45AF112C98274E8142ADB6C584B4016B3ABE63957E076BD945DE1B +93BE70CD3924408650605B5389897ACB5A7C4EA51C49B6340CD4D79025A29346066A7267D7EC +B7770D0DB871F20895B9DB17974DF6F4BA5753CBF57AB2D98C6637D0DDCE48E0D81CECC10D66 +6D1F9203A72A835A68A1636D75231F3EF67F08FDC370011CD63A193CE7D98BB6D15E5BCE7116 +C7A3B82DF82575598C79F190C1B59B278AE275C2E8E3DBFA44716A08A2F90FDC52BC6CB2BB4F +836D9B94506A3905F0A208437AA5E7CF174EB3D74860DC0876560AFFAB9B15D561F52BA51A88 +7D87A5692579BCFE198DBE67C41B36C0EA6F929F4F35E19A75F08CA2A5780BCBF2543A0BEEE8 +8D618817991A90E9F094C27058CDFC0AFCB0BFE13DB659611303948D4FF51CE92262B446CABD +29A10090C3ABCF279B9349B56FAAF1B1482EC35DE4F6975DD296B569B8910CC4BE8BD3253061 +707D3888673A66005E473796D9FDE63D0CF2703578D0E8DA7C57714EA7A1AC1973F5364503E8 +846BA6A02BFE8DEFA64CA3A285116FCE7CFEBCA4D2760805CD0BBAD590A2843BD06773F14F1E +CED4D98154401430119AC825F068B486B6E47DE94843A8EF2058815BE7BB66C1B7B4483F9FCA +91B63FF1F7CEC3BCF594EC0A35A2D8083EB79DD4DF657F83D2073E2899C0C8D327AACC1460D8 +90B9F86D41D29724DFA78493BFC62EC31B6408B865713DB578AEB48742342EC36C6CEDCA7026 +37A02F23040F8A6707D16AB2E00FCC311ECD907D5575224EC6C76A847386F7502DDF07F315DE +B23DF02DA436A3B9CAE31547ED2E1CA6A2BDD295D452D150235F235CFAE75FBCB6B2E4BFBA25 +8B4FB7769237F026C7A938BC561554E2711DD4CBD9E300783142CB3920294B9430600402F0B7 +21208D21A4AC7DE5FF5B0F676BE9297DAC0CF093A167FFC01F308C8D071D4CE9D9BAECE4AD53 +74668C620B614668C4846D56ED2E62BFBC73120719DF33CF7126E90FE641F1EA38C7BBF83BC9 +099EFAC8828C25C7DDF8501C4C41451450AA51F431D7BAA581CB784398AEC5F9420930068049 +9D073F1762AFC73420ECC8466E6756C8FD17FA249E4A5A54E9C4BF2352505EE4325EF17887DB +A5D058F6BE2ABD889BD8AE9B7921775DE49BC8AE88C5381FCB45675471B023185B78A54166D3 +38D1A0DDCFE1200ADC63AAB89B817C6F5DB9096E2CAA7C60E78DD5BFE6C66E7C1A15D1E0E85C +83D636AC325C8826ADB4D9EEC15B212B0FA509F4754D5A9E21A6B0985F1F52D4041452A6C8FD +CF3DE6A992653A5281FB56A131361309E8B8A9D54812734568781D00CBD72626480E715020FD +3E934BDB5015DC30C631C1D72F308892710833A5DD00502567CE60D21F0D5B629D34AB7EE56C +700BDAEC7C289193B2FDCA80C916933130114CEC0E80BC2E650A896D09E295E49C2E677C1B90 +659D13B1CE3D1B7F25EA3F84A130F494BC05858B9A0DC74A4E89F0EB991F9F236698DF731D74 +350A2143F80CBAF87D30094759075437E3A51E84E9703EBB45C26C3D49B9C4F1883D2C5D5DA2 +B5D52980DD8554DC167FB29A07E5B3B4F4D9575D1B3D32A58D3C67AD8719955E1E424F12693C +EA20FB4D272691C1DD086573BA56CB1696C3D0A80799C2559CDDA74DC54449B47035652AE0D2 +77428AC8DF7ECC281D9BAAEABDC9FD077A3AE220953DF9D738CAF1519429E38186338C515B6B +AC2E0A345FDF5396CBDB0396A21FD7412CDE9DF8B1D6E35257A6077A25497999301EB0E92E6B +1DEB7FCD05662D29F2E23456738B5ACCB31FF2FE20B18F4A8D0FFEE9379931462ED0CE5AEF38 +5501704AC55B57BD5164247B05D7EA293C52DA6E655F06D8805F413F9BDD23163BEE59C6D2E1 +F251ACB84B640DABDCD4B2DEA4CB84649DFE4338A5D86959F2603EC53348E9F5011DB5923CE9 +562405886B9E24269FF43834493A5EE1F460129CC05C4854650840426B66B13C728F23953CD3 +1EC0D443FEC21AFAF10307491777B92C5F2D8BDD84CDDB16C3ABE62F18BCF2592A998E60E61C +E8D63D39CA7334807A185BE00B5E5E0BE7DE6BA590FACF238C8A9D027605795A01CAB9DA6A5F +6FBDAC53FF97238C47812B285C06A78206FFE1FCE8B9838C479C0B13D488C368532D80F76291 +E78F49E31C3F1E2B9F116510E11C6FD1F666D8C7659D28807FB68F8531EB5A7E7760E8FD79C9 +E72CD57854EB002D234C076EF0EB22932DC39DA040BB595E2A7CAA91A294D6455F9D715AA999 +550FE805F23E30E700C17E70FA72A9191255D9818F8D3205F7F1273BAB49F1E8E825AD812B88 +BE8129C5C483F36459F2C1A8CD0BFDBA2171D2891149F7B3C2A435FB3A584022C18113BC143F +63E546693FA308FD715422768A5B342F7865CC9A8836EE7BD15FDD26A95DBB4FA2D09E4D555D +71F01B257D2DB9EF6161D4D5520562419251A13119706655083E4A141D8C7E5861448A019263 +6181744BBC810947304710965786CA3451B0B861663A6479B64E2DAD00AC96D316531F0193A9 +E8B901006952D027447213E6E33A8B55A43AEB180777233E9F12590B6EEA0E1A19CDA0DA1CFF +F8E206E60E71405A4755584B874CC6CD49D89C2B2069367C40D85C68E9DC12283B8268986A9E +16E9E8063058DCFDF617A54815DDAE4F9FD387A9A00D357591632C5CBE78BBBAB5196E91DBB1 +AEAEE46B1C87ECB3FF6D3AEC6FE57420A599AB430227959BD2730981C6F7E4C704F4AEB9CDC7 +70DFAE3A022EE368C9FCF5DA9FFEB2D02F2F05560F379F93A8BF2ACAE9A1A9CAAA2C84245C7A +402067577BEFB8FD1AED7ADA5CFE5BDB742C00440939B2EE69D79A09128369EB810AA1FD22DE +867E699B7FA40DE13F3489C88BF418466440A6D84A8473740880C31545F51E894DBF7F351E1C +9F91932020BC6DD73B220B5C378A92E6CDDF2AB1364445A091FA72622B503C969C13F20E6F7C +B2F5203EC31EC197169CB3F054EB63F1332D64F9B790B6E26381C2336FEA93035A029B064B23 +63AD4C652E059065E526E66BFFB16EC40F2A4FEF61646CFA81D4671A1F91BBB1BCA5CC21361A +CBD49F3EBB81465ED2C9C71635F9AB6DE5A026931E4C7AA7617E2C8E789CD10E6BAEF709FC6F +980EF9777A767D2B75BED041A9790A6687B9118A646065C5C19B71996BED4F18D799282DC821 +042AA17D9632A1C18B6425897F7F51DC0EEB53A1C2D90D6C8A932D0DA4B91FB849794ECD8936 +6E2BCEF81910C28C70A1B56A38BD63E15BF2218677220A21308DA126FE7A806009CC32C0015B +3D5B85F32447D4C7D3B0C716165FCAE59B60FDCABA6A5D14DC4C797FF7EBDD7EB8697CE8349D +CE5F6066B7C34B71C0CD35642F9AD7BCC08D7ACF9420926D659EE27470A3E47B9BDD5A0BE8A7 +3956B259E854A98F77BE04E6CFF0CD1A3A4FE3B11AB2D7B10991407BA9E7821157522B5DE7AE +978112A5712E62EFE2564E274D4E02B9159C6055A35975FF9CF3D5F4DA9A0824C988E36EF9CE +8A1A3765183FF8B02813644EEB7E9A7AA70F94EAD55015829BCDCC2645E41CD253D1F1FFD6E8 +69B495E261C62FD1F944E376B0759F4349A81738E877A005251733F93B0F0896E0B8CEB8B763 +779789F8259AD4A2A34D7E1A9B642E8D3724733FF3CF15F0748FDB6D395C8F70BCB241F9109F +7D64EE4C3B4487BED29A711C80E7A4C22F4B6A96EEE72D2CD5E415EAE1F1D9BA3DB5E42EE117 +75D406051FEC2CA46A2EA2582949DCDEF71AB20E462E64B5340761EF0516E1B36A8C5E871962 +F865E4FF13920E4BC45DC7CA5CB87F75C7E3B917161402EF8EC79F728560444C64CC35204873 +CB9AA77BBC314F9B2584B257FD1C1EB571243827A3065CAFAB27E46127B610143BAD5606B346 +7442691D0EBE3B9D3444EB73CF5930C4EF70848841BA7F5785614E048AF07AD9A7316528F62B +7D8563C077B6E134C93F33F9D56E32C9F5B9F9384707923CADABDC63C89EDAB68AF0B8796606 +66CCF6F02A8F1BBEC1E62BEF0E00739399B9BE486E19F197A7D49BE77C49B60D34612559035B +CC6622342A27EB2050F43986F47173A8C979FB7B492BBAB53655F4B1BD246CD668D937DB7345 +F79D0784EB6073C2589D59139A54DA1F0296BAF6994C44C75DB5C0BE12C536C702021B724886 +DBA0A097B8B529EB829877EF74E77B8620A4AB6ED123B53DE8EB2899033BFA46BBCF7DE00A0F +C2080C203A91367C4B8E0A3AF58CAA34DAB48333A27675E51AEC94E9C05BAEBC208F8F2566B3 +562EBCD1CD7A229418B1FAEF1486157E067B86EB7F69F7AED523FA434714B7C889B886EF320C +F8588F3C6994BC9F241F13292408A43C9EC981F4811BB72CFB6ADBE11C8528E63D55E74B6BE7 +7E26715BD237C888819986FC109448709C1E13CFCDA5A4C4E4492098C19A80C3DBE1F4433EBE +8D24E1994015831C7CDE72E3F596B4DD0538B579816CAC14F37DAF72D7D17869ADDFF2351752 +DCE4E0D80C2FA20FA177CD892C3B2ED0856720CD1669BA16329736115384E32BD16ECBA942D0 +44BB22B16C7A994627CEDCA557B5690F6B6B588EA3D78ABEF15AD6141E24E41069A0F4CBD026 +7F644A4989BF0B41C91AF5861133FEF0798797F9747FC0F8FAA112B14F5B960287FA60921013 +E823F67EC90BCB9848DB30AD059837F4CFEA772D3E3CF66495D5BD4E0A28850A04E0A2E180BA +FD81656F7142D5A95EB7B0FD69980ACF8DBAC0840F9562D8D8BC6EFBF708F887000721ECB471 +8E70CBED9AFD48111B231974045BFD8B819B986A2A9810D5E13DFF526AD2C1514DF3E9A5C345 +1C876CC3964859D4012B8B4D5C30F7678D88BCB85445EFDAE0238F47EC7F315F05874E3E115D +A685E411149BAF96CB2D07E11AF36B701986997AF3656B87034399CBF0DEA055B3DADE2FFBC1 +5CCE1E60A923F7D969923B56DD895FDE7E731E533B54F7C51FCB1262B743B0C73F91712C8167 +92EB70DCB81FB7B8CA522A4384662683D159C003684705B38FD54157C7E39CC4E716834609F5 +D229C3038292FF79812AC85D46B1D323F218B2D24FE0E7CC5B3959456B6CDF0831D9841AF6A0 +7BFFCC7C6A1D5AF5EBC007FB4CD8F2B34B6A2094ED0A4127CC7312E5E316358035979B0E0FB8 +5D6F410E0A9EE6D26839523920CE5070B7D9B7A4B28FF8BEB4A83D723846C712AA8C048D06F0 +F52563ECC9E50ABA5EB4E2491D207057F7B390F0F2C148122CE2721DF837A64E9985C5F1DA59 +6A60D74C17DC8A5C8814031B66B084A5A87AAEED132F3D2BF5C1E7E5D30C2CC5632FA2900A6C +F9C692BF730D6EF09BB22E101C532D8B42CF07B2F8D2612DC05F173C90614DD16510E1ED6E81 +54EBA71B5A53A6A7D8B01903C6D1320921EB39672C0C8DF79C57EA3B27872E5962E06CBA020E +4562DB0B4FD4FECE0D768A6A3DC0AD429D4FC0E81C4B466628C301C0F0F3033C6B73F0E1A65D +F30ED6598178D0856D6068B4655A7E44AE7DA767195C2F64A6E777C965E46595337BF4C4389A +5FE9A246D0BFC54F7A6901B5E6ECB29F14BDF0BC18F332EF3BDE13E79E3D31DFD6AC498D8DBA +B5619E84573A240E45D631D13A802CB7B66C437309C82F0B2B66CC78B07CBBF247814123E4FA +3B46CB699090EC327DB5F8B981523CAE1950B0589CEC2EFDFE9BC0782B799FFF5DC39D81731F +8BCA8EF15B3EFDAF3D55F0429B5AC28B2F63DCAE1DE55EB91A2E8BEBD8BA53BCBB503A76499F +B1C5AECB614108BDB17E13CCBC9CC1FD786962C826DC67FDF6FC2F8E859D581B39EA769E8288 +F6D9AAD0EE3C8F2F8409B716E532544D02465F46538BA5C30C18F181D16380EE99950C348E95 +DA180687C2EE146A057F6B8EFCACCE936EABDFF1EA80030B07A35D366BEE571F1E4DF9EF7A02 +B92E75A56B53A59C8452A276485E984C25363C7128A9E4ABCD25E63750B4E6C198220996ED04 +667D9E810A1CBCC2EE3EACC070A58D5AD92CAE65BFA66AD1793A37A5F801DEECF76F00B33694 +52AC935674DE3381DA560DA38A5FA7D91EC5E2511A36138E9CB18A08BC0FCA1F7357A72C76E7 +406F861FB0BEB1F605ECBF3D56318F657F9C425B13F84C8290BD18FBF657FAF4A21ED9608773 +9E7A658395A8078E716ACFC5623B7B920E955023A65658C238CF96064D1795E7BA944B06BD42 +A2A3188A27D9D1B1B976C5FAAC6E43DADE8638C7B1E556E68752E034D4273BA5A27C28648095 +B94CCE0BED4BBC592A09FBB24EE29F6185CED1820BC8C8CADD424090D8FBAF674F65A3FAB75B +2F955692EB4034FA39274D2E49C555ED63C05A1EA385C5DE6155DBBA265E0F8E5F584655322F +DDB5EEB7D94B979CE0EAE63DB0F54C60D5C6F1DE13BBED71956CE8779CB0863CAC5B9738A817 +7F5EE9C52099FDBAE244AFA7BB2AA3690E0CDFD5C4B65FBD82D7BF2628066F8E7931D50000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 + +cleartomark +{restore}if + + +%%EndFont +%%BeginFont: MSAM10 +%!PS-AdobeFont-1.0: MSAM10 003.002 +%%Title: MSAM10 +%Version: 003.002 +%%CreationDate: Mon Jul 13 16:17:00 2009 +%%Creator: David M. Jones +%Copyright: Copyright (c) 1997, 2009 American Mathematical Society +%Copyright: (), with Reserved Font Name MSAM10. +% This Font Software is licensed under the SIL Open Font License, Version 1.1. +% This license is in the accompanying file OFL.txt, and is also +% available with a FAQ at: http://scripts.sil.org/OFL. +%%EndComments + +FontDirectory/MSAM10 known{/MSAM10 findfont dup/UniqueID known{dup +/UniqueID get 5031981 eq exch/FontType get 1 eq and}{pop false}ifelse +{save true}{false}ifelse}{false}ifelse +11 dict begin +/FontType 1 def +/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def +/FontName /MSAM10 def +/FontBBox {8 -463 1331 1003 }readonly def +/UniqueID 5031981 def +/PaintType 0 def +/FontInfo 7 dict dup begin + /version (003.002) readonly def + /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name MSAM10.) readonly def + /FullName (MSAM10) readonly def + /FamilyName (Euler) readonly def + /Weight (Medium) readonly def + /ItalicAngle 0 def + /isFixedPitch false def +end readonly def +/Encoding 256 array + 0 1 255 { 1 index exch /.notdef put} for +dup 0 /squaredot put +dup 1 /squareplus put +dup 2 /squaremultiply put +dup 3 /square put +dup 4 /squaresolid put +dup 5 /squaresmallsolid put +dup 6 /diamond put +dup 7 /diamondsolid put +dup 8 /clockwise put +dup 9 /anticlockwise put +dup 10 /harpoonleftright put +dup 11 /harpoonrightleft put +dup 12 /squareminus put +dup 13 /forces put +dup 14 /forcesbar put +dup 15 /satisfies put +dup 16 /dblarrowheadright put +dup 17 /dblarrowheadleft put +dup 18 /dblarrowleft put +dup 19 /dblarrowright put +dup 20 /dblarrowup put +dup 21 /dblarrowdwn put +dup 22 /harpoonupright put +dup 23 /harpoondownright put +dup 24 /harpoonupleft put +dup 25 /harpoondownleft put +dup 26 /arrowtailright put +dup 27 /arrowtailleft put +dup 28 /arrowparrleftright put +dup 29 /arrowparrrightleft put +dup 30 /shiftleft put +dup 31 /shiftright put +dup 32 /squiggleright put +dup 33 /squiggleleftright put +dup 34 /curlyleft put +dup 35 /curlyright put +dup 36 /circleequal put +dup 37 /followsorequal put +dup 38 /greaterorsimilar put +dup 39 /greaterorapproxeql put +dup 40 /multimap put +dup 41 /therefore put +dup 42 /because put +dup 43 /equalsdots put +dup 44 /defines put +dup 45 /precedesorequal put +dup 46 /lessorsimilar put +dup 47 /lessorapproxeql put +dup 48 /equalorless put +dup 49 /equalorgreater put +dup 50 /equalorprecedes put +dup 51 /equalorfollows put +dup 52 /precedesorcurly put +dup 53 /lessdblequal put +dup 54 /lessorequalslant put +dup 55 /lessorgreater put +dup 56 /primereverse put +dup 57 /axisshort put +dup 58 /equaldotrightleft put +dup 59 /equaldotleftright put +dup 60 /followsorcurly put +dup 61 /greaterdblequal put +dup 62 /greaterorequalslant put +dup 63 /greaterorless put +dup 64 /squareimage put +dup 65 /squareoriginal put +dup 66 /triangleright put +dup 67 /triangleleft put +dup 68 /trianglerightequal put +dup 69 /triangleleftequal put +dup 70 /star put +dup 71 /between put +dup 72 /triangledownsld put +dup 73 /trianglerightsld put +dup 74 /triangleleftsld put +dup 75 /arrowaxisright put +dup 76 /arrowaxisleft put +dup 77 /triangle put +dup 78 /trianglesolid put +dup 79 /triangleinv put +dup 80 /ringinequal put +dup 81 /lessequalgreater put +dup 82 /greaterlessequal put +dup 83 /lessdbleqlgreater put +dup 84 /greaterdbleqlless put +dup 85 /Yen put +dup 86 /arrowtripleright put +dup 87 /arrowtripleleft put +dup 88 /check put +dup 89 /orunderscore put +dup 90 /nand put +dup 91 /perpcorrespond put +dup 92 /angle put +dup 93 /measuredangle put +dup 94 /sphericalangle put +dup 95 /proportional put +dup 96 /smile put +dup 97 /frown put +dup 98 /subsetdbl put +dup 99 /supersetdbl put +dup 100 /uniondbl put +dup 101 /intersectiondbl put +dup 102 /uprise put +dup 103 /downfall put +dup 104 /multiopenleft put +dup 105 /multiopenright put +dup 106 /subsetdblequal put +dup 107 /supersetdblequal put +dup 108 /difference put +dup 109 /geomequivalent put +dup 110 /muchless put +dup 111 /muchgreater put +dup 112 /rightanglenw put +dup 113 /rightanglene put +dup 114 /circleR put +dup 115 /circleS put +dup 116 /fork put +dup 117 /dotplus put +dup 118 /revsimilar put +dup 119 /revasymptequal put +dup 120 /rightanglesw put +dup 121 /rightanglese put +dup 122 /maltesecross put +dup 123 /complement put +dup 124 /intercal put +dup 125 /circlering put +dup 126 /circleasterisk put +dup 127 /circleminus put +dup 128 /squiggleright put +dup 160 /space put +dup 161 /squaredot put +dup 162 /squareplus put +dup 163 /squaremultiply put +dup 164 /square put +dup 165 /squaresolid put +dup 166 /squaresmallsolid put +dup 167 /diamond put +dup 168 /diamondsolid put +dup 169 /clockwise put +dup 170 /anticlockwise put +dup 173 /harpoonleftright put +dup 174 /harpoonrightleft put +dup 175 /squareminus put +dup 176 /forces put +dup 177 /forcesbar put +dup 178 /satisfies put +dup 179 /dblarrowheadright put +dup 180 /dblarrowheadleft put +dup 181 /dblarrowleft put +dup 182 /dblarrowright put +dup 183 /dblarrowup put +dup 184 /dblarrowdwn put +dup 185 /harpoonupright put +dup 186 /harpoondownright put +dup 187 /harpoonupleft put +dup 188 /harpoondownleft put +dup 189 /arrowtailright put +dup 190 /arrowtailleft put +dup 191 /arrowparrleftright put +dup 192 /arrowparrrightleft put +dup 193 /shiftleft put +dup 194 /shiftright put +dup 195 /squiggleright put +dup 196 /circleminus put +readonly def +currentdict end +currentfile eexec + +D9D66F633B846AB284BCF8B0411B772DE5CE3DD325E55798292D7BD972BD75FA0E079529AF9C +82DF72F64195C9C210DCE34528F540DA1FFD7BEBB9B40787BA9351BBFB7CFC5F9152D1E5BB0A +D8D016C6CFA4EB41B3C51D091C2D5440E67CFD717C56816B03B901BF4A25A07175380E50A213 +F877C44778B3C5AADBCC86D6E551E6AF364B0BFCAAD22D8D558C5C81A7D425A1629DD5182206 +742D1D082A12F0780FD4F5F6D3129FCFFF1F4A912B0A7DEC8D33A57B5AE0328EF9D57ADDAC54 +3273C01924195A181D03F5054A93B71E5065F8D92FE2340939CE40EE9186A0DCC3D3D661293E +C5BB40766B73935EB54125526067D631E1E3D1D6569AB3546CB257C34C12CA4AE98C3F99898F +1448AC0B416B8E5C3EEF3D74B5FD6A1BE3C23B160E7879A9E0AC4FC82364F946003C1B2E0EF3 +CEA944727E7502B65BA1331D36C159E21D107580F28A32E04CB876822CEF478BF4464CE4F7AE +824FC786E099A1BE2A3C7D2BFE2A748AB092AEBC2021DBFD5C40E912BC5856F3EF8615147350 +E75D2BF9E428D7948E2128053FDB1F90CA9C7D6581E25A6645879F50577FE7F0B32B873F13D3 +BFA8EDD1DBC22F7A72A9B2FF9FA56D55DF90F16DF4F4FB35112B654F552FDC3DB70DE3CE41E8 +2FB803DCE223EB75A90166EB7B0716779867D04E559A61BE3E4C937B9335830A304AFA31E2CC +9B678549C18A2AA61D832E11B5B61A70A62A1BFFDF657786124385B399EE436783E586595583 +2D046FE40ED1498536FB796941340200CC19715BA73CAA707D9566A8F262A78A9FDFC8EEFFD5 +598983EA4AAC61C8F04A67C02A9E77DD5AC1DE0CF8F405C7D064CAD4610EB3A4F8862D17301D +B723931EF04659DD93943E24B9F5F4940D211FC5E8D8C9374E2890080595BD03E0504156126C +B73B37D1155F7F639CE26D1E7554B23FB421BE3222383D4909ED0A3B9BC3869DBC431D32C9EC +B2E307131C9D262315414592E475A51839BF04C1A1C790564C3A75123CF8A9BF3BAEBAEE1CCE +A8C591FF050A91940B3854399F706262BAD649221D59C9B2E935DA3B1E3EDABDE118065A6D95 +6D7BBE8038D64E0D30C63ED06F77111E43BA3C28CC21ED4BC4CA6868962EAAE5FEA8E4A62284 +B1DF2544AD1F79DEBC69ADD2A560B752F9CAC2C1962D625F267AF7E04F68B46FBE6D76589A44 +AC876AE1F56651B4BB236F99911D8818046AC4EE60505702DF1BF927DEF1788FA7B8613A736C +EC90D50DB7A2D03E2040B81D3E4456BD98269A4202F7BD4C074C5B03B65BCFD4AB26115CB46D +C5BF66D961ED3EEDA0F5DD6CFB1CB130CA7E0579844A00A2789D0139AD1789F6057A055994DB +311FA6801853495C66E9E422D94CD0EDE32AE5AA2AFE5C951A90ED695ADF23E797DF8E74135C +E0B9D25C4B418BDC10763DFFEFB405AFF6326FCB9552B2FED2764911DCF0D422D117846983F3 +08F00CAA557920687093EE3DE674DE4E21BB33E86EB861991628E90194E00483D5F9F8D96D55 +6A5843F3FCEF66630DB78017222C2C9535E048E696B186944C3386FF48EAB1D1F47B61B33F38 +FA4F5E4BD78A0C754B59973CF53F057091AFD24B0C66F9F90699C106F1397E296867ED95DB6C +9DD7EE327ED0F96C43C583F0494600A4EA981F6025B014B79042B5B5CD7490E9248EBC3B9DA9 +9E6D1A6B200C4C3C303455F8E6CEF0C0FE13F2DA6588AE5B38E422705E46C20C3F8065CFEFB6 +EA26D0C228210E67E1788E69D137B71D4F0E14916A00E72D68B9C59A2FE98B5C0000B977A4D7 +E198A418B61115052ECA0204F3FF794218DCF2914F917B8D579E95D25E274B62B4837BFCDF2E +0C0EB3DB966D60BFBF9978DADEBEDA25000264F7FBADB45EAC7AE4BEA6E5E8B0555AE9FC8937 +2834871858CBE31FE91343F92371D4140DBBCDA498AAEF0246026B244E5E8DB7AB91261C02A6 +5A6A7605CF28E050CDB6C3818A96AF7031E245B1C336BB1227E3DB2D016AEC9655B0FC499575 +4AF4AD62E98140BC09D7A7B3BA96EFBA78502B3AFD3D2F7AEDD22C229C4B5FC47944BC98F4F6 +45D437C05FB3844368ACF89B7C99B2A63A978BB74532E83D215F852A555F9FE4771C63FCBD0D +6C014AB48439C24E8385DD3397AF3A238338EAC6D8BCDE15C639490110BA6EB50DF6B898D182 +2D229AEF0CB3D9A752B0E38E160012977A16FAD1683AFF0FB295BA53197EF81E8C6932941D57 +52FE85CFA133B2065EE182678213182420A61820CC9E5C4215250C00A375949C466DD81F2BCB +1A3C6509E5B48633E0ACD1E81336A0730224AFE4C111CD5BC7410832C627314A85245A317981 +61C069356ED0A5BB49C0AB9B8A181417E2DCAEB7AB65431B7B709C777F3DCBA13F1243B21826 +7B46AB1E51DA7CA16243F0D7EF3B705D7F54F7B6CA8B9C33D90D567AFBDEBCE6A9697357EB7C +4A40EEF26DA520E6C3259C8E2CEF9D78BD464F689D2387F95B0DD97C66FC2DEAA91B347278FA +57607430F8A1BBEEE530811B04C73CA11096AC75A0E8E79BEACD0108F4D9BA81E024D5F5707E +1DEFF74DB99E15F9DB9A13BA1F7B5B57EFD734405C95240FAFF4F02835F5431BAA71528D171D +7AAB4FBD272F6F4AB5560E13AEA772E3F0C8993EDE0D6507051CC11BB9A610BCFAD7849B97D8 +80EC6D51523040C6F9CDAC6E8624F791836B559987894009044BD392604F49F47C23B922F5B0 +82B3F2E5336732B9EBBD8151B5C32424F4B77DE7B3CA90E064D11D60D28C164E46669F7D08B7 +0A615D00714EB9BA1736DDF4EED5904A11BAD5116FBC3F5E5CB59BEA1B2E75CDA118837FEDC8 +2AA993678827C861FF0217D272FC3B7B84D0BBA82C9C538CCC0768F8F811B686ECBA81947567 +95A716D42C8ED0016DE62D9F2E9846E9365D07D8D5BCDA6DC14A2EC0F394911DB28A93BB8A76 +491C5780D7E13620C03EDE3D115186EC0AE82A68819C83BB229898CEF76E2254AFDBFA67A163 +1F06D1E0790A7BB2BEB1A1674AC75D177809CBE96EA08B7BF2EB32C17F33BE7151F1F8BE6F5E +97C5D2095F594985FC7E1D6508EC606C3DA64D34F1FCE5001942043A112BE85418E20C8A706D +12B21E57A77583DC31D8ED788711BC87249125E730F25694B427A4911F8CCD8D5437FB5B7B99 +E1EC23BBD4FD319247EE2F69EE59E8809FFA8DCF49514B4F34A8BC21BD599549A12291070C9C +DEF43B4838D0F8CB7FEEB43B22DBFE784C4A62D6CFA1CCF86673698215BE3A20A26FC171AD02 +A8D41D03F087D0B48189145ACE14876F3CB44592DE66DAE5845F7AE027BFD74592132D1D6943 +C31E1298496D435344224C8BBE01385BB7963C572012A7D7F21287A0284AF56B4C4D96A61404 +491086C89747A8C3F5D31EB0DD689ECFF84375DEBAB29E62FF308212B3CD3AA08E1B2950BF13 +8AD33645CCD0FC084E34D9C11579398D624C4C9C749193B6B39B16A853B3BDF5ED1594926192 +ED52E2862445DE05696C9921EDB94AD53C19352D695D894CF108E529C43F54F76BA6CF5457A2 +C58196D8677435D9CFEDA1E621A402AC560C2053D6F65918B68DFB7D6F58F2A15F1F42A4E38F +2E7AED817803F2DF3629C2626DF8B56EB23B59452CE5B8ED5097C9BF2AE60CEEE9356DA1DD0E +BD42055A40BA20B6A99C4EAE30904135B241AECF74B85512AF0F628CD50C881C2A347382848B +9E0B3FFDC33E9E6016F7AB2CB5D719C81FAFE7D596A0120A9E439B2041955EAEACA649C3A3EF +7A29FF4D172B83E347C911FA8D00CB779ACB34284080D5D78E1A88435E4FCAAE918210BEBB13 +CE8AE19334F2C9CF9CFE9DA144D511FB08FEE27B6B00F22F0A4D24E22F18846340A7D0ABF9A7 +E97131B01172DB2445C1DEE3066BDDB64A8BA1B26FD73BA4FF9435DD09E830BBA8859A4F4108 +DA086ADACD287E6EE7EAED3669B3C12431678EB821F0D4F25334C7E6C7F5D3EC27CE55259506 +56ABF77541827086EABA16E1350EB20B245013CAD5890E059BE8A81D313AEB512F6D8DBAAE94 +3C15301B98435CA7F6D11C8815FA380F2F9C6C36FB1AB250A16179236B561861601F5963CC4F +6545E18E5340FD184239E4AA8E47B2C7D26FCF2CFD284B04245E16D6F9BC1E841668BD26B949 +548EC984C53AF62953DE765C69D4416FF5E684584B115CD89BF6B78C163E4ECA1A8E13060F9A +15CE18808E888CA6EFA5A7214571C284C0FD4169D5F81D5370F4AE775F854EFB8155C58EEADA +24D66B32F5156080830B0D1FADE3AB220E6697A5D848FB41E72127207A9C7AF0AC657883EAD6 +FCFC39F5FD91B2A9E4CDADA20ACD938432ACADA865CA732570B09107569A3D9B296F46526BE1 +575050F09FFE8375370E5CE7AFB7FD54FF0B617D863E79B3D55C77589BA2B227FE8DDED4DED0 +B6601E7E9F73DF51DA79B9AD0A69C2CEA513CB2AB29A3CD62429C2C9A5254FD4C3AD33C0F76B +83B5E471782387CF100F9537FC417744A0D6FE59818D6F0083767EAF2D3E73F25BCA2DB68E4D +70A97E55972B81DDA797AFD8FD42B415A2B0F51D5913DA522CD6023F69E0AC30F0FCE7356A2A +0E75680F7C155E4B988320C67E8C2FA47B336C579DCD90047DEB9586258A3D751799822682F8 +ADF0BFF1263405FD57F8CE1897DB261700E4054632A1DF197C4F088EA497B7D78C54690F5047 +8BC425FE3213683D27AF4921F2CB879F3AC5960E8F546D697A864C98D3E38003860C6BDB7638 +B40C344AC0FDE0BD0131C05418911EE67A72F039375E64CEB3BA6265A94EB8F10068ACF34AC0 +043C59C0FF0A794BD17B59A6B25208DE84EE99E0EAA9053190F996AC5D9167784FCFC2A6B88A +348D23BE715D9344B5DE39A9458EBB42487FCE13235D83EE8D6F486FF37A395F9F7DA80C989B +257325E17C5883100EADAAFF16523C880C1012CF72ED46EE6C7D6A9C267F0E063B29C6CAC051 +5843A439194D27BA23199F980C0D5C139114743C9FE47F530F0F05330B289D65848E69256E03 +C23C534E6176F2A1032DFD7B6757EBF8AD917846F0DEA05E9A8BFD66683309091B44988781A3 +332265C54B16E68029F88E3CFF24D874059D4D8ED885DC1EDA6122F9351F4211D15F8F66E55E +0DF49445BF9AA30D0DAC0085A8502EB402AEDC02767F5A5EF187B3390FF3F9B7E129FBCB6968 +DECEDF2AC7BA3A47543C607E85517ED9122FBFBE3DA556DD0370C42698753B4BC63C4457F996 +53EAC9FCA3A18CCB1DFD083998A442678BEEDC5E98455C27A6E61FBD8AD359C977766FAF8B89 +941C0EF68B2280C9D86662ACF81598B00E3A716B6DADB01120672974DA2C45EA4F68B9DB5A61 +9EEB4F876ED3DE48939AE5BAB91217B733A0F9F41FE1B7B678851A596FBA5CE8EC8E18D1727F +1E23B996EEEB932F201A0938FEBBA83885B60424E8A29C9C62D963C438A17EBD733890FEC1F4 +70FCF962B5481C11650E8100F9D8D78F6615F3E7CEBEA50FB173C46AEFDF9A3C6C0D46B76EC6 +C071BB117524F9691571F9BA4CDCD5AAFDB9A422F3B6DD41BB3CF8BB6F47906DF794738E2749 +B330FA06A06AEA28132B85FFD10138C0DE322253B09EBEC8A6953AB02A84326648888D44729A +2622D0082263D9A626FEED7311A5BD437F18B500CE76FF0A6CE88D33048D491289DF46C05166 +13D268A665678E7E1ACA236B70AD8C5571906C646FB25A803C04A147160783E651ADBD506E3E +FA7B97AA24B6C2FF2B330A16D5A74672B473ED1B6C6977F85B1C386B99E2E2354F20859E67E6 +18D886D437D745E5B6C946FA7CEFAF9B2DD7305DB08378D85FB9F31FDD1900C8B6F75EF0057C +AB5A29C4A4DA4FC525F3C14DAC9A86AD61DB017E26439B38B09D036A8A8F6EE021BDA348257F +0E9DFC951E267AF597AF38A58FE0DBB733F1E4717798D02A7CD6921A4D14AFE7B492CB1D909D +4C409A44F34115884F75B18C239BE97C4A07699CC61B8078F1161B2F79EBC5736DC4B4BEB0CD +59F4C4FF57CE8E4BAECBCD72B5FF95E41286517CA291A5D6CBF8E4B413F5526778F01FE2046F +641065019CF8D7742A799ECD807958EB50168A6FA322FC31AE2D2E39642DB6D69AB883C9C63D +E88E086E4376D7CD736158894971E5F59812113CD74DCE8014999CF2606B35DC2DFEC6704675 +520D40273C367ECD761C574566B9404D78AF4F25FA130C000BCC425A54F80E8A21B4D02BEC1A +B6A4F9A34D107F879C211817875965D276B2293A1DCE716FD7B4E1D84C5A34316F096CCF3DE8 +C796B0863792BA24750BB3EF40A56864EBEB96DAD36864C5B8897C9BD67ACD75099516DBD970 +7907F384E7640A4088A480422AF0CD41C344731D13986123D884E100BD8163FE3921F5FA9468 +1EB4060A2F5E837010BF8652F71A109C1FD985BD0EE41387E51A6357ABF735CEB8B6A82BB4F4 +C4E32C32066872C7DDDB6DCAFD4A29ED482922DD71867B2D57655F444686356D910554A48097 +1C2F212070FE475FF189133135E93CB80DD3667242242635D1C559A2DDB7F2713388723BA47E +28F695627E6B11BB4FAC563BCB03A29BB6D2B2C443C440626BC469B5E93EF14AA241560A12D9 +0F4E9EEF53FF0242E977006CE0CB2CD676FBE54ADE622E4F8E9EFDDC7DFFFDFDE958D6E4ED7C +530E24EC19D6E91583E9A7FA37907B4DD2AF4406766144294A6CC165DC44C82EA61F7BE4DC31 +0326EFAC9B0D9C0B5AECBA5BAA5C63E17B62406D8D0D3D846F68C5EED3640F84E656AD740412 +BF3EF4F566E3B0338BC75E9981214A90E1B59973B565D2DA08A69B0FE8C6113B1B5650E6DA38 +88850018B2332DECB3202DBEB9C505D09C9344B27E8B4DE54343F4A289AE94F530D48B843205 +F0FFDC863EBADD19D914C447862589764F9654F3B4551A0A01C6FF56D8FA71B907C8087A0CC1 +C2B6D3873180DD901A22B428B8C065331B7702990835BC7CD5B97E782AF7174D0BF0AB2A2F68 +5647625942CCACDCCA8DD18B83E891E39A06F7FEA9D301FDB07DD751CF51AF59F4178B52EA1C +CE753E616241B142F96D8B0927F0A0939CA95FF98C85B88676F4C0BD13F6CAA75F7943ED6199 +E332E75F1A9ADA079363E7BAF7CA2C553145218E0F6190EFEBE87068C060904D85C2C01AA830 +6C2B1844C57AE7F33A850F3E733403481F10B6A999064045FD892DD6DE72A4CBD06470758E22 +97F06F8452B106E6CA5DC2FFFEB11F1FC04791A6611650F073263CDA1BB22DC5B44A54E0CF76 +38DF931D4CEC64B48F89D0FFCB26CCC2A8AA7FF5B151E522211796B8381AA6020FF323AA6EEE +F9E47CE1F270D51CB34D733BF9525676155CD2C28EBDD1CF51A30FC6D7AF691F59C168A2D5C4 +629B8827471D46B9802D188E056DB3AAA0F802943327E6EDAEBEE72FC2287842DDB4E042DD38 +E884BCC7697F467D131EBB83FCEA276B81A0DD5F1F1673C8A13EEC22A993867906D155BA3C04 +A58159EE4271ECD8D19008E04BEFC537E6CA18CB71CA8D08FDDAE6571C41CE03053E95BC9A55 +72723C69CEA09E21BEEEB7A0EA3243923C4927B94FF682FFF27D08370980E281912CA9000E98 +AAC5AFF465CDF919064E8FB9EDC5830FD64917524BCCF6024190C03567DC5C2C9D89E59FF3F2 +B657DE3EE78301D067B7C3900A90B95B745C865FDD0E7C53111AF07B5398FD5C7EFBCAB74F57 +56B70C7A271B4D44434BD04829B48D14D70DF345C4CA580E76A801FFC8CF06CAB44C5CFA03DC +7CA8EC1CE830B7782CE987AF02324916C5BA19F01957A7A0E17F31A23B4825949FAB2921C78C +670DDB30E1EDB06BCD11BBDD42DFC24694BD6BA6F64766ABA6CDA382EEB6A4D348F7CB8E53F4 +625C2969CCD2DF60DDAA28B79F52B8940B780410154B02A0600ADBF84D94D7F3CCEFC18B5384 +74BEA0CDB34FFA53E618B9C97F56794B37151858FA0E382F6EA5792B703B536B0150E403F612 +2DDB93E56377904AF99205DB53C5EA22F0074886CA2CB56EF8713E075E43A166E2E533F1C050 +56A1FC42A5545DF3EC7AA3F7E1856530F14650134EABCC3A03996EF52A5B2E0EFB36DC6E6B61 +FCFD3C2BA11CB1857E4DB66CA9AB74085CC1DA905F3F0A400BACA04D67C8A54C2223533E3493 +482391604EC3CD33EF1F056EF4EFDE24761911915BDD95B2C3A4F707FBE37CD7B21CE93BBF43 +1A513BA83C28B188B8B8509B9A8CD54EAB660B8E66A6F37AF8BB91119CB9CDEFEBBBF4A6FA67 +51C6DC19E19CA5DF2F8CDC9D499257AC7312FAC9897FA6D96C2135B6B3605C24BA89CB3E06E1 +CC6E04EABB860C8C54A8C5B98B63008B156E60D02D3472B6B93D28A18CF021F405EA2DE39048 +F92EB1F07E6F4C1374DDFFB192DA7E191A323BB2193023D02D8973137B1A8C44EA659C240980 +88BE525FC691750A4B67B546B3E71F38D42F4E22D5630095CCE622D1972FC808C54FE7930123 +A90BF2C975FF818253E68D04F44D26F4343021DCB2093F494F32AECCB80BE7D8CBBCF371B48E +E1AC7FD01A9E4F3A6364EE78C8092E8140D92815C7C911FE5BAFAD597E3632A7A06B8C05FC5F +8B87A02183087193EB7411D027A29847D9E29367D3932AD0F6BBACFCC966652DB9A010250198 +BED7AAB47399053671A604B1B1CF8BC109543F4B3E7A054A63E9DFEAA15F7A7FC39DC071F8E6 +3B22CBA2129ADAA29CB534581ABDDF50256D1936174E14DB7F6C115EE18499BAEBAC3C8AC124 +FE45D53EDC134D23DCAC1A0B026DE8A806A98D112379384593CB9B5879D4775F7C60F585104D +0725E350FAB563FEBEAA1DFC279CB3AB52753B36705655AF39BB310B9D12A4FB00F76327B6FC +ECEF1BF2F626F6AF38C90035D9256D82E999F4885FFFA89308A78FAA8CFCAE9A895D47D5DDFD +C2214F2C836FE52E18111F2D21A7EB1A181606064BCB916D8A0C70C02D23F2A7C266129C91A2 +A5804EF72D908BE45DAB0A4848457A646FA65C1D857B475CF2E431D8B3C79D1D4AE53608D3AD +60840594A82128268A9907C8AE6BE01CFA0D78BEB1A0F3B4C88D4115BFE21BD172168CB65666 +EF962745033D527E8C92DD5F6A89ACA2C20F6C0C6F56FBDE7E631618F48D633EA6A78601640C +761189151C97F6FCF66C28E1A26669D08B46C941D59CFA44DE816A9E63783F781062577C2373 +1852B69D6D778F5D5CE3ABAD3A3E384B6993EFDAC37CC0AC7674DCF9F304AFA7E8F6F7F0EDB2 +46E85E519BA1BFDF20984C484D7968FBB178F7C8FDA32D54F1694A8C509FD0F9539F3C269C62 +34D9586BF4946C437F4246739881FE4A485A03CD50723B787FE146D93F97A3214A47893366DB +0BF6587DC27269C1904CB05ABC8EC341CBC9247B9FBCE05AA23ACEEB7F6C18864DE253E3CD4F +B898A052A0B1A5AB99C5584C9A64BAE28239DAFA7C6F18D0422E0F87B0B532D1760099BD1396 +BFB715A8E1D4B058DF3A612C3ACC7CEBE1450B9299E68D61EEB26E2EA78E69FAA8E84A910C38 +440C5A599E83D7B9E9C9C34F449CB1D39DB285D7EE1A4D1547007EF813469904235C1C22C0D2 +3A1EDF85BFE22A48979E6EF8DA999626458F3A23155EF921A3F63065FB12B02DDD125CDEA24D +6B3A4AEAD23F9F5B5B1A3A2196B73103F75C3AC0CB1F5D65F73C77833C5717466FA9CDAE757E +052FB41B332BE80B57D096CC40E931BEB0E401C4015CB12CB0EF7889AE9DABE4864CACE4E4C6 +E3D16726D01C4F97C1CFFE327147A0D227FDF029C9D65E0F4A601E95FEAEB30608A512E39374 +BDDD5276D1B08DDCE2E3129F59FC510A6ED78598D4D1456A0B5C8448D0420E1DBF8EF22603F7 +90ABE4416FA55CD4B7FA8FD316C100B42746149857E19E0CF05D6B14AFD121555DF7A6DFEE3C +9726B372B7BC6DE444FB243596B5EB3DDBFCE09F5F8B612FAAE92BBF0645F4CE71F796319F8E +6564460CBE4D5E4B1EE1F843089FC361FE999187F5BFADE3346934A6F5EC6F659AE7FB800BF2 +10A88972623A5AE2B44AFE8BCB2F72C547833C13B82D14C835A659B34B402357AA61502EB2DF +43D92D772B3B2CD4C11AD4C569CB28FDB3EB6ECFC7305AF0A479350411739B53C6A24852F9AA +B1D34FAA4559B04CE8C79BC05DE536B34845B32A3334958009F2A3D16F24E2DCAB8F269D2F06 +F67A68848BAFD7388598F1350965041544498AE3D05966F76DC4A0D8578B61FA58588AF9C975 +8E96D73646A268BB112401FBDA2F289D83B35D2881A720851AF0AAF4C713ABB3BF00C098B593 +80F595CFBECB0DFF2F1F75F4048C63AA0E6CF938598FB53DA57DD646A67BB60089C88800B05E +434B29604C84415B91B7D16318F06B355F49C8CDA724D1790873B44D0CF8E255073C089C28A3 +8E1A05FC21E746A2EDC52B943A33C602DE2CE6163299478F72BC437E77BCA5C8E8425A5A2027 +3AC46C672AB594515E77BDA64A36E92759DA17CF32388072DF0F0C75953AA9A99C68EBAF8737 +0CE6B459F56105D83152D662C6717E289BAA71601D3DD1BA64E896EDB2ACF3F698B6F3D3FF70 +BD7F50DE344C7C8152B11813D15AC0DCE3C52331C1662FAA940B79877E6FECFE23C30E4E7DE3 +65C9956822B22B9CC8A0E124CC0FBB566F77D4DA319B068F0CEC69282F2D0CD5C423F943386A +45621E12995FC7EAB9DCFB274DF368878A8D0D23432D97335F9878A1A3C2B34238F984C1D0D9 +42F0FC6C9B49C8E460E5BBBF067E8DD9617C2D151D863712F94A1F2C4126F62D11AB45A5DE6F +9AB89AE719923C6AE3C96055056C74E7BD336257BDBF3850A455A4BF81D4D49D7DAA3183BA6D +C887A630B160ED283B723D270C77A0A138180ECA88253C2FFF8FB696CD4C8EDAF66967AF202D +14DD6222F636BA37B418643ACEFC18C15E34F70561F4347872D281ABB8022E13C0E26A7F0475 +526C970725B9195CF498915E8FEC749DF377325DC3F06F1EB7E3B6F613767E7B3A27100405CD +30041FEF5A14DF16C10F38588227F335367F60805A230721E5175085922A6B3ADBB549769ED8 +2013B991FB75F58DC627D808FD828A09AB656294A1B17AC0550F1C03587894EB357482871CBC +F410539A5C096960069B863CB6840BB1047C622130045743176D249871734579074B3644D8C1 +AFEAB66655BDB867AAF5765CBC896AC26455A8AD5C23B7D0E944D432AD136F4095B56DC85BC5 +0880868CCC3B4E655BF2A7957D029BB619374954A90606904A115CF19F8371C750EF65E75AF2 +B4A90F479AEB32B0CD39544CB8B090E3434034B8BFEAF4DF93C15B303B85F5EAB5E9BA6317C1 +1E0EE9468C8066E6867CCC22B00C04D04E53320753B2835BE2BE982BBC19FFFEAB444419BF88 +303B539AC24D9675582BB5B9163BCB7348C27BF264CC73DA9A1547FB73853726E3FDCF7D711D +ACAB63E7AAC4169F05F92B521C36EE700EC66FC7446F26D504CBCC908DEA5ACF45B51317FC54 +0A77E489B4AA43FCBCD41EAB3B99BBF8A3BDE9C486573E9141D7CF07CD2050CB9FE39F416FB3 +FC681F6273015D71EBB8954C3A90EE3E3F27A78AA6B57C60EA790148D19AF8F5FFC78281DD52 +7AA5F923A35816CB0348C2AA1654604525E8416562C7BC6DD18E71DF1E5170AE081644B0DA67 +4EB37CC675D69714D8DD0AF6A99947DAF8E845F7E9C450AFEC944B05A93034EE5005B13B9D52 +662BF086A382554DA49A1C002FEFC2813E4036367E1606EB1C7DDD6ECC43AC9E29613BB6ADE9 +03E7078B87BA467289DF60752660F17E5273DF40B4E922D522627CB1638B4246CF61516CD62F +BF7C3E07B82BA5D2F740352A877F875BE5D9B8621E8E4B2921D385E88B8F16AF35960D056111 +E37B91387A9B75AB63C09193C40B7C01D9001401DA0E14BCEF552FE5C7E058C44FD1D4186B68 +DBE770968314BD11C5B308DE4B15BA5F5CA5F0DCD9D8595D23E0F83B9B1D79A5A69E370B2D10 +BD85B59CAD42D64677CB86C13A11EEBFBF48B2DDDA622F64A989CD12FCC3F5BD545772AC1999 +5429EA64D3EBCFCB0308674B6DEB4619884344DC0B70CC8FECD540C8FBFC589B474F33153E29 +0FAE2E7DB3AF0320552BC1558473B1644548821305F52F42804838F417FB587AB53139D4D37B +0960C7D208E73C4F6F80F01B3068934A9D091991B9D8006FAA5EE835C493F3E05460010ED712 +A38461083B567BBC368081F27816580751A36F086B38787FB467B04F6DE50F28DF501986607F +76762EC89C6C59C680C240DB0A3A5481F5184001EA76910EBF9F85CAA5E93A2D9F1121A6F76C +9B6DD93C12E455CD854B22ADA9B7D8666DA8004462E1E5415EF936896D66A1094F8FD525EB1E +B7E7E33870864069CF978E20C71539D64328AF77BAFBB0C2CC97274CA67B4DCFF0E91B330322 +CCB02019EB20AE8908B0EDFF062063E8031788AA0DCD2EC286CD9F007D90FF57C94A7F30D830 +F5BAB2D6F3B11B50A36AD53F03A9ACAD9B487DD5A07448D18E4C7844066EE268EE92284BCBA9 +C22905D3E296058C18C8E83A2615A2BD9E2ACEA4636D69CD37D2D29A2DD40C61C96344FCC440 +CD08E29A2B2DE2E686F66F44171923AAE2B97A36F5D0BA26ECBEA8D32D24588BFED3501BFAB0 +2D8C5CE4C5DF62F66240367C0AB852D2A3BA7FAA1518A14C8153BA95E5FE0C1CA82E401A42DF +13638BAA2BF29ABEDD696D7E7E5DF11B63DF3069B0D1165460549977AED1F15410D0D633FA13 +75853E55AC6689C52B018E46EBE6FE0306D09F91BD79DBAF8F53B7617D89C45CB3465535AE51 +08F46D29F46D54A05161E32994106D3D23E2A2C52367EB48B05E5110C1E6335D1421C258A860 +D1E9624F83EC0DC17ECA198C1A5C5E76A3F4A6C978AB5FA8647D751F3B12477AEF95D75E336E +94DBE20E1A5C684C2F91FA1B7A8D65D3BAC9F0E9D2AEB111BE9C261835E0A67102CAC6D175B3 +AC5281C7136AE7B2AC7F9175DE3AEF5A775CC2DC06E4C98C6C0B4BDD65BCC746D26988BA5025 +8468530DEEC92999DE8CC6C34FBE33BE8F2E137A89877AE16BC30D56A07AD9E9F61C1437EABB +E0FFE8B3F2ECDBA6834F020E6B8470D1DED2ADD8D1ABD4F6BC758432BA6CDC4B8194A75E5D2E +EC2AF7DA5B5A9BE449167991D7705210A18588CCB0A427D22C1B2BE417B8DCCFB90ACD77C949 +17DB4AA2A0B132E5A20E02F4D3943C3F7869E3DDCA3978CB76EC70098DF7416DEA6EFA90A23D +A6162DDF35BFF923E7F780894CD9C3E86949D065A71CFB5E29B767223730D398CA34E8BBA8DD +B5471D747F024F2486E21AF7CA11871ECE63ADEC20CAC82838A7B2747B2C7435A7E198ED3AE4 +F3C861CB90E032ED7320AD709D470181BF9EDF1BAE5C31E42F0B31E58BF31FB12405E4BBC969 +313D197296977F398A16E8B0C4F5FDE81F9EEAD39A99FBA657AA21766D8A7F26E67CE2A42281 +3C24E51D923754BDF27BF531A3F2B843F3F7F3092DAA625C66DBEF56AA0569FA94D2808225B1 +07B93F90EBD44ACD07724C6D3A92EA461238FFF85561B745A69AB4FFD01952F529F0BC5FD425 +0C83EF682AAA481BFC9C4F84861DF9643F8014154E3220D15F3037F29EDFC1484BCF13F78C71 +06B64E437E57006D2EBAAA073F435A9B0C6034DA5CEA22D97C6F4FB4D317696B327296B71F09 +FC3F96A078A457857C627764778F1A68C31EE22779A6FA89D6C59AAEB4941FDE11853B12A9A1 +8D52BF2157E70FF95CBCED7DEA830CB9E6594F39479E764FFE4C35522E3FF4F8EF7819F0E075 +D716ABCC9016565693F995ED85CF4A825162725B88F3F2C3F225A344332069F3CFF2336E82F4 +15D840ACCC738B3E713FE98E10FACC74E46D035DA5476F50D04F7E5FA5282C45433CAD405E4F +B6039A6624F0BD75367FE91CA9D6773194016C83F61D25BF2BFCC69BACFE77E04E44CAB6E917 +A8A9503B60F8ED3E4F0E76289856076D6D31BE6393730E59A1A1FC843CDC61ACA1F224F74479 +8EF64AFAD7D4A61B395D2CF11E2FCDD83BE9855C0BF45BAE999BD650B1D8394BC33744C71030 +CDBB345E209550DC62AD0A81A2DE9D3E320D2F1B4E904A71942568732428BEAA944BE813AC01 +DDC0A314554C18AE286F3A5CA4930533FFBFA7D387F7D1D8E4840D70A56DD9E231335B7D6546 +810C7819EF453D721E6C3E0CAE9F20CAD7AFC80EC74EA28D6706C93CDB7AC5A5F152C72F6DDA +28A23DC436865D5CEA4D15230D0FF652388BECA57E26F5958300D6EC5FB70A9EC2D2ECD52A7A +6A91860ECE4E97A6A3C37EFF8BA1CAE783BFA8E39DF1CDBF47AD2CFB938B0A14C55974A90849 +13CBD4E62B4169C68147E015AFAF1588B78BA96446F7DFD6FF0FA3545A09DDDD7C14A6016F9B +5DC9B680C786314930F392A62484D02E20469A8CF0BC675E30C5AB5A6942F83C726483FB7F94 +EDCA5FC4EC97F7E9A059017F4F50E170828E88AC93E58CEE9BA7A62A4C623144685BD286409F +1073872BEF181EEF8DD8D68969EFB6C82877917DB4483E88AB32744C6E0662E687777B0151EF +7CD58A1136314E9E1A2CCD3D9C0A8A2ADEB21D166AC978E65D4939A819E0EC9109336A55CE2A +A6106B7BFCD573A5E02235A8F89ECF0AAA1C211C0958D95CEC83DB473F7722BFC623264E7324 +8C6701FE9EC21EA2E6DFF6E63059D9723ACEB7C203ED6DCFE6B478FCBC603C4D3C62D2CBD836 +76031BB3E67B9EE77ED4088403CD582FF084EA1D1746EC16C7EE4B2AE4C9948D2D566A04C89B +AA0F84F5F2B822952CE061DB574C7294BA0A31CE01B09E50F05F985D9E49E954A783FB47CFF4 +46BE5ABDC28813017CB1F7F8AF12DCACC23FFE053351DC04B9184D9EDEC2AD6A6DDB3D0F862B +9BB88717BF17C3DE064A8D4E12D9C23890AB6A5473B3DE1F4A38916E9DEFC33C716191DA77C7 +124F36128FDAB6A800152AEF72CE038ABCF7B19664B2A775F7358419F735C2072FB4EA351493 +663AC72D38AFC3F4E041B3CE2C40BF515AC3210BD94685C9D7EC79B363FE246DD208874D7552 +710494A1D3E68E0D1FA534C0799165E1630BEEEA86D1D023E6FFAD6BB9F6689300D5046FA438 +EEFD6F08ABA1055EBD6EFC0CDF28968DB1F9D2167E451579AC2CFF96A0B843C4D9D842972F9D +F0AE686A7E74D8E1DF7CB176D8D6CC65F437D8840031BD68BD0DA0677BCEA9C1120DD054A0F7 +98DC7F59163C0B94B27DAAA423D7C8ABC73340F7FE6D64A55475D8BD014BC01433159EB14FD1 +946A50D39D9DABFB707D6EAA03D55522AE84A24A8161C111EFBB913A32BED3635D99B9D210B9 +EE593F00644D679B9F172AEC8783ABD005E09F603AE981870CAC579EED3D18D4E45C1DDF7E50 +D60592A0E22A90DDF98758A92D5ED004277421FCFCCEACEB100D869C3D58AF4F82FBE3A98374 +DE05853BA4F4F5B20538D5D6B4D35F2E5D1E9261884D0E7BC581E15D4AA89AC25A7518DE1549 +E592111E24C796C8F65DB51133E65872982AB14883C493C3F753C03E3D8E1BF903027B4604E6 +630CE24780821FA17599C04A0D3859F554843337519059EE7A6425BAC5A5D80BBB8220DFEC9E +0016904C0BFC4B83F2F4AC8447A51D6082E4A77DCE02593F3F6C7CCA7AC8345CB64421B66E7D +09E1F194DBA5D2CD6EBA1F424F897AE024E79C6163F85BD3A3B1D7DBAF77BACB6AE53B356E69 +3DE9D2D76D596783AC50B7F24A2961084339202EF6A4614035DFB84BF034E90F95FC8E49A43D +1A222D85B1B9346366E714327B70B1106DF091CBF6B5201B4557418A1528BA56AE5C3472C508 +C524D8E06A18C982E42F5A7DF0CC8239CED29C2259B8744854CD04C24D29C20EE5E9559C24E4 +0F174D9625D0B4E43572EE9CD88E006581A17A18E55CF4C0A451713EA0C0C05F431B4BAC2277 +3DE75726823F7141A315A8A6BD0BBCFFB187327A6B12F5A90FA48DEB89E164D94C09C315B63E +4F91772922A03726C644D2AB8B8DE8D8A200E55902699F17FC0789464BA21A8ADC5AD0F9A09C +74AC6A8A93D59B10E798C85AFDA53319186E3374FEE63D6779940C053BB13A47AEBE765452DA +B1EEEAB401671316E01469072B31295DA0FD4D73F9E3E2F174319B9373E4E72CFCA356B7A08F +E4BFD1398741DB93D57BDDA9EAC85E91F3DA7972FABDD14D21AFEFC2AEF66054A65503A9DC00 +0B40027D0C8EF13FDF81C63900F746D342CDB4DF615E2C79EA227079EDD077FD28910F27F596 +3002CB5E81818D2D84AEF7F56FA678740D8E042CAD26FFC04A6B1F90E5691B2CCFDAA1EE955A +9A1B08702AB47730146247DAD974AB36FDC8E4438FD5A33734A48BB315A2C2F40D45B6C248C4 +8B459CE9F541032EFD139BAC6644DECA869890A345A9802FB81A24B620B5C9593B11A499231E +388C8B55DBCBB6875EDCB41E196D9710F308BD80BEAAFEC0E3124AEAA3DCF2A0E35CB5554552 +852F94A0257A8646DB58F065CC7FC96D2E3F0FBCC99211DAC8021792B42D077B9B4B3EF9C082 +82582BFCF964A17AE5AFF840B7FFEF6D2A75FD69AC4A2A1E3C63FF1E569D6409D33A89BB5A47 +4423D2070003C33DB9913C070CCEF51A5AE7D0E92BDF1F524F5BE82494E2BE19F327216A78E7 +C80CA721D8AE564EADB777817134B5BB112F1D88D1CB32C08F5B82EBE3E26005FE4FE0050ED0 +F12A8DF48C25672274FE808D4E06C02D5649A3ECDDBCE4680975A3247F77067967125096C1E2 +775D190F09355A44D4CCA21E91C86356B77CBBA178A98EE1872D8206EF659A99D5B90317604E +2C39910A49951B615E8EA0E02915903125ECC7CA661A1F877122CBCE3838A9DCE374762E175D +0CBA8B2A39BE10045B1B59683DB5247E4B0316019C918B3EF45CC59322C835FDE19769770C01 +A57285827E0761C9BB28FDB0A0F63F67A0E7074719954318BC080AD2D43F88FCE90F360F76D7 +94A29BC0EAC27A1C35BAF1A602D949F24B36E1FE634A13249362BF1999B6EB81144EC320CC91 +F1002C98D76E7F6FA4B5DD6E79AAB022BF9FA44E2D65CC7E9F264106DFB6D4FF5DC35ABCA8BA +632A5A8EE43C74600A42B1FB801D90F3285A24E57BF33C55F5A6BE4C4277F6B0B92EF65527CB +B2AABFF1F660FDC4774D78C6E1EC8F31EEBFC5129A57F9CF8B20AAC012A9F2D0216F2B072BEA +6152A7E0D05D56401915576C80B5509DFC3E3E66D5121CD45602A3E78A279EDA984DC690665D +12364E253CA187D15CEC758855688EF879CBC1B4C28B0D5DD85F92C12CEEA55E9BCE16CFA688 +03545FA4FE52EB3F39B9E9A69402A6D16F2D030A3B6106BCE83C4678ADADA0EF3B0949740E46 +DAF0A2AF5AD15B829D0BEE5EEF33E38680E86ECF0EBEE3D8BF7B6FE20E77E646A637F2C375AA +5AED9582C386D446E94588E472308F1BAFAB36BD1B1B6B7E1060C48BE5DD99C8857403B2E401 +5F53DD5994514CC8DB253D6F065C016712F2FEC3D922B6BF983EA33A226A29EEFD0AA9EDA472 +407C4C5C6380023C47E4961BB766F96CF532B3FF3E8DB4C7346D19C5758384863248D1F98F1C +9266A34F01595F600CACB90B585A9EBDC76BA70BB1E9AE02865C29E9CCCEE232764FB9B758CB +979219446212758E251D14C343C7F5C3F60247297E530BEAEFAECC42D84C9FE1E1BA90BE2F53 +7F8BE661D2F6DB7C5CF4EDB18C0B0F0B90618F6E464F7D512CF674ED456B0ACDA1AE9E1C8FB2 +63D6B2F04507199CC93D0D4823CCAB354E69C195A2E741587F84D5C715BDE1FCFA6AC6A6C7E3 +4B4E17B44B00B6216053C77C23A5D100A708ED42CBF138FE5ACEBDE51E1EEC580D9CADEFCEBB +C09AC5C0A10E022DB830AEDE96B69E6DB2B1C7BE3DD9151C4845AC2AB8CB3BC8021AA21F2584 +6770653D9A62EF76D442E18EDF565E98033DE444D0484A379FE82CB75EAA4420A940E899423F +9B54696DFB4933993160CFF521A918C733CC3C78AFDF1A7CD2636FFDF8391796547E638CE7E6 +8802BE56B97352A254C761B80B3815EFF555909DD243D50EBDD42DEE4C2C2F9060B5D661A5C1 +25A599B834031EBF6F41307B1522AB987F0846E40447D567163AD3F5EE88212F7FB707950521 +C9E2A09068573389DD5CB8D49CEC9F91A24D742B6836EAF38BB22DF2288438BB856A9FCDAA5B +6264E19D7F4686377C1826A2C85FF2281270AFE943CE62993BF60E5CF33D8EC3F81023995274 +123C636338044D80A7143E2F267FBD573B89FF1E33F55E8F36D81624BC962F97D593C9C4771F +2567921136B70E5227382E806EADD91279354A0C40D3DB426B9B1C1205FCA56F39E1B395F6B7 +1EA6B17D7B9D2EA2A3F5B6227B6920E876A333625AE0D5FC43ED3F6736B7451DA02C1CEA51AA +4D979F4A860DB972071D82C8F54BFD8667D0C8E852EF5154A6B70EADEC60A214FF1AC2AB0D67 +78454D9A36D842BBED27800F5245E10C3DB64FCCBE50012A45764F1DD8A3D379B00C1FC8CC61 +514BB537A92B72A7B5657522470920553BEDC7C472F79E389C5801346C47A155567102C65D16 +5398FB2C69975007C5AF8D2B58FC7B655D8B4AD4285847503F38AA381371BF684A276FCF9981 +A95746844DBF6C0DAD697FE9B271309D1D3782E661DA50F657E2AC951ED4C01CE1296CF589D2 +6505BB351BEFD45443DDFD6A7F1BB81BC5274ECF33152101D304D10B24924EF0B58A3B02154E +19C713FE019616CAA3095E6031AD47E03373AF451EDE21C7E3D7E58D9C61F7C0F8E2884B5462 +857D6F5C0C3FCDFC55ACD2005A2D14A63CB3B1910D655D4DD386B46BDBD8007EFDDB59C77A05 +6F7D9B85DC32CB89929B3C25203169B06194ACC9E4E95B349145DAC334501EA44E728E6ADDA7 +0758B803F791146941345D48B88C7BADA6D97C69FC2C3DD90993D98698C9AE636C3CDD6A7085 +62146CA9A2660614956C901A77A4E401A56FECCACE5A675EB106711890C1AC5997F2D24906B5 +E3DE4478F08CB1BBD5528DBFF18A73D961D1227B92F59D2C9C45D47E1D840A8774C0CCD75FDC +D0E8E56D7AFDB3891378BC46BBC41361BC2CCA02E08B833EED47E08609FAE242793D18EB9F61 +E2AE20881DDCC9E4EA946DE99852DE2B793E222D8BB1516B2A47A3792F0D5051981338848325 +5307D2987B1B0E06D9556CE84D1F6492402229D56C5E9D049A62714A9E996F8BD5A3D5909B99 +B3988BAEA7E0D600ED9494059A6F825D87EC197F07C4D191E8AFBA5C7C93B81E92AF4032B595 +2F9048FDB747147508E25012A0CBDCA3B22AAD6B7E663B212BA370F9236FC7F68AA6CD080F55 +1444C5ADF104AE3BF735DE357816B8A45FE907ABA5D32713DEE7A434EFF8DAEF89446F1691B1 +1FD56AFD1629F35B3FFD18B950D82485CE02BE24BA32B540E7129820BC44864419288ECD19B9 +2955DC80FE931E34B8EB504355E4C104671A065D99FE9FD3B4AEACA7F122E33A8EEC4B37A17D +68906A25E9AF3407A3D070D6A1FD614572723F6CC3A778132982E6938C47589FCC336C77D9A3 +53AAD013892FAF2C546264FD4E812F2E9E20DE480B9F63833B24784F85EFD0471FDEA107DA0C +81013B92A6FFC3FC3FCB41CE192ADF21719759EBAD3CC738076A3981EF93114B2B0CE2A767B5 +A3F5FAC42C138C7414967369F222048B541CA86401D6B9CFEC7947DE6F256F50E5C5C2A42556 +354171D44084A42533C60F2FA61F9C413C53BD204F0C738AB7899D36769D47599DDBB64D567D +7FD04A8C62CA754414F91E61666D6D2C1960F22C91E811D8740C4D8984907EFF42201BCE2C4D +E83AFA917025F48C8D15C7F624F8473332F3F0BFD375F936F425C72C62173DD3FA03CCFB0E9B +2294BD23B719845AB0652288E706F980457E20D7E322809E081D988B45A80AA80991C289A850 +3C957E686D137208EE0E5246C850E55DBE4662D90EF2CAD94D0911A8925B0BEE96BA3C03C45D +BF9327B9796404E186AEF937FAD3FFB9258DF271C45CF26AB23430C8FF9424B3AFB4D9CC2615 +7A8C2EBCD2DBB405F747B3C32C6818AE0DE977BBA598FCF9ED50997421C43BB31179693B46F0 +892E42D4D0358B380B667AA68C6BCDEB833097EC1492E97BF3649C4BF06AA16CA94AB5F10951 +8A8D10F10895AC654311424D03C2EAD2B67CA52AAFF06904DD43CA3660FCD91B724A46F2131F +A50C0C6B82B68A0D7052949BAA79719A19ADFBDF89E7FF6FD334CA673C60195A763F5AA32A82 +A947003872C0AB980C114B422AADD53C74CF167563661DB85D301F54E24F59526221D66CD2A2 +164C2915B28A970702D68D2074018A91B3AEDE1C461CDED052B933F7D652ED92C8CA0229830F +037BCA19F5A036385807C9A2BA11B43F8E7A7DE2F3466E8E98CCDBA15F877797C8F2348F247D +4A82A2101810EEC97A2336EFDFD7C396E4799C6AA8AA2AA9A667758C618CF316E4493FE14103 +7AF3CAB400CAB7AC3C10909F6D1CB2142AC248ACC62B7D907CF2DA64C9A2ADF9F121657FBCD2 +8EEE6B0A04D34120B0DAE8F0B55FF02E5AF8CEBFBE4C23441D3E575B6E8855EB797831883370 +FE70601D46A4F5A99460A0131DE4E7E64B9007893FBEB1EC0D0C4AE8AC11775CE552C02BEA1A +3C2891D3802EC81ACF2A598BE09DC8B0DA351522E9B5CEEC72174BC97D5A0306F29DB5831203 +C3A8178050266243665965D4D80660B47510739B02AA6C963F3D6073DCC7EA263FCE267AD618 +8D0169B7E18F581732316E56AF8C6706A44F1478D3559EE1522A4727FB4F460DA2C340B265B9 +89E1DAB248BE8528160FCED73C305EE0F8A3F9C296D6E3CC1DA790364B19DE32F532FF3487B3 +2609FBCFDEB55786A2B72AA44CAAFB235CAE3B48414DF4C5F132F35E2446BC75D11728D08CD9 +622C8FB25F11AD701A8029BA4B1721E7F8F8C6CB31BCEB50004E770B565A158FDC8BAD0E7EB5 +571439E5AF3F9C52DB0F04A76627DD5E1E9DD93F05EC8FF95A56353BE8A1C223A1AB02C38FF7 +DF862235B7DAF4EE15B202E1017E0AA7710367935678164D5A5984691DB4E8C617A673F89780 +76631044E49DA6F258C56EB8AE56047DF576CF97C6AF569F65CE03AFC76D015BE454BF826673 +A2860AFEE4BE13BBE802F3C8033DBF4891FD7D31E578B40FBBC00C8E3EA73B5FEFD82AC31C56 +3B0C2D376BA9A0B613D34ABC469DD5CFF523EEB43E0826C3940EB6C5572D0A044CA37706C4E7 +BD46F1E30BCA5724AAE06AC81CAB2FB3C066C89564FE27D0A0E242EEF66886F805326153A810 +05A2A136F41361356B7916C70C1C69A6C1D8618EB17488E11B57F2C99A4F95586D37FABFDDC3 +3142C46C764D412B2DAF8712F7DC8517C98E12D2D51CA6F4B172461FDB02A686F0D08D1A40C1 +35FD8F732743D554957E0565B49E85E299B45D2F89A651BA2A8CCDD925F35C90C94D3224E75B +57646C0818C88BF102BECFC00C300490F1A0C0BCFA24CB2D3BD628D7A1E34F6D077B9280DD58 +3B6D402F7F58C364174D5ED15E2E726D929652D881824E533D2F6E60C67DBADE524EAFEC90D0 +AE1BB2DE87B2ACBCE19443C60612781F2873AF161161656F6A877B704E1E7CC7D5E663D71269 +7C4DE0445E50AF4F1A440ABA3D29BCD353C3E0DB9DC295C87F2945F6334BCBAC64584C51D6C1 +BB9B906C8730227D3BD55E8A2D486B4E59B44B4FB4B6A1C147BB46821BA69550DEF264384C98 +9CE80A78078DF7E512F0B7F2CBDE84870E7561E5CD52DF0ECA837E7D82B223C2422E4920031B +B8E5806D834B151B54E644F834021029A87AD8D55EDB8404D937C43633539EF12756EFE4044B +B3BD63B4C48CD4590BB69938BD41920CD46AD8B47C847BAF5F7FC423DB8217ABB02FB3BC3FA7 +19BFF1F3EC038CBDCA249B0E5085B681C8D320FC975A85B7C1D7A1278FB03380567E4E856246 +898BBF0DD7212E5F919A372DE794194F5F71770D27D9C2CC6B085FA277618A83B8F206890B67 +E585AA7308FEB463A6103F0060813F0D40C23F29823E8EF3AB4A788663B3E2A228F471CD472C +A0CF4F146984DE1F623552C2753945C8FA10E08305442652E5334EB7357F1C2A96B370009830 +74F7861E436ADF653CFB5DF462A15DB5D210B8266B4A2BB9CD0D98847BCDF7B674C708E34519 +03EB3F6E4EF36BF436919286962FFD07BBB9D0037A05385234FD13D035F67178F411F334BAA5 +03353EEDA40AEF38BEF1809376BD50274BFDC0CA999F3B4DD29DA2DFB1C8748C5D15C62F5870 +233BF1E8C514080A8180A4D51BF958C4E302829877C3FF76B538180842449B0C562AE2453425 +B259464724352D7D90311C332387396DF801D5D14193ACC650A96A3C8F0E28B14C8F3C1D9FAA +F8F98CC2BD25FE7B9820E4801FFF9CED7682F11E36BC7E38B2AD598AA85D1A40DF532F42EE81 +B2F61402D430BBFF70FB7B82AA1A85CE8131D354C6CB649217A59E2A3991907FF416FD18BE75 +27A001A9EBE5D13DC94B62785A2619966D432A4B3DDE0B5D2468EC29EB8920C7E2A8345FC4B5 +89DB92B21A6815192E015A0A8D1CD1F588B306D9003F9065D51AD0B2F742237031A4333C57AF +DA1CDE3040A03D671563A98F78508ECDA15DA580E648F884DF854A1EA548076497A3131A8FE5 +A55D27800C4B1E1733EF537465D3D9D06BCAF45AA6758F6335B79AA71F7A215F29178FB7C0F1 +989056A453401DD3373FFA7AE8751051B624E8BBAB1F37E0F8CC2CBC14345F7442B25DDF32F8 +48E7D803F21C66E188C134791E6828F03B73D92C1CE0CFEDD8BFC0EE30D34DC6D3A305158A57 +7E1D0C1B2AE335EE7673C65894231454F8209ED24D06BB5A9983C0CBAA6606E892B23104A9B8 +DC8BA2D02299DD571D7893770B9E387CA97F9F1E4E79F123E6307B6BE7002CE74D0E613E4299 +3CE64108536570ACCD1F8065945D780E6883875CB9D033100DDBEE31C81AA870AFB47F59F2E6 +6FAB0BC2EA8C7A871DF8462AF2EB85DFDA6532B37F033F54FBF2405EACAFC6D5CBAD9C0025F9 +54567A95D0F7722EB58CAE8F5CD30AB4884F2EEC7F760B4B5B40144C8710B3FCCAF9F54B4831 +3D7EFEB905CCE3AFB8802521B31D94EB6AA5AE43313D9E1FB8107C182D0D2EA37DD867B10631 +F7EDE22324BD13D116BB81509A1658B2131F4784DF5B723192CA97244F6CFAB2B56573DDDF81 +5A7194F90228B1E05A09D8F256B8BBB1DE7949451578793A004937D762C69A06073614E4257B +D876B57256C62F4D128D97EF7DCF0C644EFC920DD200E7D336B020875ED7010D1A0A5BAEB776 +DE7ADCB45848546953235904777CC75D7F54748E9BE9804772F8DA357ECC18D789E6F686785D +9356B5EF5BE1FF82D4BED55A23639AF5C05AB13D8F18293DC7FAC440AD062377E69C924B501B +E85003A3716CF39598DB6936F3D1FDF1A4889F6343204621E3D39CE84FC6AD3D7D6C57E469C3 +AE1ACBB198BDFDA3C9D2919737B1FBD6D65AEE71AC4E5B051C44B865E8FF6FAF74EA9A7C5F30 +E32004AB11C9591ABCDD9D7D759912AB296D69566F25270A4A8D8C95EB1A152B26423892F4D0 +082AA41F1D78E454C16558D39201DCA0B1D447D8D95B1B9E1276E633971687550DE10F9A66CF +147A1EAD66740DBF17D33547DE1617354F915A9099A326C3D80D4A053166FBB1686F21994BBA +08EA720D815AACA3AD46CAE026D5E19E6C8B67B9B6F75A64B6E330F4448079343EE1D71D781B +D8282F07E6E55E456FFFF959B208EA5F1E9BDA2B581006FAE8694448FF3BC22FEBFA2BD34513 +101EFAF04EA7032230FB6A4757ACC8A8A76292AB5F2A0A5156B81553A147D5AD252B8809B6B0 +3BD93F0FCA454289D5BAD5038739E360E3A6AD36BA94C6E2EEB1E9B6CC65A4FF6C02D73C0CAE +2C384D111884A8C9682CE8550E295283657C458C7EDA46DF04D8F5F60D6C8BF32CAC673747F6 +14FAD42F13401FF97CFF99C3CCD20E7CCA1AE7B5B792197AC48FE4544966E84B035E2AB5D1FD +817F9590EE1295A756995872DB8B2BC3DA1F2ADEDEA75D39781162B11E7949C5C8D53A7DAFDB +9A1E9E07BA067E3C7E05353E61718C93370A812C1B7132FDF0C0D65B62E7B4FC39FDBE64C3D3 +399CDD837EF7AA8062C7ED785FA4C39077874C043A0D063B9B87803A21B7D4EE28EC5B299BC4 +9D3B99E58EA7D26E4706CA932743BE7232B985425AFEB87291ED015A049537F472F4987AEC81 +65D83DFC5DC59E1FE70E52D6E0E7B93F70F4CF5E8D0D2AABF829F4A9BEDE7BBC6FD869276EAC +3B0E8EBEB2DE9ED7D6D1F94024295A7275881C77B4C668BCB1B8B586DA4D2E9957AB8F821B16 +B2B9F008C4EFD0B7BD5BA235C945FE0171D436FB61D0E24CFCDB26D253B98CCE7589953CDA8D +97353DC48BC6BC3F9FA53A567B6E19F9ED72DEFB1C764C5B04C2AFD1E7D7C41BEC57F65B5FAD +1C5807F105E560712C71B3AD984352C9F1142F69A690CCF63EB10EF8764A52093070761A44B5 +E43E1F746C838A6E7DCDDD7F64ADF1C8286FBF3EE57FBBC31CD36C234A7C99D203516D2B0FAF +497BF7EBC97C1FE5735E85966B87BE2AE8CF0A6954421F076F81C2834AA8905813188FFED5D2 +08801A2CE015D85CBE51E28CEF579289B185C074E20EBCE536C8D5FED1955FD6345F8736E0F3 +656BC059B136B8BFE60A9777AB58E146FF14A911D1C4970224D93ADCEF1102BA3BD8F55F2946 +E3AF01B0CB02310F6FBEF93325EDDEEEBAA2EC2D0AFB644FC8CDD185F1A073D143B65C5FC458 +5AAFC1AD2BD1C98E1984A3F99A949792D601B01BB2630B3FD5AC96E770B3D7DB591793D7D9FA +0AF49F819E19270F350A50715FB2166E35F9A26C558DEA1C92D11C15A6AA729D2392855B2647 +89BB07CDA78B4AF56A0ADCD2776FEC77FACCC6F9CAFD321FA66FF9197A19053B56E83DFBE51F +6B5508AF4215246D4C3EB30163EFE5C590EE82294C9C8B58A0CC040857CB6FEB850A07CD20F2 +48CB61C1AD1FE1C6702CC0AEAA484D00FC0408EE60828B96788528B1FEEFB8C1F174F5F594BC +6AAF0E9C5C6B2C461E27B65A8B90412F006053CF4440E285A1D711368AE249AFBB5FF6E7D101 +A2891DC2AA7F5A8E34E761EEABEEE45986BE0515E4C701A20DF191A79CE7051CFACAAAE11A37 +331C1882B21DE6EEFF30B24CDAF8C3081F00043D5D652C24C31F3783357943351EEFB8B8D880 +41C46E7B37695A8C66C0F10AF8B36E8351E955CD58C85C9F84AC03EBFE770C13104C05016336 +91C6937076497AB13BEC0FACBE170CA73E448F8AEE1BB7B72947C698B20D7BD3B300915D5079 +88337730ED37937B7F17761226049C473DFA6B3B2A4DA7019CCAB17BC9A92BCB91A102A76734 +6A7E2908D64BDFC32405079D3ACA9558225A3EB46BFECED598230C2992379B38BDD3833E94DA +6725ED348EE35D6C20F424C405E59D4C376A07453E4A941CD7C31C20E4A9F4B970A594F67A09 +0C60FC3F17176B446BC0412DC3C933A3FDDF7A789BE019C1B9CE6CCBA8061781280B8DBE6E9B +2666183BEC3C7CB7825C927C05DDDF8FB3EBB7C87F52794CFA5D76F661A753EA9967161827C1 +2FBA226CB6C57619BCCB8483378579903E521493F5487ECBFFB4DB7DE68ECDFFFB8D04A7407B +02698C726F4BA72738A9C2683A9565C2D7679A062770F4F49B84EA953A0B2BADA963D58132EC +865112ABDCED3D2FC7ACE2637332E5FBEE005A64574EA9DE6FF801FA0D492B583BC1C0083BCE +481DFA1E43AA6FCED7E9C8821D945DAED72ED19F56C8A86583FAD90AEA8A9DA79DA4550D49D1 +8BD5AFCBACA873BA0642FBC333431CBF7D1C0C722019969171A88D918E487D553C6B63EAF4F5 +BE669D16E61966EB87E5FBDC0F6E2590D66FF0177760500FC4F9D4F56BD0654BDA912D3C59B8 +BE917742E1514E0B33AB439404E3EB943DC26E6E7EBC92F1601A5B1F956AF32A032C8160F3AD +637003ED6C790F1E644FED92AEFF7428B798A433671B9406F2D673F86360DFE2432B12ED0D60 +6B0EF7847C919379C20C13FC63130CBEDF84585EA9F2015807080DEB5C53F709E83F9D6F4097 +8896B8225F1AE868C384D9DE563906961205B2A0E8540F3D3BEFDA46B6728F20B783FB130A74 +AC8701D512764FD90BAC95D05AED5F72E2057DDF1F14A15C6420C822479691D5BC925077EB52 +1ECACDA48D1ABFB1A551512D3F71C2DDFB36FE6F1528E293D0701457E54272D437019516C37E +8E56B616B46DF9E52140123BA64946EEEDAAA08280A89413AC31934C530299C2713D7F0E537E +844180507E99802AABE44EA49BC653B2621B9587999E8046F430A671E978DCB9DDC0CA2A38FD +9ECCD13BC9A12BA0FC119758E1B0D61E56135320BDCA5EB57C81832DF9D2948F7859671F098F +F58F75478F5516369AD6B80F308B026BE9EF7C73FE635A25422BF75885BD0C31F081D51DA8C1 +B8358B209BCBE3C44ABA2AE11C41B6DE2FDE224E11F584DEF5F98CBC9523B8DFD488C4742B20 +E67F337248D306A8C1276CB4084059CCDE4E4FFD6450DB1817AE0A8253C0D3C69806AF4B3EA9 +57E390F2A453EE6D5C83EE2FF1FCA0386952C6D42CDB965E3F04A50B56208B1BC4FDF342B486 +0CD7ACC1BAF991E453462E241B48FA677E17DB225A3A48F00F16A8262AF0F8421E655886C803 +1DAD11FC3560704505F0B9EE3351717B045F9FA954ACC206DC00F5B55F443D1CF77D238A0E54 +D07F129FDA86D7CD6FD9D5D02D8E3E06C9453EA549DFC00F237DFBB98732EA519CBE0CCB8691 +DB8D5D42413A450B58A30407BA72F9580FB6B4BF5B552355EA3D2230E0E45F2A1F02841ECF76 +8265259A3C8D6F235D1CF4B594E00993823BD4603D040FEEE744C4AB1748AFC9F1845E084733 +6B96E87D30BF746220A07756F0249B1571497D49EC0B82853AD786BAF86763DF301FAEDA53E7 +DFB42AC6EC84A50610319CA4F950DCBBC28CD31B0CD1B64B1D8CAC1A239F7C43194F276897C2 +A29814ED3754702D73BDB9D12F8BDE54AAAFBC9BE0614791659F76AFBCEC1DB3208FC8A5151F +9928572B372E85162BD45602DDD0C29C92C3007995F2E96F08065E089B181338B6FC3A0D5F91 +D8BAB4ABB9E53CE9EF4C9162C80C6F5DC2EE035DC4378DA715F996458CF6903672569939A8D5 +24658F8B2E7E1EE94BC420812802552B8FA3F6F1BDCAFA50E3F0D5D89112F381BB543AB71DF5 +3D2792CCF7889A8902CE69109C565BC3F31295AA9A5D58448662648C9A5BA2C795B1A97E3ED8 +B41C6035665416FDDE932D2915ED62672A87B66351342838FB315B9FC922D061FE6C2A0AA535 +D0E2B003DDFB1C58A874B898A74419407AD320F38D1A60C2BAF1AD11A6924ABB913285E021F1 +68C793E121183122308C1354DBCB3F6B7153154C346DE05234A03A28F91099A674C20E74E2F8 +2EE86D47843D3BCA27AA801667034C16C3304B42EBEFF7F36CB2E1A691F9998C5318B29424A1 +53C6AF03C65D2AAEE0D5D87C9C530FD4155570E3FB3DA241606B35EFEEB479CBF2030AA3B607 +24BDA72816489E196F443D40E44F5B1A80852EC05770FBF2400928DDD8554EFC92AD80EF4F0F +10AC52B414DD08B2D96581E9A103352A10270DFBAD134103FAE8F5F752A36C0111EC8918107C +7277F1B236C6B7324A60A5D49BF310DDC43566DF1A18CE50E2E19FA157DE5556BE1FC7CF2E61 +3F4A6E4ECB9882684E80C06D737B11701DD9B890513448DBEB53BCA8D462018EE85C9BAEF288 +46561593B5D98A25266BFD944DCA26CF83F63B69F197FB313FCD8B5B3D1DE5461F86CD98EAFE +96EAE55E2995D74A2232B1995D1AC6352E51C7D75DF409B039E03B34625BCD4C68A59CF05950 +E8DFAD16A52D6188373F0DAB1081304809DF523E2D3BCF7D1EF60A09E9CA9C59925C5D7C56AF +B9503A20C1454AD598B5EFFA59C64D76387F28AA0585CD0BBCF9744E580A8B057CAE9A89DF1A +3E880EBA0909494F14F89F27EC49BCCE1D7CEAD1A3EA64BA8F99C5AE4A88C6CC0E954C110B39 +D3ADF13DE9DF65E47B2812251E888A1FB627E45E25DA286C6964E81C313EB5C47E2953BAF26C +1963BA37A71F009487404FFA1AF7398A7AC55F781E830A5A9B9A6BC8D29F88AEE951C245F990 +361F920C0294A1870CC0EFB03A9EC4B99C875D33E0147273E520D33DA8DE91B3D93B5B34617E +3552B360717A823198A64D633011F9CA3A30CF09106D805ED77D3BCAEF1CA92A774B078471E7 +288C3F9A8774E9B18AD1D1E878480AF7400C008BBEB74821B37AC8EC7EBA533A21DF263A9930 +0891BDEC3D4E9D12B02F557EA16BE1B2AAE75F4010FC280EAB2918C0F02A44D5016CCE9090F1 +C13071751F4E9A1EFDD685023521EA5CC973C6BD87E989DAD31A11A6463B254BFDCFD7C76323 +D5A34E436FF2BCD5792907FD6E1B475B6C9692347973DA7F37F5E6CF4554B6E1182EFD6B0E68 +4D06986F53C9435C590C660681FB27F603FB4413273919D5FD1193C9DE674864EED66C812DD3 +5B82A5C181E4392DE35A0944DAB553727A2084B4724149FF42914B8402B07A2092BE2FC6E34D +6C117F46C7E52050A2C45E39ECC3C39C631EAC47C3D1F11F20E10D41BB6B2BF3153A26D79474 +B3F8A7AA262F14DAF12858B888E72C5822B8444E29B8662A068397BC033C9EF60F0C88E0AD7C +B396E5F511055D695D3B751EEC95350CA6C81291B6EA7E2AF46810E79C08908A0030F9822A2C +FDB9C163505AD8A300EDB53472274558DDD412CCB3B7A6811D23E8E3D17D98B0567D37BF8747 +4110B586C216BD39F70A88DF01437155ECA47213CBAE6CB856B7FFD5D450ABD785628BB99DF3 +34D46466564A6C7C125738EEACA9DB9412F3B6D30A264D308BF111E2C895770905DF62218777 +9FBBE2130BB494D47BC0953FCDE43EA13870C17DC543F4D185C25905E234EBCA14F43D6F39B1 +B5316A3252928DDEB90C1CF6D46DEBE64723550405A0FF23944EEC420C8C52839EBEC4B44D57 +FC41ABB0522429CF89BA4A00102D886B37C84092A0F54083B771094DDABB05A6D6FD74E692EE +74EAAA4B813BDDC2746E8D7BC740D1F0A7648EEA021A8F9C69F0AE1822E3AEB94CBFB2992371 +3842FBB2AF6B35D3C4919D2910835A0BA565FD23EE3D162980F052E973D2086D6C709590ACE4 +375396FF39E939A558A46108646C0A5B9B0878D1BF5FDDB8A222A637441A12187A5F7D8A3FE8 +F5101F0A037897B812B914B9BEF0027788EF6615CF9E2548717A7014E6A7FE4EA5AB98F4EC5A +90CA0CE1EBC92772BD515F9854088285E8B30A95FE7EADDD9079792EB5C1835D1342850F1DB7 +463418E8EE6C106409FA0524F4489A0CCD550F3F6CF0829D307A17066465B7E302C76751C891 +FA2680CEF6A8DC86261230888FD438D03991D3F1AB48BB27692E15225C98461D4E88FBE3D7AC +5C687CA5BF00AD9E8F2B462D4A5D7831B233053FAF4BE96EA2161AA17BACA8ACC71C9BC218C9 +4FE2E9B7C111A981135FFB24FF17C7B9F106077655A717B4CE1D3C2E774786ECF1914E0E0BA6 +9354A740C212353E241C59E0E2B5D56116D884E9BF97810DE9150DAB9629F145C5E9B45AE4FC +32FC54341C8477A01A0DD3A4915E6B28FEB2C67C749B9C31165C6759581ED4C3C4E19DD9DB71 +E3122F45783A39E3E6C550B3144862065C5A226208C78C1E17E25C20280C1983D2E3E64D513E +E048C73790909E26827104208ACE447F94C0C311331156DC39DACAEA70438FC1BE56A4460A10 +8EC50D116F3133AB541771385049350FF428469C824319EA4F764F129179A34B167CE583AA0F +F99B10A17A387C37902CB5896060D282440823D98CBDF900DE81FD29B3AE8B6B158683FDFE64 +856F44A0396BC9556F3F88B809C24AB8AF31CF58EEDF495E11F07BEB646066DC0343316DFC15 +24AEFFD308BE2223BE8BCEB6B21F0F354B70BA28B6F8E0A27FC7EE9A139063201F7EA93085DF +13CAF37620402ECF8D6F2899CDCAE75A2EA83689B764314DEDF8641203AC9ADB72107AC68735 +FF668EBB8778FBC2818C20A6B9E3534FE12DCA170B59C6AC5C0A22C829AE11E335DC023D27E4 +FFECF33AB63A84A6C052E1CC429060474E0520F3ABB4808F4B8686A105B2C1D891E22F123579 +81F94B77EAF42FD253462E926686350207C73D1BC84BEF430FC1B3BF7487B5073C7BB7E5A487 +31FBAE9B07F2A0490259516E1003F32E194AC7C1C0B571AB6F8285E33CC73582DDC9AD134944 +F8689EE23BB77DFAC6F56654615BA73D93448F2D48B9E3A73EFF6ED443B861248A581B5285FD +9F8A01BF7F481B45321705D55C29419B5F5269B17C27CC63FE88A4CFEF3760FCD45C6142C131 +5893BA93527B86B39D2A9CA51DF530CDE04DB3833F0383D57CFC1BACF30321809A1CB1C81D7E +6AE714D0D5C2982ECAD08454CA3B5A4D1579BEEC2D5FB151C32BD98CDB08534895E0B9C7960C +24C55179604028FB0CD044BCF1A2D66E3729EFA0B343BD7A5DE3884782FE884B0825E7C7D462 +00842BB84BBFB23DDE76427DA96BE1FC0D5D5E24CC77750EE2574C02D7DFE3C25494D2079D78 +FA2025AA1BEA4387BD3F41F7171213853C4FD29D086A343364F7228D856692E39F7C4F3D74EB +DBE42893C1D0B6BAA18E4F5FA20016627105BBDF09C8184A149F5C94273C146BB36C930EE8B8 +D8821E96331FBE2A1E585D0561DBF53D3827D2A6AAA294A41E642D2CA6E542F5A25FC5CA2E7E +D6C11863E11169FF37487EB5B5270109CB4E155FB6F6BEBE47EFEB3FF9F54052AFD7DD0182D3 +BB5D17A902EED350D06ED5908F0232C01D9DA6B3F4ADD7B7C7E76BDA8712599C146FD6F6829A +313F33D825838CCF07F964D1962822F45F1C209FADBBA857916D79B4122A05F08CADE37566B9 +47140A176B440CA3E0CEB98C5526D19CADFF1DC7AD838B41942C3FD2B49DF898EDD755AC381C +007931639858394A9D9641C2CDC11AAACDEACA6B08B2E9ED37E8845E94B39DE05EA6E75BDFA9 +016FAD451EA9B7FD01E059CE232B86B12046316E5D779E90009BFA8BF44CE0AB028FE736F8A0 +1BD1057619387FC28A8E08E1F5FCE7AE84A7FAAF5367106FDA990ECB672C301F187155CAD70D +5870C505A1FC2CA7DC031C371DA1CC9E9AD7FB2F745915B2EB1D69AC268A4625B0F0F40F9AC0 +3EDF09C1C6593ACF437A2549799928BA0B68E682BEC15A68165BF75291EF6E745D515A8E42F6 +05910A2ABFB2F9CD93B8A6EF793E8D8960DB2E3D646B5759DC8B8D46546DB7556964DC74119B +AE89158FE3BAEDCD8D8A02748F3E2D2CEAFE444A98B7AFA71FCACFE3C3032433994D074B7A3B +3FCB00AB939EADFFF7069619676E2AE77F6FE44D2245988B56B1914CE9F95E166E1BB8CFBB4D +B2394E67321A7EB0EDC85012ECB0BCA9AA37523F2BA7BDDB595A5C392451C819963D8FA708A9 +E67B5935C4C9A757C8BFE5C1E2ACD92FEC11950327D554B766A416BFAF376D3CD2E3B8BCA2CB +3EAED381AC35FEB0269F48FA2B1001CE8E33FEBAAE14F8F828AB55A4B59FCB86775F8EF472A0 +EE4BD82DD57D23F7233A13FCB43A1F8FCB2E15B1A9FE8AA002A14D8E1D5A61D41545FB26BCB8 +AAEC5C80B96FC62959051A5E9A84AEDB59D2F684F807E87A12DEFCB2FE3A459966CED210F1C4 +F63F6A089AC980B4DDF530330DEE2D2694BE8C661DB563A0E646F2AC651DC6A18378A8A5064F +4F4689886ACCBAC563022F5271C79776629306B0E49CAE20ABADDA4A6010F4FC9985F49E5BFA +A0F8FA506ABBD49F8E69B414FBD50D87BBDED63814F064F4E582D1513E0673A9E9F446B8B2AD +5C23B8A3952A7FD964779825A56D9156ACB95EC23DC7E96ECB6D4EA5F79F50B115C119D6FCC4 +F0584CA9BE5809700E6979BA6AF385703A7CD461510232EEFCA0B1B6EB27AF23BD4D43289D7E +DDCE5C70F4CE3A24175F27FDE7E0283FA3F2C6082BAEA6D5498310F5EEB22E068AEF5F1F895C +2FDBDB80489243930AA66CEA21BEAF643E98D7BEBD19940CF44ECC33F3A5922137A11FCD2D22 +AF9E5DEDF038F2283CCDD20780E9CFC0D5E38BF7209460C648D4F6DCE3B5CA296A22E665533C +51476E922A22DD6E388167735F24074E6BE5872AAEC2F8C22AE779A16CE527CC69E4BDBCB65B +7543D5E73679D70E0F67FF8D8CC19C7769687B18BDA9EFDA3F47E7FECB9C3557D78B487CBBF9 +4B73F1A9D76298B1219ED27062DA265CAB10F8152DD5AF38DE7D780D3F9BD4C761428AFE7570 +619662893784A7826215075934FFC7A90579B12B4BA2ABEA90B540F05672BB1CDFA809676E2B +A187D0BE77579D62FAA1E11A555BAEAC58BFFAF644758200D03D2EF2EF63E3EC056589C2057A +AA69590CD82E7E1AEDDA3A5299EC8C22D488FFA85471874675DA148E0372601041CD55B75177 +988555F273F32B3D13234A18987DB1AA8FE4C7C3B5E5725F22B5003D86D314EE5EA700BDECF3 +C84E9B7DAE522F217ADBC6863C094D6F963CE23BC2AA688E0FEB045DACCCE8E48F4C97227AAC +1F99E5AF42F220B87F2291F2199A3C89D0FF7EF41C2AEEE2EDDEC88927645AD65D08A0296F34 +FD8EDE94B90E61FA6F6AADF68B78627D813F50F81878E19A47974225824760556E3C5D037840 +56C2E1B23E9D5CBE96A79969F9D024F1907A6E56FBC8EC29E004F916647A0CFE83A44E38C998 +8F531A8182852B7B97A03EF386E99DB3E6496862DD1335CDA5A371A51F64CDC4E0A742B3FCEE +8231CDEACDA7D039B38BD688EB42542B483375F8FB7214117FCAAF6E15C591463ADFF15AE5A2 +8D2AAABB043BF0184C2C328A41A01C05F85FBBD9450A51C77C5D7D66DFE43105DCA7AA424F8C +014D5FCE5563A811EF85F0B042D4A574C2A57DB0603D1C66DCE0E3629367C0A6D12A24FCCF5B +A6339517EB5E20F840E9F29C56B3C4C30C89548A307A8328CA3C4210E37A964A8C95F7FB1BCB +1087B1E20529368091F8ADD639EEFC382E807BB0CE4ACF34824E5193E98111C0511EBCE60AAD +5CA507597164AADB45686A8936912BB5945A87E71D388BA87EFB1146C648A4EEB5AC200FFC6C +0086FC7747A8BD64F53A43DDDA309D270A363206253DD0618ECAA0974B5A91161B9903E95AB5 +CAD5A05EA1357FD0A18A7D37251A2E6C8BFC8A5048544A576E3E0D0D3D5E410340E9B4138CE4 +34E2288CE99CA63AF32D1948F4EB1CA763512AED0E3FAF514C82B0D76DA21ADE7E7A457B950F +E7B8C388EAFAE1D986C828157871793F6B1BB297A45C7C71384B08203CBC380E36F26B9C486F +CF770D5CC26C1CAAD70C740F38EF70161E235C803902F6E5F967398DEE4DB3F983E08F0B98DB +1736018D2F566B7C47AA8AC67B40F20C5F766E0D4BBD8351E7287899431A81AB7B3A5F7C936B +DC56E46DE0BFCB1DD78A9C36FA6AE32C2C74FE7C1E929EC2115526D06E3963522B1ECFF0F9D1 +C8622913B3C6BB81ED09F4941409F0BAE3310470F315C711BE73B20E02E9B8F6065D9C514016 +BD39AB7AA1982B314A2F0962621E97629C04BB81C281C2E939CB5E353F18F048417A0ECFCBBD +3AAC47D81B791BE6352E7FC9F5315CA49228EE2365A20CE9A1AADBA56899341B1FA835FEE63D +A49E81E529F6A56CC5002FFA3218DD02673ED5BBD6AE35CDBA71CF04BE375C45E54D11CB22A0 +B5E75E12FBC17B8DAC6E4D774E9F7963AAE68A3DD1D37D7853F1018E0662BA107930A763F5F2 +44C28D3DD8D4761193948D97AEC7DFF5026A242E757077789DE3CD5E750B49DB8D1734C1ECF2 +8165655693A5C158224476F63F30B12CCBA7C4A49C1E907ACAB3CDF96AAE2F1BE7B87AC5E7A5 +580434A1CE747C27A2263866851A8ACDAA892341EE1A0091225DB60CF2FABDFC16C2F452AD31 +1C7189AC12FF260A09004DCCDBF9B44B47BBED7ADE26FD1456F4EA59046FE48FD4ABC36B8458 +998F112E853F220B77392F188B668992EA0872B9171BA3449BA8A12720959A5585AAF68A8729 +CFD559DB8134E0D401975F6FC19BBE3FBE219108FD2C17873A69A9997DAD066797912FE0AA21 +61373DF669C723CA4473AA543D0FCF7746FA0C584E21BDE99D88C683B4596F5BC81764EDAF16 +5322BB28C6A4E59C2C34D285EDAA92D40C55E878355C98A63B602F4297B8742985F7560CB1F2 +4A8653C6D40FE06EF1E3F718BBDA89DD392CECCD7EFDBCB6293B6FF14699A2D45397009FADA4 +2CDD5903717F9A7903F916995727362486695755522440824FB7594BDFEDBD92E1531BC0F069 +8E360747769E242CB11D98107C35026EF6A340DD30CB40DC1C8E946DD0C561466016AC15E099 +C95EC4DA5FBD4FC8EEED00204FB0AFC4D28A5D0379B37937B983024EE9541B60F99FFA62365A +5804EB6D2454A12AE7D91262A0DA03C007F8F77741C44588ECE93F4EC3C032D7869EC91A4C29 +FDA41DD7FA7ACFA1ECEB92E2E88BEF0988D45B2FDB07E6B70C7B0AAE681C788720A11BDD4AB9 +871F5199D51314655BBE267D4ED4A65680FFEB3961DD62C069328A47E8F7F48C48AE2AA3DDF4 +BC1AF61AA8F31BB2EBFBF23BE0FA86C45B4E348910DABBABF4D4CBBC3923A1E0E85BFA452F43 +BDDD82AE26C16DFC625DA03E96AA45055A72FF2B18C53DD54378F05BBA6538144A9AEE4267BF +4441ECEA0DF31BB1989663E3E67645FDC954B75E52D43EBE67E1B51270F3280AE1CAEC9EC59C +2EB3050510660F5F3E16004BE9C4B8210DC81F8CAA58BFBB93430899361A302A2AB20CCB2EFD +B42BA013105612606D7B3EF609A5757BBFABA93EFAB8F05980FC472157ABA5CD37A8676B673B +3DEB8768CD2EFD987F9D823B4B4C9A7E27F7CAC5916EF5BEDE99C33C3575D91860A52A9AE3CC +19440952C619D0D6EF3968B33A311499AA4B80AA86FB5B3B9C27FF5BF40B118C9896959ACAE0 +5E288B69BF4FAF6C6A8DF934FEF5E3C0A79E815EE68ACEEDC66A4E829A5D86360CCB8E9394CB +45F6F5088159F97457E6309934B6A6E578006FDBBCFEBBE38B2D7F0F9A0B117886DCCAF9E4BD +9650BF97E0F48D03D8C6E8FCA7E5849757B1FC34014DD88B1C0BD9550CE6A78E70D4BC274CC6 +33FA9150FA400998BA99A679ED07982651F8D9A7591310673506650BAA4CA0A43CA7348CDED5 +7773C94699B81A202986E163CAA398F132A0336D0CAD0F76906EAAFB9ED534E0C2A47A46A280 +55D34842696140AFB2AAF466E089CF8FE1471835C620C5E84C9F39FF3F49A019D16740234D02 +8638D2C9BC5C298DE351F654B70CD0586B18637999CD3749D3B6DD54019DC37B21698241AE19 +3CCB7A7E530AB1EB5DD01E6D8D1B6DB30D67402FCDE4DFD73F63079343ADE2EE3F4B16854E05 +ADC88EC7CCAECE39D92B3E7FE19AB929A2D5E34902C4F3395E2E2030F9B07F78CBCC9D0BEADF +D94399CA796997E0A2D95D9FC6FD542F8035C7F1EC66358B3938BE62569BCAE6F204A0000375 +D5BC73D28592F996FF92EDFE28AACA392AE5FA78000471C77008AA977BE2249151A864E41844 +4DE401CEBF75E0C461DA7701FF3EE4CB56A2240B6B699241E194257EBCC957D4483D93118E27 +41F80846BC4A8B6242A78D7B3E14716B08CE96A857F94FDFF21C309FD220CA9827C3709C98D4 +67E1A68B8F3A73F770BE3A15836EDAB3342112D3CBBE707BAE3144438D1339C59C168113BC62 +D85423976FABD03E5A98899E01CE4594E60F8BDDEC376CCFC31857F009E62A519CCF4CCC978B +C473B8038548BBE6056A08CF7B535CC7A0B661F13A04FB7AA35548174F41D789CB00AD4BB2F9 +D4CC7ADCF61140801B02B2AADBB39B2F280CB93EF227B85417B3EF5C667717ACABA9BC431049 +58816C21AA60CEBA2722FC83A197EB6BD4FF3D1EA7AD087C52EB346820EB90554B87DEB0BBB0 +FB463EF954FFFA26E82F0487C740DD414F91FDDE3BEEE135DEACB7BA03ABFB5924E958A3C7A9 +4FE776FDAC5AD93D2C88903A773EDADFBCFCC7317D909FA05D522ED02D9BB80817651158C7BC +936650D9886E8CF76E414186C512872925464C6E7ED1A9360D6156BA35FF52ABB7D098A9AE4D +F9F0F59C7D3CCD26E43384127550034E1A8DB504CD1163CB6392387D666C4F306A8CC22EAD78 +C9BE1F342F23E06D4AF5B6379C358D46AFBF0AA67F5ED4AC6B7D33CC3B933821057C5DB934BB +CDE08FAF761F2DBD59301B8C30E821A4877E323A94399BDC318D0AE1E38DA1550150EBA6CC88 +7EFBBD521B5233E55CABAD81D047B51BE7C4E10BA3CBD5107900D6890E43F2D32C08E9211046 +95F4D4B27958E440244B755A6628D9C5D3355A1A657DA9FB011A496F9538DF233358A5163F40 +65B34155CBF12F59FFC2DE0C5ECCAA40D1CADACBAC8EE05D323ADA358654E648EED795AEE77E +46ABD63591202C1369A63D4CA81A82461C2EFFABBBD9DE6388E1D4A8E49278E994ADD656171D +5C39A64A891F2D79A603FB4AD58212435A07068740CEA71D6FD5EBF5FDB3FA08D90ACC619E39 +A26D5665813B227D98C0AE61A80E2BFB06E0698E3D04CF8AD82D1D051E72308FF28E4FDEECE2 +ED845C0B3F5C9335CC2B4E2512D33E94960BE1E8D22487BB2A2693DDCF054813886511DA6AFE +478CCF877D4129289DAADE8442C5A823F5146887845F016B06E90F097417012857D3375CAA3F +BCFBDF6159D042C944F33C502CC553FC9DECEA945EAAE6D73B48177F57D3E7AA55A65CD2B937 +8560FB97B8991DC5F5319C9EC912EC9E907317B24008D69FF68EAE5C9BBB70156565C3E1965D +F273CCE78B35C4C29751EAAA6B6E33A3AA245A468922A5EB89393867F016E12352FD2F12EEA8 +F975BFE8D49DC4C8DD0F2A7C585EC573291E61AAFB5FACA16CEFF22767D55257B02499C1BFF9 +A8F1399BAE2F80527DEDCB50E2EC3A3A645B0E74CE67AC26250CFFF217D1826F981104569FA6 +25059EA30000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 + +cleartomark +{restore}if + + +%%EndFont +%%BeginFont: CMTI7 +%!PS-AdobeFont-1.0: CMTI7 003.002 +%%Title: CMTI7 +%Version: 003.002 +%%CreationDate: Mon Jul 13 16:17:00 2009 +%%Creator: David M. Jones +%Copyright: Copyright (c) 1997, 2009 American Mathematical Society +%Copyright: (), with Reserved Font Name CMTI7. +% This Font Software is licensed under the SIL Open Font License, Version 1.1. +% This license is in the accompanying file OFL.txt, and is also +% available with a FAQ at: http://scripts.sil.org/OFL. +%%EndComments + +FontDirectory/CMTI7 known{/CMTI7 findfont dup/UniqueID known{dup +/UniqueID get 5000825 eq exch/FontType get 1 eq and}{pop false}ifelse +{save true}{false}ifelse}{false}ifelse +11 dict begin +/FontType 1 def +/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def +/FontName /CMTI7 def +/FontBBox {-27 -250 1268 750 }readonly def +/UniqueID 5000825 def +/PaintType 0 def +/FontInfo 9 dict dup begin + /version (003.002) readonly def + /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMTI7.) readonly def + /FullName (CMTI7) readonly def + /FamilyName (Computer Modern) readonly def + /Weight (Medium) readonly def + /ItalicAngle -14.04 def + /isFixedPitch false def + /UnderlinePosition -100 def + /UnderlineThickness 50 def +end readonly def +/Encoding 256 array + 0 1 255 { 1 index exch /.notdef put} for +dup 0 /Gamma put +dup 1 /Delta put +dup 2 /Theta put +dup 3 /Lambda put +dup 4 /Xi put +dup 5 /Pi put +dup 6 /Sigma put +dup 7 /Upsilon put +dup 8 /Phi put +dup 9 /Psi put +dup 10 /Omega put +dup 11 /ff put +dup 12 /fi put +dup 13 /fl put +dup 14 /ffi put +dup 15 /ffl put +dup 16 /dotlessi put +dup 17 /dotlessj put +dup 18 /grave put +dup 19 /acute put +dup 20 /caron put +dup 21 /breve put +dup 22 /macron put +dup 23 /ring put +dup 24 /cedilla put +dup 25 /germandbls put +dup 26 /ae put +dup 27 /oe put +dup 28 /oslash put +dup 29 /AE put +dup 30 /OE put +dup 31 /Oslash put +dup 32 /suppress put +dup 33 /exclam put +dup 34 /quotedblright put +dup 35 /numbersign put +dup 36 /sterling put +dup 37 /percent put +dup 38 /ampersand put +dup 39 /quoteright put +dup 40 /parenleft put +dup 41 /parenright put +dup 42 /asterisk put +dup 43 /plus put +dup 44 /comma put +dup 45 /hyphen put +dup 46 /period put +dup 47 /slash put +dup 48 /zero put +dup 49 /one put +dup 50 /two put +dup 51 /three put +dup 52 /four put +dup 53 /five put +dup 54 /six put +dup 55 /seven put +dup 56 /eight put +dup 57 /nine put +dup 58 /colon put +dup 59 /semicolon put +dup 60 /exclamdown put +dup 61 /equal put +dup 62 /questiondown put +dup 63 /question put +dup 64 /at put +dup 65 /A put +dup 66 /B put +dup 67 /C put +dup 68 /D put +dup 69 /E put +dup 70 /F put +dup 71 /G put +dup 72 /H put +dup 73 /I put +dup 74 /J put +dup 75 /K put +dup 76 /L put +dup 77 /M put +dup 78 /N put +dup 79 /O put +dup 80 /P put +dup 81 /Q put +dup 82 /R put +dup 83 /S put +dup 84 /T put +dup 85 /U put +dup 86 /V put +dup 87 /W put +dup 88 /X put +dup 89 /Y put +dup 90 /Z put +dup 91 /bracketleft put +dup 92 /quotedblleft put +dup 93 /bracketright put +dup 94 /circumflex put +dup 95 /dotaccent put +dup 96 /quoteleft put +dup 97 /a put +dup 98 /b put +dup 99 /c put +dup 100 /d put +dup 101 /e put +dup 102 /f put +dup 103 /g put +dup 104 /h put +dup 105 /i put +dup 106 /j put +dup 107 /k put +dup 108 /l put +dup 109 /m put +dup 110 /n put +dup 111 /o put +dup 112 /p put +dup 113 /q put +dup 114 /r put +dup 115 /s put +dup 116 /t put +dup 117 /u put +dup 118 /v put +dup 119 /w put +dup 120 /x put +dup 121 /y put +dup 122 /z put +dup 123 /endash put +dup 124 /emdash put +dup 125 /hungarumlaut put +dup 126 /tilde put +dup 127 /dieresis put +dup 128 /suppress put +dup 160 /space put +dup 161 /Gamma put +dup 162 /Delta put +dup 163 /Theta put +dup 164 /Lambda put +dup 165 /Xi put +dup 166 /Pi put +dup 167 /Sigma put +dup 168 /Upsilon put +dup 169 /Phi put +dup 170 /Psi put +dup 171 /sfthyphen put +dup 172 /nbspace put +dup 173 /Omega put +dup 174 /ff put +dup 175 /fi put +dup 176 /fl put +dup 177 /ffi put +dup 178 /ffl put +dup 179 /dotlessi put +dup 180 /dotlessj put +dup 181 /grave put +dup 182 /acute put +dup 183 /caron put +dup 184 /breve put +dup 185 /macron put +dup 186 /ring put +dup 187 /cedilla put +dup 188 /germandbls put +dup 189 /ae put +dup 190 /oe put +dup 191 /oslash put +dup 192 /AE put +dup 193 /OE put +dup 194 /Oslash put +dup 195 /suppress put +dup 196 /dieresis put +readonly def +currentdict end +currentfile eexec + +D9D66F633B846AB284BCF8B0411B772DE5CE32340DC6F28AF40857E4451976E75182433CF9F3 +33A38BD841C0D4E68BF9E012EB32A8FFB76B5816306B5EDF7C998B3A16D9B4BC056662E32C7C +D0123DFAEB734C7532E64BBFBF5A60336E646716EFB852C877F440D329172C71F1E5D59CE947 +3C26B8AEF7AD68EF0727B6EC2E0C02CE8D8B07183838330C0284BD419CBDAE42B141D3D4BE49 +2473F240CEED931D46E9F999C5CB3235E2C6DAAA2C0169E1991BEAEA0D704BF49CEA3E98E8C2 +361A4B60D020D325E4C2450F3BCF59223103D20DB6943DE1B57C525641D2B175DB6EFE542504 +3CA62CE886B802B23F41D33FF06CB9EAB7DCFEE2AB63C1333D9B042FB0A32D7634E2BC65BD7B +7C53695C585079EBE138B40ED4BC7D06B30C88B5E0C8E93FF20138D513B24866986C4A633304 +FC4945EA8A6C6BFFBA1FDCC8F7474BA3D997548C23060E15A15687E9B58A8D2E2D749776BA36 +4A2E28FB03DA767645CF34BC9E787E5D3A5B05F67D169D710592108F4647A0004F7115995025 +3FCF9A25028DBDB4FCDB2AB5F17E49A5DEE3C366C693E052C153FBB0CAC1A6DA1D6694BC2C1D +F8BF82CADB8AB9338FE35FEBDF8585222FF26601D8EE9A381D14C09DE3741D9451F5F7142C19 +D332B336738A0A99A6608D13C5F2604F56FE7D688D75E52489F323C759EAE626E5381D2BCE5A +3F986BF837D0CD7DA0F9A01B6B9481B3813809B3CAC4EB2FA184DA237A362D0E08C6BEDE8137 +04024670BB97394480CC9C09E76FB83CFA4306B24404DFA919E1D3AD6BF77BEFF0D1FC005F2A +E9F05162909D9DA347E6B224F64F72C68D0A6300E516F93AFBB7B5AE4F92778689C7D4FC9055 +0D83008BD1CA607965C0B677D8A730AFEBC3740A4C6686F81C819A3F2670502CF6CB136DDCE2 +08A6B62D88B4C465E169D93F1A5B73D9E5C4C90DAB2C429B1BB07525722620C6DDCAB26EF3DF +82576216AB9271F473B5F8977E258FEF34ABB3B8FDAAA850A91B880C30890DC9ECA751896BCC +965EB0D380141C7E595C004CD6E6D67A99A121CC280FCDFD4F4273937EBF98F25F903F02314E +8214E26CE648F49CA0CB4557BBFFAAFFDF552420BF60AAC189CE34673A4138EB90DA281B41E2 +8B497C6BFB20C8CCB28D105F026471324ACB7496BE21D9B9FC4B6AD7884915165C0C24100CE0 +5CA0A1A0BEAE223F4E222CCBC8EC789C62B3F56127DF4C2A4CAA46EEFE23CCE702E4CFDE119D +7BB2137246B0749C9B54A979B315223F48EAE5C4EC74F6AFB7265AD76A9AED06B6EB4A1DC046 +13305BF3A81D9AC764175D26E864FCD3FB06F7E2C6133982A0F9301552DE16E5630C159E8F2E +9DDC69D72976C12F84955B590C7CCD8166393FD27027BB56CB89184E4E8382413AB143878CC6 +C86DAB8B6683D2156377808CB344E3FF5FC0EF4175E76558AEEE2000515612B0AA556035E5AD +483055819D1DC39D31B8417B44F30B50EC95EED91820F59CD48FE51578C1F49D6361C5DDA73F +B5B8E9F4449EB93BAC1AE0F0998B702A611875926D2A6AD4DF923E37F4E0ED4CC4C3C6AB34C8 +D42ECE4A35BB7258E9083338D02B49466D6BCAC3460514BC9957786CAAF42956ABF57816DF99 +5F6240C30988AD7574F445D5C9BA58F4319A64F296D493919502423E39709CFC84098B0362BB +6B6977271C243824EE0B99DF386875F4F35178D33B1DC179C28F2C39B0A469AE4A429FD7E136 +97068E67AAF9A9592853E2C71743EE60EDF0499CBD4C2287799909DA8FBF335626BA6CD81F66 +A4C744EC0A14AA19E10E2D025FD9C9DBE1D8F498FDE31D0343197DA81E088DEBCFE1CCEAF7CF +BDE2BE450BBFF4A559F5C46A2FCCCCD7EFC75F370ECC0FBD2D757359E01B206E95206DA1553F +899ECC450AD38664564F9C11BF5C10F7D7A12034456B682DDC2C43DBE4CF1FD692FBC26824F2 +3F377D50D03786E923241BA7901F05E99E0B43398DC657CCD6D554076F9FF465782E0465443D +F4EB99291604BEFCA6CBB961F4F8127726DAA7C28AC1764DCA1794CA9C81D2040ECD9E4F8C65 +3F3BAE153FBA4199CB78E2628787F9768E712206DEC4D2A4C7A640BCC5F732978539841502ED +93D511968EDDC61C7FA6E79B1AB54A1734520939B46E2317631DDEABACA5517CF280687BD9A0 +30AD13903CD7D271BBF2692C3A0F6EB858681DD2F471EEA569A4F1F6E4C229869FB9ECB92257 +0CD9D749F8518730B09C2FABC8ADD0B276E47AB6B97B9595F7119968E4F655DBC911C4CB7D69 +124A8E7D2EE0A6121F6D81518C98EDABCBAB52E8C40A32E7BAD0A43ACA1E3E1B925328FDDA9D +6BEE7E146A705A7A3E07BF048F4779A51307A4E750995E6C5CCE666C139D3DD96A0B5D18A981 +1B01679C9A9D00BC368F50571A60E4F61F872BCD9B28C70516C11163513A4E580B8E863FB368 +FB0DD03C3B9319712254597C74BA860A4E4DCF9A01D66DA37A3F5E8D5CAA9B1EEA72E075310A +5DA436C4AFA3031C3166F24FECF6B752C52F3CA07470E3453E4373542E2E0CBE1D200A34E6D5 +9ABAE86CE3224BDCEA7D1755824DA0A2E61E5A51137CA02C0C23B7902D5F3221B087DD77AA71 +3F8A9177ABACA6D2FF4A2FC9DC428D7A7B6416B81BBA821D058819973703F86949A94F3BC5E5 +90A9A4BDA4587D4ECB8125FA5D396CF8308F81F64D34B131FBF8F8CF8029FA0654616F1FD307 +937BB604CBFC0DB5D2BC2CEDEA0A731DE8371AE8E8970F9EDACC93D215CB2115AB890C9F1AFD +5CB17867ACC6B00EBBFBD506E5B6E2626FA92BFF6D2FD96BE1E4DF76C362A08D07DA7EAD1F6A +48E6831277B1ECCB27438BFB4E9DCF5132E907CD4F2B0F2C01D9FD525E8C984B6E65E93409B3 +B895C505C6FB0B8EDF9A0AF691838FFD8264B797F5BA3DE6D61D86350C7EB3F87D02D26B13B7 +332A776AB0D74E876E1EE2A68824E4B0BF0F7971BAD77DF15ED7286284AE5C87A5C0E51046D1 +EC3D6288E4339CB794374DEBE93099542CC2FB38290DED2F55DD16A69CC5045B52D8EEB90873 +C75848B01E686D8EE702D32077A4CE069CC2A0EED4E49DA4E4971E9A463DDEC12C95BC8D03E1 +572CC44A8066A5C8CED11459B2CE771470C44EB6D61BC92615300D55C286C0D75E723F873F77 +2A3DD31D67B4638C1CE23B6A14C53F33B067CCE33858F6D9406563369AA1917F227E61FFB4FA +C242697833537DE3F1D377457CA3DCFB0B5EE65026C2477D52990767645B6EDB08521AA4F4CD +3261F62573A3CBD0095DE192C430015788514CBFC76315F6685045D16E1762FBF88CF3ED6A5F +374F3F9EF817754746874E6AD764DA91BC95938175151ABA3D59426500D360C3CBBA1350E913 +CF909A69330EE16D7FD3F57629AD6D522C9005DC509049789671B49DCC930C27AEE0F268F26D +BEE5FEEF62D87677C559D347AD6A0E397B4CA251A1458B7E91BC40499D48F06DC1F564FFBC9E +C6019C8FF974D7AC6842A5D297BCC0FF825572F4D8CEC5784B4876ABA204BA3783B0E075679D +90551CDBEB05F9A30F418FF7836E159D35DA0029F5609BD7E18E42E4370D90CF6FF3BB210504 +CCDB1716B2078D249514AA1879AF4E8991E681051BD6059D6A6C187E25C2C68C05E0728055E0 +BA675EAF5C804365AB186A7AE4ABD97E5F1E15949B2B1072EBC1376D48C139181E4B06085E24 +08C92301A832EC5A7BC43A002609EEC7B30F65857DF1EA85D335FB8E096AFE3230BE11F48A43 +754635F55767AA054A84CC0BCFE16525AD037853318D6A76CBB6A1B3E2397FC100B4740131CC +51D752B6AEA6E6E92593FDA4D43532265522C75BC1C34B56382D0768A590855AB772F5F584B9 +EB0C2CC375E11DB81CEB8763E52C1AEB0205CBF1B752C52B6ECF51358D5BE2CCF0C81457CF83 +5770748B311BE1A4166E102C015E4943CD2B76DF0370FC2D4F9A5E2BDC4DEAD2E34E0596265C +9E1F3248361B04C9C778E4291BBCE1850793B53360C1E2AAAF4D6999D86E5E93A881E58442CF +FBF6C2B5E45B045E815689068D0987568ECCB4FBDC715D7E78B013F300EA1DEDA26B9A3D5E4A +BDFAD80A0CD23C44EF9F287BD698C65BA07588B594A4773DD79F266E95110B0F875EEA281194 +97562D5F9DFCE992409D3C5EB03022FAA5086C2793FFB654B489FBB15CF3E79F6D1F8AC025F0 +E9DC16F6FDA9C4DBDBE66BC2F8829A5B5AF2465C82B3E037C66604290DB6221307191FC98FDF +98DCB8CC9C56DD32651F04105E8CF638E4CE4BFFF88938B189F0DD270989A4CB9900ACDDF4C0 +7042735630B268E4F6FDFAEE266F59031B8B767FCA8592A50CC55ADE38A9339F0FA58D2E6EA7 +4C9A7A3D83260D67DCFD61804AAF20C5A88B18CB072C8F3BD193DE598AB0B9E7AEE8BA5508FC +1F0B163003FE04B8AEC5B910501379AA61B96F21066D788B0DAF6CC1A05C8B10ECBC6A33A1BF +F50EF3536EB44D65AE97A9A5B8ABC10E6C4C921238E74C0618BBEB04912F859AE3DF784CAD8C +3EFE358DD4A712AF338378453D57714B5850A3DBF8A20A9385ACAB81DF317EE22BF92611F68A +9BDD8F57102A095384C871DBD1F7D6317D3715437E3D0476BDCC810E46DE0EE6978C2CB54D68 +ECF95B6E7B7015F36B85780EC2A67983AC4A75CB5198DF6D1442E52E2902C93650548A8BFFBB +39792ED80DFF32DA2F9875E37A179A2758E16A616FB7C5FD7C4DC8B859D2F2E9E7636EAC0A0A +C2AC0DF797773CE4D0B36E2698033DB852EA17EA52FF421810B6DDBD0BDC65234945A11E006E +FE20E26C1029F77B9FA797133EDAB3417CAFB45964C3DEB8F60DBE1345C5343891B09370F299 +58FA6667C8CA67AEC2AAB738BF76A118DF3939DD57358F66AE9148BDCB4694D7AE12D223FCF3 +F9C62C0BF5D25D95E7359F99BF8AEFCD54C38FF354CB217B6D05B08EB4E959F45E31DA83C1DE +A90CBA7627132C6B08F6424C985BD6D79CF44D1D4FF026EBD71956196D6364C76CEB958FB88F +580DB2A8E6220F2F4919CFD57C5262DE45BE52F6A06F2709F882707B43AB859F7B28E698A236 +01AEE79CE4BCC706474936AEAD1B8153F89DC1AAE89C11686CEA63C0796E3D8C2CDD7D502404 +FB5B5FE5CD85B4541CC9C835767AA88B9A7560BC32A873D6A71EF4FF1F805E21098FB40908F0 +2CF5859DC4DD325EDE3E6C48FB221DEEB81C166AF27B0284477FE8C2023DDF25F6856534420B +E4D78BFB315864A2990381F2227C4EDB97B043BA81D0B42F37FE97AF7E67B91CF6F416E7AE0E +CA013FC99EA09B014515A22C6A861570CA46CECFD40142CA48F47A0DA71520E8C5611794C70D +4D51C9C041C0367818DB573E8305B51A7B0FCB8A1349BB4C3BEE5B48D340B198E949B9230158 +85D0BD2F90AB268B2AEAF80A554FA68361B7BAECAE1D15ADDA6624103004E572861AECCDE4B8 +A0585EB7ACE91CE05D138461E25BE7F879FABB22B27D5C0D9E411EB4742D45158851DE729848 +5388E321130C9728AE5099A00D944E85F7ED832094EB7958DD8C510B22BBE5D167B089500E2A +D5C39AB02AAABC57D05C08FD8999B21F3588DC5213C9235F00056D6B2C210BC2AF3A63A570D8 +BA12E83DC0CD57AC1522C15AC2DE125A923BFA7A7F1C837A97E0E59671AA843DC109CE875117 +6738F713F40B4137143A029D3731F17FB7B30C6C177149764F1D058EA1B9DFF29851B7BCC793 +82BB0FFFF0C0F085FDDB5A91B801392F9690798362B73D8B14B53B1443E6CC71EB84E3B0082A +76D00D8FA9879DC2C6CB36ADFD5BAE8829F19F3FDB4F57F6C9112390825D16D7CCA3ABB206B7 +EF329C9D1046E6908845E62B7A2EF47D584C8C0B2D92DA0EC5B65249D87649D0150FB5878CF5 +035A9EFC7C10CACA9E6C3973712B41483481540E7CD23DE9101B3972312B11646AAF493BB080 +56BED6B0AB7F5FE3FC2878DCA13553033588AD24402B7CEDD31FB405C04C42643FA29AEBC78D +897778CB82EA4A72A2B8CBD46D4954A01E8C11D2F1D3953C971888ABE3525212AD06F58A5856 +4E830EDCBFB39125D1018CC30D99F2D2F2417BC22376759BC0221361C77E22B63815F2078609 +487E0AA1E03B9213FD603C74D1DF5B103F348F1CA97D5667435D9B3DE1F798E292F6237F0E7B +7C91CF3A4CA1A569244314D7D1B79FB64BE301DC1F2CDD5AF963BA6DF546990A691FB2E24CC2 +848A5FF8EE6AC114CB0AFAB96D88CF1190B07A1E1072B04561101168306FA4212AB1E63CA891 +A1852B8244EF863E1EFA3701AB0A0DE8E46107B3C1F15181ECF1116CFC93308B4A84A23C1FAE +646B9B6B6C84FDAB210A160DB44A6BA0FBF0A285B36070337B8D09CE3EA47D821929476353AB +5674C3133A05F0B9196ECD06C5ECCB76C498EA9AD0521BE1CE7E1B022CC1D1CBFF45E45DCD05 +8E6AE87504061CCD715E24F24517C6CF5A2B94352D751BB5128FF4D696346FC2FEE087FD073F +5CBE0E8F2D8697400ACA164E2B81CE4BB1AD6F2F7E60EE473D6DB8FF561226B492062AC09912 +1F2B95E17936B5D0B1282363587AF889B81B07909D1B05BF9780B6BCA5632781AF3693458A12 +5E04712FA32852654C971C96C61238EBC61FF4139F0B33D071C899B9E8A4370782C2867520B8 +8BB5C6323B9B7C7DC8FF9723B3652FF4F7F3803602847B571BA3987FC107D207D9C5D3A459AE +C7D03C844260EB603DBA3C7E87798257F885BD8EAF90DBA58EEC517B2953E453E9066ECAA49A +5C45FE790E09067A67042759FE804225610B639E16F3090BDC828A4073DD246CF0CB239E4E52 +C27C5B570E59B75238E17B2B200DFF5F2C0A2B9D0A8FE4E916235335C3962F3CFDB04C4A3CF7 +14DB5E260316D11057A7F80F0D912D5FCC3B28B5AED44ABC8F0C1BEC8D233C000C09F7030F38 +704EAF4B000647C4C4CB3E9B1BDCD010EFDC01F3A56C8E26AC2109734F29862DC57E1A71734F +BE9753C93E867454F56845649B1A4C79026C46BE142D705EF4331B743AA3432EE6DE582E9BB1 +9A798066F2613079F32059968F4A3345C8FD9C8F91DF896C70EA779B3E6795F6A593ECB14745 +05D1536CF5BBE72A0D5863A7DAF83AE52499A9B9114927776CCEBB055A3F7B15D63A2D68A6E7 +7BE91C218F01ED5B123C3FA06002370AC20488B4555ABFD21F5D31AA1B057FD702B081B3CAFF +6C40B68CB3B1B7F025039430EEE76E8B3C45C00CF12FA17794AB10BFD6617195F023A48FBC7D +9B2CF0CA20CE8077B1D1EDCF9EAC7CF11B8D1747D4E6F20ED8E8A45E655733DDD252B3AC5DBA +85689E2246EC9848030527FE759A52045337376EA743899B7E93DDCFB52C3D7F733ECBBF9552 +0EF943DB0B1A6AD55F50809A47057B8FA4AE4C6AF8F0668D21FF80C2033F49CEE0DD7061C2CE +364D0EADA092FBF9A7FD814B861241780FEDD01CCB23D11E88A70378189A609A1C2847A29BD3 +F141AF55F5FB7EDA1F734E847F27999DC836DDCE3FAFB33F1BABCE6D9C7410AA6D928AFD3339 +CEAEB6875389899F599370B70AC2B65DCF8C809B8B2714C09EE2F329CF5F4DA25ABD3B9E5D06 +50A91C9F69DDB18BF3DE919257DD3D8B075D6E3513ABBEF0F033F2A2C7C8C4B5E3D52CAE8B89 +C5751A2956005B35AFF176493A3B3E1EBAB75A653A37EA4D18D4C95E3FFBE2AFBE12E4A263D5 +E7ED51F78EE6D19621BFFD91ED801A4ABEB90EDF92215B1207CA01F27C06CFC2617F8CA8012E +A45D36B597E9FF67C0D65A2D5CEE2F5DA0AA2B2EF2209F5A2C979244A6D859788738AE27A34F +A366D48C0EB5E33DF8B0A18F5151C55ECE7299500D26397D5B17C26D59E747D0CFAB4F5B48E6 +37965BC59C8E4214A2C50E77C0B9116DBF6DCC1CE5DE7399138FECEA3DEB371294591899B4F6 +F8C887E6141C88B436D88BEFEDEADF020BFE00FC39ADF5BF6481A0A477D4653D3532FFA7F798 +E4E474E5798CEAEA77541646B50E7534B98100C8F4D680C9C8020F4A1DF76557F7F84E0197A2 +053EBD8F16D798CB49095EFA75F3205E32D8A69F731F683AAA25B2BB44127B9910D008B8DF64 +C3DA1E47F2D1A0ABE7281EBF0544C11E23F71101D2FBB9CAFCD196E7A653070E680B42E04CC6 +2B6C39954AD292E79AE475A53DFC26C01601A05B39F1A395E36C5AB710D52FDBF09C34772D7E +2827E2763B2683382186F6F73D70CEE96E5AC74B43B953D2EC568762C2CC1405C0313797A2C6 +206A5676ED05D5FD8706DA37C5BCE85CD4DA3715CE75564DE45455D0ECE77D68674C4E7192D8 +385D936A25C5D1A1D71E45BF4E9B1A82E873FA24628AE1CD8305A7452B56C460A9E6174F7875 +E6066CFAC5397F2A5132D25E45ED4A0673FBCDF58BAD1946F36A0022EB66F12BC48A441F062C +637A52466AA01B09F9322E4C2DF7179B93F329A1F2090AD065C77F4E617DECF3389C2D1F466D +668701572ACA37CCB9E929B543190467FA57F4CA3DD6472D726CF3BF7E43E94F8EA7AE1C0A5B +B7E2BDA9BC330DE7733BD012C4255C62815D622E0FD7BAB571662E5A9F62E131E8C89EA3C55B +D371F2E48C4871867D46F2755430F6C3D820CDB80645241DFAA318274EBA0EA2EBFBC82BDC7A +52897D152D94C87A42A9148EC98FFDAB3B2539FC82A7388268001B71B3693370B690AB28A7DB +BF305E2C4FA2FA09A3BFE89B0C99DBDDE4E18914EFDF8141ECB7BE007E12DBE00E926EEBCF35 +218F0E68D0FFC9CCEF3E32C9D83A4503E64873DBD7AFC8D17E4E83DF7E5C087651895FE70286 +58F28A609509284DA3A0E6424EAB0D125837CA28B1B056D006BDF393ABD5FDB452AB01AE5D1E +6B87025B8EF1F6FDE204111AAF41A0DB98D0431F47F1A85B4B115E0609EB1757E191DA795F73 +6427D5038FE0D6CF06C8822D34374818D4BA69D980D21E0680503D7A796FD1D8535D0C5941F8 +3318E765B3934A10BBD7C426FF1BE1C145745F995F74325DA41901E773DB9DA965633F5DCD83 +7DA08C463EC5DA4EABBFEBE2AD171C938865CFB0FE7685FCA636D76D067C83DE61D9F190E295 +FC8D5F8C3361902A27982B07117C53B5902A5C69DBB86F4C2921BDD6E2223145BB57CC550930 +DF2447C343BAB5CFE5C331B4D983A698D49A5AFCF26693FE8A4E9B84994D2A0D158FF04CC112 +16A96EAB5EB7C1EA4C294ECC231705D764110D329A68E9056D5FAEB2EE7874CD3A02BE03C555 +B00D5E4C60B09A60D9CCB3D03EAE474CF07840448BD2936C43486DB06575B893DBC745428E01 +A77B5DE473EC4777DC0F7AB04C32CD8036E1225D9836106EB6DE5B6623013AB448C21DFD2AC3 +211C39FC5FE34CEB207ED338BB2E25290D71140AB11C0418342D04A04FE86D612A6902AE2F96 +7BCB97046EA3449B4121566FEE1834A1BC5EFBFC67BFF3EE3F1002395148E0AEF101DCB842DB +A132D393AF1C7BB3AFA60FC8FAD016C58D543B1176FDF1FE1557F184B651AFD0727CB9665239 +839E8D7FF39202314DC155EDD872E8A16C6A95067A3BD6F885D25E0BF7B9DA86AD98AA509DD5 +E6EB279E1BA66812B7C19A2BA60BE11D2D13CA55CBE91373A414CFDF49952593F20C68F493DA +F6A401747DB5D7DFB8F56005CFE0FF914EBEAAAE76AC40A228C010530B01808739B7FE16E263 +65A47AC3FC946F2B15CD1A03B2D3F9BA54CD71498C2B2DB42D9273CF4346F2930D24F61027FA +A44B55A5BCB84D15A945E047E5D4AA092F8F7E5C83CCEC99B6E55B5239EF8B7D09297C67AD9F +2A47ACA96CF5AE75F18CC78B5A09047A7656EC051293BE9D8ADA6C10804DE3779B02CEC7492E +7A87DD30DA3C2FB77EDE640ED070D23D42D2172889F3F92720EB5CFC67FABF51124D286E04C5 +188A2AFAE4725B7C0217FA14033349966D8D57AB439758606C60FF6C21BDD31D60F4CA20D4B0 +0E4BC99C521FA6D9B15473DCA8EDE380568FF577C29E36E45270B534B476E1B2B78BB8667775 +01A338AB9F86D88F8633D3788482126D72F253057250309D8ACBD162E1B573E48A5DC09558E9 +30071F43AFC9C131A9025815F258CEB2FD648F07DD3EE8C32A7CD52A859EE094DAA517499E17 +F081D53EF79FB2788407B8D014020749F4DE5D79BCA9EB3A09BDED24140F8A04A6831B662CE9 +991EB8C422B5193D802CFC8DA8341B4129C2794D62F6695E27084DED50A7506199B5BEAC020F +14FB15A4511A14A0A3B360DD65806C52BB97F6A25FDAC79EA6D623EBD5FA57E2A5F9DBF7234E +19C2B38FE3F30EB5D9EB9A7CABBF4D088CDDD949EC2FC0F4AE3FF465EF34250E038755C5C144 +BCD8E8EB8F7EBFBBD8DBD27A2A1A33D9B056BF75E9B96C98B1428554E06B856582E2BF5C9378 +FEB0CB9EEE1C8F49B59F7F2D2F3D4EDB8AC29D3532337C09D00F9211594C139E49001FEF525D +E97E21B8023D084EDFCBE05D25E31BD74D71AD7F9A00D8686F8CAD07053CD90597617E94FBBB +1BFA166A088B8FC1FAA5138BE44A74DDD242320C465A88283A11D87CB47F5625458C18FF59D2 +84F51EA6EBDECBC41B3B1B2483FC4432B3C575DE883601934453BF3204723BDA9724F6FBEECB +019B2E82D6B6153031E84555AB62C66F7BB36DEB12F37DAA6D4CCE13849CA8C0AF80AB73A542 +91B040FEABC32874ACC828E885C20123BBFD52B56F9BA85659F8503DC10E5D8346ECC6A3D610 +FE0FD1AAFE86B7329F927E282F821476AC47F143644E57190BCAFEBBEA7463A40018A920A706 +052F03FF292131527206405A9D05B22088813810170F2990EE2B6825F290DC613F57962AD011 +2848710C69D909FC81882CCA92CE91D5A86F7C6064D6024E92BA7FCDBA62C834F9907AB65A0D +10F88481774FB070C890A167E6D7C6A0FFEFD00732596886596BFCEFA749CEE1CC875C1972C0 +0A10D72098C053497C319FC8E24C40AC137EC54CEFF9C2031EC7CF92C49BD4A7E619662BF933 +C3D16E49A270477FF7268A1DEA730FED64195A9123D83CEDD519BC3D6665C8FFDB08F916EFFB +0201ADF018568FF6CB66B6ED186DE53DCC038D8BA4F66DD82D278AF5D44E92F340F3A8B41394 +2B7684941505499A2028B3CB42AFC4058C6AAD96651D9CF29BF6294B60C435C9444A476740C9 +363AD5F81B65365B0440AADB865E00808036BEDB6F660DA169A2648AB2D9DFEF7DF8E7926DA7 +817C95A49DBCDD1A89F763755FCDD52333694758844566BB12C23C7598C6FA3B05369CE11B17 +A4EDDFD37F119544115C9CB08D02B6281960E887C15736A5470344B18376A66B962CBD0B05AE +5E8E8F2AD1D9DA9974B4D2FB45F14E73C611CB4E42093B41BA058751CCB94F71A802329E6B86 +0EFAC7038D4A114F210C0919A6A6591592422DBD7D6BF0FB890597F43C772FD8C73C3ABDAF99 +F6C3295ABA0AD7CF5CBF96D7644FF1B7157269FD8181E36BAFF20EB09FFCB53C4C606EE79550 +AA922EFB6B42EF6F23DF0C9E8FE1EF3BC75A8D6FC0097679CAD07441571075F577BF0BBDF5DA +496D6143B9536C0B7C1D4DA1C8050492D99CA2D7755AD6AD873A85868F09809D961B03B7D4AE +5F5F04A31CAB919720D99089B62E81F97D18683A77B842BD811D6E5EFB85EA5CA7892BB8FA2C +37C57C19D71E0B290F4767CC579377F1D3F191AEFAD35BF6950E64402B6A1D91414CF97A2D17 +4BB7F1E9BA63F8A2491C54A1F19AAC9C7F19DC14D2029F8A2AF2E8FB567AF27B38ADB7716C7D +410FE8AD9E16EAADF44EAC888138EB149267153DCBD721AB2A47C4D5695EA99C68F0C99DE005 +1CCE13C3F3FEEF213102FC9F669EBEB3297816BA25CC44FD5D8D1D80ECCA77A11565F2CC9D10 +35B6BCF73CD491B792A98B5654DD73410BB9C52E6C017870BFEFDC00BB77C7E2F6FF15D6E932 +BFC362B0228861B95EDA3DCE63B34A7ADD2A24AF86D30AC1C1C417082D35EC7301AD14C0B8D4 +4A75829291CD6F10766271B2C1B346B184BB8D702B2338095E44DD97D469594E031390BC6741 +5E8A10C34C42D520A404FCC21F6C3CEAE850F78799CC14CBB6907693C62397CA29F495318CE3 +3F7BD8B716996F08C0BC5DB270A41A562BE2FD40D2AB78B0DA175C84D579A84DDF7380F809C9 +6E72E7BF1E6FE122078AB599865290CCE7251202F35A9A62E5927C14E04CF8E2CA597FC3CBCA +D21BFBB84862752AE4C69085BAB8B019CA66C0BAFB605D523C8D17B62802A2C1EDB6C7BC8794 +BA4C21BE50163260D80119EEE91F5A58E27A6B7BF4A955DD7F88D6D73ADD70D77A265ACE5536 +0190CE2A0B71DE5E260293A4FB2BF9FE246266940885E54DAA572BBA557DE73409E1028BECDB +77AD32CE7CAB4377CF7FC1C56E13094BFA8936E6795B7C69E2E6E7BF45F17C557C85B130AB2F +168FF6BBAE5FF3414E988F2EBD0C6850C5B7D7F4941D4E0C870138CDA90A06A47E073CCE7CE8 +74F47E0A8B8436D8327E7CFCF69E8EF181731612386A7003DDBA17C7C8D4FC175BE286F1F0B6 +E8A3ECEB10463438725F9C52F507658AA617B3D96C663FEF55DC426E8C93FF27CAFF649A4F4D +1FF8E60F2924FBEE563CCDF0C69295A494EB20AF9C9FD0D61AC95D056B5CF12E1138077458C5 +DEF5438EA2D938B96C99A595B95999814FF543D7B395CD636488354D8F7A60E9DBFB8BEEE8CA +3BAC804F7B14C6C21C4F381F4A8F36A201954019973A8BF20EEF087BF015C3C9318A934A010F +CA5BF22C8DA00768D3E6557DF30D48F0BACB322FF2F941D4CE39BBDA21F6193BDE7DB438A128 +11E44422F4722F540A27AE44F6A2DC94260124472287366E758B649313A37BFA6FB0AB3367A4 +2A86CB95D2B3AEF09D5B6FD586AAD9DD0B2CB6FCCF7195EB1916E748CE4766549E4DAAE06181 +CA3B46DA0825BE19A812C96C8568C5383A363226F1F671029023B9AF9E35A914DE16ABCAA85B +CCD6B4A12C697F3DBFF7779165AB83F66C7772D595B879B995BD49BA9722B69C9E7022FE6D00 +23BB2DCBAED49220EC2CAA36F4B9A33B169C0A0341AB81BEC2E6CF74853B93485B36D70E49A4 +94CFE11AA70089835357F798305F9BACEB83424BF6F6CE8EF46C1103C6B269E298945B6C3234 +17E716D874ACEC4F82ECC6FBBCEB086D49D31EBE326F186F83F203F2384B07C12223697E1B5D +A809A9FFB5D19470F07214E3FEBCF0CEC2D5CED2CC63274EFD79D4D75659B3A3C80700080862 +5E4A9F0F48AF867CBE744DCFC2A98B98E7A31A2A8D23C297223756C1B7AE29B8EE18FAE55F3B +55763B0E02D54290F868540E66BE19C99517817931A7DE54C480948A24AA723E01C7204A4DE0 +3C35C8203B6E3A09735C934ED97CCCB0FBC74AE0173B1ED630905E9AE1FC5221F41881373A00 +1727ACB626FFDF6B298D4F8F52F0A87021F7021BC718C69557F1AD2F66380ECD34FE4C53DE45 +EEEF6334E52C0B75103846D489B98EDDD2BBC065214B4F4D7E54053BF7A880562AAECB92AEE7 +AF5DB66A9836742A33E412CA5DA192B2DC3350EEAA1B164C9ECB5D93302EB61CC2CDFC2C6B73 +C52B183B8CB1110E32C53A4AD98C6DC977344A43D8F0A942A1F29491D738150D0C74FF22CB47 +6574BDBD3F598EC3120E9072EFC4EDC4F03CB47C8EED663296499DAABF24FB839BBAF73B22B9 +566B4590361971F6BBFC0B7692C6F492DBA4357D6DEFF7BC92595B6B7CD289FA5CEE6E09DE0C +7EA3B314263C073034280ED7E79145233D8781D00A0425BA5B5B58FBCC83546E400F12F986B6 +87773CE69C182570560B83C1C81FDA5C3105B7BA7826D97FF6B80898FDE35265DF018ED187CC +5ADC44FA12F2A4C6D85B68AD2DE5630C18CE4365A233931B891A10B7D0D31363AD8897320B80 +17B25650FD6E6A628898FAE6DAF369B4C338CDFC37FC34A99E322AD7E21BC9F6DF76C20A72AB +89D99F6CDE34AE03895B3D5D407021D107E9E6BA873EA8ACDB25C9D040E83BF5460AAC4F99FB +E9FC35AF089D10794D3F0002B9AEEC599EFFA6B4124DF157C090EFEA09FC2E042F8603298D6C +BCD45A68EBE75A85E352E2FBB9E5DB19247988477D980BF36FD5098B30570C8C366574AFA866 +2D645F5339AA63DA01505015D606AE713D6EA37241A0FBDED41B3287934EF63C9C6CA3CA0080 +596006E3EA9D659C767B9809A6BF9ABD3DA7D7C8370B002D806097CF791B7FB1BD81559BF3E2 +B870706130B61202C3D470810E645D0DEBFAF67887187CB3A176E635527B345CA434B0EB82DB +4E3CA56A99D3AEAEB7D28E7958F62CB64109E9851D99E8349E5C8A6447BBEFF5C33AD744A14F +D24B1A7FF787FE1D1798AFB571AF125C86D63D9CCEABC78510ACEAA535715AD2E2343555A946 +4ED48F433FF7615A6A256632899D3A304A53C9E0C2F7F9F900E9F516012EE5D47B953636C6FF +09FE358E2AD85AC0765BC4CF40DDD48326EFC1F24C8C46375E0816725F96569D6DA5DADF2B4B +9613D0B59B5250D270CB85F15DBF6F490AA8747717AB16EDAFFF7894DFCE0645DE045426EB14 +E2AA1B6269957A7D8A1FFBCAC0C3827341D144D0DE496063B9CC12D500184A1C8E4CD96A5FE9 +D08174C931083A445C49FB6CBC7885E4283A92564822143EEF0C9A5A7FF9E92940087A0D365C +D4EA8CAAE6E86EBE060F2725572E7F5D5D43FB64F4A2481ECDF2B14FCEA64DBD8E2FB311127A +F81CF3FE4A58DBDE628AE55448975D5F727C1E8C8E61807E03E4E794BDA46FDFE58FA5651A64 +96A4DF3E67719F82C50CF5F853E64CA955304F336451CD038027E7990D9A193CFD9F287B6DF8 +866455B372E901F72795DDB55D5F3B56FBB420D1D23A1E0B98B1C5F98F506673FAAF2621F885 +46ED3270B3AFD692B68F54ED80A3A0C1627B9494FD1DBE1EC6988CA4081CB1EACD40FD1F6C22 +9F0C0CC14E52C02AA9F0CC6158521CEF0FFE25ABD4348DD2583B55DC1CAF10B78E65DB2F5391 +61B4BC444B774FD149A9709AFD1651BE9615FAE77781CA1DE9A955751A2ADCA50437D942EB18 +C460ED90E0B4B9FF7BC7A846B156C6218D17BD9B9C77844B07DF7ECEEA83817DA2E1A93F2055 +D31DC39715AA579D8E7375E0D40394B6599EE259DF360554B287A0353F500E8EF1CC30180208 +BEA3693E87C543450C7A64070148F2643264CFFCDE0C7B978C7B3B86EC7AA1C421F4AE4833A4 +8335BEC9FC4B2B5FA2277901CED4E622C21BF62E2D9C7980DBF1387BF5AABC37C99F4B29F84E +F1FBE2816468D850D7D79036A4CC53ADE666CF5B3E36812BDFB49A432B24CD80F2EF56DC673F +D125B088F1C1CEED8C5BEC34E275B1921F6DE29913D2C7348B11D75007A44E797F97C15CE29A +6D67F3C638F3D7DD40BB8387FD6715F7CAC0B8DE9A9310EF3FE7ED9616ED9770A0C32F819C5A +E4516DA75AAD43C5013E7A35462BE65935F5D3E0FCE5DEA23684A3624A23788A61109895E5A8 +1C2C7689ABD426083B0CC04E67345D6396285DF8A3C72041F4F95AD6828368EAAE3904D4CAD5 +95DFA1B3DCDEC95643E00DC0C91D5DAAB683BB62A1BEF2F1406DAA854FA9CF8D2C0AFC340C0F +6E77664DDF40B3AB01D597A2F3D7E6D77C5D221D319FE13756AA1D3F15A84AB7C997723CD135 +A259136CBF6BD6B90C1A96A16FBDAF400D31B68A1881F40549DE6CED7B22E68602A3EB2E8909 +928EE2F6FF0BA635EA6DD31FBC85E61A38DC08106D3FDDEDBAC2BC616B216545B98416847701 +D4DB1B81AD6BB86EB9DD8701F6E55207D8195ACE2582D66667558997FC7FE2AECB0CC6940819 +FE9431166164546CEB6D94805FA53BEA442D81906774288D65E330AB5E97DD684F77EDBC25FC +13A485A7E1D179AFDF7148B781BCB0F6CFF37DCA011BEB197CF7D1142583B8230F23E6784F83 +C361D326843D2621A4A746FCA878A3682311E1543557A5C845CE52430CEF71DDC06313095799 +0259ECF94AED0E117ACAC19669F0F685C18D8198E35344C4B6C0B02F870E71BB8624404A88D6 +2A83D27A94524FCCABCB14DF634245093D3C1B7FDB60A956FB62560E96C4D71FFE8552BF0198 +83B3E12D88A36406958E8FD715A5295829B89B8616C3D3D9E917F72D9CBCE635DA4B00371163 +A177C27BF7DADF68F5E08315CEA0E82CD06367D81E03D21F3234BC53198BFDF063E49C20A394 +9D7CDB56B82903D1F6E3FEA8C72FB38710F26436A9DEFCB39F32A107BA65889EE9FDFA11A5BF +855254A622C2CFA0D847F43872825FB924513DFF515B5BFB639E7A6559003171B34EC1D8914F +6B8A4A94D321585D82596A1A23740C54B499CCB27322737CB72CE7D9ADAD433AC82F1A20FB80 +459C589449C6B0FF73A6818B84D0E63251DBC9CF35155E4DCEBEC2D971C0531C1741BB3FB7E1 +8E6DF0C161CE9289D871C04EDBC914E68C975B5C9E504AFE876E38298BA58518A7A0D8BCDE2C +D110696EB07EF9B1B08EFE4E28678121B6317FB8E40EED49B0C6A498E08D50B9D260C150AD87 +1E196F30A5AAFF5735542D3CDEBB874AB1B85AFD9EABA3AB90FB027EE12B67187805705990D3 +95F7638756C1D54D97B73C8E20E93785910FE23AEFACC344DE494F8296849FF6CDA558157026 +63EDB02CF598BC6879AC6792E8124296ECB2400992682975D6EC2A2E8A9BAD0F6A34B6AD1E8E +29EF3243910DB848B839B878A0F18F51308431ADA56DA932651A0AE6C53D819CDA8DDC43B7E0 +8FB72B551AB29A41461912E714E14670C41D022689B93075A7A77B1D1CC7211F164A664AB43B +355E614AC11C430799D8173B62A4D9C4A6447415B0525A14971818C3EF24C85E971AA67558DD +9280BE6763A5D7D7A42E98E7B3A6443B4A2F5F8B75858AD3467D3BBA06A416557352205A8064 +183BFBE7D7EB38BA3B17E0F2E20F584B8BD659A0423CEAB900E863D0426022F597CB4E96C27A +992ECCE5A9187077CA2DC43F0F8D9E568673A2EEE45E8C4C963E1618ACF7193F92C7F70373A5 +C36800A409F85F40B667E9C8EAC1F6AA6E393840CC3F2D4DEB7F32A5A79D06426833441E56BB +52D62C535F19686C7B783059F96BE13AF189195D844952DFDA0EAF0A804D2FF469E3DB72440A +32A3676F703E1FD908832C0A2D4E3C1C0CB34B6B915717C3558E1B491D66CCD634BC7859FE90 +2D1B3D65584C14AB8C63406C88CFC0EC46129976351EFC0433BCD7424BCAD8AFD0530A746E63 +F02B35BCA21206A6780F4786066A1DB8E4DAF77A5E9425D427A9164B57FF1DE796A42B64C635 +14497C86A47BD93414E4800651808E55488EA180AE94683C686D5D391C00799878F61FF52D44 +C7D4F8B67A38A2F34F7DA2853F683A58CA55500A636B16CCEAF3238A569B5602FE21CA57F27E +D112A2B9B1DC049230D70FBE36A95989ED40A4CD1ADF36D00251F2BFBA70FF7147B0CE737C9E +68184BE0B796B14CFA646C2D40D8A69094FF498EAF21442EA3B3EAF5C663995DEDBBC14FA593 +2125C376A819E54D42DA07B58F79D56C62947509CC6171EFE5678FDA6E250F610C8F75753618 +2D89DD1FEA61E58095CCBC8871ED21956D3C02D02E52607241ABCB2AE2039CE192E41A3E7EDB +8AC61A90CAA08A22276ECCE1AC8886FC6D31F828D26712F512CF7D7F4E39F6DBB86FFBB5E6BF +59C606BB666E1F7EAA67B159B0E2312418AD16E0F8F7E968BC9906BEC3F431FBC1020DE40FD8 +5229B81872BD01C36340203BF578E8190CC3FC11EDA4F8BFA8CB5F093D0FFBDCCB2659FB9213 +7C38BFD6F974EE8A4785FE21D7B9202C39627325B13CDEE2AC6645506545CB3B0EED0DA77B6F +EE364FE9E93D12DF85FFAE44431226444EE3D5BC8B0DA757AF6CEEAA68E942BFBE3E0B26EB9D +6FDAC2F07DEAFAAEEF83FF8DBA6DDC857F8676A800501101EFEB85665D4F45A348C48D19182D +79D8675AAA01F4A45348C5B8CA314996914DCF9CAD6F84069C8396930978F0A13D1AFC07DD5C +56A57C5FAF190850BAC1EE24E6274BA4A346113C316CC2CC54E6C62DFA1814133A51F815EB5C +D667DC8A27C11225C9540BBB66B266C17C983FE92BEB384E98A0A072F079ABFB8E79296E4254 +433FFB03BCACABFBAB63D2BA57CB7D382C853E4B84DDB20A25CDB53CB1FF3DA99F8F7EE024E4 +80CF07B3028D00319F2D49AB191184CD9270FBFDDD85FFBE9F941A283814BC73415C652104C8 +B2B15B407C8A5A08C6482FBF7AD745DAF6EA49690B138CE179402015B3170F3DBEC7228909D8 +35035671BDC79E5C3803360C082BAC1DD928E5AE0F7D148030031E30AF84F9CDD86572BB78DF +BC3C4F4FA533DE03DF60276F0DCEC9D51B6CCEAF6696F780DFE74329A15A31776C58EA1F23AC +A2FF8C5CC8EDA45BA48E16E7E21C5F022B1CF60085519AA265E93B640F3782DD1DC3B98446DF +154EB4CE413C8CFD2E83B7E24D18D8AA9F0558C4C2EACC6C4931F070ABF78BB0DFD604A96B34 +A5237BA293F75A604F8995F389C81CE309AF7D4500050A0CE25024E7212E94ECB787209DF361 +F621F7A5659EA7688CE907CEA6B2046A89887F2CB3F6811F72B44AACF21B6C7F1B5741A8DFE6 +1A99E740687AFD27533FD92E3D32DB5F17E497819947CC7A808C12280A41C6266AEE3F83CBE1 +E8C008EE13B82D2BE12A5C0520C53C458ADD531A0EEC1CCF973E4D02AD17A5AF787B810A2FE0 +44F1A54052285EBF44A1492FE2DFDB0E31E5F229B79EBC8D929584F1345A277D53BBF7201006 +67B53FE5189C88FD247840C878C7332D1049CA837C3A4D1C6CDDC134C52C491D18918D95D0FC +AC34347597F9348EBE0098B6EB4F71B16A3B2D6AD2B56C0804DACE634AF9C60E279ABADC434C +110708E83F3C23E2850F3281330A5E1097DE90DB0D773EC01D5913613B87A93C745F6DC3342E +711BD0E3C77888A4CB54E37052F69B7B15D9BA70DDD5A071F73FC75A15E4BF7A0BB641420227 +6A33DBBC3817A31811647358D331D77B4F6CF82FAD8C4DB7D0723DA941D600323CAD167A35F4 +7F7CFE62FC26B996B863458CF6CD2CBC1DBD5719C616E660620F042707EFBF2850334DAE85F6 +837B1430998156A3AA06D9B4D906E5AFFDBEB84FF65D8ADDDCF5EE5486DEEF713167C69A536B +A62B0DAEBA5A2D623551F85C64F3561D50966993355735788352F5B9462BD224DABF7A5CD55C +70C8BCE61F09DC91B54AC4EBFCB907E698F19D03687BBEB181A55C013B9097143F984E717497 +B03FE25270B43962E701C86FEF67061CD7551934FF2ECE00CA9310074FA2A051F4EAE608812A +BEAA4E01E7C37AA36252A816BF8878AC1413D74259C821AAADA9848980B67880335305AE20AA +E3969F6DB061FBE75E197769838562E15FEC682E4EFB47D7B880A381C56DA549A6E92E668B79 +144B2F301EC744AA065F891CFCC7C198768A93654CC8301C9BC6B18CBFBD115025CA4F948873 +5BF830BD8A91ACBDD65AB4DC950A0654589C70375C834E2043BE7E83476021732F235A1B26E5 +F109B712578F60E86D40DE742CA00AAE40C008C3D0F9AB6617ADE1E8455BDD66395BB69BD7C2 +ED95AAAFF80BDE1F35B6C062461A2DDA590BE06B414D3E7214B79CE9FE77ED4206F394DA2716 +8FB07AAF8B937DADE912B46D5065576BE3D7276BFE8442BF8CC59A2884E8B755B46AD1751E42 +C2EAD45887E8B045F2EECBD2E5F4DBBF82EF20E62585FD2A221DDAC8DAE040B865324DFE665F +6AAB9605FC39BDB676EC6EC479BFA598252BDEC4E6A67C5469E378BF0E48E3F594AE15ED5E96 +03F4BB36B7058E00BEE6E3E236FF232DA3C8A4708FAEC8BF00D207CC56B2E051221C969A2395 +1ED65A96DE6E8A2D7D601FD1A80F814B16371568A5EF3F2A1EB841A946754433016506FA3D15 +2AC9049318AF8B37D5D3FC49A97F439393AC4B5384960569EF35F6AE375956154641146B8185 +6ADE6B5F145B4B8517A41FFA9FC5D5243D5B065E3AB234E2B2A2EECB7C5A3F4CC75856E5EBDE +63B64037EA2EA11CEAB0721C9556499B263D3CD1E36A18C08A283861D5CEED5B8C92461F18D9 +061B111DF34C33FF3086BDBE0912AD6E44A1F59BB2EDD4FD97CF51454C42DB43F43C0C161BD4 +144E16A673F676CB8E4908FD3357B61B3D5F77A8899C4892FC2E7CE7926605A37B8323296000 +52A2CF5A929B3E04993FDFDC22CC73A480D0D0675651B85A2500F4B5E9C6077237347C7B62F9 +47E369D091BEFF5E373183F28BD5CE3E3DBB6EE8E1A06AC885ECA9823E60263CBF84A4FD6318 +8CBCE1C0D45E24E0AEA52185C3F079D3E6027729479EF2EEEEB464A05995744BD02BBF8B3472 +2AC0AFD39EC3EA0FB691E163B8C53189B58D264B3DEF4B0F019DD850DA18AAEDB27AB0A62CBF +9F16E6D292B6A007A7CE004ABA34C4E0AB10A2D807DCAB3C59AD90A7D733458F74BD6ECD47CC +AC59595C3352F6389E44A9CDF01189DB0C8A4EEEE2DC9DDB9F90A8B40C4FA6C6D161976FEAA5 +34ADCB5BBF408E3A1F7CA055C4BD7E7E0CE6983DD9D5F443A7F85366F66ABAF6C40DD5D578A1 +402B979A9CF04E06C261351C7C1342BD288BB837CBAC99AAC0EDC747DEBB20587DE74389CE57 +5888604C2F361F47D2CCF3399AFA3588A253C197A6684F4AB7FD7BA794F2C7E845FC08FEF13D +BF472F80BC519A78C2C5E36628A7B2D82778B10595A8905B8D55BA21B17CCC7BF863817B3931 +D15AF99113E0B2E02B2353573022EE2ED59F436C9A36438D45713E49D0E981E2917C319503D2 +F1B8D4E419CD3A4AEE383694A88031F7694124682CC4727A96E6AC9BE4D9F67B85C1A30DE92A +2B6775AD849BA4EFA17D269F8A0E7DB6039DAC3CC36B3512113C134106E365B92A93F5DAA301 +2B9A3AA85C772BA2165368C5B779FBB02F801046F56DF1BC66CDB4CA9A732300DBF2B7D4F852 +9CF55C6B89AE1ED3E8784CD8A34F7D450148E8B0EF9E4EDC3898450CD67DBD40311AE1B3F3A2 +0A02A1D4384B06F310315CB912433B722AD478F3C88FC910189522F6165550A30FD55777B067 +BB23B517031963AAAD55737698F2C6183D2F00952AE4887E19E76847B44F6623E88A5F04179E +4AC5FF04BC62EE6FF79F0D29238ED956724AD8EF03E0084844CE978EDD10D648B8C41F8EEE33 +B64B5B8CDFBB066BFAE9D1D8674B97A2221A831906FC736F6B2D8B3BFC651A6FB7C2A9C2D7EE +A0332DBD1C3DE14C95858654D73B54F7EC77E680F505D3800D09CD927AC7EC9681282ACD7557 +501C55A8276D5C1F6682A67ECB9CD7D50C0101F4C9334DCEE02CFD7382138A5C15C4C8609514 +26CCECA54F3D81153C89F19E94D609EB3CA6FE2E1DE2FD6CF565DF9211EBAAAC932B653F0B8E +CCDD6C328B3F13591F6535E0A38422CF3D3C3EB26C1E447703026D55FC6872A733E8611E4104 +8D6516D4BC5806764A7EC20037EA56761C522E942B87794CC8CA297BFF78F616A943E0120227 +0E5DADC4E5335D95AD735C839DF3E0ED352C8AB42EA9F83DF744136FC278A0CB219BE3198B66 +AB3CD077F2265CA71B4F43D44343FD8170636EFA6E550A621B78B7F3A4F45B33642A739EAA04 +637835120AD4536D7BD7360C7AD79B33F667393CB0F1FC9905A5FB118AAC2A06C5B0B43B8D9E +09A87D2483703EF4021351C2A53F6F436D9EFCF140FA252ED7B594764D6BF3A6CB251B372981 +BE3289F70DF1EA88A08A653970C556D6DC622ECA706B0265057434B4D5735FDCA322FEB59921 +D39FCA637AB5A059C66F433C6C86DEF0A22E7A1BAF33045448B9961FC3B3A81A4F17360F4C0A +C3A693D18E881CD6EF6017A98630B7D20A4366EFDF25AAC7F76F1479E6007C364EB8747A414F +A9B517D14832E7E9056337691F464BFEA94CFAF2F6B7508BCFC04E9517D62B1EB8D740948DE5 +ECDFCC41C167CBC2FDCDF94E2588F7B1D9C755276B2F8FE780BEF4A647404FE290649F18C03E +A57F3031501E343B557C2B77BAB004DC831E2ECA374FCD502AD7748916873B3CCC2DC1BFB75A +C35E2095942D6014D72EDA483019357B27FC9E8D010F1CA49245EBAA01D9E7F973EB55848A6C +2072DA3BA681C73C979694A4ADB6C791524AFD9FCC1B93BA3D446F706C62F540E32209B1A6C6 +A04B2F07C9AFB97A2E62252603C417B707F61E46D6067689150BE579AE9538D527819C6B664D +77D7CB1AD0A7DA4716A47BA0A110EDA11A13B8260C827A6BD62447146FAD63E7C93C7B9DA7C4 +D391EDD8F47F22A867745FA7E0610B4D1A9D97953C571C010501D4E52791A904A33A3E94DD3D +F00391AF9509A25393B106226A09190B2F4C98B19BE198E5BB165992913F68E0BA95604AA56E +7921B405B11FF4DCF907145D02E884432C1A958079A65DB950BBC85C188C575725E14E54D129 +9EA0CC49A30A4FFE6C8C53FFDCB1368A56E64B6F8AD4811B2ADA2001B9D71FFB594ACBC84403 +5CA4C96B45BEB6CE65611E79C1D53893FA09B05716AFF6D701CFB79D5FC242743531CF810D49 +C01C9BA3A9ABC1FF6F1457F241A1BE30F1AEA158CBADCAD7EDDD5E4E8DBBBB5FA643166767A0 +9B6F4C7676C73FE98BEDA6C25A88C4897B4582637C2659975D9E04382FCB63F05D189BAB3929 +53716A71641449551F3AE7FF8601A10093DB870552DB755F1E8E19C00229ADDDE70E09D87AC6 +B1956D76FFBD197563891A93F59C9CF761EAEA902C5D3FA861DC9F36162D1087644A9A136E59 +69F65412971DE335114E279A494EB2D7822C585EA066FA6E154801E7BC5E2DADAB3A75325C16 +2F080ECE9C08AE953DC369FB63D0A54F13452E820346B64400276D816477C4935844DA3E8B1D +D5108D94EE0A06E7ACF4486744F70A5EBE46446CB308E3BACE9C1A784E447037D53CCF41C21E +5665260A683118A3A2C7C735B976C8E24BE67C7A8D4C2D8AC8DD5D67D6D7656E8079D3FA9D4E +C80B7053E982B4FE33B60397CC6C8EBFEA0838AE013EAB2BB287A19C00744F6174E4DC234428 +330F1342026CB013E6A146DFA61AB32BFF3FA494F5FBFAC4F463D11F8206A7E9171752385C43 +551F98B8EAD9027F7DFECC539ACCCA9A3BC1A4E3D0E75D66E1423EAC2EAC6C40728E32E1BEB9 +7F62F997379ED11EF8BB6D2D864E4FF361238DCACDEB717781B3BC64A60FA0C8011FD8EB6761 +67CA91164B783878CEC9621D60A6D5BBDCB847B671D99B905846142235777FF1CA8846EF233F +87172A04509435309CD57405C4F9B4C7B4C3D358906E049FE100F8AEF681FE828D254290CE27 +1FE9DD69C76C698F4ADD1BC1E9329F7FC6D0F834299243BB4E8C304BB4D2042CDBFE75EE3885 +D9CC6A5A7201181E603B146332A4C709A4109B9A974AF375A32761E539DCB133DE16652A3D5D +588664081CF805F2A6716EB8694B381B7C2D7506871732BECFD492FE0746B81287FCD6B96CD1 +8E62E8582E5AF24CFFEDC06F66B663EC5CF673A29FB2C8F10EF273020C3C4E6C39C3B29694DF +473E03EE19285F3A0086883F605824E7AC8C0E467421E4B28E60BE09B04FC78F4551361B7381 +D43281034BDD4A947F36C5954BA33FE51ADBA2B1ECF182C370889DBB6E3ED10B5F4EB2EB2A4E +2AFE64FD3E5DC8B7D479BCA92997D454FECC0961AE8D5DD1FB701435FBACD13A23F162B07B63 +88350B7050F581A0F0E3854B2893F5D98B4502F417FD54C6DCD88BF416392671672ECA5ACA3F +5532E2E26DFF72A4FECEF18D54293752F384B7823A561C32464291DF4F8A705B1E5D4484EB68 +E34FB53043AB6D03946D21C14B40821E31790F2564FCBD41D2898AE7A00E68A3B96F09D4951C +1C7AC58BB67CC9EBAF25D8F6E6E4C2A7FA2834EF7379774FCA8B29479188DC33536A61EA3704 +8FBCA3AF46993B2F9C5DB0588D37AB38A50A498F1185301CFFF8EDDF4C8968FA56EF672CA8A9 +B6D5D8B8185FBDDAC07BFE92E6A6620FB482762A591CB55403811A67AAA98E3FDE18E995579F +FE26412DF5E2D9E5B2BF51908ACA6475E03F98DEB10385D254A49B10D613152C9B2F1D36CD78 +93EA04DDF7880AABEC5ACF7C5EE41B6ABEB34B174BF26A71DC38194FF3E992E7FFA4CCA2DADD +674114168EEE14371AC2607AAE5EBFD740A1BB65F92B70983BC95E26441A416E3349B47F6430 +5B52CCD15140F495077D5CD478D0BD32D1815C5CD50C0DC2A65B05E831459DBB764F56227F5C +755F768AA9D19533A21E11D02FAD18886ECA6327A8A2102475B79AC45D7AECCE5FE5EE2C1FA3 +6D09391ABCD292859358DF410E5C7E0E56B3ACCB79B8D6A23C3CF9DDA318E581F85C9B1C3377 +FF5041CE58BF3B2AFA9F58FB07D0E11F6F7E485C893F35B914AEA34B3A0E1E6D8B87F8FB750F +A53370D86F4FD2ADE0725B3F34859769710C32C0600357C6F7CE828051693883E884DEAC5385 +D3939585CE8290D853C6345DC2E1295EB6E90A88F68BB54158936DE9B9A96101355C14C21EA0 +13293A1BBDEED8C1E9D4AEA7896D2465F85C2B8852CDCEFD90FD569F3635F8DC6F781E66EF26 +5547A7DBDE8A42894986484C922A35F1183D166CA04F7F22A6479A8E762D12AD19C58843791A +3E3F1A379B4A73679988AD06F7F843948FC23FC251E72278AE204AD2358F29416826E8D245E8 +20EC0195E967D51FF0A3DAC102146195EBBE6582A7AAACC8372E22CA698F6C4C8574F57231B2 +091498391CABD6282BC774EB8A18D06C547585BB58DF304A5BD3618713C722780C5BB6588267 +A45D8E317998264A6196CE7E71259D10E0C749AD9A86A0AB155FE1C6E7BE35DA581163C2E17B +F9E4A63216CC013DF55C70A4545DF902D109D04B41D057F74E35CC70A35BBE8675A62F1175F6 +59788866D9CB96886B240C3447148841B2B0D2BABA47753197E89BAA025F153C97E47D9102E5 +47937DAB28C0859092B8992A2F16F2A0E3F910E4DDAAA65F0469FDEA0C17CC67D4E60C0332E0 +C17FD62F2EDB33DF9108CBA7B9D98AED6E7A4B649EAB2CAA0EB8A4A5D619D6A1660B8345B7EB +94EB0386FDB600B0C7C073A4F1021EA25EA174293D7EBC3A21202CCA429E0F99FC26CE92F2B5 +A404B708E6F8093AE962A72245AA83B4FE29273085E4BF2656BD33AF533FB6C90F47A8126762 +6F69291DEC6C6DE20271AC0FFA090456D9C2D496D754F1DC54498E4307BBAA994A6475941029 +F3023AAF6203CA2BBF4229F4A577AC4C07F6D12C1E3A4AFDB7509A1989E3238AC4CED93BB656 +EEF6E7FC5D1B56E69B87209EA34F6BE22C323424CDD61B246E3951A03E760EB3B10010416593 +4ADB268BC0BD0C97E9BEB52441CE8A9B2B91E8590CDD9D4B0EA33CC559E8E2D185A9AF322973 +63B54934352B0AB1070BF42297D82BFED566B701746AC2A580543B130476F5CDFBACE0C6701B +C6CA5E7491B0B11F4BD1E0159E2E39CFAC16F809B814A8640295AC986FA17D473F7F709EF22C +C76C614CA2D0009D82BEC07B12B9D13CDF6ED7A0CBBC09667D02C7AE0FB4F043144C990F01B3 +9E7E945F10B4364BB7AD739DCAD8B45C0170BEBD7C5DFEEB75386969BEF311700D9E5C1927DC +F01CAF028C3C5EDB3657BE318DB0466887F4F7ADF1214EABC0F970B9E912271A6737CC9A2531 +BAD18AA53FDB3DE6D121F33744C6BB45C91704E1AAE00670924A9F29368E1D9B1F3F48FE02AD +2CD4FC56DDE5FCC83CF99AFE29F690FF9E81CDDEEF438F07025CAE68DD22EC0CE88249684712 +EEA1EA33CD6CFF25679629EB74216B73E39BBAB45A9653B2B4DF37DB78F1850DE7B366B26A73 +E34CD5C31655C8D11FC9CA7485DB016B66BF5AED8D24A3E21660049E58D8C6F25237B66754BA +8EA58DA98633BE5523530AD140BE2ACD6297FB39F56C358AB81376E3BA41B5D25568317DE54E +58A204335FE0B400698D35A06A09C966CEFC0D636B7F21FC7713FA6D0E51433F7076AE7DDE66 +6643F7C69A25ED0F9E4C52FAEABBFF538CC47856ED6AF9A91116478641E0FD8D39A294DDE23C +E714324CD02C50B35D3C3068A83A5135562C8DC09C9D36AA49931B456A1B9546A40EB520299D +915E34B210BB058CB710837D7B89B1353E7CF33569E97675281DD6B46CDFB542ACC913BEF089 +2EF8F964F9FEC997805F210326F799F575639306E549B2694F58A05CF211F7F5044A9D1BE1BD +B43A956776152E1496A548DDFA48309FC5395F05D5700B2442FC5B66B14625495F84A53BC83D +57DAECCCB55A2AD09213B635366F4E95C8279EF1A1AF4513558F46BCAAB5DE247AB2761A0B85 +3106D915F2B52CB2FB89CF9BF96518557E384623E9221653301FDDD0331C2ABF093C087CF023 +DE59ECAEC1083BD58997621BCE113E00DC3CBC4916B4971F75F9B41090E26FFA40983C9F60E8 +C7FDC5A23F96EE4E492B4384EAF91D61B50FAE5ADB1F3661F0AE972843BBA421277989C8E64E +3F8DFAA46055AD055D31105CF5484451BD090707897CB4A08F719102D3C3F36FB7A3AEFA3CCF +1B4D201FE2887E15870E3BCBF735D635525A857A4DEE414359D0C67430939372315CA3A8E722 +62B09E162CF045C94F76B76588D35C59F1200506781D89829881315301F089367D7A5B3F3F9E +364ECF998208186F4B5ABDF260E8BC5999892290AED87230AD76E508AD107E21CCF80F3E8201 +4548CDF8D133AB6B29A6382680A86E9DDF1AB21F9A73F5B86691449537AAAAD97A102F2BFF49 +89B55D1B515308F531DE8C33B02C532E7FE5A38C1576C9EE90FE62074B7CFE9664677375C1CB +388B6D945D594A5C67EA78D4D707F337F90B90225CC36422237E5A3AAB04A3BC377403EE0D74 +C6B8B1992428B04FA94BCB7F8B73B6EEBFBD04486D48313E264CA003312B4D9A96235E2865D1 +A5AFC5E8303287A1C854C59193D189171CFE0966CD4DF78367C5C0593CFF0866E3B693959035 +9A1E045BF4B1B77B83461880E025014F59527ED2173F119A8E961D14D0772F8A360F68736091 +D33F5E6D45F4B3A8BDA4D5851F56D2C1E1F0B1B0A274859C2C3D206EFE8B9BB918D323589EEC +9B5094A2024BAA2817F1FB51238DC4D8E12CBA32E1F6B4ABF5EFA1BBEF815FA9B16AE6828F2D +75FF5A93F232781A318F4D279DCBA752B1921F3C1E9FED67B75218715A40D953DF9F33BA55C5 +F7491F0052C6696DBCE0FCA409B212C2CDDCC39F04A6A59BD3A8DDA87DA48B1E8236A9B03C0D +E356B1D449731A116844A5712B0E974652FA675273A1F215807C0AD724DA5BDEF76584647F2D +60FE1B72EA05CD4FFD8C64CD32280CAAD8D94D79F526D4F97A7DA441FA96DD9FE9AD3E407432 +8697C7D99ACF8CEEC594DDA4C125B7817D072CEE580FA9A79DDCF476D28607827420E05C37A2 +D7EA73F6D87BAD7C5DE675D36E0F350D19CC2E74793C44A4C2FF3633FA601F92DAFC83339E1C +EF4D2E736280486363ABA305E62D5E288320C881CCF6F8BB9E984CE515F5B7D20739EFDDB091 +ECCC72D21DB01DC66A0F94CC96FF0AC8E11CEC28A3A9867568159B81A97458F5A72620960C02 +D0B4A4924DE3041F2D83BF1DAA7105A63761CFB7C6189D213125B5F40DB54E8FCBD8BDE75095 +15B09BAE37E0BC9D9784760C629F281BE899A7AC0CF756E6F3A8435AB8B962A858CE158D7556 +5F25905C64A3A662EC452F60D4E2E2AB171B328424CCB4908DD6065323462615237A2096D4EE +6DA86933F8B05B9236579E229E749F325901EB529B6A581DF98D232D784BB82722CCDC0D17B0 +8E259F8A954DB81D0BCCFF7CA70EF319708A39AD44272388E5A6D14BA8971D88E50C98485E4E +79CF8E4F34A6FBE2D5DF6D2C8CB34A13168B992B9053DEC46B1D286171506479BA9A92487188 +BB9F73BEBB6C126B3CD306AB317AC364CE9A3131A84FD90EB9E3D68B9AAA5D6ACEFBA10DBD0D +69BC53F80C57A4A7F5B988F2B081429A2CD28801D018056A40D3F8CE7C07946A5E5873C2CD9A +14C539688F0899F97106560C538CCD9DB33E99C30B5C2F3F937F6DA811D8EE6E51E24F30A428 +E915F2408E0A1D8BC076F3AE8150671C7DD18F86E98E1597415AA44E1D4E1797754AA948762B +1E09A15DC475F8017335F198D785309B38DB4F1ECB171F303E845B0348806A5445279F020A9E +C1BCD838F671E6485413DD64B7966B4D228AC6766C2C73AF238E485095E5A81327E7D5B5D805 +6A2C99ACA2E95CC2F4A1DB8AEA34C7E5296A1C0184ADF5A429ACE7F4BF51124D286E04C504CD +9117DD904AA27C2585D0C8D7860C24E08A3EEE4AB616E522ACCAAAA44CCF315281A755CD2D3D +F599B54069F13E17AF29FAADA02AFC0752C1F8EB17B4803913665A83EDF8851736A8CD23B875 +579551E048F6F7C11B0E301FF866A49D7BFC423925730B175748D7E1A83B9EBDC4784BDF687C +4AF54E24C55FE08E0366576FB4889C10DF4EA37607C5D1EEB4D07AE5DEE0E7484FB30B628277 +3509A8C8E963B3F59F218DBA7C493EF6BCB37E726DD0632006C31F2A76C503DBB0ABFCDCCD09 +324609D67C2F9CCB572BD559DBE366B48ECD71025033E75AA048714ACD64B5A4A94B1B778B5C +B615D838887A00A673EB27337A45B45B430D7B4CAAB48F1A196A7C4B04E2F4FFDA02792A1501 +4D97AC577C43774A8636A1C6EE6CB91F64E1D479076B8190A5E2C7CB202EA3A4C2885A047341 +3FA38127D269F90C4661060063D96504432A2A2D7EE3CFFC0F7E1D7C989D77A05AFAF528B6A3 +AAC4234B26F3085BA49EBBC7A74322A35008C626C6B0FE67646420035DCAC38DBACEEBD00C16 +5027C182E564980BF8275958E966C801ACD85FC936A7BD1F560E48F8E23658736D607CA8EB56 +2E3EDEA38960F798DB046D1EC3AE527C66F681C64442F4F5E23B67B522C29E9D545F2910D986 +654BB64EC184B52859A5723A38C49E3A8F8FB1605386D4D64C198D43F03580466ABD15307033 +1F9E76E14380327ABC9BF78E32EA455E3279ED3F6670D87981DB1A169C3CDEDB1A9661442310 +7B560AB6C473DCE996AD4308414F3F4C9FBE95C8F8CD8FD905875E5BAAD6875060782C5E7576 +AFE3A9C24800127C444CFFE5E7CB10D44EBFF90EDFFBE99C4635D5C8CFA85D94846AC3BEF1B1 +51DF1AB34C25353BDDA5C432A908F6CB42DD459940467E02056072DC9FEB0D28900A2BA82C0C +BE9E5D65A542928901A26EB764D180087D832932B9B1FE5AF5FC87857439C551F5908DE44B6E +47A99532149E3106C682E0D9A3BB5352EEA264098C96B4DED978B2D1EBA5802B7E2ACF82FDD7 +830B71C7C252EF6797C0FD20447D0712E700E4155DCF2FE02FC621AF1ED1CFB173DC65A68D40 +509D126B166F48C6A9343F6F9FBA7CE5AF61705ACE65AE57BD3B09016A40E78C6459B992AC64 +91A8294F7706A30AC42D9B92CA9E90028D2340A881F4D7D538E11454189F9E967B933EE5DDFA +02A8A7FF89E41BD012CB8CE623675167DF6B813710DF27025B3266C1F70FFFDD5414E891A536 +50C8962945F0F0A7E8375049311B51FE455EB6BC303CEADD3B975C52A57A2EE628D8C06F56F4 +F0CDBC4D3F80A6FAACF192BCDD47BC6E5E001E8222BEFA57AACA332AAD16FF3010896FC6ECCA +D7E67511CF0F19718E13BC3CDCA85420F79DEFFA9965AF3331A1D6E370C1CEBB4330CD4E55C6 +E396336FB352BF532F5FC97351C1E929B4F03B81A0590905975473C582009FFFB929FED1E9A2 +D3B7F43869F50AAAA8BD3ABB703277E4C48301719A4758B48B6302A83EE959AECCD88BCE8721 +2629DCE576D2E255581CE595A93D4FA5E83D7A8B30DAFC91F20C7BDCA9342C5337F06D47CDB1 +ADBFE42AA7C256A7975495BC7F6290DF574B98867B04D0766E20D9C47C3C209D942FD21E7D9A +D374283F96B5CFB8907908F0796A90968C86DA730BDC1CD7A7B794DF13D22F6B7C3C38C19F45 +D628E57E752E60AF3112EA8809043EB4810E7BE665C4E111FB950CFDE25B6B99433EEE81E011 +580C8A62C0BA9DDE0A92BB0A9517962C8E17C0F34B27036F3CF8F2E942EAA16ADB330FEF1B5D +4B6E1497D271BB1BDF023F45418A1F2F4C31315F196FF7278BBC8AF38336D4327D8098EC9BEB +6D76FCA57057DB8679860BD33FA25EE47D285C74270DFD25D3E36D6AF38EB52F006CDBB8FEB6 +37C52AF0429E1DEBD338E218B0B69A7D67E74956229F01ECFB872E05E0461A6F2582769348B6 +A1A211BCFEC0A2C721182EC58ED1945745C231621FB59C6C9C9246F8DFFA64253E2FFB5FDAE9 +356D1811833F909878C7C349093BD13FC52B5DE7EA723C55B61311F628DA201CBCCBA383EBB0 +67641168E1E73EE725D6ABF46EA46740F92D533D1D0477AE970A470008456F4D225A8E60162C +0CA27ED68BC69379579AA05BDC860A1B72D89BE26CDEF8DACE2B6352472C074D13AB38340BEA +2F8B530B44476C5740125ED3B13F48509928AE9CAA509311BBDF39437BA18674754731892C39 +1F1FE87D9E25C37B9C42C90EEBA01FBF8A4723F3B9E8196439BC082994A6CEA14D63293CCE21 +75A343E0233473F2C387A63F34DDDA919B6B197D80035262E1FC6C3EFA27B513EE2B8342C00C +AD1C5C39E2273733D50EC831CA21DF34CEBD0C309E988B2ABC3F553D97E7765922AB5C619A3C +A076DD989C4F6718289EF8460ECB5194D25849777B156E281A6710C41F3534A461E817C41564 +25D913560AEAB65DD1032F3ECFB22647DAE985726089A6E4D9CFE880BEF79BE3E4AB940C5161 +0F42E8ED68A3CEB6EB2EDC47B5ADC8FB52C48C45E71604F77588429FBF1EE2EE97715878536A +75A3382B2E0E318A8A0384439B3834E46D85BD676A1C6163A734863BFFC76F86C319EE75EDAA +23ED60B16E5BF05D6C386DDDC746BD3EB99E10C349F4FB33340453BD56074A40D85D4B3B6763 +19FD10CA53CD4AE50051E3FED89C93054A212530E7442F946FDEDEA76FA9AC6CDDA031F02157 +26585065A405A145457FD89BC60BA34AAE1957E00A942AA489A1DDFC2D2957F18A3F0C739C35 +D82726C9D5CDFB4292E14FC5E5BA2046C528489C8D20A570E03C35089CA2397459325E1B8873 +BD3CE4A3DAE859B6B447DA569D3D723BC34391F0630CE3DE18E34D6E6335B45C4D4A903D6E4A +A1E4B36FEBF0EFE8C48861F2B5DD8D44148FCA179E667613EDFEDDD5C9878B0B98D65B758E7B +A79001B2FA1535EC7CFA48F0F549F10E9248D4D428C37492FCEE96D35A0B27B26FDD5A5ABB5F +2AF0B9B0A0A45D8BF11535785AB0442FF9BF5FAA5CCD6070D78D5CB04D912EDF2CE916FBC30C +55E8CAB0FE1E6216F7A4A972F42704D2A4D7E519C2DD2F8B7E205C6BB240EF0EEDC184F7AFCA +0DBD2BD80820611943C446DA11FAAD43C05CD97464D76B47209AEF27390B0F5264EC8CAF5653 +73E36354A6ABC009F8B129941C49A1B93B1741063CA4BE78C64A976B6760FD1497B72DCF0B41 +CCCB10D7A6206A184776F48E02B6CCE418B46B4F7F6A367FD4BD7C3AABD37992E0DF8249B296 +6C7E8F00E607CDD38CBD4FF7D214837EE8C500DE5B883E2789F03CA892FB6FEFA3CDEB18CEE2 +F5F5AB0C131D55CC8797C4F626CC79A80A77E64E4397703520B109C58ACC5EC08F2F42E5664F +DCE8B3D4F82BCC6A6E882677190C5666AFECFDD46B76B4AB8FDF743CB41BE3421A13F76F340C +84263E3B1429660F2B94DB9275E953AFD5C885CAD144A9E75133583CE185C2DCEBF14A80184B +F0F93969FCDC063D93553BEB82EAA7903CA8D66AA8A78E0B5ACB02C0D59B02B71DFA2966183B +3BEE343B743784B9AF8CC41FACF4D828F5649D88DBF497262E5BBB57CDE80E62F3E76D7736C0 +B44AF12C1FC99AD191AC9C9E3216B4A885ED6D38CA3B775BFB1711EA9CAA680339E2C7FF35DD +ED87F276AB04706A4624EB4393733D65B165073C0B147D735D4F4F221938C88A104A5E6D2131 +DDEF6853DD9D575CA2D0739ED42790305623BDF19A4C60E868514D0EC25B055E6688E0024601 +62B7FC759CB46218BB314B51E446B45942C2230DE47D7F6CA5864B995B4AE974DDDB76FA9209 +17F4B6D816F322BAB9313FD08B311454BD04269E56A5A5A661B0C8D1B1266C0677C680AA699B +3EFE964E47A3A027D1DC587BBFABED34C8564B2A835F53E55DEE18F8C4A05F4ED8B4EE06E6B3 +92066031D4383B220239C2DD7071449338A061F7B085CC71277F32FD37A63D342549F90920C3 +D8FE9DB2E6E30AD54003FF49BFDC78DB2C0F86D5E5F07D50654F8C5F389BDA3D0E127607FFB4 +68E81E81BDEAB6C0976C85A962A45BB4E0AF88E694DAEBA1E57E09EAE02976C634FC3D4E988E +BD222FAD0EFAA2229188F6F8267899852F70718C87F0200F58B5BEF08FF0933E56F4DB1093C6 +1FBA284490B59773F4F4DA4D694D755829020B619B8CE514014F43FF61A9FB3040300CC680DB +82FD54BEBD6A7C52DA76EE4A30475437FA1E735A3D0B7FA4A3A07847DCD2AEB83199FA5F9988 +5E60AC538417DA32B8020FAC3EACEBBAE7C2C370E21A7B076647343335C1FF1A81E22BE44207 +9BF3EA722ED1FCA419BBA8067C6D0E6A7C74642C28B5486BBD7A865E40D579B9C39193BE5571 +6952B62686E02D6D72A0FE651CBF674A9353C1FF5DB340B84F3CA63F388FBD0F42DAC8B16FD2 +B8155726E8CD709E3902A083F41C2363B25504CD8D55AAF958D410BCD7197673061A6D8B89F4 +7997240C074D311FEC5DA8891BD05188859287B9D3BCA9F129DE01F4BF1BFE29691A3927267F +61EC6574D52C27AE6825CA850365158EE812832C6F38D05FFE2A0E6378C35666B065E52CB00E +490D4A890D7D8D7134F4AD84F5C5EE7DFDFD160253C92BCCF2E0BAF9B620CAD2D56B2C6320AC +B1C1B909E70A2C3C1CF755AAEFBB68CF6F6A6AD0AC45FD7E9A6953F690B5F6E985EBA6623980 +2B5D2D8D57015A07A80703B4A986D0B777A041354EF940B3B5F6170D02D312A27396401A4F04 +267EFF030E08F9861FB531ED2E311D9E96292B9F6F5B834773C45F5F5E0F52F54B5FFFE639A4 +71E96B2CDFFCE357792D16EDCDC66D79454BFE9131708F8681181C796764D5232FF647377BFD +C73622BFD38D30EDED1027A073C8C1E9833848C0C5F9A407FF8284C262789D2319FBCB98CF56 +FD54F065C166715E16772EF16DCB41E422A36769F3E1ACE4B43D4B4D50BF45DC51020211C136 +79FB8F1B92DA652E3766CDF6F0D2EAB72B95DD24D9F339B9B3143A34BC0C30E38EFEDB5E04EA +997CA199EA6B66DF9CA3A4065CE8FBB4EBA77C7226C1088F76175FB4B267ED28FF7798C10BBF +BDCF134E1DFE0600B33A2E77C1CD719FB411C276C59758521E24CE648817366E115763DECA22 +9E9B017453654C68F6B3B43F01C5C63C0A93833D701EB6224FF8A5AEEE973B4D81FE86B6E596 +C6251A6FB8D32D813D233681D0E2EAEB5DCA3C07F66487132C8B0ED7A3A462114AE92B9FBB42 +40B83A975B783825EA95C1E062A3A8991B0AAFAB1DA979954BB4810F705BC9D64E28DD52512D +7B419A8E99AF25BF82C97CC50474FDFD49F5C814E903277F5D3353C5EB9D3DCB075B72D95FE5 +FDD4622373C53A60A6366C60220E8FE342F9CBB2C6889C106F1EE77DFDFE55182F25E452002F +FABDC357DE0208F367B6CA3E63F37CBACD4CB46E7A135A45E81799E8FFD00DC22AC501FB2451 +BE07684A371B892391CECC1D51AF797A02E420CD0F254CD8A11ED79F0DC610058C513BF1698D +83CD8D287DAAA1B38B420E1BD45E7106828D4B3608CF7C4044A757858146DE68592E1C9991DD +DAEFCC4DFFB597D60C3E983EFB17036CA347B8FF1BEDD4216E3D5129009D28BE16909E5924CB +8DF5F1D23CC7EBA40E80394BCB874E5F9E5F2A71B34765152613B539E548CD9455BF0FB75A70 +C9FBB4BEDFCDBB0D2EB51B7F178349E39C27840DEA8413357850ABD84C971243C3F08AB8BACB +C40CD8E95C3BDD3229666ED0D59D96A723A1B35E3AC09FB2320AF2E240FDCFC2D6A400085ADC +5B160518105974FDA842A5D767B2D8765E1DFA2F3ADD87B9D8456D552981A34F26F745D39367 +BAE765F4E02F808F5044A72A0D9F60313880CA972354A3135F8288B0DAFCBAF024F77FF81D46 +50FAE335B8ABE641D567B63441A9586F56BB2977D51A0400C3B3BBCD8A7A2B53B57C0892BA3E +069E210304EDD74FCF7D3F7586178E311A381D1EDC5B63E2B9410C00E33A50F4C8208705D64E +63500FBA0991D2BC4145A511D04D2D2F5642DDCFCCCCA0A8340F913176A4927CC064DDBB6C7B +0C94D2DA6B60B3BC203A7FA9E288479905C9AE5E783A5D24D3AEEA84C1ABE3CB066656CF634E +617720C68573517F8C2C0C7BA894F8E6056CC42CA480DDE1BB7746A342147F70811BC87F545C +745C0DCAD019202B3D259CF12322717D53546DB87AA052CE17E09960AF97586166FA18219D7F +A2F10704CE39D819D28A1D6B857AD4C1256C9D6C99BA7F9C73A4078F0B789E9671A742660EE3 +F75D123245FEFFFFF5379BB5E5F0092F018B873FD02CCDAC65EA70C7B30998F1B6F629E8D161 +7677B6735E9F4A7F0FDF7DB4FF290C5A78BF2D59746035A1D0BE643EF01DAB866D25EAA4B8CC +76DDFA628AE7D9F488CBCB3D42F0323A2D2F53B281991C5911AFAE8DA6ABC0DE283B972F30AC +39789D8FD279F72DA30F2C3A569E68A8F09FD17E18965E69DC869358DFDD30AAE9DC31D3E11C +DF9E210053E425552059907B0FB8108AEC96C7DA99405DC2E1C1782D90FCCFBA416B8D752B22 +E5F4F05C45B6366E28FCAB7A02219A6CC61F7DDB793B071A5660E7D3F82461AD62F8F2EECD82 +130297971D342DE6B5E3E38467AD392725A0EE48C0042CFAFA608BD93F88F8DDFD65637BD142 +DA8C38B368FB251265A2FDC3A9535C6229BCEF2DA1C2517AFBE4502FB4D04E1094333E2AA476 +73EEC2ABEB64144C762DCB028528AFAD07C7D0FF812664115F6AB34792E170907B1C4310A9EE +E10F4B8A8BB6A897C3C9713C9C4EF5C32D875B32F933984FC26746720632CCAE622400B4E5DE +ED2B8FB67BA7C5C8CBAF9174683C23F33879B5D506784A0A88C61F9BA7EA837B2DEBF3400489 +42EBCF69485D5C071B3369FCD2AFC759AD33F4DF390E74BA4252A860AE7414F68A07F4228BC7 +248EA5DADE3074F20EFAC37E52A4349399ACEBFBABC3C9B89741C4DF40D44C0CEB2CFF1220F9 +A0CE338A16E76C30A974F3B274E05B557ADB2520D6E2A3E07BDED0F591F19F00D11DB7125C36 +5BFA0EE975AB815A6BBBB16D8E0F823B3CDD0EE6E2D377281ABA5C3E688CBB8597F80ECAB441 +9859AB79DD504DF53C55B0C8ADC3A46EF477A6E854B2AC82229D35788BA56B4D92DA9409D37D +66F4582F32FE78A81CFBBCC66EE3DC5441D2756AB7B6A13911D663B297D0446AEB1EDDD7B17F +563B5ED20DF1E0F2C46A5D18FA3614539F5A9C62F120CEC15502A07FF2B7BEDC8D646F33B612 +C4856FEF8FAE6F33D6D63DD0AA1B35ABF67762C145FD2421539F63B11E40A9AD15F53B1B87C4 +D61C4E04705AD7AAD6C587FAB0DDC6DCE49C573957200A776B2549D9CA487E8DA3A927808DA3 +F0FCC2CE874074FB6D9A8D69BAE3ED06321332FA7BABBD220618F1BADB5513AD4B562A36A323 +BF27FC349A9517EE2BE084FC29C50BC1B5524C904FBCB3AC0435BF9991641831177E6E2DC1FE +D5EDE82794FBA2500E1A98A5A1D511044297AF83020BF002A8B597D98EFC0B62AD101E692C40 +10376792F37B89F6D818DF5A4930914ED280D824FA434D44F1A3D63F9EFF9B233C28FA5CE752 +0569D0073EABB9621190A65308CA4FB4A506A8B8F8873385F3987E1155F0FF99DA528F62BC57 +3A675286B4B0A6476AFA55634203EBF98AFC7EB3AD81AD6559C3E7EC71457BF49E3DEA88E5EA +93FDF57FA597C3520EDBD3CA7F5D8E3A02FEDD719F1FF62D870190AD27564D8D2CEA03260B24 +976FB6B4D5B350096E6E707879860DA6069CF895E3C70CB04E5FA46143EF1BAC4420923CEB12 +0C4C11FD3E74D58A99331C300ECC103B829809BD6F5F2F9A77F10F4CDDFFF365AECFECD39C31 +947B4C143000EBD0A922D44FA1EA129A38F6A445D042BFC6B05C2B86FCFA7D3EE8A6EC552D5F +E58527C713D9F21AB6B79FE696D8E686FBD952D667206AA5E6B636FC9E094321752FDC1EF213 +E66B9309CFFCF0A27F1778C52642A4FFF188C9C217BF9D1F6F57DA783D5375515B8DA5FF5163 +775C1F48B2728570A52EF1E2F8B9B3F84610F026D89AEBCB4E9F5C0A5117B88CF2FFECC694D2 +6DA86742428AA949D5A1CA08967BAF71E839011AEC4CC98ECE5CB47F5C164BF79261AEDF5730 +FD5C7BA292DF4307E5286DEF0E74CC4316D48F9CAEA930DCA8CA5AA15F2D21C67D5C7347FCFA +AE4ECC16EDB67E2A43071CF97119BE55728AEBCF0DD8D4B5269315D9DDB2965975155AE25A08 +358B2EDAD362D9D4C63ADFCEB69F0F05DFE71CAC451DA43F58BC15925F2D91E035EE4ABBCCDF +7D4B283D5481C2E87EF9B8973D768E88BD6948393B3CFE6C35DD8691DD3C5F2E4AE900CD959C +7E2AEB395989791AA3B0F3AA56C36E6A91B628C584CF9502580E2546265D50B896779E7432E1 +C6E6F907867484DAD38397014664779E414A0E751B7852EC87B005886172918BD33796B49F34 +5644A3718274286B1F4283B4ECA99938475D8BAEB8B3A640A6CB659540D31214EF1F025C445D +2C42A68F67D738358CDC8CFD4626BD14587CDA309376F01EAA27DF4794C607DD8D851C9629B9 +78FAF55EAAC52B459F6961D98A3F4E74D802CC73FF749E0D1696AA0B234D3D3BACD0E0F24E24 +1F7C7E9F91548F34498DD9EFAD30B3EE53A2B7CFFC4D537515FD2B6E7539880BD982B64323F6 +18B5BCCA39A15866D2C367D4EF7C8E5D1852F098ECA523B967F101E1D552F69CABC1BFC0519D +D175F616F43461AC7813C9ECED55A2B7AD7AC6111F83759831136410900CA40EC581C181872F +5299660389A167EC7EF8F34D00DFE64F4672700872105D6A33D7EE0A52EA9622F3C8655761B0 +1B5A51B50CFBC24FE602F9A19DDE20B66DD78113B4BA22B7E8C52E479176C1E04774F58386C4 +1974EE4D1AA71259816FBF4D2D420A743660D9D56B27B615C96DE9D508BCFA0E4E60CE6A1460 +CB302A519CC4E21D200D09191F8E0EEA8BD650CBBCB96712D97C48936F0E0B838BAFF4A810A4 +90C2438716A74E000E40EDD35B92132ABD1B4FFA125DD0A952AD753913466616CBA1452F2FF1 +F6287420C736445168FDF5E3266295D539A5184EE856FDD8DDC7A3FB9B9E846FE9E5C09EC0E4 +AF97DFEEBEDF6EBAF48F1E961470D59B36330E2365BDC7890FB61DCDDB69B89F82B41408093E +1A093C2B47359ABD6E8E49B12CEE183747CBC8B50BEB4327627BFC4A8A0E06CF082D1951C0C8 +B947175219206371A9214C0992BF3C5218D1092088DC6EAEB22995D5F130A1FAB9FB9BD1C058 +12F63485B663113114FE4DF566F1939775F4D0E26AC1397509D85E21D4633B4426777738C98D +389C66A70A052E0A0BE93B6C76CF7F662555C36184BE3E823F1200586B08B7243C45E7CA384F +311F23DCA6AAA88970E06ABC636D14CEEB21E81150AE613FAFAF9620E8C98CCB37F076F4C208 +6C02D8A476AB2CBBB8A87C0939CB86454B8293771C9A0A598AE59440E7C76A1A3D9D28F38B06 +6931AD23185200F75FDCCAF70948A4492B987A16C9C3A3130C62613230B4845A9D8E77697869 +1A3081BA42378CDCECFCF7B92A375C5CF1511BC0B95A35D36459DB553A873C45AC7F20C7E09C +A1678598A0162BA6894BA993B63B0285AAE8F1DF2558A415CAC609ACE145E535578DC432DBDF +1976D47B88863E8DCDAB636F5981B2C089968D5F3B779525857B36E98B3D8AC4C4219D994DF4 +488F6777A754076C4C3DF62841A44F500E27DC2151B5557EB9D4DD0C7377733D73483701EEBD +1E0AF277BB00330F44F7BCF770B125B31803FC0ABB901EBE8D07FFA871B6C1837E394938E161 +CA5B2ACDA975EA5ADCA56537573804192CACE84A0C38E41FF471ED99B85C07A12E4A95C12167 +38E43D645AA813923F736B80063ACE1691A1580F1FC59CCD04E75660FB8F90DA9E4AD44990C4 +DB1BA71C47F220C5070973D63FC84497174E5C6A6FA5AA2F95E479422525C84C9969CA450D4B +17F81AC9C0B423C65A070CA2E43570BBE18E4C1EBB29625DF409F86083E1B9C8AC14D5A387E9 +E24818DE0A69A64774135C000235EE75CA5E543C3048293C028B977BF5B47791F27870DA9066 +170B8464BAD2AF416AF49E67D529FD2ED9DE2B782FDD7C5AF49599B312F6B94984B98B82F170 +9AE83BCF7C81A37B1F3D63ECFC9C74EFDD05D190E44725F47081D069BB6115CF2A8DFE81225C +6D011A96017CF9ECD9E3EE854B299586194D13704464E1367A306F1CDC8662070E5F80F2BA6E +85FBD11B489338D3134169703D01B7DEE1592EB03A80AA8013840FCD056308C446095F39A550 +A2C67184F201753B8F75E36EB7EB441C49C0050FD87044713F50C9E85E650EC1CDEF0C3323C2 +44602992CFCE8208691916C9E49736A8CE8F6890BAE4D271CCBF61A5D1C824E9AC1BC95FCF8F +A7996D1C49658E8ECAF0D1E50F0F4CD4E6A5EEF758338F360C08CBCFD243B11937FBE9E612CB +049207A85FFD6DA9356A8D8D9CDDBE0825268E3F9A119D0A5B71844B9BA6E8334DB245A5FE11 +F365C30ABAFBE4F6A0A21BEF660A48543D38DFA0DC720E3BADC9F9021A0E1DBA1EA28AD4AEFF +C78169A02B9D5EBD659009182EDC8E2F96EB664DE415B406CF955C91D3943791C7C593D136DC +8C7D31C83CE5F296994E47662F4096102367097E168E18437DCFA9B8B195EF3B78B37BE4E1C4 +6DB62F370F5835A6AB9498A72DDBE836B5B1E852849E689FD16CA567395591707DC5ECAA58E0 +B6E79EBF2292843BF0AAB38BFB566BFED7B6B71B7D9CC6C09D1AB163080DCF2A4B7CF63517EA +9F163C063DC8CB30795735C9F0985CD0A5A138A25DCB3711A8F8CE9DF936FF40077483FDA7A1 +D914F1B8ADE2C90D761E321F6B8FCD7935C73B9A1D56DABD0537CDB1951FB05E599421EF518C +49B314DCA4555423DB5C05AF92EB595528EC04CD66935B36CCDCE43BEFD490923F2752510650 +5E660C1A038376BB3C08DA3D3330861403CCC5EECFBB5062732FADE8B398D740F93596148CCD +5D6F6A2E19A095F7B0C55B2B8BDF6B2F853DD828F5C525B8ECCE44C2AA8355589EB001BF459E +DA6629C515F0AFA980A769DBFD0751F386C4DCFDA09827D7413469849C402DED22B2ED43A9E8 +1E68FC08C8B66F7F283C6AD9DD8DD4705FF110056B8031F5EC3FF093F63B719A46E0662CBA14 +71FEAED45B7285BBDAAAE3EA05714CB9E71849364B033C76E3269F9AEA997160E84D7E74F911 +2A71F1537E4AAD44673A9613E308F8894394EA1F3207EAB7A7BCAE667771F2FC10E67DBB6BBE +3B79FDF1470D3E73F5A5B8F4BA97CEFB355B3CF21A7991E0500CBC4B181C1E20C5FF1714B821 +134AC442852EC6330A3FF38657F286A4E06DA1BEB7129802E8C84FD31BE998AEF3A0CBDA3047 +8B7DF9ABFB81E15B509710BB8669225ACDD323F5EAE522A6F379D9B86595609D27DB01881ADD +3E28C7D26527ED751726473663A86E4B0A5E356CE9D60E131604414F1AB1A0D2A1DE53356D2D +044865BE7B359B9803591AFF123DBD6F904C8D0BB55B0CDE217FF32F80649C10FBE2498D7093 +6F0D6F0DACAB0D4360D8450736D6A68541428E715741179B51365E90E13D0ED7CA2E46D8A41B +1411BDBA0C295490B0516DE3168F1BFF136F07D124F4957DC536E645B5512C3EA99779571BB1 +6997ECAB4734DBFACBC02D4FF5B99333F39956595D1E3F97CDE8FAD902179C509E5C79D0FEB5 +40881B5A84D305E4E6230989D04143805C3582D523BAB1C176FC88582D38E097DD9A5DBFD177 +075A6C75BB2287E4D932FF131AB02D98032F55A334042E14145FA7DAA53065D576F433CFA74B +B9E64A03389B7CAF9D4A1477969FAB84F8D0DA010D8B0A2DC13F5E4276AE975CAA20D5750D4F +833F4770EB05CD904FEEC19CBE84A5851B62637B6BB6C972FD1BF6665A19506E4B59F7DA3F46 +45D8F28209556B668EFFF6D77E0942AFEFAB69E6065C2F2D5D21B9FD9F17EE44BB42CD4EE9BF +AA18CAA2FB38DBF8801DFDF77A72C5C24C65C12ACEAF3A08217E1BFFE33DF684AE4B58BADF22 +A359BBE558BAB9A6DD86F35586C040E344B9E4AFC4EDBF07A3EDA7A1AB25CC4A1816DF1A5CAD +C47DB1017B6132698E5256F703B35B1034E0A2E43C746DF121013511B6E097DCE516B97243E4 +07D6866B5CC40FCE115DF97CF787A757C0D16C16BFC5E997AB67E162244993320089890899F3 +C37DC5E40EDCD6DDAB932FB9A5946ABEE37705903552F8279C8942CCD1068E13880D2EB85D84 +1487AF708F3D50B794D5C61BAC777220703C849B6D64B237E1A049E0215F50CB2D274D0752F2 +C772FA7100F121F763CA638F7A46A0862D7C8BF78675CC7F5C4D5D2D6669C52C5BB70062E916 +D7E788181EEDD08DAB47E3E749ED82C4A1504675BD2011B9999829EDFF3A4E1E954302089706 +85723211BCF01E73F9D27D712B433C8ADF81B614E2853087C3BBE07D144F28F8C69555E82AC1 +5CF7458D930A71AED651EF57D68BA4D062C49AE8A20FC68D30C1A752B44191D38F1647733A24 +73BBA52EAB118EDE07A827AEF5A5289519E3BDF9FD1A5D4199853042E2E9ED36887D3E39B2F3 +17C87F789419726592F7845C6B000DC3C7F452933153DCFE094B49D5BD7AE3F1C56965BBF887 +234836A9708A3190D741303C86B715DE61ECDC8EA75C310A60362E4FA92A58933E0AE08C9E62 +7B8A9C579AB10C39C511235A7E941FDBD9E1860294DE9F431F78DFE692B5E84449045D30743B +DED418F62F94027147F13E026EF5571BE43F5DAF350FEB21B179CEC4F5618A233F998EF3A00A +1ADEB2364D6E73EDED749553CB68A3362AD6A16743BF4DA3F9B721F91EF3A5B290985A03FF06 +7728B996FE56A1F88A6B409F9EC551705A7B3691D867C731A5B9492A47C6C3D67FE476D7830A +CE5C08A97486CB3EA9F4FC139C604B3DF1C16DBF03234E61C3454F906F66AC740182CB9EC3AF +7C3B79DAE336FDDF85988EB6064B39FD751B4498318277DDD928D8EC5EABD60A07337BC73CC3 +881BCFDCB800A5B92F9C34498F33B18C66BD7C2AFEC7B79346B99E32A1D17E988A96F771F187 +F3AF834128F795E3BDD96E3E01494CDC764AD9CF17E8BFB4F4EEE2AB8252F620874FBADBCDD6 +0FE37AFE7243DF7549D1EF8512B31517CD981C6A09BFD4E0F36D432299F879232E645AC2451B +42FD45091D4DA29668C6548F62E13BABADCE90FF7C2D1EC52A2CE9FAC7807EAA0AB161487A45 +94919BCEB510505A13E77C6CB7935325C0F638DCA4F1124DA416CA620DA395580E8AD8812CC6 +95BF52CA2FFE7D346FB06EB90EBBC1A8A74AE98175C7F5CF6C98720814F1D21FEE501D6E024C +3694959D7F14AAC58509F6BAE297DE419461FFE18AD0E9935734F5F9A4BA87AECB53B8A8316B +3D9408BEF3AF150719CA229A0FED3A064CFA0B3AD417C129266592B81ED45E6B8918683A8E43 +8EA81E1386FB6D0E5D5A0B637FBFD99C369501CCC5D0C15F85FB98F93E494EB032B1CDE14156 +1F1F857E9AFC59D0AFB934E1A615A5846C81EDB6B2374996AE6967838DE130F092C089A0DB62 +0615E06742F8D4B6470C6C0968DF5F4918E22655D3FF8640CB417253E6D0AE72C8C0693DE7A2 +58BD930D5F7076E4AC980DBF44BC95F7C60B457932D14DA09D762E09E6FA45E85CD413EAFD0C +3961CFFDBD503919AD7CC9C0AA76C9AC4437AE94EA56C39E3990E05FB1A7DDADE957EDCBCC8F +8C83CE39CD0060F454A914EF87607187D795057FC8C14450D9514057489F9CA011DBE4E23DB1 +F6795C1E15FE38EF90D5E10D7A932F29E3C41BF4DE269707BC775629E70DB4FA8F4C50A9EC3E +1E76E64AA1397D8CDF453FE2C59F513B80A413266D9C9D7961CD5C776032988556C4C0D07666 +E1F1DF16D2F08CE9FBE0E1B36E2DFCA29D7A1D69F0A1B693099F935B3DDFF3E7622A92FE16F5 +6782171CE2588A9374CE6B4E5DF7A488D0C5A112C29385029676CD71E3E1C705E996895D2ED5 +A0C77884C793DE66F0E12CB2275A21A0FD2F0506FB823FF4A13E747EA3CDF0C0E3C12C97393C +79AA42EDB16B1234F4C492F6FB46947ADD848AF16469E06A1E50C9CB5E1A4D5604846BA0D7E1 +03B268071E5D24B6945C1E514C82A82452B9EEB7EBB6F74AA1FB3F769DBB3CA6D78991331A15 +5FE0945DC4ECADCB9348F7E6B1C706BED7A6BA32C3D8E3716B6BD181CCDF9C5A77C7E900ABB2 +839166ECB21E9E4AAFBF21A5E3E0D698F3EBDC5CB3090AC3165986AADF38329D8CCCB9352C8A +9E333EB6FF4B99A2367CDFA06D80F52C2D073201D85B13ED240A130397F03C074EB49CE924F2 +3F7A00970DD8B3855E5F6BA206F2A870C2C4CC9CC3468B24CB3833F3A0E74E043125D57EE34A +0D0161C669EA3F7DC51A7BC569C7B3C4AD07DB89F8BDF14C1A9C1D919777DD8A24D859F9D170 +FF8E12E9CBA021424FB659C3E7AAE1A9398E6C63DE41BDE9305C815CB5459705AD9BB98C2575 +975FAFD64D2C3C9C4230D90412D8BF52DA32F63B3C849726DA27EBEE3844DA12F91E1D232F5B +5531FA3998CCB5F669CDFA7B7A8AAE3417651E35617C2DD811BB1775D45BFCE4A773A13904FA +84A1883880E3E75C4FC7C48431DE356A12D09EFF71A91958299D3D1333670AEA2BBFEDD76A45 +93E17B523A850191C5DEF8D67384174E81D0439D612C67D56195AC6FE8883DDF0F8490F3EC32 +8FF430DAF0FF2806033AE9885075897CC7506CF8BBB32133004BB7CCB2A3B5DC34F0C779E817 +90E8F670C40751B575F028CBF97931745AC44EEE8F012CDD35FF0BD5577B0B2D7133B60A0906 +028A8F832E95D5D8C13DFD0110A104F69989A4B876FE3B9EE48848729B0B50731B96E07E155E +BC8E3CF80837D32CE65667115BE3CCB3248F72FAB07E7718A0CC409C84EB514A621C522DB793 +A3FEF9CF0AC0495EA0A0246AC47EB5DBC2E13CF38C5C78C2DEFA1203FA5B2DC46778E7CB928D +ADC32FCF8068F048744617F43BD588329CCA413F1F4270C9FFB0CA9460BFAABCBF3F39F3E07B +66DE904754BED90AEF04836CDBF0572C9135242FABA7809E58C84B04684F6FC8BA900AB5FFA1 +73C94911B8883BEA38674D0A88EC2428099223818927AEB7266B1AC59510EE62A41D34C1D53D +149AEF9951599D0FB909ADF55B35075D67979DFC7CF5BAF734C1D3ECB91F6885FFB6F19A05DA +57A8BAC0A4EBF93FBF2C73AA9239080C12A65095ABB15D9896154BA207AFBBB32261DA98EE5A +F50167E064F55E5AA233736E5A51F8C0DC03754D40FD01ABDEE28B6F44C646B5DE4D9964C39D +51D95DE4F58FD5882AC67DF4C0E1672AECEE44784929A0A5144BCD869DF6F18DBE65E0B3E0CD +A9305585284C82BE1D70CE1697B5F6CB3DD7BD9D04C35EB8C33A3C980F52BFCCDBC94B36F205 +33B8613C6D4860EDCAF0014168AA60181CDC568FE1170A6CA7026BFD2C9006AE1B15DBF64B39 +47EC1A125CF3A40CED79E34EA6942BC659A5CE3E93AD6D0D003C7E64E4B3AAFB3F951F580708 +7C8FCB6652B857B7F1ED896B4C51CA278F6437B4D6CE0EB77F8EE52EBB54BB6D86DD944A44CF +5F2AE9B17375835DB32E79A9E6B8167C118DA7CAA40E3253F2D4814918DAED4CBFE2DDDF1A91 +700D8432FA1FC102081D01E9C4F4AC27071F941FC0660DF1BC4721CA9EA9741DA7EBF915D987 +05AFE050533161D12528ED976259AA7281C5A62F452EDDCFCD0384A15EF9EDE352C76AE55EF6 +D29F1E0B86CA4D369E1081F224D17B2760EC7EE76EB094A295C9926E58E39C281344339C63C6 +97D2B8D99420B514946BA6F30588E8EB9895855B811D285E668545FFD9C198D553EA30704CA8 +8B7148B6F0B546942F635A60821E1B2481393EC18CD21FCF654B9359760B5CA85CDA0C58AF3C +FC59F7FE9CDD218A87DEA102F0D1C1EDA4C2B26A5EB4FD71E602D9D0C1287A4A4EA915A8ADA9 +947CFCC9096A63CB9300A301E97323429374622D73F93E9FC98ED8548119103E46B34F435691 +427D210E9CD0C104C302478C6AAA94E2EF9CB901F880F1C579BBCC634B30DAD288EF21E8F2C8 +55D300E9BB3F6CB5B9E08F21E6F6FB19D208AEE453D99C81B70BE8B9E04E6F8A96C50EFA4E18 +9D9A7FBBCA5CEDA0735A599B2D9E2C626D8B4ABA09A7DC35DEC2715E6C8BEAE48291D81FE6D0 +51DE1869BD2B51EB8C1ED6A3908CF4EBB849D64F7B7751CB76EA57A726608EE0783A8EEB3EAA +85D0FED538B644942B6B973B2B9A045B561E4297A95A0E708202D3CF3CA4AFB63F004913EB94 +828F271420991ED20F52F14D93505C25B6CD07BDE78B68B5428E4CB1BAD616713757ABD0A1CC +D90A1F3949A183B69C4FF08E586EE8E7F26890CE09A74E72EACFB28B9FE1966889DC57841AB7 +8C3393FF36724733B0D4BFEDBB11FB271B3E93FDF6EAFC1D7CC2489CCBE63C894882108C2D04 +5DB9343F9615E57C130E639FC3370187BDD91E8E9AC224CAC82594DDE45616B4C8E49FA1C6BA +C66BEAEB9EF6A6A5127B0A1D16788AA2C04F899D77821BBE36CF9721CE8986A1E8357A7EE7E7 +5B3B63CB0B0740B90C3BC09138AC43372012286F162420FD075058EF697FFFF461FE0DC0007C +29BF6F66BDE05E80A814CB7EA553C50AE9D4B3516A1CD08616E67491D730ABCB5C30F0749EFC +992F2C30DF39FCB77ABCB9095C0FC32F6A569F53B4C6BAEAB30E55F200CB3EA00900214F08B7 +3AC3F8A4F4F6BB3B3FAEAA54A18AF47AC76C1E81944C5799AA789EBF73A3DA334C2FB8B44AEC +D96C67583D6017AF79D86164E83F031E0D9943C7C7C60927B50470FA92A62FD7359C270151A5 +5191DFE5F9287798A249B11CF2B40DD80840F96FCB00670027E3FAFB5A23BA742E8E5FC7ECB1 +9F31F3F813362A72E7BE5D38351CDDF55D6C7681B2AB38210BDACC8EBD01679C919ED29C0ADB +4A6FF3C250A6D09FA7297427520EF12559B3AD03E7A7D99969DC346E717F4A715528D01A1AEF +A3DC8925A0A5E0955DEE8B8A4CA7650D1393F079BEA1EABFBDB7FD8AF98A5BB81170D2AD57B3 +1B47EF16F3DC47B739B3DE83B5B5BD3DA9B4B43B42434ECE4E5BCE83FBADFE726AFF7C0EF5BD +A09C598DBC33760D436C099CEF7D799FFA0A0E2B4147CD61D39E76B13549FF05F50B99DAE6A8 +D59462D759001BCB6320DCC3DCAE5A251306786071161F8BEFA541677336CE9CB5109AFE515F +3E7F3D2EACB99B1F1C5C65C83FCEA8156178E92D50A9FE8543B3B018A7CC6FD63F125F70BF5A +63D6BA5551C237C008620D4568DE0B0B601502616F1EB6B5D9B5348E279EE21259AD9E8205D6 +8D1D545AE46F48B682ED24ACC8A65C3D68B20000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 + +cleartomark +{restore}if + + +%%EndFont +%%BeginFont: CMSY6 +%!PS-AdobeFont-1.0: CMSY6 003.002 +%%Title: CMSY6 +%Version: 003.002 +%%CreationDate: Mon Jul 13 16:17:00 2009 +%%Creator: David M. Jones +%Copyright: Copyright (c) 1997, 2009 American Mathematical Society +%Copyright: (), with Reserved Font Name CMSY6. +% This Font Software is licensed under the SIL Open Font License, Version 1.1. +% This license is in the accompanying file OFL.txt, and is also +% available with a FAQ at: http://scripts.sil.org/OFL. +%%EndComments + +FontDirectory/CMSY6 known{/CMSY6 findfont dup/UniqueID known{dup +/UniqueID get 5096647 eq exch/FontType get 1 eq and}{pop false}ifelse +{save true}{false}ifelse}{false}ifelse +11 dict begin +/FontType 1 def +/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def +/FontName /CMSY6 def +/FontBBox {-4 -948 1329 786 }readonly def +/UniqueID 5096647 def +/PaintType 0 def +/FontInfo 9 dict dup begin + /version (003.002) readonly def + /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMSY6.) readonly def + /FullName (CMSY6) readonly def + /FamilyName (Computer Modern) readonly def + /Weight (Medium) readonly def + /ItalicAngle -14.04 def + /isFixedPitch false def + /UnderlinePosition -100 def + /UnderlineThickness 50 def +end readonly def +/Encoding 256 array + 0 1 255 { 1 index exch /.notdef put} for +dup 0 /minus put +dup 1 /periodcentered put +dup 2 /multiply put +dup 3 /asteriskmath put +dup 4 /divide put +dup 5 /diamondmath put +dup 6 /plusminus put +dup 7 /minusplus put +dup 8 /circleplus put +dup 9 /circleminus put +dup 10 /circlemultiply put +dup 11 /circledivide put +dup 12 /circledot put +dup 13 /circlecopyrt put +dup 14 /openbullet put +dup 15 /bullet put +dup 16 /equivasymptotic put +dup 17 /equivalence put +dup 18 /reflexsubset put +dup 19 /reflexsuperset put +dup 20 /lessequal put +dup 21 /greaterequal put +dup 22 /precedesequal put +dup 23 /followsequal put +dup 24 /similar put +dup 25 /approxequal put +dup 26 /propersubset put +dup 27 /propersuperset put +dup 28 /lessmuch put +dup 29 /greatermuch put +dup 30 /precedes put +dup 31 /follows put +dup 32 /arrowleft put +dup 33 /arrowright put +dup 34 /arrowup put +dup 35 /arrowdown put +dup 36 /arrowboth put +dup 37 /arrownortheast put +dup 38 /arrowsoutheast put +dup 39 /similarequal put +dup 40 /arrowdblleft put +dup 41 /arrowdblright put +dup 42 /arrowdblup put +dup 43 /arrowdbldown put +dup 44 /arrowdblboth put +dup 45 /arrownorthwest put +dup 46 /arrowsouthwest put +dup 47 /proportional put +dup 48 /prime put +dup 49 /infinity put +dup 50 /element put +dup 51 /owner put +dup 52 /triangle put +dup 53 /triangleinv put +dup 54 /negationslash put +dup 55 /mapsto put +dup 56 /universal put +dup 57 /existential put +dup 58 /logicalnot put +dup 59 /emptyset put +dup 60 /Rfractur put +dup 61 /Ifractur put +dup 62 /latticetop put +dup 63 /perpendicular put +dup 64 /aleph put +dup 65 /A put +dup 66 /B put +dup 67 /C put +dup 68 /D put +dup 69 /E put +dup 70 /F put +dup 71 /G put +dup 72 /H put +dup 73 /I put +dup 74 /J put +dup 75 /K put +dup 76 /L put +dup 77 /M put +dup 78 /N put +dup 79 /O put +dup 80 /P put +dup 81 /Q put +dup 82 /R put +dup 83 /S put +dup 84 /T put +dup 85 /U put +dup 86 /V put +dup 87 /W put +dup 88 /X put +dup 89 /Y put +dup 90 /Z put +dup 91 /union put +dup 92 /intersection put +dup 93 /unionmulti put +dup 94 /logicaland put +dup 95 /logicalor put +dup 96 /turnstileleft put +dup 97 /turnstileright put +dup 98 /floorleft put +dup 99 /floorright put +dup 100 /ceilingleft put +dup 101 /ceilingright put +dup 102 /braceleft put +dup 103 /braceright put +dup 104 /angbracketleft put +dup 105 /angbracketright put +dup 106 /bar put +dup 107 /bardbl put +dup 108 /arrowbothv put +dup 109 /arrowdblbothv put +dup 110 /backslash put +dup 111 /wreathproduct put +dup 112 /radical put +dup 113 /coproduct put +dup 114 /nabla put +dup 115 /integral put +dup 116 /unionsq put +dup 117 /intersectionsq put +dup 118 /subsetsqequal put +dup 119 /supersetsqequal put +dup 120 /section put +dup 121 /dagger put +dup 122 /daggerdbl put +dup 123 /paragraph put +dup 124 /club put +dup 125 /diamond put +dup 126 /heart put +dup 127 /spade put +dup 128 /arrowleft put +dup 160 /space put +dup 161 /minus put +dup 162 /periodcentered put +dup 163 /multiply put +dup 164 /asteriskmath put +dup 165 /divide put +dup 166 /diamondmath put +dup 167 /plusminus put +dup 168 /minusplus put +dup 169 /circleplus put +dup 170 /circleminus put +dup 173 /circlemultiply put +dup 174 /circledivide put +dup 175 /circledot put +dup 176 /circlecopyrt put +dup 177 /openbullet put +dup 178 /bullet put +dup 179 /equivasymptotic put +dup 180 /equivalence put +dup 181 /reflexsubset put +dup 182 /reflexsuperset put +dup 183 /lessequal put +dup 184 /greaterequal put +dup 185 /precedesequal put +dup 186 /followsequal put +dup 187 /similar put +dup 188 /approxequal put +dup 189 /propersubset put +dup 190 /propersuperset put +dup 191 /lessmuch put +dup 192 /greatermuch put +dup 193 /precedes put +dup 194 /follows put +dup 195 /arrowleft put +dup 196 /spade put +readonly def +currentdict end +currentfile eexec + +D9D66F633B846AB284BCF8B0411B772DE5CD06DFE1BE899059C588357426D7A07B684C079A47 +D271426064AD18CB9750D8A986D1D67C1B2AEEF8CE785CC19C81DE96489F740045C5E342F02D +A1C9F9F3C167651E646F1A67CF379789E311EF91511D0F605B045B279357D6FC8537C233E7AE +E6A4FDBE73E75A39EB206D20A6F61021961B748D419EBEEB028B592124E174CA595C108E1272 +5B9875544955CFFD028B698EF742BC8C19F979E35B8E99CADDDDC89CC6C59733F2A24BC3AF36 +AD861319147A4A219ECB92D0D9F6228B51A97C29547000FCC8A4D6AE353EAB9DBA0D43358689 +37E3A2D0F9C8A4FBEAE138AE56EF84665582DDEF7B546714518D224AF91D19409EC600924626 +D79F58E272E3657E631C06412F9D42732B6AE0A93D81E2B13A81C76CC37FCA6DB35A1C6A572E +FFEC7E1581C57B1D22EAE9C407771F4071D002A06A6AC249FCB7605C902A76EB298B05E39D54 +3A63332A91B8A1ACE05BF902540FEC1024680B8D5857E4931D00781747C87ADCC45430B5462E +A480BE50D07C5C9EA0D8D6447324434CF0D637BB13037B6E1C48F191C52CF2B9511690B54052 +80D5C825BD376EF12429837CD44BEA223DC8E199D8F85856C0FD551471CAB30481FAE99B71D0 +A844A75E4DCBCF22BA460A4C0D3ADFE0D491A7C46C0DC27C0F6D67BF13F324729ADBB51EB8B7 +FCB162B10FEC18AACBF25D2F943430E3C9838C12193C8CDD1EC8E2D98EE653D81749FA3EF8ED +CB3CA64AACD5228C827A54D8E2035F51FF9295966EF2749C34D8659672DBEA2041C30070B8E4 +7DB0D3DEC12B73389173C3915BBB4E40BCEEEAA41F8BF210A5BB0B04A34EDE1BE82852679305 +54FE0F64E5CF314D8AA0F86FE50E62F3D6052C099D91360D146F3BE54A65D4124A4BE17BFF42 +D67DF9CD8DB5002FDA1879F0244BAA18CB8F29EE353B2D608F51E739505BF7EA7A2926D5BC1F +B240A4440203ADD0EF91319865001F0A66B201C23A54A3E9901FB9E8B8EB576CAC63434F225E +F6AA8D9181B784D646794AB2AF80B1321A125B3E253B804A83872814668B5D61358CC9667ECF +A3375A04C75F325A5EF02DB2D48C87E3AC44A982830FEA71248B963D5A5D4669589F4818AB49 +D9B96350A102261C2A66CE3C1F445A347FC70FF9AF7E0C63759AFF65FDE244533C98B3B6B18C +E41C681D6BC1BA7FB1C1530CAF0760C2E1A3C539C6477D77EE57C9C7DACD38516B3118061A6F +7577EBEB01C579BCF1728AD5FECF3E2CAC03B419B91D77652A630D91C6D8F7B2CBF464181D45 +6C43324A6E30113040311770CC880C6631D06C6CE5250FB1271761F6DBCF47AE4050991BFC81 +7EF0759226D5535B801974A25D23C95C537D3531F6C9F722FE65B901BD1FBC4040E4CC0285CE +20ED890E1519CAB15870667692BA6FAFEF5CB3B07FC97CF745E42FF72540AA1D9D6704108633 +459D9C476E21947CFC746DD26CECBC22BF26F718424B31BD843D500EBDC70E8B3A69C041C41A +B0ADFF0A721FE2A1379B2483C0733E23B7BF78B046BC459A767CB86A10454826177FBA63A5EF +32DA495FD13208274889E04733AA164698D728EBFCFD03C4E407FDAB853E164697A2F09D1D1F +F542F8BA6C78340603596832ED67CD78FA450992770362B098D61C295D4D7781701DDC53114F +A57696376CA497868B996111B0BC261CED47F480EE57484249906AAC0F9069A7C4E4BD9368F6 +F6CF6670302AA7D5C177A7A45A4AF31557C7ADEDDD519CA51301C5DFC912586364DA8D22E55B +833CB024FDC1AFF31B33CCC6A385891480C55E87180101CA963CCBA7BF579C6CC6D51125A3E1 +1807925973D7F4D1EE0E367B68B8ACB8350954CEC10CD0A53534EE80EDDB470A16DE0C3806A5 +FF93D01DEA3D6363DE5397FF7F925B9E8F0E9CDEEF4E5C079BE3DC9E7BF36EEE7144F1D74020 +54A8F2F813E4F2E98EFD29EABA9EB897C9FF0B2F90455862E896369E3291358E3C8CEAAB2CA8 +554336CBD9B09C1FDB4F478AC3C275B39BF101264561C91BDC32738B49A6EB7FB89FB67470BD +2A3FB5E08B8CBCB685BD953841FB5606C8FB2AEEC440DAA83E36493DA277735E8E78D54D36B1 +B14BABF4AD083523AB6567CDC8517D1D10359FCB16C390746F9E92FA120B8FA80694594116E0 +F08B3168B3E96AB8CA94B0453CDA96F1CE996B4682FC45BF6999AB67267D0ADA1FB6995C2D1F +47BBB5FF9ED0B9CF2CAB99E699B37B070D8770CBC56779E074D8B889A5AE30FA18C058F568F0 +90F56B6B7F3F330423B58DCD9A057A0FCB34AA616DEC21C00769FD212E5EF8EA8372011263CB +344C9B7ABB32F87585EE7C44AB5CF36FF31C49CC10F3751EC784B4CC1C1694EF54ACA6373106 +075EDE61451967CEB308D31202382B523BFF36483935E4A59E1A0F239A2B94B672A9832E3DD3 +903684D8C0F28DC7563373358CC56DDBAC7155E7D4F35A29FFDEBE4B940231798BCDB7F9AB7B +E1277DF5A49B2D12DF4BE703EC305304C58298C47CC35155231C0D528601DBDB6124FF386146 +0682D4CF8CDED50B52EAA888CBEFAEE12E917ACF2270274AABC1AE075ABFF8CFF95C7238016B +249134FB1B987436FA0B393E2C648897C0EBFA2AF85FA9DFF3D8B20A672CD53C0B2A8B59981C +2FD43CB81819D4A8CFEAF26669884E106D4EBA27DA84C46AC6DD466EC91644C502E6FE081A15 +EC32B0B6771178EC74B253312D6D97C9665BC0BE4509D1278EAF762C3DFE34F55CEC7144C62B +6A3C44305363F24C5746B92CED03D497A5F16C200AB196C098CFEC1655FC8D6D765A5EBB09D4 +1DADF716DB37CB533DA5DD774701D0487341F084C632D385E7323E8BF36C82E8454554A4189F +5327CD38E733132A46C30EAE844C76CFE627D84B8B9EA861A81399FDE4470E425A5CE6F7B5B2 +F889D12BA39ABDB9FD0DF6E1D2DA4DAB5FA40FE7F46010290B9C57C9BA5BE3EF1CFC4E9D52E7 +ED43CE6B29B9CBFE663C3397F2F13FF6A044F2CD8C40A09258E2F402C07788D909B45E7935AB +5BB558C062EBE7A7FF1F45A3C94EE74E341D916D35553B679E4C3AC7DE33D2959EDC05D560D4 +40BBB6706E95272BF7B4E94B95DE9152B1815E5BC9592B81E60097A1D6FD21485C610A3EC69A +DD3B45196064877982BFF6562DF7294957B4758F54951F6F3BBCE5E48F965FA59105A6690FBF +CB8B4C23EF9782A394668E4F2AF757B9B57CE8439AAC0E8FE1E292E6236B6F6E1B123BCC59AC +B6DA98DAD9ED62DCB8CAC349287ED364C5971A15F7D203684CC7BFE392D6145E3452644DF6F8 +D2539E64EF50833AFFC8914E213362DCEDF0225A6D04AC7C4F74616ED5C54450BB6B47EB4307 +35DB57C98CCCD8815F288F48095E5252DB4CE9B87D33F2542A562DA4BA191A5F0884273D7C61 +0E53EA4FDB43D3B05E0075D81EC6F479DBB27849297879C64FDE0F853E1F225154962690A0AB +B1A484EC91B8DF6B93E43AB5AD012FF56D048C0597F9E6D7E5845F7AE050B78A84C14DD4693F +0170C7219C415B57AD1D12AB52E028B3660FE3F6F154CE501D46F59275F21F524B245E47215D +397B935409343DE6F71158D3190DA5D2BF8EF243BAA3CA2A0BD43DEB478AC31F32DFE1939F19 +0B8476B7BAE5EB37CE839F7C80B2E394BC12AADE028E5F834A63B905E965C792AB5CDA9F5BAB +98C92E6C0F5ADA4631703305A1F60EBC1836528167CF97A1BB0C2FE6B84E92DE35E993D8AFB2 +F8BAFBBF60782526046044AC9CC1D0897330694F6EB2AD5C41E80F2EBE2882F8EAA4DC0A28E0 +93D868E84D1529532BE3D615A7B6BDC6CC4C3A8793BF468D77F10ECB2D600584BD0F1B4F9A74 +B8D440960B2199054D54512C4E52B41DB9DDEAAB59B22E18F20FDBBBFE32314A8D314871FF96 +2723D5823BC6FF2CFABC89B85EDB88E7C0D3BF8E094DCF1EA5EFFBC05BA69413FBFA7F879F91 +DC1745C222F3AAE1E73ED0D101445CFABB2156D6A7E4EAE4469643708BD953673672D4BC1F9F +51BD4996960AF106A541A78F3C457BBEFA15BB9BAABDDFAF39AD42F166F9B01DD5E5D9DE3DFC +CABE799E2B61ED40F0A44CD9D4079BEAC5F1F48DA4FD882039128B9C245F90562CDCB494A4FB +00BA479BD4232AA9CC6F05BF4688054DCC07CB76BC356F3274CF1BD99595CA7B4BC8F8D4EBB3 +89E7D8AB3B30117C0A3A43333ADED97EB34BBC88C37C519F598FEB4D356755527EFAB2CA772D +284F04751313075D36DFB716BF47483192C638BB2557312382B2AC47F4504BC6FE6114BCCE3F +1E44978902DEB42366D95321C7FBFF6AB99A0D683F38C67549F1221A9ED50C6707A4F79EDE3F +DF08F34971E3E81AA25F4124F003E17E8B79C74AC9CAFC8A4626678DB5A2BDCB39FF9C8098CE +1EF13FF1595F013E9D8EED56706C489E4EF962966BEC29350CD47D67CDCA6F1248C383AE4D87 +27CEE7094FDD5938F3409E7556BDA042536C319607D5F8EAEE6BE9D4B1B5663854952B97B881 +D31939D9BABDDE346ED78ED496C7BB45D5EC3F6EFE44FA51D85820C380182AEF66B2C2BA6E7A +44572C2481C0700BFEE092DB6784CB07F37B1753C3D6018547568A5DD8BE51E4F3D464899625 +9A761BA6E40723C96E350BF05D6463E081AA5BE492CB145E2795C370948B20AC3C5376F2A617 +23B96CE8D395948C20FA214AB9EF79567563DB9A01F55BEEB3894C67B9809AEC9277F32680FD +C438392EFDD6A7BBE7621CD2E65856A73C9E1FFAB3641D9DC8DB3E64453B7AA227912DCF2DAF +584DC17D311307FE5EA4D0C77EC3B24CF2847FC42642FE0620E654CD533AB23FA6C380077021 +8DF7A2B16CC6E3FEB88151EC9E747699D687FD3D7112887DA01F1688FA12AFB6B20D610DA7A9 +18D0ADA1E7EFEE5B6D08424E638F3513374A9146908671F6F44BC241334B6FCBFD5EF9870605 +999BDEC58DE9F99B232FF0670E0826233A10D264AAB30EA83D70A6D9C8E43BBE80B672C52EC0 +BB285A1D7496664BD72A9F397E153C6740B421AF10E1CDF7356A37FB9176FA3812B9ABB0EB7B +63E281E10353BA657D69E8808028709C9549844BCE4959631A2B899189300667B2D6A1EDC197 +B7285A372C1FDC61081F2F368FCEE49BF56B37C63D2BA8C46E58826A71537A34A922AA523B7B +0B61BD37929EB775D1A1EE76399AEC20473792796E1D3FEB35A2246E084AE05A0110B179ECDC +1602B68C8A1236CBCB03CBF24F59664CA84C986E6C855C097515325F31EA8B2DEC6D73744C36 +F04A414D58A957D0C7966901EB3F288D274D0F66B5C3D1E5006EC5C4A949953763A0EDDF0C2F +9F4E2F96015F2A1CB9B959ECA30CA92A7434E7E8AFE35EAD6EC75004CA4693A9C76E7DE9AE6B +274F743403F94DB596DDDA9E8157036682F680B1A477C03F7796EFF275F8D090339EDD1A1D9A +9975F878A1829651A0EBAD55EF95CF616EC1FB281B3D96C39661184DCBA4787263BC4ADF90D9 +537CD1CF3B18EC23C05F5BD03DF2883E1D68B600E8AE82E67857F595E791D0A8D83460830BDB +79A5EB39E6A338D1A254F6B53BA3477EAA71D996C8DD28BC43DC69D47843BD2F353D89F0E73A +EB3F36004A3BA44E4E61B3AF3B225F8917B52E5EEE936AD213B9567D24BA22B81826632E9C5D +F11603C71E9C80B9B1FAC7A30405F631E768A47A79B9B4D186771C093870D8EEAA031D2F62FB +B84A096AFFA272CCA428A74F0A72E291FD767BD81588E68261DB6F0839522A5A141C925EF537 +39E87F0B4EF172ECA52FEE888AD60897383AB17D227C0CEF95E86F149ED6B71C05CE20BDE10E +E7400C4ED4403F731BAFAA351159F3211580CF4B8773F088241320A0C884989BD49A247804B5 +11DC5289182184CE866EEA529B8B7F7893612BDF5C83882CEA1A6F5E9548E317BAD5584FA34A +05819B3586898B99C3600ED890F739FD22B8036986844FA4F8D5D2F08701AD48281448DF22BD +9A466676CBC3C692C4C7439200FEB745F6C7F81CD0407E1F1E817C2EF213065E3A6A64994365 +0A3340F8E087BA44AA5AAD2E86001B33B107AE6D361D3959DB49AD90449C8DC89D6E06F97140 +8056E1C61701B250DBAB9F9FDE3BB46DF4A1B13DB958F3C5D090F33A80DC1F28393F92490885 +EC4FBB55FE14B724365DB03CB4C58F9863EE545D782303CF620E92C6A80D24049E74E626DCFD +7F84C3F8119CF5AE55BA9EC187E1911059B49C961DFC25A32687CE62814EEF24807BD03A7A7F +C1DB967E7A895DA8BE1A8B1495BE0DFFD8E81778A1D9AEE40338F082D0F4E42F3511DADC0A97 +B9FA07BEE70200F6EF7D43A6F3A2B45CA2D2CE1DBFF5CE880B4C57EB2467C5F9368D6682FF4E +518B9C40A6F0FA22A0A34FBF7A74DE73881259B85A12D3941D07E950F3AC34B8514A486F5677 +CB53ED099267EBADAB164DC99DA9583391B3770F8C82FBD4A23677E466DA9BB35DD8BE2B4843 +03A4EBEF7112D29C4E24A017EDD02E49173A917534438581F671066548D4B3B5D0AAD7562802 +24A194430A0DE4EF9411E455D2F5B1A9DC2A0AA6568137EF44521FF319DD2D7DDAC256F75A2B +BF17E6EAE45ED2A2A3B9C0178A8F1E7B321ECCE18FEF51A17A86121FBE9E6EAAACC84C6A999A +E6D66E0451016FCF33FCD44EA34555511C35A51DBE0AFA426597F72A5E2EFC139C1902B5CB5F +709D635AEF6A988AED3B32D7FEE045CD0CB0C4335CB59C643B3642FCA1FA9FF83127A1DD8FBE +FC572DBD7CBACA6F1B78C3005D81FC4DF1C1D4458AB5DC525441C92FEAABC2E54DA8B76F5F30 +4009A5D53365BC4D6A8D76FBD9C59F80DC73B5B5201BFAD2D4DB6AD6EB79F6CDCEAD13CEC0A7 +D0BD521F835B7AE021A5CD54B2CBAB7025F37873651FE647B364569799F6132D5A6E61B1CCC7 +F4A04C6FED51CBE81F2EF92668DE6D92846D44B26F72396AE7B02AE40F59F31D0E11CF382C72 +66B109528050A0182EB3266FBE7BC6C7D9BFBFEBE4537DB7BFA3896DEF9D1D962C29B3607EB7 +8369E34AFCAB7705E26C44CB4E7AC5D997AC94BA0D274D750191F8C0960818B77269B13BACFD +A70DD5E6F801F213402645DDFF14F4006AB5C25CF7067267F45B542917351A01DB7FBD6D9A85 +01CB327F06C53A3BAB1C0C3CDA017268A30B2911E995D59EAEC4829757CB3EC2D03E2B475728 +89AB1E29F94CDE133B235BD610442A19D9D9CACB8EECF5B85B965840E7188C9818DC823E13C6 +23BCE5072BDA12EAD079C96F0E7217D93BD1772C7908CAB7E3D7FF9BE677D437E362649EB7C4 +98D9B63E032CF245AA06F2E267D1AB374CB2EFF0E722A0D58C11936C93A4EF5DD2D1578F102B +B58466A0215289BCE3511252399E87EBADCC69FF5681A94629007E722D47C9B38E5B8826D604 +6303E395C50D7FC1D8CF1CA37AB1A1975382087BCA2445364A26D13FCEB2CE98AD6827430F9D +E26AE73428D67C890CCA1A379F4668BAC864FA3556A10C739C7E60F6FBBD51B73C111007C002 +F9251083689E5C16B8B16DD5D41353C963C12D93DBC1E4FF8CABE11D0B24FBD084FBB4433270 +7AB1C29F1BDD23BCE60EE9E4F001CF305072909FD5B89079EC8CEBF4D14D9B6B2A6AEECF7625 +73B7C1398678AA6C317128DE3F1BEFB13B40D86581647408BEFCEDF74ADC878CD7DA125F4126 +BA0B780299EAC33B00AC7DC9FE5ECECDFCD3BC319140A04F0D96707D097864D10BD08D9C8509 +2E6F5809B55820646DFA3F48E2FD4D695BF3667DB6A735263D097FA8A19DBA8551125FDF5BFE +22140A9BEC5085A4A253E85BD82F69B21AF5789EFD97F5EAC5ECAC8E55C31CF4B88CACB3E74E +2870E10012C12565B45002D077E82AC231CF994D70B550D6FDD65921C7EC05D7A651612E61B9 +08957746951240F511E2E64F665706C5754D4E21D9936BCFE5F3E71D85ECE3085691A511EB74 +859CB27F2A76A5C3299592DAD26BABD87CD855084DF2395CAF29CC9E4AC7AF2461AF5C0C4207 +B2915833F560E7D64C4C5960DB2595305C184C25A3AA6846B39BEE36DF1979941291722A40DC +BBCB4780A2C8B08BF9019202802AF4206253C2DF4AFE573655D4AA05C1004E650E80FBCA99B7 +CD78F3DE751DB82E8C82C0AFEB9A325DFC40B90A799FFFB5D736F85D789ABF65F096C011F520 +E7C4764309B158CCD2D78FC694A52B0B8421B2F57E7C594EB15E1F9EE493CF8BDDA908C412D1 +7098F619FE55891180493205BD6C3792E733F29CDC139FB3A63B24AA15B2D3771743DE88FBF2 +D6B94F121853AF13452BE9F2F4043ADC0B94FA3370BD4736346768E57DEC8F6CBA299EA4986F +0732AC92999DDE579B60444EA64ACDF5C45013A9E58A478DAF93564719EF5721511B65FB0D6E +72DF46CD0D7BF68AA0FF28CBF3E55CCD8B285B619AA5D71AC4CB5229548174477C0D1EEC74C3 +808203FE338C002CEA9E4464BCA8443D557B349920F08601E9E2FE3F06A388C01DF06B25AE6B +FFC6CE67DDE0217905ED1123C869618FBB885C794BFE9D9655FEA35F9244AAAF615954A75848 +6FEC2C87C6D5BB3659B7E9A512CE13703E66C138ED90ECD7D485F207EC126D1698285B8F599A +E17736DF45D69E8136FF26BAAB41A1A7F349E2328C4803AC14C05AC133EB07E20F2A1AD8866C +4B8650479571EC92E2AA365D13AC1243F2AABF38C41D889292851E8097F9F9C2C44741A535D9 +65E41CFE56F364849312D85252929C7FDA1FFE6F55314C5A93689CB725BB06F27C5BA7DFF6E5 +DF1850CAAD65002E75A381A9A4CCC4786FC90A8196C1ABF7FF755CC3C32EE709A9A58D8D35E5 +3CEFC1CA7B93DC8B068EA5038FAC8EDCB74C17092CE09E899CE36D85EFE5FC531BC5ABD0976B +9034337F6FE5CFECB5F1797E3B5B7D4989C6D35AF5D5BDA45C2137A8FC3A08A5339BACA67932 +CB4FCA65B960987F91B9A75C95840BAB3FE1AF6B1FEBD247EAA5BF1BEC534DC65CA28C24D98C +A811DB4F8404530C20DDDA87C0A942643D18F274483E9471A7550A837140A83E9235E037D389 +601A0A436CC344C310B730C6B6F47A137BB117135756AA95AABEAD4C9B799A1D91DFE4BD206A +50C54B43FE19227EBE54469242815AB503624F62BB1EFC9129481F04EA6B96667987CA322892 +531B12C538D40AEB4A9CE6DE2159D712C43E43B2EB4CBE5A30D5D22DADF7EF08C26A22ACB72E +564662ED3079D3A06C2596FD5FA22F7F7093B27C2873FF155583C4B44D480A49876A52ABD1EA +7194384032CA986F92E2F75F6428B9BA25C0B1F29A71E914BC52BA367BD153A8FA717B0F0E97 +9965575FDFA8EA7F9AFC61AC127089FB4BA1E653A4DE604968F6864D2E453BDEC2CC18E61B42 +1700595A7290754468CFA7E77175D6B55FC9E632F43D33AF73CA72C9EB2C7FCAE587BC586549 +5E225DEA384FBD43F77D2789C0BB77B38686E55CF8351AD13B613AED9C68EAD3332B504A965C +75E6BDE1C8F436D6233BC2D654843123D3463843C739AC49014D2BCCF9E6A9E47EB32160A164 +6DD95043F6F7120517526A285BC54F28A933DB4B467AC610C9356A838AA897842010683A9863 +59B07C3FE4C752E498EEF34C5162572476B0514EFD36D4795B16F5015898C3983DD04DD0557A +D9A351A0E7CF174EB3D748609628588C6F14419C61B57588E9E6D15BC8ECBD08CE0CA483A9F9 +9C45F845E19666BD1CEFCA0755B8EE1890AA6A01469F9AFF8A974A6476CF94CE5E3F752BC135 +FC7BF2F63498CB332821797CCB5761C11FEE1EFE5528BE5486F497CC9648F6A20820A253A96B +DA356C19145318DCC4B31336D69AE9FF83680BFCDEE5EF2B1C79752DEEB8BEC70A3822932ECC +C0D6792F05E60F5328450E218E9600CA5CC2D98902B4788B1A12813240EE35126803CE0BBAB6 +5AB7EDEB5ED3150F6DA3742A5815E780E0254A0E26A804262D6705EBE5F7537F46C9D1D2AE08 +798278F3C41D523464B13E84F54743C27621FDBA809546AC3933E01349ED57A5614B4B98BFAF +2DC18713570B8CA3F98D6EAA501948B4A89815C3DD16E9CA10F8F187033611EEBEF5D73A1265 +E1A9CD619666BB6063A2B69294985A31A51C6B5556D1E356A63E3B1B208E053ED37FBC0EB2BA +6A0469D82E91082D16B788D738D6B47BF14AD6C0E74160519BFA0BED395A6BA76A94C4835785 +60B104745F9C26420C4DAD04C7D614A1F53CDA326E94A1FA68B75E3508DD8B1DA52C3977FCC5 +9C4C2BAD789A532B0F99F09998B1E3BFBE4BB5C42D3418993310C6876203E628005B0F13FD47 +511E1530BE946C865F5A15AE22FE21EA8A6CD551D9032EFC67B269E57AFF421C42E97E671EED +EAE2845C162F88CE39DF0C13A60050050A1C3437731EB87E2DBB7F778C89418565A3C497D25C +9428E068667A968757D2F3EABCEB3EB76D6704ECF65812F67DAEA9D2FB5165CB83A544E052A6 +0D8AB97AB8E117465C93CFD8A1805B4C92EEEBAE941AFECC82CFE720C2BED1CC2D796BA6CA1B +9319F54E5BB6498A357921705AF9A9E6C34CA725550D630B5D454CB5CC683757CADA101434A1 +C0031F18841A994C3BE292443BEA237C72ED384EC5DAA5F2408C2BBD4EE812EC3C34C52ECEDA +21421ABE146AF56E3801C24A19BD1E81166BBAED47D282E900CEA6B6FCD7A7A236AA95E8E419 +F1AA13EC000FE907D4A4A946672AD737D670C54B52FDF2A03C34E35DEF4AA1B47DD67E45104E +054B1D51E4E4C8956AE47B147B5C36A6FEAD6D4FB000063B91D15DA69223C2DA79FBD03E86AB +E57445B003D6E6B3224D0B5B38F1AAD0FC43F663454FB32023DB8C67075E6BC70381C310BF6F +341E15791FF322983851EA1EB6570F22EAEF668DBA45C108D1F5F283D05F6343E2E21E4F33EC +612CA0EEB36693101EF5F48AE8BC2866DAA02346185E083994B20004C6CD0045B3991A600220 +6577D36D1E5A951F9AF449399DC5B6B2BB51A1BC56229997BE924B4CF8DBEADE9BEEC8CB6534 +A5C5BC10249B45DF10F1CF1538E8DA328469BD06183BA827EC09C4A57457E4FB0F94F47AADF7 +0F90FF80108FB6424DE234365BCC97DADEFC2D6E482E68BE634B14D06CCBFAF21D04170DEAF6 +0CE1E496A52C146ACCF4D178C9048066F685013971068D0DAB85F25D712AC465D3FC033FC164 +BEFF1B5EF5DEBC0A436BBADE8FD70D4BE2D3AE2C541AD590FF64DD8A92D0A8D0B6E67C150B2B +4971DE6DCDC473D041B4A8D8A26259347DB6DB7B9A84CFE97EBF7F8B7139ADF77E270D725FBE +8E5F407E9A578EE4AB355150E4F33A55DC8490BE9105F37037EB65701346ECBFEA1CC48032C9 +91E8122D130005CA49BE247AF612E1F939950500AE4E577B9B44E456B6BF7DB3F1ABBF8818C4 +53F2DEEAD4DE0073A06C118A3B1F808B41BE6F72047ECE96EB36F6CA3DEEFF19FFEFDE56B044 +941C159F34891209187A3921DBDA57C8A7935DBFF246F4313507DCFCA4AC94BDF69B29368074 +FF5640E8CD988E0C1B0ACDAA03C99E2895AACF401D51DDAF83C579A20CFE591FC0D10C03E24E +427532725FF4C67C069C7ABDFCE0F2D40D068C76F613E67CE466A560ECDF97B8E484BFD0A360 +6D42EF5E9BF958C2370A2DC634BDF1E34F74D29EA16E3A9CB71A6EF8AE59EB37A5B7FB012DA3 +DF189912AA4786047D51160D6DDD1DD50D7A8D2BEB2BBE3DA0E793FF20E48DB14F0A477FF771 +86FB913EBBB20216F68AC2354A427BFA2F20905FE15304EBCDBAF8B03264B0C141C4E3D86AC4 +831AE375E847EE476380E68CCFCA84CDAEDA86706DABAD877255D3E8F9FEB07B5F92A7B9B882 +A8D2DF2EEA8A4DD268FF7FCABB8D03AA66663B09A51AE83730E77FD859142DB309E9477FECBF +3ED9ADC3CAFDE91B3AF4B3EB2560FB682B0123149DD2E7F535203B8C72A5FA95CE79E10939D9 +1AB1DB12318701CAB9D3AE86D4995102B39C3020B6FDF744E0A29CEA73F813469904235C1C68 +BB5BFCE13A8E76632CAC8CAFE96B43300AD1A580870981309A3B8E47116E4710C904906F94BD +2CCC6789C4091575DE3A64C78190405A575EB723D1940BCB5615C2240807C3C326062638BE6B +79E31E12DD5D248FCA00FD8E4B17643291843F4C5FD32FC2636EBD524FEF056C0CE1AAB63E6E +D68F3EADDA02494C70F22C6C838236A31521724B5BE0422FCE1D06408895C8BCF8DD70D8E0EF +09C2CF585DBEC3C6667E7A4F850AF3FA9FC957BEA5FEF35D87780A5D073ABB5B8E96E0902328 +D29AA90C43ADE6F0DAEC98AA2A75BF018BFF278AB8F2BA32A214DCB52A872F7A3B472487EA7D +F39DD9666EAD3CA5480F7B95C4C2B6920106C21BFCD480068263AA36D8E03924EF59B3AAB321 +92CF2B9772E7858121CB869D35B127FD3CB87E14E71836F20A9AF1278011847A46044B2B1BE3 +1626AB11A1867BE33132DAF3DD25493A6EFAD8FFC6551807F5CA10A9772A6DEA00A5D5EE880B +78EA68DB2D9B1B611884AC7FF76607E3D73FC32B5D3EA656D16B256254C7151D15EF5CD67E28 +FDD144366F271EF5F4C2823D9D90C168FC24C6D077D66C71F4443C6552615B3F3D93DA082F76 +8AEF8FF3B0E618C8604321F87C2CDE65CCBBBA48D63E7BAD1268AA07A27FFD367677D1DABF77 +1CBDC68DE0AF5AF73C7724175E2C839194A7E14E1A327C45096B3C4EEC7C53431BBB2DEFCEA2 +ED44A912B6058B23AEDEB5D673FC7677B8AE7F6CBBCA6B39967CCF1805248FCBC0D3625548EA +CF2A51CDB92F596DC4C2A3BA1149D6A372C2B849DA5C064DDB3FE9DDAE4A58E19FCD8AD5791C +D2A27C363F540A246C56359C0F08E1D109B796D10670EBF6BFD6CE9CE161E57F50F5413ECA1B +28AEDB087F4FFDFF09ED709CB8AEEA7C1D59D5945ABA33BE9BA9A7C151FD384AF0562C85694C +078B70840045A74F180172E41A495B38C2557FFE5258B938C8DF5EED7717BEBF7024B50CF817 +DA720AB19D3132E98CBAA518C09CAD69C831E50B6C9A00174A95A039768A34A8A9AC805194D5 +3D3C4E741B9F1FCCF83F14C83FCC59851AEA362FA805850F0084018C6A48B4CD30C5D20212A8 +C3D409A97E396F1FCBC05A0C915AADF38B3090FDC9F10E92E4235B8CA92FD48FB30520B3AB0F +B50967A9D2F39AA71DE60E1FEA4E155225E549D2A797D71E756BE076375C643B07DCFF41DEA5 +569C536B683FA5E8372F0656E8B3F0B765B07AC45C55A9742412B69722E4A40B941EF6707C95 +D41A3A7CB27A7C72E686F21BA70D7536B2297EC0220C91F8BB665907C1CA79ED0B02AE1AFC92 +A870C9371291DB3FD76FEA257CC886528329C16ECD3D0A6CC17F9626E138F4581F5E054577DC +F0957FAF212237027A3A6F45782FDC49919E4C8C896AD151497340CCF3FF702FA4F658D03C03 +58CF4EB8E0E8893ED998DEE013E539B1586062B894070939E78DBF8F72C917D6C4C3E0FE3BB5 +D7A6985485596A1DEDF359A0895598B783953B72080BF96D3031D7E3721F9EB0997E15984F42 +D44B588B5C262BD16EDADA5262DFC8BDDC73400CB8A52B81E048103E4BD09243302A63201002 +ACAE3B01603CB8B8CB3262A938418B77D7D6FEBEAC59B048752CCBD982C16AC0B95E83F98AF3 +992D7B4310BC2BB736946EE5869C8FD64C9794468ED9A992EBFAAD2612F84D5A3976FF378E1F +AB4800C59C2CB0E673C9868C3C91AF2B2D1781AB104FBD8B74D2BCCD6CD7378C583D501BD608 +C5C68153E7DC46AC960C7521A4D82A04F564169262B612B16C3B6B8BABE8B0648B71FED044B1 +E716B3961E33FF78D7662D9F950AB3669D161287DA15C5347251CAC35DAF6A6DADCE3C2F7326 +3017F2E3C49D43CE101499A8085DFE0E083F32A5D3B4C0A848439DE4DB40A6945AB261969B9E +131642924A237C8DA33F836C11E58D2500B9B0A0DF61A899BA5E389EA507D1075F6332FF00E0 +1ABF088C4CAFCA39AAF2A4391C50CA5D911B07519CBF8147E69B06067FBD7663C0C1C2EB8DCF +301E54A8CF2314C4344CB022FD110527EDC42DFFF2BB972669E611A811A2E2BE0FD5C3070577 +90C82265368B82D53A1CB329FB0D57A39E41EF0932CA09548B48EEBC0A10E81BE2B14DAF1B94 +B0862C24068D5FDF68949D4767B7400F3138B17C5416342653B25D925701BAFA47789F07FEC7 +D898ED492E035FA2CEF3B514B566F23243DECBA253C414455E306B88D7BC5381F081C9544F34 +8A70C389EA1A90874BE4EAF2BB4C76E87D2699F15AE7E181FEC636BF047CB7DB5C7F2A62070E +2ECC2D2531B3A9A436BABCC440F666FBB425D7B8110A7F6FB348967850C9596EE62C11431241 +DE4F0CF7290E95AE30B5CA08E5CE2854F8F605BCA36244D6E8207C34E48DBA9D89241C6C6E42 +8CB9952F7549DCCBC4B5117361D932C5857408A072DB0D478BCA15D3180175D1EF2E2074C4CD +35B69F8CBEC7F8C86A42C99C3CB79F7BD187FD7CB9DA59D66F85C6ADD67D46D2746BB8F22743 +7D60849D22C9AD6B016EC2B57CF8994260436EB3587C343F9990C91A85D15A48A2E3A8EA6752 +74E016727B6E563050F065C02CB7949472DD0263A623B96672461FA673D4C2DB036E7B71CFAF +C70C56882CC8F0BBC50B3A47DF85E1196FE3DF8D4C8E644BBDC648854D07D52DD651B5103716 +B670F709947E406A7417006ADD9B522DE0B1C6CB391BBF1E569C67F7E0D9E46D145B82338A7C +7B6BCDAB83EBA2C587569F6EF336E62D49ECB484E49E3CAE475A63B1626B88735CB8F5F72D70 +B776CE4DBFC35401E4A1BAAD1210447A2CD75F28B3BC76F1A3C6160B91837F062E7453EC0932 +FED737A8E2D40533CF6AB583789EF5CCC99969FC100B1A2286C4F28AF4F12B64F8AEAFCF7D70 +01A7EC89D23CBF6B856855892312F4FFBD9F1004BBAE76B282FA04D0555A40F3A9F5F02C7E61 +9EB8B4D54A56A6C910B7A4902E8BBB1098EA4DBDDA6D7CECCF15BDF3B6D98EDD17038C5556C7 +1815C89952F9F3AE4B73BC4C5911713AC325D4138CD57195E3A7A59076C4E7CA883931F24152 +8078B4F1A0D98E737D3ABE55ED9EABF4097CA5A3742A0B2A1A64F8D99FB095480AD29B44FD04 +D04108902C0FC33202C7BB93C744AA14139A91ACEC3A09A3D61695C3AFAA31AE538E1639DBAC +4137D4B98A9C60B69331F5B9731B7A9C7B95BD29B07813326C5229BC6076815E1284CD35B921 +1FEE8F8695CE5EC9519A0F0C3175E85479DF012A6FEA37208ED6BFBB3FB13D031CDB08C4409E +E50C8D5E435A2323EBE93AD4EA429B894806857C11866BBC42844F70A72B8277103B9619843D +9844617669150D3052D214AC358F07BF958047050EA5B586E85CB13C4802E0C77C14A9E25142 +3F756A594228D7404756AFF86CF1E8DF4F8CA29CE3AA182EC99A45C975B5C528564058B2E91F +8BA159A52EC6661C1316CDF7D4AE64ABBE9205BF13C144D4F46D09BD23F690FFFCA2F850C139 +5028EC198E5F2BF97D67BC7CEC168FC3729C61C8CE551E6D1A2458378844D2E054DD0E1CD8CE +E07334D4DF6B1CC6BF68D524BAC47076BA19757E057ABED21AB86FC7D0E5A2205BB410B3E131 +CF73FC18378E482A8D0D99E56830A563F13DC0D94507701300779D23136F16E78CB0C11C2FB4 +52DD047B20CC3241DEA801CDFA28E6529F9F486FCB9EC39A844D5D7213D53253AAD0F6B6F223 +628C9E354A604AAC6DD9056E66CCE023E231CC1B7B57AD922B2E5FCCCAA4B57AC8279A6B1343 +0998B57A8DAF901B823E0705A3F85B33950DA323C6423F5050DEA499563C35927FA5FC2265A3 +6C42A047B67D82BE257054203DAF7676DB8CCF60F2A070EC59480D970832FE5E7A9A324D8839 +6C58B1445CA4EEBDB7336D82FB98EA4957EFBF386EF77B8406E18C05CEBC50BB45DE110776EB +3C7987E771A7AA2802E2C4D73D1CEC19F58F377ABE2F5EEDAB49E78F325D304CD08FECB114FA +B86E36420EF78A3BAF2BD4295C7C469DD7F631CE8016F21EE3538FA12648D162B897DE0CB283 +BBFF346D27E9E27B8F844279AD410C703ECA844F43D64D5E3C1B104E472EF9666EF2C30D977E +2A9DFE9DD8DF35DA387605213C2F78421CD7EAE1267023EA231F68879127162B223D49CB9A92 +CF76FE129F582C7614CEABC638E1F494ABEAE3A6A3A29D1E35050C22C0E41519266EB6976840 +82D8FD60749F77D0CAA71670AB1C28487CD4F3FDB1AD142636B1107D3ACFC0445CF05302FCBA +39549FA34AEBD4ED0286B096950E349E55EB619D24764A0A09166F5E569B2654BFD9FAAD12C4 +D4E57FC50203EE6EC681103757322797EDE0BC73EC97F088CBD3A57D51A389898710BC8FD160 +55AC242A00B25067418EB133B7DCB37B76746E4238ADFD685A1A6F29FCA9071632549387D8B2 +8620AEB2CBFF281B69344ADDEB6C3DF5A43D33A6FAF9476C972B32949A9ECEBC330F1C5D2294 +B170E28E3EB85B41F8C3F30A768EFF0E5E62EEC6CD02F835F84143765B67DACF952FA7CFDCEC +8CCA0F9FDEF8C1A188A39AE9DFF1BC0C0D88443AE75001EEC0B29E5C214E49AA89F1BF74D90C +8998F9B433C50E485C356DAB5F2BF3190FFF5B32D56E8CFC5D6A2FE552B3D8ECF8B9C644FF3D +002F663B06BE6562C2809CF20FFEA9BEA47F9C46144B8E657DEC0FFF127B4A191AF62B9FACE2 +C1C1DB6C8AAD38AB1EA635B6CAB6C3E9134F9DB9767920539C2598CC916D3886DFBE9B7818B6 +2A680797DE8D5313F875C868E6D946B5C7AF0506876E391CBBF5061E84B11B1918A3B0773A8A +6D1A52753BFA13F31834BE01E90567BDC66871BD0AC775F91AFEC0B95CD0D7A73A645AB35675 +AC9B80752EB40FEAC25158AFFF820BC9D6781BF275B638CE9A5EC45CF9BF727FCB42659320B5 +F4E63E5836C7871D043B860C2B7B3A573CB05ED08D99B24843CB0DD1DC981D3A182C5D440006 +CD053F88D890F2C2FA850455CD19AA3136F58BADF8EB74563C8D1E4F0047A89E245DE8988472 +A94912B298C1DE2BF721C799495319028859178AA092D3F74AEBB4A5122324365BF7C86E4E45 +B001D6D91DB80F641BEF92D336E3D53CADDFBC81C15C54DE2C6AE6027D1CC05152EFC53ADCD2 +20FEE64D1A34DECB75F2CA0227DD7505810B6D62FEA55DB4708E505373EEF643B88ADC96DA87 +BEACFDBD92943A65FE9B89503BFEFD07C7527C7A0ECA6A59191332CDF4217C3D824C9ACBDAE6 +F768A3530F905A08D2A58FD65C8037B5743F21E04EB474DEA5856BE6E84DEE3A89ED3E85E94B +718E1C47E66075C3C889E846449E26A87A1474640359033A847C576794938506FC7415515598 +F89FBD2F671187756FD690E1852E93E1336D1ACAE877F011E9227D24B39D36389C9BB64960C8 +780663B5B0389383D889C68CFA393AE15CE4685FBCF2ACDECB2CB7E385DC2116961DE06AC9D6 +70FDA6620DB0C8D74D408889DC249CEB1F25454AECEBFB569309D8EBD1D20BF604F4C64DF933 +7D48B2877011FEB7992632CED0A6E609E7DFF777EC90A5F653AA63687CDB2D6F9F50DD8FE903 +0224A55E8A551D0D1009F917D09D03F83444A2D4FEECA38E42C10A4C41EF73DE5D23BBE79230 +6FAD1046DC4C6E6E188CA4E5111C24EA251C1F7BB42800A3DE250ED423D1EED09760EAD6EC55 +6B02D6D1C4B38C3E52EF20FD3015C3F106BE58909BA7BF782FDF5A528DC71724A5B2B5DC959B +94380DD6CB27C0D7B2FADA651E03BDD5D4BF1C3AF12868EC2F6C01005D6319EC878F462D9DBE +0103603C12143F4185583C630D86D3BFF720FA6C347EF561F914DFF15AA72C670092EBD1228C +124A71DFDD654F39C1F8ECE526BB19067C512C1ACBBD5C19456E5055CAFDA3DFEBB564CE5009 +B80B7B75E296B108DCC3AF8B0FC9071E804DFC2E26DCA9DA8502A73DD10E7822F9FB011ABBDD +54EA66A72A411871C2D082937AE8289393BD18B1B4A8F479897C5B2709557FC385EA7DC92DA7 +40866D666F34ED10E9B956E3878FA763E336F6670A26FFDA75F26BDB79620D3995D78881E0EE +8B2EBA6AB7D0679F7F116EACC0215D5AF7E27B3C5A054957302CC326326DFC2A455157B16740 +8ADA08CC7A3A86BC473180A19D3F429ACD10AC353EC89C28DE06C795BE2848EA7F4153A3DED4 +2DE8CA77EF8CF1A3BA56C3B6388F48593B6DAA1949D66EAD49FA91A3083DF61C1FC63A3960D2 +37BBA444B2F15A9E030C1EEB36B5328B615B9FC847EE89EBE8D847F9C6BEC64B6A8F985DAF31 +0076F2763EDEEB6BA120E877D9E6B1B2DCF15760C3EE78333C394E0F06B49F6CBB07ED805B3C +D5D22B5EC37F22F4648B756CE4E402A4438749AC045B589DE0C276EB3673314FC71B63D74594 +9F2E5E3B20938249CEF5B691FF852D7D63A8570C8AD45C63ABD8E17DB0A8A2E83DDEC9D92FFF +BEF4BBBB6F47F397F592D2ABEBDCD19D6F4F1B62B79ADC2E4FF7CBA34DFA7DFE5A76B8A5DE22 +57EC6F6C2C80BD860211B83724D194A662868B89919FAF726EBA9040647B36EB48FB168BA107 +AA9A03A422D0850A343F6E01F311E431E103F413D66B378DDA1533B2E746A5E36E6526C6017F +0135F2CE24939813625578A9CCB6A86DC637F49D9A733E05DC4B771171CC76381F971F72DB75 +6CDDE3EBF0EC28B23206B8CA92B7588058D2816DDC514D6A9FDFFDEC2BA476BA9AC3D9E4FF62 +08C62E4EFE1C9B6EB5D7DA81F9F12DFA7DC4BC24E46DD1CC8582E251B7D59948A9B83D1584DC +6FF18F8E3EBBD2F2E366E62D65268DBF334AB108BAFD30DAA6571F963930B83769209D6127C9 +908E8B27437D30C8543BA89C67123493836ED71F8807D636CD861E0BB09A0B9C5904690C28F1 +B07808366B81AFE5180C97017C18B8FED31DD2BB6594D69979EF03F5FE22732BB9FA9FB5EF1A +97B68FE9AE60ABEB5A85C33BD6DF83A5B2BE79C17CEC7E1D980192C74E3AF5166A19430012B6 +DCF8323CF0FB0480E80B94D0AA69118ED72F0D07C74EA36D2EF6E32048A3E901D20DF9784113 +F8FAB74F490B141E27EBDC88BD273DB963CDD36FC9BEAEE9F8E15251B49D034939645C7DFE40 +99D9AB33065B3B764D7CC73CCB4D4D4D130B54147259F27579B471702827DD43E6B2A1465C4E +41567B42CD642D5453BC2372E0317074D9087E76E2A59F95290EBF2C77E87489CA9622419C9E +CBA2EDA3C4768870DF2AC7756D77731434976E70B2CA93FC54D26A520BBE1DB0CBEBD9019E87 +1FF3CCBCFFA0493A3438EDB94D25B85BECDA25D4B0CC9CC2225048F43FE156453E4BC18FEC6F +A779205AADDA5AB771ACD04A84DC024C7B47F474FC7E546C5F9E7C3F27C824271154DDC61126 +040FDEA871023C0714879C7E8C6776EA4E1E0F986785CD6B0FF6176C13E0B00125D0A3D4A42B +D6C0BCD7A20679AB986B1B6A1DD23FF41E32D01E11DB42322BE74E6883A6150F8D9F5B9F7B24 +95C6FB79C2BE4BABDDA057E6ACF296A7086EB45ABAA00EF545FECFF1A0F136F7DD10504A88F6 +2EDA3F988298D91F139D3465076B200AAF8CD0BBB2975FD7E9345406CAF69301FF29BDBA3279 +09F0A017C74296FEFBA6969FC4D7631632177F3A81A58CD254A797375E8F4F1B60771C448616 +6275868ABEE33AEA8412FE8D0E7A695330AACB6D185E13278E16BABB704917F999B19614ABB6 +1A4BDE9B4B6CC6B9D157BB629FDBEEABB4A75759EDDA7190F9082833C4169EF1E8587225894D +0AA5E70A83DCF54A21741864DF1ECC02AC0554029C828F3E12755EB3D513527790547C144057 +D0911C47FC73A38F17BDD727AF139C531626DA8AECBAE312C3F79EF0596B941EEE41F2B7AF11 +D05B990E80D8FCA0228C33127847F78B8BB1F045A7EFEC385F8C87A7A95C55D076C5B7D231F9 +39FAC2151645A826C0DB57706C6E07B999F8E133FC55ED171195F7FCDCD6D0B918013272D288 +6F77D5A5D34ECB6EEACF3A0204163C9159EAE7A84B339D10B91AAB9427538A218C958B213AEE +D92C0D0E104DBC6CBA03C00D2BB80C55865CC49F8D3A7A0BDD45073DEEDD049EEC5A97752999 +D9E35BEA8285151DE3F4256D49D4FF99501558874447DD424F51E2BA8DA166379E4F8027F6FF +F82FD93BA434D4BEBA38641BDB33C682794344BC9FBE7049555E68A9C4B7600F6F1EC408D707 +D6ABE545DC35A60B9C9336B8D39ABFA68D9F82B05877BDAA09080A2D02B2FF40A9281346FD67 +5B9F3B8355C70B2A17144ADBC6FED00D0B27EBC0617C4C7FE8A74815ABCC791EEF052CAA575E +98CA94327A20844D8A9D05336F0C53A3C2B1FCB814F97F71E7313D02A4E1C21D104EC49E9FEC +72F10B331D853D2C54E5EE7190066FF791D666CCFBAEA3A9C28C37081EE1C21B53990F7B537F +931FDC01BC12CDC877F3E37B50177C412B45DF334D19645D83385EAEBD77BD6F83EB24695339 +2B92516D52CF36EF4DA7AD06BCD0E180C8257A3ACC11C139B36340E3D717C05C4124BC96996F +9A1D0E3DDDB01531080DF80007FD8F34BD48A27BFB5E960E561758E4476D9F2CF45E6C0ED675 +3F2553FDB46DAFF2F07ADE8D9C082D5A4D69CC8EF2FDB5EC5041D1A8C263F545CBAA0EF0CD5D +E4FEABF10611E5D4FFA1E34BB7378AA3488A60BF07535F7C495B629DDC672D2F5E0B98BC042C +B31F09C6B48CDECCFE2205863C3C81E1D9882A7EF6E2D047D30E44829C6C8B950008B61BE012 +7B12C59811478B851A1F000FF1D19D49E622977FA45610B82EA8805B8C1EC86D564009420947 +2BDCB4B926756B4C3B643F1BAC07649C2CBD2F474C6360F8AF10174D45EC74DEE00FEC6BF743 +7243FFC7F712BB350212221AF8ABDA76C6050F7CFA0FE20C5E9FAD405859C23F446FA7340AD2 +EED96D7A25D9522FE68D4F3899580C978AA0DA8268CF2950E8663CA05445851A6EC8100DB53A +67E7C577911EC53BA388BA7B0D6E4E0CB3C76CDFC40E9B1CD5BB75DA4DBE2D60AE9E4B16E11B +BFEBD7A755AA5DDE3659204DE4FD46ABFF8674AF6A8CBA0C2E4F51C2D63CBB015993AA1ADB4E +0402224D28E009E5ECBF7626D60DB70F34B708DD7D8C8CB7AD7AE1B98C8C300C49894F555435 +8D8AC7E6E97F4C8F3E2B4B8B46B4D2D5FE57C703E0AC7383241809E815E013BBFB0343B2CF02 +2F871E78000EA5E8B9508D83C3E55CA6BAF6D4A1C99F9201066997EDD94DA3BEAF4A4E80CA6A +35A424B75650CAAD6181077D7C29C3EC1578F87BA7C78C520C826E5586B284250C66551051D3 +038C37D1124BDF8B7FDB74E04CBB27035B30D8C7E55323B74560D85083C21CD4AF5D8D0DACB2 +A7476BF28AEA038904AEA5FA8197A31CD6A8D9C84C61E77FE31BC0FDB50DADA27A2C6D979904 +8056D2FC85D400CD45849DC969AB95187EE6D8A9EC9FB811D773B475C03AE406BFD254EE3047 +62B197A6A4B953960F75760242E2884FE19E94F880E11409700877987BAF334981FF004D4A49 +217952F88EBE44AF8AF7DC82EBA1A7E9D6DFBC70DF64FDB318909902B779D1B95548E739C365 +55E2B86F2B05D2164E89560F9C7C3BCE9237508EDC653988EEA565D294AF4364F4AEBB2D908F +FF967F3ACD3398E3BA0C8D4B127FC03AF26C6889D0F54D52FD23875A455A83F22133567EFCD2 +057CAB4090646007E7D068BE73976563AF979F5ABCF7211BCB7AEA9FFA525C9E700E5F0681A3 +605E2F8309275358EF7C19CD8F7F2FD8C4A8E556D2BD4980268407DEB379E7FB6F45627488D9 +FCD251AC6A8469BD0C2B9FFE2C4564134329712FE16CDB1DB01BD4CE131C81D15AB22C857022 +BE6560B12A98A237ED373787A8CE38B2364864C4C809A42BD1761DD97571D3DFF5855A0EB781 +FFBBD209BA616A4B2EEA45382FD99A2027CD4101609D967F2A68312D7BC4FB7E5FEEAA53B171 +34B696E82F4568CF14129A610BCDEE11D31C86869A59607E74887779EDB18D5638FE5F7189C6 +287F2A67E6CE5B6D0B91BE8CD6D0E9DA5B8570123AD11E5E2D7BB3D65DD2C2363E742A5C5A45 +3BF7B9E227CB2404D579CDB782EEB560D9F0AFA64C2A80263E468A263165206616E647C3C558 +D6C3F311909B6558834E8002370243FDF714CD22CD3B0295C07181607AAD3F91191152CA9DFB +68580E9D2A7EB618B360BA86E4B425E10EC9A265EB286DBDEBA1E19CA77F065434C0EFA8A004 +59A6EF778B27173DD2041F9BFE5D0D51C82C410C91120AB841DAF280ECF8AE255F079D1DF5ED +838CD56CF1FD0D0518653CFF7004C001C956536FD9076D2E8A1CC9DE8A89B42FEAAFE59DFE64 +51A4DB77588EBA6E0D12B4F2B9C58478A0A9E2A7FEB0C861F10D999DCFE57D9B8FE4C3A468B6 +25FB5DA27851B31BF5632821D78213984E0E179DD7FED41686BB08ACD717918629DAE2D4232E +051845ED2217A28FCB004A223BB9B2B1DAFFE4FC5F095AC0D80869B32EE2F07C4AD050239AB7 +94A04E48B24F16BE00822DD60E2BCEA06A785304C75672DC24A8BB8637019825227FD74DF4A0 +E0E7819484FC2FD88356C55373EA2E61AA3E4029D2E6699B23C2972B0DE4E559830A4F8B9438 +2FBCE3EEEE72EEA57A725EA653722A20710DE22D89503171F84CFB3C324FFC8CEAF265DA2F41 +9AF9B1DC692F852B55EF189AC121620E6CB9F718D6F4D3DA13419E6EBDE24A1185675F95979D +F7718B93C7659DAFE30DD11C67D76D0AFC5581205E538AD57E059292F040B5E787B52E51E2D6 +352C0CAA926C6F14A765640E376DF2917C7362A51B810AEDFCC716C3EEEC84F93EC0C8FF0F7A +876E985508B9B59374DF12760938EB115DCE9E0282DBD8AF0D6F9398AB9D1F90893F3ABA8859 +477205BAD02A5152270D152A4D2A03F6D97E8B9048BFDDE9D0092D697512315B81FD45BD993C +48B64011981D38A7C0FF6B6473674FDFC5CB77AA6E020A379BA8BBB7E31973341A97F690EBCA +1030C35DA6CC5F71A1DC2E4A843B81B094B1973835E3E18673CCB6E5C10AB595FBF21F45B63C +D5C093F53EFE2FC361E1EA45FF71A5145101E6F7D830D3677D0CA5A77CF6A0E6FCDDAE934EAE +2B85C74E6EF8E043E6D27693B9111BFDEAEC22938916089D3B60792556A5604C3B1EC707ECF4 +4FA2C6E23868A0EB79F6FA04205E2D14C07B9229F2C2F6E226328BCB94E1BC69026BCDBA8D91 +B8377EBB54C9C6DC1C986A7E31195C41F129475A4BFBD5768BE5291FC0D95E31C29B1BAF68DA +08A5A15BA13006D05B8D7684D14962D530D08C3B74327F298DE3EB71F49437863991287D58B0 +2C9917E51F2D87588C7FA8B7B4A39A319D14ED56EDB09C028797F0E66EE06BB6DF1DACFFC3E5 +6F793AED15AD0947AF0E851F9E5F93C2FF84E6D2369FC3BB63B9E7AC16D8420DFF669CC80531 +CB6A4440ADF0981301E10FE9DFD2AC2468BE291D09B62447C372B04FFDB674007BB978133672 +88D6C5726E544C4C70DD9DCF3AC72C2A17F1A8073577D86BADBCB2BAFE690E1051B42232694A +FBCF24978A93F0585203D4E428C4630452991D8DC7FFB57D5F0C4890E531FB7D5DDF8C60BFB0 +EE083374095DC0A4C2B2B5D8A2D0876CD053253653EF66061C35F41A6360DAA92FB21A28AEAD +132A9A0619142749CBE4D8E0EA9433DA0E24E2AE2994043660375E9F27B642E68404E652E43E +97E15924E252114C7F725096DEC84C57F3F2C74F280CE61D76D0541EA826EDD294D776EC6144 +C1A0B4217B8D1591DDF0EEBFE8D2F155A0EBC74B4209972A68707F7DD4D7877F121CEA063F5B +E652614D1784FC1308C4B4168921859892C12CEF3937DBE7DE29AF39E59B5CE108FCB6F02ACB +66F3AA50A36D0CCA33755AE54CF54DF09E39226286597DDF89ADED47FDFBC678CF902229EE9F +3794F22EEE12544639BFED8F1CDA2D49D7D36B7286536942CA007B70BB2428AEF23A5496B680 +C009768EF1461A2C9CD4316B8F20D7F007E2D93E43910AD0651E2E79C4C16ED5A168C957FFBB +2CF6BCA0B7A3172A1FB1DA801486D14B3B7889CA1CF4F2F91CA96EB38DF6BB5AEAE99522D303 +0DADD086D4A6FEBD8377FAD9D6E99297077F4ACA3C8C113EA9B95B82C137C077FCA10D5AED69 +340AF36F83EE24F12828286B70FE4996B864C9DFCD8604ACB1E7F0998740F6E50E4F1CE967FE +6C62D1B6F0FD70107E5089FA35868EB214DE28E1E4D283FC7E6FCE63BDEE5B984B3E61E8D55E +E216ACD44E2730E35F68EB253F764CF919FFA49A176DAA35C414621D0292BC35818417F94B61 +2550CC200FD1FFB8645213315F1C55FF8ACA8D4B2FA245710ECA951A9B05771313F3BF8652B4 +D10EB4A46AB83BA01240CAAC4123AA3BC5C1ABCEA8D73EF4DC906DD879B87AFFA69D21DFAF9A +5C72BC0DFF0CCE5E3C05B0C4EC166D50FBB82198534055F6F29CBBA63B5FD0D5E23009C9197E +9FE84E440B5BAC980CFF660DB31722E1E5A0EACBF845D02C0B4527D58AE2594E77B9B07357C9 +F9837C53D094339AC2F97F9F4E2F33D2ECBBA45242C1233F2A1995F942191AF893066906B813 +EA85D0222488092F2E9408C705FB836E5E0F82C3BE9AD69AB3DBF091F9D6A34A1DCD7A1BDB11 +457100D630E6AE26CCF70F12870A1A43113D0D30DA5AEF96675C0E7497747CA5929C76487ED4 +6A6151C16FE6E5B3190CA9917AE8820A939B774687009B135E9C59FAF71C8D891E0D12CB18EC +B7A68F10EE0A2A40731C9D16C8503B507E59A12BD61E4180E754D33DFADCB1BBD8062E69BB0D +43A1842C90B56DEE3670CA5C70619DDB217E685A85DC38D23A285434C051DB426E2E3145A5AB +6E63176B6BAA8D1C52AE12B19F3FA06203E95729297C05474F453B0B6127545AEA57F42C7010 +C343ACD46D28CBEC5D33B2879D23778360E12C96F0F247CBCF777AA053E6B4895A74B3440B45 +B1D02CC55C347C211ACA9CBE2956FE297C9964D96BB12C6125B36CA9AD3F078E574EEB5B7B34 +9CEA73B4016833EB155792DD79078C0036223133ED3C0C04D563E7CAD2DCD1E50FAE169725EE +D5BE6891920AC2A4B0D6CCA87E100796E30BABE0A2130DDB58A227BC20513C09D743E635733B +E09C6F880A6B6252B5E06CC87F5EA618D144E362D06FC5C19A30E2DB79CB59477F39D6E8A44E +69CAFDE299A3A5BE9CBD28F5F94486475CE927BD18C3AC001FA72146AA72F777AF3BB23EDCC7 +C7294AE153CDCF88BDF2B50D4447526972D7F88BCF3F41DECD28F64590084C2D813EF348B4AF +1F3348208DA9DAA7719450A6EAB2042FBFC94A92D64A044DD51C6937C6A463E6FEDAA33323B5 +5F8381C82E8CBFEB5A12FE7C68AFC059C10B0E2D7759DBB958D5E8460B31467992FCEBCB3B23 +D54B530E3CA0FED52545E73A130AEA642AA483B459BAD1A7DEBA3A16B757A444B87FFAC0186C +768C5AACF5A635474F8325E0F1DABD3F3B8F5B40EC27B7ED3E03DF1E0D95460FA8B6463A53DA +2DD706FEF5D8423F4DEBD90D14A6F48A73EBF07FC349CEBD323D3297E2440A16D5D1CD32B876 +801E30493B0D4FD6BA795039D4CDCB8A61DF9A55B0F0041AE132B18DBC983D4188EDD62ACC77 +9CCC6FEA7442EEEA2B6C6D7F5EACE7FD316A114B24A158247F1D3202838427AC05ECA289A495 +73B4BDCCFA3C580E1CDCC72ED15A1899AE22F4A267221C87FE764968A8B3390A020C4D4B5852 +790B65879902ED633F7BEE0DBC0E751FCD129CC1D0235781E6B94E8292991552DD115EFEF587 +08B3FA441E12306369999AE03112782C4D230ECF8171D7E854FF01BCFE12BF2E261C6B0B2E5A +4F39B523D369D710CE5DE113F78F70339EFFB337A415FD9A6C3E9BDE77DEC47B78E321AE0655 +648A57C0FDFC642732D2DB3B70EDFE4B6EE52537E67FBA29CA82EE6053B67DDD5CE9F52C4771 +E082AC91B3EC6F76D7ED4987982C47F3258DB784232C6CE9BE5A8154209D97E48A78E54719FA +A732ECDA1070DF39479B46553A8A85B8F34AFE8C720D3E22BCA983867BB4876CF152F1DD50F5 +80D4407CC172FBF60B16C40EC89C3D62E679AFB6F25E72387452E613F3083033F1D797CDDC6B +693EB426284978C3338394341F84F2C26B39AA2A058167DE86D4B8C221F15C8DA44210E5EAFF +05C920C58E7FBF074CD98A29EB04B66AC85B60F2FC1AB5FD7368EF384FCC71275EA8A74E9598 +6E0D3443F6A1A8EF5ECA8F8C8100C8BEB78E910827E54E45EB531496D7D85B1634F18C172E86 +BB39411572495D283BD248C24D638946D913513E7F6DEDBA40542EEA050AA57DF7196C45209E +7FDA91259444849C0E6F0640A8C1BAA6F0814A940A270110B6320B3743A105BB19A98DCE26E0 +295FBE34BFA7F4C4794F314B6AA65BB4FB132EC739896F767A9E685A99ABAB3D99BCAB20A66F +EF71DCD9025A58310546C7694902AD2B7B903159EDDCCF522A8E9F34B157AE94F8BD83F84B89 +361727D9E46108E52042119259C3257FB493EEB3971987DD066E1813B4C96F351AE4C1CA02DA +9950B110D156E34BDC21788C729E8DD557EDAA32580DFB85C3F03BD90039CA2A4E3EEDD1A73F +1D33213E858FE3422D70F9E65FBEDF026965AAEED034DC2DD6D7CA0F8A0DDD025D7A1A443004 +92CA1038FEA46B55BFC72182199F48CF4BF266E0F1FD98058443A7225DCA03F819C1057D826A +F333E27B9F79D747EFAACB6EB0086B85B15EBFF264CA8ABA081FA2CADC890A8EBB1A1C40CF8F +7FAF704DCA0F35ABFB0B7EE930447D8037B8A1E4F4F34E0DC4415F21AF5F32C69484C387AA6C +A8C64C79480E4CFA266AFC2DACBF60E8C80B810E6728111DA9EDE90505949E7DEAF1D68BDA4C +60A6653A5E3F912157622BA755BFD4070151D1FC049B385E1FABBA194125BE7FA65E536D3171 +1A53C7E9545179ADF722F49B8A80B23930921D8813CE6551E446C5CD19AF29654CB6B633227B +5E814FCBBB2678AAE68288F6C129209799FE1A1894A3767311499B75282B8F372A75CB4432CC +7385CC173F8CB5741C87FD1A6BFC7A46E6C7AEF33086981E77C729E8B494151F417B13172C31 +5555EFE88A19727D257ECD1D865FEFDE5C30D8187F41762E56A1465912EF9F11B65956F0FB49 +CA58842E5E6F90041A45EA08B63395F4264D3403BA646AC2C9DF50BBC70B2CCB0D7DDBD8808F +A44BB6D209E1C8D03C7E8EE1AF6DE46BC67A658A4C8FEFBD53455B7186AC969819C7F9550EEA +03E928E5739E7DAB5AC60A6D1288FCF850D0213D3A6331F5453B7D6AFDEF8B2E6F065107FE22 +8C3F14D3F2B83BC37AD66659A370C782E417943DD181EBC704AD3B3735BE2990E987923A5D2A +A845EABBF89E293E79E52E04CB020B87BB13D0DC1902B31DF043274747FB379A95E99DFB1446 +816DDA08531470CAACF51D89D14E8BABBF8C214FC5692FD0368050A112F9C04DA0E66A6BC119 +CED605DFE44B32B15533F951E156FFE207E7FD0CB4BB3BFD913DCF0DF623168AE80D7C8E0B43 +1CFC3F6AD43A3F7C10BE92FE50CE600989F96CF0B07DEE41FBD867829A964FC68D93CD64B541 +7E0F78C07D4C45FC0921AE68643C046F15CF303749A431A54FD5FE9D92E20F4E67A8F52C3C6C +1D89FD42897AACB5E2AA767EBEE96602880217AC85E742D86A374E91591514FD8E896CF03C93 +AD9ACAB5A4C4181948AD55147C678BCEA638AE14B99349EFEEB133047DB319E92EC8D0E34E0A +A81CE18D836444696BF695FCE222C786943D6FEEB0BA597DB16F1AC88FA94D910A6383AF98D7 +B3C5E456F54CCF4CAF40CF006923C7ECFC8FDDA382335091B6AC3224A24D253842C1CAC0F095 +C29B50C7B54812C356FD3C4FDDBA04FA208F0DFFB8665091BB4D83561D3F55087144A1C48A46 +A462B5AE1DBB58686F30E0EA096061F4F847625C4B863FEF1C6EF94DCA0B0214C568FBB6CE44 +0976BA7E335B0F89A051DBC6D89DFD29CF03936D98734FCAF2199EB42F19A03EEDC1F488087D +1BD23749054490DAC495B49C713C16DED23B46FD1E09627D643C09635447D721BDA302D33B51 +B1F699D68AF8F8401C3B5FA0BAAF0B6B3F6BB81F7F7B1E29B52B05CE2DAED106578BF8905DC6 +7DD2DD4CC86D8E942EF9874093D2CA1005009C4B1EBA7080A903CC4192686094363B51771392 +20C44708B28C1B88CE0334C22BDC0EFD0BC9532A66EA145A82A048312D239E8B0FBEB754B8D7 +9370A37EC6D6E2F2A4961BFD9936DE7506646BF179C99192BA726D932405D928EEDF44D7F442 +10BD7F473E66BFA171EB9FF7F026F1F7EE4C5F8CBD45E2ABE4247055507E8F0B79CCB29BD84A +18CDA1E47326ACFF70FB040E050A44032A24A0E3881A0794E7FCB96ED9C242A255317118FBDF +8CC7285BA850FC827894A161D94E2DF66F0E92A2808C3372B8787F424CB026143C2D67025E7E +2827DBE93BA9F0418603CCDAD222AFA60A373426CC368DA895E6AE02120A89D8B4C27C6D2BB9 +6CA77CDC53A30F25F0E9B0B2F86AFA951DA8312BC7B70174F72BBF901C061BF624D4B89542E5 +6CFA6027585A161D1D55F5BD71AE788B1D80B9FD8B36E7F827452F15A696ED71B5384B53D714 +EC2AF7DEB76B592421C8B054A3B4A7B71A629095BBD2528B452C34EA18D4F5E62E3F23EC2736 +FBD8F56D675615950BDDF514A50FE79ACA87B5A356EDCF1A046107FB45CD1C05A78D8F13DB86 +B21409430EDA657804A84CEE84BBFCBC6FF70A0F77AF3B32384BFDCB1E274412A57F85A9027D +B1C95DF2F508FD37CCCA2DB15AD9C6C4378DB67E3D5F46578155E7651EBACD7A3D7D91ECD8E7 +6910A0FD237060CAE397996E0EC0FF999704BD039ABA57AB3BFF45AF8C368E15BB318FE32B79 +7B2DD86D4D4C6355F919BACDD843E7A52F2C2AB5CA4B481DAE169843975F64AF39399AD7FAA1 +369CD5F3180EA406780C354D5C4BE4D0ECA8078C7321364BEE230CF92E9387509307E3E999EA +307B0B5A1EC9E390DBC2E8A9CC0BE4E43C3D9287A2D8C5EBED4D43DFB6A2F197595C6E1B63D9 +A188961A3AE9EDB25C0CAC74D5E14F3C6E92FB4B15EEEA97B26C087CC76E26F8107E25CD252F +856BBCA6F171FE3DCA9F54D5BE75BA52D06D8B25CCE59E7433552CCEF419876DC48F78928E6B +DCA4511EBC2F183B57C3F087DFC5920917437D883A780C5251C98940839B599250ACBBA47184 +73559F6E650985A79E79B67E55E030201386E6332BC80D0FC899C6CF8ED8BC05CB08F0891EF8 +7509DD7DFF71B6BBF3AE032FF9353151AF25D150F72948F8979A7D9BC83E03D96216A4FABB34 +CCC7F8949CDCC8DBC05851B1501C6F15344BF9CAB702FCA2386236C92B726040E99B0C9D1C41 +13C42430FA0236648F12089D1E221A839FC71E270FAD406991560FB54C03E57212C55B82E906 +406F7AE3D491D91365E0B908BFFF6460D732F96F9CD4665CC3A62A70269403F3C9E24A5512EA +F1DDCB5E8887E9922EC14240FDAA7FAC695DE79BF81AE7ACD54A82B2E3837F0B3B206D8D9778 +29DF7C4C5700DD0C8563B43C488E832AB1849F87C889F243CE8FD1917EB7A8B094416802C702 +0117407AC6A0DDA1E7BA25FB0BDEA89A95175F70D6382204F62A90EBF2F3A0E289670DFE66ED +B6AE154EAD62A2D0AD18459B1A7126E507F846B62357FABF29AD26AED4C042C871240F50433F +DE521977C7EC462CB3464B931982C162A8E7C2ED2F67D54D851A4B54E537A99C4F195D6F202D +64726913F58549588FE66C980452198C2656DD06EEA65809C0A7BE1A173BFDA5A393F5B6B2E6 +3FDB344E76EAEC527B94C0BECB0C9FB0FD5A843F29B6AB4377A16ADAE3770D8DFF49E7C509B1 +47C5003C1F651E4D51CD8A09A662E854FAC594DFCE49409B4E28C57B0A5F3EA33F661FD82B18 +6D31DFEAA7B6D0AFC98AA009138486A5756F0D19110188F6D04234403D036EBAC56661CF9586 +96E89827C5DD2CD75ADC14178B61206A6223A2A2AE16ABB3316D81000A10FDDB56CFED5533EE +ED22B2C3EFD6A7CA75CB4D148D28A13CFEA878425B95F84933529D86DD1177851EA84C1BD16C +455D02C4EF756EEAE9B5DC45FF29E114970AFD0C23D47B06540F90FA37A5FE08CA865DB832FF +DCEB84C1F96AD8BCDB93A146F75D3DBD66DDC34D306F970535F97EB6C7AFF7DA3F72E90AEABD +13EB35ABA65634EDD561AAA30326324DB85B6394D7BBE8FF5C3BF7B66A064D12A579501B745C +78DAD35FB4DE771CF3DC745CD0D08819F1415E2C93377E1F9036B6F3B66A2A739697FEB9055D +A896954E4C35579C68CA48E1D070A059331AC8D62954B18A4B14D70599BBC5AD526899AB64C2 +811742C2829376B77885ECBE17379DD5E8D95B12717407F6AE390E3775B4B518058810A29246 +154321ED593F4FF6913A26495342A395CB6FCF8FD13C0240D7F1D8C3AA632313CA3EA9DE476A +D9FE8AFE442395247FA9A8B6872B2E9A361B325DEAA5D9BF4B7A8E2603DC86C3384E5706D82C +96EC542E69A9B868D59727DFFDA8AD7756B56AE09AC6D5D097292255B16385C2AF5B441316BC +D6F905E35AD23411F4E0B0CE5C8F2A6DCEC3278C7302A34A4F508EDE31080826619D852A13AB +07C82DE14064BBB8CF4575F3204F64DD5B198205A63EFE9BB1610BE64410F7E83906A5DC5A79 +103EB40152E381853C0FF8EA856DF4952E9093B86C0A23B9B1EB1D03EE0BCC8AD659D34FEC9A +0E717AF76F86413AEB67620BAB1AD021E028A888FED2C65F344D7B2C59132D7FC24BC93594C9 +5EB2FE7E18DC9D95C43EC777B792DA99B620AD8E1F56BD5C5003FB0AB2F989EF384F3293C645 +3F88503E9E33566CB63825D302F1062C5058FB06C8B776474515E48920B616A2F6891B4DA656 +0FF82EFAA033935DDD1671D5D185AB1B3ED1351BE1D9FEBB6B036A1F950DF74478AD7CC8C06A +25F910F3299405783F73760876AC5EE2002BB16552E4975121271791E6C7F3DFBB43F75A8A8A +029943B1048985E8DA08C32BE1F2A1D3669E3A8BE1702351165AA8BF9B4B8D87705B9305B47C +7F11B878C6DF2D74541094B7D2DB2C726B805E45EA684630513B44B4F23D1920D3AEF26271AC +44EF958FCA4CDA2A0DDC5D8FAFA2B680FF56609CB24BB85A07DB06BF2865C58437566FFA76C8 +64948969C533EB8582D902ED9C262210F279EB2C91B8E30D21750919E8B3A27BC6025006DB84 +FDCCF25A5D04258C07D01964331FA40B0A16E8956F86282A9690E474C131808638A53337D81D +3D986675969BE144217DF36CE8679EC3E2CE1ADD387849388F8D0F87A3D3B75B05570F4130D5 +2BA0C29171B40EC812956899B0EF17D5E48DD446A2BC199A8A7707B3461BBF43B4A115F0FBEE +9BD1EB501C31CE6FEE75F94EC47A9AC8D856E9FD79CBEE120CDBF038AA94EF340000EE1B7AE4 +4EC91BC504A03CB39DB5F23593905240F0D40606DF5E83C16D8ED4EAB9E086466A9545E95817 +56B789F348A60BA26B04AE37BC0486514F6952651C77047223D645CF42457BABD90869AB21C5 +350B59B65693203DBAE4EA97C5BC63712A89EB97A96785B0EF407FDFFF9874678E1976902703 +4547F423FDBE153B952C9AB720FB976296F5E42C18319C8B02E9F354DB91964486BEEED93189 +6BA398505351CC76E13A8D1AAFF5A918BEEAB7847DAF45D7FA24B50EF5D04DAF0A6DAF404EBA +4B7227D4387398525EFE0CA51765EF1BB37417BA1C979B6B6F6055B67017E1A693F1F0F009A9 +25B114CBA8C4CC7E275D6ED556F5B1E54CE6236BBE40A9AEE4A4D9124DE5CC1BE8E9DE450520 +58C520FA4DC0734F36277267A2D8C39ADE8C57328E54FB6EFBF89898A8A01879C89EA5076FF8 +5FCF7D8043CC175D95ECC411533B05C76A5EFDDFD1914D1F6F4295D67E8EA228B202009DC7BF +F50AF8920DBA766A32BE65CBE8BD4EABB1FB88EA8CD604E46FCC0B2A6DDA75183E5D18DA6F04 +75EE75342E9877EF3C64156570F1CFA3CAD2D92C950EC016AF79915050871310763AFDF7E7D8 +A7393F27D229B72471BFA9DFFAD4AAF03545436AB6DD6A1501C257829A8181E9A559AF43BBA7 +E03828EF2F43F58C584BF5F2330AFC143273D5BC78DB880968DD883F3F4EC1B4471EEC10BF52 +14CEB91E03193D92B492C860839F3F3D6F2EBC9D9B96E53EA5A134FF17A410E2765D8D454E29 +88159F4F62F1F3D95FFD4669E52FCE234F7D09BE4F16C0DBE40731E32F3E786C165C97DE5F4E +A848436392EF82A4798F4DE5FC724E17AA60DB29CC8D59E983F88EC0F5B2D27B2F85B4D16BCC +D23D77D94DD56B8FAD8EE51CC36A1F297A5541271AD37167F4136DE68EB812F5F9C7476164C3 +3B6EC3B1A9E86EF9F29CB6BDE7102D7D369C324A238DF049667D04DA55244976285AB75FB56B +D9B6E1876E7CF73A1F90F273ABEDC8F87E6058924DF0C84964415C56265F4370CEFB37B0EED3 +73921EE576C82D22196BC8989E58CCCA8D194CEE6B0239AE800417CE7C06CB77EEE59EF19F88 +DD7CEB9B3AD2F5078E44B0D2C622BBAAAB8CD6CD44B7A9965A42C53E429FAEC2A1411976560B +86B6BB97816406964BFF69CF9AD49C4C070D0AC4ABCE7BD96B69AE24B789FCCD35E7F6287F65 +163D2FBBA0B60F4B9E259814824C442A4CCA500F60A8885D74CB2DD114EDE8F5D54C42A85596 +A7CF202695822FFE070F4BD53FFDDA99E27685AB6DB7D5AB9424A1A24F7139DC7EC259E579E2 +34D8D6A7A3D378B0723E4A6F3181ABAD5C2B5C6388B969E9E629C5A26B4F160481110F514B37 +2DE50CD9B12ECB4FD1E7D1E3B719169E4254F2715199E35F58075ECA1B0FF5C38EE0EF4E5A89 +D41F1FDDB3F8B831D66486A194BBBD03AC09170393C6E03374035411C92445D516D991E512DF +5CE385FB0091CBE73AB999409A5DBC5534F47E3D4E718244AF1856E207EFACDFC6A66C55D3C9 +4B33B94939F19DD2DF1071E1DF14CC14BDA1ECCC239A15848155C8BCECAF055D94ED3AE010B5 +8B3FB937F5354926CD91EC04E85D5423A9E51A8C868BA6BB4123415506DA8A637E85ED095BF9 +8BA986FBF2F652BED6694C036982EA62E356EDFA18D3FA09466CF2D7B169DAE4BBA76A1F498C +87F74B29B479DF974532521E11E510C464A96E1E51E2ED0FF2B2CC39AE6E18367A0DF4C2B094 +F4C3BFBF3ED9AA6797A34521AC18598CFD23516CE8A346BDCD322CC9F61EFD7D3F8E5DB7FE61 +E4067C0CC5270D1A44C5560774AC8F952CD72449A35D6476F5B46C30A3AA50342697C8C9E0DB +273DF7CB241B475C317C7EA1747D430B7FB3C2D7510CE752A2DDFB8A0F217C81A3706D7D7789 +C902581EE401447CEDF62A1201AEBE9454CB343D29AAC22CD4CC1BFEAC2830FC8A137A22F7D7 +BFB8AF56DA0A3EB776BBA8D414DBEF258404F601199BD3D3B4FA7F24D4DF7E4C606394C4C7B8 +77BE623F5EA91E7CFACF7CCE7D46D99F597AA05FE90AA5FBBB3BFFA7DBEC7E2068B99433504E +1526460FABB2777EF78DDD239111BCF09E2968B1370916EB802F88B108A71DA282FC83A88587 +B490906EBED46D08586278EC3A34BB270A81639D361A339F7509B62D145D5CB95BEACEE10E8F +A6F01EA60C1D15471FB02B8ADDD8378AAE0C49ADA5346FEE1C053DD0BE95F9C588C5EBD743ED +19312E207A4E96ED1B432AF347EC51F90B0CD2E972D49E85AC2698721BFCD77E7173E0FA1123 +5C2B3FAF8F8A31CA82B5DE9468222F50069FC83E29DEC75FB6BBB685DB786135969619049FE2 +1994A59165F4BEE5FF15EF2F8BF9A1A8A639EFEA3C5E8C0E2040CF6B6B9902A4C74301A45694 +A62F0F714125CC9235155428690AE280217205CA0090A9A2D32CD36C3BB1CF2D1B7CB9870E79 +1463272E0222A8D87D62B424DEE2DF016ECE59376CFC1D0CE59240ECF6C7325CFFB9890B9958 +73DC55DB95B7D1316247A2B9AFC6B419090E443CDA1B99C7ED746CE7417E02C197B010E453B1 +D739EA58C7A4429BCC5CD23B9C9C6B72806275ECE098C872B8BE7D0BDEA0D6D751C61E1AE7BC +5D96A098F4AE68FEB7BE1F927EABD8B6E809D6996F7D4D8A4D1D5B673A8A844F775806C04B8C +429731BB70988CA192A48900A43A7DDD7DB9F9B08049A0FE79F6329FBD84ACE16301856A944E +C7C0F4F06A69191AFFB773D4EAFEA782A306FAB74CB9E602AB18EEB7984C9F550FF7656F8832 +D7D931BFC9ABC886C3B9D8ED460C2AB53A6C0B9CFB3B6E609824B875A2D4A2C3BDA5981FC667 +C2806FCDC30CB7559FE0C137B570F5B5FD6AFD2CF8B1B0B8A60E40C37661BE018B865260C856 +9B437B931D68B12EB0586D216CD3F1E6F1FDCA66F5E3031C0E8B43D8996518F7B9E2870B0B98 +E98DC37C9C0FC748D16BB024DBC47F9960B0CF659BBCEB266D8EC22D2492ED1E184F45E969A2 +73820C76A7F3105F1FA97DF50D1A77E0920A890F6AB64F63C57986EAB456429485788E6D233F +339B7EFCB5C51EA57ADCDF8FC3F637E839A9CE8B93BB54F07FE6ECF8B5074FE061D6A8BB136D +7055C1EDC24943A162E6003BA62DFAD6680C92727E27CDFF154DCC2911E3FF70F8FA41516CD4 +EA2FBE740194CB01B0ADC206AE3DB38366EA71C240A513B76638FFD07328565672AF18D1DEC7 +51956B3302AAD4585ABF4C76402C1705B5FB9BEF95AFD8B3D7D89EFA81D459954C5FBA67026E +CA91231A920433CE310304F0D05A4DE2992DFBE002F317532FD8F661F6D8AD1288D01291DD46 +FB823702510DC8417ADFB84268C14DF8F994739E8158E2C4DBDF87BB220B7836B78737723E3B +1A59C8305C170F158632C17F955367ED3E375E93C19C0448C96DEA859DE0D60FEED6C93673D8 +A7D9819C0F6AE093C3F1C163B8103B4EB4840303EB703EB5ADEE8F0B76334EAD31F9CBAA5013 +FB83B0FA477DCDEFE679E624A133760166867D92D08FC6D7268F74BC0F6B96C2741469DD0968 +AF974F46C9DE3592A7692B4283465060000C2C8B5DF81BD3F958F5DEE861A6A0FB598A15F631 +99C0C1D347F51626A3BD5B4949CFA93C6972DFE5106FB0769E787AA270A0AD6E5D6124218CC7 +14A35F14A6276A6B0EEACF640841CACE187BB8549866F9DE97A0F26483CBE6142747AC006C2D +F37E065698B973662BA6C33681AC7CEC682DF1618FFF8F9343322D4A021E52D31CF867F73822 +39D713EAECA1757D1E55E6E4EAE958DDFEE36213A6E8B9FD8E64F3A7F480E3A6DAE6964DB687 +028CB4E646B3FA5F8134BF58807B53FC6AD5772DEE00F273E0DD044A7D1B6C5334E79D168237 +E543DCEAD464F29AED824314C1DCA05F91A286827E9907BD7DC89660EB5AE0EE2B29E14E2D6A +687480E147C0689023ECA85A5FB21BE8A42DF42637650DC8C406583E27E5662692E82150B876 +2ADDD4A0532F9A20E7AD30C45A1F9BFDF47E63B2FA3DA6FE717DF4AA6EC0D9ADAF5E36331DB8 +0F354E97055DBC75944D78BD0213B64A12A340BE712A6E59D587D0E137ABE3E336CDEA7FD8C3 +1C08A194D862C691595FD75FB91A2E24DF1D765A3067E87932A13C8B8E6D82545BE008D493DC +D2A842447BAEAEE21DC88BBEF21DC00290790D22F24EB4AD9E658F3FDEA128B2AFE15ED8DE46 +29237E52EBC506BD2A8BB3F89DDD4B009BD91097042FFB50AC81F940BC376A4A8B5F85E27CF7 +F81F4313836445F89CF30DB6E56DAFDA3798CA318F1D47D1A0F4DB5D97F8438E2A4ABF9949CD +FC82479A7852765D5EE26C35AC024D905DC1118EF52DFE408D6E3E23ABC05F3A447E57203230 +E1A5C8B959DD9415B977CC497D1B83BBC5883BFB2658B74D749818C4EF00D9B80491E7128CC1 +C0A7ECBAFECB9761A53BE09A61CA103BA6B4C028963D48CCE0B1C6934C11F7B26F9D7347A6FA +C3E79AFB7B7FF1F1968B5659A52ED7604152B05E322C3AA607D70BB08958B26258960848F31F +5238C1666CE4C242AF0EDE656CDF7EA5A51AF695887D3F910478D6D01A306E256A9DE3CAEFE5 +E72EFE97B5B3FB5734BE358979B6C254FA5F95F8AE4753ABA9C51661673F830EFE4ED2166D14 +DAC1FF900ADDAD9790DBEA1F0CAA32C4067D506055CACE04BC08FF4F28A2374D2A6543CC61FF +94DB2B117932EFECA2F7273010C74CDAA904F977B20848669738E7C6E4B118CC66BA04B5EBEB +44485D599401D490EAD786E54E48800012B050989EEE98525A6504620BE11ECD10803E09BBD9 +E5AB12F3116697CD3225DDC2F78A65AF0897A6A8B3BD2285498CB1C258E0783434B848D54F9E +8FC23720F1F553F0A2AF7368ECE72645AB1F26C1D67599D5B9EF81D7832340F808262A0FC065 +D56EB9832083C8782526352B0F12AA980418EE80530368384E09A5BFFE7E11AAE55959A33B35 +32FEF0630402FD6CFDEB41E6BBEDEF549A0451CDAF54A82AFD81A233FD74D8247FFF8D3F65E6 +17D1150D056F56F3863DDEB7C1F79C77D8EF146464F14E8CCEBB45EC351B4C88456E07292F24 +601B0F8B84993A7EC4BA84F6A2E12107D378EF8966ADB2BC466F06C858D149EE5680C5D4506E +F4481650CAF23E6BE1CF801E986A53E2A163EA7F4654053414FEBBD572FBA2886719EA897AEC +DDB8B8D146DFB05BCD602A7C075D98441FA40A6B018F59C13977ECE861FC009985DEBD656312 +2E6C568146189DFE9E234AECE70AC717A3A9983B1CB5D73F725EB73A42959638007E41E5C494 +1CC1B2B9B3DA7E0AB4864E51296EC63ADC2D697B0D03746BEECD737816BE03E155BAF7E6A298 +61EA62B04BA67338AE4ADF31DF343EA2E50A806BB75E476A3E922D817CF9A9DE6B9D7B20C6CD +2F05F8C0FA974DE44B45F66F42A54C4B360396EA28BC88F8D24AB713394893F54114F5BF386D +6D39942054E8D000A68D19E166F3D298FD0F153939FEBF358B01EE48B2F0C16793E874F07491 +AB57FD40AA6C570BB69F8D5FD0CDB4B3E49E42E7B668D97173439EC3B56A96E8CAAEF05D5654 +C23D9F2C2436D9456661F7C52EFD72C7C75E649328F007336B73F3E7471A869F6469095CD43A +A4AA726DCCB7CC3DA0E1C1868F0341CCBB0B2716FE2302392F82B70DF344BDB92383B9F078A7 +3FE2CB884F348DD1B092AB4747CD4F98BDA9CC10B62DB553CA065E1335EF16C5FB88FB95A24E +8E4BBAB75F5BD6DEEE2EDBA30FE74F787433EBB4D21AB62BACDD2D2D721754CB71885A0B5625 +4412AD3A777EE65C32D189D57DDE369A275AA54A827A85EBCA5D7DF155085F3807E7D5123C3B +A5C55DCB3B2940F35DA42BD87DFEB6C6920C9DFDD0C3D6DAF2DD5C0C7F60E89B8D750959D5C3 +55E51188B68932687E08CE5D0B8130D1B7828D8E6416F5510D2C64B429BF84D04C60E6CB90E9 +08B865117A73484038F0353A42C065C6744D50F7E2753A8B0ADE378AFE30BD4A1E8EC10C9395 +6DCD53A46D01A90080BAC4EB5539C94E3A54F0925031E3F7353736830CAD674EA7CBE4B272D6 +18BB26EAE33CF104E12BFA3A0B18E8D5A48499989ECCDB97C6C4155CB9CC7661DB8F654AA60D +6452FD84F310772C872339395788F3C0B6F4C84A33F5D6465CCA86408A8E8E43A6BAC1D35289 +4552C68B3C7935131888857631A5ABE53CBFACA8CE5DD394045EE338289001937949D399CD95 +84CD21B823E409CF71D8D262F94CEB083092B795D29361F8253C260F98CBD2B76B1B61566F24 +0FA921CBEF76E288195E6BCDDF2E72C86155E0051C1C33829F4B25F411ABE18600BA0613338E +0C3EED39B953834AF0BE0052EFB9DB642DFCF50DB36B17B8592DA69FE65C80E9781C827A261F +E632CCCF5C82109F4F7B830BA855D5D044F55A1348E3E7EC031A2D15BA9ACF8FD3233AE23986 +60B25FA40B651D5F92994238AC7881B5D40EF515D115A598BCBEDB0C3D6CF429982E24D4E387 +3D2DD75B5220485542FC098F6B3844CAC7EF6C270C7F0E7D6D7BDDCE8D6E959FEA55EE78B508 +0B7A8811395131C07E4225DE802F85E3C8B2C74E88478913AD219DAD926460743FC9E424834D +DB5983489999401140D3C3428FD2628D1BBEEF6D7C1420E0E441F21C579FEE0272ED3C5BD822 +32477A2F1A835F3AAF8142339798A0AA1B5C2336ACA35BCFB9EA395B79E1D53353E13E7F5EA8 +CF57B77004B37F242F3F89A2C4F12DB1D237180BD26499982091CA420F5F7AB7E7ED91CB4323 +6F5F84BCAB8F53FEAFE59E0F3FB6E3F7C44BF7D1BD43D8345E59A8F84006A2A065ED66933E4B +7C1F14BF7D35EBAD19A4BD2D079F7ECB767BDD70BF8ACC63A87768792194F403E91B0CEBCF79 +8B4CDCA932B824F3584578446C0582E341AC4CC06AFE8F34089A406F189CFF1AF8DE5163D7F9 +EF861B97B45A1213D32BE8A1A136D1D4C5CB3C52248A15C8B97A8B38B63744B92E56F1E55378 +050DFE782FB2C99A67DE6ACC69AAB94AECA8C9FD69DCBDD576C6E55D8C7DBD0A7A8DA04C6A8B +E337CF8C4D5B37EDC8DEF2EA2EEA084B33871D76BAB668FB4DEA746C01B0E07369DE54A39F0B +C566B932EF33DA716EBDFD42E548AB5540A9860A674EF49460E87525A10F2879AB33978C9253 +3485EBC79BE92E57209A3ED8A7ADDF084FEA0F936CB01C5C248CE4E6B06EBB7C06AD49FB5C6F +B487C8D19690F87709D0096391F3E6742100BA0F49F13ED4377E6F608E219D509468F1CADF2D +AF492EFC18A163563A472D2381DEA09B8BBBE5B2CBF4CD04D70AE62B7DA2B81129DB561ACA36 +12C18D11ACD26B4BA1A6DD46A8A88C2E762DEECE2581C6C6AC8BF9A3A3B04FF2DCD689DFC9EB +4F3984D736FB3FDD287A9EC92FB49B1DC0C7FAF4A7B429F015C218AB5D22666D4DC7765920CD +74A50000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 + +cleartomark +{restore}if + + +%%EndFont +%%BeginFont: CMSY9 +%!PS-AdobeFont-1.0: CMSY9 003.002 +%%Title: CMSY9 +%Version: 003.002 +%%CreationDate: Mon Jul 13 16:17:00 2009 +%%Creator: David M. Jones +%Copyright: Copyright (c) 1997, 2009 American Mathematical Society +%Copyright: (), with Reserved Font Name CMSY9. +% This Font Software is licensed under the SIL Open Font License, Version 1.1. +% This license is in the accompanying file OFL.txt, and is also +% available with a FAQ at: http://scripts.sil.org/OFL. +%%EndComments + +FontDirectory/CMSY9 known{/CMSY9 findfont dup/UniqueID known{dup +/UniqueID get 5096650 eq exch/FontType get 1 eq and}{pop false}ifelse +{save true}{false}ifelse}{false}ifelse +11 dict begin +/FontType 1 def +/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def +/FontName /CMSY9 def +/FontBBox {-29 -958 1146 777 }readonly def +/UniqueID 5096650 def +/PaintType 0 def +/FontInfo 9 dict dup begin + /version (003.002) readonly def + /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMSY9.) readonly def + /FullName (CMSY9) readonly def + /FamilyName (Computer Modern) readonly def + /Weight (Medium) readonly def + /ItalicAngle -14.04 def + /isFixedPitch false def + /UnderlinePosition -100 def + /UnderlineThickness 50 def +end readonly def +/Encoding 256 array + 0 1 255 { 1 index exch /.notdef put} for +dup 0 /minus put +dup 1 /periodcentered put +dup 2 /multiply put +dup 3 /asteriskmath put +dup 4 /divide put +dup 5 /diamondmath put +dup 6 /plusminus put +dup 7 /minusplus put +dup 8 /circleplus put +dup 9 /circleminus put +dup 10 /circlemultiply put +dup 11 /circledivide put +dup 12 /circledot put +dup 13 /circlecopyrt put +dup 14 /openbullet put +dup 15 /bullet put +dup 16 /equivasymptotic put +dup 17 /equivalence put +dup 18 /reflexsubset put +dup 19 /reflexsuperset put +dup 20 /lessequal put +dup 21 /greaterequal put +dup 22 /precedesequal put +dup 23 /followsequal put +dup 24 /similar put +dup 25 /approxequal put +dup 26 /propersubset put +dup 27 /propersuperset put +dup 28 /lessmuch put +dup 29 /greatermuch put +dup 30 /precedes put +dup 31 /follows put +dup 32 /arrowleft put +dup 33 /arrowright put +dup 34 /arrowup put +dup 35 /arrowdown put +dup 36 /arrowboth put +dup 37 /arrownortheast put +dup 38 /arrowsoutheast put +dup 39 /similarequal put +dup 40 /arrowdblleft put +dup 41 /arrowdblright put +dup 42 /arrowdblup put +dup 43 /arrowdbldown put +dup 44 /arrowdblboth put +dup 45 /arrownorthwest put +dup 46 /arrowsouthwest put +dup 47 /proportional put +dup 48 /prime put +dup 49 /infinity put +dup 50 /element put +dup 51 /owner put +dup 52 /triangle put +dup 53 /triangleinv put +dup 54 /negationslash put +dup 55 /mapsto put +dup 56 /universal put +dup 57 /existential put +dup 58 /logicalnot put +dup 59 /emptyset put +dup 60 /Rfractur put +dup 61 /Ifractur put +dup 62 /latticetop put +dup 63 /perpendicular put +dup 64 /aleph put +dup 65 /A put +dup 66 /B put +dup 67 /C put +dup 68 /D put +dup 69 /E put +dup 70 /F put +dup 71 /G put +dup 72 /H put +dup 73 /I put +dup 74 /J put +dup 75 /K put +dup 76 /L put +dup 77 /M put +dup 78 /N put +dup 79 /O put +dup 80 /P put +dup 81 /Q put +dup 82 /R put +dup 83 /S put +dup 84 /T put +dup 85 /U put +dup 86 /V put +dup 87 /W put +dup 88 /X put +dup 89 /Y put +dup 90 /Z put +dup 91 /union put +dup 92 /intersection put +dup 93 /unionmulti put +dup 94 /logicaland put +dup 95 /logicalor put +dup 96 /turnstileleft put +dup 97 /turnstileright put +dup 98 /floorleft put +dup 99 /floorright put +dup 100 /ceilingleft put +dup 101 /ceilingright put +dup 102 /braceleft put +dup 103 /braceright put +dup 104 /angbracketleft put +dup 105 /angbracketright put +dup 106 /bar put +dup 107 /bardbl put +dup 108 /arrowbothv put +dup 109 /arrowdblbothv put +dup 110 /backslash put +dup 111 /wreathproduct put +dup 112 /radical put +dup 113 /coproduct put +dup 114 /nabla put +dup 115 /integral put +dup 116 /unionsq put +dup 117 /intersectionsq put +dup 118 /subsetsqequal put +dup 119 /supersetsqequal put +dup 120 /section put +dup 121 /dagger put +dup 122 /daggerdbl put +dup 123 /paragraph put +dup 124 /club put +dup 125 /diamond put +dup 126 /heart put +dup 127 /spade put +dup 128 /arrowleft put +dup 160 /space put +dup 161 /minus put +dup 162 /periodcentered put +dup 163 /multiply put +dup 164 /asteriskmath put +dup 165 /divide put +dup 166 /diamondmath put +dup 167 /plusminus put +dup 168 /minusplus put +dup 169 /circleplus put +dup 170 /circleminus put +dup 173 /circlemultiply put +dup 174 /circledivide put +dup 175 /circledot put +dup 176 /circlecopyrt put +dup 177 /openbullet put +dup 178 /bullet put +dup 179 /equivasymptotic put +dup 180 /equivalence put +dup 181 /reflexsubset put +dup 182 /reflexsuperset put +dup 183 /lessequal put +dup 184 /greaterequal put +dup 185 /precedesequal put +dup 186 /followsequal put +dup 187 /similar put +dup 188 /approxequal put +dup 189 /propersubset put +dup 190 /propersuperset put +dup 191 /lessmuch put +dup 192 /greatermuch put +dup 193 /precedes put +dup 194 /follows put +dup 195 /arrowleft put +dup 196 /spade put +readonly def +currentdict end +currentfile eexec + +D9D66F633B846AB284BCF8B0411B772DE5CD06DFE1BE899059C588357426D7A07B684C079A47 +D271426064AD18CB9750D8A986D1D67C1B2AEEF8CE785CC19C81DE96489F740045C5E342F02D +A1C9F9F3C167651E646F1A67CF379789E311EF91511D0F605B045B279357D6FC8537C233E7AE +E6A4FDBE73E75A39EB206D20A6F61021961B748D419EBEEB028B592124E174CA595C108E1272 +5B9875544955CFFD028B698EF742BC8C19F979E35B8E99CADDDDC89CC6C59733F2A24BC3AF36 +AD861319147A4A219ECB92D0D9F6228B51A97C29547000FCC8A580F0834F28818EBFF29D3B2C +7C9AFD969BA6D3B7429E222AF78F6DE00CE2C8008A5966422936DC5ADE549B458EB41026E123 +FE75E703E046F665B7DC78298A145548DEF8D579E00839279A5208EAF898A357DF3FD9CE4450 +811F20B454D86B2947BEBB11EABFC62B187B12458E022CDBAA6EDF4A89D79300F635D8CD973E +35FA8D9B1240B3D30D724F30444BDF0B51ABA15A181A3196A6CDF9CD1D38D64C83E745A76744 +6641991E23EAE067609DC2E84B44D923CC98407812813D5AEF0EA21E560B31BD77D735BDE35E +AA564A570DD3294C703E16BB9F251D54407269C8B23DEAD063018D6EB7484204A415AAC812CA +45E07362AE3B4D95369FEBC1D3F23C8D0BFA911C20C74F3BD87FDAACDA5C262EC40DB3861645 +A99EC1EBDF2A78CF05B6E0BE7CED20BFB1E557ED36F022835BF348406B053C8BA2B8DAFB0608 +BFCE3F7F34310F869E90A175B6AFC19884C613A63B98D3622BDD39FFDC9C866F0E19BCB0A2A9 +B1169B338759DAED5FFC9B5F278A117BE79AD559A2A6B4F31BD4520124C824264A8FA4FAB996 +3C44C9446B43534E1275A7C35A6A0BAFFD7419FCC4012372A910B90D63C23FA1B84CC77E5CD0 +B7AE026DCA6FF11EC87C107C7A67D8D952D6CEA0875B62D0B74E7882C11779F84262663384AA +4C18E652DE065BD23851B335A48632F7F21265836578F38551A6D34BB55513C32F5F3369D3D0 +DA5015A899198A0E523E552A75E742838E59E8D205A8361A94D5411FD43E7BDF981ED92F3135 +32B77E642836E252E6D870D7C262E2D6433AAF7B04DE027D0FD2E3C2548706B87C056F74F432 +4C1BF6CF0A0EEF0932E57FBD764579C480B92CEA1BB419F5EDE8B2CD134972840153B7164E9E +9BCB17D5D9B122B404AF56C5822207ADD58284B1DD5203F2C23FB86FEF3241EB6A0F3324D8FE +486E28F35102009F1CA4C939EC6F23737F11ABB6F7388795DC5FAD93C47973A9A22C2799E9EB +DF498B3D9AA20DC709C26AFA7AB541E85B3C919E8DF26BCDC6654F08CCE38EAB921CD3128775 +3F2EEB8C493007F395439978F05023A1189798C9F106769C5389A427B1104416C803E9329721 +F45D89E04819C7BB20FBFD28B7E4BD2E08EB9DBDA85FB3D8891C1B10EF2088BDEC02A1F8EB26 +2854051EE6BF550957900B9D4C8579E73F74C53C012DA5BD62FBF018AA21ABF7CEAA4FB9D6C5 +EE0218445D17C56E9C1178C62C471C80EB5613950000A7AF1478D84A4E503C2DD07211D80EE8 +98324BD423965DCAC7DEE512C7F1237525E4952EE4BBB35FCE1C37EE1AAFE372CAC60C0DFE8C +4849163C6B0C3C6E0D8992C903FF9D7C484A2E089B133751BAF5318B26DDE39A76F29D857412 +C94D902A448CDB1B4167AD4064277627700015EC574ABA850A42A42C3AA075E1FC122E0461AB +6B8A986731E255C67911BFF4B7AD48A5BE02A50EC3BE11F2AF33C851D1D299BACD2574412F2E +53EC12B6A09D5B35E044DE3697023E69F0453CAD0FADA3D0F8444D8586F08987E118750D2901 +90D658EA84E4B089C9F4C536686BB3E0DC5F807DD6E4C97EE5134894AF53B50FA1911F933330 +28C2295049671DE8B9D3BE68D45FE73B74FFFEAF6BB2F8797A86E8BBBB238B1762A7DA845C85 +A1173A94DE300FE905DE09420F2FD3B63909BB2B9692D0B16D69B72C9E4BF3871C75D63A98DD +FDB54DE19CFDF85DE8F0BA4741F3332CD872EA1512362A6EE6AD1D1945C3A1C3998689BA5DD0 +7AFA8C149EC258B438CC13463EC716AB0A8F3DD04185D82F10C7D9434059E3E71141DBA0FA8C +0E690FAFAA1342016CE11B8C975CA3567B87DD508AEEA0557C719D7C340DCAACFC1E778A3C1B +288C210E4BCAB3780B1A49E862876C98222B1522F003A6C154D283EF4C0661F288E9E0166824 +DA9D4F455D983F30109C91C66C677E5D5DA4B9EE0BCAD837F8BB5982BB418528F574E320DFEB +48FB00D603E39E3C58F0CC1D42C388D81BAF8B7677214EE3E9B186BF78FD70973F7A50608F48 +02C8DFD8FB7DBF7EE52423F37E3C10DDDA941D64D9E42D75DA5A4AF2693DED94B0BDE2B837C6 +662E5079502045C55E0A757A44EBC2DEA0CA0FB9CF3E2CD8BBD7E1617E0D0BD4E81EC03DC000 +C0043D61093C79EFC4206CEAB7890ED50AB473C3B83255DB5F45718D23E4BCC7B13DB3D92687 +7448D90E737E235EBC4254E3B42A728D41C7466F4A4B1B47600E32E2E8E2F8B97640D39ADC4A +9798AFD46051209923D7A0579D71DF3FC28A80C7F4CD56ABC3E1A45844A66ECC76C1BF77E74F +0272EF40158AFC551EF8B0F519826B253F929A4A0A12D7C8D3E8804B420D26E44A2EA2088932 +D859FB2B25D5F414CECB69DAB26A61BE0B03B8CD4042648F5AE19CE1D7BC9C1D6AA80B02EB02 +B3E5DE80AB3DC015713F875810ED261C0AA1172E7F234000772B835F59A78D3DF6FABF50A441 +D4DD7C64A38C9757E5B9DE2F8407A29738DE98F1EDD79FF653E8BB17E4D9E6D3A0E98EB13951 +756F2C9D6F99799DE82A38C1F0CE10DD4E7B10005D63981ED23EECC3E91FA560BEE389708C50 +2E1282509630C73EA96911DB13056D431EB81C7DDE70A752402BBF793BA70BA63345CD9FC8D0 +CEBB5C4A8DE02C34BE33BA170188C322F8B471DB4155E603E55C858643A8FCA0C17C271BABF6 +F4426D29BF9702C8E925DD5E7088EFB905FBB6671BCC8D87FCE64B1B8B33B8F58565619D0E7C +BB2CDEE8F101C3015A35EB6696592102A7DFD17DC71051857C7DB39F476F7E4B2BC3D804F580 +AC31A597FB451C3988DDA30D94CBA5805D8F801224ED1C2C5224D02129CBA36EBA583FDDC6E3 +422F15D71D87F253DC8A5176ACD13F44C73CF1A8D18B7216F34BA13505181EA7676D48F47D8F +66081B1986EBB18028A5CE6DAAFB76703C9D937FA683B50B76D1674D74AC2E98FC5B86813E89 +99253F99E546605BA17BC39C658210154868EAA6477163124FAAC138701A1795002CA9C5BA0C +49454DC7734F083FCD06D7AD5B8DCBD0B71E2B194CE82F6495AD2E5E1576C9E99B601BF58EC5 +5A66E2459BB572150579881C23AE2043E669871A9000F5E7D8C7F8F5BABC9D220669BB23748B +B6E102FEB4556C4245365B9925135E01FA6A633DAC9EDC19A743EA0B9A69373EAD93784E9BC7 +10AB874713721C615FC0662E03DB03F3B7DF0A42CFC722B3AA41A702300CC19779C5F918CD35 +419C58BDE5B8EF93B733483F52E9A3F46C31019D5BC4B7777A0A18281A0BDEE44B12BCA68622 +F36F85B6A001F45C0F2FEEEBD139B02D8D23966167D09ABB157EC96326C52B00C2DB19BB9F4D +FB842D8ADF5C1427DDECAD08E93236356FAE23854961D74A216C071243E34F15ABC0C05E75BF +6729D46005B9FA6814E9C8F9767C97368A29100070E3639130CB0838277C479AA4E2E0B0875C +1CE657686C620E200602A333F20C62708375E6DF0AD4CF7AABC42C2765237535C5580C1D8FBC +B5643B8F358AE390D31E314F0E40492ACFBD951E7F018C6D05C60DDE7F08056E478BBACAF041 +977DB35F4F0474A15547313FB9CBA083C6852E1435E61EF3FE5FCBB48B391E73EF2F0B838E87 +442ACE9BA1FB2A0E547964ADF01C4F19121285D86084416C8766DDF088F83FD64E33CED3F22B +04A408ADC64BD59894EE59F446CB024A808CCB988C4C06E797277BF68D209803ED94968FC63D +A929DD30BD66E252252D651479F4BC62E4C693CA41BCA97F6607AF605E3F1DE39F06FD3F0F47 +B0AF922CC4F819C1AAF77465CBBA83AEA7C27DCEEF4AB143CE2A87B939AAEF2138C283E1E4C4 +B9860CFD1620109DEB70C36AB16BDAD2064D4E058321EC9C29767E9DF624D06CF7BC4CD1553D +FBA59B1BCC33F00D0E2C8B171470BC80C7F033BE2BAA14E29BE3B8AF287F0CAF9D80BFD6018B +F558C5E35B9DF4FE2979C93A97317C3744574A545E9EB01B75A1DA88D1D3EE62246B8561FB84 +AD28B5476A8737A8C94D93884958D4BA6126C59982041BCEA5CC04A2F3F5C164FD53F20A554F +E9159B7D3A5A5649B0EEE78784186A2635F9933E2B43DA69B95FD7F1082C845D7D19F6ACBE5D +A4D9B7B8E81367D64D732FF9ADFBDC818D813B2A2AE19127DA134B9E8D3E3FE3798BCE9507CD +BAAC66CE7109E8C0DC36CAD42A3776CB99A1867534D363C8DB63BA9929C7C20C2693C3C2E957 +EF800D7791928F2F5EC88AF1C4511FB3C31A18187511437354684A245F27B86A294398C619CA +5E7AFB195D91EE439D202F681CD90A02045678A24E719B59087062BCC9E2B0626DD2F6359170 +4B28D08A37262EC9A8F08B5EFE517268919BEBB78AE28025AB39320F3FD32272B1CDFF26248D +74D4B51D7B01DC4BD7E724677D8BE2A60395B0B5AE08989702073F2F267128F04DE75A83D647 +705332490E401EB840473C8C80AE08FB0CBFD1E13B985EAB83BB76BE3FF003CFAD94BC797201 +1A39881DD30E7802636220411235A441BF61EEA6DACBC4A9300E579980AE52BAAC0B743DCFF2 +4DFC008C253DDFB7564A4B69AF3B84C2BBBE389B2BB053C2861E6E3E590F39B8E664A70DFD1D +39DA0D2DE35FB09138B257DF159F13F3260C1B1C457D54C5311B1D4088AEC94DC5FF2D6AA4DB +5E764027C8F6A6359BC0D559081D3877642758F0F60DD2894DEC7DA2CCB6BE3D0A8692FED4D8 +097B5E3056179EC598AF8C43A74C240F2121230C9738E3C3001D2BE3B48CC466EABDEBFB37BB +403EAB13967A5D9293FB2F2D204D6768B740728F7721ED50FEEA83293C0A7695F7F0D52511AC +F1CE56EB76915E19B77099B16BB79CFE36AB4FF0EFE0A002DF107ADDF10A32EC3111ECC07DF7 +9D7135AA3221EADE49CCD26910728B632B6419DED3DC4716A6D9E7FE171477B54B745CD53E61 +B8B233A48821F5650DAAD3866C273214D3D90DF661F54EB2FEB2B7197D9E4F12EF27A9D3EF77 +31413A724FA778A0091E4F3B82FDC402B00300200D3F1F455E2D2A7D3447AF90AB7F0FC5A1B3 +F8EFA8D6082D52E1BCEA0033E971113DA95A9A50DD1F5C7B1477822741E22B003135B8B58F73 +24E1B0DE2A7AC863BEB4F0E77C70216606816801FC4F5E7D4A2752C127CA0C6EB6EF0B6F227B +8248DAE1E4772F944962569DED701FBABAE6B9DE28206B0B3AA5D409CB7108C9D38C2ADEEAE8 +EAEFF357D742343692D26B24328F656F59DD81C7D665DD8493DD97C088D9B857E164EFC15558 +C5CE3BD80429420AF000FFF06E2A381397975E38A27B43D24C6E1F8075BC7157375C8449178A +CC2EB5A392202581632F3DB901DC9B9C4863F9F43EF208B1EDD87DDD92CB14938D95CAE5FD86 +4293E75D4BF5FC14841DDB0025C597DDDC4654E3BAC6613FFEB02DF0E7ED32E40D1736647227 +31CE87917B4F709E2B61482AB3719D6346A53D4C8FDE9788E074C1362AF251B409D804A76375 +71273A4231A3ABF7279BDAF010C7F3EB3E11328E870631FE0F2290BB86A0647B231E3844FF78 +F4A43439C194971A083DB5E48A910A0599B48FB48EDB1FE3B0927845084EFEA438C4B59C2187 +A396A9F902B1DE4E55D72A7D2FC783DF54602D303154FB28EA04290633D074B8CE8AC7F8BB44 +EAC356AF9F474212548533835933C3F94DE287A1387512EAA726927D1C6159349A9AC05F12EF +60B418DECD0EF82A39C4D1DEC9357DA1265A7C775F8D4AAF10B28E9B493102AB890AC5E268E1 +81BE8BE7B17E0620365FD1C08D8A23D561D33E7B585E28C24655770D4B96D79009F86F34055C +9FEB5573359763A98054CBA6AE8780C622ABAAFBDD0E7C9435F477D2B3C61A05F672BF6DA5B6 +3F4E69AD91CA1D60911705CB0FCC06B7BDE00129EAE1724124BFDC29E310F42E9EB5742B8B26 +D0CF0B04F13226A58AE1BEB5C0A5394E881656EA133D1C4AF05D0226A8706A13D92DD6A399D5 +C56BA1C66BFC10BE58BD3C7B0F6AC0FFC5F3E7A5652E6D9336F3D66E3EDFBBB9DBEA7673647A +B588DE079C88DB39B19A680B60E918552E477529C8BE44D4ADEAEAE09001EC3248D12D116FC3 +393E362D84DD1DF62122EB830171281BA0AD7398B6FA1F9A68C2B308D3125F394E2ABE798218 +3041ADA060CD93DBB5285B27FDA05079307045CCB5B11BAA11838FB2281B95B251A9607A98FB +BC212013C622B5C6FA5A388DF551AD263A86F412EF19A7ABF3056C7F7CCA1B2D38EDC2851BCD +1DDDAE79096D83E5008BAB69CD7886F9EE66CF9DF50104D32A07C1A65CF7A1AA1E45C311CA72 +BC4EEEAA569DF870378862E79AB45091D8AC005387B9106D9D56318EAAEC2F8158167F64F09F +C46BBDC7A192E8E6587A32EFF8CE064A1E43908458A8457D3D20F44121D0B1F95BBA3A0653A0 +066300CB802678E79EF474B33C2487C2ACF55A9B19D71AD7C1980D2E9ED5A720D3796353887F +02CF154C739A96493876F5DC07427D7FCA8404999A7E1C01658F11208D8F68013F25E96BFB29 +080521D20DC40F030923A315CEADF470F50DCC2816CC5E704416A66E124B7AC0047A63FCD205 +AFD4C59D2991348774E4109B41953FC4E8ACA8605070F71988C805A284080F8F5D82D87B6CD2 +3735B6C34D2D8D3CA694AC9A17CF4E3C602D0CD5A9A5782F28506D28DDEA5950BCFADEFCD057 +1B3B9118E5A61E8FC4CABFD36716B1F80B38E7C50A3853C30552908A4CFDF3DECC47A9F9E8BB +688CE2DE610A09081C593D6F1CC2E073C4011C63C459C156CB48ABFD9AD9A38F68F2EBF53810 +8440BBD66CB8455B9F4EAA66BE31C30843AE1E1D1AF8429A46B47B51A1E9C97888EF53911D3D +357EF03A4AFAE3A308E4FEA00145A7CB1BBC8F3356DCF577EBE0D9D38FBD852D99FA7938DE0C +A14D18CA34904F1E14C33A13B29E4C8A7FD232D1B6D10351A6622FE3AFD792F5FF41BDE32820 +30ED93025E37D64C19C5074D1F18E38A732B0A0AF56C1DAD13EE51C8C21202B964CB1EE90F00 +022DFEE571F2DD4B3FBA1B574990D3BD330625088813FD30E9F0A294F755D9EE345A92B4F2FC +57D03F20AD43057842C6A716E4B13B8AB4935F0F21BA8E8279DAA2656DF28C671EA179A963E1 +245ADA5612B6964F252B5DB9701B365F5EAE08B46364BDADE2ECE81A53E6BC4337A98EA2AF24 +94E377102C169C688C4223BB2E7FD4B8F7E648C0F63975A8B1611F4C732E15C34E4C33E5CD05 +F76EC55A193247234CBEF0E2353F588018163DC447CF3CE14FC0AEDD93A4832D0C5B217C8EAC +B6666B2C29C2EFB64B30DD6802379B821713C7303ED2523E50F0256ECA4856F182E1D66867E2 +B8EBF37185DF5841F42E3707EED1AA08269963F9F6349B0A54B6E227CFB229F2D410BE914A2C +BBBB34EABA00E12E8269C1B6EC722AA8B0B3E8F4D0E8EB08B503642FE658B51CAC791AD6DAA1 +F7030F99566FF57F9400584755CAE4141050449E6F2346F390F71A55D385FE345D17AC248193 +4B1A3D2C9B606C41F2D31388C1951241FEB7321D2AA52399321A702FBB39F92EBD2C836C8754 +0F2EAEB727FE31D4540106AC1DE38FF9AD557947DCA7BEF2752B5D8E56783AC7988F3EF3925F +1ED6003D1DD2153DB3D1E1662CDB82C0065507D749FCF4FBCDB6BD270761D0FEA4D1DBE24CA7 +9D56648EF7DDBAB7ECB03BE1C35F6AF40DC50A3EEB3052F53F0EBF52390292B0B78C873412B6 +216A46C7AC7F266E77B5A6343B46F1933B3CD1CCE1DA366BBAC6FE8B56DCAA101DAA6BE7057A +2814C3A6253D18C0C2003F04F396CE83F054989BEE7F1393F4176A2E1CD10AEA4C34FE7EF39F +517A6D2F7F7E990EAC5A902B304B5D86A90065B095BBE9E6A0EECBC1317984B781D64B6075D3 +5EC1E3507FD4FE2E7097A5C28B53891B2C02490D0C063FEDA48F27E6392CE246ABBF5F0F768E +CFDAC3F779A1F1FE5E41BDF8854EF8F632361C67E4D7DA98B8B8F67678B3125B0ACBBC32D386 +E85DB2F5F8A48A9C98B34D1976A88C7711908CC14251BCB6EF6339BCB8A1F08379922A63734E +75647C9B6AB0B075C2BFADB9B047600960AD5DCED398DA4B5811A49443E58DF9B076E6962124 +29F0E1ED9254513D20A735858D3AF2A80EB79C7E250CB426FBAA827F18BF3893B1194B912ACC +AEA7CF528AA2E9134E43358A1B1ADBDC1165BD7AF120B3EAB419B00A613611BD0C53E89F7489 +CAFDC1DE5CE7A65B6EC264208676DB2F6E82348B86E6D181CB4C93AD4B09E331D14A9A580293 +27312CC2ADCFFF1AC1BCAD9C45FD8D219958F6F6127923E9F7778158B67FD6AB3B9FAF3C909A +298FB39CD62D3D6E59AE78520133299BE1291A67442729D55796AD33E6D7A6A168ED611E86B2 +06282442FE3C7F4FDAB6221516175EF0C0A8D9CD4520C85712C90CB1DB9B158C1847DA5A4454 +6025251CAF7DFE1827CA5A3BAD048442CCE3AB2463C7C731712B06AB002FE8BAB47C77427ED0 +5B30D2BAE6030821EF6814D48D045789FC8CAD2E4FF37B85B7A4CF98F68792EF4C43EBEBB748 +0C08975A4B35092DE3E2343F1841A4D7DAB6F23BFDBE682193E60B2B5F7A3E12DDC6D572A931 +9633D5C25371390A339D37DC58448C30CE1CF340BF08021FC70D0CC7D95FB60A1F5284E226F4 +701D22DD72DF44E00E4D58DF8A49CEE890EAFD2DF48C8E6273779B1EC4B7570746153F0DEE83 +2D60E91796C91669789A433942EA5F8F405C41D5CF7D68ADDAE9F3349BAF0307EBA474FBAFD7 +4E96F9CA18F68A4E1B80AB5A945631594EB3393C077172A42781A4AF390B1A15F6975180BB1E +AE1ED295693AD4BAF8AF2375336D2EBD3AA0CE027ED5D66EA073FDCAD62C319AC1146D43906A +A41AF71232B035A11188E031C910B46B1264D2F8AA761397E1C17C382E397D633A246A453D0C +9151514A96D296AD516D7133BAE9E3BF35ED6DBA57F79554AD8BDA84BDC33EDBF44D7A429162 +B5508A2AA6E50DB27C0CD7A9F7964BE9EFFE12712D83AF70A040471FCC4117C0A4A2B25E9316 +49A7325110292DDD846B262F0F9B8DBA514F2C0281DFC79A4600768848992C3F541E09CC442E +58AF18875A9193D5C0D43F45061D629AE92EFB315BBBA552D205676A83FE4FE3BE1744123AC8 +C0F44ABEDC06ED58179C66C42ED27FE06D12D65D9B3B16D7D737DD02AD8BD09A295794D51C55 +287E02E523EC2542CD4B08C5C935E3A8B9B2E4B2F146400F4464D952E5636ABB1F8CE24D0F47 +092D3DCAB041C3D7EB16665F345BC73A5BDAD51725CE384772C88F7A476B3FA370E2134888CA +23092A878DC18143ED7630F55D89A82B6DC7135F57F9A643F4B4119F4E6FA8F6CA8EABA80C34 +E4E4967F94C973462254BC1B15FD9D838D82FF51D8AA78E215A1667425F33D27B7EA4A2E44F9 +E7F7BBA75FC8C0C2C84531FF13EFB25F3930F5948E9BE5523CE943F018A47CD775C4EA80A5C7 +DC5D5F2DF1E9A6B73F71ABD8C97B7867B7D85C396FC1E5DDE46D02D9A8422E256C31A0C3B3A2 +AAFA98537DA5C0ADD4F066941530ABFFEA76B805D11365262EEDE9553AC3D93F74DCF7D9AF4C +09CAB208A6643DFAB2EC3AD90CDB7F43821CC26D76D4296225700B5B331B82B8177592D4DE32 +B547824758F53C8B680193A2EC2F6430CB9A82753BAFD6191AFB5DAA25D233BBA9819E4C35F5 +D726ABEEFAAE2CF974F658328D7BA10601EA35EF8389DCDC31F3C708F60AA390A44281D010CB +9607138FBF6336C276EBFA565848BA4F1D8B43C5BE3368D559F14136596ACF3604AA9573E0E2 +374E6C5A7F729D9DC9C9E4423DDEA9B3FB1D4493CDFBB724376374036C59A20127B6AD28262A +E354CC0EE8D8D32E9CB5C0218CCB37984EC23537D12EAE8E416C08FBF22C12505713A4FAE45E +AF599CFA7707D6ECD32C68E66B010675685FCB7CA686D9DFB046A70D0959F98DE73DC1979057 +2A8C652E766D59A33323F17E668BD042EA3A3D0E7461ECD4938A01561998BFFE1E27B342F876 +6D5F8FC47F25DEA957FD72789EBA34CC60034DD249BFCD8BA65B349EBACEB85E1AD07CFDC51F +5B518B6DFC2108A9D5B9C12FD85A9D238272CFE9A4F9701C183D2B5A4253E37A568D825616C5 +16CA597D077C7BB478136262B897BA2023D420771A4E27B01EE14F0554B08410C2DDC3F7DE4A +E11AA366848EBCCDCFD99F1F2B04ADA704ABDA55CAE18A825482175CD432DEAEA9AF4BB8D44E +FC32456BC63AE9162604DBE8A7A51277E41D249D94C8431BD503CF83789A96FFE0D2ECDA0E26 +953BB3F08EDFFF439957709CC4E5407BDC02684931ECBBAA40A3D6B008459261BEB29AA6D38A +E40642CAA99CA7ACB93F94C4FE939E615F77D122AF2057BB98C7C57A751C03BF453D0844686F +407FBB444987BC0AC524CADE41C0B46A6BAEA2D1B6B653A14FE51F1AA402C00A6701E3ACF81F +D57788E6DC26FAE37C8041745188366EB6148DDF52FECA527115E7A6A4DB4A3854E48C49FAA0 +2157588DA01E37DE6EC264ADC5A855FC96F97B7D0913C9CDCF8930DAAD3F3E712F4CE7302DE5 +CCF69B74EE5DBFD9CC130DE2001ACF734C096708C49CEAEEDE54A4EB87C7B10487ED243C2334 +25305EFDA1CADAE899EC1D623E45EC0E95F0A92E11BA6F60C56371305DCF168797A6A4D1E0DC +5B6718B53BA08EE4BFA8E7E1879ADA63FE1DEA5093B784E668947F928E7A32BB526DBFC8B2E8 +97B03B0754FC8EB384EE868803F07E513942D630B412C1CF1582E320CDE82032391FD9F6561B +22A42B7ECE2A9433C902B1668108FF20E25F2E42369F7957D2CF90B34C12643E77A4F841B6EF +E6E811AEF96E18110725C03B4132B7BAEA4DDA6B9A21049F5340C94FD8B4178163030E66D3BE +1539213724968ED20419B81192C01355D7B0745907EA95B14A3C99E6A5E13E3E30314AE5D90C +192926FE626015A10F23EC0D32AC2531293DC41FA49F214FB05268AC9C065C497828A932F933 +6198DFCCF0DB21FC6ED53FA7C30A4105DD09749A81D2A801A45493C288AF1F8A421E9DD1E684 +41007B032EC9D1CFE5597FED28F00667A129A4B80F9AF75BDB37E508F47F253168C72450D623 +2FC502FB6491B546D4922DC757C737AD13EE7C38014A73C74552A0B9DFFBB39E38957C008979 +BC03C4A01CA5411540067D6812F6D742300637884CB0A6F574F015A4D885209AA696AF7A94F9 +91BADB0EA184113274B75520F5B6993A260DE775DFC04A2731EF1167A08B0EB69C4765ED7AF1 +24A46F1FE636B64F8AC96FA824A9A4B01423DE144F8CE3FE214F495AEA178421A49401C4652B +1529BDF35CF136D22947DF95A447B9CF7E9F03F2A39FD1643CBC589E8363DD9ACED75C4773E9 +7FBF14D447E9492F907BD56245D8CE81526FB2900E567B49DD20A25059F90A1CF2786E1C119E +285E50706B0BB713B30AD273C70F50CC4490A94A5855A7597E59CB9F60C35D11621B965A808E +98BB2EEB9DE4609BF08EFCC72BA56C1CE1DF406EA568091E69EC0A27BE3F6578D1C7CE414D01 +949FBAFDC1924B128DA23CDAA14821D8D13A98BA4BE3078D332E7529A6CB0507969616CB7C99 +4B9841A147A81A2BB469D3845776884344D484D9C8553BDD659B769D82197536A12E16E51DF6 +5B262E9AEABF570573D05052762ECC689BE2977645FD549E6F68DB434A8EAE62A7D0D5E4B531 +EE9C8640CEC2FC0ADB3CADA4F29059356E97364320316D0788B48224012C6AE03F801486DB4A +B32DB1BB2F9EEB8FE1E6C2BEE8CAC2FEC3D24D6DD67A68B2CE02A5E3A1EEF8391C779A3E9699 +2E05F430ADAB002DCAA49A2A781C28DD487171B743B99CA496466B6D45D2F28C6197076DDEAF +4FB188F61E750522EDA8357F90C3DE30D8DBA4558CB72523B60A47764CF5CD0328F475C470BC +B439470FCC4F502C9B524C4E332A89C5DA71AFBF8AF1391C4985E16B61A63AFA10840C18777E +F519A49ADB3B836D794E0F2F3108CAEFB9F89DC742F15D6000D3C49DE33A22D3D2678DCC6E43 +5BAAC5D383790135F81FEC2C7A7980DBC5D1CF8548D13E0ECBE83A430730A289AC0780FA7B92 +2144FC03879E927B2A9B91B7C0089F3CBE6DDB8A43FD846B853889E645B9E62F9016C4802F15 +F71D2E818A25465D5B79201AE44EC0360F822D4325068315516F6E56FC4897C9C2C7F5A9983F +EB64F3555C0931D607894A4CCC6E469C98AFA6AF7858AEF40364241002CC42F60DAAAE924944 +8C34FBD8B3E181D2D022B102E3062B09F23121CA27B92DA680B425E257BDE95AF24194634E38 +753A032397B6FD7363446D63232E5FA2B4F06DCAB3F15B2C62B3B1AB35556ABDF79EFD97F6BA +2F080EC278F9430047949B676766776ADD5974D1F07AA4983A0E4EB63AC30B25A712451154B2 +D6D1DD8DA6C21383787FF1BD66A511B01C80CD7AEFCBD5A74345908A89AC43734E74CD50DC31 +D5287A25C8636DEEA316ED2231201ED14BEF7FEBD75C504927B8B386CF0EF72A846626DF3A4C +14504931527FA1E4180CD4FA6802D5759761842A53247A6E430DA0E1905ECA6307AD9F258811 +C913324A4ACE686EC36B738EE0391732C37869FD3D7C08E8449B7312ED44D895EF87EDC60FA2 +F49046C861ABC13EBB88C49D611E82F92B437B69FD3F58410E854CFBF0814204A737BC548CA0 +195F20E0DF9360DD81834596C6CC8D2CFA709F278C6784EB134419CE34739801FBFD38980D98 +03F5949D317445FA81B50AFDE6CBAA662CE7149F643E219450C2BC34F11BBE1B62C5A7E2E970 +ABE87915C776600AEB29F3A8CAF91245352060CAA58891BE4A6F810C580D1DE579A9ABC9E5C5 +DDB6310B59817ABDACC99E49BCD94175D79D4B0D04DFA9B10D45DC9C2F415100E66E1AB25C7B +784D33D742D576AC7A6D3C979A5903FBC9BA085372ED4802E2F5027B5208F397D3D077C3A282 +3FCE33BFA3355C2514E33A048B51349C20604C56995E8BAC422CB6B1702B7BFFE2F0DAD83533 +51C289B6A356FE282F98D8E55820A2677F3E3B8E35767A231B8B6E908F167D4F9FF64C3EF74E +99F04ACF004F2BBCF8E22398E8284AA43946A815CE81D737D98404CDB336AF5106966790ED58 +A2AC7AA39DA05A80CC9B09DE15E2514D8BD8CD1F2772F388297CFE921DF86515C90DFB01C692 +C2EBCBA012DB374E567B6742665C3E582B0DA017AFABFFD4C15D8DD4B91583088017CDA7825B +15B770713756FD7FDE94F6D238217CCE84EC6B9433F84DFB5D6EE382D3CDC5451F72C6A0E9A3 +50323BD3C4249ABA95EF92EED284C2F3E0F0A46711DBF1E23D236A59836FDEE8E4CCE15BE9AB +69795C1FBE39B18F4AE55E7EE2D78CA54E287358FED89AEE431E3EB37AC9ED80FAD9C8390C9D +FB65C1148A23C240F1555DB0B04B9C5DE5E3D6B539143DB9C4AE3C4B28245528FD2E99C8BB0D +900EBCD28BE99FC26751539995F46E643B5D48F123D8E965DE3382F1FC99D7FEBC2DD39AF4D2 +0BF071F4F7A180EADA14943DD0F473618F292ED5EC74FF7A19C63C4AEC729AFCDB2AB58DB856 +0807A0DDB79938A803B1ED2BAC309EE5215FC725FFABAA1AFB913355A661C58EAFBAC982E61E +F9BF5B4DB95B3CF0350B4445F29A0CE74A8150B0BE34BC052F103C01C2B695E06C3B0025E9FD +5E9F9F7F897F73D9257DFB4B6B8CFB95A32D320364B2593258395A9A6EBF10554601DB62CE97 +4CA6C77BE4EE4C95A0DA2DE9777E475D799CF960FF17A85F9CFE2DDC00909FE9232D8F73445B +7F145060FB5360D5DD0E338EC837B1E1DE6E84F8F886A883F3CFF46DDE7ACFC7B4B4D06ADF83 +B0D09875DDFDB8B7327DFA9AFE5DB86933012E39281C6B0E97EC61ECA6005A4312783496C80D +60874A37930B43C51DCC23A55D53F4986C80B8BF004CE01BA9E118A7AA8D2B91253B53E43042 +615489175EDBA60BC334DB7B9B11B39FB6499BFB743ABA0F3BBC7FD37343B1D9FDC5CDC0D592 +B164BB10E3357B17F67382AAFF700067B432B9A40DB78859B34525B04ED7FEFBA0943C009928 +178DCA303D16AEB5CFAFCA87B62CA6CA54C77CBABD460DAD4D027786F267D26978DD01879178 +4E0D82E808904A5E07A1E609650C466EFD29FAD853AC0E27D938E4E2ED19D96CDEB6098EC942 +1DE87B422BF46D25A3782044014C28277963D3DC9B0734AA5EC0F57B3E0E54C6D1C29BD88DBA +E8588C946F09DABC021D8B0FD29BD8550FCCB37B464365E3E0814D283536827CC8836A775A67 +5F8AEE73D1BB2DC962A9BD3C99CDD9306DEA21534D0B45BB46288F4E76BE71B5FD49CF254928 +83DCA4EFC922C61382FF14054C8A12BCB838E277F651B609055456640671E4A6878705269917 +3E8D7531B33BE53D31A92D3C37856880BA29BB2541B27BE8B5D831C2160C37E8626BABA53FB6 +B9396DA7EF7BF3B03B9128EB560131165EE28BB94E12CD09EEF1CE50FDDB5E38A5E6D06ED8E4 +4BC7B08EA129B68A50DEF2030BCF597771E261541D4FE2AA2389DCB812B970C917F0BE8EF8CC +5AAB445409031E588537514800EFED1A12008BC509DFE2960D1131E039353F71344C9537CE1B +788DA70551DD7E178FF26CF02E143E7A3F13E7D365AA78007E675DB4887D5E8865D843E8A3EA +C8BCD209E5DE411918DB42959653513BC23A2AEB2535E83D346EEA4143C25F6D5799921A060D +6A27FD721CF2711229E1852D82082A56D9E660446E0756535829A3DC5F2DDDCB4102E7CF670A +94846E04A82742F8CF27E5AC11DE3D19E5FD1FF857050DDDD439C2D04C8DB981C08A2B20ACAE +BDCAB4198DB59362DCA6E3648A75C5CD51F80A58CB57B043E36049C6F233E95607711BE194DB +6748FE80E87A551AA1D1A0D5C30C38727799ED06CC80B4737869B5AE60D3B078549CE77D8FA5 +2EA04E9214AB9637A1DFA40B0A739F73565C060C127EF89620313396B5A843DC209E9B40C4B1 +356497E8EDACDF0E7FDE032067251FEE177EFA1696613ABE63AC1BD611B02A7EBFAA3ECD7EBB +88F0239660293B3CE15792F4E0E0FBE21F14EE875440E6F26BE3F8A43FB376F85FC6F59C7594 +3E2B881EA7AC09FE469DDD7F3D9F205D40029AD8BD9978B45D07D9295E9A998446389BB9F929 +1F6DE2F47D25701DAD54A4D2BE919E7B237E06061968091360ADECBAB62107FDB12766B7DD7B +799E238FD780D339AA00A9E4DADCAEA77120DDB5FCF5CDE4905FED6280DFBE7BACAC400AED88 +7E43C6C00F89AC4D81FFD92534DA0E0876FA5E765D6FF6ABDA50ECBE9D447AD706640DBF04CB +39B42E8F1FFBA10017B9FAADD18FC2757C09F5D7B544FF2E25B010624A47B6488135965BB324 +DCEB555FD2C1F5327F5EBC6FAAA2248468CA326AFC5EE696EF0F0A54E91EADFC830DEE449540 +1523DD4E81ABA51BA14453372E50F294FDF1A6221431D26D413EA3209FBD9BDF5F6C9CBCECA5 +AC3C18746974C35FB93455A74C7E01F57D51A77AB59F61B4C008C0A5D0880A662479A3003CD8 +9CDF4D33879FE4BA518A2B403F1282671E9293C305172B409E51ACAAA5B76005DF61BB35D477 +C60A13DEE01214E17C43CC3A23662D1D0CC006FD201C74DCBDAC51EC3A18E41BDD8BBF322212 +EA3A3DF365E4F8CD0AE6FE8D2602BF25765607BD8D3BF9540F6E9A9796784A09BB4AD39C9476 +8363F4E9724BD19BF3CABC590C775A40C94E981C5B2A98E264F5CE761283EF00FD5AE4EEEA7E +A0776F25867AA39ED176260192CC8C195B46C97B4FEC0F8B4909C37CEBACEEBD1932BF26E08B +4DB36357C67B355033BF05D0AF7F388E451BB5476FD32EB6056109B4E20A827CE183857C575C +33F73A1AE030D67C8757441C354B0227B147A55B5AB0009E4E48E66271C2E0BF32100C8606CA +9B2DA0D247572EF10077BFD6FB1330A3409E9FCE23EE857910D3494B0E69ECE63EE47921793C +33F859C677277EC4FBB42FACDC0243D926B17D28EA524D3DF9A24C1FF9B02AF0FE05D24B324D +3CEEFE61FF22E49F7D4F64FAB4792CC401038EDAB5AFF5F757E6936FB0AFC41E4A4359FFC3BA +C16A30776AD9DD589BB685173EE6357ED96094F987B2E1754AB02A200F841C54C9D4373BF7D3 +AE9F149D74BB7C8A463CC250CED8077D7D622B0E54C7FD295A3B114F6148AF5E79493CEE2741 +32E2063487BEA327FD393D208A8C689878BB7E79C46F7113AF0CC1389CF6765F96C486F09C5F +B6F7F0ED2FCCD2A8A16929E599DD96E88A7E3257EA6AFDE3824BD18D970E699F320C2FB09421 +8EF637E908D277A51E087513B5F676AED5AB649187C0D72A52F35DFA76D8BD287D911ADCB3B0 +6A73B284E80461C1D733449464DF62556E4CF4E58F44B188A5E030A764E4F18C0BB4FB9D8E17 +D056AA9955179417F0068968D44EA5106E6EA47681E130572F805848D7563D7F55C0D902B318 +DA8D4520F9EB96C7F1DE7A03F79CD87D229298FDF7C3F26FDABA6DE5AA26496D03A9E93C3C57 +133378C738BFB6DF50FF3B136EB7E9F3FD08652A7BF2B94F15542A791B49577AEAD85FF8F89B +A6DD97D6D5A602B7D3EC463013045FB8E3076C8EED0308F804BEADAA69386E28A8C044C0C920 +8583598FC85D92470B072097F6FAD17D296FD6268D58D9CC580B4B4AB2FBE8E19A7E5DB2603E +5C23056F663B0E99C85AB0E091B0CCC572FF019AECC4ED45FF0C1FBA84676B118D6837BB3635 +6625B19A02F708B6EDBD2724E6A890791212280D9D694280E69BA204C85490D641437D56E4C1 +E76C019632B9E569A506279AA2AFDBB1FC353F5A5F5B7C9D2E07B7CCA2B5CBCCDFEEFC0187EB +1FB5E72D59E39033851F8FD707B9761DDB287A544A56B51BD9B3BFB2ECA4497C700C26B67231 +4AD936DAADA25DE3B6537029A5E2BE98118A5711987FFFE623CFE76F3597F75D4DEED96CAB4E +DF98ED1D1FC83A53D620FA771DFA0796930DD0B814464B2F9BDE0F33B4009F40827C4B146AD2 +C736E555130BB483179B196DAC61603EE14C7CD08CF0CA198A061400658438FE485E4DCE72E4 +1795D275B00B2571D77D29FD8ED81D7F5ABFF5C667E681722EB9FB06462D43453150E98EA47C +C04F898578BE6FBFCCDE229575611CE176B07C5BABDA6D9ADF3665BF0647ED5D96198AA91245 +ECF0CFF04940E399B26BE6B97BFE721D014FAC3ABE46E87E2C9893C027D6A6FC00F577A6A945 +D49985B66EE9DF8498AEDB75F26E57C46CF8403067E746A674DEA18EE84EC91E24CBACC6E6A8 +404793A3529375DF166E13C5B4B1CF54A8123FB823427F85A16ABC80597C24F869E166E6A53C +FAB7F37C00C371EB28A4C0A3971AF5D9BB55022CFB6D22C1EBF25C793F19FDB964C0128F8FC7 +CE0D149A8EF20712A6CAD3EB5BFACF510069FDE85E1C784BBA91746541D7F9BA6824A48F82DD +038C8271822C11527543134151A2D2569F2CD0DD8B9EF017FF8723FFF3D830B58D215ED680B7 +62D67380E143214CC256B8AFE48B716F1E7577017CB00B984DAC3D80E7AD9D50A4597EA1E1BF +CF1661185AECDC0F4011D9433E743612D6589ED4032217B4490C9C35D42FC4374BEE69FE800E +BD19145FD889B83E056200E06C41922FA528BA823D7D2AAAD67279254B7DF20A37BFAD8B9A09 +D28AA10E57488A1A3D3016E62744102EA4B05CCD6444509E8B6BCBCFBED9F2569384993289C7 +B8E5EF5DAC933A75ECE8951F5BC0E25426429F53CD7FCEEC671F3F217F7339A5357E0D9ECBDC +B2ED8DCF7413E2F9B7B9A4976E214E8B7465BEE847D36925C374422D961E572709A4E59EF648 +8FE114AC70D65C85101BFB2CD9F05F6380B4544E6563C381BD6317E2352AE5A8610E6839EA39 +4D0680547B0687C131AFA2CDBB58D09FB900B1C10C63FCEF15E8B5C27D33D24BAE973A71023F +B9A21FE6AF35F229B127D973AE18B59361B85847A823572CB048C2C75E6874E565B9D1C180BA +84A84C9BC4099A5670FA02391D5A7A69AD907D34C72E9BC2BB9693D784DA4BBF3AAA51BD9343 +332785FD9088E77856CA07C9CC44A5CFAEA3EDB6A3B1F9AD9037EE303A28C7A08E89DC33505A +0BDABE5F83B8A7F97EA32E7208A470BA66A864BAB040F6E071866B7A87C949A02996FC615C06 +0B309F030A491BBF3A311EDFF3811C05B7330AF43D17D0800AF1F42591E5B072075B90935969 +75C414AFBC1D8A51DE626E8F4A17B5273BBAA75369D06BEF7D6180EFF2332C8ED23E9777A719 +E5C6E328F78707887DB774A3CC416BE0A58DC4438D3B662AB5A79C0FB1802B9651A397EE6584 +1E0006CD97FC10CFC6A88E58B6DA2FF9B41006DA0D90EF7429FD1B910317DEE29141A300483A +DCC2AB02ACDAEE94C8483BC075D030B095FBD0E88C0D1956AB8381458DED6E10D72A916FD9C3 +3E4846405CD047B1645B1F2D98E9D3D655FAF8FD6A09F278AF32DDD746EEBEBE6343BC159CB4 +75B0BC44D624C710E609D967FAB1CD4FACEF81B9A543AF0ECA1AEED5F7D4395C8E4B44E41721 +7FD59ECACC5B71941AEF962DDA07EED271D81923F6F7079FA76C4976638C3E492C9B37E893EA +73DF24A1DDE6BD4B5A91D19F23190B0E49C74D7D4E20857F17DF336AC6D6C77B6F1CA83A7814 +6B2D1D67D7B1F024B6D3CB9105D765AC75FB29F6586BF30DD49A62E9763F1D8E3E4DBF3801D8 +2547B9DE1FBE5DB09C1C7E2C8F5DACF923E0D176F31884F6B6F49AFC6C7BFD7950FB1B6AD666 +3DEFC55B7EF3418F27A714869807E05B46F06F0F12630186456131FED168CF3E2D9833F6C8AA +232119444B38373DA6C3652B239DA2FA31F08B88851E0D419C7E1F7FA665853DDF9DBEDD82D1 +40F06042EBEDAEB067DEA46C9001487E39B5B0CAEECEDC72502A38C09C5C71B58D20A55946D0 +81939053B7A84E476FB043342942BE77E249546AEADF00C73E7C8C1F6ED5C0165AF2E6F76B6D +A19F58423738F9B8076C8EF7B9EF1F2D42D7AFE47DEC0A8743B0B62CDFB01FA552B6A6A983D7 +938917155AC3167DA0F1A98CFA701ED029BF8A35E36511FD09C14C5945FCF10EA145BCC01975 +BD86D84DD13BFA53E62A55A36A6E1EFEC82AD2EE19D758B0759460F08295696479F09C98AE0F +A3092FBFFE2283968298994750B02613066D3A77817B7D64D7D3C031A1FAB354F382D9D1D136 +17ACF95B0D79612CCE5CE8876FDB36916216B34EC30670EF43B8DB7175CEA309BEAA742B2062 +9D5642B4851AEF8A28800B2C2BE17BBF6A35BCBA2D095ADC4F2E6443695A4C5554FE7612945C +1E35A1EF47BB5818E214785B631A0A85BDEE496DC293C64DC798944A19B268BBC8D4B2DD9413 +1BDA4F039F6A25AD2EE2A7E79DF458BDF0803DA58DD21E07D0AAD855B277110EC8772132611B +D06A80CE80541F60996BF7666E87299E48DE1A907025F1094CC82850B76B0ECCA950C9E7DE61 +E8FB705121BB9E6F18D5E7255850B096FFB9FF4A8C94568B003B59FA38AB556AB727BEBCD0FA +22F5CC115DFD939C909D1A1051B891CF0B4670682288F51DFCBBEAEAE10AB3DA963C051F57A0 +4839F5E320C66775578942C2267899723F17A790117F43026ECB4447EEB5ED92E2F90C71CE6D +AC3AFA4FA6855772D38CE6D110F580157B104529948DAF541D21AB4E4773F71F64B12F980DCC +38A6588FE56FF6C7C686F40F975F947A5DCFB98AABE55233467C85C1636C5261927238EB4B53 +06925F91EEFBEDFFC59EDAC727A33A37912F668DDEA36E3EA0090E159AE41254B5E1C27EB8C9 +F7D4986426EFE5E8CC147B62A1032527DC8C0A189DFAA2E9F15DBC752B42A18AED11E6D062AF +2C462C4C51A080A4AF9636DA71039DBBA58BE239C0115C9374B33A1F5CB62755A8ADC5F10F5C +356EC5B8DFD78A27E9DA09A978852DF7742A07CAC131B4D7792CDE16F5AE654F0083620217B9 +270207D99823323707A610210DD3F29C81C5DDFEAE3C970C1720BC21C04BD2BB7AFA34454B7D +E0CBFB4254F8DC59D5A1CFF3E01F4A5D73D7458DD12330DDAAEC6B686F665BB24FA9B1F5C0CC +45430303C0E43AA5D5072D106525C7827E561E9C3A2F06C4C23B2D8BAE239CF7EE653AB59917 +93BDF00A21F63CD7FD28ED66B38A5A80DAD176964E42D2F5BD0ED08681597D6C9A0613944233 +B2E55030562F1824D8891BC72B7825E0B0110F3CE3F3D81DE94E657F715C9195FEC64B7BCFEA +CF40BC7E253E24230EF5C1F94F3D2EB14035B985A9ED0ECC34E3EE3C903538F3A71BCFC26C61 +E611535404AE4E828B74AE4173EB3B3199053FE35B28951AF27C069F3C13223A9C08549FB9AD +3EA7539CF499FA98E9FC634677FA3AAEC9D40547BCA1FB158FBDA24509CCBCA707E5A81622FC +B5B6508F985318F07D21B31C9A31324971F449EB3D6609011D19EDFD5A2E8F23CF8DF97F3623 +572FC0259E9FC4493A5F5BC532CC6335FB0446B8004B239EB37D5A7DF03A010C28507E3DEA01 +47CEB461BCFD0A8CD745270C623949DE2524C5260B583B724896234494DA807A5F0BA31EEE2E +674724359E175E2B262CC266EB9625BE299AD8456F4152FC5B8B04BACE7F8F860F46EC2707A2 +09BBAD6D04D44ADCF9FE20646E0D8B344B3203E561E865062E206BC6B2837E92A7C0F360F58A +066DF3E80F67B587D78463C52B2175DE19F1A6E607DF963EF286D8DCBFCA14F20AF9BE0DC600 +0B47C6C9801EB3EB8D2546C109A27EB67CF6D522E710EDE17775FCE95E8788411ECEC5336AA8 +13A0FA0246081765805AD86E429F0D526731041FAC8B48556EDF159C6A3F52B33473CE72E011 +170965F603123216E91E2BB506BCCD363022205EEEB34AEB7D68A3621A8C4F9E3CD99132914A +20630CDE011A83594218CA355943CFB99A8291CD412E6F45238E92B9A444E57BF1FEC9E70B4E +7F6AEF1A33AA67D9D97A3ACB07EC45A2F385A84BB64B27686AD8DF947F407D2EF90D47178638 +817401197C2F05996732F440915957E4D35F04BA63BCDA0337F91C7D6827A8BD76DFD56A6E89 +D1B4E839AB1C1C359AF75ED1B5ED97A51DB5B51C07F84C0ECC9C62C8F7D7713F22BB05FD0F69 +D7DB345ECF1B656FE34E70BEEB91AFCC15B383AA68051405F46E657CB1D3D3AFD0149AC2AE29 +AB293BA8989AAE30660D6C1DC957C45349C4522A4913A319EA4BBBFC70D449568768B988F748 +5F725F6D12609932F2C0CA38B2E6D55B050331366C0183746DD823FE157DA73350FC365092ED +4120B63F376F1DE8310817664E688EA41E57D5B74C4D94BA621443DEF01327A031B23E420F95 +A54EDB3DC190F47DD229FFC7911F3E5AD89BF317F5954F6B42DEA14CCE8C485DB02970886391 +40FD5D7EF6952651CB6E1498DF2274A4ADC3D517D8ADB34B4CFFE120526B3183DCEC9CE46504 +ACCDCA61E9F3EFEA679F3E24A1E6383BA1CAC6C303D4DDF02F5D672F905B79C8F0743E77737C +D65C277CE90E96A39F5782D628D8DCA18489A2AF8B637090EC3D58922FA938478F2D9DB1F9B6 +5E4E5ECBEC1E3A62B557E9A96EA8FF1F176AD11BEB5D79341E472E52BD8E640F9DFBA653591D +8306FC4076F14ED590E335F49873DEC6B142A93ED7F6F035C0D7F1517EBD08EF7DC4536D245C +C987FE62EE0CFEE8674888B3C83AE687C39960A3452DF70B5CD6F1A16EECB26DD5889A90E697 +7A100C6496B677332CB0583389AB631DCA23ABDCB5DDA1FC7A9C43182AF193E494C1B16D9103 +3FD14B1BF663C90891A291B3A3929F9D5BACE459DF02DB25716DAADBDAA24B0330A7B89BA213 +023C1F2ED9562360AFA56DD9A78D4CA9485D861120580B5A613E1CC6C4F6E0102802B4D1DAE8 +BC97EE3666196D49A6C38855C024A8033A1F64ED2F29356B31D6E21CBDDA27144154D081A95A +D267B4ECA6FF1295D5F73A4329B12BC4A277DB7ABA077B0A6C7EDBF53F81F3779498C248DCF8 +A3DF110B92DCF74C44B1CE55B70C7AF42489C7A918A9831A7383738FFF47C841EDB2D298E57C +526BA87ED37F0319B35BF1CE08C11D0EAE43B7C2030F6435EC1E190D0F402EBF73613647A93F +AEC756FA3FAB88EC1B9E24B9FF2A155CC4AD796F1B1317378DDC286424F1A490C2322DDC4473 +73A26F3E270B992B83B17FBEB8527991D5AE43285BA3C012A86AEC9E212A4180880D937DD2BC +4C9F8E3391BBC6E9631A4BA5F673F65FD6BCCFC2DED6D40233F4E46A79C44255EFAB3BF196A6 +39ECB0618FAF8DA866DE75E1B802571A96813F9F0F4407F04EC1B096C5CF02057C2BEB534A69 +83976894FA526C09E9968AE07553524E89FA8107D34E67874F80DF7D191EFF2AA95576007738 +BAB5AE2C34B56D22E1A63761D1D233EE5F5DBFC27F55EC24CB9B607138DCE6B0E1F5B7C1DCBB +DE670C69D60461B3A53CAEB236AE531DE2D9E065E9F5F7D3FB79D7F147CAC72F7EF542AE4541 +92F93C57A52420A2C1FFAB0B227FBD78C5CFCD23DA43AD0D67024ED9C5DFFBF64E25E3418EB4 +0C9AD59A3B8B55D44D45CD8576FC231CE5BB47D0825AE72FC11BA48A4BFC5ED60AF6B2767193 +FCF8FBC97A23CA4557BB1B58733B9A8B102156EBD4884452DE7CB00C563E8143A7D2AC5A0DB8 +3256A524F99844E7C1144F2DBA6094366A48F17E6BFF7B5C9D7F941F3FC00615AEE70EA7A1A7 +94CBCACE6879A5EA9B93A6C130458F0F85D50AA4CFE54D122B1654155D9616DB845E39F2135F +EF1D4A4F24770F050C1678F95188FE3C0DD69EE0E9BCE29406DF9BFF68E019784FFA9CAF14F6 +9DC3C1B7ECAFB32AEF009BEA2F5160E5B21D2D19676C27D3D3771255737BC017B9EF6E6792BC +6A2B03752B7DAEB4AC336F311E26E29D2099F8627118EF73E530136EBA4BB5738948B5704DE5 +D0794F2D7A4F69C65C4DBBBB9012A27E7EFDA892EFD728BCF73FA3CFC9161D0BDAD61A017712 +1558CAD383BE9B68B13CBC257EA34AE5686A245A8D0F60E3527E83D35EB97015B1D0F97D52F4 +F744290BDED41E78EBA771B16D8B067D209BE085B6A63C25F7BA58C48CB829BFD86118425763 +5882D47519A3187F988F2AB0F929C7CB66CB54F4A690EBDBAAA83339DA47688A1DA4F277C472 +894F320247F940158FD4A5B3D0E827B9056CCF61948C98380C3B3CFBF834483F8FA02BD61AD4 +BB94424109437CA180DB476F8EDF06E4664A368A55BE1641E8B85174F47086C570F774021371 +EDC57D5F9BE7F111125EE2903972058FACE785F0AA5564DCDDF9698AC96AFF030DAB68858AC8 +9F7216769BBBE1CDEA9CAB97E240298321AA70CA3D4B50FC2B7EC73CCD00B44931AF14087FC0 +4220896E8455DF9BFCB4627A4C8D20B39709D33BA13BAC36D10086200307227771B0B9D8CEE7 +D97E71E385B831BC569292EEAB5005D4503E888246602926211D5D6F5147BD8B86FE1F4E511E +5939E9BFFFE810F076D007BB8124DBBEA963687ED27EDE6E13B33755C74658F4A61342C72AB5 +941A78218B6FE9462B1B10CD344418E555F69EFD444C7A0475E54D3DB5B9D5A0495CD68B5536 +0F5B88F48073CEF00DC1D05E6909A99A2485E05950EA774A82ABD057408364E5E3F0328F6D95 +099067CE01163B840ED20BC47A520F52CFC22D58F3E12472F435C8044594DBBF7A6476C5F79F +24E93BA8C0E92F4551DDF8447E2850D4AA27F68D1C8D1B008D58F5D6034818F1127D06BD44BA +1C7DE4E9765E313761BF99138B75A63AB96C5B85D485A3C05FEF66A10EEEF9656791A483864E +378F8CB2B83F7F72D4A8D94C52DA1AC210CE97E95E096CD961B39E8897BFB1AF682B45500412 +0E54478BA58A3C874E6015876B59B09734DB75826CC7C4412A77440762F8069D2A39560351F9 +EFCA2337357F93DB982CE2A651FA329AF40598E400661E4A67763ABCC7B057764FDA98A9A9C8 +47FD8B4460B3CD4598DFB32EAD9018E022AE71898004BC4B47D045D87931470B29076C0C2703 +52513FFF7B98DC6FAADD2829DAAB1D76C3A08F52C69B0420754CD207C3121232413553812932 +B6F6CBBDAAB9F64E2F5A5FA38FEB98E71AAAB01D07CAEE9B9C9171F4AFFE39BBC306713AF6E9 +692D5C7235BA975B8DA1116DD1AC3047A4642A676E8D06065CE89F1892B22DCC2989E240BEBF +7B9A392DD9C3130CC51F512225D425D1E1E7C4EDB035676F1A80DD965B0EBCA28EC746599445 +690BE5AD95DBB484E0BAD6D4A21609AC2AF79ABC77A6C2184CD0F6219BAADE0B2261FEFEDAE5 +2A77ABEED3CBC7E72383529B40926057CFE81489C31C2DE72A9AB21D16B7DAB917759F8F0F0B +7B2C0BF95321A2277232ED51CF1D1172F10B9917CD600D741CB388BF7B7CA1270109A6084901 +C5FA4EE47C7CB6F5021BAAD41674E6789492444655E90166E2EB6E8086055B29ED0A1F18C567 +CD1BE1318E803D0B921488163F58420414CD43093950CB00B857DCF98BDBB0BFB44F079C1969 +6539B4CF87444864931DEF7419B25E0B504F0438A5CFC607CA99D5496D19FFAB15169826149E +6607E9903794670F712E8796575186FE02F29A08B5EACD81DF8F4C89A356B84FC7F6CDB3BB1C +A5AC347A6EC98D39C8DCD7109786307880534C079423D7781303F83CDB8A8F478E039978BF7C +6013E2C4139D83C8EB13196D38933C4F24644D2B97918B7CAB5BAD1662871D48375F9CCF2074 +46768353B4365D48E8D37CFCFC66A3D000A7C470B9CEFE9618A479FCEB843CC3033E22024047 +420CE3FC5D3361DE5D07FC8A4301BD510B39300A2B5274BB65DB46B835C0C44A3802899FA186 +DC4DBDD38A5ABF26D406BDF1FF98FD955DF11A56E7E782DC26166413F49A334BA994D7BCF5E8 +06BF7069FF9C54A0E28F5FC460E200BA9F74226589FE6BC6D94AB567BABFD952ABE3AAD1768E +823251F62D9A2C1D8F193B5A40EB0F274C2BD8D09C5E192C22ADAF5AE074E085205665F38808 +240EA588DE76A39AEB0C4E1C7F73A1FA891ACB7C7DD382A9D3005AEC80FF2E6C8E3C2A6E3A67 +3A2C8D6960586110E460BBA74544401A2B6D4520629F057974D321391BB13066F1E81989413F +E645038775F07C7F3CA12556ED5ECFB2B1A647A314D495EA2F7E24B879FFD5ECE2174956751C +D83619BB3539280F823947AF18C0AB3EE7A0EED871B8E0505026167A6E5091E9CF4C812CD918 +0F26329A28C472CCCBC55FF7E8D10A970E6074067A4E7217621409AF2D915E7E07EBBB793A0B +71577B645D6A5E1C12E97AF2F5824925F6BFC2EC862764539C7F948235157C0FAB8B7A5F281D +8D9E4577450BF9AECA6E5004DFB7AAE997DC7244DB20A0513724BCD0A15A803F27F63EA6EA75 +77F2590E421948ECE86A35089E314997C0EDFDB09882CA50172117812E34B81968AF3FD75F55 +DC8F128EE6E090D52C8CCF6B91583B44877302449F9D8EDACC301337E7B41CEF93763CCCF4D0 +0C339C22E46AAD558403F5B0DC943B45CDEF12176F44AA009DC1FB985090CA16EC6B7011F264 +565101BB0078C6CF3E8EFE35CC07B4CD3B066CAF719A3E0E375B143619719D30FD2CDE0AE354 +58AC66ADD10BBF9178B93452020A4DEE41A0CE54697B2F3A11FC5B669E69BEAE2968617E8B75 +58F049FE92731E204F6E4EAFCB7722C28691965363AD5E45B5CC9B860570FF3004DDACCDC7E2 +117A55A2B789BE39AA60318246EBA230F0AD42FEE21CB6EA36AC1671A6C648DA350ED78BDE08 +912EE8ADEC5EA08822DB4E554A30122F74A7A843E261B0825CA9D80DBB45E53F2DD2A6ABA262 +75F14814550A5CBD74AE0ED860F7B380C9459CB6BE57CF752BB74646CD7295C057E8D9295C84 +E02D81D70CEF320DADC361309B09C837727D68B505B17659C11E3ED9E435D1BA5A33371E8531 +EA43E43BBF061D1640BDA8056447A31FE42B40AE9CD859F994FFBACDA1CA49B8E4FE5A967BA2 +626B289CBC4A5DAC4715A33618DE99F917E1A8D14AF2AA7778DB9A10CAE8B336F1E0921C36B4 +6E7B6F7AEEFF0711265C862100F631794FC36A43B2E8262E222B48E4AB6671825A40384B9FEB +A314B08455C448ED57C38BA61AD460495F2E3FE4F41D7C0D91AA37839C7E3AF784AC4D24CC09 +1E559FC68810E8A90F870D69716596324AFB111930D3A0741358D2963EE554DDE823B7320A18 +C5530A1BE5182B4F95183B941B577C2B8192173FF64425256F83560DECE4FA3ED219C78A4985 +FAF876B023D0528557C49A579493EF868D2A0DAE5B36939D755E1F7B9906719551F5D6AAED9C +E049C3B5F742BB5D8422A1A42FD3B30CB1421051D2591B6454431462397B6A68A019414A29B3 +4F0DF321CFBBA51021C6156865699B22128042946DFA8C013DD071C8ED37418CED3D591E01CE +F148C5DDB045F77955BC8AD5ACBF63B1A299F2EB8700B57D5C6142828E73937E4CDECBDB60A3 +2E2215C59E566F5B0F489D6A09B15662B395DE4C2F0803A9BA67A620C105B42CC663154659C0 +46D5E2437BFB015B507CF1D867678A7F4674378113F6445E6A2B2125287D9B899C534A533C24 +75B6A729D536AC5FEC2823D9C6BF68E2BF3EF00629A6F70A18A6365A5D5D66B6C9285B1A9B4D +BACACB1C3CCD416C912E51395D20EB10D19D2E9604B2B3824799C3B9B497C541AA060569770B +884E002704BF3A4BDCA4F196A409CBFEA205E7A1E2DD427718E363B8B69B6C7B5EA4C10ADAE4 +D76B99B956A7D74AFA5980D93413ABE28872294537D56A9048DA815708110F938C80363E4CB4 +77238CA42DED56B73A76FF5CB1D66B41EE52ABF1980471AEE24FDC29B461B0A5CC1FBE19790F +80EF27135BF97EB7259F1A711D71328599891DDA9B35F7A9EBDF4A3331E5E27332E5E230434D +41DB5E15F62FB01888015E061BC2AAE3331F986C8A39BA1CD07010A56C643BDF2C79C606D3D1 +70DFB8195223317C5830FE354AB1931170D999E9ED7D5D4891E8A585DDC32ECE5DA975B48BDB +A637CC65EF1C0B0A94EE29B8C958D0A0348A00B0C7FD885FC1ADEB1459AA4B9702471079052B +E84BB3B09DA0DC990563F2B770B64B911B452D3A7BC88160A4BCE0E51045B5470E1F57C415E7 +40F46A50E3AED54DEEE670BDE0278BC36BEBF80C3B0D36FAA9B5041F9FB826C1C59EBDB41252 +D2528318609E449A08FDDB241769B0618CAD628C778929638C7A1A9CC88E38FE6A65FF0D10F7 +DBFFCFE5B0E293E87D957A65AC50312971623C34605CAF2082D1443A5B1A32B5A1095176B13E +B07068E096728D1C1DCF1B6CF406F81DBF0059310AF3C6B02A6820AC028BAAC71A72D8BAF02B +8C2A15ED620948B5656ED0321105031D98544EA8EC24AF18102C2440EFB9239E3DB672268FF5 +2960692F23CB278DBE285E673273827BD3A1F4801571D47B397BA6A7E8904A544EDD5E4C7849 +1DB2A8E8623D9E329CD009333ACDBAA19A59BA7046E2EBB5D1FFD37399203AC02FB28EDD3A6D +70A05E8C61558AA2C9808E581A5E74984E3F93A98F987BEF2A746D4848B2BDDE68A2FCFBA016 +851AB784034217616FEC41DA035787BC3CACA5B7A962496E5B1D0C32785B98B3BF52D599D809 +5DB74902154F8C78A22A9330ED6D7744FED8F41946DADA892FBEA11CB74FE1DB3446D7E41297 +2BD00CCEAD384D2BD94E6956C1DAC6A4EF93DFF118E51D8510237C367C41674359705D20D906 +FC7C351F958EAC307F0B4019E9DD99FF093223946769DE3F96001D4425A17EFEDC1457282FC6 +E3080FAF006A789908A0ABAC6A3759B95F05C9EBA2B0FD127AE098C702594F82FB1BFEA60834 +21E62DEA2FE771509991D0D869EAFCFE160E8E54EC2B75961172C54C878042BCC298C1B52CE9 +3FA93AEBB4168C9CFA456894748EF379ECEE26C06FF1824EE588A28EB02919CFBC2E47FD827B +4781DADE43511DC2888799A46E0C935C223F0B7DC700ADD76474F70834A5D269D350A2DCDB25 +8EB8BAD71AC98EAF09A32B3FA0F8B7DA10BF7FB292A0CEC93224B070231C6557EBC612072E87 +FBEF1ADBCE20364AA2CA2F281FB981846FACFD187E9B3CDA1E96A431E8476018D620625C1446 +3CBC03F23C903BF9170BD5A98516C3EC474E7E08F169A5EA07208043B0327637ADEF4BE12069 +CD7A6E502CC439671716EC8590E487E703E958CFF55317F4855154534394D2452C53395F6FB1 +82118E3218DE9902706C6D01B1F5C149B1042E9CE966690C88B8E3AAFE1811D6477BB2888016 +8D11B11DC8EEF8F069B1E946AE61B282B753BEF0D10650E74AE2FB187B1062511A6C509F6E99 +B36ED623A9FE68AD89381D99F0F37D3A0F4CBDEA963B3FC14B8D2004835FCCA46B6D043169CE +414E9EB4088E213C10DC81D9A35D1E9CEC0D9A189EA0A43EA84665D9BD3566D097EFA5B238A6 +2825DAB2A35E6B2B6F8992BF86463AEF4EC625EB69CBDF54AB17EEC2184A1A5712FEC8C987FC +9CA94B75072A902A24DAE259D98BE8D361BD911AA648F6FE6DAB900C4E369484A4D18B60F4B0 +8A2AE9CC9742F43168391DF6BFFDB71440D54F10504B85C0335235FE866163F32FAD49FF7205 +5D6C9DF39433E3EC5EFE1BB5C943A23BC819803DBB75EB89B7A4FE11E896D65B06FA5C542706 +B3D213A512D95453D86C7303F79DD4C6B00420434B1B645504FA298C440255B9F7326DB39C93 +83B5F419D6272177D8B8EB15CAFE7846B321415ED8E9F8F72175E05A8113145A8D4E1358CD7E +1B2A183D1490BDAB26AF2B3CBAC7F1429C4FE969DEE1CED6617643876E2B8B9AFEB9E2A45999 +C825722325F3A31F6980238828819897AAE017CA8FD4FA662AB4E3A1E73B54DEA8C73365792D +110B8FAE5AC458238872BEF671339F900E866F61F5E298455D234BE1A2DD07CDFB74F2171B08 +11CBB2E028367A3D805D2BFD111F4FC8826455EB41873B48C3D8FC019184A5F8E6E376CB1709 +A9BFDA9E182327C6373C5DD36B25C9A82B74CD63F0792C049B8A24DE766F20C3EEEC57F7216D +5F4DFE6DEE9277508B9CCEC61E0E494DBA062ECA2A494FF9BF74D0EA7A055ED0D0E7A0D64067 +1CACCF934D07CF80DB8FF07901BDC413E95EA8B6DD3A40DD75C857D91C49630C097E5182EA3E +D101B630EC7F4597C4D901A6E52581FF98A7B816ACA14A443D54A8435BF7A24CB3B34A365E8C +70EB6D01EA839C1E871E2EDEE45B6D14EE77A07C589A8607B0E440FA812F13984F01F5699EBB +A174B07637B7F57B8A6F71BD82CC4D28CCADC3C8395C473B36E111D6688F2DCD425EA2473D72 +FBFFD14890D0EDAB1727CA74CC80D00369F4A0D0F247234D283E205C14F80D56E41EC867F2A3 +4EB79C38F7365159736D17DEF8710E421837335CBB7627246F7D416BDC73B56BCEC6E86D5C40 +E5813D8ED159159DFAA0283316CAA8C6D54527A6CA64A9A7AFA9853D5A86AE128906F7C735DB +90ED0EA84C9A86847958A71E1D44B5A7F8A47554C1E9AD0667D60A709C5D6123A1FD79E10080 +6613015D80758293992F996E98ED2DE28546E90AD5A46405DDC56E9B29D199604C8EBF506747 +8034918FB76FC2FA11CE827C96B6386864034D1A6283AE764DBAF079F44F545736AD44710AE5 +A9E714E01219DF30CA946467FC69BA53E146FD3DD9D9D87C27B842BB0F8192EB92C812F443FB +6ABD88E6B8124655C9330DD62421F13787B72FB41B4602E06157DA7F63916D44198544AD6B2D +9482D18131D4F436415F4563D3F7A802A426287DFAA49552D6212E92FFDA1A00EC1987D64A44 +4A4836BF6B82389093CFC82D582A570E7850B87F26B2A9D4C01AA8FC7BBAD0BF39D312F5B0EA +BBA60027214EE07511EBA25031A328EF4DF222A3F8DDB1B44331233048FCE0623C7419EA0FB9 +781E1AB797E481B97C803A865FE6C164D3656E98345725DD3797433B178CB994F97098077761 +CB040A80D29C935971D1FA2FA7F8846EEC29CD2E3FE34B82373ED542A1AD741759404CC83304 +F17D2BA86C68C64A73A7666EDF6C22B169C56972FC2AF392EBB6EB322D34595F3A3E6DB94D42 +D25521DD4CDD65416A09B2EF33ED7BFE57CB04B07317883B63C22CEEEE886D0D521675065483 +FD36D8D312A4E5D379153CA3051F7073E040C72D05C56D5A707AEC7AFE9886515FEBCE61F309 +B90A2BA377B133ABC95641B4862E5BC9C29CB96D1282BCD72DCC55082D4A509B52C1F8D7D0F2 +73F50990CFEC7BAC8FBFF5AED6F12414369835402814D9B0BC5421EE57C5CEAA9738C1F18DDE +63ED0FC232AE40050C875A548D48512565A92983525959F2667A57053923FB4208E1EA0BB062 +A3F8CF6C311DA9A14AF2E653DFB14985D4E06B3C540A2FA0151CB775B2C864A87605312793D2 +85CA5C492A774D86F28BE2FE1373DDFFE877E1B316F22B0AA16B695382F328251507AE26F72E +31CD3C618CB5EE392A9EF28CAC27AE530C6A78EAB3DCBDB478981CC558F6FB2AD75197D0B011 +B7B6061CFFE8F3A0CEE334CED4C298FA0C46145F1753D1106DF98F0D1151267E7A1CD9677B61 +C1829C639B207BAE92CB11F022882E495E1D461A1FFA9FD3D5030379FCE3FE40BB4351E99C10 +DC00558A3DACDE5EC3FE4F9AAB3A0385C1A9F11AF6BC997C798A60FC5C465EFA7E97365514B7 +077038C5FFD7E478EBB9D183AD642A769EBB72B62B203EE621D6EFF781819366D2B89D61A3FE +BAAACC53D096D942E3400056603C9C47AA9D6753E1FBEF66AC7B69DD6DD64B5B071CF0EF23B4 +35109234CD63CBD30D643B9A2F59257CC8E71EDB1B6AB8633DBCA471DFF31E4D9C3938801AD1 +385EC97331814B14A6BC21C27423B137076358B18B9D8E67421F9AD4ACB85D8D0A30433D8EF4 +41385FFADA22AB559E4B86091679EF92FA6763131260BC3E791FA713256A370E02BCEBB9B2DE +DF308AB3C9773AE1E05950D88934516BDA8EC5D514079DBD923394B40A6A3945AE8AC61B4D2E +A0B0BEA67F3225EBB779FC156B50F7DCFAC16D1050920CD7245E62ACD7A4DC90B8AA9D201245 +19C3C65B5829885142D0E66296120C839B3B54A2ABED2E23E1C9A215AC887257D37EEC08E2A1 +69D44638C9F1177566AC57C5DF88FD8DE202E9FE0ED0CDF98485A24DAD30001BDB68FB097E58 +CE66EADC4020F94F185A852869F8E5A207295D22E8D1BD7903FA1CAB24B9DDFC1AF5EBE857D3 +7FF71B89AD208FCB5F17CABF755F66680DB88A9880F0A34965722A40D458BE2984EB136ECA5A +A0CDB07C132D046F46E5CE66EB80E65A16DB1015DD5EDF6C2EBA69956FB4A9CB3B3338B2D9CE +AF8412EA634A101D11A2DFDC01830B2D15ADAB3BAC6B54A1D1FF3158BF41B9A8B7A28A89649F +FA12AD001AA6D8D0CCC5324F23B1B481D05C69088A0ED638E177BDD9C91D082A511B201F3F6E +2D775E1499E1CB5B5C348E896EE455C7D0E74E859326D09F7BA15A497DAF374737BC04A71A62 +95E3780066BBD1740F8CF08E3A38FB03DBB4A7E8CEF97A294E9274068A3AF6FF244463C0DA21 +C7EB54B6B17500B9EA6C0E5D5DC18D86223268B337B7DC54EF656E227696FB1488C68FA5C340 +F745047D35E030164AB7A27BAE33FCC6194BF4352583D6B6CFD65259354A909CAAC1F876A00B +4D60994B9841785A1C9B7FAD7310C645871D9212395A72405DC68B7840F28FEC0F7E7A759086 +7F11D56365CEC69AD70F4D0A461493530786AF49F256B81A2068A6EEF35EF1AE5B2F63A11B5E +6FE71D1BD0E0AC09C5B4F3268A8831F3C5FF6E88D0C5B6B01EC06053FB5ED9BE52ACFF8F6A42 +4B85075F8A78A3CDA59EDE3DF7719DAADCD00B8B5C55EDBEFA123E4ADFA6012D88AD19AFE2E5 +D356B44AD356F39EE7F195DC6ED2EB550B8A1F66D4720DDBED6B73811C357D2F698E84BC8E0C +67B4367E8E6A2D815FC69BD6814AC948F59A822BF3AF1C0A592AC1DEADD51F6D2D412E622C63 +851A6259EF81A133EF23E6FA5DFF10EE557AEE4B5A4FA7419264F16AD68DAB44D0A6735293C2 +5AC3FF6A73F4BFF1CD5123659ACC2B6CD1E1F2E1D1277027C382C9573BB976427205CB828550 +647485EF45B6BCE4DA2B3CC5AF7B3A065E597926E71BE74D3493E5070F171FD6ED567BD3F7C8 +CDCE8AE75D39E4CAEB1AC1A9DAFF068B9A43DC1F1B603642A7FB1AEB0C8B9FA79D70B355484F +358671987BA92848BD435478DB919CA991FFAF59B264A2C96C863B7488AD0946109D894B163D +BFB9442339B4803BF4A57A52545484BECBE429E700F0F15E77B3FF03CA99173506D57998A8B2 +B4BEDCE584AE7A062795FC64601093C08655D70D6B99E618BE7A6582380A1974F7F6EA24BFB1 +ADB6E11A0CE753B2410755511D0F496BBAAF6EB132CFB2D1999DD0B77D543D521DDD0ABEE2CB +384A94A618E7885279B850D939010F0CEEDDE18FEFE1736319C183D30D0EF7391C4EF8662C00 +43658302E3D8D394646953EE6C07DB3A7BB8C42E89420ADE8FF135024A347FFBBD606EE30719 +E8B5FCBD64F6AAE1B03D8A82D7E72CAA7E0411FC84A9E76E909C106FFC54EFC06F8AA423D743 +55F91B26D91113517E59A73DEACB2BF6C45F1D04079DAB48684F5DAD61612A4064B06A5894AB +3073B72CCBFC22B0C470D9C1FF6670FACC49553B420C4699E9279F01BA58C31953FF680633BF +14D077A9F7ED61ED11F4D4C211E1FB2EE5BA1B9514B9B9B63C5B82999C56A54234D5E13208C6 +89333378012FF9A1B3827C2DEB447EAC0FA4939A551F5E7C8DA8C670A2833CC6DCE4921A8192 +25B410FC3BD398E883A2DF072109E40429666F442C46729932D14B326563F9C48163F9C869CB +6B2CC51895DD96123BB4B986094B89166FCBB13203D1340436BDDD8D6042ED409850F155B777 +AB69EA80976D8A32582996D1F4946B081E73D1099B910F6E5B4792F73DB343C41C41653F86E0 +80B835110E2AD4AF01E49B491F685F38BD1613D45DCBF8DB9049D41EBF461F8680E6DFC3D356 +39A1066CC43F7860719479B9B952E1CAB6E12CF09E330C43F7464B2A00600056E4C7838BFE01 +01BA31C70B3D93C7BE1540747919013C95514EEAB802840ECE2CB5895B686D337354A307173E +91C18077588B903C1569D7B1169F13CC5523A6093BA765180302C93FF67C3F9CC43C6D4588EC +996E91C808B44C62AD1D6B98F6AFECD7066C5A7239702C020B5A4AF1C0A28E745C0762327E13 +536498E38BA577B23FC20653443937ACE41F8E39B19A6C338E11DE01759F2659AB4A7371C99B +A6F7B1A830FE7664B47BEE8515EC2A5B14E82BA9AC2F84696B2205684239C90EFF4E83356712 +6E4113FDD929F2927A1BF75AB5BC45BB6ED5EF8D092553BAA20B92BA76BDEE3F691151689103 +1FE3F4F61697C822C66CA958481A6E4A13664030D28B4A5F4DCDE0002736D97DA222FCCF4C3B +C57E41415674F24F255DA721BCAE8D7C7C6D7852880C74D08EB23AF7E0625C6F48A70BE41F70 +4FEB7ED9BD073F5E8DAC6910F02304D98343FC5804F788566265616338BA55426C1752666D3D +EEB203D4F8C451D5D85C24DE4106073E2F96F443B5C7C83DE9D258DAD0DF629292167E490A6B +43081D099EDF50ACAD7B96AD421340C297A0D6C6BEF6615089F19A0346CC764D85249919D34F +EC411FA52D98A6BDB5D5E1F54521B42286509BE275565880EE90D5B70836A24F519AF03838C0 +061423CA45D506E06117303CAED43DA668BA9F47A72D2A60847FF0B8933B6F257BB5A947BD81 +329C8508251BA1DCC6344B5A58FB25F2B7A20B4155F1D14141DB80663365182075C6B1F3D419 +9BA52FCF4D3DA93CDBBCE2A06AB83A4ECDF636A1DF7B4E8F4AB90012B84AC44A56E6B6347703 +EDE66E6557E7BD72F417AF52A97ED38EB3EA6CFE0697B4E2BF71F2DBA26458F4B345CDD86E91 +AAF536870B01B4658DE292FA62D0D4AB1B1FFFB4936912019378F03BAE6E95226B9ED108C148 +0176D236059D0F8E87B6D9692D1AE9A285CF1A158D13F55A2A5872AE78267F006D8002455A03 +E7E2302246B6E6D6164FFCD21F6424111209267E0EC13E5C08E0B266885116A10AB8242C1746 +15F16DAE86571C1CF483D24F4B9B980CBC96C367EA1CE8F9C22D46708A7F522ADD6FCB19A991 +CAC5A63638619FFDA45687E5B93312BA441D5249FD29DF74330E081C93BAA47A9AB8D08B6A26 +9544DE0EDDA5DF43FD85386A371A2C91106C656E554DF80A7C57FC4D0B40C71EDDC66B76FAA8 +EA31304659E3B9AE3424A92FBECB1DE1CCBA69ABE8CE9A54AED8B754AD4939B499746DA25202 +8735A6A40CADA547A013E8DEB3412AA570741B6FC667AED6F87D225F82A24FF47EFC3ECB4175 +E7D38871E4425198FDDF3E9754E66E4149B6013BC42344D03F8A82185F484CF91F53BA18CC1A +FA520391948A0883BF58156867998F44D355CAE87857AA89E911D0AE6C2943EB1FEAFDF7812E +7B36FB4F97CEF78975C26A585F5115D3A843587FC3AEB46F5AB6895242DF2DF15BD1D153EFD6 +99E4E9ACCF8CBBAF51B7DD2D7615A06A6F866F887C0CD5E7888663D02E4BEE9BFCCD56800B1C +F6DBA13B24AA58EC578D6E998E53DFAC37EA800B9EDB741EEFE201895DD0A3D4A0A1FC672C70 +DAAF6AC54483E7E1A1E52187EB83F59D984D4D3C890B35972C317D2B269A9EF9E2CDD7A1CF78 +E88207183522D3C760C154F02AB5C56687E1F860E07BD7E438C233EA5DC787B0FC888FDB5249 +BF19EC00430BC11684A615CAEDB283BAB8F9B63BF640059DE8D0081E689A76C3823DF7DB6A72 +73C3CFC2ED589AC4089148B5382EEE5C792877DA2A2BB06A86A88F9F480FE79DD930033C7CE5 +61041B0D2BDA29915EF827118D80ACE7272B44D2ABBE06B0661D4F9B2DC474EA8120E707856F +6D8D3614D5398D59243883D708563A731543AD05F02C6F1C2FD5739109CBACFD590C87A906FB +C4531FB8E82828FB8D41ECCDFFFF0920F3982D46CF0F02EF5733DF6088A9F5C7E435E51FE923 +C078F4D9BBEFC195FC586B48E709F3CF293493DCE0A461EED5B4E9229625FC8212E847522E39 +0B49C7797E5ECFCEA95371B5AC27796F54A4210CD859969CBA453BF5F0967B82CDBD6BC41789 +3449A9D24C13B677F3F416DA649E5DC68B29BAAC2568B8B702F3BAC8FC6992D7C909EE5332C9 +6E72E462255CC731931240630EF31504F5E7EE000C1D3E48C8F1CB78ACBC6AD3CDC68831D5F0 +9A4EB30B0FA54A7F5E9B7AB65C420559F1FD81A9B4F46595DF026A379C28F58BFC06EA3F0AC1 +94FDE6A8F1AB8EF99FDC00023F4A051819AF3CE219E3BF7A615991CCFA347FF5D1BD64369335 +663955B04AB14E71209E70CD3102E22AE797D6F8DC00FACC9C743357117D0A2A97CCFC804C22 +CDEBDD1AC312879FC3EDF78F0E09B474D371C4FA3D57BE2196D0B9644E8907687BA73ACC3026 +E30AC702F616A572A98E7AA306356748CE302B2F2DFA39E402EB8AC9B741071BE75C32FAD5C5 +FF333B2B451292AEE31D4266B69858C12B8E67B9FAFC21690BAFC5F736F63D9758BB60F89412 +92175ECD507DBC20C7AC37A6D9E49F8119FF6356B6942DCA2C35DB77317299A3AED6196D184C +DCC8997F51C5267DCD4E62EF1DF297FBE318A4A09B4FB096F9C9F1C3F55343F34867A6172E98 +22AA5EF40C3433C79665B67B23CF0BC2B7274BD2FB4538202127A00716FEA4B7347F0E686FBE +035ED85730979AF0C23E2980E13BCC7CA0B2A48291F051DB2AD3923ADA6CBAB1AC6122FB565C +92EC51A02F5E4DFEF03E418CA0DA6E541B2923427EA4A8BE34C28425727B47616C3A29A30846 +454C6518748C279B0776B5B72D881889E24AD830601CAD5D18D8F2C376E5166FCBAA6DCB2DE6 +26910CF4392B1B32E763AB843F277947B74846195E0045949F9C26FA638F92401CD6F00657FC +3A9AA61D91C627F1CDA04A3680FC5CF5C092F9BA91B5E3D4AEE72989344688AC75E71BE2972B +E84DCAEB0834B89274B67E5A4EDAD8A5189FBDC9D548C350C5B187C3AC60A773958EC377171E +4FE54BB6F90585C75CD51E145DA5A30D276B1729570524A58699ED6A6CE52B7FFF9A2D440263 +4EBAD4E82B4F3A29530DD99674437BA253C37661E794988CA289BD724D174D2C286DED6A8C24 +F6F6D9427942EB149700FABE7E4895FD32649834CCAD24F8C5765D97583B050D352226C2171E +033CC03054CBC4807CE2078236088D6D0EF6B766A09D0A33B64E6F64A06C7AF5F0679BF43926 +1EF53D848BF02C4A0CB46ABFB9B73D6966289440529CF73498968E0596870EF8CA65BC697CC9 +E02A3AE1D46F6A8A2F7665B20F1D26F2AF297FE0D23884B575D19F3DAAC8C59D52D0A9F82DEE +A716B7681DC2857859901570F600FAF4FBADABB9982F50A1212222E3FF1BDFB08259DCD32C02 +54E7E890AA2A7913BFD0CA8F64E7A57EF9DD1F55C8D157D3C732BB32AAE498B365A79A7CB1A3 +EC9583E33CDA5C326394239C11780C7341807CE4A8CC4516CBE0D5F209B45E6039971F602A5A +F82D714A52C65F71C4D2FDFCF9DD771FAA5DD0BE0EF91239E3AB67E6B576FED4C3E59473D96C +782DE21C55E8EE3B50B336435F1321BBD57FD11FC1066E5EEC922F4D8E706EA176374942F461 +48229A3C900FA32AE6FB89978A564C7E091745571F1FF324DBDA03C13B61BFEBE8C962700B35 +E97F6074AFEE06F8B6AA4E39BFE7C7C479405A99EB960F202B9DDFDA7D823EC418EE378FF6CC +C776FC83C70FCAA4CE6626914CF700694A9ADBD2675F922700B5BEA421039DDD47125FC70BDA +9815D8CE391D68FFE8CF6EBEF1AD4269FF389603B7EC4C3017DD14B4C8598320B783EDE35742 +9267479BDD236E019990A9C1CA406DF3CA255E785081EF37096EE385D851626ECCAE4D327712 +F7EDCEC8EFEA7F64DF7B03B8526F1412F1A52F19C67696280FAF3E3241D2A98C925E2D6C5A5D +9B47056C04676A05ED4518A9C540BF9D91EE7112ABA98312DA5AF4EF9E29EB481596C16ACA1B +94BFB1B919EAC9B8C6D080B18A35627069B9FBF27C950B1F579395C299ED897BE0F474E4F44C +655636B1F41340EB97BAA2AA01ECBE244A9EEFBB8A1874B302066DE05001C060E9009692054A +AB5691CF8A11B46FD371C4043906A5A6BF7E9C59B1C97E104F0F8085EABE6E15AA475C6532B0 +609D7090011D27AB62F07A32D87EE47EEA5746F6956A1053A5DEBA698808937C1512212CBF0C +CD61D2DAE1923EB2258986102639D53D50617F18B258F687CC49991070857DCAC52384AD824F +397EFE8D59B756662B992F6B1A57179BF8D46BD1BEE301D809BDC5216280187059B0BBCD61EF +195627EF106DC704F606DD30E3C62F1D6F6927FADA6DC9F98ED6896CDFB0E40987832F9D370C +CCAD96DD288E8A5E93C184B05BA7102F412CBFAF5370C9FF39487141E0D072B0EFB4B25F4D39 +5B8E7DF708322C9B8035F70ECA9665B5A99E9985F160F37DD736A391069936EA60685DBE48A4 +63CB41F1AAAD947717F9F1CA7A3F45971DD44CA0316E2917EA63D0A6B52013D33451E1C5D9B5 +0AF44A0D955C8A134296AF8F7C46A6C5C47D661E49D01437D73203A46A1A70526349F92260EA +4EC0FAA409C3745F7FDC5776552094FF236945170CA00015260CCF6F304FF442F40AF64CB7A6 +A136F6D5673AD8299183A7502E67FF28D662E03727F14802BF2D4AD2CC3BB4BB6CAD35680ED3 +1D397864E753D3BAD8E8AA300CDB123236DA4241E3ACE1C0973F139F9207176CBD7FAADA7919 +F7B9501577EBE7C0F00BE621A0CA47A5F0A21C1A3A031725434DC5D43E4BC180F59AF3C19F35 +3C89E0FE73AEF8B2751AFB32584990DDEE825BCDF126DBD9AC28DD7EB6C73742996697FEBE51 +3D63AF87C2E5A32464DE9AA6112C0971A8D225A4DF34F044AD0582E2096762964728F4C85EEB +7E541BF7D4BBFE7E9A8751D1005486B47DD6CBA30F83A87E71AE382D3D2F4BF872C9B562B9F3 +DD7081B9BD1364DDA8739F1E99B2F8DD5B651B8865D5657A49CA781DA28C3F4DFF2702986303 +096E62D422988F44F2EDE442433C7453EDAE48BE0AA91A900A3C6EBC23CB0A19BC2B9AEF1A2C +E3A0B66A83136B00106FEC3C18148DB61211E0D0AE7DCA51A044294AAFF02DFD433AC60EACE8 +0C946DDE672037231C4606B446D900411FF88FEDAD541E31DD0E9215334E76C71F0324BC8521 +7E407A14CC1FD99AEDDC4ADE3AF428769EF4084C77443B6621E98F06C54C43FCF304FBFC015E +6E449CAE9536960C7A5EFC12BA93B576C6389507630D112DEB0C163053EFD965BA3AF9470378 +0B30B463EC09DB370000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 + +cleartomark +{restore}if + + +%%EndFont +%%BeginFont: CMMI9 +%!PS-AdobeFont-1.0: CMMI9 003.002 +%%Title: CMMI9 +%Version: 003.002 +%%CreationDate: Mon Jul 13 16:17:00 2009 +%%Creator: David M. Jones +%Copyright: Copyright (c) 1997, 2009 American Mathematical Society +%Copyright: (), with Reserved Font Name CMMI9. +% This Font Software is licensed under the SIL Open Font License, Version 1.1. +% This license is in the accompanying file OFL.txt, and is also +% available with a FAQ at: http://scripts.sil.org/OFL. +%%EndComments + +FontDirectory/CMMI9 known{/CMMI9 findfont dup/UniqueID known{dup +/UniqueID get 5087384 eq exch/FontType get 1 eq and}{pop false}ifelse +{save true}{false}ifelse}{false}ifelse +11 dict begin +/FontType 1 def +/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def +/FontName /CMMI9 def +/FontBBox {-29 -250 1075 750 }readonly def +/UniqueID 5087384 def +/PaintType 0 def +/FontInfo 10 dict dup begin + /version (003.002) readonly def + /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMMI9.) readonly def + /FullName (CMMI9) readonly def + /FamilyName (Computer Modern) readonly def + /Weight (Medium) readonly def + /ItalicAngle -14.04 def + /isFixedPitch false def + /UnderlinePosition -100 def + /UnderlineThickness 50 def + /ascent 750 def +end readonly def +/Encoding 256 array + 0 1 255 { 1 index exch /.notdef put} for +dup 0 /Gamma put +dup 1 /Delta put +dup 2 /Theta put +dup 3 /Lambda put +dup 4 /Xi put +dup 5 /Pi put +dup 6 /Sigma put +dup 7 /Upsilon put +dup 8 /Phi put +dup 9 /Psi put +dup 10 /Omega put +dup 11 /alpha put +dup 12 /beta put +dup 13 /gamma put +dup 14 /delta put +dup 15 /epsilon1 put +dup 16 /zeta put +dup 17 /eta put +dup 18 /theta put +dup 19 /iota put +dup 20 /kappa put +dup 21 /lambda put +dup 22 /mu put +dup 23 /nu put +dup 24 /xi put +dup 25 /pi put +dup 26 /rho put +dup 27 /sigma put +dup 28 /tau put +dup 29 /upsilon put +dup 30 /phi put +dup 31 /chi put +dup 32 /psi put +dup 33 /omega put +dup 34 /epsilon put +dup 35 /theta1 put +dup 36 /pi1 put +dup 37 /rho1 put +dup 38 /sigma1 put +dup 39 /phi1 put +dup 40 /arrowlefttophalf put +dup 41 /arrowleftbothalf put +dup 42 /arrowrighttophalf put +dup 43 /arrowrightbothalf put +dup 44 /arrowhookleft put +dup 45 /arrowhookright put +dup 46 /triangleright put +dup 47 /triangleleft put +dup 48 /zerooldstyle put +dup 49 /oneoldstyle put +dup 50 /twooldstyle put +dup 51 /threeoldstyle put +dup 52 /fouroldstyle put +dup 53 /fiveoldstyle put +dup 54 /sixoldstyle put +dup 55 /sevenoldstyle put +dup 56 /eightoldstyle put +dup 57 /nineoldstyle put +dup 58 /period put +dup 59 /comma put +dup 60 /less put +dup 61 /slash put +dup 62 /greater put +dup 63 /star put +dup 64 /partialdiff put +dup 65 /A put +dup 66 /B put +dup 67 /C put +dup 68 /D put +dup 69 /E put +dup 70 /F put +dup 71 /G put +dup 72 /H put +dup 73 /I put +dup 74 /J put +dup 75 /K put +dup 76 /L put +dup 77 /M put +dup 78 /N put +dup 79 /O put +dup 80 /P put +dup 81 /Q put +dup 82 /R put +dup 83 /S put +dup 84 /T put +dup 85 /U put +dup 86 /V put +dup 87 /W put +dup 88 /X put +dup 89 /Y put +dup 90 /Z put +dup 91 /flat put +dup 92 /natural put +dup 93 /sharp put +dup 94 /slurbelow put +dup 95 /slurabove put +dup 96 /lscript put +dup 97 /a put +dup 98 /b put +dup 99 /c put +dup 100 /d put +dup 101 /e put +dup 102 /f put +dup 103 /g put +dup 104 /h put +dup 105 /i put +dup 106 /j put +dup 107 /k put +dup 108 /l put +dup 109 /m put +dup 110 /n put +dup 111 /o put +dup 112 /p put +dup 113 /q put +dup 114 /r put +dup 115 /s put +dup 116 /t put +dup 117 /u put +dup 118 /v put +dup 119 /w put +dup 120 /x put +dup 121 /y put +dup 122 /z put +dup 123 /dotlessi put +dup 124 /dotlessj put +dup 125 /weierstrass put +dup 126 /vector put +dup 127 /tie put +dup 128 /psi put +dup 160 /space put +dup 161 /Gamma put +dup 162 /Delta put +dup 163 /Theta put +dup 164 /Lambda put +dup 165 /Xi put +dup 166 /Pi put +dup 167 /Sigma put +dup 168 /Upsilon put +dup 169 /Phi put +dup 170 /Psi put +dup 173 /Omega put +dup 174 /alpha put +dup 175 /beta put +dup 176 /gamma put +dup 177 /delta put +dup 178 /epsilon1 put +dup 179 /zeta put +dup 180 /eta put +dup 181 /theta put +dup 182 /iota put +dup 183 /kappa put +dup 184 /lambda put +dup 185 /mu put +dup 186 /nu put +dup 187 /xi put +dup 188 /pi put +dup 189 /rho put +dup 190 /sigma put +dup 191 /tau put +dup 192 /upsilon put +dup 193 /phi put +dup 194 /chi put +dup 195 /psi put +dup 196 /tie put +readonly def +currentdict end +currentfile eexec + +D9D66F633B846AB284BCF8B0411B772DE5CE3C05EF98F858322DCEA45E0874C545D25FE19253 +9D9CDA4BAA46D9C431465E6ABF4E4271F89EDED7F37BE4B31FB47934F62D1F46E8671F6290D6 +FFF601D4937BF71C22D60FB800A15796421E3AA772C500501D8B10C0093F6467C553250F7C27 +B2C3D893772614A846374A85BC4EBEC0B0A89C4C161C3956ECE25274B962C854E535F418279F +E26D8F83E38C5C89974E9A224B3CBEF90A9277AF10E0C7CAC8DC11C41DC18B814A7682E5F024 +867411453BC81C443407AF41AF8A831A85A700CFC65E2181BCBFBD07FC5A8862A8DB7E2B90C1 +6137614CDAFB584A32E50C0935109679E31306B8BDD29F1756946A677A7C2D9BA6FAB9B20A42 +4AA0E6F4BA64C2801C2FB5A1156CBEED0ACB95F697B8BC2A6E6AA7EB1F9FD8E3C9B1A16697EE +1F0E7400421A7765AB218FC837A4936582DC6B2C877A7DA84A81E6126EE96DB25C17A207D302 +0A045DCDAA064360DFFCE3CD50E21ED239D2A6450D04F879A26443ADEB6A20ACC50498987647 +6C7D1A7491564FEA1F4CC2C8C8FDF666DB537F315AE1886C73CB5B00E67E7B398A6C018E540E +AEE98BB8136C4F044EDD63C33431D2CF9740F051DF365A4045D9D8780B70C7991D86712C6A54 +C43144760BEDA30B65EEB62F4488085D588461ACB61EF279C769AB1E279D4E3C1B5B603DEABF +614877BF02ABF3D6ACC95D45DE461DDF0E6499B2C97A7445434613DF91A4122CE866B12A0682 +F084689B93509E745369155DB405B77E4E7EE6876786F4DDC1CB9B24029D3F62307B21766C9D +B626B2EE30472EC65B510C30D845DDD6F48CAE602652865A851952AD5FB02811E995D59EE6A0 +DB78413F753720F5FFF2827CCD54CABA15A00C030F6D0D29057854D59E56E15C46C7B7E400B6 +A615761BA3E42512E6A92EE2A488D8B2882A67745B493B95AA209FB8CE1AA71F922528CAE9AE +E742D63D152D1EB218CEAD8F15AF8B3096999822B9DEC1C22806C0A5BCD2B6E332C25932B026 +A71576AE9011209CBF271AB0A7FE0EA221118BE2D5E79E1DD1FDA220A45A4EB2A47BEBD51359 +E9FFF1E10AF42DAC7C8DE617567889ABC4E0229C3786B9DF756EC7ADFEDAE7D3578E053122A9 +AC544120F492AFF46E7362EF65C820B3CF8D6C977FFF78EB46428B437046C000899DE81A2374 +96066BEB835BD11B188E993FA9DDCADEEE9F92DCF0F7CDDE1612397F472FFF33863714B54797 +28F862B30D228E2891CB0C49D149866D769577E796C9A61372D005BB2D597E77E708CBEA4339 +B478E0660C6E34DE1ABCF58C3D4F70BA57D8702D1258CE15598958D6789CBA279CE314A23B52 +29255644FEF1B5C0F086DE549CBDEF6966A21FFF0132781778E0A9ED75979EB2C94F01F8CDB0 +AE1B76644DF5B75701FA2AEFB02EE97723CE0202F5F303E54908815C83D0BC00144E9C0496A1 +1B9B899413CC07C63543A71B9247F5ECBEC56B001C97748DF931379EDF6306EE147731B63181 +280089DEE9E06DB84150985071F9D2FC61322532A6FF4761037AB3EF5A667E138A3DEB8146AE +68B0D6BAAACA25A22E11F4817CBD1F611D8ADC60EFE2B755D418D0C153237C98C855523A0803 +F58D75EFFE3743C8257F4F8119F8F1C3098739B756DA6A18B7C62D4C00AB6F4BBFEB98D0A881 +CD99C75F1E6BAD865E8B4FB6D93DFFB319B62EA6BE6C32F35A2699B0B9C1674E58CEACB7094C +F94C8877110A8AAE9FCB7D5827CB5797FCAE161EE2598799962197346B98CA645BCAB917982E +E5B633B809A4039553EC733F64B7C4805D4B53640A45D34DDDC265C0794DDD7F0A8DF06EC1DF +698BE7063BBEF4BAE528FDF0BD070D1D25F6DA58E699F728C08726A70FA5AC09B6C22332CAE3 +2DE84DF67E2836C1C356832246EA900DA4ED3B09A4163362136092C95F700FE65CF9CC78F5D3 +4840427EFEA0F36257691C3E5A6DCE94436D5A749416541B18B09266E44C450EF73DADC01FC9 +598ECBC1B060AFBBCA6B3A3F3C3CF0FA78CDC14B2FEDA3BF6F124D9C79D8EA11570BED44B547 +71D9F8790E76EFF519C9B8B344CD2F1ECBBEF59D6B9B2318CDA5DC7844BAE1BC267B086EC373 +83AE7E46791DF0CACF4D40E0AF0D82B378AEC135C15142D2ABA6CBB8372FC79A4F4056925B00 +F3A805FE1D4ECF826124FC791633A92BA2232F07ADE9E7590E747D32191FF4AE9178891E3D4D +2581CBF4D800C44784671BD68D8F92A1D455E7377529CF101608FAFA9391B061DA65231C5BF4 +BFF18BFCB32FF452010DFBC612AB28AC35BEE4CF6705079B70B72F9FD115C23CE65FC98F7CD8 +E65D8FAF547EF252B5DEBE7AD39B14FA2BECBFDBE7372D9EF715FE64608080EACFA61D2F3B41 +304DF1B85EA58A11A97DA6C42531F82F9F55C258A6497D61C44F65C93E0BB2B907F7EFDC51C5 +2FA7E0684E0FF914595E46583DCD148B645C59F6A6ABEF755911B8130485F4668CF2944DB36C +5EA3EAD2C1BAE8A9A70BBADE8497CED8C7967D788AABE51E9E3F2977C47DD36B764CBF39A031 +B9EA36AE3141F4EEDEA465439A2180E40C5DECE4AB47D58F4DDA99B90E1FFE42E04D04A6F0CD +86E8AF942CFDE487E8730F5C3AABF346A28E66EBFE37DF5D308CA49D44661206C924F315D7AE +6FA80E6347B0DCE6B44EA5C9D5B8201A2383EA3D2CCA7283108D8F029DFB9A589E904F7DFEDB +936121F5BC2D98FB4DD045E9CDA9C00BB05A4020D837DAE7777CC57E14EDC9313C11F67FB6B2 +84C3E9270F12956243E82C1BC32CB3329168874B47A6CB1D9D977F23D991140062843538F003 +F7E753FC2972C9F0C13BA2EB071B420F9C0288FBFC91ECBDC2A178A9F60BD754ABB2339B305A +7BE75FF53067C60DA9FCF8EEAAA61185A1D57C2854B01F4422AD85BFE13D80D03116F569EC03 +88C9C646E923BE432BABDABAE1CD6EF6B8ECA5B413AD572C1A6D21F7077E2CD1444B96E4A018 +FC363A8FAC06356571BD2AE106F0484CBEB58B9C2DF2BD78C4D1E9AEFC769C152C48CCB01CCA +1281B1CC468E32A65ED4B57A0931A9DA2F475E9ECC0DE9B7F7855CC5E6C1B910E89A02A4005B +47FA0F5B6278AEEEA2C9A5A3B7C956E06CBE3D9E95F11807E2041347A670DC26DA1DB1E9F527 +71F5FECF48330F62B89A3CA33646CC7E0CE9277D9A6AC1F7C99D6893CEEE3279E31C70A46E15 +1E568175187CCA674798F177660E1CD0D4A94B8457791A6481C58404FC6886A58BC7744A2D53 +E3A5220685C90A839D826BCBE2EAD5CBBF9063F4225D3F8CB508AF5EB36FF8BA45BA9E25BDAD +C7C36AB9ABDB95849327A42A8741345FF34037A14310A9C3E59665898B6DA50F19B3362F9F74 +3AF0903C252FE5221477305EAB91AA5A88F69022A6AC41023FBBC83728598BEAD373D52D5020 +B4D3B3D7AFD3D467E1970D9FC586270AA294227BB9320114A408020BF19AF877054EF01BE0E4 +5A3F9B610BE9E9D66C7405D4C94C527FEC6D02ECAEC103A1792063363868A432F90E463F5492 +9214BE179AA981DFA73ED155D2D60158E62A97A78F06046B39521D63F5CF2E7FA98B2D54E88E +F1BE3128DF3A48F6A276C574028222B931450307A1FF2AF8F4F6332A3A8D13182F8AC191BC0F +B6DC271908693D6C9A9ED6391BCB2F3CE8904D16D459591DB6D945863D6D0AFEEC50823A3643 +F6BD3C331506B5AAB0FB2AECD2463983638F1287A0015F7092BF6A302160D1FB42FEF1EF0F24 +F1CE41F382AFA798BB89207C5C555C6BA1F163CBF6787365BE6B825428088BAEF4C388D0BD4B +4E314F7D42C866CBD13DF78B1E314831A0C1D0FD9EEE6145CC67EE465B4E938C06FC532684D0 +7FACF838F8BE0DA4441C7815F8110AE54594DEAC362A2A4659ACA5D2C83A5E6D21A9A76D55BD +EB97C35CBB461331F19114366D63CA9E819DB4226B15F756E476F1254BA8E5FD5492EEA5EC04 +42DA91F835AB6CEA9A891BB20C397E7925E6730746B84120A7AB127CDAC121F452A20C2F4CF9 +B6043A4FCEA1EFD67134212ED7D455ED51868F43710FEFF9C26DDF5C456D1CFDE687E2BB94ED +4C40A9D65EB49454FD2C0A7FD702D5EA8A3A9080B37B53B567171C8FF1766EE8344E8FB59ADB +650624EE7AFA0874CBB7FCE8365C879B7A2D4DACB5B0034A502F7189F0AEB9F95FBF5A3F51AF +4EF72B228C42F7FA9BA127A53741DA6F21C46BF4E009B23B6344DDEBCFF882EF283651DF520C +2F4A2A91FB88DAE07D3B5EC3125B9B5446A0F37633FDD909B22B1792BF2B48F64BB7D35368C5 +032343028B8836005B02AC1CEDC35DA795243415C73F632CCF412261D9B2E6F6E2C7D586E497 +1BB0967D0506E8D44300E168ADDE77561F7371925A4F55C34DCBC21A87A2924411ACED4C8EC1 +B8468AEC6FCEAEAD10EFBC76F11609897ACC269F1E387C697B9611C845937F917295965EBC1B +E3FB6F8D07F5F7DCE243E60D05A0F818033E117F574D9218A9E9566689B7A8D72465487D1056 +02A6BCC66B4F7B8B1EA9193ACA0312478DE086C475827377D6EECF1C5ED09816AB82D05BFC74 +3EEBFA7660E916728761403FF1F9776E10BAB9C1D0BF5041DE5696314A460C5C3E018629D923 +891809B73773AA271D366883471993C7C5257452824252AF796C6D94562A508C3F61CF369CDE +2753ACA0E579E269FD06751D7D796CDB8AB52D09C752515D633323B3514B6A067749C8BEF033 +F692F7AAB37D0FB7DD1C1EB2C5B0C5A35A2B7C74B384DCDC467919E565E859CF454C964C865C +1B51E418102CB4A5D25E6593E577C42C044467736B8714F87D2B7FAFB5BF90DF45230E5BC39E +1CDBF0D3ABCD7F9C704DB72B767EBDEFB6021A61FA1AF1D18BC87BEA09C12B061C9B732D8476 +06C120968E1CC4EC406BF8FF0A9BBFEC03DF8ECD8BFFFF5573A41C4CF1B56B3E0A03AF942730 +B4B91CBD342EC3C7355A8770A9A4F2E766E0810668417251CB7255393B51510E5F9FAFC49197 +9E9654FA595A42FF85BCD892945D29EC5F096EFB0D209625DA4B4E83938DB30CE230BD605288 +6AD01FA463BAFC20B85D97B785B0EB52A961FB8114EE2EE385611BAA40282C2A0E88D004AF17 +65E8D7122D56E06230CF157277E050031B24049FB01FC347D7EAE42256B85B5708A4783D86B9 +754F17AADED11E74264076DD1770D2223822E6A1053960AE38E2F2B12082422CC6849907665B +617850ED52FABD37C8DAB822782044583AEE376D5D4CDAD1C118B0D3E7FC0D71E0031202358F +504057EE18D550B480209CEA4A635FEE562C44117D5114CF1D0FF717AB6589CFBCC68FBDB550 +53CF78F64FB64EE590A86B46330F1E08558F5969AE64B1593AFB7BCF7F5665A70209783A3175 +1F9B364F7B75B7D1ED90DC354BEE53F6CA98EFAF334DC60EAAF0EC775D0BA9966B8539F46FCA +AC04F07DC457D4087C01AB191F1EB746953AEB156E41E199FF770C7706373FDFC5003B2E25D3 +DC7AAECA96D22B48757B1E156ABEB034200AD9BAAD81C700B5A8FCFEC303D6904E113352BDEA +5EE4A3EC1860267FCAB4B5349602700A7461D25729177C6B702A5A33D6B2DF5A2F0CF7F70D8A +9BAAD9BAF91D5ACB3EB53D27F854F0D7D5360AE4A3EAFE7A3481F8EDC7B8A79979CD780E6C9A +56D0B6C7C519B6192C0AB474DA9A5A567A8617F4C529C47E0BC9894C203F164470FA63670CB1 +64FC4A198BC1A847FE1EEF9D22F5B8AB30813D9488CCCCE06DBA52A19F4F4D2CA1B6C62768B3 +8679EA03C6A11A647BB5A60DAE22EBB7AC2AFC0F56BB6188A284F7FEF9964704DD6AB95EFBA9 +2AB4C5AED8AB8CAA2359172DAD7DA898E7DEB7209D9F6AD6D42C444AF50D00ED016C06EA18C6 +A37D83DF3D4A80D06747C002EAE71C9D167B713627044D9659D4AC4456AC0F16C657A0194356 +D72AA88CECAC5741D9BC8B9E0FEA3B98D9AF4CE8F5BE3EF8EBD118A8EACE820EBB9864B6D726 +001FDE2E72C68DB75DFFD7ED247EED643C49B721FA4D7EE7829EED78EF583FD41F3DEA2DF4F2 +8902132053343B2129EF59730F3074D353043265234B9B9BF94BD8CA16CD02A8CA2E664DB065 +93AB11877989819E533A3FD2893507E7F1AA777997486CA0C13CAAA2799388665A204FB2EF79 +13BDF05C31764F3F4F7633CB1F00A2FF8CE6D82F21C54F99B5784685BBBE2DBDCDF5A6671432 +63FDBE8194D5743A18673A839935B3255F6EAF3BF2D7EC01DE1DF0C39F89BBE66A3142C6BAAB +29277E5FCCD0B2E81061CD1271BCC21A34F4DB54296DD0BE1FCB986C77E31466768FFA68DE3E +69D79D7398335C298C35B16E3F230FD990D1E830483BF2432113F33A8EEA691B4CB3EA6C28EF +6710984D58CD9FBBF4DC868929FA3A831027CA7888D2C3A5F4577122AD243F6B1615490C750E +37B8F3FFA9AAD95A3D724AF5F8F6855F36B13E5415E1724F8D2109DA3F43D472109637BE788C +68F5AC1341EAF4F3B67D006AF18B5664810C659C1B7F84807F74DDEC736818C0BDB29F965179 +6206775E866D3E18A19CF40B88B2D99C26478D24A7FBD0305FE265F8E52DB21F3FDB28DF3276 +8537236AFEDEAED7CDE2EF8FF0EAEFDFBD62A11EC9A85777F9E05741A5ADAF7673D3AC776794 +81884CD9948F0AD47F23C263A6875AE3C18EC9F9748A470BF9D5EBFA67DA423146147C1F5A9C +9B8C60BDE2A8977ABD0C0C642D8CF2D5E3693FF8F8E3AD4532222B361F5E6E169DB174DEA63A +93BF61E48D4A6CE217098C1CF3B25B523719F01BE60A8496ED13AAE07A70156CF7B6FD86D91A +30C45227A9332B82845F7CD7A43F45318397B26E4C218135EB721C27040D4A3BD03932D220AF +5E7F6C5FCE536C78268A1507F5C5FBFE7FC16B3DA4F1329FC1689C7C07A9B63833344684EB53 +815D2689F795AAA206F31E59E59DB367B87BCD54E0EBF7CDF23F138B37E6A87634F9142A99F1 +54918182C53F7D9910B3B3FDB8DA4724A8C0969ABC3D8FC89EA80CA66C0892F6C8A0D4429218 +4DB3A2ABC780A131D087F911200D2275D2BD09D897700FFAEDF12B5E8CF5912AC29F305FBC40 +334F956F55FCD34381938039AE6B8985930E8BECBDF6313CCCAF5C97C27E08981499F3F6FF23 +719E88317C0026A6A402B36BDC4330171C37A06CF93947E6F6A360B629B0EE4462544BE841FC +F2037ABFCB198C4AFCE9D0A9E76F3640CB2173FC9765CD448B1C07E09D75ABE1FD736C134CCA +C8566D661730196512634BD3D0DD722239B008CAF4308E4EC0EC439199C299E3A46C23147596 +01E1964CDC89F3F5489CB3B78C2A675BB90C082BAEAECD3B5B34F60641F71289216CB01A808C +F2B20DDCA1630226B88A5B4A87BE94F4D175626E08021225B5C24F31C3E0B8D2FB872665CBD3 +70855D09BB6DED4B1FA0792D03DC512AB760F9C2F1D64A2011E229651AFAF9E173D77DFC6D96 +DB7796C981F78F41204D3C8D0696CE3B74CFC1C20671A7D1DEEE97ED50E77DD8F2D629D23064 +97472CFEF27055E878E6CAECF06DF045B5309B3AD4D87AA6CC6BB980B6B1838D60A0334AAD61 +73BE953F2FAEBB69801F6EB6194A82E892DE9423A1C2B061D20D606051FD30F5543D9C693A69 +310A621FB66CC218E41DD98747457D1159836BE3333CFC5727560185F17D6942927E14C3F0E8 +B92E9F3CA43C5BFE1C37B2CC974043EED5928EE730B4E2F195AB23921637CD70E6E27605F3CF +D5BE93991184E36C93BE05F3693FE273B21FE3156B70EE787E41C9CFFEA65CC83FDEABD49D00 +FC44DFBA8D9BADF52B6090EB09C19E0A376543752997506364CE46C4676717C6F652970F8C71 +AA5948D7EEDF2A2646357F71C2F9535D4590F7D901F38A19AE930F7699608739549D8DE8750C +05CD564029AE8DFA4D97C64E64F990C2658BA82368582D11FFACF8FC5BF5F7D78353633069F2 +DC45AC7BE6150D54E828FB22154854D830CEE148C1F2D525AAD88449DFF79E9E7F128A77F2E5 +BADB92E1496E04DB1431086275CA7F8ADB1CFFA931F9FDD3391E0E23D68E6B358AE4A2A907E4 +F8D10615E700751C842FAF1309A8F68D09775E74B2627BB2DCF7D8D7983121C2134E2D009B5E +98CA5A520D17F02DB5CAD90588CA6F6C580A81144AB3FCE54B2EC4E0F6D4EBCE888A5ACBE4C4 +07CF53341FA6A0E8B94AF8DA3D0C47684A327B67728B17B7E640BD4F01B8A26DEDAB5344E827 +9638A0DF13128658E578BC6ED9FA31A2D235419AF06AAB83210EE8442095703AB029C1919CF8 +996BF289DF00DF9ED465E953E1CACF4C3FF495F0D33CEAA5677D2AE1D9FF506440592734154D +384907262C9142E530901E467B0DBB497A6413C25901D34674D100415EC570BBA8F5B93733B9 +276AEAD1C5F79BDD64FB6D29C60B9E7CA1B3B5D295762D58FE3633627E86A9FDA0444963C5C1 +F6D2C7DA1EE64EB6CE490D42777FE99A4072996C8448FBE4E1BFCF0F29F9A58F7F4AFE743345 +99E257778799E6EA3897B3E871C4427612B5CF2420BCA071268B59BEBE0C3748E3647F413E1A +0A42D74AA3356921DBE2701C6E96D7A175E024439BB8D3C7DDD993A28D6D14D54F1D96940668 +C6557EA04F9FA80B5987A30FD8435DF983D3BB807F2B5010982DE3D8EA9C8F5738814D201A10 +08B70521E4C3F36F76997065CB5D9252A089E90205020C6829F50AF06A0B3E3A704A871AFA66 +7F1E491A086A5980ED46B1AD93B8CAF5FCD902486F33DB5D55319FBB4542C945979998D09702 +39684FBEF289AC3D19325D7091EC53E4F7653EA9A9C7FB5BCDAF3C98D2BF81D6478B480EF941 +221BBA0FA9D5560C7A7EE6D44DB5A0C328448A3874D089800741CD84A6139E46AFABCE7C6129 +BD1A81136D88350236ECB5A9BB8D737DBBBDE78043F64C6DD8A281DAD8E4513EEECD1F46C929 +DC17496F1E667D5B494260451B9A96323F609447A4266DD405CC0DF0E34988F50927F23C14DE +668E594DC2D5C51DCFE8282EE1B483FFFC7DD7F719DD3FAD5E8CADBE2B053EC22C3494B6BEAF +0F8A75C9A8521801EE5ABC563E6C131C54D96ED627122CEB21A124B20CA08D7058A0A46A3405 +0553C2148989302A06D8F09873170C5F311B90A7ADE76EB466C0031301D083753323D1C4C69A +1FE6CCF99C164AF6928E8068F5EB28FD0269078D12F9C114B7B130BBF401ED51CAD1C87327A5 +7A7E51E5D691CAF228CB787E8F74F729B68111BCF3D81EF7A99954F3C9147CAB19BFC0141E24 +4B48553296AEE5C99476219A54F876C78D7D3020BD62DB1AA8505109C45B9AC288730E77EEAF +D2D9742328896CD4CFF127FECB166F590F07EF112BEB76A11808F2E22D425FE579FFF21D7F3A +42885B9905F18B821F2AA8EC2C66A2D96723D75744276E268FB431855BE6AB011371A1F34776 +F37DA9D179AA1EBD0757C96000C43BEF6AC48EE5B8F746740F606D65CEC2A6BFA46AEF1876D2 +2B2355960CDDFCFAFE133A9BE255B8B51A709DB78046EB971169B1C63AD4571F7E0038B13694 +5ADB4182F1CA43475944C2C15CE901B39E1559F45B34A156AB9B5369445D9F657A6A1FC31719 +F2F32C3FCC0A6FC6CADAF92AFD178A5E21323077F8D9C340FBA6BB735EB376683057B7E77237 +B2FB7FAE12BD8D1B08D08A5B4ECB3CF42FF158F949ADE9A4050BCB7C942A22AC01B09DD27615 +C70A3AFC57BD01BE9AAF135497AFD97BB92CCCFB0ABAA66A7595D490C10393A056C418B9EEAC +2E11B337287320BE60FFCC269D8E8052CC15B53B59AE036EA93C0C5476B079F0CFFA3D6FDC31 +6A7C6DE2832D8A21799F8FC1607CBBD8F3F10B9617A7FD3595D07AB220D545B4E5D80344549F +CD3C27CE4B510B7A4A294504CEAE16DD874CFFE5AFA735D1266165B44D6998DC099FC1C10A4F +276D094C00E475D87812BE5E151E4564252D8F6D8DDD62C55140497E2604AD705DBA07728ADA +20DF09431AB801F077D6F2BE2B04957B8DFB38EBD9A110A840B29E5B63D6E6B414C4C7893646 +58311835C86C5125EFB6C7A2636C59AFD58D7F65E9C5FED7DF2CA31851FF98641479CF37A973 +3C809A82F2102A356E6C06DF0A31F48E551362CBE351BAFDC3085ADF82680F6AAB5E3D493F5E +E73D0CED96E91211AEF6182F4026FB520CA8D99FEB58FE492CE1A45FF70648A1F7F8813F1362 +932C72FC60C6A1CD437EFA03D1486A3F8C5D3D19F044833D6BFB7209B9FDBE71D2071606C0C5 +03E0C169AD32A979D08B1EE648B536542D5636ED8EEA524F40440239D1F5147AFB043BF80FED +701E63B7CF75291455C56398FD32F70DA049101CC6BC365EAFEEB41EA4D57F4DB0E4D9E6020E +4C72AC23DDFEBCA8A7AD0633BFB8A379C573461106C0CC116B400F6283DFCC8A6F178DF722BF +B9F0EA47D05EDE2FF46246E3D2F056F7EF6D1DAAF239A7CA957FAE280AD113050E98F4851ACB +69EE7BCDBBFE6B1C6D340BB872985E197B78522D08AC9B61862DBB9FD1E7B336AAFF4C2E29BC +EDD798128793A81F82A1235C813E8DF4A692441E2AE7FF1D02176DC39C5BC1FDD1F4809A1835 +90BF83A5BD9DFBFEA338324CD782E5955F1716E7B5B19EB33A3B2A9742CCD64967B95E861DC9 +043ED7D6BB27D39CABA6D645ED0050BF55E66FCA0B0CB95BC96E5DF895EAF858A2A82DDB35C4 +644EF78936E786527F71ED7FDBA119778E03A1E9E3783D9FC6DC36689DE6D76DF5F6D2D72E1E +7871AB28D55CE5908D1E7970A551A1B41CB748F229879C4CB64435E4B7D7D47D7058B74506F2 +29422D1DEC87EEDF283DC0551435EA526AE3A7EB728A9F97FEAB1B03D9C8A5CD3C0147373FCD +EED0C691C704DED17E88A1230BFF171D73F34D9E7106727B9F6E4FE930596C826D23A9102AF0 +451AE0F4171135278BED55DABFF6F8252AF3F00F613A4BCF5A51D10503EFB8E2400A91D529F6 +67C210D57A12D0B6FC68FDCF98937DC3D6ADD939C572E1DC20369E7643E5263E192ABAC640B5 +DC707A755D0B09CBC9AB99102865B967A7266ECB8AB5B39D9FE699D4D74D805BD28175649D35 +552E8C6D1897364B34C4C281474F8BF6EEECE9ABC47CF101CF5ED88831D10B700C8057A3B155 +672E110DCFD73F8567D27A38259151A1F518C1CB1BBBBA9ECB45E57BEA138EDE68B4F5EDC45D +DE878AEBE9C3848B841F4A72BC02A0881B8D346BE4242F27746C1D948D3100CC2E6FD8BEB1B0 +206E3F0F1CCB50C167EDCF79759C0844A0C6653C8E07A2303DB4610F58FA19A2DD6B44D090A3 +D70B5A806AC80DCA6F2C07107FC9E7A396A510CD9D92488294738FFFFF2E4E6B9EE6A70E2CFB +8506DA4D3390A6503D0EFFEC605E102755E4A5C019594A2363DAFC7EF0FBA9905428720D306D +1B566FEDA68D27B77891A8FA8D27E69494CA579AC60BC98D3CBCF42E977D23A02DBBC52A8251 +B57F2FCDF93FF4950111D763C1D5B18FE1F6FC9B4B34422AE0402366F600BC1A101C3CC94C3D +A69B82E12AF8FA42BC32293F13B74F3623BB17A92B26EC112BBF74676C9B00248744ED109B3E +83305657635CBCDB526E5F54EE3F308D5E3ABA919A3C96D88BDC6825B5DE5B5FC6AE2797057E +2BA9D772CC69D5BB05555427E8B15133045E3B6C0EB21EAB2DE401596DA3EDCEE178EEB5B0C6 +59BA8D018F93AC2B19132B4589751EE5C61F8B03A4914C01DFE10556207924EE3ECEB5AFB2F6 +A71DFD0B928C470B85DC36B6177B0C64565E040CB77ACFF9E6F1166E6BAC1E6BEC3301BF94C7 +2FCCB34E801A377D70FD6E8D7D98471ECE60B488B60CDB46FF3EE8343AC68AA8055E3045934C +AD66B9FBF32E49EC4A6AFAD0F36111BB8976CE41C67F1EBB1C83B835F0A02E61D2EDFE94A1D4 +42BA2219522577A4CAB7922BAA056D0A3D8FAAB1D6FAE79EB2FB280FB68E29169EBCFFDF507A +ACB009FA84648ECC80412D60E1C7FB88BA89EBB1DDC86A4693B7F9EE0AEFD79719D128AB59C6 +7170DD81523A7B1265F8E08CFFC252BDEAE38A021C66FA3610C018A5A0D09C7CEF2C8F85A8F9 +3BE604F377A445D2B5C293229EDBF171177E724290F97EB371554F6C16DA60F81EB39DE436B4 +5CBB916B5756C119CD3DC88A16EE9CD8ECB80F5DFBB48002662A22A01B5EE12DA6B1B17A18C2 +BFF8E191F2D5558BAB067CDE9F1B6281BAEC88EC2BEB281484651CE7BCA5FD80383EEFE69AE2 +1735D47135F69A4E1624088BB64318518CC9C369F036E7AF643579F92FA7124A014BD4FF2AC5 +F09F974C784341AE77A89AC0DD15FC22EAC2A83D48774BACF93D8FF69E12CF5E4586F8801DB3 +713AED5ACB99B6EAFDDE77E851C368AAA34010CD48B842A1BEB16AD936B850F16EFD095ECC6F +094372F346F21E8096566F3471D8FCD9B2627C0F7834124B155BB40D1D5FFDC14423F352B325 +9BA463054442104AAFE498790EF55BBF6C575F192F04BD1B2AAD51BF14B3EE1ABD547CBDB6BC +C2B6F481B9EE8D5110533E30BCC53EB38C8C382821FA7649C8FD8050C7B7A3156878B082785E +670C233316BC6A1A7CC34E325CCA92DE0659BF7F805E60A5F64EF70B167E88300324CFD5BD3A +5C328BB86DBC3C0DC62449394DA00D3980FDDAEC3A484C65B33BEF32701AE1D8BFDA1382E0AB +C3CB5AC4A76F4C22C27647E5ADED348AE51CEDB4EE71A3D80C6163D3B66A975993D43FC7D37E +47968F71AEA34A5F692E8011A7BA8C5F1C30544CE9AE5B6228B967A043CD0813512A5CE246C5 +3A274F9D51D1F13F0A96A0DC26ACC61181A9CA622C13EA70A6B8ADCF88D3364F68839E530B4A +DF6775FBAE3125BC8AF25CC4C1CA38CD36730FDB3E14CAFD596BAFFFC402FAD8A4053337DF14 +65F52DB06FB52990B83EC827E566138431114ED17AE2EB946A7B7BE7E932BF87FCF6466E7FC0 +F8A74DDCBDF3F1F41F8C935F79E99DBCEE70777BC40288E8FD9CA55046C55360C92E95B71747 +78D78C7ED3549B4E472F334CF58FB19958AE24FEEED99A70149E470E6DF7A42017E9492ECE4B +2A67EB9380E3352F9D3AA94AB1D3DC8AB22C6904AD652F10DBCB413D69E4EEE08DC9C7523C5E +89044D86A2B893A7ACF3428C117CE8327CBED3D04D6B606A8438A15E6779DE47DD69EA0C384B +8344AB0402644E83479EA2F362C91A59234B687DDA9658BF2B412E9FF759612A7FAEDCE78E23 +C7E1CD677DC53933A48D90E2A1A02334E691C7AD7430DE8619CCB81E002F83B20DD39B19D551 +4C570FF296DB982C93418D573462EE7C89E2431FC240D3E4C875F920022BBFC65807D469B102 +47237D449B2A4B8535A3016EF1FD5C4264A079C91A6475BE2849F58E1BF3ABBA6FCCF6F970EC +8ED860D88C71A1A04FFDBA2AC6FC91DF6C817009D6613CD9F9575018DB3B813D1506611D5D25 +5F013A6E1E955A2B0B8190AE7FC11A0F67387BD7A6E9B3F957381D4DEE6DDAE07504F57B6EA6 +B75D0B09D69F360F923ABD58542CC2B087B4386A9A242BD9F3DDD350DBBD124C69859119BD8D +B2A569FA49C33033FA32C3779577AA45814D9C89C92BCB80835BC6A13B824018CE4D52B203C6 +8A247729891761F9BE67D1B6033F7EBBD86BBE40F9439D7C86486AECD2DE27F333A48DB1A460 +A2DE4498F25A36F819117AB35171186984829C22E402B5E70BA2B2E49E7EF07B6C7C1D2897C7 +FBF069C5FA68F3ED5935BD9E91F6A49942DCD0394EBF26581B6439AEE469CA282B68BAB803C6 +0B50F6825FFD800A37C9CE7A6CCCF1AD763869FC26C69B3BF3E36E02AEE9BCC08BF9D82512BF +478051D3EDCAA34ACC9B992BED888B11A8B9D7DC54F3DBADE7A57361481C2F04A3940C6D5B62 +8076068A89C12A44B1F0A1535622C8F0B6D7E86B5011CD351144A16F25FF2788F8E50159C341 +221C798043D5D6C7144C8160A9386AE269C39C10392214EE1396A4D5DE2B9280034E7DD0D7B5 +A8A03764A87AFAA1C795054556B484B335975851A06DDA9FA8FE8611BA88F0349AA3156CF606 +7687E5386E2B53D30EBE5095EC2068C91ED9F8A98AA22505F2EAA3E03E3D7BDA5FDCB68A30EE +062EA6F3767789C56CD61CAEABD1E8D37F155D6EEE1BC500C4B6919398367857DAD5D70A7DEA +F65821A4F14A87597DA5EA905632DEE3A80E24E401E2BD5DAA55FDF18C9D4931C19BBDACAB70 +E1FF20D6BE547031AE4E0D9662F3CFA7451914CC14050F7936AF9902BF1D34251B4624CD65F6 +01604225461764134D068EB56BA2D69A257D47640BA5671FA2CEC2ABFEB6489B4056807C3C00 +CF67A3A5013D6258A519C24BD9C0AEB1FA0995FBF406DB15082DFD8D052554FB39E30ED5B43A +8D1BFBACC50B0BB6DB4F3E53660734C86A484D099610D7B43FCAC9A3A02DD6DB53422469C7D7 +16AF99C6821F719BA8770F6B42CA2549C5D9D3EDA80B2F3B354367D3555419DF6622805C9877 +46B8ABA8FD39CEC4307935D97F4BE8AB255AE4CA8FF7ECE554F8FE28802720845354C1ABA1E8 +B7B2416BE81DDF56507E6336701E1B3C1E93DA7A84F3CC3DA46571FA20F7C9E0EF2E4F874C24 +5F0445708527A5C00083709259C3C8254AD82BFF21A4A213DFCC4BFD1BEBCC2F81390F9E6772 +79F987DE1B0E485763C3965EB8E0E12AF65671A07B283484D74269DCAF517A961EA2094DEE60 +EB8BE12FA5DF17AA5505268CA9DFFAFEB59948A3EE4AEB1B4B5EB7A99EF57E4444EA610CA116 +5B695EB043CF0C05DD424C3991D9EC0C0B5848D00DB3A3237AFE1917DC045BD5DE1EA26F1F69 +51030CD3FA281C4DBAFDCD4A4326DD726ECA4EA7FF9E97570B249D31151C9655C363F3040A92 +E0EF1AA3C5C9F9C18DB7A6A61F19F17771D7AF70ACCA1E34A18770C63265C59F3BD53A41C9DA +4C697F8606825772FEC436BE140C37882095D7DB888C1FFEC7CF29E9675AE1D1DF969A43F8FB +D11B87C9A262706E2725068FCC9CE7E36306C7DAABA1EC71FAC2D250F5FE4219D96AE51D7661 +E2DE25D94E7E33C4279195225C2AADA7ADF9C24C4ACDB7F93B5843966CBB0A7C176E7DAAA4BB +BB82258C801F220DF9570CE41D62831B3CC3D432131EE147547D9006F5E7E127947D20837745 +FA68483965B35C06663384B299F4C949773D1775DBFAF9D6A489810EB813E0C733812D443337 +0D5AF7655434E03D7105B112B3F8D65962C227A8EC135E1B4F9F1693D4F7CE9D889B1B76931D +E7ADB3ED641A48ED761AB403A6F6592A9844BCED4D5FD963C935A553B48690E1DC204A867FAF +C0F482FA49714C8D5E97B68809C1BF0BCF84545F9F710C3C285CA1E3AE4284B19343086824A3 +2486CC4782EA4588D1B7257BE9ABA5FC6B52B4B91B2BE36512E6DD3E337180FD0246ED2A6DF6 +ADA3B7E7608CA8291C5E86552599AA08DAEFFBD7B265AADD83226C25C326435CD9B0EE5B69D6 +24F64C65D36D3C2D6BCB6973C6AD34D8BEC56134F2E49AA08B8CABEB874F904A8F1539AC8EA7 +69FC56099ED6A3EC0B6840067C169518AD25CC132047E5DB4C77344D76E45323BBDA50B15E0E +4201B8DE8CA342FBD7BB6948A6E24E532A7C89A858D8F29DA4CDC73BD437762E9F56E519EDBB +FF69BD27173A93B1236118128C59233C14406432D8F3510011BC4E59DADBF54F64EAE7E18DAF +DCF53922BB3BD398FB89B3211682412F5A2A74A5626859743EEAC066185C1FD0BC4BC68517DE +E43546E17E2507EDD79BF25BD30BDC8F5A641382CB257A41195B8AFE97397D1B3DF7F489442D +08BEF9E1AA986D3D2C92A38F4786C6614EEDA83E10D5E9A74D71FCF0AC952BDBE1E8AFBC33FD +CD57E001ED68A70BC236182A243E8738C65B185D7C70D0484BEFA5C58951432CCED932908BAC +12BD5E5AA9EDF1E2F7A9CADA881FF94BB3238C2EE7A406DDE9FAFA0E7B48FA126FD25ADCAB2B +635F85832F0A78D8ACC1075379AD10B3B9C36D3F99A6E4D8575982543EC104AD8C274D9C0571 +5E962D77002F79871D5EA8F5C4B7E1440340060D89AADC9CE1BCFA3D03172563DB700C0EA420 +E79AD04710A391C8A19C03316319EF20706836B245FE1820FA48D4C3B82E603511B07D2C6040 +9B077C082912ED47A1021F67F674A2B168F433B820EAB1CCF216287D934FB93CDA29B848E901 +9632FD5C9DCE48F6A606F8AC8D4168832FAF2D6BECD6AB29FAC59F57C5415611B2F4D9ECC01E +AEE5AB369539C4D5AB0467403D7E7DBDCF0D1AE85B8376E6560233A912716B72F93630D10171 +151FAF43A4FB9B12ED6E939DD7A62777F95471E7DEA585866317E4C80E2BE0FCAF292D1F34BB +1B60B5CB92A94006A09FD9C3E9E038EBD6E9D6B32167D30D6DCDABBE0C48B2DADF65BB54FCFD +6D2CC9397D983DCCFFD8C210AEB411064E6FE2CD5FCB9661C4F9CB70A68A03B2422FFA4001AD +799BF60F5AEC994A2FA22C69AC18364E28133EE408F1EDE7FEAD9043AED1CFB4DD19EE280AD7 +63C4FEBD3F404ACD663DA83EB227C8D1C834BAA960A47B5C4B20D5CCCE84D9154BD692359FF4 +BFF220FFFA2C404338923FD58A136C85E8DD11BFB39B4BCF6BCAB99E3FDB79354CC115CEB39F +342897D73C97F74C5677AEB7094464FBC793158AAE78C563C9DFF1DCED28840B5F338BEE79DE +EB54C76D1890E5964198C277800B055C5DAB882523CF70D0ED54EBC608F507FDE75734ED7A9A +8F2C0BA87FD76AB4A59CC73A88230863545041DBD56BCC3E8C3A94A3E688B8381066040D5CBC +FC66AA1C21495F0737E1E1A6DF2845EE0D56E7997316912ED4E4C114AC74AA135AA27F1EB76D +4C7BE2EC5F69E97B90F4FE59621C0248B0B67096D23E56C0AA2AB70A073C6D2F36100424F693 +C9EBA414CE42B0918A5E026C8F21FED17BDC0A59E990611BDDE1A2A1F452624519BFB4D9577D +CA9DDB4D0A8DD604E1CE98D4E8010D40D6063A7272A96A753928D6E784F5F1D24313C42DAAC1 +CDFAC0589971291F912F61A755335FF00EA8F3BC987362ABB504ED57804B1EA2F43A7E0797FB +EE84581578F0E6B9F3E099D53DBEE3EAE42FAD659625616F2CA4AADAFC5A647A89611A8B0865 +1151106BF5201314AB259DA954812880F28CB36996272E4F805E66A8DBC8B1F0AE5C33C66E8F +470B72C4C81C694A2C1311824D52D33DB1E1592A6203621991419CAAEBC7388AF193AC12E604 +4A94FE91A692DC7E605A8F08B2A73E8D1C8AB405FF70B54B93649F0090B95D6264196B76B801 +4E823ED7DC86802784FF20F048179616118898760A1FDFC421570A2DBDEA1DD7A74858591B26 +69DA7C1848288FFD61473028B8B597BD16B6DF08131BB142C7A3ACEB8F6D76EE21ABC43096A0 +30265EB946B0D2C3DA7ECA4579D14F5023CFF16EB13C9F40229875C2242F476E1200BA0E3B85 +570D5AFB5BCD11E098075E18A26B100A443E329CF7F03A974B6ABED4D8116B9C36402FB2EEED +65F77E08A322EB9A57468E35C227646ACFF43C0431D3B6DC9AEBC4A680F56D20FA81CD205335 +919E7232E9E59F2EFD65FA96E600113C1050E2D398C1BD2C44BA48E3AD2E8D92EF2012219A16 +6A986DB0895FC9E838EA5A53BDD115FDE72AA5B55C0EBDAC3CE7053FBD31CC9474F81E7DB34E +D13B0565065828721BEF04CD7E4AF96FC5145E0D77B1BE91A4E3E1294C498E105C869D020647 +59126FC3C8CCCA6723E5FCEEF2E5E8BB0D7A81A280E5282846917874F54370D2BA301960A3F6 +FFF68EB5947EF6CF1B795E9BEDE7701E5F3C60707C17B1FF2DFED0EBB33E049153C6CD1716E3 +7CC9BD8E25EC7CEDEDF433870C0523C36885690D05F1ED373902B09C74557A91CE4A957D3E11 +C92716E945500CD85EA2C95B569B2E03646FB45E3870F5594FF3EBBD32C7BC313EF5E2C601FD +9E76DC1B104D68B5283C642873EEBDBD9B63A3274285CD5ABFE70E85B1E8CA108F19C20B2CC4 +24A019FF28BADC06DA9EF057FA74CDA034214458816A50619EDF944AA4AE2C1C8240EB9170D4 +39048A58225FE57E1BE4AEADE9EE65278C300FC56E1F1226B1F45A788905DC0677C60C88FF0D +3F2CD0AF65909B73740171BD8D998E270F6C80FC6637C507A82C1D2A720B37C4B2DCB754D92B +73401BA787659CBCAF41C1B4D103FFFFE1E3C386924F8E99FCC1AC7529056DD00306950D1B81 +DC700FA6E3FBCCEA86B0F117CC7070B175BF0D624DB061B5C776F74F3BA548987E99B7961F32 +E3B1853A2B0694ED046E2F6834E968F68F81DAEEB287145A5FAFF0E05A8184181144A91B4B76 +8E082237821E146323A80BCD42AECDD8853EB48EF4B063DF7452A4784DFA1EB326FCE92B85D5 +9A0EBAE6D7986FC3623D1B058CC7450AE580049B5D1F7896C59976D87615061A6B96E516B201 +D59031EAE2A4FB3C32330C98EF00B9C18869D74C80264BF3F8458F19EE9F35B86D3BBD6E93F7 +B7FFC1359CC904090BA8F1D106220D1E60156003BC414993A2DB05BF6408319A51157B80116B +109286639137C5809BB6F107BCF1D54786D24C91056B0A3F1B6868C0A991E457B99A89B79CD6 +768E52046442F464E08E41ECD8E822F3991C5C50FEE98ADFC876E3F0F8262986A19FB94647E6 +22354A811366DE4FD6104A775C55CF645979E96EF14E95A9E8728DF6154253F39E1D2738C164 +CE6286E2761B18FC18C8F4B1FA906B11C557E95794956E946D31302FA8629E0CE74864A5E27F +7D9839EA62B92E89C7A4CFE322EBEEE1F2BB894EC05CDE3D82225745E44C6CCE20F15A474461 +2FB47B94985515B228AFA9B29DACFA60D640F6F760C5735373F3C5DE1FB407D3CCBBB19EF56C +DACE6A6D7039034B2CF6D0DB4BBE1E0BBC711A91998FADAEED048FCFC912779BB498E946D530 +0F79C8ABA5317B531A7E4083958A4BA4FB5D7FE79E7657BACF75DD85B681C254A063C9E99B45 +4BCB1A7B7F32D41D5CA1D1E690F2AB96724828080D58FA66D09E7E2A9BA780F8A1662136CF85 +25D2E733AD7D3F2C93AB3840CAAB4947F6C50C46EC53966E14AC6FA073EB4B17C460E30EA69D +514A9E5A3368F1EBC078AB4F0FCDC96B06E47D0D4B319CC2193D70D72D624F49D3C49F1C4ACD +F28F2D7E5FF7E267C53353C093D2C9C95B091447448607B7D12EB4B741492656062DE3881BC6 +16575C4467FDC4934132AF0F32717E8C9814CCA4B4C24A68BE32A9DA8937B18C00B8E5B511A9 +809221845207279A81F8A3E0A103B13223BCD1318BE581A0013537D3704005505919501A8D62 +C7F090C04B920A7B0BA8342E7DB4E10E802F2ED91D747DEFCA6CECFFFCA0FCCB83472A67496D +D79C8F735EA938E128A55BBD73349C3C31EF628AA485ACB347740DD32FC341E68EAF88DD7794 +98F0540563A95220C9DD8E6B52B46DDED5B094DB48627B1BAC841C74B14F4D085798E459B554 +9C2CD6BFA32485C980CADE8F8FF513362A65995C1C3F69E5A11D5A1B27D67CF7849A9BCB9411 +A5E7419C88F973EA331711FDFC03358E427DFCFF1F1A44122E0189A0CB13415845CEC7EF4081 +17DE98975D5C1ED95A80F306EF8F52CD0968F7980FDFA724B243C30AF29A32004E38ED70B547 +9084A89445B75ED0B9C73830CB89635FDE35023E0DFF73FFA9DC49A4FA7D2EE3CFC980F87C02 +BF86E7D5E25AAB1DD7E65E63B46481513CD701958039ECBC97055289EF221E5584EE905DF1F1 +36FD6E2925CE88883C6D15EEE361E8EFB875756484F4DAF130F37F0DB0B3E17E0CE57CC250FE +641A2297A0A26DD87E424BE4C67A9D671CD89467B74E875B86C0FC2575364BC25BD65ED18A42 +DBBB11000711BB7AB0AE6A451C0ED7B7DC0ED5F619CFEF7320556D1E47ED836F0DC881FB84D8 +9453E5A10993FE6B16586061B2A0C3A4A96DBF7B3078494A62F1F4F571EC945DBCBE33912C71 +04A5A71AFF43C34599D9CDEF6DAAF54CEB1410028AAD75B7604B0F8AB58A2C874A074DB1748B +F6230176344947382DA52EEBE5859E67299E732E5A4354EAED88A30AB693413B1AB7A3FC85A6 +1A68C4C284F5EF40CC2308260B51F681036307143B946A4CAE94CB9D7E8612B455F05364B449 +90C8079790F667DFECA7039026CA22F80C9D3FF78DA3716A8D532D41301CAB31A3BDD95665D0 +DACDFDA2C3B8FBB0ECE4FD431AE50FC95A541F034388F8619C4BBF687C525BCF8B90239E571F +1DC68156B7644BCC38A65E87382EC28FD2FB79014508B1C569985EC1F64BD0F89D7775B3BA93 +4088F34BD053071E71253A80113A85ADE6E4D49180C6B942C32998D5354988F0B513B32730DA +146E012CD58C557C8E4FC53E9CF9BB50FFB768B5D375F70BD042C9D0E3ACC9CC92A8E66EB23D +3D8B1AB1BC26FCDE16AE80955946E8184667E05B0E212EC2C9CFF839EECC1AA7E2C4E454CD73 +3A51EFD0CD49646BA32894DF3A52701EC3750AB9ECA31B6CB368428DF91B92635B20976BD4BE +43A1B93C722B056947DF1D323B6DB66668F3490B818A818FD48C9826F1E7148E7029C83908E9 +9454B5307897150B4946D2C22948ECF3C98F1C1DBFB34FDBE255EB46B6C3486FCCC512319F9F +D678D4342A66B0940C2C25D4C21333FC1E67A5551B1096CA26B5D5B8927CBCFC23AC8DB45122 +72FABF6E3F445DB3912F6AD4B72A2DAC843541AA17C9D5D45E3AC216009CCBA039B2CE5B2F31 +2D9B93A638E3B9CBB11AD82FDD0164D8311483EA8221CAFA4B90C3F3C90A4DC8C9F9FEF149B4 +8C93CB287CF537EF9DA5E8F477F84051193BC3E8860C7CD34EE3986F8B0FA3EC947CFD433825 +246922DFFBB2AA7791297DA281AA6B3AADB48F636924F1815E4088D7C69616952258C031B69D +27BE65E4CBA168FCEE3B5A8A461CC00A0630ACA3C350A5D6453683E7C827E283EBEDF47947A2 +B9D30A2E97D31B8B8F9856775CD6CE4742D47F2D613B88DAA1B945FDA3FB8BBF630B9B434754 +154C29D993567CF6527FF3A6A22C6B6FE1E2F15CDBE85C92A7B0AB2B1B7BAC5D29E3044587E7 +EB0AE9237FF019D0FEF1EC3F00CB83AF48FBC152B5010282DBAF23842322084FD304A6F60B2B +71F677A2BDC3B035D180416E71639AEFA590D3AD588486B4B8F2B4F9A205EA5815F553D3A393 +DAF86FD140C83CE35B72E214974B2BE8C271F1937EEF562A061B752410F5289FB8634BA1A7C4 +FECB6E111A859505F0E09B9D64220469FC52EAA4BC5BFBC380A175217753616FF2093933901C +1384DEF44025473F7B85B0AE7BD3A430F99CD50820ED2AD09A93E6CF28E86C72A3EF8A138EB9 +E83A5B0B69F3AB5067D9AB0B5569F127FD57947BC05A2E36D1CC6852A3AE86DC13A5071ABC9B +57C3C7D1E0E17E888AB95513A7FEB0001897D2C4B9D67FBD158E2306C9D07202F4370C20A19C +10068544BD8514BEBF0A7FF5C69939DA7ABB6B1C7A07AAF5A71712EB92ED8AE2E39FE40FC0CA +FA82143C5CE13F44A0BCC65A49F977BB8BC110D49B41EEEA03802430C37F95A9E7B8D16DC552 +DE2FBF6DCCDA3BCEAD63EBB705862A5536C8850CF33DE8B2196ADEEBBD25B6B32E08DF148227 +0E491ACCD630066BD2C89800409EB179A913731DFF5F2249157D0BF10717D5B021AAE87DC022 +82309E336591B67016004E0C4879A3BA17C99C7E668974111F4ADE30C2AC2FFE2B9206440C51 +E5EEFFBC2F2D9F4CE6CB99DDDB5C21BE9D84A1F89E7FDE8C83E1F87B504A5CBA2BB8B926BD28 +E9536E4E06E3C4596AE9DB8FA028C98BD3FA1EF75730D46ABE9410586B93CCA4A230C15A8AEF +477A7409069A44E2996F83896BDA47E300ED3218EBDDF477A62590AE030CFA4CF9411AB10954 +CC7452AC7137257EDD2B6E53F2E6E6754670C678D63D4A3A64E1E59275762CF44D50855B81A9 +A569C2BFEA148CB1914831014F7CE5B394E5C48951699916D13959DF66B9F7F8FA24B3777ADE +1E15AC2E899923F5BA905AC46271F599EAEEB5F93AF6C9EDB80613E226E65DAFC42D3FA6BF31 +8600DA8D40A6B24E4A548DD982B967AC1B3FC10E4A58846E4137F514DFD29A085C1BDF9FC33E +8031C9AE175F4C60497AD2E79693171FF77129CE191B9E7679DD988723C012A8656341C404B8 +8396DD129D2CB5C9D5791FCDB75EE9D64BFB416C47928AEC1048361B20714E0C8692F37C4349 +EE9A21D918D57563EC77CBE2C9922E60462D5C9DF4D361C0A2468B84D32DCC7EE2B770DBEC1E +9AB94B456C1A1617BDF3DF331B2EAD148412A812DEE21DF5843C3F4B199B24F18CBF2DBB53C5 +9F4E1B7B4AD5082CC7B0F2A1086C8658BF2F7E17A5C54BEE25FF2880050F485CBDA9E0E203E0 +0277A6F87DF3278AE35B30CC3D2F0A40E6067E0E82867AC78625580AE7BADDC6212D8DE04D65 +A3CBA66FF623627F38BDF7C266E27FC5523E16197BAD57294AB13E45AE560CE1579F46437B3B +9B567177628B38B6CCD10EFFE3E9E6EDC5B4F613BE73E6BDE489462243B2C9098C876FF1179B +9EB686DC765EFCB74F9CB8E101533823B74D1098157CC867136E8B7C020414E7C28842E3B1D3 +800FAAC86C04639355130ABBB2349BBB960F683F910D60D679E176ABF18158C9BD5DA7F6263D +4F3FF1EACE57073E522A9ECEE54069698FDA45621E6A1C6D3D3DF8920F34EB70CB5E5D63CD5B +91F8145226164EA5EBAB3D937C9FC659FB96C61EDA954923DF79874EDFFD689639498B497842 +A155EACD52C7D7B158D1C1866A47C44438D16BB20170C9410AB153D6D4C2F691F8891DA80B59 +022A3468E4C124FC4AC322C605E3330B27B3A985121DEE0EDE3AE5B9A0204CABFCBB72191E2E +25ADA675099445A058E92EC3CC07D87455FA7434FB59E744B247162A79BED8B5AD5B6CA302F2 +AC016002ED460AF28E2388567565D0F99EB2DF2355E96045BB524B621A42082F0A9FBC67CDC1 +DA77DEAB2085E464D45D0FA0FCCCC6146ECE4A8981EC8D7C42E7E1DFCC7D8077516701298E97 +679432BB4BB48C3EB4C8E4C474E50E22E6571F956A94F27769BF6302B531537AE0302B1BFF9A +CD24F3CCB8E81EDB03B3873C78CB9FC90957B65A1306F039C08E573461A876F3AC53CA562788 +4A3AA199D5B5C92A10D565B25C3352F5A5B9428AA6B6A656801D134EF3B3D231F447869EE4BD +4F01CF96641201F4FAB3529712265BEAF4AEAC44CC3B81B7156BD1B0A762DC3C48A3EDD8A30F +C0D5F6AB4B81EC74D363E91BE9644EE164DE61D29491F352A57BC2CA050B8BA1FC084AF2B41D +E9882190616F793DB313ADA8B35E505B8BE4DF327F6DA5777A04EC89A89B94BEF0E791F5DADD +139DFFF1FF70C0AE0677BF8E0DCE4F4E40950FB734EE0F35923630B40D39F84839125E3D48B4 +43217868C8594471BD651CDFF6F75769B04C6C59DDA73AB18E85E3E4509D654C0753ADC5E417 +69D5A1077D8D002A91AA42390B3C7E606B0818AEC48F315A0B0B14ABAB210647F463C19CA3ED +0865A2D01E43F56DCEE61E45D7C727DA2C94AAC666F5D5DB1F29AE73052A72E04C46503A0B38 +A0061BD235341B54427D0B09AAF73DC3293F5E27BCDC453C018782BB0A42B561740A4C4B868B +543F267FE101B2D55319227080FAD3170F48A722FCA05A6A679A214BBA2287ADC9B0ABAF100A +3F69A2067B9B2D4E5996B29F52243B35DB453D622E1C19CBC29D9D109CCD399ED08FA6B83D8D +9BBAA6756B27B6695B1852A53011D4EB0C0BB9784FE4DE412FC3DED2EDD87D990EBF3258FC54 +B8313B5EFDDE616DCD23BA6C24B8A1CAC1BE886F23545E6AB66B537F4CE1FEF02DC37CE12A48 +CC95CADF2A6D17A6930FF6A5D4ED358775DC02A646267D7D1A70288C3C07331EF1A6C3F831BC +80EE835C1C20E746F6236014EAE2E2BD281C09C3350CE13502098B0D26656761CA2558A484B4 +73E959E33C08D4FE0F5854FF8B11759121545D80A6C6C09CBB32965E3D664365902FF32B8919 +ECF6EF42EB1C3A0950DD730BAB5D7221C87D914591F29894B92BBC020ED95AAABDBC1968B6D0 +3FD97101C966CC1021A452F35C2586EC5C10D0EA811370251052716968C0103CEF5BA1EC3357 +FFF5833DF816F50675D61FA865EBB3E2872E6BAD320703D210387F44D7988CA73B1A481CA0F1 +4AC5E917A0A250E7C65A5CBEEB4A15F106E78F5EEA2C2553D311CD73A21184B115019EAF0F1D +8569D7994DCCD0A03812FEFB767440291B15B62AB8C51D8D7E053BFAED2D457310387A4EBC72 +FF4112E0B7A51CE49EF5F07EC99E086DE8C9D67BCCCF52D54646128AED7C45442A3D7C694564 +44A8C7B8B3A3933F4874A16149F4C8F92FC773A689D8A38DAB16244FC53C8B0EDBDF3E2DB772 +7145C5338B353C415B2C7D97150A1B041E102A3E1003DDCFA7A2678E8CF9B2715CCB148E7AA4 +9748A3800ABEBB026A6EB09055467B05F786C3D79F914F735E82BCF3B820E3E645A3C3DEBAA2 +B3133A78A763B6F500FD4CDA7DF598DAF779D765FB6A5F69294670938251C7D4B36388CF11E5 +A95B947737F3F3FFEAB01F6F7B86839F5970C63D14C1A4B3FE15C6F632F78A8C0F685C7E0124 +D809D143354CD9D4CAE190959843078C9A2ED39DF9D16148AE25CCCD32F4CA656B66E75044C5 +EDA90CB974B0426F20B1D2461232F0EBEB7F3E3C72096D6E5D1C0B186B4161C93896AA437EA8 +53BACCD50E9063D27B9C67EB28DF3FF15129CE1B06362588425A2029FBB299D467135664C58E +1B610A662BCD849B762E801E4AF89319F6B07A9120143D2CD3EF9ECA3407E9C6213B94D05627 +5BADD7670BA6E2559B8B921653B872EABDBE13FDC9DEA0C30E67D4CB637ED866BFA48A016C62 +A174D9BB51ED00810B6E880D38EEACA8626AF699DAAC1560B02B1915CF48CDA2E12635785E0B +7B12AC793EB7CE8E0224A63288B49FE020FC3B695C6481419D494D3E68CAFFE44E9B82B7B5F4 +10AB5551EC09480A4C22DD4B2AE7E668698E36531DB45670EC850740C7B4E6D5245DAA6B7C5F +A21AE29FD29D59037571D5B2E701AA444CFA786C28CD4389FF7661FDCC7EF638868E1224CDE1 +94995FCBACF53C02AF031DC892389D8048D2393016A39A957C4B38D8FF74C7AF3BBC5DF14C2E +2471FB651AC50910CC14696E6CF04A9A13D96E89BE6E6F1C1DED7B6460F04CDF1FDC8ADE7691 +CEB3859CF601D19DDBFC0415B0A604542B37A10FD597653C4B2D8A697D0CB65CCB29CAF63842 +72C0CA28EE1D85E0A4A1491032858FF24555D5BD99B72F7D37D828FC8B5C04DCAB7C2A1D9E02 +44FE096571F0CB1F240AA80A69297163CFE390A58ACA1E1084A5BBB95FE8DB5EE33433D2AEC3 +87456A4805B32E8C09672CDB8A3A8C22FBA5EF178572CE896B876B31542B650A7871FEAB9ED5 +E3656A352E2A9804E8EB6CE522DA82DC7E24290DD8A974093D77DD31A289E8581F34FA129179 +28D19ED1324924FE22E806472AA3F57413AC2D120D06927E5B524C63E26FD6D4423BCC24D938 +5FBA2B403FA9CAECC777E3855171A706326DB0583FB985A4419322834327A3FF98F4FA413A6E +AE440DB19BEE72A2CE9F7F8D40BEE6C559CF5850D4CC6E81ED882193C281979DF642E45D8F8B +77BF7675AF26FA86BF64A68CEC61515076C0CA1B65820CC49FAA59D7D30A5216CB7645F08AEF +C062DD81A08E59E19C6D05883B7073CB9D7F31178E42AA2F23BE54F2444CF1DEAA8EE152944A +3A3FFF8D5DD8CE832FCDB64A18776ECE9035FCB63154C0A12A9DC4F42947D2FA4B1B1F61D5F0 +C53030D86DB9EFB1462A37E8BFBA0D49A47C185234AE9F2BE5920D86860DD50D5A64F5FFE509 +F3E6786E5C7A315BB59F20C99DE67329211F72A6CED4316026F9DBFDDB9A4FFD65ABB5769E0B +D78A64FFD0D3FA70B209842DCB6ABDB6E2EDAE5D499DD63D8A98A18A561895271823D940FE4C +19E1BA01956006D60DD462809577A8E66AD33CD96527D8FE3DA3B4276CBF6C8DA78B669E14C6 +53AFED55171BF5C546BE4E49E1CA64F73FB1C2BD3B0CFB551853C93D6B2470299570EEA96806 +F05E00A8820EB2D7D6FF514D98778A512BCD66127D0362FE82C9E32645409233E9FBCF2C57CB +EA3E0D016DBFA7F3D139FAC19817D0A54E69CE49E7807F9AD46F08176BF2E8F5557605CF41AE +6A716A3EF416FACB94F67A41B02DE27C79A19D110C897F5AEA3B8C7D8B25C30C4F2A090B00CE +BA97FA79FE9C3D62D54648EE66ABAF8370F52BC55147746EE3B2989C4DCDC75B003E0549841F +0CD88793B69686A252D2FAB60F05F65BCED0001EEA1964F29CFF51948EB38F2BEDD7CD113F63 +582AC8894F4E3C39CC6441C20D8F80E6A18E7779DAE21744953DED4A801AF4A00BC7611DFAD2 +B0BF04644705F3765ED56495D89467033DDA210D67A2A15D368906AFFE22A3712B5457A5239B +C3F8FBE75603A0A117C1F2C4516159D7F378151342154A0B5FD0A286F46B13450D1740FF4583 +0226DF9DCEAAD1C7D2134003958AF39CE0DCE6296FDF49AD5DCE34D8D7B7F1E8D3D9E1833AE0 +194982E6A0A1D0661ED909FB95472B8242EC7EAB2621B6B8E90D323C8C24AB6D1175EF464294 +4B6B99F09358C27DEACA32B6E47B68697ECD8D60D096368F4AE6C2FD0CB774BB4CA351E3277E +A69D5C2332BA6A8392669D9DCF561D3EF98B2F21840A34635EA134C54E4266F3607ECB8A5754 +199236F7429680C72B28F81F0BBF139BE501FBBC8A4970EB77F5C8CA11663BC378EAD24D603D +DE4489B54D1EF7A6F80FA5D744C82C2B34270985F535BF518FCBB6298F1203D59E8D3F70E47B +323D235BEFE19B3CFAF5DF2A14CCB74B1408CB2E87ECCFE2AA69F3F3AEF6C63FEA106CBC263B +88C838E2093D6E8C119A441B8A4AB33610CC2E5B3B134041300C647FCB469BF51A1377720412 +B7F135085F3D22245AF0D9702383077EEBAE0A4F7F39A305DF85E8A0C2BA60321CD0E7293A54 +9FB5DA118070170596779DD22808449F6A3BD2EBFAE9841F52B96A20B6727F30D19867E46CB6 +98911CB6F7EB12A46CD3C6D0339F43B218EAED6006553F3315D2A0E66CB2980E88CE6E9BD4C2 +7C58AA432F3007A84E7919C3123EAFBE83454BEB9047D071E6724694BE82678B503A9D8738C0 +5C2AE9A61CD1EF1D07ABEB3E492BC0214EC9B7680CBC12855B7183C7604129502EF7D3CF69A5 +83B25B4C20361D56203AB4C15DD4AD738CDEE3BF59CABE2A20CAE64D642C8929045845D19D4F +1C048F9E8A43EA1A3192432853AAB7E42BF8690A2B207CA03A8DE22B0004BD927450799197DC +A7E8423564724054C75E5734E1DDAA01B4AFDFECC1FADB268E67046A27F5CD7E926742BD07B7 +5C2A320DAEFDE26A796697A9987CE9A3C90FBDA759CBD0CF0CDA9D143011C8F1E81EC3E906D5 +37ED7254CF7D301D623376BDFC7AEB3EF24C6FC430B68FA76DA16F09C011BF093B8A6EB76C83 +E3047EAF4368701128ED6B7072781CA85B5C8FD0A542645C74B893D9CBA642FA4EBAF22F12DD +7F145AE47D2C1A418731DAC953C62EB47F658B07407A0E4502C031B180873668B1791D2F7482 +A3139F2058467F28FB2BBF45EAA720757197FA8C5B9C62371B2E7BEC4099C3444A0401B7CAFC +511C1BD90983A1B725C8123B2CC1A03DC0402C460267ED93355957E4610888571F1785C7B2C6 +38589B7D8A5482DDC8E9EE14DB3E4F3B8328D0F1D29F16475E2D097FED78D29394A24B13557E +E7A6946B22FEB401F7B04A43CC878CEEC90058D84650F3A6A88D740BF24A5D09BCB12396D3A3 +C1770C55894418224854983A4B2A99C1CE274618FEDC39E44A35CF27C222DE0F7D7AF5AA2EA5 +EC2C9D59EB1DFCFFAADAD318A82BC7FBEC2231F28AB3E668F4FFBE15E8142A8FE47C17471B31 +E8CDCB47BA7431E2E7CBBA9A85C664F7B25038D504C62D866B983BFFB35DF66C41CABD2957E0 +442E95534CA9416A1BD59E41EC29F500861F0A084B60D09C62773FE96493B4D8B3D068AD71D2 +E995575A41FFD7B991AAC989D1E50B84175F03DF85321C61AE23EC9446FD675605B1A18CDDBD +8B997DA25F3E8BF3C95F6459B3D4B2331B62F16C8F95BF4077FF1551E096D5CBB9B96B482D7B +4751488827847FE9614DA0E36BA169318101EBBD53215611BCF0005C00790EE519AF834DC6B9 +4CAAF1B66C35CF614EB62E251FE9F556EC155D38C48DFE4E9EFA21119CE66F8BCA3329DEA8C8 +BD3DA222A32C5954ED3B1519C07640CD6287C95516FB8D5129BDB1F26094247CFE3EF753B39D +EE2A15B466E31053B9FBBE763C60937C71AA2FD8F786B463D6D3D5EC999C7CEEF386E9D129F6 +604A663F3A7240F1DA22356ABD5A096C468332C29FAD7BB7B0CC71DB348A834AFD6F7BFF069F +64F4DF4ABC0515683DA1D44E184B33E7A2225E947CB14E8CD3EB186505052380CDD4D8C5ECC9 +E8E09FBE853F21C41F2E7D94BE95C7A20A8B695DA1B6817A5894329E6D7362EAE2726604879A +5C8372818566A2F755C3B28A4BFC97E894E343234267ABD3DC34AE80384A4E3E5E8BA416E053 +9EEC7C28CE9EF4DEC442C9349EBA6B7417AE26A0B130A97CE8CF0D5DD11FE83037B13807919F +CBE125F03603578F13A7996249DC599A40A9A572ABB5A01BA9BA5397EF20446CD266B0B3815B +85190C4DC326AE64EA9A1C105EDB75585534C93143B6FC89E7E62F4F783C7C98667AEEDB5A34 +AF8A6EB76C83EE23DF183CAEEBFC1457D8B9ECD9C7286B05F523A306A07E1E6A7CFD5A1C44FC +2A8E864C1A7666C71F6305DD252AFEA262867E1A5CF9728BC0C2C36038B1C28512EE6FAB8D04 +C3CEE8EBFCA22F864DDC042BE521A361E3E8A1DD8412856044206C20E9CFFBE1745EF280F68B +C557AE1E7515129597090FB8946A52B6B97C6E72F15D9010A230AC4CD480C1870BDC792F5D94 +C56BE80C820B54F1D7FED00C4D32CD8DED47E68C29E780B7E4158F24AEF58F219C975F1BB4C5 +E3CBAA2AD1B41713DA24FD7591E05109992F1284F033BB6E4DD3C751E3FD6A14FF9BDBD07A90 +3C156A2D6C276C0A099C1D714211BDC9BD3DAF01C0397E0434DA59DB228599F808E1C9F57827 +9EAA290C092F2BF2A6B6771D10C464EAC1E9FBD4C4E32CC65C78AA38EECC6EE2EA7FB411F81B +1A1A7E65997B4CDEC8867B9AF202BAEC0254BC48FEB5C3AE76B5578958FA4E185CFB520A9900 +A71F1695D2B18A8A7456D9FCAC24E943483DC1DD57DDD94016C85C482F38D355CEBA3445EE2F +31D65E377F68421A1BF82584D34AD2D059197E4E7E50AAC083B3C5CA15840FDDDCE6F6CE26F6 +24882D20E20D9319455822ADD186A21D38C4BF501EC8B873E99AB30AFB0C2E8AB9A8AA799686 +C36096627C3E89FEE6533CC2312EE6EC17AEA84E02D559653E5D8B5F09F885156E645AAC0C2F +391A8D56DBE10B141DA58C20734ABFD916B01FAF8528052CA7EFB4A5DFC54AC44E8F34DA2ADD +D8DD81A437758DCABC184A8409B767110A5283F9C2F3E88FDFDB3E0A8610AB17B5A6C4C596E1 +F1A8B4D9C78D44D690C94F310493F3545075D836A33A851143E6611C3AF84AEC0A67EAF7B59B +76B902A9797B9874BC053172E57CEACF25C104471023C5E8F77906A9CCEEA9CE1327E0228158 +BA249FB0C69E5FD7E1794A9AB3A63C1432285059D2573A35BB5D5B0F7198B15DD8562A6C321A +9C79053951638F99195FFF4BCBAFBAFE631B487F1C3F4AC9B6BB1850883475C17F0A63FFD431 +07ACCA42AD4A740BEAD9F812191AFE76D29B16080B3023A09E51479AF71634033FD1BD9876CF +2F5D71641E03DE194F4249D38BA999A0E7B131D0A2F5473B6BB99253283EF3935F7BE156B6BA +28FCA3248B1A98D5499EA692DCA586CB56441577323474FE40ACADEE13915C5CA4FF39BFFD82 +FBCD306A8863323AFA3DDED3746B659D42543B82A7600209BB5FC70099BE6341117BDFA6607A +0CC2E31A046EEF4A68F8D2F6858D73B10B0C3AA8C51E2D21CE61D6D3B718AAC706E2DAB6894E +6C5A628BC205E6852E5441C295835BE475BB6FC7E4CFEE250044C7344251A39009257A9F4B63 +C7947EAEEAE6BBEE257A8A826FE01A7A0BE35914DED9E2A36C35A39243645FAF91C36158571A +CC320AC20023EA7BE26D13A808C19E42E1DE7CC3D1DD05EE544A447C159CF85DB3062E381F6C +26C939B277FC635EF394740E9E911B0A780757686A45FF1528F107F48D229B637614DAB1A4AB +D3806769D10656A84BE94264F6E08EF9F041C22C2ABDAE1A8C5F5529DB511587AB6542A205C0 +FC7994B921B55385C8E6C55A53A30581625C6ED5DF44748ED15C9F3599D4638603564C8803B4 +0222B1F931AB50C0BF6EB7042163900B1089F87B7964C8DB9F8DEA2FC35EB2A39A0025D4F2C6 +4AD18E7E1DDDE5500B36B1D5B9F9449E046BD49EFEE1F2DC484D8AFBB737C3544609CD356D22 +39ACE6BEFDA61BF1AA741ABFE01B4BD957871E23839495F121DCF90DF831F7458DA135BF6DB6 +D8806251A1350ED6E4DE94BC3973167414794C8DC69BD8789F6289CB1848A6E0353B9CC3EAA5 +B1E6C5552741923D993D0843970D50966715C8E0B6577FEC645D1EFEFFA54127B9C3C9649EF3 +C33FF8620758E42F8AB15F3C6EA3C07A2A5DC9D131761B43BF15AD718CC5E605CDDA64E23329 +A14A57C9E62A5BC5AB977B8A76ED363630FF541BFF818C59B576F70D9D6F53954D683C9C386C +AFD3211A2FC066BC29C92904E2A9D2FC4E10B4E76AF3F0B7F899BD080A044B07443A6F9EEEC5 +F30CF428F42E3B5CDF9007D9B830950BAAF8CDBAA6A639D71ED408C5BFCB2F343649471F6694 +57D5854D3DE3CBE2C51CEEDC9A4505CC1F022484B8E5A242EB634F5A5DDA41DC1622409B4B00 +778533CA65BCBC89C0A3D7D38B41FC5198954BA35F36105E36E63F8FA3A62DCB67DDB55470ED +41E98FA2452433D735A52F4CE82D5C12CCEA006A465374FD9129BB796145550FD09D699FE930 +C49ED8E1C9F3894DEE30FF5FB39D4CEAA854A719947C56827D934E879A3AF9063C9CF9EFA44A +E2636D150C0B96F144A3F38BF4468DF2B905F368DF18FF70AFE86DBF5ACA22605F360E3AAA86 +8C4FA4C882824EAF700BA6DE33C46E18E3031FB01DE7E11773660C3C8CBCC99FF2F8B72E0DA1 +17F40F31D7FB32719C248A66B0FB88AB730510BBE17A1EE8EF7CCB44C0274EADC093F4C33859 +3CBC45B7610A062203E7E533E9202844637976366902884507424D0AC1DE1A04E4438A3F736F +76DF27C60D1B6836D802361D5FCBECDA4813F29E1FC759B4904D2ADE9DCB7001E3FAE05CF824 +2F000A3C1769354E28FEA0606F9015D1D69B74DC4C06CA521DCE8C7B8A9BFA10CB416E8477B4 +F0666D5891495D831D55029D82A0AEC383867397B7C94901646543B1BF697ABB498F2C74BB9A +0ACBF49AD540C2E6A98C4F435EF0C616DEC020DE982624CD806FF978BF8C540CB9A848044B33 +952B460DDAE88FB5AC86B28D3E6AC2FD1CA755A728054B2DFA9803CE26BC5E596C47776C8ADD +7ED345ECDF3ACD6E5E6E58333FBBE64DA8FA67D9BF125B2A6685D49FEA70F0ABAFB5B34F8B9D +CD44F2B6DFF307FFACBCE07260A98A1EBB7A7CA01D2E4010FE74B0CA3A1D15ADEE45073616DA +1DA0A91AED5EBD785B4953C2200AC2CC34BDA60B3C0F4D01E9575A5F187FBD6A7DA5438F9B7B +2458B857F964E97493A0629D507ED9B72903472F037145EA0B98574536787FB6672E00D7B08E +0A23334EEEC4C1A3FB1CC078A4600DC44E1703C2B56C92F97F9F14F8C61DC80A92F52352EBB9 +5D3C0384042415A61A2F87EB38F6D62F203D1640AA5D6C991A116E204F2B1B4C5C555DAD5EEE +B9D80BE96E06EA55C71AAA1AB688BEC22E6B0A961A397E0E1D1B73D6A9C21B47AD3373218277 +853E32806219D68DE070B72A5ADA8D82ECC31A9E56E18DABB6A36440DFBFB2CC0E2E50154278 +21FD448EB53D69B1FCE4BFFF549288386DB03E0AA4C4F0ADAC624893320025D21593F6DF63A0 +F634D2810321179BF6FECB4947413EFC48E3A9569A452075F946F17D06E1F41942220B700924 +95B063FFFA6178BFD2C51F77CFFAE71804CE1A83BFD3DADAABBE8BE861DA774898000827DF23 +354E41B36935161785B0075C22844099CE7F55DB1C82AA9C9E9C58BE2DEE99AAE52D7DFFBCAE +1A3ADAB60E5BAD4F0991E0302D896C082BCE4B49BD0BC1D65EF26D4B990E50FC052ED75B875C +642C527A77B1E6B9EF9556B3C7193E858089E53253A4DE8A9F5720C0AF1A8417811BC5AAD97B +A01A8B88BE10650493E1FAA73732144792CBCFE2F3499710FD959A6BA84DA61FE94B51E7C57A +0A5558E60440637081BB4151F6DA2B4934AAEA0247532055CB05F482EF69562839E63338FF1A +44A86CE80FC9091F2D8C5A60236B88D4E439FD0E147AAC487AAA5CDAADCB206EC515B65A787A +E2547A1DDE6B3A7B119F4E76F67D6080F3CD5706E46FE00183A607CCA4154D901F268A907911 +3A147AF4EDC23FC957458B426FC6B8CCE39A46F7C05A2385555AD3905283DBB66BEF7AA1CF31 +97A7131DAD46C68AB48924DEBC9BA395B75AAAB8A9366E0D4E77AFE68CFB4627D6412C2CC906 +F1BC6C58663FC71403D47CEC976459E1D014971BCEA35920264316F86C235A4CA15F5279E1AE +4F620DFB5EC4F76EAD9528A379BD7DF61CA5E54EF6191B94E016609002F4B40E749A0495C4E9 +284B2685C17BC9CABF1E4F3346D5883692A81B22EB5144F1CD6E5A927D6D5E9807FD42AC1872 +9D693856C589761CB8A36C4523131D13BFC3B6925634B993B49C78B0E971075CFAA66DE3DF4C +EB6D8956BA41238C05C5B77204F79BFBC6C9FB29DA721E0041BB3DDC31BF803324402665EC0F +E24899D0847C9EBA2ABA6ED49CD793EB44F399055F945BCC11DAF06A52DD7328FADB3665D939 +BF00025C4171400674D194D625F0CD90DF99A143A0532FD9D16052CD53CF8B60BEDFF9455329 +BAFEA39037945C16D67277ADE749F095E25CC78E1B5C1FE66FCDC6C3527CE7BD6FB174007DC2 +E1372D4003D4067CE2AC8AEED06876BE6FB5D1ED275A4A86FC1F34CF35F2B316108F3318D881 +61EAA7A5AF56C4697CB3628EBC3BBD68FCC3751D4320178E58C8AA5AFBD657A862BE63FD0F45 +12A136B0DF61BEB24445884FF44725195BBF2533B8744DC5CA8FCDCE869D8E4F3F400415201F +BA7C6EE63090EEC569D8352004ADC811797CDF0438EC6172A35959B9BBCFC794239D606A43A3 +42D13793C0D6AAC4A9C153D63432E19B0BA9708F4350FE0EAFA65340D527DE5B2C310F83C3B7 +D26B688D721528E62564641A962888911E0CC0AB3B4882E2B8A24F8118316A88C1889843DAA1 +80D7EE37376DB5D709E0D9F76CDDA1540EE4F42745B5FC94E936A3FDF99C74BA8104A47DE243 +E2724F75E8B2A2A49154BBCB31E52D767DE5BE89B6E0418E84D4924F080451CFB8884C185E9D +F511615DC6F2FD9012F7A801CD43B204DC267FEF6CCE6E87E37D4D0CBE4665779FA74FE4ED44 +3025D6C59BE838448EAEF56B7BCD261D4B179E458435426EADD10F49A8CE9F2002FF9A0A24CD +E43C5E2ACCEB1B9F4E5E73602A460A9A332574B1AA29C4BC1C61083949A5A57AED96E758FE59 +3AFFAB80E4F03C4988BDBBB1B71DDA87B374F9F1552FEAAFA1C8D36C652956A1B9618BCC4CC7 +7411D445E27D4DA04F7EE7CA9C2CB80D3D522169603D8814639B972ECAE3637AD72200E03AF5 +CFC81233395DA28840266C5CEC035D68F5D0FF4A45ED1AA05DBC96E7DC3399B6DF358EB74CC7 +F602F2086E6E1C9D7A3A99681AF292642CF509DDFB60CF094D6D1AA8F69476EFB2E929431401 +896C13F3B66EC392095C964EDCE608B24C41E733B807F98E9D6D696D215E4FB20F2410305DF4 +759983E94F649F1C7AF96AD6975AFF4D7DD64C18CC27BCDF629B74EE04D7623C04295373643C +136F02E7B318E53EECEFE3F227CFFCD1C9D60560FEEB700F3C63C74FBA0E03CE1F099A5B7424 +2583F4E1A2078ECF4F5A9975F33BE1F3D93751D3DB9C81A6613E8F34CC8374E9DA916DABC69D +F8F76D3F1AFF204B5DAA74C80459C7148D5DEEA143D7998860A2126A7EE248D199D4A27DA6E3 +C470E9D8BBD10578D4D49D1738BEF79120FB40744F0F54FEED6DB9CA45749E31111B4B12E1C1 +D464BC59000522AA7CF9C8C7D22781E93021479629804B339F5E72FE72D6F32DFB39D7009B55 +A7BA74D82BFA921F63181300238685EA10E0021B46461DC28B5B082CC5EF261FA5322F97E8A9 +19961097C55716452FA03AE4B0DFD64CA8CF4C96CA8BC6AF5E8C1CE70EC8C58A082051531C1E +24167717AAB1535EB391D680F162D32EB49A90EBADC85168E97ABED8874D03D3CDA71110750F +A22E3E738B6BD5F9141D07BB156DE7712AFB1EE166AF05A1A90EADE53DA6B36B14652C505DD0 +D8B400143F95D66EF71378B04B381CC8B420ABEB0769C9AA13CD161264E5A28CD054FD4F55D3 +0EAB8EE258255B88E739EEB071AB428CE86331844AFDD428820CDB0EB70A5CA13880A4CFFCC5 +02026B009444D975451B6C60B26B0FE2E3EC0D783EC281E64FE384E0749C44639A31875DFA6E +70C61E45880A0EB9890946D3D1B91E57D8E6DE5E79CB7AF395CEABB432B23EB244DAE91E4D47 +35F55B7DDB66BF60F4CB325242B747423ABD8CA22C5F9864CE93C374C60520322F797F7F3A0E +2BED691D1EC2F026006C7FDFA2F724A079ED370C6CA12DEDD2736D46E8E656CE2A7A2875D49A +ADB5705D9079E9C2144B99EAD69234A96A5B7916B765A04337C2E16414C397658539D9AB74DC +21AD7209268CA4C7F6F2EFE9AE27909D5358CFF49B3E7509D2D2A127BE172313BA80E58FAF80 +4B8C084ABF4E3C388B187703BC93AACEC058F089D02DFC3DA3169406C20BE3CC1BE4DE755D62 +E34DD07122FAA0B501C3AC73C32C178B6B5A4F3A5D651473DC0E41E8FECFE63E58E7AFA59094 +F373CB20DDDFD8227E4D5DAC89E93365DE55774F2F6DB49CCAAB149244E725832123140F8AA7 +1B1174A9F08D2640218264A79C26BC1318A5926ED09A583A2FA10B969C3B05507ECA6D25EEB3 +A8E999FE275C209C0F5FE8EB2FB751B903141E52E8C62EDF91A74C6B96ED4F48EC550D64EA4C +833E32A032287E547E2C14D6B7A1DB43793A27C1327C6844D4BE8F14F5D345261D8768F5C9B8 +E639FE63C3C6A6B246F37F4C9D1FC03E34BEABD9D227B543ECD5C2E3D1E444E75E329287EF99 +E3302B40CEB3848008949E8B86A96B9E1416F3B0494A98D19EDE280B854867B51873337D0B33 +88CF0068C0007BBD61D895B6C1A03CFEFD238DD4398A4992364EDC49A487F76E1756F4A3FE75 +6C3971AA8386CF177A786F8FBC73DC541282E3D9AF5F306B86FDE97621DF5D588E9A5CEE355D +961852E3CD9AF41DF96CF1BAC22B20AAF03674EA6C6AED28734A9EF31C2AC4F69090D327B24B +3EF8555373EF1E53890220427BC45FE34270611E409AC31CEF856BDBE78B34765B2649AB11C8 +33CD8A64FE27621887A494786246AB84243D7F96368A18E6A6180A4DCA2C96360187D8DF75C5 +832133049047C26F3B197D66C2EFD56DE83DD42026700358250E82429EE136E491E704AEFAF4 +D12FF0C271919941E862BC1809ECF8B27532197C5C60E0DBF2B77A04D656A9C98D95B4CB0E39 +0751C1E7CC79098E249BAC224C654D3CC2AE2BDA237C10E8A253915DC92C586D6F6C790D3E48 +B6A8D935E236DBFC9490B1CE10510E93E630EDF826FF00E161F823261D8278D38DFC9B4384EE +6F9A15E7097D4C769A22E3A4629DE5C720CA1252BF0AEE99233D01E3A2BC37FB076638369486 +17F977B23D4DBAFAA19CFC73A5563286DCED3C0D8BA90822D4E805ADC6803D8AAEC8FE377809 +7EC8C4635A93C7D598F17FFEEC66003ED2397A59745A58C22532402B4F0BE15105FBC7D28EC6 +8FEE49A62BC67876ABD4F0080FEB9705D9B63F9242A6A7DBF65C7AD04BA93C4BE6FE9733004A +EF92C5F61F581B76DAFBFD5A37D0E30731657A315E779002A7C6538D0FF4BA18430A94B645CE +4829B9FEF1331CB0CBF5C46B392E7672B3E0D576E73CB17599470FF6BF88D93C4405BE9C9A14 +07446D3A12157DE158F9BB383EDF5E04E9FC779B7B813932BB8CE886A1DFE6127D6AE38D384A +7D8A1290250C6B3EEFECE49B5C1075B61EA864EF92CBC48A982ACD832AB3C72675126E42A7B9 +485D8B23D548178FF716CCF47387D368E0FE5B222A249F9E74BD78508159EEA09D3AB47B31F8 +EDBCFC2BC892CB3F62960F9DAE9166034B32707F60F9F788D922B6AEBA1356E9C8F42C336FD2 +0053A688672F82B7DAEFB64A4C1383F82D01BE1C86EAD885650287738BE89D5D73F02A680882 +6FBD7BB8F426790A66C586E00EB37DE4EAF7901FF78888E326171CC4056402ACA92015569273 +252DDE899EDC907556CB0E0AF5AD2401E294661CE7AD35B3BF1DEB00F7E0E610D56318D4A8A2 +8A3952B2A2EFA34249488F8AE96E9ADEDDE091E0ECEF21AB2A35A507EA49EAC3201CAB0B8395 +79CE904C3DA386875E5B2EEA441E3BB7782525A7368729DB734DE7F7F9A52E3426D1EDD7A52A +234BA3DBC3DFD001FB0A0EE959DD6A0BB4C54AA84ED50CEC2CEA7732D24184670FFA32CE549A +04C99E47B5DC087210CE220862D334C1B3932D8403CC2124851AA1D43218E4199C24ACF69833 +5EA670442CAEE6585B2666FBFBE625A24932F9E661D24FCB59CBEC02AAA908C6BB125A8C224B +91A8274F81B550F09B4862A9B32DE3174A20E5B4198E1D1B7FEAEB56DCC243B9CB1C0335E1D6 +E10BEFB1FEF1F992A08C07416666F1B231AEDFEBF1ABF3C416554AB00235D302C72A60FC5E36 +FD968C4C208DAEC7E8146E791C99E255CC74EAAB30CF889D5E9792F8FB3E87758EB76975A74A +0FCB6B82EC7D3D66F33A81D2450DFD13933748F025DD7BC6A98DC18B80AA00139971A3CFA94E +67F54E8C0BF8FB959B40E672E39A63C9BCB0E2B4317789D5E0AFDB134C5F083C1476E38F89B9 +C573C9779D045192C6F8CE41738C2FCDF3371A5966802B9CC634CEE6AB3405B9A624BFEC2FCF +9E7C8F88398EB3D020371B15EB7E77A8B4E0B5182CA1B4A3D38BDADF9C9A2E3170D6C955E6BD +A804BCDE19157288C75C4AFA918B900FF50FED16FE67802DD99C9C5756B3CDA9044DD50A0762 +B13D69FA441A217E8D0C2AE9558017D8D8A7E8E4A78D0D51501EB492165089442C901333AF38 +280CB079A57D00C218D61A51C88A91E8D227BB9E6318AD0BE7E07EACA0107FB6F77AE9260346 +51FCE526870CEDDEE10F9A7C5E6E48B48C09216CF0485A09EE0DE9202D8811F3D480E9EC5685 +CE4E9D41B79810FE3A394BFA42F7A060A8D341C0B9A2997DBF4CA279D118AE8C0B0F23F17E37 +E178B3EC8706BB29AE110E732EC701B68DB4014878DB4C88399180A4B6464458F886678B9A31 +81383B3BF84469AFA6A3865C5672AB4B994411C10FF1D1502B111D8AF50EAEEB5E7791CAEA01 +E89BD4029DFC82CD0650845F5772C5A6CAF7CE5307CE6E629C4E2ADA2A5902FE2940E9119ACA +9E5CC36E96BEC4FD2CAE340A7A5DBAB606CC25435A7C27C86CA8989F1E2CECC51029DF71DE8D +B6445A99DE978B0D4B7FEC1960DF16B3698684C45054924E08362E819BC3596A3388F90B14C0 +B4BE4D9D969C68D7CB76CC9D27A96204FF57E66BEEFF780D58473D5DAFFF5531F6C2C71DEFE0 +F8241FB1C137C15C9E3775AE3FB1A4FFEFD9C9CCD29D7A9D081787A200842A6F4CB4B365375E +0729A20531D7B551414BF0CC4BADB39448844D3254EF79AEE27744677B12573930EA4D74417A +E2B78DFEC968A19E1804ED70FA8E89EAF0BBD6E5AF9DEDCFBC0E35D292B23733786FEB84600B +53C2799230A287BC52FA90B5511700A01F6316BD8435BDBF701DDF52BC6945920B992EA708E6 +150ACB8A5C05DE8D5DD38BE4C740AC770F1ED38D07D5EF39C11DDD378CE9117FA92FE5297524 +8561182CED75795C5CCEC9F1D85EE4EEB297F525742ED80D0634871080CAB6C7B08D090309B5 +E348B0CCC9A00E86BA3867C8CE6A20FCBF309CEC5A11BC1DDF813099072EF32E50573FB0F010 +18F7EE9C65A28399A16ADBF89CA34F59E3994499950736A7883FDAADCD02D5713222F5DE67DC +0DABC4D7364119427200D8AA5BCF1E43BFC10D75FC0CB4B6F9BE0ECEB4A1AB8A785CF47DC88A +F9E38B8FE8A94FC734DFF0F941ED85A91CFC1F9DDA3FC5075D0F13F7F9CED97600AB6F593575 +50432FFED4E453F8B2E1BF9551425E711BBAE472BABF410A4F550B86AD50B49B1EAFBFDA4E94 +8A929F8E18CEBD1FAA42AAA147F7AE354A09D380B1C7BFF00BBE5E7D47BB633AEF50680FBD46 +89FBE0630404C4735B52C2700BE70242C3D12ABDE7A60B6FF5ADF9810E3CE1EF167828E9355C +AFF4E3B552CB3956B3BAD6A901706132CAF00C41A72502FEC1B6BCDF08019BC2E86E172A702A +6F91DBB61BDD71C512886BFBA1891CD6BC6A7A095806D40F319489567F9CA7F81C2BE7DA623A +1EA0FBCE4BD65AD4955C15B2E5C68B7B1585B22C2DB936479F7793A82B2D081D53AE3CC92C91 +0CD9B82A84D305716FED5DB19477CED12FF7DED667A73F92147A2CFBB1A9D7AE9E50BAED3128 +3705B4281F67B758D54A85F1DF60E5B6CA8BE557CF44A4D6ED94D138DDDB407354082D212E5C +CF7FE4405B923E736A1194B149AE67EBD07D5BC4FAF65DBF640DDADECAF2DE0B8BB89C98F641 +1443CC57886CC6B9C528C5DDFE7C576631E951514C4EDA97D6B8E206CC897772804299880C0D +3D30FE3D7A881252A078EEE91B38918636673A031C4EB0027DFBED6E15522E278F59009F767F +6A456BDA40BC5F24524F7E53A7AEA834B1EDA1AC3D4886278C005078EB9D4245FEE9D3D60F72 +240658AA140676E357E4AF83A156CBDE08B0D78AF14886673053A123BF9C0512A9095E267AC6 +1D4EA9E3F8AC23FCA7C3A3548C9FCAB6E58EBFE67708CBE360C711789498A6108176F2C114B9 +47CDE1E0A4AB6FCB1AB08101F3FEF8F807E30670F9281AB0891DC5CC7F00E98A3B1B050C77B1 +82226F031A3A86E605E28F1B43D7C70ACC72585C210DD9C2BB392753B8759E45F3EE81EC8DBB +9A57A0081E82A04800E5AEE8567E96A4B48AF1281AEED074D5F06078ED3A2D31701748423490 +C971E1049E01A1915CBA290FC1D18806219B7DB3ACF4F1C1E67AFFD446CF51A9D6AF922BC426 +27F901B5BD2F72FB7B145B03AA8968DBD5D378C66C3725744DD91E3BFC2483FBE9DDF01ABD81 +AC37A75D1AA1C9F5FD89F8A6F5A80CB70A730340CDC11B276E6904734D14F960DDEFCD77A6F9 +1B033EB61333480176FD4B58F6BB4C162FF97C904E30144336B0D4E51D25756B7CBFAB4316DB +0E56268C55F4EF84E03C60BE701327327932FCF2A4595832B13DE4D1F9C18B2C30F4F2DA2984 +4676F30C5C834050DB45C7BF56986F40DAD44C0CA9A31EEE7A190031216089455C9CB7347633 +1F9B45C211A31EBD37A1A3E97439BA981264A955F2E6EDBA6A7B99BD30D376BA2E375F98EB9A +C3429D21433665B460E9F891C11D15F32F277960136B8C7D4D1666107141F236F9305B15E46B +FA0AC620FBD1545C830DCD7BC704FAA0D464DAD2A3BFA53D7CC1E14082717E23EBE9BA921E98 +7867742BB2721C76A84051A5643F4C80A402F4A345DD86B6FC4A83041083AADEE37849F136DB +8C4146239C066C8EBE98F258B15A70974565E0AC96AA13B2EF603928822BB85A305D1F543F59 +E6F3B55D486AE0DD7BFE569CC270C9570849567FAC11FDDBB8EB3E4A7397FC5E3CD675A9CD7E +0483F31DA96AE25C16FE432CD32DC07D92354727A942CA3BD098BCB75A7225B61E53F22796BD +CA158C66BFF48DACDF39F0BABC9D5445C5E2C29C6A60C3CC5CA778815ADA78C03EF034293CC4 +DAA172CC986045A5635984D6DCE6431CA7855C2FBA6A7E75F55F59016354C2D867F2657F5FF1 +D629D6BB2FBFC4B856466A6459131E99DC8CD8B85A2DF01FA19314EFFC7D93928A5BE0AE7697 +CAE25A3E21F1D593404346C270808B0423846E466A4A7ACD967C37DE1819F18563B8BB44C563 +F7CAB5E25DB087C67848A8D38118786068DA64E18012F59FE77F8A7D3EA0871863FD55F054D7 +9DBF755A6CE79DCEA28C7FB2D8C90787BBBA4E9BF9D5F138DF76E88A6D39E72F848960092994 +CFFF9EBDC2444005B0545D9E16B02B4CA2C82F8E4BC9E99C48A4A982C4E01E2C5680B0B0F33B +03083A84E6FC73C9257FD67EAB53F62CD3152FE8E784A028CF5E47044715FC8D22FC559799DB +36C3677A3E3227BD5B2EB32AA8F68DB2057F726F049BFB8FA47F8AD3EC33431C1EA0874DCC6D +F14A319C21AE89A6C66A7138FC370EE2421F5CFF5E6C0E589B35955E0A5075DD8438488E3D88 +BAA6B3162A09E5F509E90AD44904192A9427963BE6C1BB4BDC5FD1CEC44C547D740607176757 +0AADED6FF28C7DD7E1E25752EB9C740E2B1EAE0D6A11A45CB82D64D36A7077D95897C94E23F5 +516DA28AF3FFBA93473BC08008B4981740FF5CB7071529E002FE2D6C8A88B4CBE6FF82B504A2 +7239657DE619B6052F8906C2D8C61C11C19D9FC2FBE38D57F050383FB97FB7F7FD0453D3BDEB +158EC1452C3B5E2D0E811DBD3B0775347F264AC4F01E10964DC43923F6EADA25ABD72FE52416 +4675993A1BDCC5AE08E3D1DCC2E7114C2483E5EBC03AF0AABF47412E4A3802318C52B7C24C77 +5738ED8F5F49CAF334AABB8D6926BA5B8E5273E6DD34D0E10F799106B2B6B3CE586084FCAAE8 +CFBD4434AA3A653B79E1AC689537B0DA5C6472117F77D97B23C7EF00B095517B518F4855E955 +0C384F47885109E1F5B32CF36ABCBEF708033EC7E91A886D404E46E8B665A74CA00A9243DC54 +436286F2F338B9A3681C026F76EA0F1018775119B90E765526E016BBB9EE31CAE5343028DEBD +5DB5F2BD66726A54EF694F486E474FF5733947B447E2C18DC328A057949EB0744BCB992FCE1D +613E2C19A5D2A2B0AC283446A1BFEB92100983ECFA10E766C10687388737B43E15DCEF774A6D +16BC93DEEF20C74317F2A02DB874DE8CFFDACD6D0974C82DCA89C19B3899A71CDB37401F644B +D1626F75D69C2667F71B3A67B7CDFC69C6A10D7EFA4F5B0542CC99A9739AFC597DB4BE5C1AD1 +C47378A64F633000AC45D6C69D2CCAA81FAD4D8D969525B93A12716459CF5660724F0DB92AD6 +442358396F2616E534E756B5BAB8CF9343791F981EEE5E713D7A761A45B8AAD2E613C53653FD +9C1B6ACB1132FA3EE581087A87D48C38D20C3BB53F6EA573BE8F436541E7398AEA92CC5DDC72 +BF9B3FE1EDDDCA27912DE90E9A31CB340224B2B09B3E4F97B9218FBA091F79F08080F8BB99D9 +052557B9837283AB7DCE7C822146FE851E493E75E135D550D6353668C4CC9F20380186FD86AE +6426548302B31B71B392340FCC1F083A46D6182F3B462FEAD1C5EDB655E67EA635848A4149AA +97C01188ABA1F004A698F4643099E905B2F1B7D04E825664772756ABB56CC74AC3B0E1F5F32C +CC6494C17DFB2D673011CC37039E64522F69569EE62F8C1474180DCAF4FDE9A93F0A817ADE9D +B825CF187C17DF94E596E050BFB5E136C4E5894E1C2973C290CF9DDD5311AFBDF2FA25899EFE +EDDD19A3945B3F30B9CC508FA64A44DB88F1BFB6C0F93C305EE010F20580F65DF7035403CAAC +22FA6D3198B938681CAF25C6962B5F2C41E6C64070E2A328C15E6DDAB2EBA3A5D75D4DFC5B4D +7472F72887CF1615BB8E81C5F7C3729D5666CE3903E4CC1F600B561658450F1214D325246635 +57BC6B8C7BE6737AB89FC5F2DB845979FE6DFEC15FC41F359EFA346A0A495C5B7CA70EF3667F +4B31BB81248F614FA86A8800424556B60E9EFAAB03A71EB590D65C81A093D3013F37A5F1CA07 +E03962344C95BA3C095B8F9494DB82ADF4F0365D339D0849FE1E597F2EE8172FBBEB6B685D0E +7DC1C74B7087778859990D265B64B1A23A8022784ED90B58F1D29829CDAD16FCD2F632103233 +8D47AB956DA37EC0938F598D631A510F744AC2FA405D99452072370B2197D82B5F9FA0624FF7 +F97134BEDC1E66CDF1922189BFD95CE70932DC975736C8D7C8C300C5DCB8756B657A1C36AD8D +5FE56E8004F8B25B1A8E354D167CF72F59E5C75EDFABF7C166364CD8CE1FE96F72C93A55580D +75E36771F002CF82D9546772FDCC0D07137085C70F001739138FD4E6BC398A4BFFDFFB944FA7 +84610C4ACDCAA36E372813BD6710EF57A1C4A16024632CE6827A04A1D2BAFF7D854D0F14BB92 +A9D553B03D9099A8BDC8140CB3D822D59AAD388EC3132A9DA32CD971BC4E2614979C21C6C21C +15004A413CC32DE8523A3FF48F7F77BA821C18AC58A9BD1DE98F51D1FE016DFD613B44398F72 +CD5EA6FCF9BFD0C261CBDD206E5F8EE4458BF4FBCB7258D0B32E527DC18E9BD1531C6BAC0980 +D8310456F1BE3F08D6207DB123FADC1D4FFA91C7967F0EAB5AC3F221836C715F606634831821 +7C41438F11A4DFBEB1C7EFF0F309907F28FE2F796615DCF57EB71DCBDF4FF0EF74DC514FD192 +BC97A03C6792312EB0B1C0053655748C318C2187F80BDA14A4D4F87594045B3E69E7914C6A9D +1CD3720131E0C5F7C8CE9D5EDA4048E3F197AB32BC69D844C76CA1508E8D17AD864427B42ACB +8B58FF7FE7956FCE3746EB41B7F02589C9A6154C07C1A459B5BDE3AF5327454F2E3D22E07C8B +EF2C6060FF4FE810EFD2A36BCCA6BDDB28E1FB5B35C600D3AFF7F895272F6F3FF175767C4842 +20ACCFCB32154927FAAE582F3BA6A369607730BB908F91A41EF8E272C8CACFD094485E29B441 +FD6F74AEDFA159B2436196BE7999225A67DD43AAA5391929D7329053DA2DA987B3CD71F11965 +3AF8961B6654C00D254EC50FF792A360F3438198E0BCC5BF76089ABC28AA87E49EAF56059AA7 +A784032F1E931C2508CFBC125F3578694BAE285A5481D6ACBBC1FBFF08B2DEF1E35EF1659175 +FE5BD238EC397BDBC8958155AD0589E4AFB2CB4F5B80BCCDA48BFDBE6C9EC9D678FFE11CFEC7 +562660AABAAC3B912C5D27BBF89BE8E38E40CAECA5970B7B3C68F40F9F95A8866712D5F3AAA8 +186A57D94644B1707A003BA4E78FB3FACBBF85167933FB1DA083A04175C73B7A47D2F6504551 +62C42F4DA1361EEF22EFEF107EAB5617628324BF311C7715D8322EB5E84E5AEF97796AF084A4 +1379B0ECFF59CE8549E316323DC055C0F5B75A54B8FE9A623DC911BDDB4AC01D73EC884AACF0 +95B3E73B10C37D1EAEA740D3156C2B57EDC0744882BF1CD4864946B7C865A68C69572342F986 +264E8F3679DD0FCC666D30348366BC08E65EA757FE90A3EC913D9E3B34087F9AACC3E29CD847 +14510D43240836900B962461E6FBA74E6BEAF38DC4AF17DAC08840B4BBDB9E9CE827DB29A428 +058A4EE0D2CC9388E269885AF76ECF1F52519AC1599E9CAC38080C1E6392D2E1614C86EE084F +955AF6F129FBB904EF27D5B54122A320D0910DBF08C61DAB445AAF813753104B089E010D3CD7 +D92BCD42F9C4C039F8EA5BB0DA461FF1C346A001CA6F6782F11109568053E87224CDD5B7A2FE +A5848F641C2D57A7D39728284301CF5D8B794EF9FE03CDD210E7BA14DD9F1A5D9FB2A96B298F +3DD352723CDA0C7FABDDDBAEE65759AC9410C18E03940F5E4A37A168510D661960D0213A1A1F +2FC911C28FC19A5B87FC3533D5E47200E663CBFE816F15509271D7B0419BE1B05D5A13C10197 +8FF2115C9A1552C6A9DB106A8DD7B30D78EC7864752661C33118C1AA22ED406A8A231B41B2BB +40B8740CFB3BBFACE7C7302A3A860FECC6CB09C8AEDE145A731357D2A959CDE4221927D5F0BB +D50E29B0B2C9E1079301470EF70DE54B9EEB33FEBBE4F291AB0496FDEF039A944B3F7B5C91CF +D325428B992B1E0A6F58C60D8F2533E5B81EBD52346C09384B3CF409A410078D52FD13A472C8 +51DC4B79324425459DB667A7345E0D96815D465C0C0C564813CB1E07B49AB0FB9D3E2E3AA040 +C56C4497035E80522D5A65469C7DD5AD1E3E6571760A48F9CEF87003FBBB6CD64C070E7DEF3F +0A6978949B863BBCBFDDFC043DF4544D500BCAC429FBB30A837844D1FFA005FEA2DCBB9F2FC7 +80752F733095D835D496DDA2040D852077B703D4B39F8121AD8E615BCCDAC35DC1FFA9FC1EDE +849039B5673F1930BEC782408D8924A2E8DD51CE959A62347E710C6B23FD79B9FD49E30CC469 +678AD04EC22105F4FCC485972C7964F74522BDF586A60C74F84DA75C0443497FC44922B8E547 +235BD89D2A5485F3388F6903C8DCD090DFB733E2038F45855E98E9CB4B8297B6831450502CFA +982D7FE8DF5794799AE1302FEBB6C5A7E2ACDAEE96E00D574AFA52EF6A562CEE1746C4FEB655 +77FE44C5745BE17DF4BECD11ED2A05C302A739D52BF13FF81A469540070E64C7A88497215B9C +AB374E9144ED1E1641904074EE4FB70805191FACD17D6C06E9A148F39874A1C82299EE574C8E +F82144E6AEC0277392CDB76BFFDA4238184BBCF3D5819601F89165CB3278FACF1C8F3DDFBB7C +85E98E27BE8C6314BC223A1C579FB9C9ACC86C16701F59E80A1F62D2F58BBAE2514E9F85E28E +F161DEA1C9C7FA580A0BF042CB30FDC40000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 + +cleartomark +{restore}if + + +%%EndFont +%%BeginFont: CMTI9 +%!PS-AdobeFont-1.0: CMTI9 003.002 +%%Title: CMTI9 +%Version: 003.002 +%%CreationDate: Mon Jul 13 16:17:00 2009 +%%Creator: David M. Jones +%Copyright: Copyright (c) 1997, 2009 American Mathematical Society +%Copyright: (), with Reserved Font Name CMTI9. +% This Font Software is licensed under the SIL Open Font License, Version 1.1. +% This license is in the accompanying file OFL.txt, and is also +% available with a FAQ at: http://scripts.sil.org/OFL. +%%EndComments + +FontDirectory/CMTI9 known{/CMTI9 findfont dup/UniqueID known{dup +/UniqueID get 5000827 eq exch/FontType get 1 eq and}{pop false}ifelse +{save true}{false}ifelse}{false}ifelse +11 dict begin +/FontType 1 def +/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def +/FontName /CMTI9 def +/FontBBox {-35 -250 1148 750 }readonly def +/UniqueID 5000827 def +/PaintType 0 def +/FontInfo 9 dict dup begin + /version (003.002) readonly def + /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMTI9.) readonly def + /FullName (CMTI9) readonly def + /FamilyName (Computer Modern) readonly def + /Weight (Medium) readonly def + /ItalicAngle -14.04 def + /isFixedPitch false def + /UnderlinePosition -100 def + /UnderlineThickness 50 def +end readonly def +/Encoding 256 array + 0 1 255 { 1 index exch /.notdef put} for +dup 0 /Gamma put +dup 1 /Delta put +dup 2 /Theta put +dup 3 /Lambda put +dup 4 /Xi put +dup 5 /Pi put +dup 6 /Sigma put +dup 7 /Upsilon put +dup 8 /Phi put +dup 9 /Psi put +dup 10 /Omega put +dup 11 /ff put +dup 12 /fi put +dup 13 /fl put +dup 14 /ffi put +dup 15 /ffl put +dup 16 /dotlessi put +dup 17 /dotlessj put +dup 18 /grave put +dup 19 /acute put +dup 20 /caron put +dup 21 /breve put +dup 22 /macron put +dup 23 /ring put +dup 24 /cedilla put +dup 25 /germandbls put +dup 26 /ae put +dup 27 /oe put +dup 28 /oslash put +dup 29 /AE put +dup 30 /OE put +dup 31 /Oslash put +dup 32 /suppress put +dup 33 /exclam put +dup 34 /quotedblright put +dup 35 /numbersign put +dup 36 /sterling put +dup 37 /percent put +dup 38 /ampersand put +dup 39 /quoteright put +dup 40 /parenleft put +dup 41 /parenright put +dup 42 /asterisk put +dup 43 /plus put +dup 44 /comma put +dup 45 /hyphen put +dup 46 /period put +dup 47 /slash put +dup 48 /zero put +dup 49 /one put +dup 50 /two put +dup 51 /three put +dup 52 /four put +dup 53 /five put +dup 54 /six put +dup 55 /seven put +dup 56 /eight put +dup 57 /nine put +dup 58 /colon put +dup 59 /semicolon put +dup 60 /exclamdown put +dup 61 /equal put +dup 62 /questiondown put +dup 63 /question put +dup 64 /at put +dup 65 /A put +dup 66 /B put +dup 67 /C put +dup 68 /D put +dup 69 /E put +dup 70 /F put +dup 71 /G put +dup 72 /H put +dup 73 /I put +dup 74 /J put +dup 75 /K put +dup 76 /L put +dup 77 /M put +dup 78 /N put +dup 79 /O put +dup 80 /P put +dup 81 /Q put +dup 82 /R put +dup 83 /S put +dup 84 /T put +dup 85 /U put +dup 86 /V put +dup 87 /W put +dup 88 /X put +dup 89 /Y put +dup 90 /Z put +dup 91 /bracketleft put +dup 92 /quotedblleft put +dup 93 /bracketright put +dup 94 /circumflex put +dup 95 /dotaccent put +dup 96 /quoteleft put +dup 97 /a put +dup 98 /b put +dup 99 /c put +dup 100 /d put +dup 101 /e put +dup 102 /f put +dup 103 /g put +dup 104 /h put +dup 105 /i put +dup 106 /j put +dup 107 /k put +dup 108 /l put +dup 109 /m put +dup 110 /n put +dup 111 /o put +dup 112 /p put +dup 113 /q put +dup 114 /r put +dup 115 /s put +dup 116 /t put +dup 117 /u put +dup 118 /v put +dup 119 /w put +dup 120 /x put +dup 121 /y put +dup 122 /z put +dup 123 /endash put +dup 124 /emdash put +dup 125 /hungarumlaut put +dup 126 /tilde put +dup 127 /dieresis put +dup 128 /suppress put +dup 160 /space put +dup 161 /Gamma put +dup 162 /Delta put +dup 163 /Theta put +dup 164 /Lambda put +dup 165 /Xi put +dup 166 /Pi put +dup 167 /Sigma put +dup 168 /Upsilon put +dup 169 /Phi put +dup 170 /Psi put +dup 171 /sfthyphen put +dup 172 /nbspace put +dup 173 /Omega put +dup 174 /ff put +dup 175 /fi put +dup 176 /fl put +dup 177 /ffi put +dup 178 /ffl put +dup 179 /dotlessi put +dup 180 /dotlessj put +dup 181 /grave put +dup 182 /acute put +dup 183 /caron put +dup 184 /breve put +dup 185 /macron put +dup 186 /ring put +dup 187 /cedilla put +dup 188 /germandbls put +dup 189 /ae put +dup 190 /oe put +dup 191 /oslash put +dup 192 /AE put +dup 193 /OE put +dup 194 /Oslash put +dup 195 /suppress put +dup 196 /dieresis put +readonly def +currentdict end +currentfile eexec + +D9D66F633B846AB284BCF8B0411B772DE5CE32340DC6F28AF40857E4451976E75182433CF9F3 +33A38BD841C0D4E68BF9E012EB32A8FFB76B5816306B5EDF7C998B3A16D9B4BC056662E32C7C +D0123DFAEB734C7532E64BBFBF5A60336E646716EFB852C877F440D329172C71F1E5D59CE947 +3C26B8AEF7AD68EF0727B6EC2E0C02CE8D8B07183838330C0284BD419CBDAE42B141D3D4BE49 +2473F240CEED931D46E9F999C5CB3235E2C6DAAA2C0169E1991BEAEA0D704BF49CEA3E98E8C2 +361A4B60D020D325E4C2450F3BCF59223103D20DB6943DE1B57C50F9043B95BDF77C1450E422 +362CCD41FB4AF30F73B66A85AC8DDEAFA65B4FCF0033D034E111830CACB981C2AC41AC32863D +02E6D9CA81F8D407DE4AB20B4CB6418B8067D694DA026E76FF50A7197281B7E8E700C4A88242 +20374DE1CA077D50A8B751391E35FAAEE0AB0604164A16D476EDD5E33B08639DCA14796F27A2 +0EAA52D0BD8B61065AAD083E4AAF626C2575C56F87AAC636FDC2E5ABF623F2D916D3CF5CE870 +3D2971510A664F40B144A2F3900D053B709210AB8678EF1F527A7F56FBE49B8BF3E36F76901C +6EA06D34F14EE302CBA38D4A31029722C56096218509B69186B88D9D13C0E3CABFAB064F2054 +BE744E87AA69548E78C3CB4EA0AD49F5C3AF2F482B96FC14CFECC7A7A10ABFC4E51EB600C283 +CB7E56CDF78061379E9232EE8EA030168408B0FD5F7C2A3F254E046096BC68E24F7ED4A04A3E +054A89F0CDF27C5B82097E18C2EC1C7264BEC825B81EC2867D4CC6CA61D46E586EB9CED90F7D +44D81E203D4DB8A895B4FE6600F61802CCCFC891A2B1E28364F00B43362EEEE782A5F82ED2D7 +8BDD4CA8CC7018AD04B4A61A2590E5CB28A8D27013D7E41CCCB5A9CF820DF01B69F4538394A3 +5CC61959A4AD71BB6D0B52B081BEFDCCCDCFA93F56AD398B029AD1716E57F4E38D8F8B90AC02 +597C64AC97F6D6A6AE0A0EB8891D4B0BC45D820A2ACDB850416CEA1DB8B09D34961FCCD39DCA +837D320D02DA56693148A3F05C0FD45218FF83481DAFFFDA6AA3298B04D514FBC8AE6AA62C1A +9E8138E4E5C2E9C6FB61A328407DA3B26D980320A7CED3BE34D1E8A608F2CE010044040616E0 +FE9C9F4CBB54263DAB2ACC37CF776747470D2A1BBDE4559634A35B5AA0218DF19E0B132C5351 +F18560F082F813011FC4A261DD597F887D271B028F4DB5925A6B89F9FDE474B95A414D58A938 +D9366BC7267F9EC40FF9CD456DF1CC1384AF90B69BDCBE025C9AFE941404FF91593BF21DA52D +4616B5E2036D7658C4A2B48189E79B61FF842FB3B12A185EB0ED083C6A23B25B45A9DAEA521C +65938B6433F1ECB6192F87B72ACFDBA384C94A329307DC2ED24BE6F3BD79826E4A985E2D215F +7BC30F88B99D6F05F61A801096E30E33CDF0C78BB1EBA9D9297CEF76C75DCC4F9325FDE17F61 +CD4AF9B979C55A7AE6D39C188D3FB82B6C109B1A3358C2D7D139461CD976E6A31C8EA839E970 +2BDA0A7649341DE3C3C79E5C892FE63DA4BCC8E2F36BFF101483AF4DD4D95E907B94E18C9893 +D9F0B1E0C68816579DF17721764D5D2CE396276ECE1E6142DC2EEDF83FD7B65717064CF67105 +1D83F1C9C3C32502F81D571B476D45E3AC36DBF43ACCF25900D630CB6A6C5E816F2757AC5482 +4B66E7CD63D2772B2B91E5298775C418754F9538A19191399519BD2275FFB97517127D832609 +277A86A4CEE371056778AE1C5FF657F4CBDCB057E6742CB2AD2CA9D9957ED59641BBF7DDAC89 +AC669065CE31BEC95BA7654D9247563259D95D882E4E7D42DAAB49909A828ED124D8F944D07D +598142B2B01405647568F189A2525F65AB89ADCF0CE218AFCE8DFA0F2E22D0BBAFECEA6BAB03 +C413C12D01A0271DA67046415A11DA35C12CFC3C5DDBF9041297328C660E1E4EE613639563E0 +6CFBEC7490B3E8CEF6F471EDFE82DDBD55B877EA51CF440903B93F8E2B86ECE1461A77BB353F +333183E2308B37B05E91784110A434D706E9DCF0AE6378293EC7F88807CFBDB882EA37FB53F6 +90564B9ACA1489C88C92FA5171936809964F9F28553E7F0FCA658D1B78750DFA2A8FEFB1925C +F8EC2B6A971B29FEFBF61702396F51A3E70F2B1B896198779F499512901316D5FBA79C765A36 +6F11751FBBA8A734D4EC9848544F10808480E68A91EBFAF727DAE73D3EE12F5E0FBA69EB5871 +EE140EE2F96F1A3E1981036E8E5D88077D9E3FD6C61750D937DCED6F9C3FF870C0E5AB7C4EB8 +1779E9CB452B1D82553BF858B75FFB00F4B82F818B1FC5595D1AEEDA065CB4028F52E5642A35 +2F95115F9CB89BF4E72E9A487861A3FF5B3D035C71303408B50695BDAD5974D91250EA936975 +AED202AF6AF7F456FDC3377D4BC0A1DBEE9F367AD3C934122FA0871D25237F2E680582AAC392 +9357C5F93E5D56B0257212B1E5AE1B00C2B096FE3DC237292B8D3502F3DA4B807DB0F760D91C +BAB0DAD4135A64F637259251512C8D16B80E448CB0BF48188DF0F9738739F1D71B078490A9D6 +B727E71600773402501A321CB5773595115199B93250B8D45F82A61EFC1E5D8DFB41CDAB0D3C +76D8A302B81F713B58C8460F45DDC59C2A03FBB661C53EB6D93E725BE31AB7EA7F1E0B35C332 +5CFD0E45DD6E117DB5C5B3B0B07FA9417327C98917CA48D7C13ADE14DF955CA19B7A53ADB92C +AC1965E0798A28801BBB167AA2FF0C44977EB6ACDB0986C9EE8AC3BA41CC6D004618CBBCE49A +556399BCFF927B921C5AAA5C1ABDCA5616DBF05F7DEAB00B5079E044E4FA871507F1EEDCC767 +4A5E51E12ABACBE1395201AAB1ADA6A96EC97A7C151955264185BB378DBC8723BCBA5F01A0E2 +3B1FFC97FAD36F67CC81455DE90D55873617D37AC8F61726C92C2E7EECF29A0BF1B69266045F +CA8CF11712F363F798E2E25C9B0081A358E0267E11F35FBD3D9B9D75D88C0B7F057B1E3A1F73 +C5174CD8F106DF2F49488059870C45C3F64AFBCC3BC073F157C3FA95899B6FA79F447E970334 +4FF03DCCF367B47A4D789021F0B5D1FD20D7F6B7B5D0BF320ACC90B408A4A000693DD379C893 +BB30FB721A34CC76716BE0AD1D0165F5F88269CBCD8127EDE7218031617F7456C1CE346A9C45 +9F7C9022DD042FEC2AE03798D912DCB2D49212DC844214870492AFD4796B06A36880FB579064 +C8CC0631E2CF109FC10AF7BBFD7A900355FD1FD1BA62E009E7576A357022271AD5C5D907E7B8 +8864D03F3EF26C0D39B9F7F57FE54DF0140495B9C3D909E99A23526EBCF96BE326CAF3A77727 +EA609CAC763FDC7296840AE9F6E1C7BA664C136F43C1935167CC674B694C4831C98F841E9733 +A418A69119F3F1ACD466F675B01D03AD41D38CA567484F67127A6E8950D1A8AF8EC1C9EE2B32 +477F2BDA2F44DEB009ED1C7B2E9511A9773C86453476467ED73AC11B26867E155F9ED2F862FD +B69E017E741484D4B9CC7615AF7E6836C3254DE5B9464CEDDE112D5908FB136325C0045246E2 +ECF8F77694FEE3A0F431699D58E78A94E369F89ADBD9BCA45929263761D399C06E8D0AD06DC2 +6B4D4EE1961F9B8A6E86C48B6A036BCF10BAFD76CBC50320104B0F5AB433D6E0D28A350B6310 +EF100F65F6165011193D5909AE4AE8F1AA830669EE109F144A87CC5C2F0494D9D58BD2098302 +BBA0F3E4DC4E7887E7E775061C370BD3413C3943C1E90068275BA95EC7F54BBFD0245EC94ACC +55CFB9B9C6377735E33E3B66121D77937FD045031410449DF8DFC4AF7577E7E5697155351742 +D6DF0208353EBA2046B8A87AD3F4A8F2E33130BC83FD27DCE15CC04D8E26A9193BC4C8C96947 +CACA271CF291C0D66D4133F3E561A31CC0A5D36BC5DB8F71370FDC0CA114243E84ABA111F5BC +D51143562AF662B98F9240A98EF42B73BCE472456B6877C1680BFD05B53EE1026BCFF84033AC +80CE9911FAFCEDCCE2FFA99D97616EE2081F4BAC1B9A2180CE4A9B390C8BB483300D71418269 +FD0999AC35D155E2F84998A9093C5A05C872F19C14F881F17AD2B639F343242406B5C424B503 +2A6AD90B3FC94044CFDA2C420A54B8DFF3C92E98DCB07FA8C0061A2FCDC0EECCF20405A0212B +50129D33878C3CB749B892126F47AC76CB5027D6CD3C1B69AE6F2F6B56E3594C7AB28304BDAC +FA54A4058FEEF124ED2066AE6617E7E979A88EFBBD59908158E6C6115ED2B3E1B7332DEEBCC1 +0EEB47F5FB30B813773B6080A268BFFD38488BA5AFE25137A0A309B5EEEF1EAE516A7FD1C340 +859404EC2C5C36DA3B93F6BA96B92C32A9E7956613702559BBCB14D06535D90486E53CE7163A +3D0EF6DA5CF4308FE48104A4233696BD3DB60EAF0F427D23C7DC74E28F52B4111A4ECAA69BAE +513FAEA8F8D3F0DF936AF1808C7D64CFB205A0F3A0B68852D6474F3DDBB373260DD571A77C6E +040C388F076CD162A76EBA9AB2099E7CF4DE957F743AB2C0087FBE76C89920648455BA44CEBA +D63A5F3CF7168CFD34FA6B884AC42F8BABA05D84A0EAF99D2E66868962C5E1CBC50329106454 +3F68755001A85961982A502ED8F451A85A4E32591A031D3E8CFA04B97645E32C39466251EC40 +D31AF90C51362C1054B12D6ABF52B3980CF6DE1CC56E122DE909882D42571E2B7937340435D2 +6AB4656F6F7B2E585DAA6CF6F207272173E41B9FB74F8BB074A9150C63A0C17D9DF09ADA6ED0 +20F52DC87FBFB015C900DBFB08682C56BF51A5B7B8F355D841E799FAA8FDD5360CD4DC3230B2 +57F80F6E8ED193D5C5907D7AB16A347FF5FE1AE317EDA29856B68B76605C25BC85C0134D7AB3 +04B0C2D3403D19379345DCF2226C850C5557CF8EB44FB8FA7AB045910A6C505028CDB22184D1 +2C0ECA6BEACEF9CC3AE1C71A3C1B84A49AD2FC174984142FC33AB6C495D721F1400FBBF3B747 +014E68D14628C8EB0571B80F1DC9074B9B7714F6F05607A60029EAB7BA1877798A18CCEEDA70 +132BD54CD6DC91482A4D154AF4A4CD141D7BE660CAEE791BE386C27283EA48DB06513A472486 +3A9935745B7DB3C31C76B0C9A54F98B9395C0C2469F262C31367CB1DFEC29FDD655AE606F701 +8ED0E1BFB4851C8E07F159DAD3E9983C2D0FE70896BFC565C1295AB249110E389B4409EC3029 +7EE3A4578396B9C2CA96ABDA23AB6A7E0C59C7AAF3541A36E3C54925C1D7FE24C16DE5F6B968 +80E47DBFCEA1D2FD498EC87AA1345ED45D029B9354373ADA10E91E584A8A6E83AF8C4CBDD659 +588B07029023294ADAAE3B2F9A557AFE9070D65140794BAA07D853D0CBE891D12A84D8901A21 +D3F64F42120E1244A165E1E1798FDD9372F90473C00EC46A83B611B27BD6A1EAABFA959CCD15 +2ACC75B9329F64D59467CD6D25A4DB5E10CC4E7F797C97DD851EE2EDD728A7E17618E2D75547 +BE959F2DE27F27ECE3A4B015356FFB5C21F5A81E63808DC96EAD762591DB201C0FAB53DFFABE +E539ED6D036D3A00E77EB16D4A40E40A2C6E7DCD83472944483DED100B3C289EC05FAF4940C4 +CEF6FBCF39D665891F840071BCFA64FDA78D95D10FB20096136BAE58362F42437B996D966F98 +7DAB267A851FA00C7C84B7FE9B3B70640E3AEDC2B78405F3A49A00816E672EF509AB07D9E87A +EA7428D6F9AFF926697D0BC6660DBD9A76F12626061163E1849CA188F99F2AB4A6562047F0FE +E1FE5B9A17B32095D4DCAB84B22520A77602A7D5B1B425B3E0F547C2FD9559C2DB2E7E2E4237 +23A0C3F2B96A35BB3839AE53522B9F6274FBA1895D6B1ECFFE20F14D6916D7D7891FCA2BB9C4 +2DF48FCFB7C7C4B416B197FBA1E57CFD0A4DC70483946F47B2DC2464BE73F1ACA616EB1EF2B7 +A5742F34B4E173C7BDB04DDD06D6F03D4B8B8C13545CA2F4942019B0EDED5EE8F3666E6505F3 +C0B6133D7B920AD3C42A3D4B735833936A508CAAFFBDA5C099CD9B8EFC1D3BC054064D9AAF62 +9CF7322947C16E832091972653AD9CEC42D61D4F600EBB34BE727C246CC29C52B7C84DE8BAA4 +E92194509C458F7E5675C969FA572BDC409C0E0BFFA16321B869D87210681A04EBAF1374CA2D +51900EAA700F51DACAD53961310BF6C4246D3C8D6C276BD2CC3D0C3B9CCEC06443921513B4AD +6743804483950A3938FE7F855496F75825CCC7E189459E4B5054271F322DDF65F79415D3172F +ED4AE12C159EA0F4DCE2B6172C4BD65ED91FC67B590D7033D7BDEF735BA812B3E5EB8197773D +4DDA4CBB507439BBFE23696524339169F159055FED8BD0F7B4B629A8F03E2D031EEC3D73702F +7851FAABEDF85962F9C618521733A9F6B1EB5B1E9217E9A3B3719CD9F5C77479D3FCA70DF226 +E5B40F361A367F2EB5789010A838DE5031B4061663E9C9BA319B0C8CD97D8BC226C31DBE965B +62A39CCF5FEDB3F93C11AC64B285C4CD874D6C9C80B4C0EA7537B84E6A252BF6EA369450EFDF +643C13B3C76470F3C276CDC3D7FCA1D4AD9F378F6E362BF02C3DD4B23747D3C39CDBC8788E6E +618A2EB8D534E8F9F5A210AC3DE5F1A1C205DF25B9FBB2AFEAA12A228AF34588C4A6152603E0 +9FFCA2131B048C5C559D07276A8AEF10B6F6D9D2A2B80C28AA8111CB9BBFFF43B334BFF34556 +50BEA9BC9C37D6A09ED26769D51292EFC3348849DDA75ED003ECC987F585641A7659933E08CA +72E553303961C5A6A62E16C7B231672704DA3E16E061B53F51352EE14E2EEA0B35966E4850B9 +619FE88DDBEB08525BD0F0DBC08E25833BAAB9F12B80C41B1524F969B8BF9F2F7A62066A03A7 +EC754C31E138F25174B3CC2263FCDE64A9F0F5B30D15DB7543608082421869A7D0FEB61376EF +2CF51EAA7AD0D1C863A3E5EDF63475855ECD3E7D71D20639027021536DDE2EB0D95FB2546623 +DACD9A582C4B5F85C47597C1A12D66A311872435F188BF37F50614F04544AD39EB8B977D0CFF +4D185D56BF5CA4DB8C80BA648C906439F00CDBFB5CA1D56CD7B519855B741A1F8D0D56A77F9A +5E2A5CF56BF0BFE76D7377CC4665D7F2B53638A5E99A295C3720EF6969AF1ACC6757535B5FC3 +780AC21F8071B41BD3440B6A82A4CB7DA2166A1B901938022C1FBCFB857F75FFA1FC87D3E1B1 +5F35E248B94C109ED1679A7D3035D2A73D36546DE5CC7062D3974D4882A17885C77AADB15AAF +84E525D72CE57F09EC07224399400614EC7EB025FE46FD83FD416A184796467EC5AECB82CB81 +4EE7E650C88E8BDAEF4A0AD400BC4F68EB5817CFD4DA568FCFB26CC2D61C78022BE75CA10841 +15F98B3D90EFF9A21CCE6BBB00858BEE173E7481096781016CA562863F9F8ABBE76E63AD2575 +FCFC470EC65C115F83677D74B66366F69B6E964B5DF75AED632A1FA3B83E4E988C0287A4365F +6374D76B0B476F8C65F70A458E8A5D848BD59DC0D561ED2A9C399EAF05FC48E630B81AC5FB30 +ED4416A8C9FFBC4D86227D6060558AD5DBDAD60280DD1979080E2715C5CF54E441957FBBD136 +C97A1ED7FAB1F807BCE3B2E534B3FFA87A7DA823C437546C8ACA31173D2E3BD8EEDCE54F106A +1E27140B14B49D79BC1F58AF7AD929E181AC0ED369EE0208AB68EC8B84CFE5073EFC69440312 +B6B9D57B1A68264E8CAAD1A893015298FD127178077F956EC46B8ED543C72908FECF560EA42B +44B7C2A9A6B74FB66E3E163D9E41AAB57B3FBF116580FEB51C9F081C34A3A6BE028A5D9BDA07 +ED0FDF2936248C6EA7D805297392A12D8E4ABB3EEDB5F48AC3B5C95250CFAF6533993B31520E +0640CC46B802BD559719E578B839D2E86D2149FCE3CBD4747A2300B07DF0D3125BBC6EEFCCBB +F48193D3EC12E285591859E4B96690BEF8A5D6884F79FA395E6E1AB81426A68EF5DEE8FE2A2D +0056B4AC028D8F7F32DA025560F6D9B295627823A8D680AA136329418197544BD10D3F4086A7 +C11ED3AD3EF430F735AF8814843A76997DFA2EEA9B7EE86FFA147F38C3D7A57C9109C9B7321C +0093A2A3499502F10EFD694DC5204A24FBE3E9EE44B719C10C5A1B5B3D53EAE7ED0BAB636582 +D103025964D9616AC2F8D5857311A80B55CD9763824E0FF1718B5F45C6372BAB01A1318DE374 +51599A8EED5E1C0CBD68840BC5AC5DDA6D1E29EE84DB9858848614A4604C9F01745475B1E3BE +308BC3053ABB28FCA204EF283EBBDA572F004E9F243D73FFD4826EA6AD3265B3DFD5FC963C04 +78D72B621E77A3103236F2CE1184E77B7995CFEE9C06C593C5E84FDD173D09DACF3663250DF5 +D51AEC01CC5232FA08018AEFE1F027D74902C8650AEE79E66CAD3936DAFCA90B92BB55CED1E8 +1EDFED23865D6478E8C86AA59EA342E74BB77B077B34F20381F5F1C6E193D545B83A56DDD57E +A0BFC693B0DDBF70CFC9ED576426E5B65AFCDCD480CCDB9419C7F33A734CA9D9F18F43DD3C1F +A731E3F8AE846A0BD4291AE4323D559435323C9EB444F4519F6B9F8E0F36E1CD8442A3397C31 +5EACF240CD5E1806A8EA7BC93142EB163976BDCCD0291105B7A6CC597D5C6A6935A52F72DD98 +0E5AD639365E15D630BC3F068A12181B37E1F8B3BE25E6BF9BF3098535D750DD243250962679 +C494D4243C4B34A09A823A682E7E856E9D58CB7252BB7BDE7EFF4B49F0CFBCD1D29578E2E2FA +738942CF489A5A1D1C28146CC516ACD809E5860D08079C95D62D8089E4AED28FB6832AF6AC92 +CC519BE21387CD71120990B7D5481484DB56560791149B365119D51BE5C587D864754BDC1F15 +51B40629B9C67355110CA32AD30E530B593A73431DD849045A57D4208A2B47FFE30388380927 +E5F29FFD8F2B50BC2335D1F5CD1BC9C1C553B26A8A0028909C1F64F45DC4FE45BB1A01AC7B75 +9FBE493D4B4252DBFE3D05F0E9EA44259EE94B8058D2F847F623639FD3511FD8D6FADF838BA1 +1CE54869E036D6740D2D68CA178DB03464A5E6C40F1D905190511E8683F16D0D5E6339853ABB +852833DF0194F7B781E315991D932209B3F4CD69707059255AC3CE51E83585902E333A6486EC +E517DD41027132B7F75CCD4706FC064DA24DAE70BED80B6C272E5A4D3D157F24147C7B16A535 +338DDC0D50613718737A8138BBB1C2E57D43DD51634AACC3D78E57439E2758F2325F27C6DF1D +F612D0AC3E3652DFAA35A94B803CEF0059FEF226E1363F29D19876B6324EE82818B77E7FF5C2 +8755220577B37661E7A19A3AF413784F61148E046F22FFC3CDD27CD888429A220E32CEFB4602 +7EB97A4C9923A7E686DB2C827EE95B1D6EE98588A08A9F3B1A6624044B91FD5638B5EAE85CB4 +D96D095B2482892F545735C5C8DED8BC97FB9E1276786DDE06E13516090332E18DC55981F0C2 +C394B01694775ED0DF3CBB19CC1581F7FA858601493248B245F50076A5F822EEF25CF8556B79 +E9340BB3B06AA25F06DA9DD39B8A1EDC9C870FCB7EFA82AA0B8D012BF75CF5D429D65E56A774 +A991F826F7705DB2D574FC54D98B3E269D00C283DAF19CCF88BC919F28046DF76AB228649927 +23CC1D45A8B1AB2A621DBED1CFE33F73020C97DE5D721A246EBD8A41E2717C789BA06B4FDDD6 +113D64963744085806585CB89C178C3A512F6AE98347E81CC64736E13F17C2DEE81A19972B84 +06F0133DA80CE6A6100FD40EB430D4692047A3E369970E82FECC600AFAFE0A9F2ABA7D87A444 +37B07911B898FE74287BF99495F398912076120EB1A2BC00F3810B54E2E6FF98B8E486486CEF +B069D8E471D6BAACBFEDCED952924BACEBCE891E6D5F91B5BB9313A34F26E67D3DCA2AEA0439 +543E9FDB4EF9F6A03F6FD711CAC84FAECC873619FC3BD3F4AEBA3CB1E1867235990D6B6A4D20 +ABDCC2ADD360E9B7C018B809FEB2062FFEF13692F202AE2D9DC848BE69726FD481F38DD868CD +2B82B4867B223E8BA4380B405CC5B0C95DF011ADDA66542F588998105816EBE7786D23DA7119 +47F9695D961CC9D2379F5ACE863E7813FB469CC9DEC70E0308A96F3D21C8B77E8533D57FA511 +CAB9EA7F7F921A2AE69536C29AFA923DCD6EA98327D78B964EB495AFAD97F52C49F975401889 +0AF3E0BAC16D420470C157D91E388A311405F1EF67D5742D287829DE12F7A89DAAC2C1824D76 +4341C0B78C629DA80E1CD31B12C46AFC96E7E92D1C629951A34AFFBC980C0523580E9B05CE03 +DB29D4F81BC3B644AB653FFA72BF73F94EF379D85ED53227580A9A42CC75E13B4519F4CD5819 +584B871DDD3BD9A6368C994DFC6963B4C354F11417C989A22689DD664D051F6F8AD5FC0B683A +BFED7E08564ED780E94C7C26BAA5FB311FBCEC6FCCE55A21DF46ED404A13C938618AB5608940 +781B9E6597AD01066496223B50668DC65AF50F05CC8716FB8ED784878237217D233082D4798B +11374B8D576D818C12A6026B2A078D749C907633B05CC89BF1080C28E4D9214A1D038D2F1C4A +0BB98E261F050BCC2359CECCC78B8965BADBF369CFFB2897C1CAE068B092528D1EADE505A582 +BA3779F91C57B199375DDC4A7F79073BC176324E7D6F356EF3272E37E656C493D636C9E69498 +A843C3C552C5245A63DADE50CB76CCEE758A7AF4429B439FF4CFFD610630E479D7288D548467 +B2BB4DCCB8912B8601BDD1E4E4686E266B853D80219B48D241E380AB5471DCF8AF6AD3F3C487 +25560551B1E52B134FDCE1207DA882E9C9E32D9F4545B4B62B5523BB43F213A43D081F81DDE8 +8BEBEB5142F5E38762E6748936FEFF0EC190DEB7775F51214191565065555DBAA3DC5E9DE7E5 +240D67E8B3F7A5E0B8C5E9BE10F9B494AE4A44A59D1D05E25C11CD75F9D9F5CDB32D981512D4 +81971C20BB843075F8987EFB25D881D0AA1E863D9D15E4E86DA2AC4D685FC6491611CC38FF86 +C54207EDA335239D8A1F8C430EEA7A053B7968C5F4193D48EF6ECE976B98FBD7258F53F226A1 +D6DBFCD260915CF1DEF6420D7CEF58B5FFA4AA41E45CDB9907570178240234F968C7D2A7C4E4 +1F891E71BCF40A28E0A63047EB8263E0350E8C9B816EF3F24C79C0F6864478FA85AF10968BDC +A4BE52B79B6658A621A1CC613FC0FBC66076AF1A2596EED3DAF5ABF0DF25412EF7459DC11466 +710D645C4D3EB93F83D8EE9E6DAFA4395500B5B5DBA4EABDC888D30B36EEE0075366C9FFE22A +7F997450C69695C061584EED1B75C2AF5BD284520EFAD99A90F093B032EA6F19C0046F958A89 +1247FE8D0E17C1C77D5D6C19AD0ED03D104BEB4887653E8FAB3BD7993D52F09CDFC09D643B9B +1011555FBFDD5F634B0580F8E12C4C273AEBBB347B6DF042A443FDEFCFD8FC6D89FA07A932C6 +8C3F1922DEE3C95CEB512EEAEA82933D5C1634E789A5C10BC115EEF3EDB488862AA05E0DE394 +DC2D56E00C66294DD1E35C4585AFDAEA9821F3BEFA2832BA34684F468F44C7CEB9EC63B730AE +C6B9F04E3EE839D31B8673E59CAC9CEB1B3BD83FC02E1991E6DE570489F3A111C15FD15903D2 +DF75D6BAF0E5FB373C511D6CBA023EE7271263836139C6B3881924D17C4AC08FD7E9EB7584AB +97B6B967816E23F2DE845AE98CFA667517A3A48E94371F0D80940C4D2CDF4EAEF14B9B1D6339 +40D572F497B6E93EA90E7C2505D63594C6A29E4EEC0ADA8B00AAED82FDF0FF323A12032CE375 +2F99E454EB7A8C49C90F2E7804F4F963BD0E3E15B7B44A5EC8638881A9C92C09B14B4EC16F62 +A0D49CE401485E70CC03695C9629183B2A684DD4CDE61B51BEB221CD31776892ACA20DF1D769 +70062F98C22D07DD7EFF235D4509A7359D4E1E2142E89D4EFDD562D4F59D6620B4BE5E71244B +C61C2E974AD975DA9363FFE3CC6C9FAE27AD54852DE2F58061CBC884A2ACE3C680EDF665ADD8 +9EEBDACB0BFF377D50C5A420CF7B67AE0D463E0E731890D7BE82983438E882530703955AD763 +0481E756B0BF7967930136D41CD525FDCB0324765B56D8E530AC598723908F5BFA38A5D68C56 +356C23C3FFC004C907DD5B8F3F59A93BE8754693F6A9FCA83ECAAE58A63830D2108445045F0C +AF2AE069C6D3FF02C3758E8A666781A57A4D5045C77BD080096463012CAE7EEA9D0C0E830585 +012FCCFABC2BD0EF7D8E449141EB335DC9183FB8D9C92DE5866DB26CE9E490159BA7998E62A3 +1C6F1D6B7598D73B8C6B73AECB2336D13964007E13DC8365760711E6AE1320F36EA6DDEA99A8 +98A7FB44691DB754473867194F0602020519DC0BD7B94F5D28AAB4BB7B16FDE9665AB8C050D8 +44A9916C8666D530321906FF18E5994ECCB6FDA70071F3F7735B6A140CBD2602E52C13ED75FE +D10AE4FED2FB7498FC6A79FBA9139B9B370A7AFDFB669852FFB52C97BE43A820C0366A62DFB8 +5AFA79A2E30C91F8FC78430ED6C8170F5528E7FCA7A809B06D4747BEB8088711B36F7DE5F47F +A82A998DB3606FABB7FFDFECBC693774EA86593144BAA1B08B030A00B86715FCEF33C9AD30F1 +77F3942688152AF51040207D4E0FE4E3A0DC2DB00782EA8B9E4C651691D6F189064EBE19A049 +E5843648D4DC92D1B928F20BAE611D5CEBD97A97C7688674589A447FFA7883376089F856D736 +22A306DE37841EBB29850C770C987E747C17447FB8DA3F4649564A5A890C9FEDF279A368B018 +43D9CCE1156285BF39D15A9BB8B17F0FF379B353D2999D4D6A28D6DB49BA37A4AE429B79607D +D55D0E0A9B55624F155C73B8EF46054C4B3450210D53FC3A10F64EF954B554148125A3A9D168 +A17FCEEB59485D54B66C86D438F4C28C5FB5605A227B950C60C40F4B667D12ADE58AFAAB8463 +6CB781BF34F631FC778FC87D4EC4DAD74A08F62D3BCCE85A6D9DFA8B6DB66B65303DD3D71B70 +34C75505D2D44FFA57A76D90BA40CEA0D44FBD3BF549AD2D4771AB0C11F0D689DAEE1F4CCAAF +F1CB5E1963D02DB1F3D1EBBED5A68A6870A222A5BB75CCD7F92C379E043554717616C920023E +B5C82CA27A9457F8BE662345E32642AE5F387986E8A281BAA06D646D2EED42AAF3E7549CB7D5 +F4FE69ECB4210A5936735B4EB9C86E20FD12E2F472ADC9439A37411A466AF60752B8F5A46457 +750F9B342DCFF50BA65F3149595C3C67AABBF9DEC8044688396EA7886BB8EC90F73F75A73C48 +F1019CAD8A6B62FE51141CC19947B88ACD5E8E0E4E8B5D947532056124FE9BB785281FCA4731 +D66A92052B2B99431FA3B8D2DBB3434CA7793B439105A50014D3FCB24E63FEB2DA485C90812E +466AF5F3DA252A328AED9624DA4EF63F0A1AF7E5F3FC666C39E15D7288BCDB9910C9545460EB +D0202EB07F8A028C5862B08A4B895204A3100A65BB29F643B46A1F901B788785D5CB05D03069 +5857B307A6A66A125C5D516B4E19430ED1FB250D8C1B627CC01FE883C31ACDDADA9117B4F076 +2D565877EE70F1BAD7D4B686772C2790ABEDDCFD3490021452E59DBBB60DDA39160343B45941 +5A565347F91B615753127DF25089BD4619878A74028017E794C5D2B6BA12DB157595226F6CAF +77588DBA8446A59F626C328A07EE2883399E3011D47D46260152893DC770439215475AB6DF6A +5BA4D31788D5FD929C4C7B6ADE4715F42C3613AD9E7F826DBB21BFC58AE43C24BC6D5257470F +51C445F2FBA4165AA8C6F5B3747930D4BC59820A5C23ED29E8B1111FFB24AA341DE62AC20810 +10D2E19E11F7A7D86E1A8E4F36B9139BCD3C41E79BACE4F8AC30FB77781322AD44197044C80E +46FA9DFFD3F2CC326600AC26546E940DD2D5F1E142D461F2563AD96F6198637E90DA4757CA95 +780211B074EAEA9C76FBDB8773F2C106A49789743049B3ED86B93556C0C9C689A3963EC65E7B +B35E35AEC27769ADBCD6E629789993495FDA643EDF55FD4E09FB13192CF7C336F4D06AB8B7A6 +CBA81ACD8869903D17C28DB20D4DE9B5EEB0F6BEFB14DA480A542AA7AD7263D8DD78BB343C9A +D49E97CC92E5AB6443DAF0F1CF37336DE1B265BD5F366220135CFD3DAEC52390FAF43B1FD4C7 +77000FB6DF5A86CE882D2FA8E57435DF5F242E95F65C9EC28B89E8E3B90C6AB9B6DFA916C66A +F3A5C447DF9FCEEC13D09A6CB170B73A74B2BDEBB70AFDC41362712538F13C336A2B981EA523 +66979EB503E6798A0205A5D1F3C3AE31F6EDA159631B2B4AC4D064D6E90D51DC88E6C7F1193B +E9D84442786B4438A35E52066C6901FDAAC2DF312C96A04AF76C553E833CE7F761063D3DCC58 +D2F12D255DA1DDBC42F5CCD8A2E8868629C6C66A570A2639EF09331E4C4720B5AB6A39CC6B1F +8F308BD0985CDA6DA07ACE3C3DBDD47FF77D37BF6EEE83F0C8FD22D342A8758863A127CB89DF +96DA3750D083D4ECD0D716F69838F818FC8CF9E979B861EC9D4F5CC7779253CFACAE0B9EB3F1 +3885B2892D842037EF985776B4A4B936DA20833FBD7C5D8AB7F5553E8B13A8D2A6A7A37DB066 +391AF25B8EC4B83ACDF25AFA3100B68D40E075123CC8C1E413F10F57F7FD9C541C57FE1B6365 +AB3FBCB478CDE85F16A205403C920BE2CD51C5E5749A3F9B84CC097C669822F84FD783C2AB4F +68C6240AFEAAA70AAA411B22B9D0D33B052717DE7A4E0C4899AC5EE53EE52AF371C322A499AD +3D6430A4299AB598B534825074A7DA959C310C092FDCD4355BFC48933F352B5B0AB609569629 +03020411822541875C859992F5ABD86986F62F22F11F783E635DDA34D8456035E7386F979924 +9FC9F4987EF97D9CF4CA3D53079412B976596D9412D68264292BE36969841CB79D32B0100042 +D74ABB9A6646C99E004BB55137CAEA743C75F2DB556F92A4B156F8A7580FA7F0344F1C0D5241 +95788AB94414062652D5C32E028FA920883AF235F484B6CE0C5246742E886C608C7B3CEC5902 +BDA82FFF0B8676E49ABF11DE8EAF456BD118946835EB575D6CCEF1B3609C8254A356A0DFA65E +8AC6C53E3F6BA6E1C44B514C8B98743C40EFB664D4AF1E5DAB4BB3A11D45F4468404914F8C96 +F0DC60D007F28595D287730AC63B2FCEF4BD28F651DD80177C126AA4170C1DD7AAA60CD53D05 +CD1F5572DEFC285B51EB2DD7127AFCACAF6C6A4CEA23081D5DE715FC98A480508B165BFB05EC +18B5520815D34D2B5F4C159D027980F841B862D375DC2227706A88DC1EDC5AEE3DF580EC4D69 +C5F2CE0DE2492EEFA575264085A3EAD412A930B70029FC6CE132DE3E536D4B046B89CE35751D +90BA10D4997F07A429FEF06EA19F913B8E9B9F5293DA2123D186C72826C8ED4F6236EC0FB96C +5177D390BCA6AEDB589052584C23BBBF2E8424E56A9784B17BA83CA11F0439756D0DA794FFCE +641F0F1D180C1150D6FBB2D8F5C8BDC1904BEE761B0D7E8A44A6AF7E2470AE87582741066A8B +FDCF2E31A386A4D5CA53BEA4F9AEC4AB7FD142D48DF2EC50525A4DE76EB72BEE54BF0B251C30 +98E7D6CE4D43CCD8A87F9B7BA9466D911C93ADF4417804C6C0E5462C57F11A27A7472F134E7C +96984DD694D9BE989FD46E7552B24C5A4270C5177521F8FAA4F02CA54CE9B68DA3A129E57972 +D605F90B3819EAB2DE5F90EF58B82D29B50A23FEE60B3F2FC1B4413ECA040F54A876DDE37904 +DB980BFAFA48AF4B73CC69F349106E3FC77030C858191983955162C3A0F4E51B273DF075B88D +4DCDDEFF949914C4B69F334854148B9358B56DACD9DBCB0DBDCFFE0E244D62FCBD410C1DC397 +E45BEA50E4CFE3FBE4AA8369B04B7496A148F255E0727AF2A37D12D8F6EDD834B85406585210 +F343B01CE21954D35C66686D22B3DC9ACB21190401F14F7DDD72F6350BCAC418F4940AB1910D +5C83C5BEC60FCBADDD852D24BEEE36B6F9AF1816652A3D5D500699BC933D65D08FE29E46A363 +5D2A1F135B291C1092B5C07EC70A164BDB4CD06A73AFE547EBF8992E8068B46ABF48A0D358EC +52D6CE5619114EFADD2296B84A03A24DF1E157817FF5B586FD71BC40AA5FB0537A4EC6F53F73 +FF450C97B08F6DD3BDAF7171A4A7C6B9C49D99AC0A20A16CB05FF6151ABEAA8D55334CCA0152 +4162DF6E7B838582C4286F31C7E5BA6AF7BD5EFFFD94ADACC9BF77D2C008E04A01DBD8A423E6 +93BFAA0C93F78E7B627EE1B2A19AAAD7FBB8F5C0596D7DCAE8B9F2B6BED39B9047CEDE52EEB2 +99741AB87352946DDD69C8F3BF29835D6FFD1AEB88E6B8A78E9EA7084552527F51164838C72F +5428B1E94AAA55152EB7AFCF25668A52FB93DEB9F58D04956D40151693CCFDCD2CEA9E01B6B7 +954FBE3552CEDDA6086620697E759B779AD4EA452E510396FED42255A40D7B3C4FFDE0F0448B +7630FDD443AA04E28F5F2F92978BDC914E0C31EFDB054682F1C8AF975130F400A1F76BD3EA5A +1AFB090FC65A85E47BF39A6B2D629F534BB73894405A6ECBFC5AE15FD7E5081A85A41DF54DB1 +9380A0EC96BEA4C239FD66EFAF64FCBDAA2C7B21F3813D0701B5FD97AC5D61E6D8C797389466 +37B96EBC703E615C7405B626952F2ED323BF221EDD0A3F046D2D6583813E39EAE5D8D9F1A268 +636E6971793FD38233B79C73A58D116A7B7B429A7EFCDCD81BD0D102633532ABF85996A3192D +8CA42496F24394DFE197E25B12A427699810217E1C733B5F5D1924A6926494D7A096F46412F0 +78D28C9AD5A85FFA4E3D276664A49BF3A6BE23C92C374BE9AB22A9C692C847916FBE18848F6A +3FC4947B5C89FF5899F289DDE96E9481ED9E36AFE02C3C2F391241C79D3AF3C99F73D93C8680 +C4871B08679BDEF5B64E27307470306D489207430134904A3ED303356178D57D9E8C17C10DC4 +CBDBEE9CAC7E77D79BDB0BBBA4D7D87524D2687D7E12AA9554D1B8A32EAE11021069F0C75491 +048B38108B023F7439225E7F2ADAC4683A77236619F8C1034E607E08AFFED73A5B7F67912A15 +CB3C4376843EFCEA7C3C503BA0E80789F9F4E9BEF3E2EB3652A9953E413B7C2389250A505AD8 +5E44871A93F59E4717F300A41C43E7E50FE9BF5B9A78E597F556506ED3E1D1DFFADF080871B9 +F18A848CD3910128BD349FAE0D29BFBA59810D83E4D8C1F9EEF9A87F31CC2C7D8D7A90802E42 +9B112F8AC725DA8244F790910A54EBAF540FCAD26A9A6BBFF04769A29156F74E1E766D1AF79A +59FD53F51E4FCCE40E057A2FF7BC7799885F75A98EC513C82149289FFFF2767A7F71008F38BD +28E7DB36D6B04D84EC272A851AE3CF994E08C3003E7C970177D4EE60CC188ACF326E062C3C91 +2431EA7DBE6C0E6749C848A935BC986D8790FC5C39650CCE3918855AA000D55994B8D466F10F +788F1D08421B224BD39B8F51D1697C182B13D5832EEA58F39538017306769CE819B4761DB36A +9A439408E39F8D59CE2259B136C1AA9AAB53B4C4639EC542D068508CFFA27A50BD92BF8FD12D +545E92F48BCE23D4D6110180FF910BC33048EBE6C4DC395AE22391D16FA5B41A371039D3D38F +41516C3B89B22EED25527CE9785BAE3A5B98FD9F3F3D4B034706B5F1EAFE9022F74C4DCBD7CA +DA96554F4B02A95DD4FD06C6DD80B6B1F1212F1AE25ECDA0ADCB81AA753AFEA2B7F9BDB301DC +7ADF7A45DE9AEF947321FFE907D8C931B82F159978DC4D560F7E4D473B77A65C2F03F9B318E8 +6E209F5C727014F33CB4936E6FFD898CAE582766CEB32824B1E73FAD738AE30552D2234EBFFF +2D53D5AB612BF49D22DCFFC86A3919F708EF8CAADAB1E4EB6EEAD25BCFCE604EC4E0626B541C +CF37413AB17C23C9C5F7D01ADE9B3C579201B44C27E8CA5343563D1DD8610D3ACCB28A5B0E4F +81D8D7E9847C835E7E4172812B3CFC2EADC59FB56C824C1DAD660FB6A13560DFDDB598175D1A +0B66378D48F574DB983E5E7311DD1F4AA6D0C4204BC9E95F79A9F51D855F012F17CCC22FBC66 +C7D45197631C079CB17A8D2CBC2090729D27DC717FE52FEEDE6B035ABE7BF7B3939864789F3E +56E1BDAEA552E3AD2BCBB596289C899FBF49A5CFB60D6709D9129D94360D935CA80B452F506D +1BFB60962BB44FC88B2C71FF5D95D044CAC9C019272A1C3E0225AF003DCBC19B5FDB90A6B2CE +BBCEAA1AC2DC524A747B899C7A0A073517B3A56B10EEB5814A54203D03415BDFBD3A3725FAFD +E4F4DBAC1F9BD167FCB3A16B25F1B6023DA20E85C626DC9BCB1439EBEED4FB56B9AAD2FCDC64 +605E6350379C79EFB47D827983E4E6EF583AB6D4A85AA4F2C841A7419174C5CE0DBC4900D970 +8AF74B010A195CAC87A9AD2A12279C2542065CCBDF70B3EB08813DA658D5C34412D512D307C4 +FE35C462B20327E99E81182B1C081D5B131F897EC4BA3488A5CE21884192B093D6224554D2F5 +5FE4E0AE476AB82CE43A306F8613D364E0337D13BA207AF787DB4AA59197E60CE6AC2747E351 +A4070F443EC186E9AD836A5B33873EA2C4FA9973B51977A20201A89AA51423F4C11D72D802B8 +95D0C864FA0E3D4EE9E023740FDF55C72BCC183BBE181E71EC8C7CA72E5BA430684FBEF9ADAC +AC72E4D5122CFB871B72C22EC8FB3590ED22DD2177FB413172171959F0D66A4953F15DF113F3 +54F90392C6869469E84999DA292296DBDA9B7DDF8A30E7F98457D1035DDF93F10FE3DFEE8771 +8477A690BDC8FB4B50A2578A8AE9D899B64B8015CEC2186F2030502FC8FC69263E2473DC81D0 +B4815D263FCC93E78EFC573295EBA6BBC45C48E8A68E849D57F80732F061B87B6C737947D003 +A8BD066E362F60FFD5D1244C28CBEACF5B39AE7F3CE03292BB729AEFF7B097D7528F1C12A231 +54F787594B29BDE9FE365149EF8AA4917B452F1743C2E6F24996C67C97D22851B1215FDC8EB4 +3C40CDF3CD0BA28744EE279A82ACC8E92E34CFD1C9473D91D4FB5F0D77DADB2B744DD4E7FF5A +211521A9A5DE4B9F8DB2750F96E5BC9CFE89D277F30615578359677C937B71E821B0B114CE55 +D33C29D5D19C93A427A15110A21A281465F51C9233BE747EA57A21D8744EAE6EFA6357A3A150 +00992BBD4B4AA1718F915E57A05D659269E05DB3CD24D76D07BE41257F734508F8EF0801555D +C962CD3D516A37799197B7922674597B6E18C16043B4B461F293D91080E2915EA7ACCEE11042 +216915CD24E1077CD4281A71C6F3C0C2F5057A6B806B625E7F822165717F80AF5525F586E822 +96C0005453AA5B3203F9E6CE638666E9458B2AA4EA944A8107A23B3B033109CF451495A152DF +F3B5D392841BA253E0675F427A98C55538D2268D866634AF08D28A18B6139C9D26E49CA36FF2 +0D7948BFFBE50787FCA8819937E4D53F078265D3070846068F560E09A1CE2FC420F9021BD9FF +BC8D3C363BEF5E3E457483A1A1F011D201FA99A8DDF9CC70D5B546977B0DC3BF4612D17F3754 +DF069250C80C7DB44D16AF1A5EDE29D74579439FBDE1271E3B1B69F257627FE898CB1BD6AC4F +0C3B3155559357A15969179E43C5420955BCCF10335CA9A07CA191203B0FCB410FCDC74C1929 +B5593340B7BBD165440E1497A0F984F440B9BBE0EED0B81997FC4A98AA7C609D4AAA1EE3EBB6 +CC0B0AA405ACFDD1387F8AE589396D6C6017FCA9BB164A9E96DD0B7D8428ABF823D8142425A3 +30BF6DEACCC278D21B12D28DC9502D96AC12FD016B31F6BCC2EBBD3703E99D81A167D234D9AE +199BCEAE89EBD4B910B0B4FF3EC691AA63D165F167DFAD806370B41FB7E5FFB2938088A33856 +68F5C3CC7CE582C22C6BF7F1CFBAF3AC2E5B38BB70827297609097CF69DB6427FC677F7597E5 +5CD92E7020066BF9E14322325028FB85163B2E2D8FF9DE1405B05E98C6D812CBC895C39886D2 +64D2E103C49E4A573B4E074E4E02BEB4A6901EFB7A7F2B94304E6C03EAA8B2F9D79919EB856B +160BFBDA23C2D293EDEA9B108B81EF6F011761D130F8CEBA5C6BCFDF629631328478EE9C6FD1 +79AD0F1CE495C4DF1CC256C53FC740874F8E9118DAA76E4E6C910EBE9EA76664C0E840E838A6 +C9BAB156A915BA74362F8D0871EEBB623061BACF86A9A874795C483783E96077389A24E29E3D +02AC9C4EC8759129A13A24AD1F17C99F81CD146AF135186BBA43719F49322891CD06ED5A878A +D66B297B600705C836F18F86EF4E4558DA2F4FE9DCCCAC8692319A7C97942060AC51F02CC794 +B2C5DDECB6C1CD2AECF43DC4BB9B63E5B5BF0C778F3037EC2DD3E39C6CF4695C35569C0829ED +1009048A1F4AE79575D34E09DF84C9E0597B3692148A6DACCEDB32F86CA54C8B1939A6DA38FC +17F543BDBF7AD9ABFD125102F644A96CFF74B107916462A9922A382FA213307398C1940AC651 +3F8522A8AF7B5C2A96660A34B09033F8D03EAA49D81FDE5D27C021CB99AB95478BE5460229F0 +E7A5E62A44EECB8DEA859D9B7FDDC5995B0DD229F4ED5AADB6C7E61BF91FE0B5DD8302313552 +356DC6C86BB17E3CE9E4FBC1D1BE9432A108ABF3BB8D40F97B97EEA11687B1E13F7DC216F32A +C2C0158EEEB0707DA021B20CEFD3B7EB6C0B792CBE30522A6DF9627A4ECA013D73C2752E8493 +22650A7FBD3707B90D6D1EFDBDF86138487918ECFFA410CE3DCB57AA3DA1555796AA13E1FB81 +000D5E5DD886F9346CA769A986DAB1275D4DE56112EE7934C215451BC9283E65028F4381B7F6 +BEC86BBF8304A4CD8092FC107144031B7B95487AF46F907DA0530F05EDBC0493704B7146F17A +A8E776537DF4FADE5FE62438CF9AFFF03E16333C8BC0B4A14913DD47AD57CC640248C285B690 +4F57A4EFE67A72D45D1C7170966CA79F4727B30D3EE504429B2FB090AD52FAF273A46EDD4A74 +C3F683D3C5CA00E28D135E68007C7EB8903FB571533FC153DF753286A504B4AC31CC8BD486D9 +CC1D8D80E1A65EE3AC6461E7400F6E8D69C01E4F2A6285BF76ECEC14517B625C31580065905E +F7DF40094CEE4DCA98E5357C6BD4A2FF83375C11D49A99B66B4DCE1E0590E168B69851820067 +946273DB03A2A857E5692576134E1DF8B0A465D04AF63DCF8FE486B9605BEEFADBD843E6E803 +30277DECCB0470D14821CEB414431746F68A525FFF87AA79B1D827EE2AC77A7DB87B96C40032 +B4AAE67CE9D8A8817469A0274CF10D20F02080037ADBA0C7BF876A4DD4976E8617263CBBEADE +386D1B2193CDB73F16AA5ABCB2E3AD9524EE33EDA9DBA9859DCCBE8CF8485FA818961683DEE8 +435663775EC440D0FB91E2FD46594B01E3C10557DBEE02ACE1B2A6D7F1FB472D3110F53C1EE9 +E23DFD5C1E3B781CFE314950E22933877878D54881070B14E469E998306BA7902B7B951F5FD8 +AD3EE1682DD64CDD3344AA642C13B88DB8F80B85A8C9252F87682142B56923F3E488BF7AE9CA +AD214CFC6B87D92F27F888A58BD53FC6C11607F3104FF5D172836D5AD8B6433544BA9CC7D83C +4C1BA8294C4FB69F58BEDF4C3D8711FACBAADB9048863F136B6691F44812D4AD8021B70DB89E +C4B93AA8EA1B80C225DF3BE5576BC2399ACA844F3FF6350A73719D8CB73CFA933F87B8592A1A +4D864E93F453CD498A3EDCADDF8FCD6ED4E51EB027F97623D1B04E7DEA6E1FCA2C11B6CC3C4A +AF651995E768E731F10DBC2009C07B159E3ACB93C6703C031414A923D35109E84EA6D6F3B27D +D715E855972A96BA09639C7ABD3521D93D702A5F2977EB7AA5CD1AA03FD0C80C0D703BA3C49F +C6E13AA5632926E5ABCFF66162AB404DB2E7CA836530F60D57253BF2B25B26676E5340C6493D +2D281CA724474A433750EAB4775F8460D39D649B070470C5127E09372C0FB87EFD54569A9DF9 +6BFC273DB033E9100D9C9715A92F105AE5B835F57CB3F12C1D96A347AE43B7C300B8D9FCE76A +436B4F67023F644D18149BED0724B81C5A6464FECB0AA464EA18FD9BD9207EBAD74476FA159B +C0EDC6B860855F123E807E68AF95A8F5AF0CC18CD9417019E8E3136B478111ABC3B9A8C7DF6F +334762A6E83BF768299AE8CFD5D252E8A2F01AC18382968DF4E2BF8BA10F5E294DA25286FF1B +0DABB15FCB9C59FA0BC4475E0E608AB9EA397F3703BB7D6049D82BD171289A6700C341E4037A +396C88724D7CC5C9E05D7209122FEFA933F44A4C6AC9BC75F339AE5B91093E70086ABCD11126 +458AAECDF3B2816B4B11090000C885772F7CD6B713D2A0DF3A2C503BF07E0D27681CEA4F1E91 +DDD5B8B3904CB3D36F2D82215276D720D9F364559F047F1FBABB741B38B91DA2EDBB58101BA6 +229F9C25A93136DCAB5C7E21418C280B0D86ED21657F7A1B543447AE521461EED56DF25EF4B3 +C8890733198A80C8AF136DA60EB6D3C0F5403B453B4A2F5F8B75858AD36AE00349FC74198441 +48DAAD7E09E7B2E044B8F91C195BD4D2F80E298638FA7E603B4742C65D75BE685C88B050B755 +0C94D611F014C3F2C7C70EAE18A569F4CF4281ED8328DC51CF83AB6FAC0DF617423DAE7370A2 +519D7A51680C5C5B860ACE1E5EE3EC97712B67D8C6DF7888220024BF3F6E77FB076D85A6731C +734E39B988984EF823AAF534870484923B546475BCFF91C5F84C5A16BB209C6A26D1C0B9E3CF +2CAF835D3E1F684BE07159ECC7E9942C1CB5A240116F61594BDFFEBEB7DF9E15B222373C1CA2 +384FE20A8BCA2B5BE17A4410B3601E2A63964C7D238E055BBF75779BFA802259F2417B183A2D +8024DEAD464E6EE57A4CE1238255B0FFEF64987BBA5DC282364E08A0FAA8FC34ADF74744A5DF +B857E57A2EEB3182E98B25779830AAC26E8523F719A04CB9E09292E146E650D6C6699AF778B4 +A8AC4B742F94D888EAED3A7E96879D081BC43200F9057A22E50362A12C1407ED12EB6508B2C7 +AA13104A6229F0437EF7CB3A380497BB12B82B7E8821074E1DDF7AADD5FC5A149EAEEE207B5A +86EA570DBED5019C64780D2383A1CF9E1F02F8DAC9CDB5297790A12D824CDF980700DC2D4D4F +08FE41E6D9B23429C818D6B1A903EC5E0708ACBDFF5D061495326840673B60DEEBE205B7E585 +5E76707CBFF4BC8E25F8F6BA858F0109DF84CF1E43C8ED985A42D47F727D4645836F0E57354B +5FBEB8EEF0A3812B15CAA5DC0385F0806B3C21A85D2B0011478CA093AF888B4EA2C9B86EFA95 +4987C84DF6619ABD8F41FE66E64BFD013CE74E2F9DD6D1A273FBA73341A6A42DD048E87A05DE +FB3365E534FCB58F817148356568FB96C9B04FD1D1F96A46C4F0D480FF5F42F009B94F8F822F +F1C03F1DBE266F1CEB86BE529FB7CDE3A1A0DB73C07123E5575165F002777825E522D46E0BFD +F6738DD27603CFC2B54E2EAB8FB30D8396C1F08A628D3BD742FE4F2439297C0CCBC436C2A08D +92091EDD3D0A8D919C38BF2B47876377B9C9E4ACF801112DB948DA71F2F0857083BD0E4C40A4 +1AA220D9F2FF85424793C58CA1ACC8DD3653F28AD64DF8A22FBEA8BC1264CA0A82DAC8DE34DE +CEBC8AA94720004979B4656E1B845990D214155D5A713217EB4FF62BA5AB757BEF9D677DB469 +E64C22B0EDE8AE0CF5BFAA00F3F98BBE50C70EE4AD51D26990EAF63C2B785B765646ED0FA313 +218B1AB4FDB3AB7481F81C0AE89E1057114AB901926EB5850B905CD8B42FE0723F1967197E37 +4AF44D38DEEC4A9E70E2387201FAF0052E6E15E491B10CE22DAB964C9CB4DCFBCFB6B57E2987 +10DB589AAF7B232ECBF440AD7348F5FFE8B890CACC7A87BD01D56F44DAC1D451AF8C8A4DBAE9 +503E8270DD65D30DF18D6755088049E5CF8E11807939D5FE9B05E0D048A1513446C9EBA15AAE +5DDD340765C15E1B48035E438E6E09141321359C4DCF6BADDECE2113307ADE3F09933E09E090 +6C9F854B15707528DD91CC943464E96718E8772546FA175A201FF5DF98ADF26A27247994EEE3 +1AC4B3EF8E9E3D04721427C112FB80C3CD6B4D68276CC6F89AA9AB1F8C02D060A382148F474A +EF29A069748653C48066094AF88E644C7B50A7A00B60B570C3FD90F864315E611E50B7162AC3 +7BC6968BE444716C8491EDD53EFE1B47A4A22B15627E8D4878DA33D7C46B8874A84C41C8ABCD +387E1C04501192AD6A29C266A0951D34F4D3482E492905CD1D14D3EAA999FDDA56816EB2ED4D +C2E9454973CB210DE95063B16384CCA9FA095F5F199634DE13D561986B32B98B50F395D1F58D +16DBD43E878C62837EA2B0D3380EC142CE3CF38D888040826D5EF353F10C4A9CD0DA0869734B +E9507DAF0A88B8CD2CE37F3F11CB1A989C2CC5C12E5445CE80FCAB37CB1394CB3304ACFEFDBC +88A908A72416FC6058835AA07508719C66FF7CD953856542A165ED27B4518A5BFA83C32DA3CE +94362E8AC98B620ACA0A68E1305DC8164D8976D3053D498FD469B0AF67AC137016B3F383A5BC +1232BACCA7DCD36C489DAE9080ED2E9E227858F9D77A67D7F2F743F147DC6DC9CC6E6C7FC747 +327F6E7242BF12A819295CCF29BD4C8832F1E829D413B2B40EFEBD5E01C3EF81F22CC18EF44D +49E650A1A247C0A85A95840BF5EA4083FEE36F38837737E90B0C80DBAE6E0AE58C40C643A8E3 +38B9EA78033609B1C398E0F00B192DD6B89C9113C83233AA4DDF04886408605D5D278688B2AE +B6C471833859C3809CD214C566D64D6E19CA89C50517D1299B39D7D55B9D71A91AB76CA73CAE +E953B10A8673C45DBCCA267CCFDA0420B39C6E78F0FF01D913DF3A1BF3B3445223C9B5023D2C +F0FA33284AEDFCE0413B0AD72DBC3A1699A5241E1D0820CA4B72CD7FC89FD4082EB101AEEDEB +9A83D02E2DF7342CA428A117B11ECFB00362AAAD1137802022DE2438C04C645E3EB6DAA081AB +A9DB8F4B55F71AA2276227426FF8D83A4A07E8CC8F44B7CE178C529CD741BC0F6CD4F3909123 +781A780E1252023B0B19D09349B71A851B657D840B586ADC12A693D6EC8B445AC69E8E0B3864 +EE746FECE4107EE6508B59D33BA64B7464AE78B095F36808E5E40C4ACB10B1D2EEB10DE4F8DC +9FD7D6A88EEDFA64F7F7AA97AA0CD4146E42C38C413941744DBBC14EDDBF4612DCB28C540933 +C3BFC8B15D901AC148B3BE2C63796E890514C9EB620DBC2D2B8A787DF34C4DDCB05B51F73DEA +73D5AF3088F47A1DCF7C62FCAC93AE155829D3B85665E99DADABABEB661690AC1070F57DB123 +DD8589476FB302D6555577FCDDE9500CBEB733C76C15C049DED16E4DC0C2B8631CF5EDF62AEF +778D4223B60AE68D9F3E7FA5302C792B171A3F4B3FF10CFBCF8F83C8EF7FE96F2FB5DD7E6419 +89A9C9067E25C86632038161EE76CAFE71B861B8B782337826F96E6B099AB76307F469F36216 +2B631E7344871EAA3AA90FCBBC97F6A6E7F4B45A748AD6A337BD19CAA42E66D104D5E9554854 +6AC52D2A7423A615B961A8F5A42760B55520441BEDC7D4DDC453E5B7B633842DF856401D095A +7326EC717DFEE6D6E3C076D2717883B7A2E92DCA51CDD3B769CBCBC2FE97A8BBFC5CD06F6507 +2EE5E797342771710F816440D18EB13BE66CF2A00BA71F799D390F70D43BAC2CC9C6C99E7855 +875A98EB09FD1427D356D886E21065D7381E4AB4C7444868EC8560A9922D624F703DD571D259 +F00B7AAC73F61F9855F94F60A32BB24513373F4CF40BB273C30A5E02131FDB0E7EB98B5756F9 +19F8BDD959B136FFBABFF4466F084B44E647E6EC32B158A438052D34E4F242BF6DC075F7F924 +4E0BD9D11FA15420514DF4BBD2DE245BBFC7F7B28904A07C5E6B346C3D305CADE7385C5698A1 +AC629DCC83285EFE162225E1676A8CC9AA4B72D4702D3640784254B04B559800E76E67A5CF8E +5508893B5360969D04D69B2B783E298B03780D34C7BEEC334AE01A3F5C025345D770A0B03143 +6DAE5FCB8C121033214741DF19D9C6B4E608C7C70D6CA2E0AB515DEFADE1E2570E6AC5054725 +98FB5B64108A17EF4A4CD214B1EFBD8B1ABE4A0DDBE0403899B031F94F544E925FFA4003DA49 +16E1504EE49F418ECC9433B7C938E8E251FAD46B03B69616442146AC7CA18228B0BA7E80D4B4 +4E5ECD93E6DEF65749A9F3C42CFF61BE9ED98A056F7B2612BE1716581085459FE250BB40D023 +7C3A151C9D4CB4A53323A3916262D6030520AB4D0460648CB33E0C7C483417160F828BE43541 +4BDE2FE7CEDCCF2CFDD6423D69C7146ECD2C3E14980CF203AE0AF949BBE069087B2A9C79DC2F +E8876DBA0FE0AEB333DA3AA5DC85EE328FEB0692AA73D30AE582F285CC3773B81D0258055E14 +198D0D6D7F0ED78458C18195BD1C1BA2F709E28948FC56A05D24894FF0C6418892E000E8F7FA +8E45C20B28C6999C70DC8569C92BD55743FF569B7E57DDD8F90A5A17D5D08CC4AA0AC57A286F +62C91CE9D10BFD8CAC07AD3FB8150F19D7161C1A6789C5BF9484243F08197BE0C9A4B88D2980 +E65B9419373AC780E5486905A98D00EA0064832E7843EB34419C5A5005ED28FBB8FC0720D9AC +82BA4FB723A4A216D1BA8A88D0DB3EEA99E6064DCF24EEDDAB187396A877202DD8939B06B68C +32E292A2413E54C2088BC7BB5CDA8D52C797E4CABAA4429A9C5515DFD214706BF684E7068380 +F3D74EBA885A5DC1F4BD733A4B18F07B481D0965B5706E16E73446F01043E73C2B2D69F2406D +30237385578B037AF432576DBB1C39699207CFA82C82D047402BDFF28EE5C3B3BEBBBBAEE1FB +6AB4694BFB31298C3EDA7895D7CC971F9ECC6CE2435D2AA66D83C9B059EF5D9154AA4C9178AC +1E6E22EE5A58C7B349E5138A05240AE822D546A93F4950198998BEC8B63062D1B2203E15C2C9 +DB58041C3AE101FAA1EE29D66926C410EDD62F8D183B3A0BB9BCFDBB89FF0BC31F8CA7BF6F0F +03A1FFAF1B0CC5388D8DEF1D400E20F8530EEFE692B5355A2E6F1A1122967203F0DC5817F2F9 +67273910CD83DC753E7F3EEAE3E0E439E792837667B81C295D993BE796925D06F0D50F0DA0DB +912A8511D000C7766AAB1FCC042142F7796FA60D63E783B7A3AE561A977FE0D21AB18F4ED053 +BA88ED3C408397B97DE0A8F123ACD78FF276901722D270A82982713F22F62CFE2B4058D7C026 +E5CA884262BBFF6DF2F47FF4F32371D36B5D2B8AD1362E54A6DBDD4C996D072E87FBEF1A8D04 +8BCF1771BF863A1B7BC6DD740E3D3E3FE6E775D6DD58650CC130E33DF30AE7F2309B44969E0A +46B722CFF78B767C0BFE515C206350BE96CF809D6AFA37997CF27FB7C81D11E04A336087F896 +20D03779889BFD223F374BB14BDD7D52FB32E5EF3A1255A45FDCDF04A94AD7C57F9365852429 +4430738D2A2F2CFE4E1AB61FD556A007EDE5C3A09CA8D71737E6C7D3882B22C7025A8E669B71 +3C7B10D910B4A604F230BC76AA980E2ABBFA6A375B2579DD46EFEB2EEBF556677F6162026439 +62AACB7A8D5D46E73B29F0D888DE715FE4EF6D981F7C759B10733799423A52545101302D60F7 +39BC5325CCF4F70D598E34DD30BD8E491D8F710C5FEAC37995D8E62F2210394064EB657976AF +C5938CD9774555C8C940E1835CDD514AFE606D5558D298906F5544BA5BE526766C82E6D32E1C +607D80E2ECEDFAFC04767EA14579FCD5558C71558D514100A3AC7C02E005C334B26BD32DCBDE +79533DD96004FF340906AFD5743C60AD61402BA30E4B6C631861EF0090F4B2F9BF71A921E890 +E1EACA3368CE42300922A081C2130D042D4562883B8617911630D2D19EE511B4CA4629840F43 +1726ACDCFB47CCA5959665E40FE323D9E32CA414E8D98C85C8B81CB364DBF71A77A501F0417C +62FAC768B2977A81540C0E0E9ACC8D141B3552DE662008E083F2AC70211716521FFE2932856E +2C740CC17B5774DF7750E00409F728107EE29BD1D08F1329B50327A45602088D01C03A47449D +BFF96B3BB6D71E56B7DF0C93360FA67C6FC746229ED2E6796BCC62EB54B2D44E548A92C6F5DD +E6595FA1D058F6BE2A92DC45342C87A9B2C04618D40EC8422A52A5016A4EB9F58008068C3194 +BC92394F5F60088E6B789E3E6C0AF16935028E0582CDE15D5F798379D0058955150173219992 +12117B7B69F1A1B636C96F9E748EDD9A69096E4AFD3AF4EBD41AD0EE113B6F034E1E16C7E377 +F54861EF5F23FAE4BA7F758CE1197075348B4679F1FF044CD7C1E833B89784C64F7F8D9C5480 +19BC5A0AC745832EF095B89435056D69FD55C0CA00A4C643A235CC93299F65B970549BA234E2 +3F63F8D9F0A22FA293A9D05C257935BB1354E6274A9FDDEC7905B17CEE6207669E73A29F1A6B +D2C364642990BFC71AB813F70DF4FC6D28769A129645038269137778E7A98FA67D331B46CE92 +108B5DB8C04725FDD6001588DF68B91ED83A4940C4B8411463898023192EDDD621821B38E583 +6858D7143A1325DDF485653E809054483D18BE615F53954183A72B967ED40A06B6653D95974E +579261C098777899A5DBF5A3B46A27377087AAE5B10B9899AE4C84AA1A4FD02BB440DE01E14C +97E0D03FAFEBC927D9B897FBB50491C5DB7AE9042DA945820517B58A8AA2DFA47E8EECF9F4E5 +366A5BDDC412E1F43DF528382EEE5C79075DFD33290861CBE8A9827B3F58DE323616AD65D234 +B2CB5027A2134555423C37C3336CD0505D074312829D78D352AC3B5D5D74BA409B97669C6F10 +12D51159AA6D6E1BE1D6545F43A80056FA8C654C49982C9EC9D14420814895800BE78212A27E +25350D60F42BEE04580C5FE6DE3C0FC33FA95CE86C4D49C2DEBEFD9756710E16C7B1C469972A +527ACB561C648CD68C1BE3B5B02C9C40A33E87F25DC3EAC3DF7F3E2B418C8A8A2D35ABDB8BC4 +6719AA589ECA2ACF26BC13D1015E5E4B083BB5F4CDE6C0707C83E128E27862B343BCDE292ABF +1C4A2E8A9000CCC41178D731949B378E72E9E1290042500AA6F7E2040A636C3B486A3C322820 +1D52F064D0AB3BF1CD79F2B56684DB6E552004C70B12A8E9FC0DC8B595C0B2A908AAE2FD6E07 +40C5BB3F169B945116D359179B38DA17AC740D0264E6DB3175E3826974FF55A2BC2CB1AD245E +A8D466220AEF7620B312C78B6E81E335EB8E8D8C4DE76428BB35CC60893C305FC1117BC483A4 +CB3A0B171DA3544DEDED925706A972D72BF42F78F6AE24E7356CA3AEFCF13C128B89E7CE62E0 +4424CB71EBD7C75BF12842641D0B49B3A3B544D6944E63F5AE7B0DBB80035A8C90A07EEA6A3B +9DAF96A909476704961A6F12B91F8D703BA4D40796D201E2F7BAAFC4BF2F74F4FFD69D5EC479 +CD3F3F6D8DCC4C19D84E5B9DB159704817542FE4F155E2BCDD2EC6062B32C0A32FD2807904E1 +D9C6FA07B5A8BFDD840B152235E7C24105AF092FACAEE08BFDE0E19700ACFF7ECBBD944F962F +082F52C96A3CBAB4A863548B3D887C9026E34AE440F089E260962122E6FA920CBD824F55306E +0E70673ED40854D8F427A97CD32620995BB95374AD2763B57ABA563F0A024CD3312BEDAD0DC1 +FD5F9DBFF4CC61F28974DB08457E821D4FA9F50A93416E6D3882A8D1D632F3131E232340002E +24A4332AD57F970D46CBCE5F59C4B435EE9F70528F011E5D00CCEC3A805BEA9ECC3FAB6D9A59 +C0798B28B72E563EBFD5968E0FDF6D9644FDD492163CED20EE4088D28FE015717B1D4BE92C16 +71E148F35D26ED4D67404BC72F823949EE6ACDEC51C2D85E17A2D3038FD146E5AAA257A80A3D +33A73DFC7E7EE064C51527860F542ECE6401B9682ACA824A36B84F08421B24C625C385B655CB +0A571651BF63F2C4A5C1CE4F0998D80D7CB1C1C8D602C72EB7E2C0E596A7F3A8D488419F7C7C +7C5961270BDA4B1BBB2CC72577582F63266240F2F49D9EFF48B87C635D64C3CDF9B6CE57866F +DB5889A41EBD2BCB02C44A969CF929453857A4B58AF1CDF891AAADE394B4F3D64CFE058C6E5F +6DB3A703663276884CE99E0AC88121A2796E75FD3BC247978253C0A916009DCADBD161D9E9B3 +7CFD5ECE2B13C16852C76190F1EE1878D12DC48E04FD28DA119EF5DA352B0D7FF478A82543DA +7B406B164EF93D7FFC2F6F8A94A3862ED22A2329AB048EAF44FC633AD5A5AE99F8E15F39F7E8 +DB7893CC5EE70342FA628CC5C0338BCC999A337EAC22396B3A1D95E0544DAEF2642AB98E43A0 +8E419C6CEF507BF61E8F0334AEB0CFFC12EEBFF46A050B6DC136B074596B8F9638E9BD682F42 +E8A30D8AFCBB9FCE2A8DFCD1D65560C39BF32FED339623D96525F38413B74A66B44F62C46EE6 +B3A64DC63C1F08DEE6AC3C42CEC75158F635B5C19389C801CCA478775780BDAC99A6950C2356 +BD7E289CCBDC132D3F695C4C310AAD594A5FDE544BEDAC26B2F53DE22067F99EB05A88E75938 +E9502177723F1988C17C9B51ECB86687C5DDDD4E029F39D1BD958F49EB1BA512E0497891D264 +9272025DFF7A8BAE948BE1E7B705381155C0A024DA3B7D55E2CD3714D874DF93D89AFF9B425E +9329946F615DE6F1826ED55C0590D12E6E4DC62A46D84014B8887F9181A865E7719686C2DA47 +EE3CCE3CF75B95817DE583A006DCD15E8F15D1C1A967E1496049AE191F6D45D476DD0E9579ED +063B58F5FE40F2D4DA05E990AA7C9D49F4666F4A0ABFC748E5A254C871906E0E34A34AAC1239 +E60A42E72D57C59798DC3C44EE2883748A982D94E9A69FE567BE2042F8BC6DF56E8046A25C83 +D38C550A5E4D2D922399C63FDCE93965597F04A90DE9A785E49F2AA2A1B7E0A6F777919E1ADF +333DFF586BF724E43F5B89D87351A091CA9D2DC5029D796BAEB0E91479A3F8B728756AF17643 +321357278705E2D84808C336E424B2743D06D7C68EEE85B180431E8EA901EA5893167D4550C1 +DDD2ECD13208D2D62647892D3FBF5A5949A7255AB9DB45547A926857715F767C8F3FAABA0C69 +45D393753C26E2B00DEEC191BAA0C2F679FA87FF1D01A98058E293C87B398B8171242B36F3F6 +2CAA6B807EA9C70BFEDD8A4BA038E459F76C5C1880E4017AD9A1382405D1A88B5B5D7A451E85 +539D653665780CB1774F57F781A69337C7C1AB8CE88166CFC88664E441E707DAF576CA229CFC +4A7AE4823C48FD9A5BBEA3A142CE0AA68B52EB376DFFABF332DD702AC4C50BE1C3A14EB871D4 +1E4EC2B6F6B7F77A1A9885523E2E213D52E9BEF29C0F3514EC23F95840EE711AC3758B8F3239 +7E7F5B2870227B0FCF7A804288149EF210C2EB0F755354E656A9B7979C41C8331C247654A47D +D0F086C2849AD7427E64BCD341A36E69AFEC58745AC9AFA59C652B7A09DF1E4F28D2310411E8 +C04CE6DD9DC17DF67B3DE11B20F69190F45CD9FF330B202984CF13FF67A9FF1A1A352A95E7B6 +1BD4A65E19C9EA7B6ACE3F73C447129D80FF54B542C76B94BBFE2226D76B1AF35BE4B8F9D669 +5EF33264C1C84D1FB6E1E5FA3F163E921EFEDB3B81BD0472EE7EDD0E7BC0989EE74690743C44 +9E80114C8A3F83091D4248DA92EE32030C87D212D19C7C10A455DE000415A230EF981C195E96 +4795C7BB64A482832031FDB9CC635B3A0B3FA7B4FE777147590E5B5148501A503CB810321B65 +C9D41878ECE748EF53D243EABAF42AFF8BA7C64F19193A7C4D8BDD43C0A87090BAE52411854B +AD2D4A5ACB646F80A4CD8693EFA4C34F498133F7107634848F9C4DBE79B34B4E19F802D8F664 +00542C8D54F26022B6531823541FC43304181ECDCF3C37BDCA098A5BA6320F57C286EBEB1587 +FD3F776D806F56CA92377785B4E0439D108028CE777484C23F12716995395C8CECF9C280FA3D +C440DF83307801718576E8F07023EAB6815B892AF0EAF9E5CEDD4EC6B9662E34274338974EA6 +11374C4739EC9E30ED3D8235B65B0800EBBE1F70F3129EAF40D990F653D83BF2EE6AF1EC3527 +A0A958E4C0E7C3D08D128B63F87987A81D9B1499B94FB62E551D1DCC294716CAEC661768A341 +8BACF6576D1D43E0801BDBAE17B17E985B973F9CEFBE11F32D2EE9E6B56125F6D11BB00AD71F +81147C068454A810060C2958BA85EF7542B55E14EF54E55AC732E67808141D0C5B86D4C9190E +D7473043DC365EC0E96F2863B98C6FD89B7D9BFFE59AA3231B3B2C29269830F80976D7819D3B +3CA329CF1390CFEA725E466B24EFCCDCE5623D6EC44944F20DB0F0E88890D31035B512BD780A +4291261FE160CC9668CFB0D60F001723E276538B2535567525322F42C1476CDB66789234D06D +85CDDCDFA08849EC6BC75F59A2FFE140672C64457592FBA6420DC13ED2D2E8F9D3E8AF1988FD +9D24D2EEFE3580DF32E3D95A09741C4E87AA7861F22CB0B0A568D5C170C04AAE6830977C9F6F +78E868E1D563AAB8C699BA6C87F73564980494A8091747C5FE7CC6B6E6B39564D3477CE0C461 +3EEB32D0795DDA411FBFBD464ADAA22477127E8322DE80AE4E29B95111757C3FFB6163267577 +07A3563A1C955FB754A78E0A3C46EFB268AA4A031B01C7128A79343C54235444182A99380E86 +ECED1EB9FF9BB4A2B0DEC49C5B5EC8483E6401B2FB17A9E38C74011787E84B965E7E25C6C2F0 +BE3C44BE0CF67FF6C057F3943CA9538BD193011C19A7CC55B878D3BA5FEB9C287B56BB58BFE2 +F3B0345A85673A772520B89274AB96747734C2715D8FE9B3F4150900A1D5818B5E13C5285B40 +1BC30CBD03758FCE619E31924D4E1DFABB6435AD22EC3F2E95F521795B9C9FAEB191B11B0F83 +BED61D23074D4900C06E13FD391A798ACDCF8D53610385AF044C542353518FC498787D1F765F +CA4B72385AC9EF7E0DD0E07997B7458C338FC6D889D4823CD7741F5994EEB43557C6CA617CE0 +164B0A7206CC915F93FF2372E66B1266D710DC33ACD15204C1CA075F05358D33AC3816C392D0 +A0589B450ED8AC9B90E96C1F182E5F15064AC26B9518FBC23CBC521F6E55A8A399055BEF90B0 +69040C1FEE3C8F1E67902CDE67FC1609E793F5883BE4D533EA35DDCA47FC62928D4C46CFB513 +0AE93DAE90289E29A0D7D0098DBC3F9859D49A7E098733F5E75FB170B0CAE779B9AD19DF7958 +453C23FBAA1E7603ABD6DBF9602A74C9A1F62D5D7A450ECD1F4C518FDF3AE2AE72F021DB3693 +C4134CDC14B5E556B140177408805581DF15BA36F5D1985462BF1E2ECE7BC2156A5728446C54 +3DB93688A9E54F0DD89EFE65B6C5F5141E24D376D92B16A5E4B103E5AEE083F269E782B7F7EE +18B74BB87B5788CF5E8FD686412A4AFF4BB8CA9AC4B8151BC368DDAC0333919437E7383DEDFB +3097165FD80CFCB91EC2208DFE318CC10AFF42C25DB7EF2C10AE9C23F05A7D7DDDC8F4073AD6 +A4368E1FD213356F1A0C4FB4FCF94D6CF2606EE38AC18606FFCF8DCAE5807DF667F2EEC44F5D +9C9927E7584778475D097D536DEA09E4FCA25B896958815E8C71B7A0D4D25A4E4BAD2ED79B0F +2DCF9DAF5C0349DB2300B011FDD3D40868AFE8EE326EDD2044CFA556B171611C193DED449CBD +AD23C3230A452A64355184BE46E7A2E08FFCD5DF0E11EF33C873D2912D2E9D8DE5EFF60407B3 +83FA25FD224F4A5911B988136A0382CBFD3F2BF2FF56916F2D3C102C73BEA27455B458BC9787 +0FF37C82BFCB4ED4181DBAC4EC98316391F4EDCC493F0DDF93AE975042BEB542E1FCFAB86A41 +9707D41B774339183E65AFD5AB5D78D471BB1E9F8A4B5E432BA6AC6D2E75F5B754A1E0E0AAC2 +A05720CB2940B867494C919B3861621FAD5716220AAF9F76493F000FCF58ECD10AB5270ACB37 +0F23392EA511683193AA9ED9324CB2D7D7A122E40EB37B5FC8C22D478BE98D0CD6403AF04555 +2E97ABF1DD33312DE2B3922C4BEADFD07317B3C563EC24C52C4AED8D54728278685A631BBCA0 +C1AC76373BF45EAF4C636EB9AA58B05E796ECF47CEF28E48148C34352B6F7D225988A2CD38D7 +F911E5CB88A37297793C150BAE089A105982A474CBCDEE01E3A3DDA757AE1EC8E8E035D347A4 +EC3069FEE7EB14BE36350024520509B69BD4190B9857EC17DF8D8038EB222720C43BC3FB6B31 +76986C6E8120BBA1C0F92AA87BD22B3F797B84DD412509DCAE4A44BFFC61B17D45BBCA291239 +1F1464C9BA910A9366C86B97FACBB8D666A7A6ED5C2A2E7B43A5FC014EC1F23D92875C820A01 +F6663C756E643404DFDF9AF73076A1715BA48D435306DDDB30324F35E3F41F83E0477FCF14DA +2535190D445C3A17EF313C2D763CB9119BD87C59F0AEE8F2369A353F61B97BF43548DCC182EE +D5C8C1A1712B565BE60F60EE7F0F30CDEE883E1D9BCFECA7E7EE2D14C38952CFEB9A225706F0 +513841AA81EF46199212B270016020CD88D8D74E6FB60CA7CF8F64632506B5E8E89BF588BC40 +4CEB79D9F7BFEE241590F1FED522137B33FC11439D3F1692F4FA4DA6C90B2615FEF82AC1493C +12E986D243FD182DDBBDD7F351D9446BBAA9293D2801CC0FD7145D3D5305AEB8300F9B111164 +6292D481414B940EBD50F87C493B3B09EBDE2009FF81AFBA17A566767C2F0973A8D63D3E5B3A +B4CB709F6D536A4FAE603D7CEBC3D88145C8F7DAABFBA7CFA315D2A1B0FAADA69C9843B30B61 +E3369505CE4524710FAB4E382EAF9BD95A11C2221C34FEFA7BE78B72D07CDFFB725044851609 +FA18B00D753875E51872EC2B73A808D30D46A11F2DDA6D4173FDC7298E6BC9B937BDC9B7D9F6 +D713850C6A9D26BFA62557436C48181174BABFE56C1202860ECD02C29D64EEC855A2E9230472 +86D79277C7FEB366B2FD242CB3BC106BED6F1EC30444938409356C59624F1570D9764CE90844 +5761C8714D6B69B97D3045FA77424CDDC511EA7BC7EAB9B0769EE369297B945F4E649212894E +C0648DA20F4699F0C1C4B483401AC1397F86C4FBD01FD4B5783E9549B6E792B1070485547F18 +E265E85CE1D48A36E611B8EAC33BA3BF3CE797179822C50D885E52593D7D52ABE7A65D0BED17 +284AE956339EAC35656C28F15FAE93D04019E8091509AB595F046705CF9E773C68EE56326B27 +168C9E70A09CCF14A3484BB31D80DA47922473E33E7EA3AE8949D3C0E222C7FEDC4CF7A8D4F0 +ADB5FBF9CA187AFC7E3E3F8F13C8948D3EF33F46A5B224652C2A4CFCE8259AA185DE52B3B9D6 +018E0A2A4A36215B289FC405BCF140B9F02AA219F0426C29529FB76A4EA3A0116EBA11356426 +56086414213DA824B9DCD2C0D1CC4824C24AD282A00F210B9A08A9317E4F9C5F2F50D477FFC4 +60A7827E0F175806D8F3156C017FB43352B7CB16EC8514543AAE272862A5DC9E81D93F38BE39 +BA838C7C6E109924BE7DA1068B8611859351651C972E02029E5933705A4BD9918307AE45802B +FB4125D19711E803A11186DB8F05968D669E260C4DA749F8299B965532A0EAF5C7F47C565EFF +01581DEAFC030CE7BBEBF673C1A790B00245FD4CE371814F9A613823DBD2EC9E6666A9850B18 +11D0026407FB2A28D23CFD25CECAAC70690CAA72BCFF47A21041A9EE1683EF278440E2A986BA +D61205A7B2BEFCCFF802206F2D03931A51F61E3F974EFABFFD6987527D922B8CD79BC313627D +42F17AAB7730E8448D629DC9DFA1C4461AA4C88245662DF3F4C0306C7684BF5A0F752D962DDB +BAC3E82DCEA6B05D53A2DCC7E110A96B7462317752205E039BEAF778739539F6E0C4FD970DF6 +8EE666DEB0138959623E7869395CEBFF9EC81A50C42DECCAE2E98A2B1C4F4AEB6811969CBE1D +EC1D0217E2678E6231ABB099EA56BEC738E3040EF6917B5C7BBEF0DB8F544945B8ACC2594958 +64DF4B578D2397162489BE7CE21BF69CCD0BF4B23383B78B404313DF36E85CC173A40CBF85FA +684A65FDD33D3349B628E528AF8D8C91B5D91B535EB37913DF5D793C12759C1148F14C452BED +8A69DCB524DAEAD8C5A4CB13B6B5079ED3AB70C08EE1F03D74B76FF56DEFE20FD850AE021314 +2711EE58F9130EC12A7138A0408A0060F4361F92AA67BD50CF0F4D3AED0CF549A8D0DCF364EE +D5CCB307B8D6E267243EFDCE3EC615F2284796FF5D590B04C082A4C7BAF99CAC3688F82C6382 +71CE8A09C49467DD6A6C176C4F98214178EC601A4DAACEB26653D3C06558C0DAC08F5D62A83E +77B7355D08672F274F386D50B0C3599E287E3BE8C04E988E721D00AC5F4B1C75423E868D96F5 +6D55E3C778A98E3F5673ECD7D6BAC22B77B745177520B09CE011AF4E86490948581137B0F32D +0A80AD73008EB4FEE29F176282FB15D0A0DB49853FEA636C1CC9A1B0D152A6452987F3E66637 +8F832E23E39676C26F3FA2C941576EEA4BA9B7D4E179B899ED13348369DD1C0BF691AB8A5AB4 +5C79DB396533F41324A7FA3EFD402BE7DE12BAF3A84F5F7A40912BEB5B39C1D7A4C4D55F1009 +D35BCD04C668C708C323E6F82707641A06FB99A3F4B6EDA3162CC456175A8D67AE84CE2A4279 +64610DE2F024BF1DFCE2868E7BB89B679D762CCB76781CBBE8B2E16CCC5EFDC0E99ECE7B8B15 +64D689A7D439C2317C5895CE96F80FE6570CFA9DA2E7DD56048730B87E4E684757AAA7C90CF2 +F7CDCA38507330E98C13FC315BFB9B14F99E0D40A50B895843F7047A0259DBF839C6D760F88A +5AE91F03643126E5DBEF1BD037832EAC916F6A6F4794B8A29B29443AECF1F377EFA9D0D092CF +7874ACA4A69C1F1F45417311B8B9DF2A3FAF12B72CBD010A4B996A20EAA33A41E45754566D55 +190BD7C570A39F1135C4E90C60A5FEBB6020A7030812297D343B03BF9F51654924501DB8F96E +2EF5A24D3C3079244061DA6CC377B6CF4EA5DD6F67312865FBE65E03255FE24066D26A434F77 +EE56FF69FA1813486B62DCD580A44C2F6EC93A87D9E817ED4E031E49C47FDBDE2941C9C169B1 +210A8209DF9DE86A7330903F6DEEE08080D8CDF81E4C24954F57C0B3EFEB3B05B0BC82EB9680 +3F030C74856D9BE1A08AB318CB3CB63E55734B673E26C3B61939A7B3A537665B6A357B4B5BE3 +514410F5E17A8FF8C676FC9A6B90B4775BF0D93879A88C9B9006E1501538B3145424BC7A36BB +37B06AE1FC0D86037984C98FE1D32A2B6E5A9D61BA5877BCBDEA669A2710195B76BDB9FB06E1 +84655B5414259530785D4E00841052E11D00A0A5EBECF7531BC70C1DF8DAFF8671FCF8EF6085 +D59C2E24FA0B8F1AB618C6B4A810D121F67B4399572E969463D042FDFCE55C98C3FAD4377952 +B7912CA9F1772FF09CC0BB7393297DF033C1BCF503D685161340259CEEF54D2F40E408D52A40 +95741BA9BBA468DA2490CEE320A68EF8F8761816741426D11CBAB031F2DA0D1EC8DE51DF87EB +85D01571E27A52213376FB10A6076F9C8C8C9D2DCFF9FF07EBE82156E65A88EDF852D7FE1E05 +E7F5E025A711EC6B95B2B14466759C11CC4B4D9522AB11B176B8B54F5F249AD4086207415CE6 +47BCA93FACC0452E075BABEF0DB5401433287E1AE46843A923DAE16E400B46583A9316ADA612 +1C5FA38B3E94B297E6356ACD5C326AAC8D9CD84A6CA3A6FC25183EC936716215FA35B6547ACD +86D79EC7EBD318B3868F2A2236E891B962380967158E0224B1CAFEDB49A9BEAFA6BDCDD422E3 +5E664868E1157E1BCC9F01462B0E4642C372AFCF6EB41D3BA26EE819AB4F2865F9325C3E0C73 +81AA28D87B216C72F9E145281B180505A790F1674A626B072CCAFD8C2A62A3647DB9E580283A +035BE82709109B1BF4EAFD0811D793840CA5E5A83BBCC031899CFD07948919012814568A01F8 +388B845D68F211624882500256152ED0EEEE9F8162EA61146DDC38CF0EF6FFB3953D12A0A69E +FE43412F84757D9DCA053C79C33328DDF544FF03621060837D2CCBC67FBE98935090C615E9F8 +9A6D9A6DE90D57997B953885573E4F60EB9684FE7A58F6DCBFDD0D278FBDA98C1B3B2AB18CF9 +FCB0050AE13E193F904B748A9A23C305C5927ED55DC34E031E011BF659D00BE0FF6B27D9FAD2 +01E25879AF2E0CD4CA8C3198E1F5128F25BDA472CBC9D06A47CFBFCB85992DC08F05E3119411 +D5ECB2D58420742DD2A6A7120DCE6910BC90D7382E0D761E50B8EF48DCE63F3F4869263DB1BE +FCC2FBFFA8EE661B7852910A72B96EA58FF0943E25C1C0F6F3C0487AAE6D71DA4DFC5C351FD8 +F4CDEA999B4E52CECC23ECFE6A2E497A80422EDAF1126FFF088A769BEAC884F5AB336516E1A9 +1D6DA3F911571CBA9D369BA7FAF2CB8DBBA2E796E4924E0A40A6E9467324883CF5F721930E9A +5CCDDEEE519BE2A35457920843330B8779DC8B0E3805FA9B2B4A9371CCED5931158E6DA22A5F +FAB60F60D8F8E213B0EDCACEA82D14FF523A4E51BDEB2BFA5F040677BB1200D3E217AB15D221 +1FE696A37A333442B58E3FE0DE15F4C53060D1131DF6ADB1FFE4944884BFADD8A65474309E68 +0EC8309E00FCAA29AFD7072A65AD573D6347336C169626A07B2C08A10546B0EE9AC978DACE23 +1D99CBEC9435F0E79A1D5328B825A869FBD63EDBCBFA8641FEBE28148CB784E8E2849B63E300 +8720AB299EAB77CC0ECC85D6BBA07FB521495B74E59F9B46A7FFC18A7BA348D85641A8F31B99 +EEC1017B2D3E3363459C66E09091F91DD16E9FE254951FB710E4167050CEF1C140654A5C6F2A +8A5B1819B658A7B2B4D2B4F647908A607161173AAE9DFB3A5817DF44DFAC9D95E5796D73F747 +D45C571FFF40B43F48708CAECC302CBC2FFDCA3E3E4988DA66040B66E6239EE1637302B3B8CC +468E7F34422ECCE7C6691B54DA15C2204B6BDDE3424B65855862C21D417E6132BF110B26CAF9 +87F3AF7B7B63458EF2ED81149EF695080C2C3A549124209A71E164F25E885B998B7618D208C8 +DEFD0F35F22056DA71CDBA1FFEC267B91F990722024FFF526FE407A4F58D68F16EECFAB8AC93 +E1CC18BCF39F915D00BDE3AA737A657268B1C568D406E5146BA771DD041CD6C7C9F88C560D3E +99CD1F9F19764481343FD62F404BA59479029FFEDC7AD75E3D6E56214315B4AC126355D81475 +20E5ED816F9825FE42F1E9D56480119FD1FC93CA085DB9647C9DDFE59825932595DFA173EF09 +DB37C9A66E27332B63AA443353E37941A25CC952673FC90172C972B4C95F4C24A5412B255CBE +22D8DF49D6B5DAB47F711CF8855CBCDDDF7A6A5323017AA58CF92A013EB444B6F86A0BA2E1A0 +7FE636A74B085824B26BB6E7C2AED9055B7C2ADCF6F87C12D9CA999FCAC78F6F64E37DF92F1D +8AE3C09F0BF00CD30475CDC9A675BDBF05BB0E4ABD7267C06020CC90E673839C2F0A17BAB19B +493086CF13D3A040744E2D9C665898F8637DB96A56008D499525BD047DA50F99F6BD4558E9F1 +7FFB9DD1452646D5DE6AFCE7EE134434196BC99609C81C4A69FEC85AB20503DB2B41539B9271 +999C6E3A416DC50F7333505B5C4A1449E0D71C55D953A956F034F9B2976BE7CEEDAD3D0B0269 +6EB859C6EA61D3EAC2E204EBF5E0CC04F4FDDDE7D7D71369EBD62B307C0584A6EF2FB84FA95E +88DEA29E0041821CAAA681D651BECCD14EE8C588E6BE21C43E023C44A1A182FC4EDDA4A7A8A2 +C1EB9B56A1A7247BB5C9832AF09EF7E6EB461E4E1B1A959E8E3A42EFACC1ADD108A2F3082575 +1C8860C3B446DD783B4744C7EF6BCC7BA292A88A910A80DAE01C1D72D5995C1353383FB9BD37 +B8997D6CA3CC366BFF1A14E3A9C807D42F41440FEF039F7CCEC81F7BA561F40A7294AFC387C4 +96E793E2E563D963AAD72D1FD1733673D63D12A3F53E9A4C8A796ECC8ABA7DCF13BE49E7DB56 +255F89FEBFE4DB6E4F18B04B7942556DA419861936F406B7E135FE3C0F3C7154FB3F0E2D3DBB +60A95E7F63B2FF0F3A12B35B9C04DF8A3767D1179CA0128AC29E37F099464A732FDB455C83E3 +FCDFBE743024F82971EFD1C5FB1189B100E1228A1BF9D883BE6A74A60CF7982B834381C7FC8D +C1979273DAD753181178C7AADAD73B3FCE01F568FE4E7DE73088F59401E5B06F0E25CEE3BA90 +401FAA7F8C0382F980C1AD69207A9B6E33607537BFADB444C22E08249BB2867DA5DD4D7309C3 +02BD588E1DF020DCE77998DCE2F0764F208C8C247CEE6C5A872207BA0BDFB3282CE7F1475680 +ED0731240E31E89D1BE5DD962B87E7800E2401F5B2E7E8FE43EA25BA7B64179A9538053901A3 +30BAC40BD031E9D849688527C38F6303D8BEAC73D7DBAEC5FB3560371AD47A91D8C774FAB097 +B4C994C526452BBCD66C1B6EDEE6291EEC9B368FD74DB2F8AED80951C3F2188A7D44D8A71D3E +BEA3B33ADEF0562F833E1A115AC8DA1FE345CB13C2D502217FC5B102884C7819501242C01184 +F2376E8A6B0718DFAC4BE4F7DFCBEA9150C9C397E1D18E3C11A17D0CCFA063EC4513428F8129 +3F83274723C0B65FE702FBA603B0C208F196908D1AD7088D9F72886EFF0B437A9117440DB2C8 +F1B6A489A069DC74C4707206378E9A7B1AF26EAD4A0DB1304E3A6EB0592114EC5FDC72F7F3CF +E14AF010E62E435E173CA2D58B0B90287FC8A568704C986DC895A46CDD5CA12E6C3860722500 +693E1709636BB2B8963C9029D22DB02DD8FA225770CA2F8BA531E67A022AA6A6858A4951F1CD +DF5B225335134F35BDDA642816F0B47EE504C6A65FAD844854ADF2740C41F92BC9F2F4A20646 +543C57EFE1A479577CED011008D647785E719276D5BAA7D3548B739B2E36123EE1F9303EABF6 +7B0ED953ECE9A5DBB12B902D32CE73E5E60875546322567EB5901D888B2B95BE1E9DDF50683F +F74E65E0592A7EF21C2C3F4462F60F89281FA49BC711FCDB27E2E5BAEB9C034CC856738C7745 +15D9A8B0C38B5D6C4986B0D4D0C2D5A52476F5DF394B1212C8B3E6CB6B33900A05DACC73AB1C +391C2720746972EB65B8854259A9FE527E5AE1BEC133BA867F64BE960EAA0C10EDE91B46EED0 +E3476140052E57713E07AFEBEC1A6532C15F5209DB0449A548531BB863E84FC2A774F92544C0 +3B57BC5FB8FC908C755513ACBC8794AE0574E050CCFC591D37EF53FE33396451FC2EAD9C3F5E +E94F0EE6E79B6C544896C90F33E72A31EF0F621996D589E0E731D10D2BF6F5A78D10EEC345B5 +1F7439F922B9E281B6F0F0C3827A5593A86AFBB94FD2CD00FC203A49D30144CCC3A17DDB8515 +7A61BFFE4D9AE27B69250035FA8F9FEF3B091B357BE4682758B0486141229491B9831ACBFC91 +0E185ACFC1C7B9323BC169199EE982672EABC8903FF40F4A74962647DD35C0B762AB762A9F08 +626EC61935E8600B503A5AC47D8FF78147E37E276A5D0744FD95836878B382C8D25C5F3A9E74 +B819384B97D109FE7CE438872AAD26E359AAB9476A747876B77EA9FA541D424BFF8D132E1269 +F00D661AAF7F619F5D50EEB927198B794B05EFD3F0CD62FEB6F27F86DBE5A35EA9F44B0CFB1A +20FFFE98A5C7D2FB0A8AAD4B7B5CCE27E934DF67220CB0C071859E505A2E66370C106C7654BA +55A929B23C5CC1D3D37917B73954D3F960E701DF573DC0C5C31F25AC2061B5F0C35F4B6371AF +E40C32BBC9E7E9CD260D1E0DEEF69AB605E7602D3F217BB41A82D8206C9EE9AF1D0E787CDC43 +4F1A8A3BFE0100D9E1E508C2713D71DD8D7D322E9A57CEDB91CB76185C1FF53D6533D47B83D4 +ECE5F1DD1D5B6C282CD2B7284B7FF388A2F8FDC4A9CC45AEF1D294C84B0A7343DB1E7C2D16B4 +8902017EC5E3D555BC145DEB4A52FB055FD870E7E2C3428D641433A7FABA89A7FEE19FDA991D +2082ED49A931CFCCDC12BBE3D550D7B9F4A3E021A2B5F422F8C497E7E69C24373B473DEF4DF3 +D08023F0724C18A67C9C5221E7C9AAD23FA80129D2D2519D58C85AE7F3F87A4F089F98D9C80C +55A16492D73861CBD87D9008259A96CB98E8868BC693C5F630BF6D0137655036DECB36DB1E61 +A003DC972C240F006D5CA0A5329539488BB00ABAA1EA463D442268D981FA170D2A0FE1DFC3B4 +02F6412F42D4837893D2BFF7DA75278AD1178EAD958464FF278243670A8A984701BB9EDDBAD7 +EAB1DD0D5E3F474A8AD06F8C24A5C72EBFD51258623C90BD7AF6EAA8F4372EB427A36B1A0E85 +EB7211EFF59A2850DC00E2165124F31368BE56A4938C4777FE289D7381742DC20598B968D010 +3D90002326D1B648A647240FC0ADD70182A245034661935177E6A77C416DEB9D315CE0FECA7E +683AB726AB60505C6D0B379E53B1A29D111EFA7580737E513C367F4163023AE319C2C653002F +C18F54BAEE52B783F0A146B73BA6B4F3860120B531EE8F6E435BC873D408EEB3FA621EB89A51 +85624406D82CFC7C51F1BF29C5171F9802D5567681C3C64AFBF378098217EB21674E0B5384F5 +163D3B9350CF2D302342C29CF75B37E879CCA7F2EA5E1CF483EA2AEF92CDED14F6B8C85AB1CB +C1D6B9392C8BD0F77CF38AFC596D6B515DEFADE1F3C4A217739845AA9C4BA8AC402CD4B679DA +BF790137EA65A38F2F7AA02FEC12BEA3C18EEA41B544AEC323901ABEF30EF47626842799ECF5 +ABC493291ED7F499FCDD941A3A5B7BE4773B36B0E09C6A9B27FD836CB35999E70A1BDC4E7BFB +35431D4288B95B18030FF167B502849CD50EA5C584DF8CB79AB9BC1C6DC3FDA6F0A39400C9E5 +51E2FDCCF0E9F437FEF57132B5FCB1785BD2161C5BCDD00F8139D1E75C02DC8FB22A79CD1AC4 +C38E0B16D0A1A1D6026EA01693CE8A7328947CDD31B3A558B7D36456B151D9B88FD288A50178 +17515257BCD601D609074B426BBFFA6499677B121404FC00F7B8E4ADED93FF2357C70BA324E7 +25EE96F2485F31C5F7C679E9FB3D8D0E67A9FD131A42B25F71D822616B05B6D3D1D95ADF87BA +7E794BC83A2C98D778D43DE25F8EC6420D85A27FC6765436BE3DCFC5A42EE7177E00634A6D53 +50D94568D38EEA09D436F46153149802A6449AFA80B22533D0825D3A53B8A53D89E24E76A900 +EA9066AF006B757634811421F95C5E82A37D45E073A4477BC02FD8F63E32E543BCA7A16D7B74 +A99261E85929E58027311B2887A21F04323B7EE679C4DAED2B2D8012968763BB6BC52F4CF950 +BF65F0980BDDDC4EC617FD08495301F858463FBE4E05DD152B91B827C0835BC0F1313063E0CB +2DD8FE72D25E475C0D4F68BA0CEFC5F4D3AACD5AEFC57C829C65E69B740831F47C06BCF53195 +028C7C7617BF44BCA7491857137EBB361D0206E56D3FF6111A50C6DC0133197D01B4AB46976F +CA1A84DE7116966CB09832767C98FF65DD7A08DA2256610DC2D70D19B11A70947717E72847D4 +AA816E9787FB8077B95B4E67510DE712E3AEA6E7B9A6402C1FC8936D06418262BCD47D4CE790 +76EE68EB9D284162C917246267AFD0A82CC2DF27761C17E2C51DDD2D02FCCD81D9BC654636D2 +F4530BAB0055DC6AEF568EA985B6E346C2D126E7B61C64F8F2B307CAEEDC8DFF8E8458612050 +72743DACAF541C894954596EA694AEF7EE034E0CF0AC970C090D695560EBF50080731C182624 +27668359C937991A24BD76C068EE2DD2E5CDE9F5777396801678C51026B1738A49E62AA7F303 +C4810125E03F6EB91B6FE35CC5AB18F4C29102EAD08F97F9F451C4717E36123DD22D1B368FE4 +4C952D7DBDC4A87B46B149B90C69CC7B2B4C7D157890D3A01AED0C562214813DBAF0EC7FA854 +F39C2962A9CA7CC8FF40462814021D9C134639737728BAB4D85D52960B7F96497642A52E60F4 +594E062790F81BE500971903CC3E153AEDD3F9C034BB0F6D1609C06419E98092B27DF6BB3B04 +95567B204679D53EA2E113946A7ACC0E16F08DE22C2C4B0E3533E14F79140AA2FA812DDCDC68 +5ADEDEA3B43BC23AEC258E12EC0FAE0C0C55D8D63A054B4BC56CF72456989E25F7D20104D4A6 +4BF3C605CC0C096CE17CF926BEF15627159B44504346B4C7FA65A09FAAC281493B79F06D8D0C +C7BACCB0FBD6CBFA72A16A55DCCF96EE1249356E42B20C848BF1A3328614DA9A671D51585B1D +4C5F3A54E519FE35604D817E84D6B6CE9002DF7A78C761FABEA41F5FB842F919435DAC55CEED +1254599BD27BA4E8EE92F6CBBB9B68F314AA44CBC42D51DCFB2DE25DFF943F04280381C07218 +4C8E0A05E731651987713C15A844E92E9B901D741EDB4046635BF20C2CD7ABE0F37E4C590164 +9857B7CFE96DF5AAABF3E48C1DDFC62791A3923C1E16292DC94952E49E3E2D34BF708BE6CC30 +34DCF99D62126DFA93DDB447461CF1FDCBEBB367B0D58A8F75681B84B8B66D1B59AC7490F25C +140B2E09B07B166C13CDC9EA17640829F470A71703260CAA9873C58879C5EB7D701738A6E171 +D3C3ACDD4F30DE9E5CE78F3AEB8E48588EE5F9AEBFDC05FC8D3694D1296E455906FB20F184C0 +17BE259D5F61FC3C12354C6D26441D81308AA0D1520FF9B6FC82D1AC45402D00917C0FC3A695 +030E759ADD8703BC3410B69AA1286A5E2D828B674383C5C4B6D21F8A7EAEA7494BDD401963A0 +30673B82EAE211FFA48845C0A7FFCD0FB19F1E244CBCDE0DB01B194354B7EC3B65FDD0F2593D +8BB002651DAA01CFEFC40C38BDBC2E965A13E30BFC0D914551289C9D5126F4EB9FF0558F644F +2A1A71AD6FF7110BD31E063A80E4A97BA75E73823EEF7066BACD41EF6153180F4CAE8A93979E +A032123D9C2FDDE87506480770C625D9F84694894A72F7CDFC4A1E4417079D2DCF09A0E93D68 +13F6B6C1DF0C1BC7CF2613F007E1CA2A8927BE351FE46D6AD094BA68B496FBC4870DE965A54D +3A455F577F02005BB170E5B4718726A9BEEDDA9567F531DE852A51488596055732111DADAA6D +D2D4259AEF08B253FC2340AA359FC6A8E328B6C4C7B51590D26E47BA927B4300FB9D37CA7FAC +87C886AA9A0F87889A3B83621EB0ED14650120CE4CF2719F78A7B7060608E9073C544B7B9D79 +7C02000919B1995B448E978B167D716B413DC40E3E89655763D207D5C3B79BEABF76C607F28E +5C144B21DD81775B61BE1C3BE66E2CA332E8110953F9AF54004955D5479E8A33078E7ADC3235 +2CED5FB8F800DE8AC28A132260291CDA6632691B9BC95A668F9C1F32E21D5E2618B13299D318 +A428E67D7DA6A97BD8C6807C21B6AC08195FD818DC89066D12677A2A5E121B0E5D7176A1DA12 +C5F1A7DF6A7E76CBED11EBA49A4A058B74AD4C1931C3232B334033C75A58962AAD474622E62E +87DE9DF10A8E36139AFF126DB1641D3583ED4EA81F34521DEB060D0F1F3BB2AA343385914CE2 +B3833BDC4ACBA60F42E6A1B40E62F28252285EDB18C8747DDE0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 + +cleartomark +{restore}if + + +%%EndFont +%%BeginFont: CMSS10 +%!PS-AdobeFont-1.0: CMSS10 003.002 +%%Title: CMSS10 +%Version: 003.002 +%%CreationDate: Mon Jul 13 16:17:00 2009 +%%Creator: David M. Jones +%Copyright: Copyright (c) 1997, 2009 American Mathematical Society +%Copyright: (), with Reserved Font Name CMSS10. +% This Font Software is licensed under the SIL Open Font License, Version 1.1. +% This license is in the accompanying file OFL.txt, and is also +% available with a FAQ at: http://scripts.sil.org/OFL. +%%EndComments + +FontDirectory/CMSS10 known{/CMSS10 findfont dup/UniqueID known{dup +/UniqueID get 5000803 eq exch/FontType get 1 eq and}{pop false}ifelse +{save true}{false}ifelse}{false}ifelse +11 dict begin +/FontType 1 def +/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def +/FontName /CMSS10 def +/FontBBox {-61 -250 999 759 }readonly def +/UniqueID 5000803 def +/PaintType 0 def +/FontInfo 9 dict dup begin + /version (003.002) readonly def + /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMSS10.) readonly def + /FullName (CMSS10) readonly def + /FamilyName (Computer Modern) readonly def + /Weight (Medium) readonly def + /ItalicAngle 0 def + /isFixedPitch false def + /UnderlinePosition -100 def + /UnderlineThickness 50 def +end readonly def +/Encoding 256 array + 0 1 255 { 1 index exch /.notdef put} for +dup 0 /Gamma put +dup 1 /Delta put +dup 2 /Theta put +dup 3 /Lambda put +dup 4 /Xi put +dup 5 /Pi put +dup 6 /Sigma put +dup 7 /Upsilon put +dup 8 /Phi put +dup 9 /Psi put +dup 10 /Omega put +dup 11 /ff put +dup 12 /fi put +dup 13 /fl put +dup 14 /ffi put +dup 15 /ffl put +dup 16 /dotlessi put +dup 17 /dotlessj put +dup 18 /grave put +dup 19 /acute put +dup 20 /caron put +dup 21 /breve put +dup 22 /macron put +dup 23 /ring put +dup 24 /cedilla put +dup 25 /germandbls put +dup 26 /ae put +dup 27 /oe put +dup 28 /oslash put +dup 29 /AE put +dup 30 /OE put +dup 31 /Oslash put +dup 32 /suppress put +dup 33 /exclam put +dup 34 /quotedblright put +dup 35 /numbersign put +dup 36 /dollar put +dup 37 /percent put +dup 38 /ampersand put +dup 39 /quoteright put +dup 40 /parenleft put +dup 41 /parenright put +dup 42 /asterisk put +dup 43 /plus put +dup 44 /comma put +dup 45 /hyphen put +dup 46 /period put +dup 47 /slash put +dup 48 /zero put +dup 49 /one put +dup 50 /two put +dup 51 /three put +dup 52 /four put +dup 53 /five put +dup 54 /six put +dup 55 /seven put +dup 56 /eight put +dup 57 /nine put +dup 58 /colon put +dup 59 /semicolon put +dup 60 /exclamdown put +dup 61 /equal put +dup 62 /questiondown put +dup 63 /question put +dup 64 /at put +dup 65 /A put +dup 66 /B put +dup 67 /C put +dup 68 /D put +dup 69 /E put +dup 70 /F put +dup 71 /G put +dup 72 /H put +dup 73 /I put +dup 74 /J put +dup 75 /K put +dup 76 /L put +dup 77 /M put +dup 78 /N put +dup 79 /O put +dup 80 /P put +dup 81 /Q put +dup 82 /R put +dup 83 /S put +dup 84 /T put +dup 85 /U put +dup 86 /V put +dup 87 /W put +dup 88 /X put +dup 89 /Y put +dup 90 /Z put +dup 91 /bracketleft put +dup 92 /quotedblleft put +dup 93 /bracketright put +dup 94 /circumflex put +dup 95 /dotaccent put +dup 96 /quoteleft put +dup 97 /a put +dup 98 /b put +dup 99 /c put +dup 100 /d put +dup 101 /e put +dup 102 /f put +dup 103 /g put +dup 104 /h put +dup 105 /i put +dup 106 /j put +dup 107 /k put +dup 108 /l put +dup 109 /m put +dup 110 /n put +dup 111 /o put +dup 112 /p put +dup 113 /q put +dup 114 /r put +dup 115 /s put +dup 116 /t put +dup 117 /u put +dup 118 /v put +dup 119 /w put +dup 120 /x put +dup 121 /y put +dup 122 /z put +dup 123 /endash put +dup 124 /emdash put +dup 125 /hungarumlaut put +dup 126 /tilde put +dup 127 /dieresis put +dup 128 /suppress put +dup 160 /space put +dup 161 /Gamma put +dup 162 /Delta put +dup 163 /Theta put +dup 164 /Lambda put +dup 165 /Xi put +dup 166 /Pi put +dup 167 /Sigma put +dup 168 /Upsilon put +dup 169 /Phi put +dup 170 /Psi put +dup 171 /sfthyphen put +dup 172 /nbspace put +dup 173 /Omega put +dup 174 /ff put +dup 175 /fi put +dup 176 /fl put +dup 177 /ffi put +dup 178 /ffl put +dup 179 /dotlessi put +dup 180 /dotlessj put +dup 181 /grave put +dup 182 /acute put +dup 183 /caron put +dup 184 /breve put +dup 185 /macron put +dup 186 /ring put +dup 187 /cedilla put +dup 188 /germandbls put +dup 189 /ae put +dup 190 /oe put +dup 191 /oslash put +dup 192 /AE put +dup 193 /OE put +dup 194 /Oslash put +dup 195 /suppress put +dup 196 /dieresis put +readonly def +currentdict end +currentfile eexec + +D9D66F633B846AB284BCF8B0411B772DE5CD06DFE1BE899059C588357426D7A07B684C079A47 +D271426064AD18CB9750D8A986D1D67C1B2AEEF8CE785CC19C81DE96489F740045C5E342F02D +A1C9F9F3C167651E646F1A67CF379789E311EF91511D0F605B045B279357D6FC8537C233E7AE +E6A4FDBE73E75A39EB206D20A6F61021961B748D419EBEEB028B592124E174CA595C108E1272 +5B9875544955CFFD028B698EF742BC8C19F979E35B8E99CADDDDC89CC6C59733F2A24BC3AF36 +AD861319147A4A219ECB92D0D9F6228B51A97C295470093CA270C4488BB4EB864B4863941B97 +39638D2E6F3CC778582B46AEB4E466D89D1C211225274356A4BC90F3274C6AA56E200249B7D0 +949A3FD4185DCB3E5286910EFD7CA72D5D8E8052C96F388D12094B87D3705CE64459558CF024 +667C0FE96CBB32B0BC9E51037D7BD62BE4B05FF99384E71D78441A79B0B1DBA1CAE02434A9FA +E46596FB86B873B1670DAE0BAF516445A0DDC127F8FF3ADA0B10EC30A9CC1F7E9248828B5E8A +B46C3FE4154B80A54128A08777F5F9B8C519C7E3B632B3476F007FA156E9F39FBE57638B4214 +CD2BA79BA9DDA0F4C073AED814ABCCC2F7906C57A872C00E67FF03AC120029DAB92376422FA2 +1C67CA98BCEB8C431CA2D3EDDC16BDA59363F49614070AA6859105192CCC6E4911B0B5D0FBDE +04872D8C8D84FE6B68702FBFC4682186E03F2141CF8FC8E232542FF446E00D34A7B9B9271B07 +DEEED93C336653ED0F51DBA0DE34235097373CA4583095151642EEE76B6BA6714F37031F5AD2 +ECA4875FD02F65D47541F5245588F0CB5933A759342FC460ABF99E014A85CE3BFF948BC38F3D +29FAFBD205400093EBD129A9C3AF161E7365DEB2905074660FEC703B6D4733A66EC1E78A1FF3 +FA90863072C108109D4DFF62166EA04DD1E05225CD1B9A6808413402E9E1E81512B71BFD7811 +32923BA7B5DB7032E7AF65CAD135E8D3C0DDEFE960DECAC693166D83DB2A6D819E40024B40A1 +14818D7E943849FD90359B4BCC4FB0E2E0373A6200C13F194D735815ACC2E09BF4ABC693DE6E +975F0C27BAD1DCFE8D0A3977B48104EA6F85072BC0F5FD3E8FD8D53DBB088061BDB89249A4C3 +E6BDB4A5A0F469D9B53E9B35A4A03F558DC93B8870FD28A829735E1F25F455CEA1CC8DFB4088 +88DDBCECC050A84B6EBF39E42B4278F92E44C7A41FAA83CE07255B8CAA9F3EB43368900EEDEA +ADD836AEB6637EFF72351D649500FF3544DAB77FE191A5907B8E7C2AA4A9B18D857C63B2F412 +79FE6E241EB946D9A67B3908CF7146DE0D971192BF7908B3319E6C0B33995F4E54BACDA90406 +93EA19F24266FF8A46B93D6091337C2BBAACE6ED443A6A83EA4296E41E309192D66122FCF7A3 +7578C45859854CADF75A8299727CDC5868F365497886C518C001A3CD4C0A5ED589C3FE9C1426 +9A9DBE9A10FBD6B4B0BB6292975EF7210A6E4959DE1F3063A98393C63ED63D2EA31353ADC92A +C1B924678E81B509CD4470DBD22694E2EF36266270A78A350581C6AF9747D92BA0ED2019FFFB +DEAA908B373CA6A848512CD5A5607A8EF8771533539AE3D2F448FE1092CC640F699D73C6CB42 +1B56C630574A11B5F48DF7DDF4942C82FD5DCC9A5BF9585CB7715053059CF73503C1FBEF7F8F +45546039AE0F3BDDE1ADA78C2DB36040C20848ADB4144E71B38A447FFC4F7683664160273449 +12C9134FB30AD513BFB40008884FA98F1D25714121082696C877790A06A60BFFB6CFAEACF554 +53878DF4D972841D7D18E510D5E842416F023BA13A40696FA534DB3B0601F45B77FB1CECAD24 +0B8594CC95DF65BD45C1A73D2489D6AA84FD46414D992CDA7D307640017951656A3C736C73B1 +16EA9F0A3304EAFA312E46A5152E902D840108C2A1858A95B958055A8080B97D612BE59E2D24 +A5362EF77A83CD8656F8FB6519BDFB3CC43E068C8203BAE620255274AA281972A1EE85C37881 +8532B42368AAA93A0C984D7380AD57F1B8FFAAFECAD5EAC17A07DA742E272D3C809B157D2669 +AB88DA9EBB91B9E060DE7F275ADFE2FFEA18127969214795E7CD9C27CF902AD3EAD6C6AE0A4B +CDDAD88B6F37932BC7B07D9B43742A08A257DFB3FBB532077039C9CE90386F6C80BDED9CA008 +A7783B6F702DD00D9ECFE3AD9DB0704BBFF4CCBE0B3C75401337CFC1A37E008A09C95C4CE6CF +8AF556487D6B320F3B3A9D36623E85FF4119D9EAF24099C2E1D9860DD2187E8CDDF80C4F0B16 +4EC85E0B21901D017E0A20FBE2090DB90EEE5C9BD2EAD87725F7FF37FD8F43031494817603B8 +A7E69FEE78D14AC7A66F16800B4B7943B7AED95E9044282017A0FED40F053EBFCA7E292B6C4E +0C8DB47B054C91C9A1DE4A2741E5E7970AE431494BACF4AA487BCA0080D9A6A3FA3D0E77373F +2D40B300D8936C71D83B3332EE113D087B38E1852312C21ED29C688FFD05D07629D2A48AE9B7 +B6363AAFFC6CC5ABC96A996E478C37D745E5B6C90A006349A971C554C27F1D4F7AD1CFED3943 +15EE5C7E681D491213E010A328BF49C988D7E490BDEA5A86B0F2A8C845A01D84751E1C4BFDDD +19045AFDC1283279D7AA6A1FBFD539D3A0BEC325597E025A4DE112CBFDB439FE719E690F8DCB +EDA826D6546EDF93EDCB67F5AA78FD308CC94EB375BA5FD443083665C0E361462AE4EC541ECD +1891B6A7B41715FEBAAAB658FF924A171F4504E503CBC27912393C0F85DF4B276DB39A174CF9 +4B2D6FAC5E3E4F886B2C0D67DF8C502E1E513D934938831AAD911F3270A67FA434FD5E3D02E9 +655661BFC2BB9FE7460E6AE8CFACF6BF545C41C730AC58DBBCF9AC8532C9E85D9ECAC11D0F7C +55288962DB1EFD351B56BF6F2051C62377B95FF0C93A09966EE9C6B792126A6C7E9995F2D68E +20308347FAB463F5F2DB2E8675882CEF049EF0A6406E1647137D9A46734D6E909754E6670455 +2A41B3698B50417F2F3D4F883E3D3E6A75743820E689AE4818C297572E292B5761396825B38C +2E6D96ED290856AC6154C51FD90C3EE498E46295832503D76A22CDAC68B6B7ACB36BA3496422 +936F48E1569777229320718C45F71C0F857EE699FDD1526E4A23418681D41940E7E0FA2C551F +B8B79495719F34C3774B229DF858F51AA2E26094FC181BCAE64EE209EE131B9472D6A7EF6A13 +1EFB221E0F2CCC829A0D9672CEDACF44453400D15DDD34C4126F003A0E57455B25785E1CC9AB +4D4EE1A3BCCBEE149CDCC7EDE7B1F09DA1174F48048B568094F280F22590903F3B2C6A1A796E +851F71D34972F00FF13EB51F8136490C2BA6909B130CF3170820C652A1733BC4B69297BF1F5C +F816BCB75A0AC3520AC1DE911B72DEE5AD0033228B9F75961ED1280C6808ED0FD548411696C1 +CC747AEF91A41EF05215DB5720AADE50BC598749C67770515BFF6DBC5A940C07AB462AA29662 +1D7722C5A47AB3FA6305C55216216540098F86A1EE217C77EDC0BC3F6DFEC4AFA266019C20CA +AAEB381145B3588FAD0AAB944AD9F120DFF24168844BF92C279D1DF5923C9ACF10393655F33C +B9E7EB09A74BD898D07A31A107326EA219163FD6CA3E5A0985F74421F895F020D3D482444C50 +B428B364487B0FEF8717ABD8D2232B4D35EB256A3AE5C1B0D2AE331A1E1D4D5DBC7BACF361E5 +2719DA50620E5137E085481F632B861EFFF31AF04624D486130FB361F799FF5219E405C80DBF +B653CCB3C2E10934C95417A7E91DBE161727C5861A219A59470E6AF895C93AD43FAD820BB4C5 +8C13678AE33D18C3EF8DB36A7270CDB3BA2BDDAC02B0C93D29829DC2B9087F070FFB297464CB +F426545A65B869B2661F5B7B6575119DA27D715F0A42DF446901F0F2A632AF5614C9EC1FD2A6 +C79E676D80DACB9F2B89FC51333B4CA7CD98D8CE8B62959C86949E2CC2F530333C9A80879850 +481167A7DC78A8A76DDE664449367B44F711D88EC7028E92AA59EBBBF050573B52DC80B0FA65 +3E2EC9E5161C27DFCC86365648249518E72D8954BCBC439742A80ED68A7DAF601400AAB2899D +4851040C80A64C1E9D4C500F23ACEDC18C120C2E3D0001C37895247338EFA633428297ECE177 +1E26219BC93237DDF71A9CF08D47B323D03E904243D1E98DC596BD7E7677B7D91C06474CEEC2 +3C4DAF1B29029342D16121B3390C87DB04C65447C2515B12B9BCC3AB98B9EABD96361EDCEB53 +655A24E4845604C560D1120F90ED4456BC543E5916BD60C986482FB77BBE9060121FE1798C34 +A17A6AB350D85904106032A0A107649EEAD9B8F59E4CF5256B025440BB3713C2FA5638D6CEFB +788A39A5A5C51842A13AE24684EC59A6FAE55A64148FE73DFB3234F3912D21D68769C9470E3F +2DCEB860872E0556A5C72FB6FF7F7015D09B116FDFEC79EBF0544A0A989269B34475BF5E18B5 +A3111496FB39BD1B25468B6E5B2EDD1624C1AFD3401A8F2086CF3C9D366834BFF85115EDEAFC +A61D1343367A1F5441246000D9A585EDBE50D5B5CAB2455D58B855DA66180F8E1EAF8A2D1948 +DF1DA913C8F86F2C58365A77F4B867309629DC8A9237EF9EF4CA0515B2D1B7B7ED64589CD8D1 +96FC057EB96B392EDCC860C15FA2622A484D32D4E2AFEBAD06946CDDD7B7AACA6C0AA5A41B3B +CC91D459AB502137DC8C5032C3DC8E5D96D210F702FFA73794B639D0F9E7AE0D2134546FA903 +60B851782BACEE3C28CF7871D3F812CAF86221212D1D321A07B39A14CAE62F41DC83E7714F3E +315A7C63E2DCDCFB7F87DDA2BBC6CC6073839FC2F05C03077D8A0C9E7373849927450DF6DAF9 +4B27277349A60073C6979312CC0D5C81A89A058584982D449F1E993AE1EEF449F1AC7840BBA7 +AAFD999F622D0D1DD573326683C09082ED3564A9B28D29955F89ED47DD0EBC2ABE45B585D10E +85CECBE52F919EFDDD9630CF8F90CBF2F156EA791E0DBD178AFBB1AE3E72E08CB83F89606712 +1B671F63869EA022BA7D11BD63381E33860317F70941E782FDADC1224AD556467935E93C6379 +4E07F5AD57FDD0F6D859C82B562E80758E8A5C1EDD8FD2E37E34FA42E49098561E8E9696DF5A +62F1A27D6B1D0FBC9911A979C25E5A81181BAA04415306D755B890B60523E4A211D00CA64AA9 +0625CBF5ABE06EE227128114B07536D79841004AA4A1FA1612A78DCF0F03B121B2870FD3ECCF +2C034578F9A3F008DCDE1D8354625DE2A97D78E6F85782F829F79B3E286480B457680BE7758F +C50CDFC17E5EE5FB3276BEA977E933AB1BEEB1B27B2F3D164ED5B9AF1280C482ECC5952F608E +0AD0D1F6363637CFAAEF4F0FC7CAEDA1EFE35BB80C07E0E701633CCA557BD478B70652C4874F +4AF391481A982AE0AE8F0764EADD9316048CA985B570DDEFEDE6A64EA15A80BE9AA4709E4FA6 +DA9CC49B546955BFEF78320D67D14F120F47BF0C8568D337D6339CAC2FA9C51AF3EAB6AE46A4 +584A89BD235ADB26332DB72F5EA2EE4DFCFEF41726C92C2CE299D54EF8A582E766A2C20F429C +A48858A0D61716B9CDF7D67FFE5D7D6E72ACF982456C52D0986762485E2E111038EA4C67E118 +3A40249BBECEEF800CFF6CFABCB532465C496571541110DCEA197B20E1915F9CDB842444BF7C +C4A559262C89B487A99B92B7EF0087E6893DDBB5895C047D88FCEC1B29029368C65744591AC6 +83FE613D8582066B600035FA0EF7AD4236BF1A4632A7B9DCDAB2F9B8F6FA6C8E3248841AB3CE +22D3741DC40F29A61E2676DF55882F5F41DE8BDA16B6753D8D9EFC41D5C6AEEEE771F712188F +4C92641B7C891EDB3484DE68D56F58E5EF015B98490C17FE3020479384E19AF8AECD888F7180 +55B81A78B8B39FDAC88BDCCC0C1CD447A18F0F04BE83D2C6FC44B376E74752EA4ACF043812E4 +BF1313703F8A9898D8C175CF434C97CBBA18197EC3C5A7928844060723A18F19EC2B26AE7CF1 +C95E4D2FAD1A4F7F9DB3E4143B69B9E0DF94D313F41F045B19D8B71376A44E05A5B41F3DB38E +E63C24483DDE9F67A0102597DFC316A853C489B61A3CC7F1A1908E3C63FDFD4D20754A27D27E +5B17AFA895787DE85EB9F560EFDFE4EE3ACE1CD5222553A1A6B929665EF740E4B8724327B5A6 +FBA8C1142CA1FDDDE6DC085764FD4C519FA8742BEC0795773D0107E832A84B2A4AFF55102C14 +3B67CA605527E129975852C1F99B765E26371D7A47F328DE406D8710C0C7242D624DAE937EA7 +D01056999ECC3A938AA560090C43EE5087B0A0C66CD9186E9C711A2916B6266FD68FCF8F6378 +241A614E8D7A144F3D9B807850F98C4401049B469FAF5C3BECC8741D47CCD38332D2C399B40D +270B8B68FFACCD9405F619A897C865D3FA84DCE0F1FA9C54B9F8B9B574C9BA981A8F4D5F4FBD +A945D4DAA725DA6E1E24DA5E9803FD2769809AC972338812B14972D3DC6511903712CBFAF316 +1D557B671DFE13AA19A942FE564B1EBF441B06D7B7C739DBFD9C96FDABC13A2B7397CCF37EAD +E23ABD4521F69FDBC483411452285234F655AFCA9BAA73BD43E081ED281383B57BA48F6BB92F +810E2031A6E96810116432D402B6EBD9B7208CAAE4D7E40AE1D275E49DBD4867A1DB946A2F7E +6753035073F2AD5FB626921DA8E6A2C70502CBFF72067E45A1A5223FDEB1F4790BC4D1FCDE1A +FBA9F190765298D70C89645D8F39A9ACA1563B870950BF90C8976690A5CA41DB6CB5A6A9CDAF +969876ADE9D8249235A41B32BB1A0564C55A46351366D61C6CF716ADE7EBD8CDFA6B217F180D +3AB24D7CFF8B49992D3E2A37BAFF83F757E365397602FCD60D70C65F537DF26778F0A1E7C2BA +A3C2273FF88151EB2A6DC5C9AF099C7A728E95FBC50D889B416A864471EAB31050AF8C6C27A8 +EF177B3A686EDA6354FE931EB69ED9B39C7FB5ECBAF29F54CF5A09B36EB52D088226F1ECF75F +EC87BB35E00F89A9D6595584C9EDF98D2CD7735E9545EEFBAFC14F9474453BE920D964FE48BC +5D730D919105F890A84699149E36FEC03230E3643472DBBE1ED54BB4DBE53353A8AAAB4882F4 +EE901A2CD474FB1A5AE8E3DA026B721260093742D27A4823BEA13FA939B3D28F3D8F5BD8A229 +8007C0FC3B5A831F0E1294A9A8D7F224F188960994D967CF182F8FF283468CCAA2EFAF24F053 +FA68BD9B16EE0597DD573844EF2FC8BA518B7EBEF00FA4A5D282F27E133F2A976C29B8FABBE9 +5AFA8E82DE895CED761B0EC7E03DFE08BEF1F042BA8110E6218D065672D5B8EA61D140333D49 +804A1B41EB9600075B4BE636483FF2179A06DEA1427DAD8F2871DF3468108E12980D03EA5F12 +2A64CCB649DD800417F698DD1F38C55340CD07473B5D493BC6C68FDCF84E6FB9CA9AAD42FE80 +10193C391AD3CD97C3DF8BEB06A1B5EEDAB48C92BBABFBD7DA041F2C587EC96D555457B5A2D6 +FB52486E122B46B0F934B4D3AF86A1F537B108589C0798CD4B11573C1C25214C7118703D6A04 +3902C980ED303B63FF038D0FFCE3C73AF6441404C013501D8621C14CA3C2480E6C3ED0C64CAB +288817639F43BC26AED457100D0B2D4117911B9A34D9DF00D636A28CE4351BA69B04B108464F +0BEE3A3791F0EF03E3FCA00533A4C0749B922BB56525D632B4D56864566E29588907BE31659D +43EAD3269FBF0BDF7EAC69D636023144BAF8A49410FE55D995C926F90A2FCC6B2C5D13228390 +F92CC0CD581E9374C84B10BF5FF66FFA0459D9091374EEEE0645C7E93225359893C1E1020659 +26E0D6485E15E8D6F488950C4DE682A76F8DD650811E220D2ED6CCADCF65D46FA81247C52DA1 +5A39CC85C4B8B05937D9F3CB303F6CE7E0FAA58973474CF41ECC17BFC9DB2A957B1456491927 +803C274177A41AF5C04147E58B44ACEC2AC0BA966DA50A6318931ECB40B97152A6CD86F720C6 +366A7B8BA15AC4F03B0BF167AE6561779063F2C35A8AF47CB4C3AB05EEFC76F18BE8B54C5135 +396DE53F0025FDAE047DBE2CAD2CFFC87FB822EEB92CDFD745EDE31D47925D8D360916491CDA +2C40EF9561E94FA09BD0F0F01A5C69B961B2DCA57BDAE1EF3CB223E5BE042533CD81A31BC92A +46D84014B8887FD7388B0404214B6C5205D7B59E02D03AB22710938B33114DD5DD3C5FCEE281 +74F4A81959C7F2F52DC619649FAF3BC7D3F0867D1B8D78B9A9DE9DB68DFC774FBD896843C02A +91FD8CF44F18A407ABDF150C4220A12DCB47B390D11BC6D7C87ADA05274DFAFF33321965754E +BFF75B419BECF34BFCF41D02C7ED542D7EF045B32289A2AE66476610A3640FBD31ACEE4C5B9C +882916A12F81D6145E3354F4BE90491692973EB657B7833FE7845B0B200090B2530FC82FFBC9 +B873C27718E8597D6707D0F521A52BAB856F73DE4B0C345E902DC44DA6BC40E08883BE79FE20 +5F1C6C6DE2A230F1F4AFA78B27ED20C2D7A30F72987D86B494FECBAF1224F32B0E4E3CD18D72 +C35CCEDEF16C8D4D8DBBA8FD526B451498EAE762E2E5F3F0D68C40E221EFE2C211F55A5D1F1C +058602F2D9E7247FDB345E8350B8F483C8FE939C71CBF9C33E90BD7054741AF374367BECFF96 +94AE2F06973F46E8D6BE94D5DF4DF3FC4C46742AB152EABF469497D65B66C08056F90A5E1216 +83C1B0F91C00318EAB91191B962D67647228929A92FBEB7B5DD5CB67ECF5494A318728BCE386 +6CDC497A69D1151E8693DA446E98664776EBDB07D78CE919C5A36AF67BA04601C649AC46EA96 +8596096263885765CBA3CCE6D84260936E204F735DA45C84832C4AFD284ECF25B6240F0288C3 +4D806011E9B97ABF0B1CB5FDA87A272064690D7AD7AC2E23291325A17D6A9356A2968072C47C +3B4A24046F2F1B395AB3BEE6103523BE590AF5861B20E26105D9A975DC5053D8E9AFDFEA1BA7 +45EC2962E4B8337B554A7045868A257173ED0D30E8DF74B5E73280E403235E6835D4AF87FE74 +D7BA59343CB6D3F245E386377A9D0CE026F26BB682FE26B37A5666AA205307B31CA2AE48F1F1 +1B222928B021F5E0FE4C96ABA558CCB318EBD50CFFC961266A03AF844A34C0A2E0CEDF26EBFE +F866C5D27151547A672A1F8A69DFEA2DAE2EAF5159FB193A582CD1E5BDE153D3884B1EB62710 +0C804755418C41DF71AAE242171F23A70EB8F355C471B41BDCE5E967D5C2EB34998144B3E787 +41CCAF62014D43B256A0640A7D434A1EBAE35F302958E255B9429EEE4E599284AF035C5C9DB4 +466567F73192563402CF11B0D0BAB917DE7940EAC35B5303D2951157EC51245AA2E95770480B +F524F3AADADAF7AE3013B37AE98779EC353999A6C4839825CEFF16CEF91069BFE53E0DE044DF +67E8F40268A1C589B7F0F0227DF14904FA2D4D919A9B37D9DCA3A11A9ADA61E2CB6380FCED9D +10A6796D54ED5CF6A47CD0EF261495466898E7751029480B67F7B0156D8CF24237B66035D5AE +68183A212FC0B9E656F19E0FE3C575BD7813186AFDD68F3FC0C84702E27DCAE11081C5166FF1 +0A98B3E4C78572EB54277CD14E5EE6B6EAEA5A4E26175C5D0645FF66168961B77AC2747B5EBF +41BCCEB1026ED83CFB76E9D3E098D907476F514C50CE3A31777F553D01B24B9A3C3D99E77770 +7427537A22381847ADFCB0FF1C59EF46802901492DF48BB4AA39B3A303A729F4A1ADBB5120E8 +9BCA283B112E8B1860B4B841A40B239BCB123A14D09013E76EB13C6EDA2CB0E30C7B704D8A70 +F9D64953F996CBD6C68FF6215C8AD3445D85BBAFAF7E2025E74AF41A78FC043D48BB12BE7EFC +01DADF8DA245CADA98DF1D333C89FFBEE7C2DC49535405B8B909ABF623EAC6BBB03B0E523F1A +049A5F79F0DA053CA260B1ED4DD9F5EED6E5FD3DEA5E78F0F4756F591FF79BC444A5F77E1619 +9D32CBB78541804A16E58B13F6562F86B2E79436E133FE84A17D911E09EBDF9DFE9D191A36B8 +A08E06ABC5A95640671EC5ACCD584CB2E531A7A5962DAA95C9789F912771258C4F790D6B6ABC +02B7FB07FD785518D65D416D24853F38C4F4501A9ED97AAF85D78D53187948492349658C59BF +A558CFB1908B6FC193A77510403D8D45EA63FAA6155045AA5E3F719F77A9866FA7EFC0A611E8 +94162604DDEBBD76BFD42BFF5BE7B5E28AF6405DE1F57117D2D4C8EE81909DA5EA38E5D24B09 +C6AE688D1BC2694F117DFE6186254D2A8FD0B28E5DC478082FAE2A1FF621F085A08A5302C7E4 +4B1E3DCEF7A38961E795F2280ADC711683ABEE808C069615DF51374895ACCA9817AA6C1019E3 +E191852BB57BADD8734B5416E20508D39AAD1BE75B9F180CCB89C57B1EBA59714C75F73E2985 +3D3BA66953C4F171D853CF63EDF9C2346B2B6659593CFB247A6B065C8FCAB5BA2CF0CCA2CD9D +27C2EF7A03F98E12A95FD9CD70A98327BD12919E5C8E9D7826B2CDBAD1FADA59F217A7107EBD +8BB00DF92FFC36855B983DA2873C01156CAB9E30A6121A98DD70EBB003F7248D4E28F6B16C38 +2D044856947B57A35591B3701A4F44303826329C3AEB150A34C4E8CEE6245844A7206B455464 +0906A46BBE4885C8E3B4DF2159186399C1E7C94AD6E11EC7289FD8E6D290DC1B4182322FF01B +1040F4D93AAD363F1073D0E1400DBFEF980723C65CFAC454BFED2452CCB9CE3D962A77C2F570 +633A61188D97EADEF27D9EAE7E58EC34CAB3B0899B93BF6974E08D42383A79CDD58D1818CD0B +01239AAC8A9CD55666FB6BE037AA928F84C09129B1EABA3C4ED639F5155AEAA6800D614D8CA4 +F8AD732FF887A761D1C91E98FE8D29284D750077DA61E06170637035F1E26CB9CD6FF453720D +A913609451DD3EDBC343FC1873D2BAE003CEB1B37CD6FF6410CF4D7C8FB4DB71BC923193F846 +C699543D4E4152766591911CD216218B0BF355287C1B6D1FCADE5C133C3306603A56EE9E006B +4DF27FCA55040B6D5C51A1B4090FC045F2E433CF9879B1DAB4D6AA70CD70F666EA12C317911F +110F42C8DB7EA8C5D013B46AB1DEF6235560D41118509938A50CC2847C83AA6D27A8CD724054 +B0BEB27364E749344C5FC333935EC67F8F97850422F1981BDBD4F18D0ED03A73E8067283CC8B +EE76B614D09D4560BA836175F8873881EF2DF228391E4FD996D64E77B0B6D4797B84A43303EC +00B15DEDB6E2E6D6B65342F9D4C1CDDD3E2128DEE5D806B7A301AB2C1E7785E9915D316D488F +4801596D22E02B5AACFF3FC6C4F691E5565C05A98AE33BC18E5D28C9778080A0849F14EB0E7D +20338B22BA4CAF98FD2C5053B811571C7EA0B05AAB75BF148FD850A5598EA71FCE8A415FE0AB +80F44D275FD42DDF49A77D162ECB9E2DB082B893E063FC115718B3AEC7FF002767105757EA14 +2ED5F127EA899E0EA3F99B03DF6C58EC0E0F7809C81774BF8864CC28D7AA7555D4CDD68F6EFD +8CD8F226DF0766E805ACBB8E75023BB3B72F8682D4E1CE0CC7509690885D9E8175D37C410064 +A4562D9C4DCFF13FD6CE8A2AC512D6A4A516F946560CFA5DD380A276F97932A510126CD0B8DD +9C632FA24B200E44EDA18160793082C220C2DBD313A48CA5AD74C16495EF015E11F3F15BB870 +D112DD3F55E7E622223A3D2B21D2555B29B7EC845C52E8B99DA5483D11E611F9A6F0CBE21D0D +1769446A7AD493EA6563BB7A3CABA70BF5CBC0777831D330A16BF802AA8BBCAEA8A0F09CEF99 +D6CC32EB44176767571ECBB58617C8D3C81A74655A6D19B68D965BD8D746CB0A27656D60DF1C +E96C3776AF04B8FE399D5BC7098C0BAF707D534E20BDD862E013FE006EF4140E2744364871DE +0CBF5009CFEFAC8517177A43CC7ECA89A9076A44AC31F1608E6B3E6E43A9DE92DC7C284B878C +01B68BF2C4F840A9F2BF03B2FB3CE7072BFC65B4197A1E5D71DE54C8504793522591E0057B03 +2CC651DC68AE3A39E0416122A7543D7AD444C5470366B00637734A42F497C3BC22BE131E8ED9 +F0B8100D8ED25F409B5A642CE63F61E2695D945BA919A1E472DFEA411C29A298735FB491F162 +C54782E21A30A778162ABCA27A58D3939F04749E100B6036E7F654E1FCDEC53401A26F57849F +9F86A0DB812186DC3A513F2773DD3C0E4A1E75108A9F5FC9491788EAD5805ED094BA8C65CC59 +619DD70991A6C0CCF45F046D818FBA90295184219F13BDB389BA544583AB4F07CF3D03CBA7BC +67F3914ADF6106085AEE88DED29685BF4A295FD7CB7D86D5BA89D8A9821340E10287354AE3B7 +19169E4D647FE86312D99D589DF0244CD985EDF7EA59D36AF3211FDC73EC1DF781A8D09EBD2F +603978BD8DBF5B08AF002E5D2991698890987AD6A9292428B9368284115D7AB640136EDFD8F0 +DADC4B943F65D84E8BB5E34DDCE1DF39B36E9A02EEE6DBFDCF94E2344CBF760B771842142920 +D8D7F6DEBE6A4B3B4C92FC9BA86F9F4F16FA0F6D8304177BD9FBAF2AA598EDD8F7E8ACC928F0 +BDB6540E7EB3B2ED049CB82C44DD97E48A3B77E53051AFA6F47AB4C44F8B96EDBF5F694A84E7 +913514A268699A3026D7472BC3D9BA5078CC31F0E3F04B960FD7C1D962553EBC7BA67447CE94 +54FB7293D59DF32D963C726B7F9D8E39C7A583ACEFAC2D97B5786841C1F9A60C7CC25281EAB9 +AE14EDF3EFEFDB3FCC11762006BA4603ACEBDD4CD016754DED32C33F9470411FE2823B329C0D +13E1DCE7A86572CF8D8605B0CD2BDB4AED45585D556BC5386F8DEFADD760577DAB8EE0526578 +8B73705274647473135729E80F838781DCC07BEF8135129EA37786123FA9616ED95F37164A83 +5B78EFD5F86B94366226CC8AB09D698C011E0312E1DA79277F1B61F1D419E854E23E5257D9D4 +7FA1ED75E3331236858032285E664323FBA61AE8ABB1FF7317177A7D760D995B3B90007498A0 +C36F0AADFC8D56DF52AFE8FE9C5E01CA1928CCE393270723464DB6DBB78DB6DB61D3F278D9C6 +5F45BF18F4DE6D5319D02FC196B58D0F6DC42C8D36CF5E73F908E1639F4D946FBD5717403B45 +344DB9AD9449125E001B17A8D8E76AD103AAD9BCF45F88A6F08D531D1359333979FE987D3409 +582347305CCF310FEFD9E099139D834D8F9B55CBBB767A17B4AE22043C9535B4027A33035A71 +CDBA3C3F9AEBD0078777D06EABB05D966C62E980BC037618ADABDABA4F7E24A322446E2EBE34 +A61EC4DE0D544DCDD2E5628526E1260743BCAF0141E9776237C8AFE2EFE78ADE8C1E53712A35 +BC1EB86CF2E87998DE940AA73B485675ABE312EEC242A7727CDF69986D79485AEC7B63B1A633 +A7F71D7E64B86606704564AF1285DA04514C4021A9E17BB256289C5902C155BFA0396039FD32 +2890431EA06A4C4DFABC3346CA320D944639F86EC181FBD94A4A14E910EF87D347AB862CFCBE +62695EA4F0D61210E0021D63C0FB4EFFC287278C679AD81F289FFD7B773129CCD21893D562A0 +EBCDD0227BD8870608A7B46064F9FF1873F31FF0A99CC2FDD5A7FFE53BA20010C9AC80CC609F +8DD539A2D05633BAEFF230EAEDD5DBA21733D85B19B785D937A31BD62D65AF429816B355FBCF +BC088E3465E2702EACCC5EF7AB85FB9A5E6B658723D136211E22CF5895C380EA200E219F587E +C1E380F35BE4A26DB6B0465785588AE21F7426F17A3FBB3BE7D53989B7C5EC4D06643F64BC9D +EC9C696733A978CC2E7326F39F1167BD2932A5244CFEE158CB142B4B39C0D4427FFB1CCE73F2 +960691246D33ECF6A73A7B200A9EB14DE1ED8BBC7A16F9FA82E1380144B4526731EB57144CA7 +EB79DBFAA3F07453A8D14E38B5369CB54F07E92495B5B45948035CA7A0C149E1F9154A0A08A8 +948098B336BF7BE626C7E5A4B6E844892AD3375BF4BA1E8BAC0530B9F8F47D60BB312D808C22 +FC3277BED85B781153D1D9EA3DDE5ED8F75BDDE696E64ABC6735A77DBB82AA6AA09BF534D048 +34ED3E7D5793878F0CB4EACE362B27CD54B5E5B61A60104698E9BC23BD85CED4365A3C9DCA01 +422CA61306E0CD24472346D9682B8AB71E63998B276F3E411FE94C0A0343CD58A8DC947C8AA6 +2BDA2F31C19C32F2EDF81FA41FE6F96A1A61446BB2C3C4935947E19CF12F46D6CA9913832F24 +ABE1246DA8976DD15EC80598F0DB346BBD1C71B2E1895B940123E01D7DE68E410BA561FE4063 +221DFF0662587950A8D77FABF72891517E689C6DCFB175B8086E99AF8FE012A2E98623B6B2A0 +3C51176DACEFE1966C41E28D9E337106A38388811709A45EB20ED35AE81A907E3751452C506E +53521DC536A0449F0D0D02B95B517DDDD4217D09749A46AA4A74BE19F45CD49A67EAFF78E634 +9B9460C9B0312643CEC1D2D9D3384DD97B5AFB8A59C977811C31E90631D8A3CD05D4DF47C1FD +D36CC3B7B44EBDE8A59FEBA3D03A96CBF24A4B9DA9BBE01D0385CC0D5A26CB3776437E4DEB4B +794BD87001DCA80FCA385053A5FA36C79D9DDA61711CB49F6E4830B8D26B52E9619F91B76450 +F23C626D113EC79899621EDF3768B2727910B5CA8BA389FABEBC3889971A33EA90BE8C774E5F +53A752866E5FEF4132950679B73F3DC66517C84CD48950E95F0B13DFAED5B90240EB7A365744 +D3C0B1BFA466C0826FEC4F3B5784A773FC96CF0CD1FA9C742876CE8CC02A64F11178A9750F6C +95CD0DAC92DFF410ACEB642D2591D32F7B8CA0927AFFF9C4102ECC32646CE2EC6BE93930688E +A3C6A7529DF32A9C533ABD2723F0E285C59BBB5B10E223B03C5FBE70D16D5AEA91EAE342263C +D859A78CE283958619B8F3576CD7258B5B00518A8AE14F053B53E38477DABDA28AC578D96017 +59A6F0B5BF03ED02E8D0BCC55FEA842AC24F1A7576A40B3A7F3D2F136977A51D2D2838EDB5B0 +E7EC2CED4C94299EE4EBE9CEC792BB9D397BF4405D8FE12CBCC53D336A1A44F8BCA85FAEB20D +6C7AC1F3F77A3E23557ECA5DB8DB03BFCDD32E59074ABC3CE1E7707BF74D8A780E3AAD5476B6 +5A67568A6C5F4275322F55F9CC444C27AF4AE577C104F9FA8E7F7026824744364BE119E3369F +45AFD618F97703151652D9E6E65EF68D4E29E72FBF0268B764F6C9F9A7AF482402964AB72AD1 +D6A2EFFFCE4B08FCDF974542E263B3608A04EAD1565FD6031B3C825C4DF14D6A3474A3775F9C +AEE8E836D850CC3AEC0D368820CC2DC145C62EAFFC8A727BC75FE49A4DF62E25DAA64DEFB21C +E54F63448EE2F68A95A421FE46A7866355E112809175A64C89E4B9A6F0CE3BFDB923AF924012 +85BB18A0A3503550E0420021984E287ACBDDD36F3193D89CB11ADC9EC6B0FB1290CFD2E43AAF +A730E8E2000E493F9085D674E221838FD61F189A94E3ED97D5FE5A1CE75DF593E32F92EC11C6 +A6FF5E6287E8B6E764ABDDD2F389B4A3C8B8863A9AD93CCB2327F5C6A0160441E988AB871C05 +22AFC9959573FFC64EC4A4CFD99E7666B0BA59A831B433DC168AB127204C721F6F21A2987BA8 +BB2B1C0D3FFED78BCEA187201807F76F03F8F49A45453A1081F759630B5E4CE61B483F0CEDE7 +D399847D33DB3C62267F04147DD4FCD3BB59D01CD4D6748D4F95B0AC1B1DDC760400EF68CC45 +AF63B35B9A077D8C6024BB61249DFDDC8821C35ABC6DD9CE6FCD11641BC4FC6E8E6481A2EC39 +E5E67A80E1536C75139FD26AD231CBEA2B5AF87FE9CC2E38625EE58E39BA272EA2FC426DFB4D +DEA2BB3131089BCCCD9E6F2CCA00C24B85236136D63F3AD1E7746A56B483FF33A97D54E9EB5D +2927290BF68A99A038ED2E06EB91571606FB6DB8AA849FC4A56941E6526D7B0FC7DAEF85F008 +DB36CF5819B0404633216FEE831E5EEF1884547FB8E7CF1B9AA1EAAD3D8F7519C23A41A9363A +A58E55FB50ED21D88B1D3565141AF722252B98AAC5E8194110F5C51022671AFD94FBC1044540 +FCDFBE74CACF37271542E119940EA52F3D110D2AA0BAD64F015550D27FBE011BFA00214D1756 +3509FD8CF664A90E930A3DCCFCD5AB6C23247CE91C6683E5C398466A1EA8C494DC05C48F3CA0 +E05800059B936A4F3E9E694D6D56493598D30B9CA870B03A3E8CE72B6421AD14F7CA7B2D8E5B +06E25399C83820249868586960A68A58192B5A92F2BF24BB352B9EA935DF830AD59EAC872468 +AD73736164BFF2336B9E26655F8E0C60307E30C8A81539604063B6AA28FE29E015286BAB9FFE +332A98B3CECF0D87828D4C67608BE3205A1DA03795B7DFEF36B6CE0D7C9DF211838E64332341 +0FC9D5BA83FA9A4659F2F565FEF47269A480726F83BB41FAA40E2094216E1568E16021D80AB5 +D07DC7BA243975A51420EBBC9B116710F4B18312D742E73FB9897EDC3D0DFE74FF8A92F23F33 +DC2F0A5A80A9560648079CF9334164333E91613EA15EC782120DB5934533D62AA6EFC2DE5F2E +14D69F732A6C9D2C55F03A3708DBBEA5A1C0BD42B2177139FBAEE1662204F515122349C2D902 +70FBF8F0BED7784FB8B347918C4920C7F3E31D514B5C69E796DDF90F44A260EFCE887F3E9CB2 +9885BD4E41AFD71E2C7318F6E7FF54D1784AB51467E13CE9642C145E4DFF31729E25E25A0C30 +CD26AA4511F5D66A71AD6A8912F2E3CC6CC3EF5033877313FF55728CA16CCA6B27975BE65E5C +DBDFB2060E5E50FFCB82D2486DFF9576222C490331D9411E890CE5EF1EED2962AB99935471F1 +D50508F0A5D777DF78A55503FAC53EE26F6BCC473919FA5C9924056F33EC16D30F3E9D80B93D +BA531E21063A2C7A94A5F35ADD907AA57E6FFE0141C26538521C59F40B6C93606790BF673A2B +323D5F42D880A1F0B628B6554BB3D7A4A0203D1C0CDEFD30D97739DAF2F6B1C50EDE48B32004 +072B5DC8895CC70219DCBD137C3511A31612382A58AEDDE833B9208781B366329E2AA5CC0651 +B3ACEEE7CE16B87BD783C2C06998DF71D6A8A945227F7790C4AC24D91628DB5FE3ADA9006D1A +06FB6500A0131F74585FD1A274DB449B0E28D762CB66BDD8A82B35683D5969A0561F6D2B2056 +C78016CC0940048177EF464E4F2346C24078CD1643E80C4DB76BEE8D16B99CD99189C3889C53 +0644D7803FC0FCBE6548410923EA43913D12A2245AEEE3B1740E451D6EAD8C558F08D9B23880 +41BE6F6CA55F6B51B5C2C86C35CADE0A2D4A2A8A22512ACE44C54F35071CA9AE5D9D40DF61ED +23E5630E58B76D2E3CC19BF2C5D0A0310AC9DEE6F72DA37DA59D3AC2959FC02FB081A5D369D9 +53657CDE864561F6A6EC5A2F465EF5609E6A0090A1D7F2C971EA519ABDFF1FD359A60AE11955 +72463B8667DD5D7D7883D472644BAA3A60C7EDC2EB7D3F638847E5B025DB1B8D6D0A99FDAF96 +5D448314789191CDFDE21259DDC338F1222C9943B3721DFA91E1206F42728A6EBF0BF10D0129 +9C451C585D16B6C6E4459F9232DEAC5BFA3EE03AB06C525066FA4E18BB7FAF9DD3188E3A8456 +128720A714EEB7EA8BB8B9C0D5D6A1557D41D730C8C3453C794C85579DEF3820E17538F05183 +5199773711512FBA3B569951E3C228B9B67DD03EBC5DF7B92DB2EFC3A8AD53E121AD0C01245F +A27FC0192D500D41ACFF736B18A7FDA1164552AE036D3093F5E2B64285AC767D66102DDBBAD4 +A54538B681BFF91B308ADD36F957D180929A85BF655BEC856EDCA932E2178DAAE61D152E2B89 +A9DB99A2F809D7C7A99915E013EE392D5A129556040345A034A4A539E7EE2F92925546D047F2 +BB2767BEA86AE9D820DE480B19A402408B14DDB89A19A66536215DE97F4706CAA24E468EE951 +4CCF4BEA6689630E8FD9985AC1FEC5AEAEBDE842DEE007E0F69B3E094F1133FEE3CD76FD6D2F +530C7214BDBEA7580CAFC42D4B6C44CF601C23C89E9B2008893148BA91D9E3B4BDFC3086D1A7 +4CB4E7A7CDB7F0B17AB856AE8D563F79686F3E9C4418D105F68044A3B009EEAC5A7A35C6D149 +ECA6AD46C08D9F046F2D42E51509AAC12A997AD2C930D4D754B78DEE6976FE32B507F4CABEC5 +FA862105B60FF8C8B7E0352D22FF02781A695DBD7EAF18197926E17CD64014AF3AE457687A60 +5E3F89419F0A1398E3B7FEEE48833D4F41CFE8C4507A6758C117EC9634E7FD2DD86FAE562BBE +E894475CAD4A0DADC31F1E8CEA55F475B87059684FE70A0DD9C1EF31B8EA155D62C21E986811 +6802E59641FBE66A2EBC6B222229FA0A2181BAE46632BD98A71061EE9E553A326AD49F99CAEC +1A1BC3B69894FA2008D47A4BF5FBFA57021785B5750AFEB5EBE2D73FA6ACF8B440AECC02BA90 +231281739F1AC2EFCF711A9775B05477EE64F6DD0CB32ACD6D910CBA798BAC8F0CC238DDC0D7 +ED38C963C47AC4ED8514928ABB812FB2BA4575EF6A6CBFCD0E49EA36B3B613639DF49CE11C35 +5064314ED11E61FBD7C464656E810C1F79DA152E09F1121F8874E32BBA2A3A1273B8D9622A3D +E1A7E9E0B7DEC5798399716213E68C7371B89CD16F21BAF946795C131C15723B7B8923ECC808 +02DD4D7E3CB8275B632E0D4B1645126C6512AE71C29B677E9ABD97DB87B443724FBAE9B3941A +BCF24C2BE82648F96F67691618D0F57A8B83B210563C3D08DCF157622F4975AD71710B43A924 +2DAB592EEF2EC40DE98F78B8FA5767A4786C9020D6B309C90B90D340EC1EEE360B10EA328907 +7345863BAD9D57DE493A4C404641CD0AB77440B877C9A4AA8A71DAF68E2F83882114A263F8E3 +F856A44965744053108CA967DE7EC7A347EA99D2C67B261B348EB14688B293DA4EF834689866 +747ADAC3AFA6E45D6E9AE1E66128D29927FEB431CE480B3B8111851047BC261372EC3F745E86 +CE41E4E18F94A7F303A504F938D7A48ECED8B19E63855AB3D6A866FE6DDB566EF5A4757F7DE6 +C479C3F78AA41E5E9CDFBB6BD1A792C55955E1D06531592800CB7AE6DE273E007184F61F7489 +553A4B8E70D393AA2669269340DDF00319A7F815BFE5D31AF121ABCA626588B8B30D98963120 +C35A0EADFF175C1ED1EAAD24C5BCCCC0777C1054DE03C0CAF3859AC251D14776EA1FF38CAD40 +B80A5F7A5781B26BF9219EF450558E8F812997CB905D5CE6EC8A2B6B118100397235A0B37D22 +9CD31D5E142AAA1DB5A655B399A3991B57F01379A04FC46F864DD9F461947B9B37D21481BB42 +DF57DF8369C6EB129E69C827124CFD253B65E0708986C21884FE96E5E9F82615945972164EA3 +85A96AFB21C08FDC5972621B6069BD012B2463C921FC91C83137157DBC032A507C7A3868A921 +3E3BC2936F9E3DAC2E4065A6B215BC0EB3205B4DD72AC548073849DC4411A90DBC78E742C3ED +A59153C4D7C426F01B988B81BAD88EC25CC04BABE939C8C48541A90C09B3289C3B6C545283CC +2A1F65DA210CA2E3BCEE7255EC71664D83A81B6FA6EFE6AABE7F58F5190031350140EAA48E4D +2C9F09A4D4907892C79408CE801E08E085A05E101935B41B7FC5C3B644CE4BE12942BDB46230 +20C4B975154D084F1A99321FB6498F58A3C87AC15ED9D1A4F7C86C5643D32FE5126D8CF1B9B9 +A6C220B6FBB268ED3F71494D4B498407B23EB057B627F7DD790DCB7E5E28B9734F82EA1D6F6C +9FFDA609F45A35774645B62CC94D237B505B56801FEE39A92DE3F30940B90C15BB537AAE9584 +9A250AB04FD3C13614782FBD7D61A7D00DF1F29859E9E9AEAC9A780F4822516D16712EFDB3CC +2706E706C1665CDA16C8FF778C8399FD35E0FE10AC360EE290BCD8A13B66A3284EB718886E4F +F6A954482DAFBC8B85F75FEA9F99A3E011E734E77708C1DC5904F0CBD1C9A64C17ABAED68148 +722070BA45AA98B0F7DDE929D140A2F1BBD3D1A3946F225390AA88EE6CF66B4C7651356CDDC3 +A0F1534F53CDFB5E0D5BC58F462220026A57015ED6CB025FF010E7B1133BB98D74B1D292B0BD +060B3491EC667BD7A41ECC73B42CD734030486E7FB15D51D4F391320CBA0E81C17A09247C050 +46C1AECFFC52B1AB48F0183BFB8C68C38CC16FC248E35F2C7717B6AF7C973CFBA95C51EB255D +55B10715AA96874D0E9C56132600823A6293062289BF630090AFD344BB22997EEFF22BC174E5 +38B5ED04A2BD3DE4C103FC54ABD92968B4760E25CE0A4879E045FCDD68841DAEFD9633FF7F16 +8D109610211A37ECBF8618F0DA8E5236A344606CC5FD72E9A92ED572ABA88FF3D16EDEA353CB +EB7667BFE029A7EB3D0042E3D8ED6F50AE60AFDE1A6E6F654564FB38C6CC51703D26C7491AF6 +5AA482FD47C1AB36EE9BA762FA9E79437A1A7AEF10CCDADE701B36600FB86D3CAC143A966CA9 +BAA9A28B9A2982A0965E202E034E6137F88ACBDE091A255512B238ACD19E72E0213228DE2914 +D81419DBF54772D12224B45A08E073F1714BFEAA527B541770AAA59C495BDA2E8E157399860D +C97B67511F8312BE143791B87DDFEC528EF1F1A07FC214E0DF12F8192474AB4B910BD2B61080 +1B9F9EBE54F09F53B087A3E528A9943284AAE0C2FB9EE0F951E304FC78EF85C0B5C6E07C4496 +3D99A768C7EB57A1D87266708AF9A6AB5A4748F91763CEE8ED10226051D066B49EA4F465BBD8 +13C3E86A4465628898FAE6DAF369032A0BDC08509C45719CE08C0E8110062F1F55446E32F1D4 +4D9C2713B4752222214537C7033E987CEC7D9F8802217DA63458640B386DE4E3583C45B98125 +45C5F1F6B16DABFA818208292949008797AB1C64AC5E79BB1187140F0F834910237A70E411C2 +E5E0FE7E952F9BD8F88393051EADD46FF165FE342BBC5D82B5FB5A5A454BEFF9AF80484FAB25 +DE886DE205C2BE579CB058308114A707F87ACA69D0EC7FFB59DD97638AB55E152ED530D715CE +B9D41E97DC36677990F3A9FB6C8B4CE4CE5A22C8DEC983AC2EBEC8F846A56D5C85FC4E4E40F3 +2D105A25BB4CE66477A19D2651E617BC8D00534DC7F2F69873047602C5CF994D83082FD994CD +BFA19165D22C223447C0E05B8F5F13859DAB3278CE800CB3A2B11C3FB99617C927697EB1A90F +9FED22A08F8D47F10800B8E7D463567F532CEE2D8976F78591E08FCD17FCEB209A25A6806C00 +E4F510F60C3475A4185DFCB22DDD3A9544406FF614AA09139DF7B015C42DBD29CDAAB8AF5E50 +0708EB052AD66833DBDAE1A6B9FD91036080C9C93BCC12EC8D858D8D0E2C05CEA002648DC557 +31AC9AE4E0F68BFFC1CA2A70CB364894721428AB61075005AE410A5EC8E817BF4FDC2FD998E4 +05A987C4C442F63AEA1B1E13C608AA764BDB513F6EBF7F6F6077679F16575C91CD3A35A184E6 +F40CDA9D43DC663D9F8F9EF76C85C2F33647CF6277C3809B4C82B0C52892D67F6A48D340CDBD +313181C1452E3D996651A3C71B68D049978C6049BF409E50047B7F387234FDEB104D2A60B76B +5DCE3A3B05BECF2589CF836530F60D57253B8789043F4E90944844997BABF0B2D1888560ECF3 +07C127B8CBCE6DE435C3F555B02A146BAB58DC09399BC05C5E2D84F774E545A78FC30C740343 +2CC1044B91A09DDB93BB1E8D714087D03F2CB45B38DA357F0E30D9AB91D13F6552695F80945C +270D5A31A81B24AD8FC8A6F63BE77AD772F948F4FCF4B434ADC47C6CD3E44E0B7C36609B48AE +D9550F5030BBD886A60FB27920221159B358672456C334757C313A69AB307BDE7E43D55ACA0E +2E4FDB09D9DBEA28B97E77C91CA8E63E1876D55616638A533930D4FF67A04277EE7EEE0B67F7 +0C93CDF1B51A1B895B614726DD46E1622DCF65586ED82C69552165B861FBD32895112358C976 +68E07373141981B3288B9DD246A58968AF8AF84B24D370135E63BD991E098DE1D9DD5C1C521A +9588CADBAAC0E1F36ED2F1EACB243D13DF64244FEB2E3CABC925D9CB087849E36ED7E76CF0CC +71F895DD4F2684E3ED31B46B57CC1CF025AD31B4616FCFE577CC0A7A5C97F2B6527E60D1D78B +512A44496ECBE2DC0409E960BF1D99693DEE15E31B6AF118F88C7533889766F1EDD02C1FDF0C +1884CA7C228CFF507867AFDC741B6381ED2DD74B05C8F9C0ADDC376E224E02317CEDEEC91478 +D4D8330D96CD8F687E69A77BC7C55224D02A31E1F5B4F32CFFA9F9DAE2A0EEAE4FEC0B1196BA +A339EF921DC176876B6C816CC90A8B1403D636DF1F6BA0D2E7ED763EED28EE06240AD2345AE2 +C1DB6A5C8B3877E9246FE8415281B9EC359737AFAEC4F017DC915DD3DC3FD474D3948549355B +2CDAF685DC38099972E4F56FF10201E749E429AD25E6EEFB5D2439B834D0B1F0C77B57DA17D0 +7908B5FF583155970F0FC40094233ABB3AA521C7DE481E5DA31E7C32040EAFC5D782EFB9781A +6817A6C48CCC8464BB926F44E05EF3CC24EE33BC63E5CE347A8AEE2E21923FE86965A3EF71ED +B22B3478948CA691713411ADFD2D86B10866B9DD64A02FEAAFCC9E08937F5B8356184088CB97 +75FBBEF1DD97FC0E8550492074F65D0EBB40A622CE26419F7BD5EAAF3491354C242CCB71650D +89A5269BFDBDE85757887423269A4466DA6688D1773854E8F75EAF51B61447B4D4AD31E7B1B9 +DEAF0D5C52BB3386F2696ABCD3766A40780CBE0D6E820C9304F6C6DBFB9195529B0A57CE5C3C +3470761ED9D4B49B6D1F8C306B9F85E48377BAFEE44A147309654D4707969968A53637409CF6 +5587419C70AA921934F061D6950213A12128E9C5C6F4F635B11396175B745732A719CE6E91D0 +1DE8671C305CE87D0DB08008F303A507B08B9E9C8ECECB4FF5089DD0B3977BEE4F07CD581D98 +5C07C45C5ADDF0821009F5687455997388BAB58529ED9177173F413FBAADB5AF88AD94B5557D +10378BC1680F897EC94BE9843D1725C636C4152744B17F81E745750FD8F158D501F0E7422F29 +7ACA3D3C9C7B7585D82F82336AA8D2049C73635681A25CDBA63C82D1049B30137EA1D86421A3 +3DB1D92D21C5C094F389AEEA60E4098D5CF3172E4CE35DCFA497EF92C1ABC25B8FAF124F457F +81156C9203D83D6DC396E29EA5CB2B46008B0B86F52513D004DE07CC92B6B0CBB0EBFCCC2552 +D8B836655B74719E9B98EEBC933C63E2C3397F8DACEDA8EB3B15AF370A488E0DB5AA7D03B116 +F79D89C48FA9E462936639A9A0722DE0587194EFED7531110493932676CFEFADB3C4D38C691C +E5C379D73581AB8A72B01CDC79819697A6035C641B07F5FE18ABDB45CB88BF820B805BFA9C59 +F77F9872FFEF1A8BAA2AC637D08FE5B480D35C173B3976ACCD83C6A4F94D75C75FBB72B91673 +10A6117C09045D7C956EA72882D47166D738695D84C24F5EA7A433614EB8F82340443009FFF1 +796FA6453D26C6272F6033D08AA6D498038D0ED98EF867649441BBED4375417D3307BB5F212E +9C7A231093091FD678459924C5F685D19D63300B1BAD0F9F464EB1686C441827C393CF4FBD33 +CB8D14305B7A9AAC321B53C8510C429F700B52B8758C74B54DC9590DA695E6A66B008B855D07 +3A4BB357FE068DDB3BDC6C9EEE9F2C1A557C7F8262F1AD59265C984D3935603FAE8008AFEB27 +20F4E7BB995DA14C5D191FB731D10D53072C712AB989CE4DDF9F233533693D9426CF6C314C06 +E28157450D357FC7029E8E5EC28E816573C8EC481CF6BC41F06633E619C8064BEF24F88ACA10 +00977F966B943952B165D917BC222F85A2072417D43F1C318DA67DA8C44596972FE3C3534764 +6446478989CC22D2B06EB88D86A8ACD5910F0675F666E9AB75C317C249AA69D15697CCE69A4E +CED3D1A806D80B17471E6F5CFF975D8A946C2F5B45FF242DA493CCB19D9863D02EE918815EEE +C3121D9E9B21C6E60B6A3CE8D779A421C8D611883368A40C23317C6A6F914A08B93DA364C525 +FC71909958F17A46FD226316DCD2C653A20964DAE9DA9D9A3E57A9262F8A453C0D0518BA864C +3AF18F37776B4C93843278304E61158767D9CB2B71494FB0CC2CD574E4122CC2A4842FD659EF +B9C73CDEE7C75CD0E99BA88C0D6418BF713B0B003E37FACFA85AB443C6ED222E5107B15BF29E +0010080C12CC74EB5A5C8ABF5B7D0ECCD71D707B38F55E07C68A123FE39ABD079460CE4B4EDC +29C3C1250BC36BD920DE6A00935AF0159F23AEE322286D6C6F0CB1B7ED1C8AD35913F1FC61F5 +B0C654AFCE18A62A120A162DDB79C9197E4D2ED24D6964727CAE9BB5BF72AA94EFDE0CF2F3CD +E7FFC1C95BFF217C6F17BF87BCF5302E28B776F31A77BD3131DA6A2CD38B2B8B842767E5F13E +6A103839BFAAE0D7BE2DB886E1AB2FF58D3A64CF936A95779574939979468A906F8650B5A719 +F1CF6366D1A0ECC7A00988D94335DDC69329B3C52A85E3A06971077C0B862CD845F4C5B8B071 +53FABF9859F2A016AC91C8F1A29902B2F7F74E54AC71A4728996ED79E6D6AB86773E2DD828AB +8DEC0DF7FB595B409C51E04C8886D0D779CEAF56959D40910B270FAB5D44D88C95B1D5AA9B86 +49605C193DDF07CD14CDF426D95E8F76182ED6FCFA0CD0FB92307C9095DFF4DE3B404A9B15C1 +093D94852BC7106D68981E4FAAB0C1B76FE86F8B41181024C63FE625D431D5BD9FC9A2DEBBA4 +7C89EA4B9BC9F284BFD6F33A4F5C33A309B9D48C976695A2437D7D01224FD898A2C8210D5C2D +A39507081AFAB26F055B06981E26A08E6233B48C108F1E67FD9B6FB3948163350EAEE0DF8DEE +BA1F06A2EC3D9BC2CA8191BE64C1ACFC81C3E05C977F761E571160A2B6865C9DF69555C9B712 +6C19AA4DEAA62FD4DD25577C169544F31DF305B3A8F2FF99320A1E0AA8B35CAA9813B6E81123 +BB802212AB1264B454D35252D7197B35324A2D053E54F08A1335BD4574C98496A074780969B3 +5C8201D68A01EEFB767F8C6A8AC70148E621331D6E2EA79F28AB22FE63B465F91237A269BFD9 +DFDF13579DE476E36B65E820A6875D5F023DF6009B6987288CA2B6B661B9E2AAE6B5D08A870E +C1957F504BE8ED7E696226E5D1930C3989FDFD40920C8F23788FB60EDE6FED45CC4EAF1106DD +F33802C3CF40F99AB25A2DC01DCFB004F4E3637161208FB6D5447BE0C2D6DE59B16A1A201F00 +8B8E2AE10E9A8E393EDCCF72935D41049320A259FCA2E615FE777115B757A647E04C7CA66481 +7B781DF9FDB0B1EB4FAFD772A6CD82125AFE3ABE1ADEEAF226853FDF62D4A2AB558670E2A67F +50406D05055DC3E52AFC1C84E5B9F4092E166740FA852C9BEABE33B849FF94D3E5342D6B6FF9 +1E09FB2D1112630657631E8FCBF5BC6EEE98DED84CAE9211741BC5939D1FB75F20185AB55CB0 +57850FFA9498AB03D9C87DE20B8786661A9E0B634B8B14B99B0964992349BB1639CA3A0335A4 +BCD7604752B814D8BD2A1C555955442A6B40EF8129335C470729E5D2D532724C7EF0C110AABC +B28AA99A8C718A6E233C2BF4F6795160CD5964C67DF66292D8DC44C9640225E7FBDE6DFE43FF +CFFE29515E02D17DEDE94AB4A51C150212AB6E3838E941265DECA7396E683FD4CED72CBA0368 +6372569EE0F69C5DC598060237B291302D9CF74B61D696B71417EADC4C8EAA264FA1A3EB2D44 +8FD375B88A2C4F84210507C347B057100BAF86E70B622EB5350602E453B93657A9F3DC002B08 +1D10072A13A83DD40B6A2F329C9F9A9D81525BDBC7EE935298F82782E526731398885E80CA4D +7F568C71BA194501B0BE07923E43BB61AE2CF46DA6CC1D18670AE00EE6CEC746DC204AE5872B +558D2F354D914B2D726E3F20894A70D327E226B5110B8C8C904F8C06180E8C583BEFA1B31C38 +7CEDC3A02C5968675DA7FA93AC36ABA94950552E0FD212801358123442F40312A3CAC1D60D09 +5FEC12EDD19308DC2A75FA98F331EE444680A3B8D8059167063A112D98C6AF7356F8C5B56012 +504779B53DB23271590A11C413CCF1F9A0033B96BE1719496297A57AC3203D291DDC86B7CE6A +E9DCD1263D582A10D4697F4BAF61516F52BC70B7283EA82C1F858ACF3FBF566B4A0871BBBC36 +6BA424E779FEB1683F4CAEA9E87498BDBC4E2769F7237F257A65F9956626E9002F432317FDCF +FE3087824198434173ED69703F03E227A01522E941B8FA5108C987618A8480E984DB88C70F45 +57ABEB67109110312406CCCCFAFE44700EC4BF98A692D988D8D1D63513AF4515CA90858D98FC +A75364AB88395D9BF1DB938999EBDCD115D4FD2F8EDA88D40A3FD0AFBF77CC25EA19C5087604 +8B42454762E6DFDC790ECB6C52868607DA423BBDFC7BF07DB67B64DD67390D154ACE5A058C41 +3F84C448C903B8ED2AEA26D74BCEB89735647EE15995FE47B8E7345C4FE3461E01349101C3AB +13427CA7772E7C6E5D11A02EDF2678E07CA21B63B38FF2A34B0AB2680ADF67701B0D1D2DB41D +7B1B1505B3F1266F14E8AEBFEEA43B113539EBE8966CD812E705D8AEF11A58B8797473328EBB +B61F63C8E60B6835152AE0362E5052385A454398E433BCA2D62A8F7E52B238B102FDA34DD55F +895BB4B692200759101410F31EFA3D5DE37966C268E9BF4447C8AE253C240AC0ABC1949947B3 +E6EDE887A66EAB5131465EE73C908963D4AC4FDFB71E1E1FC4F51EB7363B0BE8BC5C34FCBD8F +76C51A99CC9420668D114E64E3B0C277E344FAC010C93557D3EC0BD4F7F43EE4C49F3C8869F6 +02BA6F76800F956F309EF38667B3C49428AF8092713FE1019D9581D7EDEC2DA87EBF9FBA83BC +4E1FCC2C0AF3215DF945F862436B823B1A2FD9140A24762506085C7F93E7B6BF595AFBDC444A +8B493BD0F4803B033D94DD3BD7BF934C0E0DC06AAC3DB2EE21A11A79FD3940FDC9ED876A5C63 +8DDA4F7F934DD38EE01FEA488651683A687B0C5409E2CCADA703887A06A5D1D513D1E7C045E2 +A1BFCF3F4BBBB793AA92089C3FECFC67A4D594D62720F8DAE9A38D99D925E6C9657491AE0E5E +37C527858552206F96B3D558983DBED1D0BA909EC99E655A913A394E45064886E243C1F1493E +4D6069E29DC0B91BC6B13815638CDBB54EE2B97F31DA9E1CCD8D24316F6908A927847B4F3663 +C5AEDA4D7BBBCF5537A1BCEA6B13992FF46903C5FD1BD849DD54C097C06C92D084DFFD006A27 +9D67018B3B9E06A284A5FD4DCACD7BBE0BF545B760B9E433E1EE2C986B9736786993D5563410 +61CA3F2B685197CE75FF37D5A50C32EECB734A311F01C2AA340557ED18BAE98DB3BF5C2C33DC +7D7B602C5594A100A397958B81E04D297E6A62EFBFA050C8854F9220AC1CC6C9286F9ACB9CE3 +9F732D98BEDEBD2737E9EFABAE6F18F4B87DE17618D511598AAF4F289FF859AF6787CAD1978C +3D57AA75FF2D787464BE750C751701BF11129CC5F75C711C53463610B7D0C831E8AB40DCEDD4 +E56F158BFE526EC776EB4E9AD4EBD1F7B7A648E28B17A14A307237D6F2E6B1C603F6B4CA4588 +D543A1815D850390572D9367D9FF3F5691712DB09BAECC4EBD23CB86A104BB6BE01A284B8B97 +EB1F61D5EC484150B2846CEDD4147C35E8A1EAD473B79592AD2BBA95D9D3AB7CB3E3F3CFA1FF +D7730FA2936E27AEB8BD7964F341CC9B959C8C91A304B12B986459753EA0643DC0D1BC0F54CD +9C726DD2C3F039F8BA14BECC6E475AA35C5E30A79F2EF4EADACF680E7DF8F3AAB4F42512A03B +4BDCA39C03FEC6B9FFF6074C0FBF9EA056CFC76EE046FE08F2678ED59B1D7F93BE909C4403FE +32A406B641CFBA4D7E2E24848C7B741243A699B287835635DB0D4246D5E0B4C30EC8E4D116CC +9E888C9DCA656994F0CA0C15D79116B4E8CBED2FB8A42E11F0568F7D350AD8C7EAD705F47976 +E583BEA7B6836AA7DD67C1CA0BA074FF3EA8CC2571E9FFEEAB2E9931E1C2B7326A5737B45692 +E01646018F9AAD322EEEE45F7D9EFB822989374F1FA3141B6FD4ECBFAF6AD18A4939956B813E +3BE2A9303CABDC659F46F5B9DA3A3135FF326ED7E4B41DF0BC60B83B415C16DE476EA0DA8285 +A688D2FC5475339289FD1287A4DC3C39C0657570B7B4C90D62D48901F6982FA6841133300EBE +5FFB17D30914319DD8BC6DF7BD8213BB58F886AFB61DC7D0B4601306E2B141F20F1A131CD9D8 +405FDE26E53EE97FF27A1724FFD902227C7C9A3E4C4A89B82C4A26544ABDB53A1730A19EFD19 +FC56FDE858E9D309376B9B33B731247436B81EA9C497D54609A3DE480000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 + +cleartomark +{restore}if + + +%%EndFont +%%BeginFont: CMSY7 +%!PS-AdobeFont-1.0: CMSY7 003.002 +%%Title: CMSY7 +%Version: 003.002 +%%CreationDate: Mon Jul 13 16:17:00 2009 +%%Creator: David M. Jones +%Copyright: Copyright (c) 1997, 2009 American Mathematical Society +%Copyright: (), with Reserved Font Name CMSY7. +% This Font Software is licensed under the SIL Open Font License, Version 1.1. +% This license is in the accompanying file OFL.txt, and is also +% available with a FAQ at: http://scripts.sil.org/OFL. +%%EndComments + +FontDirectory/CMSY7 known{/CMSY7 findfont dup/UniqueID known{dup +/UniqueID get 5096648 eq exch/FontType get 1 eq and}{pop false}ifelse +{save true}{false}ifelse}{false}ifelse +11 dict begin +/FontType 1 def +/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def +/FontName /CMSY7 def +/FontBBox {-15 -951 1251 782 }readonly def +/UniqueID 5096648 def +/PaintType 0 def +/FontInfo 9 dict dup begin + /version (003.002) readonly def + /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMSY7.) readonly def + /FullName (CMSY7) readonly def + /FamilyName (Computer Modern) readonly def + /Weight (Medium) readonly def + /ItalicAngle -14.04 def + /isFixedPitch false def + /UnderlinePosition -100 def + /UnderlineThickness 50 def +end readonly def +/Encoding 256 array + 0 1 255 { 1 index exch /.notdef put} for +dup 0 /minus put +dup 1 /periodcentered put +dup 2 /multiply put +dup 3 /asteriskmath put +dup 4 /divide put +dup 5 /diamondmath put +dup 6 /plusminus put +dup 7 /minusplus put +dup 8 /circleplus put +dup 9 /circleminus put +dup 10 /circlemultiply put +dup 11 /circledivide put +dup 12 /circledot put +dup 13 /circlecopyrt put +dup 14 /openbullet put +dup 15 /bullet put +dup 16 /equivasymptotic put +dup 17 /equivalence put +dup 18 /reflexsubset put +dup 19 /reflexsuperset put +dup 20 /lessequal put +dup 21 /greaterequal put +dup 22 /precedesequal put +dup 23 /followsequal put +dup 24 /similar put +dup 25 /approxequal put +dup 26 /propersubset put +dup 27 /propersuperset put +dup 28 /lessmuch put +dup 29 /greatermuch put +dup 30 /precedes put +dup 31 /follows put +dup 32 /arrowleft put +dup 33 /arrowright put +dup 34 /arrowup put +dup 35 /arrowdown put +dup 36 /arrowboth put +dup 37 /arrownortheast put +dup 38 /arrowsoutheast put +dup 39 /similarequal put +dup 40 /arrowdblleft put +dup 41 /arrowdblright put +dup 42 /arrowdblup put +dup 43 /arrowdbldown put +dup 44 /arrowdblboth put +dup 45 /arrownorthwest put +dup 46 /arrowsouthwest put +dup 47 /proportional put +dup 48 /prime put +dup 49 /infinity put +dup 50 /element put +dup 51 /owner put +dup 52 /triangle put +dup 53 /triangleinv put +dup 54 /negationslash put +dup 55 /mapsto put +dup 56 /universal put +dup 57 /existential put +dup 58 /logicalnot put +dup 59 /emptyset put +dup 60 /Rfractur put +dup 61 /Ifractur put +dup 62 /latticetop put +dup 63 /perpendicular put +dup 64 /aleph put +dup 65 /A put +dup 66 /B put +dup 67 /C put +dup 68 /D put +dup 69 /E put +dup 70 /F put +dup 71 /G put +dup 72 /H put +dup 73 /I put +dup 74 /J put +dup 75 /K put +dup 76 /L put +dup 77 /M put +dup 78 /N put +dup 79 /O put +dup 80 /P put +dup 81 /Q put +dup 82 /R put +dup 83 /S put +dup 84 /T put +dup 85 /U put +dup 86 /V put +dup 87 /W put +dup 88 /X put +dup 89 /Y put +dup 90 /Z put +dup 91 /union put +dup 92 /intersection put +dup 93 /unionmulti put +dup 94 /logicaland put +dup 95 /logicalor put +dup 96 /turnstileleft put +dup 97 /turnstileright put +dup 98 /floorleft put +dup 99 /floorright put +dup 100 /ceilingleft put +dup 101 /ceilingright put +dup 102 /braceleft put +dup 103 /braceright put +dup 104 /angbracketleft put +dup 105 /angbracketright put +dup 106 /bar put +dup 107 /bardbl put +dup 108 /arrowbothv put +dup 109 /arrowdblbothv put +dup 110 /backslash put +dup 111 /wreathproduct put +dup 112 /radical put +dup 113 /coproduct put +dup 114 /nabla put +dup 115 /integral put +dup 116 /unionsq put +dup 117 /intersectionsq put +dup 118 /subsetsqequal put +dup 119 /supersetsqequal put +dup 120 /section put +dup 121 /dagger put +dup 122 /daggerdbl put +dup 123 /paragraph put +dup 124 /club put +dup 125 /diamond put +dup 126 /heart put +dup 127 /spade put +dup 128 /arrowleft put +dup 160 /space put +dup 161 /minus put +dup 162 /periodcentered put +dup 163 /multiply put +dup 164 /asteriskmath put +dup 165 /divide put +dup 166 /diamondmath put +dup 167 /plusminus put +dup 168 /minusplus put +dup 169 /circleplus put +dup 170 /circleminus put +dup 173 /circlemultiply put +dup 174 /circledivide put +dup 175 /circledot put +dup 176 /circlecopyrt put +dup 177 /openbullet put +dup 178 /bullet put +dup 179 /equivasymptotic put +dup 180 /equivalence put +dup 181 /reflexsubset put +dup 182 /reflexsuperset put +dup 183 /lessequal put +dup 184 /greaterequal put +dup 185 /precedesequal put +dup 186 /followsequal put +dup 187 /similar put +dup 188 /approxequal put +dup 189 /propersubset put +dup 190 /propersuperset put +dup 191 /lessmuch put +dup 192 /greatermuch put +dup 193 /precedes put +dup 194 /follows put +dup 195 /arrowleft put +dup 196 /spade put +readonly def +currentdict end +currentfile eexec + +D9D66F633B846AB284BCF8B0411B772DE5CD06DFE1BE899059C588357426D7A07B684C079A47 +D271426064AD18CB9750D8A986D1D67C1B2AEEF8CE785CC19C81DE96489F740045C5E342F02D +A1C9F9F3C167651E646F1A67CF379789E311EF91511D0F605B045B279357D6FC8537C233E7AE +E6A4FDBE73E75A39EB206D20A6F61021961B748D419EBEEB028B592124E174CA595C108E1272 +5B9875544955CFFD028B698EF742BC8C19F979E35B8E99CADDDDC89CC6C59733F2A24BC3AF36 +AD861319147A4A219ECB92D0D9F6228B51A97C29547000FCC8A4D9DAFF1B3EA76067C5493B69 +F73B89C8B61804A34FCEC826343337CCDFFCE17BF343EA8034BF95AA14C56862C2C052569AFB +236E1F1795F05150C8F28DFEF6BF4BCBACB678D0003630EE84FEB44B1A8438185EB45654E685 +3C1159B073E54292D135F0961A64E8A5AAE49C4BA9C44156C123426212120F99F3E8B7425752 +A5FE384AAEF755A8464B51F015F9E2967477D57B22627D75CEF8AAAF0AEBD504EB46D0289DFC +8D86C972F042BD88A90A53613DD93D8A7A8460E63D85F6C15C000C0AAEE4BD5130B6E6688C9B +3F3FFD804745DA1D5EC0AB85C96E1724FA67F9324C59275415182AB48D579722DCF602396AFE +64C13F3E74EAD33F9906C8B1A6FCD0D8BAD1A14D90814200E01530578C4DCED1895C636428FA +74C054F1549DDF4521179B96F80830FD2E19019D9128ACBDE057D13BDFEAA4E02E26B74E8F4E +53BF454298CEBA97340568C286DE223805338AD95CA6E6F1BEBDC955A3E57DC7B12771A6C3B1 +5BBCF176FF41C2E268E490719CCCBF76C137B4A3243DF2400103F7CD03965F2066146EE8C9EC +EFBFFDFCE5FB62C6FCF53915EABAB5E555005ACBAFD3ACF0ACCD26C747E37089D2AE6D70A6AE +FB859990B82920E4541728E413B3B4F211ECE56A46A4A81B9AD8A68D58099D41A9C8C6F88FC6 +9CE9E01B6ED62AFD98C4C579961F628AD3D5DB710A6BFEDCD5E86782A06D066F44129D3DEDC0 +A1077E7235FEB5CE3072DE862061E5AF66C6E023713D61929927A8A6FF43A709B900954F3AAF +C0E0747776D0AA1F95067A9A8023CC005EAA68F13AB3A88545AAC2EE1E5F87F2A9A82599A667 +9B14290D8EB9CE98B4135BBE6F83A64617F18FAF7D21A52CF854EB00FC17E2E4627EF3E0221F +F1D1C503201699CE9A735C9E98F4877611AB63C1F9E1FEA5E1B4AC9DB568E6FC86D642AD0C85 +68321A0B3F10A2D771B79BD85476AD1AB410046B18F63886B161633F236DB7BC6E9EACEB5BED +622209C892350D9773271B586A097192DC61B782CE695A26ED6955290CF7B85A2F8FD434EEA4 +2F8BB8F60E4874553BD31770282E032AD154CB0A51DB6552755985E354E2BD257C0A4EC83551 +085D9CE84E1F949266E7606AC6AC679D7CF6D68CFB9CE64C8257C7F2448B4D917D9256A32208 +8EDE290E15C130B1626B145691298A3F0EDF2CE66235F9216D420F379CC0A571F030A5DC0D6C +4DD9721A659A0CDFFCAF0FAEA26C95277FDE2885CA1C999C0510F9DCDA989F82A7C0E503B263 +C0668407A4D6A33746BEDA4D33AE5E1C06131F68858ED2577DF8AA18778F6823496DA5F87156 +DB771148B0919739B6D2E244172CB9BA6BC686E8D5FD5A8D2828D96325BBE8C2A05AE1460D60 +273449128D61B1DC288C5EAA1787119FE03192DD48270572FBB430971B8A562DDDEBB0901FCB +3626A6825EC49949FBF841BCA3DA80E9412AF5235AFB2958C8386E9A1F74E1DCBF7F76CC328F +A2A92A7F5A85221206BB696405483CA83ADA18C1C0CBFBD14CEFE634906C4722443FD2BE0EDE +5883259A70ED5BCB6984F9FE54FEEF9D26AA898C5BB65C4C7DCED1CDF27B33BA99B29617B667 +ED8B54972CB1D8E5A45CFC6AE90090A3797910EC9C88C5623EA44CCD03C45F318E3E43A76B33 +2884B3C4BD0C40A2CB365067DDC1C2B35F557A9B1875C80607B2C63E2FAD5D196172C8A8ADBB +7BBA7666FE088F51C1E63C70F371140D0757C151C7D5D1BB64F946F4E4099B79080AF88F9A4C +44CC6C7A279A37C063D2BFB9708B26253BB8B3BBC62EE6EC0E5B2CAB050892C6344452531F35 +818B2AE25124872CB9DEA89B84C4C907E6C1DEBCC502249828D9E07C30AA0CA4AC09393FD526 +A1186491D5B783776FE14C39275B48279FDDFBE5AA12050FB0254C23522316631239B10E73A8 +0C01B8AAD621018610E8FFFC803BCD77827B57242F787F5470578653C913AA54AC17F70ED856 +213C43F6681C8EBE599451552D7E057120CED79DD6BF057CB162BBCC020B824E737D17684CE0 +FE1FA27D76D13C529BD869745B0D073A465D9AA0DF728D4D475BCFF78ECBBD78278A621CF6F4 +F2D604D152A8CE52237BF3013DE89589E363AA2AF668244C17FE322A734B8017C01288F823C6 +F70A264F3743AA0A169A9EC73641E9684046E5B66008CAA3D950FB50821DF363F79B0DEA608F +11171403D417251FDB78ED210699073C94676E1A1D33BFFAFFDB903727F1D6AC3276C8670BE1 +1F2FF77B9814821AAB7E45C8E6166CB7C355E75E7D2FF07659FAC230C00BF44C44192E957E03 +7A3DE18C6BEAA8469B6CD6BF9ADFF5675D42B6D0EA8B6E6EBD28B9907ACF2270274A813FC603 +CFFB84EBBD42FEA5AF47320D17BC17E3F9E1CAB628E251D640C2458BFE49590CB2BB428A3509 +237ABFBBC4662FBB29944F87F0F50F389E977D9B3B1677EBA0BEBF45E3F11338F6FFAC36478C +392DDA022586917ACFB6E4FCB5FE9B5F57F2B93543CD68DCBDCE752D7D4659D86BD7B1619853 +644D4B6FA55E935C4DB801696A56F36A78D5EEC7E78885C0F6CA874915F5B97611BA6417A4E4 +6ACBC10CDC4FB3B8BFD0FA26DAC81D5EA91829B32E19D472B88B5E3A4FCA4BF1A48E697574EA +46059C0FD1AA1B22BA70E063AAEF2138C284606E1B2B5878F89D7552DC1BEDCB0590B7CBFC57 +87FCB7EF0AEEB6ADB8F5482E49A4E68253F5B340321A5525DA1B640517A1AF96F295E7561F35 +DB0841137CC50B810EE4E7968D510A1986EAC1C7B2CBAD3209C51FA4D9C4E8ACC18754BC8670 +6D89CF414CBE75DAFCBC078E93A9590FD856FC4EAE0CD7433B90FF8CBE8AA2CCCCAD4854CD99 +177AE44CCBEF4FAE43E050A77861EE4FBD0A63FC2B3D621014B581ADCA1C035FCF75CC5874FB +0F1049B1B19D53396D8E8628EDD19257733D355048BCCB2BD7BCE63FD6509CA624DEBFB0CDDA +EB5790993DFC58DE7A77B67529A70F0E1CBCFD4BBBEE3F84055749BDDEC5E7BD1826B1F3F12A +BBAAB6967216B689DDFC71A636C7FE4FC58542DE933DDCC0DB3B45ADF26068B1B582D0C49829 +B9860CEC7E22AD9AA836FA61A2D237C3ED997EB68E0952318E159BDC57394A14AA237A2F5976 +434846BA60E0B35F0B6BD62D27BD6174AC8A79DFF34927CA33DB427E483EBB197E89C54D9EEB +2A44BBA4DE117E34A2D0496DF4A60E7E0354945D4C412F7A0865A2224C59AE698147B21B397A +D669416997594F0EB857172A5F92F8AC9D0678C61670FCE2762EC6774FA2DEE7C2D34C82E07C +81FC4DC847D13B8B1120E4CC334E4FC9854316237865E000B6497BC00AAC8EE40B1362B14B0F +132911F9505E665F2A597E823D36CA9C3FD7ADC7505B895252223648C2265C9B29A220D25A1A +B5CFBB8660123AB468240A5F51E735DEBA1A4E9493AEADE52DC7FBB11CA3244D841836492572 +0DC2CFF9271EC189A3C3F052BE9951A084B5D96A06B95C21E6E4778CF511122A26CEF18E877E +6F78E6A57F397F84F755CBF283764CD94DD308ED1A633185B86D6395D5D5AA8EEDB42D8683CE +E34620D68593795233C65CFF974DD74CEDDE1477CC3F350F9413A0A204D4F4F7F79FA9C16B97 +97E6AC5E2DF55A10408093B04E9A7539A039F71BA196720DB912E1F05986504AF3571EA07F44 +AF4D20F3A503C2676ABF2A275931FFE63416D557ECD5FB8CD89FAAC61674C9C005909EEFD8D0 +967010C5F6D89F61D2911D3122939F1984710F7DCD29C025D5CFEBA1831FEDCCE6CBC19EE2F7 +8263CC9DE58AE43CD5C945D066E83F41BA063A92E5A3B79F68E83002FD4DD2E6DDCE214FC778 +4D566A0702EA1C4631BC08344E85B4118182B898774F77C5C0EF13F440C5F2EE2733B39E510B +038770924227E1D7015A8BB3FD55B808CEC744E1F22910BA824FD77074C16F3A792C37B7D9B5 +48BEBDD766383F9D18D6AE73AC3B2DA40496DE28239A01537AE88C42973556A24F845E79C0CB +A04A72804C2D0C88A19EB4CD5EDDF3EC20F4782418CE502ACABC284B27BB15E010E04E6D701B +697178782A5E4487F94EFC152AB17C7B322FEE53AD146FD10BF083FC183646FD00FF29B7D079 +E3510CA668B2F02AEE6299E88AEBA5CF5C126E7EAC4149F1C284952BADDC8A0988017A9CB11F +3043EC69CD4B39A3C70D011BB7E91215CAF8D63AD5372484191605A8E495E42ED96501B06AEB +8A60A2E68417462DE1720AEE508E15B1B12EC134AF58258FC800E690F4D05B136471ECF95B6B +54D376BE35C3A393F234DEA4E9F769767C0A7D56E1520C9F17D8060F6DF7A7C2611B4E5392E2 +473AD77CF84BB2ADB54343E1328CF2F3E9C3216F18F4E0EC26EE79E1A82C4118DA3520193A56 +137E53E611BD841C7D2B00ED1DE4B5F2E9E7CB50E08DF891E2744A14B21D76A1729B39CCCCE2 +AC98DA6EA7B74B1D2E0B499FC68D85765229E91EDA46C0F9799EF76099A7A91BD2D99EC4D545 +EF3406FC67D38BB9A2690167A5772423B66430D5F83FFA70A30C4024F2425D31BD47AEBF5FBA +BD1A291C87DCB8C61970E96B981D59424050E4F1FFFFF963CCE1712CEA6DDB50BAC618CF25BE +B3A0E7BEEE5DC320C52C2AE5B920F382E745A0E6E4734EA05762D3F9DF69F7619F6D99126074 +501307DC6CFD991183CA509FF04B45ECB50870A99178C30C2E25F022E1DD4189D142314A4FD0 +97FE0BC9EDD7FA09ED4E53F495507D403A0EC4EA013B76AB0FAC82D0717619562CA829A337C8 +99CCC2A08B91149B8A7CF4F93333182D4C9F5801CB29E676C11381828AA6354B454E9EC9B470 +65D024B35519AC3026EF9DAD468095C5E991E87B749C94CBC2E8D5BB557C46A18F3AE93E647D +D609F24E8D15D6AF3D19622EA458A4A70690CAF992654EC7BC93DC5DF18D7849C09730151973 +CA7A04079EF1BBFAAF49876A1AE86832B9EEDA47F943C245C20D1001C06162A7CF7CC833B280 +8A04076F474B01574C1A91A2703B4ACA36CA0A68F05A6967F196B5574365A18B39DF98C57273 +3B52D33D21D9D4F79056383A6AC99401ACCA8197483B1F415D7F70842C516CEE920B032817DD +C2739F45CC5E28701F05B15D5F3B3FC94BF77146E7A0C970E22F4F08C436AB3D671081D0D50C +3AF29812CCBCDA6B2B50E568AF18722D913FE956C0A5F2BE309D87E79CF4B55815BE6FC865C0 +5FB5B5403E85A373FE2AC8B07BBB720C26AF895FE34C16EDB6A82BB4DED3F4FC882FD32A7FFB +828BF16407E888D2A1ED15873507245DA008CFD273A911B4292A90B1341E6F87701C460BE1DC +3DE1928D9E964BD098928112CE391443C47AFE02A134DC2D8A905C1751B84D71E324B02B2D9E +AEDF7FA82FF457B0380C0363D3FB7D3DFED54D392AA3AE7B1BA454938941DC812451214D3EAA +5AD70CE5309F0235B2008FC11615A68A348D6D455F6BA149AE55FD39DC7988CF6DADE63CA63B +8D31E2471E97793FD3E0C7D8CBAD0FC559AB2384CF02806B457A92578A84CBE4E34B1F4176B4 +26E2FD6B1C272B92FE1F7D97EB679985B3B0A202E0A06608D40D4DB1B3CEC899C04D35907D63 +E0776B6D0694BC64B797670A6B0E8FEC666AECF2024D9D1DCEFA2A8F4591F206BEC78047842C +2F1221287B51DA31171BA24F75B1CE543C59373DA1BDBE97B1A7BD2EBD35A53F025E9644D9C7 +3779C51EB6044EC0D92494584B3796A0E2244AABE4B759F2F3B47064D60C4255B90B0E518969 +70A3CAFE4D979918CD2AAD72A8AF39494E16AA9BBE76B7BAE95A0CCBD8D0F7A67EA8AF67EDE2 +CFA2049EB5E5DA215A4C24A980E02E88199A5F1D8B1B3D5C8D38C6823C021EA6D2E4007FA609 +BEC9F72833A136916E916A919B5BBEC85E44F1AEB8DFA0C2A013CEC7CFB598B6714922975BB1 +C83C881AF9F790A7D636BD9205E2D3A219B565292055207B808B1881630B21368B0A575E8873 +7260528FF6AE2D7D54A2508DCE09C017EE6847784C3B4D3A084914494EE5BD5F946E434CAD27 +9BB03E8915E6B870767525D9396AC27879DC572A0B66DF432FB79CF817E0D693AD69211B3F1E +3BF24E93EAA96D989AE455186D7DEB4B0AB8EE052E0596C02ABE704891A170D85DB1C751A9B4 +E94D425AFA56E3083F457DEE1B67A54099292167E052059BE8DAC5C0A7B202B84A3C92734019 +C33C1162FF2B1995C50B083F5F5616D37A80B83E7291531BCB7C2E4359477B56CD50FC7DB85C +AEA11A2DC4F23C9CAD009F0C234C9477F54CE3971FBB3A89BB96F06CD17C01906417BE4D79F5 +165A14E1CD246086B22D7A93C4E2F028B111E893AC2088D66C24F4CDF581D118BADFDE8DDF04 +E4BE0292607ECE90D0CE96CAD103FE46E6869701129770B84E29E5785DD5AB4B404330618ADE +5A5AF9831790214E88681A2B5C2CE9B7D8C015C3A70FCFF1B958D8708A84D6919D1D577452F2 +272D160939DA9D29DFEC2374E8BF2FEC884055B6F77A288DCE17F3F9DF3723C019BA8C3B9D87 +190748624E4102CD47AABA0AF0A3B67FBA8846CE099B1C5F247D7713F56FF54607649F4B7318 +647CD7FC9DE69A658F171FF16D82A2E2DA4A5AA0B71C5B99A8646B5178B82640FAA33C56100C +340240DE44F1A45FACA0699461C4AF5581EDD7D660EF89A8F0FA6419B896E78039AD9F33253D +42B445FC82EFB477B7A8C1009F24EFD838599F9FCBF9B50A1B11A6329CD44A241BB2875BE015 +BDAD64A88CD685CFF8001CAAA3E12EF1F53C62572E85B4706F0C0C42BB0FA4A457AEBFF4FA59 +DB8571448472BE74AEDE3E238EB1C4467CC34748765702EFCC47F6C1229AD2742C0995F174BE +425315AF26F293F3E3B8C86709ABFDD7D7C18E4C22AD520F88CD207CAFE3BD11C11347574A78 +6451774A0824DAA26370FDA047D687A4209FBA6F35590B40120E67D6E124E1BF7E520CFBFD89 +1923C7C3C72413210284B7F9D6962E7F000C17B4E1404C86D34ADA528F30CB522C18A007B54D +387FCD040094CAAA92D383DD6AEF7C0EF91877F9831F15F11BFEA2747523AD759DFC74B804C6 +80A0D6E518E31FCCE3B07374198FA217907887DF93DF46379C44C3F426C61E8CC791AFB9644C +8D1A48EE920FEE4DBA1CC545B343235580152E7C047E581D572C6ADF1949E190D9ED2D7CBFA4 +8F873367CD7DFBDE58F7AFB8EFB1EC14D29059E20A884E8CA5B1D1936EB0DEF793733B5E2412 +29B0CAB522284BDEFC3D96DB7E9B3734BAFE8152291F061732F5C900C4F46EC781F0A1F67EB4 +E2A61D01446FF93EBD05910FE85DA9EBF7114F789954E19E5D8892A227BD1F0C59E7A8C5B601 +86CFB72EC991756BC18836A4882508D4946111C46B5C8B01006D5EA4671008AB989C6E96303D +2740F130097494B898E26730466135DC55BEC03931758CE9CFC83F6E8A8C609E5EA48CB4CA2F +4B059365B7263DC08AB25016270405EAC0BB1873F5DEC1D8341D039537358F7EC07365A462A5 +8013C7072979A427CDC52AFFFCE7E54D922702976973206C24E31AB358E087437FE3C5615AA9 +0B88453C44FC751B6EF7C385CEAA0D977DD18A8E20E050B175FF2EFDA0D789F2F0502E006857 +6B3D3C29E19FB08E926765F3A1C4B1C2F0D5FC0759AB1EFC261CFA1B041C7EE3F1F329BA03A5 +FD751700ABFCB6576DFA432BCC286066BC09947209C6CCBED6A5A493CCDFDEA73AFC9F21AE15 +49FA355C59E72F9EDDE74A3741C9472C100367C5BA21AB550DB7F58E70A879C2C1AB2E76628D +4BE2DB06E0DEFD0BBC73A6E9BB9491D96675544E8E1C8015B8187CA6C46BA9C9950A141CE819 +C6D2BD022A08EA409E4A04291E803D14AEF3B1AFCAA54D4566C36A1DE47A9B81A2598C942246 +3D8B1D450DC7E71CA5DE4E226F3C0C1722F95F6CEA4642752322D795E856F79CA2BE2794D6B6 +F9B1034AEA03F077572234B5E44CFC0023632F25CF4B7755F8ED918A709D3FC28E9F61231493 +3B07B991B03FC7838DF8502A25B9A8F3A400178D5AAB0EC6DEB96170BC445B99DDADB1116E4F +B81DEACAF49BA8676ABEAF255978A0282668FC761D1A17B9CAB610621CF31D319EC3E94633CE +C9A808D4839A65983C69B67E73B64CE4BA378879322C54934D104D15F9D2B016B13BEFD6D1D5 +A3653DBA3BA2D7A760C072AA8EFF64BEC0274A0EA7F64FC95D25BE5EBDE5BE5087548DD009B9 +1B9DF00FBE2D56CE8FCAE06C17B47719E2678F0D82B5EAB4BA25D13F5D195B6BDD49931FDFD8 +F6D6F8167E67B55FF36E0E74B692209AB11BBBBBE1C853DD25DE118BEF45E2EA5A8D3E4AA152 +E5532388A15CD538BED22A2CA87862C46CA0BC02D00B08A0C16D237462636934DDF1351218E6 +D9E9BBCF46FA3AE7DD8816C90D5D2109E269E56E9696B1E3118659090B70783089637243C487 +1F75B38BDE1AD147453D2BD104B323DEF0AC9E293E0BE7141F7FE8BDB9A2387A26F156E33BF2 +FE4603AC6141358B19E5590B23443093DF84ADDEBBFA235A8B5FA873C64F7F5A57D17DC579C3 +E3902D989F8E27D6C94B05DB3F493C27EFAED719D84BDD30F81567439AF718425B5E71E4C476 +E3C3BFCCA50CF658F5C028D92830CA0D38B78B61F4EE8B3CD63A7C6EF61EF70A30AB422930C2 +CD96DFD3B162BEBA362D1C4E318C6C356C2A1BB4FDF26EDEACEAF218B69A5A8F647CF47A2984 +86D25C08F182FC1C90E200DBE640B1773B8EB4D25B1F69FF931C2B873622D03E52008A60D073 +6541CE77E4137CAB1C9450B3E290207065992B886B51970D3DCD91B0F5540FA41CDDEFF8B877 +E25C3A78E6567EC9C3D32C0EC31181805877D2B226E3052DA0D719C788960D2EB6E34E536CA9 +2CD8192C5480B5AA8EF7339F180E94302FE809F3CE67F4738E96AD29D93E265927FB6C00C5A8 +FE4A682128436640D214056CD8703A1ECB207E0E214C37E1EBE6FCF2AE98CFBECB2E01C02330 +ED7C9863431F0F8B2DD4BF96FF06BD2D63591463C805746DFBBBA1E86D352FF85501E5FB99A5 +C3BB2CD6FF4F9E5F3CF85743EC31077AF302EEF366A1057B2739C8D8B0EB1B2D39D7C3D23C31 +C8307F6686F9C2EE08FF6106012BAA5AF4CE2839BC4139879BE82A030B085E99B983480A6A75 +5807C10FC79FF8E2F2B90BD5C3FF01F86796762C7B3829F4A43CF7E7E4B6AE17C7767B2B0692 +9C65FD9F72B61D63E8A5A544A167B9079A0986F52F352A3A0FD0A4F74E5BA612A0ED3CB4F04A +831ADA931C653006BF88F8EB3AECC35CDF4B6D8F3517A3685350826BAE58E06FE65F8C017FC7 +3D813E2254BA4C128265AEC8537E1799A0D6239C3C9DD5C6E2FBA9186CD82C4A3DE976218922 +7C7CFA6A97BAD095FD8998B67046A4BABFE5AE87EA40181BB5ABA16BDF9D067820B735F183DB +F1D27D992AE1965DBD9C9E9291195CC021E050C5B877D6535088E50F15741230D11919527A0D +9300DD2094B162F3DC7CA01AC3E2DAE7E0C680BF3D6A3E4C361581F100A6DB516084527CEEEB +73033213AAF85F4DA9186FD56C1251F33727A227363E876101B7018BD702271D3DE5A96185C9 +6010F046998EA1E6D7E5650B3693596D0BEDBA68B5ED672FAEACE1E165207C439FF823F71124 +1B4EE7FA0E46F595BEF621E0725BF0FDAF416C77198626255E7702C6CB14647BE293E15E8E04 +DEB3CAEC893D4F57E92C7E87811C5302504CC1448934C8E4A08C46B5BDABDB974C571B61F968 +C8D3BBE5694204AE858C100496AF5977F66BFABD55720DD4885843E4BB066E2779BDCD419C71 +7D200A113DA93E3141CD997F474D93A657818CAB1AE89D53679096A760E7B468128CAD32E4F6 +B3D81A3AB54D8B6500AFE83E83DB1CCDA1ED587919531383D9CCC9AA5C4CD36289D40F3A1DF6 +DBB2B2A4C7D55905071A0E8B5797EE281D29F636C65BB1024ED93912856A1AA45C4CD89C5022 +B436F9569999481CF86EF9E86ED9DB8EF340A866B813EE991147DA535315AA4721A1FEB7FE01 +FC862E530E78D6E978A8CC780A6E34BCB17ED5BC054A7CF08BC57251B25E78DA7E5FF724E588 +C425F84335B763D8E2BDFEB1DEBAF21C293CC871C6B3515B394564D9B52D7FB65D83A1D6632D +2B3A11CFC99922F8D27A46C3059A2BDAAE774EBFB6C49039797B2E8298E6822ACD7AD304B71B +AA13A71E1738B76BF137F6D40368C84A7C451276AD1D605AC4D4850BCEA784034203ADEC4FDA +DDA71981D205B5EC230489726AE8013609295BEA3707BF681AE80FA4014BC214255EAA32A480 +7391D4B04D68F74C682A403850F1D0D0F6305FC73C6372A468E23D101DB2851C254596965E57 +E6A5437F47111240D1D60A8C298EF7BE811E2D1690A08E18C4B5FA19273EC46C206767B9E6CA +3CF0749611C931D99E8875015CFCCA57895D99FE16E93BDFA5F6130607A13D95075702537171 +13257140AA5DA631676C7886F370E71AC76479650CA3D8C84EDFB91B4C66B8A6B57AB909F2F3 +DA343C9AFB9A6E4FDF0CD6CF293B2A872B82D0D4AE8E858A92F75A92DA6FDF4D82F7E22CC24E +37E830D9A9BAFF1E9C7A6ED609B3DF74B4AD697EFF1CA45C7F5E073D1A3F1E5B78EACB118543 +BEA62B4288E5950A84DC64158E26C4411DD62360F19D0E3B85D9FDCD15D9E90ABE8DC2AD94E6 +FA0CAC3E9E5340F462DA62FB180E1A793372A551F95D27815D83C84F8187A7642354BBC81BD4 +C13054D7989DB24BB118DD916CA7609FBDD4DA285FF79C2736B4B4B82AE0564D2DE19FE51DE4 +E6B8B37AA24AEAB5F4200CC08D474A5DB787DD8145EE700B83AD3CC947B39FAC31B6DA65B219 +68297BAA75B837B3E6680D856D6C9E272F43EFD5C9D320668A577DF88B818259D6FC97917408 +6B98B66BEF82F6F86A470F8B1548980719C9B9B45A2EB741EB2E1F583F23378A769E7CB779AE +0C7DED271052C154267E5B2FA46EADF1B01F736BF9B0E406B4F3EB0CF2219A9B433AA616045B +DB2263FF67697029916F38CB589EA0871F098BD89FBE128FDB03432B945AE4D63C2C3B159F77 +3B797A45C423DA27EC335CA59C6A6AAF73B4559C55FC1FE167D584A9C79E7510CEC985E28316 +6654C81DF9DB0704F55393C0B2A5ACFC24C1016DDD930D7C81D4279B719BE8D541EE81A6963C +FE267FDE8C74DE0D6BF3CBC563F09735DF60CE5E24AC86DA92F64A1B50B38F0CBCA0A648AC19 +535D31B0F8A1F0717C70A3D9EBE5E8A451B1E43C4AC5CCEE6D18E4141EC96BDBB7F7121D7974 +2BDB3CD31501F941770F0BA09035CB959C5860AC4752123E733CA69189C4CB9DE9D59AA18173 +4AE45A58AD921B6AE470511336E62615145094A268548BD2A15EE6CA7130B19A54E3F1C7AE71 +FE8777C324C71FF896FF7C31889DAA39F711FF4F46B0C1085410626DC45D6C20FB1D0A6E6482 +C5E5118BFB33B098C4A5B134D08DAF802AF2EE7B83817B59B7F9ADF5B756BF92BC3661C16BCB +9EF8BF3221B3DFDB7D01520D03A5C3D9646A1AB6883D6CDB09EC24CCF6B52414CF3B5EDE19A2 +9182C80823D10FD0099419E94B1E79918CE36D8E6FB7915141FE398D91C706CE3CD16F12FF8A +7392B187B6D8B2F2855EE8223FDAFFC1D66426B737AEC95BD020DE6C908984E95F81BE9406F6 +57E5F50216E68D17614136C5DCA478F4057612FD93C3AB00B9C46202BC71847F6164C01C28A3 +C5244FF91D663CDA8A815BDE5ADE41440EE19182A2D915CD45B052DAE35580CB8BEA8E9907DC +1731321BCE7390A52AEAEA380F9C9B6B0D74519424849D6157E58BA887E977CE8BAE585DB593 +937A447F21DD825182703A4A1754DFE0C91E574BD8BF37EE9C0A983D4409F0F252646BD28A35 +ED662DC73A1FB3043A1DBC4DECF27A5D47EAD029DFF537F8236A71FCB11D3A0AE0A24289BFE2 +575672E1E26715469D0EDDCBC97F044AE7E5D018384BCAAFE76CE778C34351BC6F10CDF707C5 +7DCB1F7A9D098D2D60B8BD8408A2B0310CE585EB3CF04BC39E15A6CA1FBD05B51DEF955BFB48 +B0034B47F2DB81816026DD2F6FF94F9E1E6F3D3EAA71AC0F0DD65F77796971BA9FBBD374E36E +4EC98ACF20573377EC62657CE6D1716F92B22E1A820E782C74DDE2D8044B5FDBDC579F68237D +FD3C861ABE00A6A592270759903D43389FA6528FF3F617FB078D9FDC1E94B8564A6EB8209E4A +2FC2EC5A1407A85C8CBD8523296BAF5780BCA1298A537280E7161B60BEAD9852ECFEF7E3BFFF +B830E1CF6D05C235480810307CC13A1050AF27FC4A3C9CD0322A5BD57C3DFED62B251F3A974A +826FFB116307D496984B26573A4BD320F22113021E1D13C06D97C492566E17E95FAD62B5CA4D +DD3ACE36F5C293FABD62538C04F603F72C64EEB4F785D70A22F7BA3664A571B46AC57083E3A6 +8C361B98C8832F194EE1F897DB3ED7C7523F237931A4A80D837B97F479BF4ED2547C75DE0333 +6839C560B8B42D8C0FDBBC83D0FABDE8D677AAE4B0561DE5607B1DE6C58DD38D81981F9E4989 +65C3880B98A0D5049B52022ECAE4877B6F4F4B7F11BA6BB7FC38ABACB117E05AA3A72683E462 +3EB337AFF43A50E421F6622298264223C2BC28DEEF3249441ED2AF24D5941500869581AC3362 +6B5B005E153850F405E1D67F0072404682A9E9A48475B23985846B15648297BF8D5765EE9345 +9F965F9A2C6C84490ED7043FA51892FE069C1F69A14002896073CBC333972DBC244C2328F1CA +159074F07FB571E44DA0ED736AC57A5273BA04DBD9B8123377795ADA989AEAC84AF49BA935D9 +0F0C214B9F454E8DEF7EF963FA7F7F7A9E189EF84882B746C32A8BAC662FD275470CC9376D2A +3D56973D8E436739D720570FDF5E04299EE575D69760B120E659BFA4FC89517596F8CE15718C +DFBBD3D2B7D60D612526C8DC9E27176266E0F67DBC4E74ABD3393C6082C9724F964A08DF6C93 +39D6934D020AC7AEDD858C6E221619E7ADD9F96B98E8BB68F4D4EC918C868133F1CBCFA66A2F +80E4CAC417BE6D6BBA1E71C399432D77D4EF1EE56D2E108D9B8B6DCF76AAEE9DCA4E9F8F5A37 +25C5A7D11765025B65FAB5E051486043CF9619FA8D9E09379EEB82BF0292CFFFF4008C04DE7C +DC5176554FFFA1754FD5D0C7CE061C0F43427A6B7F9463C4D8A9E5CA3C5FA834C0EDD9AD2518 +617C3BE1C4E0EB8B2B01458B589597A4FBBB36D27EE287E644BF02AEA910F4D22F8B928232F2 +DB0DD57047EE8462AA172D35F8A32A7A12D1D59069D85796E13B83D84F063BAB68589245586B +9B21E4FF727EDA4DB5C687FBA8E5D4F9DD95120EF0A76EAACDF5515400C73F1EE6104B7AE3D4 +4B7CF290C431512CB6BF75D704BE8EE6A3D0CB679BCF9925E906640EFF2D709E09B6542D87EF +DE78082F17FB7A21E39D1321CB12B3A6A674A2D078007959E48853651D7BC39FAFC42F07A523 +07C73021922CA8A2FCAFAE5CF152FA7890AB84B7A1BEB6B6061CFFE8F3A0CEFFFEDAF217A69F +2E0EF62E8D1D4E5C6621344D11DFA1B7F7AFF40486ABCDDDCD984F990BDBE30588A1E6629E28 +F033E133A8E0DAD31E41CFEE53D50FB0350207090A90C39AA8CC4EDF987C94C3EEE00BC3DDC3 +4A85AABD3E2A5E04044EFC9AA70B443110DC814915D37F2CC98EFBBC18BDD2516C7DB9F27DDF +97DADF41C1F325336B3263D117AF1C4204EBEF2E8355D351DC3848CFF4E0B93993EA9CE5865E +27441059E0DD004187787F0B355A4179FD9C7080B8FD8CF941CB95C135A1C58E7C279E32B787 +BD66F0206268F0CBFCBCBF15F55B547C5BF76EE7FEA93CE590E5DF5DAEC2BC17F2F757F462BF +2485FE1DA580CCB52FDE807E0090DDBFB4241E660DF414F4D78FB5937C92DEDF62160847A435 +0C9B4581201632EE59189268375FBA0E628C9F41755670432FBCC196CFEB4FE788DE26C3727B +FECE7027F461B0B4F7B0A7CA957FDE8C4EA012519CE4030C85817526CAA41095488B5BFBFB5D +CDB51896F97AED268986B789FF896AD7F7283EAD2811ABF827BB735BCC7E3971499AF33BC888 +F6A005172F1930CF3DDABD93A7FE363AB11BDE4C68230CC9931CA434F48C4C48002D602FA37B +47E88C96C74DC5AB4C892CAF5C5497EA33ED66080DC1EB135250782E44A33504A0F78AC2E06F +233E9DBED63B4BD8D5BDB57EAE44DE0F894D7E758FDC48A1F5BA5135E2A07F50A040B1DCA1E3 +76A8E78CA6234A6948A1A699EA54F0B435B15D15CBA38B9DAF7ACD30BF38647907EBF6E5287E +510BE9E19FDEE51D5942EE2E658B0812872CB6253995969F8E88976847CA95723B0157E308B6 +F14D33F588591599089DB5B4883265ADC3167BFFF6F464C810612422F83330B7A42759686EA6 +18A4D496ADA8E8C4960F5F4460924ED76E9CC9CC29243DE3912B28013B9E0B4933F8A2D2CCB5 +C2161446BA8DF32E3006F8B467B1FEB6CF72986DE83F80DB31A3EA053EDB736F8C059DC2D399 +6B434297776845E870986897E8A5F5126B5F1783618B011F86C9B59A1E02C6F5071EAE3ACF5B +23B34D33636AE0EE5B02BB754DC7664F0E0730D2785C759673DCDB94786C91BDC8057BE528B9 +9651FAACE3115D87FAB5675F72797DBB5259B390975985BBB1E975ED8524AC5C230418457AD0 +5E1B37ECF3994F2F0C4E149C5FF44BA1781386B57D90599EF16747C662F78A1658C15A2683C9 +ECD3765B2D3E2804A6BA321E4E527E456963A45D8E16E220C7E3A9584C31C4CEED895B8B837E +CD7B579EB60ABAE5E38831E41720F42B674959EEC66D3C41CFFEFE45CFB9F65976687F7F78F3 +23580E905CF5B78A79DCADA37EE6E1D3C22AA3C0EA138DBBDAD66E436FAA0F35950AB1597F36 +F0FB20D3642ECF96497725B7BCB90A2E4E1FACA7FEE1DA23FD71C28D466B9520CFA74D0073D7 +1DC382396FB2A0E896F62B90ADD44D750ED67483C69A6A9F6AB1DE7EC6505E2FD50E27DC820E +A74A24ED0D36580FFED2F94D35C0A9F09AD59AE2A3E673A25B090F3CA2A4BF99166B97BD587C +5BFA7ED3C143A701D226E36AEBD269FF525D1F21F71EA7AA1320001148381D396818E64B5C0B +716528211306FF47951C04D06CAF35C332241EE3B1BA302138D2BC8E401B5D98B92DA4CB638E +68244DF25927743DD032B613289198FABBB797C2BDD1454BA181411576DE6268804A01475646 +099FE4E867F29A3130528D88AAB4B6A20A94568BC6FDD2E22608F988DDC0239F55236CABCF1D +6E9955CD641805C45AB3D8B66C1DF4B14DFD2E2862F03F1BBDA3BA47B9C069C6992BEE581734 +993DE5B212F8837BCE083DC1D1392EE7B917D7C337833DD53BD21CDC82CC65E6755E1262D174 +8CF577F461203038868188AF04C00B4171D8BC9F51D9BB643EE1B3A98AC9C93B11F65A6068A3 +E2739A92A2DA710269B28532420BC5D5EE34473817E21801FA8528F71CE24CCF440A196B4412 +53D8CBD8C850B87E9960906C41066C820EFC71658B3A291C32F8F9CF20A3AA6524CE8560E94A +FD49A97F439393AC4B0E4421D0500BA401E782E36C98B530572ABB0C87A30643E9F2ACD7ECD5 +8888FA4A6607F4398828BB6E4BED6B79E3A5E722F9F691D987AF76B066CF9F4D2C3ED9E5EF13 +72F6B14E4DA79C1FB026093F190F1D68216E12E19DD6AAC7113286D7ACD449916807E8B53A1C +CA22E0A12D5DBD77420389405873B7E645253FD39EA39B995A03D6DFEC96B8B48C55D603CFC7 +0661C5CCB1B51EC96B3EDBE036DF3EE2D5C5133E1C34BE4F3DA05E6F66BFB4772ECA9224B96D +C1B9BEB7359D330DFEC7DF23CC93E301DA51E425D371E476FF4AC0DFD6EEBE588F9B538A4EB1 +E51FEA2BEA88CF96B0745D527EC490430D3B9972BB51A392927FA9F1CDD042E0053B5A595906 +79EA634E811DAACA6D37912BDCD8DC5FA3F7CD9ED66FC8A5B3F7AF4249C80A4CCF74A282859E +7B5AA2C4B596680602948BF93FE0AC6D58E39E84D6E32A05AD72D45D019740F3E16FAACBF598 +014DC692D9A93951745978C2CA5204146C00C9F1CBB3722F9B0984E58988598DFE56399A234B +1D43F40B76ADBD9AB561FEFFCAB828F3200DF156247941A1E1A4963917D982743EC39C45B8B3 +566816058DC6D57DE34C220920916FBAA88F4DA858B39F75246CDCE62265204E387FC29D0F2B +57F3D295E53C1DFE2A79E57F26019045EBFFE23A21516328B3D03D79DA8E4B4D9B3A81587F04 +2DCD546D66C77207C348E65352038AB8309086A2D8F3200FB92A261B8EB4E0685A821C791A59 +A7126CAFB78948D3BAA23BF1425FB5487639607627E17BD4586C793B4E79D795D17809A553D5 +D4B683642D322877C233F5213E96C21E678A62C6983EB8CD728EFE8BE1218AB96398E4DCC050 +81526B3D75588F2B2B533CBC1B27228472173B1C3F5016B69BC184E43743C2BFE6A195343930 +F43FB87404D97B7F4169D6E028B3BB1D50512FAF548FBD4A1C03EFFBF531E5C60318A62D01D7 +D76B624B04893A683AC60026CB26C1B602917FEC93D64FE2FE7A6135C199457F691E55A198E5 +79ED8B0AE2C739EEC7CA310CAADFEBDC8F35E4C30B372C421C0106DED8EE779CB6178308EDE8 +5A38DACE9DF601F4E932B84D3741ACD201F58B6495EF45E70747DDB9D3F40D12721C2D5A99CD +DBBBECA5AA4CD4C58D15141CFC6A38FB7F7F0C38E7D7C42B474FE8F168E427BC7880B49E070E +B56A696C34DE5C8C923124FE9B199FA383F1B8DABE400F9EF0D876E907F09A9F906E2AA2E6C7 +B50655815BCCB1A566F142DE3000A7C8BBD9199CA33BF93307883689E8BF881DE7968578EB0B +9FEEE5DF8E8C38A075FA9BA716AF88B76B8D4C79C2FC2DECF1BDFCBCDB727AE5256F5F425C3B +CADB2DEDB92D2F1FD0667CAA54EBDED14C214C9C518F97F57AE24EB00B95013BA7D239E9632A +81DCC2FFA6C1CAB45256B3067FA7C08A323282BAC8623690F07AB6D81FDCBFD46B2C5DFEE9B0 +9957F73CBEB3F84FC30620F69149D1DE995C8A9B4CCA8D3BC235404F504E9D0298325F4F1F37 +030836D60C2BEDA56C6EE7CA68C4D8DBDCB71BCB8A9A0D5E3B0C53099C6269EA60BD0C660408 +CBD980324E85925D3ECC134AD54029B586F9E71A0000DCE78F79CFE0CC0FE7F8F6C28B3C169F +DEAEC7E7DD6BA54E38E0469B3D3FC38E4DF82640DEFC274A16E0D270D735491549680FBCDB66 +4CCAB05CF90BEE24936A0185EA3586606647336CF7859AD95462CE2D53DDCA04E6395D104EA4 +488B3FDDA0F1DA0EF90117D4265AC31C5F7C95F9215E88497EFF4638C8769694528A6D2F553D +603F5E51CA84A6E9F9E8E3E422901F8D08EAEEC59BBB2F0833646756E3AD68F99F8E35E5A808 +5FC5615ED23044616B6925B486EF4B5482784FF6C3CD4AD59D56573E72A4B22492A1643802F4 +34B9E544D8C225D60B0D476B10801B36D5A50F88044CD29A7706015652B33DAE5634330166EE +41DB0C8BAF806DAB5C612AF35D1562C3F9C02FFBCF3D10CB7CD1B78996809F24A9C0A48B988B +4870AC89D324B847E474080DDC66920A3931A5A3CC60E9F8F156046AA2D3AEC8563282146242 +82D9A186B0AEAD3E4E2D10F7B6F2E0F651F1EA7D3FFCA24BDB900338B413AC8C700EA366AB8C +0D660ED1002AA5A0BAABA5E46C103935B917543481D7B500BAFA2CEB19190A4892F38972FD47 +472D475866CBCBEDFC023AE2C349104123CDD3E8371F24F0800226B2E3A2E93EA9CBD3EC5F55 +45BE73E7F39C4E48E2EDBCE0E411A3DB2BB7694B3483B5AB48211871B2C85CE0B2E62F7EE8A3 +B2134076D5597ACD56FB09147E0E0E5E3AD1895E82E963D8E9426C285270AE584BED38C7CEE8 +35B27F805074DD9396A174891F21D7C824E9AC1BC95FCFBCB2EEA30ABF6764E9C20FD0724D7E +DEBA89AC1B270247DF8627F197620F284D245636609FA292E8CCAD7E9934AE8D6B7C5B088D99 +C40DEAF8E02AD17887AF61196F0737B73A987F58FF853218B534B13C933B698350DBDF1CDAB6 +E4E05CA791BAD452FC19D20EF20389755F0CBE98BBA067F30563D328B7C0544743493F03D878 +38405505C9A6C15C774F1B3FE495BF45B1AA1BCCC4D017275BC7CDE510FD7EC069B390F44182 +EE6716DB89BF44C5269A3E613B0B1C01EBEC732DDFA64BFC6F052D003269C4D38A376F4AB976 +8CAF37597929DAE0EB0ABA0FAB8C420E71E87784B6DE7FB4438F030A2A3FCB5BDF885365E301 +3387BB01F1D8C20804D0BD8978283A93105EF03D2472EA8840D843E2A4C7AEAFC495BB1B840A +3F3935364FD44BBD3F5E5F8B2CD02B430E302DA1282949731FB3A5E5154F2EF09CF2D32164F2 +B16924D0F6590E68A3576085AA0F972B6CF84A434406C92A31BF9C4BC91E8581E18ADAA1E2DD +D80B722678AFF6125277AD32573CB8C8C4084B7FA62AB022406C64C95F5FA9953EB91A9E92B6 +E30697F87841401D25A240A708A4B009695A834188DF1E44D414026BC4FA9813EE34537CA803 +DAE373937039E03B452139F4E7D13618B31CC2C003B88D0D0D657C878E343F9433C6CA06A330 +8D9F6EBE5AA5362C194CA19C5DCEDF08243A432185FE1CC908CBC83314B8359ACC8ECF7DCE57 +60DF055351DCB7CF5F47D8A8CBE924772A6E70C3F4DC164946EEC3A7E0F9BD6BED2CAD96102E +2C1DAFBA227827497C2181F090AFBDB7456C72D1DCBD28A8CAC027A2E82C0A71F4E44D0F9587 +C2F88F7E0E942B3733A18C40E73819350C8C84CE3AA522242F8178FD4FAD997B240BC2819EC4 +9A42A9177556AFA02D2B39D2D90341ACFF8EA9617F1D2C61BF3F6DCF92DEF592CDE9B0B117E6 +B29178ECEFE8863CDC7EAA583D7E39459D496A9DC8D34CF79915063D33489F1D1BD3A694CBEB +D9BC2A320C9EF41E3626279AE582017B7AF1965898EF42FC6207FB7D20EE30C151DB3EE6FD88 +8FCF43ED10B2E9567389E567DA4A4AFE6A34E6DE1705F07800918649F583A53F549574F58BEA +5202324F628A4B2F2243BFA133DAE047212E5C7AE8FB18B6D0F017DB350847BFA035E532E815 +CFA2DF86882A794C029F943106625A3ED6FB7B0E772C1452E9ED600FC0FC3F7FBDFAFAF099A6 +E26D820CE635B61AE71ABBC501494592F5459A638535F496E177F9627A4BAC71FE9EC2FFD805 +D99FF60CF739A4BD1A366D6BE03F4BB4847A11BF0397F3F9D2CE5A85658788AA82677E804550 +EBFB67F866B7A3F67DFCFBA577E9FB934B080573A88E14B21A89EFD6995B1D0E5D1D61DFB35D +34A96EA76D293822EB6DE96B3A3C5F0B977489CEF1D05F46EE39688A2874CA7760D78DC13ED0 +70B44CB0DA8B50D9DC1919594DD70A4B5792B9FDA03F260EB47FF4B8D5E0FC3E616A5FD9D763 +130DA91B0181918CFC614DD5E65B00EEDFCD8731C43F117D56F1454C85D1EC1616CD3978F96A +F0416A10939A0EB124AFAF6EE52D53ECFB645F9ECBB012882ABEE024332363C32BB2E50BE0DA +389C9326E78AC8035A339B9927FF8991A077CCE8EB1C50575756BBC60109B3EE937A230C9003 +EA0B81D1D718365763FD57867C0EB91FE3CD3A2C3C9437916AB724DE7D5662E9EF1ABC425432 +BDE4AAAC213F0748E909343F04247C350F0A99919A8EF864DF597E94D40619FF045397F096C7 +62B269929C431F13BD59AEECF78A9181C81E36EBBB61F72017C7EF5BE0BD1E7BFF588BC80F77 +E9B50DC9F2FDE92273380C599E599792C5E84CE3384D7E1ABD03EB374316A483153B5FF4FA5B +DB2C8AD30FB3D7D590D87177B3F2854BCC0245B7DE021B305FB08C0DBDB6D435052753D0A64A +C0CB1CE11775544FF90AB7432C437AC469244A18173C734C6F09BC60B67FC4AEB99FEDB78541 +500CC35344A1EDF18284219DB4F0F0AB953D833CB34EFCF77ADFB0E17F87CD2E284DA72FAE6D +C1FF838452392B3E28AC5B996785733E84B678D0571DEA9659E43641775A1C7C5805C2D8F6A9 +395ED6E59BD8B43DB626921F6F4B2BAD7F3BC28E2E7BF13ACABD446103D312A80F3EB936A695 +D15628F30C199AC8C889310E3BA85A93181DA5F1B627D5BE34FDAA4478919E37559E8DACE99E +3E88ECE2C944FA2B80A765F67D30BB163551EFF689CE4EEA56E8C7E75614E58E46D96D7E68FE +52C8BB1802C23EBC38FEF83F09F98531C9EA251D860D03A5992B9316FAD00E83468EC31F7DFC +2E82A053A8587E5528C834ADBA32BF1DC9C8CE7EB3E2B27F345335136DC59724B20CD4D03D1E +F43C908876EE95CD40E20EFFF0D87D1D8841B0F78325E8505EC0D979E7C59A7AC25BAA49692F +D84AFFC210841968DEF3199009FBEFA53143E57D13F0E13A3461C35E029C7E9F9FAEA6122988 +B94CFC188F5D1A3936E65D862366A131AF87C2D8577484A07EE2AF153FB10A5336BD1E521D88 +45486843A05D150D997D4141CBF5E2E0FAFD74258D96B6117B47A3980BF6EACBB1FDB98FA888 +5EA99880E3208C2296B03D9C3F667AA940EE32DF78F703FF817B04E8B92BB94A3410F2AC794E +F3BC4A639AF79882E9E359E90428EF4F5A368DC099CC16A1C7097DB00E40B3ADD942C1D7CC1A +49F098DED6DDDACF4C392E8F915DE5BE3B5E203C6EBAE3BEFC59CC11C7037C06650684C33040 +AF6B5F786F5FAD7BA1BD197D14B00DB53F77A836EE8FC602D0FBC5A5CDB17518CB6EB2E26364 +651CB421944E6DD7CE1CD6F713B7AB81FAD6C63A62CEEB55F0BE006FC60BD8D0CA164A726A29 +C926420BE2C61DC210C9D07A14149064EB330669AA59DAD680D649457BFDBA7E11C480F96E91 +63774B263AD4F7D342861F24719A7E3193049DFA65840DD31BC86B920EA0D93C3C39DE6C802C +50167149DFE3E496B1991F44D776F7B06A2B88277E3377A4438114CB221F8802343654740D5E +802D45E98EDC18CA600C70EC0B8738E8DFB00988AF309783860FE2BD59B963B5188CE7704C28 +109207840BFC67C90612A805017D58590BE955CD9D5819BB68602C28C855030EBC9B730D6EE4 +8817E98EF61DBBB90E12D37FFD97661F22DA9A0D0D9BC92B616B5EF73DF50BD5255062B3962E +D3E045B336203AB464FB772787D19E255001CC653F78FFB216981329E761AC97232000D8CFA5 +7D56C5E0727CE7DC0312BE3D9286CEEED5B6628562D238E126A8F7E725CE058B95EB443055EA +196DA55C23B75C142ADF9FF563854750C137C01916B647A70E225C45D097DA44BD9FA3450030 +F0BAE7B6C49FEC56F1C46142A482EEA042B390A09C081E7E8BA30EACC65EBCE84354B87BE037 +1D772521117D7C50EC4F3E844C2F6F367AD82646EBBCFDBEEA2B73D45774BB8E9E448717E2F7 +A0F0E9E8C2100156E80003D38309D323D0E2D621EFD8E130ACCA127FFF21890D893D160E23CE +E565EAB67FBF8B235624847B1EDA648C32C03A82F75D373AB57B1831DB0AD8977AED7AC050A6 +3E64A775D1100583E6147D357E71495A8007D1F3BCB2DFFD02D7B7622B988F6E7DBAF56A24AA +411F12CE08B85D566C92CB247C21D24CDCCB398D438EBAA618ABD20FFABDD6F0F7D8AD11EABF +9B0879B4D6650326F36C15BA91A28DC440C34060504ED9BE3EF9BB7A6F950B43129E7764E109 +504DCDC16FAAD509D552C802CFAD438F6E2D07B8D07F2F000E7275110DC77E8533588676AF6C +64D9896EE0169005593C5313AAC85A206C5DEF50D405F2AE060AB229952CEC92C7BA18F788A5 +C39ADDC8F4F0AEAEB9153B8E29888A33246D017666D37FDB696C3209A7A31697DDF05EFFA470 +81F36B0027977D6B3761D7F604FC20B4E13FF8832D4AEE0FEB7C872B5A87EBA8BCC76233ADE3 +A14E8B192E38670A6C3CC103BBEBCCE63CC3BA7AB8870C0795150035E5D1ABC25BE4E5B41D82 +539C039B5A438EC065459E4B938628FAE5197468044BBD5164684C27F81363F6A5B389D9A931 +D89E0F2311DAA33839FCF80B924B74FBF0A54214F174146EF2E22058E9690007159E2DE0F213 +2DDFE3D8EDCE2CAA564C922B495FA13836C679A1B6D5693C5E744007C7BB8199E9ECCC2084FE +848357CE2017565B9DD4E0C2AE5420DFD7C6991BC5209D912B806BA90FF5EC918DA4BD903477 +97D0CDC78A61DE3FAA085D2AA0BDF1BF71409FE3E964A564C01AE7818549A94EA0851FB49E23 +2D313526E907B744A792DFEE6C6A42A73203B9AC1EE9EEDFE157A81C08D9C48CBADB12C158ED +3FDC45379F44B4C1006E6A90765CB35FE8DA3BACB78032A8F9A03513FF973C4A9449711605E3 +8E66F1E2B6349F163B9CBE6913723EC1F0B78B9E516D28BAF4B62100A49E58984DA6D4F18649 +77F8D59637B934161B4CD9385A5A291C0AD61D58BE08D1676BB0EA9E3DD752EF9B5294D85395 +F42E1605E3C37452B51C1C459587A59543060701C42C9F634794DA4C658339C643DD4077FBC0 +56755B1246CA2E8ADC161FA9A0D628586145863EBDF0C4AC9E1E0551BCBD484C03AC06051ADC +0FD612488318EA8FFCA5A10A23863C4C3616C69080BFDF40ED5F2AAD6AD88171F3194E625ADA +61666A3926B93B5C8CB28A4EFEA2758E2872C4533D75A0528071F33B20941CE6C8AB8FFC57B9 +87CEB0035B429C7CAD5B9AF1C845EBC3F2E1D23DCD0481E41DFC465A7B256BDBA47F605E0E8D +852D16EB8A89857D8B14B28628B2B6486E033874DB05CD76E08D35445734C4AA33F11FB0FDF7 +0F63419976DF949B5E6C9783707B521585DD2052F5116076468206E8F7D3F7B6B23CB667BD54 +439AFB67D7C5788299260111506C691B6E7D31B32706CD0D4CA79146ECD7D71294BEF456DC01 +FD73FDD624ED688CC917FAEA15DE8DFE9592F8B8C6762699BD92F1FE4A1C12C5F94E025F820B +77B8AED58F6B071EA61B84A7E3CCC480BA23BEB3072FE1FD72D3BD7DDC80B73499A73A753AF6 +B0C11D178A53F91290FD1F137A4994A6F005695946919352A675742867A721839FEF0F2E1F9C +BDDF8A7A9BB3A8342CCCFABD409F2A3F8CA72731412536BAE52675D2BD4D8465F76179C2C0E7 +E54FC5BAFE7B1A258966638F8CA156E08E6A3E80881DE5A48F2B88A7E55AA754013F48880099 +800EE212FC502C1E8CAB510487792BB86463AEF0B4E332E0D0282D0003D149F5A1946F17AB6B +E8E30C6441515F24B30B0423A4816BA64FBE94404DAF0FB1215675FFA8E6B12876479570B0E0 +E333E65C2E6405FC78A378DF96A7C2456CC93F3C6F527A5CC8E839D69BD74D6979D9F4E31E5F +E9587359F88B2053D1E6BA3009FAC2BACEC388755A7985766ECE14A92BE6D212B6D04C2F2EE4 +5CBB275D115A6FD2F13588A1AFF8BDB2F0B438123D1848F65B34D900DF8F586AABAD66294946 +AE77D33961F0C6144A2AE07F59441BA053F98BFB3F8DEE958CF58F4B14959A3840887AD6634F +42059F635AA04B8DEB7880791CF234A9526F4E8C38ED522CC55DFE5A1CB383403B95C0D2B4A3 +FCAB84E4FFCD5EE4B37A34D701BAD221F84599BBBFFEE023CCB7B3B83A4CB12AC762BAD85274 +F967A17ED5875CFF9D4F59394D19433F46AA18FBFBEA463A7EF0744B6BBE3E6E8DABB962304B +936F37EC943D6FDB7137CC163E6AB0911CD4F56AF491D23A8D9FEF33F38FD287051258AF9929 +31BCF707D436098BAB6A44FA2F7DFB2732872984498C80A5EFDAF54610780D7F3D49A10DE5A3 +ADEF6FDA84E63637E763DD4B42FC8F02BDBAE98F2C98B903A44ED8AD4EE00C0A136E414A00F3 +C9F675EEA57480AFFCBFBB82DC554322EC1B92B4E30164898FDB74729876A70346BF1EAA50FB +D9ACAC19C11A8C38CBCF98512DBDE35A42B0D25569CB6D6CAA09E953D498C6801AE7AB46A85C +CD3968B42DAB1C8077D06F3D4491D045859DC76D517C6F5681586B177B4091651A638AAFEFB0 +6BE4C199D12E17C511CEEE969C1A78E0A60A047D405CDE3FE0F1D251B412ECD8A942C3D1320C +2C0A1399AC3A6470E653ACC2539978118BB9EDB9AC008885F332F32F8DE9C7A1CA37583DCAD2 +E4F9866B782D962DA2C7E8568A22783692520697C2F14ED8837236813B0551805D243BF840C6 +5EE64DC8C501873A249CA9456EBDBEE757BE3B4FFD504F3E9A1E5D4C780B536815B438DA9746 +CFF5BBC79D5FD1F2A6B74C9C990F805A53350112DE71614E213004F0D08A16BF6EE8585E665D +5F8560BADE968C4AFF2D83593DBADF97E467ABC7F86E08D258B41FF9D420C51D50477B82CC2D +CC130F5E9E148B0463B34783F4A0B7AEADC9D3F76007077655A717B4CE1D531272049C375336 +E93373CD849DDB687BD9CBF187B23AB8B609EF04D2FDB5651F4DE2E86F7CF56F8EFF6012D584 +DC5E9DA8A142C0444E67277D82C184D64A0A37064D60C81A481706AB9978E636094397809849 +34972EDC3DAA837F87541FD2D7816DA47785F4D698F80E2B78639A737AF3752F4812E2ED6D63 +42B4CEBFF07CDE5C2DD6A5854EBFADE5D2EF838F698D2E4822B56E733F64B3E8D95817103E14 +E505D24B524A24F28DD46CD0F08171724127A7E6798149E74C539510B695CC8F49238DD0FA9F +678D49E9A4CA5783256C1AD571920D32F48BC5AF24F43B49ACCCB942788C97669EC484EC3521 +B372670818158BA5D800AAAF1918D8ED555366FCFF2B1251588D175C539731B111C876530A91 +01AF7A6588E40DEB8358D5EA7E2B91549BFB9EAE9D696EE444889BFF8D45D7C102C9C8A01457 +43EF52FBC26394ED5B7E281FC904EEC9F473009B25FD86D615CB929FF63B174E847E8D7CEB67 +3BD06BDA87BFF36CE0509621C92A0832F72BD04195FBE2123FCE79DB0AA25FCB6ED7CB52689F +A826771A9C1B16FB2B891844F2B6B243E24D98527DE8B332418BDBF555891180493205BD29E8 +5FE5329CC89ECB5F0FC595851B4D28AA0E20C6BAB917C9645A75EBDD3A357C948D0C37B6EDC8 +1E0020ED5616730AE1C4513B8FAFE23B2561AAD86EF73F76348EA5A9E5E25D561A8EE52235F0 +FDF9A3C47457E89C1C36F7FBC64189E932010D5A4A5147C6176698C2DC2260F2564ECD3902BB +DF0AD6255A86F3C2DE0AFB9CECC57EEE134F5BC8A89436F2A3B80C7C3E4415A2E0D4AB76DA13 +582FBCA43E33A33E05AFA6A046890474B3CBE0E16A331A3834428D5903043F465995A9475163 +0ADD042AF3DC3F1580E560660005BE7E906C227AFE15E567673B17793917DE63B06A1AF4B399 +632CB301A0E2011A663DBE86E9526531808F7A39056EEC2A2A8FF23DA306FCC6DB792D744336 +8FD6795CB125911C6EEB0A166D0AA6E9B18236D3BAE9AD3AAD120FECE5CE9AE54CAE0F0E65ED +43E7B63BFFFEC1590F3C87CA4BAD2746EB3FD0EDA3913578264180C78445B05CB9C246FEB06D +0F84B2C617B71B9AD4E1E2594AA2F65E64DA240D1493B93A82101EF8BBDE211A528E7EF155DF +1DC4E44EBB3D437E082286D88A91B2CFD6F9EAD3DED451FAD7F393D6D67B94C93D7ADFC697D8 +D0C0EDE7113A33998FEBCF1AA3CEC54DC63E0796DB501EB65B0E19467A0FC5542C85BA0C7879 +3A46D6A14D2E87ABBCF9845D79272CB3833051812609EF1E6979472A1745C4749A2FEBA16256 +58236C48A5AE1ABCC3941F5BA2CB7DC183ACE9C076C80074DF8479279D3FCDFFF469AF5151DF +14A7BB05DAC1831E36CE5CDF0A8E277893233C1AAB0AE11E40E5E4E7EB4AB9094EFF9BC156BA +E2C033D6046D7AD8A35A237039DB7FF76F9D4C982CB252A8CCBC7DA2E59EF963E85983C96B13 +BB10712CD75DA7E035F5119E9526527AFFE6ECF00A92954B318B41F8AF15619DD478F828BC2A +179C3F6B63AC6A2D3779C02BB70E84F20CEB490096F5E2B37875A58C9963B7B3C83035FD8F68 +B9CA99CB705AB8FDA109D85E56FF79ECED2FB0F1162F8F850AD30FA9A47C22B65764594A3470 +B3CD1CFF953312ECEEF927B8E0F1F98429C1757888ECCEEB5C225055654E45DE3C9DF0BBB7E8 +B3F16F8FEDF2D29C16652F293BF2E4F524C0804BE5F204844EE53717EBCD56237978BB6A04CB +683A724377D77B364C2C4EDE6CDB19E3FDA15FC2B0160B470CCCC6D762EF5BBE366A014E9EA5 +982C5C4D05D9FC8120C77D31FEDF156159F0E5B31ADC2CD40CE244EE14DCE0B189F635F07375 +249DB7965E942148CB9B4A08F4BA36665A80726EC55E07E835F55B33D7E96E4BE6F450A2246A +352263D06D7D5298F50CC6623248004D61250B7E4A4D69090FD80F4FEEBD4499EB4914280D4D +FA6558BE5C5F15B430753B4375F07AE6AAA2881149A932D9D9F83C32868356435ACA7A88FB90 +BB097D1336D6C825BEEBB14F8E230834DC73972043975D3914E64FCC84145595D5C92E0A975E +443C38324870C6D2498140FD49C57301A1F9DFC0E05ABD7227FB8E0CFC16FDDE247B7CF81C75 +F85E6A2B43124AFF858C502A9303C857C0BB0EAED5F0BE658D74C27129EC3B54E7DDC90250D3 +8C812BDD2116B1D71ACD353ECDB12F9B3639584FF464944003CB5E4DA941C39E43ED93226643 +99B9B67639D67B15D5EF816D00D95F43369708D918E6B05BD3C02C72422727049D3773F0EF07 +14604EEEDDFD1617B69B0F5C7FE7267B1AC15F531CEFBF8DDACCE5249CDCF45AE7092F3F49C6 +B6ED7EC2FAE77A581A4E4284305769F1F93BA368F7222071230365399DFB0280130298FD0DCD +DE447031A1F5595BC4A0D20D21C106E88884144AEF8A38EFD3F082894B3F08DCDFD1CF39E6AC +5551906ABE15DB2DE0B0993F866B34AAB6CB684487898742C271223C6BF3B81C260E96422DFD +8E43C08239F1652708C4442809B872EB8D4CB6070B737F08727DF431FFF403B7CA6A7EEFEFD5 +657AE525643F78D02419616A635D765680994D3F238C50397190177070AA2040AF4AEEFB8B77 +979C60037186AC242AF8A3093735B5E20AED60803AEBDC2FE7A08D446D15F5454C0D7441C2BF +C71A0D1160BBEDF1507BB785C428F938E33E176BF31F9BC774C850B9D58BB5F052F89D01DB22 +D1EFCD0D96BA118B1170A6D97EA85FBA18614F43ABD7C3095A0AEE5D6DEDC89FDBC75F5741B0 +385342DA5CE73CBB8B39F125496ED94634A1AECD5F1C94C460AE197F581083D6734FCCA690B6 +8DF3A1F9539991348E3DBFC06FD6121216CF09E2D983028F0D5C7AF4BFF97200EA4E48F612F0 +6529ADF6FB326BA0D4D9894BCDC560A9E6B3EF5A39D27D079317CD83C07CD8C3C276D4AE61DA +F6B230B92CB205000F4214DC667BF55D038206465B73C6B922807A070C9DF77F1D4DD892A03E +DD9B02C7ECB4E3231EC19F0108AAA69466921643CB2A892EAFFCD8F9014A54C72F4018A03F32 +704744E7D54EBD7717AA7797EEE17199F739B86CDC5A551205662C6ED80D366D5D302136417C +F4F38CE080A7A49CE774AB871C254B8E7CD7C9FF344B25E8D9EEFFA1FDE1093A11B54814571D +D7F4BCBB073398870A357BB0BAA4712E09E136AF057D20F87A3EB9A44ABD541F354662AA3558 +553F505DA49B32D6B0FE30E83AB38F8D62B5EA77DEE1C6889BA728A0C3B079C135EF18BE3CFD +49A49F7175956DFF0FD564E0110663DDA448241ECA5BCB3E2B5E6C1A4AF8654EBA9C5E293BED +6BD28C269EACFE6A2AAC89134458AA0E89BA94AE10DC2B8479D7BD00BD79CCEBFE0B349DF2B9 +31673B3FFABDD21B033EAB8C90B4927E7C6118FF6407E7811BC9B455020953EDAAFAF7BDBC69 +678D6FF1F5952004FC883D9A2834C0D2A02EA4217EEC4903C28B007F94B216CA9913EC261FBB +DFC016949535A90295883FED628E552297DD87F223D39456549A6521D60B12CBC3503E280DF0 +9CD2C188FAC93431DA3D298A897064858420AB2CF73E46E16965582E92089D7CF404004D29EB +CA975CD594E3C96EF273EFDE6936A21C78A3A56B7BE1F8B654F0E8BD99A76EDC01B472D90481 +8140379A7A294E25B95A1F7AC06ECBA0C383E86ACB1710A7B06759842DC6748915856FE50D44 +9219340B0038531047EA591559F49CB663C7D14FDF3A78C285102A0A587E8ABB82DF86C1FCA2 +78640AF3D9AE9F3852D0CF650FC7E6006D85D7C1B68EBF78218688D427E90CEC9D58D0A67331 +5376BC722A1BF2992CF00786F0B810C7A9948FE9316535C248C4DD34EC3BA3E311DB1AB6F9DE +7C068A49EF7F805A5BC7D95AA8946A2B93E7A393C34798775B6744A8E49578A770F5EF438E15 +E7F8189197AEC20FD2988CA6F978C9E08E9C39064565B8795A4CFB96CBCE7630BE7AAB7E5E47 +4B4F44F507919BD340812610FC8FE8E5863000210E690417897E4FB07ECE69B6C0FE4D09D5E9 +FAC83C5B3185E749DB3D9AB770589743E5DB19AADE21826BB2E31FF0F3F5CADE31E675010078 +EAE72B0E5322230E934AD1318B63954574A252037BCC8540CF7050544BB773EBC6A9253C54CB +44A0D4CC2D1B0C98F2B485F0B207297481E1CBC9AB1B14C4B2C40B0C6F816BC791417A855EFC +F25322FD7F1C1A207E37B292CA0AF4C49C0F589780E0B054FA3585954AEFFA045FF9F8C0AE8C +7BD9A67090E89D19E29CB28B46937F24236A7D256AD3579AF6F2B9337FD9A39B9A96FD39513E +1F8F032AD260EE2417094ECB693C6A28B4ACD00154B583C23351341C9E44A9EEEDC9F36E7DCD +D77FDCDEC946D0C096EAC4DD00C6E487CB0FF4AA361EA97ED0BB411A4662DE71F9B8702F1BCD +56AF6AB047C91E8ADD27D88C1BD64FB525A47C46856B7CCAE816ADFAE843F23C6E4AC048FFC0 +5F855932841F8693BC20846AB1C8B20D7C12C95CB8C7B282286D51DD8BA58267CB2E849620C9 +528622CA5400AE50306B64CF2DF37F05ACBCAB2E6C2D6A6A28802E0D2619B8C1EC00A3F6794A +BDDB6A4154C2565E05BB7605298B8B20F483376308865C1A6AF573CD54C49F5F5DDDD57BCE99 +D2F3F05D0DD37C6EC560C344379CC682F38E7E3AB8EDD7AFD18F38E2900A2E3819714E4EE14E +C14C2E9ECE6E143118A7D5822A4B94F6113E6B4BE0B21FDC5998C6B4B235B2273C79EDA76847 +83B3CB10B6B9868875123E4FB1474ADF7264CE9C2EC4026D32EDE410B3372F534766B5C44C4E +73E316783C6A80E83B67BD976718DCA8D6C1D84793E4CA69FDF3046AE1F4C101A674CA867765 +FD61AB199137D3315D5B1048ACC8FF5110A8A1BC4BEEC335A5C73BDCEABD2A2404591DAF57D2 +392A56CCF13265EC5FB2F0A2375F78F186F061EF068F1448FC5F7CCAC545D35F4F97FCF8FD08 +AD0F7385F233098403CC88A0E42BF70ADC14B7731F55546570D5352AAB6A5A36534524087776 +BE9452928F5E8697D1F62FD9ABCED049181DEDFF6248C51DA367EE45A1DADB3AE432EA217623 +47084696BA79E1B6F42E6CA01E9DCCE4FEB1BF6FEB468505DBB043441396E267DA4FEF8340A0 +53CEA45438C401117270D30C59523BF3AE8706AA7BF10DB067659D736DDEA45CD81314A7743F +EF6235F8101D7F138745260C6A9654067AB7F365BCCAC5A11AE174EBE2C60BE676BA82FE7506 +290F3E126DB3F54F71BFF1648646C6F7205CFBAE3D26C7306A4C27CCEA15ABFD53C84231489E +1073C549B18F862F4373B6C6A8FDB0242E689B448CDAB04A199E552A4CA8B2B61DC5F5B02C33 +0FCC582750119B1BDF702F066FA37BC8067DBB9073963F76DFBD6E6307300A7B6CE8A4FB8C41 +872FB111A11E46EA28C64626AA9F648B08762B4F902D1AA68AAE39647137F279C5F7A2A0BA50 +C2FFDD1B1228AFC2ED5927B89FAD2A00A0F8E86E378899AD700C1629CD41D1546FEF36DB15B7 +F72FAFEBDAD736F611C4413CA25C3872F545A347366D39F0C519DD9EDA76E0C9E6F7A401CE13 +78FC790A232DDE499A5993976D53BE9C51E934EB98B2C168AF0675E34548E9BA6C1F95B9FC8F +3E3860297EC0ACC185CFB83D5D2B5927DFF7BF5ED23B19C32BC27DE98D52FE036AF54B01538E +0E0F9102C0643BE5806E1566187B43FF0508369A1063C486F304F72DD02D415216F81B0CE343 +3F6816D779454C922040FB78020F37A27D92B5CDABD19730866A27C9B50478B5333073DE1DE7 +F6C5394D57064AF101BFB81011F44E4113E500453B4148AF9A0C7C924B7BABD5508D9DCA234A +CBCF755A8CF7FD5025B229B1BC066182C3B021D1E18C5C2CB8EAD77C75E89B1445F3E3D34F81 +F3E1BEA24811B33793B772A09638482C810F63B9FD994A687AAFB5B48382DF22150864EBED7B +4527368CAF42F324BB14603AB2378D6D5A6E1E0ACC6A8DB46793E04BFCB160C4F5C7A2201C8C +A7357FDE0B507992778BF9FE585E80C87745C3FFAC80A405ED54A7D18EC6F5A2F04C947E52ED +67C3F564C6270F660E9437835F580A4BBE440839A58398AAD8CBFA09F61D4BACDD4BB8A6D1F9 +95380CF19CC39CDE54AD4884015197D24A2BA517672606E97459287F5A437C071EC5FAB5CAEB +D9808E258358E1063A4A36CEF56E8D6520552942078EBC1537F3FFA29D3D8A0FF07FB2CE8146 +2375AE352F78DD20329E5552D680BB0BEE7F9503EE208E1DD48A1400A036EDD09236F90BDE0A +E2C1DCE2D4650FB05B282D7438D80A9462B0E06E03D40A7098FB0CE8AF940B2CF1B210329990 +3E4E80252A3488533D2C369E44C97B390BC7E8CFE23A0B9A4E6A155B08AC459E593512D9FAD9 +6EE7D32CDB64AFA27FC427CE1153F2EAB49B14B5A226478E515AC879CF1495AC7329B02CCA3C +0617BEB93956142B598B8A6BCB0D484301661D81F9A853F288BAE9EE98E0423EF7A29441D052 +91BE803BBB70341925EE9B228015338F8D406760C5D1C0C5571640C5A20618CD1A3F265CAE9E +5F3BFC5AFCFEE9BD868D54AA845E9B538E73C2EBFEFB63746C98C422CA343D8A73BF2B8DA0E8 +8CD5FDAE16D6CC301F3904FA4FEDE6BE2B37DC6608DB326C01B5878FE24D1642E82A4D2A09A4 +97004DBC7D3CABFC81BE3E03DEFA2D974911C1DC05C5E47F24D2A170561CC3A2E2333EC6C3DD +E8A211B928F72553891DA268744C72AF6C14A8E093A01E7867C09A7803A7601F426E62B70A43 +43A8423EE5039C786BD5CC9105B959DE6DA39D129A14560504F3B8954F66337FFE4B9ECC8057 +A46222B5CA00C9CADDACCE86D726CDD32F940FBD1E19B5C738F9B19F2AB1B7B9E47E83A27F13 +6E2A5A54C22BC8E600656AD499EB1F81985837B060408CD28AE4827D7F3A3B7CE02C891290FE +12FC5B8948910B74FF36D60EA4E474B07751A97F1DC796B4B7AE5795E48E5FE1B89561C53580 +B7EBFC7FAD6B3F4A072D62B0D311967547C45360E268239E165D03E1857857BF6619FADFF828 +D99BBD0F22332E8DCB5FCAEAF80EC433A90B124951528E0F064949A687D2D10B026440C5C895 +97D5D3BC55FED5BCEB7FA14FC4CD6B398A3EE5A4122B6D386A71D6362BFEB4F9D5FEE8B1C639 +CE332DF25D5074AB0E6E2CAD824D920378153A2B5AEEFF80AD01058C2D28069F45AE06FDD46D +CB5F172BA5155089DD1084ED4782588976C3B3BD70952F9FAA148B17015C2281D9E84A030E3D +A6C163F871F255A5A232680815FE61D7AA0BAE319CA5E7B5376583D56BB774BBC12CBAA63EAD +8751058F2518DF20D2C7E9E10D860923BDB4D35E040E8EA9D08C1C0971DE3FF74FF890960014 +969BD78FD5A8BDECECFB12F0EE33D2F6E4DB4EAFF99B6ECB750428214EA7B5C2DA1FB5B7DBE4 +E23D0C7B05349D732734A8D20F7F1FC183462400A23AF0E81D36FFD34816BC6DC8E64D78FD72 +48BCAED1088693AD0B0747543B3F0C277E523081FA9CED02E69B9F972F01A46811B7FBDF6133 +A60D2CC1A3F15C17C82D1C01B26DF7E47B93D03EC66CCAE58611BDD8071AA32C5E43CF2E15E4 +DBCC35B4F034CD27708EA3CAA940E6BC82E36818245C113F37B95D3328932E425BDA98139DC7 +15445893B5BB5744B6CCCFF6F4BEE7956B4E979012ADB3C3E3D0EDA59474820E52DBD53A1A9E +98369765C9AD1EFE0466E06F07DB539A5D39F40A872A3ED0C8FC6E3452590A1E40AA218616E7 +639B92013AEC9EE2CFAD5144C5C20656D455D76E01E5824047C80FF02A70A06A4A9A7A6D73C5 +1AABFD59DD1FCAD1DABB6F4627AA49EFAC964875C059130C248827B8DB63A7235A4A12CF47A7 +0CF450AFF134976D131F7C2C42FD7FB86459BD0FEC300E18CBFDE3D080E599D31730D275DF11 +0F6448AF552D248FE1655C0F556006D57AF6427E603F427E9937D34CCA0AE30202A6F1BDCD4D +F8AD86F1C0EABD5A3F1F54A461F41A2194463BBDC241B105445D0714A93094C0AF6A8872F6B7 +BAEFCE3BED1FA622E352A3CBE8E43607435C5CB4C77341C7424F30C408FA3C940AE3020314F2 +788BAF84A7125020FEC236D91AC30EECCFC7E60E8E0240F9BBEAC64E27155FCAA8366DB0652B +0445A885F8E046CDF96BE8F727DE8EFE6F69E654B1884DEBC39C2CF7C8B0252DE7E1B2F65445 +96E1AFAA06176AAEF31CA236B8037DD3DD12EBAB7DE0983DA363F0273A31043DD1B0930FEBDD +B868BCB7722D36560C33830F4C3413B8F2DAAB8A5D9985CDBCEB9B11AB125FFD6EC6AC7C014A +1061DF96883FBE97A0B4A2CC7DBD385CEF74CAB0E8309AA8A6CD7906D967179B771266EAE91C +F1CD39BAC04DC9711D3A9CAD9726E0C79A95B7465B53AF4BA94A91789ED134A995948F716C9F +052D6C66D3FA0C793C1E45C04E9C61E60AD688D6A41708B654FE6B15CA510951052A749791F8 +33C274B1445A99B9CED0BB24A0570B8479CA8AC1418ABF21ED95B0FFF8D6CC5E174CD2FD443C +8A4F97E66ACB4812A9358CAC5D780D0134455B4F329F8537CBF82B83473D703663287D3FAAD0 +09A8CCE30267F41F6833096C4CD8373D2B8056A4823976F78C88B1E61E7AAABE7A583E64E9E9 +20B5637313883852AA87677FACFF00C5B8F951D35E741D363330F1C7862A4436A3B68EBC808C +A04D058A645731B19C5BB2167E415C21463CDEC551DC077CD566ED8242129DD7BD62CA135FD5 +97E53C276F95D72BDFCE533E0658C73192E7D8FDF71869A53BA6E4F52092ECC91267CAB1E913 +7700FF8DE5A98BED0924BE6522A578EC65F9BF01308F8B5B063E8EFFFC306C4ACFDF0A6E2B5E +125CB7803F6ECB73F62B0159B76FB0EDD9D190646872E5AE454AE8ED5F5AD9B15295A442A2A8 +3AE651D5743877C5E934D39A7B5FC5F1741A55952F5E455AE99D695C287BE9CD8658D9FD7066 +0BFF9575995A996D65DBBDC0B98FA69969518AC0CA05E9A1500F7D618300FBDB7C7024CD4436 +08CB558F0EDD0D5DF0AD353282C87D3AABDDEF93A1FFA483127195B28BD14BBD1330428399DA +884F3A19EE90AE7F20DEDF900FB084B5F54F0AA804EB3F1398F443FD1F803B8DAF2D6FDE30FA +17EDC57D407C4416C91EF4C01AB3BBBD18E17A49F57AEE47F7E33E72764454B7204C1215D061 +18B97F9BF73F816C374BC90B24A8232E51F5745D3E6C47AD801E1C3D0DFA60D4F1FDCE9705B4 +B238DC4E8E29EDCBDAC658D15155AF9A186106809D9F51F5C225B9F533344E49A1EC56C31AF6 +33D2EA8BB556C81210CB4E1950D12FFC1B8721B3C078D576C5B88CC68AA54289EF64607E2C0B +2A08EB3B6DC526E19951856918D2215829C347D639124372C2BCBFE01B7674D4B5AD6AEEDB94 +240D636D51BCB2B5C0710582B47ED1EAB86EB5E5019F0C51C36F045E21B52B3DE1A41C83E57D +A576EC7E960EB86CE805F93289479192D5AFAD7113C824A777E7EB6D47ADDA717888FE7EFE48 +A3EA8EF4B9E31DD921DC546B7800A69A3A862A681687946B96476C13CF3519C23757CB1F691C +D5C321150C17487F0402A166727449630B65DC14425841A8E030A0240285FBFBB4A22555ACE4 +07D080C75C8504269919ED1082C5D8DC83CEC440282C166642CB8C5CEB083DAF81DCB94ECFF2 +363C16CB8CA08B477FFF938787D40FBF4EF79BCD6D0956B16A9BC459103A563CA3D8ABD21BED +FF2EEFC1E7C795D0B3CAF7FB2FFC27A7EEAC33A899EAAE1E50A08B07A6036CB61E2D7A949FB5 +6F66F143026104CB150C793A05AFBA5D81DBFD97877B0BE3F6134AADF785F79B3248405FB0F0 +0D91EE189A04B7E5C303C858E71B76A520F8521EDF9DF906BCD64E5D956F84AF0EF0D2271E26 +4D21B68B80A6894F24969A1B083A60027782348A80B0A4F1CDD557B561E6B1D16A4D319F3566 +517B68F4D798BF84424799BEDB749420CF4262290B2650CF9FB712E506753B97399C7B86E478 +867E2D2F3558C3C882CF58DE0BB7A26FD1D6783C6089D6103A8EB59D47698AA64F88F55EF77B +7BA2E63538FD38D144654CA82DA2D69A62BF324E858780BAD59BFD58983D4193C08CEAD732A3 +485FA64CEB2AD7AC17C20B9D94AFAD9A7FF11EC5FB571407FEB7E3C0AA7E8AF9DE5EBC1C51C6 +67046FF334CC06629BD8259C8E32489E235DB29B7729B1D7388DB811779D9EC65D14D9AAF0D5 +A86FC52521286CA31DB67E54A8CA3F71F315C18125DB55838843F7A740D09CBA8AE0E08AEABA +FF34470B55741EE1F545B01AC8EE6DFD023BFD8AC75B39F239223ABCEFD105123ECCE772C319 +E8CCB077D3CC661ACCB0B5E66D3578EE5CB1BE74CE9522C08ABFA1BEDBD4FB802615BF2DD8EC +9007701E66E8F24513EAABDE368B438299EB4FC4BFBE8D497C03EC52C994E347FDEBB0115B66 +539C2A9289A93744BC7D8FCAEABA427AB414AEA8EDC1A8A538FA8AA131CCB345C880972E67A7 +DE44912A4ABB97313891B31AD758FC86F642E2F9593AAF6E9D487E77205198413B9025998AD1 +3FBC6E58AF101A0AD6432027B138AA2479E3A7DE92462D2F42E455DE84A4DE38322C5C22882B +D2EA6629A89BFC8BC321EC536B860C3945C8104F74E6D61C49A6512A493441EBDEF726722D2E +C7A1A8F848D0D7E83861D78318A92B0BDC9BA2463CD0239D734158EDBEDBDEA06CAD18821D8C +D1E82B5354FB12AF65DE573DBF585E4F7E6073942F1D2A49AEE5151D61B04FAF210F17AE93AF +512F34079FA171898175DFDFD6D92A705E76E962F9BAE02D750F6568A8555230D3078BDDAA72 +9B59EED7220D2C9B7DE6C044B9BB1849BAE2E6649C2C8779E6FF88BD1D3FBAD7C9DB7BDA4B48 +0A132C4BA42694729536B9C7A67D389D3ED7FFF20FC562E72D4DF29BEEAE2995ED567B1137CC +03240209227AF9107A4DE65110A68C145171C975B72793F877A5607009ACD15A5A3A47EEB544 +E3F83577CAC63824732FDA1A1BD801EFAB50C2BB27952B821D554564D0080E668D4BB2054B93 +57841E81F6A1C98343C1DD241FC5AD2484C683F5FAD0FE4EB6904DD45BABBEBB3D0B5EFCFC69 +E8D2F1A64EE7CA368E00C27B20346C84DE69DB6683CEAF3CCA94CEA24F68E16F4287DD7398A1 +FF2BCA65B2A42AE0416CEBE6F05F9326F4B70545D171366EBF1D3269A1CE326E839FF5FE5F02 +BC2EA6E9F5ECF1457CDAD608850895A68211A9D919F736979DDD115B753D6F94C1E95E9BA721 +34CCC83BBA31BC050C7DC4369C49E8C8DD960F728E525FF4179ABD6D74CA5A2F40BCF44EDC5C +D4FB130EC4D2B4457C41F2A02A1B0955BCCCC2879A4B9B65A746EE5EE89FCC1F178CB551C67D +F3DAF8AEAF6CCDC540103BE0507ECF9C3409361B1746F411E9C397C2D70F532ED8ED85992C27 +8AAF727D10AFAB2DA3CFE4ABBAB51815371C1CCF050B7158F1997C1BBD206D3D75A808C1BE5F +312628EEEE85DE490BA6BCD584F7378BA41C97EE3401AF2127F777BA5A268C91D3FE0A3A5A86 +EEF8739222EF5352981FD5D4C9A1ED57E3CFC629A68568A15CA9F0D6292655A8C0F0902AF5B7 +54CD2ED946CBD17F21E276A204AD4945804FA47899607700B19E0CB3402867E073072D74343E +D3ECB047A8E309BFDCB96A0E06F4448C344D3A3E1BAD38A2CD5F823CE8820771888C2A5D3B25 +9CA4B40C4D4B2AAA29858BC024101C052EB02A4C44D5A374A2DD250FBD15144020E1268E5906 +BC0BDA6EC90523EC64A057D4B8E0A845BC9233A1A95291F8194D3F77FA0244ED8BFCE818F418 +020738ADCC0CB89D7D3A1C167236EE59278B74B36096E9D4C179BF80F75CD0D0601A5121E704 +9EED896D575C3E24180E2C9B1B94DF6E7C4E7FE95DDC9DF05B0718E2FFA8153D81FBD1AF88BF +14CB44C2F3C4AA2D2C7E5A2B170B9841196DD5C05FFC6B5AF61A6FF970B2D351B83A4082D696 +F45F15B91BEB5C9C593F2F35CCBF7ED4E531308DDF2A4336E4327C36837F4A9E816FA367E38C +A9D935B3CDBBAB7A6299638AB9BC5EFDEF4D9F635E4B139719A785CAFB4B0F0200B979AA9250 +9204FE5C54AAE4745584214986A4FD407E99FE8420C2EF6656FEDB6E1ABAA9BC87790DCF16AF +A6A4E2D14CFA3E48C1FF22828A02D0D740C4D4C37741C5CC6872EE33DD7171BC54351B5B4E66 +D40E97FD1CE4F79DC179ACC80FB2D3CD1B7304404D9CF717FAA635DAE480275A350F36DB4D9D +75F590DBBF385593EF53EA3C7DDE37D07ADF1C04230B1D09A00576766E02AE65EFF0E1FE32DF +F0928A5DFD7813A9F0D275BD9B11BC04DC1B1C04A7073851B9A8ACCF1598050A0A7BD9ED36A7 +8171D3FC0F46F29B01F74F95B31857D9232BBD5383F3DDED306FD24D088EBE65DC1628C98E46 +1C59F0AB4C31F543F61CBECFCAAC4EADA4F40096D06CDE98CD03128109796CD6A470D2811E00 +46F3D9B0837940FF7E8A61E6071378D741F08B7EEECE23A605F1AFA343ECDF4BB0CE8D791596 +022B5E2215254903D1D291C928544811A0333E6B6F9D5BE369DC096F33F794B041275D39E801 +E54283A1BC21E285144FDC3F0D8CA11600F9778F9BEA3CBFA93D8DF28E42DC1B37EE6B0A0573 +C44303D7B946AD73C235C2D06C45D23FFC856306C7329B958D94D5C90BF5BDC895FC9BFA245A +A95ABB4D4D44540D23BC5E32B3E6D65D5AC00454706CEA79A03AB1A0AC5EDDEC67403F3C2015 +67BB6E4092A3ADAEF1F1413E67D9E23D7650AEB1B9B138CA3F6539BA5F398C5DE7C915A5ECF1 +F145F0C15394DAB533322DDCF1C1CA704D79516AA7E545E12DD7FA71AA170AD307DD1E59EE6F +2800E8DE872DBEAAB6BC85FEED80BF8D3056C6FCC42F18AF602D6279269190A0A3B19092D450 +F40A95ED1FBDAB05768D8B9DE79BA6E7674A81B9D5ADBC706ED9430D003DF7872CC478E8124F +C1AB7C26BDF6B3F8CF3CA887B9A6F53E3A5843B37C39C4D0B652652D8920F3364F6D5DC775B0 +4BC3E334B5A304AC10E27C97422C20DB856056650CF291637FEA21ACB71FB232D946B137094A +ED9D86AA603E65FA6985BFFBB595EE95F8BE9CB9FB5872A40FE825AEF482836E9A8CAB0F03F5 +68AEDE5C330E4954EEC05E3560A6BA0754395AF04A736031D547BFD796C31CFF58B1E7B7FC53 +81EB1F81BB19A93910B4AFE17AB7501E8DADF8ABF46377139A8FDBA8D32EDDDEC2A6306B8836 +D5D2D0F2FDD3B20DA6265D99BE47D50D4CAA641D3DEE084A4B117A591C133A45EF562424D92E +602D4EFBD34B9B8A95224F091B4E6C62542014B2288C704865293F53978A1759DDEC83C3E19E +8D6A4A4961210CF9A955A71FAC3EA3479298487AE22D988422E65DA8DC6F6058D3ABAD27CD22 +C7539D23506ECB9D9E7C13EAAEF543BEF48076422529347F435EA5369C437C93546C0CD350AD +AB103296CDA4E31C72C9B1ECF5A1038F7F47F4D3140CA431E3F396988E0B21D7B1510969D7A6 +B9E3A838DF0A0541AF114EB9A080F6AB073837EDC0245F7C708F7410C1A4EDF4886B953B781E +D20775693D1CBB0703D0DE9C1BE66A0593BC4807B2145903FFE1AF359EAD4F418E34BB8E0367 +74E54EA675231B3D0ED1538A4721A299DCEBE7FF28787581F82560370C8E2DD9162AD0E64943 +19B1781A3A7DCF835EF3BD6AE8850BA37E6D35EDEF4839519D0DCFC35BFB4C43E8ABBBC2ECED +2A24582B37962580A3BB8E72F689D5F205FC49FB6FCDA1A34B67B8D759EEAC831F3BAB44362F +017F0150B21128326A9EB52F2121535671831284415BCF3B8E403258FF38B70A78B653E45E22 +7D4338D814D1C8F9CFAF1F6D218BEF0BE5164CCA482B7AF7521BB6B6D4BBA67C4277B7B4A43C +0BECD84E3A1031983DF42B983D990C2FDAEE52B5D9EA9CAADDBE83228F181433B1FCBF1C6243 +7A5C3E9A8C98C7A2359E887071E964613EE2CFE9D14FAD5CB889A14CAB57F2341F7877FFFC4F +A51C762FD8434F69D56749E906F1D7B91901057040E082D26317FD1C9022B9E4C8D082671126 +3F6C3488C8AD37E49E893762563341FAF0BC932ED8458A995DBB0CF8610A76C4D6AAD4D42E36 +62AF686E13583AB10E4CEB1210C5E9A343CC1C49E5D01B95E72CBAD5D6A6D9871F3EFE5F70EC +13E2E7C0F8273A0CF21D2620DE6AA073CCBFBB85185C58A39916712C717645165A30790D74F6 +AFF545202F48B2D230B993BB7CA0C2A72FF91F6F767AF8FA2606B449F12D963623C9C49469DC +5F3D30FA3336CD822D90D30A908DB68F31B181184729337F03BCBCD562759C920C960F14EE66 +AE8B97D5D17258F5BCAEBB703B3CC6A2BD637C7C9C8330C25943D702AEBF045E41F9931D7032 +8CA94F24B89EBBDF535F029F75317EADBBC2F730A70AEF4553310F2A0F59EB5A8A8656460300 +BD94035BC3E464FCEBBDAEF13B4089490000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 + +cleartomark +{restore}if + + +%%EndFont +%%BeginFont: CMBX8 +%!PS-AdobeFont-1.0: CMBX8 003.002 +%%Title: CMBX8 +%Version: 003.002 +%%CreationDate: Mon Jul 13 16:17:00 2009 +%%Creator: David M. Jones +%Copyright: Copyright (c) 1997, 2009 American Mathematical Society +%Copyright: (), with Reserved Font Name CMBX8. +% This Font Software is licensed under the SIL Open Font License, Version 1.1. +% This license is in the accompanying file OFL.txt, and is also +% available with a FAQ at: http://scripts.sil.org/OFL. +%%EndComments + +FontDirectory/CMBX8 known{/CMBX8 findfont dup/UniqueID known{dup +/UniqueID get 5000766 eq exch/FontType get 1 eq and}{pop false}ifelse +{save true}{false}ifelse}{false}ifelse +11 dict begin +/FontType 1 def +/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def +/FontName /CMBX8 def +/FontBBox {-59 -250 1235 750 }readonly def +/UniqueID 5000766 def +/PaintType 0 def +/FontInfo 9 dict dup begin + /version (003.002) readonly def + /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMBX8.) readonly def + /FullName (CMBX8) readonly def + /FamilyName (Computer Modern) readonly def + /Weight (Bold) readonly def + /ItalicAngle 0 def + /isFixedPitch false def + /UnderlinePosition -100 def + /UnderlineThickness 50 def +end readonly def +/Encoding 256 array + 0 1 255 { 1 index exch /.notdef put} for +dup 0 /Gamma put +dup 1 /Delta put +dup 2 /Theta put +dup 3 /Lambda put +dup 4 /Xi put +dup 5 /Pi put +dup 6 /Sigma put +dup 7 /Upsilon put +dup 8 /Phi put +dup 9 /Psi put +dup 10 /Omega put +dup 11 /ff put +dup 12 /fi put +dup 13 /fl put +dup 14 /ffi put +dup 15 /ffl put +dup 16 /dotlessi put +dup 17 /dotlessj put +dup 18 /grave put +dup 19 /acute put +dup 20 /caron put +dup 21 /breve put +dup 22 /macron put +dup 23 /ring put +dup 24 /cedilla put +dup 25 /germandbls put +dup 26 /ae put +dup 27 /oe put +dup 28 /oslash put +dup 29 /AE put +dup 30 /OE put +dup 31 /Oslash put +dup 32 /suppress put +dup 33 /exclam put +dup 34 /quotedblright put +dup 35 /numbersign put +dup 36 /dollar put +dup 37 /percent put +dup 38 /ampersand put +dup 39 /quoteright put +dup 40 /parenleft put +dup 41 /parenright put +dup 42 /asterisk put +dup 43 /plus put +dup 44 /comma put +dup 45 /hyphen put +dup 46 /period put +dup 47 /slash put +dup 48 /zero put +dup 49 /one put +dup 50 /two put +dup 51 /three put +dup 52 /four put +dup 53 /five put +dup 54 /six put +dup 55 /seven put +dup 56 /eight put +dup 57 /nine put +dup 58 /colon put +dup 59 /semicolon put +dup 60 /exclamdown put +dup 61 /equal put +dup 62 /questiondown put +dup 63 /question put +dup 64 /at put +dup 65 /A put +dup 66 /B put +dup 67 /C put +dup 68 /D put +dup 69 /E put +dup 70 /F put +dup 71 /G put +dup 72 /H put +dup 73 /I put +dup 74 /J put +dup 75 /K put +dup 76 /L put +dup 77 /M put +dup 78 /N put +dup 79 /O put +dup 80 /P put +dup 81 /Q put +dup 82 /R put +dup 83 /S put +dup 84 /T put +dup 85 /U put +dup 86 /V put +dup 87 /W put +dup 88 /X put +dup 89 /Y put +dup 90 /Z put +dup 91 /bracketleft put +dup 92 /quotedblleft put +dup 93 /bracketright put +dup 94 /circumflex put +dup 95 /dotaccent put +dup 96 /quoteleft put +dup 97 /a put +dup 98 /b put +dup 99 /c put +dup 100 /d put +dup 101 /e put +dup 102 /f put +dup 103 /g put +dup 104 /h put +dup 105 /i put +dup 106 /j put +dup 107 /k put +dup 108 /l put +dup 109 /m put +dup 110 /n put +dup 111 /o put +dup 112 /p put +dup 113 /q put +dup 114 /r put +dup 115 /s put +dup 116 /t put +dup 117 /u put +dup 118 /v put +dup 119 /w put +dup 120 /x put +dup 121 /y put +dup 122 /z put +dup 123 /endash put +dup 124 /emdash put +dup 125 /hungarumlaut put +dup 126 /tilde put +dup 127 /dieresis put +dup 128 /suppress put +dup 160 /space put +dup 161 /Gamma put +dup 162 /Delta put +dup 163 /Theta put +dup 164 /Lambda put +dup 165 /Xi put +dup 166 /Pi put +dup 167 /Sigma put +dup 168 /Upsilon put +dup 169 /Phi put +dup 170 /Psi put +dup 171 /sfthyphen put +dup 172 /nbspace put +dup 173 /Omega put +dup 174 /ff put +dup 175 /fi put +dup 176 /fl put +dup 177 /ffi put +dup 178 /ffl put +dup 179 /dotlessi put +dup 180 /dotlessj put +dup 181 /grave put +dup 182 /acute put +dup 183 /caron put +dup 184 /breve put +dup 185 /macron put +dup 186 /ring put +dup 187 /cedilla put +dup 188 /germandbls put +dup 189 /ae put +dup 190 /oe put +dup 191 /oslash put +dup 192 /AE put +dup 193 /OE put +dup 194 /Oslash put +dup 195 /suppress put +dup 196 /dieresis put +readonly def +currentdict end +currentfile eexec + +D9D66F633B846AB284BCF8B0411B772DE5CE3DD325E55798292D7BD972BD75FA0E079529AF9C +82DF72F64195C9C210DCE34528F540DA1FFD7BEBB9B40787BA9351BBFB7CFC5F9152D1E5BB0A +D8D016C6CFA4EB41B3C51D091C2D5440E67CFD717C56816B03B901BF4A25A07175380E50A213 +F877C44778B3C5AADBCC86D6E551E6AF364B0BFCAAD22D8D558C5C81A7D425A1629DD5182206 +742D1D082A12F0780FD4F5F6D3129FCFFF1F4A912B0A7DEC8D33A57B5AE0328EF9D57ADDAC54 +3273C01924195A181D03F5054A93B71E5065F8D92FE23794D2D4350D67F24B3964278808B79F +F5CAF896E4A8A31E46499CEE35E6A5AF0CFD175C2DD628620C681947A02A01D3C2B715AB79D7 +FDAB638D887B77DFFEC5C3A9484104D84FCECC7296CE2A3488AE246E233A8D5B40ED5DCC4455 +8B77422BDE47E0435F960EEC3A26DA9CE137555F0638511AAA14992C8DDA9A4A11B3F90BD4DA +AD1883BBEC357DBD838916EBE2AA8F93C2AD44F383ABE13B8C95B240563FAB987EA98794D301 +785E1E9F03DD545E51A6D58B3618E0750208D3AB913F9CE8C3B865D4CB83B90FB24962D6142B +0204A1E271854F903A05FF287CECB80658B3AF5E7675BE82CEFF3DAD5942EEA03C955FF979E4 +1E54BCFB5316A9AB8945C403A73180D0961416EC9C92F498114B91BC4C788392994587517718 +521E416D469F69952149FF7F9224377EBA10654A727BF806A112A7B45B0A1BA1D5A236839605 +75368D9EAC8C04753BF7465AF795F25C258C63E4FDFFD0B412FD381946AA38C0B961652BCEC3 +0322C47BF4755D9F91880688AF066E32FFB22E1A52DE741307AD3ED830D6BAA1D1F562919666 +DC5E8FD9862AC8600B0AE0BC7FC779252AAC57248744ACC8A8AAFA836BCF09B0DF9253DFBB1C +B77EA8A59D42D1B18FF25E9AED72FA62FEC3F126F030F5D7DED9C3CF60FE890BA4A48E39E687 +BFFAEAB96AE542A6387F6624486037C8924002A511BEE5FBFD780AC1D4BEC3FBC47A930BAD02 +80D444259528B6C565DE11DE36BB659BADC55C1EDA1A80458E98896D782DFB5C137897419602 +809F9BF8CA39F00C68EFB9E076FB324C2963F23CBFED28B9EF70EAA4E4B903225D1F199A7162 +AB239AD92D71C18B1B682D04C6A48926275BCB16D413B2A0E953E1257E0B12D8B717CE2EC84C +FBC046A4338A69F454A469B12118E562B4F56C5FFB3CA5D357513E6FFE947A564B229C7FD873 +057D5C7CDF03E958294A1003B37D8DF565A70A00A3734B0138AE5277D383D10C2BD853EF806D +3CCDC47739F0E374A3DF3B63638B949ED64EC25869DC1C0B1F4DBDFFCC97382841D8F10F3635 +C792139A1EC462FDBA379CBE0990CA2E70FE73137AFBBF30CA54954D7E7377CC50BDD780DDD4 +C7FDC77AD2F3EB1169F14A0041F18160F43C24FAF556DB5D621709FBC544CE55424F7446D46A +C07A51C8CD5161AB0AD5084A96FB35D77F1CA155147DEF8D7A590EA6939514D4A226588295CE +0007BA8A550895511C8D80BBE5CDFB8A50D249C3BDCA974415F5557914A9B805782F399E4078 +DDB6264F1A49A9A5BA45E284A5196E9828EBA8481D357B8D9E6ECA631A6204439FDFACE7D7E6 +A2392726107CB7D2517CD19A24FBE592C119626DB221BBB635B6EB84845C16A9585282E34958 +B961F4A543AF9D419B6A9105BF185FC767712D923437BE08A9C0EB92AB6792DBDC671029B6FC +A67F717FCE379C0F3B51C6CF042A762ED04898FBB4B0105C3C4ADDDC18C51BAA3B70A9366666 +9547081D9246732CFF74C83EE90DA17F5B4F8BAF47FE4D815909882858C9B96071341FA0A0D2 +3BDD4947FC9BC2297913CFBD4FD6CA4303AB3179AE0203F1BD502065F90CE9BEA3B52DAFE4A2 +9446082EA0E6B1D7AF1F31D0AD02CC9A7FACE2CA86E5FE0F6A425B28A5940ECA306891CECDB3 +CFC7A5BBC76B5D9E8AC754379ADE80B4D72CE493010317BF21A0CF4A0A55C1246218839DCA3F +4D626D1F4161D38F54AD5142C1CEE95C61D8BB10FAD4B772F4955777AFDE8AE5A837C2A2BBB1 +1D0BF5DA2E63D0B75ED421DBA9C789B281B01846B65DC572BA6959196921265DB722AE86BD8C +AA3D887C975A617ACEDDFB7AAB341F47532AC0F354A5307662C089DA3939588774FFA16FC4A5 +2555DED6D6F51DE718BF5F345C23C9019817B77CB8B5D53A5CE7A79F3E286B6A59F3F6178AC8 +BF15C0A15C1A8A95D03B6030EBE53DE328CE085CD9A1D49C69AA299C5B58B24334A546F6E274 +C1B534DC8F3289553F560C2F81E413ADB92FA0E7DD1C2F39D5FD268EBA97AB7335ECF2825796 +B4EADB7D0778706CB41C7E9C882760E7670936774A1088FFB2011115FDADB3B69EBD51087607 +62521C25C968C3E282DC3400001AC8FB1EA27FF643E30259501D617BB8BB321281708E496277 +E11DD3AE0023DA9F25AD06B39C7CF527FED27B57397E88D3DF70EE4FCCEFC8A0927D6B05517E +571B3E70ECC99F3CBA32CCD4DEB8BF22626B6C94FE65598A88AB90D238461EBD9A098DADEA40 +91AF1CDD7560EC8E1B9BC2321686E1759E6B8A270C8CB4A254F7368039602EAEAB86ED21CDED +918F2DB9889F46981C494C7EAF5E819B91C129F0740B8002B510014985E5791F59B16879CC65 +21D8E9F1C4C1890AC85A78022BE614BEFF318AB2616F0C3F02405EBB425D1555472A2642BA76 +86E431DC3FB8A1688B76660D9957C3FDE8D58109AC21B1234C9DDF3F0FAF93BCF7B2F88A001F +23162E1A13E5E9118D51B485B70A91D0CBC39CF44413FD8686D9030782DAB58064F5B987E040 +2AF5B264B17BD31BD4FDF63951BECD73ACA6138854EF35B062D01F33073850D9C09A818828C5 +81241FA625AB3638081DD0F00F946BE5450D38489CECEA4E66B4D85CC8AE0157E2AEE4A22A93 +13829F24D573101D84CC1784D1CED7DFAD5DD966601370C6CCBB723082A86BBAF0A5D867D0D2 +E3CA16E14E5109A29EF02649C47E12E88B3B397D65CACADEB9940B92100744D686066F8250FF +30E5F13D81428EE238A2E4E07ACE0F5C387D79D4A336D0D26AF9C2B84088ED8ECDF94A1E3FAD +B45AFDAB46CAD6FF950B0F07AA2CDF82374DA76C56D29C80138841EB13F0D02ADD32F88B23E2 +82ECC845F9BB9AAECE9CDC644AC2D49577A92307A83A99434F6493156DF25DBF0FCF2EC21E8C +50A312C3D19E0609C0038554CF4FEF3ACEB7A833FD54B06EF0D617C2971C89E4C06075B09B84 +A4F78A82152B9A9C540B1D881313C2C74F20ED064A9606EC2CB56D7BB4797F1EEF4A9B13579C +CF311FA4A4DFA62D80FDB7F535CC6526D1AAE545C008EAF024B48C377522F74D939A47597053 +3E645B1BFA81997549AFF26F672AAE6C2EFA357DB3B525276EF330905688777057F4E4CBF584 +520A534A8587E55A8360891E75A15205E8ADAC4A4E5A6E27D0C4A7D492216E4BC023AB027F37 +AFA8DC7579BA50204D5F45A51460C5BD8A5A7F87668CA6451137F2F59E117BBE285C40820882 +A5546FA76F0CF49F8A6EC445F0647CC3227C400F56E7E9B84A6975E85E243CC1666DBAFF4E07 +EEAF3AF71BDACB30DAEA792F2B8504CAB071544F015D66243D529C479D276FE22F7E275D9E7F +A9C6EECA18716B2F213916E32C1D946E32397B41AC6779543218E506569E3544803BBF9B404A +983EBA62A494187B308D3DFA4E1237A2E5E08224A60492C09ADAD8775B7CDB830520829BA164 +209ACBBCDEB2D574CEBFB7AE4BE72DF4EB1945FEF2458761AD8DCC0D378AEB7DA002C69C14A6 +65DAAA532B0ABA98D7BFB5A6151FF6703385AF7AE8FD315A492FCCDBCBB825707F9566B3B494 +3A3C61C3DEFDC31A843A2D67AB06891F3E110DD8C73D3BB5E4151B51D9F13905D7D94DB9ABBF +CAF35F43B6EEE256B1A80ED6D1739D8D5E8C767F6F0E8704C5345D028A2A6DAFD9BB7AA048B8 +B895FE9423A7ACE858BADD595CB074A128DAFE08FDFFD6BDAC0114159A702FDCBF8013804B0C +AEAD7AF38EFAF086A3248AD4FCA1401A85AE2F72E3E6956DC0996FE8ADB18F89B14A208A1513 +F81AF73D0DB72F78C4DA634ADE3C73756CAE6AF2E149C26316DFD93370BE1AFB4A79F77A67C0 +7CB0A53C78367F21661D4AFE9E27328E077B522B50FD9AE2E3DA087BE481515B5DD7BF894A96 +A84A6C78874100505B7DDE1D22EFCE8D58B3AB313AB5495F72E2CA4E6AE22C0CB854302B9990 +372F1661D9F0A517F90686F248C5643008B3D29F7296E5C8FD4049886662EFDD4106E17C879F +5D41CE84F87E89F6A3117C968B95A35940CC29C43E1E0DEF51C1E46B676301F40D59615C3F73 +DDDE37B72FF7105DB84227DA5241583272AB1C3CD97AE11C1EE98FFDB5E5F448448FC41BEA5C +54B26341AFF6830D9D0A5A2901B0653D8BD0746838194D240FF753E99750D3383373F453723D +86BE97B571B8B84D8696089B5CFDD53E6C562A2197A8C4FB0CC690C27761A816B441029D3D30 +6245052E0C41B53025D8CB7267CFE3C17FDFE348E765326F91AEB700CC49162DF74817121425 +2CBC821493DD01AA20417D66DF47EBEFFF3E9BB2B0A2BE7D9B8C68BD570FC2EB0FA54CECC318 +F04C4319598BDE93F2F13DC7847354C99059AB20593EE51E94F9D4E9241869D605AAF49D9B5F +D88C3798A039A67993C5EC68B6326B132E647F67EACCA7F7AE7F718D8512666E90D7C73EF210 +E344964A38228B236679A2B18F5E081234CAA2458F8D833F0CA308D19663CB12EB904076EF88 +E556407C33C9380A6A3D68A9EFE65387C1A1BCD2D26DFD2AC0881EC30E81C0A4E76C244A2BD8 +22EE88C4A60B480D107E6890E419A1F512E865BA922A7830909BC2611A80931CB2E934452958 +6726614D943AC5200FB9FF68AD9686506C5EFA8788C0AD0251AFE7F95E84683380CDB421C5B1 +A783B6D5F3A6BD1BC1C14B363DB01C87C0796DCDD5BECF41A1A9F43183CF6B82C2AE49F0BFDC +5DEF7729F2E638EE6EA9E4D059EB9BB1B992AD8C82D501A5501BF73CBBFE740179B54E193E84 +A55DCD61B343C1852780FFB44248FC9426AC94AA2B3FE20FBA30F6C4D1E0FF3EDCDD8C0F57CC +B50CDB0EFE2E04A8927E239C1D9B026C7929BB48461D4D695FFC766C8A0E545B1BCC2AA068D1 +865333108E79852D93F9B00EA0A90939D0D3840D59B6CC0CE2C147B2E1A9A4F14270FE3ACF51 +D599F7349106165AD627CBBB0ABA01ECC6D3A14C1DC1ED23A9DB9865BB4396C51A31ECD001EA +C94B33C34E29C5611148EF3E55DD61813470B8F3CE32564C7494143C93C77EA5A3538A0B5AE3 +FC4DA32813B06772E0E48E25BB39F3F6FDCC077E86F86FA50E18FD19EB2F37311CE87F18F3BC +85CE7FD71CA92D5C3264E34E04A2E570C79D99F54D6C6D9D527AE45EBB48411221134587D225 +3E7C8ED7658EDCA34E5E768DD14E0200470F73C44D006CE8CB35DE1CA3EC10ADC668B0662A77 +74C89184EC95A31DD872F0728D9F65CA80940080E04630BE4DEC77A2C49E3913C39978BF145F +8832AF2C4385EBCDB15F9D32C22CBA0CF950877717D6F1591D7C0B80478C9BFCB16AF7124ED8 +3137695F3D69228DB633053208C29E0ABA1B06A7FB3EE75625CB44927E2DA6E038A6E62DEBDA +2D96A03177982D8FA33BAAF4426E05F4B79C1748B3FF7691F9888E7FF864A10B9DF761A41E6B +5CFAD2BDD7E1C4924AC97BF4B352705316DD1A58637CC12D71C18A5CA691AB2AA8F171590EC2 +4582B1123E94D4DC587D8F99E18A711776BF4013C96446BFECFEE4C809EA94B169088024DE0C +BD20199A915AA406F0BD5F3D63D1467C49B4691AEBBB35ED6624F2D7BB74BCE80FD92B9FD04D +D9C2BE9B6FD29EC7EC07FAB447511C61DD299C783BC09AE2A47B3CBCA6A20C6631D06D0B2E24 +82A50612BB7C29B7E7D0A205EB0E8436702581596BC996ABD58CD8D5BAAE4B1478195CAFF98F +E0141287296C4EFB8D2E7A8442F0A3AA9F9264329982532295A176BA1867EF732BBAC49AF485 +D9D0F7130F617E7F7DEEF935874D55A22240F8EDE4F247D5F73481373A392D40A8076BD91079 +E11CE5998BA13D48D56B49A92B4A18430E316405D2E2E391B496A1934671FF1785AF42BA3B2D +14B8E04014437FD194455C50289DFBA61B5C377BCBDADA48E82DEE4E70EF5E9DC03064907BCB +8BE4D59DE069FB0C0CB140DA54708E630767313F9F744594AD8A499CFEF733E640A11FD74E46 +A749F9C7D18D49251BF85C6EB4668D67598C31A8F90922FEAEAD4B83B6E7184567DC798E4BA1 +C4C9B3461A478D63CA054F13B502DACB674EB49D6BB935E5EC82BF99FDA7D47C581AD7F940DF +4FC6FA6C6D25D647033AC69505F0CAC58DE99087F365531A6283CB89CB644688963C3B8B2203 +A94294E58739EF23C7803630A1F9121D62BE1977DE2F41687C8CAF87FECBD7AD3B98E0D95C8C +6E1A7CCB0E09465AA874DC90A0F5DB2C5E7C130297FD39EFE63B0350B5139D09E6864D22C3F1 +150B29196E40EEF9723E71158B7ECFB8E4C426FEDCD439420B7F1C251FADA347C9A2C49738B5 +A17922E1EA93CA7B125B7657449EAA9C1D591CAD327D0E98EF2D44D614EE9ED49DD31ACAC0B9 +56620B6BA55BF6D08CA7541059D5ED2EF00AE2EE95488F5645BF6837D9241C0D3959B7580FC9 +ECB2BCF3E65C07D52EC9CFB21C11CD4C883E44C173214C900C44D2E1E43DD1CE8DFE3DA93C38 +B548BC4EC46FF91F30CFB97525E1FD4E77686433B20BABF8D2848C1CDF1BCF185CFD7A81D2D4 +BB826E837E2AF35CFC4F419F698DB0C43E9F9CB0FB628AC9A3CBE9B1FF4A067016E70333E78B +32AB2D89C483834B31F5808FDB77492E099F1504DABCA5722C7860CDCEDB2DDEB512FFCC7D28 +7F4945FD711F2887BC3D36173566B81FC2C1290C717A09697DAC6072408E20926D39270121CE +583EF97CE12EDD7F87F2C8CFE36C3C0400869C0D813B71C425343EE0CDF717BDD8409D5297D0 +F8F7FDEB0257C0A391F5635E0DB1116058942FF3E7C94D5F2873A7A3B0ADAFC3835AF2BE474E +6741319BC6695FB37F59AEE388F81F6E66F910000B72E6BA7531B4378CEFEEDC79CCF4947BA1 +703823B5AB4F4AD73D9615C66C489D99D68E49C9BF765B7FC547BAB9640D51D5A7A2396507AB +5A4DFF3D14F52422CD8FCFEAA06A56C6C7FFCD29C9A7A59DDD2A909A9363FE5F1E9629616D25 +ED38CBE754C059E4379318CC491C3B1A90128693AC53F80F8210FAEA7EE638902A7D3C82B95B +3F5AE340EC1B648DBB9FB679D6E80B7F426D8671FE7136D97F51E2D2F3C9CE9183E4061CA400 +91A2A70DBB9ECBB19CE3F65ADD0FB346B54BAB182E2CD0EAF4C0F402C25573FB344EA771B297 +BEB615FCD0595172E84ED2A62FF896263423C19076C2A9ECEED5135994EB397303A9619C76DC +55E032DA83FBA441BD484A59F70A5110A8927F6239A14D4E223E189A5462E4A92EAEFFA4B961 +A2A32B320FC2B4E8C1821FA67A655B5042C15E4DE1FB3652B55078DB123573C4E986B19DB01C +5131F3DFAB271C30A5476B4A19D8FC922E31879C34BAED94C07A4841B8209C403369FB8E8426 +10D1EB4662B6171A4465FD0E819964F62EC5B0ADC92F08CF901DE0B410FFBAD16F6D355E8AD7 +2CCF67961EDB6CDA82398021007C2D0462E89375EB0710AE4A6CDD15077C9DEFC5774EF4A657 +734D703CE42174259B58E5277E0DF26BF59AF8D1A3E7DC12E3C12AA4B67CF35B19962F6950C2 +020B698D971B3582FF84E72F72FBB0C54A112BADBAE6C4CAA358BDE6A705AB59332C3850CA3D +25C7564499BC1319121CE0D93218210C68080AFF33420E3CB3A48BF9EB66BC07C8A79D8CD8E7 +8C200FF7CFA3DAED0B9E87E6141C88B436D8FCBA50AC195FCBB9BC9512B95FE3A37FFAAB3985 +0FCEBD4D50A243EA416E73F53B4B00F3B6EAE0CA060693AFFEF215D00BFCAD02E45496D7C8F5 +E99EB9096FC4300D038C1AFD31EC4C5ACA6B72C1BE7204E37A4CBBCB1EC26AB87F2FF82DE206 +01025169A5FBD2D06062B5B2DBC288C79C33B596832AA18D730AD572C6EDFABCBD36DEA87C0F +323C3D6E537AD3B43C6F3A905597570A8C6B0B4A5E08C08EAFF9731E745F2BA8ED0C0E1ADF78 +21CFCD4E38F3F4C243CAD31D9F8920409C3FA734449C3BB4BFB0B87F86778C4E6FDF07742EB2 +190920730F0F7F62791F0C78C14D62FDB3B1963EFD9842CD9CBB403670A114D8BAA3EBD0FC01 +3927687E65AE1AD01BA49D83C9A5E3D9055F1D2E0E3D4D0616EEEE3F94DE97414FE18030F79C +650F90B1A61DA2400D7A983E3C581765BA4DA99D0314C808309B77FDA513DFA08BBF9AB4D1C3 +45C1897001E88991CC951326C9FEA3D6A1F725E286F650BDF121A18823702BD7D8E29203DF01 +98BBC1132A2366F8778ACC1BE176D190C24853F7F7920E69ACA83A75926F505AE06BCE4715CA +845B8BCAA71EAF2CCF2A07393255D7C345030118193F871F61F40EBB75EE6CCAC99E7025C64F +83573365C69F14633B2886B47538861F02FAB890C5837C7B337666A42CB1803ED1A95F35F8F6 +2FB3D77C9C07052F69135B10195FCFB6070863E997AA595D5D5A748C350ADBD7CADE9E7F8262 +E46827BCB122D3895791E76BC10E1643693C34E494EA5033C5F0DD4E8A51C229D30915EAB0EE +FAF68D7637DF098278E1DEC103E39268E11FC778AF98B0F03F7D5C8752CE6B29DF3D047F8C04 +BFBE290CC4C71B407842090E3499E52B3B20F92F9F18AC04933D3FB3D19E7D9FCA2C2CBCA4EF +1EE097B12E6B2CE5005FDFCAA7E00CC73D7157EC5107EE7C943944B884645DAF9F4EB3631291 +6A569BACF9290478CF2244BB426E392C887C2F0AE54C0459012F234D277CF7C7F031E02AA401 +E391FC87C17EF478BC57539CA588AF00FEC338957B67BE05C612493761FFA6F812A16859FAE0 +822E25543CD0F40A112DB911CE116724759D5A47D26F24041D06B8CDCB4A5FDC2CACBD575393 +3506DEE665CB91941344CEF1CA388B715F24B05F31C7F43FC17C6C0B4980C5EBA7C849F280C7 +BF4664FADAE796754ED97AFFD58A8EE3A156ABAFF17357F4F5AECD3FDBC2B6BD2DDEB6DDB1A5 +CFC2DCBEB5FC024AF2C219C1BD16A012097E09F1C7B07061FA6B13658250D14BC3358D154FDB +31AA7D4B0237E78B130BF0851F4886EB68BDEA3D1D37DCB29FDA6904D3BE23314E59BCB12E21 +6CD0C10E5E9F0E37882792C31BF0E44FA45F09ABD6E077F91E8E3E5A6C0C909201F57D7D6AEA +1A9D7AE2AC7745FAE8BBEFFE23EB1206AE4EBA1E31AA83C65577E78C2DED9FFEFB90DCB3EC4F +EF8C7CCE4109D752247CCC5BD27FE18650F5CFCB7EA1C2F4D6C59648D7888BDDF5A953DC5A25 +D0256B88D8D73A77D79E8D4DFEF81A9B1FA7A63120DA06A8EADDCAD3DB40CA7FEED9CB081CDA +B6AFA1B67FD7D1AC7F769BEE69DCD7BC5F9586828F303CF46E28D239FA334A9AA7D2B7C00F26 +7EBE4EEBEC37650D1C82FC57D094CAAEE2764EAA441DA0185BC3D8F427054C856DA698BB061D +6A62E471F6B4D11933F6553170011D35AD2A6539BEC5FFB80D03E933B1704F262C80C46A53CB +88517D9D5992E4893B28ECF741B2D43A33C9BE431502430D8A8DBEB9050D1497D659AC8FBC19 +04CE574CD44A62CFE163989272CF107E8F35C40C1985C706914210B6BFC3173B44B1D062FF43 +9C0E5DC025F54A72AE59A669E75891C0EF0895DB22A4FB2B573F8F649099B0087729204C6397 +0B592C2769F79D51E0B098AC6EB5238F74BEE344D5AA93CC78BE81606CA5F4CC1F9E01955F53 +1869EAEEB7562ED63B52F7108391E5629A1612FD4885EE6AA31F61F75975E49836FC293761AE +B9177A8DD1D7A21CE3D453A2EE024C4DCFD3A4FC63723911D256E1D2C0C785395B563E612FE2 +C891476B46CFF0F4057E93B222E997B6B4773C6B6967470985AC22D73291B671B5627F5C92C4 +9BBB8EDD6D03E2EFD6803299592277A67DFE571BFD36A9319EBE120898F075DB16C47E645404 +1E21F84EE964A9AD4F22F21F0AE929E7A104C0F4D0FE4FC3F11C88CDBD5BEAD666FC564BE498 +25C166423CD5A12F50D74C5BDEC1FB391449B82BE17E19202BE4441F31BE4743CB0CB0A1370B +B98BBC10266F9DBC02C7C7F414BA60B49500858949FD1F8D70E7F8E7CB32155311B7BE09F9FE +CCD5B2B7336755FCAF1D07E640375A9CAA5245D72BE1B409C4932841B6ECDB91A1929A11EEEB +7FB4A5C3C4FF032941333455476D38ECFE34683A24075F65865308F506964B177A572ECB3CBC +8D88BEB1E7EE866C864FD2D936E658808E21F7A6DB3AC75C751B394538403688FB720C34974E +F556B7DF6EFBA2C3DE77BEF19571AA5A69C011A7387785A9307605B63164BD8BF527FAEEA2C8 +D89DFD7EA9CA56C6874E7F7D4F1A70C5B83CEEBDD456CE88109C70D7D1C5D7A2EED309AED6D6 +B8EC78FD5A7E6C2D25F4CA2B2F4426AE819BADD11AE12740730669974BADFB90384A562C3D10 +07692014FC61E164A9CB274F2900CE0567FE4CE34D104C88F37BC29F06571CD6D5EB2285B049 +F789C53EFB15AB1D455E346EA0250A7C3BCD8D4750A3B69E7F7C24ADBF92AE9899C99E484D9C +EA7AE045EAE0F5B11644BEC2B39111E9422ABF09BBE5315532DCF83E70F1315D432DAEC05785 +249D03E98C5B843F02A5E3EBD423D72E9C0C2DFC1AB4F57E3A56301388C05E8A77D0BA1ACE71 +D69DD04F8F713DB42CA6B9FDC6E0133DF26496351ECD834B1E0B994DEAA487071FCC93460EF2 +DD46819935891D4A84DE59915BA78AADC1F8B0AC25781F23D77C3DB5CEA62BA8DC2A4DD53691 +92BC66308C4D54B5C0C36C8D1687292D55F2EF13EC1D3A879CF224083D4824FABD7548C2406D +AED67BAFD016B30578D27E0A5E6DEBCD418E4CFA7C530E9CD89ECA0D60AFBAB87214EC3BD036 +8283E01E6F9CA13CA89A0546118C9BB6E9CABC571CDE8D0DC32008EAE5D643BA7249BDCE2873 +6C2B8A7A2D5DE8C1C256CC7040C90F05B34CCE2689BD548B22D8A9E09BA31DC58780612EEA06 +2F1B1DF27E078D24BEE1E5657A7F5D201B242E970593B83297A0ECDE80AA5090164C4B9D0BC6 +EA0F9251815A0B9EB8EDFE8D650ED0D616E7195B56B7FE21D21AC834150091801C051A9DBE19 +93579F595B902AC69DF539D0B0BA5016C696817E04C4EDE8F9424E38B578E924CFD106D8A89E +6BD4AD1A73812F3F536454B52EDBEDDFC904DB46BC5342156B91558E045638D9B045856FDBED +57900AA658FFE70235D4A01A1B33A625B82B5B4B6984D033DB8AB40EABEA055C0054C4DB1118 +E07A61985BB17AD84B0C414D41A2F6113626DEEA2080A10617137A9C3B8821A338047C2F8020 +09E5AF08652DF411369AF17021C2F9D3A63721296D659E56BBEED61A851A26DD63C910247AB2 +4F0A9B78EEDE3146BA7B3439FDD88F79A21ED71047023F6D283D20E567345763E48BDCAD572F +AE5857898999ACB50F4ABD56D3988941640759996FD693F5DA50246F75357618F3EFFDB56771 +FD77F0A419515E7D41D40B6A1E652FF642525671CF8841FA3D20E102D447B539AC2807CDDDCB +FF68545E3BDAB485987B39006C814AEF0A004772C70C54A4F902F68EFD4215BD386770D3A832 +B0BE7C6E15B71EA954BE323CB59822FB45E033417E3D64B5DCFB64756DC1D7BA07AE41C5655C +FE95F9EE6931AF6C0FAAE927E87E48E67D4A6195B624E0C2A6D204BF9BA6F2682BAFC3B00486 +47DDEC2D4DC2119A61ACE5A717C653CF42F11E4B4D1AEC79610B81A81CE278DA7BCB5C6A5748 +BEC984C82C74F924094DBAF2B5F91C7031A4168230FDC274C41B24B2F26B8699A83423292C32 +8EA2FCE74340A423A0C3B8D71634A779D37869D8628033FCBC1E9FC8D4DCDDE2967624E21DE3 +36E4908EF669B30E8ECD1AFE0C3EB4A0342BD0CC5806C4AC89F959CC1CB51DD73CD32606DB98 +76A2117ED4F164F322C344F45FD4065010E2A94A9D2231EAEB86EFAF91700CCA3886CC1AE823 +76ACEDBBA57575CE998B37E659EB85C1BFCA6795A528076F01607A3E99210DB5992B1D577772 +1E22C2E36307C72245B2350FB783385D84D6335878ECD5442270BDD6A84B5F7BA3A7844AB32C +C5D79B9C41F7E38CE07F574BFBFEA8AB7176CF23EBB47E4565B0FD7B831AFC7400107B36ED72 +6033A5E1076B5C4C9C5B877255F561AA9D48CB00E2EAC4542122B10D1B2C94CA741951B5C7FF +33CE9D83260D973B494C906A29DFA44B0A76692C2D731DA45A527CD639023470D6C9CD110E56 +5E7B20CB469B319FC3D4A3B9A6B2672EA4FF7B4062EEC7C10FDCFD6480E7A80D6591F49A6BC7 +000849773132AD14767906F439BE815341B7AF9C11BA7222947D48C8D66D38966A498F8C2764 +87CC665103810635124B21F88EFB466CD0C0FFB5B2831183F5FEBD36D8D39C7FA981960EC2B8 +9D57EEB44FD3D82EF795D0F0A5D3ABE98B8F9A2259ECD7A0A319CCFD1D613C7180A4EBC70C13 +EDB502C9F9695A16AEC4CDFB56ACB665901901DBE33C17DF2F1F8FA70A5FB06847DED335A57F +41478943592259E927F648AEFFF9EA7B86870430CF186DEFFB57E53102E2B8915AECED0BC5D2 +4B209F9B0874FC58C83F1B82474DE62D5E37DD58D9E4453CC669A99933D2AAF0DB36D831C5D5 +6425DD2B058C83E32BFAA58468D36D4C547D080F9FF5E18B807155CBD3DC9738CFBA5D5FB10A +85FE61276C4615FAF7CE2EF815196F97686B44FF3CAE50BC266E168540786FB8ECD9941419D1 +704BCBE14EA52966F3EA513DDAFAF316E43379674EDE9301DB81737C2198B010ED6D72323E77 +71B221A02CF5CD2091D52BDBAD5ECF6B6A65C8F4C25D2E88266D78AE937CFBCF5386E577B1D2 +E1B9061C0DD1C526007227D130E71736E9865CAAD37AE6F19AE8810AF20F83C68053FB59536C +991471CD73667C46AA6ACB6A14B9FBC4150B0910D832810009CB76F71C0CB9D48FB5EAEB4206 +D1EFAEAA07307BA5D6F3D655621055E30734C5021023A8F8F7D2F21FC37CB2B5514886D5A399 +8CBB367D3EA5E4B1DC631B03CC5EA06BBC6663AFD4C5097D35D36CADEC80733ECA11FCDE2E73 +39DE0BE5EEE3248758B1C1D83783D2A236FD5BF328977EEF94E0D1604430DA791B4C633A50EC +B0A0525061F0F9DEEF3D9ABB44A43685E2237EB42EF0232EF3D3E9E5A77768801FD309FDAC0E +12916C564A50D5B05B13C40DC44097982E9E88CA4983E94FFA543E0B343BFE4F0E0BEE99C8FB +CAB228D070603215743466DE1A88ED87E0711D49B06E870644DB41A666FA2D7C9A5B46C2C707 +293CA85C47CD84427BFA08F3CCD7DDCB255AF6FBC0337BD7D52EC5481F3020D4694E3DCDAD9C +BF3154551A53860670CFBCF80C5FB35B1B8E4968F4F634826BEE5F987058BEAE57B85529A1A4 +9975A82C1EC8DE057B3607EF225C773EFF76036D6BE49F1E9AAF481D031305F0FA39DEC8EED2 +A3BEF16852C7474D899D43AD14875A0D23B39A9BD84A31294CE63F0E77BBDF18F0FCE3EC339D +8E32162F7A102FD9FB1A1355AF21EE9CD0EF635757CA1B1D4D2637453A45F282FF0F9AF5A1E1 +73349F8FFA0B01B58414F02C2A8DB49D6A64B5AA7DDFBB88EA4DDEEAF4338F7392C537DB6C19 +020819BB6B52244E29AED0C6F4B7D516575D107398B97EFC0FBB158E82791BB7713DC67F3261 +8D66BFA4DA8B876F21E8ACE83BBBBE9E9163C6FD11574848300BA6204A02012AB8B8B44DB5E2 +43DCD175C74CFD20ECFE689286DE855C07CE8FB2E6F4508F229E1F97ADD5272F3424F01AE5BF +CC4BF2FA9E5319DB3088448C8C5C3D53AB735A8324A79F51DD282B213EEBF7612AA9FAAD05B2 +6DF6506CBCFC803BB50ED2526EF944CD9C5B81BB20F74EB0521B79DF5E44003FD03EFF834394 +DB753EBB6FB634012D5269BDF4BDAB03FB3FDFA481611DD29B3B48B07B144EA4538C605C049B +4ADD4B711898FD1F7BAB9330B3C33A02F62F4295675FC693137137188A23CA4F1B9E7B4913AE +84C9EC719DB29EA839B179D21335FA9389B9B391139B0F097600EB61B94BA5340DFCB1EBFCB4 +6978D4B765250CCFBB5A0EB286C2C31EF434F7DB89B17C0875293E0B17A0BD58E34AA8C183F8 +85446E6D4F9F09DE48761F1009BF4CB9EDA5F02D495F631965FAB3BC70B7DD485259258B6FB4 +DC50ABAA69458B7CA8DC24CC9CB7C1438D243ECA110FB2BE3CA14BFD6FEF07DB0280F771183B +302FF50DAD78BE931B00D97FAE031FE4D9E00637C3994F976D6668154F49C6FBE0F4125911CF +CB9385669DE551B8850958B3ABDF0A315926D7ABC357064C1E2E4E45F79B1BB64D068D7F8E15 +51CE32252FC1C2E1C678D3AD9C4276225AE9F8600D24F6E9D94D16A57BA425BE5661A7CCED71 +3B8E5B900B8591E0336ECBC35DB47B8367CA8CC066021C7FF43DDA552CE3B9EB9850FA7D2381 +8402679D4156A82234B4E369B5548C92707C248CFA4FBE597650B530D26DE77C30DD50EBBAD5 +B6494BEDC9B93B34265265990D8304083EC1E7FAFB081B26466634CA00A94D3FBCB92D829EC8 +3C1798E8547E30B9EBA32D8C0C00D6A7453EB08D084481EF2E5BD3598EC5286C144E75D11F76 +D48CBE1D56CE53A389B21AD3E8BADE39D7AD722D7C5071868EADF2368E9D564F584A13387FDB +4F6B42A235AAE56252CB8F8A23D21E7931FB494A595B42D9E061FDCCC05777C5F9FCE908B7EF +ED28BA6A15968BD74E92B1CF2CB9F2E7E6851F1F936B7BE1EE6AE50CB6169192190BC1613021 +FAB977DBF0111B2BCB455F9FDFF64E7E1DCA01FD4632238525A94E8A73EB923920897C54BF2B +524800E49B2E6DE6A2DFFD06050FF62418D3E04B8D1EE3FDD38CF682D770F04BEAFF8E09B515 +6D907E24E5656B3ED8B3A3741701A271166687788653CA9F5E2F1E7304800614249B766E59B6 +FD7A5D17C43D41CE0E518046D30A347CCD1060404F6AEE302F0F455AB5CD25760BA9311CCC49 +A71FE15C4945D8A38154CC61E78C04BEF931C0765F7AA7C86E8087854C3779FE192D143A26C6 +7464E6D27CE16EF613F771486B4BF80091877FC32990518876FE4C1D106EC8CE0A07AE573859 +D9573E24539BD2A4BCF235CC5C9DFB0A7C545DB58FCC594A2AFFED20926BA7EF5CA5E3CF750B +0530F343BE657D116B2F3B78A84A27B2E3A0FEA2FC3BA12602F368E4F3B1A3B58310767E170B +2E95C29778F9F8BBF91005A82E069752537DE6D21D3599E8E9E9FAFE030394601E0429040F5D +99E57882084F519546D30D56E6A34158FAAB88CAC868D420509CD584839A65256AFECB442E04 +A9F4B00ACFF6767C5E7DE1174C38B98A5F86F136B2515ACF4DECEEAFC391A498718E7EB69DE7 +278FD1BB7EEBFEDD69966F1CB7D470FA986B372DB5C34554E401E7B51B60FDA723B609772945 +079FFD98D794048B9A9F4B8B6F848C7C73E00C2CACF78DAE6E872D0F6944A7CD53F8CC2521A3 +319BD0EDAE596663208194ED177DCD06B871F3027416E1C5603CBE10899612738B5BA4BE8065 +ED9E39DEDF667B8783ED17F0EF09097EFADDCECFE08435261A37F0E9B9EC7BE35F6898A3F670 +03282E33FEF3573443E30BF148F5FE93CDA109E2657BE38491FAEDF74ACCAA287073D044665E +1433B2012FBE1D6375AE07E0F6A3D4B65B301BB84AC9AAC072FF6DFCBD1B36FA6BB6BA01A11D +3A9C36B06365D4319E1AFCDDA85B12019035C82D86807711DDE6D82386B591F5332BEBCE92F1 +6197E127DEED9D9A1CBA9C3A286C0DCFB5176842146934206101984BE2E34FE06CC3C9B7F1C1 +654994949FE1ED7F8E6204E24CB067FAF298DD6E018230BE9D0A15AB6DF7BCD8FCC34F347314 +92C51DA0519ED067CCACF50C5FF3088B00413C06EE7016D3412DCB5F508636E2C107CF2DBCCA +E51FC6B722A7B9E501ADDF53C109A89481FB971DC4B754A79EA6C4A94926DA4484A6A36B5EBA +B8B4EBDF663E3C627B624BBEF775A375F57EF5758D63F173F66BE17C6301AC89FAB441DBA03E +246544B42CF90C5061D2DF04F681763622608140E71220FA9754832E6F287CCAAD41565617A6 +AB4602F9BE24B6D87FC117D27BD5F281AEFC6F1887802F8BBB62FF17BE3E23B76BCEBEE26A5B +F8CECF8C211778E559C08778513E7BC69AB9781FAC4145A4EF884677E6096C0E2CCB1989E485 +E3C7686A50DD234E558058BF3EF5F8B3193ED0D958113E999D1D452EAA5AD16C3A81D8598107 +5F5EBEF28E0C289696D7F77ABA2F4AF437BCFB8882716571D117E430BBAC4CFA43539E7C5D4C +4D50F8FBA93FEF30C72AAF3A18C175EEEF90EBE8D9C9613B082251AB9702118783B66DFB50CF +E23E498CF61AD5ACAA8354E3788C2F193A9669084AEAFB539F2099FDADAA9170B5E4334C1D43 +5A65567BD4FC2991FF6DA678D050C46B095778EEC4AAE264C19DD059CF219C56D55899C7AFE1 +BB688DBC3DF74852CA85309905318B340B30C0F1A8C777E3916C9F8714E1FCF83B3E8C101CD9 +7988D7002598C177C47358C84A19B936CE5496E181FF4AF42F74B0D24958EDA17631AEB6DA2A +46BF79894D47880872EB17E9F126243608459234CB966C586EFC718FBC5D874A762137C19660 +F2B70B9302CC4A85D3E643FC71825D79E99D835906BCA5230846FB6FE1A34B5BD2AD5174F3A8 +82C5EE40B7E645521D2DE64039A8B67175BB77CCC96863EB7F186EFD9BE2E46B899D09DA5141 +95B795818D68F32010B7CD1C0737EA89FF59C371C351C201C3E380A0D1A721A2389ED339AD07 +599FAA245F3153B2219AE78EA3118133976243C9B98853DECCA9204636E74035C288E11A561D +A181A4C7F77432829DB8DF4068D2FB895AF20CB25D8D5D4040B72EAFBECFB0BE405F978EDC7D +A3E3F0E64827A741A7C0199DD282A9CDF0DC29C60A2C39E0810D8690E751CC6885C1C31E0ADC +1CC371F1DBD451B842C90742A2006DAE56FE9D52B0A1E0A929C26FF3C03D24C1ECEDD5B3BC16 +FE44D7468920CABF1789B5D5CBD5E73063066944C1FAF56ADEA8CD05AF8B6190F7AAA6134480 +8FD31818F6914DE91C2E1998D12FDFDEE7EC40A08433C5B8B840D0E30E66B79F8A597D08DF55 +E842738A76F162FFC07EF295B23205BE40B57F690867361215FCB99623A7571CB1AAFF7D4975 +94658DC494AB5B86883171B6605BE872AB8912F68A5B6E34F67343A0C2007F78A5F30897438A +53E1EFC02974970A4F7F540825F4889641D8B204EC591066CEFC9EFAEFBEC3730A2D8A46072D +85067C4B714788207273152DA531C23673AAC805BD1943E95E4C4EF834066260477BCA978A82 +EC02D5FCCECFDC4E6AD19985DFBF51A9048DD2DDB4D4ED34BBF2E68069824BF2B749023299F2 +C0AB8AE0D807086F33051755365C275A1DE650F899D6DC5D4BB220102A327DC8235B01A5A518 +2288B221C4D9C2D351E53C25F71C8438EAC070E308D322F24F125E37F55C42342937B4074A93 +786481A7A4CC5A7216946902E4CECFD585CEFEF4E0DAE288A33807B648796658E54F0EAA1B13 +DEC22CD0BB09C9366A0DD1ACB21B516C33FDE0378319160694D8750F0CFC45D4ECF7DFB03DF9 +8661E8C413EBB04D67EB233C4C31CC5229BB5831F833A18AA4418FCB4E684C7D591235861854 +478616298FBCF3C7ECF9CF54540BFDF0187B55CABFB0217C852C4378A0C86E2151B8A02BEF08 +111500EEB22AB4F63F22AA26AD159B62628D47C7B67A7FC27F9D1E019C49C1BE1F6D0889B855 +6F36C488F44748B6F2C9C2EF9EDDFA1CD16ECF0B81B73C59F31F91434AEE8D346EEBE2F15B0B +2387168E16E91FAE48DDB81FA9A64EFB44E284B06B07EBC6262D5580ED4B49289172C0B727F1 +9F42293B28CD7CFBB1E009D1216659D0BA9B3D76986A7AFE52C74ACCCFD23C5F12E8BFA3603B +E1E312DDC6B9E07077FFC936A5B04F8167CDD2C0F1923BA181BAF4C2862D55EBDD7D22F00775 +28C9E5D741DC801608C3279E4E850817A887C12F6E4B230CA7649C903BB4DEECAAE6708D1880 +E323EC444F261FC38FF9836517DA59A3609916B83F1D7083FE27347C4F64113447A0CFC71345 +CE8E10DC25183FAA1745684DB545E468C7058FB7528AEE3C48F69A86DBDA9503178F58F87ED4 +DFC2A2FA9445D299ED1120272B58C6F1D34A8195C5C218A8741A93A8565A8E959FF7C84FD5CF +E9C084C7D4BF917F7C838FF4AAB056084E9B0C7D0C99E1ECC42050599155E61A234094872C66 +83C6658F5704E884129C7ACC49ED8F0AC238E2211C678EB9A2D8A27CD058ECDA9A8729AB61A3 +0F4BB831820E1A0488A1EBB2F303E34E2F86C332CE011829ACEAAAFF1CCA36F2FB6737EE3CE5 +E9322730C771AE601EFD19F58839FE31B1B20EE3536FADFED530F521A795CDF2C3CD39A9DB14 +4920230EE952FD6C4AB9CF05DB388C0A6732103A1BC6049B08FB7E97D06D379D660620818667 +0722C15AB4ABB6FAF53CB8F790255BED8B2677839F4AFD0A8F2FCB959FC11043FF66C59F7BB5 +E804F7E2E205CD7995E399486914B0A1855AB717D086A0E1A069E50494BAA7504E8F8A2884B6 +EDC4F307145221B6A7D0D73FE4411D743736A4DE1D5ADAE835AB591C183401B9EC72FC937DA8 +2D14B41E22A5AB3A83B46897B3D1C26D79108BA2C15119DF62EF5BC3D6866C57992FBCFEB632 +474632D39079397FDF7E10019AA5262A1BE4F9BE371BC518776520C39BAC18F33DEC2D81AD26 +A795B72621648DE42D5B237E50ABDCB1B9D8ACA4AE0107787CC00DECF77C459FC986EE9980D9 +7AD4D75BC89024BB90473902AA0E0A5FEB957EB45FEABD20DB91F1914BCD999F72065D555CB2 +17F885919EAA017846BC190E2F3ED07028F8BE9BA3135A642E73DD63EBDBBE371323CD857E4F +6795DA2DDFDDDB9F1FE4523E35F76D247B06004F5C9B5ABA22918087A0416C1B910D2A09DEBA +5270B7D424EE9D224BDE94D209E2C120DAF66AF3F8A1ABECA126B8069443CEEFEF45A8DE9917 +A86D48EDB8C4E12FB73A97EE51AFE1AB96FA5E1329AD2495FC37E06E3127A13E4E7077F437D5 +78A4EDA27732E23E63088E5FBABEE42D62C4213518B839392474E3A48865564409A76460B856 +461D9E10B05B2F655D96161884DD575DFDDC87D7C2082B92B097482449122D30C52E4CFFD95F +5CF7A50963C2CBD3711076BECD5972E28BD63B7F87902970581C14BAECA7F81B8BBA23B04D49 +8426D1611059A2A1AA6A62E96643C4B08B7B3B7FF9F4166B2575B9BD3720BCF97F08FD2FA2D3 +BEA22E12E9C4197DDE1A3CCEB1384CC12FBCB925D39D9294813418FA2A183FD723FA57BC5731 +F39537E255E6772C996BADBCD48B8F9EFA8C2213DF230B22C1D6861C1A36BC67A0DA9094882D +7C768C78CF0951356EE7BE291B52815590405808A9BBB6AF833D6C96AF499D124135C2F3B1CB +29BC6C635DE790218CD77AE4E8AC279FFB0146A5153C1D619C25A53B90D3A0D8646189780389 +24D585FBDBC2BE3B9FD9D05AB2D8DAD8CF0625A432B8188BA5960D082F2EB504333284FE58F6 +48413D7B3E48730228A83AE987ACC62321C5013FD21594B472EBD68B460CF3891E681F5F2EEE +F9276F47B7FEDF1DACB212544ED469155F3D180E51F49E2834BB9469573D85520E809D9CFFEE +3418DBBDB278DDF5EAF0A482C8EB9FB53C6B79BB596E2DDCBB7C2C8EF93A9428AFAF20C0E98A +E24C2897D025D28BF34E07BDCA46970BC8B595C0B2A908AAF0661A6CBCACBFD4B66022279BF5 +05FB131EBE0509BB9EAC63B77FE190AABF1AB10B9C8760D23D2C53971D35C51E19BA4C34BD16 +07AC49E755BEB6383673E41EF0037DD985B381AE1F09F1F49F1286E5863B40FB9D92F96615A5 +9223A1BA177B4CD15A7BBF5932557737C50CC7C4DF71F566A13CAC325B2BCD9212838579AE20 +D3384D9223EEFED42E6BBC0D665A9DB6B16A63077656A5F794D93C1F0FD2AA2E8DAA23A0752C +D091A77C8AE6B795C11B84F7024FD977B2BF43CDCC7BD26FC3095D0BED9E59CFE1B5EE3FCB57 +CB4A5564EFC7AE956A672678F2EAAA483CF8F93E1A29EDFF84EE1D314854FF0ACE270A7474F3 +414EB47285C50FC17349B27A335F2F1126A482DBFEAA2AD21B1D59EF38F6B700E1F652A9B136 +3ADAAA8BE3D4D3AA4EFB035F02827688E55B2D8C939362D7875DF5096387EA0A79B4254D0D0D +C1333CD2E4D7A43DB074133BB39A20D3776A5373EEEF63B3A9436CEEA835006A3215723EA414 +ADDE588559828E7482A77E64F6003AB897F9E52845EC282758E2615FCE742C5875EB80C3B18E +9634CF749A8D2BD43656FD1864CD05A873895AD6B317A799D25FDCCDE4F13CADA2C4B2DEC80E +8E99D841A42B2F9F8E036EE89251243053CD5BB00816B45C960EADA4C7DFA3AAA84C9A72904C +33C543174FBE17BCE41577988FA729E6FDEDCCD86CE39B8449606484C4F0D2AD8F9BEB37DEF5 +5BFFE78D56424A24CFC49A395018C253477A803F38E2003C260A11ECE075205C8B88B2351F2E +6828D51B52CA104302B1EF1F45A1EB258CDFFBE523C6BEC21640FFD238B7EDA1CA4AD4C63CDE +C2A8D247504DDA597D8C18D8B911563FF0163FCC1866A077AB6711C2E79D07F500026BE5674D +5BBDD7315508161D38916619E52AEF4341F54FA81C287D5863585DBCFE5CAF75648E9CCAC11B +8E644E9E436BCF917E54F163D14F1CFC7821AD7644097D22F330641C0D40FD3B48B39AF9A38D +22907D6F280FEE53E714CAA9164EC4BAEC392B4AEA122BCD9962C0D921DEE99BC538502D18EC +A47F5847B4F7BB8A54A4E177E62BEAC2E2578C990538902A38A822E88B453C12C3968ED3BBCB +B47AF6F926ED4546C4A2F58FA18854BB1FFC72EF45EC00AF2AD2419BFD3E14AC4B993D165EA5 +7E3645B86466EA4A1DB51D83D3AF942C18CA0EBAF6E23F8084E34451F01D99430A4F81B63AE7 +9BB6D2F05C8C8AB451597659858A225AFE1C8E95CCBBF9D1F9B3217678CB0EC45B126D043599 +1F7E185D3658602B6A0872D1807EA9E3B283D59EDB403A0D05FF16520964C4F9013B5E2F3769 +2FC67720E7B78FAAB441B49CB2923EDDEC042554D39B57ADDDD77D62521C91E3902A19E50B50 +5EC649CC12D740F2F2D4D0FDF3EEA1E17009FE6DDF6547C0E4E88DA1AF558E7473B0A874500E +1FFB558D537C2A48A0887C0DF5B4F05D35857F0F8FCA792E722CCEEA9459A3B1FC46E486BAFB +997DC216FDD3DC1D93FF650FCC738DA1F347F4E5D323A5E745106096B65FD609DA87EC24992D +00860E417CC8055BF2D2AD0217529169B3794E1BE70187353DCB4FF70828B99D784518B0DA65 +41E376E088B105C1FEB84183B66C2933AABB3286A8BF977668F11B8C06967F09DD94694CFB12 +DAE6F37416BD089513F9FF98A574736CABCD809D84D7A38C26026746F978102A48CC782C4E1C +A386DBE488D9C1DF97CA76FB87A5CFDCC9EAC9D4848247BA38A34C7BBC395ADF3D15ADD8753C +8500F1F84DC1B0457B96D43B43E1B6AD271E23A3F250CBC159037571D5B2FACA4146EBC70F7E +720947950F2A4B87F51517BD9885E8B3B3A6E3A226769A5970138C3DF719E7B56FB830912D8A +47AD8C6DA7B84AB134918EA0450C838CB16B85161B538F1997122B0150FADF8816BD42F54DA8 +627F55E848096FFD8F2449CD9C5799A0F757C51E22B405A13FF3C79015FB9506BE5FA8555759 +A653227C455AB0DAD1DB8D9E34457045C29CB8D2DF0BFA504F5E2D5A7895FEB0F650AFB6E58C +21E27A75BF28CBC2E850116FFCB294CCADD3BB4F4F65D210A0482A6E873429AC429977FA0566 +8A20F90F459C4D8026B6D545B18F40666927DB185C602E4AE89CFC45B371A6F8D22D8B125BA6 +C39AB76E1E065617D90BEEDA8B613A52088B6C43EE5CE19A217B26EBF234F561EF065F0EDE13 +19E8F50DA6B887FE93CD4F93D2126C836796E75076F0A272A846F07A43A61E5957459E6DEA62 +C35472F9DA03DA7479171B34DF6A3C5E9B266016B9A4258B7BDF2F88A46D25740DEF40869440 +296021BDEEDD7232EBC9AB9A2634CC3D9C96B830F8BF5ABD7058FAF94B44B33973CD2CEEB60B +7DC8A77D5BA4B6ACAEAE9967C5B22945957790B86B5414288CC721C2B6F4D264617A5A2D5306 +00010BF2680FC9FC21612E1528FEE54C37BB63D8F25BE718EF865814ED8929A92430780C16BE +9D693BA8309587013AC2C6D38E6B72E20085052FBDC7A3FD7E5D6732B14425DBBF5BBCEDC8F9 +43D78BAB7FB2FDED5DD51B76C731732638B0DB4C1E0F8E0BC129E74558D232EFCF51512D8300 +1B127DCCF083DE1F4FCBF373672F39676ED3074B02AC43656B5ABC6AEE4FF3C71B6E24A65C9E +B7AAB774A85305523459F1FFD7F6ECFF841D3BCBD4C315299FFFD30359447580731B3A5BE473 +05ECED9E9BC4C39377C1FE1A3745F98E7E26F0D47120AD56E144F7B257BB14BC8710510F942B +8A4D63BAA1B18BBF866778CEFDD9D1FFC0C51AA174740A5A1378672803A40D59FB3679E37697 +B2D94D3E180F17D5E25AE7305F939C0E263247972856B36CB455D3112095B0B2E13D55E1F053 +D9B7B60F40710AAFFDEC2139B1A783A8EF2AC87D3458495873757323F318FD79AF79F8223CCD +F9AE84AA9A1F980A0D15BCD6C5E04983FEDDCA836E0D5726049B6F4F9C974AA4F4CF6E652F1F +A9DFA8A1E1BC0A183F438D9B47884065814AF67B064285F4AD386D621DEE3E240ED16D3D5A1F +E57D5E172BAC1376F86BCDDE43D2109CEE25888B8A012DD5956152AE0264D7E44290A24BCC55 +DCEA91B0689D58089A0E9D51A36B3309C09B4F72B46F79C76BCC2449D8ED6F6CCD07D5B2B9E7 +F97DA2A1482639DD904BEDD700C049E7B954001523AB66DC94FB2E89132F1FC2EA71CC5DEA96 +867E773A8626153EE6FE324012F769A0970BA87FA3BB4787E5223D66597319B1249DD5FE8652 +AF5A46C0FCE1B038F58A4760DE536FCAC593134E4F90872A2EB509A7FF3A2560A43C6D809F8C +1BAAF059AC7079523751CF228BF9B92A82FC991638FFF960D0173CC90B8587B204E8476C9357 +8C33CA13A80A0D808C9AA6CB76787BC836A7535EE5410EB65A51DC7873654C64978DAC5091E5 +4BED187EA116FE777F7F9ED404E8B42B32742D84AC4F8257BAC2D1D66316C3A89427ABCF00FA +66A23D5A293213847EE1A7A9E201E89831348FA1125B4F1E4CF5C3C09C6F6F5DCA8E79870096 +CAA1A338668996174ED9729D9EA18F5613400556D1D072170A92CC8B9115A5110F2A66E0DABC +FE80B53095B21056EF6E940CDAA14267C37716020C1D6714E4047BF869D9499E7DFAD93D00DA +D158CABEF746827B20B8D1388D3CA20701B083500CC378FDC81BDA20FC17111BF5D39B41A25A +23C583F53F4F64B026915F573953B418F996EA4E82926F66A39612A0E754CF468E163D603CE0 +D2A78BD67B79054E451444FDBA88959847A6D9EA2F610ADB9AE7B1884993266A03DAB03A8C76 +FCB99AC852B7417815BB0034CF16F0721AAB0B439711132A4FE97F088FE30769D8DB62A7BCB5 +5BC156A138AFDC5A7DBBEE2D7C26A66C57971D11439EBE66B04414C093E3D4B7B0BD6659B3DA +A336D89D559E82CAA6BE48A80B662A96DCB0CAF03BBB24D509BFD132549A86D45F98F5840919 +1C7FD26E025D6F6F46872DCFFDBDF9D3AB915D23CE1A112E4B2D4B9C66B2002208A6BC7E0B46 +74BE1342BC3D5C92EFB8774DC4BD5DECF97C55C33035F47D3281D9C76FB550017F20A5CB19B4 +E6AE17CDFF3EB16937380928DF6314C37F61DB0F6EDAB5C074B7DDB30F14DA70C41EA7122E0E +19AD5703F015A210D918956A501415FB130816957E54DA094E88FC4F5A550ABCE8C30B3722BE +8F7B03DB65B84ED18176127B49930C9E5FFC144AC26B76A6CD7549A51136D09AEAD0EC4407B7 +D0C2C97503BD2C397AA66C4B8857E41AC5803ADCA4065E1CCBEBA0A02405B8BFC599DB306574 +CBBEEAF034C14F126134AF3EFCDBB3E3BB280663AD31F9F549631842CEC206FCE71353374C3B +206FEA3E5F06FAB69661E038A952C74C3BC2FC7758E552374183D24B5E97DE82CF00CCDE40C2 +5F822E62F52C60ED1855FD189450A3B631311E1EB2F70BBB979B0295FBB55C0BBBBAC9BE590D +DF1363E7FE7AE70CD3A07280165CA69C2E528E3DE40EAF8DD66AF30E237D21010CF7C3DA9255 +3BE84F16035D7FAE9477D91CC9A76D65923278C400730384BC5434C189E396593157A5C13C6F +103027C24327F2CAC5CE9FEF88CC8FB8C80A99DAD00B9A8615D6A0CB468CB72E538486F1835E +47E9B52F2EE2209D656C7A7611C1CB836DA0064BAD78D06411778F9AFEEB452C05C8079F8F83 +E6325DCBC2F6F38490D1E4DCD804D540D79BA37B110F04E927C92F37CF9BB273840258C24D57 +C7D4CBCF5CD05C9F14A946C98C63DDC640E613C276B22C1AC6614FEE12FE0C82A358D8596830 +E665A6D64EB9AF8FD7D919D610A98904CAD85938361C9E9EDE0130F1D76C206E2213484ABF0A +3FFF2A395C334A9248E74C5FE0008866744282A16030D729C4DCF2E951288F8555D9285995DE +ECA7EDDB964AC9D2DB9A3A1BCEC3190C08783AE3A446FDA8FC7D4D8D7584D9B951DD9D333AA0 +9EBEF721140CC98E9AA9ABD0DA6B67842C0ED49630A603BC96ACFDFA260EA6043EE0472196E9 +2E61A848B7554578057B768EF452F56193C9D6D3E6D5C72415B8DEEE19FC67BB60ECA8A93804 +C1444EAA192F31290A46EAEE17A63A3A6E204A4B1E84F92F7208DBC8A831097C7997EB7C76A9 +A3CDDAC1E9EC5CEF746F1EC1731C86D7D330B801462314F88308B2799C9EE1CFECD1C9932CAE +DC2F8D9FC835824F3B7DD1612EADD320A88014E2724BCF26BBE299B90BC0E2B10878AF56D64D +4F70E7F1441C8ECFB7D02DCE8DEF1197DDAECDE69AA2ADDC208D78D0F6413A2FE60C492BE426 +944AC3E34A7AD71F1611B1AC19F12E41EC979D02D28712C5AB4A2C79AA9B3A7CED32BE667CE0 +D45B32C1ACEC3064E2E93E2A60CCC93C3FA2E233D974EF89C48F08CEB6ECC249E017E131AFEE +964DF4B3C440AA522ADE30CA43A890741B717FCB79D4EC849AA2A83D5719BD6D78E210D30567 +BFBBE05E0575FCC2BA82CC0CC51E3588BD745B883992A8E3EF9E07BBC85E88832BAA68A87CFB +4F566EDF689DD08738D3CE7889E3019F821DA3ACEF63ECB93C773691AF73DF00FC78FEE8940E +9477EAEC3867E844D879EB422B8A869C5C15DDF3CDB48854A2628BFDE565101B817646D9E015 +F21378D45A6D6EFB6A51071FC70F91B70A2AE69BB2B0FC8AE0B3339EECECB103DEDC142FD9C5 +9E3164B7C593457E296ED7337966DC77A01046F7D2D643283E7B958C73C410B7CF2F9DA6F89D +A69493EB8703EBBB25DA2B3EEF9B17D9B50DA2F690BCF742662EB1742CCC086AE967A9F65B49 +7F4632B1E182DDAB3032C5FB8B35AEBE618E3855C27D95A8F9819AF2BB483FDC15018198C834 +42562D7BBB2394D5588D6AC1A4CD133810B1BFC5C61941F48E9FD9F61E05E55D6B098CEC924F +E5138D0341D2089C75109CD8AD0799B7BA31758021CC0B3E773FAFC0F2D989481572076CAB26 +BB1CD4793D444568295FDB245149F711A00560350E0313DEC45575B1E17C861407D5B7342EEA +21B83814682C737E30075FFC0F18A16F96F78D9AB8B64753CD43604C76C341D4124646733521 +02D904FF6E7A3EEA87A725E46AF1C726EB96EB976D6C896BF8F07EB430A0942AF1E92DF61830 +4142403986581AB40220CE1ABDEC632A69D0DEB63FFF04353C09106DF435504BBB6732EE207F +64E6471CBDF58FDE4D4DB1F0A5C222BA23163F86638E8A52AAEF32B582FE54F007B56FCF3B4C +17AD06EEF55DA61DB277FE31B9ABE4D57647D0120DB2387B91A2D0F4AB767CEB5AF14DB82BBD +8F8868D0CF606A44FF67ACF3EF99195EDBF24F32DFEBC596D7040FD6B40F676AD3559479E753 +C937DD83CB1002998FCCFF1C8C207A4A9623E9F14B607EB05D79AF0F4942B6A0508743867CFB +5E2F5CB86EDDA1C12C1AAEED9F775BE4D7D60F1115762A5D7FCA44154D78776B1A1D36B495B0 +2E48AE741E6A50AF43F8103CDB914FE9410C54FF64B3B934993BA085ADFA8D3F85C2979C6CC2 +A4014963B54AA56AA0D00A4EB0D64C0851E3B1851F927DB1CB1808A149FD099535EE9CB0DF20 +2AB394E645507D41BC8AB7318A2ED4D38708BA3853FAF8AD455993FA238BFA609C15CEBA6611 +4D1B20E1ECCD42362DA3503638D7CD6077423D6650471029330B4F75B2FB0D5AB9420C804E4F +9ACB759B2A4E717FD1E402559DFC3A031DDEE77A32A2CDBFD955F79EF7D11D82A106FCD50733 +AAC9C285E3418D448FA2D8697A110D9C746C58458433511C4C82F8539DD7CFBB07C82FC68CC3 +F21852E31D3C39BF7869E5AD3706112B4E6602A0F86C22F21432B4887F5466429304B9DA1623 +004BCEAAD475A95716E0DF88C3BACEFD23C45EE569E04478BFC00F78DE1CD2CB86F389870E8B +210F1D4DBF17DD89E4A22CA3CA25BF5E53BC20AEF0DC7FF7C94B02552C3B156788D404D0F0E0 +8568195C684DE3FD8F46E6E763461B9025F74E95E1169FBE987DBC92C61B118FCD08243E0E57 +F2AE0813690C44789A24CF1790FDF0ECB274331C0A1683E3269C7FBA6C3DCD9351D4198338DD +1EB5FAF267A662A14E335C1B01C62BF3A5CF781801C7D82D8BDD02F5B2B1846023D16638FDA8 +BDD4DE1FA174617A2BA64B567E7073C5F962293C1881A151031CF9FEF3488651909B0A1DCAEF +86E58B44E23A9CD3CC1FB318CA1E16E1D9AD522D5D4077D8CA752EF264C1DA854A1A23925C75 +2D85C2EA449A599D038E57BAFA34E06D087988C637AE2848C184E5D2217E175A9B9119AED8F6 +5C1E98F5FECC174CB30B750618080FAE1C38ECC2FF2D3733CC95AD0F56816EDAEBF8727F21D9 +C6047006C2C0B9A1AB9A5BB0945C2676846D40FCFB38AB0B6BAA44DD48200E149AE3A4479B11 +2363A9FA84B1CF3FC04545C477A32240076610E2F328D62D4A8CFE35FE7DCDF8700FFB0B1828 +3E74396C25BC678C609A816106F085300FC7C85CF83A1E16E72D0D569A6C596DBEE4DDF79E8A +CBDBAFC07AFD6D6F9DB475411A14883F7BF7B8304A3BEF8F55F1299F5143908164075C51E453 +5A6057BF70BC4E3B389EDB0BA156B871AB95D9866E9B30DE0090AA0108B40F27BF2053EA7CBC +F96F18AD951354ECCBED9E54121CA47C13768E36CFF2325693AB4ACED5D6CE3C3FC79E41F623 +B36A2AB5F41BAF1DD685985B7B7DA1100FEA9B0CCB6FBB0E3F171D8E2F2E8437DB7A283E8406 +5839B7DBF0C94FF1895D0340B6424652AF684135B0229BB2341F8AD2C4493B3117700B57220E +F2882CF2039279FD2048743638EE574D37BA0EF1C80127F52E751C5D0350815DC4D797CC1B1E +80211AE5C73B471FD986FE32DECAF7D0207D2009163D03DB32CC92D093301A29A5D61E24887B +F7AFC6C962B805B48B363649DF05B17263D5EBC30D459516D2C741F7C62CDC3476609863250C +7BEC41D9BED967324664CAB51D38E6C96C24290E7F6DC33E10A3704B46F466D5C120F7140C25 +4180D2E00A88CDDA63866C41C389E5AC6A033BE8BF752CB69D37162CA3EF53FDAAA47F9D1297 +AB17B6004E0267F09D1FF14639B9644DAE2B9C7C4E89C028B44F2F85BF37E948B12C936E813A +433E30A01F804514CE0473F68A4418EE8E8978FEAE58FDAA0C4E688F751231E0C3503BDA8C6D +9BCF340FC3639DA37D31AFAC5136A2F82D34E27C2B51C7817FCD5C1774C0EFEF9BCDC057D59C +B7A29B8CC665A15C0CA4F068AD3383C8AB94ECDA159982C2B5AC3F0CA46CCA401853979A8833 +861FB979373E9CE927C5C148C5284093131F89D111F6C2E92CCF32CBDB50C0732A9CEF8DCACB +FE5D5D704AE82A261A2FA3DE6BA9034A068C9DF7B0475EE740E8192A24595E8914433CC4CF55 +27B9FC69F39EFC279FC645BEFE9A2C7F6F45210089D22AFD404ACE2AF47057ADC0F3572C192A +23B80F75ED674A45DB5977111FD72AE38676AFCDE9AD5683DD33206740062824F6E9C6885CB8 +339E61A6AB254BE44D89F55D6876861DB6F04512351DBBEC8D523AFF77650515992B79D0407E +A148C6AE3B22C7A5A17565901543FA9F3F097CAEA20C7F5415973015E1E9A09693246573CEB2 +360DBC46826D39E4E4006D677C486F35907090D115316C99092444CF8C26F9852B43A95DFFCF +5BA5E72493590666A6005D33DBBF62B48413CC84D6E0201FFE1112DBF80663ACD43050D4C1C9 +1B4B898A79C7E5DF7DA592291CA98F77416217D7788A430DC8B51E248DD4EBF3AD1CE9859B2D +9A5760CB72AA6A8D57696E1AE18FC7C924028ADAC5BC43A202B1810ABBEA04BBABAA8B51B95A +268CF1224F9E5C92E6B0066FBEC793159CA58BD448C553AFE83B50EB41705D264BAB4DF435E3 +F88801F7C1590391C0EB73CC80C58E568F1D3729714A4A137DB49DD8A192AC962791A2AA97C1 +679E8B389FA8E9B3A56790B53765818B6740F9243E127B43E9CCF0517388AD3B4C3CD8AD1BD9 +DF748644098C1307398AAEFFDBDE2AE0B089B63970ECD69957C97F39B046241765B48DD3B505 +5FDB58F89282B9C499A494A5AD3455833C42044F8B35EF0EF3BA4708DBE50154D3846E3D9E21 +5587AA1AE618AE0A98A398BA438A3FF58BA375285A1ABBFF1143CB4CCFABA076C704263A95A1 +839DE3B01E64382784B7BF6B91189C704CF7A9BE04EF789F5E6A20F9E495FFAE70B6D44F47E3 +2CAF7C349082DF7956A69C51D998C1AF9A16881E08764B3BF3D4A42E44F26C4E29342302E828 +8A76F2CA1BC5C50BDCCC73DA3E123CE10837B978C59F9D2F18910B950C7929B6BF90D1E5815A +29BD06B423681CDF3153BAADDE8914334D890FCDF3937A46EB08D42D665E74D0B917198490BA +3AD945F5AF35B56069B6D8BA884F567B219EFFB43118589A31BC8C8FE715148514B2BB614D7D +FF502C408BF2F8A80D2F588594D31F85FC3B273A3D4EAFA11AB14D7D639F5B609BB816324094 +ACBF3A6168D3B8A03358B2B86F62065224B8C8E0F9C300C39C47DD98F7710FD16E8F04713617 +454A069D173E11750AB14E618D7F9691FA61B30D0CC8DAFEE3CEBF007E41743A3EC066D712F4 +6484C7D9306B8D9D0FD6C871CB2F149E5D900DDE607452CAAB956FA376A588DD9F0B1638C298 +58032A1E5A563C7684F49AC82854C810F494C755473674EAD645E9EBCE88E0F9C22BA629A7D6 +E500966FFA6F9F5F65DC2129E3B0894C4668035F1420D223639756ABF57E45FC25FA6C3FD1D3 +FAEA2C4236579C2A907B621457D530080318640F3CA1899C166AEC264EA99F22FF634C77BD33 +88EAD5A60A21E259AF0A4D91FE697A944E8E5A4771037A18E3A8BE9F32C5DB28C146664A84AD +977AFEAF67A456B1167D0B226368B71A77ECE187C999C36716DC097F53E1D0850C5F1ED6BA28 +310B068E1369FEB1870F49B25C5A8D84FB1C177AEDF3B5615D6B6AF573F28E07E4C37A3328A2 +726B33E26BC45A19B7382914F275482F119E73293CCC266943FB4C869D6239D3011B753D58D4 +8B571716843F4102B4C93B513D39DE383D0A1FCC2F117A268546A89EE498B2C44E5EEA5E32E9 +E4964B47D863E5DAB024E6FE6098E95BF293376736B22FA55992C78DFE592CB0E2E2A3ED355F +0E10F0547824A19E77B452EFA07A1DC8C7F72DA14192E05C0AAFA4CFFE2554EA25ABA2C4876D +ADCF98E19F7A2797681C741D106E0315F306643F0B5203FC98515C7DA122D1AD3201A2E9D5D7 +1107B3D1FFA83ACD1A3A121B3791CCF24D03BE9F05A651F6022D005A82796E87C8ADC84497F0 +437F74B4BB984C665A32BD0B0A840595EA69399B06A1B30074E2A6950854883CFC0B832C1752 +29685B6534A8A1BD10822826E16239C61B4033EF04AD2F71F662BCB90D1653CEC8AA9956E04A +BE68C9CA8292DEC1B0843A4D5769B47CA4155EA300A6BE6A8F412DFA1ACD464D490C5B9C2DBB +6519EF2FEE82B13DA7FEED57E268CE25C9506C38736CF943A43E21CD6B6596104FADF4950B5F +668039B77E48EEE7235996C15F93BA009A19BEC04AB00903B346AA70888C56151D581BDDFB2F +3373CF68A7A92F741853A09188B1EE9FC88F42E32E227ADBBCD8ED82CC30C0F9B128B9B12D53 +E2DA784C2095B824838EACE7909EE6BB95B3A73E2FB4E7CBA1948B573AED3FA26919EBF27912 +3EA1504362225F752F53798D8B2CC08D1E0371B68C40F39A9E7BD299309BC3D2E91D2FAFAE27 +376ED592A6B76352ED552D5BAC4FBB5429562C8F083B05079D7E4B86C26CE21560A3738B9670 +8751E8D5EDF462AF0F04DFEC0456B86724F4828D4B2710492429E368E904C7BEB63941118CCE +259A6429FED22F5834128C3964387698EDA37485655608ED5D5A63C2F03B8D6473EF5445B138 +800620F9D4AF1EEE672C3C806095FA00D994332B2DC6EF39683C29CF8C332449B58DB4491B61 +F276A06859186A562CA92F6C046CEE73C3114DDD7C12E8681A800EB5966F5940941BB4F57897 +B69D19800781987294C3626E16E76B3002921F4C1D4A42F490D0D51F90BEAB067DDA1C799F66 +31BADC07C3545386F2CF35C8E42E72E219316231E9136F6196232BE5144B6F9E2DB221FD6F7A +4A062B218A839600CDD58B3A769931DECA90FA4D82ECE885B649CD78BB76E9F9693950DC5846 +E3C2121EBF13E89714ADF2F957502B2E3F0E75D909AD3B09FA165EFC420A3ECADDA6F4CA870A +D1AF7C64D59CC8C433394FBB2103EFC22DE951975A0AEB9E49C0BFB104C24DA1E775D84BBB09 +7328F070A6F4AEE5AD905C5010D6B3521417D379D7427E4651B0603B31C732FBC6A2438C00C7 +15F1A1A6BEA63D146793BF98A29812E7BAE941D194BC7D802F41F7D26AEDF45CB4BD9EC168C6 +8438268CAF44B5D77D34523BFD4820D919D8390239B5406AF05F27836567A44DE0154738DE06 +179E7382713DE73310ADED9F0233123FC36080A21EC17931A2EE02B8A460E29B593677B88A9B +107954E42C4CA7771E474316405DABACB72C3105963C176077F6088E7B781E40AF19F618D8A1 +9086CD9062B913E4A6DD52EBB17F199670426F67E2752C66F7C7819405AA2C36A7A8676A83FA +6E29566D98C6C170D2B2142052980024F9AFFFE974B8191E49B4566820F585CF4F8D0E94E1C3 +817DB22D17C8660560B08C7C24A15CBCA7FBF0FC02392543BF7C377A356DEC6AF11006E76A7C +EE7B0EAE8DAFF77EF6F57B870BF50DC28687CC06210448EE7B30D59E8614F9FB4AFFE7F1F359 +554E156765CACF2ED3A89C36CA72F44474CB357380D9A036C9BA45747E90F0644E4070D49A32 +E574D7EDF5A96EAD456AC97976DA5F58E99D9B87B42B41B9B73DD74D803344203897E3736E0E +0C8F2EF8CB40266CB994EB9771EEBF2542F706E4F1F9D28B1E86F4A9C825DEF97D611D08253B +44546B99BE8DE28E07BA0C6209C7B2B27465E364CC8A48123F62527F998A58B7D28D3819B677 +C2599BAA267930A7245295F7C664F2EA6518F16A911BEA864DF18553329FAD98FBBA19995FE4 +AFBE1A539E1CF94D96AA0B3C352AEA49204C0D6B58FC715D2F351D81614CD73EF8ED1846BEAD +319D747238C07E89776C232331F0854A648A9B3FCB8953BC9D2CEB2D0D0805FE95653F0C7E57 +88DFABEE412BC154C6292FC8C062DA2E3416A6E1EEC8D9E60E91312553E4903A54FE3B5A880E +4118B43584149ECBC40210433899B9B05F665B5A78F9BB5863216FD706EA9BAC174B635D3496 +A7C82BA9F6BF3977519DA3BDF26D64519ABA8A4CADE0565B41EC5ECD40863DBE497EEC01E5D8 +5C0C83A505923969FBBC543A77E9630C059D6B4A52A98DD39AD9B1274EC384D0802270527E00 +4F7DC1CCC96ADEBF4B356F1DA08A149E68242132682146420038F05AE7737FC643339BC98F3B +D1EA690716C966DFBFA6D35FA1DD742290A5A9BE62B51657ACD103B5DEAB24D8FF826EA348EC +0CC525D82A05194B31640331C7EBD0CC3DB16B7096C6934DC7DC0F40A7B56E2BB6C9F2B694D9 +48C06983EBC19F52D6CC2CC34356631FEB5BEDACD0B3067A23EA6E912F44DFA1455108787E62 +A81DFB7E686C7A75C781CE3D66C0C001C2C75608D248525078BE12B94F9EB3AC669F671D96C1 +83EB6D837002DD0E9E0FB73A91BCB2363F0A9350C7C6741D9CC8D25B6AA6E9CBEE2028708BB4 +AE052A7E2A099FE34E96581A4D9C3D544647CBC613785A03DE4594F60E8FBF538DC780690568 +FBB9C1D8ED04B4A63115880B2267E126AE813984D2E1FACC6DE1D26D1A03CF6A6EFBED9C3A18 +C16808D7D5638ADAABBC73B0D006618DCF242A67D305A679BB4C5420E40067569C81B4922DFB +350AC9410116E433B3AD2F871C4A68ABB05C12E84D817CCF27AD81E944594B4DA60E9305E6AA +7F556C1CDC3EB50E9AA72B98F832FE1E6564EBA18ED698D261014F55F754A8E24690240ED9D7 +A042C7B8A3CE65BEC8E5EA478C40FFD797BE708E4BA9DA817B14BAE573C778E0BB23BB0675A7 +9A0612E0158B037EC58998853A0BA5383DFCA3648D83B5265C62D2D3765EC7D38319B953A588 +874D8CD8DE581059A5FB260A96DE88BFB9A1D75D0BC2C60AD550A580399A02A6A1A583D43AD6 +E118F1E7A4F27373D9BEBB3211EF45E6EF1F6C382E383CDABDED0AA4F1CDA8E4A23F93A3DAE9 +7781959D70F2D1D34C259E345164DAAAED0B6917F66E7787EA2BA3D739B4448BFAE8A41ADB9D +F166FE1B27DE30F40DCB2B08D939D2CAEAF58405C73AC28B14DB7E028F026896DA40CC210A3F +96134F38D06CDC61DBD0B221881C38ED6A6BB3BCDC7BE9E365E31B2E11EE08621BAB960256E1 +E83EB2C509253B455C1CF5AAF9E5A932830157255600161D72B337CD256872F31FF228D5AA68 +740271F19C3CE995DCD1063301B14C205A0C643A4C4B0481C8117E660D5E02CB47BEE733C2E6 +22E6235F318F4A21FABD7809F9F39BBBFBA1AD133691A4690FF0E4036DAAB94C335387E39F4E +5CC3D33F1BC6D3E4CAC16E48BBC67ED2D0CBA0429EA21C6F312EAFBFAF71142D7BC061E9801F +62BD73DA06D80A572207C04DD826CAE8524CD0EC0C46457DECC6015B9B9791718C516A35D4E9 +F5E437BA54BC876910E94C07CB84619B86A63CA76FE064C186184B8C7A1CA1BCDCAB964CBB56 +5549E5F6133FCECBB37727B642F733EDF8AEB7D41E7F3F7792E67391C377CB101F99DF275DAB +B42345878343EC52008F698A8939AFD236FDD824E7C7D28C33166F0CDFF5B1ADE8728CE3936B +F137FB04D9E9AFFBFF04F1FCB2D854EA221FBC6E61391236BBBBF487220542801F86F9E79C0B +F4D436662095B0CD4323C153807A79C5CC1EADDE5C60341A1CF458CBEFD979890D5C4937E339 +9B77FB65440EAE0E8AFD9C4B4EAED223F4501D530DED7F3D0D696645D19B46D0811A1FD1190A +2C6B352499C2DCE4669C6A82F8938F98092CDB9C6F06F0EA50BF8937F00416723F1E1B6E1E14 +6F101DB73F5348C10DEA3A87A5193F74AFFC513FC0F7CC28FCB83D29DD6A5035414F712E10D3 +9D372900717E7E002D9DE09FFC1F628230F5BF5C0BC9A676E782EB8F6B3AF8487421B447F00C +B05CE36F4E2D21516365FCE063BF429E181396AFBAAD0CEFA8881C5E02B2C29A53C2C08ED707 +A7FA5A9F2CAF67D6F20D2F6BB40F250425542ED083AF7C62096FF69BE6D73C449B743D5D5B43 +01CBFA4A6D0146675AE16824DD84B691E64F55A552E25821C089B18A335904A76E3DFC9A384F +3762BA12BD2353999285CE5C7DFE5E547BDB48586FC2DAAF40842179F1B2E2DF13C4B64C2911 +1B5B71FD9ADB84E8893AC0FED40FC99EFA242C0B125D30D24F402EFCE163B604AC11CD9E9B2A +F590D38FB8E187B2E4AA12E2189B0EC3BAA897D6FFB39DD2709C72B07A1EB5989DD6F32290DD +F1A0BF56C6F478CE75A99D092DEF06F4A2884683C5B5A15FDE96010245CAB7AECFF61032517F +3419AEBD29E582AF003831D03D2E6FFA1F6B18463EADB364C620506F1B8193499E10B06E3913 +1C64DB97594B5716EF2C2732E091CA1C2686BC9929C0A08E8E720952BC87A565C69A28EF4F5C +F46103E4DAC8937D1FC000037F0D9C1150396ACF154A70A54D4149556F7CF9F51DA28B5A7984 +BAE77F8D3112A8319089D6DDDD2283A69CAB5CE4E350613FA7FCCCC6146EB681CDE9CB052882 +8610205C3EDF3CDDA6871D49939F114A49BE0182077DB2668E3BE0E7DA07128F0FBB3CC1E854 +0A75F3C83A5AED82E0DBFFFA57D90DB675FFF115A36553CEA35508F26FB1959875682EDEF520 +8B2673254A296472162BBBF24754C07073C5F65054778EDAF757C8151809BB6064DD89A00C97 +88BC4593CC48BA120D43EC598AEE39CE6EB1B68F5FF76D2C55FF3CA719F840A40780A7B3A45C +3B1D70D96D6884F200AF3E3F0061FB975B456C2AA31AAED55F2C72C6E71F7BB00B791FDBD030 +07185B497680FD7CB9853EF48FF9662F495913C38F5B67A969EC63FDCEB9298A8A8D53DB08E6 +CCF0DE974962C52656E83E84CF09C55374F149A058F3A618624CFC139450BB4F8FFB76EB5523 +8860C003730E7E43C45E1F72B04C787AF295B5C713F83848D6FB6AA087F138E7CD6299F0E853 +7880156CD96E2F9043C7C079C9BD67BE9D7BCAA451DDE3F3727B78178F5750308776CC79ED3C +55FB7EA158D27DBBCAE4F9467668757882713F40EF281D958B7D619794345E52275392E03264 +AE22D8D66BC5C9FDF9295BF81E92B8C1C319B2F1444AA389B0DDD7643CB35713A5E06EE0EFE7 +C4810AAB1EF544ABF11CC38AF6116FDBE4FFE96E01BE6ABB303E754D4DCB88443D6E670701DC +5F38121B8FA95F737AF71B09287EFDA293819CE9D09EC51BEABEE42DF1CE3B63FE2F7C7BD1E1 +B2E146167A1A2BC89C29D359661EBA5757D3DCB91FDA007E48E2039769BD9835F8D0ECDDA529 +F6542950D1AAFB820A8BD7D0491CC2B044FF9EC50986D0AD3BAA1B0B8D11A5269FE306F410A0 +FF30A40B91854656AFA6A28B62757ED6DD1C84148BAAD775578D9807587B04E7C63880A30F66 +1E3C96CA66292064815349B3B69036D238E64A6D8C84F1EC160C28732E3A7B8347902B572ED8 +AE03614437BAE6C7A1E5A796DF030D41CD254E856B4C295AC740A0D91472056D6D31BE639373 +0E230E2B384A09B1021276A5B665BE360B53F205BFE2524DE8CD140ACDC317E83BDD15B804B1 +81E57C8F1EF1D577A3B1525D069C3973E90061699C3EC95D7A65E25E292DA5BC0007E809985D +B11ED649951DBB3E1575242D48AD20989424E0E6CA825DE112B331DF311773C576FA58964A2E +EF6853AE4A59C8F7854C87C67005DAE657FB5B2BE32224ED61041C557D13CA53D6961702EE2B +39590E329086A1260F62C561D6513766F351C61D1AA61F89E75FB05F471FFC465B8D40FADCC2 +16DDDC0A99EE2B35952AAE47EC0B075431607007ED6AED698D5B73760B5E305D14FBAF2DA5B6 +1E4DBD723FD6506054F4643E341BAA75B2C53B42EC54733848D842D8692FC087DDD9D61906F7 +BE1AD172F0FBB330FFDFB275C5DF893392C12164C4DD5E157D39489A0D4D2494814C3C1751C2 +37B5FEAF52ACF09B95330F2FC2CA0520878AB0A8827AD9619E3EB190AFEA89A671C49845B5BE +9EBD1D6A099C554D8BE11C840725F47280B1FF706D54CB9BAF7BFED9236A2662747FCB16AAD5 +BBD8F2A8FA7891767033D8BE0426323A888A1B73DA2F3D30184E0E89E7A17851F55B013FCFCA +2972880F88E91AF87C469D5A0F8583B44813F9BF1AF5ECB3AED6FF77AFC6806C4435FCE7D12E +9F084429D78DDA99A573A62969B5B572571BC02EF361FE5065015D92D9D8C865FAFFE86F7805 +B91CC3F29F0A7F937314304ECB6290D63D8CF4BB41CF351219B14BC8BDFF880B470CA3E8C4FB +B86EACB1DEA880E9CFBBAFDA08E07C23A6CD7B0538BA1E310010D7058D2B8E688D975F1038DB +428E436B01C8294DFEF6834D0FD1F848C64A27D716BB8D4FE6B3803C511078ED7DA6DC8BD023 +FCB6EB0F8F97647ECAA2D719A1BDC1E4069FC24729D73EDDF1EE3753C7E82AB24476DA862AD8 +DC06D9E2FD55553EB8CF58D23D32EC2EC5D4C9EC14AFB2E6E03D2104CDD84211DDB4202C6C38 +07299ED44A537A26E2DE174E6F4C12F3E75C36E9CAA4ADFDA74457C7CB3F09BFF303E371B4CB +DC20C69A30C48AA3B6066677E4060E36524EE5521B6E09B254A66B38CEC59FADC0EDA5DA2087 +FAF6FBD114289CCD7FE0EEAC3908D116EB5828BD3B4B759CB36E96F4D7D79056D49743802D5D +83890E9F2A1A8AFE1CA22144BA207490FEF31D0A2E843228515640448AAF921BACC7E72184DC +F4DBAD25B9199D56505213106B8C984C5CA1E59BA8511849ED556CFB22492F74483B5B75C15F +B8257A7C8A7E4562B06CC219C8BE278996D290D41C5EAE2A353B68B33957DD0FBF0E63A1023F +692249430BFC9FAF61BF44715442A9D859EF42CCB4AF00B2A8251A899BF77AF9169556046A77 +FF6B19BE8677BFE8C30A061C83C42768DCA6F7181BA8CCBB1BA0A468BE0982BED6387343E295 +0648B447829060BC6209443FD403C59FAFDB8C6C07BDF5F5400CBA2153190D5DCB5AE4217764 +711F459D92BDD60989235277B0488DCEF9B773418846F7E7BB7F5D5144686EA558D532B44DF8 +68EA99FC872024107FB7546B769DB6EE72B43B0E93D35684B216BDDE1178B0351CD5C5B648AD +E9173D0F220E167E64AD1A3154039034FCBFECFD0784F13989890D2F18A55FCEFF708EA6B5BB +8D98B1180D70547AF291A86E30B8389A80C7D8FD3F08E430C527BBBF9359413250760B39D316 +F6B8E825C173513528D60B5EFD3FCBF198CD1B5137B17FE3D7F1002CC478D0BF2E4A56EFBCD5 +B1632908039E546225C4B304C9562C2955F2A8589C9781FF6148399E780CB8539721334204FF +68FED8B0F4F3B2386ED06F73012D1FC380613D4D3BB7E16C2A5C67A27FE731B4348E3EB19032 +A7B706AD771240DC2F8F7F61A950BF8DC4ECBC480725E64B73E95194D13ED1ECFCE859CE2005 +A10A89D4A8CC19F41A44D2BD72BB41357EF44F562FE8EBF0BFA4FC980E82CB050AAB41028B15 +0604B9FB8EE136FA63BD9BBD6A532D622B23F00ABFD6D989631C582AAA19A57CD2E5030D9C90 +E96090E06291435E850E72E5D97AF8B957D4BEAD9CFF2010134C28A7C3A7F6381B477CB4949E +4C7A319931F460DA1B90DE4A341B6CE16D273C0194926B34C6FA2DCBBE8B4A3939D42964D83C +B7B8B9E183BD435E4CEDEFA37AB2B4BD6FDD3BF4CD399DCB8C58D035EBDD28AFC6CBADECC04F +9ADAB3FD356DC996F964BA7314F261839FFB34F77F6030CFE323DE50DFA962EBE3D595892407 +A16862A9091CFC6E38E2C311E52640F359AE6CEAFFF3E9AF9E131C68FD939F30A23C4B3DCE7E +0D185E8D1F83D8C66B376BE9D71567F8B4710AC45EDCA0B4EB35CB5016AFB2462E048B09024B +F5887529FF6AAACA498076D72F079F0B3EE061E7B13214C04827FD143CF0A0B862A18CB2C712 +EE30E474DB44FC4B20B151211FDDD21A92C01B7D320EE4AC95356A25F4F2C591E1C8D3726404 +6DD2A039580AC9A48F702DBF7CFDF664598D1392EA1C1954BC1AC4B7E7144C4F8194419E48F5 +37C51F69B708556108145F8E0872C6A314BB68E7B2F467268C2A5BE96E396332645888D17648 +1B859DD229437AFD894499E144DABEBEFDABA4386AB1CFF7EA8C8E9B84F6D93D19AB775C7EDD +9BF2C1FA37BC597925439C663778DBF75349A130B4F6279D1C90B71D1FC6CE8B931ADB346E84 +8F333718EB893BC051761627F2A94B32A3EE9186F822F27C4825529C9A04E32BE26076E8FE77 +0B154162F205DE56A9A02706558110F73C4D69D2747C282BBC8E1216A3F1F40D2ADF26345071 +2E3416E27B5228E0E0068ABDB7E59110069BA58742FAFC8501E76787ECD651E0173F0B9C3FFB +264F451DC71F82AE9C6A091AB0DFC8E03651BBBB02ED830026F519CE05EA4C4A0BC796305499 +6AB0B670F52E38E750F11726372E3A3CD03727628AF1D87BFE4D638DFC072511FE338DB1B73D +E49EBDFFC809E31D3CD767E69300C1A59CEF4C8770535F1EBB9E0AA93921FD09083A79F8D8B0 +26D9E67770A892359AD37CF393E2255FEE4DB60CF9EE7AD45CB39DF513F797EADC2E23475C9E +BADD2C1FD65D0138274CADA17D3D8910E94F31CF681D03D3B156A5800098320981555D9730F2 +4CB9115A6A7E00AD5CC34EC5934E8CE760B5DEE4FB60CCCA5F420037DDC9374FA1319C6EC6EA +568FDF5DF7CBDF178CB0EBE2A153DE69E7A12A6A2AED1D1A475E56596801A5AF86D0893A31E4 +1E4CFAF4C7F6FB3B5B222121C2B74DBF2CED1F6EF270944D159651F34EF65CC34F6A0D70A2E9 +C417DB9E3716D8EC9565F005D993A4E2BD8CCD8FB7ADDAC6DEE19EAB9C336342D064921D397A +1E3F6400CF67D244FA3958E04037C2B2617BB2DC6169C0597E18506C6B27AF5EFD5CFD03F35D +0F54F815D0B05146DA25541505F469F4761051B8A5A38D26894F86F6E23474ECA9C1F9DB69B1 +EBBF1B53CF907FBF2946E5D1EB7EA1ECE95D3DCDE89A79D18E26FC546CD65EB74BBCF88AADF2 +B922183B3D5777640215D1B2926D0CC5511595315D384CF3A2EF09EA9FCF257D3E200683C1E9 +14CA4063BCC8EE90AC9765CC00113812A612A99B91689E9D6DC689BEF85E37F3B1EAF215403D +5D20664C6EAFE3CB1DD97420C8B4F0AA7A2BF749EF87AA03BB488E655DD9B3DE663439C6BAE6 +800BE01F6C034C9F26C5924C8E8C5A6322D5BBAE26C44A9641ACC2AB08E4FF6C0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 + +cleartomark +{restore}if + + +%%EndFont +%%BeginFont: CMMI10 +%!PS-AdobeFont-1.0: CMMI10 003.002 +%%Title: CMMI10 +%Version: 003.002 +%%CreationDate: Mon Jul 13 16:17:00 2009 +%%Creator: David M. Jones +%Copyright: Copyright (c) 1997, 2009 American Mathematical Society +%Copyright: (), with Reserved Font Name CMMI10. +% This Font Software is licensed under the SIL Open Font License, Version 1.1. +% This license is in the accompanying file OFL.txt, and is also +% available with a FAQ at: http://scripts.sil.org/OFL. +%%EndComments + +FontDirectory/CMMI10 known{/CMMI10 findfont dup/UniqueID known{dup +/UniqueID get 5087385 eq exch/FontType get 1 eq and}{pop false}ifelse +{save true}{false}ifelse}{false}ifelse +11 dict begin +/FontType 1 def +/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def +/FontName /CMMI10 def +/FontBBox {-32 -250 1048 750 }readonly def +/UniqueID 5087385 def +/PaintType 0 def +/FontInfo 10 dict dup begin + /version (003.002) readonly def + /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMMI10.) readonly def + /FullName (CMMI10) readonly def + /FamilyName (Computer Modern) readonly def + /Weight (Medium) readonly def + /ItalicAngle -14.04 def + /isFixedPitch false def + /UnderlinePosition -100 def + /UnderlineThickness 50 def + /ascent 750 def +end readonly def +/Encoding 256 array + 0 1 255 { 1 index exch /.notdef put} for +dup 0 /Gamma put +dup 1 /Delta put +dup 2 /Theta put +dup 3 /Lambda put +dup 4 /Xi put +dup 5 /Pi put +dup 6 /Sigma put +dup 7 /Upsilon put +dup 8 /Phi put +dup 9 /Psi put +dup 10 /Omega put +dup 11 /alpha put +dup 12 /beta put +dup 13 /gamma put +dup 14 /delta put +dup 15 /epsilon1 put +dup 16 /zeta put +dup 17 /eta put +dup 18 /theta put +dup 19 /iota put +dup 20 /kappa put +dup 21 /lambda put +dup 22 /mu put +dup 23 /nu put +dup 24 /xi put +dup 25 /pi put +dup 26 /rho put +dup 27 /sigma put +dup 28 /tau put +dup 29 /upsilon put +dup 30 /phi put +dup 31 /chi put +dup 32 /psi put +dup 33 /omega put +dup 34 /epsilon put +dup 35 /theta1 put +dup 36 /pi1 put +dup 37 /rho1 put +dup 38 /sigma1 put +dup 39 /phi1 put +dup 40 /arrowlefttophalf put +dup 41 /arrowleftbothalf put +dup 42 /arrowrighttophalf put +dup 43 /arrowrightbothalf put +dup 44 /arrowhookleft put +dup 45 /arrowhookright put +dup 46 /triangleright put +dup 47 /triangleleft put +dup 48 /zerooldstyle put +dup 49 /oneoldstyle put +dup 50 /twooldstyle put +dup 51 /threeoldstyle put +dup 52 /fouroldstyle put +dup 53 /fiveoldstyle put +dup 54 /sixoldstyle put +dup 55 /sevenoldstyle put +dup 56 /eightoldstyle put +dup 57 /nineoldstyle put +dup 58 /period put +dup 59 /comma put +dup 60 /less put +dup 61 /slash put +dup 62 /greater put +dup 63 /star put +dup 64 /partialdiff put +dup 65 /A put +dup 66 /B put +dup 67 /C put +dup 68 /D put +dup 69 /E put +dup 70 /F put +dup 71 /G put +dup 72 /H put +dup 73 /I put +dup 74 /J put +dup 75 /K put +dup 76 /L put +dup 77 /M put +dup 78 /N put +dup 79 /O put +dup 80 /P put +dup 81 /Q put +dup 82 /R put +dup 83 /S put +dup 84 /T put +dup 85 /U put +dup 86 /V put +dup 87 /W put +dup 88 /X put +dup 89 /Y put +dup 90 /Z put +dup 91 /flat put +dup 92 /natural put +dup 93 /sharp put +dup 94 /slurbelow put +dup 95 /slurabove put +dup 96 /lscript put +dup 97 /a put +dup 98 /b put +dup 99 /c put +dup 100 /d put +dup 101 /e put +dup 102 /f put +dup 103 /g put +dup 104 /h put +dup 105 /i put +dup 106 /j put +dup 107 /k put +dup 108 /l put +dup 109 /m put +dup 110 /n put +dup 111 /o put +dup 112 /p put +dup 113 /q put +dup 114 /r put +dup 115 /s put +dup 116 /t put +dup 117 /u put +dup 118 /v put +dup 119 /w put +dup 120 /x put +dup 121 /y put +dup 122 /z put +dup 123 /dotlessi put +dup 124 /dotlessj put +dup 125 /weierstrass put +dup 126 /vector put +dup 127 /tie put +dup 128 /psi put +dup 160 /space put +dup 161 /Gamma put +dup 162 /Delta put +dup 163 /Theta put +dup 164 /Lambda put +dup 165 /Xi put +dup 166 /Pi put +dup 167 /Sigma put +dup 168 /Upsilon put +dup 169 /Phi put +dup 170 /Psi put +dup 173 /Omega put +dup 174 /alpha put +dup 175 /beta put +dup 176 /gamma put +dup 177 /delta put +dup 178 /epsilon1 put +dup 179 /zeta put +dup 180 /eta put +dup 181 /theta put +dup 182 /iota put +dup 183 /kappa put +dup 184 /lambda put +dup 185 /mu put +dup 186 /nu put +dup 187 /xi put +dup 188 /pi put +dup 189 /rho put +dup 190 /sigma put +dup 191 /tau put +dup 192 /upsilon put +dup 193 /phi put +dup 194 /chi put +dup 195 /psi put +dup 196 /tie put +readonly def +currentdict end +currentfile eexec + +D9D66F633B846AB284BCF8B0411B772DE5CE3C05EF98F858322DCEA45E0874C545D25FE19253 +9D9CDA4BAA46D9C431465E6ABF4E4271F89EDED7F37BE4B31FB47934F62D1F46E8671F6290D6 +FFF601D4937BF71C22D60FB800A15796421E3AA772C500501D8B10C0093F6467C553250F7C27 +B2C3D893772614A846374A85BC4EBEC0B0A89C4C161C3956ECE25274B962C854E535F418279F +E26D8F83E38C5C89974E9A224B3CBEF90A9277AF10E0C7CAC8DC11C41DC18B814A7682E5F024 +867411453BC81C443407AF41AF8A831A85A700CFC65E2181BCBFBC7878DFBD546AC21EF6CC52 +7FEEA044B7C8E686367E920F575AD585387358FFF41BCB212922791C7B0BD3BED7C6D8F3D9D5 +2D0F181CD4D164E75851D04F64309D810A0DEA1E257B0D7633CEFE93FEF9D2FB7901453A46F8 +ACA007358D904E0189AE7B7221545085EDD3D5A3CEACD6023861F13C8A345A68115425E94B8F +DCCEC1255454EC3E7A37404F6C00A3BCCF851B929D4FE66B6D8FD1C0C80130541609759F18EF +07BCD13378CBC4A0D8A796A2574260C6A952CA73D9EB5C28356F5C90D1A59DC788762BFFA1B6 +F0614958D09751C0DB2309406F6B4489125B31C5DD365B2F140CB5E4062C6809231B8C670BAE +3702AE125F9780A706EDBEBD58ED7CE6464ADDBA1E380573B133BEFB3892A0420054E30C3761 +851A1AE79D6C4E175B392AC53B76DAB7CA35ED409DB30CA2510DFCF1D58B730E450B533F06DC +31539DF79A10B87E47E04EC6B1CF1C46F7551A63E736E27AE222C4DBD3BFEC3CD512CB1DE002 +A8D5E6B3A1D19FCBAFAA88DBEA497988BBD3DB60A671B3221302F55FDC4D3693F72228229743 +E0C9E77C581B6818198778A4DC377D53EEE0EE329A4D807AA4F213B5EE8043DB9D0C8CB27071 +4A7DE096545CE5C2C4766C89474D325582A907724C6206E1D1579CCCCCD755F449B08DA43DBA +7177D082719CA3D363C3059F1A90DBCB7EB0DA4B461748D39E5E7A4632E5CE964EF7D23A1117 +DADC7E3B5C789E25E10AFD91B35EBDC85BAA97FE66678DFE3007AF95F2736E54BF3178B22CCE +1F0A4095D39D7070F140962D45CC6170E79B4FDE215510A0226EFE75F24B596436BD4F1B4507 +31CDEAC504B7954D851E16ED1C28C1DED3E96000E2718CBEB3476D300F67CE3E9AF3A0A62703 +A2C917F7CEEF7E12914F417DFBEB3FB510BD935973B1FC224CAEECC104578C61AB475A21E0F0 +E3842AE875B0D501BC007DFCCE09C1683FBDFE6CDD2D18BCDEE417FEC839407443F7AFBDF059 +E22A2428352962F28E12994D31EF011D44676A64D47E385173298186484D446049BE5DF92095 +47EC7114D10CFEF53DD2078C0528D2DDEA99DB803424845BB971B9072EB7C4B4C21C3F10943A +91BAE4092082F9A824B03FC6BE7149ABFCBE4A60C300EDFEFDB3034969096DB3A9EBEE77FA38 +FDD982BD0FE8635DE5CB9E7A0C5D1A77DCB92F24E081C131089562062C32DAC108E364713674 +438733DFA1204BE8721AF055176D8F66E7C426F9EABB581D693B531844266C3AF03D29B78557 +F7544059E3E71141DBB5F756D22740AABFFAEBC65CA518C40CB0D494E33F2FA7A7343BE3F8C2 +3D43F76D4B5C75F93A4B49EC06A933F2168A3BE687031AD896523CAD3B0BA2091A168F9A09FB +DEE232032C6ED2F6D167E31E62B4B2258A4DAF9B61A9EEAB1A944F1E6E6FCE1B06E6F6C5EC7E +947D99BE91592ED1D6428C63D72575E5B0DB0D83C5D68AA7D48863932FB46219412214BF4E50 +7408EC6C1756BBE41DFA293436589F032821455BBB852F79B8B5CECB32532EB9F66260E4B6B4 +51BB41B911E70E58A958E7A564BC69361126F8C3E61C36D2E216E9C0581CD176CBA03C66EFD3 +AC62DD2A9E01244F91F7FA061E909B6241BD53651244BAA2A1784BE07B059FC49AE148A7FA58 +41C5248390B3ABB8255B8292EAC87598B6FC55D24136F9DA482552BD8F2C53457568DD1F323D +0211EFE93156AD021E8622F792F21E65862DDBA5EDBC94A56E426565D47FB9586748A311DB55 +816F2EEA29ED07253B440CD6092D7339850F32F9DD1D0E218348A4AE2A73C518393F19FAA57D +BFC9B8F879939557A744005878384A0E87BAAB534E5B3FCEFB11CF19C865E97DDFA3FD3B826C +32936EFED8C95D58260E95ED42FB787B1A98351DC786028D978CEB9972E88B9E13B711DAA277 +796188D20E9C7296D35ACBCD4D1CD7D19C3BB3B5D572F1CAF8A5D6662B4B8664878A86E3B051 +ABB6AA9D07C292C3EB738CEF804B227CAC1E63753CF8F1F715EB9CA50981A56B9B87918D60FF +03BCCBBCD56B48F542C98365D76067F6A9A4A5BA39BF317A88BA20EDCD4844F4649218E7EB03 +1F545933E2696674179A7E0475C42DFCFC52696ABF07E5A6F0267EF858BF733B13C78E49FF57 +1E61344FD7EF13B48F29C08AF31EFCED0A89C9D9BF270947EE262B3B3CC5CA827D7349E62620 +7F7A277AE4E48E0D364AAF82CC718868F12B9437754993FE918937D152B509F0F7CB714941B8 +56F71EDAE36137F8A29693BCBFCD9D4229E4EA87B04ED14382B8C671E518249CB4027571DA99 +0334A3F83F5F57A015D0FC72E7158C548CBCFF50664B0F8E0D141FAE922C989779D4B82252E8 +69AC9B34F5C2AC136CB86EFC19C7555AAC09422FE7EFA15CA7138918F809ECE45E33AF72B9D1 +853CA35C187AC67623AF11DD21EF46B8336A38FE7B38601E40EA0DCA314BBE1E98FF6991E9C8 +A1B44D5EF00D5BEAB8E2E79540FD52ADBA0994BC9C63DC3F010E10D4B4838E4197885A7C01FF +661976F03186BBA8ED2A3E0C2082A53A60CC6147B17B6D88C4ECB0BAC71FA26A727E50918CC7 +A17A5D617499B3ADEF13E131B7DA17C25A12F6C7C135CB71E89F9221AD2BC92AAA14F2E6D8F0 +60763F5CF5FEF92FE4B5071D34AEA90F73B68FDA8BEE03C2FD6755A297664BD74DD9FFA4ED90 +ADCCD20DB68C868789C27C9AD6D1D08E1D26C5CEDC1853C358666B979C95C0DB0F92DB44AF8A +1F8146C500BEA331B2A79CA6B90BF57CE7F9B975FA42559A918E1B27E595D92D588896464A8F +6A119AA6B88A69454B0ECCC10C2A2454C48553FEF9E5F73DB77277AA39D2D21723DAA7234185 +D3985B0DF9E4295055D6EC44487DE4D9770BB51D4039D957A97D60E7FBB03F185DA2D9829970 +BDF0AC31C0A5E4037DA595C67FF45174E94BA58AD7972667ADD43A80ED37CB809AB4F89AEDCF +2F4A95599956E49FDC6587024E4DFCCD30F46B4DC205101E026BBEFCF4C2F30B2A05DAD35549 +0EB296F8BDBB84D6B2F035199D1325E1E54498DD98D16E6340486D2A57F70DFFCC9BB3E8E416 +FF1DEBC2098025B985206EB0A5BA79B9E73ABEB0362EBBA8323F1DA75B3047868CA6C6412A38 +78DB9F52FAF52219F63D505DC87852E45AFBDF441B0D8E47716D800369F86C4C90338CAF2981 +C77CB506B690D22751C87D0352A021FC0767FE3AF39D42A57A3A3357E46A36B9A318D0C8A0A4 +7C1C3FC8868545D5B2CD42EA573619AF5AD385F3917756B82F60B16E7A33913D9144B2FCA93E +9C75ACCB70DC55DABB5B1E84F0BA757954593BD61A53F41864659D9F1BC293417B4D605F2F67 +D24CBB745CEBB7919E9BE1D93E9461181A3888A271E7E094FA64459385FDAE96D342ED2E593A +EF5B0F5A2D01686B696461091A16DEB9FCAB20F2632732B52637E81E598BF7C8F17970B6E3BB +3822F2EDF69EA1746819413066EB2ED7B43F1D450799EA12EC58DED38B5143A90896D806E37E +F1373011E180D06231829F6C2E8433E9F56D7A61A96C55463EC5E6EC36695BECF3E7A3A4DFB0 +63C30986A5C0D1103F31803D4457AB0D72C44B1BA2D1F0FC740D98AF3E9EC01F84FDD6EAF479 +48236D988B400D94DFE926EC2EC38AD6DA2F374441620990DAC5593CD34E154C3FF004E9536D +6B9B8B41CCD0C9AAF237299B91524E39F867DA0C0CD33B05646A10B13CE1DB4D9D82FE29D528 +8E761F55347DCD040928D34560C87C7A93ECF8A1D31086A33D2BF9F9E4CD06B11F0F197E8EC2 +132AC23976CB80FEEE0D68A30434C276E4AE9D46468397934F8856EC2E482B2381AF05C58AF2 +ACDFE0D758DBAC363F1817030BBD26FDF5819633C9827E27B1DDB43A56DA5001D17B59A6B218 +D2CE2F47C5308235C60EA08B24736176207EB3944C0C2B0A2F5DB51EB2DD1EA27E545A4DE795 +E16061FB48496472787E4D06DB2927700CFD5C2BE68FDF12038F06FE86474186F647AF4ED1BC +1C8B446C5A9CF538A9813EC2142A9781A88D524F8B03B26D2B3C5F66BE569717CBCCAA602876 +7D5D7A4BF00CC49827A766E67C6E98542A06B479D831754AE7A895F6CE275F3F03E8F09A5BAF +9403B9030651336D8F4B3F8D0DC2EE50CE8593D2A365652360033ACE6D449BCA26BFE2908344 +BB6D46AE7EA36AA4256E0DB5E5EE1EE666C302F00C782D02C2A251B9AAE9DF91EE1E58BC17A6 +6AEEC65A75A8BD1277B3B3247F57A9AF643ACCC2AB63462E3035B2E14482B625A69934744B0A +A98113F919125346C854C73F7E24123E70FBF97BAB700B8146DD010F4470B08E4F95B61675AC +033198B0871766002B6688B17BBD2C010A44CA430D763C3B4E7F005B7BC21A8F91072FB3CDFB +B83F5B92614683730F26AABA94398A506BE38A2A6393FB78C46B12E2665BFB3C543EE45EBD37 +AAF6DD641BBF996869ABE0983549A76B1BB226DDDD7BEF928E06EB9C1B185BC3CB9BAC42B9E1 +63DC13193F824CCC82A16907AAE7352799F2510746FE287BCE1097AFAC2C5CB2E163637E5626 +75F81AE43647FB2FAF61F0572734D41258E0F290D2F16E653FA7451991CA7149CE3911A0D943 +761EDF2F1045F274BCE511C8F6BA6AC76EC5C36CC7D18E6D1FB151ADB459D5D18715F9DE964B +4FF2E7529000A29DDD0A80081D3E66919A2CD2D2246DA276E42465CA9FF24BA1112896BC8B84 +2424E8743153B0B972BD829AAA296AC452ABA0300BA89EF0745CE65102BD2B5C74CBB0963D83 +E1EF4B3C2A58D8055E696DAD94861DAE50234D6565CFB7AD2947727D76482DCD5AAA516088FC +A6AE15D1CAD26B869FE82AFD428D0A077C2C490D260A75BA834B7433A3A698FEF7CB1DCD2723 +2D341939409FDD8FEECC663918FEC5CB68E7481B9C97A90CD7074B2E972D87CFEE0F3C2BC0C7 +44E1F720D7F33B88B2DF064E121074F338AE0C57AD3731855519BDABC623AB061D027DAB1B8D +5DE267ADC44E93A675680CC40A3D1CE638F5C565AC3485F048BCF9D485EF2D72D29A0CFC31B1 +9171307AC6901B2E2F275F6907E2B9DCFC471133A613F62ED32DCE4A146ECE788EC534D5C084 +4A08C1BFC8CDE3229DEBB8C4125B0D10A1440FA313B0377074A0D890EBA590CC2207C3D5F825 +CD0C846A1B47E885EAE2ECBC583798754A64702BBC3C032D4A489FD986CB7FA37CC4B633C8C8 +4CCE56EE6A9C53D334E18DB204E43F2D084B0AA0435E1E5009957AA0487C7B654008F1B83B7B +C5EE4290986F106279A994116F2BC3B36ECAB14E1E5A6F57383983E0D48520AB39E999D248DA +7D1D376C28BCE9B74DB2D38E6FC89D217F948971526087C02D1B4421D2B81204C1A210F9DAD5 +65EA8DB2A23BA3DAE525331DF23748802AEAAEB7C457C9595580E1F903D6C4718FB1843D9C92 +80FB1750EEDF4DF8D18E168ACC025AAEF11E7D57D03D3DDB7B001B7A6DEDAA0E443075C99526 +BCEDA1F1EED6717BB775A141B925A27D61EE376441206E18B23B8EC62D755A250EE1520CC279 +A6F67A3587F4A43439C194BDF6D9D95730CB744F847EECB180A241D1B3DA379EDAD4C43B7838 +5FE83136F4091AC9313E40F3E39A3EF1C5CD95CFBC350369E6F5435BC36EC337E8ADC69C2BA1 +EDEE45B6E858B76A10FA145B9F029FE3DBC669A5F91ACE7ED62FE70AFD4EB2CD683E50B5BD7B +2EEA06D1A2F2EA3F2509CF8C5E19219405AD7FFFAE0B22F738C4844D89EE709021E9F6BD78AF +46FC120C37AFC3F29A315F801D6B2E354448D5EECCEFF62C43A016FD810052104CF9B0193885 +BFB7308110B285F95599B5CB732C856C70E665860E1F88EAF111B2E3145E5C9BBAF4C53D789F +7DCE86D8700B1F741D342C6E8C17E89B3432EB47CF263D11486AE3F3EEA479CD6DA86D1ED0D1 +403E5139C0CDECC5889DB49B24EF64E06F9619522358375FD54AEEF7984A7B4998058D23B065 +BECE937C9638B9380C4AB40BDCE27E0F09D160121DE52C7A7FD8F9DBF47D78A3F89FA2778FA8 +65CA61CE2E64A420E60E1AB30633E632992EC7CE37AEE15456446664AE34DC0DA2BF08AFBF6F +6BE4DACE7067BD1EF1B45646F99E34754A4C434DE88507755207C31BFEB8CD8DEDA6EA06A719 +22A38FCC7D33E6EBD78B970FC94528A8DB5D12D2B8222CD5AE9703D256E8D75945AA5B7E87F8 +07981E551C767DA543AFB0F87CC4D9D35DD3D790AF115E9688732FA2513ABD5E001F237565A9 +078B782198971F8599C23BBAB1C8ADC098688B59619C07DCB2137ADAC3A0F83AF46E7B9E420C +70D92E5588985D94DD7D1DD46361DA4FE7B3CBC1F887112F1ED0D5BFABB41C088B40CBB45D2C +1D0A6114C2D613A91BA2F1CEEA5F0FAAD1D4C32AE8D0AEEFE4E3EC36935C209DB4F8AE49E279 +18924F4E9BA0C813519B7E0A8C71C3910BB0970E7E3980BCCD990245C28F7676A77934A03D60 +C634A478BFB1C7FC811E65C5770E74ECC042F51183A8A570B986F27D5DEBDE77137BE74BF14F +3B92C30A9C1B1831875F795A0C141E0833DCE32A2F396DAFB4A3ABBF023E5795BE3417AAA442 +0E1075E8EED1489A8AFF4FD51A54B517E737B7734C4ECE1721DE9D7DA8106BC326C8B28F6D1E +C46B903F4CA044F663C03562132A08AB8CB50ED917470EAE0F6565BD507B02EC06FECB8F53DC +B01651EB79EE4640E8E1985C2ECE04D3CAE9616753555F1E34E75EF364FA93711DB9087C713B +6A69CCED8A5185F54D3299F9531BF7EAC47BA0C27ADBBF90A4955C986C38FF8EDAF559CE3095 +BF7A695AD178472BC5709D0ECD90C7C537A4F65DAB6A81E87E2355D2854EDDCBD9173676C779 +C5AB91DCCCB74A35E2134D2F19B6D495280BD595CAE39BCAC779CDA2C61A3B6B62CB34DE7D3E +7AB665D6E460DD8522E97B27EC820A6CBF1FA75EF0768E92D3CC78B8A78D25856E371D7B9480 +68E17D071D62ED07E307F73B7ED49C46D9DBB212FB89C5079FE0DF25D2D18D5FFBB8E82CDDDF +B72F1D1ACF10AD23F2CD2CF003235E3E1518A2A46C95C7C5EAD396D0989DE2DC6F1EDE08D2AE +1C763D2528F49EB3C6E5ABFAF9BD05A3D9C5CD27846A743EC6CC11839AF6364E6742840420A1 +CD3CB76D9A1C548ECED1911A4F03E5FDA3AE0549AEA276EE16A37F31E1485BD5AAA9AE3AFEB9 +540D08D43DB9EBC456BF648B6DE6A53F64AB5A65F756AD68EF9B5A01B8AC9E54627ED1A6DF8C +FE87DAC019A6A33603D005C6B492609380D388FC68046495C8CBC4C050BE8F6260B578BB4150 +5CE0BF93FBB5E75F6C237C8EED48AD41F91BC4D9249C190316710225C4C3CB3F3BB5CE41A81F +9E885BDF56744CE20FE1E134F31793C8C92E671023108B9EAFEE63E93D8E2E083ABCB78F029A +28BB3F7360C510BF86A0F5CE584C959E80AE6D048D250A0AB3899694EC569F5A60FDC91CEC7A +A8D06D3F20E4C5EA037ABD6A54F5330A04DA05617BEB1BA01A8EA4CF94F1318D6D58BA2F4980 +242F2F39BE32A0DD3AEC378B08C916ADA5271ECF7AD07B0BC2D74BAD8F21D6963D5A44B80ADA +5B7792642C6ED391BA1D8C26257C8FA2C9628478C1D3A04583F3DDD5AA9BBDA20C8AB1CF2429 +2E3DA39F0AAE89A2BF2707A2A0B9F99A7E4AF7208588A0DA8C5E58E1BE9A934F659B3FA24F8B +C762447A1249CAC524780A1F27EE4F3FC039BDE351DDBCEA00EBD4A0F65FE6AB022AE73A65D1 +162C95C48E69C8284A8300216035F189CF3B4A051E3DA7AE134145C93A9D36BD71887DED330C +98638C065EF056061AFE4AFA9B8C5422B1DC82FFF65B8B276FE9E560BA16573295F76F7C8826 +0621587FC16FF6D48BF9B8D258E120C3C1B5385962B6DCFC453DEFA99DF6B76D0987DC232178 +A078C99CC3DDC5ACE95A878698D5F83792BC666778465919400C21CE472097DDACA38264B4EF +2F0AFA898C8137404E4BA18F6CE51FEFF96043D0015AC61D7671A40A13FC7E10ACF9E778ED64 +5AA1184ECCA49857A84C6D9CA2A0817887BCB9F55C882CC665A6AA8FA7988FD05797AB0DA780 +23E249A6D758B036E8DA6C035AD861F21616CCC988E29D5060813FA27C1D9884BB0FA3EB65D1 +FA0ED45D531439F600F61C14247E632909EA78CE4568A3642551DFF34F1AC5DA759CBE317F5A +44FB1233392D62BAC0126036564A37F263BC1A45093327484763281758727B11A4A8A4EC4EEB +85A418E6D008B2DC93191346042AD7144F4B9BF6961A45071055FA029E53DE2D2FA9D92E65C7 +E7D14E7568A003A88D25A09770456DD457469896108D4EA5F62DB179C9EC05D87566D0FF64AB +D151041524AD6BCA0EDBA36CC2B96315572528C63416BE8EA4B48402844D7453035C1D46E821 +750FAFBA9CC104D0E0E770FA802BE0D09B56C556D32CCE3268D06EDC9C961F8F34A682439A26 +B12C076D2FFFB098EA0116C08164A673187892078979BF133A59AD48821E93584774ACFAF0A4 +00C8557D7C0D715C712D4EACECEDDC049DC8A0C019435EF5E5B042B64B376B162308D41EEDFF +2FF5F7C1B2309B8F86FDB47F905A0453FF2DBE0EF364C1CCC438A3EC818046F07112EE3CC218 +15CEF16A7AB1D6BEE1625C57FB3179BF7B5701D0B47EA3BCEF53D6B455F321254CA5976CB3BB +53E381AF19769DE275AA44CDE3BCF83F7C337E59058A2E5A1F50894F78EB461C37C9E3E63C79 +F31E76BB68A767AF96EB097A8D930DA33568D47324B47C81CE0DAFBE3BF007C55FEA4B0A0BC3 +908A2FB97263FE5F2837DC90C1F81F56A6EB014AF134E0A8E36E2A8CDEED7725755F776464C1 +86E92D66DFD5E59140AA63C141374E1D883916487F33FE14567F18F10C1F39290B988399B275 +3802A1E28F5643412C907A02AF184F44CD506CFBB13CC7413CDACD2EEEDF3B160B01FFFA5222 +C4764E652EFBC89E44E7AEFA9F275F2DB1E5B95AEB4A7088D1EDE5CF40D7ACFE4A3482A1659A +570971CD5997F89AB3D20E77398215364B5814FEA406ECD4BE1467A41BC9CCA2D48E382F447B +386AE5495E4486B02871406ACA754A3927FF0A63CAEE3F33CF6334A1AC3E2F7432747CECD5A5 +C39ACDD151341A341DC82EC8E951A2F5356A75124911FA1E9AC9029F06EADE0D2D5281A2665E +0E14A8491FBF84A24CABE27D908B7DBA52377C6E95AC3B7486902006C5E40C4B235444E30715 +3AB4466756B5B3B45D77770DA48814B2B908DB4665FA90D14872F8A82D452FB2264195EBFA0F +F9BF255A9B773CED969F9072CB9A69FC23092E350287FB55F5BAF7B2287209970714623A8861 +8780F4A52A63936A009A2889454022DC4B88121BEAD8C1029208CBCBF43DF8B27AD576AEADB5 +887B5C3011F9EE757F7082C8280A0DF6EFD62C5748F093F0EDA116D0915BED54C87257961D49 +D9A78BD3516DEDDBCE1995D8DEBF1C0021F2ED25835EE7FDCF6237167399069075D892E33BA4 +C81EE7537EF02190ED04141DCB21DCE6E4978A86B94B0BB3C08B9CB270E50909D780B0556AFA +77409C168B61E4D6B81D4371D1667C6744A55EBF628154416AAA6EFEEE7D0BAD3F5FA4AA3237 +1893D9952BDD20ED383ED83904821B1834BEF0CBAA0B00EA1B7972990686477F6C233D2AAA9D +A87F589446A89FD3C83647A8F86AB1EF20E3E9435374BAD83E13388DB4ADF5D211136474109B +DFEA1EBB21B97702EE3159A4719F169B0CE3A141CA48316EDD73C8AFD576D7A4826677A1ED61 +4CDF61164679F34FFA68E40A0476CDC04636674AC36AA22122376A0299A18DA803363D2C8957 +3E5271C57DE0F58750E33867363653E1A717CA0262D0017F6DB8B4A8B705A084F0354708A49A +03F0DFEA45216E50DA8633BD448F4109AF8864B7749CB7A0E8EA4D9D28ACBC7BFBB42CCF7D10 +5488FDF1D814FD6B2F47A9569293814D6D7FDB952F5D85C4BE0E437A022A394678D2C842120B +4A2FDD89516C5F00228C6365B7F60151D451B272A206BAC3255CF5D68FDBD4B89C92897D1736 +8EB84C740BC0421FFF27A307C640BA27C4EE467ED3BAB502E0BEB8FCB8946593C70C8A21BBDD +6B77F21DEF4AE9F2530F51E95DA7B8A85134F695B8B16DF2E10ECAB744BBDF3FBFF4CDB9A091 +767C7C9C8D3656A1AC5E277353DE528943ADEF524A41666DC5D10276F404C0F1F1606CFFF798 +3F52436E5A34EE91D0E4AF98561298430EB63E31C51C4BF9E65B9FC8C9158DB1918DB3984C62 +9794AF50C43C18611F59F1E3DD200153EC9A6B628D56A46AAF1276632A53453EB3496DCF4F21 +74F3B86A5D4D14E67EE18F06C153F88DEE9A91AD36A793F2B3D11436CBAF71811B3742C8C578 +1A692410F18BFB5A751BA7E977A37A270187FB97EA44ED468AD03E0050A3CDEEE397B377EC23 +CF20EE2F72ACA6B5129C6A4ECA5C7B5C4C9A03BE54956B638B217D51D416D79FB3D069989A03 +63FDF688FC3D61529B08036B1B3B8B0BE0101DD9F5CD0260FB45044E09FE59D6ED39F9C66189 +A5850141D33CC7CF390576A052DCD55586C90188F50088D6F038C1DE31A636A042266B834F93 +39CD152A84325BE676FC6C94312E6C5582E3D063FEFE33E321758D7CC38BAD25DBCE0ABE021E +7F17F84D710BAC4CEFF5F44BB036FED06B6614A1FAA68A7B175378D5409D983BD1775FAAEFC0 +8B93C7EDEA64FFEB7DE8105F0AAA9F8463D0CDEBB37DA9494C42181A2AE778F738776A02EB21 +70D636582B84DAA97F91ABCEFB09748B8660B4C59D18FC35D6EA7EABD2DAA46C47362B6FF034 +E1E19ABA030E06418148FBC88F331AA341D4471940446E4BAA085867C020699401010626FAD2 +8BB1344EEA338F7309AB42840D60648D1AE5C3FA516E4D96263BB411F5CB3E506F639D3C399D +6CE2CB00DD6E555A413D3D0A52265ABA30FA0BD32CFA9C890D5B0FEF16C98DCC205023CE26D7 +6AB91C343CAB3954BBFC473EB78A31AAADF1146997BE3E214D99A95B32274F289C087E6AEE97 +443AFDF046F923069DF8D162A2B4A9CBCFF1A98DDF00F13972378F76CFCA501FA81867E7AF04 +6C3FD1FF8B4125F0385D78DE487C3EB1A4EFC0F0BD1F9421B0B3D38C48C5C54C064F4941F55D +46A06B8D4369421F1CDB123C143130D64D1A9F0D69D8CB77BB18FC678D5C4E41804DCB55AD7E +31860B855696908A2255A4D4016D0B547C7AD0029EA4B8F08A54FFE7CF12A00339087A132C5A +8DA7ACD499EBF4D37E73D3D3F6F3546348A9D0F842F0249674982FFE0713E1CEDD0313E507BC +85069D70FAF8F8A2E36FCDDD22AB9C1144D42D72681F464760CA78D0A8EA0EFD0797DB43F50A +7C044D1421AE9B41CB7F23F18978442E65A962F891A6E90163F70574236DA0F536AAF7402605 +BE6D076CC70ED2935BEB6CDEC6725CC6ADF5DAC73052EE0D073E07E953AA9FEA7E88588E98B1 +9552506D1F2538E14C1D80FB7DF3B7DFDBC348D46F285A1543491828B072F7D42EF82E9EC755 +CF05A292A26715B42F56773BF86562F41AE18A060DD7F2BC5891419FA1A313405C76C056AD2B +22AF876680F8C28689B4AAD1AD71B294454F305FD382AA98405D6A8BD80BAE503C39D570A8B7 +7A7E17E3982A576790634BABB2C82D33B1A1B25CE073002A15BB536D75233DD4D907B81C6985 +768E76C54FB0AD83219C747CBBEF093B931EE5110237DBAB1305E6668777B3341748034D05F0 +BB4547E485E975BCB018443A878576F9B85BDE41A7BB6EC20EF6369F795EC24597E7FFE309DA +42C01CC7CC46FE9DEBA8B8686185B68D37742B8AF331354FADBD843119620127AB8D3123F121 +D88EC489CA76E0212F4A7A69BA6A1045AF054EE33AF6D43C46866277B947BC1EF241E556DBAE +8F1B5F5A57EA1E76A4EF1C06A926BCFA464610F93432AA880BE65213C15CBAF727E9174DFB8D +7B16A11C8394054CB6BF57A8D8A9FD840D21F9715773C05FAA10735C8486A2A67F925FEF7C43 +79F3091A456622439D8FB7ECA200FA8D26B63043DA049742A4FD9E5AA5DA6353024606C9A2DD +6EB9A20A392A9D3C0B8BCD02FE28491BD822EA387B5F8831AEE6E419F8E7F7B2D87CB9DAEB59 +7F50E413F78108C0EB03612A18AF994902ED5C91523E070407488DCE1A7B459F9C1C483C7F3A +C4734F8F979CB87344DE2F1E81560CBA80F940945787F375636170E2A16315E8526BD42AD8EB +0A1B00FA47BD3CFA00571A91BC04462DA38A41944AB6E6A762FD34E8B2085690CC934D4420EC +52269F6D7ADAF02D7A48464778AC9690EC14350221FEDB06055DB4481672EA0FF6AC2105A124 +ACCE497431BB6A21490F8D76B6BAE99DFE5F4A1F91B68E23EDA04ED030B757F427B6D1734097 +0943CC90E7C9356A3E8A49C057532910FC54D05C9F604B7FDC6CBA5C52F82EF7611D256C2172 +7A4B7F7D2886430087D3B02D44B3E4EBF31D3185418224100C32A176DB8ACDD27A3828507607 +B8A6358361EDDD2697DFDBDC928BE154BF1232EB37CED424BD55B2879DA7FE7C30BC82A512CF +1E654D0CC0CB4DDE59399B55BB9E53C9469F6813E1A881599B2F5A1C0CE63F694F288EACC9D4 +D691EA5BD5E4D725C3939D5C2B4EEB1C27A2E36071C99764EB61C597D5DD0EAA594FD503ADF8 +52D6212E92C4021D3D755B35FFFF2000E67AA8C8A8F887907125A703FAEE4701DE5B054D7223 +389D076AF1E78CE229D2B7AAEDD3B83B9FF16C2F100C552521BD8EE293A019967F783D5E73C1 +174AB8215BA5496520EF03ECE4E0CC189B3805209461202ECDDBFCDFFEAA81D73A3E2D7A2F0C +086417454D7F90449A7FAAD52A2177E07A2289B7A2A990FFA14ABE6D48267F2A3DCEDBF4F75A +A4006CDCB985067772CB50A88145BD8F799F545B6FA34AE773E25E48CA6C85320EC48560A051 +B68E0E06F173133E2879369280C02172905879DCED8ECAECD8906F80ACA1DF9BF626F5510595 +861D88C681564B868679E5522765A809B2DEC2A107A2275FB7E5B1768E27E0684CFDC2242132 +5E1BBDAD855FCB0A4EC08D1F146CEF2CF68208F87957A6A15FE1E2755C38549AFE1672D99C2A +C75AB8F1A33E2907B78BA020BE9DC1BE3EC75982A5CE6AC241A050AE3C36D885EAC4E73F0CD5 +E21F1773F8E147918D4CC694403D0EB8BAB0150B8CF48CA91F9BA174003D13CE9F410A5AEC31 +296A164E6D611C8527BCA8DC71A2AE57C4D7C9DFB85EA5DA647ECEAFAF417B0F6A0F70FF771A +31FE63F6896FACCA9647D2849F3E6067308F0A26A151DA800F9C9902475E6CE9C73214B7579E +7C7A019798195C89722FFC804EAA1BCE0917DEA7C6461E7E6A30D27629010BE7B0E2D8770B49 +F4C04D0FFE05FFF2AA626F05CC3D2E4852A9C0D61013227ED4389A3061620C8C1DE967D227E9 +4FFD522AB24F7EAAE9BF4203E1F259F5CA16EFA197DDA8CA0519B6F337C5A2B53FB855BBFA65 +1B729C88433561DD962B347294E8784C1B7E8ACBB856A567A9D8A2CECB86177C3E63864D82A1 +F795B2B67E6FA4E700F0C64B051D830D5F20F214C109B6A16D3EC5DE0EBE8E1737162CF7133B +5EEF94101E050AE455BD4F90C9CE7B5AE34F114491BCC80B1422AF8921DCBD0850E30F986716 +C8B968F77D7977F825FA32D5826C2F4EB3C0F7C78850DB3D0716F6A70016A7A249712499FC52 +9B928DC66E388D47D00EF777BB0CC69965A4C4D737C1F9199D677552B91A9CF7FDB8C03851B0 +8006861EB360998794CE0B955C16CE1F6FE86AAB4700CF6E2BEA44F92ACA4E6B779454E59FED +0768F578FC6856AF8BB2022BDB32B8FF477595FEBFD382CAADD04C695132A206D68A0CFABF88 +C8A78063B2DA93B3D70DBF77F70AFBF179BB0E0B99B88D3654F7FEE3CA18A6243C211F297898 +CE19D6A90D4C5744F11C8533780F6D6BD712508DB98966E163A9136991CA3066B8270D6A5AD7 +891FC0D6C241B2085790B2E9632FC8A583CFDB200841E01EC500E67D3DB1E5EFE36D708C2424 +C896FE3AC1A36D798C9BB027F3EBD7CD09C01C2A9B3E8ABD32044F0822C6B0FCAB6024AEE7DE +4AB5A1A5387BBF87271B5DC4615D28B825C0610DCDF0F7F4CFCE880F79EC3217C2DC72193441 +FCAB1E76AC8F51881A10D67687E1168D7D5408AE252686303F20A8F5E40C45ECB3DDABE89582 +98CF9853E5D0EB6645E392228EBF0C0071EBB8B239FEA5A4390DEE73C505B9699E44369EA33A +0CE909E1BFCDB5DE6E949B02163650D6ACD4E125D9BDF310368C41E601C26A9A150843CCEC54 +035DB2101703E666EFA11F070C375511A62AF1B10E8E590661BEBA214606D093474DA3C8E0D8 +400DA49745FF02BD1859530AC09C5E06F2AE5AF23858E108D0044DA583B2568EED4311DA1028 +3A87A7AF3D486862C322289CCAE116C89CBA36C16FFEB2A511925A981EC533258FE80A6E75BF +EB4AF396CC664B33AB4F8A161E715410F55A702B4697E51898CBA67E345DD272ACF6EDCD9F47 +4378D4A97E9140CBE2923CBAF1158BF6835C7F5E3E8A21649BEF43AB7AC13F481F85C26D353F +AB2625BA6A5B3A553D10D6495D2EF4868684BC25392DD3720C58775E693CFC4E7569F569A26C +B392AADF1292209F27ACE70084142DEFCF0E2B261D1C8C764AF52B63714A499ACFA62F010A83 +8E77DDD525DB1C4C03D33D551A0B935566B37874B9B75B8ABDAFF6B68518CC581F32C7E2E2F3 +D3DD3BF7EC74D28D4763FE1EE50813D9415734560BCBB5A52A823C1EFD8BBBACDBAC34E20861 +63337C50945E7DEF65F949ED9EFF4BB11C36F21346C1EBDBB80D937BC7A485CE7D938D76ECA2 +001274528D30301DBF65879DEE2FEF93B031E930CAD083ABC10545F9E6F5E65399B694CBE958 +BE5273910934D9F58BE31ED7963E5A59BC8E40EF77AEA65A59B7778EA4AA54312B47887E3311 +9BF3E1BE854C4282FA71227207B75AE763F8D5DBB10A091CDB0BA8E83E376FAFA00754BA34BE +EECCAF0FA84C68981D35112E483933A571F08D551AB39003B6484DBCFBE2396CAD864C02AA99 +6561056DB2588BDC2175D21CEF1B8DBC9701BEC6A41B1B8E128CB3B17F4B17627F8088801102 +170B13431BA9B1DBA850A74F4E5D1F69A9FA83D28D26E4C545E3BC40FA4BD52B93AA9D11A114 +ED30134C05785867F926DC0A1462F6241E81F0F0D9C8378A9E02EE09F35528490DDABC52248C +12D0B070ED1A6EE3A59B7C6DDC563767983DAB24E9EA254FD2ED4344ADC6EA2E815DF3820C37 +4C4C6EE05F0993FD864FF6BE3DBEFA77F5BE949C4BB8DC9511A5211BF561BC025A7372EB8799 +9E9419D671FE53C4782510DE054A1BFF97671BABF428B0522E85C3010756B6BC235C07443E8E +27D00322C392DC724627284141E261CC83AB49B65B8513192F7B53A4F70E4A41DEE8A7662373 +334B850CACA3CA53CCE3EEFBBDA2C041CC823725E2D5BC9BB8F33BB18E59E507EEFB1FEAE5AD +D86E77406C4F9BFB791D14CBF827A12B6C8BBFC54DC8916A9801FBA958AB26C2F43A7B927EDE +A84985C3624FE9EEEB08D0428519CF426847DFF0B7838C9C18A2EFE7C3E8ACB68E95866B8CFF +5E5E567BF1AEDDA3769466DA9B0108974429E7BFCE72A309901C67ABBC61365325EC26078148 +8759050051D22F80915A2677CC2C27BCFC79C07B871D86340AD06E0E53FAC4269AEFDEBD3DF3 +080CF9C7D96178C5299D8DB975572995E5350195BCF4C83F16CCC823825B8AABE165CFA4DD4D +1651606B834F6EA375F774D6961B39B501062881D70A15232749BA8A43DE23D3F4D3EFAFF602 +7F6F1FB9477E2A1243CB2E7772AA8438D31CB3B7D11FBAF0CC1F0ECCB087EC67AE9E13632451 +BCD534AC7B2CCDB5C6B6C6324002EA2FFFB529BDFB7A7E2E9BDC7A6B46A0D332DC4285639252 +F3BBA3357590320BF8650389103771D430D8C79839F74AD77B27D3C230CC8E2D5FA25C582D72 +3433C732CF0E53B066C56B7B4DFBA2232F6F21667BC6F74D1976D86E21C62447E8EF2092CD0C +8AFD8533965683E7B108CC8EB4E384727E36A025B786D2F1197DFF1F85AEE880145D7DDCB02A +780C87A53E51EBB2D2E99984AAD4E0D612F57F7CD72C3045EA63D9B648D72F7EF57B5E9687A9 +354D468B8F6B35510C53AD8D9DE10186CA1ACE62480F6BC57FC9D26D831E9E9A1060B85E94F8 +54A67ADBBDCE00D1BAE12B04654944A0C88A1BB6B95E73140E4FA21043F5ACB21B6A16598977 +558A10532BDF3B604637801F9C7F4304F1F6C7C01C431DC8495AD308878D0BC8EE61081D1BB5 +F1B60E0FB209678684CA11BB2B57E80131A410A51F9262F16ACE34A8E9962E903799D374369B +1DE57C3FE9C9C09C7B33F4AE3D02771CB79681FA4986A4381146A02509D8755324C32808C3C2 +B41117969B4B33E29D53256D93C20B7F28BEFE788C2709229CC5D96F7C9761652DAFB0558946 +FD6B51DCE07474F42E90AAF2B9ACBE87130DCCEF8F4D2720CC2A89FCB37DBCDEAEC7F44A1E73 +230D9CD11DBC5A9238868E723DB31361E849EFD2C97801373FB28184793AA82DE22FA932504B +D558C9D46F4551F9A9D9C012C2A3025119285B17D7F0BFB1A71D988D1149C1641D6E76C1849F +F3E3C5D15B22A3E0B0D5D796903BC96A1907144E32263F5185BC2FEC93F82C7F63E0230C8C19 +27EA8EEF440B7610408282D06F1CB8ED9CF1A65683C3CA2E875B269BE99A042A9B936B9AE5ED +7FB2F3EC1C01C50E512858709ED2154185C2CF22585B0B3643C7B642A7AC808B8F4930FFB50A +05875B03757886B66A5D1DC99AB3444A0631C3DDC29F794300736AECAFEE7D46FA69D7E39BF6 +499B2147B7013A99378DAD5B1B3CECDF57A1B96A4B2077441FFECBA1924D326A6461D3D89C0A +DB6B9992285687E54372FB449B2820C94CAFF63B2FB49711000D44E3681476812944A8FA28EF +59482237F8DCFF59F1AD81AA615BF460E2466225F07A9BF084D348158C6CD4790598AB894E33 +0D1758595CC2F4922C9D1566E8FCF6A8460A30977DAC988021C917E255FE0E1F7E0E6240838D +0F4D821067927EC46753C952CDCFCA4DA2A99BE0436BC0C70CDCCA1DC2B45789F8A95ADDE25B +752BABF81F9BE611161384D7EFB8B53C300612D53CFA142918850E72F2975169F6F7440117BF +0611F75469FA6ACECAD3A3ECFD2625223D70D0614C1EECB6149EC4A52BEC4A3F229E5BC292DC +9572E63D43202CF30FD1073DD1ED553C80E33B08DDCA87DD3863B7D28087F68251FD49EB3F83 +EA92577457DE19452A87564A1257DF1796F73214D4688870CF681AB39BB0B1DA8D2999D93D88 +F83B827E2CE58D46F84719ABC5F6D8FC62D48F4E74305F5BE732BDE8CAE001547302D519E2ED +1DAC157CFFC3FFB7DB7BC637DB052A4C3638B957222CC0E9DB61A731F9109E09772FE0591054 +B198B2605C26CA25635E3AC337797FB9BDF5C9F5DAB3226A0DFAEC8723360362A33793A8753A +7F553A4268039BE77C53CAC5C462FADA77001B172A4437EDA49154565596AC8BC6288641FDF7 +38B75DD6D841A200B450BA19F2D177E4CCEB6984F048C8F97926E207DB2C3215040877F73D2A +BFE79E813D0E1D5DA7B3ABC9AF94ED3F2F9761C7369EB5EA04C0C84F42A9C798BC35D6FB639E +99929A59C2BDED44F7CB3EA11BE88F115F12DDDA132F30F0B0BB544330EA3862D477385A3E27 +D43747A7CC03185C5FC7E3A1B9816533C1EBE7890CAC78C34B5BBE6E20FF4B2D679911744B05 +1961AEFFCB8477D61A5817F01E47803878EE8B2555CAD97E24806FCD5EFF6E703E326FC46AB2 +1ECE67E60CA9899DA6B2ECAEA53E6BBA97F485F894CC08DAD3EDB8C08EE653C82076F60265AE +348E2414117029D250FF553B3B2111C921C5F468932995098052206CBAACF00EADB4186D68B9 +DCFA41E59CA0182A70518FC0469C373983932D5C8D73182312D13BF03F8430EBDE31862D42A1 +57372DE1F85EF55E5B994AA50C0D418262E1A7D5A7EC6B8A95709859509642D780107B5F9AA6 +380A67BB86E17E3F1F1427F5826F5DA3C519E22D3F44BBDD69A60EBBA9FF91DFEC338BA9D2F4 +132A097E0DF1E07804DB4A077E37DEF25B8FEACCE2A03678724C59C674D1B89BC0BB798F46A7 +EA9BE7D5743C2F4003A2FB995A6E2FFF14BB0F6372B70E94FDB4BE0AFB203F6D724837C455ED +D0CD807AEA01F35122C5B047C3E3C5A2C2E2EBDEAA116C9E08089E139104E5FD1A1F6B4DDA21 +B9C805A220BE54B923D9C790CC00FA72083B5C34A15C2527F30B5DB3DEE56A1AEB1AAADF98CF +CC174DECDD41D91A6AE1C423EA6ACB0F9ACF9E3B495619D75C5A3F6FE9B7A189D2A4640A7CC9 +6BC19CA78C05A6C58B1B28A0020890552B798273F3BE08366E85BA8945BCD835DAC185581A41 +1197AA294D9914D2B37F3B9F09F19E7C3A878BC13DE769B51BBAEC279A5BDBCE63E5813A85A7 +DB0F2C275E242E6B3406238E8AEBA3AF160CD3AF0FD251878419322D6237B3A01E17A76D7F00 +D5EF44D1B1166D7ED51C800EDA39FF5735C83F846B376AAB6C0DAE5001BE673BA46CDCBF3B91 +986E935E9AEECDA483E2B76D3C639E08E27AC04CC9D0F6F9884A2CF9517DE7E1D1BDF872E184 +0B5474BA4B974CD1F3C04A4A29B0A4AD26E166301AD321358AA11FAEF06A4B121532B21D2FD5 +BEB4485C9C1D1019BCEC7407A24887A1441E18744D02665F36E36EACA5B9CDF3958CE1BC9294 +0C590536E69D15BC053D3286E24A76711AE0E299213C543E33437DAC56768CFE4A190345B020 +B8368F4001F1413DBD743C765F120AC0348A834F7068EAD20593769505CF891CCD3D351F3873 +7F204EBA6EAD77CB03556D4E567A1390AD64F85F21B9ADF835518F5843A0EE6F0B15AA90A484 +0181A0C67677197106A6F92F00D20F47D14D5C213B8A5D32E08BCA99277B9A8858D84106AD2A +F126E03BB893945DA9A8E1EAC787800B5A0506DBCB104D45398DBE06A2B1B20403BDAAD14B56 +E3038A04F05DFC62E91DBA42F273C7A044DF8B7763A51F466E9B2C160BC033E361D40FAAB8A0 +718E1339304B4D6CBFBBB21C900D439D5FADC69F5EBDE98D4BE4CB9DAD3BF9433471D004EF25 +2CFB63FF8E03F2A5CA39CD213D5C5DE0A718E79E96FFF02B809BBAABDB0459FB67978662C948 +DEC5283F92C887060C895DB9B93391E0067192FFEE82E2FD7C66167D35EBDB9FC5888DBBA45F +E50565A4B1543FDD89CB9C5E48157C3CB0812364E96F646E0746F0C929C499C05FA6FAB2434E +8E7081E2427E99D0B6DA67A99DD709C6BBBCAEC577DBD9BE6A8EA0192E0A4272DF08E9C67DA5 +CCBF4FF38C396C55280BE9A7F7253F7F273629B94A3BF268CC05B12ED6DB9B9EB8C3CA62262C +050C923896B5D7B5B49BE5E31F70C75F054AB73129259D14B758E93C3BD651C85F2003C23A6E +EA4734483914C64221C244314B1EE691547D83934465823986A46503A7E13A3C4065E0CABE4C +2CCDA3E46EC297756FF67634AF788C5635E3EE3BA67905CF27131983E16AB66FC6AAD19CE73E +C51990AC752FDED9D25794E20FF0BCBBFDBDE419394ACC2A37E7EF0BFA8707BF9B193FD5ECCA +A235115FBE22A4F090971AF19E8C6B777D611A16842329E977DAEE443969BC03A334C616F110 +C335261E9CF9F8270C10EE7166BD8D3EEE98E4E60C63693D398F903A801DDDBA2FAAE2804507 +E8791D3E7F2194105B0A97A4A248F27172EF16A75CD230C04EA3C27E0474EF3A8DB470FD9F5C +1FB0A4A1C04AEA1A9AB3782DB8CFAED0EABC01F6D4B3F6C67575CDDD48F804B79E162A6FECD4 +06812DF4D8F52CC88FE5EF5F74EDE924EF967BF5CC412B415F5BE193B95598669A1D87176C3A +ED3437EE11C686861B1E6F92891660FE8DB6805593D11C5F78B796F69CF8718CE75544C59A22 +0703291899CC42955D44AC6F52BDDE513926DED284AD69CE596FF7DB262481F19C747D7DEDE7 +165DF22714845B0F5FDBE177DAD835434CCE4830A283721212CE5EF708D7359D6B5D752151BF +40DAE4BD028C615E2E8DCE4DFC3E3D4FA35EB6E04F4394AF9B0B4D85EF305D12D428B3D607D9 +FC5306451E4F7FBA6F9DF7D9DF6CD8D46DEDFA5ABC0D73599B46C103D3CF28828D1355C5C297 +1CE14E1730520E4CF20F1E31501B2081AA1379AD31A018D4D7E3303BA31D07286666A0206255 +F9EB2D2FA6036E9FF472D06A703A927F10AC76BFEA916AD1F0B8619ECBE9FFEE4F7EA9FEE669 +CA4CD7E8203E23BF595B0C9202560E05E0ACFEB5B1DB40E7014DCC2142B2BAB6E0A7D14A9764 +77F91CBD4434BFF24F3E8CD5DC5DDA34BA3B24B4A220FCC668D90D962ED169E39BEEC85FB63F +B473D86087600E41D30C853604B9B2B88E550E0C18E25A5CF7BEACDA6857F70FEF09E88CD8E2 +FB9A54D9A060E33B608D5CEE327C32D1CC8C19578E65C6E17B8C982B8395B131FF55BD568222 +3AD42FF5ACD42E1C6EA8F76F1ACFAB1C77825825CFBFB34752B779E56B2CCAD3302F16AAFF4D +73F812FE0E3B1CF60B2A977D65ED505AEE4AD27A7653C74B9C7F7C87B5CF051A8891B2986EC7 +678C20B6F5990F2FA389E547BD5E0212FA608DF050D1B7BA12348EA8CC01B6818CFA54335D42 +8752C54142596CA55850B3713C577ECD7230B3F5627B68AB7D3A28615676C5540BF760B99344 +9E17726592EEC9D74E4ECA0E60E6CEA0B470DFBF98F9420F81707109D8D6BCD2BD2E0209AB41 +D9C6020486E9ABC518D0586FEDC942D45AA4E76BB3B33D361FE7CEEA92A4B3EDF2F5D3A3F8BA +4CA4F5F6A76F3B825967CCC80E9531FCDCD097DC86205A713F29327659E3F5523307A73C43BD +72FEEBCA54DCE12C401B1BDADE58765E396E38CDB60CE5D5037C94BAA2A19784B5D169ECEFD6 +56E9D965308D88BBBA8C9588AE8B687FE88156C7A10C4B6C064A73E47F841AA5A2F05C3C4913 +E6257898453AF778B06333ABC6A3EFBC4915A0C0403F1780DF83549CD62F1541DC908CE020CD +E768D73B18CE02C0F5DE968B0223E83731300E2A6A2149284D310FE882EE9ADC96754724B574 +D88176B65FA331B116451DBB80AB999F07B9B04AA66031EABCBCE4FFD035F8CF19188F6C063E +4DCA05AF15E5731F892E1E7AC924E7690C1EABFE7A5A5266D88B78A626CCDEC2ACA7E91E9ECF +4254CCCA8925C6B004E1D5CD056063419F9E9D105A1E3B866D181D1443107FF10335B4C4856A +76FF9483B4781F4AD63F015A117D22DB63912558B2F4FFDC8BEBFBCF9D44DA23438B99782B63 +116A47D5FD1FA88C1035DD4B842EC72FEE1AE0C5349FBD63B7F8089AEB5FC2ADA226C3572333 +516187BF3AF460FEDBEC607E56471B69FB616333143610CEEBF2040EB6933750415CA80E8590 +F5831C873A92304EF15A18F9418EE05449BC5EDD434700E7993E5F291952A4D876E6460595A4 +ACDE51FEFB167C90A83F49CA77961663AF955EF07EAD20C5A131F82E89C0DADD1E0AAC5797B8 +B599B0CD16F1EAE45031FC390E10923DEEF75A803F49B7D7A9BD18A3F032DFB948D0D9AFD90A +EC51C7473B66D4D1ED80C718D1DA4405A3457C567AAE21ED9A6FF02925005861C090985BBA48 +4D1CD3AC669FEABD34638881A54C4E33981EAF7A2B83AA286E7578269A9B9527383FC7EF22DB +C1D62F1A030DBD9627DB99F0668ABB8FFF1953EF4CCCC44269FD4E9F6F5747F204204DF5679B +17E8658A2E533E38CBD76232FDEBBD704C13CAB33225C03E7689A2071631929B3A7022C0736A +2F627B72D2D824A6C3A44BF227E61358CB70BF1D01C8068A367A804AAF4992C6C7708507DD00 +672572DB5351BEA367F4EA323511FCEAD2101ADC50C569655F68183715F7334A7FED2054BC1A +EB8B92BB3487865581F68B6894B08FDBB5C2B0906C57304FB912731E102BE9A13EBB4F091E91 +5A9C44CAA778B4F582064DC5557789242F6FB9851C9A9AEBF187BB25BFF4F61230E8600FDF75 +BC0975505E57C1FF34E896A1C2E3FBB3ADB1C6627689D0F10E17B7F6662FDDC45E3C797339AE +E58DA4BD85940DA3C3F9626BADB53B6B4674FB02C8F51CCC9AB186BECD819245813FB0D6B3E8 +B29A5828DD1E2C9F43769365DCCD5B8DED758208DE7347173D93EBE6E3B80D059A238F2D03D9 +FDD97D8C53C50E1C954A8851D9B5A5880DB0DF8C531DB7D6AA99C6F801A431F491B2A3B3F9C9 +5459E75F860F448CA3B1DDE43F908A8EC27A5DCD70AE6D38DE903097780576ABF33B77E912A1 +229369A7CC41B036C2A1F94E667505D6272E5CAE42252F19C69C05DF283036E31DAA8F8BB862 +6EC9C940CE563D49269BA2FBB13EA087D4CA17134A2ECD9CCD30FFD5C8B38A4ACC899ED3B4DE +58631DB3B240E1E7783868D8B1BCAB29AACD2741D93B60B358541A2336B960FB9AAA5448474B +EC223F4CC7D7716BAA4D372D181CE262EDA55054D22B26BAC4AB95914A6BE391FF77E0AF9F08 +FE324CB387EFBD5C379DC77FEFDFAEC984DA46430052383FAF2938B170A150363250891406C4 +87212466727685C98104281FDC4A6194353628976EF3F99AAF9616022E5536A7C67B62155EEA +BA24D4BCFA2CF2A6ED89AF3D71D5F103655D8E0158E66D263AC300491B2511A8C3D78DB95B68 +E8EC2ECE2948D779900A4156930729736675B75A15A5CABA334D6FA8F5CE59BB442F69FC4F81 +07FB59A3A4550D11A05641CAA8F517251631FB2FDC46982C18CDA7D910F0384C9C069AD424D8 +0434E2D096E9F4B85783EE7CE5FA2D6349CE04E56B8E54D42824F1DD6C3DCFB49AAEDE74CD27 +D7E4460CBFAE5A17963B705F8FB0752CC069E4643447CA2A0BAA72EEE8F29419BF09E353300B +13963F0B5DD22834652E3FBCF185635243400FD0A6F7B6BA64C604FA4BFC58CF31D6A83773B7 +8FCC22CA7E06A519E691499C0BB44797A18579FF6595CB2130A9B9657074005FFBA690376DCC +DA69B93CEFAC268ACB43694C0C5E9C60A806E9C737F6184B36771D41FBC6DD601D17D38FACAD +DE8D7DF9D9D0546188388A17DE1212843C8751F13D969B13C680ABED16CD9A5CA09AD58F94A8 +F1B5A3C18418D2C43F1118967C982E35B8436099099C36478C332DBBECF0A080801F9DFA9370 +C8DC3AE9B1CCDD75CDD251FD0DF74C19EF2BB9AAEBB232E9A0ED0BC69E84B20B358912FAAFBA +9C4A26D32644C680768BD0F4F9C253E14748ED7FE2C095140492F303794D16D38A04CC602804 +FA9C1FE1313ACA0F2937A7D30C3132215D32BAC22049BBDFC23A6D18E16C72481A3F372F64D4 +035651B2DA10E8843F692F679A54F33B63FFDB1D7815213721460ACE8654665C7CD5FB89C7FC +E1360BF6A61E49602E1CCEEC94A18A2505D25D0CB95D12C247CFD22E467678692CBAB00BB15D +2355C62D0F793AB32A3A65A8CD9331F0AA794D98901D5424CEFEDB062E7F338330B9D95DFABE +E513C6B2356B10705B2BA650F21EA7D33BBE7DC522CBF711B2E5FA682FF91948367CB5404E0D +997F1A82FD1AA72D87072A6B0AE21627A82CC4486F753F84F4C01FD874D19B03D4DB4F9D7E3F +88D59F59FE3CF6B9E3A7E33F8A560F7EC0D5970EB50EC0942B01F83E23A25352FDCB5B19AFD0 +5D2758B3200550114FA05BEF17ACE4C42A357A7A0055397FB666F2F24A28416B74C3A26736E5 +0BC8463FF7BA58640A1AA29C95BB2B4E91D80D5CBB97C83BE135A201F20081C6DCE6825099CA +54C8583F61BA07CDA5D0D10943BFEC6FB073606521C1F31F3F23FDEC9183740AAFF05CAFF477 +DD7ED960F45CA8A8A423ED3D48235250CD01AF906E05FD3A28FAE11492A3F0E5CC187602A29E +669CB84E19DA01500F3A38772BBB2ED0CDECB076272D412814B31BB78F5F1522E2F96111DE22 +A2808EE2C01C7095E01D1869F6487F505132DFE205ED9C040A9A8E5517F7C143D82A990292C9 +6BE59D5DA12266E264905ACF9FA9FA0741F0F4425290D369E23506CF92DFE63EC557819079DE +9D53553FE3CB6BAF59E7E229B0B5700BE143B0F215238169FF55204A15EDE026D31F783FE35D +5AED1852D5F9E3168931A180390C322D4F3C6A492042018C88B9E4AB9BC5D160A51167F1197C +DE0168A59915C7FE54863EF9CB147EACE2BEC439C9A518A2CE32CF88AE5B08BF5F0B5A87AFAC +3914CAF1EA4112D1FF06CB065267A624D70D760B80E4EF517071FAF91D108246BCD12205257A +48066EC3B1AB708BB50DB97A8A7F1D485B636E87AC024044F7F06737A864DED5A0B2A1798846 +5A52E923322B45988D335F91F7BD4A181C4FEFA0A4CC720D8480AF4E02F3D2471A58D6435AB4 +7BE415E8CBD37EA99E61CC21DE250F20BD152822978C70E624A27028E1F153A199B997988E07 +5222026DAFB0354796A4B044714785AC0FAE6B0EB9536B65A0444036465A6DDBC5CF245A08BE +FC6E89B1A2D17C87206EBE479BA6395B422A3C33BAC43BE9B52FF5A5545E2033FED2FE60D893 +E2991E9981F342BCB1E0F89A0D5881459E1BFE6BE3FA652BF5F5D432CD11C0674A23F74FAFBF +5F9740A81F9572B038A82F59FDD0784353BE17C36D763FBCAADBAA92F7D19B52987E6EEB11F5 +E1CE1A6E57B4BD6246AE212633C643BD14B90BBFAC9EA2B220C8845F37D93560F31E5B19CE90 +7052C9B3292AA1F24A6ECCFBC89FAEACD8FCAED983C57C361D81C420034255EC6132FB645DC2 +7F1E5075D535AB33E72B347C6FA2F5A6E1EDAC8D8B40436D07A732BEEF6F129EE4A660FDC905 +3AB05EAF292BC50766625B0AFA3B42D5E6A619D2E3D7A3374DBE3AFB1BCF9122CB54526165D1 +D59A3DF54F59664E4CF5B3B2B26E585BA83C69FFE8C0BE36F56C90DDFD282D78998CAD5D3455 +A52ED86F1BA90A8E18BA2EC097CA0A7634A2154D94B1BCC9473CD337BC412029734D1A0C2F29 +872274C92659844E174215501E7607864A7ADF4AAAB1226541C71CFCF85AEA97448047DC8817 +AE98EC5146AC703B48CFAA56B6AA8C7DDCC3416493DCF59FB8A3722C70B14751EC6D8374301C +149637A02CCFC1E9B28F4458CBA8DFCD3EAE3D1BC0BD8A3AFA436428C3AA2DBB334E6191EA8D +4A5A4753FC1F15620C12412C39B85F7D631C774CF6A423D79989FAAC69B46B4C2295BB8CE20A +05E411F87F33CFA7DF9A78D070FAAEBE4FF60F89BFBE3151856B3A8B4AC8DB98F335612BE65C +228F5EA60640E08FF51532340A998E017DA0415D0D906382EF33340793F1195432E2507C1B0F +B9143604CD056F150B12E63460E19F6F1DFD90E6FB50007961B589CF760AF92A049854B4A043 +82C50208974AB808B2EEFD439AC69E68B1A42B69FCEF97E92B2272BEB13AEF27D58EEA02BFE8 +687DD2AA1DA5849C077A4ABC53A9FD0DB9B3C5E14B7349591CD5890A42D6F72527E699B60AD5 +374EEC51EE0E853A80D5B714B59B9482E758B6545532EAA43A4C39F846E518D647BA39F9CCB6 +C46A8F6FDE1D2562EBBCA5018CEB9880AA90CD18AFA2803D71553857879813C8D229FAC466B9 +1DF73F820B00E188F5CC9DA939A2FB63535CCF1E13B0B5ADE9E926A1AC7965253B6DF858571C +E2FAD605754C9B46AAF5C08D03AE83054AE0B356B89F374B3071D5C9AA62E487B59363B5934F +0953FB9B201EA5251089A2541794CE1301F2817FF53A55449AB02CBB81B8D1BAEC61E85050F1 +0BA6FFAE1A8C2364FBC6522EB0311DD4BFF2A3B55BBDF4A971F70FC8EA6ADEA4D36022E3DE35 +3BFB72726863E68B7CBC380974E6770442EB4B6112E4FB669A04FE36B45C1E046E78E41C0C0C +04BF734C70E40F73CB1F83AE9FBF3A1A8DFEFB80172AF4C557FDEFD3DB0C47C0F94E989DBE57 +AB4919CA4F57F5E30F2E62E16F33B32ADDCFF587B96E44E533C2B5FCA428E4425F2E82E50EE4 +97912A4ACF8B380E8F033AE89969C87A1942736845240DB752AB5641FA65047BF710D4AB8E91 +154BFB6E2541AC80B88B8C0456FD36FD02A245A2F65308C6269C6F8A0F3173D060082F04A828 +856F01D400E2679943E7C1C02EAEAFB0A57E820AB9D37F5F69A5ABFAE1898A35CCA442B114C2 +9758B96C308C7D8048C1662B5F5876FB01D3BB063B23AA0F8451C35D055129D58FF08B5CF458 +113549EB2DF1E991F20BEB0FFFF976E024B51678B95AF7CE9048D92C010EEB90D7BCE8B25434 +1CBCE47B0A7BAC62CFCCE16E88ACE7E4160239D3E23206AE2FCA2D35BA40E5520822D3BAE5AF +60E26014C2C2A364E918DAB1E51A64C792D43A3BD711D7239AB21A362F1B31531ACE927A169E +D3D6DD4807F0C6AC77AC052DF6C915355DF24871DD4E22AC5EAFFCE6DFE9CE3FC110EF3674A8 +B85A0D3447B6758AA86D96E09CC859A2617DDC0CEA8746A02D19795FF377B61A360EE9B88910 +5CCDBCA63F47E448B70B6836F54284D6DB4602A83C96E8F352FC9CA45E5FEC18EC0C5F9682D7 +D90CC91936A840F1320D1538CA11E47B69CCCCEE392D37C302154479DCECFD484587BAEBEDA4 +427BC554EA4212E3BAF5562419CC1E39ADE481379F795131C6B9AAA8F780297E632C4BA29BA2 +2087E48CADC58D8D2A4B5362E1D90F9B0654D0207626D7E53551A1B291B8A053E5CDD1AFE7B9 +BD33A4D5208F5469357B87CA290E3BAB4693D439D003005BFD8769AE2274EC40BF80AA2D8829 +2691603DAA72551C4C48DABCF8D7FEE0E765185F2131EA22F720DB27FC70A58CD69CBFDBE4F3 +1E219F9DDC411448A50346504B4FC367170A1A3662FED42E57251E21283D0FCEA963CD62D2E5 +8FA44CB0F342DA8706ADB56A2DEE3E184DA3026C03AF3243781B018DE4F67278511AC243EC2D +25BA814B3F242293DA7746C1D0CD0930708EEE1B01E0521181EAC01CC6AC73ECEBB1DCC23164 +0D576664902989AF0F7A51AA874D3FA6C678D7204DFDE8A3EA1A97A550633BCCD6C85988310E +D65F784D130446D8196EDC260790B2947361349D64801EF5DB80E373DF130455D78EE8A1493F +FC924749FD9B8FCB657270072D85DE0066033D5F9F8A399571AD2D37F034D6DDCB1BE272B237 +ED5D9F353DEA917FC5DB58517B0DE68F4673038A36E7D0D2CF8A1721D168C05324650B335528 +071C139A47D9F88C432FE88B266439074F9209CBE70B1295711044946931CFB2A030D3C5BBC2 +79A93E897F9428F36E5F26F729EE80045E6CCF0D6041C052D8323324FEED4127249DD4F54CEC +5CA4183BE06EBBA091A729F39C19826B8170AABE50D51F2C666D5C867E81866C6F68E7F57531 +28B4EC241EA565D38704E41DAD62EACB31E078DE3BC0E0E14211D270C7CC6644EBD087B56A64 +D9711C3F2562A1E4C5AAF37180B85E968374D7B6B059C3D5DB001F67BE24248A9962CC2B2BFB +FEC99FF46267DA5BA57F9BE5BD88E416977A9368D76E1076A9FB58264049CD6CD452957B999B +73088052A14285E77FC7290C43A8D26FD54726F493A53C3C1B3734A956144757AEC98C8DFEEF +C557992DF57303D673E3780810718CC88DBAB84F8673831AD82B5FB074FBE364604B2F00A35E +EBE7DD52661772380773CC086F12EDEB1FA63A8EFDAF5CCEAE27A9B045BCD12DB384114C9A39 +5CA7DF68BBB7DC580DB1D88C611F7058277FF3605D20C61EF83D16AE19CC7B603D4398215307 +FDC83480F32DD4AA7BF9D466CD8A761ECCD1DA0CC00D5CB420444EABD8555C8B2425150C5CC0 +52391ABEBD670C9A6CC0F085FB079636681E8B7686C0E49DC6BC183BFC1FE0BF0D047EC3928D +A869EE0F9FEAABB40D18226ECFD03D982BE19A0A9DDA19E2BC0ABAFB208799BC9268D974AED2 +BA576304226864D5BBEE3570BD58B5AC56D739AC96F429250F640DDA287DAE5C2DBBCA73736F +991BFE2C447A7EFBD64D72E6FDB06D7C98F743B37073052E7340A93E0C6DFB9B8B9B750BC8CE +FBF5445CF0255ADA1DD84F0959035C7A8A977128A62A8672E8DEB5932AA498A33557FD639AF9 +B073452CC8C76B06075B12EBE168661419B57867E3FB261D49C4F6E9F67522C8B387284E7AB9 +B3385B54C72D957BF0D6DCCACC1178356503E1CCB0BD590688071AB2DCDEBE2D63419E265CD7 +0968083DF0A8B56FB86E7D6E1221F071F580772538FE3856090187E40795274374B8174DC0F4 +E20B4B1D5A2449FEB466FEC133C0DA1B1B41F5A38104A5F0A9CC3CEEEB1CFAA18F7534DE348C +DF12DF83C8D4B695C0B0A82C5355153646B85A0EAF02CCE453286DC055FC48142F1DB5D8FD45 +8342A35D62DAA9318B940ACFF349D2763C82B546745D627B34C9D5328806623B79C258729343 +05FAE0D228A047A23DF0A893B6412C6B4C80C4EBD5917A38AD5E05B22FF05B84FEE897C28826 +ED85FFBCF6C296141A964B85C08DA862053733830DDFD0B40F144C30A00A6E010BE460EE0B6F +97DBC59E63CB677D0777DDC8ACD538AF43761F14D030EBA29EBCE8EA43658A5AE55F69A73CC9 +A17C999208D5B78F7EA0E80214665D3A4A63D83AF94443EFE46F31F929472753C2785696660B +E4FE514E4F4864B836F0AC747227F899B4A8D3FB00C2997135A1160B7B06AA1A131FD4715258 +DD81E91C84A6A8275F92B259B71AC055C2FB889D309BAEEFDFCE2B626EF704CB94953AFBA41D +84D99B98335156E80A73F35E3C14902A5F9EE805BA04EF4D26E4E957F3CFB3BA9C53EA8B23CC +629F4279F9EA6EE86FDAF86B66E646547C9B492CF616D2DC32B030C13312557E8504314B0EDA +8BF857410CF7CFE74843961272F319DEFCDC22D57666947D2B1EC54544C6AFCA68294125332E +775CF03A279E271AB8C8E5C2DFD996F37FA37F96B5DDC6D403F120CDB06883395D80EB233852 +CFAAEAAAB5588C021BA1F1623E59E68B90E2709C17B2F7FD1EC73B606654A145E10C5C3A4E69 +7D52A071976157ED19350258DC7216275C34348E000A664ACF3A5D40149D82832A833AA3CC33 +E9BBBFFBC913DABB75B7E2A026BA00687ADDBEBECDCEE7E4D5A62CB81A48C12A2B86ED304A2E +CE0CACA59900D444F86D9B035996234FBBF0293C77F4391F8A27EAF75D00A29A7520AF77BB0C +45138544F2A08E4DF0EF44504F51BBFB909F6CBA437CE23720DB1E2E97BE20BACEBF1CCB17AC +779311190CD7096AA90FA57D10734A752556B6ECEECF70AA3919C2C77F3935BB0E3F3B05A3F3 +71A828A6A489E59F1EC773830C0D2666FCA9C2AECF3C1CD05D9EBA7E5745D7050451C3A733CF +D5B6DD359732E8D4E76908CA33652C0BA542CD6ACEAFE9061BC7720696CD19721F2B671836A2 +AA5021ACB69A66AF8F580A9DAD35FA31046AF6AF33201E7F46A3890F0F8FE54485B5E81AB77D +C82AD90DA7120949598FCD8FA11DB42BD2FF0CD93B197207F0AEE1FFA49C05F4BF91AC4FD3CA +D057C2C790F87D997CF4E73A57F554994169B8B6C588DDD8CE0286912B39A94B0E234BECE8A9 +6D7B4D2A8BBAD54734944A9A8A6DA9D1A24E63D059725F08B0331B782CDA087B39D5B693A0D0 +4EEAE14801BB0CA11AC758997E7DF2CE0C0740F2D2A3BC7D07FD17263472B47BCEB74421D747 +9D8C14A14FC17CF5CED09CF717D58E93248CA1ED631BD9B6FD4511A640569333729C1208A62D +518A6B22B1943FFA50352E1414609C70FBC39806061A41A81DE11E44C256C603C8DF3520B365 +B07B208F52770F41D12996D4EB9CC4DD984DB10200E7CC75974D00006D691E8F2DC2D68CB53F +5E8BD817C7055F8EB4FE229A546801568CEC1BE7BFFF3FFF92AD5B0FFD51E5ED907606658400 +F7D601C2865AB43231E51E65FDE075B693E0524BA678B50FA392E8295F6E9824B294F7A48710 +2B40CDC7E3E461EACEC78ECAFF9F82A3B84E19AE54ACEF85DD0E56A357B7B302184B85B52351 +5EC15888F0829F467A0F541F8E59C064BB411C5E77958F7D2D20193F5F0B3A01B01B5095AB6C +54D0EC76E243028AA653A7F8491FC5BC5B73527A42C7EB65BE5F461865A2BCD4D499D75107A1 +88B6CE465676F8833F49E729061F060D402E6685253E1BFA892F7F1A019BA9CBC9452A08A255 +C230140568C2E1BE0E6C4499025FA6E6DE28DE55C1BB42F6935D1B4EF96D25784C1CF721E0E6 +ADE0F042780C8ECAA4D618366CF64636E722DD31D1EF37FCA2E2009C0A3FC6DECCB5D548869B +33CDAAB5900035192B0BE49578452F74828A5EEA7DDBE06FF8AC7181DD505B52F07554A20DE9 +8EFD1F935B9E91BEACC12C4BBE29C0A6195A40D377F89C081EE74C7B317263FA73E4F17EEC3F +FBF34A12B73CA948E40DCD65329C9F994351E2FBB60302FC22B92468D1AA66767095382284A1 +2727CF3F767A210ECF85C16F29D93B3D389F221A05A66F532B3EC6F6BA84DE0D465B17176322 +735E6C27BF0CFB700F41014D784BB9B7B726BEB4C02EA22467E482536FA4EB93FC343BCDD31C +94095F1606A7FF72DB96B9E74A35869926BB98400C0E2C631A11C4A4B70AEB2FC3C3DACB6EBA +19E388D46FF725124D06863D79FFF418F86E8A2F8BCAF495D4D1B312FE52ADD646CF6339CECF +F1130AEEFF89C8024C473E4CCA55D93BBE1E446EC09C095CEDC11EE288BD9B67E4FB11B69767 +B4F033AC504F2B9D36FDEAAEF8E64BFD66BFBE6BCCF97A6D36232022A3AB4F507DAEB9F6CF9C +51A367FBF53C216C540F70519DC24BE4E45B4A5505493B460A32233910029663DEBA50554E0C +231A0873F0C351AC44109F73E7E1B76BB99518E25AC4C5C4403C71A36FEECB05E355B424071C +5223D3C970C3E7DE92F4818443EE949B02FDADA65A8AC61F346D54E8E6DB341AE0F99E778373 +F30439E80CC3C0BF1227BA997F0F8BFD1BB2A02C6B49A52E5AE2B83FDD5DF8E3CC01361559E7 +F89449B5DD29CF46BC063A76442F8E1B722B8AAA5DB2B58C0FBA3E787FDBA29EC29B9F453843 +F8F3BC6889EBFE5708639274FDB2DD8EE405B22807B841EBE9068A9C6DF281AFFD1612F46A03 +EA56C4142C997080D02D14C13340FBF406600E5AB62C1AF1846AED0389715B4297AE995EB147 +AFB67EF9B258C7FC1D0D4E050B57D190D626C8A262EF895FF7875A44C8591D9579778B9F962F +EB65467ECC9587DAA9DBA76F8EED6B9F96BECF5A281727FCC093412093ACA1F01DBDD6F59400 +9B8CC665A15DDA79A7D51F2397BD6B4EA476FB35F82C480ED6F5F2CF6D20C4A9F590D399A9F2 +AED79399B2F043D68F5A73067EB8B24B25DA77E905A711AA78C331B53BC304C4A89E00B2707D +F83DF080D5D461E710F598FCD130BE6FFC17A0225F03C0958D58FB48C1227F97CFA83077A80B +7DB22C8F1321E02323B2B35ACC70970BB2643D5E42795FA98F517F7665725288B185BDD1E689 +7D8144C711EE9239AC7D1BD9F088CB5970F207C3319C911EBDA88C95AD36D7D067A5F208C710 +A45948C0F980A3F308456F33DF4000117281107AC5B180CD420CDA53380EB1E273AA7A633044 +24B8B94AF55B2A8987B4CA7414B3BB0BF744451165B32528BF3209653C0657838F7647183483 +497FF2CBD25D4B3347CA7E29DD29EDE355FFAADF1FA2E5E7AD85E2F2751EAE55AEAE71A94907 +22F6545772DEF80EE610C0137ADE25EA4E29DC9FA5B9CC9394D40D517F0C82E33CDE655BF211 +2C0582E9DAA52DB442510429783189F9768FD17D6BB2F5AD9D48653D0C4FA24D7D62BC8B29C5 +4E606519F688C0C4FDAC2C932ECC754A614B4CAAFF06F6838707517C4113D165797B722AE518 +0E85064A229E57FB76DE3382F8A249770BAF8C86D1A24E1DBF1AD62352265FF90AE4F0B81CFA +F8911C0DD7A4687B35FCC2AD2238E42AC50D1B787B9A7230680457D6522B3F81F3A5E0F92952 +DD775E6A8ABF546D28F678097946D41F100B6C949F652DF9DBBEF585DFDFF77336BD9375BF99 +5DD6331C9368AD203469E2121DC214A1D14BC88E686F39F9232C97872EFF39CA0EA66EB2AB26 +E7F6644ACE9E5987C272995E4D208F393AD8E1FA5710C433E63A42E96DFCB7B078A6B60C1BD9 +24C7A6783F8BB420D070933AB28B2E234C49876153911770B40D646BE209F545323ADBC8957A +CAE29A936D4A1CA4CF881C27D212336EB15C0C478C0768491F4E4CCC84CFA9DABFC8A4E47DD5 +391E8DFB148C2A42F5A3D81EBF09CC4E52936ED51210DC7D3ECB4CBCEB99C5507ED557D2CF1F +6B34134E6C1744777BD7E991A5ECCBC09FBE8AF6B584E2172CE683C9F6CCA44DDA58B04C8070 +E6CC96A8539C2908871765B46C6D564AA445E377CA5E84CE2E389D83E8C4E8F6F63D5AC181D5 +B788C903DBCC02068E09C643213B1DE7DB1E3DE58F85A96DB3B83E4A0B703373B6EBBDB872FD +DF8FBC0AAF38C93D0298E227F22043DFBBB65ABFAD3E60E40CB69F108F6179312FE251430AF4 +09469F969FDF4D4E8543D1462753362E46F6E3F38F6B52718588694F9BC81DC256195B089C2F +5A8B8AE47E8ADDC1E169ED031E5253206C31E6F547FD3C9FD7215D4600FF361FF6BA5EACEA00 +38803DBA4E660723A78E36A745A2BD809D613D86B53AC9312B11261F5EC792FDF2C1AA5D0BE5 +123E11F433EF92635E0DEF412543B5D6011A9F724DF6E86366CC80359B4DCD7D393BC9C95B89 +1FDFCB5325EAD88F505FEC98D957045D6EE85F9BCBE73D6AD83ADD0BAAD772FCABBEA7358B5C +82A5979D5ACC8B1FA26F27D2DBA6C883781BC4F6731E3504F408929DF315CB0EF99D6E4B0C1F +9B08F3B16B8AEA8B5C15DC5E7ABC429708A688707B89EFF5773C10AEC71FA3C0737056262619 +D181226B9A0B509A73E1C70F55008941830D7193824935426658FC51377A3BED40D210AF4126 +0C6BAE3F8631BB14EFD73BDEFC21018AFB810EC4E75E946A361681F4D443CDF18E9A848B0373 +413B81379121DAA618C4DE6062974DEED48677C09C7A0ADFAB183C0D8548F668372BFB722337 +CF20E0F19CD0CAA4375249E4E1C5DAB674CB6A1DFFD39C3FF10171257BD7E2D4577AC2E5C80F +D66AF7E2BFCAEF05172C72DE8533D61A8B3B77CA23E7BCF50CB351911481BC73A1C780D8AD80 +9435FEF402FE31B76AA8704EA4A3D9246E2615C649D3F36CCEAE1C6C8C6602DADDB63BE9E7BC +7EB204B35B2930A3FC55463AE0080E2866608A2BF156BC00D140FEC3B04BD9675082E66651E4 +F8ADEF53A14AA912EAE3FD16D5E29130F3E51C9E19CC5A37377E6C5906D73A88A30EAE6DE570 +D45194DBCB048D024A3E803A8BE2627D3C8354DB7D844FD32F84257FFE52133E32B1B8407F74 +C0FFBA764F329F27861DA3588773606DDC60B9F3A8DBECDD16BD8AEF5DACBB5E88D44C3659B5 +47F18C454F35BA8DD7A9EA6564FD726D9C0B7BB9340A443156058CADFA37C1909720C2A978C8 +F431E15EF229567139F9228B912E25F2218CAC594A08CFEA15171D72F978F03A49B4E3AE7866 +B9960F79BF1D6FB5608F51298538FF56F9E0F403C9648D7015CA1FEB4C560442FE35E8E5D31C +646B0637F9EFBFCB256D2C741A23403D88E9E0486CB62CF90AEA0AC24EA5E5519FD4A86B41E8 +92C54931CA061A4C93821451825776CC26B3409D8B3130C62D872A48A67560BE044F1F1697F0 +6C0B5A11808CBB3192F7DE26AB520DF0039CFC58BE4EBF1A2AECC882CD293B87771306E3CE18 +794A75AE6BE391BFCF0B8A59697CC507CF2C4A456B4B233FE209AC39BBF7155068C99CB2BE25 +F0B755960C54ACD21CF9651779903E1C8E7AE7A5853BB26AAF69D43916E1560D54E40A14ADEB +ECB18CE848C151AAE3D16794D8C124007818545F022EF2A1EC7EA7490B556E1BC7876A46732E +61F514848A196E5FBD4142A341A52FB55AC8F5014791E5144CCA96D3D2999B3D683D292AB86F +C5D0CE9D55763D9DDB5FD6428B52423AFC22AEFC7F5FE1A1B878A0758CD4E59FCB099DF6FB95 +F29EA45BCFF043D707D570B9F316929226BE1A54B23F28485A9DC8C809ACA0076865019DA221 +9AA9FC70628139F8B8BD64BC29C119EBCD23413D75931262FE53664EDCD93DB31DCB25A2AC09 +0B04A9EA8CF7833E34D1FDC26B3EFE65C086233A1A1A1C1FD5791D1F358019F7D098EA72EE27 +0275CD522E72F4B8C5BB06C78224BE8B8056E11B2513EBFA09A0D155630EAF2AA4204F77ACC4 +AB83C205DD0559DDB46FB0BCE65B16578830BDF37B3F5589CAE730FA6A11EEE8E6BAD3125F59 +FEEEC295A5F2E05C2E3B6CE16758A080C5B6878753C7182050E296B3FDD446DBE10F9FF91E83 +8B4B4BA0034E134827F941EC393CBC54111627B9351DA460D2A6D5D81A6F6144DC5A5638ED70 +171594956A838661237D07D7DAEADEE51AD0F09771DB822299265AC292AFF7C49D4ED442A685 +106F25798CF38FC48D5EB13F821A7156C850A20E9CD8179702C91B9BF425F370F5479CE97030 +F369E32D2930658C7E4E6E4DF87A4EDACC66ACA3B3E6502F9CD086D9A10D9AC7B96C817A7643 +7D9A5D653D6575B4FBDBB06510E996A0DDEF3E3012E9F948A464CDC28A352F999DCEBCD83B74 +039531F46A7B43EFA9012C20ED0DEAB569F3905BDDE917BACBFEDFE88EE6E9832F040D84F7CA +8AE2E519A53EA988A3BD0CB16D3A3292C27EA51BCE3F84CF5371A7CC10512DC5CE2FDDBF7453 +36B2A75B056FBFB763591481BE5D6BCF9FBEF914F1DD1A1473F8C8A72697FC4AD66AD69AE74D +A230EF274FC148E45BA67E61919BF46C32CC3D8B2E2889446E203B4040BF3FADA3AA9408F5CF +074C25F1BF20FF4ABB074592B054BA634BDE4A8062F63DE02CED708FE3A39085EF04805C862D +E1604A55CDD7B282FA910B3035FDB41BDC171D3D0781695DCF2F9DFC86ACB8D3CCCF32C83B6D +51C6A87FAE0BA5B527041D3B3BDF74C9545B0E9F0666D0C35F0C8FF84384876934FB6FBB6CD3 +1FF26C386C1BA290D6C7AC672EEA424C44D84F1AB18D4FA41A7C8A08592733067371207EAF33 +F13CFC4DAA1F5CC16F5D5A919127CB5E44A3E1911947C6C4FD86F001D9E0576221F41DADC527 +35D0224F3DB69654A8C4B6CCFA9B4C8D6E92BD0644614857A06FD32FB3D98041794E01A39D88 +4075A946FEF57FC8E566BE276BEC81F7BFBD5F545FEB3FE8B0C936E8D8C4128B418BC958EBDF +E5CA02901FB054B008626520AE6E64EF87C8B3D5A73B839A8EF115961B89AF2A71C6D0E14A14 +1A5210F910ABFB1C7E83CB8AF3B2F4CB2B76A72F28E50F668948AAA20D0FCC6071E125888EF0 +E1D420E18D33B4C946646348801AC42E6A89B117770BE3B067E8B2B9AD9F6936BFDE738BD5A4 +568888D6C29A5FEF9484C735B766DC66002EEF699F91ABA21EA8778290899F335D794F691919 +8AC9041BC1A9D875DDF91BAAAEE61A2BE1B80203FD7D7356EA2EFF7382F33CBB07D656F1A941 +2D6AFA5144674E368CE1ACA4BFCAA3386933F14A3309E3E6B03A056CBA6852D6B6E617331F66 +0B47B01BF60F0B2ABAD06BC2573FDEC871FDE62AD6A8DEDC3C8EEE9460220AFF30139A2FFB80 +B222C3DA73BB69BC304B37ABC3B44DCBBB6EEAA3D9137DF428A56306F3A0C0F79F8665355B4C +B71A184533DC3D35F9BE1E5A9D5A5208AB5667465DC382C6B681C4C68101A0A46CE91B568D12 +76822C069527FAB7329BC4D93E5BFAAB8C418904930E28259A6DB57F28C0EF1B85169A7B3BEC +52B4B34B51FE6F95141E9DC55B9516435D856ABDEDC26DF75B004E78492031CB5416FFE9CDE4 +AF300FCAA08E8CFF6BBBAE0CF7E2DE402EF503BB6CCBE7FDA50987088460B150972676AAFCC5 +C693B7D3983A60FB306094133197B58F916E5DBE3B2AEE1BFB570AA3CABB6B44153EE8AD9171 +F6AE40FA8AF8821A617F1C62DE38961D4CF0AA6A6014E6EFA65D5586E83DCFA9C80481922DD5 +FDA1B86CAEF2449EA5006EE07285D89C8A09F416DAF70F68D742B1F21D001F8D31C6A336417A +527BCA496CC4FD6ED7D001DE59A44326B53F06D1B269D4570980A13A5D7A8D48623235C539EE +6FC8564BF06EF0701AE2A8CB09BB3F72AF8634F11EC26F7383DFE8B72A09C3C335C60DD1FC50 +3C4476FB0DB86BB858C3F148D23CD69F1FAA0BD8148B19D5319AF9711BD69C72072975C90951 +E2B0BF44E0EBB7869AEC436BA402F32EF3CAE3D7624F2CB09A0954A8A802BE8F83FC29CFAC3E +0A15AD37A13D08FE3AB4C08201A3B060E22E4B767DA23E0063443A16E675C3E83867C0AB5053 +7F126EBC5E276EF6554F31B89C4D292FBDEC55AE303F2A62E0226544EEF480DA35DE3CC606DC +71789B9538C10A9A1A87EFDD0127E243F306DF25F353AA35A149AAAC71B61DD55B30CBFD2B58 +C4C93130766C9CC39EB1ACBF2B86822FCCD4E2B70D4FB4E6AC8E9665399BB5CDD3DF09C4C1E3 +94B2B2515891601E9AE1ACD5C4FE9BA858C592CEC2D80D0F9E7D8450F9DF486DF1BC8B865B44 +A2590CFFADDE516509752B659ECBFE98807B42BB1E79709BEE4117B2C36DA8D5D52A66738983 +54422CAC1DF463CEF092120277146457B1C54BC3BF884B0077C97287B143A0A4FD9EC1F42A27 +5D2DED2084FBD5026D0B75662210E42C25524EDD98DF8F374176EF4AD7C4218F529BF5772F11 +5384F7B297611D6FC711AFBE43186630EE83512AEE9D61E84A2537C0CCC862E4B7A7EFF0D9BF +27C163D8C08E86BCF60B0C90E58DC43A105B044A1C53FA13439467057BC2C22E829FD813A0E7 +A065DEF959F3193FB401D3D87AB7B54683D0DC3BAD4A530FEAC44A63E208382031BA1C8420A8 +17C5C2583513633206A2DF738C9EDA192813B1AC108C04E05735234173EA7C14D12EA6117C1C +E7EFE367DD75B795B68A2335797EEC2EEA29A46EA272B67E38DDD5C2B6AD9E3B59C037A9914F +5EA5852A32818E3DCC65AE021F0D308080460EB7E1C410DB05C67E9FAD5773A93DAB602CBDDC +F9092AE538E1C879C0FF1D540EFCA789FC64358C5FB5F066BB6C30413DD3E90F5C1C28700626 +DACD1E602793B95025D0D49153C1D36FDDD8171DA27834788B3B7F3F338E71DBE5A532D3C5F8 +944844E70389B8392F8483A1F4E8590B4ABD566669E21EFC691E66D8703CA5D31BE2F0F5DA01 +F3FF9DCE4CAEC9BAB0C4BD89621588F2B2A6A02E286CB4290B895BDFDDCB51316B248DE9445C +7E6CF4D18BF699142D6F5D682E0A069F378DD9A92C362D1C5E19C63C77F21C2C3F4462F60FE6 +94533757F829B6F57D007843CB22217CBFE9F929D431E18FEB621E450AAE0DC90C10A3C563AB +88C1023FAA8BCA390E2597194E29DF540919D9382387F200F51D42F99928C9057A63777B3DA7 +2F26C917054A964EE65C81D52E0914A7E0BF757B3B07B93FCBF4B9A39CE117683807965BA1F9 +8DE922A226D564C8D19D48A2D51D7EEC607464A6D1F55724C33E35C905F71605B823C7A6D359 +BFDBAAC68788CEBBBA77A41A52C10036C60E683F8D0316D8C8E37E24F4E80460BDD16F382036 +7B6823B37F2581914221BD590825BF1B5A480AA077F44AAD68952E1BBF50A2D75CE489DC318C +0C21667E4E1466356DEF034026B65C27DF125B0B2246A1F83A97C75982F557F4739960F5426F +8CC0416F1F997C39D6A8C765FBDA9D9704ECBC480BD63FF484F5FFF2294BA6205B5C198BD5E3 +5121E52DA9CADF557B4DEFDAEF6C657D4503D2D527D6E8FE6EDB084D6770572DD51A75595957 +3191A719B4F6B37D63F2830EE459B9F323EF6D5F2AF830ECB7B751A27B6ACA11D8971A735434 +B1DC2B1580148C18BD9AD265D39C52909ED8A57631D1D7929BD7A265A929D6E75D25B93ADB0F +8637753D79E886F451F41FC694D1A2A12DD723C045120848C3AD8E37BD1CFB38EE9B8A561A38 +17B30DEBD83EBA10BFE5E07980F832FC4027985F273645E96C19C1A74ED0ABC0555C5ADF48B3 +9147D72FDA940CA8D2B46667AECF1BBBDEF9892FDFDF3A38CC1C9FFDA83D9B34E680E088BFAA +8E39B049DF8110EA9937A43746B97DF67C86864B18F16797F266EB03C3B8B1D08FF7BAD68B12 +6CB980B1D0E1955FD8FA8529EF4FA72E08344039EA5EA41F752DD3C66BAD15BC220091C5EE82 +68F6EA9E6E684AC5A675CC671F6BAB30C56C6B6A4A7FD4955F6F28060DCCB5FB4B00BA077905 +89BD05B2DB56564A1DAE5084E7EE33D2F7CB265F6D9CB904580809793B99CBCA69ABD6ABF313 +028C9E8E71F423A5BC19851C5D5F0BC58BC526021123E83B4B5AD33694414290F4EADA65EC84 +5EF90CC7BB784AB25549C28BE3140A289BD163A08D4221979D679A2735A34ECFF91FF7A4E58D +8A0DC2664B12E21642D84C06D5BCAFB5BEF0CCA3DD5443724932518CF9D855CFE752019F6B33 +E0BEF54E64F76D88AF25849A46EC65DE3DA8007E4DE9D245A20D83598737B067070347FFD057 +4211E0EB0552CDBF57EC468A63F9E9AF2C73FBDE4511BFBC66B074AE90371177948F40F6A300 +9D64115977CA05F12A043A41AA699FC87BD04F022BB3BA9B856CBD12BA3D1800FCAD32251D03 +E730C6F0872C28108F7E18A33AA6EB490FF27FD1162D9852114BCDE22ED85B4B67872DEA5B19 +B46CBF794B9068953FB74E75B9F8F62B024238FE8D3D2AD952D6E0CB5B65C70F67AB2216FDD9 +264ED3E1F628D7F662271053440C11D57641E9CD206AD034426AFC710C2261F2249BC53FAD6E +417C9FB4D2CF69EE988B19B128C6058B4400277C3334B3F56F922E9FBC79E0670A9EF73A1F7E +AD2782F305BC8C5413CB44EF6B8AAFEDA7BCDAF1B5BF749C3B9F799ED5C286F68E8D008FF9AA +8BE9FF76E3AD75D3A9D557283988016B89042FBF612D8AFBA25456D5660DA31C8DF25B94D2B2 +EDB66BEBF320279E30B5483F99B154D0BA512C2069F2A87F902F283615737D694B9ADD65BCD3 +0EF360FB82E9BAE684645619F3AF2296ED312C1CC40960BFB92EE2604DD0C13EC61F1941FDE2 +275E59866B349848C9A18D032217807FFE0266E17AE653F41EDDA7E36DABEE2DFDFB197B9FBE +CF8C044B8792A37CC83A0343243942F8DD38EAC1D24B295F1942417A979959541C394972CD8E +8D7C675409F7D1051B1034E260390597D84E4EF8115623743F3094BD75A6D5438AE7AD128DB8 +A496EE6B9B95C1DBCE8887EF1AB22E29CD17EEDA48B57206352EF7683794B8406906B651196C +13A6E9CE582E416B66786377EFA27955E85102D6730931D55A06F649340BE9612825635CB60D +9534121A5A66444FA51C4A09A30CC209F09FF64980E3E83F6B5DBBEC4AD830805823B784D9DB +4DFB87AF383760553AF30B5BB988E18C5F455A853F5D91D30FAB2172405214491B699F9C6EB7 +D7368622C4810133D0C4B75C55363F38D6974AD27EBD5E480CFC0013456B0C54F65B51BBFF2A +A75DE3B262B05FA25AA1112DAACAEE9722FB241E0C4A966160EA9861FFF7CA13B4785A654E15 +32CBB7118FA372EBD41E963C93AE5F9D4651F56508C1E89FA34548F72C946B4E384E9A08ABFC +BA3BBE1520255CD623EAA863BB988F635BDD9543B607933EADC0EAD5E119A11244CDC7470539 +FD0E926F03CD32D9D4FECAFD3B6EFE823B3B05B94CF359AFD938575D2E733716C4E932C04651 +0B0DF620E87F6F39B99D738E66D3383CC151381BD7611D0B44A1A40BC90340534512B3FEC4CB +E307498C773A253481105700216A5BE3CCE442E00219A0A3412B274DC8640CC4E759FD2823D7 +F48E614391E5059A1A126D0A1626FEDCD738CDF6503D9B5C876AEA31298AA287055C7C24F20C +CE51BFB14B010C732F84A13B4A1DAC571DA1948668DB9E786AA9F4DDA0DD25528D785BC0EF33 +CDDEFC80747C7EF0EAE30B4D687AC8EE8BE325A8E43627A2846CE3FB199F593CC83E320B8A34 +254D8FFCCB45D04C4D41FEFB65AF2282D036AF8B614656EEEA10DE9409CFA0B3E6296030A0C4 +91942A17CC43614A5D43EE2EEB2F2DFD2156100C452F1725DB3B7C649FCD5D1CE8080B148497 +E8E57492DF0122BE6F1FEDB9B8EF8AFE2F119FA2767E9D451CBD637CA9BE588A0B876EFAB92E +5D238EA9C05EA6D92115BEC4614E05F83DCE5E70CEA9ED15936C20275FCF467FF3AAAC5DEC1C +EE55D9805A37AE0BDBD1EF8C6FD7A66D33E29828EB9C0BD6077F862206C6A1C734916811A2D1 +89AD5A48E5BEBE377E000951BA74B979CFC719A03FFAA55A458146215A33BC58A42B6D535E4F +15B1525B8B29524188CC192F923DD9F8BAD3D203BE862F0193334CD2546385C55B5E5959F7E5 +7B2C679D176823BEA88F86EB9F2FB5584A821329EC7328AC45EE0C992035D0A2EF6C71986E95 +E0EED9B4390B39A3E9EA4A7D79E72936A0BD4722121722621A05662431444C0E90CDF102CE66 +0D977FAEAE5DF63CB289D701A434F14BE992BFC1F336C4A43CC77CBF8843929A9A76CF768B10 +0531FEA4712B37C97B1773A36E290182548FC42C2088D028A938C6A2647C74E5FADBB36E2AB7 +5E07750A56F08F626B1A7C41F8642EEF04EB5F0B5ABF0A563C5DE626919FEBAD2B5297F58204 +C5C5D2ADAC3D3136FD33EC5DDD98C3F521E53F836B21DC8A8CBCB6456A5D971C94414C7BB3E9 +1F7AF3A1B6A7AAF71F95926B04C288C647E4A8080D91EF3404FA04042A584765523C6DB40FC9 +6397AA843FF4BE0BCFEA2ED32B276328BDD1EAD7461E5FCE8D3AA3BBE3183A6B4F56A3D16A86 +20010C88E82DB50E3F81DA8447270CC745B708E42034880C2632DCB85A4C6DA78116226D8571 +68A6C9C73680AA674B1360DA8D17CB8F642D3D0CA2559B1E452B1D5641BE4A664D4528135911 +0855E4F957762F536E4E8CCFB3D9CBEEA8C0E2AD2C1A47E42C878AB16E0DC111660F54349AFB +9BE5605C1F821BD68C941C42557C1736F7DB2D37B17D49C0A77153E99A0C99A4BDD125F3FD51 +3F3A1A496AD3E17EF623979BBC10DED32E319C764F5DE1D1DA61C1D1053EC4822495093ADC33 +FD9BDAB0A8BBAB65E0A24F30BE9D60048BFC29A832816CB6D543FBC850104B6322C14612FE26 +DBA327A63647BB3C71D2F4ACCBBB798EAD3404BCABCFD85188E875967D677909BB797DF62255 +5D7C5ECE1D8C59A5767257A08A6803E3CA740785FE5C0F3CD640E14CD8629FADD09522CE1DF5 +7BB7A7E5C10D15A6435598D1F0D112B9784D4DA881251C245FEDA1104DB6D3A6DA5A30AE293D +14D346F93EF45D569959513063BE28C1048F98C1AFE5B1433B7097C0CD5711FB68CB54B8BDB8 +C37046FE5505667CD4D4BC92F357D58458D5CB06CE517AAE44F596B83E7AA1CC8F17F14BC536 +A6554D22B446AADD28EFA83E8469DBD1563695C781B030ECFCF3513E4029FBF6C109C79A9DB2 +B5C7636ABAC5A4A282B74B359376DA840C62706EC64D7D41802E5065F5C3A364A01455BA6F2A +A1B2282E3B81CAF1B776B1D3863F6E02F68F0A91ADC7B9B6E3431142DA75663C9AC606D55514 +7BA418E7CB2B2C379587218D8A7B71A4CE552C980E95DFD8F9AD95C429F66DA569FC5E1A61E2 +DD1A6816FA54C7BB85D0BC6533A52BB1F4E4FEA68505D1CEC0751E21354412F72CB5255DE620 +690676CD20596869071B48D7B8843E5D2C006DC2FDD4461C4AB3E0B1D16D16C4A270765AAA03 +DBD1930B131CAAC997F41BFBA9C3220B972FD5B724582EBACD95C5C6BB2F8357DB8ED353D010 +ECC7C586F2D25DAF23D8E38DAC200E1D3725D40D7A11F35EB7FD572AFF074E67C3C0A620F972 +6D4CF7535741F9804885506F5D0311E349388DD8892B42A81058C34BC3F8E4AAB67590316973 +0F448B4B890DFE3789EA67DC3A58A295367D00ED283E50A6B961CEA798C075B5FB914F6CFE0D +A8B183CB5CFFA5AB0CAEE6E321E08DF9D67949BF1892454ABE8E5C1ED844FA3668773C733F4D +0660575E2CAB415746B8255BAD4F8715A8F01BABA2F92DD593B7B60DD17E5CE0E3F8EBAE6A05 +17079961C4A1F8B225C968BB3786581A277DDA386F3AD05382340EA03CEBCA7E0234444D7085 +454B657F6F3CCADFC192B6350F241224686B23792341B6DD7A4B698991AAA3621EE07ED1B642 +63D4905C112A0C92541E16875F7224B5CF48327FBA64FFED5BDAEF9355AF9BF50216D607770F +A79D33FE90BA99787F0077D19ED0E5197C5F3D839D74903D47C958A58B36E92345E84595D971 +154489B33A584148B4E0EF976A66E955F8763052B5444177E960EA6E6D3802DFC402DCE6F405 +4BA3A9AEA23FFB106F82285D1BBA6224AE9A5F33EC1901F93673D6CA54BF0F096C628A920C4D +97F2B78C010453F2A91798A07A9C0AEE9DA864044C6FB492483C51D4107663289BA772B77175 +7603F4A3C5A862D7FBAE1467DCA7792A2E56DA65FBD8F35E67109ED12E04069A32368E9ECF65 +1C5134A06616035C9B784B900A7B6B96FEE2537C17949B4CD471BE647B50A1BAE48FA28D7DCD +F8878B36226EDCF8B39F49AA35BC1AB0016A23CAE8C8BDEFC783CF35E43F76052CAEB4751732 +6652B03FC748EBAEFB54FA2B5E0CF3E6D07A9AEBC3014EE2DF9165BF63253FBE3D0FF297EFF1 +0E6B6260AFB6B09B6CF522BDDF10C077AE16ECA5B327CC6876DFDF38764FE0E7FC100A4A773F +BE2EEAE1BF68CE9095AD0FA4B465745E4F7B836AA7C59DE045ED5F9D99DDA77A7C956395E9BF +0B169AB8E649A4FC66954F2E65342FDE5324A7C506EF568008EB73D7575EF5B796A6784113E2 +CB3904BB51B5EB93FC0960E6A5CA6A8DC3F7E8002A7272414676B237D224BACAFC8AA2303EDC +B48CF50FE71BEAFF551831C166BA538041D7F62B78AF227D153C673CDA5D841CE6F168DDCD8A +113AA4DCBB5118C51AA70961BE08DF8589595E096FB341AB47A1EB7887B0B430743E4AAC5348 +E406CD325C3BF7E838707AEB3B058EA17CC8F103B2222A426B8EBCB6FE7EC44985808BFC64DF +DCB59B9C8543EBFBCC295A6945825BC2A3681C161E111F266DE158776EFB087C67A29373C7BE +DCC24272E4B28B6209CD78FACCD729A8A5EFC68DBC32F45799C581FECCA978D24D7E85B22F3B +B1926A9E9D465B00D5CE2BCDE26E37A91A212EEC76F7D7C43AFEC26B84FB1203FB9EF604CB3C +BB2847A09C2E04F6E0F9430860BA6837C18A449F9F96A51EAB42B1936C876208A61EC17EB92B +53CB01E1226AE96B7CF57ACADD4D2D76356EC420561A4CA88F5910263EC9178A3AAB165B15AC +C2AC07F908E3B6F37D88BBE780AF15114D8AC65D95110BC8BD9D25C7DF3310933D9625BE765B +14D1AB5032EE9F7D6FB24FA2AB57561AE1FB564D8D2705DEFC9FFAEF7303A99523DBC54B9C79 +A20D5F00A96D5A21D2B4E2D1FBF36AD4440D6179F5E7E672E7BF45B6FF1C0787101223E91C14 +8DA2AE709B7E9C6F576D1599DDC97DEED39831930C70CDEC4B47E899C3950D9D1EA3C94CEFB1 +8080C6BB9D46AFFFE13C4B0FFBF71AC75C79879437E22E634602776DE13E175D9EC5FAF508AD +F4D443EBA749BB4B50A1F0808BE0519D977F55024212C4601B86C2975B96CB8123412A33F762 +9916648A8097A2C58AD1258520D987CC57F712BE770BF1A118B56DB8AC89A3050E62C98F6D52 +09C2A668E8BF541DF27DE2500994AFFE9894BB56DFC60D8C7579953269E44CDC3E2B63E5C288 +8DADFFA3F9AD060D67A1A94599970279B2D45DF85ACAA6ED5A6B11A809C9E067739295AA2DF0 +A9FFE09F07574252FFC8FCDB39DFB64B29607038CE4D6F0D7B84AAF5281F7414998398FEB89F +DF598EF5B2D7A617B373D7BF1DA47A7F9ECC5952A39A71B1DDAEDAA45DB4839D36A7A60047A2 +1EDC798AD8D9AF7A8580610CE3A96A031A0C7CAEE7FB68CF51EAE29A899AD15410A692AF4CBF +CEC43B424A92BE2AA7ADFFCCE93AA8C1886476B1A72A4E9384B2B59BA5AD1883654672C5A93C +C2426959B1E1CB2F820A41002A4BC457D79D46D11697CF0AFD6B7A23B1A9F14F6E1166D59F99 +6162243BF998B1C64CD3DE638187097F33D7C1D23F78D3392C9A9D260281045E264C342EE708 +FE86466F6F7C1E8E4ABD455226A535236256F2056D5C6EF9D91F340557FCBF8393CB982A84F1 +CF9EC1EEB361BE41FAE829A468459E5A995DB5E0FD1AC9EAA687F26BD04216E7BFABCFAFADCB +AB3A8BDABFBBB7BC47CE9EDAC7A148E1CE35027D8A5D573B13DA6FFEFE2940EA94C94B4903F6 +A9DEDE03EE1723057CD83CE8834A3C8A29A14582CBC930990DCDFAD1986895F348036656FC33 +41CE6FD4207C17D5A210ABB48372E73E5756A7E0F50132826FF9EF97D56530EF705944ED9A4C +26EAE0F737A50ADB2CC9099C90F2D54CD103264D93F4BF6B5A9C7D837B2C73C664AE9BF08172 +805CEA546FC3EB1C71C68458F8153D8EF41ACA46BC314BE963A921196BE22E3162798FFD945D +93893BEA902309D7B2254ED921AB8C480EBAB7A389EFEE5694934D7FEA330B7D98DC67F13308 +A73A39C7A9C87CDE598776E51CDB03C8E650DB86749EE8324BF66D1435EE53B1B7502533982E +474DB9F6A0BFF64004AD995065083A78845A4EF2755626CFF4D26D7D3D7FE5BFDC5AE420DB9E +615411316BC5AC1F5986DDDE4783079DD06DB4C9D2E28E523C054F741485CC99E9238B1E39BA +CC625FD94ACA6B54605C3273C142805D0BAC9F39A99359E52BC92C0C779C4A4C10BBF95DE79B +55CC736C80AC8F6F7CD6D0A316E7FF1946E15F41CA106A02BDF6F33C2B83016C121D9330A0B7 +FED025FCC47554B50DB8CF7800DF1F33D7D5D52C2B238F0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 + +cleartomark +{restore}if + + +%%EndFont +%%BeginFont: CMTI10 +%!PS-AdobeFont-1.0: CMTI10 003.002 +%%Title: CMTI10 +%Version: 003.002 +%%CreationDate: Mon Jul 13 16:17:00 2009 +%%Creator: David M. Jones +%Copyright: Copyright (c) 1997, 2009 American Mathematical Society +%Copyright: (), with Reserved Font Name CMTI10. +% This Font Software is licensed under the SIL Open Font License, Version 1.1. +% This license is in the accompanying file OFL.txt, and is also +% available with a FAQ at: http://scripts.sil.org/OFL. +%%EndComments + +FontDirectory/CMTI10 known{/CMTI10 findfont dup/UniqueID known{dup +/UniqueID get 5000828 eq exch/FontType get 1 eq and}{pop false}ifelse +{save true}{false}ifelse}{false}ifelse +11 dict begin +/FontType 1 def +/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def +/FontName /CMTI10 def +/FontBBox {-35 -250 1124 750 }readonly def +/UniqueID 5000828 def +/PaintType 0 def +/FontInfo 9 dict dup begin + /version (003.002) readonly def + /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMTI10.) readonly def + /FullName (CMTI10) readonly def + /FamilyName (Computer Modern) readonly def + /Weight (Medium) readonly def + /ItalicAngle -14.04 def + /isFixedPitch false def + /UnderlinePosition -100 def + /UnderlineThickness 50 def +end readonly def +/Encoding 256 array + 0 1 255 { 1 index exch /.notdef put} for +dup 0 /Gamma put +dup 1 /Delta put +dup 2 /Theta put +dup 3 /Lambda put +dup 4 /Xi put +dup 5 /Pi put +dup 6 /Sigma put +dup 7 /Upsilon put +dup 8 /Phi put +dup 9 /Psi put +dup 10 /Omega put +dup 11 /ff put +dup 12 /fi put +dup 13 /fl put +dup 14 /ffi put +dup 15 /ffl put +dup 16 /dotlessi put +dup 17 /dotlessj put +dup 18 /grave put +dup 19 /acute put +dup 20 /caron put +dup 21 /breve put +dup 22 /macron put +dup 23 /ring put +dup 24 /cedilla put +dup 25 /germandbls put +dup 26 /ae put +dup 27 /oe put +dup 28 /oslash put +dup 29 /AE put +dup 30 /OE put +dup 31 /Oslash put +dup 32 /suppress put +dup 33 /exclam put +dup 34 /quotedblright put +dup 35 /numbersign put +dup 36 /sterling put +dup 37 /percent put +dup 38 /ampersand put +dup 39 /quoteright put +dup 40 /parenleft put +dup 41 /parenright put +dup 42 /asterisk put +dup 43 /plus put +dup 44 /comma put +dup 45 /hyphen put +dup 46 /period put +dup 47 /slash put +dup 48 /zero put +dup 49 /one put +dup 50 /two put +dup 51 /three put +dup 52 /four put +dup 53 /five put +dup 54 /six put +dup 55 /seven put +dup 56 /eight put +dup 57 /nine put +dup 58 /colon put +dup 59 /semicolon put +dup 60 /exclamdown put +dup 61 /equal put +dup 62 /questiondown put +dup 63 /question put +dup 64 /at put +dup 65 /A put +dup 66 /B put +dup 67 /C put +dup 68 /D put +dup 69 /E put +dup 70 /F put +dup 71 /G put +dup 72 /H put +dup 73 /I put +dup 74 /J put +dup 75 /K put +dup 76 /L put +dup 77 /M put +dup 78 /N put +dup 79 /O put +dup 80 /P put +dup 81 /Q put +dup 82 /R put +dup 83 /S put +dup 84 /T put +dup 85 /U put +dup 86 /V put +dup 87 /W put +dup 88 /X put +dup 89 /Y put +dup 90 /Z put +dup 91 /bracketleft put +dup 92 /quotedblleft put +dup 93 /bracketright put +dup 94 /circumflex put +dup 95 /dotaccent put +dup 96 /quoteleft put +dup 97 /a put +dup 98 /b put +dup 99 /c put +dup 100 /d put +dup 101 /e put +dup 102 /f put +dup 103 /g put +dup 104 /h put +dup 105 /i put +dup 106 /j put +dup 107 /k put +dup 108 /l put +dup 109 /m put +dup 110 /n put +dup 111 /o put +dup 112 /p put +dup 113 /q put +dup 114 /r put +dup 115 /s put +dup 116 /t put +dup 117 /u put +dup 118 /v put +dup 119 /w put +dup 120 /x put +dup 121 /y put +dup 122 /z put +dup 123 /endash put +dup 124 /emdash put +dup 125 /hungarumlaut put +dup 126 /tilde put +dup 127 /dieresis put +dup 128 /suppress put +dup 160 /space put +dup 161 /Gamma put +dup 162 /Delta put +dup 163 /Theta put +dup 164 /Lambda put +dup 165 /Xi put +dup 166 /Pi put +dup 167 /Sigma put +dup 168 /Upsilon put +dup 169 /Phi put +dup 170 /Psi put +dup 171 /sfthyphen put +dup 172 /nbspace put +dup 173 /Omega put +dup 174 /ff put +dup 175 /fi put +dup 176 /fl put +dup 177 /ffi put +dup 178 /ffl put +dup 179 /dotlessi put +dup 180 /dotlessj put +dup 181 /grave put +dup 182 /acute put +dup 183 /caron put +dup 184 /breve put +dup 185 /macron put +dup 186 /ring put +dup 187 /cedilla put +dup 188 /germandbls put +dup 189 /ae put +dup 190 /oe put +dup 191 /oslash put +dup 192 /AE put +dup 193 /OE put +dup 194 /Oslash put +dup 195 /suppress put +dup 196 /dieresis put +readonly def +currentdict end +currentfile eexec + +D9D66F633B846AB284BCF8B0411B772DE5CE32340DC6F28AF40857E4451976E75182433CF9F3 +33A38BD841C0D4E68BF9E012EB32A8FFB76B5816306B5EDF7C998B3A16D9B4BC056662E32C7C +D0123DFAEB734C7532E64BBFBF5A60336E646716EFB852C877F440D329172C71F1E5D59CE947 +3C26B8AEF7AD68EF0727B6EC2E0C02CE8D8B07183838330C0284BD419CBDAE42B141D3D4BE49 +2473F240CEED931D46E9F999C5CB3235E2C6DAAA2C0169E1991BEAEA0D704BF49CEA3E98E8C2 +361A4B60D020D325E4C2450F3BCF59223103D20DB6943DE1B57C5FD29DA32D34C95E2AB2ADB3 +F60EEB0600C8ADE15A2380DE10AC5AAD585FBD13097B1A7E8E210D4AEE96785449E07F0C8EBC +2EC5EFBFD0897DFDC15E5BFAC9584D8DE95C5AB288CD8AD8B9BEF0B8E5F887B3B0B331542FC8 +184DCCB753DB6ACEEF98B85756B988DFCAF1AE0DBE7D37D5F44A2E760AAE3A5197C27B15E322 +75A64946C3E4D0476FD27FDE148C788DD2106F7C825E270588AC05B57E625AB17BDD02306F9E +5FC851DC32A5A6EDC43C770A71419B2C0C8074EF3F222CA0C85189E00124A1B7720316E552E4 +294C2869120EB0D07D23D24996E0551D8FB5E260D8953A9733C0B03F93A1B3E58F4A0D4F8B7E +AA87730D8EEE5766AF83F3B40B49E2BBD9CBC03D9EE5433D988DCFADB743571B2F06B63F46F1 +0BA31D5081E7174D0070CDCFE3159456515B84BDBF16FAA53C52B287B5C81F64271FA91F0269 +9F6DF84C3380BD3A844576F221DCDC42DE6500A75281D9E2532BF930D0B34329E7C0A641FDD3 +BF42C30D715670BF1B7C2CE1E374D0A3CDBB8A88C34F66027C7C67F5896919FEE444B256B90F +81B7EFF02ED7F50C009AFCF611642AEDE54A4E866580884FA4F00E51C52E6FCE19C33C9391D0 +2019BFB66FEB5E8FFD6469CD910CAF8B7D459450C969DBCD44650F8D19955F720C3EB5F3BBE4 +16A31F68CFFDD53248475A4B243649B70C92B24F705C83B12809801314BC38B9C121906A34D7 +6563C508681EB40A559405CE9097314ABB3E88146416C89339F4B5306A3B92E33474DABDADF1 +6594F7FC0B1C7609675558ACE4B1E2692518F3157085B27FFE1353E3464381FF3BF6159901D2 +F91E97EF01BBFE4BB89BD05C7EC074076348BCF10862DAE4F8DF81FECB735B8FC2BB8F85F0BB +4B0CB2BFCD6B54C9BFC5373B6B68947A733BB91E5145192632CB8BD531CD718838F43F60D495 +7B001530E1C07E12C6A6BED3F3EFAC0B2BEC20F0FB1207045011860F77A9565D077D48D147A8 +F93AFA1164F6ECD705D0F15DA6DA30477C5E9ECEB7193D2F3DBD19AEBFD60C0C068F774825B4 +49102EFE563B3CD3A539A4556B9C27FD305DF0415526E6288E6071AD627B8343F1754C2EC616 +54282F53EFEC03F3B2DA900EB6DDE03FBA04754842793D14A72CF44E42633FBC8F85102FC806 +B6A42B0A0B13591065F7FB3E00E5340A2ABE7BEB4B0960F755A8E8325D87860B95EF2A3C96D7 +79F865001922C8CD4D95CA3D337C18290FBCBAC64D1ACF316B1B4CAA72D9982CFDEAD19F4DFC +9FD3F9CF52D7EB7E33721F6609777929F419D19D711B96912C06ED0F00BBB1D768E9217F0EDF +3A47985CE90A934EB4863581400EB16D886A3E0E408FA22D203527515C3B667083CE10267D4A +4429C8618353439D2B1BDE2111E32504602BC7ADCFD01F9A552E84669D0129897A404198BD08 +24B3380820331CD5C797AFF29350722080C6668BA599D7724CECD1F7DA8D8D9BA9A725CE594E +F5E3BBD8D5ACBB8AB91945357DF43810BAA50B05BF92A46152A52798AB86BA9D68C24D302EBD +06096D6C19EFCFFA1DF6FB1CC458D280141C7E73310C65C99D6FCDF9C353F54A94CB714E58B4 +388431B541DD7643D8045F8EA208B129481F04E578310B07892ADFD4A7F2E9A8100E3C6FC196 +09FC890D48D5A377096D1E86A73EEB059F1AF4BCAEC7FC7FEA4F52AE9538D76FCFEAE9C0F815 +6A300CE2690819916884CFBA8416674CD9A65997DD387EF107F6E3827FE310F6C25B2B881EB6 +2F398E59DED94C39E96190754F2CB5706BDB1F7D5B212A316F879C00D228B388159BDEA4E44A +FA088300368A981E74CF9F16EB97AB72AAC0607E7B77DD79614DECD114760E0FB30EAB66E81D +911A89EB161B54995BD7A6AE8780C623DDC0E201A1092187DD4130BB4B4FCA6518BC402E8110 +A0A60E2BB2A60CB21533FF9D15518A9E936A7BCBDDB0D2815C5FA45EC3DA4B9544C71770927F +FF5DF8A03D2D00EA8CB39E4E1EC13DD0C18A0AA2AEA52ABE75C75C5F99FD0D94B6E79252CE58 +10112341A971D36890555F0A2B9C8089E83197CC1498867545FEA2CD44046BA1CA0D41FFEF42 +0C9C430BAEF2250FE972EA92271315FBA487CE124D12E2CD4FF47F0A64875CACFAECFD95E402 +EEB7BB115DD842374A7C68CA03BEBAC13BD2F80B5D355AB2801D85A83201D3308D1A2E946309 +AEC005F2747AF78EB72EDA244180FF0C427D9556C3A11524219A308EA611E6D01B06A97AE716 +1EE65409B5666EF75907BB69CCEB5A388DBB641DFF83ACF4FFA64E68080671DB083F4FAA6436 +81C9FEA5F953A2EC4FB04D024B2A99974E1140B07DF4CC9BB22B6C39C194971A08772114956E +5574172A47BD2195ED69FC17170CFE6E86158A9071975E5B434A9FD66646067E971BE01344E5 +CE9A4006CFB7B7671D2A5E3A18A247D6D0C004DADD776BAB77F0BE89704BDDC9F646A296B842 +7CA3DB5E68EAD351F5403B27BAD905552C772CDBA4D0401AE3CAC625802B7C7DE7E389ACEBD5 +054999273B27CB6634809AF0CCE3CCE956FBA42F38AB630BF6D165B5DCCFE2E6461E61600F1C +AC5E42153FB847EE921CD1A4CB28DB9D73435329707D8D9B414C9205DB52807560FAC3B9DDEB +1EE1F684087697265E152A30E9B351351134DCB380362BDD0B766D81A9F88369CCECC9135C74 +B7D609E019ACE113B0D8970709DCF64E24EA432FD40B9DE460C4C2AE554F274FB906185D9EC1 +B7B29D615E5F027DC991F5B11302E5915ED6AEF640CEFDC0E9FB76DBE6E08633B539AF6C244B +BE6E1C5010A7CBF2524CF294A6BF8837FCD087337F0D7660A44890AC049A0CE670353D9242EA +0C5D3E0C71FCECD5D2FD831FA3A0F5D753A51093839724A18CE92B621D85AB702D54247B96DB +2C689E973F37328F7A9B9A12B2932678C67082A093572A9FE5A4633A2C9865FD79F983D46BD1 +DDF639A04B3D1EA10FED5E7CB216912BDE884222B848012DD702A231480A76A40A70E40DC81E +0E5EB09D72D981B9AFCE286CC06A8D8F46462F5D6FBBF167BD30CB5861220543589C18AE3AD8 +15922D8F7076513CE5046128510EE4F99B1A106C0818A61D0B3C943D83C76E7820058463BF60 +60A138723C6B67444F47063D683E0216139B44E7EB06787D616AB42EE32DBEC99BD68E689341 +A7888CA2F42E7B7AA947534C12A0215794C66DEEE2CCF1075CBD52B980EE574842499B805F55 +D9CC9EF0064EA14B18BF8AF53BC5464B6F7BF0A495197DEB8DB4F5B643B5485C1B5B6BB6FEA2 +9224C3332C43753A3DA3729635E0B7FCB4C85909297F686C9223FD7235F0704D89163A458B73 +9B9C20D80EF252A993A87D4F292EC66DFDAAE4A07222528E237435648D214212E182D6B2DDD9 +EAD29826F4B4BE58320CD3B32150E11E63EA223DCBA938D1EB12A0280399290C5FFB6C4FCBE2 +F800E6B9DDDC577031529E1898333ED0D90811304123166F7C1BA06B32F88DAC1E7D3E53857A +41C2C5D12F2D4377B5DF684376E2DCDCFB104B106FA2E6E7F89E33AA0B7CD5895A77A500C277 +06BC5A36EC3E1583F4329EAA62FB1E31241C23887BADAE87CF1DFC662CCBF3962FDAB192CD21 +4FC3F3FFDF1F801EF05C8CD6E3915D73657095AF4A4C9D99F8DD341E747F578DAFC901A2C197 +473F3FB46DC7105FFDAACCA189D156012F3094C8086DE84BF4E4B38F0F6D47977A9084BB46B8 +1A10BC915B0072DECD73086F51FE9ADFD0602D9DAE27C18D7BF13D5B83A74B0EF0D1485C1605 +3A1D486FFE5A119B33B1934BCD1F144C493490766A486CEDD9F967F2CE615050D2B15975C6E2 +F46DCFEC5CF18BE018FE0F0E5CA54387546AC0A4F18B9E7F1755452E923A6764F55AC45A0C6A +9245B2F6DDBCDB264BCE3AA1BCD0F87D419B58E0D0ADDFA686D194D7D0AD17BBB1ED197CC394 +749EDEE5B425E130FC365A04863D8421E9A0551FFFC756F245E3317DEE104E7F583268F6D328 +0ADF8AF2C7C77FA5E33945C566BE78B83C1157D364BF36C44E6A5703ACF18C015AFCA58A7C0C +C53E1BE47C3AD30FA02B906B33656EB94E08CE874EBBA7B4260821F37CCD038DCCC77266F77D +A288DAA319934B53AFE322128BF9B1C1D867A6BF5615C44DE30F9E6982E952CEC9B96402656B +C23A44EAC170A3CBDF83A87FF2842992D95F87635BCAC213D7A2B1CF178D6E02C333C87D5D44 +EA3EF74A3F7140ABB1F5C3F94DEF7EF4A3BCF9B86ADF434571FDE68B7CCAC85D2220AF28B930 +B2A69DF0A67E2E6E6C61F2D3494960E7B4E5890F966AA10DF624FF0639F9E84ADEBE2BA33AB4 +C45CE826E10CED96174C40EAC97DAE442674240CEC2CACE5E43E7213EF104481C9C0C53F1B45 +F86678D982D5DCA7C6551CC011F7FDB9C6FE359C7788047CFE721669B895232D1CB1BB6E25B3 +3E39CEC35CBD4318800269431B411947D729C6DB2D1DF6A48F961706360D87A6FDEB7BAAB561 +3279723975120CD323AD04985EF70428530CE3B8C1D35ECC4582B1123EDE1A6CE7004CB4D975 +B1752D9E58457F53B3EEE8C92A45E9391C9BA329D9979AF675F16035FB1EEBDF785E8E7CDFE4 +E2DBE179228EDBBEA08FF32CC9BD232C0E13873579B3CFB62F87DAA95A8B22D103512383EFED +B44B2A4C3AA763138FCD286A3498553458B32BCDFEC200FC04C6313EA28A1F0FF3D279D4D6C2 +BC01BB87AA15248CF395FB79C81D6D32840C86576E28FB29A1E77E56A3534466B1F2EBE04161 +22355E196AF772E2219B4C81AAAA316B9D9FF9872C6809BBEEE566F51B6EF547CEBF6E2C0437 +F83BF1995570CB81692F910FB8E1B2B30FD3AF9A178730AF20C0B67258E9FFCAE3971C4E459F +02069872AFE3E9B78ABF9A73F2F15CF8DCFBB5221650EA40BC97C2A8C032BA3B6528C595C145 +634C5CA56D36B85024D76D2C33EB845241F8159BB4FA6765982FA3361F8454A4A58825C06DCC +5A811248CCE85D96421096CB5B4CD75A471EF188C97C84BE3AEF3E3E4BE5D7F3A8E7B2C67917 +B44E03064D768C9D3BEDB63134A9E24F57EA93702C022BFE0EDE6F47BF83ADA82ED06A574CDB +318CB5E4B8097EF8DDAF4B63F960943B9BA091B905BB3CFAFF264FD5EE13E0B1FAB6160DE054 +8A8C3FADB7129CB2099D6885418DA2E469492DF407C0FC4B511824EBC0EE2CF1BD97A4754433 +56482492DA5B8C7936E0EF1B79082C431E862A1FBD8319BC8FC0654FD37FC4F5E46F85518184 +FA4DE3FFFDD06785A92D692FD28E590D46CF042FFBD8043F59E01A37D280AA8685DE00767821 +902722BAADF2E396841938CD394C3F894B1510AA78CA31CA543B812AC5317A0918A96C9F6973 +08305F62B8D38A75A5B863F07E409EBDF09A4257B82046DB43BE89F08053713B0E031E104221 +42BEF6CA28A6FF19B7C1B18306E8B025E05D71890A0E435A55ACC8B2305C6376EE0B877317B4 +2B00D6D16A69BFBBEC45D945B593C974D0B1E5C853C6CDAC81D42DB0209DE9BE4F34EFB5A40F +B2D37493BB90B31D0281860EF0D64C8000205AF8620518A1B3253FD1590B4A2FD063C19258AA +3F83052FA2B7BA015D717E68D03D9D1C2B24944A77DF5B7D5FCE7FC9FEAEFB5D83EA87E9C6FC +BA9DBA66B5556033C9DAE176CCE5BC22AA47C5FA4ACAB21B60350DD94AE5BB86547A718FB30A +2B453A9752815DE6A2EEF37EE5BEE37E19F3FD4B9BB18BF4557D9941734B3F0AEAE91FD67AD3 +02A268F4A309B289EC9C8D8DA636588F8EB0D2ED20B4C715322EE89BEC8248D1D4D4D0246432 +92B78FED99E85C56709F00FDEB16B0ACA0BDC65B79BA7D681916360B98AE21FD05EFD73404B1 +20D87CB4281B95B251A9607A98E330849CCA6CE06A8A371339768DA2CEE4AD0DF1B6D5C10FB3 +94472B53409BE7007986B2D21367B390A460EB7CFA68267248EA2E8CD010B6D180132B13FBA6 +5EF0C9CFC3BDB80EDF014B2B292F9D2208C76A4C65551FEB9996818788F4D05B13643A24562C +6BE7C241B9D853E59367E2424BBE6E466C7DE2DACC461E7661D3418F2AB426DBE3EBCF95F1CB +394CE67B7A5616D13F1B2F4E462F65F4A47D3FB0D0B0AD7D7B98C0003ADE8608459B65777245 +5279AD82AC064CF7DF310A1A18DAF7CAE71B942AA41AB94E04AC3D2533473CD1ABC261077487 +D4BD3C553F2F1DA719A97C4A22307216F716AEFDA32EC6859AFFDCF600276998CA098EE7622A +33FA26D590B22DA77BEBE55639EF5DBE3B9CD6A6BC9FE72AE61EB93D663BF8F0A67AAB954DD1 +8E31A32C748CABAEF790B93194744FC46DF72E83CA7EEEF8D740E84A2B87503A69E512D4AB24 +2FCE8D1DF18C2247449EBD0B43227B3366FEA583B985D7AF6F0B97A9F83AF0095D5225934BB8 +0D2F31B3121029C22975116BA69B28A7569C027CB6049E61168B927E107051AE7D786E116389 +6273DE91F3BF8D32C2EEF27D6AB0F056E52598B9510FF3874AE40E54F10BC5CA606B8F75C34A +CE5620A3DF527D02CB8249C0599DCE43E3153755EBEB697199C1FEB70EA2DE2DC40A5B09B28B +97A229D715DE6A0BB6F92BDA9C45A084CEFB2BFA5E7007AA6B3AB5BF8302ACE380C6EE33457B +F17B5C32B1B4B112CCBEE25807A9FDA26AE77CFD2C7494F1316F5C61215E87683412D6B96E59 +4CBF9CC01EF33F6EEE31D48DF8DFDCA5DCC483E5F6DE896855DD7316809A81FE3A5A23E5DCA1 +C7E5505A3E5BEDB3F94B8B71E7048A66F1C12F1C17A9BE5FCC66868E2D61DDA8CDD65330909F +C55E8B17EC056C2AD13B61F926CD7D091229E53ADF6A214187199C5FFDE58264D3258AE4E8A1 +9053230442B5AD8834F01E1BC04B077BBA80D80285FCA17242B1ACE2FE5810D18507817B13AF +C43DEA5BE95ED4EDAC5C6C435D4C993DFA49DC9B0E7F9737462F011CFA7EC5655B572DD80E2F +CDE371441525748A5FE363EE0ABCEC86631BF36F8698920D4BD618CCB198C5AB11A8EB2CE755 +97475AADADB12E7E26DC12029601E3BB5116DB81885543C1AB9E24B1C9B4B23D5D591B39002E +BB9C78B675FD915EC5E593612175ACC79D025AF583F4BCF5BBA761154F0514B639DF8C28A45D +344B5043B16B944D48FF9E1B93DC4FDEBA7EC68F39201B5127DB02AA1C1D51F8886C13F4DA53 +2B86E7798AFE6C3A5C55B178A736808E73543C8659208FE0C2C721C4F86E5568604EAF88278A +78423143E51F382EE35ADCA6C51A94DF4B1F1627313BEEEB2F5ABBD0F680DED4206BBD8BEBE4 +E0392FAEFCC6FBDED1D146B9134695002A34DCFC06FBCCDBBC7935DBAD5706ACE55C82AC16CA +3CB87F2D73B31799FF079E031D6EC25C6FC98EB2BCBC2629035B18C03B6FA63862D762B969B4 +622EE9C41771723F69A3287BD57D2FC1859435AD30F30628B47D2EA315D85CB5E637A7A35136 +9CE415C9006F57EEDDADAFE20A956D5826C8C9798F731A6C2BEF6B441871C6B331E2E522E7CD +81CC12A62B96840AE9F6E5A700939CE60EFB857764B5221C9BE8885FB29EE3533CA38E451401 +012F192BD4E35631EF061D8CF212B9C85A82ADE8396008E5E0B85560506082D2B4761680CEC6 +5F058E1BD85F870990C63E6797FCB8C86A8D3B7F779258FF6EC92B456A43513933422561B180 +D8EA036E2498E85E34F70561F74E2FFA09D4487EF7882666D23AB4F4724A91DCE13761E92C7C +A2079B1EEE75B093266F540642EBA7AF48D8601248F0F14614231A2758309C5154BC20ED3F90 +9057080A6F2FBD692F7438519AAAEEF72A357C0098265EDD8DCFAA7F25EC0DDF6B8AF6C71435 +73ECFEE099B33FC49D8FCD97E1FFB7B8A50568334E34AF8970169E96B2912A1A4087B4058501 +E965971287F491D04B5C6BA2C27E66E68A29DBD66CBA171D41C4E86E53E01D38D29092E07F12 +A569BA7BA59C02066A0D4BDCF28BEDEDA81A4D02B9E4F4B05C48F39C270BDEC7F328A2D444E0 +482BE5D0625A6CB06A2325928B5EB00A660D8835C4F50F6858CE32911F9592B816C7269ACFF9 +6768D215C6F7BCFAE2C1A40FBC05240468DF458000AA7477BE9E9FA75186A45A6FAA91966BC3 +8D29D62200209BC45F0E3BFBAF893926D11674C1813C23405DBD7F706A40F0BCD6C390AEC7B4 +CB8F319BFE956E6F98AB8240F19466122A1C466DB51BCC4FE356D87E29E09A792E33194C478C +6A475D046D568991AFC0C35C03E715CA3153B295EA638D54CE432B9BD0C345B3D82A12B53E97 +5EFEA333972193DBAD70CD5EE5369E6F41F1603EDF328DAA90E3B4AC9DE1B519BC01FD3767A3 +877D8E688EC8025CCA9FF1E7B3A9E18999CF13A7EB8BA5AE501AEB4DD68AAF54830515CA5990 +B5C3E8ECFB37E91F35CFD884D4B4A90F479AEB32B0C8300E5F32DE5ACF3EB0BFE52277419609 +E689F1792467EF6CA6E3811AD9DFC2CC2CCBC23A4469FB8646FDE8A7796186D1738E60C074C6 +C2B3DDF5810D69F2428045CD606EFA8D66F96C66079256AFE12FE5CF5A6FDE51972272E8F065 +218BA88536F7C1820493B73D2C7D6C71A17B6F41CFD12EDC1686712B2469F5B1EA69F9E0E1A6 +FF19F68EC655A195CC91711D12A4155EDDB628F9398858FD37F0B35A17C975B875A2AAE500AB +EF43563A79CC5F7ED4B329018E416878DDC2F7568E57FEBC06C27E2992991F8911FC35F368AA +E4200DFDFCD73F9997EECEB9C3F9B844FED5A901C80FEA324E7AB736538520EC2DEDB0FAE43F +E18A7E1B43265201F144197CFB60807C107CB2BC8CF2B73F370B12AB4215BE71A6869C42FCF4 +42B2748B246881229CE2F044729C9627FE672FDAF7C55BDB0BD434B959C9517BECB6BFFE87E3 +B4D7A2A7BC95D3435E23F7395871ADED257787D2099AD4737D88EB80AB69CD2260364701ED86 +1E74ECEA5A8D3E4AA152E53F16F0A895A06F98742D85C3ECCF64BA27965D2B38A9EEE502A93B +0BFD0E16918EC3623DA8EDF984FEEE9633F7440EF211D375B09939598CE9808C2BB6B3BE5B62 +FBBB317C07C8B595C0B2A908AAEE92D72C7369B1E20E0CD818EA9E1799B8CFBD1D162FED2B6D +9ABF878A6EFD56B82403833E5BD9BC2C57BCEA7F1AD728175472663A0B8615A2B317343D1CAD +703995E81CD6E425CA195445145D67D6997151C52741BF812CC81E922CF665F161B0E251CBE2 +4C5A018231AD5943F29D8D1474E9EA34D55A9EEB4F6F0F7F24BC9EA91B74EC159D289E2AAB2E +10E8D8FCC801F4DA9F3CDB3B84665099AA896C8634704FD10DC9460D14489F243DA52D5985B7 +502CF49390815783E712476DBE3061CD16B6ADF9E544549F2B675210E8A89141D46CCE0123B2 +1C1B52EFFCAB878DBCE710915CA7748FFCBD3226F83D77174A7EB10E2384825E356D1CFAF286 +E04ABE3DAFC835ADB2A39E3A42D63C1351AB56C62682DFD15BB3CF4F44637ED9DB8797D7C664 +0ED9C66C7FED09C0EB1C4C691292D9D8B499A616EC76F59302291AA5D35B5D03B6CE39050BD6 +198F13F6752484F5AD13AA48FC8D62143C5C9AC70324D28ACF5DE07C87C7C94F46DD5C1AEC04 +27D5FA06B29FA25C1EF70B5B9BD5F4C43188A7FB8B95F51A406E2937617D922CE899AF1473ED +3D1BA708653BEC6F8A4D999C2C5AAD1D0BD32F9FBCCD717B8F8FC1D1413F647D905576F62534 +F58D596E67963AF1AE5700F4D5968A98899EAD76A1D31DCB8A69BD4053A5E0A3C3356C5A1D64 +A182C9F6171135278BED55DA97D44360ACCC65D123D82EDBCB843A0EA0E99E8AB406FB94F0F4 +86252C2203C21A39B686F877FA44C412EEE52586C7F1F71050397AF1132B60FD124730863DD3 +28D3DD0C225C4B9FE076E1C1F837B105D9B64BEB27F93A28FE1EF5BB52C369DD72296C85EF25 +AF62BEDCD4DB77132F85251F0022D9C251BDF71BAD452C013665A2BFEF3E936CB8E140DED766 +DE8096C7508A135C859A0A499FB007FD25E42DEE6359841860CBA2C7611963106AED4499B064 +6D77845D4E76B8F11F125D6A7EEF960736D8D892B7F23A9EE3B835B252BED0469F3410190E28 +09A77111DC009BBD191A4882ECA444849ABF999E98D913AB360919F4FE55CC05714F170AC2B4 +60551176D6FD10DE5C6FAFA347B5F402D9745D05CD3DAF30C1539275A5FFB5AD97F0086135AE +5C1107D77349A0A3C5960271190D4599516636FA8A07B4746BE7FD23A6ECF17CB61C4BBBEE07 +C711B0E724AFA0F51B8E2EDFD541AC9D848EF811B4AA5D1504379CDBEB1FB53A21A403C334BC +6CED1E8CFD7F274B0759E0DF7E1EBE5FAE101308D481838F4A035C83F516935404CBFAA190F4 +2494A31213EC066D056ED1F6FBE1D76E59C398459359A39D7ECAEF11FA1E06D170357878EE33 +D932FF5E2F8A269763245ECD947C3FC6683ED04216C8F432BBE770852E8A76A43D7E6764C0CB +72DCE26360F8C522793839EDCA3E009E9209C740D280A9A01EF6C15827A99B973D833C013531 +A8CABACC1E30D0DFB9638E9D422E148B6B8C0CA3F74DF0CC941606C56C3B3F02FD2CB1618314 +705CAC31783299A4E819C5BB66E09A4E5A4808EB264913F76A3B988D41D1A114387CE7F46CB0 +912109796C1C7ED9D25AB8A52AA42A51586FBAA7C73CA8C3AB069556FBE34D8FE12FDD573C50 +C10136F845EF8C54719B401C93C66D9860B6D4FA7E3B5E3C87203AE426DC5634ECBDA0E32A00 +3CC51A681B5349D4AA9098A392830054AB48A5233C3560EC8070F7AC46A42A63DBAACBD071C3 +70B7704CFB815F014F72C246D52A2C43F85E5FA2A612863E24640A767F2497918164113CD527 +6C6CD7F3B16D8C3F893568C7DBAFAA690C12AB2BBB02207365C104D05C27941C58E4F50B911C +D84972B31AB0E0721BF6B1D1C8611FD30A74E0E166DBA4C409ED6483B1C36F9268DA1C469117 +5FDF79478913B822A690148379281885D9F7ADE2F25A4EC01371F8C279D4D209102F4897EC27 +EBA786DEA3D1CDBE74FD236F00353F70FC345F1D7ADFB9A7DCD96B348643292733DCAEDF98A1 +67807A8EC6DA8BE7036B40C1FFD5EFA6680699FBA60CA6556B0473D8C5F5136558AC7236A130 +C5BA39A80338E56D050737160A8527792D8B83C333E3CBEABB7A61A7AB585BD8267FB59879C9 +E5F28B17782345789125D2AC1E7A5F959143FD8B83EC4918E3405205479FD951F2DA92ED6686 +37233ADB6B02D9D694CECB035D84FCF19C3627AE73F7D7AABE70839A47ABF9F7DF911B1CC12A +4B916BEC18346F4388B132BB22A21314D120DA29220155081148EB3152A2A91B9DEE80885170 +C6847C1684461F398830214F2B801F8729E827027A72DF83AE8CC4DD2E81C9C4D94B92EAADCC +196F5D7F12C35D287F2FE2D1B905A52F452DCC792D1AD1D03B4471E15985F0BA37D5BE700608 +F64FFC75A93903D5894EE30F9C47879A1AC5675406D3976B1A614471F6B2F68C07E1D0657CA1 +736557592DD09D42BD0D1F26EF8014F0EF26C26B27262B799F1A96026CBA60F8556191C8D7B6 +FE924AEE61974EEA55E285DBC432E63B961FAF76CDF925781AF9CCB27BE310F37EF8E50927D9 +6B1E7FD78689C85E00A5DDB50125FE7CD711C2FEA5B1C7CC0DC3118E7E7C6036D435A190EA4D +4C0049A479F4400C4AF7B45B7C24E2B6BEF0B5A173410F2AB0BD7F11F3D439F7631DC7BEA98B +5DA8BF6414393804ABBC4CF203ECBD7586B75A56291556B2B37B4A68120DDA56FC6EBA5C6043 +AE98450D5CF6D722FAE520A689CE3A91AA3B34087DA93EFF211DFAA301D04C343EA3C02DEBEF +CA0422100FA9BEC30A42E8F2BB35B97788061DEEA3071584AB71F0D7DEB7AA6CF71727FF062B +AE3897485936CE459A95D768A606E7259D03AF4BDF1889F175421AE3757E47C861843A0545EC +0239DF07F6B0ED0BEEF38025739B71DF49486B23750C9BC1011DCE982260BA87F0DB9A1B2311 +664799C49EB1A79848A9AAFAA618ACC4FF80F09A9834AFDBAAA179C1A84009407BE42065FD47 +621565EE30E59BD1D461C97C1B7DBF8B647874023644341337AF09AD48393E5C7AF8BDC7218C +5E718E92B1D6F9D3238B4E8F2B21E68A063EFFBC487E2D0E0879542C48AFA9076712AA0F6A7C +8C8D15A171D38A604E02C348622C9C1DEC120F0F4FE350AEF7654530E79FEE964922F3E114A0 +0C46A6BB59E0BB7649CF928F296699738D0F2D38E1A241F68C79519CE7503888388238664258 +91FDB7B94FA6D3B47D2CD5D7F0456BD72A6FB40D3E6E1588D45981B8021B1880566BCC748DCB +4D59EDF88AFD8D7502906777E6AF4E3884A4FF1A5ED9ECD2A8C258B4007C077009E3658C6D3B +E99481270E4E7ED18F207CA24F92686E6B6953CB49AB9C42A3AA8CC95C9BA945921DFB3E08C9 +F3E2D328F3102EC6D83A3D08E655C55FFFA707D37E4ADF58DF358C5F441C8FD45D7C44B97DC2 +7E3C12DBDB89628C910371CAF0F9BAE5E66F64F98C8A87B092592AD8475763F6FC6CCEEF6C78 +6F26F331CAFAFF6296893F40C18525B492353CAF332EE8645A24F622183EABD0EE1F5CF20717 +0F19E0BE2300A00428BC668F10ABB93C96F954CDE1CF74D6494E45F1354F7CFAE18D78E000CA +62FA1A8F274BDB421C20CD5A1BDA570C7975192EC4AFC5AD1FAA28CA2FCF313258B53BD28A5F +29BB07776988DD391F9828631B65C7AD2F419DCCFC5E0C5772BCA82A74CFF5D369A5089463FA +B9DF0D5BE19BF255F835890F8C8520E3E5534DCD2F5DF818020FA68E1E60DC76BE824EE7852C +B2E260CC281104562D6E9A46864E7ED54E9B98E300347897BAE5BB16BA548ED2E087DD83DBED +95F86B554275ADF0ADF407331AFC0BE37E928B37542F51B63D5D564C0C6B1C942413C684A2F2 +463727AAE2445F07F7DF9785FCD2C8ECB27D2C3C962118F9D7FA9AE59A54A6C07C1BA42C3D96 +C53659FAF0D50A7D2BD6B9BDD2CF7FE26AA2220F5343462B38D009F70923B419986E69AF2C8C +DFC2E07152F5E6F50785987968CEAB66D2CF3C61D740BDAA58A3FE54B269D817C691CD76F6F2 +A1D72E339FD1D8CE795FB70EA77AC6BB7B29DD48A64BCEC020E139B9EDBDB8C08839C6EDD739 +8B1C6F19612D4CD95F9FD5272D8439E0100F2B0D11DEB0D50C0456D129767AE6C314CEE56372 +DA56CAFF93C5894E2FD2FBC0E667C2A7A11B322F348F1C13FE019616FEA9C70A4F89B678FF7B +88A0725F5C6CC3D53FBD1DE6F6F2FEC54D301AA1F04997B81F706460209133D810305E89867D +E9503555C03BA79F05E00D3A3C22ABB3C889DAA31E5EC6B5E82E67F2C8531DA5C06CBA7CFE3B +175168F529CB45576551003347CD0734635C29C18EF77F953B6E20E0CCB90E1C7D521CE8E787 +B23D12849B19CC736DDE324D410605B9DE63081FF1FC33B6F750F3A3E1CBC33EA8E2BEE2D0D1 +5580136AA8BE16593C0FC3F14683FFF70A7C0CE5EAE2E1D0AF44ADA49D87A5829EC2505B8907 +8F791FC1DCD12CDCD027F14BC4C811B32DB977484F98F91380ED65621976F1618812E27A1F2E +7B6DCEED4279281D3A0F24BFA0E13224AF79858E0A1DEBC35087044A2E7753F8BFA42612EA65 +3321C8464070BB6559222CF3BACAFE5B1D618CE95C223AD9E03CB2414CEFFF27D8F9295BFFAC +9E752F59CE7F297DF17D607C12BF104BA775CCA2D894D8DBC8D8EEE525F9C8F1181051A634B8 +764DC2C8EC7E08F4614A2E185E9CD6548CC2643B9EE92A264BEE36E6FDEBE577441530F5F0A4 +FBC31B70AE686E041C4CED877F0C6423C98E8BF9F3B7603E45834699F96DB45B526CB7D1757C +2C135F65A2D2C6B81BDB91171DCCBA54503E50A33506FBC08B2BCC0EDCA35F414D2A92F84972 +B38DF1A8CBCA7E513895B18A0F852ABF649A377E486B5D3E1FE753201DD234C331309A65A945 +C7A76D01DC976270D58BEFEC5E365DC16DA9C927FA9088D25E8FDB825BDCDF8B88471546B8F9 +CAA0BA6C36AC94D610779097B07216C4EC967E48B3A84C367F5FCA7EC45724D007493C13545B +EF47265C0E8F80A49A5750988F974135B565368FB8FD949F4FAABA24AF03963C0583B4DF1C73 +E649ED7FF128E655B685A1E039E862425665193BE8B2698660103707141936F8510DA76DD50C +E835AE01DE5678722CEC41C301C209110A66301A33901E89A68CE106BBF62ED61F929AF6073D +E8CB35EB78BCF6D53D786167BDC8A48A92E6EBE65915597A5ACD2D3D7AD6D118CB9EFE368879 +A81D301E889517CC7C40CE14CE77B61033067DCB2CC65761367A219E43267955D44AFB4096A4 +5DAFA01D067B1B42FCD5A3C41248509470F98787AD97B4CB3271991E9E8DD86DEA5A850460D2 +4CC54ACEBBD220C4ECFE5E17046E107DC68897D1513D6CDED959B11E36A1EDFF00D8A6F22A49 +2784741360C17FE567F5CD434EFEB2742F256E49657F7EF3532ED45F1C57C1F8CA42DC6B1902 +0E31ABD4012EFEAC36EBEDEC9F45B8B26C686F6506A4B14AC5DFD761B2A83E2038E8EEAD1927 +07D2AC852EF652A2F057B1D1E6A7637573A2A278246B030863BB2A99B85B1A83055AB388D351 +1AF6164F9D658DED38DF57F14AFFAFC6CA04C89369529743B8C6DF7CEC7A2504BB0975DE988A +061394665610EFBE330AE183BD3FB6EDF86A46F041C4FBF7B7FF3B75EE63BA5BAD0C466FAA5B +D5B1F61CEB464CB9366B8001453DFDF0E50BD0D3C795E373A122BCA7E3DB66FA79CC5682D0CE +2AEE77481AF7EB11C9259D7BA80EB3A1C3CA83A4C526C2E2BCD1F0C325E3BF6BCADD078B77E2 +19A131CC7E1BCC9F016B8DF39E401EF48ACB49095EFA75F3205E5693E5C2C8E8D5C1AB057182 +C5345B9E3BD7AB3DB595BF5B34EC8F307D1E389C5281B3E3611549687DB16B8A901DDE936CA0 +32E2533C40FD144AEF9B7823E1617C660B19B2CDADAA9E5FC587E763BC785FC46B7BDBC28205 +2A4388AD04A2F1EDCF03A797905974DAFA30371EFAF30F5143EFA515C5203F8794FF8628B39F +29FCF8DD58449E653EF4A1D04C057CD1C116718A5650E21111E25AF95994AF50EB99252E2384 +D1E9F3AD016B2248A62D25D64A12564C83ED92B8E2F77CBD628452C3140257C9C703AB79AEDC +76B74E778F86799769038ACCF870EBEB43001ED56F5214397B81098264DE3DD676A5BD3F121C +8D281DBFC0AACF3F93C1E0150DC3BD168217EAC2FB06C90721015CA01445C1B643EAB308AE96 +6EEDEE0AC2EE6608ECD89DEABA1166E6D11BDB6483497CCC75ED8D33C4EC815373A529CCBE24 +96DFF93C5CD812A29DEDA6E467A9602E63A7B7089DA8AE4AE626A79AD9E97AA619236435035D +5DFD1B1127ECC3300BCF327D41DD63895881E2F23635F4C02062BFE8D3EAC6C38DB0EE447245 +F7C5C002673D6DE64287BB7C9669D4C633B929AEA47FA91A7E828AF3A5A7DAA12E5A40549CFA +B7657A8F9184042CD4D09CC7079937C77D5BF8E8C3A79EA3B0CEEE1C3EDEA64049C4E4B77BEA +606A3E99B7DAA5C30B3FB58112F033A6894A176A53406D6249AAE1102CA591B26BF64B1DFA81 +4481B1B6DACCA0FA8997768204DC2538A4DE58542046A0BCEBA5821BD8ED029C3FF29B938288 +AC8A9EC2536FC31168466976674777BA68B143CBC6DAEA18B58184D56DEFCA7213FB7C60687F +4B00CC53029583C19FF799D476A53CD991C5A0DEAAF4EF15ED3F6462B7F602CAAEF97DB5EF55 +C7C815B711BDA54E498D9F381E14D1B402D95F3559A324B2237E441A9BE73550AC380EBA36A1 +236CB0D6280907707B88B0ACD0687CAEA2E629FA3EB7286DF794819D2835B321897282113581 +1563849FA298298F93FE3958E447E63BAAE6B9D8EE9CFB3783C00CF2D9442D7017ECD191D64D +87B59D2120094FAA398C6A8ACF2E22C46F413E91242A9760E7666363B4E245DBFA8B5D61C609 +84CDC745C4F280D7D432220F852274E4561057512EB48A8EEC9A4F4FBDEF39104B24ED658204 +805295BA4FB95E994A21BA7A0792193F0F4BC3750E67ABABC1E150BE39B23DEC0D8052661CE7 +7E55A168AB65434E0B98DB6BA4AFD6FC3E2B4435D0EB0590E3CBF3AA744649E4715012CC1118 +07C75F6EF0D709C9ECCC034468A02B2FFEF89F911E57FA23CA810E26B5226D5A3FB65FA69767 +EF1E2EC4BC00AD3170915A49EE0E35C7A320118D6B2FEAD6A5CBA7A8738F9382FFCBC14D50AB +189C1DC30E16C735B238136FE61ABFB82F4C336671F76A69E154F96E5D1D21078BEAA794A63D +E17359653A009E3BEA0B9E8181DA0461607E7C2AB6EB69A14311F86934A5D92422FC969FA045 +4E350BB3DE273DC0C20F51B827709BE86E80534BDEED031906B7356B75B6DBAA9CCCA62966FB +0891AD166BD17019F4DD8CCB1DE2CBD0FF86BAA8177F928C722E59B84204C775970862BEBFD5 +5B9DA7C57B8280A517D6B41C4EFDC9F4A6D9ECBF6B9ED813A45C75AA37A215135CEF3F109DD6 +EFE2CC5EFFE657730A0FDA93506F2226CF1EFF07E768B9341B4897148A30108545097BDD54AC +A083C7633FED3FF5C692C5C177877295DBE000F723FCD21D71A2417C5836AFC609578A905BCF +DBC6528DF4E1579EA7046F24CC65FFDF3121A2A854B96992984A920AB5C62A43A5E991DE086B +AFEFA05591C4D254F0FD5C490CFC210C152F4C1A4B2F10D969A400A84DB80190E48759AF3384 +A6433DC6F691097260B35189D43B9508B63E2F449EC2085919F537F06F4D8D111CC029F4F2B4 +D86EDECD968616E17A83F0173EB7F5430B568CFC049753E83C107E033515DE2EF3148243CC2E +E62B0ACA2F33AA08FBF8DCB0046101C5C98DA10F1BBD7F62C5267EEA5925C310B853820204DE +CFD21B58ECFB4588B7AAD02F88BD6829CA656F066B441A8BFA11DB640D6C1420B47539B316EF +E33A4664AECA02B0B1B1DC9D7AD41839AA75AB617E4AC55E9019D693FA1FB7A0AB2991879361 +61E67C10D8E43F5FFAFDF4DD49B9FF04CE569F3F435F51E77727598F7183A9FF1551F6768260 +67FBBC46A81185D83216C5293599FA3EDD7C0819E2B64CD190A4AF30201CAB4D800E338FF59E +1F24E2DA77071C4F9B2076AF2774870CA2AD4A37EB307F1314E61AE6D1FA14CBD11139D17538 +31A95E13712B783AD5609128517AA50F44F26B5AC0E2BFE8764748A137352DF258156F868828 +17BC7E1966B52748522B034054B18F36DD6FF7CC928E3CF24EDE433E9147FC74ACF47AE26638 +C67E5D99F02EE7F6525C93A0122BB79923CF759186AD70B13A0393B148B6E8B0378AC56F4BA3 +FE36D0042D0262003E801EC560DD97F8BC51BEE9495E96ADAAEBD5EA6EB5E3830E7DA1287F75 +69250681A31BCD83D3034DA694A5227C51523CBCB87CC041292C67A7B76053095E7015E7FE2F +904EDD0C5E14658829016A7AAEA7445DB103E1755E2461766981BFA83D99DFA903A44B62B7D9 +26B8482B4196BD33CB324E6CFE428CAB2AB88E5813270EFFD9A3F4AC8027505DD4AD6A1F139B +00827EF6BA9166E61A315BD557D08F0562D1203E6247682C1E3B8089AA33952CD77531D3E9F9 +675799D7CD9001824708DCA8CC5F663A5B116250EF90C3C48B3D3C72DD5E82C064BACAD6B402 +984D039088B3E3B3DDB67A32257C85593E1855A427E9D2B369934A93241EB969602B952ECD56 +1B1D3AFA7A9EE519EBA2C871A30FD61E80F89DE7A7B167937F100EB8D7E94DF6A4A26A9BD34A +9D8C9B9067372631305DCD987C50E6578A2D7E08F642B85E55EA8FCE8009D30DFED26DD7E165 +CDF231FE8D5A7ED5000A2B3D7840EAE14F661D1B227EF9EC8E2FEF7FD0044772AC1C166B8B2A +B2042CE62FDFB5A3FCE1622D6842A2813C30C049C80389B0CEBCACE48F839C094FC1D2B4F3BC +D7B7DFFDFEA513A7E263D3E08FAF2BB910E59551235F57988F69D27E48B40A48A13FC76986F6 +8FE1C699573A17B45E27C50234144CE0363B9A1D56DABD0537E3D078B1A0D1BC4B3B7D9A49E6 +591B20301A2FE43FA5892373FBEAA1E1026A5A8AE2C5EA0EC3C100C68BD65FB9ED4071A4B96E +9705BA746086470D03531AA25708C3E9CAD94C494B2D46961D7CD4882F55258CABFFDBEC54BD +472B9613F8839669DBC5C6000CE3AEC03ED79015E7EA16B359B8F34BA9F530C71729A591ECBE +64AF7E51ED2136A8C96317EF90AA3AFA44A6E85F6532C2458279049A5A76C75FE5F6DCF9A3C3 +CED684D0599BFA427E28C3C7FDBB1D77E132F4E7256E483288FB6FA48F6BCB42D400B4A0E949 +E8DBBFAB9E5576A60A786CC0075CBB06C0EFD476845A738CC419B854B3DC32154EF9DE4E7532 +06A08432B092486DB29FFA56DC7DB392EECF40731CD06F1F25312B41B12548679B1CE784652F +A9E29D2650275499E710F01BA2E80C80FF4D28B8CD79C818635CA66498445E31B761F921EC19 +CEDC67169F0322FF01BC72A19A6204A2993F37B889DB2D551CAE97E494D43E5FDFB0E07F8C22 +00892C029201A2B1B20403BDAAD1149CC321AB12CE6D47057BA104346118BEE5DDCC97701CB9 +15099BF2DE3E81527ABFE42EAE7EAB046DE61591EDD3B7D75DA82ADE030C6F7F4B7CE7389C56 +3DE255891D5372D2D63FE86403E2BFA06165780DC43CD71A15398BF5ED121E03F466A495805F +5E35A62FC97C205B334FBDF69BFCB1186E18EE61F3CCDD50BB17D64E0E36F9E63DD6693BF7AD +93092744F4713E1D694D57DBED512D024828F35A7A5497B418F30AB9856814A41776FCF0F23B +E4C53ADAA66C20DF278847E84A5644FCE7CD71CCD39511363515428245B68956DC0F8F35F77F +8337D62F040D616458DEC5FF37E19B9B4220F39441D8C391C0AF9325BC6B59A3B59E6C769987 +E0ECED103F68141CF245A113ADCB7FB83946C6EDA2A2DED66BF5E9E2384DC95114B7399C5D60 +9F2BFEA889BD9BE7BBD39A7AC8BD5CA2C4F2D04A39467270028383FFC0A5A5E2406C423AC158 +BEA24614E13537E8265B44CA42984D0AC7E9362EEEFFC7E5316775C95EFF20638C57A755BACE +B00435EA4155D44213DEB1C418D08330E8CAE979D85475237F88E0316D8824606EEE497827B5 +869E13649AE451F6A10988217990F8FD2FF9DC429C6F2140D5D6B33D8DC0EC957BC7648B5E8F +E5E71D8433B0EAA9CBCCCEE6E205435409589E1BA51FAE21C2405794F2C3B5DFF7A58E2F0AB9 +7D142EF3D3E8F444905C9B2E2174C7D410EFF4710B64A40FC477348243E2B77EB63D540F39F8 +13CECF4B2171BDC971CC212BB533CF6745011EE52AFE6AFBA008DEB709E7493813055505F59A +B9262F0D55F05714B6AA29A3E9F86A6F2A708CF595E9BB5DB19146113F6CB9593CA11764E1BE +EFE65D366C1E97B9B678B6918D74C738433720ECF3768E2FC7B83DCAC304AC3368C73183DECE +8A210EAB67996F25E89AC74861EC22193E112F2C1F5A6F90A4819B27327CCBD53B8F6CD2FCA2 +AC59805490D455DF2A2B453799A7762AD30A6891EB11B7D63A8D976D86BC79D3A50DE80BF64D +98AAFE346EC12BA65A26CADDDD34B66BE4A98C6EF3E3805B29199BFCD1C4FF3CE485E1D39594 +D88F25AF5D6ADB7A2BFEB4DB38E6BF5221CEDF250CC4C37D581DE855B278B0ADAA141A2ADCF1 +B772C3C2E9607519DF48BF6251046CFFE938EA8A34B9AEFD289EA225AA2ED547ACA11D4A021F +206304CA64D37C8B87C4312DFF1864B264A350DB7BE87E46F63C75B18004113C7ECF6821DE7A +9B782932029F8A7D187441D206425E2DEA88032FBB8AF7E8E42888422B96F46731F963D4D222 +E30F3B912732A25B39D2EDC787DE461696A90DC6AEEADF358AD96353091D0B9A141588D51AAD +C03DA76B9017AF884B837CC3011E3783936A702FF2D20FD32FA1999CB88E62A79364755361A6 +32C7DA9D56DFAAC6274B0760DD50A9F99F80CA16AC32AF92F4ACD72FC57BF0B1332900E13D84 +37269A292DB4D70D1F1C2872A753BFAAE6E30440418331F1E54CF5943E28F927EE9A45DC82E8 +F4F9907AB8BD3DA2441BF45AEF0FBE4F3D2943F7C6765F9B4CA046FB1E278BA638D81110E8EA +E703B80DB99122C5D340C13856706D2BBD9C6ADDFC1359EC69B1C5B839BCDC752C262401E470 +64468476EE1C886F6A5B00E8571BA541C2B39123E0C9F2F3A991BE356FB2BD9C22D14C37AA9E +ACFFB1D2E6A75FEAE7119DCDAE2B8742A0E691C43DA7FE12A33D191C92D7C043412346FEBFAB +3AB4065ABE9D5CC9F9653B3B58A5D1ADAD03055AF1F83837543D5D6F88AEC74B89FC8052E440 +644E5A6E19908010BBD73B9E8290C23DAEB78B8EF0B3A09DCD45A23D56EF4849C37FB55F2BCC +793D55AA2337FC44935FE7254242478CF88DF7026F15A020F50D35D57DA580841703A7BCDE85 +E40FA6A528395B8D0BBFEDFC4F065195D7803E16F3F1E3C4AF0D12CB780EFED2266CAFD2B82A +4D6629183FF040C1BBA3D9A3EBB9A413F2DB3C0A81F04751CECB15ABD7558B0CBF6C7E2C10B9 +037074F9C437DB346D70B1ABB8EC3B9962A4C2DA5B055C25C7075F9168A7D96800751DEE38B8 +8937D4CB95489AD0649638A8A383F9FEDD1A3BC87CB354BF10DD1617CFA89F85445411754D23 +007472604DC6569D3B0E826CE947CBF703D4704F293085BF201485B667835C2BF10467D27731 +E4F6ABA393B43C59BAE1EA2F13E77EEF7BC38AB1B0A4D99A464E171E7B9CDE25A4E4B9C168DE +896235B21551FDCA7D449335C50B732AAB2589536F5F2EF3877B590920C505785C3261631AC9 +90214FCF72CEEEFAF01DE0CB4D2BFB7D55739A1CD3843EB3DAEBCF1F36867B4EF045B050A09E +0AAE65A76934F337781D0C6C40F9891F5D6FA291A539315B8727084C4A40E35B8E4084AC0C5D +D73E792B5A8DC65F2F34320B7B4D44EA706ABF84065453CD4EE8FD62CFBB006FAF617545A1D1 +01949B349D9B3F5F538AA30719E328FD89DD3E49D50E50656C0BC9739695D73E720C511DEF91 +4C1C961043D3A6C8239951229A52C4E73627E2D2BFDC47EF19618B67B1A13F0D769416FB6C72 +A43B9071F55B2F4BC68990E4549EC2D164E9C64ABFC3EE6F5A310F794362BDEA711A8AC5C7AE +B4683C0539844C7EAE0F2C344135AE73A7560F5D9C5315095588EEA842B538C345872CC7CE3A +26A69C86791D289D1F60E8D956189F2F573FA34225D5ADD3CA30FF124C16AFC20CA1F5B1EB68 +AF855B69F2C1AF3278384C3D0033BF6A3FE89A4973876F950F1528523CD8667428DD5F0DB4A9 +3179B242467ACB1FE9D348A68E0198FB9FFC147B94C248036A475E8E566C0E73341CB58EC699 +067AFC912C5BC5BCC9B9D991B01240D247B63EB40108C418B01DED5A52A52BD85BCA53368457 +39056E498162131E0C1385C02D8D8EBB3EC680AC5DDC84139E717C0C30D99B1581F320462BEB +B6E50B05FA984151C9A36BF5BD624F47304C213D79C8373F116A0A86AA4ABD5F70C8C19AA681 +D292224E0AD7DA010BD53F0479D2B9F66051B870612EA88DF1807911F09BFB303A143252EB9C +98BF3EE592F4342C634649B541D5C46A49E77D9F5AC1A2654503EE965C98A86FF4BBA1C4CF95 +91BB30913B4A98397AF5C4035CC96EFFBF8B3B98122E37A344D6F92A5E6803BB96F60F74EBFD +C963AFE390B987F34E70E4CB897AE1DEF890B729BDE73CC645DFC05F8C445FAECC5DB0F39BE3 +8D2D596C51D75E2FAEB86AD5BADD95607E040D7A93F01C85D340366E5009BDB3DF7350803875 +DE48093A2A1472005C3B8E21242BBF7D9A0E91BC73BC67328774E25E396F90065588F3DC5AEB +1BC7925907B6091D94FB31FBE5500CA3F754AC84F7677D277CD8D0966AA2ABFC7101F44DD377 +EDE4437EDC01F0B7A955FFBE9EBF4BDA396496454B3CB2954B58E3C7121DAD81BE7808B906A5 +8DF1495D04D60AD1BC1F88A50B54A76C67A060BDDA6A87FBBF825241B29EF42D51705C090BE5 +4A1F06B901A9572C10AECACF52A1EB8FC371FD4121A73AC31ECA966B1F223A5E6AB7338AE7C1 +408FE4D720F5B4684B3F67463ED87269591C1F9E721858B0C80245D2F3CAB98DE898F5CA19D9 +B7D4E04276C648245398D991A06CC92835C9D2FA446CA5CE259BC8C0225AACFE1E44D72ED5A8 +36521D0EADBFA66C73B6E1CF261109EB524ACB621D8727667FF89D5ABFEAF8F490FC613B00AE +75B41A2F9A9900B626D56A6E4BE7B020CE95D9952DF71A083381A30B0DC19E650548B03EBE47 +12D2A470437C06B83385AC94F95B1F3428B4C235E3E1BC70FA6C1E5453CB6B5A676CCC277233 +4B55E23CEA5BD025642B9B2567D32857B3949C92B7E148A8018434B904F20B6420A058E20CCB +11736CD12EE53BFDB994F3974774CD7588FCD27CB2C40A634C4A2ABAD162283D79433139FEEE +67103B7EA1695A16DF4B7EDDC2A2D93FC4B44BC2D11CC7AC26899E225972B82CF615AD2B3ACD +87CBE5A7E2BD9F6DA103C36173AAA93D9A6BBA7162E4D6FD66EE0D23DF2E9587D9FF6BC895BF +7E9EDC1591F7D7EF20AE37F6524DE18C335BF7A5C1DF169004CFDEDEFAE4A3AF008BB248473A +02F36E03E698BC3758A9BEC28A69E702DAF659FEDB1269277E9FD612C776D261FE0C6BB875BB +F87B9D68F8FB93EB259A99712572543A4AA4A7293ED84F45437C45434CCF0A364AE01C836B2C +829906F9005B7CF448F1F7416C608D82D93290F7B3510282D9C4589BC7ED38FE05CA41F3D58C +77BE29263FC7181B0116D8054F2D06CD70C346E8254226C7C58261DD3AF27EAFA9F2E1AD718E +8AFE84E7F0AB4FC2DC9CD97E9D518E350D01B5AD7474A8873863D50EADE19D5CF0E8F94C0078 +15078D6AA264E978A3C007B24F7EB1AAB3A7C5CDB66E89F1D771F0241A43F3076E9B765F316D +0F8887C9CB31CBCE809DAB6836AB4F2CC6F17E921115BAA237D8276AD6BF81A5B2D964DEDCDA +E808781F6884D25E2FFE8DB031158687A42665417495BA99A20C3F1F5ED1FBF83147089E7948 +7C8E9315D26A6BECC4530454671D7E7C312F40F31DBD657D1FEB826785589E7094EF6917A55E +3C408854A08797E147768E8EC1AAC508DA8BEE83DE0D4D68708DEA729865FC7F6AD761C6DB95 +2B206A6B1398343330EA6A995408AFE409910B83393071919172B6741E5E5B44AED191E51981 +87C14CA42185C82EAC7470C9EB3AB35BEC4458FB43DB359FFA17525C2C8CDCDAA352A40BC4D1 +E4F2C875C46A5E101A1274FAE5B2AA9A77AB652276F9D715280414AD61A7BE37966856649797 +B553A145CCE916CA33484D65F203B6BF6B6927A50502C713F11D9A07A1C0CB4F8C2ACE7E602C +70DFD029F88D0E8743266195D666854449CA543F2CA03576C7D26DAA2603DA2E8FE9B6CA4C4F +97FAF63340C0096F285DE6B0855680E0992C06BBD2AD21362019F903434004DA42D0C2A986CF +2EEE20EE2D33BA593F51B6BC38AD832975B79AF42821672673EF204E1E367E3072740285D707 +21ADABB48FAEB2D268D334269F2ACC5B711327B2A60D627C78DBA399E640213021D30880A54D +D4654929A5B7386E5619BCC1BE20E8554C22796EF70409ACF0097AADD2D8387F8C7A40A18428 +A84DB2615AC981CDD7E3D0EEED39A4093EF8CF3E78F675FC6829F06ECACF6A3CC522E936A2D8 +BD437BDE99B5C0A764BADBB7CE107FEB8439EE25D1093338AAE91C497C293F61652271062774 +585C8C70B1277235911DA49372B3638213E1D7D892681AE7F9D65B3C5BDDA0F37319DED8E26E +68599CDE78BC93FEBB94228668F852885CF43AE675D176723A951A5635AAFFB9EF418BAC5767 +71372CCCF5DA79A96908C48CDC1D56222A265CBF56046D818FBA902951AFEBE70914EFACB2AD +9B3F3D6919FA65C3CB7AA5D029F2F3884D8FDE89A2A489E44B1DF193C3B88EA3B8D59246C1FD +F52A89F125664041DBC194867EA99EA0A22A849E5FD958560309983113D00DD94132FFB8065D +1794F17FFA7578D26C923253F1F4C528384F42CEE36915F630D61CCB8DCDBBD75B331E9742FD +15B5D8B0905238591094B6E6B449BB68CF7191FC2B11211D5FB3E3138786F2F444AB7D874FB4 +6BBB1B652A55ED8271FE7B85B3C7AB089F0AB28DF0C56D18139E06BDCF7A4BBAAC2CD36B4AD3 +C4667C42060561704FEA1893F90BE88853A2A4692DF711EACC06D6D49348BBB8A6F3949C08AC +91ECB7BA5D08DC4B2845C097F2BE3AB4476431FFE2B9EEF1F722C76C907D0379D7AFAAD936F8 +D9DBB576E447A49159605479E90E957FA1333320AEBB9C3FA77763BA7C240AFBB80E204FF58E +ABD5CAAF8FC7A4CFE322EBEEE181F862BC355D5DB347574FA2503D6F1F4BFA7E014BC93195F0 +2FC6554CCCD36919847F4EDE3D4AA1D5C17DD942D5B4EDDEE61C7079651775538AABDB77510B +C0AB0E4A6A0DFE6EF6FB29B79277EBEFC6206D37269FCB626EFBBBEE8AC7A41F6ABF0F1A2175 +BBA7263BAEC1597F8E32D03595713C007188F02DFAE1111C8E0CE934C11CEE557F51BB2C38F4 +85E24E02CD36CE2B64F1DABE354A12BFFFBC6FA16BC663DA328CC3AC493DE8C20C8A00F85CF6 +937B30CC58507F61F8F382B46281023D212BF7947C6D6EE720F138E85B8E1227FBD0382EBBAC +54E9E7BA73CA8762556B4E3FD2288D0948DAD7D7167919FB03FE7F5EDA46A37F1152579F0850 +46B7AACB3A7509813F74CC60E439434CF08775EC2B2AA953CFFE9F8BB839B03C887BD098E7E5 +D07400061A4A730896217CC7041213E6CB49408BF47677D67ACCEF02BF8C72103FD6D72AC374 +71F40E2836C9561A5697DCED547BBDED5AE759F8091D977FB4559644308F11454BF25A0821A3 +CEC516525AAB0D31CB601F31E4B389414554407B7C29764D1B975688003F39E7142F4664F65E +C265B22AECB31A6B23941EEC24298375F619369C1E0F080A221BEE8B2CD4555322417FD43C62 +204AB89E27363E753259E8665D04E0738640ACA215E96440880F00A57A790FD11BD59CA4CF8A +BFBE93CC153F7FF97FAD835E9BF4C54E1DC2B4B3D796BDFB96793B1353D9A272D338ACC7E03F +1AC5859D0EF7FC964A0055363DE80B53E1479A61D54F0982EFA1D9C63B5F5D63A6971B7F2A08 +F5B577719DEB0365582D521126B7B9C0840CC94526A704CEBAD53733B2A53EAF6C9A7FDC0C28 +633804B27E0C41D362B69DAC1A24B2640ABEF30E492159E3ADCCCFCABCF0892086C0B717AF53 +7F0457D897B66CA606F7362FDC3956962046F4E15CDB2C81696C07CCAFF428A095173BB74803 +19AB048BF08E11C09C002229BDB41F35C35DBB4ACADD1F37240EBA8FCF7FB989468A57F6D1FB +E3C6A292D7703FCAE61C393E7F045D8BD2A069CF9173D4CF2F58EB7E165167005C8B20F41605 +F0BD79BD8A96E1436641EA02DBD108D3464AE0C8BAD2D8D2DAC51CEC11DC7CB2B3BD38A1DC24 +BEA7D2DD15A6CC20102B3C05AB78A515A1658881BC52CCD81009218403019C4CC163AD92DDCE +DE95C15D043B2199F8578F444B61A66778F02ED6B0E0A8BAE7DBB917723378AB60A208421E14 +A4424E00738F4D30BD017382850794CBE2F65CB2ABEA85CB420D457A91B4B4D3D16D9AEC0BF1 +E70E53ED94347F2BBC082075868DC9867511631256ACFA464161298764D4F67457D3466D63B7 +0A4BDFF98671B5AFC40B07760CF28338EBF7461683D65216DC178BBC5FCBAABF775DF2D7158F +AEAA8E48D14AAFE204D6D338281B6081139C873019CA90F4CA778488239E5A8428AF655DFBA5 +4E1454E637A0C8D493FE0FA7326B3BAA4E3714CE3EB96F2C8AD594C94513BD5903E53445DE85 +43129763B37E57A866CD8CB0FBAD7ECA45F36C0ECB690120BD4B3985D88E434A62C239B07951 +8E89D38E6270582B5651CFD3525021B0BA311F98C5647D14302909B0B0E187A172033C8DCD38 +C7AC1A5B991BF82D28B9132E55CC3FCC14F5ED91D3C53922D510DCADECC349C1856F971C0D54 +BD6F724DC522902D02053812705876DBB8E24EDAD47B475ECF814A7F73CB243F2E2FAC4F80E7 +7BFE57C7DBB5D6D02AB9B1C9402F643E4258A3EC6A05FFF4B15A6C0E81FF0A33A5FC066C1F9C +0A2EBECC9F51362249A9B19FA77D2564E2685A80827BEBD657796057073939331B8A449AE07A +37B87770437D4F6AE8BC7683A7F61CE05EBCA6DFEA71811DB4CF7CA2B41033F1FF763062DAAA +7FA11B4293CD97A5324168EDA727CF0DFCC7706EB95D97452B2E4FF583D617E57C9AB48BF985 +0A009C9F049EAEA66EBBFF235577AFD48E22BECB666426C4080E30ED66C0F36402C4C1872159 +8FFD20FD189740A521B636CC6422A13BB3C8160F76E259E0858CD3DDA955E377F1E69161C67B +63747F7B4E7A813CC016AE922153526344D556E9271E8C72D3CCF3886B5E61C27EAEDC2D80C4 +DD605D5594754A80A3F5900CF39FC69864B264E76271E9F870A5C874FD9130DD65D92D1C52BA +003C8437148E08824A1F97668539C131D3DCDC23286C3668DCF18BE238D8A5B7C23636622EED +241389C62082767FE6AD453E8E303AC03F0E3037F244BCF144C11A1DC31C5910B47A5DECE0CA +5852732220F89EBDE6190483C4F497ABA510C3A75EBB3BDFAF87A77A5181A92CE739BD19B58D +1547C5E558297A27BAE2306C33258B9A2880859B00232D0B9F24D70604402A8CFD65D70529B6 +35232A70F1CFACD31AB8470C9745395B77F67C5A0B31DD06E6E27B647A5B47D2724ABD50F6D0 +B03C26E5EF291F35173422593617462A345B9FEF5855491840060BE9AD169E11C29C714D02EF +18CF9E4DFDFE749826284B5DB8E2FAF370BCC0E158128613C7C65060C6F9FA1253D56748B343 +EB7F8074F582CD588A0B3B4D7BFC1D09AF6F50AE74A970E58638E4F3BD406308DD7F21B86F60 +7FBFCD2333D9713A46A4C730A323F3CF74818A0113326A843BED368E7A53DBBBB9E2D73F5703 +0C07A84B5E6A6AAD5B7908A485B4F5EEC7136634E339B5A9CD2AF4AFDCF9DCC62407AB3FDF57 +46E02E6FB13AFFE7837BB8A50E945E95F13B6C65436038D46C40F48B785CD0181B6AC147CDA9 +33FAFCD98F79B474BA0F69151235CE85D9B2F8689B05C182CEAB603A73572D79A8CBE17FF7F0 +F2C49974669198266B3775BE2F7F8E9279FE46177928BC1E317D7B194A967D1513974B782E9C +659848B00B87E135588964BF23BB8C288D7423341BF45F0585D90878535395BFFB65D3B59576 +C3362E1E08756153B7975612C3709822DF540A5868404ACA77548287434EDE5D5088A19E671C +72626F4DF853A89DFA00762A7ABF283B7292D2CE6345EEF8F545C5E5F8D6460D79B17229B8C9 +8B2F5457621A13EB17206B5F3F4D24E6F9331B05301400E889701FCADD153D005487BDF68BCA +DBED3F35AE662B3DCBA47C4A93348E2FE71EEA36D6A73C50F85DD16C66DE7F0A2BA7DD7D3094 +6EBE7DD322F7E2ED4DB5C07F87A6A66E76AFB00CC101E499B496A6CE1F1ECA25E8DE6AFEBD20 +06FC4E8C75C990B37AFABF150A463A9EAF84E732BA9A47D03589DA5D8521B98B60DA32CF8B90 +1A194B0500FA80C46C3C6575811F4ABCB7714A7210F4BC272AFF0F32036AE0E8A438F3A162EA +DB62E1B5BB0F65EAA45745728A4FB5C31A3AC1A26F5938C9B9BF413B246E2921A112B30933E6 +C739C4939C0B4AAE1D754F97B9B90CAA608C40DE0DB832E5F29218B2D628E86983A39A98F77C +4C76C4174BC087480CC5EF6D1DDC1C7B4C5F28AB9C2DB6F8BA02D41CF8479776848F078C6FDC +4B3978A25F18F1957F3C87A2E955FF01DC3D1A698A8D7DFD135FE5317CED921DC505FCF25FDE +DFE0C56814E3B9937C8260D9A06D9CEE4457CF160ED23E61F6EF68E33D3B5EC586CF7FA74D5B +FAD5DB260DA398761454FEA0831ACB04E390F9B2324E9345A7B97875E3E448C294BBD26E8FA0 +1F63EA8875831A2D322CFF8F84844D9108A42F6E6D096674962963C9B2584CE149DE829C7BBD +4401E2DFAC7F01FC00778130C0A332FDB650F74667EE6CE8B3234137921AB0754E1967D0CEE5 +451FADBE57572D59660062D5063EFF8CEFC36BA701CD0652DC44A6B0E611FC1260689B74F4C1 +246E79FB8A4FF2D9394851CB2298076D9112F645A1D6C54D867C24B182591D5510027EF2E9B6 +4BE3ED807F1CE407F2B60FA303E802B4B03FCFCF42932B1D01C783BBC81F029402612A5B0925 +641780DA1288B1EE4F0409DD5AE04B33233B025824119830FE2DB158BC43CE551C51A726697C +F4543919915EF994EB7D590B1458FD8BC373CA6BCF3EB8C4C9241EADFBCF03DE29D60A61F1D0 +29551ED58F89310392F89A53C5625552C9A12DBE002820E757215E0EE7A58EB80950EF804829 +0C5919F94D8D1418BF60395AD86F6314FB65BC24807F4EEEE672CD266F5C46BB2A1B8E3794E0 +0E26445283C6E0F0136479DBC86AE50946C2E639581CD6AB94E64202D01990067D5AC9503945 +528FC1527156EB0C778B98F4B0367439DAC4DA642F945451C53DB5ED7C5FF7B996E692536908 +437620AF784248989ED59398C16988D529AEE8ED512EE13CCEBA69E9D2A9ECAEF5041430444B +1D8229164E1B0DEE0B4F5F67ABE78C631A97897522D3E2ABED2761A5456C135C49495D6DAB03 +5BE21E0BCB875FDB82EA1A13A17E82F0EE7BDFD86D7BB408A318D8422279BE6102E8B6F26245 +2932292977FA8336D0D0E41AE62C558299AEB39E9E5233137C635508E77B8A03DC8D7DC953CE +0428AF9EDCC731EC157C18291547C112F92CD54D46F7CC3D27AA43145F31602C137B4DEEED87 +4CB477981E32E99DBFC1CC8C5DE16114FED27AE5DD634D1599B3F17714E5B9E501F1AF02CCFE +2C1ABE64AAE9AC63005118AF87EA9EEBB55EF77A48972FED7A8460F20AAD73EA6BED656562EF +A57084F00DA50CCE7E3882E49DE831069D1DECF29BB2857EB2827B86EE42CE5DAF13258C035F +33ADF80AF9ABA01668FA6266BA66BABD51BB00B20941F44AB23FF5C667FC1CA8245CA458604A +59C231ADD08F5C2F688E59796F54094F5C6F34CB7A9BF1FC116D7C4A8B592458CCEB67F2A82E +25A67A25127934369F4242F94CE979194FB15BB7E93D7B8B039100C755F57EA2DF78053A7789 +D77CABED8A3058191AA2432684293276B94F046E5A4B94681659493AD01B4F99BDBAAB91CC68 +6346BEFB4DB24A39B74B477536292C804FEA4249FDA371D54FCA0C1AD3173712FF24D9C9C76A +0938D31594592A71668428D6E60CFDBDB01878207FD54E11FBBDE5B164202084603747B318DA +3C8ED38424AFF23AA111E5617311CB5D28121C04D87766145DD26E3E63D0556664D246B340AA +C1728B5C6B98376D028A791D7A0303FEF89BC4F61BE8B5CC627B31A0951818F5E5B7970BE632 +328A13319C1B7E22EAA922CA173D5E39A51F575A776F8DB63BF0FE8B532FAFCABF04F090D5B1 +3E7499A1D25073901BC146A6A467AE2C279626E068968C26B4C6B07951790A6B6584031F19E6 +9CC5B596C5D25F323DEE72C335150CDEFF50974160FB89D5A9EEAC9E92E14B2FCC4F8D43917F +A2F6A7BFEF312AC2464E2D82899DE6263D5B93EB2B2372941226FACE629432680C957C2772EF +BEF72AC3B41AE5A0CB0F41E8B92593EFD2EC18477EB5C5E5C75716C4F26308ED11D7EF2F23D2 +03E577E6ABA8965D6F9AD94C1CB09E474A083794097E85CDD24427AF15D2D143EE0664989419 +D9E1AF1870C71329F39DB71A3A5E554447A2D6C5F740192E6E5B93863F4C580F80546B2D58CD +3E77BBA664601FF76821631B383DFEE8E7AAF524C4D41AC3D92D6457B2DC27F7EB6D13CEA339 +C11F7DD542273E01A1BB49BF2F73371D7C8F36FF9F99421D103BD3A81972ADD88309260778BD +00889907EEFB5553C45421D89C95975036F0F97F874A19F92E3AF0AE917E293477276EC0C56E +3B0DE7D7887CD19A54E1F601E489069AD4FC9E472920A98E895784B9D74424BD28B997EFF5F3 +268C98B14DB8CC5CE6578A9AF72D31CB1286B8A5D003A6045EB8FF9F662419696A653517FB65 +AB31C093A62EB7BC5FCEA5749107F8F4E650A5402B98D299FE92663902B60845FF6E4BA2DD78 +5DC57CD1252042EB55521293BC66C6721C91F345609EDB3CCE9A09A2F93A9EE06C4862884139 +58F7BD0ED4D67AE0B50B38B8962DCBA0EC4F725ECC9FDFE6ABF43A94B9634A685BFD7AE2BDDD +23716AAA5F345182317E149A72019C54F27BA9377AB6FB0C1F407ECEF65E7C539C90C549971F +C2C278FC27653E7503D43B23130B6C946540E19FE3A4D36DF0779A03F0FD03F006B8531F0D63 +342CF441B5C26A65F88D41F76FB2FB17D497B1028A65BAF363B97BE8CC71AA4BB84DAD9E141D +B1D15C02BF398AD495B9FCD8D3C0A15A899CC2286D4D7B4ECCFC856D1B069A6F4B3F6A387129 +C31B4E90BF347F6EB558150F53AE99DC5CDBEDF25AC19BF2C47480528C841E72B1645B1C8E01 +FF33AC4B884D5CF361380C113AD064D5008AED3BD51448BE6774B73BBD5493D12F597EE5F319 +BFBBD487406CEF951D68FAFF91D8FD589FB6924B5D4050DF2B97D2BB80B48840330D76CAF3FB +5E8576DEF5FC7DC024DA95302B9787AAFBF5623A00A26AAEB50D7DC72E30ED1BB0CD5DBAAB41 +FC176EB0DFAEE47AE29F0954F77682015C87BA4627B384B27EC87A0DFAB0022E4F31DC6C35E2 +2DF7027A0FFF472FFADFDF72498B4197B4750D386521B6C1A08AD5760225CF655E120082872F +2CCD410465A0311D43780445999AA6BB02868C04424545C49DF91C6599C57A30881E1B14328C +9E8D2112BB4AEB8C9CFE1BDC0993B321254C3D9170884FF07998A3C1E3E4E05BD89A43F97B92 +F89018AD12A587D8BA43A759D27F2D282CFD42E5C8988BADCBD5C126AA7FE525CDF197E6E1BF +D0346B51B05497D11034E5812F570725141AE059487F50B1313D5B44C37EA7342EDD077263D3 +8EDB4CB70359DA8B8727281EBBF45CCAD2F537EF8891FF9BEC0FD8085ED9CAC81087C32E7E18 +5EA125B210AC7D6506A1970C7EA2517A0DBDF3FEDE08F7B570BCF92607B8A88A463983D62111 +E219AAB559C61E5DE31C89B6DB277C43CC203F7B7FCCD44D746704236385A2A0548AAD2CDE8B +8AEF7B364809128DA80103986472B3D0EE47E276562CC25F265A8DEB1440EBDF1F8F180A047A +67318889493E359961633A1F62D4E6F5EF75EE84FAF4AED296BF9BA402771C9D2A06D55667F5 +3B3725536764B1F4FC2609093DF40752A6823AF0540DA824F844B8C5CAEEC388DAED5BE40E39 +C17624B2F9A282B64CF6C194C8328671561F62DFD6B79E365BFBF788C71FB3A03C7C505C2CB0 +2AB3051037B017262955BA4D71ADF43B10CF041E05BA548D49D936960995096790ADDCEA6B41 +7980BE9B24D3E5B5BD7830EC6FD05B982B87BD2EB55036F11AE14E68642B348A254BAB36A7D2 +C57846E05C2DCF8A3E3600EFA67B52D19A335D69F8AB3B3A2FAEA7281AD9936CD965F8106677 +D50A0DE776152979E2A213CF86AE126B7017F9CB416EBE8B27FE85AD84E1AD846D26CD671711 +10BF7C2CC7E2768053E302C539FD32321033DA7073AE99178702FD69AA4C67FCE95658524A3D +103108EDFD8ADCD0BD529F12F0137B53AF32A78035432B5FF67008063EF6ED95D67FB3BB9CE1 +43CD5AF7741B13EC37721ED9D78966860F17FBA74255F97993D4C5D34017A12D8C3FD20154AD +9A7990EE84E718273BE76E3D993EC2B4294B029EAF54FA533F096668B1F248B52A47E5CFA885 +EE9A418DBA91DC5D6477261F11EBF7907B3C6559B9A5CB1DA2B2F4665B8B60BA8366E987AE55 +A9CBCD320328F3C02A24C0523B45A950D00262135AE77833511DFAE499790374C6E4DD8E4513 +FF8C71FB45AD964D999C6CD8AAEDCCDC1F7EFB42D38E7E6A5551C9CB2FF394FB941989EFE6B6 +9028560E3F511BE1753844E2D55D23F9749C97388575C139FFB493519A2F5EBBE58E8F3E3120 +022CE5CBD5972FD124B445704A546A9A1AEA1EBE58C90637D1FEAC84E84BDCCF77C05B3530D6 +5D186E7CF7A5039DBF16B77D250A57E9BF78C540CFBFD7551C2A5554F35D6BBDF7018DF26736 +657606B810B031F375C82DA2CAF45522492EF955ECE63A860275D30593FCC56ACFA44A30CBAE +4C7E354533A5709E838E6B891A7C10FC8CB62B82A8E8CD1208D7DA9F1E4411DB0DEF65A5CF46 +8D438927C4A7902D111B9E76BCDFFF7420EFEB85589E9817FFB2CE71BACE03016CCD51A71C1F +CFC8347E3A98443A53FF01581DEAFC030CEE9CD71EA2C0557450D366F5498E73F96B1E72EE3B +5E7E9C7049102B1A3018D40AE1ABF09627EBB645869A0E9938B119226885535A7A322DA73BE2 +ACD720E559E37396EA98B7B23C8D56AD952589335DC4F71F579C8553DD7F88B7CB82702002CB +71425E6B417522855E5888874261EBB1E7A06583D7B03DB5970B598597F677428E65F58CD63A +F1E5020F053A0C30A611523C9DDB3DC5F5BC775B28A7B4530E302B7819C1E8F5ADB79F9EE6E7 +9F77AE1ED4D01274AF7A65933037FF996F5DD62F1F5F2AD3C2076B490BEBC950B50B24E1B699 +B65DB1A41E82C07B25DF0B8619A44F2A6B9814711CB592C82E9493E6B9EDDD781E0DB6B95DC7 +6A21EF72876EAE30C30B2F86744AD954164AAEA0BE4031230B8F3D1380AC7C2ACD27F0C4EB2E +44A9350416325D0A1336D8C6D873122DFE583961227F7607BA831A3CB12D9BACAF285D9F9BD8 +01D3EB4C41EF3485559F1AFF43E4B8B672E519CF05D78943C68B7D83B525A1E053F64A835697 +A0D4541A8F186123E481243C673C10FD65369D53372B4B62BBBB75971616158BEB0AA447FCDB +D6DE32F1544D65689AE5F00B1300E629E8A59ED1723D65DE3EB9B65A30E1C9A1A2C0012B509A +F87E973C750F8E48083F81855EAC2BEB00C8EEEA5F606CE30840C1549599CC5316160DC0AC0A +58BD2C458926762E4E7088FED38F8D67CF8B020907DD5EBF9929C2318F2BB5E33105270FB0C9 +8312C11D5B3116D47E13A88998AD3B3AA83A64E4ED36ECB988DC9B4CE47364C931C642D5E156 +1E6690666E89F0130E37CE2939B396C9FF0A16C4FC85987289D536229CD0CAF538D0A799167B +5069A5E31F3AD001029EF8207C90E7FB11B0158CE5114768D4265E3981DFF7EDCD779CCCBB3C +D98E579A7B67E50FBD3D252AF68A15C7E01DB40708FF42296C18531EAA7D27C21014B9833FD6 +8356A915F53293AC0717C4D16E7EF7FBE61C5CC225C0FE2A7122163CDAE813B6A792CB5D84F5 +6D1138D948D0E51DD83B9A5498D9BA39EE9B7A149D45427014DF34D81A2C49F9A364733F1DB8 +9812A1B4F77C49B8BA5E8DCFD7DE2FF6FAA9019A798E86D7D225F996C47A98A0DDDD6F8E9D8A +FF3149F74EE4D6F93CDD1D9B0CE22FF6716E5ED82EA7F780967EC08A8A58E8BB7C340EF97356 +F45D846B44A3D95929FC30280187AA15CC0F008F224EB90E42C9BF2941E59B97CE2EE1C43902 +90D110E1784FD0629B06EBCA45E63C5228992944904172348F67851D8551669C37AC50FAC7AC +6891AE4BDD744D82D9DCFBA8B99724C76ACF4BA6A9FC50AA6061B23A67B51AE8B12E5B3CA564 +B2AB94A0F75994FE4C6C8FA8037F29526799C1BBD081F145C4F7C39F1DA80627C6872F8582E6 +576F80934FAE50296DAB3D8724306AE02203C27FC34E5B4032C15F03C245C4FB0784DB0F560A +0306043F99173AA4DFBB09F58C2FBE68EEE0219C8735C872910B4B902FE7C2E803B8EBE8630F +5FBF4768867D402DED12FA153905D26562DBC7BEB944B17542F73295F05649916123A5FB1E10 +20015AEFD346BFE29B351CE7C963397AB1BD966DD3CDA57DD4603A8C9E1BD0F79352786A3454 +6D92598B1FFB7B9FF5A938D3C0CCDBE6F1686B31B36C2A0AD1469268D265D5442154E7F61D61 +313C2F1D86911E5ACF4926CE9E6BD5C22320BDE84891BBC844DEAC1979CC4BA0D99B052FCC20 +DE7E34669D01AB55C1F2F9D0B7ECA8E474135749E7478673C1F10D4B6EC8395F9CCBA7B471AC +08BEB8804647E8FC8FF39CE6B7749A8E54EE47EE701194993F101D3D72E02B1F14A71159BD6E +1DB2702306509BAB9F822EBEFA18405BDE198A9D39C56480C6961D4C4C8E803067F27F0AB1EC +C52CD3035F927A8DB85F7C6865D449B4D169FF31C83CCA59317BCDF6569D92811F719C0450F2 +6B07949A8FAE3EE12418E8C3573A89E9E27E49E0D706C102E2DF65C05F7BD7F885610EA72CD8 +CDB7E396C2AAB18213E5605CE6CCE26789F09EC3BFBB8B03F19BF371E76379D44273324E43A7 +DB447E2FEE05BB4CBCAFD6126E7518A43E52867DC05DA9E3D3FFDBA769A16F708003D4BF411A +0B0F7D0B4348A3801A01DC903E6C7B63F00962A48E8D868F2FCBA7EA4420532944AAA35A765F +508CD50EF359CB44732509953777021FA3D6B5948A9A8933D1ED17D12E7DEB1756376944AAEA +D3A54CD9BB9C11F85AE0D11F0E7ED131734B04708D1D156705BACC4CC43F358E2526DD332494 +BCCA735EC9DC52E9D7E532FB0E90FE148D4ADBF56555A56F6ECF608DF3A15EEE2F7BE6453950 +7528186C7F3E4276E06038B29C9B09506F216540B549824BD37532EEC49FCF31B40653A2C7C4 +0B15BDEECEBC7F608C764CE20853C1A9B5EAEF1CB773098F1AE4DDA13B82C0410C64ECBB56C0 +29D8AEE185E904EF9F565B7710B1989FAE633A1C1BB2376C4A91E4AF09A647A602E48EBB50FF +2F59ACE0B7E9698CC553D686BA90555BE6A705C385A484374C52CE2D625066E983B9AD3379B3 +91C4F2B6EBDD204A25CE8053BF7D9A4C97134F1E6871AEF23D449CB740008BD719FD45658A31 +5615BCBC425C5993184EB613FFDE5271B1846B5BC1FC3EA638B4A9B4F4DE1FD8516A6D3FCFD5 +03B711CE24064A0EF8FC8AD95FA3A1C3E1CC1280075617B2C50AC262A21B2C187FB228C9D92D +BD3EADC0101E5084EA2240A9B9398850EB60CB82C34C5F794B5748410B88CB372CB9F151E0E5 +C33D74B5EB9B1A8127CE513011E23B12CDE09C23323A13232257B605937F63BE944BBA3875F0 +97B31A573D9787505C025B7D25DE2AC735A41A1C7EE2F9EADEDD5C1169C3EB6286478E01840A +B9D813A87417F8E08D83D661D4F319624883637140FBC6A497494BF07E0253C626A7B1970CAB +4F3D19AB0BA8B9B3EE7476356F91248AB5E1D31B09FD54C1217924D38990718C144A2C4772F1 +5A612CDDFF2B326BB7E2FAEFEF1FBF4AA79DD0894C16D68E39E3F441CD73BCFFAD335E241BDA +AB651307803FE8C7A465C2ECA793F07EA096F01ECA7F1A3302340A5B501940B23DCE8E42FF80 +BEB899B669FB66570664052BF9EEC645EEBF463363BC51162B5C354D67ABFF76CAF78AA17CD2 +480C447700861B8EB1E18D7D229EF90C187361C0470C92322085C75D31B3C8548DEF7F8EF778 +2769D631AE68ADE59CE56E9CCF1660ABB39D844A9D87AD8BF7D9AD33B0EBA2321F413E1892B7 +2F372354579F8A87B54714753CDF66EEF2A76135EBDB89558AA9AC0190D76A0E01A65D8C1A64 +CDD91A9718636D2FE705789A89BD62D15023115BB1B24F0043A8B19B756249EC8A8374B10AAD +C4289FE6B1D181CCE01D35681521156ED95731308CEAA0E1EFED602B619DC0019F1C9AEFC123 +86F8BA8B05092A7B9BDBF7484B421CA34FA99EBA2C74DA7ACDE074F349FE1B8BBDB782ACF365 +9CC955F7E19AF6BB79432A59718DEB2B5028324B8185D8445F6A0586F8641EF5A1DC69ACECE7 +CEE0752C7B13DD0406E2A1F60BB5E7AC79D7ED31BFAFC8168264508FFEBB3932BD2BB07BD943 +7174DA658CBE738B1B3CFAAFD547E0DA801519BFF51F2A512555A684A6F68B7311CEC5A0E4FA +1D4F69EB45339831C67A3A855C2A1B166EB6CD28ED6C791EB82243C62347D6B60B24B45223D0 +AF7E21A589EC0B2BD209A8365515EE19DE23B78EEE2E3D9A9A55F78EE39F5358C99B500B4CAA +E752AA1EDF6CD9499204487FF45FB713BC16EAAEC0C11C76FEC55A40B3D90504786C4E46581A +719F0ED174DBFECC1FF5EE829C04EEF1D2C31C0DEF73512977EB309BF623C45F61F45A511076 +4E5B685579E2867497E115482E70C6CDD2F26FE06A60A0167228CB89D59C7540D00B47E1FAA0 +79EFC89B0ED01AA6B805A111C74C372944C6350A5B5ACBF54449641FCD352C49C541C7FF61F4 +94DD1B45417299CA7314F1B63CCF2E71C063038A2386AC7B7C9464B9238B93943E55A190AAB5 +4BF7D804DA84E91402017A33506B4CA3F105B9B2D7498B630551B8750FC3F28AFD54AEC36137 +C2137DE0D7176F2C875400BA09E855473D903589A6B712AD7531836D2AFB097C025F0B2AF26A +4F6E67312EFC8019BC96C58FC23BF3F2A608DADC97708C000338A46CC2BD13353915E4F2BD85 +DC60CEB5522C4FEC32AC38CEC53CE194304B555C1A8F26A3F702C2F9EDE587F1BB66816578E4 +00B42535B14A7767641A550F05EB54F66683BAB77A9F19B2AE2686B0E2A28676D625D9B31B2A +AD60539B5E7E291CE644AB32CD997BFD6AF1B115CC846D5D5C511034FB91E842C2B62D1C4F72 +B9481FFC9E57D2323A79B706A7828191DA055D9B269894C5660F5B9E3CEA0634B761563C521B +5ED28F5F2E1394A596001F502ECEAA149C5F81E635F18182DD0665E5FAC6160688878896423B +EB05A51309A98C633742277278121C39E0963B0722C7BA409F7294AACD9290088F901DFF1463 +3BD76DC7B9557303B8E2D73FA36F57EA67245A6BCA63DE2351B3D9EF8471E53BC664612FC86F +68E3C373463AC0AC8D4DB9922FB6CFD986E709FA57B43D66F7AE2D539947CAA6C2BFBE4A24C4 +09D3856FE31E7E79E46C175E9DB772A16EB47528F49405F19052394E5831D213697ADF5077CE +A3EC383DBF3316B4739C49DE60D574BB6883063D85DE0AEFBF26BFBD6428D56B3EFE67E021D8 +2BDCE5DF3818DD9949B3698C1602B30EAAF12BFF3E51AC1408EEEBE0028DF941605898394D86 +7D292479E6523884B05F08DC2DDD6CAB4BA9A07AB435427F64E8EF9B007B0DA1615E2FDFC528 +CAF08FCB2A9A214C5934E6A60732090E4505D244983DA0F58C5841A3767F575D89B11869BF69 +46E15F82D73DC179EC3EB44E546D0645FDBA8D7137D55E5A8B22D5C570A39F1135C4E965B9B1 +F129246469EBD2F5F662A1EDBAD059FD3D9B876153B1ED834E1FEE35804B779168A5B659E7E5 +FAC674F402C2C153D3575150C0C6574C591C44FF7A19667FAB47A8EA844BAA934B08BFC58BE2 +672E34C687C311BC4102CF6346C5DD54D93552571F0B2EB83C168EC4A16DD89094EDD2F6DE02 +97EC3298AE2FA77E6CE76C42305872F7538C68A77F18688924F9F5C02F51BC1BD13B0CD40C64 +F7AE8ED1C35971B03A791FF4A4C57843B9A8A8F8E1D2CB5C51C4F93CE159A060C99EEA0B0680 +EB99C6ECC422E41AE1E9F07E38155907A54BC41102D05BD8DEFB9AACEBFF66E2CE8178383B98 +0BA91C8D4295737AF2BAA229E5B9F0909C91E56BC6E061D4BF0D0D826411255F0A3D417360E4 +DEFCED639409A770A68B4780FE431AF93AD6C229D9E4E4E73928BB2271CD8CD9168B9D9E6498 +A9D5E1F19CBB0CE6331C98BB8E14B585138F18E9C5E20788FD9B96B10691EFFF5A72742DB76D +EA9D7ECDF3D34D44C0FAE7BF87BE638D72C37844D105324F35F9B2B0BE5E041ADA52B3E50BE7 +6187B5CF38C2AB4EC7CA4048A42365205DFEE5603049FB0AE877C71732FCB83D9D85CDC3E6D3 +A4754BF44CECB039B86FBBFF5B2842A5B9FF2698550D593E329639B61D35918CFE1FA82615AF +EBAA5F4876A7CE58971D48ABB97BD11102241141E58489DAB5B8197B1462038CC4BC1C5EAB43 +D626CF0F74E680B71404A5EB0698725AE5C901669BBFA01FA529F7EE786CE4E9D89D52D298E7 +CB20214B75C6748486F3DDE5A3CCE949627FAF616879B67ED86A6923DFCE17C85098A9F15A52 +9329385A91A5C4B516605C65A97431076EF83CFBDD89C5C92C1AAA9CA125B54D74B3B3097E58 +83DE65E71B8A4A38C9A07320F1E01B218F595B19FC4088A8F99B08F588530B854E3E1074EB65 +CE1C480013D760171545EBED4DB412635CFB69706B5DABF9FF6DA683BE728BE51E8607F213A1 +95ABB337DE35DB5B32358FDB374FAF9C14F3729A954CD4948182312AFDDDCC8AF37DB0900F40 +FDF190E7B06E6ADD9FDF686093D21DAA96D9F0EE86109D521E619EB8B4D576946347F9A53792 +3FC4D2AFDC0EA4F5E1E05AA3CC798B97A1A238650AABBA9687EA9FA30369AB0ABAD1A9587D0B +A1FF93D53B7648847DB692F59D8850C7D237F6BED39439B1419F1CEA51E95E15049CA30B5954 +CCD76EFAFBC52C7BA7ED12DCC966B25E1351B2A23CC11ECB0AD78186D98BE30AA8FC94A40085 +780D6025CCD7120FEFA0128CBA879FF626C5DFC55D2E0466ACB483D1F1B0E15CBA9B3EA6B729 +0927E7AA0737F5C2BB11C41F29EA8262E689C525EF5A933BB6BDF72BFF36219D5DB52ED3334C +3372D9019162407577CD21F83F7C8D980886003FB12FE0B14F9AF7BCA745F3914F720B639DD4 +01F5CA9F7C32B5CCDF53C908BE6FF6BD891ED7DD4833C166ED36501A36DB80503DB991813BDD +CB5FAF60069D9580901E61E6C13323E7187D38976E9A138108F567014C2149998C42DBEE1CB9 +F2497041EC589B12AAF253EDC5DE15AE48D3869EF42F086D8E0E53E6E1DC9063F4DFF450CF50 +E387914A23F5919D53F9DEEF0033C26662E98D1515A52FD8D77A005485DEB865E9A869B9B218 +A872755C01E75E30080CB5D9835365D5F7AAF56FF1C21E336257DC22E679227A295D22C878A6 +7AF659D9C5E94A9C141539F0F3F2E7C10EABB2DC645CA8EDDE6D146A0777DFD1A1FD2CB13976 +2BA4D2049033A9E0152B0FD462E7A39A6EF3DF62185CC8709614CA9303DC0B723958A4E18055 +3CDAEB6360AB830D83BA78AF84F9A730D698D8850FDAA43516A5CE2B74AEB39A8E62038950FE +427C8EB6AF8EBDB8A888B620C5727B7C860ED8CB650D1F16CC7CC3348953723C2B31D12091AF +98A361B680EC721E1FFF9269EDB95CB90DB61EA64C2A49762E13BDA6B520D47DE819430C3690 +1E35675E94493CEFC11B34E60645A9262267C32B8EC6C2D5487DDBDC27DC56533EF87EDC7183 +257481F6FC8FD00E47A175B137032A4D7BAE80380D6CFDBD822F8B5F4A08D66882B8C8863B57 +237EF8F3720A3E087648D1142CA90DAF860D19F4273627BEEBF7C1B4BC274F729F83FDAD7C3F +EC91C41E0210F40492DC2AF8316631B3B24307418A7CB4F387C6D55D0EDAFF28CC5C158AA379 +6ED865BD9A189DED6C5A14C00B509465336CEDB55B4F4460BE74B3108AAC4F8E35D794BB062E +9E80E066F659591B8E2A1B1AFDC515EBA28BA1E06E23366F89142939932DF6D136F00178BA8E +BDBA5931BDE21F88E5EBF843D424429DD34C4348889EABA9E812BC33513E29E545E6F4624F6C +3FBE0824304FF63D7555DE60CACD0254283EB55EDFD3AC587AF00483D8F77C11829DE1589DED +6340C8E82F3CEA0A2651894AED392F967E945DFE97007F9432B93BBDB569634A50096655501F +5967B1BDFD3EFA79CAB87F6B62ECF0E38E0716AADB9A8C005818DD6D8FE1CE3FA6C2C2B27B1D +99AE037C72A0CD5081D9C993DDD36DCEBAE17C0DB1CA4D11BAE0A0407FB19C91B55A4FCED58D +E0E0BD2001BCA4BDAEC08D9A2E662777770D84E02CB7722D3773A548E1DEB0D64A27CC739D51 +BF82C4D8997E2ABF40A41AEF2D0F115562DC90DF5A2B5896DD714F2DEED3C0A62B9280CF1092 +46D08A01A7B5854C4312E04F58CB5237A03D6FE892B0BBEDFDD0A3FC298A8E990D705EBCB925 +331D69721B9FEB491FF8C37C9099512F4D662C1F7ABA98EBBA0C4C473C575E1E1C5F4D2C469D +13F92992B5FD51705209C1A55D7FC95E2C79DBA69F2A82CC42AFAE088424BCFF48153246B2AF +21255018521322ED356375D807A6254BE7CBF24F949DF16F22B86D98FE7B2750ECFE186A39F0 +79D15F7F2F74D9B13D891841A857BBA2C44925257DFFEF46017CBC201EEA268B12F8B006E115 +1E6BECABEFE9586994641AF816B0A5FE16A6204CBF7036CCC2CF4FC70C5BF1EF28235AABB21D +A91C4789BDBFEAA7272DFAE4EB8A2DD5DBA29974EC3F192FA4ABF53BD1A287F8F959F64D3093 +B6FCCCF56C363E7011A397B2E7215875CABA8E6949637BFF389FB0C4EB691EB97295EAF43EBE +49672707D2166023B0F16DAAFC126642431398F6E0D18CA60BB94E10E92407EB6CBAEFB8CE28 +9D768D4CB411605CAC9116E57D34D2FBD969EEA84E25E8D3B50BF99BF90D27B369942127D915 +F9CF287CE983C3AAD2347A2CE6B61F2E522FC45A51E0457783F5B6B5E43E532B2194447C67EF +9281E5DB2806643389D9D95C5D35306574CC05110F42EEE53164F6EB0EDAE4C87148C41D59BC +17B5721896B63DF0EB995FD4E9FC04C9EA01D422C0070D108F45134B14864116875B33286583 +385F531AB238B707D442E13B4001C18AB7009FB43A4B2ED8215FBF35E4E67AF10ECBCEB841EB +BC84730F80EA39BAC01BE483D9E3EA7B1C1A9FBE29B4CF1ADB37CD10C38EB723DEAE5232FB24 +1A6DA403C8DBF7A37BDBDB60E32FC9CD10E8EDA5C46A86F47B409A70736C8205D6A5F07C6AE0 +8367976FA2CC05CFA2B17D446D0EF4FC2446DA5310529E7A6BD401F711325741382413756206 +858459FB93B9977BF12BD014C2BFDF4B4D90828E3171D054F4CAC1A292E0F7F55676594E87C9 +4FE81610B8E57C42B3CDE488AFF99B2BAA93597C63FD6F1608230B6024F550BE58B81BCC0398 +5E06D3E98B4B8B7D7B8E9009FC039AD205F79662BD88E0803AFC071BD9CDD9B4A939B0348B19 +04EFEA577A66D54798FF0F3074A82DE919ED21D8728D244259A8FBF0CA42ED45A4301973EB3F +2DF8921C1C540D9028D2C2B0D1CB2A7E31FF2D178274DDE42596635BBEBA6EBC30D28F8332C9 +994E347F129E4B5CC68D061093E3B18B077643074FC52626A47C1B2FE6F5BAF3DE8FB2103F2E +27B65E5196B83A67273A87F1926F24DF7A5D20D32DCC322388B4FEC43B7068D6D7ED92525BAC +979956B2E0E209B30D6C93C587A462EA45C6ED114BF3CDF0111A8CBCBA7935B930924FBE654F +8701D889D244F0E0B7F170A6B28C47C9ECFED5A03C2F02C752E2CA47FA48DF69DF43450A928C +6665447FBCFE8C543419CA33BE1B1703156F24A372A326A66FC5FEF30DB00EFA1C14DC50AC6C +C2801C52EDC6CA11390CEA74C95EF8B0BB8787DD2133C01DB1ECC1C2E3BFE01100944BD59BB7 +39F1F5A03FB7B0C1EDDFF085100995397F37B67FEFBB00933E24DC0ACD060B0A8B3576016ABF +338112019DEFD77020978CC6E9FCA65DAA7EF8DB5DA17C9A8DDEBF9149D417E6FEDE66F7C798 +C81F4A3BCBBACAE103C2D46B682E31C089F71DF9B6B8EA6F978FD6ED4D2497145DD3AFDCEF3E +DBFCB97022412481815E19FDBDF7950ACE8790E10A10206B0075ABE312EEC64B44AAA65BEEBB +25F619D6729B93D40FE4C34473A7EE4880BAA3AAD147C0F8F0429BA7CA9350BF60FD8B9F760A +F5CAD5EC12C09EAC07B0461BA095E9529252EFD40923E11BD438F2BFC56072757CC1F6A668D1 +369CD3AAB40F2313624C2C8907A4564D5B4E1DF883854765D4ABB7FE85CCACA624988B135879 +DF57DB80B799467E160A735DDEB7F724498B8824E31E4791804F327778DF5F33A4618B864F4D +B880DF0247C6053C2CEEFA3F5786FC54AA631C730CBD8BA0AD7D8A946086295C8B117EDAABC7 +B32D2A612FDCE396F8EFFEE39DB1A466D4B54278EC8F70293133C88EFA371E3DC6038C4B373A +E73EDA93C0520A2CB354310CE4E94B793068AA33C36017CA6E6BC83340B31D28D29AA90C4AA1 +2E94146AC6DC1E2F712B46B9A1ACA71EBC164C36AB32AE3C3D44DFD2A84390FC76879587B309 +DBAA8E02574CB2D1B7BED8007C5F1B6208F5EC4D6D7B74EAE36F87C85AECC9ED803190B6BEFB +967909ED56AF04CAE5D346441A88A893F74269AB4C6B20B81F274E64B621A2716A8A8753F097 +4E5FDDC01FB27BA6A6E77CF05F9620D0C6655151FC47396DEF002840DA88CF1882B8525BAB38 +7C4291275639C6DE69B10AEB101EAC2CF9E5278485360436B175DA7D4EB5950704AFA7B9405A +B1D38A176D80170882F18A115F54B3B5ABC2DA1DDB42AB04A94BDDE7F6431AD79225A35F576D +CF62AF23CB462077687A1A0214D825C2CCB84E763C36A98BCE08EE0A02FB8B8A3C13284F7BD4 +65CC3555F234C0F6B8777866774C5BD7D9EEA3B87502F4A9C153D9A14D97C2C2135B05BA3591 +ACFCF85F45FC0B76070D104EFEBC4CE12F8A407F536D61E3A0C417A0CC34C2B8523F51A5D92A +AADC7B3E85D20E009E0692C23DEC307AA1C386D59D6CF6DC602D2495765F3C5CCFC89B40ABC4 +90B0E8B7F4AA4F450736AAAFBF8283F659037A48003DA9BCAA34C185D675C617C749208F95C5 +BCDFAB8CFE07DA6CB6D5A363027D9FC2B1EFD9BD54AB11C55E2C66E141DA8791A73589FBE34E +8FD6EDF70BC7EB9D8DD841D7D7241F30D2B06BD91890EB0AFE4A9F56323868CDEE1E37AE26DA +214716F1049C5EFE18FCA5B1236DFE62955E89BF0EEA229DF979D3D94B0871846F0C18DC4D1C +24E8F9A38908830FF8553AFB387345C527D564975BCAF4A221E64CB51B932F382811BF9E6DFD +A80F33CF5C3CDECA4F78E0A435ACA1E6E9069444FE1EDFCC273359BF99AE9A1E32C5F3B66C32 +CA4F604CD34F5909690877DBB256B493FF5BBC334484A10D685072F1ADDE15ED0B721C65481E +D186A1C5D4E1206AD68C54DC02DDDAE38BB766974D61026867008368AA5DC311A762B8B785CA +B79A1722DB025C0A221D970326B80B2E28B339A967CB279998320CB6E06CF788E102FCF751D4 +42176D3489BE4C6FD6D0FDE707460E63BF5A3CDF894A97E3AC5DC4E8344F4EB6EA1003B518C9 +C1EEC8737BE6F11AD226B26BA81C6F14BCDB624EFC6FAE506570190CA689AC61BB9F135BB248 +0E6745CF72262ACA1DF0518A8C0C6DE59ABC0E0439C91320DBBE7B2726D122139D1516A87765 +2AE1A6CDD5C380E1482673451DADD950FCD7CA605790B52520525B29FE5A7E7A64C54B7D5C0E +0E5F4122754873EE0ECF04DB58E48B113BCA12223A876791545721FC84F519A8E18B683251C2 +E535EBEB1123CA429E48F90242FC2A2278654CF05E06C490E5F2C1AE94174F09E3D43B2AA449 +BED8D2D394AC24ECDE887EA2AAF819798F0AD88BC14AF69148F14E0D90F59EAAE5A4CB3D5760 +A8002141937B382E60372DC91A9A9CFD960447823D58097355071F19EC08D62FB1E6BDFE7266 +E9928519CEBD0D8B583F160CE46AC48A1B93FB6B6B341FE71E4A759709ABB9BA4B0269EA217E +ACF5F6037B5A91EDC22E4EB0F4EDFCC396F4EEC6B3593CAB769BF9EC9B8D2C9475B551CCECB3 +1ACC6C7F089AAE3CCB914BE37C89C7F1B884EEA847E33A0A1A764AD800A06513F4FE95CEF673 +132BCF928E8827839912EC09D2B7A6970D69E705C696D7C662CCCE04A77108E0F033D010A9C0 +F436D606FA6C5B784CEC53701305A4C686C220E72053B0AD0E0BAAD6451A3F5E99F3E6CA24E5 +317B7A9E69E97C1DF1C62B0A7DEFAF8EAE58FC7836A4198B16E6497DE5F47B614F8223F6D112 +1A994C6646E15310A90C76EC058793EB6261F71807E8450B51D0BC290A63E52AE43690F27660 +AFB358E213DAC5DBEAFF6688211296619F2ECCC637A6B36081A61C58217327DCC895EC4ED31D +F064AE911DD693A538E3621706E951B70BCC9965F4E65F7D2D086C52650CD59BE42157EBD458 +A495BC3F47911C1DED75AAC02BE98AC5AD8CBEDF1535734C2272E6511BD0987BB2B3B76443E2 +2AE9B12987679778BE101880DEAB2CD428FBDA07FA3EAB56B40D286A7C4EDB8B05C45E7ADD07 +22D476B42A3C052521831A6429830AE53B038DBD43F8214F4C6C805AE4DC50051736CF595A8B +6F84C4EB07E603BD3BFBC1DF769E3777A1380F2B3C5D44899F9BACA7D0C8DE11188DAD3BEEF4 +B3F70F3359A3DAB2D0DCCF65903B853D92379DB252D7C7806F1AA5723638C665F5F4354AA105 +E3F6067832D5DCC642A37874785329095052B4A6C2EEFFA865B5F307A5E976A5BD7A42153464 +D4DF68828920DAE4851168E667AA4034627A4234A33E04DCBED0C83C8937AC6F695721133250 +3679D5E253679B5EF447196521E87B973F6BA8A229EF100E9513DBA28112E701960DDADBA856 +D8556EA90DBFE07F4F2C2FC1E7D28AFC89F6F5919A2893BAD39B4C261ECB10E33C78121177E9 +39F3F4FC5DB6A5CDC6CE4016F8266672F602D45CB377E43B2C905F1E04CE17D3FEF8D2D13583 +880852FB534D853FABC4819FECFA3DFEF9CE55068BECC94A3A0EB685CBDB7B410372F62996B3 +BF9146F1E8E40A007F6E633EC775B60AD1E2BFCB900D4F01F8F03AAD6440ACDD449FDAFFD386 +30270D9F8994C9088810CD3AD2DB7DDA53BC82CA120F6F797B9D6971387F1B9BBA3FDAB5BFB0 +76D4F7A17EE5D771A876682AF17739017FAC8F5D5E04A763F95204959B274A3B554438D21EDB +15017FE16F87149E8762FC54E0E5326994A694D2EDD89434923AD3F6696861F4DCDC90DCDCBF +A6AB7B64D73E0B6C709B68ED458C29877FBAE1C28F312C251584AD275533A9253ADF5B62978F +E69F03F273D0C6ED62997F8427AA70C42C60EF70DE3C9155C6F0ACC7B816CB291450F352A685 +1BB1BEAE0EF125F2DED53879C911E50FFDDAFFE84DE86A14ACED24584AD843697CAC267E2C14 +7D9786EC37DEF0B26E205570691C6063E07FD581B30ECAF220340BA5440A9B84DF49E2278FAA +6DCD1DA32F72972185920C4FDC8911BF33647C36B2F0000DA6D905B1F1CA5FC289AF8C17A4FE +941796CC22BED96DA743A532E9D3D53DF861B493FC9FCECAF5098AE2981A2F183548872F9E51 +B64BB5BA1296EB10B08DFC27F81AD189D1AEE89FF224BBD8E95A6B401BE6EBE714BE31AB7F8A +90DD07D410F33C819FA0A4620EFB5DD6BBD556D643225557602F9AC154714AF13138539981CD +0604CADC383114C8F7D682C239BF928557BB5E09FE19F23733643581C0D1E8A934840EA77CFB +CE86498584EC91139838FD9206BFF51B46CFF6613FB985A6DEDD798652E630C77779BBEEB051 +34BEB11A4204D1E7ECE83C9703E12668FBA3417026CD9D559525CAF4A202C66880BC1BFB58EF +C5E66A85131B0668C5860479C56333F1070CE992FD809B295F4FEA77854D8EAFA5771CEBF37F +409FA9809C5F207409DBD08EE877B2AB1D03ACD23C0EE5A7A0B7FC727C973DA1E939DB0757D8 +4325DC77C46E59B80DBA9C3B0FDFF5CC42E30FD630C0CBF26096DF7CC6FA34B2000AF9FDFE1C +2881702A147C134856B1411EFF13E4F70ABFEDE1F300588EDEC326ADA98081C513D30014C74C +DCB944074CB3881B3FF645AACFD4AF0B7DC1E2990D7A8BAF4B02FCBE2EF40DB8668368DD12D1 +C1064A7E099097C2CF9E9DC3E980C97087C7292463B0485E749E781A3FC8D8E96817FE0E4E54 +1105C046135C86C4EA4CDF3A654B1F035296B9212217DCBD9CD07A3D32B5281DB5AEE9808BC5 +26141BF96DC061A6C035F5DA34EDA3AC9BC0D99686E6412ACA00D22FEDFBAB311E2D55AE50AD +52A2069767BEFCA7BF52AF0670FE86EE4B108664FBCD4D461A7CB0698691F0C54403BBEB33D1 +94C53A50617D6F3839A06746747E47B96EE38029946039E5695471158773067EB0301B5CC759 +7D81D0C63974C63265C59F3BD53A4A6EE201F286EA433AF3FC2827952C76BDC3F7ACB2A81D14 +C936BB155A21ED1E571F28BC8494DECE753370D15149441A5E6BFF163A1D8B0DADD6379F3CBA +3DD3E9C5726DFBB5D34E6D9EDA5E0674E7EE33DC443A07FF5B16E2857F4E0655011F6E898515 +BD96FB03291496764077F529DD30DE5B9415236138A24A030A9D06123E239B8734C68F89625E +D55B29C3AE236845048D0D53DA55D5B41A3A6B67B7136E5182EBA6F04AD09BAA5EBAF11C27F9 +6C2FC507C1768D7CDC42ABD669EF08485605F796FE66E39AFE14D96481E9F6DD541D56C0C17A +AD1AC6E0910C5ADBDDD31FA7DBBD11D9ECAF2A50978821A92FE5F20E407D5F93D8B05C90716F +A51D9586187C1F2928B75D228A19B0D9E49C73FD78D8538CD33161381B720CBFE6677B4A4E05 +F90041D351B84494803560EA7ECC77A20E36AC1677D7DB5D2F4EFA53C2854E5587BCAE22797E +C8F328ADF0CE9199B99906DD512A28A5A348E4BE7CB571C8D127DE7A0BECEE6ABA7BEE0C2D68 +70958399DBCB2AFE9B208B76042DDE90EC23A6B8C0707451972E12911A06145A787E5FEAC85C +462B58C68933067A009D6F40978896B80B1817B1E3F493CCE3664A19353FB7E0C37063E7F5AB +F428A7CABB3F454B783B7B2A6008DAEE0DADCF72E814E04DDB9E8CFC9C1A5A0ED2A3BF70DE33 +5FBD454A17C5DF38054181B95988642DCE3BAB50D6317192DF170245DD75A895414EBEC37540 +1DF8F994FBC44A3F359961CAA5759A928500A689FA02DBB1F05CDF2CACB2EEA5DA41EBB3867C +3936B346ABFC8ABF34D66A681233795DA9276F20AD5A17FE03CC9251DDCB517C0CACB16A8E2C +CA1AF014517EDAF7F4569D7B330A612D7D99C03654E02E5F4A0C7F1EC449B2C7909262D721F2 +01166F975AB93A36A72428968A7BD2B1FC33B4E0A94FB5FEF835DDD975EF68B4F0728782C9AF +AEF705FA6CAA81FA58CA64F4261488B3C2F259851EC1200CA0AEEAB5C030A7DDE5B27F89DCC5 +54C02A9B7F26352B94B4C3502BC96B202D3A0AFEE0F9980DA98822E44157C3DBC72A9B15A4C4 +CE21AFC9DCCDB93D6DF8767C9FA124767B0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 + +cleartomark +{restore}if + + +%%EndFont +%%BeginFont: CMBX10 +%!PS-AdobeFont-1.0: CMBX10 003.002 +%%Title: CMBX10 +%Version: 003.002 +%%CreationDate: Mon Jul 13 16:17:00 2009 +%%Creator: David M. Jones +%Copyright: Copyright (c) 1997, 2009 American Mathematical Society +%Copyright: (), with Reserved Font Name CMBX10. +% This Font Software is licensed under the SIL Open Font License, Version 1.1. +% This license is in the accompanying file OFL.txt, and is also +% available with a FAQ at: http://scripts.sil.org/OFL. +%%EndComments + +FontDirectory/CMBX10 known{/CMBX10 findfont dup/UniqueID known{dup +/UniqueID get 5000768 eq exch/FontType get 1 eq and}{pop false}ifelse +{save true}{false}ifelse}{false}ifelse +11 dict begin +/FontType 1 def +/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def +/FontName /CMBX10 def +/FontBBox {-56 -250 1164 750 }readonly def +/UniqueID 5000768 def +/PaintType 0 def +/FontInfo 9 dict dup begin + /version (003.002) readonly def + /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMBX10.) readonly def + /FullName (CMBX10) readonly def + /FamilyName (Computer Modern) readonly def + /Weight (Bold) readonly def + /ItalicAngle 0 def + /isFixedPitch false def + /UnderlinePosition -100 def + /UnderlineThickness 50 def +end readonly def +/Encoding 256 array + 0 1 255 { 1 index exch /.notdef put} for +dup 0 /Gamma put +dup 1 /Delta put +dup 2 /Theta put +dup 3 /Lambda put +dup 4 /Xi put +dup 5 /Pi put +dup 6 /Sigma put +dup 7 /Upsilon put +dup 8 /Phi put +dup 9 /Psi put +dup 10 /Omega put +dup 11 /ff put +dup 12 /fi put +dup 13 /fl put +dup 14 /ffi put +dup 15 /ffl put +dup 16 /dotlessi put +dup 17 /dotlessj put +dup 18 /grave put +dup 19 /acute put +dup 20 /caron put +dup 21 /breve put +dup 22 /macron put +dup 23 /ring put +dup 24 /cedilla put +dup 25 /germandbls put +dup 26 /ae put +dup 27 /oe put +dup 28 /oslash put +dup 29 /AE put +dup 30 /OE put +dup 31 /Oslash put +dup 32 /suppress put +dup 33 /exclam put +dup 34 /quotedblright put +dup 35 /numbersign put +dup 36 /dollar put +dup 37 /percent put +dup 38 /ampersand put +dup 39 /quoteright put +dup 40 /parenleft put +dup 41 /parenright put +dup 42 /asterisk put +dup 43 /plus put +dup 44 /comma put +dup 45 /hyphen put +dup 46 /period put +dup 47 /slash put +dup 48 /zero put +dup 49 /one put +dup 50 /two put +dup 51 /three put +dup 52 /four put +dup 53 /five put +dup 54 /six put +dup 55 /seven put +dup 56 /eight put +dup 57 /nine put +dup 58 /colon put +dup 59 /semicolon put +dup 60 /exclamdown put +dup 61 /equal put +dup 62 /questiondown put +dup 63 /question put +dup 64 /at put +dup 65 /A put +dup 66 /B put +dup 67 /C put +dup 68 /D put +dup 69 /E put +dup 70 /F put +dup 71 /G put +dup 72 /H put +dup 73 /I put +dup 74 /J put +dup 75 /K put +dup 76 /L put +dup 77 /M put +dup 78 /N put +dup 79 /O put +dup 80 /P put +dup 81 /Q put +dup 82 /R put +dup 83 /S put +dup 84 /T put +dup 85 /U put +dup 86 /V put +dup 87 /W put +dup 88 /X put +dup 89 /Y put +dup 90 /Z put +dup 91 /bracketleft put +dup 92 /quotedblleft put +dup 93 /bracketright put +dup 94 /circumflex put +dup 95 /dotaccent put +dup 96 /quoteleft put +dup 97 /a put +dup 98 /b put +dup 99 /c put +dup 100 /d put +dup 101 /e put +dup 102 /f put +dup 103 /g put +dup 104 /h put +dup 105 /i put +dup 106 /j put +dup 107 /k put +dup 108 /l put +dup 109 /m put +dup 110 /n put +dup 111 /o put +dup 112 /p put +dup 113 /q put +dup 114 /r put +dup 115 /s put +dup 116 /t put +dup 117 /u put +dup 118 /v put +dup 119 /w put +dup 120 /x put +dup 121 /y put +dup 122 /z put +dup 123 /endash put +dup 124 /emdash put +dup 125 /hungarumlaut put +dup 126 /tilde put +dup 127 /dieresis put +dup 128 /suppress put +dup 160 /space put +dup 161 /Gamma put +dup 162 /Delta put +dup 163 /Theta put +dup 164 /Lambda put +dup 165 /Xi put +dup 166 /Pi put +dup 167 /Sigma put +dup 168 /Upsilon put +dup 169 /Phi put +dup 170 /Psi put +dup 171 /sfthyphen put +dup 172 /nbspace put +dup 173 /Omega put +dup 174 /ff put +dup 175 /fi put +dup 176 /fl put +dup 177 /ffi put +dup 178 /ffl put +dup 179 /dotlessi put +dup 180 /dotlessj put +dup 181 /grave put +dup 182 /acute put +dup 183 /caron put +dup 184 /breve put +dup 185 /macron put +dup 186 /ring put +dup 187 /cedilla put +dup 188 /germandbls put +dup 189 /ae put +dup 190 /oe put +dup 191 /oslash put +dup 192 /AE put +dup 193 /OE put +dup 194 /Oslash put +dup 195 /suppress put +dup 196 /dieresis put +readonly def +currentdict end +currentfile eexec + +D9D66F633B846AB284BCF8B0411B772DE5CE3DD325E55798292D7BD972BD75FA0E079529AF9C +82DF72F64195C9C210DCE34528F540DA1FFD7BEBB9B40787BA9351BBFB7CFC5F9152D1E5BB0A +D8D016C6CFA4EB41B3C51D091C2D5440E67CFD717C56816B03B901BF4A25A07175380E50A213 +F877C44778B3C5AADBCC86D6E551E6AF364B0BFCAAD22D8D558C5C81A7D425A1629DD5182206 +742D1D082A12F0780FD4F5F6D3129FCFFF1F4A912B0A7DEC8D33A57B5AE0328EF9D57ADDAC54 +3273C01924195A181D03F5054A93B71E5065F8D92FE23794D2D43B233BABF23DF8DBB6C2BD2F +04672F9A3B7FE430263E962F16A948319C51B8ADE6E8A80D3D88023A6DEA4D271676C2C8615C +4A0EA7DC8F6601610F398673A4D4B905F49EA868FEF639BE073001A36DEA6C08ED51452F062B +971740019692E221F4455EDE46AF24B8407A98B791F6AD525C72C09776247E194043281D04FE +1CD1D8AD8DCEEC3045B4F95B3B41CD3300768D8A049815348BD7AC1004F5500817E3A267D694 +AE108BAF285B288FC5F28A03E9D34FE5D9B2F9A9BB26ADE66B1CF8EB5BE606E83D213C33DE08 +3C20D636EF780E76196EBD6EB9A8AD0D5C590F0963BAC7667DD74EEFF4739C067E092F6DB18F +75FFF9B267885F26D398B7D5F558478C5D3BCB0764B9C46938F44DC4D1140EEC280D0F576D72 +8A5F6B1BF747C71619001BC82B72541EB653CE4015B0A538CF2BAC8DB0A8C17D70138667B575 +6FF79FE8AE36EF127BE18849B32281061FDC18C80C19D2FA5482C839C771D45EE95F6DD42FB0 +CB92982832C148360E0C09A666658A074209EDF384ED62BB0855D39762E1B1B16F33039C1339 +9C576D6712B0B30ABAE77F9CA3A8000536D22267E8CBD6A858C529E60AFA29E128481E294389 +97EFE81731303B4A25D84CEE0C9BF1C61D67A2F89F1ECF33AEE0282B8475D27D74F7C39317B7 +1F39B0722FBB4B8553820C8E6052E0BEBADD426F292F282E2A36328452D9BF2253D0658218C1 +5A2E97E1148C002E8EEF7977706AE775D3FB84FE49EF224B11E9661D5948ADB077E525F81A70 +4C305F1B59B7DC421DAE5B09D064CCAF55EE88CEE13911A3DCBE9623D8995431AD66A82BF0F7 +8430CD95D672F4BEDD5751844AA3B0FB0B37FD7F7FB5AA436EFDC159DFFAFF3D7989CF5684FD +D18F78243D5BCF69B95EA7C47EBB6521CE5EB9BB2204E7CDE699ED4F3595AF28417E6521EEE8 +CEA907BB1B23480E1CDB579D8CC2C79DF883769411DE56F72D16E67673D11BC9A996AD5C5CFC +1FDE7F550B915A193235A4BECCAC701A67DF5C84FEBA7997B748D280ABD108305123CE11B5AB +5937FD2BFA07A96738BD15B8F06620028D2E1812B1E2BFEE8847BFA1137CB08B443914C79571 +F87AD9914F204F942BD7116DE1087E674899A1B5061F72FF134006595292C7DEE518B7156B66 +05D06E368BAA9464C0E6C1F55F357AAA2F8AC90BFBBB94585BA72F11ADACA8305A04CD6C07A1 +B70A4211A801BD6607077115FC2CB052E792EDD27D5D700EB4DE25327B0F50C1AB29E5367264 +A2164B207159893866B9B32A1D7C0133F428DAADA7CFB2B5A4F180D831FAE8A4BA0952873FE6 +37F2D4A2AFB4CFB65CEF26C8D0F3B7B38452F4470C9FE42A6D8248BE3C7D76FB017F0F228D33 +72F49A3CF41DC00D0ECAF1F4509EBD57538528A81263CA54697074CFB527EDBD74636F7F28EA +AE46B66DEFB4C233AD0DA007B6978FFB0F3D3ABC9EEC8AA12DC8A051AF538DCC6063E3B137B4 +A359AD53522F6CD3C7676A4BD25FF6AB5D0E25C083A6FB113B626EB46547F361EC55D2671363 +8D7C381FE3E209D61165B30970C25CCE56314B4917662FE1A3D8436CD3DBC306847987E00C10 +AC83A74CDD62DF1CF7EE6EB23A3D910FB48C6F2E546940A7D9154A89AD58B0946C727D18D235 +AF390EC8DE9ADA3BBB5B0D7A9E32F8F4698FAC50F445E6C67C55680C1B74CEC385CF61910709 +61334C72387B00722228ABCBC21B4FF7C5DB2850F65E243CC1666EDBB18D5A09D2E175E671CF +A24D35178E5E04326A274FCF9F1AD07B57EC7EB025FE4FB024C83418BE892B9BA5D0A633E09E +F28EB5C73AA211D4684B697916DD845D24C952E88A7C4A69FB40E90DEBB32264C021AC83B5C7 +7077FF47C85EFAFF2396F88AE7269E4875D1FDF647F636FD714B823846D90C5B8B3BF711D631 +F827B1644331E4B82620287D7433876960928748540E5C03C31E16C56960BF0941CD26E28D3D +54E4FBEF7DE791A58CA9E1AD1CB9E0A0F196A9C389A657838A6C35BA717E180FC3FEB8EA740F +4E3363C45DAD7C5B2B7A27BFC86E1159F3211580CF4BF027C556BDD2E1FC11C684585173CA54 +AA68967DA203DA98C8D38321EB298D9BF5193468FB202A6B25266A7EC83472D6B6D0662743F4 +68AE3479DB948C36047C43492113F53EB84AF486687B25350D37D933181CAE79EECAF57B12CD +15D179292EE7ADF8A56D84D4C080D2E49EBCDE739C3BA73090C1868AB9D22B2D426B79993EBB +F48658118D52FE0A20BF3A29674D3BC70DDC2F565EBFE26B8A1B9D50DD0BD5C381A6369CDF2C +F415672740BF106EBAD216CED4CBA8BDAB6AC2CBC8E70FCF2AD869EC2051257BF2E938EA6826 +C2B968888571F91C347D38951F806DB3694FC7F4AE10029343DF20CF86AF16AEFBF11D2D9E30 +88154CEB262BB81691D7020AF486B1630E23E46EB9F00DA3C37D62B5D9FE9DC06A74802536F9 +186D368FDC29346C1C6FBF00CFD784AF5842E196BC908726165E9695F552679E3CF19EBFBB0B +A0DF2B1DF065081DD7857641787656DD03BE6B2C8FC5EF854B89E9C7C966B4A0B77EAA0A898C +3CEB111A24BC1EC12FC8525D2B1DBA2D6C65253CC673C022F642C7B884A05443859EE8DE0283 +BB1D73AADBB5F73A1E684405A8C12F1A4BFE00907577F2A75C04CB6D02CDB4812A3770BDD372 +CE44DC8698A7F3A0A18F3321131E064E8B88FA49A2592D983C522E41F062B51509254A7BE8E0 +3CBFF95492189085A5DEEA7E4FFA6EA787BDA03F0D763CF4432DEC344C4028861ACEEB2D1587 +C1E2FF5CF22D23C9D02DDA5586D8B52037FF66D80C3B536564F9C56BFADE5605C9D2BC2811E8 +9E23EE867A2DFA7B4E85E07F319F6D08D713502F04F043071D4522C1E525146CAF520BE38C3A +31BCA06E3292A3D919E0E1429D799B273F2B224C7D790C9437BF248A94FC2176B46C9B1CBA01 +57C9D19ACF1C0E2E90BB7C762DB169955A3C2F968604D5AA0EEE51DF7EB90DE8D089C432E167 +58C23D391768D9EE3E0319151C29F5C7AEDE8E9A3BCBB0F5C02744CA63BCB1DECD9F7CE8D6A2 +F5ADD89DB575F4FC2C1B1A17E56AB98866C90080D62767A75024BE669C60B6C0B410299391AC +EA10C8A42C4261746098EFC4BD0243F704970AC8819D6B8EF8ED1DF8C4540D5566D547B0DEED +36EBB702D898E700E6114074112167A2D0ECB73D484613972B0D594BC7B3365783885279E30D +C50B20E7974C8B6069CBCB776675322CB6579018618125FD503E54330F960A4D64CDD611646E +3123E0AA40D2A0B2BDEC191E5FCB660EA1B68D0C11A46395BB23E9B7EF46AC77A6FDAEFCE31B +2F298CCE2601E16360EF10B6A79CEA6C577C759684F5DD6D6B9243A5436080116BA0E804A97E +EBB6128B03BCB48534878518598CF21B3E897FD2840D59B6CD3F5CC0592B522FFD6DFAA9FAE5 +2CE397B401E0D7695616B1A27FE93EF4F9F29B375157F99DBEDAEC503DDF27653B5B367D5497 +959E3D29F8D8F326ED87E24675A0C80C10F1A03D5A7D6BF0A78193E038E61054BC332210BF5A +D11BF0A78DB2EE21CB1E811D903E63836BE32530A7150DC71D238200208A6054FE86C234FC94 +4CF77A704AFC71641BE0208B63B65C467A9CA05F53B770260D11594D122AD6EA034B8DA7B7E9 +54FF76DC292609EC34D429E90F591A92319EFAA65A0C2C3F3338BC511B5242E7FA4AF4388398 +9A9071F044CD0947EA0A82C95FE53A6CF677247783DE3C356197067AC1D48DEDD671FB5ABF04 +E5E8417BD64402D3CDF380EA1F6BA6D41D8E72DF60301393317CE7B832A641B3C8393D40B77E +01847C627078FAD56B22A390049F73645C86B165C9482E726EBD07E93DFA73325D7BC625EEF1 +E933210EFD13E4081621ED247128BAE5196BA1185AEB7722695DBDCDA7EBCD9BFC566843B911 +BFFD2379CE7B0CDFA190D49C8655310268667EC47EA9D35B3920D537D61CE45A7B88D923A1F0 +4D18BB07E5D63EE84407DB1E5256E7E5EF08ED7CA0966FEC918607EA239E150EC8696072586B +65E00F0AA7C13B12C15A2A34364173583C98BFEE7858857D4523D8C1A11C6F2EE75B4746DD37 +3AA13B934DA86D09113C072E9C014A5C5318C5FE76748F5BFDAEEBFB06CFEB09EBB31428E48A +498E3B7DF3E7BDEA24F80317A7430D6F71037C6460CFF8B657CA6BEB07598DF61AA6E55A1876 +90568F4823C5B15D28B8C77D817EE6697425A6699D45F6A97703368119A8AD48BEBFADA3575F +7B4C60F54F022FC9E85A9440AF1DB056A577A05F8E3779F2FBD9F871252CF7FE20F464296A30 +FBF2B7759D2F6CDAB81E2E622FFED36B9A2F2E0A6105B946843B5898BA004B60D51FE3ED868C +05142B30A663B8974E0B8A772A49F2327E6575FA5BB8F8DBE5484C1FB7F5D82AC176FB5C7ADD +B7111D5317A64559004E5C63F1440A903EE1F9E6B05E958B3358C181EEAAA79837D10A66CE09 +81E3C144753BB4D8E43120FEE513DB4A8FA90F1EA4452BD7613E10A70DEC96BFD6D5D1BA189E +DFA5257BA172B43727FC9D8AE562F557B456940C348EAC7F6357B8A58F8A415A16818F171ACF +54BCBF1370F38E4ADE8C314ACE55B91C12F1D9EC20E803DAEA65DDF994F982A83DFF6ADF3749 +B48487F9C95D341EDF99E040F0C0FEC4BEF20DA51745613723AD4076500AE3E88346511A4350 +CAA2429826A3F49ADF7CA8474AECDFCE41E42C38ECE644A450C5CF88D522AC293B8EE1B59E1F +39689780F8B92A6D9CFA765AB5EEBB7C7FB212B4A4BDC0426F8D93DDF7E793317A08EF326881 +86663D6F40451B0EEBB7E60B8702A03F51BC510645C03EE0F5614BEF6779E34FA3591206137A +3CF6492AF2BF2EFB1AE0634B664108CA6B46203FF37FE4FE83574E2175020B6932BF706A0C01 +1E53154DD9F25AC043CD302B3B19C89DFC46861D6DCF2FB24127FBE7284B2D3E53583083DF4F +E3ADA87A397A32B19FEE8FCAF50F5297B86448AD92239030CEA12A6DB32E8AD45E9F173A0360 +7541D20C4A159B491E590D0FCD3E24092DEBFFCB0B526ABB6D07F84C568584050210A0AC9977 +878C9A77A4665784B0876890802DE370D97F828F39B46AC0822EDEFBEAC8A5B9A441685E74F1 +85AB50984C9F4D44DDE6E7629965794A45CC1E1C5DAF81FE713BBBBC6BD8F3AA4526E66EE28B +80A7B4B936A28664ED3A3EEB573CF7AF8A96BA941E69B614BBB93053DB4C75953528BBB556E4 +E62003C79733730237E4DBE3928F461A2E647080C5F4CF53CA61A88F22E4267DE825146B26E9 +B1B7100973909AB11BF3857B52EC6249CA6ABF7A47BEFCB6781924622EE2DA8D1E18A300931E +057D6D3A7E2F079F6E4A622A57B47818CE3367F89244CDD7B18E0B2D54C25CD21B62F2A97C27 +9B7D122371F6A499F2FA84840BC6AA7E5A5B1A83C83C03D920B72D9B193715FB49F0B9181E6E +454201ADFDBAA3B87F527DF85FD0D57DD3415A0041C85DCFA69554B5570B90F1A830A1F2B085 +20671C56A5E54930FA038AB1CC632D8E91577183B62BACD73513873A32C6001412500DD26D1A +A2478A2BD242188BD901C515D01EEFA2AA5E99E817B976B6E1470F943D7434404FCE189A8DCB +7C9F4C658B525D4526A4024680574694F9962D10EB0FA3C0F87425A762F28A332F6F1429088B +0EC28B19E8AC83ECBE21115584008A3F825C95E189FF89BD59BF409B503821B2256A1449DE32 +F95B73D1079E83441A5D3358B147A91E5B04ED1F81AF3BDD974BAD9011A7581E4B1C8CF7A519 +B27170E29F5023F3DFFE9FC1B60ADA73C059295683F69124932D1270592AB6BB933D301FA180 +C170D3C355E17B4B71CBC32E497A9E9881C843CC8EE959BD9F9FAB58FB48D4DF7A00E505AAF6 +B6F9AEEF1050AB710B917EC062628B930B5917E1C13AE88CCCB03F3195B6D4FF62392C84D7AA +E574D6DA3DDCE7B9563C3F2D3FF1C6079F8997EDA44F55E9877BCF8D58F1A8FE2BED0EC2F558 +F623040339337523C21300B09EFC53E26526F94946C03AF7111C1B7B5B7804948C56C68DDB41 +B06071A0876E64B80406613E7605718D50908800661BD8E2454355A4242673A55736EF74C890 +751A32778FE41574FB3F44D3397CA6B8F57F788C06316445A521AFC0E8601525B66207A8AFB6 +C0BF651C4BA2272BF12B7903BE1A4472EB345ACF2D0A6F1C5523F58EB6F1C99644F15F545D9C +4E95E508D3992619AAD61FE1EA5820EE6CFED90B2C4DAF35BFCE89908145F120291E15A64A63 +C90FA04993EC295CE32B62820713CEDF34D80CA8BE6D58E53B16287B0EDA0AE3F5697C120EA1 +C368FA9FA54E0832BDE21B592073223A8E171CBE0CA39840CE631B68AB03D351FFB2892A17F5 +8B5B24CC5BD2D80A51567B2D226B935ACC5551ED2577493C76575AA68F66462AADA385046D8C +C160FAEFED718D063265399D34673892083615A09F2B8A89BD906AB2494519324F0B5D5B61F7 +62EACB39D2A4BEB62F9638A2E2BD995715E2EEAF211D3353D3D1149BA95040CFDAFC244AA33D +EE902E98B1425C05804962251157BFBB601E664579659CD7F5FC56F4787DF6BA7104CF3F5759 +03C624C035E6B7F9AC3BC265288211EB85E937BF5E8E158DBDBDAE4D485BD74252583E4F7883 +7A63498BD5AA8CDDF424B53B92E0D8A3EE7F4290E9EDEDB6483CAF58C14E3CC4C4E334F6F6E9 +9F21EE7B4C8B4741A17B5B324A31ECEEB2A5D8CB15DC2C6E61B2D06BB86396B959354E33646A +C0B176F45CA2878534717CCDA49F960DCE632709729B2FE9A67CCC419021EB7FB6A20F1BE203 +E28D24DEAD4CA3576A368D473071868D99D637961309EFAB4D0EF704E2DD5A591533277ED542 +E71E508932857DA9F86AD1CC2A7D0FF89EF99DFFEE4C71CE7B420556961DFF7D173C87A72654 +BF34DA7B3BB427DBC53493C1B8EC39B64F025C046E35194C167A9354AF5F46D2B9D594A859DC +9681850F97FC08A37F56EF329955AD76D51FA95659109E6D67E4306FAEA2812576B602A8588F +B74DBC6E2A61D783A2F8B7594D45B4BBF6B28F679EABDA67CD21EECA68B3B96FF265AA2B4ACE +75F2542A562DA0E61EBACCAC61A5578976580B59A26CE9243ECF481C88F1C3E90821DE1F23CA +7F80485BF1440FCF79B86BC3283F92F0424F683E945F216872E8E7E7FC364B19D14353965B49 +10DA05C20871B43CC0C70774832570F1395916AE5E6D51445EACB3D08561DF288D351A12ADC0 +7C6898D45786AB2362E25E65A308E31F65151ED07CEFEFA1475387ACF68D3E02D75C25B7EDC4 +F0848F009D77003E59777BD547C58756808AF382DF62839A990224FBF42CF18F86F80CCC903B +0EBAAEA435737F85EA3404BCB20A7FA84AB51E8F65B12AB6C6EE1F8794E21EC3ED10B1B4F835 +05F581BA781986FB03124792E5F4467F9CC151D2316A9627C86E57995B0228E9FEF17BEA9D73 +FB58F88DA0B1D590049C2B5456084C241CDE51BEF430B3F1B0087FE7D7F2AEC94396E6A62D3C +C4EC0564CB460F654591DEAB6D0C9AA09E27B09FDAAD0079D409401EDA040A26435E0351CC80 +CA2F1692992917E68E1DBDED2139282041BF55D5611FF5304D0C390548DDED23321E62C3B4F5 +1BDDDC6B832C89B1F9FD0B1E0C1AEEA0A651C717567FB6E6D6E5E832995446A7238461042A0C +C08C1EA75B4C1FC38062AFC441B72171BE76BC3B04E1D179CE454DFF93668EF8CDB1811C0C21 +5430E28B9D4E92D5F1996E9BB66724E1E81A0359E166BF88694D12BF6944BFC30E5BF06D0F86 +AD72A4F372CA460F99E254F7B6EBEE687699E1E4C25F8664FF774F02A5CFE926BDCF3BC044EB +796C18601C3A0B584FBD450FB51033DDA3B3BDF27219517C494923F3520A5E2CAC10ECDE0D05 +72F3CD62E8AB4B242B55FC17EE04102304F2F59DEC48FAEC6044F952A4EF77938C4279C19CA4 +EBDE2BB0BE7E2A9B3DB31412DD171834C1003C9CA2BE2794D6B6F9B3E0D763998811CE212497 +1AD231F46460C10047FDE0BD96E2861950B079BE17D3B789E8389D9D0DF5B667D8401EC872E2 +22247CD67D662CE8868C1CF7905FE257AB980CC24E27237C761966ACE5544F490EA3C9E45ED2 +229D7DFD03DBB00DECF59C716CCB29011E2F1AC87C5C61B1A2CE0AF6053A4B02B7179563CEB1 +411017EAA621AB046B355B6F126CE9AF8A5CD10A347EC2306BC80CACC1EA8D0BF2F5376DDBB7 +DB541C13BA7E8B9701DE60BDC70BC49A6FB5645C0C325900305F3881436FF74F880175940449 +4857CA9A4E3AF1EE2F6753C19D7163F7A0CB84D5124BDEFDE5858E0F55F789898939E1925A0D +598150CF4C8B75445A0099EA0668FCD6E4C2B8D19555B0DC504784B8781F0D490249CA75D7EA +4C8EEC74B6D9BB7D6E51C625B86F8EB3B207344F9C2558D0FC935B366D690C60A5AB5A790C0C +DF990AB4F9DAD07C5092647629A7A03900559F4AEC9D3D4E636C2645E92312459B7525034BFD +96A129ADA67FB022DA92FA7DDC069178ED028A2F301EC9B989F6B71F8D5C7E080127212E2F5E +6D7BCA4E821D3FE6DE74EA18B12EB7C51A69B413AEDE0CE988491CA695C7D8BBFFEA273601D1 +E82978A00C7F74971FFB7F1105BCFFC9B77E161EF3969CF8774B0C060E8B98E889F6AB874F57 +E4903334E656EC57E60966A059B1636E4B42DC7CBD8D20C7826BE1491BFEC2C30133F224D70B +20CA9587E6B1154387822C16A38C6D0B680FB004DDC9273391B9691EE7295FD92EF783CB99D4 +C97B98C5E3E686BD6451250A0530E6503E1EF27FA2F35170C362A56ECB1AC69CF62BCD6B9106 +87EACAE375DD7106E7CAA924C19ED5885F830B4D1660A6B469EF250C1344174169E2F0F6681B +C0F3EF69390985D83828FEEED2996CA586E10296CE26A4E1FD0C6C9D3C884BE468AE5010EF08 +D1EFAFD27648DDA12C05C983DB51F4FC23E314B4D404803364608FDEC3743859786D5B85700D +EDF918EF085E14DD0FE250C6E4A1F2F2E8D0ECC21206BB80B7E461DB009AA3C82AE44C3A3733 +026BB072FB2C65E407BE58AE0CA6BDFC249520B173612F1D945172968E8679CD102F0CE7C650 +74A99F9654A9626E156C470460104C978CF36B25A54A940BD5AE248EAD8C0323A739695FFA26 +5B8B8BF3A39487DB90D3E261569ECC2EEFB7B6B0ADCB1731024A5192127E56D05165BA3B7450 +134835CEF2828C0D10A24ED207B6333A96AD20CBD04DD5C7B2B3E4C94830361C819E49BEADF6 +60785B8FCB35C28DEC43365FEA8E369934B8ABE96A95661F51C5DFEAEDFD98057DDA59DF7123 +1E4A5E4F1019C1671706B6A3779D76006D9CCA30E9F13936B2FE963B606D07AED1AAF81EF454 +0E579EAD134862C30563D081F110CBB10AD1321D60D4F1FB570C66BA8591D8B99016E83DFEBD +4781515809231780EE80B36DF09D778AF18767637093A0A31336C8EF4BDF2A7C03E55E19CFB6 +E66AD4A318F695F2B0A9BB970BEA5938060A13B56F7799058BD4AAC6417E96A34888606CD4B9 +BD7CC1EFD67FB672513C3A7FD61B237178BD2AFB0F111723F35B6E2C376C4DD10D7F89D4C5CC +DF5BDEC342F0F6D6585B6E3880A91B0D01F56A8CA6470A21648D9F06AF9B04CA83D6296AE76B +EC4B00CF9C0F4E19EE168719C7BD41B1E05022BDD5C724CB802335F9F0DFFAB25A4E52E70E7E +763EC73EAEE61C817D9E6F8ADCE322C1CCD0BE398D89A0A7464AE3AF7B6C0F8F856AB33A1060 +08B3A36C555F2853FFBA9F364A525070DDD39D5DB1F4F16BCCB0D4103A0EA3BA3D2BF859422E +93ABBCA91113556262BCDA0274E62FED8E2FBEA7E599E559E67599D56200C94ECF094130FC8C +7151200A252304CE4C937B973667180588353E6B65FDB61A16F22B2A3FA18915260512A549AA +C7760A44DEB1D1E5DF5650DCA5BA87E18E4F07C03CA34C62437D306583D73CC3EACACCD6A74B +A3FE55B3C07C499446B67206BCB7BA85BD9A4913F440E31B670A8B3EAD0D2BB913F187E533B9 +C8735929C2205AECA74E5DE743D4AAAE06154D1DF0103E0A79EE629F4EEC2B71F11EE71DCB66 +A001872D038F762C908E58EEA1772AEC3CD1AD2DFF4AD5FDE87F63EBD8D066CF54ED5E3235C0 +73E34AE6DF447F4A817B63F17AA65921B35ED94C2609A5C4D538D4ED081D20C3E04ED66D3250 +82CE64A7A8FAF9624F3EA0CD030D70F5732D4C0E29FF5FD9870CD50A62A4E6DA7986E5F06FF3 +5C1FB76922709F4BF247222B30CC6B0BB58D683AEB91505FAA80E7611940D7AED32A610FE0C9 +2773964FF9F92F389CE1899E7CE12E67FD65C30E3CC09A722327A7A7082CECCB566FE2EB3DD8 +8426FB226AFA2A50CB5322E66DFFFFF471456AC1412FC19DE9EDB28837D638BC0C253BC270F1 +446580262393B6EFDEB28A5E8578CA1454259959940CA856FA16504648A0462A59235F808BFB +FD39DDAFA09A316267E1B0C145A4A03C9ADC54F526BB63177DBA91B8A451CF78F9B3DB6B7ACB +32CA6E4A418631DAB624A248F2B3FB6CF0F297A7ACF49EC1772F01D9CC39209CFA46CE35FF16 +B533E61075C33F9F42FF4C40D59952E24C21545DD99DB567D5C358C9CF85D411B01EC2C740E4 +15557B8979B1EB0A415A24425E1289308A60706034F3166F8810F49CB3C8DDA06F5850B56960 +8DE1EE8452D9A30FBD04EFC19C8635B0769DBBCA234ED5CBEA0C98434FAE3938D22B8E6287DD +736652D031BEC31E7BC52EB8BC75FDDD1946936E10DD3DA40F4C615A21E1BCC93E0DACF4875E +9FBCBB1537CEFD9F6B9653D91168B7CC3B746B605FF7BBEC53FD322AF0C9804DBA7F4A53E08D +6C4810474C7069F0B671CC8F36BB233169651ABBCD4530CB79AA1314C823DD655DAC47235AB9 +6A815E58081E32B98A6F0FF013639CBEC60108972EE9A686562A20EB188B777CD77F4469A676 +906BA4CA73F6F02616F1D45745A471E7A5BA2795209E8324365905B5CF7EE61D3E53AE1CB5E5 +3F46EF208122DFAC4A80334762A700EE46CCFF8F49D5A5E5FEA39285131E7CF056F73EC3E19F +FB55CF4409047497982E17E0DF2415DDA5F458D34D1C7F5DC02849A069C6F84F2CD91EDE1904 +9B5C25EAD8BAB0C9C9843DA6DD24829549A7DE70958048F037C56C949E24FC737582B9EB177E +66D5000573977AB7C5A9B43B76C8D65486384E8F0F5D60A604BEF0EFF30EFE8E7C9856934C34 +5B396B9DF21AB34CBC982DDFAE5C433F9D5D1004E5B7F82ABDA6EDB5FD0F236A17293DDA8020 +69696E789C0081A4D8AF4214D05B7F63607CF0ECEA630E30CB9F7352368FEE8D04803A6827D7 +3B260DF18DDAB0BA5AB0B9129CA7D204C64B6F1D9D23CA41DFBE939C313AE7499B50D24BD711 +DAC556290CA09320CF563BC402453D3F4DFFD6A7C5F3D54C1025A4222F29B2F87DC9D9B0A60C +52167BE7CDDC6C7EA9986211DE163D566B8D4EC6AB2FF906126552310B152803F04E9793DA45 +87B0A5296193DBFC840AB53EEBD3C4E7C204AE174D4A0956E731BC742C55F2D486A3EDC9B23B +D61F3FD30E78D7EE348A8FCD1FA9C1F47891F67F1913B6986F53183665D9FD6150BF01F9F3DA +D20D1DAEBDBEA79317E580C8710F8AF667C2130B69C69861A4C3DD3EB0F87EB8CAB703B6A4C6 +5D01F872F7BE20ADB5303CD0D839FB9ABBA30A9E09D504E360902F865D76C3F7BA7D4F8B0AE4 +087F33DEDCED0D95EFF149721FFAFC446056549D3C136DD045E949E25F10F274FF02DC0B5D80 +D0825E8C4F13D9AC797F9040B7DEC0E8B841F9F33D73E41DC08FFBA8919951A77F12E6974970 +EB3896533C69E3AA9190BBD7617B0874E9A7ED6688E13D344B5B3F2A805F8FCB0F3B092C8336 +D31123736A3330FB8155D3C454BCD658FEAFE642F6F312901286310E4C81D9D739DF8836E14E +DF255DB0ECB7D8534B70854DB25EE45D495746B44BB8012BCCAF8C53DA5DA610779DE56FAF0E +6E8324E5477F643D72D9D554B213D6AE9FAD4557F00783EBD5BC945C595C9D3BDB552E3D5495 +B799C5ECCF5CD7D69B20BFCDF89A92AEDA439069A5CC0431CF1E2C369CE03BB374617E2F3CA9 +EB52B4AB5A7876849574C3A84B63B4053E000C9CD2CA596DB9D4A81FF225461A812A2351488C +0893C12431FF2740DAF6673BD1149EDFAE413FCEAE47BABC858F2017A5661AD726E0285AADE3 +0FB064ED1C8DB6CAFE5610E6D555F6618F103F00F0FB73F1A8B43E92840BD29870227E7777A2 +B8C5516B4205E241154DEBE166295A7B22A2CFF2DE5183656F6C1ACB51B108F7C8B7AC667687 +D3EE4AB64AA6E01BDB38669BF5235DFA61AD2921BA5B05E16EACD389622F0C6C0473FD939C16 +D8514CA4A9D64F3E1772EDA127E5919B915C4BE4024BBE6C06E9B8272D4AEC868758F2C9FDF3 +704C77BCEE0D21C5589109BF76F26DAB3794D869E6BE3262D1AFBA823DA6DDE55499B648A291 +14BEB69F8B5986122D08245B9F2D2C945587EDC363BE7582841257E08B67AF556110BC1BDA7D +22AE635A7FDE5EADD54650EE2D2F3EB9248A09B6A54BFD2728ECD18DDA85E795B7662956120E +B39D125A5D339CC9004D438A33C4F80529F3A8DAAF414791D60DA97A940928C775A20AA2DCB1 +D31421B631CE7B3A778D93E46774BB9F4BA4277BB4046B3D5FCFE77C69854BFD9FCF8CA627ED +64658353BE4B83561E32A350F58A7D701607463C9CF1A0352BF91A137E5395425324A0B90F98 +A6CC726AE2BA3099FB23744C0BB0B11CBB50D91F72304BEBC10E869B81C6DB2C6D92AB98F347 +603CCB45AC2225592CEA5B55ADE3E181AC6CABF0CE92DEC7B07D31CF739F83E03961AE60F1E0 +59EC4B154FAC3E5FA15B6C192C55D7B6A3523D215257E0A81344C36CC2BBA805E8D974C4BA4F +09CEECC3AC94BF3611A6C35605278C2AFA08384521CC92ECD983F1907139086FE37A7DC1ECA1 +D9A03175281D417B7D06D4CC6DE4C855FF4136782A3B780744DC757EA3AC6C098D2FD248F120 +77C370DDADAED2C7D49488DA021E49C47FDBDE29417AFC8EDD763DF9C4BDE4A52E009368F8C9 +4E663B283D25E7D6D281AD503BF9EA79D00488F45CDAD43BEC7AAED1113B309D7B9E07A22D2E +574E03D11C268D9E5EC5C262B14D45C8693A68A322EF6EA82D1725595B19C0C20BFDBB76A157 +7D1FB8130570A5B96084BA045A49989152702183013F58788466570BB6C77B619F31318DDF05 +BF42F1E33B877C16521CBCBE5A6AE6835B545926C615564777336CF28982A4470A715D53F04E +0CC6E61277E23AE3D3F0894AFCDAB3122549B664DF05957DCE63A3195D78440A9626168FDEFB +6B138ED18036F08DB2D60730579D844723E1B99B0CDF9CABC79CD42DE062D6A7F7B9072C5115 +F6762C859B8C7D16CC18E877ED8BC9A7F65D2765F8F013108405DF82E053D9894A044DD6F1B2 +F77AEC1B9A2B92E2B2C3490B8B4529805E0E89D12420FA82287086DF0C0D5DC713DD39F752DD +BD3F2923B20AD4B09F1527C4A0AE81B459B01371871870E8E7CA38F011709A9C23B4439239AC +1DF13D24457F6F4EDDA615687E3D0EB669832DE8AC749DA8906CE385F2660C49E1B855F9BE74 +13A49C70D1A3CC714A25EE4BC891BD86AE4E04D5B1A0F908DD696061B82E56389248E75980C8 +2F044F4B2F3CA98D388BD446B5373930CBD79FEE7B666637B09D7D0E98AE5D3E23ABB2AD6FFE +FA0F92B75EC08C85F5015960325EE2D69C19AC38754EF034272F1D5A7773DE35DA03E21CEAE1 +B72274686B59741BCA5CDDF444718580EA978AFA10A67EC138281320536139FB16037DA4D39F +C3EB0BA0DC1F33423C5ABEB22E12CD3C1568FBE43A286BA6CACADFA322D558E7496DDEBACBB2 +1F756272B084B46F4DBAACB8B9286461F83592A8127BDEF9DC2130D8699524E4D9E49CB9F895 +612830D9E074BBD57B01BFAE6C63EA31E1CEB5374BF22CC2E6D6690728AC6A5F0CBC8D237BF4 +8EFDAC1864AE294331EAFA4D9B93667C0D51CCA8F49E4E3B98604E553CD2AE041186F1EF8230 +6C9DDB5AA22C27710231B9E5E7E9B0B5345AB6055D9139E7855677B3BC578CE91C6D447D34A5 +B5159B3075902BCA83603817F5E43A4DC27FC131621AE36CB658F747FCD6135404A02A70033A +A7039A3E1CD564D5682F520512F97976B1697CD90C773C790FBD623C56DFAEC71847BB3E9ECA +6BC6A6B242E3E4D57EB6812E1BCC3EA9433180C1995055EB96D26B5C010123C6FAB164D5BBE4 +100032081721F56AA94D9E44F627118AD292E7B9D6C732143B779F464DA5B5586E66776818F9 +0CD1C2BFFF2DB52139A169CBFBE88A25EA3A52ECBE7677B2DB64A725251327BDEDBA3DD6FA39 +F51AF87370B521E379F2424414A02CB09394D821533629C867BC946D81B7A379814049D93E96 +8355582814A06F8BD70B03904595C9CE37DD16D2CE7EACE8F31159C7A21547D1EB67A0A9A0D7 +E666FC627A281472E3614F4DC0C670173EE4881A517E8FA359B8410A967D827928F8509B75D1 +6464EDF26C4540B56506B2DAD01C255C20D3371E688100A609CD64207A2D0E1E3417A6DAEF7A +382E317BDAAB825CC7CF4972A92B7F213F5ABD0E3ACAC93C4FFB524754BBE546C8592E6197C2 +2F3E528C2F438EE1B7ADF77D738CBD1372DE464E4197A25E055DE19611A7995DFC4272B97344 +CE6FFDB7386CE6FDA13B0B64B3B8B6C40F65CE46140994B0C065DC930F053E851670CED8F18A +4BD9EC7811ACFF197A0E2E63B4B028C3EF4EFCF7455F3093D9D799C92E5126108D7AE72730B5 +AED74F1292F99D64F3EDABF2214C295A7B44D1DF6CE2B3627E90FA6C64D109D7DCF35EC13437 +E5032E96420F018CE17122507C98437127CEDFC2C1CF454061204F4F4071CD71E7474A9F133C +09B40618A5D199CFEAFAE8ED5703DAE0D677329885A2AD72A3C702C46C78FEA5D08F57FE74DB +515B2481982B62444AF01819FBECEF784D5634B3938A70D93F8D90539650C3E789DFE2C41DEF +0A9738930A29522DD3AADAFEF619AE21F10819F39862085B48EFC43E49C7A38C1F970E1F6E54 +13585C3BA182014CF26BF98033F41246B520AF7243C6AFA317221DBE5484030AA40EE245C678 +7913C637B39E2576A751E4111888A16A954E18CB3AA1D745E3EE5E429F3E58F7DFDD27B5F036 +21E3408568E2B4380C774B292E76349FA62270564B08DD37BFC5962A18F732E26D7C0BA75B25 +6E82EF87ADC08DE2A8149A05ED5D1D4C46BB1A1D2ED08E2549BB36DDCAA3B8072F52021DB35F +1F5C56B591ABA25A8E032C825CA931ADC325A3AA30936776D642B4C2140CEFF26793F54559E9 +9494016EF32D325023B6496360796DA2B5D34923A19B1743CE26CE14842B0C360BB085C666C4 +37D7B1DE2C66F2BBF448E54D71B29BE19108CE3E6FAF62DA520D4D606C9D4E47AA2992A253C2 +C53418BE69F9EA5E9EC420CF536C1B330785860DCD75E307661674F89F489BB8B35746E759DF +287B7783562E88C21F77144994D57A3EA6E7166055D227061DF6CD2D0D66310CFE1058B8EEE2 +44979F4DC484872DED26F63224624CE5EE601639EB125AB391EA23C60286BB11C8A8E7922BE2 +229CF4C84BB66C4F70397FCFC240A452E5EDA07A2169FEFA3A3407B05CF375281952212FDFB6 +BFAD4AF6A334EE01F4A2DFC895084C724A854B1CF434802358262311955A53EED38943662CB0 +9085B9BE26AC158EBFF978632F746188967E408DDCA896AEB570C334AE8B05041B10E84C6355 +70040FDA0364433A7006622CAA6F73E2B56B5C6E01250CADE18C0E6D8A8142C51C53B83432A5 +41A2C0AF834EA0DA13C1DD1E1DFAB7D7E9830864645F9EBA0A63903EB781D74C585486F2565C +AAE9064CD82A1BCB7347E01D5564125E21920D0F10F48EE5CBD8B99059031A681EF2EC9B8A9F +5277A3D70E43ED1A4B3D4D9BAABECD4695F31EBAB45F94DB70082E5F9CEB1ECDC8B9AF80C7E1 +FC7AF8A29227D0D6F2FE64D19BAE164489AB90B3AE0393379703F786CE3032197DEFD596E852 +E37599E0848DB4EFD3D2519F74794D87D9B2B505CCBAD4EA4D1FC1B3AE3680A6F412CD05156E +27F8786CA614B13CD700E42DA87F0C83878CAE51453127D4993663D33205454A1A4B98E6ED0C +88727543F9C2F7F0C8D4A3AB7269DBD1CE198CCA6FC85A4E116C9CA5721CF4D1F2FCF087CEA7 +0CA873303C229725472A13C69F07D3B7B8E9F75BF292886F97F942A4C3CBA8BFAAFEA93BE2F4 +F6B4092D054337749B5DD799B864012115367D03638ED38A2343DE66AA0EE9DE59F50533EE50 +C3891C786F31E02E1D4ED4BA78160598571479DAA9B1C6FA0943F149D7CE98F2F1B7090D968B +D07F43ADAF95D2387BA778E616F7579799666C118391166F6849214BD7EA96B4B348A0BFC89D +E29081E6282024CF14E65B2068CC4034ECF3F1500A3D12B404B4666DCFF9001045377D496B40 +81833D019C5DAAE5B70334C32AAB76DDAAF3C28CB24E3E5679D041DBC8BFEF4FFAF857C1D30E +A844C451203CCC6B83A578EE516EB034F6702A56E7F0D8BB250382128CB18134075CF0E2D0C9 +C001BA712072756EF8005BCFD0BEC8FED3A19847932646E2224D8A0E0DB374D249CD7C721401 +872C1F4E080B24F9812AD6202AE7C01099B94251475E4E72CD94FEACF8F2C05F802C2AFE1E18 +9CC6E3F820F1CE7EB71FFCE8F39F8F8779DDB132DD1DEBEF118A028AA461CA8B1C980CAB55E9 +B5B08600619FEA31BD21B39C408C65074E88218D9961AE5B4F6B9117B7D79A07B2920BF4CB08 +9B79EF0EB3C3E8BEF60D145D6FD4578C5725BC62ED88AE910B0A01076C2C1F26A84AF354EBEC +757CCDF4EEB689FE9F583FA602D33635FBFFD71F675F7660B47068921A2AC1F738028E9EFB86 +74F0B608620F1E170030CE98E60BAADAA5F372F738EB79638A14B6979D5B6214CBD633BDFE79 +191473E225C2EABECB46E215E4BAC46155B03CBF04FB752CE4B1E4349CF0B4ABF66A37E3D573 +F17361FCCF2CB9CBC0F732D0F4390F127BE3ADF48424A7A9E96B7BDD6F98630789C192059628 +E6C2B38BB5B056E39D6171B040DD48970D4D0B9804FECE457684C2A9A9431C8DDEC6988268E8 +34399C23593D2C240C8BBAB5C4DF9F08F1DAEA802AF740BD9C76586108F08971E376F751F996 +949F5CB72802C1FAFE02C2DF4974FADCE64928153B744A64B4452EBB9B9A2348A1CBECFE6B84 +B93FD6AEF4ABAF2171F4D6EB48252B3F8E6EBD2BC8174A690C0AB32547665938A977F42FBDED +BEAE395328C968A64B71C8E246FEBEEEB453619ADFC32953A3D67AB96DEF881CD61817333AC6 +CA210B28FF72EDD8661612C65BD9AA5458BA2074EBB6CD56E91660A61FBE441262A06939BDC1 +3194C2BAD3C58DCBACC37C631382397ABE59A65A5EA1F6822D620D350B92E336FB47140DD2E3 +C541B49DFAC99E611405A22B7D07E8CDEF572E6FAB1C8EB08158B91CE6E92A7E7080F808B7DF +41AD8F37DCCC5210AAE0FBBDBA98EE418B5D27420E8DDD4C9626CF636575EE9286703101E7C8 +C623B25BCF0317FD7C387D2136A46861079C882D145E07BF71DEA2283D5731D54037F67D9283 +47F5478A359294DA0B939311ACCF3281977ECE5969B47080EC6D75301B19195D25732BBF2808 +02ACD1855674EF6B113E3068F2068F00C8B08E91F5B532A74CC5D4DC43AE172D563C59EC2037 +FC7615605894A4E03505C0536ACDEDC8BE87E08D66FE7E9D3A6FC94C2DAD93AF556DE625E1F8 +105BE9AFAC03E746312377F3EAB2E4BB17CF1B8FB6D2D49845076AD1D5A9217F9ECF878E6866 +031032E5188C0BFC35F33F909ACC9325A26B8750DDEDA979C97F900474BDFF0EAC7759D37E97 +BD543C483BFF99A60F9825B3457D6BF82FCA933F06CE9C9220EB1CCA8A900B53B517B173C5EF +5EA99AA9225B3E01EA21AEA69F7BE72B4EBCF2C3EC3B6D61CF4A501796D1388678143EF742D9 +54AFAD3860F22C0569E8A4BE6F0BD45A4C879A0550211790C41EBFBCC9462E4D213FD78C197C +FD8F659C44C8EB6BAFCEA9C5903571BDF3646168D9270F5F1AB64DC784EB4CD8E07DBDED7B3E +84B86DDFE93BFB3B82EC6946386260AE11EBE75DBD21DDDB7BFA3DA078B9DB7F567C06D60A2D +2391F6BF76A67C05D9415B466E85173D26DF9EB2948CD8F98FE04F9B3DFB8F71B194BD557B1D +BFDBFC9B173A45781F83CE26E83A549EE7703EF0AC3AD8B42C0797FD058B2BD0FB2E8FF711B4 +7BE22F9D335E51BA6B19D01413B3C312C25336FC2291B587763D07D11627D11525F2E71F6FE8 +04C072D71EB2647E6596A82569560AFE29154E057D2B0CB711BB79998372896202516017F8CB +FFB400EB746A5143409423530DEF5671C707348174E01061AFD0FE88F2DC43E9C1BFEE8B9CCB +D66485EEA6E2879211963147A944B7667AC8345CB64815F5CC670B078FEBE341A485B0621966 +57C6E8947AD51524C38E2A2DF6A1D22D4CC10625E9B3A4508F8E783A415EF6C3790A0EF96D13 +B4FA31783B5A44AF0DB56F0D92462DBFBD8F088B87E7B42538159BDC9E8772C31B80DF45329B +EF10C171E804474F027DE84C2D120765EA94C9B373EA8272496A82155EAFEB4C0D83B0CE1113 +D64B375A59E2A224D595F1FEE7AF7A6076C08282F501ECB43D63CF625FFFABC6DA445D19A5F8 +50A5AB81C4E19AFD25B0E7FBF54199F246BAF2AB6E4BC5A0387071AB599045DAC334501EA44E +46655AC4AC793D5BF9B235DBE7477D1E415B2054DD67916D36F750BA46A4BA5D390099A49856 +B829D3F5A8F609CBAD2462789B603F0580B3442888C9A7C62395E57F08159F27EB8AE38484F7 +1D322863489F7CF4B3F87B067C86DCE76BEC251A9BE14CCC178DF387F542A7ECFCAE05653FB2 +89C3F34027767D2578E5F70A1676AD4EDF0D494C3993E7FB11B0158CE511515FF16919115F86 +332ABAC9B4551CEBD687CB1CCFDFCBD8C81206937376D17BA8B18574E14E393D39084762F438 +30C2C79E48E828CF452FA1B89D62D4E12E4B08DFAA8641C4B82E0C75F9FCF10F46BC176C0FA9 +F8D5097BCFE96B3067156F4AC5810A0A9E1DC08D2B417A33CE5884A714B8AC8A7278FA32F3E0 +7AC4F2DE5F36D58D2081B75BE176957A0294698194AA7A406FCE70099B91818884F21E1720BB +6D6F83AB2156B8D3F41750081D31B1E7CCEE84A3170CF0AD06FCE38A20B667263F6251273CB3 +2B10B84D443055704448F06EE3C001028F4194AE6BEBA97AC73AD151A8B525D25B086A6BE0C4 +F1DD96F1A4BC239206E3960AA349A8C62FFCE176B6D65F18BF33B24733988AD2008CAC875B35 +42A982F38360D20F141CC87F121295323215085A370FFFB6F00C6DA1A73B13A70EB674E5ED53 +476C31C2F93945C7673EE0728119833589929200625DB81CBA1C3A9B3B0A4C62738BF7C4E5CF +E3A46611AB144F88BDFC930B55DFEB1B416F42635297408C4C6E06D66FCE2F87D521E721B933 +336AA3AC182E1717261E84B4A35D387DF89D81D67AB12E50281BBE365E698BDE57C261E29935 +58BAA52606EC7835BF4ACFCB4F3C90BFB9F256487DB1C4B697B34109A8CAC753EAB10534B97A +FF0BD0C323FAA90B883236975C362AA462EF02D42EA35E0CB931A092DF0F2BD2920F2348B63B +F114A9A41A78C6CC9BE237C04433DB6D1A970A4F163055526E3A35D8D6E9EBACDEB740FD4955 +ABD561A77BFEBF79FE10088953D3AD0EBAE680E79E256FD52A6468AA897D0ECE5FC88330DBE5 +28D318D7E53DECD8426051496D02EA2348512E86ACA54037E016EA60F00F207CE2572D42F15A +DB84BFDFEFB4E50B7901D05B76FF706D578FA10D420A619D7582BC15806BE9103F8833307F94 +F3348CBEEC58C69EF3743A51EEC6C3611ED38BD64890038E98704A841BE3CBAA1AFAD86C1D2E +E2A82011FBE2E94C3361CE13D4AA5E53E7B6D4C223FB9DF6D760EF0B1BD8C8E559000FB92D94 +4B0027357F85AB16375399CAD7960D31BFA9AF6D72D8215A5058494A8F79E6F5867225CF4CDF +1B0D2EA4A22FD9E00F4040461F85EBEC0D9CF813FFC508AAC93DEB66DA0335045F683925E4FD +CD7C7D794A409C0E7C3AA806D377EFB85E14A533E218CDDC1C4971129DA4B948B822078D216F +ABEAB2941728A657C3987A38A0251CBED8A2C1D1D48BB98916D071809860B096DA0378014C0B +48BB14397DCF452B1C830FD25CB8DDB68AC03A6689CE306867FA045A899C853989EE2B6829A1 +183568D2FCF0ABE950D662DB5AF1578A105A5EB0993E8F4AC0C38AA3112357C5BA4A05487A61 +D677450FB2DF21D8FA47AC91E46B2935633DDB5E0BBBFE6A87C88845C8560410A274BDC06C24 +1B82BF00C40666AAD5D246208F5D870171415994B970A4209AFC0CAB2ED2ED09F44A85B5ACF5 +4EABA2E277481B78B1DAFEC692C0926236FFB4CEA3671CD177FA3B529B513B7DB675D178B8F0 +5A66C9B2B67036D144DE0294EC12E161E2A0AF909CCC4E0A1A182A84E3B4E5C3E1136BFC5AFC +8EBBBF4805E47847CDC005193DA020B70558619557236927EB74DE81164CCA2FBC8181E0811D +95893C46FED13308F1BB57893CE3B29602B14B36BAC9034454F8F5CD300051273FC4661ACB4A +515543FD100133417CC08790A75EE33E9C0B07DB5B6682B03C1A27A82E4CD7FEA22A81ACBA20 +A59D3048AC4AEB241E49F90CD118C9B59819D092B2A906B36ECF289E475A45BBA2E6155A4402 +7B50DF95864ED47BCF43816106D18260AEBC21B29BA9BE1D8F83AB73BFF201939C069FDCD049 +BB309AFEA83AA5070A717538DBE5D4553243A5D1C8F8865ED9005C975A4567D9D686A30AED21 +2B4058D2E0FE38585B6BD0002F1940285E2F34E45CF7A4B0544F0FBC9CCC0AB2183086858E40 +B0007E751EBBAE1778EF1DA3277BE52836162FB7BDAB2731DCD74F81E4C239EDD57AC427FE5A +E4CED707B2F718FB11C4D04727CD5361C55D681EB4E50C336C3B39CA951EB43A7324851CFCF6 +AC875AE40058C9024A1BDDA7A58FD98F5DA10E7729AEFFBDD844839C08E750773FD6DF4ADA22 +46D0AA109FC0436C164CFD9C754C648DABDF8193C54B4A28AA086F795E156E2A517554EAC660 +D5984E1907327F5308940C4E59C3602B4416AE1ED642842566B51E632ED34F310D55C13F9366 +076B4A40A57E43A800CD307D345412B6CA0276044C2FFD6334E616745D8461CB1F297FF8315F +0009FE783DEA1CC5F74F297E0633B83D40F9EFF85B254A8CDEBE2E707F727F38AECEC2FA4C83 +CD2B2AD7F52838314E38C023E8349CF15C5669B7ED30FCFA10239C6772448C89A4B090FF7639 +7F0ED7082BE0D5812E4203E5892BFF7CBCE40A4BA9F30D0EBAB162662BABE7B593F5CFDB5026 +351193D4F6ACC5D19D3F4C14F14737E819E50E89B6A3923AF9EB4B71C11A6E61EF5B731FB43C +A64B95441FC78269D524C2A95EC8B445A026D13734A9C365A1D055D6FCF0BC1D2C3F5F6F1487 +40753685F4040BD4D8859469F9E6EF16312BB68710AD5CD8066EEBC5B3E5CFD1A337BB4C732B +9981EA3FAF0970E4F75F7A15F8C2CE7D9E87A60E3AB593307B759B9343EF63F04FDDC5C75A64 +3C2139A4D15FA745E7AED1E0E343B18FBAEA00562D0559660C70ABC2DDBDA03BEC32FED207AF +AE62E5FA91006629D4DF17678F8BB7EB5F1E566AEBF20B4EEE90CE250B182D87DA7B97DC6704 +EA15C8BA6CC09069F0FD8FDFC295E1F8791B9007C2A65CD579BE51FE803191F13D4403BCC269 +7E6A9114AB0E2B01B5DCFB08B221853B1C5BB7E9A6109DF58F1FBF5F9AF974EA128E8707E4B0 +5BC3B4859655214040B5A5571F80DCC13BAE940925F5A76D269A582905CF0F20681D8A19F66D +58DB65C0326AA29133A280B725FF32CB74097CBCC9D70430C3F490CFBA91AD3D0C50617CE61E +844FF7EC1F678C7650D22A8FF7418B1788436AD44520C4E70AD2E93AE4DB3264E03B00760E68 +CF20902BF5FE5432F49C00646F823C5D4F7BC868B5C5310EC80DB1E4E19115E9B3D1F32BE0E5 +AF425A78EE7D2ACBFEAF4D008512D11484B2613C9AD832F20A314AD3DF773AEAE9A2D666CC1B +F4C2F8197CC85C77A4CF29363D9535CE54A6BC300DB46A213FBA062697E0D879FB67C22F1490 +A122E987FF1ABB3A7D6CFC060E6CF185F6D1A046ABB737BC5ACCD31FDB5F6A5A7B52D3E16FA6 +480E654A3BB7DA34745235415C37A053C5D4C2077F4599D9827170F11E547FC3D36079770CEB +F46479A7D9FDF4901E310A105CC7B4C019A9768DA8689E85269D3C1EC816F5F15A331B1C62A0 +ECA084FBDF0948FA7E248E2C5CB54091DFAD9E3233C1C960675D9486B837EE227FC2CFB37E31 +116E81DF20EBC2942A2EF2B5192F1794E1531967140D99DA01FC39B8DA8CCAA8FE3B5FD7D444 +D088BC2D81D7D293AC9062FEBA3777232BCDA3989F763C5344601900E095F9E4BB22E320E280 +983FF3919244F66EDAF9DF9595AE303B8612030FF910E8EE2BB0E100CE438B298C94640472B6 +33B1ABF465E9E7D5DF5EEE95A4CC9BF192A9101B9377C16AF1FE25DC0FC31BEA21B53F713A99 +C93A665C8841EB1A26C1FECF069CAA1467F290246698DF31F371DBE74F5EE348F566E8DDE0C5 +3006FBB62D9869AE9F5F2E950DD93524826CE22F55A7D5EB96C28E125358C5D36EFC8AD394F6 +40589FAD3B25AA57A998325C0105579A0B48DFAE1674C85EF9F80A5D76ED9859EAA93B96396C +942769C513A887240088E4A99EDB2E7265ED1770F91E6113866853B9B5EF36A5D5D1AEA2FDF0 +C6455595AAA078D079C3FC7CF72AC3B8FE552FF393C54C21024CA6D89FBBECA1B34A79C2067A +3B770510ED790A12D68A104F4CCE4695D9AF48FCADA4D85F041845C0140DB8C185AAB008FDE9 +518A7C1DC7581635FC04325448DFF5A40F0AE20F1462F07313E56F7054B1F67E2ADC185C844E +9FD5CB65400C1479B603F3DFC1C2FD6B46F8DE207FEAD936DCE8C2A454D368031D9EC1042A6C +201B8748BD28C5E861556D558F47FF7980EDD521182F33BCDD9628240E1D4EF9584392FD9B6C +D2EF25325B8BD4BD15984534792A5C4499ADF46011DC9EF1B3FE3AB5EB36F203A41ED170FF38 +23F8B863EF646BD8DD3C8C83ECDCDB9017426FCA248311200FCC3CDF7BB13031FE2602638E4F +792BEE3CE7BEA9C583308B859F9CBF7225504983813DD7F2A4E625D1EB84506582CCE1107BC6 +C63D5080E03BE0C817FA54218818B4894E82EC118E0BAA7346BF6BB5AE5A3B3BBDC37E8C4B8F +FA2086DC22F3C531BBFB518B329F80F8FB4FE169147618FC8ACF78AECABF011F44AF8C88C5AE +C222054031841D9B50226279CBE3105ED2A60310BCBB2182C6B9046E9CFB1367BD91E07D49C8 +FCC43194918ED83825EF9E69527F3C615B3C53DFC5EDF4270791F70777FB5FE1810F43A09C33 +0CC5616950124E596864D74A196AEA306B1D1BD2AD9C288661680D0BB10DD54A83057B0452E2 +9BEBDFA44C53F7E6FFCA98515A72B98CDCADE497D3F5CFD49B68558B333CF3F86483F28B2553 +3F2B40F62B86B5D67440F13EF0D0A33434E71709F2657B6DDC8514B0BEC7682A906E2A2F1363 +4638214FD7CC3971650589CCC0DFFB4DBBA93F4B0100B273E4DD66E0338D12C931B2438C4F9A +F311DEC90F88943A5D20C4D41FC388E68194943A06161E5B8ED0478A5CF044C0F831E4F4011D +1607928D035FD6ADF7D891FE3306E28E7B80D9E3EC8423C942E49D812205B91F663F08CB8CBD +FA2E85B63B6D67786D69989B60B87B4333DAF4CD2585FB66F50EEAE27364D0EA2A8274E3FDE4 +EE5CE4C119A1C409A4FE1D013078F48806379BB255F8D1D400EF3F792D20C48C259571D37EA3 +04D90E51F4E06AC8F265996C9D1846B6CD59B8F33582A4CAEF8207A1F71BAAF3EB21EBEA0C96 +D4B310163CB79B23BFD268AA69F86748FCD32BF6118F0F93F78B3E519D8BBB4B23614084DBED +BDE8B266A923490940FFD4D3C22D31A86FBAB3682AAA194CF2598F83B5BE6B661B5704A026C5 +CFF6A620DF8527A01D27D3EEA645C7262AA3146C19FA9B1B6BF1B0E72AAB0D810835D5BEF4E7 +EF4AE887618C32A85BC90F138C566B6F146AEDA92F9531A9E80120973880D17418EA2D09A829 +5F8B28935FE5E02C07736E368C7650BEDDAAB54F9193282BDAE826B0EB57BC24CC50369EA072 +CE91DCD1E144AF257BF912D67EF4BFC3726F85E95AB4003BDF1CB4F41CCA39C6C3E084658607 +CD79FC8AD6A8471F608B68EB16A294A597AD4ADF04885C2295153C7C19AF72A7FF5C631DA5CE +CC07BE789B7D238F825E6EC773ED2D6045EC52AC0CCFDE14A20C8AC23136C373F8AEDEE55D90 +0B163C2D98A1E18E23C4001D088CD85AB7A7B2BA684303D305D54CEBACFDDEA88326287590F7 +33176559773910852D5A5AEED4D3D90AF81C83B9097C0E01FD1108B9FAA24D183E19F3F5FDB8 +A1E8A5A6B75D93A70282800E1B6747BDE0B6EC9F7116FF6E442C79E656AF92AA2CF4BABB7D45 +4024068C3F026145BC393F5B1D80387908AB8847142F992C0CD9D375D43A673F2A7E92612FCD +50F0C539374B0A1434A636B992B251C4445C58B274A5E40238F93C1B2E0EF3E9D58B763A86DA +94B73CD1297C6FC452B1CF755AF657FE86CBA73368F691F6FE244951BF571049ECD1F1115AE9 +72A33309450F7D5794E81A2CB0A3A46EA86CAB30F82AEE0BE7E2F47EBC69C53378EEA07F8647 +C1FF4861A97B65FC60A1EF0FC8790DD11D2B5CBA0071EB32E6E434D4D200DE11A7AAFBB5CCFE +35C31F469E09733B5B35A532F683F0AC9CC8BA0878A1BAFD714F0CB29A4F752CBE57E100BC12 +49B1379EBEC46D48139A8F791AC6D6DFF3B730914DA3477E90C863E6F689F7000383F8B5F9A7 +73A6E9236BD3E96EE4D96E418E1DD673B9E9169977478CF6B9A92D7CE92B8A3F8B7B38EF2083 +4990F3344FFC213584092CED4B36E393FFE2E3E8BA6EB6CF28FD88E4642D0F1DD4FA308025AC +AEDABBBED5233AAAB36227A25467BB191C372E9B6E0FF34F40281394D04171E230CAFC5A969D +D00C59F3ABB719EC8DFA60CA3019ACB2EFEDA053FCA6B3E0F6DCF9A3C3CED6848CE4B86A75C4 +2076863FC54198036F05EF5A2A9CBBB347FF58DC5992AD769F7073D9CB3321FDA327074827B3 +E97B0484CF3E8CC358BB581BDBBD069B041740E771D111C3A3093293B147DBB0EA89F03B9908 +5A5AB5F5BB1963913615841D5C727226A1EF88824719C3579E921CC89D0B595B55210A4462A4 +6241C43341A3DE3CE542417EAA0028E1A35E417AB4421CF1E7447E0D7936E09CAE9FE4182179 +9B0B233DF02AD6F178EE0BD1222D900F89CAFBB250DD454B12AB53BCDB1C96846F6305053EBD +14FE5E06F88B2333BDFA5F4FE592BF7B471C637526041CD4C1E5E1F8C93B394269CDCA175F6D +FEB1649ECEFA021C99B717AC6EDB244E7DA93D6027E24F75F728AC969D02DA439023E0562E7D +FFE31B62066AB562E8931E99A7CD373914E8BE770540A29450A1C0F1E3878A1A11C20C9CFD08 +044788F28437E406E7086D1F6F8A63D0FCF313EB60A405EFC9CC79B5B74CBE963E56FEFBBACB +288F1A507318F14541D1B74FC5DF2B2F64AD55E2B36BA81852F6070DDB3519968D0ECE2D5590 +12F638D75E3D93F82E1CD81E6B7277CB8446DA9CC141A1CEB32E185591D9A57E83CEF6942057 +AB7ED6289607B048AF4ADC4F4667A5CA980ED732484BFCE097DC26602C7BC059CB60C370F178 +0DC72774EB31D26EF8D747CAE5A27CDEC6E4DE59FD68E8C6812C7EC50271156B4EBCD137CA70 +ECBA832F1FCB7F883B6C188EB77AC84341D3EAF37DDC3EB3D81BCCDB92D720A10C466AFC923A +EED8EA7F974B8CD7B2F427C436D3E86129ABEFEC804F802E5A0612D5C8C829F4750947DDC060 +81D81CBAA47DD9BEDA0D3BAFC51B7D96CD852020D3E817949F226FFDC93256E0FC4FBC8D29CE +79F17F24CE89F476DA9D0D6AC9FFF055B087C9F815C5B62B26DCA11B2CA941422D841515F247 +F15656F68B5445DEA19A2616C101EEFE7AC0243D5E302E3556012DAA567B9491D80D806FFB41 +65CCD7FCE369284FE8496A4246B454E4AC7121A14B894C32E418F9E8D98A425CC72C823AFF77 +71D2C1FE845DF6FA65F7FAA1D92939D2BD4BAA9416DF7AB075BE161F33C309FA99C18C3E67FC +AC44EF8BFE435C8619BBA63AD217D6028D8B13E52C9309AAFAE69726DA87FFDC669FF2D033B4 +471444D757307DBF8F157CCA7C3E85AEF85AB40351158EDF87A67BE741B10F5CEFBD14C32DE3 +B77E2FB99CE8F746A93FCBBB6DA0F96AA3ED846909C0617D604560F6B869A76727259DAC424D +4FB06425C8AD9049F8CEC128484B0009728FB237F3689448B370151CC06FB13A2A95A974EA7A +C942DD011E92DD3F6FF5868B3BF4512CEB823146E4BE2A115403A2E98751A66EF7C726F1D57B +EA408C6D47ADD16A327189F31161E1A8B6737EF07B6E5436D9968111056CAE476856DE1D33FA +D7934F2F8E0A5CADD257A4EA39230B0E8721BA05421B29F1BCCFD02AF60D201A17C4C1436315 +3CE5E724A9231D5D39F152C056D421DED29B8D3148A033B976C669809095B17F03F970B20243 +9C9B5C5A9A470D0B76C50FD1EF6AC28CA30FFBDEE1FA193238B26A7DC65B99A4412D87CCF433 +C376E12F567F1A5AC5702E24988B0B0E8F0A7FC5970FDF81673936207D5DCAF9681001E133F8 +79FAB568736EFEF1EC23BBDBDB16F9989046EF108A0CB15D681CEE2411A4B4443242CAD88E2A +1CECB158A97E4CA98DC137588D64A4A4C24A0FFA7AE602A2219FF2CF955509D5ECA2D3D71897 +C626AC391FEC02F4029977EAD5E4D4995515E39B04BDBFB84D621C357D89DBB10A503C641608 +FDCFDBEA54CBA58831A56261E92B7C760B919BAA085CDA93030EC7D636752F963D06A455CE5D +AF2BD529029987395603A2EF3B272B1D441E888F2C2D50BBBC0674125A5A2E78D64E0D618B6D +31CCBB977AFF5151E0F2158203325D54B945292EC7977E049385F3B49E01B31051F7AA9E4AC9 +78BA2F7C2E1B59B19B46326F2706CCA8A819F7F5B8A6B57AB91B6BE40B396312FBDF99F17517 +4BC36988A26333DBA05F4B034A6EDCED94240CDF61E632AE96DBFE21F8404124B8713D5DFA1C +92C9360A5B490AB26B737ED8985D50A8CCD0A0097FF11C97CD161B41858BFC387A8C8665F09C +F0460B4A7ECD114193245C485060399574ADCA7FEC4C4A53A22A676A92792AC8F264C080914D +331336814AF414ECA4D9E78E54D2667ADEA08BF2BE37663D406EC56E8768A086EAF8613C8079 +26F89BA03F822BE515EC4F78B633A677FC52A42B1116414C50F6ED2049040655451B4FB856FD +4EAF7EB0CE64E4758F9857D8430AC378609383FF3DE31449F3BE10C4FD3540199C9251A87AD4 +F4C95CC15A5F94DAA3BAE07E014EDB0B8517D257D9DA07ED76F178A1E14611C88EFEC355D103 +8C3D366B87882A1F1A56FB274B2FA89746D311B17043FDCB7FA3F6470CB45BD1556F44944361 +57C7D959A96A579F40106719F4BFEFA13AABA22A8D7F6C6719058FA18C5B8061DFE396F0C46B +A47BA07C16505507165C03E2401367F9C8BA1BAEB148118ACFE38383B6A269D928DD2BAAA7D7 +87DA0EC8C9E54F2F09269F691B4892A0EB340018F30D8C9E691C1CC02D6860445D22403A82DD +16A62AFD86C5AC23E5030BD7922D1E283840BDB834C5C574AED1A73A65FC53E42B03AECBAB2C +475BAE87B03E3AD942DF69B039DA26F7B2C0454CBF22BFF8E21AE914D7A4A1D4535D02806107 +0253E0E232F898353CE1343B234B1EB039981747746A134D9B1133FD99F7EB43B85F9A7742C4 +CD67ACE2FC478F1B45350CCF4EE9775512D3233AC9AE0DDA949E606A6B3F7F87E2ED5A98D4EE +AD9BBAE3C6E0680375E46460F6DBAAB3CB0B707871C1967B8575AF4963505E458E1386E6FC36 +4BCAFBF4C29784052FAC4E167565CB23A87F25F2EA436EA6C0F80A35C47587C7530C57627684 +D139705F99B7C14D4F53F45FBBC63B7F40E5C726C510DDDE4D9BE0DFC412BCA6D0EF2F7AFDD6 +C864B8FD8E2C9F29768CDADB110CAC11222740ED4544BA7DDBBD3C68050CC7361E5E45AF3416 +1186200291CB69BA569D5D0550779B030562506041A23ED3C5CDDE4D71B6A905BFAF2B8A3962 +17A0BE31531AC5AE602B32D9886245C574255D62580B28874126B25D948218C75724545D3C14 +5D41E321BB9CDA88A3A04B41A817599FCC549F5E8A5D0FA489A7DBF8C3221B65C6544D6DB731 +727D50F17CB79DA1D98068D84DCC064CF635F114C99142697EF5A92B659CCF6C9783AD2A2AA3 +C4F516FE892AB22F3B9C80D003E012AEDBFB0016C1627A13610DFF036B93BFD9682C6B64B584 +EA3C1DECA22168B4E31FBC16FE86AC4D02B03CF85997E1B1BC51DFC8D1BF03175A4D7E27444D +B7D69589FC45794D5AAAD247CAECD431921785E5574D86DD2D02BB8E09FC1C62EDBD77BBD2A0 +AF5D1929D29A5C490D396F485099653AA4927A4409E0B646543CA7D61B0D276236F3B3C7B026 +E8303D18E1589E954B70F24874285E6B5C461F6596157842A9E3D65C1ABF26AFF2EEA5951CE2 +FAFA401525B1D61A8A0B70EA2731654B8C263858C5335A7C5244DAE8F283106CF5A827DABC06 +576F2C6E27055ECA577CB16E5830AF95CDC6A9DACA96354773517F9643D44B698177978C5B68 +73066927E903CE3835F46E68158A0309D608A8B02D25C71FED9BE503CD128D950B6CF6C8B79A +86667D90393F1B169C7AB5CF1B8F62540A01A8FF4D0EE730E46FA6A61640E48E692131F8CA83 +F71E7D0B39EC9A525E9C2AD0CA3F5149F88D386426D3CCB187932F2446B6C3DF15D2C0878F6A +16ECE915A7D948FA8DA19A6845C5BF5DD21E4583FB5464882E4CEE50D6B970D69617BEBE2D30 +D00FCB4A82E9C2D80AF98784AC62E633458D9B7048047A83C61C42171F28C5E5BB2906944921 +488D3F3FF780945F98E1CBCC81ACA5C458E38D237FE1B348985EDE0E80B892BB174B7446BA63 +F86987ED3BB80F7C8FBC6308F1730325C3493724F3A54F35BE1EF5AC42530A1DCB0A35830DC2 +D42C497A54F9162AF26EFAF400A458522246FF516BC9A3DF1D5EC04A0F42E441DA3E8F811DA3 +0990EC857644934ED64C70676152AF1353340C3C3F54DE04E7DCFAD63E0A9585F3A6197C38DC +9FC95DE0A6BB97C9133C076C5907E92BE797F873DDC02A97AAE5ED76BC008830435139281475 +C728BA0E69B580ED01DC08D23E0754C591B8B2F4723B473B7F6D891C2110054661C7CFEB761B +AB474172F3F9A151ADC29B88E5756895A2480E75F5C06DC8667542812C079C6ED456C6805713 +818F1712E7A3A4B13959448CD511A4BF1C95925237B7F8C09E73E92567DE2E3A688F186F89BA +6204272B5DEE50D6BE2656E7A997C367D1C29D9139A9CF4B1A8AC455B0A2936E8F57E9EBD623 +A7852A64D111E3A476CC83975CDEAD4D006203A4B1588F26280F51FD3E17AF6567B9E0294507 +CE971FF6EBAD076F384D97DF65E2D3E59948E3CD0C6FC2A401371DA54F2993BE3790D18C0EE0 +6AEB09C9E804C0124DC42B833D299DB67DA2B4D5DE4EA1A3D3355766212C2131E3E2801497AC +629688A57A1C0AA26459FC6E5361621C52D49D8D3353FC7DF3D58C1E77C30E5A717DC8E68AE6 +885516D74E1B5004A405629697063D0566B5EB705277095BABA9D3AD5149E74670332D779A43 +6103CD01A311DCEFCA0D8CFCF3B114EA3A835091054B3142A4A34B921BCD5BB545F11D774994 +101EC958C8178DC018A5F7B5836446E2C705A21A4615793A14597F90F58C4F46C4EEC434F9FC +B2341090730B05B84C6FB5698FE3CDAFC83715D0F503064F1C78C70FE2E2C5C6569D3F86C028 +0204B5D77C3A94A0B4EAC790C3FEBFC743055DC69CFDC3A19F2424D67393C3A767009C64AFFB +F2479FC800F316603EF446D77B4F882ED6C4AA8D775619113F97FD04BFA2C5C5D71817366736 +0581F1AAE2E6124E3BEC089226CE74275A1EB699ECE77CEB53C6C4A1647C68D6FE71B2CF8119 +4F82CA145F3241366AE2EBEB87847784EE268BDD0F5F0DEE50DB66B47065BA4028700E9E315D +7FF76019321E45006161093117DA9A7951F34DB22872796EBCDC426DBBD41BFBBCB4F96E0139 +087D19676935FC4D7FE0A5D44FD293F96F64562E2A0F6862E52B08CF83C5016D15600380C245 +EC9E7E6BF05FAE7CD5F084D958CC3722C453A6CF4E31BC4E23AF3F9885103C3C8F8E026F5ADA +B36F6E34FA0C74230D796BF7B406A5A06509D22D57D05816EBA919C9BA46E3FF9BAFF0FD93CF +47625CC414840EB7F898B322FD7253F40838710A867F2C10FC7895B86476D631ABE4F97FAE99 +63021010801D7CD687CD4900A3D1ADAD6370997D1770E17E3E1BB28B9450E3746D270B2D3EC6 +E05C3DF8DB82AD90DAAA6D1BF57E71EFEAC060F22F265B707D2EE62B731905380314EBAB07CB +4F0C85D690BE1B9AD5D32CBC7C6CC5AEEE296639E29A0A4250A15BFC349294258B5410C7C68D +C4533A6AE62C94B032902D42BF6B5179A750591107BD83ED767795BF5C1A56BF7356B26C3B59 +20B6D16F6FC46CBF61313FED419F5D42BE7793F48789B53BE16667D02B016420FD73D1AF7B3F +DAA595FDD0D3CA12C147CBCC1B108CBC2F9BEEA174BCCBE19ED7E6127A4F432F69CCC611DF31 +94AD1A5D28A65449B6ABD954BFF51D753D0A4090F6454DD8FBC876E7A7FF3C8E943106FEEC1D +2FB6CB57806B4E96E23A83DCB672D9B1338753C01FDEF47A135291B573CAE1AB6F1C0EAA0E19 +ACD7792589F7354DBE35AAA82368A08F27158A16502EB1828BF7E8F39ACA4486DDFBDF6002CD +9A2DB2A2B7823DCA9052C1CB254AF7141BB889ADBAD758F1290C77A8CADD8F87043E822C1F7F +161875E4DE79E78F364C805E98432B07F965127DE538C3F56EED26AC5F43C46CD84A52DEF9D6 +32B0A5FC4E3FF4CCD4685B47D792D4E645BBB1F77CC7DF7532712CCE34C52386FB863A878BB4 +07936591320AC8839305228AF3E36638063A52394469B4F46AB0430BB45CC5FC5524BE323E2D +D2566059EC06591908A72F7394D6FECDA4E95CCA417931E0A8676BCFCC79ACD60D9B173F54FD +2690CD8711CF70A7BBBAA211F644F6BB0FC822F59C711B33258FCF9EF0E10B360D68456DB30D +7EB84B739B795FEB8034D5E8123C1F9C0C4FCD5A233067678EC0685FA68458B241E7087D7BD8 +C3C775F3A616FD8F69EAB717CF6CDD04E842450DA047C213924101D86C549E2449F0B1D8C60A +1537B40FA2009017511E8B9158B26BAA9F62ED33FA70D54029BAE885360CDBDEBE41B0A6CE1B +F3232C48BB8B6E61155D149C234A97477493CF7367DE9D3E865286F49B11EF1F548D54EAC209 +FBF0E50B1DC7DD041AFD1E8D053044393C4939930826DCB6C688D5A6A3D2D36D4F6C80B94851 +CFCB42DF4C8E1AD64135B89B427BF69343D45B4BDBAC1FD80E6DA8027F131C4B4DFFC3D88F34 +F4173CBD79FDD6DA598C6E051F92170A3CD72D1E389D83FB181FAB246E92F177AA514BDFC0F6 +8BF4CDBBF62399204BAF083F12F8DFB9C40A7DEAA94CFD8109C22D56479B6881B829CFB908CC +20281424BC8DE6BB59D1DE83DD24286D6C4B9C2B497CFE9F3DE35F106224DFC010381B5EA9FA +E3DDEA7457C6CF3F1D7A1C8EF8D8FDCA5444E6B53D35965B251F0FDCECB4561EBFC37A0D1A29 +A027C42B0679C384FF81ADC4CE01083DC0A22E8D6D9CAAC76AAD3781A45264CF25415F9632A7 +D2DD169A3DD67D046CFBA7B730EE5DB5E3F2AB99EA8301CE349D5E7F554B0453EEE16E7A5A47 +CD114FEB05A35B74D1A9C0EC5F74FB1E35FD0132D5F48E5D96735622339CCB28F2BA8795ACAB +088599E9E5C0C815A1D61412384956D556ADFBA917AC36F91A22B6DAFC8049396F692B743649 +125840CA820DE1A71BE06C3CC2A4B5D1DAD80BF9F9057EE8F5C3A9B2005240B604D867786149 +9C2B7E0F6EEC567B28C0DB3293B9E3F8C801C0F359430F363D449BC01D4D1BADA65736176D58 +DC04287AD8B28A93DE4E4C25A412DF49EEAC5C30F750BCEEB264D0F99D57BD9212CE5087FBB3 +8E4C65FB28057D6489994E84116F39A77D3BC56576BB761C84B3C2CF403677B034B8C1692306 +C1AA270D0EA01ABD26B14A685BFE6C338B3BE4AF5C0349DB22713422C90C6BFD57170F1DA7AA +43856F505ED3E5FBAC25F8FFCADDFCDB432743FCBED8DBE32957F81A1991369A5DAAB8630B9B +408BD6522F929266630C62C50551425FDC6BE738917AADBB53D9C5FBE8377C218816B640AFE8 +D48DE3E3987128A62E17B4756C8D48865036003071F58E9247D376FA94B037A1539371556BCD +F3A6B4180536C41465C5BB93D9CACE6841250325C890BDE1FAB0B37106A680C5E54788F205A4 +3FCDA806ABE81377C52FD364F55880A4A7EF854B5E1F0D312DCF3B24032EB2AC073B187670E9 +592272289C9ED3AAD6BC90D7382E3A80554B57E7D9855E01803A2E8A69689FA918DE2BE2BFCB +C3CC600571C42492F5155FF9CE36DDC1957099D8AC583BF8EC76E9D2781534AD17C753995BF1 +CB348F609E698AC36072AE0FB13510D9964DB58EBA53ACA4B1034284BA27DDF5D23B4A8C8F12 +134D20BB358E2F52264F1D90EC9268A252AA84DA2EA8C3042B9D4851CB107267D8AD60466B88 +CCDBB0E83F0FFFE8A4E891A5DBEEDDC7CD2C93D7F2F402C5B657D437716ED1009DE4CD3F3931 +DE5457AF941EA0A763B5E3D3297AF475370D9DE9EDA9DD9592FB39B41332CE15CAD67EA78A09 +5C1CBAE07D98564EEE4B31B976BACBF3BA9777706EA8E084561BD2982FB50F32818449BC0986 +37322165DBE5C0D55687F495658CC7668D6554B22D625077953B80AA8912D34597200FA64D2E +1318B0AF4AABE080AC6E34B919C4C0D611FB9CFE5F613A2537EACF474EC1520613E4D0436AFD +DC0F1107445405BA0F527EB9293BBB8B8B19B17771BE4369FC52A6A2436DBE9237FDCF95BD64 +35B5C695BA6367690FB893DADBC82C3C8CBC562D9D70CC814CB64FAD5B5D4E269E19EE5A2F88 +79535F556301EF670C31F5AA627C6B9C43F28CCBE996F4B2EA6E22D9B00D0492FEAA50985DA0 +B809E728082C35FF9DBC178E5993E6038E28FDB0CA9A5E02C9DA910BF0FACD796DBD95D86B5B +464861A3D6768431ED7E626877885C19CCB3BBA44AA90546003045321D8EF2AA639DCF52377B +80D18F100680424743880CB75F7ADC7E5AB559CED873EFE5CBAFE7B8D6C803008E8C90BA480D +ED6D4B8B23854E21498427FA1949CC358EC3FA22E15FC6A0B21CC09194AD58D3EBA38E0207FF +83CBE967083C554E1732C94A7EE592DA9ACA59DE193A3FCF88D513B280A2AE7B4D83873B3A21 +0A89F6E611562D201153FD1CFF856CE858CDC1C3BF06B5EBB0FC819C55B71A5391096DFA0445 +1618C17B843B48226189F2D91997A28B371C805E859799A33DF12920CA59A55223545EE6A753 +E9710DC3AD88006B59D74EC96BEEC281188A1F7071877368BDDCA9BDC18348440799C71DB5D8 +C5D60913812FA68D0260B3EE6C8063B7C6751E074BB831F91FD4CAE4F5A7876F02A2338DF1B7 +C182971545EED06625E3007032F98C02E7244E1A233722EBF89617A291F33F15FBDC622737E7 +CF584F53FAC845880D0DBFA38DBCF16ADD36CB3BF38F19008F2D36FADF6A4E0270034D3A3AFD +94F7C466ACEFCC2C1E7C7C1CC67D760D2622838E0960F608E97EA65B5AFA630CAD3A746E1E7D +FE2F60E661BC742859923613999B18720E9081A5A8B8F061635087FBF30BC74CE1F8ADBEFE0E +BCE9FD00684EC5537A0A474BB65EADD944AB5D0B46F67EAD24CEABB41C680B1A5C0CF25D8E38 +A42370ACA00025655BC3AC5FB34979D4487FF16ABB7279B7391F6E965C009C566643A229C77C +B9972C229A6F07BA370243C4B5530DB7F09F9D04FACC915E49A6023C7BDEE02FE8839581ACAC +3028643C2501AB8A8059B9C3A1E48E8A9E89FFB06C7025C247FED7B17403CC52D04FB69EA70D +27820B8A023751C19918CCC043EE50759319E4FBA5260D3AE2D0810843C7F9DE255EC6F83C3F +5E9DCBA11FE4236D1AFF3EF6909041BBC630D0F8B55A0942B0563B3FE9F7B98AED66BC03909A +3C0B593AC3D677466BF55D1E6790763767C8603C5C0A09B5BFF9D37D2A4B927D4A119B3730EF +AC7CCD07416334CE3433F4219B5881ADEF236FB7C0DB9B37DDE87AE27F45544237A6004A9A8E +85211B893B4B74CA8695320A2B1F5B9F74DCA1F36CCE6E0502E4F91E21328029DEB2F3B7C6E1 +1492E6097653D558CD50E4F817B11140F029F793C242FD2CD525075D9B27B25481F536174156 +BC763728F9DBF5DE404B1CFD691531BDD5A0AB5C7A8030888B01CB27D144A49D4D45D6F94B48 +0C3FE2290A45FBC6701BE89DC9F11C3225200EF0898CFC657A1A47074408AE8259260B360D86 +A6335F4E0CF366544FE10F42645DFC80A1090C7ED65770F9B45BA3BF65181DDEEEE16EBF7C33 +F8057336813931FADFB91B626C471259D57B51EEAB22E782EA7F8F3E8600B2355530BE1BDF32 +E146C6B71B9AAEEAD2A604C41692B7B8FE5C918AB45A257E11DDC750A8C01D22F51C5407CA98 +F708CB47A6F461F5E74F12AFF3E783CC8E559821FFBDA7115E7E749BC212E9C6C6EB0EBD3883 +B56AC6401722F72FB7BE674A923D0CCACC8FE9E73B45ED8FB582C68B715827E22E1DEB70F995 +73B4A8150323877B44FF872C27BAE08219E86E4532BD0A2994AF39B1CE6A0102E263A5FFE837 +75E9CD27B115A2AFF6DD1FE68FFAF0BA5F554298FA7C892D566A08B8967E88D8CD5DF8803F8E +822CD54379D5EE4665939394AB950F527A746C07D140932EFCEB43702DB86D4B99283DE5B1C5 +103BBDD82A22006F488D1FF632A66F5F30A10F3CD53FC57A29BE2625E0E17D231B7A123086AC +3F3685D22BB41C04947CFB48654EEA0262CFA7EF951A8B878B25AD1786696A7A3DC4DBE0EFBB +81D6D9BD0B1A3FC4F4507873F7B6736C901EB1FA4709139386BD237F77EA23626ABDAFB0F99E +2E6C5582E3F46F9E810653E63E5277207F901CC47780F981545E8552A319C971E98BEDA1B6D3 +B6620893DBB5E35E3B9793EFDC917410F420D5977F2667F6A20581FACB9782F77754CFF68E1D +026EE55738CEB094B2FCF4A56C27C36A91A245897FBEDA34197BC61DC8B1A390A312E20B31A7 +5282E82C9E73211954CB024E2DDC81DA28F340F8F25827C65646C1C940CEAFBEDB5B572AA190 +3AC3D9716AEE3015CB09BC2F0C2114C842779B548D0A571DCDAB95635E1DE43BB372209C850F +7831436D98744D293984CF880E9892434B9CEDE4823B76978853D41889D815ACD1E0795296AF +3F1A3C10CB20DD1BE4F771756F604CEEADFCC091A39BA398B920B5B5D13C240DAB6D91FDF993 +7D3123BC3321147226679617339066FC8C4F948986114E2B4C98D7A8B09B4AE05E0627A3F52D +1D89A18329CBABA8D571060C4A515706229A48EB35730A89BD527A34BF2116C1B72EBC0905D6 +0AEA23D2E1417BFA09D8F66519193A35E47EFDD11EEDFB31D39F1556E82E5E3169D9342C2ABB +597FFCA432F14E249CA530D1136CB89D77005F9527B9CC2933A867032BA2065B83A868E60CA1 +B5C16F7562F942ACAF8B8B79268AA5F0AF345352B2F6616F42CCC8462317E8B88271A6E631BC +EDAAA250AA42EAE85765843CB73CC6EE4B2AC6548901C8E786AAB81FB6B9D0283AD5C6D86022 +4D7A91712756EEDF978F02A67708EF41BD14D8D7F78E7BFB265720363C0EB446B7D7252A86E7 +C3A6CA8C607D7F56328E1698FED8E8AA0D57AB0FCC970D10D3EF2646CDC8822676D73F3909D0 +834B17B4BB37EE89A5F5D04AD1C994815C94D86B8FC800364801A1A297B54161E1F499F6A244 +9DEFEDF14CCADB5307B0C6136E1CDCF09BF4FC1903C4B13B28C435ADF42DF2EB50863A67370F +8B2E27EE338F31C5053C22C3C03FC0D3203A62595054EB7217930BEA3C4048435C2611D8F18C +AFD925AEE6FAE744893046F233A0F99927AEFD0FB49CE31FEF550AE3AFC5D1BC28DFF150474E +63E8E3AD4B565B26A28106494220E8AD3A9D8C96E445F3FD6CF5ACEBA10D51C2C30B5A1DC73A +5F4F5C54393D0BC2EB50CC845F90941B6236DDCFC50BA7F216E99D920AD65F6D8245B1E08498 +3593F06A433EDEBEBE8CB8B6FA7BA1D61EFD713D01D2D93972624DB759620B4DA3BD18A3F032 +DFB948D0D76F5FF11ED42AE6BF1C0E60C5342AA3EA3A50DCA1B84CF4A71D03B14CC663A06AB9 +FAD87264C1D323D21FA110B36BE4427EF65AECE7A53B9689E900D8EC9F4167C4ADB720E5B787 +78E88701FC2A06D71422DB3798A44DFD426B620F01892DE1D3119002F564A7DC6C1AEBC6054E +FDB5534C33C9BB0069805735098FC987E6BB018ED300AC85DA22DE061EAF36174AEBB3879D3C +6C2F3BB4A38E2A3844F825A2A202DEC2D80DC82EC9B63F361D265F3AC33450C136550E4349AF +0714AFD46143B62BD60BC6AE3AA3220AC0AD7F092A0CA00553DD40EE2F44A853C756F1BD7853 +372B9155A1C992B4F95404487612314CE6B704ED1B93D295258D665B2B9EFF886880678CF7EF +ACA165FEB6C69A4022B85327B3C0BD6CF1940D53B7A141B99EFA005CC5BBD42DC9273D67E589 +DE38FF0D9BC190317E92308004280EC6CA01F67FA2C4750C7DF0D1625728209CB0802465FCAF +F2C6E19C61EF4CFC2748BAE865820D3A1AB0F52834DE5CAC873FD371A8C6E429DFAF3D754D55 +2A1F7D2C479D2003311347E1E6A1D813726D47222F1F1F4A6F211199CCC1CB9A09BAD3431FFA +087724AD0C2059BAFDE4461ADA12770A933090BFAF0FD1AD9D4B7C85ED09A3DD6F1976168518 +0E6FD5B0D832C47D7607207522E07CA5DA3AD266FB5CF0A39CACBEB4E7CC57F76ABEFDDD2FD2 +66EF1A47E713166AA497A1EC184EA51D015D0745F97E507750963D6FFF747EC4F22078361EB0 +B667C2AC17638689E052E1DF51C1305448850F2F44C53A77816B1A1AF9EC35EB48FE5B5386FE +7458F9E981C9B014B16F02D1311791772DCC0285747C1AE3D46EAC3E70AEFB7C0E90CF4FDF3D +B2DF698A188D4733EC28B0A88FBD1ED47BB61B0D0CAFD61FD02A965EA56358BA8C654176724F +A7871DC0EFF4E91F9C579CBBDEDCEE0E9AACC3DD7B8296571F9CEEF41A5C4AB344688AA8F789 +083845C95BA206CC0BF41098F23050FD4A9292CEE158A98D06A64E4C73732EFA4037417BD787 +A7F2914F02A2C664DDEB73E854FAA7A13062F4CC40CFF8D0430B3D7A5D30E38A32473DDD6D0E +C9EFA23485A77859B2E2F04A18577341813F9151A9C9BD39F46E7FBF2C430060824D13F79652 +E9E7FEB6A9B2F7871BBDE79885A1D382F7C17395900697B7DDAA9296B145A50D5D94599C82A4 +0C1EA990534FE9A501C520E6A439641AD2FAE3C91EA148D97A1975675E59EA6936BC2359054C +F7811C28EE56A0ADCA2012D88A23BADD3D5A939D907AE9366C555CD23CA9E17E83D876975527 +C259CDCC0E98F1E800F2A231E28974C1C2B6FDD1AF8C250DE524B0DB557FC2B2D22CB0949E46 +C7C03AFC94F3CA1E14B4AB034FCB87EECA3ECF1BE9D7A11F959E4EB2E69675D70335A0C81998 +1ADE32184B588875786F8CD504580EB54AAD9FC2C7E2E97D47AF0DE112ED63A1E3F180D9CE9F +AC361CF837D7CE8FE974543C8C75D79E1130FCC8163DEAB3C0EB3F33E325A58DF2EB986FA28B +65FE95AF5C8DA0F10A320431D2A09007CF93318F773BD2E03C04E10B846A31F1E12CC1914373 +2487FB99FD03542F3C2A687B97F3500BAC3CCB0E4519AA8BF5AE614F80EBC459860164726028 +57BDF6F216A35F865F89D9637F5570ED23271C6EA15EF1F6C03B58E408C1C3F22F1310BBD78F +098C287E439270B8DBA7D8EDA10C8E5F214C06D1533B042960F95A61987000720C7AF8709069 +A38D57D7397F61C4D10729BB0C6132280AF3F1B5D428EB3EBE9171AD974DB9761F01D8146E49 +482C427A548E1D7682D114C12334F854B002E8B59D700150812547F909FE58C573ECF991DE18 +EFDFBE7F310B3485B9D8333F43AE82A713B8CCED62A9D1246BBEEFEACE8074DE3C7E0E88AF67 +3940A571A95C136265BE83107B220E2F28042CD3A8FB2E47D7629B88610FB13D3330B60202BC +78659D7176A2ECC891E8E1B97C1C76D61495967069DB9C8E42A51BF27E395AF528BF0A275075 +4E94849789D7A54EF3C952018CA57339F27FA57796495E07F1D51730D156D89F7E33C959A71C +DF27BD38F57008961BB37C0E1D742CF754B6965D398C0CF1D18F0C917584B3332859D9310B0A +DCF92344E1E28D45D75FBAAF45FE16D7BD557FE6754F08208B103CBD3A32874BB3BE0BE8AC08 +4480B088301D8F1DE7C8290F36A2BBA637A6BB8D67617C919E97874A3E12751D8F5301598405 +DE7193FA45D0302F11E5F560F33CE41DB692ECEC32C4EEBF45512B979866BAE5B75C70C8251C +493B4A660572955BE825D760372DCC6ED8B3912C2E3DC097464C9B5E142453C38C30C034413D +771DB050DC1BE2F87A9D2E26D19B987E8417581085459FE250BB1CF3A710D9748B680C44EB89 +2A38B9236C5FBF886CCE93468C881494DA206A4C1DC4EC5977BD49B1528F2CFD558F6AD08833 +CFDF249BF7773D96FB08C859C375B588D52F52C8FF9C3B851D667DAA37EE66586DD0F42478F5 +38FAACA250DB56510625BA56359A8B6796CCB3BC77F1F76385CBE7658AE83374D47938A2689F +DB93FE288C858EE4AA180EE9ACA639EB51EF276F08D3F555080565DD8A5C4AFE3E18777682F1 +DE61993055BE7CCDCF7F2C7FFAED8D5A1EAEAEB4023562715D35F296CD10C36F9ECE689CADEB +5A2EBB37579C65285FBA62BAE5EF2DF59A20F41D6D939466E1C59855FFA0847AE8C9596E7231 +C4ADBA2DB549801B9928AF730C4A10CEBD0493F6D75AE52A7D3A1CE194E884B72C907B902A8D +87FAFF2F602092FEA1D382439AF172F4D03E6D423ED4CE82A2DA91F934073763A9464E684772 +7A3C29AE3A3291716B8E9BF4FCCD8EDF4E55D6B9013CEF8B9B05C002E768C95F46B765917375 +0BC1AC014994DDDA3C7D9E8858C47E8812C9B7FEB03B9B300092EEBF6B7A5277EE4C647303DE +D7D8D6C54FCF50BECDFB11DECD1AB61040F6E56C14FFAD0678089D6BCA1B5EBB9D3FF09A6C0E +4EDF2498DD3D4107B38371F2E4C3B4E5F3B7B2AC0F915A89AB9E9F914BAE9A26FE2BC651475E +DB150A73EBDBEB0D25F696968227F3240F42119ABBD26241FD28D7EBA7920AB7BD1D356D4169 +5D5EC0C190E2E2501A70BAC09568870873A47919763D15E0E63FE87BA15DD3640DD779B56CDD +FD0C9F4D9928B0D4CC92D24A56E562AD9908E17BF233385EA0779F8E6C3DA7A7D1518F1B582C +BB6A9B4C59A8733A80893151973EA9BDE8FBC5483B9FA1132E7AD90DA426AB0F671250EC961E +21FBA123FCDE8DE174F2B172A5E2791F43EB02FE8BC731550400E723DB997A33AE7CEDE842FF +A3D4F05FD46747178EBF84494401754977B303B52C713112F5D9CA1DFDC6919292126E5B8C6E +1391D988383EB3FB151526C2C9834707F651F967B7FEF4EBB2B4C1D31546F56D619E9F1B3C5C +5518D06EC55CA8111B0C30F3622946864B70ED98F3EEC10F5609933169BC1E5A0D888FA2E326 +D1C2126217AEDC146D9A0BDF66C49523AB4124848D5FF29F3F76FAE770524E5197B2CDD255A5 +07566E31E2FA1533A55F426F9E805E8A1DF7E1344716BE464CA7CB315F1A88D254AD0EAF6C58 +196C0A02EC8E5C6E6BC7DE8A1C2A2E8C397BF1CB1E42444997E2453D8DE7A79848A98B20F4C3 +ECD7CC083DC3415DFCD9CDBAFD97671DA2D244C4ADB7BFDBB7E9C5D2AC0009D17A090C284CC4 +05CD59399BD4CF94BAABD9FC0E14A85466135FB1ED17080DA3D4C895284FCD7B908F293E2AD5 +76EF26774FA24EF57D89A2CD5310479E36E33C5B9E6DB2C2FB5C0510E4FE9A0508AB7A7769CB +50124CF609BA47E05879931D838FC9BBE7C08E3C4682773A7EEC3D2932B8BC5D6746B0D4D46D +5BCCCCB5CDDBD75BCC5E5F306F568BD2D4DE809046CB77D0061FAF97C170BAEE6F153D1F045A +75E9126DC4F6E5E525190CF860D69405DEB535662310A20395EDA1C026AB2C918CB56935D4E9 +26EFFD4573EF67A66DFD93862FB0733DE72BA2D0AA48117BE3CA76682602C7AB142245A647DE +147D8A57AFD97B5475FD13A4E765D00DD60DC9AD322C6C54DC1DBAA8F8DE600D7AAA3C48131E +7FEECD744CC532576B62DA2ED0E7E81F08E17E5DB3768AB76F53061996C64225E6ABFAB54EF5 +7166EA5A078A786853B601D9290DD3ED270C35DF866A71CA5D4AD43A15A4A9DDE12B3B48E51B +0C78BE950F4268B34AE72477CD9DF89D9860B013DB8B690B64F2C71F27CDF3ADC7C6CBDD314E +2CBD3052C80C6B146DDACF17C7BC939D5C9204A43947B4C5468A9CD6B63E7E9498978077687F +195B2E14F2E069A499AEB365D90F6A176271BC97DE026CFC5601702C4FA958518D6A55F891B8 +2E416B619533195E0E1D15A6F8DEB9EBEFF1CFD84C954E6AD74EE2D802DAC4220B35056327B3 +D016AA07B35034DCBA93D96FD59783AA1D5508627AE138744C0912DE822184213776F3AAF02C +8C6F6A2C8D7B9FD865F6ACEBEEAA082F9D18A3A08BA38B851B4E66B52E2D94189CA460B3DACB +FE9C1CEFDEF52B6873D36900A76F82127869DBBE4D5149AC9D6CA0B593C3B5D40FA439EF78F8 +2C7EC7C7BEE3676732805A4DD915E6986585790626DE31A41D66D1DB95DC4B53B254D452F758 +4DE5B750131A954629694A0BA3DC669B88967F61ECFA09653D2665BFBD2460E8A12C7D509FED +FB0F61AB29BD66A76A5633F21A8A9800187A2B0F89975837D421D3E539FD0EFB39E30D4B2A62 +343B8F599544937613DB1AC5F9AEFE33E7255D9BD6777731A42A6EAD1BCD05FFB0A30E870A50 +D72B7E1AF90B9DA6CA9A7F01604704E8573D5E28C01DBC605F171A79553DB4897F3E1A1923EE +76703C93B67D968812CC47C15FFD8E7E6E6A1F7EC3A1B0779AB9CCAA94040C280A3AD56E86E3 +76986E0B1DF20C872F702BBA10324BA72B58203F865CC6C84537AC97DCB20725312D4CFD12A9 +7F557CF42C7CF9089EE60A661D50311EECFEAF15888F3079622EE5F7B01C2EFFBC917A809428 +1B33D03A3924C062CE4193872D4C30E95191A901E0A7FC61608A190610DC13FEB8039934A2AF +DCEE59AB615551A45E312AD0D84CB99EFD6EB8603DD19C75E12C9EFDB5D770FF27048EDA35A7 +C9DD0D18ADE1BC87086EBD584463A80C397C184299DD23C93E61A6FDFC5013233D50E1DA581F +BD9955DE2FC2F431C366C51F5CA7F46D08BC6DDA5395720AB78BC765F27E8FEC9ED7DCE7589E +B31EE237FF9D6CEEE5278F592205C209BDEFA3D6860F52317DA5EC629F70069E24083CAB894E +EC5CD3310E1D568EE391A045DC8CA11994773B7373D189CE66653EBADAC714E6DBE72606B9ED +930442C8C68EEBF444724E01506D87B44E010C3973736F3C9BBEA07E97337C0EE4D9FC2A4656 +D3C2DD059D73A178390F2551BB8B293A22B47333DF03B52269CD6B0EC08063FA9409229A4FBA +EC048C89D75CDD365A3F069B7883506212C2E0EB035928BABAECB5524315BC723822813826F2 +4A349646262ACCF16A7D54E9A5586C0625B4F952174A6270D05CDAA5F791EE0C5AA5C138AB97 +22A7ADF729F45D12CE352CEA568A8BB15E87C886E0851572A41C9622BEC6406768EA666F7F5F +33031CF6291D04B501A1EA68E54420DE675D073F41529100941EDDF1DBF66B453A4827DE4217 +0A76B431892A2605D292A0E9E5136C346B2B0D1CB6A8626A92AECFF04A55B0290E8FC230DC35 +65A189853FEBD77AAC5E32F95C61689AF2D0B53E1A44336BBCFAA0EAF647348A885A8C7020FE +72F56DF749767FED6534E9B41E84D0D84D0E0B99B7898AB7AD380A814EBB96A4FC4378DD1367 +D1FCA5F65960E59D6BA4D6249A1E20F3E691CAC0388E873654BD821635C538B6609912627D1E +4CE993D39957191D489BED9C39DC3F9DD5A09DB1DFE2D2415BD50E347E6B3AAE64A9496579FE +2A6A6B8EFD4679FB2FC24868831AAD2D6A65BB5D731DF9B8BA59436DE423E17363D9D8277504 +BB558B7F30CE9D61F3A881A5B82CFBE810CC2D0B86A2B9144D6EF1109ED1B6681DF81DA27F27 +3D517B4F35C0A350BBE586781C6324F67EC7E70E790E95E72F7A7C3848B73037A17DE662151B +06178161374FF7093B0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 + +cleartomark +{restore}if + + +%%EndFont +%%BeginFont: CMBX12 +%!PS-AdobeFont-1.0: CMBX12 003.002 +%%Title: CMBX12 +%Version: 003.002 +%%CreationDate: Mon Jul 13 16:17:00 2009 +%%Creator: David M. Jones +%Copyright: Copyright (c) 1997, 2009 American Mathematical Society +%Copyright: (), with Reserved Font Name CMBX12. +% This Font Software is licensed under the SIL Open Font License, Version 1.1. +% This license is in the accompanying file OFL.txt, and is also +% available with a FAQ at: http://scripts.sil.org/OFL. +%%EndComments + +FontDirectory/CMBX12 known{/CMBX12 findfont dup/UniqueID known{dup +/UniqueID get 5000769 eq exch/FontType get 1 eq and}{pop false}ifelse +{save true}{false}ifelse}{false}ifelse +11 dict begin +/FontType 1 def +/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def +/FontName /CMBX12 def +/FontBBox {-53 -251 1139 750 }readonly def +/UniqueID 5000769 def +/PaintType 0 def +/FontInfo 9 dict dup begin + /version (003.002) readonly def + /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMBX12.) readonly def + /FullName (CMBX12) readonly def + /FamilyName (Computer Modern) readonly def + /Weight (Bold) readonly def + /ItalicAngle 0 def + /isFixedPitch false def + /UnderlinePosition -100 def + /UnderlineThickness 50 def +end readonly def +/Encoding 256 array + 0 1 255 { 1 index exch /.notdef put} for +dup 0 /Gamma put +dup 1 /Delta put +dup 2 /Theta put +dup 3 /Lambda put +dup 4 /Xi put +dup 5 /Pi put +dup 6 /Sigma put +dup 7 /Upsilon put +dup 8 /Phi put +dup 9 /Psi put +dup 10 /Omega put +dup 11 /ff put +dup 12 /fi put +dup 13 /fl put +dup 14 /ffi put +dup 15 /ffl put +dup 16 /dotlessi put +dup 17 /dotlessj put +dup 18 /grave put +dup 19 /acute put +dup 20 /caron put +dup 21 /breve put +dup 22 /macron put +dup 23 /ring put +dup 24 /cedilla put +dup 25 /germandbls put +dup 26 /ae put +dup 27 /oe put +dup 28 /oslash put +dup 29 /AE put +dup 30 /OE put +dup 31 /Oslash put +dup 32 /suppress put +dup 33 /exclam put +dup 34 /quotedblright put +dup 35 /numbersign put +dup 36 /dollar put +dup 37 /percent put +dup 38 /ampersand put +dup 39 /quoteright put +dup 40 /parenleft put +dup 41 /parenright put +dup 42 /asterisk put +dup 43 /plus put +dup 44 /comma put +dup 45 /hyphen put +dup 46 /period put +dup 47 /slash put +dup 48 /zero put +dup 49 /one put +dup 50 /two put +dup 51 /three put +dup 52 /four put +dup 53 /five put +dup 54 /six put +dup 55 /seven put +dup 56 /eight put +dup 57 /nine put +dup 58 /colon put +dup 59 /semicolon put +dup 60 /exclamdown put +dup 61 /equal put +dup 62 /questiondown put +dup 63 /question put +dup 64 /at put +dup 65 /A put +dup 66 /B put +dup 67 /C put +dup 68 /D put +dup 69 /E put +dup 70 /F put +dup 71 /G put +dup 72 /H put +dup 73 /I put +dup 74 /J put +dup 75 /K put +dup 76 /L put +dup 77 /M put +dup 78 /N put +dup 79 /O put +dup 80 /P put +dup 81 /Q put +dup 82 /R put +dup 83 /S put +dup 84 /T put +dup 85 /U put +dup 86 /V put +dup 87 /W put +dup 88 /X put +dup 89 /Y put +dup 90 /Z put +dup 91 /bracketleft put +dup 92 /quotedblleft put +dup 93 /bracketright put +dup 94 /circumflex put +dup 95 /dotaccent put +dup 96 /quoteleft put +dup 97 /a put +dup 98 /b put +dup 99 /c put +dup 100 /d put +dup 101 /e put +dup 102 /f put +dup 103 /g put +dup 104 /h put +dup 105 /i put +dup 106 /j put +dup 107 /k put +dup 108 /l put +dup 109 /m put +dup 110 /n put +dup 111 /o put +dup 112 /p put +dup 113 /q put +dup 114 /r put +dup 115 /s put +dup 116 /t put +dup 117 /u put +dup 118 /v put +dup 119 /w put +dup 120 /x put +dup 121 /y put +dup 122 /z put +dup 123 /endash put +dup 124 /emdash put +dup 125 /hungarumlaut put +dup 126 /tilde put +dup 127 /dieresis put +dup 128 /suppress put +dup 160 /space put +dup 161 /Gamma put +dup 162 /Delta put +dup 163 /Theta put +dup 164 /Lambda put +dup 165 /Xi put +dup 166 /Pi put +dup 167 /Sigma put +dup 168 /Upsilon put +dup 169 /Phi put +dup 170 /Psi put +dup 171 /sfthyphen put +dup 172 /nbspace put +dup 173 /Omega put +dup 174 /ff put +dup 175 /fi put +dup 176 /fl put +dup 177 /ffi put +dup 178 /ffl put +dup 179 /dotlessi put +dup 180 /dotlessj put +dup 181 /grave put +dup 182 /acute put +dup 183 /caron put +dup 184 /breve put +dup 185 /macron put +dup 186 /ring put +dup 187 /cedilla put +dup 188 /germandbls put +dup 189 /ae put +dup 190 /oe put +dup 191 /oslash put +dup 192 /AE put +dup 193 /OE put +dup 194 /Oslash put +dup 195 /suppress put +dup 196 /dieresis put +readonly def +currentdict end +currentfile eexec + +D9D66F633B846AB284BCF8B0411B772DE5CE3DD325E55798292D7BD972BD75FA0E079529AF9C +82DF72F64195C9C210DCE34528F540DA1FFD7BEBB9B40787BA9351BBFB7CFC5F9152D1E5BB0A +D8D016C6CFA4EB41B3C51D091C2D5440E67CFD717C56816B03B901BF4A25A07175380E50A213 +F877C44778B3C5AADBCC86D6E551E6AF364B0BFCAAD22D8D558C5C81A7D425A1629DD5182206 +742D1D082A12F0780FD4F5F6D3129FCFFF1F4A912B0A7DEC8D33A57B5AE0328EF9D57ADDAC54 +3273C01924195A181D03F5054A93B71E5065F8D92FE23794D2D43A151FEE81296FBE0CF37DF6 +A338C826464BA5198991445EC4BE80971DB687336AE8F74B516E333D2D8AB74D362C559AAE6A +CFAE49AEEF4F52E28C869222C1301D041E7A0BC1B6081BF728EF9E98F3A12EB2714E7F16B14E +055FE1FA0EEFB058860ACADEDA9D0E4C42E3C6F1E4869471BFAA3760175F3FBD842755A9D784 +7EBF605F18293B42F557FBE2715002669091BB033E1AAD657532F34F7C66E4F04D63ABB07E6C +B9D9AEAE78EDE8B79DD9BC87A1FF445EAA05B5572BB880E69F4DE1F82D7F0E9980AB0C1822C4 +48B0B1722D3CC33C56D525BE03755A5EC82AF2408198D19C35B9669554CBA973B8579CF4CEBC +2DDF326E87C8273122A4D04541079221220236552296DFDF7432241765598C7117E8BECCDA77 +2754C70178758DC510553C032F534785F5638FA17C16263D1E30E12E925456B34E0CBDCBAF05 +B750A694B72FE2093D4F0558720BC494F818AADD0233169A90039BA0115FFF1121BDD2F9739A +06CD42F3A390A6734B9DBFACDD1409947758DDFBCAFC1C03F49304ADF0278986203349132F99 +ECA1F8A8AEE5B492EAA3DC76415AD2E5EDEAF87D1C063A9CB387F1BC36618240AEBAC2AC0C91 +01F20486EC5A7C45006C0ADA0C5DAFF32B7C2229786DF2AB82F1C52BC1F2D1E9F31053612768 +C8F6B7EE007E0CB29D51F9F9C57717F3A371BE7C77F447D396BC6A6955E950FEA43CFAE2ACA3 +CA88B3728106D0959C46C2264C6758FB3D265F81C31C3E847525E24FA7DB4B1F2C11F30C98D8 +2026499D99C2019F683DF2B00991BCC2CCD3A6FF1D3DAA87A00752978F5D569240A394183435 +C8D52EE0546D9A2E435F1BF0EAF7226E3774B4C0D4764C59C2EFBD6D25E599131265B3BC3425 +1195BCA0D825150C0AAFE8BFE7B99623997733D0AAFCF3F3B3F50E596782112793FA8D2D4E25 +F1035BE26260EC37369B6D111E5D5DA35A17D887697D040E85CF476D0EBF14D380301CD0663C +19506D2DC6366CD74FB3D9BB7246935EA85D7F8053559C11FD84A734AD588D928203BAE6206D +2F5B2ECDCA8A53CBDAD807DE265C6B8FBDEE0F063D48BC6DD1A72C49B9FA9371CCD74CFE6977 +C5E991E4609F501AF68806E8F0D29D723C000DD09ADE1FA051A58FE1BE7296DF723CBDDADBE7 +26FFE17263452D57D350994A5DDA341CFAC89C78532BE5AE556C401803DD13EBD270AAD74FE2 +CE66F9C53A057016F30937224F2C4A4F323B1D19C0FE9F832793382DAF02093B29067B30CA45 +46000F8541040D29F9DCC4EAD90691E3775664BA314CB75353952211F2B848F749F221F44743 +FAC630A8F2BA2170C306E87FB6EF4F468F9468147ECA1D1D9E417229E85B72EDA8895C51A5EE +018CED3461181BCFB51DA14A02D043C19330F039983F5B475E0A9CDB78BDB2DAAE410B40300F +65483C206255459B72F4123B2AE28B07CD5C2619D59A69965B812545E3663B766676A328027C +EC3CE9CD3E2229FBF6494B6817D8CE12F0B6EA7171CF5A4D1C75C96127CF8E88926316DA2D6E +73B0B9D3B19C699A6C3E05EFD28074BE7BEC88F7788213F45CF8456D5C451016C10E816EA0D1 +607C33F5B5FE843811BE7EB3A4BD38A1EE1E1EEF050D0D0F6602A974273704AF5EE62BDD7291 +6168B30A91AD2F53E90FED10B86C926B26ED1D0683CA4FE72E37DBFE6033244F75677C02E902 +40C09DD2A766B4FA391327D23DDF6A046B0341EE0D29B888C04112D7A09B130990AF77A3DA6E +C4EE09CD6EB9D4C5D0588BC29B5CE6B8BAA7B68A67C8E4E272E5BC0CF880A38D76DE727224CB +142CA6EB1BA480577C0B56BAAF108DA70AAA81DF7AD8176D0BE331F85750971739BB06D3A769 +FEC24FE520FF36DC07684083D603A9553B52802FC3CE22FAE0DFE57818507D1C5198A08C94B2 +DCF20A30838FA3167871F82CC448FF92FF09E0630A6C5239E552359DDD48FEB01458187A7BF6 +6935481EB34A99BF4BE4A44D82FF142769A3E4E21F426A6721D6205DC9E3653A0102CD22301A +C308ABDC1108E5D7E48F2F27807B9AAC3FA878B8E77439B959E011DE081B15362F4BCC8408EE +4ED392AF505196EE9E5CEF0DEEC5A4E10EBBFB295533C8B7C1DE4BC75D472C614DE57718ABFC +6EB07F4E652F9B37DEF4C5DF378B9D4BB00483914C4FD7D9243FA5C5DB023F2359541BEFEB85 +1A22832CBA91FF208E61AAD48A2C086BEDAAA71F71A0B94C8B5F2CAA3AE971838C3B267C7684 +EEE95280CB209A5802D9666574F530944066BFAF09A5CA25015E1DA41FB7DB6C1CAA59778301 +FD39EE7FE59DC4EEFD391FAF6C9654FFEB7E3CC3CEC766CE0C5D5A949D4BA9163890F0323842 +831C4874A0D710318B0498DE4139329A43E7E969932AF3342761ECBD4337135A116F84E4DAFC +BAF5EEBA5CAAA9BA91E932F55C0C0ED2256D2CBEEDF033EA0B4EE81886AD8649B633F05828D2 +6E87645AC6EB5F632FF740EA706C74A6D6B56C2E858155EF0860274509EA4C41549BA2378085 +58D2F766DDE3C24FF8629102A7DEF274D0C0280C2022FC5EC67F2AACB9F7CDF4B7BC6C293330 +CD41116BA5892FD29560DE9A5CC0796B86DBF6A70AE509A6630A54ED62DC69778C761AB4903A +E3D1E6B202C72C126D56CD1176AD349E5E45976FD590D82A0413A6E449354CDAB7019707950B +C226B6263412726B2926053D502C8617F55CE8D2B07B50424543F8D86E4AD40D2785F81CE39C +36AFA61AEF5D19018B41B1AC9EB8CD0FEA86C5109C1E1234E31BBCA78C21148729CF9B4E1F51 +58EF077D997F375D05AB913DE841994F3EC7FB7ED3CA9C852B55396472D31D0711569D537C85 +5D7D8DC86AA901705D20512808DE7EB716BCE98F90D790B89A3D982CDAA3AF92E0A6DD523D69 +E6034926EE511053253B092B72D060FDA24C94CB77603D369455F80E5A472B3F5BB87A80833B +F87AD8166CB2AC47700BE275EF87720594224E791F746FAC4CC203546A97FC6F6FC99CDE8FD2 +4ECA24BA8A451693AEF0703E9BD2E40B6A76F5714541F5DC7664868FD26F9F6D9519A62CB25B +5C6AA1EC1D4EC948C765361683391D61BD90549AFA04D81B6DDB5D3C3859CD2AB715EC2F0E86 +6CF25B57B2F2702D2926CE225A45152346D890217BDF5141AECE4302FB7B3E5D741458C0B67E +082F4A16B2B52542720DBC3B32D2D29BEE1BD4FA982008F21CB5A8302DD7458C9F2A84C3A2F6 +2EE0DB3691AE088E2EDFCE9479306B0166544F80A74D86F03C1409968DED4EE633E4D1323D7E +FFCC616FD1F128E01E57AC3759B56B38301F001C5FBF2026864BA9D52C27A4C38C67EC4CB147 +2A4262AD1A666F4F9D2C7DC5E21A5E8A103386A8C959D8B18D9DD219031DCE4A44872BE63D46 +FFBE2C7D563A41DD5FAC27E773D8E3622B516697EAA212BCCD89DF68803988EB63A695BF83F8 +40D3A7871CEC3BDFDF534D512F0FD9C038A56A005FAFF0919E4258FBF5AE0B0B99B138D4D9BA +BFEA87F38ACBB0F1F299E08C14E9B94D6DF50C62708595B188CE225977014E571FB631E09AFA +B15962E85DFE2AB62DF7E44B4944F569B29C76111C78CB24392B461D59AC73DC9E875EF81339 +029FBDF2B001316E02CF79FEB4E4DFD726AB688AD2C80F5CD6DE978AD1DDC4DC412C4F4A93EF +112884493EF19EA508CE8338450497BBFC3941538F503F36D3156F63074A9ED4851981654258 +1AE07C8C2EB3D0241697E5143892F2B7EBCE0922D08AF241FD4446CABF1B38884732E51091BE +7FFF280D0B51D14BEA7125C00E7D9EFD80B16A410D5F33E5DE65C2ECC9C2F22FBAE5C1C7DECA +CB0168E9E61301563265EFB098A0BF5BBC10344ED75B51BF5570750E1A72C5DB0373F0BB4D58 +EC54E4E899F953719CAA7ABCAAC6E79F1A9E79C6BB033C0EBF3EF856847A1ED654039389A4DD +E386C95E5C3B4856AED8281788CD7870B0C737EA1E8A3B2D76CDF175B76D7BD9F863A5F97F09 +0397D502B6E1AE80BBC1BFAF360C67D2B7EAC5149424BDE40FFF83874039B6430B8DD580847D +864789096836C66309575D2BF56184725DB1C670C8D694CD95FBEFDC51C3BAC0229DD7564D4B +DC483815C1DAC9462C5053D55CF18D0AD67D30C599746EEF2A6BDA9905E75AAE71BBC3A06234 +01C9D1C6FD218BF1E45C88FC061E4038D5598703DE75FE52CA1D9B0DBD433CD287AE46296D45 +10D0D7230C420C903A15F2F188D1D031C430A859B87E617A408479B21E57A7758381B7B0A991 +906F9BE1F7C0793B34596F0791D18126264945989B3BBE893F04845A241ED464B4FC1F5BF652 +58FA621A5B8A5FA39F6A1A80EBCDAE0E61273D85D4D95C5836EF468ECEC0F31E3CFC162933C2 +3624682EB710E0B633ECC89CA793F7A90D6727CC69FDEAF1FAB99A76007188963E6E69ED7041 +98DED13699F82F909A89959BD37D92299B9A56F3A74DF5D88668CDB0C732000703143C94AB6E +1D3A0C77C86009C66A14DF87965ABF168071109918A787EBCF37A63D6866068162140D60A785 +66C744E580DB91568C10F182F523A440D16E4676CEAFED2B433DBF503D55F35A92671C0585DC +3B7E9B262E8CF95CB6DD1863DCDD589C121A8157BB62A6D643D3B444C5092356EEB47E795217 +5C95DB7D416D7C6625FAD44760B6EE86926D69681721E977BF7012E95CAFFAFE27D074ACF1D1 +E488CD6A7B74D76119F1D1591DD471E08FC0D03FF020EFD15178A90B84DE66CD28AD29F1433E +3D6614010D560179B2380120487B0231742F7489BBA334B252718FB626E97583691EE8FA4909 +7B32644FB2EFF76458C8165392C06748409A70CB3907859B86684352A1833571D04EEA6DC75E +CE594DF320F8AD963659984A083A79EBFFCB0826DC018896586A87D5134F330DEF0FB62D4CA3 +4E63E8F47DFA176A033C09042C31FA1D05D0BBE15E312C31288DD417BA5E9C5A4CE532CFD33E +EB41AF9BFBDF2BE8502E93DBDEF9D53CE0B678D6165C9A1FA9CC01336B79AF2F05CDA64338C7 +6C98D52ACE392AD4BECE7E61C710B08B66F01BE2D1B86245299770D215761079C1780C27E605 +9414950A5FF7941CFDE28DEB141CCF0F60B8F64FB3D16DD9CC8AF1D82B033DE0C348F5867703 +5EBE18CEE388C1122E36EFA2D6EA8FD74DC810F559917308A90278325BCF342A972A9865F248 +43F71A44851AC99BD6D5DC7662BC68AB3DFB2AC6E3414D6A05746948D7D8E22AF3A28723B829 +833CADF65C9B7E60C8B5476F00885B5AA03C22C77CF0099BA7934013E4EDEE134C33D914B3DA +DA17926D996742D459C17101A35752D91CE7ED5FD538E041AAC435A0397EC820CA501CF8F947 +5439165F15863C7C400E69EA3F34AAEEB8FB4A672E4960F3F9FA4200CF4A15DCF032AA02FD64 +41E4FE17C7A7A1C10C5273908582F789820F49AC5E7F3112335CE1F57C12245A1B64AC5F2BB4 +9306F4FD6455E42C803C69D5F5BDDF652EC28E104592134FC77E1FE7E4F18CE55F8AE695590D +42DB64FFB88682A8F78FC550FF902C79756BCFE52B2C86E7EF58D32CEF6D9029DA2BDEF40A76 +AAC2D74E76601640ACF87A4A61DDBE94D72288705106E3EB1FF46EA940355830772932FA3291 +C68A92F3CA6E7F6014DE79A3B68C19398F9972B241071D6E89169353A67205264F4498510F22 +52E2D5B235EFBB58CD9412179804FDE53EFC3A3B966EC302D5F49CA8370F889B8B099DCEFED3 +16B9E97103CADD58D7951E31AA901DDFBC9F7962CDF4D04184C760089F68490757E965343845 +D499E387FB10E68CFC670DDB5C139A96578B22324C6C11812C22A158BC69D9B046F402238156 +FD5BD1E00E3367D8B1852EB4CE3C5FEA539672C28796ADF5F0FB7482E5E824C51E88AAF15A21 +DF03D1EFF8D0C554C5035C8B61C0BA89C81973B6ED527CD9C1C266B63A9D9CCC545EB954A173 +7C6A003ED46B25C48DB19A6B1BDDE9CDEBC050F64C9A408DBE162F5903574D4D01699F0CF1F6 +C172F10AB41ED05011C95959F90F699A551FE8F2BAC74A9D84469D2EFFF2F7A897376711A1AB +CF60D2CC313ED5E40BDBB53EB907894E9EBA53106F0926D377043572E089BECFBE9FB8A3D7B3 +968AEB2437EAE5AB2FE439C52DED01FDDAAF91B502F0B0B0F0AB851CDC2BB1B9677C72430726 +8F16CC148F81D354DCDBD7DCED275C64D6F42F24FC7813318131D2E1AAFF1CFFBD4A3EEAC179 +703BF2991ECC301488C4FC76627F35EFA22DC41C4CD34377445A45542210F539AEAE59AD9785 +25E798E46923724F1827D263761C8531A1427BFDD78613AC3E8C76C78A1105DF25492E1C1978 +D9B75C9747B9B53ADD5A5306B5B43CE972298E48A16457FC03A3190424E13BA5A4335D6FB64B +B02445ACF09017408E18A010665BCC6BCD58E8970673469901000396CA90C0EAFE0ED2224908 +A0B359DFE353E4010495228E84250DE5410443A3559756275B76D0FB648944D3D29501A0881E +CC27052CE37ABAB77E40BD5D7282EB32A2F4492A107CAF8F653E074993D81850FD3B5BFF5057 +0FACA293968AA731005B3E9141BB49D91199580EBFC2CDB715C5BEEC55444236D4D705A8FE18 +6CDE2EFD495A8AE225170FA16BE9B5084FD026411BECCBB3D19D1FC9F12FE56F6BA73F57CD41 +3EF5F15E6275967901E9F8DA061F1825208F96217936651ADEC3CE342F2B220F38DBB492D44F +39EC368CB485D08847AF3F5F20283ED1CA75BEF0F206E9654873A0843515A5343B968B8915FA +9CA8A5475A3C958C85D3745E74BB7FF252248108FF427849A3C783EC0DB25488F6A7E399D31A +495D81083A375A94C6E6164926CB46B2903407B335972F99412E97BBEB1C69C98077358BE9C4 +82F3299B0A361EA83783242A3E8BB86CD1A970C47A402B4A28FB5ECF0D8A4D5AA8C374D256AB +E752B7C07C8440A16C8C3FFC8094B3119C8AB26F4B5973BED2658F53E179BD50D4AFBD4A02D9 +6C420601D7C4809C9B2EF51C721349971B609178EA736A938602932459D2E808C902F3AC77F3 +6F568E09BB9361CC6A028A724BAF6607B9FB3DFFDB428BF1AD596DD72111416206A17DC3C2EC +A888301D1B16D7139B47E7E0FA4FFA2F79F753FBBF19A94BEDF0CE5BD15441A42CB4D8C72371 +C679C8162DE3BC2EA9E5ADF7A89EE2314A4DCB279F22D98B22CF28E109EAEE701E79658DBAE0 +5FBF9507E5DE2512EF0F477E8ED6013E1721D2077CDA263E8BBD44844EC8E3FDEF1CE73BAA00 +05EF3500EB26F2013AACDAC7C2E0D764459496918023CE1783CCD24A1757AB736A973F2AD25D +37A021B77195933EDD3BFCA4ACA4842C576AC2939BEF6378DFC72E6D94F9A17B02B849ADAD58 +5196F9183450C4AAC8AE5A0C0D74BB31F07348106564AAA77BFC3FFB3C7FC23C2275CC4B73F7 +F5B0A4B8776AB49EB30DB50E9B9E9C857E576F14ED19DAE8BA2E7CEB4B56A40B8F8BF8A03F05 +F00669DCAE147750AAA34BE308AD998FB1E5EB574C9A8D7D555BE38821D77E5CE0A262F0B6C6 +BCD592E29C51B842B60A210EE242671DF4E283ABE81FE46ED7DD1D45170BFC30870253593CD5 +03FA21D8D4DA9272E9ACC981A95E47F10CBDC71CF9127CA9F8A74BEDAA07687F860B2040B099 +2AF2965E29A303D347BCE0ECD5FC90F498FD10A4953CAEE366DBB1409027E729BDE02F74CE1A +93BEB6575E43DDF6540BB5CC342EC7240E5BABDEC862DA08729C46C85124BDDE5B71C47AB642 +B3AA79A3D0DAF9EC843DC75C97EACBC8312592925546D047F2BB1EDE24C6AC4346DBC11A9D85 +1DA51AB0338BACA1A1E179F1AF0EABA623864E553A2662F09EFD6AC36D436B89F0784FC749CD +0E31ACD288DA4ED0C81666779F4622A0F4243D324A598399637094F5BBAE597E55E71006EAA7 +C8AAF52FF4DF97D9433F68E42CE70C176513AE8E99CDB21B6C976164FCBC4AB0F2CFF237D083 +724B20BC5C657D4D2C14007ABAF4D66C32D19DAEFFB9514770AF6FED82A8EF986F4F24F9A108 +350FA606066550F6B78171B5124718AC1EB1022B58077DB66E401269146F81229CE2F044729C +12C60B8AF663CF0E87F8E37F31A43D4F747E2619F4752411EC61354347A818A8CEA40C37B251 +270944B0C6682088E13D2D70C17833E542C800AA631FB833A68705FEA8DC01923CCAEFA8F366 +36C2E05AD2DE992A0D507CC6BBFF32C3C000D1AE6288DB3A2F5F6E029C7AD4DAACB1EC98E842 +200CE29EDAEA2173C69C56CCC499415E2258CB9A1E35D7101BA14AEFB162AEBC97F03ED44DB1 +3FC7623589A1804B151D248D02EA353EA834594D800FD00D5C7AA542919A2D9D501764EBA9D2 +B39DD1EF564F9D4A077B526331D5782C5EB5F68377A82E4D9322D0E903DEEB5546EB3A84A084 +020103658B69AFE63B8C151C3B9DB04765FEC5E4A1043B28BF6D5878C3D23F986BCF0D70C0E8 +3B6D78E418C075AB7501BB46D6F315033E46DFB46B082C6FFA4D5CB802B832FD87003D8A15A8 +EAE86D714229942165A6E8E5A7F17BB2A8BCF98679477C99ED8B0B8691D80C6A6A157109DA02 +0A5F14423B508CD1230BF4BA6428F8EB0A47BF617D2C3464E808BC578932AB50AA0300141963 +422E934429B55AE8AB21109A6B26258A210A15C3EA39D9A1AEEFF4FFD68834AA2C2717F295F6 +B3BC9D466580FB76E0AD908B52711443E9E0DD107D2DED6B9FEEA2EDEAF87C9B06DD21A7EBA0 +49E03A221CBD381E69CD3CC117B68DFFCEE2CB06F4132B655608F850121BA8F13883F9863ED5 +EBF2DCF8582E366CEF238844BE79D57D905123FC2354C3E558A4C8AE3243B68807E575BF8252 +5C59497A7C037391001CF63C1B3395F751CAD1CF6546EF8FBDD5C49E45DCD233EDF19056B539 +8536B27D27CFF3B27958BC8F77110B5E4575740703C7E3CCE26C649222C54D0DB11A29B4D4AB +F243FA403652025BDE1023FE6733D3D22848640040DC952DBC2F34204AAA0DDDB7A12B16687A +9B571C287AF080723BAD1CF1E2846FA9259C25AAF391C4D83ECEE4B5D35069215067377B2ED5 +F360AFDA9A7D7ACBACDFD819136DC5EBE7083FB4B2A3A7A514B2214F140DB6DE393B47CF99C1 +D36D450429F903A6200EEE80CFD2097C75CC82179097C117466DED4A1DF21899EA092A412C7F +0E8784846A929AECEACFA5D89ABC01165C10691E5A8C874D2516480AF0AF8C84A143ACB72F29 +D938780E9A5D7E8E478F01C3F12F9336C4ADA9685BFCA4389C1ED9DFC5166937582D985122E1 +72F3BAD8A29C32E1A02451080D389A2753A2B6092727333A200731034221D82739625BCB22F6 +FAF970375E5315D76112D36A29B39B72585D3E046E16E3EF15B22547DCF811E2CB33EAF89F4B +03FBE0352623A03B61DD6FB248825D60A0C995E213B516FC4C601F10DB161E9F52E5C1030272 +A15988ADBC792656B8E27B20EDEDF7B9F74C3CED5926695181143F1B74EE8E938A8D005FAE98 +13905A8006A45E7A351F86C1D5A1BA1710C3E7B4DF588D76F6EC5BF4A033AFA9E1D009B1C7C2 +2C9671DEDFFBECCCB13ADC96A22B6A3A658F37F7DBED64A6B300D00A2AFD955488731898CF8A +1CCA01A417A9B1519F7B86E49DC0FCEC2A7D5696322EAF38332062B1D80FC64D6644583F4F89 +F9567682B03585541DB07CB67660FA8467EB2090D7CB5685D825FBCB223E7145FF43C4037C86 +CFA89FED056BE90193D5C72F521DCF638D2EA65A104EB841D3A0EAFDE9C791397D52D0BCB19B +C9ED0436953D5AEABBF84CCAB142F754D9F441D7A9CA3AB953B39E335CCF4A94A6679022A24B +09B9BE7FE382AADAFB244DCDDB5E5ED86631043CD45C0F41DB788DFEF6D89AA771DFEF88F2B4 +7AC73104F5F60D679A5C310B6F0201C08B5896FFF2DF26A12A25C35A1D5E508AE3BD2F3FD08B +FB844BB1B1266C26BDE6DCDC846BF28E7933F63B2DD5E3F64E570601274FF03BDC59CE669D97 +E4583444B5191169797C204A0CAB0367D34D3F0E5772ADE0B350C76B87A9698B03EEEDC987AE +4643C420E961DF52AEF52354700B779567DA5CAC4DB9512C69581228EE34252B420A0957373F +2F5C30D081E0EAD8FA11CB338A668B4FF2738CB21128598B3E96B350AFC54DB6791F44DD974D +6B881D1F57B32F60CA79144919DBBE8974C89F595DE3FC864F677F2142A08FB80A90E1E203D9 +1D770B8591B02B36DD526328E836CC55B40828C32C3E714BAFDE7ABDB9548BC58F28632208B7 +8BC2411E45FB4613550F79F1D595C10D9D67D13508A630783795E741EE4E969018EF56F1E7FF +C62DE061CDCE6F4DD0881016142FB17EAAD4F19FB202D561DAE708C7884E8F03E6340003065C +92FD3BCCA61FD8EC4565F8B662D5BC2FF7B77746EDB6D59BD4BB713C6F7B07A4DC757E59972D +53844BE23EE4244A76684D26E40210423862D5593945FAD5D480919F165D202ED9783A0E8589 +A5B4CD3FBB07839E2567FD43240609D9D626EBE762C1F07250F93039505B7D7519D8AC132342 +3EE68CD04D05813C613BC52278247560D8410441D5F00ED6023BB83C4587630CCE0DD5AD5F30 +1017525F1842CDEA38F6970C24F91B249D0199ADE0315650C897EC34C39C42AE18B2486A79AC +9116FF055553E9479BADA2525BC1805D80C3A293D1D1426C88139548F7D4E3142FCF1E38CAC3 +BA44083EB14AE807774BEF7A29F3BCE51275AA6356957F61F0104DB6328D942B899E18225686 +5873A62CC2077F1117658516E36D2910C11BBD41452DDCE22C711B1D5FDDCC066F0565835A22 +569E3C248F20E5798C6CE31BD86B8DEA585F701E38836D5D8160B759D5317F917BAC395BF347 +EE0E684FB403F7432E05FE75C96FCE732F5F37D178A232780D7C5EC2FF260C13FB3035709B1F +4316BE13F5CB4A333116CBA43E07365FB93F78B018440CFB5601F292B65CF6C98D9D20AB266A +0230DC6FA40215CAF0D106D88A2902F98A32A759F6AB840745FFB949A2BD2E09D2F43E3C6097 +DCBEC13E5A1BCCEDEFBC94DD64EB5A1730AEA73B4DBCF16602E536B4FE23BBB4CCF4993FE9CC +96AA891BBCF4ED4F5D8B45C420BB87B9DAFD95226A5F66A99AC291F95C315D1DAB810DE801E1 +F3F3AA7F98F3C1A7D9509E9EBB9BF301AAEF3D56E8CFA8DCA08AF468E9A531BF9545E1E2B89D +49AA5580828D07D82785FF808DBD1EF28153FA3195E55A628E43CA379BA9A0D5494E64CE5555 +7CEBA45B4262D1AC70A0E12A5BCC76903EA861A162FCA9B17CD8306C10716EA5FA1F6445F8EC +74C9DAECBC70FAB94AA4DD097F134BC455C9B52B78CB41F130B79C4376DAC3568AC8290E1D38 +9ED3FC465874009F3E4436A01DEFB2438D5A149846056122803C35397DD1B6B4FE9CD4C3078C +8479C97152BFB84E4AF4B10068112F4D8C548E10FB4B34A23A55E18CE8FB41B9EE385B3E4298 +6192507EAA5FF2F5346C65782793E9C7348CC0CBE445C9127E26177DFCBB228440005ADFBAF4 +7C93F8F55515CE2F196B3CC1A29FE84790AE1C84A043712D2E05B3DB81D448C27D5CDEB93BC7 +3BA7CCC4DC802581077FD4788B2D65B29DE6FC81A152412F04D90F3F8AEE3A9A1B36A18D0A83 +30B2177331BED4C4782E037A44C376B884AEA4A6B28580BDA1B64152B9774CD3A3045D86FF3A +D2E79821A8A2FE3330AF8B2FDDCCF219D038F431C7D4870C94DCE6EBA37DD5EDC52AE37959C7 +01369326E6D497E599A8B9709920C4E118A5C312A891D6F38A2FD36C6D270FB7E694DCFE132C +630C4F5307EBEC9632C007621D404A349A1C3AF3D716F4EA4E8B63AABB02DA6A1BF089F29410 +F0FEF4D283C49BDFA37483BC38D642351FF32137A365D27AD9FA50CEF1547039291AD934427C +B0E5E48ED38AA961E7B429F31F9E9A91FCF64AF817D90E7818BB78F7C7CE019AD9A85571CF65 +E9EDBF9ED33251F990E95C579F7FCE1EC401B6B3C208A951BC060867230B30A65146006959AA +0FB365CF97AFF757E45992CC5944CC606EE86D7D654CA56C3DF3C515E6315603E442F68C80EB +F1B61D74E6F1AB9072D9CBC7793395842E8AE48EBBA30D4FDD1D8981B1350AF4EF6732680FA2 +0E85D11B6E00F43205908BBD508E52752F7011272AB7D9C6D566F86635D43E37E76D1E085652 +D0B327652F2CAD40567B7814B47E09608AF250810A1AA74CEBFFB1A56DF6D47EE5D5F689F78D +768EEB44EC9DD04F7290B8C8B0D8E781038A8F6C6C5493020A430FB7E264A6B7D93DAAE51CDA +74D8EE11DBEDD36EE9254F4F02021D9B05E1EE4B1D8FC3426A03951A2B8501DF5834A2131F43 +C32F83D2AFB8423A7A4BC26D2437A5138DB8D22D461C134FECF24E32D1E53ACBA6FB56CCED7E +328AD7327872755A127A6535F26B37B8E4249FAB868062548D0217AE99897408913D07BE9848 +6A7431C03D425A3020798D3660C6E5EAF4C0611C0A9796ECE76681A76AC44228FF3ECACFB243 +AFB6145B7EA08315B58D90A46EED1C372129C973CFACD597F3CF8DB67279D87CC0B0635B677C +7B71793C6A733D8559B9FD719F5DB889A6C186C6DC9F5F145067917D3C7ACBF06C11DBC24385 +E32522ED088D8CA3FAA148B111E0A29A6093B47AA3BFCD02E49CB0D28608E956E113D354C6B0 +AC52CB82BE70121B513B743808C9E208CBF77F3CD5475ADC3D0D7392F2E84203EA1C1CBA22DB +EBB4387D11CF89A497FCD1B615A93B3F5854D998101933906D20A80EB73B713E1BD9108C19B2 +F19D8376788D4F6C62FF3330618F3BF6F4186B901179A20C9759E30671B9F562A89763E123E2 +C7FE18FD607FD6CEC982517EBF79E0BE46A79E368A0555AE3FA06AC45C5D405C912EF1F70CC3 +89FDC8AB254342C52F62B935820EB1A17659345ABA69F249406E363A6D8E0CB28D0AD3120874 +71BF13B0C168353B82CE6D77B6124C8DA39831EEA0AB4D61EEC73FD5CC692E0917653D780E31 +F59640EB59FE048265BB90A75DCDD5F23B6DDB8E0CC84DE31DD8FA6DE29132A07E4D752DF402 +C7719012E12323A3FD2C06645FA1EBD1B7C3DFEDEB98B0DC8F07E8AC1F9F3E8640586293683C +3EA099E7CE21F3AA9EA176845C912F1CC067AD18925CC91D2FE238474BAE570882BC4879CA1B +F89B535F122BC5ACE4E9B14FEC712127CB4A0ECA5C0E9BF7B8A1E0A35F16AD988F2A0FB964EC +31D53C5E97FC92F6FCF8E7C86B52855033E9C958F2F64CC562B10FEC414CB08DEAC75D24B87D +4363C3343B22831B5EDC26343366DCCDDEA1119A42DEA7E290CEBFC6A617B16DF88906188947 +4CEE64295C0A3D38796B3F172DBD92DE9BC4F6A1883875C8FEA8B19B4F9CFC0BDEB4768DD937 +4AD2F06570C474B0B4B60D08849E22FAEE57705F2B272F790F3FD0746FF4830BF0EE54F04281 +993651BDAA622DC95860814C654F1C139719A96D675ADCC34D1A3FD4A873168A75C0D16D5EF4 +C07E847DB4DD4ECBCFA2D949AA3D065681CD1FBC31D8B4E31E477F6BF14EE3B2D7829E7A11E7 +F2180EF80FF723E1B6EE98EDFE61F51E19885DDC1FB0C1B7C02FB98E82DC79FBACBCA421A204 +F8D5EB60348CCD3BC4A54E6E6D35DB4E444CBBC593B342CDD175DD7C4426E19C136B705509D2 +33F95BEB9CDF32231B3C75AF1CF7560C6E26D68B73ABE11245B9B168BF65B9DD0205A278FB78 +E804AF1A008F7913889CC49563CEC39A2D9B88ADAB5A356C4BBAFE68368508010F771CA36A40 +6E8697F859C45474A958EF860556D775A0AF025E207DBB2B72CEDE1EE73EC2B8335CB1970AFA +69FE39D362F97CC4986D3D9602AA08DB533E9957ECBFDB83EBD61F98008612FEFA29E1310ED0 +0B8CA7F76EE33823FE7301F59BA4628274B1B4A16F73B1A1EC29E2AC3B372BD8856B10F79BA4 +A6EC5F3D4EF7AA7FB140306409FC2824468C7B09B74F5EEFD116757567D4F68F6D3699C1564F +451925CD5B0CE68F5F5B4C3515773F1BFBB9645CDC1EB33A72256863AD0F4A72BD8B7B34EACD +B144EC0B2271947B14D692C47735F79CA751613FD2C27A6FF7D3534127711D719C932ACF1E58 +01EABB116C0F925892EFD89DFF4C33771EFB4C22FC9213AAE66FB5F11B31625B095EA8C295CD +CBA2805671F6A629C7A18F43C04F29E6BCA89A11108DB6CE7009134DFFD18669BAD58DC9BAE1 +7B4B965FA2D2B1F271D9DCEA9A5A832C33CC8A5DE23670C488FCCA867EB4A3A6D65D8E9DC072 +523C6B8467DDC695D271C8389B662B6C8E3FEBAD74120DF68516B7341A03BA2E53C5D1733E4B +8FD1700866F450BEA88F82B94F5480E9F7EB869DEE2E0336DF3CE81329A095A0325A16F97EFF +B3C0C937BDBABDABEF455497C04270AD92A5B0ED730B84ABC90D75A72FFA1A1FD54D82311146 +4A5A4BDFE17EF097A9AC68499A67F9E43C57BE3EBC58A59FABE951353AF61C88413F75DCE34B +DAA291AAF2C9CFC99E3D87DE6E6EFB6E0AAF55DE6D9FC7B64AF9BF056C134CDB7DB0261D6A2A +36B2005D73019F85DF5E196BF96D555FF53B4E5A9ED6F60A6488A009BE032F311C74C4E8CCA5 +7C05D9CF0CBA4926E5A98F7010A08A5E0322DCADC728A2B46321946064B175E286F8CF56D239 +D9654B832380D5BC0DA8F47A54A77CAFDE9C095B3CB82FFE656A5AA8C4BDD4D9341E977038E9 +0E0A0F7B180109D225B301665BF38242B8FE70F2920852AE1DD8C7B839F1C4F3630F52144657 +5C388368F9DBA8FB1CDB21BE446B41D5176421D9E9FB890308BBE1DC94FD7C20686621BBCE01 +057F6DF6583F1EB0A232B20ADCC140139ABFB284442E805EF9E78C33EFAB7C3AC8EA8519FF05 +4A15BC5FA2EFD466B44FB543664FCA8E88C859A8BAB812CAEE9B199E70D1933D05C41C77912C +1E24D57BEF59849D52B3FC46F57C9E470B88DCA0A2142C1FA8E4FB5AA49917B52DB23C836FDE +FC4FA450BC34131979B8B4FA74B96508F211C1F980126411778DE3295266EDFB37A8C96E51F8 +5387022D720B2EB1A7495552B872E77F63FC9C6FF97C1AC111A1033005D67D7AD2BC779919EB +91D5D0C166A1ECCC836A732EB0812ED5043427402A0BB1130B447E0BA57C353A291FE9E5681E +71B1B47F0F118DC23627B18067424F0A8309C9B92B8FF49C5951C635C5AABF6C3D857C116EB5 +576C4F164BF1F2120197E9022694A400521F630A62C83478F2F7E2BCBE58CA28D6A1F3E8FF6A +6CEB35B128D849A8A5D2EABCDC92D48DE326945459A9522EAD6F8351E98B17696AFF88D9EABE +5163683AEE306C65BFAA3383EC1C2E9FC540B47AD58BADEAF18FDDA8FAD4EE470186B131F05F +AE1C64227E6BED78364BCBEAC21DB104820B6D529DF9ECAE1C8133201C451426F0800AE6EB9D +526619B5A58A3657865FA2A329A5DA34CA8CDE231D4B27725C06054A2F236F61B57191FCF7EA +7C7FFE5F85EA02D5562DD32FBBFFF16C93B9F79C0AA969DAFA82C77735D0B908953EB28BEF26 +A9BEFD73C37FC8CB45F44350AD9CD567C89F8CB26D7034CC1A00FDA1918D1678186D43B8E0C0 +355B7090AF9EB62FE6214B96559EA1AEE0976B65D23F69BC3D8C055A26AD5EF85BB2E128B095 +BD5C22D01F1C7F4AC78A714FE8DC48AF96F5781275A85597BF149C76ED8139026D0E84D0AFFB +5F197D7D7EB0AF7313BB2ADAA54FB84332CFA0F1FB5EFB43EB4645D9AADD62EBC99596772B57 +87C458144BF3CC3FFFA8D4EF457F7E1A74CAD7DD57EFE2661A05827CC2820ECFC4B6E3F3E5C4 +09852F9C004219582DE486240AC8136A670FDB15D9FC56A8FD60C221220D95D8015C4D336170 +DAF7F1EA782783E4A361E7D5E4BEB270DCF28993CA8466CE293A2A50277C821F635621FC222E +7218E801C3AD05E9D355D6B389013D74485D865132D18DA2F7A898F58527A90623884DB20AE9 +C16D62ACB1A6A32DF5A2A5A2445069C983FEC44105649C681D49EBA252994EB2171F38A6A32A +62C3BC5BF299E94C54ACF4B1FF863FD3E8C4F3699B2093605F8A120A04A3E034430D9FFBF121 +F8259E7E4B66FD64A3672C7E66C45879085FDBA551AC1FE799D64BBE0149A4FCDD3875FF64DD +F03143C7DCB6921C61A845CA1939BC69FCDBD0E696CDA18CA4612D518966F7A585539D175068 +238090E76E2B50F8CEAC930E39945A5EC243D193CFA64340A3285774119DB1AE73C82D2054B5 +FC5CAE8D7F141605F1B865CE8648E995855ED6857E11D5E8057A86AB9B821DDA4CDAE1E0913F +A673E12742F4BB41AF3A8DA7D0650CDE3A5F97A1C2801C9137326F7BE810B48C9C6E7B400F96 +865E4E1BAA2057CF637EBE5C01B2B81587BB87189E073D5D5D911F077A97BCE49FB8A05D7A38 +9AB64313FF5C1A26B2264DE539F0011D0147B919CABF95E2B555B67589918D56C902FC086E79 +CAB67C02F26BADC912E96886D6DB1D9827B65914D32878A59F73D57C151D1046991447E43044 +3FB4660278F9682F19D138A43B8B06312985F1DFD67B11A3320EFC97D96B2DEF295B2D20DB90 +C0199505E1DF6E24102CDA84D89B064864E0B73C81AD179F41980754B59A2E89B4D5213BAD7C +CC491465D53AB7D304F73B3C15F30BFE319653A10237C2E63D9A994CEBC6A4CF78EE0F17114F +754B54ACB51E7CCAE79B42E1E2D5A605AA37712ECCFBA941D73EDF33249C487688785F1B7534 +35373113C272843542239345F33D380D5C474F80D701D8D834C61BEE1B09D0951B48BE6B616D +24C4DB4A1BA1780AC42D5F41FFDF83DC4173468C5C042AAE2A0590377EE1A62F2F8EB2106953 +9C957284E5F9B7DD27A8234966CEE18BCEEA56C4B552CC3446B4496EBF522D0D629ABF18BE00 +95989A52AC3468C1A37B9B202D90E41E2C3B94BCAA528D9526E12EDCF6ED6A32935CCA231D40 +DACE081033C26418C740B8C5CDBE35F278303C89E5F692393C4C5B6B0D2DA7BBA2E4B5CBAB4F +8B65A4185831AF11DAE9C4938B25E91EC9A80195D4C3A837A51B3D80EF30749C401C6E122DAB +05D891CEDB5A0AE99C5F1B336ADD0AFA9219A994A23974636A2D0A0AF45C160C39D16C076E4C +606F4ABADA6D331E1BB1685AEE6E90BD10C40FCDC690C85B9D644CCDF0C3F899203C33DEB83D +14C5F30F6C5CD9F6C92EBFC774E89647D12867BFB96E9A1E84374BEF328A2B8728DDB3013726 +EDDA6E55EF9697BDB4E2A5E9F790A757990F847E77E374016C7A1C0025CB41DD1A493A88B3E8 +7F5B2A783876108190E12E552618DD5B249964A0820544C0A27770C0D0BF7C529FB532510F91 +419F89AE283E0E9EB4FE91290C43EF1057DC967A87EF317FE6404A749EF763ED62382B812151 +5C31B1D83DBBB1B50AC4C9521A9136724BE6BF0BBE94F17A8A468359C0818EAA24823BE4D8AB +8884680A868BB334E34D6CE8E4E89D4F302128D2C87A25D75121325AFFBA3408B611C543FB63 +E8D6153DBB477031785246A0303FB13ED66E2C9947E4B782D25B8D6AF0900AB60FF50665B785 +367C5275EE2A3B4A10873700048E91D259514769CF59D0F67CF849EB8237478877983C1AE891 +4474377312217F2839962EAB28CED3778ADF09B8B1BB2CBC486EDA913FADDC1A13A1015D27AE +E37B3691390F56A5E7DCD0F9658FCA6C5D4FC130A278B360B5165500B6F556611AD71905E898 +B8A09A02B3F3690A2BC18E45992864F6F5E39A09529C53E5424EEAD0192BA80A16E2D003D77E +03BD5CAE5319821EAE27363136750BF0ADCFBCDCE79AC5BF21144A2D7081A49F734AF3C74491 +41B99C79A0FF105E83A05845FDE5FA449682A71AE013B1872F08F77383D16AA7BD350172F187 +2D993EA6D193F863CD25A0E419DE3F0AAF977FA80717FBA232AB9A1CBF700B13A8DA30F0F657 +4ABD37294C8A75C636B8FA7CFF6F898BB56E9E51FC336AEE7A44CC038011FFB1B5BCF02CD12E +5E38094FD90B2B253E3947C9A6A717751E5EC3A80D1DA3ABB360D181E17B02D9D9EC18118EC7 +A8466AB3FFEC386BB19F22EB0E300D75CAAAD9F0CE86463ECD5FBF3C545EF3E12CD06232AFA3 +F741EFA923EF441A1B18265EB9F991D726B92220AD5018CC579BF292103B85D8E67A49367DC0 +88289DFFA899E39E463B6F7B73C4EB96AE199D9C500E86150D8B2302D625F83868C45B4F1400 +4B4D78DC7389AD40E728B50E144C94DA23D60FADB34AEA38E60156B809D320880A689AEADA6D +EB238A87FDC4AB64C675EF6DB2C5CEA0B09E1F7BD1143ACF53C0E10CF46656FF339A88A3C69A +22C496339F4D3920701C28506A1D5AC4F9982378CD299697655B1EED4178DB8C8D63BC9AA0EE +6EECC5EA5B02B7FE89D84397D570983D512CDA73E332EAEDEC039A91CCDCF140A1E8585A4BB0 +71403FB637B884B15F49A2A5B867E5A51B42D2A8E261BB9A0C2B838FA7B0935E16D3AA689E65 +E113E507CD46A17AB59E8D36D8F6CFBE3F0C4345FB43B48FB717E822B09054F4B58F84C7F0DD +9A5734CCBEDB1BF25249F65931A8A347F73C6CAF96FB0B54D1B276C7F048A26D97656358D641 +D79276A41552F7B426F764880B4D3160C54EEB36C9ED95D3D9D60708ECAC804717F14CB4C8BE +6385FF3303E39BEB2941F4BAD4B17CD819F1C409F53A487DF581A7669291A40DCC178DAD3D35 +670FF1346F9677502528A9EEEA1DBEDA58D3D6D2F1399EB1983B614F34AE9F606C012CBED4FC +09B56AA2BCEE8F3BFD97782599BF5359276BC8C10E5D6587E7FBA338031B016CC648ED235C56 +FFC6422943F1CBE4D96B5EA9CDD8B0989283B370EE8F31C0B313A5F625665D3FAB8D59EE049A +55281350AFA4BF7F1EF3F66B66C2952B4703BB0047C7441E8DDE7C762F24AC71AB9B4FDE5AF9 +823CCE959FFFC4FFDCFC451DEECDC721DEC71B7F836EDCB012BA032C3EFB399326257C14B2C2 +7F15D5E8E0B599211BD4D8ADC2073F04ECA55AB296222C01933E9FAB28DE77B3565B75D61B0F +A059BB1F2ADB73A9FDC02DA805F6EB9E649B019A6A6B92777F5A5D7A0B2E53B165973433ACD8 +C8B5F00E89CBA08C097DBE565D7DF2122D19BA16C4BE96E2F4717288C3AA116C5DBB2129F39F +09A10CBF8060AEAD51068295A0E67A9F2CF9A3E102F5DFC08BBBEB3BB5C5DFE6E42750B50964 +974EE6BCF48C59926FC961F6B5CEF2FC38E5570528ACAF8CB13F77555CD30BB979303BA7910D +E2C14A24FEDC55B93B18B482DC704F05C8796C003C4CFC3915881E84EE7D05EAC962B129CA21 +B718CA6B41880EFDC62C69C57E01154E2EE7CE04C6FFD763BF655E47A20D6215B605102BB9D6 +880BD3F96B363CABF8934F0D96F05A58051EDB910F6F4FF1942A611CDDB99729339E004475E0 +4C6D3F8A4F728ADAF15261F36CE4E14887F1A560A8184D3938E1970D8EA3CD82D41370D81AE5 +BD5E3D2706549C89D7E58EB410F1CE8F4D33E7D59C9DE0303909D2BB027D67DA5DEFF2207896 +686FFBE6F44886F329E4F0A6A107BACB5D21D2CBCCC2A72B0B46A83ACB94CC46F49F2FF7ACB3 +5BE29FF1927FA23F354F9B3317424397705438AB3271A5B75ECE435AB36848FEC4C3DCE4D0BC +69DB51C6F2E0478B89B87ACCD7B95B70AE4EDFCCCDB7C48CFE22482AFD55F03446E1DCA6F20B +D42F0DDA8726110989B0B2C8189F7F639BE22AEAB1DBAD5E5E0B691DA9067526D2DBE624E72E +3AD8F4E0288CEF4ECF96DCAC1433A2C8308881BAF6E991E2C3AB0FAE967CE45E50E8A7D6762E +B048DFF3D8C391A5FDDFBFFBDF7BDA3268AB0D8CA04F7C1491CC6871C874E1CB1BD2DC5121E8 +D7AB7E574A5D01BEE566EFC53A6CDBEC867F484D7BF47EB28071B47591798A67BBED64710557 +6A530E8FE537B88D3F4B3AA0690A4194B32434133350BCD998BAEF77E2DD2270E3120D63E12A +B2B5407872CB9A587AC5821E691D65DA60E79A17177328814E1043F8C88D724370DD7CFEC625 +70B766BB636B80221CE2C8AC5E138915F33A332E2BA87A65F8949BB7B1FA8DB66419972007CF +EE6F13253632AC001B54B8044F0B18461910425E74AB21C7E3AAC3DC8074CB2671AA79007CA6 +568F49FC88D193036344F3041208ECC86403D3FF3895B89F38ABC514E3B17831D8E155FA9C71 +510477670DDE5A1B43B0245DE052BF483657CDB7BC63DC70FCE00EC4C498E9C5D14E3956A656 +5247BB3C39AC2595BD123E8C062B679C60561097F3BF31D2D732774716EB6879F72A2CBECA66 +6875897C14C0F8904A485211C6E86B79562977AE470D500B22C5EE404486BC77B920FACFDF20 +E45800468B092CC05E02B7FE95ACAA11B798A02E4A3597490671CB25D3E45442745A201AA56E +EC0DF6F3A1F8865A01F822DBB1F42FDE9A5422991C30C6FF74B7425C2118FEDF7CE6B0BF5382 +9C92A678270CDBC7F05D27B697C1CE0453CE0D453549C52C6A8AC6E0563916C79E426CB29CF9 +602E3AA299D4C034C8231D8417C6F13EDD6A07B376674FDA85F30EF46DED22B80512064D5F52 +E50B551E69436EE4D4C6EC31D7E2C23F5CAB8508649F71CCC5377A1929F382A8AD8D3DAAAC14 +F9DC6D1310212F0039859822925091E22052F3404453EBD4DBC7E60150E61B8B33CC210FCECB +45F2BED30D91983B7B765CE6FA5B06416F29E76C3F9F1BC81454D00C80096E1C5792FEBBB1BC +C9E3B3480CE317C7E221F33B2A3CAF2BA9131C5E64379844C01DF748C213D78228EF9D980671 +ADA8C048A26974228C10186C72B1B56607F5873F0F59DA3A7F929FAC910F50A2432F80CC3BB8 +7E505D3775DE028F01745BEA217362FD3F4D88A90EFA83A14849C60F4953217989DFA6BE30AE +284D2FB4A7CA7C0425D1B145B5A1E2D6D89D908A9B5DC22E1B04E2026B43372C6014999B1647 +582D91BACE76A63B4DC8959449F37103AC9AB27B7CA84FAAEC6FE121210F3AE18504E3C1BA71 +0023DD5A6EF15DAA2521A19DC1CA79295252A18B82DD6CE9C0F98BFC96290B03E9111E80D9C5 +EBA45E17340E6D2ECDF97B63EDC8A8798C127F64CEDBCE77EF317EB70AF75F7396B97421E43C +04588C964A1FC39FC4F231081B109EDA2B30F45BA4EF77B8586DCF074B327C56053ADB475F94 +E7092EDF5A20128FDA544C43F60AA04E6BE2DEC718E057A58FE061078EDAE3CA69790A0B3E4F +70CC1A4F6F7030174680BDA8A5F9AEAAE29860605E6614880EE3CC007B6BE2AC2A58DE098252 +A88A501BC30A527CEA21F11C361B289CB8761D5573EB0736725974A8E41ED98E773A9187DF4D +2ADE1DE7A5D35B1409035610A3C53ED0516FC9DF6F89E14C20B1006DD06367597C55FE289201 +CBEB35FB11E6324DB75991E000BBF7FA3811E432F2EE5BC3C4F8A9CE41FA723875D669A81276 +E327E881F994B1C0C402BEF3EBD822C72A58DC54C640EEB6BB4433DDEBD9A7BE7FE7E4BE86D7 +10923BFE1932774EFE0BDD86EF7C7FB11220D813A41C9CBB23A65392E360E771B96BDD518639 +00529E9140C99C3DD30264F8C020C418C1FC791EA9641D6442C913071FF41027656272844409 +D9001E60BD368D7A69844B4EA32393CF2A6E32DE2961C009933EB7BDF3542A6AF9DF5BCB3802 +698848568D0C70FF5C4BF77F9D6710D7E6BA5D3059B11F53AD21C32584A38F1F341B47093873 +2D173312BD4DC3D5025D11EA3D7CF9385B6A9D97A8218BD4794973C6A3FA1EC46DFD87B060EE +1E31BF21688792DE4185FD47FF77F1FF585588FDBF32AD84DEDDF0D41B282A5F69A2DDFDBFDE +12BD0FC89170A079726741B716D137D465BFA88DDCD94F99A883BFE88B4953CEE3C22DF5B105 +E21ADD3878492893105BBAB9F31CD7D220D9CD208CD8CD34CE4B00C699B3B2EC2D25AE220092 +830E61C9AD74CCCB258182460B45CB6288D6ACEAE64C34E019C113B30D48760673F7FE7FB046 +AAFAE5EA600DD48F1054DA450E5023C1D678C606E010852B36514A90DDCFB1CD5DA1F65E355B +6206B25CAB0067E6180D758E58AA5E42055EBFA6A32C30F4B92DBD76D336DB0C3874425A0DBF +90A353495A37986463128C43E47C0EE94CC188C12A7C98D730A175A496FE37B34D462EC804B7 +7E11DF1C886DC9632887A6549F9A3577EE0DD137743AD9F3BC7239AD293A9D92580D66945006 +F46CEEA48A0E1CBEB0998A54D9637684E61D3270D63000D2CD324A422D2B51ED04CF94B77340 +1E302B84296D28583AC58043976F5836E5F3F13905BD57298A572CAF6585F461462570FFDCE5 +8F2831F57487955581E8C745B88D1C979AADCD72EA0350537C70FD20C841C54F2FF781F2EBA3 +37BC0486514F6952523E6F23D0535600FBC9778F4AB6C86546C9DD2989CFD4C9951BD64CF2A0 +19F5AF16C8950FEAEA65CA66C46E0FB2E67903B8C5CC992883E7ECEA47B33951CA1C34E4EF3B +79CCA81A84A070FB40DAE719C2826191A80BDE2CCF897FDA03ADAD5F5DB2AB698689AF103DAA +9E0871A46CDF51159304B23EFB4820E525550191938D1ABFEF25777A0E8B4392CEAA6B0842D3 +2B74025E9A845C0BE70CA9BC2BB7783E87F3BB715E3FABE40F5B26E0A18DE0A4DCBD9B39C740 +06560D3E650165EA077B96B7A927D8445244BE96585EA3C1530C52815B94A7497898D96E40CA +324AD0E1E8E239BB935D29EB6C4F4B4FDDA87AF039A4E295454FE2D7634956746668E6592563 +A030941721C25CF99C0D600D8E11F8A70A5ADBC19ED407246C36185F96A361FC08E03D6DFAFF +9B627D4A58D84A8712AE75718DD6687B27800B49769741909206803437C8F3C6392E91F99D43 +2534614549F7B38F0FAC105400DA540C097824B6F08696FCDCD85BDAB9ED2CC6528CCDB6A458 +D9DA94BBA671F16B18FB02FE02BB61A0980EB906D63B75F0FD699D0BBBEA1CE94CDB79351F01 +05AC43466B86CF720DF30B58075658C0FAFC338E3C3F80BC0AA451EE0A5E90483AA004D82DA1 +7B191FAEBC30B99F0048B65770BB12CD9A406D4DCCC095B6AC87CD319C38A376206AB6B39042 +622EF76EF8DC9D30CDA1E9D5CB92B9BC7C1AD006B484B921F787310E4C81D9D739DF8804CC33 +0168314C43034D9EB4CA8A6D5E06FF75E69EED5C7552560264AC4EAE484268CCF9B37C4314E2 +841BDC3F55B9CA5A7F8710F5CCF4AFFFDACE5C54C1AA4B4DEDEB6A7109B2A387D3EEC5F6A644 +0DBE12A67CBA56365D022E71491412842EE1DF7ED821A50AF17AA0F2F3A504B793694CDD41A4 +8F5607D3FB397E92CA9B99D1DD938FE4492788B3D0A53055199A16DA891583A7557B627324F8 +EF2BDEB7C62C3D0864E5DF80F98B69342029C0F8532C37FD4ABC3536EAC810DF0D99623EE070 +A9ADCA3D4010F706531D3C3A36C530F314DD9505482919C8D3BCCDDABEE24DD41AFCE2551AFB +E2D07A626305F564855F74536F00CF58D37C5EA4C813EC44222A024388F24E79D0C40C6344E8 +015AEB8292B1EB0C5401231B5B236487C6CD76B620C9B09CF9690259B54382317EF8E4F35C53 +1F708AD3955A789FB90ADF4408291BA5845FCEACF570069C8807C0F3A1637EB6827446FB5F9F +7F7FC0C526B7ECCA603EB7C22711BAA1C7DB0690831B22D073FFA69647F09077C8DE57AB5B81 +2FDD4000CB697A7539777A9AFAE6A7CD657E126F6EAAF0453A8478FAF6D553BA8777A9A6CD74 +85C8B866CB5EAF88AEA5241CE7AF2D659A032C4BD04697B6280D9B4A588B867EB515A40B73CD +C1D31A603874FDF47FD1BA038CDB48B15D7025432CF203B592568C975B1C0F0486366055753B +A4BCA995670C1B2F64374E4084ECAAAC3627E16F20A71E86FBD229A198A3111E1461834C5868 +DAA4EA3177C721A3C0913D5308408D8EFED7B26D325F567480514758A3AA0CFA6169BD3FA588 +547ABA652DF49E23865E0A0A2017BE1A487CC99467D5E9F0B7EB9E0DEF91FCB02C8E519739BE +3029B5301299193672DD9750C200F84BB238DC374242E7B2CC8E50E1D6E75DC5B458E5ED2976 +CF4B9CE27966045EB93A96848B7B59C18965F1DB0D7583C1D15732D7608627208BFB1EAEFE41 +EAD5B0D143A4DA7173A21234CE2E35F318AE326772F8DE485C4BA3029A6B548B959C6FD67A2F +A96FE649B1559C01727DBC99F44B97ADBD88560EDF15AFFCA0536642B83D53B1D6D2AFBF4474 +5F7368008AE64AECEBC42CA1564E09EC789DAF2327B6B95AC62D579C2DA7F091268459742E91 +FDD4ED5BCB1A148DDE79680C879C63B8C3B3C09D439DCA297780E06E918F6DEB10A682E5D1C8 +7E13C8771E0E3D94CCEC3D6F20655D450E16F47E1B2E69B8491F396DCAACDF121D672AF66BDA +3746DDC0C315C63E1869343BC37CC1AF5832966EDA0341504ACE4755D1560D1FD82FDA474FB0 +8C08DCFEA8DC8F082109363734E9DC40C2406D3E367CE5C68049F8EE08F3EAFAB906B71389AD +9202A4B05420B8F5508CD65F2E959A890BC89DF2BBF978F20D55FA7ED747021F906E798323EB +89137C1147734CA9298AF01533DA3DBB9F63D7898F8CDF1DFF2BAE6E9453A649317716D9B83B +A91C2B1EA40B148F6147F33C09D2EB79AADF5960638EAC4D0BAA04AD64BE3345CE864CB43A54 +1C00F7FFDEE56378C633557F310489D01325CC28013E5B31002F5009DD99AD0964D2D03D7C59 +AF05502005423D2C11AD300875F9175A8A4A1E715B7FB84F177FF7C6807A0954712DC29A4B65 +788A780E1B4EF6315CDAC8483406A1161564C4C2751BAB62A71B8B0AF416838CE4A8E624631D +D18ECBBA4F18457FE83DB63C80607DFE4A094A996E6C78C8687DDF7702DD4434D278657CF3E6 +5022EA86132E5E014BC42D7BA3DA9F658CE1526E49A0F9B7CC612EB48D4F39515D0461FE7732 +B7ED59759188717A5FAB88EBC279CF83289B32AFB53A3E07AEEAD7852A3DB4C01E842A06B716 +50E8A4D9CE7A9396A652291322ACF12EE73CF4F9C112E4173DCA3522673C9590057948CE9E55 +994BD76C1607A6D1B9406098D9BFAD0C0F12B3658E1DBC3FD0CE0AEA36772177D57FAE8559BF +1B456BA07E07CB5B294066307E7211A5BB4DD4D33622E00AEBEF231CEA1A9C4B8303E7903024 +1F513B6FFAE309CCC2FC575954AD8C4D2921631EB8A0B3E6A11361D38EDA756BB45B19194FAF +264F4EE7BBFE0C58FC3CCC03801672B0723034452340704966FE16CD988C8F5C8DB94AC317E1 +A84A05214F21DEE6049354967B361D13B16D1CAF96E2E937709D646EDF20E07F6E80D3D3AB6A +87E542D138BA07B8D6E267243EFD88D999BFD0E59B0873F434DE0FF52B75D9CF8C52A4BB704B +32CDE52D47636FE090E2F581BE615A0430E30501F3BF568296C9B7A0B6B8368F25CC14819127 +F6B0B84661A9009E1A357C535FFA2BF20827822D178704C7225FCFC9C3E56FD2E6B7D960A355 +91995278CDB8FB4803F1E4F0E0F3164690FD3AF5277479F28A7A87B4458CC1AE2658944DAE5C +D5EDCEAC31D35CE7D3BC4B7A8E9B0489156E29180AF1801E562FCA2EA372F6F2EF5EB22C68C2 +0312D5630880877F306AA2788D230E777298706C06ABBD66DAB9E07E32857440ED87A5F27DBB +BCA2A83F06C36766DAC5157A61AFABB983291839459DC527DFD2D3279EB90CFF2EA5EEB7F887 +650045FF1B3626476A57ECF1EE31B412CAE9B70BFE3AF78C5A80F4BD3C2C51FF04F4E58DFCA3 +84D5EEF464B5DAD0685671B44FF0D7A2D7510ECF0EC03AB933422083AC71FCCF42F11EFDBC0B +34C46F188CEBE8CD67A8CB8A07CF3B3C7763DBE90BBB00C79B3F60A3E5CB9FCBCA3E5F02CB00 +8B30269C7633E03CE86DCF927BB5EA72D4D0F45681D2AAD53B48804B4F58DD486420201E4EE1 +06ABBB00BC0D25B60AD467432CFEB032D3B03DD49D5BF950B5DBB360CA7518709FD5BFAD6D12 +8442C8B622E02DD600B11DE193AD2A1F1BD38294AA59C2F5398BF153D2BDC4DA073BC951FFAB +5B3886FDE0F927B69F3B1570C8C9B8960A710B151AAB35BBD8C1AD0B367C7C05127AC9C43457 +F6FAB9F58BABF3D2E949912982FC8DFCD57729AA104B5330D1F7AF7649FD13804CBA48C4CA06 +A22C20A037EC7818396784212F4EED4E4A7C364DE8D06CDE91DCFC11A6606027FE24E8A17CE2 +44C10C518FA9D653B557E970185C4A44111427FEE28996F454FA7006EE5C08B2EE4A37EE0F74 +E257372872A36BF8FF1F526123FA081C072AEAE4D44FC64BB2E23BBD5B47CBEF9B1A338FA057 +5B2832E3B645D89B8CC375A0F76823FF24CECEED1B30D2DA3084C0822A3DC72272014DD893D4 +3D55043EF6B10ED5B01E0EE885B0F27C437C903F639131587A69C41604C96D6908C7054BC74C +FC6D5F318365F86CA0E3FCF54E1270DB6127CEE8CF501A28675B151B3AD78E0C667FE3637FE7 +6F2510CF67F8ECC5AE426EAA9C0B568AD9173EEDD89538ED865CB7ACD95A52BE60FEC8D714DE +1C90A2AB092FBFB4FCB354E5A08C22CEAE1DF168385C5A5141E662832785B6F3FCC75C794C2C +0A285A1980604CE0C775D83599E18F6F4F9CC8116F19C935BC20639E8F4C770B86285022B618 +3ACF3B3190C06A82042B2D418E105C37B2AD12D2DA25334F6B745127EF83DF24C8210CEA7EC3 +D90C61F754C193427EC892A8B7EA2F9F6E0FD1F6D65049FB5EE005A56BD73E2FD08E90F77D7B +841F762CFBC1AC1F32B3C4A0FA7C2D309D4373BB9333FA9345EDA6A9EBF8D84ED19128C657C8 +09311D8ECB85E297C6A670B9466B8A536F2994825B5CB158B19841E01117DC1C7471BFAF7A2A +BA07F3863E05F39F51D398C7AA8B96FF530674731357CF0A77A553CF6C899147ABF15836BBCB +3EFD1CDEDE7CA12DE8EEC874DDC22914FE40E82CB662667B6107E801F7A40345C93AB8465503 +473AC02625BEE0BDC2A8A1B29164CE3E87F102B8C6571F8FEA2F922F294638AD89ABF7613DD0 +297E37F8C06B41E89DA368A031C38BFA1E7A6EE270B41A8A843535CE6DFF97155EE36B1A7442 +3B238CF87406522C07C11833828002F368B8AEE892B8AFEC49DDF7D957D00284F271121379B0 +4B81836112A5B7B46B3E27D6867BD21BEA93204E6AD3AA60B054E0ADC31EA1B5F03AD3140377 +355AB317EBD8E9CED44905C7FAF1B0DF376A624B3F1477E677F624C318914D99069C9DBA4715 +65E17A023466BFFB861B63CB4453B290FD2C1FD013B2998FEFC4110162AAC21E73A6176160EF +9034E4834A5684AE26476EC15475C191BE63D7E8053131B08703018E776EDD65E15330951F62 +6462BA5B8A5FE7867D2DAB73B6A428CCBA189CB8C19A4269A0F9045608ACB5B66BAA6BB30F9C +F7E8CD9E463047D0F884A035136357008ABDBA946D6B33C91FAAF2AFAFC4AAF62CFBEF60F1CC +BD7679390A061DA4B9E80B42773DB33B2A3740C5D442540B2183D1E392A6D1322F8AB95B9055 +9A5E2D64E2C445ADFDBAA2F8155B2FA73A0C191E08B531B6A1E1D44FBA0103FFC8A904D03FCD +3C2D63AEEB8756C0AA3AC94A28251EC477D5DD5CA5652FBA4D99BF6934E5B2D67E5051157048 +1CCEB177DC632A34CA6737422B4A9A60689F060974BD3619F4549728005664393DCE5C6E99A9 +1395828E8C1D71567946BD28712E3E163CD88E538C9BD7BD214C3381446188AC9778EFA940AE +A7608236611FE3C217E2A749E16B8D5210BF9FCCE467BE857A8FCE45877A304B1BCB7AF47EB1 +FEFCA66737A32D720A53D47901D73D1B3DFD38F90F82E225F662848548D88586437F442AB8FF +1FC1E2BACA61367A6E5F62369D698B511F9A5415DA3E9701828F9935DFFE387381D2E0DC1604 +8CC1A60E2ADE2D3E0E0D1962ADE055AA616BC17669C27487196DB28B1A5318E86811AB502E4D +61A4E13E62FC16F0CE765415C89E1F03B5C0EE898177E8883CB823C41E3B053ABF01EE4C8193 +99347EF27A906CB77A74EB6C9C9200FE251C476DB2E3BB802D4A9EE27AF846073E29C890149C +C54D28F967FFF1856DEAA922129EBD683DE9F7922AE96FDA11EF8B4F333F7D959EAE1D181A08 +6283ADF7E3EE7142291695D55BB580F13C0C634E88F31F63E01BBCF80B654DEFC263953DEDF9 +DEF8007AC5CD5FEDD58977F3F2061B70495F29D4788105B793F6437678853D57F5AAC34D7A86 +48951C3B72B80EA481037EDACBC7FE2121DFF37D2E64C2A51BCDB9D21BEB428CDAD9576D78E9 +B177DF9D17117CC51FEF359C086109CFE65A87BE81F08A715F2ADEDEDC27CFF5D8AB0D95DCD9 +EFAED4F460789880BE2FD3DEADCDBDFD479C7319D99AA6CA09BDAFD28809BC823D83674EF65C +929C9BEC8153B4641CC4DE7677309E8BD1956AF86973F90736365A1437167E967C1CB72FD563 +7207F5E530B6ACE7667273E8408BDEA9B778C6E4ADC6E8F16BE12227252F6D24895C677EE8A3 +06D1171EC7EBF5322D2B71D14946AD975D34A4E35C097EC0EAEB5D94F0D504037E84E1BE0546 +529892F061BA4CE46A90047C20109386E564770BC63C09A6BD6549A52A6A21F5DDE51894B7DB +1244B5E4165FDBABA1BD25DCBA6F6D0CA5C448E73872BAE4BF36E2E86F9978D1F5B1B3D4B891 +0B6AD8054F5E5EC8A60478B313AF58BD3D3FABCF49C874AC9D2E28428E3D32A61A4C29726E2A +B42150EED796E3553B4717D2C854FC750BB32E0D0340379ACD262E270B25D95949210C5FE2B7 +CCD510D37CC98487098BF5DECBAF58906A8E675A692225BA1206B8D9FE8DE4DF069E9907EFE1 +078C117A8F5AA3EB34A957C97685250CF693EAD7FE539F7C861E12457410A2E7A72A22C8471F +A1E99468E5BF4252447C74124C0F6A596C1629FABD81DEC2F42CDD284BE9C67E19D5C8617422 +6B0313FCF6EEF1E9DF90A191F01768218BEB2967B870E5C715DB25FCE448FA7E5EF21E9E836C +440B7BEC5034DB284F6F6C42A631CD35D88252B40A229248E859D2C5FF3226E9ADBA3BD11A61 +F310AB2FE7CC53865D6BBE8FAC21ACC03B99CC4AB1867C8B7AAE5705CB968DB40FED6D1BC12F +92576813407B641CD3041F7766CE95FE3BA41B7460CC35C206438A1F6889D0377F4F2F1A184E +029DF8A2C164FF76BFE7E28AABCF048A6AE84BF6BA0313B314155D312A809AEAA2DD20CC250D +288C598571F52AEDBAC97E413299467FF21715806D5DB5B0731E06BE6378DA28125F0093A4CA +C2CA852D2731AFAD09DD0B2D14AA795629999DBBF3C198E9AFCA2C3335E66478C1D613493AAD +D1B935E94CF4549E872AB71EE32FA0B4712E9D1725B2B660035DA0D7B711BDB78680A918345F +53A0659F4C3BB3A513F6F7B0126F2E1EA62E14CC8DC443725024705E4688DB351341AB03A212 +7E507AE2E92A3D0A037E0BA2AB254927B59A5A09D2BE4E0794FBDC0A783C363C6E09CD746B06 +A879BC9233C6F3A10E383E3FFD3C5DED9952410E39F6AFD518EBD01FB8326B1EF38F2B9AA2D0 +7CDB7CBD226A267D0862C9C2F7883C08BADDD74A98598BD6D1182433EFA08E8BD42EEC1ED76B +93A5A3DF21EE8936567781ECBD21E088B4EFA57EF67863F6C4BD3FB7A540099A0DB53F992CC9 +44DE5A14A794210FB5200157C05A7C69B93C9B797FEF46F7E6E7B60FD1556A322D7DD513BAFD +213CC116BAD897917AED8966DB5C26F15058E2D579EF4DDAD255A46FFCD06DABC2F333EC8489 +7A10C6D4C035CB768E861ED22A5E52718AC0A4296ED24D012B65300A093B31BDC29F84E3B5C8 +F6421A41B7705614DBA58E1559C28B9203F80A83A12C7DA4D7A6CC6439842A4B99BFF41D628D +973B5C303106984CE0C4DD5608A688D9A8DFEADCCD1582886CF43569DA137AD93C330A150FCA +86486176C5748EEA195A982925F14C7E6F6E0850A00EFA7BE44408F54AA88C0AC8BB0C965F83 +C1CC04F6D9B039DEDD635AB479649111FEC617D4710DCFD954CE0AB9A9A79F83DD57CF3A25BE +9BBB2DE1CA2626293CB4B006676BFCEB97F44D85807B579BB6A0C8F63D33956FF472F33F4813 +E506BBF7CA7E6C837DDBD38D827292A21743D1F2A171C6EBC6EA8ABDC4571E202D88B2C55AF9 +36ABEAE0C47BBD1E4E8F07365986472A78311265A8B05896840C177029C68FDE42D645DBAA2D +A1AB22086D6FA2F9CF7C61B95D22C65B41760232C7E383493CDFF849D6F41821F86B5810DCE3 +178E326C4B0F3B385C0BFF0A6E4DD37AFECDFA55D4939CFCF730B25AF88045F2A7E0218A69A0 +DAC8E72C891BE7040F96AB35CE0215EF9694F1EA5E9280EC6B244DBB6E6CF842537DD5D882A6 +4EAFB04D0F59075DB6A10DB1C51EEEA67AF5CC2A309AAA70AD1935F5E4B3C0B3F77704C456B5 +BC01549744E8F8E0090DA54583599E2EE74AE3438AE881CB7A152EA38489929C7A5825BF2C61 +F08B54FF0E1947332158B46CA36A98AC92C6761DC2E5FD257C2AFF10F70B55376913002F59BE +04A4031C519E155A812C0E2E8FEADCE60F0733BAD3861ADA89C5DAE32B171E1405A9681E1CFA +B7A9D6AD12D77EA2679B734B57944F91F5CFB9F6564E0F60D9249EDDA4F44F3C9482670E4789 +DDDCAC688D848BC32C03D01F21CB496A08C3AEE2A2B17EBB436AFA7706A8BF426B5D0923FF8F +1D6A4295DF604EB716B92442AA590434CB5F54760DCD8D6E29D88F3118A5B9BE981B647003F5 +07069FDBE6766CCE777C3AB7A524F7471715E4A162B35A46ECBA34D7FE83220ACDC9AC953409 +9A2911BD3CB618E2E393ABE599F238168F1D2A749ADD3C644998CC9A6A38E984EF1CB6C979AC +B57E7DEAFBC724AA011CC06803B31E3B987B3F3A3DCCE81282B5BE0E1E754EC52DE90D230D7F +329DB90198247B0534B91E5697CF395A522D73B04872DE91FED13F0B36DF891745C887524B81 +F46764CB8444CFD401CB60098CDAF72A3DB41048A273505F7F817883190E5C1DFC6C5667082C +C0B5C7526F62DA98E03B7F274F190A9400ABC3A06B1C1D8381AD1AAC9E86A7559CE6804C02D9 +6DC71D16D041BA52264C1B51C1A104B4D459E30D8D253C270E8A0EF92D0B7BD51AE0B2C0D8CD +48128CBCF640E1062912E8AD848EC444CA4CA65BAC16B16D3C6E40F88F008D3B8D404B676763 +F8E93B162F7CCFE3A684726A7EFB439D9D04894B40591E112A9C31879E765A0694D0F15976CF +F390B7BDAD118C7DBFEFFE49A7E8C5E3FD4772211BD2169083C77DA0B207F9F69549697C4BEE +C6426E13F979C28D9EDDFC0987B2441E182EA8CB6EBB269F3BA80EBD10113C294CC69A72BF2F +7E79D35D6870DB019EDC7A4C0EA131130054315FB54445B0EC7E89AF38C2C819020814B6037C +CA4ACC2FD07FB6B6F9F25DF25DF7C41213344375C92D812254F66362162483E726AF0154021E +9E99CE3C3E8E68847FE667FF3066C7C686E3AD4EFC49737551D2F5807FF1B00E3C9A8FA5584B +EE8623E0DCA16B183E74816CC31A40A00A3C175210768521CFC17A77CA9E7CD8D484B095E355 +D0B65B33AF9E49E29C51F8D2A5147FE39B106ED0B2783905086061331C6A35CAD34F8D915559 +CE80EB1AB77F481FEC696DDFA922AE68BA683AF10EB98A386A1E1F5A4B9AE506AD3E775E71E8 +1A6551493A4316F1A6A9207D453041686BCFD37F7A6A276524C2C3CF9DFF0D4C88F3A522D070 +91DB6FEB7E064DC1268D0C54B2213AD6B6F6CBB55B2FF3203350CC292BF741646F83F68ADCB0 +7CF368620A815525BBD00E5AEFC97D77DAA0D2DAC23FF58F55F9189CCC9A1EA3C2EEF0881DF5 +015200CC260E28C674C69F54C5B0FC31CD23E65BD902A0C947E0601EF651512F3F35519B65E9 +C12EE5D7958943D411F79798483D8917B01F1FDD65F2B3FF8CAF980D7E4E1DE08662452A5765 +8AECF1D2ECC747F51860D8A4E0DB0701371D60658B7075C75E7A0BAE4F3362222C7AA7EEF9A5 +E4756A2D4B952A9A417FB006A8374E5C63A629FA7A8F935912A079C179504659E28FD7CF3854 +2E9BEEBC954896E38CA907011C5954F82514FC61EBFF4DDF517309540110702B7324AFB58087 +46EBF11951E571111C13990AAA601868DE50FB6EA3A6D27CB150BB2B137ED2A9F1DA4DC1CEEC +502D3686571BB81AB58FCFCE1FEA7B1FB05B3814251F0D8BD58651E9BBBBF92C2F344D0E3B09 +5EA6C21C6A1E7318F38EE4646C3B45DA1A8C721C5357CE0628A4A805664367462652FDD7BD14 +018EC86C9010B16E607AD9468699C914C313BAA40D7DF3AD921CCBA932ABA72E905E8717B35C +658B8B71A0DD910E8672CBF84C3AA449C178C040B459B431393B546CDB360D479C579F228C85 +A62EBF713194BA98EE48D32EDAF5B71B02810FC31D42C30BDA5DAFABB1EA8BF49FA5149C7DFE +A5B70B2D5B251216B565CFD8A83C4BB08D53218B505A6B273628DAD0FEB52FE7DA75DC75296C +806A1D076C40C553232E31D3264CDCEB93F674ADD3EE1096488ECD1E4C80C2BDCAE5697B2A62 +DE74653B2E37FB317035723013838D05497D1D143865148A40C9150D7D4C185EBC03C54864E5 +A47434533AE9731057FAF76BA4DCB5C970BF2EA61C3B5426DEA7127CB5D261616E0E29ECA0E0 +9E8D2C4A8C9208A4B025280CCFC2BFA46CEBFB4E369A7C83420DA94DBBBDAEF162211B4831F5 +3B81411FBFB8756E292117F21410D1BD928E6A65D1EB0110BAB53D598E6575E04DE118175480 +A840D2DE363EC025EF75F787173119791E12D1530368A2B5FED5952A6A792FA4B18C88F50B7F +60B83D9A664003C21B40ABFB7CE65528BF0C2A394F01CE0888E08BF71C268FB4EAF05619DC54 +2B9C7BAD4D1E35A8511D5F4A695560DE73C45D3DC0DBE3D84EF9C5D8F359E4992A5ECEB45267 +412EB8E3D7060B37B9A4F944A7E65746B22A4B5C4BA3C97F408FDE17A8F25A5D4655A902FC76 +E8C88E0954BF28202B711502D55EC9DEA1FC492ECCD90FEDB4C2981A663E00EEA23A5D789A3A +124A04E5375A88438CD011B852DD8EE4DFF43137E3A2B5DA03F000F913BCF04F22835A2D2CA4 +AD05ADAF748B12CAB5F0E054B4898E2831C0D06EFC75889934256BDAC2AE66748F67C814605F +7575A6E055D5E9499AF881FEC1BCFE5E0012A20391EE3A5ED77AB58F3DECD37D9BD147A2D7C0 +68A016A0AD93045E9FD05988D9B688B5BCC33A15145208D76DD449E34EEE9D89CB81342EE7F1 +4B02E05F1C477C17B66981431D30650FE7F138147E369081E2735D820E4242318AE4A1EB32AC +E6BD10F9B9463023B1C0D147E671CA4921D8C091250C7571A78D6FF4534EFEBCD978CF33436F +5689B607C73293573D2F5E512A2C05C993EE094790BA8FBF7215D91A405C476C857957688F99 +B2307BE0889220217F5296B24EF6E337975F94E659853D0D6D39D16546A8A47153F92599238C +AF2CFE4D3FFFC27F6AA52F799EC0F972CECBD8EBB923367DC12B98D74B4DEED33BBA7B71BBE0 +2941D6A705990FA05FE72017CB53FA70FE1A75E723A5184D9314367F593FAC11CA09A1E500AA +CDC2613D995D9AFB325A23528A9ADB2E634E7D5887E8479AA4BAF08DBF854562F04E4588812B +6778A50EE8F12EC452D4844302E448192CEF7A0298E50E03BF810480116C42EE8DB306705519 +BE5CD3A1E7E609A9FE4AD24FF16D6EB1CBF02715EC88A5881D01F58828801295CFFF27CE200A +0B0E777FF0E9CA1E621ED2A65D667ABC09E7E50637A901319976601E5F95F52041BC303671E5 +DEA6A32EFBC4CD2AB865D0297CC53E79C4C54391D046F33B207C45FCBE1470012D408A6E0AC4 +1DB57155E53317C47BD417A703DF65AF8FA518E9A73EF374B50089B6AFCF120519DE4AC052B2 +A40646DCE9FB2D66131D7FE251EE903E098A198C62C853DF57BEB7017F79000CC629472BCF94 +17704B67B06FEF02DBBE5DC4BE1D263CB60A89753D6ADC5BE156D85C0BCA94F6B2DB0138FE0C +9EB6B033D4413D8ADA525C01048FC91ACD74F71062D88433FB775B27B9D70123852AE01A1276 +2051021B214A24A6AE4C4B9421DF5F5BA72547C7C6716043E6398A58D1C2B45CF3B156A23ED7 +45EAA938C47E622801BA1773A5D139BF9E22D50FAE58151D36AA73AB22B666062F9BE0865CFB +43550BF7898AF70C4B59A61E54232F47D8EE344B9C23CE17C24AF5A682428BCC54F6403645B2 +25A1ED3F4CEC82E3771F57D4EEB47428E0FEB09C596C6CB675D80A6FB783C37C147BA3DE4595 +4D1A80695B9488CE004BCF21251629D398C98A4FC5A118C4DD155B07F1E94EB2AE354AF970B9 +72AD7868816028ABBB1B2B996570FB68894A03B072865D009D7812A068A8DA4F851962CE7F81 +C6847A3C0A79376D8C619F364A755C99FD81DC0C06118C4E07839D8EBA12C202321814D3F6FC +F92DB0DE61776D3E391667744C6215593BC541835E0B3B4374532AB118BD00E610D0C7778095 +4FDA14D50635297D3004AE2B0CFAF75630D1C4758E12E0B94610D7288C3C698782DD20DE90AA +2623B664A151FEA2734C47ACC8BE1AF50EFA97B19FCF42AB6956F9FD5536DA9E4C93E197D2AE +F7C912F31E0F0F150FC6E64AF57A01B551739E02A90F56C348DD3E504F57A482DBD348E2A61F +E1E205E600F41DCDD1A5D899BD18D27C0EADBCC528B4C79A834F35E35172BEC6F458B48F7B33 +93BA975C1FF26819F7F52947A214A4E15D5C722BD9F60AA70E5A9C261BE49D8E768B6915F13C +AA3A1A919A0C972E9566391223AD59E6F95AB895F009A6289897F74D2638093B7A3FA1A6DD29 +E88B04720E9A37A7BE6B3F86E881DF431F2048AB7F498DD81DD8A99BF8B66BAE385539009B43 +06C7B0D7EA72276D8E93B58649C965738DD82F56B21D191DE5FA521B52D33873B531D0595322 +5029F08A2F0C3F8D101DBA4F9A6F8616E74AB8B81EAF2CFCC663E73D1C28EF9F920F96D09080 +225183388539B69786A2DD4A7AC0D83ADE24A046F50D0F3C3B34ABEA6F53404BC4C687916206 +D84A84B46AC87F663FEC527DC9A716BB3D871E2E036D94A7F40E6D7EA34759107D564FC39ED7 +7AE2ECD1FE1D6FAB25C5AE6E71D2D3F1F076330A25C084CCAD0B10032F79B26ECFACB48D4E80 +7E9DC348BD67BEBCE6E128E9BC6B79D65E4D0A26479495670BCDB7B9E566AB2BAF63EE95A575 +281F46B3BA8C6782227C6AA76FAF79528CA29E31439882AC0A2F98E92B64720CBD6F3F0F748C +C35DABFE742278EC9C6F3ECBE8FAD32C29944945B56B8ECCA9C05A77C8CC59E8B34EA27644BE +AC2B5461AD86DE3451EBC7A3BFEA4CA302FD22E649D1ECADE36651E7F8CE472E0A4DF313B7FE +D55A7127741D398F38BEB1EAC954185C09FE12EA88626269DD13B1560D5CE4C0F54C84EAF1CA +FB9ABADDF6767492F5E1A71E5E44056CC17B51F4B7175807D9E858275315AC6D7BCEA92DA6B1 +09594B5E2D71A02210F3CA0108BB567A465A01636F619A34845241641D5ADEB8EB9FCE17098C +5976957D26DA617AAE5955714B0482F7371C19CD1E228445873047245501F1FD5A066789856C +7889EF4B6F0F290E57DFC2AC64E34E7BAB6D6395C0FD92D5EDA8EFA9AEDD454E3EFB5F8143AA +0FDEBCCAD6E8CF80A8EE0FCE31834CAF5CC472485D32275AB70BB954F0DA10929A7CF1A75AA0 +CD3158966AB83DC510A0D8CDE46B708CDDDECBCF84B2CB761B52671CD7FDAB8844CF61FF08ED +7FBD96517B4BFBE62B9E461CDB573C09D8B4EC494DF3B7A4391CF6B700C19A469F9F6E6ED85A +36AE90B6AB85F6579244EA812997031F788E1092C0DAD564B0CD034AFAD47C901A77D0B55DF5 +6A33683058BA5AF39B237C53D39BEB1E5F538D665874E658E02A38E4FF7FA1E3C4A078B3F60B +26813AB55FF56692678F127D989D294F2F5C4E40670C97B1BEF5BFB0B35495279733D6042FD5 +72DF9A68858D87BA5C02B830DA9FA6DE282F2373FFD61348969C73081661F1EDF4CE025526F7 +DD9AEFD5C3B44CCF8C59599638D5B7653AE1FD881654898B4EA63463C52511969807F7A31F01 +79D135A4A0246B3FE2D61CE08000E535E4BEB1D924EB918507E84077E6C3C12C1EEB980F9831 +5460AA964B400C3BF46EBC09B37761EAC1CF4EC54D290B313ADA1016A77DA601E85C9D89BB6B +ECC6DB4CB6F0ED628B258A923A60BA365302F31DFCA78C3C465B819B94C205E3896CE5E0A9D8 +8E29F206B03E1515B3B38027EFFBFF57619987862B08F08ACB1FF8DE9C31E46B48E093E4F8CF +3FDB7EEA6972691ED91BED943E66364AFCBF2D2D381D36573390312BE17F49FDB2DB80F0E4D3 +AA7C717B3235B04FA668640090BF5D95A0ECFEDF4D928E40F7D7F1336D544DD8EE5DE636F12A +4144470BDA42A582C82AA3B907729F2ED082B8C49A5F0D547F63C1B75167EC19915A088C1DD8 +656751732BF4B2D4A7DF014C67D875551BF08E7E999359B55A6B7CBDB4339EE4A22B0F1F4A28 +E9AF41E822AA50BF781A53870E4FD4D2B5BD4B1ABC39E13D19E6965773C10E9B2980EF40EC99 +586CAB4EEA62D0B70707E6C49AA4A630DBA80C1081DFEC4ED0203A94095074E7C0A1BB223AE8 +3F5ADAEFBB3843DF703055529DCE578432DD4611FF45C131DD8DBE335CC255763DE8C54A0386 +E80115503A4D9D3777838A39DD16B86BEA764D16ED333107C8FD129DF66496D923DE6A4819F3 +743EEC83A8C57FD4F109FFD06B8DB7D8D69FE3FBDF4AD37F7AFF0E01D4C24D537DF7FF0418C1 +CEC6D5D31845C417F22885E9B47C780EDDF575B04872849A3E65DDD7DEB8E194C30ACEA50DE7 +8BEE7F3A6511760697AF5D62566A29B56D19C92758DBDA513B9B923AC75BF06F1FDE235BD0AB +0DDC8771D2355CD8F8DE4C1188AAED8F0DC738F2820FBB85C5928CCAC3DF4F218F29AD6CF69F +7880EB29C2C1800E6AB65CB9168AD09F73AA12F9F750B2A7F458D0E029BF9C563AD15EC22FC5 +A7A5B8B42D58D9AD2E1B76C778CC6C0381F2463177507D95181AD954317A5E460C1C5D366889 +859A6FBFE8181F20C43953ECF714401D2CE752DBB3E62AE7319974F165ECB26A808BB4160AFB +16E63E22E0982DC832CAC775F42BF183413A4CE70C7259332AA795DE9F98DE81F6BDFB0640D5 +3BABEB191BBA2A811F7E804741F71A74AE94D3F3511B57CE79F83B9B53D53BBD93D2D4D408B9 +DDA5FB026C33A1D00BF3200E615CCD06AEF19A039CBE39BB7B691817D894F971D42AB62441FA +B989363B989632F3703FBCFEE817F32881F6BA4AD55F6142201B5EEB06A9D18E324A2FE540BD +2576BE3C6C88E26327B52F20A1CEF9A1744B42898AD4681D3B404C092F8335DAC6FEF439E311 +DBE5E467C9296CD79BAC263A960849F034D886634FBC393450D600B40295CC4955DD37542665 +193899843C5F8600073DDE6DC884165605DD7A4D9CD62B8737C0AE00E22BDA68E2297299F7BD +7BEEA9F5AD94EB658631F1C1AC62990C5B756C160C0AFBC9BEE8EF24EA184B0F70183E2DC626 +CE2CB5AE2BAA622A686860B92E62E081EC6D193B6D6084DE0DF9E852D596D4E7E962536748A0 +F8442496902AAC76E3511ACC3AE65CB2C7B0121F7E6D5F979575C50F6D0B4E0C64E638FBBBD8 +0C0F73F4BC73597245D4EE3AA9A9B755DDE243AEE7E3A34D5930EB9137530DC703889101CEA3 +F7636A0F39BC2721CEFA0878F77F89B1F71327BCF3B654ED6E4D4181935429875485860172E4 +B358340E1D7AC1A6405D2A3F8F2DCEF3B719A58710C9A50347206C73981D74895CAA9214D6D2 +594671F65D3C98C345494A882AAEB8D8C9F599D6F7CA165FDF228F20675215872201312D092A +148B4117E1B2DFFC57592682BC5649C7B03B3397AD261AC1B55D2EA5A4192F37C590C3474B2E +651F69DF92DCEE441D8966D8EE39CBF1BB00B833FA50EF26C920972A44BAD442C0831C4BE900 +31E168002E71DD2943E2A82BF1F2D566E4FDF0B29021487CBB7AA82240B5E7B628211EE0E3DE +59EC0552D78DBBC411EEBD07899B75DD0BA0533D103C1426C1AA4491EE386B9A11D59DFCE50E +438ED3F8A580C4F26B9912B56B8EF6D4464525B5D3F83B68A42482ACD8A51D8339808EEDCC5C +6533B490602FE901DD3D263F2EDA6809846DA0947B25EE2FC89D0AC9E1BBF6E665E4BC3EF4F2 +6630E044D36A86B036A764A5FF54E1158A59C5D46CEE304FFBA7C1DD015B92F4C8DF6E8AB257 +143481D7EA0431A65E0EA02141B213F3CE175B6C038F5F011873B432E23C7BCF8D4E23439677 +17659421F44290789FCFC3BFB1BCDA250A82E6BE1E2B2C851B6685C3FDC27532C9D3B138B3CE +E04670B3F7C2E33EE20D5737BD7E7DB1DC93157081F6BCC096408F99D720051AF67AD921A641 +5BB3A08E4A6308DC0186EC531952ED1BF76CF1BF157265FC4D415E1E548BE98F7690EB2539F6 +65E1B777D4EDFD02A2E5D9180005BF634DF8913F431065DD2EC6BC906B34676599D9992D362C +A1709CFD29ED7002116D2527109A94913FFCF358B76AA398243603E979ECFAB1DB5D986BA7F4 +A28C89F08B7D656E824F6B7CEC52FC0DD1E050C820C1EC3A22E37A1294137431608F4089340F +038CCAB6062009315BC27700F4715C8A510331D7FCE3F04B960FD7C1D934DADA0B2600BDCEFD +4C9E67FB1277D8D8A0D16FAFBD063D13AF84156FD3D41830C107D7B3A9CB9C0039136A75D38F +66DC68D5AA3B1DE8A88BE2556C8768FCBEB6AF39ADEC17A9D7E001AE4BEA1154F89A82DC29FD +6B6EE811F1CEFCEB335C39EF2AE30000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 + +cleartomark +{restore}if + + +%%EndFont +%%BeginFont: CMMI7 +%!PS-AdobeFont-1.0: CMMI7 003.002 +%%Title: CMMI7 +%Version: 003.002 +%%CreationDate: Mon Jul 13 16:17:00 2009 +%%Creator: David M. Jones +%Copyright: Copyright (c) 1997, 2009 American Mathematical Society +%Copyright: (), with Reserved Font Name CMMI7. +% This Font Software is licensed under the SIL Open Font License, Version 1.1. +% This license is in the accompanying file OFL.txt, and is also +% available with a FAQ at: http://scripts.sil.org/OFL. +%%EndComments + +FontDirectory/CMMI7 known{/CMMI7 findfont dup/UniqueID known{dup +/UniqueID get 5087382 eq exch/FontType get 1 eq and}{pop false}ifelse +{save true}{false}ifelse}{false}ifelse +11 dict begin +/FontType 1 def +/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def +/FontName /CMMI7 def +/FontBBox {-1 -250 1171 750 }readonly def +/UniqueID 5087382 def +/PaintType 0 def +/FontInfo 10 dict dup begin + /version (003.002) readonly def + /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMMI7.) readonly def + /FullName (CMMI7) readonly def + /FamilyName (Computer Modern) readonly def + /Weight (Medium) readonly def + /ItalicAngle -14.04 def + /isFixedPitch false def + /UnderlinePosition -100 def + /UnderlineThickness 50 def + /ascent 750 def +end readonly def +/Encoding 256 array + 0 1 255 { 1 index exch /.notdef put} for +dup 0 /Gamma put +dup 1 /Delta put +dup 2 /Theta put +dup 3 /Lambda put +dup 4 /Xi put +dup 5 /Pi put +dup 6 /Sigma put +dup 7 /Upsilon put +dup 8 /Phi put +dup 9 /Psi put +dup 10 /Omega put +dup 11 /alpha put +dup 12 /beta put +dup 13 /gamma put +dup 14 /delta put +dup 15 /epsilon1 put +dup 16 /zeta put +dup 17 /eta put +dup 18 /theta put +dup 19 /iota put +dup 20 /kappa put +dup 21 /lambda put +dup 22 /mu put +dup 23 /nu put +dup 24 /xi put +dup 25 /pi put +dup 26 /rho put +dup 27 /sigma put +dup 28 /tau put +dup 29 /upsilon put +dup 30 /phi put +dup 31 /chi put +dup 32 /psi put +dup 33 /omega put +dup 34 /epsilon put +dup 35 /theta1 put +dup 36 /pi1 put +dup 37 /rho1 put +dup 38 /sigma1 put +dup 39 /phi1 put +dup 40 /arrowlefttophalf put +dup 41 /arrowleftbothalf put +dup 42 /arrowrighttophalf put +dup 43 /arrowrightbothalf put +dup 44 /arrowhookleft put +dup 45 /arrowhookright put +dup 46 /triangleright put +dup 47 /triangleleft put +dup 48 /zerooldstyle put +dup 49 /oneoldstyle put +dup 50 /twooldstyle put +dup 51 /threeoldstyle put +dup 52 /fouroldstyle put +dup 53 /fiveoldstyle put +dup 54 /sixoldstyle put +dup 55 /sevenoldstyle put +dup 56 /eightoldstyle put +dup 57 /nineoldstyle put +dup 58 /period put +dup 59 /comma put +dup 60 /less put +dup 61 /slash put +dup 62 /greater put +dup 63 /star put +dup 64 /partialdiff put +dup 65 /A put +dup 66 /B put +dup 67 /C put +dup 68 /D put +dup 69 /E put +dup 70 /F put +dup 71 /G put +dup 72 /H put +dup 73 /I put +dup 74 /J put +dup 75 /K put +dup 76 /L put +dup 77 /M put +dup 78 /N put +dup 79 /O put +dup 80 /P put +dup 81 /Q put +dup 82 /R put +dup 83 /S put +dup 84 /T put +dup 85 /U put +dup 86 /V put +dup 87 /W put +dup 88 /X put +dup 89 /Y put +dup 90 /Z put +dup 91 /flat put +dup 92 /natural put +dup 93 /sharp put +dup 94 /slurbelow put +dup 95 /slurabove put +dup 96 /lscript put +dup 97 /a put +dup 98 /b put +dup 99 /c put +dup 100 /d put +dup 101 /e put +dup 102 /f put +dup 103 /g put +dup 104 /h put +dup 105 /i put +dup 106 /j put +dup 107 /k put +dup 108 /l put +dup 109 /m put +dup 110 /n put +dup 111 /o put +dup 112 /p put +dup 113 /q put +dup 114 /r put +dup 115 /s put +dup 116 /t put +dup 117 /u put +dup 118 /v put +dup 119 /w put +dup 120 /x put +dup 121 /y put +dup 122 /z put +dup 123 /dotlessi put +dup 124 /dotlessj put +dup 125 /weierstrass put +dup 126 /vector put +dup 127 /tie put +dup 128 /psi put +dup 160 /space put +dup 161 /Gamma put +dup 162 /Delta put +dup 163 /Theta put +dup 164 /Lambda put +dup 165 /Xi put +dup 166 /Pi put +dup 167 /Sigma put +dup 168 /Upsilon put +dup 169 /Phi put +dup 170 /Psi put +dup 173 /Omega put +dup 174 /alpha put +dup 175 /beta put +dup 176 /gamma put +dup 177 /delta put +dup 178 /epsilon1 put +dup 179 /zeta put +dup 180 /eta put +dup 181 /theta put +dup 182 /iota put +dup 183 /kappa put +dup 184 /lambda put +dup 185 /mu put +dup 186 /nu put +dup 187 /xi put +dup 188 /pi put +dup 189 /rho put +dup 190 /sigma put +dup 191 /tau put +dup 192 /upsilon put +dup 193 /phi put +dup 194 /chi put +dup 195 /psi put +dup 196 /tie put +readonly def +currentdict end +currentfile eexec + +D9D66F633B846AB284BCF8B0411B772DE5CE3C05EF98F858322DCEA45E0874C545D25FE19253 +9D9CDA4BAA46D9C431465E6ABF4E4271F89EDED7F37BE4B31FB47934F62D1F46E8671F6290D6 +FFF601D4937BF71C22D60FB800A15796421E3AA772C500501D8B10C0093F6467C553250F7C27 +B2C3D893772614A846374A85BC4EBEC0B0A89C4C161C3956ECE25274B962C854E535F418279F +E26D8F83E38C5C89974E9A224B3CBEF90A9277AF10E0C7CAC8DC11C41DC18B814A7682E5F024 +867411453BC81C443407AF41AF8A831A85A700CFC65E2181BCBFBBAAB71645535A2B6F0F2245 +8E1429F4A67307E01F0BCF6F337E0E2AD89658D880B04C26306F8179C8121B958459B923AC3B +05B594D8AB95F75870019130442FD29578D44F5690BC7281357A5041C8A809A59D0DEE108E2A +07D406656BC74A9F3317CB887E71231846B2ECAA341F8692ACC2D14ABABDFBCAC6F35858355F +1D3228B0223EC73AC56F3C987464DB829F243E304F4C59CDE3EF6EB53A4EF9BA91510CB89A34 +07261F58A2AE66880BA98FC1EF546112892494C85A2C39F9DCCAC5766725894A7AA148E94236 +0AE64BF3A4F1F9F0A0D0C1AAFDC4D50C52233AA595B7D0CE557D4A01279029977FFC0A0A70CE +49E478E1AEF488A4D8BD4114A926D90CB46F98444851CC1D2DC1972FFF3E90DB4A4A81EBE7FC +EB6C69D380A5EE9647B18AB897A594DE74C88F232BF32DD00046A4380ECB8AFFAC4B002C5C2A +AC563301BD897A5A78B0CA3A9C1AF8DC621295C8347DBA931CAF74770D36B5A83ACEF1AC37A6 +63C1F2D044D5B33F5DB4AA98C11D4724DF232B9357D4608CB212A2560C933A35268DB88BB3D3 +699893F78676BCAD44FC236F12138C5283068C009DB5A8BFFE04BA77D8369F8FEB0C40F635D0 +54BDC5352640FC80CF72625850BBF8012F7729CC93DEF2977844ECFE11788F40E38DA7CB8CE4 +D03F54ECA7E2DC5D6AE90278331561127E08C831141163F73F18EE35A0213EC9578F10EAE0F4 +6FAD84C4DC2C6540BB80A97C5DDF726899A5119E6398D10FFC59ED145F70A4A87A2C9AD6127E +87C7119AC3D8DD6B634B2ECB59D298276CDDFD62701966E35BD29FAB919190B51028F27ACE06 +34879FCE370AAD73E927BE33C99FFBE2E62EA291AFA9CAB2E25DDAF8057381370591F43A6445 +6C9F65633F5DCDC63708B66BC891BD626F0DF84C279D61A2F21A9D0E69115553486A966C8A0E +0047E64BE96891DC448FD95C318F1A8A58B51324D140E15B826CA5A59732493E6D85166915BF +4D4F635404CFA8DE394D064DB6905C2D2EB09206574236A4AE8E3977A4A560013424C6557DF3 +8F93C8AC0BF2407D4AFD1B4DA0ADB77A8CFB364DCBE6C556F9BFF8592CDF9961E3DD19AC27DC +B21D54D76C2C56E4BE6E0A07451BA9970D09F1EC2CF74E22984040C2FF6F91D563DE6BF3FE0E +468BC604FFDC6184BA82EEB41724EA884AB993BA6A8E2917AE83E971EE0277CA8FE2889AC5A6 +94D95A3A99EF13CDEF5844B63B06D9DCC158778E17EC01284E9F94835CC84A30EDA707C9C547 +22A60FA7C1C6F8E58F9717ED2A0C69E79AE0DEF8D9213D3EC30A49EF762D306FBB26BA2BE8CB +96DE9459DD0AB200FBC98CB6AF00F9D7A11B6FADA33D5260AC992D85BCD221952FFB0DD4C51E +8CFDA97649ACCA932EE298FD4BC755FBE960990130553E6A58929136AEAE0D9D8461899CAD39 +CEC68C923EDE858C89A80280AA19576850A4C17256BF1823001383B110F97CCBAD6ECEC3B11E +39917B7A56B655E7A23F057F899F7E930E9459A8E3BB214B2C6FB3FC3CB6D2C0EFD11F24DBC3 +305AE378FBED9AA9A79889EC9360E71873F6CC224F5F2D1F805A16A4B827C51E12923A080E22 +C316682A05685E090D1B9F6B11C2988CE0BFEB1AA635356F0D237DC947DAD94A0D5351F058BA +6638A8A8365918C5CBAB7CFEDCEDB9FF7612ED23C2B5B40F766934201435DCD1829D5E3E96A3 +27B69235A7D50959476258473307084466252F25F2AA418ACA2DCB97094964222702CD732116 +4CCFE2E1F7A245FD601220CCC1DCCCC5E63930F400B61A38AB3B5D463AB3F8753E39D4722B9C +F8A8262C748E3454AC6D7A0AB4D3EFEEBD2886674ABCF1AEAE0AE0E053C70C19A6739EB3DB3A +B2ED7CB62CC889ED622D229DA7D3FE978C6B8D10880EAB2DF006A8B1C258067127D1E9606C81 +735B0EC4CE8D5FAB82DA12442FF32F6D91DB14EBA206AF5CBE6980E689C02C8B124FA96BD1A2 +C103D6C536C70E2814AF25ACFC30E134D63EB6C808CADC0B7927A44B4BC0F808CBF6E7651B73 +B1300B38621DAB2C0397163E212EF3740AE7E11EC61AFDE0348C54DA7A32E8B1A5B34B69F2E3 +243ADD8B20062D50CFC80B76B34A5F2BC3C7511A01746104287266B6202EC454DD0213D89829 +33BECD2CFFD8FA5A94D49BD562A98B410938FE9186F82663FBFE3CB4E95AE983990D6E95AF19 +7226F907939274187FEBE2ECBAB7D1CF7C00914B224CA21AB15AAB161512893319B10FA554E5 +4ACBE826ABCD965D6F51C57AAE3C1207C76A869648C5618B5715F7B97B020AE8469AC8227654 +44A42031A66ABC7F4D3AB3C43414070C65512D0E1151453D0D21D6A811EB404094783FE26703 +79515EFF5F94D835884F2D54EBF1E5ABA3DFCECA0ECC9B65263029ADFF5D3612DBE2B505550D +AC8C1D5605427E16D2B8D514A5DC3F4526689BA2C6779E874E760A7061EFEBA2D2F59412A913 +9BE7C62503C118CC2B4DDAD3167B81C9DA166F83C51D6A5DBC4CD435F1ECC50227FC048C21DF +58B3544F2E2EA6A5255BC910E2884486E0D156FB35849CCF3D4A66F89254E2DB3985E30509C5 +35C522DB740EB4E19B5AB4E2358DBC8723BE4407E39603978C5ABF6F93245C3AC10CEE59735B +95201C54631B7C4B374A2DF5B0AC3D4BFBA1CF955EF441B3DD0B792E272B6FDD095F77187F2D +4515DCA52AC2F2446D89F9719B01F5869ED18CD3BBADBB8199F11AA7856EF965E040F0C437D5 +57B4C983FCF415D31E30769B9AB36EAAEDFCA917F326EF3ABFA9A2094F02D2148B5428667C15 +2C3C55B248E5AA0B920EF2C723AB546286F15B78FE57601D2B6A29D074317675B28B96DF0AB8 +B4796DFC89BB34324AB6FD7DCEE148C0A6DB342EC8C770146D49DA9B6EC638D50D2908794979 +56180673B64E86FCD313800168BF8E4A027866AB39A289EF2D30B7073627E0A519E1CF116CA2 +B31F869B0A84FF864E4FEA18DA2378610009CA4F549E0856E52DBB28B7214AB5B75ABE7958DF +09BDA8215DAF7AD7DC40D72EB680A9F9150C35ED8900CF2D8F93444CB4355F72D948E5E9AD71 +6782A7AF2F1E72E7A78210E867CDAF5025938B7820AC64EABF96C078A0D441FD63EBC598CABA +CFA1A2FC5964DD28842A3A9EF86F8D646088A2A2414DFA5062848C862D6EA49187E9AF740492 +5D23B5A589C66C6726C9D365A897AD0FE89662356413D12A4F450935900DB1555468FA19DD6C +76BF39BB1B5F2901F9D419CC2470439B9AC6EB1D102BCC28B84D8E09D5BCDA50FB568B924F70 +A1CAC774634360BAD5A0E2309B8EC4B280AE3835AC594128C527E99288314A9A0B290C1AAF13 +94D33DCA6E3F45708E8EE1617111A28A5CAFF9EA2729CB5F34D91DBE7D4B59A1AF2BB564D63E +5E63DE568B36C61230455AC6742CC8FD14131929AC69F603657F204F1FB3ADD39F356E11A61B +69384235FE2AE6C6849778E06EBD401FC145FB024450FF3EBAA065241449F5DBEC5EB86ED9C0 +610B59AA3E15F8A1A26B23E0AE773FC170C3E1B4FFCD93C3FDE174B59D161DDBC0215F3120BC +D3C46472B27BA5FC640C92E32C93D240F25D2BD8B691BD8A43DB0F7AB9F56E117B04E93052EC +55AEBF4BF18C1C2C26D581DAE91B1FB05C1AC6AD90DCE4D0A2314C42B0ABCF12234AE4B201B5 +F0C0F3FEC3F1B81D7017173015CD201400CE58854A1211914B375A4C442261A395F466E64931 +A81C3FD46A74C327C9383A2F288C499E47A19FDA070600CAB5368AC7041987980D3C832BA1B2 +A972F620F89C789ED86A81CB3D88B47FAFBB39BFE57AC349BE2104A6C6B6721165474EBF584E +70418996340655735D623B6791011E8D2D4C3AE78CF72F15ACDAAECC701361D896080F3AE3D0 +3178F9C794F2C8E460910656C095F1264545029F813FB66310180ED6F8140C43DB97C7993737 +B22D60C7D92404AFAD4D76DF07EA1DEA167CB3852673C48CCE0CAE365821C467236E64CF875B +937711E484816E288464D98E976FD46F1FF7A75F85EC946F320EE33CDDBBAA090288B11CC70D +C10F021E87784D9049BF5E0ABDF4AD5B24644454EA5AD610F90CD2C36AC4B7E08293697C4F2E +E7453977625302BA73C542077A90E1D69AC8B421B59A3267F002A4D6FC1436A810E0DBCD6207 +6372981FB9F2DB91571A310E7F4122DF6E58A2CCF131B501BB34856E91814B1DC14F432D164E +41A9E13D391767353DED575E78CDCC28057881B4C4FFDA9E457F1EB0C1DA743817107D4E9FF4 +D6498E44CA8494929889BFAB9AA51FBF21819018C902DE0580225D7D01B64614BFC5C091D945 +541332C86D52693C09A6C27233611630C7EBC5211E66E292C7E805BB8A539C2657157B561BD6 +00AE06DB5FFF0DAA0EE0C4A7B52F979957630A810DE53193D8359F799138B31B2F0CBAD60656 +BAE3AFA7F4D9A7B9C3F281829D102A5E467D1A1F233F0C501BE68EB8802D06FCEF7E961A6DC3 +7E6AF0949C920846761C56C6201F894BF0D82E10075C2759A2F6C68EF45A828A9F138D1D8988 +D67CE6123926079CBDC50EDE6672370FE1B68051BC7E6EB72D204C35895112E5ED2F5B8A02BD +1C185B9382804F527565A717FC3EE547C4CF0BA57A00FAAF6A50CBAF2C6A57E781941652DAAE +7537B4710DECBBF86A6D6C0A868A9A339F21DCF01939729284EB1A8D6909E9106075C43821B2 +35241AB36304A8F9555599FC4FCA3B7E7DDBA80FB811F8643E848AC81A08CA0ECC96F90D1F67 +BABE0705016C55FC6F76A5FD8A9F2B11B32251257A3DC424A8550001753CB7154A36524797F6 +CAB4DCCC87766DDEE4B31725F5F9C3BB9FB3D2145DAC3D50437D84FCDC5F32DCC7D46BFDF514 +1326EBC6020BE93B65B14737D79205A54996F88CBD305166C12FBA91F6098AFB1F19DFEF9B9E +652153E27C328E9346D03B8DD6906E1580333AF5476A9087F7297E6B959ACCD94D27418BA7DB +523E431CBADF4D5E7DFA5D86644C4275B8287798C8C52620D5474A2A0FEFD4BE538D307C14E8 +4378C66FBFA5694E8C804B404E40988CEB1498F766AFC4E4DDF98332DEB0A4C269D672A137D1 +0586251CA213788AD1CD34A5378BED38CBB7ED8480B187C8A2356B7ED53AFEBD9D44777022AB +3B6AF1B04104FAAD09CE6053525CB659040EB12ED2774EE017FD43B1916BE57913AB7EDE7548 +23E928380ECF4E37B320760FDF2F49171E0B673BE893304D661A7BD892FB46331D09938D8353 +77486E707D44B130ED07FAEBF479F5E46166A48380A89C41333F45F68E2E52109F420E01DF05 +E581970563CF557C4FF2A82BB9551D24B472D13DD9878990AE1B6E90FDB4E73560CC95A32CE0 +E12FD4F05E723B353F1A39CAD8F00F3E519C4ED7475A690783ACDFF79C91679786703D7B86D3 +5F0FC89930D448CD3E28CBB47557BDD3A57A7C9B54CCB4E356494DE3AF662ADFA38436C21507 +CC63E7AEDA5E3C979C5235CD762D77AE2AE54D0FD88F88F9F396318256A2A60C69873FE4A282 +4A426685A0199DEB1D52A60207697BE44823B434680B288501A01B67C57EBC0A38BE2DD68ED7 +EA85BDCD1440F8287DEC9B18FC89E616549C06540B4D979C8450ADB18260EF70D488A1607A8C +7BFE279B9C88780C89EF152B9A920ACB173CEE3C74D792394E9AD9C1CCDF6C49481DA0DD739D +C33DEF73650FB0CCE2CC0417F67FA4314ACEAAA92A8DD7B0BFA94C5B99B7C48D732A6367F540 +D87E6D6B6676A84338DDCAC71384860D0D3954705A408F5E1183CCC603A784A0693770B7AB32 +B69582514CABB337B2A470C00DB7166440E729525DC1FF683FDA5B6D85703F23EC78A397302C +0477E63F6F7AB3F29BB7DC0849E2754E42480F27EC01B3F08E17C55657AA158C215836D4659A +58BBF32F7F7D73F879CD9D9AED28DB7D393189EDBD30C0E473D99888C406F7750589E6F417E7 +B073C7A3470D79885CA41743F24A00A0298126DFC06D4D89251B04E3A0CCBF079A5C0441BFC1 +D0CCF2377043ACA0A34CA712A54A42B930F5F611F59B527EF9A36DFF363B838EAD097650E229 +1347AFFCE3E55018250FB2665D258F4F74817F8FB9E5E3186C66BC416B07E2A1123EC9D69F85 +E1B51F7DB640885FCFB7B2E3FF05A9F3571426E7A8290523F9CED780B09A8CD6FB2BA11724C9 +9032E6695F99A9429D7A7604EF601C5D43E9C75D632BE88081D18CBA84B4052A83CAF9B5AEE5 +4D1B30B9BC86F7A1D75CCDC8FE066FC61FDBF38EF36DBA560AA92CA5545BBCF306A3D9D66184 +EF27C5728EDABED9B7CE3D2BA02EE9745FB5D22C2780A6C25029DAF3D0A79E722AD311E13457 +8570D724A00B1C557B1D2D8CB6A8D18242891BF3209F8C861A71DAA099A20A61604FCC7C71E3 +89649805A1DEE1CE33E91A03D3C3BA24E1EA2FF37CD24D52FAB72D608C1BE0AF0CA93B36E64D +FA7CC59FC3677EF280F7592075AA5BB16CF2286FBCD9FF06D481671A996C450FEC7793B7B8C1 +D6842B808C7F70F464DAB3586C148F4458751F14A29E470BB91E62324D0265AD0DE5892A65D7 +D7F8DF6952DB587838B941E897456E5312955C5215A106A0799745D3E10F819BC20399C2831B +6ACFFC54393118EF5093A772AFB6D9F45D547CC4D17530997AE0574D8A53E73DB0909303F36E +1B01DD1A83D26B9BF99BFEC48D0865D48D2CE88DC4D5F81F41A3D6469DD86BB42F625CF5E3E8 +B27649DDF7E6C902B70B03A15112DE12F39D0144B1D4EAF3FB6BF87396A2683EB69A6085919F +618DA950B0287E6A2550AE86B8C8C93E0F0AB547576C954C81D13F02999D87E4B5F0F9A6F604 +DD91A926C18A6875F50026BD1E41018624108C828DD425FA8E39635C500C22472822DE0CC5E2 +AAF9FDF5B586E1EC05C9C0C11495D210007A85041C8C9F972B2293E4801BB814DAB883AA56E2 +488A9992F5DA19B58D3147DA9FF748788AE2590FBCE954B2CDD2ABC90173902DC370538C06AB +C143B3B2A0713A0A82033939786563065D52D37B7A43B10387BA3F794FBA53D62EE62BE05423 +60FC6022D8208109C66B919C6B32419B3EE5261C835EB2DDE819527AD13D661189E99629F867 +6A41DD93277887624250643CAFE3A55ED28E2CD3210FC3A176D5E56DD80B4A2191B12A3CAEB1 +2F53B202C8C2023D4DCC397D581D5BDB5233E1FA41322B4E8364EB22E2760046360945F5925B +EF2E0FA1CED35A4E4E82441B1DE3C2E71F6818158CA37C1F12F04BE73E35D28B2E35284BE1FA +15D33E2B0786832B34BB79D540A815DE059D8ED042D5EE5B591FB8BC94F509AC1D2D60FC118C +95899491F1CD9121A5A72D7CA9F552564D7236096424116A8DF7AB77AE651A9FBAAD8DED2825 +2E602EF6F20D74C0930A6018F1C87F889EE8F6B48F6E31E568200F6E7AD1DB65529DE080236E +F96DE414DE4FB002FED9861877C2774F752A4EC7F80E6B0078638A9D99FF56A3D4C139AC48C2 +7138B032C9A4CF1133F1A2CEF2F2D77FD59BF4A2832E81539A062BC81740260FBD8A915CC4D1 +5DC09D6257DFA121A24EDEA570D91561C3EE3092668FBC6C8FDD6EBBD30A45448D0CB47007E8 +43723AF1B0F31D11E5D4EC5110043DA3E40091E814E2CC9D57B51B0316387B1E916D4355D8B7 +3BB75174FE1BE39D5BAE8A5ADFAA12116AC69AB47C590351341FC8E6433C155A65CFD8EE176F +E4E5FA4485761FF55226CA44E565D115026B9763169D6BA9283C269D2E3EC1DB025290B1A8BF +F24B020D7DCA0782E7835504AA73F646FA4C547A78AAA333469FAF536FB9508C5F7EA9663A29 +0176B3E0B546690BAE386C5015C77370504EEE4A81F494CDB21B6C976164FC320F322CB6B2DA +0E159107AEF1A76C8EDAF00564555F289279B70ADCA1FC32E50F7440F4CB960ECEDA3CDBCD9E +D005AE855D483B1A83765D1E0D1EB07F3114A037FD338209D0C4B93E527C3FDBE72A6FE453F0 +03579B43CCFE086CFEF823DE17CBBD16C66683BE3844408300FB93F99D78494432E4D0C3AEBB +B6540E7EB3B2ED049CAC98624D9D3127D5E2C4956A726047433299702239D3951CBB9D91FE5A +3FCD13F891D73443B53CEF5FA897BB4B16918468A17CBE3F97750934805C0A4BC91CF69E690E +ECC7ABC7FD34E3DABEF0569A3973A9E5F2FF8B1867AB573B1F2D9AABC7384C19378CAD184E14 +2DC99243D5F8211C9959B50B581D372AD585BB4189F5F25EF8A4F6D27D088DC9A3528941C913 +7C6A49B2A131C54728019B778BCA6537E8E4DC12137C0D09D9F2D73B4BE83A60538A9052331A +620CDF23309624BB990EAD3AE2864A7B4C3E39B4B7901408DCBDC5CFED5397756E6513EF04C9 +47A77FEE6A1E802834A4CEFE9617644B29C7EEA048A1FD252A5E3A2A8E0385C49F860D04143C +77E7C0F4C9A5E9769833C7FAD4FB9603FA5CAFCB0321CFA3E7E0B8A3A8FEAF22D367EEBCC0FC +20D60DAA2167BC2938ED47367D85541DAE7E8729B716C606B4CB89BE34F1948A36F07F2E64F5 +3696F3FF980A2C4F0A1BC315BA943B4EB24FE87AD0E7208DA19C0D3218EE1DBCF4506D806C4F +E42AE61B50DB1AFFD13129F6F6A5DBE0ACFEAC01336045250D50ED31B6898E92E8E8AE7D9262 +97E5666B98E63E60BA37AB6645A8F733E90616AE2508FCF11A18CBEDA7AB9E734410D0BFBA0D +C794E7FEBF9FD06EDE8005D9B815234C32EFD73587351A6C4BDAACC3421EF2AC93EF953E7E6B +88FC428775B7470BF65060E64A15CF5C115FF9C056842B07E6D6813D56E2584273230485299A +43C0ACABBC2431F0C78EFDA4EF4B9516358D06EB2386AF8FA14FD752B618838543529CA6C3C9 +D47AC78506AA6EA8863EE08FFD213EE8F2529B62919B4EB0FC60BDDC717CD3DAAE0EAB613E64 +B649FC412EEA5D451C471145FE8803BE1717D7FD95003D951505BE01D5755D98E17604364B72 +714DF4DF7B1F4B1E4AC5ED81223733603BD876904123B650DFC28B046DAF32AD015BD469B726 +06E0E4E2E101E9A3EB01BAD6E1FC28557FD152149E2AA456D28F1771D46E1C66967D5AD164A9 +3E985B6FDE66F72B814C7776F5E95EF89CD5A1036C1C4E592AA633B8842AE79670D266F13F38 +A3862D0DA8AE104153139CB32F2DE65CD7EE5E2AA126C9DF95323001767FCD5C736380FCFA71 +A5705E481A5D1AD43E1A52A0A3EA57C79A20290F2C5BEC8A1546377824D2C3D444A0D8443EC8 +6F147C74FF7D46FDCAD020BDE9012E2D881AC67A975BD3EB129201881A69A14A73C0D69349ED +CEB11EF8679321E9B430C992B693E5CB664A96A96CBFD2A0D85A6646E73B14EA269A6F4360D5 +46CC4B209243B861F8DF412390C2B311118873FBBA08600B412E92BF7D2A99F64F6748C0CB1C +41EB348DE2CEECA11A4BC824C08D66B9CF4794A4FE2089AEEC1133F6AE941E49D5350427513F +0228BD939F7E20EE614A02DCABB58F707FED08403712D3C0DD89B8A589419E21E97451666EC9 +57ECB2B85EDA0069C9F2D2024798B0490287BB046C348C5E465C1ABABD4CDC55AE0655E6EA16 +4D9C5927753AE5FCA143F5E68A0833C639C1BEA3453B29EE19201D09D4C3E49559FEA4DE15AF +0C8043BCF45C956A2F5B5A8A69330C4CA411C8D80B12FA4C6ED55F4CEB631CD1786C9EAFCC8F +5204D1F3AC571CF3025D92CA3C9099CEF4B97986FEDC2A5ECF74B22A400F82F9D6F3BF69B28D +9A0E8AF32ACFEB52E41A8D2B739E9D5B587FF9A3B9AF04AF51A1B0FC9C65F1BD03B9DD5522D4 +1A37F23088CD83D730918B2224DF710367F9FBD7623FA51DDB3C79A0B949B3773AE85699D2B8 +79D027CF0CBF91A0EA7F57331328A5AA272840CCB9D6B6A7C9034BEF155AAD29A049B18791C0 +0E084E0D7C896CB406E5CF3CA64CA072D1C401B6D58C51954C0D6E3A5D93E683477F99E1305A +B4EBE7ADF8814A913AE41E1A84819F9EACD37951638EA88D462552467725EC4E01C4B124B221 +3086DBCBE68A3EDA3B443E85273DE32C5558746D3D2FB6DB7B04C5C48741C21EF9B9FD2BC21A +EE5AE81AC5A7A2C2AC19D2CCD3B6D983811B627F294A9570FDA3DB78163F25699AAEC2F54ED7 +C86A2605E811BA6AF18C266864B5315DC016680611EBB0D030417C8D4A54A626378DB354532F +864972FE0752C46D21D1DDDBDC0DDE25CC2CBFE5FC9AFCA9B1B668675117EBA029EA44BF0CAE +A5B7673891E6FF7C5C187236E22305F9C0D219C35D711F5FAD31875F45E2788CF38942C4AB9E +988451C591D1B2A659E7A30B472DE06F4E9F7534FCE4D982B4F1FCB09208D92EC17EF5398B9B +7FE4764662EB7CDC0F4B9F3DCEDDCBEDA3A4DF0A20C575085D85CB236EC4BE7A0A8AF8921ACC +A2073CF3F0D63C4EDFFA803800B5D3A20343C7D53115A6DA14714EFF62321CB6133DEF3831A2 +D8EE5D365942E0C7C9F23B7ACB91335C086429B4C1ACF5821C62000B85B8D4DF905DF47FED56 +AE48555139EDF88DEFDA5BD72BCB576B32903A29880385387A94B64B284621513C20C2A477F9 +51C0B4E67036770BC97EC65425252769CE7D4D4F4D95A48BEEF9B891314A64EE97460B317229 +1CB82FAE1550B528482D34B955ECD546FF6EB16AEB938A1FE03061347B7E886810D73DD1FF80 +BF4EF7F21C878251438F05B3EA1FDAD6AE5B9FBAAC7CD1D3CD08933B8C7D598167AFBA88070D +215F7BE5EBD794662A40E010BAE5904CA0EA36B5EA2FB4B04AC8F67087C5967B9FD317111870 +1E4398BB5DBF3B8C4432F7BBAC75E45B12808517E4CB025A50FA2346C698D2E654982367BBFB +0F1E489DB1AD5E18AD7064AF4AC3B21EA86481144A29F5FBE1021CD70247D5BD0D7CBAD7EE15 +0B106AA32CD4F33BE8DA68F6EC75C20018F71371C12F13360F88FC60771B0EA933D9035D1B06 +90F4CEAB5B09EAF963D27A6EFA9AD4E859E858FC0C286A43A4E0C9E9FF04EEC585289C3DE981 +550AF41FEFF522DCC34CB0C69E17A074031B8E79AF7A3859A81F5854F68206423967FF1C0376 +B5F92C49EAB0EE901DC10341DE0240946BADCE1C5D9100979075B97B2874C59ED03E57A328CC +10D6CF09FEC40A0FCFA669812BEFA950F740433D3FDC500DE421F4F048E81F48F0B206EF9283 +2F4C9B026E1B0BCDAAC900B33241CD399630AEDC49CAEF5144F07492529B29CF68C38F11BB8D +E3BA0BE1C308F831626614B27420C706868AB9476ECC822894F71B33B4E6CD668D8529E11610 +35A34A3F1F3C32AED7D591411C6CBE1FC757A13C64A7D18A8CA591AF3D3C9FB0964C9B914D98 +887F785D66225CFC5ED11B60DC0FD25C127EEA5288054AD8C2F40EA491DE3940BDE5E92F7F83 +D960DDAA1C5A2609A61A4AC70392276E7992B54B9FB8CAA5813937DC040C9BF08CACC221E0BC +88FFAB2DFEE3ACDA7B9DA9D394053CE5A37C6013582432F9A0CF3A11FA3C0C1A13BD31044F98 +66BD008AA5BEF09A1A96D43FC80DA3F04C2B974A3E514AD245D342A1E0A37F242A86EABF3265 +10D91CA012018E3A89D5AC46D2CF07916C800DE1E6F4C553DFC2CEF05B0BBA9698CA9210F421 +6284CA57071B8E00AE4421B2535222F5FE849B54C33595F7D65D32CE0835E9BD9011FF4DECBA +DECD942677070A1B050F75B4F312320D36C67FA53C79A9EEC072350B574FE2CEA2274F546DB8 +1F87B4EB0244FA4357AF72301FD4EE63859666547B87CE6215DA34A55591830B821E03394493 +009753FF7F7A3710A833F7DEF5326FAACE7B14C132E7B2A082BC0DDA50299DD7AEA22546039C +E67D0B60131165F4E3362344972CB507D2651DC1FA912D9918C27C0A87202EDD58730CF45ECF +CB99C9EED362F6FC12A35CB663A301F2C54FCCC13490EE113D7D87D48124EF0CAC4DE18DCEB1 +A3BD707E42A74D16D04296D095466D73EDD4518C4DAA8FE956E04F292A9ED1481EFF3C6EF0B2 +C8BE03BF80F91638639E473D937FD0AA35572A99BDC8C42D81D2A40202D42E1C6E4A993FF649 +8D8D899DF87D2487E60135208FDA85D6D8A625FB229ABD48E0659B783F69B267581833A721D1 +8DCBF291B51EBF2C8CEE72D3921689E5AA1CCC4DE735BFFE4C24F2BF946142FD76CA4202DC5D +F681C1E6E513C1D61335EEBD762E54CD850387F98626B8AB1D88E1A335BC5D80D25212A6A6E9 +291D92B8BA19874EF324497B4C948EDA5F958D079F1BB83AE1F77089037D1F284CF180FA273F +54E4BF1394D5F6D65882B8BD986087AC50965FF365DF162E73A9B39E864A8AF5284D01C27264 +8B7B5426141F64CC929DC464CACCAC2CD611BE7AA74E0D66E4585BDDB8AD27A0B21504A6F6C8 +BA8992055FC8B5E62C98AF956A0FB7C6E32B885C2656E98B766AEBDF8D46976CD8335A459B3C +4906AD82DCD2C48FBE9AE9EB8A90CCBD19E73A1EC101E5DAF2E7DABD8AF0B3605076C72163DA +B24811C3734CD5B9C2F210782A62F2BB5266CF28C06836BDF5B47672B8D3560A9E114A1E40D0 +0E83883CAF9A19877F8A9EB4B8A24314B558661C443FA8CBDD8EB5885ECDAE2BE452EA79602E +380B647B5EDD06EFB1D97BA59123E38740A470425F54E2A59A41D030BB29C9613B23C7886FB1 +5CBA2D9B9EBF4BF0CE6867F12959FEE2542E16DE4325E774180FCDDE3241D242763173FA8D60 +02716043262FE1635A5D1D8593CB27297C1E27CA4402E76AA598BAA32BEA1088CE5177B2A57D +4C0EA7A4F1873C71362E33F41C04BAC92325FC8884F8B089B5DB993391B4CF03B91252611ADA +781B98C149EED85EB1D3F875C705A953DD286C4F1AA0F4084EED921DF2053658E7646AF0AF86 +F722E655D6C6191AF27963FE2C540DA918F959502AA7034D07392027F4E06AB0308B284473BB +966DDFEB56D18A8D03DD87D694B9B23F5AD296CD976B6049A56784E26A8942DF5988EE225E01 +2B8682805D5D3CFEB5900F95DF3A71BC9F48ED288230D0413A8D1A581E54567D554642C18CDD +3217D4131025EC08D4FEF6375A97EA6013DC48D6AE7AAB1131C3D144C3FCD7692F07A7C391DC +D0BAD244EE122EDC39FF4DBC037F784D2350B479A133FFA5EDD7D8E9548BB9B0FE15696022B2 +476BCAC3CD908FE29EA6F7D5018803486B9FCB65174F24C3203224CED0C3701267F1DFA023F5 +45465EF84A46A2FE4E8F3967A7851767754ADA4CFBE60D4A7F9C941363A92D23EAE1990141E1 +15D8944700229CCEE6F555F816B400409F7FEF26F7D0879C12C401E16452B707ADA7494A2DE2 +D354FCB072FEED7F47B280EC4360B1C692315FD89FD5E6F66432E67AA43A3F69FC59006CA0A6 +F3132DC49EAD3D5AF65C8EE2BC80FC656F6F8F090E323796BEAEF0385887E67E0C63A7410C43 +F15F006E87FB0CBF8297010993BAC8C3D34CF01AA3FBD99DFD867D168AA37A5CDC91022B7930 +FB0547A3472AF22C31B198D4D37655914B3D9AA515AD6FA54503E0FAFA32BA19373D9E036F1E +67B9DF38A5963524FC20EC3C32232811DF622C3CF2A7DDBC4A44CC264EF2C986FC41AC283FBA +B74A14DBD67299AE5B404BB1FBF87A503DB6FF0AD768938FA6E325D416F6075E5ACDCECE63EA +D60169645DE2F6800A2F1465CB783A32741332D6A927371E929A5DDB2544CD564B9B941B3D3C +7345524F53F4BC64173DEBE8AC2FD9349D1FDA8701E92D2C56FE4167474A3F1B6547E043F523 +8104C2075CE6625E585E3AEC5E1893513B7512268AAFC556B2BAE9154C311583C14F86BF0C76 +7FCCEF8C08604F1CBA042FF84118B65DDA73E341A3D0C4515F57DD44D70F5ADCB3B4DC14DEAF +ED307AA7BF757D7D5CB7B764F5BC64F3F247D9A586C802E8BCA668A2A9EBEE8FF3DF2C38A97A +0FE8198DF19F6A16C87C79558B85BE369C8620F0A15EC4BFE01541F2BBCBF3A6F35FC4E88582 +BC1866C81025A7BE548815868E9E0746C452F7A1102BB2F34AFA918A4DFF772270C3E7D9255B +16EEC5381C906ACD513213EC91DFB56AA5ED3ED535268AA471F2971A606DA9B79BB356667944 +02C853EE32C8B8F335C1D7FF9491199BB74A49B35A1314CB59A3DE3969707D14AB9354135873 +1F7A456BE0E51952304CDB10F00E71CDE018818F49A7BB400A819DDBEA815D73B606F1368F50 +4F8CF7823A0045937F54B981CAE483B8C91988D349F18322A88F912B1E09F68AA9FF93D3C160 +B74974C2477DB9A09BAD4F1C10E617698E0480254F9BB8A4C9A2B2712747C658C53120622A13 +B92B9C9DEA123B73AA1CE8526BF0F78342076100ED293CBAE42FCCAE6D645EEEE3892339DB4F +234DDC6B20EFEDE8134D6E7BF3BDB4A7E6CBC86B45CDC28A50FB6D82F73E6B480A02E11B0DFD +84DE98AF7B3499CA7E3A710A63E8F67D6794835F50CEADF6835194C7E849A37F7A614476CB03 +E84DE23758AD8F97C82FC740013300F1252F9D934FFE0BB47152BFF7D38193ECFBCE367ACF97 +29291DCD4BACAECF34C340EA150D8D16DA16BD903C01D8F5200AC8CB59B25750A2B970B7F3B6 +47EDD5E48DB10CEE62F2325C70A8B3612034B7D826446B84070869671F8BA81251EE1C154C5E +A9BAE6930E3FB4DBCCA896184C4EFE89767E979359D7E00EEFC75C01D0FF702D14D41F4C783D +1A07892E1DDB39C973282720B7F78A5A3B32CE86363BA72D93BA7416C108D7E996BACCB15686 +130E0454C48090542D1EB511417E8798AA305FF10B4F512357ADD5C090ED4253A70D3B8125E8 +97167A9122F953AE7358838E030F39DF2BB12653C07ADC5A92A40B771F20E8A3A1B7DA449F2B +77290A82A63143544D1BF024C1E931657E0CE2D3C0A4B67F967F34E4CCBF76767549E0C9AD56 +9842606EEA4213402ED37C7D59433EF725BF348EAD3384EF052D5D217E9E14C716AB69AC726B +1991F0C8ABB7DE8AA207F8B56F4C0ADE3A360064F9CEBC8AB995B521AD5B3C431C00F8A5DD16 +F9EF848882A2BC3BD7DE968F1EC01ADA57F9EEBB85B57193D3321FFDE675A93D26908C1FE97B +0E911DF482B7BE3D6333E1E2CA2EC10AAD45F6AD78D9E2858DB5600F1765EACA4E6F2F4F1BAE +B326B8D055DF885C69454B71C2BD88A6C8E8F2D51A42CF1304568194502954E672F5935CFC8A +B7C4668E92554EC3E01DCD6EBDC5FD00FB5FEA8BAF4838AB93364DB115EBEA7227AA07826FA5 +166AF48D71FC84BF3DB59198DB5F75ED215048D376F8134E214BB6075475BEC9A1238F144ACA +DF1014B3203F1E07A010C5B8F4810E2017EFBD95816356BEA7DE7D909D5CC6B64BA154A51F8C +517F9172D8644D6202CE80C82DFA3F01DBE924BF8947C767F1E4DC0BC1132C0DBE79CB25F21C +4DC9D459F8C16AAE46B6DE505282DB2A25BF18A9B59E060BC19A656A29E2352560FE477BE13F +A0D8C8B03CC8CA2B3A49129B44C6E3217E5E78047685202CCD7615FD5DC6C69F10C1AD237A3B +9C840E0B06DF833AF884E7B64AAD30DB70DA47E9FD421FD6D74D8CB21ED90DF548627B180308 +146A1FF48CA5C3B35430F45BC3B8A44FFAD66BF2E66810439E26952D3741D95F128FE9C620AC +A373EFEB9284D63644D6F971F2C16855BD503F8EE9E3EEC82D4E281E81EB95B9E402D90FC76C +EFB56C2C9D735EF29D633F1CF63B42C9A9C062782F1FDCF3204122DBC78A17205FF992DACEF5 +F40114313F3757747ADAC5B09B290572726F1FD4640CB718E8129E979411A4A59F64A57DD5AA +1493A3CB5616520436652F92D755387C96D89F6154F5DA71E2D68C4E20BB34BA89BD5A3E444C +2ED891C08E3F4B11C8504294380439773FB282283932FCBE777357A00A54181749239FFE830C +DB6B496C7887FC96F39E9A182E7230517584FAAAEE51A3F947536C0058B20039A152D1CACACB +54EA8FB60CDE48613FA591D2D13A062257DD7BF93AE306B51E66053DF9F00763B37B84ADF971 +3E144967B55A2834CCC0D04EEE6A455E0B7C9EE3B75C371A59531A975F9C6CD983E3E33F4FDD +0F39D4CD8CCDB8AC244B317DF48C83F7ACA6C9C8FD1AC84D4DDBE468B21C55065E517DB3CE16 +3C865020D3FC5688C24E25BFE032E556C9F82C6731096534B05A845F62917E774C6655CEE505 +AB8DF7FF465F3169B7DEE8438459E6B6C2AB28AD5304E9C1E962B145D62D13784ABD1052116D +D5F3D97FC38286684207026E93A9C61DBD9DDD3E2E78BDD2BEFCB89AEBD5622713ED7D5D661A +9B7C63ADF26E1C7F97651C3F83C4319470B9C4BF5D5DD79CDED1DF353129B3056157016A3D57 +F35D8F3532A5A5BCC13C9E8871028A1EAAE09E25EA070495682C89D43C422EAE3BEA99E2ACE2 +B069165F211CB9DE25330ADF887CBD526E4743AC22FA71C5540951474F01D389273E6EF4421B +05F821204A54B72B44547E4A23C40D9FBDF85654C89F360E2973C010F264484C28951B08D1D2 +F2AF27F44324654E665887CC388DCA2D9B05CE0A7CCD9495F4154222B740C3C05EA5D2898DC8 +89BD316709DAE5CF71D819E2796A68E36103A5DF90887F8C9AA9C951A8610033D153F9573409 +6D0FE4AAD1853E02672FEBF3700B5CC2CA033C2718990D8BA4ED740A68C9BED9E3CF27762B55 +98BE34A168E1DE6084596053A1C149DC6EE1818C894055E1CF2864FF5E191E3E848386734A1D +5C03522616726BFD65A742FB608051889702DA2F07C4D494166FD871DDDD2B3C6F0710322AA9 +74C7EB2218B33EDCB3C1E924977513AEFDB6D9D9D7C5BA640C3DD7EEE638CB72F8DFD9754114 +E515132B8130117EFA03AFDE99AD87A817A79DE95D960716EB01EF34BAC8DDF1B11084E86FBB +6696DA9A2B62BF68EF83C62E7F154994E701E916EB303CA82405D2E73132BAC75C7D02D82466 +A6815A40B1A6628976BA88E4156FA760015CD199E8E13A27464AFAA4D942B5A9F51F53235E8A +C836C112231C2BC6F13A7E45C59CF5A4449F36555A6337AC9F16E5A7BF32BE568304E13EE297 +D82DD9724CF4666EA3BBC4379DA261E66C087AEE5C61883CC235416B0C817A17B195FE641E7A +6A2998031101DA7CCDE9629C0B16424C3E395A1ADA0364E12F7A186BCA09FB10F7CEB70F7C0F +26E02569610247EF769B49C0EE68DB071AD7283F329A99DB801D2D663D3FCB900C4BEE7FC805 +FFCAF6D7D850821D32086288E8BA0FBC3E33BEC11AC68D23EABA2664405934DA8CE38D96BB00 +51D30DE0381A2D576EA3D40BDA17988BCF441D2593F2DC5383A0B3CE107FEB8439EE25F4B8E0 +0FAC556446802D70EEDFAE1732997FC52C24A1A798A9D93FB5D9BEB61D0C4393E3C1CE3CF202 +0BC14891026BDACA434C11CFB409C1824B8EAB63E4A2EC74658FA75074F27D10D8A1C985CD9C +C99AA5570392B5D556CA3CDDA83F7F3C02212B895412DFFA9EF15E84D645F0DA3A2D5C32B13A +D7360AE353DCDF31992C2EB41CC8EE5C22119E0D427249B6B6127572FF8D6E4C5ABFBCFB5663 +08D3CAFA0970FB9D2553D19BDF4CB5A40D700CB119A6FED62A294C98C6E8E98AF5EDEE857C99 +7D5F516A917E26ED00169AB68CA9A2E3E3CC3FF6A1461C44808D0C7472ADC0D08702A3EE9DFB +A7A6613CEDFE14C09FA9150D2D439486D0ADDC5343D1D25905C9C66B8F8499E099C2998FC45E +CE50688D6628BAA55D1E1BDB1286E140801399E5D9D2B22B282D14A83BC4D4C5C8F00A6C0519 +F0184D83EA637FD30CF83CDD382E66D4836BC761C15FB419E65F4146784FD55195D3C9E36B89 +F42E7790A514B8F058182AC38E7CD0A6BB16D661674045F48A6FDEF1BADBC830F77FF8089D66 +417D78554FDFD77C3223F8677C6613AE65906896611AFCEA7F2875A5848380246D4A5520388C +DE78B5A88D4D322CD3AF94057726EAA855965745C6571EAF5B72CE3E9BE6246E233A8D6B7339 +5F817C46AE632762C6E7846AB4FA04B7F232B3E086A5AC242643BB43E1F9840B571217F243D3 +F2E754A42CF0524D4456AFC1625F86A17A7A5CBE3AF6E458A23596F2F3355A01503EB3C5024F +8F4CB70436BC659D9B9A455886C7DA64272DCE686B5E21891081637C49BFBF0370F34D019E9F +2860DEBA5798987DF9120661E081619F93BCC40DE41A2960295BD3AAF6FA1A18E634AF36A5CA +61B1C4A8FA60667A0D69E2CA883FD19ADEA985DB8438F58262D97FA4FFDD5F0877C769AA9049 +0B85628BF809D952E1AB36C488DF8328875C4F4B02A95DD4FD068BB1EAA379495DDEB6DB9AB2 +D2ADC7CC0321962318CB2CF7FF695E7603FEDF51C86667203F9669FC4351BB83DD99C05D8E92 +4ED846EBF92AD02AD0FD44D0F5BEBAE2B02EA85CE117E4111433B34C2C59F93F09B6679BB473 +7F47F4B9F19289B84EB0E80F8AEF34C7ED03589A9553FD69EF28F0B62970800C3A7287EADCEB +C6E4E092E1A736B3E73226674A3DEECE8B5BA7FD43265F7FBD4D1772EA18C93328E337A59B1D +24A5BB8A3E32FB678E426A8DBC69EF648F517F1B27491EEE3B5FE4F0EB4664ABFABB205F73F9 +47D7D74F63A84CEBCB096A4BFC962225C22D0A05D3A399FFE5A98B3549585E94245D9ED81631 +934C5C4B0FFB8D5BB8C4B958B37C9899FFA7C4A06096C5A433C9424A5B0FCF089B1C230361F7 +D4A40828A951E44EC1916191CA916445AAA77E55C66B80E9E39FBC85BF7971BBCBDBEE3246AF +BFF3258B67E930CB05442A66854C9540816F1D79E5F7AFBC8D76A7B58700F76AC4AC4385FA3F +C2CFFBE23523EDF5F2C818A0B7110A9A1FF414A7D74998B10CA34D050CED08215A0183DCF6D2 +069458B6D6B20690664A0C3C01C8FEFB74E98FD9BFA23EF69716A076524B0B1D9CE3628F77AE +698D957E8D4B30553DA4D48D3CB58DDD8CD31EF31CBFC268DFFA6A238F892C752395185CAD85 +A311F7ED2227AAD8CCE3C3A54D7575AA2A450412E7233D9DD85E27B6CDCD8DBF0C887D971FD8 +2E40C6E5A44CEA5B3FD1C6CAA06721CC55A9E93A7761B93BEC79D970C748065E2C9D8C021A07 +066E2C8EFA37046B12564FBADA23222DA07CC445BEF8941FA73C1CB5125A3BDD295AE8E90560 +E969AD98AA63B858046DE098C50E94FA8FD655AD589FB2A2F2DE27E6BE44A8F23CDA46F0D490 +A3924441B48A20D207689DEDA068246F367E8883EF75E139917E5F1C2DC87A617FE45822AC27 +692F6D8A9DDF3B4E924C15AD5663A1CB8B54B92F79A49FF83C2859C3D78392622DE6911DB0F1 +97B47C51594E5661FF30D67F2E02320C29D8440374C96F2094C5525BBE76D5E5C2435D4C4ACE +5F01C0E0AE96AF9D6B94435B7B77CA7543670A2ABA7120A7FCA375801AC765CD5949552F0DEB +790D1C27BE1EB8E6C07857D77FD5A67B761BE7AEF45FE708A64F54A662B09E478B7A85F5A302 +B2F27109EE41420FB9087DFF917A30DA4F0D13FF9E1A7D0A30082DD2BA2C1ACE9ADCA6020DC2 +A4F094F978196D7948764BB97E90CB0B2644E2AAC575DC1404EA9E580065585C26B9E19D2099 +F8627118EF61B44138DD14B98799DB61E1DF1E96B286F272B499851B215E40B95D1C9C75B8DA +CF3D5D7CA31F743DC39598A66C53EDD89AE799759EDB6B215C806F01AA2ADB95FCCA2AA9547A +4275A8E0AE843085656AF904C07B12E7A8AFB717116D4597174ED2D54DB4D937AA6573CFF61E +188EAABBA8281DD95C3C9E1C23F21148462EAE554AE71CCE2D53D9278D9E383C74F749C49ABF +76E173414F8B5B7F7822AD6AA01D2DA726870F3C746833E0BA19BBADED69534D605A482894B2 +ACEC07C34BA635E36AE7A597227D4B7840B0924C38AFC4C89C5E44C7D16A674234A3373EBBEE +A984D19D33F5C0069F440717F4EABBAF241AB268B5C377EEB6E8E78C9E834854B9E72D57EAE3 +1666915BDD60A181D582AD47491C1D219A487D39A731F27742B071C8B3E9FF0E816410E4E2DD +C83F535410FE741328E4E8F9D3860C7DC18BD359BC6D0E66D9CAA70AEEDE9594D0BD641F983C +33D6D1A15547304C5536EDE4757BFC5DDC34B35E297FC7376DCB2B534693530F4830B037B670 +8426C8170DC6CD7E18D01A874A5D3878B3175DB62C3BFACE28FCA28660E3729AF96E63E85DE6 +7D6AA1DA89D40447D5399903325230B0A8838322B6EB4150830124778E065A4A6B21BF50B167 +37BCF946415B89B0D397695AA9ACB498F7FED12E44B226C8B2F863D083E9381FB67C1D1F9C48 +629E22FA1128C9A4C98A2EE87F16ED9A3BE73ABE24CEF1F40E77360CBC03D494276FE9C464D9 +106132EB55353D53C9FCC697FC27EAE3EAB14EC1095099604DB1CF5F8128311AD2ED15104F8B +18B3B656054B7B8F707C640FD55A5F39FC623DEFA01B7F3BA92F17A576B12B83751F3E2C76D4 +ADB2D5A051F5F773A0A415754ED6A71282C884C8CDE39BE85269C87DAA34760CC122EC635AC0 +964E119211C28AEE7C7CC6AF855BDFE623C603C54B261770EF2ED3C25771A9EB8827BCFA41C6 +D439AD2BD33D4E08F87FBBE2FDEFD552EF3FA9AA568A9C94CCD51E8E969FEACAECFC753CB3A6 +874944480006DE0633335838EC632522D0492CA7358770667DE8F6DAEDCC3724B3F0417414AE +34E28C0FF1D78B90CE3CB24F1CF5D791D11DF3127A4A48050ED6C71CF38548B665258434BD11 +C199301A9EC952F7457B303666A45D5F2D2BC973D5B7A0906CD926582DD47BD8D41C291DB2BD +B36E008927EC60DDB0ECFE9E301186C56ABE605069785061EC265B22893441F252388E3ACA4C +EE67296676AADD462A31AAA074EB5F6A46F52B20DDF57A42468D584F7EEAB4CFEF8C7D5F11A4 +AF918F728D0AD26127F06C2194393D20EB23DC23B7A166A0435C6B8C3C4A29ADF42DA8192C80 +84552CA0FCD74647D66DA2054A62122ED06395E084A9856FC21B8811495DC93A734130C17FBB +BD52DF202C311595132AAF3B708731133D42FCE56C2BEE09227751021D53F249D89911938652 +683848BD4346A82622FD72BFAB8D2DE34C4DEE7C9281DDE7EDA445CE373EB2C04F59D5798752 +6E12D2A9FE56DC30AA7732B06EF5469590199654862F4DB7103904A18952AB24E3E7BAB3A594 +A1CCC3D3DBB16B4B350746EFBF4ACCC0135570AE21D130F1196DA2F781236E3BE26CD1EB2CFB +1452ECAA58DBCC52511BAB4E5D61BEA9AA6A249475D63476CDB2ABF137824713D2525A47E914 +EBA96DCAA423D39A44DA342E541BBFDC70A0D2DD53D38B6E14188E5331D41D60CA5F150918E2 +412A332E4F8DB9B6FDF03DFE74B5C551A261BA00E6FDE226335D4AE923E8DD35DF7AB6E565F7 +C215D8D6C5C770555186A0FB7E039DC93647D285F3848BB9FDDCB545FC606B505565C0E51551 +1929C84BC334300B9C8F1871D678ABD010172D4FCDB0B0843DACAD16C5D0D2D404784CAEED17 +02D67076A8AB6CFA2CED4825E22DE2662E1B96C79DAA0E9C744FEC1131E6F56B8022885A0555 +89EB839CCE9E2DBB0220DC8E11B587F934BFBC4600517A71EF13BF598B33DCF656CD525BAA45 +2D8ABB6E6CFED5CCE00E48A1AF097CA786FBD926AC6E72DFE9B9EC80BDFADFAD5E75A95090C8 +1E572FDA410EA8D567D37DA45F7AC57C0AABEDDFBFE511CAB34D9E0B05E76D1C9A6F542C6768 +927CF83A2245478546F6C06A06163A249D019C894BA00C7F40557769187D41344154046CDCDC +B07618424828315D8E74E4A226181821E543722BB1DFB3C45B2527D2B35B7680DE47E1AC588B +F9846088E59E34731F63E05DAE718544BCA5888C2E82D938AB70D416CD395B766EF0D715F730 +53D762B3A83D792E05B105F276BD12EC9A7BBF39AC82159A6237F9E3B7C0F0DFF71DCE7B36B1 +34C4295C666170666DD407FF8D359350D70296943F2FF83B080BA894BC3D0F2F467C079C6AD1 +55D7C486759399DA888983EC7D209E6F77BF7B2461AB528877B12063E4CAFF221B9D3D88DCB5 +6D6B20DBDB4F837A3343854A91B32A3911558A12D67147F39C54926BA594E7D30992C2F8E650 +74296D0F9D9A4528FE71CB34689752E2E15CC6C24C5E262BC5BE936B9560648A364651B5D1F6 +D0C105611377626E45CCA82B04B8854E46C308D4687822ACBC379B6EA335768B1690AD86F292 +C2EA882C5386A5EAD6B0B9EFD82EE6763F8C8C67463CA8B3541877051FF8B4D1169DF8D104CB +B37353B68D01B85AAAEDCE163319207D255D095A8A2F5C82D22B8CC7CB8C4CF46E8A29F7EE23 +161B21CF6255B2D154318AC208D49887EADBC20F627A84925CECC38129B9AAE7B8580ACCC525 +B8642DEB5F2094A530859FBDE220C497C79E39347AFC0709DD78F3D8C7F9FE771419B83BD960 +1E40AF90126F952E176BFD4F43C74A7D32CA5C6FC37126A3C701041ABEA77B6856B9CB2268C2 +C0919257B8ABF6A19AB8547885BA7E706741F48F0CB0A23F6218AE7CD3AF9D8EAE80B9A8DE62 +B74B9789906E4843542A930A9E1B2790A17E68FBC7CCB9578E9891DDD874CD8F7B7B18432BB4 +07543B860277BA71BD9C0966E9E9A6C11179CC850D1F6D4DE0CE27CA55F5EA2897E0FCBCB503 +C1FB0EB9F61E5D8C44BA27381A33895519C234FAA31FCAB6D701000702C2BEAD271CB5CA98A9 +21A111F4E256784D4C81C29856F8A16002F80CF0542DC148D575ABC3C5EC5A61773FB326F221 +A018DCDA1AFD4025428A93D009F9A1EF8817394D64EDC7873CD83ECBD46CF093DBD2124F61DC +B6A3D3393DB8B43B1A74EF030F9794218208BC80A956E80ABA2514F02E13CB4EA71E8A1D3A97 +C8B4C46CB077F9690B8C280E309ECE2A051786E098EC7E84D3A6F4362183993D43A8140D1A31 +336B685B8E5A48AF323A750F857F72345A6C1F32E45B8086F52F352A3D8870783D2AEC74CF93 +827FD5E1DFBD3713F94D198424FFB6C9BE60163D55B2DF9882C13F77304DE81CF0080D23D171 +433BD1A9912778E47833848B81A84342E37AA852FCC2FBC958A1C125DE29D46BDD703C68FCCC +BDCF71886384D51CBFB1C9992FE5C8C9F2ED77E8F9892089BF9DA2069D09767DCF4FF4C02636 +EDB6E849835CD52C1B29D93A17AF606BAF670EDA83FFD08729FF1D4B4C2BD2DB0E62D2D41D9E +42921CA6AEC19EA70F3F5A17DE217DC83F8C2E81426573BE0B65A1A90A9296A3BBD4CCD2ECDE +18A1D9B015ACA556B7C1A915D60102C3685AF23E64089A9D5E7A42A9B46E96C6FF2156023DCF +2F49ADDE1273DC951E9E28F6A4B0CA2435D139C3E9B55107784D642C0D23C802F3C21DC5A00E +4117A87C878CD8D244E880458A9026C9B1447521F82735667B2F62D8B0318336775ADA5B2146 +86122F623480796466D4227D36E6288C2562825D5B5F7E9D323D27504F04FF9624B56E3BB0E5 +A74B18E12B8F6A0C778EAA8088536E933D26F56E4263E07E144AB2D560AD833CFB78AB6781E8 +32BDE2E58D3366F556B2ECC218AD892D23BD855B5FA11C47CB6EE0D4AE26385ABF6CC8E89C56 +711AD762149CA8AF25BBC569047B51AA385BAB09A71B0BEB66852D4ADD1B83038BA6FDC3132A +40A5509DF24A5E2C58A291A27D3D653AC20C947E28E2EB594B2C035BC1E9F5934BFAD7F3594E +644EFE813D5607531036212047C89EEC75B234B39D366935B2ED513528422D1D6F284DA15AD1 +FB70798E99E4A32879B8A3D6EAF321560AE95ADCED590BB0DF9BDBEFC4F5ECC15F13BA184826 +878165BD27907E31F8B2DC4FA37E299D147F5E7BA0CF0F2C0B8CEDD38CB27C340005F0EE6E5D +10D992FF4193C2D86BF6A24343FF5D9853C293F5BCA5D099A140691DED6B981F2DD99E409A55 +6A6BC30E2C009374C1B7C1692D0BE25C93C3BC07BABC2A0971FBB1B3CD7489B30AAF4B0BED33 +B3ECF526C8A0562BF5E4F4DB8D87104D4C8043662F274DEA8CC689FC4BAA6826C7E00E3550FB +DCDA279C41B4C6C48ADFAEB21E37AA9E748EA111837E680051ACB401F28099C557BFA983EFE7 +A51E85F6198AA14C24AAD346926FFE72F20D984AB8B2DEADDD475CAFBB644420F40AB012E250 +BCCD48B9132A6E5756EBA527ECF8286F2B81E524187CC8BA9CA1B41D859631155449100E4E4B +451D537BFAEF4CB718F96DB77ED7253BB9E6FF37B82F4292021B654689A4F6CF5495B63835E0 +C0841365AB60E8CF4171E5F7A913E4E28AB8D382D9539A123DCA7ED82D1C334ECCF4353C7CAA +6B3934BD904E394F3E8F17EFD8F068BBC8D7A19C31813C6B93A58ED5CCF7911DD70E0D15513E +5BFB67C0082B965E78B562B2CFCC6C8E3034C328C2D7A68216A1587BA875B20BDEE283C0C974 +D12B68ABE3970DD8863EEEF01534F86F49BD76CD291C8BD5328F24686D3CF29D423D4736B02F +6B0D4775010F9CC5C4E7930E281F28E76302DFB81F330687E38CB3B073C35B0C5E385514AEEA +0AB62C080B55762706E81C8A29F2D9973F55370079E6165B55895FBDC618D83D4874BA610A48 +00E192F299167BB96E9AE3E39C99E9AB522714D9F31375E770B2ECA393F4CF864E0F31ED1ADE +63E5EA730CC650CE70BD6B076E7ED662044E349D44488D58DBD6987F561BD8B018199B582D6F +C3836983F84AF33AEAA65B229B71D8169E30F1C4A049A0D6F4CF6A72210686A0FDC419219643 +1AF587EDC98DC8423EFB3F3AD1E91FC22E38F6FA8FE110A8D2B7ED546C3733FBFA6789102B84 +726092CDB37B28A603AB1B907EF6B7A052BDE02FC3AE5EAAFF8A4E3E54F146C6726B05C66E45 +1D1A1D22BA4C401A8CBDD261C0E6D1C936A0A50D8BBB2E0E0405A4EBB7DC57A0343B55785CA1 +30ACAB3EC6ACD8B5B3910CE4750A1F13801EB63B937BCA7B736197E4874437CC0923A46109C1 +81FDF4345C3AC14C015B19658B0986B5A128895F5EDB14F7DFC59D59EA0796A998CC6FC11E87 +1E70AED258A9EA600CC4361CBD163B3830C989DF402A6785FAA2FCB8CFC9938D3C97FE39DBA4 +3FACDB085497C95BA07C6D62C23EAB46DB56BF91CF5A6B8072C1DDAAAD5547772379E363B7EA +E71A64D667FB482F182451BD51DCC9B89C6CE71FFD709C06A42D55A687F383742461DD1C68D7 +CF75B05C4345B842DA0522369662D9C3758C98F0D14901794C6F40863ADC20D162A8241891B2 +86F563D9D5FD68E5CD01D4EDE004FC8FD19169A77586E887ECAE628AB4643B6A6B80D26EF7C3 +26E0EBB51E1A20D5F4C2E0F84AF9BD8BF1719DFF164058B5D5B1B6C459CD7408B0E808493EE6 +A5DCA242EC20210F3AEE219C9B50F9D2595F821E547D941E50AA8A60290A48616746129A6BBB +A7BB6574B21995271A474A4F83483717248DD40FA10DD113DB0B94C0B73E7213ADD1E2F32F33 +703FF72AD175B3057486947AFB03EFEE2C54E21398574EB67678C1C8C46F302827C836902839 +45A266435E7B7FCFDF97F1E93DB89E1383A2D3CC9FB79B0D104969B1F46E22CD4D3AE165B718 +BC0C990A8D01CFEAFB231D2008A67CEF933E003739EA80DDA9F8AF2DD2D1D2D9E2D7BAD89E43 +550F6C44D03E1FF2AB8FA26CB66BEFCDFF4B2C33111F7ABD3D5EB318C5669954B6F3ACABB470 +F20FFE2D9A39BA20B0E5087CD4266BEFFC3B221C7A73D969837152E36DC9F6194717AE03795F +493FB4A8D4DF38D70557AF196C0DAEC61411529E5E33BD09947D365B6DBB7BEC123BA59011A4 +D53D3E471AAEF44565BA55171B2B8A3529DAD1CFD4696793CDE99759A91195A10F606FF5AB7F +9EEB7B3ED518EC5A2004021831DDAB3D79444B3E260CDE6582F50F92304DA8D0B744E20E097A +C7BEB729DC5B9B754CF8E81BB998F954E09657713E37AEDA94FA09450FEC4F6BBA4CB1DB0C55 +2E4F5624B3E992F49DDEB74AD2BB9CB294E8C0E501F537C0CF23BB61AAFEE1D6A1F477E975D7 +8F1FEA938C1C8B615C0925EB826223ED898C5A4E6BB18774848AB22077A2B621B73070CC3F7E +E4C62D267902A7375EED88554A973ECD2A71C102625546565020F3CAF46957CA806D76B75F08 +8DDE661207427DD02B023F340CFA2C9BBBE81995744E8A7F7528BE6A91F03276E89AE242F545 +C2BDA6E0364CFAE89BEA4ED9866C07326D46A1DB058D3F22A57EB7C3DE9874756E2D6F780A73 +B4E3F91528BDD24B653E84F613DDDF3389B38A9893A232A8BFC6514EEA7A08386307D04AF2FE +5BCC76575CDCC7FCF3F14B173E46554C5E702BE45E306F5EE2DAD5952302B912E79893301568 +DF4D61456A342D00B2A822BFD97AECA51A38D9ECF2A5C045DE29D940BBBCE3840275F8603EC0 +E29C8D7400A4D5CD3608338CA4F6B098636952B4934F3E36BB3DF8C0A5D2DD95C31E71AD880D +CE8E6CD3F6B4D2D81883C537708BD4A40E0E67DA30709F860C0DA126DC90000D5A6FC2B56D4A +BE93CD025F527AB27563A77FA422345528140F1E56C9E11A3DFDB0AED55F2D153356EC3F806E +0A9A4F586EFF56A190AEBF17D3F17185A93FFD30B1D5A7AA71C57DA060DCF2EB62C6067AA17B +C36004E88F24404AC4A980DCD9F2D90A96ED581C27204EE8386E797FC8C9A94750833C769B51 +E4BC787747B4489D2E23EF1136E9FE311642D8F55434389627FF4BC3D6663849B608ED7EF8FC +AF6BE24A47492558AD30600385697E3439740EB74512B6A510C6E59EA0F53FEFB58168983BA8 +DF386AA6252DE17BFDF31BB2BCC50FBE366E8FA2DC00F31D7273EB4BC1FE1CEEA8378D69557A +64C70887D92F49F59426E00022FB286BDD3A0F2C85D0BFDF33D2C7C09F23DE5A28012FB2E18F +47F5E39DE87497A923433C6DA8F7CDEFCC79714A9AC1DE6A721216900A817B1E18D2B94F20FF +B2A908AAC5FE9D8E8B2EAE9829DB52E29C2D260468E1AED81C0B0E51017C2C96CF50F7D58719 +A339BE972F315B7FFDD5A915A3CC03F869618F484772D0D84AC7830EF67A45726748132E0B9F +1A09D7E10A6AA7E0AECE68EC35011297CAD44F218CD8D94933547D10E417785BF34D2BD1ADE7 +42609B9ADB842792C3266F972963C21E4F5090C827A90B9B4CC20D6FF6C8685ECC90C25C52DD +ED500AA2DC0EAAA17604FBF5DB11AF06678FFCAC6AF8B7CB761848C2B417E0258FFE2F2CE397 +38D29966DD5EFA5BFF0626035F4526B60BED66E3B390C3003546BB03B15FE8CCE70D42DC5068 +F460DE895E72BE29DBD13CEDB810BCC100EB0874ADA2BAB0AF814D6FEC4F5B6E76907E5AC510 +76083DFAF50939525FA2CD9E359854918D2C92DD625B5A6624E16173D2A595E31CAFF9681410 +A24EA7D166DE3DF5345A0447F8C82DAB70B01078A378FC4E8DE20DF680547B037F4DBC697928 +17DDA4C7F92EFD32552DF9C561DC7C9D5BFF08C6B0B5B183D780CF6E89E7E3E2D365786FD8C1 +5BF546A184DE6F3DB5B37499B55B6221D6B961FAD9DB9B1F0159863E2B5DA9CB93E235BEE8C3 +A879DFCB1FB626F879B81E0BCAC5A94FC5EA849E5C8A90E700A675FD62067A768AA71C04F383 +C8458B097E6CA5B68BE4CEA339D39FF3133531C64EC07F4A517E2F5B42A1325836F324270679 +EC6F9E3B06E828762E49A6CAD73AA2A5220994C8691C4868D9C106531E380291586130CF68B9 +C6EA7FCE6A387ACF606BB42C96A0052925498C42EDD149A13CC1E752420969121ECF7223E3D3 +48A88047EA45C7791E36727A8510178CD7D027D4DB0182D7091B7C5B907973E8C53FF1B942DC +D9E9C72E0AF3131DFA8A4E3EF04A60C43322CC67620D871D31B56C7C380C5C6CD981761F963D +BD3EC946DA850CEACC1A76A7FDD6BA42C77AB127EF75CCD4B43593D9E863896DEF491F22EEEB +C512A8C7D6C1C4B4B205E106BBC00534703DA0BA4D4CA190D098388A11396F7F27E43E0B8FE6 +4918125C3B4F1FAB5F5F1DB6541258BCDA008114DFBAC98F0671F5452D4C9C854C6740A25C37 +99FC89E0D3EBCDF77C7BB271BB7BBF789481BB6CE76FAFC31B0EA63A710F5157564EF709A757 +1A8B7DEE7484F6E02475749B2DFFC3B151C9E391C21FADD2E02D1FC3466DD652652EFA7D5407 +D114F5750103D54F136C248C9E3F35BB90140B81423DEC10E4231FBBCEFC40560CD1F45677AD +74134F9587CEC7988AE465FF7E91A102526EBAFC81981629A91B1EA512B096D57838586DB250 +8C010B22594F97281BD67E7AD5FBFD66A3D468C3CFB593548AB8F4AE9810685199A59622AFF3 +1CF5EAC0F0C0D0C71CB367C6ACC21E6A5D063E31A7B476BAF04ADA59A9B3CEBF222AC83F4EBF +514506E55A5C4F296BFD942DB1814914E38D0B67CB7C6E21DEB843E949BC4EFE00B15EB52F81 +C18C1A7AA62F98535ADC26DCCF76A08FCDE54CBB8F269EFC82937F63FF8D2DB37567F391D860 +5A31C81F1A82E1C8125E590522E44AF2718A3830A6BBFA42F7B8CB71EE2E021EA0CBDBCF323F +820ADB61060646E187B7E1E14CB5A5F4EBE8084E8F8E2DAB2C25140261C0C3CC3FE280940203 +66FE6A3F5AF439C5970A5CE3A2EB586DEF09098313D45F5A56C29D1E9436C2B908991DADD7E0 +EE03B281969C4F4C9AAAAAC75C4B60BED944DCEBE8B4CA38ADF04B45D37C64D434700F3BCEF0 +B6D53B369AC825CA84D1CEB67A4130120BF8ABB0E4744740B5457B67EE624B9C6C9024AF277F +156FA024FF7EA71832404C04B28AE3933DE6ACDBAD3D895524597CD7B40421D96A94B9F4E8F1 +981E46858DFE7D9679CE3C316D659CD26105F8C5D15ACACCBF9FFD23B504F76D280FD834D4B9 +149DC6624EF65EEEFE020690F27612322A7336F4A909729EF775BF52B8A345A898C3C7388DEB +88D7727281CB44A0A2E03D589245B888D8BE0C5A48EFBB37DCD1BB62F2EC4FC84F8E2978F71A +B21D22AE3E847FBEA2E4F74F56DA970F763B0A7F895C466C33C73B069B1B726ACDD272BF23E3 +CE236BBD7BB7549130FF322D05B3330B54672D8770C647383778DC5F3C4E9C2A10EBCA92C1AC +95B4A0B019A345C730F94C1BE830FB6349CF142F2BDC2AB05D85F138BD014CB4FD4699762464 +A44B69F48385669327EBDF794BA4F1E38B7ACB6ACE0DF09580487282869FE57A78D90D55CE4D +D4A75694894FE6DBF8ACACE59F43A6730FC751B055532973BD18F37CDAD38DE5318CCE528E66 +CC1F63134DA012991E283C0E224FA33442CF350C236ED7A66E6285C5594CD82F600C5D982F26 +DDA6209D7FD8E6E9D10B26EEFBD396F45CD30F01C15570870D2C9E76AA947543C66DA5BC00D0 +7378F9C9BBC5A9CA8F22C8A2ADA2FD63EFEEDFF81E5FB13CC09532725075A716351D9916F3A0 +65E15D56B3D2A5DC3696F22646F72043DD7D09BFBAE9C6AFE4116F506BF021F1BC49AE53D319 +635590942C4A7A0EE5F6FC5245777686C149A51D6BC8A5DB11A4ADD204B18CF6DF65DFBB6DF4 +57446B0B966400A1D45E029CDDAA42C416365263941007EBFCD90BE1C1180B33FFC66CFE0D97 +644EA840131797E82EE4B0AF14F9CEF9E129B0B5700BC3D98885178EE1B0AEBB2ABAC262F34B +D24106F196BF1733DDC53379A2EB66C28E37EDB3201D0B9F314AE6B1250584F258042C5174EE +164A352E301FEBF2434303CD188661FD95008D8E5EFB18FA91AC4A942C399B2D5DF0B96D11CE +786CB61F69E13E9578167135BBCCEF9C135EE20B2A25B52A843B7ECBE350DC3229AB15E248D4 +DCF553178DD03515D52949127E2C28A02545C929A616B72F0AC8CC98B06E1BB28CA3292CBB3B +6960EBE6A4A204EC1474F84E8CF65DFC75DF163069C8D244B191274F7B85695F5FFEB78C9468 +7D2C6F4D0ACF3D1CB8282E80079182597B0BA249AFC636D3269482FAE865ECBE6172212714F7 +D856BAE0FE0813B98CB9BA878D1CC54B43CF880DCDFB870A8E26EAE8F2AE390E73FE15ABEAB8 +D4599AE1760E16A98E2AF9C46D2D3A24D0C416E0772A50979B822DFE41047BBBBD83919C36B6 +0D82F10C52F566DF4B33E5A3DE5738450BA27A45FF87FBFA7F31B0AC3A872AF69D9C555679D6 +8DFAB59A503EA845510F343303F72214D2B32D04F79973BBB3BBDCADBE5CF04B92928E7F2A8F +7731EA3DBE2960069345226F55510521D21D9587B7696010920DB650C0BCD0223AFF7CE00C8B +9A6A056C0E1613C77240AFB8EFEABD5FA3ED8DF754986AC6FCE8103A9284F64487375FE104EF +6558CD01E2B82AD758E982A72E76D884F851D92E2E3AC77EAAB7D0C7167DC5A1A8A411A59733 +854E6FD463B3B60D04AEB503E4BDD06D10AB709C6EB1ECC7CB9E91C21F4DA9D0C6C0F4DE8679 +CCE0A7011B31DC7B20F673D4A7C34A89C2D3F875B4815A291827C124B3AE1190467905340C8F +AED664A1DEA1CA3E7203555845596D6CA8AFF3622812B9A4D54CD0060E4ECE5E89978E7EF3F8 +61D6FA2C049BC61C6A74E79B44D12C3D1A225F56D0D381D859DE13D8E90AA2293BC43F2B6BA9 +0641BA629BBE04F5766ED169D41A653C3FFDB77CA5A94207BFF4D4D202258F8C16B47D1034B3 +3AEC32BE3D43E65BD6E6DB42E96BA8969D8BEB3E14B18FF4BDB155FD1D8216ED876F1AD5F8BA +CEAB108738EA933282875C487052A3F1EF6D706F0351CE2B165322B3CD58CF914F0D16FAFDD6 +6C3DBFE69A8ACBE8D6699A9B0DF41AEC67595C16B4685C177B7D3F3E396BDE3635AB660DFE71 +87C5FD4FF7C2A8D614E61DDD8C9A1DAB41E0E2FDEBBD427F9EC6635F31315AF4AA78481F359F +2ED090FBEB00DF1C751B12146BC51841B39F02662A2E789109211ECFF2C1E13760A07E354CB9 +2AD96BD666C5E9CEAFD61F1B7E9CA30C5F4B26E2BB6CDA8AE2395AD7B38969382EC38EC6CDDB +3B9500AEC0795720D130F5FE2C8B9DDAEC6685ADF419D5ED2CF1B7BA36F0D3AFAE88B3918699 +0B2CC3D596B8A27295ABCF8E21382168C6E8C186696A4C54DAC02D9B039E21FC2BBC20CCE604 +499E272E10FB82E1B7B4CA2E07CD4D954D1D25DD99BA538EC4043BE9F25095AD2013B82D2921 +0590DEA84BF4E53AC2889F1F088CDD503F36ECE6F7EB6CB76F52F5B63FF5ED9FF01BB0A1B8C2 +4D6E9D6553463FACB6D9028CDC85676227F9AADC3BCD3A63B5BB4E0E1D6F5D1C5547B60DAE95 +65552538E42AFD897713A9ABD0FD900E8ABA71A83551B7F88C583A4DA28559A835BC07653774 +B5AB6013564AA7EFBD36043E66FC1AA25879E18E4625AE27D4861F9249F6B556E2CAB52BAC10 +F56CCC7E985FA0492A1D4C7D8944E861E3B9629126C3A3E850E801E72875C0E4859EC5C96229 +D652EEDBE8BE1BEEB03C8A54C9BACDC5EACC7F3026BF6DA6A4250DD247A147AFC5069189477E +80939B1441A9B8257DA332F92758E36FE884951F1B450C36558D209FACD5F918603EB234EA2A +C527C539BE047F6BB8473CC19DACFBDAE7315076E68D3A2FA7B9E3E7240E69A0FAC4D160D1E7 +1F56BB70B5DCE603C160A6846687E861D06773F125CAFB9EE6E9AC82D9DB92ACE2E14F348D48 +C102967C3EECD220A71B3B37530F6A1C75B9BBF6804E834A5543B4ECBCB836C1475D28604C34 +4D3A4CAA1CAC68345FCC2F2EF1D12A340FBEF26E54D4F641A6693C47DD9EDEFDAA3C0BC7E426 +740021946615B3F25CAE9783763EA45C722B1AF5A68B3CF9EA411A95615C010E7FCC808FF318 +4AE3BAE69A3BA9BC3B626D918210A9544F7013781D51D8E4986508B8D0FF03442B5C15B8240E +E68811CE089BEE23570CD03C467A7BB1AFC7E1C074A8166C36D3B830D2DC1EA120973EB1DF09 +8FBB39D987A452CCD9CB22C377E959FA62C6078BFCE7B3F7D26D0B848BEBF200DBD10071F166 +C821C0D18136A27E8707A8F05175C4C785BE95F486FB2FCA75F302C3D78B5CBFA5D0A11531E6 +276C96DDD0432553C4AB4C62391D167EC2896478F8757D0C6CEA813F29DA5E98D014ACD18204 +AC3DB8E9EB0DDD73BB39C6F5D03A2B4CE23444368A11ECB5D1BBCE5F75EC6E798CE566AE04AE +353FF417AE0D4D38172313BA9DBC85401CE90DF6A13E2FB531E78D6973E1552F2800FC7CD3D6 +35AFF8229A1F5393117DD617F713E0B99F3545E7C706B6F7EEDB5C6B580ADC13DE6B8D533C11 +420178D6C2D25FD1C239F1DA89B72FCE1595C82A44B1B774279967A699C9C16F6A7A87F95C7B +8B4C3ACB831C1725E4294FF8CA9C7E56A64831E4541469DA6E3A5CC763613B3DB11FF0778528 +B2103574478674D095EFB7D4BFC7C5044CB2926C16B58C1F5B1BAA189D5EFE6C54157F203531 +E3925D4948DB68D6E2259B5E171570E9090E67FB07CBC6AFE38061519C9D7207342A1200C7EF +D42EFEAC74F3B4B63B08C992481CEB2DC99873A9945C17417648A674CCD9B120065D6394791A +D7F41DFD1AF5AD40A8165408E66006D59CA0312EADB541D3CBAFDE2505DD3CF57DC0CDA09349 +EF4F082EB092600C38C8F8CCFA9C3D1B5835F4A850D65521E0564861002ED0C58D916F1ABEA8 +51917EE08D7ADE21383CF0D156FB13C1169D1052DB7B6792A5EE899950BFCC60D01E56D95960 +0ED126559E854769F17874205C4C6ECA06800963E5C026BE2D28550DFB925DF030E0935DAD0B +E904E1771F906C13AD4FD2BA14EF69E3178E597B5C2EAFBC582F4AB3D0A7AF8C161FAA1E2686 +EAE85941F12D60C9B0623AEBCEB8BB7D19DE4A632C9DC9F77908F673544D2D3130E7BE366973 +20B76CC69D8C8284C5EF1EB6BBCCAE6BFFAB4D1CCBCFB512D8107199D4140B87F90C40FBA346 +CAB2AECA74389209090F6D92589675B5596F28802C8B0A0F6CEC54205089EB41000AE33EA47A +18B49BFDFA085A93A8879B1919392E4E984FC2EDBE6AE4B7E53DCBA27DCA63BF70B95B9B1259 +36E06AF14FABE04269DD686817D84E6F7B5FFCDBC5FFD591C559E259D2282B47E031FAF9202E +644367A1A69B56C550BA494632D9B7C0618F1F3B77262B13F90785E040ACD1FC43AA151FCBEE +56F73FA13ED708E8B266FA07A035AD5250BD91332794EE687806B27DD1688CEBFA13E7D18D98 +A279E24132338820B459522137D75071F28E72F062109209AA8BADF40168237E8B7F6500CC91 +26C2F90D7C7E8863D60E753537373F2349335502689D30D8599413D3B7604C6E9D6424E44058 +75A580C4B3216F160110D40B6D425B5055375CA982DD759BBDD16AB703F2A95887DE040CAEE9 +1AE1F2CDBFA8CF6162110A2A226F4F035AB9DCDFD6ADE9120A01A1F4041B9D7580B45EE76FFE +CF4135E6EF5E9326B2E9843984AFD1ACCF4A3543DA6A6E8B911DD16B9FE207554D9C6C676A74 +8AE2C448A19A29D2482AD25505C41E80939F4E8C8AFBD2030810F515A35152DE8F70A293D036 +6A3D875CA145CDA45B4EAF5228B105B2DABA456063AEA511C56F5FAD0E12A1972C30207276BA +8CACB5C16711A8B928780CD717D284DACF5ED94827E66843757979B572C0E747E800B1170645 +61B74FD4B1778CB7C3FB9F28EB14B1D366A845940E0670F7148751D800022240DFD56A4AE67B +DF3548CD8F2D72882F3328058DCDB39C8F187BAA19D984A464B84408038BBA4A6B1DBFFD4548 +152C2E7BD058A7699561F9065B5D0BDE03E7EEDDBDEC3C4A850A1B21CC1F9BED730CB5394B24 +D56B75A3E01B6BC67021C53962FF3424EF791172A2155F80353D5D29C71F05A6B38E2BFA648D +134885EDA997CED8270667CBB42B60D0EB9DD78B492300A30C3927B6E3705A4DE04C127920B8 +6ADF6262259E1701ADD7C35E913F794D1A5D48867B2210AEB7793F67FB3573706C6E23E86FC8 +DBF93A0ADB459728740552C15E652782382C18FB5707B2AA33A0AA8F1FE8514BF23B548A7797 +BFBCACF7219CAD93AD366650E90A73433841C515CA9860A0CA171BE10AFF2C1E99C12C6500D4 +18DD53C7CAEA83DAB4EB9E6EC1FE3C6066AA675C4ED730811001B8160EA6E1826960EE8C04CD +DE77B98169F9DAC87EF2158861D5E42D4E251ADF29DEB4098359A2E65D0FB792AE4623A45EC6 +977DF19EACF2E12C9B6B63467B3FB89EE3EB478CA67FDF9AE07CD2FCE60C77608521786282B3 +80A9028EAE8985E8ECC211630E70A8C6E847520FA48896289EAA7D4744ECFA44ABADAB946119 +767A16728C9B8F781B72B631D6982F8D8AE6134EB9D4204C207EEB58795342FEDB24B5F6D0DA +89802056B68758CE06E2465A2BEA3576C22F7387D6999B145EDD2A50DC7C279CF984E1F5365C +12F1F62CFC7E26D44F5A68F5DF71FC609FDFAA06F8283E36208E0E6446E34545FB1832EB9018 +1BFEE3186C7563775C4790A41348399518121D6515AC9D3DE3C208038D2EC19D0474D0D0E35E +345C4D5AB9D4A7B9B25E1986FC3FF0E44A55AD6E004E7847169C50184AF54D6F6559A843C60E +CEDF7B367304C51D44440C61F8E2105F783D3B2094AC5A06FADF7A8B52C40099386C01FD5B2C +07570EE47EF95B556B3B8B39143E8E259D2DAD5CF5DBC974727FE4C316DC6F1FAFAFA84895A6 +6101E135122B2A9F1ECB66CF1B74C67DC76858C5C41257AD17C7DCF2DE280F9017C7A597D400 +84636E722582ECD3D26F38B99D9C69E0CF5353C88A66DA881CD6DF237C2A6D66D59DCE95FBEC +94C3928B4137A93C74B85390E07A0A3D0F0518A88773F47B20A442A75D22E47DAC46F86EE37A +4DB1BD5E188A2AF1D61E6DC19E72950FDB0F5E329AF06135BE8A6BDD3935FBCDBA3A741BD2F2 +E73A7BB5D5E0313C764D5AD7A463C83C160D5D7FF75158A816A8997BBAB9B6A1A4434D183C44 +F5FA687FE4830026904B7F43AE5948CB18492EA3C95F94BDF7EB4761B369C49EF3EF8B25C335 +0B0D7186BA82D89A7575F4BB5E54F20C16E19861ED99E8F81D92F54D89B29105BCCD04E64472 +3133DA692A6187D4697E8D853F952B7907556424DA39E052CBCFF6D6BF5F182C6C245F1D5492 +F2E82A8CF23A5FE321FC399C6ED263C62276D25F4A172EAE9FEB6744E1F0D8633BEDFB257851 +5EC78E18B096A175449CB9585D0536A6B74DF26720A90716292B7C04DE4A7C8D5A51CB5781BA +BB8147966504A890109430FC65A3207528F386075701671BF095F0490AABFF7687B975D0A518 +B6FC4E686710ACE528626C09586CCAD8A565A1F2E73AE39569CB961C0728553E8184CF1BD123 +2350D16742308E405CCDEE920769DAA49600CC65E6D89190F21524D413234FE00597F1FF76C8 +FD96DF8CEE5A4DD53C18A6DFD4F260AC82BEC967C9E639652052F841B0C4AE72E51825AEA16D +31E0C5CB585C1827A44D084E8D93CFBEC63F7FE604828BAF596F11A3B47B771A9E4917277418 +B10BFA8444F39D2957AEEF92613D463EE9900DAEB847E1F16F6C67D01B97EA4C4E5CB41D6DAA +7D5D4DD70F5DDC13E61BBA15422E60A77A6AC3B0D50547E2F1A2CF2FCC558543CEAB91ABAF63 +0E0C6B87C9E39CF24B81A0862453AD7A4D45CB6EDEA68E02B7F0738A30B2AEA5871859B6E13F +1D804F17093060CB61B62FEFE925D5F66584719FB9EDA1CEF6FC4B30B0EC540169F6D9ACA18F +41009DE5B73C9F1B07C88BFE095091FB5C8DED4868AB2F3C663F4EE7E4F04340305E5CA661F5 +F6851D165D6ECF8C530E0F4633F45487DB43BFAE11B3FED22532B84816ECF6375A466466B0C0 +547829A84A8592294ADF9FBAC8DB9E00DC58828D7A9F5374CA60B278F44E69A0ABA0DBBD4D93 +AD4B09E331D14AB542DEDE7F3718B47B9999FCD1900A462996AB031FBD4365D1AEE0D280A4AF +BBEBB45BEEAC6280A7EA9CD9549331CC298A60681D15C4DB3F497BEA2D0FECF8B77F0BBAD0AA +7C12CAB38A881091AC3230E26D695C1CF6B23B2099243AB16DAB504499BC144F7085DB720F4D +1EC53A28D36AE77CDFC2557425963BA6E639B60B2F7FA9D7E658251B57C46EC8A4250F7D4CCE +BD12899BD902E241CFE321861DD7C5946FD7BB56A1CABD3D306A94C7E408337FF44B856FA5EE +D1B034D064C9DF32682CD724F9B44B37BFE56CA957C4B71644F0B5FC0DE21A85A5A1F5F454D7 +447FA771DC7D6E81FBEED17F4453F721392261EF23BC31A090FABA8E0CB7F41070DCF646C5E9 +7A3A5EE81F482EB11645F763716120AF411DCF01908EFB2F425BF15146FE3A884A89E4C81C7B +78218205744DAD01AEB01A058FBBB676B20EB5051EA8E652B28F798C7A0D9EADA3DD89301C88 +A04502A5B615E7F81A684901F2F7F3BD7629C4FBD048150F54018787FE0394F6656E2CF4CF49 +08E71E59AB82F9E7192F377BC3EA06C7ADA7CD49D0ACCA368DF5298F36BCF99656AA9E88B333 +58453EA5D2C4C7BDB350E4906AEFCF3A98B257653B69793C2364B3239874B161014E09603105 +24B68BFBF3F265B1D162FC96D4AE22807A9B476642F30F71D7513CD59524A599770922C799F1 +88CCF2829E7D5363D3AEFC4AE6B5813DAED870320E978B5F3D2E9D3CE94FB55A4FFC43E38A2F +D51AE6EBA8F834EE9F79AA55A4FB29291C759B80030AF5BE582A7CB00DB9E8CDA20666525587 +54795C325E8D738AF480DD78FB7661EE72ACBF4235BF9C45D06B61212E010EAE8E603F205FF6 +6C6224C49ADD3BB95D63F6E5D791104DE1317478E6EC855A7C49B144D7CFC667440BC04FA850 +B2156A74370A217B58AE0A89DCEA5B984A7E486DC846468CC4FACBD8D3CBF84EFFFC5C1FB928 +F0F4F2FFCC7224AB62F53C30D0C35ABD026E55CA40FFB7F594992689142768029BFC02EF3DF8 +0D24CF63C355C9CC19D0E49F53F854547E42E669A905956C5A3A92D76DA2932511DD0FB863C2 +8987B2D8E1700ADE96BF7E712EBDCCA49D841FB4695DDBF2599D05F368DF18FF4257145F9887 +7948CA4CF92F1B7B0EEA58218C09FA2A729EA29C3388111446E249DBC97C3657E160011252FB +B4924CFC3791714A39F23FBFF26D5C03A46FC1B2CC00386601961FD1B14F2A3353BD2E4365CF +0C42C8F2B6CAFB1C7DC6E2418CF5B5658E9B38116EAFD212AD16D8C5865FBF21FF2E7BE46046 +99374CE9EB043E054F81675435DEF4536AB5F2E2B0BCFBAE1E8134BC45C5B09077190CE58265 +5847DAD0DA2B05EF8B5337603B9624FCD42975BB0F81CBED0C94538513843000FE75DF0A8FEF +D5A17A7A537D087DF70DE981F390AEC6EC645E2C5C7B6DD44FB9EB84B1AED2B73D2346AE0DE9 +91014C7D72B0EA8257F15CEF3E169C822960F36363334499A61FA19CAC1719E8F313C9B377D7 +56EA58F115BA9DE284C276E6E4F6BA8A071CE7C6128BDD6C3FBA5DE8378C11681FA2595EA673 +2DEC36F2C85C40DED557FF9ED386DA976C549DA4F89038A9AAA27F25FE2047875094C6F90A97 +681F729ED57D17773FCD45F28F90740C07B087AEFC340A26ABF0DF0ACC89A5CC7FE18F07A376 +AA7D707040D23AB066C7F7F03C59DB8B5CDAC46A77EB68CCCFBD0328AC248793A12786C76E17 +2174A334A5276C4162611E8EF3525F434C43CC965D2950AEA13619FD243F4E683A33C04D94EA +9CFF6DABB3FF12176C67B0BFFBF14C6F0505DD8B2D385EFF5AD7947BC3817D986C7804EEA146 +59EA7973E068580CE5844CBA813FAD9BE24E51E554D3F94761E09702EBC63D503F4FE01F6470 +C0A692986BF6B1C95C2909575A10C8F7168DE53ED459263C1503E846A7AB7A01A9F0D5F1DB55 +C47E27AC1447DF9C0566D8745402A57B3E8E39DD390C5072F960C7280741ACC1C25EA8C880A4 +D3D4C3000798059DA353D69C4D60C59F9266C576DA7B36C6ED428BB27C068B1D93DC1529B39D +F968F5B98B8F3EA032FDABFC818580D081C2414014D621532455779D46BAA6993937BDE8919A +7E55DF173271A33372E3DC0BF980474E25CD5C42464C0B3EBEB2FB1190AE257846F34F185FCA +3C1E4A13A769AFEECB7C627F75EA70A9AFC2C09C3B98433AD8DD5D146E0D13A9ADE256A83317 +3AABC713D251ECB19D6F1B9D136B9A60AE574167BA8239FD38C1B8DC625BD17F2D8467EBEE36 +36BE24EF3D85DFE6E02D6664F549CD8B730C649D8906684D123879376325BE3BC1D18A81739E +E5402ABD5E75FAEE2A3D12E68BF40869FBA5782B418578622E6AEEA218E539CDCC764903A108 +12F28BA15170F1D228ED110BECF1CAFB3ED6AABC808D3DE180D03226985D229B7091B6665207 +2B39701D51AA68FE72753E52A266206608C39567F21426752F7AEAA149819AB72EDB43CDE485 +6C4183D98AFBD2B42057142E00A6BD3DFB897DA9DBED9C60E0E45D0D64C03CBB80C0F5D6B9E6 +8E8DB96C1B0F3015EEB138827A9CF67087C50FF410E7488B3DA97C98A950445E5B44C927ADDC +4A204AA6BC5E101219E463B863F4428A2602D6E2836016490D1D5066189A28D41F3C5C6D8353 +B64BF81D9EEB91E68936597B3825947BD7B640694819F93BC51F9FA087F96A56479CD7460BAB +31055B1168D82F0F37780F06003199D6D511F8988BE0B6D8C9FD45692596EA9125C2AAB0139E +9EFA2D2C4F08B40EF61C8C2E1684E9C66244DC966D1607BCD1AC9DD88DA85EABCED28AF77DAC +59F001915E5C42CA68632E866B86FAD58AE0E2693F77D0C3FEE1C31BE9CFD3E98E3AF2A686A2 +AC9B86C120D8C9C47A6109CF2E6975C1565D884621CDBA5724F5123AD692AFC1CAC3EC5FC9B4 +A72934B9CC6CB549FE5527EFFF4406B2FB41F0980E54DE4175FF228FCA5744AB2C9C4DEA1B58 +07CEE695297D04E5F54504BC8765D64BEB39DC128FD7760EDA35AFA2BE7CF782D8895737AEBA +4B02FCBE2EE6C3EA108387D470463759F20007024392DC4760E4DED6E75809D53665E75F3C3A +E9477E3757A5CC9F7443CB148A71BF60A23AA7B1EDF08F81DDBBCD8D4EB17E4403069A69258F +8C79BCC3D1309B8CA9536391465C35383B84B9CC7819625ED1F548D0810AA19226D08110C0D0 +5B6B8AF93A74DF5B97FBFB4F5586E6CE1292C1919FF91D04BF4E04838B7A5506A5966CF5FD11 +7F531A70DDFE077FEE2835CA2CE6F8CB74A439E374665955511518A7AB8166F68FC80AEA0C58 +7A930D4554AAA7A8D7C2B72C9C980EEF92AAD6A9548F9743F381AF25BA28AD0BD16753026CAB +AFB706499C2CDE7D060963FE9BB0030493DA526E33A3A16A98D1E0252831C52C3840B1616E6D +A7750CC341093CF0C05C0E30F0B3063F381F25DCF4D6D608BB2413532CD6DB5A511E3D768F1C +F1708608AEDEF4BCFCD83CE097C079BAFE54CD06D447507FDA14B21B592560D598762EA20C7A +059F4CE40F804021B62D0DB26594CD8CBD75559C38933D3A6C8B13594A530D2BCE94D69C5384 +3E8A0636031E3E39DA6AC629A0BE085210C7212CC0EBE4EDBC1A6B5196B1D8DF03BE66CD159F +7C9052074BE024CEE2865B22067368549778A13F14DC194CB78BE2E830037CB88D41F8130C8B +87267107B77EA6E204CC78C70B56CAB719D5FD46F07FFAA6F25091F39489F4A0116BB62911C2 +BE8B740183EDC047510F441F524BB1AD2DBCA88716677B36550BE30983CCC5BBFCF4559506D8 +9EB6232046241F19789AAE9A95F8E33FEEA4B8E69B094E3BEE8BF9AC4A5874AE0F02A6A0D84A +56618F41D4CED19F3351FBFBA34F7C0E3F237697ABE403556C4CDABB314BDE548797FB1AF529 +F2A5BB39DB12EC07720D97569D6D9ADB53B8762A791DAF652E8B76D3EC02871F3094FC79F1A2 +4E08D910B236F9D00C3544654B5A71003DD407576EDB6098ED2393912E196D1B47AC222DF442 +342C21C0BBC9B2AE3C6C840F80C38E49A0295CF82D6030CC9C7D851FCF67D48C2E6416E67AA3 +A4DE8050713DF83F3FA28036A1338985900DEB72919638A67EE9E03504AF12680BB7A696C7F5 +888D05626CEA11DC0D4E13B2C7540FEAC023B881EDFDF89A99B08EB27052B3DB5AEC328CA1D6 +7F52013323007D01B049D7C29748EB216615F1D6A7A7D11897C1976B618AAB0A01A1541DD0CB +CE18BBEE5938511761E03B837059A43DD6C93194F0BC853BF83EAE10199E4AC0AF6FAB387462 +917D8388F6071346F7EFF8D8E02CE0C7C03AC4100A5F11A07BA6922C332444914E16D6DD3199 +F137033C71339DAC3759135817AE8B315E75CEF41A5DF4B9B2658AEB814A28993DD4563F2E02 +6BCE090021722111B5166423B4CCA87FA50E496CF137C8D7BF032E6AA9D08C2B61F311C2EE34 +44CCA3661DA23C1F79D76545D16CB5FDA350B29F270B0AA084D032D049062ED01532DF31CC47 +8FCDA85AC305BD5799A6EBEB54733E192265278742BBC4D8ABC378C8820307190ECE2DC2432B +6DFFEF34FA293D833E6A519177CC77D0988E9E042C385352E8881252A078F54E541B64CD47F5 +B91A075F5B653830025167E852BF6C9D8ABA1FDB5D00FF5ED18321BEE54577C06F22E6AB0CE9 +BCB0D679C2CC82EA692D9B828326F0565D4DA59648C980226C241C49B7A3B6C513F785128D98 +A690D38F2689A133787FE1F4A04C1CC50A0956CB7BAF9F8CF6E12B681F44A9ECF2FB6F4FB3AE +C507A9C58EBC7C4B9AD3C65E2BB0E6B047DAB4A32A997853FD0265EF37E93645608F05A4E0DA +35B39E5C5A1E59A6B41FF0F06C30F5270D2863A55B5AAD60DA7B554547CFBC4444BAA19A975D +AE4FF38B8FA892BD7DDDB5108A5CC088F7E1D0CBF9112D4A15313F3F6AD4BB5C494AB3D639DD +73C99FC979A201A925B6706239B694453D520A74355923CBDAC45456CB361F3E4D3FD79B3C7B +64BF131A47AB725C913CD37B5013A35DCBD0D2501340A878EAD75D4571D9C111DACC2CE5A841 +9CBC33F9349B72C00B02F385DB3F0B1CAF0956737D076B1AFEAAD99D60C79357EEE3C3F8FD39 +DDA67C4A7E0E843766982B2D164723DF1825E94A708077335EB5E133D5C44A9D399F47739498 +3AAB998F84F023E2E25412ADC64F3F0FD23DE84231462D274F77E1C1F25EADB2A17788BB9C09 +796A16E0F673D65802CD45B58D9F6A04F9251B1284A1A8DCEE4AC966964CD1C0562BAA529D93 +A9180E96B5621C5D7544C563996EED7E3D793293F2B3D114178209D77B32AC20085EDA095449 +87668CF2ACB94B3B8D5F41F464771D8D55922C8A12EAD3F9E51305C953505B067A01BE9252E5 +2101F4AFED247F3756DEAFD898E56F858234528CB3A5E8A0FE41E1AF0927BCD9BF125128591E +227CB963F3A0BA8F15CE2FCF7065221A23711872D67BE35D852E4884E92D1F2ED085D3525B3D +FE1A66237B341A76A1F6B0AF237DB9B7914F4B7B38C56C999C750A3D2EB842522EA64D3E020A +AF9026C98688790DBBBB31A775F423B791C8835169A7797C43ABF946AAEF9494E107235A4520 +445844098D7C693EDC1F5F23AC8F35F1B5A20BF528977103F714FC55F98B3404A97B7675CA4B +44A5445EFEBE766C73208C02B0BA98771CB7C87C945BA981CB619093E09DD736F7BCCD0D4E0A +F10A27168181087B335D16970F812A40E9C62F385905AF0D171C2D5386B177F8A56C10DE5CDE +A8D0EB21703EC2196AC73AF38A8852A6D4CC11792EC2CB1F99C1549034365FA4F24D56E02B40 +DCAA176EF11E3C593631EA9887DAE22BF39FC2DCF9406FB17D473CDD6A012FE33707E068070B +1F45DA3BD48F36FF540E5E585C6DCE6AEBC78A31A470F9E5B09323978474C3DF8D521D64D947 +9581F3B05062E7D3F93641E8F827407FE1163F9494D383E3E93010F2787CF0F770BA2330DC3E +DD296B71FDDF5539A769794B91FE277D2A5C0E957F7CFAE1F81B237058D9638EDFA6807977BA +AE597E88F1012EE5D79C21C6EA7C6B04F73C9CD77BDAC3393252E2D8850A138BF96D1B08C231 +45D56FDDA9FC3C8242670163438805E72FBFE633EE393CC49F9C344C246442AD734BC7C6E9B0 +78EC135A266143D89FF0F5F5A7CC6FB297A170143362322847D7C4B60183F8D26C1F3753CEAC +662D62113EF4C53C457A7938B467199504E8B27D9CD34A5C0686FEA878B2D792C15EBC385B5A +7A47B12BFCC002F2FED2EBAB2012EFC6B1481388FC8E69A5403787E120328FCC642EC024BB31 +C947CC765D54B6595693318348FF1353FA0ACB61B3059D1B4AEBB65E7824A9E78881401CACC2 +E00A7F8A6F4453DB0AD3C583660FB02D9A6CCB045D53C16135C560574B10A6BA3EAB6FB86ACA +D46AF178CA8D5E14DBB50B1E65D9776BDDB29B7502D084BFE8FA14DBF73C41B8AFC9E9F6EBDD +9880255E5803AB91354FC44355AE446F6439A66B623A06EB43F84E2DAD051B2F5DFD5DC4AC93 +0B58EBAF403A56E46BDF17ABE04F862C178C3E10A0A48050EB8F2EF6E24B3A901F5E384A3C43 +BC035EB30F07B81B6DFE91B550C75785C7C167D2DC4D2E3FE029A7EAF59BDF5EEF04330D5564 +56193A0DC4008B840ABBF81CAC9B39AB6161DAF440D11634CF8AC2CDCB493A93B2303AEEFD08 +0A72A60A60F75904F2A98DC225C490B14B01AB37CC8C73E488FBD9E58E7F6F856CF6B5C29179 +28AB09AB88BE2A14C69B3A79051782C7A167D0EB0C9F1D1B803ED86E91D71FDCAC190EEEC796 +73C9FC69B9BC8497EC76143856060ED505DB14963E338BC7843EF8EF15579A9045233680CB60 +87F56B9558D608D99D31D4179252A15D94122DCB3AFFD972F6C1CA9A4E7E6B82D46D59BB4455 +212C031B193AC8842C19244C4E7C7B5091CF8DA6F6018D16B73D535C575E45ECB826943F8F5C +8812CB7AD2DCF4C6E8F95362D79AE1FB42841F91359BF7527E0593CFF5C0D8D506B43F1E859C +922715761861C47FC0D64F4E095146EA0B37AD30E3270CFFFC986A8FE62AEF43046976B61352 +820AEDCF17AFC84C4C7355748F007060D08659976C5A35DA7034C2A9540321957127A3531EE7 +A75B61A8999CD4DFF26E9A5FB8453A3FCB7F4D86D4F48B4947B7B7ACA3D7FBA387E5E0DC1DD7 +7E2F09C7BA7BD5F1464DE1010F40BCC3DBE5BC82647DFF8711B572AC841DED06F6F860C9F111 +7B4B12EBCE79DF97BDA158149BA5ACB97D96F5BE2BDF14BEEC9182797DD3C4C6BBAA59464BC6 +03EB1B84B3CD3466AEDCC31AF82047C67E36CCE26B56A37A0C2A919DFE65135315820162EA67 +1FB2F7C0DBB441E28EE41C61BBFE217D67651BC51DA30AC2B3651CDE82AA08133D74E4EA9CF5 +1E64FCEC62B65716C280B19666E800AB71993C62E63F16B163EB9A8C7D6E55939A9A544778DA +05A3648A2BB6263BA70EDE5A92239EA6E041D1447D97F7B207215800F9F55F43602BDE3DD5E7 +E8A7FFC1B05A76A90AF2C942829B5CEA138CB009B1A36384F06852FBC671ADD437A53E84107D +BA31E1C82B91241CEEE1EFA7529FCD0A6B2E44E862418B6AE61324F252505B95E4DE0AB92A19 +37864A956F4DF4A8B9C714C290C9F5AEB904A859870F969EB6B8873E5CEFEC0E85190EFA1BFF +B778227F09558BE85C6AC0AD6FE56824A565B9EBD65293D78E5032A757227CE1E67D92E812CA +C3FA3AC369D19B3703831237C69F3D83B2C249E7FB9C0646C7C2BEBEEE56A3693FF7F7A492C5 +8E52279343F44931F22EF5479896D1274358D769214F2AC432A81E2C9611100C856A427D3C52 +216F67D6D301135B5D7E7783EB5665C9F594C384EBF5767401153CB3FAC10436E661977546FC +B680B1F009C4BA6120CF086311D0F2A7DE930556BD1C755BE72328B5B2B24424F3329A364435 +55F13441A62699717E5B236A1700B516E51F4672C272C598AF85DB5EBCE6754CEFC50CBF6E8B +D345EB611690F86080D9B3F9EE77062545EA26171F769DA6A3DCD4FCCCF375C724F8285CF0B0 +13F84FD22F1323986A163176B84F0F572E0873FBE38E848800037BDC449925FB58C8C5EBF699 +0BA3D508E7CF7BE946B5E58DD203E3EE0A7F6E671017AAA82EA7F7068F98E9BFF2FCE05516E6 +F5597E300DE964A36C85370DED3F36A3A6691C185DCCEE8FFD419AFD4F4DCB6C3756C9CE2300 +E54F622F95B9A6F610FB1419C0684064559F9449D8736590F10B38D387769215F438A55701BB +16F608B914020D9D68D1B4E6B0A72ACF444AFA7014C016FA3AD2439C2E66A63ADF26DD2641FA +FF61468938EFA17189E3AC4571FD571F28954FBB1B1F003C6E6FC73567B259329554B33DE3CD +5ACE7126971ED0F6FB5FD10AF89FE43B9F15E8934FBC937BF3A9C00B1E0BDA4A57220759A7B3 +679C49710B9D8484D96607F14287DF9B42E7466D856D94BE768BC5E5D64D37BC70C0793FB83E +DF2B9EAA86E285FB25FC0E61773715DFE50BFDEA7555E590838794308F277D2A2ED1076DA177 +2F85248DF2F1F36CFEFA542E41020CD09974588C4860901A0F2C17F0C2BD5004BBEE58194FDE +840584A97AEE2C8AD02A3C3E47251A643D30F7203CC913183B2BE2ADBC6E9C748092CE587BD5 +5A5BDB6F62909DB2A0091398853E63F81E72B62B5CD820152C5EF717004418CAFE2725C10DC3 +681E630364A8B783321A2494224DA600187A459E26B21F40D999B944703F061517200DCFCF9F +C449EB9F3D343E38A1E44EE132A7B0DF1F0EB4EE3CDE097459E7F8C4831D786504653919C92B +A727DB9D713ADA8FC3E37D8314DF2111483F1660789265751BF5ECEF9B33AA2876E941FEB15F +B4EC6E739714E392DC7763937760B88C532ABBBF1F780335129E8ABE1E0BF7782630868E070E +6BD04AC7AC17609C0BA1DE39D7AD73F74E48380C65FA4F596B104C580467618E3046C0883994 +906A273FC4D4B662F3CC32F52B47DECA45428B0A1B46808B1A97FE8844AC20968DC0BFA2A247 +A556E57A64DD03E9193A16CF7C3F24849A5E58B1CDD52AE8BF3642E503090BA521339F17B4DB +0A08C4F7FA4A95129C116BF11ED00000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 + +cleartomark +{restore}if + + +%%EndFont +%%BeginFont: CMTT10 +%!PS-AdobeFont-1.0: CMTT10 003.002 +%%Title: CMTT10 +%Version: 003.002 +%%CreationDate: Mon Jul 13 16:17:00 2009 +%%Creator: David M. Jones +%Copyright: Copyright (c) 1997, 2009 American Mathematical Society +%Copyright: (), with Reserved Font Name CMTT10. +% This Font Software is licensed under the SIL Open Font License, Version 1.1. +% This license is in the accompanying file OFL.txt, and is also +% available with a FAQ at: http://scripts.sil.org/OFL. +%%EndComments + +FontDirectory/CMTT10 known{/CMTT10 findfont dup/UniqueID known{dup +/UniqueID get 5000832 eq exch/FontType get 1 eq and}{pop false}ifelse +{save true}{false}ifelse}{false}ifelse +11 dict begin +/FontType 1 def +/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def +/FontName /CMTT10 def +/FontBBox {-4 -233 537 696 }readonly def +/UniqueID 5000832 def +/PaintType 0 def +/FontInfo 9 dict dup begin + /version (003.002) readonly def + /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMTT10.) readonly def + /FullName (CMTT10) readonly def + /FamilyName (Computer Modern) readonly def + /Weight (Medium) readonly def + /ItalicAngle 0 def + /isFixedPitch true def + /UnderlinePosition -100 def + /UnderlineThickness 50 def +end readonly def +/Encoding 256 array + 0 1 255 { 1 index exch /.notdef put} for +dup 0 /Gamma put +dup 1 /Delta put +dup 2 /Theta put +dup 3 /Lambda put +dup 4 /Xi put +dup 5 /Pi put +dup 6 /Sigma put +dup 7 /Upsilon put +dup 8 /Phi put +dup 9 /Psi put +dup 10 /Omega put +dup 11 /arrowup put +dup 12 /arrowdown put +dup 13 /quotesingle put +dup 14 /exclamdown put +dup 15 /questiondown put +dup 16 /dotlessi put +dup 17 /dotlessj put +dup 18 /grave put +dup 19 /acute put +dup 20 /caron put +dup 21 /breve put +dup 22 /macron put +dup 23 /ring put +dup 24 /cedilla put +dup 25 /germandbls put +dup 26 /ae put +dup 27 /oe put +dup 28 /oslash put +dup 29 /AE put +dup 30 /OE put +dup 31 /Oslash put +dup 32 /visiblespace put +dup 33 /exclam put +dup 34 /quotedbl put +dup 35 /numbersign put +dup 36 /dollar put +dup 37 /percent put +dup 38 /ampersand put +dup 39 /quoteright put +dup 40 /parenleft put +dup 41 /parenright put +dup 42 /asterisk put +dup 43 /plus put +dup 44 /comma put +dup 45 /hyphen put +dup 46 /period put +dup 47 /slash put +dup 48 /zero put +dup 49 /one put +dup 50 /two put +dup 51 /three put +dup 52 /four put +dup 53 /five put +dup 54 /six put +dup 55 /seven put +dup 56 /eight put +dup 57 /nine put +dup 58 /colon put +dup 59 /semicolon put +dup 60 /less put +dup 61 /equal put +dup 62 /greater put +dup 63 /question put +dup 64 /at put +dup 65 /A put +dup 66 /B put +dup 67 /C put +dup 68 /D put +dup 69 /E put +dup 70 /F put +dup 71 /G put +dup 72 /H put +dup 73 /I put +dup 74 /J put +dup 75 /K put +dup 76 /L put +dup 77 /M put +dup 78 /N put +dup 79 /O put +dup 80 /P put +dup 81 /Q put +dup 82 /R put +dup 83 /S put +dup 84 /T put +dup 85 /U put +dup 86 /V put +dup 87 /W put +dup 88 /X put +dup 89 /Y put +dup 90 /Z put +dup 91 /bracketleft put +dup 92 /backslash put +dup 93 /bracketright put +dup 94 /asciicircum put +dup 95 /underscore put +dup 96 /quoteleft put +dup 97 /a put +dup 98 /b put +dup 99 /c put +dup 100 /d put +dup 101 /e put +dup 102 /f put +dup 103 /g put +dup 104 /h put +dup 105 /i put +dup 106 /j put +dup 107 /k put +dup 108 /l put +dup 109 /m put +dup 110 /n put +dup 111 /o put +dup 112 /p put +dup 113 /q put +dup 114 /r put +dup 115 /s put +dup 116 /t put +dup 117 /u put +dup 118 /v put +dup 119 /w put +dup 120 /x put +dup 121 /y put +dup 122 /z put +dup 123 /braceleft put +dup 124 /bar put +dup 125 /braceright put +dup 126 /asciitilde put +dup 127 /dieresis put +dup 128 /visiblespace put +dup 160 /space put +dup 161 /Gamma put +dup 162 /Delta put +dup 163 /Theta put +dup 164 /Lambda put +dup 165 /Xi put +dup 166 /Pi put +dup 167 /Sigma put +dup 168 /Upsilon put +dup 169 /Phi put +dup 170 /Psi put +dup 171 /sfthyphen put +dup 172 /nbspace put +dup 173 /Omega put +dup 174 /arrowup put +dup 175 /arrowdown put +dup 176 /quotesingle put +dup 177 /exclamdown put +dup 178 /questiondown put +dup 179 /dotlessi put +dup 180 /dotlessj put +dup 181 /grave put +dup 182 /acute put +dup 183 /caron put +dup 184 /breve put +dup 185 /macron put +dup 186 /ring put +dup 187 /cedilla put +dup 188 /germandbls put +dup 189 /ae put +dup 190 /oe put +dup 191 /oslash put +dup 192 /AE put +dup 193 /OE put +dup 194 /Oslash put +dup 195 /visiblespace put +dup 196 /dieresis put +readonly def +currentdict end +currentfile eexec + +D9D66F633B846AB284BCF8B0411B772DE5CE3DD325E55798292D7BD972BD75FA0E079529AF9C +82DF72F64195C9C210DCE34528F540DA1FFD7BEBB9B40787BA9351BBFB7CFC5F9152D1E5BB0A +D8D016C6CFA4EB41B3C51D091C2D5440E67CFD717C56816B03B901BF4A25A07175380E50A213 +F877C44778B3C5AADBCC86D6E551E6AF364B0BFCAAD22D8D558C5C81A7D425A1629DD5182206 +742D1D082A12F0780FD4F5F6D3129FCFFF1F4A912B0A7DEC8D33A57B5AE0328EF9D57ADDAC54 +3273C01924195A181D03F5054A93B71E5065F8D92FE23794DDF2E5ECEBA191DB82B37A69521B +0C4D40495B5D9CE7A3AF33D17EE69979B82B715BAD8A5904C5DE02606C15950CCF6E188A0CDF +841EB68E5A2F88253E382140F87C87E55C9EA93B8C8914A36CDF630D6BE7CD36DBDCE22B2177 +8E8648B97B7EC6742EB5114BDF0454B00EA7B1FE236C84C0E5308C871F67B973892890557AA1 +2E00B2C20C71F516C3973F3BBD14A1D0149CA064391056E45E9470FC7F6F556ABC82653B3C80 +49AB5CF4BA83C8F2158C236B2FFD4208846013BAF4165E8BB8D334C8FF2E8D5EC7B79D46A5B8 +BB60F8911D63226722BDD700952208D89050001DD83DFE5577183767DCD2F8CCDCD1964D1AD8 +29A49B6C94C30E335290BB35CF706C04E76813E9AE2F9158D447C0447C62851FE9E91E0340A6 +1D157ECBEC3C69BAEE6490833DDF98E6EB0ED5FEA40AC515F2C9AD9239DD20DF8A7B63814A07 +46A8343C1A286BD9FA24266E48ACC9C212EB2126B906A2F03087138088D29D069336FD006AAF +0A63ED6F92635829C2703BBFDA6931BA767C41F0000B2C24E0E5E0B045365D24850271929151 +BA8DB92FA0E7950299A5B0A2DAFF25A85167E40B3758E9E5A60AAB8DF9A17604A13AA7D24FA5 +BC23002BEED67123D50634A98DB0313849B034C205CD6A3026048F3637B464949BE73A0AB976 +3B602C6D16ABF7B5536CB482C296BD4BB0A792B8DBB1E8D922D0679894FA8F5CC8874E0502D4 +28FCCAAA4FC4CE3EEFCF12B553D8FC59729842BE1509D2CEC808E5D7F7B89ACFF729F62B9166 +86B342A7D99CC720B7FB0CBBEEE6126DB12FC6532A2F93AECA0990683539E48529D1EB06AC18 +3D35D9F75911332AAE28F7D1CF225C4DDBD78A5DA5B6C3FAF0D79D33CD8E72514310F65A80E4 +FF102BCC920A48044AA336AE01BEAF9706851A3739D6D11083FE66A96362C32360901FF6291C +5C8540AD7D6675EE919899A88E194F5246174D2ADBCC0DC2E784207BA17C46F31BF772AF0A9B +511D2C8A7C7F347FF6AC2F86BD4E76429BDD7FA6830E41498DE9EE9BC3C62BD6BB34C5E405D8 +F3AA471C30100F04711C7F168625FB25F59CCF307F6FD59019760B17184F6EB2DE54A1361E3E +9A770C488B6B7724F639E369675BF694DB4D86E88BAF4E53129543D5ABB3CC1307E76A5CCA6E +A9F4B1EC07FF299C449CF083252A57D6F60757D343CAD6F86FB65DE906F5667ECD3D57C12270 +8A70DB2625F3000C810F3B7D4986448A0E7C54408DD7CDBCD0480F4F1FA13E1E12DB9FCE1716 +D8DF3CF85103CC7BD41BDDF35142817BF28F213F48E693DF865C4B70500178000C44178FE38F +CFE718AAA99F16DEB4AFFE0CC1BF09056BF09C676207B4FFF9A103262F966ACF4F9F7BBB9C3E +2ADC9020D099DFAA510A41DE73258EC712E144585A007352430E5ED914C8D878BBD1D13702A7 +072FF95A742226E60B13C13CB8AE8EFE96F62D3B69D84048AC08DDCBA0DD50BA39EC2508B0B9 +8A367E619274E99566891331401722122EE9D091D7B3427CFB95B1DFCED213ECAC1615AF2C40 +B4EE447882D8BF6C03E61DC1DBB530ACF13B321841713006D2AB9FB29535C7EC4A3E33BB6F93 +402059994D3419BA6CF0B40D1942C400E931FB46C32D6477A46EAE7BC3A72292D161E548F985 +398F0ECD907C92DA29B1070C26AEA7F16228DDA7387BFD4C04B256DF8E98ED64A2F4C3D7389B +FCFF502523A6C3A8785CC183F3346C39768643E2A8130312CFB78B6276109252755E6764C952 +C23FB9AA007434FA7A659EDDCA8EABB8365BF2CF1F29DC9223C5F9BE9D7FE9135BA0DA166253 +CE5A597A82B003FFEF1AE493C57385002B6BACB5647AB9FC4657405725D1D348AF8600F1AC1A +FE846DB24424ED5A8E1575AEDEB33BC71D262F62DA2D9AFFDB32CBAA573041168D9869957079 +347B5FB49543A8427BE4A4FE14B3BDB59478EBFFBE0E118B0B09C1BA3164A2E442AC5BDA28B3 +A964E75DF2D8E15463F5570EF21747839B3B86345B19D7126BAE9F533E6F1670FE0F01949D03 +587FF84BE2F9D167A223388A7D3F23FD8102855C9DCDE8A255374225456D220ED6470D07A185 +EDD269567CC8851E0ABFF1DBC41DD0D65353EAC9126104666299F6ADE510F39702E7DD36B9C8 +29494F47D3462EABCF5682FEA1C0D46672187A95DDB98E819898A90B259C49DFC9027EFEED01 +79A6DCB2C3C78C8CD323AEDA15163E3A786595C95D1177395F233CA2F05C9DBF8E35B849CEF2 +ADC38A16D568CD00546482EAEBEE313F92538C98B462DA031AEC699E215366183EA1FD1B6864 +94BB497EE5161EBA7321D3B314FA37E513E72C84971DA7DC7C49765E0C5EA5E64C925354B80A +4C08CCCEBEF3CE9C22A8C54A10AFC2AD555D676301E9D3486B35E1B31F7CCB5C42CAEF15BDD6 +1D84B43215A953CFEE5E6B57ACD4FD1D32AD3A596C569D9167CD759D9FF4FEA37F39C5EF1DF6 +9CEA6581E60B5B2863EAD4B84F26CF3689EB5785DE0CAC28FFE8D3B824EA76D2BE8883AF600F +EAAB61A69DFA217E592E5CBD3F816A7568A0F389C6820F85A4E2C5A5BDC9CA1E038300B34A99 +34368E490B55CD18FB79A1B720E46BC1F2686F963134B24A46EA5616E788AB2E05313CFDC45E +B4D715A1AF4477C1E5935C71B812A6ECC0A8D9B1C27BFD077D7D683ABCEBFF0F03F36EB2B2EC +A8F1CC63215CCF77985B0720B49096DBA6FC5A4653BB1355B84595694A13010BB8C4268D346F +523482BDA3A016B6FD5C08720275620DEFDCC70CB61DAF454C080D479A74F29CFA225C463963 +C2DC9E10C8BF004E4AF522C7E6A74E5C0B872B8462E456067FE4F48AFED1287E7DDEA0C425EE +717CC401F477643CE488698CA92E7A22D97558ED2C483603587B5F427E72689EF96ABFB2363B +108CAB9C61A27CD1478F0F167BA5DC6572894E2E411B48B7A26BEAEF10D763971454B6A9F23D +1B04F1AF950DC60D472FA30C853F3BF63C76DFF6FF7430A262B09B9E7AF709BE7752B9E41374 +924607DBF1870C05FB50CA08B691DF5F65B30F586F76C34DF28FD6883B95CC376121B70E2372 +314E45DDF298FD7C7C89276781D0490F9197B2744ED95582B22145C0B441B80A2F71895400E3 +43B1AF5B50A0CAEC17CF4582AD5F00533E1CDFFE68C584120DFD3502D184BE9B097955BA8EF7 +BD62D1A999FCBFF0A4824A1E0FD79EA0A87E3AB15403B01C3F71FC76099B2C37C1C242E1970F +CC1D560A792F21C28862B1E1189FD7ECFBCFFD913AC07D0DDA71B6EC9025BE52BA4270E5164B +58540FC5321E26D78D54D145A0AD61B2B34B5303546537AEACD3AC11C56BE668CC9A19B8AE27 +05015C391C059BCE6DFBEE22A48200AA80593998880507E8AAD1A35095197C1A5A06C56785FB +C780A0AC1ABC4791B51412F5850EAC15790C14A643C94FCDE40E1014A95347C53E2107963C91 +A9C92B32A06E92D54A0CB55243B327DBAB3AF7593406BA9B0D5EA78C94B0049CEEB1863CAC79 +C2E87AE71A5C53E2DBD95E8030520429314DBD80E917C260907A06702DE59B8051B5FC5D51CA +AEE3B3BCE387BDCBD816F2E9B71A3FDC5DB61BEC2085EE304DF1AE1B5EAB1BFF7B116682B605 +199379CF75A25CF96C53AAA53D49D2375777AAD0BAB6D72C3626239C114CEC78DBABD8BA4B72 +5645BD7061EE40A682C0F72923E215821DC54365EDAA11AE88AAD4EC14526C0F809E9580F325 +F9F990A4F65F50C2ED1C0BBE147C48DB19B78C68A76B986BE74A1D04BA2FA37441C7AEB74ED2 +5B45DD924D048CA985B570DDEC523C1ED80C2B5F85538A94EF1923F2869D5EDA9CBB98F05C85 +487742DA45992CB461774560AF88792B0202E9A203FFD7BB75595D113FFB920C3AE54A772496 +FC54C2943F097EEFC9D21E23EC7CFD71F156C591ED4748229D42A287624CE2D560057C7EF790 +D86F9BA0C80682D8ECE3BA911DCC5A89CFF09ADE79EFC8FBD5A41741A527D7088C218B42C38E +9D6F8BB780B21C0D26D9E139244A803573C6DAFEBDF71898D635BF0E3D27F035D9127C2C9DEF +F7472D367DC27D0FBC578357EDF66B7C3B8D48F7BD080783E389E0D4DABF6335C726894EAFFA +EDA38152046483D1D08F6C1917A2FA2FBB2541354C7486C099C1A4D626263BC2605406D36748 +7B48EFB5CF5589DBA74DA37F373030CEBC463376B2420AA704C47982B33D87F354822455C216 +78FCBF84BF36257662996CD3371DABBB679ACD67A12101E42287AD089A9DC2B585E4A8237113 +E05D2B50738D49E62317293087A5C0E510468C2A5171EA62EF8A18BAA2DBE8C45844CDF7A0C8 +8B13A9A74C1A37FA349372CFDF524B91888D2FBF499581EB484A5586670E7B9DEA2806389377 +4D0B49C91222D006AD6AFA95839A6A288E7C9DF02F528ACB57048387987715188C8ED37249CF +8004DDFA58B8366BC874A0C0EBDFCBAD37CC7173D0988D4F3E1035352E5B37A701D1B5E929E0 +50FF1CDCE9FF1CBF53B6959CD9F3CE0860A3233906537149390C77C262972B51F218F64ACFED +82EB44F9342260248F55081A58AF902B9B752AC4DC742CBDCA341299DC191767BE4510E9FAA2 +6029B8EF75BAA4A654318DCCBA145A5864ABDACC8D94507E58819EAD9E546A5F59A9BB966C97 +1AAC5146243686157DF1781D6CEAE79A575C5AC8F162E9DC141CFB6C6DB52CE641A07A757013 +2B7BA784F7897ED2FC265C8298ABE7044570A32E318BD452FBB1E654AF71B354CA6756BDF3B7 +E7FC4CD33018F2651FD8EE0BB40ED22818D9A7C1589999D12DC9B7EE720F53C3AC12008A4164 +6FC3FDDE34E8A5A4899EDA421963F8850BCD6AB5741318A9D74E3B2D71FFFA804618005010DE +3B7F8D13B93765C35BA3B4ACA42978A436BA8FD2EF8E6E0EB03243E9194899B0278580B6EB85 +19573B7EC8E40F01D559C402376688EEA755528CD1540D297C2D1A23FE54F6817EE7E02ED339 +0018E8930CA114C3A8D4B26557ABECF8B2ABBC58345F0B2663DDC12AFE76A5DE327CA3DC388F +A3189B5A5C625661D70DD98CD0C842BD4CB9D2AC1CDE9DA51696367D0EE60B56DAD869359288 +BBB354A143FF22B44961002F4C04F808E084F42A9551D41E6BEFA371A5E2E69A343FDD8D5766 +4F02A1CC0D2E8125BF369A425A3260D83F94CCA6ECAC63EDED28275A0C645524FC6C30B58767 +FB1435988DC6BBDACF2396B451E6D83A19C15095CAB8E2D869BE91C270B020CD0A99B18D82B8 +21460055EE49D48A925431F12572FB6ADC39AEE445F2E8F73DD179F459F357844B69B88B27B3 +C8EDEE37562EE9A1674AED73408510EA15B55D91A72875B1FAB3F21E284EF625FE7AA2D59EF6 +FB15A16D5370B870AAE04A638962CAB1773393C8096FC6C5595B1F2A55C9A88361E288C317B7 +1C3A61EBE4209B9758B8FC0623110CE8F790462A9F06ACD42425E2F47B03D2369D3CFF3CA281 +9CBB86F86ACF87E13F6BC3373D1A8FCD8AB815BEFF016C4B2BE8CDEDF12D74D1B1A8D0EE9678 +5562E534339C175D7915578394D4DB0D92B6BF955DD3775C40FDBE141E0D8043AE212EE4352B +088B7223D288F7CB77C23A5D63AED303709EDDEC885002D843C0276CEF70A982CDA67D1A387A +E3BF227333820C4D0862EBA116D2A9BFD67B4D76B0E71BBD9115E78932B045B7CC7F43318191 +E030E17B7770D0636AF3C88690767706687BDFDA35E7039865E6836E1F67A066E26850ED09EA +1FB1FDFD463D94D7853EC46A651059185B2F4EE1BD5B0DE5BD43A50E83985B4488E401489B32 +96593054B4FCB0EC30866BA47D40BE90B4E0916E3D82B0273B497B99CF5E114123502F3148B3 +817E7EE7441FD6D0E2B1EA16BF55CC8B1D839DE6692730A1A868C1B3EC874F5159ABDCED8A8B +93F3C594A90A23E64DC8DB55391764095BEE4A49ADA5CC18802D2B6723F465A62590DC5835B9 +529E34D7489AB0CBB9A3F128E122B9853DCA6125B0E46CF1C65A890EFC14D1B8CA8AA23996E1 +4EA8A8FC576860C0B1F3CC1F77CD445E9B8618AD0E92B37A008B527575131922A9E85503B489 +DB75801DEAC3BCDA5E0339BB45C3B78052E7A551684FCFBFCBEE3A1AA28CC1A1DBB9C5F8FDFF +06A67D8A879946595276189BE3AF34D54BBE197A4874DCF542404C75B7CE2EC58496F76D2E14 +CBB60F93EA4547216E1BB02A0413122BFC27DC99EFC47070322D96EECD433A50EC660E654862 +2400EFC40A4A79A49D8FD8F6D48B09575447EE8D69742E02C2770BFCF0619CE6C820F194B519 +2D50F87ACF2ADF9C20AA977DFBC7F208984B0B56E8C35729543D72061AB0B98FCAE8E76F6C7B +2C58A0CD5CAE0A8B6100ADCD326A29860A5B54311B7C9454E5EFA060D66F2FFFFAA254C43001 +B114DDDD7F399716764935632CC759C6933AEA5ECD6CECE1E7120BB12EE2F732ECF726FDEEED +36519323F69C96656F19893B940CB3BE775CB58D1108CB35188100C232E13FC998E0C2C45EED +D962A4B4F38ADEDF19653DC547F754F95F5B6E5D5A5EEA2A88B3035C4A7AFA888E6CC8AC48BA +19647D548B1B516947A199D508698502BAEC0833651B3CB15B6174F65ADD3EF0E858E180B036 +02AA6D4C2AAC82DF20C306270F71502BCC483EB20DE8538EBED6E469CC5E987B77B87D71E9F1 +FF64C7C45D129762EB0F4A2C2F102C70BEACD1CD6ABA43C9C953CCE3C1C39ADF139AEED18FDC +9F08A07A46BA57B09FFFA0F9E04C990971BBA67B6D0B964EB24E3CF54A8A2AD59EFE42F3D3BE +F9DB41FD239717CAF609519521BCB2E65828FD954A5DB4BB69D664E4F5B7D69398D317FF498C +2A16A8F44E22E445BEE075E9EBBCC3CAE9FB751B549C6755DC652D38E45E388EC865F4D27EDA +2208EFFE419FE0564C3E7CAA1107C93DD568BB3104C0AB44AB4B6476905F7D64AC1F7367C018 +7703FF348B2DD853E4D48BDF99CD9FC920CABDFE736B3F4CDFAA59CC4782B3B2E5DFCF767182 +A168B1B040045B6E5A6639A4CF874B512DA036EAB90FB0656DE3931D7C874C70F1A79C91127F +DF95256E24FB85E6A0A4D718E58CC022A8A81492E13C06542A91044E3EFE9F8101351C65523E +2B2398ED3830030C01445F622CEB0E992EE2C487B6E1A272682C2F68B6B73299A3DDD31E20C7 +827B9132D839753C5C17197F2E1A504621F8DC921D54B0D7D6848FD1AECD416B12F1841F46E2 +27E1CDD7FA4874BC0E229FB6572DACCF08DD3A92F4FF53C4FFDDF3D84E7896A99C81662F5B08 +86BB31B9958F377C2DB302E2E13C41C72D26AB6DDFADD8330D67A327D7F0AC6D18BA62AB5FB0 +2A7C917D9AFB40CCB05389FE2B7A3A4A6DC362B7C1151A3FDB0F0A40DEEA27909ECCC1C1BF22 +28A363E28F4CF1D0FA87AFE10AD9D493BBF68D37D8E09FD7A80914472230A79E6171BD037AD9 +E60D3C92CDFFD2B7A472232D0A0ABF020D578CCDA44DB613B4CC4BC68788DD1865DCEAF79816 +5A49E13544267A7C6C1EDC1E14698C7C4BDB1328EF66A9E79DBD5080F504B42A7DEAA26E0202 +33C61006B317DD9C83B7F80272E04D2EB97A15EABB2AF74C903E9D8550202AB6AAC3F18B2DD6 +8800D7734EAD58AA29DA6D7E604FD365EEDA714D20B66701F24692737613AC8306FCA98E3056 +F3406D928EE4C86BA13C7428743A57B542990B7154FC33723CAC55F4D5236628F648736108E1 +B08371D51BCBA8EAA63129ACF3AA6140CA784A02F5FC193E3320348303CC2FE254863CB2898B +28271C8CAD6C49AA65BD665B7680E3DB0F2D11A1630CEF8F0919365662F6447C26EBEF90C3C5 +C5827A77DB5E65E64044F93ADF8FE08B4C0C2021698816F41632F88633A933830B44365C093A +EFBC3C263A0DE6F828505AC55B4A44086F5A161CA1DF8B2E88F72598A0F3E069F5A96C3FD32E +B2007BC5DE61A20205E725588FCC24982138F05B4A3FEC6C64AC4248DBFFDFDB5930DB5CBBA6 +E762672F7D25073BF52A79FEDCED28965FA1560AB3A54A815A2E1A2F6D769761CE9889D69D19 +2707B1BA6A26F9751454D663389C4B5A881FBB44BCF5ACDB8604B38222ED5292DF22218EEF1F +EE8B117733976840A4D7A79FD5D8E2BB997196CD7EE8F6286FE53E1EBAE50A440A78B1B5021D +6D87D323000518EC65CE4A345F755D51334B093FA2D16A5420B7A869AE8B560A3209585D8058 +93B954DC7D9B97EBCA7FFC951AC9C8A243A6890CE850AB66620F9F9702E3D942063E8A851DE7 +8D6F438C0E24DD0575A6D9EAC8A7A6E03736FEAAE82CB8C80F2CAFEFDCBD00F3FC219DEDCBA5 +959665E40FE323A5799F17BDC3CA3394E018172DC7351A2C0DA260F4E942BB7C877F6DABE0BF +D016F19EAFFBC011564119E18341C0A3D100A5C11056DB3A9AACB110F79D2BB6D5018FB178C9 +E9F9AD07E2D44391785BDA33CA1A90173E83584512C0E1CD063C1BBF41C316E14C9E3FA3E3FA +429A1BB370FBE057065F8C43762E81FBAD4383CE602B7502A7F715F108E9595C703763FB2392 +ABBB78BDC3778E45BCF31D29B6F2F656CB67676221A53AB4D0A8C325C39CD88E4B55988C5127 +567C80281E3B8177E337B7E127FD533A480C15BFE869FEEFE3E1244A8448A07FABF756C615D4 +76E4B98740E1E5D2187136E1E889E23ACF840594030B26907E5EBC07D5B454784501C6C020CD +AF2456FD9C78760CFAA56EDC36300057302416CD57155D9A3FABF08480D657F3021F6F3BAA57 +FE96F05EE5C3107FC4C399BA1346DAEDF11D9CE89682307719C216B78AFEAB9B495F912CBA1C +84227A908F116E435AE0EE55D64343D82382596660BC7FB4739C267B8C54B3A6D4F736AE54FD +0C91A958445E1E108816E0BF902E8E61AE31DFB198DAD37251CD06184AE9C9453448A9EAAC55 +7C76964BCDA7C5ED97E39FA0B04C524CA6901007CE5264A909E9B99F359E15F1087A3B1551E1 +7BEF6BC7453597A1F20D5644020C0C7F63306A8FB4F2AB7C26B422033A02D1C724FBC760A5E3 +2C937B0364CF5611637ABD5A6967E68BC11631F51D16DD2006D65DE33FB7BA03E85CF27E5F9F +48502EFAB5813E8C5A3ED5534F4EA2D4B57ED13A01ED53A88D5DFF7AA7C65BC1C3B41BAE709C +27786255A4DC7DD81BC8EFEF1FF68D774693C4537361996078BF0DC32B3B0CB10B3B6493382B +EE819C7498CBD67ABDE015CCD07385E0C313EAB94A45DE823EE14CB9624A5943191500799DC4 +852E779DB2A1E54618236476FE27BF8CA93D518B1D3E9FFC55710D8B50AA5AE3E5871CC0391F +EEB495829E0150C037D6B41BD233860C5D3235F2AC44FA5358837F7C4D7F2B33A68601F6713B +D7D3D300D8DF866B40B519C2658DC69C4AFAEE29C2672374EC339DDFEF018A42293E9E428937 +D7EDB65BBCA68CFCD8AD13B9AE3082F13883F9D79BABC375595D93E408092B5DD52F89326D27 +B6E87F326A025DF5073DA99784009281799053F2A8949118058BE8DB1EFD7ECB6A6D0766205C +0DFF497FD02F5522F107A5C7FC742FFBA113F9A624BDE52B0B0CF5F36B3DA0FF93A45ECD6D5B +B3956D7C2F1D6EC60B11B7F8D7F52774916D796052070F4C578076AA0493D7F4308068FA72E4 +7EE1AFEFDF9EBBFB064A7187F5D35708A4763F20D741FD762A5F63FB0E1A9BACE4A515379938 +49FCE0FCFF27F94EF1C4D739808037FBF63FC3164EB7200CEB625A2E24765E93949C052C711F +FDF5910ECCCDE6FC08B21D06AD153594BC6F43981D77C13BD2342C13A6806FABEFB19B70964B +3A8AB43FA1302FD4865716CBA688FEE514D36E077D14E900EDA3CF364A28DE4283D9697FF94E +4DD391CA3722D2E39507026C3ED546B19BE4D6EAC3B7E7F57EB4A2E1A94D4A5C737A855C906D +2220332B3D69401869877EC2E790D0E64934A9F8E4787A2DE740D0183F035C7E448CB91E9229 +2F700C73551F9B07B445BD906B97B48B8568FD9FD11E5739EB8D02412BF7C7A66650CDC48280 +BDABB83AF881EF4A466962C44C451D361200882E42E16E1E63B6E133CE31A31635B4C0934700 +2CBBA783614C6127C4A26EAC47F9EBA241EAF84089E6E0A57A6A5E537B03BA9E8BF5CA259E74 +6C71033452FC17F10A319F416DBCD6144BA1864B92011DF197B7926FCFE5FDDF5BDB8FFFDA45 +F9DA83636D02760F0E736BB7657CF2A5A8A7BFCB51D02FA1999CB88E26D71A8C2FD432ABFE45 +CDDF65AA9A2C199C162E0217DE72D65B0B046F6E3CBFA0705095755901A3A9206C6E31A584AD +86F94F0466E2C8D33A40123F04F396CE83F0549DF61C2E65423FDD88FDFCE784022DD2CEFE15 +535E4533CD2373C4C9BC92D7B5A79740384D09CD8FC8D9C82D9AC0DE5B6E8F976AE8978E4D79 +D0DE39EF33062914B4D092815851C246C84B3CF54BAAB62FCAD5F8692A639E1FD66B020CAC2A +D61C61CA9E58AC33DDB1A1668A613BBC8C3B2F41285EAB4720FA1C293A5A48E8A3CE743729E6 +49B6BB75C60F8EF5B5ECC6F0AEC820FB7B8C6AB0C17A3D6C6E37FEB51C1F1FC70DF4DEEF6335 +403E6AD611813F7CA4CFBFBEA3DA313939B94DAC96C371690BA23DBEA9091D99EEEAC4309241 +57C4BCD68BF1664BE26112775ADDB7540666F83D3B69BB7FD8A48EA45B011100A3CBDD24CDDB +CBD4AA4CCEA042816BAB8F935864E37748CE08A600644BD4651F4827C217D4B7C59FE0B70180 +725237AAF487936406060710DA6D268B4C57CC51D48D02931FCE5783DB1D2AE2070D69F72B6C +1591107758A825013F7593C39BBFD9378D8E8982852DAFFC1A7A2029CECFB302CE0434EEE2AC +26C6AE86E40B3070A8741C9A7C0CCE5E2D35E33B794FD8BCCFA7DD369FB22F6298FB8EFBBB3B +4DF32D937F2FAF5C06C8C0B6C5837F1A3933176B6D2F9FA0DB44F67F5549D66FF212EC9E4DE8 +AA65CE597396E60BBFAC7297F836A155DE7F0441EB7A91FC9AEF3E32B249054E9A60EAA446B4 +F065BB63326355A7B2263538A4010AF11C8C28BD3BDCACE2D5A33A3D508D81682199FC034C52 +5DD99484343056C8FE000CF961EF5444FDA9A2D92ECBCC17E1D2FDAFD34051195656C2F5A539 +4208284A8F508D04F41762F5E2D3602126C40D56F39B82447C8BB9EE620EEE85FFF0E0E57B34 +FB97F55411DACF54388977A3454E2E303ABF65475DBDF2D5D5CC68BB42699C00778479FFD24F +2FD9B14378A5BBD1F4DA65541E56DE1FE7A4A42DE5A4D7E552D0E4CD0CE2706767C61A207D0E +EA56301CD359EDCBB53CD4F3B15E6486730AEDAC1E76732C425ACE9DA9F24C57DFCAB6942E91 +82117754493B909CD1083C96EDAAAA5EAC76ED7C42F48F4F2C0C6DB727EB895E47AC60392912 +FFECDE469085BCC3A5EA0B28C9742D4AC7AB941BB93946D8AEE56341AC8BACADAA7CB553C789 +1741E0A123FBBA5D30B017A9169EB8426EDEFF35C6B752A5F5930EC1051AD7F39177BC6FE2F8 +D20EDED8629F89801CBF2B29C5B7222F9118C1220C8CE53A3F89DABAE7AFD0B2837F1F4E20F5 +E34DC29E98078B50AFE3009F4B5B5B671DF348255B032FA6073B3F0E25DDECC35F0FD59D0CE8 +85E2EA8F1B06DCA548D41AC574421D5EB37377155CB81D3FE5793A99FC095BE7FE493B06A020 +2066725B6E33CB6D616C62D1502019BC271EEAC306DB1C26957A9755695E899725E1721AE8F8 +7FF4AFAA4FF2AB9E904038173DA5F2C9BF9CC14107556586654038EC562F19BF48D84B18B82E +6ED5EEE82601E7136CD4DB7393909DCE654F90468DBB240AC548EB64D2333BBC7FC8B13DA555 +79424A2F184296950D25A9940FCC74C45984515C369B1B853385B5877A813AF5E6DCAEF9C6D8 +963D723ED403C3D96A76291494B5694C6061684DB06F4ED608CCF25AF13815C85CF6164EDF5D +44E4A2F2E88C782B2C938063A214C8D1588FDD5E43094255E70659694850EF7E4789E68361D9 +8521F0E3909DE8C5040FE630642E6BB39757382CF0E7EDECC723745E5662D018E94052F93B8B +C067D66880F028BA14135382469123169B93019D5E6577753611F28C96B34019A4CCDF79D948 +DC678A4556A4C996BB4C3E95F8811C000C87FFA05C0EA432E4A45F2E4551FE75CB3AE344D966 +B834218C9A19E6856FA56113808CE42A9BD349384721FE653D2954DC61AB4606A0A17D3E38D1 +A5E18A0FB4CAF8A186099BF4A0E2C4C84B3054A623F973471DE50E2254753A99E8DFCAC4984A +175A31BF269CC8B8944136D5A350E69C0039784A89473D09025C50B09F8C8409CD1231C10A64 +2172FCEE2D033D885C0DDEAFA3F1256BCD233322C4D7893B22D7879806EC77BBC949D8C5A254 +45EE5D23C384C663209C9D85D54AD51A2804D618853C58034B6B3E34E94CF44C13F6925F9F9D +73E2E746593F8431441EE0F40525F23FDDAF588E634FEF9B9317D2E1E6CDDBA5161B65204AFE +A75C882E676DC5A19C842621B2E9F474F9A0E90528797F3BE63BF3B04C5428C1C7BE520DA85B +0694181BE5FF0E9836C58D6336D791770C86AB44D795F4C92A01FC1E954CBBA1656477312EA9 +E0B8F402D9200EC42F26044CFB74ADB33AD9BD911E501E5CA08473F41DDF5455248CE44233E4 +E54C8C029D20DCC09B1C1BC3D9CB6E5DE34EAB8603E6394B2478E21367747F64E0BD2DCBFC8E +2C945BD67D6DC09975C84AFBC03A8CC5FC4A7F185BA4573441B23896760BF832D4D7DCD8DC93 +AAD2F5FE46B229F4FEF8BCA5CFA5B32F917F4CB6B22E324F2EAD035198D9DBA032D026C40EDA +FB467587155CF8EB93B6DD2478F049F7E7AEB555483D0E83993E56DC140B1C09DD7BD5CFE5DA +80F6015C253BA093FB03D87F5762C20FDAE871B3EEAD5EA64FB8B2DEADDD475CAFDA649BA143 +6D50D8CB897E3817A783D6B0E13AC3C1F4F7A5BA3277ED53F5CD752AB7A78F1F55830D5CC48F +F6E23BD4671D1F0D75B5F3EEBD792928559D06DD9D0C2426B8D554F3C0534221445208093E93 +3CF8564505C6A12EA83E72871ED53CD4D881C0C17AD10648AC0420A9D3FC3114BE6C39A89201 +7E070550B4EEF2506710398F577234A79D93E2CCC44EE23C8A3D0AD1B198BCA89A917E294102 +7789AAFCDF5329412B18B41F1ADFF594844210084D11E72712CF77F6CDB953655F67BB17CA9B +B84943946C5BC028AF8D9FFDA91FDF024617E72CA7DEEAD076C66ABD7E3B8053960D0AEF9BB5 +B530F78BA3DC154FE39382B5C3A6F18D7070F12047C57BCE194A0615C29B9E1D655C0ECFFE0B +CCA6117C1E3D50CA27231DBBFCFDE54F3699A96C559A8E6D680B267F9F1E5AA51A459F34F6DE +CCD2B8D915F4CF184C35804E0E5F0CC172DC3C15180AD344D9627C898521697339B3B68243E1 +B9939B4ACC8FA271B9738D94DB1995FB29F5A177EDFA2BA466BDDAF3E6FEAF56290A4832D605 +864F36BE1C7F8EBA90765BAF0199BEAB111D19E8090FCD3637A7FEA52A277408374AE8AA55DD +C5A07CCEC703BEB716ED1CB483CD28B9E24681C204A37AC6A6B0DFBB9510795C73BC8D310EF9 +15D131A19F447B8E2FFF8452177AAF8A96DDD8F2F081AD831F9B91D700DCF152C8190FBCF1FE +2931E859C99F5FEF903530F7CA97D3BC529C14C432CFEFD05A37549078D5122D1F28A55B62F1 +D84B06EEC6D73B8605CEE62C959CB5E34A580AD5546670C81C883A10AF2722AE64D6D5869030 +DF0F4F66681C58235C803902D1C76F80D2BEE2DC992348B74BB321203363B215313B74F4E5DF +1866CC9CDEFF1461E5A922A28D13763EFDF23DD465674A1632955A180A979515DE90CFBDAD03 +B22AD874A729EB169D544518086ED719E4E614046B5DEE524B3C6CA3FD865EE1AC595E3DCDE2 +2AEE1918C71ACEC41913B5746445962CE2062BDDFD942BE52E19AAC8BEF22DBAAE2A2F96A8B5 +1F7665C50C23EC9F743D98FB995C8A2566A65C60999F0FEC9E2C16A3472CE2059E67EDF8ACA3 +BF995C373A3F47C7BDC5AC1D2BCE2D226B6A77CF5A089C9C864E92730F3BE335A9E5B361B0CE +6A0A41C7C50B4628E2BFA87F5E8F62F611722F928E8007C06B1EB36CA310516CDBDA66630550 +D9796145DA1579FB36CCADCBD6B595131032B2F7EE0AE59D5A7F8EB7730F298AB0538E952323 +B75BABC0D90EA756033A7458B54A091623905EA4CBB39FE7C4DE018B26F0386CE8C47539F975 +41517875D65E31D14F022D36C27FF3F7E7C828BE6B2F202276A7F98579CDC1BC8F5D16DB86BB +015B01692EDD39538CCDC510460EF130498F1CA568F24DC3FB78CAD9D6B084AF04D007FFA6F5 +67535EB0CC1B8749BF7B0BA18715E6E352F9DB9DB653CEB4E4A6B8F40EFFF49C4249AA84CE19 +CDE606651075080E2AD02CB780428F8CD9031FBFF0E902F1E6708705397EE7D03435E27CAC8D +146AAD75D5B95BFA77681272B06F8FC171E0EC4264C6B5B6CFBD69B81F926D1DF62E52281418 +103CDE760EFB4B60091511079DB125EAC8AFE246991C7E3E63C58424F496C600CC5B6E478027 +A505643C7DD13B868DCF5C52045AA005500175B520207B58C8E19E51B9AFA2FEF1628B580F7A +E6D45AC7C2E5486A090FAA2F67CCC7DEFFF92A243D731BCBC89E951758AC56A687DDFE0F18BE +23288DF62FC88685B07E78E9DDB1B6B9EFD92C7648B7170C6588780F0F593F5ACF1258AEC27E +95FF005BE064474C0111E075228F9E0B308CBCAC73226C9FAE8269D1924BD4B7FF837B1C68CA +7A430670D17F8FED5CC904DFACB174A720990C47C11A1FEA3F70B669768CC7ABA360D9A8A7BA +3B0D1C73E94A2433A67D392984CE5C7D3FB70D941FAA0E2F152D322641FFC882E5A50DD9EA7C +7BFBE4B913388C9288611C4EED09FD824B2877684C045D95E4A1273D320713D2AE3C23A4C426 +2711F9DDE8045B19CA62C6385C98764D079E23977D06CBB80E04670AD1ED105AF874D557AC50 +684B83EF25493DB95F657B14F7DE5F4EEECC61E970D04039D418FB4A3EF03BDAE5877FFCF304 +081FCE4495431CAC013FEAA8D96A89CC559DBEC177AFD978E5C8B884B3D25CAA397F424C40FA +C30CC427022C2F1081F290196D8F0EF5E29856506634ADB2EAB1B0F0B100B620EBB19691ACFF +427950B7DC1A0D04254F0B87BD868680A43F5B959ACEF50C236C6047496DFB3BF74CBD2F30FA +6FAF6B3D78A9FEB571AB9EB59EB4108265BB63350FBF08E2B6B2728C69F5A9499112791457E4 +654CB119485641D74924FBAB7DEA0AC56EA0FB49EFC08842C6AB92BD3F909E9179E972E5EC57 +65CB2251591A7CE7E6D1311A52D218912A48D44973209214D3DC17A4FBCB6901E3FCD7AAD699 +145239DA489EF2A081759A0D6B90888EA1D646871C9F6660C22F20716211430AD7CB3E0761A7 +8AC860C00BD93EA1202350B9661CDFF05A9462897D73A4205A0BC34355965A65D4C2E3CCD123 +678A5D1F545EF800BFBAFC2AED9ED19728200CA27BB30CDC829FA5764978D3254E9C00351C97 +CBF9C710B7C7377C2354EF1A00A23D5E825E9619E3A021325FFCE2BEEAEBB407F1C494FA22CD +6A7E497939E2C13F0AD7265E3310580EC8862EBB716968C01036C0C4C5A5C59C26EBDFF1A5EA +E6735DE2C4F5608DFB0FA2B80218BDD43FEA23D8CB573EA0782D73BD8779DE5DC679DF892F8B +462684BDB9434B562D8778CAD47E9A8C4D676B17F3DBA3F3512567E3EBBEF0F981CC1C6365E1 +C1FB561D335789CB74B1CDDC4475440A41F552B9187C731E917E00E7A387DA0E39A2D2B2E9AE +1D0E212674BE28E4FA4E3358AB180960C708FEFE3F8950E614A897355B6A0814915170DD743A +803369A6BDFB48E1700BBEEEF23887A1825EE367BEFE70C9B5080172FB96FBB2030C4C9A3C71 +E90053EE330F654E5D536DC5AA88C7E65ECB97EC771DF473C5405FC09A76526522EA94D79FED +9001282D3EA211DDECAA9065BFAFC0C2D676A818009CD55ABA5679213380DB5A316FE3972951 +ADB395FF679669BF7137D916EC169E0A6B38C6F8FC1B478FC6FBCF5F80EA6BFA49E5DA2E56A7 +5ED20D1C8B2D50F89A46054CEB2B6D8C6B59A7577BDBA0EE5848537B14F98C232AB3A2DB3C15 +33B42FD671B54D5D1E9B61C87DB700D3959BC085C07EF337DA8B99390216D2EB63B46772D463 +7AE2FFBC47DE27869AC2AE409AF4646DCA7B831A531B3FF932830ADCDA918698A24AF67CE0EE +FA61E359AEF096EC131FC77B5D1BECC4A0CB4CE556F4E27DFA5CD088D8C7C41094FBF617365F +27A1B6FE81B2AC09C515B3167691A2BD202A060CC67FA2CEB4483AE3C6458AA1BDB242EA4CA8 +1FBB2077BD63A786B6BF64BBF92E51DD88B3AA5AD22AEAD13289E13C8EC58A664D4ADEDF7B74 +1DFC8C125FC6C3A3668662F30032BD3E67BFC599615FB35E6A51757329C528E5FCDD4F0DB623 +1859FCDC1345F256ED711F633CBDA8FF1007F4CA288F9A7D1EF2D3BDA4CD7292FFE352A0B7ED +DB202DA2785EAA5D9A7D6130D6CEB0514F29528814486B1C02C4793508EF819B53CA52CBE525 +3A32BA7A5868AD26475B7373EAA20209BE4854DD397D680B5A40730B2BFC240FEE57CE60D024 +974B4D09A963BFD7002D8A7DAC75E7842DBAC6C3E634879FCA3EE9A92F5F9C8D42ADCFF0671F +CF89B8B76CCF92BDA5812EE0DDB10986F2180BF5CC5BC9F8E46A7CD2CA6EBA532629600C858F +059F1B5946F9D769EAE6D5668A6BD7910793E1E2E0B8D59701AB081B38359127E7CA301C664D +EC91CA82F1EBCD88CE15E2ACF3626AF80459D05DD4E92354A2775F82B2FAC2AF3E34A4B21FDA +F66E0BA692BE8FF034CF33E8E9975547D2D4E68ECDF6E6230D38CADA4C9F33BD5AE9833EA50C +34BAD1ACD987999F83C54A5497D758F65BF772A0C44725A51131CB2F8F509FEB7A13225B0C66 +71777E5B146A99666D5EC05DCC6DAB2370842925F458430AD173CF8A9569BB2F2DCBB11412B6 +D9A2B07EBD5E928E90BA133269CFD148007CA1F3083CF88F877483AF3004D55EDA3F7BF53345 +35BC604C19CEF53019A6E12178AEBB7EFC51BC9513D3BB549A44FDCF1AFF2068148CA3C31E57 +8865B95F5DF47214228C07168108D222E0E7C2C8A9FC35E8DFE284E16A0D4E9EAFFF5B3D5ABF +7C19DA9590D4707CEE97A4BB744F837BA86D387B2B03D06D3435E62306CABA1FA6B85DD357FE +E4C69AFA35AA94611008F3E2FD32FDEDB8C7FAD7AE0E70DE4FCD983D5BA6719D65E66C84510F +4E2B38DC080845AE4628CF3AB60C57B546E9109F3A52497885FC347E95FCDF30ECC7BA1311AF +44445A4B51D9EAC57FEEC0F77D99A0EB16CF15233009B4CF12D615F9D1DC10F99B309FC34EB3 +1428C96F0780541D9240DB35D825A3A50BCF05F9261B1D4861395950B409B1BB39D846ADE1A0 +5DE2BABEFB71C53258A7940C51BEDDD981C86C7CB297A284A4389B9CC2C0A724596E1E7E72ED +2B70950A98B8F1894201CAD455FF9F09FDEE641C9F45CCFFECBBCCB5C043D090449F05073943 +D5DE9BBB151739BCE2F517B6A0CA7BE84F251BDDAAC05D7D13610D18E352ADF6858BC78823B2 +1131750154441C340B27DAF56C208945105E095FEEA8517C186953AFFC060AFF42BAB27E20A6 +FC1484D669E055535AD0E8F83F9DAC96223E385D81D79CE7341E78B737D65FB1ABF44EAB7540 +A134125AF93194FF5CA6AB0C3EF42EF474BFA9CFF10204D4B5A28FDF4B3529BE86559CD83702 +369300819C50F8F33F37E7985228C69E04B81562CB67B37870CB666228DDCE5231BE170F8CEB +A4408BA5F4860C00ACE66D09D064ECADDF6FC6F7F53FB1943FEA970B785BFA59ED8AE2D66F7D +92202133DED3E1BC06F298E6B07FB697DFFC04F29F58CF1E0D9D5C5F27BC412DB7F6830470C2 +2E1A731A0DB1FE634531F8FE783E6C582151E371275C21783F101A5BD6CA001792647016BD67 +44905C43340FAE604B2BDCE3B0C54B9E8381EE0CF2C095BB154FCDA6111635EA16B885467E82 +9E99537C57F256FFCDF706B456151F385293D19E216EB5201FBDE42C002C28253E15F051E137 +A02C2D87511CA01F11320A7287DDF7F597B7C9DAC840A5F7EAB451A93A04000FF582867F8E33 +9F728626A671066F1E4197F492485F947D9C407D439CB105A5F0438ECD434F9E34D1A3CAC8DA +93E7B923BEF3461F52843AACB89E57716342FD68A9F9FFD840FBB5103A0918E7FA34C0387DFC +0ACE780A4D520B980029F4BED8197C322A12A99EF9E36B19767EF64F95F8EB9A45C86726120F +F7B037A285BD8BFEAB84E3359B7832F3B24CBCF51F4CDCFF2B8CB2DCF9B025140D273D47F1B2 +698E236C6178AB11E2DD0A6BD252F9ACB150F24BACA31056112862BE6301842D0CF3616864D2 +24CB17257C148655C3C84062433A42ED3D7B6E4A5376A7A387DC09109E2DCBF82CD8E1A1CB71 +D237A27962C312FEAF8E402978A66E088ECC81F72AB20DA92186F97409DEDA3BCCAB6F87ECCC +0CDA472ECBEE03076B195589278426233C277D702FC7C2FF26CBE343DED90A0EA5CC28F7E023 +2489CAD01DEBBCD748FF5E0FCF19F137F6BD9F753EF68D4073962A37433CED8BC46412631365 +6E97DCB87191A59957358E2D5E7555DBFE991D77C0C11DDA2EC87370660E93CC3D1C877D77E3 +00DDD85E138E5CABB8DD1F36E03AD47A12A7C341D39174BF6DB831C4858EF776DB71D21244E7 +5B2717A1C8190476555171E3C4D3E8A6F2E9CEB37FDCB233427AC1D9F33984786A0CA0888C09 +73844C950B9B264BE7E167E683EC17F6D9F3C1686028D9566B824EAE90F80966BACF42428007 +9CB563C7EE9096E039AFF2BDDAF902C04E33A33AFBB5DC69514C29D0AAF0CA294CE549E13DE0 +B18393E0C51B650A99C5AB73B171DA23A6A0E574938E3FEF9DA83AC4C686871B8015310B7C39 +F8E67BAD9A0658A502285515EA83442AC764F9E715BD89A08323F181A021C7BB0FABD1BFFB5F +5E2F25CC4AB7882011248327EF627B38E1AA8DABE8F5969B73F84CE822BB61C66302569D77FE +252491DEB52314C5876E78187EFB8028F6C63B5D137057C3F1DF52304E705C0AD792AEC3533A +FD59FF0FB740DDA2B7972C28E1FD59134ADF0EC71439BBCB3987B516FB75CC5A4140978F3F46 +933FE5A46117B9E91ED345AA27F8DBFD47497312DF7DA822DF9C7460784157B30B5C7321295A +1D4B022507FB31A641AB700E81BB9863CD9DF52F8935731674DB599AC7FBCB95E8561C327DCF +BE14E5A6945FADC3954975DF25414ADF7007A4F0571A450B170042D34939A4BF76F8CA3CA75B +EC4B64ECAB37864A2BB8D2B607D4848D073FBD5E06144787070E2C0994D80EC0B8B281A761CF +002365D19CB0A0FB833580A4EA40CDFEFA0C1CD2A5E7919F8EF2BB92FA1D97F2F2FB0D3F0504 +7FEE26E52498B9F4195DA8452CF82AC25211AE317207E76DED493BE5D5F12C7C2E2EAC7444D3 +43F2979CAFF9CD47F2A722CE3F695FB754FA60289F926979947401CA7FBBD699EA6308F39E87 +E8B490CA37F5D40ADFC09E0E20E0E141E6B68F6A054FF84E4C873B606A123435BBD36D6F19EB +50F579648DB3B1BAABA7AE9DD86A0CA21E83719C34EB9974EFE65E86F7BFE2B7AAD88287D34A +48816915A6E62DD483648F1AF4714E430BDFAD5ACE961C361BDE19EF6A17B187D31751FBC138 +5184182EDA613AE2599722B7300184F0BA3FC36DE3377AB191513AD96B242CA3DFB07AF81A26 +5BD4C985F12E9AFF5D4B55E4CC6159D701B3174BDA3AE9A93DE9EFD0606437593FC72E1E510D +05515368AFEF9069AC3F8FD493E88B9F3D0178334E1A552879DD0E42D233B30C4D3AEC2D8BE4 +AAC2CC64CBAE763D9664BED33C6363CA1043D069F49CE32EB5D574E69BAEE1E7F645BDBB7CA9 +C4A760EF44F1ABD1112A5E799CC2AC22D89A95B5862C96EA1243FAA08FD176CA42CFF5E79C92 +F887CEF7D68FAFE0A68BB5FC4CB9C14080E19547E01CF8D8570ED52C6EC5E0ECA2D47600EA33 +BCECC390E1EDD6B365FA0EA04B7F1D3E11BF81F21D032D9514BA6845966B71FC1E9D4D37471F +DFE3EE247E25B20F44A4D12AE769F3B46F652C87ABCF83205F6FDB533ECA047D12BF4C9F7C6C +0E806F1279A72C606CA4C52BB08E98D38708D5943F96AD5E25D4D65560B2EB099E3013716BAF +9093D4300BE22756CB8371B7109D6F43CB205DAEA89E8AFEE774EE173DC666BCA50ED0B8540B +D8A5D864D04E29892B472D4003A9B7CECEDB51F72D0943E1535B8A98D22BB8513DC55F6D9E8E +DB1A17D580B7AF8E2CCEAAD36D13EA6DF16B0DC33728DC602FEDE23BFCB37874540851A3D3CE +D9F42A036BB25FE4648F37BFAF0385D0CF5AC875864EEFAEF8EEB93BD9B8D466287BBA42035B +D4AB37017729CFBB2869CD8E6435E1CEB75CFAF4338E19B6FC673FB6FF412C14EBB08548C067 +519622EDA6FF75D28B8DF92E980B7D900C99790799C57FFBC66D4BEE2876C06D397B36CE726F +A0802C48EC933C61CA0F7DA8B1D66AF8D52932DD79B5458C93908784863EB66D55EA7DE29973 +382E67F7BCBD836998FCB3A1B408DCF52C99F7338761B68CF0BC73327EDBB00B60E26CADFF97 +99CB9384960B5E6B24E28422275784B068A136A7BED61042F43B1478961D68EE111176F6F7AC +A9C1402964F17FA0895CDD7B561C105BC5FAC1FEC7E7E4B4DD1333B3E6250A597F0756C97CF6 +8ABE2C156B24CEDDF9C58FAB5FC2B5467E66E53C0641E4D1BED674149F7CDDEFDF6AD478D072 +1AAF5189A64519F9A73467E22CD4A6585F8D0111E4E5413A3ADB340B0BA95D274D95AA04149A +39718DA91DC7F585B8BC164AD15C047D0512816D5A5BA9E9A8737D017AF929DE4B5B252740E5 +74D3BE7BC3AAC21514A14CF7AD7DCDF5676242E851FEE6A8AC002E863B2CD0CBB69CD8716992 +DC5665FDF80F26412DE3A63A9F508BF415BE674113D665286B1AD88D8283E3E2930803EA4F59 +09BA35ED5BB1266D02F7D7A02742A638E70DCF25B5CE6CF8F993992CEBA07FAABE48B9171574 +2A0CD3D267364E7E36B9028342D2A78284692CD5391653273EA19CA9025F63DA2CB24A9E4A3A +0024DE3715A0A7B25F43139205EFE4795B65812C56B9FCA96A35DA52844DE2BE80360A8A09E2 +A8BA78A093D3709C6AA9385F4A5C705375EF9C87628606EA363B379E24D7C4BB4EABE3484E0E +69222826940F4A03B59B7514315B249D28DD3EB1CCB08CA42159B574657B642BCE2B69CB9536 +9DA47D6AB51D1521BC155B6A1C95650847920275E57F66F06D0F94F42F308F9B2C41BE5619A2 +2E4230F5BA490C493C61E0928F7AA77E4C7C43CC405CCDBEB7E3E00EA1655DBEBDF6A665711A +DAEF12FBF41A4AF22B8408AA6216A460A17A8266BE82423B79C8D00B84608126D10754D562A9 +80C0A825B6665202E4892910075708EDA3620DFFC93BAFBEEB25687779135C4412D0063B799C +DFEE805B1696FE0ED1A7CBE51BBE21F564179AE9E3E0C38671750A3E1B7D8B2D959C22A8AF69 +FD1B1909A7733540E6166D07C5D1DF3B1B8926A8921E0EF3835D669783E475FB1AC4911B1B9A +5288FE0217407AC6A0DDA1E7CB573C0CE652452EE34A75AB45908D40FE06DA4C88963C397E18 +0100C65E81E0108237647030DC4C5D9F05D7C513D2E52AFC918A94E969342ADF0E3CD9A3B028 +B21621C0398795EBE8C4D5BB0772E8008312868F75851E616A1425EC76E67FCA7980A3784BF8 +8042FD98C304F7A024CB56FAB7F39C51770E6E3A871E20D77979421A962933A9208AC3C2A2FD +1DC34EF84BCFA5EB869FC5ADE45A8F8414F0CB65DA858677FA6254E25C808DD1AC952C26650C +6C0BF99E25204C6058996D5F3DD23136378C750834AA6FD4504274F968DBBDC4B358314986AF +F04FF03C1DB465F1EA4268E3EB82FB3A1A8AF13D5AEDA189A51B1B5013048AA4DF599CA47ABB +ED3458566040717143C793AD16016149EBA1134CCBE84F1F9324245E9880077BB7F9F7B5AB00 +5AE77951AB044C91E8BF96B8DDB9729CBD68D9ED09CA955DCADD481F018D33C18577DD082608 +B0243E50EC77A07A950F282B165BFCEE110A9E810E3D49FC7201493D785A31C1CF5B246DDE61 +4B72B74F8396DF70CE8A13FCC25013848F0EEDF37118F24086B9CBA2A3C38B7E950227F237E0 +C8B96139C2099856E34243C112BAA2B912876B0655FADB7C359D5B77560AC9B3066C777020E2 +2441272033FA9939F278A8C1C01B1EA1235642D15A7D21AD12B2BFA0135E8772614656F97EEE +14033B4ADA4273C07158F12A3E1EE0DEF1B155E1329B84B0A9113E0998FE4010CDB4E7D07506 +BB90C98B70DE1041A6FCD1E20CAC6019B61BB10A48C152A73D47EBC0F18205DF0FC3BD112B30 +8DC8B07909FF41612C03431824DDC6B3B5DCB5412108DE01D4FF94182E90DDD5BCEC425D4CAB +10B7E22BCBB6B503B7F017D96C416E82F2FE082C99B3A566F6592CF5A8E3BE2DAA959911258B +387859138F212F8A46F9E1E5E0F8339CB799018519386F9715AC108A0271FD29B237964B9A2A +E930145C65443FE8314E245AD189212D2B99B2C1EEC31BEFEDD067D0F5E5BBCB851F90235BF7 +53C5AA86BA9D42FDB2947AC695FB1BC7F0CDD57B33EE3092F58A73AC36E40D03F12E9CA1E790 +3B171DD247D6B257F20FD057D35386CED1202144F2067B34355A18B0CE6E13A3BEA4DF9EB4F2 +0ED23A20C26B314214128079DC0C795474A3083FB9DE02492746B851CCD59B4B3B349146BEDD +075B045963CF6CBDF68AC5D670BD01E441FB378B191CE45F688560FF2BDFBCBD63677FD669F6 +D01CE1F5EB0E66B0D3D41E7B53CCBB9044ACDBAEC1645F23CC1CFC938378855A40E897E6C446 +8FD46D707FD3DE5C080D4E8E73483126DC8276547F03CC554DFBD4E74CE04056BD8143C1FCB9 +E92E5C5AAC83AA725D7B926BB266D9555C948453FF4C9BA01B01D6A47B831BEBE7FCB23D6144 +9591D237453D8FE0AF43A687DA9797B38B945010561A428A07030A77F14D53537F7002E36A5B +D2C1970C9A89BC930E9D57668144E21A9094B0FF6A7746B399EE169CBC9B279C3A1E22D0E5B2 +B9F7BB64825E18E87799B5C29AA6CE7A82399625EF024A25C1517BBB762D3EDDDFA44B0C8671 +019116D73A45AD874A6A6EEBA06CBAED65D2D740B87A52E065ADCC66093B1C9F32347933A4DD +016D90E737FB2EE97F5290CCBC02AB947AEB7AAC31368DF3883476EFBAF7BD56AFF3685146CE +9F6B39ED164BA74C89B2A92CC8CB8DA6FA9B0F8320D14D31B9A80019D885B801C6621EC87BAB +3740029982782937CC1632482756260BFD1C376B4CD8C458F66B2D4391442E39EEC802798752 +8EB4A1AE28D933874F8952335A46F69F503A130DB343D4502173EDBB5C07B3C24E75C142A9BB +58E9A1B8F66406003264791A920886CCCD284F8545532C8BB2EE2AC1F38CF9A464F82A9B83C5 +9E7EB60B6BBFCF69946960EE85166E7AA6887A0B0D609C62BD18B5EEBF2EA99C2479E86721E6 +AC5D2C21F7A085BCE4B05B73495DA3F4EEC1EED648708B9D6ABD9125E18DE013300522EBE064 +42CA3A6A64DC704A9728A177A10D92648DA7C6DB79F2AE2BEF762FBC440F094235DDAEF16098 +61DFC69D751F3FBA44B3AB190C6117B4034C510A0F12080AB416ADBA6E99FC43018FCE57F5E2 +07C88DE8487961C06BF017B00DB006F2D934621E9C2DB8937D1A4497FCDADF03100695E2B268 +4B37959F25DA6F5F5574FEA68DB87F9DFA958F0047CAF5291B8A955EB69A84C8F73B3748BEF4 +A4B8BEF8C662AB6A3FF26AC405551E8D593AE69B16A6A01B1A88BF2E688171A2820119CC67F3 +DA78A807574D5DA12819DD2ECF57FB8DD790292AB3DC6A4A28FF193DE1BC812E4FAD1B8AA82D +5E582C66D1FBF0FA26C7A19CCCA4E22AD263645D249D31761B70C56375D55A1BE039305291CB +2191EB88075E177427CA254900ADDFAC7763D62706B2CF170DE09CAF55F08D65A2350564B36E +7042C946551F6CE1220706CBAA6101DE0F37640F652572CCAC55D1FE65562583F7A94BA39315 +C6B42657058DB161DA458FE47457F2AEFF5AAAE66CEB1F5B4F74823EB5F4A6E61FE72411225F +7A73AFC0CC6743E918182D115BB3ADC014E0EFCFA697222C609594B9D70723B641648B1F5CF2 +093A9E469A4FC3F33500707C714503572379DD658FD4FB349D749F32426FF13A50C170B6C896 +CFCD76C07B767D8D3E1D4E9E3FC482B9E6A65D8265614C9F6B315A97ABD18F52C815F2A7F2A1 +39EBCE6239F9347CCE9D71DA601D5CC37B8A6F9AB9960516BFA5DEFA76283766C0F301AC4BBE +21B4D2AC51D69946DCB76DCE8A8ACD1780F88386C7F1FABDD2B4DA67D2A1C07F5072BDF95B65 +01026FFA88AD597D4BA66710821498A8E4D9CDFABCD67E954650CBF4FA00CE6C9E0FCD8B8680 +993A112A0346ECEE73075706E46D820EC69D77191124E694359A9745559321268ED80C9C9E9E +EFE4D27F2D2CBEDCAF27E33EF93483C662157BD0449D781462F1BB12B50622DA46BF1591BF76 +80EE5ECCFB716DEDFF2F3E74B5991F2F37BC29E2A98D649328C1922291B5D33DC8CD1FAF071E +43EAEE80115283F1D5B2131F15F7AD7DEE2739B6B3C7B0687432F552034C3F541C7BA9C5EE57 +67230F3F91272CA1502B6BA0668CB3D7BDD82242BC01D51B04F72F0F4AA4D367D219AC55EE74 +64F90484747EB6E2360E825860B8605F6519DBE7F9139C0A7BC559555BC48531349EAC202B7E +7622006B581644D467B44D3C22AC5A166CDFBD9215C2C999D59416A9F512A485F4D452714754 +49257160DADE372BFC397171B66BDB2A483D2EB5A7DF3479AB381B37811C0795B406D97AF1DB +9C998DDA6203A7628ACC4CD8E240E166BD9B6CD66C6D6876B4F475E8159D430527093265ADE6 +A55284AD768EA42365BC5199897D093C44AE66D8FF6FB5D4312A7C943538B29DEA4946B413F1 +F370AAB569B5744AE7523DB08FDD315223E553CED5AE1F92CBF2263803CB35E9C7714DAB6020 +3A74EF3923B880685F17C8C26F319764583D0038EED65AF34F3AF23DAE0D010FB8D8727DA1ED +668B70047002B4BE55962819CF9487C1A5C006FFA009A1999A95B5B8A42D5D01DAE22FA5117A +BBDD667F3278A6961BE45170D392D232A3DA44645AD43285829C9045E8D68C3E87C4C59DAB03 +67671EF859C96168777835BCF3F0E7E952E69BF903630464C967D6946C02056003DEB02293DE +B5A5B1F8E331EA64FDD89858F5D6C610D7610ADB03D2C6113660A589AFAB45DC0B88D8D92C8A +6E49767428BED4A39EDF23FFE561B8DECC065CAE29ACD8E4F6D59B0AF84098EF60ABE204C17F +B356FA77EAC9AA24188D65E5175BE1B76865AE11C41EFC2626079FAFA5A3A100852504771257 +7FB7A0E0E7AD50220BBE11ED73EDB2DD8ED0657EF2B40D064EF0CCAF2EAE53BD71F921B816E2 +51D266765BD97472BB5F465C99F470314DEA782F68416F6BDAF6E53966207DB840B31B3417B9 +305EA7369ECCE7FAA29437FB85DD46F7F0146BF35E825294C791966CDF0102D584659EFBBA9A +5C421697CAB15B0E7C046B3616477D2F6505071F626F2A4241A05A760B7438EFFCF9A118309B +EF7ACAFC9ED9AE17C9530CBD625BEDA6F224BA9BEB51676BDD27B3C5E31628E346BEB371E389 +8299A517D0BEC4D2E8EC7BF3C60A92B9D03F61EEBE3D1CEF65E3584B296D960EC620D38F16FF +21B8A47FD5793E46BF37D52CD51ED5D630E70919C467DC68F770E7308BBA86DD6BA21B58D324 +9F35F35F7D0DEA01ED08059163A56BD219B49F85A98AB56D15AFDAA17CC8537E1E80617E0A03 +8975F8DCABF7F35931C47F1C88490D0D5D47547032C980CDB8E2138F4342F9B84A824427B034 +11F870A4523AE85B1FDB3CB44EAF5F90F0D5D97FB44E55A80C5038876A3EA7ADC28A6582135E +1B40C1C3A2A129A8E45B35E908DBA2240041F1BAADAC7BF241132490919B4C77487233AE5B57 +53834739A9E815D5D11EAC5B0AB9812E14EF97199304E1077D7DE6768B164D4C7C69824B0ED2 +F3480EB9533AF9DDB1625BB80960DECB90D6F03CC69F9C7EB851D2A0228DEBC62A75A53E8475 +2B6A16F81A339F411051432EE95C73BE36312504D8F7F6063E89DF87B75DBD59D9A22DCC4562 +353E1C85991EB845CF18D6655F97AF9ED25EFA6D59106C6EC5A15A88C7EA808B760DBD9A92BB +1BFEB16B19B9ECA8D27D8A8981E42A9A1E6D7BBFF94739B848B25AB2178376435380B123F10E +42ADB56951796D52B0DD6C7C737A001D8E5225535A3A1BEBFBB0FCAE6D278348519ADBC127E0 +77C307BD9783851F31016C4EE8CD83904B04EBD8F68046A7B42B380C240166B996313731CC70 +02F1D8B438DEBAD313CFC779FC0D3DAE2ADA54C86C8ED88EABE82BBE3EB92B64F739FD61B72E +26DAC12C3B3167A056E724646849CD5A72B3A3F0EC7E9DC895886CAD89C904EA911C7FFBE284 +AC094C83F1800D32348B99ED12F13CAC16519BD99BE5BC7C3C525D6B12C8BC41661559ED4BB0 +4D674758513A9F9C9428FF4AE28B0BA54FA5535FBEBB445B78B31C5F8E64F76CF2B685A772E9 +A7F365F5876C8291C0A57FBCDA8FC5F1BB59F714412D42FFD6EDAE1DA5EC873125817BCA7C6A +D9682A9F76B6E25260C54DD1A48B6C6A9B4D7C305DBD2A10B0317E211D0D15F890B14736D31C +1403B55AE5848F96F3A2E133C042D64A3ACB0D10148C3FB3DBDB489FD6C1333C26BF7B6AC17C +4CA3A3791E01B71D3D93D27A187079A4912A37D95BF38BF65B1C565CD588681C31D574577CF5 +388690B6D22BE8609B395D6CD0113C0F70D71AF534B3863425BC8BB074DAF73149BAAF58C9A8 +33466A0FAFFBDA1E79ACF6BCBBAA81C63EA29512AAE4E0B37AC01CB669FC5D41B7506AC85E6C +EA0286281DD2A6881894F20D3DF2FE7D158231B3018A53BAFB43DB9AB4C2A83E6763D942F0A0 +2655DF9B56981FBC96FD2287224AFAC5AA0F4AB4DCD791B8A73A5796075E42C22F155C306444 +6A076D8534FF638C9BB39454606ADB1E28AEB7347080A57BBE840875C682B902A1E510251E69 +BA5F423D890E8F3751C3670BE6D992AE26532E986FEABCC8CE0E29B74B623122E030B2232495 +7F210AB4482DF9F2EDC785BECE54826220442CD98BBE13E261253B873F81871DD5B0726AA09B +EAB26D0ED6AD43E6377441BAFADB3A7B9935CAD5507590613A8A85D1AB2402B785E3480EF489 +FD8CB6EE337D37CBB1B155C17EEA83FBC2BF88C0B3B4AE1935EBD5B82406AF9F2E0E2B1A550A +F6E1D45B84E82E5B7ED8E3C18054B868D4FFCDA8FCA632B898F16D55E9BA5B40B56D1311467B +233310FF0DA2489E6F8F6BF4D8B573CC931E11B13BC09F79666314A054A7769A765F756B650B +7BFADC243714939A6B440FA5C373DDB69F4667B894FD2630700CE76665DF023BB5D88829829A +0F7D8670176B580A4E2C0C1AAD0A47B9E160764BEDD6A34CA8885CEFF994CBC6BA1BE767DE53 +BEC96FFD88F9FA0B9195C1125FD9C7E5E6E835C70198B01506DB42C612AB1EBD3846CD0C9581 +73CED3C188F08FF2AA1CB5078AB61DF54CAC195513C02213BC9CE8456DEA32CCF941253B6D07 +606AE772B96168D3B11036C83874D800722D4C6469A88C3C1D6C4F28BECEBC61A4A1AFABB26D +FCD3F26296120B79EAD45476463902625CF169C43A29F8ECA4F71C868ED959788CB34B040C29 +B9DF2703B6A362A1E8D636FA330BE1E65A33213BDE120A36AAF52152340E385D72AF71BFFC0F +34AFBF117CDE4DBD4820AEF1D453CECAE6281C2EECB2577737C32A59D3686DFCA6B82783C98D +6B310CE5BA9299E974C3FC1E6BFE92A264EEF97B568195357A33576EEAA246F5D8049AC80E6B +10458744110F1219189FF547772B2D4233778D4DBAE48B91DFE1D5DB1F64F919EE809A7DEB2A +916102974FAC2389057267070D9AEBB6FA96F2B080C8032727D751569976841915292AC32F5D +5D0D01132237EF63A759E1F1AE1750EE79272F04AA99B477CCC6A4E5B0F26DB40627B6D27411 +49FC679108C4C13830A2D6031BDF4A630327738BD8E7C6A4C384BD281F612B821F932DA1B9D9 +33E78B6CA50D28E4D7E30F8B4B21ACC7700810121BA0AEF6FA1036E32CDE52D3BCEC0DB12CC6 +5E57DC5239710A97EC0EF9B3D4F43E7B86AA115FCE5AAED1C763C75F8EA3DD559CE7B11ECC4E +5FC5B08B9BC62407D56D366364E28A92FAAAF94BA5CC3ABD26CA66A8CF0EB6D015589BD15517 +4C08787D87BF65D7756BEC6B4DD8114B953C0E603A492C0CE09CFCCAE35F0CE9744491624A3B +52D9DFAAAA6EDB5874280295E49AEB3FDCA1353CC96E91C7E3F8650DBAC8C09540292CBE3C3A +541E2509DF74BAB4E1A6E0817763F09211D67EE2C0AD57277F3F34C881B0DE1419C47787E3D8 +66906BD928C109FF52A7EE898DE2D765ADD468CCF773F36106A52767E88086C29DD10E5AF3D1 +15FD7E969AE3FF46E1EAF11E769B4D31AFA2E0CE40F70E58C4591FF528C76277179C878991A5 +0D493FEAEBB3B3FC830412520027C275CBCE014D342EE66AE0ADBFC02A7D244D6DF51BAC68FF +752717763123D7B8EF5D28D8F610DFD14269C4AF953EC779EFCA0E4D3C546F5A7197BBF93E02 +D5A8A7E7946CC9582AB280C76C7B82701431FE621F84E74F2605BA90F37863D18A99A9783E5A +06B650BFA364AE92884BA554682B3D28937D303DD6DDCB1BE272B237F990AB8BA742527AB65A +C412B79CFB6226DD3F5F84507088E9A61F08A7EB8C89D41730660A26CEF3586CB67B87328AE1 +539F88F886259BAEE5C12C0F9FC2F13B61625EF653DC04F00F0792CA47319553C25476931C76 +0AAC017475AA597D041F19C7B90E3CC98D5B0ABB10C84A9F2B06AB1E16BE3F5B187D8321A0A2 +996DA378E8D21F060AD91F3CA70EDEE4974F23F8E28FA122626DAB1A17F1D9C4720DB34DEECB +1443AFDE17769614B5DC6DE1BA724B221D107B36033CAD041E75B3C07F66FF118EE859616780 +B3998EC0C8AEED2AE569C7D3C7860FDE77459602526E4243C2772DFA647193EF32291F2F3C10 +D5C9549C4745EC3F2CF6D0C964CBA9BE4C0F6E99B2399D9273734F10E681C3EC7333A8CFAD19 +A6C2A20CAEEFE164E1234D63653F8E7D6E0E622E25BADCA106A97AF4D03D462F895E1B25E1B4 +E72C9C647E5DDAAC87779B428635FC9EF884CBD59F074E49A539619AA184B1583D0203C48ABB +2F51CEB0CB18E891B01F466096AC457ED2E7142958717963AFA5FC5CCFE08987F1C93CD9BFB7 +789FAAEE6E3D2CA128DA76974CBF27D844DD91ED448C09D7DE02348DAD997D893D9432A5BEAB +44BFD24E208AA6DE4D25D0722EFDE306421546ECA721DEC04FA8DA48A6848A1E0DD4737A7049 +2E29A30CF89AA9684710E6B25CF6982ED21D5AFFE4D819C7BF4E5F3235778CF3F822C6EF0A00 +8802D869FD3FB3FBF1B0E465114C0B50CFE597A2415E9294D50120D6B93D5CACA6AE72A6C507 +A1501D2EEF33C012498ECC2CF72B26686C8CC5111342B0C454FD98BFF5BD4C077811073FB790 +A352F975500759E2A9786AF87AD6CFB0CE12BA6607C231F88CF11FE0CAB0735C486E18EF752C +EAE14F6C2588F4D34085C0968F3E932FE055284671887CD9481CA18038D28B2261A18690BF30 +4218DCF5C04B4D37C900B01F665CFEFDB2F0CF29AA9FECCCDD4B3A6324E3231A4DD8532686B0 +EC257FC0D2D401882D628BC062CC2B862A89FB30D3F78975D61A0EBE008F529561021836A4E2 +42D58FAFF9CBB537A70F9439B5E82F88C505D288FF899E30F879D73C5CE4241A7BF638095921 +576DF3FA7932D97405E280F36EC2F1759F3829CEF88B5B788F7FB739BCD9D100F4C52B858816 +20D6085866F33A2DE3530E23B4DE8B367D9D76010729C38AD305B29608572CC5966F78D9BFD1 +B991A511BF2AE641F46914F52F2A9A8CA06A942A575A786BF41EE65B2828662CD21C199544E9 +4A31C958128D7D35B7C4477C09CB6AD89D2CCDF8B2D2A4A8DB28DF82DDD0E3A294C07DEF5A79 +E43D49022057B212EBFE376536483E9DB181A390E8C82823FF2E4C6997B37EDA058A6B73158F +D861B9246B48D121C385581C81DFEFF89B99C218FAEE98C3CB54A59CB941BD463F822DAEF99C +FF4694C1B794084F9F0D6D365206D43C86085BAA443773AD6B59C596B3CF2C69803E85A6C7D4 +787077618D99D6B556FDA15F91C6597BA96117192E9377031B76E6BC658D0A59E1BA69A2B5CC +91A8BBC604D8E8ABD4B1F064ADE3ABA43F2C101103A12FE366EDD2A467C58639DCC0AE5E368C +F92C83D35D3B93B407347FF46F04794E05D18990B07596CE506914CEF60AF6D6886E815D0454 +72E61DBE796E2CB6EF315BC33109F898845B1C35D37926E3FA22B4663B3A3283C5F716F419F3 +E0A3EB57EF2E021A33AE9338CABB4102F1DCFA211D2B9287E4490B148265E4452CD1C031C8E4 +3500929C1A1E5704F8229293A552FBD04C38D83EF82830D4C06DC802D96BBD84C4E6C44E2E41 +B8B10AC6ED975B32A2BFC9D4D87BDAE7E8324CF1D4902C2219481F2E2EA39E31B51CE4BC663E +87E674C782317E9DE3F0987F74562788E961465B941D82E920EE975CDA0EA07EB24528906279 +AAD6E1F22031D0BE62C16733D799F905AB089E19FC546DEE0D6FE2A468499D91DC455A2D76E4 +154A8DE1B75B2546D3078CC0CB0494AD4A2DAACA192E5A1E9851CFA2052C85523917A9E9703E +F4341DA63A64ED9EE2827369BFDB6C482049A17001DE299223DDBBCF042F1A546BB8004B35B8 +575DFE2C3D331F2DE653D5965803B7772AEF3CFC930276D64C66D4807256EBAD65648C3F7FDE +96389828DD1C83EC4956578A3926C6BDC4929D5D87809C8B3A65FDB211C5B308DE4B15BA5E1D +2DCC399AF68240F827EE7CE21A3EB6F3333A05E4056D1748D73090F68DAB0EAC4C66D49F2758 +2A74A27394359A8FE631B587FD260974195ACAAF4F3485B1AB8A9DE9A60BB3045CF4511F1141 +42FF5BAB99429785301FC1A161C00AB3E9343A2C13A0D9D742161B5960855154849ED9E13069 +F28C957D290B1544819CC2DDA813C251971351ECA317B02806233FD6007F236464EBB7B451C5 +A927A2E70017304BFCAF69C5EFB4AFE800676BC45AAECE18ED002FB157451ACCBB3FA526E188 +524A5EEC1C7F6A413249BF4DA142C8C2AB169875A1F09E7E75A47FF7772F7398DED9C4A4217C +96AF1258557C0156816A27B4FDCE954E3B4B5A086B54D8BDE413AF4D0D3F2ECF413514763062 +8BD9BA4C9E162FD1147A4B56D2594C4E1C7B1F7BEBC810EB0AFB652236EE327E4C41E7CC59EE +7FF06B48ACE2F003E2A28A601817E87FDF925ECC6E5AFC5F22D9003F3BCEAEBE42DC1319CC51 +4A152B021B3FE20D8B8CD5B6F60A8B95F81F382EFD54C88C496D260ED5B5609EEC78E875288C +C127A456211F8C21E27096E2C08B02E3C78C0813A76334AB82C926279D58F48218885743255C +0927183F90BAAB6133A539AEF66F8843DAEDB1D287156CA5D0146441F499E4F5682E6FD9BF24 +03909CF8517164A2462021A019FF969C6AED234CAEED24940EC88E62227FF2C37E9E024E9731 +73B84705FA61EC1857B7C26AB1BD53C0EEF6D2074AF2ED52B9DD70819F6645E3DDA6D912D434 +767D7B438709E75F8288B0E07A710A5DE59088A867496892497BB408207165BF0DD67240FAF2 +5467BC4885A1857E02B446B8BF29C8D88EDC3B6BA1A1AC7B835FAB3D7B4B3BB31511D67C1A87 +17AABF67B64B7C36D68A58FDC8209831F0335F12894FBCF649E5D207A0FFAF75A70F4594E3E9 +07A5A77FC65F1EDC5CC0D8A5BDFCE808B05CD87C346822093BF37DAA16B985B585D87BDEC265 +8F7A38E8BEE0C3F0540FCA9E3990F45E521D65002AA9750C3D8EDD27B1683B433CA3CE44E610 +F360E0D4F3B1E10BCDDB0712D2F41A3E2D6549E1ACD880E466750758E3A95D588B5D53B5834B +6663B81F376A68FDDD362EAE5DE8D6CAD565F0329E96BB7D8B0C462CEDDD4EAE1E5E9D321A47 +D266CD23753F916A70CEFEEF54469C17D53ABDC58A2E3AFA8EA7BF713161E83A0285BAF8F164 +189B99323E45E8891037A3DD59E7422E5FB3D0EB781DFBF795E22A6353317940AFCA6D7701DD +7AD683AF8D72EB70524042ED928D91214B2F22FD0A3B87C16953E0BCF5F8105466F959FBF032 +39C771DA99C16A09AB1DE670BA6828311F01E4CCE2E76DC4C1A49E97F9825FB5984FCB95214A +4E76850661116819DF0B76C55D22CFC5A088F7BB5B09449786C6F4F5065A5A5A536B582A7EA9 +D5DDC5A95C03B24DD8E8F53A3752268C858E4270787CECB64B4F73486FE5817D0A0D12AC30C2 +03B3C5E3F2FCD8562ACC4172D6DCCAD3660826767D752D0DE2C36AC95564486097ABEE20CB03 +17F8A3A28D15A69534F8C7AD6E0AF43C20AA9F19A95ECCDD3FD32C872F78B320B816BB21C7A0 +6D02F9F2CB4F611E699A0CF90B58266F47590AE53811EEE69E7F7CE2FC8F544A6BBC6D10334F +0577314E4049F12408818E24AC5CF71D6FFEA42CEA3754969D026F978897E3D044CB7E101180 +5398617E1F4F8AFE15ECA1CB7DAF2B0D829F0774FD77615BCCD18B6E9870F76DF41310A86735 +B20150D15CCC5686326957B6CD44FA8C0EC7836F009273C98195350B61C3B705CF214BAC5609 +7E55AAC9C1CBB6A785CFDBA67ED98B47C8001AEB8D096541192348D10A07F04E25480CB3ADF2 +6F571BF82F61B55894784A38214B023DDF032FF11C4E895EA6CCE7E28D247DFEAF5F727B2FEE +7D6601DCED60CAF42E3CBD93BDAA5A995564B19F5D6745BA563C6A399C20EA8A3885A400CABC +8EC401D26741DA2A5E194A08B9EB06F449E7BBB21DD01562E38B995CA4CC1498705924AA4B75 +0BCABD010B9689E07D3300BBA5FAE5CFA1C140EB0F23B29ECAAD60C12F5ADBB1219464658A24 +2D22F62F4799F3AA9289016E2F852E5FDA0D80CDF1328CC28B74D5021E34B1EDA20B7D95FEBB +C9BC4DE6C9A66B7084878CD55CA2B52724CE844FB003B3FA29A6C78D0809E08ACA109E623812 +371529D811FE8DCF234B1139C10675D0FDADDD8E4BC55F58CD0A7F0C2E0AF967D1840ECDAA70 +76430F43E109E2396EB44B18D2CBD2EE3E4E59138F187C193A36B59581017EB41F6F470F798A +C653D98A3F027FB3C0DFC7F653C4B2618C2129FC057646FC154DD34522A373AAE7210BC6B0F6 +906BA732572AA55E0F923D4E37F3F6E86DF9C5167ACA91863E0C0AAD7DCB54445D8F65181584 +64F957AD51352822AF90EE423361427C08599CEC36A25C66B5CEC3CBC94857083DB9A87E24C9 +BFB9FF931ECEEEC92240491F3A4433C9CAD2F759AA681FABC488BF9941B623BBA1894E1E80C9 +E60B0669E21762081754AF64E67DAB39BD6493A086A0D855049200D0DCD3469BD660AE445312 +AF3F982491D432CE9E7F8A8388D6B82E21DD5BADBA07860A412906D9CF6B2021F53E97170D2A +98DD4B235CF6E02E15E4632DA8B2982686C859CD0C0AFF50A91EC59D8DE40FBA59E649B7EAF0 +21C9A1577B99ED111AD3F5268ADF34D21F224733BF4BCD6CAF6A0283088315767709C2F80419 +1736007D82DB10DB5C0354FCD12896A385A0C4D8798883BF0F78DEC7D2985BB06334BE5E4B18 +7B5088C8C2F01D296094C205CD328B332F06CB1D75D6E7DA38FA64F289F025623C4757F788D4 +A8BE8C2DFEBC52AA84C58DF32DF025F2F0CFC845F1E228CCDA11D120D5902D659F57C391C980 +F1301286801532A92F8C27676F8205AC4585D451BC414FFEF8119CFC9E4DF83789C80F498144 +25E222DA5C46B86E23B79E1EAAA87CDC58DA787D08E9D866BFE134885DE57728721D0C1D8775 +833703A00E6CF60254639062BFE87AD332D3A7A0E96E7E76658EC1F63BDBB216A420C195C756 +51DA07618741C137564329911170C41B779BD80C3929F9837BF7896E6CF7B8AA72CE318EC599 +38BAD9AEFD6D4A9982B39AE0DDF9196C19236D6639CEFAAFE61A83EECB4DC34CB16CBBF7A8B0 +AA63A93BCC65D9C3C9A480A3F9F874FD9FF9072B96D25635B98E9B51FEF7B6D41EBB33B02488 +6A2FE371FB32C0EDD78339F45FF83A99D8086A4FEAB6BF8FCC1873513B668D34169DF1C8F9C0 +D84DF470333C52D38D8EA64D2CC512E82417333F5A504E205C9AA3BB190E217B24D8E3E1156C +3ADFEAB88E6FADED7121753FB3BADCEAA52365A83BC5709C00C2C56AA0A1132E79FBE53FD105 +8C039F6F41E138D3F1DC0F83E8CF69F15D3775F9D99BA7D58E1D1DBF3CD0DFC3AC3553DE4F83 +86C423CE446FF364C55E6B6149E3BEAF384D3866D61CC859C37EE64EE955FC91DDCB2EB1BD48 +D414E301DA3EB1FF856DC6F0AF3CDF593FFB1D75B7E6EBAA8DB1DB976DB107CC0DDCEF3B4284 +77C4EA1865BCA1F6AEEC66FD7FFB817BA3F3E5203A489DB5CE0BD375F2961311E52EE0AD5A67 +CF9E8DDFFA80D228F51DD1946BC91FECC6BF99325B7A630C92E6681B83C0D25F6C48DE39D00C +3FAEFD0762420C8BCB3F8DF24AAF1E603D96590A562F0E1E1406E105C00E91D01425D5662D76 +50E5C62B1D57315DFCB030C1ACBC0EFF103EE84C1F86B28969D91ACABCCAA6D73EA0A43E6FC2 +3260314B2B3CF21DC735C83D5F2ADD54E1AB48AB6A476458459B9FAA8AB24C7A0D4257BF9455 +DCC516B2D79BD9003CE291E5EC4114DD01F92FFF6A1F477E92A2178FA3F74C692DD8847F0458 +22412C16385D1D583FC074572EE4C13474E18E6111E1DC10CA2B288BFE32D8695BDCA2BDC3A0 +89D149B5FF43A5899092528AF4FC8CB2C05765803384FBBEB547814072CA5D23FB0C7E13E0EE +506FB05614804C9235E227B68A810C26E52155CA80697497E735E5A2A1EB82CE489F0FF649E1 +420FDC81414A9F8884256117EE33C4DC6D4C9DF5D65AEFE04E4599D250F1CBB12D4C708AB5B6 +E2E4E32593671687254B52D2B5E9EB8391B8ECA5ECFFBA374825FFC8C1539DA1C3FFCDBA287C +2E7CE7229052C5221E96CE242C6FB9252DA51437DBE5B0E249CC7CAEF567B0DEB1CCE0CCB4F1 +5379984DA79980272407D1A34BBC4EC53BDDC2F49070443798AA3FD3EBD20CD799B140951DE2 +A773CB615DB8BAD18927BCE37704DAE151453E24575614894D6C8B1F170F8E0F2580A597FD8D +A8DACF91748E869FB24E8055708319D9934369DF9AE3126730EDACA10788DA4AEAF192694BE7 +EAA6EE75190A891A6D72608255F664CD875EA6EC4BE7BC1F20E477B05B796968683FBD7AE8B6 +C8AC8D17F544269DAEB43889C77F9C1F2C6FCB3ED01D2CCDE6291D2D5B0FD90AEA9E033F3098 +35DD6CDB0D40BBC1DC21C999D85DCAA2DB22D3DA0B72579C472B64FECFC60427CAF54A37626F +84BDFBB642ADC2BA872CAAE3DD3F8CE038FEDB52E9B74B1BA5251AAC4212AC6C2E4F198E7E55 +ADA04899F7D389DA90505C9035522BA00D6D2FFAF853F86A9DDB040B02A24254A5CF4FB87B91 +A6DAD89E3C88ABF88C2FE052A0F8E65E84B5F498EB348F45CBE1BB1A6E0C61B7439EBB86E8A6 +A9A57D7712D841F890ABC9E21938DCB304264B65F9BF5B011339D3E7F36EE0F6A58C04B182FA +C9FE0FA1B6D2A8C2061EA4C61D5BC1DF3F9F9E1318FFAB1232CE2082482D5C59CC42509DE0E2 +053B2266CB1372CB586F2D6E312E462C1DA95403A2D81C0362AC9FF604F1DCD1A8A7C974BE46 +0FE926DB168903582538BC2E1C98B3C1BB4B76759C688390189001CD3E893B92C48FBE6ED099 +35AC6BA6CEC26258048D5FE9D3C2E8597191D5595CC77C9A001A2CD507A7342F6EAC63345FB9 +4488C48EA078AE04FC4EDDA7723D0A7211C470D8A67DA6BDA246210367180C289F32AFC59DB5 +3B92AF282CC7B4805E01A335305FF8799E6F5D31370B81E3BF1E95C87EB2BF1B8B2CC922AB53 +A4D492A503749DCC0D66460AC9E3403B5B2DB2390F9012F94DE3CEAB2B97B6066FCD9A90EBDD +5F9D3858EB85B2187E361551191854D3F30C1480D41D8D4C2A566543F0899045C9CF100E0410 +A547C334A971D632D205BEE44DD8DCA890E42EAD5D411DD561C6FF95462DD3D80B563AF3E4DB +ECC78C5F01C2E39E5FD90FFF170CA1425E199C56D514307AD0E7045966D0AA172E9ABD50687C +2E77D136D55C930A5F6795F26CEDE2FFA3C7FCD86FB28583E23251A02FC8F3FD7F42EF5D6BE6 +D9829E3541E1D4FC806643752AE8F72873420E6583D7123A0ECEBB89B7BBFB5EC661A7354258 +28DB16A93086B66EA21C1F9D73A2C9329EEEE9A04BFA98748B83AD9F1311B346453C7D767415 +A1CE767F96EBA16FE954F7140899FB85863C66D967963173F28ACF22DFA68D845B335AA41B01 +736FD0B8F414B68FDF4BFD0903077852DFDD95096988F673C9485EDFA786A13AA33A23B8514A +FD360295B571042A1CBFDD1EB0A2DB0E33440C8A642F0816EB348AB958CBE45ACF1FDC13F63B +94D92E5823ABBAA87114E507F50E8C83D699EEEF0FD0E044A32DA4F357416B090A4B50F3A356 +E97C9A6B29A27AF683FA99F9857B5CC052BDC6A2EBC56A2E6B4A3288174AC67D658FA67A1C8E +D40F502342D66C47D001FA20F7ADABAECB829A5FCD9CBE1335D6F9B56B5C2C48CD9C770990B0 +C55A7FCD8021E4A3ED14BA64DA93A13C11614D46DE4EAD6E45EDC6EF05F3FD415CD634BBDBE0 +558A912A226DB0D6D44BC1B73C1C1C473C15A44F8FA2DBEB41C31A75013F4563A78630C5056C +DF7B8E9498A551916F7BB2A9DD003C5F148BF9E96274C70BFB86AA7F83EECFAEA9FFD7D5BA9A +A3418CD73FA083C51436C103CE37C0062CADAC1A532AE8740238085A010794D17979380A0207 +6AEE9A89A158D334C1FB8CE7C6CF24F594BEB5AA0DB95C45E1F03624142465ED378B5A81CF08 +A783DA8249C16F678F687154DCE0950E7785D16ED4BF344357F2D1E63B28BBB957C949720CDD +EFE00DDD18ED620C0421D991530354FF5D72E82D442FDC5309B439FFD7C69B0415936A69513C +9A1559A922273A243F909EE375DCE155A13A9ADEE2A117ECA7800000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 + +cleartomark +{restore}if + + +%%EndFont +%%BeginFont: CMSY10 +%!PS-AdobeFont-1.0: CMSY10 003.002 +%%Title: CMSY10 +%Version: 003.002 +%%CreationDate: Mon Jul 13 16:17:00 2009 +%%Creator: David M. Jones +%Copyright: Copyright (c) 1997, 2009 American Mathematical Society +%Copyright: (), with Reserved Font Name CMSY10. +% This Font Software is licensed under the SIL Open Font License, Version 1.1. +% This license is in the accompanying file OFL.txt, and is also +% available with a FAQ at: http://scripts.sil.org/OFL. +%%EndComments + +FontDirectory/CMSY10 known{/CMSY10 findfont dup/UniqueID known{dup +/UniqueID get 5096651 eq exch/FontType get 1 eq and}{pop false}ifelse +{save true}{false}ifelse}{false}ifelse +11 dict begin +/FontType 1 def +/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def +/FontName /CMSY10 def +/FontBBox {-29 -960 1116 775 }readonly def +/UniqueID 5096651 def +/PaintType 0 def +/FontInfo 9 dict dup begin + /version (003.002) readonly def + /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMSY10.) readonly def + /FullName (CMSY10) readonly def + /FamilyName (Computer Modern) readonly def + /Weight (Medium) readonly def + /ItalicAngle -14.04 def + /isFixedPitch false def + /UnderlinePosition -100 def + /UnderlineThickness 50 def +end readonly def +/Encoding 256 array + 0 1 255 { 1 index exch /.notdef put} for +dup 0 /minus put +dup 1 /periodcentered put +dup 2 /multiply put +dup 3 /asteriskmath put +dup 4 /divide put +dup 5 /diamondmath put +dup 6 /plusminus put +dup 7 /minusplus put +dup 8 /circleplus put +dup 9 /circleminus put +dup 10 /circlemultiply put +dup 11 /circledivide put +dup 12 /circledot put +dup 13 /circlecopyrt put +dup 14 /openbullet put +dup 15 /bullet put +dup 16 /equivasymptotic put +dup 17 /equivalence put +dup 18 /reflexsubset put +dup 19 /reflexsuperset put +dup 20 /lessequal put +dup 21 /greaterequal put +dup 22 /precedesequal put +dup 23 /followsequal put +dup 24 /similar put +dup 25 /approxequal put +dup 26 /propersubset put +dup 27 /propersuperset put +dup 28 /lessmuch put +dup 29 /greatermuch put +dup 30 /precedes put +dup 31 /follows put +dup 32 /arrowleft put +dup 33 /arrowright put +dup 34 /arrowup put +dup 35 /arrowdown put +dup 36 /arrowboth put +dup 37 /arrownortheast put +dup 38 /arrowsoutheast put +dup 39 /similarequal put +dup 40 /arrowdblleft put +dup 41 /arrowdblright put +dup 42 /arrowdblup put +dup 43 /arrowdbldown put +dup 44 /arrowdblboth put +dup 45 /arrownorthwest put +dup 46 /arrowsouthwest put +dup 47 /proportional put +dup 48 /prime put +dup 49 /infinity put +dup 50 /element put +dup 51 /owner put +dup 52 /triangle put +dup 53 /triangleinv put +dup 54 /negationslash put +dup 55 /mapsto put +dup 56 /universal put +dup 57 /existential put +dup 58 /logicalnot put +dup 59 /emptyset put +dup 60 /Rfractur put +dup 61 /Ifractur put +dup 62 /latticetop put +dup 63 /perpendicular put +dup 64 /aleph put +dup 65 /A put +dup 66 /B put +dup 67 /C put +dup 68 /D put +dup 69 /E put +dup 70 /F put +dup 71 /G put +dup 72 /H put +dup 73 /I put +dup 74 /J put +dup 75 /K put +dup 76 /L put +dup 77 /M put +dup 78 /N put +dup 79 /O put +dup 80 /P put +dup 81 /Q put +dup 82 /R put +dup 83 /S put +dup 84 /T put +dup 85 /U put +dup 86 /V put +dup 87 /W put +dup 88 /X put +dup 89 /Y put +dup 90 /Z put +dup 91 /union put +dup 92 /intersection put +dup 93 /unionmulti put +dup 94 /logicaland put +dup 95 /logicalor put +dup 96 /turnstileleft put +dup 97 /turnstileright put +dup 98 /floorleft put +dup 99 /floorright put +dup 100 /ceilingleft put +dup 101 /ceilingright put +dup 102 /braceleft put +dup 103 /braceright put +dup 104 /angbracketleft put +dup 105 /angbracketright put +dup 106 /bar put +dup 107 /bardbl put +dup 108 /arrowbothv put +dup 109 /arrowdblbothv put +dup 110 /backslash put +dup 111 /wreathproduct put +dup 112 /radical put +dup 113 /coproduct put +dup 114 /nabla put +dup 115 /integral put +dup 116 /unionsq put +dup 117 /intersectionsq put +dup 118 /subsetsqequal put +dup 119 /supersetsqequal put +dup 120 /section put +dup 121 /dagger put +dup 122 /daggerdbl put +dup 123 /paragraph put +dup 124 /club put +dup 125 /diamond put +dup 126 /heart put +dup 127 /spade put +dup 128 /arrowleft put +dup 160 /space put +dup 161 /minus put +dup 162 /periodcentered put +dup 163 /multiply put +dup 164 /asteriskmath put +dup 165 /divide put +dup 166 /diamondmath put +dup 167 /plusminus put +dup 168 /minusplus put +dup 169 /circleplus put +dup 170 /circleminus put +dup 173 /circlemultiply put +dup 174 /circledivide put +dup 175 /circledot put +dup 176 /circlecopyrt put +dup 177 /openbullet put +dup 178 /bullet put +dup 179 /equivasymptotic put +dup 180 /equivalence put +dup 181 /reflexsubset put +dup 182 /reflexsuperset put +dup 183 /lessequal put +dup 184 /greaterequal put +dup 185 /precedesequal put +dup 186 /followsequal put +dup 187 /similar put +dup 188 /approxequal put +dup 189 /propersubset put +dup 190 /propersuperset put +dup 191 /lessmuch put +dup 192 /greatermuch put +dup 193 /precedes put +dup 194 /follows put +dup 195 /arrowleft put +dup 196 /spade put +readonly def +currentdict end +currentfile eexec + +D9D66F633B846AB284BCF8B0411B772DE5CD06DFE1BE899059C588357426D7A07B684C079A47 +D271426064AD18CB9750D8A986D1D67C1B2AEEF8CE785CC19C81DE96489F740045C5E342F02D +A1C9F9F3C167651E646F1A67CF379789E311EF91511D0F605B045B279357D6FC8537C233E7AE +E6A4FDBE73E75A39EB206D20A6F61021961B748D419EBEEB028B592124E174CA595C108E1272 +5B9875544955CFFD028B698EF742BC8C19F979E35B8E99CADDDDC89CC6C59733F2A24BC3AF36 +AD861319147A4A219ECB92D0D9F6228B51A97C29547000FCC8A581BE543D73F1FED43D08C536 +93138003C01E1D216B185179E1856E2A05AA6C66AABB68B7E440902191AA9D8E4C5FBBDA55F1 +BB6BC679EABA06BE9795DB920A6343CE934B04D75DF2E0C30B8FD2E475FE0D66D4AA65821864 +C7DD6AC9939A04094EEA832EAD33DB7A11EE8D595FB0E543D0E80D31D584B97879B3C7B4A85C +C6358A41342D70AD0B97C14123421FE8A7D131FB0D03900B392FDA0ABAFC25E946D2251F150E +C595E857D17AE424DB76B431366086F377B2A0EEFD3909E3FA35E51886FC318989C1EF20B6F5 +990F1D39C22127F0A47BC8461F3AFDF87D9BDA4B6C1D1CFD7513F1E3C3D393BEF764AA830936 +164EDC2C76977D765F095166FE1D9B0498CAB4AD68621FDC2819CE863510B07FC37ACE71A641 +448CCE3453022A0ED0C1AFE7DB2BEC6006B11F4E993C658453BD190269DC5F091BD05055983A +4F869B7CF38AFF99F9CF1196AFB3C00B6407E57328CFC3AD4DE530C8A30A9817F3AF2438B69B +24996DA4104A4F2CCEC2348B1328EB84438D0DC63B767E37C9913E2AE4DDD669BDEC427E6941 +CACECB52727BB7341D3A13653F92CED2DA9FA9B19F4AE93B067750ABB71F7107581A0015A08D +B715E35A8E90B5D1F2DFBBBC6B3B443D67206C9F6450F124290E7A922BB43EAA3B5F8101EAF9 +D5706E919EFBF5F20FE384A811A7237C2EF5A09851F8525A0602A0B893B297E904E1C0F86249 +13D532C89A18B403E10608D797036362C89987172B317DDE23F6EDA786BD47038866EDCDB5D8 +8371321552F64A292040226FE53BEA879343AB2C35EC288CFAD8E3C60B35C17EBB85FD14C940 +E82B01315DD8E689E39A85742D923303DAA4A5F317F9739CD39573AEB82F0427E898439B389E +89A799DDD5D1C3D9710985772FDDF908A085F1EDA297F11262B7033FF288C863EA05D83EAFF9 +91AB051238690FD2CC1D62B6E981855ACFDE11F70ABDD526549570D1F79892D220D1970C230F +F879D7D614D83100F926E326FA58AA1737ECAE914B7BC4E8886C82C6EEC4CE887D5ABA35F770 +5234CA9E210484CBDE9E2AA55976770849B995914F234F8C41BDB2B5EEB94FABA4172280DAA2 +2EDD049E3D7C4AAAC75CB07AA37040A68EAF76A999AA0FCDF5FDE2D1069704C23306854AFB3F +427990ED447F427D176548605757E516EB657137608B19079BB60BAF2E15677FC54867FA8C35 +55ED7FDCC69C2CA167BA71FC238573DFE2507D4D2F30B41D0A23EE8327107DE96BAA270DC069 +69E2FFF802A3CE59FE411B190E3E49BF143441B89E52AB02A231DF42694BC676046D7B32AA0A +32A15635CEB06D7C80BEE2E20498AB450E01FD9CE71DA883019D1DC48D62B2D955B4FC9A05E9 +FDEA23545DC4C6F8822776F9342A59570875D1E900ECE764F4F238FD24BE7265841BEFFB1EF2 +0BCCEA6628605AFEE122EF3F526E328F21D71A77B03AB841D681287A8C8B361103641481E76E +7E355B6B58F2BD9C5B6914E96355BD593DEF81841ABDDF6B981D11607A819B4000F681F325BA +0FF535194BC5D5F6FED8A75001C410933870DE94A42FBE0E45E16517D1DE74D09F4FCA42F337 +48040E864AB707BD6228BA17D5E0207A37FB9970367521B35AAE1DFEB7761FBA93EABC710662 +5F4E9D620D69DF1B8007693CAAD00A14A9C591E015E60F35FAB1320B108389EE1238E3D6650C +F8A2B1C6FE3BA686CF40DD7B571EAEA169FF87425DA01143B2729DF9BECD5FBA049099FFBC2D +E6DBEB861E3F7675037C544DCD0B386651F8DFD1C51F77E67BEFB8E10C70F7B79CEC56428042 +0CB0C2FE830B6029B7D3F72A20AC1D06C00F08A4FE55AD091769685C475198381375DC1FA044 +557E4B8BA3C5D68AA798FC1D5F949E30C66321DE4A2DCEAB7CF978DE239F12F3F02E5A7B7AEE +B979E6E0D7E7CBC5A64C0F83793572C766DBE35265E0ECD7555340C3056A22F8C3AB991B21AD +1E40756D1D595BB8AB0D5EF411E3A588894A0301FCB3571BC3A74CBF16FB4B2FB13328C87658 +43870BCA4496F97D1EDA1562CAD92498CA1BBEE5C91E16C31DA13F54E9D3D2F33548D84EC7AC +98FD84076F35D951034F4E7E06913CB0F8450B9E3DB89677C7C09F9349ACD01A1E505C421C25 +3963FD765EE21FD08F851B6C6072689D3A803334F733ECE932D84E886D089595590E5890A4C6 +E6BEFE4752BEECF7309741873F15104142E5CC4A4655AD3765400C6A46E0F308DA358E0333B0 +2A4131829707F8AC5E70BE999E9C6F4599EA9DB005082632E1D85FF7860AFEB9A3BC352E10DE +9A0999538AD69BBEF18D3D2E3812C3FFBDA5C099CDC61F67A6851E84CAFFBF891A9794ED8AF9 +CAB270E3C78C951C5420C025FEA34B0D59B4308722D610669E210020A559FD6C6CBF2CEE53D5 +8E46226CA2D01A4A3D39812BA23324385A0B2B0657BCFF9E53F848BFB6F6BB17E379FC7081D4 +3A38FF40C6C42934A356EB7A351198DC63473DD34BCB5D2B911B53130B4E630040459AB8EA37 +E67A5BBEAC5927FCF4D7F63F36F7181075D7BC6FEE9DCBA128E35A567C7D5BA75E5A4D20A629 +6A6879A24B62EDB6985279868FA0E2CC9898A9AFECB7562457661EB7C487E43FB7C03A55219E +414AFCF164DFFA3E323BCE029A86C02B1E71D16411E4DD224FFBC28026265A79651C56A5F510 +7B8C48527D8C8848E1F47C624C7C003DE41A5C53E2D8AD802B251D66E13FA8AB0A31CE8BC14A +2A0652E99865A99CA3B12ED35138209FD48CC20D5EF2973FD7B0D37E5C0BEFDB75A4F09D3B61 +CC725F292220579B50FA5D05F66F66E09B63BDC126457C6631548E7F75681F8E0B19D5DF252E +2BBA45E487AB3F091EE607CA278C5966CFF9CA4E3CD813CE831E9FAD3116D8ABBB6A7B920CA3 +DCF9343BA475886E94BA90A0BBC5BC9974675744C9162DC2C912D8E19BB2F3BDA3F17C76852E +3CEF0BCD9BFBB3BC79922D5219C1CDCFA2EE824B4AEF8BE6F05FFEF8BDAA51F5A52FC13A4A15 +867C01C26240871C37B2FF5253449A02FED980B565D62C6C0D0BC149A356014BBA509727CE1D +F62AF4F28535F5CB1167CC8508089769D07F5171AF79F72721862A0B6CBC59DC79615D5EFE89 +B7FEC51FEFFE1DB869D1D0A329D2967E705A714336F0E75D840B37A12E9203B51049F024520E +6637AF4BAB4DCF50B3682D7BF71F654BC5661922556E45CC7EEFCA196B3569B169DB4E01B5A1 +52F1539A19B3C2B680795BBB04826BDA3C857158029FAC2E0BDE94EC5CDE45E3DCF6C082DBF3 +6D3DD37B135A6F0736E3252FDCE218EB5DB8773E2DAFFD1DAD53671EB3D83A275D011BF5D501 +A22D407AE09257CD21297B617E0443FBDAA297D37F66AC436DB78B410E79A002233A0D7DA619 +CCA9DA4714325A51CB0BBE9EB6CEA352BB1A0A2FF83610B2A17E19480E9285E1570CFCB8EC7E +1D691A72611D336DE5C6626A1D1D2DF363A1D781DBE61235F1D1805CC2A8C670005F84FD4681 +67F8640B12929CF347538B94EB37DA39904D4763D93E757AE2B4C775D98E23BA983E35992A29 +2A04976544EC462CA656E5EC37EE8EE46BF1C3B0B4C912DF05AE1535CC654000B06BCDC95D9C +6B5F36F8FD8A0EB31A02C2B863DEBF8FEDBC57D5F93D2604321FA66070D14FED60441E09999B +90A5FB715347583A35314381554031BCE4E6E73AD3FCBB61ED0D4C015863119C1D945E981AF3 +F38C81EB3A350A70A63EB06119965C90D7EBA669359FCBDFA87C4DB920F8F3D99C73A0DF7E10 +D3C410696D679CBFAE831E3E99FEF6C038F669C58E1EB6F60FF587F5EC561629EF429734CB88 +6AF914AC3E6BC04F21D73F184CA12D7E033B301C181D15101A986BB95132DABEE082A617520C +F95EC9069499A02F073D7DBE41726B51FC05A9348953495B4CDE8D0A8F8C04D07ABEB3BA0076 +3A80F2E3B5804947E690DB3A7B3BC6C48A67F5D45F5C658FECFF28790B709385D24D02FC3B0C +9F9AB04E168BAC78F0837D9BD402C1ABFA84148FD815240108CD511E50FB8E64F20058EE54E4 +ED45181AD9BB777DEE3303C4991EF8EC56B6C278CE63F6C2FF92308A25B9AFDB4585A808AB3F +03D8A15A20FFE399DEE429C959F8B3DFDF81433C41CEAC874479A2C51F9FAEAAD5B7B23230B9 +9523FB256896A85A8C48C057A70DE745F753B4183AAA6F84B4ACAB090F33CC2C31186D1D8A02 +18A74E1987D86B9C3602BA294CD29FEECE4187523CF511FD075692B1C080A5A22281BAAA4EA7 +01D7573D083E2F6EDEA3D49FEAFF2CBF989703E83828E6C7E324558AFB73E3388F0B0E6A97ED +ED5A9553DD33DBBBBAF2174A562AE2B8A4B6E7D13E90FF9B7D650231CBF9EE48DBDB00AEE2E0 +FEBF8D6778F19CBCB8766A0ACC9BCE2659771BFA97CE7BA811A3A6C8CBEE899839E525DA2ECD +F66CD99FCED902AA102D92CD9A279453BA74EF8C0CF32C11A412A05CFA2C187833F885F359DC +EA34EE24E90F7F107A23D9EE269C15A647916F56C32543AD5F81D90C84B8305E5BFEF1F3B356 +CEEB5BAC54AA00DC9C6F03B4AFCF7AA4D31964377525A661FBB743D3996447AFBF76C8FA874B +CBB374B02C538AC626004EC8E1E9030D60C4A097CDAFC143732FB7431008CF28ABEC4529F468 +9720D4EF580676CA855FFEDDC66B7C1DF07DB89EE98C0DB6FAA5551ADE4D674B51E4E3FA4B24 +A3DB5196E01C6CA1DF5D669A3C0FC57DC1F576C2BA14D5DE284614AF3276E3A1159CBF8D4042 +6A60E8C5DD426F1307222DAA8AA78BEE55C27E26013120FB5471CB33CA4FB642B1C386018EE3 +D4424CA411F49CD569CDACB51AB9BB5E66E1E13ED5F8BE0E912BC13C7B23E10C042C33DA1965 +6264D7473B4E0C3DABE14F9F94450D1113C88EEC18CFEE640A6D9A40DA9CCED6EC5E2E9F1B35 +7DA635C3A2C5A23874E496B868FD0260D30F1780878A900B90637A1237C63D83335A3FD4A664 +321C048BF2273F9C4AE3161E1F06E6EA5F3F15CFED43C622E0D7E245EDFB866398DFF2EC9946 +74767B7F3DD853CA356A3607C7BF8F9C6889EB9942ABE469EF88368742FB5C41D06125D2042E +EA414B344AC718FEAEB308302F5607C06852A30CF778D236EC90CA10934C629FD59890176264 +DBF9C1AEB33A6028B9EF09B06BCB182DA58ECCAA4E2E1FBB13868C98CEB61223E9658EBF003A +C67493587A156EFBE73EC88CCDD55C9C10CDFC52F7A7B274D631DBB5D629F41AC8760741953A +6B90C6E9E4D2C79702C59EECDC65D8948317D67808CFBD81953AD32837A42EBBE48F77D6B387 +E272855E54ACD32D3377E19724B3BB370A71C633C3A41A0523FC219EFD5310EB3CB5FC93F0F9 +E6BFB11517E2B901016CE8DD44BFA8590EDEA88F5229FFDB83E401034C826F038D58C19E5470 +4A4E2E36B7738FC6F80DF4D82A5285853C49F9689363392536C3BA25C00B7885E7DC3951E9B5 +D22414C9E9A264954CCCFAF8BCE70CFFD4F726263EBEBB70D52A58B3D6BD029F555A630D687C +7E7103C8B8F2B33EA41732D6FB7FA999CCA0185A13C8BD80A2762AB9919C3E9FC07556BA8C71 +49B4CC5B58DBE84297E3E8D2B34591D9FCAC659C0FE115F34ABA807DD94410AF8F532418382E +F8F7980E1598A97A61926B809FD771B2795C69E6B1F15FF0EED329FB793FA3FAF0580ED07F51 +B0E1BC1401EA5026897990CF09F9750268AF812E89DA551EC14B457836CD38E5C07179A3EE0A +BD3A85C693ACA829A5E492FD4F1BF12725544FBC81FAA2004784DB367184315C68BEE9FBB1D6 +8F91C9D0901BAD3BDA4FFFC203C232276A495EF1B2B82F36FE36716733F0E993B19407744C06 +7324BDD2D5641977B1A118DBB844104397F963CA2E01B7155CB84BB642FC315C028FE4502335 +F761A9DDBEF7ADE1ABE87D31AF848A5285BD8328ED3E8A2A608590DA11968AA8C0D8010329A9 +E172AAC2C7D0061B14EDAD1142FEBD3DDC0ED20023CF06BB146B3F58A6A197DDA1CB2533B236 +FAF2825E8DFE70B79A0938D79664C1D26B4412FD10C76729CB22392E8976960ABED0A03D5FDD +C7C5C2C6221BA1FA08020B88FD9AA0CE8B5FD26D58A679339A2AE6730746B8413B6E05361755 +FBF11FBFA4974CC1AF36136803DB8282A7F5429327B875D0FD222835C7AB82049CBDA6AD1731 +F6D06AD2A20027765CF62F7E4BE9521465A7C3E968DBCF95F2C62EB3829CE6DFE845EE20E8EA +89CA6C46BA14E5A920D8E28A4008C210F747622AE31F5F9036C70FA52BFFF08A4BAB3D5EA2EF +6E8656F89058F4A67933AF30E9A16467D563B2782268E2568868F677650A74F415289CBAC0DE +CDF828485066AC07C011623DE9643DDE39840B1A739B33ED3EC705C13DFB191472987059E501 +7002D278168B5280FA2E26C6D51CA663B384F5CFF4A6232F5F68E185231EEA239904319E180F +91DA98A63B38E16E138D2DCBCFEFA5F3E5AC6FE764A3A9F3EB622117662AFD26A124933CB1E0 +4AAB53923AF5D9DD972536C4904A1602040545A9AD4904D867C1D0AB907D733EDC19EC093391 +3B0EE96E8578527FD3D1204A25982635CCA01A9B101A843F6C373AC4C8E39E39BB13AE6A0EA1 +70B59987488481D38806D429E902801F9CE25EEDEB6012CC9EBA0736820F82C640CD8C7D852D +9EFFE6F769D7FDE1DD628861FF628BC0BA8EF12726F83D7FCE6ED8785DBCE502DD0571A76D88 +B7FAC1E2DB24DB97394937A1EA17031078EE07D00B554B9C892C68B624D3900266E885028724 +3BE44F11F86E95DC00E89C5C47F573C0A7F1CD0CCD26498334C7D37A3AF4457CA805446A7434 +45978D8C3D25FBA2350A878E23DE65D49E9E5F819484DC1B85ED2BDFF923216C101FD8F411C1 +443AD7BCF5E90FDD6BD29899C86EB3ECC82832FE75A59EB3FA696F2696A450E2504A473123A8 +D24956ABEF5ADAF5B3BB57FFA5364214AC0E9E245CCF431DFB8A7A5104BD97D5E5104CA9A057 +74D0FCA9EC0458BD7289794FF19FD00E2D05086336902514F5CF8141307C037E5D2E30B62D1C +8A5A7682BC941A5445D8A17F5670554AD4AE24EB95524CEBF2599D5D00AEDEE2B5537F869A46 +BF093296C77F86ED5658C3DD3AB9C25850624A53F6573A51C7AD9F43EB8320DFA31F7F58E0FD +FA9FF640DB5B55FB5C4E014A8C50E062F13D573C845231F98CDE7414BD440AD4CE9E00FB39BC +93C3D1C8F5FEC652FC28AD9EF814CD964DEFC5813828B0A38AB0E0BE6E3CD60259B8A50F95CB +02EB685DDE048D73DB0460985EB16DA749DE3EE1625182EDC552F104E547D22E62501D9D4EAB +C09531E6457B7AB148FFBAC7927318F8BE99EAE5AC9E6AE81081E236187C2D384A92494DE6BD +1FDCC5A79413609F865C6067EB60B83B1E0D49D2CABF88F252377787534037AEA74A842CF21A +5514F3A89A00EEA33793D63040EC2E1231C04026B8DFE67E0E0B460E3BC6E60F71AB1C05F295 +F617829255BBBAD68D6D7E5AEE12DAD835A693A661AD9923BB65C781B9085640D3A5317C312D +D3C6159C15D8DAA3A592C9F4B4AB648B160E4B3BD2E3DD475573570F5EE110AE5BCA3C499513 +061F202DB76ECBB5316F21F041954B9EFF754A628ECC2B68077CD6072C630CB99421BA3D0D1D +A24CC09B8D42E8ECB52EBAA0E16DE13F0F2E235292A0063ED390D9A8E685160134E931F924D1 +50C3B1E315CCC86F2AC29D02D0D98DEB83DFC7531128E0AB55B5F7D161A44DE0154738DE0656 +66440E46D94CC4AC21C42F362D222A5CEB4FE9FAC0892ABAA08F3A3AB76A22CF73E343BADA5C +89355A821C67A626C0FA6F8742178B9562543607FA648F9FC0971734B99E476E36E9127419F2 +7469DD3BA6A1D82680155B4603D1DD68CCFB5D5B1A90CE7C6B780BBFFE12723ACF7CED4649DC +D6D61DC52FB893305D4CB1D956B4A8393D2ACDF74247F0695C9778D5E104CC29E7E8BDEB1305 +DDAB231758BD41DE987F4A3D2A8FE210CD806CB42F46951A51F24526F4E43FE18A7E1B432652 +01F114F258CB9DF6438D064CD2541FFE07B847C56E66C501758AFDC9C644CC5BF98C6D0D4ADD +4F4245DCD8BEBCD596F363F8469DBDAAF511789619F04BE31FE959F19649D7808F42AAAE56E6 +CE93C9F3B3D1CD7C1A67E0FC85ECADB448869D34331BFA9C9A0840B7FED1DC2B0A40072B5244 +9B01AB2CAA5765C2A969B61BAA43F084DEFF1E8EFA194F6EBE8C1C475F8895C6DDD99CCA8F4D +A57DFD02A3036407671F3DA719E819A2D2678167EA17CE5ECA50FE1EA359A5756746DBE661C9 +F8F4678B762FE87B2DC98AE853E7CF9C2AA1A34F3D560248C5870653D64573587799524583F0 +58E7D5DC9D80E7BC03A0FA66702A5AE4CC9EC25ED4433B437B07FB4D3701683D0CB07D90E29B +8B7A0FABF72D0852ECE8F58BFDC35CA72B36CBB334D21ED27684831DB43F34D54F85F19A2B32 +C72874AA6D9ABF878A6EFD56BB4EF0E10D2F008129872A03334919DFE9F9692D2A75B870A43E +19890D10E13DA69D3F1BD10FDC0A89EE30ED890A8D278D132C8AF80B14208623EAC8354973E5 +A7C2AF274EFFB139976B0C91FA38948F3C1F7E3954D3826F2B19C3799784C139DCB19C2C1ED2 +5C62DE80C876F0DDFD3378A061F8293AB0927797F4453DFACD6D06C0C59E7C923BDFEA427A7C +874543DF1E42039296F0EA569BC8CA6B73A2516E4D495D4894162962428B915A6DF5EE0758D1 +D24AEB9792A9AED3489EA63514087CC8B1844CB75EDDBF3438A7BFD22E650C6B2042D622656F +71950FB8EC5300A295431ADB83C197CA03F4F10B2675E9FF74E546991E322B0AEA38F8400664 +56111A304DB49A08ACE0EC0CC1021F54472EC940A45CBDAFDBD4C90E97A1A652A2E58E328990 +C76E4E28B15743034CBB79308D7436074580F28CD65D3D718CE59451EE17F8FC39653B189901 +773569CA66B7D7450B8D06DE959722198A2B50AA0F0BA5938A826E8DFA88F173EF5BEB7505D3 +78FA6D783DC879DFB2EA9C0E174EA21D07C4D7BBA357FD75E1876E3D11678B9C53D36C276715 +C380C13A4AB0983587C48DA984F47860245417831DB2F80FE35DCCAB55898096DD0A03EE4378 +ADE96457E70BF5A9443F83E01632FDD639AB962B00FE75E7C641596E458F191271A12C8E11E1 +618CFEA573ADE97B5B318005E263F11958124FC005C8F6277FF4B5510555437AEAC5B87E8CAB +6F34E7A590ACE1B457EA3096053E5E12F73265F4387FC8531172CD7E3491D8AAB4243B2039FD +A78228FF7F388428DA2A0487A87CE25E6C415D4B433E69E37B3EDF317D7CD58F1B9CDB64DA74 +E1860BEEB893FA916B4270963BEE2D635F982766BB52217F25734946A5C9EEBBF97D1726D325 +BD427F5899B765CFA186B553A3D1B51F20568E7F0EF264F75BA793CECBA43FDC09F40B850919 +97232288F1486ACF5EC076FCC9E203B96714E10D87BC039A14415DBFD7102C5788142D26B785 +4F777B3399EED12F20A6F43289DABB8C2778AE9DB4838416213ED419A20CD7777E9AF51268EB +BE11CB03C9FDCFDEFE3DD8EE1E8A044DCC343D38087032BCEFD6E7C3117E0BBA4DE53AF851CA +0206B46D5CA8286B738360F58F09EEEEC2F9378BFB3810F0C20977F4C1E87C4A5C309C72BFD7 +E695DD4F88280DD2279DEC328F1CA2D4DC3147EC63E31709864FC0E9D3923A308ED551EFB420 +4E175C1D4009F767E050B011E008B6BC9DA47F98F3ECF7B564828670E0B8B244B0FAD3BA7E48 +C2343002F05824243C7D36551C2AB0F4D5EFFE98B89FA1B0E3051A789484A03CD9C1D859B346 +85806980C474FC28FB16C569E1FD2C0B4B4E6E4E3789D3469225D4CEA3ACC9C9730DB56BA15D +1470E1D1C00FC73096657390F81ACE17A205F86BFDF183A2ED82D15FCC3FDA5E550EF4499619 +BF61173AFB97F698A6B0D8E0CE3517A1301DBBB0D4B2CF504342651D897B23C39865142FD4EF +31285FE25A217E66655F47DE7DF2A43BC3D8EA73DA4732FBF9AB3227E7135ED65F1AAB9DF6DF +84A6138FA963810826C920F04B3FB4CDA20C84B5734DDD661783319389A842728B70F94F3182 +B5ACCC4955402CE2D267B63F17D31F2D327A0EDBE40F844650BDA0F314A70CDDCAEA9B8813AE +C77988B920DEE2051D7ADA7FFFA3E22CE81A34BC8363CD26E849D1B7E38F19A1EA6E9BBF3391 +BAB5B2AABA3B76EFFB965BA9AEC6338996C5315057447B598EA690F4F498AA0051C9DBA13C17 +643E0498B0FAF6989902C1567F3D60301456CE29D86A185025D9BD7DEBAD6F27762D8E089291 +98F5B5A16AE3BACA3359BEA186EA1564DA576F758BC5B19E6863639184EFD399FE805770F0DC +7B694E91E21D5FAD6D2BA00252C94DE00BAF886FBFD50FDAC5D5AD3A7D872BCF54060E35F0DE +643D27FCF7B377DB563A546448617C89017331AEF621D2118EE0FFA0AA96596FEEA3D08FD9E2 +C4ACC78C97231C63D91450E7B5F4836F54B1280AD9DF2CAF300BBCDF6C6D742B96763EC0ED6B +92FE4AC86CEF1D363EBB99D83DE4014DDE8169240F7E612BF7030D3CB845B5BCF348E31740D7 +969932A4786BA759BE5624BACB358E16DD5F37CC8F4F698B7204843787C68E4B370190F45F86 +4205A966EA82E6AF4E94FF0D5D74994F0C0EC831A49DA5AA9C03F091DBFD2771AB565F3729D9 +796C82798B4DB4EFDE0343A7AC5FEC161E94F720A9A45B9558BF291C20C77430E15E0F7AC4CE +F13AE71FE4CE17EEFCA65A076B47A8836A87B82B63E5E901C6AA96E200B0894DF568483D3D18 +C1D1713D6E8772F4EB480F1D53D9903ABD7BE69E4CB68D14820981E97D1CB9A6FFE916559D0F +562FB8023D5A8A2567C682C79B50E2D45AC30DD9A06DB0B3D5F570B73E599D4ED88CE8B40ACE +0216157B0D1E7F8DCA816F2CF6A751AA61D8FB3FB3D3706C983A96E1F49E32245480C9149643 +378AD671B6F071EDB1B689208E424A3D3DC27B117936FDFE209154408F2A2F5145217A6B51F2 +D0F701A918CBDE5C2025EC66258708A32B5B1ECFB9AA7B9F0E4E6C8F82D12B4D6855305F0564 +5046EAEB19F34A586749DEF67568B65D5CA63ABC1713312F0073BC62233709076D93483FF276 +381367F5815479C99FC42DC29E71BA6C718C81B032FFA4CBE02B62AB60ADADCBAD53857C1210 +12812AE32B492ABDEA406E2720BF1DFB11300BB604F0EB98B796F351F8E5F8DC99203E97DF60 +52EF6435BC0C4A5D64BC7EF3894E6AAF7AC169B107255E9230AB11F1EF863979DBA5CF23CDE1 +9D9D2E31C71814D8AC2C52E9EE2F28649EC566A83E0AA69F837B3CB9A60B75E88F94D17AB48B +D18FF221A07A42AD8F1570721D5B4DF95E103D1559CA57015EECFA45574252DD1B6FD6BA3CA4 +BE0CD66B225B9E21BF951E6C930A6D8546E89E3B586C64458D93EE058AB034B47A2331CA2634 +F5E76CCD2DCF6FA03BE411F360AD5B32CE2C70AEF6121E71E36287E49C94C36EB989F22BFDBF +1A6C0F9548FD3D43D2DA96B5A63D96B1F47E966794F248A90A75A433141D4063AA6A5C6C31F5 +DAED142FE6790D59CDBB2A96A40F8DE769B50B8C24783CC872EF2D25579852564EF01DC46471 +B7D1C9C337606D253C2366E1CC6F40D24900BA9A4883CA16BC6FEF6C9595BE3B644682C46B77 +5066BD9D0D83ED7094B47A0E0F373150714B01B8687F3EA1EDAE559C045C461865F4FC9B91A2 +0C80F6B7D915187748169CD14F97E606BDA20ACA6697B886B5D41AD89E243D9958529BB6499F +08097A0F33F68D62233A488ED98E3DD665478FD2944E2AA96A1DDFE6EB82BDCE16733D13335E +9D3780F6AB38778744664A1690D7E1A7681AE3E9C17CF10282806A942F656BF3665968B97F4E +0EA511A856C31856BBF80E501E34133C099F2D1B7F5A905DDE99B6C42B07FAC37D4BB1306845 +8A7E75719B13AE392E49ED85EEE1CCD069E304F08E8DBB0583F2DE2043BBA9FA8A554A019301 +B940BE40BBF57AE7D41620853C171F126EC88DE9AB94FE8BEB9BFF7E846F007B7077456C182D +376340EA99AEE271669ECA77F3441B3ADA0DEEC4701C948D596FEF836B0323921AA1E6D62698 +D07A9A82BE2AA6D7C298811C99920584ADB8BB02B2E6A18886594FBEA7909559DA4F5A82B6AC +36F2610A7D9FDBA9D8FCBB4A0BBE288C82505B0E931EC463B2C2058DC56C2C23D25FBB0078C5 +7E991CCD19917828F19BB18F0A94C5BE07E241C7167E5F982C9F5929B68E32EE748DA544FC54 +5E3CCC85A937D5C7A716A8C455168BCB11237C65F99CEC5DE15224A9B18D8476DE7787125A60 +AE3D43E04691EAE16F743A4F9017E747F37A15E9429C3047D3179C8C9C22E1B3F312F2A3C9E3 +DD774380CC8D736714A35572D7D5D7B596EA30426E475F5624B8B164F3E006CEA3A9D7E2E838 +FFC93863435C95187E4AFC0B20D8FA8A6B8ADE3F00AD6B51CBD28F5CAF043787ED6E277A34A9 +D733CEB8A7BB3A9AA83B274E93FB94FCE07B4430C4EC2641E63E01BD6D28875EE6C1D1F312CD +8929C44CC5D6610E81766143D9B521971118D4AAFF99DE5E8D0B593767BFB635CC3666522CDF +94F7C3405CB5D1395205A3744EDEFC81BB309757C5D0F9FF8D55CDA155BADBEE2F50CD2955E6 +2DB0B60C47045BEB9D7CA5DEA8B849AD6B2B75594CBE7B0C1C0F1C5474CBEDE8BC9383827C6D +F7FA12A16294DFC87C06DE28767888D21E85F8F4F149176DAA0E0175BBA5297E94CF9ACD0A75 +583792155E3D5525075D2302F438A725BC31C226CA1D18FB222E30759E4477428EBB02B72AFE +BB72686AA496BDDBA889667B7943F3E67EE1941F8E884E245249E212D235CB7CB80BBBB410AD +86C79BD9D959767D75052314082A93AA4878F72B2D492E6FE382C902AF1A86C63CA4EF38B2B6 +E3388B9E3A002528486CA8F8D33BE8BECB8A259B4253F199AD19E703EFF16EC695B49DB776CD +ADC9CF3D3C1ADD2F42AD6D1DAD8B21B67D2FBB35B93CCCE96E96CE3D277B86CB996570E03D5C +88335B53709B655E6A94C07CE0A42E46448BA71F4FC26198E61C79BE75EDB4D8B396CCE0932C +B5325A8FDEA587F0D3CEC1523C4BC1EC7F449DE4E80D063A4A4DC5028CA6D11849D17B88D400 +003644F795348009131FD88C8F1B6404B0F157BD7A38BE605BC9187DCBE2E2566B14A1E6B412 +BFC3575554FE79A4D964F858267D589E045C0B44D194D208B611755268B75FCF76C9018D2811 +281D84676BDD52512491BE789E052F1788E21308D91C4FA6729A9589E5099C818F23436F6A5B +7EF2A227BD48E8EB989A3D160592DE794AA7B4DDE82D1FFFB7B54A2DFE662FD75A9928C1AF34 +29EFBAB25557DE5C2D8D172656F0011A25BB7473E1EC56A3E5A329699CC5B1174A187CDCF971 +38C0418256D4A5F3D524F2E8E798F7959DA26B5759266AC85425B0DD0D120CE221E6146DA249 +ADA68BD409EAF66B2E0E2126741BCF23B17EE76BE42A3A98258568EDBD8071037E1441E4C6FF +499F9D122ED505D205D14E4FB96F0F6919F778E70D65CE53689F9703C522CE33D2EAC0D0C6DA +A87BC96332946FA280CA70EDC593E681A9832D3FFB049F1723D03270FBA0CE8D26ABCC4F0952 +98ABE8E584B5C2398D8D40FF035AB309DD09997041C612FD3E919DFF89D942711EAD46AD88B9 +F8F5A7DFA0A5649E5538551BDB66246A74D83A93C223DC9F2C8210D18764A09E12F44C8E00D4 +2FB0EACFD71BCD347FFE5F8BBDF0866913C843CD7250830D9B939D629B85F41317A0CC64F8F9 +326DD88F7B5F1B85F36664EA9A93D94DA23F5AA633F03F8B126B0BBC54BDAFFEF696F87CC146 +3118C6E8EC6119C84507AABF53DFB2962445C0C070C4004BB29788CB7E80402B4F129CD169C8 +A86E2930DC219040750C89C9A98309BD2E0D75C9308B44CEEFB308652EF74A1ABEC02AFFD219 +F4770F90049F29C8860238C89942657BA4344CC9BBA7DC5322897DBB8ED401142136A1277E25 +96B53F9CD171BD41E8F9F95DE0AF97D7DF8CF246072DDF8F79B0D34CFE637ECC6B9DFA669D29 +7395EE6935AA830184F0959147C07FCC7C54EB74DB0D65AFACE372714933968D3915AE3FEE79 +CCF2CEB66BBA763769075C04E9EA8B7766EC65F80C12DE1081236BFBA1F9734C08FE0B84D978 +F3D54D4DCE242FA65B243B42B9A937EDB7F36F1EF973B1A230DCBA8D2B914CAD3E08CA56A769 +7C046E5B35BDDEF0D200200811A8E90BAE2F87FAE2B106BDEB0B6453B0451736A16F2A4A4034 +876428DB735341ED59852D69E92C1B1FD07091EA476E88A666F0BB4FA270B9C05ACDF31DD38D +0EFBA1808C8B8BEA0FCBE0FBF6B2208BE201FF12753CCE6F34B74255DC2AA1DF0366B71211D2 +9DE0262DF6A2B916FD8306C87636A00DA34B3D0272F37D38BAEC2A14F33D6689542A553E4225 +59C1581FD73B8D63CF8FDBED4B3CCF9C39AE83C0DD287D5D239F443DADD96092A4B4A723C341 +BF97FEA378FE624B1AED5AA20101C384C550CB73393E0945449A53EDA528A465CF4FAA3B020A +0E3505FF154995206C0D0E26B29AED1243932D0AF02473667ED86B56875E818A8CDFE7678465 +BCCFEE7818625C7AF987BD430EDAC3F34B78D7BECEDAF0BE4BA4A0412D19585025CBCA4F9583 +65CD8DE8DBB00893E287D1B10DA47BB7CD8E78ECF36940C865099B3D34C8E063D09D22DE91D6 +9D25F0BA34EA859B31B750AEFAF19D26953D100951D0591341E48BEB10BA8D11C44DB5D1EAC8 +BE176BBC0B878B7F945E69CBA526B7E06E64F9330A9F6CB8C49E09E2A26A4A2CF6A0AE69A348 +6245CCFF8AA3F5C72E7111037D3C861116913DE6CCF8C5BB54BFC2243FC85367496BC7457C85 +E81CD556A6E28002805EE1FF1CBA1EA83500CFF41A537A115A57D079FA28FB845E4ACF04A710 +B3A1358C00354BC0AE4911D4940C5D76104BBFC0D68007B4E1E7CE32B2839750F7A5F3B6FE34 +8FBFF32330B3005D165B1359061FD7D6C5BC06F1F77A739E7A4B91A4C66E1E864999292FB070 +BC941A8B28BA052D5A49E492EF4D8B5A61CE23BBB974B183ED33E1C08BE46D0EBD041B955FDE +3B1EF9040FEC841C8ACC4BE3DB3FF3ACED3874214E60E2C3BAC462C080D6DD88CABF15FFECB7 +F73B719C4A7FB00538791B6396FFCEB6D5B67DC19505C5435B37209F5715033B7A75CCA4D38B +8E0B10362025D9E11BDC8311820EBA7280FADBBD5E89AC6F2D1F828EA79F806DC858CA42EB35 +E59DD17697BA463273C6A0B5295D7C58AB9D2A59B770BC6A6DD4D823FD4825B63107C2B0D6CF +0790752541CF2E10FAAC32CCB0F8FE0BBB3027FEAB8B06651526069B04EC3BFD54563BA8F326 +1FE7962FA34A39C845C62E99D60EF0FD729C7948F7306219B339B58EC0D0FF2C9C8872C183BD +1C3E572DE453B2D807271D10715B17BD9E2FC7583F83E03C74A64DF2BE321AE42EE945BF7E74 +B9162F918A8F11D3D923A4CAD3A98BF53A175C3E26086D2499AC567B0B947F7477E7F2243D47 +C889EEA390B3DC7BBCFDED34946FBFC4D184CB34B9332B06953F9DDADD9174592F6BACC37EF4 +7E31ADCC329DAD3055374ED404C4D812D3DEEFAAE96226804980AC01E0870C992608421D995D +C954BE4C58AADF0A60AADC8A27A55E0587B45B4CC45CDEBCF6446F462A14E145AB724C4E5C68 +EF5A86C54F145E43ABCB45FDCC540B718AEC2C33720546ED2A2D08961F01562D05E014652D55 +C9FA7BB7D34A1FECAA7A2C6FFAD2633178F6B2C41E4A01E4A10B7B9895F7C069062D762B1E01 +49E1001DECF0ACFF4D9662BC3C1F2AE1B1B860A84CAD344045D4BA7DE000DE22B035825F66A3 +1AAAAFCAE6A0F981DC393F56EE1D2BCC60DC4FF28F44DCFAB6C95D5AFD4071BF5BF19EFC8A6D +35338F34433DA402F84719F300CF731C4B55DBE7F7354E002D85DCD912D4AABA2B02F6D8083C +B2C8F92C2B92111156713D579E796C41C508536345ABAA5EFCA39D664E1434BB6D0D0CE6A584 +E0316880E16E6C615246103CD1DCAE897A8396FB6C0CBD235613E00BB8CD2B2F9E993B1A01AC +819B9C6F679A28D4338458E21BF10C7C4136E28D2B060F694B9B03C83675A4A616EC53790152 +081A7B4B1750941CB1117BD569A532ED1C49DC49FA3DA0D6BA30E93CB4A71A14B21713DAF82F +D93C9AE4D53A2FE61EA62BC37D38C2500EB7B5A2E4B448992F428D75928AF8ECDA6C9A376B77 +17C1997B35C3D9971D1D49BE9B8E4626E3953751F0C6D784B406153488053EDAB38B3675CE8B +05C030331C974164088629E2A9B878063684853A37F20BFFA7D8310769A43774B51DF1BDFF39 +A620C578D179D3128140453A0BE7AA76F71D106C6A58642F1A6EFD03E5EB12B74E184F1C0FCE +134A886C645E5762BB77C4A03BF0AA7B93E8766611974162F3AB8F9137E7E8A17E6EA75C75D2 +E6FB802DF69EEC93C5E658FFEA205DFAFE8825DB796D4E8E232E00122D57A709A5E0543D01EC +1E2522ED30EF484333C222959B8B98710F958E9C2A57B44237427410329C1A5EFFD3E1E1C125 +3C3A25387B5C165272038F19653F32886488F16AC31F7E576327E606CDF3172614561291E7BA +414FBD1A7558084D9CD408EFB7FF5CC53867B3FC96E6AA9419FE4DD98A9A064CC679D42829C5 +9C96092F13F77D9EA63249762270017E4E31E1DDE29F57ADF2EDAA9106CC1492A8171717AE0E +42A9116C91CAB94B34C904A2811890DF7B52BE40C01846D131C8DFCCFBDF34EC9DCD5F4EE582 +E858F357C3853A48890988859B202CC2A8CF675BF8B3C0434698A4A34D8DB358E42A38220874 +F88022DEC2AFB967CF470CE40919E9F0A17E901806D53760FA81983D4E68471440BF8D1BF07F +CE3AB280E3FCA5AB0DFD9BBB74F39752939B75D62C43A6819A40464189F2A49F12B3D25269B8 +CD1FFDF68C76AC81821CFAA668F2E2C2D5730C0F201DD7102EF066EEF420355806B127CD6B05 +B0C5644072CDF444422DAB1C82D5F1B5C116C758717DD38C1919B099C4DC3E5DE9B6431BFA94 +9FD09B01B723DCEB135960F8138D20C331C41B9BE376DA25F760F46072C799F7148C5C25445C +68F9A531F07CEAA52365A8291001D8B239B96CD6510F71C2F2EFD6DE3A2FD816392BE13F3901 +CF9DD30CE20351FB9C40492B4449C51768A0C34CBDAB175FD07BAABB0B49C935BE2BCE6527AC +AEB677DFD53EFE53C057DD8F4F6235D93DDAD1BBE54D5E7832069D2E9FCFE8AB5C5112F56466 +08168332F691AB0534407FB3A3D36D3C193E2761FD034C689BD35CC7335AD8600E7956003F56 +EDF6EFFAB63291C1796A1A8829D62C16DF8344BAA8605A538C320F8BD41E35480DC6EAD20986 +D1E671D5682C1D77D7C81B2E983B5D2955767A5940EE1FA51159FB5176091BFF203057D993F1 +19C87D5669EC4AA1ED1B1048E0D34A439A10A03E64E6CB5305003832257C5CCC8D53196D0B57 +AC82A5DF7AC9F2FD1528FBA6AC34DE1156D9E0CAD7D3B1E1945A3BC75FD91E0F76085E05B096 +E139136ADF04CAB6F026C46E31C544E28B7D89A3AAE524188657E7F40EF34EF42B7B636A4501 +0E9DA1D4A14B9F673ED233A46A8BBBC9522E5D1514848D51664B78A607390BA9D4354464F3A7 +A91A876C1D893092105557CA13E2A460620B8ED0378C9FA6272196E5F7A2D63AD9732C57D478 +549812AB1EAA2E735FBFE0B200D67F57161517B0B52C10EE134C0696DCD8FA8EE004B3078241 +88469842E260D74758814816410E2BDF23B7E2075FF18723593536C293574E1FAEECCB985B02 +E3FD624FFE0380E631C362985DE944030F9F13427AD35E7B87705EE761BD396B92A5DCC06D56 +262D495994890218F117C3024A813C943A0608EC03CAE0D496B557F748C14696CE391A140DD5 +E5248A1BE58A1764076ED3A5361A2563BB123C4831DFA952D6D8872A0E3C07142BC794682A94 +A66E70430643C4096C71F6A634E2BAB8AEED329AC08110B690CED40CB37230AE9012BE2CB6A6 +EDA2E2022A7CA16771A5BD2B6FA659BB47CC2C427E4C209D01815F0A907B096085B54752383D +C6FB049A147E6DC9D82DBB89C34EB50108D4FECA7DC223792292E64801443F7AED22E123077A +A52FAE9AD49AFD8A3F330CA78AE6B088BB8681790A357B46E786602BBE3A84B0781433C9BD1A +A098943D50743BE32FBCC9A35FE81AB29525983D6C93AD2EB0C66A0D75EF0F85F8A97CA5E54F +A5EFD9E23870C17DC543E87AEAB16A677B846E1F5954924C60650F03410B4C7EE099415B6021 +E5C8F33E81FAEA57B6DD3ABB45BE7DBCF2D23CEB44965C34E40EB67EA8C504BE900FDED57E44 +9A6BBA2C55821FB261537036030831D23EAFE00B3113AB3EC777DFCC357BAAFFFD655461888A +A8144629E39F83E169384685C1691927FF889A67B43B7F84689138CEB06C6AEF4402B5693BE0 +466994665CECF34F5AD656CA098B215754794A6E567CB590C2F01795B2931BAB6F73C777BCBE +505D1CCE87026CE3DE41152FBCC4E1470F7361FE50843D0FDB2E7209B2CCDFC5C7D910BF3276 +AD395F46DA6E532343104C4BFFEC3B627F89BBA72BCF7088A0AD564C05261670DFE2B1E28E8C +61519CFBF5937AD54B37A7B13B7770C93097364F5F8596BA3BF5E047170CF9F686D18ABFB7C2 +4B0B22750D6AB28A1F47EFB0E06BAED2948EAEC810E2D11CFA7451BB33A2FA90FAEE1954081C +CA93A3E18749CFA50A2F7553AA63000A2A19FE92AD0C0D4974FF743D3341185F8916C783A466 +C270C689389C9767289B1A00D11226AB3E1E90E9097588E0C14ED8EDBBF717202E5C5DAE9931 +2B1E384878E4B6991D10DCE9252A8B8F0B2F2DDEAEF92A87299B2BD39FD1488A57CDC77FE147 +0395DA0D4D7DE8E29A10D7A07849C78F003A3F2989D1EDFA7CA70B0F89D904A5DCCDBC292BE1 +A0E5A35C2F6F5BDAA9EFA07D38E68959DE0A5C01FE0E5FF7BDFA46B4D15F050ECE607563BE52 +B3104DAB7805B4F27231CFC0A7396605CC2A6D439C360903086CD1112E671F74E4E7FD80200C +A5CBC9EC087FC2C95FA7529713E43235767E29035D0BDAE76C4D4BC0AD18EBE12ADC7990666D +08EAF98545737FBE26F11EE1B42A52B170F37B21896E33209A9BA4A03285A55C6F98FA3B9649 +28F83D7830A938FEC7B60F454BB143507407D3B12B6CD2094DD9AA7397810EB21CA7E47CC304 +55314428F5EB009C9156A296A12796AEC951B5B6A8E2A188D3F3C5C03EE1146A1F94DF8E661F +8524B619433DE3AC98B13DBE39135BBA43C0832944FBDB106D0696CF114DFAD04E5DD7B6A7C5 +2D9184144977194BD24CF2788A56EBF5F3C992C60B2F4A7B8A697FABAC56C4384434F10C980F +1DDB5B79DED34985E2D6344A1BC036CD50DBBDB8BB002F96A887036B8BA9E81893DBA05AFD50 +C3006ABD5A74826AC085C6F85168E098CCC5F17F36381746FC37C6352FDE3D8A503014602EE2 +78DAC70A16ED96CDE5BBACBA2A97232F71400B8B4CFD4C44183345F3165C4D8470AF9709806C +87AC87CFCF6BB1CE6366F63E0C646161E5EFE934CC215DE13B2E9A93802FC3C1AAABD6582A0C +B2FBA304FB5E50514B8D2FE55BE1545D034F207A96DF61AE7EAB1C06D26AF493E51B479B3BA7 +8E16C7FED79A9EC38E1C4988BDA8A37692F39E6B944EE7AFD329F827AE8E58D7D6452811A0AC +50F3ED5F6DC055C7CA7D52FE746F23EA6BF02DB28342E173BBEC647E38EFDCE4458295F5509C +BA247A76EA82685EABE8846E7B07ABAD72305F06A987178098D19A37AAAB4D53988C69FD7513 +014E2DCD9A36C102A7F49A22561A32F94D7790A7D463D6649A7F0D395627CB2AD50445A602D0 +F6C2E1BB13ECF338A50385A0454EAD42B3441CDB836B6CEF0817D7FE9438187045BACD849EF3 +348EA859E77C0DE75175E1DE97F2766C2D25F4CA2B2F441E9FE8F8AE95F9D8CA736AA5AD7A8A +8D4CB90371268FE41A623BFEDAB04FEBAFFBF6FA61DD1A3EC255774CD58C927AC41F24769F20 +D43D0CE013D51A7434981177121A77547C298ABCFBF0AE83864E0A5F052CEC01B7D39919FFFB +3DC81930B423003348BA7143FF58F6908803695D70A122081A77BA8F797CC85E39D8ABF419AF +8732472EF2972137AE3206787149550BFCE8393B261B2AAF73417473B467464FCC848329BC3E +A5CAFF477862FC35D35BEFE5850153733D88BBA52DD1EED6DAE87A1EC09877415776657443DD +2C454B3D8ABB71762F0D636963A855BE25CB52D6B621C09E21A47D0DED25E92F52370DEA91CC +4E3F118C082DEE635443582C57D7151B934AB5975C9D8691D0FE281AEED8C196B06F787DD75C +F6A04BF63A3C9B88A36103B18CCDDCBCB213F270E4282C3B40E7B91AA535B6C58B239CD7DE24 +F832026ACF4D87EDC83AAB433D03AA633B094AB62F2BA8C0265B9E39D1072282C0242B570661 +4C34C2F2DD37287C73515BCD77BB2A4A428839F7683C4D8C83324A8157D56B82FF518FC3D903 +F85DB1676EB71352E46F1B40651CCCF53F7D92200778A2F3B8414AF97779BA01E1DDE594A9C5 +E45A1A3B5BE613790E9126723B95E3EA265E6A6956904DB6610F997C77E02F719EED9BC40AE7 +66C37DFDC2581A1D6C625DFE94146E39DC435983D415EEEE370D951F660A0C8A34AD303DA80E +D66258D4466A647935580E86D723D923CD3BBE150B558AA4930CB9EEB4A4D2A57B4F087473A2 +9BB3760B23AE615B10B58412CE6BA4632B91B6D775C06679AE08382F0934BB6B0D4CEE4F5B98 +ACC6D7D5461C6A9E827A11603DA185E451C905843733031422218539B01CE7807986B866F659 +761DB98CB8942BA1959AB973380394F70392ADB687FE92886D628B5873055CFF4F1052DCA10A +B657A147188F1E42B180685B723331D8CC35273E114F324D53C9DEE784F46026DA726BD29388 +3D6BDB60D4A2198E89C21816E3E711D4FDD2C1A9D675A71BC6095F529F8625E815F82ECFC865 +29A5AF692E8ABC76B940D19D24D6B96500E36FC662D5937F64C1711C1D265A2C90DD56ACF6D7 +CC33C7633DB37BFD437F5C3D78973E61A257C379FA1095807579EE2514AE15AF5B341B43882F +3FE19236A59E92651EC64961E62E4FFB7A8F800B8B3C525E718C7E7ED92EA07C04FFE9FE5CA0 +59D2FB05B95800EFC84C3A7C6B816D821225FBA9D3E39AC8052D9F37828218A221A031DDABEC +62BF03601183E68C83E8BE713A2C59E9306E8F42180ABFA2EF83BF2DE707FC35B46FB6A6ED72 +8B569CC07BD680CA25661E2F9FD89428BDCE458E96578F725D210B60AF26DDAAFB382BC8E311 +69D5BC5BFE7D48E92958EEA2823E3DA5E3EEE7A6AD644F003915B922465FDF858389AE6A88CF +7924DCBB96EFD85F12478B4C3D330BC6C5FC412091F3C54C9F1A6BE17973C025F48342D566C9 +6220E66D95CB04477C054759A3C6DEB3FAB5B3F650ACC6DC1A57ED0B9859C9256C6BF4901C68 +382FDB25AACD47DE9DF59366236C3C4BBE5D50465DBAF139F4F49E2D6E5CBA9F47D558BAC06D +FB98131BBFE8FEE681D5E4A737021E4B175B1CB96ED0B5B011BCD639C9756F8C30AFADBA5162 +A48D8F5090C469A8E1EFF83E5613497C8DD7BD7B593CE3440C46027F0561B187F75F9C3B0C82 +9923310354E5A903FA9846C199A405960AC0731188C863B460B51FBC12B407F50D4026AAEBC1 +D21474A0915AB42B368AF2BAF658902D3B28E143C6B2B1E1B414BB399EF6A39B5ACB2EAF438C +C0B38FB44F1CA9B4174926B585BF5E287F8B42758ABE9476A9E4D8B9B9D3418014B2D1A2850C +62D4732D2024D4262FCC42EAAADA3B90CA39E03674AC19443C5B5C496C4A83324F822692B823 +BE229F901AB0CC2AF98C43B0E13179D6931F1AA28D8DC2B1CF6C4A0959602A84E5AB1D0575DF +DF70E347A9A6389EA7736D353D0E5259A7686B50887883B3C9AC232B0DBA3DEA5C6B59D5307B +205F1A7D5ED917CFB3A2E9E66080BFE5B36BA012D05C73F6864C1E59D05CA076147DADF784EF +F55390B412F4BA448F93520F2D41BBC3CD52514D8C12BDCC69D4C5015B3462B2330046828399 +029F6279A8109034B2D8A5AFCCF1B0CF20378A411863148DFE9DF7B5BA6219FEA021D9AC10B2 +42FC55A829B050EE40C7C8213C175F882CF68F8EDFA80CB1A6BE053B339A70B1CC92191D15C2 +D3E16ECD5F145AEAFDB83CCE8849508A70C3FDA228949070E9103A881697FCCF2AAF69A213B6 +808F27694433ABCCAF502A8B0B6F075F7459DEECABFB827F760C8240D88EF529F4284B4CBAB9 +4E8651BD94516005F72268C13B962867EF8B7939E1B077243478F83951F995B8C697508E9734 +7E5EC96FFD7459C17C9C7C5FBE3BA5CF15EC0DD2872A60C31736F9C3948371B10A903DF62A9F +C360933746F20809C2C0917302FE0A397F6682F51CEEB509F4A070546C7422DF6F421B801D06 +B3CB6F7D08DEE3E53A21DA5B416678170769ED91E27C34410BCEBE8FFFD94B2D6B22E88FD377 +DC10BA223C7F305C6D7CDBCDA24CA5B2D8A0B83D6399ECEE47BE4421A95E6BAFEB7E539DA63D +CF328E55F4239EDAFE7FE722BC6B2B2C4FD89623023C8EE3AD682DB456968332CFE7145C7392 +F609B0E6B5DB4F3E5692F3B80E0705CC5E712507D6B85E3372A54911336ADC17B2835EB4E470 +7AB102FC2B765A2EF0E0EAF396B27C04DC6141E769475009F5784AF8498DFC70E93F5FE96EA4 +364B3585DF27FE165C25689C8CF8D8ACF3BB4705B462BEFF2559A4E43B7A1118E611CC64BBA0 +4F2AC87903880F8FE94B2AD27C1DB989E9F369DA73BFDA3A2BD6E6BA5ED03C132505E22B7DEC +FA770050D6A29C09E32A3F610B71E5C66A96414FE18030F79C652D565184723771C3F7E67560 +27C68BB8F0362023C22B90B1A6B742D3D65297885AE7226F7AAA60309FA0E089F30731E30F4C +3675D4A2C9AA15CC3F8F54AFC4EFC6BDAB1CFDD3FA6C62C58E1D46F0F8495178A7265AB6B96E +E7EF51CFF1A24EC5223166239F892BEB7B2E5848B5D074BE03EC888937AC362D9E0EBC51B9D6 +9C33C1BC3CBB2ED97CEFFB0BB6CA48B78611F8077532370F71A783E414ADE9C2A8E2120BD984 +9F52872C65A4EBFF544E2DA3F27477A13457495F422DCABD8C42B84E3E2D28CE9B8ACE50456C +0D67D7BB4702A51D123A9290D7531611EDD7D022F6903D6B3F9574C3536C6BAFB54B00702F9D +C1EBD4BE5C2E8B113F92081C3A7F2EF92E04F0A53E67C1A0DF27DD65BD8C80F200260AAA9D67 +A78A646F069850C56DE92BE2FC4FFCE96F0A4192E7E8BFF17413F1E0C01FB92EF970477B44F0 +13B3C0ADDD856EF6E7D9DDFB2A88692760DE7CE43BA60528EE4CE3E656839F74812BD758F890 +1F3E0E26782815F286F01E88ECB90D2B95B5A1183836D6A998B2EF57E9986185A91C33A0A35C +AE7D925B8DA8917535F1B602CF8A5D6B18825021B240BA96623696A8F6E668C5D233D537591F +5877AB2CCB7E954C057010706EE26901D64B2FBA1DAD9CF2A0E7AC704A96A3C4F5D6CB95F78D +A11ED9F98D36BE48693EAE30CD1BFE3CDFC47FB46ABAE7D67267DDDF0A319EF85C918FCAF6E6 +574B5621218D04FE1864F754E22DAE2000EE135B975E3630064078A7DFE087EC81B86357008F +097310D45F7C10A253A90D713A790F6B0B3DD6FACFA99AA1513ABFCFB01FD363F18142750A33 +FF283543377E73D1C006D8BEAFEF1BEA4EC8C56B46EB5FD06B85EA234EE5CB844765C229F084 +DF8D3BCA608C34742BC6A8362F5A7994AB11D85600C5BAB2729B89DFE0E3B47ABF8D02367B53 +9C27FC772838D806C991C6B03B9C6AF106771F6F7458F6AFA4A3DBCABD7F9E45FEC22A681F3E +039A4713CA7D9BA1E091CF7244F0DA2E53EA1323E03050E61C72DDF8C651F4C340B35FA341B8 +8276A741900C9DFCC0F7FF866CFB348FABBEBCAB187B3F8AAE2022574F287324CF915AB8B230 +1848989E807567C6BEA29D6ACB9CD80D6B54928F8CA4303C6B519D7E3E97EE92EC9FFC4AFFE4 +D842C979DC923479B21136AD12D8DA127CFB12053E0B293A35D0152D0721EA96D7872BA4CE44 +7978BE1CDCB2FDAC0D12FF26396AE0266D47C2170A444580EFBF5791E1490A978A15141526FB +1C76272DE761167C467178F10BD9B949A4452AD1BE2E79A2290C356ACCBD0556A3E68A88EAAC +42F166C263F37A2749827B09F77C5BDBB813C7EE62F625B68BFBF3F265B1D11D7E19CA1E1D31 +BD6CE1CB12371C2C60F2F8D56D0C122034C2E28995FD0CB0473FCD2893892219BCC799A233DE +1809EEC627FDE75A66C7475BC5780D7F3B1330E496075913B369CA8C50918736BC3119228D93 +E2C2316AC4418AD32B741665F81FE667D1697D8F59594882424F012228DB557D6FDBC99798BD +81C40D89C583BA80DE51DE3A458D350BFFBE35472B1571F78D590216C812EECA285C6AB4059A +3636B823D0F0BC2D931E7E90E2B620374099A43B8C93DCD6AC9EC986E84A2F6923C49C92E016 +F58C540F1AD4B2AF8D878D5921C725FDA3485C058D9FA1CA672411EFF31EDE22BAF340B62D5A +6941B848EA9F56C651DC64D5193631E88C6A70BB78606A9B7EC9CE354EB410A5861206179B65 +3211263CB49D512B20EF237BCDE0BB8F89A2013D08AD7F74EB690986E6097062902B4C523B34 +E798A7029289C6C43DE12718C6E8ED13A4B987C44A1FB25B69E121BB352BD938695E64981DCD +DBB99DE0A98D21385A29792D9792949B385CC952F2E7C874A75D43D331091B4894C176A42EB0 +A8F3D2C56AA95D4FD8813BD56F0F41BA0C769516BCCB1FA3284A9E973C5414300596927D6850 +9592E224172ECDF8E90D9962BC4227356932574D951F6A0EEEFAEFAF771A5BC8A07480C424A5 +5BC53CFFBB6E4EDE0F6F8FB506B5824086D8CBD0C3A1C20D067A111DEE113523BB7C690D3DC9 +1F230DF7073250C779D6D3B1EAC04469D32C787E9425C27D9CED3F514C5962854D8BE3BD9B08 +99685D1648E46A1484A7D6B820CF8382034E05EE3BE3E5C41220B68C7F0D7DE690B1A7F2A047 +2D11C34CFF62F3D355FB2E237738773DC16420876A539E9A04CF5CB2389DCFD604F258317573 +E5F46265BB4D9096639345B76EBCD2E0290721342ADF75FF56FFC00D302DCD7576CF0112C9F0 +E30E4943C811081D1B54853777B7BA249E7084F6C5D7CF3C6146F4A3F88364DAA093FA30D248 +133DC41005E66C1B56C191E6858ECDA5D3D8663635D796AD9D3548087D8753BCABE34D2CCB70 +66CF23EFE18967509D4F3F6DC3318F7827C01AD194F25B20DC2A9D08E4878DC6C4A42902CE15 +D2DF0E91D477DCBB5BA0D22EDB471F077E1B8A04F4111EEA04E1B29203839C19610C14B2FEDC +C1D6DAB356BE0FE566CBE184082F89E7C2C70EAF2A5123064A8118919A4655C4E6BC7E5353AA +FB4397FE2980588A678A2B7545D1CD3EF800A64512A1DF23A23249344278150A02804E54670B +FB4402A5FD402415598E1470196FC70F90D43DFB83F9844A2B91D914BFEE9164BDCF1F88117F +1337CE78CFA07C5D37F5F4CDD35CE6C8653CF2073699FC5CF848978E173C27B545ED35DE88D3 +BD45F85782E5E51A9C2213C2DB65ACDB8E74274F7BA880A1DA7205FAB07E86A650499B8B2595 +9C1DF4443A003F2616A68266C7BA1636767FDDBF3F50D432628E5219BDE4658DDAC984EADB62 +F9DB863571E4DA74D24024C2491725427509469F5325E424B48993707071EC3C45006F1986E8 +79D359606027510D5383E2178D016B402A18B914247E0095F9B7F905ED97386780B1120D3909 +93ABAB3D18A36A2EB9BB8BAC2F084602F8BAD9CB754FEC8F3F4A263F48263C270EC619E73C0D +1E9178CFF739670A55CE6B1FC8EC2DB82795AFEB2135444801378862BB1FE4188C1C027840EB +A39E431A4D33F1DB6657F1DA89D2CF31C9BFC649A36C1DA8B28E993B4EA3B00742522FAFE528 +9F1C736D6BA6DC95EBCA8DD45AE1FA4053411CE9AC5F768E3F20E2E0B799173B5D0B1FC393EA +7C86D8D75B511BA49B22ABCCFC43D9EB05B92B773728F9D2C14F0ACF1BE7C551FC2B8AD0258A +B348D9972B1939F9907B6135BE10B0D5FBFAF7BF857711DD5874C904544E12D6598A30E426D4 +BD5ADA82F18AA5A78E5AF27E29C2B084A59DD2FD8DFC883B28296FEE1E9C143723667CAA3469 +730DE83F2766A0B7F67025E941E600A3CF54BBD06D7AEBD95B80A6F05BC1D4FFE50E7FED9351 +FA364B282B4A7D252F17C2C6FD50BE1A7DE88EC69E9436F8BB2BEEB6070668CE0A55AF51AF2E +9AB88DC3809EFD3BCBFA40778054EDCE6EE4D5E890187C340D22A7BDAA66B7D1FBA0C82F1B31 +596699294BA2DFB4CA8DD08BB5B1DAFD4CB81049C186A7E91CA85BF3CD725084CABE2AD14BDA +65B947C107F93D8FBBC10A0243F9CA18B9868D6BB70963922B30D619BAFE6F632023C56281AF +A39376F838EE378AD1C6D7296DF4AE79E0D932B0DC027164EF2AA38CD543FB81DA48D884F056 +3F53A28B59A2A9A0546805F55A60B2DAAE5CA90988508F9C8E5109FE3F6C8BF8B72A5E8D9286 +E673216696D80FBDE4CD2AFF31A575DD7BD6FC45556E300127317DD0DF074B25594EE07DDBF4 +31F5E3D2468F761DB02A85ECED800FACEA52139A1740D8891405121316E4D300D5F5B683811A +978EEF289D0F78D1CC00C25C539D2E828095A5C55F010771F694EAAF8E5C895204ACB45C902F +047DA19D518978528C07387828A977A9A845A06A2EE18C1EACE655C3E6F730AABC43E04C939F +73EEBBFF7B1BAB91912D3DA93E464AABFDA0335DC7037015AC17215D7D0A02AA486C3C7BEA98 +16C11F027B577341BCFA10063C7AB567122B837AD85C5F47631FD54D82313CC04E1B2233F92E +E844A6DC0197E797A936CDD10C58BB35C138C7C5F84181A9EF67246E815D4B355877564A07F7 +4E8C240EFFD757DE474BEFD4C66A3D50CBA5B7DB5F78EDF2A17766B38F5D8AB4B90DA090F75F +AC311E44A27AC3A5466BC6BE3AFA08B8B2EB31D998A45108A77B7ADE2E95835103DED4FC26DC +3CA70F5A29D76292475876563C5E5B7E12B2DBAD372FAD8EC7E6BCEF4FCC7E01469E39AB46C5 +B3CFCDFA60DD550776B9748AA5581957F2D884063FE1920790EADCA2BF8387FC9232766D8FE7 +2BBA9B326445813052B28D1B974F6221346D1B60C35678A23B9CEF0B87522233FE575C1C49F5 +F0606D764B02B5EA88BBC38EF7B7D96B41EBE26DE64B5DBB69ADF3BC2CB73A046B20C3A2CA1F +7500D1F82362AAE79EF98A1AE987976CFADF7B041F82FB582B5FC6BFCD69187B839CB2BC18FC +AC9881DB194A8282BF236A8A1A1FE37C4C5C96505705B2D29BB01B70313C82C49D5162011DBA +746019D131ED8B94E200E1EB2A72E59A57C7D9584B46991514F2FBAD9045BBBFF0756B638177 +676AB0A4A717CA9CCB454D2E157D90A15688AA1D4B3FE43CD6F25034BEE45158EC8EC94D8363 +027E0D4E18D13C6A77D9D97B0E55AD6B2DCC0E7B77D6A942F7BFB3F26328ACDAE1D4DEDE1C6E +8310540CA38E0D4A9BD2C9DB61DA674716F3BCAFC3A43BF5E63B4E723CF453241009E1E8853D +F56FB8B61E969461A479F4EB860AA7B3DCA2276623A688177C0E3F4D35E6BA3802973CD5C15A +F7BB6FD30A4F630D30D6D9F976291DBBA055A7E2A665434921AC00F211147BA146D78CC9E00D +2E1956C15A95AA4DCAA66DC6A73ACADF828385FDF1CB047C6A1D64ABC5575458EFF7A8B0518F +459BC0CCEA2F5BE6C17C6B2FF5D9D6671CDB4D1EBCDCEDE311EBDBC46FFE4CE5925174FB6867 +BD8782FBB5DF89A3E09B0E3A1351CCEDF95B919F5089793F82FEB57BC6A103F8CE6EB84AF506 +C4ADD60A88295B0ACEAFEA03D417664F98C420B2FABE59DD85837D7F54804C5AA04ACB78C21F +6338989335200E5723EBE2B61F1AFE37374BD1281DB67EBB38CD7B6FF4955087D91DB6E50527 +AC35D289DE10863B9CAF2F18A24B497A2E837B92E18DCB298E95A553152A94A0A0DA2A2589B8 +6FB2A1FF9D9CA0E8482F2ED922A1805C7A6502C1EC0CE0DE7DD93D9D030CDC1425763008F573 +5AAFD3BEBABEA1EF6E61E081513C5955F787650D381A05D0B806D2FB47314B962E717C3828DE +D4653BDDDA36DFE2131AA67583BD95D70872D1912C8635C5D188B42DD25F15E56FD0B7C8DA49 +0157007B6D8241A3FFA3C8E3B105E233F6FA1FA4360A56E4A6D1DE7DBF15F9A9B298154129D4 +3FA9B8208C40A519569B4C783B2787848930DDA9C566C58933F3BBA994BAD9C573D0130F818C +AFEEF9EF6B21CC05DA1CE1392F8F29D5550385D2F784B65705ED82A1ED75EF46537F3D336E91 +FE5FA1843B843403DE927FA880CDAC0EECAF031D05E7F293D0644AFE6233583230A0D831E228 +5B10CB3F25FB8CB7019A6C0BF054A5FA3A97CB6AB89FDD920E51B3DD8ACBC965A193FF0F09DA +90C0791C747422188DA90E2E9FDFCE7CEA252CFAFAF2616559FE7886C2E5C2B399F01A92BF00 +8101111551D8495869B29620BEBF01FD091CBF8124DF8F433ED7E11F61FB6D3EFBB8338C8C9A +9AD85FEBEB8157F33E399CFB06A07487A28EA0946285667BE432D44195192F0CAB2460E5228F +0273629B9718A09656AD687B0B097919147AB0040A8882E5DF6067AFCEE5ED0DF2591493F01D +EB106D2BFB242F822A4E478A3C587BDA9E3F521898D0DD3020C30C999721A4E2DDAA72FF600E +D8481E7AD89C5E0A3A548442A5E117C8005BFB8216EDBB85DC1206320D903855BCFE52EE480B +F2514761D5E70ACD27EC36294B8EE83166769B1B7911D4C6A6E768A82BA9C6BB114FF803C532 +590B1BF90E91FED98B2CF78378AE408D5013731547C548EBD62BEEADC32BB41796BC13C2A230 +0827C5F717D4AC53B31DF3E1824AD1C5D4638DA0DE14B1D9ADBCDACA45CD024F14272CF3FF7B +F297EC6BBAA06566F599882F42C14AFEFBCBE9F0F0296A9FAFCC0DD04E24AB71118EEE1F8051 +755D3F9A1ADE015374D5A6C7473AA23189A35C39CEE4022C5746C57DBA2208289A117DAF48DB +979BA835DBA59E4F5378B00283F49A82B5212EE30CE2BB037F628B9CCDD05E9F405AAD364F76 +32B5C0338638B678F7FF9611C9E7AA59A50E28F5CE3582550453AF5B383798E03BC755A85C31 +EFE9FF7F7A855103B16FCCA4168A7D47D0B0792BC52DEB56AB0C88F1E4C1B86C8382B5E825F1 +D020D74229B25E40B774A1CF6EE02A298447C2E5DA5B4801416E3A27542EE0583BFF6B2CE90D +A6DA91B6814D58460015E6A6F6DDD3A804725E38C4E6E8A5D810075DC614FAF54DE04C99CB09 +2E37B4FEC55AF9177B2D32A570F18D0E5FC556E3BFDB7C7EF95003EB25C1803FCF40D95D2762 +DB4BA428DAD4F874F08E2852DFE9A9D22EDCB8A8A81AEB4DB000100694A0775C326877E3BA84 +03732C640B82FF394717EFD48403550A7000A982A4E4B53BF01C0FB6A3F7756EFA462EFA06E5 +61A72C7FFB24B3DEE827AC35E1EB302CDE6776285946826EDACFC9FA595C7D722DE059A6FF17 +B6A1774FB4556398881108D239491FA4AD855237A8547AA55906DBE482F5B97979C885BB65E3 +2E38949052E2FD9E714D7219161DA94ECDBFC591BD6EF0A58C4CF5CB13C19453811FFB81D44F +D2CD81997F3EA89B8F0EE379861EE1C7D18667E62A7E363CDD956B8E7CA9BD85794B154EC5EE +A9D3FDB960E272178043F4F0DA163FADFB2AFA9BEA23BA6E3BFC1A2ED7CCBF014B96E58BA2E0 +7CC58C3384B38FC8E4CD78732117650C8F7ED5762587BC1663BD46AD4589E17B933EFD553184 +391BA1D14881EDD73019485D880E1B1094E720B30E51EC5365E86C36CF2B0524C88477C0D71E +2C05E8B0388BACAD8BC1FD6633B41A18A53CDCAA86D2A7DF1B0B10326B398E208EEDDB3EBE80 +516091FB7C46EFF8F08EC4A72DD8A3FCAC779895C14622B141348C7695BD2B861E32B31F3E71 +A2DF12B0A7ADB96EC0C8C47386FB906C34603043EE4EFEACB7B610AFDAA4F19147532B2193DE +D1979B71C9D125590E78C5172C527988DEDE67341E306538CD6A837011130DB62DA87BBA4211 +CC87F6815914AB0187B0B947D50FDE31627486245829E1EA5A94599F0E6ED0DB7853ADAE95D7 +E6CD82542A14941C207F9794C9224E8DFCD434DEED1E43E7C0B86CAF70F7AE673305894BEB0A +33A840C497D3424B097D1065C57D9CACA4361C2FEAD7193B6CEFC1A10F26B2DF305155D9A392 +5C360505C29C40074379B291CD8623556257266BAAD68E219FD9F24305F961E5D6017978173A +5EB177E17057DB577FDCF63FB0D2D45BE7D63F0BC205E7D2F4C1749CC9DEB24E730F1B7420A7 +79639237756CA9516170EEA07E607EB3D5627467F65F5DB49CD43FC6D4A3AB2EAD3DF6703EBE +613ECDFDF64B7C9B29B08AEB582DDA25F944167D367F5997B8023564617C517873FFED86CCD7 +09565DBF690F9FC22E38A7E619718C9CE7C399995BB01478EB3AB496F1D7E107AFE627C77CC2 +944DB98EE2919BE57C144480400FE53970403F4F0DFCF69CA68235F001309841CAA6444EBDE8 +B8ED0A1B049C62E57B97FF8E2307573BDAAB8913D220B68A8D551E2E6653F6B14FEBF8755440 +47401AB366A900A58DA1C37BA66252EF1874B39974F0E31086BB20961D139AC7D57B8F2F8E8E +D659F0A68CEC598C35237B820A482D624DD5C628339946A0DC68A8BFC2E660E07F11916E951A +C82CE45D7E4D31D2FA5F3D5CD821F7300EBB8B56B7E4A52DCF641A5B267A53DE0BD022B3F928 +C1AEDC8AD3F3AFF20EC5E4A5ADE35A5F1E322014A2FB9D19F7D42F994C1E4BEA452E25A090E5 +9297B10EFAF537A2D584D86CF900F986C2EB13960B80BC8D133D2E46820112AD9921499FCA16 +17DC84AAAEEC403DDCAB8837EB69A24C88407437FC156535A834C29FC06DEE695FE1734DCE89 +1BEFD813868AC2ED37A09A9C29BE143C052AE238DA802C5B931D325EB4007FA1554AF96DE6A3 +82CCF9CD405368B30209D8F4AF855716F0A78378D1A4152D10A5E3198D5791FC1C7D4AE6BCD1 +5BAEBBEE5360CF1D783EC7B15B43F93C20DC09B6A016BB511BC0DB4C4FDC1FF44289447DA34C +C530FCC1988BDE9210505CE07196B5F22FFC400D951537978387DF257562833FE7E76CDD05DA +C3FD37F218433AAD9C2EDD90FDF346B92754FDA1EB1644C8975F1AC271D75F442810C163A2B5 +2781B72BAF22D21AD77D41F78325CA190CBBEF27173BA0221486ACAF4935D2966FC34E61D4E9 +5A15D40B8060546F99D6402371A4616476AB9843C67F15B2E0C79AFF014A8D115C521FE27572 +B9FB39E0C057108866F8067981691466E13F68AC8D6C35F90A347B510F0A30DE09B98DF4129F +9EC2435B7F9E625909B305053B21ACC8B7D03CAC2B42BE5E87D6EE4392E8027E45383E9BD62B +F105FAF9A30E0C91AB1F3C55CB51995D7CDB27B8940402B67B9BB29D1B5955C8333863F71323 +8637A42A3B8A56BE9B3B8C21D9CC04E187BEAFEDA56F3135DC4CF13867EDC44BB2537065FBCF +6CC5B4676E3A7D0331B6360C72291A3D9E9584A0E42412D24CD652D2D0A61AE1FADBACC27580 +0438531823E31383F3BF75AD2C77A79D87C68E63FB3ABEE97D7C3B89DF29214E613B82E968AF +04E4A016398FDEC55F3F5DCFF53EE4C8F50A979F947A9489D878B7BC6C6D8E3D8BA220F44247 +1FBBDBBF20F6B542A766B85B36274C7F59232E86B89BC54912B667887F864FE14B655D600674 +E70C7A8F81AD2FB92701D3848E1D4BCBC8D0F4E317AE99D6F23437401E00F7A45E3BA8A10CDA +37ACA54571F16A4FA9BA469F71AC1395D37641E983A846CF7DE08EAF91EAF1B50CB9A9EADBAD +6D726799F70B7D8E9930CA0F60B5E95AD74DE84B9CF0CBA8B5767C12B62B875E9F96CD0AC537 +256214C9363A94BC091FC0E8B45FAC9F1547C9A28E29F846ED8821530AB5898D9FDF0A58D506 +E2C8BB70F640BEB821AD493B2F544ACA73584CFABE675D45706E9EF6CF8ECE867C1DB79E770E +0E000F30E64661469581DB39DA9CCF9783865BF646CFDD575ED5E5B0D3F398665D076EA19BF8 +80C343253B8A86FA250964D45DA4DA056ACE37D73EC9D9C53C0E61CE96DA8C6C12BC3A3BBC40 +DD4B95791E43A262BABE81E60126076C7A349AFCAB912C0D0D3B3771AED94F5BA90B9964B745 +3BC7B628AA4380072438A6E7AC7C40D5C5AF2E072EB864B30FEBF7970E83574F351FB8F10695 +AD664643659538E62266525677BFDB9E59003D79855AAB92E752087F138E79C5D22C6977043F +ABEDEE2F241A0C785C847BCF9B48FB6D1C552D60072FDED1D537277517EFA945669B16CA32B8 +B2D8B483268DDCB6F00A3F43DD96F684DF21106792AB1D000F9AD65E85CF1B91467E3D4470F5 +B40541F693226A1ECBF8467D6FAB8C8A99D26760643057CC977B92FD2EE52BE5152AA39961BC +2170D23B90BC6D79BB3E13BE3362E81033A0AB5F9902343B0E4254F5CEEEA9D3BD90B8F3D177 +8F2CC8C5B1EACC65A2C46A49FB3DBCAB07A8F9A07F4F67A147E960CE643DA0FB451EE8E30158 +A2083F4A2521B509383BCFC964ECDEB9680F1D4B5C54114F84027CEA064FBD53A7F1BA318526 +BC4A33889FE55712D7496B4617C3FED3ED5357A0B4DB17D162DF05A701256087375FD9674440 +36F376A799CD28EF5ABF726E61AE444182661DB46DA17B995CCDAE0B2123D1CC163D2DDF3A42 +DBCFD951BCB9AE709F963201D58E5C8CE701BDF2C6111CEB83F6D7C2E7C7013151698312E6D2 +FF1617DCE6F2475F6C21BBC83F086E67C53E76735C82E3DECA8EC7458C445748C24E279A6090 +CF78BC19ABAFC68854EE2D5EC2E6F4DAEBF37E6948E1ECABA286078E8CEE9FFED59F0937A4E6 +2D1B0833A7CDC16516CEB2CEF150AD08AF75951EBA8FC01823BEAA232327089B990039991E31 +38451BB972B559AC5012419C2D6362C16A540F6A40B44CC12D35943BA077995048FE5F2B81D7 +D85D1EA1E84672E43E333325289E7888FF3C9C7E653056E71201649B70834FB1DAA67F3D01C2 +C8D07B5F6308E61C076D9F7DCDF604D652AEA56D5D507A4D727831A5FE3948DA472163C621F8 +3C8B2878FD8B96ABCE28B3CD83C9C2E08A8421AF5247CA6E9A8828C78D09206F8052201F970D +485DA2158B6E81C24834B31A8F4F2AECFB89982727DAAB34F2A1CD8016F595C71DD19A7963CD +92395FFCCF248599118754CD8414548B97DF18B9CFFD49163A67DF17ACE0614B218333983C37 +16B3AF677EC99E7BAB09B216B9A1527ACCDD137F50E0D37ED634910BA15CF0498EF8B6DE3F1B +846EDB13E22CB55456FB5B9322B395470B5F37C014D6572A3C3FF10B212880AFAC767395BB33 +25E3C551A21AF572BBFBB118C9594A5ACC23C0B3523E43FA6AD72B28A37A82FAAB983600CFF6 +2CCB4A04915DE391EB5A7183FF5E4F3E4D58A960E49A2B9D2374EC6DA504E854A1B68F5C2925 +AF5F847801E7D2FA2C1286EA5F055FB7D222A615371D19D33E26BD537E0E323063D01C1FFE63 +190D1D4DB6D5F45298CED7DA97F1CE60819906BDDBFBC5B679D2580CB50218F0E3AE8FD6D06F +DAF8710426A32461123C450B147A01080873511DA44E95DE756BE0E6157176AB43BDE5A9E745 +9135E063DCD5A0A6F7779CE73E09A2902A2F040CDD62E0B033A7B3D48A1CC38C69D219FC44E8 +0D61C1DDC6E3F553168913980ED2FF3858BE6C382C5BFD1E823430588DE1749F7C21081437A1 +91A54DB980D028AD30D6DEBCA652341C0F6E4B211FE3247FCA193380155C9513386FEE05B3F8 +3363DF205D7D109503011CC569F5E62F44BA7D1ECE2DD4533F1BF4157FB346D8BF38A0748588 +741764FC50E7ED40E7B58AEDEE8CE96D7F09FAE151C18C006330B3B6FF12D152AE50D23C197F +461DEA3E4BF5EAF6C3EF700FCCBDF738AF1B2E4C28B1A514BC19A3AA5ADEC18046D75092C2EA +9DC70C6D98D2EC25CD0235253480FEADBF416032296995F5E94982A874EE09527348E31EF84F +21224F5F0531F85486A77FEDBCC60539A27AF619CAAB23E2699758529B157C7F2BAA75123A1C +5AF2F39A29C41B7E77AD0BB0D1290501CDF0555595583D04E447E75013915C459468E8378E5B +6146AD5451ACC0E902EAC8ED877DA0E6BE58ED89BEF43A870E1C155F08F8CF2998B494E5D887 +A1E0A7085CC19177EBEFC6206D3726AA1148E9306F364B724AF7D5263BACFF0E977D399CCB58 +EC653CF81F125989EC81F2224A363847709E6AB95FEFEF0537161D36CE2F1F36143F0DD6B139 +9B31C02EFCEBD869359560BDE67B215FC88CF307AE81F39D793446C3F3A92F81E41E4C4AC627 +0ED0A7D4C69702FB4C6CACA87CB1542DC76DD3D728D7FF25DBF1D491F121B27AA35B39296D48 +E85D7EAE16452BFF1D9B4E211E9FBED567C9842D1F1503EC75777B01F4FEDB4F199CAFE1C559 +47B17D087ABDCF0E7B5835AF7C82C3D9A4ADC368D78A2B1D46B2337C0CFC7A9F8FD3A87C6830 +0C2B1EEAF6EA1ED0DF35F0D4DD92C01F76E50B84C879EE4D11510A0211C19A77E2680E4EB2E9 +73513EB8B7764551FF139A1028267CFB2406333BF1C9D13286C7EA902E2756216EB1435189D3 +FC0954CCFC970440775F6D106561EC34B2750ACDE5303D25DA50E29FCA7E3AD78322ED26ACFE +F57ACC243E7648BB168C9925CB5B57E2EBC48F0E8604974215FD03958EE95CA8F25172CC8C99 +92B0EE94AF3E37F74D87C93ED14D96C15FFA788246AD6E73BCE2E8242405C5FBD3D01F8AB617 +332AF525DD448BA8327A6260D2D2A3813318F46D7620EF1F9AC539ACBDA49DF39E17B8303A22 +B575E5E8B8FFEAD8B7DDBDA7F9C29230279ACEE05D25704E230C837C09F5BF61FBA7AFEC8B44 +8C76A83E80DEF396194BD7CE0274C3346023DF99302687CF624704788151F8FED792463BDC87 +12EA74DA79710DAF5E059D1A72BFE36D6E1D688785DAAE4CC1E5D6167133E2BE54AA567D6149 +AC06139EB1F705C29157F8F5A6431CE5B57374BF68C1D56373B87114722EAE982F7E9837C52D +FD5BBD681311B1B68A8E78050A96BD14A374280F541778778F76532D7F9F7FA31F41AE5C8193 +D4009E8EF285F96F4668797A0A36A92D6C7004AB9E8D374CABF4CA99D072807AB7A2A6F137B7 +A1B1DCA1995138F432F18C488D20E4C296823E72122101ED3FCF9D5AD16C4A911A951E59F2E1 +ECB61B6A2C9844E571862EAC09A7902979F9E670AB5A47E4107FAFC36B0B25C85B109C98847F +7811960D3E0408A9DFB48C21C2E4F540F314C6225067F0B9AE3F507D637C3F053EA154529952 +C9EE790AEFABD75C9A0FF001A021A39C58906DFF73952AAE28816D999955C446EE5B82455E4D +AC525656AB41A857139192B72057289F02DD6E2342F3DE1E5DEBECC81532E106BD06AE97DB72 +E8F335C7FD6335A7B9647D38B8314B28742A8D6CFD6C037913CA3F10B77B0133C67C9130CA87 +32FFF366EF89D3F57C223C28CB622AC956453071B85C068D131E981EDBB9BEA673D4B9797EA0 +5BFA78F7FBBFD715353FAC5000055BB7AB0E5F8822941361225B119E4F20F108A4A2D77420BF +BFD8DB7A3C2E053C4925BFF27CFCDEF223E73DD02D55F6ED833791AB74A79DE8D16FA1F6E56C +B5E1284B1E2414DEB7AA020B4ED8AE44BF6EE6E433E82A0D6123D871DCB14DB07F4631E69F1A +70E3DC7A61E434C0468FAB02381732BEB2B958A6AACBB31CC5347F1968A863CC6C17626009B1 +47C3F7D2764F46F89476032526FD0B1D884981AF0DC2708D1A7C7BB6548EDA90D7C67BD93B25 +6A36D4975BC9C9E774D93D2D123DB84023AF2EFA22F7F8923582D4434A6AFDC98D831BBBE89F +107E2BF6F2E8BFB314C20FD8660FA50EF01BC8489812048F8AD827BB0C0A2E63435C488DEAA1 +78DDB75D4D76B60CF95D07DE85F5764B5484F377788F49ADD2545A8B8BB81CB11E52B1964577 +E3B34F3505B2ADE76BE512A0EBCDED10D35DDB2510B372AB71CA71ADC085701C7A5AC7F47FF2 +EC11912EC6EF53A8DF4E2F823A66479594E70E14D78B2BE6108AF4D077650C5FE03CCB17AC04 +952977F668B887C9C426C2EDE490E28211D8034C7226D128A1B91B20631F505143AB1537B371 +709ADB7D7812638416493A4A2EBC27DACC8501E83677D7CAEC05E7FC8CDA2D17FBBAD16FFDC4 +7035478AE84CA72C5F644BEB0904D2325968B9E8065ECBEC37269E6D9BFA3CA975CD06C19F1F +23B073D58E06151FF11ECD71F20445C2A6900AB9CD54D4C8D3845C6FEA080E42F758214DC001 +27582F6A6DB20958DA4DCCF3452B5ACE051496927CEC7CEF42C0268C9517DCA4D146BE0B4B00 +D7E510737F28AE1407998D095D89354BFA32738F113FA4DFD1CC28FC16177F14AA8EF8350CC3 +5793E01E77FDC2699638A0D269ECA8EB21C94D05632E3B43FC33AE57F5F808C0059F22F1FBBC +A884EF91D744E54A8DB6D51EA9F083D89A0571C5E7D85DB94BA8550828E75A61967427330638 +8EB7BBEB8F69BE203E9C9027EA35C98C4A3B5622A11F434204BAA008F3BE852484C7A61D7DE8 +1C5752E8C600C8DB896E608BC8BDADA3767DCF3A6ADA32C482B8CBE17B416783AB018243FDEF +5BCB84A2294954DF5D1F4937A17699B039B9694A20637DFC8AAD926173D935652F626696ACB6 +3D8CD8AB36CAB2499F44A3FEA78A99BB3BF16FA52EA267672DA977CF2D5AFC1E49967DC04A26 +E1A849FE20D826BEF6629CD6DC568EE87D4EB3DC9CC291D829AF1251AE6220AB60E7D750E8BD +F7BC635C69C94656E638AFB9DA6A5DDD853777F26B0B6167B4CACA08ECB0BAE84068B24E1EEA +874FE583A10FB7CE5E581791235427784C0E1BF18C584BF5F2330AFC21C26E98BFF1305462E0 +E8FD02D13AD10D33031D60924433583380A48B976569C182BB636E98D39F9966DB853058BE02 +ABC7E978C7C2F45D8F0DA754F51CB3454A25CBEE824FCE9782D077B8CC67846FB33CBE7C7F64 +E13AE587E4096D7797D51401D309B06D5A87E1467125B7EB3C9E4315CF6C60B31FE767287C66 +9BB0BCAF25CF0E2D22EAB00DF82EDB90EBFC6B8F1649582B444E6337A7FA2C925F677B4AE829 +26A60FEB9D30F95EDA59B86C0658184F2482A9F09DA453B88D256A2479FF03D8033681200A50 +5D43B1A9E61AB71262EE3C7ECB51FA62D6046A9F35596A0543DEC82E2452508F0DA86C5EF6AA +105D10FD1F2769501A4FCF49861CBEA6696BCB76A8E3E84DB2F43DA6A17053E9FB2CB459AB7E +A91A80E20932386D9F3ADDA23D2E4A1CF5D6BA73B477824ABE16BA45E641F34104708129D896 +3A5D972092D360BC6C16A53DFC76157F227E71EC621BC9E1C9DA074901C4C288702566A5C863 +9C39144EE346158716D7CD94739742B94496DE1DB825337342F7CDD6DE68BDB54708AB9E4969 +5031B07DF9366C3ED0AEDB35BD60513A249AB38D6BC44472638A17B537F89E6BF1DD367097AF +E4DA5809F9D9013D5AFD8C92A2CFA6E040F28ABD7E0A0D56BF97EEC35CCD8D212E5A772B33D1 +512546F4C35DC1CA4CC666B01B5B8FA9F517CE409F26D3710C519F68E411E47AED69B8000FF3 +DF955943A0CBD6EAB124A6BC157ADEF8626D8AB9F6910B18E950619146C84287713C4F3E6A33 +11A7D10A15F396760F43F6BFC144F74C0D3246C8F9E3FEBDCE96036B6AC4316085CDCB72E7FE +52D732B83D65F48E5D23B6E5E948E5AE2BD5686ADFEFA3FD4601B096BFBF04D4924384B764FE +34D29C5E61629DB5956B8A3F7C326D7B8D2C01EBBA6D875557BAD134B422A591FB636F6FB325 +179A1548DC183FC94CBE924BE379A5779FE2ADDE9D652D78400CDC677EF0CDC08A85BFAF5022 +BCA9054BD0B49DA4DDB77CA9F6D2C97A4145731D48D822089E687481DFF711E2AD61428DBCA2 +2C6DAED292450E9D6BCE00B79FC3EB027683352DA7A200948F06B2946E42F8DC88FC22D43D22 +E4527C4C0CC4153A285D78339C2C9D30F7C1A9D014986BCAAD3ED6DB41D66C981A1B0B460F74 +39A06C2F319A2F2EB24CF6485E6B46447F908BB4730875090700733CC22C5E0263E53E80FE56 +862FD336D263245C2D433C5F4ABAAA7A81B2427F9AC8595498140CB8461893D7D1311075DF42 +2DCEA23AB71F12DC8909A0AB787219977214836D085D456A053A193561C26A5D4DC2DF3B99E0 +ED34A9FBD688977EED1D18EFF8E8D617628DB902988D1B3066A62FA123C26235368A21B79D68 +022248664C93C241BC7AB24FAB0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 + +cleartomark +{restore}if + + +%%EndFont +%%BeginFont: CMR7 +%!PS-AdobeFont-1.0: CMR7 003.002 +%%Title: CMR7 +%Version: 003.002 +%%CreationDate: Mon Jul 13 16:17:00 2009 +%%Creator: David M. Jones +%Copyright: Copyright (c) 1997, 2009 American Mathematical Society +%Copyright: (), with Reserved Font Name CMR7. +% This Font Software is licensed under the SIL Open Font License, Version 1.1. +% This license is in the accompanying file OFL.txt, and is also +% available with a FAQ at: http://scripts.sil.org/OFL. +%%EndComments + +FontDirectory/CMR7 known{/CMR7 findfont dup/UniqueID known{dup +/UniqueID get 5000790 eq exch/FontType get 1 eq and}{pop false}ifelse +{save true}{false}ifelse}{false}ifelse +11 dict begin +/FontType 1 def +/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def +/FontName /CMR7 def +/FontBBox {-27 -250 1122 750 }readonly def +/UniqueID 5000790 def +/PaintType 0 def +/FontInfo 9 dict dup begin + /version (003.002) readonly def + /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMR7.) readonly def + /FullName (CMR7) readonly def + /FamilyName (Computer Modern) readonly def + /Weight (Medium) readonly def + /ItalicAngle 0 def + /isFixedPitch false def + /UnderlinePosition -100 def + /UnderlineThickness 50 def +end readonly def +/Encoding 256 array + 0 1 255 { 1 index exch /.notdef put} for +dup 0 /Gamma put +dup 1 /Delta put +dup 2 /Theta put +dup 3 /Lambda put +dup 4 /Xi put +dup 5 /Pi put +dup 6 /Sigma put +dup 7 /Upsilon put +dup 8 /Phi put +dup 9 /Psi put +dup 10 /Omega put +dup 11 /ff put +dup 12 /fi put +dup 13 /fl put +dup 14 /ffi put +dup 15 /ffl put +dup 16 /dotlessi put +dup 17 /dotlessj put +dup 18 /grave put +dup 19 /acute put +dup 20 /caron put +dup 21 /breve put +dup 22 /macron put +dup 23 /ring put +dup 24 /cedilla put +dup 25 /germandbls put +dup 26 /ae put +dup 27 /oe put +dup 28 /oslash put +dup 29 /AE put +dup 30 /OE put +dup 31 /Oslash put +dup 32 /suppress put +dup 33 /exclam put +dup 34 /quotedblright put +dup 35 /numbersign put +dup 36 /dollar put +dup 37 /percent put +dup 38 /ampersand put +dup 39 /quoteright put +dup 40 /parenleft put +dup 41 /parenright put +dup 42 /asterisk put +dup 43 /plus put +dup 44 /comma put +dup 45 /hyphen put +dup 46 /period put +dup 47 /slash put +dup 48 /zero put +dup 49 /one put +dup 50 /two put +dup 51 /three put +dup 52 /four put +dup 53 /five put +dup 54 /six put +dup 55 /seven put +dup 56 /eight put +dup 57 /nine put +dup 58 /colon put +dup 59 /semicolon put +dup 60 /exclamdown put +dup 61 /equal put +dup 62 /questiondown put +dup 63 /question put +dup 64 /at put +dup 65 /A put +dup 66 /B put +dup 67 /C put +dup 68 /D put +dup 69 /E put +dup 70 /F put +dup 71 /G put +dup 72 /H put +dup 73 /I put +dup 74 /J put +dup 75 /K put +dup 76 /L put +dup 77 /M put +dup 78 /N put +dup 79 /O put +dup 80 /P put +dup 81 /Q put +dup 82 /R put +dup 83 /S put +dup 84 /T put +dup 85 /U put +dup 86 /V put +dup 87 /W put +dup 88 /X put +dup 89 /Y put +dup 90 /Z put +dup 91 /bracketleft put +dup 92 /quotedblleft put +dup 93 /bracketright put +dup 94 /circumflex put +dup 95 /dotaccent put +dup 96 /quoteleft put +dup 97 /a put +dup 98 /b put +dup 99 /c put +dup 100 /d put +dup 101 /e put +dup 102 /f put +dup 103 /g put +dup 104 /h put +dup 105 /i put +dup 106 /j put +dup 107 /k put +dup 108 /l put +dup 109 /m put +dup 110 /n put +dup 111 /o put +dup 112 /p put +dup 113 /q put +dup 114 /r put +dup 115 /s put +dup 116 /t put +dup 117 /u put +dup 118 /v put +dup 119 /w put +dup 120 /x put +dup 121 /y put +dup 122 /z put +dup 123 /endash put +dup 124 /emdash put +dup 125 /hungarumlaut put +dup 126 /tilde put +dup 127 /dieresis put +dup 128 /suppress put +dup 160 /space put +dup 161 /Gamma put +dup 162 /Delta put +dup 163 /Theta put +dup 164 /Lambda put +dup 165 /Xi put +dup 166 /Pi put +dup 167 /Sigma put +dup 168 /Upsilon put +dup 169 /Phi put +dup 170 /Psi put +dup 171 /sfthyphen put +dup 172 /nbspace put +dup 173 /Omega put +dup 174 /ff put +dup 175 /fi put +dup 176 /fl put +dup 177 /ffi put +dup 178 /ffl put +dup 179 /dotlessi put +dup 180 /dotlessj put +dup 181 /grave put +dup 182 /acute put +dup 183 /caron put +dup 184 /breve put +dup 185 /macron put +dup 186 /ring put +dup 187 /cedilla put +dup 188 /germandbls put +dup 189 /ae put +dup 190 /oe put +dup 191 /oslash put +dup 192 /AE put +dup 193 /OE put +dup 194 /Oslash put +dup 195 /suppress put +dup 196 /dieresis put +readonly def +currentdict end +currentfile eexec + +D9D66F633B846AB284BCF8B0411B772DE5CE3DD325E55798292D7BD972BD75FA0E079529AF9C +82DF72F64195C9C210DCE34528F540DA1FFD7BEBB9B40787BA9351BBFB7CFC5F9152D1E5BB0A +D8D016C6CFA4EB41B3C51D091C2D5440E67CFD717C56816B03B901BF4A25A07175380E50A213 +F877C44778B3C5AADBCC86D6E551E6AF364B0BFCAAD22D8D558C5C81A7D425A1629DD5182206 +742D1D082A12F0780FD4F5F6D3129FCFFF1F4A912B0A7DEC8D33A57B5AE0328EF9D57ADDAC54 +3273C01924195A181D03F5054A93B71E5065F8D92FE23794D2DB981ABA2ACC9A23A53E152596 +AF52983541F86D859FC064A0E3D5FC6647C3CAB83AD4F31DDA35019CCDB9E3DD3FEBD4C2B36B +A3CF6E6C7DA85E25D8A31A9BAD39BDF31FD0D17907079DE6A078E8A409D8295F642DF492AC4F +86AC84383B0F4C6BAA7C22AD5A898A71D6CB34D2CD12266C486B75E75A69C14819DD9BB81590 +88E04D4717E576B8482DBDA52110AC8B8A80E4E9D58F470EEBD3CF44A1E1EE8DA318FFF3611B +02534FC9F4018C7C57E80570D2F634D98BE5D5EC6D95051157F0EA94A3D12BE0B4B79939F82F +8D73136D3337C464D87C9D05A10CCCAF698DE9CB7CB1B0038D772B934E2E882856C8216E405C +B4A3B6915DBBD6A23948ECF970C762D542733F0C55CC875390A374231C24710762CD9DA9E592 +B801A3DDFEFE970DD49047B3560E559D86198A1570B864EF8D6BA386630B1A14FA4F3937941D +694AB40BDE56CBA869A908D96B46AEC605ABDC1DE1DF37650191A966A21253CBA6F4537F50E4 +367F2C1FD60FD38F35E3BFF31CB5F5379E7C47E8E27A3EFFFD4EE2FC8A7D026BFCD944D8B691 +25B2437155F638123D1219512BFB26E6AA22642A376C41FE0DAEA39D24B09462E1FF02E8D4F3 +BB87A95955AAE4CB2BBE3E9E6686EF7CD8231EA8EF10B6B4AC940A8A2B8BA5FFAAB24160EA64 +6F3770C0C42D4A107B0DAE812DE880E9CC4C32B44B6C978808529E3785E0DB0EAA0B72F26990 +DDE686EB30F4AFB83CC3D9A2C87F6B3DD6D15D51ADD1CE81E7CCD539CC2B2B15FF296A25F812 +9ED5674CD32209BE149ACC5314355420BFD1053EFD124EF5F91F27B260A7299D6D1422E48BD0 +FA6E39A41E539FD8F60EDAAF01946B9E5A63B85977EB3D8856F8E668F4E8BFE7B996362F6012 +FD8023E12ADC8C04203F0CE164131BF709AFFF2C94700D6C229EC72B7CBEFC3DAAEDAE3328AF +E23783515CDCFA14C757B8CD6FFE5F8D28455EE28C3DF8E102DB08E529C43F54F76BA6CF5441 +6F586D61E54BD78D401A1A5808AA53FBFFF3FCE46C8BEEEB31CCFA037177D8AED8CA6BF45042 +4598B16ECDCB558D740BBCCC435674ACB41367DBCFC585F16D60E36E1E707A2BD984384C83B9 +609121AFD810AE0E01B9B7128FD1607CE9BD76E3F2E7D37E5C0ADF49CC3DF47FFC493D601FA4 +3C56761D8B9F7FB0A310C95FA78AF12CA770948B2C749E072532D386959B8E306568A1172A35 +6795D411C604CC9903C4355BA4BE38DF343B63AD86FA0ED7B30FAED6C7BF283BE5EC367277FD +D2FA9A5D29EBD04CFB16E7290E7C0F90B2AC6F3F43EEC445A5AF7DFE9A67E227CABC7D7A5515 +5F69EF84246FC2F27267FE26EDA07595960C52AA7ABCBFBDFA163D007B8613AC8C9890116C3D +C30BC25FD0794C291F92B5379439569264BB6F85AB4DD2A3E6AB7367532F095F96D270CBE65F +F83C2D0536F912E065F6C2507E646FCCC7D6EB65AD118E8B47017D67DBEDD125C9146F608666 +FA70C6381F01D582706215B2D3D691C3E42901DD004CB116F495B9E1498ACCAB24F2A88714CA +5FF5E395FAD2B8960F0114EC0F7B753DF3135F3A066F098C23A60A54B1B2C27FA5155AB396D1 +65B1536823A4B336E006AE560D3B2999D761BE7E6845677104682153B097CC023F53D33765B1 +F8571F46D8610872B6570786913985D6645237A5A5B7755BFE702BC5CCB59476BD31CE8FA143 +FDCBC1C321AF985ED89D55AE980E708F9D5E1824F738B4262313118CC5C06B7492D5CF876D58 +F892C4D3501C299295F86E1072619FB48875CD2E73055DA2D6CAB98CE598D49A45084DD3ED04 +C7D894B50E739854E84117A451A304EC56593F384797B50CCB971F331D72038D1F345EA10FB7 +4B46D42F338C7443DA34063A88F8E2AAAF0E0DCBDDE36DBC729FD895B3BDEA58F1E40451E328 +F1F84E4CF01444DCED3F21B539B53553D923CA5E9FD44DA4E69E8FB87666B12A6DA032F3B375 +3189915C4041F2A1B54BD9BB41522A807340B497F53979AB1076675D9E63A380C9064DD6E4BA +0319DFAEEB9EB6C43DF5AE4073E8DCD2CD8CDAF5D1BC9F5CF67A5B9733DB664D0BDB9560948D +33906A17F5006E9D858C429F1922D7EC5FF80E9C480401FB21D74744876D58FEF258A58F6E9A +E03D358505A76F1D2AED973996327B34DCB11EA77BE8F29A2CA20FC6E552AFD80215F52DA1ED +5EB65876FB24C0DED82EC96814C0F8AFBC1DB375051BDABAE230A873DF8B5B55E6C006E6F7B6 +334287820BA8F20D65B01155C9032D6393EA04D967E4106EE05423610BE003033E86CC7F177D +F3E49DC911D5CAD22495E430EE44D9FA74960CE44FF6867327DD3985C0F7F456B049BBE721F0 +7A2EB9149A44F06086FF1391A6E2BD4A5278FF89BEED802BAB6F81A8D4C25F17597BEAFB760A +318EA610B5F145274A2B3AA611858529712D404991EA274F2270452DA3B68D89169943BA7686 +E3019263133290796975CB035B2E6169B8621E7136990AB699D1C89FA0E94551191523FD1A69 +CDA50CF8ADED596F56DFA218CCCC84ACDA3226A0451E87FF0E44FE54F52B37A59220FB135473 +A469EA525805DE37D223C18319139185B97FC2EA83356EF7799081D1E2A97D89F977DE14589C +A8446CD692FDF2419459618475C952F389DB09C0749798AF8397AC3E11D4E7302E39AC34CA03 +DF273851301A1AE9B226E84FE2E0B65131299516BD64AA90EFE39F280591AF10C90B652AE14E +80CC1201B4109629558E83B83483D4DD57E0857AE0DFCD5A64B5CC36C1F28DDC752AC1D1BCFD +E5F5B1511A3E6B30D835186F38E35215A328D396DB7C634AAD187428B23F68D013BD6B8AC2D7 +FF93A1D399C360245641C2200021B9F8DD69304F74616EA2DDA34144FC11EC42B09AF21134C2 +C7FBF1534ABD44083021D4BA466E732A1FAB596E9F6AFD4874CEEFAD852697601AD8F15AA5D5 +9E20C11E25B8FCF60D6138D6E72A8F4CF154C97BF5990595C479BA3A2F96DD65396D54A42B20 +9CA55D3EB21CBE6C44F0780D2C43FCDDDDEA5A65EE645AACBEF909A155B55247A4DBD5D59E7D +0FC8C20A219344312A1D86CB69662D2C7CF928F6D817BA34FF554890AEF5AFE8B01DB6537B97 +25B88CFF02DB92E787B593A6491F930EDA75143528147E0341763F3F8B9794A0DEE7A4889530 +C765A8E665F58C93340C99A098250EF663F3158EA3E6DCCFEF4212909A5C5C23E2D61189D23D +69E8BC366C947019C2305017AFC9D36C6E8C560EFAA4093C944A4457698C5F5DE74374FFDD24 +CB5E6D24A04B531793BE802D5AE400E2B068A62252C678F4547FBA7C677E634CC76A0373124D +65CE68DD5D085841569A2F8E9C9B71ED1B3794E6F899D6F3CF7B6EEE7F33A285ABC190B8F174 +54B084C8A83A7C64CB899733EBE3EA8D710BF15470C8699B265B4D3714870776F16AE4A5402C +0A40070A16114298A51C1646F6CDE88114626AF0E4CAE0FF7384D863891521EAC6F31A5CD295 +CC0C0E7D59DE52DE04BF5238156F4CE33CD4897CC482AE5AD1826628529CE5A6A5E6A55ACA0B +20B657CDF5E57C5A73F96F93622C6CF500BCD7E6922BC3CA96BBA05FEA0B0FF7DDCAC109BE83 +FA8934851E9BE9BD3109192202EAB1C77B0C86D1FF97E3B8732FDBB9EECD2A547E3A1CC4402D +8F1D213C98890AFB12CE908EA3CEC9D2E7B5BCE47C25C32EF337C45F3EE522F5CC76D1505DED +96156F80BF6C8E2CF5C3F28898C2F7CEDCAD10F6DC5C45FF4979906B2FD4DB0D9435BD85FF5B +78E78E441D140AB53DB156F4C6402F716ED7AB7C5617AE1D1A22BFA5BBC89DDDCF9F14FEB699 +D206E1345B793185D2907BABE65547A9A17F8B0CE718D98DB6039357616CC44BE309EC11368A +C4D965927773CDAF50ED2D48E692B2A3B31521BAD488BF684F01E3506733B27EDDBB5D0D6D3D +8E65A5E1BC745E1EEC0547984018419179B38D42E3099794341D97885F230300EC6FA06B18C1 +7A1FA77DC186886492D150DF1440DB4EFAE287F2F2A4ECBCF0683EEDEA3F78B1B68FC1911CBF +2625185F73C141DBC9674E7AFFFF580B4A0296073F5B6505E4D63A4A736BC3B794809E801860 +CE4691A57EB02C0947EFC1DE4BED3962346769C613F240DB1574368B28F186B608BB99DA33AE +1B3C266E49D58AE67A462FCF2E6BFED1AC1FFCC24C9752EA793F60923F7579D2B8EF9860975E +6A80D5F9637D594A9567F8A2D1E15CCB1EDD3D502972C969EE42F57D74500D30170904A463D6 +59AF0D96EE6FED9F4C7FA0C7800EBB2ED3B78C3F095D18068F96573A033EF343C07BCA94DD98 +97AF2830B6A40086C1E8945B26F8BAEDB8C0AF3371060CE18CF8D8693738C15C2EB95A4F7F7A +37E82ABFF54CE8D19524E45379C92BEE3AE74131231FB175D96FBE54274A88135FC74D9F429B +9794912A8D157C0CE5045F3B16A4BC78811F1007C96EAEF9BBD706533A7AD80411E4A3ADB0BD +BC27A94632D00A5A561DF53E0C63A0C17D9DF09ADA247B420B524135E9E7C346998993F716F4 +1A8601099FB2CBAD6F760245A1B52E1F8C45FB5379021A64EE55E368F1E2D704BC4176D8E1A1 +F034A631AA520C6039639207386175C7913AF1AEEB95F1C6F995387A454C25E6F78AF60EC1D3 +4E0FA0BB4BB8B9417B5D8C59D31BBD89CEBD28C490D8436128EAA23C69816AF90A4622B82A03 +0514AA5EB2865F5FC5247DBFEF5BE641DA1448376DE08544B9902118A5259175D547A8793265 +10C732848D4E5D6D4569021CFFAF8BE720FC9B73DF8A0B8BE87EB08C3A2CDEB28D6ACC63694C +A9CBD263838F26A9F538D85FA00CB23F053094977019FF9A935D627668BF9E94EAC831D09DA1 +7627B4A4F4B6A790273EC536A5D8F66F478BBACAF17382F7A3E9257E554ED267EB03CD70B803 +59AE7667C44C0C9411A2EE41A9B0A6A12418A37E6E814069DF72D0534D6BD5631F158A3FED39 +FE33E4D97F5B8D0133F8D67B92C72466CB2B82DEF502A67FA8A37EA4473056DA8B1A1C589960 +957B0E1FE2316DABBB150F8F8BE2C4DA45E4014CDBB22DF11A9FA8B85278AC7F0A6F75996A7E +BA0E524EDAAB6CA54EC3B3DADE7C9EDD4AC5EBA9087CFD542CDCCDB9410202EA1C5DFD4ABFC5 +C0E1C0EC82246A93F453389BDEF4FE8A94F9AA5B492AE04400C73F55F67AD0B02F092D87E10B +C9F14AD36C3E8CC6519BD9AC63F795A51F61A9877CC56E8D87E1078A1562332869EC5D52BC95 +BE2923CE6E9AB07C7B9CE0382A5AFC60A44693AA58CFD33BAA0415F5C8AFC239125AF4452C3A +0010FEF23C70DF02D5D1FEE6D23FCBD6B59137EF773E877DF1E42ECCD49373383B5355692965 +0002A51973C5CB12EB6696F8D09086C7A0818B7372D1D17FEA577704DF4EAA121E0271B9459D +57E1FD89A3DB3D4C75C62079C3CADF03EF97D04C5A4CC5E608EF1599AFB139AD7FE73FDA41B8 +1DC0CD9FBF93834F9BA7FB1238E895E9DA72F1BBB8FF581C45A14A39981170D15D4E04022A9A +A5A2AEF9F6D38D68DF4BFF98A371296A4E9EBDD2FEB5BB616BDE6C9A4647901613239B815DED +225E3408799FA2F73D7BE239CF11494C456DCDB4D618D21D19D81879BFACB55EF117FDFDD0D5 +F66BC97FBD7C6AEFFC84D196359698E9F36512D6CC42775D1ADABF6C99B4F4A232579106D278 +01F76A71F0770168E40A85403AF26BE14BA533EC0551C3B18EA8EE97C57F9FAEB4192419978E +E50242AD61347104FAB8F4260F518922AE10276C55FD46EA3D4F6471207910D77C8DB13E3911 +24B50453B60FBB4E4F15855FA03AC4C3A5E0F6CDB7995B1118BC4C9BD2F869682BFB9BE20D91 +7CF997D4C2000ABD5E11E2DBD79C9C8B7685A17943A2DE2AC4CC60A50CAFB37BAF863AA8B835 +0D7DBB1B52C2D3652745CE06B1193D2785073F5C668C4A117D268D839D41E497165A50D08C32 +92FBD174411692A3B744DA54986D1EF767D6BEA6A5F437E5FB61F7581C72FA8DF1F51909443B +E412C321C9E1FD626B345B705DC4A8017EB0D8CB61CFE5F3F80F796BBA6FC7502BB925A33915 +953141C4444698A18663EEB95E492F20542EEF84B047AC52A439BC794CCD488EE9B25BC467ED +09A418256BC0C14A808F007231FBF97EFC1881425DDB64FD6C170DEBD330257427C9D8B53DBD +E875AEC06196CB8F0D33BF10B681605A02E750FEADB3196BB3EC2C251E5F549C2FB6C91FB32C +1BBA3C9AF6CE30CB6B71CC2BA681231B1B521619B863ADDDA93FBAE29F8C7A439415D22BB35F +59608609CD13D22612CBC6AEB6601B37A6C9F09EB1EB8F60F12134956E456DB374FDD7A93302 +DC2FA405641D09FE7C28314B08E4FC9DE9294B2CAACB8F8673647EA32571BD33996045E3A3A6 +EBD1315C3C0C91FCE65DBBA1D1DC730BFBF02A1D5B16C74A8E5841450A24FB0D87108469267C +D21AEA77CDD8B317629BE24DCA7FBAABD757ACF62F5733CDE3C4F6D138ACEE93DE18CB485C91 +78214351FA3F0A44ED41A3F7DE68816B7FEF6C2869AF4F677F3F358533AFB7D4F090C65F0358 +BB63E52D2C4878D2EA0620D1FDDCE9B8BC22E99BCB711DE2D4086CC2950ED2FC50508E3AA0C1 +5B109A3221CAA9CBD6BE368BC6B7A7033656D9FFC85F729D4BFF1C18B00E78B5EB5C9CF18190 +6885C45E315B2ABA41D3CDF32F0CF301DD4EB4BF9B28C0A4D429FC84AA97633A6BBA6AB0F43F +61D0F6FA9A35256EF7BCD8FB934FA1C035A8AE3B600920B608EBB40850E4C7E3564572675CCC +7002CC2029BB963D87385C2AAEDD472A224F92187298652BA268336DF3BC28B33441C1A8985B +FE71EB30E33EE83F738123D76F94308A1A2F2F549D40B7FF6D97ED87B1989DC12AAD21BA8BC4 +2B2C361C50E44B74EC9DB17061DB171B932C910397D42C1D6A305299545952FF8AB117BFF8E2 +BC2E52E7FFDF6CB64D61AEF2E79481CE9A1915B207C58C4DDA3D71172CD99883A27078693831 +A07AC70C67E1EECC1DD5B3DBD0F7B445A167E77F54ECD3F88A4622771C55C53C9CB58631B603 +74FC4E6FF1FF4A26DABBC2AE562A124333C2822E4B52598CF5B4D5292DF4B06800D9689C04EC +D895D17847D93FAA68B508E524B39321AFF9E749343638ACAB6CC92AF4B447B87C3798277B3E +833419888CDA9AEEB978FFBDDA27B6628FFF08A55FC41F646741D092148A2E149CB295F283B9 +C3A6EE040AECF8A895DDE8DD46908FF65A57F7CABE8DD42FBD82206E77CC64ABA562E6D21726 +A63F5A75C4F7FCE6A8BCD6523BC18679CF3730BCF4F1ECF3CD00D8BF63AF271164211A34E3BE +B928ABE1A06DEF8B2DE826C893604C5F375C7C254C4A2A797FC1EF11B38CE154A5B337C453A3 +07E501929D361A66AA0EC59243A64F8CDC31F57EC829093184386859FE4B6792265A6B32D03C +F1C81E583ADDC7BADAC25C98FD44A3796E33E53E9B2019D0D8C6BA3685019E67D931B5A817B2 +CE47A88BE668BD45DAC05199D05B5F02DE05455BF2CDD48F2B93B50EDEA9A5E0C871F8AC1665 +FEDCD0BAB330EE628E3DF4514D679AA059AB3C1DA74E2590354028FACC543CFDBBA7F90010A2 +AA33B7329FAAA0DF1C555E03B71F153A5CAE8A5F9738BC5C53DA38544CC23C785088062E05E3 +896956986B6210D343068B5106361486B7545B0547CA1D18B19C7B073C1D5598D5C19A52E47B +945A369294E30730405D41C2CBDEE5BD4168485B7DB8A8D7F3E1C56A0C924438354CC6B69289 +E93437CE4792385D35F705BC2A9CD4DFE0EA1BC88E523099993B5718F851FF9FF10CFE04F29C +A23BECCE71AB67639EBC8E9AE584A9127874891089EA7FBCD800EEF2627BAF6713AC74DC153E +E0AEA7FE4E03637B459D3ADB17A6150680EF84597F9E3564D86AFC09303A26A7934EC200F635 +DC09F26DB9F7DC4785E9818A96AF2AC20D0A7D8EE5CBB80AB303791397CD00FD000CE43D41E0 +39F1FC0A9B6DA7194CE33244946F43E83836A5E85FD65A945C3D5050786573D179F115052F03 +24273243ADCE6057DCBD605EF1CACEBF7299500D31081A5085DEEB3A875061DC94A08DF3E192 +15C207CEC82EA5B01EA53E14631B092DC3415AC78568A5099869AD04218758F11D56265232C1 +2618F9AE589F32A5773C8B38EAC7F7370BF1FE9180AA3F2FE79205CCF69ABFF3536B0138C173 +2A5446FDF7604419D883F38EF4131EAD4E518D822EA26243F46949ED42C6E4A060889E1979B2 +6AB2BC90469306C9BD7EFBD72F9C9A6F801760D467B766FFA50AE98E5F3EA07EB0CC652E3A1D +12E61303E71E99ACEF315932D7911704843D6396F4A88FBF00C223586C5259D6B400B18F19F6 +E87978C4908A372193FC45FCAC92EFC1494640BC70897D0A05ADA21CCBB28DD89EAACA4B99DB +D829A6B50C297D5A40E7DDCBE6AF3352AF434FF34A27DF727C2D5539CEB8C0AFA6C18C7F507F +5D8E4F407C6D6C8892B9AE0AE8B184910A98F2950CF5594D1C42CF604808B758DEDE97A1DDE5 +C4B54109A1B5D3696114CCDDA196A43EA25E34BA7635791A0E5394506DFE706DB5ADE9F91C08 +CD45A5C6DAF40D12C0D6DDD6E83F1A7C7C90D7B2B9E94D38A677DEBFE6C789BAEDF2CF821C89 +B2E992A8BC3EBA57C1B4EAC247BD9D5A24697B89D852E772C82A4F363FCC3C18D212BA36958B +A07F7656A6C5D157C62C50A8F13EF8389670659A9A58342DCE27F00E3CE58375113402DEDAE8 +EA6688550C0AB39BFD238A08C135246E63EC1A8CD62DBE0982CF431FF500009543698C650ADC +ECAE3E2BFE123185A2B953E1AACC48F7D15CE3F849F1F8FD6B781C00587A9D75E218AFAD1245 +64DF3026F455F701A66D0DD5B7613A0329A02E6F467261CBF14E828D323882FB9039CF2E52A2 +2503466E9254E08DD64B930909CE36A7FFB12F2C8EA3511F8FC928B1C78377FAEF16B6926C3B +535A49FBB28AEE24F1B811AF40E41B406B2FDA63F8BD2E486DBECC9430A60E4FB834DC44098E +C39899CD93B0473883EF9864EEDD71752428EDD2955F01879163722B29132232D5C0278540B6 +2C2A8EFE5F7C0F9A83E70A24906F2B090B77929B36827730BD362248254FBB37558C0585A097 +B0488D05BAD1E491C01211B9BBC1E23910153A31E56B5FBFC3BB6352CD62EAAD3413C9D80925 +C48046D0FD4B9D321FD5F3D59D1A9AB0916056A0B4AE0EDD9E0458C8EB9DE4C5B20C68A474D3 +7D13500183E153A45A7C26A675B6FBD0490C688ED1E26466B19502ECCCE7F89199BF4F71E1F6 +21D2362DE9AF2DD0D882A0391103334D5DFA079976BB3E7070C102852061BE11A664F9B66037 +64B52D02B917E584DC7C1DA2F71D02B18F758AB8605C40856282038ED4C3A9BFCDCC5DCA960E +98B6A075842AE3B880DF242AAB37C135387AFD43E2180BBDB40553037845D841B664F2392C3D +C5CCE32942F59807AE4868012441E36C7DF403B917ADB6156CD9A2EEC9994630CA34E2DC9D44 +61F520B26A2F525CBA09EE77C492EFDFC2F90DE311F8776BB3B41D31A64BE2DAB07A3F4BB94E +06AEF96A09E6C26DDFFB509DDCF975E226A27D2BD8EAFD926EE7FC6C5EC1AF79FDC7FEA8577B +16D2C823108DB41246EB8FF5AE97EB9E0255C02313178DE8E31956973C4AED0C8A6F73E07A4E +1189DA7C73E44BFB1AB8298F0FE364967426367E6913D432D42E817B796D86E67F0CBA36EAE9 +4F46121BE50CBCF6B78D737E947B97A2157B1E9A16DA891583A7557372D87FE44AB921D65307 +04C7C3A1950CE219CFAE4676FA3AF71A7163B32A62A25A0ADCD31F8EDE8ED4EE5623E4ED818B +91C537E23C32C39B3374690033ACE0BB43469400B81EC896CE9D27D1897213BA641AFB6DD9A2 +FA388FC6392C6B25AD23E46DACF41EBB22F08D410EF85FE9193AACBF49FEDB1AB78568BC2312 +427BF0D49595CD4DBC992F094F4D58CBDC77209FE1F015DA253BC1AB4D1F4C65703BD4898CF9 +568A6D8E16A9AA574002BB80B1086EB70C88E22549C240CDC638E200397D3DE5A5D36B019356 +2CDE2A247D1C186D0C39A92B624237F6480F51B9B3EEBBD3A868DF26EF277046DB68447B71A2 +1B4C1B5F1709D59E9EA79D388587789B52CB6E92439AEDE78B1D844E434BE0D2EDD0A83BACB6 +035540003C95D3EF6153C2465DABC0A264F1BA9720CBD55A3DA4E0CB6CA301AB61E114396098 +038188EDDAAE38A56B518ADAB6AEA5C4EA557E5AC60425A4F256AFBC428A361E0363123402FE +CBADC54E9540F4BD76D694979AE65296D896ED8DBDFAA1E2E75D091C1CB7AC7E65D5A5D8C526 +60147D5915A831CBA6FF3D541CA880EB948AD28C9B43719495F504A42112AB86E63DEE8E96DF +08656C3FCC5581F8891D1E5772C886FFC7B728E67929754248FDA1C9C3C804A23B0F5FB4C358 +0FB118C15479D9261167B2068462C8B7F3B5E3645CA312A6CD186343B6A36FCAD472FECA453C +AE76815493048C8DA86A11EA401632AD04A6AFCE6D974FC095DDDA31B9BB29F15DD6EFAD3975 +1F944092E812E121168D58BB1748D85A68A8086FE0457E81B9D54B5A0401B91F1C15294A58CE +D1C41BEAC0EC501C3AAF67EECB23FA527C30E329AABAD1843A437DD238AB25128ECAA21E7AEE +7073DD3FEF1B1C8DB582A51857BA9D12E848616B84583BCC18D903ABA5452E05B9E24ED205F0 +81CD98426934D9FDF8EB973D353EFCCEAB03B23FAD49A36AB8B5E1D3893427ACBD301F05815D +1A24088CCD24A818C85D1C0095FE051751FE57196DF73A6D514C2A06911A7FB36E84120D9029 +BF51F2830F1C0D315CF9F36C5396AF9392981B2AD055F8F45F6E2430737AF7FB825CB9D8C68B +7B97D745323F71F29F6BA88E682465AA73643BB13B8EAA2D37D8131764E22934CF3A4AAA3836 +3A74B31197A6E2FBBDFD16BC47CF55956B92898D910A890FCC38F4E61CAB3714446F8C7DCC4E +67C338C10FD9614982B39C0816B5B1B312D592D5A01B53A78BAC0E13B2735DEC520195226B87 +968DC2A9F678B38A551CEC94D49DEB8AEF4B59C5EA85C9985544A1B4CFC616C9DC525B9317B2 +F62E880F663EA69BF0988B6D7A6843CDFCD8A99EC4A18B2F77561C0738BB020784CCF4AF7118 +C55D492E5DF7BBF3C305C511FD2868542ECABE52D6677536BD5A9CF7B2178A77A4792F69C212 +EBD41C24671BDC716555A5330E9DAA9518FC9D3B2B5DF9D0A0261967C769FD73B9354FF2CA16 +48ACE02D235AEF8FD73F2932BBFC5A55A7288645ED260FCD3DE430C79B4ACDA1A28EEFFCB10B +E29D89D642CA27516C7EB8EED18F5856ED69C30B93A632AD4E555182A82407E86CAB287DE411 +CBB61AF53B48BA3467D37A0620AF7117CD294271190293C1E7CDA10D25806FB19A90E81F6ED9 +A88930EC57BB08E556BBEACF44207F7E1A203481EEEE721A709FCC6629FD35C579F3E8B3FFF4 +3C908F1898014F9661A9478FB59C7C8AEFC488A0CD5F8775455AC4ACC56AC8B0D9D34735651E +7BFED3EBB65B94D6699F616DAEFB3D6351192D4A570AE63FDB66DBA25B3219D0BE918D653BE8 +8D33AAF67DADC48341849E0B16300BEB96CE04B7FFBB8A539A5A78BF4C85CFFEAC8A69F95F45 +F96C5E200377CE5B9E96ED1567FD632A2D098E1BE688DB589182D944A8E1FC7E8A411562BBFC +9A0A661075CB5DDABE13B4A31E63DD2BCAD90B2E94F1244BD0D884A94EB5C0FBE75A2D92E205 +C34BFC195D675A2A93A631D1BF3F805FC2AC6864B8876C3CF5CD53A489052E03DD5E46E00721 +7F10928DD34D1F2AF0BE3553897C804991E35D0D978DB8A238B50A954CC08EB10C670FB15F35 +7091777A0F061B38607A1EA7613FD0DDEB7E556C64D2F5A6F86FFB1F85ED705151BB92584509 +C88D01E42DCF474190CA1F8122A935596C5F39F7C1E553AC9F4C659CAE8FC4AD69C06E3022B9 +302169CACB10A5316534448B6E8AE258CDE13C1634BB5533B2BAAA7D27D30324B368314E9BE4 +F6CAC54B95EC6E3735C4EA2715FF574F7079861C6F61CBAE2B5E3AB25496C62433CA18756D41 +A5513E700BB726E7CE78B66DB891BE254E8749226376804F02DE8B07137FE39A8598C471BCEE +961D70A5D6C4333B52E6C9F810C6B6F28AE03C54882A915B38545A42A9FF33A45E61C1923BB0 +E21DB1EC92F934273727DBB574B5925415E56CF838CAFCFFF473AA0382CE0D612A5EE0BAE508 +D22A88205ACC79C2FE5F5C42B1E50BFA2AACECF0BAE94CC532C64308902C3FBA46E1D6670F3C +510C3788459F0C05868298F5D45DA4AB5D955660095CB0228A39EAE961EBE7D16C1644694990 +ACB90DEF51E4EE62A2EDE668AB8FB9FA04B0159579B2B9FA84E72D5B71A3157B9AA0591A653F +21E480CC285693CF77038F85EB25FF5CC3130DDF268E7E3A8CCB67A004DA1F49378CACF6B570 +CD328EF0FBCE2CC2AB20ADD2DB136C8DE4D2644B1A60538BD70B4F01B2B44D7EBFFB0B28B387 +07604F344FFFBA2F081A242642F030CD3388B9040D76399EDFB0EED87C96320722B82D9EDF45 +86E64F4C61FEC73AE26BB9B59C413C1603741A37F963057DB989892C2F23E2D9DB14E449D972 +44CDDF5B1BE8A7877AC5C876CC9058F0B7B90836C749E92EF8A19E7E091D1228CBBE15DD7FC3 +2527739290D967B8519A623A1B17349E226FC5584B9F084408579180E2EA760A32FD5F53B5A6 +06935AA3A6B5E412A0A767B2E278542433C5E1EFD1CE0CAB150844EB0F5112DFC09812155DAC +E2571A686C91EDEF1253539003DC3286EEE4A5FB1407FB537B3B65E571B0FC454E6C62CBCA5E +951B3C312EE48BA72015934063F213842969EA3EA3576C49369F828C49D5A59A51D2F6F1B410 +01C1C0D3CF8442329675AAB6271CDC42599ACE74B48B60DAAC6B9ECC05B5F04A4484F727F331 +846B545AE2D0B6200A185F6FA29C8A6B7CB97916A47D4215749E892D6FE8F53529ACF82C4129 +8F895BB6F77E2E39BCBEF8DB6582526CAE8C669F5BD8CBA04D5510F164C2BCF711FD7F32C25D +AD5DA9F7BA88676DDA7A42B488E8A32A0C750F73208A2DCA2A734CAF158BF47A4EA62297E8BB +863F8A551DFB632D2A787CB1D08680D1810B8E5C4AC727CA0EE25EB49AA5B63C250D373AB7E2 +8ADCA7A92DC3F9785A1D5D585EE5BF6C9DFC8D2114DF5F03991F3E2F8C64FEF3B62AF8B12AFC +EBBADC979580CEF32C396BDB880B9680001A10551BFE25E8D48F8EC7CC5C0005366D5B44CD5A +84038CCAD7A58257A876FA26726DB9503876E5CDFCE12128CB5B5F627D0244C7807DBA60DAFA +1720076130EA2A2EF4D7275C8D7E2A9EFCBC433BFF61CE7FDCE88D5C2C2E1353F9486028856C +A7008AF426B41AB0AEBA00AEB5023BA80AF44C904ACE2A434FE7D79B0097013EDB00E9D90B7F +256D18D9E3284DCD568CA561375BA0FFEA8F698C693578C537BA765D1F9697B1037B26CBA3C1 +8FD84A638F76BB5CFAFF1EC1BF9F55369513E55B274E7E131C10F488800DAE3BF672D51BB05F +CF0F1B60C181800A5B62E07546BF517156831EE569B042778240D733FA2ED1C78EDC9878A625 +3E8323347C2952F440BC614981CE99E5724961C4DED03EB51B58FED5B9C191D83EFF0EA672C3 +D53974D62F8E67DBA097E7EFD7B4DC07B8EB52AF762A35F7643ECD967D4C1DBCB37008DB6C8D +25D6473570850560ED6BD60BB2DA16906044CA04F9BCD29EF36D90D132F604A21BBFB3F3C1AC +A9F90C3F0D50BFA293301533D7D0C7BCC03AB1D9D7916599DD6726DAE47A8AA5FBD19FB0CDDE +E1FB90EAEEDF3E79632D9956F2F7FEEFE9823EB7044D71D57ECCD2522F1349D649C16321D23B +72CC86BA8536769B61960683F8BF78700727910915A22B241408C463D4ACB0ADEE97F2F4DBFA +A425C4A389AFB22779EFB298271611D2D1D6BCE24620223CD03D943960432BAF29C6F890995B +95E421EE14460E491071D70E1D965977962262AD793B582BEFBE6EA4BA15F4CDB22F45FF62A9 +E66FD10FC97439E5AA06D17780B0B12CDF92B939D3E973F3A61F457974CCF97025329CD410B6 +753A3686670C4EC10B7038CCE6A1B92D32B6FC62F170937ADB593704EF58624E39BE3FAFB1DF +B0D3109F7B8818140FDD40FC7C14E633C26771E23017FD1129FAB083A4E580E84B0CDCEB9E34 +BC27704CE9CD23274C82FD8363CDD91C9298DCE054F9604ABF295AD0B0734A36B6492DB563D2 +C26A0C0E9274B9F7E22131E35D58BF7191A8F79B7B1B6A3F18A603881734B1B109A22C73237A +D20DBC8FAD4D1199B6FEC8CF00709FCE3D06884A712216A564383576D5383E990A5EFE712B02 +C56D4B940165016B12308AEDFE518650A49CE6E73A2840162F9B86081B2B092724FC0F1261D1 +39B849E829D5EA5B3786279070B6C79A188551CC6B02A4DB94022911DCF74BC1B43666BCA510 +7695D03914C83BB58A5919DACEFDD51403F95EE8354B307E5A79BD25FADDAAB3DCFB82C1672C +1C6E8350B83F8B677601511370B6760F76D085F4DDDC949D0739BE20ECECCFC85E3C3C922422 +EF7FA2D6E19358B44AE59C6AD155D7DD6D80DB4CEE18E54656A9672293E79BB0AF516291CAD0 +D5469DA5A473B457E191314BD8CDD174276F0FEFE43B18306744264DCD3669DC6C3392E7E224 +13ED492CA92844B858BADD4AE93BA493CB9813CF596E9AF1084EDB120512F6CFA332787DA180 +1D8889E0F49A97701264B779787F3C37F192F41559F653D4EC298078904F16507B9D090D9EEC +1B9390C78861F288D964BC6B73CF85EA4ED9C2FA4F01D4CBA4C71EB3EB95B162F210FAFFD8BF +D1F79EDA5C0AF99A37B56D550A5A92A49937F31C23B04EE90FCBB8469515DB89371175095846 +D737ADFCBE7505771F77845A7ACB214C0451487568E62270F4B5E8E05C903D32062A3896DCC5 +DC0D0BD912DDC5876695D8360540B15C57257783731C8D55EF5F5CD89C8FD4BF9A43D8294F3E +112DAF52BD9C893906CBDB83E14F4DC27FC9272864A53431E14C2D11D7FE722C45AF7279A737 +BFDAFB07E581CD9610F6ACA79781A7F525B6D0ECABFCA36DA75C274BE329578D36347A2BCE0D +1117B9A2902681FD9B69C2819A0E23BB398F1A65E0AC01235E8144776CB2614888C18D4CB000 +01D48F83A2C14320C2E74D43E9F3D3392AF18D3545052C5A00A3DC557A49C375657E5B611021 +2AB6070A3F81480DB50DEA42C03C7BA547001E696CA4BA91C61F59D4874FE147DE5AF34082BE +2B3099C249E7B14E3BB1EC2374527704787BD0FB1923C7DB03E38474B7910DED66DD318652E9 +B23AB730FD74328877ED03CD49143A58D911C42BABD6624DA6A1638827E2311701278F953B6E +E77D7BA6A82DCD6869C922FF0BE10FA28919E4A485CA2ACC9874A9E2A468F2706DBBFE7F9E54 +E92E75E482916522C837577BEE11EF2F1F1F7F662A03513BF815B9971BABEA220215321F0F66 +0007DD5BD4F943F388457F06F0A325B088AB74F24D6C9821D745EA530298AC018A679F8F36B8 +9C57BD74799BF278A9EB732D5BB45901855B4D08F13FA18D50B691AE1C2025E07C08B5C1D49E +90FD315886DAE2BC296A838AEC61942607C1EC30041D869444BB9BEA0C2E6D8AD001BC918E98 +370DE90E7169E8AF674819BE506932DB21C8A959440D4504B2C162B71457959B8B8FE0435AF2 +0F3E6ECE9861CD7B0222DDA66F834FC1BFAE779EEE04099CB4AFA22DE1D8687BCC6DF8B71087 +94ED6E6796FD8CC731037BAA8166A39AD811C2D3FFCBC24A61FF51F4A7F7E227BF2E295944E7 +B2667B60CF3FE8B378925D7064063659AF077EDB6B75412D53EC2D2D55D828A5FA1E5216DBDE +B59CF99895ABDFD34A6498F59EB69FBABF7E6E9C87D3BAFE739090B5910E205155D3740F871C +F19A82FB9048C20FD4A0AEA1F6D6DBC12C1B9A350208D7D43E0EA360E621B8C3F284535E1338 +824A3DBA50F0FE4869707718D9ECB32BC8070EA92D93549CA1C848261845B392C50020A8693E +D3CF433774973B0F9ACDF7EA9A67E55F0647FA07B7B6A0D0DCB39AB091CCB5226102F03411B8 +D6306A19463757094929861DA86EF7EE95E01B2EA50B536474360A84D2D2F57B544E8BCA4781 +D3D2C7DD92A1579100982B03A6C4728E7F6AD3CB659292F61B15D5E40CB753476A3B875C72EB +7F5CB6ED0D61263147396A45938C804421C445651CF915145FF03DFC2E86798D69EE29F5F5EE +A00152F89D44A24DA080D9AB34C986A23E96A012724703722672191E37CC138ED3E2D4ECD334 +D1A86E46B9B77ABD735F10B642268AB2FCAD57045D6EE84BDF9EFF464FFEC68E9E3DF1AC804A +73FCF99203C31A9373FBB22682284C65620B94174E98A231539A432232E50E1B854EFA1B3655 +5A683FA48CF7A9D2E67D165A5FAD4965423555A7E40CB0B44C2702006EBF980B6558946F4BFE +D2BAF8E340D802D4B0171F7EAB32F208689416547572ED08FCADB8BD3BB1056EE8F5D382802B +550C8FF117F19329D91C1451EC1B201EADF23CA23CCC465A732C64F02143F46CD970B096899F +6F86AC4CE3796B6A8D8AD401916688A7A7B16F304EE646A94886AF09F0EBB4728ADFA516A61E +9AAD39DFF938DD44568E34C56A33C7446BB3B60EEDAD65787A88FE55D27321850F1404FEAD33 +096E2C79B339FB4D54DDF7FBD46D78009220F0893E07ACD1B4EC25C5B61683ED3F15AC9F6D53 +87777A2714BB3F9FC027872FFD077A90B1D6F6EE6A76EFC25D97DE2192D5480916B350822908 +2AA9A4383D4F5F97C2A79FF0E80D4036428A8932483731D14D6D5F6B2E6E67196EBB1013A2A3 +B33EE55C8F7D9E05D623DEE89F8BFE1D3D52EA6774C35E7892D653627E36F4A37CDBA9704DA0 +63D55E3793AA25B043D665A265212BE2E8916C0AE60E0BA4D8C27CCFB03402CCF473C6F08452 +03C137035CBE5CC6DB95C7B622840CFF41233F648DFB970DEAD4B04CF1DEDCA7A4027DF486E7 +5569B64EE1A65A7CB419B16E788B74AE5C057EDEE39F5B4E82320D802E91BE6D24F4583A621A +269CB1AF11E9E3F7F4EBBDF77E557C4D28844FE70A38E2BFCDC60F646CC1FF1B313200D0881E +E5042BE0E1F8A73C64DF7CA36C1A6A4A0455E8B872E79E4B8DEEC707E3EB026BA79EE8C469DB +3475667E6B0EE3F8A0973A209CD08D0B909FDC40934DA16354D1F58867E399D607BBE4E932B0 +868FD0F8C2A278A5CAE375976645905B390301D528A75D4B7F9C3810DF01720D094AEDF2A58C +A391B3C1DEF9B7CF9B5BAB9EB40AC9CAF3BB7EAFE804407C2EBEDCAA96E258C48B2384124F6D +182B0EDA0F4F7211B5B5CCF2BCA277FB6D3191518ABB8C095F1BF3DC5769ECB91E6BDA67CFEA +98E68F5452E341580E9E990BAF771751A92CE9131E43349D0023D7C88F42F5F3CB67D05FCC20 +6B822B9E2BE8C0561FA774912EEF8E18B5F7B0164FAF03ACCD2EB408756262968565AD352CBA +F5BD9C14730001198EC578B99B0F52500C5DE733098F1B2F5B9AB72B3A697016DCB037658073 +02049F2ED6C935DC65F1EC69EAAFF042981A868B09A08B0D8E7F8CAE2AB42630FE245C5CEAFB +114DE33A18C7A3CE7DC59E9D79C2E2AD8E4D86D7980EE6A6FD98BC2F58AEE07162748BC9DCDE +35B2233A4BA6393DD986F1E8671B0902E6AD91AD5959592C48AF065D2E458E1F2AA4FE64FDA3 +316933AC779FC2ACB5810BD41EFBD4EDEEDC34B739392CF649E889BB7DA9202C818E10A41906 +5B51772772A0ABFEE6927D23EE549A93D3E7B48AA8D22A9B7BF542479F14D6404B2C2C1607A7 +26C61BAD6229F79044C90CDB41980F776E8479CC0A492909C5735A5BCD2E26CAB8DEE487A5CF +3D78B035E268339DD5DBA43CF6D3FBCE6C1680794BB3ADF05E0080B9F865D19D396A848414A7 +0AA1581A8AAB6761BE2F86914F02794A959BBFB23B2F96F1A174E6DC6FA008C5F633FD83988A +3951B04D6DC4B179B65F0BD2317039C075709B2171D69E0D01F635CF12F7A47E9FA2586BF443 +1723586F46A2C29A4892D2E1BBF3215C77E5B1C7FD3BB126EE6DF6887FF3B5143C0375BE0D45 +5C6CBDCA591AE0AA08A69F19F82AE32CF7AACA10781390777ADBC697E55735939E243B9E80DE +EEA1EB5507D79996FA49BF35857E01478CC25D830A0803BF7C7827082A396FD752181DB32B91 +0498FEEDD4D3BF8B34EA3F264BC95156F4EC22B2F8F8BE7558960414054253C07FFE59EFC50F +A20066C08F2E907B83F89C3875CB2C3CB755430D359A80C56F99D0040476CF6135749A2AFDC3 +B6BA0D244BE716503BCF60489EA30F23865B21531E244D2DE2DA6528BBEAC6FF5AB700F0F3D1 +344BE08D815AB540A0A502C917319C6512467C7D4909800AABC094F4E3A21914905EDB796E46 +E40C1BD6E47AD6E2109DDC9C4C758F3578582EA4B632323B04A182C8370314A6B82F9853909E +7A7E5E2BA0F43823E26B0211F73BA246556EAFA6030B82F192D54901D622DF14403E075F5D9B +0AFEDDCE7C52227E7CF5067BC827CF0E32B1A21B23D600D11F4D9ED39D8D40759EE9B3740FCC +0AF4E5F80A5B8B958D51FC5DAF2B1B993CBDADE8B8C53046C1C408585FF36315321946B62AE7 +49FDB1138C436E214867F51C6A221F2AA0DAD2F8EA5C5EB08C1E12BD2443422348FAD350862E +80BECE68FB8984398F95EA25AC4753A6135A3A97C986C147A3FB7B528634113371E25E52F754 +87391D027BEFF87DC6BE031DE0207D78138CD96E0024296F4A72F5C0AEA2502E6A63B245CB08 +AFF1E3AF2716CAA7E350B2E4BC2EDEDC32E4941AAA59B5C6D9EBB525343E9FBDBE359F28C2D1 +22B621517C7C2BD890E3E4E27041FC55DC22200203C73F5A29CD6F24C9CBB3E0AC53E63961C5 +5E907C0AF81F4EFDC34B9A783B935C607E46C8F9F09264275503849E4528A512F4C61AAD801C +35B1B52E89BD38FD530DA93DEF7841B702C7C1311ADB4D94A4EBC6ED84765E119AA24C49198F +892115F813DCD7ECBDC7427B2F649C051F915963F9765266EE9C2166C89F58B18B60B2B3066D +6157675A3962C513B6B4C63BC6F1DE65C66226D706BFB2C7D175A6D0887A2B2F7DE5FAECA561 +A0713E67E7C08467C6EB1673878AEC02223A2E5AB7CFEECAC0E81DBD5E7DC26B2DEAF0347B0D +4B23A8B95DF47A7DECCFC0DE2F627D669AF20AD761B6DFD1EAD7144993F935E82E87F1048E0A +368B7F3E73876CA1C47856D1B4446E89FB0FF219E1AF5857E435E9A9638F3F52AA94985115F2 +6C9643060D79DC3EE65EAD94962D9B0D0736D2FF160F2E2908881BC420EA953837F85811ECDD +5FD29BA4969F064B7F3234B792EA0A2664E4EAE3F6B905C86FC92A4562085614ED504756E90D +709D1261D9EC682D816AB1756841920A7C4A041F007A712E00E3F9216D8BAF17BA6F24EABF10 +C9FBBE1D455A10907355E926ADFA877A61292C6B32F93A2983817AA2E3573E14EC50109F4DE1 +2E87C568C953D9036452306AB4F732F5016879A5C447CF50AED67614898478569427B9D1F8A0 +104EF1B67ED9C196623334EB032C50562FE79F5DCC5ACB5ACC65F564B360F3163081AE000015 +0CEAC3B528ED8102132537643715C7270C168843285EECA61CA7ECF4220CA050747A770E4DE8 +5DAB279E55945EBDD7AEF04380354FC198FBD3DE62D86C6C2DEBD4E587081F21EC78BD8DA1AF +4535E342A1D799D17B93BA81566FC91D67AC3F4A90053441BD3E26E36B6B43436B8777261B54 +6F57E15EFB3E67660EF34F49AE28B740C2E34FBAA6037751C1CA57D7AE83C79D966BD87FECC3 +A0F6656BA8DD3C2C793C3A47716D53B205E1548C6B03AE8956F004464C293F3016DD8888329B +9E525131E1C64283E26BD10F9906C161629C74A307693EF222E67C7B383D1A1501CA94189054 +D49808A11A4B5DB88E1BFA8694E0D1F3E3B929CF266D8F028F72CE0D066658B9A654E2A5F34C +9A718FA819177EACA9985BC0D6942AE343464B494EEAA2F357FBF8A5298D361D43B35F88625A +965CED31E52EAA139A819CE82B7625AD138A738899ED1EEAD6892955A334042E14145FD2FCE2 +F749434B0C0CE1B270DD7E10038BCFF58309175426A6570D1C347FB255BA26D6BDE27B65F917 +65A09D2BDCE5B8A3E308523712FA34BE419056EECAD69AAFCE5618401B61BADE55FA2FA236F9 +EB494869331E8025E5A743B4FA10336DAA88F202B2B4DF5C1A0C8B0C8EC011BB0C61D7A36B0F +AB141A81F142A41DFE30B729048306A6602F7B27636E03058A41FEA312D270CEEA706194BEDE +E5254B67FA486F8F240AC53D33A3861F85E4266ED1E7EFCB23315BF317C505441D7AE588BD89 +FE60E2DF2755F6A4B11B8F32F54DBE78C77A6722A542E8679317CA1A3F8207AC8139E883F979 +AC6219F56860D4A548C6E9BE5F9BCA7D3CE1981C4EAA725E1D718F3C08911CF1AC37FB3D21DE +F8668881159B8BFF9C8A19EF81B48FF6A5F8AA32DE6C53CCDF23F05366C098A90256442ABE0F +E0C8BA6B14EB49D384F9B938CDBF2031899B6EB32101389DDABF5D3631227A1CC5D50727217A +FCFF087406FDFEFCF89F239B907A35160545F7B9E46F3D7870B066FF1728A441AA6D0D93CDCB +9074496D8F4788C621BE5208E94C7C245D2F90726F4DF6F9F282D9EF2B08BB5D7E0722308B3E +47DB69C9F04362C46F880CD46736974BBE399D51EE17F8FC39653B335B8742730FFE6565B593 +6B5CB16C4831A6FECE44018EA40A20CFE424CAAF3C1AF4AC3529A053A5D36B5CE0F0BFC9B2B8 +15FEDA34BA3623970BB881557E16264B379D26A04E3F1FD5DB2584F8910E44A645044B59022C +5DE3AE635B34C76F3D4858C3BF77DE03B3AD149C4C66739E91345096C7DBC9B3592C99200566 +0DD75982BE137DC1BE03C1BA3852A4542B244BC71E4F0DF340F6806EBF01A8465AADF52A7DCB +EAC40C5D0A55210CCFA0754FE3DD4CA43DE8BBFB47DFF8E37F89439DB16A7EA25FB14E20FE02 +1DF2300D68F120B36472E0F888B1FCEBDC337801B3576F496D58B46C3AB7CC79A845B56A1242 +79DCEF3D4F70818770C9E30C50C92F4598363547BE8121CA4087388C1E75D8524AAC17B193A0 +71F2E33A894D0754608B35FD75901325350E60410A6A8194D655B51FF9290F5A965FD1EA65E5 +1FFC4E4F85F3EECE7FD48A32B62C8ECE004BCF21251629D44E48CCC0C1EE05E5F8013D7EFE3D +CEC26254D39843FD1BAF5FE4E51F003B889E39ABADF71E73406D8FDB53F4C3B0255774E6D1A3 +170C982528AC7341489399E43CF862BB7C7E3FD951502E71CEEB6BC1DE22423FED015D9665BB +87A1DE991AC54F2CCC44FCD701861F25EBD97B9B4699C3388E9213BB855D8B2B488D808147BC +6662D13EABF1BD8E8E64641E0C8695A89E8FA04BEC5E4D82B4C517030747B7585778BCFA24FF +B962C2F8F3132DF365779A3F5CC428547F479B6459A671824598F4AF8ADEE8886650F61B008E +DDF5FCF68280A422CFDBA4F1647156F58ADB6D803A8202B1AFAC46A8A176CCEF7885586C0B06 +5081D9A075FF7E41E53F964D47C6731E5EA88E6FE1432605C93B1B492D1AC04542638D3751F3 +88BB23F8B3E96B406FE889762C8815AC2FA24FCE35A51E27C090C4672285F9E52115A0EDC56E +F9871D413D2A9BB1C28F0C628848D5A42824DCAD8F15A66D0F9DC8EE1703E679B7E7ED91CB43 +236F7635BB3F7F97595C7E688BFEF954254B928A1721717DAE82814A45AC395916711369712C +450AF99909411CFD5CF4D55D104420A8579A2A78B49F9A86435119A72B4F4C418AF97DBDA84A +3ECFAE7B741CC507ADDEB52445AC179CAEEC48AE6EFD1E8FE73A70CEADFFAEB928E5AF4C71C3 +E851B5D010DD17F69CF723BB218F293AAAB689FA714CB0F4583A03388EC5B72709818139B2AF +E90FF0387FCBE4274757CB87213E29C07E254E99BAECE82BB7AB9FA8802E21616E454FAFB8D4 +86E95CDBADCFC9C00D8C1E022A74E0D6F46AE41201A6E6A8A09DF4EEC2743FA5D64F2563D5BB +805637092816B8CA4554DFB8052F6AD8A4653AB81E1DBC9A971D506ACD2405641CC12A4F5E5E +72968F41E6C8E0C022DC54847D7EA5637160C80CEB33E91E0C6C8FF410C5BE423716E671BBD7 +7598F17BFC3B71AA45A4B4B89C697C5D32A76F09A433E7043BEA9EC78E9D120FB2450F25F113 +ECB45CCC8BA9BE5563EC54691CC11FEA2E3ED2BDFF21A1575B79D307806F6A252E0F82ABFB06 +328F9E02CD6986BB610C89AFE178BAE9512B541019ABAF0F61B18B37C71F8564762935DC729E +7E9B3B7FA3E5E7A5B6969848230D254B67D0044743E904CFE38FE56380B1A933A2AA47158A2B +33536070B7E7DAEBF60ED5D2B94F812ACD1B135C963CBF7AB87783CD269C1F49B51DAD346E9E +7F5C79D22020F251DB7C5F13E82B45428C27471E02F54ADC8FACA7B244B8A2203EC4A79E9B11 +BF9B1C78D05954567D64FC7D282E3278B5EB25D874C7BB7C7D54909D100250600F2CA7649B55 +69841A681D77FE7D3FAF7688A1EF77DD8FAEE8E02E6CA3A2086792050DF6B9D72757A4C88D7D +2273BD7F43C3FC0B5E5A7D764CD07660F4DE610C8F928CACF1D8549EC908E747E452CADB6065 +AFCA2735B2CE2E75F16E1268F2D22C4630C653BC70E24D1ECF3A3AF93F08FEE3291BB08849F9 +387D8A5E83CC8A213E6D21A17463958A356F83DEA2992645971080464A2E93CBCC2F8E17AC44 +4059E56434E1C82190CADD1C2B9F4A8C37F6022D698727E75B6489BB9F910840D15955FF59A4 +20273DC5F61D356E2EDA5D205A58E75B81D183B2694EC2837E7E96A31B9260199C71D4F6125A +0960508B61BB548FCA3D8CE016DBDFF9EB5DDE018458E9A2E37E66EA35F62377BC0677433BBA +62A6569F08762020B0AE7DFBB73FD1A00367E45238E4F379BF97F9F8A9550CEAE2E18C650020 +83A53B1C4BB221663BA738338B4868A8A2EA3C5C8156F1B0736D7D3D7EA8DF611798E5CB889F +6957B8085E10730C91A75327BAFD19DD829AEF42BF6FB5C8C1B20D1A0A18818E12133B366F56 +B066D7F7AAB6596931567520470A1AE7DDE2416CD7A3B305D4D295DD6D805BE74A809C938626 +01494688A39FB2B5CF6C9198EB723099CA38137A8A7AA033D943BD6C987EEB9682AD2ADDBC9C +7CEF9CB0571BFD480F1ABEFED5CA2206AF07EFF78F55A4799F86D3A4EF5B60D8A126440329B4 +B20A9E02789C58875816B34256BE42E521B84782B68D1432EC046F58E46F717E411DAD2E5D4D +B4F1241AEA343C9959763AEAE109A480F0920F20EAA32EFAC34C6F6F887661ADFD242FA05A59 +4059383D2140CF55EF6382EDA3CACE984D623756FEA5250B52BABACD1CA48FA40B463CB98F2F +97F2C4EC9CBF67A5D6440478134FACBC3E91B02BB85EC0BEFD7495DDBDAE5D33C40519402F13 +A3D1E72C2800D8FD1C74FC7B810B23A0BB783498C8A6278B09230FB0681DD7256EACA65ED14F +38EFF1481F402E4C139EF95DB0EB1FF914EE0BDCF64C82DF6B9D6A11F4D50C7BB20217D97467 +8FC1F874EF8BAB66F290884BAD145102E315A929197EA9A28CCF88144825F38502C82157DA1E +FBF40E7A9265B6B00F1D44A12E9EDD13191573193BD1C06606EFC4390580B6269B390335A905 +1DA52D6A1A6CCF79F94873EEBE6660DC2EBEC7B577FB0CA9FBF6D58760670350B67E84862671 +A614F20B9A467BA91F3C81B42AB50955BA72D1827B54AF1D91DF01060BC03718E3A6B6934137 +DE6748BFD0E827F522322D4EC87CAA126281DD2FB083BC821E416E5FC15AA54EE7D941CE6AE0 +E863F132D723E94336F787B71C5B5628A570638384B53E70C8894FA8013D49C46DDE800B5574 +EA1808AD61DF5797398075E0D76D049DE3079B8BEDF4F9457F379F9864C04110DB102D3DB0C2 +33D94EF00177057A6BCE716C9E22C75C43CBDA61BE14A10473E9388C686D3DA1F50B8E4C6BE6 +4AAF43A4DDF43D13EB1BDB790F3EBED441E8AE4FB3716ACEC1F8CC8901BDC8D6FC00B646A5B8 +541C844FC26C06DC68F94C53148E91EE663CCD865ECDCF5E6D68C0F82698AD4D91D962D5887E +165F31BF513436D0B3AC76BE50AF9C576DE1CCE9EFF4EB558BC7967B57B6C0489BB3865234B4 +440D4B3732340B9606BFDAD150DE6D34583695A41B833110B235BB31512CDCC32EAB95CABDE7 +628A6322CD3B68EC4228E7006B3103A4E4852CFD0388E334939F07ADB71D8C99A2E55D43777E +A1B296C5C22BE740186E0A2B51F80E136CFBC38249E41DC16DA43FB5F4C818B50562240B36B1 +B873244F033D0BEA70DD39C4CA9F752E13174079155C0950257B2D376A9E29997B8E24F023A3 +7AA98673905C9B25D8C22ACD555900403AF3219B35CFFDB4562452CEB40C56B8300A3144D8FF +CA288BCFE520D50FF6A58A69B1DA6A4CCD9E4CB67E0CFF81F6686E70C411A34A978ADDED5E57 +5CC360BE866199C19DE6BF8F469FF02BF0DE7F2EC3CD4C3CD3A40D316C88745E9CAA603B075C +68C060631C1F6CE0C73BA0DCEECC6DC223B9F3A341C2AC71F373CCBBA02EE91C6D838D9014C4 +2A66D4887029524F1AB1CB034FCAE5E0FDBE31ABA8709D4C1108F0B11F743F88DC0E9CB57228 +4752A949519A2D1F32279A45D4F6A39FB0E52D6C63E61945F66A4183457E3A4C90606E58CB20 +393DFD3DA89DAC1A24B254B6EA73592BFBFBE1AC5D6FC90C88C31408097ED545A41467BBA99E +3DF1F933B03277ADE2FB1B94C8389077446EE1DD8B73B457E077C9AC9A32326E4682B518D6F7 +8FAA59AD4A0040918BE71AF4A3841222DF243529AF9033FAEF30CA38456F91D150FA5DC1713C +6EB7D481B79B70A784C1B7F0D538005A23FA38D28A4485C4838679D7ADE9B3CD9418B0195E40 +9C760F61825EBFA38BD18B206DA33FAE0A275717EB2F667EA93A0DE2F038DA05AB405236682E +616265BF5D1B9704F3E12E3A0B1AA0EB03DA86F399B99FA276C17EAACBA70FAE534F3262D6BE +118C1712B9FD97E1AA9ABD23284D728D37EC1A1CE6A69315ECDD7CF90C82836D375671377EA1 +86BD87CCA4292C962638A521D7903076BDF6E1751E22A72AAF2E8BE7F075CE96A536DC0A934E +0728254C417FD73ED73FA28B5D77D7651EABA2435C34522FD22E419F48F7CA084EDE82DCCF69 +5436EEAD7034658FF364C9E916247643EA515DE87C8D0E16E6B13581A6951F6E5CE070FCA1C0 +EF05901E8A2232A3ABD671E278C77FBA2D99EED22E5F60F18D698F9138F88FFF86FFDFD3561E +9B17C69CEF12365C06E92B0390230EF5C819E09D3F4BC3AB8DDF41CE99F5DB6A011301F1365A +1BCA6BC0D5835568FEF36CA5654039F3BF00F73F2A735A5C519D876E1BD8ECA71B421D3529E7 +E5A011F995287AEFB99AE526E40E51425CD63F971955B3CB1958A265CCBEE7C9E6DE28BDB3BE +670B3DACD28999A1481659AE85BAC235AD4F389FEA7FCC35872B49F693D1E69700942604D5ED +5AD4273576299F977B0CF8D67C4F284DACF9A77DA5ED45E3103F4EDE9750A23D0C9B2C180CE5 +7191A6CB6D286BD12A04CD415B78812E8143EDB42067648619F656224039ABADD89020F462AA +E701CC5F49B7666A4B6233648DBCF2E8564939A552A34F4E588990FAC3ABFD525654112AF367 +62E2949FEA42A55A21F2525A8C15AFE669BAE31ECB7BD1D46A360697DE8B07AFFBA693E77B53 +B4972B80DC8556CB3EBF658406629B5111482EAE2FEB065138FA244A563F4766CCA825C94ECE +3F8CABAC49D59C9593F24BC89BCFBC608D3FFD5623FE83288F68C7DE92E84BB3D11F851D49FC +EC7453EEEFDF439C59732C3B54584BA23DD9580153624B3CB438F5A6F4A5345E6D2097B6E292 +3C3EE1AA831E55AB6CE7B46E3F696447D33D4F297598052B4459AF9B96757F2517F11D965B53 +9D7417F9D4B9FC92FFA4E8AC777BCAA6577ADE30B3347DE4D4A0EAB8D0678037789C916DC151 +18AB29300609C4C4EFF78572365A234AF57B89BAEF3D7355F3E7D9A20855E392474B053CE1BE +3F8D46AD131AE93EE75EDECE687714E3CFD7984695BE2CE44ADEC0F4BAF81E55982744BAA372 +7A2FF2261342E9EBB85D541B46BC50592BA090368B31AB3110CBFB073096F8B98E2D4A193B48 +DF4673FBFA654996E78E76F30D54C1DE8057A37AF3851D0EC398F5DBC1E234655DC6EA332590 +F079125B9D82D412A9F462D266FBD6A0C07FADDFDB1EFF3C5DFB123A884A705F996B9C9C6F7E +A8AC33C46B19A8A1692E84B1F1561EFDD1B65340118436E0961264E28B039DBBB025FB99114A +05D19264CC87740D78EB9F507923FDF488DA73D7A72AF28175CE559FF7BCA8E07D8EEE85C9A5 +839E87F107EA5399184C735C510213208CAD46D30EBCD854884E9883F0BC2D4334F9A26A6691 +8D5A5176749E2038DEE6276DF72695589485EF88185ADBFE37614903DF8B6D857859005A735A +9FDBC39F3E712739FC4F251A9B334583E567353793A6868E3545007818E39D81492DAD796E3D +58CBC82DE3976A4C2D476CFEC4F7A1E73E408DA6EFC79589C6AC784312E5C393272B1A4FC435 +8EBF753EA9E2D16FFAD598FE8AB52C7DD2DB5E3513A61C9C3BD9336A230EE86E7285404D760F +451BEA0D59C862115A44683139AF687D029A521F33698A29ED81A79906705FC20E6EFF1A42E6 +83F28D4C8A65BF87BC14142E6EA0DB14A9C4A72DA388E8FB03E09A3451B9C33E6117189D42EC +D4585C966B50718835AAEA885AF66C1A86D3F93F81BA3B829A08CBE741235715FC32FB251418 +590E19A42CD44AFBD7599E023C26941BDFD722F1B192255A9358BAB9EB59BDC13ED4B759C81A +6194A018B02B2188E163FA9D50B603D0B5F64DCDD8F5E8319C0719164DBC6B633AE8345A26AD +CA095CD7BBB1185E71072C2D9138695DD55C9081520F23452D4FB234A4A2934F5358F1D66CA8 +9032A9828FDD8B7BF706EB44E3DA9592C79FB4EC0DE571498C10531CED53C55EB2415A739CE4 +B235617754321395D877BA072FD66DF82210368F471DF3A7929654718C31827A3B8EE3B8C65F +E1B056BCD1C0F6FDF6FD995BEAFE4B6C3C58B181FC61BF9C49FC5EA900BF952EF924A78B0E1D +44B93368C215E733C62DC2B14CCB96F538EBDB1F014C55E8731F305E9DE5BFC433495B0E925F +615B315EC0739B71A70BBC30E09A85DB229BFDD1222AAFA5D78D17CD0C27CEDC20B4FEEC7562 +8F3BBD29CE3FAF25B3E7F32150B471B143181E104B3748BE55BDE9769CCBB012882ABEE02433 +1D268EDD26F9B5CF5BDB1200EED9D2444A71D7B7FB5C92CDB313F1FA9160BFB2FD7CB082E6BD +88CC5C098A7D6E9FC626D67EAF6755CD50A46E2A489A2293CB715E9F04D079EDB278059E6793 +F0DAFA5AAEEAD3B31FA2520067DD30DEAA505BF238554D62D005887C7A09DC4591BF360FC87A +0ECB7087428EB8B56616A1F5B5349D3C0A7AAB806A450CEC5EEAFAD32644FE997C07908752DB +1CA3A96D1C3A708E8CD56FC0C21E9951BA3E5087BC5FCE7A96D70F0F90973E3FCBF74E38B0FD +D665552FD58C6117B5FCD68098F116D44EF168B4169A048B5833C151B53BFC4F72753340AAEF +B570AC1456BA952F812E64CAE650DB86749EE8327F63C34D9E74BC8AEB85CB04188B02981801 +624D108B6755A755C98C9D275F85699DA502BAF7455E1EA7B54FD9C5257AA7DE882A604F5023 +F1F6B19299E7C772A26F793499B32D18F227774BC05B25D7C3AE7B1E2A504BFC33900092CD81 +87695CF3293142405755263E95C871A9EA894175DF60371FA7D5A137C7F31A68A0C12AE08ACE +6DF36A82E5BE2467724ECEB1DC8533259C2E4CDA3DD153C82EC657D0C3D6B9CE96616C23D921 +22A455805819E3642427A90FCDE30970A04F325F35BBE463AACC815DED5EAF660096EAB8417C +E8A098500F6FF063169430C9D67E8CE38FE9202E4B88A7B2BFC4EC797B07FEB64B4D4CFC1E60 +42957BA81D7C21AD4F21A279B043A1A6186C18D86DA0A07235DD694B633E8591A460B4CE2124 +86F108053A082A3D85487EAE9528FCF6A7848B6FB37AAF54D5AED507E208D0002351E4143974 +6EAEAE18D4EF99BB6D0883A1B8921FE11E33D76A0B6FDFF18A2706626796B952EE809FE14DB9 +C6F4FDAB5791305501F084C029DDDAFBE1C2CCCD22336A057BDE02954F3D8E9B47400DC6C4A3 +7E9AD0769C6ED555ADE4DD1745995303D79F1568E072A2AA4F7C26F6147F90BD644B1129A2A3 +48187F9101198FF98BBCE37F7BAB5FD90E265CAD0B4146729585F7072BC139F087D532A484DE +356239B54E5CA2FF0F6A3B66BD97FDE533529DABEABAA485710D38602A243F0AC6FD1A7652EB +48D4ADE925D8270BA95402AF131F1031E6B2CC54D0277730C2F911903452623B60DBE8947008 +6DDA3EC33466DD68C9DED90C706912306E4038E00067B6B91E710209AB1A08F2849689C40DED +822650102826E1165685E3EE5ACCB7B22553960BD3DE85FDD8F6702E863E8ED14C5368D15ED5 +0C20642B9943669D48D2DA7795EAA06E0A44F23318D0EB807D28C422A60390460100842D769C +88F813280062D1E39E16E45F675EEAF84F33556B67967878311C83E77F23386EC4A993F5887D +48ADE0DFCDB8BBFFAE22B5319EFB64C7B940EB68A54A65BD94BE4EC62B066D4D05872704C0F0 +3830F155B251BC787ED7DDD51C37F0D52F882FA15BEDBD18A1F3E4E311817299D94C32B6D776 +5D67F4E201C5175CE2824A7259A8891FB2C2823AD9768CD5A04D6BE1CAED75BA0EA3764D8725 +48FF3786E57CD5CADAEA18619FCAAF68B76CABAF000BC79F2826EA9CF49DCC8265457D27520A +A9E9A88A22CAB896C12425750246C46128A546C090B5C9BAE9B2A9205E7E6F3BA3944E2CD192 +F7CCEC362A6781CE1AABFB64BA796094865B89453278D5800C619DD0D0E35E8793C574A33D7C +CD6C039BCAC6BFDAF9D3A593E3E152958DA87F4F2F9DDDAC6A4A8D2043F92BA9FAF32591B986 +02F1B13587F0727866272419C78ACE3001A53F9FFCDBBC3FA12ECEFC28FBB37A44219E17B57B +A6A502388935D27DCDDD224DC4D53EE533E18A36D9E9D4CC25A7339C351129F1AAF2F63C852F +709A3C5E58BB1256FD5164CFFE1554B15F5B2986AA120B2A93DB8E78D230D6C432CFB2DA7C8A +10708324BA5A1100899E8A2647D62550C2B2D0850D0636F715A46C2C8F357017764DEF69431C +7549008D62DCC1403EA94C9B96CCE1E0EDBCD14AC1666D1000ACB64480F3D0AEC8191FD947B1 +D62CB369746F8F9F9E248F4367E60C3BC2C1CE505A5A0E2582ACB805FB684B639E984D18F45C +626B13791B456174FDA55159B928BF55E4FE05EDED2D83AD0409A43D13664F4C5C23E6D5C204 +5DDFA8775FF05E9E577A54B9A6483749D1465A4619B2EFECD9D4C5822AB2192BEB1315CEAA3A +4EB144B61CBAD36EA6FD03B76AFD635CCD900E8A0EF92D2F35CE223C0CB5AB595D7C5812F4C7 +DD835983BD79F187899A91246270DB36A8CC70E07EE3ED7DA84EABA5E73D220EC2ACF313868D +A9CA910B6D711BA186C40D66B2A78C1D7A3EFDC9BCEE383F6190BFCE35C22C8B51687E600FAD +52408A553A6690D6D84918095C3A681C4AE8069BE845AD4143D733664698B99389AEC024EE74 +854E098D70E0BA1FFA85737D31E372243CB9DC46FEB7E9EA18F43187722764687B962C789AFE +F0D4F5F90CD9AEF7DABDB8AD2FA21C0AE9DDF13F22CB2FFAE2BD117E88438E0B8D2DBCC5C6D3 +F73244DB6AC8045322CC1A363F8339F53370FA307CC431E7C91756C2282DD373AA8965E7FCED +9CD9A7305F97060AE8C43FC0BB52197157EECB796825A670EA5959B7315E71A9348FE01BA1F2 +E786A1C546D872FC97BECC46541E517A508766BE9308E62C4AFC21AF209E17A1DA85D969B8DF +EDC74B07A2B64272F54F00D454E6980563FED97DADAE75467109C5AAC2A4AFA98A0FBE011A1F +F9CDF1C53F5CC63D2C65B6FEC2E12BF42BC65EF0A69F9A04B50A9A73AF5F21DFC5BC20A95EE4 +7CF12474B2A80157C984E6ADEB275CAD0B41467295858EB16E1CA9FB10664CE74B45D52D6FD2 +4C714AB5DD8127FFD8500B149A8C8732DEF2C4FE464EEECA6B8D79B1736594A88473C02EFE80 +3BD328E6E1820F69C748C1833C753926272B7A89CF856A159E4AF5E45AC06C8B540CFEBA87A4 +8869CB02C96A2B5001902DC46C6BCA4A5490FA000AC3841C3AD62C8982A96608DF20FD71FE95 +A4025D0DAF6908229254016FBB6E9E7873A39419DCBC7372568ACA76381381AA2EF802FCC2A2 +1739B3F6D5702AC74BBBB6899E4A3B775DE8105AC6294E0059DE2B66FC1F181EE46CAC599848 +578AEE2DCCAF2F4A1C54A0411B352EA1485A6771945DAC4339E98D1153C4995A743E1927ADB0 +FC69E93BF1AABA5FEE60DE19B5756708D51371FE883C8A9FD21F2644E6C7FF7C360FB8721FD7 +24F72F3517CD8B0AC6CD95E015A94D814A9A97A556BC3B8C26B70C9DA49836BB7EAA0F4FFD92 +8722B664684DBFB6B87CD83EE1F6AAB258AB3E6E69EBF47AE0288E09619267D10F31C7AF5DC2 +58CECFC0949BFC756DD76316DB1DAEC2D093524EBCD3FF569AC28C4B871B6D14E5FCD6422DEA +7F8EC14E67942D154850C2CEFE6DC6E5DCC58C5FB34D8DB2F3C7E9F21791B9F2233400CBFEF8 +E988F445DE78860C2F3D18B1DE5D7029B01544F4A4232ABD7D04DBF009B3BE0C3AD9940A65AF +0DEDB4ACB2896CD9D578192D25DC620A9A8EFC3D5F0118B7CA90479A13DABC358F8B27AE31D2 +E3834BA7D981BB745D2031234360EF786F1DB8AA38CB3BDE919FDBCBDA06B54D692524E13F54 +55C1A09CFC4D384983143EAFB4722696F0945FF4297E61F9A9FC7005247915C596057B97792E +C79E0463A72A5A5394C32569A9F14F221EA7E606F10872C609D90971A09528377D3382C8678E +BC41A63861DCD04411F508B8EEB12BD8B862DD86550CB0F9E5D1DD7F5BD855893A2F847A17E7 +7C27641D2C9EC2F64C61A8A809A46FD3E343EB201ABAA638491C13F4BB697504037E3753966E +4B4023628A9E0DDCA764CAB365F3AF5E1B364D9C33145FF1FC0C777755BD74E92B8C99F8FCDB +3A42F0D54353AC9AC76249975921E7709B5763D7B5776EE9CE2C22FC9BD029EF3830758CBF23 +E7AA88E375C3FDAC557DB7A1B407DB465F50F2BC9ADE65D45A195865BCFB3FA449421ADB5F9A +AE23635D26FE93AFFC1411A7E4F94748F189DF3799D891F386B833E0B7681A56ABB5DAD46A66 +00A946949F6A9C28E3B37D3145FF4AF35C4B5525F61E0B98033314C4A844DD92B60DDF7714C0 +7AEBC65FA5F89FBAB6F4FB91BCE885BD17B32E44721CFD031204EBBA6356CA655D483BC8155E +7DAD9D5F77ECD02E50217C265E9B0BD695B058C0A51EE10F6BDB9A217F423142257D683CE751 +61F71660B15F850A283EA6DF969D997098DB7FEF0DDB22E5B7C8AD748C964B54B55DF47E98E5 +F09154F324AB1E6A0F0A04CD54BB7538A243E14FF914CB80FAEEE4E2BFF428DDD9F5799E5626 +3362340FBA704BEEBBD8CF112668F9B4544A2CF25E2787BD7302EC994EBD6DF12B59668CD89A +D0A0D3956EF9A1A00AC4C85BC80DC6A4959B2538F8F3841F2ABFB40BF4D8B3AFD0A0024F023B +8A4F606652DB281471BEFB12A232260D9077F61D55D0AC0C01640EADC7FE87804637C50786FA +1A63927EBEEE4C640A4E8CFE893664E7C2CCD757D450184F7E007CA3E4A2D74C1BD7C3A5E7B5 +2C8D2583F5BAB0BDBC677740768392AFAB4D66F0619AC8A4490DE77F24294C1C199F181AB1FF +1CE2F48F13943C8B812709D684100C2AC78788053783A8A64AAA5C9C9B2D2111B364FDD4957E +3D8DDB25AADB84FD9E1A99C692E1B0E210782DC5ECDE434E12A695F9A620156BAF053E977486 +6B1468FEA94E71D81FFCB83DF3F3B6D5B7592CB66DDA7B0261580A512DBEA4B00F50116529DC +483D6D03E4CE9A7AF11370ADD5AE2549CFBBDCA096F46412F078D28C8ADA8CA46B347EB1154D +7072C8FA72386BA5972CAF1494858FD253113720B4B8D86D7632947C4AB3AFE82202256651E1 +1721E3A48A6E11EA1361EC93372C24EDEA7A49BB1C165F6CBBBDC046E80D5C3AF6EEF4159834 +E11F2C618317DEF428F85C7617E91E5D6D774A4C89379AC883AE0DCDB1B8AA1985EF75F7F486 +68714F130693C29009254CCBA46D2A8714BED613C2EB4DEBC3CC66775D5DB9A730F93AB7D791 +5F9242BAB1FDB94ED7A7B009CE8A37AA3723AD6C92BD62814B2738199E31E5D13A4C45331B7B +5ACAE97774251ABF8540568D2A4485B523515EC15888F994886E435645DDEA4D5CCB42BE9F10 +5FDE8D206BFF84D240F94253CC99F5B887047BC942C950166ECC01F1B3777CC50175EA1F2622 +3F7E9C1BD9E53D62188D50CC497C7B335DE0F4B88AE56A2E5063C2A5A097E4B9D82E2CC60369 +35B7ED048057D2EAF0B2AC3C415C8B8128E0FB4A253F8C345D03A3B167BCAB50DBC378EB89F7 +31232A994EBA7BFA669EBEE582B323A02F082CB4C6D524BE3B9CAFC4FBB88499015E10B6CF88 +A4A7EF5AFB509D5CF3A38B6E4D7BBC799E683833C41D8EB64DC40593CBF2EA038D96035390CE +21AF6EA51F038040A571EDFE2045D04A33CABFA073AF4FD19A874A00D1F7D0F42C843035CECB +D7E4B93997B7ACF9D4F3F621D19426C930DF08E5F0495F54931E745A38E74BD0DAE2D3B069B0 +8711AF89FFD6DC9F88E558865EA3C16D4211D4F5F249120DDE323F09C76AD2D9B073A4AF2E0D +455282DCDCDFE835670895395B8ADCCE90193645FBE45FDBAA283D8F8AD333CBE0BDC93325A0 +82EF233B2F8CDDE8601FF1C8F09FF2524172D9A97BA3625949A22F951224B1A9A97ADE1D3CD5 +F41D8EE17ADCAC594348DF6FAC171B606C92770020FF0B59376FB1AEB72D085068D30E6256AB +887E304B22058844D2F47C482ED2727C68C6F894EA674006ACDA3ABE7F74467F47DFB495AC48 +72C842052FDEE81A1D440502BA50A66EEC4ACAF2C7D6100151DD91733724AB8E6036BC9DECBE +992464436C131C6359B93EE1472684ACE970C09AF4E4C6C014CF468EEC7864BC2145D6432A38 +B4A561EC810ED5DAFFE353929EE387F38FCD957F958BB53C2AA7E2939EA5A80AD95A8216B8D4 +279BF3CC5418248CBB9D9F1B6F171520D668E763680DDF2C4E50E484D49CCCDAFADE65529E03 +F734B3C27E865C409C2F973F878955F7E13B811A743B797594208067EA8FC67EA7DACDB54B54 +E872914279E918434BB40295F8F9674C2B451283DBD4B758BDE32CB41ED527F5E091676B5DA4 +F0A43195B84C26C53DC42BCB951AF6DBE2ED6ED84BE37AB62C9EFD891CF5AE073EE95B511EB3 +20EFA7D967CE9C90F1392788C06D2A4CA5D56C9D9E73AB679D8689A21E8DE979DD731B97C92C +AABA7A45ABD838E17996D7A3266DB63F87F3EBBC20DCC91BA4744EAF418385069E9F3F8188C2 +651EA788DE708891603DD237F8A5F176D58AAF5DC927E14EA9100788706425518A1E2C45B1F4 +AE077D242537FE27DBE49192FC6CB537BEAE9ABFDE4760AF0CFAFCF88CBDB708144D7F9B8488 +8AA1BF2CCFC28B79867D77BD72CEAAA21FC89D661E092155F863BDEC7E69147E75F8A4CE73D9 +6564D5F742BF75A86BCA08389F79F1DC998CB6B981F15946DE8CF1B934BC08E8459CFA9723BD +121A2699CBDBD84819B0299CDDCA6DC1D902AA74CD2870BAAF5890F436635DBD68DD1480A34D +21D55F862471A03674318BC68C27293556F5FD08BC40CCB66BC577BB392AFC448B45B35311EC +7AD891D9FE08D06E4C6B6751F3B44280FCD657574200EA3E66BEC2A4322A0C942B03F8D9D584 +AE310F7FFDC0FFCDB1DC5A4EF2053319CCBB53DB6DDADD5EF4A65C70367B8A4FAD2C21034701 +C09200526BCC9C812A1D5FC039DC0F3B3E33CFEF7949593E4878F9A85C9EB4FF637D583EE2F9 +59203F3A83C9AD5C3F031F931DFBEA912F2EFE680A624BD622FE51B6F5D324695264C103B924 +BD06C4CA0618CA4DE5888CE09E4587B80841B34A0BB6693C44B36BC832E5D4EDC8CA7567626C +A76408D598CBDE5CD93FC29F6A7B0FDC699D9C94DE613C37D8AA9EB9F4087BCA80449948534F +282ED0321AE9C530A8D5EB9A6AE188F666EB00F0104EEB1587CA41AC63FA1062F5A0B20115E5 +0E584AA2116A13C26BB6DD1DF6FDF4CFF3E22C67CA9176F156CFED5190238AA88379DD78216A +6B357A892D84A80E3C65AA41ED5A52E0AB769AAAD8C6D9271285A4226079CAB7568082A5693B +9CBCF8A536A23F1CB095FF802A1FE3EEE9EEC4588AA1B9BECEB13A174908AB287A45BB19788D +112BB7B4947CCBDE7E65EDB0CFEB3E98B88CCF10F1ECAB0120D9FA2CD37EF964FC636A3AB8FA +02297F6680BCCC0CA03FF463A0FCE4E7ECD9D167826EA384543679029598EAFCC2D6368DB58B +7C6461629D57AD663364E710807AE7C4DCEE8B7AB2D8DB119BC9C72621F8BBFF0F72CCECC5CE +125B85434133B75B69A137FB95ACBB4C09D32BF849E8F4178AB5B21CDD45064AEEB0DB27812D +4B31DBF29AC1A6EEC07A8A480064995DE6015C148B07F9587B8C3F7DDCF9A11A87FFF7FAB64F +145003954F4E23C4DA806DB133056602DCE59842127496D15FF90290AD957B91EDFCD06242DD +AC00C14B8CFDC6F295300B31BEF872BE7559EC0F7FAE47F5A08C6B42A8F127351F693D06BFB1 +E9ADF234252B9A90251CED853B3E24F7040A8489D93A7B50AF89A2B57AADFC41FC3E22F9D820 +D2754613C09D97C08445FA7C392DF3804224EDD1DCA0057297C5D0893B5054CC4479FFF0DB74 +C86B7E2025FDE195D96A96A138E7E1421AA0F101BA284DCD26D6A48F8AB410BB0A0FDB3BB74B +BF0E21397847D3CB2F36276D58735A6E0CCF16C8B821B9DBC1C18D64C442F3D400C4B4E2A362 +D2936BF16D2AB50E3AAFB7AA154F4216046B149460F374F42542C6FA6E670300FCE91196E892 +5C8D80C0C25FD2C17BB4ED90697361489830DB023958000AA81F1C830341AF906DC3CF5F393D +63742BAFCCE3DED8AB40FDFD1479064D23DF9F36119A3CBCD99D42425D05AA6812FCF9ADF0DA +A883A750CC2E4A4D3FD33931B716DDA4A9B9ECAA8E3937AE4AAF43C131E24EE2FC5605069DED +2D8676A98A575EFE8FF83C8C11C71C49770A032CA5B0603F5E0AFFE7A53B846540F446960960 +1E87D395F36406F6105947B56B43CF315C0075E62231437F645E03FC9BBB2E909F4D429F730A +ABBA7FBEF66518F9C07CA35548174F41D789C97BA79493E7EA079857C65E1C09DE30A41D9524 +971C2929CE3C1E3F3B4172CAE8B60111BC380B7AC387844A365806B30A571FE1FADB8AC4452B +5180F7993CF060CC302F5E7F38EBAF9FDB70ABF03F65BBCDFC54698520B2685D24DA2B79836A +A1328548ECE141D77B58CC2600A7905E96609BCB8F5323ED081A9154895AFA7681EC90899CB7 +241FDBD06FC910790A94E637AA48E3D0A2488ACB2D3086662792300C3F527065D2BADE039EFA +27D2D0A55DE4A1BB6273F18624857ACD42C5A41732F50D1AF5DC748DAF271377FA7A0B82C769 +AEAD08123F28EF2A7725A0CDE106D2BD9BE10AF25C3CB00EA17520F55D100F09279F88AEFE25 +DA0389A5DDAFDD82DE8156A3A43FE4FA5FBE2812893B82589BDDC232EEC488E449A60BBFEB72 +FE6E3C9564B01CBEE3267144745308BC36CB0BDC7A7CFCB23CACAE102B581EDE7304937ACC34 +B574D0BB32AB28B811333A04578D867F27B3A1A34F9C700B68DC53FD0BA8A17A0EC01EE1BDE4 +6F852B90596FB300C338DC77C768C7F057766B96A40E25827FD2374C00F511E1EFBD0D9A1C7F +D551EE7D785656A7E3906EB1F42077AC5AB5C8826A858BED001E2D09E8383FBF522F3783AAB2 +B0D188BF355027FC3BCB32D9D5AAA2FDF090110050C1E6CF7AEAD97641B68DB383747CAE22E4 +9B328FB15A69FAA134C9D928DAD74FA8E76CAD95A0CC34553F0F5454CC7ABBC27092BC11A0EA +592EEC93349C3A72C5F7B479789EED2E077744105D5ED958042BCFA237C28371A8E93A28320B +CE6016CEC459BB4F2BBA0036CEDA82E0D17F328B51F65B2B24A5FADEB5C89CEA5F4FB3BBF56F +426EDDA043A42EB1F850DEA16522FFACEF5B30800757FB0B3FE3A04DB902C0F6CD0C0F96FFAB +0219274011A81048488F35809F68E4F8D8F259BC4653D7387261C6171841413B59D8E8F460F4 +B38B3F6059505ABA2E6C9756E781D156A372FC9681F9238F4349A894599140BEF11C2D1B9D7B +6576B56860568D3DD82A011C1642EB4AFB6AB5C74AFFFDA594ED429BE80FFEA9C0FC2C57FFDF +B60052AB012A310DD0F258AA265859680A55ED08698EC6E659E0415DCCD1882A557F101BE413 +08D3B58B5D3D9175C274BDB841C95340663A073F28141CCEE58DA0894A1278EA0D02D2457BA2 +5985F70F6880C4CDFFC9092958C69BA87B05867B166FB41BBD058D0CD16EDFAECFE5CF48D72B +A63E738ECA6789967549CA6D92AD07B4709CF89F0286B5D60BDC21F61AC5CEB2A8857FAC05B5 +B85BC5059B1D21BA58A01DBE52292AD5C385D0CAFD89FF5F02197492E31D6A53F982DA1D4D21 +9A7C0B12E178D3E5B84CE598CC2AF64898A9CA7E962A7D0577A5C09A4B013293F2C311FDA69E +5F9B99B5E8D55D638D310999C5CF67C7400C19B1013AFF5F643EFC8CF808A7DF7CA13A770E00 +A3706F6CE54F941A29ACAE388BA32413E8F5BDDCEA11949DC803EC35234EC32D0B8B3D9874BA +C26E69FC7987E3727E43796ECEC589F8626EE0F7F725857E3909C19DBE9AD2FFF1AB043942F1 +19C814FF062CE5ADC1D584A294C5F80F23213F20B373E323BE1480B75BAC6091AC92390F8B0F +F5BFF4D57AAE04789E030F113CA80CA13DD3160FC0187C1965B12274346D1DE154039AEBFB72 +02CA625C404A0FA4A17B41C6744D82FCDBD865610AEF9CB655193BFE55CBF786576B6C41B58F +6F231570FC58A6AB1755FF56EAC96A8CCF139A52FDE68E704F10641B113ABC0EE4D8738F7A28 +00DBAD05C5A0C1CEF547ACDD0424A08CCE1949B4663D448C09073A73F51FDFCDB0B188C0FD46 +7321F134FBF699D4D5DE0A0DC0B8874A0173087437C5496A4E3947F66778ACC35A061BB52CC6 +9AA4AC1EEEBA2F1227FC0643DCE745B5D09A4B69111BF003AF0838CFE4487E573EF19D9BE7DB +31B655B6068E033A6CDA82F2641B3EF060CCFDF9871850FC9B081686743F0FF6053FBA85F46C +7876F3E366B051719D04A08947177CF25BE05EC7ED5111D5B548D5FDBD498F322B07093A096F +9DF6FDF5AB0FEEE5E9ADC1DF6060C542E54BBC8477878F6D594C0B1829B05142D2DA0DA8F409 +92ED9BCE851A271921CDFC2F0C0084FD0E5C7AD63065194DBE0FC3E21E18430D358424107B04 +CCA0EA7E4D33D5DEEAC00D8E6440BD019E2DF69ACFF1242C41F608FCC2CEED9AC76426FB9793 +1C5B93677969E31EEC99EDB2C621C736542A9AAFF69F719040D790A4B769F89F8A4B8E039C6F +ABD00B847E5059930664BC568941F4E9C26EC28595F88784FECB0952F89FF343B5098F53AD33 +E78FC1D59429641B254CA299F61082EC4D74112F771B0209297BE45313CD96BF734912FDBCB5 +0AD1A479F795303DE0FB4B6A8FFC8F1F21A7D220E97323E7FDD0F2603F0CB12EDB59D7EF9FCF +7118D5303BC0116DBDB2E3452E1496B1CCE4AB7C0337617B47C9EE89E387713FAD9EE172FAEC +F866B7D22A68FE65AC2D63E160D578A6C43474B48DF58B3B81F2921A116B1AAC6F5420E1EDB6 +28AC9009BDB717F42FAE660915711EC25EB5405AD2552D07C238B6AA049DFD4820998EDE2E89 +1ACE380D6D981A8AAE140A2398663F0CDD0196FD2D1CF4339EA9BAF461F21B6B79182FCD259B +C0805EB78FAA5101FC624046CBD24366AA69A7F8AEC8DAF2BE839849B059F48C38C31AB3148C +A07002DEB0BEBE653C4D65639FF36DE66C3E32C9C14BCDC5B34FE0D960950DF92F6AD100A5F8 +96ADCD0825E60454BBD3826B1A5D1235B8977C14845D70FCF829797F0BD8767AF5D211507500 +B5EA2F9EDABB1816D18ACA624369459BF7CD1FEAE039768286551FF7A84784142A3F0B73D6D1 +32065BF5120D731739C6A4272E724153700F0AD86E09BD22041BA97462D92657899E29292A9E +35B8A86027D5577C9DA15DB11234C95B42738BA9C049EEB7848D5226C6A81BF2E35CBA8D98B7 +D759FC2CEEC144BCACE86642DB34363B45987F7E733D4798C76A9D626F212A8EC970E2B9E9CC +FBFF159B2812893787E71CA92D0233242645530AD70630F74848F979176399C627C18CB41459 +0EB6F016C04FE2DBA53E782DC80A1B4302CDD03000C6138DEE12901A209BFEA6AD10A4C9F465 +9F4FD3086AFA3AE7D67C37E0F26AD3359EF99F73BF5E286C1661F31ED1E61FE5FC73D68C4FE1 +6725EF3B380C28D9790CE55647CDB7A0C20577E24326BFEC12EC7705A580BB1AE1CF953B4633 +ACBFCD3093B061A2FB23735CC60BE3F45AA03ECD31A43491BF81B7B2EE03D8410630347CFE4B +A38F7BF6CF26636B0528ED725E24EE69915A4AC25CF2AE921C6CD5E51727C0A3F7DA96B29D6A +7191DECA0C7714AB3D017E061CE038D56DB38EC43E899942D2B5D999381B5B53D02D69F06FC2 +0DC4C17FD9EDE1650F2469235C99FEA60B79EA1EA6676A6B3BCCB221272D66A36E4B8C305670 +6B2AC89D3D6448D5924F4E861AC85B7BD2FB83302518EBC79BC5631106497A4706D7EBB39F95 +A265086AFCFE6532A6629E35203B336C47CA1AB429B0D5D8826691DA3186ADB04D46246C61C6 +E50D92B9055BE311310654C5F69668C464405EE1BAB92717F09BF8B9D13CDF6ED7A48201ED69 +E9AC324FAA94F2C41CF57CD0AC4D97ED5B2DC7D76B7871AC8B350B5979C754B943E0F7092449 +9CE83D9BBD8453E01225C09F680280D8DBF6B79CCEB86D00C44C6FF0D37442E6DC96B95AE82E +BE2B8031CB55F14DD9DE66517F98A6CEAEFB48CD5DED8437223FEF71377223EEB8C8627C7318 +4CE747B345704A546A9A1AEA18B256F137F34494E7C09779E40D0D074B1AE9CBE69E8D76291F +386AD9E770AFBF824B4D9A5688CC8A7D4347B7D7E7FD0871B27312D4331D5DC31700704CD4B5 +EA3475F459C60E8088F9C419C81B327CB9430F5297B9AF01008E974CA86193C82BF2A23116DE +37911676CD14A2867A4CE330AD6848925B24A8B293C00408FE1AD65CAA8E526472C7FBA144C4 +573D8FD295095C18EC5265633C33B8AD2474799E1FEB6A7C49F88EFB811F0D338B07BCE5B7FD +9CD7B744E447A34BDAB4CA64606F86A2A4C94FF9B0D6C7C476AC3B3E61219828BE1348FC8424 +9D77FDF2E45BDF05AD299734DCB6E153EF021BEA752EA4F798DDB88BA721353F305A86E4DBEA +2D2265DB49B2EF91CE5C11FA4141218111DE9B1FBAD2D23FEF8AE46EEC1207B591F568B69666 +32C16B514CF0736D28FCF313E156EF8EB25AC7961B17FA87127E0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 + +cleartomark +{restore}if + + +%%EndFont +%%BeginFont: CMMI6 +%!PS-AdobeFont-1.0: CMMI6 003.002 +%%Title: CMMI6 +%Version: 003.002 +%%CreationDate: Mon Jul 13 16:17:00 2009 +%%Creator: David M. Jones +%Copyright: Copyright (c) 1997, 2009 American Mathematical Society +%Copyright: (), with Reserved Font Name CMMI6. +% This Font Software is licensed under the SIL Open Font License, Version 1.1. +% This license is in the accompanying file OFL.txt, and is also +% available with a FAQ at: http://scripts.sil.org/OFL. +%%EndComments + +FontDirectory/CMMI6 known{/CMMI6 findfont dup/UniqueID known{dup +/UniqueID get 5087381 eq exch/FontType get 1 eq and}{pop false}ifelse +{save true}{false}ifelse}{false}ifelse +11 dict begin +/FontType 1 def +/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def +/FontName /CMMI6 def +/FontBBox {11 -250 1241 750 }readonly def +/UniqueID 5087381 def +/PaintType 0 def +/FontInfo 10 dict dup begin + /version (003.002) readonly def + /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMMI6.) readonly def + /FullName (CMMI6) readonly def + /FamilyName (Computer Modern) readonly def + /Weight (Medium) readonly def + /ItalicAngle -14.04 def + /isFixedPitch false def + /UnderlinePosition -100 def + /UnderlineThickness 50 def + /ascent 750 def +end readonly def +/Encoding 256 array + 0 1 255 { 1 index exch /.notdef put} for +dup 0 /Gamma put +dup 1 /Delta put +dup 2 /Theta put +dup 3 /Lambda put +dup 4 /Xi put +dup 5 /Pi put +dup 6 /Sigma put +dup 7 /Upsilon put +dup 8 /Phi put +dup 9 /Psi put +dup 10 /Omega put +dup 11 /alpha put +dup 12 /beta put +dup 13 /gamma put +dup 14 /delta put +dup 15 /epsilon1 put +dup 16 /zeta put +dup 17 /eta put +dup 18 /theta put +dup 19 /iota put +dup 20 /kappa put +dup 21 /lambda put +dup 22 /mu put +dup 23 /nu put +dup 24 /xi put +dup 25 /pi put +dup 26 /rho put +dup 27 /sigma put +dup 28 /tau put +dup 29 /upsilon put +dup 30 /phi put +dup 31 /chi put +dup 32 /psi put +dup 33 /omega put +dup 34 /epsilon put +dup 35 /theta1 put +dup 36 /pi1 put +dup 37 /rho1 put +dup 38 /sigma1 put +dup 39 /phi1 put +dup 40 /arrowlefttophalf put +dup 41 /arrowleftbothalf put +dup 42 /arrowrighttophalf put +dup 43 /arrowrightbothalf put +dup 44 /arrowhookleft put +dup 45 /arrowhookright put +dup 46 /triangleright put +dup 47 /triangleleft put +dup 48 /zerooldstyle put +dup 49 /oneoldstyle put +dup 50 /twooldstyle put +dup 51 /threeoldstyle put +dup 52 /fouroldstyle put +dup 53 /fiveoldstyle put +dup 54 /sixoldstyle put +dup 55 /sevenoldstyle put +dup 56 /eightoldstyle put +dup 57 /nineoldstyle put +dup 58 /period put +dup 59 /comma put +dup 60 /less put +dup 61 /slash put +dup 62 /greater put +dup 63 /star put +dup 64 /partialdiff put +dup 65 /A put +dup 66 /B put +dup 67 /C put +dup 68 /D put +dup 69 /E put +dup 70 /F put +dup 71 /G put +dup 72 /H put +dup 73 /I put +dup 74 /J put +dup 75 /K put +dup 76 /L put +dup 77 /M put +dup 78 /N put +dup 79 /O put +dup 80 /P put +dup 81 /Q put +dup 82 /R put +dup 83 /S put +dup 84 /T put +dup 85 /U put +dup 86 /V put +dup 87 /W put +dup 88 /X put +dup 89 /Y put +dup 90 /Z put +dup 91 /flat put +dup 92 /natural put +dup 93 /sharp put +dup 94 /slurbelow put +dup 95 /slurabove put +dup 96 /lscript put +dup 97 /a put +dup 98 /b put +dup 99 /c put +dup 100 /d put +dup 101 /e put +dup 102 /f put +dup 103 /g put +dup 104 /h put +dup 105 /i put +dup 106 /j put +dup 107 /k put +dup 108 /l put +dup 109 /m put +dup 110 /n put +dup 111 /o put +dup 112 /p put +dup 113 /q put +dup 114 /r put +dup 115 /s put +dup 116 /t put +dup 117 /u put +dup 118 /v put +dup 119 /w put +dup 120 /x put +dup 121 /y put +dup 122 /z put +dup 123 /dotlessi put +dup 124 /dotlessj put +dup 125 /weierstrass put +dup 126 /vector put +dup 127 /tie put +dup 128 /psi put +dup 160 /space put +dup 161 /Gamma put +dup 162 /Delta put +dup 163 /Theta put +dup 164 /Lambda put +dup 165 /Xi put +dup 166 /Pi put +dup 167 /Sigma put +dup 168 /Upsilon put +dup 169 /Phi put +dup 170 /Psi put +dup 173 /Omega put +dup 174 /alpha put +dup 175 /beta put +dup 176 /gamma put +dup 177 /delta put +dup 178 /epsilon1 put +dup 179 /zeta put +dup 180 /eta put +dup 181 /theta put +dup 182 /iota put +dup 183 /kappa put +dup 184 /lambda put +dup 185 /mu put +dup 186 /nu put +dup 187 /xi put +dup 188 /pi put +dup 189 /rho put +dup 190 /sigma put +dup 191 /tau put +dup 192 /upsilon put +dup 193 /phi put +dup 194 /chi put +dup 195 /psi put +dup 196 /tie put +readonly def +currentdict end +currentfile eexec + +D9D66F633B846AB284BCF8B0411B772DE5CE3C05EF98F858322DCEA45E0874C545D25FE19253 +9D9CDA4BAA46D9C431465E6ABF4E4271F89EDED7F37BE4B31FB47934F62D1F46E8671F6290D6 +FFF601D4937BF71C22D60FB800A15796421E3AA772C500501D8B10C0093F6467C553250F7C27 +B2C3D893772614A846374A85BC4EBEC0B0A89C4C161C3956ECE25274B962C854E535F418279F +E26D8F83E38C5C89974E9A224B3CBEF90A9277AF10E0C7CAC8DC11C41DC18B814A7682E5F024 +867411453BC81C443407AF41AF8A831A85A700CFC65E2181BCBFB83E8A2A6085DA1161B16323 +28B94B21D3CBF2E7752D441A2C9A03F6681FDAB37C4B67D5857720F70C4BCEE266586738012A +2237A85FCD0425DA7E8E8632543F5BD5D50F9DBAAE699E053AECA6027559DE42F7291EB381D8 +66F1293107553809861D43508C6F23415E4FCC431AF4A9B3660386AE63E877DCF5E513D0D570 +2B98D58B34897FEE163A75CD6F5A2196F91CE5060CA5E72F9C5F79D18F242EEE58135BFAB02D +5CA430B6D1B9A376849751A45E52577B1810C4F0C7F6C8196071D5B08FDB731C5384CCBF03B4 +60347E0CAC959E4A12620B6C2ED62E06A241D1637F418B5599A7FF3C3953338DAEE3A160D148 +8A68B0AD19DB3B2F9048F29B32C4F2E9785C207FD0F0329D1B5FA6F139B93967ED0CC892733B +2AFF491CB68B8E89F2FABB82195D8C3C2C9A6DA6FA1A3916B24B020AB51B4BB9E15342E11C7F +12BB9603950E0D3828CA33FC580E0BD2938915080BB1A9FD7CBB3F522F3D43007906263E0FE0 +FB490598D95488F7FFD1B683AFB49D45E99701401E8AA359FBB63366570F2F001EF9F69FCFC6 +D20E750C663E858089C15B40EE18B08BBFC3E7518B0450CBECA2C0C776DF339EC8AF7184990B +317AA85D97F6709124FB2C2ABC442BFE51D26DB01B64D9C13F6BF0CA93CB1BDC9350E59F8BD8 +36EB7418AD566FEB61BA87A6E9DCB4A3A83591CE33DD75BAA96B26C0E08C35A1214928EB5875 +2A88A20AD2348630DB65BB5006DE22108C8C6B20887762D2C3C20BCEB9145D21373DD3FF2A8C +166180418ED956C514202A94109972D2DA92E7530EE35BAEA0B3D68AC4A6F27FA59D344358F3 +C2330C3756D751CE1190412D3EF2BF8F1C64EE731E092B2BF7F17AE92A0FD1F05F4B4E878DC4 +0AAEEB58F6EBC3F6A0256ACCBEA215DFF48D67E38D1624B20DCCBD2BE2CA79E851C92FAD260A +7BDEB56A1398DF71EF2276BB850D7789DC486055B95DB87DFA20CFED6A8430A24FCC97F1869B +4E0BB75D4A4BD034E3FB84AF2352E28FCA7A69B115731ED66879C2E6D9C3B3DA773F15446E83 +E80FF482267D891CBE74460E0CE6BA53EC24835C2B26BC37C4CB638B98C934D582C3CFB4EED8 +2C04B5D5B5393FD00ED00927B7F74D181895496EB9F392FA84E388990626A0CAD4E8F4398F4B +4FD590E3ADE252A13C7EA80DCF30436EDBAEE7A613750B94D031AA04952B59735F9B7FE43DB2 +B7B8996260532B417F9CE19BFECFCAE9ABAFD5DE6AD065F3578BEC962A8F878EB984C486A04C +A3B21BC0B646142C6B1E83CC2290CA267178ED6B1410DF3746F88705C607F3863A8BAC081F2C +0F38F663D58B6FE2417E2706AD02B117BFAE8EB6C8703C81A0600BDDD2673570AA96E8A41B7A +8CBC8C9D1FBAF0B63B675C644A2A111CFB7ED71551D39CB00E1A3332E09F6FC079BF174D17A5 +DB4CC004185C1E01ADF3545C42B2249CAF469AE0672690CC00057B10C7A8CE1D6A50F6B450B2 +922EA6162B567AB3421910CA6C7DEDD1A851C88625A7E7F18517FC5AB24126C4AB1DA45591F8 +6C5854EACBB2505DEBE2DFE09BEBE7F2EB88CFF794DFA7958F6EC9197021DCD4C3590B272977 +93505063835074EE009D33E192CDFF1CCD87F5EBD2C5C7E42895BEC579F6E34294AC17F11B49 +C8514798DCAE8F87248A985CF7B2B6CCD353E0F7CE7BCD2CB2C2826612D66353FB0A9C1FA698 +571B46B824680012F41DB4D51F6B6E16403FF742298CBE8E9AF794BF06030CFC43A100A1F3F3 +044558937F4F44FA0F579F941870841D4481596CF418D14B3174ACB7E231964216074FE16715 +DB5E74920ED5E6DB20D9223405083A0327EB83E76ADFED291228E210802BDBA8A50925110DEB +7BA57F4EA53E38F3DDD624BFE5A5E1961E3D1FC532421B073BEC795423B95167DDAF8C317C11 +E6B0E48D4765F3DB9141BFDAE35A7E26D462FD349E8F594AABEA52E0B3774E01D1F503E7804E +AB8ED5D123B015925A6BB3C57EA94068510A24B2BE92406038AD3EDC27CF5FE86B53CFBB3D78 +8ECE6685E28AA543BBE0F3836C0DF9F36CE69D74F2E71917DF6A9F0E2DB993FD29A1F1E09C7C +C2CD5C6ABCAE5C1812846B5C8D1B4E6E27383B2AE208B3B3420194677D5AF8E49AAF4CD793DA +0FF38FC7DF17BBE914CB4018C23AE9C33BD62B2570FC537591FC15B5D6A9455FB33B710F4FB3 +6CF5CD1AE618D96C2CAF86E6834877530967242C6F2A8A7F5E4D066CAC4A3C01784B08664AFE +FD18880365E886EAE61B3F80FE01DDAC21EAC4F806D0D6B65C849CCA2DAE7289582F014E4BC9 +6F6E6840DCC19E372015D2C0830E48D36928B5F784F2C137297870610556E871B3D77775CB1C +3C612C9B297753F4C56DDE13AB6412134EED5DC9E16AD67078A02CF6E2C87E00F90CD22DD79B +0CA7C9A245AF256A51970553CCD9273D8293A3AE527B1BEC321E14CEA7F39803D0500F2A676A +12C1B7B021740F814233DBB150BAEA98C5EF54B1ABBB23FA0EDCE4D68A199892A94A7D51B9C3 +3692065D1CFCD567B48256E1F87500489C7E5198D4CED0C940CD384A3865DC0281B4AFB58CFE +B14A1909CF00ED31FD9FC08D203E1591D249698D2F23C863B797A321C5561FEF17619CEFCDB2 +77A7FD91A75BFB52E9A4B6FDC4CD21135EC0E25E36BCEE98978A95B0A861A6B608670121FB13 +5475007F35FE6428E9F65E7CFA4E2918E6C87840E83D805C561F455E9571E106C22D6E519393 +BF4A74549CE9792139F9D3FD551130F20300986C38F827D5E72B1BB63781B9852A3D217F4E11 +4193783C82570BF0B42640184892441C70D7BCEBA806119B17606350953687884036D6963503 +79D609EA635A1DD248FD9AD41AFFE5992C8475DE341CC8EB4834AAD1B285C2CB997DC8D787BA +F8653410366CB1DB89667E22859184DA5367C03D0604DAE8BE5C25ED56E17564044879BADC13 +583C5223397631B6476E2DCFE3CC3D8816508C18A4DB3C63DC81E784C8E3C5E29057759F1E4A +750BDD67D8A4F82D52F368E687AE6A2B285F696A8D772E052A32CA401230BA21ACC7E788135F +7E7D4C1BB16062E9C7C6493FA696C0A88239F61312063769E3ECD7A14CB622D1EB83F4C6CDCB +455B1A2553D544AAACCD89DCBF6FC9DFEC171528AA2054E83C4DF2D65D189BE3AF34D53CA441 +38190961880214A3C5840006F73FEBAE70CBF4FDC9E5D32330A0C6E5A337E9EF5D7074585F2B +E5C36BE44B92819199046A2E89F505522B384C3932455D304BB49BA302259F73A5ECB7CEE370 +615AF27A3699E02EA3777DC18417C1424541FAB16D7FB7C6A5B3908DBD53B5CEC8BD6BD7966B +35AEE7C1045780103DC8C373167A9E008CD3B9EB1B4C2252B1D1D2D944CC3CBE14F4481A4140 +DB85E6A03A758DB13508D659CD58AA84C6EE80DF059A07C0ABD6EA6677292198D1F2A2C08CF8 +8101341F17D8B9AFCCC162F070B1727352718E2046D2C0C6357B0C4494622885AB5691A11F9A +E61BC2B8229DFA608A6A739C00BF41F15C8FB18B3814E5B50AE4EB6B21A1F215F71DA7B73CD7 +B637F6ECD389724ABAF71EEA4CE81BFA8092FDC5DBBB9970A73FF9D2178A705A67D6A803B485 +988652631F96C628A97253D4CD4098786F01D6D940326F446C3784295A5344E524C8BC2ACC0F +3DE782A5A188DF568F148C884AE861323F63F1549E95830ED3C40E797C1BFDB3411F6642974C +7AFAB1B8EBE2D19168AF89A0DEF3A101A6E56C50AD03E4AB3D7E297EFE10FAC30AC9091DD780 +7F9CD740388E94F5C1FC580A51382C2306EA9CFABCD0D600BFA5CE5E99E34FAC9E16DC16EFAA +47AA7D2979BBEC11B084A6688D3B940FC17372AED76FC258A61732D9558307BA89C8008773C8 +3C8646804EABE7568424079E2AFF85DBF04F34F2A606FE8B3F64D1C1A6F43174E4CB817300D5 +FE033AEBCD0B1006853A7ACDD6F46DAA83B956258715CF15714A7DB08DD08581B60FD1E07F4B +1C55DAB1FD109077AF54DD529AB513C0787139CDE2AA2273BE9ADEB4F0CA04E00A2FD5F0DC8F +6983CEC4D8E1BE1AAF947E60444E4CF62DCAF24A8E1C20DE44AF90A6C8C65AB9E064E96E80E3 +25B45B7D2B83C2F559D53E8950DD64DE9C3A65DC7A59821F28A6C3F47C8287FC7DCBE08756D0 +94F4B8839AC05CC3B3377B9593AC187F817550CA3BD02E1F7F3CF1FBDD605BB627DB490AAF6E +5BDA7C9CB6CA8924C7D5BED3343D89FCF7A7D2AEF3E5179B0D8121B4C115DCB2239AF080659C +EA9840C8C80B2904D3D33002CEE2E98503F467AC2DCDFF826627FF501A735C8D667186F533BE +4677E223EF254423DF828B8C20DD61BA8A4B58B2B9B2850864319E8C94EFB5BA9A2104BE4469 +71628F2756315F49136CC224132905C622D7C18D5057AD9C34392DE6304CA5E20A1473FD446B +4B820B743BA795951743535C68DC84801321E9005CA72FD1F15566E705D74DE68C3ADE1E651B +4BA0ABE0320108C29EACAA32A39D3783AD135DA95BBF549FD72A1C23E74683D44A24EB0356F1 +BF60A0371E1895A80A669471D63709CBE81C3CB6F37DD175BD1B6F0EDE46218E010D9221E2DA +69F8E6C0E74AD4DA3C8B3F7F77791B743AAE92FC4C58B6DBC3FD5B5DC808AC88F1761286FB4D +7A761B23247ACE84F87E89F6A35F666032A7CDA7615D54660BBA391C8CD41EAC8B970F9C5624 +C56DB1F38BCC579279949376CCF489A74C66325F301B80D4147D5D2C394353E74D0590B6FB39 +6871D7916008F375DF3ECC7D321E43CCFEDD18F88828E492F2C96D0F45CB8FD3ACF508DF3FD2 +3688EC2997EE577729A3B7EA4E66B6B5582ACF8C6FF235158821406F7EC42D99FFF5E32B205E +86647D7FED1004343DE0E53D8C6805A18D41714D22552487E988C1674354C7B6264F0B4D78D2 +A6B87C6DF8309C64F2005BE9CDFDE5E595DD0F16D1F914806A034B096474ED95CBAD7171C9EA +87F5AA25EA3740E4F30375B8A1F0233AB4447B10A3D52AC4D60339E3AB7095168A9AA89FF97B +E9AB2AFF6A0F4515ED70C654145E2D42AC6A6812F879F0B08D9718B91CC50210D5C41B64033C +E18F2396C9478F623175A741255C8601A284566A4DC8CF490867286885405D9975D92E3EC4A0 +B9768E9048DFB9D78F06BFB0123BC5DF61F727B927F78397B2D72EC14E98E6DFD7A355B95F70 +E968F3680153D8C20B9CE57D19FA4A6EA0D8CE325DE7EC157AB47617B661621F50E1A0095892 +AD36F47A7F09DD49C971B0822067CA3D519C8B5C5C77AA839401D80D2F8CACEDEFBEEF0C5E05 +CC32CDE8FC85A1927A34B64465027D3921750F4A0C76C827797EF82EB0538D2BF29377E7E1C4 +9337E8454DE9715F2692127838A519424F7A088853574E849551F323FCA9225762E4794962C6 +CE38352CD9A36335D3BA2A9A00B511E12D3A89D01B2841D8866E90F18051C1C15DBDD129ABA8 +6F2388AFD0003AD98BD1637CC5E9F3E7354D3AF353838B05728841029FBA37871F7A522ACBCA +E96BDE0D73DBC4F4C0F8C9B72E5E2EA4FFF43E3FEBC0BB6D21699132F8E3C5AD68C78B8B2506 +CEE537231B9C667EF69D36202A3D1276073A745C742BF208DC71E6F7C6A189775093C1754A22 +9D2CFAE7D52EAF8895FDD82EBA80314184A358CFEEB104FADF6001CABDAA2BDC15F4338E6DE4 +650A1149D7B8BB3267BC6288B008DA7243F6F6A31DC7A558552DDF07ED84129CCE6EC7AAA0EA +F1500E6AAFAE302EB009F6B767E950AF2FA5BE0C4BC55A679C1D968EF88463B0C4698819031A +15AF3782BA7A078A66FC83EA772EFD3A06F0D7B7F5BA91D965DD6E4331E6603758B09AA9CE82 +225AB9EB86CD36B0C68D05B098FDEB7C10A72A9EEAD11839D03EC8DD1C436C83BA145AAD35AC +8CD35568DCBDAF45AB9FC529527EF2361419B2015D448C3CF6AC61FC20FD2303E4AF6F85DE64 +5A74CA338B0FB4E65154F0153256B2B1A02EF624FE2E9B19EA45E89DC993BF4D151A41365117 +A886018A43F641C276BB2CE2B80140B4D6134CA744C2C38B08BCDF587C8F71ACD78B43DBBCC3 +0F483519DB58CDE2F62B1C48BD0961150BFB614CD92C557DD70EE7A040443BF0E26BCE08E8CF +CC7D824402F2395A846E78C36298A48DE50929C1BDA5E9F63D56D2E4F970991A30167EE85C98 +CEDFD515066137AC9EFC157342AF83600365C0B27C0C3BDA50A1A5A6DEEB4B7AE452AD310B8A +B66DA71EFC2DA809E02ADB715C6CC8AD465F6C57815C067D1FE81026CF5A278DC76F4CCE0468 +0FAF98E391570AAB97D3667F3F36426A21BD5AF483553DF0B77946797F9A9341E7197803AB3A +3D45107F4CA0625F8C8C585742DE705704FB6B499CDD877909FDCE147580C3409C6F6D645EF3 +717E3BA921CE66FA74E41B930C31D1384626610588BDC92C82144D8EC84377415949999EC6B2 +311B911BEE6157A2239824E445E4E6A199D37FF8524AB1669986A5B18EA36792B76E0D7DD76C +D6D95FD41E8680EB8B2ACE5A82AD928D942F9657A5EAC259DE9CDDF4E29A667C61232F297D03 +39219FCD5B0B6BA107C9DFAFAA52FA297964148F3EC5904F408530D52870D739588CC8A58086 +B57CB59BEE1C18278112A400794B6BEEABD3BBD63B3AD1FC7275CB024E9E3ED8EBF399D3E6E6 +02BD72E2B334F198C83D94DD4F901FD367F8D66A591E7FE0AC75827EB00FB07B5547E1A20DD5 +C82BF18776B4CFF8DB7A2B80607021F1F665746752CEB85BE0C509702448E48613811FDFAC38 +7E6FA034C2C94E93920C78B3314B77ED1A228C4E1A4CEC46BC07BEB7035462DB6F2634BCC606 +FD553A9D0BE49A543CADC8D2829CDBD4EA99C5E543B24768642A25A548F535BD210DE105D379 +F91D8B74236A67DFE117AF4C94E6A28B0D5C3008012F7AD08B9B90E3D527129182BDB6579FCB +14D838B79F87F657930C37F4FA134E60F809F012443DDDF3089FEB30A5FD42426C98CE3882B7 +751BE78F3C1E6AE3BFB2F16653AF8D359B7E010D89F437EEE53BE9DB290950F7D979DCA0B9CD +AB3B76A8798CF9A9DA13C46929751E219C2CB582428695425DED4D42EC6CFCDD600548DEAC0A +EBC31648BE9280A3760F870EDD7516611CEE05A4A5032888132D5CAAC0721E45B1CBC62272E7 +397D0BE53725DE53C25B20DF52D29F9918143C046F32F0A1DB2BA342DF060605DC3820CC5F05 +5EA4F892FFB6769F983112154C925C62FA8FF336578120F22EF075977E8654D50619062C8810 +211E7B078432901B7ED4CB6EBB2435455385AB8F6523DB462D50A111211F639DA8BDD93B9BDD +EBFAB450F1078CBD10D936F2F161FD483725DE6B432CFF90DFD4B1D6B0FBB4DDD28AB8C6CC6C +9CC0ACF0DC1AD8BA744488BD8C4BA0B2707264AD0C09535C36B7DF254AC26737A0DF09EC9930 +7E18F8540415BE361ABB433D8E5E0DEBBBD5C4316867423D3CF1C1C529DBE9A46DB139BE12C6 +4C315DE959337B367F636130C76A0DC5E6EC689DF54491CA03A7E8A1544A9C0725380E9FED22 +AD05AF999AC0DCDC8916383754A9728AD33AE9400ABB8E9672E26C25588453C2FD952FFD72F0 +3854257E935024F8334E8F060970031C610C39423C7EECE32CDDD77B47B59943BD4F9C6B8945 +071190FB17464CD1C79BD914FF80B337ABC325EF549B88CFEFBB978730C83A6AB33F9389733F +5769D3A89468CE51C7CF6BC52E57BB179CB757C6F1B78D3C62F09DB1789DD4C9B0AE986B5B41 +1227596C7D0097FA31399EA8381DA64093C33CE11EB0CB1A8F71B82D67AE5E767C5449F62097 +B53738B4B2ED566B2D3C4DAFB36CB7D5F86AB267E3BB735EBA4E9C05D6F238CE8CC902D1CB60 +1CDC914818B2A5CE885D44BEB9BAF0859E9D0A5571FC726577CE1483052A0DCA8F4B54AA899E +CE4676D88F639251053A135EA6400141045419E6289FCD86F452CD76DFEF5D26165774455A76 +2B178AD1EDC212E78153CFBB0075BB07B712E6F7A172C804319E3BF3D3EDDE4783A639A6DA91 +ED39EA32FDAF30EA27983A2525C10016723CD6FAE48D76F8E978EF17D681F5435FEA9A4BDDA0 +C26811FB6908911B47052397BEAD932F99A4729560032D7C97A5D010C7D7B9EB94363012CC7F +62D929EDF1C1CCD99F39773FC02EA8C7AE98F6323D13BE1141E09C18B7CAA92A2C1D3147F184 +1235DCAE82C5414C398FEF7A563DE61A20F562A5B7C588D52D651AFA7C2267F7F0D7CF976A1F +C797D0C9291D6D4BF4823985813A433A5BA9AE8CBE2D638D4EB01831395D4711DB1E5A4D12F8 +159FDBC25EE03621A77A5A16030AAC8F25FBBA49E100534DAFD91C06166CFE0852539624A896 +569A035F5611012A1EE62601E2117B2374AF6AB930C3EA62F22DA4130F70403DD7C0BD64E680 +DDBC60BC964600B1CE235A8BA8A0DA3FDEDF79083365EF891EEA9F541DDE8CA64FA580E9717B +F063055610493BCFAD6209703B8604CE8D011BD8ECD4EA70690F550E6E55A40161092DB8C5BF +D39E2D21618A07CF4725BE2B10DEAB91C19746D5EE5F29DD70B3BACD1C0EC063ACED8C096A4D +4BBA5F7B48F0D9F9D5488F2DBD2B5C220948F9C7DF0BEC3CF912822B48BA052301AA8E6AD517 +2683303307B44319EE879D791162FFC830D80A71114E9D5DD8F73DECC534DF833EB0F735A0B0 +4E7816B024CC5F188087151E346C981C9B851F39B9796135D8718FCDFF0A094ECCE4B923DAE6 +4AA0A6AB13932BA5258C445BCF482D7CF991DADE9DF5EEBB4D0CA832A1B863C7FAE0FBE26E38 +1180C1648817FC6537554CFCAD6484A2276DE20B0E4FAC8F6FC048125F1CCF350E39D9ACE346 +6422B2F51F03BAEEE7A216A59C3BA08D40B09FBFD0B2973D3D80321873605BB1C336AC979ECD +A2F8CEAC11298A7F8028B3DB8A7F0D19128718645FFB28116723969C5BA6C728D3DBD8C69F59 +4EC4D7DEE5FF174A9C29938A79148259FA2E81EEC8360811FF6E7B1AEE8F735D06A67C160083 +38C15BD72EA74C7E64809CB28A1E9CD1FFCF6F0D95E89C0082203EE1B99DC961502E2CD7394F +746D0DD220221107D0FA75F9D1065AD5E50AACA89E5CD05A887F652380C52D6ED7A23DFA7C6C +961FFA62822966F47C6B972EB67868AA05E3B98C0218C2F5B557E7963CBBEEB9F7904F3FD148 +5F9C6061463CC5A8C63FB37353A9F91A941A5233A1C91734B974356F956EDA4861C696040503 +1C3862EECBF2D60F8105103B2E94F63237C8BAE18512DD71680E1756A66187B6DF18FAB88E92 +17DF1009DA840FB6108724C53B28A446CCA6E77AD58E7A0B5263B1D0D084D9A9277172BF744A +593348DF5F2BCD1908EB5F0E5C022D880EC175235AD640636039A31E5EABF13A20567DD0463D +7ACAB806C8A0C6FDB4690535B44839EBCE5870A24BEE57C219A136D19D2349B962A2438C2006 +8FC05B9ABBFA2B8AEB4F54F93A4174E1FF9A750ED1409086EDDEF5708ACDBB6DFCA827DD69A3 +ED47FE200A833E2131C62CB0232A98BC97CF79055790768E0963DE704A1788114A776E0C2C46 +E6F28714704660A046FF609BD52BE3FB594E11755C0C0966B29031A79FE3A12236071C99ED22 +50879642D8F00D0B524282779C0B93B7A9BC7082C1DCC4617B379921E150EE80FF63F54EFBA5 +5500424EEAFD019C8499FC19FCF839C82EEBD73AB1B384E40C15B2E9FA9F7CA275A15BDF11B5 +9EC5B466BC70A3C93DE6AA3C484669A8F3599234EF29F9C32AD1116AD6B1AADE76E1E243079D +0071A7CEE4B8C727D6910F5D232F416DE5F2EF1AEA4582E2D8C6DA8750C1C92E980F25B3B984 +1640367D3ED86AFD0DD86303002536DA1A74031CF3F8B24A052A28EA26C684E147DA876A0BD9 +9A841EA2952A82DEC1B73FE390978CCDCBBC79C4DDF03F8CB14993BF0E4606446E60766E3B91 +1F27425E6707F373851404B512B86C978044A676CEEB78B07C6B25C08251E668AB4957CA01D0 +3BB8060F6C602812470E6D29EFD4A2A319ED334AB78CA2B86F8C2D12EEAD5C7993FF7C6F4801 +61D09CE397B099877CEB65E4BB0341DA047219948EC5281059FA79CA552C78E5F70A164B49BB +3D42F9200196EA4BCB09F0CD455338862B07D7A71A77B89CC90B436FA0EA66653372AA9A5052 +CABC6C101BBCD02EF1AA3E7729D3158FBC660155548512D6ABBF57C0790E415D35F837C17474 +E9890A3B084181B25E5114015F9FE082FC0EA9E7B5FC52A96D600C8A468B96E4F1DF4155FFE7 +D679D5FB03FAB3ABA30F23CD59A69128417A45FA39C671E38FE0E73AE45AB4E86371235805C2 +1864E4D662953CF4F56EF48947164620B73F0F6CF726483F484387E30E0C8D6B85DF65BDCDCC +699469CFBDC9CC0CD18EF5C7E6374804FADAB6489ED03057986EB78DA63D256170FC02EF562B +EEB6104634607A46ABD11ED43959019AA0E60CF6583AA33EBFE9D5D9F87187E8CA37BB18B11C +8D2453EE4A2CB656B1A918409AE8A7E680A422D019BEBE725A0DEA20709B6E55A408244E1A63 +80796D49D8B47C314995477A2FD3BE342BA7996BA3A2EC756AFFCFDB2F85B81E1E21160C75D2 +456D69766BD6382EE5413F69F7BA5D0C45FA751B9472F92BDFBD0450AC8005843E8FD23BBFC0 +879891907F2E83E3AF1A39DA51C69AAFD5242CD35694A6B9105B1E39B0A3B0AF8425B1C9D9AC +8B8EDFFF65CF2C54F76CBAA5FBD8E2CF4CAE30CC6CD0D715138E5A2026CC302FE3192D787677 +69266777AB9A4D5E2302F976364AC1BB607F4F271E5A6B3A288B9F1AC3ADF1F7CC7664B89B52 +D0DDA07D24281C1430288C3BCD69F3385027C9E0E8767557CFAEFDBA78866EB7FF8A93D46E8D +134D11393D904C0BEDC911D14F8D713B34C75DB18D1EC2B927F03DCEF58B7EADA4DB25EE9F30 +B8EABBDE2698637C9D679B593B5AF80AFAF5E5D3CF0F6D6A862AF85573D27F627976E6A5B45A +643F3D3C077E2B2CFACC0A152978CCA7E6547526EF0F0ED2191E864C33574E4D7C2F1BF53074 +92151A031FF2318EF89B60EC3024DE4A2430B09EF2FCBC03ED59A1836050CFAFCFB67AE7C838 +7EB05A48FE8C1C926E793F0B4EB3A0B44AD5D2C31DD23DB2B7B0E80851D25842DE373084477B +A7B80FCAE515D36919FEC5394FB64DA4DA9FCE8470AE48C7FB0D9B39CB00D5687CCBBCF941C4 +BE7A7A31045CA94D4CF5C435B6334D689B784D790EB57820215117F3F9C9FBC5B84A400E368A +A24502D6938309CC57EA28C7B0B3239333E1195D0F2471314987C7497358D93E29840DEB87C8 +52596511CE7B47FF0FA563F2964C3B13B72A71ABF84F6B92BD21D825D2F4D4577412852AF44D +9A7221F6419138E51EDFA07D4A9DA5880634F086079544125C958D2E2BE4BD89AAE72E157348 +B261DC0D110CA2E1B2EAA8CF48D7F4E3F90B0B85CD993B690645222DB94EAD7F7374CBB8CD1E +886E150289CAA596CA324129A748B4569BD4E2BD84040834D88D146C086BC8C7AE8DC60281DA +A1F095A452887C592D608E3F181209818499BB8452B9246DC1A1EB5DB74A7A0D87C7A4194866 +75A7262E7FD78436E6DB4FFEAFF54F0CD2404F0FFCC33B84E260C89627600C327B106EB4453E +B96FD7E6B0DA05383228A7EA89588F9A8C05FDC3965237EF7F62CE91921319D43BF2CFC8B319 +69406FF5D571A561BACC58193CCE352732A106431ADC90F3C466052DEE0363A43C9951681AD4 +9AE2EF03E1DF47E14B17743526B68AA149D3C66DA744A96AB5A13898AD4E6B9B3EEAA771850E +8B7F8D02FBAA474835D7B32C26AE5BD756A7C166ABE2B5C4388DD2EEE400608C1CE263A1414B +844828886170A8E36F9F331410D6F206DBAC4C5F555EC9A1A6A986980F4B84C2DD9B3CF09581 +4B58DF6E18AE6186D048FE0BBDABA353D0CBE0F61D82730F226843F90A2C1419D4721EA9933B +E126E56E459ED56EEC170943717BC7ED9C3E7A859695E65EE51DCE3AC52DE48335F8C9F44701 +4DBAB875CE9B25209530C3C939C52B8F5E02F5A4216E70D5267F4809DCA18B0AB69B39237059 +D544425447DA91DB149B64E33DC287DF1439E381D2E258DF8C9B7AA0CCC736802D89CC737598 +1DA0D1C2A8D37137BEAAABC75D71E798C6D62D940C09D40EAE499B675912E1B7608847D616D0 +3BB5243CC8A191613A36DF986279199D4925D366BEE70E88FD9D55419222CAC9D924967C2587 +9F12D234A2F0BCD03809CC6A120E8B0A45764D297076C07BE5DFDF3E1CA254A6F3D1E36DBD9A +DA585FB10F1AD73B0EDD1E1A4B292F7734846F0473EBF77C6C33B0769C5955E0682016313242 +59BE92F11AA079F3E1E3B21F22AE6FBBFE0D8FA5A9B12D296243849749A4048616CEEE6E7DDE +FCD7C23CFFDD45300FD45FD61F8BFBC209EC29833E766E91A084040BF71A9A9B36998AE91CF7 +BCF7188E9A72EF961C756D4A0E37179D93065AA8450C014CB110C87E1B37C0590B29DB7D20E5 +9BA31B76B0FBA56FB2AB36B4DEAAA03C9EDDCF42E3EFA013D761FC3E0BAA097BC4E911291708 +79A82546AA11155919DC0846D50E5B4A88A311923ACC35E9A944EDAC785E6A568981FCF90DFF +7F443BCF3BFFDEBE96D6691CF55104F2D37E89B7155879056106AC48FC8B3B2A7DEB3D344896 +13872472B8EC704875B61842492458760783D7F39D734B7C3BCA975F19C3E9777EB4E90B16D2 +17C329D835B9F8F770151CC236CB50330094AB4FB07CA4F29C3B82279FAC89295464986D6760 +13D4AA8C56D62FE9159C7F09FBFFBE9D883F5BF9F7A8AFA937F213777190600702755004E29A +D68DE3BFA67E9A382D291E9134E7DC0B3FE19C66D05AC4E337C4732901F521374E3E02053B04 +9668C391B29D47F4E38DB096858177668C95B4C3C121E7EF16D29799F037354A29D2CC09555E +75CA1CBB8FAADA4761C55986BD54F3B0CD83CEA6AA116FE808B4CBB90CFBEF3BBAB02601AE6F +D6D8C2805015D7388C2AD80F6AD38A1D794F5954B3FE20EBE453E2EC932BDEAF054B00CA731F +DFF144E787C2D43B8DC3A03077E46075F411C082CA26548C24AD09691507BEF5C399181EE654 +7DBB53B08AAC6D1C3EEFFE5A157467932851547662A4714A35ED272F39A436575F80F974A022 +DF273119EC26B199D23E3FE508CFD399075DD0CBE8C61A5246C4839F885322D004DE37963B57 +2E346EDFADE2F539D0EBB120FACFAC9E282B86F02E991529EF7B7731CBD55D332F7192FD8EBE +F82CFFB8BD596123A888A7239C262C5F6F8308448891FDE7FB734DCC55D9602B7C29A183D11D +66DC3A2870138391ECB2206AC631F66CEC57FB72AA16C68A64F35727A5478B40A79046CCCD5A +AB46DC9DC8DB8DF5952E01A9DAFF89BCDE474C1E0796B60DD6FDC08773679DD3E7C4274286AF +4CD6EEDED9175C878B365F1B1A973274D9022512B07ACC7EEAAC5C8C9F478B1EB5916679F0DE +3953D5358719E22AFF84CBDEDA7267B9D146EE7473D438D954B65C8E774A0EDA12B871CCBF2B +86FC28AAB26A111CBAC490DF4852133874B8857DC98FC5F557BC9620ED9A01CF581B914F9C00 +BB4B7D9259034C8CDBB95872DD6118B6B5D655BDE8A58ACCC4960E3C32A1FAD1D9F5BBE80290 +C60F77C678A07D214E8176730C98F9E77AEBA08DE74C2E4B5BEFD77ACDA1BF4304AB7104FDB2 +AC108449B3662F5B9378349B31030AA9A0D618B4580D6039A9DC3D589C576A0C8811622ACE2D +895F1E2FB5252D878BB2C61FB4389BC4173B1081BCDD7F44921402A3A600C5594498E30E1B22 +676FBFCC45CC0D13D5061ED2DAFBF2BBD3F871A6D47FB5F9C5ABADB4C63638263947D203DC3C +29972276B44E8C4C355D7B65C1A2A00715DA1962FB6EFEBA8601129008522D75C546D6205B04 +42E910EE2D7511DBCA9E1C8FCF12DA90ECC2FB4EC8D63E2BF6DE20A94C17BF6B7DC932B44BAD +7C8A0F3B7F8E4A9B1BD437ABF26986E7291094E63F75D5E6F1F45DD49A89E016C1FAD535C4B6 +D0EF8DA9A91A3C73AED1F6648233D9090A7AC8FB9D811F70A549B5A30FD65FF462AE96417C27 +79C43B1337634BEC54C767B650C603D0003A907C1DB5CA65E297602F56B942289D5EE1F96D67 +42CD6A72C7E0066C15D0E0D611BC7785A7A885489DE17040A28F3AFE225DDE39858482644287 +2EDFD14FDB477666B135D83732D0B2FBFBDBDCC14909BE7613B85AA4CAA1DA4628FCCCA68203 +68926BA2A6DF4E04440E04DF1BED95BFFDA9436FB0322CFDB068C1A1B8710EC9BB76DB7CF507 +7D1252E242964125A9D8E261468B4E254A07CAB417A57A9DD1102FEA3856B64A64B531114408 +156607602B300FB13773566D3759267E84754AA6E55A15118AB60D5FA8A6855509F15D15E35B +90EB31E702665E8BCF61946DD2D91329482E2815A2F6337D7D0EBDF7545CF7AA654C6B48D45F +CFEE082D441092946202D49711A405B676E9144AEAD2CE1686D361662001B5FA3BEDC610E0A1 +33EF23E6FDEF462D455B760FF2A4DD9AD740E80D497DD34ABE959A95B46887C3181B50BCAF25 +05A977222DAC7FC0A223556E20F7FB1CFBEDEB5B280F0F5682528DF4B90D77420395E2812116 +34DC9C6ABE7504DDB7102BA28DCE598724CB8F0A5A009A83EFD297AF0308C681890A9F92B7B7 +108BD1044171194DF7A7A039F7FDD301F84F795641A0EF785AAB4A9DD786E94197066D5742F9 +DFE6DAAB64A42A9AB67B33D36CD1116F5D4FCDC2D8FB737C7C220B5F9D30C889C0BFEE5DE0E7 +1963DD164EC264EFD3CA6E6795AA8EFC8C97281236C19BC053424444DA0ADE0172B821F6BB33 +D7645CEDEFB9E26825E2C27C2523FA952FA5A1C8A5196A9440C3EB0585C9462519B2D0DB551A +76A42AF715CD5CA6F0F9C4C7E0944680932B3D3FC355761A795BE88CC2FA34E1AF626DDCC4ED +E04AB6578C76BF8214C305B778A2F32C0CFB69CDC9C88CFBECAAE9A963665668115096252D01 +23E6BD77854AF5BE4C20C18A6AE5591177B30ED892FE8D79A877D3588D6EA8EA91ECD3207638 +A94A14918A1311221D9D52C96D922176A803E20EE8CF6E549F9E3ADAC779C9058A7A4232E5C4 +14D24BD049FDA3D8AD9361B8AA22F895DE20534EAA444A67A1F74A74CC95D7983A84E52482DD +3E7576C45A9A67B2185FC2125321A16E865CF28E878BAC13A029AB9BAFA43C6B97D9D957DEE2 +7DA4F85BE9EEEE9050B2C092B117B39BD53D34623BFC77151A26EDEC6A1322BB75F60582C1A9 +6B79F1A628A927797E99F07CB595D792B6EF5F0A1F1A892C4E4A4A8C27E92787F988A7C66C49 +742660C82CDF471677B5E5BA3F906FD43BAA9FC6B7B92CA039AD1B1FF0E059F3D694BE592D0A +EEF8E808CCD9D971143564591836F4FA1FC80C7A0D38DF4E7940C72B020744610CD1C49D03C3 +AC3A3302421DA851525D6A3E1AEC9BD17E251F6E299ECD797AF4A41C483259FD398DC9E39FE0 +53CFCFC5D3F66CBC92A935905085748AFB53712C428D3EF68B52D9E2DA7ED7CA15E88AD7E978 +0018F5FC22D5879B67C4474A8723AB895B8E1C414BFE0D1A4149C955C124F8D358AFBABC83BC +8E44ECB939BAB7A94E6B908E633495158A693F54C4C17BF49A1359DDD1B45B4AB7A1AA3C8936 +1BC7C77168D6768391A77494E1194BA93F5EA7810EAFC7B891E9F00E5EB7FD6D65196A6E31F2 +EE3C737CCF3AFC385D2763905D5291E7B9332C37B744D3D642438D214ECC5E2F347A7E54C91D +6960FD3A48E9B610547119CB0CE832FF2F43B9148BC86BFFA143C0B9F656BB535A9B847F6921 +BB94023B29C2B61CFF5142B105492E72DF61AA8D11E7D57E5E6E51E78E598724FF0DDB2FBF46 +016D43163ECC2FF9EACD2FD81BC3FEF391B5092491398EA978D6B2C1FDBB35483F25750C1770 +DEC7D915AD82A664AA974E71AB870FD37A9A99AB2A931FCCD60CAD740496150296B8CEEF7117 +4F866E17A8CF440CAC15764599039FAA86B123DEA05B09DC1D6B6CDCCC1F1323D292AB1F9DF5 +C6F6F06FA5A82164A331E0A531AE1382A05D92C936C8F38E895A1A5181F28D276C5D5A4A19FB +884F0DEFCE78283FCA103A856038BB9DE443478C84CADF091A99927DFC5B16E65FC1068C11E1 +7C4AB303B57417C156ECB7C253BEDDF2FE0696B7DB1A27B5FD5802FA7F3366E19AE0BB57C2AC +A8D5C5B73427A57FDEF3FAA7C7161D0EEBE023CEE868D11B6C768EF808C984CAA021628D5C6F +BE2DAD9C5AA87E535D0214D1B01D18A866C518827740D1D220179FBD8583CF18CB66908B3145 +F1793398B9372E799AF99DEB62F132AEE291B5DF78A63E05E70B484D0E9B4BC0F539AE249784 +012D44498BFE016714ED970F920C5D4AFFCFFE2DA175E6665170354348C3CE34678C3F1DE6BA +413981D202C21701E889A73CEA94A543C8F22FE6396C5C8D689FB39D92B28DE0235B4915946E +D91E3E2253A7D71285CB0C3DF268627D0334A0959716781185DEBB69BC71BE45E2F857C9460A +ABCA7E0BD4DD59E83C327C13EE0A9E31A0E487AB52864397D3AF3561F46B9E63F2C337ACC723 +1E19687F60AAE3801CE91F92A8E8E258321441B85AC48CB49FDB03E030BFF1385DADC8198930 +5D91C427CC0B844839602550E1BF9AD65056A2854CCEAA3E63C7254A5A676D07C5655E2E0D05 +115BB2A1B65B319BDD714F53E06BBBD30C300E9920A86B4F9957401D18E30BA857D2F8655B0E +64F5060BF45BA627EA303D536AE280072C1DF549CA3810802B83C297DBAF9DCB8B25C4109ED5 +85000A03420C44849CF92E0F4EEB90F8A850ED2364EA517BA2966926BF4A6F5BBECB8A953CA4 +6A1E9379462D3C8FFD43721C69A425E3E410F06B22FB6A0782AE4D8619B1F81FA1055AAAA789 +EAE744D80392D64D693DABA3B4AA748FA3FFF60FCC77C8A6F14A1F6EDC74B99B6A19548A2566 +B4642BD0C4862B355D1D4C3B6A4EF740006E00BD9C919C2ADA474B7F98A7DD4A355F671199F2 +4F4669B4876D561AE50A7A65302DEFD9425E79E2520CECA77746E4853081C4677296DEDE9EB5 +47D2E873B96C5E79DCFF73162E27472CE05B74785F2C0666F68474E08E0FA09EAC268F1247EF +60CCB0B71D0D5026D9986AC1FF1B89354FCA7569EDCC74390A778EEA9DA950154ADA829FA983 +4CEA3631062884D9CAF76D5A60236B3964862720FBD9A8B1D06E32CBDFDEC82018924AA3E695 +86CCF88BF1BF2CFE5744DB733CBC01BE029F6817B9AA7B3EF04D3CB92662F07F6ABC5566EDA5 +D20EE3C35180D2A6A2241BFBF1772B082326C52A084FD2C356CB17854D2AFD8196AAD3D93289 +DE7C0BAC0869FE303F7862A6BE22BAF7B0164FAF03ACCD429C26755BE702F6256CC1F551D8C7 +D21A815E45534A893F2143353C111AD5067E50FB66E7DEEEFD02FEA192ABCA05BFF835298A34 +C6A980AFA74C0FE7FEB77818208DA15B0F4CF17E3FCA2E5BF78FC91BE5331BB28248C3F5B49A +63FDF55314360068171DDC99744AEE85C38A4781BC40E23C8095130A44E89C39D27D876B8B79 +51D19CAD460AD8DCC7451BD301CE8E48D8D424719EAC7E5CF65ADCF2F4574872C76E657D8AF6 +2C98CE01E39EDEDE27CC263D912B5F02365933C0E5AEAF12904873F128BCF5DD793499DA5D50 +100CAB34863F274C71BF90A7566980FF3942DAE124C99B6238EEF3C298A1E4D21FDF8FA1FBBC +D8FA4AA40CCBD27C091586EF918DB7F95395E7FBF4A6E27E5890434C89371D96474FDBD6944E +F634DEB111AAAC86E21971A095B0586C468EEB760A2A11B1057B77A73CD0CFFEF17F960516D0 +57B602F5C9C3EE4B94511EDC97B0A083F39116DC7F5DD4CFDA27CAA66A015627591A84E6BD4E +1938FA9669BFCB8BD056A11945B51EE19B729BD61A7F28A3660D9CC5DA4B2FF0C33B03BA2A73 +DA8B9618F4A3E0AE650D81FCF61DD771EFB1ED519EF7D38E9DA59DCF5914D6CFC3EDC0B33CB0 +30DCAB3A1B34C4C1DD60F3B005944D6205ED1D0D941C5D119ECE42C1F94610FC309B68F037F8 +270827C93B2611CFF8E8B1C737A469AA408A03888B0ACCC926B5533C8CB72753EBCCAD077EB2 +5F20A74A9087CF231371757DA45EC231BC8FA32A8FBB0D633B8DC9B25CCEE68D670C2F3F90AE +3BAD43D9A6E741889CA53E5C361B4E2CB2D10C631979BEB764FFB224A6B1E172E0F3CF84FC72 +74BEC0CEBAD5FD9B4CEE916A3B90C568D41F82875222DB01CC6C5E242C461402140C33E877DF +C4C4FA38C17C60B65789E81EE8887C910147928502310BF549F80A0BD355EF582D7409292340 +2595DAFEB852D0C5FBEE4FFB18F5B002CD8F27C5DCDADE59AD3628963785436EF1F08A823221 +4E8C289252081E2F944A363D4CA54247A90129ED37C4A09F3E1C36CBCFD5A4E3DC3E835D3D63 +4B7CD7A94A4896AF16D47392AD07D7BFB71D52B252B1D17F86135F293940A9B6DB810B53D4DD +CC2BBC1D9F0EE277925D4A451F4C44211E301803392E5D476690D5C244A4B996D48EA060883A +16CA4ECF336E74B1D4DC623D999FDEFA02FDA142C52EDBDF9630C32034D01EEE3D8717C2B5D0 +B30E7F45DB66C4CD5FA491E01AC5B42CFA8882C2CBC80998CAF47E5A5F4C7038D828E2E48CAB +1CD66BDB5C47D048088F6AA04589589F6A42FEA50109CF2D08F8FCEE4E6B99FB4BE44108C3E7 +969508A8227FAC740582EBA514C9F54692C771ACE17100D881F01BBE2180ED0524DB228A1848 +4AF1FF5EE548171BF7BC6C8520DF06459489CDA7C2C52D4CF1D32CC6ECC560E38D037B7C763D +89FA6E73D6146C1855DE49C40240FE7E57E3DA78074B1B811D5C80C31F24E3B3F86EAF4E79F4 +6873258F3187ED9C9F5B5FC9E724FAE144E39400CC89C840444DC1172ED7DF4001AB18EF1BF5 +384CFA362CE93744221233DFC411250C05CF22244318ED98CA3DFBBDBB9C792FA25C37E526D7 +6AC77C82CA4059015DC73892265AAA7C111F76ADECFD42706DE2D7B99EC43FF7CB4865EE0C44 +7A685AFD41CF4E216CDED60964A300673EDBDE61F8D11036296DA49FDE277328E646B32BC797 +1A600484A7463C7084DFAA3AFF48459ED0CEB7C012A5759263EA50493830F0F152C12C87D469 +BBF8D150630CC7E0CA1DC96A72C881E6572F1B7677E270C7E4A43FBEA60E0B341A309E764418 +944610997261106424BC984C4217C9B5A3751141426431A12E48C3FD5BBEA9326F6878F9A8C7 +6988F3443037F769234C4E656DDE7D02F15DC6CC5490CB389D9B8476E5BD63979B93CB64244E +E2AD99160CCF8A0549754781A74D109AA2C3246750220AEBC2920890791C161BC73D691E7AF9 +0A61BC447EE132F95C2A9D2C2B9CF4EF79855B76EE087640EBEA76C9E445F269AE284446DD5B +B4648F51F794B7D59A91C5EB28CF59FA0EB0854D19375EFDBDA42856214A86A5BDC3A3415BFC +C5F8CC20A191239DE0D266352C661AC95897C783EDC3E4F82E4636C36B5868D8971699B36821 +B95B1558DD0F022E72131750C7AE3AF3C7300BA782227132DA8FB53127CE4853A1F7DC0EBE5D +0D884E5D421801EB5DB4C99C1B9BB421C34689013CA0DDAD308D71464E27DC99ED7A8D4B7940 +A89BFBC2DABACC1B1D8BC63CD2351AF75C862427A4D943284946C968C5D97B3D8D7F2E246EE4 +8F1120F1BF7E972E4BFE1568D515CF55F2079C6C17E7E2D3B49C36DAD852D37589B8D7F43C53 +686CA5CE895B3624800B0349908883B172378B84111027E9A1BCF74AC7711C147EE1543A16ED +EB5B5B07C56D1D7D4892326F8B4D940769FED70A2C9EBC1C022BD9E271C9E2DCD603504B20F2 +AE9D5DF7FE594D4D9592C1DBF2E25EED41CEA59D7CF7F3E2E71284DF25804B4F02EEE1403BCC +93556068ACE4FF8CF42E467EC33BAE01DAF5F79B4F3802F8210513A1E55E767C1552E1743953 +1A138F99A32BF2ECD630532CE6EA32A0536D4B21C8EE164D04B04C3ED5C9DA22E005A4D728A2 +A9BD00A3CFD12EC95C930F96FC2999A7E2444EA646B249E85BCF8B445EF8DAA20C751FF98869 +48421E4B418F6E26DD3C41B3633094BA2B13992FB37CE9ECA0EB1B560686079881EB2B22F70E +C1D446FAC05D1B03912575334A119833995EDA4207BFE9236AA0AE2BAF6CDC0B473295A9147E +90C7A75072BD0391D7B704DB906DDFAD2047B1C4A5C6E536E1CBD66C923E7C46209673BFF829 +F5156567B664F9FFE5713107A5055596C4306A2605E288527DB95E8E7EE36712CE1721D90110 +980BBB1769EE8BDECA7951078E85176E6965DF1B0BC479B177E93206A3B12A6D4C032FA2F233 +2FF912045480509C2A6AE3B980225C65F27797B51A3C821515472CEE3919F9F7E5EA61F5424F +AA10D229AFDD13B95403693950549F6325D6585F42A686D782209094306F2B40E28DCDBFDF5B +CFAA7DD7235F5EBF8C02A7F80E9DA2A2CEC40C209BB04C87F52FBF537AFAB78514AE04C505EA +BBAA1126247AD2DA02D01AE94FB71B45CC5BE64FDBBB379B5C0DE69159FB7260859EB1442A08 +86A4518FBFDDA539A7AF40F1564613E2AD2711099435C8A9B60B60A7973D69BE2741F57406D7 +53DE31044A6D2375394722503365042542EC6F8141E1D9BF7AFE767EE11A92DC2CABA951E150 +AF54845EA62E5816C4E27B8AC068AFC25C16291CDD91FB8323C431B8F1EAA812D3908ADAFA55 +C5D279C377035580D6627BBD901410A9548C4720C98D89F515AE981BBACC124C868AA9345E5E +F09576A7B6417E3D985C52F3C7B0EC3A461BBD884471829845D948E86E80D0A4E813812E3E88 +5CF87B98AE1DB51CB37703DBB27F4D02E1AABFB26AE21D5FA3A8D35E7648901FD5DBE23D04B2 +A27E86FC41803E67C3177B1153C8C49DC27AAB89E7603B91D20033BA2275CB86FB4FC64341E4 +C1935A18344ED6E27D23DE0B42E00FBD8122299267D0352923F930F298EFCF03915C52224429 +C4E11EA1D27338720542599ED422F63FA820112B72C8A1C1D159D8273B50F6F373D8604A90B4 +45695E4A769AE5CE4C85559BD7F9961AC6EAAFB26845DF83A4FC6D89BD9E91F1F27AA38D0A25 +A3C5C8E759F31D823ACBA9503EE82C0F2F13CAAEC938BB785CC82C6629B227617A2BA66E0DC3 +A57DA1A9F5D09420A7527E19A4348D793FEFE5A3CB13C7398BC8CEEA7E5B1EEEB80AE4F71C50 +8120B950D4F228DC8F294140F11ABEE23A17DBA41CD271ACFF490653EE631C3B05DC4FC682EE +F1854E562140556D6B19C7FB3A9582FA768B00928AA624CFCB41C4AC2061A365FEE4588A217D +E295501F0F0D4B5D93A0F95EF093AD37A204F0C3A5D8B7195216341F6313DECD91AADFDF7FBC +481B49DD050365339D1B86E818C95572A4FCF3F95224C7343579F55EAF7DF2702C858C5142C4 +C493869381AF16040C7A0E855914247C96DC43141F02009FFF2D4B49643132DC43E99C12DE39 +B2EAB6175174B01BFB7D2482EE3D9B7F65334A5FB4BCB9DCC7745E599EB4D2E4274B345FAF13 +7D962860A259BF190764147BD61451E2EF77C4001C10716FA2F10BAEE1CB05ECCD49716964BC +A7B1D76ECF99FAB5882FD1EDDFC1BF359F4827067C0CC6EE08B405024E2582766E96F7B0B008 +8829C06DCAF411D70733379BAF5B9E581999FDB83A9C443AAD1A15F25F88FCF0E0E8BD82F7A7 +688AFDB1EFFD44AE01EAF97F8C6F44DF561B9A31EACB9CD75F912279AC7BC964988A663E4315 +0184FC1A29943463AEE19A931415B548E4ED13C33DFC76D7E017F1BA3AD9D47424D4D112A3B9 +D2BAB92DE15B45DB939FF356924634EFF6EC38AA657F9D33763BF394DC473A3507CC97D396D6 +918617D6DEBC032DA6EEDB171F3EF041F3E478D83C44700E7C90DC710C4909D5CC37224F041E +4D21879865EA2F3AB902433C179708692BE58A78C39F5A296770114A2A49939C256B62542C98 +C565FF65B6BA80655975A933A0F7FC78435EB9CC4BE04F8CF70AE7162C4117648AD89AB90892 +9216CA39D5B0A69BAC6D64237B9941539F83B3D1C77BF9ECE6A9118EE3EFC6E804013F3262C2 +8CC846D0B54D56C862FC81E4886EFADAB272BBA1827A2263C038A228C3E1D47F38EDD3E5E878 +93A42FD945481EE5DE0788DD583735843DDA1DA0AC421D49EDD1C6B58DF98B0F0FAC983084BE +3AE06FC7B4BF733C5542DB10026067523E5C62E46F940A7106C2442BD1D96870097C7C3827B9 +5C4AFDFF6105E987FB6593E399F258B0C5E11EE9CA3ED47419F49B84A3AA12E4E83DBEF90A5D +0587080EACAF0D1CC33A7BBF34831FE786032A9D369D17632E133E33150B70FC0272EA8E1BD8 +4CEB91AAD758755F89D2E10DF29869CCAD648554A2D4EF69B1497A3D5F5C6FF3893A4DFB54CD +E3DBA71747BC0D50807B89892F4AD884E3F6A933846741FD9C1F45D2802E726D81E3B0697FE9 +5B603DB64CF7BF4157883448D9F3A64F877AA16DAEECE1CBD8BE3A586D7DDEFD0FBEE8D0E476 +FB132EE53D60AE2D0F29EE9A6E28A6DDD9F3FC380157616C22A0B6C00A9CF0978FB879D6EF04 +3E36599F477A485C76EBE7550784498084821DCA670A4E5A21967BB90FB128B48AC7694D4494 +648301EB2461329BD70F103B97D5A9B4DDB271E62ACEB362B32A00177997EDE2EE226381EDAC +40A05533A983D919B44CB8CD1950FB3590781548187CFCAF63E51ABE0AF5F051DD76D6A29969 +B6E6F823DBFF253CEDA7E3B052AB03142976823862ECF2EA3E32B0FFFDA367C4778D0716A82B +E72382697998CBF2C614FF339F1490461EDCF4DDBF52DA7C015B907A929D34949667F3D8DD24 +3D43E71F784B5A703CC192AC10C0A843F9B89E4983272527741D4C522129716588A9813F02AD +092E48775391A496C8C3F79D687D2BBF12F5B86BF2F4629141CF756F7F38CDAB54DE7A77C2DD +D41D3E6F2ED02B2EC4A6A7460DCF154224AA262B7F6A1DD28FCF94800FBC9098D5663A685443 +76E3DCE825FFBC8B0A61E3EE109A53260445EED2260DA756332E19945C154A9C639A497D30C8 +11B1DE64DFE2607A0B1C5DB90878F450B129D57C2B29029ACE15F2DD43D22EB6FDBFFAA23C05 +B067CA9E051AD4CA5D6E55A7FEDD46A15F5147DE70C80F50D0EF928C7075C59711D5030AB145 +7C5D2C51376B991FE7727C420CE8CB1A264ECEFE68D72CBE0DA83FAD44E05AFBE9F3053525B8 +BD6DDFA02DE16EECBF34C8DA4FA6D37A3CCF579798C2F85FF56EB0B6EB88F3D214666F59A847 +FFD3335290191B7851455A658A41716D0E61BCA62C9641356483A1CC0F62B58230964D778FD8 +4BCB3DAFF8CF7094362884349B7837410FD52AD56D2DD4282367A6A3465AA0F11BC3AD5744B2 +8936601D96DE4B9730D9D5873AEEE0CA8F2001B9A370DAE2E5AED801AC5140F02BE6E7F15A94 +4A8CDD785EDADC20FA7086D4ED7E9DABE64DB40EBF6DF3F91303B6B70E0A457FED49483C15FC +766CBCB2768216E2822D14EAB6A99218B31C8EBD455BB4C7A25FD6BFE98E81D04C9829438FF4 +80B3EE59BA8C6B4BACC8ADE180EF917C6B65FED47FA4C95F4197A0D5EF8D795BEFDBCFAAA47C +63630F0DA36C88F43FFA4F07101AE1945FBD5DCA0289ED8A5B386BC1AF449BB87F363E7C5895 +B5CB8B9BAE90BAAF558D08EE53B434362A6FE2E95175EB40F790280390551AC1B547B475FFF4 +028EAA85B448BD86E0D7023A3FC0E1E8B1E26382F07C72E3602AA2E87B084A3933F61569B6B7 +A1CB140F707E140CF750252DA20867AD081655E90C9120EA7CD2E7BC88D62FDB2A6ECF413FA4 +3ED6D0EBD1976AEB09E1E21DCC696D98931234AD794CA92E8ECFB686EE5682B0A4298155EDFB +F3A1B50728ED4362E95B9DD6963470BA42508C12C06B1FE4F02CA89002E1F43DC0884D7F9244 +53EB97877DDF4AE99662DD817C3B7294E81549896A9C0D4CA67FD1C0D6E8A9A4380351C4AB6B +490F8A3C446FCB3FDDC7AFA7417CF0E63D2F3D83BDF52800B4B3328EDC223BA2229E0CF25F8D +AD97839A82C029ED76D4AEFFEC7DE8DD2FDE3224A165DD190C434AF5BD7E71C3935B1ED674E8 +C2631F9094BE121E0A4FCE18E86E452A404E5F3F7EFC1345F3736523C67BD10AE64D5F827764 +EE7264B53C2F7B4EE809C030274EEEDFC90ED0EA7496A70DF1E9D29FB70B7F25FD1D47D54812 +091BEA1B2F427E9FA070FF0047B4B55BE327367D1F41A077661B743A25B64D7DE8DC7E71378E +EA565FA4A949F608F445AD88987628950A9CBB305D1B8B6A28E94334B51C2B6E85AC479A4375 +A36DBAA844219A5F267C43964CD386A58CB262B79BF5E97644BEBA033419DAC3AB7A4059C29E +04A7F96D2E37E66A6A73D7C81B519D927110C68A3D2EF49DC8C7766E14301D47A25347959B22 +6E0A8A6E3F5EF84A6B14B89CECB1ED734F6125F15A8F67609BF353AD997374A47BEDCB758E60 +703A7688A978317A1EC3AE104AB21DA77E0EC2D79ABCECDA08F4384850F96E28A1EF836C8E58 +FC4B10AB02DB845A16CA4D5F05A07E102EC1B962D69E133C6EF046A73C14ED81419FDDC082FB +B54CA9F5CE0916BAC0C2DF7FB4C3836BE7EECDE9A20EAE6906A4216B1ED6741A0EE19D2B1729 +F73A42571D128FD0EAFF6A475D694262F4B3A5351071ADE5537A60E83EE90BA6C7E68B1D10FD +15B47640C9E09D1C7728C71F85897D000CB885849F95150BD180DF66AA03BD3249EAE1C31107 +58A2217B0FCF0FCE5C0FAC8FF219DA3558B0AED9BCF55C2A0C6D0A0098B4805D2101C565F564 +A0B0FC73FCA947B01C7308F5511C56D1D3178EC5CB5964AD3FF16E96776789C78B301CF8CCCF +DD6D073A749EC3CC312A7F619C9FD552ACFC326A4C8CF11993C18BFB1ED8ADBF4190071E50E5 +6B5269D157D57A268DAD4D222349720951981D9D7D67FBAB801CDC52B3A7246C065FEC21554E +1F252AC4191EC0BEF9D7A3087C8E3DAC7541EF6C0C814C8ED150063778DB1856A7139E5D3AAB +365FD0BA5627F1961173198D860DEE80041371A9EFAE8F40E8EF2227407A970E2D5B9C17161E +E33996C32E649E3A038A57CE2C1E48ED2E5FE4B97E21E77DC4648BBD237B883C46E4C3BC46A7 +668B5E2314716610909D8442B093900F05F22D2A74757D14D8255561F55F0E4195F43F1A7CB6 +0DA3DB839050415F8803865EACA26AF7DAF557654D411E774F868A84CBAB946F46F67B8B8D70 +BF3403B92361E83A0E50F59449D2CDF8B8867820178AC711D36D82D22FC961ABBB409CBAFEA3 +9795C836C3CF26A218CF5B89CE505A8B12A347B97F636ABB1F6CC33EA8CDC31DEA4035CE524F +59A813A35A0103EDFAC2A5AAC87E62835090243E6464315C37A2820253B7E2A0B1409B6B3911 +EFE5C9EF5E14553F6307FF157B5B8C2298669F5899DFE3F918A2DFA3BF17A79AD4643F801E73 +89D09BBE1BADF12BCDD47C60BFAE66E04395D5C230E93F0D37D2B519CF7227C3619C2FC11B62 +E2E1774A3198B7B855A28DFCE85A85CDA2608753A4AEB481BF0B8C48A8B1C1A0ABCD70FFDA2B +1C653DA19C8748B3ADC819E2AB6DAD95BE57A5CB694336732534AC89C1607800A822DEB71576 +281CB19F95C25B1E074A76EEDEF5F4C12C124A0DB480CF3A9E43CF9E156D4DF98C64E5F56599 +54B48CDFDAB3FB52B569BF0C89A0F9A9EC191F31FDA872B75E93E0F23F81FB25B16B51C72BB8 +F6122A3542A14F1498A6DA9DBD6299EB42DD7C26B913C6FB7C14D47F93229E34022505ADE87B +1F83BB1AD18F56B9EF96DAC6993803FC61A8009E20590769F97FCAF5E467512C92B369014551 +022398B05EAFCF66D19C03D632244F54023B2BF91A54F29EB0FE77A85A2D37C97598DD703647 +B9A6E01EF76D02275369551B5DF9F49EF8030674BE38651048DA6144B601EB1DFDB120AF2AFE +9DCC492811608291333F37DD2AC70DA71C41C460ED4109961496B87118F3A8DC8E990D3A7DE0 +46479732F6C8FA04BD885A5B75CCB51ADFC03D2ABF271BF6EF3D54094A9BC04B06BA7F812E21 +2B6F2D75D019536E493DE363339F6963011BDDE566861211D76446192DB16E044E9FA65317E2 +1500DFD6806E514F0635479902CF88450FFA671C183879CB39765CF55B9E136595D9F5F36CDF +B6F774874C54CDEA2E3F4B5173C967AFF37A0DBEFD3224C266B1BEE9CA10AF9E52301A7E0E90 +CD51CB18722E9C55210487054ECBA7ECA3516B16DFC0CEA85F389E12EE4E3730B21639150CA3 +5DB82E1647FEB3E43FDBF4977B01A6415364E9FCE15A246B3C1AC1D02CCDB696E0E35D4EDF2D +7E1093D08B7090702A8B549E17E652319F278117CCEBF5EE18CE0BC07BABEFB2C3CF43105E1B +2392F614426D6E1FF141F75F89C95F10EC344374F0357EEF92CD2F4028AAEEAFC3140DF3DB74 +8B499CF12C3BDB28936B12BC2E83660B5E09415511DF8FE8BB11D57163987D7D53A58F9FE9EB +A304E6193894F0F4E8B83B8A83F11061C4FA7AE1F7989DB884D857A42123FBA3009F0F268C01 +8AF836CF7442137103ED1272BCB2EB3161A73B72405D0BBAFCB2B08FD9F48505DBA221B834D0 +C548F4584AE6AB00A36C4E52DED9F91C50108A7565AA3BB3713188AABFD11A8D61EDAD0EBC63 +306BFE08A5432C2CB3CA9198CBB735D7F9094C10724883BDB78E488AB283FE09C8D7E87A2F66 +267B2154C0F3607F87F7295B65A88C8DEDE51F96156EBF5B7D62A11FD6A3907F7CF6B91C8A66 +594150B37D3237A8C8FB95BDB7677B6091F776BC0B9E958BF57C1E896F10925029AC13978451 +E0AF24F920748C12D8F2EB5FA9BBAF27136D5BB517A919C4F767DAD3571A54CFD0DE9E9BF069 +21421F288887A1EF09CDDBCD963577D78E0D0B58A7FBA75587F8FAEF9A5401FE582F80AD7403 +A5840B3124F271E787A4874C3720B126315C2A9D97DA12634E1245A00B3D1DF5857FBC018EA1 +0928670437C40A41933883891D373968A3C02704F3215C2A89C585636A1DF5C222596BEA1F88 +E549F692BBD741560A73328026E35A46942842CF7E6356D86FDA3DE1A4524A0CC83D6B30D763 +FFC205B53B2CED6930C68BB1F3958AB3CFE6AD4A0B252BB55FDC28350EA781F44F74478A7E31 +6E3A43F8147E65B89C15FA1696399B40A8E80834B91364CFBACD56EE7A7C5085AC4D74EEDF83 +0CAD674E929C37CC167CE8CECB8FEB6EC52084F19A15AC5F5ED7A526E9B0C7468C79AD90DD17 +71C14ACC3519B47D4A130CCB9F3B6727B056D4A322D6E08677FB6270BCB2DB766A9E96A82310 +F87E8354EFC402254DE2F8207CDF5B7DCD7738E0434BB3F507D8B9384E4DD90853113DC0A08C +65EFFA8825A1C114C7AC5D033DB237BC0C84EABDAFC070FCDF9E3149D0CAEA2388EBEB238BD0 +A66448E3CAB08CCF8A8C1DB30F28A8799766ADAFE1A8DDF36067BD8677E1F3FA38F93E7CE1D8 +77796B22F8EE59D3FEEFAFB1216258A548D3435B550E21B676ED1191C3C1B244D0579A2E4046 +2CCC8B3611BC3FC22A6AD2E1525916E374B42CA0B37800600C08A6549A123787716EC5034CB3 +9907815430A08AC3E587731E4A2D208D97E3153C110ECAEC20524533F425D4123B8B67D0B5B6 +E668E27272AA11E92138FA67675623481D2FCDCA57081F7000A00632FA07D8D1EDF5E3C88E7D +2FC3097AD9C636A233C8EB364BBB5478F6C5CE47BDBA078BADB4FC410D84B6259280E9E3B73A +C58F5E7E2F68F08BD8540562B676978E851FED7C719EF8430FF536785BC3F05BEBAB7F512BD9 +0F02A39F079E18502E9FC0DFC7B3D81D2EE1F066A67EA9DCBC741160B62A16BC722A2460E70C +EBF21E55368AD6390C6F151649F504E03B8E7FB3BECDFEC89E3CFC2B81164D86F4498832B6DD +61A558D03090126FD4A6B3B234DA85196B93C98C7C9A5E74E76FAC5B8B97F73A894AACAFA275 +04EED8EA0F533F31A57D2A6FB0B396C389979AC060DCC48B2955EEE7BD2070F78BFCC02FF6ED +495DB770A71E24EDD0717F7F8F0C79CF14EC83070ECC8C16F3B905CF79814875C5BAC853DA1F +A00A2031D0594374219324D1983A7E30AF17BC4289EFB472DA06B2AE06927ECC0AF0E02E95FE +7B2E1399BDA96AE70DBAEF5EC9A7E1102BED3C50F25DA5DD0F51A8303510A6F55793DA47EA94 +E8478FB110A9893A32A9FCBDD460BB73FE92E0F6A360D6AB941B33618324DF03857A09623D35 +FD33F51D5668F202B984DA65F56BA77EF6E898E1A0EC958159717BE2ADA3A76D8991440FE4B5 +54199FCEF98C679BF4AFCA4F70C9602A9B6BB21E62C3D28759DC813E78345EF7E6B45C57D760 +148FD6AD015EE163F2CA223D58AC7D18FCC94B79F0D00AFFB4ACC2FE82E119B229BBB30A82AF +2CFE2C60FB101240AACF1993F34AE5E9C656EF1D6F42D6361CD110C276722C87B69AEE3175F2 +541B3E4A9FE1B0C1645DC8ED0920FF9EFB97BA23B261ABCFC6F1C3A6830FE5AC5CE4EBA2C228 +6816AACC94A9B933CCE2CE73BBB215AA27D677C82972BB5D1E53C33464514586C81B4D87DAB5 +44A6F414DCD8A11F692A60BDC8FDEDF172562B0D678133A89C2901B8FC8A4ADEA65C2365FEC6 +EBC3FD2793E5382125AD6B04526539B2E53F31CA0D128287E3ED9E98CC553C3DFB7824FE6F4B +158CE78B7B968BF69C683A6031D0D7F7D26F801EFC38D6DA539981D373E345D60AA7271A6001 +C78E053E3EC45CADC381C719F8CB1226833D6B5E73E1C639F888CE923B10910F71A3FEE1165C +18CCF8123359025BD638D86A8D35D93EC202B532EFEEDDF4F1FF1BF8DC8B301BC7C01D445820 +7104F56E581967FC6F60C2BDB021E885A49BB9317EE64D17E856CADCD4B03759353CED0557EA +06A778B41D05988C97A885FED5E7AA813763E482E92AD1369C09E05D1803FE672DC66FCBFE3D +066B60842763E5551B6A55A19BD8FCA72551701ABB874E09F199600136D1C8BBFC16E0CB6F4D +F7D7F63B49B0300957297F2624A867D3C547CA5E5C4F67FE908110D7F872210D844865A295BC +5011C7447C3B41942E7704AE5B7ECA1F9585B2D0F453FE7AF2E6C6F5E158FFF1F1A982FBC8F4 +90AA4976D2596E091ABA9CC19B264E0E71651218E2C487823A73F068CD201380C8A39A7A1329 +2B10434A4317B163FBAC2E2228A2079E8DABCB89A922773DE75726823F1CAC3C1F3EAE89F263 +629CF5CEEDC42E1BA576AC07CD8F136275EF9122505EA08D4B830D06232B5572BC5B54BF0AEA +EB52675C1DC5B23DFDCBFC186091765368797F4B336A83F61A6EF33B9B3B1A75077D30F78958 +B4911742121302AD1C2B96F6911ABDAB62012A4194BFBE27A91979261E50A762B47A33D88205 +FCE4EEC012872DCF09B1834C5533F309AFED3C5304BFCF8FCB7A9DFFD9887924872A02CF80B1 +0A9D5CC93E1774D6801DFB8168EC3EFD094A313E40138BA7C43BA8DDD0198E3FFE615C45921E +162633937115DDEC6B4E759EBCA9A0BE35F90FE2933CDD39AC6C2571140CC8897B8588BAAE23 +01063B7C18D4693ABFB71A54D70210F08B9EC1C2BAF766D0D6C969C2D9588F3717DD00FC43BA +DA9AE675B1AB24BE802F8496C2E85178BF1AADB98BA27D15BA3EDF9B6C545DD72E022221F216 +6A5595CD74939C1A723A2EEF866FC5E771732EF0BBF3454C4BAD82E4776D9FE6DFC4AB4DE839 +4E36F8752BA6FBAFB754C5F0E4CB2D428EEF3A1502F36D2A7292C7CC510FBE9BD76A6915C4D1 +BAACFD114F0296EBCC54A77E34C8A954045E09B6A2314BE1733C5EF4B6F334708A74D5C14FAA +86D00FA5E116F9C0EE7DECA48977E00CD2D6A1B326C1D8EFCCF139E2F261BB8CBC33B9FCC9BC +78EA7C469534D3F3208281108E19DD5CC69800856B8F747532B3F56AD2700429E4309B0CC8C8 +3F414EC5F17C64A56D917311E1FD55402FBB220D532A00E7F0450F2A7CDE439068AE41432446 +62DBD27103D92419BDAB593B09939E91A6C55DEC96D424CF8CE8C1F858A59660E3CB669C1D84 +17A331DA3A3F46F6D3DC1380C6FB548E51E9DC292423FBC9AB69D500FD8E1BE5F255196AD832 +603B2CCA2C8880CF4E833E0EEFC5E5FFAC03BA6B857FCC0C7E796D74C625F22224160DA5AD21 +901E1C161820082AFE1228977C17EF607AA6A17B70B4B5667CA6AF117CF8F9DD2148B5AA9F46 +E74340308CDFAFBEFC331B6ADC2CC94F8DBE8545DCD0414C5BC6FEBEF8BB639CC399CDDA9F86 +35A51FC0D5C8BF1A00B285D86918C2EC1BA5F89A3BD46048F54506CE0D56DF8B1F4C99F35D56 +396B504C624F76957DF2FE5E12A5A7F36BA8ADC145762D01C5EB567DDBF9EBB2E60F3A2DB468 +CD16E27AED2C122B42E4928A9BDEA5B1EAACD38B07709C5699C7D398510A0725C02A38C4D0DF +1C3CA300A4B28CBF321BF9435C7979B2EC0D6D4E264FC7FCE99158D9FE1633343C2877317DA7 +E330FDAE1C496B5D0E7CC9359E3209AF81B5CD98058BB4571AD047701954B5A2D06E7F02FD7A +A4438B49B7D75647AE2467F92EE0649E1B5AE52B6E38CF607E911BAEAE18AB8A6D297DC03A3C +4412CC132AC5DA924903220AB646E24888DA97311550B8BFB5471ED1D6C1C52D724BD8AF4F4B +BCE5093E2129B790E9C5FF6E73D7FB73CAEB366533770E8E0FB6A8B9EDDF163A01AEEEC7A7DC +51FAB6FB8E5F7A9D1FEA257284B6D745235D503A747C1602CD55B0C088F68FA07B1706BA29F8 +ED83B7DC31824BF71A9FF2989B5B8E662400438467C435361B9E0DF59AAB00DD5A96C8057D84 +FD6E161CBAF160AF409A7E731A0FC5B627205ECF832B87987B12B57791BA84411735296F5184 +4C4FB8DBDB24D01C2A9D11A0890BE7E7152C316DC99B607B719A58658C4EF2D2CA8C833DFAA5 +EB66A5745A0A312BAEAF3B95523BA642A39D6B1D8FF215AA63FB5003E5B9D789F0F96890E7B5 +146032AE277223E77EDD91281CE887402ED01D0DB1270202B68C139331489DB7D8C80F84271B +49773B3042856976EC5477C2512F7CDF5794F9B5B38ECB9864079A19118948F24272B487036F +1B84695666D458BA5294ECDA99F5DE310AEF35FA4E6CE930E61552F90BF84FB2512B08E2F863 +6E021A3F7106922834CC6BD63841427EF96CB1F75301F606AC84A8FAE68AC2564B43A088EA71 +9197185153986477ADA6327985C1C8F5A7EEF00C9C16F32B03DF454B37E635C1D29570F5F0C6 +B7427F6834278CB37D565819C967C42E068125271727623712B626E7C8610EB1CB5DFAAE8291 +FB77C226E59ECA782038842CB4425B819EBBD080F837DCD8CA21D463419EF259C25F575D2C65 +541925DBC59F9FB453B654500673A00DF84854FD234D895F17FB79A5D5C313471028E1975DEF +4BA871E4FBD035CEC888A5FD53C4903F4D24895D89577BD70644C253F707B379B73483E1AA84 +84BA662942E6EB569B6685B6C59CFC1E2051BCEF9B79121B5F01E3F1D27375C2D0406F69EFCE +AC8DEF65D497AA63154F5F3BCA255E88E6C9781896BF9220DE5353DB1BE9BC1C622D26B20DC1 +64872769418C7EA475C157EC71148822C32CD9A82C23D92BB3025DF7F754A8050726EF5616AA +F8D0A90F209934B544D14050FA4537F3783BA63FA0474CC8C360B9DE43034F29599BC9154538 +74A8DAE100F7696A8568527D327E4FE24229CF5A825CE53B1F9149FBEC023CF2337F3079E376 +97B2D94D3E1F0B117E119AF8606EE8450D275AAFC54E41252EF86782EE1E1088788FD7FDE439 +0EA73DCFC2D7AF6370A26956F6E12FB8AFC96409D220F0276D0F16D0E03D7AE275450093F663 +73D81166279E5C56A940315E6E4FCBDFC289CEB99BA4E309D638C1BB88F2B0E8900FFDAC8F52 +1BF84E1E4F13A78D80E017AB29192A5321EC9AD78EC53AD022C42CF211A09FA8E6E04D06CD4C +5BF1D5DF0463F7E45FA81420E76BB824015E0CF12698CE7D1CA4F8153595B85239A567D1FAE0 +DB3F0133F9D7FF43E63F300BCA2B36E6716568C703ED620EB461A2FC3A1F8BA4FDF963BD0E3E +143107E9373CC6C277134E2D1F669213EEC2CDBE4FDC1571237D63290369A836F94BC942F1A3 +3AFB50E3ABF02149679C9A8E054F7FA584CD73B9C9B307B69D070D9B142AA75B3B1725971418 +135513A4B68C07DA3C275D0C709454C6A847FFF2917E7B85C6C38DD970032125ABD9CC2DA745 +E4C3A5E7968FFB7D54F5FE9B4F8CB515676B882E738BEB5DA3C04FC4578DF59679133375D946 +D9691CC4D83B624C8DA55304FBFD0607853CBBCF42B02BCBBAEE029FE9F422FFCCD8F265B0F7 +942D2A818BCA3474ABFCA37C0E37148173D92A5890FD47CB11F61172DE6E2FEBE97B7C94A5B8 +DE03065B136C720D5A541CD20D7C5F08183595C8E603F6376C9E73D81CF7461FCDF96B0C0482 +BCA5FD76949B40AE77F923D1984C70D9792C817BE0EED8E1390F84941AF81B7CB0E7A84EFE02 +AAFDF26BD15D86868D1E73166A54591136EAEE9113F7B92FBAFA34FBA00B170A687393865905 +2D123A1F02FDB91256D89148150168D88A2A9F21E358C53EAA3BBC222B97CFC9F63D5BA1B2AA +F44092AF2CBE5C3A6554E8CE3B58A495BE3CF4DBFA3586DCD4B93202B4F70E1EA6C96191B0DF +B5ECB3FF10574DECD37D2C45ABEC9BE6C16F423A1319FB4C1800951BB20B829688EF898CF611 +52E226BE88558B9B04993758B619D29B1142E8D2C4956D825CA817DFD2D9A4F1FB3A977CE3F5 +A21CDBFDF1917538AD7D6860E56D37DC38E80767507C00EBD31112BC9860373949B386E2C353 +BDAFFEF696F87CC17FBC9E3E7726EA92D74000BB7580434BB6AF2B976BE39EB700D2AA73E813 +C1417E6C917F7E9B00E3CCD0F5B593DF5801A08E1319DECAA04667D925C25ACC389887C2649B +4E39CB55946C391E7DD5924E2242B74D4BF55158BBA308075D28AF217AA224696279F1E06BB3 +5A9A35D0EB044A4DDC9D67E8F418DA1CDA5C8D0B3547BB0787C783D73F50A2ED5A85457D2C97 +BFFFC8B49DB7AE37405F45AA45CF9D9777BCB914F506322A70708E2AF53927EDB09F2F9F0919 +A45A7E5A166CE199FCD71B2CD2F126481AFA717EEBCA8FB1BFD8EF68A31BAA689AC6AAE923D0 +9B2D3211F6F43D627A340DA733614E016F6BE48871629B4E4BD0B8F9C6B3C63460136BB96177 +2EACCC202A835A29F27ED84B82C47DDBCE65F68D684198412D700E40988AE90935423AAB3B30 +A4F4DEA2AE0219F327DE76137E3F953F7ADEDEFD60B06148EA506725FFBB51BEBA47073F4AEC +8835B2696B7664C1BECFB1213A3179E17368E768E31BF2B7FAE0AD54914D22180EAFF13185AF +26EACCC7C0F7312FE28CFD38AF9FE083FC7308F6BBB0A80EB1EC0DF7B5EF7AF771E08BBC45C9 +AFE46E1DD47847C4B041106AF728E7409C24956B26CE257E692AD93E554E3E2397F71855E344 +A013CC35219A1F434B2E5EA0AFE01F2815DDECEF3CA9BB47B90AAC3014D837A06E8BBC2E21B9 +4AECB01249F9A7F4603B2D34FA60EE44AF66B1A6B9BC83E7E0A553ED1C1676ED58F9CFCF2116 +3B07CE8DBC0C3E0B4C113C8F38C61DAC5E6CAFA1A42A13C5669051E7E1FC96CE63A425680DCC +F961C342E345206424D6297539C8DA56499C28AA276C9650D124ECDF5538C7FB529532CDC736 +948B1B9821ED5FBDCE8053D64826B20A2A24C54A3E4DB227BA709889072A602797258BE385C6 +50B63F84B0AE25F5FF718376B42EE41C9ED4DC60E228ADE6EFCBCAF54458898385F51DC89EE2 +76D344AD20C92B0FB4166B0AFA1B8F6699714C2DFBC7359A4415B011550C8EB7A9892B307AB0 +5AAA144FCDC7BDB4FF46536C092539C7B65D1C9AC597B500DEF36F07B8BBA1C76F3B4157DB2F +17289A0582972530371116E51F760438DDEF8DF1FE17EA91AD0A118F7DEC747029C9BA7745A1 +D53E1F9BB0A6200B71E959FE256069311B355D82DFF5F8E6EE1521E0C92DAA4E136B15C918F6 +83317EDEB6021C5F0AFB08D081E9DE91F16C90F7B7CB45F68F6311689F4FEDC0BB04694CC2FD +B994180B1398BF68D7607085889947EA4DBBA8CB5E9D5FEB016893B1BE0EAACBB7D677CA69C8 +602791BCDE3421FB323A954BE2D8E28D7CAD3775E24ECEC06CD70BE5003F6CC7927BE31CF021 +96EECD0ACE36A06FA542E8F8B200B5882907264251F0E22DC1FEBA7419A029B289A6CD06A416 +4A2B1827B98918A0973B51584F15CC73DAE0861E13CF94C89A6767E78DE0639E2A6499808910 +35963C994DEC9FDF2C6720D7836FE742785B70B3FAAD44501225EDDED2F0EE296C913287FD2C +E26D646A17F96DD1B2BEC4B15348AA9B3BABC740AA276CC79CD35CE91BF930609AD5E53872B1 +CBE8BA38881E141A9ABD0DD5ECB5D98B251C9ABEBBCD2A4E85D2275B01FBE086553C9BE5FA45 +73863C1085F70ED6D57F2B35EB335AD3484BB9F3A3D9E07001552C4F338986F32668EF5190D3 +0AB83EBEA58983EE0BCEE361D774F30DC52E43F56EDBA485707301C0E97961614151E455DC62 +6761AD8590FEEFB8A42A1219FE36DD060EFB1C59020BB6DD3E99A5230952BA3964C221957035 +1F5D5A136F88C33060918A8ABFF468EF23A4DDDEFA71C41516CA9DDFCABCF2439EB6031694F0 +C8F09A432E06D4EEC9F0EAE014B907FBDFB2947908825EF79D13B5C016D524BA8F98BA599108 +D070822F3A511855C8FAAC56C4CD07A1192A55E8F3B0CB755D119B98A1A976657E58BB78F263 +6DB5A99C7A67E68A16E4ECFEDDC46B3C9875796571B62980A818A1637747A8070A76708F3702 +DBBD6128D681BC0CC49B8B7A8ECBB2D6E9C29C2E65C25AB4A73B43F7EE48DA35A588DCFC1A58 +4B7C1E165F04D46C24C40D344555542A45C5D352AFBC0CF892093FFA8A9D6C6E13D0B0184E39 +C0B8D37773DFBE420F103260BD673186C0B04F19F7BB53111762A2FA44086EB268AEFE10E382 +4D7454386FB9BC2DDF7EE95E564CDF15433FD3244435992E676C475974775F19EF6234D70827 +0E8AF5CE60228D21FE4AAD272A5A03A2227704B42F49F3159557A7531EF8ED0513F456DCEB11 +BCBBD71E9D95DA4DC508AFDB00103FEB7CA3320E76E64EC0EC82B2BD79DA32F62D9F97B7E4DF +A72713863E088BDBB18CBE77D4C2556A1FC13862385442828FDE24A6E643CE0434A1E6062FBA +4F7195F76FC3F0263713B7C547E7F64ABB018A052E72EDD8CD622EAF2058E7E375A726121738 +5E00414679B97BA13AA119967610039920DA395DD027AF0313D6363DD2462828AD273159E37F +B9F2EC1C9F7A15481D8C3964722B5944D1428233D3702C12EEF5D823B6494BA5345E5CA4F81C +CB7245F00C8D09DCE9CFEAC591668B3E3F87165C75F1A8BDC04B74E9998D3964D43442F4B1B8 +3B8DE1D067C0C0EF1DA280F92AD64CC4ECB293F6642E17D8FC2A605DB397A09FC48B7E9FDD8C +AD64AB6B79928D10FD8BCE768CC72F14584212214D7758AB5A1AE15E468790E6664814DEA349 +CC0D1853CCA3B85F92381E16F27E8726C4DE1BBDF680C60151C2F821DA3D0146B85C852E9663 +A47AFB48296F12DB27A6CDEF8455C3F01B8B54C2E005489B2773D352DD36741455CBE9C539A5 +53A653DFEEDA6DC667111A2E0DAE5B3C94FF7F1107DD0E2BB9C22E58C9904AB950E94D011EFF +EAA8C1368EDFDD6D65F7E8047AFD9AE7C65883DB0166FD0F09A42927684E307635F8D0126A3F +B4C48C6299B867ADB0BD4BB275165AE9DDF33A0710A2889240D77DED747F17B7A4DD947AC80F +7842C3235B88F8114BB8EB3C6C4FB8602D51E60CC350636609B923609BEACD34A56076212CF2 +B19EC0E00B66100D9906BA5610ACEE9D0F01C292625359ED8282A5929A95052185CC80733B5B +DA5F774375519FDF3AD57675561B842021981132AA65B1224FFCDC855FE231C267046C4EA295 +AEAA8F3CE8D0D03F0CDD1A763E1D348530350D2FFE296531CD9F0E228246E6707E360A04D2AC +FF8D3D6ED3BD9B94FAD117E94475C88760DAC36C187E08C2EECCB4CA5824C2E6F6540BC78673 +D65F1B83E888786BF9483683EB61610E7245DB022E28E86FAA7AFA3FAAD19092C6C951A99B82 +51308F35A8594CADA970BAA35483CA6EF0395CEA6CB007213D2BFF08491E42FC8085EAEAE51E +4D7B9E8CDC032B7CF0676F2744BA80583AD3F0FEBAF604582AE3B99A1CF281E2DD2C47C9FA5C +EA19769D775CC6E4BD7F975EFA43E51F90C793BD0661D260F8B3429092DFFEEF24BA3D108766 +CC5BBD1E0ABB657E0C1C6287ACEAE828DC014B74E2AEA4B132E8FB36A8128638269ADD554411 +B48D8A0FED014DE3B4C75EB7B3A707A628167190C384E343DB37B1FE0465D803C6F367F18477 +9D3525697475A59F8F461E4D17BF3A1FEBBB962EAEB5B02116D216A7F5E0184B9FD8E44EE127 +EE66F6A57690161CCEB2909F3F0DF90797A951D3C4CDCCA6AC05369DE0589CF1D738194969E6 +AFF6C19A526EC29388E3520872D0010FC2533F8F5B40EC27B7ED3E0394E084FB1AE1CA249833 +8F5C0DCDAFBD9705C31871D5F4ADB80E7A963BD1C18400782462575948ADCD91CD576906D8A8 +00DEB1AA71C7FB47B568C7D617E1A3AD5DB6767FA8C65A5DBFEFF1294170163AE12A9E9F068F +4AA2C1BC5BE67417CC7544C6F6D7256FDED6665C7D480A9A2F1E8EB76EF6B21ABDD439BAA807 +26D3BD7BA41ADF460C736223BE3271CD3E5B4178358F214BEC9291BE1FFFC66DD6711626C599 +82E4B5F76782AC4990C77C2A701065779A5C1FCD635868F2DAAA4AFE9D4F724A31231960E5C6 +6474E82E4BA6E561D46312D67465D4D061C86C39C2C337333B8F3E8DE5A9D138722E79898507 +5D51A29976578EED3501D0698C02F6B66E7BB3C940309EDDD214B5A413C49BB69230FDC5A4E9 +3FE01C63FE63B17F9EA0A77AEE2B1AFB5D53275CB9B72A82C0A7A83DB7BD5F8E74CA6CE08FB2 +9793A5F94CCF2338A2ABE9A575E24E439C7AAFD2532DD24D502270DFEC66E387A237D4ABF1F8 +AF63A5D7D7A42FAC312D912A21E8FAA53770FEE70FB862A75C4A01C270F9C3900C70AEDE8C0C +338F34C64F0D69E38DEFF7F364BA78D27B11DE23E92E96BE2EA046997D9DB39F8929C5BA8BE2 +23A22C6734824020EE8F5620F60D54E7D62DB2D45117B7332F3D292B6507485C156FE4A3126B +E083CFF8337AFF1D5319E86CD18A4D92AE9F0942BB040DC663DD252B0B724F159009744976AC +AC4664133934964E6DCA8592FF9F3C5766EB0D405F3797101E2585F259287D4D10554CAE8A19 +7C9E19C9A3C8E90D0D3E8C02CA88BBBCF7AB21C09F1B7599DFED012AF151967C8F46B1302543 +27D359A36A1B44E6B8845CED61018FE4120016BFFAA99D31458100368C74A3E42E91D03FC402 +8BAC496692554190C45ED81BF10F905E2A159A550B3471ADB2556923D93DA6AA46BF25C8F8E3 +FEBA19DE1A9DB19ABA3DDD7AB50CC4137E90C7A021AEB45F403F1EE59F411B54322505C984A1 +88DE2435E8E5567D956ABED022B6055B78F22D2A1D3DF8F08A36B21C6378B2D67DB94EB9CA95 +5171A46C2B5D9B1C022DCB891345F2F16DFA565EF92D2DAC51A5C2B6217FD735E9416D470652 +478816F550F023081F6A5FC642945F70B183C22EF28FC87DA0C496599C4619A120F15C6BD218 +47E5256CB77823ABE82BD1211A9750B18D278A089CD8C4DCFE812BE2725CB05E8304A43319C5 +5B941112BC0D2D7D6C6E54895CFDA115745CC099642A93557FC3FBA4624031BEB8AA046F357B +D3E60BEB96B47863EB5EEB6BCD2423CEE6760B53E24BA47CCA097CF20EB3E482BEF35126EEB6 +1E61B739C98B62A52A37C21BF9A32E2F0D8C1EF2BAF7AA4A14389EF83D1495D83EB91631D3A9 +CB881A5CFDF018DA453EC130CBB97040D67264E5E1AB9190E07FA92D3031D531CDD6C1B921D5 +8E0BF811759B9B6C8F304EA5A1A1A70B52AB8D9DA95CE0CB927398D8F7EE51A9C5DE68A5A212 +773D988A101C6C2653FC214F3274029E6CCDE11C565457F49830E33EFC975E52D853491866BB +571E9DD516137DA1397C11AA5F61306A48F8B93E3782690F341415D6F2EE233D02E660C7023D +70455536A84382A6DA61011A8B9ADC1F0D146D333AD5F199E521053D42F4E6C161F614D35115 +15D8C2D01ECF17BCDEFB7CBF7EF0A2AE13FBDC1F6E68DA944872BDD3F93B8E12926E36FBF0BD +C52BBF8FF1558E51FBE689ADD817EA1536D0258DA5B7776946A34468E68811B1D9304FDA038C +BC1C7D75A570A2D0EFD208F668E68B80614DF0C85B653FF0AB2BE97275BFC8566BAA6EBEE589 +74B6F35B87A3F1F0648935E0105241DB87430A2B213DABD62F86E2C39A4F0C24F68D7CD870AE +40B58199FDD3A7ED0298EB3C2A049E43E37FA9902C664EC80D699DC3526B91A3ABAA6859635A +02DB98A91C6F34AA57EBBC6253E5E3EFD5B2E23FBE564BB84A834B5E1160751BB83B1E5F99EA +41B70584ABE7B269894AFDA0A645543E12A934E29249C7D39BBC78A5C882FE1635BC82998DE6 +E523DA68D1E4B3D517DDFC4A00DB3ED9466C82D4F5FBECAFE58E4F543A81D4C9534C5764ED75 +500E4B7EAD5B40F90A45EC776E23131E11767355858ECB9D39884BAC1D5FB8AEBC648140BC2F +9D0775722898CBE3A44B1123EAA5357E579EA8E3D30788AB2E8CD49B0AB1E3D03194043935CB +9F03FD002C99461CE40E1E18D36E4E2D767810C6260D366A10CCC608D465C13EF20A62C7128B +32970A839E3D262CB869876F3445CE801E5200194479C95D2679E809210F0DDEAFDB7AB768A4 +4F195714E5A4DC15B198EB1406C381CBEC7A3AB3C3BA3DAA6678B559769125D94A688BA70427 +506338CDE0668A1297D805AD450E7310A3C71B3E2C50D00618AE4A6EF7318A68541666597EBF +82042C3D3C143BE86655059BE08BDC081E5B977F0E0BC42990D2D7674A6228B41C2A9A685ACE +F38F7F64DA7336D8DE8D3307AE27561C0FD330955D400D80A7B1EA334450841245EF63985F8F +40BEEB617CC340064D0A9A3E4AA9EC3F1D8AB393CB7242577DE8E45D0CA2670351CACE5D332C +293ED0AAE6CFDA5DBD23D59D96D10AE549B66EEB0C505144910A455A19C5366B7D183250D972 +E6DFFFE1C70932FA5D4995BCBB857D9939058621C33E9E47501875B414FD74375E80F7175EB2 +5F4C3871E48ABC457494175661E45AB3FD9B7B4CC9A1A94388EAFE36A6E658BD6D9B9E96624B +4AE379066428F4808BFD2232C31AC8F0B77653D53F7151E726C3420A173D8E790EDC9010E7D2 +893B3E955BB14E50997ABFAA0BD2259E8569242E7545F36B382D8BCCC2BF1E89234DD26931FF +7F94B9EB4E20CFD57300CF9699ADA125FEE2311EA7AC859D11037067A1CA782D87F817392D99 +88970C3AEB8D17A25EE0109A875357A21A784EF7F3AFE3997D644BE932518ED2B297B3C7AA01 +AE5C4588FB3A1933DE430F53D976A72D7A9C390C17BA4BF10A8C568F263A31A1F42DA2DE037B +2E0AD3B80ABE577886B1ECB76DA60614040D9AE8064E961EE1C274B6D9388B8B58AE4DD5561F +D3B79590CAB7CA32D6E6FCABFE771AAAC1003F2B44451DBC5800FEA36C4122C008F2DA2DBE2A +A25A4BC33BE6264198221A75D0A47C44842C3E5B876E93E2B47DA6A860D2CC6F72F97BE95BEA +04C21438599516BF3C2AD014F92E84FB250658C75F7B479A81E73D54E6CB9B226E7308CE7A1A +425F3F5B775C6F9391328B8BB7605DA9E4D7491410AA9558A0C400FD53424CA7FC50B2CD7654 +61EFFE97EE85CA82079BCFCB78801A27EBD7148BD7F2110AC50EFA21DCCC434B0DCEF4434CC2 +98566F86A072427A5D63AC18CCDD91E901F1FC8A5F0C01758FF1784A62B5F7C6F06DD3010777 +159AA12C709311F984864F2B7312FAE48CD22A37E836CD1E17F90D09BF8E8F5CAEE6B04882D6 +09AAF37E1607F9137586D9B266F8891974D4FC82ECAE3339EE165A905B295463D55521AA9797 +70E78129DF6F973DDAEA6CB5C5EEDAD661108449862C5DAC4606A7E2F151D0B58AD972DE1C38 +39DBB597D035A170B97AE6CD1404B6D853E0000105B9EDAA8B2BC27416E852265DB137E3C3EE +113EFE22097173E21CFF5E43179B083AD2D78052C4AB0FFDFC4201169961FCFF2BCC7638401C +C77E9ED5B6F24726D52C99060A6F27698C1B34B8B55C002937F2C2DB515800EDFC696BAD4E14 +26A72E12FE72E0BA2ADAC755BF397BC6A042BA87E1864579885CA91050A76930D6E3FFE930CA +4611B5402E7E465485C0D1767B254EBAB9C299FA31AF259FD84B82A3AEAD0ECE9615644BE3AB +0F065ADC7592C2167EF5381752CEE6F2E23A977D8978CE09F1593A7EB17AE380B54676DBF8C8 +40BFF8574F90CD81A70DB5A38677DDC43E7584D882C9856A23093420B519261C56A3BA18DD1C +C7AA94ED54A8FA97BDF899560DB9FF7FF072561D747BC93392A5B5D228B7C17633DE184742C7 +AE2A43FBEBAB5548382A85282F79E1429B1BD6C4D5CE2DAB91C45E9A83049F8C614D7F573D5B +2EB7F09C8B1A22CAEB0C68BFB6201F72D372516793D891E6033D5F7CF4DB6EC2D59C02CA40C1 +38A92D233F1B224B384C1D49974FF245E51E4C8ACCCB1F22E900A509FF0A18CD3B8DC1D28974 +A9532BD71473ABC0E6E6D00B31DBC654DC374FC72667FAE9AC28535AC4D6B59E5A5D78E8C3C6 +A4423D08B61021B09E38D80ABF25DA3DC5817465B1F9B9F2BB0F03E15C9B878A9E941CC68E42 +3EDB5351EC5419255BA575650654082DBACDB8D0FBD4F80FFC4714A7955F92C93A6D30D6937D +B4EC6CF7237E51F0F7EC82C7D1401D49A2FFE0735FF0A8234DBE3DC59331D027C9FF49FC260D +CD4A5867310C6BF4C715992AA7432B26FEE9CBF896DFC7464A7011C1C2B2FE119D1096CAB00F +65D5459FD33963F08BCAD41C8FC521A582968548D1C5644FF4E01F79CDAC605D19710F63F75F +44DF5D179F2B54ACFA45346C4F8F4AD496F819D5D27ED3FF5D7D7A62ADA7A9925E7B8EFA712D +0F0DBF6F5F6E789B0835B40D8D60A0275437515CD38FA16CA32279A6E0F13268ABF5242B7AAB +5483D720D56A784A8A351F920F3B8266D7B29BFF8F19F969D621D71FD2A7FEE19482D7C50B94 +B798CD6576528553730CC1716A0603ACE7E09B916FE9E9320D0C63804D24BF97C18EE775F4AA +069AD28C1334B84C56756D663488C5CAA1CD81BCA635D5BAB3D362103727095A1BB2F0783305 +23D4E52394FB2FB3E30DFD190B61223ECB8EFE053EDB5B2AD9DF0629D03971CA85BEDBC0D021 +DC3283018F1BC62F9F9F542C3B328BCD39807A617480DE46F678F52697160B031F8DEEC94991 +86A148562F1B6082843D805ED94E85C767784025DBCE087975A46F188201BE2C2A9E9F342F54 +4AC880432931F33AB449FEC22DC435935E0101425475470A404C6EC7D6E78D608A9127E62256 +F20B3544CCE19E4811B47B1E5872B75CBE27767F083B1F14DFDD2D06EDCFECAFA27D8CC0A0B5 +3D0B6E42781FB08205513DA447ACC1B14909F103CF3B63A60C7D7FEC7929B1B8E61D44189097 +8C4374E280A61BE277E4655FEF5D5595DF897057E3E685B747CB981C64192FDA42685F7AFDB3 +E38260336A28A41DE221EE55BE3C0D609F15BE0BF042BDAA01289575C98216B8E4A70B9D35D3 +E7B2390CB981DFD8A173121D645F925337BEB41C8BEC024A08FFBF7DF1CE2264A05B858F9A51 +005FD2DA5100CC960637DAB8204ADAE47442A6A87D376E9E564865AAD0BCF3FD38174CE3BF48 +4C455F17A028E49F588D815714FD968CA7CDAB88E89F2E5E5E637D154703A8BDA660D269A177 +7B90F0571D246A68A56F7A69BF2AD6A8E5AD6762E20D4073BEAC173DD49D04509BBAB5C2750A +BAA9A620740210E50AB85869E42E60518FD27CC953751EFAC5F6E05EAA1D0B5FE10F48DCB24E +27D18F7013CECFFBF8D0DEF66A09C20CA3C8F48C444C66C82AA9F25A3FD0E85FBB487F3D1D97 +58DF5CD9F4D6C205504903B645FD4CE22DE6ADCD79D00066AB1DF12F1D1E932BEA2A49A9783F +2DE6BEB49A38C6C9BA32B71B4180DABA5D6B9A6501CC5DCBC467C4C3EB2E65CBDF1EFB70B935 +D68139F971F1E4C0D3F98FB38BD641ABAE20EE854229A462855206F1C48DC1A6B28B9846A502 +795C130AF2E9D1EAC544FB33F252A176CB2C1E6C8804AE93E20D929FE0596F3A06F87A8F41C9 +DB04C7C78FB23CE21902E91415ED8D4776AE357B1A1AC07E09B4438F8D50BBCF87391299B87D +B589F0814FCC90164D51160D5C035ED0DC4A606FDD2A34B56EA46F2167FBA7164A9D8C7D3494 +E283B401D477A9102CF3A166075825099B137C407E0D8148CAB41F8F9F57873705482002ED4D +C380260995D754E648C529397713994B18D69348293A123F22626402A3A37567EF004BC33A79 +45B16DA2E8C3BE23F1E0E804745CB04C6DE0E346EB6E9E1C24B04A942C186A7FDFD7B0494A9A +BB199116E1AD941B87CF3DE541FDEE2ACF9754ABF6C2D0ABC37A68B507780C5797E4D799C2B3 +636DBC8D297DF7CF4B019411A103A99D2E28D445FF719A8D8CB339B713FB62D89C4A7B19A69B +F2EB221B26D0C1FF37A14B9FFBAD84B1FF01C8144DAC43F2EAC7EB5579240C8016BB07E6A5A6 +5555FCA954C1FA5CC039E2FB28C5F3F2CF3C5DD1A9EB1F4E0455F8D661168749A6DDE85D7445 +9D009864B2B52F2BCB68102F1F6F280F7CDAAD39BBED5D6A5D5E951721B9D305ECDB727B74E0 +388D3E1D8C90FC0801180EEB1B1C8D289DB80E520F896ADF57EAE1907D070D66A6F2964C7EAC +8CA65CE2EC861FDE6F27CBB1733801C33DB5FF6502DEE7BB934B4833509E1FD1371BAB177FE7 +49C30723E07C7C187E982004D5BC97D75AB90171626B7E8BAE093789F47507C01D1B1A1C346D +AD6DEE3B1F69CD28D3BD7A6EA13D125A256EFD6F24159BE93E1790A296A9D894631956E37672 +FB3B2112FE5666DB581BF514FE9E560DF8CE5D3AF23B19645E50FB5113C62C7640D0D57674CC +6DDE51DDCAC23B1BDE02D3FB86389FDCD65E586D89292B20A6A31DD8AFACEDCB388FB7A4378E +0A3765D23C0F94A7D13F5C3D7C5D905A43D54143B9838C37C55F7A1911CEFEE141B97BA74AAF +45D6429EA44F295A7014A415860A821FEDD4EBCEE82D3FCDBF4133E260320CB35D5516ED38B5 +61AE459B71BCB761F09AE168374F15C662FA5753A712A8F7321D75D32F3EA1C9538D8DEB32CF +5D94E0AAF7BB77B815C81E917A141A67442F7EF75520E4F55F9B5545FEB4F07A970D92C606E7 +89C9581E80B1B90BDC40D81BF6755043605A4C5F0CC60687F0C78F540449426FBB83204A9FF3 +B635E4D33D3944115A8E5F16EB3EA9BDA7E89B41EADC1EAE06A09469736B5A4D69E43D6D2B62 +556E652A06BFA5A84C13909B0908E904AF800C913D49A864481F75282C38E419A30861DE0A5B +F0DD789EFAEF41769C3F9B9AFC4B7DC3C97601D8477449F8E42F7AAD6B581B1A4061B5D66F91 +B264233AB95F25D6546845808EAB30428B0AE7293CFA1146618601F83344FDB322626EF94487 +8E8FFC26D72D912172C10BA3628194E4D32B4EBAB295104F09DDBEAA7659FAABE863D86AE150 +F72260E190E3A8289189F65C0DABAEFC6720663360231096DEE9C28DED997A7D29C7281BB779 +25C2084FD46EC46A5B218F8D36FA9F09455C91E180E052F325D7BFEF4F7AAED7B6CD44AA5D7F +AF128FC19C5FB383963A322075385E58E2314D8405D024E50D8CE43EFF13C5AA3C714A5339D5 +098077B1C4563229C93CA29196E52901E9C074FF5254FF46FB331B12B2084EECEE2C262B59AC +447389FAD7934F44DA2211884CAE79CB5B2F5433C69C679BE42E07EFF637507EF51934C5E09C +04EA0AD1AC617BB6E82339FA3ABFEF1FCA6A867B6C99A867FD55650BD93238A2D0ED9B3041AD +E520BCB810FE84AB0B1D1E14FF325B6FACCF1778D972D17493253E9F431DD62A84DA02969E5B +3E92C65852783B1F80C449054848A058174BD469443833D5517044CFD59FE769A725E9BA91E6 +F41AB5C4B0C2B31F64844B586E5505B7A19BE11710FB3661D8B5F4D9D1B7927E75D07CA98B5A +4BEAD1DF8F34129D09579E6248AA2AC27331C9A7594D9A5E339C963BADD416BB49B9CF85FC24 +B22957C7578DDD8ACB695205CD56A5CFE9CD9EECA0D8D2DB28A754ED57FBCB36D84DEC42DBCB +81E8F949C4EA60CE547FD117F38894B85DD1DE3979B94FFD9C0E9A783ED61FC54008F81E1398 +AE9A970C82A7A24A14C555D0EB6C0421C20FC1F2059C0136ACC7521668B3A777BC287CE6F8EF +6BE689DEAB2B71AE7865768141469AA980C109A87BE3BEB58F8795FF3D3FED393369B7527329 +583DC1FB34FE3A84CAE3BA612DFC3044FAE065E965D8455977B74378CDA96C5E5D51CF63936A +0CF60A5E752E7A55506D79E07A67225A079318E9DC4D9A1D22FE2324C5E1BEC6991CA021DEE2 +80EDBC4FCFEEB963E71FDDEDEAB3E9E808FE7A91C392274386C49FDA66943A110D69F52889ED +7C3B6617ABD9F57B7B1D8A03526E973870715CF8A1A16AD9850CE610289A961DFF8EBC2A28A0 +0C9455E3845BDCB5AE8B06A768E4CE10A7008D2F5CD94E89C24B27611A1F17C800677D157200 +AEF304C16D9D5CE20829E990D38569B668E727199103572C6FB0988190313FFD2E4FA8994B7B +5EE3BD5D86DFCF0C8325051EAFDE00ACF7CEFF1AF155153316B8D47EE6F1E75D12229EF851AE +B39FCAB52D08281D9673010E943A74284E3F37B2333412792388AE4DAFD9B80F481B1B817338 +B1411D9820CC06361F075BCC5D4943BABAF140E805F8F97839DA3706002C2B9BD09EF4A46E14 +61B72B938270B9E64D8C836B7CD492025C34D4C22AF96813A633CE657C98F5594717709780CA +BA9BBE6C5580C49CAB2E7D7B325255A15545D9867B520139EA2F5900947347352CE1FD88B012 +3BCD0C0562DAAA828C51C1D636A948679C5AEB03D491F0BE4AB895179F59B1078127BFDCFCA3 +3A7F39A922714CD44A04CE29359D1E3AE59051D44C35F680F7AAEE19CA7F3064C2EAA63890A5 +C03319CCD9E40A39D22A169B0C2F9B783993C306578C5D26428009B3178AFF0EC55D3566AE41 +5D9FB979DB89598E8109C0A864D266E6BA2DD4083AC92E23E5262D0040C068C21D7E36C3E298 +A894841BF263A72DEA2DF65510437E32AAE3FBA1B71E4E6E8B195B8D0DB5D40D85EDAE764719 +02AB24014B7949CCAAA6063B37C226387FDDB2F7A5DCB8792D317C3C9F3BB84BA78F6D37DF6B +9802E91A0086CD07FB7A7DBE4EE01118C10A6A7106135C9B0B63B03F4D3F2BCB032C79D5F128 +7FF4E9C13A67DDBF8911307159CA0F0702ED26A9D55374E64E77C0077870073E7E9FD8A52CDD +6E73A252CDA2B8B09FD5AC9DFD2C4775CCA5A9898C77EE3D975B464A0385B8D4178E8C5D8E9C +6B5B30D217EF31084D2AD032D515791CDC78C3DA04755AE4D88414FF8370719E8785B224EC71 +E4C1F8C431212243BFED2507F569563246425BE025D3FA52794C45610FADB34AEA2DC5572870 +2784F56B64ED2E391FF47D11C8BF6913C545AA984B0D29226B406F98C13D69625421389792FB +DA160E6A9420FCE277BB00447C71896061A07D305D0AA9CC18E7F8F265F993BABC1CF139F949 +0325AFE7F4CB725408AF49CE2064B437BDBFE66D143EDB79C75B622C0CD945E659A3646AF2B8 +3590325D6E7246BB55DA98CE8B3496EE38FC5B2D282DC9330FDC94B3F6E6A1F6CA9D110CB950 +D0E682D9AE21805D5F988D83EBF4AF2E34371DA9C9AF04827FC338CC5BBE2248BF48B5F2AB38 +F8CC38D1A82ECADB6CF1DAE3B597110763CC1F8F8ACF34285A0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 + +cleartomark +{restore}if + + +%%EndFont +%%BeginFont: CMTT9 +%!PS-AdobeFont-1.0: CMTT9 003.002 +%%Title: CMTT9 +%Version: 003.002 +%%CreationDate: Mon Jul 13 16:17:00 2009 +%%Creator: David M. Jones +%Copyright: Copyright (c) 1997, 2009 American Mathematical Society +%Copyright: (), with Reserved Font Name CMTT9. +% This Font Software is licensed under the SIL Open Font License, Version 1.1. +% This license is in the accompanying file OFL.txt, and is also +% available with a FAQ at: http://scripts.sil.org/OFL. +%%EndComments + +FontDirectory/CMTT9 known{/CMTT9 findfont dup/UniqueID known{dup +/UniqueID get 5000831 eq exch/FontType get 1 eq and}{pop false}ifelse +{save true}{false}ifelse}{false}ifelse +11 dict begin +/FontType 1 def +/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def +/FontName /CMTT9 def +/FontBBox {-6 -233 542 698 }readonly def +/UniqueID 5000831 def +/PaintType 0 def +/FontInfo 9 dict dup begin + /version (003.002) readonly def + /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMTT9.) readonly def + /FullName (CMTT9) readonly def + /FamilyName (Computer Modern) readonly def + /Weight (Medium) readonly def + /ItalicAngle 0 def + /isFixedPitch true def + /UnderlinePosition -100 def + /UnderlineThickness 50 def +end readonly def +/Encoding 256 array + 0 1 255 { 1 index exch /.notdef put} for +dup 0 /Gamma put +dup 1 /Delta put +dup 2 /Theta put +dup 3 /Lambda put +dup 4 /Xi put +dup 5 /Pi put +dup 6 /Sigma put +dup 7 /Upsilon put +dup 8 /Phi put +dup 9 /Psi put +dup 10 /Omega put +dup 11 /arrowup put +dup 12 /arrowdown put +dup 13 /quotesingle put +dup 14 /exclamdown put +dup 15 /questiondown put +dup 16 /dotlessi put +dup 17 /dotlessj put +dup 18 /grave put +dup 19 /acute put +dup 20 /caron put +dup 21 /breve put +dup 22 /macron put +dup 23 /ring put +dup 24 /cedilla put +dup 25 /germandbls put +dup 26 /ae put +dup 27 /oe put +dup 28 /oslash put +dup 29 /AE put +dup 30 /OE put +dup 31 /Oslash put +dup 32 /visiblespace put +dup 33 /exclam put +dup 34 /quotedbl put +dup 35 /numbersign put +dup 36 /dollar put +dup 37 /percent put +dup 38 /ampersand put +dup 39 /quoteright put +dup 40 /parenleft put +dup 41 /parenright put +dup 42 /asterisk put +dup 43 /plus put +dup 44 /comma put +dup 45 /hyphen put +dup 46 /period put +dup 47 /slash put +dup 48 /zero put +dup 49 /one put +dup 50 /two put +dup 51 /three put +dup 52 /four put +dup 53 /five put +dup 54 /six put +dup 55 /seven put +dup 56 /eight put +dup 57 /nine put +dup 58 /colon put +dup 59 /semicolon put +dup 60 /less put +dup 61 /equal put +dup 62 /greater put +dup 63 /question put +dup 64 /at put +dup 65 /A put +dup 66 /B put +dup 67 /C put +dup 68 /D put +dup 69 /E put +dup 70 /F put +dup 71 /G put +dup 72 /H put +dup 73 /I put +dup 74 /J put +dup 75 /K put +dup 76 /L put +dup 77 /M put +dup 78 /N put +dup 79 /O put +dup 80 /P put +dup 81 /Q put +dup 82 /R put +dup 83 /S put +dup 84 /T put +dup 85 /U put +dup 86 /V put +dup 87 /W put +dup 88 /X put +dup 89 /Y put +dup 90 /Z put +dup 91 /bracketleft put +dup 92 /backslash put +dup 93 /bracketright put +dup 94 /asciicircum put +dup 95 /underscore put +dup 96 /quoteleft put +dup 97 /a put +dup 98 /b put +dup 99 /c put +dup 100 /d put +dup 101 /e put +dup 102 /f put +dup 103 /g put +dup 104 /h put +dup 105 /i put +dup 106 /j put +dup 107 /k put +dup 108 /l put +dup 109 /m put +dup 110 /n put +dup 111 /o put +dup 112 /p put +dup 113 /q put +dup 114 /r put +dup 115 /s put +dup 116 /t put +dup 117 /u put +dup 118 /v put +dup 119 /w put +dup 120 /x put +dup 121 /y put +dup 122 /z put +dup 123 /braceleft put +dup 124 /bar put +dup 125 /braceright put +dup 126 /asciitilde put +dup 127 /dieresis put +dup 128 /visiblespace put +dup 160 /space put +dup 161 /Gamma put +dup 162 /Delta put +dup 163 /Theta put +dup 164 /Lambda put +dup 165 /Xi put +dup 166 /Pi put +dup 167 /Sigma put +dup 168 /Upsilon put +dup 169 /Phi put +dup 170 /Psi put +dup 171 /sfthyphen put +dup 172 /nbspace put +dup 173 /Omega put +dup 174 /arrowup put +dup 175 /arrowdown put +dup 176 /quotesingle put +dup 177 /exclamdown put +dup 178 /questiondown put +dup 179 /dotlessi put +dup 180 /dotlessj put +dup 181 /grave put +dup 182 /acute put +dup 183 /caron put +dup 184 /breve put +dup 185 /macron put +dup 186 /ring put +dup 187 /cedilla put +dup 188 /germandbls put +dup 189 /ae put +dup 190 /oe put +dup 191 /oslash put +dup 192 /AE put +dup 193 /OE put +dup 194 /Oslash put +dup 195 /visiblespace put +dup 196 /dieresis put +readonly def +currentdict end +currentfile eexec + +D9D66F633B846AB284BCF8B0411B772DE5CE3DD325E55798292D7BD972BD75FA0E079529AF9C +82DF72F64195C9C210DCE34528F540DA1FFD7BEBB9B40787BA9351BBFB7CFC5F9152D1E5BB0A +D8D016C6CFA4EB41B3C51D091C2D5440E67CFD717C56816B03B901BF4A25A07175380E50A213 +F877C44778B3C5AADBCC86D6E551E6AF364B0BFCAAD22D8D558C5C81A7D425A1629DD5182206 +742D1D082A12F0780FD4F5F6D3129FCFFF1F4A912B0A7DEC8D33A57B5AE0328EF9D57ADDAC54 +3273C01924195A181D03F5054A93B71E5065F8D92FE23794DDF2E6BABDA4215500A042D1A3D0 +D02C0C98BB1D6ED0B7791274C38B038FC7921FF1FB8FAE7258C092594B8E1BD9EDCEDE9ADAD9 +BD9598EEA9691589649A9A21539161E374075BEE3457689F308A4A7AC9F2FE4B301A6C36B044 +2FB92E3B002623493DC087800B5A05210DB96A23175AC584DE166F59142779F26FEE9783E28D +E49FC3A8D6583EE63FBA610DA773CA18ACE6F64A4867A1A7817120ABF9DE4D17782866E6CB6B +65A9F6D83667C8D3E61E5356E35343FDD4C6436DF73934470916CB5F0ECEA695F2DFDAB27EF7 +F034CDF2492BBF1F31D02997D0FE67336004AA6B15B056CC4380CC7C6C334A21CD6748BC1E07 +13F9071CF53D78D5E0884D050788A24E533B5184FD1AA1907043AF5590319E90F54EED893382 +A8A83ED614B7721E136E3360FBF955AFE7A1C7C77670130299B443CCC4422A0665837541DE18 +B548D362A23F1220E5E3B5BB79F16BA2468731C4795FC01FCD170611F2626027E6D3E54ADED6 +49BC566ADD85D9B4153CC96546D776F4FA249C2371C8389342775EF57B9EC1F72C97AA187D49 +ABAA8D37D07DD563D90254E2CC9946029A0E3E114F1ADCCE927AEB54BEF3CE6A2577A6586AEB +EFAB99804235923474CB96D6F33A114D423539C9F6CD5460A0DC19DB2AC4456C14A25BD4D338 +2B5B26F05251CD8AC956E75C4592500E46D0116460915289E35945D11BBFE9F67469219EECFB +4BC1190FB2F18A18B2709EA9E73FEC6C92671187F83053EC956224F6C74410A7CBB9C81420B5 +D8D61E004D68030B93105DF3667D372D548DE0D7EBFFC743CC0298B2CB1A98AD144B518F9173 +A921C37C696E7F05D1DDBBDFF7DF8924190975DD37A4B32290662BCB8DDAE9A1CFDC8D8BD3D4 +CE65AF0B0E3431FC2E11FE7D9778576FC2BB11AB37C93DA07766B3067F6F6A0170FB6DCF1619 +792CF1D678B8F0389AE2391E4618E4D8D7E1EA0C0E2537A03B82F1113064647441123B4C1DF6 +469F6FCFFB58007296C2658BA21DF974AE608E45836AF43CDC494DA50C183838330C0284AA87 +90EBB4A15FF0B31C80A459F629383526109095DB0ADFB1E94E483D89714F5779DE173A2674C7 +610D18E977D0A9662F23BEBF39C4477B354123B40E2E124238F21B56E9A96B73E6192078D3B3 +E3BE0432458209614D2F931AB61AF195E5F83682C25095C5D75BDE867E530523012D5BBB2EB4 +5A9D331EAA71467E9978AB5B1563FCC12B5AAD03908DA25B0D32B1CBC0CC1E59A109A228B847 +AD57D1730E0919141783DE3A02F1C78C23735E287591B10F842AA6D331FAF97D208D6900D76E +5345686AE3FE3782A71AB0AA0F0F879F39C03643052FBD172DEA8E3BC1A6AFDFD4316B61AE67 +1DF90BDB0364645D029CC4DD07863BD17E8226329F444A5A85EF1E12B2CC5152B2735235D9E3 +E1A5EBBF263B7FA95D8C316F391AC2D28F94507B6EDC89BE61E5A539145EBE8B8BE8A61EA954 +190BA3B58EAE37AA2664671CDF64E740CD3A2A28DF5F0D28649A4E094C7022C8566FC15FA49D +C70CDBD6B780519C53D9AEAC3CBD4B8C61408274F0350F367FF72DBBE3B77807106014CACFD3 +A7B31AFDADB22D2613851D99BA00319CCBEE68283C85565703C5900602154C044D2D7C3FF921 +AFD9B5D8013846A894E1A19613CC0CBE7DD15D0FE75773240533476B51E95C7A310AC5106ADD +34D3857A18E3B7CD6277E138E8A30FD7C76C57DC7723C3E68D2F9C20C7C9BC3E7CB17E71A4FF +8BFE2560DDC0EE609A80D4CDC73F591A5C04EA27DCC30AE619B522A8BDC93D401323E6EDA721 +56910D221217095DFC57117E3D58C7A1D3FA5894C571006D21517535992A1D845C0898DD7DBB +8A53E66EA60D0997E25EDBAC3273B651A7E6094340B5BC623F91A31555611CF2637DCED1CDBE +515380DA512A5FDEEC4FC0B021F43F396C0077FF6C1CA44F4112D7AED6B841CFA4773BD27C43 +08255D4E2763EA019F92CC01F9F88139FA4E156E8EFADA211869692119D69216858A674878DA +A54C3000029874EF24D8B7E23E5A74F89FCF497407343753FF57AB2D60C1CE752F07CDAB002E +09AB98036CF33B59E3A12C0392C268438A2FADF46580896F7C14A28B3868D45730045019ACAE +05A9DC6184BBCA22CC7D4AF355396FD415E059B9ED77DB42B4747EC008F67D98D36AD1C45407 +5B8E6C5F8E3C57CBBE1E67EA5B1CD9795968A719E89508EC40D8FFE13B3F31A18B4CF5E481FF +16F204E92B7493D406FF276829B284EDCA1999C487E4F1D0A2F80A520CD64E3DDD8D5760DD39 +40F5EC0AB7DD5B0F66B8BB0E611A07BAA9B23096CDBB7E25833DC33935831E3CB5A45262A3CE +9FBCD547F092BEEB991CE8DA5FF0D3A9363D1A5A1DA84B3DA01994372384AE5986485F8FC823 +F98B83229759342ECCBC07EC0D82F6266F4D19162E5AC5C965E08F49E8049B24AEB86706285C +2041585D6E53761943E29DDA275770F235D61D35997D1198E2ACE07D1E72D5382B6C5E922A13 +B37BA2FE467202CBF6C70C01EDBEF3CC55585AA467FF9B07AB30C25AD9ACAF5D2295DE35D391 +5033952E53AF5F4DFE9FF6B9ED874F22438F89A5A74FF6D72F1CF2B1179A7B10122821B4366F +797629DEDC56F101D108972CCFED4FCD6EF82925408BAB2D8129F46F5301B741FC4F1FE67889 +12B6801F5D49431B0C2E8DB2CF1E0486F01F860F64CC983CC8F647E41EB57184DCD17ED80A95 +07ED90C1CE8365678E933547F1EA65DC21DA60066287CDD5ACBC1E97A6BEA4D9455B3D55B32C +56110F54781C972A8F5710862E4904058C603BBD62379307DD407C1530B68205FA39C56E8B05 +772B8BE8AF07649EEAD9B173CAB014EB1C6E67CC01668627536CF6349E7EF8F8CD391543A33A +B8996F9860ED5151CB1E7ED12BEDF02407A7448B67587057BC43005A5E12A3439D64ECF00F14 +41981A63F2C4664D2259F74E4307A84F6236DE6EF6F5373448D07555419017BA618CF17D5907 +56FE435E70D3C7E63F679786643EAA8457300220D0D6605945714B58CB95937A37A27920B673 +5477BC4D6BA8FA2ECED7BDB0110E293BC90B28B0D9DC6CC8642F9A8DAEF8D375B7661B14ACA5 +B968F86D21FD7D0536DC268721569C57E5193B1109980C2E1E3BB15985EED1FA6B05C22B03FF +2A64277E3B37B2291779F47E6D77D2B65A2465EB2089B65432AEE20609323401BED5CDE7636D +6B493CB068945ADF47DC15800D2259F393CD1AF414ED03D8ECC97CD04BF7DB369178036EB3DD +3AFE923281A2E21A3D53504130AABB6BD6F379313F8F0600F4B8FE74CEA04B00CA6201A8B133 +20E2EDA11760ED13BA070D1583638341A2FB1F69ED06B33DA8CF6D59242981A0C16C75267B8B +84C29502C117C7226983900878F620ED4B107056B42DB1F5210FEAD11D87ED34920BB59BA47A +3B4AC3CD0AC21EF944879CB6DA841484E0C2B851301850C621A3615854FC8BBC5B5EEFCE2EDB +B0AB5108A2F001A54E6A7B4AB1A49D908FFD2E87D74B0FFE5D41C01A6962764D4DB2297CCFED +682544E4632980579983BE91E06E7E940BE7BE2BB404672120C07941AB5CE6AC823AD1FC78F4 +0E53F1037171E055B95CB8D57313FDE45D9AC37B44583E1029E04B12594DC560B91DC54846CF +2B4CFB339EB4F90A55403F811918A3495BC7DD587E202C117B853BB2E6FF0BD0272BB34E927C +1F200335F8F097724860DC9AA49B58B431A3CE40FE18E3AB369DA33AD0FAD56293FC1AF627C0 +5BB39B3449AB8638A33F569084ED162F99A610C5923FDBF6B34E5F3087B0F3441BE3C91093EF +255D8E8A2D23ED35B06075A5E3ECD40DBA35282679ACF9BD8EFC178C738240F42C7EAA0AD598 +F6250296179561CA8C3219EA471A88A8F79886F69B0AE43A02117A91FBC3A4216CA23718B826 +9977B78EDC4D1E7C718BF52377F2357B8345C90F6A5909D375FE025FF81957FBB0AF4BB9C9B1 +A8C7DB68FA8D1E1B4DA70328258D83EC954AD8ACE3E499D289DCB1812FE19C26BC9BDE91B71D +59D7CA82DD3B9ABE0DFFD8E85D11D473C9C52E2F0EED0205C63937CDDAEDC5FA77ACEC0ABD9E +F7EDFB0F5563DB75434EECD080E08552824970940FF72DAFEFCB27C51055B5DA982A2483F393 +4DA2BE00CD555E4FBD31A2E9715D98954724E8800DE2BBEF7BA92CEEDEF9643999E3442F2F37 +A318396756E60EEDF86D9C94E4D16A729AD578023ACDDB9BB1CD2FF6629A9AF2A22A1217CDAF +BB1139B0206DFC5ED9DBC05CEC8A5B950550B3AF5079DFE024A1328A5728D0644F7624BEFD4D +40C5F25ADC5F4D1E5990C54BE57BFD7C25FD85ADACF13C41F5B6D5B7956786258304F1A4DB78 +48BF5C550FD905DB1FF875A7CBAF0089056C51938A2C1E4CEF5CC253C5A64461BC180B5125F8 +5B9AFB6964D1C81C160E8877DCE24396215FB49E1ECA115C6B044097F16B2F891E3F7649FDDA +016FEEB18B622B9E33EB625C1B00A714AD88CF097DDC6FBF88F0D74FF9C7C16BE68E4207D4CE +85180F4D531311FCBD800A43BD7B08E07CFEC9B43142DC532A302B3950A21C89FB9D2B8BD1E4 +3BBE80B672D197FED7A534B7EB721B7789D02AC0C59CA857D96A9170D3299A8D16C89F4BD062 +EEA6BE3F41E4CC8AFC82E1B67ADFF321DD74EA9FB846FF6D0A4C161DF84CC93560C726EB50F4 +2B2499DDEF40A94F1D475F010F65F7044B68482C735DF58F02B66B5316D5F16405FD665B92B2 +4F42D4DDB9FD48D75307B7395F125E5C9BD2EE10A9400F4AF571B38FC011A8BA28C9D4F7D327 +78E5D3219C6383E1086958CC4E9CB0CECA6746D694A9A148FAB667D709526DD7D801DC3A92C7 +7DDD4AEEC067E7289871E4A544411BFA4EF5CC01ED7C35ED9DC9818E45A08A4C39613CF072A4 +284C65E8AAB4452E93B8346D71512D29C1247DBA10C370B4C7FAB1B8D01233C547BB75899A7E +02F6028ED1604BED0D57B9E7911BC7BC7105DA2D86EF57CFEA7DC373FAA10A0072266D407D46 +305E53623E47BE7CB26D0C25FF59D3B65A7624E6CDE0EA9AC8F19DED309F37FC7E773C5334DE +306130EB2FB2193220EAC5371FCC2AA9AE4045BF89F9C98F5CA58A1B2BDD964A51F8B0ACEC7C +9721CC934143EB71915A0672E818DBF38E87900ECF65F5ABFEFDC557DE4E896B422C151C24C1 +A66C78A8628A6BFC2B67E0E06461EB85E717C5C1ED47369B2969EF0B3F86B917FEE68A0D65AE +993825223F9A1A02A48DD71D526FF359B913A72801B026C8E1459B273B8D48F7E085234D0069 +C1034BD8D3C8ED96D2AE53652CAEE0539968B13481A227FAF950193CB5F26FF465F2150F8D52 +FB67A3C5462E5486127E0CA45813884A2FD82F158A84AC3EE422661D4FF73CD8B13AB3EF4CFD +92D4D64C8989777AAF32477D5DF6156F49C6D442AE68BDF4946794E3ECEB1D421AAED9BDA26F +334AC953DD5240933B663629D15ECEE5921665659B90DC407637E6DCB52E8B041EFFCC2DCFC0 +422A4080795B84478B0FA8AFD3E1AA9DB908F924D6040F846880A77907D8CF024D342BEF1C48 +6E3D02347CDBBCFE123725745D3522D3762F733300617005CA6ED376F30C95422FCDC6FD8658 +CE8FCAC1A0B07EDC9BF2A3A577D1FDC219F742A2C0E3ECF4AD0FC447A6F340EB20809010414A +FF9FF7F8F21156757D6B35C7765F45F50AF6B3800423B6AF95A91C727C07FC3038BBA53D03CD +7606CF9655B14E1F2F131099AAFE6A6B25397B88F34D9A40906C9A91A4725667FF22AEA60F4D +C99829C59EB1C2E22CB1040D194461912A9800FFE9DAA6974CFBB710F5C4D19052D266328AFD +D23EEF1EF6DA60D873D6922C4CABD941F2FDF0BFA432B1BDDE96D8C59D48B7EC845461830B65 +A38565DBDF17FA9218AA4F475B2FFA42AF45FFDE59C984EFF318E5407484F3D83820A56423F3 +A934CBFA622225890EC1B27CC4433F4DBBD20B700DCD415D19DCF7EE3D0AF26FC8563BFD47AF +E095532A8C54E2DB221985AA2F8505D9E8A2D49BEE026A2718589B77B97CF18105A17B12712F +735FF7A0B359202758AE580C08C7B674D77FF1C81404A0F0FBF7867711BF2360862144CAD3A5 +F46F1BBF9F82CA5BCBD902D7BAA5BB4BD5CF31B20D68D9935EB1C27345CFB9C7F08101ABFA72 +72D32F9C08DC46633C327BCA70E6B191E7CDCACA158B694DA9234B3EEB8D2555F640D510067C +3D16CA3A25BA7941925174B5183A4B127CB6615ADF75FDFC8EB3F04EAF35C7BBAC38D0650956 +4AE00D21C7CB85DAF75897459107D18675FFDB9048CB50C97C81AA2B464523CA97D788EC38C7 +0D1A0D49E3BF52A0933523A03A99A4EEF3A2FD7714920289386BBFAD5D74E61A494829BA2B66 +76400A7A663BCA41B46132E1740FCE08DBF4F96BB045B16EBBE038A76D32B8B0F310703673C1 +E20866B4AAACB303184D6B030DF3AA2E9727821451C883E9928F8CBC41E0F4B99F8B29D3B11B +D4ED0CBCA83D81082E398399B323010AAA5C81BA48A4BF558C8C8F3A41BC50D816C3B679D82A +438FB1C640C9E4D12B21C27C8B974933DA8D2B8B19359D0354040060F7144017E2AA7634B675 +C534D614A4F6E4B97DD161ABE848159891F66877200F08ABB4F9D762CED1CA9C6F3B53526828 +504124C9FF80AF74290EC12F9F538C4E25E9172EA8A7DA914B7B9257413ED8BA4950EFEBC114 +C41E2574F7A123F6623CA06C62B37A160BD464AC21041BF3F092BB2AC1A49986D404C91C614E +8C258B04EFE560752620CCEBFEF6A55012A7AB3B07FEF03B1712EA3BB45F75C3754BD9F4984B +A435BAD672D799EDC2D9B348AA09227FB8A8964E8BA6FE55B1B5DE039DC4CCB9121E123C9CA5 +BCD61217D6F3C55AF8EFAF24839D44F8902DE203305BC95A9CA12A43B62BCA416C33C35AADF9 +B8B2A733533B2EEFB004352DC555A70AF2DD9C2D4AB9D2B9D6152E85AF3F17707AC1FD827BE5 +6E7EEFAF3B78236E75713B717A4A2B5B34B3D48B708838AB95FDE0FBEE97BE44C54538533B4F +2C1AE9C496514C49916ECF5824BF10F56311C894751D6FB10449FD21D55D6DEC22547FCE6702 +78063DD071BED4C917D6B2C34ACCFB4BDA79C5FD23BF4A83BD804281A9E177A8164F6BE9C31F +14CE32A4F539CC636F13D14B7230D9ED12A14EA9D8DA67A63F8E41F5E5AE8AAE1654539537D3 +D738D643624E43CB52A1677C16B8BF4695710E41810E5FB12707AFECF0AF3ADD742A7FB464D1 +2E756C490C6E38ED7BC421D05674A95F1F36BA1581E18DDB3C8980431A185B2E3946AAFDE6E3 +2E6E0C4E7432E23C0BAAB35E39321C73ADB45FCDD4B8450A48E8F6198E245D40DAAA4EEB8632 +5D63430E6278F28E10760DAAB44A74331D6395712519185256F3EA2E98D5AE3EE125E50A609F +9EF3B26EC22C16466B4482962E08C758E22749920F9A07276FC4168320AF58CC3CF3AE44D550 +BA0005480B32CFA36AEF513773A0C0DA53CE7A17ED5B8AFF82D5B062FFA025300621DA6CC0E3 +8374740FDB4F4A0EDF1E93A243763ACB86E549B68A6E15BBBCE4C7783F39038E102C01694FDE +162886423A8578E1E7FAA51C2117B6F03D93FEA37A7D47A70F18F2C2370449F9C2E4F0DDE822 +823B2E9214CA4BE49501CE98EA9E96EAE15514C346482612685E241C59270331DB08A5D8B5A8 +FB8D1D54A5B5F6FA72DABD6F0BE35D3BB7C8F2A54DFDE784B13C19BBBA2F94973EE4F7F6CB90 +2A72B9B93CBF9D29631E96E2DAC881903407023C9720B78295A435E9CE18B233FFC1BB425B1D +5F66AA868C2E1A6D986DE86A14D1EE7BD8D8867CA227786DB6FBF96123FBADF96FBC6CDB06F9 +01644D3A8A062A211F4ED6F763B7DF78DB75701D1665AA51DB153EF35DEFC5B50E3626B77355 +DFEE1240BAE47F67EBB465503F679E3CA852A01B2BDA729A2865E9DCF4198CEC2086672B78C7 +9AD664A57F7489A04AB183DC8CE6BA6EEF9590B6006854E2493314A5238F7E410EC715AF9DEB +4095C8C0D44E6111CEE2E07D3B7DFE601E8ED0AD98E9630C6F399CBA149FF620A9D0355C9F87 +AC4D00A5A91E06A6926E2123BE874F7504B92E175BF705D4F7089BD2CF1A0ED8CC026D43FFF0 +F7FDE1EEF77292C84387EFBECDCA8D118947AD05BA4C153BF2E8606E6CAFA5AC0249835F399A +55397AB6368C02888C815309C85B2853E6BB0ECC76C9158A6521AD0199BF61E02BEB6CCD4701 +CF5235CF67B5DB58063E7C0BCBFF0B78A20703BC61FAD0BC9911F8997E867BFC4304FC3924BE +31025E2D00DFBA1D8FD929CE461587035623AB8DDEC19C0110EE0C4BA79FED349717270FED15 +00F35FC542BA4733455E6A771F180872D18F4A03FDA7A77CEC2EA60645EDFD08F8B6BB2C424B +638D31B1528FCFC5A57F6B6628DD7F2D291EBE20C9AF38DBC21E8318569F67C865E24436630C +33D5CB0D42AE4B8A9838D55223F155172DCD86BEBF3734A2820F2F92D6F7013353813E67C913 +2914664CE8D8E178E5739FB6389AE6AF312ABEDD40C4B2CFB3E38F9551CE1A3B1414B3018CDF +78DDF5E3879446BF21965F2E2FE25E48EED5D6B1781036CDFEAD6E95576C7F7A2A252E8B3E3C +271E1B334A4E8C5DB10FA3912DC9FAC4167E958F564E519B097F15A29990B82CFF7A6A92FC18 +489819E519A89B66B9B45D9755656611A710826529AEA9C5257513122BA2FBDA1EFBD274B231 +6DA05073B3EF52B3B3731B4932A97E36A28F4E7F8ED11D15DE6B6C1E79369FAE64A1F626E625 +ED3CDDFBF20957E531056D4966C3FF9ED710D2785F3F70D8B3D6A72FB21E5D71A75FD5717225 +C4023C67250CA469D856630A9280CCB4302C1AE174FEF1F0E80A50B822D7DC79F884B1445475 +B2BD5528B202E3AA29AA1BB957E6C9D9B5ACF940DA091CFAB132EF0F402ED81971214E022EED +88227A11500F621EFBF2D220BA54039D1097CDC35D4CABF346A6FBF8E236FE562654FF46AA99 +F0BACA4C3F1D565B4AB85666B16ECF37B24A63ECAF29186637007AE0FB7621E0726A02776789 +190D6734B5FDFA69AD65571460F4A49172930092590554F41B30ABF2618ED2B562DBF3F3858A +C38AC5824F999AA67EDCA5931C75C8B93F13DBA19EBDED59BA670645AB9B681A0FAEDD938FE6 +6691DC4460D2159726DDAF9B52DB3F3ED516B77EE963011382E17F06FD9B131A2AAAA294D9FA +759D1A1281E7ABB0FBAFA0FBE285AEB24CDE964763DD51BA805151AEE9995C6F2CFD7C4A330B +ABB190456AFF05E9B0B6A21EDFB714A55E01186C82BB773561FAA6CBEADC7B02EF4AF63D7EC9 +748F50AC1EB49074D987C998211594EED22D2047702F1F333AD22B1C52F68632E9CDD920B0F7 +E2C328B7AFDFF38752ED4133643BED021AB7A1506A5FBD1466C09C2CAE547B8B5020814602AE +D871CB09C15BEDBAEF140DCCE5272A8ADE139F3EF35AC55551BA7A59883C617DD1E15707673D +B6FEAD907FAFBDC147AD65207665CC2B4006DABE3D6D8A268D96F7F3E4FD8C89BF0490CCA124 +472F9C67941224778DF080C1DE6C603479345C78940D101BAC1043249DEEFF187AB7AB4B1AA2 +BDC1CF55D31D21CD4C8ED89D1825CED9B2E3894C5DEBA8DA0FC0D2548AE26A9F06566377D2DE +A7DE86B422B8911205755B1A9839A176ECD4A317EF3EDE2EE5F46F26E4DB82DB435E03FAA435 +395C0BDCDC76F2A4603D9159DF9187B7588BA750DEE66B0A49F7AA94B323256CFE24D1ABD72F +7250455F638643AEA607AAC25E222CB5755AA720CF83F362C655A1A9DC844528621640F4B79D +EF68D222AA9A1A8F05D3485EFFFBF913BE8F2CDB6A03A7921BB940EC4E14ADC3AF4C88C89196 +B0F79550069E7D41BD41043EA655D9CAEB1C486542408B77AC516C9ACA7C23F1C41EB81A6BD8 +FE360521A64C510364E7F4EBC25C671AC115CC130CD59BD1905E0F070B8982CAD101133358A5 +9EF342D76691DEB9F9673603E86C1F215512635FBD6AEA9C34C5B0589DE95267A4D81769DF2A +838AE5B7AFF1C47302F51C8402B2991B87C8D53DFD4E8DF7729FDF2702E80484163FFC1E9F5E +9B695DAD6DE2806EF48409D3DAA86FEB4A5018035E753C6DE4A3B195BEC3F8D07B87EF8B7658 +9849CC2762DC193F0C8FD840031644A18D139DEE30CC0D74E501B5632A3C011CD57D69F51044 +D96682DB90248D17CF40B4A52062808D7943E1BF5580E03BA108686B952629E3AC2AA49852D4 +C91B681673836E6207CAABEECC8D1B442D0EC19CE8F919C2C6D715498E349E516847F0930432 +ADED6E126129A6042AC4EE97EECE53F8ACD351F439ABD4D2602D832D50629C2CD9A76BC34ED3 +5D534F111B4647321E05B61C9217690EBC8F6C22225C10D31456B3CD6945CF40936E533F6234 +039F62BD2417DC7E2C527B1A05C3BD3EF6295708F9906E66C8178B18AF96C7994F83D1C74BFD +1E790DEFAF2C65A8256080BDEF8E34B0FA20974AFE87E6B734D0C315027B0C66E8D1CF150DE8 +3CAE92CE1146130083D2ED6BF41B526F5A88D1668D4C265917748B71F37205EA929416B8AEA1 +F4DFE02D9EC60492B335F3ABE04A3F51FF9D8D33D6F4E107A35E040053E5A4BC0249EE87F3F7 +5985E8673D7E26EF895CA51BE063F6E914FB23DA3F01E2C54F654D464F60868542FB8FD5CA5B +730EA6A02A140B555328F91E7E1F67096E30260B4E74E37C45AAE4680EA7115CDAD2B2BE901C +536AAEA94BAB6B7A960B98FE64CF9E281CBB0735144AF8FE5AB9201926866020B6C76F359B23 +868C9475E9E4A53BA6CDEF54D3C85AAC7D915D59A18C4CAF13FD69289D4F00236DBCDB4B8AA3 +E8DC183C1AC38ADA9FF21087BB59677E0ED346F7BA687D2292D97F9BF2EDF0EE43EAE976B083 +4DDFEBC4407279717D804E8D76D75992DE5909E398996323D646887E0AA6EA5604B6925A4BF2 +EA5EF17729EB78B9DCFE8790044742D957FAF798058D486E0DB94D1DA94F55DE5A0E6B89F717 +BCC4A29A80571864E4B85A5426A1291891ADC8F519DC03D2E7C6BBDA198F13F6752484F5E8CC +5D10BDE6059FBF970477C994E043E782EDE14964E0A726E8DB8E148735254ED8F18F1BD0FC86 +6ACE7F9D17467B83885E7A0DF1648F798AFEC1F73E92A31F15EEA11DCE59C00E3FF76B05F30A +12CE923599F66229CD06E11853584D0C38412E94E78991E532E815CFB310349C23BB1D5180CD +C60EFC40376739E8B51422B00329D6858E6B1ABD04CFA6A015E8E0410544E7BD1907CC6A6168 +6046ABB9D00376B421B2C90DE4A14327FA78153B35FDDB21021E563EDAC3919D2AEAF133D877 +48DEAD42E725F8A30DE8F27946E54F8AD00E520C6633742B9718008B7E9F29E09535EAC893B7 +469437468558643BAD538DEF3DB6C6D71886D8B4C3EA3E065518108A42B73D923D34BEE23064 +B53B73DC5890BE91EA02639F577D3303828D5AF1587D8546F5695B805161483DB592C11E8203 +C7F43C992C654F4834EB475FF66DE18F5350C296C5F49518B09E9F6D1B781B4F0582265614C0 +9897EAB7FF6BBB23E0DA90981379AEE8F363A75D65D1D10CA901145DD064A97FAC7F1B8DE71C +0F2D8532A71EB12CE98B9130520319BC0C34C1C5EB67C57FB0864E4861EF38455462220EE936 +5D7FD93E31DF21BCA4CCEC2137F4B805BF64BD9715BC74CDBE6EFC669273049D579FEE2DDB8A +B98157B222F96BABDA9BCF2D7598896D5A82D4309DADFD92A6319049FD6B617460017DFEA900 +70B71D94B9932BA18C3923A03C3498EDA14E160B4F0858705041AB68C9C5DD40F7A6804F1E60 +F134347F588C12ABE6A08DFF1E6C9F15FFCB6840F9C64EE3DE105E5942DBD9236243624657B1 +29781B03E2503AFBE53323151618F96D7E7DE3802E7AE95974D3B38271D0E8235F728D35C713 +955DE99249105237A377DED9FB925B1C54B986574706C0388498D849F2D77EAD10F19EAA57D2 +109332B611BA27A7604C4D27509C32128A948B9D39300FE1B244AD49EBD3CF44A1C7E44D9437 +66A205CD2F98C1ED337020C0455852C4AAC31E9E4EF34288AAD3F044F291526581FD09A0AE47 +E4E0F926746583398D48E9C410DAE3A568B0FB10F2490BCCB964537D6B7EA04100A6AD931DB0 +BA73C9B28B1A7ED466A9D6BDE214975936A6849EAA8C42C10721C7632C6ABC62D1F685E6740E +AC3DDF29B4ED1025DB5D6530F033B63225C5A7D11765025B65F3F75D444E2D3D1F52D1F4A1C5 +1990489239DFF20C4460CB3C9455E2A6A05F457756982FC226EE8685A6AC8DB7FD0026FC824B +D5C8060F02BE4C397C5F1DC4AD5316370E22112772EBEF46AA36AE30DC3F3BB4B4EFDC910F23 +856307D8C2C704ACD85E0E9E5754DF1F028A20C445B4A0F4F0A47D191BBB33D0C3B9AA69DC81 +5D0F90F053BD8FFA327C008E6C932780C29AE9139EFE3B8593D35E59E41F007FD7E05D53FD11 +DC8998AC0E556F163E76F475D21673074D2DC9792FB6468A23056089F7BDCACE14BF57BD7503 +D184F1FFF327CE2346841FDD2B85122BE8133E3F41C0A79ED8082EC0D39D19337156D0B45684 +1E45DAF80253DBCC63ED8443EEAB57F73C24FCEF9C8D1A1C815F09C5902EFA06277E9638D8E6 +E6B9A58D7CE319CF86E25BE39B5A8B17DCAE42A7CCB2DFBFFE2E3402DDEE882D9C7CA1AEF585 +CA924BECF9E0D5AB506F6A1441207B79FA15834407E4C945E3A021F5F383B6F3B9E642D8C479 +655C2B55C4E51451682BEE7ED59D4B2FBDA3F58E644EF482A8AA7D36F9CCF758213346E49500 +D7CBA0A32FF64E8243013EEB09DED86D057BCE9E4EBEA9E43136B0A04A529B691A46E94A4BBB +826EBD66DAAD0E7B6A17E65985B590B77CDE22BE9E9653745713CDFD0C7CB4046FA632E19BFE +92B48507197466DD179F2974BF5DC44229D4A4AA21BEADED978AB5FD582159D2AC9C5170D552 +6E394CA1B04F1E7C17B5E768D9ABFA4E344BAA3537FD0378FCF683871D632301C2EAA453889C +907C75E3CF749C0CF56A19D8AE1136DA13EBEDC3DD0A14B9475D773F997ED867E11D814CA2A7 +BBD4BA73CEC7B3B08C91DB9702EA07EF33B0BA17199FF3A48D8401502C25E5FC735F9B6016AF +ED7E713FDFB10EE93584CB120836D466E5CFC61F7A082CDC0F1E2E3C4FFDDB91CF0B6AB35233 +21B269BAE9C19B88CC8B978957AA1C66186ABA85667FDE1FA112A217C46C76543179E7815A46 +D4517E4187D66AD4264394CC88A3C015B7C2ABC6AEC4FC84C9D6EA714CF1DEF3B2AF24C00DC5 +B5F0A80CB6500E949018090706E926EDC4BA4C0E29D9A4AF4474C3EE3EE0195210C8B514E666 +7F5F0915A3B403EFD0269360D2046BA91F9A6713330F62602417AD2DABA26095A7C13F7F7612 +9DCEC9F9DF8544813D7443AE86E1D73D211175AB3904DBDF282225CCB32405BEB30C159D5B8F +4D1DF8D2D1D74B2E423B01665BB1A2F1E87F1975C597F6231CA78E1176699D4F5A1E0E9F0BCC +F50631A788BDDD9D4C2BDB38B6A06F4BE6FC56FA6A55E1911F12575844FD1E5610BF073C411C +93842853A261368D0CEC038DA641FA90A43E8AE50C9E95212DE57378C21336174AC9D9115752 +26C401D4FCA455955D458B9C9E38E4866A38E96B30A9609D745362D918A5F81AB0F945625DC6 +4D2D5CE8F7AD2D6713C1BB9297EC172B0FE3A963FEF7C929A66E6CF9F114EC6B3DFE36DEDEAA +214F051179EB7489B06A94B1B54A243617AE98CE1BAB1FC52A331E25DBD2AAC673DB1810719E +AEBDC46413BEA1E37F04B14EC3E765D10753941F4E096CF94179880D33566EEC5E21887906A2 +DCBA7E0AA2075A742129C39F25619CA060B8C3AB779CFB6D4C0702550F91C04F2383CE9DECF9 +B9E5D898862C0A50C86461EDA1ABDA9B472629E9087A4A09D988566447BC27739BC196053A61 +B8FDFA0D7B00E21C0F1C62BDBA2A773C2DFD3A3AA3DC1E196012BE7503EE3EDE9664C5304E63 +32C7E5656DD9F88D7E5B203E700D9610CC373C356818C67C118100C0A74A2F84056C3579E7AD +7C33C7A79F586C60377CD3456EE9F77488F41171B075CD01B193339F10E20310CD5DB177AA6D +858A82E6E282282BD06770A67C27101E0F128ABFDA9941B7C8768EBB57806954B5CE42A76177 +4D30B144FF58AFAEFD9F3B8ECDE0E7513B0E01858776580FDCB9807FF241C4A3ED89B47AAFD7 +B74E0AD49E86B388AF193B2B69B7778F9A7C1592CFE800EDD52CF00EC224C407F749AA98EC41 +89197FA8E25AE930AE2C787714B977762CE83CAE13E50BEA03CCD391C065978E086AC6059A48 +5CC4C1C71C6AD5B99BBDDED8A554F468228BD1DBA4A910286EE72015192758290970041F498A +276AE8D18B12F4CE9A7E608C4D9687D45C96C0999DC9F065C288A6F02778BF43B517C2E82999 +8B99EAA53975566ABD5EB689A50B6BEF852E11170C6F4436B08CFC965D676274958D887A1B56 +962119BAFF154A7F031010F28E1782E91C33C6FB68B7D8785AFEB35836C33A3276076A41CBDC +0F89CD93A8F76885DD0B87E32150FD2147FEAC62084B4CBDB7C2C64DFAE202D356142F1613C6 +DD0996EF0F0FB759B58AAAC8A7B85FC0D881957B06F24622ACA92BAC901908B39E4A7DA92C82 +AEEDF7EEA977E1DE7A6C0F5B070A4D409419831C9ACF89EDFB9D6EAD4E7D2CD26FD7A2B68366 +D7CE4FE89BD26FAFB72BA13281801FD653B4721A39CFD9611C0C10214A0F9FC3C648A9494BF5 +E6C3C396BBE9732ABCBE413DB99E8BB46D7E71AA8088262229EE928EEF19C7C69AF5BE9FA65C +3E75D95963A7CE98035C14B8567E47B74FA5F2E2EF02D2CA456F15121DCF5B071661D494A410 +85A56D83E77F6419D443A4722E84CB430A15A632A915BBE8EA47BA9289C44EE73189E13825F4 +1896F094266CE26B200311DCEE0D7BD8A83C09B4D4FD67156A945D5531A5BE63584F240B5A52 +5577B58D0D520B2B4A5B01B27B1587DFB876BFDF561E090897BA5C07B03447B2622D3F486A82 +7D48E2281B279B654230494692670D87357522C174B0E6652B84C4B860F33E5BE50E897F70B8 +B4F119078F3E8B979D2ABDE22FEECB2B877739FA720B8E82D41C86F47762951D6844D7143FE6 +DC88AE3A09CFDC5D2109FFDD4C78C5051E856468745015D3B494F2A2320C9AA23560EBB0AD74 +9BF85296D30E888411785DAF9CCB21B13F8B58C24234C55619C2289EE5DA1D6F6957604A9ABF +3B83058A47ED97A2F753EA952BA22AD94ABAC9E844610354D5CB87FDC1D965FB100EF4608F43 +898591ADF0D6411C0BF795DD3CD508B4053A7A153356578FE5F87D53E3F0ABDD1E2836980FA0 +95A36CD37CE4CB773A73C1F5514E10985C30A34B3C624C3120CA7BBD2E16636EC02A97E461A1 +DB39B5B58D6B8E715416BDB3E6B1DC93B78CA94549361F2468ABB938FFA6DD5D95D10ECA7FF6 +CEECB80209D134752971B888FB457504078312336856162B0E02F928C4EC2722C45C2A9A8370 +71176493FF586369540774E3DEBC1768079BE37F9B20CFD5B52D04BA9D5642918B7040182F36 +1598EF607BE11D609A24E3B2785BC3733DE3E60391647855C1F39EA33BBD57E0413259531923 +2139055C8964B04FBD9EF560FDA57F5FE68804145727A8F50822556B4D3E08B7C1C9EA47993B +FD934D013CC36AF9C3E9C4C8F3F59F5245EFF6F0209815C1DAFEE0DAE5F8DBE3D701E20F512A +12F3F92D37FBEB80BB5D4F03D8BE4C5B943743F53F824433BE77B027B411C0FF3751B41CCDA9 +79A9DB87B2E80D22F264704F2C1544B443A3150A7E8CB27555FB636BE423D5402A30296A8213 +C315BC61A9830D49F3417DF98959359E84F2B3B07064490DAC4BAC7585A892FE516A3F19B43A +4F31EC885669FF852DEC7F1940E5C69C8F74C71EA895AB76584A74864668BA585BEBCFB9B4ED +B792BE6A829BD1242689F3EE9EAA70A3E808EDEAF54B8E2C613BCF3DA264401A9C6F96F42611 +634228BCA162D1951DD79BBE136771A6502FF001CF705B0F39A4B8B0FA7310BC09D493BD8315 +04F3C4E6AE336244C6E2161C71DF69F24D809E3734AFCFE2528E8B9781B472FA5AFFBB3A6AF6 +6B7E60E027AD3BA66FA751393CE10ADDB28C39D24C5D02B5F0D55CF9DF9B4F2B3A7AC74A7D5F +BD17583734E547E8A1CA665668FC7295414FDB21753ABB70103A6846677332D2FF8AE0F05541 +F9D31B45BDC4E9AE773A0F5AF14604358861682A10D85C44B9714B37159A86ED14B61B19EF20 +06ADDDD6F3E1E6925B949483C595D64E6756D892A1CDE54ADDF35B3EE7F1DB173298E1E3B140 +4B6A80EE82CFE56F295E5131064E05CD599CF44DE79BC3E8FBEB3F74B7409B083916FF059BAF +B07E44FC18EABDDB8A8197E653FDC7C17D1EE892AA02DC45C91E2BEE98276AD2A9E68D932910 +860D35A7B47FE121CFF00926403605019EC4EB576064E19E9C694818A47B91C3FA9726690247 +8AF0235C848B7B6A123D070AE6B06975393A665BC35F1EFDE1247893EE072E659A2D95268501 +16D53FF5C3751CC8E36AD2AE8171B109BF678B8A9248239631D37DA32D7B6F48DF7685F011EA +410F3931BD24FACE53C530AE69B15A0343489D14849758D7269B53BBD65E4B0F249EBD80B4E6 +7CF2165F4785F02E2DA78E99A258D2103E56A9F31722423B211B4EFCB85F1DBFA33B0665749E +1C4277B4F937C924AF443F86B549EE4F7853A046F092F53CC1BBE3EF08C91051CE7641E7C8B0 +25A1D358A5C47B89F257A413E6F1672FB3DF7DAE3D3E6319E396A6D8912BE3EF97E57BED5CE3 +A3FF0FECF6BFBCB308F96A05E6F30F2DE91C27C8BAC48A6CB4199F8416BEB8967733EDAFB273 +8B46299D659144AFEF2CC818F4981A1EC035F68E46702C200FC9B1F3E748780836FD8ADD8709 +1B5DA2B217A660DEC9733EB097FEFC01DA5557A26787F5FC5FAB9CFDB71AE14B0AAA2460CF81 +FC9AA95D08A64C3BB3DA5EFCE2808336FF0C4ADC2E6761F410110DF8AF4BE536DC6EF8987458 +603006583506DD390D259B8C95CDCE29206C70BA9CE242C5ED4FFF956E0A532A2065E2EC16F4 +7A2B98EFC32980FF4FE2833BDFC0188590B065D59A01E32893F0CE11BE65EB4DDD6BEEAAC4F9 +52EEDC09F597E74E37467EB74EB6DE80E76AE21274C184813EADB3B10153FC0CFBADD62093AA +BB4C1201D19F2A70D8ED2936307CFCC08895CF8744A6D9D0847BBA09AE95905489D0268184B6 +1EE9542AA9605D78B8A797242FD0D4946F63B8FCCF8BAAC40D920E17F428922E901B151F267A +14DF77BA26597026110B8B62FCC8981BBCC59014E497494CE13B37896D7CB354BEADAC0E46E6 +38C3BCDBF5170C22C5C263218915AA9952E028B839824812986BC5BDAE7335F4FEC7C8E3D395 +82A7C06060A3F9491DF9C4F8025E6DCA249C236186DCCF7674B1A891550D18D5EEA7C0D77D61 +F2D6A3F25F0520E3CA3C8CD1C69D072EB9C47109961B1616C138EDEDA3F47257943CD2C17C20 +8E212475132DF6B4BA125F9B5919B579B3BD4056DA03992ACB6CE5003D631680871AEAD3AEFD +21B8BB3E9AD3BD83C0A7F2CCAB5E71B780A9CFEC497380FD0C213BB71482062F65ED6EB1DC14 +85E2CA5F1FD81C9D480F5A97E94A38B4AD91804A740DAAA9AF41B28CC9F60DB1FD12C86B473D +7C0C211C9360F0C9F5C06FF81FCCBA99692F911CB2F0206FF5C7874D265693D0A966AEB1368D +CF5B9224394496F4575D5FC87E09B9379A2543B4E57C46BF809A9F7EE1A9008E99E7E94591E5 +E347A7062F08598798D4E58E3515583D4E7B300F581690E5A6D6341ACCE6E1FD22FB2B7F3EC1 +AAA96E3E746F198331F9DF51DC3A711CE7B03BAE6B4C14F5DEB819764C17A3283767B3B365D9 +1E90CED0F72BC16C3A152F9A6E0AA4FD23A1673429A1E5E1398983E560AE31E321699C6D0D13 +F35046A212473E4120196D13253CB2BA788854B3D04C0CCE77917B3FFAC259FB2E3AEB47A9A4 +3B5C29A8118986B1436CC795456EB064744CADDB5F705084BE46ED4BD3113242E707D8541CAE +397EA2AD7D02E42852AD90B5AB0E414F020644DBDA3098E70BC9295D9FFA34B46EAE5B626959 +1B10094AA106AAD8761BFEB990945FA58F82AC13AAA4BC0E450E2065CA973EC10C7C2FCD6FF3 +57558068C08424117FA793BAFFEA9D66FDEE82144573591B1C82631666357A8AC9347B569C22 +19938E20AFEF4F6943626D145FCBC33099331177A8DCD768FEC06A6D635E11B5743A863888DB +EA2CD5116E7FD55F637BCBFFE311D8AA08D1FEA5752BD1D45BE0517728EE0F830D39C4A6EBE9 +3675A796CE3B6EB8C424F2FE23F21C9F981A7255F0CBABF1474C8EB603CCD8A9023492F0243F +64D8229C9179FCDE51DAEA40F316F51037D556B297860E8FEFF584194A2DA3DBE403C2D982C8 +E62CAA0C799FCE187F268C0CB9D6C38CDAA1FDB6CFB5DF68AB96B57F39FF5843693980E410A0 +BEF7A7DE1E1BEFBE478CA965B85157909562E4F33989733CC87A6BECB4069F91528B7B2CB1D6 +A89CFD21D0A94B0B670688361E1DB982FB7DE039D7758E65744A0367C5EF4ABF746BD481DA9B +438FDBBCE77B55568039E4847FB5EFF8586BEA44348752A15D146B3534ED31C8BAEAD0C748E6 +067D645E77439D05358E83045014E111E07EB7716AB75C6ED48666FDB7FB241E00B30C139650 +5C86D20A024E43A26007C30532E2186854C07DEBD6DAB725C5CF59C12E655D523135D9D6EB4D +BCF69EE98537FB6AE3C2BA9ADF0A52F3E9F75D0BE6FBB0A232119A83010CED186FD2A7FA96AE +C3535E94A30683BBD9F279D237B93FD142E1DC831DD881E56BC18A1925F1DC7D3DE4A2C731D1 +6F4C89ABF56A9DC6A46C3D5B7A6F68C8C232B4EB0CA8033D8704CF60B22B86835844077C3502 +88738523E0907294D7D9D9820CDEC4BAA9B413CC3B17EF56380C6DD1AAB437C8ED2FB2E2AF5E +CACD041227AEDF59FA6AC9F38CE750B44B9C6831C0082271D39734D22BA8AF91D8D763F1C2F5 +E26BE8448927E07FFB591E871527FB549987663FF1EB056378F293DA3B3F662094C9BC339DB9 +470655EAF40D4B4A3D1493D873CC0E8CC9ADAF9AB0AE0D36957E814008BDA685D78B7C1555A5 +F3CCF9A644C66A366B041023626B2C6168863D603A440DF1EAF427AA84F4274F2EC0FC3D1EF9 +72B64E668F5ADB41CC922E14198FB2474F9CF3342BD85578E1D63F8E7B15CC10928537E8BAC5 +5A83C2216B7092945E38DB0A27E97EF9810A73A2749539C2FFCD69CD7CB68FA2914B5F9D051C +8420C89399C2D3CBECAC0630A0BC5B6025A4561CB1C0D65365DED663848F27FB105FDE45E54A +0AE2CA0220241769EB1CEC12C305B80E85E050857A21207CB01F1E5663D844F1981B241701A3 +6342E86C612D16E101E295CDE47A000901C8B086F7B3D994FBE1B41BAA52E37DC5F4533724D7 +3369A99C32C982597C9754FBB92774AD8335B9E41364D366304B1C8B16722096F239A305099F +5D04506CF7B1CAC594EA0654A3EAA8F9873351F1B5B2F0A23DC9513CD77160F68145FFA9A6D2 +2EFC408A34133F0425690A64A8697F8A9393BA15DCBA63C3F510F46A23577E1EC1852C5FAABC +307562F0C1B3C7F74F5D5EBA361AEBF5F68211A69E6E6BA0177AC4FAFB07F40258B67CBDA435 +1CB31A8006F994B1290E6516E89680548427E8F05784CA143394A347B82B85AAFEC97A077E2A +95E327056AF856A1A741CF4D280332F62FBDDD2E15AEDB7C3563149866D92A7653942DB8846E +CF0E30229B6114E8CE0F43F41D0B3A7DF59077BB3A06520F95772506F87EA9161530478A735B +D91AEAFC68A657FB1500B51C67911A5221FA33D044B18B2970EE8519CDC9D3A449A15B44E947 +59FF73EFBCA4F64C6D536ADB389A4CC2AED67C92049B250C11B83B736C4508148450CCCC21E7 +E465BBAF8A99E0384EE5070761386D228D79B23A696A7D3A5B879D3736656E99A5C230776305 +15A20E202060024707C2E6A004AA06EEC0AD48A8CAF0545BC9947EFF08F89BCC7C9BA3A188BC +56412DFE4CEB6EC3DC20475E7F3AF78A077282EE01DFCFAC7E16CF15C06E1B5D2D2E3EF8D3D4 +B0A393AD9C3FFB44FC6310A14EB9B2B0EC692CA1619CB05F359C706E0F66B56EB6BD6CD22F6E +E10867F2F3AE0BEA2DDDCC00173203A5131B1FC974E9020ED2CD9F9CC8B65D8CF100DF8267D8 +0DB4F77A9629B31E56CD3F5109B07F2D5B00468C9FFA6727C29D9CC7881D28810E0F665FD158 +9237A8E75EBCBE8B7475A34263FF018AE4B820493376BF9BD2797FBA33241827D8586FF99A8D +EF5C8ED2C6C1392543CD07D0A44627E13F185906525A0D2E6AA28DCBF3BAE83B5D0542F5C0FA +89772F1CB78AAA5CDA0004C41BF89A58292C4D4BFDED621E81F0AC70581A294054CC699F3D52 +0A57FE0AF0A53861A0097990DD8ADB7AF748BBA70CF98ACCC412405FABF5162EA448B11253E8 +01D1D83D76694113CFD13E5A747A1E8718CB4CE4FFB5CA53EB11FA4F44A5F2D480457CAC7B97 +7FAD49259F7E414CFC812218CD6C1F650545391268137587FAC0EDDC71FA7E47FA25CB5ED1A6 +2846B0EFC6FDAB317FAD1A725BAAB88FE3FDF11B36583463D6DCECAE452752C5EB7283DE184B +ECADE20EA95A0A07BF55E9C4607E427A7D88CEB96B5DD535C96B81C7397E39210AA8A1C4ABB3 +11367B1D16F29F7A0A8AF8922C5993582711EEF86F1ACE9C2B8568CB34AF8B87519F781004AD +4FC9A703DAB772ED8648762C7D86F6BC6F5C1A02E9A7C173777193DD7167D88156F2CF7A360F +AC16B96B6AD08BEE4346CC8E106D91D01DD5821A63DEE52E17976EB9B7BF73C10E6A2CFD8346 +8C8468B55157F11930C8756A4C6C3DEAD989F3324A4CE62C67A831AA439E7C0BFD31D9B2AF73 +1B02948A5403CB9F4A41992E9BA8D071ACD16392E36CF48209F231A32A53276665E746A2C5AB +9CDB9F638EB049DA48FB6DC2D702E740466C65BF62B714D2B305D54627D409AEB95BC15015B0 +8C233820D8264E60CC2552CFE4C9F97FC9F3DA1DABE61B21EC53464AA8BEC925D0881A040614 +9C4D84C49BE64FC138069ABBE08A504F7C301FFDD7A1316B4A59F01638F30B76798B65D3AE15 +B4487ED783F9779BFDE8D1F5BD7BB2065AE89E060AEBAE3A6BDA83E3E03B71E095FFBDE90A25 +0CFBE8D6B585C1E54886AFAEFE65C0CDA3626C3D4A83C69F4C2DFE63961551C31F102A7E3DD7 +08076ACC25E40F74D79CCA3D9A60EBCE58AE225FCA034FC02C959F76686E65E14FBAB143DB37 +7587F02E6D2F12FCF4E384E2EF441BD13BC68591EF68746ACEE3FF3E8AE51B3950C5E6BB1D1B +BDCDF0B8C12B6017BE55D9E3A937E2BFF1045DE8C33666A8E3062FC51121FB1A4167CF8B3E26 +CDB993324B8F7101EE5A4653C2BF29DFED6B6162D125DF1B6A6246B3472DEECBD878CAF89C96 +3C70851B4BD08A80E21ADC13BF53666948ED6DAA11B0F562A39BD53171FE42B61CC2575E0AD1 +45D5EFCDE0611E55733D67B2B5B1F320FAE5E3F0A18D9F642E04CD946C8E0FFF83C48084076A +54DB64E883669F2E60A8A742FE3E83086028A5D93DE155FC77625D3540FAC1B10148F8453954 +74FB115D72A1367D79D9690A415D553B2B3FF3FA6E9BE248F35AE08E1F5DDAC967CFBCCCB4DE +460832630538294EA1065FF58EEABE4D126301436A61CD8DAB1709288C62ABFBCF4FD6085D0C +8C840630F5051BD41711A640F2F25CCDC3B8B42FD952C810847098A1BF6E1C4E2DFA05B6607C +CEEEC9E233C49670A0A063759E7B65B4FB959B9B0EDF435CE4CF2585D010E3DC6F54F3D28BEE +C58D1928A106757F63DD927537B32A8FBCB85563B8E9EA1B561EEF3FF6A33C0DD60DC9AD06B2 +D05853DE7F0441EB7A91FCA27A6027CDA6E043E16B202EDE1B354DBDE2D92823877674E89E02 +231F9D2A8EB8F439C43011A493FA8F9AC70680B8738DF0E047B78D4514F826A78CCB507211C9 +E9F31DD2B77A4E0A09804F4C0B2ECAA3E0CC8D9080446F98DD12B7483405A78869D90FC4BE3D +8461AAF10864E94BD168C4C83C962C443800497A31C72D3BA996AD14121E2B5DFC7732723C5C +31B9B3A3681C4835DB7EAC8FE0BE296367030052AFE0FEBF4FEBF8794B3624A01481FE3D2A82 +6A536420126AA953C225AD7A750A7D9E8D6F9D30D8FE5B7A00B637B21BB9D036263D376A8FBD +6E553E7997D9CEA98B262E632B1B28915CDBE3C858CCEE591E2E2478F6F6C9DCBD03602615E0 +65BA0DFC3EEF9D29412C4B3282E2EF035B930BFADA9649EED2FED7EBEAB371B8711E324A6C9A +F2FF1783E7F1243C9A23C6DB9750C780962DB198D3057D69BE430CD54BC51DDC8F3358284780 +A7ADE7D0DD6FD3310533A9B0757CDEF7A582E677EF7FC465EB911B9F3D3060132A262269823A +2C506EF5799DB4E2BDBA7456E5FCFF065F9B0F3582083B8F5E4C087827A148A532253E279DAD +980D7E7566F409760BB9B565E07B8191D5DEE2BCC36C4727AAB895F7F9EB53B371A07FE2CCB3 +1018B17E2BCE40F9DE95F67FF10C8D8AF48FAFD26AF19DE656AD90121F628D419055AA0A59C6 +323D7582FA8A458223B7DE3EB7FB56351D5AAF5976FD76B8E59B94B4E31962D602FBEA7C762F +E7685E0B24B183C9903624A605BD3E641F1302A379A4C5BD746DDA3379A11FA99398860E1C25 +975154F4B8C95AEE5704818CDC8424729A15F33C0366F00B67DA39B86C6CB2DDD3B3ABEEF5CF +2CA3B21FA49496C488B6D5BD9D0D901D7CE35BBBA5747B5CD07AD04EB434C4AC13A8CE83B003 +9AC640246FB71A2ED25EC04A7A6CD8AF7D9E21EF81A8889AA1386E0A87545005DE09C1232D99 +592143102F847B7E5EC980CF3E85DCC1A9E58DC0C2D65F0913E1C3F0B73AF3A8C86751669F20 +E66F0DE093F0D92A7A8A44160B611B50C212CD54BE197F90E114607AC6FB6C1B5DD715C38781 +46EE0B286DDE1639564B242A234BCA17D6555D3FFF9BDF160C3CCE0FBC9532C4977D01C15507 +69B29CC293C53E70A80B1CB3786476C7D3032FC674EE932BD2A98694D95BD33222680416BD4B +C1546DB5FEDE4EE75BB71643F64F5D961A16A189674001BC9DAC9EAAC67F0799AD5FCAE7183C +9AC5081A57274137FF50C01FB1568348B2AA98BE1C9F54D7F6A251660BB17710A5ECDADBF24A +B7C367C662E6B7FD57FC092A6DE4668D87D38F0DE4DE05887D4BE4E85C19687AC998A61EA4E0 +085E6827A52BB145DBCDD145FE44F7D9B689E0FAB9392855000C48BD191A587D74CA971DAD8A +12D4B57A38F65518630D7DD69DF4D3D0CBFD6FA67EA609427B50F94236BEA0E58432AE400234 +C2C222737F19F3936014828B3C36163B31B5E5712A9F18A8274C2C4FE1651DA6554C4A23456F +6A2A766B51D79804F4061E1FC1A1CBF0869BC874B26723FB49BD0D776A4BDA7AC317C2A727B5 +ED7275E929F2CF266BF931BF97348C0743D0F2342B4D65E983743515ED5EEAC2640FC8C087FF +6FA532E844C4254BEBCC1A047846D888DC492159DEB71CA5ACD44421ABA5C3491ADFCDD9B272 +7DB86E7777975D6D20B2E462463B7C6B0D026026F09D697E510CA11B8669FCE997251EC53238 +6E829F1653FAEAC84BDDAFBFB302D37AE46EED812751974C0D4A1066A2748B37345E6C852E9E +D1FAE143430B21E56C14BC72712CA158173B8605F729967E4FD41CDD60D648B8AC643DFA6CDF +6F8B5467D521CBE7105F24867BA4CC9DA45C837DDE0BED2D9ECF045DBBE7475A728318299A5D +F19B1260B0C368D2CF8D0D9FAA58016FF441E026981C6816D2968226F6D0B5C4BB457F658557 +8749FD2397211831821DB0668B8E4338E32A572AAAB15FEF7E93DDE37D558F1A3D94F807160C +0167D81ACF9B7AAC27D7979733CC261C07FA1941E0801C7414FA2F9E054A2ACC6EA3C86286C2 +50F66A4B230514CFE6D83ADFD396E12F149B2AE96124ADA376F63504CAF144955F6E46F88CD3 +FC73B4D612ACB27F71ACF202168022A34305038A0B200469B5E2668ED273D5820E0DA59B5850 +51AC16D2736020CF6873A9DE1998EAAAC0B0D47EF922E301E24A76978A8CA754D23F7BD26C47 +8CAC4E3F0DE7C1E03F6FFBAE35384EC637712F5520D0402A23F3FBF6C63C2901CEE5D98AA9E7 +012E7EC99FEAB16844488902F044AD5D4BAED2707AB05C7B17EEB7A7AB1032B151CD3353492E +C504BE32F5FDC918A1DA8D99990992725F1A260728F53AD01C93F9EBD665E1A32D5CE318EFC9 +7EBCF998A9025AA256070DA2B667B9BBB3E5616B2CA66A8EE579E5AC3E9313071AA513A2A512 +81090B11F771532141E9D7ADF60836D32F1E99707826A1146EF19863C83FE75E84319E2CE812 +256B13481B59AFE086794CBA83FC44B5E47DA84C3B3C70BDEE939AA14C4905ABE7A681385055 +F794876A4EBBDAC148B985316CE2C2D80FE4B451473D53DCFE7FF0DA11BEB081A2D6784A4CFB +8AF804A79D4E51CB5BE3A7CCBBC01AC876D006B96CD1A4C37D6912E70C0A732B877EA2DED6A8 +530A4DD0137DB8509C4C1E1B44433CDED029B4E8673BA06ABBA225A1DF6B86083708A2925240 +DF89D92350CC7E09B54E4ED57A3D456B204FA54C56594EA47EF68977CC52B8FCA7B3173E6C37 +DAC9FC74B1129EAC705CEE38D747233BBB5F3BC1ADBDDDB16F532F3E267D77018279B5E19418 +A0F50B331D853D2C54E5DABAE16D627FA54539620AB07542937DE05073C51B0F84D22126C087 +2F0DADF690E2D8FFC601642926DBAFD31CB5F4E4EA09DD3ADF737310AADA0C998CBBDE6E25E8 +628728C3916CA9A8404E27E8F61583883E88A25B88F19B5BF1DC4F907E1CC02EA5A3419F4B7E +7B89A582F29AD3DE67A2A77FD338AB6CBA14AAD920FC6D2EA85E0A9E275206A7D84BBCE226B4 +142778EDD33D2DB329451B4B25417694FB47975F8F6FA5093A28A67C04FC04D8BF16803A10EB +BABBF6F42D77E68255DD76592306D8BC3083AD05B1160C691D94A656291E1CDF4F177BDCFBAD +C3D45E009FBCC85344167043AE0321A7484D60C5B8AFD543431CB069419B96B39A9605FF2768 +666B338546199CCF5D248CDF297124E0029C52BEECEDC9E5D1E60AB1B3D27BC803A8BC65C054 +E6839BD818BDFCD609106BACB6D4D502220175791B00C011EDD5AE1FAF080A340DF0978B77E4 +0CA0318BA24D7DF5F75EF08F480781B211AD20AD2852934BA9B6EF15A244E268F1CFF71C6B46 +D3B346752A98B53430B3DF77C8B62F82F71EE259F516130E62342362BFBFC946280F5C89DD23 +FA98CB13DA94F209208D35975FEE8E80A79145CB0C76B5F6CCD2050227C88DF45898A1BA2930 +D046421F2BEF1102F14C4272CA1EB927C486F3AF8BA8263632E062CE30F30F0BF9245EA74201 +60F5E08D8770E7A0C55929E081C5AEC44C752D3747E17A745D09E5077F21A1C358986F980391 +19ABD1A496E33AD65A2F2C9AAAA611E11D6E3449CCC03A8DC69C7566417B4AA38885FB19FD79 +AC260B25424892E647C58CC6386D7FAA5DD23BE2DD9E9B8A04043D24BAB5B90534D6A002F128 +0D6196D655ABE13E214D306CE95DB88DC4EC1907E0409587522C61CE76A9BE42CC043CC160BF +B544C1FBB213FBA51E1C480937B8B640DDF4A872268630A5D741C6D8BD3D46E22C86F13D4D5A +1F456DBA23008F985CA832AC2852D74EA4271478465C9A72078D5D4899D8248BCADE4995513E +E47D0E806CB7D13B814E37B9BFAFDA451D70E5D94D7AE5068C645B2EE3690199C173F4CA0D60 +422993228F4F353A306ED1440D254097DE2E4405DE752B26CA8A6CCABC27C4604C44B7269456 +79DF358FE86A00E4F7EA6DF7CA250C6F012AAF6E2E51AB95906B989ADA1690DD0A35D42FF123 +1C62311659F95B8389A6CB8C943A4ED65FF1C7E8F8F8A3D0A009406784E534AB50207E63001E +196A58CF45A07337D6AA11A0E0E26610D5538F1A29288E15B308DB05E8E640BF43B5C0A85235 +0650089A27DFADBFEF1DD439B4B9ABC736DFEFE7F25969F41FD09B6504F5FD00D6144040A435 +B16A883D1C3A61D57FB331778A811B7813EEDB71DFC653A171BFBD63406AE89584C3B69EE8D1 +F7ABE57C832C0B9F70499AF866633F1197A435E16B87BEBD742BC130448ECE36D7896D5F5F27 +7C0BC86D3F1E5BF875791D0B018EAB0D2C02FB9AECC11DC4D3BE618117EAF432140723E98A5B +D498EC7B5216A6BFBC4637D958E37997C343B509FCC4034EDE03228080005710284BEEB6639E +CC475B65F668A7601AC937CAAA4951FF43B3A4FC5C316A99035686B8002AEE194BD92379179A +8D619D7C1C5AA7AEAE7CE4D1D80178EC069C3E442A29D00EF218F86BF72BD744A2ACA6D4B8AB +DA4DCB335AD3B8134851AC31D715AD643EE9D5F73B1BE77FC58786215A9EC7684E33806DA6C8 +007A0ACB519220D5D11E4091FBFD0E448DDDEA02558CDBD6FF1CDC6D15ECF9466AD5B9322EB9 +33529D82A1C885683903B46D48B3586F7787D4233E97099CEBA6FD58B8B7FB8F7F42CB634238 +25F0B45BF94293E410A32875211A67B1C2E1FF78561BBD5AFD9DF64969A592F86F709DFAB6DB +B1629A1C7056933433DE55792257A97100E1EE06A4C81E8B109FBBC601C8B6326CBE6250DCAD +5DE2FF4A2C6DD8650F74867B6D0FAF48EA0272CCB813D4D3056A22D194B59271D838D1D27F71 +2A488590AF1846C8C2825A75A77643C0C2F818ECB406525BED82415800E0862835367B0F0B04 +FF9DCD92051D6DF40E336921FE239B9EA13CD3A6FA8E5B2B7A0E8D2301E30718BE791457D7B0 +0FCF5F246CEA7F6579F1F6ECA67DB9B9D7D817ECF9EA96849518648D9CDE2A1B143A5550978D +97440FC06CD001A7BD560AD31793A8AD7D3BB5E53CFD4EE749B2F2B453BC037C66FD1F80419D +05822C148668988C35626C577E9103D596912EFDF76C7C1DD8A8C6471AA0822653C91711C35C +54127ADBD11511B6CD2FFCCB972510AC585882832B73EECA79DF2B89D48B3F6607502C9DF201 +B4AAC79FE7BCA0898AD3D54408529D3FA1BF4DF61CC4F99678B766F0B1EC50B2929FA801FAAD +51066D3D67ACC3F0AA43CA730592262D48A2186F6E48D79DCA6F561EFD2E4EB51EB6E52C6840 +F8E7FFF4279AAAFE062C5F63713302DFA7CDF62FDEE79400A922630AD3348DD763375C448D8E +0448904E83F7E08CF569E15C2C0449D635B288BE488FE6BECA0F678B29A5DD5D6850F6B45CFD +DE05341B27867AB77D11924AAF00565E834D14E2D125C4688DE9D6137856F51FC30A36D9F3C0 +D5E38164122987A2C49AB051E6941F0BD78A30EE8C445B38D8DE7AE8A10ABFB8B8B1C690404C +1811F7A85F4D52D4444D026D958CBC15380ED55E8F6C356A98932F71F70C30735423103D6D5B +D36B824328C31B24039293408D0472AEC7261371D1D73320A96286462B6178BE8AEA1760E8FE +6769441035B403C5EA59AB52743A44E40294F4383F20B3B5E1D0CA0EC3A2CBC333523B999427 +5F55D090132E37C27C18FD25037296BBD7DA67AAB0B33E6B89D3A5ECEC62E1E0B107F677FDE1 +15D3E74B707B125D8BA479EF7EE8739FFA00097EDB1E3D761C1AA41937E10DD6004EAB05E713 +C33ACA775913C55EE55E98850485636068E4A43D911F6808BB24E215AA4F4AB8F2C5775506DE +F44C09E492DABDC852AB89E4CBD56E7300716D92817AA007F713E77DB9492B6EB569F713172A +F24084404ACA899A5C4A375FAF45EC3E08AE30842FCFF02A630A2CFAC0C4A4C0CC35D88670A2 +0BBD39DE55753667690BC5738701FA19D646D7B5EE2806ED02C89BB84B29082036337FAA7E98 +F49816109B8FFF8D6AA37DC0014503BEA3284B56565908D74266736D4593F69A54AE27A874BE +D00C82140D4B3B74261F47E23EADEC5EDADD087DD5B34EE4B02C67127F29F320A0919835A353 +C2451CE9B714424299E2416DFACF980D9A146F66B9C5BFA541C6E0CAFDC578354B8221BC7B3D +00759D958CB26996D250524F4BD30DC96E22791553303F85B9171A08C2BE07C6F8E8B79C66D1 +9B7DD8D1DDEDC72145585BAB12DA474F5E2BBBBCDCADDEFFF0A252CAD79D3B019D222AC7284B +D74BFAAF06A68642DC89BF1DBCF0F4D4A26A62D71FAF1F029343741EC71C16B786EA52FCCEAA +25CBE89A98A06F2C11315ABA551A467B7E7CBC4C0936F544B93A622AE211D80CAC338346A70C +1280F9ADEE1AA990D1F78126FBD987AEE4105FBD50CF148E4A2619E589B905A4CFF31A1AF617 +65ED89EA1A73351C10E4E6BFC771EE87AD674B6D9B2D6FFCD1E426B86C75A94C751CFE470A9D +0A992821D1E73DF32BF048CADEEB98286F077383B5EEC29B1E61EFE054E87506D0DA1B35425C +B673F82D52011BE5A863A12C9231963DC4018DC8FA1E4F4A56D93A1DE33F572BDAAB3B99600F +83C1C6A51E7CAF7F183ABD3DA455DD13BE1A96EFC5A703DD8AEBB73AAFE967D6FEC11AF1A58F +DB4FDB0A000E8339045C818A44461BC5E7269F5317D0FA9F21FD714EDD30FCC6DAE7DB153611 +58A0A1C1A8BDA3A769D7D8E94E79A76E2A4C31B460D58A8293AFB80F5E472A009A078FF139A3 +C1C8248C2E721B417FA04CA50D2692EB80A7733797C1CD9269085323252BC3A7BC3412CD7CA4 +2D42C8456B8777785209A327A3E9A0D1946455B6A16AB068D24EBE47E83E537634B4CF633D66 +AF9526BBE2A02FCD14CAB8FCF9ED4221283D3A19E73ED4201FADA752F0F6DF8486029C14F6A3 +1B40A9F4E96D9E3E4983D616C764084C0C3157070D89E763021D0353078E0E40D882E56F293C +51ED81B1F19A8F41A6E0528A7DB9F0680EAAA33253F654C1FAD8D68353049790A13104B0BCDC +D3E7C01B25AF16910AA9EB967D0B9B29B0257C7DE6D8820EBAAA026BD5D305061D06BD9D0E23 +0997566E89AA444AAF954945C7150567FF65A7527CF3E9DBB42300391F1D9A8A1D7E120B271D +C0A1AD2D9E1FD98316AE6AACB47C7424F822C97BCCA4F5A6D2473265E987F16D7215017F1BE0 +60B9EF5842E3706C2ABB06A64BAD7FE94AB6976AC9E7BF9C751461B06945298145C9806A7304 +FBF1DDDE84AF825EFC1E0F469779274EF79189D3AB752A7BE0B58BC33874281F79AC9CCC33DA +4F369D9675326CA986AE88B22DC6BECBF23E77C57A667C2B4E32EE4DCB14BC9F1D1C8B2A6103 +3B7BE0EC9C29B8846082C9BC1F8C1DCDC8482A429F78E9E8127325C87E38DAACDD4DFA1AA0A8 +E58A1134FB6EBB2C606A1B82834368743784AE2F9B6AB5CAF41970C4DB0228003258A214D5CF +F134D348F9757784D15829291B7B67593D060F94317206DC2227ACC9DCC8B1FA2B140B022C01 +1B20E1089433392CE890FF4266942A9389636CE64F92D8DE3CFBAE7F382DD70E8ECFF70EE613 +5694C274F98951DCA5110CA6B599202439219B2F913F971BA4146388D15056BC30620A5F2138 +EEE3934F6654187746FA80D4359F2581B7D4EB470FFAB8899A716BBE414F295E35865C120AFB +84F41F6841A89D1DA8AAD918B878E5733BD2ACA7311E129D02D84E2C9640013E6C9628950D12 +2D4CEACEEC8D6F77109AE46E51F6431DE0F8FEB6732375E7D84951D5D96CB948D5808A7889EB +F780C2F4563AD348838757A695A52930CA123D169CC37A28D01971F5C7318C6CE392948AF807 +6D194A184E3CA3DFDB4886F27CAA7505CAB4C1C51A26620803AF01F9892D68D4E0EACA84E4B8 +D22F5535CC3F0974F2B99AEFAFD8F40BC1A03F03021529205BE8A76EAD9606859F8B88CEBFB1 +979D7C98D9BEECADC3D8E596EDC03951A91A5F235F8D27A7C60874BF4984C717894742253F07 +B0C6FC27EE6F65283DC75C40C8BF6B153AFD1763CC71704B13F11D313BC9D016B604539E752A +F5FB4A897F128933C3BA68AA67B0750BD3E0A65AF8AD9509FEC3AA9A0753BCDEADDC05C521D2 +CAB67BCDE38C63E73D2DDC7D84439A63BFAB2722EF4FC34AA545E0986D388E496B0B3962DC2A +ECC9F16129EFBC9CBD3BDEB81C18C35AF3304721F0C4975F26E4A148ECBCE147191FD423AD26 +2B6FC93CDC494AA23AB2DBA848021B3431F359EA19E48466A796FE2CF57CDDB261CC3122C09B +688AE0D067029156A97A80DAF718A660F69E02EF81E89D23BF85ABB2031E4EA9D8BC74FB2AE6 +442EC0FB02E31010D56B4744E8D18DA0134EFA38E1623B584267986673147185BE802E803B12 +D98F5E9382F6EEFDF8D80978AEB5210D71628C10BF4FED1335ABABD625B037F322A8E3A9E811 +4C1EE08ACB867C0A595DD627AA1085F92B06EA2F73202201F34490A5E2BC49A248EE72750CA6 +3D58C4FBEEB96102545C9F596DA262F1BEEC11071C4402A804E3D81F3D37CBE5A26D8764E209 +7BA416BF7F70046201776022565655BC395A2205600D9EA0F4E9B350DB04B850241A1454EB3B +8B41E1B560A4EE5BA69AA663DCFBBE513B9E85F66D08D231CC64464C32E24BEB88C545ABCDC3 +1840EDD347B8BED141A4F3F7935B82E8009531FC4348315C3BBBF774C5B7DE94291EA60D16D4 +344BEFC05D2B094210BF5FE97989AAE0DD818CD143DB18443ABD1C0CC7B2C05DDC49BB9B4D71 +2C6AA3539B9F7CF34151DFF9D31CF3C54F0C89AB1F5AE6A7B8DE3F9734159774870EE083194F +CF48A89566858A1DCBF516D95CA7D6334DA2C56DA1B5E2EDBE4EA8270AE875DA9A2902263EE5 +1F9BD3089DE3CACADB51913CD89EA491913FFF9DA545B9DFC933BA4396639742DC60EF85AC17 +0177ED9ACBD9A9F1107026FA0864BF84CA6A4D33DA5ED013C2AEDF50B3F3194BA96B35E3C04E +32967E1A67BF61AB6CE7567C0718738A781DE9EC1980925D6BB42A1F838976515D34B0922842 +0E1E0DD652F3AF65FD8C4363DD22D9C95658319821C9185693DF278DFAED1D94B3C4134BFC27 +25616333E1748F7E2B69542BF3D598438A34D7F70165A8DB7B3E8088F58D54CC563A3EC9E652 +8EDE13C573FACB283100CFAD7849A03C7F13049248DB693BDD080DF8C3A459BF67C0021B3514 +5942BD5B7D62F949292844A970952F0EB3C7002D3635FD05A0B8CB43B80CCC73B64C1BB76A31 +0515C7BD1B343D274517A5D1E5EDB3BCD9747FC59E4EF40F84E42B6F36CB14E22A153CA07C38 +5AA52814E7A88273074D00A184AE6B58D45FDFC8B94883BB8267CC930B444D4371886F042615 +D55159234D77BAE6AE598736B9AC350F2C59AE27DB528C50148E5A2281282A66E6CD3320119B +5C705448451C1EC52466F7B99BD41D484A0D8DA4769A51145E47C09EBBD17300E6D6AA835DF8 +AC087F675793001EF2B0FA01C6434E74B873AA3B7EF40EACEC1A84A5E6A94D4820A8A0919248 +CDB834B7B5C8EBB4FF8613590F2C8C8880B95D62733A2A1DDE42916F4DE941D7CDECAABE925C +BEFD995AB85E1826EFF0D80A81B3B9E7A3B3A8BEA60F3F416A7049C60F1CE8FDA10A3BE65A27 +B2870ED3CC39E83496AB84C3007E5D731B35C5F204DF4DD7117EE32940E14402BD1A16C8D49E +AE10BA61938FB384C82C1FA75625ECF39456A0EEF5CD81CD74B2E72E84A174CEA766BB329B7A +2C989008013C85F15E808082AD45111EE91BAE11724523446AC61EBBB3266D79F2FAD7847833 +88D96766EDBEC728E6F2AA81C58896D8F9F280C43F61A8B7B7DBF853393F18B5A00BA7914B26 +3259C45D101714F218F234FA00C15CEB72FF11C63C55D9CF67B3CE1F3F826F9F68EAB658F52F +DD73C77A38A27BC49FBE082F98D548C314172A41C636102019B29FDF96A78AB04B2306F3AD2D +0C17625865F58DCBA8275F7737CD00701A85D8797D9FA654DFC2CF2D247B4BB294E92BF7B16B +E4333F69F9F145153A3313F060123ACE8FD8B0A9ED99C7AFF6D6FDF1BAA0446511C3A94F78B1 +990D07780D10D298F5FA1316071E3FCDA867B60ED27C94381F982E63E16D1110DCD877BB733E +E0C9209153A68C45B29C60DCC64CA9B9EA091B36834AF87D3551B4AB6490C29171F9B67DF378 +F15B06D9AAB69E3100018E194A563D1B56B666E1F22432C322CFB34E7F605BE07239491DAAC8 +60DEFBE7D773A8FE16CF8BA9D22739F9C9795CF0C6D7CA5B2A621C888EAC4101B404E26B127C +865F273BFAE0FC83099E6F9DA4814D0E5BAB0FEBB77B599FB8E1E4123ED1B12200BD3103A39D +257F47A955E29B02A477734FCC53745B898CC34CDFE725497FD91805E33D5059115D2DBE2867 +34A5FF2CBD847569BC5F6DEE67380C24DA642D215B6CAEE99A19C18B6B0F396F64F28D816330 +66AD18124622F2331090823A0F2E99B7878150C8C83E52BC4F3D18E5F20AA6CDC39DE471187D +0BF56C9E87648DB397568E75BA83104AD428ED3A4CC63C976B01758AD9FA8FF327CC05945039 +8C79D495DAEDFC651D4A3021C2A2D419626C05882487FEE16F113693BB47F52FD38D35EE445F +ED54C4690AE2726243EF9BFF07AB7BAC59197C076D0FEFAE078EA6D87D91F7A963C07137F255 +72C3B6DACD73EDC6AC17624A4371B6D1049C7C06EACA3934A912FD4DE259A1DC48AEDE05CA74 +B15A23782C6A212AC87C5726A0EE4EF3049B723B448A44FEFAEE59E5C59E3619A25980AB2B23 +CD42E49BFBBE1FBDB2DACF2DC74E01A9125A3B90CE131D95C40B0FCCE7F19C490E5D33D086CB +571C109FA6D8E814422A7AF15B49C28D2A46B258E51AA9592F99A3C2F5176DF8D6B4E3434DEC +16CC8872030223FE9A341BED30948AF03969C68A49AAE21E54AE43208916DF619DD375EDD0D8 +B1DE4127F5AE7706D6FBA8DD997AF8E4EA540610DD42E8CA5B5091BD1C373272064C13A3C801 +41F4B0B7DD5091E0EE7CE77E29DFDBABEBF3962853B36A1E87B412EDADABBC61FE68B8DF19B0 +F8C636B2AA37CE20437BD16997A8BDA316C7513A93BE433A3CB0F8C088F35F2C11384B0712A4 +16AE122E4640E6A9D4C0F6D7C276C8D86944A62FA4D1579206237236D063F009ED34BAB304F2 +FEA4FB782E3C906C5AB7617C88247F9C172D7A7E6AA473897A6D9619D8E4038EB7810E68CB20 +A39D79D9C116BBC01D0C4D7DE743BB2316A8FCE00AC885B8045EA5683381C184A68780B8DD00 +6F7F564C9BB7F666CFAED5A0B5DB1F11B02CD3CC84FC229CD8FF9879B4B484C9C892DEA3D3EB +2D54AD7D73A981CD5D21300F74B58E8F941336DDDF7B293F826A2094699901DCC3FCD918C5EB +EB291693D45D2B82919CA8D572ED1C3CC34BE85D8E4D09AFD436662583AA22E23396220827AF +8988B2E369BD00604D55C71A576B0E8B750840B589467889B2F991B8FB8EC20CADEA880036C4 +3929785A82488D30CAD26310FA1CF7959D774D899FFD15CE8DCD1204ED662D5D66809ED44A5E +3BAFF5C7BC746807464202584D900767490695F53FC1A3F881420564B84C3017C33E333BA9CB +3A187947C49168E23A6634C51E1D991E52A221682DF63FB0749305DE1C7553E06B44E0CE590F +445C9C57EB34CC897F5D86C9667C6712511279D931734CC495A5D02A116442A2B53A61329B32 +47929B4D1A49B808AF6205595238100B7965945B8F14C171672405AA48F46CE00572B3B89CDA +384C79A828118E3470D3699BC28F163532EBB655C29E0B64F33A2C2C9D456B8387DAFDD6C5A9 +9EC92C21076188A0AAF5A58D4718E961C51677E4B516A7FDDFC5CA51BA5152F981D8701C71F0 +EA91BE0A8029F7C57FE0F8060A8AE5FEC6941E871A1A064B9CF033AE4B94E03683D39EE3F6CF +6B4990A0C4BEF6DA71B85DD452CC73642C6C81E1FF84C27FD7BF949C9287AFA79F102A4DA9C6 +6C6483325ECBBF97C74A0DB63C88A9C59F7B7DC7BA243975B14CDCBD4366D446C27F1E5075D5 +35AB33E72B011EF6DC418690BE8A1E21DBBD150EA23EB3F6283AA7678551DA9AF502AD103D16 +91A4DD876537E776982AE4DD4E0923FB7B1FCEA12476E199BBB308AB589FE05D36CD5F93C8C6 +CF0EBE232C6DA163E04E8EBAC26CE37EBED9FBD1CD9A3A69BE2BA1E200A7D1AC79CBD8ED04B4 +A631158834137BDF41B8F3481763848AAECA5EA7577FC401505C5F6FC31F60A760D9C0A398EF +3BBC0BB3EF2A90E79EA30B7251E18ACEE51E46ABAA7DD6647CFF0B0D4CD34B97AE730943138E +3952AA3BDE40A0C20001CB89775641CBAF3E4F7EE45A5A2D23BD560000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 + +cleartomark +{restore}if + + +%%EndFont +%%BeginFont: CMR10 +%!PS-AdobeFont-1.0: CMR10 003.002 +%%Title: CMR10 +%Version: 003.002 +%%CreationDate: Mon Jul 13 16:17:00 2009 +%%Creator: David M. Jones +%Copyright: Copyright (c) 1997, 2009 American Mathematical Society +%Copyright: (), with Reserved Font Name CMR10. +% This Font Software is licensed under the SIL Open Font License, Version 1.1. +% This license is in the accompanying file OFL.txt, and is also +% available with a FAQ at: http://scripts.sil.org/OFL. +%%EndComments + +FontDirectory/CMR10 known{/CMR10 findfont dup/UniqueID known{dup +/UniqueID get 5000793 eq exch/FontType get 1 eq and}{pop false}ifelse +{save true}{false}ifelse}{false}ifelse +11 dict begin +/FontType 1 def +/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def +/FontName /CMR10 def +/FontBBox {-40 -250 1009 750 }readonly def +/UniqueID 5000793 def +/PaintType 0 def +/FontInfo 9 dict dup begin + /version (003.002) readonly def + /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMR10.) readonly def + /FullName (CMR10) readonly def + /FamilyName (Computer Modern) readonly def + /Weight (Medium) readonly def + /ItalicAngle 0 def + /isFixedPitch false def + /UnderlinePosition -100 def + /UnderlineThickness 50 def +end readonly def +/Encoding 256 array + 0 1 255 { 1 index exch /.notdef put} for +dup 0 /Gamma put +dup 1 /Delta put +dup 2 /Theta put +dup 3 /Lambda put +dup 4 /Xi put +dup 5 /Pi put +dup 6 /Sigma put +dup 7 /Upsilon put +dup 8 /Phi put +dup 9 /Psi put +dup 10 /Omega put +dup 11 /ff put +dup 12 /fi put +dup 13 /fl put +dup 14 /ffi put +dup 15 /ffl put +dup 16 /dotlessi put +dup 17 /dotlessj put +dup 18 /grave put +dup 19 /acute put +dup 20 /caron put +dup 21 /breve put +dup 22 /macron put +dup 23 /ring put +dup 24 /cedilla put +dup 25 /germandbls put +dup 26 /ae put +dup 27 /oe put +dup 28 /oslash put +dup 29 /AE put +dup 30 /OE put +dup 31 /Oslash put +dup 32 /suppress put +dup 33 /exclam put +dup 34 /quotedblright put +dup 35 /numbersign put +dup 36 /dollar put +dup 37 /percent put +dup 38 /ampersand put +dup 39 /quoteright put +dup 40 /parenleft put +dup 41 /parenright put +dup 42 /asterisk put +dup 43 /plus put +dup 44 /comma put +dup 45 /hyphen put +dup 46 /period put +dup 47 /slash put +dup 48 /zero put +dup 49 /one put +dup 50 /two put +dup 51 /three put +dup 52 /four put +dup 53 /five put +dup 54 /six put +dup 55 /seven put +dup 56 /eight put +dup 57 /nine put +dup 58 /colon put +dup 59 /semicolon put +dup 60 /exclamdown put +dup 61 /equal put +dup 62 /questiondown put +dup 63 /question put +dup 64 /at put +dup 65 /A put +dup 66 /B put +dup 67 /C put +dup 68 /D put +dup 69 /E put +dup 70 /F put +dup 71 /G put +dup 72 /H put +dup 73 /I put +dup 74 /J put +dup 75 /K put +dup 76 /L put +dup 77 /M put +dup 78 /N put +dup 79 /O put +dup 80 /P put +dup 81 /Q put +dup 82 /R put +dup 83 /S put +dup 84 /T put +dup 85 /U put +dup 86 /V put +dup 87 /W put +dup 88 /X put +dup 89 /Y put +dup 90 /Z put +dup 91 /bracketleft put +dup 92 /quotedblleft put +dup 93 /bracketright put +dup 94 /circumflex put +dup 95 /dotaccent put +dup 96 /quoteleft put +dup 97 /a put +dup 98 /b put +dup 99 /c put +dup 100 /d put +dup 101 /e put +dup 102 /f put +dup 103 /g put +dup 104 /h put +dup 105 /i put +dup 106 /j put +dup 107 /k put +dup 108 /l put +dup 109 /m put +dup 110 /n put +dup 111 /o put +dup 112 /p put +dup 113 /q put +dup 114 /r put +dup 115 /s put +dup 116 /t put +dup 117 /u put +dup 118 /v put +dup 119 /w put +dup 120 /x put +dup 121 /y put +dup 122 /z put +dup 123 /endash put +dup 124 /emdash put +dup 125 /hungarumlaut put +dup 126 /tilde put +dup 127 /dieresis put +dup 128 /suppress put +dup 160 /space put +dup 161 /Gamma put +dup 162 /Delta put +dup 163 /Theta put +dup 164 /Lambda put +dup 165 /Xi put +dup 166 /Pi put +dup 167 /Sigma put +dup 168 /Upsilon put +dup 169 /Phi put +dup 170 /Psi put +dup 171 /sfthyphen put +dup 172 /nbspace put +dup 173 /Omega put +dup 174 /ff put +dup 175 /fi put +dup 176 /fl put +dup 177 /ffi put +dup 178 /ffl put +dup 179 /dotlessi put +dup 180 /dotlessj put +dup 181 /grave put +dup 182 /acute put +dup 183 /caron put +dup 184 /breve put +dup 185 /macron put +dup 186 /ring put +dup 187 /cedilla put +dup 188 /germandbls put +dup 189 /ae put +dup 190 /oe put +dup 191 /oslash put +dup 192 /AE put +dup 193 /OE put +dup 194 /Oslash put +dup 195 /suppress put +dup 196 /dieresis put +readonly def +currentdict end +currentfile eexec + +D9D66F633B846AB284BCF8B0411B772DE5CE3DD325E55798292D7BD972BD75FA0E079529AF9C +82DF72F64195C9C210DCE34528F540DA1FFD7BEBB9B40787BA9351BBFB7CFC5F9152D1E5BB0A +D8D016C6CFA4EB41B3C51D091C2D5440E67CFD717C56816B03B901BF4A25A07175380E50A213 +F877C44778B3C5AADBCC86D6E551E6AF364B0BFCAAD22D8D558C5C81A7D425A1629DD5182206 +742D1D082A12F0780FD4F5F6D3129FCFFF1F4A912B0A7DEC8D33A57B5AE0328EF9D57ADDAC54 +3273C01924195A181D03F5054A93B71E5065F8D92FE23794D2DB9B8591E5F01442D8569672CF +86B91C3F79C5DDC97C190EE0082814A5B5A2A5E77C790F087E72907924A5AC880DDED58334DD +5E8DC6A0B2BD4F04B17334A74BF8FF5D88B7B678A04A2255C050CB39A389106B0C672A1912AF +A86A49EFD02E61E6509E50EE35E679448FC63D91C3D2794B49A0C2993832BC4CDC8F7BD7575A +D61BCDF42E2E421AA93E3FF9E4FAD980256D8B377043A07FC75D6169338028692CCA8CD1FE92 +FD60AD26D57B7519B80A8F8DCE9CEE5CDF720AF268D3C14099498A843D76E3B6C0328F24D36E +FE7F5C4E5B5C610DA63A48E26BE9FC0C5FF9236372483C265681DD26303B962BF46BD2DDD7E5 +AB42C609D12E83D21A55046C3E50E41C605EF2AFF78F91B20F9F17D90DEE6171AA799ACCFF77 +E3E4D9793D1D8B51FC0E8979B8E2752C9E72A51720C018DCEE02736480DAAE55F5F1910727DE +3B9FA8D0BED2EFF3BC887AAD72838B7A894541D923D3D253139CDD747B185238B79E569F2448 +3C423BA5EA55860289C4CA80924224A52B8E68CD15D47487340C7FC925100F08A0DB63EC18A3 +2843C299201B3FFFF69059B10CED881ACB7D0115D735791ED587758150742B0A23AF8FDDE157 +C4571039D537E52E2B4B069E0AAF299D4AA3A36EA316D2B55479B72886C76C1A876D7558FC2F +B0659E156CBB253B8466DA34ADE7B1506F8DC66EFE35DCAC71451F8A426056E129A9CF21C41D +7DEB5EA6DF7A72ACAD4BBCA3E4081320BD7B37609A4DB67B5DF63E25F490B8DE0666D17DFDD9 +3AD510ED7B41BE8B0F4C4B2C1348E047C61623CDA21EF0E64B393ECA207B812A7D6F49CC29D7 +0529F6829881A092F98C934D70CE3C5BD2E48C3C57AECF77B55DB937230737C3AB65C9BAB8C1 +BE847A4C61D1C0BDCDC192C225F1FE28B68B279CF3633287286CC18FC886E8C711E558D4961E +D9B901920006C48F8795E1947EB63B4B6A63BDFDD1DFCA3E9A354C37AA33A24990FB70FD2D36 +9D1FC5C89A6BF0851CAAEF43215B2201EC5E09432D1DF364F2EB570F8C001011A4FAB268E40F +B630082F53AA19FB8C3410E049F1F8DE85082ABDB8ECB5FCA536F824AAA39F968D3585E469CB +5872794236771BA5320DD8CCF58E545B9850865AA31607B8C7F0EFCE4A0B2BAC4F48EFD4B599 +FC52C4B9FA6AD36E0FCCD3155B874D4FAC8A02AFD4CF6546842E31928A8806EA44C7CC03E03F +DC1AB9E47F4D455F69EAF32D6FE4A3070A728B225687761E0F2D48138DFA3B2735BEE1E654C8 +A6AB0E136D4DABF9B695F5EA9BDDE81619A7875591A7F39B6493FFEDC7C4812E18C36C85EE59 +7B7FFA207AC57ED8187F13B9997DF098620557843F7F9994FC561D70554B8509C137FBF881A7 +7F86460F53CE7BFBBC9C94167FB3D408BBF95E7672E3DB32F8CC2BAA731D6CAF1675DDF0F055 +62773D9F37E0A473FCB74CD67483B66EC7B42CF841625B26A32201C05AF07B1E0E3687F260A0 +4F2296ABDF3E5DF972AC56470AF0B4538C0B4ACFFC2C1B5309BD8A2510D228D9F41E01783E63 +AE1CD0CC827F15EE2783E818972E418C75B03C1EFB4D564A6D26FF8C8B0FF6DC625647FC5A8D +9D9EBC2B36EAE9C8DD412D6639278F6432C3D9AD4C6C478EEEA0D4A9F111908A8F37ADC0C4E2 +8BBAA0E5556A8ED46850A673851DE8991338E59B906EE8506203110B315D40EF4A59133A6CD8 +5F0FF35123176FB801A6464FF3F77BC8828B782C9B8A18416B6CCFE557DBF14856A0A3162A68 +723D538F95BCAAF9BE7B369226A72C401612FEF48D59C927FD8265DF9D29026F732491709CA5 +0B9FEADE55F701A62076ADDC0BD478EEC530F9119D2564C87F445E9B8C529AB3A207986F75DD +CCACF3DB48878853A1C3B27D8590E81CE20F1271DF019E9C2CE34847B2B69AE9061CEA57BF2D +3CE3DC261D5955E6B3BF8B933A345B3BCC7A302F7614BCD0C2B6E1F3078271A85F232A5B3B9D +E2E7F048CD36DDFC316467A01866276CFA8D0218ABCFB0C543752EEF59635F48F92EF7CAF035 +C7363BE7436F564D1B4FC37D47A2096C886CFD6EA73DFEAC3762873E9BAC2FAADCDAC6D83D56 +E4EEC7DED6B1B99D6DDA7CE8C35C6FCA645940DE0150CEAD4B6463EEF7EDAA509B463D0DBEC4 +3E7C43F9FF16B6A8688723855B9937FAF16EF89688373C84DCF5A57CC309E14B7F72528B1209 +E7F276306FCFEF4DF98C72F7A276840EE2280B88E8F20374B964199B6CF1B47E8D9125A85815 +32FCF9F45E9E3491A9D5357D37B1C23A2E5AD04E02D74AA80E35E77847821B987E7C4FC3F037 +C9E95CA50067EC8F16A8BDDB8412E7954BBD115147EC48539EA6BEBD1F3885A4D12BA3233833 +7728A2C3A8F496B5CAE086585EE6ED1B20EA3FABD269D4B786C3EE0C3D9BEE58001D4D174AF4 +E87A7FDBBE4C3D270E2689840E4C4B6113BDAB8878126DD066DA8E0251A6AF2EA6458214B249 +809ED92F4EA6966D40D4596D86D6F05921C7814884501DB8A7941ADBA5702BF2B0B9A852B7BC +8710087974F2FED4A8D7B89E643A0950B0258A41A74AE4F84C004F9536CE1E3DE91E8E050C97 +C32B0AD953D0B8F4935235F55CEB7727F9EE6E45931CD281D31F5E2A52772C4053687F7A2D14 +B2F7815F8B316EFBE767FAE0636F44BDB1BC9B27AAE79FDDC0038A30C02B86D0E98B16CE7A7E +E8BE6A3DB03296C5B05A51FF470991B74CF893343BDD4A2CAB4B7E28AE4778B42EF31E789CB1 +AE28A8F0B112E399D73A388D3FC41CF8C2EDD7E3E6EE21BF01A833214F2D2E278B8F701B9A90 +68A34A78C34FAA85E60242233CCCC5899AE65F026DE91A4F184F0E626721C4CD3AFEB6E9A1B4 +AB410B816A49A5E38B4137E36B95E2FF0EB3A3BD4337137096E4062BD7D13C5137194CE85A14 +15C9F73095EEBAEABF2929BE8F203295A2AB6792D1031CDF4F96A58DEF44B848B687EEDD4239 +A6FB1944CE6527523FA3641693B1C128A675F98C67C2DD8A3F1161A1EE2A7BF7598D3A9EB560 +A94B4E8D58D1C38BA3D58DDE6D54A5F49AF3E03B9F7FB23617001E0CB03B7938BCF7681F7BD0 +721FE1720B723A7DA0694B9A7637935655C5F147BD7FA15D1377500F7F192337A9466A74A591 +7FD51163EAD5F26BC9867F2709EF15459F35710EB47B86CA032AECE26ABA9F79674E30E0A8D1 +AB25099101BED7FEA68EBAA28641F5EDE00D0C15C4FDD500DB5C9BACDF18B320B14F7B836A06 +3BB1BA30D382B2A8F3583CFBFDB1777AECB306948ECD8D8C9D3ED36FA733C15E4059215B3838 +54846BF6F7596006D9DD1CABD8E331248AADF6B8C206534BB545F44FC7E4BC9F3761E9849CE2 +8C0E9E5D99325FE771F931288D989C43138A805663A9E63F4738929B5B03123B6BDF0A135C08 +CA3AC695B72E92B5667F6F0FC8A7079EEBD572CEBA5C21720961611021E775AD8DD8E6E7C4C8 +5969282A49464913B85C47F7D3A875548FA3139CB5DBD78FAFC6B7074E59665A568B1AC49456 +4515A3D8B64AD0B6A4CC6A186F35513289519403E937BE3FC969A10ED68694E705376B718056 +047C006B73FC88C87B3D84BFBB15E7F874CFF12CC2E8E4A8B70F158DE0C15B4C5E933F0011F1 +F654D33104AE72543A11F588F56D3ACDB8C83A5543C2D5B8B2561E56F53FA9749CC80D846783 +80F55175C853698614FEB73B29EB8556EC0453A03AE894A752DDD14AD72776AB32D13D3175B8 +44F643D04AD36A6B97149D9DCBD8B7F1F50554ACDDEB0C9AEA463A65AA6972C2C384CEC24344 +C89DE7BD914549A9A3CF9139E94FC75AA93DC591977FC3519391677A3086B7F23351AD6B1FED +39E7129629880870D0BCB035C9F9BBAFBB1EB9A822F583439BA0A907B5494007FC9874B51CD2 +7802332C3B411BCE6A544153E51D0458E56880367EF4FE6AA8A0970445FAE112A40F4C48B943 +46F937F35AFBE27C244220406F7E2DBEC532C1FD99B713580ED318951F90D0E88314639ED7E8 +B886191D6DD3FF0DB44BFA5A7BAC6102783EE01911E05DE270D41AFA7944FD6B420AD5BAFD3D +02C95FF77D231DFC977823262827BE5B601F4F3702A528BC5BD4D87A789F6C976DF65C4103A3 +5E20352801825BF2AF07300F359A673FF845E87F391C058D8729F7109B379D8AE27506CB3DFD +16F6298EFC66ECB27A9D5F59749E6264180B0BCBBD4BE0B13D8D4C3344AF3D6BF4B73C29D63D +C19208C751F5F319888D7D4049A29126CD28E985FCA986CC33F2667F752A0B2F175A99F90D31 +906AE108E82F5641386BA7F9B360BB3BD5D5952BF2167CE10AAE9D41FDB63F4E69873D633997 +2A2B5F6007ADEA075C8EEC10C090C74647098439BE7D9F48A9F79C2104252009B8E6C44D7508 +192D58DE42B0962DD1B7CB6255F4B67325A456C069CB52B905EB491835D92452D0781CB7E656 +72DD43D6D3762E0FFEF0F1C8D63163631A71A2963D9617F96A0C984B7FDDB933456055829138 +6CFD35E9736A942C7AFEA53E1E4937A5AD56E66E88E9A8AD46C70349173AB81DE285A54855B4 +16DF01D8CAF03615014386AAA4C94903D6005DBABEF8F9BF283894FA8C71284293E436605856 +D3C4C7859978286B021F0F696F43A1EE8F810E15C7882EDAF03C5B574BA492AC5633BEEEA3F6 +5B521F12FD11CA4ED32D0B666253CA496DAA243108947445C55CEE5252335E6C43FC5FAE3524 +4E811F81009F514442DA21DA2B4E9608BE8D594520B1062A8AE3ED07D00F031D443D14126998 +92DA2B252299EEB4D9EA8FF3B9D785B4E490DD6EEFD55A77BD924AD6C289734DE20F59885194 +050BA0A60182952CB292C18BBD65B784C913C0DD1E131A31AAF2C4892C664EC5BF16E712D342 +25079AB4361F4C7AFA56E499CB6CCD1FBDAD41B89F66A8A82AD7963EBBF5B19F8352241C0B5D +F1E13343A4955B47E88DED9E0757651AD5D059EA86CE7DB05F95BFA92DB1D1F511AB1018AAFE +3BDC4CD6379D797B1E7654E5B772BB6C910C7C405D0264CB1275D49937C3005744092E5BB3C8 +B40CB98F3BEB519AC3D3AB76202AF6E08D0D43DC379E2583342D33C3323A5B696759DBBF1B85 +F638403A43113787B0A5E4F988123EC6EB768F4A745FDB4FA0DA70D2F610E6AE1CCE290C5FFB +6C4FCBE5520B43C36E5F966F4355E7D67662B4DDEA480E0FEF650C65A0F0660B608A61C623DE +59F75FCD9E5F47BDB5800E2A49446F0B142677694F3E8BA4257378FD9FA8C8A572C6A8EAFED7 +9325804D4993FC0A513CA992F8D4A8305C2394D026DEF0262D173D150B2C662B9B9C6BA7CB2D +04CA83B136F9162C42EF686AD2A31F40066937D6A04ECBF632F1DDEE29F414DAF945E0FADF1A +231752FE7500E57FB0E22622FDF22E756DE999948162DF7B9BCB4587499613B6331E03B79723 +09490642DE2EC4F72A1895DECE59BC117ECC2717AAE37EB52F1167965FAF5101AF2BC1C31CD3 +DD17596937BF73D697F59A11000FC8FF94912DAB48134B39567817D9419FD0D3B231297D1723 +331EF3C334582CC012A78CFF55FB19132D91A74353632270986AE645B8F5C0584564EB8C71A6 +E5FAA52AB96FBB210571BF6C1A2EA223EBC7AED8FDE47AF489A429BCEF68407F3399A882A567 +E70B4FC69AB47D6C05097DEB3D912CF1591C6B82CB6FEB1F72C135A4CEDA64C4AFC62DC84C2A +ED0B31D0EF7F8962DFE28D7E3A91314BDEFD9FA692422529A6679F184537FA92BE3E429C289E +9A1834F07117A0E7F1F4FE6862870165A43BB9E430ED07FAEBBEE0469EC79F9F539CE25DF296 +5963D2268A0ACD1FD54BEEE6AB200D52EE7CA4D49A747530252164D6EF5430E4E0242EDDE595 +5C5FE7E3837CAC40ED2A6FA8F9801F9986471EB57E1F38CB3A82A382741B4ED3A575C4967186 +E99D2C3C121B4C91C8D50B26CB97BE9AB4BB224BDCB7135145914B06C9DE48DC53A69CB4308A +5491627279AB90AB26F6E14DBF51AB0E4A9BEA64F916F1643A10BD91FD365F8B774E79A8383E +3D5D5595A92A79120EEB341213BBE6EE21957F6D46E654B9FF6CF65EE8DCFB710E326DCD9A48 +812096D3602D5C2037033B284F266A229CB1641405594DE3ED1FB6DDB1496EA0598E131D2C58 +60474F78CF937F03C5D1CC29170D33A7F68B8BD1A601423002DD3106620E6D8C423F7AC7682F +C2F4D97189EBC2B19E7DB5ADCBA62D17A0D4A7A1D4B3E727687EB9638498547058815EE958DD +81DD937AD19B1492D773090B1324F18741EED75C8CEA47A75119435FE806E82F214852505081 +F02B43ED1BC67FC4D1F5A6686665035B3612CC4E166A646A786A7B0BBC54030252338E496929 +B6A54AD47CA90CC54AE1AC275E523982ECEF5FBB741D00B65981667FE2453FE3750EBDE33B30 +E9540172CA5D94982EE1E99379D6CE06F82B65C423AA95CE42CB0730C80AEEA34CCC827AE92F +AD3D38D19B5966A48184F1182A47397C12475058E3CD011D0F0CE4DC30ECCA87406A1F1D6998 +93163D8D8E604D0B987F8586F4B746C38D4BBAC2257D0D6844B31D532F66F380438844D45AE8 +31226DF075EE6CD391A2DAF954BCD4E03E9981F829B0965AD78EBE8D41CFF2ACEE386DFC8037 +958959BA8B872A7DCA0964DEC6A7459D4206DAE3ED201031DB2EA02819D3C12DE56CEC8F9A85 +8BA6B0FEFF091F827AD6FC5F117904B0DCA0AA3173FA49C62BA5A5CADB35F6487801660CFF3F +D476819B149294EA953DAE6A4D55F9D3AAEDBEF13159794E128AB0B557CE775D0429E4D4B7ED +D061CA689AE0745A19658E04C2CD5DAB627F801B16A4BABF2F8BF2EA218916F82F288104717A +F149BBBAB11637311236B540A9FD344852C8384B87FECF7D233F8E7D0B88AB11EE92991FBBDD +ECDE4765C999D2C4EF8913C1BA706FD995B05199361E754E486963BC9CD80DB42EB766C43EA8 +EFE81CCD0BD8B5523CBE7CE1A709AFA648817ACD9AF2985E285DD9DEE2A4E0C77B13BB59F689 +9BBAF1038D5A0660B358015381B30731415AA81E601F8462C7F80D1171D0F9FDECA392AEFE4A +828DCDDFA642174AD8C48CD6F3ED28A25DDB0F768C5ED07364011A5DABA61BA49AA10A71A260 +AAA7D5DDAA898831B388B738A836529A8F7A123C89D9E36B65DDC7723843DF8F6EF79D8C7CFC +3DEF3B8AD39B3E4EE0F127100EFA9AD45829598DF39441855FBBF98D82008A7B64AF0A919051 +B5F4002D7B3E4778ED61B9B4A0BB41A1E212E94D9244154C459D9FEA7D250F6A789D944B0741 +35F16C063ECE58708EBB2A2B286A71824017C08139CF73320F32127B2633140570A13420256D +BA85988640CDE5AA4A2448CDBF277D74115B22A1380C54D02FB55DC394F720B75E4D7BF4799F +06D7A9742B09E13A1D9F9CE503B5666A480E6781DD2AC4273925E4733FD17B219B1AF8049B7A +F1D37327A28311208158CF2EFCFFC0F10D731E60C19D08AC9C16F39FB896F5B432D5463F7F42 +75F6ECE30944D74888511C34BAC3ACAB64C7116AD6112ECA722456734A2D016A3F2B41D60A4A +97818C16224A70ECD13CD6CE5AF85C2FD5460C3ADEA16A3D222752729BAFAE276072CB3A3A0E +653458ECB394763865162146F58B4259676F8B661E90CAFE3ED0836D626266D173FBB4B4B4DC +6E2A0C02381114A761189F3C2B6436F6E437590BF7075AFAF72A5E1DDA9F6C669965C39D3134 +6CC638D2C3C32B415E13BAD72C3EC9E458FFD5916E902DF3C0772DBD300126E3366CD16105E6 +9C676DA925A2B9219284D91DA3BD49A7EE70E9035F12399AE9693AB539E16AFD38956234C19F +733625FC6FE892E4C2476717C6A77397FB210D86C97EBAC165F81B1E9130A49529F728E31C96 +5BF2615123BDD600E8C775366F1A60C239FD3649D435E03538FC0CD4D5855E3FDE83BC432632 +AB3CCE1DA14B6133155383EF6400CDE665C7DF79FBCC7A4425EDDA2704AF53CFBEA2046A6004 +C94DE7AD2DBAB0B421E63B4A5F8157CA9AB9528E8464E6B8A2FA8B5BDD20FFCD0FC6A5714706 +9194E00376740082F1317E62C5E23A4D6862F0EEA28BA7D1476F609C27A9147FA8C3468A4947 +C8802818BAAF5D4F33C9E918A89FC415A0BA6147E6650E09640E1A5D2EC97518BF39E8864C49 +65ED91E251C9B90166977C9390ABCF5429F216CCC8688BC3CCABD5C3EE7287DF9D4F0170546E +37FD69981864FDB30C5A3EFA3BF27EA7857D8237FE07171056BCD399B2CB1BE4EE0E1809D304 +2B7CC8E67D9464402EF4A7BA2612F343F5EB6FD5F7DCD112AA701B8DE9E2F17118842C898580 +1FE8179FA6618A09D9A01862A2AD4D40E8251B828B5BCA97C812F95A342E23C186DEA3A96154 +096BDADC299C1DACE3EB09ACA94CB2B7F3EB519B7C209007D9B80347E971D8C02C24E2162E8B +EA9275E4F1DB6DA1915D4634FFFAC353D691D7781A15EEC3D66BBCB322FC0E5E2C57F8D74699 +1808645E015E0632F38ED8605BABA3AC007CADF7984F8A0763A9D322E2ADE5F56A56294C4ADF +C4F456C93D7FA41CE8496C3CD1266992C9E60B128C7AA2C5C67C49B2D16F3CA00B86C57DEF55 +F8D06628A0DBBD11D9ECAF2A50FFE89869F929FF5CA0B91186D308E107EB2BEAB7480E40C62C +01E1BDBEAF62F00E36C57355479178F345B1EB3B7E87807B32F8AA06F288848338E43DB2E6D2 +EC92513659D3D113CA288DC767537CFC71092878E139B28407B56E33EB79B1D46C9F1196EF10 +AADCFFE5D16393E3A6C5869C39C925650D8A62496EAB5C67EA1FFA3C85932525DED921D6AB2E +B62CE8DAA2F4381657E2F0F053DDCB0DA23B418FF169EE4D6392B3EEF70A777E892F5B7B20AB +83F907C8014CE6EE9C2FA010D4F11307135A11CD8C2E0F6EA93DD9F0EF162FA24EB17C99F375 +C65348E415F460780114F9B8AE5DC1DC1215163B15A17F811E308916514EE8A0596D3C962339 +6E5689F57D0AAA9E205C7C32C2724172E4F8F04F60FB89D5A9EEAC9E36EC07C05050A3E0FC13 +5DC4C6B5CD8170E91DF79604744B30A2CD3DEB4B3A98274659361D233CED47B79BE91245C85D +E0838FB8478B1B678A8B20552F93E3FFFC77BC547B588C74F9C22D546203219903AAB916EADE +4D598287D5145728C12387DDC05CBB7F4138AEE81EDFD8C7A0CD6BF9BEFE017F4148FB0A1218 +F2750AC532E975687D8908F985795BEB142DF493FF926171B0E25FC71A7437940A7A2192F9A8 +F216FF2692C23A0807EC188D449C867D7B28D6D9FF15957194ECD03E78CBB9963A0E6CA8AEDC +E35163AE9A0805A1D9494A5D71F7F951F199375ED5B4BEFD88CA1A2FE45A37211C866ADA6842 +53B00B122A6F0613609A399DCB43E5A857C0E850A953303447EC30AC83DF6D4E53F9912D53ED +ED956660DD356A02B9E177CC9360EA48F10601E067D8283DD1AF6ED132A2873ACDC2B3039B29 +8C9D8BE918437C74889741A2D0A398F1BDB9AC7526DA3686A7C2425A36CF9DAE0FED314A80C4 +D80AD24605A8892F1E20B401F3A783BF474B6BB3FC9B0D3049E24B9333867CEF9C81060EB6E4 +442F00A41A4FE88655F94A940B34183F088ED7A1FC7CC863D116D3B956AA065922DC674CDD36 +AB998F1B0C313619AA4520C8614D4FB1125CB75850283A44B1EB69C07BCB9DCA47E2A97CC920 +F95A82E581DF07C3AAC37DFCFD05135054717CCAAF6D21D0E35BFED91C2D4250D3FA4115947A +C4164A80A4DAECE90B15EEE9289568800EC50781674DE8F7C00C0F17D72C03B8F77919CD5827 +33B90F83FA43F8CEF4513A5FFE86C500FEC4C4F9E32DAB05B4FFB0432DF191F731A9D3463C43 +12EA23A04F6D5B1A61944494AAA1B82268A3E87FEF0AAC3368C061A2D99F8C01DF71FBE3AFE0 +E3AF28807251F21C60C2D90B32CA25B859365D6B2B5CF07A9CA496B034396FA9A62D337FCD12 +8CF0D17CBEBC1508FBCE413C07CC76DDB6065CE54C6780B73D1C80C1C39BD569C07458F8BA54 +D931B5A817AEBB5776E9526B66BC38B0CC969919E9F91AACB192B5ED4AFA254FF6C5B74331B0 +27B86937D0CBF2548A4234FC70CC583D93547D80CEBA78482305BB4B41E36C675B171F8128AC +F24B5653E17486BDD41AC562AEDAABEF4AF432E653D414E66D4D6D96E18411BE5683EC4FF273 +07585A40EBE145D69CFDF430F8365C103728D370FBB4808D45C0391B68AEBE055C6C66BEBD1F +6A6B725818FE8B59E24FE4A96A8CFA6D30120231799FD9C1D86BA34911BC3B14855A0B2A724D +F5D392965EEFEB5B0FD7EC8A333BD4B6D33D71003681B4A816B5DB8475241B9A4B4971ADB498 +37FDE6E78E5413D9584C93C10FD7BE8D70FACEF356BDDD8BAB3A21534319E195268F9BAF756C +FC17BBEF95108334977EFF3BFC9E46172907F861ADDA6641747F70CA9DF38E72247B1B1FAE69 +BBBB8DCF7D8EA7CFD6D7751BC88C67B14D53270F16B082A028299D3D1BAFB1C8042754FA8DA6 +1C034EDDA896D6075C40EF8D4C06ADFD140853F2198AFB70CAC3EB9982CEB1FEB0CDEE2AB494 +EB9595B5C918F0139932876FF0F13AE6977B58FB6FA47D6F8501CEBD4666ED5BA410F144846F +BBBD1DA827F84025A2AE5F9CB69101F8EFAA980AFDE0B49CAA9C5F0090BF47DE6BF40C68A293 +E45BC33ED9222E7494D4D5CEF267CDDA36431BC8BD41341AEB9AB78F25AC668D4D9D531EECCC +7031C60418D244656DBCABD7D2EA53509E0DB01679962FEF31D014A75072611DD2F9BC3E27E7 +87C1F791F74904C7106B6F889A79DE4E770540F478500F9AB17D6D7D312A06023ED8805EA5F7 +4A9F4CEF09345077C2D444D224D25273FEE4DA617FBEB1868539CE185F8250A9AC16CC84825B +30917F04AB981658CA931F566369408B6673D4456000FC3AF3DDB0E876D4AD06B836D86A0F83 +CD92467E3644DFA6D249F9A5AC91CF2523BFA3EE0BB5FF59A426B4E67FD46E6CC60C10267BE0 +C0A73FB423A2A9CD97D086040B22F37E8FEBD4985C5DA5E0CBAE7B47599AC2B8E6C85C8F1042 +D40A26EB05160829F25210BEED9B500C95D136DB49459A36D8F643413CAA66AFA724C97B42F6 +4F1622F080E8B157F86990D94315B8BB9BE14305543BAF5C0E25FBC45CE084579B7B8B5BE131 +A497EAA3C0D3C520C592414DE7150CDE2E86DCE859F1F48AC0C435151157A495AD42B58BF385 +D344244F2D3FFBC6069C745055BE798D7F27093E1BBFCA3FB5185A44629DE29DFCAC798130C0 +3D212332EBAC7D4168B416C54A57DC04B208AADFF22C3D0529A466C6A310A8EDA384F92528EB +B5E1D86F96101A3FB9F6E2B1BDFC7000C04BC915C63F74E0B0530491D6653A75931986234E88 +77B6E206A4816DE5C947140AC48BA980CAE0C2175CAD88700F28B27A49A1735FF5CD8B8B2828 +23639083B082EEED8AB079C134236C306ECA151A7994261CD73A8484BEDF8191BAD858B491B0 +E9943D9E04323C65C3D953D33B634B025456F1B85F57673C6CE0154E162771496130ECF3D679 +37717F6D3C7CA05538016F8BA6AD48DE3BA2B153BCC4EE3500EC9AF99CC01891CBB50FCD4FC6 +91C48725310436E69D55F6A49B243AC3804A95D9212D9EA02F6C2264246F311A334984011081 +7EE2E669380251066EC237CE4E2E123AC89F962D2204FBB9856CC55D2B72AC67ED0A08BB6271 +67D4E375EC8EF90B570921B314C8B2A035BFA7760365EA0439E437091723377A30F5859DBD60 +261D1B1A75AE2FD8888B217EE4D5CEE7ECD6DEE6E3D1420E4B71561F7DD01B0793031FC95853 +667F27D8855EEABBA4CF4AE67666C578ABD872D4747775D5CDEB55A02C8DCF38067456BEEE0F +10AFD66B521A81B0712EB987DD429C77A1557B6107790BE7B3C7F55A79074CCB8F38923B7507 +D06CE99A2CBEBFE9D7C5C32796145E4AEF1E3AE83A5CA481531D552BFF0C456200949A01730A +586032C8CB48DA6611E0ED9DE04AC36F1660F59683973385C00C78CF675D5C5962381487EE82 +799CF60EF340B2A3275BFD4D5D2122AF19FBE59DAD06E735E446D77747101A53E329A14EAD28 +B99B7630E7188B1F967A0B57292667580D6E121EA1D925C931FD4B42C3ABBFFECE5096ABE807 +EC5B9C43CCC10B724110B2616D472063288C0E250E569220035EEEA8043A05044A6B0D010D9B +3294282F81CDC0EFFC4F500C6D063E85E7BE4B10FD2C50D3DC8AC54BF0EA6865520401E683CB +3270762C94158FAC11D76E7D12FC78BB19BE08FB8C4BD04036408E337BF3FDBFF6AD0E57D845 +92ECAC5FBDD22ADDC8B4AAE9F22395300F618A5A5725E20047A0DE229C58BFF5C6870BE44580 +2A30AF4A6CA65BA502F6F1BC4B458DE1B7088A802E49EDA9528B7D0FEB561DF949C0A25E71B4 +15D56572FAEC8EAFF09F46B07A44978A47F7B7687F1681D10357522D034415E16EBDA5DECB57 +489581725E961D50F182C685EE3FB037B16C389B678E80BF9C6B27CC903C31ACD77120454427 +70ADA3FE7C6785ECE0C669C0324AA872B4C25CCF3AF3E0E78AB29C3C642DDC44F579E5ED4FF6 +AAB873B8AC7D73710EADDC2F494175254B7AC925BB0C4EE70CAB7CADBF1D2497AA6F290B64EC +7551DC7CAECFC0B5312BFD58FCD53D79F1BAAC6AE3D5E4B896D55B67838F1E5848E0D9321ECA +275A78A6F00A223D81DFA4D891DD3CA40653DA235D8FC48C9A9E4F56B7C1F6C10B3AFF870DAD +B47855776E4F08DCC7F5875B7E8EDCB96295B106F4E0AF2AF7C74DB79AAB01C44E39621C8992 +7735A9246458336C5E9F60656D2F757B0D2DE6322DE7913C696053D24D324EC40C52F28AA677 +A758602DCA751548BE122F6184FEAABF7AFFCDE3DC72DFFBE3A69D52F7A89709DB8D05DF6DA2 +031F43AB54200A68082FF8F4887E6072993BF21DA939357274C9D7D30071F88C65F64B55DCDC +0C208AD152E12301DE3D182B3C59F62327FEA224A8DDB1867944ABCAD0CECDBC529D68C600B0 +AB0281C7CD4FB6C236C2D1561EBCBF76153BDF424079B9A63449D4A4531B4A5BDFBDD70EF02E +74535DE3A881F2584C994060D3830079EFF3FCA2597119A8BD560E2A0F766F7A34A7A38E581D +451502B960833117458ACCC70E6BBC2729AECC6EF2A381A23AF14507B9DC46A3E01092F58CA9 +1A32DA58C8F8353805CB193A579FF281B1F80CD4AB9DDFA8917DAF3B7394C095E9455FFE82B7 +E0A62AA476754554AA899ECE4676D8FFF0C052697AFC316CA7D759A04AB1D16532042FF511C1 +3B5375020E585573843100B9B393D1EF2FE83E5612BFCDE5DBF02B1C6E2E3603C6699C945FD9 +36A308F9CB848EE27AF90816C74A04EB3F5AF5E709FE39375EA168DBD9D6D373C2F07FF1B23B +6B229E946DD3F3357C59BB36E3DA08CB393A774D51CD1EA98C6A8E3FEFCD91E73A8C29E13266 +015022CD238B8803FFFE86F2385804482D69A32FE00826B91F8AE433C390470E429A1E519A89 +249092C034880FCC9B7842A4773565D5E85622B48BEC7A7969E876A734F2E4721E7B00F12B54 +240271CB90ECCC4A8FCD3ACC281060B631FC664D5712E7D033481A596FE40B34CB9E4779A061 +895D589C15E8EFFBA3F8F8EFA4DFDC4FFA503309B3B6DE0C9375D34A0D935F6B0843C2396991 +DB0BD48AD40D86347AB46F22A5757C018B22460487D750D41CCF2ADFF0F69FF58053C4DB6C6C +05CD54B4B48A9E303143A08BD94320ACE9747BDAF8A7AC4497140FC17164E765412D6B283701 +96094CE86EAC79D2CDC86867B0DC3013276FF8C5818E06D8B68DD43DB1BC2E1EBC7901DE2D4A +92B34FFB6273EF4F2F555B7C7B4CD43E39B585AF30DF0562BABC058C24D5D392F549B008BDF3 +0CBDA7FFD3E6B907D66CDBC8EE920594F59DA6E559623743B18B3AC6A767639E6310CBBC224F +848C9A8EB0E5E7ADDE1D278201E41535A2D3BC2451CBE90388D0E850B1508355BF09E4AF235F +3E6AB79D37E3F45266A140F8CE86010703B12C83C96764C49035A598526902EC3B78F9A27342 +A228E03D6DF9EA75377B2236A8161C8CEA3F4BA5CF2AB9CA2F752217456ADD3744A150812B1A +2945D4D0844E99555AF8C2ECCCB520E860D804606B3EB39D7B94585763AEF1605D4EC74FA824 +FCE3E8E6A260B9E2497F309950D176CFAA1DB29FF2B07D41C3BF950163D7CAB48193F8409ACD +EA18CD34F29587844E51DFDFA9E7A2685A2D50A6687B6002D0CAECFA3C630E680231D1DD4E8E +388B4525C059BA9E56A8C015E69943541462502E495A63054BDF88B4442935A25C8F20888ADB +6E60D95C8552B012BAF65631F2611B71E03182C7D4D4C82918B4AF222BE87C410781C0E2F751 +C66C698C6A322C7FB4E132E9A3ABB876956178A040AA9479A6521CD82869C95C5FC36B0CA384 +92564DE4458D8791042B08C8F8F334A6922F729CC0DD65FDB6F839AE8FA148BCB1A60F334986 +7BAF910777E8471764F853DD43333BD19389E53EBD82BE564B78FC26D156A143A4F0E10031A8 +D1516E187F1A58D1DB48A995FE6B5F5B219107044E251F1E0E6296FA1320FC75C05996D7A7E5 +388F817F4CFDEDBF821D3BCBA03F21E20D34876026730D9194157CC362403213CC16C285E68C +DF86B0F61A2D47BE23CF733115F380212B175BE5C8B473F37EB03C19852FD358A09E9B1E9E31 +10AA29AD9C0C233DFE8180D5913A5636E05A6BB92B4474F0D2C4B2F7FACB2C2EEEFFB4B6326D +36D2A8F75F6BCDBA56B07ACC44B3E95721AFD3D448CE5EA5314DD35649C39BD215418F8F3868 +A522C2BD867927BDBA4377CF1237B791474B44A682A6169507C03C0FEFB4C25AFADDCBC6184D +456A2E44D5A4CD6503ADE51BD029AD1014F6D047A28D7BDC0E14F9E71069B401D15263E4AE45 +58AB237CB7FF91E96E16E63352BCD74B81BCD1A50C0447AE76544806B5126F0AE6E904775DCE +803F7BBEC29D5A2A1B98CA8901ACBAF3D08A16822E96281CB22A04A78E4DD1257A52E172F2AA +6CAB70622ACD3355DA68DACF11DB4D16C378486622F33D08CF1F35533A5243FDE12EA8910C5D +B3BE274329503A6962BE53CF60DED6A7CDACAAC5BFBF9920774E92CCEC6F5289687960E42277 +7A6ED1E14919D6DDB11E73D13BAD176C7E80A34A39478DF5C2A07626C39E8BB4F54ED455719B +720CEA814A038F46896C6025FF5E744C2E6E830A1966F882BB06CB7EB370173C99C6ABEE8F8F +8540491CBEC243F5AF827FF789A9DC26E7F160BE9B8F6FA6AFC33023E698F29238519256587D +CE09831AABFABFDA761053D0332AD0394666C36352EF250EF21EF1F1FA18B2918E5DCF2CB7DE +1502C590DFD694588CA76BE8F1C00711C5F0656BB83E5867EB79945E61C3A8D6B88EFB1AA33A +6E6A23A1B539D715172915FE3D8277F8865F177CF9B3503E812D919B3AA7A238F4D182F68418 +61B26E4DDB5396D956024A95F655560FA34336898FC07D021FE9EF11DD5EC50E6E1BCF82ADA4 +85B3851C393969C1E00248657BEC3F077A91027E9AD95E195A0D61A2E5CFC7A511E07FD56E82 +8D526EB3FBD6261D04EA21ED82FCC7CA4570B6ACF2E3AFC96D9732EA9F3DC417662BD0031AF0 +9697D281DD4B0802BAAA46988C643AF7E5ECABED3AF561947F21422FAEDABAFB506E033A5F0F +A4C51DB720DA032A1214F29316D3134B39DC8ED2AC63E15A99FD690BDB5AEAB767938D6C4B8B +429CFB306887E546C6E433A5C571143C28BF051A1FB84D77F45500DD1B23B0B71C1533B55697 +03FF2492ECD353AAA40F9D0477DE9DF7038E57EDC64CDFFB4FE6637C7CEEC38D46AA53308F5F +0E7EEC36924BF5EA6D550CEFD20CF0DD443AC3F8B990E3219C0884622820514D8A82560BF8BA +514578A9B66E762B272692698437EB55AD3DD894AE6492AC964FFB5EE4003BDCB461DCCD1DF7 +BB48FDD4C21CAA97000EA5ABFA32956D534140DC7CBC3E9D1FD0B09D2AA16CCE736190FB6837 +E0FD1F0E233489AB2686C833AAA8AC9CA8A2A341D635E088D03FBCA5338E355BE751CADC6AEA +AE63DC304598AB6EC8280A0A1329A5147181278C9B95276570D9E1F4D34E65F9AA64DD5FA42D +7D68C9786C353F7A8BC8C52CC83E0EC142596760AE19806583AEAC53E092714E5B993D63F468 +5AE1C96EAD46551A491E88873EBAC17F08B20FD491BDBDB2618F005DB0B1D2EAA08892EB1737 +BC41A07883A039477FB8E964CF7FDBAC19E337AFE196B39FEEB6251D192423F59B5D746C9907 +75AC9C99E9357146B471316E6BAA0EC6F0433604D296D80D26BC238D9FCBA1D3197E5D173519 +A57A443B38D021AFBC7C54A6BA7C269453AFFDE6E5FD8C4CB0BE97DE72696C5633902EEB5215 +303663C12997AF415D102A214B85D77EA7DDA3CBE5BDF0A12CB331939518FA04D3DFCB7288C5 +E340FD74E00419DD0FF5267556DC5DAFCD6C641903C722D23D500A2D598C2FBBFAE3D6264192 +3B2777D8EB0D81D4BC53537BC3A84C4FC3FFDFA9194C81EE91DD7A7419DF0E5DA49DA910C5E8 +3E35AFA61BED02F3CB646B0999841CAF55A17956449CB25BED26054FA9500A357AF042061CB5 +F32414F1C9EA556441CC085A1D6AE3A6540391369FA51DB16DF2C61F0FD1558D5FD4052A63D4 +EAF330147B0E9C774B4894607B40A760273B1B89353ADC110B54067F8867A1903F87BD270F06 +5E322B027F60D855ABC6EB40F17D222115B7FE10C2E140F2B477D3A3D0A11391698E3C35BF1A +469C9068A0A63073F8A94654DA2B1019A61B3949CA2984A12EB434BA43583840058B774506D3 +666BE8CDDAF08B5F99CD7C64AFFF75C164CEC467C70CECF1595D4D01470ADE2E034B37062D4E +72EAF6BAE7C63A03D6D85A16A34CA5C3E1C34257DEBCE2D8F55D746258CE208BD67BABD08E40 +ECB20C59BD4E050A0A9D849B2EB2F1C874A512E70B7E179E0CB46FE1ACB5825762666A783AF5 +669FEA5B02415A7901CB0BDED57E552FC1D470F59679B21A56F82E333B7756EABBAFBA4A4D0C +042E97EF46C3F71B75B305B468CEE59FBB2BA20B49FFCE08D0C28C920433BA739B98DCD09CE7 +CD7FB24D832444B9B6821F31DB2754D497F63B7D6BC7C75DA9328CCB88E4DA7CB28B4B213D5B +8FCA4AE99A5DCD28068DA3795FF110150E01AEB5E252CA2C0B5AAE2490AB711440623568507B +4DF99A6D44C572C5871572CB8FF8154CC3B9AE7592597DDFE684AB44AB069FB8D8680057E70D +A41753E94E0FCC13496DC82F3A6B9272CDC133C01BA998FDF43D266DFFA3E06141C6836D6DF5 +ADA89EFB59DEF1A68FAB510DA56BD1C0B23A8C20B340AA0278B98179A46212E4564011A879F9 +DDC6DBA0343B89517DB07F7125A0FF6D37D6380F7DC8E0FC2D6C535D6A9ED0D4214E79FE2ABA +30F38D041AB79FEC0786B844444EA81C4E7BA8475AA181EEE935766E8FD444FABB0A3238D14A +D899E01B2C14C4EFC724A236EBB6EE7E53C61992DC103654601334CAEF87C8AAE864BAEDA97E +6820FE907B4640D51D0DEB0C7D98EB67CE311F5A4F25A4FA066C7D13664BE53D1DD66AD2F832 +9F8BCA5B22C213E6D20EF2A73625651047878FE7077851DA70CFA24D4FFEF3A8009E7D6E08D3 +CA2112801EDBFEAF0B94DDA65C2130903991EFBA7E9F1692A2FC63C1885E52B4B31C0AEA192E +8608A4289DA6DCA485DEE2FBEFCF4F0336DE035B9F65775F3BFF4C2C49E3055BCCF0A4F3FD17 +60524B0754D89CABB15D9E57AFB93D3FA164426713911981D0D2979F0EFB0569459F701A0742 +67D43656386F7D1A95A9BCF9F4682761839B600846C81DBD197C83838AB9EBBA8323463865BC +30EC1B99F4FE299ECD4453509A5C814E6C996676E025DE9FAFFD0B6C3C0914ABFEC436B65092 +6F48672FD2D21EB2F8EEC64DB45B8D8C6AA3AA4E9C41777797D7497190E2B7144D4E9FCAC863 +9ED74C7B302383DBA2FA646782103B9ABABF85F80F8EE057F9F21A002115B3E21A3B56D10DBF +67F1EF041D9E96F952E4E65281C3D102273FF3D201E7767B34E4FD4CF5E1402C608ABB8D11B0 +7178ACDCD8DE9A2128DBEBF9E2BEC587E0D7BA1A686231A8CD5D99947F4E461E7C091714161B +3906C92A6D5EE5B70783552731AB9CA61E2634BB8E2BA1BC8B49D244FF89F5C2E9286C3467E4 +DD3B35BF9989372416245ADA7378E245C1B10BF57BA8A48DF37FA7E5F60B06561C86CA309CAA +2A8B21F88D1E671C54E429863ADBDEA4D5F26FFD164000B571452DA04877E2900EDDE59A7E78 +2F2DC54686FD124A711C44B6D3DA7CADAF4530B7EF0AF2A14D5ADF316099906847696848DFA4 +CA3D1F8CE2A6BC82630B4B4617170558099C8F46994A8029B417CECBFE5513734425B165AC7C +4DD15155D83FEA6287D3629F535CB0E1A828A195341E314B808604C6587DA28FE318ED8F2658 +BE9D9E2BDDEA3D54628AE2BF64717EF64FB6E1DE3D05BF69DB88275060973DA7570EACAB1345 +862E2921A90EAEC32B92B99E50EC2807F02A135C5E5B643458C53EEFBA587FC951BC477403E6 +8850316845AF4565284B8E902DE262A113234B494977D087C12734874ECC93406E804BDD3655 +8E44D2890A8C6A3F8F5DB0A0D7C14CF8B137B335C5A003424CF45CF4DC0C64B8F71929F99C89 +CE9CF245ED1FB628A989AB04F0A32D0DF7045080F87A9B6049E0E52612375042C579509A0681 +DD6869C904CA95F8B1DE9ED886CCC43A935ABFE8B888745DD6F7AE3F6FBACC0B1230AC9411B9 +0CA884D556543A196C817072E0F089F6D7EE3157BFB82A772F8A675315E12813BDDB5186F415 +B9BF758F2B213B33981E1795DB41AD949032617C15A52927DC7A348B81288BEB59F2186D3629 +A10ECBB8D29581475AF3430C90787ACE611E66D0BD9B41107A5E2BBCB324D893BB606CB48EC1 +E206019D1E96DA890DFD94BE3F663F609F07503C5456571608459B26372DD570DAF13ADF2F4B +DFD0DD9649C545D82458793834AF2DD71E8755F4E58856C5EBE91695252BBA2F12DC5FB7130D +1792ECF6AAA07A7A7B005E668BA7D27F3FD0214AE291DC615221F13413C6EFD2E0421ECB37BD +95ADD58A9D51D086A4D0CA2CC1C7A6FA853F61B8C1ADF6738F9B30CE564F21E9D45A5A55D6FE +FEE27F7C538D375B79EF4311A81B014E31DA276D07E114759EDCD610F82C53F1338949FE483E +94679EDCDC4A6381770C75B71ADEF1CA131F5338E071266D679AB6343E961DD3D71D1AEFB662 +BBCB0F34766BEFA058E02A7C3FFA833DF83BD4C8E0D89CCEACD5E1262B80C93A84675B71AF69 +72357E3C93A7A910AC4508F6C1E260EA1CF03902D3B815DE35E3F30374C476271260E3657194 +F9D63DC984E84C82E550A548967791BCD90E660A978A9DF434B3FE404496481345D9733B8CAD +00C306F0CAF67167EA9C70C5C124124AA10DA6B0FB6B69F1EB328B9753B6CA187905D677C5AB +0FE167EC1BB6A168C1F5D6F9136D24A3E27A49CE8CE96F754644A49643E5481F054CD9E5C645 +C3E7F670DCFFE00C78F15BC705CEF2C8E1A713BEC20E687EBAA5CB7262E8BFC23F26C1BF902B +8206B25AD830B5B8D87CA79F1F6404FFB313386632528ED7B452C11C22EBFAD64306408A0653 +6582ABDB2B2FAD788B4C60AACEC0F0862CBB2FAE618CD8DDA566670FD0B7FA64CE0B7A057025 +57BDA95531B9B500B8C97DE2B2AC3DCC6E0DDD204AD937635F2EAC85347E2ECF35BC951C2066 +A5331FE8B087A8E83B50B08F07A5578BA7BE6D9CA251DFEA9F9597B71E7C078A489BC718E2AE +13E9D8C4310427AE85B9B919912CFA54C91C1D898C066A8961A904A6661105F189646965CBAC +79F00CA699AA58BDE0C424A347FF1C3259C745D3C8B886196F44EFF6455E86F04D17BE7FF0A4 +7F34980F19AAFFDF685AB944733FCD54C50A8A220245E13EDC3C3DFA54B418BAA2153C11CC0D +0C32ECE788C17CA10B149EAD12729C121AC4B7562515D1D721730B10DC9F48193B5C6D6ED5A1 +771AA7F6EE5115BFD4E935A6C2DD7C2320DC3728DE360F99E7AE5F6A8B776E66C15D82C0839E +337F2B490C0C26EAF1EF8968898D31D8C581626CD43322952B450524741148084D9F77557304 +9F5FC47C5AF4678238B0D70EFE8111E1DF0A90B46216ABA8E39B98ADAAD59527888EBCD817E3 +F5E7C71634F94230A6D96261A1496303921F6E8ECD200028A8A0D90A87F957819414A0F3E3E3 +9B08CF32473E9CF53D19D2012791AB857312932F70CBCFAC8CBAE1C883EBD8F90F94D415FB1B +20046A733FAA413D47409F87ECBE4BB0AC162627D6094B58989DDE0A12BBE07A99B5CC61C9EB +26AAF4F6AC89D40F36DEFB38DC9119796305545C4060A12D6773F32903FC20334CDFAC659F35 +95FEF09D2AC80189040D4B3B81257AD821AD3CB784C49BB0F5672C6EF540DE202CC3B45BC7FC +BA494464E81CBF7439D440F6766DC94893231913A82F6378136DC07A0C4B82EF4910846E28BE +EE53E01B9A110AAAB81C3CE3955428A9F4D033E6D362FF75E50067B1F4CF5EC60DA98B318F7D +E2C7AD5EA8C30A9BBA83213FE3A1FD39C29CF224A25798EE6821DD5ACB3AC9171FBF108B2016 +4F2B7D15E26FEB7359F27015787BA53F304D72661B68BFF77B5F91FA541AB4F11232347303D6 +95A2A75C09259B35BED0FF9580B9B5988CB5AC0ED11E118A0080D87109CCAF46218E7E440A3F +320C97496F0C4D8A9F63318753B3067F4022EBB5057CD40A327F29F227D45D0EAE5A15E32926 +A24EF46D9ECAF21983F09EC0185C8FFE0B790A6DD8727BFE8359D472C493781E40EF71BC747C +F60A673DC4CBA688CFE41CCA69C37AA18197CD4F96EB4F049EACDB88F80734E75C65CF1F3BBF +8E2FC4DECA78DBCD7C677F1F39C590D6F7C102346BA945DD8DDDACEE0240E441D68BDE187773 +C66FC65F4ADA28F7C42C11B3E9BC78BE1B42D4D59F0DC73A0471AA8CB4791F0A881D82C7DB8E +C32B2CACC33F3FDB77E0A5B7DD3799CEE2053E9CE624649CE47799752F2BC4A23F0435F72E57 +191774554506DB153EB2D3FCA44B6A435DA6D61FB8E8AAC78C891DED8866A96038D99586DCF5 +0ED62051FB538D23C612B12D07AA6C1024DD73768952FBC7FEC6EEEB21CDCEC1C1913C468B8D +0350AD3E98669D50B1C71D4F28849044AA8B2FA0255D9323C7BBBF6BD48DCFFCC05DCD74CA9C +2F29FEF5B1447C07591CA82CC79F7AE2C57D897216A8DD6FCC2657BF131796BFB358CEB354FC +7374559DE7B4C879CEBACE1FF5C6E821D0BF596F80475AC6AEF1E6080B480E74A6A81CC7B200 +CC9D1BADE2A20FB3B5F9122EFCC99890C5B369BDF64A0645FD36663843D73F126EBFA2B2F87F +6B6D1A481B8CACEEC4F7CC0AF89706E4D944E1A6AC9EF36018BB128197E740D6DEEDFAF1498C +4D2E47FC27E48B0316E856FE21BEB953B2F01C9472517471A5020097CB4494357AB34CCB3A36 +6D89B5E598CEFE58CF293CA963D09009CD1BD479126200C3D342172CFC2451997624AC151B9D +8E137865B557F1C595B34E5D5274D8A05DADAADD33836C3C03BCC3FF9B4FB585FF613DBB94D8 +44A9D7B2D3A913EDDE51E5F4DAF4D43934325EAFB0AF2DE524BA3E5FDD967F8F5287D209B681 +1F9B56B619F0EA0A438976EF6B87C8D3DFF5B228DA82E4D95FE2348ED144C35F28002B7618A6 +AFDE5E871ABCA8F41B4FC3BC1EC0A093BEBA007F9055727AB78E6053777C422E078E60D7CBED +83374D98F8EA106C40293905A264AC2BDC2B676FBD6306BB1D78B4ED63ADBF59061E25862825 +3CD127874EB3A5D3C9B3B3AA506EFAF9456A9C071F08AA753BB312FC4E29054E0DC277D2CACF +2A7321C4D3CF5556DD0F310CF7C13C0E5359EE8C21507D2E8FCA40147D8484E0C002EDDCF81F +5B8ABF4ED9951D550A30B7BA608CC0F86C2B0A0162B6F1881E479009356D51D01E36B464511C +14C1CDBE1A6F78020192AB358E8167879717C15F22E8D7870149E5CB0BE8C73B17C1609BEDCC +70E6DB1EDAA4369BE30AC45F25557EA0D8D31120959DD29B2A224DC173C9937A29C189217365 +B407D07EB62A523B1FB62F0EC8604C03929A7E77B02FBDCFB37018D885F544FBFEB1C1A60DC0 +133BA920B1A70C9A46CD6BB7BE5CB0BDD4D0CEE65EB5DFF23C7BA54F8BA5CD904BEF3F4E17F5 +B430206B2B4C58181BF23A50382B92FC5516A8C154E99201F87E0F4C5C5FCABD48B8F7AF0F68 +68E2A4649454CBD2596C004106EC5C029E3F7233FF4AE296010529F7A4BB37E68307A8F4B239 +987099B95C1EDC550C4A70C55092A7CDEC2F1739FF6513D0F17AF86ED78492C31CE44FBC4C8D +0C58622B50575E7DA87CB4C97C32A0829B669AD037C860D2E20F158CC0E6F4F95DEE851C42B4 +988F48BEE046378408BB16D9FC4AB3AAEF1BB65642A207631C2D8C70DDCC9887C7B2A2C1CA37 +D77E6E5FDD2B138A0E25CA88AD767F4D977F1BEA3EF2EB683C76C9AE55A30F3AA359348F1028 +B96753007CB939A922B4534CAE7B4C618865040E3B1B167F40D66614C92E4A5468C1FE638B40 +B8A431A5F7877852B82D1C1180226FE067DD8BEC98F522695A673D4A42707AB5A49503290B28 +4CB4A541FA6BD8D6675822395C986B23BE34CFF57CB0C0A6037F15EB4904D1C4835D3482AD57 +1EC475FB6DC4FB25A7642CCB0A5EB0B68A0CBA5A470BCCF30571F40066824C330A7B0917B460 +0207B77DD22A4C004E99517814462A49ADABBAE60C11692458D1034D72FC4026AFE313EA24EB +18E62B7645454438BF6E99B67F25298016EF2A822347F72A812984A65BF92AEBCF694C768003 +EFF3E382C7AF5165ABCE4CC66F4A6E182E00EFD65764E3CBA189BB856DE35B5C33F20F02F968 +F360A461087C068B5DDCB0EBE6894649BC305214D9C82B979167FB07143CAD069D6022494F82 +634BDCCAB6BD0C47019CE049A2949A073C6422F1440626A8D8F27ED269B9866C05DEBB5876FC +980B73F237CAFC69BE3A4B466485855233D20CFAA567FFE8CDF580602D82AE4CE3DA53846277 +D067BC2D77937D9AFDD95DEF8B2D573E341F260951F43575ACEFE75F923660CCE5D7CF4AD84F +6CCA09EBA153F174BE91783D2EF3A48B320D8BCDCA178003F2DF97BBF69008A755C962D32273 +92EC701B67C1E5106193AE52DF0A0F984C28A779D437214D5BC82A7DBB94AE07CE9B6C799F97 +B03873263DE76BFDDA368D2178C817B29DD8CA5C5132F822B6DB89CF3ABCC986B8811C4DC60D +8B52A064C212CAB2D04F83B8C06DB1EC7B45426080466A641B32DEA683F50024446B6F410F85 +39D6C79961B38D10BDC3E90B6D86BE999A8BDF2F93D9ABBB0EB3714F567485235589191E4E19 +D61584D9DA998FF784BC5EEB74E54D9BA1B4E1297B17395864F60B047956F3D3B72833A6F8B1 +E09532A3B11F76AB9B7EC3245F9039C1D68F618616BE48BBCCD8CED3249C08CDA7AAF73714F0 +308B0C6FE388275AE6D0108B3B701F45A811D06518026C02CEF5A21875DFB988FDD55D26A837 +951F8B4AD63561C1305CF12998848FFDC39C4337C014D43817786829F81DA6687146599EF058 +61F108C2A8AED806B65CD25E24A9799458AE0258AE80FF931A09A6B3FC9E6A5B4A31E253B8E4 +0DB6D4625BCB5A6176F4F999D8F88A65E96FA6CEFB1D52BB73442B46D4BC0C238AF8FC4C7E8F +287A9E43AE5F04116C5FDAE1277DE359219A68F037293D2C41B7D7908E046F3D06048D2F25DA +2243FFD911C2B56D72EF3E867EA0C2F5E725BA7CF76730B8DF9E3CE8AB9AE3E5A9D013F9049D +C9681359D0752456C02E5D158507071C26D754A2BA8EE96A1F13AC439B6B7B94949E07B10454 +0071A1C0724B3019D672EB283BA5741295CF9EB0691EF944E1D93657DD8E16F134447942FF91 +53FACE782CAC0005E7DA84B3274E22F37AC3FE2A0C84C8D8C058F9AABC44276BD3C1F063DA46 +0D5689DF8597773FB16C5AB0A35D46A0E767182596D9915959AD9F7699F0B5073F56B522BD35 +61B225B97A4237E93FDA1E8ACC3588B7766F812E47FAF3C8F2FA8A93D5948AE4631AE1A28A28 +765435F7244737A2758DBB37F240929B2E9D3E983D8A3D46A9DA4B0679909F1E077E0431D8F9 +A8DE54FC1738B3B5B6B4DDD8F339FCF50B59A4B6CD3E4931F8BF1AE8601E8B337DDA6424E95E +E366D620B7B7B93714E6446BDBA673873A169C3F7D58F62CB64109E985ABCCEB9EAB1D37D85D +93D90E826B4B5C57DC7E5F8C8A13F707260F199C58EF11E61F60C49358E7B079A2FCDA284490 +36E843488B847999445FCD8379291F50FC6E176F676E24602C9B90BFE4B0358997D1F2A9652F +6290221808617B6D81A6342853EA43C8B83EF275F265745EAFBE7A7D4A5D6CED648E8C0A6BCF +6415CD7DCB9BBAE84A92FCE237A009FD7536DC8BE3E114E5BB29A5B9BDE2534B4752BC6D1A83 +C7BBDCC6578EED4CA804EE9D59FF018B97902109939C9AAB744F42C6FA0D7E47B66C94F9029F +D0F224E0F9E9C10A5908E7DC90BB2138F476958A0CD2A3587733AC5EBCFB1727903FD4EA849A +A305EEB4E061C06C8D963A0527093DD7D9AB232546F9F88B850C5024E940E9A5DE9E9A6E787F +0FC5C1A15B46FAA5E4756A2D4B952ACAD64966DA1B0BA75D166E4479EB0B4E1A964EA0666BE8 +7A8FD9E1D8E3C857B926F1C2D0E82AFC9FBCF7ECDFEF6F199223172A7261FD3AFCF54B49A697 +81FEDFC6C501C4EE50CA5E8F199C3884247E21B7CD40250692362A84A63014B339835ACD79C6 +8C97278F48D68533438C59864F89B2CE0C93CC549F4F4E16849C6D83C272AF1CDEBFD65975B2 +1B129E0450330567DD51E08968FE04423D4FFB7D1D4F902ABA21F4C01F23B9811C42B4988F48 +BEE06426CF7C8E184D03677ECB1A276DF9ACD94C31E95BCF3D8347A24FDC7E564FB9D11FBBD8 +2DD3B819913B0E3A3B050ED0FCB57EE7005CC7DF7B9B5823F530554103ACFE356159AA9B85F9 +5C95BEAC324D0097382DAF2F4F160D4471DA9A8D581F5BA89C4E826E905667D4F2BB89AFB9AA +62C6829046F1FD661720BD67056508D7F1618EB58CE32E378C23EC879C4481926A2F3575C7F0 +2C3264E854969E248E00139D87013DF831366A11B7E78E8904C9BF6122548B956AFEE0CB4A3F +2F0EE383F21772FE361B2EBAC612C9EECB33B9714AC09EF85764F70030C0BA32BF26767CC2DB +77DF1961D44C613C07F3B3195E8FC5D235370BB495BD1DFD57F59F0CC88148FF4CE3FF711498 +A985049E9BBF64F7C19CFF81CB25CA68497B17D31A9343E46C61FF85B8E5AE0E308D40397719 +1B38742A6AA3B5C84787A5341F319727A146D32B76154D1D24AFEB30F120F7880306D17F52E4 +6786A0B61CB4E16E956DEF4556C15633BFDE4A158DE1878B599E466B85AD875A89AEBDB4B4B2 +4DADBA3FA1A28DA0874079A9D5F2280CB9257FB3E675CC2A6C25685EB99C4B8792E524012A6E +A10D9C8D74ADE2AB88AA865BE44F38B5A528BE89B2FA4A89EAB331BE1E050D3D388382915662 +DA0EE3BF5848C284C06509D6AC0E4808C8B5FDFCFA9C6CB469A70F5598AD7F924F654ACA0F44 +3FA7AF6632E487FF2D0CDA5AD6C9D0DAF55E535AFCF28B95411221BB0415216724DBF215A33F +AD325667A0B7D58FB1DC0650591D563C50F2C50186EF2F7E4D217C525298FB7AA3F643C77AA5 +26ADF53B533E4AC9B41B36027CC364E74F309C1832CA97763CA2A07F4383D0733CAE974D6DA9 +1D97334780E43BEC2A539C22B5C227042BBCFF3DC2093CA38458412F92004A00554F8AE5412B +DE6F63445465988A6E205AAEDEF0E0EE2062CA0AA29306B0784E1760EC91DC0B2B9B20AAD0B0 +7DE969C1F4D0BD5D94F6E03CEB8B821C1340C866E697AF01893493F176846EBF16C1EF717975 +D0DDFF1D4158540133AACEEE3A21182F43265DDC9BEB01103A5551731DD91AFDFF19C1D881E7 +BCAAD2059632506E851A05388112FC6E1296CE350444D283C4298556098C7EB7DF219D593E65 +3C81ADE6D92049BE0B0DBDB4548574EC069078D99419D46A72C53D33D02AF25DBCE794F56DFD +08B10C9229BB3A443893ADCD100000BC5C4A69C986BEEDCF4C9B02DEFE1886705E6779DE47DC +5359965414572BC17072EA6C9F52E49EF6FB11FC8E80C7DD3AE53D1AA08600D7DB145DD779C7 +FCA8FDD12FFDD933393B3B22E1378D546B31ED161A040FF04AA0DB05BC90A4200A3D88D5D333 +99ADEB7B41EA4C93301B088CAA35E14496AF4F2D8E73FEA5F5AC3B3281978360002EC89761DA +8EEC4FEC0AC6DF373D3650040E493FA18186DEA210C4D251044431D868E7FC22078827F23C27 +AF481135BD82F730E746E9878B4975983406F47AC8BEE735B4E53959132C95934919F24BCCBC +DDA5A4CB302510C29D5599CF21682DD1B4ABBE34548BA12DF219D79F13B0BC62A7C97FE42F26 +234ACCAE6F9DAF5F9AF2BD2D2752692CB76BA99740A0AACB316265786A7917B057F34E1D2DD8 +77E1266449BF1A790001DC04D874EF033AE87B066168EB75730B090876A8E1B7FF22D180E105 +95A04E9F57140E8866E1F2F8DCA67530B90940F45020BD86FA7B6EA85542625AB435D0E5531E +4EDE355B3E81197AE3C0CC3068C9857D5B149DD8C48348A51568A117DFDEDFF28087F4E387C7 +0D499B6FEBE95B1C7E7D465D8008558DA7C1FCF51EFD19B9EB1F4687C6A6C0F12B25772E0785 +4C1481BAFE194F66842BE0BDEB9034EFD17C2A12110959F4871B9FB9D58F13544BFA4AA15019 +8C6638CCB7564C14820B78794542A2EEE17A9014D13613F1354924D3642413C2B5D3FF46AE54 +E811D53408BE85CEAAC9D19AC0E6062E25A581FADB594F623F00C1DBB7C73E21DDAD74D504F7 +0DE2FF188D2A3825371AA9C628F9BEC52B400827C20523DDA19A4B664181C7B6DAC74EDF2A1B +3AE905BDADB2ACCAD15ECF67A2E34FD28938D975EB8637A13A6A18B8CF851876D118140C0761 +C3F93AE3E6AC61E8ABACC36FB9597F4E67820B49B4EDA3ACC2B23AA1BD79F2856E8047A57195 +CF4278F23B70259F0E5A22E163130929C6122ADB2648EDD6DF15BABA76231F6CA85B35EBC308 +945044BDFC4C1B6448674547D9E8AD9EB209EAD3F2D36E08DE2AFA766EF38C5280177BCD5068 +221E90436AFFBB3162F6F24F135E542DCCFB56AD5EEFE42048EDBA31600E03ED85EF5AE91AF4 +F5EA4388A9626C934321ED15D267D2AF759C5FE93254A60856778CB5279C62DE1D8DF5FB4D77 +BCC79B8561756DBEF748A0FF90D1F76E5220165A76312749506F57676B58909B2095EF00A525 +15F34A1EA19F0B7113FD5061E356D6AE3E4113134E170D831368DF2DCD327AD43175A1AA65FB +6E923B2627BF32A59D24B54E71818888AA6043F860D5D548B18C80D07E398A8F5ABFCC4A89E7 +1FC79F316DD65BB820BD239FE4632E693071DB8753515682F9D19998AD07CCC1FCA7EAFF2744 +841466C0128C7577067EAC8C2E85C271BCD8C858038EC445FBAF1BDD954B06CEDC4CF209E4FB +15FCB2C2A56E499F719764BA6B12CDBCB4885B833A6EBE24E9C1FCA5898F8C14441D2A4CD0F3 +08B5C11E8429F0F49EF015089DDAA0BFEE653F64E66C26FC7396984D4CF7A4363B826EA82285 +1532AD525190CA681D2DD8354E2374AA2F1C43F6DDA81D9AEC9093FB14816AE71C2FAC6F0ABE +4C595481EE8E9B4BD9DED896130BA4888F8DD7571FD8B9712A3A89D43801C3ABAB161596EC41 +4C5F869E00BCDE4D275F951305ACC2A2D61D3D7BA4D978369A96AED979FA28FB845E4ACF0505 +458255D067F9951349B9EFD8C1B0327411B8B5FF0343BDC37F9729E777392011755EC88D1531 +811DAEE13D0EF2C62EEFDDCB4DAC085DB8673AC7B3B8F0CD2F1D70A35C821B7D6105A3BDB831 +680CD3F18193C162784F47B13F1A593DFD5820DE22F606ABF1419EB89D5272C475C4C10A4E30 +05ECF3D1DD711FF88A4B57DC39AF18F70A2CCAD011D65037BF9182B23A6F8C55F3CF4D3646CD +B7C0B01839832A85248CECC00781273351B1E11E119A92BF6FA432C719C35E2A4AD6704AC7A5 +D1DCFB05C8DF61901F89A4311520F57BE22F0CFC82E709647FD6E3B79204CE90D98EDCC54E53 +B873B38C0B954615B3FB950A451657ACE6B352A0B859AAEBDD13EF72FA6CE8A6DF6037F420E3 +A6062C3054373619A93136D4E6EA7CB8A6AC43E5A25A6DFE6B95D1519CA6EB7704BACE614753 +257EF888D043C081C795510F5E3C3B3727B7174FBED75E7E21B0687C2D0D1AA2CECF5D426FCE +B8768946E9BEAAC7FCDFD223892A107CC76DAF8E30D8F95DF55A39E1D6A01595FA187523305C +11E261D1C8F9C716AD8B36FA8F91F865749988C576633871F9BC0D403284D04BA5587D11F3C6 +4F462F549199BC5A5E36F27656B422EA951D117CD6221742DFFB8B9C9F6B16562411F7AC2D62 +1A2FB6FDF0D1539D1FCF8903DE802782B1A0D6BDB13FCD020D6E0787EB8338409DFA0BD29BBA +2E8B6B22E0D40ED248BF6D7855B88494317A9E4DA281062F6A96E23CE6EDE27FD1DF74642463 +F8FEB2E62B9F3AF0AAA3BF9A47D294EB49356137CD29AF73DE1461DAEA33A555B50FEC58DC84 +56071F25C6D67F5E70DDA897FE3835AB625ACB7AFE3B82D2B0C5E98471565607F2BE0C973DFC +E3D6736B0C5D43D886BAE7701512E0DD7C4EA50913E6B8F09E3DF658D3A7F7072C94A6A8F757 +53E9E1E929381A9135F995252A00EFDD18E778631D0224C0E0A4EED14C4717948C37B0D9ABCA +8AB2CA8D3902B4684205A941B624AC12A958CE16C7FABC280F87A42153D59EFE757B3D2E03E2 +9F02B64851BF641FE8BBECBD8F27C11D6EFF56C50F4171BD94D2DB7ED4E07C30A09F1E50BB0C +77B951028CEDE232D53CFCE8204A6ED895320F52F871BFF3503F780416880217FB9F93F8EBFA +D77892FF043565922DA1CC2A25785D35E93F9FABE382396B06446689FF7865118CEC657E3D71 +10BDEAAC621003A47551C1F6473704560DC4C767199DFF05C7617E560A714DBC2C1BEA50529A +568F66A77325DC720CAE61ACE1A37698220B27AFFBFE37550B2B506E6DFB9A58BF18255F7F4A +B21B3F60D696346EA83F9282F804AE6AAFDB036C583A7968E39818BF7AFD38162672D78F7875 +1D032A6A2ED084247A0B71B44ECBD5AE01D6BE4D8512CBCD1F33AEC01FB08F7D958DFC5D0BEB +F3F3EE53DB00E93C71C58FFB28ADF1CEFE942CAED1299B2B1B5620DF7A300E7DBA63D532557B +7A014E493303916813947A9E2B67728F4DA6FB29A0C775FC6F49181352F993352A140E236D02 +ECD228C92B6E62A72D9362441C0CEF1714F9F4D989379DF5BB0324D64E065D54A70FFE8E30AF +379A7199C3A287E2BACC0370C17C724C2E43813AA329364319B1855BEC581E071E16E08AF409 +790C5022613655D8D8F257466803DFF2ACF85F3DA08E1AF359308C6547B3031F88BFE99E2AFB +87611CABF9600D202BD90E614D9D782B6A93332FA17BC19839366C2721B834FA2E76D2539F0F +EA9E8C690AF8A1D9390AFB97DEF309CE0A3C302B8D5D28FBE65CB3436005A8D9F8056AF1F23F +C348CAA146ACC37B874A4663D549A401E98BFC01D56205DCE7532B10890ED4CB20933FA67A15 +51E10361B069CE5593207C521F3B2BB797C9D2822DD04E21BD3BC252FB30E92E77F4E85BAABB +742DB8F062E17EE61A5236DD260E14F33062C4897144033B3413A5066684622CE8AF9460FD6D +AAA5BFF4370E6EFC77CE81F4B619298C772391EE3D1F23253E536F122137822270AC3CC63211 +9B31E932783A9310AED12414143D5BE189BBCC3812D5D0E630AC359BB10302BFE8B99CF93B3B +1FCE84BFCECA996717FFFA8146477F8DB1798D9E8D5528484C85CDC2DC2E76D6E4580021F858 +06169215259CE932B9D13E3A9FD729693613D69F1995F1D63089A879C0380FAF749B016BACCA +401F4CDB542E2611F5C060C050F73657FD9348ADF43B2A34ED90E784F41CBF364DEECD123A26 +BB1D0107B4C89425CFC2DCEAAF010ABF3C15BB7254DC13EA44EFA101BC45254D7610BE5A2A08 +2C64A9DFD4204555BD4C45590CD77C270B2451EA7977FCE9C167E691C492560D897883C87077 +CEC321DBEB6B60C8E3602D5031204CF1328C9C4227CAD7009F857CC655AE6CD4A935FF6600A7 +6B82693147BFEEACBE2D711F4EB2E9D1EDE6CEE54FA16103971DB2892407CB302D239CBC83BC +83BA938888EAB9275E8319302058BBF8DF5AB3705B9F35A4C08B0D6668B1D8E8B5CC4BB0FC41 +3CC26AAA9A46C6D4C5B185BDEE74CFA284E24ECB7AA16094FEBE1B41980F1B04EF4F8F210E15 +B1168B757B06DD1D481454A826348A4AD2B5CE5D2382D7FBA0D30CD97832321825A27EAB3E42 +C611F31DE946144D5A0B466F81D28882C0122B8190B927C9618F886EAA7CDACAE95032D56E6D +C108B0DCDB867D5AA476934173E4E78F031C98267B984D4FF153CB666FFF0A7133CCDED47F9D +F18EDAD5B7036163640C3366222D847E04F0C3F48C317BAC8AF1A2B82B68464297748E60CB53 +26A1BB6B9A00EDA4E0B16747E36D925C2CAD2FFC54942631B0F4917BE242D78C8E10A2100D3A +DF037B4918D763697283478486E627CBDC03DB15CC79D529CF49A29030D2803CF1C568D8CA5F +1AB9EEDB1B873C527B02AE7F478967712F6EB18A0E77D42D65D7BE5E015773FA932D21F70EDC +20A905C5F728BCB96E77025BB93648D671467BE7911C2C3503F9042CEA5A4627F81FEAAC67A8 +179B198B61827E01FCD75BE8C29223913CBD5CA0540E56BC54FA5B4A84C6E39EF6C201814E01 +6C617ADB5908B36489BABA19FCC06AD4C1F5C1F812C269A8C8AC7E5A1406E30B42BB57BE3B2D +E60BD88410F55B41EA62706D29873C78CF85F8FD5250E3D1B454A3260F041E5A2DFCC3700295 +A980C1251A21552C8CAE493EB5AAA8A61D179592D1FED156B9FDFDB979E971B5DC85EBA32B44 +8B3B431306E425ED58138DEED7533E295EE14DD6E234A5703337D54F7390AC40B30A3E6859D5 +0B1E0D3C175F764715EF5EF1C662426A823A7D3B4FA4A79ECFF1E139541B1F676D4CDD23BC25 +3CCCADBDB47C8086D7657DC8284488144C6C2A616C249E1355E83BF0A67287F723E6583C1B48 +9CD612DE80B8089AB6335EA9B13FE508961307F9D4562222C36EB862D3CEDECFD5B3AB365698 +F2712E96886AD3194118BE196DCB9A1FF45415201EC6CC499BC77D7D81CCE095F763BD5C485F +D26B098D5FC4D746D6BA5268E0646473C2473962163102B3CC634AA7F7396C8BCF0B389B095B +E7FC2BF97EFD661BA953E05DBCD629BB4D8F04681EC34514D6241CA78E129EB976C3EFE92A44 +B2CEEFFD483085CB8F837AEBA4CA8A1F7439566BA57A38C335ECDB5F9D359B9D280F57AF90B5 +1E293501C4E770C212836B472E61D984F2E38DA01DAD1D0DA4D22D56909164D8794836C3ED15 +EB3D9725A7D143C1B91EA3E814FD16385442A3109EEA2FC0C7F3BB6A0AD0F0A670717A31068F +6A5C589C6272A00555CE9CFDF69B946C6FEB3229EDCD650F7CD50B8D87A605D39A2A54989EB7 +CE1FEC9D3141AC46FEA35B2523700D1B2DE93129AEEEE8B128E7F4BD4C84CD17362F3E3D6926 +359D3037119095D728861BA164FFFB4300BBE12F3E96C5A9BAAB69293EBCD14BE56BF3B14927 +E1BBD5341874FE5CA4ED6912022ED7A505307DEEA144E0A302FC58E58CED0826CAE2F50EF586 +FE01558CA12B909B85549AC1168921D68EE90627313A946D6E77D356C81C7B04436F50763934 +2EECB62FFC50305E89D2D5440788F9DB1EA31AC6BCEDDD431D9E30E5D1B65137A0DFDAED04A8 +DE067CCEC8184779A22F637FE30E6DDC5B53AB5DFB4C10AFB47E04267A4C24E3D4B014CB2FB2 +6B079C0011E3E6523A05C6501947BF194A13097D7C20F841874F87CF2BBA0732BC60DA4805F7 +9B5A3DF518686B8AEB02718597CDA7C92BADFB0DC7341B127DE9FBDEE8E8CC04F19776565C12 +2EAD1E8AAB1F6763CE1F9AEE40E860F7007C92903DFCA3AC93DD39FE1388E450E74F2610133F +EC58D5921B326121F4EA2EF940220BD221A8FB4E0A508F82C0F585E2F833318E0FF0586FD6E2 +0FFA8229BDA3A6B84CC7683B7056EE108FF5B6EC293F943000B5766068F53814FDF2ACB20D2B +232455012AFB9C130A5260E05125CAFDA5C4F5B9B06B6C429484F5A5721F0E8C44D9819CCE5F +13B3C6A8C7BDD2C0756A0AC9F3BF98B0D7F29ADC4B04113DEA1C20263FB8D8F0D4EDD8993963 +6BCE5B7933ECC23BC0784068A53085D2031F1944628EB742C73A478323FF0642B3FF86F596F3 +9458EBEA4DF37D40FEE5DE5685B025310B622F7771DA09AE94C3F9CA763C106D24B1C6890ADB +919BAA169718EF7644FBC904C53B5E6916BFF6B2417DEFBBFE46A1AD8E113A83A675DDC656AA +BF32BA1C003A4D5A6099CFD99B5989CD779946F196ED976AB39A666911A310442CD7E65CED84 +F1072CD70666150E4249078596716DF12B86A66453BDE2727AFFD46F7072F8C905E5FEFA8C37 +03347C1452F36D9349174E5D0BF4C688AA62F617D0C213261494EF3B479D15EF9F3167839F73 +F05EEA73FF73CF0510733BC4E2C358CF53E619CDD8194417D091365326C4E8E7460C19DD6784 +7D66FBAD913752774A8CBBB702A4875FD35F154E08CC3322C484FEF7D623185BB09289ACFC92 +7B885E1FE8AA9CC676C237444EB2BD8919DCC2B4511F4A9573503A536D0477ABEF0C05D0283D +6852E45D3792ED5763ED5959C92CF3CCB81DA37324A083259F623646D8005A77E3A35B7EE5FC +52FC36F7E799AB5EE36B5DFACDB1CBA0CB96D5FA4C438A0EF1219BC0D3FA3B03882821B99490 +A5738D3A5230232C23F6D2EFA9ADABA14F1F61F4BDF3C29F20FAD3520CCF1F23C653459E4899 +65F53305C563A75FDCBB9088903D7AF6E9A79949E9FC0DCCB4C0147C17C4B8F3AD26524DACF9 +A6A1F76D7EDF4B8109DA748A7579C57A13B5FD513FB76936E4393F85F1DE216814A866273208 +349EC5128FCEABC53D93DE84645D7501AED73D109164F016ABB45C90E6D1C7E7EC13C3AB22FB +3F3EF6E119ABAFC82AE5E1D371E28F941A9298F4C7F679BCCBC36993B8EED1F55CDD939B8464 +FC982E84D7B8AA4BAD4768970360E9C99093F9C9F5F2236AAF5104F04339BCFBD129EE748885 +5E9EEDFC10C891BE29E742535DCAF05DBE1618D36EDB5D8F40FB5A547EDC45FF3F4436595051 +7A90197E8F842F99ACF3E8B345070C55E919FABB38EC8CDABB88F027F5F3D8774FA6DC149A82 +E2239BDC1B20C06A301A272094DF3DBF9B227A9A4DD2BE83EF224617620FE776C5D9DC6F5404 +7F2FAE5A3E15EAC83DE6A2D89A4D5E59A4D503F061D3230FD6BED27AB109BE4EFA0EEE9A0F28 +9D131BBA1CEDC02E319A3723EEE98FB84BDADC23B095E487210A85CE4895379B8A7D59708A1D +D94DE02A4AFE3E5BE0166FAE6C0F5706817B1CB2DDD7E68A4799BEE124C8AFE8DDC7D7AFF7D3 +94BFB74B9394F554875E6F83E9914B4D8816D16E62AA0C593D0107798CBA1CC095B463EC888E +530F5D253F94526457087CF9EC76900D9F11637E4A43CFFDF3073E148F6DD82A0AD5A4962EB2 +376D74B43ED747752B9FE62F9FE20AD62A2EE61897D5651D6D61D3A64DCE59D84B3F36829A1E +08FE27C986B64984D472008DF125846277D7854F4DAF1EF7B066D049828F668E671C77402B54 +3C349C4744677E31A24FD761F96B3EA4721F57D980C442F90DC92B981273127D061D413E37FA +8D08D0F473080005BB9007199990343EC253DE8340CB8241400BF43EBE83FC2F7D039FBDF98C +3AE5AF967A79CE311D1EA5B11D01C7D57F1ACE6D26185D47666C13429DA58B48537125719B3F +B91FC3F7297A5BD924C34C87FE0D007E31C06871D5FC0D1CEB088C4C1F5C721975597B106C82 +18AF965069C536CE44A458C5F5EF16A5C32C039E91269DDCD6172656DF94F9E3A088D25FD071 +6D3A105021076517BB350AA163E3C5C8EF5AA0F3506F4C6BFE34C363182D687F1689A3A8A15C +5A989F8373AF8079027FB7E8A703B38F0C163F89FE695E5753FD9FD572A62318A76D55CFA811 +2CC3D7D5C0842643A4D5E322758E66ED28F0404B1CA2AC3168613B6643C2052364207431C0D4 +9A0E6B9A248C7D4BE9E3DBFC08C4FFD3FC569EC96350174ABF893DA2A0E9D40A8D64792C31E0 +F54E95188025B6333EAFF3DDA8C2999422C9CB849752D8692D10E1910AB2D0645E92A9B210F9 +1118D1BD0A87283D69B232E5F9B76927824B667D5F4F42179FCDC67A1F77D0336E3BE2E86731 +E7DD2E22A4858E7E644B02ADAFF107906A298E4315CD0D53AD4267F477F99B127B76A1574AF1 +6F8622CF9D3E3039556D4A0650B48964E3FD1312D6359A68F8DECC0E9E50FAD4AD4E251E2E94 +37F2144DD6194BA31C2354D64406E5C81432B084A60F03372D111341C87820769734D4575C12 +AF6A37A97731F66B9C6621F75D36759571A0D112C61E0377DB49EE70417D896ED95AD72EB0C3 +7EFE669E8A2D463E69702266FBCF92D6ECB6067474E644A4EF3AB31FBDFF2CD67EDCA97F03A8 +FB8030A909C8C880299BD440BB9A83186A9A3710511A9144E98DE8940B4CD74241C519F61A65 +895AD1798221ADC87108F46C4B0053F52392A252B5626018BD73665832CD0811FFD4C2B4DCC9 +5C5120D4FA3C0EFFE00E142C26912591EE6B2EDA58A791CAE13CBF9163B1F51C0B9DAC2EB611 +CCD11AD06C95EDCAE3671575BBDA696D80A767056B82E732155650E4FEE9E15C84B4FE2084ED +8A51B748AE344587EB125EA0EE9501CAF82021913D6C9DEE9FF6F8AD96A6E87E5FA5B9FB3034 +5B710E5A1C24D247D30F31A6F701F5A722C92BAF496CBA6DBEB0FA393A87B36944394115B215 +16AFC18078E1FCC7EFB63EF236E08CBB6E745B20205A30B82CA5F6F0FEFCEA72324D5CD9468C +86371AC76426CB9C935552066F94B31AE4EDE823DA03C6482F4AC709E3AD83651BE836E811E5 +809E52AC7EE26C8182DEA91B3226FFB31238A55AF9EBBAC6066185D569D1F0CF8B38C4F8FFAA +8E60FAF2E56258326D945671A99C13120C58A3AFD96E306ABB1C6E92104D1ECC0EA9792AA503 +8530CDD043191D17E970C3C166620A506AC8F146B86EC3865D8BAE3F608C6E1462A8FE2A89A1 +0D975A11F6E77765290EFAFB1C83E0FC5BD8504A952E6962ACB49A8E53E65655D335105EB88C +81C0EF2CD6C89B7BEA85B1D891B40305BCD43E1C40A0B416BF91AB94418A02035286559B2DAD +03A7D6394EBC11C6C4FB21F2B1613B54875E25F0E0DC5AA60159C6D471EFE0630E5BEE4294D3 +AB38C937337D828AC97BE700A9886724A988DF8D9408F944BF7DF2BF8A8F1993F4825E7DEAE3 +071EF279870BC8A16CAFE55864C155C3D27FC05BE2D8EA1E5B7457185CE355CF8E7AF5B2873A +A9756D52909A8AD959699ED1FF56AFBF596B8AFCF8C400387FF5E2385342F4A0C6AC4E4E8877 +E3953D5E76A51384DDA5DBF3E30D4277ACB753BE3F7D82F1558DFA45DF3043D33C37D05C6C71 +ECA2D3FC5076F4AD5AF92DA5DABC856BE998C11E77D0D8ACCFE608F27BD3A547672C94DB17BA +CEA39E52307DDA77FF977E37412F1BD6D448E9E1B52AA45793EC8801C61A502DA869211D7D04 +23BA13C969A16041412EF9F9315ADCAD998CEB7FB7B0BBB9B9C73A0A1727468D3BD89F56C075 +9A71BFA25A86D90C645588376B8577BC84B96689A9C37AEC6C816224404C2445B41D4DC93324 +6FD8E5F749C6DB1BEDE2D2859ECB2810E6A11731B529DCFE3A5BF4DC9212E8AD9EE6E7B76B00 +2994F6DA7A9E1B6C07B6C50BEC227740C59C5C55D96C5223D143A8D4D74D8F2E5B555EBAF135 +810E747E31F31930B69714AF224B91640A1ED8D605342B69B1B38DFEAAD14FF54BA9B97632D0 +571618617D4A7E73A7EACAEF6FCE03ACBE9CCF07033044C027303C388CC0124EB79F98FABC15 +6765C4AA062BC3A744FBDF561F1F184486029A0CD32F77EB4B4503A411808099E54CE3F758E2 +C8842A5F9D9DA428B300F768A9060A5918879B0812D677A173B1F99062ECC2FCDD0399B62720 +9E6294D5A1C77FEC78850580D57554B78A12197D5D792787132E7BF195905404688959D50B3E +7B83B932251B34ACE56518B7F98D8C87EA5EF9DF3D63EFAEAF99156720977D4F96074C85C0DF +B2B43B0DE75EB9D31835BC47E587B80682633BA582717D72221B9157433820AD6CE34035FE3E +3581187892392CAC6380FBF604BA8EB0A32637E44C8F1D946D5E1909ACBFEB34D72584183945 +B33D82F4BA2B915EBAFAA67618F99BCBAEFD8F8BDA9B86D6709379F397B5A72F6AA4E6F11840 +CD7B753D89B911988EB549D95F5042833C9F74186C527DCFC7D77CF316B77F73EF90007A2BD9 +1F33F83C214B0E18050346222D0D51BCEAE15CEB82451B37C52DFD5BB9B8FCDA1CDD77A4EB00 +A21641F2B4CCCA221C3AAA7FE31A11293528DD679908AC59A744ECF6E08A08FBA606CFF149F6 +43EC607E698776F158923B226D3D0C4B913D0A1B94B6ADB1B84D66A8B16546A0BBF8E0DB9B6A +17D50A2CA6E67E0A8534CE4EB669A9F367365926635BA98630C2232C560DCFC81B306A70AF9B +CF7557BCBF89FAD07A97A14D3A2F8411ABE09AB4493184A80DD311E94EF8B41BB7159FF42F6D +073B965391990C2702D5D4E33A4E744E5621EC18A35D2448E50049B247A7892933A55EACCB19 +9E3A332B8BA2D78556DC444463BA3065066563083DE0CAA2C8E6B873E6B92DFDF21705057935 +28B9D731441FF20867D67FB7D97FDA8954A294B7BBD57F25ACAD226D08A5C1443B1B0274FDD4 +E32FA1FB80E1E93C841CBE010C48D9F1A337D12487E07C4B2508E16FA684620536EE08634A9B +547481D3E40D179EE09E4A14B240371CBB577C24E41A916C134EB24564C60B8F9E4DFF250AF4 +65299AB5784D33FB3BA56BA4346C5E193B11BAF18374DEE98D64E97D5372CA4D838B5F874745 +956156A046D2A8A2116CCDE050450087F1DB4227C6913359B3B092E6CF1EB7D2656AD944BC31 +809F3DD22F6B8000B655E1D05F1AA005AF71DFF453E1D29BDE191CE51D37CD05B5081E63C783 +A5343DE829FD3128A8D0DFB72457C4FAA82C1BE3B662F204E656F659C6948CBEC38D85BDA3DD +3B95EAB3B041BC3F52E265CED0A9F9B9E5F26886FFFD004A851CE67154C45E547598D331ABD0 +E44A48260C501333EB57650F3813859A0418B5FA806E6C4C8014051F34DB0FEC7CED33A8E785 +9ECBEC875808C53D21FBA64F3736D7CA13F8FC4D14987E8E439510C6D46FFC0FAA618331DD01 +6014D5EE1A51180C65BB67E4CA008F4AD21DB6BC6663AFD4C61DFE5761615D5CAB6156695702 +5642C16CE5606E44D0A7F52C0140011575698ECD06573F9258C43A247D74152BA326EB1C578D +25D7EC4625540E69E5EFC439386FC381EE8DB04CF121C5F84FD9EAF0FDA90FE31353CFEEE553 +13363A382E410C69EC7041F3D303949D4F4ACDED4BF1A1BAB640BE0D11B44012446D6F58AE79 +405374E0CD5F05BF624B185CFB399478B6054D1624DEE473E9C52C2A58F10F72679E10087BDE +F832E8C8541F04B4678907C099B4C861B389EA2D702CEA96480C536EF545594F697053C9561F +FC9CD56352BFB5CDCC1831E0C8D0847BAAE46F16F50F712ED62351CD0FF01563FBECCD992D9C +F08F693D843DDA71EAAC2424A69F108C516A01823773BA6EF9E979419578BB95DDF07CE70AD1 +B0218F1C50436D0B12007F3C02213963C6FA4DCA8E6176D5CB36C154E5521DB36F0BF4B4D75D +026F4B5FF1EA334DA971C530B79D5D9B606899874DF7E10539E0D69AA8241AAD05D703B2C731 +3CA21E4F0F318F25279EE1F48B5DB71E95CC43609315D5C3AEF6EDDA5086080E5F31F9264E3F +28E8D5FA719DF9698BAE87F39250CC470AC10636A1A072F001030C97EFB481C21C171EBB2E7B +3DBA17D4992E40F01C4CE682B7BDC2DD56350DE2A918EE186B902440BF4A23D548AAD431DB6C +E594C32C4F8AFA96BCA7CBDCA3AB620D1083633A7D3DF6D655CE07AFA91BEF5C6336DB3C4E03 +9099F0C424285612196144DFDB4813519247F53DB9977737EEC47C19D0E66CC522D89E0F8617 +96F1453426838E75DC4BD85213A75B366A122A59B603F99F5E597CC52FB5BE96CEE3D24CF6D8 +53921A81A869CD14A168D0B31EF2D54CD9B1ACF25C1EF0C42330ECC879A7A173D17522B421C7 +730F5DE3B14A6998C9C3A0D1CE5326C0116677997DB1FF6112FC8237B2EFFA72A9DC8A82F706 +03EB2147D0CCB152349307F6DD5EAF99563D8614CF7DFE8BB2C34133B1A27B21D5B903978CCA +368C23ACEF2D4E630460626A270A12898C8C212917D2348435AC7E834218721399E57792C8B5 +4AAC664D75CFE9EA15EC9CEE6D2086179EA72EC62B6DED17AA3E909BA70A69E66F8645DB6269 +D56F6579693CB6F781D81E79F3FE0871BF686390D86181E9990B7CBAAAFA2599E57618CDFABD +E3E21C43F378DFD416EA203EAF5D27818360A3AF5EF34C15E337E74DD46A577852C663318406 +54CBE3901DA16518B6AF1E202DCC687AFFF5E458FA887ECF5605FF93A95A46C44A9BF48760DA +288808001107E6BADD29F9952DBC83ADD2A58CBB7500D9E2DE82BDDF32C75C56B5F4D17948AB +24610FCAF83EF121F2C2C8CC1FDA43A0FB3C320AF44102AF2C54F41AD7CA1441B0190B1A8CAB +AE86B1A1F8FD7A6C399BAFD3270E115DC8A348E4B87D9BA2762D95E4CEE98880EDBCBA7D6EE1 +25D3C882B62C7141A9C38053C87345138059980D13390D0E5754FFA531F45A825F54CEDBFE48 +D661839D141A2593AECE3AA3F5B280CC9219C1424773F927A1044BBCCDB55CA2AB9D9BF53E17 +9CF36C33BBA11A7952B4924A01B74066478FE663C7E3C0D28DE8A8335EBB2D98360AD24B338F +3A78F3204E63B12E4666025387C041DBA2343FC0906885F3BD8CDA1E477415180C8AC27F1430 +119AC825F072CD2B1932DA6280A24F2D17065EF8426FB9E8A0CEDBF8B53660D6EA05771E3184 +DEC4AFB3DBB8F3CA65F7385A21CF096EB0E2AF36601CF5687FC1320ECC03AD922DD7026C44D3 +DE96A5C7C49CF83F3BA471135D1DAD0D95B0D959578B32CD6D1B5DE8D968AC8AE143A6201904 +06403ECA146BD3F49F5A801D553C922291DD45CECB168320E3689CE3D8E765E79A1C79A1199C +ACFED8554E870D3A5C925A06C611A73A94B2DA9E151EEB36F9BF0672EBEDB9091BDC50F72E3B +7C55E073FA8F419543A47B3A856C09FA4AF7ACB5487469C498AA97992349133E53BD0B9B9F28 +1DEA1D8CA2533001CEE5751023C5BDB2098F3C0F3965187364D373A55B451ECBF1C4CF854F3F +EA7E86AD28683B9413BD9E7CD3E9BA8EFF17D3DE056781DFC163D6303A1E0A0615CC57E05DF1 +9EEABB8A2D8243A11963FA523184A9C24BA3B1AAADA5A828AD34F93F36049B77A01E9B18DB4F +5DEDA9688FED943B6742038557FA67844296A8E622029D256536F0B7897568D977B951714F2C +92920AE1D9C1522166BEC7B7E4409021B0FE55D8FB9A71AA3A1506BB977615AB8E35D14CADAA +CA791B8BAF23A186B249B3DC395A5E5D4C7211CFCB6F5C2E62B849DC72536D9EA68720EBFBA9 +D98BB5803E8056E65C47B12F92CE84FAF73F2A08F145DB269577AD50EE51A292BE6466C64FF3 +A54848180D62C8247FA6032834F3201D9706DD1190729F9B27C76E7DA276514A309F7EA3DDC7 +A9C84FE049F8093CBD5EBD43AE5E062CB28F33113664FDBBDE4A6A71B5B520D3365C57EDAC15 +D5CE4BCA872623509F2CA371C13493B002A32E68CFD6165D2DDA9F3C6651EFF6B650E5998A9E +D30112AAEF280A13710194405D1A8E1144397010DC81C42ABF9A3CCF8FF86B2AE7777EE66B96 +B14851F9B3D04E0D4CAC4E28EF33F6182F0B44DBFE0F93318195F107EF1213F95FD217D79FE4 +6C5DED68C32DC9E7BDD876221BA76F9DC125DBBB279C493B2660321412141D7052737D069640 +912C2DD41B2BFBF25D4C08B5F1412E0D5D03D9C4587AC495570D5577311CE9F5735BDF4B1AFD +3B1409533005F0C3D469DB0CC3A42DF1B4E14C24F8FD872DEE3E5C96FAA2A39257984DAD5801 +5E88DF4797981EF81AC7574FBDDC96F23D149B86D91C546B073DA258C37AAAB56C304D423FF0 +4F79A7D95E3849BAB07D28BDA946B0B54B37C24628EECE3A530E81C4BD1ABF42C2C4FB4334DD +9AAA2A54C4762C3512552C273211F94BA1BA92BE0F00CD53F6D3827417CC25884095416D06E4 +D1F7C93E95C5286A7A2A1D4FF7B78927504FFFF0BE8E23DC3A306027E0E2637B75C992783F58 +CD99E20462E1E73BF837A004D8AA81485504A885E367768B96FA3489CB0887BC0393BE41F70F +35047912824D93F38423FC214D93900BB3A0114C5EA3348B8F27796BE2A2170C214773AFA729 +915A217CC634EFE5B84D29571C3D9C81386A104B1C190121B1738272E0978B9395B82C012E02 +EB33D08CF4DC7B652AB5B1F49C5DEF297608936F668E8F07E066488B978185F87C8DBDF48495 +C350138EECD08CCBA71F4169D1E031D40563A9CE29A5D61B94ACD7F9A1D5005CC48D6EF63D05 +00D93F642A3501F4086724FF2359ECB661BC0DD6A7D2D86CD5CD461D5F9595B258BA5306A1B1 +97862B022AB3CC712CEF618BE82738804CC732B962DE126F90136E4001C96DA77A195AE5015D +DECFD99FEAAB8D5B455E7D6779A70BFA4187D93CF82184272FAAEFD9B0EA0D1059AFD26E4950 +B5DBF9FD7B2F18762F7C3094CCD04693EDA58141966638B0D9CEE738D718F24DE72E3B436DFF +A817C63972DAB175BAA8B037150E02A57279954BB8154E9CF0A63A74DE7CB941F6D0AE015DEF +A785291508DF4735242CDA96915F3A67D4711701EBC0CECAA19B46FA8395A608E45247E609EC +B6BD0EBD42EA2D0F3246CE18217C9A1BC700F110A58C7BC2D5BF12FDB444A9833295BEAE75FA +CDC855DE541BEB35232EB7062CDB0B1FF9924CB413643712A4AD15AAB604A7B6381F801E3B17 +BE9153D193765BDC81199FEFEFBD75E0C33F398E59C178F586398545DBB7FEECD0F930475734 +68987A1ACD82BFB22FB85270B33C8D493EC75D354B73BF89C85511F9D86BEAC776A51823A536 +F1A3FCC7865ABCDF852D6D099892569D097A3D3BB353C897B082E31991B738D888299F6201B6 +578DF5214DC47D57754E556E461D0031F10158F79A45FE590C93782C1C31C7D1E99D5054721B +2C37A30A4DB4C5F489F9AA8EFCBD2E9D3C79E8ED42BE490BEB93A24AA7DF83235E87AE14AD93 +BDA7EABF5324A269DE9E28DDE8CE1BC4840C87B6F148F535303EA8A7AE066126FAC50619CA95 +CD8F97EA1093E5FB76AB8640D1DB0F8FBBEAA855CCA4B8A1092D7549EC9299EA3226F8CAAAA5 +9FB5AE22EE5DC2557165B35E5FF93C8CFC23891A75E4CA5BA914C5DF3B7792554E2F5DAA2524 +D758C2723FC3B0DB13E8084DA3A02D377B5EDF21DA882A8DB1E73ADAC2640790C7BF46ABA616 +9CA1476E7DA7E5A26F3957A660BF60A840DD5AC5A22D08DC20B171249C991BA075C6BEC67E2C +B95469AA10E5119B7AE4DD3C7EAD3EF9955CF8310939545F7102CEBC4952A951FF5022094632 +FAA2E079CA29D8BFFA5C982B317D8BA90F3FD28E7CFD8EEA6D5E12B98C736BE819090E4FF30C +3D5AA1839E6EAF6EB6F9E6F9405DC5F23B8DFB37971F93D81DEF46A067E49AAC0A7E1631415F +77C16FE3BBED715E4882E710E2DC35E8D2CE01ACFCBB3B231CC2FE79556577668F8701F4033F +351606BF3088518D183EE31115135E02CC9C679ACE8CAC5F5C5C10F065F4B69F1F23C1BBB505 +1C3A2D795A579CA2382935DA4F42D481226740EB6DA7000568AC566F633998915749A3CA5BB0 +64A48083FBEDED9FB0FEE4B39824A1DC8999DB87C446A068F36D05291FC5FC2FEC5B8AC90AE5 +A4F0D76FAC415CE9F3749444D0987E22B64AE6E47D7ECB6E57A092119B4724475095D5D1C9B3 +7806D604C12FA1925F919658B79FECD3C37EB933847EA4B966F860CE3B0231054054D33AD524 +63C9EED6959EC202CDB57FD462172A702A6F91DBB624AAFD91CE2A15653EAD69995059DF7053 +0E93192C2DCEB9ECAB2D25590065C7596AFCD775843CAE76345F410409CEE5EAFFD5227DFF99 +ED83FDED9301644632513106EE0D629DB1A70FDFF66421FFA8FB9742F3F7CF0C318455320778 +62BE6C5CAC4385A947267EF01BA4DB40427C251B04A79B15CDBAD1C401DF4C94F29AFB8C8DAE +2FFE7055E6BE57E06E5A445645C889810EBB631A22052815045340B42DA17741DCCA003699E1 +5F02135F576892F0D178142B1B0E4EF8B3CBCFB7BAA70B2D26D68994730832F84326E171A55D +AC7FB927AB86176F9D031693573BCDF24CAE1121E4D01918A938D01AD4F2DBD7EF824678C39C +B1E1048165589B92E5C7E8039604783E0843A302CF9A7A2A130B40DE91DE437EA9A15C3EE9E8 +0BB1EC96081AB295D6BE4889BDFF20C8075EC3869F6EA17077BC0FD340CDAE0C22AC452FEF8A +0716B13DD52153184AC24D45677096CCFFD9F4EF5BB3FECA87C70F49824E01119E8EF4ACE680 +9929C4BCE4E4D903EB3BA3556D3D50C301877D81B7C5CA451E46A3A3C03FD6E9260EFC2F4C99 +FE45A406F85519383AEE330B3949E092F8BE6D889B1516C6ED1BEAF620262CCB3944DBB27012 +587E50A23276A975C301EB4D7F053C9882761A061FF5BC59651DFB3BB6DE720EAE2FF2F2504F +674A5C21C04B01A78AD2EBA868B9EADEB35AAC457C141791CA94D9D8B88FEB5EC5747714641C +C0003851DE075FC0FEC996ACDC4E67A5490FE657490DF994497E1ED3454F6FD990DD8879B238 +81219FA6C3D60C81392874E5C42CC174C970629EDEC059B2BF1F53AD21C32584A3E1251A2DE4 +94F1D893B80E81D55F611B6B9D7D275AD513125C6267BE40FD49C0A039142535514013B1C722 +C61430649F1455FCF3ACB2603C9C668702D64277BDE9199FA6F30E7D2EE9D74F22054CFE0F53 +A2F93571D7B98EDA0991F789C1F77C4BF4DF2FA1AC98F5C666A8415AA517BCD14F2BC5B7C572 +A9E7EE55822809596C43E43CE174612D06D0D71DBC50B207B9EFD53545E262ED0310A06A2C7A +E9EB63076703B29D0DFCE003C3177A20D40BDEB2C50EB37682CC9586CA3760426615E192BF79 +865FEFD6BEF57358A1B5CAB36FD8119EB65E328BC84527AC6FF068048D7C9CA8E91C94F3A4AA +B0F98E8CE4071C54BDA52AE518839708AE69FE8BC5435057FA740130BED913EC885C8E1C9388 +867DA6A8D04D3D4B7340404972D86848C152BE9B006E5C85BCF005B59B6FC06A6CD0BF3AF58D +F54FC285C0BBAB9564BC1AE8B072D1BF9CDA93DC4FBDB62AF566E3F18208D9D0721FDAC36A0D +85BDE800DE7051E8703A8EF1A1A46A901ABE065899ABF99467E328CC743E4732716B1814FEAD +78DC62B464D1E2EAAC1D0950C24CBDD2208AEF714A17BA022E68B739705BA7FA4078C46673B0 +8309BACF993D71E0D75A75FD98E4FE574FC3B657F137D69284D94956A1404882668B21BF5C5B +0DE5B778B095611E54749886EFA8E1CB81221F5C1A94ECDBAFBDD10952AA19BFC789674B28FE +242DEAF9AD08C7556F67FC5CB75C3BA8E5BB27566FEB06850C7603F13782B8B5123822897A39 +3A173FD1A30C7492A0EFFA096A182D6C0EE3B9AEF3C4C3E150208998F9EF4EB466233CF0BD26 +4A87D1551A080000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 + +cleartomark +{restore}if + + +%%EndFont +%%BeginFont: CMR6 +%!PS-AdobeFont-1.0: CMR6 003.002 +%%Title: CMR6 +%Version: 003.002 +%%CreationDate: Mon Jul 13 16:17:00 2009 +%%Creator: David M. Jones +%Copyright: Copyright (c) 1997, 2009 American Mathematical Society +%Copyright: (), with Reserved Font Name CMR6. +% This Font Software is licensed under the SIL Open Font License, Version 1.1. +% This license is in the accompanying file OFL.txt, and is also +% available with a FAQ at: http://scripts.sil.org/OFL. +%%EndComments + +FontDirectory/CMR6 known{/CMR6 findfont dup/UniqueID known{dup +/UniqueID get 5000789 eq exch/FontType get 1 eq and}{pop false}ifelse +{save true}{false}ifelse}{false}ifelse +11 dict begin +/FontType 1 def +/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def +/FontName /CMR6 def +/FontBBox {-20 -250 1193 750 }readonly def +/UniqueID 5000789 def +/PaintType 0 def +/FontInfo 9 dict dup begin + /version (003.002) readonly def + /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMR6.) readonly def + /FullName (CMR6) readonly def + /FamilyName (Computer Modern) readonly def + /Weight (Medium) readonly def + /ItalicAngle 0 def + /isFixedPitch false def + /UnderlinePosition -100 def + /UnderlineThickness 50 def +end readonly def +/Encoding 256 array + 0 1 255 { 1 index exch /.notdef put} for +dup 0 /Gamma put +dup 1 /Delta put +dup 2 /Theta put +dup 3 /Lambda put +dup 4 /Xi put +dup 5 /Pi put +dup 6 /Sigma put +dup 7 /Upsilon put +dup 8 /Phi put +dup 9 /Psi put +dup 10 /Omega put +dup 11 /ff put +dup 12 /fi put +dup 13 /fl put +dup 14 /ffi put +dup 15 /ffl put +dup 16 /dotlessi put +dup 17 /dotlessj put +dup 18 /grave put +dup 19 /acute put +dup 20 /caron put +dup 21 /breve put +dup 22 /macron put +dup 23 /ring put +dup 24 /cedilla put +dup 25 /germandbls put +dup 26 /ae put +dup 27 /oe put +dup 28 /oslash put +dup 29 /AE put +dup 30 /OE put +dup 31 /Oslash put +dup 32 /suppress put +dup 33 /exclam put +dup 34 /quotedblright put +dup 35 /numbersign put +dup 36 /dollar put +dup 37 /percent put +dup 38 /ampersand put +dup 39 /quoteright put +dup 40 /parenleft put +dup 41 /parenright put +dup 42 /asterisk put +dup 43 /plus put +dup 44 /comma put +dup 45 /hyphen put +dup 46 /period put +dup 47 /slash put +dup 48 /zero put +dup 49 /one put +dup 50 /two put +dup 51 /three put +dup 52 /four put +dup 53 /five put +dup 54 /six put +dup 55 /seven put +dup 56 /eight put +dup 57 /nine put +dup 58 /colon put +dup 59 /semicolon put +dup 60 /exclamdown put +dup 61 /equal put +dup 62 /questiondown put +dup 63 /question put +dup 64 /at put +dup 65 /A put +dup 66 /B put +dup 67 /C put +dup 68 /D put +dup 69 /E put +dup 70 /F put +dup 71 /G put +dup 72 /H put +dup 73 /I put +dup 74 /J put +dup 75 /K put +dup 76 /L put +dup 77 /M put +dup 78 /N put +dup 79 /O put +dup 80 /P put +dup 81 /Q put +dup 82 /R put +dup 83 /S put +dup 84 /T put +dup 85 /U put +dup 86 /V put +dup 87 /W put +dup 88 /X put +dup 89 /Y put +dup 90 /Z put +dup 91 /bracketleft put +dup 92 /quotedblleft put +dup 93 /bracketright put +dup 94 /circumflex put +dup 95 /dotaccent put +dup 96 /quoteleft put +dup 97 /a put +dup 98 /b put +dup 99 /c put +dup 100 /d put +dup 101 /e put +dup 102 /f put +dup 103 /g put +dup 104 /h put +dup 105 /i put +dup 106 /j put +dup 107 /k put +dup 108 /l put +dup 109 /m put +dup 110 /n put +dup 111 /o put +dup 112 /p put +dup 113 /q put +dup 114 /r put +dup 115 /s put +dup 116 /t put +dup 117 /u put +dup 118 /v put +dup 119 /w put +dup 120 /x put +dup 121 /y put +dup 122 /z put +dup 123 /endash put +dup 124 /emdash put +dup 125 /hungarumlaut put +dup 126 /tilde put +dup 127 /dieresis put +dup 128 /suppress put +dup 160 /space put +dup 161 /Gamma put +dup 162 /Delta put +dup 163 /Theta put +dup 164 /Lambda put +dup 165 /Xi put +dup 166 /Pi put +dup 167 /Sigma put +dup 168 /Upsilon put +dup 169 /Phi put +dup 170 /Psi put +dup 171 /sfthyphen put +dup 172 /nbspace put +dup 173 /Omega put +dup 174 /ff put +dup 175 /fi put +dup 176 /fl put +dup 177 /ffi put +dup 178 /ffl put +dup 179 /dotlessi put +dup 180 /dotlessj put +dup 181 /grave put +dup 182 /acute put +dup 183 /caron put +dup 184 /breve put +dup 185 /macron put +dup 186 /ring put +dup 187 /cedilla put +dup 188 /germandbls put +dup 189 /ae put +dup 190 /oe put +dup 191 /oslash put +dup 192 /AE put +dup 193 /OE put +dup 194 /Oslash put +dup 195 /suppress put +dup 196 /dieresis put +readonly def +currentdict end +currentfile eexec + +D9D66F633B846AB284BCF8B0411B772DE5CE3DD325E55798292D7BD972BD75FA0E079529AF9C +82DF72F64195C9C210DCE34528F540DA1FFD7BEBB9B40787BA9351BBFB7CFC5F9152D1E5BB0A +D8D016C6CFA4EB41B3C51D091C2D5440E67CFD717C56816B03B901BF4A25A07175380E50A213 +F877C44778B3C5AADBCC86D6E551E6AF364B0BFCAAD22D8D558C5C81A7D425A1629DD5182206 +742D1D082A12F0780FD4F5F6D3129FCFFF1F4A912B0A7DEC8D33A57B5AE0328EF9D57ADDAC54 +3273C01924195A181D03F5054A93B71E5065F8D92FE23794D2DAE339BA29C1C6F6561DEF1378 +0383DAE38A868377CC7D396B2A05F341AEE0F8BD0A0191F51AD11A4D2E927B848A1EF2BA15CF +BE57A51E3AF07598275195C9613041F71C1AF39E61F9EFD5F6512FBDA76E29DE6B508F62F5CF +9F73F5288DF1C7B0B82C92D3B6358BADEC3CA20BDE55DAA7CC58004AA86B6CBF8C410D8287E8 +8BF20588A39309C2B703CED322F030AA6069869064486CA651DA054FF3F5E56534CA358B0829 +A6B954D89103436E6B06DAD1658BD4A95AB41343B01F5866FC87C4EDFC71F1477C98F8E11DCF +27EF743FF90BF91881C1F09C10EF68CCCE86263693B4699304958A466D9D74D7266A04607EE4 +8FC4ABDDB1AAC9C2B0A4E942C3F65873884A359AB76DAB1D1BC67876C5016E7C5185C16658A8 +1ABCC25A40A00CAEB6ED57285A39A3FF3CE675DE68E8FEE93BE347321DCD5674E11182F88DA8 +5002FB8D6AE14FBADA8366F8603765489F5996C64D33169816AC5F355DE8A4FF22631424C4E6 +61390E36C6B041CDE6227612506E4C961A05496DF3CA1255994DA974F6BB5B6ED7B0C96341D5 +006B3CE0BC97B2AA4CA9DEC0B1D204F1C42194601A82AB4BE67C0FE8935DC93C5992E5BA5CAC +BC6A7F0BE7270F76F00BD5D4E05159DCC33CE8863F569433F7BC17E88909388978909AF5D913 +74882D0D54E66402123733325D6C553F1C28AD0E4A6399C129F8E729DFD3EFB8C5357CD5D7C7 +CA3931E1BFDA15CDD45763E016FBFF8EC15B3CD5D6FA53EA786B5DD281437596B5035DB20121 +99EB57D8E02EAA11EB00BB17D53C37679A5B6B3BE23F0C530999FFBC13F67D6AE80D16092C36 +E56160F127275C46102AF8C3BC21322FD4993B84082E09037CF590078111271292D7974401FD +5E8963CCA67571A998AB90109F1F574BD23AFD052472459C553B327FC5461135BBECA6974D01 +79A4ED967F5E01E5F4D453B55E7CD199A05EDCECA6C082D4AA923DCB710EECC61ABE251CD6B0 +56F1F5764BA16E9EC2ABC1EC656F9989B21B53FC7BDBA81B9AD8A4394982E62572EE2915C016 +0C30666900BCF4E3B53B5365605D70AC1651E706112D9F062A9218B2DBA5C576B236547F6814 +B9B0CE3A1446EADAC59C3F74AFBCDA90EBFEEC0E3BA548AACB796EBCAF5A6162A4CBCE569D62 +2BF843A9C991617C57DC0BADFC6140C0992F04B15A23A7AF887CCA716A7DD80CB07E46560C90 +1BD984EE07E87D29B602AE6A6FFECA39C6A10FED66CEDF7F39576E222758BD1B97CD9831A41F +23F81CFD640945AFC32B334C0E6CC4C75C97B974705FB8B1F8281E3AFD53B86198C4EFB07FC7 +A6C328B5FCB2D842252369D7BC6B060B7E911F17450540B77E3CC1A4D523B66BBC05E8CB66D0 +018B484C7025BC72FCF1E7CF428B0246D7A82E4903A63A91B060D78FCB48CB0DB887A81E25AF +F93F22E938AEEDC36C0CE33CC0306AEE691A6C9EF230EAFCE1DA59D0CF5607DF3E1078BA69BD +CC269C7616D78C9C86ABFE8E4766CAE7C81AFDC202A60D27633F10CD25DDC2D2D7E29B043EC9 +0C22FE44D928CDF5D891DD78F11E1112675C11AAE26F56332EA4B1B30B9136E45789648E040F +C90F25AC67F5D4ABC099CB04269E31AC06B445F7C5CDB3A00B8D00BC5F0C3D63B60458791913 +9340A3239541452FA1040F9E7BA16EAE5C0A6C9F6B488D0D39CD1DD47D90270A7B40EC3DB83A +12019E37AD74D4FECBB759C758FC51F4555FBED8A677C06F63B2F17EA49812D4516D2F688867 +C6256DB907BA5175657ED2557BC4A2131D3F87710849544DA3B053D0B657D4AAEAE7BB08FA33 +720AAB58CE1DA35C765C49F19D7D76157411457F7F72FE958C2716D9BE1C9A3F90470D7012C2 +2213005ED123B31A176B94D61E004D68042D81D34EA07ABAEB52BE37C4D8EE9602EEC6B88E0B +7355E80245EA4B5CE013D050794824234D271B53D3907C09B6B91502CC42EAB7E8FC956799CA +9670AC2B8D813D76ED72A28C14D1EBBB71D5E5144FA66D097EFAACA2DD798358BAB0EF9FA553 +F03771D99D15AC5614A31E29B6CA92A2398556E9A268CA6D7A1090A496215684DA2D1D40CF46 +C242BA506570EC488D6CB925E36ED2914D0D09AEEF8224301DD8FE81A882CF6CF686FCBE1E1E +F44E3DAF3C40AA6A28FF919BC26B073EC30CE89A180821C75650DA504C319179109FEF87599D +2B1C95050DC587B384050C2FAEDEC784C7314DE343423F88154D989305B0E402D17F80A90E65 +508D601EB0D0EDF578857D800EC1BEEA5DEB9131301AA14252BB1C2FF3A4BD2D85867A09B968 +1E6E919BCFC7B5481FE72CAD91A4EBB7B31B746234E09798E0967E42CB4C498F14E202A9265E +336E334AB76581618E54005A3417AB81B0B4D346A806469E6E66BA65BAB8D1777D98E80C2DA8 +4F09CC774AF6203AC37CD280B4762D08A5CB1D2AAC0A76A62DFC90FD2B089927E782A38DDF09 +5E3C0600EEFBD0DBFA23575211A3042F77E47C6592EF49442D9D25BC7C99B46B40A15D3A7B2E +2C53D8C81CBCAB8E38199C3E36D082711554C365D184F468A6012C671CCDD227061941BFEA5D +2E7F281C823CC7973DE92DFD107BFD0AC88538AEEC860EAD04385409D552EB9A9A5688E1A311 +9E86F4323F76D727752DC4CE02E87AB4D163A808D3ECA4C51E272360E9B268CBC2E95637CF9E +5F47BDB740094FB4FF13F303321BBCD15C243D560CFE6742852D6A5051037543151FB5CC8C7C +FC3CDBF58D3AB2ABC5D212BB19EDEA6FFEBD88EBBBC57090EA201622A09C55D76EAE1452F0A8 +1E5B83E5BAD18055E011F006FB319D2BB9C5AE122BE85418E20C8A706D11E3065E69412AFF63 +126E51C4F95AF28CC200C2B5D45313B1A8309A3A57EFD2905228EE3E30AF6BD0C75C1ABDCC08 +5F2878F8CEE3551780E33F7A74BC101024E16B19B58D88225F0DEA02EF317B9AF514D59C2CDD +10FF334E26DEB03273F0A5F95B26E945F44D76BF82A7045C78377060352C8A937A876CFCE1DD +6CE26F4AF1DBBF2EC95E89D4CEEAF538D22D2A4EAF64F1E374DF1A345725CAEEAE9964CEA972 +5A623924BE7821CE3D9341D845EA61526D90B13F73FFE9F133BB335DE26A08239181ED93487B +8045A8D18B321BDC3365CF214DA1FD35637E7A8ECF575E2002B208E1206E4C41AFB564A62846 +4A5A2D8E266A82A9457EBED9582A68D107D1556E73E443AC9BA9BC935E506E78ED453935D83E +39336205680299A03FEF889F303EB7F92777DC20E65A589ABF11597906B06181608A940D2A0C +EF0FDBED238748EC684632C626628C79C620809CB7F4CFFD9FDE58D6A06DDDA0E0AFC443D2E7 +BA980765087C9271FDA74952651926E9781513B1530C4A5461F871B8D85CCD09A67FAE4CD66F +F503A344ED3028B86471B5F94B55699CDCFD5D1733D5A840EABABD0220528CF21A46F949E174 +2510C3912319DE45423E0DDF34D36FA127E60A6F882FEC83F09B5D8F1ABB00CBB83EC17419A7 +A813B2ACFF5D30A0D8643CDBC42AC07F0080E29607AC520CCE5B7B9195985E327A599930CE01 +61832A35D61B24C1AFD3401A9296F4E613DAB01480098ED888AA978EFD3516069C81B1FFE09C +919941810BD92060EB479A464ABA054C049E14659667199F55F9B1E78D1295269EA16A894287 +3FC8C00411F2517F7651B5387D622CD6F462D4C9CF00D4A072EA7B4397EE05451E403E3EBD7E +9930D3FD1BAAAF2CE252403E12D4EB5F563A9E9A9BACFF34B554E159BF40D43FDDA78724B413 +5B83CFDD800802909110D7CF2E712BD4042EC0C50DC3D78EBEC02DE44D727CDE9A3818EF937F +33E5869D1DADE6D383416C3E983247C40F99BA72074549E2C061BE7E6EDAF66BCA5654A257C4 +6818DD2AF1EBA21A43ADF9233B3C63DFB25F441F000B2BAE2A28F91002BA72AA5A040D17F920 +EEC38E340C01283D176E3A72926271935282C4DC0CF26AE3D7AF3C9B83C873E37DBE00F9BA4E +AC43A29400DA3F870378BE10A6853538FE79C6B32ACA4BA6B2E10A218AF99AB4035895408ADC +1158E5AC6E4B764817DA45DDC8F179C55A836CD5FD9656694C532415CFF3DF99A9689E489404 +D07D7A4035512DEA64E87B6B0C575A5D5B0E1D88A2C2D7D3E98D5A21A16007496A3322045E32 +6E3ABEC070ECAFC5D727C45F42F4A410F6124F20C3D5509ED837E5801286A307BF6A0A3525C8 +5AD0CE6E2DDBC6BF52D4376CF0386BA760FCB482D987A477A1DC32D8C7BB91C2DE2816A0959B +49C938A684C08735E617F338CAD005AC16EF1A818D5A540BF0A8312272295196446B1FBD0FBA +C3215B5EA4ECCFC688F837CDACEA019E5650A5D12CEE637592437D9E4981549EC7E9EC150729 +02C67B1795A0D727A405534AE081B2A5E9486D36EC1598BA80157F0D25D6CD211075D651D20D +E24519216C7C4C368EC7D532DE4AF853621003BD9084828FBCA22143EB5832A4BFE7AAFBD346 +F2D31B2E1291CEADE0B631AFDDB29C6D1CF752811ECBF2B32F5B22765688B7A7FFA8CC840786 +1B5451EF2B938FC4CD0FEDB03234F75ADEA022491F93CE40BD210B762679B34409B9208E9245 +97F7E170CF0D98B9211F43C74CDFACDEA0A4D9CED41840DEC7DAB1D3C10637039BE51F47B873 +905478AB6F4D46BBAEB726B2BF8F93A13DE42AF2E6CA8EB274B0893A3772033BB5422203865A +0195470AB3EA69DE75B325A77D88D0C12A90AFCE359CF0F3E767CC611ABD3D73F72C42617417 +C8127BB3A2DD3C1A111E4474FD03A23B4D3676BF3FB4FDA89381EFBDFF114A741C4346520087 +A97CA1233F3F2524307030176FA1363E3500C4B1B8FAB54F9B0F5ABCAB2AA97AB3C0933D3B84 +EEC7C9337E97CB3C5B729ED09F31532355890A2A6D662C6EEC064F271DF07C84D0E809DE0A7F +177C003F3C851DEC6E3009447D4534DC8F3F71942E00A6111FBDC677E1C71A2F8BB360E64FFB +C4C26EB095895F135F8B48D39443EDE35B81806997330B8E614207E38526062352E029ACEF6F +227AA7BE354768BF21D03F7E8EC26372CF71670030A284AA8C294EC94DF356C5B6660A410931 +D6B43A215A5D51149FE45BB2CDAD23F11B3DB6202263DF5B16A84C5BB8B75DBC662884FCE360 +B8400BE9A75BB7CB24A57327FEA3821A31813F09C66E18E491817770E01A5EDB6DE8CE3D5993 +BFED6555BAB5894CAD9399C78B9519F4832D858487B4BB17898F9BBEF1A72614078D30C1412F +54EBA90BB5E1C39DDA0A3963124C62EBB6970203F4904544CBCE72D178B4DDBAFFCAF9856AB2 +5131208F5582B54F8841D8B15E0BFDBDDC16414C50EEBAE46DE35CB0FF48FB512AC60C5B63B2 +D4102979C878C1208CFEF32B5EE434FE04177C1E2DBA6576D2781519621F0937ABE79FF329AD +F391800D5F71D8A2F213F2EFF727C340EBE9FE5B51F6AB7A12CB1EFD988EF33BE49596898545 +7AE55A51E7BF8A931C183EACE627D5F72536B6B9A56DCAECE332DD21ACD090EF89E0D5B63781 +178C316D0F329AA5BA9A03D5E8E914B9E3493622ED267F15551D7956B5A2E5527664D01E8407 +D5E2AA79CC7CF42F0F3831A3C589DD7DC3A6DCF174D092FCB8B593BE6BF1E48A71BB440BC3DC +F84A4D66EF2BFA86D547B4931437393ACEE2C13CF5A4F12775C7F42CEABAD4F9FDBD3ADD7CAD +46D552BCB5B3E339BB7CF27F7FA114EBDABE3931C2559DF948197570AA4DE07AA317A76D5967 +F7A12F1ADE636E3D7E79DDF90442C48DADBA4EEB9DD9EC59BA6C30009E0E018A188D7BC42034 +5FEC793DCB091D79B7C78E1E12D521DDE7F1F482FE097A2BEE96276CEF8CBDE2B74E8782E2BF +8F3E8AADF22CAE53C08357AC868E3D217EEFA3A7F049EACC0F1025163D22A5C38C7667A26754 +B48F6001B499B57A09F023041D3F4EE8AF9FB9473F89F6A8F25E65106C2FC38FA16B5889C8F3 +79F1AD39E7ACC0E4C9C1102CA56B7040DEEF114EC911B36D2A8C66D5160E64DA7A03863E23CA +A837D18F4CC0839DC73430263A611E6E65773407635CB3D60EDDC8978327292EBBAD62309460 +A391F02DBD90845358A00BE398DDA6440745EA7ADF4B89275BB76B695189485ECD84E4FF87FD +160A85EFA756E237F7825B453117AC0D9AC9E495FB628E3634ECA75FE61F877E8E6364CB5D54 +8B93DAE2290400A2056E3410605B182F3C45BFA67B405083400D1E180E37CE74DA6301FFD34B +F2A8231CC06E2768CB2AE7477238FEE26001D8C4A4FFCBC9F4C34DFD0C93EA3F09CF3CA82A2C +295F93F9E98613F9DC5BBFEA7267E20A3C7458892A189F6950883AB7E9FFD3EEDF465F1D795A +1376C907C3E4180B467FF0EBAEB6183C28F14824544E9F5187AA80B90A2CCB0FDA2073C3A8DC +AB5C14D4ABB9B2CF4A3889EACDABC3E3604239F0C9BBD21D14AE8D0253BB49C89A20A155167D +F482CD4E28695B07F469E12C01A87281463A595A3066974EBEACA1DD593C38412E28D6688847 +4384DACE4112C4ECC58C3922C354BD8E54275EF9CF0A99A282084D099E5F5542237326B12492 +E14581CBC71F9DD6A451C51416269ED96821998B6B4CCF5E1E225F3968617F98B8ABD4BB0736 +F771BDB80F0CE60CE1044CA921131CD84B054D21D93DEBFEE173F93F897D8814F0444D102CFF +109429A51271D65CBCFF634640DB0D056DD5EC6D5A7DB00E37F66AB8707E5CC9E0901E6042DB +CDE0038D8E3E32F8FF03758F604AB231EB8C82E670839B27C63A12D8E3B892B34C34501CB15F +3119A8489AADA5E86430A5CCE083ACA0D5F7B4FCABB924163EA676A06599296E460AE9BB080F +8A8C6ABEAC20F0BB797E6DF763B8E892C401CF91CAEF65ABD8824289D4CE9D111D8AD3C57296 +9DB33C10BEE9F13D93DA3B43DCA9BC8D9C5FF121F203F638CF30FDFD82267AC46F887EA3824B +7D12B3F41287AA3481BD773E3C95EFC5AA951631180AFC694C53C60C34B8AA53CD5A086A27EA +42ED477F8A37E052A26B44AF51CB48AD39B7BB62FF1B16F051D5FF8D6330D77BF6B63D9E12A6 +39FF376B8440F98F6D8C68A61FA98222A98095C1BBFC8CC6BB6ECEF2FDA9CD30562C6505747E +A2E5D1324A582FBE6FB5ED12751251DC8C560E1A0A0AAF29A732B783E4C413D9209B7B1C0562 +6EA2E19102F78D93E31B660F33A725CBAD30F9A5F733C4565B344038B50D894208C5E729BA37 +D9FC5EBEC645EEE4402C27FF7A1E69EAFDEDCD9848E2D38CD0BBC2733B51208EDF5FB1B96D99 +8B2E1ECC55AEDD41B9FC3943E62F887F230A9FA7E5345459292C857DD7693E82F449737B5F4C +75497077F320AA9C36AFA72E36EAF5ADD2EA858F73FBC80D12378F4AA26ECD4109EC7516500D +E736FB830573F139722C8B4461D54AEAB9FC02A47B3BBE236FCA273F6527925F63383B2E2F27 +545C14B329F31BCAFF73659AA5F486A43D997647E23CEBE06B4BAA25C180078EA74BB557C31F +4D85C2257470180394A3C739392C9B70196A340EC278859D02519E8A3400FFC54DCE0748A38C +A5B25687CF41FB0CECBF5243487BAC472079B769E2642C290F25F1EDBBA516B2E86A399EEC11 +984CAF21E6C6F799AE218904DA51180E4E80AE15F246B03D06D1817BF0FB34211EC9EE9774C0 +F32BDDC4CB0901893CFB5AC18287280B9E7A9DE903FDF83A0D62FD75E50BEBA206AF5CA1CB7C +B936279AD263819CC6185DAC22943BA684C22712AE3809D7AA9B4D6F4369795257F03DF774EB +F450129349484EA3105EEE9257AC04C63AC58A28CD0FCA766E4EAF042D1E426D6F68DFE42F76 +B010FF9CFAC92B4C43DA45DF2068ADFB8871F8681A16C8A2688E0D0D7CD1CEFFD9F53E0548C6 +3A89640FC7E512A28BF6C7C786DB16DFBBD382DA926ED3A6A825553B360B6949BF1914F40158 +B37590729BD6131FEAACF75D29536CFC775EA8758162328979CD3E46E4E7E9CFD1E41A40F3E6 +C7370967303DCC576347B38A3CC53609ED71175C514DA11E251BC9BBCB4D0701C208BB884CAA +30F518783DE9553AFD6BD1221C2FE5C3BDE4B435014822036C8ED6296AE76BEC4B00390A603D +B50B177F8DE59E89994B7FAC9ABAB633A09D4D8F15D1416F2DAF49F76341FC891C28C94349C4 +412A5DFB84123EADB7D06943A4A8BB731FB2C9B6DB943C9061BB52EBCED33BF502BB42BA177D +2FFFAA8396C2033D27FDEC18E97B1EDBE1ADBC8822E3FC0D93EBA178B81E9A0C2E0C6A1A2108 +0535ABFCB95ED0B2569BB6B998FFDAE266D6F182569A08E6A17AABF1E75B9978F96AA49D9FDD +85AEFAAE39BFF7186DD3E57FC50203EE6EC6F1265CE1248EFF71C4FC871F2243830B990074FB +5E44A47072D26960AD7739AF4F88799EB9D0B6E1BCDFB0E6D15AABB1A2B04E259539565C2840 +93182BEC3987F37CE218FC019231CCD2D72860F931703DB69B947C7CE0610E47CD02A683EA2A +721D6CD2CD7459ADDB4CC54E2CFE5296C7B17CF3AE5433B03C38E07EC69840157EEF1DF91340 +EF3F8AD3E1BBE858814FCD5E802BB138DB3626BAAFB69ABEB343B377B96DD5BDC93FAC7B8CD3 +0E8A392D5069ADAFB7ADA60888B4FEDF876E1C19DCF72A684B37220AE60B805941040AD50AFD +9740758FD5F83A5E1B74BB916526A7CB9A82BC1DBE3DD0D49DFA8CAB479936223D6C2D9A0A41 +573E2685C42B4BD48C11201F35D98FC29DF8F410C6BDC28BE80E4EFB42B0C9A930AB609841FD +9E81484D6CBAB60BA84AF2EA7A6F55D7825343AF2F278B2F33EA43796C3541D17A0CD8E1DB5C +FB4C451D338F3CF9BF431BBBAA5E860577CE011A96CE1239A4E7094053BC4DFD6DFD496C0847 +49E3F900DD5FF0B5D6495358C63E5653BC627969A4B71AF74977B14A4905648D13DD0DBDA939 +2369197BD914FF497217626356094490EEABFF0B1F8691C7E305B14BBF10E66264FD9E4D5795 +A89253B7BFF5CDB20654FAC3B3E0B25832107BBECC4E118A352A38DD66D2F3B86B8891ED4E0A +3B7D43FE2E58D95B107C2E22A596B3B7CC8A889F8050D563109CC3F45E7D6167741A5E1BEEEA +C3AB3D2F569A9C5FE1F1888F04364E219A5390807C08ACECBC1B5ED2054EDECB4C265E0930B9 +EA07D50D21C1CB3816ED462E4244A25B8FE5AF18A9196B59A185D81F6B3EBF0CAFF85B5CCF50 +76DF75B2B75F22604D380FD357FDF4A61540F43BA08041034AD6FFC793F60181CBFF2DB634C9 +465D60D3DFA059C154D01B3281D34A61FBB8F73188BFC524994613BCC3572988393626B047F9 +1AA96D5BE6371EA36F5BFA51DD60D5D5CF62F5B560BF940D627981EE8653C8460D4159149CCF +63EA5E567655D6177AB0D4533CBB333DFAAFD082A04126B5E77150909C073D460B4EC9F28310 +9A6F38C954F8058DE4A5259104E75BBAD841CBB3D08A1E8734FBC00D38D8FA7B26134CFDDA27 +927326684C7AA60D8CE055BADD85005D34713861EDC650E5C491B4195336B8C193E024901966 +FAFF3A8C0BFCA6D5A9FA4D18A05926537B2C432B59017E591455A599D316BF1D0857358FE124 +D54FD5A9FD318B5CED74BEA721F2D6D2CF72311409850714B94C0861F070A81684AFB233AE63 +6F84BBE8AFD5809B5CCD9A584E828AD7177D64F032374CB78AFC6C5933236D30CFA69B194977 +B38C76E966DC905EC29201D32826E6B578EC8587A39DCCC98C0B777D06FD28AE08FDE68DB6A9 +5FA3FF9C23DCF019B4FD1B5253CFAD6245DF2766D2DDBF3E23E1A1881D77010FAC2F7E8F9F8A +C87CA52BA0169A0F5535BECA3B5D18EF7660183E68C226060B519C6FB4F68F37B13CE8F04B8B +8CC5CCDF5E5FF5177E4C8A7F8F77388E01EF27955D264F710C263F2649EA1C62563094DC30E6 +D1D4B0F4160703552967287BC17FFFB71CB101A1852EFAAA88A0B40A6E5308F0A594BAF33BF8 +1B601EBAAD18BD9E44E370C6D27D2563DD3DF8F7457B7D0405D38874291455E643187FA4D0BB +DDDE118E8421973C4DC2FB1B20ED74D0337C2F27B634E730C8528F991A684C722C378C31F3EC +0E72124EAD08D71C5ABE8BCF492F409F848C2646EC9F6B530CA69D34DA456AE6A97362E4D7C7 +9AD73472932C354E2ADCF3F8C87DF44F845C1FC86E9A7BF52A1E02804D581E4350F8FE18A776 +BCB97E637B2FEFA7AF18803270C7F76FE05F5DAA44B8166772FAFA976630D0CA98A1620E1C32 +51498CCB2781270060F5E547CCB14AE8A9472D07827AA6688E31122D269DD06EE18789B6FACF +11A391A561380AF543E957D32095E58C0D8C97825E93B7FA0DAAE5A53C6A7A6E3501E3F7E108 +8998359645F40C60C4457EB18108ECEFEC777DF8566CB2110ADCC2ED34B67D29ECD0A84175CE +7CCE2836C9F6D2B66465F3B8AD6A8F0EBA79F6F3B99FC6712F3E2A762734B5F1DB56AB43D337 +1578B99340496C0E35FFBA44A363C6A583A3A9C2CAF8D86225B8935827ADA893265E9EEC1AF0 +37EF4368802872F82E51011D39A15741E6DA8250EA745A6674C71915D4B7B87A0E43BCBADAB6 +DC8A11019BAD99B0F49952AE5D67C0B1FDD7B8C4EAE29CE754CD3E6AE0FF82024F043B8A1FF3 +C8E784DD09F9946A60AAF416255AD02DFAE7124E5D10C54A4FE0B83F9EA71F8FB4B4DD9FB035 +49B9B3911F81101C877BE0AE8F3E6B9FEB551CCB37EB4153675C9B62CFFB688D65A46254CDB1 +B80CB5ACB730D161683F97DE363C15B804615C38B1154216CED1E36F8703ABB3C445332B82F7 +D6321B01416F7098ED156337D578D057370930CA1E88D99B62936D36D05CCF733C3A6ED94EFB +9AB6C12358FDE5DD2C637896D6D0FD80DD2F045C66B4DE933919ADC8EEEDC64B41EF1A780FF7 +4B4F1130436E9CA759FCF99B22DB2DC5964BEA151336168F724232E7A5E8D5C0C19F133613E9 +F0403BE41A0A86164AEB76D537CCD042D1AAB33235BE8280860702DB9E62CCBB945E3F7E857E +918BC38124248A5EDB2A94024BE940B0C7E8AFCDB8374B9D7128ACD908743C9378043E91BF4A +CC7A65CAC32082C83AADB9398F743C4F20842FCE0AC21E4D2C823641D5A09C6D20C4E36465D3 +37EA22336D1316663C4D2A9C9099821FFD48D4565A157198C1BE3887AC78446A91E08A8145A2 +EC605DFD5FFDF8393D1B990B8140BDA08AB893F1711E099E49B75CD2934875B12CEE0F2E1285 +FF61393CAD2DA732C500B84EBAAD20625FEBC3D52939E11D15C743E283251CEDA63FBD2484FD +2C0E3631A738D70477C76B658F376F8B4493ACCA73F37E5768F7A33721F57F72ACE29AA07ACB +33CDCBB15452BE747BE1F9F73814499EFDC23C60A6D717349087892499146E7B54E15B9EDD98 +0161F38FA63D948DB21487357E5B05DECC6E7B01368793670B341DD720DC6DE08F57C505E9C9 +BF17702F61D8323DEC372FCDD142ACCD608E6D21F780119ABF52818320B0DCE24B307CA5AEE6 +9EA36E4B73BAFBA631619D345B336ADE490C5CA5C3C853AD921747DBF1AA67C4BFC80519B8E6 +3142CB58D92A9C7BCC60B0C2DEE7DA2E80DDBBC4874691A5C9EA41B5AA20674ECD1A4CEE8F19 +97EDE0B9264C85825694EA69D77C618F09C3FDC50A55BC8F4D6CC8CDDEF60B9DFB780CFBC2E9 +74B5A701CDCC0BF126D5C3F9F5556A3F95AE04D88D557D0CCE13E86B3AE1034557F5D8F972F1 +16514603A6068A50D5CCCB4F6E7B5B6B3B6113A41DD14A7CDB4CD401ED373228CC6B86E7636F +2F6205F06A1CA7C62D2452C10B5DB66B1B79DC0A034380DEB5C8356B94AB6D7D26272F42A01E +62362A75B462F2FCB4FBCC53D6840070A5BA3EF3D34303C1B85B3204EDFAB55BEDAC3770D27D +581BF70136247F0F0A6FA1E941833809C2DAA79C9EC014FBD0850379D9765F995B1A6BB4E269 +3DB6BA9EF06E959D75CB1547005BC6C75B2D3FCEB22881C0043F6BE4A4D1CA25B0AEC8142243 +7F51DD7830348622DD6F1D9FDD2FDE4C295151BEAC5D6C351EED10336A1631A17AA3AB4EF414 +742710D3A7B93E6352BD260D6A83424D2CDF85DAFE0ADF58D23F9A639C59618BA3A897BC8E6B +6ECFDD1B1A028CDAA8B90E323C664821CBA37C96E7F9EEE13CC623754821F4D2679D76B2F7E8 +810AC4E06DB0D4A20E3E9CB5FAFE06AB6A57154F4AE5FF706B4E2F9AED55B899CE024930B9E4 +BA460AEFCA21A5066BD64667527BC508C6EE6B38678C864511A26DFBC0652365BBDB819BDEDE +9C9654440CAA6544C3CDFAB4004AFE9708BC073814BDA5FAAF682034E05E403F70572A847CE5 +DCDA6C4643B1F0E669F5AE0646F894143B918AE971627198EC50E61390DC2438AE79DD86885E +B90D0E81E93DE28E2A1E6FCAF37C7E1AE15C5BA7807B3CCAAEC229C86AA5F3261520372921E6 +DD44F156EA9242C80A742C33E6FDC967E755B0C6564F21DF883129BCE213C5FEC831639E62D5 +F19CA001D313B1CFE6144C4BEC7E42AE6A882A080A2FEA2D88F9814B86A746960B66BC2645A7 +795E272BCB744A0821D2424A7C88719BC2BF05CF6BCD0C806CFF0071545F1213E40CE8D0102C +466B9856C597176F312B1E2A75C55D79A82E5FA08E17A067CEF1B435DABB063DB922BA70C690 +4B8A70EA972941BBE166E019DD34020146E518BD2AB9ED9ECFFA37139244B667086C82BE4743 +F80F7E76718AF745B76408CD4F91A611FE86C860CBFDAB06CAB6B98E4984519EE027D270C269 +00A78CF5521C612DA7778366EA83BD381467F0C76564DF7D16BDD36378E74D1C8F6587DA9EF0 +60F3113B7F02C07B85869708A947496E06D792FB0FFCB84943BC3F7BBC1E73AF8F6A7F03E17D +91F5DFAF967C9D4605B26B8D83F1349687A01716B34D9D4C5526DCD762E211906C7F82309822 +1328FEAD201FCEFD162F2DD43AF151E544DA301EA7FFB4CDCD8E4D7AB2907D7F14805F0F208D +BAA293128E45272DB99E8D1D16FC86DD75FA97417017B6E55B05F75B89815B3B3EA8F36416B0 +A58352E03B36BE74254F589FC93BC89B363536EA20103B43FA8BA7048DE455E56E5ABFD689C8 +DFAD3ACCF12CAAC3286F26FBA312E5F63ABBB0B522D1B24F47DC7E38A7BE6E82F92295E5DDCE +45D635D3DC715AB0075B264502DCA21E4F24FB5FE069A5D20DA56736E66D332AE71D7BB9B3B8 +FFB5E7242B9DA4AFE73FD525A62390800E67B407539CBF0D7301C5B6033CA723AA64BBAD0AD4 +77C1D634D66E66C5360FD7D991262ACDD745F8A4198ABB3D913BCE4664F9B74D9C3FDF68D67F +2064FC24F20801C55CC052775E1E8D29965B9B88D4869B5382C4F03F9151FB8B529B17FFF6E1 +6126A032DC4BDAD4A73E32CB0042CF9B18D5D29CC1EBE48C1C072A0BE141B3B57AA68B60FCA2 +E11BE2266B80E7A9F0D71E95E16852FAB3206772FF58D867CB67DE416F350C944FB1C309F4BC +73B9FBA920995B52D66D730A09B17393BE30244989129371D5F152CAD7B2A4A9DD6B0B7AEFF4 +F323BE99ABCB44CAC56144B48C2071E47EC1E1973DB9A94C599C5A3D1D271A122A3E3C9008D5 +4AA7846CF97CA609488C27C29AF0DA8E85FB74AECEC33266F501ACD07C1BEA82D7DD15B5B591 +2C0AF116FC42AFAB4E6A8D042AE22F9A11DB75A26C73A8E9AB736A7A34CCB313353353CD11A0 +0971A9C2D3761F44C2F69314DFE0C97F2E94C66EC7A3FA7F66E903A0C89B0EF64BB36997A34D +42AFE85DE55231EE3E4197B3DD9538840FB83A3CA4C93BFF61CF613732E65E17BDD4EBDBEE63 +AFED0758D2573C71CB93FE0A646538FFACCB7E16728CA4873A30B806BFDE26C0F601B12DAA7C +D54BBBC7534D8FC1855CEE9D083CC6B23D4BEAFAC19B5322F631823C0572E895F88EF01FAE46 +2621BBAEC4DC9209AB7AF266B9DAE2311E3524A0C82B87708DDA0D370F71D5005B48AD9E7811 +E1D6521B1FD8089B400DF012B1413E67DC301987AB3BD84E37DC343B03B810DC9C27117D0322 +B1A2CE2B23899C1635C19AC72BED67747F0AEC442A7D976E1B4FB05F8C44743FE968BB8ED652 +F8B97C54A3EB9B700EA348A6565FB221E0FD5FEFAC717826889A9332D9D0E85D365D3EA786DB +2950978586D632CEA0F0642CDA07725EFBD57C2B6D2E35F911E996B3AF3F25172063554AB718 +A2A98B395BF61F953AAD4838319F51173CB0E614282C9B0B5D4F3E0A44A882370222EB7543D8 +319A7C918A57BB18917DD3D3130E28D734AD24779497B896AB8EE3BC40550DBD4758014464E5 +C486ADB27ECF8CD325984385566069B0B582563F3E38D4DAA021B26ECC5125B9394361CF8586 +6698B03B7B07E0F28B96E343537BFF470364C7349DF1A25BC20C40759358446548DB51AB1E57 +A7BD9F599F2A3481241FBBD77521BD8A51542C70A49BB57755777754BBD5DAC8CE1540946D3E +DC6A11F9B6C3F77A719A1AFA129632AB389FEE1EE3DD1784A5E8E935986915960563EDE365B5 +5039B0B98F70016096225A2ECBCE59BC4B06E97F50696819CBF067C46A55E5A5DADAF65B2703 +9E84F50AF91E16BDC96E95D4A8A2D8FBD531850F51FA3F10D603C13AE0BC2686C37A6C993D69 +1F57F420E6439361AD58DEC653A9F3D5316EA9529806881617C54EBE9501430D3262C83F6FB1 +592B7940564F299E09E48B75AE4D8E885D0FD525D0C0694E7136323B0FFF3BE8595738E3F5D3 +FCC7CD20C4157AD43BFEC85D14001E753ECA1B76A3FA04779CCEF8DF1249AE049E5D62738F41 +8BFC1321CB8ED2500FF20EF3ACCD697BD2171BAF725B98274CE16E9181B08B9F6AF817612EDE +63EE9A000DBD3D6C4DF0AD3140AC9CA3736E678C26D854B724E85AABD9C3B1AE55DA1F9C7461 +1E4F77E9D0EB242AAF39F6945C8FA7728F13711603D1E0E18571D33B0DF2D48FCE718DE4E0A9 +FFC5BE8B72FF30554B031731BF8F90B1B3D21CF38513BB5EE7ED1555F2BF24DD9AC0CD2F5A95 +FC286DAEDF1ACD32EFA045A4EB6AC18E567EFFFF4B4820BFB5DACE61B914F013EA243CDE2DDE +65B9ECD5398C9CC6E40B880AB647105D19DDB00D65B68B8B02C4E8E68D2ABF785DE73A3E3A25 +75320A1B4F24EB4449609BD0FE79F0F3007A0CE8F36B9A7CDAC95A2936DDB7B9C4D4A61DC9F8 +0C27B28318D3AFF01F9D013F5ED45C2740F7D3135503C131FDAA6B529C7D1867E1723BAEE861 +CA2E6EA1C971A7941EECCDB1CCBBEACDC7EAE19AA0D75663AF5C7D9274CA5BE884DDE8424272 +D8082F2DA0D1943300B3C754080E674B0F107E956A538696750D65701825EBB8237B814FB7D9 +2CA577D0DD53C6AA7ECE346BDF4130ADB176D9F6D81F8B0E942A5A5FD819916D651942FDD619 +DF9D9B16804B5FFB7F487E51FBDA96544696250CFE8918781815C9DAD4643DC3F65DFA8EDB44 +4A874048892C602FEDE23335E8F00EA9A0E5FBB1816357C8ACBA7879E00D67B95A14E7052281 +0335D32509941DC22742093DA9BA0A42C1F71D35F6FC786DBBB2C67FE489CC356BE9762032D6 +9AD2926BD165B9C6A43EC30F0DE3D4204C62FD62828CC285DFE4461CD62AB2A7C9D7013AAB3E +313FF8C7D82AA62B6B3FC6FCD4740A7AD72395BCA9CA00BD9C819EDDE48992C218F2F58442B9 +31D6861E72A38F3742456D75F9BEF69FBD7DDDC5108F09AE6FAD6DB5E68D347F9EFF8B77CA9E +757407B5C04EB66D1C961F4FDEEC1AE8A98EA058C2FE29BBDF4132A4DDC928CA3C8C232EAA03 +8983F9D6A8C897D307D0D429368CBA7E452B70B560F540706B3CA82221456C1F896A97B53908 +053E5FFD4E7AA470BB20F8B3E5045AF0510B0BCE923BAA19DBA4C59FB56C824C0B1EEC322618 +259AD02CDB518B1440D85A00D7D8D4576099CA887775730BDA5BAE9EEB4A42DA779C45C20DFE +6CE526BA62A2E6827EBF1AD78D74150A2E88A1DD5BADE7381D95808AF8F0B8CA11AFFF68BDAD +6448E3B12A9B22813446F34484FDBA8D3DA1EE26DE31A199B2978FCEA142E2C3D8FB82286E89 +0BF55B099E93B580FAF90352E5CE80252AC66F50A4C6D1E9CC2B6B5D2CFC3F577A0BBD24D372 +210A1679DAB700699F46BB77CCE24C27E9E76BD65476CA3926D0BAE5B51348ADB3D9C7183B8E +0BB6D529A568743C85527C51F435722A7AD3F6744D99ADC6E45BBAA90FB5D641992E3AD1E130 +72DDB86310CD5F381793DBFB6C8AC137535BF8C362B4D43740DE8A53B3026A9FECC6BDA4A45B +926B9DEC32D2915672CEEC6A65AF29157C7A01CB9B37A6524B058EC8A0BA7B5030880B57CED8 +A4D646F846C99C5720DB52FE9A934FE64625DB32D3A6AD0F4A2C0357D72C45150A2213223C84 +81F09FEA678C6032A418545C72BC8E4A791EB85460B43507BF3854A45737220F2DE46E86F4AB +2DCACC433F98D8D85C3396BB48F03B87A828CE5990340CE3FDEE43478EE9EFD32C5A3903BDC3 +BC3F6F194090662522EFE138A7A4FEF3E6A077C8610BC2409E79AB9276BAD71F616EE2E50BC9 +A1F4F4FC88D86357E312D4BAD0AC6926E5B70C4B622BD3CBC42D321F24CB44836F01F318260C +0E4DB21B9DB87E8A48D133146B592AC972968EFC3778EC1A411DCF24C6515585FC68E5040419 +E46ADE0D1A8CE12E9AA3926FD5F510D975F8B541A932E5E543760D72E2F4A09DD3DD2C5884FB +3A004C82926F020BD76D5E36EA479D81A4F7C2197C6FAE2CB4E328458127F4BEC5FC0F29A954 +66088DF467636738DC896359AC4D7B224E43616B075FA04092F201D0D80FA2000B3ADD4DF702 +D30F5D5BE575D827FECA31CDC29559979850E7961583267FD757048851527BA60D4AF06501C4 +D7262B18748AFF9C130A75CC797D0944B349678CDC60E37A0364B4F45A5055655A150ABB2DD7 +38140DED04E652CD955DEF4591D6AE8D56640477EC4C5DADEEE3956798CB93547BED68CCFEEE +A0D9441F12ABA9C3F0105286D41AE57D8E6EDB0F95B675E0400833EDE3C9BAE709EC4EA82921 +8445E48FEB0AFB368DEDA71F48998FF59BF293603C685101A203AE52F404EF0B12A9138CB100 +00E4B19F4B958FC9C413E5FD262603A63AE9167AA770CD04571E4749076C609D080661B08C8C +605D43BD4A4C6CD9BB5CBDF9205C147B2573CF307D04E63AB65D1BDDF72F2B816D52AF7C2424 +57E4A398D21E9B5811929F002E6179C56415D8D7AE8E876D129CB3EF02B8E8D10B7DDA8C8FA7 +264A973DD80AEAB5E088919DA2FADDBE07B77C1CE53CF2B0C74157CB83B30AF9D2E9E08E88BB +77D098F428E619C8B0EC4527A81CB0867A11109E34CD8D7281E2F8776D036F153E0E570FB7F6 +FEF15831B1C735A34258214D9CC4D87DFBD4921915205FF566C1882070172FF777BB02128016 +CDAB13EF3C71157349998886DE9AE4E7D9EC993163433A376BF9220444B2B21BAE83D531BD54 +857A0436963B97895E81DA0BB973D629FE43A82C5158029DE6661A313C1459A4AFC80F54C369 +99E3CD80CB757AD1A91C767AA9A8DCBD4A9A1F72FF4FBECE2027400F62C2BD45070CA98880C2 +B18BB246C20302E017D8D13B20A3473EB0088B42BC8E40B898D2A033B25D48FD673ADB331E48 +5BF487DFAE4ED64F0FF6F19FBEAE344873B94BF0483D1620297F0C75BAEF5B3B084F5D1A6BDB +174E71D53ABCDA2C242E1D4B5DEE67D1AC7DD0CA49B8AF2A67ABAB932E106054B258B15F7E1F +7F2EDE5E1323DB23B3E84C7EBFE3FF21D6B5A9B085205331788768B178FE952CB8D1577E45EF +32706245EBF26537835AF0806BA6C10A10FFECF692F73C9EFE9DF45EC5FA91E429324DBBE6FA +6F6E8CD3B1A1F8CCF827FF8F3613B1EAC6E499A6DA594C0D58EB626BAFE2023EC5722101819D +B23E5952120E46D11305FBF4658AE81AE0E29EE81FD572E2F0308651237E3AE64D91708ACE42 +738F3260A77959C5C09EB8C48D77BBC54565665D2763D765F0883B8D509E99DC819AE636DA0F +2CC97C981D1FC2E711FF46A79D34C51D6DBBF91F9243B33C1B42F70784070674F6163AB5FCA6 +D009461BC9FA67694866375BCDD7D4A3F32AA5089F94EAC222E6C111F54B7CBF0E44570DB7DE +10BB3A0F8C15B6F2EAE1AFDFC192AE094D3C2F0806680CC0D05622F84CFA52A61ACCC7A45439 +F68DA0B5D92F5E1CE47A765BD3601C65C0013B6E3C692A52A64B37736E9BAF6C465990133A8A +B7F59D3D83867CF35F691231D89FFBE84B152B9F5845133D56B21B815912C894A771711D1076 +61F76A09E80881A08C8936FB8C2F213ED9F3E26D1B631AF76B0E70A6A236B97B57CB2DE62A6B +2BBAC86D04D14DCFD05A1B583262E13B3B61F54B46D1DE5D400000FC0005D3B29CE8FE915435 +A98801722F16061E0C6BE2DACF4C9A95E586D71C04102E2B1529157C1E9012D4E1C283796EB1 +16FD58DB78A5E776B237E04A115710714ECCBBEC6149CFE785FBA569411563B6A6E27CC0DA9C +F3C760AF5D4683A8914D95369B8281833050D5993C76FDDDF41261FF02C4B04A9CC6B617AC1B +1163BFECFCF4100120C9DE9A7690D38122EA9F8E12B00E899C6425730B93AF80F4C75475B3AC +9CE475619E9A0A61722216EF9FEDB581708BA0830CE500465AC278A2F6E9DA3659E9171A9317 +7615E57FE875B67C26D06A35A0122895ADE6A49140307BDB0DA71C3714C0FC218F34C9346521 +BC1D9A6A700AF327120AC07ED9B2294F5052EED16579094EB92274C3E9C155FAE0CE973CE9E1 +D5EC7BC2E55A2D4AAC34895F92D2EB850D85987610B21AB824388218EDF15C37029831FA3729 +035AD228BA9BC1A1A89BA107805E39397F9C6C39E280621C5DE23D284D2FCEE8E4006362BB19 +3DFF997E8295C33925C3251488F8607F62CD5E1B31DBA8B024A05C8C08A494C60BF20C1C6B0B +49AFF964A5D7EEE70372FCC7F64067BE78D35B476403FFAC8F2803764E01D95CA2F09718C804 +26D456FEB6E0A5B8985A5DC0BB0EFFCF2B6D1F9AED5A069F80656B069905DC124CD97A38212A +3936C4F4E10D0C31D7F65607E18A56FDA33739307613DB5C6A23A7ECB2C6963922E41B104F2B +FD66E04C09553BFD0F53AFA4C43495D1990ADDB60D3924A55DC881D2D9A0CECE4C22345AD38C +B3E7FE1D138FB8C7CE8EDBDE5FC343C598976099AD62CA8C8A76EB75D6EBA44F58B5C770DFB6 +609598427E545C02EC89C9FD8053004F3F3AB91F693CE3DE7B01E583D4069357A75D76F37C09 +635A26892232996D5764865E8DFA7175EE6FE95017ACFF302F452CF4DAC840AAE747E22177DE +87008F7CCCDB92B4DBF12F6C352FA520E6866C05BED7950062B05276B4D96103969B9CF09D99 +A8AC9C099EB50BBDF794BCC45E05496CE09A6F403998219565A555FEC536F4D5BBDA517A090D +0B67BFAB57F922FD0C27CE96E1AC02AC7FD7B88B6DE2B40458E319C3BAA49ACE54DF3DD618F6 +310EBD4306E2D9D13CBFE4F9F2DE6C0C39024844016EA07D23124FF232EB70B53F0B4191D325 +7D075B20A31CEAF725C3427074FE96FEB9F6465883008511132D7C46885A07E5AF39C4BA7050 +519E65B4D38780A48AA704786DEBA7B4B330EBE158AF624AD254A1A749456E94C602EFF0A977 +2C870F557EFDDA6EA8A10BE9248B48F5FBC0D8B393D379F5872E223B677B8CE32363578FFEEF +F69C5EDF1F7E91438D973E99768A134407C02B05883DE8FAD81FF6C27709905A5170F25E0A2A +431FA40A6B018F59C10B18D8FE4D46D2C63C4E60A967608532AF681D2DA344A6EF71F60E4026 +103B9AFCD9690504F3D5A350098CC25ECA8E12E92E22A70692614C33C588850A185E079875B0 +23BBD0F05261BA6361EE012EECE6D2E6F7BCB18060AB11338759959AE4743DAD5706A885B611 +744B36A85783822B11D724571D10E4016B3C3C136E189CBA8580563D9E5E569AAF11EBC0CFE9 +416DDC0D2A29D8B08BA1CAF0880C095CCDACB2CA4D7674E578ACC90D834BFBA7EB5C4C8A40AB +A549CA42AF6180A5292E9850B1E071372B6B6297D850E03E5FF8AC2D91642D390D82B001D730 +0E3EE7A86640CEF91A8D99EB93DB3F5909D032C4E96971E635BB7C91E90D83E592EAB38DFB58 +F1AD02BE7721D6BD8385E33064B2B22D4A8DBAD7BFEF45014EE987DEDD0CD66F4FC2787802B0 +1C975DE69FD86A1B22C2B8786128691703D15F2FC1E2B6DE0C8FE861C3B9182E43F66BDBD0F2 +41C8913B689AF91BE5FB7109D9E29B05BFE1A5E5BAD52606E85D0A955EF5B15A5BC34D645B7C +B2A403B12986FE7C3C1DD42449DAE23846A62B0658AD2138677922D75C0BEEDCCCBC3E0CB7B5 +52FFB89F1126548D55EAF1B66DB7452BE40DF63CD57A22FD8A6EB38EFD4546922F9355021893 +FB4144E2511935E70B7E5AF27B5E1749A1960E52E64E369B282D56DB767AD7C16232D05E0596 +A046C2F4445A28E07AA168291C01D1F0549C6CF0FC5D88A218AC9CE92F33C70E3652FE323D0F +88B3A80707721B2B54DD4191AA609C54C91B2344AFB0255A91FF86BB6D9F4AC84B96DABE42B2 +489F2271BCC0B4791C8297CC690C5C68B8F8C3D95331500A66E66A3E4600A10E97246B70DEDC +0663C9C67C4918FF523AE4911B793C0F26AAFD5A26C5998A97DB03D54DD837C089B58904C39C +71F4FE95CB1F8AA78894575AC14C8D10C2840F56F2C7928510E7D49F09C0875B2AFD91E07F96 +70FFD34A14D9AE40193EB68206CDBD2E31894EF7600482F202CB19E77C6D330F8D16F3CC9B10 +94006D096D482C0436C8BBCA4BEF08808012FD4920FF8836185659864368589AC9E94C9B9F6E +561731B93C0838EA90B14FB4261561CFF897E42523062911383F9188887951C53E96C810478E +29C223A19F66940804D41E01B4E7EF1AC847B51D580706B9D7D2B813D4D0DE97D7EE997577AB +151C6CF638019FA597B64A9992580AF7A16CE6BA589017D1BB86B43B0ECD592F61E794ED14AE +7675CE054D9519C70A80A9B3199BCB038DDC4DADDB53D84576822DA07B00CFED311EF0DC82B1 +D7511BFDFC4779F91B3DA36D4F585B395C154059A2725613A03F7FA733F7153E4885B27DAED3 +847EFC84F5F49568CB9A58BB21C8E73FC9A2A6DB58EF10E7EDDF0AC9B28F0C452136238125CB +C3B798B0F1259BEFC7AEAE5B3A43FADF533BB5B708B4A54EBE510BB6F49313264D81124E701D +8015B8187CA6C46B9BCB3B0894777E12F77989AB72769A040A0C943DD014024BDF579B4B5F1F +EA1CD54195D526EE609643ACE049319A7AFCFCEEF372011B49D2449355B9486F8C44849149DE +B6E8FDEC097443165CB754B387BA951A3DC565F94383C8177CA3BFDB0BCD398EC2B5F1C534D2 +C48AB6BA61F23676DD7B470A0C8E8CA77EE7C39296F5FC7DEFAAC9759C04C6FC4FB87EE1E607 +06882D2348E3069139B41423F695F83145BFD5203562BFC3D05D24DCB51F8BC14CAF104D8990 +1A51CD4CE65F9DC6AFFF54B81DF6DDC0FC7034B199D92DB32A9736615BB727C043A2DE9B2838 +DBDEA294CBE4B558F8A189E30F5B055F0CCF2D9EE461C6F07AB6AF85B878B1935FBA429B443C +4D4B967F26B747F7A1086811FEB6ED5407B80ADE7BE5D3F77F00B27409D627FB00B7733AA1FC +7B0FEF5FEB7548E7D829FA56DC4EC38DB398E0F490B661B3583D13B57CBED4A36F0D6094398B +9F2E795A003B98533D3797485D294E5AE139CFA3C2AC3A46DAD7BAC762807FAE98D81EF9A408 +354E52E30B9DEEA8716CC6434DC852824B36B479035456839B1E7F31E6D9E14164325589ADE9 +6A629BD38F692790C7F360DE1758419AAA309E7E1CD97ACD8830D09A23384FC3184ECE9F1B0D +670FC7CAC734F84E2E13982B9FC96AB1E1500E3E5FBA0C9BB691689138A57A8669DFF340F8B4 +88CD9232A9BCED68B568DBD5604CBE576C3B85945EFA0950B1CCBCA38DE5F60C6938AB8FD48B +C0F31D5EC69E91C9C297C18C7028C1D5480780DA896D4757E67074DD421CDC875A0943774B73 +E72B409C6E597D561D17F109FFD2F15A75057A52EDCD4036BF79CB480785EF8DED48BA747FF0 +8494A9095B1403A6236FCBCB2EAB4A562A2AE5D18BE4C8B439005AE9C8508D18CD7C4C021715 +A78CDC33D2E0CB490674B48AA723FD53A8D9D52B2D410EF0B8E0564B33E51547D03732B98814 +580AF4A2FFA21648F3E80D344B5FBCF881AF31CF08FA4C78D5FA9CF7EF6B2A7CB27E7C2091B3 +BBF544A28CF54D7B80C3734D8129358E7D727E3E7C6415D4A3027DED06DBF8D25BCC638451C8 +CD2533B51A974066B16954D701710DD121DCD5C3E23313F8F55E0D278D7BE11A66700D30C111 +037EB13CD00AFBCCDF3112E3178804D8450784EF2314086080980836228F5EA30D5E5833E28A +948BEC11AE423B4D6C4EFA2B376A9177ECE133A85EB57BF2E2EC183158D9C2D70103E7694909 +E0D465BAB98EE8BEB4042244919E4F6A7B575D397FE3984347F0500B167B4911978D1230EC22 +AC03DFBC9316080B309FDA31F34EF3D0423B07957A72A2E255E306EC3B3D628A366C6F10D0C7 +8A18804B9ED697607E3DB1DD6F3C39627FC30FBF62BFC04373824696C5194A3D735EB6CC2CDD +FB427BF1E77C891277AF960E70B9CD8B79C6DF15F2217AE881C320371CBC68CE6D0742D70BAF +CCD6D72632CE3D0ED26DA6645613059A88E707BA64B41CAE8F959973F7D4934CDF36C0EEC2D3 +0EAB74D0CCA12583201AA12DE9B27BF059984005E410786A131B165EA2FB09E96B495DCE7C91 +6FD8BE07123B6264AE41B6FF44225684B50F39CD0BE72C7C9DF945791DE9D64B53E5AFBD70C8 +35F9EC4418421534362A6D43857B651B45C009EC06604150A7587A0B058F1E8BF0A5FF1B41D6 +C3B7210D3219B3C001C7064A7ECFC940FAD290486816ADADFB3E992D2DEC4FCC3B65C7148155 +A0674C1F6D8D1B6DB30D67401B5C25E5C0ECAFF8C7132D0255B5D58DD96E8C619F6E2A7E6C87 +21BD60904F41AB8A1E802380150D8D470A84C3BF1DDC92B11BEEF01FE5D547357B856861ADAA +D8DD81CE7A03A1AB5F6A1E9BCE448B186153A376198EB6A6DCA45D3FE074A90D6FE5B42449E7 +3A02AC5E7B38C720EA43646E8502128B76A9216F1484380CD40CDC1541002EE9DE99A24A0093 +2498CE9190ADA5DFC70F3E31CE1310AA0E7A63A3C11D1796C50258E75E0B94CB05A49359EDA9 +21A4E12A6A3F801105A77651F118539136B38824C542EFA9C47ADCAA6BA8839C41F1A7EC1457 +A0E367D7559F656D37353A8AFFC427840474C2E9A2A3891B656CC5330C51DA3B9E316CBD96AA +020C9307B8476B218EEFA3AD404292C28E635A0D86012EAEC5BA7A84D8E733E7F42AFE31C7F3 +E91F91BEC1163F92CCB7A9BAA30C700FEBB2F265BB9E6DCFD42CAA36F4B99DF5AA650C2474E6 +EECF00C584A3C6A182563FA829F441205C8ACF53F8460D8DCA81D7DAD8CBA83F0FB75AA188E1 +89492C2CFB2C521B52F86512D47D40392CA4869832C254D5C4518E0B323789CF51D96C2DD808 +326C7EEF19427A925B40A5CE2730B239C0C3CF8D2878EA50F120AE0B7A8CD4B1C9D8FAF8628F +4992624C157A255F35A1663D0CE06AD38E4B11819F5E258F5DE09588E0831B0ACD4B6274CBB6 +585126F5302B4E568090C4FA6342682474E1AA6DD85642C66A04F0B057ADDCF1D46F960CDD59 +685756763C2786FBF465849841854194A3AB88A6B14ED26DC53D22EA8B92DC580692C3848A2D +22213F5D286855058343943C663F19AAD6A5F139E9443E015A7CC6AB71D569635A319BFFF835 +CA9B72BD5C8F90C254AD98B277A33DD77B0550797FAB37EA0974FC63A9C18CBA1509804E89B5 +C8F1E50106C765C93514C492C91B105605CF7A49D46500310F10622CD9C068120CDFDBD2935E +0C190CF26404714A62A9D33F143781BCD1E7F64B99988FD3F09A6AE2BDA166FE05490C8D620B +A7826036B8184378838090DE5604DE48B708379A9ED26C39E53B59DF689B91C1F8D184B4C168 +EF37FAD8A144054650E035D2C26787F369DD8CFCF6CC1D2CEB3183024768B524365778FE6AA1 +0ED72511761F8140B11ED569A36DC5B55A040C2803847BE55761CDADD0BFD227AB51CFE11309 +D3D41B75453F38229C4E011BDEC1B4408AEC5F4F29F4F5218651F83C3610125C68C6E95FAD39 +2027BDA90B78BCC09C8D0B6477E753A0B5D88A6CFCD86E2036648C2E146BF0823EAD7C780B7A +E01CDB4B4F64F646725860CE57C7741A98F81E3B7E614C15A04B26440FCEFA605388927C2BA7 +8FAFDAB30D7A2B849F8093B8EB1916F10A1422E72A76924F999BDDE29A7D4F67155046508995 +89F134FB86B97705E70EB7DCEE54CD5767B73596C643CEAC575272F3BFBB1457700A23B29EE2 +48424339334712419F418E02936158427D34E4DB691153DB2B99D27A043443ECD7360455E0E4 +38F98D58FAEF92D24209E19D2C8F4B5EDBAF08159B69BB41975A5154EDF54EC7BA9FDC6E1E86 +ABB31CE68D27F99368A9F72CE4D4FE2CB8C603C8683A15B591ADCBC931D36DA70916936458B5 +24154B3CABD02411EB7E9B81B6FD9024C75860CB44A02B8611FA623556CBE4ECACC1C466FA3F +9E511406DA816600AA4C02EB94BB999B73A0DCB6EC89406794ABC37E29D983BBE7A6AE48C913 +8BAB3F4BACBA06A1D3DC9508D26EFA0FC7932A38FF991619D9D4FB0464610041BCB7B66B5DB0 +C2AC15E980C17D87FB7239C3B8BD586CA44D125456BA17D87CFA4EC799B5D161FEA0309F61D5 +C51FA0B7169432AEC362BDB0B158A60B4B7BE5513B2438E6EE89AFCA620CEE8B2E68BE2B2D0B +65A3508683294E28B114E6C27AB1BDCF76AD0A3B2A8781C2D7283F11AB3CA17DAB03C5E75414 +DFAD1DA1D9F16D3D28FB783FB4DBCA823F3CF15FBAAF2F5B69683D5545AF3ACBC50FCE5E9E71 +CAAF5A17D59E35C0368D369F3DD25978D9763173E75F27CFD3F5FC074CD3EC3EED8E4B8C430A +7040E04D276B89AA2008C15D078DE4841FFAC5754B478114000E1F9E96B1564E6FEB1FD7855C +6A51F778B4BD044F33BA6B9A492FC9172D810E408178B3F6A91D009EA78609B7207B465240AB +474FD84DBC15CD202FEB6F4A5F3AE9C45720CA21CD0F81395C5F8EA9BFA39688BB222A81AFD4 +43D50898EF2213ACE51A23F802B016D3A9286186B71425D1920AC92C859963ED32D04DAECFAF +C9EE138A26F989AE8F6DE3B790D5BEB715169B52824F6C83CA43280B681F3357E8390A7815ED +63AC0BC505D94D10515089655753FB91FE221D4DBF216A43ED71F390F08B3A58962E219B075E +630C3156D2D187DFD49AE508670107A1E9B3165EE4EDC882154C3625B9EEE1DE0883BBC5D8DC +2A7E1DFCDD347E0EEC3B46B2150DE67F61BE54EC04C2D4F25E66D5159ADB783C3CE51E7353E7 +958626CCB5E29AF6BC546A68515F3C30DA79F0E2ED493D7CCDE675557DB696BDC0D6F19D5F57 +3E54862DCC9ED6E61142CD0F746695CF73F9447D5CCDA7E52038FEFC67DAF3A6D852D3B05449 +C61630615A88CA92A73177F6CF7B837309ADABEEE3D569BBD40D95EAA15F2C293B367DD5454B +7FDADD4829E27C16A66F9506F667EC98C6DBA1DCAD8D28D02054767415F6A0A8B3727AFBADD5 +D1D7F6945E76A448299CFF82F52D533C8D82D49E3EDA5F4A46FFE58C5A853D9128A30297233E +26E2853118832FE5F85323BA553DB4FC96FC35EC1B1F3596EDEB811FDA9FFFDC11498D15F4C1 +E6CE4B979AE06607578866B63B42D8D1417302106051683C124E19BB491EE8357AE52AF76A1F +95B20C29564BEFACE6D46BEC2970A8CD2F910AAF75E1DF7811ED4EC50583FF8F699232926BBC +F3626F202607BF41C3EE16123BF1C1DF5B979886C2E2E8D9F28EBC2B328CC835C19F229E6B7D +686DD098BF2430D68C0120674C9964B0E859F99656CC242149FACB10D8A0991D46819009BB11 +95B99552D07949BAF2CFDDF8ACB7E42922CDD37CACA1999AFB4F065078E919E015BD66C1D775 +18EA454B529867F2AB90EB5A3E0D9F64D8030F6AA110EFF664FC6E5B59930BEE02F24B348405 +1261DEEB7D37FBE433D816D48F976BA9223D667CFFD8D5C89AD1462EBC1D3C330EAE52C8152E +335B9B257B74682269C5E6E9A8F9819CDF94FD235FA60A6368658C0C67A3578589A939A0B92B +238EE837D62CAC4B53D20DF16A9B92CD5050B7008B1B031ACBBCB7868BB61E240573FF1449A2 +761271E7B5285A14F56FA42ECA9787F26EF8E2793D9F2A6901C648DDFB9DF67C1FAD3F1B5EEB +7F2C73F4839539627AFC8B8C592AD3EBE317E357A5C83F909C4CDBAA7A5188A205F9BCE94280 +E11E0CA78FF634B8BCD69CA9C639648BD4CC38D516C85A554F7FFD5C1A78DD75BC28971A3572 +CDFF0303C5C2E628FA54222D3F56DD9176A3F0A434650807BD81A2805FD3647EF4B59D2CA97B +34D96CABC2B79BD39827A50ED89CE6919F44173B600961602CF335F7E52E0FF37EB353AB9C53 +B210B0A92F4051B512D77B6E69D73264ED1B399C92EF215FC771884907D476D0DFA1FB924DF6 +DE16177E182722A943271C9FC80E848EA168189188B478C9289B37C3ADB960F61F3A8BBC2A2B +F6776C711330DC2F5485DDE4B9D40F634D8D106B365BE229AC7559925D863E49C58794AD4B7E +14FF038714E16E0214CE0413ADB392D4D3ACFDF7115ECCF27C1EE100E2A59A5A08601E3D091A +526511EFEF8731FA9A31F2918BCF7D7A2D3454D090364258FBF7D947A05CCFE84D6EF721A392 +52BD2179FD32EF4B88E6B855280D14CA4F3AF7CD7D03C67E5C90513D97CEC4152FF830F8BCBE +6A902A96121BFBC38A606EEA49821113A21DC28082BAE270949817C228F57243880161AC2B4F +0538B99BD4ABD245E8EC2062EB3A766F57BFF8BB7FBC43D68A2EF5CEB6423FC9C6CA67831748 +401EC506A5395D10EDFBCF67CA51F12947D48064A5578A11031B79DB599768C417223E36453E +1EEC14D1A5E01ECF91F92CE33D610535EBA8E8FD64F61DC1C5EC1FE52329EE2352E14602EA1C +10EE3E7314A96B745FC2084F28511C65B874EBE0E8F19A0EE5154C6FFD01384242DFA3B1458E +A90D6875051CFE72CCDA82035973972E8AFF1D6C17B375F4788491991F0AF5C2EABB7818D2E3 +D9302913DB34E9E671CEE403AE0B6697998B83F50F132F423B2716299B3B509231960DAB656F +98F6FC045882E81730DC444287BD1B1B0BA4308AB9D5818DF12AE4A31618EE4684D1211290C0 +FFC2C3154DFFD280060E3B09839EAFA4B9F8D4FF1C45816B9AC1146BC2D6EFEA59317BE0BA9B +2B6C4E56E8DDAEF49C98A53949E5CD63585A1DD0D497719BC323229481BFEBD819847B08DAF2 +DB7652B33D15857A8D832D0844B1D55E8CB5F250329AA92ADC484890382EB77497BF8E8843F5 +D349C100215D74B899165789737118CBCE5536957A0729DBA4E1425FCA2B6C57E5B716037460 +72C9E2173C540B4844A95CC09E77408CB31432928DE4D7E535FCC58906D0215129B31E37C724 +F2588B51A642E3954E0ED4BA89F1A26BE138D360EE19DF0EBFBE94AF21527F96BB0B859C837D +FE54A5F62572C7777BD59DBE7DF1484FF30A6016DC673377DD64DF72F99EA0AEC9709E21F911 +CB76361FFA0EBFCDCECF6323F6F1F5F32846D6DDFE87EFBF7E9524D1749264BD792F9A4447DE +3EF0BD70A2CF5947183B797CA67BA1F2CB4098179B636AC63291F95974FFC9D9A0ADEA305C8A +4F603390828389F0AFDCAD5B7EC51FD9885E4E81138456068D2417FC52FB6E845035E0F59C9A +D04E7471CD8B0A674F790D5F0A8AD2741E4A4C778E311539D08492AD03BABA27616044BF8C25 +B0270CDA37948982805DFE7EF9A9D9A604B7ADEF559A37786872DD642217FBB9D103E5A40BAB +2CA8B4F445ABA973E598B8EFFFCB29E1DF2FCA560A0A34998B7EDD72AE90EA4AE7BA338868A3 +94DE1B9E5FA06490123ADFAB332D5A94DDDCA79B60F842038C10A34FD7DD94192E5AB40D1DBF +F6248483DB1EB548126EB2248022631FEA52FA5962A404CBD3B7E8F87B8CA34BA34EDA78C2C2 +87675D73158FF098E8BD0F19A73FE4C99447A359F7C213EB28A4FA8602A55C75F584AEDB192F +38C1313E9B725882761EDC85C898EE48C642129A027B78CD06D1A7739AD4516D112A47536ED8 +C92185269AD4623EB9DF4E709089C7AB958804803A5143773BABBF1503D6AF3B246055CFE846 +77942FAAB4C6DF4E0A8099C89A1EAA0795D420C95456A3914DCAC80B2A2EE27C792247F066ED +F65325FBD4B2A82CFAB80A411CF1E2E16C66CA26EA8970DCA4F38DAC85EB0B2425068BE9A279 +450B5BE475DEC61065D69A58743479E14680DC750AD200DEE277EC79413A2C1F7CE23A46A027 +B0BAA624749E1DE7FA6FFDD4C4213972349C8BFC1CB6125412A6672C02BC6EDECE55A961D9CE +0C83E3F249AD409BECF3A90549D901A2E37E4651AF169DE78EF396286AD9AC3F56187C039BCF +1DDAE5C0AA08FBCE8B34DDFC8785D5870A846EEE33AA82D01B40E932F07E082A347B04B37F5E +2E2CD1BE46F1835E62DFBCEADBE627F18CC0E46E8B488DB9C9C4E597D6C91A5DF0AD1F1B6E72 +E7289A66252D58FCAD0361AD9D06A95D103528A79957F0CEEF0C60CFB9F48E5733CE1757352C +98B41D28974481A6F16B37444B65FCFC9DDAAADEBF359BEB8694410DD103C23AE1D012A58704 +41677828EDCED461E891E5A0BAF35231555B70B28854F94FBB362C191858E5F61452C5ECC782 +0A07C62E2A1EED7C4D0B6453670B7732E7A550284A2751B8BDF1E81F9F4B0AE91758E381CF2E +D8D90E26ADC3D1F64264C6C6FD1675A8E51AF360871F21C189C9E9C3BBD1EF03D40A7A8C3AFD +0F2590682FC34438B01FBA0718B72828680284B5591A0BB88043EEF8FF33139EFEF9342218EF +6E2D415B1AA7327D078FD392A8F6702921F77A0C5EECAA46D863E3E2FA2106F299A58E48D36D +325BD229AC40DB25AD9302B2940768EFADCF493A8A0F9EDEBB178AB7210155E75796255AE185 +F20581FA7F653131DA3FFACE3365D9AE2A65811A3CD8B0F25B0FBF27B8A481EB30B3F7DA7EFC +0B8F6083C9B5F1C99AEC62848D06066CED1E8DCD8AC13FF293921D96099D8E27196F11E5427E +ADDB566CC697B66F3035E295DFDE0929318C45CD99221BF7521630C5B86475887186B3215C27 +167C347041F3F3F4696D0760BB61B7B5BFE5AECBC22AFD97A53B0A576EADD0051E803F6D3B71 +89793D359DCB18C6FFBC9FDAF24059FBB3B98786F82C1F25E7A89890BC1D32360ECFB378D1BD +D30742F7CEF90C568C6AC55691EB66E437DF0012A6E448B7BAFEB0F8646B6330088EAB2577F2 +5849446AA7BE23C438E7C6DBF7F3C01606F054BA2DDE742C44864B9DD827AB3114C1496816F5 +0FD37D9B9AEF1418EF44E7AF26F1E7EE66F4F9C0D4297A68C4D0FE3BEA4816F9D1FED363BF08 +779C31194CC6E43CBC93A24FFC973928782826982E2EE69633E948396D4C18A224726B7F060C +11B251870E047CA409DA46AA6B54BAD3ABB19507D5851608DDE73F16D7ECE480EDF991592EF5 +057998DA0D8879CD08DBB52AEB2D5B2272685CC5103920D868D54FBF37AF9AB039E879B8848B +9B5DB12F70B56108F312C77B51D61E7A60E58DF12AC8FE6C9E3BD8E97E700B4127B6F7F75E64 +872B4EA60641D3B889C6E75368DC12F346793830D2D6B6631AD83691BA84DCA7B010DBC81B87 +241F0483D5285DF448C6C2A4C8322A8F42EEE43A1ED59DE042CDBA8233F3FF18B2523E31E44C +A87C4E5FB79BBD7D6666D737CB3B0EFA10D1F1652674E24838BF99B0D654020A3DE4F69F6668 +9760D851EE7F0F17655A7ABBE6C3A57EEE23AEF62829AF8BC9C61D67B401D91F38E5D5906A30 +FF3FCF82728941963518732C0F1E12BDFE656DACD2149183BCCBBFC630E9C0A6D21FCEB551BA +9C3E651FB1211158734DD36EA9EFA6837EC8AE4D332BFB36BDCB71D37CCA1A6BECAB601CBAFB +C754721764759E3B07E478860F7449EECECB6308FC93F52E497A7DBD5191BB3756BFD0E7C59E +9216E9FA72F40EAA78B2347E4A133A1100EA807B788590F6F52CFD2096C33E600E67B8FE7908 +51B1D577176B41090040A49E131404F3CBD322DDDDC4985B2049177FD4F98F3B297E5F08C4F5 +A36E17AB1900D4744E39B9D1FC8A84673EA106CA4FB9A1FA482E9E78645C4DE785DE5FC17B87 +0914E82F3A90F112074A056A9D5C638BCDE995C6D6FEB32A24EAB04B7A03EFA1BDFF0C2C8D69 +04F9D22EB4C76DF83665DA1C07C6814E363F9EDD83AB0FB6A57A8D3546BBA181DE68D39F2862 +C1A4DD67AAD0D31866A652F178C329A30834C87D19B8F2A7DC10ED02573CF15129533BF7829D +C5BAE9B19BFBDFE9813ED78FE9B7AEB27E5D7CF408578B61D9C545CFD4D996B18183164C5299 +7064C2CCE2740AC5E604088DD4F7CDCFD178D25FD38F1144E158078DB691FAA27D368B48A61A +3B5D628974CA505D859D41BDBCC2D40B28BBA6FF40332AE88EFB9666784C1391B1E8172C9376 +8BF36A069C37632D362C37E700ABC19BC41E33A1F66F931F9A8C0DE2DF233A8BB1EB300218C3 +536612BDC142FBAE52CCE9B456939308F30AAD4FD24AA60C1331DC1988408BB1092AECBD82F4 +5F3984B0D2BAF91BCDD3B25234B11F2A8E7871F0460C983E6B2ECD098B3488A2782CC2B1D8CB +A059CF2EEDE6CC82C15A8FCBDF2A88C52082426548E8363BCEF01B3DCA2A55A9BB6E785E3725 +1468159CD601FA67A977A245BA9F9B645C58873EEB03B20C43BC7D47CC2647F4D90D58EBD6D3 +192F349EB8C0891AAF352F52F75B68FE6E3AC5E14A25BF9820534E8DD94539C69CB501239B80 +87F4BBC52DC1BB3AF39550471E65D1907EF416316B13ED8499F0CDE8AB8E12EBE71F1D12BC25 +2AC66A4C5475D6E16880107F196FEC9E008F0B97498E06819BF64CD2A28D8CB034F525997E45 +EA82F25EEACBF4FB40D701CBBB20394BB12E5156DF6053BEA6F92A6C828244E6FE909110A9EB +1A56637783CAE12C29C6BFA7AE03C599C96EE9C2E2283049379BB09A9740013734F69D53F624 +9EAFC7D4A9761CC2F083EB471ED8C92053A9855C3628CEF5C871DDCB3F5F5A28AB6B3183DCB4 +D539D5EB043743DE628EC9B1CAFDC8942A54BF81FFFC3A1E2D7FAB2C7BBAC771D2B554C947E4 +12DE48244B9749BD59F9A694702703938679311906378BA2FB534D6E92B4EEF296709E0830C8 +35F7F6EB912F6CAA66C71BA9C1D5AF3EE3E4F3AD87FECB4CB8EE0FB2EEA8E6489C9ABBB26D2D +5D0E9609FEDE622CA57E21F3AB7EE46972F94B4FEB6C5A47FEB19FE995BC3578880F225107CA +224BB765CD0A397541A25ADA016CB9445005F12A0D15463867A7D3A4F1C9347307D50A85CC85 +5B9B0E6CCE8A84AB0F3465A01594F9F8746A07D9A54C7F37D97D22AF719128A3451D0F590675 +ED4BF59A5470B2DC674C740F1DE15BB3DFE2657606A98BA86AC92EF9F0586974528821AE57F9 +65FBE57E238E5A0896DE594935D75659BE9ACC8DF2DBB317B1CDC88078679B8131638A29BB39 +DD91C1DD1B22DCE5335C7AC44DA762DCB07CF6B8E8C60DF812D8CF9F07F4981E79A5B6B14CA7 +F402178495E31D0DA40B026D1175F0C023FCD30D409E705322479F68D9DA883CA5BC60AEA820 +4A166BED2093C73E8DCF1DE0BB5A811823212556673BEDD0AA4DA9445DB40729496E6315EE48 +6DA70900574FC341C36CF82DBF3AD8736986745BFAEC9CE9FE9F78D4A22328C02DAE418B3F03 +AE956E9BBCAD2750F996C10A8BDE3C20C04BBAA0F4DC782A4E51D93BEC8878ADFD6AD6F1C906 +53C938D62006012045265CC682781766591FE71B645B5B29DEBA407449573417AD77C899FE86 +E5B74F4B9E917441891DAE48167A30571795B584969FE6861B83C49B3563895817097EC43486 +96BDA102272DEAB512B5A5BD09F0143B8271F9595DF064225F241CECC4E8C6C0554D720B6266 +4440A1DFF2BE8879C710C48D75E9B14DC4B1058F06CF514B2C7990C81AE7474634AB330C2C7E +E35D0D1CF317E13DE06CCBE706ED3F5E1479C3146D047A3A719AB8240C2FBA04FD2420A635F4 +0D6BB22ED55C6F43A7616D7561954477F484E5CF75E9DC90CD3FD07D4D917984FFDE43B95108 +7F1A94210A1ADEAC955E80D30A98393F42E7E94C99DFF7EE07BF7C92F62FBC098BB8F6874DDF +80CC38EBED99F5F64D2B967080CE6CC6829F2A3CEE28E3E47F6A87DC7826D5862C618DF8754B +D1FF6139CC1C3DAD575E04A332A41411E24D19301047E9A6D5B5EC65C8D63DFC323D8B44F979 +52CD9FE9FF7E828166AE1CA3829EACA58E3C1B2C43CE568E3E0C57C9ED05AD3D1E54E32D9E75 +81D407EB2DC29D5E72F1167BB87C8F46047DB1C0BCDBBAFE2B52A168D79A95D6E2C48FD0EF9D +E0AE1E34A1C295BFC336C42E95016C5BE41228690B167E751E76BA1504E0C5181E7A29DCF4D0 +54B8E0A7E8141F4B17F7756A506380CE00F9C73F31E2BF296C74ED375CDFB5317BDAA17BEF52 +4A7E0ABEDF705C92B665017B2623B082F4BD2E194F5CE94CDB2A2772AD0580BC14CA70AE63A8 +BDCEC1069F24DB0963FD6D0312A873407497D58D5351BB778CE6123502C5140929B1902F33D0 +61F6270384195F60847B065EFFA3008181595F52E0D4A827704B2E378F2C2E447CAE54595CF5 +3EADB388A47E18E241D85016E9E68CAC87EDE0366857CCABDE10FF78405FAE23A0BDA41DBCA9 +68817F6E175FCD441F6C52C711AD58D67D34102A25E12F043650BA339CF0580A6FD2F0BB8AE8 +1FD0E623CF87337926A4956DFB4B766D6DA606AFCF210A8DB955937701C0B971B7429E0ED75F +628E28DD052A3D221DA00A4E591F4A77AF08CF96918883D4AE867A7503C7E68177F3DEFF7EF2 +3F86781FBC5F8A9BEF28A11624B28DD3E840ADA704AE19CCC47751FFB6A51CD554FF66292D0A +B2DC3D90B9CBAF3CCC70C2B47FB7CBEE8CD82313CC611F427FB16BFFBB5BB2D52BD65AB97A28 +75EA98943794620128D14A29EB11EB6D2050CDFE8EB349879B3F3E907E43DA92E8A91147C881 +D18342835CA6DD096DC948FC2E1DA214A8925E9D7A22A00AAE554FF07B061AC68895F835FD9E +D15C05BCE07CFCADBDAF286A005CC75E182CB262161267A633346BF725A9A0A04B8EF94C217F +32C1D32369484B1011EA7C2B330B110B64727D0CAC6C64F94AADCF1524C511E42005FEBCB553 +E2A74540129A8823224D1FACBA76E9319C8F9FD603A29FB1F94A6BBD96DE40F4D60A1FB21DF5 +3D60402BA42B8E0FC2D285C6B8429286295E74BE626765980412800110B5A1279EB289722E98 +897DBBDE4C8235AADBFB2AACC84BA5981E8DB24F16BD13794036FB00FA3781F4CDD0111AA799 +DC890BAEBED6F286A64108F4324C63853056F8B481B1C1EFA0C90B254CAD693B860A940AD23A +F903BA06774AF7EE2AC7F84B6D28DED16C69052A5919C9EFF59C50EA308D8F513DD23C603068 +2BAA4FB3DE5CB8138358525257C3F9805079ACD9212636EC7A14EE6C636392FEB3E8200F1A2B +012659F267CF4FFBAD5E515E0B84D2CD1AF4CCB0E80E0C2A040C122823DB694C5A763EDEEA60 +47327A7C6DD6D27EB911871C2C631CD3F9CD6F5C6B88A7B184F1335584B658A104D1ED06B5C9 +26B36C8111698E374FF3F57A17D298DF41285F39D9094586D3BFB479C2E8EC203227ED96DB43 +08CB7B9F09153360F74A0844EBF54186F9DCAD23B1E43545A250E98CCDD7FDD43E834C1E31A1 +55D33C95814B0266BB2EE2BAACC2BC51A82CABDF8D5F43081D799BEE94C8B3FA4A344E10351F +A06AE12C2C31E41F2F497ABFE826822A7BC55AC5B6805F09BF0D69DEBBE97794261542FE0A5B +F91A3D1FE29A39756756A688AD28233BCB01B66B5077C31C6E80263725F2058E4C2502C9B1FD +F5B37F6C938F508B2FAE50037FF264AAFB15565B6B757F574CC4BB3BC9B6F7A1F3FF533C9FBF +104825F998693F151C027210033E8548FDDBF9B377E775D66E1111BD3C9A813E6E92ED4E2A22 +036CC2EDCC38F1EA7DB9C1A889327A3FF08AC9EDF551E15B26943083CFD7B0DB40C47E347099 +74784ABB5B24B6573B3F3E20CCA4F2DA3A567C5F2DA5C1B3077A4DC373ED8D462CBD31036D1A +45A61EF33E4120BF00B816A6E11EF5E8D92CBEADCCA93C35A46F3C2BF29A76AACADD4359D328 +8FA4D50CA3B18687564E9F6AA92E24B8CE880E794ED254D0416806225C3D705298F5BDCA3B08 +7B00E02B3F650927CCB2CC70628C2C1995EFD5471B7A2E074D65E07527824648FB49397739D5 +49DC203A36DEEA4087D174CB8DE80A86D95DD097EC18FA5F5B46B341309348755BC11D281ABB +5F05E7989CBBC6CA86168CB794E82CCBB29410BEC68F0CDA748729553D3F4CACAE0C73471735 +AFB7A279D13C2A55BD91260337C71BC4F95FD3CDB812CBFCF66542603DFE8E15FCD860B7D4E8 +22DCC12AC4C662EC5F7B95BD0B8F9B0676E4A87DFE73FFA75DC03FA69D109DA3FAA5F23236BF +21D0E43AF41D4DE81409C03E7F60D6B60741C951474E295126241CF9923A851E60AAB36165C2 +2AEEF0744A898173286689F4BF68F8C6056D93260BE37AE79D83EFDE31F3BDA46EB7D9D1F8A2 +CA5A6B6C65EACA53DD625AEC471AA9D8B171E42CA2C815BBAFA1042A56DDA5970700BD64BC2C +9DCB9C54B0E5B0D6A1AD3D770A3ED7136E06F651B1EF628624A3347C2FE02947D22A8E0965E2 +905FD32DF91B3D0D6E79725AA62F63F1737F87F12E42785661B2CB4D5C15AE6DEB82049171C7 +DD8E233139678149A4E57C79D4019888F504D2D815399EC1E0AC02DF325BFCDDD1F2088F8666 +8C3B776B579C8E01F78005B9EE888A1066C53E38038E81C4024E3F49A7391E4C026D2CDA3EF1 +46B1746FF6148CE490D49973D78C080F740079E6D1B312B28675D082C6F2EA52A26FDC7AB2DC +124A1689B34528326A73F07F85835C65A3DDEB5E010439F28C6934D37432B1CB9C5177CAC63C +39088AADC5CA4F0EA95CA7EDDAEDF84E50C507AF7CA15E742BDC8EA5842C88E7E57F46254EC9 +43AD2A4FC2F932AB954E7365F4C351F7DB3435E1B6E4B943030D8E4D9D4E6DE43E14A76A2307 +30512705A48E2E502A0BF9A649151718CF6E91A2A668936597BB93471961F2453987170443BB +8AE7E1C6B2712AE465C742BDCCDE5196A55BFFB7E820F501D1B21AA50D9D071CC39714351533 +9E7EEDC62B913F5B07B53B494DA42E06DD5572612164D333AD0FBD00D70DEECD4714BD8B1C5E +E30191596E94A475F669B174D917CB899B587743D9101458B789E97AA4778CF0F6FCFA1B7EBF +6F454E4AE912A9685BFE7527AD4064808A326CD684ED278A6B7B710FFFAC3D9FEE59F5A66289 +0CB56472E3A882584477012594D7C0AB8814AB97FE68A61D4AECBE0A4B0588E06CB839415603 +789BCB941555E0D7470CD9ABA93DA31B0DBAED80816EEEC8A34D12EA5B8EE95EB3C66F4E07A1 +D409EB96E22224DB74C01CA2EED1EB0985ACAE003B980BDAA10CD7B07F8CADF5E967FD202728 +E128ED8FC717CB9B352E4EDC67F934903EDA4185D8F650F43A7579A77E4D0E5D7A4739098D36 +402B1D5B8786F82C1F1E0288274126D2DBA06CB803B055D6D63E641F462554755BB9B0CB6839 +CCAB4E3100163CF3A8C83BA85B05D9BEC3D8D5078D5ACF552E502AEADC0EDA45C75C77C40337 +82AB66E9D1E76BCC6A0DEF719E10536F73073984B320D76C8F37A58EE2C194E0299A0209DC23 +76F23DB1E88AE7BE87B5AEE85FD2E92685D0C4E4528FFED2CE9760EC9E6754600A62CF6B14CA +027DDD8AC31F5B7E0815F3E5F6AD831186AE1C5B02CBB6AFE6E9EAB572171E86D9FA6997EBB0 +7BAFADFF3A425F2BC7AF37DFE5EEEEC52C7D27C8ECF8D6445A4269F1E952F9145637A86DD5A0 +BC0A529A6CEF1C0CF080AAD6D64332C602A59F791EE82ECBB475B82F36157A423B040E8040CA +4CFD8830E5756F92B84802450E44D5AE4BA759578CBA4742BD319550CB3513E2C0B4AB2D0401 +AFBEAE94273E454D557823301FB80E9F250935A7F8190B6D9FD15800338F3EB7799786AA5725 +325ACD5D01B2D317B461338A5C1FA380E0BC0C10DB08C89DF3C59C5C135951D3D5FA8848C9CB +240F9BF7C5386159780C092FB231E9BDC19D581D3BD3365662AB0A5ACE9FB20AD21EC0BF566F +5463B20034BCC4C4260B2CF2FE438A4A552B0CD3A6ADCD6AE767B67187C81CC2C7D01131C9FB +758CC2DCF329CC96E9EE943593378AB642D1BDA9AE365CC8A4BAFBFFFA8A5464EB3D4B6C4CCF +E4056945A2A4BC2EA6CB6868AB239B55AEA85CE08218197D7F5AB5FF6BEAAD68EEB3E09A5BAC +D4D40F7DA27335301F631D567BEB7833B327E6EA0520CCE262FCED078601A90555FD58788C5D +263E29310A5FD9C5C68762E3335996A7301F35AA1D302B4C4CC387C2DAE1D2AB2010795FBAF9 +42BBFC6CAF22D6F62C50ECEF8E3E8CFE90CA0E831FBF8D18DE72EF2DCC8E7190A014E5C683F6 +89F1C851D33A6A13D014424AAFDB5D58F4F20D8814C30FE886E3DF54DB48AC89C1BEB7C242F8 +A443CE95B7D6F2AE419D663A36ED78994CDA5972410AEAFE23AD531FC2525D41DDC70BFB731E +E20793785A2C7E32A48C489626DE56E01BC69081497BA0944CB01F7969A1A432509ACD803B38 +71BF0FD7C35EB0D4C1D223A6089EA5CF9D66282514909B0D6B53FBC19121C57B0488DF664468 +49CF39FDB90E3AAA3B0DC649788CEB63E8ED9DBC23E0E15EFD4354580B802BC8F251A6517A72 +20716972EC50CBB7649E6F943500E77410A768936D1F02A8E973C2324724B3820AEF63E269AA +F0211F7841F31004BC113310744F2E8F187F3AB8E1827AE0485B1F80994BC1331E5F9B9AF4DE +A238BB2CF767AF0A3B02626897B8E160B9AF3E2450DBDCE19CDC45B489C5096CB6A17A087D9F +4D5097FAF3D631B73B469EF9113F2F8C15467170B9838C88FBF8FE47B56BD608B18CEE0E9990 +F88E22030FBF3DC09F57C308F7A0FA0329303E2A3560F3C8D6ECC7517F3BF4400528850C6636 +F2D815FE04E73CC3FF3E0AD94EE8D5FF4A3BB88AF81B4B83142ED118E18A3678B297A357DCEB +AC141E9729DDD097218CF0CAF6B28B02F9426F4E4A86D3E748B3746B0A730502B04A1569E507 +2E01C26424F5FDE3731C61F71B51E44DD2570C1B9020129BFDD96904B7F843C2506CFB1DCB8C +5F362425EFD20061277EDE6F7F587AB40ACD9D64FFEE4DCABE8E0DAC925EF636C6EE2DAFD640 +B3C05CA8BA3E0A1F10B57B3E73241ACA7CBF0F888E1FBF1A7039C20D641BB183BD6C451F0B72 +33ECCCD2C17C45BE5D880CABC11C763F5D97135F322D81F7560E51F0EB90EBF9122BAC1D5ADE +C39EA1FD8E7D6476B1980E4C2F8E06573D4825BD182F485F56A1E1189F14FAC45711FA1549C1 +A5973FCD328F50E4D6563D5A1E869728397F6DAE520AB8C6A50759469EA5F8BC846D9E5D2CD1 +F561B160792EB7BD1E9A34BB11318A91BEF506FD5108AD9EE611889F99E78DF01D0BB9FDF01D +010EF2A53D1518AEBE00A930B11DEAE4505BC2F7FE07C8323CA3F5B28459FF91195E611C9CFF +5D74761CCFD186420470A5E9F4F17823CE457C5E683112DEA7DA9A2FF466F630F199BF6E4BF3 +3B32A3949F2C4316FC238CE6FB4C206D21E2A25AFE2E95AE04AAEAC6773420966CF448DB3E42 +1F40ABABF86F3881CD9EEB6E95C7F5761114E27BF12D717AECA2B8F2C5C895D18028B26352F7 +A51B7DDD9C4A44F82B270B453B4D1A7986AC1529301C091C38AB06C802E09AF4972C18CB7542 +16F615A0BB81736D7177C8B8DE4E69503405A417F06AC56615243C3829CE43A4A463F22E939A +9FA40866F54056862A647F6452D2A4A2049B990FD72F97A2091201C6648ED968D3DCD86EA3A7 +FD64FBB09E02EED37DA03DEDF95F9203DC98350479C4E0C8375547C2F40E04AD9394A0269287 +FE92804810228945DD1B2DA7C0317C77772EC72A8959A746AFD5A76E3953A098B04DD9B25C9E +FF457846F4C0EE304A4FD5DFEDED3130DDFFEC042F2BFEA6C59CCA7C366C89CD96D6984D85BE +FE42BCDE78D5E2CA34EBD362E5755A6EDFE7EA9AA03BBDBDBC7F5DAE59CFD5ADB9780CBA062B +10DFDE111A2AC1AF1582527848E47F88E2D87B499D3BF14C56BAA1FCFA4E6AF8EAA7877397A3 +AA6D8BEF55770FC45DC45A094049D144D809223DC4B4A98DEAD0A729AFAD4AC3C04EF2C8F70A +0E0187B0D69A4F972B64C345087F6B77C932131AEEA7C9844B7E51A30C314181428F4C613629 +31A069A462168B82A54B010D15DA6C85DF863D18D101280A786CDAE1C7F67BA1FFF7E7073F01 +63910BE47AC47FF1898949E393AECA6F3A5AACEF6173598BFB0F4DC56374CB5AF1EADA100712 +4E92FF222581CCF8150B90B52078FB8E27E16268CC0B8A780CA46B530DD0E05BB465A0234154 +A3151D9628ED99459C5AD24176B01BA55D9AEF48F090489E2D93FBD3B916F951C932E27DC61A +8112EC9943E4D0DB32E0F92FE775936C74E9E62A9D1A41FEC65E402F13402BF661119659EC3F +D84826018B4F4CC6FBB7A7385819F05E8B2FDFB3684F3905A849AEC9BDA45B7164374D00C28D +2BE519C9E253CEFC7DAB1807F90B58D4D6CE89E3AF72CA25B0C523895515658ED4E3E4A9AF0E +3C323405DE0ACC85D3642B002EB444CA69A38ED7EBFAE2EC1B2B043FF2ED130592973A81CC68 +99E75440FE2706A9CB8D291E4D9EC29009E1351244BE34E09B0E085EAA647BD0861A1E9942B6 +FC848E527DBAC887628AE3539994558676466554563D4C2E65C7CD5562613D1EDE0004F8D61F +FD8B06518A46D6A5C09BD4742D14618D95F3507923D323066688593486CD5140C1DE5509B5BC +C2A7B00F144B4049018006670FC4DE66935B6884DA39EF87B435D6DDD7A8894FBEA38B5ED717 +8544A3D7D13598A43698CCC27B170A4F82A14A8B8909626C101972BC86E33959E97BFC366E2B +CACA0E43148BCAB457B26C6C7E6746A67126E1BAAC4D47FA29A3DCC4DC33CCF32D022375DA32 +3EE7A17A5290E717C80D4AC06842943423B8FE749797FDF92A589969AC26B493B41170777061 +775B613579C780D195030389CE8CC9D09F20A98B5DA20103A979575B6D5E3BC2F3E1E7AAC4A6 +CC8F46FE871BB471758A9C27EEF4F15F6077FA9C8CDCADF6AC7A61C62D718121AE02595105E3 +ED477405422CB32B20396CE3619684F725E44DFA47B48223BF4C60E4813A34DB00B0BE904E50 +E5C91BC8C2269AAEA750334BC02CDDF2512CC6932AEC98EB3D5C92DE319AEFEE5ADB2076D7DA +6A7BFDBE12D31884B1C10E52591B16F8552CECF63C84F805D02AA162A6B51D0E7F1F5618E47F +279CE922F0648CD35B1E03827491190695096F93DE854246BAD576C518A4979EB30D2BABE688 +958EB49410BA7A742CFFE71122125D07A9115C5F987F9302461774A7843C8B47D1451E8F2282 +CE63033136A6C5459F728BE90EF0AD89ABDEE4955621A6BDAEB535B55E00BD699C42D4B20000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 + +cleartomark +{restore}if + + +%%EndFont +%%BeginFont: CMBX6 +%!PS-AdobeFont-1.0: CMBX6 003.002 +%%Title: CMBX6 +%Version: 003.002 +%%CreationDate: Mon Jul 13 16:17:00 2009 +%%Creator: David M. Jones +%Copyright: Copyright (c) 1997, 2009 American Mathematical Society +%Copyright: (), with Reserved Font Name CMBX6. +% This Font Software is licensed under the SIL Open Font License, Version 1.1. +% This license is in the accompanying file OFL.txt, and is also +% available with a FAQ at: http://scripts.sil.org/OFL. +%%EndComments + +FontDirectory/CMBX6 known{/CMBX6 findfont dup/UniqueID known{dup +/UniqueID get 5000764 eq exch/FontType get 1 eq and}{pop false}ifelse +{save true}{false}ifelse}{false}ifelse +11 dict begin +/FontType 1 def +/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def +/FontName /CMBX6 def +/FontBBox {-49 -250 1367 753 }readonly def +/UniqueID 5000764 def +/PaintType 0 def +/FontInfo 9 dict dup begin + /version (003.002) readonly def + /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMBX6.) readonly def + /FullName (CMBX6) readonly def + /FamilyName (Computer Modern) readonly def + /Weight (Bold) readonly def + /ItalicAngle 0 def + /isFixedPitch false def + /UnderlinePosition -100 def + /UnderlineThickness 50 def +end readonly def +/Encoding 256 array + 0 1 255 { 1 index exch /.notdef put} for +dup 0 /Gamma put +dup 1 /Delta put +dup 2 /Theta put +dup 3 /Lambda put +dup 4 /Xi put +dup 5 /Pi put +dup 6 /Sigma put +dup 7 /Upsilon put +dup 8 /Phi put +dup 9 /Psi put +dup 10 /Omega put +dup 11 /ff put +dup 12 /fi put +dup 13 /fl put +dup 14 /ffi put +dup 15 /ffl put +dup 16 /dotlessi put +dup 17 /dotlessj put +dup 18 /grave put +dup 19 /acute put +dup 20 /caron put +dup 21 /breve put +dup 22 /macron put +dup 23 /ring put +dup 24 /cedilla put +dup 25 /germandbls put +dup 26 /ae put +dup 27 /oe put +dup 28 /oslash put +dup 29 /AE put +dup 30 /OE put +dup 31 /Oslash put +dup 32 /suppress put +dup 33 /exclam put +dup 34 /quotedblright put +dup 35 /numbersign put +dup 36 /dollar put +dup 37 /percent put +dup 38 /ampersand put +dup 39 /quoteright put +dup 40 /parenleft put +dup 41 /parenright put +dup 42 /asterisk put +dup 43 /plus put +dup 44 /comma put +dup 45 /hyphen put +dup 46 /period put +dup 47 /slash put +dup 48 /zero put +dup 49 /one put +dup 50 /two put +dup 51 /three put +dup 52 /four put +dup 53 /five put +dup 54 /six put +dup 55 /seven put +dup 56 /eight put +dup 57 /nine put +dup 58 /colon put +dup 59 /semicolon put +dup 60 /exclamdown put +dup 61 /equal put +dup 62 /questiondown put +dup 63 /question put +dup 64 /at put +dup 65 /A put +dup 66 /B put +dup 67 /C put +dup 68 /D put +dup 69 /E put +dup 70 /F put +dup 71 /G put +dup 72 /H put +dup 73 /I put +dup 74 /J put +dup 75 /K put +dup 76 /L put +dup 77 /M put +dup 78 /N put +dup 79 /O put +dup 80 /P put +dup 81 /Q put +dup 82 /R put +dup 83 /S put +dup 84 /T put +dup 85 /U put +dup 86 /V put +dup 87 /W put +dup 88 /X put +dup 89 /Y put +dup 90 /Z put +dup 91 /bracketleft put +dup 92 /quotedblleft put +dup 93 /bracketright put +dup 94 /circumflex put +dup 95 /dotaccent put +dup 96 /quoteleft put +dup 97 /a put +dup 98 /b put +dup 99 /c put +dup 100 /d put +dup 101 /e put +dup 102 /f put +dup 103 /g put +dup 104 /h put +dup 105 /i put +dup 106 /j put +dup 107 /k put +dup 108 /l put +dup 109 /m put +dup 110 /n put +dup 111 /o put +dup 112 /p put +dup 113 /q put +dup 114 /r put +dup 115 /s put +dup 116 /t put +dup 117 /u put +dup 118 /v put +dup 119 /w put +dup 120 /x put +dup 121 /y put +dup 122 /z put +dup 123 /endash put +dup 124 /emdash put +dup 125 /hungarumlaut put +dup 126 /tilde put +dup 127 /dieresis put +dup 128 /suppress put +dup 160 /space put +dup 161 /Gamma put +dup 162 /Delta put +dup 163 /Theta put +dup 164 /Lambda put +dup 165 /Xi put +dup 166 /Pi put +dup 167 /Sigma put +dup 168 /Upsilon put +dup 169 /Phi put +dup 170 /Psi put +dup 171 /sfthyphen put +dup 172 /nbspace put +dup 173 /Omega put +dup 174 /ff put +dup 175 /fi put +dup 176 /fl put +dup 177 /ffi put +dup 178 /ffl put +dup 179 /dotlessi put +dup 180 /dotlessj put +dup 181 /grave put +dup 182 /acute put +dup 183 /caron put +dup 184 /breve put +dup 185 /macron put +dup 186 /ring put +dup 187 /cedilla put +dup 188 /germandbls put +dup 189 /ae put +dup 190 /oe put +dup 191 /oslash put +dup 192 /AE put +dup 193 /OE put +dup 194 /Oslash put +dup 195 /suppress put +dup 196 /dieresis put +readonly def +currentdict end +currentfile eexec + +D9D66F633B846AB284BCF8B0411B772DE5CE3DD325E55798292D7BD972BD75FA0E079529AF9C +82DF72F64195C9C210DCE34528F540DA1FFD7BEBB9B40787BA9351BBFB7CFC5F9152D1E5BB0A +D8D016C6CFA4EB41B3C51D091C2D5440E67CFD717C56816B03B901BF4A25A07175380E50A213 +F877C44778B3C5AADBCC86D6E551E6AF364B0BFCAAD22D8D558C5C81A7D425A1629DD5182206 +742D1D082A12F0780FD4F5F6D3129FCFFF1F4A912B0A7DEC8D33A57B5AE0328EF9D57ADDAC54 +3273C01924195A181D03F5054A93B71E5065F8D92FE23794D2D437EA08A6982402C5539B6DD4 +B5AF65D473C6AE636CB56D677ECBFC9178162B4859E6FCD8BC8A26E29FC1EEF804983F84EE4C +0FBF9EA071F4A02A212B2121D29934395E87BC92BB19A74E25C42C6D3FF570DEE09E385CFA52 +C87B725628EB62E39CE28ED6850840056355A4BAC029FA60DCF74A997F29C095FC340F40F354 +57F779795689C812F4E4DC3C463F20D9437B1A4F1300E34039DEEF7E3D5F4657975F5975E666 +56114DDA349BD1D81809BA19742126DFAC962E688033115F73E7EAE68049A0DDE69C4A305CFB +BC994060E1B2F7AC581002833709912E71F5E4AAB1578E9BE1F0F797E11EDA1F7D103FBEBE3A +446C971E701AAE347C3994752785FDA9EBFEB784BCAFEE7F87D52769793DD18575BF175530E3 +AA9D3FDA19807496B60C09C73948F7E6D7155721186B4699BE49CF5904EEEF9B74ADB97505F8 +228D667578328621ACCC410F0146C4BC7A7656D382EDD882CCCF38297732AD9B2AC10AD78607 +3831A828557368AE94FA2C7B047227B613F881B8EEA2D4C39838AE76AC37643DEBC400EAF24D +A08562686EC871803CE0E50C457C1C18B3AC4941CA3DBC4EBC784FC1F32E141B56CECE7A035C +14494C15987E619DF363120504C279453A6ED434EECEE8310509D5208D4E0EB46C6CC69E583B +ABE0D80E9297FC113A60EE2956904369443FFC7B2BD151CE647961256297194F771011F82DA6 +07033E69B66857E1EB6C4B0B55B06019DB0BE48CD09358E4509687165084E061D38E4047DA2B +0F20DB21B7239A32C4E79A6979B9E22F3D07422A2C4721C48A727C72C7280EB3240FD6BCEBC5 +67C8E41E0F34AA26FEB9A5B11C79FB88E6FBD18BE259FA6AB02F537DD58E0910ADB3E14E61CC +58A06861BF528811C8B2A46DB139BE12C64C315DE959337B340C554F6E8F184C4C3EF53346D6 +FF9C88A8066B3DA8AE49F36BC854D95FEE0321608461DA68871606D4EBD6FCFE62762994777A +E8C7DEA32DCE0A3B4552CDDE9E2A8E79483848B05EFC27CB03A4F7CE3CA3941B951290131698 +0758E8F7A4FB8639A76DECE79CBA86DD92CC4B3D43F384241480C983BBF62D4B0D8269553667 +652423E52AD4E0974DC80B79AB937281DCAD93B5DC16F15B4BCF7A121DFAB2F1021750468808 +E1CA936D2EBD0B22C2C20A3F612ABD34D811435CD5F8891FA4CAF592CF6DCDA9AA49AA152AEE +E2247EB4CF183EAC8E59D878351296B447065D5BD7276E1FB4742248CE52394494CD81C1FAE2 +BFC03CBAA4AB8EE4BE43607AEB53EF2B0ED020E64F43A88E3D166F8200F4484DE34D866D9FDB +9E742D898A4636418F0FBCCF1FDC986E26CBD863D95BFC99C6220028731E1C434C2F7C3E7CDB +E23921C3EC6501F763F08778FA79006FA5C00CE0B89E43FCF66C99997B8BC763F8E4F550F5FA +406A36533FC70142A2FB5AFCA9B2BAC2D83C8661AB0F98692C5F47E98C77077756924F8B970B +AB489D082E8C0FA538981F9100C6C7B4FB3F54BAC8E5A5938848D0AF1CF51186FF47379D624C +80757CED7EC2E3D1038CFEB00CC2D8AFAFB8A3723D2D2E027FC57C8743D1B552999723D382DD +9C52F7CC5C03943449C9D448CDFC5AFDDCAA19E6AAF26BC1B053AD65C898E1E40F942C4FCA2E +CA08AEC6B885D16F7EB00ED7481558D5B2B97BAB804A2A0BEDEA338E125A5A6B3DB6A66F4EE6 +A94436D00F43DB7ECA6DA07EE0D9E6EE127DA06AB542F3F48E1AC1AD484DAFA0BF08A998449B +38E75844E80E6C3C8CDBB31F7748AD10E93215A88E6976D8DAFF9CEEE20039268BBDABA9F34D +0DB1B30C14603FD1A9BAA5020505E4C0A4366DD68F2C30AAC9FDB220309140A010E2CDC6BF7E +86FC35C4F2495A58C7B0E846D01B44799D4D7B3A766C88259FC1005DB1F137FBD201B5F423F8 +D2042AFB7CA61D00CE05B890C9156F45F93CBF688F5DF8519089FADC96E736B05460E14C3117 +4B70971EFFAD69D89E8452234ABF74E67048728C12083FBA36D9CCC3AF19E307999B5571D5BA +6F39F9EC9779D3745AEF96FFC8201AC076BFCD8A5B5544D408BD076F65924596905714011EA9 +0A99D078F9DC34676405FE8813231C8663D68CC764EE822514408B5FA1D1812ADC31AEC2E0F3 +E1273C784D5D7163804607AAFDC0D84485FB057E4CF44142056D9A17B02077ED57088695AE71 +F2036D5E49E122CA4439C996C2CAB353CB5E13B6C5426D1D43F9C7B7078267D8AB60BCE6AD7D +DB97EA2D7E75F81ACEB9F270073D26380140297619CE3B51417F7C7E8C3CEF0059E876008647 +1D0ABC63A739E527CEC95C366EF3BE8B90AD0D6B9299878E27D77489BFD8467CA8A6A11D5043 +8AA8A48F439475626B0CC5F08877AF52BF0D949C90B9899AC0E91454E72426F758B8DE7F5EF8 +97FFE30E9D251AD616064BE5EB38B70D22EE40C71DF58F67F26849D4CAF2115616059859DAEC +51191744FC1091601E738910242A5428786D89E8C8E05CFEE4671FDDC831D8F14C4B0D431B2A +474477CA6587CA9AE1B6E5944255E526FD39574173542E28AC46F853C52F38C413F92BA30FC0 +131C4F0DEE84C86D8259F38D7EB9417091F38A4B3140339F99281D9D523C2AC222F47BA9BDDD +AA36DF18A02A17EBE4753313FAAAED6FC78D5E02A80C0B71943A53B6078488F4F2DB2E804DE8 +C8A4389AC3C0A4F7BC584E4C1230A378BD2434C2E3970C59581213627F160B943A518C8A760A +7BD5922C80CBEAEC8787BD669355FAA3310FFF9F2256810146B619F98EB15BB931D1806667DE +032232F1D2CE2DA45D36DDC95F43D8E2454355A5D4ABCB788B64EEA7AFF3AC8BEF53CB4FE810 +07C6EF0FB10E8006BAEB0CAF8018306AB08AB7A17477BEDA5034B6E59C91FB83ABC20AE383A5 +E5C342B44ABD9C30959CEF692911E5DDBA2313DC9778C209AF57BEF175B19DC6F2421307EC80 +F5882A67745B4D1FB586E772BE6BB5E14C2BDFA23138F5358B6DF22D00A422186A87E5AFDDE9 +B36C82428FAB635E5CA1E377D247666963A4D1E75CEB9CB4EF1FB982D48D6956EB909BDCE8A0 +9DA244E07E40746093B59FF3B8E37FB95F26FB568BEEFFC852FD52EDE6ADCDAE1E4BC000F548 +E90ADE1203686E5BE2B181B684B09135FB3B1DE15E279178872E4CEF2C26C46E43FD6F9CBEBA +4A3843AC7BB05E6A8503493B0AE623B0EE105A785E3CFA485DE64E6470A823107FB62CBA05F6 +9EB175405E0D7C70FBB214D40B0B367D73B6050FEBD8A6B4F5EE6A139A08FAD92C49C8FC2C1E +22673EBFE1C12DD9E537709E9F2AEE521CFE90C82D2FB1B8B8CB2CCCF10D307C24B01F6E5757 +8CAD63EBEB8D3B0DAFF22DDEBB5AFA7235997F600D3868C831FD6035FF511FA42F59B80C2CAE +5B76FF4490366E3FC752CEF4AAD3172A367475EBE4BEF66BCC160A03B0E5467B2E86E6731B1B +A8A97278A2DD0BFF34586F6306F63ECB0C9C2D41FB510CC4B28363610355AB270A6FB283AA6D +09B3958A41220554A3F06637F724980FB8E1B37D1F220D3C847C9F67FB454FAABD714ACDB449 +7FDD5943F8F0E237F7693041CF4A9B288DAC818D851FFBEB3A385284A8A433E16CCC6BD9A35A +693EC3005E207EAFD342A2BB9282DAB88968DC9660A0A259B95F3CF623DA2AE321BEB4BEE7DD +49986B67926B2053F4EF455AC99748736545AA18F1E3243ADDFC312385B1F48314C320718725 +1A2D8F1E12A32BA8AF7FD49AD49BE80ED7D8E4E184F42BC74DA0131E86FDC099CDECFAE44A86 +A0885C00D62C16FB53C07912B4F169B600E8AE8394F493ACA5816F470022D8F51E00128BA3B1 +ED31AFC783FB15BD27C2218ED0AAF20268053C8AA883E8EDC97E162BE58F797D69434AA85054 +92090A416742656D437B49210C85AF63A170E268D04DE702FE414AFC93221146798F8DC3933C +0008AFC69DD99B6D723F2B61F26A866DAD65C040DC5B52DF8DC7EEFB7EC23490CD37D5B85181 +7E75DF86A0F51EAA758893CB5125458EE505C747482A5685C49373440F67D21273BE10A36762 +5DAB59AE6719830C1486D3A4EFA4710968D85F405A803970FEAD0ABB656D69BD538C3DAA60A6 +2AC2444156CDD6A9F58FE120F0CF023B2226E992C20B0B5FE272F6F715FF944EB765D79B8322 +6FE63A82E8C6F3D6FC6FD090978648F82088B1AF2D20ADD5C1D02FAC16D50863117D0C81F04B +2183EDD79CA5F3A0A80A71DA04D9C3D62F90C4919D943809E34A987E794F4B9D81432050A425 +578DF0BD6A15FB400644D042891C2A2C6C453E311AD6C99E4F67C1BE7C98BA36E3EE6D6DE8AD +9AA9F0FD389FC9904C1842EFA837FECEDCF73E795B1A3DBC7228C1502BE1ED7A003EBA346AF5 +38DCDAA08427B5EFE407898C5A93AE6014DDC54EFD9EFF19DAA62F0B5C9ECE9C8336880ED271 +A095D8BE9E67AA5063EA19DCD465EB443A4B059E9D0793B404AC9FE82656865AA29868BAD3EA +23089C6FA2365359A8AAE36CAECBDA567BC1A3AF28ABE47F8785CB141893539800C53643571E +AF51A2978B308B47D1450AE13CF4CBFB147CB14426D80C70B04B6766EF49352A8E09CD54E0EB +AAEB1D0E74C2BE0E35598C2C8E6A18E42150C4EC86DB03C71EECFB759B8057760FF6CEAC5B2D +7875C402CA60CA3ACF314EDE8BBDFDFBD4EAD08CC7E5D5AB8F0529AE510BC4E4CAA616BB144C +D74C348AE0E529BCF215C60D129E2A05FD3141D7F0D1E4FF26A7E9025E2AAD73B16F6CA5BA42 +B1C386018E8CEC31251B272606348C1C8436CEF8324D326CE1D92F584043B595F1F9D4FD2D0C +FBBF366EC2510A1E5366859D6B8ED24DE02024B77CEDDB79994EC4D2DC634D37CAFE6B9CD5EB +E95E7C4304D7BAA5985743AAC1BB83B0AA390A1F5BEA7DEAF9AE900AC5C965E08F49F863426A +2A41C96D08B3F0608F109DCE2854FCB5E4C1DAD40F106BBEB46908528742F5A640EB42E4AF07 +E0A96DA156A5F7758F7AFCA2B269D577986218EE38CA3F01FD68F5BA87979B6DA4B1ED5541CE +8F5FAE569D60FA5EE0F18010FF5B0BD7E2B35FF85120524B59703AB3C471233436E877360F33 +87215012325DE1958BF1E42938EF68DD2535E4754F0D0D7C0FEC3920CEA51547FA765C1AE1A4 +166E102C015E4943E7D3580C855CAF9172DD4FAD703473BB4D0BEDE3A634F8D34D90F7FDF72F +1107DD2C5223EB53DE49A1F4FA9D00666DCDB6B0B1B36534A7C37BE8C3EECCBFFF39DBBD3326 +A603B5DDF0F9D5C91EBAD6F27FFF5C3FB81BC444A6D3DA980FE2ED54D94D1B2A83AA89D06492 +C6FEDC16B629CFD54E9E60AB07477E4F3EA538A4E10CF195FC1B5352E4A56FE935F5AF3DBA70 +5E9C4C65A6580B8A33D832E4F24FE85510A7CB38BA8D1F7F5D5C2EBBD75CA04519D3BE09F278 +A0E7636B02D30ED7A416BD9485844AD4DEED784BF27AC0A8B87205101D7B2E4F8C4E9EE2E3ED +D68D02FF6B62A18B0DCCF6C2F37B721D65E5CDCB74AE039A7B41E8FE37C539582A6771D0D30C +5169F6BF862BCBCEB444406F15100567DA722212B3E76E61884DE593CFA3EEAC6CA960F91DAA +CB70E9E44C55A64344672360FF41D09AB0521967CF42C310A12E6D3EB2C2B3440E2E64708AA4 +F824C834ED3796130EEAE189B0EA46A151B13B5BDAAE34261668B24C6E2263C971CA35DCB9D3 +E396B6F95918FD0FA10D970037D4C8E128DCE6B7DBD55D6346453D4B5025769491694F3B31BF +EBF54FC7516E2F88C4BBAF4708F0B5F898B63F43C7BEA5743E72D4F104084A8BE6DDDF2B641F +511DEC3D64389C046E8A8AB16CE944098A2B8A4C520441C47F5FEE08032568E28B206F3A1F78 +DCDDA8C2433F267AC22F6D4ECB18CCAF7F110E5ABBF2863F15288504FEF5D4ED1E87CA9376F6 +625B9948C8F6EE4240E37A238A2ABA213E5FD2B59ADDF90DCBF1C5442F1AA29466DBA627D179 +E47DC7E9F95CEDE4F133BDD5EEF9932D6A2AFBB706E98D27414C94AC27505D3C09E17BCCF683 +5F8044062993A92EBD9754726295EA1891D618FFE0B60F146402B6F5479A301E4F041D4A9D16 +8E3B4D58C165D46587D944B3E82606822674C025A2B7BA1172C6616FCE1168DA861818EB7193 +ED43C73B3FD8B83A2BB2C6FF710EEA83648539427A5915EE67CFF9A4A266609C6B08474D971B +AFE04F490D520587DD4AAE0631293FDA73D96773FC574E9289C434322658E8EAE281B896F195 +E70DBE1E61F896D367ADA0FFD67B58829445CEDDDA99165867344976B8093720B84A1F2A7A88 +B0A6A5FD4100A7344DC73B44F59938791B857B01B0E80F8A2A37DC9566C5804D70ED21556609 +1E3CD065D70918F9E3A684F7FD0E8406AEE6838C714EED02C2F966D73DE481DE19865518A225 +CBE615E01721DCCAE4353F5B26874DA375AA89758CBD876F938635C93BB3814908ED375290BF +15B9CFDF6FA8B28403F54BF93A465293E9DA418B8A0304FCC7829C39AB440906B7EB49FAA502 +8D0CAC2C32A3366F3BD9E4716FC66EF2268A7B5C60F8539177583D62EA03371DF4FED6FC8298 +413FC591D05B591CA8D3E44E8661C0B529AD07165736A36A1507AEA3EC9295D64841BFB5D8BC +8662FD052320733C3163E3E643FE07B1CB1043796F3323B9894CDDFF4DA2088EF2F34277EA1D +0713724415EB051D7C1234EAC8771892821D3E19E81458DDE8F5DBF37C0FCB21F42E2D435130 +296CB40C4A65C7AB0101E8B5D1FB333DD2A8C61040450957F7938C9818355A402A0DDC0D25FF +008127C35F8B48CEC63B2F4A0B8F28A9CA07F8CDFAEB3ED1ACDD5162F7D3491964E99C4B9AFE +69174B08438BF8592F02797498768D788161989C943CFA646E4C2950F2D72AC2DA11414DDDDE +9B7F84083A1CBDD12FE6165D3BA6A4E07608C461B233641A9D387CA85846F69D5FC2148028C6 +1F508B1903B5F136A0D84F326FE1B550A7B2C24C2C41BB228619BFCF2F560CE6A8CA067EB950 +D9E969649B13CFFC6B4366112B9E35E46445BC5BB31A6D177F186D951480E69DD7DA5DF9B4CF +477FD752555F0275884AF1668C66F0BB607D4316E470974430423B5B0E909629035D7CD17FD6 +B97581736D1BA086CC4DE5D857AFB40C81F744518630EF2AF8B64BED95A0FD862D8B125A6AAB +A13FEB3795683F2ECE892C18C8F43BFD5D6DA753E50CD1B96B18C0ED7117B3D625AE5084370D +F4A722A34A75B5703F22E176B7C6B59EC5730BB10D8A32F72812BB30FDA823D2A23A23474339 +4966A8456415F83F3E4141DF4C4BFEE9AB6EEAC4E396BF7F3F57C26DFA1FD44155DEB278D6E6 +2C1AF1321D17193BD14C8C675DA917F23FA2630DE1289FCBD7079D3FECD8D1CA71E02B92918B +2D17810DF82C93AA22FA59D5A65AE184BD6B94AA18B9E0B2CAE294D150D366447454B5954AC4 +613E7CA4B9D8383F25F5111E525695C338118955AFE5BA5263B8A61D4A245DC68821FB32956A +7D07A1335C5872C1100D262B9BFD5FAEB7AF9F5BCF703A0F8581C225983A66B0967D0C83F362 +0BD0814DC891DE8A0732C249CB506AE9F461AC15CBF5BA9900DAB13C1CED3F74340F20CE570B +D341920488049F9A8196808B259DB05F5F82B25193B5C4CE9C21F7C4761948AC41C640A67526 +6FFAD36CEF2B1C1FC493E88E06D8142A86ECDCCAF28956699CF64BCBB863DB84DD1B2405900E +CF6260F4B0C4032A9800607967B5A11785517A69B184047CAAB7080813436374AE7262FC845F +CCF70790744A40DDFF0353B07F96CD7B1A82C24F8F4074B96C17460062FC59D15012E0BE84E1 +9441EC4506909C1B4904CED6AFB3EA913918F7F9AB081D809706D1FF3412D50494B5F0835D57 +4CF4281CD10411063A18DE199461E6EE469BCB07BF30853FA6EC0709A1F82B47FC76DC4B1F4E +A0AFBEBAAFD161885830D8F42680772C1BA775A41F9FB7EE1E29A43806C04D3AB58B32FFF544 +50D768A3E75A09DE9E1EEFB6FAB2CD61CBB7C2A658B3CC670D60B0DE98C36E320913DE0F6F50 +386CBEDBA244452937C15848AF3EE7C8AF33D6A7B3BFCB85DD9909A74AD69AE6BCA08B8FC251 +15C2B59B60AF140DE9F76ACE9E7863D51BFAD5FFE48A0DE06494E78BB970C36787C0B945CA98 +A914D22E25B41FA70DAE86B6D766F41396E8726FDA0795B423BAC7D8D29A485DEAB0F13BB01B +8AD53E1557800A3A24FB67F80C1CD4E9781DB9E5A9A34B4B2DD082687D7855F2DD0587D65BCA +11111D7AC375945F753983BC985AFE67A2DC0DF375C8B4A904B31636A52189E36AB792F17C7A +BF8C49927AE04C0CA35918A0305F55EE47DE4AA52ABD2F1CC27D1FD063F920026CC91DDA8032 +1BE6015B8C321EEA1A3CC7BC946938E1581F2F10FFA5E4D49A7576959296C72B63262FEBBC66 +E32ADF1DF33FCFA6E7F5218042190A340B9EE39D5482B4D822ECCB7194163AEE80C9C4D4E77C +6EDDFF0353B07F96CD78FC082F21CFC2F206CD43F2B8DB67336F4FB7425B7F8D8C14193B84A9 +6865587DA1D6716AFAA35DB22ADE121024D0567FFF5490E5C45D2E2FF37190832060F6E838F8 +650DC4B946D6F167A57E16A9F31C61F020AC43AC01DB8B661E13E434CE207576769552A2A297 +E7B318E281651C5E2D60435497EFE30CE67A8EA7E98111D319AFF42744D90E3EC1BBD1865B6C +354B22133233DBC951AFB951737208CA761ED660D9C29BAA37DC32970323AE28CCD1F0DD425C +B53765A3DFC7A20C15F26884E178A206EACB163DF203999D7F4F5F3E431A8218B217BF4C0B54 +B0203E6BB57C2F37280411969FA3F5CBD562FC0250325700D9B26E35504F5AF254F1DB771118 +9AFB597132F5F61166D91C738DF99235FC8A2EE8C1A5083BC5E7B0EF1773FF42200592C765E8 +6E82B748D1FE1A0C96AD4982318E1137373D32A5FEFBA2643E487F194C9B807EC9BC7228C725 +A0A5E8BE50D44AC20B43BC8A6795EF0403E316688FCAB372F500513DAC18DF581061B7F60FE5 +43E00D5593B89E7C519F32E7EC0CD96C9826E9830B499A2B12B953D0AECB986C190F4CC77D8E +31B60A86B0B94A541C2BFB3053ABA345C05AEFAACEB6BEDD192F3CEC0E54011A31CA0823494E +9577B9EB0DFBA7027616471E30E174BCE11FA45EB794C9F69897FB791E63E3CE40A872D2DF4B +12E39B59A72C7CC0A08704645B95792DA6BF1C6E0D7FE87E2806158E7717BD502D0EF650B555 +42BE7F54C4367813260E25742EA02F6C229C04CC030ACB1AA52B190933C0B1065DEAF6398309 +5EEAF902D0A3E102BD1D29E94F77A28E0A378191B49270436C4B306F85E9C8D27348C458A8EE +70C05C4FBEB490356320EF5BB81EAA362B9C33104EE55A82F66E75D28C0C38900F9AB8648975 +2C9A389A0A3791174057328FFCEEA4F870AF2994A241328CF7DCAD7FC70C6BAE3B34C395DB05 +C6010D56E79705C3B9A381575DBF1108B1C760171CE55D44AD69B1A4C971F86006C297FCA104 +EBE96ABF5E22D0B9D7096466DA4E6319B5C8C2AF88FEF04E8A5F31DFFABCB222B4E88BF93E4A +C026FE48DB6BBAF0D0E1266D3E91605622A83E10C87CCC214D9E19C5144A2A4E2E7324865516 +583F17E5A593F68E686931F0E1388F53B8BDF7B840CAC5138DBCF15773A7B90B924B71E9C171 +79322256EAD6A69CF672AB5BD7B1023ADBE5D4E5CF79C397F86D34AAF598A61D066DD9B54279 +F8F6C8AD9833E6AB2A0FC4106D729BC52112E16D2D60AD0D58D03E05B2637A164123F1687C60 +DB1C2F0D9651AAE8917413146984765D96F19E8485FD9F76F938C6C7821A17EF28BA79520392 +6981D9037954D8E5A28BB89C3BCEA9F11641F74A5D9F8FE50D2B608E61FAF796238B7FD95E0B +626207FBDFAA000A9E9015F7D140C599327676D0FCFA9503A0580D07A1E8427F27DADC9322A7 +9C55F8EEEBFB39AAE7446208D8221D5C2C40D260BFEB20AC134E693F6DA64D5141D27A0DB5C1 +DA1B8E78D5B248F2812B3493BE644FF1EA2F127D8C66A4B7C8AD3D992FD05E7F5AED6B79BF29 +2F402881E0612C420FC900C709FF42B9552F9F0539F9076DB1F7CF1D74BECB14070AD82AAFBC +A458044D70074D7A6F5501F98A3C65FAFFA9FA807835C49DF08AF0409EAD4164D8868B965439 +F0074366A68EE2615A6A2563756388F9B55E05E2CD7005C94AF657363BDB707F4D02623F6B2F +78416C16ABB9E4A64F6CEE89A6BF1D2CC67F20D6F619BA12AB5B46F632A3BBDB7456133549E2 +FE0D5F0C688EBEDB89E7E45D2F5171F0422F2C48873F95B277C3870702C494ACFBFE51A04425 +63C100C1E73823452BD789269CEB11ED10CD58C6DACBAAEBC9B0589A64A29567CC9B855733C4 +F6177A055E90220172DDDD9AE4470E07231594304FACA83F0C2539BABFD62B1E25D553E29640 +1AE70E13B25457AF0A331BDA19F77347391BD329E6A5CB3D69418A5E8B6E99DE9C6DC0C9D53A +275BE58FAB40650DD77AD332E79773CB199E8AA9BD987036D743F813DFBCE4FFB4E57F10F20B +E3658A750042C66837D430DBF0D18A1D9D92A7A3E1A5C347B2304BAC3B06EF9AD1EA0DE3E776 +7A9A05FCF14FB2E722125BA7B2C39208F61575E00E59ECD5A56CF0C362B2D53E245E0DFDF767 +6BE0930854C9F8C1CADAC4C480B8863426DA218FA1C0713ACE0439FD65F1CC9D40DF80D5B17F +C6BBA058EB2464AE3935895098D7BD508E8762D46BC5992A6AE856C74E907B372B30D273E5CD +3EFE666EFB71B861D05207ADDC6C8523A4470AE5E6DFB755E743EC7C381ED59DD7DB96C29468 +F8C335BB64D61CFA198E2313961C81CE6003884610C29D98FE2A1C2D9625AAEA0D40094DA530 +770175E843B7B346751A637F920AC15261F5C1E4102CB3E1948E72E69C91EFBD9087FDE6C47C +5BF0975854913B0EE90D8CCDF1CDEB775DCFDAA7514F3E1EBD386EC0AAA9318AC8638C39FA6C +B969C84D9B217485CD0BC1F1CD1B69C2476639D38EA3285418E01B7CEDB8FBC204B5AA10829F +486651AF8ADA86A6200DB87EFFABAE4232DEE1D1473D20ECA0506257BE711A7CFBBF11B88F4A +5FA3984376756977248CA45AA36869E05232E28AC04660FF7862337BB4A217C49227292C2CEE +7C83CD748EF1124D2C6F4A9A26054B6A3588854CD0147EA38B29C826A159AD857F69DD2CCB03 +ABC9940B304E82C3D69DE9A45265F92981EECDD5DE35E46B738698216872D667B73F2568AB1D +F237316A9899FE26142826B8AE52B57DA959B6A40096054D6AC2852AF157D2E4D69607A30179 +79F8536BCA5E3B5B37D42947269202878B9184C7F99A5672490D7070E250520442ABA13EBAC9 +D35AF53E8ADBCDE273D10B04C3595DE57606A6BC5E65EF7AB79AF08BE377986E2452815FD7CE +572AD2B6CFAD0348AF6BD203B900EAD375DC464CAFF69D811AAE3D638A7BEBF12F9CEC75F2AE +47232F98C132068CA2F5D3E0754EE519E790C419D18FD3D5B0448E2988463EA735A8A10E5CF9 +2DB708FF13E90EEBE2D2702DE459097F05C3C7DDB03DB13CF5FB6734DB20CD1B6BD7C754626B +08DDB418DFC1A316DCA556F303BDD79BB360B31D641805C8433F3D4EA20C9BAC58C712CC12AA +DD765BE6D2C2D9FA8DDAF613AB31AA58F29E2895CE7996D1F297885CA45144229312AAE30905 +C9380905A583AE84CB12A75DF570E3D900A4D6FA839DD55EDB9C5731049C9E3FB879171F586F +330C83A73FC535208C6922902372FB7D927E36A2E4A640ABD2138B2BA9F31A09EBB984F6A13F +CEF36AF8596F115D208BE08CC9A4BBD105449151F692938DA168EEA38B86015A168E85D1ADDF +25B915EF8D18926E821978EBD0CC3868582B581F5FA2F36C1C27526B7A84C142E5FFE7474B56 +DA70E1698096F2D4D54A1BEF4E1E681D2BDB64093F844A47AA4C0A17F972E62F78B3E5885623 +E38B6BC648D72D8663843DE71F4F1E9D446823430C24263067CBFE54BEE556B7BD45B82084A3 +022A3D523081A0ADAEEAE1BC581951AE8AF02BE6096F7CFF83437FB7AC2818199F8CB450BB54 +3C75710A430961F1F6DC95D2E3C863057BB60C9D1F70F28DDE9E45EA7665E7C8CB4C6A101A30 +73536728DBB2E3AE66544B70F51BF33939D8D19978B05A960AEC44D481AAAA09DCEDA6E4AC67 +048DDCE85DC25277E37ED1C283A826814DB969A61030FBA6A595DB1FD9A95FF9D0B93814E2FD +240B8566235551AFAFA9EEF53014DCF6BBCC79EC3D7831970D79236A31CBC7875337BAD16F49 +218E1E79F2F99FA18E0D06C7B77D3F0ED4D6AAFE4856E76616ABF2509F87E0412E5E2DE33A07 +3B5DE4281804156DD1C7729169EA248B2AFEA19E9AA6FB265FDA91111A63E075A460526BD33B +AD01341D36EF44DA5FD60A70B3D0A539CFD8D27CFE124315FA611D64CBCA1B7C21FF5102D115 +C7F5C1046BE0FCCDFB4F7B8184EE6D631F523B993CAA1F38E3EBF14FDFB256D1CADD5313B9C3 +6B0DD9334D895A1546424054D0CCA00CC3751BABE4250B1109359AA9F2D3861E1D79962881D9 +9BCEEA8776353EF879887A1634F91616A2B8B790F55E159C2E4066FD0A0CCC5E2526AD558F20 +650C940396FF0DA7E13FE8C136CC1593B0F8505CDEC5740E5FE2C004B9FCA0F60712E4D189D5 +6332F4ECE7D02B0D03A1AD8B31E715B3AA484BED9DF20CFE4A08C9ACB37D976A25AF5A91D36B +65535421E88BA91CF4C005E6D01BC197BBBD7E65AD30D92076CA638D8CC1394132351B8DE4B2 +6F94710DB19796A86DFF76FC459B4DBACE42F6735C70336E149C8AE8ECDB80E4653DA10B0979 +7D908A040B3C4D78DB3E5212B5D825076BF373747EBAD7075705832C7D0535E89E8C6E0913B7 +384E7382DBD36B61E882D2CE30B54B38F601D167121F2E503BA9D946500D9BAF0BB5F4EBDB6E +C85E9D5469B212A43CBF5594143A5E8A9813938BB55D17841163A0D68F4DD1F53C66BEA2DFAD +3A753C7A6D5053983ED10D12D750A0765EC73F0740EB00A6B27C688597D65E9BD03BD3FED310 +E38BCCB0915DB8F4411E37650D011B1FF245D0039CC804A5E88FE8B050FE2BFF25F2A92F67FF +110C1AAA6D31A586862C5EE0F37E5DE3D4B4BBF2DCF6A5C308C674D9625C335028EF8E8A7163 +5273040344AC8591F7065026D12952B5383FAE1626AE73B100989EBE89749A5C75E2FA73D56B +3C2FAB79CD535AD116344FD92C9A7886AE5D295A0E17E9D25693BE589A15673B1672DBC9D0B3 +996BC3F616F31B0385C9CFDBCE9924361A4204B8123978B9A58D479A10FB1698AB68A0F20A58 +E79BFD4BAA4F3F82DF6EB838841CD74BEAA40CF3F4972AC1D7036F94CBCA24E6F248158F4276 +0EABEFA3C73325FEDB4DFD1D9B678B2421C31F0075427BA181DD8B3D02F1E53FCC9FF9E342A2 +BF13E38E67FAFB3AB2453E1044488497E5E7C45E7052CC504F68D1B99C898316224A853E3A1D +CD4F1119D85FD1B003CC6CE0200CB41DB2AA7B186A4974E36612971342D1EA64BFA0FCE4A254 +6AC03CD0B5B9DF8D0D5A240F6F5479DA587C8CDC923EE1BF910D35EF58D19DFDD2DDFABFFF6F +6A302B23F2EE998CC605EF7057E90E20CF82B207B318D22B327D7A942C6CEF52FF988C2253B1 +8253A67023313CD67BC738DFD9C396606A136B860E0FDF6281930F6E982249FB3042C69A6EF0 +4ED63838355332062DCB7B3264EF7EACFC0E82F42892ACE4CF3C9B1EFCBD584D13D5BEA35A04 +2FBDE954BDF538732EA1C8E8625D69E1BA42490E8686954C6F5F81E61D1D82569F2E5B4B41E7 +DDB1CBAE7632B309B364D2364B38767CF59FBE5B31BAFA8CBC3ED4658205BA8B9FFE1C549A8A +B11E433E882779F176DE8E414BA5B80C76B3D2FD7AFE8ED585E5D35AF84874F053AB5D743516 +4D9CCE36BEE7D35BE784E57B7B0873AC443DAF345C0BF770F4F6C8AC88B3480AB924EECA27FE +0109F8CBDD8BD948AB57EF2FD6390E0A732B877EA2DED6D253678BFCD888757F4268A0D1422C +17E8140E6D47BB41A01B6050F1C734D07A2D5D5C2187CEE3FDBA81BAD57169C326981D2F1625 +A16BC703BFC62788BEDF3E67F31C7734BE90873E43B3C64C89C7F3C7F61E3F9CC0CB4E14648B +2B3E2427A274011C363FEEF0B62A21B7CBDECEDA8B481E9FAC3514C80CA511867E52C1CACA95 +7E670338F35DBB87E4E990B7C4056118CBF15742372018A400863BE38030E36C24CEFCDE3099 +C7947E45C3F4ADED9FF8EB56F5A8ED3797601D518393375849B7F9E83763A15A01FEA25547C6 +00202504C1A3FC6D580FE15E73E991E7505E0A45AD842C43F9E09915AA8AFD74384F46B7EB7A +0C1E568BCB547177EFE7A748D36A2F952A6DB297D63DFA9A43BF9A61C8E122E9A77F2C25C957 +525F5E134E9D860B9E7A858BF63B33FC87EF2F7E4D217C5252DA8B8421B26B75C52E56650B16 +AEB9F4C38EA7FAA186FE095456DDBBA062F2D3598647F62AB60A65213352930A9AB68BB7A604 +920753CCFB4ABCB0F054105D8F5675A0A569D39F024EA4189A7EF0D3C3DFA74C3B855FFF7645 +24D840E96BDE5AC0B9618707FE5AB915C940512FF31480451DDB994AC322C97C9586D7F4B1BA +5F157C65220EA1E4219CD279FF00A34BE6385E9D469C57B4FE3E9E8A731389C925E9D2AFB422 +18BC9DF195C3AD2676DCC107EC1AF21D9FB8BCB17F3714CECB3E5853DC134B14F32431F7F4B1 +30F097386DF23F17778A190F57BD1ECEB40B0B59A838B8D4984D38AC2C1321B3818D34731F3E +0833B28F39D1AE48FE502BD13B1DF3BFCD8930F24C44C27DE4035FEDB2AD5B5CDED26220F854 +D18C854C43A2BFEC536592EA7B95CEF043F107F8E65884FC01A5C556C4DBBA9C9FAD7B0E785E +895D1D47CEBD9AB039690CB22469220228E3C49ED6F16A7E6AA848D0458A3FCDF24ABCFDF8BE +EB7C541C8F32E32A5B9C455B597AF7261B6091321921A1B326D0FB93D4FACFA45E6864F450C4 +2E9C8D672E91F9BF4DE979567EDE44C4C7DDC20C9CDA11FA73CF5514238BFD53E11B12230CC5 +899E2855963AD6AE476AA5B0442D9E5687A3C498C59274F8781EE7493389F5914134584D58BC +E53FE1F2D37AA4846DFAC56B9924237C62F5E919705F01D5AF6D58B5B191A49B2FF43FC78560 +777DB436B995F9C8FD010280FD1DACF5DB6950598BF448C3787DFF9597DE930444E723794709 +B7C27B1E75DAD5D4B47FA546F7935AA168DBC2293EB096289BDA81225E70F01C7ADC45D82495 +51150F93C7F593F4998331EF6A08D9C8917C242C02A33121696C3FD0315DE737C0B908184125 +CB0CAE7DDED69E5D65D50CA87E231E418FAFD987384525FEBDDEC6EA1CDCFF33AD5629FF44AD +2C7B7C01AEAEF76F179D3D7BC0E61143434CB45B5D8A76F7874E1D6BF86447A2C50F6D38DCB1 +DB281F6BA26895AF8DDA7CD22E34B486DF848FD0DE8C4F7ACAB3DB05CE4C8382126B52A49194 +52E1E89C42691570592FBBE3403FC61DB09E5C4A70BE921CC2400DA97844A8E2337B00516D01 +990DE4C8ED270ABDD60E0115B84B34F97441F640C7E3064D158A6C5FE5548A860F00B71C506B +765BF4D66AB352E43C6EE38F0DA454AD32E368F931BA5121FE6BE9536301420F0ABBBDB55FB2 +B33316822D61C461E26D2E31C76BE8B7F0B9DA8917AD65DBFD023E32F7B7217694A1DF815019 +3E7CB73E9951E2762A6FF77E3F4BA26F9AF60F09426B4E251F1CABECB0892FA4FA58A38417D0 +444CB8F481EBFD418ACF0CED41EE538CB25BAE4EA2783CED0CED7D7EE525C1E787E6D3BB34CF +675BEE56BB738FABEF9AE535727BB866B3D6B13391BD7D762D414F8322DE91EA555AF64E025B +D76D343A94E67BA42A42E1E2C5FFD6CB843F9A3F7149988CC69FB764DEDC9FDF602BA9BADD35 +D2CCF68D967F5F5866A1BC82787572EDF021028D8240DBAA1081D50F7A88B03E8B7A1E3E9125 +2FEB4665F297FD9DCA446791A19E923E390DE799B517F84DF8013081E669FE3967C0CD1EE38D +B0591B91860C334C36DE7E847AECD071E0CE19EEE741A828441B2B97153F7B321962AACF8610 +9356E0CF9CBD7BEAF93DC234A24766F8AF9D8D809C2B99F76B1FA63C7CD0A96D40C0FAB29CEB +B422E44458098165958A5778D0CDC6864E6C126DC6548614DC0E08A6278493EA46C5C9397942 +CCBE9DB5FBED756910EACBB449AA09BD0BC433DF663AB6BFC3C966FF9DABBD362AA50C035AE6 +4249FD22CEF0AF08657F9315AD8585287ACCA147D289B8C422B0FD754889EE299C87295A86DA +A0A6F474A5E3DD5889C7B8165DBD58C65BC7E76D788A67D427419572881BB6377B3B8A4D7367 +366A9A164DE0EBC7AF057E9F071051B2D1D07EFAFE896BAF802B8950EA43C87239E614F5DD84 +5A5DD3DDBB86CCBF563A89D952C9194EA98DDAFA9160630E2D1E7694AD3D776C6EDADA6F8615 +43E06C8BB34146A97E71666F6F74AFCFA70C7A7AD5D14567F4BFF0AD9FB12F0B17FA89F9FBE7 +8109CAB35AC289123445F76A96761DC8623CB6CFCDD603DB08BC06F1121AF915486034859373 +7345F03DE3056A4833076D81FFBDE6A00F13650C881CDDE339881A9A7DB042C658DD96CBA8A3 +1F071EDAD194CE7AEE2A48D9DAA25632E53634CF38C9E68BB886479AE840179705D206F30D02 +105356B40EBD6411C60FCF6DB71C842BFC51391904C6AD8CD096935416393D64766E3217FAC5 +6C41C0D41E93C1C185B453CB033B301B8E5F62CBFBD27CEB15EAC174AE8A0636575F6449AE4E +B27D17B4B4B4AE400918ED84489C8A1C194E9974002A6F2C38B8BF73E85DA13B8BDD3EF3FF35 +6AA5AD736B1529BE1A86251BA39094E376A06A711BD9A671D06C74768635ECDAD9FBA9237FB7 +0C169408A5AFFDA666CDEA34E451DCFD7F91FAD623AF16090B835B2476D4CB8B7BA5E685DC49 +9C64538634F33F15B370B3859F903F64C5CFADCBFBDDE144D165AB61039D801ADB37CD4BD03B +5083D5C16F372B809BD305CEBFA954349C93A8E45F3E686740B922263A72308677227A0708F8 +44C3EB87A6A2D4D4D95CC77FAD42B0D5F7F4421D78944F635E9B4FAEEC78C032E66742B7DE29 +2D086BBEECD244BE69E854FCE17B24B4278EE9E85A4FCAB286267C22427763CF87D99EAA62E3 +378D1A21595265AEFCB382F99364AB14960AC9D7BA471771DAF794602B2340BF00D39B8C5B34 +AC287F2459F94D55534E2C94CAC1DDC48E4A7F6BF1B5BEFF23BFED9DAC341BDCE00E8D1D4CD6 +C103969A7EFCBA01DD4B0918D6D71C954BCE1706A33CCB741E91FA16FF8AD6F2FF0564F3A329 +AC817C19699810EF2F348E8F6E2E77F2F2DE4B3CC1C9DDCFE7DC421D4D66BA5653AA727E99AC +9AF1BACACF8852F22D77E461469870FAF18E9F9B522424F043F399C7B20AF65B1860C7B35EE0 +32139B833586386912EEE227F2388AA7B989CD072C5A9316DD6DB12B77FEC783B0193BE8198A +DE7B057BA55AACEF96AB6EA63C79571242830E2D543FF3ACE88D60BF27292279EAB7594FB8CA +5D43205AF670C892166747C78CC9D686389866E2E3AAB50C6BFCED0F3972ABE8359F5768A42D +DFE911E35AC996714B8708A8CE5C068B68CDDF2F99269482057CE9B48DCEF94BACCD3187B2D2 +CA4B536F32569B66F858F1AF0CF83DDE47644557EE732C0210C6FD04E5CC15E9948839A09AEF +291B7429B85B9F828B80FAF8CB6D9A4BCC35B87CCCF087097B297146A0ACFBD8223C943A9535 +1DA764DB623D1E0A8D96DDBE170AC1DBA4CEDC1545621F6250C28EB66C26455C517D2BC35DB9 +8A588E6EDF61BD07BCD12AF42E9AB2DD8A4500ADC3ECA24E1E2BDE4036DE583D374CE613049E +B8B7CDD6DF01642A19B5E300503B20DCF592D81C94239CCCA91E3AA35F07C42B194F2A06110D +B533445BF4C32E2B18BC87A365C983074556B59983F5B453EEDCA7F2163A6B1626D7CCE719A5 +5462DB41756D354658756A14E293C6DFD3D3F3A386E1DF34D52D9599556E74004DCDDE80C301 +11DD98A5C642FE5CE7BABAF75F8809036E2F212D535D5A4612A011D486620E061366D08D7E54 +398EF4AFDA8E599151E6EA62C721357B313E72B6390F8F0F294EF0E541DC10AC504A4148DE6F +7F3E514A0B0BCDAB286DACEC0851CBE6F2E50C8D886A25E451260F953E8FC1A0DA030F255FCD +3B6A997691303FA21DE73BED93DB82EC0F685E90AA1C93A6637C4421D8B25DD7A5408F2DD75E +D2AD9298CA4C6041E0FAF48DB7B90C52179C545288C89EE2EB95155B890D87C4493F3DB3E6F2 +310D80476BE5447C8BE896977322A930E514F1CB161B13BB3910DE2BD9EBC804BBC7EFE9A743 +5031DAEF8E43AEE182CCAC945090756B0BD288484ABC53EDC93B3071034061DF4EAD870578F4 +1E499C96D168E8DA32209187E75F61DB4CE34994AFFFE068A5B29A864ABD8F8C19C1B272A862 +41F44414F4483B9D4162A1CD8175A7D771E990D3E4F31D5C769D112E4696D0164476DCB4DF8A +925BA4C78C795315606F123E22A3EB62E988E07A1AF40767D9C97D5BD1539195301D069F9E90 +38CD6CD6D7E00C066491EFD4986BDE964EA40E06529C9AE069451964D772217078C2C03FB2A9 +9FB7626E32B9E1BBB04024564032BDEC96A5CE1FF8BF83651C7599C835DC69260F3589B376AC +177682B91B1844ADD4DDF4E07B46E6EF6B6242BAF443259AD1A6DCCB38C68C4175B914072096 +BA68AE975703E36F7370C06034967B970453F14C2387258EB4EADBA81044A270953B3A7B0C2E +81FA4508BE65D8F54103B5E42D61C761E4CAD22A4D2C65B1C78CA29C46ED022F2D3E72EC447B +ADD5BDA47A9A109010F61F7CB10B6E12E0B285B902D59AE9F763724A1A83CE002865FB3027BD +36C123C21D38C93C198BEC1F6E1EE40F1BF22A323B27A041D8B6BCA562944C4AC4C59DBBF50B +E2F748F3E14388D283BFC7DA1FC716EC0B5A6BBB967EF25EB52BBF1E0961D13A3CB7B18CB618 +68A53C8603057DDF2609F0ECD29C45697F32F059DFF037B605A1DAF655467C82431B4DEF6132 +9838FF6C293C61AB0A34CBA1EEADFDCB7EF67F9062505DBC0E0CFA1EFB2B4F9BEC9C4C496820 +E45E4F5DDE4AE4D0B672770144A7B0389D35B808688776207B996DC2B8251CCAAF0FB39785D5 +F5F86E5FA4B367C7586BB635C669C11187825FEDA9A1DBB822E9C3CB253C0274FA5BAE595B1F +6FD2E73CB433ED054EA631686B4CDD3A762DCF7C52B20E7D5BD38D245F35574B8E55C99E4A32 +925A1CE2ED8AC7DF3E92925D22FDBAB5C826A11ACFBF39338C18133324E6ACD1D22DBA0EDE2B +4F7904436EDECEF8966D9764333D3652916C6F2E57C4454F29E7F2758C516B728AC4B16BE54E +C2008EE87B884B8A8C7D76B6B518843F284FF485C6CD8492D992F79D97EF52D888A548138240 +89C4A3D0BBD50C8C9F798385DACE00DC96170BD07295FEF33CEBC8FD4020FC2F2C4990C6D331 +94083A0652A45A1816F7CC3239CAF98CB5631539FCA164B07451444BA4B5FAA73842F2BA3984 +F08BEC9B8B3AC8021D80650E3EE398261A1FD1BC38A73AC28F0AB4D8CB2919CD3DE25B5A5E0D +58F5EFD12E91AB27F0B7EBC16093FEDD44F57561A63AC901CB613A560CB3C64C2BB558FCFB48 +9E982746C20751CC840F4B501A61CC09816BE8004876B2A7D5BD7D59B5E345853F4DDBBEC5B3 +3D5544619225C6A6B9459B719833FD2582DD8B9A3222D4F4BB60A323D5F5B83BFAC3F8956D5D +352168E8D8B3A43FFC8B9AD6A51DE4CEC7F7C44C52BBF72417E88AEB68A12486CEA953A600E5 +11242CCA922ED4F6E285847682F1B19FF6B5C88A681E5E71DF5B80F3ADF1000956FD672DF548 +C439A883A0C868E473A817AC5B21C2A20414EDE0BC9EA9A710DE3C98B6D6DCE43232A3885CA7 +AE2066A485BE3CBF2F821157C906C098F4213BBCBC2F52AE5767A3E3A6F06D74F7A17BA6BE38 +B3D0432EC9915F09553ED82DD7C0F29D35DE22A2508869F614967706BE396EF315843DCA7FB4 +8156D4BACB92CD4123DCC782582709775477B23A62420C3BB9D9C7590DB61C63D4D1B1847E5E +90F4B994A84B40F07DC4A38A6CBB02E583FDF043E229C0134D832872028A4E73FFD88E63A8CD +DDB9B076E6635E3DFBB7AF2997FBA593F5A8AFF7AF1CA2E0A25B9C7C4F5C41AA5D8F01FFD7F9 +1AD02437DC6441BDCFF0BC81AA407EFDD71016F42E563D802DC92585FB8C04EF69153C41FD1C +1626551FCCCDE75C391AC79630772055A52C60DD1E0764887DF929EDA7AF699E8719C80D3787 +11FE7C83EA6658A2300FCF3E10156ED8D9DC7CFBB0965CD7CDC67431D87DF7EA08C515ED54C9 +8291191F1380FF56ED2FC09AEC2E64F07520CFA4EF8A6E74299334021A2EE2A87D6C5D7AA93A +58FCCF8708E976BA53B1C95DC9366DDA2998ECD87855A26F815A9789CDDB32AD51CC9E5AC581 +5767889847B32CAC6D7BED3B0ED007F4A7C20C02D835F724C5BD8E5ABF3F22A304D5C9B1A60C +4455D94F60673EF3A95F50E99C6F7E33D70FB8C748C58772F97AA8335262A0CA1935D9648BDE +5AF9F5E93D9C3C426F0F7F798619D14FF91234821C7B0364048DCD21002DF6D8974DE1D7AB92 +C15B756E192DAB86AD70B80DF11A0F1A2C20D7E333BEC7C4EF46C82E5399E86AC9074C98B350 +433C3572417B35686794791CF897234DD65A466E6A976713CA74BB97786C34AB5B30B94A53AB +FA77F21CB4896C6B24DB4F624AC5018FBB19FA46D0A46F61AF1818CA98DC87B8FAF0E29D1F9A +F830F2FF2F44A4CF52BE2CDD01A6B2624D5C49D09BD5A059A9E068A2D3B31EEB28C3849506CF +EEEA4B96ACE6587C3C87E9FA2AE08FD92538487EFF44643F8FB74BF68874EA3E0001CD1DDEB1 +741A4B729BA11104EDDFA1D70E91570503DA18BA96D8A903FFD164FA19A103BA7CF84309A19F +9EEDCED27226D6489AEDDE67526EE2E555ECFE868FFD9BF3BF5D2E21194C9ACA3FC89CFF90B4 +B72A9E7FE0B5813F80F1D906D641AC353BDFA03ACE4DCE367B5BF13A9B077B2BB80587D37E2E +EB7BE1A33BF95C4A3A8932F7667F660161846F1FFABB1DA5F955189BFD8945747794BC38BDE5 +9B5F75EC6B108EC3585447F0117A5EC03CA80A895AFDCAAD0F775037DC733C2D7E05BB55D96D +F27B45C9B48681E564C1A7FECC52DECA2E31BEF6621C1223DBEA0650FD321E4134D6B4838455 +3DF00CB41D9DAADDC8061125939E8D3802F1A421AB0D6172BDAA6CCB802A839391356183320B +A06EE1D53AB056B9EAE669B115E737C973D3B90100EDBAD7815278BEE39D568A1C61D11175FD +CBE30FB30435E5942BC661D9DD82703822F51AF327A788F30856AD63C762F828B12E4D297383 +D7172296DBD51E2AAA00EFAECD0E58CAD5BE0FB55F99812F1603C367FE819C625EC499FF5141 +82EA7F4EC7B8F883DE7B51B34E0F8CC12CBC8873C7754D956C89566555BFDCC0E2027A3F6D3A +098B4458819785BB93FBADA8904C998E830485E7FC847967338E23A6BEEC071BE1608C75899B +6B23B897150B5ACAD223472D64A55DBDF4EECEF98AD0AFE79A0BE66F3476DF73B1CDD96707D4 +3C4EC5EECEF052BA81548C538AC3C0F3721E45DE1552DEFF6D039700ADC04C1F9E0DEF261BAB +53B6FCEAECE37E4AAC88034B0D545063B5466E0E1DD5D87DB7DE2BFEDF2EDD028323367486D4 +A47102FBA780464C514A9AAE509A3DBA3F7D1DA7229F13CD836DB8955FD1D3786E5D5451DC9C +6517D5C9EA829FD332DBB98CBC8FB2D3DCA0F9DAD2DCEA8C89CE9C202C04F472195B699A377A +2CE6B61F2E522F6906FA003D0793498C3EBF68B3A07BCA5E7AEDDC9684EBFD8BFEE8456D5483 +D74C7A7C3954C29A01082B75178627A0F56619798A4CC5D48CCD2595F53C58AC25064EB527E7 +7356E66369C0B9F33259CB99868D765852C38C91B9ECF4BADD50BEFE8CECA6FA564821520F26 +96D4C48718452B2378EFEABDCE2CD6E47250EBA6058C8133BF0EE78B943B79CBA4AEF67D7F07 +D15C0D4082AEBE956D15E83DAAA9B9227C7FDD9A060D000FBB7F1173EF21430125BE1FB6A9CD +690A1959D843CAAD3A755A4064E248A5D51A57A431B1EBCCE065EB85C5F2F216260AF30A00DA +82E8127F5A771B11390CBDC34BFC1E9D97C6109DA6E6CC075D5377AA2151DE0D55F6B10FA4C2 +CA1B0C5FE0F45B5C354087224CB15348903877AADED839B9B8D422E8F4DAB0B41752A1AA018E +B9F220F0E16BCF0446748DF6F2348D53504ABB41CB8C408909C33CE2748C2B0BF6264B9E82D6 +1DE97C2EEAAC252856FDF426623DC4FD8392B89A0D5B5BA2D7BBC2A1FC18BAD76D320CCD4700 +867C9A9E0457401771986B72AB6DD612CF509898960A27A92E3F6BF3A5F2F85CBE0860FA2EA6 +8F9AFB4857CD9D4AE7A3ABD45644A8809861498170755C48F1F462E7E45F3B01E57A772FEE67 +3EFDEB3EABB31ED3D3CACDA7AE48AA6B3ED473BA29B39BAB15F56FF5DD3AD6FC3422E040E742 +2BC6912D0F2284E4E5580745497DB08180DF167A58BE7F1E7C0EB8F113142FAD7373884ED7B7 +E543431E4494E92CBFF4EFB16B508582A3D3860344F4E9A8A7D1E176D989F6970E767DBDEEB5 +6F3DB39F6015FEBF58E52F9A465C5873A8C24AC7D3CEC3E16974EFB1E99628492C2F57D690EA +B68C0B4A85453FF9B2CF0A004FCF90F00AF198FB75D8CEC55C4CF6FCD809564F0DDEB2C4CFD8 +38ABBD910E135860C389C5905637E4AF094652250C882AC201860790E3A6172459DB54075987 +CC84DE2C49EFA17D4EEB797CBAA1F1141FA51FCB3F19BCF58387BF69D7B5045F68640E33FD9C +0FA72C438EFD5D45D5F10800B8E7FA961E8A136751674A17B5C3E9DAF06367DF13F34D5E2F41 +FD0E2F235CD45BB8E14EA50A3CB9B2C13197933F01F88D871885C77C39ED622675F0B5490C7E +C837E9012B8EEA7AB221D43BD217AB7CB5987FB8B6A1899CD3D5E1AA776047C383B4E99AC018 +C950E58CF23524F80E6C3BEB66FB67C22587FCC04BEAB3339495933499491E953AFD73E71294 +2A46F3E4C1F9AD90D04F42A17088E05CD20F746FB8AB5FDC6EC72316A36B1C40E46B8D34577C +D29324E657FD22365B0EB0CF75A5FC4850CB01C0CA5DF313D803F077A870AD84D1C24E222306 +B63FBFA9C8C5E60D3BF92058D015C103149B1CDA68A3210F850AED00AB4602D27F87518857AB +EA50877B72AF84FA0912451E0644DAF0990A3F2D97CF60738645542C7F9FFEA977D224529B8F +F33C3619B353DB03280F7DEBB4E8E588C0DFED1ED577BAC63228C4BFA98B26B54F380000E243 +249D3DA4C59346F2D1B9A52C345E59268A8E29422834CE561E042311E9FAF59202EE04BD918A +7B87C37A01D513C92B2434635C96544ED689478691143B509B2C6C69281A1AC157F1F5733FBC +DC807687AC43F3061C289F490FB77190A9AFDBCC06B8BDEE12FA132C31793A27AD32F8848594 +B59218DA05F1C99A2B4B6752BD464081EA0422E9923C142F2F82AF40478D599A3E0DAD20B2D3 +0B4D91B3123F85424D0CC2DE70AF45741384774D6BA2618E1CD5B8E368A9864A1B15A784AE6D +A3A5C8D37BD8EB9F36169E75AADC2E003A77095A1D6418734CBEF0950F4F89A88DF4B9ECC307 +FF006DB24AE359EA50F88A2F661AAC87848CF8B9B8DC1E1290BF5C016E6D0271BBF4EA3EAD87 +04E5B744FE324C34F72D014930396B1EC9D07D6E367F82BF7D91AAF86927E6C25AE9D4EBB2DB +14E6D566BCA1669551CF23BA1D6EDD08B23CAB07E4F5341C57867D9DE6C0FCD6B3EFF6272036 +FDABF1D51EE6E45411746F2FA394C223175A376DD87249CFB5F7C2AA8B66682F086E9E52DCE8 +71B5EE1A7E78F88EF4953EAA49C38896AAC64F93D943C5702C5950EF614AEE6CEC088517BAA5 +10F3F7B0457A405E8FB128088DB2C2E0A68045E24D2A97D2B0B4236AEBF2D0F6318733D493E7 +A0A5033073F7C0315945E0D4C216C6731A2305D7DCC8BF195173AC4B2DAAC98F67D0D824295C +78186FAF83A6504847238661E1C952A5F94E5E8145EA958429E2CDC51F33FBF2FB01BE48BFA5 +62F6FC9528730C4F0B5D950490EBB53F331DCB7CA35548174F41D789D067749EC6546C2217AA +20EC9150BEAF486EAD61F96ECEBA285816D69C9EA87A5F4F78C770C0145BCE80D3D0AC78C304 +D5582CCEA5088861897A1CB2493AB8E5D2FB800CED6EBEFE852C11F6B51D623AA1DB4312A5E4 +4B263CB17B159160134D56A054A524E4489F069E2299E471FBD8BFAD699DFA38306A181AA1A2 +090BD6EC8DA6743B653E336231704CD17E195D46BBECBBCA2EDA287742F6DF275A0DCAAF0607 +D3F745D8B6A4DCC1DE41BAD45817BD810DA0FCFE3234795010B881605447D557134DA678D2F2 +605CF6CF61FA7AD0CDCFFB98753DB5F72041F352D10059166A62AD00651F9695FC401190F683 +7D4CF9F5EE5F6FD4B562324BF5039EEFC29473761F79DCFF26C84E3F3F87537E0FA687DD7C60 +A309E16B4644EFFF30F563C93A4F19CFFD1D6BEFB5B196149190D83F1989C56CE65DF02D1568 +5178ECA190167DB9CF12A79A112598CE82FBA5646EBB6F09527786FF4E63FE83BA32415DA6C3 +D6D4071802F91DD9AD5286723F1B216EE2BB0CB09129C153252574F8116C2ED9A7383C9C6005 +7026F370314DEA782F684118B8FD2B7AEA90EE6EAF3D282393BD5ACAB68CC515F2450706846F +623A546268E25CAF599489E804CD904B901B62370189B22BD372D98F258F6A7EF008F0013665 +A39F9CEE1F0BF75C3A4B7DA2CFB7380E700E6780E1A7B9985BE6E33F23C1E1B73A49492079C9 +1866116D3D4A3602A247F93FDCE879857B6B39E7DCC6A5E83E43F8BCD3E2034638FB13C69385 +AE0DDD757B70BD0B68F30CB021EC22AB84B3B9778C38697F4D7DC570B99B8CCDE7463950AE89 +5ACBBF795D98CD49B984D5F32302CFE9B2B83D7329C9A7BD620B0EC13B3D1638231B80E736C6 +25B6988854F694A63A6C1E3D6D5471D7FC9476712E5C8C3EE1499C635AF5C3F88AC96D2569F6 +56CA6BD9538998242544ED13B37DB3D39B54D866320877734B78D695A7E42F142523384F0942 +FFE17092168E4101B8A346FE357A7FFA79B3EA6CD4F3E7FBB3270174DB8CB47B35FEF44295D1 +9CDAB25B0E2A271771D9A88919F33E564D295E7D12AC5C54735AA6212D0FD1CAA53694A52293 +FEB035D8B38695C5AD47CB081E4B1C451BECA3F3611C3296C922F9E038414549F7EBC91F6747 +9C12C61E3CDD10A3ACFAF7105704E281671D4D6AB326C95A0FEE29D9807EC788A823D8CCF465 +C665F95124BE7729B414BBF7F8082D7E82A325BE9295DE0014B9B30062CDC2B959202481CC7E +27FB5FE33DEF3C5394297DAE0F90750C0FF4040EE25F0B573BB85E3BE66DFD7D83789E3F88B6 +8722FD09279242274BA35302204E5D43CB66AF6B721CA2257468B614B2C31DED9F9F3388147D +3CAEEA2EDFF6434D3BC93B502737897C22DDFA57A19334146D5AC90A6B6AB0A828E0096A4D59 +46FBE80C6BC83D6063A26B595CAA0194718929963AF391B4B6B30D4EFE0BB3447D1F902B1D1A +A7C7ECE3DF8442A8520B7DC09FA910462A59C9110EC5046C8C6EED165EA676D90087E5D8E7F3 +51AC8B28723AE01505882DD5D7FEF2AF51DB0DD47351E04C163A4BCBC78BDA5A40F20EAF8A91 +1C55CE196206C7EE50AA3524B5D6D621AEB5734E512F15F40847E1314744D871F984868D5CB4 +1157AEA1D40D3C3E9ED354337D60743B90D89D79A41B3EA3621D95A486BCFD63BD29C2DDC003 +3D035B1DB6FA07289D6350CF12AF3830DDE1AD4F5DF905A8E8552CF2DDC4307A8521829394CB +7AAB0E5D11C916D0117DBCA13C915FE2C436335480E44791CD6000D7B26F288C2EE876C58276 +7801B6569094385C387D0A7E730F2A531ED04C447CBB1D22DF72AFE21278C33677770FF14664 +FD5C576151813B8920667DDF8BE1F4AB716ABAE82B8195F37A857A548E9E517F3E185451D9F5 +B0C3E7915280D9C4578733125EEE57B05DF50734A5232A12E2C05A45F3F0E67398500DCB157A +7692B4F73D359B21BD9B2DE8DA6CEB94C74EBCEFE89CDEEFA90A36B2B48D7EB96CFCC0C5D37B +A2D0C2C53FD58715123ABF538389296891767E95F346CA03E9DDE2BBE7DC20E8892D9EAB9F8F +A155A92E5A1069105437651B5401B4C2B22EF3D200CE6150D57D7E32A0010266862CF39FBB7C +D5366038E914A3D8052C665267F8A56987B5F32D9CEA1C87AF343152BA9E40BCA38482B85062 +9D7E61546FD9BAF369B122F52C2B9BA03DADD9F80510F787197700C318EC8D9DD596033E9B70 +8BD883B7FFD5787B3655FBB6607550F4A9F347417638075C3B6A85AA6FF64BDCBF87E0B42171 +579DD4B17585B8F5FE4710EEE8D07406EF7D4C54DE3211602FB506C702EAB03E5940C945F62A +7DDD93E5FB4229960DC5A77396785539C9E29881DAFD6A715645F83424ECF1131BF03872EF6E +74D46A479007AC76042D98A30E8AAC686A528870FDAB8C86C7220FB1233E3EB7306FFE647CDB +5C4FF08912AA4B9143780CAE2417663237323630D2A87007C68E32F532F9B2173CDA8A228EC1 +98B43BAB30A5BEF545238651DF0329410EBCDC6936C986AD72768FC43215149150A0F168C8E4 +44AD667F9B0EF66F08EAD7698608B67B1D539DBCED275BF1C1A819C33CE0237040588C6EECF6 +169B0EB4AF0E87B5BD7BC8E56772A693BDFCB4F47452C060154122CCA75ECAF6AAF3CC7E6449 +251D9828C38F2EC12F2A9A70D8988BAE4B4F2C837554EF4828B04A51759EB6762DA974FE984B +4BD7CED360CBC2FDCDF94E2588DBECA96EC7FE932900180390261A4EAB3EA0667B4557794D40 +6DE82C873883D588D7E7C338DF50B900F5DB2D4B05B2ED185D6447C8E188E5564C120FF1A10D +6FDAAA5588C446665E09E3CE24E67E39A3E85CA803B6C61F1574584A6EE642639EB52A59B11E +E9E4283A9E15057E9FAFB142C983D4946E749ACCA1CFE44E0C990BE1F7A248B92735B19482C1 +18930FB4C1FF5E5F68BFA9A16F1FC41D2AF08B0B9121E3632C1563B3FF2BA8519E1E8290CC9D +6F39F25B7AFAE72E593E698E23B4495FD110D06CDDFFE71E8C74EF123B80A52E41F0D982D262 +7E7AD70B00572F2982635A7EBA7687CB41F9A93C257D18B2272D9C7938A0A43221BD62CBE769 +891C7613F52683B3E88C3C924F6A6CD41E55AAE0D7F8BF086902C405778A8546DCB8B598C4BC +52D397FDF689989138CDA8234D46287381EB945832F0055E3A0E125A68CC3517084FB3BDA71A +740AD8278522FBB8AB81F99BD984BE4F00EB7CBE95D01429B5EFD7174B01AF54A75AC8A2EAAB +A0B3FDB9AEC4BD7AD5114121E757ED0528A63A02D9F929593D45C6FEA63003DF72257B2976B3 +884AF700CC9AE4AB8E678A196EF111F2619D5448830E4DE5B49A52DA908677EFD30CC05A1630 +F26BCE7A77A9DA22293FF88239821A299A82024D42C23FC30AD2E424F47C97EBEEFB19924FAE +AED0D0D68492768C7F81564EE085747BFEA7B7A25C6A5C4DF97F1C618A518FD9E41DB5BDD70C +4BBC1B39BB23735DC1245634E9578C79AD42DC88D3B9ED30DEF362F6C00DC5A2DD7B4F9FE422 +1B07178C775429D55484A10BDA32135305298A36B485F8B06EA592821824BBC3681E3552E60D +C48717C95DD35302EF45977F04421C8AB8BBCE008562CE66BDC45EF5011F32D4FF67A04277EE +7ED16A6A114CEE6C41CD8D6BD8B80D8555ABDEE1B8706CE276B198619570A0C98FA8FA2FBA8D +36C988D16AF521924E99C233FBCE3706C3C86962A241D1BDCB3F5C5BAA3BFD78B3594DBF0B98 +0F1DEADCEFA694D2C305A0B646856865C9E91C6C7EB11F5FF2C9109D6A0DD5785B30536C7F36 +7DA48EC25912D951A3647D1F35F2EAF81C2EF37341F0DFBB6CB359D3800E7FB65115153AAAA5 +70C4900E12D7F4D77AC9AC4E802D54372628723A6BF47D67467AF2F28D6F723815323F12F0A2 +5F49244062A9DFA69CFC94FF43E148CFE2B03E92BF8DEC4BB67A8722C1B29307FBEFC4F28A3F +268C3FFC2E748DA19B2285251B8D8DD03059840496DA508FBAA013BDFEDA484B200016FDA2F8 +46C30E98494DBA60804144DA0CAD8EAB92D83DBC692C01A36CA1AE82E803A8B440CB0CBC034C +8E8E0F3F860B657489375BC3BCAE1D9A09E6A11C951D7F16A7B455FCAA3EE181085BAE3C3F08 +D37020F1E0BB1069E963CFD4FA4A2CCE5EF6BA378A539083E741F756C8301D8113D139D69439 +63B193584AFF9E13091EA58204F935EB9A404BE1D2CB1E76195BA16A28DAF88DA814CF4B8760 +41B9239EE2EF62BA8BDDF39228D948C21EE102216C5E4CE278E5FDFBC5100BF9ECB4F73A0E62 +07E2F30F48B4F2BB99A8ADACA68D4BBC1634170884A13BE57D31733C6785024A322ABDDE3054 +6F1B623552F95F98967B6F60F01258A1FD1BDBDC59B8F97D87B1C4DEB39C8C5B0C9B90344B5A +288E3119CF842192D746F4998BA402A1E9288F431AA901510195031F0213A0FA61890F5AEB8A +50BE87010E479B96E0E2574A8489429C660D715F61C129C6AE336F7BCC745801994CB0C0C97C +BCBFCC8DB4FAFB3FC0127EBDCEDFBDCD5A6652D36F17CACC29AD6823DA658C9AA3C233371F98 +AEC2167AA29B613FB634F827BFC3953BB88BD559AF454E8934028509325225EE97F39260976C +84093EE2F12A6F9DC2638E74E1189A19D01B62777BC479B613094D9DA7575A402A04125B7B8A +32D023B67D9212543FB11B5DAD8AE96116DF23B8BEE95DD8A8DA622C10E41889A0A2AC5C4C62 +18FF9A44109314C5D51A4B3A4637BE4D8C6C625522D62199D7009A87A20A7B971876B4B0FDD8 +145D309A1582065C0162B1015CB7B3FE1F4AE10D47A2915D034E62BB48401D4C2912B3FE79F2 +0F40D3919638C6CB1611138319AFC795F63A58F921C8F036915A000508A8A37AD554645D19EB +2AB9DD908C4F339C933AE2F1EDAA7EA4EF1ECE0CE38D21A2D29DB3595C7E29D3828344B026D5 +F11F0CDD5C5E14CF0B7449276DAAACDE1938246F8652342587BDF92D2EB1339DA52C813F315E +5003B289588E5EF3ACD15B870A93AB16CFFA3F66FAFB098D47FCFDEB4B098CC8590D6936A1A1 +47DC9308AC5B5888ABA31A6F7E7B6438380EF8E0A8C387959A1C4E9A073157968D27DA910D64 +B63CD9F6D743C79F349B21F5E40DB31002E1C16E09617C877FAEE00F66023CCF4752EC008314 +A5BF7EA5F431ABA8B689BC25668244E5284ECB9B084E6AF3377B49B57A1ADCC82F7F78C01A76 +7345881FAA0EBB8FD34AF091F7D95AC0E093C5A0C72E45D232B6BBED6A8AA7F03BC6DD808CC4 +A780291556CC44D19BD9124F7EF107BA09AF2FADF99FCF7AFF9D06D23E84AC4DAEF579BDDF38 +3E7F1CA8D7E4598397D451003E46EEC6FFA8EC8F47AA7C77D73AFBFF61F7D7EA3B72DB2B9334 +4FA0BCE419B1F5AC9B255565515A231FAC33E6FC0AC2BE014197DC592099B6C16349DCB441C1 +9544706F85CBEB7A11A5FEC510AD0D33312B1633B4CAEC00011E6FE0ED4AAFFAF75B91466B76 +067E2B3AB2156FB4770CD6E2158EF7A35EE962616117AC29AFE1DD29176DA70CA4D5F2E84FE5 +87205F9ED3E157DC5C1D1277AD8786EF9B16FFE7279587D12D480F652D6DB078C9BA51AC97CD +A0CFE9DF6AF9079A1B18B0768F1DC0DD158A3E547C30F86D7A5BF0B24CFC24093C44DC7B52BE +DD30246C249B27C9B85C3E01CE85A3DB809052269337E17C403235D65252B76192CCC278CCDB +E2E271C02BB6C29F5F8F7880ECA503B0C8F95DDF5B06DD14E1173A02B69DF3EFEE185C5EEE60 +AF26BA92882050F9971D94AECF5D50669418BAFE70541AAA6E45AD403667CB6A828391E76977 +D9978A669A7BC3D88209F3FABA853B189251292A808A538436A1B7293CA2BCFABD0BB9A95CA2 +4B0DE1FA6AE582E4F4D043AFB40554DDEAE2D3E14E631133E83CB294ED77FEAC675A6BC300BB +DFC5EF7F8A252C2858106C6088EFF6B5F4840490DE22A29E72585A016306682F49D4E0EBA190 +4B9C6B55AAD3CE93F677D3A7A10EAD86EA75BFBFC7AC55075074E05C1F820C05CF821C0B3CDB +FBD1E7C7E725E36BCD7D61BB32122C99B3AE9D5E68B957687099207E08B0395391F847C1C673 +13A7EE92338D26ED68C74C8D31D97571EC3F0B33261475C5BABA661CEDF49217C657C6C353AE +C16D4A8ABB103404539289DC428E332F8920D49865CDF0FF9AB53C479B08A506D4618B493D95 +407FF8082DBB67D9F8EDE8D898CA1FB7BFA2B745C344DA3DA4A5FA27598D0726528261DE52A5 +419728F7B554DC156E043C70B8701FA6A10015A312DD1B2C08BBB5572A151885BD99056CCB5D +374D26ED6E66695566CAD9C13D09F8DC1BF67AA39F06B53D616700B3A1B8583D419A7F9B9B01 +AA80DDB2CD1A61D5DD0FF7AB43D2F305931562DCCC77292387F160E2437F8DF6D8FA1993BF6F +8D8DCC035E309094800232A8ECD5B68265B32D5A716DE00D414376834B42ADF29D7E23C6D22A +F6E19A2E2187C6D5944065D2BCC82B4DA8AC92F18FF0D4375B7EC871EE647922BACA1DE55130 +F1F35BA4AAD322D91C4BE45C105A9512CF13A11F43480B379317DE532070A034477AB6006874 +F9A48B3B238385F30EFF9F0DD517B1D34FD7F1CD0F32EF8B8782AFAB27FD43C543DAF5D2BBD8 +B102A7C5A1F5AA0FAD479E97E058754B5BC760C12AC3D4E847F4C238B6E8E7F279C44DE7CF56 +F526B670FDCCB57C243DBF27654EF075C70C1D4D9097BFB8C30C6343E3F1E270AEC73708FA41 +F78652E52444E02D3AEB0C411C52F5798A2B31F838895CDA615A9F737F38920A72BF2185E761 +6915147CB3952DF779A9F8FA6EA544CE0AF9002A084A80ED8F1CDA2D49D7B34616E6D7803ECC +20A579F081338A3B4429B019D5EC067630AC45161F09B0C66B17C98BCC954CEA9F2EB5DD0FD4 +01376F8E5974A3B6C37ACA5E985350603EF381A62066DE92731F2B2BC20872E15DC5161398FD +B8F89B8B5EEC54D09DF8DE4F48B1468C0D3ABE3C1D918849E0B564BEBE2FF35E3034948F5F9C +BA5E9384DEAE94B2700D551D7272651DE1CBB15E0321B0379E44696FA9D7743E009D632D7ABA +98EBBA199DF17B081E4DDF127A949567B4A8CEBCCB7E1BDCE1C7315C041B268213C5B67163E4 +E33B6F1D00F68C07DE857E59A37C764ABF8D492A5E00DBAC4AE192B048FC31B72442CF9FB99B +343288137C34D796FA5A2DAEE178B3B6EF4DF967EE9642FF7D8B5BDEE445E98033539FD2B409 +2F7559CD23724BACA761DCE13A1C23EBBAE77431A8C5E6E1E75EFA372F1EA147DD99E991BB72 +9EEB88138D767C1D4FD316DFFEB6EEC1FE927B6D97E7C16503B56DB921FF119DD20E56567B99 +2361FD79AC03F651C0CE333F41FD8E1905D28DC4A4C516442D15DEF40DE082B544B4AF8D39F8 +B32C6984BD1D14A8BFA73160AA194856644D653CFECB088F509958DF6B33DE38984FF6D1EB96 +A3DA805DE811F4A404D85DFB5FFCB0266ED796AD65EEE0ECC90E664646D4D01B25DBDB42B0BA +ED79986A0249B11AB8696B2979F0271D7D7E73B964FCFA00A6EC2C6585F0D33E8BF389A063E0 +DAE68788094ECB0BFB2187CE209DC3A04D04515C0D3702F2BC4E1078AE8334ED51F218AB8637 +A212CF1C3A925DB040FD5EBCA8A9EE92592176D8A220B9F6E4163BD5B244E0258E7590C6CB62 +6CC707A0D167206B9E41BF06DBDC95DF50E29FE105D569D1C844273EBB41FB9E7ACA3A7362F6 +E0762D080B90C44D83A0EF659A0D8691F26A7F0BD1D5D5C2016C0894987685AB4C6A83B46F21 +C514DC7C988945D953EC0462360E2CC844BE9262C26C2A670CA6E94C8BCC3EB03C4F04E1BE19 +F595BBEE25E06FB2E2B284BDEF96E551F2341509682BA5782FFBB5C567C4F3D32CF1805C337B +2549125FCD07F9F52AC67B97B38106885D03E5A4A01A9A283C74ADA8C02F1FBEBEDA9960A3B6 +728BE0E2B09B26EC599FB34A5F1AAB102D50081745EF05F5290BA7F5077449918FB0E103FE7A +9DC2D0082423D46EB801F89AF69B135B094E7F100CD4B60F19A40C1C9EC67D451C1AF185448C +DB90E592EC7F5775B7CAC94939FAF52DB8926AA88019C1845180854688654C4D87AAC970D4A0 +165F2B2546CB3B4906407C0A2A1C5BA3FEEED6F83B4020FC99C2408E0508A7A0BFD74055B56E +EDA8AEA2FFB2D23B96350A1C22BE47697647220C2E1119C7A79CB410107BBCBE4B95ED5FA9A7 +CEC1364D4561D24A0C984BB8C607A33A5B05E9D03A544EE37FE321579E60DE95F3E73B0724B1 +BDCDB2456C5BD9755D4BF184B9F57315457323134936FBA59B5309853A1FA5C3F021EA2E2E0E +1318BF85EB3F3A6EA083EDB4EEAD91032878233907E1F6DCB52557CB79C71C6A8685A6CF57D8 +412E175728F8AC0EF05F954956C28EB8B137B2737B7EE68288BF8F015DAB00D476E640930829 +9747F83132A162C5CA6A84866ED857617A6916393910644397119EC2ABFC85572F030AE7517E +64B6AF62A903DBB8B222331050E7E886BE78532FEED6CA23D44D12C76CB380DF78E27D0AACC6 +91B0A7AD0B7F08F94B50B1317B0B5B904FD5F52064C7B3EEAE7CFFD547B6A48577C83FADC40B +D3EB2271149FB7ED30E42B976BF76149CE2E30CBFF6EE22FBB805AA0FD95A54EB08C54B6A213 +937B4D19CD762E2B5DF47B590CDB4C2BC2D5C6457FCAA34DEABB734980FB02107936336C8C32 +E2B34E857C67E6512C78E45AC91C6A16965406E6FA2204BC936BC5178CBB79358A032460D4CE +048960BFAF631F001E3B56A59D6E9ECC1E01E6076BBA342C8C28CB16D345E2C5282CDAA17C1B +CF80633696A059A34AC4BC89D3CD95C41F2BC6E3788F0D5D76444094D603263AF91D9883229C +5598E2574F063F7531EAFD72070339C45B97A75517432F675164224983BA2EEA4CD53B5340D6 +5D61C1F05E1AE053F9A9D08BC5003C3800A7C7CF614AB812B303C79640A2ADB778651E216C57 +1929608E2011EE03CD8F87B9AFCD40416B5F1288BC76303AE3CA17CDD4230BED6C14C793856A +684214F078C5F13363C2C5EFECE1FE02391776EBFD12305366A63086F0FC9EA928F13E8FDBE0 +572874DB83EA6A3B46FD12911747CFF41D6F06F185D3E8A3751D66BFD6E05E2CBEB6164757F0 +FB85D554D3C6CE70954B64A0F27C27436C4CE043AFDEB655F010FC7358F0995D4886603F8249 +EA74A7FC75CDDD99443AEC9DEDDB50525BDADAD7A4DFC1B30AD8836B98F8CF2E2251C77AD4AD +A710D806E58A79F5B61563C75908F879426E1BDFE0458317B7360772FF13F1E6273536244143 +0C303F35082A7C866CE11F6FDAF1BACF9C4BC2CBF3B522D328F54C30D447D67F42A4947F2D02 +24335D881F639C0DC34ECE7E531C0A1FDD4395151932FB785FC9CEDC896BDF0A897522D7C2F5 +1117445BA5DD237B8214E11D69E1A7DE358A05F8157368D342647CC330115EAD125FFD261328 +FDC9CB819A1DD5C055C7C5BFB6C14F0B566415F574556D818ACD23BF915EBBC1D5E0FC59AC76 +BAF7C1B52A067A889B181FD99B3DF3F582332DBF6A9218F12E2DD5D1F0D73670989B622F71DD +3C4AE97A62A5FAC1E428E1441217A42B2F188CF6CAECB2859811EE64B62F197015F6779E4BF5 +746C0A51DA00FA45000F9BBFA4BEBB796380FA759E2C78F2A83EF47D44BA783757BA946E095B +EB55C9B85EBE4FC2F1C970E2D90F1B32CF7BA86449994B25A9E343F133B46E6E6978060E37CB +9656ADF81C55DE37CF575DE02B8B4302A450E0765CFD990B30ACEB97826E4066FE5399FF86EB +CEAC23323E1F745325FF863E1BDB8B13E9CF1EDF184711B410502B9757EF4820CAB09EB3823D +9B5CDF0ACAEDF0F5E154C6403DB71A9C6905BF75297B6D70C353AACA84BF6278C1501130D7ED +DA613489F05C81221CD1046BE9E56424A6BEC25A6C8B4F2E6B4FF3210D929DDE81168463DDE8 +74BA5DF2232C9181A2811848A0560091D2A3D4A9C1848D5172102C6CEF05ACDE3295B10D2560 +FF899D3A4908819EF4C409B0944C0DC51721F8ADEEE0EC469361C4B725B09AD790CEC26B35A3 +6D1B6BC6CDDEFC0A24C3436DAE1B36921FBE188D89FC89DC8BD98FEC6483995B2F7A461B9535 +D70F36C1831E57D97813227B7B5885F5B09DE0B98BB1478F215C20F7389AA523A5C52E8F1ECF +BBB502CF3C1C3306E5332CF29BDE60DF86B4A62F3A654E74B29E2A31280506A5B0189724D3FF +3EF655E2DAFFEF673504F7E830E32F218E92BBDAF676BB38BF7BEBD0C7D345E0B9188FFA20BC +AD67B52D1B78FECF59956146E94ABB878D833C417C47BC3F827FA5FD849BE8ED6A11315A7926 +80756B0A80E12AF162839A9AFDAEC9A7E45A07210CC95207464F8AFEF7D769AB49B224632FF6 +401ECD14EA41F0E4AAA5AEB1CF3CBEEB82F8C9F51D2AD8F78D61F658088E24E5DDC92111C7D2 +DB07B01C20CA0C99867DEAF4E526835AFE4DB39EA65A360538A49C06AC78C819141AEAE6F55E +6907A811F754007F5A7C3027B63A2F06610B954BDF682506DF25BA2B35C5A0477F352753C847 +B4F75419428E0FA18AD8F1BEB792CEE0E985112B797B003672A96F2F064993E1AF4DF89B8A42 +D8C8A670D378261FAAE1E75135F540C822EB06ABAAEB52C4B7CED772B4F232B53C8CE38415E6 +F7AFB5CA59B8A931E1BE9C62E0FBEEC4C7F3C5EECA07CE2016315BD9CC40D4E36B3D1CB56BCF +6A64D2966CF9C5B6E3288176A29C96A6EE09B1C6048724F4AD94AD726C87A48D09081C585995 +F30D69CCE9F98B91BEE275753C679725029537F94BB76BDF93D696E2B4F694CEBBEC2C5D4346 +597C4178C21CA18EF1C99B7CE52F16E29723AE14F62546FEF60FB6B2E2A65BCA708EF884CDCE +DC8357B13B7238E40EA9E890579DC53CFBC4CD02C28FEBFD7F87F25B9C7B20CC9066E8EC6750 +8BE0556ED702F059521DC260AB1E2FA7096E781264C7753C643D9F2DFD0866D455CD6941D10E +E49BC1213EF78FC269D029D2A5500782F441F2448C50AA834A0670E527BC95332DA1F5ED1008 +201D0916B1805BE8F9C94F5B85BEFC34DCA9E0995B8C478B6C74AA40B93706AC1A3B93D20990 +6B37D20E57AE078C2E823AA90168FE9FC2D466078BD2B4DC3F58CA16A22E69E04A56B33231A2 +3089165203F350B80617559F2EA64CC4D928F6A50F4B45AFECD33E88F7D4955B26A781E6D6CF +98D1A1E5515A6EBB2D4833BD1C8DE7611943EA89AD56393AA8BF4F6311207641F87DF6B73AB9 +EBE400173D08700687F87B59B6DAD67DDA2989F892C1EAD238441947F707B4E4C3609B74E366 +8621DE94B2E992272B059708B3B6C775AEF66ABF6D7EEBC7089E6E75199E635404BD9567D0E0 +F052B748C594853ACCAFCC3AE1BA0B7D4E83E6B7164546F7F23E5C0764E5CEE13B58C9CFD83E +64F4E12F8CF98FFC0186A7F77F1D61215E12AAC516125D89A138C36E12ED747834CBF37945C5 +8A464DE7D19240F131294EF6ED2F4CDF8429087655961096765E4105D810E24775CD4C20964B +0B7DA286971C67E873F8B5F5FC1A9B5A3E78F3F2187F9D0FC192E1D48A3DF5D2C3E71D8F8EF6 +E562572C078DA4F358998D5D383C531C60773FB430A1FB6BB9F0F4150DE53F76DF2894B9AFAE +8C100FB938D04D7AFB026FD4AE3353174A28E48D5A1363C3EBFA86C595050599C9823691C578 +CBCB8482F5ECF641EE66ED133ECED633BA39D601BF76A1DF480BFABE12804D4EF4A9E9C7CE43 +682D9633A65F6F4B68A4F410E2D42509E187E9ABCA6AF01D00D5D1C2335CADC75577ABD90D23 +89EC7DE50313E176C575B7AA15C4F7D67D5D2347EC176E3B6F9F499DF317C74FF469F9D065CB +5A681F032D80753C11090BA557E86E44243917791F19D2B38C8BD5C8C40956729BB0AF3124B8 +D6511F7BAD41C8BBC19C14C80C79DC71ACB9F952AE9CEE47AB5090A875CA24CCD1B05941AE23 +1DE54BC4CC2557E0904D54DF1A47171C7D89634F55D39096275C292A082F6C610266110CAB76 +C760AA56700732E4949B10B41716D860634570F13F53F28EB18DF41956D0A140C779430A617E +2F1444290BE3E01C40837FE2829B54B4061A37D654F581B9A1F8D2516D6B6C768833F0C48C07 +AEB8BCA317EBAEFF851947EAF59D4EE046AAC2DBDC52AD0578C2E7C31B7D8854CEB5C646F6B2 +A2FF4BC42437429D41EA83E8042DE4D281A46611D41A85C2FBEC517A34186EEF859CA3239BDA +100987490234CC3BA0B10BEBED5A32AA6F181340431908E1386EC18E02F0068005554DA9F8FE +6F7A01AAB6771B21F4C140C2A6BF2779D9F2CE47979BDBD4A1604E4456A88B419D5DE05892EE +56BAC7B0E97A1715D74424AEF4DD843D02ECD563F79953DA737E65B17EB22B0308D8B1D45F11 +CF1A630C3ED10447BF8F9A4C7D772D23610417CB8F2E507ED35DFA33E1D734FB9EEAB3ABCB90 +DD9ADEBC0B3F392A0D66BECA529E78F273A01B82C297220226ED89B76034999AE268E890B748 +911B66840F8125E831D08DE03DEFC2E5B4C1AAC145B71FF2DBCA4AE38B8F77FCDCDF6081CB9A +B7CABDAB8D8D95E64A00C95AC59E5D63036AA0600DBBF1055D335EA55138D91E2218AC63A0F0 +9453820EAB44B648B257427AB46A74DEB3584A2F1C63D34D1889466FC89B9F63B76736141535 +2148FF67D5CB2C7E97B6D50F0E1FEC5FED151F25753426A4E620BE4EEC43EEB886A7F3574FE3 +1A61F1AC97CC1F6CF8C9B816BFF2BAD468E5BF49B0325F12CF749F194FCA3938D8A90FE6B7FE +3BE97D9FD776E8BDB4EF10EE10E2D4D5E0E36137632AD04328AC2E15DB60C42EF41CAA59C54E +821C3EC81251DFE66ABA66461A487E9AFA623BA2499EEDC1F945975A0BEB35D51700978C4AF9 +587A290BA2ECAD953F074965EBE0902544873A2114B837D1A962751DF6B0675C4BFF35B8CEBA +2E0895D473523E26174C16EA1537AA164097447BC37AB23BA8AACA7A4698FFB998D0A16E4AF8 +9C886DC1C66703C6844AC6F235A637CB6ADADCE9731B0C945165CE3EDD7C90916B748C1E9478 +3563CD7C26E991D3DD5A1D9F8E64574F01025670D21D7810D994B206EE18DA4549BA281A4C7E +3681CB6E5740DAA4D23936E3EF937BC880701AB6BEC6701BAA1AD96AB558F1E6593246D18613 +518FAB2777DB6272E12A6C214DDD451A2CC4457112E5AEC077D3C5C7267BEFE1ED0B202FAD65 +F0DCC5A81FDD8064D520A74A8E4681AB0A98D0BC890EF4752088AD3ED7CE9EB76B19921C6189 +4AFBE690147D7C7CE5BA47ABB34F3E3D64BD78E889FAEB203CE1357A3882DDCA0D75AFD593A8 +49F88D8ECF32415A1FED3D7B8B70411D2915788DE7590AA98D2CCDBC18D0AB18DFA931AF3334 +5899CDB558C01529F25CF5284FB7EDD1DADD969218DD792433D46048C03CEFA28EDEFC8753A3 +E02E4360DA71B44002C9D8CFDD6DE1F7EBAA50129DD8BEF23A90F80B171B6F0A7BEECEACDE60 +AA19CE028206976CAA94C4F0F86680F4842E570EFAC864F902C737B9485D16A7D278B2292E9B +7AD30815D3062758A2E8DE84298AE13366247361EDED91FDF0E62070F44F5AE87E3430877266 +88009854433BA7ACC6075E7A86CF80EE3D78BA33C3AB6E44304D7C210E2A3A37FED454E63148 +8D03C8AB630EB3A348DC590CE983B6ABBC36514217DD66BDE756080410DDC8DE12D203CB02ED +2C62AF3A6D382CF33C847A899D3D93A6F58EFAD4657A14E5AD91C1B8C0850EF1041C29A714D9 +BF0B14E0BB5645381C50187569C00405C83D7C1F4E7245095DCD1532324CDB8321DE184A3D63 +5F4836D3ED880C71FDBF1D229EE795BA56EA32474A8C302225580070EAD77460B9FE16CE9B3F +3E94C99C9FE7D2B1C972729B9F74E87E3C8B99D98D03D9F0BC233B93707DB2259275813EAD52 +FDEA614382C1F3611B1983037C5540930E15E4D781C64631EFF99A37F4A4A89B306FF8734453 +2D03A00A683F8252BA338954D921F661E9A3EAB7A08B9C9A52AC6C88B5B822ED3A4C44D1AEA1 +06AE29F97F713EA054017B51DCA4E4D9E7709981B78C301894A7F8778871A285EBD161AB24FD +62413E9327DA97A63C49E4B0C385343DD3B606C4917C65FF1EAC827EDBDDA6788D5B379CCA12 +3D284C0193529690E4F08225BD82E3E9500B2FA0549815A3CA092641344CEE7A969FD4B56B91 +A01E225AE154EF7E885974AE783D5D3CB447D302D2F683D73229C3975256087A2C2E4537367B +86852CAAB18C5B564A1F1D04E7CFFC52627560C702A268BAB2CE6E15F0C76702880FA127D130 +C630739E3CD8F1C0801CC76EA2433B33A1F803F06A99C3168E7FA497FE839C4B16D4E394CDAB +70CF95AD886F8491E680F757EA5F420F3948B29BFCBF505C225B7A078847E32290424190A309 +AB78858F27C2494E53A232E4F2751C13D58FA8598C55080AFA1FB261A6BB08BC8D5E3655E958 +48726F36E189076D6F6DF7FC1C502EC5ED87E511F8978D47906512D58A2A324FA04570A3E3CF +C1B925962DFFFB8B033C4D15C273314171036532FB822E07B8152A50BAB90D34097E0C7DD364 +A8A37658DB7EEDD10A54471313C1D130103AF924D3CD448697ED68B325A69D36B388F06808EB +D0B3AD3E5BBB26F25B3E44EF8185B2A3C9905C32013343D896E5324478228EE8792AD23F0864 +FE08685661685B4005B52209E3AE6EA4DF3D1E5961E7E8EFE76F9AF101E71AD5714B9B987708 +2D321C9F4CB431076E11BBA64DA01AEFD2F32E139FAB830AC50C8835A568740D8822D9DB2CBC +52D0B2DA29B1A5C365E1A5F6E25915B51395961A2603708A3D38853A42A25EDE494253F2128D +3A6B0CEDFC78787F7BB4FC4A7940AB3E77C630A0C2C099454CFA1E6FAB9F122DEA8D072A49B2 +E3D6BE93A9CD219DE5F7A827ADB751210000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 + +cleartomark +{restore}if + + +%%EndFont +%%BeginFont: CMR9 +%!PS-AdobeFont-1.0: CMR9 003.002 +%%Title: CMR9 +%Version: 003.002 +%%CreationDate: Mon Jul 13 16:17:00 2009 +%%Creator: David M. Jones +%Copyright: Copyright (c) 1997, 2009 American Mathematical Society +%Copyright: (), with Reserved Font Name CMR9. +% This Font Software is licensed under the SIL Open Font License, Version 1.1. +% This license is in the accompanying file OFL.txt, and is also +% available with a FAQ at: http://scripts.sil.org/OFL. +%%EndComments + +FontDirectory/CMR9 known{/CMR9 findfont dup/UniqueID known{dup +/UniqueID get 5000792 eq exch/FontType get 1 eq and}{pop false}ifelse +{save true}{false}ifelse}{false}ifelse +11 dict begin +/FontType 1 def +/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def +/FontName /CMR9 def +/FontBBox {-39 -250 1036 750 }readonly def +/UniqueID 5000792 def +/PaintType 0 def +/FontInfo 9 dict dup begin + /version (003.002) readonly def + /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMR9.) readonly def + /FullName (CMR9) readonly def + /FamilyName (Computer Modern) readonly def + /Weight (Medium) readonly def + /ItalicAngle 0 def + /isFixedPitch false def + /UnderlinePosition -100 def + /UnderlineThickness 50 def +end readonly def +/Encoding 256 array + 0 1 255 { 1 index exch /.notdef put} for +dup 0 /Gamma put +dup 1 /Delta put +dup 2 /Theta put +dup 3 /Lambda put +dup 4 /Xi put +dup 5 /Pi put +dup 6 /Sigma put +dup 7 /Upsilon put +dup 8 /Phi put +dup 9 /Psi put +dup 10 /Omega put +dup 11 /ff put +dup 12 /fi put +dup 13 /fl put +dup 14 /ffi put +dup 15 /ffl put +dup 16 /dotlessi put +dup 17 /dotlessj put +dup 18 /grave put +dup 19 /acute put +dup 20 /caron put +dup 21 /breve put +dup 22 /macron put +dup 23 /ring put +dup 24 /cedilla put +dup 25 /germandbls put +dup 26 /ae put +dup 27 /oe put +dup 28 /oslash put +dup 29 /AE put +dup 30 /OE put +dup 31 /Oslash put +dup 32 /suppress put +dup 33 /exclam put +dup 34 /quotedblright put +dup 35 /numbersign put +dup 36 /dollar put +dup 37 /percent put +dup 38 /ampersand put +dup 39 /quoteright put +dup 40 /parenleft put +dup 41 /parenright put +dup 42 /asterisk put +dup 43 /plus put +dup 44 /comma put +dup 45 /hyphen put +dup 46 /period put +dup 47 /slash put +dup 48 /zero put +dup 49 /one put +dup 50 /two put +dup 51 /three put +dup 52 /four put +dup 53 /five put +dup 54 /six put +dup 55 /seven put +dup 56 /eight put +dup 57 /nine put +dup 58 /colon put +dup 59 /semicolon put +dup 60 /exclamdown put +dup 61 /equal put +dup 62 /questiondown put +dup 63 /question put +dup 64 /at put +dup 65 /A put +dup 66 /B put +dup 67 /C put +dup 68 /D put +dup 69 /E put +dup 70 /F put +dup 71 /G put +dup 72 /H put +dup 73 /I put +dup 74 /J put +dup 75 /K put +dup 76 /L put +dup 77 /M put +dup 78 /N put +dup 79 /O put +dup 80 /P put +dup 81 /Q put +dup 82 /R put +dup 83 /S put +dup 84 /T put +dup 85 /U put +dup 86 /V put +dup 87 /W put +dup 88 /X put +dup 89 /Y put +dup 90 /Z put +dup 91 /bracketleft put +dup 92 /quotedblleft put +dup 93 /bracketright put +dup 94 /circumflex put +dup 95 /dotaccent put +dup 96 /quoteleft put +dup 97 /a put +dup 98 /b put +dup 99 /c put +dup 100 /d put +dup 101 /e put +dup 102 /f put +dup 103 /g put +dup 104 /h put +dup 105 /i put +dup 106 /j put +dup 107 /k put +dup 108 /l put +dup 109 /m put +dup 110 /n put +dup 111 /o put +dup 112 /p put +dup 113 /q put +dup 114 /r put +dup 115 /s put +dup 116 /t put +dup 117 /u put +dup 118 /v put +dup 119 /w put +dup 120 /x put +dup 121 /y put +dup 122 /z put +dup 123 /endash put +dup 124 /emdash put +dup 125 /hungarumlaut put +dup 126 /tilde put +dup 127 /dieresis put +dup 128 /suppress put +dup 160 /space put +dup 161 /Gamma put +dup 162 /Delta put +dup 163 /Theta put +dup 164 /Lambda put +dup 165 /Xi put +dup 166 /Pi put +dup 167 /Sigma put +dup 168 /Upsilon put +dup 169 /Phi put +dup 170 /Psi put +dup 171 /sfthyphen put +dup 172 /nbspace put +dup 173 /Omega put +dup 174 /ff put +dup 175 /fi put +dup 176 /fl put +dup 177 /ffi put +dup 178 /ffl put +dup 179 /dotlessi put +dup 180 /dotlessj put +dup 181 /grave put +dup 182 /acute put +dup 183 /caron put +dup 184 /breve put +dup 185 /macron put +dup 186 /ring put +dup 187 /cedilla put +dup 188 /germandbls put +dup 189 /ae put +dup 190 /oe put +dup 191 /oslash put +dup 192 /AE put +dup 193 /OE put +dup 194 /Oslash put +dup 195 /suppress put +dup 196 /dieresis put +readonly def +currentdict end +currentfile eexec + +D9D66F633B846AB284BCF8B0411B772DE5CE3DD325E55798292D7BD972BD75FA0E079529AF9C +82DF72F64195C9C210DCE34528F540DA1FFD7BEBB9B40787BA9351BBFB7CFC5F9152D1E5BB0A +D8D016C6CFA4EB41B3C51D091C2D5440E67CFD717C56816B03B901BF4A25A07175380E50A213 +F877C44778B3C5AADBCC86D6E551E6AF364B0BFCAAD22D8D558C5C81A7D425A1629DD5182206 +742D1D082A12F0780FD4F5F6D3129FCFFF1F4A912B0A7DEC8D33A57B5AE0328EF9D57ADDAC54 +3273C01924195A181D03F5054A93B71E5065F8D92FE23794D2DB9AF72336CC4AD34015A44951 +3D5F74BFB9A68ABC471020464E3E6E33008238B123DEDE18557D712EED5223722892A4DAC477 +120B8C9F3FE3FD334EACD3E8AABDC3C967C61FF003B4B10C56D6A490CE9594D57A2D431B9E5E +10FE3D8832E227A7087611431ABCD02985F4865E17E17F8CFBD2CADC97E0A8820E3ACEC873F3 +1464466A9545E967E53CDBDDB8478E69063FBB891566BAF88B7660A4405B16834761F041CCF7 +650AF955F9E853AA9F5F4382E1FE7D0C5BB4023818A2383F91249D48CE021250EC9EEB1D2835 +E18FB73026250B189C6DC05F099EA1D74F078912E0F737DCC54A56FF75D791A379092CF27FEA +42A159B90DF636A770108B850365F3099CC43B87E443CCBC55DFEC052E8F00ACA8542A3B4085 +282E3199F842297ABADD60BB95A8434F7BC5A8BEEFAB9A6B43A12CF751004806892E0391F268 +CC599D758E8DD90D8016DAACE5F29A8A723BDB10408860045B87E1B327E17A5DA679F62D0E0F +E601CC16666132CF91515376FF0A82DC0BCB386489F22E4722D91F760BA65EA75BB09F894DE3 +7CD6CF5CEBAC16CA99187BAB7A75DD91B71985CF03F3FDCD53DF617EC008D7D16FBF7D262ED0 +003397CD64FC1B6A311A04201E7FA5D04155E6E95D2DFFF07E766CA83278D0CFB9BC909CD4CE +92C1AAD4E642408A89D25F1AD0AFC4A949B275A6BEC5509DEDC234F5B6DEC8B7BDE4D0F4F891 +068A0E32638CAB99A2C0DEF8ACC121F38EFD22643958EDF4F03A5533FD4D0FE13C102D98DD16 +12103EBAC2A9662C4495635F4F792B575C794E6AF849C1981B9769220A5C406014884FB5A4A8 +3ADECDC8DD4AD40B261A791B42D8406101B07D44A7600834913D02512F794FF9F26C57F68AC2 +3B580D9A21D0BC7AFAE48A09C4AD9C896FC5EBEC5894C56D590592DE393F9E893234278B5AE0 +5963F1C6355126226B694138FBBBD44581FB44DF159703FE05CED9E4F07B0C43C437697D18E2 +3C8969685985274138319F8AD3DA33E3AEBC95EC587A2E7F7E50F3958A4C0A1F1826A513043A +E04560FF6C5F449D32F830158F202F2A540CB77FF4BB26768E944F2E8DB3B39892D4E91C6A5C +DE87FF4DC8701183F8696477BBDD5F789DCFB29A52623F57FC050BA8E58748AA042160D5D281 +921A47F6ED74F02D2870907E6F8FE9926DCF76A81A115C5B46F7341B97BD12CDF4F5FF3EF701 +6A97F19CF0D45313B09C04B3C8B3C4112D9DBEF4DD3A924962CD873357CAEBEE8E354BA76221 +9ACDBE3F68EC4218E336BACA808734444ACBF05DF444F048499626A90A389F1F4968CB0F31D8 +8A97441F31ECB23039E95B77E637924C2CB9E251C02D97EC0D691A73B75383764AAB116D9B12 +D231E6EA017C045C7F566FB626D85572A9BF48A8AAD83A412CF1CDBCE51EF6660D4625C00B37 +AB0D8090AE5646155AB379D44E87CB3CE15C7CA9AF73F5A71FC2F103E8F3DFC32637FF1F9EF1 +21986D0B877E7F8E7615442FE094742C7B047EC4067358CC1EE68AEB0ECCC89F8F8F8A67A240 +1A1A0F29F7F2E24D866D9FDBDA10BEA452236581BE3ED9122B00272269D6BEEE8931A2FBA821 +1C3C6D820FC352986126C8E523F52F29AA56F8E16E041F9CCDCB963D45A7BAF693B596580EDA +4CD722B8D48D16B35559DAC9148D1C29C1229C1951C2021E773BECE3F38F22ABCA471C868766 +3854E3EE2CBC98FCCE17950C04566878D78235567306F0E27EB05F6ED5458D1730ED58E8DD95 +FDC655059D17395381C32B5F6A83900F7A3C8395CF6744D679AB5D9153D223F0CCFAF9B8217D +87033F07843E37CFDF8BC2A88862A23CA99231567825DFF6EE685EC32E426E84DACB63B762CC +C053F2C57FD4090D2A140D0FBFA53B0AC07B55BB5E33A71A998AE6E4B371E1C5B9D18F63879C +FED8325DA0DB8FEA70AA1A6A2E532344069D3F4F169DB3548EC4594254BBE0C13255B574DD9B +F0CD8F3EA3358F49E0C1C978BB33C554180AE6A5268114CE4B5688B82BEF633360C41E7EEFED +8145DAA39EC1110FCEE74722CC978985CBA50AFC3C761A0BD7D7BF95B26656574AEFB5000B8D +A935FFAC4117E4499E1C7C4502F53DF7724B23549FF120F8EA8FB10D98CF80A12AEF60D7CA15 +BC0E88DC7BEA533B579779274FDF3655C159298CBAB05A4FD551A7233ADC5C28278DA78D1DC5 +42B6A3A3A99A4292F9CBD23629ED0C500A2F06C8C4D87670DBA4822F5F453C5E0E50E34C16EE +441F285F3F9EEB05FFEEBCE12E7D5F3A7D5BDB57A33AE49E3160FEE026106DD68093563D2A7E +550CFE1ACF9D5D27278BF8D9FA048CEE5E7D3FDB46A5CB2EC706B99B5E3080627D3537DF53A5 +BE4F7576684C21D7F2497F4347F7A278B03E6FA06A3C839AEDD9AA912F73F6FF27644E23E92C +79BC7390FB1AE75EE6651BDE374FA2EA2F596BAAADFAC418037FA7B2667F96D91ED6E77E5758 +291F7ADC4CB1741255B9EE8BEDFBD2CFB345737DFD9101F9642CB48310ECF8788DCF3AFC916D +5DB6D3F418C63AEC7226961CF96ADB9F9DB73F1282AC2ACD0E5783CD45B3B4B04852B6FA51A3 +1735DF44A2D12D759F59AE9C1200FD871192076A0E32D5C064F383F06CD1E3C8E88936EA968D +9DF131EA45E20091460EF3F9B7E129F96EB93E528BE878DF8C775A484231F974AE60D2248952 +813388BB323F1E5BD540433D248DFEEB7021A3D9BC622E69C6039C71D028A559C4D9799B01C6 +2B1038B219FC24F98FC19BE2E874722D8C5CBEC787B1CDA23E672CC854C73F7E24650E1E155B +F5223DA151294ECE3F5A083029A1EA33FB111E53A28C849009FB6AD1AEBA7F9B785A74FA9883 +6F2FDD82271717C8D73CCD5633FD4BA46D5CBB372AABEE209A47FF92ED79FC3EE4B667B7D14E +08C693FD836200E57FD7326435C9F5A45F3C24C1EF00CD59D6C9A5FEFCBC2D778241E5FE7627 +5EBD25AEB1079F2CC76611FA6890AA450A06701EF29AD1BAC73060817E82504738314F7D68A4 +682B9D4E24BB2021A8A0BFD3633807056CFEB325495E941A6175B0EECC2B81DFAFB580475FAC +2382588E140B0CDDC3238A6936891F1FB86A487EE9A9496CA8EC14B2CD5BCE38A42396C06F76 +77BD6A0604E64EB807E0465E545C8C22A0417268289CC2CBC10B20086EE87C47EAC2B7509AA7 +5A58D9D82E3F2BC1A9A845BAE596C06EB5182BE0BD0D40D3CDE4E626E76E0855195D565FC98A +07561D603E4D51C5092100739359B66C93043644EFCC7FD710C7EF102C5C204269FE94A61D29 +1F0FD77F400C3334B14CB60CF9C92A23DEEDF0C13514FC7581EF8687EE196A3FDCE66A70C01D +5C9C119E77C698EDED6EB3EBDC37262C74ED8347203A9FFA77DBB3381A187C4D7682B48A82AD +ABCD19BD8533F36D102D47C60A3CE82D4257FB1797090FB19628B3551216F896FD5743F5327F +384F914FD3422B7BBA82D974B20EA8E6B8840865849A77F6FC63DC97919C1FD7699E3C2130D2 +780529920D8105250E22C6A9BE0F40D5BBF86A7D349E3386F5A4EB2A277249300A4C4F762F29 +54AA6C8B37352A78CE88478AF673B401F15D96F8CC5A0CE99E4AE825C586668729456BBDB133 +F0EAF84D5E80BB206B06D9DC003979647EE187FBB07D2499BAE9CCFA7E5FC83F21FE2A8A21ED +2B725823F538D0FD5A321070AD4C08CA06DA5B282E1D77BDBF5CEF17FE0BDEA9298D92E5CA10 +665E23F8BBEE67084A8FAA504D4821361D561F1680F234693B6DB89AB457087691F82DD34329 +B298BF53CD16B842292774DB17F7A198E80F9F0DE8238BA253BDEB3BEDA242551C3FBCABF838 +D5158E70DDFD14FC66FE7C4C0B94CF367667F24A6C1A7703FBCAD655370E700B49E89B453C06 +BDC62E0D5BFD28E3DDD516B4765B1920D1B20ECE5B4C66668326028528A467A7FFE27578C5AE +B2BE2E091BB407300F359A2C9E86AC0C7B5A0D78D6FF4088E0015896EB9EC38A04948522BC1C +CC2629DE95F2E219331B3BA9DDB34A31CE0A672C36DA6B1C60FB0C4A53BBC1728C957327966B +3AB200D0D91E98E40C690FAA22401C8466FE1C1C6A5330798E1AC567018FF7D86AF231C8E619 +6CA53FDEA9D914A50D37BBD2085B65F90E4134F3359A874ECB9143FD08FF63C72FEF02D1B009 +51FB09203795818A4C03F1F122E8610077AE5873EA0CB53BEE51498BEDB24C672159772721C4 +0D80ABB725AD65354171F3940A8587039AFECC6B3D790241C7BF94C2728C09003B6EFE8C0E64 +77D6D016A2E43BBB166AF5E5EAB07B44B427B760BC7B191245E9DC6A5279A65371ACBFB2B5D6 +F28B8151EDE64E0C948EF2C03E7D06083F5327A8B3319F73571FDBD13A18CF7C4F6215985FB3 +4D9D5442E70753A2E3BF6B31B4959D0CF25FD12B6C4A61BA75E0A2BCD05FA8C651B24EF7E787 +0B253AC7BEBA1EBD11365C26D07E0FC2310C2B1DF016B7BA4E7B4B58D93F227FF9B985668D3D +D2708C11D1062B66B271EAA39B5A44F2B88C9F62C6293F109A047F6E8EE6AD21AC5B1F1EEC80 +8F2EE1C41F6CADF880F338856127DB685636A1E523FB1AF87F459E72EA0F6DDC2653248F2CAF +854CFF8DDAFF244F52401EB1E1F2D269B926067D2AA1B835C1F8BA7D612D213E4547606BCFC6 +EECD65DE13491286B2C22124B516027D55E8ABA71D698469544C4269842D650F410248D7CB53 +60A6FA4EB5C154D6433EF014C565096745633284BAE3765352A0E6248F4EEB81A6B36F9B6D5A +3EA5D19E595CC7787C6D0895826B3E321F90614129A66C53E4F945E30C05C8599FB4ACDFF5D0 +570388E6EDBB219566E01DF40F5BF67B60DD3A2E821CBCE23123530800CA75D10BDC2B4A8F2E +CD6905B8EF66DECDC5306639CD5939D4B1E35441A099B197DDBE4D6E741C3AFDC81383194969 +1767D24189784E58B0CAF86708D4076C5FB2E98B919951235EE4FFA80784675D75F798DDDAA9 +5B9A52A323B7497623E19E1F7838F6042C3476A776047ED9C1CF191A337666F55594B74AD0F9 +C7D118FB4EAB6652ABE037C6662E04B09B9C887AD17B9A5102D31C7C88E42567805B0F9A6596 +492593CBEADDCD13563BE2444371C19177574DFD6AF439CE659CC2F6276D5A97D1E1CB93E045 +0E5EEAAE29295658071A7E964927BF38F040DC971DA34647A765E7B0BE81E409C30627251D70 +2A288CC3DFAF2576003ADA33F9BC7F75B77A6F4F7EDC2ABD20222B9BDB73D492DE2D01469D3F +0C98740D803D81EB9EB2E6812B8072AD4ED8E3DE7729E42B199CFBC34A44980B5839ED53EC50 +3ABCDC6EE53553ABEADFCE56825AAC19B55419C62760BFA14E0BD6E9B260A4B206FC4FFF6F2C +1D140BBE7D3DDA16A14467491E573C4E48B53BDFF385F2CCF3D2221C4C4440C730FABC00B0C4 +CAB1513719D0F98BE804753EAB4347DCF87738B77C1258526CEC2E33627823750F92C5213D31 +508BD2061973E5269B1CB3FFAA8978F40DDBCEA3BD12F6F6235BBD2BE8DAAF4F77FCF71EFCCF +58C8F2F79249E58B8DBBCE0C38C8ABDFD3BCD034E0FB62D9830E72A764D86FD8F30A5B1BE9CE +52574BCA215CA66BFD975A17982207BDF765C629C2E78E5C060E35DC88165367701115AEDB37 +6841001999F7E72D8D4B4075A262CA63034F181799179BE415046D323D18B65ED4356DCE7DDF +5E4DD421976F815F8649EB45612319C669AB21548CFD6F934E08C0B9B259A03A22827F86BCFF +D904D746C2E63FC9E69F62255B9739A97E1B06EB84B52626DC0084897D74FA7ED81D10BDCE53 +370F46CF76FB7EBED453663C55CC404247539EE25F09FDAC3656B57CFF15CE4305267F2EA785 +D00295E6A227F7B95BBA2554BCB83B35FC43C623EE8DD1DAFD542F9B4B58BACF04FFBF7C4307 +208205A814D2575EBB420D3E6EE899EBBC67BE0113A94C9EBEBEDDFD70973D3B82E1BC63FB5A +68880FA4ADB9B1918B2461EDFE075EC0784BF9999FEABE9999C79268D8C8944DF6B277274FB4 +55A7A7D6559BED30A2250D2998C39E5CF6B4F1070DC891542B9CE056076DE5D679816998335B +6575884E7E877FAF606B468E4C72A49F964EBE8C706D53097753AC034C0D4AEA8760962E9762 +CF447652973AC2B52E4219BA7F1FCB55110B6F0456CC659279105BD63D9EA8C717D2A477D06A +BD961FE8D9ABC2DECB0DED57A841CC1E3EDDE6BDB5871FCD68453546D48351C8B8734C2D4115 +1380E1C8638179E20DF52269EB5C65B3425BE84E5FBA4B747E8864F87F6030D9EBB22AA62B38 +AE62AA3C74A535BB21DCE991E871088AB58DB2D1961B835C6F03D183B79E10F4D2921E7ADA31 +11AC0CBDE013236A4253956044E46C498B57A7101BEC281AA9DDE036B29A87FAE9C1F6F8B63F +8F4DA449E6FFDE3B3E2C23483F82A62077F4F987242011892FD7E1A7DE6B84C10B71195E69B5 +9C1F183F2D58B3FEA46916990384114D582D350509161F23479378C0D7395EA5F9400D981545 +4E82FC4CC816AD4077553522B312473D8B7BF4ADC623B4FC941F7B5E70981003F0880ADD6FDB +46724A4C06932B442773B9E85BDC78B78A04B5E04D24EDC7582C32FFD0587C0E643D15AF98D0 +F4F186EF9C470FB00B1F182351A2D7E38326896A59C6D66C489CECB81D4B666C79E50F4ABAD4 +44D96BA33D3F9D806947C03D6626BF12CC1128ED78743D51686ACD7F3F848A07D92A1D891333 +1ED31ECEE25F616E34FACA28AAF857155796267E8D7EE79BFA0CFC8FECFE72A8CCDD0CFB158B +A4516F678898EF1CBEAB2417A0A6BAFE91EA9A3D073152C3DE33AD652DF209FAB479C68E5031 +CCF78677779EA7A6AFCAB70D279B97CB440E555365691D53AFC39B90F8CA00949CD7017E2307 +A3221979A243C94F908E2AD63A5578CBD0C200262D29B33686F017BA25A79EB0F325036AD88C +CFA3D5F65808C5FE8C55D882862F350FB8C7B043E3AF64061AFC1E10A5F79BEB6398671CCB6B +918DAD34C4955F8A0A4724EAA84863E914D15E66F0C39CA1A1D4321C26BB424B78615A4B30B6 +9C30203DE58B3C88CEDEC656905DB5F053A25CF1B0F5EF561BE9E44CF5822EE214EAFF83766B +9FEEB512D98E0E033113B7BE915DC960CD072B3BEEBC36161E1832800194A42D3584B0150D60 +5CF6F96DD09A73B2AFF365E224809109FBCE5516335CDD969C640406A0BC455F489B6D4A9E48 +A83F2C1AC6ADF76EF1F6ACA36A4CCF79999A697AA0F8CB8C2399B8CFFAB93F429D0CD4D3D0A1 +8C038D1C0BD4A65BCCB18227DD937B64C0BB97C0AEFFF4FE0B071EE4DABA928C2BD66BFF42E1 +DFCCDFCDF49B09F53F1A3CB37062C1A2ED8A87E59DB1F74FE75B0584F4076E4BF5E4852F9DF3 +6D5016CF4DB3601AFE9FD5C4C2AC6EF1B7E58FBC86214DB4B490FFE4F836D7BAFF170A8D7689 +BFAD2C2EE041A97A349D111E861A83C9C48B0145ABC3582FCE43C5D121F0EB6F776157B26452 +9D66A83106027D4DFE746034688CD8F47B0CEA7F17946BC5E285646A5DA4C2A3BD12F0A43BB2 +76B73F6F241B770D2EEC74DB621039D14F3C7956CCEE4E7E9AB5C9B13EA991A2B86604014769 +8FC44683117B167731E62CDEECBCE76CA717C161096CAB6ABE3944DAAD5684B4E74B69E627E3 +51B9977C2B939349E0DD57077340219A3CD83BFC8278DB38AE4043424C81FD0F073891CCF510 +DDF4CC88CFB52D07DBC8E92CFC867BDADFD26B48E6A55BB508B654236B6D6E0D8B344B3203E5 +50B489263FFFA20438F0184647BC518BC0BEACADF4491AF8D5C56EB94A6815412C9200C5AA07 +983CAC63F64DBB5F3770C602E6DDD5BEE6EA025DAEE83D5A4C993290AE8C0619528800AA4057 +A32B3AD48021700C55203445CF748D1F24E11B78183647DC04D71F3CE00A4D3D7542BDB04BAD +D357C23E940B655376F5FE64697268B204A62D13551FC49C93448319FBF9260DC93BCC8F70DE +DC358DF4576C7384213E7FF228B69E1840B72B24D1424C444B9D6F5C232D63CD4F8B5C2195DE +9AB9EABCA81305DB9841A385951425F3CD383C589CF552A4181DE0670915C269CA5B435968C3 +73904CBF841377AE5DEAF5860E21E32A42165C8353C9CC1F092F4287D7651F4644CF51DAA81E +AEFE6BE478B8AF7F40D93DE7AE48E9CC1108F9AF189042DE502B6A484B0A702514C15512DA6C +6A51F16A6DD8DCE17FB1BAFD7D117F2905F7FB7AE35908A81B4AE884F9D96ED1C61D6CA62BE5 +88DFAED18DBB716F848A5F4C15955DD0CB5C9B7DBCD1BEBEEE5D47936BD9CFF3C3A2A47DE6A2 +935A5351E47968F8C5389BC7B4DDB26A032B99C541D7616E6DFEE9F1EF82F59D06AD30D7004B +15217DEC9FBFAC45A39179A977BEB36A2E98DD78E138631FB78BB34B51C9B4AE7A484B211AEA +85FF2093E052E9F695415232B759A4516C6C2DA23945F944269DAEB43889C7AC5AF18449793C +95CE07667ED6D148D3611BDD489D925CA164D36B8BE3A7B13539E901214D376169F16676F14D +E2955D6F18F06C1F26EB2DAB67F071D6B92B62F1651CB13EDDE1D29711B655EFC1D03DCD24EB +07E2B6C129C4EEC4A2CD0F93DB7CE80E91F06EFF37DB4FE4ADDC41C9CB282ECD05A3ED434571 +460E34ACD34772452B0973EAD1ED46D6B8774891BDC33F9A483D47152B6EF30AA8DBC86356F0 +507F2893D74A38291CB7AC5C95FA3143919D8037CE05504F8730526E9D7847863534CA5B22C9 +4655B5AFA1C372DA6C6E5F4AF3FD6733CCCB734D92BEBE322F29F25D91160A424210DBC49182 +937AF0AFE2451004D133155383EF6400CDE23B8E98F06CF72B5D3FD84E73720D3FDEEB961E27 +04C6A8BB7DE7254F88D9BB1764B75071464F3057FB802A8A804AE20BEEAE93DB98DE23ED9FF9 +D0BA6F82F9C121E43A2E90241D791E047FD406FA2287681201E09FC721F3FBF6C63C2901CECA +8BC8C08A31DE347B703D97D87998B40C641CD9B73BAD06A62ACA41EA86102249412EC6029490 +5ABDF63E22226A44404E83A57D294386F926DFB30E4E69B1ADA04C0BB921CC729BEAAB1B74EE +B7B9085AD927B465D01E0FCD4457526D64A3B9FD70C127C4A31F0982334E7A9FB96EDED7A4A2 +6181DFED9CBADE04F48322A04A9B7222DB2FD1EBFC8A741FBB2C2B7B8D53A63F9F1D30B9BF64 +B0365331BACE6BDDFF67165A42F70AE0EFADB3046A65DB2DC777AD6499394EE2DB30D98852EE +734A68120DDA56FC6ECD0A79C6C008D721B9B27BCC0316F884196CDBAE8F16946CD516BD7EBB +ED5F359EC5BC40A4081B4F7E985663268ADB10008DF6D59F1CC4D51744A45B2B404E6CFBD8BA +F9809930D703FA576360B242414AC1F955CB31574E096F1C03C3AE5EFA4D9CA0B3E3B7659B13 +AEA47A5AB0CC5C2449FDF041C07DF6A10D53C18BCB8BB846C142D2C42FDB45DB65AD2F2D3AAC +C06F4BC92D35E0F7D88DB63936C6FEE712010D7D07A8BDB9FF462F109936518CBCF295C49DD5 +0C003201BE98B9E03DAE37F40B347AB39B1093B30D44F25A2984DF4EB668753A53512954A72D +151779B70D80114908DE94C8F0FB1214995ACA9F63E1D090632656DFBED09B2FB24DD09EF6BB +51FAA8F7571F9A29932B610E53A55BBB9FE9A512CBD430B9CBABD7CDE1BED4AFACA4092203AD +9E5C8401B7AB60D5C499001A0FC13E9A4F1245F8F32284DA6D80DEA738C2C03D0451BFD62DD9 +69B0353ACDECB50230A9225E0C25D35076B4B9968BF41AEA564137FD5767DDE33F5BC4695442 +03D2E085E8303E925709A5632FB054AED82C45FABF7726100E724F9A85088E446F13384549B3 +B5E1DC217E8A9F4E060BDB0592363AAF1D1FFDA7FA88814DDFAA3503BFA39B55F69620A80B44 +E7B86A5F0DF4F5CB6356E669D6CF3CBAE5672CC72EC920FAC9FFA987CB2BE9DECDA51187777E +14F6CFFFC744185EE22DAFD24070A64A70077E32DEED5C9FB49D21CD373F01CE7E8E80C3C81C +E7C8BD85D011FEB463466BD6A53EB3A073C98D881306BAA478D552A1CB980216CF5F7DAA443A +1874263AC027CC044B97A26CDC2C58AB5E2D77FF400C7C1A46F8B3EF4ADE6C53BED1C7FDDF30 +03A8922638FC95908C50D357DA2868B5E11EB99A45538CA91EED925C55E4B0DF0EDB9E36BBB0 +CC962D1B23C004B76C6E1742EF3CB42EB0ECB21A1E5B53B0E292178FA07A678E9A4F5862E9BD +DA1A0A5907C3DB8CFB65C9367400A132AE6775B59FA170C56589C8C89C5F67C52629C985387B +050E6D7DD27D8AFEAB29E9A7CBE05AEA15E12E6201DCC730409A1261BE25D7C6230551367022 +0D82B3692839DCC79CAD5F8927BAE9F2DAB968247DF5E5E881E755D62BF45F28A1DE75CC8ED8 +D0D3895154D543FF14C8ABB5CCB5C196731EF7E3BEA8ACCD7070F27AA426B1450373AAAEFF2E +D807154CFCCC1167E517301FF057CC6208AA7B6F582F60F9A933B13E420EBA065CA35AF94226 +FA7E5AC0F907E9634C69EC76B06F41402FD17CA42DE0A7F0B509A03DE33F723E5AD5A3508DA3 +97A5C9300608ED29C299C520609B8C34B397E19A60D97176E0CE92270D872DE4AC4276F90A75 +073302BBE8754B0B8AFD86A3D72590C57855DD722B2FC13A766554BA53412923DBB3A32176EC +BBBD50B66D07494973F5249B4B34B86CBC73E53FAD5DB71358AE548F8B994C16F35B70BEF74C +9E4F13E594548071810CCE715956A9B954EB7AB1D68BF446EE15E444A7F201B20F79ECBB951C +A996012837CA40EDBA08E518DD275ED2E367290B0B015E4E5DCB856BFB78A63D685255A23A4B +A8B01D60A5655232E12A5937209B27C0C4BA051DE5ADB1A38CDE828284FF2CC2DBEA465F6288 +39093C540EF10A872B964DDF2576DBA7C6CA9B6BA7AF2DB6A2A901216A07FFA5FFCB73C431FB +8E6ABD97BCDCA9596F9D75E51975C07358392559405DA27E210E87F13985E120CE423806612B +D64360EE008321AF9760E948DCF8FC9FF028AAB2FADA37ACE3329558F8B12EC74AD291345110 +225C60EBD760548F746D1F6AF5F1618C34F989AA535734D5D12EC695E1A205ACECF19854FB10 +6B0E4B6B8FAC20E317C3E9C7CE352E51CD60A719D1BFC6E1DB02E93AA78344CC2E075619A1CA +B2EA569D3FDBFD6E2108DE14B460FB9288E74CC2F7C438851D851DD8656751732BF4A01CBCBA +7EA0EDFFBE45DBBCBD8B3F09DC70B255EE0DDE89659E53A56559849A9CDB450863F8E452A1A0 +9868D1548EB59AB5009D473EF5D688455AC2DED15E295F65C5ADCEA2E22C9ED97C446ED33580 +AE9A7038C63864BB39F4A3A114044ECBC77E4C7418CF0DED1FBDF47F452DDA12F4F5F073AA53 +98BE4457F8318B58045C42238972E31DDED3EF0C86C0DE562561BEF88314E8705D782C3EA6B0 +80AEC0DD31D60CCE007E39BE91F31681B48CFA05F73001E216BCCB8202CE73C560A3C790240B +C5F96FC83ABE418E23072B76D480AEECCFC1D6CD845C8642C32DF9714CEDF521F223306F693D +2978944F2CD0C00BB523D6B9ADD6CAF63EB69192A4CF46841F9E153B2D6DB34F0FC54C717301 +11FDA0AE53E35398FCBB4FB70E50724E2AB4C59E94CAAFF218C1B23B3B4C4D94F6C4CE4EE740 +009BC3E3FC4ED46FD8AA5501E9C3968D64114DAD40968DBDD873220503DE5968A352E7C80B6B +8B6A28E9A4301BE8ECA20D31BA917831F13646860836C8FE3940C0A3B942DEA3F4ACA6A5E63C +E1465C9AFB4A0DF5E4E89693639D43A79CD08AAE82E3C3BD8DFA0E70446E0E74DB40786B5B07 +9A803FA29D6BB34C2EEA9BA0394953107EC69DA50168B7B9853477E92AA0E44F352BA4145BF1 +5762817A77B578E488D0826C373AE7A276C0BC74ECB4E5E2DE12ECEF9C54EBF906B722A9E05E +15E61A89AF6BFC2C75971ECDC4287B782D4E7C18906A3BE250247A05E1C5C8B665F011AAC0A4 +CB2495333E6BE161B49A9BB8509F6417E4EFE28594D453A11B5DFC66F03172D1545E806564E0 +09650E9CDFFD63D92BF16E27970F6221E7E580808639F0F89AC0874B6FCDED477FA0248A16CE +DC2DD330996622596B8E5CC2DFC1C684EFB46FB491984BC8B764C79C66340440EA658F4E7A9A +CD734DCA8A34DC464FE9933AD9806D02C15CDEFFD4678AD8D6A0CC919FD4ADFACFD12658C68C +05A24016E344D7033FBB9C416946C486E02024229C7075EDEC920400D5A7C47045F90166E55D +5AA457438350468F415DB74F331D84AF7257B9B2B26E1A30E7989A96D0B2D090D595AEB64F40 +3D26D80CA9F385D80C6BD6BCD0A06EA43DDDDF09D05C1EEF8C2BDDD468D3EACDD06CB885F264 +9249F8D3672B21C2CAD1AB621B0E601345F4D306C99775B0C30C7699C05306320F1654369081 +695C6F843749456F418625ABC37284F92CD356786D870CB562A1A9AC5EA932BDF696EE179225 +16C9394B70DFE85ED6E859585AE38085602E31ECB2A4558AC79D029155F685270C29A6FE1CED +EF3C2E4CA77E527D95E6DF9BB749B55661BA0122972DB694ACA5E8E13E6F49FAAF625354EEAB +1D80F1562BA19D4466CE3452BCF8CA787322D2A19B58C9CA2D54811FA8076E57A0C3A366F854 +1F128DE6B2381B0738DE6D00CA0EFD55E8C8E82D084F961017E79D91752DB7C9D7A1A764857E +001BBBD91B6F78CDF47D877B951FFAC0AF31937A82E0FBC0C080245CCAE66F08BD5ECEEC5120 +F4AD9EBF4675657575B927EC491D97132AA8F31C2FA4ABF53BD1A287CBDF835ADB352DCA8A48 +78D098C4A500ED47542219DC5F324456E8F7573B762F3B0F4A0066EEA27E6730FBFE765098A4 +61FBD3D536094142C96DC1A992D0B8E6BA404B4289F29EDB48061C9185BFDD9AA450594DA258 +62DB8584BF4881531DC9D74474332A7D4A6F9C4746ACA4A3D3994E92A34AED02C482C42119E6 +84A36832D4AB588FE795D76CEE1043837EC1D1D41E3E88E3B490DD0E8C4ACA31467B59D33031 +0A4C961D1CFEB18B2602CF72C509DAFDE4151AD99C62A76BDA18746CFEAF186B919863BA23F6 +49A8F70E4C049901C261112F6ED8E7BD0378B7E45BAB641CAFCBF01143C5CBD37D54ECFD5FEA +93E3EAA57DFB0E69054F30AE236248338EC3457588DA2F341F30C59074E3D97D431375421A17 +83852E17C291F794D8C8E6E20F6D57257ED76C0F2B2D794753860D7DEC03F9BB1EF5577AFEE1 +E186DC6A9B5D4A337BFC7236AEE4808BEC297C59C1BB95177C28922396F69DFC0319C4BB3D94 +F592985CBEF031A888D5E80E7E55ADF5B8C55421C10F832F60AFF7472CF0EFA3E6AD0BB4BF2E +8F155E3B70CAF136138C35DD0A925F187FCAEF5C4ACF7A81C38F59B1E77C29577131C031BD4D +8D40B88DACF9A605056A6FE3264556ACEFA2C0F91C0D2FD1441FD6FBEC5B7F4C7EF6B6BA8DDA +D8B812E785BC43FD41F9AD8DB69F32537ADA1FC2035B212E13FC567884ED99DD6B7DAC249893 +366CC2DB618F7B186FE7F47FB5A2405EAF111EC8852E4DB5E85B549A9F2295F87AEA8444A815 +081ACA4DF6ECD26F293D2A7DF8DA5A32D67EDD8E4FD99944A427C7541F4F332A54D00AFA1677 +B45B3C7517EFCA7C790CF7E6947BA44FAC759C05182B35BB6F4A4A4A2105834136FE82C3037F +F7A7B7856559E85372BA5FC863E1B3A786ABE1346238E1CA0791A8B4A98B8F64DB0C4B29E0C9 +AE00618A83C40B0D7899BB6A2D725035889F01A26473DDE04A16E429FC065ECA7799E15C8AA1 +2BE589D9850171713C3FE1AAA81DB0AE079B50423EB3F9EB73011DEF01DD16C80038A2DCA6FD +79157D1F4B811472855BFCAD5688C1A01CC0D311369357AC7312FAC9897FE4ACEF095D82BD47 +E5C8B3AF1CD8F77D21407E5053341865E31F3F13B3A47A403C11360E74C6370FC07FD87193E3 +F9B44C19E39BB1A5413022EEAA387A1434B4904026D03F16D56EC5D82C88AB99FAC45178F9FF +5E7EC522539AA2EE470EE1FDF24A406A158D6BD6B48A890D0FF5B80126C023E275479C2228A9 +F23EC00FF53E6519945682878FE5828E40DACC21901112FC685195FF3F4410773311D768748B +50E2A724F1AE139D468D45187DBB45E86D6A8DDD7BA8ADE844FC66724C6F5679589C83A98B0B +6BEA2F6B4E3A3C96107BA9200AB17996C27FCB6D4D973461A826D39C92DB793F42BF57EE6BE9 +8C0569D89978F481240BF1718EEB66F60C5ED546BBFF4945ECA40B0137A0686C7D18445417AA +4587A3D074ACD782C5FDE4BA77910CB6F435F0F84B6EE1EEA6A4070165BECC8248DE266107AA +CFBE0DCF9CEA620832CBE829204BBF8C6FDF12E3D22DD2138BFE7FC34673753E7819820F0740 +4DFA654A64E3CF8CAFCAD2A9C64EAA95154B0B4D33B9604D85D19DE87D164BEE4C2E7788C186 +EADA02D12A3B58A94FA1588DDE276CB12FB11092E9FC68BE060A4592D291C406F6D4C82DAE13 +FDFF8EE2AAAB10BD59327C2D371FA6F14C144B443001ACA5A496E11DC68C5B9516947074001A +780138B00D7CAB8112446797990F88021A213F233358432D0CBC0E82213C70F8568443AE78BB +DD308F9C15E796CA052F166EA91634A9161CA048BA1ACB7047C2EF3F301F2F9B51C24001AF19 +E839F4C6A6A839F3C6638EEABCA205DA657295791EC6656EBDB157911FFAA73159B70D7C6F1B +85DCD6200EBD9FEE1F64AA509B188360EF0CE9D0F2B9934511CA4A077F588C480B2F9CB2D95A +F19776A66D79028F3BED78B31893145B19005AFC696274E72BBAE98312EAB12B81D458B4271A +CB2003B814007CC38D75053A903224B2242AFD32AD19E09D3E045C9843987C7F5755E522D868 +382BB7ADDF68FC17F9CCE86C5359C96E22993EC3F3A4D7EC065BB02B01A201951160AA0C9459 +DD49C7381A3307C34824EB1B761D677AC3E4977E95A4B413A9B90BE20576E89BAD0369EFAFD4 +900CE1EFA6502D38D2CC0BA84D66DFEFECAD78AC3C561F3C9841BC34875F4A8C2322A9082ADA +81368C0802F37BC6A8744961D26C12230DEE81B48293916447F7B7EAF5C94C37E04D22778A4D +DFEB03C258E62008C8F94B5B55E649656227D6440AC9D199752F75E255D626AE3242F58621A8 +D9C7498B858E7C374B0F1D6226A8077087D62156671448B8D230B9046E9BF68016823814C827 +1664ACA683D24BFB760F8EE378BA92511FCC16641456AED10D4CF315CBBDF76BF3791138E38F +5146A85BED7E5034670F9B40B6E895A7FE4B79A2E2443E3BA1C5314651FAFE4A52BCD7F11DF9 +D84363DB98BEF0DBD48DAEE6591984001B40460812277E74233374E26D6884F11A4675F4BF02 +D4B9BF4133BC1C9F4F9721F293CE0F5734EB06FE3C01265F5C4B87FA6823F004D6C48B7614CC +1274AD70F4430BAD3AB989239B91ED4B561EAAA8D2012CEC8C6B13B43778459DEE4C6BE0BAAE +E67CBE27DCF51CB2B76BBB78D9A6D4FE37E3F139B3B52377A1AC7EC502559132B5C6939023AE +2F3DFB4301001F31B5F8DE82AE2A6BB56CC048A3DFFA3B3B7F732FE246327C7135FF8578C3B8 +FA06D5E3A6DC25EA516A2534C4DD78103E6ABA261A3A8CEF0A3851F1F439EC29CC8EF42E6DFF +7CF0A344502250344373AE21B65596F83A493011690B1A826525264E3783FE622D6593455F96 +279D786D84700112386A10BF3B5BB82FEB7F28E3D4F0E7DA69BCC2F5F6F484DE6B02352414B9 +8F354FA2F9012E424A46B7605B3DD26CBBB771C69EF106F0D92E6741A48F3D74CE3205AB9BFC +074D1CAEEE4E7A6AA128E3C9BE838E69896E81EDE6E8EA236F6418B025D1C434E8FAB6930FCC +2339AA7B228365B71257E2DBC94B4A4D3DD6043901D7116636986FA6BF39F18499C548853791 +3FBD05ED5963A31898340C36B3005D6615D9CC8BAA14BE16F2E18EF64D53F96DE85B443B858B +6F65D94B5B4BCEE5120FF6ED2BEEC7733D8EF430BCA9B0CD3763A56826F5B794C1D72DEF0628 +6180C332F9297D5089315F83EF254DEAFAC866795B17CCC1CDF834BDC0ED9A1456C6A7126B98 +8C690F844E11379D1962740B8186E24FE37A4E8A154DFE2CC199A6E8E63AD59465F713C26890 +984D2B79661F7D8100A7B1BD7CC98F57FC60043A7F99701ACBD67E2CD1A6308D4BD48E22CE07 +4E48D89E325A255831DFB4DACA09816F89E4589F316B0BB94C2AE3BBE66E76C46687DA188458 +DFFCA71962CD66C40216785CCC4EB6F6DAC66CD0D3B640C6D068091B0359DC284E331645C3D8 +D0550303AD9B1266753B9EC53E7FDFA26F06ABD9EC9034179E2838FAFF8A34592F5CB6623690 +C72A61E4D609084E88FE9E8EFC1B0902BC9B4ED263F6D88740438E7C5D55DD3513F38AD3A03A +E83C682326E216557D1EC209439FCDD3F1BD3C7ED93CCF951D4D460FC9F559FC544585FC843F +2F2E30060CD6AA70A545EA4E75D61036020AEDD897C1BB0FAB717DFBEE3A72BE249314ED4FF2 +B0DFEA80D33A8311FB53DD02E614256550AE5786EC49869B510F66CC3B26E6C1C70C4EC2A57F +34EE989D047272A69797F90538B4CE3C484D5222E94162CA67A19DB2102148B4AC0610F23E99 +939FFC6CC5050347BBDD16EAF4F58FFF29E1158E55E6374E49C5D6412847D876A9AF4B2E50A6 +279907B047BA911F0059DF75B353238E43E42484A742AE949D54D2FAA448E0653D003F4AF77A +31BF080601706977EAFDC0FE85806FE4475F2A789D45510EBFD329FC6BD1EFF35B3286628EF4 +BA2FE0FD0E637AEE7C923771E5060330AC19B3BAD2F35AC32200E796531DE417FF481E7883C4 +BF3AED45B11F8728C1C06CBF66B76967A9ABAEE34AABF098CDF2EDBEF572EC6B10D7E4B3DB7F +9B74A72B6AEA51501597D02FB419CDEAA892B780542C074BB8A92135B5174658CB3337E593C0 +1AFD151346EDD0A3CE94D8F7F78AC8FF8FCE7A725CE33952D4FD6B3CDE4A85B36C692A24D154 +D0B3DC649F40F38E1BB2926066D1D646046174516948302D38F1114C8EAA7D88083306585701 +27AE9F97D2109DE5A38B30B43296180142F48BEA017A8FFBA4B184C6780BB618F39B9CEE6813 +F07C98515953DCC8694A3A53A9219DB226B9E0398DDF82D1DB6244ED086B7A999D6E85E616FC +05605B6F8CE9C982F97D63EA44658592AC8EF599B736F2A249DB9D495BBC92C2E1FB28D86D21 +FCC4FD57B0891FBA2E890094692C2492652B9C6D795A66ED701A69DDAC0518E5A70906AB9BDE +14ED5A0A1774D170EC673850B5416DF32613A8D33488C94E7D5A39A6D70014AE7315DAF886EF +A9E7C889C97771E075E0501F0ABDADBDC631C902BC602F85D6D0BED41B2EBE007B3712671A1B +1B223C3702EB9FEC37FA6E9A30E708BF88918E2C761D3A24CE15010CC29ACBA98C7481445045 +5DC3B4508182C43607CD574148E4F16E4147C7BF91A17961CFE4FF7EC63869F9D0BB5C880F40 +D4639427C83EF7B91D79163BCDC2792159E542488F6AF8507DA10C80D905A0AD05D03FBDA4DE +0281411EA02A5E84E7BDC2B974740EA20974A6538222DAE0158535919E1DF019FD63DBAB783C +E0D59F8EDEF4EC084E50F6F03F49EAC1C8020477BFB6A6AC4E33434425B31C373DBEAD324D20 +F6A003D53F409E3B149F0E4503136A0A44A8164EA9552515BCA89AB11D64DA143548159F3CB0 +AE2C70A5C2AD01A639101DF2981CB04D10CD764A013663F398ABF0EB25C55E738F9977D81FE1 +9CFE96DA70DF1EC2BDEA9E9EF33448AE6355BE0990ED02FBB85C9A0329446AB9340E444C5FAF +AD106EFBBB84B3D907DF5F8B666F2A13AA706F7C0A4937DB79A595CF13F5D7E1D5ECFFEEB203 +B74CC7EC83869A9A909FB5AAA37A9D13A2357E14346DC3CA2B9AE7FE4912886C58091B98B029 +783526B23257BA72402C4991151AC7F36493CCE491094836D5E2E9AA179D214D189B50CD9F54 +798AC0165D00957612CE473EB8DC1CBB7FF20949C17E3C0A196F80170E47256846E767514B56 +73944C3F8FA9C1A8E465CA370E473E213B8F395E4EE6D8DD642F147C600FD9EAC0723EE85425 +CC0015A1D478C38251558C9A93441821BF8394D3989386F7DAC134E45DA1133B97B03C23A079 +7F1FF51D7D569394A82CEEFF8CDEAB08DAD04B8CEB838527742EA0E6328C0710C5241FB61292 +BA244A9680A568A9CC6CEE866E0631C971402B8C70777C38EA754804073767DFE5B271461067 +25D332B0042A278D7B60E195A295C341BFDCE30115FD8DE9D64D45FA949B51EC05F947BCEAAF +7D33FB8FCBF653DD11A7A7263877738A20472B3E47C54E505DDC7FABCE10BDA5437B2597A730 +B64267995B772D230CDDB7A96D3E325DF81BF5C4CE5B4318C4A418A8852E5ADA1B66E23CC264 +FB58A893D845183A2FD8ADFC3AB8525110E5996ABF37C190CDC73D1001C244924A3F78E79D1D +78A6DF4306A2F5E525C03402B8AFD938E2E71225C5D7B16D2318BE35861415ED5C92405B738B +01685E1B1A65300105E7136475950DFCBC71B565A495B99B8652BF42A28469181A78530AAD3F +AA0A3B04BCFB2E0E92F8BF67ABD7F08767FC658399B6F1D9E81BE8938AE565D6A9F9ECABC87B +5E61BAA1AEEE16314848759B9105D513D7FEF99D923AEA340FC840BB4F5E753DFB986CB8A9EF +5C28773916C46709322BED66226786A8F3F725DAD87200CD3629A46D9F444B938F1D49FB3926 +5A6E7BC996B6EF71619A3709FC16511D3D3A4C268C1944E6C77786878F7FA9999EE0B98B6AD5 +BC5F3E7C4D42C0D1C11CB9CF1A58D56B6DA3469130DE3ADBF4CABB0D4618353D1CF1398E2776 +E3668D74A2E7B2C8340BEEB8E6640F2B9A92942D93D7C64E5D7434DD0A53E3682767BBD91401 +EA4E913FF4904E6C2588C4F012D5FA5BD543267F4E01C75CFD4CEEAAF2A6A0FABD03473E91FC +45EE82094FF0C89B3FF81CB87882B4D441AF47235B6759B7B6BE782EC76093DF095C07D053E8 +B11C2DB33363064309CEB429CFB532AFBE9FA3BA6AD9132AF953825903931195EE4DB6A13BE7 +0731F4A6F2123ED34EDD824B4A0E05FEC880D3700C6DD12A267E3DF8B13A9588BC0ACC5644DB +75FDB0455C56F3C6E4230F476C504EF844C1AC32B070536F180D66C2EED85B3FA4265E34E6D4 +C4367B720532812E6D1CF3AE774EA9CA67175BE2FB9C083E2F46D93232DCC1768E95CC0649C3 +AD79A0A52ED140A9AA68FEF477196BDB6137058C8555BB98721BBB237F258FE25ED5890B17D2 +C02CA9D5DC7679E5D5B8C8BA5B8D3720A631BCF0226ED38F705E0D7AB999F98C720579D1217A +C5943DFBCACEDE889A6140916BCEF731BAC7072D0D0C17550FB9C8C7EB9F0B014995898EFFC9 +85D0A91E7642DE16A8A0BE5853A0A802DD075B3F2C117782E987C82F8F3E29794385FDA0CA7B +3C01C672343A17D1CF9D5D199E5F7FE98F5026E983575CC1B657FFF3D8F8DFDC16127E4CE4C8 +D4852D7B443CD824F01702066F35537F20CDBA5FEA6CD1349C2B76FDCE0D653BDB3A9DC6F98B +0CC171D7A8C1BD755346B097E2158AC6A27E3507FF9E74458AFE461803ED0C51ADA39C592B93 +95C5820BD0CB573B3A855DDAFED4637C02DCE7A0C922ECCE2951F71BED0934B439EEAA01F7AD +9FD8209ABC196DB3AFA1BF4B117E841C2C8686F73AC71F40C90480B610A860CD1E97F0677F2C +05DC7CFADFFBF5D3D2C3D20D6E0E6324BFB6BB0461BA003961A71A8081F1804E1568195F569F +80D96240C3C2C923F980B3070F37E9092A9EA76DA642857B47D56C4B870D55551A73BF021719 +A708DBA7FBAE26E3CC4F45EC5FFB65FDB8883F983EC25BDCB6A52E2CA4B81E55ABEB4722ADDA +4EF3B5DCFF9C3C5A21DB98B92410828245C8F835A3E49CD4539D9AFE0899BFF0F72CC115F254 +FB30B028646B041DB4CC887ABD827E81C1D849156DE8EBE4021A6245D1579056553C47503BBA +D2182E8E817C0BEFF1A1CCF9D4161AFDAC83CB8373C78DD6BDDE1257A0F0B1B8EA0380FFD693 +AE3E26A2C8F80D51633F05A26D0255C7B0C20609C1A1C048C995B7CDFE9CF309AFEF41F82B1B +16D7E5C2EBD928CAEBD7C6357248D9E165250B199908ADAC871F273E145B0C9997AADD6B21A9 +FF120352FAE4E98D8FAF8484EA8BC862B16CFC2D57EEED8CD1818EABFC9B2DF1F7E6E744EB6E +C15C4E3F618A46137CEBB75FF5B98A8D01F2CBCF27505A4C6DDAB740FC88D0A7A6554FA31284 +1EFBF68DFCE1CAD369FF79BEF4E00BE8CB91B6DD36DD93DF6AFCF0CE342C19A4AC6F4F8EEB00 +5FD6275E092B1BB30DEB39FE1CBC7BC788727FB6208A0E16E0FE37DEEC037D0030B0DF8AA128 +3FC082B0DF92B11790661076D495203D583F1CE8CAF8EFEAA1E10CFE3356D4B028C670F6D585 +2DA8438960B93F933AF6AF1B3EEF343B5682046ADEA31B5F7689B949F366ACD9EF7ED6D2E24B +67376AD9AEB5236BC7DAF609199579215CB2790A767E8CE55827C3AF690A20CB7C13E35DE851 +45C803B7554A99E8DC83572965EC8AA783700FDE986A3F61793D283235EB051779164613C9E1 +C9746C6B611CFBEA4860AF103FC05255F23CBAA16FD0FBE0284D8FD4EE4CEB4FBE2F6B324816 +400087D5C1FCD10CEBC3C8F02499AB14CD7C79B7A51CA103A40F3B7B79AA489DD69AA1D69095 +F0ED464AA52E0A64AE87208B81DEFB8EE81C79FC3CC7A67AFD61C56441EA30F6F25754570904 +10C5AB7C39EA5C2FF8F1DDF3E07BB11AA8A745952DA6E5E8344A22EC8E50239B6C33A7ED91BD +4D23A5474C4A794A087DAA5EC3DD7EC9D0B5504FB6A09512E16ED790ECC34F0ED8EA9184D7E5 +7FCBB7E3B3A222626EE54AB06DBDFE167A320E9FB5E4215CD620F32BE64612BF5E5634D3254F +03EAD59D50FD55D37E43B9AB253AFFBD733118A97C301AC0ECA7E30CED6069FF0538013D0D4B +BCA81AC1DE46DAC6C468E030C915A1BCF91CEEA0FD75DAEB901F252BD91DBD23495E37D639B2 +3E1A19BC80AE8E71B0CE5FF09E17279137468ECFC6B399BE5C7E6BF6559F33ACEFBE66A43424 +4831BD21AC8D93FEA11C9219D9D85BADEFEE3D5E6DECBCB313ED3612E607FE3962E22E67CD5B +464367EC6807FAE9376D6C49B9DE6E19E4B709EA4685F3F534A6460F862091A49C400D25854B +42D689B020B11D385607F775AF4557E210211DBC15DD099EF308E9465D42F57A50221DDDFD9B +9C3B27A75E168CD86AA67D40DC7BF03D7102CBD9894050911CD81135158523D6806C70C78D6E +5FA6DE40E7B4F85D140359A78CE7B76D8740FFF5E1B6E65FA023E6287E85AC7DD1B490A1177B +48F65A184A7F8A6E57396B201FFEA970858E80ADA6309CCD79858F3DDF5AABDFE9EE6F4032C2 +8B8D389E08D212AC27ABBBEF9579DD54452A2651685D760A5306A710FA290905B4D4EEC6EF6B +70D3DF6D110BCC12AAC904BF0D6638310AAAA5072B05B3D5125D84156B30695F31FE791EF890 +EB74A86FF2E437483DD74046A0D0FA5678C6EA8D358CC738521CA732F468CF581652531F60A0 +1FD8C840BE9788379609CAD58D812F2677AB832A34E7ED5DDE62955E6DD0C38D7ECF2CABE7D8 +CB9B9A797B2155102402FA1D05E766A86F8A658B75D35EC7F4D29B01846A092AA0D4CDD0E4FE +B6B639771EC0863D9A952CEA836445F06F2840FEC3079FB35C59D480796F1929629E6B3411D7 +C022EE2F768D716FAC37223239873309752059C8F4ECE73DFF4B2BD1BA1C798707048FD3F6FA +C6B58F17636284185051B1A77C3947E986C7C27FF1DD6453F54D4B7C3A821DA30118566A9B9D +40A207B4FC02BEE900947AC15262C547626782432F3B9524AFE7BFD15C43F325AE5D5B798329 +12343E70D7FA3DB9E1FF3415516CDC3F7A21A1E657D661B170EF7026AD871C56445D37B67A4A +14E531ED85CA82CD173335D8B5AD8D61150B4509DDDBF3D329248A35188BDC34A270B79603DF +3D3469F5F6B5296ADEA9A550941DB60C76BED202FE0E0773593907B9400EC0346BF4AA0A2188 +FD7037B1ED16EFE5306502331A068B099493030B8CE485A1B9D4A5E7665B6FEB89B56E0DDE48 +B32004072B5DEB51FEF0C9F80CFB9EBA8B88CC6176DC039EE0FEA8931CB80EF79BAAC44043D0 +570BB5B63ADCD349EA093EDF38FC4292CB6B942830A886265B5FBB1C037D24CC50953A84538E +EFC12E9075275640716A189D0C954FF3EEE12795F8F28186B2B41010C970CB2B8F544CE8714C +AF3DB401443B1731E315E1B993617095E813165044F20649D8B8F556EAE72F92DDBDB260D598 +EF5A28510F7A8EC67821CB02D569D7B5DC8FC46AC8A8FE5924F7CB060CE60CD6B6137DF8A3B8 +DBD7227888C76B6AE30E60E49C49CEB06A7920FAC40C0D4647E13682290E4789BF75737B394D +9B25BAEEE47FF4107DEFE6504AA702421509B07D0DA31D7E9DE932375B251ADC18A6173181CA +2BAF5A126729F62DFC93A4E400C38F0892B96190F37DAE38624A737E518802EEB1863B4E9A4C +251A4C64E027E3FD35C12FED7C0DD5B42B7FD18206EA7E64AA73ABB7597AD18A12F2433BD05E +C71CC543A46116FD79A36F8E88818E47D106B4BD9F46B45F8C579607E3E19F62897C4FC32C31 +2C7FE7A7ADB69E87CA1C7F6BD16790435F78C5CF56CB3B965136E629C7492562DF1B775DBFD4 +16FA8A60BC8D2CCC58749B340A9790D7B9E64C30FD1CC5F365A6F3FF93674F65ADE969CBC772 +281F6B304DD050218FE5A14BB52460942E6D4EA78DE76085A6E23078E189010CF52654D88028 +8C7DBD0A7A8A13C361B7806AA2CA571ABECE0563586069826F353287406ECA1F3263968EF696 +265B7FB7103043224A0E71F07532E1D275E506494D47986D0CCFD3FF703565E37D24CC394DE6 +1D3658C1BA9C1EEF4EFDCEABD9F32B97A5CF518C3A2580525D3160208421331BD7B58B4A2312 +D37B735D5ECA591C81F944EDC7A01460E5404BEEFE09A0388383D22ED460CC0F834B4AE17A77 +FD9CC32A5703A033A2B13FBB57536F1C9C507D46217D662126E7DD57FC0CF424B2C069542F18 +5F3E4C0EB844DFEB42BEE4BF65D8E8FC75036F93FBDA60D055F7E43AAB4ED139BBBE29C69F61 +21511883D7ADFC283D025D9AC7332A15794AEAD1CED04D2A135F6711D079F5D5E9C5C08F190B +CAAF4994337451BA495C329E5682A04A730CE390968875BAB69897AD0E28030981CEE36A4A3F +3DE80477A29A63F09A806795129933BB91C053C743004C5DCBBFAB55A3C856A3D7D715FB8037 +1B3837DEF0ECBDBAD81718C2E9728C625B4557A7A7D68154DA8847687FC356B207986291EAF0 +310C09847BAEF865B21506BABB3E4407DE0A6563D2C0B0534A7D31FC63392509F011C8C7E90E +E678304685645E2D706D4DF68523B4FEF17F31E50D97319DE09302C3552EC261DA604100A719 +88C140BB9BE530E18303F6DD09C454D745C2456AC2EC3824223644FA975F40C60D067F058809 +C20664C7AF6C94A1C1D08A9094538DAC1C63F50BEFD103FF209C0DB5EA9DA06D37D860179A3E +AECBB6C976EE10FF49870EBB08414DCDF4B34FAF712376571EEF49CBAA97FAD078C756CB0EEF +0A1F7C235C4F5D711DAAE7FE7E3697003DE809B95F6454CC9432DFFAB3FAC41E845DF92FDEF8 +8494CB5029C3D8EDDBAD4FBC4554558DD4F158BAD7EA25D217557B8461F1CC7F3F504AEBDDCB +F3476BDED95C260E4405842EDFF5F5338A42B79A3AE53B48AA1276150D9F94097EFF42B97AD5 +3D63437CF5B2C10780F65DF7035403CAB24A5342C65BFE5ACB6FC66BD54B652D18346DD74407 +DC7B6A577E6021837CCD92BF42969CA85662081C34E18AC9AB88DB4B2E43261B26D495F3860A +5B8C7EAD165467ECBCBD7E6FC45E666EB7A386BC987E82F2DD24EF2FE4AACCD22290556DF92A +851F428B147E22408D4383B2B533CA4BA9BEEBE7D49774461444E6352CF324864499AEE35F8F +CB7014028D8FB6C931EE9CCB8343E99049FB3952E7216162D48405E6FD8BCFDF1D312FC0FCCE +5ECC70A4DA16665F4A92E191C8F02B4390918428F80AACA0F2BC90EF1053511F97831177E45E +A14D5CD44E9D10C986DB673D044EC1C4F6766FFF3C832A3FAD5A67C8D72BFEBC3EDDACA83538 +C3971FF2589763F6CFB10F1C66FDE2CDD225A7E94803545E4EF172601041CD5479F98EDF7F1C +BA21A4362A89E46F7DC9A601A561F0636348D84D25C21CE11F6C5D78A57210E3BD4F0F3F03F6 +5D1856DB60626A4C5B3012B51047B3ACFE7AE88CEF8725EC4CFFEA065878B76F742B933CA727 +BE68C3454F3F35AB463F33B4161239E191DDC34DF6365B24105A15108A4520A273DFB4D90EE3 +F377671E70A0CE571EA054441264458503EA867BB8A2F7AA1542194317A2D78F37B12EC41A08 +EB0E46B0C1E6D3954B8121127EB9B81878ACADC8ABD2EA5D49875A4FF7F55B67739B96B24A97 +35ED09D09DFD0906A90EC5798123153EE3F7DE713F1B8CE867AD2D6469887CC7F34BD02E887D +8BBD2DC491B7B995BC789356416F56CB00FB8A9F410EE4F9322B546CF218E5E456FC91AE7A4F +2EEAD6D2C56471E7D46BBCA79E361D3255304501AD0E03ABD888778F232FC11EAAEC923E6BCF +301C6E9014E14A89D1DCB083BA0A01FE0F874CF2CB91D316012D45DCE85DDC472A01FE93EA14 +C805C8C714C330B619EF61D45A83BC5EC37EC2625AA05BE4642ABA7F6B5A507E7E8E9423E2EF +49818E14FE58F0290A514DC72D76F20DF2DF3C87D3317B17EBEE3D37B825BFB969E6B28A5C9E +A6060D3D20580C7A8EC98C992EE23B049C1A303D4158B58529BE07DCB00C97D8E612DBBC6874 +EBC7BB8D92A272EDF9AD2DD9E0920B4B8FE62C31C0644BCDED17170E363DEF98AEA64620C0D9 +8F7A027A8CE5BD7B6F4912308B20E0DC77C161A76DF15C4B594BEB7E1D95BD6742DF6CB3A617 +DF1ECE8FF0FCEC23A093FA36372DBAB7529A66D3D574B1A21C9F61989BEB2401198D29DE368C +A71A00E1BB27C4C0663B364DDFEA244E5CC893BEAB52DDD57B7E4C5BF64D656D71644937D6BD +0D52FE32717A37BDCE4166342151F238DDAECF1E40F753D9D9B827E718337CFE044AD82BC2C5 +082DA60203890E18CD17115224EAB9FC770EE683F5595F4A62DFABEE77198C99F29E1B052FE7 +850FE1A8085EEEB0D95252F4CB42C5240C5DD9FD83B1E762C4B685EF8B341CA73B12F49A9502 +62B5EBFC696BEC0E3894E628474E0378D87ECAB795674302037ABEB18E8AA04CB1715E0AE8B1 +90B890BC10852471CDD61EBA48FC488160CE4220E73ADBBD501485A5611BD08648E264E7690C +CF4F1FDE01F4BC5020640557BE08270CDDCCC005CE38BD1FA735B50F80B38265DD1E74155A82 +CE623DE481666FD1774F7C39BD2814D2F2E60ED10A40021FDF890726D2138A33BB5058C67D02 +9F449281AA8198FFAE9A36B50E67B9A7D018D8B0E4491AA99C4A26264B1BC3FE9A95D74C9688 +73D975660BF7FB80D8CBF1D2D7B42C86821FEDD4EBD9D3F0088C4D2C3D640582C9726591DA31 +9DFC163AF3C02683ECD8591C5EC66FB7D70B0C542678CB1522FCA4632BEA7F97D44D4C3FA0D6 +1297C5ADD0DF6FACDF2CDD98F58CF67A6B1921D1D0288F73635448227E5029E0AD62D110F906 +C2D3DC95E1ABFB023F5BBF8560845C892BCFB71BD73C70BCC3BCE4D7F7775D0E4EF0D361280F +A54F15A80474E7348DAF887FB1A12DA111494C03F8619FCE65C3013EC7D4248A178C717153DB +AE18F0DFC14E62464B962AB50B3C88E99D00F8C6161050638CA9D7D2012052BA691F479516CC +65A2F539B9DFB99DB3CD09898F5DD791BB31A05110C1ED277B52AAF51676F32978B34CBD7DFE +51801529433ED33A6B62FBBE4D919570F2E5F06D72B24BB54864CB5D4933C5B8CCDBE56ABF9C +2B31C86A72D9C1A933A8F487958A9BF2E52C5825F2F5FE4C43BB84925EEB5DA5C08C4A9E600B +D39BA90DF0FF40B440AB3F65758BF6C8C727B75C6BCCCA0EF1FA84B3AA9A52A8D4B0602F634C +917699124886CDD70F64123217050E7B8B59939095BD0C4413F8BF55895A814A86AC535809E3 +B7162A483A0F8B565454CF30773ABD74F36B8498E2C821653FF188321CFFB8200A3D5C32E5DE +6AB2CEEB0F32CE11BCCAFB0EBD69183245AF7EB36772137FC082ECB76909A7C17D298015A230 +24F39E1AA22B7857A22CE721E0DB58AE80346720A9992B12D733B982573E7CE72FDB4D981A97 +70212D6BC9604C5C7A17D77DF93AF758883E81F31C1ED3DD057BFF416431D3FC64517DFBBAFE +4D58AA027A46B01AAEC6B03FD15D76CD9D7159B39FA73989E9F1D05C7D5386C136DF174BCDC7 +5602DD12EA1C86E5180D77F95E81E9B2A515F19FD0EE625763AA4F687598245132439519E7A6 +DB6A87A8ECF7BC89E269CA266430A312A4702C7437094E555E1C7A780B30F62970BCC73A80B6 +4EC5689080F64F3BE35C5B1EEF297FBF81C15CC2612FCB3D42F4930F9A98890528612DD35820 +FD21B44EB5C604B31E56B5D62970F95D78F451083DBDDD9B9D20B1BF89A6B2672F079AD076A8 +D2B5BF378E9364C155E97F7613501B56CDEC916C90127FDCF133F6679F91090E7E1E7421871F +8648C13F463C0DA79F5BACBFA9D356D63B13322D8A88BA03E744E8B73B5BFFAA3FEB5A892409 +4B84C2CCDB95479EC7A24769CB6FC69C8C1D11C37DEE67C8FA38E6AFA4EEB27587EF8F1930EE +231D9F4F314B0FF3686360C106BD28F931A510598B689E04D8A982F2F5C899F3F792DA744540 +43DAA9944E21B553A9CE31FFCCE6561BDB04A65CBB66056EE4E65454401475ABCBFE3962D216 +6CFAFA30CF0FADC712F395F0F00411B95188021FEE084F2774F6AE9C90F04DC5F95F459D025A +EA49239412E38D2E0D3E27CAEB26FE3B71E6B3B2F7EB41B8CDEA4AB3CD3422EA42D540AC9390 +0630F68BA9EF9A52A0E429747088CD491821E753A01AFED457B0904586D8CB968EB8129FF88C +1FD58A45742EF18147282729BF9F14A273CF26F661C3A6894160AD1C6039D78192A7493F74E9 +3097DC83CC347E5BEA7BB9906723620F4E9EC0EEA79FCF792772AD9A4606096B25330314AF73 +A5065BDBF4E00A58480BA743F3DF3835CB15C7ADE6EC06A13AF55A0C3098ED223B3150FCCF31 +13FD25F0C3F65655A9FB58E3471BB9B08081CD9D85BDB520E76203BD78FA5B7E3EFC7196F45D +FE1C814CF4AA46EBF26ADB83B02B584C78FE9E0C8D53973F51FBC576DD13C365EE1238C86BD0 +AEEF98CCDBBC1F54A814FBC9DA784FD3F1E66FC56DEE3C5C43DC6AB9BF0A058B3DB4733F732B +D124E832887C72F558972FDDC8724AD5D0E45EE325BF77AFDE1915A92B69902A9FBB0C7DA2BE +F815D70D71EFC4B4FC42CC8963165283412885B11BEF6C6DBD1E1033178BAC8C6A8CE86F537E +EA394523E76AF3596E3A555109C4A10A26C8A14AFEB9F1FD725E74C810AE75984237BF55F95D +D6BA4C81C9A057AEDA78A9F0E02337581DB62FED07F8E449E13647D97DF433B8B0E0B71808BB +5A4C0AFCB006BB5DE55F68277FFB26A6046D372F413D03D07951801042E28BDEE3953087B398 +60875CE3C9BE341D68DD43196FB5EE1F707E0665C5D65340C23770C81302226F7C33AD405880 +91933B5E1A844CCC40590136040DEA2F51CCF4E5F4A92E64D9661BC3ACA5EE6AAA62C22E226C +5ADDB7F06DF892B9C1CFC60368B88B39E0A2B0635D2E68DB5187093F7D9DD71C5CB00EC1BA07 +2B646275DF6750A264FC6FFED93B1D32F0E42ADF4FBBA0D8E9852CFC1C26DA04E862286A1743 +9ADD70D36B21028F69401C8E0018B359EC580A3573BA09B0EE2A921BBDA81B42B5C65BB843FF +262F9BCB5CD992AC2A854029E7314692D3DA753B7B6EC9038EA440EB610F05E09108C7EC2871 +658BBA930676F3715CDD8A2171E0BAAABDB1281A010AC13D0DC2E287C15F82EF6F11E5BA6352 +D64AE561EF5FA0EC366702658CB6FFC5F217E96BE7DA30EFC38A29540DD4594CD0A1B2A4A211 +EA417E88C09AB4F00FDB6BFEA29DEB4B7B85D24274049C39C715EA6643A6BD6B5F85D0EC9390 +0F3E6AE308522705B36AC46CF9F16DEF67C6C41348A55C11E7FAABE3E9AE6F82A0A77E6DE526 +047625A3BF1ECF2E5A0A69DEB5F412AB90FD21C652519BC93808C78E95D9B0BE4794B50A5C5D +B81F07F756BC39B4B86B9F5A006759D9BB6BD21FA2B24CDA2A4404F071C2F76EE6A04A012EB0 +8826C43D6407CA7C62FAB98FD71FE228D592DB5A23257ECE30854307F5D6B482B443D93AC33F +C267914E9AA20A7D721010BF5D9591890D510CDF2B15E93B01E61585981B063CD09B53CC84FA +8DFD0757D0924F31096578F7462D5FF2576EC0840782BEBD9682A2A6C5EF553702BE80E8CB3B +5B4A99C834FE334405D065142F4255EFFF8E43084D1FB1467BC0C2ABC3399E1C027EBB1556AC +3142B75898475E7645CA2E9C00B041913A44C42C457E77C2CE69EA797E049C6DC8D7CF16AB8B +0524846E3EE774D0878F4D09FD82A1600F0B45630859439749B3CC41B669BF4A3527AB1639BE +A3FE282647D2F95C6C5FD4EC1C6622CC5792DF3482EF0B9F02D60C8C48E72C475C2D2A26ED42 +4B4EDF0B7B28F0BBBCB40A7CAAF6E654CE97FA507A5EBCA826B08ED5DA719AAE6F02AD15DB33 +B1ADD4C91A65F4C012424A8FD45B9400AC4E7FD655855E4801B4517C38B62E31FC4B689C3FEA +381297B89FF10CECAEC0592F29B5992C5B5AC8765A25759066B8F212C52BFC8A7C4847685BDC +B693A960696CACAE77E99DA70A46EFAA7D88B9572CCF435228159E584BF29910752ECB05D551 +83EE14E1ABD2D555F880F9A2BCB8A9B894F850E60861B85AA4048FD72881830149D5489E26AB +B39E7C7701E263849FB744D20369556712D66C004FFE1A8DFE2B2322D9E9E06774BB3D11F2E8 +504356B5F1CF5D87ECB630EB0D9494C2B91284FD1F033A95525CFDA031FB760FDB97E11E9C5F +FB5D70A8B8311EDD617D80417A358D088605B70BC5A6D8729D3E8667A21FAC63082187387775 +95B9C379735BFB810B2F45712C4416A2780C323B3F9F767170EDC1E667131A2EFADFB553D7AE +4145F8123D5BBBBB68FB834210470798537577333CFC5F6C609E1FD66B020C918476C689FA92 +729B92862AA76BECFAB1186D3758FA8D27668C0D86567C7319DDA919A4D82C3531C5013D84E4 +75CDBC943826A486A399D09D85C1A02CFEE028D7C115957927C1DEE0174999374C91B3228AEF +75B8D72EB59C71509F1582968900788AAF1ADE268559EBB0CAF6E63D544EBC112D72DE8EBDB7 +F4BC5152150F8CB909FDA725642E5A5AA37E1DB7945B6210B19C81B3C6CEDC081A7F58EFC4E6 +8A1CBD5C8E3C8558FC9DAF806861A3B340089CB0C0DC0C915482487853E30ABC350FFEEEED90 +30A527ADC618774AF30902ED5B62BDAA1BECD7A8A92DEF44667B99A137571F8DE0149AA3FFB1 +9E4E4F0A1A6363DCEFD2F3B2513A02D1C6BFEF6071F0AB813A3C463650F9D8332362593DE49F +949B147DACD2E54042F0BC5D46FD72B1B93FBF79E41B591BCD50B775ABD13878A9557D0647C6 +CE07BF74F85AA4923E4E8E5E63DBC9EF181D3526F25217EC9511327684ACB6FF711D1C14229A +37D38ADE1A37C1FDB197530C0B875BD43A7EE05B1C5120FE60BB6836746C0F2EF383E4EF39E9 +E3137AFB957B70D315A9C576512109F1323FE2F814F84ABDBFD192243E1BF14212F201D6CCCB +D7BBF761D8A7F96B63F3CEA33E433F537F798B974BF5B5543D70B02DA2F49827036DDC2E1FF2 +E9241464EF369D7F775A03F47E8F7C2F520B56CC43E1B7FA251BACF7DDDEEEE0982319DBDA5F +F7EE2B3A5FCBD5BD180B1B64C84054791176BEC16545A734B3884B80512880391F8954292B8E +8EC18DE9C5A16B3D0E94A724181B223B31E2571461F578A341B552CC69DAD1FB3434D76906F1 +6C374699B30C4AA9D840782901A087CD6F3ABE3C3F6A26E4CDF696320039A3E4C0FAEB357159 +B05374D24133F6B5333C6AFAE9250880441C1E43674CB6AB2D3CBA07557B75C28AD6080A17E2 +373D7B53914AEE68B40ABF639A49250F010CC18268CF8228DED78E7956AE8B6195E5614FD22C +0F80A6B654F55A192D587A28E9EAA6C8DB1D1805289C725FEB7DC15713ED725ADFC595D42C96 +E683F5F31654E4BD4DDA1231AEE043EB81CD605AD2DF5638CF83C4FCA23F836AF9E47CEB7AC8 +367E9A9CFD3E44AD8C42891E836055B734B9E99F88E6A5AF37768539F0A3D8BFA157F90D7DB7 +9AFCF4B019C6AD38EECF6032EBD3E309129DD3D2FE82454B9B5250645A610C50DE738E093964 +AC4859DB2A1791AC53B5EEA140B2A34986F390B4AB26FA5E5E9A5C0231CB621AA34D79F01881 +2374C54063D0AAF2C904CF1E197C30B17C7BE71C7FB93EA56CCE03ACB2B0BB05340422F59F50 +625FAE25DDA7F1A328533C6148920A0AA75321BF9BBC2C2ECC3C9857A960F90B0B53078264B4 +10DC4B30ADB84E29B8DA31BFFF98AEEAF8618E840AAB72DB078555AF6720F2614FBF1EB93707 +F6C370F00519BA87EDC2A3455536B6D0CC581CB46D49BF7EEB985F24B3E523421DB53FADD1A5 +841DA530AB96E8D901E56BE4041B49051F6FFF82896C5671A3E3D8BBA62F825E10B8AAE597E7 +77CD43D3A3E149F14A2B5C8D6212CA70E62A943201139E2DB3144CB17865F1A876B3053BFF7E +7A630F9C62F24E7D1D5BD0438B441102F51FD8E7B7A2589E4D9564B71CB9990C20B52434D0E7 +D3B31328E89CB806A5D6704780155DE7285CE518E63C8625CE6E69088D780D1E38011AE8EFDD +BB9A77F733374D9FABD37BD0010B76247FCEACD931EC87F995CB8E02476849CC45F6406ECA04 +896925656CE48B4A5487A8F3352FD6473F99ECBBDE91F0D598B42C3DDFA956A44FB2669FFA76 +99FFB276A1E745C2CD95120E6E9DC3CAE0DDCB469E0B3CBB02BE05A5380EF72A4DFE3F2B09C2 +C33F83B97675BD0243320443BC5774B95C5ABAD031DB282433F83C32001C49ADD75745108E1F +648F162E96F96C99A0BFCCCB2319B48B26271995BE61F588952072A52410DEDC404BAE05C176 +B4BEDB031370629BA196D3ABB6D7CC1C3EA5FFA61064DC0E0328F25E234EFC5D9314B2CB26B3 +80717953E9BA63FF8DD8969BBD466513293C5B0825A45C20F7CBB4CD6DE03B457CCFB1356D14 +0CD7AC20D5DF7520F6E80CD748510429FC4892A99344EB19459642B3731CEB27F074F723788D +455B9BD4A89FD40D03D006108D2176EC0A91E7BBF0DA2F0BC9E84379CB1B0CDB6A518FA2AC91 +577F0F473B56EBDFC52469F523A261E6E32032984302EB1804F20DA6AEBA92C4B46B551AA5F6 +1902F71E1162CF0442116AE7C121666100E6DE2255A53251EDE84D536DC8E76A1377DE35658E +132FA895306C5400B29DB052C7D8B14C22BD17EB3AB9187E37ABBAD9BC85D6E1757BAE04F135 +91C7DE5DA0813D85DC39D0197CE4D6F4C054E51A4B1B325F9F01DE86799753D9A8CAA36A56DD +77BF5CC7C77E810DDAB1B8211730C6D128EBE8FDD8BFFBD8BDC31DA13972AE5505B6D98EB3C2 +13ED00819F7A9C8663F84A70768FB4816F7DE3AF9AB571F7672B96F7CEFCE0977B68BBEF203F +69DBE58A15C26C36D4CC4B4C9D7D9A03A00AA77691606C89B07B41C19756D3C1ECF7758776E2 +16FBC3B4E700E235A2AC9353193F77C0806886C1D0DA9E5AE51CEE376D4A0C5B8EF4CF57F1B0 +9788E7462AE01C43E602E6879F688360C07ACF71CE2ED853C0662D5CE17AF76BD06BD77B370F +7050E097A61774211CC3B1B8FE50A5F0295F5C5411FEC5B2179CB4D82204D07EC99BCE678585 +AAAB390E5E2C094D086C345008F564A112A167BE218BE699CDD3B57333ECAFB776BB69BC304B +139CE0A3AFD69471CE6B07099A65E52EE4F9B6965F45A771E5A20F97C06BC314E24CD6F17C7F +011151491436F6E50F5C75F4A4A4B2707F74A6ED69C4AA124656AB13A6CA915E1CD3312C2F39 +059071A14FCE4DB1748EB84DF7F7BA6B8606B6DFBF5AD0CB1B1088A9F185EE9D876A2C5227A6 +95AB29E7CB1842812B1555FBF6E2DCE5B5E4DC9333CF308B8682B05E9D534725AE1772F8F5E4 +8BC05F3EB7C9D54F21AF5E67DD39595531338308A902008C39EF5059EF1A6FA203867BC0BDDD +F084C1DBB97E265BBEC0830A527B1503D5AB07C4B5692E9462FCE89905BFDEFE046E6381BDB2 +A1B171064E7AE768178CAB76A702243C3AB93B1D2C1F3C198FFFBA74CA65419849FD915312B1 +88430FD4B7A3C2118746CD1279B8A3D4BEA8F530FDEF5A4908B18C754FE7120BEB2344CC5992 +4C2CC39A204247402AC35D8768C41B82B92AA8A1D7C47B6FC3DDD73B9253E36673F0386EB167 +F917904EF3C749965E2A601879C5DDB430E1A226B66490BA2943A12817BA449A946C655C581B +29AC2AC114B3F19811CAB69F3CAA8C81A359E5D5203259C916A6819FDA627E163BAB595F369C +5EF60EE0D132668DE17E2AA0CA0F2BCC4150FAAFDE7C5D03A1931DC1C442156474FCD7485D8A +51D46040C587BCE0E270B9AFBAFE16FF2D4A9460B06705280686608DFC176D914F39D336E703 +0E9406BA439959E0B6391BB774BF74CBE3E3DF1ED9FFB7D50E724A9F62A40703A9DE9D4005E9 +3765709002704AECB9DDE46D074E6AFF83E63BB52354C82F88B788B28B37780E083168E1E906 +E440FDF8369445685C1101C7A29A3CAE3717AD8A570C47EB3779F16942216C3EA6AEA343433E +30EEF4F25B05D0E35B93E37675E3F40D1FDF78F02ED4286E0E7AC5872DBEF698128E91E3ACEE +322E52FFDFD31F11A3A8F571FD15C48F71A89E18506647459ACE3F66BAB2DDB45E413F4341E9 +E671D8DA530E015829B5DA1B0E3B0B3B4A17218DFF5E15FD3D545654E2C2F70463BD25FA0BB0 +759FFA4BE5BCD042DEAF676D82579B927C3B66EA5693612F2D46601933E052FD5193ADB3D427 +BDE78C6DC262CC420E3B98907B293A7F55BC292AC8D409C1FDF8CC205C6E731D5663DD31EA95 +DFC74649BC5523DB4AEB18C1564A4F83FF3A68A1E863799D3FBF43DC2F46D607D5EF993B0FB6 +D62EB0F4AC841206D258958128B94F5929B175D613E2812D8D13C9E16A13D0FD9458DD545938 +17F97B840D5D5AD58029390C6C7E7F43017A1127BBD9409B6CC419B8958EFB44377E741F4BC9 +9EA091C2DD7FCB7096AFF8ED80ACF3BC20E9D98E6670FF472A60CD1B35C149498B186503DC6F +0C692271EF14993F6D668B304B5F7CAE91B6A4F25DE1800B438430F8784CEF485D224A220BB2 +BD00E7998E45B9CADBC894C2A0559DC50C4C8FA3E14B4CB9F3F045C29785971D07B6CEF45A86 +9B184ECD95CD257DF4A59CADABF16D02F4E4115ADE8B78F10A9B2E20F915C05402FBD8CE9377 +0E8BAB3C99BCA5919E95882E9BC054746B18E4B9F9E2D3B0C31331611E868F9B03289C1B3087 +BA1B91139E6E3FBC5A8B12C5340F881F4099B75D36D184E1B7450FB8D23AC82A2FF545602010 +1C929EE7527F7760A1E749CD541AAD2F86DD390419F2AB3905141925C66942030ADA534B424F +D6549B5FDD43331BBDA9C48B7C1CB2C81F2ED9B9EF808026948999FF40EAA47A27EFC26636CF +3E254328F41AB72BE90B0E079650988D15E81570DF291A6B565B7A8E9196E9966DFF45E2332C +63E6C83EE2C0F28E3CC64BB493C126C499D063F217C5865CC74B60FBC1DA9E413F15546A49DA +DBA65E22701E83F6C519C6BA4A7616B4909163FFF8C564204003A7CEED6AC4C48CCD1BCA4301 +9F62AC6FBA3A57507205A1F865C1232F8528C655B2C5A102E45AD08A9FD03603987EA2E87115 +E055900A332BD761C0A535ECBE2986935D3B35B5CCFB275007B1EF8D88E83DA3E5BB3EA28181 +C058A7CF3577C3E6462C3D97BFA325CE802B1D4A4F5F96A11E05B24F6450677FC7DFF47E1C64 +82A7E247915908BE51F0E5A4E1136EA238060952B954CE5F842BD63F33361CB888DF536E6033 +9DE61EEB87DAA3A991D969906002A564D60B004C144BE435AC02A13C4B74CC6474D14D183023 +C58867CCD10CEE73DE34A0D865E1D66E2564676493EEA48F6070A50E6C56493ECFCE6831344C +55EB1B1BBA61609647028C8C89CE9C203D36256C28DC6056DFC1DC2380273760EA44E4F33889 +04DC606FD33FC8AC16914C3882397FF129CF5711733FDB63DA49BC44C95DCCDB382B5770E28C +99C379327DF85ACD383A6BAE8F9EA9756BF3604E5BCF25B3552EF433BDA0DF09A59FC6892219 +B43905C5A2316ECE039325976AE6A7CC2FB077FF2E02E458A394F4183D58271367B46D42F1D1 +55AD10F491C21E1D062E0534D15F41F7AA0AEDC1B337AC408295E3EACC8F853618DCC6FE3E47 +32FB5A4FD5D53B298AFEF078814C5EA51BC89A7277D9044C1B76798DE77E637AA0C8C09D6048 +6F74A2418C48D5B3692E8CF99D76EAA306C932E634CBDC8D827217E577F85330CA49D1D9C9B7 +A7A512CFFF3730DBCA97EA3F642821A3AC68C52CEE6D9C2486AFD77C30FB52A523A698C48D0B +AD24CC2044B2988486267DF373FE2D7A4B7E922953BE896C6C92CD1593E2258B41997398CF5C +73A756D727FB89A91400ECAC147C84A666E59E2933603BEDA4994E56F84159AD71E73056666E +074CAB623C4B9DBED845DFB2C7055F0C98C70140321CA09ABEB7588BD2D2C7092093EF5178F0 +042EC01FE6CD1AE23B63EEB18C727AAF4B2ED59B86E46DE0D1FBF36AD4440D6167332D27946A +81523C9C22F5C2F3D0C32F0A795B8112C69CFF632FFDC3FC736E01E2AAB0054123A977F253B8 +B536DC14F1760FCEDCED9CB4FBBE40AF8D5FF9147B4D113E783CE3FA6D34492F99E35E27D8B4 +BDF230F1068AFDFB734C176FEBC3B000AE6C8705B1C01EC24BEA63AC2A8947BAA27CBEF46F40 +E30B9E4CC60A09BEA9A64EABC23CFA70B24CAEC0370B489DDFB758D220769E754B01CF2787BF +CFAF3519B0012C1275BE52346CAA5C727E898747B4DF9B5259308468D650BC425515871E7E1D +0775CABD82FC2B0FC101D52EE3DCECBC28E478FCAD60BF16867F014843C7239DA184F249CD8E +C763812C8DF40ACE4D84BEACE4A749F70CCC18C41C121CCD056FEE1D59301E98D9AB8654CB78 +F43DF6CFA8CCE397595EE81A7F2F5942A51B97894F8CBC00199B1E26F87F2E26D7F60822BB48 +6C334719C1ADD2EBEE22E768792C7FBB09BC09C3F151A582710C99C0794AC01F9106A1AF0710 +6A6C3862108E607CF7FB1A001568661A70606DB8D138886ABC11446AFB9E51AABE48BB5825C6 +8DA26A03E53783F912682008351645B9D7D6C35B08B7C0EB68B751FE6F9D195AE1078F4EF5B7 +510E81550A64B1C493EAA9B2F18F5875BB95D204E8699CE723D4669F84A62632B1B8DD9FC685 +0FD9018587B61298020CD2FC62BC598521C3654B5C2EEF1C03AF55416F00F0AA3DB3FD683D42 +115689978E32B2B85CB0A60F616178B0842E862B5FBAFF64BF7D5E62070AE7FEAD5A753CBE74 +74E8BE788C2C09D455D5B88BB9D233B5E4DBFB8CA17056B5A696F46D4965BF59E52FE1811ABF +DE7663D81574D4C33D5ECCAADF380B5951C56259CCFA59B0D178DFBEEFB06BF7A3C1813B7E7E +7AFCC1DD95328BA3615B433D143E6ECC2DB2A59660424900D1BE701743A417A376DB8BE177CF +67F9614D99E57E3FD54742C16AF702146535EEF37DE98F7D23791200E0CD289FE65C4D6AE80E +663F755216C096460A65F9816A68462361437FE81F1D0B5E3692573435BC141689B069EBBA72 +CA9BDA18239245E7C5629E687DA9DE7C95F768993BFBED057D2B239ADBA5185BAF9BBCCA8650 +030CDE39FE83DBC1A06BED5191A46CA2F1E33BEADD0DCC6771FD9E91C0BD6CBC1333583CAE41 +F3159764E2F2DEE23C4FB4EBDAC6C7638F469ABBFC8829AD311C054FCAB0C8C3B793C5DE2244 +A9D5BD149ADB7309E62B2C6077E50552386EAE34CCED61742AF182A293D55C4FB85C2D261B24 +03E8548BF2A498B7341620FA3A55C08B18513A2CA0C6A066ABEA6C72C0DA632C0FE98B32CF08 +9B501CF741D98D7B582429F4E320CE4718EE65E5A8C50E54D805EB3232109E362DA6B900DB1C +A7CEC5F8A6252FB5BED79495270FA70648AF2E8C9842DCC26839372D561A62907987B008AE97 +C63F4B86A14320AFFAA5452CC8B7F19303E31D60C41110907BAA5D4EF78D7C9F2C7C1E5A38EE +4009A6A6EEC8E886A81F776FE55DE29C0979248E390D3A057CAD5B0454378AC94097F514ACBF +F884566A55D7B9DBEB7B3F835F77451360BB432642FBA04402CBD600C5D70214CC298B31CB0A +C858E7EA3E517B914680D1EB1E11832D7BEFE31F98EB263ED40F6590B27D938F155F51549153 +5F274AA5699E7392FF331D23508F24CBBE46698517F7AB098A513D26393A49022B53070634F2 +30354477001FD4B7BA57818983A01D61031CD72CFE63A9B4F25B4BF9CA93B359BA5AD6CCED7C +6F751A2B00FCDADACBBCFAEBFB196AAB0D1BD89A31B839630C8E048985E85DDC2F1AD387330A +31E19B37E2722AEB1F8D56F89E7D56E9FA32A33054E7E39E802B6E3E83EA4B073E16DFD5092F +0CD397266B17C5F25DCBDE94F607A328F0C12D93E1C99CB2020ACEC880A9984F0DC0D6200413 +1068FECEE0C2C5459F0CE53898C3586F8C364A0A5F5BD36A205C81963DCBA4D42E1C866A83A5 +A7F113766456EDD942423338A184458294B24139CEE5E0460E401C68CC0E8428CB9CEC67641A +DA1E2C266BB8C97E31D9CEC7C429762BA3DA02D68AC1E10DC26F05054A011171B7F560467755 +BDC16041C10E8569C2EC9D2361C7C3E57A1BC3F08F9B0780E97074E3B672D25B745A71A0CFFC +6301ADBF5F1A160963247AC4C1504D8218C38B783759C995CCFD20C5450515EB5010D32C51AE +4B0668D9D76A55149A282B729454CC12BF674865C99D0BFD59455AAAEADFF22277650A3AF318 +1B80A41FF60AACFAAC7957A84F865144196EB3E506C0F8C510BF11306CC2A7339D3622A73B6F +10DC69C78430F5A690834448ACC8F9FF552504BE2DBB712E66981B3ED8A4C1A3590B834E92C7 +A6D1E61117563AB7B86551A553F030AF9E9FC4E6952F884A4F9D7117FFBBD1CFA91D0E22D3C4 +C046D6A1D9345A623073B9077135AE94AF08727F86384EE2EE8BE065FBDB519DE4C0C1042DB7 +5FBC0B5FB5AD58730EE9E1499157FA0DBA2B5AB3DFBA74038E37F53C2EF9511CC90121991223 +2DC955D98EF9ACBD067106CDC77ADE48F47DA7676EF262C20E91DD3EE1759EA9C9EDF6DD6B48 +CD3F9A035434A9B5A3EF452D03CC94F6055A2D9EA2B75EA3849DBBA46BA5D5863442D3669DA6 +73F78C8DC90D5B78CE581780EB774056646498A64929A5D022FFEA057D908B706F9C6B213E64 +B9442313E89FC5B8BB62B6863A4CFAE3DC8641568CC121AC1091C6A3E164DB5D1F841E08094D +86E06BA5730BC335579E305AC4DD8DD20FD79EF9B4212FA618E36AFE06539D840FB271C5030C +83632784AE77CB98F19736E5DE45C5AFFCBD77E4E420AD157692A368AB157AE27D2D285BDA79 +1D37C4A39D668F13CD6C1F6E0B508ACC22BF7A3A8CED880B112D0570B3D870EEB5E235643F6B +8F840DD5BBC5C5DC95D047521B07E4155C145F5DD0ED53BAABC99615CD1A3853BBE9D8C38514 +87CC596DA94E6D352DAEF299CEFF1E566ADDC427B8B544E92D3846CA716F2148B87E44752207 +2A11C4065B91AA1E7E4DD015E157D8E1242415A7A0F1998DF7C0DB9A59BAEE1C57770C666AEF +9BD2D263B1996F75D1D9DAED8D192AB32C0FEE146E71655F5C7276AFDE9039DD8293111BB058 +B97F1D874D965394A0A63BBFB9F42CB40A63BBECF2F2B1A56244DDD3D7E31F85930043D0C48B +DB45D3DEC07E92A6C4C3FC2EABE4AEA911E390ED58A042CC65C00AEC4359664F9B66C378380C +0EE109D82915F5A70B95DAA420D6FA8194D05E4335E34AE390528A5BB3A38D2C07B3A2F47665 +440D90068855A578F34CD67100B1EA9D1F64E43E8DFBB137697FDFE1CD812794F184DD390D62 +D0C85CAB82639EA63C935490785E5F84A95A791E30E3E5C358B27F688269F26CB9046041D962 +2E0CA07D5E9A31F28B914FB999087299F0A07F3B24E0E09BD133BED494FD8D7C4D71541A7793 +10B542450759799B06FAB5A530AE458A4AF0751A7F651EE90E6F9B68CDFEE03C8EB495369BC6 +F6CC9622400DFD10929DC7F006D26630923B81483FC6CFF937C52865CB8AC39B1A6FC3029FA0 +196F9BE4C22A7B924F89882A7548144DB6B8178FBC5526CF3B1FC304E38DDC5A6CA958E83F4C +AE675BF9E906EE15CD6BB924BD03534BB4A61A1F21E2CA1D3C449E2BDDB8035C8EA3912242A4 +9D69B779E449B76A0A74E4B3ED065EC7CCE33D65F45320D14D1D0AB8106F0D87A596E33C3EC2 +A92516DF2291EFC807E5D9DD20BE1A5039A3849112DE879A22B6D1FD9811631D2B3060F821D7 +6A34DCDE2F012C6BA3909670B5B8F06060F0FDE684A44411A68256416284F6A8CBE841A39B6D +65784F92F8828F7BCD3FB2B38877610BBCA8F2CB82506F8E77865B4D99B9BB4A3E61BCE15578 +46A0376F34FB73E797F93948B7D6963C89DC394D0A70836644B530EB4982ED2F7E4FC3C3802E +61015A454393925AAB5AAEE7DB6C5DF873953B826998D10A1B1DDDE153207402A244308E6241 +FD7AB5AFF9063076CF1FD7A0FC195DC461D3BAF503F3B9BF6913CEE4A0A91DF9D723ADC58480 +5970ABA643606966EA4A9EBEC5E30437A97104A2E6930942329DA31463F9783BA9CF98BAF3AE +A9B3ADD64C2497EF2C6A10FE84008D9B23BF58373B4F509A17F4C42BBE93CED9BCFBC2868E6A +6257D63919C4016DDF116C04F952A6E3A727A09A3D53DFCBB7F1250117539B341427193B7667 +28924259CE629A4C11D8F851C95E78B7D82D0E99349D1737A3E208D03724B2924712DD82DF51 +5FC8EE8AF80F9E8DD658B063D990E77C2780D5A2DFD54E1646374973B0FBB81C9D47D5D268A7 +C7829D5734623ECC9E1310F90A20B038D57524B7D264E1390E126D3692896B532210A3D2F8E7 +636B6A30683FF6ECBFA350A0727A83607BAC5561D711AF899A8CD6805073F58787ADEE201BB4 +82E22106B32236CE76F23ED211C6F3396CFE3B6299C7120DC3D913AE908E660681E8DDB46AC1 +79ED06628462329107256412B0FA49DFBD16ECAAB6DAE24CB7C6249419C3CA30A39A95FCCF45 +6075C75976C2103047E47F953790755A466DC82F3119C676B2D68B7FC51F3033A2437ACE923F +39F21C37B18AA8C25DA06F3E90A246807D2E27E7780E1E9C790E4732D6A2FF290DBC31948D16 +0BE45F1901CD99C7B27874B14AFD547B312ADCE2F039BE4BA22A5A4E4A9744DCD372E16F31A0 +7FA10697DB669FAC9EB93C288545A42670785CBB3B6A46E5CF372FFAF9163FC9440400D2C176 +CC4A6156790AFE250C7CC6DAC26D4A4F9636537763ED89581AD09CDBFAE40B806414CBB49FD1 +6CD2D90A8D5283C4896D9FB03FD5842E0224E941AD376C59A382661472A5331FB73E1D5DD06E +9E5E610885A56611291601B06C645A49576202A5386A6A91C1C7239EF49FA7C17DECCC0DDDF7 +BC7CC88A065FFFB5768E08FC1FB5512CA2F1740CB96F7A75B467331B05EFAD279544939BA872 +85D6704F2B5D99A7E6FEDA0D9470495CE21166C733D1613DBAFD42015EAA97D11C132075F3DE +86B281B0CFE7A944797F70134B0BF2314A42C3A1430AE5F5924878FB813971B2152B33901F6D +CDBD4AE7574619CCA426CA2EA379A9568F6375D0DB1B49AC1721968C206A997BC5373E78C0CC +B3C37DD028752FB59F9FCE1CBC185C3A2C64A9BDBC8CBEAA9F1E9A9554C835948EB67B7DC025 +F4D3E39BBCDA127C38607101424476456B77B9589B32889823C07EE2E4B020045C8BF1F945EA +1EE30776C0B8AF06B25397A5082D1D915EC6A3D214C4DEB29F66A5E8F7F7855686C56A620C80 +EA5C9C63EE977E78ADD79E0FC593CF32086FE863B95D3AF4E07F4A4CA51436AF4A64BD8F5CEA +F201D53D16C87C894F8F5EEB3565D476BC397FC2CC1A1D3196A23182E230BEDBB02AE4FF0F88 +71F2B10EE29F8040A8C397611DE6E265D38DF6410A6CB4696F97641B83A9E2E1284434777600 +26908C20527C35F23BBB0F28387A58C65422C1A736398F6B6AA550E030B5FDFF5CE749D23699 +3998A2B515340EC6D1AAF87F06A65E3A4051E5CD6D24D6BDFC9A4AFCDCF56774B049E02C9A59 +D4A2F0628462FC6E68D612724F3DF1D38988EF40A30E6396280411AF26617465B7C70D98C719 +5393CB10D21C44F6373BE4CFB0E81854F137CA68AB163E43C4F40DE69706D0955BA1AA0B0371 +5044338993A294DCD46F3012DC23809659055EFBF39B1E9D7751BDE58534C3F88074DD780670 +A09DF026DC0BC594F6671229661711FAF43103151BBD5B2E2A82B864576A31C77ADF64E306C7 +393712A9546D4BDE8F8DBD8520F678B5C4584A1E0863082A358593E8B4C598EF2679BEF95D66 +B6632F96EAFCD790EE4A174D83AF87C9BCF6DA88A619990FFDF551B8384F730E0D0EF0A83C2F +5B123D4DC7467186252ED4F682474BE5BFA3C217731B955A11143C7A1D89248D8F0D82D19170 +1EF0603FA0581FC7F91BA7A4A227F85731FF7E0F4C5C5FA015B45D51A04C07B03A6FE8C3A074 +C29529E6BA8E3E95742BEEF5E4FBCB9EC94301E921B167EAA20B1DBD9977A5F4C7F1134C8706 +DE2B726A16B8597FD5C7578006178274CA66FF02DBCC7305D2C1E5CE9E517CAB1726AAD6D570 +82FB5DB7EEF3830A8797387BF84106F1CC3396C07C83E47B5CE38CA3E2DF1C9930454C20F7FB +1F55D6626C57E7C16D5CE96091DD79200B60C401666269B3512888E1E6B839F604FB1A00362F +758FC2FDAB2F5CD6B409E7EF8320B150DCD4564674B2022A41706858822036A45D9F19D9C4F6 +9AEC413453847CF250B640E3F544177F7B1AE745D9FA5D64DA50647157F653BAD849A60A6A02 +8808675843ABF110D1D7E8F6A0B2D5DAC354F556BBA1AC4E9C0B716F7F515428AB7A3C01C100 +8FA3403DC75FDEC74B37B962732C6FC4CD7A82E36E5D8BFCCBA22989B56F1B4DC5718C148CC0 +FEEBB72E2858AB766A018A1D644FBF257E8C128E5BAED55AAD54B8DC3DAF1CAF8B30F4AC2D3E +31FD6D531C877FD431FFB38A0A1A7FDE2273904D3CF46FCA4303520C88096EA63E10A12E0885 +5877A2292B31E7D51E9C80B99BFEF7D77F7E2FFCEAEFCF64AB6B95232D139ACF0868D4D19FCE +EDE8520000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 + +cleartomark +{restore}if + + +%%EndFont +%%BeginFont: CMBX9 +%!PS-AdobeFont-1.0: CMBX9 003.002 +%%Title: CMBX9 +%Version: 003.002 +%%CreationDate: Mon Jul 13 16:17:00 2009 +%%Creator: David M. Jones +%Copyright: Copyright (c) 1997, 2009 American Mathematical Society +%Copyright: (), with Reserved Font Name CMBX9. +% This Font Software is licensed under the SIL Open Font License, Version 1.1. +% This license is in the accompanying file OFL.txt, and is also +% available with a FAQ at: http://scripts.sil.org/OFL. +%%EndComments + +FontDirectory/CMBX9 known{/CMBX9 findfont dup/UniqueID known{dup +/UniqueID get 5000767 eq exch/FontType get 1 eq and}{pop false}ifelse +{save true}{false}ifelse}{false}ifelse +11 dict begin +/FontType 1 def +/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def +/FontName /CMBX9 def +/FontBBox {-58 -250 1195 750 }readonly def +/UniqueID 5000767 def +/PaintType 0 def +/FontInfo 9 dict dup begin + /version (003.002) readonly def + /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMBX9.) readonly def + /FullName (CMBX9) readonly def + /FamilyName (Computer Modern) readonly def + /Weight (Bold) readonly def + /ItalicAngle 0 def + /isFixedPitch false def + /UnderlinePosition -100 def + /UnderlineThickness 50 def +end readonly def +/Encoding 256 array + 0 1 255 { 1 index exch /.notdef put} for +dup 0 /Gamma put +dup 1 /Delta put +dup 2 /Theta put +dup 3 /Lambda put +dup 4 /Xi put +dup 5 /Pi put +dup 6 /Sigma put +dup 7 /Upsilon put +dup 8 /Phi put +dup 9 /Psi put +dup 10 /Omega put +dup 11 /ff put +dup 12 /fi put +dup 13 /fl put +dup 14 /ffi put +dup 15 /ffl put +dup 16 /dotlessi put +dup 17 /dotlessj put +dup 18 /grave put +dup 19 /acute put +dup 20 /caron put +dup 21 /breve put +dup 22 /macron put +dup 23 /ring put +dup 24 /cedilla put +dup 25 /germandbls put +dup 26 /ae put +dup 27 /oe put +dup 28 /oslash put +dup 29 /AE put +dup 30 /OE put +dup 31 /Oslash put +dup 32 /suppress put +dup 33 /exclam put +dup 34 /quotedblright put +dup 35 /numbersign put +dup 36 /dollar put +dup 37 /percent put +dup 38 /ampersand put +dup 39 /quoteright put +dup 40 /parenleft put +dup 41 /parenright put +dup 42 /asterisk put +dup 43 /plus put +dup 44 /comma put +dup 45 /hyphen put +dup 46 /period put +dup 47 /slash put +dup 48 /zero put +dup 49 /one put +dup 50 /two put +dup 51 /three put +dup 52 /four put +dup 53 /five put +dup 54 /six put +dup 55 /seven put +dup 56 /eight put +dup 57 /nine put +dup 58 /colon put +dup 59 /semicolon put +dup 60 /exclamdown put +dup 61 /equal put +dup 62 /questiondown put +dup 63 /question put +dup 64 /at put +dup 65 /A put +dup 66 /B put +dup 67 /C put +dup 68 /D put +dup 69 /E put +dup 70 /F put +dup 71 /G put +dup 72 /H put +dup 73 /I put +dup 74 /J put +dup 75 /K put +dup 76 /L put +dup 77 /M put +dup 78 /N put +dup 79 /O put +dup 80 /P put +dup 81 /Q put +dup 82 /R put +dup 83 /S put +dup 84 /T put +dup 85 /U put +dup 86 /V put +dup 87 /W put +dup 88 /X put +dup 89 /Y put +dup 90 /Z put +dup 91 /bracketleft put +dup 92 /quotedblleft put +dup 93 /bracketright put +dup 94 /circumflex put +dup 95 /dotaccent put +dup 96 /quoteleft put +dup 97 /a put +dup 98 /b put +dup 99 /c put +dup 100 /d put +dup 101 /e put +dup 102 /f put +dup 103 /g put +dup 104 /h put +dup 105 /i put +dup 106 /j put +dup 107 /k put +dup 108 /l put +dup 109 /m put +dup 110 /n put +dup 111 /o put +dup 112 /p put +dup 113 /q put +dup 114 /r put +dup 115 /s put +dup 116 /t put +dup 117 /u put +dup 118 /v put +dup 119 /w put +dup 120 /x put +dup 121 /y put +dup 122 /z put +dup 123 /endash put +dup 124 /emdash put +dup 125 /hungarumlaut put +dup 126 /tilde put +dup 127 /dieresis put +dup 128 /suppress put +dup 160 /space put +dup 161 /Gamma put +dup 162 /Delta put +dup 163 /Theta put +dup 164 /Lambda put +dup 165 /Xi put +dup 166 /Pi put +dup 167 /Sigma put +dup 168 /Upsilon put +dup 169 /Phi put +dup 170 /Psi put +dup 171 /sfthyphen put +dup 172 /nbspace put +dup 173 /Omega put +dup 174 /ff put +dup 175 /fi put +dup 176 /fl put +dup 177 /ffi put +dup 178 /ffl put +dup 179 /dotlessi put +dup 180 /dotlessj put +dup 181 /grave put +dup 182 /acute put +dup 183 /caron put +dup 184 /breve put +dup 185 /macron put +dup 186 /ring put +dup 187 /cedilla put +dup 188 /germandbls put +dup 189 /ae put +dup 190 /oe put +dup 191 /oslash put +dup 192 /AE put +dup 193 /OE put +dup 194 /Oslash put +dup 195 /suppress put +dup 196 /dieresis put +readonly def +currentdict end +currentfile eexec + +D9D66F633B846AB284BCF8B0411B772DE5CE3DD325E55798292D7BD972BD75FA0E079529AF9C +82DF72F64195C9C210DCE34528F540DA1FFD7BEBB9B40787BA9351BBFB7CFC5F9152D1E5BB0A +D8D016C6CFA4EB41B3C51D091C2D5440E67CFD717C56816B03B901BF4A25A07175380E50A213 +F877C44778B3C5AADBCC86D6E551E6AF364B0BFCAAD22D8D558C5C81A7D425A1629DD5182206 +742D1D082A12F0780FD4F5F6D3129FCFFF1F4A912B0A7DEC8D33A57B5AE0328EF9D57ADDAC54 +3273C01924195A181D03F5054A93B71E5065F8D92FE23794D2D4347EE3E5AFBE73BA31023D79 +A7299D8F662042A8D8B6A7B4E86F48AE98EF848E83FFDE68E17A0832A181C126D15EC7986179 +6F03957F5A51462C817DF752097718413D012D19C9D4423A5EAE1EFD4EA7A9651BAE6E45CC19 +4BDCD03FF43F255E58EB5E50CA26BB98B8B11E21DBFF2BBB04D039E63C453EEDFCD9378F5E7A +AE3A93E8691DED5865B2B78F540F8AA3224BE372B18904651D057608DE4DD729FAC398A80CB9 +0441045190D66C44E943517A8F4969673B985D9D244FFC743E0AEE309EFD224F7029D37AF6ED +D96E2F88C9D071FF16C73BB285D82950D8A87397DD7A7BBBA46E5282D31185C272B4C47D9414 +C3A6B57686B36AD5E067767FC9BA7C55D0E8EABEAA4F0042465B7DAAB6F449FB04F05BF2CDDE +AB6BC48626EFC74600DC8CCBDFCDF6204F4F7D499E3471444E0C0AB6AAAE8D579AE37CBF9FCE +8C1AEB90D5663C4E6AB16D414F1DD310C89533349D0CBACFBEED9EA4D10E95BEA8ABC3BB9313 +769A017F724F2FC3C7819014C12CFE162D504569C3DFC927406AE88B078D7D19A987734620AF +1B372280EF2BD7084CE1E540ABC6BE4D7CCE1B18D6DEC5C34163FC424B3F0345A90A0AC04D67 +38066AF53D5A6FC9C65780B37C37EA3139D5B7D738D013F6F6495CDA2A6CD17BA5D0F6088F01 +A106FE53E2ED17E658DDCFC5976F63B2B0EB713000FA099527AE19FC763ABAD7FCEEFC279A0F +8E571AE1CA3C86865175CF668BCCCE9080D4B75784CE542A64BED5FA59EF49208BB96E63DE99 +49E23019E3F17D965EF6846831FED850AE03988B9A55BA7E2CA74DB54AE761F851F778CFCA7C +5DFEB2A556137CAACA2B8A882E1E20AE7E27C600476B4647EC1888512BAE3B96D8AD78E479B1 +690AB0A2C607836F0DA92B66F0D1F44E331ECF3271F72C5F38D693FC747DAE4E8A930B243B3E +EFE178F40E73E0196B02A593A9FB7D95FBEEF7FAECAE0502D2F0A66260C198A1DA83A32FFF5E +DFF3C13C0F4ABEC5DC8E2B26DEBF5B55E615C660D3A19829BBC42C49B79326777A10E2E83300 +A262C817A2C34CEDFCA497A400443AEDAA113CEB189195BA31264B673E21F645BCBDB28A7FC7 +DBF6F300ACDDEDEB11EA67B170590276FCBFE70789561468A17DDC2B422665E5F39DF4C587F5 +F6C09AC5573C1FAD8EEE2B14D1E2A4F4D16654819DE9D53DE71757AE921F2D06DE6CA6654B81 +0041ACB31B7509220BAD21E0818095D7E37FC834EEEA54496A9931933D3A2719B2C6E6D9B6FA +974FDA269B2CE0F39E9014D8BFC07151ED75B0EA7BA3718DEFF558EBE79AF949F0740D801B72 +0D893099B12594C566CF450BBA7AD652969AEDB00AF2CDE8B94CC25A8B1E83F80A826E3701F8 +43E80CDCEC59D551C96F8DE11101F594A0C3EE21C4A3EFC5CE3388823F5E9F7585C2604488D2 +78B18F20E6EA4D084BC0B8FECAECDD9C6D2B676CCF5FEEFCE131D06E41155C05013A425658DB +D4C22576A8579501BFB30997B49839A3399A7AE615836D5372EAC15EECA2E11A18870675488B +35B6C2E84D8CCEA6E25C1CD7B45A3D2886DCCB45ADEE08FB170F8B8C8748EEADD305201B6145 +DFE32C8602B10C703F85E92A5BD0156DCB36CC406C03C94C88049D9CC90D9DEE76DFA43BBD2A +711A1C2A87099FB1D1F77D212C4B7F69B8DCCDEC2D8B2B3129ACA91194EB8C065B8AB634C1FC +7F7DFFBDABDC32704B239AB9143EDD3A40FEB564001DAB0024D771495D6463AFFCD043D024B0 +2BF59C64BAE8AF477AC0814F9092C464680882DE45649F3A6455A33F5B41562076EA1932DC25 +2407E23DED6E27FA79786CA398C2FCCC9A4258C8EDB8A7E3FDB26C063805B7247EDE81689E9D +6DB12D68AE0F8C6CAFD80E4D4BD0E27C3A6E515BDDB6F6126DE00E578745A6232B5ABC4C55CB +F946C6DADBD83B091767AB51DA4BAB402C70D2D4EFA26F22AAEA93C3B53DFB85D25944AB25D4 +6F26C51025BEBC6CDE16F8FBA2F1BC5DE764A4343D932641377FA08ACECB876531141A170BEB +176FE61A3DDE0D63E174D6E26159AB5EBF7F47EE24C6C23ECA00F417A122BC1E74BED7446026 +A92902FD0DB9EF124C6A32C0E766399B240163355AAA299A74A87558CA6899D2F1F9E8F0BBF7 +6F740710F4D305B2B5B53C441662CDD6EB6227809DF6F67CE9874C71BFC6AC410B3DA9C82139 +6D64B626661C9888CFBCC8E882A61903A283BFB74ADAE79E382E5DE8D2A160C85429A8AA6FE2 +2478BB14985B413BBCC923CB221851F61C44C9C8DD56E9A1ED43925206F26F255EC631D11E2E +80FD4F3C917A179554FBEF87FAF4840703E60F9FCEB79EBB6849F9751CB46ADF4E251EF804D4 +21C2CE96486E8648932F8A2D284F0E0975ED84AE59C639FBF2A41C24B94314201181B9824E6E +A044D25886C7F160FD8F8777E0AC4E0B52EBDA9A3C0D1F70C42DC20BAB5CE939F61A490F22A6 +064A5599CEF68283F98935281F082D661C56D9CF249A92C0715580286C2BAF994D11A143319A +F38285C2C39502CBBE178F95776B842A4DD59122896A83CA5AA73CE009CFBEF016483EA3D1BF +3F80D15DB709A8F1E24D03F087F46B5FCAF70A2B5D81FCA7259ABB82028BC961FF00AA0516CB +E04361E4F3E49498A19560B9521C9F50A6743D0AC54970088B9ADA7612267FFD078473708C89 +4C8C646E1F9DD7CAD9CD2E708162F48B00128E82FBA3EFC582845C7AF89B24AD38789595478E +ADA52DC8F6CC45B8AF1D449ACACD8ED20F0B3CAD2C6E566C0DCBC6AAFD10F072CB10E6819EE6 +4288ECBBC027C80E87287F38949E3C483D6B94B900BF40867E507E7BDD03BD91476EE418808C +9001C88E35BD0F7B7F9A16CA90911E9EBAEF5D712472AF592E5817F75D88129BB95E2D46E045 +EED75605B4B961C087BDE5587E2BB87BDA10A99D7C033BA1FA57368ACA61772E489FA83C17CB +AA9003CA6F81D7DEF487597B6B2B373ABFD3A0623CF1E03EA5C8F91B00570D09224C2AFD3052 +588059584C627F9DCDECA30A25A00D7514735C81B5A4DA37D869420FD84951725E5FE0BCB264 +87AB28FB3A72CA15F73B66ACAA8666BE5CFD10EEF1A3F69E57804285BB3A6A9544F0B18F6A99 +87317B37577A93F3CAE8AD0C03420F26B44495CB546DF79C21F2E47E83C539C3865C0F4E2F00 +D9E7AF089F1E2B0E7B6FF609F86050C6BC22AE7613B9C5192AB6C38CAB78CF337A3BC4379700 +7D89500FDDC4EE4C871D6384613C1FF870C0E5E3282B88E079FA782EE592D4669CA44C9602E6 +82E4727B279788E81F63314209BAECD5C9471DE4ACF96407A50B2E83B8C5C1C8D8C05D3FACB2 +509D29EB296A98B5DDB656BEA8D71BC896436F685A59A72B23C7E2702AD2EDE6DCDE477DB3E8 +61E083273F4F1F401D7BB175DDDCAED839AE799E5A389B76A39090747B4826FF2C6526433362 +A5A710EB0E14AD97CA1283DFD1AFF87AA6FF3AD6A790A1695117979B44EC5298CE93F24C7837 +7F8AA8458F2D7315571913E6C5E80DBFF15CDEA786D4AE0CDD6E4CAD04E9164350252AEF4D04 +F8F7EFE42A943F12FA0F78F6FCEAAAA93D9E714C9AED12A78755EC62F920205F4D8CCA1B6994 +9DCFFED15C79E06F256A31A983CB7F218A105919E5040E7271489FCA9196BA37A49DCA7D9E93 +DA5A4AF10EC3A7A4DAB27DD95F0195E13A1354D3736F687B9020EBE08074B71E877D539950E7 +F6CC46568FECB9CCA4E59B5EECE09D096B65D2E7CE80EDBCCD1B441296FC805031C07B1196FD +C6F3C1B74289CD8DBE2698485634C776CA7A914008B09A6C3A5A191FEA7E75CA79153F3030D4 +D67273E51A2B0A74BD9B2345BDD5299B794098A248B94B0642DCC3D403FF1F7AA9F2604CD057 +2B29C04CAA52F05483BF9E983704B65E231705C7628D5D31F83326DDA3575E5DED53151A1B9B +A507AB8F195870D7B74D2A10A18725C8C76D0C3AC8532A1BB279B60A917148F3590F95268CFA +5CC7407E85F0E10B185BA83285E79E59E7C5C474C0E5B7CC9AC858780C6145CFD5AF68E19FAF +ABC4F057E7101EB4A367EA5FC1FC506109F584D117DA964F7B907D0EE90A5512589D37CB28A2 +BC32D0986713583E4AA640B80DE3F7FA2DADA952C0A81460803970A1590356956BF63D6DFDF1 +8F68F848409FF11515E72D37CA1532D4ED801BE3FAA1CEFA7784BFB24CC47CCF4F703AC65E7C +A73CD93DC74FCAEED878C7EE09E5D6A49ACA975F4B1176C1E270E44AD30DA04744554D83893B +46329117E702A40657C295920259220FC45D2ED8A86C8935AF15AA399D91440AA0A6F67C599B +7CF54F42689D6DB715CB966D84535B79207C04736902D4D4CB1AA37C532985C67B8A727F9F85 +FB9961DBD88B9E1736649187F955B8C6EF5E2A0D827F2E449560143DF274BDCFBFC38AF7680D +97344F71632E9BC09EC466DCB2A94601BE3C55F85557A3D008A71DF9AE4C5901751FD84F8219 +B6E69CDFDDB0B6D9641D26EE8594BA559D801BD3D56A207E960F8DC156EF260DCFAA516E0759 +7F6170F655A21C7F694DCCB37E1869F4A9CF15E8C2DDA1C0CE86B2CF4F2B64FEF7F78246F5D3 +D81C0CA5A1223620C3276A86294EFE36474E1645881C412CE915757609433876A9A4D3398262 +04E97BF203AF4446541B36D6F1755443EEABD77CCDE56112059BE227635E84CD0C5DF24195AF +A4BA7AA48C80D49D2415D710C37AA652D1E1D974B7CE2805157997A29DDB936FA81E80DA49C8 +2EAA7A03338773726903A078F7361237C2D7E424C3D0C74F894E0122EFB5209E7BA33087DEB3 +970DBA839FC3C6C0BD84AB5BBB9EEC1357DD1E65636F6DFF901EE0EBE61A7A61A8E5D4B74CD9 +A3F59298D89DBF49EC79051F8405FD514E8DD363A808D23CDFA721EEA2390FAAA6BF262CEFFF +E247665015E9346534163D959EE5B70F5B32DCC7D45F824DF454FF6AF21E48401ED2D8027ACF +FDE33DDDCE1C603E319C534A4B9E23AB5EA38CEBDCC95AE454DC0198DDC6E14894291A419814 +7CD3B265A7DAAA2B78A087A1CAE0241EE6C067AC2E4C3FC3E30C4C6C115A29B3B0A5C5AD52B2 +35FBA9C2E136E92CDB33F5B6BB3C4F4514FDDFCBD101A447E95E92AB2CC92D13AE749D96A968 +18B94A4BC4102729F72FB8F1762A0144CB2B586A980D3F9E4D7EBB71AA709C0A5834948AE58E +AE2F3F10819A5CE0AC980E52639919589CF34F3480209B0DA47703A476FBEDBBFC543709F2D5 +B1E2780DBFA579915E6637CE7E0D02420699E02D80797212DB449209635516ACF40BD0D8BA38 +E2D2A26ACFF4082B52998B2EA53A2A40696AE22DB8F9BBB96D136BFE6C17750DC4C2AB9CFC09 +4E0C6842A82B850A2B299925993A8B3552400B38FF8D039DDD24F322C24F97CFA1DCA9F80900 +3E31915CF01822BCD3C4732D5552005048F8FA0838104A7E3ACAAE1609E2668BBD9B6E51678F +9AE0D1509ABFB90C89C780628EEC5C556E9C4B78604F64D7163FA154C4A18CF4932FA2378148 +E6CC1801C59952E0A61B19800265ED6BD2F80C50F8CCD77E497421B8A93C76D5FCC665C91EC9 +C208C1ED47765ED268ABA95E028ABC367A52DE075553DEE6A78D1D565D3A791D8613A9699FB0 +8D2F90D233E90A309BD803DAA5CB71F8756ABF25F59EF084320C2874410DA2D73B4F7D73BB06 +E4D1BEF02358715F74A540D2DE778EF69333C3A33B0166BA72986DFE44FCDD94623B9BE3B8AC +2F195008AC37356E2F84885633219107C75C3CC35574626B04DC86A1340D6D2EE5D462BB759A +BF31C756D3CADA18233A7C61D32B5F3716CBC6D87521E4A4E110D58AA70B022FD099DF807B60 +898EC78D689878FC313F445CA98B414D41AB5E7CA41387D851187DA92117E3EDAEEB6CBB78ED +44EB3F3BD62DA7DB89B20DF20C93E05A01B4D901D0339577092A5B547F0CE9AD3710DAAA5DF0 +77D5D3E55E242CE10A9CADE496B371C4004463EC54E70DD27C278D4579EF9C4DDA735FB2A6CB +D7596AB32F2B333A5AE9E6BBD95FD311C1BBF929F774AE9C3EF4380FC48F70F23B66598BA423 +91C1473EFFB48B9D114120EE3C43AB2BFF1C3CA588861F33531FA84EA62D39868E837B477C41 +5B1775F2898DED2516B6560B5983B9BD9D7E842141D8B061E5EFABBF6A19406F29DFA8D6BDC2 +737721E5D5D4E76ADE5856B4511D28262E60D5DA90C59C6188BCC6535AAFE74E1F31C32C230E +BF0BEA0013491558CB90A6885E9DFB31E35D47547726EB9B35354F006ED049EC63CC2F9FEB2D +397B768E0BAF242926CE225A45152331865F0A06D8BAC42C0782EF1E222C70B05A634241DA81 +B0F4E16FE710CAE0E850972DFB9307DEF289D2140B82172F8A565CC6636D9037EDF1A2B52164 +78F705AF45C063228CCA35E834397429BE11257754CB92AD82130536E539883094CBFDE790F2 +93775CA1408C29C313503867177F271A648F03EF801698A7E2ADE9CD517D4F69012A7E6EB03D +BC15446CEC2554B88FA234C303B80FC1F91E3BE76475B056C40A721873C318AD5D9B2B2B3309 +340354D2B3A008B97735E1B068DDD6724B20E13DE6BD8568249CFCF2DEC3EFF192326CA20242 +2B76DFD82EBE48E2B4CA2A3A6E396C6430162B00A165863B3B84795A6AE69E24476D2A0CFCD4 +3912590F04C4FB7E3F88F8A542652F8C6C74A96C5F14160A2F2016CCB01F4091B28C3B1A0C91 +1F1EB030F069E8F09E79D0B0ED51680B7C2E13D7E9F4B4D9B51CD509DE887D79AE2E0749D076 +983AD1FF1112EC4FDD1EA4740BBF9C8F66F5DD33A272366CEEB73F4AC3D3426D2FDDD368FFEF +72F645493F6ED856AB669BB9D784951636AF186B107D6D8C06787050B02B65877F3581C1CE51 +6E5B3873613C18582CA31749C10ACF6DDDD4D409754BBCF78C51E8CB1AC23B8061066691C1E1 +CD094725E946BD871ED8B147DD0D6F1DC95D9ACAECAD1CCA315D620E9E91F70C6027344912C9 +185C27E27400C65036D8C678E999CEC76C2E57D4D4D932344CB17E8C203216CA4595799E7862 +D34A24ED0C96405F37E6FFCA73D67F1F199EFC55B9F3559DDAB57F011F88834C03E528052035 +B552BAA4306388614EBEB304EFA49451F419CF688697AA203CFA2516F1DE134550DB47B7F19C +82286DC77155EE1D0EF27078972E4B13635025EA6E349D61FEC72788230345BA778F9CE27105 +F740349675832BED0E3146B1C5181C9CBCE926CBD48128D74324B6A98FD0A8B860050EE714A7 +0F58824BE058749BFADF57274A42C43F14479D649E0B0C6FABB5150B15A87005F6C1245E7F6A +93B962CE87F87AD258A196ED3C0736D2FFB401BF5136EA14DFF6A9A943DEE78D337BB0474577 +9BB96320A85FD77136CB76D9F21DDF9D68A8DE3D8F7E93698EAE4A2481EA71B1637B6DE8C806 +7186A57C83886DA87761BE600DEECD13448A82BD652BE7ABFE6A03F525531E00A5C5ED25978A +39BB85B12B267B399E06BFEE7DBDA177B6E4BDB95EA706C4D89AD2810ECC6F08BF0AC19AB67A +E4DEA067A542ED307D905E2486925D5C3EAB8B7DCA673E4DD6AA98DF7C57A8FC41B33A69BC00 +5422F2EE65F677B9D49346F3508506FCD91D499DDD98B7CD96E7C26CF461A54450B70D6EB167 +64460006CB6597918824A917EC42E73E35364C1A3E04BA8706BD2A1DB215EFF899B491DC10CD +39A185CFDBA67ED98B47E6660832CB960B5805CD66B29A5B26E9167045CC7EB25F3E71E73933 +92A07E8E2314A93001FCD5BAAE8A4A40C402AE94203BF88AFA8EB25F600E106CC0F428084C57 +7317AA34217BC77B1E075A4BB99145EA55CFD1D12CB79D98E68A7C19FE9BA51A9E6486F85E5A +77D1DB195BBA28B11394FCE9FC1C3D26E3FDCF7D711DACB8E98A977BA2DF2703EE821B7760E7 +BEC7BC3F2E750CDE02133573F57CE1711A3DF97CC6B00BF0A4DD2CB038B80A966459B362C449 +895780BA8CED84A038F9C195D7BCE93F8F86EA4BE455FC5FFFA3B08D308535CD771022D1E607 +04F4235D207E0DF8ABBBC3ADEB8EF08F0FA0A814BB1A2AF8761F86D454645315EEE880C30EE6 +6110F3A4882DC2A91047D4DCDB0A2B92077F293F96D18F0D69043BF8DC51096B86B43EA8C679 +07FC344161A50B73571AB29D43E8F92F38F4129BE20425FFB545DA720FCCC5FC9BAD2EDE1165 +E5C09D80F58E71EBAB4EC35B6C80E822CDEE015DFFD22A52DBD839C745B6DC8338098846BCB0 +81FD0683E9D984422D42820005CE1163C907616A06C036FFA37C6FAF8ECA27CB0A51F6AAD0A5 +B01A59943DF1A858182EFCF991144162A5B707A38A3668127E5D44BA60D423F925DB366261F2 +2AFB71F8026DCDE44D6B30BB07679EB2ABDE89D20D8AB8B5B8A242191F39D92B81D239CD2BF8 +3549BD1D8F5D8DE22B882303F0D311166A10983C68B5F6A5242E4B120CA137FD73B5A4654DA9 +5F079B3E97CC587C09CFB052316D04DB82CB825F77D394ED2FD37D3C7A0F49304C5E351A93C6 +84F40188C27BBE3F4282F1CF0358CFC8D79479C3226A8F2718684D393FBB1C5ED463B7C86D68 +9C20F368DFE740367F31FAD3284487506A94CD3ADBAB23C04CDD06E71B39FF5490AA02705872 +E8F697B0741148E58DFEA804BD47C3D4933E893795516778E63C34625699319F4BA80AD996D0 +324409615C025BFD7D46F32E891AC6FB4EF007EBB868DAFB18C582FC396BD2E57D9E36696B05 +2E2A840E583983DE26A1E273B2972B97ABA97C1070D655144E88C4A22C1DE230BE5CE976678A +7BE734006FF049A1009ED4061EACC6AAD5954EA39956A7A5C46A48324F9DCB99B1DA8731634F +66E4D9318408D8E3F056322452677C3D39A615402A1444023CBD1E03BF0D8E4699C799FE4653 +1DC8927244CEB5C4BDA5A093F42DB31386CD599FF16AD9614B6C4165461B648E827B157918D4 +BFCFBAE65233C880A7647C314B18268F074990939DA5783F6A991F08D51BEFA8F73092FCDA9E +6652BE5FD8C0A84BC5B3305B0E8CE521E94AC03A57C06006D232BE35FF7BE479678B11A17D97 +9F8E191C488AD283C8CD040EBC5BFEBC5DA3967A9281DDE7EDA445CE2805B20E810F8E6DFB9C +F76B1DAC46DA7F7D0964DDA30C56D9E40A2C9596AC25198D17A00A0CA4719F58346E68FD8B8B +32B2A273CFFFCDB107E7D288465AD11DEAF0C35284BC39FC717ED885B84296C99653E4AE8FE1 +C3FEF5187F6B514AA1542D7B23D36CAD52D98F007470B00FF2D27BA6206C149191D2649A9231 +9A4FA6A89A1A0898985A32B31101C4A06306320025A8B4BD90C05BDD7153492CB857BEF3B16E +0CE7F6F47A35678EDB69485DEC815FD4DF32FFC609D6837098E00C0795B7279E80CD7B5A0892 +D41BF873A7D4B836BD11D6694B8B5B8074D4CB81BCFE79D17EC87BBE8C11F45367548D11B3D6 +6C7129B30B9604F84077A7AF537B066AC69C676747EA4CE08467FAECC79CB1706B6DDB963F67 +D68B7F96DFA5B2391918EB6EAD9EF3542E06CEA4E9B29CB3069CBE9EDB5C5B5484257BA38980 +CD1FA61D4D7375418B393C6DDC30DBEA8239EB2FC875ED82ECFA2858FECEC9F395AA4D53C480 +AE25F5AC6F606AA2A58141C90EA1CDDEE8AB82C4A414F127D960A4FA0A0B21EE0712FB2A9E23 +9DBF1CF766F450BA7C54ED3AF1DFBC639373FDE17589ED987495E1422CC525E5450D1799ABFE +1B3036CEE6ECF0C9E8CB1BB2730E975360F923A2EFF75BC895DFCD0CD050C28FBA8272EC4943 +E5241BB251C486919089EB81B69415967808037EF949FE4ADE07BE82367319808004B57F3BE5 +FFFCAB6180002BEA9952B88CE0FF902B209D37729D557193D12A4ABCF2E06D19D7F815026F08 +847D280A8DF5DDDF393034A9137300504C80E6B72376D65C866017A248D9E4D81D5BE2C43AE5 +C13614D09B66587058456CE674851EC714763A7F3E9C85F0941B05D6810B264F7C01AF7DF01F +4B2C446D31F36E07C3979603E92CD49FF58703D1EACCF839254A58CAF7DCFF0725B8D13DFB39 +E2FA776E85CB78CABA16F76C5A84BDB72120F2689176FBF30BF6D0799ADA94D7103B3FD83C8D +252B537B9F33E508D34AA55998626D0BD5230ECF94E90AA5800444C2C532C3319704B22157E6 +92CE472F4CC09DADD30A51F83F8E955A537E45E2BB98B596283C0EB3BD246A642C066C4B9C37 +5CB40AC5B291DA52B083B6E394904C441079D0B5AA276B7FB687857D98307D9395B6983D11CD +DDD3BF5857A66952FE59CF033A2BAF7EB890F7F7B1205ED7EC838FD3C8529AA150553B9FFB35 +466E378D6300D9788A08A828738378188668D57B8B07561CECCFF1118C5B1A82E36BFAD07982 +D24AE03A1C7171D181D8538B44457B2914E2C3D5EE04BC70AD21DE95D5A55403F25BA28F754B +CBE77051EF29196C29ADC94A412AAF533EADB1B0483859C5160BC04A29F7895978FEA9BE2A55 +18AF0947A45C6885D103EDEA454046D6A023C2DB25FC1A10725F6C5B800AF66B8283644A1688 +8A3A46B02D452BF71CB013DEC71FA37359C93DDD1887B4E8C0284047FE888A6C2AD01BB5B9ED +E2BF896FD35FB02325985648FB853DA703CFC5E0468E43ABA9ABB61951A470AFB288F16CB404 +062C51E8B49870E251BC096C4CF605E8DC28000E8BFFE5FEA43C4C201881BDA59397D016F8A7 +8812F7507A4A44738F3D91D5346D74F80213BFC09045AF717A1F479C9D53C9017A31DCF52156 +1F67972ED79D6F662A16DB54C415C23FFF3D1AB7C131A97C5C56D3177ABA98EBBA388F6E7596 +ACA63681281ECE9FB5B539046D90BCE54C807A8A7C2F356AE90B6AF07C34CBA57205BDA48753 +F2D06D818F37D79E239EC50F461686F732FA9BF57520679835EFCF7405CFD3E05130037E1321 +82E4D7AD9F59324C336BA6675A1A19BE44B264970F6C7A07FA6CD497E6524C3E9529D4EE1050 +50E1DE2B2A29E8AC7D53ABA0FA30EF58F3DBB24D4E9A757CFA9C966479AA83C09FD3491EAC1A +57262992611A863EAFA3350801AD038B1D0718936CDC00691AB01AFFB58E222FDCBF7CDF812F +6CDD343780E91555E7438382AE39F88715E0732C415D3164AF244CDB8746555915A47E7FC03B +0755E23D8B2F1B9D86D3380EC81C05F48289A166810D886A643F409B83DDBCFEBF16ED33449F +7407F45B8FDC072B3C61BF263F505128022F41A420FD425D6A04217D0CC57AE43D34E9DD8D7D +700421EECB9177A7A9852BC906EF83063C6DEDF051E3B9792DB60ADD761FFD9638620DC21C9F +E852621C31B858761253485BC88AC3417136CD9448CDB9977C192BC39B68CFBF553CA123B20A +44CFB8E43C4D906F3A23834FFE71AD5FEDEC515264F9495CCDA2BE9CA13F59D16FE230DBE3DF +7B32C121221961E20A7402AF1DB3361D7D26D97AA4E3E50226D191251E0DD4EFE7C6787ACF0E +32E3C45921965EE19BF8E7B18FAAAA312C6065AB2ACA9CFE9A233AF7225893AC3461351C2C68 +E28344E142867A8A326C9D3FCDB68E037E6F122E9AA0B233D0D3A0D179F504D1E788CF1882B8 +70C19470C767FBB400DA3268A9830D9F9B63EFF769F8A49EE1667C869986DEEE7D635A850B31 +2FA838F22343B973A77888F4C087D667C883904E3323D0C24CE37B245B3868FF8521B30F96EC +7EDB92AF193EB9E2D5635C18640CBBB9A02CFE9E67C5652F98611ACDCD82AC0006E030E46448 +CE35DB358A56804E1606A9B87D74240D19189620B1813CD895E0D5B5DAB58F9112875E539358 +658C5C9B8B0E3FACA1C404CF4AA320B2302534A6AAC191605DA459D8D738F50599D43C21B8AD +569DBE12F90FFCA7C90D8EA60C65FFF560D825E262E0D3DA44AFAF9DA79A843C47EECF4670D3 +835C7BFF6B137002497CCBF17DE65F07E6A00658612679CA3DC1AB947E4B37227AEAD66F3EA1 +DF58ED32E0FF6000A7A6B4749EB0BF3F1B9B8F25C296A1387340512C16B64D101E1CECB0016E +F5C1816EEF5CE9423AF9444CD4E9A211E234EBB756FDF0A065BF0824438E570EDED1F9C34AE1 +8CBF07C18F0CBB679F375D66DCAB625F15D5931EF9799AF9273783A45EAB31DABAF1B5CB6789 +5ECC16845A532C90D5005446B692DF54A7E180DADDA117289F7A31138000F50B8F48BF4CB679 +6E918B3F4E365C2114399F774BDC667BDD83A0B21B59D392E64DA537E7BD78CEC434CCF4A9F2 +3CC20E5E76F00E50E848065656AAEF309717310C02571202F786F4455FF79BF206137B3253DA +7E349A6A96ED8616B8B375C69019544A87966CA09268341ECC241EF2EE466708E8A4521561D8 +6D0B2D61901AFF4EE32A9987A52B224DE3482A10B05A1DCC9E450283E8CA2450738885E46781 +582F28E8FFBA5C6AF99B3D876B5C1ECFC27AC029F62F7551BA6F8CEE2E285D6DA3132EB58CFF +1274CF893E9F36E0AAF4DC5A1F54B9BF04A10D8D92AE453FF4ADA6ECAEE77FD1EC6EB667EEC6 +8958ECD63A35C3615BEE85DFB6C57C55EF418B1234A503BE9D1C1C5C99A37B2C4DADED8B1EB1 +D23E2C048FE8CA32B327579B45F4A266824C3B88D07F4956FE390F67CFB2783B5A096B8434C7 +95FB6C8CE2471B8F3756C02028F66A54A975605E710D1B645346E1A96D5EA0BB33407C56ADC3 +528A58623D3249A830D1F216B62F83C08B28FFBB1E98E499DE4D3764E740326217FF18341D09 +EBC1CE3B7CC9ED24E02BC60A5E6F34DC01CE6F8472F814ED1A13CC5EDAB65AB17F3B01FBBB5D +48594CFA7045964FC66C4FCABB1F4FB15C63806FB412699F82182157E43F07851255638A1954 +7ED2D636E7378B6EC621D044AB48C72B77E95904DA6639DADC6F571D243F32FC539835CD5F42 +AC9B0E7B5A6D49F544A265B534EA6C1D185631491569CCE8F3C16F522FDB518EE18E4596D4DF +4D25026D1D4A36FB153BD2FE6F9F18E7C3F309ACA0FF1B8F347033B92602C7AA44DAE6D5D767 +DBC59C7094014A2C0DF511CBD9B9D9ACC389548862F8E1FF05BF76789C3599D4D5BF455C92E2 +090A1B6D3DCD0E6654310706679976DE1D7ABBBC4E5EF6BA86CFAD926EDBB7C4DE045FB0A21B +46183E5BCBA2930B65E2FB3716B6E365979F023973DA4682F871CA83A8CBD7AD297F4855D3C4 +8512B96782B838ED514DDF94A6533527B3F7ECD3D29FBCEAF2EB24606568AE36D7B9184C6945 +1F7E04F76024E90688D04515E1AF746BAFA088AAD5083C491527537592D8AEC95C5C312CB5C7 +E3AC126AE6A5957CFBFDCE3C5F809BD8000FC7B89BBF1AF6A68955760776158855403BB65BF3 +3F283527490254CA87CC0062C161CEF7F44FADEDD328B4E9E4C42443B94C96A9505864DB15DD +AE03B2B75D5E0FE3C74511879A23C26BF3AD859877F1D3DF1EDA58A169AF08EA8A8861C68C87 +CAB6FE8B5ED634C6954522A685640352D0F7057CCB54F4584A946ECCACEC422CF13C07355CF9 +D2EB5FDFC81F85A922F8AF199E82FBDB4ED96DC49BC0E3D45F6B06E1D99149CD773AFB3D10F0 +99C9F176D188BAFE75BB6BEFAD705C3D7303D3B805E7D453A51AC907453570AED5843F40B609 +EE77107DBF91CB9997EFBC328E6D1893C5096FCAC5764BCB91142006040DC458D6B8544FDF63 +A0358C7B4A26010F195875BCC610E5C6E831D55A6718704E9F146D1484295F81B02ACABED2E9 +DA505DF45C58A2984AB68AE99ACF5D464B0451D08EDB06E078B83847230A1CB96FC489D1625E +28431CC8D84C7988C81F5D44C03213D770E0AB58D343041BE3D45D98A4A788ADAB89604454B7 +E62BFA52F18B481858760938FF75BFBED356B6B198104B52583A7F608D12A73B14B44987C717 +5FCEA79B0C3510CEADC166B55400C2203BA6C696F15493FE19357C922B895AE28B1306545E2A +75C85898CEAB0326FD40B87709196B238743FF870B8523C181C60431618FC4E5EC90B27AE155 +1D6689C91241E023F5518CB21B56971131CA5E9DDC1A18969BAFF7BF4ECC9A4E725EECE9F756 +CC2912DB55CDB93F92E08BCB21F7F8376B47434994A0F08504FF479BF383C6C7BF2CA8C25D58 +96DC1E454E33FAF8CB61DD5E0BF5FBFE6EE2FD17DD61EFB7396A42ABCF0C49733794A2E1F192 +F564F306F7FD6ECEE585F5B631F4F058D3F44A1DB7E8DF9C609D3CE4E0A8879D7F3C3BAAEF69 +9B60D8A71ACC51E68C333969B78B2D974FC03F23FABCC0B556C2810EA9BC21F3352E9541878E +8BC2B1052814BBABA742ECE814E64467CEFBF235BD41B3DF54D9382353D82804F39B5FD92D8E +92A0F8F83C33EF1EE41E7916358F1A92E405957E67C432D3B185FE18FCB56DF449F6DE0DF141 +7649B68A217C39667B0378D2EAE252950C1CA39ED77DA5622DE737F94A399D100D370AD2D4CD +135D1E9928402B83C8E8D837166627BCFFAD6EEF3BFA740AA1B1CBF427EB65CA199E223BDAAE +FCB1C75A18C036FE649B0362073338BE99EFA53F67551F75EB4ACBCD20CEFCAF0CA7F4DCA995 +D4C7A433AA578794A556E05CC460DA5F0460B1BC1FD4274BC260D9C00AAC8A9BEB1FB28E92AE +39AD469390ED9DFF6AA1BBEE13DFEF67E65142837C7A576C4DC57D60F13007E18181B40AD0AB +672FEE6185E036ADAC9176D8DA76193C86F4AEE9C9AD1342D8508AD83E6F935032F1E4F51102 +C02E8CA046A6F3882104BC9CB42E5744F258AF521CDEBCCDD9205315806BF1C5A7434001011B +E514D77041F132E0DDF5909DED575BD7036AC21A5285797A024D3AA6D3DFB9ABE6372D780D5E +18E71FB1ADF6D69C2F82E1A8B2ECEE3598529B3445BAC3C890EDA3B15BD6A4A5CED5A2B9B089 +28D9932BE3C58801A9BBE28D0F3A2AA3D9B14574845BB2AA5E730C11C15873AFD25F21561492 +B0750723975B856995FDF07BFCBB5A090D7B861FADF5A90577785CD023F95E71A2A3C2A4A64F +D75ADE1145A7949A973E40A678417B605EEC5E09B86174BF0233FD2E9E9B636B679DD5006914 +3E53B7C461C4B7575FF5D09B1369092E839ED7DCE75883AB18D2245F74F4B6CAC6EBB310E1DE +2CADAEE76E15FF9D91B1954A5B75E8BA94807BFDE10A7B404664EB1418C6378AB2A2899A0659 +E4225AB06575643CBCFCC140A119CAEB584D06B13D818B33BA22CD36E890E7C2A17529F9ADA2 +88331B3ED6C26BFFD456EFC1AFD405B51B68994479FF9F9284984854AC98580A089182909FF1 +4F14ADE1772D2B173149FB266381EB168C38851E6912F4121EA298D722417455B022559C3644 +C87F4D1604D8A271AF7C19CBC6C55DE146131F50358BA52D4427ADE9DEB89AE29B0E35F61F3D +58CE8E5E5D12E9719EEF0D89F96486CC0972502FB0B89D0592E3EDD486DB84DF812E8AD6E54D +119708AAA3A5603D02CEACBBCAD9D6AF3A933FF937F15695FE03A9A75508CD51E2E24B8A0580 +AF96CF8E8FF3DD1BD103FF7188613B836AD97FAC7DD596CCDC5D54474C64C89F1EFCC4F6D30E +F714D0A2A5FA467CDCE20514EC4530F0F1EC9FE504B75951E6EC7C4DFCE97E163B0D480E2732 +AB787963307F9E97A2BDA9DC3956607F1E25FB2E38644CFE66B9ECBA4D32342A48C61B6E5E63 +C6640B0EA83D941E05EDD8DD046FB3E3C715BB856E8278D5EAFAA5C4F838E7F3A466F91A5E9D +B2884981123765E40FAA45B9ABDE7D4F1B0EA6C168BB9EAA77C3E1CD40F7A8D9B8464C6BDBEA +28A96D82B7BE4BDBE62E69A69A635F1FB3B52542AB1CA66A9F0E8D3F95E8D256E267D9FAC65E +22DCB3785475205E73D707BA56BB165D619F438A67C598FBC6D213777C5A103179004A81E529 +17D3A445128FB312BBD41C6E453491B9A8F8C41819AD2FAA2C17075682C8692CAD4C6B24879F +168C6CE31EB8156B66BF1D5ACEC89FA0548641EE4F4C428613AD1EFB6F0122539232622CF843 +6AD30311DEA0DBC1FFB25344D9F2F5611B5C60F20FEDBC494BC499D26FABD9A0C8FF82B7CE2B +2A346020B9EFDA5D97BE7077B77D94B16B4421BDD01F5A448BBFFD8797C8EE8DCFB8BE678EA4 +3EDFFCB32CB553ADF7F832E2E1F2F06BE6E24BECC802852BCA159858FBC1A2493F7D388E195A +B302F528E315E2CF6F9FD15BA69C8E0D82BD47AE7789DCF012B58BADFE5F6E4BF91C45E5C14A +F6B82FBE4A92782A99EFFC0C1D27F8F0A30564FEBAE46462290FED40C444E6410A2461F2FAA7 +813279C8B1DAC7B266271326A2E7B313EB8550AF4E5EB7EE38D9801A26112C9DB4FCC74805E9 +41129F246EDDCFD88E983DE99D17750D260CEB08A52F187A6B0D2589CE0A5FCE84412C137CA8 +24F2B3581E13E5081BD006BB90F1C80F1BD826BBA0162E9B9194D026427B78BE071B1799CA60 +9249D1E8386FE67DE0298F3C1D573C4CE2C37CE7157FF9E8B7019DDC29F8764B5B4D80AF2844 +B01DB920BB057FBEE82CC0D743FE0BBA26E7C803A929EB7B60ED0346EE31C47264CFCE4A28CB +BDEDD3DBF0E9F243B6C295C1CA01CAF6B221EE07DA6C6B622D7B6D2ACF260B0686A0FDC435A7 +CC01BA770E8895169607D57C629E972226C824C2B4D4FFD9F283FAD427B261BAAB76E7AA41F9 +4B621B45D05AC58FC49F659B5B78FAD6C04279CABF5AF7D2879F7B96ABE2DA271977E3CE2C37 +A71C64C691BD1D95D3F5455C1886E8C789188E40E80F2D9CED60332D81AE04234C68ADC9D8A3 +1474A603F13BBD545D5DE320AF275784961E23AAE61E7A0F83979260631F92D6C4FADF4624C3 +3154630B0D78A0AE29CFE26CE72A427243CB100FFF906FDF83AF630FA91A6D45A53107033F59 +88CF851A8D33FB6B9D471D6BDEF7E62791CF5A2D7FD8486C405A26617A935E063D74057A4C93 +8BACABAADB72E210FD8C523459AF10654DF90F035961C62A9404BE1DC55FCAB635C33FD11FB3 +5A1FC3885A326E054AED6FCE0D528E787BA73CE15852C6E29AA6C323B675BA7F98088CE93200 +591A5B74AFF954F40166934DBC9A44188620FDA24A1CA145CD1498D7899974151BD6EA441851 +696141BDC5A2D72F55751ACA1D939CC8ED2063D710765892A79B2404539B4D185AF12D34C5C7 +0E62B2F9AEB4ABE065CFBC5D53729636CA029BFDC1373D15DF7BCE2C816955A00FE86DF13E7C +83438F8788C9D3151EBE21274F10D7D1C1C3479DD6B7B18D8E57B0BE5C1925697ECA0C97F4EE +C318756BB0CD85ED8F77CD5420318F852377C8C8FB2A517660BE923177935ED98626BD52F9BC +163CFDD739274E164536AB229E0CA0881B7013269E591B0A23F9B2048271CFE3A68C42E527E5 +E294259215947DFFD9A268C9427CDEF81CBBF1F6224E2F35735A695E18526B7623FB31F673A5 +A86A32B0E9E51DCA9295A77F3B58CE4CF537C84D4586C981DC2A961E959DB2F296605E597098 +B28E15F0E35B43F50A874FAF8FD4CE81807075ED34C1A0B9AA600D610E32BDC6395E9BC2B32F +F6B7BFBDD1D69FAF8FFE3E24B8DF23888C17EA346D8A28EFDE1869F54DD7B15C52E94C4B6BE6 +C1671EAADCFB3FFDC68AC5AC586EC13B1689D468F7A26E8008600C887829029BD72A977AEFAB +3C6B30FAC7DD3C9B3E000BE43F41BB44C5BE95843F6C4E5561FA9951A90406D00F03D0525C7D +FCDD0027612C30CB4823D3C277F13C1E9F2A1F470A7B3B904F6A9B0349F0C663BBA9C58C47A9 +E69866FAE29D0803D89EB39C87F4E7108799D25DD650699FFBC80E65D65AD76380442CA6AF0E +13E0A7AA34812535E53A9ED790C68A7B9D1C776E46072657426A6F6A085748681D36562730AF +104EDED424F16035E530B4AEB6B72F304680A37CC4C2389EC1D49B42AE856B37FD9607A6F996 +8DAB280DCFACB9EFE443EC43F3BBB43AB63D49FB373F4F804C56A1A9C40345FB7988C00018FB +97D6A2ADEA5D9ED834AF366F0E1FE73CF9B59079C8D1CCE3DB63902B9636C956B3EC4E2F491B +A84EA15C9D6E6DE81AF369B1C0F8B1D2F3B93D56A121DBB72D4E21EB59A175B42DB15CCDCF36 +BF7A730EF078C807AB6DDF2584A978D0D17AE0EBCA89A86C47C4DED885C4D461B1B5A8D1B06C +3060BE496B9C5D9AEA4A9DC3079974D44973092D4C44B67ED625FA68AC6C6B4409E7D816A662 +F3004ED2772A05E06664648EFEAE4EE7D82E79E063CCA854196AEFAA1C1BA4820364A10DA23D +A5AC21ED17356661E5D326DC1812C92751E7CC9FD2CAAE71CC2C48BEEFEA38585FAB6E9BE546 +601E898C35E687EF6AF731BAA9A8E5C1666D38725220E8D74C2CD7CCC7EDA8D0364FFE644236 +275D4867F5B7D7DEE46BFD68FA7046167636CBD2255DFDA92A022A70B31BDD721E8F595692BC +F23EDDE2ED965977A143E95151CB1123E76294ECA7B80626CB3D2E9457537B56903F7685FEC0 +531B2B12E8AD3E23F813B33F406474D95324DE6EF3CE8B5979BF8F7F56E80A944358BADF5177 +013854B10911D70A25715972A5A88E877928B1F3FB1223DAF37632FB1A088B35678198F43EC0 +43433C8D7CED52F899AA28535404A4ABC12367916156C8E72271D43D4EE82B7A5C9CF6B76C0C +AB1F6FD0BCDB2394EBD6485B49F1E5319859492A100006F3FDC7F932111CA15042943079B32E +CE6AC4B075AC6AD5A0198F3C600B9BD65EB10A7EE1A328ABA26439FD9782138E08593A55C299 +E5A31EC91E6662960F991BDF85B5DB1719DC7669198C07790FA4C27EC006C9AB2C52DBB382B2 +7B31B15A525B260679FD56E74987AF0810CDC2B7F2CCF0577BB7B4F6FBABB19DD79EA4702990 +1EDCD124DF21DADCE1751440567B1662F406D63E2ADE7EE97D9720B71E05CF4D0A4883B9313E +787581B88E132724B9E3C3ACBF1A79F5027F8AF9DE5EBC1C51C65E4B44A572C2717B2EDF6D83 +F6B02BC51746C3DBF2C0182DD4179FFD538A456A14A5229175336DD6DD0E2B17E893DF04072B +5D8A15064D4C46AAA5E88682003AD930A0E0E7D2E448AC442B23E3B6760C88C095A9B2CCEC7B +3B3A49104C13BF5E503C70A687867D73113856234AEEC5B18D6DF5BCA8148FB088E4F61F7E45 +4F3A617FC55BF382FC7209D7CC311C2645B35996F83DF11948335E2110927B84F476DD30E580 +E7C4BBC15486950EB9B2DD514EEDC7E2F38B8AE9E41C04E78E2DA573E7C583F8FAFE222712CA +937B8E1FC3AD050BCD38D9B2B129F039FAC2FF013298D46E2084A50BD863E1C25BF57FFDFB11 +473F8ADDED822E8E3185EA9352A8AB4C150A22784652543A9AD3442E022556F660670296B3D7 +1111FB20CF336E74B1C5E40656BBF19EF11C88248EF7F37CBC224FCC92F1CBB4F2844AF7FE74 +4753CFF6A047C9E6ACE9159F7D58B442134A5DD0F0DB6230A638B14CF4DA7A1A4DC9A1142CEC +F716B3A672388E3B0A029FADD7D40902E169D07B3C7957B9B2D774A792E278CB8DF8CB6CBBC9 +2D7B7EE75A350BD34D46F8116112801647CE2C4700F0A978A95F72DEB52604638BB817DFC162 +3F5F9A64D2819A64B16B9B281ECA34062DDEBC64CC33A447A3D896822A6667591D39FCBBB87E +B45B695DA276B1579A7D3D121A2F74F215133E5BF5DEA2DBA2A256C8217BDBDCB7E9B30968BE +4D150192F7C8662B9D0DCEDC7569CDE61DEDB24E806D9F13796EE4A3D4D40D1306D2AD96D5AD +00972BF4AE2B1E2923CFC4EEC0CE9DD6DEAD6510B8878BC985FD0221F94DBA82AA01B1D3375D +D91AE614B5D8BFFFFF9AFD1F23E8C5B50CD0B30DFCCD20D7A09EF299FF9AC9B2C7DCFA773B65 +E6834192E0853A01CD6FCD56E5F33E5AE27ABCD28A16E6BCFD3CF815B5572696BF42C542DF93 +212EC59E208E4583A43CA02CDEDEE658941E3438DA9607B58AA1E13B518857D58133CF4C07F2 +073B1DF4A1E6CD1A3DFBF16352204F56DF2F6591BA9184EADEBE50EF05C2C0592C79EA5FBB0D +2C1908B02AD8D36A1CD93588893F8976F15FF8052D836EC1E6C6901D8E51A6E78AA0C79A7705 +5557304EF0E1605EE6148FFC73A2A0D7A6DA4B77A080F812E5D0DC8157A389BBB3220E3CB86F +FBCD0BDC36D1D501AF67B517783B6AA902CF6DA5D020B7836EB84CC32C312C7FE7A7AD932452 +E25F4C73DBF2C5AFEE462853F1D5A40902286F39005124940369AF056C6FA9EF7950831BB1E4 +C9FE7666E493697D1C92E2FCEBD981DF1E76EB8EFDC941DDE77C2987454619D2E1B114CB7BAC +04F0767BE9606121CBF27E5243C715FA7A8221D0FFCFAA574C2E634DF1E0EC9ADDBC2F356152 +8FD1A34338A912CBE8BE41ECABF6D93EC6DE513D720E6BA60A499625B3CC78AC0629616331BC +05D0F09B4E7013EEA423E9A12F7720C0626D21CF486E451D49A18BFE1F564B11121A318588EB +EC2B3B64169FF8C8AEA1CC6C7BB0D36D378DAF5138AA46642177B754BF04D2AE19FB5FF8A802 +B0694C2D2A7062B0D189E17442C8AFAE3FF5B97D2E823B70AD1B0D51CB7B9D4D88F382104FEF +B30B96B7DEE660DFBC7D717FD28F7F1B6E9E3AC0BF9AAA57A7FA01563A7A8203DD249B5D4976 +7443F3490F990E90B69EF6E811338D5A7E3F96967B1F3C3C83DDB0928040B915F981A0F4BE43 +3E1A4B0C2D3125DEA92C06995EC3211967EEE2D1AC9D952720AA15D72D810DB4A868D238EE9A +25AE934E71D404907588F75C529EA4971B70FEC3D270272996EEC8CB641ECA898A50AF981236 +CFFBDBB70D5A1E3694C935F26030D9F837E89EB7F6A7B55997FFBBB1C26B9FD809D99CD849FA +ABB1E0ED6CC7DF14AC0596E97A3A818638A1DDEB618113AE3DCFC51FA1B06EBC988D999D8F55 +DEB520ED9DCEBE5432B17BC97CBA4C381DDB9DBE2A0A4A888E1AFE918DBA687F8971258FC397 +DB0514ECD3C87F7D6147B26E8BD1BA1DB6E0F4174F4BDDA4A01514A9075B32E21FADD81DF2E3 +EA2D96208A38D25BB343D635AFC486AC76D2AFDCCAF9B44F6DB155A2D375D8F0BBB5879219A8 +A82B73B1D2728A75164DA2C8670D241E75B43E2B1365C6ADA8871F00B3DDEEAC368DA773B241 +BD489CF576B839A5049E8EABC543306453C48CAD5B6971B6F74F3B7DC42C90BAC723275FEF26 +C1FD57807A7683C82486345408CD8B43FC64B26BF9E449866A353F3ED2610820D35227F795FE +52C3E55FFDA5391E49E922FFD7D26E0CBFDEA9A7555657212F9EC75BF92AFFDF511C43626346 +DBEB88CFA1C5CAFC3E76BCA452743AABD24810A68A5B52C5C5EF8C227633BE84270B9EA79E57 +3A2A25155CC98186816C601E2C0C3731598719D1E8FA77F01D8F8272F6489CA1FF44AECAC59D +E585FF2EABC730D5F6D3D5236EA97982C0147A3D77DFDAE993A529048F3F9F66D834C1C0D74A +78D7F8CC9562FD26FC8F239C18443DB3BE4FF3D3E9F2AF816FAE17E4D9D27D90AF99461C7FF8 +E10905D1A8C93963806C1BD924266D04240F2A19FA37796AE1FB8BE77BF1402CEB6D80B4F45C +9DA4FFBF0ACCBC8B0477A1CB3BBBDC5EAEA4C4603B7745CFD6F802E7D96694216B81F145AF32 +6E2F284A74CBD7C3BE1ED2851E33903AC713BDB39BA972A9901EF56A5E0C69D9607E6E3D1118 +FA5B1490992FE70B972E4423D3F3BB9641050B2198DDB2BD933CA984F703053A93B571C6FF7F +37C678B29B104B202481BD4A6CAFF1ED4B3C915F38FF2957CC73817C57D67185BE08C439CA8A +8AB82F75BEDD1D0AB22266F7FF7B8B0B0C047C3EBF6C77FDDF401D9667C2DE4E276AC72B3BD3 +73C00697D30DCCD1A09B78006D50CE2F302C35DC4D502FE3015A67F73FF85A58AEB6C5EC1883 +F8CC55FB3525739F5EACF20C29B75E17ADEF5725941DFC4AD1C2CFDDE6491A256B5F93D92182 +2E799F29509214938A3CEA61136E8875D901C9EFEBFE00BE08D69341B797AB72B213EC0349AB +6C5B1615F4707717349B1CEF52C262BDC69846D53FAC881A234D1B9096359D5D8C36018C239D +FBACDE6C8A2C9AB7B7D0A6CD66F5B93CDD0F07904EB442EB4D2244920D40532399716688C54D +104E6497C8698A87E45E6073A34F867089FA13910517330FBBAC59B64CFC7969C9EC327C6B4C +5E2243B85E24815555A1051370EF7A02D29FEEB5CD126C9C777F5B2C38263BAD10E550978DCB +3367C8605D7064748E860243D724298E622D5BA7CF6456DDB733105F1C246D7EAAE9BB2D718F +1067E4FA9E103D0795279D82EF2DF4CEFA368EC9C16793F4F0CC2F588873267E464290524B82 +67F9F5192D3C1E5AEAB3998F8839E48551032C592C52BC235F13023E99AF6FD020B767575B42 +44965E0D24C3BE46E0999992E3064C233D2881F7A7E87A3A825B7D209A24DA198DE1BABA1B8C +8182E75EF221A179BA8413B8E03E576A7487C6327CBA13740261F31D96ED1910849D0CB27BDE +FF2CC45D6A60FA07096FE5FD3D06508A59AF3D9546B8902ACC5740D66F3DF05B0EE630F59583 +D06C5F726F175450856264231C6D4DD3F2A6A0A4CBE152F60EA046505D74E104DA2DFC119E6D +A2F5A5F01DA697DA56CEF33B7ECB55634896C8B1AD4FFB05CCB1732D0958CA0985CFEB0B7591 +D0D09ED6C1699B089CBBCAE217F0AA2588D086B84E848A68589D9688C6B30649830D5CE3EEEF +4C01D83D624DE1B7385699A8668A333059789838FBBCBB27B473341B68E83A7B0134FE417759 +4E249A5CD58BA24887E57F14B16DE2725EAF0B32C6936271D965E355335363DBE8C8AD69A14C +213AD59A9523B267352426D566BD717250C4F07047B4C8B7B5AF0452DEB7481EBC1120F98395 +428BF3FBF738DD12D761D8E980E7A2DF0F885034021B9FA20CF2EFB322FB79F12FBA51FEE4C2 +8B6E9A90E4BD798B8343E73A33FA94CB6B34CBB9E5D018D055420F0393B52812A93930612D56 +437D0362400AAC3899B95C548512455ABD9E9A51D227C8247C776C02F6368A4A19717389D365 +9AC1016EB1394555FD4892363982B73B076EE5E414183BBB16B839FF3B878FD1B6479D638002 +F896928E2F10746F7559571F7D089658B0C598C8AFFF4BF61179DF8B4BCA5766AEBD4A9B76FB +D18A1A5A84B3646DE936E7CC5B64BB1C03DD76E701087C3EBD9AA71DEA09761997A39F1B1AF8 +E60011363ABF88FD9D13C6A9D5FC87D972AE4F9F8B47F1CF5471C3D28A742DD878E225E74107 +CE3E26149EEC376D67C3FB88908C6D5D455366404954C792377C8F1450ECE2EDCBFDC51A92F7 +34579E878A28BE6BA1297FA6A32CE81785616BAF4EF9A7E23D7192F3913DACD639733B3CC08A +098B98CD7EDC71FB2F44DCE48D0E4B885BFBE78FEC9F03721CEE0F96E57075394491E4407A94 +4659D122C8E38D9A5BAB88DAEE022F71ABE2106AAE633720A389E835FD8437D54E2CA9AF8CCF +4763FE785AC079663A479B3938E5AB1F1D7474659542DA40E2194C9D7AA45D305858F0DCE219 +1E1D81FAFCA0171224A9D8CC6E8D077CDEE40293647FC2FD5D418DEBF46F9EA4B4235BB9458A +F637E1CD61F2A97F3F4C184B8D929A42762D531BA498D11587B9747BC0EB8F05695326907D15 +053058EB39E615A8BA03E6E2F924E13C3425631039E5C8F52B16309DBA1409DFBF790366BE84 +C0711451B4C897F9B0A88F4976D1E49A3EEF1F3EEDB720D1215A28C716A9CE526F8ED591560A +ABDBB719A44D96D2CD8A2353B6DFAF846377C79C5628E0F5BB5617BBD5801023761386A43DB2 +0E1CA27DACBBF35EBDBACBF7DA7736538D86E7AB5EA4A2F9E50A809105E4426D558C0991DCD5 +0CDB3096C4598BBE65ACDCB0D22700E1B19A454048731E7EADFD740F55921E1133C4D21D9A56 +095560CC41E473E3E23912DA95B2339494E658F95E29F8FA5C6D955E15A762CF469953E55D3D +C8AA1107BC8471A03D56FE7C729B19E72B3FAF059A0E1CCA9E4985B18A190BF32E7EF77512F6 +14B5AE16F9E1104048A0E13257CEAAEBF0D9EE5A5D155C131B9AA046E0ED7E24E3782CB4D410 +D7EBB306FF0E45F26567F26095FE2C93011C4858942C0DF282842E7D5DD47D91ECEB84BDA29E +94C15C23454E7E284B322D276FA0AB22B7A3CE20FB26230E4D9E216BAA6AFBB8AFDB3C5F5C9E +22CE27021DA372D89D027A02261F524A094A85536733887F4C02AC673D2B62506F06C7507BF2 +2B2BB6B87839409375FB289BB12937AE42D67143E4C124D4E8FD6F8BD32551BDD5308D2449C0 +9A6B721BCFE875E78B997D72EF4DFDA6BAE5902E520924DB24D3AC818BC865AB090DBDD69AF4 +BEC7058378ED23E0ED71090B5D769896D8814275085902E6673F1903D9F080CB870D14FF9EDF +6A63CD1E80D260D9A120DB5D8834C1F567F5758DE6799C9F970049B1AAFAA789E06451E02C9E +389861B67CCCBCD60B588D358529A2802FE8DD347A996878BA0579847A0A19D1B7606450CB6A +806DF76FBEC0ADBA38E6CA51C8A0BF365300AD6C60DFB25C857E7F0FE98D5FF0740AC5FEADC7 +AD10B6FBF7E07675ED4C8D9D061A51BC84897CDC43F6A15815F1A2B8400F56CEC98F29CAC246 +DF5E14E0F92FD1B4B0031271DBA32C551CCFF65897CB65AAC9A53E27129F7C686B3A7AE6A914 +284374ACBBA47CB92D874545058E9E7A8DB2A1C7F31F966ADD84768DC523F51C45816B9AC114 +6BA5FBE7475B6DC6930E484AA12442295FE5243958DEA5B4DB7101C555CD86ECFE10382C8F7B +67432765213978BCE90B55684B7A4D9244C6FB6DCDF6E882F0C804675CA6938A75E1CE730FAF +8519480D23E627283BCD569B2E2EC163FE28421500D6DB83445B6C2AEC7CEAD6D9670DD996AA +210C2C14FC3B52EC5EAD444D6741C3EA31E982E029A4276D69BCF0120ED87B7D70EAD0A74752 +50E7C47E90063B2F38377639F27E2916B89863BD6891A11D477E3EE4CB9FEBF1916654B05E36 +AE118156C75FA0172B3353C42277AA192872BBC80ADD04D187A48A1FE338CE366BE7C3A86E9C +C3AFCB3ED5CB47440014F30DA702E9831C0F5D0A4446AC3F33F576E33D8E1B6961DAFD33D293 +3B50FE84BC44D6B3FE09152DE77A1C4464C521D4642AB75E1921990BEEF55659EE962F2F4F1A +364FE7E8C048986C1EB43EDCB52C069D36C72D0F4970F7C1D94C7AAA6C2BEFEC594BFC43650E +B5C6903B4FA7CDCB38EB18880A53A660F05F5ECE837369C2083458384E7DEE5547A3DB796A3D +12AD6D1095D4B334F3891EA4ED81A8493B153C2A502FBC0E853E6D13F0D0CF2D412AF658C08E +07CDB6A96E70DC830DB32D9FF516535DAC08333CF827E906FAE51C21D834B73673806EA1D6BA +E04F0D28491A2A84D870453CC58B2EA7EAFC5F0B1EEF91499D16D0B169C9A93FB237D6D5FA95 +6E9664CA25F508D13E7930C87354F92AAB92023A50141D6AE5C94E95EB3DDA8CD5CCBE178FF0 +33266082994B2DCD28BF143821AB2BDB17CEDE41D65BEBFC03EFEA26E28326215130ED15F7AB +43D98EA154D2B352474C94DCEDE4672295CCA47987862D830F9DE694DAA29F515983FC566C45 +49994ED4B1AB1BA9D9625D0068F09F1167BD2932A5244CFEF32BC90EC711513A0F8EDEEB1F20 +1885CE816270C71694B813A19E4F767DDC31228C228E7C5841EB0056A8156037FB30AF9A69F8 +36CC743DDB6A59AC99A59CF157340FC49BAE4E7FA266D733CBE9A8449E4311FCD95B9F7F73E4 +559AE374E7A583ADA958ED98A4751B0FF188E8E064B5210985C9FFCB646A0C06ADE509AC9F60 +3616C5D91A3D0B092C671ECA47FF8D802023A4A33AB1460EA3357E4DAD030C22D77C746675E8 +AA1ABE23B624A434486C4B9EAC5903FC31A6AC69E5CE8778D211FC89B074B99DE870510E29AE +337DFE14AEFE5D3CA801AF8AA5F67B8F0CB5C5419E97D7AD6C0D1F68A5DA7ACC2E353C405D44 +686EA044C8E17CBD8C692DBE303D658A8047E4A24BE2FAF0C3D59D09891286E3DDEAD4283C01 +85E21277762EB0A14CC9043283E7B24F433997233B116040A34D720F4F596F80795EA2684691 +17D237FB90781840C4A42B4788625873CDF0BBC4494315C67640BC48952394C759BC476652CA +157205A241BA7659C60448B190CBFABA2C62AE6CF7AF7CF075B3D5E08F8978C729C582EDF961 +EF0BCA141F952FCD7218EE81531FD282A8539C56B395A033DB01418C8FD482EC4117CB805BC9 +120789D96732224301C77A23C8C3364DAD8EE94071B4CA15837FA4D5E0551A867254EF48680D +B959EA1A4E60D3457071F123B95E794FEC61190A9A7534A06374CDA6FB58F55F354BB9ED163D +C77CA734425A05E9432252B807C924635C7822F47D18D07BB16C47E9DB61B9706B9B6F9BCD0C +5D68726783E63039CFF40489D0EE0A97EE93AD85AE9735B74A1A5F7538ABBCE09C51480FBA8C +A06F9A7D3D860F2F016A43350F00340F6B77D925A2BCDFF696CF05EAE82C145A71E53D2543C9 +8FCA98E0F76C9659BA71C6CEA91C725B681BF61C432374F88010E23D59AC4DC834FB67CCD0EF +456EC2C3B00474BC1627B047CAD1927575A25F5A57CDE4BA82CD8F2734C76EA5F5024A045DDE +8BB6F06D1C83F2CD4DA24B1B18E592B924AD255F32E896D7E222C010A9FC7C08A79B5154E384 +36B0BA7F6980620823C8DE5A22D13AD4DD620B0EB6A7E0D6D425F161AF7F566FC0890C1C5ECB +B468F16D0EC3D00DE32BEDD42F897F66EDBEE4BC502AE8C090B7490A6F401C5DD2367C9B671E +E1C6F7953DA4F2C472953311F2DC4D3EC5EBDB543C2A6D90A69D2D308DD9B77D216B2F57FFF2 +D929F2893E0ECE3A45D7815756A9E53D209B1964C605D729C4081296732004183A349D098D05 +AE44E29B08168100F55869ADC19978C70CCEDAA313F993E1E54D62049C3E643B228DFDE1D5E0 +3B537373997D67DC60D444E75CC95D52E9D892E3C38E0F1DE0CA0D0015BCEE5D2EBFD06D6DC6 +DCE85D6FF599ECDB8663256B008A330566AF50F4F952B044286149F6D9E4F4226A3DFA81127A +E03241995CBB63BF956D4DA8C18A15F1A3CAC2C2C3132CD645700BC551BFDECDC0BC7A03BF1C +3904DF7663686DC8D7E3E9A7C56ADBA78F582949795A8B45DB0C5E7D1D39EBF00EB85846E3D5 +6075076DAE3691C8D8337F30ADC6E94143AE2AFDBF055032141C06EF5DBF9ECF85D002E24858 +AE968CDD19EF940123EE6E7BD4856A11406912C82A6919B4B9EC1E4504AA712EAAEFFAFEEC2A +D169BF02A6173D514625D7CA329E73F1F8A1FD75D2814995C0B07FC3DCDCDA22A965890577C0 +037F092E4D8D0231D2E5D7CFB347D6E92577C066FE566B4EA70FFC5A49BCF31DA1AB34FAF039 +DBD62B0FC6F884C27BD62F25FCA6C4AFB460DD46BEF6D4872A0B7F39E8C2E11F1AE5DCB669D3 +82DFD104D522148D33C3138D35DC843ABD723B46D2965CC4DC5EC98D6E365393C2CBA8964429 +F36B59C3D045BC84791933D22ED2C49AA96B596E41DA6BBA8C6185776BF14D0A76A5EA1961F2 +D514D473EA476A8055F30F3EB53AC222DBFF6C15FFF281463C25F8035311235B189815CD0A7C +52B41D152C68A89DAAB7B32F3BC9C8519EA4A4CD7AC9DBD58192AEDAF7FC16FD7A0C0EC5D806 +AF05CAE8FCC487C33031A06C4A814BE53CB257AEF3765C02C23DD9C23643109473AA11AC632A +AF0A6D114A66A727BDEA440A1D713A557530EE945BD7FC2F99D13BF972D0C3DE89DF235D4096 +2028FB8006B2EFAA4DAB25627C9579039F7F27EE836115E345E8FB35ACC8A00264EAE0804EBE +E7D11DE23A9059631C5811D0CC791AE67B27FC94DE59D35D7C83D37A02F509318DFFA76F5733 +1AA88F4EA0793ABE3F6537EA495CBBC5DE1B6B3B24FC988C662D181AFEDA2E4422865BBBF314 +380F620BC3EE14AA7C3C1E0AAADDBDEED69576C274F4E012DDA984613F43A6BBBF018712F5A8 +F379D6B0A1AF2824E486480EC2560F766297FDD44B094FB05FFDA819C9F4358FB6CAF7A11945 +DDE2E13197ED28BC1FCD45F6766F49EE5399748BF666E428E66699A62AF88285552062423A51 +1A9D3BBE2FF223C063A5D2FB4E6226BF6BCAEA7A02132074CD85AC62D11392AA479BCD557CCF +B6265EBC5FD240F9F95FFF8B3AA6D49A7A0A9B3B761418CE64CDBB4F0FB2054F319E102730A1 +BD0947539727DF20023FCC1E181949FAC91F3FBF3699DA948DF9120D876AB2E4283382B15205 +EB99767D8AA14EC60598544141E4C2295DEFD5F9C154A62917AB5A110649FD37E209DE6067CB +0E3EF2D51D895938596B3F3B9D3F3445581FBE05971945159A42C5C9CDB058778878AFE946B6 +359E6BFEF1B65A27EA7B57B7A68B0C5BF974D07A84D516E8BD8E3BE4044CFA5277D3B087401B +20368F46E2EBC714EE7902F98B45B410AF5612C03905053505C8C25DF6A0659BA8779879E1A0 +379B0E254D142C0ABA7DA55C19D67FCA20F5B2706B73EE143391172200052A446E6D10CA9C89 +468140888694BA292D5E36C9CE7BE460B3B2A7DF254755C4C4A6C4B6868977677639D3B0CF0B +6062B03B13CFA5BA73A9FD7C1FB576B471D10BD5C1D8751E3C236CCD1862C90ED636254C9939 +768D6324C06E57C5B103F2FA95B4826D67CFB9D65AD64B7BFC1E537FE675B15AF69DB41066B9 +99C73D3952441C3D788AEBFCB873F66B48C01E263B04D066F38CD0D08042BFC14D87B768E637 +174D34512C631B9367E9506C844752D49E439C50744063343E719BE96D7165A47923B49B21B5 +1BB9129FCB8E613F84869C3B8F1A26252783158FE80797F4CB21441288866AA045D4CC5851F0 +B555D19B16F7B86F3E7A49ADAA6D540C1C5139BDE2793727B0EA233CE7B7E34AF650F6188815 +8BF00EFC552C5FC511939BB137B06B6B024EBE1EF641FA33E557368E8867133D84FAACFEFEDC +15234DD09620EBA12D5A2FB4715A817DD88E4779BCED4E7D1CFF7DEB2B6CA49695E40ABF6CB2 +D2272B4D1F8D9D360CF0038C855DD35A5F0326B0DA682DD93BC4FF0B63B23C3977AD90B28CCC +192296142BA25CD8AA9624481F66479400B89EB4AEBFCEE73F131BC27131AEFED679D9D647BB +CDD5F6715A6AF27BEB0BB05A0BD498294D8F328CDAF4B9AD9EECD2B57634C89145283EE5D904 +DF53B11725B3B4FE049274DEA580795DFAE2E13AD1DBA39DD769EEAB36866911272606632547 +B747BBA4F6F114C60C0CD830DFC6E734B6E489D261F2324B2E8397DF567E996870967393F6CC +FB5946CE81D811EDD25B0B8CD251F2D24D4B1EC06B00F72E1B4A8B8C405E36060909CFD6A3DD +074EB7B94E0B6FBF001397220F2B8856A09AD1D0624446E7FFB2B7535CA4E828F44C0A7BC274 +B42E979A4041947821C9E86A393BB350CADC0B433D3759F512F2C18A8915B4F5BDB7D72FD499 +D005C82EDD874EEC73FB8DE48CAA437EBF1EABDDEA11D119240B9AB23E2093CC898DECABD229 +8C7F84051E2B209BBC0377BB134B4A5E5FCE6D8B969D86F323B3D2993BE53AEF84C3AA923C2B +B71D247A1DA08C40BD16585C00EEDBB2033DB3AD676036422A36E329EC15D4471CC3F692A829 +0090559C6CEF0CEEE91D3A058E219310B919EAA65F66D4E590DF7F9ABD1659A2C449C757B59C +EBD70D0BFF1DCCBB63BAF7DF6B28BEB628B5508A8ACFA178D3A133D04ECEA24E566119901CAD +370C3FC87A1B4699D58D1CD2F4DD715B87758B4E570934823A0F02DB89218897F6ED540D46A4 +50AC18EB03046756338C3025DB9C9E74F9E6ED7C6482798D6219433A0DBC06CDAB025D5D5A91 +ABBB2AA3FA3A0B25C386DC3F1237259ACDB5625315376F5DB2E908CEF69ECE6B69D2F417336E +4838D159055DAD0FBC26173DDF2FB55C2F03C936CBC83F22E29913639C7EBFDA2477751BE7D5 +9F90A7E33302B4B52EA1F1D39CBEDC8B492D28A624CFBB9EDB7F803DC6BD0CED5614EEDE81E6 +52B0347C23939B7BE1E1E7297144E4E18FDFD413EA1C7C87BDB1EAEA093208915B43E2FDB7BC +DFBFE13087798E703D8370F30B9DBC652091C3FDE9D885B0245C920AF770077D6E324BAD065A +280EB10AD63B168E294AC814AD87A32948E84110EE098D56C79719B0992DFF8B86EB67A07CC1 +7AA75C40E1D76AAA3C6BFB5139E93DCD9508A0837690AA4D2EF6FEB670A9CFE004BE4ED76C0C +5C1F3BBADCA25A976301F0B8C4AC7B6F2B0821071E1BB47FCE44882F3FD899167726A43D2D8F +BB01567DEE6D7DC3397995DA4CC92FEF04A08EE2C0E548E16FB8E78724BF215CB35396DC2F2F +E9C572AB4685E35937D0524E1626D2016BB18818E4E6D0E24C3ED02DE6F2DD9F0BDC4D0D68E6 +47E1A85ED86802CECEAE5B5873C2CD9A14C53968C8AB02DFF8973A03F82E4D491FEC415C8A78 +785604B02A55A9758A78C9AB8CDDF7018B0468CB9EBCA93CA71E9F8586F475BCA245BA07F435 +BA6ADCE085F8A3654E45498BB3BDB8CF7F6DFCD7F0D047EB9DA2C6CA84BAD1DC9A316067AF11 +1DCBE13FA18BB289D91B0495323E151959D7315B07D5316D35719B671ADA1E172130AA05107B +232EC0ADFF164BBE5224EA839DD7970292625FAE514AFD9B64BAC1909C462EC57F813B8F0809 +E90FDAC3417B84DC8B9DA2495EBFCF9A5774C1ADA12C8F763B3972E09605F49C33A4B7B6582B +4EF9EB474ADDE41978B2775BECAC3B35F09379A501270D188A5A337BE92C70CEFB6CD7FE664D +864B8D8C303B5EE40329714F8611043B8601A77E770A632BFC29BE66A881FE4A71E80C20D812 +2074EA3858E88B51828CE492DC0DBF58AFE0A49B2659A61BF4D9263B533D03A75D2F7700C045 +EAF0B304CE29C4EFA9548CB4FAA37DF0928E615EB423D89BCA1F44BA5CA87C4B6C3CBE06AB64 +3AAB7464620BE2C0B9DF3BE90F737814A2B1389006F4834E6F442CE97F65A198A1B93CBACB89 +C4B7321C057386E099F51E498112FEFBB074D85ECCD8961A05C04B4579FA9088FD26E7ACB629 +D8F5A1851B53A38FE575E4D44928ACF5F08B03D8E644FA188176F01FDA262965E2807D60132B +73EB94D88D21C6C269015343D261B33AAE041ACE9928A4C473EC6A5591E9AA923865AC9071FC +0993DB946BAE54BF09D64AF62F8D7FE16A0026834694DE869ED092C2806C1FFF5ACAADE3AB10 +D4093013EA547FA0132023E4EC90A959178092D3B0DB40C47E34709972EF733BC9985E4AC2AB +389B69D2B31C0A8D96BBB09B70CF016B8852AA4F72D6D8AF26D9C67396CA5F81F2FC5A1A93B7 +1B1E24B66841271EF6FE4E7D85777745E1941C6A73B46A0966892525A2C53F14772FE68C6E61 +C8E0891A8AB0E3CEF2B324537D905B18E5D8FF99AF769597A25E678DB4EE875E57C3550EB906 +50D277034D3ED7E50906073EB8DEE11FF7841CAEC434D8678C4DE843BDA52B3DB1FAF64E4A1F +6257876D1B113B24F3AC99828D2A83129C912ACDB47A10D0A0C4600247F05506A5C638B01514 +8032572E44F7A65495FDB1750E3C0D361F63E4FA1DF781EFC8A6A03D0E704FC422630A0B6D92 +78211127BDA0F71F4D5EFC6BEACB850495A81C689E03C3D486805AB70289E7B4000ACF125252 +EB5901722F6FFAF87431586FBA00CFA437F8C7AE51496729707F662D8A180D8DECFA4D3AA4BF +4709CEC8E783208EDD2DE827A5CCDE40C92FFC053831F3B5DD282E8243B009DA5C17BB7D577E +966AAD773A0B8572A076C375DFABF80D6D734EE8CCD34481A046D60BB2AFC8EBC905759AB889 +769F43CBF86610171D4D454D2CF25CACD3BFAE6FD0B43F04A687EC3CF31E1878EF04F9C661F4 +D2993069F17FE41598731D19B47E7C2FE3BA018C98D207AC2404AE7DDB5FB4ADC0B7AC0D082F +754F4B8F7429201196729832DC5E21CFCCAAB385F3F7232815D4537F93B389C7F3C977CD5A23 +22F8A32521E173615E1921E6484E9F55C18FA91C6C43BF6D6A20FB3411829B402BBE4E899470 +DC7A76200E0509E38AB22834BA4D02AE59A69B6945FB47CA52AA2754C0D8E0FB20F822F680D8 +65E1DC791652199E5C596B194D82CA6963ADA6D08D8344B64A854C90AACE2D16AD15C40DF622 +48AA42258081B986BC38E7946EF7EFECFAE569A98B9FB95E305320B7D6A623C69FFEF0DAD1AB +3649EB0FAAF001B42B2D2B0BE1B3AF0EBC8AE859F06D973270DB77C21F3DAE81D7B028A130BB +388B38A55A0922C301F20C47F43E0E43E2472B1E3E493862FA43FADBB554C0606930A4823B31 +BFDD71068D476FED1240712001CBF086DC2A1CF78D287359327549C5F4071CBD80283BE63C37 +7915B52C55CC51647721D4F7F34228C1E49B078A1F81D46DF0E7664F9543C4281E027271B602 +8A5FFCB3159EEDD0332433D9B91EDD0F3F1AED0D6DD079F6289235511D090C927BB788572676 +719FC71606026CA7327C42496A259AD006BE927430C8F453062FF051EBCF4E6ADAFE2DCE967A +42755BF9E6C3C1121FCF0638E3665AEC94194EA1642E1D20054C528F45F1FC27D062E249FC2F +1392F74AD1D2019395621AF64739FA8FD7608A4A7F9248C9104DA3D592BC9F7DE16A9AE6EEF5 +8BAAACD7C0309349A8D30E88EFC631329886E5A614A4A479B3561C7B5572A145D9564E196F2B +85C37F75C499301E9BD5A69019674CF70C17EAA2D21DBCD6D3DBAC2E096B61D11F79655057AC +57F10B5B9F35EDC60940D70D2CEF4432E70912B4DEA161EDF7DFEB71B17AB6126CA1ED0998DF +84D6FEF47004C1BC07BB567A46C835888A3F0AEFC22B9F4A665B79FA0B3842648F4B4D36E7FD +F94C2B3EB050501D648631B2E0A19F3B488EEE74F7908CFC7207B8885B52A1F0263C381D1490 +2F4A597035CCFFB51AB2EEA9C394BCBC3C4C06814F3E9F55681D1F7946892D2845ABB7FAD21B +FE933C152F20472035B2875A44EF7DAF52AE893C00319394D537D133F8929E8984D2B4239328 +6D95EFA2F1A15DE4341C6675430DEECF56F7DEC11594D7369467D3C835CFCB1934ED5336A886 +33BC8BA076BF2EEA0407B6B2C3829B44EC3A29CF640112A567DDB7658B0AAF7696486DBF646D +D9B0B033AE79664BABD700137F739B0C987183EE3FB1BA85687C48399F5C5296E0FFB92BD38D +5C66F294B49D5C6DCD1E2111D857D38B4117E1B2C25A7D4BEB045CB3827BC0DCE0B6B8C87A7D +95E5A709D73E341E31416051EBB8BE76789041D20EC375305472F10BA39043541DE8B117C5BB +25F8DD9CA2FE56847308DFC19F756DE479EC894BA8BBE5B1A62762CBBD42F1C87FB290AE156C +B693B0A6772EE42CB4C56857103DE9E2B3B8A79BAEBB0751398C5B70932D41B3E70041F6E725 +3A17ACFA8BD557D9894F789EFC5F9A67F22056FAA42E8AB8A121AB7ECA6117762691C57D40B6 +FAE39D19F866F253D8413CA030DCC1B8F6F90EAD37037AFC1C07C41560EFDCC0075E7C7D9113 +C51F8A945CB189C6B409EE396BF9AAAC28D2CB9FFEEC9F753906C626FDC074FA96A704E5E1DF +8DFCC6161B55DD3301F4C4EB5F7AF0ADE950F7294D95E38D76B68B7BB81D2CFE794168BECF5A +09C6D14DC18DE8C0968A7A0C27F44719C9DBE397CD9A91F39F441C35094ECBDA1B975BC9C02B +2354F183CB60953A52DE528B0B5E5B083E381CB6F091E2CDC3BF185EE27133FDC1AD93723BB6 +A4EFD3B1A79071E4D40B38FF75B4510271C530826EE3D43FEA0A5A20959AB6E0183F7E134A62 +D73592EBF9C33EBDE7DD6BFC31693FA805B603791A1EDF9E398BA60DFE4DD22A95BF349515CC +7C4AD65E32DB240A4EE8A5E4EC471F312CA0C6A066ABEA6CA9BDCA2F9E830BCB587DEA57574E +6A641A335DF8B9AABADC496052B8B241872143D5DE196434BB79261F9830E371262DC1DBDA3D +CBA47A99A32CB4A4F45DD324A615FB6C04F47C8B70BFFD2B53B2A1F9697B4EDCE7E494B41E8F +E7A81BDA0C2F111F64E15D4AE9BF8B69DE47A87DFD11EA49015153F05837F2DAF72CDA88AC1B +CCBB6E8BD35004D3CB575E7ADB043FB589D04A7FCBE39095144FCA72F7ACA2FD6357E421E86B +37D87D9E34A125CF398D070642BA20DF3466A9D44C027E2CA2F3198BD81BF3F9333FF7924A08 +62247BAE54D8F9CE772E738C6F85E3B631160CBCE932223B0D7004CB0EF1F2DFB4096F6E6FC3 +67D5E1FA3D7B0361AACB38AB6F0558CF64334829DFE1F8E0B4F880FA4F862AB4DDD95BD30919 +8437751A040D86CE9E60AA73CCEBC11726095A720BBFD485958A300FBBA2AE77E142AC3CC0EF +C6AF419F4B99E3B546FCC32AA923A15D53245A5660948272C45AD579D6EF216E517A6AE8E876 +E719EA72A99B7A1C0DE18B03B50FF91448707F90D40F0FC114030A7B8E87C9C5DE756111321C +2B3D8F2334A38AB30DB4BB3240FBA1DFE8EDBF0CDC4E3B3796767CAC5232AB8ECE2EA52BF04D +BC1524A05548D2CD6DAC4B00F2B6691D8A340C1722F95F6CEA464246ED5D49F42016295032E6 +31ED21B88A6159C3BE2001E8A17105368043A2F17B459A9129B0DA1F3998404443735CB80630 +B93FDBE1C6B00717748875A521FEA07C830DBB6526A5F4DBE224ABCAC2B03CA9015277F75849 +AFD644435758DD33084093DA7C363799EB6476B450280498D8C3A9BEAD01BC307E3F7AEC6616 +2137DB57135EC7EF1F44DC5AAA215FB04000CB3859E28E00E40187939512D0B5F190D1CD0D87 +FE18B3C5061548F7AFFBDC39C8B53E521057FE91FCF95783726CE8887938E5341E6B5EFFB971 +CF12D284D6FA783D682EA5496CAB19D62D8E74487A1585136D79B6F8A8378D390A3BB88D11A1 +B0E28CB842FD4EDF20E03C850EDDA66CC6A5186F52CB4BCC11BC8FD9E04C8C924BFAE6B0735A +EE103221725A193977BE06A4AEB411F3CFBFB0E4081CA73B796632B03D5845E117C025361DDA +60D27398EA8F29EE64308226676236E7F0743D536798378CDD4186E74DE4F0E0DC58DA3CEE29 +C3FB9DC1A20439F053513B8AFFE1660FA1328DE2C83A94F148F1A3FF3CF28A83E4045F3CC8D7 +399BFF1247D18C30D639082DFAA61843DEC9D09995937E034FA70E6CBC0453A21780DD3D7C8B +7723A3EB7A1FC88CDB6EA39616381D7632357ED53F9E2DECC5DB857FA41EF5DE57CDBF819963 +245B5CD6AF68AC82AA6A3FBEC258643A6846A3C1211BD7AB24271FD2F712A099FC711CE69F84 +EBF227A0CEA19EB292640E518A581F9F75798110AA66CAD4829DB3B2F93B2A0D46A7EC26D3C7 +EA04E696FA49D3FB066858AD6D47FA8E70EA7A1C32464924E91464A5BCDEC02899F94EF98526 +BBBE228675A55354C2AC4CA222FEF633ABDEF8383ED93AAA1D42A35CBFFF0337CDCD9CAF9998 +0EDD82257F9895E675F8F46F9AC1760BFC9F25FF2FABDD4E4F6905BBB46DC6F70F4210E9C9B0 +957AA3E96B8909BDD6C1C4AAA55B008511C2EECA730EB6215D3A6955FF0EC9BF7AB97EC475FD +B8549695EC5C2DA31513FA0A3180ADAA6C235590F173B5F7D5DE168D5ECF9186E8EA9C5D1DAA +8250B3EDEF367EFB85A77CA96351FE0DA2C8EAC2E35A4DEB7A6958587ACF038E5364307553F7 +3F851493C5B7973CF9D0FB739BDB0B738F63124213E50BA39970A6973B70E89EA4C9296E2C72 +A1BB3C263B6BF146A78AB9A48F96978C7F964C90CCFF10AB472993BBF27E362DF551AD275484 +E807DB46A37976D801308CE021CF7BFD4B1B4505CBA739ECCDBC99204AA6AD13B08672BB15B7 +992461C09F3D738D1E88DCC79CA8F1894835B288A2EFF6F133AEA2FE60F3D5368A4B085711AC +429355FBB6F683C286DD2A48A0B33F6ED6632FB07592EEC531374C3C12DE98676AE9F80D3024 +DB63D5FEB10E3143440372683CDB34402040EC35F2FD3B592506A1AE6F68001D69D36AA6ECCB +94A7DE612443838D18D59726022C3BD4A924A20A0AA2030941A6DAD17442F9989308D8DCB9C2 +229D3DFF54D75743083C1EF45F9E7FD7E040920F7EB24EC803C5CD3930980F7395BB47981D9C +B07ED5E9C688CF9B9DFCA1149442E6D3DE66D66238259300FF1293C5FAAA08F58D8EE0D6CB24 +52CB46C3E54335939612B922897947C2EF5F8A5A58BDB94AE9E272A6E09508D25070DE14BCC6 +AEEE3C081AEAB5559B8A0A15DF14DBD7E45F98E3E653F35337BB53C27299ACAADCF52CEAD94B +59F4910D670B218F7334A1F71F7E52C77E34388563FEDB8468CA1A8BA8C03BE75044BF3C95FA +CB3537D568F6F4C520DF778BA32009F56BE20610AFF346758B255FA32E46439E4185D7AA8EB6 +6881DF015581DB6101B840FCCB6CE25E960358791C084EEBA74F44983CADAD27299B94E59F9A +7262A657E430A00EBE10BCEC7C1742A42089AE4EA352B9C4DA16946C9D6FDC0514D4417C943B +BF6828A6B2CE3B1615DEACB55738E03F6FA3D0899F653F32D33356CFCE075485A931DEF9A18B +4C3FB09D2A3BBED8C37FB3755768F7A33721F57F097F69777FB984FAAD354838E2B6A0896CE2 +FC228FE9FF200225E7E68C5A45A426767429A053647EE3850DBB6EEEC1B055ED6967665E03ED +890222D9D43455B1872EAB4DD78D01047512CC1C42611D4F81B20D8B3E541FCBF0DAFE6BCBC9 +CA768F3A1F8E4146BE67D0553C14D4EFEE84228B1A60843C6FF7BD15BD1E60E440821C253350 +87E940383430336E56A2E8ED9D36AF3854EC8F827750282076B5072082D7FCF9E35BFC50F49F +E0B8778AED9519C37FD85AAEA55CE5E11AA5056F816C15D4BD5911576E4F5D10578637A6DBDC +A5FC2604024F5A18D162B26FF0269C26A09D06AFCACEF77F071A6559B1D532EEAA8C5C1C581F +0D9A9F59AD4D47A6F764BC99BCCAB65C29F05704302BA7658508D1457B5E280F8F16AD27F76A +09419D16EE864D4611EC964FE8DBF09586EE93851D7E9080F4DD478131A8926882123469787D +AE883E498C28BFA6B7E7D7408859E83CC263C82C65E106E30EBCD85F7F90A5AAC1E0913D310A +12860856A8F37315B3F4EAF0524D15B4AF84BC83B294DAD353241571EDD406BCD88DD228EEDF +64F1B50B38B71A148DF2E49211A77BF711F8E697C63379E320CD3678C025622251C51AA6D81E +F0C55DD0D4FB392A93E12A0779239AA6EC1526B60FE86311189BC595E513166082AB0E102E57 +AF1C6FAAD5AEB4B7673A0790B84F198C8EE9540D05AC88CA7DC6A68FA274F2D757EDFEE3C5D9 +7A7C49CEB1EF08A21658A4F5599199185A76F30F8BC8E0A3D1494E0B418B7282B7E9C8CC66CA +0A465E289CEB72411E702D2433D07FF2975EC6747C9117AA7ACFD468FA32BE3111C0429F321D +6D3A25C7B020E125703D31D1980BF52E02AB71AF1D0D693B9517FFA01E208AEC4FC84E4F2129 +215BB97B0448B0F6EAA351CF8E5F30311EB9A766E4D626589B5C6745C5AB794349ED72901260 +328A7302F1D8B438DEBAD36CA4202D5D2AF7FD9885E37674524554F58C539CDB755D75E5B54A +7A9CF58BFFD9E26B4200184545E934653AC79FE871C149F4857D8C5B5F1B92F9C91491B8AF28 +D950AD5D19E6B977756FB352C075C2EE4E4F28826A1FF6690529DA131E5EFF30BB2BB8965321 +61C89270B90A192BC511822C5E99A46CB656A66AEA4DA330981FF03139D460D529E3D717FDE9 +0BCA043531DD90B5C4ABC0343E0318B7FEEC33C67782B21CE1888604FDB40A6306BA21270B9A +F4A80AFB1796C57465B15D88C9F6914A364A4182706E50202D5B6AC0F8263812080F1ACF55DC +E2890DA2B605CFF67C53995579E7619CD7F61AD5786F19D93B7730602622C023919BCD17EC0D +D23717A80FFE65E321BD371FC30486218E2EA63B27555C073A6DE114D19E1F0AE30098A69EA7 +DFAF4F0245DE13F9A3AA68A7DDCA63648AB45426D736B2EBDA79AAF8C169E0AB7677331A2BEE +CD2FA14F50BFE0E8181D2757469998503D20FDC222133DB807A29E40C129D7AAB0084A18AA09 +75EE5CCFAD7CE561702CE2FC1CEF9B83FA6B9FD4A06396ACB5C3DB128CEDE5DDB8DE16725735 +B85EB926E8738A9EAF398373269F719B041A4BDDEC854188080B859B0299E6F9A40839629E0D +D9BA007C0610942E56F05D1F7FBDED8FBAD0DE02198AEB6248BBB776B39B3A50EF427CCE6FC5 +6DAE24C705B1931DD8A995E9B969765BD97472BB6015BDA247E70EC4C7F0956AFEA7666A028B +B9E6DD1F8862C639BD5DC159A88F9E34A83F6B0DB266DFCEA5E793AE30D8A2C6942B9C04FEC3 +F830F1114196ACA821EEDC389791C753895F08417C1A28334563CF01B68ACFEE4341F8FFF444 +15F8837B8EF4851F5EC759B0A4E7118B2CC55B561970D046059DD207EBB50FA44795705751FA +091D1FF3B33D0EAA85A332BBA1D7656823462615237A07E38C2FB6A04B4A1F91AD19EB59A53C +5FCF0435785D540BB10C3AC3CED2C834C5825562456154B2E2B11D6FCED281DD41793587E24A +77F83BD4C8E0D755BB1F52FEC614564FE3A87693AC7EE8CC94D559627288927576D240406E91 +5186085D3648ECE33489B0D662CAF1D369A3CD7820BDED5A71291B9AE6C4CB1869BB6C3965F0 +936DFD229066B39F8354F21E0BFDC3A5C104C5AA023C89EE6A27CD6EEBB6DB93AC939F311B29 +3EC8F0FC5E8B508CB67E4EAF9FE7F43FF60993FF319BA60F3DC4EAF989C3FD11476813C9EF22 +D2DBDB0172CEACC9B8BBEBBC49A0F2C73C5B8466A075AE233559944A5B2C70551EA144C3826C +366AF71DD8D2E099A1C1F9CA401BD6F6615829CE7683C22358059222F95A1AE76B27D1C2023A +CE05EA4C4A0AB20C505B86EAA0183E7B7D64B43EAF4ACBACB48478D85177026DDC3A578568B4 +D86F120091CEDE2D88BC4D586155C0F3DCE2A7C74AA0ABF9BDD48B5611B44F6EE62E7454416C +F238EE8B2C6F544554BB37DE639959BF5343FD41203FE68625A94C9EBEC251D229B3BE5AFDD1 +09AAEB56E5412F69AEA174C4A9E866AF141EE22C13567B53E2CD41BC2E1E6123CC8A99E147BD +1DC5601CD9BA877E43CF5AC674BFB6B2B5D14C75F6AF5FE1E9E277BD6FAB6B0F82C8DC88975D +113BFF9E81A0511418EDA0260757CDCD19417E71E702E41B65134CF8BBE41638CB29B32E4DDB +7FC8E27689BF8A455D9F00F60000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 + +cleartomark +{restore}if + + +%%EndFont +%%BeginFont: CMR8 +%!PS-AdobeFont-1.0: CMR8 003.002 +%%Title: CMR8 +%Version: 003.002 +%%CreationDate: Mon Jul 13 16:17:00 2009 +%%Creator: David M. Jones +%Copyright: Copyright (c) 1997, 2009 American Mathematical Society +%Copyright: (), with Reserved Font Name CMR8. +% This Font Software is licensed under the SIL Open Font License, Version 1.1. +% This license is in the accompanying file OFL.txt, and is also +% available with a FAQ at: http://scripts.sil.org/OFL. +%%EndComments + +FontDirectory/CMR8 known{/CMR8 findfont dup/UniqueID known{dup +/UniqueID get 5000791 eq exch/FontType get 1 eq and}{pop false}ifelse +{save true}{false}ifelse}{false}ifelse +11 dict begin +/FontType 1 def +/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def +/FontName /CMR8 def +/FontBBox {-36 -250 1070 750 }readonly def +/UniqueID 5000791 def +/PaintType 0 def +/FontInfo 9 dict dup begin + /version (003.002) readonly def + /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMR8.) readonly def + /FullName (CMR8) readonly def + /FamilyName (Computer Modern) readonly def + /Weight (Medium) readonly def + /ItalicAngle 0 def + /isFixedPitch false def + /UnderlinePosition -100 def + /UnderlineThickness 50 def +end readonly def +/Encoding 256 array + 0 1 255 { 1 index exch /.notdef put} for +dup 0 /Gamma put +dup 1 /Delta put +dup 2 /Theta put +dup 3 /Lambda put +dup 4 /Xi put +dup 5 /Pi put +dup 6 /Sigma put +dup 7 /Upsilon put +dup 8 /Phi put +dup 9 /Psi put +dup 10 /Omega put +dup 11 /ff put +dup 12 /fi put +dup 13 /fl put +dup 14 /ffi put +dup 15 /ffl put +dup 16 /dotlessi put +dup 17 /dotlessj put +dup 18 /grave put +dup 19 /acute put +dup 20 /caron put +dup 21 /breve put +dup 22 /macron put +dup 23 /ring put +dup 24 /cedilla put +dup 25 /germandbls put +dup 26 /ae put +dup 27 /oe put +dup 28 /oslash put +dup 29 /AE put +dup 30 /OE put +dup 31 /Oslash put +dup 32 /suppress put +dup 33 /exclam put +dup 34 /quotedblright put +dup 35 /numbersign put +dup 36 /dollar put +dup 37 /percent put +dup 38 /ampersand put +dup 39 /quoteright put +dup 40 /parenleft put +dup 41 /parenright put +dup 42 /asterisk put +dup 43 /plus put +dup 44 /comma put +dup 45 /hyphen put +dup 46 /period put +dup 47 /slash put +dup 48 /zero put +dup 49 /one put +dup 50 /two put +dup 51 /three put +dup 52 /four put +dup 53 /five put +dup 54 /six put +dup 55 /seven put +dup 56 /eight put +dup 57 /nine put +dup 58 /colon put +dup 59 /semicolon put +dup 60 /exclamdown put +dup 61 /equal put +dup 62 /questiondown put +dup 63 /question put +dup 64 /at put +dup 65 /A put +dup 66 /B put +dup 67 /C put +dup 68 /D put +dup 69 /E put +dup 70 /F put +dup 71 /G put +dup 72 /H put +dup 73 /I put +dup 74 /J put +dup 75 /K put +dup 76 /L put +dup 77 /M put +dup 78 /N put +dup 79 /O put +dup 80 /P put +dup 81 /Q put +dup 82 /R put +dup 83 /S put +dup 84 /T put +dup 85 /U put +dup 86 /V put +dup 87 /W put +dup 88 /X put +dup 89 /Y put +dup 90 /Z put +dup 91 /bracketleft put +dup 92 /quotedblleft put +dup 93 /bracketright put +dup 94 /circumflex put +dup 95 /dotaccent put +dup 96 /quoteleft put +dup 97 /a put +dup 98 /b put +dup 99 /c put +dup 100 /d put +dup 101 /e put +dup 102 /f put +dup 103 /g put +dup 104 /h put +dup 105 /i put +dup 106 /j put +dup 107 /k put +dup 108 /l put +dup 109 /m put +dup 110 /n put +dup 111 /o put +dup 112 /p put +dup 113 /q put +dup 114 /r put +dup 115 /s put +dup 116 /t put +dup 117 /u put +dup 118 /v put +dup 119 /w put +dup 120 /x put +dup 121 /y put +dup 122 /z put +dup 123 /endash put +dup 124 /emdash put +dup 125 /hungarumlaut put +dup 126 /tilde put +dup 127 /dieresis put +dup 128 /suppress put +dup 160 /space put +dup 161 /Gamma put +dup 162 /Delta put +dup 163 /Theta put +dup 164 /Lambda put +dup 165 /Xi put +dup 166 /Pi put +dup 167 /Sigma put +dup 168 /Upsilon put +dup 169 /Phi put +dup 170 /Psi put +dup 171 /sfthyphen put +dup 172 /nbspace put +dup 173 /Omega put +dup 174 /ff put +dup 175 /fi put +dup 176 /fl put +dup 177 /ffi put +dup 178 /ffl put +dup 179 /dotlessi put +dup 180 /dotlessj put +dup 181 /grave put +dup 182 /acute put +dup 183 /caron put +dup 184 /breve put +dup 185 /macron put +dup 186 /ring put +dup 187 /cedilla put +dup 188 /germandbls put +dup 189 /ae put +dup 190 /oe put +dup 191 /oslash put +dup 192 /AE put +dup 193 /OE put +dup 194 /Oslash put +dup 195 /suppress put +dup 196 /dieresis put +readonly def +currentdict end +currentfile eexec + +D9D66F633B846AB284BCF8B0411B772DE5CE3DD325E55798292D7BD972BD75FA0E079529AF9C +82DF72F64195C9C210DCE34528F540DA1FFD7BEBB9B40787BA9351BBFB7CFC5F9152D1E5BB0A +D8D016C6CFA4EB41B3C51D091C2D5440E67CFD717C56816B03B901BF4A25A07175380E50A213 +F877C44778B3C5AADBCC86D6E551E6AF364B0BFCAAD22D8D558C5C81A7D425A1629DD5182206 +742D1D082A12F0780FD4F5F6D3129FCFFF1F4A912B0A7DEC8D33A57B5AE0328EF9D57ADDAC54 +3273C01924195A181D03F5054A93B71E5065F8D92FE23794D2DB9928A7C95D3A6E9B8E92F84C +A0AA44461D2F4FA0F8B81C6F5B7BE98C9712BE166610465CF689DFAF27C875C029C0116DE61C +21DA0092D029E7DBEDFDDEE3D67E6936623AB53FA2AF18BEDDD7AC19A19CADB6ED6CA7A26E60 +44BE414FFF59C0B98D5819A6B881F9AB7AD0D03BDD5CD309C67811D5CF0B93F6FDC9AE64F74E +D4E81F2E18D880BD842ADAFD0BDF06300201C6946087FC0B999447BC370200BFB8CA420B668B +32EBC2426DB1546A7164CF55B332FE9D239B65F532B69EF9F4F93828A44C8F5C526126F8B7A3 +69114CA68D4F9849A7D21122CF1A85BF2F6047142AC84178B421F09819F155DBBAF5821B6A21 +4F31C7775C1AF2CFD61A960F8D50D2EFB201795F52C84CA4D077D86E1A69C87B1354B22A1BE5 +E7DEFBFCDF460FC41657ADB04025A0FE112623C66027B86F93B7DB9B94CB079804A49533A5A4 +B35022C6D6389E95C3D3DE8AF855F6E8874735680A9EC423D487695B1571757E350157240A28 +3FD75849C500B910578367B5C392C49941657605E3736A31B5B2E913382DEC8592DE6B2D95F9 +FEA9FE1304C34554C3514FE2981ECEBC3BFBA6ECCF62128EE4632CE21AAEEE4E303151B15087 +33EE09E17BCAEBCB86A12B1EE67D28C1B9DD748CB5C8B20D8339482EA90D28DEA8B07D8691C9 +42CCCA7DE8EB76DBB07932939CCB52388F6CC9888F5EBFF2A23FC64045CA79A58526CE2ADC6A +5F8CB64662A16AED292F04F6F8C287BD3F591EC920CFD9A2B1BE576E0E2102225B89F107D048 +1A4AE12832F2E1EBCCE81952220FB7150144147C10C992EE68F8B5E2048434D9770C8484F7FC +0AD6F092AF6D6D51F585D9BE90FB7C39D6279CB291F94D0DB5766A0A7DC30FDDD4E082CC5412 +A5AA114432A2E1B01665C7A4958D93F45FDB13759C292EB7EA231AF9672DF9DFD47E2151B56E +443AA9BF90ECA82DF314E2C9F4657B32EBEFE8DE740C7368C5E7328AAE90D67CD530C3CA76D0 +15E9616990BC1F5A08FB1D83CC88F796997000B0D80D7EFEE1CBB25C89579613459A119B9D52 +CE23136268636E1B632E1A65B051598AC60EB6FA54F85940A8728AED01FCCD992A1AB06CD875 +FAE65716ABC4ADBC417099C07DBDF9E773926D1C3F000041DE55B6BE58140E82C101BF4F7E47 +D5CE20C35F3ECF34C7299CFF5CC2200EEA093F26CA0D558FB65089D4D92AD1E18E82EE012520 +E0C20CDD186FB4C82E6121A5E16B054BA59D6BC25F4D7EE0683CE95781EAB0E2962325091A26 +A8E2994970BB6C8AF4144EF310E664CD44C6020138CDCDF4C6F47BE2A9A616A8FCF68BCC1991 +87DBC39DAD1BEB9EAC5C9F2C826EF23C2ED70374F8D9A7C6A7386FD5522D9959B4BF49D54B6F +E5F5E6836885CF1F28FF2743CA6F8CE48EF1B3E5B8EDC5E70AC360ADBAE7E77675650C8ED276 +15D621974896C9DE191597216191D4000183F40F7ED9A0A4C64E08306B8C200BD6D761D529CC +79E492E5F3795452DA24D16FA5D17CF16A7A51B24F614D3834F6F8C5F53949ED0409F1ADEC4C +3107EAF3352E617043628207D8451439694C7DFD623E4BAEC5E81A3CDF6950AF3015885EAB4E +A046F10467E40F07EA465B9F3C56AE56011EECEBC9EF4DB855BFC9662BEA42A5438B4B5D7136 +B5DDA0B04813A7951803BAB410432255329049669EF26D3AA252C22CE5AB89CC6EC7CC4C20E0 +09AF271A02A95B145B8B241AFF60C625EE42F6BA738EFF38C844193577F7B83BB5EE4BC2BA38 +7CD66D2F056174B2FF7A0C4501930BCD37E625E89C014FB56B84D081C8A0E6F110870B0C07E5 +DBC86F47E3505ABAB0FF9BFD44DE691D16772C0614E3A90372737580211532B43F3265D13E7D +132FBF9BEEEFE78B34DAFA344288F1782EB6F4B8A25CA30E1204E299A5A61A24F9D05ECDABAC +C7C75C02B9F08BEEE40E793FA7A56BD403B3087081DCF79E48E310B445F56DEA15F53A1D96E7 +1E76DD10C0B9F8A1D670B4D16E2480B8C2AA53D144E9D3736DA7F8A24FC4A7565E49B5B8EFAA +E5595CABB621BE4DCBF7747554091C36825873E93D59709C06B8E00096508C9A1C230FF44984 +2258728998E78EFE23BA9A142C3947D19DF95E8F73746978893CA61ABA76AA3AACA86CFFF881 +45C9FCAC6AD987730BB9FD68C6091892A8C0AAD57627C041C86F0E36423D5D22642A0AE5759B +66A5C8CED11459B2CE770E5EBB91086FBD6638AF202EC56728E6F029850700AE9821536517C8 +C9839DF512668DCDFCB8B95E4ECE49154982C7771196E4EACF47FB8D6EEF22E3D3493D0F4199 +385A4EF6348F66ECA63849D6811388BC73231B34BC066210CBA276FF94D496CE6FD592D4A4B2 +039A9E12C9FA019189675DAB1488E68957C65D148736809A1C93525531EDFD61804C3F8216CE +17B5E434651CCE19ED6609FA22C00F4378FCE09F0996625AAB4FCFF91DAAC3B6085610A15A21 +46462B9435A006ED1D0861CA6C9FDE60854678DC004D06886CA09EAEC471A86E0E63E7588C5E +3897B7E2907AC9E167543900F62C6B5A546D8130B498D603A1F5DBAD502A09FD1AF6261E0404 +4B4AA6D860CF03D81A1E9E243851322C2BC3C1F559C2CAB64107E067F91F08C2BBF29C99FFEF +56EAEE7A84C9A87A079711679092AE5CFCD3E1E4DCDB01A47A5E304C21BE266B32B27E4D3349 +ED8E8CC12A1E56F4AD1DFA791A377A8B117D6E27E65C0F3EAD62F36463E0D10CFF504C6285A2 +9B8A550349FDBE6330C5B3AFA3BE150E626ECABB338C4F92322F17A8196DBC79C9EEFB2F5D27 +F92A435E4E8ADC77CA5B55B8B9DE8AB3FAB909B812D7C643D39EFA5BDB3B15F0C7EAF45ED171 +26978DB5B903CCBA57E655E12DDE87A9525A0D02627D1CC78F23C13A20A46C52BFA0ABDB0236 +295C06B7B498062F5E0756DA83607E36E3FC7053D230A22CB0BB4694DE84D2E6E1F7492E0F27 +BECFF591A58473D483170321C410ACEB27DD697B6519499425F8734F4E812BA9BBE38B5DE6CB +30948DF56D33E5F1334F4FD49180DADBC06E77A7E1E682123D73A981FBF94EA9C4D1B0ADCA47 +2BC60BFD30A8E064B5A3BD435088E8ED336E3A0A5F2970ACCF03344FAD0192C732F67C8634C6 +A65EB9FBC67123389A38DF2AD64101476D170DB854A2209E190AA02B077D403992740C65E523 +16BE5F6C12B8B482BDD1DEC7C5DA9F5F9F9994DDECBD86DF40C627AB9B98AD3A562B8850C6B7 +FA20EF94D26D00A71DD1E5A3B260FB1F8430C2D208443D09F92C478F3393187212A3E98A5D13 +D752E579946D4350AC66BC49BF8CBDBC38DFDA5F272145E8221F2995633F6734681DC865A8A3 +4DD1E8E7D5C6EECD65DE13491286C535678D18D51ACEB40291AB2F4A9A9FA2778F821171CD2F +CEEA1141CB400B5522B33AF6FE8A6B283F26BE5948431DDA3E74A634672C12D3E83993D6D952 +7E524AD5E91EF6BC631D7516969EB245B2602FCCDF6120D633B9B01E0B89B3A1D6ED3B62A133 +547DA125F7773B34D679D8428B77470F68D0FE0238BD86187683C406E6341E11BE4B6A5439CF +DF76820DB1AC1452754273537134865205E35869D96CF9EA95850E0A35D67B99BD68B311C7A5 +D18EF07E48B36EA16DD8B9929930326DC5A43BCDA30FDFFCDD32996D341F11872030A661AA8A +CCF3F7AAAD3B311B85437BBF55D7F6DEAD328167504E850C2B7DD76CEAEF83F5EB7DB8B60CF4 +B1871FEEF1C4338E0CCE98CCA232347F77D0E3776342F17E9C5E47FB436833114E7269F30A1F +54ACF9BD8C2E602290C23E766E02BA2F206E155F2A881185CA0D5ED133F2871A6D20F4A2ACD4 +123CC042202E64C17B465627588DC569D88B0A99ECB34F4383C5EDCD395ED52D74AB457BE98D +DF7B513D0318FB7F3940340809B3365D938586516F762E65DBF6D52BB59B3381325D456F08AB +C702735D6A5E712AE82C6EBCBC143E169560ECF0EB4D01D1DBF2EC29445FB73E8FFB4282F46B +9C0CF3CE86721DFC759A98C19077372FDE74CFB4A459A76E4BA34F4F8C494C79ADC99E9FCF4A +A48A182EC17DF6B71C47E7E2FB008234BA6A14B9A9E6B6099A1ADA4FEA2027ACA4690D613ED0 +8ECA7888C95F96605F2E5CF9048182ED19E3FC4B5450275C664A276DA4929326D7E951303C79 +4342B7EC93B8DC34FF1274D26E1FDC9CFE0888E519F23BE514A5B0FBA6648E81C4C64BEA773F +2E58E760DC5FCF25A520C73F752D5A8AC2EA30869CAA95735DEA0E346E384F060F7E2A948052 +597924037D5C1429BF8D636696CE14DC9CB2B16E5E304605ADF8C428ADEB41433DA0D305CEBF +E8E86AA908D45517746F40CC638326E037598777474519F7B41900CCFD234E21F403D3750016 +362DB711FBBC34F9DE41643BC558A6CC025B8E790C89D07D9AB53FAC43E23BC3730D7524A146 +DACD950EDDC27714F6D8EDB8FE6BB76906075EF4F73DE6DBFC5351F0EB028E0EBDF214F70EE6 +5F13C5E02E24E2D0A0FEDE9B48F2AFCCF214FA14208863AB8481215FFDA3E0A892491CDA7B40 +E1C2F726A585F7D73EC4408C1CC7BF3B693B1B4E31E08D1C862E47B9287BF7CC8F7C0B029EBC +D2E0CC62ADD7445AF53245794CD8B442E0B76B343FC998CB02B2A5A4FCB6715BE2C2C81ED73B +3021E2F025A32687CE285648248F65360D322E021D88B383891362854D7C688193A328141E1B +7AD514A9BB2CB9F7AFC207FADB9D71A4F21D2C7EDCF5BF996E6BB492D4C4BEEC18950F543B81 +F4D3A02F86C4670EE4B285BBB96C9FCF65ED69B49F09725BCAE59BD16185C7032B89C7F56354 +F2DA61BB9283AC71411BB64E373E960410C0A401CAAF28475412FF970BE5BCD12E61D6036961 +680E3BBA6D93232301BA52A8A5237B36B9E94603EC03894BB27C7AB10EB1D5BB2CE8AF7552C0 +9C578CEC4F2CBBAD648275D4646A3586D756F93511F6713232CF877D765674DF55CC9EE31045 +C1B52819EC73F21E3D0B5C0731F703E7FC568C5CBD5A6F613885A0ECCDD86C26CA084C06CE30 +B19B0B4F1DF2515728DB42CD07260B77E89D05621565AF433D0479F2628B55A1BBF3B8ECDAEB +6DBB69F77D02001BA416605A985FA0B994BA580DA07FC833D42CF5D644D75F7EA01F6A8DC82B +9C62CE7EBFB488E3EABD74E40E6F683B58CFC2BEB2ECF1B83BC61957B78718569CE394D79407 +F600AE0EE60D817F9D58A232AA5E92AE164A62ECDA4435B9B663CACEBFED6E8E9FC5D41D3245 +9E775F436AD97A286F6E920A31838DEADECD89B3720C0BF0D14FB719C1AD11AE480C874A4964 +00B2DDFFD9C4EF067873070458DDB14CF882E5800B155572762EFE906AA878210B88CA8FFEEE +45F3BE4D6B004E764616FF7FF6C3399C940B286D2520BCE94CB668A5A95A16D23EB997508733 +8D5E11EC82DBF7D653DCF40493EEBE0C20B03151CF509C2843BD1BBCB3B9CED581899BF8DCB2 +3A9A6F05A9CC85C5BB982E6B071904F587B885B78EB4A3A68E5FAE02ED0CF492DA98F74412B2 +AD7CEFDA13E0D31B2C3283A54E12CF593C9A1D1C99CDB6B1C46BE5E3804A1472D4EF25C557B7 +0A8F098C7C614EA6C8A31B706E84FDC4D198D8591B1063401D6DBA629B78A82149E056CB30E3 +0EAE48DCE53CE0BC8E2D0505143B75C0D680BABA4243EE1C7DC8C2A86A9C2839615111E57C54 +516F77C97CE00368E5F983D2EAAB9E107146563A660129D92A8884C44DB57CDA48EDC76D3F8B +66A5FA945853E63E079824FEC3A095B7D6B06FCBE80B01C0B3FD32950EA66DB96306ED7FB5D1 +F3A54BDEF0239968CE1AE69798CA6B9655FF728C1090EE0AAFAB68C2F172E3B0D14B5B8412D5 +FD84306346342971540856B6E1209CC306E9A493179122CA4A79047F5C93CA60B10762D3B625 +A852A62AFFEB5FAA9A219D689702762597BC7281A43D1C2FE0B5FE8AD94BFF998DDF7A092696 +D7C251A0A7FB1050E1E748B364A95003F0A75161AFD9CA196286481717B5A835FDEBEEB69BED +360A883274477B2AA58D17ABBB4709D854FD9B4EC7AC5D6487023AD65BFDD40F064E3D93F356 +1D1D3123CAB26E79BB15329CC1305E12ED2F0D9CE2EDE8811DE03A199E407B0049FFDBA1E730 +837155CE1A3501DD4FD69DC103463715770254EE7B233BFAAF27AD311562DAE7718AD54EBC8E +0D1C7BF468908CB1256F2A1A7739E238E51D9A370FE5CC112437AE09918D9F416082543830B9 +C5D7E5AB2C62BA7D138106795928F7AD163683B09DD0CFC551AA1A06D546192A97EC91DC0774 +990D8A7BED8559A491A9532B88298AE923B887A630EACC71A0F2E618FE41B72725BB2E35623B +08C8A4E17C06E156667C4B3F261CE2E692E351C838CB13A5EC9011B07906A701EE646ED9A753 +790CEE36AC471E6B138AFC7203D994A0D7F39093CAFBF4956F5A33808DD61D88AAC92EDD5692 +EB94A0B63D666FBDDD01C4483F51C5CBCC5AD9DBE81FF88318609465207A1FDC6B9D27C9774D +4311D3C12DD81073C1BF8DCB4A4B2D7AC91C8B17B1A96DAEE39C414505B3E726CB14067680EB +F48DFD46C3D7E7FBCF227EC5A99CC62A6E76267E077B0E2168EA13C3468405678DFD641DBDAC +A7538CB4E9964A4BFE1DB5E94AB5201670245707B3E06BF29AF27161541275A867E2E7F2365D +CC02DD5DE97AF36E23DA213967176D3926756400692950448322BE8B7593DA048F227EED0C87 +75553F9CC2292A4C32792DC717605978935816DEA1ED2BA09A0B94946E91D048DB600FCFC72D +501FC39D503B605C74C38B960FBBA663C32CF41639227C7C77FF06B99117867CCFDBD3EC1B11 +DC8E16838DD140AC1A108CA02AD8CFE0DE5635057B116A07AD57CA9009C79814EA50E4A27446 +2485D584B48F265831869106D6216CF2ECB24CCC522CD3049F112DDE35EC93CD440B9A8CC755 +427ED1E44515AF9021E68124B25A79139A08EDB098F29BA49B7E48C0135BD28CA93F9F0E46F7 +45BB51BA3BF312660B610069A6F87E686D691FE242611E7770DD6D9BCA64A4DD5510BBFF40C9 +D25F0ACF7E32B7A5369EB5406E883F18CF33D3F61C16EDAA0111C20A98B7A0B460E5842E2D14 +B13E22EA5646CB8A22C02996325874FB5B75D22A8E0030714D1DBB06E9196499A3E974935507 +66EC272AF1F2A444B60B733C56BE16F6B6C9643F87E06BA715BD0491767216C9F2AF7DD40D99 +F183E693C06BCEB46D19EF62B57E87EDD9F0F3AE1332EFD4F0ECCAB5EF011128D4C936F9B1A5 +EC86093346B0F36284696BA8566DBC38A01733D1E0F8FAF1D00D75D91126E52BAAFACB0B115D +A285F9327BB55030A9E54C951C0E44FD822EFC378A9101863803EC0285DC9FBCDFEBBA3A8325 +1B62F69FDD7A288950C665FFBBE5345905B1518EC4CF42C0827C1FE316B2E6466915DAAAB361 +3491BAE117F789B87D8AC090227D4D0C7FB85E6AF4F104DF9124C8BC339228B21EF858DC7CA3 +7109C76B54A47756575A14F6B2C51CFD5A197480C12060C14662C1BB860FA33ED251E974BDD7 +97A0EECBC12D53D7D433B0D67B322976FEBFC640F00A1B7344D8BC98C8078ACAD584BB951113 +1DB26F940D969048B94CD5AE6D71E83C1FECD28AF6B75062193ACD58CA0473A86196FF4FD889 +DDDA5C46AED383AC44F5991DBA10E0D1DF905EDF36EC99279BF35811D3E177B8DB3E66C328E3 +774A65EB9D4782B03DC7D623831A924C631955A56AD83B17114EC5A48805F795DD3CD508B405 +46DBB35E6EFC742FFBA113F9A6257EABB18E275EB0CF680A7A0E5135ED52210EB2073CEB06E4 +3E82878404BE7530ED3C037A517E7F4D92C7AB7A396836E213BCD4A2FC290A375C33FE57FEB5 +06E667F514AD83472954AD3D5577CEFE93AABE6BC41EC2F1248768933A1BBB737617ABE725CA +314B87390654D85541B303E4EA04962547A9A4B9646E8EB39F2E33A68F22A0B56AA52229BD51 +1B98158FE300FD5719B659E5B8A689FF7104DEEFC547DF136F67951EC6044F45C942E7C42F91 +E9C831917B228490F78A523B69E3EA069D345103CB03226F45F17297F94CBB55FCA7617F5A2C +9F1F136BA551EFEA6F0377AAAD9FEC698A54419B7627C6A591AAF6BEBA128125C9B2477AB747 +1781853466D6FAB80BF04AFC7327A60414AF07E3BDB58D2B00ED03C6BB8AA8DEF345519B255B +1D9FDDACCAD376725BFF2763DCC37BBC4C89ECDA3A07157E0613C9B7364E6597359604AA4371 +B15955F92739BDEE2639DF941B6149FF9947EB1707C89BE13A47102186CDF6A332CA3B1FF48E +5AA16B0AE899D8480AD0E429760DB81F141C48808B4B849A687903AF43FE7180661EF16BB165 +44595C7AE9BFCD7613DDFB56DA2249C6DBD45D17D48B22FD619F8AAEF9C34244B0DABF12507F +E64A14F3E38A9F907C93BB632D0CDD0CB3BDC0B3A663581AB6D39C9E08785821A6638E2116BA +7DBA1969DC5F283F9C3D1E26BE5DB8A5BE44E0024617F8258589761269DE4E8998504211E155 +C1B8F6F0F901537ABE3F1756EAEEE1B9229A62EF76D44288D07837BDA52CC84552FD695D351C +EE317D040AC69CC5EBF31AE4BADFF86F3A90D288596E67963AF1AE572D6EDB93D2F363099489 +CD45C2FDAE11962C99B555FC361119B81C6191E2BC7D946247EA6562C59C5C28F8D9F6102F8D +F6673F50CE92D99B4FB944A1259E9237F19FF33BF8B6465B703F207B58EC5F8A1CF540D2789E +12B343C9685B8519BD24B691FB11A2049168FC153E5941561360B041F3507B7AC38E43E34354 +F3A08BC532CE3BA758C84BB0B5C5E96CEAA8955D556A67A7BCAD4A7590F7C5669704F57E9358 +6954FDE2264EC41C5621BF0915B6968AEEDE6E2A17FCC596180304F8804BD2E737FC1BA4515C +4A49729103542B017B7448DD7D4AC53DF2D3663813637C306D24A3B77420EDA75E64BD9C05EE +5AC3644DA0B204FEE8FB03FCBBF4D095828E9E7B7995AAB88B21F0AF120C36547F232517ECD3 +DCBCB6EA7340EE52040F724A0B269470CDDB8E2FA8AE4E1931FC18D01490BCB2B463F9810115 +7EDD626F2E96A05C9E75231512D67A99BA7D40DB4686CF2FDFCDA3F6D769F487C9CCA3048CBD +754B86091679C7D9D121AECE63B0B3EA0878BECA4DDAA23343A0010185C9A1AA1A0AEC2A6923 +7BFEE9AB1138C80FEDD7BF245FFE0E59567E566243C5B7D1978A4FB61D562F223CD8DECFDC66 +050DC0751260B7EC90279C9717C139AAFFCD913E39F2AF608FF6BA3351956096B67EB52A72DE +2B2C9D1B1B0FED7227D6635E52D48F65F8114DC88F04B4599DFD8EEB559F08DD3D31E3C505A6 +75AF2D09BC1B8F33E784F529336C24EF3CF999169A8BD3680C5D108212F1D782FBCB0699D36D +45FC0D64D271C8CA7A7183F2E4FD3DA9B8131633172E5164AAF6AF858EED14EE05991F1F0ACD +06539B341427234A0AD197AA318C4FA48771D1404671122F84F77CBC8FE4500B14B4319C93ED +381E3DCAB677AD30DD4C6B65AD6B1ACE780C89885A458D4EBEDC1D7D9AC6EDB4F294FE50828F +2AD17947F48A16E36601C804F78A04495A4ADBF6F75480D99032C1F1944B2D61C2B3866BDEA1 +11468F89C4A82FEFFA50ECDCC637FF3DBA28566FEF0503F7820D7DC6FA3545CFA71DA1F67469 +D79A667066A9429199BEFEDD8932243B33AF94604B37C4CE342B5A5F5D4567198F40DD880024 +63A6E3CB275DFBE30069299E98E5FB1277CBD417F3FDAE91D19557D651886EC83777DCF7DE04 +76006E4CD623D0FD49E1E1097E7E5F3AC2A00A16103AB85106DF2D3031EB69E50832865576AC +6872A1B6D1CB614133CDECA20431ADE51166BC337B08D5BF5C57077F9DE43C10C75C950B1089 +5B08CBF00976C7916CD05539980E7E7DB78EA0605CDCB2B448127E69F90C5E306924BB3864EB +4E2110B6689649B3748ED3001D4A5FF68A0492BE9FE2C5D30A926E53B0E8583EFE8B59AD5B5D +FD8CE5A488EA6D10417DE59A68A5E5A0E1CA7E2643ED867238D61D75F043C8CE6019092827B4 +8CD4B8EAC67CD145CA338C971E07F56F5C41A9B2A6AF84AA6CD17A658A43F39BB0B3228C8761 +090ACB2F720FACDFBD49A6E607AFEDA5B17AF3CE5C0562D7DC31E2AADEFF4758A02CB5949234 +F75AF107A0B08186EC286D7BFE0C5A48C23F39D11F9039073EB5F71E953F6E07714F17085206 +8690C2C4A5BAEAA18954DBBB044D2F0679CD653D60C445CF1AA041AB6F5AAD6C72F9CE3CA4C1 +4798320D3553BBF4500F68C2DC2A947157671E108209540C93D9DBA21294CCAD2207FD865F9D +0AC73865D838DDA483C998A005868E6E2932B498FAE614703514C46C46C516702989C5D3BAB5 +A4EEFB2F2C392D780D3DD9476D83600CFF68B54D72735996E5582D4FCF4E00044FFAAC8CD8CD +B394023D671B7A9E9018E3DC32779F5EF14D97207CE75365143420060DE69D60B4A26FAA8D68 +739C66DD9C7BA4407AE24734F73316B670F709947E40440C8C739213E5475684D29F3DEBAE87 +2A54EDD999951E7CD5E96DE582B767E11DE90E0611169BD93345307F2BD2140499D776BBF380 +C505E7A950A6010F6A12A74C5289533823A005630CB35E541E79966DBECFF631182940C1899F +4823D8DA9BDA0A7A2081F3648C225C6D36888914C6375DD2201B40AEA24316340E26B244234D +131E2D32D4637FBEA7D35F771A51EDE1FA61ECA3E100FFD079516513DAB3710CC23C1BCA889C +2EC521598C33C96337208AABE5124C53DE28E8FEFBEBC586BCB872E6AB572E9BA37A6ADD73D4 +8F3DEB3349A58C200F57937F872BB1DB4AE0FC2626D2B3B163F3D29EDBF92A1CDB16EC349B5C +93D0F0D5B42232AA4325BEACE735FD49DDA348A18A65403A6C38C5D7A12FEE686CAEA4B339A7 +0B635ABF708F5FAAF00355A24C11DAA83936D596E0481FED2639969271481B0DDFD4DB485AEB +F6C941476D0FFC6A10DD01D0337CBA34A952690866459DEF254A66477BCCB78D54DBB6FB4F30 +E8541F51A9D864615F2AEA3C234FFD46C2F29AA54739FBFCF08F3C62521CFD44A5F3578CC149 +22556E6DA62D5D7AAAC1A4FA4B8D46360EA5AE0FE221B53AD195363FA6B1CE8B03A6B4694DD5 +4B015EC5BFA29D8A7EB229A2E64B8D62AD9B7921775DE49BC8DEC381B4082D8F7F5B0BEDA0D9 +DADA29CD6172AE9EE98D6EA568891A549B612C647F59EFDC5A10FA2BD9B80DFF4A81B17C5E2C +444A4EBAF4206DD72C384EC24B5E76361D37C7CC4FCA0C9187A071DE156971E67E459996FF0D +1A41CA576F042E032C6BF0D831A8E766FA534F3CB6E6CFBBEB066D63B209BC71A26785684F48 +88D03106614D83D21C0466679053D3A80C8B2B80D580C264797E4802B6DBBC198365BDA52579 +BAB2AFCBF29889FC4DE6E7FC2887C40EB161A337CC3F8477C571FE2A88FF166136A749F00397 +7F01BBC9FB183D9D3C5BCCDA79339141BF387F9447255B1870CF4D77E21EE78FADF9ACCDCC84 +F9BD65829B64AED8454F2E3DAECB221117F375798FBF065CAE99051DBD89F6836CC9FDB88C51 +B009B612B6A8955CFDBDC74B420CFD15DB2FA22E6422C344AFDC8000D78CB49EAE99B5DE22F6 +AE9A0295E778AEC3EFD7B77E2848F3AC0D25191EF9687654D9489C4B80FA3A17B6AF0B868BCD +46361AABD21A90280C0817DB3E33D2DDDDBD23CCCB15A5B5E2C6F10C863C79268D8D1C498DDD +5CB8A935A5074FF0A97A22AAFA72269F973CBBCF3B7280CA29FD5033F64943FD8F33F1347EC6 +7A311E2306CA80C14872AEEB12081583BEFFFC8B06997F4D65DDA3E72B4C3FFF97794144F034 +908F4EB026721B9B1034BBD84EB1792E254707A77FCE66DBC8818C51BA370E9D8A19D3DAE0F1 +9CC732E662325F54C7BA6DEC8CC440AEBF7EF4251EB14494663890689B79D751398B24578646 +4D8F7BA021AB1463D9C34F82DFC11AC570A8261824B5CAA30A21CA1A64D978096F70D45FD866 +F2125D0687EB85962500BFD84E0EA519037C8E36E5B29F2DFE7A9A0DEA7C5EE64EC3C2D49DCA +B026B9BFC3EECF64F263A584DCEEC50B25EF12E0160586D7DDEB78B7609C2F23B14CA695F82A +A520B473F8519718983A42C3C2614BE17244FE2627A829FDEC6E6816EF9D92B3643D933BFD61 +829A727E4696A91A724B0AEA8B66A407011F33D3FFDAAE4D9111E17782B3202DDF4AB9437C57 +B2C859FECC90F6D788E69FCA4FFACBF5199ED3A563D70C1CE4768646849B0C4B472AF45E6978 +A4D09726762C1F81619B3B3709F27963A40778DC07841E1BF1668CA37769330BBAA742751827 +D10FB86531D0798BBA58D7C36FCB524803B85DA7ABE2D37739B8A348D528CB62FE9D46B2F6AE +675B16485DC00120D18140BD7CE1A86C9B115F97780E32D7C7B075092686348F82252051712C +27026BB990D94AF5AD3D4B2B3A32A83768BDF86111519C9F093C00BFC69B5D805742D79AC7B8 +A185571636A3B225FE6A8E7009401086429183C2EB879CACF4E084F83B0A88051C4B5F3589B3 +6F83F74C02A7303D720A442E18CEC20F07DFA803CD70AF94E54E8B06F54AD1CB72894337D2D6 +E2ACF60459605588CB136BCDEEEED232DBFF1C9B3CCA3AE3F31CB242941ED261B34357026D81 +0892493F2BA7AE1241B5C998578B6B35B1B3D28E4CC535AB3855F3610F5757F4E6A2728B9011 +C943FBBF86131687325264224AA48DF82EA7D120FAFAF16225D756A4C2F868A85AD174729594 +10DEBE2E09B556D4668B2CB1A81736DD3A2716DE0F3D8A70680CDC800DD011FAC3B3A403AC48 +80131B79C291008EBF32638664E681F61B1904E692092135C577147F5D4F37D1BAF9927B64B0 +CB94C9800830A85DF9E226C402C5F67B214A2526B07CAEBA118ED3C9D450B9510B9113CA9AAA +443A7E22810C2C6E66A4DE5B7713EB5DA73898B77C0C896423B3E99D41EA83E816F7F08D22DB +C752BE2CDD01A6B26229FB84CDC382444D2240148BA199DE658CE6105BEBA2BFC70E6B3EB186 +77EE10326210659DD0A1FF417C5774CB976EF49AB4B5E5D1BEBF667C3B9C27903C42213B4233 +C6E8FF8AAF340737FA81A4AC5ADFA8283832210BAE76BDF30E77C919E6FE735F0AEDDC5D5C0A +AAC37B0FE092DA76D20C5D2725BA23D0FB3D61210E3359BEA4601B19B7A2E2AE526CF819B45E +815C800A9418FB7694B38E43D53772ABB94974997BE59052EF8BEF3DB1BC31685652CA5D2B65 +04729D09AE2AA878964CF2C405826BC87AF1D9B09A0D08C47F720A175C1CC3204CA9C29F54BC +8C711FE40CAC75B5925526BEEFF6984620CC18394DC6D3FE7D5951B6619AD55F6BDC80BF6B9E +1A760630826ED9DFE2B7F5619F974947158E6A8EA0EA2871BD0D4B748FEF49058CD67C41F99E +C7A16863B9A550966C0E9A5A1B0177D33B82E795D148E0D3E543A7D165725CFA442445470C3F +867C843DCBD1AEDCA20731EBC1AB1D2F056D8987B561B995268CDFAE226A36D4046BB70B411E +E46E679F57A13D955ABF2B03AA5BD06D5C7207BE31D85099076B548BCF50DAAC8979E57ADC20 +57941D64A4C71146E638DF829F7030278382B268F7E8413A7FB901631CC573448EE5F4514520 +B5FD129B857D6DC60FF7F861296D226AA904B5488A70FA517E9C14C5FC2CECC663966CF5E3C0 +E57B9463B19060CB1F91B38F2A1335459D61E8EF50DF7F7D0A6EC715095E3019668E3591B1F9 +55AC54A74357DEFE2F06A99F4F24F4B8EBFFD3DE0828F92F55CB84CE07FDDDFF136BB1649937 +A123FBD724B5620AC5E371707F208F0C7BCD8AD715DFDC1AEC94C34417FAF42F79E7F0BA12D1 +4EEADBE8C27054E995C8305FF8016FCA946C7C1E38E26D69DF5E7754C031862870F197281669 +C2CAFB2242692F95AFDDC81FFBECF804AF3A01C480A94142F94FA6A66AC0D6A3C77DDBC75713 +9A5B6A8A678B0CF1F9262E19FEB5BB9F5D8A296479BC88A3B1275B4928DED934191F9A8E6B91 +04771D3F9A54DCF8943135ABAB6ACD32F751E01DEA992EC29C3E1CEA3183CFF87A40BD061819 +CA03EBE2F1EEE524DF55649FC435B3798BD4D86032AB20CC4ABD996181D64FF35829B3BBA14C +432114FFEF6F341AFF08DD1C6296ACF1559D2253967E8DEA8BD639403B400B2AD3B52F5054D1 +6BB1622C06B8CA3B2A63C56ED66085280FAE830176A2CAE70D78BB7413DB48646F60596586EE +27F87739382EB296E6C8DEA922067816F32403911369DF6DE176F1E453E5E1696ED48BF47B07 +61AA2F74CEBAD0BD770CF03AF1C73531619C2B14217046B2F6F6604CBAC699CD4F80F1F67AC6 +1932B339BCF415720CF1B2B2CC6DF6D4275103ED2D50DFA7A480BFA90C5B560C52B78D33266D +534927A3F0D342E395BA249C495AC0EBE3F3391377A79F0E00FB2AE8C70ABDB1692F14E8B550 +D6DC043C939DF229020B6F716820FFDE6C8CBEC9D72AAF7BFC20B637B2AE6B438AAA89BDF741 +B59A06C6F49B8CD419624FFBF91E0D1DC85997E69948A872FC8528926DC0D6312B485E330EB1 +9DBF3CDFBB63F6A04530577E606CF694143B3009136CC91A8E90E7EF076AA870EB0A96E19966 +FA328383F335EA8220A754F497D1C2937B73D9555E06D46D8D181B93CD9CAFE96EEA6C6CE776 +4C293A420C3FA1B3BBBA9B8CA0C0EE78882B13FFFF7A3A51B2707609BAEADDF101FE9B7B663D +2426FC8E0259308728215680252D2AB76B35BB334DA2A39D0EA9C2735D22E7AFF98A1FC94AC5 +8C177AB5568F81AD20AF1BB3295CAA73182ECFCCBB534A7FE9442060EA6AF5225E216B25E7BB +4567C7511F4318F9F8CCF1B36FD9D2B913165B63D195289CAE712FCC32328171507A96906E5A +C8493DBB1222C98A0B6D4AA08A3589ECD45AD4B28DADECAEE0C0B79A558E2ED3BD86B48CAED2 +CEDCD3807BBC4620224A3E2193C50248799CBDFDC81E53E46A36C6117BBF1B1367939AF0BFF6 +93A5D1673159555E5C94C815C4B7391519265EC47A504E3A3E476D5AFA72FAA8156EECF1F987 +AA1362CDAB5B9FCA2AA363AABAE6D3BAB607BC24A1EEB0EBE6D3BEE4C9B102465B7215A2F994 +EED02C77F3814FCCC38EC364139419373923D51BF9C32F7629DE3049E6101F2B6FA06C0F36A3 +C89F4475FFB68249E96F0FA707DB50E1C529AA6E5830C68C62874221746152264A5251D00A17 +5342A21C815E6270D7615F15AD3E8D722D459F6295E9AEE52E060BF46A94480E72429CCCDFA9 +10338BAB5A840ECDAE3B9DC27D8A9F47FF50DFCB23A066F2D461556FBA0FE0452219419A09BA +965FD0DACDC4EF9D3E88946475DE8C622DA369CB5E2A1130101708CC43BC09F9851C6F95A603 +99BF9404E070863689094E58E00E936E53C105A38A51A692DCC9646F393724215F53EF6393E7 +68E3C91FB6C6D3793A21DD85B9E488568891D2902C369A1F0246189082655CACA8D0609D719E +E5A78364EC24A057E9BC313CCB0C7AAB5FF3583BDF7B45C0BCF28C46CAC005F990A6A5B9689C +8D4031577B417C2936A97D3479436CEF24B7DC4CA7996FBD9E12E94862059CADCE2044FAD332 +DBD372E434163243BFE031E8F501E028257A496B3DDC1E840F83C9C2AA343E2AD5ECCC4D300D +993D4B738C597248D5CDFD45735B1DCB6495CFC3C70BF7F6D44BA783C4EFCECDDECA077263C4 +F1E5DBF31F8412705A07165F90F5533CBC5FEEEECD986F8AE6DD3081EF8B5EDCCCFCEADDA72E +37CB7D797CF6F313EB07902C76368E53BBAFFBEA11F9E2B628A9F1DAF84B0496898BD8114BEB +99F71F01E169BB3E1FBC93CB29944274B6B0895E902CD0B931BD702B2B2F3D052D41AAE47618 +6F0DEBDC58BB338103575706BDC69DC4D3339EBBA4A8913D22FE244A08F640BFBD8B9B52E934 +266C4800BB86A0FFDFB658C3878649FBBAF09DCE3B502753D8C845AC738D6052D5E22A0BC1E9 +7AC0637C3616364F06AB04ADB1EF39EC5CC133D14C8AF1E5A4FCEE7E1C4C9A423D6C52F319B1 +0C5C6114FD3DA25109EDA5CC01FD2DFB52AD82877A8813DF65B03D1927D699AF21E8AB930B97 +895D2FF27F7A871EF2C7C19801EB14CBA7E6EA2BD77D71538C3D564D5F9F462F604317D91536 +1769C334C7168A950282D46A5D097EFA268B8D0692B0C40AC5FFE88CC6AEC0CB6C42CD70F46B +9C46E1559714923BEAF960D9A66A0852A60B54057DA2F50FF24456AEDDF31A8536B7DE522E28 +7E53C0A7BA056C2A12D122158C723C69087CB045F1D206DF486F3F9B63CBC693A563A5548419 +1C368FC9B7CB4A313A0E494F890C93C1F089D08C89460E1DA4F09AFB317B7EA7F165232358A4 +6937821D5ACAC4113473385AFA632DC7623D3F51684C577AF532AFB622D74E7A27CC58FE8AC4 +E7CA1FF40B5D123F36B404D6F6A1C363693083991DFD58D319A5475D3BB683832112DDBDA77A +C23E935998D5A880E443D0C3344119F6364C5D7BD69020CDDA8D1AB8A59037CC5056CD7A8157 +AAF854B548E29AD13075B88A502349A903D55D0172D54A449251AD7A4A8B1EFDBAB1A0BF18F5 +C28E45FEEB5F8D3F0C0918BC8E40EAF6E3ECD88CA4ABC3C3694534AADB7CA1C9D8D32DAEEE34 +0DD3D45D371C652CC9ABD68E011345A7B14C116EC7583BD7F7ADD97547464AF3C4123BFC65A0 +F4F94EE53F4B299F80A0B72BD717F00DFEED4605CD435298FC5030A73E7184B250EC13525958 +44B4EDA77039E29476AEBD42EA8CCF587CD4D743210C71DA2C7AEEA0DE804ADDA63034A58C9E +41EA10AA6AE6E01E30A7EEBAF223B7CB1625867E5411905D87E855FAD50D976B088DD8F8CF8E +3391B16A490715B1B271CEEA3D64E949E1D03CF3029240E5D653372D1FB1EA7F7DDE35D3E057 +79A015E4285ED52D941832B15AFAEA40E31926C0773CFF0CE61A8AD255B14FC45B6D2A4E60F5 +D4C2EF99E9CEB145598883D196FA8C950429C34499475980AB6BACDEFDEF775855727F595BD6 +C045D2A0D0A2066FE698B9FE06D5712CC71B546424DCAC5314F396653FB5641385746E8CAE0A +E8EBBDEA33594DDDBAD6845591F74F415EBB018C564A03BEB3A5740A9953C781C11683C9C8BC +8859A292A06C4FFCE94A80502940D0B1BF8B0A199AFEDAE448E6E805A7C19C75EB8FBFB01084 +B882E6AA14E81FCF64B63F0E12C2EE8285E4B30BDA9FB2189A8A18FDAE8BF929D5012F0D79D3 +FA5D18ED7A12E0696CC7A5BB432109FBAA2A18C47C25C43FE311551096B1240EDC18A085F87A +D588639AF355769CAD63687E25AC62B247E57B68A24F6A2B993AF55398DB46F78261AC5463AF +D2B67FC0471C5C3ED6F8A739ECE057B300CEFF4FB4EB31AB2FF5236906FF5D36EA338C11334F +05C7ACEA1BDDE6BA5C63D180D9309F26FC26DC414455A4C8F7A5B3B75E11B782536C44EA925B +69E09DE3476F65D12BF600F760615171DC939F6AAE953D7AD234E6FA0321776B378FE86691BB +124EF206D1034E3B3E5ECC32C933411144287D3192C6FC259369B608BB1EE1A703EB61BB3207 +F7DC20311FDE6FA988836ABB6E2A683707A902027506626D765C84D5F52629BF358420B3C399 +279DC1B52CF9CF3320E7E9DE4E3AB236D3265F1EAC27322F036D5E86210C57FFC54A7BA0881C +66209ED2B1C471CA625B1C70338CFBD880A61F4C308D3450A62966CB37A2E31B1AFFD8642BC9 +D7F22E216F7DFB50036376C9131F99CB57000CC6E27979690E4AA39D0086FB5B498FA0166443 +F2E6E1A7CB197659B8E0BBEC27A67CCC828D48D5A03FA8AA9D65105A20B29D073461788C82AC +4E9F30C4286AB7F4D21E9B704413FD12E1B5E7A6CE89EA7C92E0FBB472E34CD2D5B30A0A9B17 +7693A0EC91B89D4D964EBB35F5C73EEB73E31E50EB500D47B4D1BA9B88380E7F11FE8135F72C +7BD688C4D6C908BA4D0262A0A47F3B04A91BCCB80BA992FEE8FA3E16067B71EB6249978BE2B6 +411BE95B007C0E88DE91D00CDAB4DE1C75568B3BD03749067988C8A34795671E7FC0B0BE1220 +1572646570BC46D61BE1700658A07B6736B34AD3DF309965A60F5054923BA25C3EC24566476F +E7E379ED48543999C732C3A4026369E0715702CC5BEC13D20B70F2532F3FA317404E7A5F04A5 +88F3CE2694DED7BABFDF35E96BF395FCECB6F69FD2BE62F807EF2CBE304ADCA2141E1496E10B +4AC47B7A6C3FBC6D8A9C700CD54BEF6A33DE17146E128F6649FF7D7D13F7DC0E571811D74E34 +F87AB3ECEDAEA980D0E54782990DAB09D491569EE687028A46BEB90B69DF0A62E44F1CDF4852 +78BBF5C3C2C36740F95365759FEE9FE1BB174A932E812EF30302C4E73E98810EE874FA4BFE40 +7B7308194576FF40949A3776A86B8462D865BC005E966E3BE0003AC6A3D2E8ED6B2526D91D3E +5994BDA0D7C956B5F809C4E940C2F3DB0793850FAD201A3F7A1A6BF6D04873D6FDE7BBE78A13 +56D800CB643CBC589E8100D6415CC9193BCFD7BADBE2FB3675A47B77D95395B9F644C11D0904 +0EFB27F4C1C4380D1C62F073F92042953A96256176909CB85FF2ABB2D64203E00CCD0B5744A8 +05CCFBA2887FB612B8027431ABCA3BB9787895DAC2B2C272B30C1ADC7625EDA7E5C715C72B34 +6C563A71992ECC9EBC061239ABF81BC5011FEC3DF5765CE4EA3694534218649E973D229084DB +19E34199C1AC81D1F52AEEA5271CCE82D4CFBD7E59839ED67FE243C5A77E2E9EF10C6DDB7564 +5E8BC3D6F81C1EBB4514C0AD2297563A5B422E5FE29DC6BAD52483E111EE7E4C75055EFBA1A7 +4E5FF488E91E451E5672217DF529A0F68B7BAE363D68C3007B855F8E24166255FF989B34D544 +B9C05279D63E425F0BBE48D939E001A170EBC0E784E79A7A155CB89226513ED2035B7687FF7F +FA27F18F8641456A4B8F3C7D7EA48B94A11ADF59C4919F632B9E1F750F04B1B719D254655953 +CA3EA90993D4647041D63F09530A281BCBF76EB6ECE0A8DB6C8E340086FC36FAA3B803B2A744 +A36F7C8E295FFFE5AD2ECA1D152D446F518CF649AF8893C529A8AA9E500E6FBCD980B1D62331 +81FFAF8816EDD8EB7EC93374FB22D90A59A1064D7708B64E11CA6F248CFF2DE24B807FDF6C8B +209EBA2D8A95BAED32017CF7D06F3D2676DCC107EE718AF46C57C54420398B448FABBFA0F031 +A3DBE8DCD1D797EBF1B785FAD8FD04AEE38F17429741CBF36028189F9CE20F84155AD377D645 +1A2F6A476FC6F396FFAA22CD2D5F9CDFC6946ED952EC49D05A0888E3C8534669A711149B2BCB +F28558B0402FBEB111EF59C8FFDA4836533B30EF1E5C547B8B27D775F97CC55E8433EC019A54 +0D7F248D48DB417BCB72F52D8F279E495967F6EB6AD790DC79DF38049F7B5E29FAC19A97BF38 +C6761FF3E8955E519AC43F5BBA5A31A954543C7D56B18E96C13549A9ACF4CF46EEAFE6A7506D +824E3E6C55680CEC9A6AC22ECC11DB2BCBFCA16559FD010ECA8B5A8B91AC470CC91A84A33EC5 +BB699E4901596ABFD42461805DB8854DF9095BBF3FCBCDCAFEE6CE9EC915A9E5DE1326BC8D72 +19A3D31660BD3955C65088F41D7BC172D04902AF40C9D4EAD20D72BD2ADE96A08A4E7A2A9D5D +2AA451B9BF6A3CCE45B8F982E1A06824781B07344095DE5704BC5D1998569745F2C2390E3002 +D950353CBFA04119B63C6E3F788DE381DDA0CCCCD6F21C8280C959A6168B9774D8639FD0DFA8 +E7473A822A0CDD18EC53EB39A94161A05922973930D939B4DB3AB2CD0B3D94D6357F1FB2427E +E54CA5398F536AED182181F27E58C98E9B6E15F8554F792F28080BC6CD124BC10A6F26E65DA2 +71F6D699BBE101616E4F2615509A636D3A1DDF352C6229339AFBCD08395BD401005F6FE4918F +205E8C6985C1F3C41000BCE8160259E7E046E29182F06C799B39C5F8281D06C0718B59C5820C +1396F7FDED44E02137C88AE7AB137C2EC34E0724E554EF28C6D432330F7281318F3CB6C68A1B +EC7F8F5C0A19063610728A104AC45CDBB925AFEC6E733FBF1B24B396DF750E2C4409FFC559C0 +B14B64118CCB608C2BE50F2C8C76A32D9B0B46E99E7A98DCD586244F031777E3517537C0DD56 +EE203DB558FB4173BCD182E80D5944F9574A3CB14570F9B3A719E63F1272F8AAE8B42CB27CE2 +C33BC76495E6DC636BB4F5945A6B53F36F1910A72176253D539B1FF62EA855B509C168D06482 +CC9E461E1FA37CED1C080D8118569070D7590FF78A008F1F962EE51704B4D20F562A20B90927 +1A73BE15A7E8FBDD9E98D3969BD26B61176442FB96D533F848E7131F548B6B7F5FC8FB1D70D1 +F4B7124092C007618BF6B9E4D828508BB8FBD1A12259776D0BD9C606FF5F8C24EA764E5209FD +EAFB75934F4B204EC810F5E2CA75E9D79E469EFB96826A59C09F3793C39C5C886F702943A72A +53DA2DA987A5CDB455E836E6BA8F6F2AC2615C55C484ECF85D1B1D586BEEFE7DBCC766431E44 +F443F1AD3FF00384E756B995F41F2CC3969AA80D10C1F88026F6974CD95C6681D7C51C02FE1B +B728CDEFBFA97725021C8B17FB9C64967F6ED00315C256383AF9EEDC2F7983734D20E2C9BC3F +9BDB75A87ECEC71A36CFF3FC81991A06645B1C4827282BE313F3B0858402EA29BEDC9314736E +908DC66FFC55C022C0B0B2C5AF2A8B4E2F16CD60A11C6409B2DFEE49A4D2C4CD57610366DD81 +380A2F3DFA78DAE9123B9F7641D92462D371E0DBDB805DECAECC37268FE6E0509E25CB84F78D +4E65CC736C8A9A16526D7BB3683529AC5CAEDA8D674E1E20DA77BD4397E2D0DE62B3BD7B4097 +F09DB20ED2F85BB0F633B5D59DA9E21882DB848885AAC7F23F229A1CE87F2A0CA34E3C531D23 +DB7FF4C2DB7604CE5CCD78D2ADF008A71E553258141B98FDF88F34969251EC6336EE3F68543F +339BF2B42E9AA2E3A533B1D7E0889FAA02578CC80486167ABE5188557BD5BB405CA66C88D6F8 +A5E2274ADFA061710E008733165D0CCA7FF0C19CCC395A25D5BC6112677AA4DC2197E1E81529 +CB85E2AA160D33F8A3D9AAEB6EF2CC0A7699FFB608CA21F1622B2D18B009B133C7FF57CB47E1 +75212B77517EDF23A7D617FD205A68A82C2ED949FFDBC1EB5419A97F3BC4382247D0BB92DDB7 +515341845D4A4B373F7EB1E8CF79748AABA4E70FCE4055F4ACC9491C791A91E258C61CD6933E +B20D86A6AEF92778C0A19C7642ED996107FA919DA178CC3C6852F09E4CA4156B52C36C25100A +2071E0A8B92E8706DBEC740B41FB7FC0F5C15E66B4DC40CCD985D1284FE760203A38FF3053FA +8F0282F4AAF51A195B84CDFDB1B34A7F359A4740A35CF347DAD461F4AC771243E367DAEBEAB2 +05CB315142F069A03B54DEAA94BE56314F6A1CEF9B25054BBABAF4FCCC4F55B710BEE7DC4D63 +A6590FACA3B09AD578799FCAA8F47394ED663F193088D777F4D3EA7F490CFF4E86D0401C2747 +A604455C3A64E25BE9657056DCA68290A0DD9ADC336FF035C4D8A655D7D42190CFC0FF2A0E87 +B750523E7D2C9707850F5A1CFA863E8488D320A06CAC7C5F2B191BC442E488A39F3FA5A0EC6E +9830576BD2E38DEA3DC84C91E1CD4FA0D6E5D0F6BB2912171E745DDFE9726749E663A4E7C859 +D1F3AAF8460751C04ADD2B18B547034840BA4008CD360367DF0AFA67CFD048C585D2188476FB +C066CF64672CE2D98FE21A7D2B7EB492C379CC354A26D11A3B7443321157982138F5140C4F95 +7146EC1F07C4D58EC18346CDC0C69540E15F56FC616DB09EA48EAA9FF1A9DCBF0EB37D45E66C +678815249A871D88DAEFD636ED41873C789EF05CA06FD888D10FC2F5FA2C98CFE020203F0885 +02E0B18C5BB49262712DB919AA561CA79E6C45608AE83785902195C1E2F84556152ABDCE3F7F +584452CAEE3510017FE16F87149E8762E42E7C82DD4088C97080B052F0601ABD63BE030AACFA +FC2948A00507736249B525109E18563F3BA569E79CC2F6D54F7BF20EAEC169A9A5DB9171A525 +9224B6D934978B346C5C601994D5AC51839A72B2C19FB413796A26B54B77626C7B543F4CAF28 +13FEDCF847E5B7E44018CC15D999D4EEFF6B20E8E93EA97B519B367E6A91EFF7C61488041783 +E7DD0E5DE26C9C8060E5B30882F898CDD4E6A02DF00AC63F921289A0D0C052E78C071C18BB4A +6D19FBC3710E79F03A0C76B70BDF33603A906ACC76C9C9652DB4D2684AA02544370AFBDD6EF2 +0012F33C4A0A3FD47A20DC139A9A4919BE2642EB11117D55F81641924B4BB5F57C07FB44853E +98991025633DCC4D2FA85B3C41C8EC0512575CBF0A0058075609C4ED55EF56872EC6FB403A71 +2358B46C286CA9E16E1F5DBC18332E799AF99DEB62F1474EF61E5AB76BF913A0F02BE2D9385C +E234A33F602CEFC23DF4E487AFE459645204377288ED670C38A89F1D037828CEF1372E61E392 +C6970FEEFC17ECBBDBBCDE721BF1E453271E87B937F43D9642FFFF80CC064D9E456CD03E4ED2 +3140D53EF1E22BA2832B0D892567149ACEFA467DCD426B76FDCFF9203322BA344D4B34C9B551 +340DCB53AB08D3CDDA880CEC5F69E06F12B77A0EE9E9CEC5901183F09134C157CCAC53C46101 +48A49D54EA09C0E2FCE8BC0FC9FFC2AE0587C62551B7802D539FB9DF9106BD6517C4637418DB +EFC4859557AEA87B9E5475FBABD838261358BB62BBF3976782EE4BA9DBEF51891BE3C828601F +362ABDC85DA8D0207D02CF86D16D9D0A62F6B213381185B9D2C1BF728944050FDD8DC3042AE8 +E1666844DEDA965900026B0F051F61AA77C1D14B4C6BBEA33DEC3B615A1BAA867A694E6DD5EA +B45B12670E71206534FD53008793259254CC43E91920F60067243DCE3C0F5895981930681D6C +82CE2815F18D88F784D7ABF8532E983EF5805F8C00129E79427FCC5C3E6834A92856CAA7A38A +D9C3F0677618D5F4A75E28BF51F5FD7D1BE2EE11B1ADDAA8CBCF61BE135F4E10151174B47D7A +0EF25E73BF9EBAD4C2DF460B68F10C9EE5F24C4B21E05D969595EE684815FA0B093BBC4B3D0B +CF6FB8DB65C23AF671EF40092B473A46C9593B8F7CF90524FC6E162AA72955B83B7AEF92D1A9 +3863634FD39C7FD630F1E716A873C3D1893DBBCF994F4355EE168489C5577D491CA8AD775579 +AB7B0270A4C6CA921C956A58D094ED87E0C9E302291A14057306F9B02A809681E406D7213A4C +AB1799E0632FBA51E4E999513F414F3DBA7421D1470D2044A793C23DC4AA2A8A48A397CB705D +16D5E754873F97219A1342DE2BFB37489C03AF160CA52C6D7F712A528D4114364043F9BA3599 +0D3AC576B3EB080057A0F4CF873177A9C9634F4D8720A598674D79169A3AC59BFDD88597A8B5 +44B5E29F9EBD59B9B207BCEABB1FAFC220BC7735F7BB708C3F81943E314C764B39C36E0D62EB +517985526D94337A4BC86E9076FB1166E586FE1B73EF65FB50871356DC5C8AC55F66E6E31CBE +493EBAD38F2AD40759295C6EE0EA3B9E448765780E4BCC09E289DB55C7DA57B0CE00E9F3AAF1 +13A61251380460CEC9D467606E45BC24E107BB3829EE5B14DCBD0142FFEDA4439F8F11853B15 +83302CF4936C9C7A74C6E225D0EC00562E7648EE82D3138C11813AA1F2E1A79768A46FFAD6DA +41413E0DCBFA2B96337982EDB7B819E4DAB522703A4CF7B19544F3EB6BE36D9F9CEB04FEF067 +58732D04F9CCC18C5249DE395CDE0F74921A1E7210C431B803D430112FD28D76290584814CC3 +8493E616BD0EA7ADB80058C40E6C543A1CE286C81B38561D792A73E16A6FDAE8824BBA8D524A +5DEBF783E8D3A4DA163C1B3DA3DE500FE63B5CBE002FB72A859FB4A216E82993286D9C1B034F +6A53D4B68BC0965EAFE0D034093A50C625E67D7DD368C0F333A5398C8830026F5CDF0BE95DA8 +AAE4A6F8B01666C00176FE2C4B7ECC796F7B95C3DB9D7DFCD587FAE6C2248474E39B3F22C2CB +2D4BDE666D7411B588D89E127059A1C62934E364FA6D37131CD60340A408671553FACF46ACBC +38EB16B8DBDC4428BDB6A36AD54847110D5537DE1D77F8F9C1340FE495A33E761209E7CC11AC +8DE75A425834F521A7892302698C89B39A33D1E191D3C119CD473DB1C20DD317349D628DD027 +8071BD539222FC0B830FFE4BBDFA89E821668A2068A9DDE5D325CC4642AD2C4D26C860310D59 +BEEEFF3E6FF932C667059E549437922E59B8DFCF96D604373D4B830A815F79EEF626A1265887 +380BF0C9FA04AB66852E5B2325B3EC26F8CC5596FB7976EADBE5EDF1EF501681265E2D6CD874 +DF93F5B4B2A163B45B9B9139B5510F84D12B3C21296F6BD22C906C5ADECC332D76667B0861C5 +D97A0CC4E913B7E84B7E9FF6D81A1797EA64F633DCB14EE9679F55FAE3227F7D8294C2BA6B52 +A9A2A2831316B867A999422825E5AD19D090256AEBF70D2A4E9CFBF7E13EE500835D79D53323 +FE664B6A4E97345DBDD0260837D0EC6D51FFAD94F2EEC151EB6E950F052229900ECD8D7E3126 +E294B694048BB7FE50DA290AC7172169A229BAB34BD4918BA42D78335A23384C455C5525A187 +92C2726792AA20FF03198F9F51C2F417DC6840BA4D96283AD096536CE8B76E60A6038AACFB65 +ABC71BB52E16351FF5EEC2E206C800ABDD2BF1E5BC7ECAF72A0D2146951138D648239138703F +7F095EABBDBADC54185E3F283C030132076CD8BAAE43E8A69707BE961E010286219D0A144D53 +8DB90AC4DB19E8955231CA7737B4B0B9B3192313254D9322FE5F2F660D0A7B83828E7939AB93 +83F3CF7583C7CD0A97F3B50B28FD9365A3C78592C42666794275A740486C455380CCABCE446D +19C939D6D654270BFCBA2FF5C2BA30937A6D78FC102738ED179CE811DC482477706271E8F1E1 +A3F4CBCC2F4B569CCA75EFFB4098AD0F01476A54D25D00B3B0D44A37CC5F75CD8FEC86A44C2A +EA620DE00A24D3BE5D9E6579A5B1F4C1E4CCD0FF151908E4FCFA58117EDE3D2B6D9D746826EA +1471ACAC284AD5C74AB91C349C6B5B3D2D25BF538D71366614664D073673BFE51A62492F2D6D +5F591653CEED0C2F957EE2BAF8EB479DC5536B7E13D52480EDA66A90ECA55FBBDC36653902BA +DBC6CF8E6964D8B4282FBCC8D45D60C6D4E0F1A1A1C0C44FECB1675C2DFED36831EBE9D734A3 +0A9E7C3C8E218C3FBDBFFC6B9E0220D477D18D8FE8ADC38E502C29D14CA1C9E5B227920B131E +06D4AABDE5017E8828D331C1603F9210956A342A65448903C1AEB2DECA6FABE139A4D99D11F7 +1B2D0D821B4663E5D7B538F91ABCA16D73BEA8CD5127284DB52B5E0CFC4EF0693D5D3367AF91 +27D3514524A844BC980795DCBCEAAA8AAB94727D09D3E3BC36AC648E6F7FED3E5FB455ACBFC5 +40651332E70048B960F577CBD12076278C4B0B7F33751A1162CE4D06D064AF3F186912C5FBBA +65BDF101D88083B3F7328F2351E982EC2D9C871C8C807DB664AE828E723A9C65A2870FC809AA +38DF49200B1EC3BC77DEE16B61AADF0D6A066DD062E683951E93A2ECAE4719C1C625F6FB20CE +2C3E5FB56BC37891866DED0B2BE4C34AB6D7B3E4CCC502BAA326AE00EBAD830AB13DEAF7F651 +0B58765F663577CDE9629C0B16424C4FB9D59B0CDA5C8EE03F2BAA79B5BE50BB4E877257974B +235942C4A437BC86055A26832760804FFFC6C2E9687975ADF6C5D2DA007510DDF2B67B2FEC07 +1AC612C8990E5B317A7C6D9FDA80CF4176D0B7E2F1FCA673AFE816383991B37C191872448ABF +EC251D4F79631EEE96D3712B6B10C2ADC3B7013F93A4F332F48840963CBD3C4C98BC835E2D81 +77FB510631D72D8D7B0114C389F8F3A2AD34F9B341F4164323E4391C612CF89A281F5908E638 +589DB11890EE688D0893358F2C938319E2314B120FCDB0805171EC10DD31B1E1B290F07A9239 +3E8FA57BDF449BA8EAC96F55129C59438915FCD9F238077DACAC432AC53ED2A03213E8ECDE5B +68F985EBF72265B80DD0770C26BA637E5AB0448EC2234FE659FA7D60D6CC1C9E4141BDAD8A37 +D5E627BB13A7D969CD63AC1CC6AE2A32EC2C0EC8FAFC0F71433B47B5EAF9862D2B369CF9179A +8504230E3B837D00F74E54E7325DB2E1A366910168F00AF9BB8F79EE16BCF5F9476C15BC8231 +82F844D461A4981815D59E2A3577DB3E4CC0B923EFB50EB098AA15927DA7D544758E7FA3791B +4DE2FCC8AC709A15E98C225A2A356E8217D50102A8730440BEAD133A23C6E488DA21FFA6E7F1 +6D3025C3780E4E35108685F84635CC877A8895962BD3CC228303D7F5481AB7802A2D3D58C90D +C6F1E8D349ADF49215A8CA4638B1E9B8EA057F982A0B2DF4B3FE3638BB617960E06F172B6E51 +F2ABB2DF0EC6687399DF3F3D0FB26B0D2D13B9FCA14E05B0A84E6A01DE3F20E2C9E395D5436F +C294D1DB4E45A1203E5E33411E42B8664F3E87C96EE46A1483CB2D03321074FCF0CA5FD383AE +EB1E50B88F951635FF86A6088A0BEFEFD866BEAC9B863BA95F7FDF7AFDDBF9F047B4CC5D17CB +F0E1965CB230D9FAC4D4AC392EE8175D6B865F3A1E8CEF2DBACF2723EDBBA6A4BC6B55EA8331 +182B9EB8AE90C3AFCE452BA60C7FC353D7142D6266EBBC2C69C2BFD032753FE151E6B5C29B91 +95EB737F5CF33933CBD2DB8E96B11DA807E40BAD957351690B33CD47419AA81E246C29231376 +CF055AA710E884E40AFFE73E6810FA8D99194AA03711C0D934B59AF4410A10EB7E5D4F7EE56C +A1992DCB9D512C061D1BF72859C76769155441EF7B4779BF57212C83FD64A5A98BFD2CD26B7C +F1D2FD65627FC7E1900B231D4FF0F1B09AEC87E1207DFD73A322719566EC771957C439B55A7F +4ED202E80BDDBB8FB65E21A978C487DDEC50A47FFD2EFB1B4083B7A009C688A557C4B6195B1E +E4E2739EE39512021D49911F9157704646AC63B7566473581144F84B9F4F3D93FA35122FB65D +9DB6D813AD1A8DDA0B4F1ABA62C26A1C5F81769326DE954C56B5DFBE2CFE61C39933D36B26AB +A5311673A3BFD0830F899CD382E7579A84799B3EB35735734F3DAA96127727ABB92CC561C84C +414CA451F9474781305C7BADCDC551899C59839283BCF193D35D3927ED3C1B0633092BCFC970 +EE8BFC484A74695152711BFD948CD5274E9C762EFCF47A9C61C604DA1B5AB9D2FF8379CA37FD +0F2246D6520808B89BA75466127ABA6B0B1278AF3711FE15B2D8D8D486E45DD76579F5858962 +6E5BC4FE661C1C6C705756C906406A9920BBF5DC5A3D0135CC1E6552371F72AEFCAB43B23190 +7BE893C0022D00CAF23C35764F70F88AC939BF00FA8A60D5E8CD03AEF1CAE04A51DCF7A064CB +428C84853780397D65BE31257B7C9D056B50F18E2A26017B495AE3AC8C45CA68117D6D49FFF1 +5C05303A67C9A3A5C716E4A0124AF43C54828D5628CFDBE9097A28D5094BDAE8682903591E39 +A6EE155F6459F756377ADA3E191C459D601CD2F87E29754ECD5D8B15C6A3E00C44A9BCB7F069 +780ADFC8E7754407238F64E1E35A9BA3E5DA7473D2C2B02333904052C7D8502433AB06A47368 +73713A80653F3979DE36353B846BE67D33BFAAA6979A81224D78F35E54BF9863B27D870F401E +1E603CF9819748F6FD1ADA901309409EA09F7DFF8F317770A3D95102247B2A694A90D68713FC +FE76A5508613F635617B866BC851AE68237EE37AAEED94C62376FB25C4BE712CE18DFE0BDAEB +70F8D06BCAA3CD8FDBDE0D84BE2B75B1C2AAC4F64D1504DFFD787DAFFC99F7114C77B9EFEC86 +C9B7C1B0A832BF357413132456167377145FB796F13D6A36875A946BB62A7BD558E4E8129785 +B96176EC60939E813AE932D956026EFB6EB11CFEA1E3227688180FBC6E240B46B28563D90576 +BA3468F4EC6A11B4D0987CB80FB4A4AD69C2F92E5287B33D35341413E568CF5C3330EF4BBA99 +9F46C0FCE4655B9668D965AFD0BB130BAC20E721E0DB58AE80346AD441182CA3253CFAB208F3 +A0F60B07A710A19D07926C8B2591EDA2F9A497AF6C2C972E24D5D18C9C67DE9AA02879402C36 +ADFBAB58DED298D269503538762405B986F08607D295269B9E31D69ADE289F584BEC73F9D3F3 +29475BADC0D15D6F4361FBFCC2FD36A15A5891A9E01A0DA1B746337DBE687E023507490035E0 +8599C7ABE0A25FA9BF917B7AF8A526B6BD1C16455D2EB130C9AF1568877242AD753CCFCB72DC +E26360F8C57B3EF9DC597FFAF3EB74C65AE1C0CF11ED959817A52C3879E1C1BCE551523364B0 +91FB83FFD847DD8A81DF3A1E47695431001F8F7BF796CE8C78B1F99A70C5AD7EF5A8D4A65D70 +399524478B692DAF02FDE6A4F757C903CA3B5F52837065E8BA6102F49E7BDB5547F57EFEFCB6 +B7494BD00E0D1F4742710ACA8C670BCE6B770DDFA5A215C8E83908D4FDBEA869A931DA1555DE +D5BB3618030B52D524DD3F7F6ACECEFFB3798332979734A62C7D93050369F89ED9571F635243 +6974B9E1B5F3AF0015A5077146D56CA7C3D8763126D9F1B3DBBBCD754E2F2FCFF856FA5F4239 +C0907FF101DD3AD9C92F49B21931E66033CD7531220B132156799652E724CBF2634AD362AD2F +11F8607DE67BCCAB4AC97906A53FDE9D803063EF1B81D65A6B7A0E1859E5066FC1DC3AB23B07 +86E14A894496A7460827857D42A384ACA92D1570D997CCED80F4A0868195D5654DE3BD6B5D01 +9A6B1A154C1643C6DC4A5289A9F05B3E92F793F5541BB0FD22465497E5E0A25EC9F425648936 +8109C9C80A1D0E1CECE2B0B3A1CCADA6A5439333B5E83C95B48F17B8DD037D9C0DC072703A0D +A3F4D7B99DF1A09F7BE26CAEDB884B136518B84B24A9855F559944403921BDF1274D4F861E6F +F32824B9E3D41FAA5D19294AD7AF40AF9BFC51729A8B59F652B995822EB223123CAC2C404D35 +40C6DFE7052E2FADA3726D530E56B7039D4A21A8B1E1A7753CE11520D23E83E082659667D0B2 +05227F92BC29E8FB63261FC5B54659F8E83CBB7BCCBCC2A839AF2AC3E319012EA10A0D030C72 +9B57C883B66BA7A0C8AD810CD65926635C12F9A475D2DB6971FF49D095B6B3F1B3F59F4E7ADE +A60491B30E48308D9EFE57A2389A5C16EB6594815E88EBA0B6DA9937EC38E489290A47938C78 +D8A8C43A5F27056EAED1243A92C21FABBB696B98C662F932D9ACE5DB8F6C7FEE5BB9FCE8BA61 +5011B48120C92698942027FC72CA2A67073FAB4DC645DBEA02BC9F6967DCDAF196F32B6CDF2D +CE8E2E6310AF2C9EEAAAF40441ADE1140CD8A856E2A3AA8FE93A6ACE6A856B4166E140513D64 +F68836ACA42DAC43F6FBCB4564946384C209C2FC2060F71B0C1CE39C9EE7790B90F37A099520 +CCFA024EC129E0744DCB2326704563181DF55A012BBD7C0ED24D98EDD77FD345CFD258FFB946 +5A27C53F34A811EE2CE430348FC021047973AF72BDFC9EEB8E9FCC78FA93448510BD76929838 +CE2D8E1A8AAF66683A950355D0A83DBCF01CF14FCC5F34E56E7A38CBD5E960AF1AB4C49EA0E5 +EEC3AD1D43EC73976E56C1CB367408FB5F8131CDB128718CDEB71D76BE0864D65BBFE56E3941 +152C4B54354876A08E76DEE7CB67C20F835350B5DD789687575270B2312B61F5FE78113A8CA2 +5961D24EFFA2EF382AFCE63C221A07BEFE29AFCF392D66621CEAE017A0A8540266D94308ED5B +98725305EFD7F8CFE71D94F0F773B7D545F7F862927636A60E886727DA52ED80AD420730391A +B199A7A0B8CF09D7893458F11E176D29AB3C1BE51F19A462FAB75F07D6A754614B685D616906 +C92B29ABEADAF1E36EBDA0E482107367A3AECDA3C6652C51B05BBCCD81E9B68CF261B1369F61 +AF72F0E1C18EA2169C4215B43477FDBF02598837C4C5CABA066186A615ABC5C37B875885BFB7 +944BE1AD5D870C827504F6A166792C523C0E68BED1FD43008003B0616DFBA770D3FFA2F1D9C6 +2A7EF37FCCFAC70031C8584062BEA2FD61DCD242F61A533698803D6F5FDBD3D9EF778E39D720 +B80D21B1D1BC463102D52920E525B18BFED57E95A23665B23B600631DD7452736B3A1C354817 +14BE7CD0FBADEE5F0C8B92238A54D1C02DEE2EAB0325565449AE0B3EB6A3517C00498D714C58 +2F45B41B4FC57013A3095A47C6C1DCC88D3898488DC945C032F317118A01EE24BB1DACE57FF6 +9F406977C532EFAB725B3B14D787ABEC205AFA4C7DD181A47851B18C37DFBF8AEE4D5EEC9669 +C421FD10FE8247B036CA37C566275BAC5BD6771BD76FB989E9FBF87530521EEE9FEA785EC533 +97D818D8AB1AC320AC254CA81A6D2FBE223590408F020AE09A32B5B4D0B69106492444118C26 +3F76190F8E1C491722A75970BC80FD799A7A626707DAD3E24F88DE68D51A56EACF0C5C37FC62 +227FD13706A0CE1845702C793BED92666632F18CDFF9A09639B63D9615ADE0BF09A319FAEBDE +4ED66D774559EB330BC05A63D18A3F8AEEA6DA25C4AB575864C0D875005385498AEDFC4D6024 +F0D96E3FD34C07A77DB90A9507AE33705E8560D8F58D1CEC325CFDD03A11AABD9749B61D8293 +833C41723463A87C3225B5866F42FDE371DA214ADCA186D9F159A58937AB904E73F6780AD29A +3041F456B26CA8D9AAD38FE751276367421B6CC89803B30795C7952162EE1FAC94D9952E3406 +F5A67A5013F9CE089592D8E88180D6FF8AA04B4A72AB5FE07937EB37F1009D675B821932CC43 +C99ACD8CCA478CCD197980B948D7B801FFCF508E9898E301A4A10783EF1CF8C407D25FE63AD6 +F600187FA380240564DD7287E059362CE3F29AAB6E997FE43E7AEA4FEEC61497896A5BD84738 +A8683F25ED5D194380728E5FF6510F7E9EE88E864B4A6CF2C5FBEC7717C71C95CC2D69B7CF7C +7D36B466323117BFA6122027A86FC2689618165D238C58B035DFC83D168AB3360C0C20B4EFD9 +C52DCBC0278D296F29582DDA4CA0ACBDDE6713E9E898FB280B6BEDD61107A0B7E65285C117A5 +F08C8757078138994158586D3239BD6242AB4DF3715496DCA928F9C4C091BCEA947FBF49089A +019E7EB0EB8D37E0300766E39C54F69150BFDC1BBBD5FE29886BF62500771387E4D38306FBA6 +C5C0D344EE012E54B1DABBA3613612AAAF1CD1769A4A2878EA3552A30810A7171EFC94D0E081 +038A81C1DBB13F53608F4BFDDC767866C879E7BEBFD61564D22FDF380C81E8A193E8CCC568D3 +D2F7310397504150983FEAF625BB0F2AC246BB5268817F7A370670F6A5ABC35F948AB7DBBC8B +D14562DBEAC9919A0D9788102660521BE5C427E87EF217CDDD2053013DF1D19AF3D929D1CBD7 +B7677D992DF8BE7BB0BDE7E07BDDC81CDE78D48D9A6CF8B0A82070F3456D15A8E5CD36CE1FDC +5F79D1B3A93E5500C4285FB4F18ACD571048A5B0F6FF3E478A9E53734220B92CCC20A5AA2781 +F0F6A1953E278D3FACAD7C254C45EC865E17E17FBD6028D0078E1F067EF8020926A936D32729 +D399F25B9192B26BE99CCC2822461F1185C917E9D337F5BA574816D355A34D29FA6510BC2661 +0105A0F189FC493B80AB328D5CE80E2AEE5AB6F9E21734138B41ECEFA53F6F3A64673D6DCD6C +2C9BFF2D3AF599C801F445F51B415B0D977A9D2FC85C0D5921375F7BE3DCA28A1413E53EF4D9 +1A8DCC34D7D07B47AA4CBB13A2C06145DD894D6045E33EA53D47030AACE849A6A926E988C6CC +F4FC39E0E8485FE62671C76E7439835BE74F412D885F3CFAD49B6310D1135EFFFED086232F7D +FE1996D86FA3149525C4AF05D5FDB6C0B7DABA9BB0B8B96E959C02ECA3C5C0783C6CB98C488A +228B8D4193796EA2A78C455C560DD52DE0B9A63976E464D79E72F0630A22A79763B0A984BECE +330D2AAB4C577596E7279DA3DD52D0085D19ABD720C25A4FE6A4DC3B0830999D93B184D3DD3F +D01DCD21A0D693ED0A223F027E866B609FF5D8908FA1C1BE97B9CD8D8756EC8F50BEBE8FD336 +534169C8E86D69C37CDC6A809A6C7AA1B56D729EE41F62D2EDA89ED63CE8E38A7420783CAC1C +E1219674DEA065DF3D2E4344ECF040DA97274351331547D6138288627389B345CC06DBE98FE9 +599DAA4546029347D4E0C2A2208F113F8DA606C97A8C5201B5E17AD87399D7A399B9881576C2 +F1067F43B7C89B6C2E1A98EE287BD2E984F3E6DE4060D42D04B2A172F29FB55AB6CC1C0F9E7D +26322F011A232413BF54CB385FAD49563BEF66E5DA80E7E9C9DCAFF536B8934895EB42E7B660 +C50F6676EE846982BF564BEDC6C593949B0846A91D8680DE558F6E29BB90F49FC97484D5313C +DE8B93AB884372CA95D56F04A9A0EF849BB02EAD6FF6576A39EF41DDF2F935A06D7A886CAAC1 +BFEA230D751F8DCB5178F5FC201DF2975DC9CF26D5621B3CA253DA2302BF8DDB23C7A6DEB2B2 +28CDF3D1C569F63460462AA9106A28610C4BF310F29BA8E1B3FEAB11586AB14E281DD4A494E6 +68BE172CA2E60DD4B792FC9E0E82A8B9C70506E9BC884F1E2DB97BC1FC3BE12B1D9F4104D607 +09AEB38507BF713194BA9E84AF5DDE1A1BD801EFAB50C2CD108BB4D09B2B4DC97348A816D827 +13BD20E2C4C6B3984178E75E9228EF20E197BC0F67B7FC2AE7A8FFC62F0967180AFACB040593 +619EB139F45712773EBEDCAD9E01B85857C28809E669D2AA8CA0DD3BDB93B5E29634B912A94F +3CF5BAE0A50419F52648208833EF8D7B47E68A3CFF32F7E501FCCD0203C3A3C784E1AC5D6FC9 +67DC7C9263CFE369A71AA6A29F96F31B3E52143AE73BB96F708981CD1F6F9A86F82A97000406 +E1DC846ACDB79AFB7C8753EF77479AA69661E2D2D3298FA77B8FDDAE6AE54C12CE887098A893 +AF354450ABF93B41AD35503A39701B7248F0F097AC33A3761DE935E9D3F10E8FFFF7610ED731 +354C09144BC05BF03C0E79B7D979FE6BF18712D86EF174548FC23E0A54E24A983ED36FFE385A +29283A51160A6DAC0B3AFB054524AA0F257598C8715C4C5B3295DFA285843B1BB42FA5F7BA2A +527AE74CB6F095D866F02F1BBBA218522B06B95E82B434A3A5C7878525BC6911E4AA07A969CD +CFAC5FC1C4B98C898EA65AAE267BCD53E1EE1334B545B182E975E388F26071982BDD8081D5B5 +1D23F881276064F6B5D2CE5F14FB6C0639283F42E7EFB3AB17E6187A86959BC9337F792A1F91 +1364CBCC425A4D4E89DF74C018C5388064B5C84542DCADA4972D31FB988DA828878F8D078149 +1CD349C4C7C0EC2D25AA1A19165DBB2D2A1047F78F5658073FCBBCE0D27F7DC4E6394222F9E1 +53C4FCD0627BB95F0C79FAB5FFA9B6211FE927BEB94F4895BB03767C748F5D498E6A83342F7C +2EA1DED7A5E133BF90348E1F4D06972CBE2086D7F0B78FE53282B0E59A3B88764ADEB638DB46 +DCCBAEEBC190FF7BFAB2D27EC5DCA661A29BBD1B01C9CB16EA3D7910EFD0BFFC34A512A8BFEA +6402BEC8602B53DB206ABADB4CD7C78C1198D6739515759C6E9559CB9F54D2D0B044CB546057 +81C490EACF951A7592FCE1BDFFDD568BD498E623DC1B05CC85C42A8C65B8E82D0F7C0CA2E82F +ABE257EBF0E783274CC113D1B00B187B0A86074752E0D7DA0D153BBE8718806D88A6D414C169 +5A9CBFB9CBF54FDAC286E58B763D4893B23466A62301D8CCEF9CDDF5650F47BB3F7260D77BD2 +8108AB8D805014C91EA948C9E22CF040759C65C098F46B6F750C146AF1B621210C0C35AEF99E +580588BDF24671443CD63C4AB126F7705DB2D55825C67E5C9F771F4DF75FF333267165FF6342 +0D747C0349E47C1520EE8CBAE9DD691A96C40E332E5FCF3EF072F552E76A8BC30D6CBA315DE0 +8F1DCCDCE8EBDF6058BE7F666D1FD482694D4B139800C8D7F978EBF3979D7DA72FDF28AD4C5E +4D15434F315688A59B5767818AD37A97A34825612501C3EBE5B87ECADF19CADE7D1D9A1507B4 +7F8BF2414C941241F9D7571E0CA3EE38E2CB6EEB25410DE8D7CA11312DBB5C0B71B4A26F7C08 +0717E4E5CD7544A1BD2618F470EDD331768363ABE380621133D181C2F672635E1CFFCA572D73 +94495717149138E1559BE5FAFF38A517C12AEF06FD616013A6D87127BBCF2F139D969A825943 +774B1239C93793C48974EFC2AD24E685D5CD353491AB6687C76E84AABD7E543D4AAFBE1FC761 +F0357A7DBFEAC7099C7E38AA2B6BB7B15C22E6B4395A51C37CF8C2AD8F966FC27EC91B189F7E +B25E1D24F02E28FEE34083570CE11746755ECEB6AB39FD2E9A707662A3D86D0F8BCC49FC8309 +A3CB305917BFCF323DBB8AD8100E63100E3B15B4495EE6E151BBAE007E86B45B9F7407172ED5 +080675D9D7BAB722054E7C7AFE87207BDB4046B90393AEB3EDFDEC4F868166A8FBE14CAB0C11 +F7E07A5FE440A869C018D40E314E0E5FDCD875DABD2A03CD6E456A67E410E47D7F90E0A34FFF +59C0B9B54D8D658EC522B27B9A66BDA5D4198ABFE47523B7922DBEE999770F00446AAE26113D +33D9630E12B740BE02904A33070E60DD2FC9E3278218012CF9C4B3110FE215DFA3AC2BB0B570 +5E68F4764BBCCCF1AFD71243FF790499CA525967C15110FB431188A4EFAD771C3355C128CED2 +68514E524A3734B5E1479EE5230F72456D96E977E33951C9B876CB60A9B90E674E0240E63DA1 +EA7D8667DD19F1C84BA8DB14BDA736372B3FE99B0F1D8311CA191F21AEF335D2CE95CFB40D34 +AACA0E288DFE5133AA0D76821A32DF357397B7D6B9109BC119A3B004185BFBFB00B712A4CF71 +A8579549ED48FA9E0853387BD791A93F077D3BC8760F3B1612F8BCF20968F3D7FA9FABA9CD56 +9369443B501BB6D6229FEED9BC62B9442CF87FCA9016BA8B656734E70E8CBD06FF8AAB52626B +4CB4516D16E82828C7D530C42C411ACD4EE5B6F166FFFFCD36F34B4EBEF39E74BD383BADCA17 +9F9F9DE058E67C2907030B4D7C79E384E12D1B14F91A89A16F745D95A517B1EFF4B56F2CA043 +903D31F1B9DBAE449DC2507FB8232DEBD64356E2CB8A675AEBEBDDFD4711586298257AB046FE +50BDD6A58AC4A12D4F2B583E6053C26B9993ABC7932EFA3B687C9B7B7E0000E437A0E0FDB052 +A6B6EC0642A7D5BB5797A8B18493E4FF2FFCAF6A3868B310E165D21F513AF70B81647A2E7460 +9CBD650865299426537F19F2D38AF81BA410E3E09D62A976D9561F77B0374E488D676745AE5D +C5EFFD42B0F23FBC52806C6DCC54A2837E1081C32B0D80D3D495BBAE6FD95A248BE0FA858C45 +9935684D0EC5001D9A1CA84F69E65403DE0F259CD035287F3801737AF33BC71C87D9B735EABE +9E5E28AED522819F5030B1D3B5AA7FFA3E670626FBBD49A106C1D402D85341FEBD050AF159AD +14EEB42F95E84E50E2F70A9489FFF87E3EAF6A5CA35B64509824D4F99BF0CEB3BE7E26B7FFC5 +A16E21AA249C7E7AB1D63393DB4A3A1206BDC026F879BFBDB4BB9FF4B7B69C36EC2DC6ADCE3A +E1440D5DC3BB9189004115A30CB104D07ED992D320523CE9EA2206CAF08262F2277A4A14D8FD +EA202CEC45293BC7026BF393B7E603745B526280E28C40931BE24D5B09471C83FC76C6B9AE41 +903685D36AF67D6F0C9B813D176A4377E3EF8A29F83E0B457B20BD24418A6231965FFC0D5094 +18FFBE21FDE498957CC797FB56C0BE6CC18513CA07695EE9B6EA6B583ADF10E15FDE42B99032 +283934F29B41B8C784B23065513C1D0A56538B2BFDD542F14DC9532DC0FBD4780D9AB528C39F +006290B9A8CCA5E4077D48EC7D1B8DE983766A500394B5BF5F07BE2B13BF3D7C690A82A298CD +8107D08039EF0444D00001E2D3FB2A97C7BDCBDAB01AA94B44FFC432D154876306438124C9EA +B28A8DEB4547F69D7C2B3F6AE498261707CBE4A279177819F8BE6FD3825FFA8D98F754B6965D +2708C343888B12C2B28A050B50186F81191944EE04CE31AB323AC4F2F359E98873B36E7BB5F0 +EBF31FB5249E1A6325C14EAAB8D025D8CED3197F6884BE5B11753776F41BB016736AA8C8E4A3 +0127774A730EB2ADE964C5186711A3438EDA0F92BAF07E3013F2C611E5D7D2C7CA4D21BE2235 +C51FEC1FD8B17BECC30A82522C6BCDB7CD6FF775CCF852C9EDAFB17EDA2552D45B7D617C24AC +2EB7DB101206D0A2C1877FE94A9CC450EB76A6754CAA9C640E8AF1BA699489A9C20A08FD2BCD +BFACF0F3465BFA656C08344C437F555693D7B631A684DF44D642AA05C4A8ECA4DC594B7F18C7 +BB02385B46682A77AE2D9E7833CBF18846A20FDCBE27CB86AB951815AAA93067E1B1FD0A71F3 +34006BC3799CABBC1D707A2213A17ED7B8FC38C0FD22F3E96A81CB84CEB38E3E8B63DF0DAD18 +C354A9DED725F3ADAFBC1BB254F984932F4F47F5D25D1D788B72AAB104AEC40EBE1DA21A5057 +2EDDB89641FFF135888DC9E346440F5290A6AC9A1E233FF3A5158E5D6B6821E8ECDE57FB0FA4 +18C6D1EDA2DE34D314F509203D3BB340D587C837C64A9B429B238BB215258828D9FCB797F3A0 +23A70D89E2D273B3BB04A75A87E287BE5E04A008F89B29FA765A65A716C9DF7BFA7B20B73251 +8E990A64E720DA9D155CA8A49259765071382AB098DCBFBEB3D7C73DF77CB9DEC2AFEA35BA77 +D737B9F49AC9A96BADA9ED6465C86C4DC181F18C2A0B67E8BB219581E627CBDC03E12C16EF9B +44488D58DBD6987F0F4E1991BA47C25AC3DC75E93AE7CB58D3B5A9F083DDBA3EDEB033576E4C +FE3231F3CFDDB3363BBF77A4288415447C7C3E9B30A618CBA512AE6CCEA7281D75F039FED12D +CF940BFF5C13DA6C7F5D60A1F98ADF606693D58E2252390F6C2DCC368C712702321741B16641 +75875E2DF85D066B0F25BF64A138C429B22078A7877E82237E70DBA963975C5DE8927BDBBF51 +B3604841595DF8A0B261510F174820C40C3E4392FE60FB1361514398B5C4F5430A4A4DB823C2 +4D9A65C0EEFBA1A9FA0C448DDA1DDE2FE8D3E4902CBB38AF4DFA959C66406DCEBAF23C327D4D +DA5705820ABAA2F66832497058543A75CAC5C103E713BBAD60A80F427D928295CBCBC3EFD4CD +AE05C3D34A3D435EE741EBF30495DD4917E46D46BEAF19213628C4F680D4592D9C66CBC7C45E +EED59017ECA5DBDA6D250ED4CA67CA89C1FCE1E2242634C2A21375518851DB79F164CB2395C7 +26639B845C0453C3CF7557DCEAAAF52E33ED390F944C3BB47DC323733EE4FA6CE2E0CAADABCD +EEBEA258CF938C88B3C389DB2F7403CD19A5B8CB71218E749E70BE3C7492139AE3F8B9840FEA +19CD36CFB0020B11D166DD35F137688C89A1E61C62EB0FF452689F2881863037D1A60427F445 +A0775935D2DF7D8C001756AE9EFFA241D1D2B4D9C62BB685B4589173426D9BE03D2B03C30DAD +CEEFE8D2E90E37E235659E135A97E005C687606EFA555B036AD5FD81B2EF2A4D68EC8161E0D4 +34885529C14C4174DEAE63499E55975F8425037C0CC91693EBBC5C82D0041B1D47AEB433828B +6ABA9ACFAFF096D2A1452885537FA9B9FE673D05A31566838C4D7459D650C97E000CA7FAACBE +1E8ED1EC718DEB823E8E1BA5B8BB3F6165335C2E866DFA99A110941BBC3F9C1EC194615CDBF5 +A921BF572DA124D2BD61A2B6D974F01825BD76085C4C2A33EF924DDEC706A9FBF40DC572C392 +E961B46DCC117E04537FF71FA9B630AF6CF92EB8613246279BE0B9A2A21110D89ADE255AE222 +17626AEF8A48B9700C1D99D96447B713694AD224C9B205CB2AE65359B29A14F180897C465CA8 +DD3FCE407E86BC5EAB37D24741C4CF66B4C0EB7F34DCDAFA9882C29B79EF34BA6CB051145516 +35D0456D58D8C98ABA0F92A1CF23B3E3CEA1562026B2DCFF6836956ACDDE21CE86926F8E0C2E +1D1AB3AE74417AEA5B819EB52114CC8C122F904B142A5CFF1A24A6CB4C0B16CA5D137C4B7AC6 +0580CF538A575FA6E503FA63C55E02E90F309A7BBEDF76AD31BC6A1264A8EA9FEC9C8F7B2D8C +B85E5441E3A478F0933EB1BE595C302B8D234562E83058A73CC6F3580BCC99E50A8DEF11E5B2 +EA3C2EE3C5690A42C1119C913D3612C9CFAB9D17880C3B271B5FAB5A649D86D597D08413C06E +D9848A2744F28661C8BEE43F0B0F2C4D8795F80EE1EC7057F7F8DC5C40A81786AD402F67B19B +73B98B60C03E5F6BA38A2CA38B490BAFC011522D79D081E66EC40DC61D634C80D831D046290F +91DAAB10D06A46F4F8AD5DA253D52FED9A818B19BCF0A766A8E221D75FDBEDB380BABD77A360 +5751FF0DBA7C471CBCA0DFCE46B237CFCD660C5A106F2061ACEA3B7A181BEEC37AF3FFDDD03A +C673185C89BF3E8853A5A0E3CFDE8811D313A5BFFDE5BF7C2506AB09BC1F448796BEDF58D7F6 +58FA041C307348E2E8EAA767320D7BE3C17078109626B0F6200C740CB7BA3B5E651148551455 +C8315220A7EF403A653E57DC85D73D6D38C32E9EC9BB5DF0BB3691093A74AA29C1DCA533B5F6 +CEAD88713B289E127C065E9617737A2C2204E6ECE1F05F291390AE8E8AC43978C53CB8D0402F +840924BFBE624D1DEEFEED3C7AB8AC9C9422069FAC57343F50B2966B3BAA579467D74C9E7B61 +0032B1E3B9904164A94897F6B67DEC93F229E74B8303412F6482DE19B9A2AC6994EA84CD2EC2 +7F869616F57D37C88A6D57FF62F3696AE7C9763BB8543B80BDE64E9ED1BABA93DB1F5C85249D +78C4C0AA1BE6DEF55367FD49791F83B3C90A080C45C683FD744C5F61136E3FECEF0D0DCD6D53 +6C7E4E5C940496385952E5521A2B12C1A638A4B03DEEB8610ADFD756A88EC20B58348014E757 +7763A9FA8F120B9B0ACC81A85E4C5C4DBBAEEE687FA3A148E0DB9739CF17438A7F87F3F62FC5 +B52F75EBE57A1305BA0737E34795B71D268F58419C355678C6D6A3F0619F2122C9CCFB46FFE5 +A2E75424257DC257FAAFE402416205781F4A31A13A2AC579B83DCE39A1469793AD11C644BD4B +E9F4DC35098DEA7E69B3170FBCED858AF6AAAC310B66FA5E59B53CE8AF13D454074E7BFBC05D +6EA515E0AAA56946C5394E6393BB70A7AC9B2905B902AA804AA3E223F2902B01726C2A8A79A3 +F8D048C52A06CDF73861F5AA87718028A11973000C93FE95475D4625F0556787B430782E24C0 +C48FCF6B0BA91CA594C5D6D2A6C3A6E9F383E3BBF5970780E656A929CF6897F8B73C3102BE67 +94AE60D6D7268CF1F91113A81A1763E4217BA0952BB4E0B49D250EF35BCC21358A1E2E5F2DAA +30DF89A0B8CE69639483D9C97A73616D61F87CBEE1C6AF89E8272AD0A8C43BE2AD2E0BB1F0BC +0F9DA06EF15F3A90FA3AAF161F8A4F0ADD4A0D937EA5DEE197B7BA923B9B1CB39A6AE27D232A +361060B3AA3DAF8ACEFE93AC7CF0FF20B9A4C6C4F4D3E9BABB6E96E0E489F6A8B1C59CF6F42E +FFAC975251B1858315288B3C48D424C58E6A4376F8033ED79B21D6EE2EF37FF1B72A8B4F3951 +1B09F2E307B39B01074D76A35F19891EB85E2AB35828D7F57AF37067A6BF1D0A07C65D6F848F +65561ABD63F0BA1B5224F1DF25242B9AD535DB1BDF97BC607A2072488B1B0FDC2E2EF2A44F89 +FFCD2591508C78061A8E0F3B29F30085353A7DAA4E3477C44990BD0A6D9AF5BFD3F8C181FD1F +6DBAC524EBAF280340CE725A5D07453C200C37D3D3D0859B6DC5E0980000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 + +cleartomark +{restore}if + + +%%EndFont +%%BeginFont: CMSY8 +%!PS-AdobeFont-1.0: CMSY8 003.002 +%%Title: CMSY8 +%Version: 003.002 +%%CreationDate: Mon Jul 13 16:17:00 2009 +%%Creator: David M. Jones +%Copyright: Copyright (c) 1997, 2009 American Mathematical Society +%Copyright: (), with Reserved Font Name CMSY8. +% This Font Software is licensed under the SIL Open Font License, Version 1.1. +% This license is in the accompanying file OFL.txt, and is also +% available with a FAQ at: http://scripts.sil.org/OFL. +%%EndComments + +FontDirectory/CMSY8 known{/CMSY8 findfont dup/UniqueID known{dup +/UniqueID get 5096649 eq exch/FontType get 1 eq and}{pop false}ifelse +{save true}{false}ifelse}{false}ifelse +11 dict begin +/FontType 1 def +/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def +/FontName /CMSY8 def +/FontBBox {-30 -955 1185 779 }readonly def +/UniqueID 5096649 def +/PaintType 0 def +/FontInfo 9 dict dup begin + /version (003.002) readonly def + /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMSY8.) readonly def + /FullName (CMSY8) readonly def + /FamilyName (Computer Modern) readonly def + /Weight (Medium) readonly def + /ItalicAngle -14.04 def + /isFixedPitch false def + /UnderlinePosition -100 def + /UnderlineThickness 50 def +end readonly def +/Encoding 256 array + 0 1 255 { 1 index exch /.notdef put} for +dup 0 /minus put +dup 1 /periodcentered put +dup 2 /multiply put +dup 3 /asteriskmath put +dup 4 /divide put +dup 5 /diamondmath put +dup 6 /plusminus put +dup 7 /minusplus put +dup 8 /circleplus put +dup 9 /circleminus put +dup 10 /circlemultiply put +dup 11 /circledivide put +dup 12 /circledot put +dup 13 /circlecopyrt put +dup 14 /openbullet put +dup 15 /bullet put +dup 16 /equivasymptotic put +dup 17 /equivalence put +dup 18 /reflexsubset put +dup 19 /reflexsuperset put +dup 20 /lessequal put +dup 21 /greaterequal put +dup 22 /precedesequal put +dup 23 /followsequal put +dup 24 /similar put +dup 25 /approxequal put +dup 26 /propersubset put +dup 27 /propersuperset put +dup 28 /lessmuch put +dup 29 /greatermuch put +dup 30 /precedes put +dup 31 /follows put +dup 32 /arrowleft put +dup 33 /arrowright put +dup 34 /arrowup put +dup 35 /arrowdown put +dup 36 /arrowboth put +dup 37 /arrownortheast put +dup 38 /arrowsoutheast put +dup 39 /similarequal put +dup 40 /arrowdblleft put +dup 41 /arrowdblright put +dup 42 /arrowdblup put +dup 43 /arrowdbldown put +dup 44 /arrowdblboth put +dup 45 /arrownorthwest put +dup 46 /arrowsouthwest put +dup 47 /proportional put +dup 48 /prime put +dup 49 /infinity put +dup 50 /element put +dup 51 /owner put +dup 52 /triangle put +dup 53 /triangleinv put +dup 54 /negationslash put +dup 55 /mapsto put +dup 56 /universal put +dup 57 /existential put +dup 58 /logicalnot put +dup 59 /emptyset put +dup 60 /Rfractur put +dup 61 /Ifractur put +dup 62 /latticetop put +dup 63 /perpendicular put +dup 64 /aleph put +dup 65 /A put +dup 66 /B put +dup 67 /C put +dup 68 /D put +dup 69 /E put +dup 70 /F put +dup 71 /G put +dup 72 /H put +dup 73 /I put +dup 74 /J put +dup 75 /K put +dup 76 /L put +dup 77 /M put +dup 78 /N put +dup 79 /O put +dup 80 /P put +dup 81 /Q put +dup 82 /R put +dup 83 /S put +dup 84 /T put +dup 85 /U put +dup 86 /V put +dup 87 /W put +dup 88 /X put +dup 89 /Y put +dup 90 /Z put +dup 91 /union put +dup 92 /intersection put +dup 93 /unionmulti put +dup 94 /logicaland put +dup 95 /logicalor put +dup 96 /turnstileleft put +dup 97 /turnstileright put +dup 98 /floorleft put +dup 99 /floorright put +dup 100 /ceilingleft put +dup 101 /ceilingright put +dup 102 /braceleft put +dup 103 /braceright put +dup 104 /angbracketleft put +dup 105 /angbracketright put +dup 106 /bar put +dup 107 /bardbl put +dup 108 /arrowbothv put +dup 109 /arrowdblbothv put +dup 110 /backslash put +dup 111 /wreathproduct put +dup 112 /radical put +dup 113 /coproduct put +dup 114 /nabla put +dup 115 /integral put +dup 116 /unionsq put +dup 117 /intersectionsq put +dup 118 /subsetsqequal put +dup 119 /supersetsqequal put +dup 120 /section put +dup 121 /dagger put +dup 122 /daggerdbl put +dup 123 /paragraph put +dup 124 /club put +dup 125 /diamond put +dup 126 /heart put +dup 127 /spade put +dup 128 /arrowleft put +dup 160 /space put +dup 161 /minus put +dup 162 /periodcentered put +dup 163 /multiply put +dup 164 /asteriskmath put +dup 165 /divide put +dup 166 /diamondmath put +dup 167 /plusminus put +dup 168 /minusplus put +dup 169 /circleplus put +dup 170 /circleminus put +dup 173 /circlemultiply put +dup 174 /circledivide put +dup 175 /circledot put +dup 176 /circlecopyrt put +dup 177 /openbullet put +dup 178 /bullet put +dup 179 /equivasymptotic put +dup 180 /equivalence put +dup 181 /reflexsubset put +dup 182 /reflexsuperset put +dup 183 /lessequal put +dup 184 /greaterequal put +dup 185 /precedesequal put +dup 186 /followsequal put +dup 187 /similar put +dup 188 /approxequal put +dup 189 /propersubset put +dup 190 /propersuperset put +dup 191 /lessmuch put +dup 192 /greatermuch put +dup 193 /precedes put +dup 194 /follows put +dup 195 /arrowleft put +dup 196 /spade put +readonly def +currentdict end +currentfile eexec + +D9D66F633B846AB284BCF8B0411B772DE5CD06DFE1BE899059C588357426D7A07B684C079A47 +D271426064AD18CB9750D8A986D1D67C1B2AEEF8CE785CC19C81DE96489F740045C5E342F02D +A1C9F9F3C167651E646F1A67CF379789E311EF91511D0F605B045B279357D6FC8537C233E7AE +E6A4FDBE73E75A39EB206D20A6F61021961B748D419EBEEB028B592124E174CA595C108E1272 +5B9875544955CFFD028B698EF742BC8C19F979E35B8E99CADDDDC89CC6C59733F2A24BC3AF36 +AD861319147A4A219ECB92D0D9F6228B51A97C29547000FCC8A4D80B73E7B6CB75480E1D77FF +C695988391DC44AEED8CC947B3D7E198B9620E2238DB3A2819182F0314498B8CDFBA48926DA7 +21920B221FB33BC21A8456AF10891403501D0F6415F07E041AFFE109F640E54FC1A365674711 +EFF94E752652A4C8DA62CDB1149DB8992C4A4BD77A06E81E93C5698C05DD02F74A0756082738 +BDB53003B483752AE498DD718AEA8F3FB5A6B7E2D2AE8F309065F3D556F9A34AB90C88833A54 +295E0982209C466A301BA3372AABEE20D862C6DC6B6FAC1463C8CBA8AD766ED1B4C9D7122BEC +B4E6ABF558D8AB5281C35726BB8D046982C0DDAE17BFFC9394125E4E84C0B283977D31460BA4 +8C54509C43FDA80274B0EBE9C1D5AB7FB4F19EF939B10F1D6F115D580F8C7A3F631746255A1E +632C41FBE97F1E64F672E3D3D0AB99751E07BC69FE1D54C9745F0B28CB1F0D40937A616908B1 +502A9921941FE70A56E3BD3438B243C08A195553B32F18560858E92108B2CB7CAD5FE4045CE2 +6B6BBDB69599D5BEC2BD2DAF9CF5E912622E90259B896D3181CA6BC45CFD1D81B7EBB88FE64F +B9F5E51982BBCE745EDBFF3C743512D23C151EB44E48A9BD1C99DB1B0C81E1139261A642AD01 +9FBBFBA94600DADC01216F010971ED87B606B9E9A3B5CCFABD2777FA76B1CD9AE623DDAF15A0 +08149518F9A268B25B4C6FED7658238A146FF54C3818ABBD02393F42F27B5E9D504186BBD082 +3575C4732C03A28C6FB6C152AF5AC2152BC4CAC96EAF1DD64BFB58EDC38F17E21E6827F7AA2C +FCF7A8FD9E1A6C350C8CBECC67A8B6CF445B5821B5D4E7A3207715EF645680E9EEDE951558D7 +3322AD1AA8B3C43EC0964C8DC44F5395C0462E9EFB4F011B3CE322261C6A37C2BE689DE72ECD +976A1847E5B71D7F3E70C401EDC739655581DA0143C9EBC53C0D43380CA6BF5D72927FFF3044 +23042CDE0FB85439EB20823978912CB8F604A19B28C0A4D461A895AA720555887C10051D6B00 +F04C43FD724C1C66EA31764379A17B5535298FB32732A0F31FDE848C6FF8497433626CE84A33 +6528935D07777AACBE751C6C5696C929CDA651BFC4E073C89A33821C0AB0D4E3A182493DFAD3 +0FB53F7C7B4617DFFDD02DFDA21F7DC71C3F8FE31B9E2D9A9EA2796386016ECBAF971AED43E3 +3B731C9D19F448052E0E56FE85EE37F4C1EFB6FE3530D03E0D114646CFDA21B890AFF757CC81 +5437AB387E7F8790239EF2654F2263AC4D364DFA2C28D190BEC7B31C1D938421E5B9C77D3305 +545EB634FE2C5F25EE2FEF65E0E19508AAFED1BED362080910D14C5677C4666ED1F6FB81430D +A820216DE33AFEC9297C347D5BA69921469ABE714EEB9BB08034691DD56F5E4DE3F22B08D448 +5800A4A8DC67566160F47A13027F3FA0207A4DBEA07383BF49CC7E60736D3409B5608DC4C25A +97E0DF02E6A6D1F7388527CFF8D89A7C98136699D50A9F9471D42B1D6F45EF98EBE41357E310 +E94A1CA65CCF57CEF197AB66B6F75763719E4D4179F279832BE007AE0A4C5073D4CC4F5E120E +9B26E3F10D0714E748D6893D3D5C5866DFBDEBD902B1B3EFE1F2ED62BAB179E7BDB707A3F91A +B2A7926A4F3C110BBFD0EA4E5020010A1A0E101F161FF627188441FD04208EE6A304731EF1AB +3327BBE7F56E1A09408BDDA564110C9EB48378E3FE5BF5C76DB516E8A4CB5C43C9C8EE7E7E57 +C413DEAAB4EFCAE557ED66656EEA8A1CCA16EBBEAD8EEB0ADC6B2332ED275F9A8D7F16504725 +CAE7A53936B585DBD1DD5E8A902E77143BAA6BE6298A86D821E16619760C83567D19437EF3E3 +C8BFB6DB66115D7D283E79EB56BDC5041CFB6C330E94187C33979C0A0DDEB353D4F50FAE0EB6 +87498333E78284D542672F3BE0813D379B384BE83A11A8C0D69B4DDB541FA22C8E626CBAB920 +AD70995AEBAB6DAB0E2A2E3108B0321F4B1C85517229AF62C225575F0237CB8D25C77F5C5192 +0133941906A78BC0A17C58529B3C63F83A93DDA9EC5B10305014F48B923CF07863C86AAFA637 +501AB84AB5DD719C0E5B30726207082B0466614B4AADC4A63F89AA827A9E8C80615B025E5C16 +F88AFCF23F76CD1DDD0A6F8697FB0B152B18282291AF9807D6F66323CB52D8335D2C425AA521 +61EF2CB21DF07B113ACDF2941F1D575F3240C57C4F6C7EF2D8DD1F73BBA8D0EE9F2F8D8D5894 +23A7A0CB5F1218A51B8813DF5B456ABC5814EDC7DDF64D40873C37AFA38290085AAA62EBE864 +21F442E1106FFC60BD37366E51F289A675AFA96AD60DF567DADF9BA36EA8E240CBD539531BE4 +8CF37C373925DDA97621063D1A072740CCD6A8B2DE97FFF642E4166072782111E956BCAA3E44 +3ADD83BFDD9F8359167CA2121FC6EF8224301DD8D4FF71935E278246414AEBFFE76574643249 +E1372DCA414F4F73ECF590744429A1259B3D5FFD7E5B1ACC6B2A6550E9D25E4DE83A902FAAA4 +D83DAB4C062EFFE7CF3B9FD5E5595648CE50880CBE18A7ECF2351EE77BB79EFB5F3C10D99D5A +A20C9BDD508DDC4D0B5C53E3765E97574D88813C8BB9FE235CA6F965DAE3D6E0F3A930B6E3E4 +8FBEB0A16D07FBB971D2BF10E6D6349CF57EA9F191818E565F7F75CA7913D265DD6663D92E7E +2343D835D7CD59B92EA281AEA85C1E931A4C4B5B487A9A1FF56C1B4C444927BCA8838148B1B7 +5DED8D97461FDA12DD96C90DA11EF2B57651A41E593362F5FA13969BBE5772A6E8599D30D17D +DD9CC5D635895E145520D637CAAC234FB2B9CDE8962DD19D983BEE493798EC822440F176B15F +D8F44CE2973CA8F885B9DF7C6D423429470334E36B95E2FF0EB3F1FA51C757BDD75F4B2F87E1 +AD51681676ECF4A2792CA1CDE3102EFE11FEBC154E9398FEECA566E62F620BB09BF2397BDBA7 +A0987320496265635619177BDC265EF0718505327364340B4E6E7D7D152A3B740A624141EFD1 +156B5258DEEC81276E986325214DA6C914C8D8823799044D52129CBC897BAAAD95C4DBF74792 +E7DD1B6CB0C9098550913DA3A12CC1D392929009F15DC0CFCAD6E0947D6835AB42DBCA0E4C74 +EDB15DC77B741CA937BB7B83363E7A0991AA572C133912B16B32FEE3E85060CA313A93F7A149 +56A7E407040CFEC7E74EC045E3330BDA6757E661C47AAC21FCBC876A5E69456B02CB5466EC36 +6A3870E0B9D82AA65DA0F8082D3CF985B9160D7EB9DD4C3D85FE2B4E8D3A0A7C4B4D566799A3 +1EA22E39D194608F05943ABD343772D3B224D26610BAE41C12647B606665DD84F22F4BDC27BF +20B2BDB8960CC95B7B672553E3B6738620B5BD153627CE543016D3D606DAA7FFA12CAD37AB08 +870C7D692753C7A6A89DD975CCB958E60300B1E72C9797840A2476F57C96C11639F7F4C2025E +DD776082BF76122E67349FFCD6A3CF8BC0C9BED0D45E229338627CBBAEC06991AD94AB34A28E +EB48E3186C168B1EE251CAA32095428D622D0E91A9C881148C1E4A806CDDBD05DC6C17E44BF7 +9F436B7B1E7BEC49791A072280CE1AFF8AA5388CB883C72D7D5509EF65C048D3286A34829ED5 +D2E0252106884F48970FBE05EEB6054C1647DB7E0A45DB09B0A6181D28C04815F8EE265F6147 +E8895225754020F2165842C2242983008AD37FB4431120C8D81B3507E917B80B0E3E273D23DC +F9E1CB287BF6FB0765E20D9F0FAA6BF7B15E97273BB8D3D4D4E0294260B884B5A20D2A606B6D +6D493CA72E56CAFFF3D8E569220221E1DD9F78014DD592A0066516D35EB7F5B518C9A6440473 +884CF2013AB255A0E0A291C34B68BC3BFE9B5F0FFD6DDB74FE0D2210FE0F1A096FC26BF9338F +B52182CA37EF3658C41359019423A7A0CB5F148580BE8019823B3038EE842D77468819D5B619 +BEE0FA3E3D6D372920547A8AC6A763AE0FC11B718ED4856701169B8733D08D5BEA726107693D +50513AA0204B4195D9B878F0CC0DB50348EA7161838EAD092B9A9F44E7A1E63FF4E1C4D86EB1 +AD24A00F3CA93617B9A3714783867787F2D27C340CADE07534B3E2845E09B96BDB43639C0E11 +38123C368FC6BC3D0EAB9E07736FEBDE0DB0BB53BDE0F8C724BC8FE11A321DD3F5E3E9411F7F +1C60C35080663523B0276AAB092723BF2091CD26FA14E3A8166593E43942115A6604BCF9FBA5 +05D52DD3A6E85E97F4B32A8AEE4C0AB9952B9165E671A7B6B150359F4DE3A7FB8C107B04EB0A +48E1DF9AF33851314D45644160EA1AFA5999F96CC4B5C22DA4028224DF5933A164EA6E8B1948 +3E0D3711B1B746FF72C52B5E277C943278AB7B6593558F9FFD97BB7817F6A411335A41313330 +B08D30AF5761156463B6F3F26502C864FD54919EBB0B02CCE402AA717048EC753A03DC0C2B79 +AE7FB49A2548335713B67EE3552F08A66F22C364CA2D18AEC83DC0B5130B9B03C48272D9EAD9 +7D9C26F1E01A4962B31CAB6E79D846A145F35D04E3618BD0FED3E040226BB23BA4B011C15F51 +E8FF34583810140E5EEC90F29CD3A2C987E46ADE3100CC938193C98F6D78D2B716367A58DD90 +18AD6CA2E76B7F9829C03B69C13036F609ABD1865F4B13FA1FB3ADEF31036B69DFB4C3F51D4A +1FA5F1E2305062DBA15273B2945B2918CF36E57C95A03E73D2673E30D07FB6AFF80FD325F80D +1A950C7C120D4882DD63B5B3B2B70A3CCA1B7C1DFB09574401864CA4D8747098AF650990593B +F810CF16310783EAC06D380C7AC09F5F69493148961376A2FC127D5D9A63685DD4534B7BD02C +DD6692DDB12FBCF5F848929D06A61A2CCA689F0675126B16B339AE7FFE3840E7090301B44C2B +9FBBDEB55F5ACE0BD2D78D8B6BD5838881F0F6B22F55EE48505C13024DAE55BD3E3611E3D553 +D5DB3D9B3E39BF06719B5F9A35EAA118AAE982F7E9ED6A11D880A9D26B41AAAA6D8F81D27407 +A44D48CF1861053F6844C13159F622FB7734F889D0BE34ADFFC987B1A97B8C79EAA64B2AC88D +3D12B6AAE2F2A972896221BCA1778B785AD555D5F848DB42EF9D17BD65198F0A026E78D0BCD7 +BD33B25770BC9DA311B631BA5B8F125A5A1124F1C7B547961670C36C8C6B8F5BC7B2E1EDD8D2 +40000222DCF2E5309B73123B4CF28819A802D210795E830EB7D89FC57AAF563FDA5B92EAB1D1 +3C38FEE35D7F5496F4027CD700FD32080E25041A00491CF8ACBC7F4D3A9FCB150D1FB8B79495 +6BE7FD8B1CDE9944C05928DC5264D56127F3053CC6E8792EA11591423398DA543E7EC9C8E5DC +4FADA3AF0C35783712340EAE14AB146A21FA6EDB715149D7E6E1D79079A84DF374A758CEF5DC +E42FA47CEE5481F1BF3D956AA3EEBB72C4DF50441EB147C012780D251FF14F328FA92471AC52 +161E45FDD19C4A56FF865C201F5B2DE4222E764341331C09DE41366DBA887EDAC22FE977E98D +8530870BD59412B48B47C96C2D0D54C18D29B815C2C4493D196722AF68A4765E19643D21FF75 +92BEB5E16768266BC3308F40A7E92F4973E068CDA3D106AF497E68D0FDA189E77FC088121CC2 +4726CF4843F7AA1B812341144511F777FDD08EB4D6041121DB9F125FFDAFC5C21C0E19037EDE +65FE6C12110C237A0E0D926C347B099F3495A965CC28F840E4FD8B27D16CED6F8A454B9850DE +067B5C3D9C723D9A5A6BC33D1B16237A35E0A3E9858943DD336AB30E52BA04D87489ED8E38B4 +6B812B7BA8CB5CD9FDA279339DEE7482B0FE2E103389817C3D92886F2363D91CBDA8DE65CB99 +31B0884510860CBE6692BE40AD021F74612866740B35EDD68BB0CA605AFA1562FA3CBDD8997D +5069E32046B586D9C2AE1CCB663F95B486A84F593FF04B16197D8D51B2B0DD1D90794DCD478C +498A202B21C889F9A186D04285839E5A5EB7F935DE3B3ADEA3482F201C2AF477F705FD13DE44 +F8AB9A47BBF4DDEB4F3C921BF74AE8FF78DBBC9D530115F99AD44A3E0166653A21358CE9F797 +7645AEEBC575FB0EC4189E9B3F93BC701A1D5BEF126EF3F56DC3DD77DF8955F75C0785A520D6 +A51EDBBA8C2991B0A21AE205E06EBFCFB8082C9AEE2C24C956F39FE841B5C19517CFF847FFD1 +C2A38C82CEFFA490DECAC789C4974A093522A0E50302B136527831FA46CE7CF214CFF6C5650B +D409F54C65F942D1AF658B92C94846A9C7491E38F01EAE0F90E7B4C4E85C466CA42B084A8D24 +AE2CFAAAE744F9695F9D2A12A6AAC8777D6A2E19D1227C6CF3984795D0E414BF4A4E2D40635E +260BE80EDD64A82C5E74D019CF86E89E1DE9ECD0CAF2D94813C6BBC35F7EA01E7A115F2B7EEB +ED113B0229326BB2010219C8ACAC1E869F9D1FCC5A518499B286D39F62AF42E7209056D22670 +9897FA8AD671B461377E330CD19628B5F86A5D0F9365D8ACE0C543D2564382BFF9FA39B2C662 +B986F710312DE9212FEC64B87BF67F046FA24973B774F533BF655CF800B00E7906CD6AFCE224 +C062696C926F9BD48CD1B46E7D2AB92EE531C7B4AF8C61C9C5477931A67201C2990BDD8DE603 +7E2F5DA0A5FF116F57EEDB599519B69DFDFCE275A8C007A53D29DBB58E42FBEEA9525E1E0D88 +631A3FE0102508F46716FFCF7DE61A46DA6A2F2915B0CA7457E60F226CB76F1A847152452F5B +96365D374080EAB6FA4A25F491B86659BEDF0E1620BB780A27FD3A04084B68A195442B51909C +C1724E52196EF46672962C6869E626E9B591C03221AE5B29A6ABB0515C87B134BE34C0D5D2D5 +F0D113FDBD906166B2C8337947EDFDEF03E3EB7B40E49C3366CDB0A26FA7DDDEE492339A3C5F +8647AF875CA73C8032103A3637220F31109518613FF07ED8552858A68F7DAFE88E54997CEB32 +2ECEBF97EA3344411DD2695804B4072EE189430B5F217F200A0B231F8AD84B18325B35A68A75 +DE0B7091764F970D583CD5D0E4C2CDBB9817DCA67AC8ACA4C0DF74DBB2BE545744B703204937 +FCEB48CE5734F7D8317486090677FD34946C1EE7D71D35BB40A2F5BDF96149780E75949B7340 +B2B9450F39111513C6240FAAAA19F433333959A70C18E8087F786302B6D637886B55EB18906E +D1F6E8681B552372287C3C86D79F6EA4BB0D1FDADE94A33B2AE3165836E5BB3F91B2DED0E386 +B8304D94852AD72C9D3ADA2A39ED9FF47011014BA5953DBF0CE569159FEC8F11B42EDBBF0B7B +8E28633930A71408B0474773FE33B38C593E209F793A23F07801362CDFF84F1F0F061E16A5FD +9ACC2D7AFC7FECDADE3B9744AA20D3FC24B440DE6FD072224D6F3D6897337C8194B9CCBB6CAD +BA5FBBAB33887FDCA942D46A6AF9BD720DFF0A7AACD10106F1AC5AD013E836B7B084F3F373B6 +0FF180CDAA74332A5761B6CE2F40AC4E0F37026B5FF15AEB649E121F4797D7BCEF96FD44456D +84EA64BAF0F4E9A557696E61819995C84C5E4752A8FA632A30EA35C29DAC3F22A77C6F7288D1 +7BB2AC30D15FF7E1CBE7C2224BA8E0FE348988352F7AB442E2A0CC01C235914F847D1D998310 +23CE1FD89EFEC83AA7E313131C0C197244B16C9422A86DA9F5108E51850E5BA552729B8BCD5F +D0E6FD6C4E4212578813498363705D3DC0D22B8A9B9359CEA826E1CD929BEAB754DCDF9DEAF9 +652EE3E434DF83B888598ECE73D98E94FBEEDCCFD3E87B94E1A458D421435A0E5FA19398E81D +BA38669820DE1F9DD92607D7B8FD4F1C4E5BE5E9083F2228A9DF84B84C4456E9BF5995D70906 +4E55CCADC86AA8BF34954675572EC33819B531A124373A56C6FE7D907D6577104F6CD1E56B59 +F135072BC0B6C22F2C3E793B9220A659E44717F02156BD099F2B35842AF2260515B8279C954D +39C6883419911DBB9A044D0074F36E77BA42E7AFB41114CF65226FF4C34AA9682559E4C20688 +1B58EA640A934223A46C1817A4F02A0332D4983EB7D654926EAC67E39C570DC7C507BAB3555B +26512BCBD07774642CBB01A1CD226A6F93EFF19D56C779BC2147D5703E9176D347395681D260 +7BB4E0A1A7A244D15A93604E89803A9E562E03D4DB0D452EE6690A8CB7B10022545CFE3285AF +EDB8B5204FEC15DAF875C21ED5B60682F4DD99DD79D322DFE2ADDE1D278201E415739F257C9E +CB1D14FDE374DB1C60338563A8870B4E6EF25EE411B6FE3380C78DD7CFD0A1D3F3212BD35198 +91D1E33D7035E50E7E2E4D2C10BF245BE198D10E75479894603300E358B3ABCD91CFEA299834 +BFB2FCB5C9D08C668392C36B09E9D28B9FC63F2989AEA7AA02FF467F2D39D45FF3F928E5DBA6 +8311C5658C2F131DCD25CB1F05ECA72D6DAE2C3C67CEA6A6915C7691B72AD442BD4A3C85A31F +8FB8527623E460E5F712C38F3AE9D1AD919106A4B50B237FBCED2C3606771DFB75A9EB0019CD +EE8CD6A9A866976D7C1FE5BDAC8566A883192F4BCA41F9CD074DF497A0A78C6286759CE76187 +EA1350C84F0ADD27D50DB16C72F7D240D3EB76476C0F657DCE842DEF5D3E7D975D806E401133 +7C608AC16A2B7E3B1C2F7F01AB6B19DF5B3185A8F212103BDBA39084D93B16220DB713D299B2 +8E138E2DB585CAA17F17BB92C0BC289B8FA24DB24D98F1478F7E817C01AD163E952911888226 +C1471BA66C8EB508D8EC09911CBD9A6131A2A7802093C5668BE1D5526E43E63CA7DBAFAB6E54 +4C30F3AE4897B8CC595ECC2C5954641FD60725E18E2BEBC4FFEE9E132DE2FD99296583EC86D8 +5E0EF20062F5F39AD30B4E8A46F30B0DDBC1ED616BFF5B8D35B003A2542189A6CFD80DEB73DE +9B2C38B81ABC0D04F3129DE31BCEBD69B71EC10DD1BE79F886394FCB9E616DDC025B272C5A85 +88C306278C6C485D0A6DA431A337BA931B016921CC65104CC2897D3C7162AD7082E15A9252B9 +F1CBA3C947F2635933ADDB06813915F4DADB2182C2D4732CD03E09CE5E61B3A15E894F069376 +589339AA4E3F297A0F2C1AC23882957598872D90CF64E3BF4191F82272F390D91ECFD75AFE3F +BA184EC17AC1A94E38F0C02AED1706E0347403028B24818490F79945DCDAFA6240EE3E7ECC86 +583488CC26A3469D56CF99E9B39569098485C656CC46860A825954826FE2B24EC317E895E59D +9F2E79867D817821EEE00452B9DAA3CE6B2495350A2B99E386723D9CB9BA2A4BB278CF45B49C +2FB814C64BCCE0D73E5DEF603DE8D17B814EDBE2673EDB790D8EA7C6EA97702EC66D4BB0A88B +52B3AEEC1418762DA5220AA72731742B913E0286AA1027C49929D6ED4C45DB44D1DCD069470A +A0EB18F5A605E4CC53BB132730A7CDE65B2C3C91D7D63200EF8750E4CE7E0420FEC748303DDE +D3DF0E31BA2295C1BF444107D51E83E89C75314190CCAEC9AAF4FF3A6CF2708125BDF195F275 +3AD9E691741E902AB9B739AF06A5A2A3AFF79E9ADC4FEC9DED615783CC31176DC860234C76D8 +E825E306852A14F5723BEC204D2F7CED868E44370B307CC2BAADB4AFD3D638D9E62FAFACD830 +D117F89C53727BAB47699E1F1EBE0F04C4EF9F9A12DFA9965B47EAFA0C9BDD142A67366A99BF +55C10720E1D38A0780FCCEC8318B0D4F15209963D4CA4751C51D9760FE3ADE61DEC0EE135D0E +E45CAACF2BD6660854D1D69A6F57F1711734B0EEC6ECFEBCEDAF6A819FA9E1BA88DBD549EDC8 +E549AC81C02A98FB81A8C63A18F3B7092E6FC598DDAE2FA172E7EA5EED3F788B32EF52A6A23F +C52E3AD5D3628B559BC02E2BD532066BD243CA91E7BBB0EA6A5126494D984A9C70C0CB691342 +BF00D1A7948F05A278490235D6267A45479DB30E168E8039B879740BDF33A86194B811E9439B +9DC32A6386C1A7978F714DF671112E6732AF8F27A30138E1F6D8FF1E7B90A26D737B24BA77CC +B23A4E2F9A31FCBB0E253FCAF523F296F7718D2B1CABE23C4647BC6559C01A4FA76D0321E87E +EFB82BC4B4E9B113452C23764697702EED36C34221A80A610A3E9C57C0599D2A3B3F8FFAF252 +BC5DE9FBDD07B9A83429B7FD585401F926360A3637E52557D1BB417F540DF457374CA1529B20 +0561AE861591CF6E390AEFEBC08F2152830DACA8CA3F1146BD03686AEF52988BB5520F841891 +A4AF18DE541B624A36C96896288402BADE9214D70BD5F9FAF61879A3F63C187E83269CE1C52A +1ECDF7A1DCE8ED56E059BF064861450AEC2CB5B8743FE4398561CA13216453EE9E55996BA7FB +2934A47A9F552AA5A04DE2C79D429E924971CD537492C98266BD108F5C6AD52439BC5B9607D6 +F4439AE40D5E59D0F73581D612DE4DF10F3ADD3ADAB5F088711A7F67E8059778F9A9C42D936B +0E306B5FE0A0FE90B44848E230B6F573E6670E32EFDF476F3D382DE84856519CC24AE2D4366D +E90288B595916CB51531A1A3FC47BEF7E4BF9ACFFC8CABC4230728EB1AE550E842EDC9FCDB00 +9276176BA3AA5FA4CF4A5997711C7A06A51C2046C77D17E66DB662F2D54D3B365E0590D197F1 +564F80DF4696C48E764B37A80369824C7A2BB969A938E98FDEF47A3BA18C56E54039930826DC +B6C688D8416F345FE1D7403FE09FA20B3C72759D8DB75ACE8A162B3582B518231065103AB6B9 +D9D0DEBB8BF4EE04C67E822D0AD445785F09FCC31A1F7EEDBF8D3DAF57F56996902EE342451F +81AEDE836FC475248592C2B6418BC45482BE7B25AD726E3AE9687EB7FCCC79751B5676FD562E +D8E19CD8AA6310816A580F64240D2ABA17469780CDCD4BF5720CA972FC360099B1DFAD5E62D9 +BE54580BF89E9FD77DA11209FAA72A277F699F507EDCC0FD672E3C59E0C7692716F736A6D6E8 +5E319AD5A1F95A997EE0D1A5DA70FE34A335BD4295C39374653D20C7BC774F0766C3763C3838 +1DDCF02FD0E77EB4580DB3B66759A541AC93373741C91ABAF67B6913936681399B68A68E5B96 +49141BBE104758B147BF670A5EE857B100E3AAAFC718248C7BE3D0556E1B2B1D63AD82525E08 +8AF2A68ABE971F7587382C7B3096B63462890DF48B134E6B34AC044405EE1B0A96EEBDA48F67 +4A50DC35111377E5634514A6D84DD677A254DC28F5AD0E3F704ABC067FFAC80854F508581910 +70F485D25BAC181A7486B1A7C7B872AB2F649F08DA302CC001153666914B1D1236A09BA61DC8 +B16F0A76D4B83EB173BC7292D473AFEDF2A6C23CF1108C9E6C846F540421C1EA54128B07FB70 +9C24E2AA7CC9DA327320DD371B1DB5D24736BE705390F248E4F13720D1E118423F988044C8EC +469697B08ECE49410C9967CD2D01492E0DE27A76D1D7843578ABD862FCE19BBDD3BA578267E1 +A25B4FA057A5AA6ECF2CE4C08796675FDFB499BC99AB91BB1FF314A8EBE7DA5EC7F5099F0A93 +85BF59BBF8B6454C0A55408AFB4FB66D6051499003571C54A5D79C7D3B2C7895A0FE61306A90 +77C569D91DA8DCEBC7EBF5A8A12E7D583037742C6883B6B78906D1F167D78E36D444BDCCB32D +59E69D84DCFBE65D41C4D644158343E776A12B0BFAC411F48DEEF692F9EF84626A5839B9315C +41E5EF1B9209DF83C4F9C3F46D23BF8CC1823F3017FBE0A26E94B839151ED1291D52E423434E +3261CBE78155D2ED9604422106AB80765B2EADB24A8CE258CDA7FF2D1642E5AD69FC8DEA6999 +FBFDD82849114C8F73211127BDA0F71F4D3D46299721BBC15379AFB613158BD01D1B6865DAE9 +940D687EE44BFB05A1D1827742EABF194C259894D302CB949C86FC7EFCCE49EE18C288C0BA30 +08A692356D2F54FCAD702CE18D25A7D29B052E71D9B69450B496F2D77410D0E9825786588F95 +7D7F19C7130248296F3B9C4C577B7FC0355B256C148BA798A0DD711DCA361EBF3D7936ECDA26 +FB117567B16D879E9B63816D79F894B524C59C51346572CCE9D5E32160CEE200ACB79D60C081 +752503BD1D57A7CDEDD2EA76533176291CF565E7EE984BEEF3CF6CF84697FE2354AA6C6C0C64 +2A002A6A7DC68E69B4EE007DEE561A7B46601B6890776E0377FDEDB3836172514D1CBE86895C +2ECD434654301BF258974E79530D8B3F906F4965EF8495F59D459BEC69A717B68D80614E0160 +471CE8CD4DAA0D499C7588BA367D585B5A5137B4E3E7A3D2A5A845128798E7478D607177A8D6 +D0C441089B3BC778FCA1E451B9C9170E232CF2F66790E24983050DC5FEAD587A7235708D1DCB +A0D5AFC033A00E97CE1C0748424E40275BB2515697045FB1348B9B382C4A5421897390D3F819 +E9070C71A28E85227C700F928B98423AF03BF94DDD31BBD996336748F5C609F909AE146A856A +B96A7A9D10B717A124628F06AA5F29BF34BC052F103C01C2B4DC6E8C812382C6688F71B94AF3 +D47FF15B34A8A2D8CD299B548EDF4DBA4DFF528EBC954D26E3F6230231D3AD3A9204C6B98143 +70984E8BDCB440B3F3539A70F0D5968608E614A5373F1F31F095AE827429DFC55BE71E0C6EDD +AF456CC5D30CA03D46FDA926DC544B7BD14C837D7A0A786AC70E303D0A446E82074468A67DAC +6B285A4CB0059E4778B16BDFEA623F286EFE3529EBF806BF3AA559ADBCE1283C4FBB3EB5FE61 +EAF3179C0E08F2BFF009589619D9EECF9DF3D74BCFF0785CDC888916D72C790E175FA1321F3A +BC392E45E87E9599F0279F6755E2328E51769F3AD9DC469D2EDF20F3862D17E0EE58BF4E0E06 +513CD94817D877FC7ECB36E318D717149D4C010D48542A67131FA7F94750F06BE92BDE47E043 +60D5A23D60330B9CDD16FE8929E33707E068070B1F130158FA16D2668A3B0A8291F093068FAB +F29A91EC5E246BA179DA615ECBEAACFF32FEEE8BE703D0DD5C399F1DAB7560FB462AD69DE1BF +8D530E3D071434112D713D960B8539F2B02040C08DF3C33141DF3ABB3DC1D3A15133573E3732 +948011751C4CE4A09F96AE3405F39E05114A4FC0CB350950C5A7516C2C38B8BF73E85DA10706 +9EF581596ACE565ADC422D66EE20ADEAB58CA9046F8D32F0780FDB7CAF262F451687A41CBBE0 +FCF7D69B37ECED96065FBAFCA59454D57BA1C32A3A0C3C6990DEAC3DEAB30D92EC451EC63A04 +EFD32E91DAD3D75F6FA3089BF7F3761EE01BA33307B7FC54E67F8A9E37F3AE1792E926A3CFC7 +6AE39E5E91DD53FC699BBDC4F2D2CFA3F2ADD025690922A12A56CC2045BF1AC64E07010A026B +56AFA33EC5191C66E44DA1664CC0E866062981124EE9C09D815EE0692D4475D7B7CB49117FBB +4261939C0F58729A5FA44982F92CEC3A29AF5D15CAD1150D5794CFABFF9548F68D77F5C18290 +CA4543CE9244ED9EA0D2B9AC0D04CDAD7EE2C04F2CC5439138E882E19605BBB197E03847049B +E4908FBED8CD6D7F254D7DEEB6133486F0486A51EBF4E934682C50A6F237DBE7E9E01F37FB31 +BAC6F4009B2075E3D44A90E76C9A669A84329804E0BA8922322A7BD8F2BF3C47A20485476FB2 +446F642C06B0F7A916E7E79FB2F521DC43E43C620AF13EA322AE36A54EB070B16E819C03D22A +E82C99FCBA3C054C82288A7BE0761CCBF4957BF8375AD967046023D264C709C7CB3765EC0153 +108AD1A41A095F83F25389456D42960C59637C87DAC74073F9B66ED90BE1D988266E70E9E66F +77A32F6D5D10F8D426B30BBC3FF3310999BD1FE26C2EAAA5FFB6967356B59B5EC0709E7A875C +DB31A7D9927CB7EE6A001D612C61A618D399A976D9EAE0C74F71905D43A2DA9F54D22184D929 +85FC471A92DE7BD40B13EAE1B4959AC208DD67020C01CD57147F5525C71FE75F8AC5518DA2FB +35DA93749A256E95CDB67784C4B006714F58FF02F24D4BBD84D3A93DA40822BA613E567E7136 +5486B3C9B7E2B249A203D000D8EC7DD1B2E0CE1C0B5D7C129DC0E162938129F5ADB71313B6FE +A6FB14AE420D58CCCC9A5CD3DAFA1C87525792802D2F6F7E169A0D292E1E3744C903B6D50F32 +A03F9A610E6C89CEE7E763E6DB2E2094DCF4D95CE1FD47E2495DB1A64A3FF11568EFBC267009 +4DE1F92A263A3EEE296C61B4A9A83DE066FD8C19EDC6EBF43F5E65AF62E2515C01C4D097E1DB +3BA6BDD99121298E7C5C41AC08C4ABB4A5EBB212CF26DA75969F2FEC1208009554D21CDFA449 +9094A6718B097A3069C5254D3B4ADCA1693A8247773BF93CE1ABCAEE7D928071DCF9AFCC7912 +34B357C6437EAC8EDA2FFCCBE5E77E9CAA87A5BFF9840B2BCF4AF859593AD06EC09C0A5F8D10 +38B88AD7F7777A981A5B58FED55202F4B49598C3FE9659F4B1E5352E34E5FF1637AFFBD2E28C +7FC0F5795B0CFE3CB85277D1697E262685C7B3A844DD4B4D6EAA41CCAC1F876AEF7843A488F8 +4225D9C8C2693D9728513E1CE1D775BA9B38310E3E238ED8CEACE807C2D6695C7F17BC6DF133 +1D4097D0EA931D8018FB71AA54D7D5E5751CDFD9ACC8ABC87D761F19AD9E2CD209224DD5987E +2982EDE9880F5E1A625EBA60C2E7B8F6729F59AC13569122343502F61AFEE0458ED0896AD52E +F6108ED7EC0303B2EF3B83AFAB4D03557F5CA54C5E4B62A86D8F92A678416D59A2FED2D99244 +160A929A9E7C458F4437E12C89C60E9B9AFC9578B479D74ECE0FA23FE1644D2B28187DA01459 +EFBBE34A2947798009BB709CD306D9C63041E3A902B589B6B2F5980957514D5C7F867E223B9D +3F19A0978479AFE2BB51A0EB09F9B7D5177809FE0499048CE58CB2265A613ED37C3B007291DF +D3DCD04871B8E1095C0464F3BE66439C898F73BAD14D02F5AF1B88BB55A0324C139FE276ACFA +95F1E3979AA088BA4AEB03149AA3539D9919FB2DD4E61A6298B6BFF4D3FBB2609779290CD70B +1AADE8D7C919AF16A5D642893AE1F772E173C462095B39DB38EABF13C06BDA920EC54F279439 +36B9158B1576BFD2C45FD1A306751DBB43AB8E1791817FDA8587D4ED76AB2B98C40674DC71FE +F187EFD86A5B137FD06311D5970697EED314AD6378573D1DCF485A3A5C19A9ED5EBD7AF6A82B +12A219F514A884731424D6FCB3A1FC97E6A6E764B97133982981F6BF3F3FC8B57D8E3A424B18 +C9644B5448B105C9D0AFFD4DCBB477F71F24DECEEE6674EFA2BD924A5599F84839FD49718539 +17287CDFBECC6417A81EF0A08BA1FAF72598E0665A8B9075D97FCAE661E869819228C6B41C35 +A21206BD3EF169341822EFF4F723ED8C2C2C469A3AB22E27FF496A98CBB3099F666EF41540B3 +6C6A4F6C28F3B3309E959C46BC092C41B672E931E6927A17D5084712A9E5361FAE4742035655 +BEAC88F81D6ABDDE4681601F5E98059A5E7BA0CF0F3E83EBA78BB2DFFD072B8D9E83BDB1BDA7 +D334177632BEA97BE24A6DF33A46A2A3D1F8FDBB51D3FDE50F22B5FA231E2270D233EBC8B148 +E22142A591922B01D4E7AE0666A39F1AF6DEA3CFB2AAE63A467912A99F9DFBF1EC6579F14DE3 +F6DE1FDF9FCEEAF2037FF3976031A7850BA5F13E4C2A27B8F2515BE89649F356F4CB7F6E4A09 +6E1D99AA3E1B84CD56B386CC6C181DA7302551900FCB9A56900C09545B585958034D9F9D4271 +F8A94CCADDE9E510891F6B5EA80D251B06782C86DBDEBABF248CD2C3E751132A895075200BED +0BA0BC836B828E49DAC3359AA948C0699F7716D7ED21322D0E17BF77CF137A131723C8E87E87 +E3C5C215BF793EC07940D924587ED51C9B995B420F28F2EEFE3BE9D83CA2D64309E6D8A5A0ED +576170350867EEEB2FDD0CDCC346C6DC4CBC196973D9DCB100AFDF7D96F86CBFE3B51301BC40 +B045D59C088275ECA95806ABDF13515D145E58C8C55C5406D4FA307D38C19F59624835581025 +CC2AADA85719C97D5F636AD548E8CE0FA55AE1689CD95E3C2A3F086C2011052B35CFEAEEC73F +98312F3E56267F6869C87D9F8CE522865E18782C989E74D0DBE41BEE33D9A3BE270F23DAB8FA +722A730E74EA938593469783CF4C90D9B14449DF59344B2756B5F9DFD5112A642BEAA84185CB +BFC7C3C3C451C068FE3AE00A6FE80333AD0D0E9BB32695EF8BE4D76638E2354DD2B62C1CEF74 +14493749DAF9384C7688F8ECD67E1D98A950F5912B505D2604DEC27DC13B8E42E450170CDDC5 +84E0E61DFAB7FE8C900BA8B84251E2E8AA84E0B3C2B0845397494C9EA4F986C6B0B53CBE7547 +33F69B3B7178B05CC00C741D9AFE8F93E6A576B9F8934BE87D02DECDC2E011E64E2D4A65A66A +068715F169B52EB7E936DD8FC40EEAFE98F7ABE1F4C1B2B43292121BEECA54B51B9CE9E9856B +14477CD972DDEAE4811B55EF4A7C47DF5422FE5632FC695222F4A4A1BDD6E2CCB684B79B2121 +DB1BF83AD5A62722BB64E5C26C010803D3189EEEA208F6291D7A3B2C03A2967EC7E87581417B +9873FE2ABEBE8232A7968E9E82BC6CA612F2FF1B5AA4308717B4ACA3AA3BEF50CB6B61579CD5 +1F8B3E22F62EC796D87615D02C422A46C154E89D5DBDAF00A9BEFE765599A6E1802F80D0382C +64D4AD0600BA0A0DB081E1C4D4F2099C000594DDE014F06780F172D095A49D9796A22D43B9B2 +00EDF646EA75B025DA20182527459A309C43FF187877EAB63ECEBEA0338139BABA3BB7AC07A3 +21B46F47576562EFA570B64B36923ED9581853C15CC56444935889C5662EF190E950E1687F2D +6321C1CEAF0AB89A0D8CEFC500B9D38C2283193A9EFEB7FDB40858861E6F3F950E4D49E1F56D +528DBE74AF3367421F70A1ECDD65315979F1DB1ED08B98DF75037BD045D5F11AFF5440FA5EE2 +BE5D1CA596AAC6B43DC50A258577D000208721E2771381300A4A6830233867B5BEF470737BE4 +0894273BBDE61A190A7D924ABA1246F95D46F2A52AF2421C328AC4FB3F20E1C35C113952D2FD +BC56E92FDE53A26F5E8F5956DF75256215162A5F55466CBFBF01114971D9B234E65E3359D671 +32BD7176D8DCED7A8787111C9C0A5237A58AC401A9BCACD140BD3485C3F9D0D58F0758AD7CA3 +E21CB35BB1760B9C61E066F565051E9E21DC04B3785128CFE8585993BF0C2757624AE7BCE23D +03757B88DF08116463993524D137B86C4062FF9B677BA7513D44CBA04DE64F75D7CF17E67902 +299DBD58C75EFA9D160190E0D19BA6B1E3AB7A25732D389EBEC46D48139A8F0431C748B167F7 +071F0E6BE059D44F6559BFC169791200BE457F970AED69EB371B8096FB4803559E9F8BBBBAA8 +0CE8D5748A0CC12653E357F13409C92E0FA355BDED05C3925CFC8DF7C6C5AF870D69F735F838 +712064D354782EB62AD20D7B93769E5E4F002F3F20EF14A4509674C69E9560DD318D75A8C894 +C39CA093B10E6DB272A69824E52FA3EE53B6B1FC3E65BEF6A690785918F7D82A823A624F5662 +59038BFBB2905A86E2C6C10C1638744F65AFE338F8873D19258C92634526FEDE3DC6B23F5DBC +77C2FA14967077BA724984C004F2E11F7EECB13686B5E76DBCF662C6EB016DDE456AD5646678 +60AAB9F8C5EABC28E64F894BF9F8A66021B92AAC265762E5C3FAC04D68A8BD8C34271DE54BEA +F2E83F65E8EB77F2B1A6ED7B79B5F24F1F0580B69A2E0A8178AAF98A9B7AF7FA0EB765C2F85F +024DBA01D699D798360653D2CAD5A0265B6C22F9DF867DA04C4BCB1DAF2E6ADBA473C60CB139 +A939FAD116876552CBD9DD632A780B6CC9B23E7BDCB4A3ADDDB56211437EA1068D8C4D87CDE5 +143E2355FE2707E8D35EA1AE2C887D5F9B87EE45B9E801A6A4FA61BAB34F9E9976A8D1500821 +B48D2FCDB1D26E748C7D0BCC4B319839C1FB168B0F79F0644E147E286788AEA332F24F7FE4E5 +CCFA4854523DBA2B17BA41D5208CC9584FFF6D38C5D1504560260FCF24E8E133F4327C9439AD +3D9DA6AF8E0178542BD1073B25A7ADD7BB77B0F75732FF7DF9445300FE72C4D5B371CA54ADD8 +5A52E69B5D6BADD56CF20BABFAC5B5205D555FA17599A99BA634306936EEBB70ADCA4D80AF4F +38355AF06752E476BFA729DD538210AB7159C64D1EBF56AFDC5636A4354D68809E396EB22943 +62062F902C0F5C564C249E0DFD2EB57AEECE46D1F23BCAE70E42259A7C21653389A55E1665AF +62255CBA64E81D26CF7003B98C9FC34F83C5A8888D5CE2F9B9398AD23D12EC0BF293C3822F2A +3F26D42209DCFCAAECE3C60434A415809AB69EF335D3934C895051CDDF31393AAEA9BF0458CE +DA9E6D2BAE2837EA7FE67AAB0C122CD930798954DAD5C728063F84D75D727251B8750FC3C512 +9AEA67B1978E3025AD3BA37E3A3ACFE1EF2DC1C3693712339463C97DD7C30A10733AB7B2F6B4 +4EBD653AC191F6FE14D32EE1661BCB5798D08BE0B4F353BC83F8A7570F87084E99F18EC2013B +65EF7B6BD3DA0B2E8A9581381012C10C4E7F34839F1EB14E26ECED24963040E17A2D692642C6 +6057A7DC8E8C896892872F23DF117D5B876F145501DF348158C4594514F98AE86277F0EF2A1C +81169EE3FF0B1509669454C9A5C05CE8617C00ACDB01C226D8585B561A641956F27894A6C5FE +0F6E1DF9BF8B28FF6A1DC368689C54543E6B184E1293F5E2F891D96EF83D30BAE0F8C68F26C5 +F75AF5C3FE9B294CDB2A5AB72050BAC995F3E317DFCAF8DDC98C54C6B3EF0DF2BB0A885C23C4 +2453F46C02E4FC4E89494AC526317FF10E932AA6DC316225775465A200EF77F7D0078459DCAC +E9345B97CDBDFFEA45AA523C256524E9E624F6E34DACEF742FEDF621063E96EF3A23D9C840F1 +4D9544D1501509236F4725E7246CA08FBBBF71529078716BDAA22F933D557D055016D4604535 +949463E767061BC85BFB0EAFC484DF5F2653C608EEC3155C6ED7E94B96C41363A559445E47FC +7D8E2C193B5AD455FC4C310FFE242528F25E0ACD90C4053CA9F1E02435F537B64C7ACF9E090D +11A6F7E610AEDE0EF76288E893559DEBE59E5EB153206665B211248359D6266506420571DBC7 +4021E802125EE76C90C502CBD28CAC405E10E92BF7A952AC8E773BC726E5F8A3637AF15F8F8D +8BE92CBA6BC7434BD992CF56314085090CA530B4A7F243CDD8DDE689FEFAE91CF386347A9D2E +26D1845EC27477B30D60DA47189AB457D9562BAB48C649A80E8088500076C5FDD64E5370FD11 +95A993400C3AE84FB09A927E77E7744A1C923BB0707382E6DE03DD436268F9CCEC76E3575692 +46441CDB252ECD31EB4A1F15771A51BE879938D7AD2417E0A762060D52A73E02B4178486925C +DAB694EA48D1D6E31025A352E299C8F62D7992CF088A9B721A9B8DD0F575223B9CFB46917FF2 +C540C5F7C0F7860F185AC52B70E66136E5ECBC13DBB59F5D9A3A01E8061F4304A10AD9149C45 +EC19100D7D0669E89A5D1D64E5C221DFC362EC066CCF23C600B777207E0F8349F1EB06B15592 +743D8F96816B821E8ABF470F09FAF1986E7361AB4A58024C25C3EB8BB41CFFA6EEB55D8F391C +B1A63601F38FBD16153ED8A0E3CF4B739FC875F4D658380DF84456D02CC030BE4881A762B735 +220E470E45CDED8BB35CFA2AC65B624642C076F22277AED54F10E995BE86E2ABF73EC9F7736A +D77A3A2CD847511851FB9554BF7B45345859115C39C5D54EA49FE7257329EEE3E3DFB7454829 +07BC2C0353F5B5D761CDFED08C82D2E4E60A43BE985C1BEA949E8F099EB795A4CEEF83E246A7 +8D14BB482289181D89CF74110BD996DE8AA06E96468237AF23CF7940E22D9772328A05057E83 +529789A09E10F3EEF0B1BD5262433C000DD3580E3E1A191BD808BE0196B64D32B8080C6C1CA7 +DBF5B9FC1379512D6EEE4756F2076C57FE8B34BB8F1B00874E40E35FEFAA9BA8B08B5251274F +20DC58F9091FAD16644EFD62EEF71F686577184F8A7F69823BAC1B0B6708B9DD31ECD26E4343 +40A31DE54AEE4B1B91B9B581DCB28D4CA7E7090EC31BF4C99C314DA273A6EDA4A45AF4A3978D +D0231AE15C4C882A25FE88C47205922393CDAD92B3429C9D1A0F520C677B8F13E8CBBED0D096 +E8E58FC04B60C2368E763B38AC1C4BCA4A719DE7A7064294BFDB0A6BEFA3558BB68CEFCB0A37 +6E8BADE4063B945182B05367ED4A47EC55BF85BD4526A747B38E5787B60D9A999753ABF21254 +3DD3873B0FD17170381E62BD0CF8AFD5B98D227CA272979CC561488538E6C5CBA446FF8A7A0F +FEF2AFD9C336EBF61E2D084F2B9DF0BA5A856038C66F8E3DC4EB3AE0D7C09D9E94A5D4C050CB +FF78F1A66114049D67BA290A05E283150D0115EC0979DF4D027267F384C1DCF627E3F75FD14B +476BC0EA62F9C2A875EB5214F856B0A472A5C3B34A3920396F9ABE661AD52A63710E827BECBC +A76EB6D985ADDCD035426CFE0B0BBB4B45F6B43642A980ECD93AB63B15F9BF91F30EF869F61F +A12B99AD2E4C82E3F6F123F2E87D1CAFE53D49C925E43052A7D00A92C445AE2A336B86488053 +602966F43AC392FA1AAA7B23C7322C60BCAEF01989DCDC4ED23A7C9285AD5A7B578EF9179E4C +0ECD45367EAD877EB91D35C60C19313BBBF178FB9219BE419AEA524368F4C6F1512B4D8C91E9 +72BD7281D2FD45A7770CED0CE4E5AEA9B46E0C1350CEDF41F10D82795C8586548F0C87A2CA33 +C2DFE909CC9894DE4157E1F235F80C45540ACE7E3882E49DE831069CA4044EF69588748074E8 +8EEBB4978BE2B81A99A10E50A769C988476324F34AEBAA6A922AE92AEFEDC99D64C574482A54 +5D4B63CE763C21A09F97B8DB56279BCC02DFF714897C6C6BAE22135FE82CEDFD8AC78DCB265C +1313F173CEE419A6A0720127A9F0E3CF2D9072FA9B4CA05CEA57E1490261C691CBA09CFE3987 +41F36710B544E16D37FD18557151E92E4AD3A35E4D5691643A28AA08055283E8E650C6167C45 +1FB2266DA34EAAB0089C6AB07B45130128AA309A6344DEFAEAF9140B86917135F61EC1B73AF4 +D4539F06EF19199C9774353CC80E40A463EDDB72BA49143258FD9F44671A6BCD74011E31338C +151A13A05A7C48AFE72556230F28A7BB48B48AE2175CB1F13A1FEC6706EB98982DC0C0A1E305 +85D974BF38AFC451BC8AC37E00C70817886DD60F34C60F6F14F418B16AA1E96094DE69CB19B5 +58B9A695E68431AAF67E9B2583EDA41B7F739417FA0909560CBF18544DD21B8FE559FBEBB3F3 +66535C6E6F98A5D2D19BF065F887A46ED7E5ADA4E19401EE4F8EE2C7B33A864F5C6A9753D537 +EAA0487B29A046F9C8D0830B69782C7D4B18EF1117B0A4833AB0EF27D06B3A5E3CFEB597904F +F8E6BDC43C31DC96EC9602611D357DFC0511EBC8F0C1BFF86A0AD600C2751C6F7D89BF915A89 +2B37698AEA4936CCD7F1B62D45CAD3DE3FFC4D5B505BB68180286C2FB14634AFB966B4492736 +D0A47EEB79ABFD62371969316AEF1D7F425A4FE5B54331E57DCA2CADFC338265DDDA5380DA48 +82E692987A405BE67F4780A12CFB6CA4D988EA5B10F2F2E85DF478590D66777E00093E73C6F1 +F5CC1F11CFDA0DF05665F3DAD623C6BF6E21F1870C6BA09BC8C37ABD60EE940F6F1D95B9714E +7CE213D000AFEAD5305BE9EA6DF6CDA20B1868DC8B05A2E63EA2CD3468DA56D7607C01E62EF5 +218B4BF7F28F870AAAC219AEFBCD9B04CA8C39715AB76525D04E097B22DB47C65437FB2F3F5B +9F21CBC59FA242457BCA213695179B1F833629EA1B2EEB5B55BE206A3F34784794CCDE0C1A60 +D407916D040EDFC3DA9BE7EBBFC410EF258D00372E791B93A8042D518330CAFDD5AE77AE8B08 +E4302A862C83887083D771393C317D5F7A947D6E229DF7330A514A9AEF518D61DD9FE3614995 +B200AEC477909C2AB1E3332AF6CA8538D9BB1B1CB6AF823FFD8A5A8D06110E1FBBB702BB91FA +B3DDD5CB5B10F2E18255F3846ECECA5346AE1A28A433E586B917664092053D3E391BDC2D1FD0 +38A8C430769983C68FAEB341AA8B0129FE991EEF1CB9CAC2EF4464CF45BE0B46410D29DC31E0 +7E6220CBE39FB84914FC22EFC665B00E00455745D60345B15F22A411439649331B28EA3B8CAF +1C5E241809F9E2DCF1C63CD22F9ED6B36A0795233420B2274036F1EF2572C47C09BDB2DEDB10 +270000EC56CC882C6CBF5453BF0E7EB04508F6E6ECEF159107C5B3C82EC7F2D15B8F34AD5F38 +E2377E61D1F29DEFFABDF983474654076BD73014ECC865BED67FE7EFE2E9A840663D8D2F832A +63BB242AF48A9052BF773C7FCDD994541C5C84CDC5D54775A03BD1F7B99598198D5E0F565344 +50FCE6D05DC2A9D188B604F6C0119A36210C7E2ACFBE64B636B607687905B1E386C3C980AE53 +97BDB0E06FDC31817F18EA76BACE834468493A23DA0601EEDA084899B3C57484650849CA902D +511344B963C2233052883EC5EE32E626A26D80F6E7336B4598B9F416B383CDB4BF1FD5FC3561 +CC84D4EFCE98E0374DE71A105223703351FDB6A710E391DF9EB8E501CF407F5EE850B3300AF0 +D24509F345470477C9CF676DA2E75BA999553827C9F6C6880FC3F47374663E30404FBFAF2141 +AFB0574BE4983CA3E4972E2FD703280CF342CAFEA7392B9F6BD116D49EE70702EBA690DA5E98 +EA9B6EC010EC841BCE7FCA4F7A1D14E35E8A295BCBC5262ACAB286F5BB134241D55C016F1521 +B3A635BA53E0887B7AFFD651AED42C940DA3532D1BD3EB48F46A1CA4838AD9E1E526FAB5A4EC +C608365B684DEF335BD4F9663338CEE545E4ADE24C55CD4E3E3816629216730D233FABC2B4BB +98AEA426B58E5A89396C066FAE92E448EC4E9F8B9FC0EA4BED639ACD92423E840B33811C8C9E +E8C91F5AD04274D5D8DBBC4D03341ABF51B5DC16366FFC5C3CD04DC4B73D05CBCC6505C45F67 +798D5DBE78A5BD308DB2B6FEAC584308D384C85A0984D1973FA810ADD6D7F34691FBA5D2D20F +E8EDFCBC2C4363E52EDD6DF254536368844377E51D3A606139BA0F8528E9FDAFA19B00EC3180 +FCE1689119DF6E625B3FA7EBAF670C295659D5E4EAE5092069D634AB724DF1B3EED7C05F9F39 +588AA8A24B024EE35A19D20C3F24A5D32B4FBAA72907CE3101FFB9E7F560B7EC82AF2CCA4C31 +B9C9DBA86F120107D20DB934FACA702CDF0352911817AFA37D00E34749906B87E062F86B2297 +9BB5F433E220ECF3E9805CBC679C43E363C6782F7E7EA86E94DA56CC6A7F06E423DFB561FCFB +E96EC4737CF83CC9485D13520938FD9A7F34DAEC9C6DA177B2FC43C3947D2B3DDC7479AFF754 +6FBED1D802234D0D1A3F72311130D14355E7FB09330E3E731AB676BDB6830E3721D18DE4F12B +FF2D3F101498FA9F17B049F69B813E0D8941D315DFAC132207853D6CD8A27CCE3FD847D950A5 +3A7D8B1EB8A129B854EEACB831E133D58D86F1412CE8FE97F92087D49E6D2B7BC6270D158E34 +102B750A39B6CCD344B221FB42BCA8E84053E4ADB57E4811F7C55D0F1403CEE5D6155FEBAA91 +4C79FAF9CB82894F85E57F5E9FDCCD93CFF9180E61780D1D39ACBD9FAFA945DFC735EC6271CB +6913AF9E96E7E85F075C10477641055760CD6959497D1CD59C849A3835F6AC3807204A28DC2C +DD5D9F4D4F590EF50CFA7FAD2641A7379ADE9C8A588401AC37A71CCFD7D3D5DB1D04BE0C7DAD +6F9526972944889D1492271110686B23DBC7B136C98EB002DF4D15A7A89587C9704F84F2815A +E6BDAA5E69DC2FF06B6E863CE1CC65B0972B4AB76009784CD90DB50FEE8DA79A56B16D713ED6 +829CA33685BD32AF6B6E2C15022E75E8B92ECABCC7984F4C828D7FF50D459F1CCE85EDA7EDFE +009DBAB05593FFEE424B482ECDBA1E20059CD849818DC50A972D385301F47FB7B6AA25A54EAA +E4ABF27E12A46101EDD8A0998D3F98B246A4751064B46295FB6D1A69DBAD6DBE0B0CBE4EB56C +A897B9373F23F8DD2E303633BA23C346B7128AE923CFA53830DEE9F7553AD0F9628A1426BCC7 +BCBAC1B4A2706E75F5092C79F663C9757C5267CD4E8CBD1B1EF055DB151636F3BF46FE3A111A +317D1E00B52098E83F9E3B2339271E459E1FD54C030D7E9A72C7626D7235FD9C01C19866909C +0FD7A68FB508F8178023A2EC6276CC8D76306F9CF8994695424DCB668EE91555A31A21CA80C4 +B01815B24A6B5EBF42E0A8FFC6A45405BF74BD08B02E53C1EFD46B5AF8234B023C282A9B0F6D +6EFF15CB543E88745CAE9D8B4A40341FDD8A459ADE10609FA7D09684D47800964397C3741B89 +AC6173BD5ACF8E6BC61AB04F6444A7B1B03065066563083DE0F14EB281E24E1CB2C1140ECB2F +C7B2A3C28062E509F6DAA5A5310AA2C1BAF351C4AEE265F3F0A81BDBBEEB31282045901430A4 +90B5A1E791DD63A4CC58A5B679F7E1F24CF8C455594D9A6F5F8820FBDF6549B8D8A89C8CB242 +ED018A2C0DE75379550CC83BBFA387F03B03B03EF94F0CED6969A127657107237936CD1E5005 +5F6625FC3A09E2ADDD17631972C708226DABD547952D6199C61D865EE7F9BDFC0E6D44EFE7D6 +F338064A2865E178B4D6116BFEEFBB7208ADAB1973C231C906A373E292A1ADFA1D735D2AF7F4 +E9C962FF21D09AA2AE815B987845E36E89B06FBA43CAB538661479BB99A4D7D2550714991DBB +488837FF5D93BFC876DB69F6870AC2FCFF2AC4ACED7725D8EDFACB1AF3A7DCE78714E687A2BF +2C1E599617D749E880D9246A72A7F35ABF62B08FFFDA162FFA7E7D62EBD1076BF22127DA7D4E +518BDD690486A4FA56156FAD55810A407579624BCB10E63CB479CB12FD68EA71692C22557D2D +CBEBE033268313388FBB2151BD21AB0CA08E75C12C585C627838F40171565BC205C1B975512C +4882DC53BA60E2743DE0C1998834A864A138CCA883D0D3C95450BEBA3CB1A719AF497F8C0D71 +EF3F1AE2C7911DE7B94ADC4BC81F613FFF9D987352E1C1D2EE59202C7AAE30852DB68B9A7821 +EE68329A8ABFDFED7CB9C91D66A2F671105EACBE454B5286DF35F0BA83DC85F45A040A4AEFE0 +C9F0423BDF570964D5BE28894F90566B54D06271C4220F369AAAD336461F9E4951001B3418A0 +70E483C63043EA00D7B121CDD67642A2C97B4B98F149809C6DB27B76927BC8AFC66996F19CE4 +389858205BD50BE0A9F6C4554F7E7C979008992820E68521583FBEFD7CF45CA4ACF4F4CA57B4 +A8028D6DBB693C78318E074BE61C5D54C93B4CA158025C5ADC77C8A6A3454A2CA452CC8B8502 +BEB1FCFB21B3AAB5088FA8968700433870AD1416A4CFC567890910590CC1CF639AE89438278D +EB1BD442B3F4C9BD799A99D4F00EEE56FC506AD606ADB282E9098BBA889F06DCE0370280ED09 +2373B45A28D0485EF254C809D679F78C2AC76F3BFD26F1DF4ECA401B124F7DE5F32257039793 +116E8BA96DC89D071F17B9C662E3F5B93F366CC10706BBB66141E5B36336E49ECA019125AEC0 +52B6F720DEAD49BEF57CCA3E72D3A3BF5890A092AADCDD3648BA860D3056B5705059038AD1F5 +27C7EE3F351813088E2825D4DE2F436083C56B3C7EC3A5A6EFCD43ED16C8EC859AB4B30A9953 +617C943FD96BF7B8B0E3EB7FB0D3EFAAED54F1A0C9C45E530FA5839E6B456E9208C3EFF9FF4C +80C36E7B448B7C4E06E2E7E6009532524841E56E9EFFD075B0239498592089AA4F6DCA0E5C0B +A20DA9811FEA15ACA0C9F4DE68A9F59C86CFBCC6668639F8AC088F954400A32FC587EC59BB73 +12D302FEEDA2E953464A4E2DCF3BD6E4F9B22273B9B31FA59F004A1E5F21E22DFF8C5AC9C2C7 +CE1A29290DA82AFD43519F1E27928340CF7687431DB1C3BF6A65A25C8CADC5ABEDB35ABC2B5F +0CCDAC9F3AF869599E974CB6FC3DD25DBD29E7F0F6F0594D057EAD35E9D547E93C0DEE8FECE2 +948DDF0CC4DAE28817980FA177DE92EC1C00A105D3094DEED0AE2DDBBD77608B39063EAD39C0 +93E2B3C0F317DC1B0C69709244C3E14FEA181EFD5906640065C888F9A69040A8D3C0F12EFE24 +BB6B9AB6E815B8D38E71E439694D6F090A32D5C3E880801062B7B8B43332C3F0F5A4EC506361 +765E0210925865E82BA9ED7FF2C5FE760F4E5CA479D3FD8CACA317943C3F94E54ED641FB2001 +F3D1927679F757250D9BDD049D590D30F8FFDA487520ADCD7493E0B67132CAB0B78E8C11AD09 +7FE230879B9B91BAAB964EF2C290A7FD81E771813B8F4D68E3928125DAA31A4852F4006EAB87 +BDD4038DAB4BC9B1105DC5DB4568628DA4AD561A4BF20BD0AA025D8062FCDF65840336EB20E3 +65D7AE6CBB46775F87808329BCEB4762ABA640AA8A36DA698FF4976C0AA5F7ABF3EC49F7504A +4523BE00D8AA8DDC4E9A2E4829D7A3DA3138061E0837ED37A766204878C8CCB980F0E5DB759C +7B055B703DDE97DB5F8C8BDCD15D61B060F308CCA8F54D994ED23875A02706FED920DA9AD5C9 +F7D7AB639D53595E90E1A15F64199AAF24262D83A0B88870E0CE63EC4CC7D356C843B8349FD1 +EE9396B408F45FC71DC866F381CC279B3FCF9372FB33A188546AD25865762ECB241163A287D2 +E94AB854A6DC48C1BF7A0E650CAACD3AA917A0116A2C13A619BEABE4DD2D40F368CC59C7EC11 +2DF46E992B87950FE372D26C102072F5A5D2F5089CAD638ACCF0E5671EC812F547572A7B13C7 +03D628663196EEFDBF6863AE19D741F4DE0CF0959A00ABA3A84BFD996AF76FB09B9DF4E6C2B8 +A7FA3E5EE2F68AEDBD57B6E3144E2B6F1EE4276A057F87E91999E3D2C018396014DED4F7291F +0D0B2AE2899A12EA25DD39DD0B0D1C12283CFC1ED9BA1B2F49C8B4CFFBF87E17C8B876D1C12D +F7DC8E95897D95B27866C3660D77BADB655DC357694B853CED876861CE1FBB9D7549C36FCA1A +86198D5E8996C9B9E39D9F0628611781434D92B071EFCD4D4121D16B41497F92A4BBF284A2D9 +EA17F3A1A1F7225E6AB8AB174C3CFC21CED764E98E838BEBC43EA63EBB90298D06EFEE8EEBD3 +9CAD76AFC1929A754BDF38C80C70153491E7402038EF6B019C145A3EA55019DA8C724B55A073 +42ACD3EF528FEA2AD1AE064D4D28C6EB88D69BB1D294CF2665EEA165B1A306EDDE0844ACCB48 +EF15D997A586D2CAA328A76F86AC9F801CF02CC8303881C5259B8BDC6624249FA562F282D148 +00622E571304FCD6DBF9B68911A8B6FC0E547A82CFC1788347495B83EF6CDE5BD367AFCEBE3C +1064C22216BF3F43E2723DF53DE099462AD589E88FD14745EA544EA1E82934A9E881CD19388B +8652BB27E3AE5D03240C8977E13DCEB8DC36446FB28017A3B25C0DFC7711C8D4EA42AF114438 +4D06EEC5FFB8B15D7434DA51C2290C2789A6DD1F31126B849C5F351E0C8DF2E16DE5B0829B0E +6796FB3D0F8CCCEAE1A99C312A70B0AFFAB44AFF6A7E5E2DD75B70BD1F185C183686711B6C46 +B0FACF07C009A1057B85BF4ECA387D8083BDE4809F9DAEF0D596142557A79BBC31E9A0301DB9 +5FBBF8DFF73E2F4F6790B81CD12173F7D8809299C0C8D15CA3930A5FE3144A6CDEC5C35BAEC4 +FB1D56A7758AD79082445E55C4F8D182BF60B44A54F7841325A0BE47FEEED83A9C3B7F8E4CA7 +9253B1783B538AD3F0EBBC9AE7F4B4A8A4408DAE6792C7F42FBF1C0FF7A939BF6D98F7051672 +9E1F744329DB305AE203DF282E98584B2667E5DE118D4B0CFBDDD389892AA2E3D876D2B2F6D0 +545F257EF74816DB618AA970F832271D3A717306E60305D3BC31D52E4C026A21CBF346D26D22 +7BD99A1C6B7FC049DD1DFCB786E1562D3EFD605B7A1F794620125B9B7C3B599E4DC5038F052F +6B3481C7DD452E8B48166783696CC6FE2C5924DC7077E8A05FBDACA6C845AF8C29CF8F71DAF5 +213600116F2DFC0CA73BDED5522F761D61099B9A9687FC55A2C4D6976934DE13E42B2EC406AD +71CCE08A1458D89E7A84915C78225D45F0564059DFF9FE9F46F08D26C11E70EBF07892631FC5 +281D9DC56E5B77AD90A9B5F6E0B3B2FAB6D34DF9147BCD944C648D5D7886F68057E046631161 +F5C6EEF28C371E5A553B5FC4428A810E24090481EBE1241856181A832ADEF3A2B2DB82A30F1C +FBE9B67265585161DD4612D389D467FF6B345EE18C408DD465CCA8929AFA4651DA57EAF51BA5 +727105ABE8211FA5DC0848D99A7787B3BD564DBD6B4A5128685E6192B2C3C296A714E005EA80 +C7776552BD10B907449B5DFA4AA59CCEFBA009DB1FE5ED4902BB46B6EA478914298BC09F6F0B +898753A400CABB00451B84E28AFA5E7C26DCC636E7E39511AA8748FB000237FF7B20FBA3D635 +19283AC4A8DEE3F6FCCE035A7CB2C6B14B934652683C2E53E3C0CDD06B6595ED6B8969DA334F +22F247A2DEF692925FE313BBFD4641C2110908062B87FF26202677B332EB804B0AD4DD6ACF0F +1F7F032764D1EFAE6BC2CEF22D5E2CDCA25C1F3C8FB46D9BED7C8F97B3FFB593C9F52DEAF26F +4F8253B3AA0CCEDECF646978341ACE6FFEB93C67C567C100734F4DE2502D26631F7A50927352 +4ECB02E3DFC87549D78775754DE11570D3B3FAFE854BD8FE2956D5E4DB2EECE1CD7630E0EF0C +B29A61DE43287DD254AC419DA0262E8DD08B51FA9F4F1EE2488D755681A2AC7A49F165E46E5F +BF76156545F35AD3EC7CF32494F1A66AE0F97E17A60C9799A7861CEE0BE19F0B5C3DDEA8B68F +7C96DBC12905E763B1DF1E42282ADCEAED38E95FB0ECEDA87B8C246F89A04E5C03D8AD4B716E +C583DF05FBD527AC75F8A09A5DE9DD98E522BEB66F35F8E695AD289B373FAAA4B41B7453F2F0 +B48C8143339B8184DB8C4ABE007A8B51E1494BE8DC9446266EDD6156CC406D60E092B366545E +7A5B41E98CCDF693DAB437D89612B67D213BC61E0FF49FE42404501093A2E22A68485A9ADB58 +CF8E6A2C49E3043D29D01C34CD05768AB927531822A65D30D46518C98E19618704F54DC7AE73 +C7CD5765268B14D51B030644D9F9A9E1FF4B1EBD2F0F529BED14EE0903E07224F9755738393C +EB89E8CE0F25E3B5BAEB9ABC351A15B4472EA0BE2D0C8210FCF7C4FAF31BE0CC0BE5170241B8 +0C22EEEBDCA7F04345C03ADFBA730DCDDF24E2FE6EA788CFEB1EE99391A80E96C81CF1C83204 +FBFB8B356DCB2C870BA26C32B9895E25E56683F9FCF3A5B04A180305A4E3CDBE114465E59D86 +BD2DEA02F31F3544E4DEBF8979F412618C6E7EA559CC4EBED0AF27725A6CD2F62F3EE55FB3FD +6DD9A72F5439DD6A8ABBA27C6DCBD400EDB439DCD11C1EC3B745159864F37301ABA5433B676E +5822CAB93A30E8147D183A323E7A012A84F3F1D2FB847F9A69B2B6FC311DBD95D9B74DAED88D +01A959C2611A82485B7B0A07683F7F2C4BFCB930880386C6494B20EFA76F9E5C5DAB0649C3D7 +7948270089DFB5039C66C4C01CA6BBFB3F4C5467A975073BEEF7E4F8BF87915673CA63508FFC +C9695E74C84531F6FC924F53F65358CE55629362CA0E174CEAA3CF90E2897635A730D2A823C1 +6765BEE65A869CBF84B38144A723858A58ABBCFE90C0426A36DFD7169247FD947AFFCC52F74B +133BE72E9E48ABF0BE2D678929302E925C06F982267E8E0F62EB65BE0FFCA9F322510E0A7AE3 +D4E2AE9D4A3E55664CF21851C78194FB66E52C69D21B02EF9797397344379B39CCB4809266E1 +A4448BE71612D861FC1980802359F3218FEE296793C425ECC33944F0F6611DC2715F169DDB2A +62021F6CF1EB186EB57DC57C41D617F06F25D1E54C8072608977BE2C79108BE2D39B16DA6510 +D8132C381EE6077670FB06CFF41CD79CF2A003BA9B541F99959EA835A504E0A5C858C53A26B6 +6A94C0317E2B1A2C675C20B0F2CD2815C6A409D1286E4D89CAD76811EF5170F895F47FB3CD69 +C298E7170862574789663C4E63BA596FEEA10BAB56AB6E76E8A79C2DCD73141090883224085B +57DBB22EBA1A54DBFA9CC807FBA57560860BE42AC45BDDC8B09545D16722D3DFCB7D2FA417E7 +2E7B03C0A7B3D3855DC0DE17A86843450C1EE1472676784461E2AFFA3036EECB2C39F01B1938 +CB8547D7A0B67A72D6F8CA1942EDA0BE5703436957A31F16A131E880477E45A7CDCEE2659DB3 +8525BC828DE62AC7C51C0E25B319232A3B9F51F06176AD5F953B2103721073933D6EAF73F3B9 +54410D8C0E5566C414987647FF3608E3DBEBF646563A5CAA78270D2FBEE37AA297B2380F7A51 +836C604F545E144A5A2293D93A81A160F4774DC6E771C9B1F95D4181DC69BB9E156D99136367 +686EEA707CE6628B4583B3EAAF48C9B2D037E504B426EE2F0ABE95250DAC1CD9B55FA7AAAC5E +BB7664EE505ECB1916FF70D924A55D6DE6330E6EFAD3BD0FE3DD28256E0DFEBCCA7FE09F9F59 +284E26F6BF9F8A036B915E9A77E80BCAA8CD86F685D46AE7499D934FF24F40469EC310611AF1 +9793F5F65A254DA153024B5D7B8CF6ECA95AAC1F107E90E69AB7874727DE8091C64712442627 +A973796ADE938D8FD0E96FAEF214DC6E630E056C7B8F1C8C22C776AFD51CD6D38362ABE39BA2 +7291EB69618420DEB6C349D7FEDBE30B2CF5B2DDF66EECBC7881EDDF0990953E8168F6E91FA9 +3FBD602FC2DD75FD1E5DAADA55BD6CF6B846603A23D986DDE63272397E4648DB3DC07E37F251 +DCE7D1DBF63BF22BBA8144400E75229C782E68F74E2E498B4EB57B591846FCB5DFB6C3B86BBB +06BFF618A26A13FB43C47356372C86AC32D91CC7D8BD6A56B4C9F95096742DC18B1A46A7E589 +80EA8F04AA9DBE528AED0984E251C51756A31E174E33FBC26BFC82AF2E7D70959F844CD675CB +79C788496B1CB2E85CFF38C0ED4A892C952AA5B65BA5DC654E9D5A69283F9466503F6BB6B098 +1A6A3AD00BA75FF4606FCB347D174B7B5913EFBDBBFA638A0D24230DDD42BB48FEB02C84EB5D +CC1B9CAA4192DE99E213824B0B070065F696D2967A0FD181DFFCBAADFE1AF835A6F5BC1F5BEA +740BEB6FC69C8583E6435F0CA0ACD317181AC69D83F8125FD2B15BFE72569BF24587C7F8518D +6171C8A9672BDF53567466F527A9AA5BC16ABD73443EB3AD918DD94A66374FEFC420CBE630B2 +9F71B95359D20E8C0263922E32BC5B0D63E6E4C63D36BE376C86182CF4D18E28CF16C43484EB +85004BF07406A86AD9D105199B3126D9128E426B176719D99ABE33B203AD99B41332B32BF99A +C21DAB08282E5A03B6FF82CAD2455D7C0DD3BB0AB14C52BBD11835E9DAC6785BFCA63250C4AC +59A22A574D43022E94A71A5BC5245B1A5A28A72C40FBF4A026442B0C1BCFD8E1A70145620FD9 +3095AC9A0794D58501FD349EA25955CE6A566C64D42D5B02E3090674CC7DB1E280DCBBCADB88 +BD9F65349E218056D375018385A710BC79F38949E23A6C01062E03142136A1277E2596AD185E +9A2E371F0CABD0C9C1A6E4BD52C58CA8F44A39CAD7E8E0616FF013426C77AE3F1FC58C5F0D39 +124F31764DC914A98D5265EDD11F1490DDE96316DE572B70CE94E299A9A19401CF5EAF88392E +2E5D80B15248EEB0D0D8AFE2E5D356BBBB76671E926F23F6639F54A8B525D25B086A6B963456 +C16E49EB07B884101C732D6E0FB1AA44C852405AF2805F5825443C6A48DD7345C7C73B9BAAAA +ED787BD52706A874D78436629FAAF75CE00240611E42B724C9B250A8C37F7C6527F3B6C8AE5B +0709B73576A71C1E92F088F0D2A21DE7ABD9B5FCA125AD60D2BD4107F1705F8DFD10030C5BFD +9F26AB70309F57201ECEDBB599C8DA77F2C491BAB83DEECA4D0530C8463D482B17B989A2D139 +AAD185D6FB14C821F392E740FB48ED141A979F99DF7290B8BB6874CBAD71F4473543B3EDD53F +988E94E0B8B90B32E3F24E50E50422545CFE3285AFED156B37FC1161ECA8CDB58EE222DAD2FD +03265CA321E32BE7D60963AE53FD9F6986FEB08050ED203ED1B0937BC7C8DC88F9327CD99B7F +CC591B9A8AC57CEEB74A74699FF8628E4816B2D1595797CC3B0530B7898E17B278DD1D33787E +602898F772C08FEE19298599C1F33C4B4AAF8DEEC52774060F27A7CAAD950C3071C0D57C9A09 +60D09EF928C08112AD6F4F443ED245D4B4F8FD8C5E4E45EEB34D8A99C2812D4073F480A3A27E +6DC6D266439974A29F5350B1D06B2592A38522A88A3EFCF3920B5B3EA9E88D8DDDE0B87DDFE0 +5A4752CFFCBDFB2F91D2D6C8668090462ECB9C27C8B7A41EAEE22D313EAF0E9A718CD6343C1B +8B9616EE70B9E6FC352A3B2C0C324987F2F45D8BFC804BD051CFC916CF42DEE27CA9FA9F614A +87E6983E0601B839E1013A9F424DE21E6A648AEB4FE6399F2EAF6F8047534E71C93E73A2D684 +CAB952CC57FC2DA80B43885E4DDC5A7BC2867B4BAB0208DB3CF6165D92BF5C9FAC9AA0828090 +B39D6B75F0F9555132BEE8B1E7CA1AA2410DA61996374489084BEED29206778FA2C0F72DD515 +57897A37CE40AF56C980DC69082EA704CD02DFD2939FDE8C329B50602BAE656C7A528840DBA9 +A7ABDFA243B507E3246D29903DB7E7AAA39F3FD2BC8B96BEDF7F8BBBA0536F0205100E9EF070 +5BFF93D9A1F3FAADDDAB2DE0E47D4BE7812FFB816FCCBC0B0159C8E6453A139F1998E7A4CFD9 +E0233EDB5B6FE5F07257578F6EE55426EC0C8C93C69A770E273EF2E4AD5CE45085A473D26F27 +491B48C1C6AA1966CB5225BC969AC3947ED7430D28A6CF4847D8E19D268C0D9B70279FBBCC7A +575A47B897940A8E030294650543A2FDFCBDEBF6C77FC9B2CE9F91DED7A6AC1A896380F2A8BE +9AC540CC4D1CBE1B1D9C999D0F333B7F799C676E3E8F150F3F9C72C745480D328BEFEDAA925D +BA92363D89952F9AA594FD97AFE1F9E2246E87946F33066918D60F488DA83FF2FA7DE5D09C15 +7653D1359268E64E85C5C392BFC91F3630B9D05866E5C408CC2C104B557CD22463E8C823025D +1684CF7C5A7858D66CB84578E52CAAFF79CE756C90B5F470C9B1AED37CB98786A5E755FA4EB2 +FB84F292E3A4514E053B5A76B15F47115422E280CA6D32BE9176FDAEACA3823A6668306E324E +D9094148BB33DBDA494E9FBEC43DD3C2635CC80C128C9241185EA3EA63AA2A28357491B7ABBA +9AC0A2C6055CB9750084F25052CE358D0F20AE8333C8086940F6FD1096B0881D7F9BAF065A09 +48F435F7A8EEE5ADBBB682943F02DBEE4910B82DA0A2AF6D882367C023CC2374743CAE883CFD +3539F2BFF4F85362A5137A52F37FA39AEB3FBC51E1E0479AA90269CDD9C78CAC6BDB406FA617 +D6CA98017C7C118D41B8E7ED83ED19EB56452FF8F85E575ECDAF041A11F8C42D6337C99AD3D1 +F969AF0A468AE0C039A908CF5C7C305DEA488C7236ED6615F6FC00B31C3397970A70156BBDF8 +0F7670C281DA4F91A3068C2341A5C72B50512E7838F040244916C515B7294675DBEB24EDD2D5 +62562AA000D3EC44A450723AC9CE47764CF5CD0449C57A87D3FBEE6578EF6BC38CFDF6CEB898 +2AC46FFAE8C46744BB16A591569C9ED0313AF1D74F74498C8641ECE3D4E5700090B24143D850 +12A979B434DBF727C551ADC4A92E83AE2DBDEB1BE5D3E4EE4F4CC8E24D364D97DA7235CF3BBC +DDFCB674FA2BB5FAA5B0B44D33806AB7CF55EE14BD8B8420A601F2C187C5654B0020515D038E +44511D345CECAC09FFE3FBA15E978BA349F640ED877F9477D953D694FABDE67AF5EB9628ADA3 +706B1B00E021BFD781F108736190102510EC32C6C095D906E285436BA3E4A886CDC1E735DD7B +FB1FACB2232D40EFE4DA9B615B41D78A210533CFBAC9C9E0501C89AF99222D04220A58615321 +8602FBD2E9ACDA73788FF6006E0F0716538C9D42649D9E6C01FEBE34AED4E3234F6D539BE839 +C02A4276EDAEDE46B7EF8EEAEBB3A41A8ABB0FE2DE203CF045A79367242757906BEB09E4F326 +B1FE3549503A7C50F2D3C55F29F53C50460023607FEB6B8357076658C51F95CD04761BD6274A +7432A29980D61726251908CEA06F051C93D06076D59B4C75114DA17EB3BF2C21EE9B3C492C84 +3602C5DFAF14A6E966A682A688E536269AA4C6CEA99A628DD031CB5BDDD969C2931F020E965E +ECEC7244BE926B52A5E87A14DEB349DBA25CB72D85D6051EA0041EFF57F1989F89EAB37FE915 +4627A9179B86F77977CF48121D6F7D6146FC34934D5B8BD1F6C9840EA67F39D542F0B57474A1 +544C8A37724D3F54C9E052F9AD98353B928D8E291F2C6C0B8BC3A96D7AD517EBAB87DBBBD6E5 +7EC3802AAC922DD747EAA33AA1A4B9236C4227423DD370294B97EBD7AD32CD94A0D8509F9DEE +DCF879CC9203AAAA49D3C498A6A32E5DAD2D96CDAEA6105F2213B728AD0BBE8BFF1EACFE00CC +FA0020A9DF8158DF67183BC2A9F48BF1F5AFA75840D70A4A8E429A3604D225404CF91E7D8458 +AF692D65A77EDB1A875E3DA5ADEF1AB6543D695D6787DB55B0120932FF955B72446CBDD886A2 +11D2F4231A3D567634691D5012C6DD785BE88C858C98E5FCD278C1CBB2D87B30AC6BAD91FD53 +0654A8079C827862F66D3827D4573E7AA613B0914F5038912E0A8D84FDA8A2684D2E0CDBE216 +D6D0B493072C64C89DA68778DC3B2DF390D40DCE029CCAA289DE69CB7D7361B25F346026A54E +9CA48E798112F61F0A913408A26ACDA93491F2BB0E3D9CF19BDDE5DBC7EB7A12506E595D3685 +01F406DA8804A0A29908B34D6CF9F9A770EBD02D79280BC64DEE0E3224A071B58BEF589ADACB +9508D559939F8A6B4F1AC432A145135B1C26F06151E549603ECB9D4440FC9FD5FCFFD637A12A +5FAABFC34EED78F9F3F3D128750DAA337F1BC1ED1A67105D84249283F7ED41A6482210960BC6 +D4ADB01D2BD525ABF3A112F5BE2936B7F1AA766B8BA927494FB24737B48C6DAFB92FC1405327 +DBE5E3C034702FCEA0F06EB17267BCC167C430E64714746DE32F1A340FD1FD4310FEE880F52B +81F2B0A36CF47307EC2F55113FF5FDD725AF223F3B8826A9822CB97BECF0DDDCC91F3CFD7847 +9405F2EEDD384BE61FB0B8FCBE265DAE1A17B62F97EE17F4889E2DC32577F58BCC4278D7BAF0 +7A7E333863D23540A769ECA3454C77680D56BB84C4297404335277C756AC6718F0E0D35A223A +A6A532D2842754749A2EC7FAFA39DDB8A31428F275A356DAD044021E04D4AC73555E735FDD6D +3A230AC08A7F912068722AB78EBAE21E95E06F084031EE9D811ECEA9DCAC9B83AC3C09D98915 +C60E0A952CD7DCBC1FC6A91C9A65111FC654E2234197B9027FE40944B3D32CC6059F1ADE31E3 +2680691ECDF85F9CF4A71002CD57C8961D1E0E68792A420FB694777413CF5CA1CA4A7649B47C +11D4FEDEBDE42559583D76185C45E4B8EA15C8A6ADC41AC444FDC040A53BD0660E16CBCCA67D +631831834D7273FCC30CB29CE64E358D2C18C09A1A6A09DC28142F6046AAFD3FC6F57D776F42 +DF68DF5EBFF0F320AE670E29ADD66921C8C92CE118EA13B4C6872D5BFD6D4D345E0C1BBECC95 +9226F93CABE940C92F29FE91F5F95D5680DF6591929F6EB9E5BAB1B4153B6031FFE52D128C7E +1A68DBE739C0DAD7C78A13BA8F4C6C06AF57DE3CE741EE6E07B5B2E4C069CAC16CC698D8F22C +54D58DED20C691D44B6A809627B321666FA44F3B936FFA9BA950408C265A3BB1DBA6CB14CAE8 +E0A5FFEF6171891D505C67895962B5C30370371BEE15AEED350F45EB766C8D6106FDA98CE3C4 +9F4A4C1CD11805F68AD840D6A92017CE5892E3A390716A615AAF5F2882BB8BDB1680C46108BF +DDBAF6E71B22F42D1881E5BA1E4D66B9E0E6BD475EB9DB4D2B97AC3E19139CDFC1E7DBF48D9D +A9B017A641B1467414981A0678BB21385F4484DD545E3E9D3CA48B7D7715A6F479995E626B8F +CD5C5424805DFF569997FA19DF8847FB110B152D93E6ECFEA9ADF5BABE27CD839F3DB0591163 +CE31D3A768317EC1BB9AD92C80AAF74F92FDCD8922BFFA482BB52693DD0B35D68DBD6BF416AA +B96AEF3F2DCE8D219E1B6C29E79948DC36B8E3DD3CE6F91EA2529B735031ED0B3F3284EB112F +CD27A100866FCF0EF4EE9160A94FCA76CA0ACEB4E5CD1CFE858D572824A7C2D02A69091C9874 +C76907A36C69CE72831164576F47DEB218A8402B201ED32C1257F9FB0688C0B6888A00D65353 +9EFF48E79F992EB0C49A8BDEA911EC189B683DE6719DC72AADA0E85CD2382ABDCB299D3F22F0 +CC0EB2656F9736F804FFE60017B80567584E81537768BBFCB3C340B32033349CEB1BF0696063 +66453480143FF974E321F72AD54F295B2F3A0CFA425D5076DF71D52D29B7AEEA6D0E65BAAE5B +E2CB8112307FB564753C15DFBD8D4E113047B46CFF711B89D9D198D5933418638265DEDB9A0E +A048EDADE622FC77AAA6373CB4DFDD46922D947962B3521FBFDA6D9F78DA713138040B8CDDF7 +15F17D0888D31DC9DBA449BB40C976ED95C2E5FCD59A2B92F79253A81FBD89E8B38FD8E2EAEA +BAC1DFBCF27F927D636938DE30DE8E20F504AABE7EFAA414E3588DCFE676FC313D6A1018981C +E61330B8418A37F32299F0C7AA71DF84C0AD274CEC30019D7682CF475B23F3A610CC596A0484 +E74FDBDE8315E6BC0BA6EDB6608FE7C9A985880547FFCE3FB467389F3AC640BF6A4509C636B7 +3A4D2413AC65B363F2CA2F169F37D5B37056E7C5BF9F20AFDF7B9A1AD03440C87FD6C5E823C4 +5B660588D8DCD84E7C22E4EA035DFE5454F259EDF9FC9E945C66DAC88D88A913991A40B9B47D +A26FD9AC859124FA61558143BBD37F36020CE3118409D0192C47FEC906DEAE18CC4B1C0AAD27 +65DAD27A0653AAE34340A65A9A0DCD36AB739679D77313B22D29046473688CF7607AAA3423B9 +E24EF09583C253AC1F2353D15D0D0A008474909B6166AA5B7D3DAD53FAA24AA0ED65700E4E58 +EA73E4477AFEC3B11EF98FC620EC5A55E9A647B538132EF80CE9CFAE7C90A1FBEB973512BE78 +55A52B3CC27DABE49945C56E3BE8B6E68CD540AFB89BBDEE8B8B96438D8D8D5564A32147DD68 +69D4B72004633D55E798BB3A5EDF83D23D737D6B50635C58618C9859C6BD64FC6E7352F61D60 +B7DB8E1E59ABECF773E8DA617C72B68328C8D3B8ACE26ED8BBC3FCA6D3DFF6A843E1FA9C96F5 +68FCC5D23AD5CF001709CF9EA938344965F4C1B931F0492FA793CB9A71CEABD64426F7D323BD +B6C728A36D4CFD7DCE03A0ACDA7B557EA7BF06E45D2D54A85A36C518EFD49D1C9A6270EE99C1 +E666A4CFA23470296FFA2C56C6A3BB23DA3964F02460F20D8BFD43E493C276354B8678ED9DA1 +507443412EDCF61659F43E7D9F8625777CE092D38250E864D25A48A6B8C98416CCE4E7FFD54C +67A2B51D5A60DFBDFB5A19DC45C698704E31F2E0DD5576FF9333AD1E46371B4494A4411D562B +1DFADDBCF82C19D4926C7E2238E6ACFA0CBFD02337300EBE3E976F9A9D609F3CA98609BCB564 +520E0D51D3571C02B2949DF47E5D9C25E8BC4BC8F6620EA707AEC61C2D70C0C47927DA80AA7B +E29324EFAE97E59A0B9B75A140BD1C361C8ECE026B34A7BEE9C573D7A92520443D3DA72FE395 +9A92FBEB7B5DD5CB122D5954F05CD1D04FD4CA63199FBD317D46049B22F537B79E0D78F645B5 +30B1242878AF90211A763A4EF0E91AC56DCE00D139FD09CA6B61C6DDFB1EDBE60603D15BD3AD +1365EAB06FF4AF14B1CC12BAA50A4C3ACD80706EA782EC223F6E720CC03263D4550B6CEEB5B4 +38B187126A82681421C1861B66E8DE4F4909F67AEFA5A0D40BF3A612FC31244046BB2A2E6186 +E538713D59D9AF8EE7B342848404FFF3DD6C73C55A1E99C7FA249C0D9E83055884FCF8BB94F7 +3107AE38F047417BCB044DF04DC65E6C92D72B647AB7D7435A2DCEB305F4DF646A2E494E120C +782AC0382664956BA6598D4EDDB7F44CACDD2EBCCEECD2F321B405CC21F84E565729EF75D79F +F4500AA56E413C248DE40942ECB1B30B875054B13B7A408BA52E85E217B4BA6F95B0A513A308 +0D66CC8F0367DAA46875F5BF238253D55AF8CB05A49D7B2CAD06ED649372C98AD8AC3B6B9071 +A89AB0E7EB8E19B86680400F9AC9F012CCB505D02AD42100572E62BAD6CFF40516387F694F7A +5CD8EE5F54C1F6EC3F7B11ED511829BA0C79A05EEA8645F145D644A2C9F8E1A7E1618A5D25A7 +C41CDBF41496703CF5360CC9621AE428E4771D661098E6FE1842E318243DE8D2326686A121D3 +1956662F17BF25E3E1E8B25C5C4D7EC78799F38E1A7B106619BBE22ABDBAD5CE28DF611BA7F9 +279ED0570E29B2CE33BCB86FE51399179ABE5F75D87B67305E54182482AEFEB06C687E3DBEFE +85E19B77EF9ED9C8321A347D33F92EB1A117AC4BAA1DC070F7E393A82332618DA79706ABBD06 +707D4050015C93B86ADDD726FAF46AF93CDBEE0BCDF78127BC63DC6232DF32B47336132418D5 +C2AD91D766C80A39C21EC167A8B94795B05CC8205CD0CD26F6B243D057F046E562EE59C62A33 +25DD24BE8C054E55BF07E7A0247513F1335F74C56CD26D2EAC7A7760535E89BA762359F1AFB1 +F3C5A300002C2BBBD63B9D0362E4DDC8216203EE849FBE965B6AB4F55950FED6C3DB0E8659F1 +99FF347CBE158D345A8A318FE982BCC5358CCF0E9E3C7472B293AA703E51C1934618D4A3E4E0 +FEF880A943C38DA3AB5AB1CBCDDC6522007ED3A05C978CEF8567EF14A00CB384AF7A14DF54CD +9DE09935ACA2ADCA3CCBD7F4843DED71A1FC42A0C0027CA6214B7F8D5F616A1BD4CE8E5463A8 +A3370000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 + +cleartomark +{restore}if + + +%%EndFont +%%BeginFont: CMR12 +%!PS-AdobeFont-1.0: CMR12 003.002 +%%Title: CMR12 +%Version: 003.002 +%%CreationDate: Mon Jul 13 16:17:00 2009 +%%Creator: David M. Jones +%Copyright: Copyright (c) 1997, 2009 American Mathematical Society +%Copyright: (), with Reserved Font Name CMR12. +% This Font Software is licensed under the SIL Open Font License, Version 1.1. +% This license is in the accompanying file OFL.txt, and is also +% available with a FAQ at: http://scripts.sil.org/OFL. +%%EndComments + +FontDirectory/CMR12 known{/CMR12 findfont dup/UniqueID known{dup +/UniqueID get 5000794 eq exch/FontType get 1 eq and}{pop false}ifelse +{save true}{false}ifelse}{false}ifelse +11 dict begin +/FontType 1 def +/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def +/FontName /CMR12 def +/FontBBox {-34 -251 988 750 }readonly def +/UniqueID 5000794 def +/PaintType 0 def +/FontInfo 9 dict dup begin + /version (003.002) readonly def + /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMR12.) readonly def + /FullName (CMR12) readonly def + /FamilyName (Computer Modern) readonly def + /Weight (Medium) readonly def + /ItalicAngle 0 def + /isFixedPitch false def + /UnderlinePosition -100 def + /UnderlineThickness 50 def +end readonly def +/Encoding 256 array + 0 1 255 { 1 index exch /.notdef put} for +dup 0 /Gamma put +dup 1 /Delta put +dup 2 /Theta put +dup 3 /Lambda put +dup 4 /Xi put +dup 5 /Pi put +dup 6 /Sigma put +dup 7 /Upsilon put +dup 8 /Phi put +dup 9 /Psi put +dup 10 /Omega put +dup 11 /ff put +dup 12 /fi put +dup 13 /fl put +dup 14 /ffi put +dup 15 /ffl put +dup 16 /dotlessi put +dup 17 /dotlessj put +dup 18 /grave put +dup 19 /acute put +dup 20 /caron put +dup 21 /breve put +dup 22 /macron put +dup 23 /ring put +dup 24 /cedilla put +dup 25 /germandbls put +dup 26 /ae put +dup 27 /oe put +dup 28 /oslash put +dup 29 /AE put +dup 30 /OE put +dup 31 /Oslash put +dup 32 /suppress put +dup 33 /exclam put +dup 34 /quotedblright put +dup 35 /numbersign put +dup 36 /dollar put +dup 37 /percent put +dup 38 /ampersand put +dup 39 /quoteright put +dup 40 /parenleft put +dup 41 /parenright put +dup 42 /asterisk put +dup 43 /plus put +dup 44 /comma put +dup 45 /hyphen put +dup 46 /period put +dup 47 /slash put +dup 48 /zero put +dup 49 /one put +dup 50 /two put +dup 51 /three put +dup 52 /four put +dup 53 /five put +dup 54 /six put +dup 55 /seven put +dup 56 /eight put +dup 57 /nine put +dup 58 /colon put +dup 59 /semicolon put +dup 60 /exclamdown put +dup 61 /equal put +dup 62 /questiondown put +dup 63 /question put +dup 64 /at put +dup 65 /A put +dup 66 /B put +dup 67 /C put +dup 68 /D put +dup 69 /E put +dup 70 /F put +dup 71 /G put +dup 72 /H put +dup 73 /I put +dup 74 /J put +dup 75 /K put +dup 76 /L put +dup 77 /M put +dup 78 /N put +dup 79 /O put +dup 80 /P put +dup 81 /Q put +dup 82 /R put +dup 83 /S put +dup 84 /T put +dup 85 /U put +dup 86 /V put +dup 87 /W put +dup 88 /X put +dup 89 /Y put +dup 90 /Z put +dup 91 /bracketleft put +dup 92 /quotedblleft put +dup 93 /bracketright put +dup 94 /circumflex put +dup 95 /dotaccent put +dup 96 /quoteleft put +dup 97 /a put +dup 98 /b put +dup 99 /c put +dup 100 /d put +dup 101 /e put +dup 102 /f put +dup 103 /g put +dup 104 /h put +dup 105 /i put +dup 106 /j put +dup 107 /k put +dup 108 /l put +dup 109 /m put +dup 110 /n put +dup 111 /o put +dup 112 /p put +dup 113 /q put +dup 114 /r put +dup 115 /s put +dup 116 /t put +dup 117 /u put +dup 118 /v put +dup 119 /w put +dup 120 /x put +dup 121 /y put +dup 122 /z put +dup 123 /endash put +dup 124 /emdash put +dup 125 /hungarumlaut put +dup 126 /tilde put +dup 127 /dieresis put +dup 128 /suppress put +dup 160 /space put +dup 161 /Gamma put +dup 162 /Delta put +dup 163 /Theta put +dup 164 /Lambda put +dup 165 /Xi put +dup 166 /Pi put +dup 167 /Sigma put +dup 168 /Upsilon put +dup 169 /Phi put +dup 170 /Psi put +dup 171 /sfthyphen put +dup 172 /nbspace put +dup 173 /Omega put +dup 174 /ff put +dup 175 /fi put +dup 176 /fl put +dup 177 /ffi put +dup 178 /ffl put +dup 179 /dotlessi put +dup 180 /dotlessj put +dup 181 /grave put +dup 182 /acute put +dup 183 /caron put +dup 184 /breve put +dup 185 /macron put +dup 186 /ring put +dup 187 /cedilla put +dup 188 /germandbls put +dup 189 /ae put +dup 190 /oe put +dup 191 /oslash put +dup 192 /AE put +dup 193 /OE put +dup 194 /Oslash put +dup 195 /suppress put +dup 196 /dieresis put +readonly def +currentdict end +currentfile eexec + +D9D66F633B846AB284BCF8B0411B772DE5CE3DD325E55798292D7BD972BD75FA0E079529AF9C +82DF72F64195C9C210DCE34528F540DA1FFD7BEBB9B40787BA9351BBFB7CFC5F9152D1E5BB0A +D8D016C6CFA4EB41B3C51D091C2D5440E67CFD717C56816B03B901BF4A25A07175380E50A213 +F877C44778B3C5AADBCC86D6E551E6AF364B0BFCAAD22D8D558C5C81A7D425A1629DD5182206 +742D1D082A12F0780FD4F5F6D3129FCFFF1F4A912B0A7DEC8D33A57B5AE0328EF9D57ADDAC54 +3273C01924195A181D03F5054A93B71E5065F8D92FE23794D2DB9C535A5E57376651F6823308 +463DC4E0339C78699AC82C769542FD3B410E236AF8AF68CF124D9224FD6EE92A38075CAAF824 +47C7AF41EF96F3ADF62F76FB425BEDE4C4124E7B1E0B8BF254D91912D3A99557F5427907A565 +14C5A3EB961B94112077FE9417B70DA0B2E1C1FA3E1D6F01D11F640CF848E45BE3E205258E64 +FE36AFBD4DF4E93F6B1A966C8E7FBE2CC8FF43C1F67BF6C361678B5E90F4BA524FE8A4CAD6AB +28183E6ECA6C9636E884845105595A2E40CDBE8D4807A81AF4DB77B31873FEB221BCADD42C46 +69459704CB58A7966B77ED61AA76BF4E05B2265D494025FEEB45907060243E63A418D3B75EA5 +B4CCEB47C9F70B67AED130771346015EA6EE1C0595A1DABC630ABF643F5AA128F1BF37464F29 +4398D9209F200532839CE6DB19ADBD2050B9D04289B484B58C76BACA8EE8C1047138B0814FDD +E2B31392E886ACED278CC23F2747AF994C23FED4EEC7FD6E51AF55888144B1B7AA952E0F759D +61E50040EABE9ED9B44CE3AD9449E22F020ED7769691B8B48895E89CA46FA02D901EB0C1B953 +DE426B56397967AF823A12138C269F179F64D539301A1BD70EE84C75E6636D6B493CF86A711C +B32F6C7D9E6C0502871F46A63803A1FDA4BE8B7594C9DC4312AD1364ACE7692061B48E60FB04 +989375A429CD633A209ECAB364F24AFA719FC453C3190CE91C2470517836240BF053E0CF0834 +D27F55C93F2B8A7253F59243D7D2BEB359C63C98DEFA90A89DF6C420A007BAA66DFE690EAEA5 +20BF0A94293AA212EB66CE7E200103B7D3A50FF835557FFC1AD378916DF5A142C5F3F7AC6B0D +3776D67EC6904A7C649E16EB3FE53E0768BB921F7B855EB5039C3455931B55B0849199688012 +627C184A245928E7FA04EC3AB4C2ACC2FFD2632E2AC44A11A13EC87400E04A8FFAAEAD6073C4 +AF55B90930ED41E4D59FA33F2EF4745291B1233B9D8EC44A72154DC13A770A8E255DC9E3F2E4 +116F30F727B56A5EA14473E68B4E90E37A420E9CE6269DCE4E1623A395EF55AB983380D31B2F +B2821090B5DBEA5118A3B2C46477FC0BC7A81E890C88C0C396CC0CEC55E7A39A649CFCB8A2C6 +41E7582AE35A82566F40800F6B5FEFD747C83FDD2F86B2DA64DD35F85F686A889FE24D24AC85 +19CD2C45ED08E2A9B338EFECD678B22840B8B1D445679FEA9A72D3357A2598167627C0B4BC1D +C7CC79C707DA791CC3B49A30E6E6F31A934FD029E13DD67B5155DD5B95328A6FDCAEF3248D77 +A9AAC90A32E0088BB08BD179379F0A579F9B3E647DE8D7865E1AEE6008FDE83AE3D63D109039 +623CEF2A58F2D7853AA72B0C30BF833134E453AD3048A163E83617D55ADE3F34AAEB25459522 +9A2AACA7FA87E77C025B3A46D726EA8FE8F87DD110EA55D23A7D0ADA1FC101400501CE8D7AAF +3D1673CE3C92B7B696CA100FE741B61BE5CD3B6865F48E84B12A189932CDBEB2A48F825A81FB +F68EC4C1BC7B570AB0C60AEEE63B856CA2230FDCC859C67265118AFAAC011B863B2675226A67 +E5A3B6C93F1E29A9CA07F8CDBE4EE8BAAD320351B5B2D8071998AA594F83F1DC671029B6FCA6 +7F717FCE3796CD9470164F4432C31F5A6918441A8D3690575F34EF4ABC1A7FED623D7A97F3DA +989F82ABB18D63F42CBB02EC54C9851965E5546558BCBF684A74E4166E12BC5AAF104E64D52D +A36A78E345EE9111C28FDA3984D6DE92D1A6796610AA8AC067F5A9C6BFBAB4BA9BBB0381EBF7 +F15CD9FB0211E1BB82CD037224C0362C3983EE54D252180EDCA46C85AA2C37E966B432C20989 +96666D057130D3F2EE60B1AA8904CC7BCF64E17810C4CA8F714E5EC717F75C7D50956B2DC676 +C1A3118C9C56510BC97B5E834D452FC7298FF2C6C90FA81F7D7D70F05A98A92482EF7CA80459 +7577BFEEA5C00D50E91F8B038C90B3472C4E29D68BE6407DE4058C9C7070415750163AE4B150 +1537E88F3CEE95100B3BF7F95CDDE74D040CD28EA55772071665061ABE13E0FD1CEBDBAF1622 +19E98FF4ED414C59007386A405A43E84B9A310EF63E300F8249ED864849BA877D8A22967F54E +96B2B71F63DB59F824F62E3634B710410C251C825094AB00F3A30D94E244F7A6B4380B9A66B0 +AA575FEEDDE97BBF70D34382464B5509BA9C4D927BF854819D1F44F807370DC7E17187D6344C +DA087F067E7CCEDCD290F7A2E803B2B19C7FF3D1A65877AB8674F3DCC3178C8438E626490E8F +21DAE3481D3CDB1F6D64FDD357DC300016C3C6ADCE173541348F0F6EDA2E56406E759D301BD9 +DBDB9D7A14483D0DB56520E3B9D91DE8D9285E3F7B84769FFC375131C15F7D825CD9EA06ADFC +1DBCF8EE9160506374C74B2D147FA0897B88CEB026BA4566EBDDEA09B33CAE5F8A59528D66BE +64C5A24C4DE4B5B1BA49FF5ADB60A6B52BDEA02652266334409DF24F1BA044AF511DD7E59FC6 +5A82498C82E18BE928FB010973E8662B2CCFB8C7C59C67BC36E7318BA08BB5CC7545C9FA532C +31B1156D2635F1ADA38197AA88D90DBD2811FC340289CC4ADCE6C5A7DECA645F7B7A9290725C +4C67289F901D7B94346E06CE95C9C49399E303F595CE0308405129C3796106DA12DE9D15B364 +A9841DDC54ACA8973006E66826962D46C5379763CCD808BC7D532EF8D0327A0B84596160FA12 +C9E462CE744DA3777745E01DB27E1677871290CD65045F996E97606A68D5E26389D39F28110F +B9C76150ED96E25408346D24AE0C057507B10E39BDFF4B12120B529F1DF468BF1344189FA2CE +8AF379805AF044FE67A11BE67766A734D1409D1B9D3E50494F3D4DF60826A5518F79DDAB63DF +523C604A656A411385EF7C59DBED446C38CE4D39314C0404D03A3901E8E93361B1D38F65D8E4 +61F5BBDED078757B671E2B12C03B78513C1C92F54E8770FA2447A59B56FC777154E7F50EC1A6 +52E7F33A52781EB51C5B0479897961DECF517CD9962CCFF77B7CA1F81DA81E9AF4C1DD4CFEBF +74728B0AABD710F9F8747C64BA565A582C19B4943C956921CA1B1EAC0B883020C2EA90006DC5 +97EB91E82C7BD6AF70733E79DC30E30EAC1FD11DFDA52AF101D705AE9ECA3154C6433C62397E +57E4DDBAF657CE73BDEF2483DF3F0843F32A6E9B39CB9FBC36B3B8F0CCEC356F1B114057E736 +DBCC4DA998851167FED692BA3F8755B4EFA3EE8DD6B1AC5C0631CD3C84389641A44BD5A6A41E +2A4203A6D45841458A346270A956A1E1048C4358F5539C475A81A2B800D8104AF1F86BAEC7ED +2E1850BA951E8872AF4D728A31D4470EAF98B2798DC49C9DCC3886E20B01144AF70F3635CB47 +3A574CED6DC4D9A7413AC30DFB9E48E52FAC4ABAC7B0ECFC2F4082DEFDFA1A41567182478E60 +95F2CD471405E173721E4200E406D8F613FEB84CBD4AD0BDD8F8B0A4F01F30A4B93B26B8B57A +EBF96322C15365B230EA665F443C8C8B096EE98B3ACB2ACC89DE91F4FD561BBBA14C610ABFB2 +E8E868F2CB3CA7DD74DACFAC6CE522F233258165698510F548D1410F5AB8F99D32884C16CE55 +13159029A98E8B88356DC43FD64C280BAA4D5A0E4036B4568298FCA54934546ECD5D1591ABD1 +C4DABEB638535EC0C0E9A69FC6E42844FC39329722864DF4D35191B87063C3F2864AD471EEA1 +0E9FCD32CA1C748DFB0551712402865B3546CB524CA87AD8DA13B420F328AAB486BC99E3900B +978ACB4FE602B697C8FE5E7E2C00F06E53A12CC5A6C44CC62AAF2923A95DD7C5C381F501C52D +D281443325F3C8C0A52E1815E78A55AC34FFAF46208D374C4200BE0EFAEFB18C94C371B98A18 +92CD2CC5EA0ED6FCA24557A9353AAFF55A905F6D1E3FF4B0E4EBF73B3296A2C9BAC51DBA6486 +EC87E8D6A65A3BDF1F002323D07849769EFFC48EA242CB891D44FC8BFCB3BE074849AE93F2F7 +73B4EDFEB2FE0C0964D71AB9DDBC2E3198E7F49CD60BFA9DEC9D336A67C73D4BB8649AB4E5A1 +8483763AD4D4706418F41BA151E13B51A665A08DB5B199FC00B4751DEB142A8BC086D12F411A +7042C041A1758FD4920A26F610833F8CA5EA28266AC3E1D416EF1929FB20FDD02B697315F191 +9F862C40E18278CD70A87A352593C86ADC0CF028B575E755C52C5CBEB6FA83826623E48F64FF +E680BBBCBA829E94BC443AA421A17EB6E519FFCB6C3E0D60D4D4DCA93A82E4AB87AFE4D90ECF +F609B3E892B7A9E5583C48322DCEA45E5A101B5CB1B2F23B42B106B1FE61E803ABCE5CCFD84A +3ADD55F28674612B9F6AC00E136CF43EC910175F789A5FC7E1970683D98E4EAC62A4A9F90E86 +D80E42FD497579C1410E728A71A87EEFCC3A77849839A30EDD6A5B7DB6621A6A4AE12ECDAAF8 +EAB5F870FEE8010D4CB6A6B49C496F54071694C17D658A43588A71D4B9FB704976BF42762712 +9B38FFB22C957C37D85608803A3894228E2BEFB05B3C84D16A07216667F04737C5F3710960A4 +1188BA0956D697AFAE27BF34E048CE1F264FFA6E8DD588D62D23A321CE6BDD9D3B617B0F2B1F +71FC14F5DC3C526CC806B7ED33D1545B5CAB8DA9376A6562E26BEF39EB306BC892EA5CB43DB0 +93F26B109645008A6F9BAE796EA7CE4161B981ED4F39CF384C9415BF4D5A0CA6B66D87BA2402 +3539B15EB46DCD3D7F12E840DBFF947847F2EAA9ED40413111BA2D3E73F27143A7F2FB2008B3 +FB09E5E068B7AF093676F06C99187D673258F1E000288AC9921B253B136F975B10044729F339 +B1AFBCE4B9E2EE19981B632FACECCDDE16B0711A2D9E99670BF46012E74296F17000B304EB4F +23980E0ABBA23984C6D4E9DF23A80CC518EEF9AE9E072BDD5ED729D4DD860BCB276B3C85492F +E6DB77F0BD628CA07A9B9BF21DBB2416F2302010AF9D6DC484BEA725BD458B1B36D3FBEC9A0F +BDD697A278384A8B63790D99886A5E02223676B39C9674CF3BF883314ED0C84C9DD709712D7F +DA9D684585DBF71432E9A964CE75A87E08C5FD525BECCCC91861620605F59C8FAD69483C5CE0 +F58D5D783D0801BAA8985A3223B20145E6C31A5DA673BCC5F803F698EDA6FD1145107E9BC860 +4CE20F3287C290A1E9D6073620702C6124C5C683AC95B6FF9A16C3FDC250122B36D3B7D3CA8B +A897E3CB693B9974A78EEEB9684EE4B506D0D656E5193FE4B41B3C6AEA8730849F944121A1FA +D7D0C0B39DCA129973932461019F0790DD0C82C91D3F58C3E6321ADDA75F03728E029E70B3CB +91850408673A30066CF62C3843C3927429DA88C2B6E2DF5F8A77939B8B21B448456B86C96317 +ADC0E5B5A11C522337F74D8A44A62F3AC4B6F8A4DDB94FC46CFCF4A5D4437C46A4D2C61C5F6C +E24B15FE58ED8F3B599A8C922D56C84EC8D034BF4BE92C45B515DD3796587C45C04EBEFB4E51 +4313404B949EE91A9A4F8DB6E6E2537B5D4971CD68895A2BF88E9FAE27266810A13C8D052556 +A3CEB72AE0672187DEA63E0DAE0BAF7B06FCDF55128246206C19C3B99636D310B77BB4F974BB +74BB33A45C439B71B2F7C52CA1E4897632FC36289B2A4DBFC1546C1D87DAE01DB1EB0D226799 +65856449562CAF69D91F3AA7FFE056ED564632AF6D91DE7283C168AED0A04140B36810640181 +A72F35129DE103E8F926363890D7606A5D2C6DCAF093695AB3DFD56BDD34418B01F11A4A806C +DDC210F91C02E30EC5610C8286197EC400348C80B353B458E2DD9789874D81954D9A6EF50342 +D55610D08D2FDE84C2FDE538E5FA2B22935FDEB22552920C7F831B898678FA191B1655FC21EE +33AE74E494F7353A467232D6CA50E177017E99C4D9802A6BFA17EE9A6D0A0443F11914170D87 +0F6173A4BF304E91B0E14FAB97BDF29C46CE45352D41EEED1A4252CB12DFBC33523E9B04E090 +93494DADBD24360C65BE9F6582287ED54E9F0F0A4240C1B3004BCBE296C03340582908C44EBC +CFE30FC7A812131C81AEB9F97827A5C8217FF4169196FB3049B035F45D1C1EAF6E6521D3F567 +D780C7F40A64ED3F7136714AC6A90F044B7EEE580FDB0F5530B4A6B84174A5FBD590A4203063 +CFB58E24DEFF51DDA3F3DB719BB148D00018F1D0B133CF7D85D51E62B048EDE3E2ACE2631D1A +13586196167BA1A5658A22C0BB7A627C55B3C6FC12080681B0274727A916DBAFAEE6A7FB1D81 +57AEC270B4CD53E9178912130810826FB33600DB347EE10888B97BE1ABC14B35AF58F9CFB033 +CE1594729A3EE013691592775581690CCE4A79BF03A30B1CE08149D91C0BF89D0125D4C3FDCA +E1FD6240B831660E3FDA7DDB36C6707CD89F84F2F940A01398CCDA2A3296B879BA69356F3050 +6937932995CE8A94840853882449174B5CBC2A26C35152B3E8A2320CC925D5C6A9CE6BE30BC5 +7988CD58B742F79413BA15AA354CCB247B356A0A6310CC9C13816BDB472B2D32EC6BE5E4FB8F +DE6528731612D0275C9670633CEAB3584CB1BFCCD8DA19B895FA76A815B077587AC1C535D2B3 +E14B8DCCAEC11D729E598C972C0A7F07C0444E8532238EBB33808ED0EBF23BC8160062286673 +B64D248C6D37BA8208F3C2521DEF11FE55699F144A237596C10919E9A88AB96FE52810FC571A +52D444AAF63DF72EC5F5A823889DFF8BAB0ADE0647EBF4B075E78D9CADAC8645638F21FB9710 +ACDF91365011EBD9F6CD154D23AEA1381A997ECF57C172B4BFC013F867751675436FBA117CB7 +2B69E3B1F647AA3AACAFC64477CE435A1DD7276A278CEA4EEB12CE2CF36B4185E84BB0D574E3 +7D5D13780BE4B187B3C46E56396E6303D5FC5FAF4A077AE1C0AE0ECEEF94BAFCB6B57DDE6C24 +D93A702733E8D9123B67DB112602C641B13BCE6CC30FB5373FCB91938A536B67ABDED56701C3 +FCAC393758F06E046BDA92AB42FAC92DA1F877384A018B8FA4CE155DA02D940C54872FEA9016 +F6ADC15CE52328E33159A80730EF28E1C3F25B2F7748EE83A30A0B8669A5BFCC26B25B4265D6 +225EFACAF4D268837FE6992FF3BE510AABDAEB90266760E0F3C0C36A66A8D9F3F89FD00E2939 +244FC4334FFF3F549D31CAB0BC6E9EC5A0FCB4F43EDA82E04E262727F58428A4FAFCD46E7B1A +9A92DF9A094EB9F801D053D5FAE0AE5B588FB06670E33876C8B17ED2141C9C7908F68263AD77 +F2E8BD29C01EF2A5D3552D1CC8CAAB6E6B6A10B80F5E2D2C16FEA197E4F03A55FA5E8098A6F4 +A3C52CB30DF2FB6F6519E91B610E01E48FAB546F78BA9003E17977040367C1E4EB638DBFFE64 +F2E9FBE3343556A73ACD12FF8C1ACBDD4F4AF44382A24B95FCDFBCFA1EFC4E239C98B6731405 +CA5ACD64B49CC2E7B9DA4DBA9D6F65C109AA98176FA88030C5CC629B1DCC30BAA14619521076 +298FABD1831ED0AB9B262976B8AEF1299A8ECDB5ECE21019E3D687A6F6FE37BB3782E0F14376 +2E3E7BC2B2CD2F30A055A5A957BE9A6106DF4440EC0934A5843BBE929C46C6CA14A38BC0187A +CE6DA749639BC748E32B34B95F81020B9559157B9DC148E520B6A497E7A06EB02D31D3A30A95 +CBC2556AE9875C5F9BABD08DF31E54CA40ED00D23491FB3E4AF36E769B1F797EF2C0B2C822B0 +1ED624E0091A1F7A9B690B17BFF9F490D0371A4AD7D26104C56CCBA1E026ACCB72C19711D794 +76E06F821BBF2E1F5497606C657DE5B30CB8EC2E6B5C93A31FFB0B297FEAEBBA2823E7F51238 +84FF18C918F7956F04972BEB2D6504E91E2E7877DE4BE964AB5C97C255B7E53504F2B08A8087 +CCBAB662928F5F4C2F16E8763505A9CB2A4103D5F478A555F6A585C527ED6B5BF9F0750DC174 +2349D4DB9C5DEF381D0456CC203C348DD73C1D387ED6A9EC81170F40C2ADF3DE81210D3C3148 +D6BA3854A60A3676CE5C906111BB58F03A57E074334100EA728D97AE525565D637A82F6AE21B +6B1BAC1799D88F117A79DFEBA74634BB65BEC416441356F36BBC7359B92469971A18879ABAD2 +56889ACB1688A3D16FF251163AB7AC47CD6E952574D3E3570C8DB66373ECF77FA9966806F92C +D07A2649CB4CA5933429C89362E631DAF0C89B6F586A7888B4964C83A4CEBF6BCD65DCDDFD47 +AA3529CA0D776E2A65C4A068C3323BDD562052E5F49F5E9934E9114F01D403EDD517BC040B18 +2C2E148564890A0C766CCB79DC1AF9B7DC576959286A0C2FD6BF3BA9493268067E16107A7F68 +3C9996DA8B9B5B38E5481653145A3B75721F998D129D6B284A012457DEA4A97F1421190C761A +63AC861E5E7DC355BF0A83A1C4698C66A8C9CABAD8EC335A78C4B67FE8AD1D722E59AC047DFA +470AF039E3CDCC6B0F942C25A6FF197731E3688DBEF84D3278CAFF386C2E10F0902C743B3754 +A3A2F3E332E7AF598ADA081CCD14002E027EB0D2AF277DE7DE5A96B6F793342283BF32C2BD4B +1479676C9FCC9C894CFD8B5737198450F885151F0383F599435883A3DF1605A43A9C247F9DF8 +F8DACD85C8660BCFE778D690430A6F8ACE33BF365C71953B3977060915E803265E25326E2369 +D497800D04A47D261D88FB05F85D20C2807B3CE00CC0FD3F40F961831D276F2F2B25860C4B08 +79901CF792A49536586CD367FA092D1BD03742DCF28BEDEDA81A4D6FC7607378CA6632614F6D +D25C0726A3E4CC175E72662CF577F70AFCD5AFD66B716DB4819F394375CF995340F5EF6518AF +FB8219B57BA723521A6ACFA12919007DA6DDDD57C8D7AD298F656C2A568C8868259E72C40050 +5D48363C27DE6DF4AACB983ACFB8ADCB6317A9B14DE64B02268129AC49007E9EAFAFCD3C8217 +169B678F7A29919B2AE0F16BFE317C3654A050765EB24EED0CCC874A890DFCA5A7FF9A2DFCE3 +AB9D54E289DB0A170CE1DC342E32B700B998A468B6C7EDC1B87705CEA23E64B9BA46331064B4 +BA86A5B4C4DCED5B5A4550FA98007C305B18AD86BBC893B504070BE53C58D37C535B686ACFE1 +30E06C21B64E2E2AF3D42C3C3E5E548CEDACAF00AF6D367DB450455A5F358C6AF10D16457478 +1FC09599BBCAC9D5AA2297D4950C80ECBBBD72F14657EB7C56F3682CEAEC5163DF8835D07FEE +AC3871426D72F9C19B3D0E7B34435C58EB6C3BC99F8EA48AD0761C32D9134D161DFEE0BDED5D +BC8AA546EDF182510E12EF9AAA10A7D151161FA37EE66CFA167EF9662D5A9124BE06C7DA3B6D +F116EADDF587889406D4539E5A0E4379B1A26238B288B8523C9D6BA5D355EBFB16CE7F6F6A3F +8D52612F6F4CAAC67E1AA2034EFC539440978500EAA4D52ABB7FB4648976A1634AAD0CF00824 +D828C872CADAAE8B302E5BA75034F239DA241A0A4FE46308F0A45FE90CB255FCB021E64295D9 +BD844573711132860316864933BB2A01AB1858AD1F98E4A5433FD3EE97E75578A5AC8A9C1CD3 +52B91161CEBE55695BCAD9658AFAA2C092E79D69D0F1CF7AC6AC0A602CC52927923D3BFB8B3E +E6B839A18926358074347F5CA6535598347A3469121A8A717703D5A76266E6C497743F009430 +C1FE2F4ECF3A08C4F3C3BDE1C5A0BB5E8F9E9CEB753A36A6DEAE4D51286736C74EA8D7A4B8EE +DDCFBCBA8C0D7100AD74BC31022BCAF73DC00870818070AD18EE422F47D969566459030CAB8A +06F6E369D36D463E0E5760D6358A7D3C7BBE867EABD849004523A486547DF2173DAC9410A00C +06DF970D59C285CE67C655B0FBDCE6A5E569C528EE9C5ED64AC6CA4E5AFE4A255F262B101F8B +329166875D193C107CEB26E82EC8AAB1C505A10CA9CE26F1AF9E21B451B86A00B2D057F25BAF +54A113551382B9A74504A07400C407CE960F2D4ABFC305EF2F62E0CE74454B6AE275F6FEDF93 +FE2677FA8EB9C2EDE60B406983C38170566E089D01A1E24593C4EDA4A7D222BCACAC6B2846EE +9F6459C88ACD1158D30B7175A8B9A01613EB46F3422DA0DDBCA85D22E9D1B7E718067B45578A +DBD6A06A05AFFB1E968F35651AC39735EAED2DEE24570A6E8E48AB9B82C9B88680C03FEBA823 +B75DD4CDD07BB7DCE0A46CACE0ABA85A0E9DE044C955A5136D214673A8BE67D3A287203CDB8F +275A1968F5CB1AEBB7183D4C4890C122666C5B396330A9D7FAB30B931AF22A925A16BF037B77 +170588799BFCF8A0E7B4B16CCF90960882E8CC7C943ECCAD65194661E6D6842E4491E60F998D +8B4CED7692F29EF7990BA00B058A1C5CFE62F7E69C74DE74E2FEF6000187E3025302554635C4 +D696D3F061948FE4D5E7CB17185EA874D54363CD3BBBBEC8E1CC3DA95545F6FA704EC780AA77 +B286A37C993C10C29E5CD5429322A5CFC776D6F7A93B2438F15594355A62FBA70D25AE1AE30D +F2C3F80FD017918F30A6CE355A6A6EB6EC6D9B56BA60EE1254C87C38A1E8AB45FFE33453E5E6 +5A3C0BD9D820DB63D8C508B6D773219C2447836DA5D9623C9C0ABD1E2B9F57AC7C186BBBC5B6 +24F04AE04AB0693EC38AAA42B960DF9DC88254D5519F2D0731E031FD42A65620759EF9728031 +CDDD896BDDB27C9647CF83C7AC9050FC838A30B640DCAA7207D8DEC1FE132C5C00FF3893FAE7 +948416FD6F080F00E59163C6E26ABF9C39D0A0765073C6E072010685AB65CA6441AFF6313D63 +8EE52E0095BFE26283AC8AEDB17654CABDE60291F7644BE3C40B0499C27B400E8FFF44731B6D +B8007783F2AE3CB85D84C08E8C6D00F35B29D4DC57179E2240DFCD9EBA9329789C9099D52071 +0D066FD9A515C7D77B0BA673523B1544A4394A1A811E72B21FB9EC3F9070023230EA1060DE9E +91C67A89188C02734554BBEC90CBB35A971D398274BFDB8CEE12A73A4AE4945B92B67D084046 +D1F1F56A64067B7CCA89EF399D47F9D857C7CF27AF530452828E6F2A193F94566D485F84EC3C +7D2BDC02D62E9835886FA0AF41074BBDB78F3A72F70899E48A31A6CAFAC4607C9FB90F0B666F +C42BD8B2C4E49290D32D8265E2E0581B635629F302216488E32462A2038E5F9C7B1476AF8316 +53C7768FE0F09E904CD073246CFDDD4B8DCC0D3451A5039FA47A673B770BE11B03E46A887C53 +B1B7D2401131EFBB1D28FBD1E61DCFC9600D38E6F5F366F1178A7C1EBE3EBC19319EFBF069D7 +4188F42BE356425C593EBD18CF244E3B35450870F72FD899A695AE704F9E5CB31B813159720E +E80BB6C765121979AA38E8CFCEF6054ADC78956A2CBA6F7A491711C81373B526569A922C7124 +25BA5BD448013490D459C0E5D42258AE54578F510C01AED34B50C4C15C27BC0CA7BFCC1F8FF7 +3D63E6F396C949973C12C0D295B348BF2180FE5C9C886CADA54C94BB2629506D3BBF89019E0D +71DC6B01E01C52938A785E91BF5F8BD6275963EC11E33DB9F0212FD72D24E17354072BA22B4B +6B96E57BC5B8763EE96A812607A69FC7E17C1D94F3FA7BE10C235BAA3E6D261CF3A4F4A75AE3 +0169FCDE2620DFA298EC4051D48A4928E009E5ECBF7626BDA1262AB407C9EECC72ACCC137022 +1772F2CB22E8A68F26DC83A467876416D9D73C5A8831AA0E2E7D4E5E6507488343AF10BA5D8F +8264895730403BCC32F4236C1FBEB5F65919CCF90DED28441DAAE07970463BC9A40FCAA350FC +8E7EEE00556E0074569C0F6ED83B3BDD3A0AAF7A7C619A6BEA9AD1C0A7E9060255F63C1A6F12 +1742806924B033D8DB7D997F6E6626F1586F01338AAB718DC8709EA4ABFC7F76750867AD1088 +AD58D5B05FA54BB54A4B58EF33A162BDBD4D90205EDECD0FA04E65618CA640031CC28C88DFBB +E35CF17F68ECE807AB00601F8EF71AFF61AD5B8830E1C676677053E7CF565A4CC1984850A5EB +7545F8B04CDE979BEB5959D41D82F2C0DA326A924E332E5E8DEB8D3A3173F65BA6DA3B798E98 +7F7EEE9E0BC14C565D6EF0526143F89AF7232B5C10E0B8CB0798E2FCEB6F6303DC39E8C141A0 +9FAD8E841D6366405C728103F0C3CBD1DB97B5C231427091C7E8607EEA4A96836A2F16DEF71E +C9E086691FE559D8B03D79FF8494B6E3EB6123A1A9DE674B924E18BF5B4433A9065A1CB0420F +9995F00D6920A62BE78D261F7C184281CBE495024595CEDFB9B58D951A2A217EC298D36C5338 +9419FB2AD9AC52224B1CEF86913797108408BEBBA6BD592122C4A4A7AB50E08F1957455D0A5B +69C5EEE83950D5B8FED11367A693F8712CAE4D828AAB1A49B02F8B4BD3FACB1083D8001D8717 +786E3E2AB1BE9D2EDE46BB0A11A44750B00BBE7B9E0810B531A8B62515D44E5C868AE7D8D440 +09A64D4F4F69B8B04091E1C7F047A8BD3D335BBC17B29A508074AEA9D4A5AC9D3BAB1BF1BA6B +C580D5F15B6CDF531BFA205AB15E2EFCC9AC9BF78041C9DE20106E83F02FFF06127B4E756C42 +DE99EFF6039BB76BFFE933FE4F7B9ADE8881830CD99187B21898AB87F7C1B81D2360822F4B94 +559C9C7B0C4C83FDF746E962ED0C73CCC6A4EC1245618611AF487B08DCB6D1A3B5349FF90A90 +50FF02B505FD379DC76F1B14FC72F4B8095283655CC9165E9181599165293368AF6FB4C3A676 +1D48BEB953532A68B7D5CEAA54B121B80FE9BE72EF26632456296B2F85C6CE60AC08C89F6369 +885FD695B05F7A7F945388A54376F95A8CA5BF3192795F36F87DC9A88CCF5D9A5EA854FE9781 +1AF4269D3654B1D47123DF18FE26E89DC346E4546530A553121D3861D74C7A564AF96938B0B7 +E25C3777B964E069FB13BD6D79EC07C152546C9D3BC5B297AC238A1BEEAB6F965A4FD0234BB7 +E1B31D938B2A8F8FA1F08CAAF99338A790A9C9B26899D3AFD0A95ADF9EBC3CE6EE3872931CDF +43319B5059C4B5C68D8562F01B1880FBDCD988AEC0763F8C6E73CBD6111CE22C6AA4EDDA4D88 +6E3E7EFE96F8F4D55A45BD2FAD2E68A719D2EE3D05958FF436B01AB54EE16060DCFDF10C73ED +5E6CFA3074DA884DE5C8BDBC04DA7022197B8C0EBE9A617C21064867FB1A13BFBB677EA769AD +46AC075266EE0BA824689E3AC907795F68DD7CC20F3BAF05C8CEC4CE5752C9C42595CC005618 +4942EAF8FE615B6E12CA5DE4930EAA2E8F27C39709277526B77F199E247A5142E93E74F25033 +CB87BDD503BA8E10A5002540A4778351D4E4C42C4B003091CDCD07A12E3D84654D3DCBE457A8 +9BF0B8B76C517A0DF60514870D806FCA80FCE5E7B69008F074950E990D51CBB5A57196B38262 +B9C45B8A00BC98D39A3A8D3C8E4210EA7AD5B30E0307D46E5252767B52601E4E8EDC7DA14124 +497DA4A365ACBCF5B55637E7FBE50C3A7A0B1DF50902E851D54D45C9389D43118AE93A2057AF +24FD9C9AEF6A32AA425E06B27C04E969532FA9A00EE7D518DFAD5E15EAAF70E97FD66DE7592B +3E4A356FF8EDE0DE650BF1AC2FB390A4BC5381524D94EDC265CB58B9E86410BD141B463EE9C9 +F2AAD8F2D4C395D7E83F422DDAEEF4E97027E5DEE38C377E448EDBB0829B7A5A1753D63A068A +4C97BF5CDC420063337B7B49E1FD41197BF9972DC13C368287E5468C50F984A942BDE0F8AFC2 +885B9BF1AE9F1730676FD19C592F919B9ED6EE19752BC11A69425D71BD9337C14A4C37C26ECC +74BCC3786EAA038A529C2BD5AB6C9978F6489A48C3C831340ECEAD2F347A164CC8875E6C6EC4 +4956B2E57FDD6C7992443AF2738BFAFFAAC1A8D1658C4C002A2B4E6D8AFCBAD0ECB4AFDD026A +604871889949DA140B49D8E72550D949ADC502C431D23800D6E3D86D24BB8844A0BFA9BF88C4 +C2522A6DC0542E62E18FBE3F3A7F25C280EF6C5B139645DBA268F31F4EB42359EA18D8B81F58 +FCD119330A3EA56A1C61E4CCA02FA83D73A12E8D55DBA6B53AAF572901A45D5D8D1A3DD1FB50 +F54C7FA919D189FA8FD304B55F48ACEC50861D9E7FE2ADE5D76B976CE148D15169846B79C29E +F4810B5D6093E74148E22AB8A5A56AADB45E0A7CEC3EFB05BB88536DE0D6D41FD4C5C6CF6718 +32F3B76B1CA49C94E4FD29F7130E6525D21093B758A2F476D7B34CEAF98963FC566AE8080969 +CDD8606A192D9F2A0C1062BC18C851F766A6CF944F24A5B441F74BAE79A3F7364D00F2225C1E +26B9EC6D3CC829BF47EC292F01BAD260C13BF2392C88A8E7ABDBC6648E614E427AA9523E6680 +94421CA0B4501034E660776729590B49AEC1C0CA3DA6DDB62513CA902A9F53BDC54749A357A3 +7727BA42C65AA68FD827E746A70C371C788D433D1F7A701A3EB192ADE13B62421C8B5A02A7D2 +F99D6DA857EDE182329E67C7C8568C7E870D5C78F370284E8B1C006EF8AEBFAEBA8A4FFC2D80 +9A8EC1AA4F8372EBFE758291A890461761523AE5AF8DDD8BE77E0BB3C9A3DF06DA9C95EFE57B +84D8B2A3E7E6F791D2C6440389D2CACA33830B1B38844D4661146203CA817C8751A2038C9065 +DD36D1FD48A8A1061352569C662760414C0140BC990485B52A6303449A5E5923BC41B0A13152 +38BCDDD9EA2A3FAB99B484B0A2310F279B961302FFC8E241730EAF793C0BB77703723F95DCEA +9A5A832E8DF20B7FF146BD974490F2C2A1EDF18D869653EEF09C88ABF6B0EC4483F809C7C8C7 +B1B6D0CC684A37E70BDF1164AB6E7D97E551236F658363C45A4EDAB17F67BB1C3183CF321192 +7D4E8BCF6DC8C81FB39CD3B2E6A5F1BDB9EF451B503267CAF913CA6FF8D441DA6D164E2372D9 +3B97A70B1DB122401E1C082CA7EF632E6521FFB3635EBABF7DE0CBFB4254F8CFDC045B2BA9D5 +CFD3F5396B7266C5ECC0D5E45E07EC32D272AE949AC2E0CEC471265CDFBAAC6CB4DDA1F9F993 +3E042A69A7E51D72ED24B70A451B58DBF8407122517939F3EAFAB63E2F8BD60E4698ECD9C262 +AA5B29BEDAC956432DA0E047F7743E78A932AFBEC339BDAC4ACEB4267578A90D1E15BB0F1293 +F06FA7A8F3BEBB82962D78BD77A7C79DEAE0EB352B3C2D7E97EB832C4C485AA946B559ED49AC +7D7B9C69DF3D3762979CB7BD40CC9D4ECC31EA7E681FD7DAC4E62B726BB62274E4D4E7CEC653 +6DF4BA4339802D66C7BD006F348ADD9C3A46E0AF113030A2AAEEDFEB0F8B8560E1FF62094916 +8D108B7CE405504E61E2703B70E3F6C55849707D8780CB7E25C92DA7E29E2FEC62CCE873CF20 +CF6B3983D530017A3E24624A540FB07B08732D913BF334923CD79C139C2A982D7AED98A8BB95 +E8CB3336924BDE5C598FB5D1D66863E8F4AA13043131706C9A8427508F81572668C6D6DAFA5D +06E81701E46E4BC632A3D091C96CEAB160C219227D4D14120DFE9D59E7369917846BC87EF5CA +966B2E89F4B1914702FC55A4F8EA070BC1AC126E95C1334191784FCA7038A34B14B3D191F772 +1F6098858EB0BBF31C49DC9421E9B1F5A6A65D22372814DA0191D78DC4590CDDFDF20DF3E486 +17E6029A21094E03BC64FFA1AF1CCAFBA58270F6AC3D34D85966E19B59C1561A98689896D3F5 +CD10A7B72634911457E064583318E9F4E350B16F16D8497B10DA12B8C1E7E16D3D4BB12C332B +90353F1E82284A79B9373D60EC60C7CE1B342BBCAB1D9F2DDC1749CD503309DB6192E0C34F3E +F8FFE12B98605F99E804F256766E94E7442839F29B11685C714799FEE2C9EA7046E914BF5A09 +E12917B5222EEDE8BDAA1FF2E325838D8F32F7CC6C0EF7F7448B5F6C093336591126EAA00532 +A7713DFEABF3DD7363C6E792709B4BB598DE938B7D401F593381581D98D9CCD7BCBC4392F15A +70E3ECE5D2768687CC471ABC49A410F0D87103E22CE17E52520DB256DF5DE2E420F4E8200113 +99902A5D027CD8E31D78CFEED0F268C26E1A7A98077A72DE66AE25EBE1AAFF40AD291F92F06B +5CD6FB21518B4D4BD72F948DDDC723A4EADE19EC5587ADCA1662122FC79A241FC45B15096F0B +A97AD3E001E154EC2C0C22BC3856EF5AE832ED101421F8BE7D4EC8BC0BFA06F294DA2D4F4968 +11F472A6D4F51E85EDA4BCCB611CBD3A002B87B6D3704A9D80D15068ABC49D2D0D4431E09942 +E7482F9FB3883A9DC2BE22B8BB778E308A6DDE916F06560F6AFF0F93845DBAC3FD16532447AC +0C518DAFED79472541DEFBB6D5DBD78F46E3F49C91F79AC0D0F99B0E588A1E551610E9B41017 +C0BADE5BA416D130DCC8B129429B28375A2EDD0ADEFAD091A11D04F0642A233F654628D4E70C +B7869BDA9A28B0E4AC99AF29353DFC156AD72A1056331117B28BD4329B0B938744747E0DAFEC +04033E1CF8B05419295F1F5774310A6AED85891FFA054FCF886858D7B1D1481E02E7C4B6BCD0 +FD1E1FFEBF8E9520CF563BC402453D1E45D68918AD785474D26434DA3DE8149DAAD1E983478D +0ECD6C4DD77474A90B60B41154C541DDB1FD80E434F470D9B21CDA4D4FFB592C99B00BC5940A +764EE9E6D0725B81014A9E7A44282A87457350CF99FDD279DB1DC490C731993F2FC504C6A8F7 +34515D1F46087C7619FE649A11C58A090D144D451198F48B73BFFF82FECA93C6360EA8FE0555 +3F57CE04C6288356118CEDD21D8386672619A3D748ADDBB29F750B9882CAAF65959A4ACDCBC5 +740DECFA87592CA5079F44A8560E01255F2FB9F029F5F08A4EB08B9A006B47D7D1F9C85064BA +F76B7572251659667060B79B67EE7F7F79C8DB21BC8ED3011D4E2E1A187650CEF2BC36746CC9 +ED796AEA866648299A8E6FCAF055138DA3C388F76EE6D85EC447DCE08512F09D9E7F85A57FEC +09963F099DE6179013ADDF838F40B6EAA6366BD5C3950D75F95088FFC45FC384CE5C002F3B7F +05CE3B86FF563CBA4657D2267F9BA87EB95F4D4D49F5A7847BC988578164D0171C0A6AE8D256 +57B91178EFB221211E04CECEA5BA4FF34BF98DDCE3EEFF4EBCFBF1FA8DB4CF8346961D5BDF90 +8377087FA832F6F95004A16060CEB455D603FA97D8DEF73F28BC5F5B8A9B0F690E0E0AFDAA4C +86ED5451CF58F4F017212709F0087DA5C2B728F14FEB24DA608AA42A1678786DFE8ECBF9958B +4BC927D771660DBE3BB0054BA7F3E1F96B746646DC1F8E6690C4223AA81E8A14DF5F894E291F +199A47178239D2DD2C9721EE4C2DF640405B2C027CCCBA21F0FEBDDE3D777F01F151611F469D +0548A32FF5FB61A8B13444C12291AAFA2474A84EAD955A516D7C8FF15CBF1733342AF966987E +50ACB96642F1ABD97A2075A800DAE4006C1ABA2A6EDABCA47D9D96E1CA077D5088838A026824 +50A9E1F05AA0399B8E5845A4C35EC8BCDFFE20F1CC61BA1D6F70B9A159A5B4B06C119DCD3E71 +CDDF583B24146F6D9190D9B1C6A4DA302AB56B6346EB74742B76CE972446A8A83699F7E0CF18 +0DCF6E11E9E8B8B4493800102D584D21CBD13BFAF935D6BBF54D37F266F2F963406C094E3C5E +1E69BB7144C9B6E9E288908E13B7DE7A0CF8222B1D924F4B34C2415B5C0762F640F7E0FDC811 +2BB54DA961BEC6A700221CB8EEB10744C61378070B44DF0CEA55EB6A8854562508CD79DF49E6 +3F46225E4F1A1ED95B204189163AF96BA13D209CF36F356B06A02DB88A78B296F2EC4E446CB5 +7FF35E85ED58B83D11B56686F1535FEE6EEBC67F5A512CE71116E1F3619623E3B79D76B3DC26 +18C00B1B4B640EB1EBE8403D87C7DA2C903AA7D7A000FE79A2A9998FB959E536CCA8D797D52D +95B7928FF4C4BD4D9BF8598FE2BD2246568003024C2DA984577ACCCB0126D8565A2947D20DC7 +BCB977ED8594E28EE728393E1F5ED4F85ED8F82B1BEE9C68DDFEB15819B86E1C9860E7CE1E63 +4D6B19BC1FE8523644A0036DB45F158622F355957B9B0B3755BE02E26474CD5B88B71BAA51AE +F06FEB5EC508D2452109340EB357D830B3F622A79914956AB93699DB85051447807E45631D61 +5D04728B4E5699587E9473FD6B35D84DDA46DE779970D6AC5984CC039C65340FF74156B6D189 +4D4E5BC824004978C790645D22C0A2E1DBD1E87E9959CC1D89F920F7B631CC44F751397C28CD +A0621ACE51390AD044E78B76AE6AB36CE6C3F08C4FF6B71D8E995BFB2B00F960B08BB3F194C3 +5319DF5D1E630F1DB3E680BE444F8E713222E672A5B5FCDF8F0476D8AB94C64DBC0CB0984354 +7C1C230648D86F38E2102B7F1BE5F9D3ABE9B88BA6E9B86578074969D07C5F3F7CDBA1E17B01 +F1E736E0EC5A6BA6A452B4D27DB5F09B0BF9ADF879B4DF389656495B2DA3A40FB574BE94508A +EB1DF666440DE5153C073FF55018CC0E937B377B50EEC7A6D03F76698B2AEA9C883705693EB3 +E641A81C44CEDB8322639BD02BF782F756C1DDD99CB09A61575D64D32D82F33C91D3506B23DF +1BB4475530D12A61512A55E056C11B29B3B95105F0C230631DAA9F5EE01542540B47FF32FC9B +A00AC3600513712C07A14F8E5D925687DA0E6165FDD9ABE00079D016B80BA45C72393788EBCB +BFBB16F54D4AAE5C922F9B4AA8CDFDB84112D0EEABD6BF14211257205ED5E3D459FBA0FC946A +EEB156B480474BD087CC6F0E3577461DEEC3FB4C6FBDFC42663553DEF8559041EDAD0935E7AE +0E72FA568766D61DF49C56B04BB3E9A9EE894320F72BB0112E9BC299B87F0CC4B65ACAF787C8 +42A25D419CD7E2157358AEDBDE5A2FD4CA42EC1DF2069F078BF389DBDEEC9374B1009880A311 +DAAE758A5B8DC42BE8C559DA724864E92E14F2D535F14D6CF47442127F3EFEF8F302EA4186DA +DFEABA53E76C87E6E6CC7467495485CDE0D6B760374AC8FB2CFB003FBABC323AB8C53B09E3E4 +DCA438B9EFD3BA3B64317AD77711DF2534319AAD523E72EA9C46B074A094E459D1C314A90A8C +35C12221434EE3AA59AEC2617772354F1C74C90C4CFD9D80904C2195B94514A1276808323DC7 +3FE091E413F6CF2A2F5D43070D13EDA092243577A214DE4D92084279188BEE95903227FF1F74 +FA2C22868AE5D61683B1040E0B4C399F2FCDD87D75CD4C0C08C85D77AE5BEB1CD06B246B3DF6 +4E4B6B641BD015EE3980163DE060DFF28244E31193EB37687B60BAE853B8680307E26978121F +CD1218158F1DEEFC669CE67EB3879653E8C473C81E150BE99204F72443BB2698A9F48FE3BB28 +A561BA087F13C97941DCD47149FFFCBF4181A86F0AAD918CEB2A83C162FFD95C445301A73A39 +9F7966855A1DBA6E96C9C5048067EA5865DDA7EE10F1AB67B42CE294A6A0191FBAADBEC0D69A +5D9233C5E07B32FBFA815F92AD86C60E59D06C4FCDE5D96F399A2BF54478887ECFC7BEEA3809 +DF19680E809552DB4B0332F65A8C1B80EF258260B2F40D3CF0C05C0E30F0B30D34407A23E091 +D2CD0338AF4BC010B5679A4A610B6E0B961315FAAB86A271CE50577A8C27C801ECBAA60A96DD +241D01102F4F01365E9921C1AF6738A92D0ADDCC514948216A8F660F803068E29FE76D1C3460 +BD961C0589B88A465D6DBD097A711BC0AABDAC1F08ED439A11603E92858F75C167BBE68AF105 +D2AF9B2264660F9C2A2E4A8F7CEF83BF1B6358ABF033A5A77A32F82FE5ED680442F72F6A00D6 +E010F14AAE45E514B320875590B94A49EC661528BCE703DF9B061C729B2A12B3CC473251C44B +C51C3C17171C90E67A3F7130A47E63F69910EEA4BFD2E434DC3280E9D98DD60F0D998D0BF1BF +62BD4FAB7D586533351370FC617D3BC91DF69D231736F7D7A3F32B0C1B581593774AD2CF457E +97A08A7BF06E7C2C1E6EC0919A5A8934359AFC5EA578A97D8381939651E431255566F16E7877 +AE07A27A116C80E83716EB2C41C65E82895F06A84BFF6CB3D47C3336A849BEF80657B8E12012 +0D2ABE2834E18898DAF75DE9A9A62D4F6D471556A1E29DFBFE3FB714393E174CBEFBF6F2E554 +7147BBEC78B3BF6F4F41B7B646CA9FBF2FB10007724674FCB5E4643B47C780278A94717B2F12 +04BBE94A35F4594E1831B871B1FAE7AEEBA9517B8174EB02E491DFC22458CBEE7FFFB042BF29 +6C61FF6E31AE2B562154F3703A326C7E333E50A7BE04A456C053CFF9D7B6FB3127FACEB2E944 +4D62B8ADB357F515D115A594E26A9B412BD67C03D75FF0EBAF9195672A78CB9D2D12B30E81B5 +B29A7BE09C9603FB5345A8491FBF849D43F4A8C7E0E1EBD1FDA39EC4A80CE9AAE79F06DA7FF5 +26B6C887E468EC66A25377BE2E3CF3629672F7EC98780C5E9F9EDFED1ED16A0EB0525FE1A4F8 +02194A41A2029F0FF97FF2BBA44C27EF231E9AD7D9A5979781F5E6260015A2DB1E51E1CEAEAB +11E66F69A78633CDC2A5055C7BEB5888EB5256B5ECF65071CDE59A24D98E17F7921EA080032B +DF6F44757F7C4B7F27EC6993511CA5CD4B1CD64F5779E423D99A98500D75F4E83AA2BD5D64C1 +FB59231708AAF92541E013B83132B05C88C8DCE24FA53BC58C24698617C2A0C86C53F6963248 +B4DDC5C9FAF7BE56F6E3EB375445D2058E0388080AB9A7732F6B72AEEB093CAB2814451A13C2 +0C9D89152E7163F1D8712BD7D0A7F6FA893047231B2B0FBBB55E2B006067810C69C81E1DF174 +47A36C198EAC9A5548E66ABCBCE607E58AA1672464615FFC9C5F04D0642F08203C81AFE01722 +B2AFC927196DBF17ED5411B11237096A770FA4B723142BB0743141E7830EDA2BA2B10C44BC0F +62550EFE38C1FBDC9FD82EC23828943E3D52C8750DEFD37CC754454DCC8FC535956020BDB16B +22B8082619A9CC09C72846BF18DD29C0E685167F2D05512CF242C02FA3A38C5B901B3A94F520 +7621DFD2027FB5EAAE793C215A6839B6AD2635F79C73BD541EC2B9B7E53D4DB464095C01AE4A +6A86F7EECC229B740D010D86B454AE6DF8964E38C511B6770DEE0BDDB673A5DC97B7194E0FD3 +70D08BF83DB25E41EAAF0A03BDD03A96E0F5F93FC1A09DE60616E4ED40BDCE87673FB17BA7C8 +4510521A233E0E440BDD48D68489FB175572F83F8AF8EFE96408A11A491165E4961511B8BF63 +3DB86BC7D535EFA5EC6D2ED684FAE4F9C6B4DFB3996307BEA8C42D6525C3518A5422F5B33620 +9C225484B8E5BFBB43FAA8100A0053AF5FE334651C5C3402F31A20349BC98912EDB274AD00EB +BCF279EA71ABB924277CE58CAF5689DBDC9C84C6A9508CA7A034FDAE98C97A7EF3457C6F1559 +99AE90FEC79872BA6E7F84F6C305356C084A18C86E1D820A0972ABFC39C2002148AAB55723DB +9691E6F761180B63FB07740F1C37DCE05EBA401AB7A81A114DB3B1A20B645184ECDCAE8F69FD +92908F81269FE091912316A08F391FEFAB7DFFC0EBE17F42AC080ABD31CA950E98A1120E26A9 +432F7FA10A4FE6216643D3465177D6D2AD980E49ACC9E7AE94F45B9F5CB3DB7FF64CE4553F14 +0974D53D0987364145E3B3D314F3EE84C4DB41C504CA857A666034EE63CBE0B2291E5009A1ED +E0DDCC091B364D09FBB6691C2B5CB07416FAFC75F7A0740A20DB38857CE320C9789F4DE2C683 +D5BF43A008043B992EC418DE5CF67710DDF23D0E41C987D5A923267F4C982D6EA3E2E75531FF +ED9C34150BE97DD3E427B4DBD515988EAD773E349162948A60DD6D964AFC237B4E181D3D5B16 +997CECFC545285899851B42DCB7D7A86D736476174FC407D8B579E9927ED72A408CF8F5268F8 +9D9EDD823C5C706CB88CC63DCD3772949FFF79C152F3D70B40BE7CE75ECA2863E3F2E5FC31AB +5371AA23708561B0E7B7B212F7679BF6678D8C462EBE359A16933D0D677C37F17B4826220005 +B2F3158DD3BD058761EB21204BA41B85BB3F94948169117B6E7594269CC6B342DFF97876897D +1073536365DCF04FA7CB4965C0F2C64BC50450828347D2C3A8E498B0C778579D13D2912859BB +BB8A6F0EDDAE567F6EE13FF851F46846FEAC42C20D3A10C66F7E1B6DEF566FE30D03AD09D49C +1E9FC6D7E008929F294271CCD10D69C8BC677479EEE7F541DFA24B1E0E830A475C17032B29EB +60760062772CDA745D41DEF4C69D7860CD1DC65C9C1E258935A0F53CE5D73EA80B43D5A944AB +12B77BB462ABBC291B077DBFBE7C7CF07AA9476D1E1D51BDCE0B26C0FEF1A11A867DCA3A90BE +E0D4D3A18F9B7D6498A0F0C355338026C1ED78627BBB3F2D768E7A8B1C6C52DAC5638F8D150E +359F37C4F11E76B9E47365014124D072CBEFB9ED0481FED2968AA7FC275256A041918CE49D40 +6BCEA19012BAD4395464AE4784D1AF90223EAB3D5E58B311C074CC6090FA247A000177BD3126 +FADE485557CA4CC6300EC2BAC3490528087EC5915B85939EFBF6A4A79B3732821EE633D4D378 +3791D9C0D526BE4B8806CD3E80BAC6E2B65D712BCD159634EC4E5326A88FB16EE1EB59880365 +0B35A28397EDE99B05FEE76F4CC5508520751560F7CE85163068B60A29969200FFC061DC0500 +E68341A2D69F448369917C2E18E0BE7F89D4DD5240E6A7A864D9EC68D8C3BE8AA377EB7FCCC5 +EB9898A244A06645E9F61DF261CE06C434F04CB82EAC10D6F9F78F44E628F7BB78EC749F92E8 +3CB07CD582B097DB03260196EE438B5BD23902A651B3CD071039C0C6DAB1C874D86BFED81772 +06CA0BF1765AD5A000D6C77AADD6470CA380FF6D8130D90EC080E2DA8B96F4CB7B51FFAFBEB8 +D2C293E98BA6DF0C3BE128C4BEB20917E72CA6E963F4AD0BFE581C1DCAE5D26DA2F3DD6DB331 +18C4210ED89F08135BE439ACB3FEFC0C6614B112C8DAC76BA1DBFA598131D5DB6D8CC9407B69 +49C33C2A898E2A4F51BE311DB67D0136E098A3C1794C01F6297D31E6BBDBFFB250E5234837FC +418150C7C8E18777D40C1063585D113EA26B8D16BBE9079B09D77B795FAA9C7198D8A8B08AC1 +493066030F6E4A65F9EF4D5FA6D6E0DE4B8D94B331008D29FF53C1D47F53E56FBAD44030504C +B897F6DC29B4BA046C48EA48B75276256967533F7522F6E86C430FA3B30240B6F662699CB284 +B553F0A1728D84F45931B46769DBD8FA9A0CFC2DCBF69FB624E83C1A06643D45E40B685518EF +2E0BC3EF47417FCE41E376AC9A14A6D458024279637493F2C50B44AF9D32521C457583EFE408 +3090CFF73C0E382C865F6995C7044B5DB397B824F1049D7AECBF3ED9ADC4FF9D312596A39957 +F9CF8B20AAC012AA6D8C4F01AFEE283374998239280BB628C54227D6ED9FF6AA64C966AF1E2F +424D25A1A43D77FFAD821A7DB0EADAF7C3669B55AEC7BD0E74E4B314215F341001A9C405B6C2 +C12516BF0E9C37D0742923156CC7D49F86A8CC33C8996E093EC3B15D6682304985CEBABBBD77 +91748BAF9DC3CA738DFBAE8C20563D903E9EA56A56B3EF62150E848E6A34D80AED8B7F480536 +7454F26D4D4F139C09CE2B8984374B85EDF4B88A7071614ACCF5ECC690CDAF14A186D8CACC37 +B49CF19E5EDD35F480A979F91646B9DB6A24B54403D730F4AC18E6879875DE131D77DAA5624F +78B2FEEA068F7B2B756528F96CEBF6A7645D15384DED954588C66D41B1EE8105B473DD237BED +D675024003300C3D9853D0A027A443A909154F91BDD9EB5D80D30FEA2E13F3FE6F7DC734C01F +230E8128D0983BA520CF0B6F9BE89F4EDE86FA0A287123A6FA7C9AC4E32B6DBF715F0FDB69D4 +355DF7A13B6B482F0F8822F4E7AA98218CEAE2E7693550C43B59313AF49E4992B54A84660876 +F78206A031069D620ED81FB3948BC42C7E631D0C0D667CCE4717B7070B5923F0BE182699DA22 +8AE48CEEBE585FFDED8E8436D445F60618A5EC5059E49DA84B82B3822E2C5105787B58BA9C60 +577EA75983723C83D8F3B3AF575D58C207B662E168EC0AF9E9331476C27FE7E8A8FD41F61CD5 +674AA1FD75807667FF6654369ED6FDCB30852DC0687F2CEE8B306EF5E2258B877D06F04C7E69 +94B1D14972123E1FBF21C781A643E9CB840CFA7FD3295A7AEDB1A2FDDBEF058152C517B952E0 +3E1A7B5F9F70CA6353423AAA27F1163862EAB3942CA170813F6610EFA058209F3FB0C52CDDDF +4934EDE80A5C40AE7628C857F16C21E2D09B763D196633B47C1D5A081B2A78AFB915545C5BE5 +AC87BDCBF231E098CBA8E9EEF4B70411715BAB98BA6E9418178D980B08C5667818A707478A3B +FF4C0680FA4209D35DDF7D0954D8A420E5D9AACF8A9E497921099E16A68C687E58AFE687EDC0 +7EA6F0E4E4F99DB9D732BAD6DA1ECC10FCC658FF1D24730AF2C59A11782410820C0A3066E7FF +A72B848C897815EFA89F384DA5A5B9A9A898CA5C4D4DAEA325F8F3DE29883524C64A2054B0A0 +5AAF07E7EFA900581D0BF810B31F16619FEBA8B868C26B63C3AF09FC9733E2D5243D15E42FD7 +A39C6CE81EB40675904E9EF0876877B34E50D7354E4B6AA9BDE2ED5B1FB0736D2C3ABA05CC5E +A489A2CA590D51BF0BE006E0FFF822621DD0FF4CDD33315242C343B9914567D86070F984AF58 +9A2AE620CFC618542F7BE6927C798A3A948BFDBF7F99870F36108722CEFE84B1C3729E042B02 +E9714CAD4F6BCB483A5D86F431C481E941254F953569184E8A9435F72CFCF8015624F051F309 +6ED027DB6ADF2EA4C21C1477F67DAAE88A466B53DC95CD8C0FB16317242F86D9482DAB615591 +B9E90F1CB7AC3F3B07F883552B006D94206B2330F9675A1CD9B73B14796C2CFBB3CF663B0739 +A1FF6E293E15F1FD2118BBAF0C3A7CBC8D416955F2F341A650BAF91D4FDA1EF465E1DA5EF37E +E424618FA13B6CD57E6F81A9622038B85C12AD37D7A5AF08E5B705D70C13B0425A9DDA40FF03 +F6B71B4C6763B1B974E7DE96D97F815992FD6D52C58E7746F7F0F4DF9047D59BC95C78C8A293 +68662892E764EE75E95FE7362AC1BE2BE7C6A9973DE446263240F1E5FF66163E07A9CB349843 +4807E0844385B28E19672A21B5AE8FB884B37D6CB516DBBCE0C16D3CA743C82FFE103F4F3465 +538F91514B5B3728E90D1CBA4572360A8C7B9758A1259D13AA15B27CFCCF7725183B3D613743 +B82D6CEEDB1DC252214E2B2C96B48AB392C95EDD8EA5C3D90D2270D85F7E7603E0EAB3F40E97 +E3FECDFADB5C7D401F7E1837E7A724DF0707645D62CA1018F27BC9568B729D933C5BCDED90E4 +BB2BFE3B8D778CA29C7CDFDB9754668440DD5498190A6EB0D3A92575DA74A343C75B8FD76F9C +1CD17DCBDDF3AA0902E15F21ABFFE960D3A0DE2BBE966E14AC6F92F1877E046661038CF2C93B +EF32AB9EE962298845673B0AEBA5BA583CC7A1CEB769911DDA93CF0D7D3BBE05B13E5E0A036B +309E0B2C35AFFF81962D690A31EB81C5F7AE0009D2470F3F8B0359AA8C06DCBC1C9D2F18B95D +32092A3BEE89333626C50DE255A1D6BB372D6F42A889B94CC0AE738633ED506B06290AEC03BF +F8A408362C6DB908BA796985F45FA27F22BB1E1020AA36B7166C5633FFD4281949BA5B64B874 +BD0BFDA5307BA5846BBD6B0C6F96E819D05B97F3CCBB74C5F57B6DED908725CCA7BD4AFFB7A7 +88C82067D5D756A299AB8EE0D1654092F9846F69F85CB491C24879F7214FA0BABE4FB1B1DD92 +40048BA83114904842B0953A568D1A813F367D79E07079F65089DE8BE87D2888C2AD177B0618 +A22EF0C38FE0F81DC0969DB1B32893777045481EED7591618CF3C804FE0BEE805596C1822E2D +53A34E29DC5FACB751478462F06348EB870D1AF712EAFD412A49CC3C519A231FDEB2C64246AF +CA61C4C43D11E1871F02B663EB763364F9B423F46623506200EF7CD6D65F8EA86B916E424DE6 +5237FB22C8FDD1DF7203CD9BD12A1F4D7DDD2E8C7F5974571BD5DB09DBA441E05B208034AB1C +82737104F128A89685F8A93EAF975D36FDEBDC62A77E79BD35B9EB06149F8DCFC2E923B2906D +79E7C964E10D967E9DA5A625BE3D3ABEF77563AD3A903CBEA12DEEDD3D178C147E43BFDF75BF +F96BA5EA00BB27FBFE03498D508801C8A4D3B3187BB8448FC2F9BD95ABF7866ED9B62D22F896 +F15F4BDB0B5CF2FF798700C1A48B4D02C3ECF17E9B0B024949859318228E676967303053200D +8F7E2F4D7A31D7FB47501376D1234E59B72265F3C2E2640870AA4EFC8DE38F334474CD017776 +51736A91105D651D1778F0AFC150A7DE7E46B513A5A45FA79F2067D383001A14FFC25A17CCD9 +045B14C504A59EC9407B2ADC2A34DAB9BEAE76C2F2A6F5778918414ADD274EC37209F320FFDA +310AC168D176C94AD9F5EDC0723A61FA204411DB939E1BF75CD7F514388B5416285A3F7C5FE2 +B5CC742B962C7D0D8FAE0D5BB8654C160EB9A0134A047A5AD68BC3099528F11A0648464625CD +C62440CB2D357F72DF6207C27D5572ED270C374EF28907E61D8F7D720E198CBA66FE65EA9BC9 +3ECA05CFC78306F88746DD8A3E14EE8E411389BEEDF9B489324F0E7CD79909C50F0BC05AD501 +E2ED9F881A939E824A70DBA22F7D059E3DB2B075D64241D21E6C67C0408FA2E878BEA4BC99CE +6025220C2A9FFA6E54E555E448D55107A233F156981DC65F9A0AE30138CA3156E77A6BA13DBC +C367F5A7D221C9CDE66DC282C4AE3751FB951B3C9412EFE0F7F4C211C1E75C3AFD7AF08C78EE +788020F645D41018A69F4F1146F1320914326F819AA6049DE34C457C0A504369FCE97ABE830C +60BD580F376CB14D6A84D51FFADF53BE4E8B6537E224988B3C1A62260184FC1A29943463F28D +AB00FE650E035E9E2737176FBD9B0BF98EC153A063F12229CF37FA423BC3C8C26C91F630F2CA +C7308B666B2CCE76F27FD26B6E30397807EB297FB59C8342678DFEA1A57D82D2B653F41068AA +AAEDD110DF224CE92ADDA63744C94926F7D2DF8D5FABBA08919DF4DF5A16E344DC6D7B4626D5 +34DA7FEB73B1C69E9D92AD0CD0DD28547236ABECF0F99E1884E2F9A11385F0A67126F2838885 +F519444DEFF3F914AFE52DD48F9EC3E09057D97860ACC29CAE2467399DE7ACCB4B5801394E8E +CB283EB6B0A5ADC5C41367721F25A0337A51EFB905AD2E2C2CBC5C2DC763EC1F844DB6EC8DAC +A2D90579F4F68A2B14F5AA6243D5A2FC356C1B2D53FC6F847ED64B2971B1E5C3B75287A674CF +994554F0292A06397A2C377B8791D0CEEE47F89752FB47AF925B376F201DB51278B9BB32F00B +4C8682845058F7ABA3FAA93E7EF79F0F18F0C6E031912478F16B0E37895F57B21315D5B1422A +FC802C95E3327F5FA032E51079949FEF0409FBB3B634EE24893F8D54DEB680F20B27D932507B +446B5D6C556A7BEBF5E4A67FE0A658196598FC9646AA9E0DD0563C7C5E8BC3D9C9ECB25ACA2C +3F0A9D0453E9B8C5BFCD1E88A4BE48E625A746DDE80F07D11EE24A6F1D7C8A0299BC5F878133 +6B4E704D077BAA339BD774151620FEA58F9BD72F781EBEAD39A7E1B45A0AC05A0F03195A0663 +AFC62A6DA39A1A782D79019629A58A90E36C01CC07B13139E2235E0C2F5906667EF55B3F80A6 +898B797DF0F496295185E1D6DEC9A25E15FBC339D825AF9E3659DA75A88B2281A641797B7C09 +AAC6EF2FF49B7046FE129C30B06989DCB5FF8A30FDA68F5E6C8F2F3EDE6D1CC50DD59B8F55F0 +06D736A261EE301AFD3ED3D917657A509DBF2CE4318CDE9201D33DF6D131830CECCFBFFAB2FA +3ED7AC71D2DAF21F79E0013D922ECD8490B9C94511B3F65F4E068BBA1D14872120D676A962F4 +3D2D48B6798CA4818A97AFA91E8D56D6DE025C066366C3F45F09194096200ADA26ADB977ECA3 +B40D4E6B9D46E501E458B1CB8D87FE3D611E769F61866E111F908B6163FB6A09084A476E5C7E +7DB799186ABE1B9D0295CF9CAFE62F56BEFA6507EC5A54FD7F2DDB7AA9193DC1826DF77A972F +62436EA9B732BD9FF13E5AD3CD63D9D5F2DF7BADD990FC54328A79F358B021E7EAE28EB30499 +77318C15C557076280CA9C7D7F9F589CA8333A9165EA841C288CD349DDC9C14CE84E45700C2B +10666387C36BB4E0A6B287C54646387C5CA9F2594FBDD781A2110E7D8F88E1B62773708B2080 +0F61FF4594F151F2A4038A6C4DC8807DF53CA19F624592981CE48BA2B227242D7FD31E53B4ED +2883DB68F8861AC3125079F2A19AB1474542853EDF05DF2C8B86030EA36AE6D4A6A1BC666B3B +6D7C0CC5270D2BFF9DF383456344FA4E9D98842097B6CB3D75061936A61D928A98CE57BBDCBB +34C3E626F29C40A777BEE4C2BA779721F527ACFD1B904F9AB7C04E84AA2AF8BC85C52C377224 +EEBABD3C3002E1FBD5ECB2DC9D8B3B6AA52B63B2AEB8CCFA731946D02FBC7DF94138441B7D57 +4413337B0FC4B147FC2A50CC9AC6F9BACB9FADC66507426C39F8D6E1AAA48E3CFEF36D02237B +8276723D29137D67910774E7AA0B7E4E6E0A4BED38C7CED840CA7297AB14CD756C4CA372C82F +20159C8304397C43634D07262B92DF47FDF5CF44DFDE01318064612576A7318BEDCBACB47609 +B78B194331987787B80034D5CF40C8C4BDA0B578D84459876D15EECB0F374B3D374FCECB7822 +228409F5E86AA8E79B4005EA958B2E3CE0AB4FBABF3C7991FB2B2F2545B8EBB34ABE566CEC70 +2D92516E68F8E7EF8F9115575E5192C42EA09A348299595ACC73FBCF337DDED714455FDC756C +F287F0FB21B35126091A5D2BCCAEB556BEE0926E366BE5687C9C994E75C448A11D69AEF8A43C +B48EB73BB9D8AFF4522C683AD7486012B76C6EE7F2C70025E15B198A549F30D2B9A501497074 +C535A70219819522D2CF02E220B02DCAE953B992FA517DA35E120A5EE60E74CB12F45B0A6099 +051E1A04B3E3BCEDE5265DCB02D302C3E0B992A44F7C95480D3163CE711CA9278A04E92E7952 +80E997EC94DB64D12F3C7F6C4BC4EF0948C4D37421C91DD81F8EC34C3B4C40771D8B9ADE15EF +319F89DD97D2CCDC2CBBEFA5FCB5F2F65E77745801D5712924B4D8D420C6B74E7C22E35042E6 +0C501187211DE5BB6ADA2AF018C0BAEB728546517D11C634983BE1C91B5DB349E2136EEEB875 +C6D60A8CD91B203D94787B0F81B8AABDC82424046F28B1851E44F4FEBB9769ED5060C7FFA3FB +721A0721130B724CF93903925A778FCEAA8151DB30B6091A9E03581F22C0D36693B6A217F0C5 +150B291CF2797FDD812B62BF665ADB98154DCE396162DC808A6DA66FA1AF8F9E4633274274CE +0E055492B27B0DF16BCB3F99D00AF27C09D8DC38E14EC4A73EFB4161142893CD6E7DCC054D6E +53D07436D797A329FCD17CD19F9C402136EA4C10639326440D53195BC96DEECD52B002BC5769 +196B3C6AF694E6D0D7241D6EF6D39DFDD0B9B2F67ACAE57A898689CE09A75F69CC528FFFE452 +490B46F41F8D4E5CB034DCD4ECB162B5DCF6F42BFCC570CD7D5B6717207A234D555831F91896 +AF58C29A644F2F17A80250D917FB65DE01DAFB3352A90FD8D594B02C294337BC237F4F74FF55 +EA14AE9818C0D0D216BF57F782356518BB55F3A308F4AE2D00585184181C5F5FFD5E509FE50E +2900F8F9B60250B711010AF2CD9B62D649C50F2AB058A347C23CCBE65ECD9739A4D2C8011337 +11CC19703BA937A93BAC199783FFB0628474FD49EA6669AA8A9D8F1F50992B595B56D19E277A +4AA0BB758990C5A015B02EAA261D2691B4C90D62D4B252A1CADE0876544B886DE685A52F985C +A83D494DCA883972718EC3D06EE90AA93144253E780A5257C95666D09B2293B60E4FA2745C22 +75CA21EBE83CC9B922F76A31D5560E0261706641EC3974529DDE111D46BB05F7076C383A564A +AD7DB458791A5E94E4255AE72E73EA7EB384295AD6E6A0332707C503136D573D0C9E2C6DAE90 +98729C5E3AD709292EA361D8A6E274487C30EAA59CEECFDE44D8C52D7E995153B5B3C16BC893 +93F1248BE4B0CCC815EF8E93D4A5209A6418615B3E503DE6FFB3CCC29C91DAF3D8129C328960 +441E898B9240ABAD0D9EC97E1BCA7DE65E21C9AFA135B69560225C367C61F34ECC7A2EE23386 +E5B663AC5E9CC500F6FA3FC5A53FD4899A0F0FA0191A56403CBCD2DAC72D9025F483CDF602D2 +09D344E13E38DD528A22C4BF4446D14172B3B27751B999EB16565EEE05EF5307814897C9EC24 +AF999C38C831ADB5EF8E343E8AF4D287C2F3B135A4DE50A3451341E57AF656769513716D8ED9 +87114FD03C58AD4A3FAF657A9721638A87F5E91DC450F3DAE6C7A4A9CF7CDCBDC41F26DB34D4 +9F4D29CB2779F26FEE939D26348C5F2F360DDFB20C99F3BB847E4E040EC808228A1E458FC299 +227244EBF4A8ED6C5612E18DCE5C8C6DC1BD853623B00E8F869C4E7FF367F6B4CE31589B9061 +8E0BA847484E51B36A8BFC2D055011C9D1570BE190F01158E3CAC0601B155E553096C1884D56 +72BE8B73A411E946DF455453606C83C956CF358AA41B3054CD39C42D24B6AD032592A20500E1 +98E0A47711CB560FDC6451E2CC9F7238C6392F3918920B25736A8F8403902052AD716002A1DE +C108AF86701017C574EF6F41FB6AF4CE2C6F80AE27D35B42F6BB450A891E6B9B3ED0554C8B1A +827F8DBDE20FD14CFAD4DB331DBECF74D542D5051FC0AF6956D5BD0FB279E8B88AD107614225 +33503A73C9E09E7CB8752F2A25D2E311BDD4D2AF80E4C727903D2D8F3FB13926E430A895D39B +C8C35EA954D0412FEDBFAD091063C9D0369F0BCE614F0BFEC9D5FFE44F8C791CED1A6CAD2790 +48D8300979B4107F67E68E18B056C13717FE376059CCDA5C7B367E8CCE48C03196042688FDB4 +A0F9B26571405953487BD65917C5F436664331EFDE3D12160D5BBB66E2C72B0040D048B0C3DE +1D93EAC00282E981E43DB75FA92C48D486BB2F3729A9FF927BDAE2A2B034BF66AD7B52034D26 +04A7514BA1E0A56177D39E8DAB0D3CB74D8BF15677E0AE93C80B635C0D8D90B6433289E94B64 +025B8F3FC8F63C9A413680238F1899A2FBE9661AC5CBE6BDA430E979CD6A48D6D79A00D8DF4E +D6FC866F8CB1E7D790361A5CC2D8C8880A638F76E195B7BE064E4752EC1ED3751127B693047A +9C1BF5BD556AD0788A41A63EA66AB23A5F071035E323FD9AC05B2CB85397765099B88CC7D610 +2030A22AD02705103AAE6BF26CEB46594A895EA6D3CD701B259023E636A44BE573575565A506 +9340EA2C44D768340B81FC917D1EF7955B2C5F49BFC8A960EC62C130ED6D7BF8BDE5D7CC3F82 +37A7679912E5A336413B5527C628026E4FEFCBB05C1E6D7A40B0AAA3BB4C7AB6CF5944FD4A61 +662308FA3E5ACE551A48F314D90F136785214F5BEA444482D4850E5C33B9344EACCB03D1E793 +4B39F9311F74AF685BC293A8A3EF356F93E331563EA5871AC02388C7F3A6F0B04CF69E9BBB88 +56909EA36CD1847A6313402DA78E2075D1CB951F214A40687E0338CD09319B203E99802A609D +7FA851E12C93A74E3DEF32B35DA07E42CE6583601C595E305E8FFE6385FCFD1FFFFB290F874E +A104728C931441F09DBD61175F73468C08B134FD464B74EA9AE8F5F153FF8BA9A791F7B2BCC6 +BA35DAFBF9EC68A1643A958EDF5B0EC787BC84B7EF0387960E7D6EB6EEA0CA54D518F97B6303 +45FD83BA033C58B755EBCC0B7E36156C064BB4828C885B07D068B4B69E582845767FA58CC4E9 +18FE3C405311FF2DED2A363BF59547184B6BAFB12F3BABFD75A59822C96C07BDB3D3AC4C7759 +02F28908B626629AE2CCBF82F72A4BD074D3C78BA050E0B20F41B614C43FA69AE63FCEAF1600 +683145288AEA05022A2389771070E32302E9D5FC230BD3A3D1E23E8FD860C552D2E7D25ABD1A +980C14AE7C8C51BA99081A4E99118C794D9D6EF7E18E7F6F7FC10C341C4060DC59F1BEE614A8 +6A9C27CE075EF73657634DEE6F3A342C66D3F16254351E65D61F9E73C4529A9FADBABE7DA5DE +EFF27E8E687D06CED93DAE2128381EB693B17085A259A9550A067446BCCC2F93261163E4CB25 +1B406A95E9BB9279C4FD349D37FDEC2229BCE6928948E262014ECC85F78DC9DFECC8C467AFD6 +FA8DDB1D341D114741283BBCA084B0F1EE31D1ABD104FAD574B2F7B5F711FA4D345C2B5B3A67 +47115422E285C31DA429667E10D4582942F1C42E9EAC8E5E517D59DA3AE182E68E0834FF8173 +FA140B0E15052E117DA3CDC87CB6471CBE73A7318A3DD57523FE28F178D4CDF0A22D1DE30216 +9837D85804E8B49650B93086D2303742FF913FC86F719BD711546E24F0D8870BD5378692AB5E +E85722CB71EE14E581E7B09B564B52691C0F23363413B7B2494249A3D8C92691A7B157A60012 +A4AE44E8A110DB6C5772FFC50E1C3D17BCDE17C967AAD3B9996D21177DE6DAEE9B2308871C38 +03DBBE06DEF5DD1A026DFE7BCEA73E70D0E422CD00C9DBD00520F2794E25A385D30652D75062 +736D631FC5AB36C54BD66493202129D181D20810118F449FEBFA1B0EE045318AA6535DDF038F +FAA544B3BA1B7B6AC8BEA6BA277694B406CF4DC1C50A23A78CA90F512F380E087FD465CB4EEE +991A82108063C40652FD3D8A09A0F5C5D5CC189518328009F44CC3F0A6A7183A7FD43A361DDA +135F2656FD39A435D6D2C47B7C17E67787EE940EC94054D973590A7658B2D731A9668CD80933 +0E2E6214A305A340961BF6BDE4BD27B74ADA09F4D482316C4B1329C8322A9C3CBC9258E52DA7 +85170923B152EF5123584D5A35085B01DAD28F5435B0C62F013508913301906CDECDB1A52BF1 +84C0C0BFD30DAEFD2B79D2B8DC4423C848DB87F606D458E3D9267797035182B96BC6A0A811BB +E2D24730A732E43C6681B11331127B6317B04B89DCA447AEE463FFCFB2CD938AB8AB4147550B +9D5DFE1457CAE281EE20F03069FD30EF9DA3C99B203A6F6927059C85C257182ADB69BE8586DC +7703CF2005D089B8CA42450EE1AEB5263C3ACAEA7DB12F560EA5A034F2860D6D85EFE9AC5C77 +DCF79B064FC81DB1F5E4DD9225F26571940982AF785E1F2E2E47751EF8BD2C1AC7D78D4470D0 +87D259101DF5A94072C7E4942CF5D42B95A7B37108A9996311D8CFB4726810252B412E496800 +5D6293D3F0BFE8012CE7A5B8BE0B0FDE5D44DCBB9B1062927E36A2E4A651CA2A180AB8A5728C +E13EBCF793522620E34284254304EC85CBE4B46E8AFA5A6C13959E0306B2FE6E1B23F00B3962 +868C8072ABB82802748D017815F38B51F2FD32BEF86D57D7E30DD2F3F6D8F1C720E41BA7743C +BE4DA1B0CF3E02C713EA6477982A8EC2C237E682E5F6148B19ADCFFF6CB61C7B426A0AB8B3F2 +D148CE4205F3D9EF3EB712E0699931ECA2D0EF3761D05285A511734FF7E5AA0D3EEA228552C5 +BDC2FC23F1D8C43FE5A076B357BA0367A2E2440A18D21A62C857A0EE8EE512C6C6BB10762A02 +72CB80A555E95F4EE500040CE348592B8AEC218CD1355B1B4DAFC7B4066D94FABFFB60975F87 +9336A8BB7C72E1A0BD7D386A3F0B8816018E2D8ECE7F2A33F403051BA0871BE731772A59989C +874EECA20D31BABA08F5FFA968D7A5407E0BA2636301EF1979B932364C4E3342305C58596964 +BA95A4F946CFB1337571D4399D3B27F71940F0831B71E50CBE2125411CFBBDE7D19CC437A553 +07652C1A2667B5E9BF5A0CF1DC3DD3F7A39E61EF3D0F3A89A47B9D30F67E9B7B74C175F2AE3F +ED0FB242FABA87F2EECCF4D037D21F02E8DF7D5912C6276891153059D67892F86A1CF7CE59E7 +53036E71B92B8B0D3CB30640EAB8AA41A865D5F4CC56FAAE41A44A73EE0F6DEBBFDE303DD98F +8FC7D71051EA78D056749D9BCEA77EE25D5EE678FABC7DBFF4AD993FE5683B16B4195BF2C39A +97BBED78BBD056198A0148080B78E59F5BEEDE2AEA17A24A2A42D0601CC0095E54824784BC22 +D308E888192D533DB3AFE739CDDFECF34928414641114547F1BD11C6D4E691AA899C3E7C991A +3001707E5C1BD986116E09B4DD37EEECC0EB4024B753AE22BE6D12CB8F812F10575E0CBC15EB +D6456587C363700D6231B547DCA52F5E930CC4F6CC530465530BEF7D2EC2B8EDBE85F3827EC5 +28AF1ED8AE63AEDCD429F4891BFD31D51BD423A030254B37C0A9A32161715AF612015AE8BCB3 +FB4133E1571EEA460F38F151C606A1B1836D224CC73300D58F4FB20CBF091E0A56B7B96ED963 +80EB667168F77009D1AAB2509E71125F90338F67F5551508DBC688EDD57B67A59E4B4B21EAFD +619CBBA3BFD9B529778756D217A4A068AB0C8F2E42D4D0358B380B093988A3B470466818BF94 +8E3AB10B968B1502883D5628DB62A267ED41AEFF4DE13DF442128BBB1CD4CCCEA80523945E1C +88E47120A2E9E271C70144979B7F014F8CB7C27A647D083FCF03F93AB01F129BB4170A8A5080 +0FA1223E3D55E3B4E368E5615AB37DEA93C8F8E48498E69BF2BA2308E866592ECA62E0813705 +1C89CE5E84FC994070DFCB829952B960F075C675ADB0D4CDE1BF2C11980761C176D6A3758825 +C350EAA67CFE39F5B21D5DDE79DD16287E11F91714E215C376DE09C8A2569C0EE2FDBC8EF2D0 +EADCD1BFBCA33B9E3DC34E386E9ED805CDA22B585BB0C1AD51459CD66734E5411F1C0F4C4C38 +E39AB6EB21FA6D5B0DCAF657C12A4969674E725E8DD1D6A3A42ACF21183B2772B71B51038EE7 +3DF13D94171BE3B1C17CB3E120DF06CE2E1A641C038E39EC4A1761046677A22AB8A39B5F8D26 +A0D2ABD016A1888A4228AC8A0228BEEB46CE23DE9B246DB2C8BAFEA0EB1B051B18A030500025 +A25DFAFEB86B374C596DEF53EC31B011268DA2EFBE99DB59ECB35DCF185601739B779D4B7BB8 +D6A0F53AB50D1A3872EC0454D7EFA82C42BF10079992721C69580E659D91E6FC2FA85BFFCA63 +79D4869585CE478C4BB91D3CCFCA08F0D041B514AACA8CFD1BF58DC85454631A2B5B9C0A9403 +7C226706A5FCC418F3C7419368DB25F11528E31552EA40D09FE274FA9DFC049377E6F2098A39 +28E2AFAFAA4E1AED08B423C4FE6342DAC7FF8A4BC9AB1FC4A18CE39AB54F1798B694CB23A6A2 +51EE4046D8A9D44D0E18B9CDD8D2AB7F9EAE4638FDD96CF2F0E214D9ACA40DFF5EE2FB0B6EAE +BE2EA45BC8F9B34C9BE2F6BBB7BBF053C9186CDD08C684E4F122889CA45A8B7E8CDCAC2A8184 +4405C2630CC98A605CC946A2667805EDDE40BA86DEBB04A7AACD275A38CA4048D4ADB9C80E5F +D2267405678EFD8B616E4F0312EFEB5B2444B7432A17AC57642D14D825417038E8A39DCA1CA4 +AA797C51BE758A0D382B6A0DE4FDE9C6659B69F59971849F587E3935D660ADDA36B3A724EB77 +A193EF9EFC7012FED3B2995069F332D99975FAAACCF7D41B9EDAB47F71095A27F7BFC19E6E49 +BB58136EC2B18A073A211E789BF5436E7627EE8A22972FCFE4918F6501865D25BB485C925141 +698460E6827574926301E0F4762180B56047408D22F12913C2B45DCD99117AA37032A6D53D63 +BE626127AFD0DD01B69B9A12CF1C1AD63C329CE4A3518013CE7E05679D06277B4DF1755E5C27 +018E6E48C90124C9467B1B1BCC28B044F2474A292CDCE9E713666DEAAC0B9B8267E8774ED52A +04F74FE343E045AF87078E27F26CA64199D2B763835B477D8883A6D2EE139A3305ACB15247E4 +FA108B11956386241FDC326A6B5887348AFC82B2E7F1F435298625279F415873739394BD7B98 +676F3AA8FC0028FAA13E5EC6D783258148F6C5377BC5E389E5FCD84D3DF10CD0847AA4B2537A +8033D269E5D16CA63158A13B98D758B169FBA66B7DE4C728071AC7FF5D9DFFEFD056EA488964 +D28A9A691E7C981E2F6625639F37CB960A9A716850DC260E1DF987746D30A4939DE1F3710262 +355B0CA6F8A2AF96C8399271F99F7FBDAF8C9F5C5C57AA607AE16098EB263494B7A85EF1AC54 +D8BBDA154BFC93480484F1BF43777F1348C6D921477695E159C0AAEA0AD4635E1AAD06BB272B +3B8767317AFE95AA0AA195611CC8921A5CE530ABD8B1B53D2E10B74E7F33E04FDD69DA2CC9DB +E6EF3BA44439E83782F2EBD852704BF97328167AC76317C0553573B1D17025167491F3FF6095 +501B97E075A9F3B1CC7FC62E1E512C8A328DD76552386049D59AE3854870B4BEDEF1FB464F19 +5F00B2DBC7D0CB61BEEA8451DBC5C6FE4A059EC61922AEC97D7E585B3242C1EE46D3F65661EF +B26A7C3F3348E951AA863E5C61F3D82472C22A450CDC86B22B9FCB09C06A22394E80AD5BD8DF +F13309FA31F7EADC88961A88873D10A1986A78D9120E68BCA69D9C6A6D35DE20C085C05A6626 +64B485F50D7EE47345BAD6F0F4B2B0461645CBAD7C17E71BC4B8AA5D357B8C74CA882E990867 +2A938D82C5E3AFA5B6DBA3BFAFDC1BA209D3926C85375086A10FE9D642CDD430B49B21B4478C +D84BC1B555E35A55BCC6E6E6972B1CD3B674E185C82D1E9F929C323C1872FCF72042C9A7BA39 +50D20D12B25E170634346628FBC2D1208837869F5D94B910963081951FBE182527703ACCF514 +5031F0943DA951A83870BB2DA9FB163BB0DAE01582718239A3F6A9FF30B7B1E76939BE8592E5 +F1FB873CC51449049A89F2EBC14529AEA63909998D574F7FFEB9923BA7E9A18C932C8AE2F8B9 +CABA0258E52DA78506547AEF083906742D7FB56041DFCB3FDA2E5377CFE1BD8D1724FA4963C8 +2CBEA5961C817236813A5FE5605AB3B75F3681A317C43A630B71FAE2484DA877215BE151479E +9D24CDA4505C1925847AFDFD662A1AB11BDB48A46CF5FB89501DE76FFF4C89BB22B0E7C68DDC +B1D6FCDE3448D892D2581AA24A3AC7A43ECA00BAE557193C7467140A3850D1936AD765A5797A +CB9175D2CE8D8CBB86072181BEFA0350174D755E372EE1629EE6B65CFB15D1847933B9DFFEA7 +83E1512A2E5728742388ACEE27502660FFB46F6B53B8A69B4BA68436F3EDDE71C8055AC6B313 +1CD3D20C01356CD1A40023DB3279643FC62143343F4C9F202CB9EC3CB58EEB05F0CE410F6C8B +E1BADDC42562AD049D47EBE52AC33893AF572FFC946C5C6F017743E09A7FB115395372977790 +A3F4304117A167D8FFCE5C9B0658E7B551282FA492AB2F753AB33C40792D30CC6C1B8417048F +6DEBFF5C68B88A49F16CBC0AEF7DCFAC234034E4B71E9F78F2EB293082B723F1EE706755FCDC +93166AC6A23F6C5A8AAE156F5EBA8C1F0ECC61D0A90556101BE74E026EF625575DAE36197FC5 +2ECB3B3C89100730329120A790E89344518159F632D72EE739027F346CA61B867546F0A8B5EA +D3D97B9924777FB001A73AA2C4C07F733B2A040F3B2AC49BB59723883779644A3C942BADFB2F +B71F60FCAB54F5596A4BFFAA27B771AE809865E9D1DC5550AC05FA8BC59576DFF84CF0F310BA +A6FCAC4383418448F6BF19B3873C94E784CCA4321FC71281743A1EA63A47ED2B9A1A27B82674 +820FD6FD5493C859186921E8CC4C00B7343409F3C6F9CC72A7FC8EDF054C528F57759AB0FD58 +9DE405A8F821C278873F1C046A9ECCB11BD42D9C9545D4D487CE4C5B335EE1E3B02CE5B9BC7C +89C303FEF6C86279A80385731F1941F23843FC865DBF8FA021469B0D49DC78C27A7CAC181B6B +B570DE9A86B9EDD48F2034705E3B5D8766F56EF047E224308218CDB5F2FFB6838FBD5E10FD0B +0724663E5EE38F52732B7F721A8E3B5959BF649AAE64AFCE64012DABC8D794F2EF73092C62F5 +3626C6DCD8E03C448BDE5243C5A738E274E939EBF8A57EA79FA226FB08CFB993E425A809E277 +813A874C25F3B1F7841AB54550DCDA2F35533B6AAF9D768EA7A10702B3C371CEF8FE1969F71E +17E2BB4D4D784F8D4B3D8E49347BF6223A067CBF416CA0BBDC962FB84BDE2491D4CD85D95ADC +7B92F667884604859872D7BA89BBD2B82BDC8DD7681084CEB6284B89384CA96C8FD3C32C6F83 +E940932713909E8108BA29CDE8F2D9D755CE03754D13D4EC26FD2055DB486820C95D1ED42AB7 +04C71E30672FB061F3753D1A84D57CACAEC4DF1578AEECA4F23B03AF5F74E961E88E852017B5 +FBF812B399FD1D18D0AEF24E2A4BE3E16B4BBAE7F672D1478336D6CAC2E1F238F4AF0EB545C9 +2E29365AA60C94111100A80FD653E5D8518FD131B18AD43F8F8603B40E5749BCA1A576CC0D0F +786E6B675BD6607E44ADDDF499F756C28067FE4AC9929667947ECE892C219F6B2B7D5A4DB09E +883A7C41866170FABF321805C434769343636E6FE3CC6D0D924570E441DA8C1D891425D42B80 +EA2E9CDEAADF3916CBCE16DDC6AB3A47255AC380F17E71730D07DDFD0040E3E2E167F1F9A348 +B402910DDE6812AFBC8C4E033BD46071C95ECAC480F89EF138B6A15B209B9103423ED2199CD3 +ED0DDA420E0F378F8B7332C27A19C3D04FDE4BA754230E7893CEBC7D8FA0C5E4B0654E702E17 +6B892ED3BC18169CBEA48C41CC1027A4EE86BB5107D806A215A9D60D9AF7D4EA32A58F6BF5EE +F367435F4F6D5510C14C6266B31D6F0846A08F3B20A9C6BD001D1C20B658CF24A4DD27437D4E +80606D29A48B3FD0A6AC2EF1E51E586D2FF599115814D754A43F88E99585FE2DEDA9D595888B +E2399051C39F1447A88D4FD3507B31BD94FDB35F4C04445DAB00D2B7B6CBD824235ADF6CDC22 +01669999E5639D1AB3CC7120C907CE685997DF2107013A635B5B053210587C1618C0C37498E2 +089D283450176EC9AA82FC0BED8E97296C282ADCEAED15B069D5FBCBEE39D1269CF59507A1CA +24ED06CEEAB0633A460BBA7E0CA59FDFB82AEF681457C0166B5018388B4A74F5DEFFF139E1AC +22BFD25DF48B14A53EDC5D31DEFB563E0DDBEB39DCE9342A2F6AD073E3D0042A1B1EA6041EAF +28FA6B1C6DC9A42195AACC33EE0A873DE810A57DE8D51F58BC20A3DCF1EDAEA09A12B066B708 +A636B5F7369D4EA61426DCF87AC9C3424697F373A1E359D92E5185EA3AE681062638106E684B +1FDE40A3172D1898273D6E417B5739D79508A906DBE387F10543838C9319D321F634BC5E4AA8 +D0C63A407432F751854700D871354596B499F4335742195B4B787DFB824204A6041EBF0CF2AB +F563ECB5AF94AE255D9A7C14B9EBED37F77D495AD9A19F70897F1B304A40DB82D811BD936044 +8AC61FC6A1885FB7232C14FAF5107CE2C02492AC28ECE3AC111552B0CFA073ED197D24732501 +0A38AA71D2CC9C4A3897A8CC6B9DDFECF89046923D90113205AB5870030F84EF3A2C0D17C269 +E39B3A58815F5CCE8BB2286E713007871200E53E586A6E04F8837165314C88BF3805C5AF30F4 +D3C38717E95B7597AD7C2C0E922E1802B66A097A9EFB00CD059B5ED451A790AECDB79408428F +6F09E3C7F57AD0816E448A533EDD7382F366998B379B066DCF40AD46B82844DF654C7A004579 +4CF61FD06FE0C8B656BE23A19A4483E589C1BEBBF417EC617C1C9C0E972B75FF316CE5CF9656 +BDAFFEF696F87CC1457FA135EAA58384DA4A0FBF934A9FEA1D9C99065E6ACE0AD3031755BB48 +ACBFA28426F9AAC6DC7F5F5D7E0827A019313B28810E11F1E782B2328A63F109871FE74F40D9 +35F048D1B33FCD3EA112E5B2CD312E726DD4D0823ABCDA433730D8447B926452AFF6F074F05B +C457036F564F261B044C3285687865E4A5E7BADE35414A1EB30912B44FB07118BE1F30F9959D +54DC2E4895950D9EED99A5A9F724005BB709521C3494FA4D43DFB6A2D7B08460EFCF3733FF6C +77CE97F920A489FB91EBC708DFC25C84DEE40BED06642358EBA80472D3FF98894779D1D0CDF3 +CE1127A434C5D976C606D82C6FE48BE669B7E600E3ED8720636F013D45C14DF11F059DFD0D9C +2CBB5E70B8101E1B4BF6B61B6CAE33C6EB4556A11C89215C042EDC3CEDDA32C5324311B7D293 +031E41CEF912DEEB71AEB2ED99E5A567D60000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 + +cleartomark +{restore}if + + +%%EndFont +%%BeginFont: CMR17 +%!PS-AdobeFont-1.0: CMR17 003.002 +%%Title: CMR17 +%Version: 003.002 +%%CreationDate: Mon Jul 13 16:17:00 2009 +%%Creator: David M. Jones +%Copyright: Copyright (c) 1997, 2009 American Mathematical Society +%Copyright: (), with Reserved Font Name CMR17. +% This Font Software is licensed under the SIL Open Font License, Version 1.1. +% This license is in the accompanying file OFL.txt, and is also +% available with a FAQ at: http://scripts.sil.org/OFL. +%%EndComments + +FontDirectory/CMR17 known{/CMR17 findfont dup/UniqueID known{dup +/UniqueID get 5000795 eq exch/FontType get 1 eq and}{pop false}ifelse +{save true}{false}ifelse}{false}ifelse +11 dict begin +/FontType 1 def +/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def +/FontName /CMR17 def +/FontBBox {-33 -250 945 749 }readonly def +/UniqueID 5000795 def +/PaintType 0 def +/FontInfo 9 dict dup begin + /version (003.002) readonly def + /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMR17.) readonly def + /FullName (CMR17) readonly def + /FamilyName (Computer Modern) readonly def + /Weight (Medium) readonly def + /ItalicAngle 0 def + /isFixedPitch false def + /UnderlinePosition -100 def + /UnderlineThickness 50 def +end readonly def +/Encoding 256 array + 0 1 255 { 1 index exch /.notdef put} for +dup 0 /Gamma put +dup 1 /Delta put +dup 2 /Theta put +dup 3 /Lambda put +dup 4 /Xi put +dup 5 /Pi put +dup 6 /Sigma put +dup 7 /Upsilon put +dup 8 /Phi put +dup 9 /Psi put +dup 10 /Omega put +dup 11 /ff put +dup 12 /fi put +dup 13 /fl put +dup 14 /ffi put +dup 15 /ffl put +dup 16 /dotlessi put +dup 17 /dotlessj put +dup 18 /grave put +dup 19 /acute put +dup 20 /caron put +dup 21 /breve put +dup 22 /macron put +dup 23 /ring put +dup 24 /cedilla put +dup 25 /germandbls put +dup 26 /ae put +dup 27 /oe put +dup 28 /oslash put +dup 29 /AE put +dup 30 /OE put +dup 31 /Oslash put +dup 32 /suppress put +dup 33 /exclam put +dup 34 /quotedblright put +dup 35 /numbersign put +dup 36 /dollar put +dup 37 /percent put +dup 38 /ampersand put +dup 39 /quoteright put +dup 40 /parenleft put +dup 41 /parenright put +dup 42 /asterisk put +dup 43 /plus put +dup 44 /comma put +dup 45 /hyphen put +dup 46 /period put +dup 47 /slash put +dup 48 /zero put +dup 49 /one put +dup 50 /two put +dup 51 /three put +dup 52 /four put +dup 53 /five put +dup 54 /six put +dup 55 /seven put +dup 56 /eight put +dup 57 /nine put +dup 58 /colon put +dup 59 /semicolon put +dup 60 /exclamdown put +dup 61 /equal put +dup 62 /questiondown put +dup 63 /question put +dup 64 /at put +dup 65 /A put +dup 66 /B put +dup 67 /C put +dup 68 /D put +dup 69 /E put +dup 70 /F put +dup 71 /G put +dup 72 /H put +dup 73 /I put +dup 74 /J put +dup 75 /K put +dup 76 /L put +dup 77 /M put +dup 78 /N put +dup 79 /O put +dup 80 /P put +dup 81 /Q put +dup 82 /R put +dup 83 /S put +dup 84 /T put +dup 85 /U put +dup 86 /V put +dup 87 /W put +dup 88 /X put +dup 89 /Y put +dup 90 /Z put +dup 91 /bracketleft put +dup 92 /quotedblleft put +dup 93 /bracketright put +dup 94 /circumflex put +dup 95 /dotaccent put +dup 96 /quoteleft put +dup 97 /a put +dup 98 /b put +dup 99 /c put +dup 100 /d put +dup 101 /e put +dup 102 /f put +dup 103 /g put +dup 104 /h put +dup 105 /i put +dup 106 /j put +dup 107 /k put +dup 108 /l put +dup 109 /m put +dup 110 /n put +dup 111 /o put +dup 112 /p put +dup 113 /q put +dup 114 /r put +dup 115 /s put +dup 116 /t put +dup 117 /u put +dup 118 /v put +dup 119 /w put +dup 120 /x put +dup 121 /y put +dup 122 /z put +dup 123 /endash put +dup 124 /emdash put +dup 125 /hungarumlaut put +dup 126 /tilde put +dup 127 /dieresis put +dup 128 /suppress put +dup 160 /space put +dup 161 /Gamma put +dup 162 /Delta put +dup 163 /Theta put +dup 164 /Lambda put +dup 165 /Xi put +dup 166 /Pi put +dup 167 /Sigma put +dup 168 /Upsilon put +dup 169 /Phi put +dup 170 /Psi put +dup 171 /sfthyphen put +dup 172 /nbspace put +dup 173 /Omega put +dup 174 /ff put +dup 175 /fi put +dup 176 /fl put +dup 177 /ffi put +dup 178 /ffl put +dup 179 /dotlessi put +dup 180 /dotlessj put +dup 181 /grave put +dup 182 /acute put +dup 183 /caron put +dup 184 /breve put +dup 185 /macron put +dup 186 /ring put +dup 187 /cedilla put +dup 188 /germandbls put +dup 189 /ae put +dup 190 /oe put +dup 191 /oslash put +dup 192 /AE put +dup 193 /OE put +dup 194 /Oslash put +dup 195 /suppress put +dup 196 /dieresis put +readonly def +currentdict end +currentfile eexec + +D9D66F633B846AB284BCF8B0411B772DE5CE3DD325E55798292D7BD972BD75FA0E079529AF9C +82DF72F64195C9C210DCE34528F540DA1FFD7BEBB9B40787BA9351BBFB7CFC5F9152D1E5BB0A +D8D016C6CFA4EB41B3C51D091C2D5440E67CFD717C56816B03B901BF4A25A07175380E50A213 +F877C44778B3C5AADBCC86D6E551E6AF364B0BFCAAD22D8D558C5C81A7D425A1629DD5182206 +742D1D082A12F0780FD4F5F6D3129FCFFF1F4A912B0A7DEC8D33A57B5AE0328EF9D57ADDAC54 +3273C01924195A181D03F5054A93B71E5065F8D92FE23794D2DB9D6295729076BD8ECBC0F4C1 +BE246922D2482233846A96D867B66D9CF25A1DB661141D36B8506E61A022F9EF8BC1F2F674ED +F1533E67A78CA29A612AA9268E113C5EB84DA56CEDFCD7A111403E6E2A8682DB04368889747E +003A124395ECF0C7FC81218552EE7C6F60BCFB4120893528670D0E8A4117EA5676915E3591AE +5652D003EEF67818A41A8882E102AEEEBECBD15DCF632ED246A6A58B6A7780DB6F1F9AE3FDAC +8344585DE104F2BA2DF06D68945889A2A3B6C262FB53FC670BC5EB7C56887FBFB7AA70268411 +5872CFB0652C6B991407DB32EE3E75E8961D89542922948C903EA1B05CEBE72100293B917F51 +550BB61E827CDA95270EE935A64A9B68688C23FD85C6BA313D78050C968EBCE93639627EAB9C +56D4D1D346EC2A24CA0B43DA264AAEA9BB91F1DF9A97AB301B4C4F496ECBB660EBE1DF7988F1 +C2B7A119B5322185BD83323B1BF45116AC908A08AADC304F33A65304BA0374CA2190B0A211BF +98CAD7E4738B9BA0C087525438EAC6FCE0448982CE914641C1445BF0410FFAE12D57F265EEB5 +611DCDE328C5A8050BF89B3F617F37AA7FDE318E47616E207AFDAF6D9D187E4BFFF530BD7D8C +117C8B075D78F932AC9D0AF963D870B9AA999D7F337D2608EB41B72721D75F4FD6EADDC8C9C1 +19E1201E85849D84E90BE51F766393D16CA3F95B8011EA8CCF4A996F84659FE91978089A6651 +731CB09FCD888B81459435F18FE61096A9031575C29231BCA7BFC7C1ECABF1B867A839EA97DE +660CCBE1F62B52F0CCD01663F718005F086B16FD7A107DF35A1EAC7A8444A974400E9238A799 +6C4FF90F1D5A94C6ED3C9358C5AB664241922872FD549E4EF7030338679E5C9BB12FBC77564C +C64A8FFBD2E81C54AAF99D4F64D3A040B02B13FB426210C1C419CC1BCE69BC49D680645DFBD6 +A8ADE5D4FBC1DDFF8A731156522B688A23D833E6B1115D6082DECEF241A28A5785FBC41B27B7 +3FABDF4FD50FDCCFEE7E9B87EF97A06522572D38F59FDCF88EE7C085A5194F1B375C8FE4023F +CE2D1707A299F38568E8382752CDC9A9A286CDD3BB864BFB276C065D36F2E2C2AAF32AA5A4E5 +7E4CD212874D9A691D030118827287316B11C387679C94F561DDC54C90EBEFE9677613D22806 +7FE9131EEF17D18C5D0A769DDC1ABABA6FF8432CD7C0544B842D9AD6F913A7BDBDD37C865AAD +6949D93554A7D582879448EC4BBEDAFD7C2586069BF4CA4B25655BF2A0E169744CA2A3C72496 +904758650703A62EAF65BEF819B596F46716C919612D64EF66446005CB9B8497B0649C8DF5E6 +76DCAA08FDD73327FB6ED89A00C99948B284F2E4FFFC7671BFF52060B63607104093BE8AFEBE +ADED2FF195CF6FD2B59F2B42F9EF0D1E6509AF4D76A68FADF00C4099DD207561950FB9685C86 +0929A103AD57C712272AE66D874D58209B79229691FB4A01EF2450EC2268E9D597CEFD12E4C5 +9CBFF39E5063C42D9F2CF32C3654C337BD52E4AE83921786DB2FA206A67DD5568D1793BEDFF3 +B998812DEEC922B84A531429AFD73832C5AC767B896EEDB061A593B9961039D5E9B182081F9D +C9A1C3BEBEDC750717F056928B3685DF10A8501BF1C6AED81EE81A1383012187186FFFF3B314 +BAEAE0808B653EADCE90734AB16CF6414AFB85599739772BC5F126E123497B62C6B47F535C04 +622693D564EF44D07F69685E932ABBB9C038C13B6F61B58C3DFEBB88D2BB9DB4E6CCC7AACBE4 +64FA782DAE1056155F081829002592769ACB133D7F596912C5BA5872A4650F2FC65C0703240C +39C88EE5598E11FD0F4CCB83BCA4DB824EF99C79791B2943DC4CE4C865627E13D68607CC819D +E2E72529C1C5AF439B2ED095AF6633C8FF7C7BA59F68837934B8A2CA13BC91B3225307B095B6 +DAF079A41C6FF9E545AA0A0957FAC39F52AC481B0B9974E7057D3081098E23AC91E98741181E +F5A78C514262320BCAC5D886C22C8426952D3E19C23A2497993234C554204DFB4B0AA869CC89 +A4EB06CEF0C8B8DC079AE1506177307C60EC3238F045A93C14051B063A05B502B0E0F5144980 +B085A13C7E1BEB5D259778F66A3D4CC2EBAFDB43F83B0A405D88E7962590818AB9E9F1C9572D +2AC1BB14A54C5E344792FCAB28FE8D9EBF2B095C152617414262DEBCB1BA6AC33833104548F9 +1334A02BC2EDF8934F638EA88090ECB5749640A33258FB0368A80C7CD3A678427C706442BF39 +45CDB7CCAA1C9361645799CCF40988D57DD3415A000AF612D1A4E4221FFE81F11997B494E1D0 +4A5D0EAD88D2FC76E358449A8CFBAFDF5A870436141D271B5E712B8ACDE3901FBE2DD4010416 +053A1D486FFD2B93D976D017EAE78D27C736F6FA1E32E8F1BEFB2E735F21C7C8B74C9E798F4E +73F7E73A90F1BE6370CA1E848A64F1CD8BD99A459BBB6E6CA51C6E6AE875E39694D17227C98E +4979780834A5FF95588F62626903304E86EE889DEE318961FCDC295BB56A935050298E7A7E3F +0A6D98E264F37720171A935B3C914F7DF5431C2FF6C48C230E237DD71A51B7DDD8F66A494F3C +AF693A42A280C5C6F4F657EE8ABFDC7A1CCB98CF678AD5E66267DC78C6DC1B6D781910340B1C +C8CFB9AA2ED6269857FAB492ECBF735CCBF804A0A0D59EF36F441F97DE0D09A11A3422EA70D9 +27438F3B010D55FB5BC77B398DC3FA766550EEE321821C1BA1EB6CE16ADE9BBED68E4022A48F +E703505C7A5FF8722348523C240B15D7D4E5B966CCFD83F0DA09F079932A8CBAEED8ED69D952 +24E0D6DB607BB725689C4F9331AC8E882DD668C88AA4F683444C210602986F818A8FA219E68A +970C10D2A8C21561E7AD8891E10CFC6D6DB42B0CCAA454ADC90A28CB81B0510D551F844ADFC8 +0A55301C8310F9D103C489C90A44F84F47B6F1B8D474366071CA1522215ACE0D842767AB2C96 +1D1C9B32BB886714945AAFCCFE513743F5F5C44DC1CFECECA538472511896C85B2C9126173C1 +2D4B2B36C4B62CAE0E746C0211EEFB8A8FCCB473BC50FB48A3C3E6946016908E5F4F4914FDFE +EDF1186F12A39F13131629AB408FB2E0DD186C257CA3DAC07BE9A7528C725DB8A93D52AE0C10 +E4D290AEF73C7FB2CA6BF922423EB71A8C59526E3D73E057D6279630DDE8906B795562F4396C +0869A20694370F2696B00FE2F96369B26D56B34A0FE7AD376519D1B8A50598B2D5A60004A3B7 +C89218AA9FFC1E5E74ECC4885C517C0627B58B60B136F651C1D48F388FB9351FC5C46DD3C4BB +CB7DCFD01E6DDD4063BFF55A34D64C55599A82417717EB593ED428B67750972BBA8252C31507 +BDD7435ABE4B4EDBE81B312CC5F91A1F9237EE9C278D11B51833F65260E3BD0410699D0A0B8C +613152578FAC985028EEC5F10E8B9BFD680CB0BB53B8E93AD0FA3A749CC223BD356319FB1B6C +6EC397D22248F0891EC1B60E84E89886212FE1B41D5C2B6345D4BA2340306EFC811586E06AB7 +EE765E93C50B873FD48870769D1D218A10952A9856B4B51445FB82A7928DCE5FE1805B19B99D +5378CC9271C4722E47A09A9278FF244BB280CCA6A828CD0901AE75F5BA1F87E73253984D7AE6 +6515141E34D90E770992A0736E3D042B304271E207DB1F282B2DFF4388E48EAAD733AA746FDA +33C9D9C7C9FDC090B4B2876FE4645C0BB822CE40D581C7625F9EC0DE5DC6A0669412E9712507 +139FC3652C35523AFAFF01D3BD63A1E2C8A53B9EE0543FC505902E8FE0C23F72D824E951C40A +6483CD8A12A5B29F7C799309D17386917861ACC27C200AAA34CB2A104DBA07EB4DDF5E4099E3 +57D625394728DC83E1D722F3CC1AE7598F169E9C9A2C1E7250715DAE8660AE119D8E29323FAE +A613C0D31C0C1D4005F2BFCC2D7913F8A0E18D1DA390E2F1D3E28D6EDDD09C93D019D608911B +AF7BCE79557B1397975E38E906B695B6AE1C22AF047DBC1D7D08744F182B2263E14A75B843DD +D8F990078410973D7CFF56E897245A224A1DDBFAED2D848DED109648D42DA10219FA6358BCE7 +7565464AE52AF167FABC06C11E6726FC233D0144D35AB68C7269ED2778017AB4AC15639D2588 +952FA22550E273DF724ABF514D1F0364A1E2A7D9CDB4E356494DE3AF6125D3CC6D2DDBA01AB9 +2D36216A0505B4C0FBE46AD4674D8BB51E7520FB4403BBAE43BD6A69E475EFF0ED4F71D865F6 +D3BF6E3ED5750807DE076C0B1F59083D488AD5FEFE10D1CB93A0F4F110E45A80BBB00BF408C9 +6BC6347922332F3220CF474B66FE1904FAB3E58C9ED0B4CC7215665EA72EA2F7212E7927877F +E71070D4EBFBE97A375A8784640DEC93F6D6EEDB7224873E8FBEF31C40622D385F6EE43CC6C5 +720D3DF72065155D58EBD21F2C93F323E9E0CDC35AC43330F9CCBCEBD9415173E5304DB65D3D +CC4A8158B8A838CE7E0BCC4F4BFFEB9333EB9A28CDAB15CF3256AE784884EB1FEC9B65328A0A +26D0C8EDFD3213384B367FAB9829A4A1823E223A3FAB405E51593700FADD42352144F1B648BF +7BDD217172CA43066E2632DDF377A535B0D855AE8120A97E0C907967C36E88B9DA5596676C9B +C1FE9449BDAE8ED6ED101CA70798AFB9B9EE1B357FBD0846AF20D3F4E64AD7793501A0F52CA0 +710D5588C8A7900F9F58164D8E5174A413764ED0B2630585C09C66A62E3AC562E06F2572FBA2 +73F8F2F62B50F2FB21040D12F607DB040076159FA283A42C653614CAC50F6D929C6D69B7BA33 +1F2BAE21B1E25C2937B5404F6FF789B73DB70CD06E32F5658DC2CCD53D40ACEA5B19E4019263 +058C333D81E6F99741A86D21BDA9C6A6680B35FDC036AE2379B16E7549AFA7EDE71C3E23DF72 +1EA9F4580D8C516832677FDE26B79CE1A922467086E293B003C9F725663FF089DA8855C5FD23 +2612FC0434C25B759DEBAA039A658A8F291261A11E58460247BD0A03D3CBAA7B005D605030D4 +2DAEB1914EC78FFA012E5A416BA91A877872A489362909CB20CC859F032E305BE4E1E2510803 +C3F475CEDA2C3DC8EF409FAF1E260240D9EEAEAE853DF289471F6206A91D7E7A24B3568ECFFF +34269DC13FB9CC71850093DB85BEA6C890ED3BA5F8220B7516353A9B9A7AE11BB69B37827E60 +36602B536A8142D4524AFE7B951125C1243D3C8845A38AFB7BBA584219487CD88B302487E502 +D5911D79EAB6CC2070AB47D5BD927B0A835CDCF0362C8BC0DB3B45AD85AA6434DE49B32BBB5B +D180AB18C98B8E9538089552B3600A532FD24769C35281F3D60585E75988A305F1278F6F2A5E +E0405D0F30B6770AF0364F4D982C07D607FFA4D55CB773D92F9B0E163934E801CCD9A23B4793 +0A57CAE509C9E021D67C3E08BA173F8274B6B1FC1A53305DC998C6576EF045E84FC0BB391E97 +1D75D69CF507DAF86967BFCA7F098BE6F9F19AE1B72C433826094601FCACAE2FDFE2773BDFFC +19616AD0E1DA13B6575B5E949BEE16F4198CE82DF7BDB5A0E5411ACCA8D74CFA1F7FB2F0B696 +DE35D3810E090F2BB036BF80AA77D8E71140005A3014D736D4338EAD5B3CE7760B0008C418C8 +0508C44B9E5E8B58B6B770CFBD7AFF85631CCA1EACB7836580F3D889D9055FF808F29CEF9EBF +F7FF904F89D6655DD9A7097E2A27C19A0C47E710FE7143A2EE1E642DA6AF5606305C2ABCA4DB +9AE966057C124757B094B5B1226702B1A7FA4F082F8F1BBF841ABBC29F760ED72E04746EC768 +95D4D5D78D2E09B73E0B6CAD2CBF7B2583C1B6AED6B208DD582795177DF4976908582A253CE3 +29AF84DB80D2DDB23C02C659F99C0BD70849B40C4BEE2C41C3118E5444CBE7DE1E57DA268C9C +6E0DA8F2FC33D7193F0F4ECB83DFBB9BEC8D0098C10134FC5C2700A90A9F0707AD75762FB063 +F620B691C478FF88F78B486E7FA772C06E3F86B94555D981ED92FDF2AB8DF1B9C1F9ACA18009 +8D876E0B5A1F44D53A4341AD0C3C0837B8A595932EFBECEBA6BDEFFBEE967E474E173F999071 +689C1A7E23255D793557A022726053B5BDBC9C333926D714FF8D6261E492DF9C905DD66DD1B7 +E17E714A44C1E073DEADF6A250B765872BF96E047B297580C27AD1714D8A2CE93346D0A972CB +A8BAE026BC1646F8FED5C9A3366E73A2A65FE7FBED4A8447BA4CEF3F25E20EEC13F5448DAB2B +1768BE14A2F1FE90117079DE58883A86E7759A3F8723901E70ED76DFDAB6DB2A2597F3CDED02 +E1418E33EF2FC5EB86072BA97DB0B4A87BF21354EB8FA680BD07FBAFCF8CB2FA44A9BAD1EC8D +5692B12A0390E550E272449546A95AEA075538359DF87234050BF5B6FA86634E628DCE90F594 +7772B834D3DCB5BBFEF9F5FACCAC5EA302813FA76A0C7E8D4A6904110E7D164FDDA1F2F9E867 +052945E5697F3E7B3F3E44A159FDBB940D942C43520B6760DAD2D26E5568604EAF88278A7842 +315D062BC8B723D19B35D5913264C3313D68F88A1F063D0C1B5D51296C7C2878C5A016C6ADB6 +72F6148EA484B435647794900EFC313CA6FB90D3165695C194440F715875B1817B511A9255D7 +5A7EC5343BAF3115503E2B7B7550688CAA306B175B35F1A17D821F4168E5F8CAA50058E5700E +CA8751C8446A91C1EF58E6D8DE3DC3D7F89FACF39E5063C470F80C7D740FC48D67A51EB34ADB +4BF49F04166E3C8CC5EDBA32684D760CF5DE8E3B15FB7C922BB6866719F75F5E4B35FE0BCFC5 +0117E820A707A9D45377BCBB9B5057C58D4D9ED248BECB7D749CEAA982166F4E8FB3617654D4 +6DA66F2766FFD0404ADC348BBE5CB78623985F7BFE0B05C802F028D9F4A944F3077E85EB1E95 +3656F07BE40F600F17273A582064E98C77B6ED4F49B086E2E83E8E7DBE8CD9DA174B49171822 +CA13ECD8ED6CADAD41E56BAE142C7EA81CE7041B17CE25ECC4E7B836A6D2831DA602B8E74347 +810EE746CFF2019AC296C137E34D2078D6CD89D12714FA8056C200294B7D43A678EEC4B09C0D +FBEBC9899763B21F281A278D4A67701DB89D786ACABDE84A78A9647F68CA1F1D96237BA5496E +840C270C2DC9320668EB83864C340DC520D9DE1F6C6035EFD0273406A14DBA72D0D484CF006F +559C114020ACA0BC9E1822EFDFEC07866913956D0BF90C5B0F96B6C17799153E59603FB415CB +AC3AAD5512EDA753DE8EA7B4FFE9135A8C70416899F5B6D1765B03ACAC1F8F970BF2D937AE6B +CB694DBD3DF0DB2B53FCFDB8EEDFBC7BB80246F7173B3193C0FD9BB5C1F2C3B3A9AA1B4EA166 +322660DD848C4922FA4FEE272BA1AE64BEEEB19CC875B268712AFF8D4F245C2F081EDE4E6193 +21F341B217198E7A7B6B39B5A13807CB970AD03277FDBDBF29235C600E20CCD4D4153A460124 +8829F857509717222C2C9535E05DEBDEDE4DADE6DDCB343C2E715573B2182AF3875528120B42 +DFDA773CED4E091F4E99FC1C8F33832569ADB8233C781B31FF37868723D053307300F1E113E9 +08473FBE39ED75A931C290E7EFAF4C89D4CD22F63852EC30831D61D1DE3815A6D18FBCD15F28 +EEA75AE50BD0B237E8CB0870CAC5DDC13DA58DBD060D3193FC92E6C4CEF3BCFD81CE6B3679BF +C5855796CDFA8A26D63A659A2FF7A1A7E318A7F76FF80E846A2D647D38E827FFAF54BD5A9221 +EEB416A475EABF4EF0409B1CA55A851C245BF7207AA561CF2AF19D6FF145C884413A4015795E +89A494F32D78674B9459C7FEFD38163B355DBC5D47FEF1D6AA91940B5230E47AEF92E526DDBC +4A2C16762641FAF1EDF50092203B05B19E2609787023B59FD3AFFF6E32915CAD9206027739C2 +DDA28F18BCCEAF2AD29C826602033327589A7E06813C368B09C15D29F784CFDBEED0A9BAB681 +E0E7B26B484955D1156CD7F0D671D1594AC915B467EF15EA704353E5B66F298465E0B1B56FA0 +EA242FF5FAE98BD9121F52279AE360B84EE800525372BDE229F1347BDF6533396D270AE09014 +DD5EA550AA231EDB265A135CE41B0B5C871E5F50CAFB04233D37BF80D6DDCADFBA880CF560C3 +0D8FB7E6A72CDB6BCCBB2972F4064C379FF941F4DDC8743EADDCFE6E15D063DF73CBA7DE3518 +75FF1AD16F3EDFB240D683186F29A0FB16A3307BE57D903A20BB1A216554D779625498AFDDA4 +520E1CD4CA6C375C212393E4422FFB74E68A513629D45D47471C66862526CA5CD79707DC8097 +83AB31CB4CDE5FA5C2CF1278324234290489BB39908A4480EC20895191F411BE2F7CDBD23A6B +CF8D30DD3D780E6CB5AA71EB33F13AED4147E8E0918F557E2DB504B398306847AE267403739F +21631E0B79DE385CA7482C03FD8A2DEFB63714587216001D313312EC7651255DFA89FDCA628F +CCF16C40086FFD343AC0B6D43601D74FC01748031C0FEF0165273557DBBA9AB3B8B04C7B57B7 +75F889B9CE9C92BF90765BCAF6AB8F5B958FD4F520F9E5BA7AF30114D9E004B708E39E50235E +6316AC516E9D777D6C653CA65529C45D5756CC52CA9EDDE67E36D438F60CBEE32680BAFC8043 +8DDFFC5C6C0CADA102AA95BAD0CA5D20103509F358B95F5D5FA27F22557C8C403542739CDFEC +8CD1A05A448F9B520EA55BF8D748D16402E3372A2A58AAEAA824C9A1E70A2D54915C4B4A5D7C +081FD2592E248A94EC29C3224A25B254E947516F3CEAD3D6C738C41D88B8CF1BA197789C9C38 +64B6A96E7A366F4702D6802B5E357EC3B220A9EF78F39A2003D98CFC53F71E2EAFF87001DFF9 +057C1FE0A04D24AB59C582B6B602E74C6D6F95E056DA9F17C7B1653ACACEC48B10A28BF09B92 +6DFDE5462AF6152D793D1568E521C3753A3ACCB5637AB1C5AFCAE8ED095BF8987AFBBBD9B058 +B3A12D73E33290D15D1C441683EBF2AFF222AA8F2A57630499F04B9D09B493E42B9741E88048 +1DFAC9DCB3FDEC334E0E97D2568495664702B0A9DE2E2F25A4EF4782B37D6FCE852980EF4514 +70E095DA86383F46C0F39B4E73F2BF01527C5FE1A6FCCD2AAAA48A79DE5044ABDB75242D4AA8 +B080C8741FE5474C7614B162A74F5F409F15257C90E1A48D70F72C2E8ECE686FEAD6EE5C12E6 +BACAFE01DD8EAE3EDC5B92623081FBF3056E5FB353EA240AFE3ADCAAAF3649396BFD236842E3 +CF8136525EBFD71E2070AA3A421603EC73BC8B22274A911A9FFFC3891E5FE32A6982976C339D +F51FEDF5E69455FACCB3E30566F3484B4C9104FCE58ACFA5EF787257DEB280FC5D8D01DA8925 +FAD0AF4037BB2C5138714F232FDCAAF126F76E6108680086CEC7B1335F335E44B7AA7EA0C5F8 +D5D5F3B79A123A8C6AB5F407D3BA39C47BF8C081C09908FCE1BAF0662B93B209635574AD533A +628C874869BD645DE307E3D3BA7E15D2D6C49EADB305C869BE3A535CA1B26EDCF1397E8F7371 +50A9DD391161CA8D5AFD20CF5AF9DD987B96C6D401ABE0CC33E519C8012617DEB01891437E61 +9267C61962C0EBDEBCF1C458D6700F61358B17F443110570B86466DEF908FF9E95D5C32BE477 +174BF7B37959A4B392325F8784E0D7587234DA25BE24CFF09D1F1E36C9AF639375B2B04DEE6D +F6AB1117569F4B4BB4794BA32447A4D55AAF39056C23CA7BB074CF652BC7ACFEFDFA492DA01E +614D73DDFF95F564EB7AA7FF77F808D7E71C720BF053F90014640B8ED2662F539B4B3CB2E913 +FE23CB5395B3F0514E3D4549486525C2367CF5ACCB8F43362EA1AC358F27EDD73D344237947E +1F47FEB6CE16A22CA0A71DAB76845EA701325016C7D2D5EB41A4EEDE55CFE37E66EA4A20363A +CE9B6AD85FD397C47B36B7FFB0E0FC81B29BB8883789F3E4F0BC5F9A83CDF3E11C3D76C517D0 +7C10CC29AE9C61C765BEB416E2B81EDE4351A7FD991E3C926CB5AADD1F28145D1DD08EA5DA0F +5C261FD2DA3C7A311479188D16044BBA7966787CA901BA9196D12603B644CAE46CC854FB11A9 +5D574E88B44D8F61A81BBC202B199CE8906B82D71D17FA1F1B20A0A227643BC28C5E48EDE7FB +04DA6742CB8A7A3E2402D72F96638450C16DEEC65A580057DAC486612AC8A5F38152914E6FDE +0CC8766336DDAD0A74EFAF3B2741358346374AD533FE04E0DFCD0955D50BC42119FDABEC728A +451B10BB7B148C1F3E15C2B1D73E0101F19B49E77F761ACE159510AFEF16587B58466AA536B5 +17991789AB37FC5EFED0B046A78D47019DFE0986B3D99A12A836B51F8832B631AAD458647743 +62951A267BD6D12D2580197D08DA24653C95F9A77E208BD237457C230F4FC0C08DCB777D2EF8 +22E61880CAA3CA87AD2CD05213E31DDDEACFCAF8E7843CFC96AAE90B74CD1D6E3CB2265D73E0 +745F55351F167FDEB6EF623A29A8C5B4A648CB7C9F4957A494B474BA92EA8F2CBA54010A9DF8 +7C786F19A8251B9635F487A0B14F5DFD49C4E78BA6FF4F799F94C95CE33765F580E6BF95BE03 +1520FFCC81DB4C325E7C511852C185B488B8719FA25F2D5018D016CD88F76E8A704B7D2C2EE4 +260D5FAF5FE6BC6E908E99AD0BF4A8698BE19F61E6FFE4C438B3BD3F78917F5C7D78BB681C3A +E374E07302AA5413B597626D868DBE49ED0BE3E8A3502A7FD2DB97DB1DCFA269D5C37A3301D2 +A9E9EEB612033EA16252FA78A39625C1F1E36EE3BE688080A55CCE0348D255679C13A9EA26A8 +F12955FC33B3A360BD06427B88C841057E42B5160D9428AF1697DD903F39E35C6120D9A2B0BC +641E493CBD137ECA4DA7B05E42259F8BCC03940B8EC9D013952E2353C2DAA8C9D5B8195145F4 +24D9278B77A7AADB0E352909EF3BD002CB529A07C73520B2BA2A95128706783647F1D447A731 +E488A51ADB9C242922CF29F43EC4810009FD954E08C1CED099BAC9D1A1A21B238B14CB71F68D +B82B96759647D575C624EB3E2E455AFA86BA2960F2660DA24739B574EEAB9E74AD913C1599F5 +4D75473C1C56B8A1DA545343D57839635338514B66C7B502EF4A889A76BB1EA09554AB22275A +88542FEFD00161A1CDEBF20041370788B16459F55D7E714A18F968037381E2AFFA4A42225B76 +AF19C12DD5F849263DA80721E0C7F65ABAF9B7FF9A142AD9B631276AF57D4C63F9DA734CEF0B +298C2FD722D09D39CA44AF7FF5DD5810A824DDF2584FAC8857C94FACCAB5F3379DFF54A5DA84 +AF082329484E0CF6D0A568939B78C6E624D9FDAD0168118809591012DE45B1110438D6CEF4B3 +C0B8FFF478A9EDB835D0ADA9EFE069504672046BACBA6E1FF23841EBAA6293CC776D13F453DC +C7EC6461F7C5B952F48C5B863A8AE2AD5DD3A25F21FDF6CA3FF7B96BF29928634963D4075E66 +F941B18CC3E64A559FB5E1A485DC07A2E4269328764B201838FAEDF113B752904EAC320A7D87 +A72431551DBCF1C59401E760708D9B0A0F902FF8B214563EE54F81DA6A447FBE81BAB0E949D8 +6B0021015F22E6367185D101DA431A384FC4F9B01526D9D71A743C53F85A3D1DE8CDE9D09578 +BB1C401B9FCF64F2F82632F8CE61B458C5584A6229148DBF2E6DE3ADC3B33840EDE50C87384E +D7BD1721A0CF7DFFF89A67C58FBA380397E02B58DC32E43F2D925DB562A1DE4BFE28CD2106FA +FA35CEE98FCABE3FC0C2BCA8B4BD9F7BF2AA30787066B8499AE7732513959DB546AEF4BAEBD1 +C1C064EBDC7F090144AA2AFB74E5B56AEA4CBFD70448BFF2D18C109311BB6EC6956E6A323639 +E33762F0B2B946AA5F6FF7E7AE5245A77B4F636BC2CCC3B5191022C2D9B38AC75D7740E99248 +B4F1E6A47DC363FDFA56546FCA90206081D3154E5DE6B3B98441290969A5A8F1E421E4541772 +2709C15B5A46420F9BFAE0EE84BD69D39EF0FDEDB1FF867F3A3DAA95852FFA3E20D795ED9532 +9B2D950E8FAEE30091ACA63E969C160D64F2189AF75AE5B5C2ED781B780F45A5926371A23F27 +FE5E27181240941CF8F72AC522B6E39F826699166FDFD75DE279F68A7E73544F2CBBEAA78350 +F1E82FC03DC19595BC583D6B00F21A6173BE7BEEA9BEEAD7A7C727CFB556A1323DE7D5FE8738 +E651897DE65D8FF33FBC0A61738F71C5F96E0120140957E8E347C38A552C356484928289A0A6 +B8C72E103FF308FA9A3ACBDF901DC666D46BC823FD6E23AB99410940EDA78C4FA475888A3006 +E33A630691D09A2B460A7114E13F2212B1F46004670AD3A01F3723DD126D13477D9EEFC54C05 +60C36BC39021290620C633689E03A55A12DB74CD395FBCB27EBC178BAE6FAE1BAC9D01AA8390 +503E9DB14D5056E6CED69C0544FF613CAABE85E1CAF3912092DDF2345DE08DBC3AE889582928 +45D30B926A2E58950479100E6A05FA5B4BED9F90E51028D2CE83FFFC2A5C6733CFCCC3F0209A +8EC3A0A7E50C1699E1F474AD36A740A29751793C7C8CD3F387F7F32799BA3164B9CFD2358E24 +96E938CFDD6326A5D537DBAF899E30D85C6A39583B3BEC6B6963C5B3A92EEEE09A1827FE7881 +8AC6A48E6F23FE734C40F20B5F731EDCEB3D9F2AE7DB3B5371C1FAD799913F4072013D02D833 +7ED67E109A4CE13CE1FBA21692948DE24F4C67BE78526892FE4154C4B7583E04438BE2CFA84E +B953584CB2556CD574DCF5ADB89F6893F4A7677DC63AFC7F403531B298DF6BBD4A53646DC706 +8C1D5314EBF0DBDFCCD63F5B4739E20D6C0DB0214F7FFDDF61E17046277C2B8C530736336A75 +86481DE38C8874500F768459F4B07BBEB42D5F08193F54E05C9292ACD4F65D4ED04E3A1DCD3E +0DE8FBD491CCD909AEFFC29E8A279FB8D32B6A9E349DAEE5064A58279753140F0B14F6D7B6B5 +71428D2438BB228951C51BEDB782C49BF4547D3B1C883951AA3CDE97D4468ECE0E6F7C2C7922 +AB97BF512ECB300D3593C41FA4A5AF7A016DA976405EE37429009B4F13CEF0FDD925C65C9BA6 +D06834F21DFDA86737DA567B47BD9B36E7415E285C3C71B1260CBD3F82040C5955C1AE4FD2BF +BB32655E380F14EA293B4F42F11AFCD82C9D85C377D9CAB6E729A7B6C5FD31D288E8800D27E4 +01DC66B011FF0BE19A1123AEF02835C21B06BF0EEDA845984E6D84E64B97A0C3851BD307274B +A7A156526B8CACB0F7EDC120666254FE6E7042767E9526170B20EF76A41C3147A30FEFA17228 +23896BFE93E5D50C1379CF76111BB5A4145D615B90C163117A66C22BA3A7B7E44FA3604E8FE1 +F1FF2BF5430806FEEDDC21F6F34035FAFC927D202333112645A9290F14262A5FB3A28325CB45 +627227CD645CD2A73FBB0B107F5F9B5E6E7CD8C0DFAB84A61A293B842CC1B3FACD8CB29CF847 +98739D5A60C172E327D487BEB3788461D0B18705FC76E85BDC06B7FC967E0AEAAB6AB036A56F +916E44543EA6DAEE294DE32A17D50866963BB99D5D2E7AB85C1819F5462A13E3A11BC7F4245F +940F9C3EB9C7CF65476F7D16A648D59D3BA16145609CDB3F17FAE5704719EB225D4A2AAEB0A6 +05F8D86EF1B061CD40ECDD84D17EED0E8E57A7B6E1E0C34EAEA7231201A83290BD6174FBFD6F +7A38457CE4BDFB9193599905E49F101348EEBE42B560738D2CD70C1308944E3BCC98A7677F23 +5EBC97C1F67D6328607C1A27F0490E0413CED1589207D9298BD0304FE83307EC1E9C706DD161 +AF3B9B201A54CBE2B3B7B73431E888B0B03BFD8B0E82AA119C98363E6D1B488276C9B75B35A4 +5B72D878BACF0BBB39A83936E31D069A96937468DF608C971EB49B482AD9D7A0A909D7273197 +45D924B9C2DE9556DED57C53DB92E8703C6663D6565AFB51DAD4F83ACE6157E99BFFB709CA34 +795E601664A57150295A017A08BA6262290DDADF166BCCFF091FA074CF10976CDF9C9FF78D0C +3538D0F62AF4E933945E61E967316B81EDC2BE257048E6D34979FD89FFCEE26C272A3219855D +82D9DAF355C8F4721B2990A23ABDFF59E1AFCEF606C420337418398DC1516356A5E77438D1AA +4D058A71EDB55F0A1D41A2B854305924BB71FA7500FDCBA24CB7DAAA90ECB16ED728FB548BDE +BF7DA57A96A5D0C5787DA3ABD3ADBF13B08F3AB39F20F13D53B603F9B82535C3E8E6C230C73F +F75EB496980BF67C672C311CB3A8B4621E2A29C17E611B048B3FA3D665731F34E308F89BCC7C +91D56DA4DDE2B7D9F83765262A67530B2F73EE801F398A0ECA464E6DCDD8CCF3CA64458617C7 +D9E642F5F2D156254B7DD71B1EE7225250D3241C450FD2D421CF37C223F300504468D94677A3 +6EF33A212FF6ECC19870FF51D59D1FA956D5AF2000BD53F3E292B0BAA78D71150F605385D8B5 +DE106435BC2534CE436503598B28DFAE4592A2673123A9E8FB2B8F5C12E34C2028E1FC668555 +2302C2A73CEEE476ADAA5ACF10C065F0D1D5F964341CBF860897DF1DC69A9461C71B8EDAFCD8 +CB992991F1947AAB4A780DFF6981181659B62C37ECE76EC38BFA937D2226D2D5688B8D6DE502 +FB786FCC2B157B19BB30FB4CD006F30271F56BA73FEBDEC4165E16223DC7A0ABEB585CA258A1 +2046D338F25D13E854B35D6A20C60658D61E24ABDFE35DF0B612932E3C73D25933F0C6D8177E +FE69847E97DB124FDBBA188F29B9E811D1CABA05DE9190D9B1C6A3A1A7EB5DBFE7056EF963EA +3015DFDBC47660E4CBC3A3F5DF93EA25C2D451FE522EAF6D9B923319251D2F1B3A85BAB45BE0 +594366CE4C796B6B3E710ED294E7F213CD28AE7296A3AC0C49799B8675FA552E5269B7ED30FC +FA1023C7287C2E8467FBC333B32731AB9D18B1FDB18E1A2EBB41839AB225AC3D51AC8638886C +1B2C58792D4F9ACD92ED5A850C2D7DAE748ED91CA282099B923A7217B2DE55DAB56317F28C60 +28030CB96A42D4382F78E614F4A488F58572F846BC5BFCFBFF6389586AFB769115B7E91CFDE5 +8A4B049B728C147E2C10B061956BF261B21A2D0DB16615CC18E10CAFB9795DF7FC691A6CC1EB +AF62D4B14ABE91CAA0F4B624AD921AF8D326487AC339E90FFBD79F3690DBC3DAD8E2812C51A5 +FC44302DBCE56282486A80F86EDDCBC8E1E0950A67231ABDBC441992F6A12EE44324F0B9382B +76854CC29B338A5E1BC1EDEBA7A4D0B1D8BACBF8D9E9015D7BC170FA1C5CE1239F0DFE786965 +3B765AB11B13210F0697C00CF514CD884479AF3DBE775D53E92AB1E04A1C362A0530DEC92064 +4C868104AE838B1B72F255C3DBB0C80FE75BD8932B4340EF77A239E643C5EDE1BA1EA8E80266 +644DAD34F4BB85BE408EA27CF825822BBC5636909AAA8D02854882215464962C7F666AA36692 +4F6245C12F0532447682BB8BE9EB3A510F4634160E8FE7C5F728B00152347177C787520B8E7E +08BA726AE8E7A749C92327A609D119A5FF826B0D3CD5A36B6B588ED0ED387871E04E71A7AB1A +6517D142DD34FC9444556236DF1BC97EB42A05D6A167379CB46AD22A6E71E8DFEE2ABA0F8D96 +F024369DFB48B5ECD74DE13BC95BAF1E52BB9F78A063E827CB969228087FFE40BE710DAA4B0E +09CE2E0249774B9C3D94614B8926CF8212E104678D06EAC73783BE324F01C88AECD3505A273D +78CFF249B4B1740E78010052202A7F461254A369A9BAA9C4C9BF4C8FE96E449CF78D0DA810DC +FC74E4DE8F68FCEFC93945CF9AEE7C539651C78225D04061EBF55F5822FC9F9A2D12ECDC07B5 +4B2A8B0D80A1805584F46CC992CAA2158B6E81CC2F0621C89577E7AB494E1AA44CEA515B341D +CB2E23DE9308C50BC69B27E32F24839655B6E798EE0D01DD056D32CE7E23CC85F7320A52FE2F +56B258F0E8BF627231C28DACACE28CD4C628F93D54E538A89EDEB83A6EAD86EEA395E4C46A6A +D7EB447904DA3ECDF315B894F12C69045EA80D0E0F9BEDB0C222D0795FD7A529D0EAEBD7AFA2 +FCA159C8B0810E20878840C9C40AE445E2ED79B6270B0FC6C6A446D0DB4590748610366F07C2 +35234F652C2D70F86D820D14BBEEF13F0EA2444BB2694E59F1E6919F48D90E4E0DE324F6EB6D +E58D6023F2BBA895B45CCB2367B0EC140D862788875A7B92B2BDF4384C9F64911326F57D1AFE +AD9784B36F59F574A9D672D216845BDBB40651B0BCBAEDCBAF7CA00F22018CAB853F1060C886 +FC0036130C820F35F3F4DA39DF81125FF56CD70D3C15818FB29AB5F142F5B457589B537D550F +E3D3DB040235ABBF34E4FC8E82642F28ABD8CD2AA6A4BFA75506A067302A8B4AD3F6880A76A9 +D2D1B22C90C9824A35E93692EBCAC0922F2751BCD5BCDAA6A6FB8E39A1562FC1D2EE8E3A0DE2 +18AE8E3E0C10256FD4FB97FCD865D375401C311DB1703F3EB19F14430501B3AA80B232F39191 +1AA1C372D309A41412D3D3F8FBB22EDEEF0B2D7E7AA800DB913A632E3303A2BB0E4E5BAC1928 +CBD3329173344F26C3EA65C8BF021FA196DD94C077490EE6CB38F6712C1885D00D0DE5FD4529 +EA7CB31C6A42A1FEDBD4BE591F6B0657C362BD6E5041ACEBC51B30E35E89D15FBAD461F3DDF2 +1E8F23F2C824B747E953DD23669348BB83A8FE53D3B9E45A156F873836EA55F5F181DF772ABC +6289743F087A889420CA64CCD687F60837A0B8F5DFD5F894176687EF80F35E97976FBE76FE19 +5784D22D876CD8E3ADB2D67B0161CFD6DF6E0EC61F783E678EA7A2DB389852AA472B341F2705 +1CCA7BBA7E6F906376440877DD3C8706BA6215EC376067E4925874B5589F1461CF1E9C79AC81 +FC590F4AE9C6B5AEFF3E905B42740B23FD57E69206EC5AD0CD3760D3B213B49FBFA95B1A527F +8BD193A3CAA1A9787BC96C655F2C1C4FCCA36A1A93ACB2ED14160E3A345A761BDF5F93604F9D +25334F42E8888694EB7A0C5E504CBCA8B57B9EAA8D68C18944423A26013CF404AC2E77E5E378 +08779D1F40A1878460D07AFA6389D3147982934CB2F25A38C5BE0F09263EABA13AC322233D02 +4EE5004922C2D9C709F7171FCBBA03CBAAF8FB208C0ED9971F64BFFE3C56CF13483D8896A1D2 +428F66E1D51DFCF1DCC59E739A5B0426305C46B8996E42A24CAA8149790618E97CEFEE72FEAE +A28292E262E9E7E6E6785526460918FC71BDF50ECFD89CC3488C15B24E7BC3542D9B29A32245 +0E0A496588BC11B1C3D4E38DD301AAA69044E5FBBAB06B8423EAFCD1C47FE2468563A83C9AF1 +F0DB1F648C7ACDBC8D609060D583E2BF8A26FEC208F37ED0A8BE0C071E4C647E2F6ED22B83FF +0F81AF0E03DDE2AC5C2ACE0921392CF680BEB7705BFEA99AAA931160279D0FCA99195CDB1531 +A1E7BFEB550FD148178AC5B2E806E2620824B392DFA166E295E75863214CBAD23932D0EEE373 +2661F780459D9932AFE74E30625C70F8B3CDB33E1BF61ABDB916DE3606BFC503D6AE3E14965F +8407FD47594A04F86EA7DE85777243CFC0FAA4A44E652DF6A4537FC2522B0A14FA7C30F6D69D +6E87BA7DF0B39447A03CA979EC0C10656C91B8E94CCBDFDB8029E25C26D1E57AFA8E3F0D5C85 +DEF6FA524C450560FE6D286AFF5E650CACD51450FD5D7585F1C77A46D5ECFDE6E7D47671EC98 +34143054023F5A072A7427F31ACA4E7CE87CEC22579A715C407D9F2E1298000151718E4D3DDC +478E6FFDBA840FDF3392A62CF1F3A6C6E2F5E8D35CD60A5541CBC37467F627C7D089F3E702A9 +44F46FDF82849980B028C4C3DAE38380C35BD014EA25F64AB45445EC704370F6ABA4A45C85B2 +6BC08B3BC1359100D5D198AFD7B51634BF01060EC75E97356ABCE2059BC3BB847E77F3A47101 +BDC517B6FE98E5FAA8082C5D91442EA1073FD4274E5739BF9138A11EC9C4B1C7E4D3DA9CE232 +0BF20B4FE9C778804B62C01C2703AAE8542E306E0501CDD62D3525ED62DC43F4A8DE651BBC5E +5C3B6661A83079D448A0B5A8B18120AA51BFED28674B0E54327B52142814BA561D5EF482D79A +C78FD27F82323840A4FCAAA1CCE43107F4D18B40192D2958D613895358651C967FD8B3336292 +0F251E4E2F739D0D1C926456FEDAE1C2FD50F495ADC62E0BD68584A1D9BFE965F0A50D45283E +4F03FA8628FD5D86CE3121693B99720064B1CD6037891FC83D1E22767B28F09940B80F108A36 +A9837519436FDB86BDB47EBA603BB44694E461176186033644770E03B0583129FB837AFE9EEC +E7A58091F948E73291DE390717155ED31BBF1FDE7FFFB0E0FEB083A261A5338272154FE0630E +3CF3624C53052147612C1381FDB005B6D08085FFD620F086C0AD2FDF35FBC5D621391EF26448 +302166ACE138D09698D85B5BFB4510A6B28C3F093892436C67FC661888823B9F978998AC6BF6 +B28049AEE2A3B9EC9A04D1BE35B55409E341B744F7D9A24A95C0EF3E7F42DD6BEED003890684 +C7ADADE3EB37D65D08689439F38E8169337C3277B67BD901F8BC9FBD6B1C2EB37D4D2CDCCA72 +63F451656214B3C93C183D3BB6963313CE70D065293604EB440F39C27F0D82CBB545C2CED00B +CFEA96C6AEF8773E6055C28E55E40BEA3578113FF780F16DB9722D9A6CD441CA45E49D95B25D +6EAA856D871EAA860EEEC1912C383A6E380CE7EC333C84B201B5398BCA763BE49FA9CD0AF5BF +0E0F533D5010F67B4B76C38C41232912DA20DA359D164C5D1716350EC9F6FDA4E12A044950BC +EB1B9F77CF5BC3F21BD02F959A0A3A3D4412FD5E8649C4EA15BA9ABE88776451BE8C2E23C74C +5D56AD51703802A7EF4E05F71210FE107964CF23BEBB44B228E672DDCADFF1A64B38753A6B14 +6B28A81C89556F7B0B8BC0B88CA7769F75E9143799499818329137683C0298777E274A81350A +4FB3EF27B024552EE73D97896F92F45812477BA9ABF82B15166F6A83271187EA7C7FC5918997 +2C1CAC90D0C144723F5403453E4FF041987C5E2D64C0E6B9F0573B8E0BD0719DDE7A4AE767E0 +E844E3053425D60AF9A53466ED02BC905766ADB2EF24EAEC42C77C1113C1915CC99243BD0012 +A0C4D933DEBCF3B52E6E5A729916A5A3C33EC25EC39F3630586DE9DE26279AD1BF69A8EBCDA1 +6E86986085D54F2894DCA647E888ACA0D984D75C229DD8AE63DA1314263B3017B79062EDC5AA +B4C6D3C688794ED5F379E2C9DBE6E85D905602879F70D5E1865E9E0F41E86F2D4EEB9934F540 +BAE3E9A8863C56105162E7C35A93E0E01E593929EA5A05B0A392A6931F1C24E3DD811E2760D0 +5E1233B8E3E9DBCCB4788D5511563F23F5EBB51B9EF05F83EA2A12CB56B7662BCAE1D2818446 +30366A23F10E01FEDCD48FF3A71376CAF6DA9E5D40F96B2CB651F8BB68FA2D0A336319D781FC +E0AC14D1C5CA1FEE8EE8B1BD04BBA16B63588885B3D94639513D54B2FE0662D2CE7E023346E5 +383340B74144841FB55CF07F6A8A691C88575E2D0F4C6D969EFDF21006EC67FC38590B26B313 +6946589767FFFD6A699F7B744F77EBA5D00891AAD570A67332647DF4D5164880680CBD4C1DB4 +C938059E90609969F7B61B467DE99584054584DF8C90BEE16D7B2A2C2D02E68F3BA93EF48AEE +962C0E7428EE243CE7FA1E9A20208104F2B8776940B51EE1DBF801CDAB652D68A9863A9D6CFD +24B6CE9C80A24BE8E4466DD92FCB0D2CE3EA9857044CCDF47C9322FCEC0A7D4CECE8FD921298 +2FB6E1E8D9EFB7CE0F93EE0555E0BB725B3177D136B6A5105E8D9F995348206D48D9946F53DD +D4F8BAC911A3ADF8D515F5649261D036ED0ED43E2720F2849E4CE81309D9E95B0B9C880FE15E +C56724143F320B144F3797EDE29D3FBA0F3EFB29EAD6E5CE8636C7048D2F93B32596A654AC46 +738D06C04A860C05765E65420E518A8B2BA2637BF8AB34D6EBBAEBD23518D49C7743CA206D7F +4B7CE7389C563D95EC877CDB62B0E98265BC5F1F93EB22124D7A991557C70A07DEF1EE32E68A +939B367F550F0E79A5CC21229594EA28EBDC82A10BC09611112FE3FB52461B82CB79BD8B74D2 +BCCEB18A4B0557CAF36574CD669B124A8333287043C4D671CD24B8B0E4BB423F250AFAE39233 +E24F8400685B7BCFAA8782C30F4FBCD501BFDCE32B3C5FE159958CEC728D77B345080031ADE3 +BD2C9A965F3AE26E52B8C702555A0C99AFDBDEDEB41F719B780E77906EF27A21093E8D5F9C83 +3A683B9DD2DC470D0A29DDCE4C0912B308F9648A7B4D05F3AB9FE13CDE1F1FD08498AC8AC764 +37287F0E9753C61704A2ACE398183BC5B9F354042E45562DBB9797A5537A497A38CAB1C6E9F8 +45E4D0F202E66EC4DB05C66BAF27D3433BD3A76B51CFBCA7211F0E88F4119688161F1DAA3F5B +0FE19628A97DE6A4F3A7084D573CF533D029CF6DF5C0E9FF412C1AA7C5409D49EBD923213DDB +FBE56957E04F1134458A1ADA73051D407818D55CF5F9C6C96FB69B3737E2912513AC5E94569B +AF365C982E706B9336FA6BDDD132A6F6F3BB4CC46C1C1F43D1A8E2A2CE47E95586CDD26C864A +EF7F035CF119E81FD2948A66903B18D26823CC74D0A0AA35A332EEF2AD20525A284D9F44F6B9 +3F8A9DAAD3CA43F020CDD3CBDA36136DD6FD093F40521489FCA2D8D6ED0C46E6277533C49218 +B5C264AF286663B2E179AD18661F73F20F55E5F522179962DC196FA9834045C86C761211CCF1 +2586D9F04FF1B4DA31018D13FB4D3DB28F1E862DAE83D43B4FF480C408E3FB2C081373A94FB9 +05140C5FF6F40C69C8236594A45CE8F929BFE22977A26791EA1963CB3B8E1C896CCB48EF86E0 +6B15412CBFB61425E639C1A9CD8AF7CE751F4ED17AF8E811982D02E0C31BF221645E9E273384 +DCD6CE75C43CE060D16043FAE14E6232D2FF8EDA67A92B90A9B4E81CB63E2C2857C5DEBFCD52 +3ACFE4C57B59789D47F04F26D0C8EA6E4BE480DFE37C00258B7B1C18CDA84BC23881B971F614 +9405B1767AB3A8C8EB2995C765E3D3C81A85E1260C56F813531ADF9262065D61B8DC7865FA8B +E2FE32FA5191138A6E2FBA743DC95C8B91F540F8806A70615E96227134C3625A52220713C6D4 +897A4E586EF0362E385DD0A8EDA4F22A6095EFC300DFB194FB9986E70F2FB573E857051BE415 +FB4FC61B708A94578FE1915DE0EFC1E35F115DB64702A81A0F6A367CD805776A23D1FF9BC1B1 +29C813B72268365128A38873986926EE89944E760E1AD4DA8FC21F90A42B08A060A9A633F568 +D5B7C696B13F13B9A4F19C373596C29C16BEC2D27132229234E10573D6AD86B7AAFDFD3E0201 +19E7BE79EAEF03AE57542059B6F06CA09C5B69C79E0F630E8B1C4FC39EE509C81626C6F07F66 +6512BA746FB2B6F334DF7CE7EC5B0BD1070F2CF5E4FCF8370A38E142AAD58B0AF4A2C8F2AB4C +618767C9D196F6FB10D28558B32DDCD6A2DCB5D72D6D48A19B4527DD1E904A122E72FD0FC4AB +60F53EDEAF9342277C3171BD6AD9A04B68993134C12578F73569E3F01A7F2ECC17A4A3381E2E +48BA8C33E4CBF1DEFA169466FE10512FCCEA0ADC772AE369FB3DDFF0CE15BA05738BE2E15786 +D38A2A76B3B9B7F2647B3A108EA6246B47C6A75560C737E1EA0488FAF4925B8265214DE86FBB +F15916D1ED6B0F68030FF9F0D7ADB82CCB1836787E6CCDB45EBD46ECC9328876871469148456 +ACCE89DA82D800110795420320607240850EB4D5CAB9F757671B101453B030F8081312CFFC3C +526B0F298206F160407E8B360267054115CA5BD6AAD4C562E66EB0CFA778B7954388788F5FD3 +AB72D2F01DE7EC1C14ACC3953290A3A0950D00F6875DEAA92068713518980E656775CA8F079E +97DFCDECD02AB3D886D27046C84C806B0555B44C90BF66DDB7E8E63493FE974C630F4998803B +7C0BAC0869FE3C73252204E639E3B76A28306EB1C400AD787EABE3BACF8B7868F95DAD4DB10E +D6E93B20802818809BA922DCA0CD16ADD8F5F34EF91FF43560323D78A4CBFBF7BE4BDF683BF0 +D8907C5F0CE11F8AE82B764BC3E56A97204B8367B87086FC58DCEB2B3707CD5D36F878D182DD +0BDF296709E961CABE81FA01A0DDBBD884195B9D928548D2849734E5F9DDFB592426CBF1AE92 +72AF52F5826836B74EDC379A7D392D80BAF90D29B5E652ED96F7F6C79F2537588B3B244CD951 +CC1BCBF7FF03D8CA7E64F7DC528E497493713405CF1C357CC9B0AB80E35A3E497388C041EF24 +86777FD8E621CB093875A4A084650144B735FB658282520BF90E76E6F7AB3DC7957B860FD2D4 +7B12988F8181EE31D79E404A306CD204236D50F91FEEB12F7B2215571AEDDD32E0B2A846BA3A +C5B28DE44383CF3DAD94AAEDE95213C80F1DF50D7AE435EC4FBABD66BE8CAD3828D5CC074C47 +53955F8510F2DDD7646A039B1382E10CEC30D089ABEBBF210FBB53ED91F0ED7A97BBECBAF7BE +CBBBDBAB965D711FB60D34703E7838C860F004DC33D798A74AA8E332368723519A376E334084 +2155777EA225B4A4B54DF852EA47F29111E6965ABBCEDB0C59B5F14F96240017B85D3B7FCBBD +43FB2250C48A0024449AF753A6F94B62D766B257DB2E9D3C82291713C52E2693BBAC64117005 +B76D69F27F1CDAC3F98F6370DEBB8502609A163D969C6842038064F955C6F90995E1898E7B12 +B7EC477A29F78BE54CB9D7CEA4BF7E93C219B5DF6C6739D03304E2CCD45F5AA81A6200D1BB15 +EAC25C766630A1485932292E7000C87E960C7D6DDBAEB643725301FE9CE7EBEE0ADEE6D79DCC +0D66460D5E69838D63B9EA12DD81D336572232EB422CFDAB189DDBC61DE9C576000FD25D182C +8AC6FC9A794C29C139B081054855F74CCE2BF549F12528D9447E516F52441035856AD906C2ED +0893BE4C3CD8B5ED8B7D9FED05A3F7F1B9F67E4BCB49BD8A345992AF992270D65626BD49F337 +8AC283E881057C5B7117CD35C2273A6F7369C96BB2B742953E261C64CDCC0560A1434F4DB691 +858601DC7BD7A82FD742C3ABB187AF4DD77B0FE45141C4A8D74B83687E16D79637B606B07CB1 +6299D7E51BC8CBBD91F1299CDDF6C4238A71C1F351AD6286FF31341044636FC0BDCCF863804F +155628A95D8EE1617C1AEECBD3F8558DDCEB41D46571C167B1FE8246E41175703E9402E4B49E +423EEA926C4D2CCDE9F050FCE108825E7527EFD24EE8D6C7FFB35072C61B0F1FD9E1D5CCB223 +C725D8689949F5D5E1A658B7FF2C6AEDAE1A28261E4AE1B0B008F49848537AD295F6C644E8A8 +D82D840C5F8148DB5A287661882F79999D0D5FB2D1433A80081E8671E4EA99EF342B7E1AB66E +8385E08CDFF034A5DDAB32093D3D99B3F2B0E20126E2DD0EFBF7E647D2C6400104F95DE0E89A +891B188BC65A83B36B91E21C53EED4E4FF1F96E2B539E6B5773705881C271033B4766F66381A +B16DF8E0C17D57133C2CF32526DA8A28A5D6D3A960293D8E221D9D5683003E4D989F432FE77B +BA1F3683B6316F4D03AB746B3E6A119B0ECE4C3DAC50A6991821161422A8249961EEA3A7EB71 +1169FF1E5C3EC79A6FC10213BB75E202702429EA76575E871E73DB30C57F1BBD9CE0C23276CF +152001B8C8E4750FF00D4126AF724919F10BA8F70F56AFCCBA63A0B36E720A11A32A694676E6 +224185C0EB28E9A8DB07514A87EB6374E7C6C9D4ACD5DF290985DDA1EC5925D9EE411493AD0B +C5B2F1991124C417818E7F17930A77D590A40360796D041B53526CA0B0D47E1FE023A43BA386 +1176A0144EC3D1D82B581D8D08C89ED697FC7C155E6D3D258D8456A1B5DD86213E3F210E5A8C +428E26B7D3C962A4FACC0F38BCA76D9DC53FF3ADE138678404688ADAEB3B3182E4A53153E122 +E9EC7C92F8D8DD00D279E76398A21F001DAB1708F1E935B9C36EA01FCF5B76651FA0E04B9E92 +84A7EFDD62488D9BF2EA1BF14FB9E770167EE37DA7A1306F07B6EFA289CA9E1DC814AA773531 +AECB858AA185DFE73BA8B5CCA39F1D1B4CE8E336059181C014FDEFFD3595EB6EFC5BF9E5F74C +11D796775243E6422532271CF2C5AF49CB239124BC6D4E0BF063449A3883572DC94F577053E9 +C34AF8D598A68456E86E6F854570A22C4F0569783C5750B95B4FB298463CF7F55A6994ECD125 +CC42AE3B113934825388AC5C641C868884D8E0252586EA3D5A4C993290AE8C062AD587F6E16E +34EAF20655BB4620D51D896AC2B9C6CA8A789F8A1E5D1022D382CE70A2ECB42DCDC2F9832912 +0AFAF6B0CFCE84F329107037F8B4F2C29EAE05E5F95A1E324B08CD4F47EA8A20E89AF2646BBB +02C6D4957A835F0DCE8496D1B688B5104AAE163A0F51C83A812819474C76FF2E9D726BC69FBA +1BCB1C87D77F53B0E5EDAB5629D0D26AE41FF8DAF17D45D9824F5D313C69F7D09C988E1366C2 +8907E5A3BCB0E6353CDD691D4A47061FCF0E7C4AAA1C465A2B690ABA601F35181B699002F94B +466F0D78C1DC5CBCC1FA3E5B3DDF0C9BFBAE618324C43D9352A35F47B88050C01786BF58D9CD +FFDD350A7E0CD0273F327272DA0C86DF1DDBFB07226C68496EAB987FF911CEE9D8290B18906C +E6C8CB1867664B6C3AC2536A304D3C62D2CBD836767FF1EB97FF16F6C8C3464C225BDE8D7332 +CC11C9E9D4418CF8EB1572DF082388779241395F8489C3AC1ABB7949F81088FCCE073318BF78 +B82A9B2E33A9E31468EFC5CE61C70C3023FFE62B3DBBFEE4167DF62A4E05D59A3F8FE61C66FA +9FE31AF96071AA0BB3172C24F7A4EDB57F388270C024D4E8FD6F8BD32551B650DCA2F0E16417 +8426AF7E6647987F0F1B85519CA8F1CF14BFFDD020C9C49468E62A7D6A49FC623936088BA8F3 +0C324C9BFE7678E661D0F3C94C1A9C8811A2819BAA8AF4C844CB3BF8D10F485D9108AF03CB25 +19A16246661C561AFCE3DE884DC04F83686A465DADF7ED68F363C6776F06A16F4868A55C217C +35E936256218E19615CA317372060AACB11F576B6839EB191C9BCD4342143201B3A5A8ECAA21 +BB09DDC4B4287014D4EB4C081BFA7FDC85815A486803EC0BC82F472D02D8D84EA92C557D9653 +AC97DC1744A8BC6AD3E45DC9A2C2B299D667BA3102B50A5C64566078FBB6FEC17ABDCE410024 +7382EE360085BB459D5CE5C242C17F17E9F061430FB1425AA325867A07B83B13FBC78DD3D751 +010A6F6149EB8476FC07714AF75292A16667E0EE84ADB5D8F2978F16ECCEF737A7CECBA18CB8 +E189DAD694CD034FC598A957AD120404D3C68CEC49D1DD56D5A20AEDB3FA1DCEFFB584300BE8 +9ACB2BEB4E6F213B37E8F46E3B108D71F7ED6E8F09FFAAD3045394D403CAC55091988D1E01D3 +6033434EA3F50313CDAE49AD76927D48AE866FDED975424ABEC206B67C40585160EC5D8FFC65 +8215497374C39C1DB12AB4B49C5F47DE5F82F8FDBAAD05732906E22A9A295D4D733C1A311EAB +8854E5EA6582333F04569FD380841EABA29201DEF4BEA072CBCB7A3996464C12695494D8482C +F929BF45CCA13C3DE03EE61C774D39E147BE198BB7CD8E2BB0B093F05BFFFE37367661D1CC3C +DB95AB55D4758C74001A6AA261A2550AC4D71F12C61005AE43774CD83E470D3E3CD2E24F0FA3 +9ECBCB5219758543D48D7C07DAF872CB5F089BFFAB44E96D181C47228FE147BF8986C26063DF +36E09CD6E68824E1637B7504FE9CEACA6B2726261A19180FD4E59D2B95BA98396C4B028E7BDD +F0D224E2211D4024C93A2680025317B6A12945C513071B6DBFA78E988280A2FFF5A499B6D049 +76032F0B9D8C3968ED153CDE93FCF22512577F7555539DF7EDBB95E2D25C905B90042829E257 +A3508A45B0EBDD25EF5B06DD59413F4D257996B7DF01B192B5BD261DC516284EA4DA6CB2AC5B +FCCEB28F30CA9FA22208DE29DCE7F9A79257EC609939F5484BF70E6AC3B2AE18F736E1D48A3A +FF584398C5BAB2DD04B1A7097DD790BA01089EC124B42B6A42AF331ACFA4538E9818C2C8A88B +268D3EBE788C5C0350BAB8D4D45206B3DE877492B96A16F43683784CE90352C6770D6691469C +5A07B045D23EDE33FD5C5ABE980B75D25564589209FC9AA485A42525DB0BCBC00460446F9EC8 +F60790E761155728E0EFBABD3CA57154F17042AAED67E4B8BFFE290A922B634BE5E00530EFF6 +124F7DCF7505CEBB1F36234788CB73E4B343AD74B01986DF92F536A9A5A2C9B67C2F97F67C70 +0798B7876E08B1AFB0E374E7838CF896B5F6EDA53BB728F598F0421E15C323B0214900E441AF +F52F76063F53EAD6A2FCF112DBC44688439DBDD15B1607D70AD5C7D6C29ED43FCE31E908FA01 +296006B995700CE0F4B06484856E17ACAE4F57938B1A57AAA44115E3D3C477F00156DEDD714B +1F7FC913B79FD6FF553A29B7504A3029F73CC9A7912D7BC346C6C64AB73A33FC4EDEAAD832E8 +26E27063FBEF6078423A6B2F5391E3ECCE56EC7CF4AFCD9A4D43C3A7227B90AB14199CBAD110 +500DBAF62A016630B249F55DD7A563CBF83D335DAD9C45BA8AA5483CFC8860C431619EFF5D89 +82D3A69AAD79E514D9E406DB0C68E0CCB9433545872E344051748B1033236FFB07105AE5BEC1 +2528FE0DBD6FEF89BE9F3B99E953280A6273DAC879CE95A3F5A4F46C3754F832176BADFFDF50 +A189EEC0332E1CC3CF87F03403BC58FF00FB9CB23E9FE7CD2E896D9F9DBDB0A5CF78A2D948F5 +92B17BE8FF43485FE1B5E2ABC88CCAA97129B23324E6B3C7CF0EC692E49A02D4B4B7E8797E8F +8297661592787DEBF5A0698001001D99E071986935CB4C20A6B1E2BF8359BA9F3C099877263F +4DD3E82840682AD641DEF2AC626F06B9D5F1FD1AD6C26DD26AFC83127911CAC1DD6F93E2CA57 +2D73946C90088A9D2E5431C06D2C1CEE8CFD8E2CC3310FEEF15583D71C66C1ACFB91C21A0944 +69CB474D1B2C1A78927F7DBFAE5140F28BBE006227B4337268E5A9EC2B2857AC7B1751C4C1F2 +7EC3AC3D289AC92B7ED5822F0A3BA7D90FF6C8DB70B896CB31C9AC03376EF75182D6673A733E +2FF57ADA889FD30FF84CE2F42817FCB98804F70C57CBC5522D4FE37CA1229401BF634D8FFFBE +0D0921FFF3F066AE4D2FBE874E6C4244EDB50D0DCC0C40ECCB1F203F74EACC3348C237C22402 +36A3CF8F8C6478A7630D8369650B3051816D4519ED00AA7347E630CA27270EA815DE07C8C6C8 +F34A82390A7B77CA16400095E517ABEAA77A9EAD684403DEE66F983BDCCFA5DEBD9A83505D61 +AEA65E4BECF0824B0D2BFF9F0550BF186E08C17E9984EC61BCF39724E5A7F3E2E315B4689A8D +FBC56459627388027A0B6CE7CB6A7D161AC0515E829E990C8631F3CE1DE2D453580543D4334A +53BD2858D16A058A6554E5D489C8BAF89CC5D976ADFE0ED57DC24CEC1BD7E5B1726540C0F614 +E59B395D1D9896AC6B11B40F4A403BE7C928A47F2B43F345D7CB0F413F2529E471E0393DF485 +1CDA7637D4296F252634B0B8BFF1D9B1EFAC1F29FF098A138C30EA764FDB45C98B477CD9F718 +ABE6A8A24888848BE4B44937322224DB9C88ABEA562344C99E05E9EBF856C46BE732ED599E25 +2D4E77109106AEBD6226F295CADFF1475D4F9AE040220D433AD74810D2EED75A7B32584D10E7 +3BB9E95CB2BDF2E3D85D3325A55EC47BE6FC6564895B2EDE95577572B0804647391DF5C4BFE8 +E38711C83256EB4EF6BAB5852B8BB03BEB0CAEA0D17FFD370FCBF53C18F7D9EDB546365FFF59 +39D2D1DA3F7616106AE7A2117932DD42989B24E668AA21EDE0C202711B390D5023C8B1F95691 +462F71D27137B7D63FADB8588B73899336CFBB372EB2EE6CCD3C28165A9563A3B3009F375CDF +9E3AB755D7BCAADB825551B88C2650776841816E6B7F19CF7BE73BBA6C71F4E0D6F26684660D +8E1110B9F304DBCC5BC75C2A97F885C0E871D8266D33E4FFB820228B2EA41DCB93B7052FF604 +FAA9A579B18DA1969E4F7B17BAC214603CA759F74481A9B9187DF2BD6F9FB2A083AAD7A163F7 +00FC012216BB1C57FEE490FED85E129D800C8C191534E7443F2EAE0704101471B249EB314169 +8192EDAEA80873166CE0166E84222A805E0A74A5356FFE5CE39401DA3623CF12BAFE94024439 +FE6FDBB7A3E8B6A44BD51439EC6C6C9B862E8B1147CD575B4086DE44054FFD3B1CD3F9C66D91 +BD2453991A0CCC83C2C70CB9D7EC8D813630CEF871C4F002D73DAF520896E72CB75A2C229B1C +42DB38690C89BBC3BF87A177A6D4B9BE78FA1947626ECE0F4B82FE5EC1CAFC3C4519C35A0A37 +3D32249C4BE14B2DB40EDC05049075C24B3E1A3B1958060A20EAE2D0E54E6EB9E723EA2D430D +3D8BA4872738929171F1E2C7B7687E71C1DBDF943DA36F6F13E5131E4E9D85F482C9C7F3EAAB +DCEE7EEB18A15FD5F271113FC012BACDB22E26D1F1CC2431216FE374B21F503DA895AE1A52AD +192B3CDCF97B59325304A29240A0BC81B727E58348F0DF141DC57C144A24D0912C010EA1AF7A +3727C6E0BDBBFFA05BDD95E4AACE27DE47D4B7C0C4824C1D39EB41BDEED7843BAA753268A939 +0CE20BE8DB262A894CA7E6614D10400C6FE195490EC9F1939742CA864CEE79380521865CAFEB +9E9EB0022A2EC915856B303F88B5DB46ECECA18275387D25863514A342F95CD17D3598A0685A +E4F6856BA7458AAAD3CB54DB8F6A0C0ED86B27402FB3D29D0CEB630F1D66AA202C6A2BBC9E6A +F3073F3C0030441C7F5C3240A1A721C9929C12239F59A6E315534AF2D59E39794360DE399701 +3955E35245AC812FBBC7A9A0957010C0B10C8A6C5E9D1980A7B6A5AF04C7361ADA29833D18FA +E2DFDF2225BF6AD37A4FE82F430A5888E870ABE82E1BF23A24FFA178FE974C1C5246D7610675 +25337F281DF0FA78A56F587C4C6B8E14B2FF37F15BEDD9EB892ECDA6FAE1DCF103B31AA8304C +13CB2AA361D451396BBC41818F39B7FACCC93662364CC4AB73CC52EF6FD5AF2FA58130C56225 +29F97751B1EA816359C9C40B1BDEB505BF174531B0EAE0A70CBE467374BDA4223FCD1155FA33 +10E52B775E59EB88561093B2DEC40542CDA872877AAD5D4912B5EAC5E91363C40E0E47AEFCA7 +7B5A77F2F10F08F00C4D77A9E831EF2483AEC150B080EA66C5BBCE96F849F377D3C5DBFD1CFC +5128D39D2132932B950A0EDBEBDBB00C7288A7590BEE99CB8BB2377FE3FB3A8684A3FAA41534 +F18F11926B08947D7DEA51B30660A1E5009D6886DD77789A76939A2A4C2EEB74877343D4169E +8E8B08D92EB7B72BAE00B7906E7631B822FF4480D14AFC35B210116968D1F2336020CE581DDB +C0155DE9ABFD91B10D4756B4FE01DCC780A6E279B8BADAF7E1ACEFB121FC9DB84154AEC6E780 +A83956A24C488AA7FB12B2ECB311EC582402C07A13508D972A067073D0068D792715F36D6741 +DFC21DEB75999A4B7D19A2D8DB629140DA85C3DA3840597F28AF0118B908E5EAA5F1AE9A8D09 +F82A3A23B4ACA642EBA5D39ABFF3A5C0450035BA1A239C83D4E28CF4A533B324B983AC2A4A1A +7CA87ACD0A71AB8AD0AA6FCECB639C9F748CCF4746ACEE6873117E712D0EAE7E59853896764D +D360352F80F7CB51B7374D44B0F220C99901BF0E67C884DDCD9F6A7E599455227C01CFB6B170 +A1B4A27EE9C02307B1F4214B52902E9A9771A9FB4AE043B9A0F6DE7BC17458DF1D43FCCE5105 +E9F83433A55D8C8C4F8C1461EF3374C3E167AF1850B7919EA1DA5D2AB55A230E78E5ABB61F7D +9767E2A7A6E8340DD07ACCAF1A8F05AFE10EBE5D5325F69B9C55557F0BD80CDB377CDA85E122 +468BFA8E08B494468CD44BDACE20CC2804C687A574C04C50BEEA3F8A30D7ECB2738A8F847D3E +07F23F94DC211CB2CB943DC045C8AAF31ABB68C0254F1D7452ACB8D6A926332183582C7AF8BD +142D905AF4471B115B3FA739998207ADC8350F69C8E43F365957442B642E811CE9D244125189 +83678C9E41FAD80D1E5205841731BD7101E2CF1C990C98F50C79AA7F518CE5A47987C40544D1 +764B3293CC5703652778AF80A12E0DD3AFB1337E9937E04ED716236F63EBFC3F00A55D69E077 +35CD16D3AEE7B9A766A0B84FC598545BDFB9E5287E808FA61A8B710C29D154DBF69E8864C6B6 +CAAF3AE64EA17E8B773836E3085B890BA40F5BC2D77A2E45389BBA42BD268CC1BFD7397ABFA8 +BA434E28D3957AD939D0AD9115017B304463A751BFAD63371D56ECBF0FCC429B4CDE7AFAC0ED +E0DCF4D825DF59542F882254D4FDE8B4FA89462E9B3D609287923823DBA60320BAF15F2E3697 +18205E67C343A63FCABA2FAFA2D800065F6E156C4A311A0C52ED0041C47E3DD31EED949BA919 +5D5121B7333D7BD7C2258CA93F5110B2759094379894D204A8A842AAD011DE9778ED0012DCC7 +545F54BA72559D168CC75C686535306F4558AA2420048F67CC33A15A24A86D94CE3F2D7674EA +499865A3D470DDAFE45B21A1AB42D9F4FBED96AE996E53764F067F010B3B969874BBA867ABFB +821FFC22E824B53D2C19398E9E8C9D1F332944F47894F591F12666A8ED99A2D11E3A3468D85F +823D8CF7E467D03B9E5FAF112D15D0A90024CF400CB7F764F2794D41CA22402B46C62FDCF720 +82398AD677D5E9C3B8ACD109BDEFE65C9BFB8FA172D28E2B14756BD4842072F1BE2031DD34F5 +C5E699FD87196B05C4A63D09CCADA3EFAA7F7BBD1782E65D015DCA6DE19257CC12202C92246A +FCC8C980342C76F91F939E67E9B90718E164AC2BFAA595F45494B75528723ADC0CBE89DCAE1E +6D1FD352221EC1CF6A6BE3BDF11205B3573218DB61F8FEA01BC77991544738C9295BCACA058C +DC9120009DDF70520C5DCCE98DC2940F23EF1957C838B7B0F7BE3437FF21F9EB0F7A8B140847 +EE5C1EE7778E1EC77A60F5B0AB3269EFD7306AB0F23E0F000E09FC2D41E6ECC064527C1CDD83 +A6FEA566E47B996AA70E5D44C2C98983C5848F72DB6A6FB6A85D3C398A1B8626A9F790D4AC39 +531D31EBB6423AE8392C338D03694CFDDADFCE5CF570D1C2852A23249CBBA22410D949F15DB6 +61146830CD25DB1EE0E4BBFE65CB4868B1BD3AC5170FEC25D64B27CA502D0A1782DEDE3893DF +52BFE8E65DE81F8B5D0B7ECEC922AD6CC92169C9318B68F0393E336765265533FD904AEC8703 +1C8AA90E29F8F26941D417C3D0EB03DE3E4BD74C1CA889A8CFD3D9E824AB29868BC365A6F03D +50E50616197D4D3B5C1E7E194B926263DB5DDE22107372FF58F68BDBF5B1358BBB3DEEA99CD5 +0D54447C5EEB9D756AF983A32AF90059A913D43498BC65FEF4174EF5FED63D28A1C18BDFAB95 +67C73A0485CB557893508A4040E1DA6DEB238A87FDC4E4926BACB535B2F2FA4DD68B701774A7 +583832E4AD89B01FDC5F46036ECC75BAC079D06A104C2AC8671E0BCEE877DEC0C647DB6F2D3E +147902D6720E8A979B29BC4E93CD319601EC7CA51BF9C8C1CE7F12032297A053460AE9E1EDD3 +39522DB682E660AD30AF6B3B51EF91D58CD721563F0BDBC6FE7BC8127F142339F566E1BFF0D8 +DE911145EEF12C22FA3DEFF6A919B6C187E3CF39342C790F0F35D0BA0F6C370CC8A2A82A1DF8 +731DFB05F376A977AF454C651054DAADB79F1D5339774D00BC0E228F144616D58E5E90A08422 +A385956247B291CF779F258497EAA689D8C35A4FA5EA9A6F9AED50C8125CD14BA5307466E153 +BC256788303FD1111D72E5CE1A373AA271F2A75A155AAACB21FB5003B6C5689112C8A50FF61B +2A42101F09231BE10603CBDBCCC7AB123A0C52A9CD824E1085FBA0EDCC3A15A15DD341B449BA +ABADC3963013BB88EF442EF8971CFAD9BD03895DF78B7143981704E805DE85B56F95B678993F +A94BB7CAC4B73DBBC2DF54C4584ACEF83ABA23A54E06C898CA265B19FE14CCBDE6C72F0FFEBF +24D2A2A9FCC962D0648617EB45EEAFDA4044A03B518D00F22AB8088DF17BD14A4D9F0E6DF072 +6F475AAA22831F8B1A498481A264C6F1C060C5A83B60BE6C7E0E3678E973ABF7FF1268DEFC9C +011475644640F1B51ABEDBFA676B1B2DC2253B01B6CC10929BA22A49E72D2B897BFDE9FB12ED +4F0A77ADE8E331A891F032160D96546BEC32B497BD2168F6EB5E40C1D709B7CFCD8F6344A4E4 +F9E5FA2905FB26D9CA836993F2BCF8BBCA62EE3D7656665D7BE889B4E26B1FA16A05BBC604E4 +CE9BE3A5CAAE3233013911F45E54338CDCBF677FD757BFB2A1BB32DD935793AB206D9C8E4667 +6E95EF0EC1ECAFCF04FAF3A9750D4526907FA6C303B798258A6E052CC55D393BF73D386E9C47 +D64B082623E4A34320587F2474E9FE5571513BE925DFE88E34ECAF5F6E49003CA83457347938 +9D1D11AE7EE0A291A2C8134AE4BB0FCC61461A532B039EBEF05A385A4FA94DFDFB3F2FC1E021 +0B625FB3CADD180ACE647870773B452215D02F0DD0DF29D876797E3D117A40EDED8ABC7BEBA3 +2DAA35AF811ABB7109C6DDBC70B861ADBCE33809A13476FAB08450363BBFF6FECE09B4A3F391 +3BF5FAD9C65FC81D90CDAEB07D15A7BB6746ED6A0DC34FE67167378F6543C9C42989A6B42237 +CB6FB1B806DF38F904D6CD209149AEBE1E3810D628D0BCAA9130DE99D1CAA69BAA721FD42F00 +1F06ED4C593FD7271BEE90B56AE96C92827DE677706B4606E8752194B854A1A5EF48BAEB9282 +A1122346626D14B5FB1D10DEE6F00F51735C976EC0975B8D5B740986A9667EFE800A06BF42F1 +E6C91E3588CD5AE6CC30DF83ACE7BCB22F06C3B4C3E396FF4FABCE38DB55612FEC157E4C374E +FBFF9C42073D18983E7276101D7CAAADA1F185DCFAA1311E6632BECF07289A4611876EA0C67E +55D82DE70737413956FE36B1AE228F0439CA6035C9BE3ECC90EAD9DAB5F01A51A1115C59AC20 +F5DE0B87DC5DEAF638C0B2402D2133AE9350B365AB274D0F5342DD838CEE7D08EE6FB7578A1C +20BB0ADB96B8E2930AEE816352431F420D60D93E2CFFFF058F4E1B87E4A39DDEE0C50D44A278 +34859458A02E69CB7BBE94E565EBE72F44DD580E558C71D81173C5AB8AC1170DDDAAAF360FA6 +51E683BA731B5B86F9C42E4609849738EDC0CF259868DFB3DE2140D4816B50CF7E4E7313FBD1 +AA138CD6DB1708D0941778A1F52572EE736DC970933017FD9E461046CD60D946E1C9F8D7EB52 +3ECDA5DAC98BA26E7911F8969F9F161E42B07E794854738124D77BDC5D37584CBE5C204C0A57 +E06AC77C853BD52FD4305F583D4D2D62A98844DD4E7285D3796E453A952D30FD004C80E145D8 +9A885EE8CE2653FC85E15A649B908183D7AF95643AC980AF8B2D89D1B8C8309E67E1DC2537EF +128621472006C4804B160DDE366F2DE2755A018FB51C38BAC483AD09BFE70FD989CABCCBC5F6 +2FD558F5B73498867D8A0ADA60DA5B570F2A0D7166396E881CC5DB56CC1D6C0A742AF634DD29 +915E8A85AE10F8514D5C6326F22521E031C26EB4A93F69216FB340925A9DD17DFE9BEE2BC2E6 +6601E74610238C01A8C057D1DBF7B02CF2B7961C260C49AE68277E8600F6F7996DD8564A3879 +427B755EE29148DFF3FAB2C928795DF450CD1D75885D773B78E96FA6897210B40DBC701822B3 +C66EA8ADA94BA9A86B3DD87BD317816D80C7079A29D5C6F3899391B24AF42286CFCFC6EE5666 +583729A562B690AD39A78275ADE6AD6CD4823F1C2F9CCEB782347DFE439CE558AA27FC0AB860 +E89ECA381FE262F1DA5693D72E109DEA8987A8E13F667E148E01BD409C704217DCB03D7B00D9 +E9A1119215FB6E3CA9700B42ECC4AE383E2356F43A7CC29CC6D1A58D941CBF81033A4A4EF72E +EC6B6EBC2DF18586E68E5643390EF92C0CB699808EA5CF743822569B4247FA399829A7CD9CCF +E07E3B4D52919E83CB529AC3F11A162A48903C1690B40E58DBD62CC4EA386BB991BB6E6B1891 +54A115568D372B33591656AC851BCCB22261620CD405BA21CB31FBEA148C0EBF596FCBA79DC2 +3F3295505B1F8768FB56B3F2A8D6E481371C9B8ECEF11635DFE9B7FB67E30FA14D9B3E3FE26D +975C5FCD75FE9836FCDA7E5D09F6A454B1C92649D03CAD1E9BD43C7EF66B963EDD23C2AFB5DC +1DC02A97818BE7BF1CBC8F6FEA495D8B48A7FDB07E9DBB2965B2F3196A5A0FBF06C64660FF78 +62337BB4A2623C06D7D6F52EC1A9FA4B0DE0516218CA4074BBA7094E7DA13104633A1CA711DC +2318A8F9E9DBF4F47FD4A476EF701DAA74B2F56592D08C1719A3227FB7EFA4BCFC30845E0362 +BB060B4AD76D39E0AA6F140E08F9EC513F60F3CC500088C5436D8F450DF6E5AE43D96BF5E658 +2FAFC6EBB6C3B1D0BB383DBFFD7E449C13F11CFEB31539C22DBED96132E90EE200EFCD4E8AD5 +E9FB85FA30FCF886DB04057C553E819FD1DFE1FA7C0757ED189DABD943F91A9770D097F69473 +BDB34854C18BF4B71113F2AF1824AFE9D2BDB7D4DBDA4FC3EA6672EAA102483AA6AFF4D5A34A +61ACBFA6241F7266A3CB5566A4E9AAE8FB43D84299D33673CDF5FB04D8F63113CD89E8324F5E +DA1E8B47E7B8DA5284A6FEF8855AC274E4DA8FBBC0D2A3A82F8475048E669C913D4846D4FB13 +15B2EDCA68F8705B0B9E95C5AD2B89DBAF485A128DD85A7CCAB5840DCB40C3B6CD978F98DCB1 +E3A63D23D8DF87B6408DCDDB4D382F584A2DCBCB0C69718A32463A136B4AA3B951D4EC5E7168 +50B5F0140DDADC80EA5F0E88652AEE93CC58140F87031BC3A2CEAC525E9334EDB656B95AC3F5 +64AEC382584C64F0E7A320F33DB32EC077F326F1F25FE702B271BA8C8EAD42C6E1C03908ED79 +F3669873673B041FE02B706B42CAA2802851F56BAB49AC71DD9A22FE26AFE940E1160C0BE3FE +DA827FE39ACCED64B6B3C086BB7AB4E31BD830D8C60CB41FD0FE2E439795FEAB3A4556BBC518 +3D392CAA5231E3A41E445D8E5B4FF089C7B53B5AA6BD8D2FF8EEE81EEE1F21468B9BC61CA01F +3F81C4A92161DEA97FBAEC3488E3EDDDA0FC0EC2E651B6E75245B4ED2A91FFEDF4675A7E90F4 +3405DBC1DE71FE02DBE5E2756E65382582FD96B59278ABA4ACB11ED8F48E2F307588BC1D350F +D74177989B8A4E33ED8CE8EC9D5F5EE841083A91598B23E3CC84B5A64FD21CA5575BADF4A7B4 +B72AA1514E3ABD8D3060F1E585FE88B8B4AB0E102A3F680B43FA4E1528C87FE1699175D951EA +B4651BF8F273025C6088A956C9E3C27B85DD58A2EDB5F93EA54E34350CC0D22D498F7BEBBF1C +4004E1BEC68025BA7C5EC230C73B9B9D4FCA55EF1D41FF11B0052689D1BCB987356AC70D2F2A +34DB9E6559E2C09B5E5CD085465EBEDD0A8C2CCBB204488549E43425F148813F8C97D3AAD2C0 +7572A58DAFE4320DFB4DC81C52B48EA9E904476F761BDD8D791C5F37C5AD9DC77FC10AFE70ED +53B492CCAFCEF39550CFEC6F120D9B04E3B8000422FE3A67B7939E72803DB2C96A9B1AB16D79 +8729223BC425B47C9B12B8174E93A709D2CBC6C7E6B4CCF260E3941A5F5F1CDB4EDA1CB0E59E +5EB1CDA79A44A22930187BCFE76E0769A9FE205523DA6BEF2D9AAE96C1CB31807C8FF4DF71C0 +4EF40B1690BA908ACCCB82C88DD8CDE84A85196639474614649493FD2399E4B87B3EFAD2CED5 +443C88ED095132CA54896F61093B99592FB8330461453D91CF64AB4DED323B715F3D466A5AE6 +1A0124820206FF48B2442062BB4114F7A588A37CF9156496525AC629C63796074F425BED9AFF +D4B19DFD180E3EAD341BC5ABF4B772DCA0F2D323A923D43A91D03938A44EE3C318ECA4773B13 +893A97D77C350FAB1425401D3BD08B3AD573770B8F6F9C34AD7AB680217D864FC4AF401D1E1A +948058246B1463158512839FE3318090282153C9D5CA157C73AC246CA9D2D4EA20B7986C3FB8 +9B48DBC071CC915AC1A50413D88CF21A3F0971B4A6F2AEAA20D5A462F166AAE2A904EC4D825D +3D9012A07B05BDC806F568C2C233A32652A51EA5BA01D9B55FBD3D5AC80D824CDE3095F9DEAE +F8EB41E82550D90BE0C34935D7668F2B605084143E4E2289C191924511056F17E3A07DCBA3E4 +BE740F92AC77EAFF4DAC64084FD858A58009C649B3100922BB099E35FA38C2095DCCD44A2C91 +97C1B13257D328B9C8DE70903223CA854FCD592354A375574583CE8EC4F60B5F250A4572FD5C +884B5199E5BB4D280B3677D6807E8F3523EFBDD26E6D15E3B49B9E2AF9615E702E85C1CA3D56 +67AC1046F06AAA5CCA9C1895D5F1D27D97C94CD1931F952F5AEAFAB101E6F7E58B0201EB4D89 +9A35206ECEC3079E0EB88D5870B673DFC0EB24E63C56097E55AAD175B5ECF8F96019FB2822AE +4DD02BCC5041E5212885AF022891D583B17BA54DD2FEA9480BBE9E127A99A5935A71DA32E35F +1991BF38EF4211AB78F4CB549F1AE54ADBF19EA7D9A33BB5CDB38DFA3064BFF1D3B4E513EBA4 +6FEDF842456E2C97C4BC768C46890AE586CFDF0F57AF72476B24EBC9A8DDF5532A1F76979CA7 +01FB60711AFDCA3A0DB1D38EE73563491A562A2A78B36FB77BA2E0D31C9A5E5BA7590849C586 +78EA120ABDF65F23EBB80E2FDFF0336D0A9376BF69DBE58BD9B09EAABDBD13DF940ADD73293A +75D184E2800FE0A2EC3EFDF91D6364820B9A2C2972E77A4FDBC0BA1B8E8C15A1C48B8C6626F6 +22B3A234A85952B745E170502FD8593BF355E1F65097FFE6F77A104BD7E711A30289B1B50A14 +F66E0A3ED30B287542A4723AD3025FB2BC502D974A708CB1CA0A899C18E6F4E851C2F2A47EE0 +A51EC18186ABF3E991236F6CFB969EA2B760DAA0F62805D9434310B93E30B0DBA1B2058C93AF +67FD59DF180A2F227161BDC1FB6EC68F1781285461B3D51967D4E5A3B20AA6DE146464CA4F15 +B5F8D7C1164BFA7C3D6D2ADBA2D830B461BFF6171474A9DA3CA36807E2AC95C54520D3CD4486 +97ED68B347DC80ADA3665253F3F14DBCBA2FDA6882A7A62180060466EDCA8D2AEEF192F64ED7 +DFB4F3ED4A24E66AC720A8B6E5D3DE1D43D8B5D554FC2ECBA798DB9A1C01A79CB9116097F458 +1BD6ECA1B6077DDA8B379BD04F42FAA549C57E665918E3E5410843660B9BB9139569275CF5AB +D741D6C813C39D7D90D03D0BFBD7B3485B1EE893E92903EFFAABDE2A5BCEB0E138CB1C0C5879 +E0AFE897F06F24C5D4FDB5FE5A15C44FB392EEC375108A61FD85378ABE57FD8F06BE66EBE4FA +B89A4345FBAFC7C82CC9FE3BFDA9D980C13674837E71B92D1BA8C14DBC512A5B49CCDAC6DA11 +FBFFC86377F1F3AC6810424FD68693BA58167DDCF6D404FDD1457309027F3A0C84C789A26824 +0D0B152F3D218D49B71BC9AA438E4B858E34A01EBCB442B9E96B46CA236CEB5F1C58C4D021AB +E4A6E26F98E0EAD884AA96B6C242DEE33AA7531EEC64E5D1D76B7DF9B7AE57FA515B1143A37C +9FB766C75D73CFDC058FAF86FA544C5EBCD7B5843C0AD01BCC84A6C7923DF7B26E874504C050 +3FBBD52185215C37FFAD9C8BC988FA0229785F25FA4459FB3C6C8F52B4F4151CB99FE8581362 +13FD0A0147E89D297279CFD629C2D8F9B1ADCCCAAE0938B319C7DC4B7DAEB8FE0FB839B062F8 +9EA9D5190784CFAD7EC931B87AE0DD9C2C868F8C92CC23B098A98CA9F909A44436E5CCB2BFA4 +80D85DC9815263EE631BE20CC1717611A8560DBD4FCC19D5B68943F768CC9150D426F1C90800 +804000DB6862938D02ABE4F61C17564B624610777CAB4D05007459ED4DE059355580CB8817EB +FD49DA7BDF3840B0EA971F321B4575A0157450B8A55061845DBA84B47CB8AF8A817D656FCA67 +3C6D24ED6D868A526FC0B9543B3F94AD9EBCDECE74BB826D884920AB7CB46B02F65E251937AE +3349F5DF3E6AB9A823CBFD6F9D770084854C2B6F49F3D5A90F0924CF907B00215223C87E968C +52E5F979F034FF5259BADD5772543AA0F38AB87081C0DD8AE4BC2E479541B6C2A38E9FF5B646 +58A7860FEC813CF00816D7314A9D55ABCA7C4E659DE83811709FA3F7D09A84886CCFD65FBE14 +F009F2863113EDE5656420986151DBD485EB62EE9A04FCB08119DF3B2510EECE662ECF56A6AD +9BE3E2E3D7B5C24E2CD54B84E2328905FE6DDBF8B37EA51716D8C988E95160F6865C4523FE10 +7FBDE57C36264E4F85F3EED15B5AA506C17E5B0BC25F89AE1AF3146CF20D3AA88E1AA90C6B67 +DE9DDE7711689954155AED3CF20C92FEEB737AC6392CDA7B7093284030970C7A906B67B3DF29 +4F3866626BE4A2DC16FBE1F286364C8D43AFA8DFF69413B84C2C59FA73852D604E44D6C22D2E +6FADE5F38E6E76721C3E1861ABCBF59F513BBA90E7418CC723221D2B4D605F745E71522C8E8A +73884E015D831D27DF59D23E3F14C0D62CC7EB03E393CBCDB0600EA5102675FB49DA7D51169F +6EA9D36E10C4719456F95B415C7050848B61C00B502797A65400D13CE9AF0DB21F831C71F5E5 +521ACF84A6325C7282A6848DA9F72CE4D4C792A476A790BE70607DAED215684065F5852FEAF5 +2D82A49133A36600722DB3A8F662DB36D71CE580BCEB14C2D36F7D4D7A89891DDCB128E9C4A2 +97386A5930F1721F4249383F59981550ADF34A0B28E30E4F0C4FE68E60DF286471D7596F9335 +11CDA44C5A389632EEC6375DE727E3E4A8E70082F0C00B445B4833089E70CB4BE1799F842981 +BD133C0ABE4545D22FD6002AE579C8CC487A4E28336E3D6B7F4BAF61516F52BCD27BBBE0A861 +DAE5DDAA82AFAAF62D28D98E48C871AD31BF52A1D3C2A0315B5AC1F6F90C9A45344CA000803F +EAD9E61B5B11D5B16C6497FA5D75509A85E98C9EEC6464B2ACD7F12FC9FDCBDEAFDBA3B4465D +843A1606983D72C55A4DBEE6690572B3886AEAEAE9BC6DFFF567025DB6EDBA5B52242CCBCBCB +15C5BD2F85B2BABC18B217D58707BB5CFA69BC4F9A994003D030766880D5800653F451C7E98D +6446B00B604320CBD386F468F4E051849285BED08FF8545AAF101953A8D9651B893AEED12724 +40CB4D148752D8C39AD095E0BD9530D5F35252B4E969634D23F0961DEE72F6D442B26CE0A33F +2EB59BB9CC92CC0B12FF30ADD5CD26EFAD8564FB268AD98B68352F479DBC6AB016B6326AF1B6 +48AF626559EA859353858F393FB5CFA3437B332E904266FCB2F9604EB4500DB97491A49F22A6 +FC9044838191FC3EE3CD9F5BA711737BDECA62E298231D8328795C286A62197AD433A41D4C08 +4CD77E3BA31250FA21651F3CD4C44437B083C19AB942B16AA421EDB67721CE6E4136925205ED +EE6171459344912453F3AEEEF056E2632CE996E366788C379DF426568F1AD399CB5857550C0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 +0000000000000000000000000000000000000000000000000000000000000000 + +cleartomark +{restore}if + + +%%EndFont +TeXDict begin 39158274 55380987 1000 8000 8000 (top2.dvi) +@start /Fa 145[529 4[244 4[529 1[529 98[{}4 996.264 /CMSS9 +rf /Fb 139[589 456 600 2[633 611 8[556 622 589 14[783 +9[565 74[{}10 996.264 /CMCSC10 rf /Fc 189[775 66[{}1 +996.264 /MSAM10 rf /Fd 145[440 635 206 108[{}3 664.176 +/CMTI7 rf /Fe 207[243 48[{}1 664.176 /CMSY6 rf /Ff 149[284 +2[512 512 5[626 62[1024 11[796 21[{}6 996.264 /CMSY9 +rf /Fg 196[284 284 58[{}2 996.264 /CMMI9 rf /Fh 134[497 +472 1[470 549 340 418 431 1[523 523 575 836 261 470 1[314 +1[470 314 470 523 470 470 523 11[760 732 575 13[694 54[902 +1[575 12[{}27 996.264 /CMTI9 rf /Fi 145[513 740 2[285 +285 55[467 49[{}5 774.872 /CMTI7 rf /Fj 134[679 679 925 +1[679 654 507 667 1[617 704 679 827 568 1[470 335 1[710 +593 617 691 654 1[679 10[901 1[870 676 886 1[821 2[1095 +9[870 1[901 14[612 50[{}29 1106.96 /CMCSC10 rf /Fk 145[572 +4[264 4[572 1[572 14[615 83[{}5 1106.96 /CMSS10 rf /Fl +205[597 1[255 44[454 2[692{}4 774.872 /CMSY7 rf /Fm 190[817 +65[{}1 885.568 /CMBX8 rf /Fn 139[400 5[664 972 330 1[456 +381 20[647 21[861 553 861 307 307 30[633 5[646 5[449 +15[{}15 1106.96 /CMMI10 rf /Fo 134[537 514 736 509 594 +368 453 467 509 566 566 622 905 283 509 339 339 566 509 +339 509 566 509 509 566 8[823 2[823 792 622 807 1[751 +849 823 993 694 1[581 427 823 856 723 751 836 792 1[823 +6[339 566 1[566 566 2[566 566 566 566 1[339 396 339 2[453 +453 339 19[566 4[976 1[622 12[{}61 1106.96 /CMTI10 rf +/Fp 132[636 1[672 672 1[672 707 495 502 524 672 707 636 +707 1061 354 672 1[354 707 636 389 583 707 566 707 619 +9[1316 962 1[886 707 2[870 956 996 1208 766 2[483 996 +1[801 836 1[919 906 962 6[354 3[636 636 636 636 636 636 +2[354 4[495 495 27[707 12[{}51 1106.96 /CMBX10 rf /Fq +134[789 789 1079 789 830 581 589 610 789 830 747 830 +1245 415 789 1[415 830 747 457 682 830 664 830 726 8[1128 +1544 1[1148 1039 830 1115 1[1021 1[1168 1418 898 2[557 +1168 1175 939 981 1145 1079 9[747 747 747 747 747 747 +747 747 747 2[415 498 32[830 12[{}53 1328.35 /CMBX12 +rf /Fr 145[547 3[366 45[692 1[263 58[{}4 774.872 /CMMI7 +rf /Fs 129[581 581 581 581 581 581 581 581 581 581 581 +581 581 581 581 581 581 581 581 581 581 581 581 581 581 +581 581 581 581 581 581 581 1[581 581 581 581 1[581 581 +581 581 581 581 581 581 581 581 581 581 581 581 581 581 +581 581 581 581 581 581 581 581 2[581 581 581 581 581 +581 581 581 581 581 581 581 581 581 581 581 581 581 581 +581 581 581 581 581 581 581 581 581 581 581 33[{}90 1106.96 +/CMTT10 rf /Ft 135[492 7[922 5[307 2[553 553 5[676 1[738 +2[738 33[615 615 5[738 16[1107 8[861 8[553 13[307 861{}16 +1106.96 /CMSY10 rf /Fu 190[653 6[251 5[441 441 441 441 +441 4[680 43[{}8 774.872 /CMR7 rf /Fv 195[640 60[{}1 +664.176 /CMMI6 rf /Fw 130[523 523 523 1[523 523 523 523 +523 523 523 523 523 523 523 523 523 523 523 523 523 523 +523 523 523 523 523 523 523 523 523 1[523 523 523 523 +523 2[523 523 523 523 523 1[523 523 523 523 523 523 523 +523 523 523 523 523 523 523 523 523 523 1[523 523 523 +523 523 1[523 523 523 523 523 523 523 523 523 523 523 +523 523 523 523 523 523 523 1[523 523 523 523 523 33[{}85 +996.264 /CMTT9 rf /Fx 131[1107 553 492 584 584 799 584 +615 430 437 434 584 615 553 615 922 307 584 338 307 615 +553 338 492 615 492 615 553 307 2[307 1[307 676 830 830 +1138 830 830 799 615 815 1[753 861 830 1015 692 861 569 +400 830 869 723 753 846 799 784 830 3[861 1[307 307 553 +553 553 553 553 553 553 553 553 553 553 307 369 307 861 +553 430 430 307 3[922 553 13[553 553 4[922 615 615 646 +7[769 1[922 692{}89 1106.96 /CMR10 rf /Fy 190[595 6[234 +8[406 49[{}3 664.176 /CMR6 rf /Fz 190[683 65[{}1 664.176 +/CMBX6 rf /FA 134[540 540 740 540 569 398 404 401 540 +569 512 569 853 284 540 1[284 569 512 313 455 569 455 +569 512 8[768 1052 768 768 740 569 754 1[697 796 768 +938 640 2[370 768 803 668 697 782 740 725 768 3[796 1[284 +284 512 512 512 512 512 512 512 512 512 512 1[284 341 +284 2[398 398 27[569 12[{}64 996.264 /CMR9 rf /FB 134[622 +622 851 622 655 458 465 486 622 655 589 655 982 327 622 +1[327 655 589 360 541 655 524 655 573 8[890 1[890 905 +820 655 883 1[805 886 1[1117 708 1[609 445 921 926 741 +774 903 851 838 890 6[327 589 589 589 589 589 589 589 +589 589 589 2[393 327 2[458 458 27[655 12[{}60 996.264 +/CMBX9 rf /FC 134[946 946 1295 946 996 697 707 732 946 +996 897 996 1494 498 946 1[498 996 897 548 818 996 797 +996 872 8[1354 1[1354 1378 1247 996 1338 1[1225 1347 +1[1701 1077 1[926 668 1402 1410 1127 1177 1374 1295 1275 +1354 6[498 897 897 897 897 897 897 897 897 897 897 2[598 +498 2[697 697 27[996 12[{}60 1594.02 /CMBX12 rf /FD 134[497 +2[497 523 366 371 367 1[523 470 523 784 261 2[261 523 +470 288 418 523 418 523 470 8[705 3[680 523 6[588 6[640 +22[261 1[261 732 30[523 12[{}29 885.568 /CMR8 rf /FE +252[470 3[{}1 885.568 /CMSY8 rf /FF 134[686 1[939 686 +723 506 513 506 1[723 650 723 1084 361 686 1[361 723 +650 397 578 723 578 723 650 6[795 4[975 939 723 957 1[885 +1012 975 4[469 1[1021 849 2[939 1[975 8[650 3[650 1[650 +650 650 3[361 23[650 20[{}42 1328.35 /CMR12 rf /FG 137[927 +977 677 687 677 1[977 877 977 1477 478 2[478 2[527 777 +977 777 1[877 11[1326 1277 977 3[1377 7[1389 12[478 1[877 +5[877 1[877 1[478 46[{}26 1912.83 /CMR17 rf end +%%EndProlog +%%BeginSetup +%%Feature: *Resolution 8000dpi +TeXDict begin +%%BeginPaperSize: a4 +/setpagedevice where +{ pop << /PageSize [595 842] >> setpagedevice } +{ /a4 where { pop a4 } if } +ifelse +%%EndPaperSize + end +%%EndSetup +%%Page: 1 1 +TeXDict begin 1 0 bop Black Black Black Black 12527 4055 +a FG(Ott:)777 b(T)-150 b(o)50 b(ol)578 b(Supp)50 b(ort)579 +b(for)g(Seman)-50 b(tics)20733 6491 y(User)579 b(Guide)20825 +8926 y(v)-50 b(ersion)579 b(0.28)6624 12800 y FF(P)-36 +b(eter)433 b(Sew)-36 b(ell)13578 12318 y FE(\003)17140 +12800 y FF(F)-108 b(rancesco)433 b(Zappa)g(Nardelli)31579 +12318 y FD(+)35402 12800 y FF(Scott)g(Ow)-36 b(ens)42960 +12318 y FE(\003)15377 15925 y FF(with)434 b(Gilles)g(P)-36 +b(eskine)26257 15443 y FE(\003)26783 15925 y FF(,)434 +b(T)-108 b(om)434 b(Ridge)33846 15443 y FE(\003)34372 +15925 y FF(,)15517 17475 y(Susmit)f(Sark)-72 b(ar)23509 +16993 y FE(\003)24035 17475 y FF(,)433 b(and)g(Rok)i(Strni)-69 +b(\024)-582 b(sa)34067 16993 y FE(\003)14000 20117 y(\003)14526 +20599 y FF(Univ)-36 b(ersit)g(y)434 b(of)g(Cam)-36 b(bridge)31477 +20117 y FD(+)32265 20599 y FF(INRIA)21027 23868 y(April)433 +b(24,)i(2018)0 28186 y FC(Con)-50 b(ten)g(ts)0 30427 +y FB(1)947 b(In)-33 b(tro)33 b(duction)41489 b(4)0 32669 +y(2)947 b(Getting)395 b(started)f(with)g(Ott)g(\(the)g(README\))26420 +b(5)1536 33886 y FA(2.1)1047 b(Rep)28 b(ository)342 b(and)f(P)-28 +b(ac)g(k)-57 b(age)736 b(.)513 b(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.) +h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g +(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p +Black 2071 w(5)p Black 1536 35104 a(2.2)1047 b(Directory)342 +b(con)-28 b(ten)g(ts)833 b(.)513 b(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f +(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.) +f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p +Black 2071 w(5)p Black 1536 36322 a(2.3)1047 b(T)-85 +b(o)340 b(build)547 b(.)512 b(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f +(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.) +f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h +(.)f(.)h(.)f(.)p Black 2071 w(5)p Black 3891 37539 a(2.3.1)1173 +b(With)342 b(OP)-85 b(AM)868 b(.)512 b(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f +(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.) +f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p +Black 2071 w(5)p Black 3891 38757 a(2.3.2)1173 b(Without)342 +b(OP)-85 b(AM)981 b(.)513 b(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f +(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.) +f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p Black 2071 +w(5)p Black 1536 39975 a(2.4)1047 b(T)-85 b(o)340 b(run)486 +b(.)513 b(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h +(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.) +h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p +Black 2071 w(6)p Black 1536 41192 a(2.5)1047 b(Man)-28 +b(ual)973 b(.)512 b(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g +(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.) +g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f +(.)p Black 2071 w(6)p Black 1536 42410 a(2.6)1047 b(Editor)341 +b(Plugins)993 b(.)513 b(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h +(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.) +h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p +Black 2071 w(6)p Black 3891 43628 a(2.6.1)1173 b(Emacs)341 +b(mo)28 b(de)948 b(.)512 b(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g +(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.) +g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p +Black 2071 w(6)p Black 3891 44845 a(2.6.2)1173 b(Visual)341 +b(Studio)h(Co)28 b(de)307 b(.)512 b(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h +(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.) +h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p Black +2071 w(6)p Black 1536 46063 a(2.7)1047 b(Mailing)343 +b(lists)422 b(.)512 b(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h +(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.) +h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p +Black 2071 w(7)p Black 1536 47281 a(2.8)1047 b(W)-85 +b(eb)341 b(page)h(with)f(examples)370 b(.)513 b(.)f(.)h(.)f(.)g(.)h(.)f +(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.) +f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p +Black 2071 w(7)p Black 1536 48498 a(2.9)1047 b(Cop)-28 +b(yrigh)g(t)340 b(information)684 b(.)512 b(.)h(.)f(.)h(.)f(.)g(.)h(.)f +(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.) +f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p +Black 2071 w(7)p Black 0 50740 a FB(3)947 b(A)392 b(minimal)k(Ott)d +(source)h(\014le:)524 b(the)394 b(un)-33 b(t)g(yp)33 +b(ed)393 b(CBV)g(lam)-33 b(b)33 b(da)394 b(calculus)16081 +b(7)1536 51958 y FA(3.1)1047 b(Index)341 b(v)-57 b(ariables)766 +b(.)513 b(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h +(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.) +h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p Black +1559 w(10)p Black 0 54199 a FB(4)947 b(Generating)395 +b(L)7966 53971 y Fz(A)8472 54199 y FB(T)9095 54421 y(E)9722 +54199 y(X)38319 b(10)1536 55417 y FA(4.1)1047 b(Sp)28 +b(ecifying)343 b(L)9083 55190 y Fy(A)9525 55417 y FA(T)10094 +55631 y(E)10662 55417 y(X)f(for)e(pro)28 b(ductions)761 +b(.)513 b(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h +(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.) +h(.)f(.)p Black 1559 w(10)p Black 1536 56634 a(4.2)1047 +b(Sp)28 b(ecifying)343 b(L)9083 56408 y Fy(A)9525 56634 +y FA(T)10094 56849 y(E)10662 56634 y(X)f(for)e(grammar)h(rules)330 +b(.)512 b(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f +(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.) +f(.)p Black 1559 w(12)p Black 1536 57852 a(4.3)1047 b(Using)341 +b(the)h(L)8804 57625 y Fy(A)9246 57852 y FA(T)9815 58067 +y(E)10384 57852 y(X)f(co)28 b(de)283 b(.)512 b(.)g(.)h(.)f(.)h(.)f(.)g +(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.) +g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f +(.)p Black 1559 w(13)p Black 0 60094 a FB(5)947 b(Generating)395 +b(pro)33 b(of)394 b(assistan)-33 b(t)395 b(de\014nitions)28015 +b(13)1536 61311 y FA(5.1)1047 b(Pro)28 b(of)341 b(assistan)-28 +b(t)341 b(co)28 b(de)342 b(for)f(grammar)f(rules)441 +b(.)512 b(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h +(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p +Black 1559 w(15)p Black 1536 62529 a(5.2)1047 b(Pro)28 +b(of)341 b(assistan)-28 b(t)341 b(co)28 b(de)342 b(for)f(inductiv)-28 +b(e)342 b(de\014nitions)277 b(.)512 b(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f +(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.) +f(.)h(.)f(.)p Black 1559 w(19)p Black 1536 63747 a(5.3)1047 +b(Represen)-28 b(tation)342 b(of)f(binding)722 b(.)512 +b(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h +(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.) +h(.)f(.)h(.)f(.)p Black 1559 w(20)p Black 1536 64964 +a(5.4)1047 b(Help)28 b(er)342 b(functions)f(for)g(free)h(v)-57 +b(ariable)342 b(and)f(substitution)h(functions)569 b(.)513 +b(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f +(.)h(.)f(.)p Black 1559 w(20)p Black 1536 66182 a(5.5)1047 +b(Correctness)341 b(of)g(the)h(generated)g(pro)28 b(of)340 +b(assistan)-28 b(t)342 b(co)28 b(de)620 b(.)512 b(.)h(.)f(.)g(.)h(.)f +(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.) +f(.)h(.)f(.)p Black 1559 w(21)p Black 1536 67400 a(5.6)1047 +b(Using)341 b(the)h(generated)g(pro)28 b(of)341 b(assistan)-28 +b(t)341 b(co)28 b(de)461 b(.)512 b(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h +(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.) +h(.)f(.)h(.)f(.)p Black 1559 w(21)p Black 3891 68617 +a(5.6.1)1173 b(Co)28 b(q)825 b(.)512 b(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f +(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.) +f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h +(.)f(.)h(.)f(.)p Black 1559 w(21)p Black 3891 69835 a(5.6.2)1173 +b(HOL)441 b(.)512 b(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f +(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.) +f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p +Black 1559 w(21)p Black 3891 71053 a(5.6.3)1173 b(Isab)28 +b(elle)876 b(.)513 b(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.) +f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h +(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p +Black 1559 w(22)p Black 0 73294 a FB(6)947 b(Judgmen)-33 +b(ts)394 b(and)f(form)-33 b(ulae)34669 b(22)1536 74512 +y FA(6.1)1047 b(Naming)342 b(of)f(premises)h(for)e(the)i(Co)28 +b(q)342 b(bac)-28 b(k)g(end)386 b(.)512 b(.)h(.)f(.)g(.)h(.)f(.)h(.)f +(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.) +f(.)g(.)h(.)f(.)h(.)f(.)p Black 1559 w(23)p Black Black +24778 77841 a Fx(1)p Black eop end +%%Page: 2 2 +TeXDict begin 2 1 bop Black Black 1567 -594 a FA(6.2)1047 +b(In-line)343 b(em)-28 b(b)28 b(edded)342 b(pro)-28 b(v)g(er)340 +b(co)28 b(de)342 b(in)g(premises)867 b(.)512 b(.)h(.)f(.)g(.)h(.)f(.)h +(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.) +h(.)f(.)g(.)h(.)f(.)h(.)p Black 1559 w(23)p Black 1567 +624 a(6.3)1047 b(User)341 b(syn)-28 b(tax)618 b(.)513 +b(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f +(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.) +f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)p Black +1559 w(23)p Black 31 2865 a FB(7)947 b(Concrete)395 b(terms)f(and)f +(OCaml)h(generation)27327 b(23)31 5107 y(8)947 b(Filtering:)527 +b(Using)394 b(Ott)g(syn)-33 b(tax)394 b(within)g(L)20110 +4879 y Fz(A)20616 5107 y FB(T)21239 5328 y(E)21866 5107 +y(X,)f(Co)33 b(q,)395 b(Isab)33 b(elle,)393 b(HOL,)g(or)h(OCaml)9720 +b(24)1567 6325 y FA(8.1)1047 b(Filtering)343 b(em)-28 +b(b)28 b(edded)343 b(co)28 b(de)443 b(.)512 b(.)h(.)f(.)g(.)h(.)f(.)h +(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.) +h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)p +Black 1559 w(24)p Black 1567 7542 a(8.2)1047 b(Filtering)343 +b(\014les)809 b(.)512 b(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h +(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.) +h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)p +Black 1559 w(27)p Black 31 9784 a FB(9)947 b(Binding)394 +b(sp)33 b(eci\014cations)36165 b(30)31 12025 y(10)358 +b(Generating)395 b(substitution)h(and)d(free)g(v)-65 +b(ariable)394 b(functions)20969 b(31)31 14267 y(11)358 +b(Lo)33 b(cally-nameless)396 b(represen)-33 b(tation)30958 +b(32)31 16509 y(12)358 b(List)394 b(forms)42162 b(34)1567 +17726 y FA(12.1)535 b(List)342 b(dot)f(forms)348 b(.)512 +b(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h +(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.) +h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)p Black 1559 +w(35)p Black 1567 18944 a(12.2)535 b(List)342 b(comprehension)g(forms) +793 b(.)513 b(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f +(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.) +f(.)h(.)f(.)g(.)h(.)f(.)h(.)p Black 1559 w(36)p Black +1567 20162 a(12.3)535 b(Pro)28 b(of)341 b(assistan)-28 +b(t)341 b(co)28 b(de)342 b(for)f(list)h(forms)354 b(.)512 +b(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f +(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.) +p Black 1559 w(38)p Black 3922 21379 a(12.3.1)661 b(T)-28 +b(yp)28 b(es)734 b(.)512 b(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f +(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.) +g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)p +Black 1559 w(38)p Black 3922 22597 a(12.3.2)661 b(T)-85 +b(erms)341 b(\(in)g(inductiv)-28 b(e)343 b(de\014nition)f(rules\))779 +b(.)513 b(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g +(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)p +Black 1559 w(38)p Black 3922 23815 a(12.3.3)661 b(List)342 +b(forms)f(in)g(homomorphisms)414 b(.)512 b(.)g(.)h(.)f(.)h(.)f(.)g(.)h +(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.) +h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)p Black 1559 w(40)p Black +31 26056 a FB(13)358 b(Subrules)42957 b(41)31 28298 y(14)358 +b(Con)-33 b(text)395 b(rules)40386 b(41)31 30539 y(15)358 +b(Auxiliary)395 b(Rules)39301 b(43)31 32781 y(16)358 +b(F)-98 b(unctions)42425 b(43)31 35023 y(17)358 b(P)-33 +b(arsing)395 b(Priorities)38323 b(44)31 37264 y(18)358 +b(Com)-33 b(bining)396 b(m)-33 b(ultiple)395 b(source)f(\014les)31127 +b(45)31 39506 y(19)358 b(Hom)394 b(blo)33 b(c)-33 b(ks)41328 +b(45)31 41747 y(20)358 b(Isab)33 b(elle)394 b(syn)-33 +b(tax)394 b(supp)33 b(ort)35343 b(47)31 43989 y(21)358 +b(Isab)33 b(elle)394 b(co)33 b(de)393 b(generation)i(example)30310 +b(49)31 46230 y(22)358 b(Reference:)525 b(Command-line)396 +b(usage)30723 b(50)31 48472 y(23)358 b(Reference:)525 +b(The)393 b(language)i(of)e(sym)-33 b(b)33 b(olic)395 +b(terms)25006 b(52)31 50714 y(24)358 b(Reference:)525 +b(Generation)395 b(of)f(pro)33 b(of)394 b(assistan)-33 +b(t)395 b(de\014nitions)20749 b(54)1567 51931 y FA(24.1)535 +b(Generation)343 b(of)e(t)-28 b(yp)28 b(es)275 b(.)512 +b(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h +(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.) +h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)p Black 1559 w(54)p Black +1567 53149 a(24.2)535 b(Generation)343 b(of)e(functions)957 +b(.)512 b(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f +(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.) +f(.)h(.)f(.)g(.)h(.)f(.)h(.)p Black 1559 w(55)p Black +3922 54367 a(24.2.1)661 b(Subrule)341 b(predicates)757 +b(.)513 b(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h +(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.) +h(.)f(.)g(.)h(.)f(.)h(.)p Black 1559 w(56)p Black 3922 +55584 a(24.2.2)661 b(Binding)342 b(auxiliaries)633 b(.)513 +b(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g +(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.) +g(.)h(.)f(.)h(.)p Black 1559 w(56)p Black 3922 56802 +a(24.2.3)661 b(F)-85 b(ree)342 b(v)-57 b(ariables)487 +b(.)513 b(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g +(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.) +g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)p Black 1559 w(56)p +Black 3922 58020 a(24.2.4)661 b(Substitutions)700 b(.)513 +b(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f +(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.) +f(.)h(.)f(.)g(.)h(.)f(.)h(.)p Black 1559 w(56)p Black +1567 59237 a(24.3)535 b(Generation)343 b(of)e(relations)415 +b(.)512 b(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h +(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.) +h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)p Black 1559 w(56)p Black +31 61479 a FB(25)358 b(Reference:)525 b(Summary)395 b(of)e +(homomorphisms)26359 b(57)31 63720 y(26)358 b(Reference:)525 +b(The)393 b(Ott)h(source)f(grammar)28543 b(59)31 65962 +y(27)358 b(Reference:)525 b(Examples)36533 b(59)31 70120 +y FC(List)600 b(of)d(Figures)1567 72324 y FA(1)1843 b(Source:)456 +b Fw(test10.0.ott)724 b FA(.)512 b(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g +(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.) +g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)p +Black 2071 w(8)p Black 1567 73542 a(2)1843 b(Source:)456 +b Fw(test10.2.ott)724 b FA(.)512 b(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g +(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.) +g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)p +Black 1559 w(11)p Black Black 24810 77841 a Fx(2)p Black +eop end +%%Page: 3 3 +TeXDict begin 3 2 bop Black Black 1536 -594 a FA(3)1843 +b(Generated)342 b(L)9121 -821 y Fy(A)9563 -594 y FA(T)10132 +-379 y(E)10701 -594 y(X:)455 b Fw(test10.2.tex)885 b +FA(.)513 b(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h +(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.) +h(.)f(.)p Black 1559 w(12)p Black 1536 624 a(4)1843 b(Source:)455 +b Fw(test10.4.ott)724 b FA(.)512 b(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f +(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.) +f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p +Black 1559 w(14)p Black 1536 1841 a(5)1843 b(Generated)342 +b(Co)28 b(q:)p Fw(test10.v)1046 b FA(.)512 b(.)h(.)f(.)g(.)h(.)f(.)h(.) +f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h +(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p +Black 1559 w(16)p Black 1536 3059 a(6)1843 b(Generated)342 +b(Isab)28 b(elle:)p Fw(test10.thy)848 b FA(.)512 b(.)h(.)f(.)h(.)f(.)g +(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.) +g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p +Black 1559 w(17)p Black 1536 4277 a(7)1843 b(Generated)342 +b(HOL:)p Fw(test10Script.sml)460 b FA(.)512 b(.)h(.)f(.)g(.)h(.)f(.)g +(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.) +h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p Black 1559 +w(18)p Black 1536 5494 a(8)1843 b(Source:)455 b Fw(test10.7.ott)724 +b FA(.)512 b(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.) +f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f +(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p Black 1559 w(25)p +Black 1536 6712 a(9)1843 b(Generated)342 b(OCaml)g(co)28 +b(de:)457 b Fw(test10.ml)322 b FA(.)512 b(.)h(.)f(.)g(.)h(.)f(.)g(.)h +(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.) +f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p Black 1559 w(26)p +Black 1536 7930 a(10)1331 b(F)4559 8041 y Fv(<)p Fy(:)5829 +7930 y FA(Extracts:)456 b(L)10645 7703 y Fy(A)11087 7930 +y FA(T)11656 8144 y(E)12224 7930 y(X)341 b(source)g(\014le)h(to)g(b)28 +b(e)342 b(\014ltered)g(\()p Fw(test7tt.mng)p FA(\))527 +b(.)513 b(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g +(.)h(.)f(.)h(.)f(.)p Black 1559 w(28)p Black 1536 9147 +a(11)1331 b(F)4559 9258 y Fv(<)p Fy(:)5829 9147 y FA(Extracts:)456 +b(the)341 b(\014ltered)i(output)e(\()p Fw(test7tt.tex)p +FA(\))1021 b(.)512 b(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.) +g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p +Black 1559 w(29)p Black 1536 10365 a(12)1331 b(Mini-Ott)343 +b(in)f(Ott:)456 b(the)342 b(binding)g(sp)28 b(eci\014cation)343 +b(metalanguage)511 b(.)i(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.) +h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p Black 1559 +w(31)p Black 1536 11583 a(13)1331 b(A)341 b(sample)h(OCaml)g(seman)-28 +b(tic)342 b(rule,)g(in)g(L)19991 11356 y Fy(A)20433 11583 +y FA(T)21002 11797 y(E)21570 11583 y(X)f(and)g(Ott)h(source)f(forms)684 +b(.)512 b(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f +(.)h(.)f(.)p Black 1559 w(34)p Black 1536 12800 a(14)1331 +b(An)341 b(Ott)h(source)f(\014le)h(for)f(basic)g(arithmetic)i(using)e +(the)h(t)-28 b(ypical)342 b(parsing)f(priorities)929 +b(.)513 b(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p +Black 1559 w(46)p Black 1536 14018 a(15)1331 b(An)341 +b Fw(ott)g FA(source)g(\014le)h(for)f(the)h Fw(let)f +FA(fragmen)-28 b(t)341 b(of)g(T)-85 b(APL)778 b(.)512 +b(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f +(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p Black 1559 w(47)p +Black 1536 15236 a(16)1331 b(Hom)341 b(Sections:)457 +b Fw(test10)p 13953 15236 314 45 v 376 w(homs.ott)919 +b FA(.)513 b(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.) +h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f +(.)h(.)f(.)p Black 1559 w(48)p Black 1536 16453 a(17)1331 +b(Mini-Ott)343 b(in)f(Ott:)456 b(sym)-28 b(b)28 b(olic)343 +b(terms)845 b(.)513 b(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g +(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.) +g(.)h(.)f(.)h(.)f(.)p Black 1559 w(52)p Black Black 24778 +77841 a Fx(3)p Black eop end +%%Page: 4 4 +TeXDict begin 4 3 bop Black Black 31 -594 a FC(1)1793 +b(In)-50 b(tro)50 b(duction)31 2495 y Fx(Ott)363 b(is)f(a)h(to)31 +b(ol)363 b(for)g(writing)h(de\014nitions)f(of)g(programming)h +(languages)g(and)e(calculi.)492 b(It)363 b(tak)-31 b(es)363 +b(as)f(input)g(a)h(de\014nition)31 3823 y(of)j(a)f(language)h(syn)-31 +b(tax)366 b(and)f(seman)-31 b(tics,)367 b(in)e(a)g(concise)g(and)g +(readable)g(ASCI)31 b(I)364 b(notation)k(that)e(is)e(close)h(to)g(what) +h(one)31 5152 y(w)-31 b(ould)371 b(write)f(in)g(informal)h +(mathematics.)495 b(It)369 b(generates)h(output:)p Black +1384 7144 a(1.)p Black 555 w(a)f(L)4014 6917 y Fu(A)4502 +7144 y Fx(T)5116 7382 y(E)5732 7144 y(X)g(source)g(\014le)g(that)i +(de\014nes)d(commands)j(to)f(build)g(a)f(t)-31 b(yp)31 +b(eset)370 b(v)-31 b(ersion)369 b(of)h(the)f(de\014nition;)p +Black 1384 9137 a(2.)p Black 555 w(a)g(Co)31 b(q)370 +b(v)-31 b(ersion)370 b(of)g(the)f(de\014nition;)p Black +1384 11129 a(3.)p Black 555 w(a)g(HOL)g(v)-31 b(ersion)370 +b(of)g(the)f(de\014nition;)p Black 1384 13122 a(4.)p +Black 555 w(an)g(Isab)31 b(elle/HOL)370 b(v)-31 b(ersion)370 +b(of)g(the)f(de\014nition;)p Black 1384 15114 a(5.)p +Black 555 w(a)g(Lem)h(v)-31 b(ersion)369 b(of)h(the)f(de\014nition;)p +Black 1384 17107 a(6.)p Black 555 w(an)g(OCaml)i(v)-31 +b(ersion)370 b(of)g(the)f(syn)-31 b(tax)370 b(of)g(the)f(de\014nition.) +31 19099 y(Additionally)-92 b(,)412 b(it)400 b(can)g(b)31 +b(e)399 b(run)g(as)h(a)f(\014lter,)408 b(taking)402 b(a)e(L)23503 +18872 y Fu(A)23991 19099 y Fx(T)24605 19338 y(E)25221 +19099 y(X/Co)31 b(q/Isab)g(elle/HOL/Lem/OCaml)405 b(source)399 +b(\014le)h(with)31 20428 y(em)-31 b(b)31 b(edded)341 +b(\(sym)-31 b(b)31 b(olic\))344 b(terms)c(of)i(the)f(de\014ned)f +(language,)349 b(parsing)342 b(them)f(and)g(replacing)h(them)g(b)-31 +b(y)341 b(t)-31 b(yp)31 b(eset)341 b(terms.)31 22420 +y(This)370 b(do)31 b(cumen)-31 b(t)370 b(is)f(a)h(user)e(guide)i(for)f +(the)h(to)31 b(ol.)494 b(The)369 b(pap)31 b(ers)p Black +1692 24413 a Ft(\017)p Black 554 w Fx(Ott:)486 b(E\013ectiv)-31 +b(e)357 b(T)-92 b(o)31 b(ol)356 b(Supp)31 b(ort)355 b(for)h(the)f(W)-92 +b(orking)356 b(Seman)-31 b(ticist.)490 b(P)-31 b(eter)356 +b(Sew)-31 b(ell,)360 b(F)-92 b(rancesco)354 b(Zappa)j(Nardelli,)2799 +25741 y(Scott)443 b(Ow)-31 b(ens,)460 b(Gilles)442 b(P)-31 +b(eskine,)461 b(Thomas)443 b(Ridge,)460 b(Susmit)443 +b(Sark)-61 b(ar,)460 b(Rok)442 b(Strni)-58 b(\024)-495 +b(sa.)710 b(Journal)442 b(of)g(F)-92 b(unctional)2799 +27069 y(Programming)372 b(20\(1\):71-122,)i(2010)d([SZNO)22283 +26668 y Fu(+)23019 27069 y Fx(10)q(].)p Black 1692 29062 +a Ft(\017)p Black 554 w Fx(Ott:)486 b(E\013ectiv)-31 +b(e)357 b(T)-92 b(o)31 b(ol)356 b(Supp)31 b(ort)355 b(for)h(the)f(W)-92 +b(orking)356 b(Seman)-31 b(ticist.)490 b(P)-31 b(eter)356 +b(Sew)-31 b(ell,)360 b(F)-92 b(rancesco)354 b(Zappa)j(Nardelli,)2799 +30390 y(Scott)370 b(Ow)-31 b(ens,)370 b(Gilles)g(P)-31 +b(eskine,)370 b(Thomas)h(Ridge,)f(Susmit)g(Sark)-61 b(ar,)369 +b(Rok)h(Strni)-58 b(\024)-495 b(sa.)493 b(ICFP'07)370 +b([SZNO)46407 29989 y Fu(+)47143 30390 y Fx(07)q(].)31 +32383 y(giv)-31 b(e)409 b(an)e(o)-31 b(v)g(erview)408 +b(of)g(the)f(pro)61 b(ject,)417 b(including)409 b(discussion)e(of)g +(motiv)-61 b(ation,)420 b(design)407 b(decisions,)418 +b(and)407 b(related)g(w)-31 b(ork,)31 33711 y(and)370 +b(one)f(should)h(lo)31 b(ok)370 b(at)g(that)h(together)f(with)h(this)e +(man)-31 b(ual.)495 b(The)369 b(pro)61 b(ject)370 b(w)-31 +b(eb)370 b(page)p Black Black 4459 35704 a Fs +(http://www.cl.cam.ac.uk/users/pes20/ott/)31 37696 y +Fx(links)318 b(to)f(the)h(gith)-31 b(ub)318 b(source)e(rep)31 +b(ository)-92 b(,)328 b(with)318 b(a)f(BSD-st)-31 b(yle)317 +b(licence.)476 b(It)317 b(also)h(has)f(a)g(range)g(of)g(examples,)329 +b(including)31 39025 y(un)-31 b(t)g(yp)31 b(ed)435 b(and)g(simply)g(t) +-31 b(yp)31 b(ed)435 b(CBV)g(lam)-31 b(b)31 b(da)436 +b(calculus,)452 b(ML)433 b(p)31 b(olymorphism,)453 b(v)-61 +b(arious)435 b(\014rst-order)e(systems)h(from)31 40353 +y(Pierce's)406 b(T)-92 b(APL)406 b([Pie02)r(],)415 b(the)406 +b(POPLmark)g(F)20159 40519 y Fr(<)p Fu(:)21561 40353 +y Fx(language)i([ABF)28854 39951 y Fu(+)29589 40353 y +Fx(05)q(],)415 b(a)406 b(mo)31 b(dule)406 b(system)f(b)-31 +b(y)406 b(Lero)-31 b(y)405 b([Ler96)q(,)415 b Ft(x)p +Fx(4])31 41681 y(\(extended)401 b(with)f(a)g(term)g(language)h(and)f +(an)f(op)31 b(erational)402 b(seman)-31 b(tics\),)409 +b(the)400 b(LJ)f(Ja)-31 b(v)-61 b(a)400 b(fragmen)-31 +b(t)401 b(and)e(LJAM)g(Ja)-31 b(v)-61 b(a)31 43010 y(mo)31 +b(dule)371 b(system)e([SSP07)r(],)h(and)f(a)h(substan)-31 +b(tial)371 b(fragmen)-31 b(t)371 b(of)f(OCaml.)31 45002 +y(Our)460 b(main)h(goal)g(is)f(to)h(supp)31 b(ort)459 +b(w)-31 b(ork)461 b(on)f(large)g(programming)j(language)f +(de\014nitions,)484 b(where)459 b(the)h(scale)h(mak)-31 +b(es)31 46331 y(it)462 b(hard)f(to)h(k)-31 b(eep)461 +b(a)h(de\014nition)g(in)-31 b(ternally)464 b(consisten)-31 +b(t,)485 b(and)462 b(hard)f(to)g(k)-31 b(eep)462 b(a)f(tigh)-31 +b(t)463 b(corresp)31 b(ondence)460 b(b)31 b(et)-31 b(w)g(een)462 +b(a)31 47659 y(de\014nition)396 b(and)f(implemen)-31 +b(tations.)572 b(W)-92 b(e)393 b(also)i(wish)g(to)g(ease)f(rapid)h +(protot)-31 b(yping)397 b(w)-31 b(ork)395 b(with)g(smaller)h(calculi,) +402 b(and)31 48987 y(to)329 b(mak)-31 b(e)330 b(it)f(easier)f(to)h(exc) +-31 b(hange)329 b(de\014nitions)h(and)e(de\014nition)i(fragmen)-31 +b(ts)330 b(b)31 b(et)-31 b(w)g(een)329 b(groups.)479 +b(Most)328 b(simply)-92 b(,)338 b(the)328 b(to)31 b(ol)31 +50316 y(can)425 b(b)31 b(e)424 b(used)g(to)i(aid)f(completely)i +(informal)f(L)19939 50089 y Fu(A)20427 50316 y Fx(T)21041 +50554 y(E)21657 50316 y(X)f(mathematics.)661 b(Here)424 +b(it)i(p)31 b(ermits)424 b(the)h(de\014nition,)441 b(and)425 +b(terms)31 51644 y(within)347 b(pro)31 b(ofs)344 b(and)h(exp)31 +b(osition,)352 b(to)345 b(b)31 b(e)344 b(written)i(in)f(a)g(clear,)350 +b(editable,)i(ASCI)31 b(I)344 b(notation,)353 b(without)346 +b(L)43223 51417 y Fu(A)43711 51644 y Fx(T)44325 51882 +y(E)44941 51644 y(X)f(noise.)485 b(It)31 52972 y(generates)331 +b(go)31 b(o)g(d-qualit)-31 b(y)334 b(t)-31 b(yp)31 b(eset)331 +b(output.)481 b(By)331 b(parsing)g(\(and)g(so)f(sort-c)-31 +b(hec)g(king\))333 b(this)d(input,)340 b(it)331 b(quic)-31 +b(kly)332 b(catc)-31 b(hes)331 b(a)31 54301 y(range)261 +b(of)g(simple)g(errors,)282 b(e.g.)261 b(inconsisten)-31 +b(t)263 b(use)c(of)i(judgemen)-31 b(t)262 b(forms)f(or)f(meta)-31 +b(v)-61 b(ariable)264 b(naming)e(con)-31 b(v)g(en)g(tions.)458 +b(That)31 55629 y(same)260 b(input,)283 b(extended)260 +b(with)h(some)e(additional)k(data,)283 b(can)260 b(b)31 +b(e)259 b(used)g(to)h(generate)g(formal)h(de\014nitions)g(for)f(Co)31 +b(q,)282 b(HOL,)31 56957 y(Isab)31 b(elle,)486 b(and)462 +b(Lem.)769 b(It)462 b(should)f(thereb)-31 b(y)462 b(enable)g(a)g(smo)31 +b(oth)462 b(transition)i(b)31 b(et)-31 b(w)g(een)462 +b(use)f(of)h(informal)h(and)f(formal)31 58286 y(mathematics.)812 +b(F)-92 b(urther,)499 b(the)475 b(to)31 b(ol)476 b(can)f(automatically) +k(generate)c(de\014nitions)h(of)f(functions)g(for)f(free)g(v)-61 +b(ariables,)31 59614 y(single)268 b(and)g(m)-31 b(ultiple)269 +b(substitutions,)290 b(subgrammar)267 b(c)-31 b(hec)g(ks)268 +b(\(e.g.)g(for)f(v)-61 b(alue)268 b(subgrammars\),)289 +b(and)267 b(binding)h(auxiliary)31 60942 y(functions.)639 +b(Ott)418 b(supp)31 b(orts)417 b(a)h(`fully)h(concrete')f(represen)-31 +b(tation,)432 b(su\016cien)-31 b(t)418 b(for)g(man)-31 +b(y)418 b(examples)h(but)f(not)g(dealing)31 62271 y(with)384 +b(general)f(alpha)h(equiv)-61 b(alence.)533 b(An)382 +b(exp)31 b(erimen)-31 b(tal)384 b(Co)31 b(q)384 b(bac)-31 +b(k)g(end)383 b(generates)f(de\014nitions)i(in)f(lo)31 +b(cally-nameless)31 63599 y(st)-31 b(yle)447 b(for)f(a)h(subset)e(of)i +(the)f(Ott)h(metalanguage.)726 b(The)446 b(OCaml)i(bac)-31 +b(k)g(end)447 b(generates)f(t)-31 b(yp)31 b(e)447 b(de\014nitions)g +(that)g(ma)-31 b(y)31 64927 y(b)31 b(e)406 b(useful)f(for)h(dev)-31 +b(eloping)408 b(a)d(complete)j(implemen)-31 b(tation)409 +b(of)e(the)e(language,)418 b(together)406 b(with)h(the)f(functions)h +(listed)31 66256 y(ab)31 b(o)-31 b(v)g(e.)574 b(It)396 +b(do)31 b(es)395 b(not)i(generate)f(an)-31 b(ything)398 +b(for)e(inductiv)-31 b(ely)398 b(de\014ned)d(relations)j(\(the)e(v)-61 +b(arious)396 b(pro)31 b(of-assistan)-31 b(t)398 b(co)31 +b(de)31 67584 y(extraction)418 b(facilities)h(can)d(sometimes)h(b)31 +b(e)416 b(used)f(for)h(that\).)634 b(Our)416 b(fo)31 +b(cus)415 b(here)h(is)f(on)h(the)h(problem)f(of)h(writing)g(and)31 +68912 y(editing)364 b(language)g(de\014nitions,)i(not)d(\(directly\))h +(on)e(aiding)i(mec)-31 b(hanized)363 b(pro)31 b(of)362 +b(of)h(metatheory)-92 b(.)492 b(If)362 b(one)g(is)g(in)-31 +b(v)g(olv)g(ed)31 70241 y(in)474 b(hard)f(pro)31 b(ofs)473 +b(ab)31 b(out)474 b(a)f(relativ)-31 b(ely)475 b(stable)f(small)h +(calculus)e(then)h(it)f(will)i(aid)f(only)g(a)f(small)i(part)e(of)g +(the)h(w)-31 b(ork)31 71569 y(\(and)351 b(one)g(migh)-31 +b(t)352 b(c)-31 b(ho)31 b(ose)350 b(instead)h(to)g(w)-31 +b(ork)351 b(just)f(within)i(a)e(single)h(pro)31 b(of)350 +b(assistan)-31 b(t\),)357 b(but)350 b(for)g(larger)g(languages)i(the)31 +72898 y(de\014nition)397 b(is)d(a)h(more)g(substan)-31 +b(tial)397 b(problem)e(|)g(so)f(m)-31 b(uc)g(h)395 b(so)g(that)h(only)f +(a)g(handful)h(of)f(full-scale)h(languages)h(ha)-31 b(v)g(e)31 +74226 y(b)31 b(een)369 b(giv)-31 b(en)371 b(complete)f(de\014nitions.) +494 b(W)-92 b(e)369 b(aim)h(to)g(mak)-31 b(e)371 b(this)e(more)h +(commonplace,)i(less)d(of)g(a)h(heroic)f(task.)p Black +24810 77841 a(4)p Black eop end +%%Page: 5 5 +TeXDict begin 5 4 bop Black Black 0 -505 a FC(2)1793 +b(Getting)598 b(started)i(with)e(Ott)h(\(the)g(README\))0 +2583 y Fx(A)369 b(to)31 b(ol)371 b(for)e(writing)i(de\014nitions)g(of)e +(programming)j(languages)f(and)e(calculi)0 4576 y(b)-31 +b(y)369 b(P)-31 b(eter)370 b(Sew)-31 b(ell,)371 b(F)-92 +b(rancesco)369 b(Zappa)h(Nardelli,)h(and)f(Scott)g(Ow)-31 +b(ens.)0 8339 y Fq(2.1)1495 b(Rep)42 b(ository)498 b(and)h(P)-42 +b(ac)g(k)-83 b(age)0 11046 y Fx(Ott)370 b(is)f(no)-31 +b(w)370 b(a)-31 b(v)-61 b(ailable)372 b(from)e(gith)-31 +b(ub,)371 b(and)e(as)g(an)h(opam)g(pac)-31 b(k)-61 b(age.)0 +13039 y(W)-92 b(e)368 b(no)i(longer)g(pro)-31 b(vide)370 +b(non-gith)-31 b(ub)371 b(tarballs)f(or)f(a)h(Windo)-31 +b(ws)370 b(distribution.)0 16802 y Fq(2.2)1495 b(Directory)499 +b(con)-42 b(ten)g(ts)0 19509 y Fx(ll)p Black Black 6595 +21214 a(directory)9192 b(description)p 5931 21657 38249 +45 v 6595 22587 a Fs(aux/)11209 b Fx(auxiliary)371 b(co)31 +b(de)369 b(\(y2l\))i(used)e(to)h(build)g(the)f(user)f(guide)6595 +23915 y Fs(bin/)11209 b Fx(the)369 b(Ott)h(binary)6595 +25243 y Fs(built)p 9570 25243 349 45 v 419 w(doc/)7885 +b Fx(the)369 b(user)f(guide,)i(in)g(h)-31 b(tml,)371 +b(p)31 b(df,)370 b(and)f(ps)6595 26572 y Fs(coq/)11209 +b Fx(auxiliary)371 b(\014les)e(for)g(Co)31 b(q)6595 27900 +y Fs(doc/)11209 b Fx(the)369 b(user)f(guide)i(sources)6595 +29228 y Fs(emacs/)10047 b Fx(an)369 b(Ott)h(Emacs)g(mo)31 +b(de)6595 30557 y Fs(examples/)8304 b Fx(some)369 b(larger)h(example)g +(Ott)g(\014les)6595 31885 y Fs(tex/)11209 b Fx(auxiliary)371 +b(\014les)e(for)g(LaT)-92 b(eX)6595 33213 y Fs(hol/)11209 +b Fx(auxiliary)371 b(\014les)e(for)g(HOL)6595 34542 y +Fs(menhir/)9466 b Fx(auxiliary)371 b(\014les)e(for)g(menhir)6595 +35870 y Fs(ocamlgraph-1.7.tar.gz)1332 b Fx(a)369 b(cop)-31 +b(y)370 b(of)g(the)f(o)31 b(camlgraph)371 b(library)6595 +37198 y Fs(regression/)7142 b Fx(regression-test)369 +b(mac)-31 b(hinery)6595 38527 y Fs(tests/)10047 b Fx(v)-61 +b(arious)369 b(small)h(example)h(Ott)f(\014les)6595 39855 +y Fs(src/)11209 b Fx(the)369 b(\(OCaml\))j(Ott)e(sources)6595 +41183 y Fs(Makefile)8885 b Fx(a)369 b(Mak)-31 b(e\014le)370 +b(for)f(the)h(examples)6595 42512 y Fs(LICENCE)9466 b +Fx(the)369 b(BSD-st)-31 b(yle)370 b(licence)g(terms)6595 +43840 y Fs(README.md)8304 b Fx(this)369 b(\014le)h(\(Section)g(2)g(of)g +(the)f(user)f(guide\))6595 45168 y Fs(revisionhistory.txt)2494 +b Fx(the)369 b(revision)h(history)0 48813 y Fq(2.3)1495 +b(T)-125 b(o)499 b(build)0 51521 y Fp(2.3.1)1274 b(With)424 +b(OP)-106 b(AM)0 54228 y Fx(If)365 b(y)-31 b(ou)367 b(ha)-31 +b(v)g(e)366 b(OP)-92 b(AM)366 b(installed)h(on)f(y)-31 +b(our)366 b(system,)h Fs(opam)582 b(install)g(ott)366 +b Fx(will)h(install)h(the)e(latest)h(Ott)f(v)-31 b(ersion.)492 +b(The)0 55557 y(Emacs)450 b(mo)31 b(de)450 b(will)i(b)31 +b(e)449 b(in)h Fs(`opam)581 b(config)h(var)g +(prefix`/share/emacs/site-lisp)p Fx(,)474 b(and)450 b(do)31 +b(cumen)-31 b(tation)453 b(in)0 56885 y Fs(`opam)582 +b(config)g(var)g(prefix`/doc/ott)p Fx(.)0 58877 y(T)-92 +b(o)370 b(install)h(the)e(Ott)h(auxiliary)i(\014les)d(for)g(Co)31 +b(q,)370 b(\014rst)f(activ)-61 b(ate)371 b(the)e Fs(coq-released)i +Fx(OP)-92 b(AM)369 b(rep)31 b(ository:)0 60870 y Fs(opam)582 +b(repo)f(add)h(coq-released)h(https://coq.inria.fr/opam/released)0 +62862 y Fx(and)369 b(then)h(run)e Fs(opam)582 b(install)g(coq-ott)p +Fx(.)0 66404 y Fp(2.3.2)1274 b(Without)425 b(OP)-106 +b(AM)0 69111 y Fx(Ott)370 b(dep)31 b(ends)368 b(on)i(OCaml)g(v)-31 +b(ersion)370 b(4.00.0)i(or)d(later.)493 b(It)370 b(builds)f(with)i +(\(at)f(least\))h(OCaml)f(4.02.3.)0 71104 y(The)f(command)i +Fs(make)f Fx(\()p Fs(make)582 b(world)p Fx(\))370 b(builds)g(the)f +Fs(ott)h Fx(binary)f(in)h(the)f Fs(bin/)h Fx(sub)31 b(directory)-92 +b(.)0 73096 y(This)351 b(will)i(compile)f(Ott)g(using)367 +b Fs(ocamlopt)p Fx(.)487 b(T)-92 b(o)351 b(force)g(it)h(to)g(compile)g +(with)g Fs(ocamlc)g Fx(\(whic)-31 b(h)352 b(ma)-31 b(y)352 +b(giv)-31 b(e)352 b(signi\014can)-31 b(tly)0 74425 y(slo)g(w)g(er)370 +b(execution)h(of)e(Ott\),)i(do)f Fs(make)581 b(world.byt)p +Fx(.)p Black 24778 77841 a(5)p Black eop end +%%Page: 6 6 +TeXDict begin 6 5 bop Black Black 31 -594 a Fx(T)-92 +b(o)510 b(build)h(the)e(Ott)h(auxiliary)i(\014les)d(for)h(Co)31 +b(q,)546 b(go)510 b(to)g(the)g Fs(coq/)g Fx(sub)31 b(directory)509 +b(and)h(run)e Fs(make)p Fx(.)914 b(T)-92 b(o)510 b(install)h(the)31 +735 y(resulting)371 b(\014les)e(in)g(Co)31 b(q's)370 +b Fs(user-contrib)p Fx(,)h(run)e Fs(make)582 b(install)p +Fx(.)31 4497 y Fq(2.4)1495 b(T)-125 b(o)500 b(run)31 +7205 y Fx(Ott)389 b(runs)f(as)g(a)g(command-line)j(to)31 +b(ol.)551 b(Executing)405 b Fs(bin/ott)389 b Fx(sho)-31 +b(ws)389 b(the)f(usage)g(and)h(options.)551 b(T)-92 b(o)388 +b(run)g(Ott)h(on)f(the)31 8533 y(test)370 b(\014le)g +Fs(tests/test10.ott)p Fx(,)h(generating)g(LaT)-92 b(eX)370 +b(in)f Fs(test10.tex)i Fx(and)e(Co)31 b(q)370 b(in)g +Fs(test10.v)p Fx(,)g(t)-31 b(yp)31 b(e:)31 10526 y Fs(bin/ott)583 +b(-i)e(tests/test10.ott)j(-o)d(test10.tex)i(-o)e(test10.v)31 +12518 y Fx(Isab)31 b(elle,)361 b(HOL,)c(and)h(Lem)f(can)h(b)31 +b(e)356 b(generated)i(with)h(options)f Fs(-o)582 b(test10.thy)p +Fx(,)361 b Fs(-o)582 b(test10Script.sml)p Fx(,)362 b(and)357 +b Fs(-o)31 13847 y(test10.lem)p Fx(,)371 b(resp)31 b(ectiv)-31 +b(ely)-92 b(.)31 15839 y(The)478 b(Mak)-31 b(e\014le)478 +b(has)f(v)-61 b(arious)477 b(sample)h(targets,)506 b +Fs(make)582 b(tests/test10.out)p Fx(,)506 b Fs(make)582 +b(test7)p Fx(,)505 b(etc.)817 b(T)-31 b(ypically)480 +b(they)31 17167 y(generate:)31 19160 y(ll)p Black Black +13471 20865 a(\014lename)4888 b(description)p 12807 21308 +24560 45 v 13471 22237 a Fs(out.tex)4817 b Fx(LaT)-92 +b(eX)369 b(source)g(for)g(a)h(de\014nition)13471 23566 +y Fs(out.ps)5398 b Fx(the)369 b(p)31 b(ostscript)369 +b(built)i(from)f(that)13471 24894 y Fs(out.v)5979 b Fx(Co)31 +b(q)369 b(source)13471 26222 y Fs(outScript.sml)1331 +b Fx(HOL)369 b(source)13471 27551 y Fs(out.thy)4817 b +Fx(Isab)31 b(elle)369 b(source)31 29493 y(from)h(\014les)f +Fs(test10.ott)p Fx(,)i Fs(test8.ott)p Fx(,)g(etc.,)g(in)e +Fs(tests/)p Fx(.)31 33256 y Fq(2.5)1495 b(Man)-42 b(ual)p +Black 1692 35963 a Ft(\017)p Black 554 w Fx(in)369 b(the)h(Ott)g(gith) +-31 b(ub)370 b(built)p 13902 35963 333 45 v 400 w(do)31 +b(c)369 b(directory)-92 b(,)370 b(or)p Black 1692 37956 +a Ft(\017)p Black 554 w Fx(here)e(\(h)-31 b(tml\))31 +41719 y Fq(2.6)1495 b(Editor)499 b(Plugins)31 44426 y +Fp(2.6.1)1274 b(Emacs)424 b(mo)35 b(de)31 47133 y Fx(The)450 +b(\014le)g Fs(emacs/ott-mode.el)i Fx(de\014nes)d(a)g(v)-31 +b(ery)450 b(simple)g(Emacs)g(mo)31 b(de)450 b(for)g(syn)-31 +b(tax)451 b(highligh)-31 b(ting)453 b(of)d(Ott)g(source)31 +48462 y(\014les.)492 b(It)367 b(can)f(b)31 b(e)366 b(used)g(b)-31 +b(y)-92 b(,)368 b(for)f(example,)h(adding)g(the)f(follo)-31 +b(wing)370 b(to)d(y)-31 b(our)367 b Fs(.emacs)g Fx(\014le,)h(replacing) +383 b Fs(PATH)367 b Fx(b)-31 b(y)367 b(a)g(path)31 49790 +y(to)j(y)-31 b(our)370 b(Ott)g(Emacs)g(directory)-92 +b(.)p Black Black 31 51783 a Fs(\(setq)582 b(load-path)h(\(cons)f +(\(expand-file-name)h("PATH"\))g(load-path\)\))31 53111 +y(\(require)g('ott-mode\))31 55104 y Fx(F)-92 b(or)391 +b(installations)k(using)d(OP)-92 b(AM)392 b(on)g(*nix)g(systems,)398 +b(it)392 b(is)g(su\016cien)-31 b(t)392 b(to)h(use)e(the)g(follo)-31 +b(wing)396 b(co)31 b(de,)397 b(whic)-31 b(h)393 b(will)g(call)31 +56432 y Fs(opam)582 b(config)g(var)g(prefix)370 b Fx(at)g(load-time.)p +Black Black 31 58424 a Fs(\(setq)582 b(opam-share)h(\(substring)g +(\(shell-command-to-string)h("opam)e(config)g(var)g(share"\))g(0)f +(-1\)\))31 59753 y(\(add-to-list)i('load-path)g(\(concat)f(opam-share)h +("/emacs/site-lisp"\)\))31 61081 y(\(require)g('ott-mode\))31 +64623 y Fp(2.6.2)1274 b(Visual)424 b(Studio)i(Co)35 b(de)31 +67330 y Fx(There)369 b(is)h(a)f(plugin)h(for)g(VSCo)31 +b(de,)370 b(whic)-31 b(h)370 b(features)g(syn)-31 b(tax)370 +b(highligh)-31 b(ting)373 b(and)c(inline)i(error)d(rep)31 +b(orting.)p Black 24810 77841 a(6)p Black eop end +%%Page: 7 7 +TeXDict begin 7 6 bop Black Black 0 -594 a Fq(2.7)1495 +b(Mailing)499 b(lists)p Black 1660 2114 a Ft(\017)p Black +554 w Fx(cl-ott-announce)372 b(announcemen)-31 b(t)371 +b(mailing)h(list)p Black 1660 4106 a Ft(\017)p Black +554 w Fx(cl-ott-discuss)f(discussion)e(mailing)j(list)0 +7869 y Fq(2.8)1495 b(W)-125 b(eb)498 b(page)h(with)g(examples)p +Black 1660 10576 a Ft(\017)p Black 554 w Fx(here)0 14339 +y Fq(2.9)1495 b(Cop)-42 b(yrigh)g(t)500 b(information)0 +17047 y Fx(The)246 b(o)31 b(camlgraph)249 b(library)d(is)g(distributed) +h(under)f(the)g(LGPL)g(\(from)h(h)-31 b(ttp://www.lri.fr/)p +Ft(\030)p Fx(\014lliatr/ftp/o)31 b(camlgraph/\);)0 18375 +y(w)-31 b(e)315 b(include)g(a)f(snapshot)h(for)f(con)-31 +b(v)g(enience.)476 b(F)-92 b(or)313 b(its)i(authorship)g(and)f(cop)-31 +b(yrigh)g(t)316 b(information)h(see)d(the)g(\014les)g(therein.)0 +20368 y(All)370 b(other)g(\014les)f(are)g(distributed)h(under)e(the)i +(BSD-st)-31 b(yle)369 b(licence)h(in)g(LICENCE.)0 24693 +y FC(3)1793 b(A)470 b(minimal)h(Ott)f(source)h(\014le:)734 +b(the)470 b(un)-50 b(t)g(yp)50 b(ed)472 b(CBV)e(lam)-50 +b(b)50 b(da)470 b(calculus)0 27781 y Fx(Fig.)282 b(1)f(sho)-31 +b(ws)282 b(an)f(Ott)h(source)e(\014le)i(for)f(an)g(un)-31 +b(t)g(yp)31 b(ed)282 b(call-b)-31 b(y-v)-61 b(alue)283 +b(\(CBV\))g(lam)-31 b(b)31 b(da)282 b(calculus.)465 b(This)281 +b(section)h(explains)0 29110 y(the)459 b(basic)g(features)g(that)g(app) +31 b(ear)459 b(there,)481 b(while)460 b(in)f(the)g(follo)-31 +b(wing)462 b(sections)d(w)-31 b(e)459 b(sho)-31 b(w)459 +b(what)h(m)-31 b(ust)459 b(b)31 b(e)458 b(added)h(to)0 +30438 y(generate)354 b(t)-31 b(yp)31 b(eset)355 b(output,)j(pro)31 +b(of)354 b(assistan)-31 b(t)355 b(de\014nitions,)j(and)c(other)g +(things.)489 b(The)353 b(\014gure)h(is)f(colourised,)358 +b(with)d(Ott)0 31766 y(k)-31 b(eyw)g(ords)370 b(lik)-31 +b(e)p Mahogany 370 w Fs(this)p Black 370 w Fx(and)369 +b(Ott)h(sym)-31 b(b)31 b(ols)370 b(suc)-31 b(h)369 b(as)p +RoyalBlue 369 w Fs(|)p Black 369 w Fx(and)p RoyalBlue +370 w Fs(::)p Black Fx(.)493 b(Other)369 b(user-sp)31 +b(eci\014c)367 b(input)j(app)31 b(ears)369 b(lik)-31 +b(e)371 b Fs(this)p Fx(.)0 33759 y(A)-31 b(t)516 b(the)f(top)h(of)f +(the)h(\014gure,)551 b(the)p Mahogany 516 w Fs(metavar)p +Black 516 w Fx(declaration)517 b(in)-31 b(tro)31 b(duces)515 +b(a)g(sort)g(of)h Fo(metavariables)605 b Fs(termvar)516 +b Fx(\(with)0 35087 y(synon)-31 b(ym)438 b Fs(x)p Fx(\),)456 +b(for)437 b(term)h(v)-61 b(ariables.)697 b(The)438 b(follo)-31 +b(wing)p Mahogany 441 w Fs(grammar)p Black 438 w Fx(in)g(tro)31 +b(duces)438 b(t)-31 b(w)g(o)439 b(grammar)f(rules,)455 +b(one)437 b(for)h(terms,)0 36416 y(with)469 b Fo(nonterminal)488 +b(r)-57 b(o)g(ot)573 b Fs(t)p Fx(,)493 b(and)468 b(one)h(for)f(v)-61 +b(alues)468 b Fs(v)p Fx(.)789 b(This)469 b(sp)31 b(eci\014es)467 +b(the)h(concrete)h(syn)-31 b(tax)469 b(of)f(ob)61 b(ject-language)0 +37744 y(terms,)394 b(the)389 b(abstract)g(syn)-31 b(tax)390 +b(represen)-31 b(tations)389 b(for)f(pro)31 b(of-assistan)-31 +b(t)391 b(mathematics,)396 b(and)389 b(the)g(syn)-31 +b(tax)389 b(of)g(sym)-31 b(b)31 b(olic)0 39072 y(terms)369 +b(to)h(b)31 b(e)369 b(used)f(in)i(seman)-31 b(tic)371 +b(rules.)0 41065 y(Eac)-31 b(h)370 b(rule)f(has)g(a)h(rule)f(name)g +(pre\014x)g(\(e.g.)i Fs('t)p 19835 41065 349 45 v 419 +w(')p Fx(\))e(and)h(then)f(a)h(list)g(of)g(pro)31 b(ductions.)493 +b(Eac)-31 b(h)370 b(pro)31 b(duction,)370 b(e.g.)p Black +Black RoyalBlue 1162 43057 a Fs(|)p Black 582 w(\\)581 +b(x)g(.)g(t)p RoyalBlue 3488 w(::)p Black RoyalBlue 1162 +w(::)p Black 582 w(Lam)0 45050 y Fx(sp)31 b(eci\014es)538 +b(a)i(syn)-31 b(tactic)540 b(form)g(as)f(a)g(list)h(of)g(elemen)-31 +b(ts,)583 b(here)538 b(`)p Fs(\\)p Fx(',)583 b(`)p Fs(x)p +Fx(',)g(`)p Fs(.)p Fx(',)f(and)540 b(`)p Fs(t)p Fx(',)583 +b(eac)-31 b(h)539 b(of)h(whic)-31 b(h)540 b(is)e(either)i(a)0 +46378 y(meta)-31 b(v)-61 b(ariable)407 b(\(the)f(`)p +Fs(x)p Fx('\),)415 b(a)405 b(non)-31 b(terminal)408 b(\(the)d(`)p +Fs(t)p Fx('\),)415 b(or)405 b(a)g(terminal)i(\()p Fs(\\)e(.)598 +b(\()405 b(\))g({)f(})h(/)g(-->)p Fx(\).)600 b(Within)405 +b(pro)31 b(ductions)0 47707 y(all)488 b(elemen)-31 b(ts)489 +b(m)-31 b(ust)487 b(b)31 b(e)487 b(whitespace-separated,)519 +b(so)487 b(that)h(the)g(to)31 b(ol)488 b(can)g(deduce)e(whic)-31 +b(h)488 b(are)f(terminals.)848 b(In)487 b(the)0 49035 +y(sym)-31 b(b)31 b(olic)316 b(terms)f(in)g(the)g(seman)-31 +b(tic)317 b(rules)d(b)31 b(elo)-31 b(w,)327 b(ho)-31 +b(w)g(ev)g(er,)328 b(whitespace)316 b(is)e(required)h(only)h(where)e +(necessary)-92 b(.)474 b(A)315 b(few)0 50363 y(terminals)369 +b(ha)-31 b(v)g(e)368 b(to)g(b)31 b(e)367 b(quoted)i(\(with)g +Fs('')p Fx(\))f(if)g(they)g(app)31 b(ear)367 b(in)h(a)f(grammar,)j +(e.g.)493 b(to)368 b(use)f Fs(|)g Fx(as)h(an)f(ob)61 +b(ject-language)0 51692 y(tok)-31 b(en,)432 b(as)419 +b(they)g(are)f(part)h(of)g(the)g(Ott)g(syn)-31 b(tax,)432 +b(but)419 b(they)g(do)f(not)i(ha)-31 b(v)g(e)419 b(to)g(b)31 +b(e)418 b(quoted)i(at)f(usage)g(p)31 b(oin)-31 b(ts.)641 +b(\(If)419 b(one)0 53020 y(acciden)-31 b(tally)388 b(omits)f(in)-31 +b(ter-tok)g(en)387 b(whitespace)f(in)g(the)f(grammar,)391 +b(the)385 b(output)i(of)e(Ott)h(can)g(b)31 b(e)384 b(surprising.)541 +b(This)385 b(is)0 54348 y(b)31 b(est)369 b(diagnosed)h(b)-31 +b(y)370 b(lo)31 b(oking)371 b(at)f(the)f(colourised)i(ASCI)31 +b(I)368 b(or)h(L)26423 54121 y Fu(A)26911 54348 y Fx(T)27525 +54587 y(E)28141 54348 y(X)g(output)i(from)e(Ott.\))0 +56341 y(Meta)-31 b(v)-61 b(ariables)433 b(and)e(non)-31 +b(terminals)433 b(can)e(b)31 b(e)431 b(formed)h(from)f(the)h(sp)31 +b(eci\014ed)430 b(meta)-31 b(v)-61 b(ariable)434 b(and)d(non)-31 +b(terminal)434 b(ro)31 b(ots)0 57669 y(b)-31 b(y)369 +b(app)31 b(ending)371 b(a)e(su\016x,)h(e.g.)g(the)g(non)-31 +b(terminal)371 b Fs(t')f Fx(in)f(the)g Fs(App)h Fx(and)f +Fs(Tsub)h Fx(pro)31 b(ductions.)0 59662 y(Bet)-31 b(w)g(een)372 +b(the)p RoyalBlue 372 w Fs(::)p Black Fx('s)f(is)g(an)g(optional)j +(meta)e(\015ag)p Mahogany 372 w Fs(M)p Black 370 w Fx(or)p +Mahogany 371 w Fs(S)p Black Fx(.)g(Non-meta)h(pro)31 +b(ductions)371 b(giv)-31 b(e)372 b(rise)f(to)h(clauses)f(of)g(datat)-31 +b(yp)31 b(e)0 60990 y(de\014nitions)399 b(in)f(the)g(Isab)31 +b(elle/Co)g(q/HOL)400 b(output,)407 b(whereas)398 b(meta)h(pro)31 +b(ductions)398 b(do)g(not.)579 b(Later,)406 b(w)-31 b(e)398 +b(will)i(see)d(ho)-31 b(w)0 62318 y(the)317 b(user)g(can)g(sp)31 +b(ecify)317 b(ho)-31 b(w)319 b(meta)f(syn)-31 b(tax)318 +b(should)g(b)31 b(e)317 b(translated)h(a)-31 b(w)g(a)g(y)320 +b(when)d(generating)i(pro)31 b(of)318 b(assistan)-31 +b(t)318 b(output.)0 63647 y(The)398 b(t)-31 b(w)g(o)399 +b(\015ags)p Mahogany 398 w Fs(M)p Black 398 w Fx(and)p +Mahogany 398 w Fs(S)p Black 398 w Fx(are)e(iden)-31 b(tical)400 +b(except)e(that)h(pro)31 b(ductions)399 b(with)f(the)g(latter)h(are)f +(admitted)i(when)e(parsing)0 64975 y(example)293 b(concrete)f(terms;) +318 b(the)p Mahogany 291 w Fs(S)p Black 292 w Fx(tag)292 +b(is)g(th)-31 b(us)292 b(appropriate)g(for)g(ligh)-31 +b(t)g(w)g(eigh)g(t)296 b(syn)-31 b(tactic)293 b(sugar,)308 +b(suc)-31 b(h)291 b(as)g(pro)31 b(ductions)0 66303 y(for)369 +b(paren)-31 b(theses.)493 b(One)369 b(can)g(also)h(use)f(an)p +Mahogany 369 w Fs(X)p Black 369 w Fx(\015ag)h(here)f(to)h(suppress)d(a) +i(pro)31 b(duction)371 b(in)e(the)g(generated)h(LaT)-92 +b(eX.)0 68296 y(Eac)-31 b(h)297 b(pro)31 b(duction)297 +b(has)e(a)i(pro)31 b(duction)296 b(name)h(\(e.g.)h Fs(t_Lam)p +Fx(\),)312 b(comp)31 b(osed)296 b(of)h(the)f(rule)f(name)i(pre\014x)e +(\(here)h Fs(t_)p Fx(\))h(and)f(the)0 69624 y(pro)31 +b(duction)369 b(name)f(k)-31 b(ernel)369 b(that)g(follo)-31 +b(ws)370 b(the)p RoyalBlue 368 w Fs(::)p Black Fx('s)e(\(here)g +Fs(Lam)p Fx(\).)493 b(The)368 b(pro)31 b(duction)369 +b(name)g(is)e(used)h(as)f(a)i(constructor)0 70953 y(name)h(in)f(the)h +(generated)g(Isab)31 b(elle/Co)g(q/HOL.)0 72945 y(The)568 +b(to)31 b(ol)569 b(supp)31 b(orts)567 b(arbitrary)h(con)-31 +b(text-free)569 b(grammars,)619 b(extended)568 b(with)h(sp)31 +b(ecial)568 b(constructs)g(for)f(list)i(forms)0 74274 +y(\(c.f.)371 b Ft(x)p Fx(12\).)p Black 24778 77841 a(7)p +Black eop end +%%Page: 8 8 +TeXDict begin 8 7 bop Black Black Black 31 14545 50863 +45 v 31 56084 45 41539 v Black Black 408 15569 a Fw(\045)523 +b(minimal)p Mahogany 408 16787 a(metavar)p Black 523 +w(termvar)p RoyalBlue(,)p Black 523 w(x)p RoyalBlue 523 +w(::=)p Black Mahogany 408 19222 a(grammar)p Black 408 +20440 a(t)p RoyalBlue 523 w(::)p Black 523 w('t_')p RoyalBlue +523 w(::=)p Black RoyalBlue 1454 21658 a(|)p Black 523 +w(x)p RoyalBlue 6276 w(::)p Black RoyalBlue 1047 w(::)p +Black 523 w(Var)p RoyalBlue 1454 22875 a(|)p Black 523 +w(\\)g(x)g(.)g(t)p RoyalBlue 3138 w(::)p Black RoyalBlue +1047 w(::)p Black 523 w(Lam)p RoyalBlue 1454 24093 a(|)p +Black 523 w(t)g(t')p RoyalBlue 4707 w(::)p Black RoyalBlue +1047 w(::)p Black 523 w(App)p RoyalBlue 1454 25311 a(|)p +Black 523 w(\()g(t)g(\))p RoyalBlue 4184 w(::)p Black +Mahogany 524 w(S)p Black RoyalBlue(::)p Black 523 w(Paren)p +RoyalBlue 1454 26528 a(|)p Black 523 w({)g(t)g(/)g(x)g(})g(t')p +RoyalBlue 523 w(::)p Black Mahogany 524 w(M)p Black RoyalBlue(::)p +Black 523 w(Tsub)408 28964 y(v)p RoyalBlue 523 w(::)p +Black 523 w('v_')p RoyalBlue 523 w(::=)p Black RoyalBlue +1454 30181 a(|)p Black 523 w(\\)g(x)g(.)g(t)p RoyalBlue +3138 w(::)p Black RoyalBlue 1047 w(::)p Black 523 w(Lam)p +Mahogany 408 32617 a(subrules)p Black 1454 33834 a(v)p +RoyalBlue 523 w(<::)p Black 523 w(t)p Mahogany 408 36270 +a(defns)p Black 408 37487 a(Jop)p RoyalBlue 523 w(::)p +Black 523 w('')p RoyalBlue 523 w(::=)p Black Mahogany +931 39923 a(defn)p Black 931 41140 a(t1)g(-->)g(t2)p +RoyalBlue 523 w(::)p Black RoyalBlue 523 w(::)p Black(reduce)p +RoyalBlue(::)p Black('')p Mahogany 1047 w(by)p Black +RoyalBlue 2500 44793 a(--------------------------)p Black +1047 w(::)g(ax_app)2500 46011 y(\(\\x.t12\))g(v2)g(-->)1047 +b({v2/x}t12)2500 48446 y(t1)523 b(-->)g(t1')p RoyalBlue +2500 49664 a(--------------)p Black 523 w(::)h(ctx_app_fun)2500 +50881 y(t1)f(t)g(-->)g(t1')g(t)2500 53317 y(t1)g(-->)g(t1')p +RoyalBlue 2500 54534 a(--------------)p Black 523 w(::)h(ctx_app_arg) +2500 55752 y(v)f(t1)g(-->)g(v)g(t1')p 50850 56084 V 31 +56128 50863 45 v Black 17176 58102 a Fx(Figure)370 b(1:)493 +b(Source:)f Fs(test10.0.ott)p Black Black Black 24810 +77841 a Fx(8)p Black eop end +%%Page: 9 9 +TeXDict begin 9 8 bop Black Black 0 -594 a Fx(F)-92 b(ollo)-31 +b(wing)372 b(the)p Mahogany 369 w Fs(grammar)p Black +370 w Fx(in)e(this)f(example)i(is)e(a)p Mahogany 370 +w Fs(subrule)p Black 370 w Fx(declaration)p Black Black +Mahogany 1162 1399 a Fs(subrules)p Black 2325 2727 a(v)p +RoyalBlue 581 w(<::)p Black 581 w(t)0 4720 y Fx(declaring)357 +b(that)g(the)f Fs(v)g Fx(grammar)h(rule)f(\(of)h(v)-61 +b(alues\))356 b(is)g(a)g(subgrammar)h(of)f(the)g Fs(t)g +Fx(rule)g(\(of)h(terms\).)488 b(The)357 b(to)31 b(ol)357 +b(c)-31 b(hec)g(ks)0 6048 y(that)479 b(there)f(is)h(in)f(fact)h(a)g +(subgrammar)g(relationship,)508 b(i.e.)479 b(that)g(for)g(eac)-31 +b(h)478 b(pro)31 b(duction)480 b(of)e(the)h(lo)-31 b(w)g(er)479 +b(rule)f(there)0 7376 y(exists)462 b(a)f(pro)31 b(duction)463 +b(of)e(the)h(higher)g(rule)f(with)h(corresp)31 b(onding)462 +b(elemen)-31 b(ts)462 b(\(up)g(to)g(the)g(subrule)e(relation\).)772 +b(The)0 8705 y(subrule)299 b(declaration)j(means)e(that,)315 +b(in)300 b(the)g(seman)-31 b(tic)301 b(rules)f(b)31 b(elo)-31 +b(w,)315 b(w)-31 b(e)300 b(will)h(b)31 b(e)300 b(able)g(to)h(use)e +Fs(v)p Fx('s)g(in)h(places)g(where)g(the)0 10033 y(grammar)372 +b(sp)31 b(eci\014es)370 b Fs(t)p Fx('s.)497 b(In)370 +b(the)h(generated)g(Isab)31 b(elle/Co)g(q/HOL)373 b(for)e(this)g +(example)h(only)g(one)f(free)f(datat)-31 b(yp)31 b(e)372 +b(will)0 11361 y(b)31 b(e)367 b(generated,)j(for)e(the)g +Fs(t)f Fx(rule,)i(while)g(for)f(the)g Fs(v)g Fx(rule)f(w)-31 +b(e)368 b(generate)h(an)f Fs(is_v)g Fx(predicate)h(o)-31 +b(v)g(er)368 b(the)g Fs(t)g Fx(t)-31 b(yp)31 b(e.)493 +b(Usages)0 12690 y(of)370 b Fs(v)f Fx(non)-31 b(terminals)371 +b(in)f(the)f(seman)-31 b(tic)371 b(rules)d(will)j(ha)-31 +b(v)g(e)370 b(instances)g(of)g(this)f(predicate)h(automatically)k +(inserted.)0 14682 y(Finally)-92 b(,)357 b(w)-31 b(e)353 +b(giv)-31 b(e)353 b(a)f(collection)j(of)d(de\014nitions)h(of)g +(inductiv)-31 b(e)353 b(relations.)489 b(In)351 b(this)i(example)g +(there)f(is)g(just)g(one)g(family)0 16011 y(of)404 b(de\014nitions)h +(\(of)f(op)31 b(erational)406 b(judgemen)-31 b(ts\),)415 +b(in)-31 b(tro)31 b(duced)404 b(b)-31 b(y)404 b(the)p +Mahogany 403 w Fs(defns)p Black 404 w(Jop)p Fx(;)422 +b(it)404 b(con)-31 b(tains)405 b(just)f(one)f(de\014nition)0 +17339 y(of)496 b(a)g(relation,)529 b(called)497 b Fs(reduce)p +Fx(.)872 b(In)495 b(general)h(there)f(ma)-31 b(y)497 +b(b)31 b(e)495 b(man)-31 b(y)p Mahogany 496 w Fs(defns)p +Black 496 w Fx(blo)31 b(c)-31 b(ks,)528 b(eac)-31 b(h)496 +b(of)g(whic)-31 b(h)497 b(in)-31 b(tro)31 b(duces)0 18667 +y(a)510 b(m)-31 b(utually)512 b(recursiv)-31 b(e)509 +b(collection)k(of)p Mahogany 510 w Fs(defn)p Black Fx(s.)914 +b(The)510 b(relation)h(de\014nition)p Mahogany 512 w +Fs(defn)p Black 581 w(...)g Fx(also)g(includes)f(a)g(grammar)0 +19996 y(pro)31 b(duction)370 b(sp)31 b(ecifying)370 b(ho)-31 +b(w)371 b(elemen)-31 b(ts)370 b(of)f(the)h(relation)h(can)e(b)31 +b(e)369 b(written)h(and)g(t)-31 b(yp)31 b(eset,)370 b(here)p +Black Black 1162 21988 a Fs(t1)582 b(-->)f(t2)0 23981 +y Fx(As)326 b(in)h(the)f(main)i(grammar,)336 b(the)327 +b(tok)-31 b(ens)327 b(of)g(this)g(syn)-31 b(tax)327 b(de\014nition)h +(in)f(the)f(header)g(m)-31 b(ust)327 b(b)31 b(e)326 b(space-separated,) +336 b(but)0 25309 y(usages)435 b(of)g(the)h(syn)-31 b(tax)436 +b(generally)g(need)f(not)g(b)31 b(e.)690 b(Syn)-31 b(tax)436 +b(rules)e(for)h(eac)-31 b(h)436 b(family)h(of)e(judgemen)-31 +b(ts,)454 b(and)435 b(for)g(their)0 26637 y(union,)453 +b(are)435 b(implicitly)j(generated.)692 b(The)435 b(relation)i +(de\014nition)g(is)e(giv)-31 b(en)436 b(b)-31 b(y)436 +b(a)f(sequence)g(of)h(inference)f(rules,)452 b(eac)-31 +b(h)0 27966 y(with)370 b(a)g(horizon)-31 b(tal)372 b(line)d(separating) +i(a)e(n)-31 b(um)g(b)31 b(er)370 b(of)f(premises)g(from)h(a)f +(conclusion,)i(for)f(example)g(as)f(b)31 b(elo)-31 b(w.)p +Black Black 2325 29958 a Fs(t1)581 b(-->)h(t1')p RoyalBlue +2325 31287 a(--------------)h(::)p Black 581 w(ctx_app_arg)2325 +32615 y(v)e(t1)g(-->)h(v)f(t1')0 34608 y Fx(The)338 b(conclusion)g(m) +-31 b(ust)338 b(b)31 b(e)337 b(a)h(sym)-31 b(b)31 b(olic)339 +b(term)e(of)h(the)g(form)g(of)g(the)f(judgemen)-31 b(t)339 +b(b)31 b(eing)338 b(de\014ned.)482 b(In)337 b(simple)h(cases)f(\(as)0 +35936 y(here\))372 b(the)h(premises)f(can)h(b)31 b(e)372 +b(sym)-31 b(b)31 b(olic)374 b(terms)e(of)h(the)g(form)g(of)g(an)-31 +b(y)374 b(of)f(the)f(de\014ned)h(judgemen)-31 b(ts.)504 +b(More)372 b(generally)0 37264 y(\(see)468 b Ft(x)p Fx(6\))g(they)g +(can)g(b)31 b(e)467 b(sym)-31 b(b)31 b(olic)470 b(terms)d(of)h(a)g +(user-de\014ned)p Mahogany 467 w Fs(formula)p Black 469 +w Fx(grammar,)494 b(or)467 b(in-line)i(em)-31 b(b)31 +b(edded)468 b(pro)-31 b(v)g(er)0 38593 y(co)31 b(de.)784 +b(Eac)-31 b(h)467 b(rule)f(has)g(a)g(name,)492 b(comp)31 +b(osed)467 b(of)f(a)h(de\014nition)h(family)g(pre\014x)e(\(here)g(empt) +-31 b(y\),)492 b(a)467 b(de\014nition)h(pre\014x)0 39921 +y(\(here)369 b(also)h(empt)-31 b(y\))371 b(and)e(a)h(k)-31 +b(ernel)369 b(\(the)h Fs(ctx_app_arg)p Fx(\).)0 41913 +y(The)285 b(sym)-31 b(b)31 b(olic)286 b(terms)e(in)h(seman)-31 +b(tic)286 b(rules)e(are)h(parsed)f(with)h(a)g(scannerless)f(parser,)301 +b(built)286 b(using)e(parser)g(com)-31 b(binators)0 43242 +y(o)g(v)g(er)380 b(c)-31 b(haracter-list)382 b(inputs.)525 +b(The)380 b(parser)f(searc)-31 b(hes)379 b(for)h(all)h(parses)e(of)h +(the)g(input.)525 b(If)380 b(none)g(are)g(found,)j(the)d(ASCI)31 +b(I)0 44570 y(and)313 b(T)-92 b(eX)313 b(output)h(are)f(annotated)i +Fs(no)581 b(parses)p Fx(,)325 b(with)314 b(a)f(cop)-31 +b(y)314 b(of)f(the)g(input)h(with)g Fs(***)f Fx(inserted)g(at)g(the)g +(p)31 b(oin)-31 b(t)314 b(where)0 45898 y(the)408 b(last)h(tok)-31 +b(en)409 b(w)-31 b(as)409 b(read.)608 b(This)409 b(is)f(often)h(at)f +(the)g(p)31 b(oin)-31 b(t)410 b(of)e(the)g(error)f(\(though)j(if,)418 +b(for)408 b(example,)420 b(a)408 b(putativ)-31 b(e)410 +b(dot)0 47227 y(form)397 b(is)f(read)g(but)g(the)g(t)-31 +b(w)g(o)398 b(elemen)-31 b(t)397 b(lists)g(cannot)g(b)31 +b(e)396 b(an)-31 b(ti-uni\014ed,)405 b(it)397 b(will)h(b)31 +b(e)395 b(after)i(the)f(p)31 b(oin)-31 b(t)398 b(of)e(the)g(error\).) +573 b(If)0 48555 y(m)-31 b(ultiple)412 b(parses)c(are)i(found,)420 +b(the)410 b(T)-92 b(eX)409 b(output)i(is)f(annotated)h +Fs(multiple)582 b(parses)411 b Fx(and)e(the)h(di\013eren)-31 +b(t)410 b(parses)e(are)0 49884 y(output)342 b(to)g(the)f(console)g(in)h +(detail)g(during)f(the)g(Ott)h(run.)482 b(If)341 b(the)g(option)i +Fs(picky)p 34125 49884 349 45 v 419 w(multiple)p 39192 +49884 V 419 w(parses)f Fx(is)f(set)g(to)g Fs(true)p Fx(,)0 +51212 y(m)-31 b(ultiple)372 b(parses)c(are)h(alw)-31 +b(a)g(ys)371 b(rep)31 b(orted.)492 b(If)369 b(it)h(set)f(to)h +Fs(false)p Fx(,)g(a)f(sym)-31 b(b)31 b(olic)371 b(term)e(is)g +(considered)g(am)-31 b(biguous)371 b(only)g(if)0 52540 +y(t)-31 b(w)g(o)360 b(di\013eren)-31 b(t)359 b(parses)e(compile)k(to)e +(di\013eren)-31 b(t)359 b(strings)f(\(for)h(a)g(target\).)491 +b(The)359 b(parser)e(com)-31 b(binators)361 b(use)c(memoization)0 +53869 y(and)308 b(con)-31 b(tin)g(uation-passing)312 +b(to)c(ac)-31 b(hiev)g(e)309 b(reasonable)f(p)31 b(erformance)308 +b(on)g(the)g(small)h(sym)-31 b(b)31 b(olic)309 b(terms)f(that)g(are)g +(t)-31 b(ypical)0 55197 y(in)448 b(seman)-31 b(tic)449 +b(rules.)728 b(Their)448 b(p)31 b(erformance)448 b(on)g(large)h +(\(whole-program)i(size\))d(examples)h(is)e(un)-31 b(tested.)729 +b(T)-92 b(o)449 b(resolv)-31 b(e)0 56525 y(am)g(biguit)g(y)278 +b(one)d(can)g(add)g(metapro)31 b(ductions)277 b(for)e(paren)-31 +b(theses)275 b(\(as)g(in)g(Fig.)h(1\),)295 b(or)274 b(pro)31 +b(duction-name)277 b(annotations)h(in)0 57854 y(particular)336 +b(sym)-31 b(b)31 b(olic)335 b(terms,)342 b(e.g.)336 b(the)e +Fs(:t_tsub:)h Fx(in)g(the)g Fs(AppAbs)g Fx(rule)f(of)g(the)h(POPLmark)g +(example,)343 b Fs(test7.ott)p Fx(.)0 59182 y(There)369 +b(is)g(curren)-31 b(tly)370 b(no)f(supp)31 b(ort)369 +b(for)g(precedence)f(or)i(asso)31 b(ciativit)-31 b(y)-92 +b(.)0 61175 y(This)370 b(\014le)f(is)g(included)h(in)f(the)h +(distribution)h(as)e Fs(tests/test10.0.ott)p Fx(.)495 +b(It)369 b(can)h(b)31 b(e)368 b(pro)31 b(cessed)368 b(b)-31 +b(y)370 b(executing)p Black Black 1743 63167 a Fs(bin/ott)583 +b(-i)e(tests/test10.0.ott)0 65160 y Fx(from)370 b(the)f(main)i +(directory)-92 b(.)493 b(This)369 b(simply)h(reads)f(in)g(the)h +(\014le,)g(c)-31 b(hec)g(king)370 b(that)h(it)f(is)f(w)-31 +b(ell-formed.)495 b(Adding)370 b(options:)p Black Black +1743 67152 a Fs(bin/ott)583 b(-show)p 9368 67152 V 419 +w(sort)f(true)f(-show)p 18503 67152 V 419 w(defns)h(true)g(-i)g +(tests/test10.0.ott)0 69145 y Fx(it)387 b(ec)-31 b(hos)386 +b(a)g(colourised)h(v)-31 b(ersion)386 b(to)h(the)f(screen,)j(with)e +(meta)-31 b(v)-61 b(ariables)388 b(in)f(red,)j(non)-31 +b(terminals)387 b(in)g(y)-31 b(ello)g(w,)393 b(terminals)0 +70473 y(in)377 b(green,)j(and)d(ob)61 b(ject)379 b(v)-61 +b(ariables)378 b(in)f(white.)518 b(The)378 b(colourisation)i(uses)c +(vt220)j(con)-31 b(trol)379 b(co)31 b(des;)381 b(if)d(they)g(do)f(not)h +(w)-31 b(ork)0 71801 y(on)461 b(y)-31 b(our)462 b(screen)e(add)i +Fs(-colour)582 b(false)461 b Fx(to)h(the)g(middle)g(of)g(the)f(command) +i(line.)770 b(T)-92 b(o)462 b(suppress)d(the)i(ec)-31 +b(ho)462 b(of)g(the)0 73130 y(de\014nition,)371 b(add)f +Fs(-show)p 10355 73130 V 419 w(post)p 13098 73130 V 419 +w(sort)582 b(false)369 b Fx(and)h Fs(-show)p 24755 73130 +V 419 w(defns)582 b(false)p Fx(.)p Black 24778 77841 +a(9)p Black eop end +%%Page: 10 10 +TeXDict begin 10 9 bop Black Black 31 -594 a Fq(3.1)1495 +b(Index)498 b(v)-83 b(ariables)31 2114 y Fx(In)394 b(addition)i(to)e +(the)p Mahogany 394 w Fs(metavar)p Black 395 w Fx(declarations)i(ab)31 +b(o)-31 b(v)g(e,)401 b(the)395 b(user)d(can)i(declare)g(an)-31 +b(y)395 b(n)-31 b(um)g(b)31 b(er)394 b(of)g(distinguished)h +Fo(index)31 3442 y Fx(meta)-31 b(v)-61 b(ariables,)372 +b(e.g.)494 b(b)-31 b(y:)p Black Black Mahogany 1194 5434 +a Fs(indexvar)p Black 582 w(index)p RoyalBlue(,)p Black +582 w(i)p RoyalBlue(,)p Black 582 w(j)p RoyalBlue(,)p +Black 581 w(n)p RoyalBlue(,)p Black 582 w(m)p RoyalBlue +581 w(::=)p Black RoyalBlue 581 w({)q({)p Black Mahogany +581 w(isa)p Black 581 w(num)p RoyalBlue 582 w(}})p Black +RoyalBlue 581 w({)q({)p Black Mahogany 581 w(coq)p Black +582 w(nat)p RoyalBlue 581 w(}})p Black RoyalBlue 582 +w({{)p Black Mahogany 581 w(hol)p Black 582 w(num)p RoyalBlue +581 w(}})p Black 31 7427 a Fx(Giv)g(en)370 b(suc)-31 +b(h)369 b(a)g(declaration,)j Fs(index)p Fx(,)e Fs(i)p +Fx(,)g Fs(j)p Fx(,)g Fs(n)f Fx(and)g Fs(m)g Fx(can)h(b)31 +b(e)369 b(used)f(in)i(su\016xes,)f(e.g.)h(in)g(the)f(pro)31 +b(duction)p Black Black RoyalBlue 1775 9420 a Fs(|)p +Black 1162 w(\()582 b(t1)f(,)p RoyalBlue 581 w(....)p +Black 582 w(,)g(tn)h(\))p RoyalBlue 6393 w(::)p Black +RoyalBlue 581 w(::)p Black 582 w(Tuple)31 11412 y Fx(There)422 +b(is)f(a)h(\014xed)g(ad-ho)31 b(c)422 b(language)i(of)e(su\016xes,)435 +b(including)423 b(n)-31 b(um)g(b)31 b(ers,)435 b(primes,)g(and)422 +b(index)g(v)-61 b(ariables)422 b(\(see)g Ft(x)p Fx(23\).)31 +12740 y(Index)369 b(meta)-31 b(v)-61 b(ariables)372 b(cannot)e +(themselv)-31 b(es)370 b(b)31 b(e)369 b(su\016xed.)31 +17065 y FC(4)1793 b(Generating)599 b(L)12485 16731 y +Fp(A)13179 17065 y FC(T)14127 17419 y(E)15080 17065 y(X)31 +20154 y Fx(The)335 b(example)h(from)f(the)g(previous)f(section)i(can)f +(already)g(b)31 b(e)334 b(used)g(to)h(generate)g(L)34900 +19927 y Fu(A)35388 20154 y Fx(T)36002 20392 y(E)36618 +20154 y(X,)342 b(for)334 b(example)i(b)-31 b(y)335 b(executing)p +Black Black 1775 22147 a Fs(bin/ott)582 b(-i)g(tests/test10.0.ott)h(-o) +f(out.tex)31 24139 y Fx(to)391 b(pro)31 b(duce)388 b(a)i(L)6876 +23912 y Fu(A)7364 24139 y Fx(T)7978 24377 y(E)8594 24139 +y(X)f(\014le)h Fs(out.tex)p Fx(.)554 b(One)389 b(often)h(needs)f(to)h +(\014ne-tune)f(the)h(default)h(t)-31 b(yp)31 b(esetting,)397 +b(as)389 b(illustrated)i(in)31 25467 y(Figure)354 b(2)h(\(the)g(Ott)f +(source\))g(and)h(Figure)f(3)g(\(the)h(resulting)g(L)26304 +25240 y Fu(A)26792 25467 y Fx(T)27406 25706 y(E)28021 +25467 y(X\).)489 b(\(The)354 b(latter)i(w)-31 b(as)354 +b(built)i(using)e(the)g(additional)31 26796 y(option)366 +b Fs(-tex_show_meta)583 b(false)p Fx(,)366 b(to)e(suppress)d(displa)-31 +b(y)365 b(of)f(the)g(metapro)31 b(ductions.\))983 b(The)364 +b(source)f(\014le)g(has)h(three)31 28124 y(additions)387 +b(to)e(the)g(previous)f(\014le.)539 b(Firstly)-92 b(,)389 +b(the)p Mahogany 384 w Fs(metavar)p Black 386 w Fx(declaration)d(is)f +(annotated)h(with)g(a)f(sp)31 b(eci\014cation)386 b(of)f(ho)-31 +b(w)31 29452 y(meta)g(v)-61 b(ariables)372 b(should)e(b)31 +b(e)368 b(translated)j(to)f(L)18891 29226 y Fu(A)19379 +29452 y Fx(T)19993 29691 y(E)20608 29452 y(X:)p Black +Black Mahogany 1194 31445 a Fs(metavar)p Black 582 w(termvar)p +RoyalBlue(,)p Black 582 w(x)p RoyalBlue 582 w(::=)p Black +RoyalBlue 2356 32773 a({{)p Black Mahogany 582 w(tex)p +Black 581 w(\\mathit{)p RoyalBlue 1 w([[)p Black(termvar)p +RoyalBlue(]])p Black(})p RoyalBlue 583 w(}})p Black 31 +34766 a Fx(Inside)542 b(the)p RoyalBlue 543 w Fs({{)p +Black Mahogany 581 w(tex)p Black 582 w Fn(:)184 b(:)g(:)p +RoyalBlue 584 w Fs(}})p Black 542 w Fx(is)542 b(some)h(L)17690 +34539 y Fu(A)18178 34766 y Fx(T)18792 35004 y(E)19408 +34766 y(X)f(co)31 b(de)542 b Fs(\\)q(mathit{)p RoyalBlue +1 w($[[)p Black(termvar)p RoyalBlue(]]$)p Black(})i Fx(giving)g(the)f +(translation)h(of)f(a)31 36094 y Fs(termvar)505 b Fx(or)f +Fs(x)p Fx(.)898 b(Here)504 b(they)g(are)g(t)-31 b(yp)31 +b(eset)505 b(in)f(math)i(italic)g(\(whic)-31 b(h)506 +b(in)e(fact)h(is)f(also)h(the)g(default\).)899 b(Within)505 +b(the)31 37423 y(translation,)373 b(the)c(meta)-31 b(v)-61 +b(ariable)372 b(itself)e(can)g(b)31 b(e)368 b(men)-31 +b(tioned)371 b(inside)f(double)g(square)f(brac)-31 b(k)g(ets)p +RoyalBlue 369 w Fs([[)p Black 582 w Fn(:)184 b(:)g(:)p +RoyalBlue 583 w Fs(]])p Black Fx(.)31 39415 y(Secondly)-92 +b(,)491 b(there)466 b(is)f(a)h(grammar)h(for)f(a)g(distinguished)h(non) +-31 b(terminal)468 b(ro)31 b(ot)p Mahogany 467 w Fs(terminals)p +Black Fx(,)491 b(with)467 b(a)p RoyalBlue 466 w Fs({{)p +Black Mahogany 581 w(tex)p Black 582 w Fn(:)184 b(:)g(:)p +RoyalBlue 583 w Fs(})q(})p Black 31 40743 a Fx(translation)351 +b(for)d(eac)-31 b(h,)353 b(o)-31 b(v)g(erriding)350 b(the)e(default)h +(t)-31 b(yp)31 b(esetting)350 b(of)f(some)f(terminals.)487 +b(Note)349 b(that)h(the)e(other)g(terminals)31 42072 +y(\()p Fs(.)493 b(\()369 b(\))g({)h(})f(/)p Fx(\))g(are)g(still)i(giv) +-31 b(en)370 b(their)g(default)g(t)-31 b(yp)31 b(esetting.)p +Black Black Mahogany 1194 44064 a Fs(terminals)p Black +RoyalBlue 582 w(::)p Black 582 w('terminals_')p RoyalBlue +583 w(::=)p Black RoyalBlue 2356 45393 a(|)p Black 581 +w(\\)p RoyalBlue 6974 w(::)p Black RoyalBlue 1163 w(::)p +Black 581 w(lambda)p RoyalBlue 1164 w({{)p Black Mahogany +581 w(tex)p Black 582 w(\\lambda)p RoyalBlue 582 w(}})p +Black RoyalBlue 2356 46721 a(|)p Black 581 w(-->)p RoyalBlue +5812 w(::)p Black RoyalBlue 1163 w(::)p Black 581 w(red)p +RoyalBlue 2907 w({{)p Black Mahogany 581 w(tex)p Black +582 w(\\longrightarrow)p RoyalBlue 583 w(}})p Black 31 +48714 a Fx(Thirdly)-92 b(,)390 b(the)384 b(\014le)h(has)p +Mahogany 384 w Fs(com)p Black 385 w Fx(commen)-31 b(ts,)390 +b(including)c(the)p RoyalBlue 385 w Fs({{)p Black Mahogany +581 w(com)p Black 582 w(term)p RoyalBlue 581 w(})q(})p +Black 384 w Fx(attac)-31 b(hed)386 b(to)f(a)g(grammar)g(rule,)k(the)p +RoyalBlue 384 w Fs({)q({)p Black Mahogany 31 50042 a(com)p +Black 582 w(variable)p RoyalBlue(})q(})p Black 343 w +Fx(attac)-31 b(hed)344 b(to)f(a)f(pro)31 b(duction,)349 +b(and)342 b(the)p RoyalBlue 343 w Fs({{)p Black Mahogany +581 w(com)p Black RoyalBlue 582 w([[)p Black(t1)p RoyalBlue(]])p +Black 582 w(reduces)582 b(to)p RoyalBlue 582 w([[)p Black(t2)p +RoyalBlue(]])p Black RoyalBlue(})q(})p Black 342 w Fx(attac)-31 +b(hed)344 b(to)31 51370 y(a)370 b(seman)-31 b(tic)371 +b(relation.)494 b(These)369 b(app)31 b(ear)369 b(in)h(the)f(L)20391 +51143 y Fu(A)20879 51370 y Fx(T)21493 51609 y(E)22109 +51370 y(X)g(output)h(as)g(sho)-31 b(wn)369 b(in)h(Figure)f(3.)31 +55133 y Fq(4.1)1495 b(Sp)42 b(ecifying)498 b(L)10994 +54829 y Fm(A)11587 55133 y Fq(T)12377 55428 y(E)13171 +55133 y(X)h(for)f(pro)42 b(ductions)31 57841 y Fx(One)405 +b(can)g(also)g(sp)31 b(ecify)p Mahogany 405 w Fs(tex)p +Black 404 w Fx(translations)407 b(for)d(pro)31 b(ductions,)415 +b(o)-31 b(v)g(erriding)406 b(the)f(default)h(L)38027 +57614 y Fu(A)38515 57841 y Fx(T)39129 58079 y(E)39744 +57841 y(X)f(t)-31 b(yp)31 b(esetting,)416 b(e.g.)406 +b(as)31 59169 y(in)370 b(this)g(example)g(of)g(a)f(t)-31 +b(yp)31 b(e)370 b(abstraction)h(pro)31 b(duction.)p Black +Black RoyalBlue 2356 61161 a Fs(|)p Black 1163 w(X)581 +b(<:)g(T)h(.)f(t)p RoyalBlue 1743 w(::)p Black RoyalBlue +582 w(::)p Black 581 w(TLam)p RoyalBlue 1744 w({)q({)p +Black Mahogany 581 w(tex)p Black 581 w(\\)q(Lambda)p +RoyalBlue 582 w([[)p Black(X)p RoyalBlue(]])p Black RoyalBlue +582 w([[)p Black(<:)p RoyalBlue(]])p Black RoyalBlue +582 w([[)p Black(T)p RoyalBlue(]])p Black(.)h(\\,)p RoyalBlue +581 w([[)p Black(t)p RoyalBlue(]])p Black RoyalBlue 582 +w(}})p Black 31 63154 a Fx(These)473 b Fo(homomorphisms)p +Fx(,)499 b(or)473 b Fo(homs)16009 62752 y Fu(1)16505 +63154 y Fx(,)499 b(can)473 b(refer)g(to)h(the)f(meta)-31 +b(v)-61 b(ariables)475 b(and)f(non)-31 b(terminals)475 +b(that)f(o)31 b(ccur)473 b(in)g(the)31 64482 y(pro)31 +b(duction,)402 b(e.g.)395 b(the)p RoyalBlue 394 w Fs([[)p +Black(X)p RoyalBlue(]])p Black Fx(,)p RoyalBlue 395 w +Fs([[)p Black(T)p RoyalBlue(]])p Black Fx(,)g(and)p RoyalBlue +394 w Fs([[)p Black(t)p RoyalBlue(]])p Black 395 w Fx(in)f(the)p +Mahogany 394 w Fs(tex)p Black 394 w Fx(hom)h(ab)31 b(o)-31 +b(v)g(e,)402 b(in)-31 b(terlea)g(v)g(ed)396 b(with)f(arbitrary)f +(strings)31 65811 y(and)370 b(with)g(t)-31 b(yp)31 b(eset)370 +b(elemen)-31 b(ts)370 b(of)g(the)p Mahogany 369 w Fs(terminals)p +Black 371 w Fx(grammar,)h(e.g.)f(the)p RoyalBlue 370 +w Fs([[)p Black(<:)p RoyalBlue(]])p Black Fx(.)31 67803 +y(Homomorphisms)475 b(are)d(applied)i(recursiv)-31 b(ely)473 +b(do)-31 b(wn)473 b(the)g(structure)f(of)g(sym)-31 b(b)31 +b(olic)474 b(terms.)803 b(F)-92 b(or)471 b(example,)501 +b(an)472 b(F)49144 67969 y Fr(<)p Fu(:)31 69132 y Fx(term)p +Black Black 1194 71124 a Fs(\(\\X<:T11.t12\))583 b([T2])p +Black 31 71925 20044 45 v 1264 72641 a Fy(1)1725 72953 +y FD(Strictly)-78 b(,)314 b(clauses)g(of)g(primitiv)-26 +b(e)314 b(recursiv)-26 b(e)313 b(function)h(de\014nitions)g(from)f(sym) +-26 b(b)26 b(olic)315 b(terms)e(to)h(strings,)h(here)e(of)h(L)42247 +72802 y Fy(A)42701 72953 y FD(T)43224 73144 y(E)43746 +72953 y(X)f(co)26 b(de.)p Black Black 24533 77841 a Fx(10)p +Black eop end +%%Page: 11 11 +TeXDict begin 11 10 bop Black Black Black 0 11501 50863 +45 v 0 59128 45 47627 v Black Black 376 12525 a Fw(\045)523 +b(minimal)h(+)f(latex)g(+)g(comments)p Mahogany 376 13743 +a(metavar)p Black 524 w(termvar)p RoyalBlue(,)p Black +523 w(x)p RoyalBlue 523 w(::=)p Black RoyalBlue 1422 +14961 a({{)p Black Mahogany 524 w(tex)p Black 523 w(\\mathit{)p +RoyalBlue([[)p Black(termvar)p RoyalBlue(]])p Black(})p +RoyalBlue 523 w(}})p Black Mahogany 376 17396 a(grammar)p +Black 376 18614 a(t)p RoyalBlue 523 w(::)p Black 524 +w('t_')p RoyalBlue 523 w(::=)p Black RoyalBlue 16214 +w({{)p Black Mahogany 523 w(com)p Black 523 w(term)p +RoyalBlue 2092 w(}})p Black RoyalBlue 1422 19831 a(|)p +Black 523 w(x)p RoyalBlue 6277 w(::)p Black RoyalBlue +1046 w(::)p Black 523 w(Var)p RoyalBlue 9938 w({{)p Black +Mahogany 523 w(com)p Black 523 w(variable)p RoyalBlue(}})p +Black RoyalBlue 1422 21049 a(|)p Black 523 w(\\)h(x)f(.)g(t)p +RoyalBlue 3138 w(::)p Black RoyalBlue 1046 w(::)p Black +523 w(Lam)p RoyalBlue 9938 w({{)p Black Mahogany 523 +w(com)p Black 523 w(lambda)p RoyalBlue 1046 w(}})p Black +RoyalBlue 1422 22266 a(|)p Black 523 w(t)h(t')p RoyalBlue +4707 w(::)p Black RoyalBlue 1046 w(::)p Black 523 w(App)p +RoyalBlue 9938 w({{)p Black Mahogany 523 w(com)p Black +523 w(app)p RoyalBlue 2615 w(}})p Black RoyalBlue 1422 +23484 a(|)p Black 523 w(\()g(t)f(\))p RoyalBlue 4184 +w(::)p Black Mahogany 523 w(S)p Black RoyalBlue(::)p +Black 523 w(Paren)p RoyalBlue 1422 24702 a(|)p Black +523 w({)h(t)f(/)g(x)g(})g(t')p RoyalBlue 523 w(::)p Black +Mahogany 523 w(M)p Black RoyalBlue(::)p Black 523 w(Tsub)376 +27137 y(v)p RoyalBlue 523 w(::)p Black 524 w('v_')p RoyalBlue +523 w(::=)p Black RoyalBlue 16214 w({{)p Black Mahogany +523 w(com)p Black 523 w(value)p RoyalBlue 1569 w(}})p +Black RoyalBlue 1422 28355 a(|)p Black 523 w(\\)h(x)f(.)g(t)p +RoyalBlue 3138 w(::)p Black RoyalBlue 1046 w(::)p Black +523 w(Lam)p RoyalBlue 9938 w({{)p Black Mahogany 523 +w(com)p Black 523 w(lambda)p RoyalBlue 1046 w(}})p Black +Mahogany 376 30790 a(terminals)p Black RoyalBlue 524 +w(::)p Black 523 w('terminals_')p RoyalBlue 523 w(::=)p +Black RoyalBlue 1422 32008 a(|)p Black 523 w(\\)p RoyalBlue +6277 w(::)p Black RoyalBlue 1046 w(::)p Black 523 w(lambda)p +RoyalBlue 1046 w({{)p Black Mahogany 524 w(tex)p Black +523 w(\\lambda)p RoyalBlue 523 w(}})p Black RoyalBlue +1422 33225 a(|)p Black 523 w(-->)p RoyalBlue 5231 w(::)p +Black RoyalBlue 1046 w(::)p Black 523 w(red)p RoyalBlue +2615 w({{)p Black Mahogany 524 w(tex)p Black 523 w(\\longrightarrow)p +RoyalBlue 523 w(}})p Black Mahogany 376 35661 a(subrules)p +Black 1422 36878 a(v)p RoyalBlue 523 w(<::)p Black 524 +w(t)p Mahogany 376 39314 a(defns)p Black 376 40531 a(Jop)p +RoyalBlue 523 w(::)p Black 524 w('')p RoyalBlue 523 w(::=)p +Black Mahogany 899 42967 a(defn)p Black 899 44184 a(t1)g(-->)h(t2)p +RoyalBlue 523 w(::)p Black RoyalBlue 523 w(::)p Black(reduce)p +RoyalBlue(::)p Black('')p RoyalBlue 523 w({{)p Black +Mahogany 523 w(com)p Black 523 w($)p RoyalBlue([[)p Black(t1)p +RoyalBlue(]])p Black($)g(reduces)f(to)g($)p RoyalBlue([[)p +Black(t2)p RoyalBlue(]])p Black($)p RoyalBlue(}})p Black +Mahogany 523 w(by)p Black RoyalBlue 2468 47837 a +(--------------------------)p Black 1047 w(::)h(ax_app)2468 +49055 y(\(\\)q(x.t12\))f(v2)g(-->)1046 b({v2/x}t12)2468 +51490 y(t1)524 b(-->)f(t1')p RoyalBlue 2468 52708 a(--------------)p +Black 524 w(::)g(ctx_app_fun)2468 53926 y(t1)h(t)f(-->)g(t1')g(t)2468 +56361 y(t1)h(-->)f(t1')p RoyalBlue 2468 57579 a(--------------)p +Black 524 w(::)g(ctx_app_arg)2468 58796 y(v)h(t1)f(-->)g(v)g(t1')p +50819 59128 V 0 59172 50863 45 v Black 17145 61147 a +Fx(Figure)369 b(2:)493 b(Source:)f Fs(test10.2.ott)p +Black Black Black 24502 77841 a Fx(11)p Black eop end +%%Page: 12 12 +TeXDict begin 12 11 bop Black Black Black 696 -771 a +Fo(termvar)119 b Fn(;)369 b Fo(x)696 668 y(t)2917 b Fx(::=)6673 +b(term)4565 1996 y Ft(j)1913 b Fo(x)6159 b Fx(v)-61 b(ariable)4565 +3325 y Ft(j)1913 b Fn(\025)p Fo(x)133 b Fn(:)p Fo(t)4705 +b Fx(lam)-31 b(b)31 b(da)4565 4653 y Ft(j)1913 b Fo(t)289 +b(t)7915 4251 y Fl(0)13458 4653 y Fx(app)4565 5982 y +Ft(j)1913 b Fx(\()p Fo(t)105 b Fx(\))2068 b Fk(S)696 +8885 y Fo(v)2776 b Fx(::=)6673 b(v)-61 b(alue)4565 10213 +y Ft(j)1913 b Fn(\025)p Fo(x)133 b Fn(:)p Fo(t)4705 b +Fx(lam)-31 b(b)31 b(da)p 31 12341 4880 45 v 31 13852 +45 1512 v 408 13354 a Fo(t)776 13520 y Fu(1)1580 13354 +y Ft(\000)-185 b(!)308 b Fo(t)4039 13520 y Fu(2)p 4867 +13852 V 31 13896 4880 45 v 6387 13354 a Fo(t)6755 13520 +y Fu(1)7621 13354 y Fx(reduces)368 b(to)i Fo(t)13287 +13520 y Fu(2)p 16690 15756 11974 45 v 16690 16770 a Fx(\()p +Fn(\025)p Fo(x)133 b Fn(:)p Fo(t)19088 16936 y Fu(12)20026 +16770 y Fx(\))184 b Fo(v)21149 16936 y Fu(2)21954 16770 +y Ft(\000)-184 b(!)307 b(f)p Fo(v)25107 16936 y Fu(2)25605 +16770 y Fn(=)p Fo(x)133 b Ft(g)p Fo(t)27726 16936 y Fu(12)29904 +16011 y Fj(ax)p 31335 16011 368 45 v 440 w(app)19103 +18752 y Fo(t)19471 18918 y Fu(1)20275 18752 y Ft(\000)-185 +b(!)308 b Fo(t)22839 18350 y Fl(0)22734 19026 y Fu(1)p +18446 19327 5442 45 v 18446 20341 a Fo(t)18814 20507 +y Fu(1)19495 20341 y Fo(t)412 b Ft(\000)-185 b(!)308 +b Fo(t)22839 19960 y Fl(0)22734 20636 y Fu(1)23415 20341 +y Fo(t)25127 19582 y Fj(ctx)p 27187 19582 368 45 v 441 +w(app)p 29541 19582 V 442 w(fun)19063 22341 y Fo(t)19431 +22507 y Fu(1)20235 22341 y Ft(\000)-185 b(!)308 b Fo(t)22799 +21939 y Fl(0)22694 22616 y Fu(1)p 18250 22917 5753 45 +v 18250 23931 a Fo(v)c(t)19431 24097 y Fu(1)20235 23931 +y Ft(\000)-185 b(!)308 b Fo(v)c(t)23612 23549 y Fl(0)23507 +24226 y Fu(1)25243 23171 y Fj(ctx)p 27303 23171 368 45 +v 441 w(app)p 29657 23171 V 441 w(ar)-25 b(g)p 31 24270 +50111 45 v Black 14676 26146 a Fx(Figure)369 b(3:)493 +b(Generated)369 b(L)25176 25919 y Fu(A)25664 26146 y +Fx(T)26278 26384 y(E)26894 26146 y(X:)492 b Fs(test10.2.tex)p +Black Black 31 29705 a Fx(w)-31 b(ould)371 b(b)31 b(e)369 +b(L)5060 29478 y Fu(A)5548 29705 y Fx(T)6162 29943 y(E)6777 +29705 y(X-prett)-31 b(y-prin)g(ted,)372 b(using)d(the)p +Mahogany 370 w Fs(tex)p Black 369 w Fx(clause)h(ab)31 +b(o)-31 b(v)g(e,)371 b(as)p Black Black 31 31698 a Fs(\()582 +b(\\,)f(\\Lambda)1164 b(\\mathit{X})582 b(<:)g +(\\mathit{T_{\\mathrm{11}}})i(.)e(\\,)f(\\mathit{t_{\\mathrm{12}}})k +(\\,)c(\))613 33026 y(\\,)g(\\,)h([)f(\\,)g(\\mathit{T_{\\mathrm{2}}})k +(\\,)c(])31 35018 y Fx(whic)-31 b(h)371 b(is)e(t)-31 +b(yp)31 b(eset)370 b(as)f(b)31 b(elo)-31 b(w.)19797 36347 +y(\()184 b(\003)p Fo(X)483 b Fn(<)p Fx(:)308 b Fo(T)24754 +36513 y Fu(11)25691 36347 y Fn(:)184 b Fo(t)26550 36513 +y Fu(12)27674 36347 y Fx(\))369 b([)184 b Fo(T)29756 +36513 y Fu(2)30438 36347 y Fx(])31 38339 y(Note)380 b(the)g +Fs(X)p Fx(,)f Fs(T11)g Fx(and)g Fs(t12)h Fx(of)f(the)g(sym)-31 +b(b)31 b(olic)381 b(term)e(are)g(used)f(to)i(instan)-31 +b(tiate)382 b(the)d(formal)i(parameters)e Fs(X)p Fx(,)g +Fs(T)g Fx(and)h Fs(t)31 39668 y Fx(of)370 b(the)g(homomorphism)h +(de\014nition)g(clause.)493 b(If)369 b(the)g Fs(t)g Fx(itself)i(had)e +(comp)31 b(ound)370 b(term)g(structure,)f(e.g.)493 b(as)369 +b(b)31 b(elo)-31 b(w)p Black Black 1194 41660 a Fs(\(\\X<:T.)582 +b(\\X'<:T'.x\))31 43653 y Fx(the)370 b(homomorphism)h(w)-31 +b(ould)371 b(b)31 b(e)369 b(applied)h(recursiv)-31 b(ely)-92 +b(,)370 b(pro)31 b(ducing)p Black Black 31 45645 a Fs(\()582 +b(\\,)f(\\Lambda)1164 b(\\mathit{X})582 b(<:)g(\\mathit{T})g(.)g(\\,) +1162 b(\\Lambda)i(\\mathit{X'})582 b(<:)g(\\mathit{T'})31 +46974 y(.)g(\\,)1162 b(\\mathit{x})583 b(\\,)1163 b(\\,)581 +b(\))31 48966 y Fx(t)-31 b(yp)31 b(eset)370 b(as)f(follo)-31 +b(ws.)18949 50294 y(\()184 b(\003)p Fo(X)483 b Fn(<)p +Fx(:)308 b Fo(T)147 b Fn(:)184 b Fx(\003)p Fo(X)26311 +49893 y Fl(0)26929 50294 y Fn(<)p Fx(:)308 b Fo(T)29344 +49893 y Fl(0)29655 50294 y Fn(:)184 b Fo(x)503 b Fx(\))31 +52287 y(Where)367 b(there)g(is)h(no)f(user-supplied)g(homomorphism)j +(clause)e(the)f(L)29042 52060 y Fu(A)29530 52287 y Fx(T)30144 +52525 y(E)30760 52287 y(X)h(prett)-31 b(y-prin)g(ting)369 +b(defaults)g(to)f(a)g(sequence)31 53615 y(of)407 b(the)f(individual)i +(items)e(separated)g(b)-31 b(y)406 b(thin)g(spaces)f(\()p +Fs(\\,)p Fx(\),)417 b(with)407 b(reasonable)f(default)h(fon)-31 +b(ts)407 b(and)e(making)j(use)d(of)31 54944 y(the)370 +b Fs(terminals)g Fx(grammar)h(where)e(appropriate.)31 +58707 y Fq(4.2)1495 b(Sp)42 b(ecifying)498 b(L)10994 +58403 y Fm(A)11587 58707 y Fq(T)12377 59002 y(E)13171 +58707 y(X)h(for)f(grammar)j(rules)31 61414 y Fx(Grammar)370 +b(rules)f(can)g(include)h(a)p Mahogany 370 w Fs(tex)p +Black 369 w Fx(hom)g(sp)31 b(ecifying)370 b(ho)-31 b(w)370 +b(all)h(the)e(non)-31 b(terminal)372 b(ro)31 b(ots)369 +b(should)h(b)31 b(e)368 b(t)-31 b(yp)31 b(eset,)371 b(e.g.)p +Black Black 1194 63407 a Fs(type)p RoyalBlue(,)p Black +582 w(t)p RoyalBlue(,)p Black 581 w(s)p RoyalBlue 581 +w(::)p Black 582 w(Typ_)p RoyalBlue 582 w(::=)p Black +RoyalBlue 1162 w({)q({)p Black Mahogany 581 w(tex)p Black +581 w(\\)q(mathsf{)p RoyalBlue 1 w([[)p Black(type)p +RoyalBlue(]])p Black(})p RoyalBlue 582 w(}})p Black RoyalBlue +4681 64735 a(|)p Black 581 w(unit)p RoyalBlue 10461 w(::)p +Black RoyalBlue 1744 w(::)p Black 581 w(unit)p RoyalBlue +4681 66063 a(|)p Black 581 w(type)582 b(*)f(type')p RoyalBlue +5812 w(::)p Black RoyalBlue 1744 w(::)p Black 581 w(pair)p +RoyalBlue 4681 67392 a(|)p Black 581 w(type)h(->)f(type')p +RoyalBlue 5231 w(::)p Black RoyalBlue 1744 w(::)p Black +581 w(fun)31 69384 y Fx(Alternativ)-31 b(ely)-92 b(,)301 +b(the)280 b(individual)h(non)-31 b(terminal)282 b(ro)31 +b(ots)280 b(can)f(ha)-31 b(v)g(e)p Mahogany 280 w Fs(tex)p +Black 280 w Fx(homs)280 b(sp)31 b(ecifying)280 b(ho)-31 +b(w)280 b(they)g(should)g(b)31 b(e)278 b(t)-31 b(yp)31 +b(eset:)p Black Black 1194 71377 a Fs(G)p RoyalBlue 581 +w({{)p Black Mahogany 582 w(tex)p Black 581 w(\\Gamma)p +RoyalBlue 582 w(}})p Black RoyalBlue 582 w(,)p Black +581 w(D)p RoyalBlue 581 w({{)p Black Mahogany 582 w(tex)p +Black 581 w(\\Delta)p RoyalBlue 582 w(}})p Black RoyalBlue +582 w(::)p Black 581 w('G_')p RoyalBlue 582 w(::=)p Black +RoyalBlue 4681 72705 a(|)p Black 581 w(empty)p RoyalBlue +9880 w(::)p Black RoyalBlue 1744 w(::)p Black 581 w(empty)p +RoyalBlue 4681 74033 a(|)p Black 581 w(G)581 b(,)h(x)f(:)g(T)p +RoyalBlue 7555 w(::)p Black RoyalBlue 1744 w(::)p Black +581 w(term)p Black 24533 77841 a Fx(12)p Black eop end +%%Page: 13 13 +TeXDict begin 13 12 bop Black Black 0 -594 a Fx(p)31 +b(ermitting)371 b(the)f(user)e(to)i(write)g Fs(G')p Fx(,)f +Fs(D12)h Fx(etc.)g(in)f(sym)-31 b(b)31 b(olic)371 b(terms,)f(to)g(b)31 +b(e)368 b(t)-31 b(yp)31 b(eset)370 b(as)738 b(\000)38387 +-996 y Fl(0)38698 -594 y Fx(,)369 b(\001)40296 -428 y +Fu(12)41234 -594 y Fx(,)739 b(etc.)0 3169 y Fq(4.3)1495 +b(Using)499 b(the)g(L)10584 2865 y Fm(A)11177 3169 y +Fq(T)11967 3464 y(E)12761 3169 y(X)f(co)42 b(de)0 5877 +y Fx(The)326 b(generated)h(L)7528 5650 y Fu(A)8016 5877 +y Fx(T)8630 6115 y(E)9246 5877 y(X)f(co)31 b(de)326 b(can)g(b)31 +b(e)326 b(used)f(in)i(t)-31 b(w)g(o)327 b(main)h(w)-31 +b(a)g(ys.)479 b(By)326 b(default,)337 b(Ott)327 b(generates)f(a)h +(stand-alone)g(L)47562 5650 y Fu(A)48050 5877 y Fx(T)48664 +6115 y(E)49280 5877 y(X)0 7205 y(\014le,)302 b(with)285 +b(a)g(standard)f(wrapp)31 b(er)284 b(\(including)i(a)f +Fs(\\documentclass)p Fx(,)304 b(v)-61 b(arious)284 b(macro)h +(de\014nitions,)303 b(and)284 b(a)h(main)g(b)31 b(o)g(dy\),)0 +8533 y(that)370 b(giv)-31 b(es)370 b(the)g(complete)h(system)e +(de\014nition.)0 10526 y(The)460 b(default)g(header)g(can)f(b)31 +b(e)459 b(o)-31 b(v)g(erridden)460 b(b)-31 b(y)460 b(writing)1042 +b Fs(embed)582 b({{)f(tex-wrap-pre)i(...)f(}})1040 b +Fx(and)460 b(the)g(default)0 11854 y(fo)31 b(oter)247 +b(b)-31 b(y)246 b(writing)i Fs(embed)582 b({{)g(tex-wrap-post)h(...)e +(}})h Fx(.)451 b(Alternativ)-31 b(ely)-92 b(,)275 b(the)246 +b(program)h(option)h Fs(-tex_wrap)582 b(false)0 13182 +y Fx(with)291 b(the)f Fs(-tex_wrap)583 b(false)290 b +Fx(command-line)j(argumen)-31 b(t,)308 b(one)290 b(can)g(generate)h(a)f +(\014le)g(that)h(can)f(b)31 b(e)290 b(included)h(in)f(other)0 +14511 y(L)293 14284 y Fu(A)781 14511 y Fx(T)1395 14749 +y(E)2011 14511 y(X)363 b(\014les,)h(that)h(just)e(de\014nes)f(macros)i +(to)g(t)-31 b(yp)31 b(eset)364 b(v)-61 b(arious)363 b(parts)g(of)h(the) +f(system)g(\()p Fs(-tex_wrap)583 b(false)364 b Fx(o)-31 +b(v)g(errides)0 15839 y(an)g(y)370 b Fs(tex-wrap-pre/tex-wrap-post)j +Fx(em)-31 b(b)31 b(eds\).)0 17832 y(The)374 b(generated)g(L)7623 +17605 y Fu(A)8111 17832 y Fx(T)8725 18070 y(E)9341 17832 +y(X)f(output)i(is)e(factored)i(in)-31 b(to)375 b(individual)h(L)27319 +17605 y Fu(A)27807 17832 y Fx(T)28421 18070 y(E)29037 +17832 y(X)d(commands:)503 b(for)373 b(the)h(meta)-31 +b(v)-61 b(ariable)376 b(declara-)0 19160 y(tions,)388 +b(eac)-31 b(h)383 b(rule)f(of)i(the)f(syn)-31 b(tax)384 +b(de\014nition,)k(the)383 b(collected)h(syn)-31 b(tax)384 +b(\()p Fs(\\ottgrammar)p Fx(\),)389 b(eac)-31 b(h)383 +b(rule)g(of)g(the)g(inductiv)-31 b(e)0 20488 y(relation)459 +b(de\014nitions,)480 b(the)458 b(collected)g(rules)f(for)g(eac)-31 +b(h)457 b(relation,)481 b(the)457 b(collected)i(rules)d(for)h(eac)-31 +b(h)458 b Fs(defns)f Fx(blo)31 b(c)-31 b(k,)481 b(the)0 +21817 y(union)388 b(of)g(those)f(\()p Fs(\\ottdefns)p +Fx(\))j(and)d(the)g(whole)i(\()p Fs(\\ottall)p Fx(\).)548 +b(This)388 b(mak)-31 b(es)388 b(it)g(p)31 b(ossible)387 +b(to)h(quote)h(individual)g(parts)0 23145 y(of)370 b(the)f +(de\014nition,)i(p)31 b(ossibly)370 b(out-of-order,)h(in)e(a)h(pap)31 +b(er)368 b(or)h(tec)-31 b(hnical)372 b(rep)31 b(ort.)0 +25138 y(If)324 b(one)g(needs)g(to)h(include)g(more)f(than)h(one)f +(system)h(in)f(a)h(single)g(L)27424 24911 y Fu(A)27912 +25138 y Fx(T)28526 25376 y(E)29141 25138 y(X)f(do)31 +b(cumen)-31 b(t,)335 b(the)325 b Fs(ott)f Fx(pre\014x)g(can)g(b)31 +b(e)324 b(replaced)0 26466 y(using)370 b(the)f Fs(-tex_name_prefix)i +Fx(command-line)h(argumen)-31 b(t.)0 28458 y(The)522 +b(generated)g(L)7919 28232 y Fu(A)8407 28458 y Fx(T)9021 +28697 y(E)9637 28458 y(X)g(is)f(factored)i(through)f(some)g(common)i +(st)-31 b(yle)522 b(macros,)561 b(e.g.)523 b(to)f(t)-31 +b(yp)31 b(eset)523 b(a)f(commen)-31 b(t,)562 b(a)0 29787 +y(pro)31 b(duction,)341 b(and)332 b(a)g(grammar.)482 +b(If)331 b(necessary)h(these)f(can)i(b)31 b(e)331 b(rede\014ned)g(in)h +(an)p Mahogany 333 w Fs(embed)p Black 332 w Fx(blo)31 +b(c)-31 b(k)333 b(\(see)f(Section)h(8.1\).)482 b(F)-92 +b(or)0 31115 y(example,)371 b(the)f(\014le)f Fs(tests/squishtex.ott)p +Mahogany Black Mahogany 0 33108 a(embed)p Black RoyalBlue +581 34436 a({{)p Black 582 w(tex-preamble)0 35764 y(\\renewcommand{)r +(\\)p RoyalBlue([[)p Black Mahogany(TEX_NAME_PREFIX)p +Black RoyalBlue(]])p Black(grammartabular})5 b([1])1162 +37093 y({\\)q(begin{minipage})r({\\columnwidth})r(\\begin{)q(tabular})q +({ll})q(#1\\end{)q(tabular})q(\\end{)q(minipage})582 +b(})0 38421 y(\\renewcommand{)r(\\)p RoyalBlue([[)p Black +Mahogany(TEX_NAME_PREFIX)p Black RoyalBlue(]])p Black(rulehead})t([3]) +1162 39749 y({$#1$)1163 b($#2$)582 b(&)f($#3$})0 41078 +y(\\renewcommand{)r(\\)p RoyalBlue([[)p Black Mahogany(TEX_NAME_PREFIX) +p Black RoyalBlue(]])p Black(prodline})t([6])1162 42406 +y({)h(\\quad)f($#1$)h(\\)g($#2$)f(&)h(\\quad)f($#3)h(#4$)1163 +b($#5$)g($#6$})0 43735 y(\\renewcommand{)r(\\)p RoyalBlue([[)p +Black Mahogany(TEX_NAME_PREFIX)p Black RoyalBlue(]])p +Black(interrule})1162 45063 y({\\)q(\\[2.0mm]})p RoyalBlue +581 46391 a(}})p Black 0 48384 a Fx(de\014nes)294 b(a)h(more)g(compact) +i(st)-31 b(yle)295 b(for)g(grammars.)469 b(Note)296 b(that)g(the)p +RoyalBlue 295 w Fs([[)p Black Mahogany(TEX)p 30908 48384 +349 45 v 419 w(NAME)p 33651 48384 V 419 w(PREFIX)p Black +RoyalBlue(]])p Black 296 w Fx(is)f(replaced)g(b)-31 b(y)295 +b(whatev)-31 b(er)0 49712 y(pre\014x)369 b(is)g(in)g(force,)h(so)f(suc) +-31 b(h)369 b(st)-31 b(yle)370 b(\014les)f(can)g(b)31 +b(e)369 b(reused)f(in)i(di\013eren)-31 b(t)369 b(con)-31 +b(texts.)0 51705 y(A)410 b(more)g(sophisticated)h(L)11038 +51478 y Fu(A)11526 51705 y Fx(T)12140 51943 y(E)12756 +51705 y(X)f(pac)-31 b(k)-61 b(age)411 b Fs(ottlayout.sty)p +Fx(,)422 b(pro)-31 b(viding)411 b(\014ne)f(con)-31 b(trol)411 +b(of)f(ho)-31 b(w)411 b(inference)f(rules)f(and)0 53033 +y(grammars)366 b(should)g(b)31 b(e)365 b(t)-31 b(yp)31 +b(eset,)367 b(is)e(con)-31 b(tained)367 b(in)f(the)f +Fs(tex)h Fx(directory)g(of)g(the)f(distribution.)493 +b(It)366 b(is)f(describ)31 b(ed)364 b(in)i(the)0 54361 +y(man)-31 b(ual)371 b(therein.)0 58686 y FC(5)1793 b(Generating)598 +b(pro)50 b(of)598 b(assistan)-50 b(t)600 b(de\014nitions)0 +61775 y Fx(T)-92 b(o)543 b(generate)f(pro)31 b(of)543 +b(assistan)-31 b(t)543 b(de\014nitions,)587 b(for)542 +b(Co)31 b(q,)587 b(Isab)31 b(elle,)586 b(and)542 b(HOL,)h(the)f +(minimal)j(Ott)e(source)e(\014le)i(of)0 63103 y(Section)414 +b(3/Figure)g(1)g(m)-31 b(ust)413 b(b)31 b(e)413 b(extended)h(with)g(a)f +(mo)31 b(dest)414 b(amoun)-31 b(t)415 b(of)f(additional)i(data,)426 +b(as)413 b(sho)-31 b(wn)414 b(in)f(Figure)g(4.)0 64432 +y(Executing)p Black Black 1743 66424 a Fs(bin/ott)1164 +b(-i)581 b(tests/test10.4.ott)1165 b(-o)582 b(out.v)1163 +b(-o)581 b(out.thy)1163 b(-o)582 b(outScript.sml)0 68417 +y Fx(generates)424 b(Co)31 b(q)424 b Fs(out.v)p Fx(,)438 +b(Isab)31 b(elle)424 b Fs(out.thy)p Fx(,)438 b(and)423 +b(HOL)h Fs(outScript.sml)p Fx(,)439 b(sho)-31 b(wn)424 +b(in)f(Figures)g(5,)438 b(6,)g(and)423 b(7.)656 b(The)0 +69745 y(additional)405 b(data)e(can)f(b)31 b(e)401 b(com)-31 +b(bined)403 b(with)g(the)f(annotations)i(for)e(L)28976 +69518 y Fu(A)29464 69745 y Fx(T)30078 69983 y(E)30694 +69745 y(X)f(of)h(the)g(previous)g(section,)411 b(but)402 +b(those)g(are)0 71073 y(omitted)407 b(here.)598 b(W)-92 +b(e)403 b(add)i(four)g(things.)599 b(First,)413 b(w)-31 +b(e)405 b(sp)31 b(ecify)405 b(pro)31 b(of)405 b(assistan)-31 +b(t)406 b(t)-31 b(yp)31 b(es)404 b(to)i(represen)-31 +b(t)403 b(ob)61 b(ject-language)0 72402 y(v)-61 b(ariables)370 +b(|)f(in)g(this)h(example,)h(c)-31 b(ho)31 b(osing)370 +b(the)g Fs(string)g Fx(t)-31 b(yp)31 b(e)369 b(of)h(Isab)31 +b(elle)370 b(and)f(HOL,)h(and)f(the)g Fs(nat)h Fx(t)-31 +b(yp)31 b(e)369 b(for)h(Co)31 b(q:)p Black 24502 77841 +a(13)p Black eop end +%%Page: 14 14 +TeXDict begin 14 13 bop Black Black Black 31 12110 50863 +45 v 31 58519 45 46410 v Black Black 408 13134 a Fw(\045)523 +b(minimal)10461 b(+)523 b(binding)g(+)g(subst)g(+)g(coq/hol/isa)p +Mahogany 408 14352 a(metavar)p Black 523 w(termvar)p +RoyalBlue(,)p Black 523 w(x)p RoyalBlue 523 w(::=)p Black +RoyalBlue 408 15569 a({{)p Black Mahogany 523 w(isa)p +Black 523 w(string)p RoyalBlue(}})p Black RoyalBlue 523 +w({{)p Black Mahogany 523 w(coq)p Black 524 w(nat)p RoyalBlue(}})p +Black RoyalBlue 523 w({{)p Black Mahogany 523 w(hol)p +Black 523 w(string)p RoyalBlue(}})p Black RoyalBlue 523 +w({{)p Black Mahogany 523 w(coq-equality)p Black RoyalBlue +524 w(}})p Black Mahogany 408 18005 a(grammar)p Black +408 19222 a(t)p RoyalBlue 523 w(::)p Black 523 w('t_')p +RoyalBlue 523 w(::=)p Black RoyalBlue 1454 20440 a(|)p +Black 523 w(x)p RoyalBlue 6276 w(::)p Black RoyalBlue +1047 w(::)p Black 523 w(Var)p RoyalBlue 1454 21658 a(|)p +Black 523 w(\\)g(x)g(.)g(t)p RoyalBlue 3138 w(::)p Black +RoyalBlue 1047 w(::)p Black 523 w(Lam)p RoyalBlue 2615 +w(\(+)p Black Mahogany 523 w(bind)p Black 523 w(x)p Mahogany +523 w(in)p Black 523 w(t)p RoyalBlue 523 w(+\))p Black +RoyalBlue 1454 22875 a(|)p Black 523 w(t)g(t')p RoyalBlue +4707 w(::)p Black RoyalBlue 1047 w(::)p Black 523 w(App)p +RoyalBlue 1454 24093 a(|)p Black 523 w(\()g(t)g(\))p +RoyalBlue 4184 w(::)p Black Mahogany 524 w(S)p Black +RoyalBlue(::)p Black 523 w(Paren)p RoyalBlue 1569 w({{)p +Black Mahogany 523 w(icho)p Black RoyalBlue 523 w([[)p +Black(t)p RoyalBlue(]])p Black RoyalBlue 1046 w(}})p +Black RoyalBlue 1454 25311 a(|)p Black 523 w({)g(t)g(/)g(x)g(})g(t')p +RoyalBlue 523 w(::)p Black Mahogany 524 w(M)p Black RoyalBlue(::)p +Black 523 w(Tsub)p RoyalBlue 2092 w({{)p Black Mahogany +523 w(icho)p Black 523 w(\(tsubst_t)p RoyalBlue 523 w([[)p +Black(t)p RoyalBlue(]])p Black RoyalBlue 524 w([[)p Black(x)p +RoyalBlue(]])p Black RoyalBlue 523 w([[)p Black(t')p +RoyalBlue(]])p Black(\))p RoyalBlue(}})p Black 408 27746 +a(v)p RoyalBlue 523 w(::)p Black 523 w('v_')p RoyalBlue +523 w(::=)p Black RoyalBlue 1454 28964 a(|)p Black 523 +w(\\)g(x)g(.)g(t)p RoyalBlue 3138 w(::)p Black RoyalBlue +1047 w(::)p Black 523 w(Lam)p Mahogany 408 31399 a(subrules)p +Black 1454 32617 a(v)p RoyalBlue 523 w(<::)p Black 523 +w(t)p Mahogany 408 35052 a(substitutions)p Black Mahogany +1454 36270 a(single)p Black 523 w(t)g(x)p RoyalBlue 523 +w(::)p Black 523 w(tsubst)p Mahogany 408 38705 a(defns)p +Black 408 39923 a(Jop)p RoyalBlue 523 w(::)p Black 523 +w('')p RoyalBlue 523 w(::=)p Black Mahogany 931 42358 +a(defn)p Black 931 43575 a(t1)g(-->)g(t2)p RoyalBlue +523 w(::)p Black RoyalBlue 523 w(::)p Black(reduce)p +RoyalBlue(::)p Black('')p Mahogany 1047 w(by)p Black +RoyalBlue 2500 47228 a(--------------------------)p Black +1047 w(::)g(ax_app)2500 48446 y(\(\\x.t12\))g(v2)g(-->)1047 +b({v2/x}t12)2500 50881 y(t1)523 b(-->)g(t1')p RoyalBlue +2500 52099 a(--------------)p Black 523 w(::)h(ctx_app_fun)2500 +53317 y(t1)f(t)g(-->)g(t1')g(t)2500 55752 y(t1)g(-->)g(t1')p +RoyalBlue 2500 56970 a(--------------)p Black 523 w(::)h(ctx_app_arg) +2500 58187 y(v)f(t1)g(-->)g(v)g(t1')p 50850 58519 V 31 +58563 50863 45 v Black 17176 60538 a Fx(Figure)370 b(4:)493 +b(Source:)f Fs(test10.4.ott)p Black Black Black 24533 +77841 a Fx(14)p Black eop end +%%Page: 15 15 +TeXDict begin 15 14 bop Black Black Black Black Mahogany +1162 -594 a Fs(metavar)p Black 582 w(termvar)p RoyalBlue(,)p +Black 583 w(x)p RoyalBlue 581 w(::=)p Black RoyalBlue +1162 735 a({{)p Black Mahogany 582 w(isa)p Black 581 +w(string)p RoyalBlue(})q(})p Black RoyalBlue 582 w({{)p +Black Mahogany 581 w(coq)p Black 582 w(nat)p RoyalBlue(}})p +Black RoyalBlue 582 w({{)p Black Mahogany 581 w(hol)p +Black 582 w(string)p RoyalBlue(})q(})p Black RoyalBlue +581 w({{)p Black Mahogany 581 w(coq-equality)p Black +RoyalBlue 583 w(})q(})p Black 0 2727 a Fx(F)-92 b(or)465 +b(Co)31 b(q)466 b(output,)491 b(one)465 b(can)h(sp)31 +b(ecify)465 b Fs({{)582 b(coq-equality)467 b Fo(pr)-57 +b(o)g(of-script)570 b Fs(}})465 b Fx(to)h(build)h(a)e(decidable)i +(equalit)-31 b(y)467 b(o)-31 b(v)g(er)0 4055 y(the)386 +b(Co)31 b(q)387 b(represen)-31 b(tation)387 b(t)-31 b(yp)31 +b(e)386 b(using)g(the)g(pro)31 b(of)387 b Fo(pr)-57 b(o)g(of-script)p +Fx(.)542 b(If)386 b(the)g(script)g(is)f(omitted,)393 +b(as)386 b(in)g(this)g(example,)392 b(it)0 5384 y(defaults)370 +b(to)p Black Black 0 7376 a Fs(Proof.)1162 8705 y(decide)582 +b(equality;)h(auto)f(with)f(ott_coq_equality)j(arith.)0 +10033 y(Defined.)0 12026 y Fx(where)528 b(the)h Fs(ott_coq_equality)h +Fx(database)g(con)-31 b(tains)530 b(the)f(decidable)g(equalities)i(of)e +(the)f(represen)-31 b(tation)530 b(t)-31 b(yp)31 b(es)0 +13354 y(de\014ned)277 b(in)g(the)g(source.)461 b(It)277 +b(is)g(p)31 b(ossible)277 b(to)g(suppress)e(t)-31 b(yp)31 +b(e)278 b(generation)g(for)f(sp)31 b(eci\014c)277 b(meta)-31 +b(v)-61 b(ariables)279 b(or)d(non)-31 b(terminals,)0 +14682 y(b)g(y)386 b(adding)h(the)f(declaration)i Fs({{)582 +b(phantom)g(}})p Fx(.)543 b(This)386 b(is)g(useful)g(in)g(some)g +(cases,)k(for)c(instance)h(to)g(a)-31 b(v)g(oid)387 b(duplicate)0 +16011 y(de\014nitions)360 b(of)e(t)-31 b(yp)31 b(es)359 +b(already)g(de\014ned)f(in)g(an)h(imp)31 b(orted)359 +b(library)-92 b(.)490 b(An)-31 b(y)358 b(t)-31 b(yp)31 +b(e)359 b(homs)g(are)f(tak)-31 b(en)359 b(in)-31 b(to)360 +b(accoun)-31 b(t)360 b(when)0 17339 y(the)369 b(meta)-31 +b(v)-61 b(ariable)372 b(or)d(non)-31 b(terminal)372 b(ro)31 +b(ot)370 b(is)f(output)h(as)f(a)h(t)-31 b(yp)31 b(e.)0 +19331 y(Second,)346 b(w)-31 b(e)340 b(sp)31 b(ecify)340 +b(what)h(the)f(binding)h(is)f(in)g(the)g(ob)61 b(ject)341 +b(language,)348 b(with)341 b(the)p RoyalBlue 340 w Fs(\(+)p +Black Mahogany 581 w(bind)p Black 582 w(x)p Mahogany +581 w(in)p Black 582 w(t)p RoyalBlue 581 w(+\))p Black +340 w Fx(annotation)0 20660 y(on)369 b(the)h Fs(Lam)f +Fx(pro)31 b(duction:)p Black Black RoyalBlue 1162 22652 +a Fs(|)p Black 582 w(\\)581 b(x)g(.)g(t)p RoyalBlue 3488 +w(::)p Black RoyalBlue 1162 w(::)p Black 582 w(Lam)p +RoyalBlue 2906 w(\(+)p Black Mahogany 581 w(bind)p Black +582 w(x)p Mahogany 581 w(in)p Black 582 w(t)p RoyalBlue +581 w(+\))p Black 0 24645 a Fx(Section)370 b(9)g(describ)31 +b(es)368 b(the)h(full)h(language)i(of)d(binding)i(sp)31 +b(eci\014cations.)0 26637 y(Third,)370 b(w)-31 b(e)370 +b(add)f(a)h(blo)31 b(c)-31 b(k)p Black Black Mahogany +1162 28630 a Fs(substitutions)p Black Mahogany 2325 29958 +a(single)p Black 582 w(t)581 b(x)p RoyalBlue 581 w(::)p +Black 582 w(tsubst)0 31951 y Fx(to)260 b(cause)f(Ott)g(to)h(generate)g +(Co)31 b(q/Isab)g(elle/HOL)261 b(de\014nitions)g(of)e(a)g(substitution) +i(function,)283 b(with)261 b(name)e(ro)31 b(ot)260 b +Fs(tsubst)p Fx(,)0 33279 y(replacing)450 b(meta)-31 b(v)-61 +b(ariables)452 b Fs(x)d Fx(b)-31 b(y)449 b(terms)g Fs(t)p +Fx(.)732 b(This)450 b(is)f(for)g(single)h(substitutions;)491 +b(m)-31 b(ultiple)451 b(substitution)g(functions)0 34608 +y(\(taking)371 b(lists)d(of)h(substitutand/substitutee)i(pairs\))d(can) +h(also)g(b)31 b(e)367 b(generated)i(with)g(the)g(k)-31 +b(eyw)g(ord)p Mahogany 369 w Fs(multiple)p Black Fx(.)493 +b(Sub-)0 35936 y(stitution)370 b(functions)e(are)g(generated)g(for)f +(all)i(rules)e(of)h(the)g(grammar)h(for)e(whic)-31 b(h)369 +b(they)f(migh)-31 b(t)369 b(b)31 b(e)367 b(required)g(|)g(here,)0 +37264 y(just)i(o)-31 b(v)g(er)370 b Fs(t)p Fx(,)g(with)g(a)g(function)g +(named)g Fs(tsubst_t)p Fx(.)0 39257 y(Finally)-92 b(,)371 +b(w)-31 b(e)370 b(sp)31 b(ecify)369 b(translations)i(for)e(the)h +(metapro)31 b(ductions:)p Black Black RoyalBlue 1162 +41249 a Fs(|)p Black 582 w(\()581 b(t)g(\))p RoyalBlue +4650 w(::)p Black Mahogany 581 w(S)p Black RoyalBlue(::)p +Black 582 w(Paren)p RoyalBlue 1744 w({{)p Black Mahogany +581 w(icho)p Black RoyalBlue 582 w([[)p Black(t)p RoyalBlue(]])p +Black RoyalBlue 1163 w(}})p Black RoyalBlue 1162 42578 +a(|)p Black 582 w({)g(t)g(/)g(x)h(})f(t')p RoyalBlue +582 w(::)p Black Mahogany 581 w(M)p Black RoyalBlue(::)p +Black 582 w(Tsub)p RoyalBlue 2325 w({{)p Black Mahogany +581 w(icho)p Black 582 w(\(tsubst_t)p RoyalBlue 582 w([[)p +Black(t)p RoyalBlue(]])p Black RoyalBlue 582 w([[)p Black(x)p +RoyalBlue(]])p Black RoyalBlue 582 w([[)p Black(t')p +RoyalBlue(]])p Black(\))p RoyalBlue(})q(})p Black 0 44570 +a Fx(These)409 b(sp)31 b(ecify)409 b(that)h Fs(\(t\))g +Fx(should)f(b)31 b(e)408 b(translated)j(in)-31 b(to)410 +b(just)g(the)f(translation)i(of)496 b Fs(t)p Fx(,)419 +b(whereas)409 b Fs({t/x})q(t')g Fx(should)h(b)31 b(e)0 +45898 y(translated)495 b(in)-31 b(to)496 b(the)e(pro)31 +b(of-assistan)-31 b(t)496 b(application)h(of)581 b Fs(tsubst)p +28191 45898 349 45 v 419 w(t)494 b Fx(to)h(the)f(translations)i(of)581 +b Fs(t)p Fx(,)526 b Fs(x)p Fx(,)f(and)495 b Fs(t')p Fx(.)867 +b(The)0 47227 y(\(admittedly)503 b(terse\))p Mahogany +499 w Fs(icho)p Black 500 w Fx(sp)31 b(eci\014es)498 +b(that)j(these)e(translations)i(should)f(b)31 b(e)498 +b(done)i(uniformly)h(for)e(Isab)31 b(elle,)533 b(Co)31 +b(q,)0 48555 y(HOL,)387 b(and)h(OCaml)g(output.)548 b(One)386 +b(can)i(also)f(sp)31 b(ecify)388 b(just)f(one)g(of)g(these,)392 +b(writing)p RoyalBlue 404 w Fs({)q({)p Black Mahogany +581 w(coq)p Black 581 w Fn(:)184 b(:)g(:)p RoyalBlue +3 w Fs(}})p Black Fx(,)p RoyalBlue 392 w Fs({{)p Black +Mahogany 581 w(hol)p Black 582 w Fn(:)g(:)g(:)p RoyalBlue +2 w Fs(})q(})p Black Fx(,)p RoyalBlue 0 49884 a Fs({{)p +Black Mahogany 581 w(isa)p Black 582 w Fn(:)g(:)g(:)p +RoyalBlue 2 w Fs(})q(})p Black Fx(,)344 b(or)p RoyalBlue +338 w Fs({{)p Black Mahogany 581 w(ocaml)p Black 582 +w Fn(:)184 b(:)g(:)p RoyalBlue 3 w Fs(}})p Black Fx(,)345 +b(or)337 b(include)i(sev)-31 b(eral,)345 b(with)339 b(di\013eren)-31 +b(t)338 b(translations)i(for)e(eac)-31 b(h.)483 b(There)337 +b(are)h(also)0 51212 y(abbreviated)479 b(forms)p Mahogany +478 w Fs(ich)p Black Fx(,)p Mahogany 506 w Fs(ic)p Black +Fx(,)p Mahogany 505 w Fs(ch)p Black Fx(,)505 b(and)p +Mahogany 478 w Fs(ih)p Black Fx(.)818 b(The)478 b(b)31 +b(o)g(dy)478 b(of)g(a)g(pro)31 b(of)478 b(assistan)-31 +b(t)479 b(hom)g(should)f(normally)h(include)0 52540 y(outer)389 +b(paren)-31 b(theses,)395 b(as)389 b(in)g(the)h Fs(Tsub)f +Fx(hom)h(ab)31 b(o)-31 b(v)g(e,)396 b(so)389 b(that)h(it)g(is)f(parsed) +g(correctly)h(b)-31 b(y)389 b(the)g(pro)31 b(of)390 b(assistan)-31 +b(t)390 b(in)g(all)0 53869 y(con)-31 b(texts.)0 57631 +y Fq(5.1)1495 b(Pro)42 b(of)498 b(assistan)-42 b(t)501 +b(co)42 b(de)498 b(for)h(grammar)h(rules)0 60339 y Fx(The)458 +b(normal)h(b)31 b(eha)-31 b(viour)458 b(is)g(to)g(generate)g(a)g(free)f +(pro)31 b(of)458 b(assistan)-31 b(t)459 b(t)-31 b(yp)31 +b(e)458 b(for)g(eac)-31 b(h)458 b(\(non-subrule,)480 +b(non-phan)-31 b(tom\))0 61667 y(grammar)290 b(rule.)466 +b(F)-92 b(or)288 b(example,)307 b(the)290 b(Co)31 b(q)289 +b(compilation)k(for)c Fs(t)g Fx(here)g(generates)g(a)g(free)g(t)-31 +b(yp)31 b(e)289 b(with)i(three)e(constructors:)p Black +Black 1162 63660 a Fs(Inductive)583 b(term)f(:)f(Set)g(:=)1743 +64988 y(|)h(t_var)g(\(x:var\))1743 66317 y(|)g(t_lam)g(\(x:var\))g +(\(t:term\))1743 67645 y(|)g(t_app)g(\(t:term\))g(\(t':term\).)0 +69637 y Fx(\(note)370 b(that)h(the)e(metapro)31 b(ductions)371 +b(do)f(not)g(giv)-31 b(e)370 b(rise)f(to)h(constructors\).)0 +71630 y(Remark:)493 b(prior)369 b(to)h(v)-31 b(ersion)370 +b(0.20.2,)i(the)d(free)g(t)-31 b(yp)31 b(e)370 b(generated)g(for)f(Co) +31 b(q)370 b(w)-31 b(as)p Black 24502 77841 a(15)p Black +eop end +%%Page: 16 16 +TeXDict begin 16 15 bop Black Black Black 31 -1290 50863 +45 v 31 71908 45 73198 v Black Black 408 -266 a Fw(\(*)523 +b(generated)g(by)g(Ott)h(0.28)f(from:)g(../tests/test10.ott)h +(../tests/non_super_tabular.ott)g(*\))408 2169 y(Require)f(Import)g +(Arith.)408 3387 y(Require)g(Import)g(Bool.)408 4604 +y(Require)g(Import)g(List.)408 8257 y(Definition)g(var)g(:=)g(nat.)h +(\(*r)f(term)g(variable)g(*\))408 9475 y(Lemma)g(eq_var:)g(forall)h +(\(x)f(y)g(:)g(var\),)g({x)g(=)g(y})g(+)g({x)g(<>)g(y}.)408 +10693 y(Proof.)1454 11910 y(decide)g(equality;)g(auto)h(with)f +(ott_coq_equality)g(arith.)408 13128 y(Defined.)408 14346 +y(Hint)g(Resolve)g(eq_var)h(:)f(ott_coq_equality.)408 +16781 y(Inductive)g(term)g(:)g(Set)h(:=)1046 b(\(*r)523 +b(term)g(*\))931 17999 y(|)g(t_var)g(\(x:var\))g(\(*r)h(variable)f(*\)) +931 19216 y(|)g(t_lam)g(\(x:var\))g(\(t:term\))h(\(*r)f(lambda)g(*\)) +931 20434 y(|)g(t_app)g(\(t:term\))g(\(t':term\))h(\(*r)f(app)g(*\).) +408 22869 y(\(**)g(subrules)g(*\))408 24087 y(Definition)g +(is_val_of_term)h(\(t5:term\))f(:)g(Prop)g(:=)1454 25304 +y(match)g(t5)g(with)1454 26522 y(|)g(\(t_var)g(x\))g(=>)g(False)1454 +27740 y(|)g(\(t_lam)g(x)g(t\))g(=>)g(\(True\))1454 28957 +y(|)g(\(t_app)g(t)g(t'\))g(=>)h(False)408 30175 y(end.)408 +32610 y(\(**)f(library)g(functions)h(*\))408 33828 y(Fixpoint)f +(list_mem)g(A)h(\(eq:forall)f(a)g(b:A,{a=b}+{a<>b}\))h(\(x:A\))f +(\(l:list)g(A\))g({struct)g(l})g(:)g(bool)h(:=)1454 35046 +y(match)f(l)g(with)1454 36263 y(|)g(nil)g(=>)g(false)1454 +37481 y(|)g(cons)g(h)g(t)g(=>)g(if)g(eq)h(h)f(x)g(then)g(true)g(else)g +(list_mem)g(A)h(eq)f(x)g(t)408 38699 y(end.)408 39916 +y(Implicit)g(Arguments)g(list_mem.)408 43569 y(\(**)g(substitutions)g +(*\))408 44787 y(Fixpoint)g(tsubst_term)h(\(t5:term\))f(\(x5:var\))g +(\(t_6:term\))h({struct)f(t_6})g(:)g(term)g(:=)1454 46005 +y(match)g(t_6)g(with)1454 47222 y(|)g(\(t_var)g(x\))g(=>)g(\(if)h +(eq_var)f(x)g(x5)g(then)g(t5)g(else)g(\(t_var)h(x\)\))1454 +48440 y(|)f(\(t_lam)g(x)g(t\))g(=>)g(t_lam)h(x)f(\(if)g(list_mem)g +(eq_var)g(x5)g(\(cons)h(x)f(nil\))g(then)g(t)g(else)g(\(tsubst_term)h +(t5)f(x5)g(t\)\))1454 49658 y(|)g(\(t_app)g(t)g(t'\))g(=>)h(t_app)f +(\(tsubst_term)g(t5)g(x5)g(t\))g(\(tsubst_term)h(t5)f(x5)g(t'\))408 +50875 y(end.)408 53311 y(\(**)g(definitions)g(*\))408 +55746 y(\(*)g(defns)g(Jop)g(*\))408 56964 y(Inductive)g(reduce)g(:)g +(term)h(->)f(term)g(->)g(Prop)g(:=)2092 b(\(*)523 b(defn)h(reduce)f +(*\))931 58181 y(|)g(ax_app)g(:)g(forall)g(\(x:var\))h(\(t1)f +(v2:term\),)3023 59399 y(is_val_of_term)h(v2)f(->)3023 +60617 y(reduce)g(\(t_app)1047 b(\(t_lam)523 b(x)g(t1\))1046 +b(v2\))g(\(tsubst_term)h(v2)1569 b(x)g(t1)523 b(\))931 +61834 y(|)g(ctx_app_fun)g(:)g(forall)h(\(t1)f(t)g(t1':term\),)3023 +63052 y(reduce)g(t1)g(t1')g(->)3023 64269 y(reduce)g(\(t_app)g(t1)h +(t\))f(\(t_app)g(t1')g(t\))931 65487 y(|)g(ctx_app_arg)g(:)g(forall)h +(\(v)f(t1)g(t1':term\),)3023 66705 y(is_val_of_term)h(v)f(->)3023 +67922 y(reduce)g(t1)g(t1')g(->)3023 69140 y(reduce)g(\(t_app)g(v)h +(t1\))f(\(t_app)g(v)g(t1'\).)p 50850 71908 V 31 71952 +50863 45 v Black 16521 73938 a Fx(Figure)369 b(5:)493 +b(Generated)369 b(Co)31 b(q:)p Fs(test10.v)p Black Black +Black 24533 77841 a Fx(16)p Black eop end +%%Page: 17 17 +TeXDict begin 17 16 bop Black Black Black 0 5392 50863 +45 v 0 65195 45 59804 v Black Black 376 6415 a Fw(\(*)523 +b(generated)h(by)f(Ott)g(0.28)g(from:)g(../tests/test10.ott)h +(../tests/non_super_tabular.ott)g(*\))376 7633 y(theory)g(test10)376 +8851 y(imports)g(Main)376 10068 y(begin)376 12504 y(type_synonym)g +("var")f(=)g("string")g(--)g({*)h(term)f(variable)g(*})376 +13721 y(datatype)h("term")f(=)1046 b(--)523 b({*)g(term)g(*})1945 +14939 y(t_var)h("var")1569 b(--)523 b({*)g(variable)g(*})899 +16157 y(|)g(t_lam)h("var")f("term")1569 b(--)523 b({*)g(lambda)h(*})899 +17374 y(|)f(t_app)h("term")f("term")1569 b(--)523 b({*)g(app)h(*})376 +21027 y(\(**)f(subrules)h(*\))376 22245 y(primrec)376 +23463 y(is_val_of_term)g(::)f("term)g(=>)g(bool")376 +24680 y(where)376 25898 y("is_val_of_term)h(\(t_var)f(x\))g(=)g +(\(False\)")376 27116 y(|)g("is_val_of_term)h(\(t_lam)f(x)g(t\))g(=)g +(\(\(True\)\)")376 28333 y(|)g("is_val_of_term)h(\(t_app)f(t)g(t'\))g +(=)g(\(False\)")376 31986 y(\(**)g(substitutions)h(*\))376 +33204 y(primrec)376 34422 y(tsubst_term)g(::)f("term)g(=>)g(var)g(=>)g +(term)h(=>)f(term")376 35639 y(where)376 36857 y("tsubst_term)h(t5)f +(x5)g(\(t_var)g(x\))g(=)g(\(\(if)h(x=x5)f(then)g(t5)g(else)g(\(t_var)g +(x\)\)\)")376 38075 y(|)g("tsubst_term)h(t5)f(x5)g(\(t_lam)g(x)g(t\))g +(=)h(\(t_lam)f(x)g(\(if)g(x5)g(:)g(set)g([x])g(then)h(t)f(else)g +(\(tsubst_term)g(t5)g(x5)g(t\)\)\)")376 39292 y(|)g("tsubst_term)h(t5)f +(x5)g(\(t_app)g(t)g(t'\))g(=)h(\(t_app)f(\(tsubst_term)g(t5)g(x5)g(t\)) +g(\(tsubst_term)h(t5)f(x5)g(t'\)\)")376 41727 y(\(**)g(definitions)h +(*\))376 42945 y(\(*)f(defns)h(Jop)f(*\))376 44163 y(inductive)h +(reduce)f(::)g("term)g(\\)h(term)f(\\)g(bool") +376 45380 y(where)376 46598 y(\(*)g(defn)h(reduce)f(*\))376 +49033 y(ax_appI:)h("\\is_val_of_term)f(v2\\)h +(\\)376 50251 y(reduce)g(\(\(t_app)1046 +b(\(t_lam)523 b(x)g(t1\))1046 b(v2\)\))524 b(\()f(\(tsubst_term)1046 +b(v2)1569 b(x)g(t1)523 b(\))g(\)")376 52686 y(|)g(ctx_app_funI:)h +("\\reduce)f(\(t1\))h(\(t1'\)\\)f(\\) +376 53904 y(reduce)h(\(\(t_app)f(t1)g(t\)\))g(\(\(t_app)g(t1')g(t\)\)") +376 56339 y(|)g(ctx_app_argI:)h("\\is_val_of_term)g(v)f(;)376 +57557 y(reduce)h(\(t1\))f(\(t1'\)\\)g(\\)376 +58775 y(reduce)h(\(\(t_app)f(v)g(t1\)\))g(\(\(t_app)g(v)g(t1'\)\)")376 +61210 y(end)p 50819 65195 V 0 65239 50863 45 v Black +15075 67226 a Fx(Figure)369 b(6:)493 b(Generated)369 +b(Isab)31 b(elle:)p Fs(test10.thy)p Black Black Black +24502 77841 a Fx(17)p Black eop end +%%Page: 18 18 +TeXDict begin 18 17 bop Black Black Black 31 -1657 50863 +45 v 31 75194 45 76851 v Black Black 408 -633 a Fw(\(*)523 +b(generated)g(by)g(Ott)h(0.28)f(from:)g(../tests/test10.ott)h +(../tests/non_super_tabular.ott)g(*\))408 585 y(\(*)f(to)g(compile:)g +(Holmake)h(test10Theory.uo)1569 b(*\))408 1803 y(\(*)523 +b(for)g(interactive)g(use:)1454 3020 y(app)g(load)g +(["pred_setTheory","finite_mapTheory","stringTheory","containerTheor)p +(y","ottLib"];)408 4238 y(*\))408 6673 y(open)g(HolKernel)g(boolLib)h +(Parse)f(bossLib)g(ottLib;)408 7891 y(infix)g(THEN)g(THENC)g(|->)h(##)f +(;)408 9109 y(local)g(open)g(arithmeticTheory)h(stringTheory)f +(containerTheory)h(pred_setTheory)f(listTheory)1454 10326 +y(finite_mapTheory)g(in)h(end;)408 12762 y(val)f(_)g(=)g(new_theory)g +("test10";)408 16415 y(val)g(_)g(=)g(type_abbrev\("var",)h +(``:string``\);)f(\(*)g(term)g(variable)h(*\))408 17632 +y(val)f(_)g(=)g(Hol_datatype)h(`)408 18850 y(term)f(=)1046 +b(\(*)523 b(term)g(*\))1977 20068 y(t_var)g(of)g(var)g(\(*)g(variable)h +(*\))931 21285 y(|)f(t_lam)g(of)g(var)g(=>)g(term)h(\(*)f(lambda)g(*\)) +931 22503 y(|)g(t_app)g(of)g(term)g(=>)h(term)f(\(*)g(app)g(*\))408 +23721 y(`;)408 26156 y(\(**)g(subrules)g(*\))408 27374 +y(val)g(_)g(=)g(ottDefine)g("is_val_of_term")h(`)2500 +28591 y(\()f(is_val_of_term)h(\(t_var)f(x\))g(=)g(F\))408 +29809 y(/\\)1046 b(\()523 b(is_val_of_term)h(\(t_lam)f(x)g(t\))g(=)g +(\(T\)\))408 31026 y(/\\)1046 b(\()523 b(is_val_of_term)h(\(t_app)f(t)g +(t'\))g(=)g(F\))408 32244 y(`;)408 34679 y(\(**)g(substitutions)g(*\)) +408 35897 y(val)g(_)g(=)g(ottDefine)g("tsubst_term")h(`)2500 +37115 y(\()f(tsubst_term)g(t5)h(x5)f(\(t_var)g(x\))g(=)g(\(if)g(x=x5)g +(then)g(t5)h(else)f(\(t_var)g(x\)\)\))408 38332 y(/\\)1046 +b(\()523 b(tsubst_term)g(t5)h(x5)f(\(t_lam)g(x)g(t\))g(=)g(t_lam)g(x)g +(\(if)g(MEM)h(x5)f([x])g(then)g(t)g(else)g(\(tsubst_term)h(t5)f(x5)g +(t\)\)\))408 39550 y(/\\)1046 b(\()523 b(tsubst_term)g(t5)h(x5)f +(\(t_app)g(t)g(t'\))g(=)g(t_app)g(\(tsubst_term)h(t5)f(x5)g(t\))g +(\(tsubst_term)g(t5)h(x5)f(t'\)\))408 40768 y(`;)408 +41985 y(\(**)g(definitions)g(*\))408 43203 y(\(*)g(defns)g(Jop)g(*\)) +408 45638 y(val)g(\(Jop_rules,)g(Jop_ind,)h(Jop_cases\))f(=)g +(Hol_reln`)408 46856 y(\(*)g(defn)g(reduce)g(*\))408 +49291 y(\()g(\(*)g(ax_app)g(*\))g(!)g(\(x:var\))h(\(t1:term\))f +(\(v2:term\))g(.)g(\(clause_name)h("ax_app"\))f(/\\)408 +50509 y(\(\(is_val_of_term)g(v2\)\))931 51727 y(==>)408 +52944 y(\()g(\()g(reduce)g(\(t_app)1046 b(\(t_lam)524 +b(x)f(t1\))1046 b(v2\))g(\(tsubst_term)h(v2)1569 b(x)g(t1)523 +b(\))1046 b(\)\)\))408 55380 y(/\\)523 b(\()g(\(*)g(ctx_app_fun)h(*\))f +(!)g(\(t1:term\))g(\(t:term\))g(\(t1':term\))h(.)f(\(clause_name)g +("ctx_app_fun"\))h(/\\)408 56597 y(\(\()f(\()g(reduce)g(t1)g(t1')g +(\)\)\))931 57815 y(==>)408 59033 y(\()g(\()g(reduce)g(\(t_app)g(t1)h +(t\))f(\(t_app)g(t1')g(t\))g(\)\)\))408 61468 y(/\\)g(\()g(\(*)g +(ctx_app_arg)h(*\))f(!)g(\(v:term\))g(\(t1:term\))g(\(t1':term\))h(.)f +(\(clause_name)g("ctx_app_arg"\))h(/\\)408 62686 y(\(\(is_val_of_term)f +(v\))h(/\\)408 63903 y(\()f(\()g(reduce)g(t1)g(t1')g(\)\)\))931 +65121 y(==>)408 66339 y(\()g(\()g(reduce)g(\(t_app)g(v)h(t1\))f +(\(t_app)g(v)g(t1'\))g(\)\)\))408 68774 y(`;)408 71209 +y(val)g(_)g(=)g(export_theory)h(\(\);)p 50850 75194 V +31 75238 50863 45 v Black 13989 77225 a Fx(Figure)369 +b(7:)493 b(Generated)369 b(HOL:)p Fs(test10Script.sml)p +Black Black Black 24533 77841 a Fx(18)p Black eop end +%%Page: 19 19 +TeXDict begin 19 18 bop Black Black Black Black 1162 +-594 a Fs(Inductive)583 b(term)f(:)f(Set)g(:=)1743 735 +y(|)h(t_var)g(:)f(var)h(->)f(term)1743 2063 y(|)h(t_lam)g(:)f(var)h(->) +f(term)h(->)f(term)1743 3391 y(|)h(t_app)g(:)f(term)h(->)f(term)h(->)f +(term.)0 5384 y Fx(but)347 b(w)-31 b(e)347 b(found)g(that)g(trying)h +(to)f(preserv)-31 b(e)346 b(the)g(names)h(sp)31 b(eci\014ed)346 +b(b)-31 b(y)347 b(the)g(user)e(is)h(helpful)i(later,)k(when)347 +b(doing)h(pro)31 b(ofs.)0 6712 y(Whenev)-31 b(er)306 +b(a)g(clash)h(is)f(detected,)320 b(or)306 b(for)g(list)h(forms,)319 +b(the)307 b(wildcard)p 28807 6712 349 45 v 1032 w(is)f(used.)471 +b(The)306 b(old)h(b)31 b(eha)-31 b(viour)307 b(can)g(b)31 +b(e)305 b(obtained)0 8040 y(via)370 b(the)g(top-lev)-31 +b(el)371 b(option)g Fs(-coq)p 14048 8040 V 419 w(names)p +17372 8040 V 419 w(in)p 18953 8040 V 419 w(rules)582 +b(false)p Fx(.)0 10033 y(By)415 b(default)i(the)e(order)f(of)i(the)f +(argumen)-31 b(ts)416 b(to)g(those)g(constructors)f(follo)-31 +b(ws)417 b(the)e(order)g(in)g(whic)-31 b(h)416 b(they)g(app)31 +b(ear)415 b(in)0 11361 y(the)388 b(pro)31 b(duction.)550 +b(That)389 b(can)f(b)31 b(e)388 b(o)-31 b(v)g(erridden)388 +b(with)i(an)e Fs(order)g Fx(hom.)550 b(F)-92 b(or)387 +b(example,)395 b(if)388 b(for)g(some)h(reason)e(\(p)31 +b(erhaps)0 12690 y(compatibilit)-31 b(y)374 b(with)c(other)g(Co)31 +b(q)370 b(co)31 b(de\))369 b(one)h(wished)f(the)h(argumen)-31 +b(ts)370 b(to)g Fs(t_Lam)g Fx(to)g(b)31 b(e)368 b(rev)-31 +b(ersed:)p Black Black 1743 14682 a Fs(|)582 b(t_Lam)g(:)f(t)g(->)h +(termvar)g(->)f(t)0 16675 y Fx(one)369 b(could)h(add)g(an)p +Mahogany 369 w Fs(order)p Black 370 w Fx(hom)g(as)f(b)31 +b(elo)-31 b(w.)p Black Black RoyalBlue 1162 18667 a Fs(|)p +Black 582 w(\\)581 b(x)g(.)g(t)p RoyalBlue 3488 w(::)p +Black RoyalBlue 1162 w(::)p Black 582 w(Lam)p RoyalBlue +1162 w({{)p Black Mahogany 582 w(order)p Black RoyalBlue +582 w([[)p Black(t)p RoyalBlue(]])p Black RoyalBlue 582 +w([[)p Black(x)p RoyalBlue(]])p Black RoyalBlue 581 w(})q(})p +Black 0 20660 a Fx(Instead)502 b(of)g(using)g(the)g(generated)h(free)e +(t)-31 b(yp)31 b(e,)536 b(one)502 b(can)g(sp)31 b(ecify)502 +b(an)g(arbitrary)h(pro)31 b(of)502 b(assistan)-31 b(t)503 +b(represen)-31 b(tation)0 21988 y(t)g(yp)31 b(e,)358 +b(annotating)f(the)d(grammar)h(rule)f(with)h(a)p Mahogany +354 w Fs(coq)p Black Fx(,)p Mahogany 358 w Fs(isa)p Black +Fx(,)p Mahogany 358 w Fs(hol)p Black Fx(,)j(or)p Mahogany +353 w Fs(ocaml)p Black 355 w Fx(hom)c(|)g(for)g(example,)359 +b(in)354 b(the)g(follo)-31 b(wing)0 23317 y(grammar)370 +b(for)g(substitutions.)p Black Black 1162 25309 a Fs(s)p +RoyalBlue 582 w({{)p Black Mahogany 581 w(tex)p Black +582 w(\\sigma)p RoyalBlue 582 w(}})p Black RoyalBlue +581 w(::)p Black 582 w('S_')p RoyalBlue 581 w(::=)p Black +RoyalBlue 582 w({{)p Black Mahogany 581 w(com)p Black +582 w(multiple)582 b(subst)p RoyalBlue 582 w(}})p Black +RoyalBlue 582 w({{)p Black Mahogany 581 w(isa)p Black +582 w(\(termvar*t\))g(list)p RoyalBlue 582 w(}})p Black +RoyalBlue 4068 26637 a(|)p Black 581 w([)g(x)f(|->)h(t)f(])p +RoyalBlue 6974 w(::)p Black RoyalBlue 1744 w(::)p Black +581 w(singleton)p RoyalBlue 1745 w({{)p Black Mahogany +581 w(isa)p Black 582 w([)g(\()p RoyalBlue([[)p Black(x)p +RoyalBlue(]])p Black(,)p RoyalBlue([[)p Black(t)p RoyalBlue(]])p +Black(\))i(])p RoyalBlue 1163 w(}})p Black RoyalBlue +4068 27966 a(|)p Black 581 w(s1)f(,)p RoyalBlue 581 w(..)p +Black 582 w(,)f(sn)p RoyalBlue 6393 w(::)p Black RoyalBlue +1744 w(::)p Black 581 w(list)p RoyalBlue 4650 w({{)p +Black Mahogany 581 w(isa)p Black 582 w(List.concat)p +RoyalBlue 583 w([[)p Black(s1)p RoyalBlue 581 w(..)p +Black 582 w(sn)p RoyalBlue(]])p Black RoyalBlue 582 w(}})p +Black 0 29958 a Fx(Here)399 b(the)p RoyalBlue 400 w Fs({)q({)p +Black Mahogany 581 w(isa)p Black 582 w(\(termvar*t\))582 +b(list)p RoyalBlue 582 w(}})p Black 400 w Fx(hom)401 +b(sp)31 b(eci\014es)399 b(that)i(in)f(Isab)31 b(elle)400 +b(output)h(this)f(t)-31 b(yp)31 b(e)401 b(b)31 b(e)399 +b(represen)-31 b(ted)0 31287 y(as)516 b(an)g(Isab)31 +b(elle)516 b Fs(\(termvar*t\))583 b(list)516 b Fx(instead)h(of)f(the)g +(default)i(free)d(inductiv)-31 b(e)517 b(t)-31 b(yp)31 +b(e;)591 b(all)517 b(the)f(pro)31 b(ductions)516 b(are)0 +32615 y(metapro)31 b(ductions)264 b(\(tagged)p Mahogany +264 w Fs(M)p Black Fx(\);)f(and)p Mahogany 262 w Fs(isa)p +Black 262 w Fx(homs)f(for)g(eac)-31 b(h)263 b(pro)31 +b(duction)262 b(sp)31 b(ecify)262 b(ho)-31 b(w)263 b(they)g(should)f(b) +31 b(e)261 b(translated)j(in)-31 b(to)0 33943 y(that)306 +b(Isab)31 b(elle)305 b(t)-31 b(yp)31 b(e.)471 b(This)306 +b(feature)f(m)-31 b(ust)305 b(b)31 b(e)304 b(used)g(with)i(care,)318 +b(as)304 b(an)-31 b(y)306 b(Ott-generated)g(functions,)319 +b(e.g.)306 b(substitution)0 35272 y(functions,)371 b(cannot)f(recurse)e +(through)i(suc)-31 b(h)369 b(user-de\014ned)f(t)-31 b(yp)31 +b(es.)0 37264 y(Grammar)437 b(rules)f(\(whether)h(free)f(or)h +(non-free\))g(can)f(also)i(include)f(a)p Mahogany 437 +w Fs(coq)582 b(equality)p Black 437 w Fx(hom,)455 b(instructing)438 +b(the)e(Co)31 b(q)0 38593 y(co)g(de)467 b(generator)g(to)h(deriv)-31 +b(e)467 b(a)g(decidable)h(equalit)-31 b(y)469 b(for)e(the)g(Co)31 +b(q)468 b(represen)-31 b(tation)468 b(t)-31 b(yp)31 b(e.)786 +b(F)-92 b(or)466 b(example,)493 b(the)467 b(ML)0 39921 +y(p)31 b(olymorphism)371 b(Ott)f(source)f(of)455 b Fs(test8.ott)371 +b Fx(includes)e(the)h(follo)-31 b(wing.)p Black Black +1162 41913 a Fs(typvar)p RoyalBlue 582 w(::)p Black 582 +w(TV_)p RoyalBlue 581 w(::=)p Black RoyalBlue 582 w({{)p +Black Mahogany 581 w(coq-equality)p Black 583 w(decide)582 +b(equality.)h(apply)f(eq_value_name_t.)p RoyalBlue 583 +w(}})p Black RoyalBlue 4068 43242 a(|)p Black 581 w(')g(ident)p +RoyalBlue 9299 w(::)p Black RoyalBlue 1744 w(::)p Black +581 w(ident)0 45234 y Fx(The)501 b(Co)31 b(q/HOL/Isab)g(elle/OCaml)506 +b(t)-31 b(yp)31 b(e)502 b(name)g(for)f(a)h(grammar)g(rule,)535 +b(or)501 b(for)g(a)g(meta)-31 b(v)-61 b(ariable)504 b(declaration,)537 +b(is)0 46563 y(normally)352 b(tak)-31 b(en)351 b(to)g(b)31 +b(e)349 b(just)h(its)g(primary)h(non)-31 b(terminal)352 +b(ro)31 b(ot.)487 b(Occasionally)352 b(it)f(is)f(useful)g(to)h(w)-31 +b(ork)350 b(around)g(a)h(clash)0 47891 y(b)31 b(et)-31 +b(w)g(een)334 b(a)g(meta)-31 b(v)-61 b(ar)334 b(or)f(non)-31 +b(terminal)336 b(primary)d(ro)31 b(ot)334 b(and)g(a)f(pro)31 +b(of)334 b(assistan)-31 b(t)334 b(sym)-31 b(b)31 b(ol,)342 +b(e.g.)334 b Fs(T)g Fx(in)f(HOL)g(or)g Fs(value)h Fx(in)0 +49219 y(Isab)31 b(elle.)537 b(F)-92 b(or)384 b(this,)k(one)c(can)h(add) +f(a)p Mahogany 384 w Fs(coq)p Black Fx(,)p Mahogany 389 +w Fs(hol)p Black Fx(,)p Mahogany 388 w Fs(isa)p Black +Fx(,)389 b(or)p Mahogany 383 w Fs(ocaml)p Black 385 w +Fx(hom)c(to)f(the)h(primary)f(non)-31 b(terminal)387 +b(ro)31 b(ot.)537 b(In)384 b(the)0 50548 y(example)371 +b(b)31 b(elo)-31 b(w,)370 b(the)g(user)e(can)h(write)h +Fs(T)p Fx(,)g Fs(T')f Fx(etc.)493 b(in)370 b(their)f(Ott)h(source,)f +(but)h(the)f(generated)h(HOL)f(t)-31 b(yp)31 b(e)370 +b(is)f Fs(Typ)p Fx(.)p Black Black 0 52540 a Fs(T)p RoyalBlue +581 w({{)p Black Mahogany 582 w(hol)p Black 581 w(Typ)p +RoyalBlue 582 w(}})p Black RoyalBlue(,)p Black 582 w(S)p +RoyalBlue(,)p Black 581 w(U)p RoyalBlue 581 w(::)p Black +582 w('T_')p RoyalBlue 581 w(::=)p Black RoyalBlue 11624 +w({{)p Black Mahogany 581 w(com)p Black 582 w(type)p +RoyalBlue 1163 w(}})p Black RoyalBlue 1162 53869 a(|)p +Black 582 w(T)581 b(->)g(T')p RoyalBlue 15111 w(::)p +Black RoyalBlue 581 w(::)p Black 581 w(Fun)p RoyalBlue +5812 w({{)p Black Mahogany 582 w(com)p Black 581 w(type)h(of)g +(functions)p RoyalBlue 582 w(}})p Black 0 55861 a Fx(The)320 +b(grammar)h(rules)e(within)j(eac)-31 b(h)p Mahogany 320 +w Fs(grammar)p Black 320 w Fx(blo)31 b(c)-31 b(k)321 +b(of)f(a)g(syn)-31 b(tax)321 b(de\014nition)g(ma)-31 +b(y)321 b(dep)31 b(end)319 b(on)h(eac)-31 b(h)321 b(other)f(arbitrar-)0 +57189 y(ily)-92 b(.)646 b(When)420 b(generating)i(Isab)31 +b(elle/Co)g(q/HOL/OCaml)425 b(represen)-31 b(tation)421 +b(t)-31 b(yp)31 b(es,)433 b(ho)-31 b(w)g(ev)g(er,)435 +b(they)420 b(are)g(top)31 b(ologically)0 58518 y(sorted,)370 +b(to)g(simplify)h(the)e(resulting)h(induction)h(principles.)0 +62281 y Fq(5.2)1495 b(Pro)42 b(of)498 b(assistan)-42 +b(t)501 b(co)42 b(de)498 b(for)h(inductiv)-42 b(e)499 +b(de\014nitions)0 64988 y Fx(The)505 b(seman)-31 b(tic)507 +b(relations)g(are)e(de\014ned)g(with)h(the)f(pro)31 b(of-assistan)-31 +b(t)508 b(inductiv)-31 b(e)506 b(relations)h(pac)-31 +b(k)-61 b(ages,)540 b Fs(Inductive)p Fx(,)0 66317 y Fs(Hol_reln)p +Fx(,)364 b(and)d Fs(inductive_set)i Fx(or)d Fs(inductive)p +Fx(,)365 b(resp)31 b(ectiv)-31 b(ely)-92 b(.)490 b(Eac)-31 +b(h)p Mahogany 362 w Fs(defns)p Black 361 w Fx(blo)31 +b(c)-31 b(k)362 b(giv)-31 b(es)362 b(rise)e(to)i(a)f(p)31 +b(oten)-31 b(tially)0 67645 y(m)g(utually)403 b(recursiv)-31 +b(e)401 b(de\014nition)h(of)f(eac)-31 b(h)p Mahogany +402 w Fs(defn)p Black 401 w Fx(inside)401 b(it)g(\(it)h(seems)f +(clearer)f(not)i(to)f(do)g(a)g(top)31 b(ological)405 +b(sort)c(here\).)0 68973 y(De\014nition)484 b(rules)d(are)h(expressed)f +(in)-31 b(ternally)485 b(with)e(sym)-31 b(b)31 b(olic)484 +b(terms.)832 b(W)-92 b(e)481 b(giv)-31 b(e)484 b(a)e(simpli\014ed)i +(grammar)g(thereof)0 70302 y(in)470 b(Fig.)g(17,)496 +b(omitting)473 b(the)d(sym)-31 b(b)31 b(olic)471 b(terms)f(for)g(list)g +(forms.)795 b(A)469 b(sym)-31 b(b)31 b(olic)471 b(term)f +Fo(st)574 b Fx(for)470 b(a)g(non)-31 b(terminal)472 b(ro)31 +b(ot)470 b(is)0 71630 y(either)428 b(an)h(explicit)h(non)-31 +b(terminal)430 b(or)e(a)h(no)31 b(de,)443 b(the)429 b(latter)g(lab)31 +b(elled)430 b(with)f(a)f(pro)31 b(duction)429 b(name)g(and)g(con)-31 +b(taining)431 b(a)0 72958 y(list)467 b(of)g Fo(symterm)p +7601 72958 333 45 v 484 w(element)106 b Fx(s,)491 b(whic)-31 +b(h)467 b(in)g(turn)f(are)g(either)h(sym)-31 b(b)31 b(olic)468 +b(terms,)491 b(meta)-31 b(v)-61 b(ariables,)494 b(or)466 +b(v)-61 b(ariables.)785 b(Eac)-31 b(h)0 74287 y(de\014nition)454 +b(rule)e(giv)-31 b(es)453 b(rise)e(to)i(an)g(implicational)k(clause,) +473 b(essen)-31 b(tially)454 b(that)g(the)e(premises)g(\(Ott)h(sym)-31 +b(b)31 b(olic)454 b(terms)p Black 24502 77841 a(19)p +Black eop end +%%Page: 20 20 +TeXDict begin 20 19 bop Black Black 31 -594 a Fx(of)379 +b(the)p Mahogany 379 w Fs(formula)p Black 378 w Fx(grammar\))h(imply)g +(the)e(conclusion)i(\(an)f(Ott)f(sym)-31 b(b)31 b(olic)380 +b(term)f(of)f(whic)-31 b(hev)g(er)379 b(judgemen)-31 +b(t)380 b(is)e(b)31 b(eing)31 735 y(de\014ned\).)493 +b(Sym)-31 b(b)31 b(olic)371 b(terms)f(are)f(compiled)h(in)g(sev)-31 +b(eral)369 b(di\013eren)-31 b(t)370 b(w)-31 b(a)g(ys:)p +Black 1692 2727 a Ft(\017)p Black 554 w Fx(No)31 b(des)384 +b(of)g(non-meta)i(pro)31 b(ductions)384 b(are)g(output)h(as)f +(applications)j(of)d(the)g(appropriate)i(pro)31 b(of-assistan)-31 +b(t)385 b(con-)2799 4055 y(structor)369 b(\(and,)h(for)g(a)f(subrule,)g +(promoted)i(to)f(the)f(corresp)31 b(onding)369 b(constructor)h(of)g(a)f +(maximal)j(rule\).)p Black 1692 6048 a Ft(\017)p Black +554 w Fx(No)31 b(des)369 b(of)h(meta)g(pro)31 b(ductions)370 +b(are)f(transformed)h(with)g(the)g(user-sp)31 b(eci\014ed)367 +b(homomorphism.)p Black 1692 8040 a Ft(\017)p Black 554 +w Fx(No)31 b(des)337 b(of)i(judgemen)-31 b(t)339 b(forms)f(are)g +(represen)-31 b(ted)336 b(as)i(applications)j(of)d(the)g(de\014ned)f +(relation)j(in)e(Co)31 b(q)338 b(and)g(HOL,)2799 9369 +y(and)369 b(as)g(set-mem)-31 b(b)31 b(ership)370 b(assertions)f(in)h +(Isab)31 b(elle.)p Black 1692 11361 a Ft(\017)p Black +554 w Fx(Lists)384 b(of)h(form)-31 b(ulae)386 b(\(the)f +Fs(formula_dots)h Fx(pro)31 b(duction,)390 b(c.f.)p Ft(x)p +Fx(12\))d(are)d(sp)31 b(ecial-cased)385 b(to)g(pro)31 +b(of-assistan)-31 b(t)386 b(con-)2799 12690 y(junctions.)31 +14682 y(F)-92 b(urther,)357 b(for)c(eac)-31 b(h)355 b(non)-31 +b(terminal)356 b(of)e(a)g(non-free)g(grammar)h(rule,)i(e.g.)e(a)f +(usage)g(of)g Fs(v')g Fx(where)g Fs(v<::t)p Fx(,)j(an)d(additional)31 +16011 y(premise)390 b(in)-31 b(v)g(oking)392 b(the)e(generated)g +(subrule)f(predicate)i(for)f(the)f(non-free)h(rule)f(is)h(added,)395 +b(e.g.)c Fs(is_v)582 b(v')p Fx(.)554 b(F)-92 b(or)389 +b(Co)31 b(q)31 17339 y(and)367 b(HOL,)g(explicit)h(quan)-31 +b(ti\014ers)368 b(are)e(in)-31 b(tro)31 b(duced)367 b(for)g(all)h(v)-61 +b(ariables)367 b(men)-31 b(tioned)368 b(in)f(the)g(rule.)491 +b(F)-92 b(or)366 b(HOL,)h(rules)f(are)31 18667 y(tagged)371 +b(with)g(their)e(rule)g(name)h(\(using)g Fs(clause_name)p +Fx(\).)31 22430 y Fq(5.3)1495 b(Represen)-42 b(tation)501 +b(of)d(binding)31 25138 y Fx(A)-31 b(t)467 b(presen)-31 +b(t)466 b(the)h(generated)g(Isab)31 b(elle/Co)g(q/HOL)468 +b(uses)d(fully)j(concrete)e(represen)-31 b(tations)467 +b(of)g(v)-61 b(ariables)467 b(in)f(terms,)31 26466 y(without)400 +b(an)-31 b(y)398 b(notion)h(of)e(alpha)i(equiv)-61 b(alence,)406 +b(as)397 b(one)g(can)h(see)e(in)i(Fig.)g(6:)549 b(see)396 +b(the)i Fs(t)f Fx(datat)-31 b(yp)31 b(e)399 b(of)f(terms)f(and)g(the)31 +27794 y Fs(tsubst_t)468 b Fx(substitution)h(function)g(there.)786 +b(An)467 b(exp)31 b(erimen)-31 b(tal)469 b(Co)31 b(q)467 +b(bac)-31 b(k)g(end)468 b(generates)g(de\014nitions)g(in)f(lo)31 +b(cally-)31 29123 y(nameless)500 b(st)-31 b(yle)501 b(for)e(a)h(subset) +f(of)h(the)f(Ott)i(metalanguage.)886 b(This)500 b(is)g(w)-31 +b(ork-in-progress,)533 b(and)499 b(it)h(is)g(extensiv)-31 +b(ely)31 30451 y(do)31 b(cumen)-31 b(ted)280 b(in)g Fs +(http://moscova.inria.fr/)584 b(zappa/projects/ln)p 31829 +30451 349 45 v 421 w(ott/)p Fx(.)463 b(W)-92 b(e)278 +b(in)-31 b(tend)280 b(in)f(future)g(to)h(generate)31 +31779 y(other)368 b(represen)-31 b(tations,)369 b(and)e(in)h(some)f +(circumstances)h(homs)f(can)h(b)31 b(e)366 b(used)h(to)h(implemen)-31 +b(t)369 b(other)f(represen)-31 b(tations)31 33108 y(directly)-92 +b(.)632 b(F)-92 b(or)415 b(a)g(reasonably)i(wide)f(v)-61 +b(ariet)-31 b(y)416 b(of)g(languages,)429 b(ho)-31 b(w)g(ev)g(er,)429 +b(one)415 b(can)h(capture)g(the)f(in)-31 b(tended)416 +b(seman)-31 b(tics)31 34436 y(of)399 b(whole)f(programs)g(in)g(this)g +(idiom,)407 b(sub)61 b(ject)398 b(only)g(to)g(the)g(condition)i(that)e +(standard)g(library)g(iden)-31 b(ti\014ers)398 b(are)g(not)31 +35764 y(shado)-31 b(w)g(ed)348 b(within)h(the)d(program,)353 +b(as)346 b(the)h(op)31 b(erational)349 b(seman)-31 b(tics)348 +b(do)31 b(es)346 b(not)i(in)-31 b(v)g(olv)g(e)349 b(reduction)e(under)f +(binders)g(|)31 37093 y(so)329 b(an)-31 b(y)328 b(substitutions)i(are)e +(of)h(terms)f(whic)-31 b(h)329 b(\(except)g(for)f(standard)h(library)f +(iden)-31 b(ti\014ers\))329 b(are)f(closed.)480 b(This)328 +b(includes)31 38421 y(the)456 b(ML)e(p)31 b(olymorphism)457 +b(example)f(of)542 b Fs(test8.ott)p Fx(.)751 b(F)-92 +b(or)454 b(languages)j(whic)-31 b(h)456 b(require)f(a)g(t)-31 +b(yp)31 b(e)455 b(en)-31 b(vironmen)g(t)457 b(with)31 +39749 y(in)-31 b(ternal)297 b(dep)31 b(endencies,)310 +b(ho)-31 b(w)g(ev)g(er,)312 b(for)295 b(example)i(F)22077 +39915 y Fr(<)p Fu(:)23074 39749 y Fx(,)310 b(this)296 +b(is)f(no)h(longer)g(the)f(case.)468 b(The)295 b(POPLmark)i(F)44883 +39915 y Fr(<)p Fu(:)46175 39749 y Fx(example)31 41078 +y(giv)-31 b(en)415 b(in)g Fs(test7.ott)f Fx(has)g(a)g(t)-31 +b(yp)31 b(e)414 b(system)g(whic)-31 b(h)415 b(disallo)-31 +b(ws)416 b(all)f(shado)-31 b(wing,)428 b(a)414 b(prop)31 +b(ert)-31 b(y)413 b(that)i(is)f(not)h(preserv)-31 b(ed)31 +42406 y(b)g(y)406 b(reduction.)603 b(Ho)-31 b(w)g(ev)g(er,)417 +b(a)406 b(correct)g(translation)i(of)e(F)24237 42572 +y Fr(<)p Fu(:)25640 42406 y Fx(is)g(generated)g(b)-31 +b(y)406 b(the)g(Co)31 b(q)407 b(lo)31 b(cally-nameless)408 +b(bac)-31 b(k)g(end,)31 43735 y(and)370 b(can)f(b)31 +b(e)369 b(found)h(in)f Fs(http://moscova.inria.fr/)585 +b(zappa/projects/ln)p 34593 43735 V 421 w(ott/)p Fx(.)31 +45727 y(F)-92 b(urther)368 b(discussion)i(of)f(binding)i(represen)-31 +b(tations)370 b(is)f(in)g(the)h(Ott)g(ICFP)f(2007)i(pap)31 +b(er)368 b(and)i(in)f(a)h(w)-31 b(orking)371 b(draft)p +Black Black 2799 47720 a(Binding)260 b(and)g(Substitition.)459 +b(Susmit)260 b(Sark)-61 b(ar,)281 b(P)-31 b(eter)260 +b(Sew)-31 b(ell,)283 b(and)259 b(F)-92 b(rancesco)259 +b(Zappa)h(Nardelli.)458 b(August)2799 49048 y(2007.)31 +51040 y(a)-31 b(v)-61 b(ailable)372 b(from)e(the)g(Ott)f(w)-31 +b(eb)370 b(page.)31 54803 y Fq(5.4)1495 b(Help)42 b(er)499 +b(functions)g(for)g(free)f(v)-83 b(ariable)499 b(and)g(substitution)i +(functions)31 57511 y Fx(The)322 b(generated)h(free)e(v)-61 +b(ariable)323 b(and)f(substitution)h(functions)g(in)f(the)g(Co)31 +b(q)322 b(output)h(\(e.g.,)334 b(in)322 b(Figure)f(5\))i(often)g(rely)e +(on)31 58839 y(a)375 b(few)g(standard)g(library)g(functions:)504 +b Fs(list_mem)p Fx(,)377 b Fs(list_assoc)p Fx(,)h Fs(list_minus)p +Fx(,)f Fs(list_minus2)p Fx(.)510 b(In)374 b(order)f(to)j(a)-31 +b(v)g(oid)31 60168 y(dep)31 b(endencies)399 b(on)h(external)g +(libraries)g(for)f(de\014ning)h(those)g(functions,)408 +b(b)-31 b(y)399 b(default)i(Ott)f(generates)g(the)f(de\014nitions)31 +61496 y(for)505 b(an)-31 b(y)506 b(suc)-31 b(h)505 b(functions)h(it)f +(uses.)899 b(It)505 b(is)g(p)31 b(ossible)505 b(to)g(turn)g(o\013)g +(the)g(generation)i(of)e(de\014nitions)h(for)f(these)g(suc)-31 +b(h)31 62824 y(functions)371 b(b)-31 b(y)369 b(writing)i(the)f(follo) +-31 b(wing)372 b(directiv)-31 b(e)371 b(early)f(on)f(in)g(the)h(source) +e(\014le:)p Mahogany Black Mahogany 31 64817 a Fs(embed)p +Black RoyalBlue 582 w({)q({)p Black Mahogany 581 w(coq-lib)p +Black 582 w(list_mem)582 b(list_minus)p RoyalBlue 583 +w(}})p Black 31 66809 a Fx(This)384 b(instructs)f(Ott)h(to)g(a)-31 +b(v)g(oid)385 b(generating)g(de\014nition)g(for)e Fs(list_mem)h +Fx(and)f Fs(list_minus)p Fx(,)389 b(but)383 b(to)h(con)-31 +b(tin)g(ue)385 b(gener-)31 68138 y(ating)371 b(de\014nitions)g(for)e +(other)h(functions)g(suc)-31 b(h)369 b(as)g Fs(list_assoc)h +Fx(and)g Fs(list_minus2)p Fx(.)31 70130 y Fp(Note)346 +b(ab)35 b(out)345 b Fs(list_minus2)p Fp(:)458 b Fx(Instead)299 +b(of)h(using)f(the)h(function)g Fs(list_minus2)p Fx(,)315 +b(earlier)300 b(v)-31 b(ersions)299 b(of)h(Ott)g(generated)31 +71458 y(equiv)-61 b(alen)-31 b(t)394 b(co)31 b(de)392 +b(based)g(on)g Fs(list_filter)p Fx(,)400 b(whic)-31 b(h)393 +b(w)-31 b(as)393 b(more)f(di\016cult)i(to)e(reason)g(ab)31 +b(out.)563 b(F)-92 b(or)391 b(bac)-31 b(kw)g(ards)393 +b(com-)31 72787 y(patibilit)-31 b(y)-92 b(,)304 b(ho)-31 +b(w)g(ev)g(er,)302 b(w)-31 b(e)282 b(pro)-31 b(vide)283 +b(the)g(command-line)i(option)f Fs(-coq_use_filter_fn)h +Fx(for)d(generating)i(a)f(de\014nition)31 74115 y(using)370 +b(the)f(older)h(co)31 b(de)369 b(pattern.)p Black 24533 +77841 a(20)p Black eop end +%%Page: 21 21 +TeXDict begin 21 20 bop Black Black 0 -594 a Fq(5.5)1495 +b(Correctness)500 b(of)e(the)h(generated)g(pro)42 b(of)498 +b(assistan)-42 b(t)502 b(co)42 b(de)0 2114 y Fx(W)-92 +b(e)377 b(ha)-31 b(v)g(e)379 b(attempted)g(to)g(ensure)e(that)i(the)e +(pro)31 b(of)378 b(assistan)-31 b(t)380 b(de\014nitions)f(generated)f +(b)-31 b(y)378 b(Ott)g(are)g(w)-31 b(ell-formed)380 b(and)0 +3442 y(what)457 b(the)f(user)e(w)-31 b(ould)457 b(in)-31 +b(tend.)753 b(This)456 b(is)f(not)h(guaran)-31 b(teed,)479 +b(ho)-31 b(w)g(ev)g(er,)479 b(for)456 b(sev)-31 b(eral)456 +b(reasons:)665 b(\(1\))456 b(There)g(ma)-31 b(y)457 b(b)31 +b(e)0 4770 y(name)296 b(clashes)g(b)31 b(et)-31 b(w)g(een)296 +b(Ott-generated)i(iden)-31 b(ti\014ers)296 b(and)g(pro)31 +b(of)296 b(assistan)-31 b(t)296 b(built-in)i(iden)-31 +b(ti\014ers)296 b(\(or,)311 b(in)296 b(pathological)0 +6099 y(cases,)369 b(ev)-31 b(en)370 b(among)h(di\013eren)-31 +b(t)369 b(Ott-generated)i(iden)-31 b(ti\014ers\).)494 +b(\(2\))371 b(In)e(some)g(cases)g(w)-31 b(e)370 b(dep)31 +b(end)369 b(on)g(automatic)k(pro)31 b(of)0 7427 y(pro)g(cedures,)452 +b(e.g.)438 b(for)f(HOL)f(de\014nitions.)696 b(These)436 +b(w)-31 b(ork)437 b(in)g(our)f(test)h(cases,)454 b(but)436 +b(it)i(is)e(hard)g(to)h(ensure)f(that)i(they)0 8755 y(will)447 +b(in)f(all)h(cases.)721 b(More)446 b(imp)31 b(ortan)-31 +b(tly)-92 b(,)467 b(\(3\))447 b(the)f(generation)h(pro)31 +b(cess)445 b(is)g(complex,)467 b(so)446 b(it)g(is)f(quite)i(p)31 +b(ossible)446 b(that)0 10084 y(there)320 b(is)f(either)h(a)g(bug)g(in)g +(Ott)h(or)e(a)h(mismatc)-31 b(h)322 b(b)31 b(et)-31 b(w)g(een)321 +b(the)f(user)f(exp)31 b(ectation)322 b(and)e(what)g(the)g(to)31 +b(ol)322 b(actually)g(do)31 b(es.)0 11412 y(Ultimately)400 +b(one)c(has)g(to)h(read)f(the)h(generated)g(pro)31 b(of)396 +b(assistan)-31 b(t)398 b(de\014nitions)f(to)g(c)-31 b(hec)g(k)397 +b(that)g(they)g(are)f(as)g(in)-31 b(tended)0 12740 y(|)340 +b(but)g(t)-31 b(ypically)343 b(one)d(w)-31 b(ould)341 +b(do)f(this)h(in)f(an)-31 b(y)341 b(case,)346 b(man)-31 +b(y)341 b(times)g(o)-31 b(v)g(er,)347 b(in)340 b(the)g(pro)31 +b(cess)339 b(of)h(pro)-31 b(ving)341 b(metatheoretic)0 +14069 y(results,)369 b(so)g(w)-31 b(e)370 b(do)f(not)h(consider)f(it)h +(a)g(ma)61 b(jor)371 b(issue.)0 17832 y Fq(5.6)1495 b(Using)499 +b(the)g(generated)g(pro)42 b(of)498 b(assistan)-42 b(t)502 +b(co)42 b(de)0 20539 y Fx(Note)370 b(added)g(2017-11-30:)496 +b(the)369 b(follo)-31 b(wing)373 b(is)c(out)h(of)g(date.)0 +22532 y(Ott)g(builds)f(co)31 b(de)370 b(for)664 24236 +y(Co)31 b(q)370 b(8.3)13267 b Fs(http://coq.inria.fr/)664 +25565 y Fx(HOL)369 b(4)h(\(the)g(curren)-31 b(t)368 b(svn)h(v)-31 +b(ersion\))1330 b Fs(http://hol.sourceforge.net/)664 +26893 y Fx(Isab)31 b(elle/HOL)370 b(\(Isab)31 b(elle)370 +b(2011\))3001 b Fs(http://isabelle.in.tum.de/)0 28835 +y Fx(Giv)-31 b(en)381 b(pro)31 b(of)380 b(assistan)-31 +b(t)382 b(\014les)e(in)g(the)h(top-lev)-31 b(el)382 b(directory)f(of)g +(the)f(distribution,)386 b(as)380 b(pro)31 b(duced)380 +b(at)h(the)f(start)h(of)g(this)0 30164 y(section)444 +b(\(Co)31 b(q)444 b Fs(out.v)p Fx(,)463 b(Isab)31 b(elle)443 +b Fs(out.thy)p Fx(,)463 b(and)444 b(HOL)f Fs(outScript.sml)p +Fx(\),)464 b(the)443 b(v)-61 b(arious)444 b(pro)31 b(of)443 +b(assistan)-31 b(ts)444 b(can)g(b)31 b(e)0 31492 y(in)-31 +b(v)g(ok)g(ed)371 b(as)e(follo)-31 b(ws.)0 35033 y Fp(5.6.1)1274 +b(Co)35 b(q)0 37741 y Fx(First)369 b(run)p Black Black +1162 39733 a Fs(make)0 41726 y Fx(in)246 b(the)h Fs(coq)f +Fx(directory)h(of)g(the)f(distribution,)273 b(to)247 +b(build)g(the)g(auxiliary)h(\014les.)452 b(These)246 +b(include)h(a)f(core)g(\014le)g(\()p Fs(ott_list_core)p +Fx(\))0 43054 y(of)314 b(de\014nitions)h(that)g(are)e(used)g(in)h +(Ott-generated)h(output.)475 b(A)-31 b(t)315 b(presen)-31 +b(t)313 b(these)g(are)h(only)g(required)f(when)h(Co)31 +b(q)314 b(nativ)-31 b(e)0 44383 y(lists)393 b(are)g(used.)562 +b(There)392 b(are)h(also)g(v)-61 b(arious)393 b(lemmas)h(\(in)f +Fs(ott_list.v)p Fx(\))i(whic)-31 b(h)393 b(ma)-31 b(y)394 +b(b)31 b(e)392 b(useful;)405 b(they)393 b(can)g(b)31 +b(e)392 b(made)0 45711 y(a)-31 b(v)-61 b(ailable)372 +b(with)e Fs(Require)582 b(Import)g(ott_list.)0 47703 +y Fx(F)-92 b(or)368 b(batc)-31 b(h)371 b(mo)31 b(de)369 +b(run)p Black Black 1162 49696 a Fs(coqc)582 b(-I)f(coq)1163 +b(out.v)0 51688 y Fx(where)369 b Fs(coq)g Fx(is)h(the)f(path)h(to)g +(the)f Fs(coq)h Fx(directory)f(of)h(the)g(distribution.)0 +53681 y(The)484 b(exp)31 b(erimen)-31 b(tal)485 b(lo)31 +b(cally-nameless)486 b(bac)-31 b(k)g(end)485 b(requires)d(the)i +Fs(Metatheory)h Fx(library)f(b)-31 b(y)484 b(Arth)-31 +b(ur)483 b(Chargueraud,)0 55009 y(a)-31 b(v)-61 b(ailable)372 +b(from)e(the)f(pro)61 b(ject)370 b(w)-31 b(eb)370 b(page.)0 +58551 y Fp(5.6.2)1274 b(HOL)0 61258 y Fx(First)369 b(run)p +Black Black 1162 63251 a Fs(Holmake)0 65243 y Fx(in)g(the)h +Fs(hol)f Fx(directory)h(of)g(the)f(distribution,)j(to)e(build)g(the)f +(auxiliary)i(\014les.)0 67236 y(F)-92 b(or)368 b(batc)-31 +b(h)371 b(mo)31 b(de)369 b(run)p Black Black 1162 69228 +a Fs(Holmake)582 b(-I)g(hol)1163 b(outTheory.uo)0 71221 +y Fx(where)369 b Fs(hol)g Fx(is)h(the)f(path)h(to)g(the)f +Fs(hol)h Fx(directory)f(of)h(the)g(distribution.)494 +b(F)-92 b(or)368 b(in)-31 b(teractiv)g(e)372 b(mo)31 +b(de,)370 b(run)p Black Black 1162 73213 a Fs(hol)582 +b(-I)f(hol)p Black 24502 77841 a Fx(21)p Black eop end +%%Page: 22 22 +TeXDict begin 22 21 bop Black Black 31 -594 a Fx(inside)302 +b(an)f(editor)g(windo)-31 b(w)303 b(\(where)e(the)g(second)g +Fs(hol)g Fx(is)f(again)j(the)e(path)g(to)h(the)f Fs(hol)g +Fx(directory)g(of)h(the)f(distribution\),)31 735 y(and)485 +b(in)f(another)h(windo)-31 b(w)486 b(view)f(the)g Fs(outScript.sml)h +Fx(\014le.)838 b(First)483 b(paste)i(in)f(the)h Fs(app)581 +b(load)485 b Fx(command)h(from)e(a)31 2063 y(commen)-31 +b(t)372 b(at)e(the)f(top)h(of)g(the)f(\014le,)h(then)f(paste)h(in)f +(the)h(remainder.)31 5604 y Fp(5.6.3)1274 b(Isab)35 b(elle)31 +8312 y Fx(F)-92 b(or)369 b(batc)-31 b(h)370 b(mo)31 b(de:)p +Black Black 1194 10304 a Fs(echo)582 b('ML_command)g({*)g(\(use_thy)g +("Tmp";)g(OS.Process.exit)i(OS.Process.success\))g(handle)e(e)f(=>)g +(\(OS.Process.exit)j(OS.Process.failure\);)g(*}')e(|)f +(/usr/local/Isabelle/bin/isabelle)586 b(tty)31 12297 +y Fx(In)-31 b(teractiv)g(ely)-92 b(,)372 b(using)e(Pro)31 +b(of)370 b(General:)p Black Black 1194 14289 a Fs(isabelle)582 +b(emacs)g(out.thy)31 18614 y FC(6)1793 b(Judgmen)-50 +b(ts)600 b(and)e(form)-50 b(ulae)31 21703 y Fx(In)369 +b(a)h(seman)-31 b(tic)370 b(rule,)g(for)f(example)p Black +Black 2356 23695 a Fs(t1)582 b(-->)f(t1')p RoyalBlue +2356 25024 a(--------------)i(::)p Black 582 w(ctx_app_arg)2356 +26352 y(v)e(t1)h(-->)f(v)h(t1')31 28345 y Fx(the)386 +b(conclusion)h(m)-31 b(ust)387 b(b)31 b(e)385 b(a)h(sym)-31 +b(b)31 b(olic)387 b(term)f(of)g(the)g(form)g(of)g(the)g(judgemen)-31 +b(t)387 b(b)31 b(eing)386 b(de\014ned,)k(but)c(in)g(general)g(the)31 +29673 y(premises)324 b(ma)-31 b(y)325 b(b)31 b(e)323 +b(sym)-31 b(b)31 b(olic)325 b(terms)f(of)g(a)p Mahogany +325 w Fs(formula)p Black 324 w Fx(grammar)h(or)f(in-line)h(em)-31 +b(b)31 b(edded)324 b(pro)-31 b(v)g(er)324 b(co)31 b(de.)477 +b(By)324 b(default)h(the)31 31001 y(form)-31 b(ula)360 +b(grammar)f(includes)g(all)g(the)f(de\014ned)g(judgemen)-31 +b(t)359 b(forms:)487 b(for)358 b(the)h(running)f(example)h(Ott)g(will)g +(syn)-31 b(thesise)31 32330 y(grammars)371 b(as)e(b)31 +b(elo)-31 b(w.)696 34250 y Fo(formula)3964 b Fx(::=)8964 +35578 y Ft(j)1913 b Fo(judgement)696 38481 y(judgement)2763 +b Fx(::=)8964 39810 y Ft(j)1913 b Fo(Jop)696 42713 y(Jop)5971 +b Fx(::=)8964 44041 y Ft(j)1913 b Fo(t)11552 44207 y +Fu(1)12356 44041 y Ft(\000)-185 b(!)308 b Fo(t)14815 +44207 y Fu(2)20196 44041 y Fo(t)20564 44207 y Fu(1)21430 +44041 y Fx(reduces)368 b(to)i Fo(t)27096 44207 y Fu(2)31 +46045 y Fx(The)315 b(user)d(can)i(also)h(de\014ne)f(an)g(explicit)i +(form)-31 b(ula)315 b(grammar,)327 b(to)314 b(let)h(other)f(forms)g +(\(not)h(just)f(judgemen)-31 b(ts\))316 b(app)31 b(ear)314 +b(as)31 47373 y(rule)369 b(premises.)493 b(Belo)-31 b(w)370 +b(is)g(a)f(fragmen)-31 b(t)371 b(of)f(the)f(form)-31 +b(ula)371 b(grammar)g(from)e(the)h(LJ)e(example)j(on)e(the)h(Ott)g(w) +-31 b(eb)369 b(page.)p Black Black Mahogany 1194 49366 +a Fs(formula)p Black RoyalBlue 582 w(::)p Black 581 w(formula_)p +RoyalBlue 583 w(::=)p Black RoyalBlue 1775 50694 a(|)p +Black 1162 w(judgement)p RoyalBlue 13368 w(::)p Black +RoyalBlue 1744 w(::)p Black 581 w(judgement)p RoyalBlue +1775 52022 a(|)p Black 1162 w(formula1)p RoyalBlue 583 +w(..)p Black 581 w(formulan)p RoyalBlue 6975 w(::)p Black +RoyalBlue 1744 w(::)p Black 581 w(dots)p RoyalBlue 1775 +53351 a(|)p Black 1162 w(not)p Mahogany 582 w(formula)p +Black RoyalBlue 12205 w(::)p Black Mahogany 582 w(M)p +Black RoyalBlue 581 w(::)p Black 581 w(not)p RoyalBlue +5843 54679 a({{)p Black Mahogany 581 w(tex)p Black 582 +w(\\neg)p RoyalBlue 582 w([[)p Black Mahogany(formula)p +Black RoyalBlue(]])p Black RoyalBlue 583 w(}})p Black +RoyalBlue 5843 56007 a({{)p Black Mahogany 581 w(isa)p +Black 582 w(\\)582 b(\()p RoyalBlue([[)p Black Mahogany(formula)p +Black RoyalBlue(]])p Black(\))p RoyalBlue 583 w(}})p +Black RoyalBlue 1775 57336 a(|)p Black 1162 w(\()p Mahogany +582 w(formula)p Black 582 w(\))p RoyalBlue 12204 w(::)p +Black Mahogany 582 w(M)p Black RoyalBlue 581 w(::)p Black +581 w(brackets)p RoyalBlue 5843 58664 a({{)p Black Mahogany +581 w(tex)p Black 582 w(\()p RoyalBlue([[)p Black Mahogany(formula)p +Black RoyalBlue(]])p Black(\\)r(!\))p RoyalBlue 581 w(})q(})p +Black RoyalBlue 5843 59992 a({{)p Black Mahogany 581 +w(isa)p Black RoyalBlue 582 w([[)p Black Mahogany(formula)p +Black RoyalBlue(]])p Black RoyalBlue 583 w(}})p Black +RoyalBlue 1775 61321 a(|)p Black Mahogany 1162 w(formula)p +Black 583 w(\\/)p Mahogany 581 w(formula)p Black(')p +RoyalBlue 7556 w(::)p Black Mahogany 582 w(M)p Black +RoyalBlue 581 w(::)p Black 581 w(or)p RoyalBlue 5843 +62649 a({{)p Black Mahogany 581 w(tex)p Black RoyalBlue +582 w([[)p Black Mahogany(formula)p Black RoyalBlue(]])p +Black 583 w(\\vee)p RoyalBlue 582 w([[)p Black Mahogany(formula)p +Black(')p RoyalBlue(]])p Black RoyalBlue 582 w(})q(})p +Black RoyalBlue 5843 63977 a({{)p Black Mahogany 581 +w(isa)p Black RoyalBlue 582 w([[)p Black Mahogany(formula)p +Black RoyalBlue(]])p Black 583 w(\\)p RoyalBlue 582 +w([[)p Black Mahogany(formula)p Black(')p RoyalBlue(]])p +Black RoyalBlue 583 w(}})p Black RoyalBlue 1775 65306 +a(|)p Black Mahogany 1162 w(formula)p Black 583 w(/\\)p +Mahogany 581 w(formula)p Black(')p RoyalBlue 7556 w(::)p +Black Mahogany 582 w(M)p Black RoyalBlue 581 w(::)p Black +581 w(and)p RoyalBlue 5843 66634 a({{)p Black Mahogany +581 w(tex)p Black RoyalBlue 582 w([[)p Black Mahogany(formula)p +Black RoyalBlue(]])p Black 583 w(\\wedge)p RoyalBlue +582 w([[)p Black Mahogany(formula)p Black(')p RoyalBlue(]])p +Black RoyalBlue 583 w(}})p Black RoyalBlue 5843 67962 +a({{)p Black Mahogany 581 w(isa)p Black RoyalBlue 582 +w([[)p Black Mahogany(formula)p Black RoyalBlue(]])p +Black 583 w(\\)p RoyalBlue 582 w([[)p Black Mahogany(formula)p +Black(')p RoyalBlue(]])p Black RoyalBlue 583 w(}})p Black +RoyalBlue 1775 69291 a(|)p Black 1162 w(x)g(=)f(x')p +RoyalBlue 15110 w(::)p Black Mahogany 582 w(M)p Black +RoyalBlue 581 w(::)p Black 581 w(xali)p RoyalBlue 5843 +70619 a({{)p Black Mahogany 581 w(isa)p Black RoyalBlue +582 w([[)p Black(x)p RoyalBlue(]])p Black 582 w(=)p RoyalBlue +581 w([[)p Black(x')p RoyalBlue(]])p Black RoyalBlue +582 w(}})p Black RoyalBlue 1775 71948 a(|)p Black 1162 +w(X)h(=)f(X')p RoyalBlue 15110 w(::)p Black Mahogany +582 w(M)p Black RoyalBlue 581 w(::)p Black 581 w(Xali)p +RoyalBlue 5843 73276 a({{)p Black Mahogany 581 w(isa)p +Black RoyalBlue 582 w([[)p Black(X)p RoyalBlue(]])p Black +582 w(=)p RoyalBlue 581 w([[)p Black(X')p RoyalBlue(]])p +Black RoyalBlue 582 w(}})p Black Black 24533 77841 a +Fx(22)p Black eop end +%%Page: 23 23 +TeXDict begin 23 22 bop Black Black 0 -594 a Fx(This)396 +b(example)h(adds)f(\(to)h(the)f(judgemen)-31 b(t)397 +b(forms\))g(syn)-31 b(tax)397 b(for)e(paren)-31 b(thesised)396 +b(form)-31 b(ulae,)405 b(negation,)g(and,)e(or,)g(and)0 +735 y(equalit)-31 b(y)414 b(testing)g(on)e(t)-31 b(w)g(o)414 +b(sorts.)620 b(F)-92 b(or)411 b(eac)-31 b(h,)p Mahogany +424 w Fs(tex)p Black 412 w Fx(and)p Mahogany 412 w Fs(isa)p +Black 412 w Fx(homs)413 b(sp)31 b(ecify)412 b(ho)-31 +b(w)413 b(they)f(should)g(b)31 b(e)412 b(t)-31 b(yp)31 +b(eset)412 b(and)h(b)31 b(e)0 2063 y(translated)371 b(in)-31 +b(to)370 b(Isab)31 b(elle.)0 4055 y(If)333 b(the)g(user)f(de\014nes)h +(a)p Mahogany 333 w Fs(formula)p Black 334 w Fx(grammar)h(then)g(\(as)f +(here\))g(the)h(pro)31 b(duction)334 b(name)f(pre\014x)g(m)-31 +b(ust)334 b(b)31 b(e)332 b Fs(formula)p 47644 4055 349 +45 v 753 w Fx(and)0 5384 y(the)369 b(name)h(for)g(the)f +Fs(judgement)h Fx(pro)31 b(duction)370 b(m)-31 b(ust)370 +b(b)31 b(e)369 b Fs(judgement)p Fx(.)0 9147 y Fq(6.1)1495 +b(Naming)500 b(of)e(premises)i(for)e(the)g(Co)42 b(q)498 +b(bac)-42 b(k)g(end)0 11854 y Fx(It)356 b(is)f(p)31 b(ossible)356 +b(to)g(sp)31 b(ecify)356 b(the)f(names)h(of)g(premises)f(of)i(inductiv) +-31 b(e)357 b(predicates;)k(these)355 b(names)h(are)f(then)h(used)f(b) +-31 b(y)356 b(the)0 13182 y(Co)31 b(q)436 b(bac)-31 b(k)g(end,)453 +b(and)436 b(are)f(often)h(useful)f(in)h(pro)31 b(ofs.)691 +b(F)-92 b(or)434 b(instance,)453 b(w)-31 b(e)436 b(can)g(call)g +Fs(RED)g Fx(the)f(h)-31 b(yp)31 b(othesis)436 b(in)g(the)f(rule)0 +14511 y(b)31 b(elo)-31 b(w)p Black Black 2325 16503 a +Fs(t1)581 b(-->)h(t1')1162 b([[:RED]])p RoyalBlue 2325 +17832 a(--------------)583 b(::)p Black 581 w(ctx_app_arg)2325 +19160 y(v)e(t1)g(-->)h(v)f(t1')0 21153 y Fx(whic)-31 +b(h)370 b(will)h(then)e(generate)h(the)g(follo)-31 b(wing)373 +b(Co)31 b(q)370 b(co)31 b(de:)p Black Black 0 23145 a +Fs(|)581 b(ctx_app_arg)i(:)e(forall)h(\(v)g(t1)f(t1':term\))2325 +24473 y(\(RED:)g(reduce)i(t1)e(t1'\),)2325 25802 y(is_val_of_term)i(v)e +(->)2325 27130 y(reduce)h(\(t_app)g(v)f(t1\))h(\(t_app)g(v)f(t1'\).)0 +29123 y Fx(Names)412 b(of)g(rules)e(cannot)j(con)-31 +b(tain)413 b(spaces)e(or)g(other)g(non)h(alpha-n)-31 +b(umerical)414 b(c)-31 b(haracters,)422 b(and)412 b(m)-31 +b(ust)412 b(b)31 b(egin)411 b(with)i(a)0 30451 y(letter.)550 +b(The)389 b(name)g(annotation)i(m)-31 b(ust)389 b(at)g(the)f(righ)-31 +b(tmost)390 b(place)f(on)g(the)f(h)-31 b(yp)31 b(othesis)389 +b(line,)394 b(and)388 b(m)-31 b(ust)389 b(b)31 b(e)388 +b(enclosed)0 31779 y(\(without)372 b(spaces\))d(b)31 +b(et)-31 b(w)g(een)370 b(the)g Fs([[:)492 b Fx(and)369 +b Fs(]])h Fx(paren)-31 b(theses.)0 35542 y Fq(6.2)1495 +b(In-line)498 b(em)-42 b(b)42 b(edded)499 b(pro)-42 b(v)g(er)500 +b(co)42 b(de)498 b(in)h(premises)0 38250 y Fx(Instead)388 +b(of)h(adding)h(a)e(form)-31 b(ula)390 b(pro)31 b(duction,)395 +b(one)388 b(can)h(directly)g(em)-31 b(b)31 b(ed)389 b(pro)-31 +b(v)g(er)388 b(co)31 b(de)388 b(as)h(a)f(premise,)394 +b(delimited)c(as)0 39578 y(b)31 b(elo)-31 b(w)458 b(b)-31 +b(y)p RoyalBlue 473 w Fs({{)p Black 457 w Fx(and)p RoyalBlue +458 w Fs(}})p Black Fx(.)756 b(Within)458 b(that,)481 +b(text)458 b(will)h(b)31 b(e)457 b(ec)-31 b(ho)31 b(ed)457 +b(directly)h(to)g(a)f(pro)-31 b(v)g(er)458 b(\(or)f(giv)-31 +b(en)458 b(a)g(default)g(L)47562 39351 y Fu(A)48050 39578 +y Fx(T)48664 39816 y(E)49280 39578 y(X)0 40906 y(t)-31 +b(yp)31 b(esetting\))477 b(except)f(that)g(sym)-31 b(b)31 +b(olic)476 b(terms)f(enclosed)g(within)p RoyalBlue 476 +w Fs([[)p Black 475 w Fx(and)p RoyalBlue 475 w Fs(]])p +Black 475 w Fx(will)i(b)31 b(e)474 b(pro)31 b(cessed)474 +b(as)g(in)h(an)p Mahogany 475 w Fs(embed)p Black 0 42235 +a Fx(section.)p Black Black RoyalBlue 1162 44227 a Fs({{)p +Black 582 w(type_to_chunk)583 b(\()p RoyalBlue([[)p Black(typeof)f(e1)p +RoyalBlue(]])p Black(\))g(=)g(Some)p RoyalBlue 581 w([[)p +Black(c)p RoyalBlue(]])p Black RoyalBlue 582 w(}})p Black +RoyalBlue 1162 45556 a +(-----------------------------------------------------------)590 +b(::)p Black 582 w(Assign1)1162 46884 y(e1=e2)582 b(.)f(k)h(|env)1744 +b(--tau-->)2326 b(lval\(e1\))582 b(.)f([__=c)h(e2])g(.)f(k)g(|env)0 +50647 y Fq(6.3)1495 b(User)499 b(syn)-42 b(tax)0 53354 +y Fx(The)369 b(to)31 b(ol)371 b(also)f(syn)-31 b(thesises)369 +b(a)h Fs(user)p 15678 53354 V 419 w(syntax)f Fx(grammar)i(of)f(all)g +(the)g(user)e(syn)-31 b(tax,)370 b(for)g(example:)664 +55305 y Fo(user)p 2872 55305 333 45 v 517 w(syntax)2790 +b Fx(::=)9638 56633 y Ft(j)1913 b Fo(var)9638 57962 y +Ft(j)g Fo(term)9638 59290 y Ft(j)g Fo(val)9638 60618 +y Ft(j)g Fo(terminals)0 62622 y Fx(This)370 b(is)f(used)f(for)h +(parsing)h(top-lev)-31 b(el)371 b(strings,)f(for)f(example)i(when)e +(\014ltering)i(em)-31 b(b)31 b(edded)369 b(co)31 b(de)369 +b(\()p Ft(x)p Fx(8\).)0 66947 y FC(7)1793 b(Concrete)599 +b(terms)h(and)e(OCaml)g(generation)0 70036 y Fx(In)409 +b(seman)-31 b(tic)412 b(de\014nitions,)422 b(one)410 +b(t)-31 b(ypically)412 b(nev)-31 b(er)410 b(uses)f(concrete)h(v)-61 +b(ariables,)421 b(only)411 b(meta)-31 b(v)-61 b(ariables)412 +b(that)f(range)f(o)-31 b(v)g(er)0 71364 y(them.)492 b(In)365 +b(examples,)j(ho)-31 b(w)g(ev)g(er,)369 b(one)c(ma)-31 +b(y)367 b(need)f(either)g(a)g(mix)h(of)f(concrete)g(v)-61 +b(ariables)366 b(and)g(meta)-31 b(v)-61 b(ariables,)369 +b(or,)e(for)0 72692 y(strictly)j(concrete)g(terms,)f(to)h(restrict)f +(to)h(just)g(the)f(former)g(\(and)h(also)g(to)g(prohibit)h(sym)-31 +b(b)31 b(olic)371 b(non)-31 b(terminals\).)p Black 24502 +77841 a(23)p Black eop end +%%Page: 24 24 +TeXDict begin 24 23 bop Black Black 31 -594 a Fx(Figure)510 +b(2)f(com)-31 b(bines)510 b(the)g(L)11979 -821 y Fu(A)12467 +-594 y Fx(T)13081 -356 y(E)13696 -594 y(X)f(and)h(pro)31 +b(of)509 b(assistan)-31 b(t)511 b(annotations)h(of)d(Sections)h(3)g +(and)f(4,)545 b(adding)510 b(a)p RoyalBlue 510 w Fs({{)p +Black Mahogany 581 w(lex)p Black 31 735 a(alphanum)p +RoyalBlue(})r(})p Black 325 w Fx(hom)326 b(to)g(the)p +Mahogany 325 w Fs(metavar)p Black 326 w Fx(declaration)h(to)f(sp)31 +b(ecify)325 b(the)h(lexical)h(form)e(of)h(concrete)f(v)-61 +b(ariables)326 b(of)g(this)f(sort.)31 2063 y(A)-31 b(t)247 +b(presen)-31 b(t)246 b(a)p Mahogany 247 w Fs(lex)p Black +246 w Fx(homomorphism)j(m)-31 b(ust)246 b(ha)-31 b(v)g(e)248 +b(b)31 b(o)g(dy)246 b(either)p Mahogany 246 w Fs(Alphanum)p +Black 247 w Fx(\(standing)i(for)f Fs([A-Z]\([A-Z]|[a-z]|[0-9]|'|_\)*)p +Fx(\),)p Mahogany 31 3391 a Fs(alphanum)p Black 248 w +Fx(\(for)f Fs(\([A-Z]|[a-z]\)\([A-Z]|[a-z]|[0-9]|'|_\)*)p +Fx(\),)p Mahogany 278 w Fs(alphanum0)p Black 247 w Fx(\(for)h +Fs([a-z]\([A-Z]|[a-z]|[0-9]|'|_\)*)p Fx(\),)31 4720 y(or)p +Mahogany 411 w Fs(numeral)p Black 411 w Fx(\(for)410 +b Fs([0-9][0-9]*)p Fx(\);)433 b(more)411 b(general)g(regular)f +(expressions)g(are)g(not)h(supp)31 b(orted.)615 b(An)410 +b(iden)-31 b(ti\014er)411 b(that)31 6048 y(can)350 b(b)31 +b(e)349 b(am)-31 b(biguously)352 b(lexed)e(as)f(either)h(a)g(concrete)g +(or)f(sym)-31 b(b)31 b(olic)351 b(meta)-31 b(v)-61 b(ariable,)356 +b(e.g.)351 b Fs(x)e Fx(in)h(the)g(scop)31 b(e)349 b(of)h(the)f(ab)31 +b(o)-31 b(v)g(e)31 7376 y(declaration,)371 b(will)d(b)31 +b(e)367 b(tak)-31 b(en)368 b(to)g(b)31 b(e)366 b(sym)-31 +b(b)31 b(olic.)494 b(T)-92 b(o)367 b(restrict)g(the)g(parser)f(to)i +(strictly)g(concrete)g(terms)e(only)-92 b(,)369 b(one)e(can)31 +8705 y(add)j(a)p Mahogany 369 w Fs(:concrete:)p Black +494 w Fx(pre\014x,)f(as)g(sho)-31 b(wn)370 b(in)f(Figure)g(10.)31 +10697 y(One)524 b(can)f(also)h(sp)31 b(ecify)524 b(ho)-31 +b(w)524 b(concrete)f(v)-61 b(ariables)524 b(should)g(b)31 +b(e)523 b(L)28248 10470 y Fu(A)28736 10697 y Fx(T)29350 +10935 y(E)29965 10697 y(X'd)h(or)f(translated)i(in)-31 +b(to)525 b(a)e(pro)31 b(of)524 b(assistan)-31 b(t,)31 +12026 y(e.g.)586 b(with)f(homomorphisms)p RoyalBlue 587 +w Fs({{)p Black Mahogany 581 w(texvar)p Black 582 w(\\mathrm{)p +RoyalBlue 1 w([[)p Black(termvar)p RoyalBlue(]])p Black +RoyalBlue(})r(})p Black 584 w Fx(and)p RoyalBlue 585 +w Fs({{)p Black Mahogany 581 w(isavar)p Black 582 w('')p +RoyalBlue([[)p Black(termvar)p RoyalBlue(]])p Black('')p +RoyalBlue(})s(})p Black 31 13354 a Fx(\(and)370 b(similarly)p +Mahogany 372 w Fs(coqvar)p Black Fx(,)p Mahogany 370 +w Fs(holvar)p Black Fx(,)g(and)p Mahogany 370 w Fs(ocamlvar)p +Black Fx(\).)31 15346 y(Figure)478 b(2)g(also)g(sp)31 +b(eci\014es)476 b(an)i(OCaml)h(represen)-31 b(tation)479 +b(t)-31 b(yp)31 b(e)478 b(for)f(v)-61 b(ariables,)506 +b(with)478 b(the)p Mahogany 478 w Fs(metavar)p Black +478 w Fx(hom)p RoyalBlue 479 w Fs({{)p Black Mahogany +581 w(ocaml)p Black 31 16675 a(int)p RoyalBlue(})q(})p +Black Fx(.)493 b(Executing)p Black Black 1775 18667 a +Fs(bin/ott)582 b(-i)g(tests/test10.ott)h(-o)f(test10.ml)31 +20660 y Fx(pro)31 b(duces)398 b(the)h(OCaml)h(co)31 b(de)398 +b(sho)-31 b(wn)399 b(in)f(Figure)h(9,)406 b(including)400 +b(OCaml)g(t)-31 b(yp)31 b(es)399 b(to)g(represen)-31 +b(t)397 b(the)i(abstract)g(syn)-31 b(tax,)31 21988 y(and)389 +b(auxiliary)i(functions)e(for)g(subrules)e(and)i(substitutions.)552 +b(This)389 b(do)31 b(es)388 b(not)h(implemen)-31 b(t)391 +b(the)d(seman)-31 b(tic)390 b(rules.)550 b(In)31 23317 +y(some)370 b(cases)f(the)g(v)-61 b(arious)370 b(pro)31 +b(of)369 b(assistan)-31 b(t)371 b(co)31 b(de)369 b(extraction)i +(facilities)h(can)d(b)31 b(e)369 b(used)f(|)h(see)g(Section)h(21.)31 +27641 y FC(8)1793 b(Filtering:)700 b(Using)399 b(Ott)g(syn)-50 +b(tax)400 b(within)g(L)30020 27307 y Fp(A)30714 27641 +y FC(T)31662 27996 y(E)32615 27641 y(X,)439 b(Co)50 b(q,)438 +b(Isab)50 b(elle,)440 b(HOL,)2721 29634 y(or)598 b(OCaml)31 +32944 y Fq(8.1)1495 b(Filtering)500 b(em)-42 b(b)42 b(edded)499 +b(co)42 b(de)31 35651 y Fx(It)410 b(is)g(p)31 b(ossible)410 +b(to)g(em)-31 b(b)31 b(ed)410 b(arbitrary)h(co)31 b(de)409 +b(in)h(the)g(Ott)h(source)e(using)h(an)p Mahogany 410 +w Fs(embed)p Black 410 w Fx(blo)31 b(c)-31 b(k,)422 b(whic)-31 +b(h)410 b(can)g(con)-31 b(tain)p Mahogany 412 w Fs(tex)p +Black Fx(,)p Mahogany 31 36980 a Fs(coq)p Black Fx(,)p +Mahogany 360 w Fs(hol)p Black Fx(,)p Mahogany 360 w Fs(isa)p +Black Fx(,)359 b(or)p Mahogany 356 w Fs(ocaml)p Black +357 w Fx(homomorphisms,)i(the)c(b)31 b(o)g(dies)356 b(of)g(whic)-31 +b(h)357 b(will)h(app)31 b(ear)357 b(in)f(the)g(resp)31 +b(ectiv)-31 b(e)357 b(output.)489 b(The)31 38308 y Fs(embed)392 +b Fx(k)-31 b(eyw)g(ord)392 b(should)g(b)31 b(e)390 b(on)i(a)f(line)h(b) +-31 b(y)391 b(itself)86 b(\).)560 b(F)-92 b(or)390 b(example,)398 +b Fs(test8.ott)393 b Fx(con)-31 b(tains)392 b(the)f(follo)-31 +b(wing)395 b(to)d(de\014ne)31 39636 y(Co)31 b(q)370 b(and)g(HOL)f +Fs(remove_duplicates)i Fx(functions.)p Mahogany Black +Mahogany 31 41629 a Fs(embed)p Black RoyalBlue 31 42957 +a({)q({)p Black Mahogany 581 w(coq)p Black 31 44286 a(Fixpoint)583 +b(remove_duplicates)h(\(l:list)e(typvar_t\))g(:)f(list)h(typvar_t)h(:=) +1194 45614 y(match)f(l)f(with)1194 46942 y(|)g(nil)h(=>)f(nil)1194 +48271 y(|)g(cons)h(h)f(t)g(=>)h(if)f(\(list_mem)i(eq_typvar_t)g(h)e +(t\))1162 b(then)582 b(remove_duplicates)i(t)9330 49599 +y(else)e(cons)f(h)h(\(remove_duplicates)h(t\))31 50927 +y(end.)p RoyalBlue 582 w(}})p Black RoyalBlue 31 53584 +a({)q({)p Black Mahogany 581 w(hol)p Black 31 54913 a(val)f(_)f(=)h +(Define)g(`)1194 56241 y(\(remove_duplicates)i([])d(=)g([]\))h(/\\)1194 +57569 y(\(remove_duplicates)i(\(x::xs\))e(=)f(if)h(\(MEM)f(x)h(xs\))f +(then)h(remove_duplicates)i(xs)18047 58898 y(else)e +(x::\(remove_duplicates)i(xs\)\))31 60226 y(`;)p RoyalBlue +582 w(}})p Black 31 62218 a Fx(Within)366 b(the)g(b)31 +b(o)g(dy)365 b(of)g(an)p Mahogany 365 w Fs(embed)p Black +366 w Fx(homomorphism,)j(an)-31 b(y)366 b(text)g(b)31 +b(et)-31 b(w)g(een)p RoyalBlue 366 w Fs([[)p Black 365 +w Fx(and)p RoyalBlue 365 w Fs(]])p Black 365 w Fx(will)367 +b(b)31 b(e)364 b(parsed)h(as)g(a)g(sym)-31 b(b)31 b(olic)31 +63547 y(term)459 b(\(of)g(the)f Fs(user_syntax)h Fx(grammar\))h(and)e +(prett)-31 b(y)458 b(prin)-31 b(ted,)481 b(so)458 b(one)g(can)h(use)e +(user)g(syn)-31 b(tax)459 b(within)g(L)46149 63320 y +Fu(A)46637 63547 y Fx(T)47251 63785 y(E)47867 63547 y(X)f(or)31 +64875 y(pro)31 b(of)401 b(assistan)-31 b(t)401 b(co)31 +b(de.)584 b(An)400 b(Isab)31 b(elle)400 b(example)h(is)f(b)31 +b(elo)-31 b(w,)409 b(de\014ning)400 b(an)g(Isab)31 b(elle)401 +b(function)g(to)f(calculate)i(the)e(order)31 66204 y(of)370 +b(a)g(t)-31 b(yp)31 b(e)369 b(with)i(pro)31 b(ductions)370 +b Fs(unit)p Fx(,)g Fs(t*t')p Fx(,)g(and)f Fs(t->t')p +Fx(.)p RoyalBlue Black RoyalBlue 31 68196 a Fs({)q({)p +Black Mahogany 581 w(isa)p Black 31 69524 a(consts)31 +70853 y(order)582 b(::)g("type)g(=>)f(nat")31 72181 y(primrec)31 +73509 y("order)p RoyalBlue 583 w([[)p Black(unit)p RoyalBlue(]])p +Black 582 w(=)g(0")p Black 24533 77841 a Fx(24)p Black +eop end +%%Page: 25 25 +TeXDict begin 25 24 bop Black Black Black 0 8457 50863 +45 v 0 62172 45 53716 v Black Black 376 9481 a Fw(\045)523 +b(all)p Mahogany 376 10699 a(metavar)p Black 524 w(termvar)p +RoyalBlue(,)p Black 523 w(x)p RoyalBlue 523 w(::=)p Black +RoyalBlue 1569 w({{)p Black Mahogany 523 w(com)p Black +1046 w(term)h(variable)p RoyalBlue 523 w(}})p Black RoyalBlue +376 11916 a({{)p Black Mahogany 523 w(isa)p Black 524 +w(string)p RoyalBlue(}})p Black RoyalBlue 523 w({{)p +Black Mahogany 523 w(coq)p Black 523 w(nat)p RoyalBlue(}})p +Black RoyalBlue 523 w({{)p Black Mahogany 523 w(hol)p +Black 524 w(string)p RoyalBlue(}})p Black RoyalBlue 523 +w({{)p Black Mahogany 523 w(coq-equality)p Black RoyalBlue +523 w(}})p Black RoyalBlue 376 13134 a({{)p Black Mahogany +523 w(ocaml)p Black 524 w(int)p RoyalBlue(}})p Black +RoyalBlue 523 w({{)p Black Mahogany 523 w(lex)p Black +523 w(alphanum)p RoyalBlue(}})p Black RoyalBlue 523 w({{)p +Black Mahogany 524 w(tex)p Black 523 w(\\mathit{)p RoyalBlue([[)p +Black(termvar)p RoyalBlue(]])p Black(})p RoyalBlue 523 +w(}})p Black Mahogany 376 15569 a(grammar)p Black 376 +16787 a(t)p RoyalBlue 523 w(::)p Black 524 w('t_')p RoyalBlue +523 w(::=)p Black RoyalBlue 16214 w({{)p Black Mahogany +523 w(com)p Black 523 w(term)p RoyalBlue 2092 w(}})p +Black RoyalBlue 1422 18005 a(|)p Black 523 w(x)p RoyalBlue +6277 w(::)p Black RoyalBlue 1046 w(::)p Black 523 w(Var)p +RoyalBlue 9938 w({{)p Black Mahogany 523 w(com)p Black +523 w(variable)p RoyalBlue(}})p Black RoyalBlue 1422 +19222 a(|)p Black 523 w(\\)g(x)f(.)g(t)p RoyalBlue 3138 +w(::)p Black RoyalBlue 1046 w(::)p Black 523 w(Lam)p +RoyalBlue 523 w(\(+)p Black Mahogany 523 w(bind)p Black +524 w(x)p Mahogany 523 w(in)p Black 523 w(t)p RoyalBlue +523 w(+\))p Black RoyalBlue 523 w({{)p Black Mahogany +523 w(com)p Black 523 w(lambda)p RoyalBlue 1046 w(}})p +Black RoyalBlue 1422 20440 a(|)p Black 523 w(t)h(t')p +RoyalBlue 4707 w(::)p Black RoyalBlue 1046 w(::)p Black +523 w(App)p RoyalBlue 9938 w({{)p Black Mahogany 523 +w(com)p Black 523 w(app)p RoyalBlue 2615 w(}})p Black +RoyalBlue 1422 21658 a(|)p Black 523 w(\()g(t)f(\))p +RoyalBlue 4184 w(::)p Black Mahogany 523 w(S)p Black +RoyalBlue(::)p Black 523 w(Paren)p RoyalBlue 8892 w({{)p +Black Mahogany 523 w(icho)p Black RoyalBlue 523 w([[)p +Black(t)p RoyalBlue(]])p Black RoyalBlue 1046 w(}})p +Black RoyalBlue 1422 22875 a(|)p Black 523 w({)h(t)f(/)g(x)g(})g(t')p +RoyalBlue 523 w(::)p Black Mahogany 523 w(M)p Black RoyalBlue(::)p +Black 523 w(Tsub)p RoyalBlue 12929 24093 a({{)p Black +Mahogany 523 w(icho)p Black 523 w(\(tsubst_t)p RoyalBlue +524 w([[)p Black(t)p RoyalBlue(]])p Black RoyalBlue 523 +w([[)p Black(x)p RoyalBlue(]])p Black RoyalBlue 523 w([[)p +Black(t')p RoyalBlue(]])p Black(\))p RoyalBlue(}})p Black +376 26528 a(v)p RoyalBlue 523 w(::)p Black 524 w('v_')p +RoyalBlue 523 w(::=)p Black RoyalBlue 16214 w({{)p Black +Mahogany 523 w(com)p Black 523 w(value)p RoyalBlue 1569 +w(}})p Black RoyalBlue 1422 27746 a(|)p Black 523 w(\\)h(x)f(.)g(t)p +RoyalBlue 3138 w(::)p Black RoyalBlue 1046 w(::)p Black +523 w(Lam)p RoyalBlue 9938 w({{)p Black Mahogany 523 +w(com)p Black 523 w(lambda)p RoyalBlue 1046 w(}})p Black +Mahogany 376 30181 a(terminals)p Black RoyalBlue 524 +w(::)p Black 523 w('terminals_')p RoyalBlue 523 w(::=)p +Black RoyalBlue 1422 31399 a(|)p Black 523 w(\\)p RoyalBlue +6277 w(::)p Black RoyalBlue 1046 w(::)p Black 523 w(lambda)p +RoyalBlue 1046 w({{)p Black Mahogany 524 w(tex)p Black +523 w(\\lambda)p RoyalBlue 523 w(}})p Black RoyalBlue +1422 32617 a(|)p Black 523 w(-->)p RoyalBlue 5231 w(::)p +Black RoyalBlue 1046 w(::)p Black 523 w(red)p RoyalBlue +2615 w({{)p Black Mahogany 524 w(tex)p Black 523 w(\\longrightarrow)p +RoyalBlue 523 w(}})p Black Mahogany 376 35052 a(subrules)p +Black 1422 36270 a(v)p RoyalBlue 523 w(<::)p Black 524 +w(t)p Mahogany 376 38705 a(substitutions)p Black Mahogany +1422 39923 a(single)p Black 524 w(t)g(x)p RoyalBlue 523 +w(::)p Black 523 w(tsubst)p Mahogany 376 42358 a(defns)p +Black 376 43575 a(Jop)p RoyalBlue 523 w(::)p Black 524 +w('')p RoyalBlue 523 w(::=)p Black Mahogany 899 46011 +a(defn)p Black 899 47228 a(t1)g(-->)h(t2)p RoyalBlue +523 w(::)p Black RoyalBlue 523 w(::)p Black(reduce)p +RoyalBlue(::)p Black('')p RoyalBlue 523 w({{)p Black +Mahogany 523 w(com)p Black 523 w($)p RoyalBlue([[)p Black(t1)p +RoyalBlue(]])p Black($)g(reduces)f(to)g($)p RoyalBlue([[)p +Black(t2)p RoyalBlue(]])p Black($)p RoyalBlue(}})p Black +Mahogany 523 w(by)p Black RoyalBlue 2468 50881 a +(--------------------------)p Black 1047 w(::)h(ax_app)2468 +52099 y(\(\\)q(x.t12\))f(v2)g(-->)1046 b({v2/x}t12)2468 +54534 y(t1)524 b(-->)f(t1')p RoyalBlue 2468 55752 a(--------------)p +Black 524 w(::)g(ctx_app_fun)2468 56970 y(t1)h(t)f(-->)g(t1')g(t)2468 +59405 y(t1)h(-->)f(t1')p RoyalBlue 2468 60623 a(--------------)p +Black 524 w(::)g(ctx_app_arg)2468 61840 y(v)h(t1)f(-->)g(v)g(t1')p +50819 62172 V 0 62216 50863 45 v Black 17145 64191 a +Fx(Figure)369 b(8:)493 b(Source:)f Fs(test10.7.ott)p +Black Black Black 24502 77841 a Fx(25)p Black eop end +%%Page: 26 26 +TeXDict begin 26 25 bop Black Black Black 31 16366 50863 +45 v 31 54251 45 37886 v Black Black 408 17390 a Fw(\(*)523 +b(generated)g(by)g(Ott)h(0.28)f(from:)g(../tests/test10.ott)h +(../tests/non_super_tabular.ott)g(*\))408 19825 y(type)f(var)g(=)g(int) +g(\(*)g(term)h(variable)f(*\))408 22260 y(type)408 23478 +y(term)g(=)1046 b(\(*)523 b(term)g(*\))1977 24696 y(T_var)g(of)g(var)g +(\(*)g(variable)h(*\))931 25913 y(|)f(T_lam)g(of)g(var)g(*)g(term)h +(\(*)f(lambda)g(*\))931 27131 y(|)g(T_app)g(of)g(term)g(*)g(term)h(\(*) +f(app)g(*\))408 30784 y(\(**)g(subrules)g(*\))408 32002 +y(let)g(is_val_of_term)g(\(t5:term\))h(:)f(bool)g(=)1454 +33219 y(match)g(t5)g(with)1454 34437 y(|)g(\(T_var)g(x\))g(->)g(false) +1454 35655 y(|)g(\(T_lam)g(\(x,t\)\))g(->)h(\(true\))1454 +36872 y(|)f(\(T_app)g(\(t,t'\)\))g(->)h(false)408 41743 +y(\(**)f(substitutions)g(*\))408 42961 y(let)g(rec)g(tsubst_term)h +(\(t5:term\))f(\(x5:var\))g(\(t_6:term\))g(:)h(term)f(=)1454 +44178 y(match)g(t_6)g(with)1454 45396 y(|)g(\(T_var)g(x\))g(->)g(\(if)h +(x=x5)f(then)g(t5)g(else)g(\(T_var)g(x\)\))1454 46613 +y(|)g(\(T_lam)g(\(x,t\)\))g(->)h(T_lam)f(\(x,\(if)g(List.mem)g(x5)g +(\([x]\))h(then)f(t)g(else)g(\(tsubst_term)g(t5)g(x5)h(t\)\)\))1454 +47831 y(|)f(\(T_app)g(\(t,t'\)\))g(->)h(T_app)f(\(\(tsubst_term)g(t5)g +(x5)g(t\),\(tsubst_term)h(t5)f(x5)g(t'\)\))408 51484 +y(\(**)g(definitions)g(*\))p 50850 54251 V 31 54295 50863 +45 v Black 13970 56282 a Fx(Figure)369 b(9:)493 b(Generated)369 +b(OCaml)i(co)31 b(de:)493 b Fs(test10.ml)p Black Black +Black 24533 77841 a Fx(26)p Black eop end +%%Page: 27 27 +TeXDict begin 27 26 bop Black Black 0 -594 a Fs("order)p +RoyalBlue 582 w([[)p Black(t*t')p RoyalBlue(]])p Black +582 w(=)582 b(max)f(\(order)p RoyalBlue 582 w([[)p Black(t)p +RoyalBlue(]])p Black(\))h(\(order)p RoyalBlue 582 w([[)p +Black(t')p RoyalBlue(]])p Black(\)")0 735 y("order)p +RoyalBlue 582 w([[)p Black(t->t')p RoyalBlue(]])p Black +583 w(=)f(max)g(\(1+order)p RoyalBlue 583 w([[)p Black(t)p +RoyalBlue(]])p Black(\))h(\(order)p RoyalBlue 582 w([[)p +Black(t')p RoyalBlue(]])p Black(\)")p RoyalBlue 0 3391 +a(}})p Black 0 5384 a Fx(It)360 b(is)g(often)g(useful)g(to)h(de\014ne)f +(a)g(pro)31 b(of)360 b(assistan)-31 b(t)361 b(function,)j(in)c(an)p +Mahogany 360 w Fs(embed)p Black 360 w Fx(section,)j(together)e(with)h +(a)e(pro)31 b(duction)361 b(of)0 6712 y(the)p Mahogany +427 w Fs(formula)p Black 428 w Fx(grammar)428 b(with)f(a)g(pro)31 +b(of)427 b(assistan)-31 b(t)429 b(hom)e(that)h(uses)e(that)i(function,) +443 b(thereb)-31 b(y)427 b(in)-31 b(tro)31 b(ducing)428 +b(syn)-31 b(tax)0 8040 y(that)370 b(lets)g(the)f(function)i(b)31 +b(e)369 b(used)f(in)i(seman)-31 b(tic)370 b(rules.)0 +10033 y(Ott)307 b(also)f(p)31 b(ermits)306 b(em)-31 b(b)31 +b(ed)306 b(blo)31 b(c)-31 b(ks)307 b(with)p Mahogany +307 w Fs(tex-preamble)p Black Fx(,)320 b(homs,)g(whose)306 +b(con)-31 b(ten)g(ts)307 b(app)31 b(ear)306 b(in)g(the)g(generated)g(L) +47562 9806 y Fu(A)48050 10033 y Fx(T)48664 10271 y(E)49280 +10033 y(X)0 11361 y(pream)-31 b(ble.)494 b(An)-31 b(y)369 +b(de\014nitions)i(of)e(L)14477 11134 y Fu(A)14965 11361 +y Fx(T)15579 11600 y(E)16195 11361 y(X)g(commands)i(m)-31 +b(ust)370 b(app)31 b(ear)369 b(in)g(suc)-31 b(h)369 b(a)p +Mahogany 370 w Fs(tex-preamble)p Black 370 w Fx(section.)0 +15124 y Fq(8.2)1495 b(Filtering)500 b(\014les)0 17832 +y Fx(Similar)475 b(pro)31 b(cessing)474 b(can)f(b)31 +b(e)473 b(carried)h(out)g(on)g(separate)g(\014les,)500 +b(using)474 b(the)f(command-line)j(options)f Fs(tex_filter)p +Fx(,)0 19160 y Fs(isa_filter)p Fx(,)534 b(etc.)884 b(Eac)-31 +b(h)500 b(of)g(these)g(tak)-31 b(es)500 b(t)-31 b(w)g(o)502 +b(argumen)-31 b(ts,)533 b(a)500 b(source)f(\014lename)i(and)f(a)g +(destination)h(\014lename.)0 20488 y(In)486 b(pro)31 +b(cessing)486 b(the)h(source)f(\014le,)517 b(an)-31 b(y)487 +b(text)g(b)31 b(et)-31 b(w)g(een)p RoyalBlue 488 w Fs([[)p +Black 486 w Fx(and)p RoyalBlue 487 w Fs(]])p Black 487 +w Fx(will)488 b(b)31 b(e)486 b(parsed)g(as)h(a)f(sym)-31 +b(b)31 b(olic)488 b(term)f(\(of)h(the)0 21817 y Fs(user_syntax)371 +b Fx(grammar\))g(and)e(prett)-31 b(y)370 b(prin)-31 b(ted)370 +b(in)f(the)h(appropriate)g(st)-31 b(yle.)494 b(All)370 +b(other)f(text)h(is)g(simply)g(ec)-31 b(ho)31 b(ed.)0 +23809 y(T)-31 b(ypical)263 b(usage)f(for)f(L)8680 23582 +y Fu(A)9168 23809 y Fx(T)9782 24048 y(E)10398 23809 y(X)g(w)-31 +b(ould)262 b(b)31 b(e)261 b(something)i(lik)-31 b(e)262 +b(this)g(\(from)g(the)f Fs(Makefile)h Fx(used)f(to)h(pro)31 +b(duce)260 b(this)i(do)31 b(cumen)-31 b(t\):)p Black +Black 0 25802 a Fs(test7.tex:)583 b(../src/ott)f(../tests/test7.ott)i +(../tests/test7tt.mng)5230 27130 y(cd)e(../src;)g(make)g +(tmp_test7_clean.ott)5230 28458 y(../src/ott)23248 b(\\)9298 +29787 y(-i)582 b(../src/tmp_test7_clean.ott)8140 b(\\)9298 +31115 y(-o)582 b(test7.tex)18017 b(\\)9298 32444 y(-tex_show_meta)584 +b(false)13367 b(\\)9298 33772 y(-tex_wrap)583 b(false)16273 +b(\\)9298 35100 y(-tex_name_prefix)584 b(testSeven)9881 +b(\\)9298 36429 y(-tex_filter)583 b(../tests/test7tt.mng)h(test7tt.tex) +0 38421 y Fx(The)415 b Fs(-tex_wrap)582 b(false)416 b +Fx(turns)e(o\013)g(output)i(of)f(the)g(default)h(L)27002 +38194 y Fu(A)27490 38421 y Fx(T)28104 38659 y(E)28720 +38421 y(X)f(do)31 b(cumen)-31 b(t)415 b(pream)-31 b(ble,)428 +b(so)415 b(the)f(generated)i(\014le)0 39749 y Fs(test7.tex)509 +b Fx(just)f(con)-31 b(tains)509 b(L)12839 39523 y Fu(A)13327 +39749 y Fx(T)13941 39988 y(E)14557 39749 y(X)e(de\014nitions.)910 +b(The)508 b Fs(-tex_name_prefix)584 b(testSeven)508 b +Fx(sets)g(a)g(pre\014x)f(for)h(the)0 41078 y(generated)408 +b(L)5377 40851 y Fu(A)5865 41078 y Fx(T)6479 41316 y(E)7095 +41078 y(X)f(commands)h(\(so)g(the)g(L)17915 40851 y Fu(A)18403 +41078 y Fx(T)19017 41316 y(E)19632 41078 y(X)g(de\014nitions)g(from)g +(m)-31 b(ultiple)410 b(Ott)e(source)e(\014les)i(can)f(b)31 +b(e)407 b(included)h(in)0 42406 y(a)358 b(single)h(L)4274 +42179 y Fu(A)4762 42406 y Fx(T)5376 42644 y(E)5992 42406 +y(X)e(do)31 b(cumen)-31 b(t\).)491 b(The)358 b Fs(-tex_filter)h +Fx(argumen)-31 b(t)360 b(tak)-31 b(es)358 b(t)-31 b(w)g(o)360 +b(\014lenames,)i(a)c(source)f(and)h(a)g(destination.)0 +43735 y(It)377 b(\014lters)g(the)g(source)f(\014le,)k(\(roughly\))e +(replacing)h(an)-31 b(y)377 b(string)g(found)h(within)g +Fs([[)f(]])g Fx(b)-31 b(y)377 b(the)h(tex)f(prett)-31 +b(y-prin)g(t)378 b(of)g(its)0 45063 y(parse.)683 b(This)433 +b(parsing)h(is)e(done)h(w.r.t.)i(the)e(generated)h(non)-31 +b(terminal)435 b Fs(user_syntax)f Fx(whic)-31 b(h)434 +b(is)f(a)g(union)g(of)h(all)g(the)0 46391 y(user's)368 +b(grammar.)0 48384 y(A)-31 b(t)388 b(presen)-31 b(t)386 +b(m)-31 b(unged)388 b(strings)f(are)f(not)i(automatically)k(put)387 +b(within)h Fs($)f($)p Fx(,)392 b(and)387 b(there)g(is)f(no)i(analogue)h +(of)e(the)g Fs(<[)g(]>)0 49712 y Fx(of)370 b(our)f(previous)g(m)-31 +b(unger.)0 51705 y(The)344 b(lexing)h(turns)d(an)-31 +b(y)345 b(sequence)d(of)i Fs([)g Fx(\(resp.)483 b(of)344 +b Fs(])p Fx(\))g(of)g(length)h Fn(n)194 b Fx(+)h(1)344 +b(for)f Fn(n)308 b(>)f Fx(2)344 b(in)-31 b(to)345 b(a)f(literal)h +(sequence)e(of)h(length)0 53033 y Fn(n)p Fx(.)0 55026 +y(Figures)352 b(10)i(and)f(11)g(sho)-31 b(w)354 b(a)f(source)f(\014le)h +(\()p Fs(test7tt.mng)p Fx(\))i(that)f(uses)e(terms)g(of)i(the)f(F)36989 +55192 y Fr(<)p Fu(:)38339 55026 y Fx(de\014nition)h(of)439 +b Fs(test7.ott)p Fx(,)0 56354 y(and)369 b(the)h(result)f(of)h +(\014ltering)g(it.)0 58346 y(Similar)h(\014ltering)f(can)g(b)31 +b(e)369 b(p)31 b(erformed)368 b(on)i(Co)31 b(q,)370 b(Isab)31 +b(elle,)370 b(HOL,)g(and)f(OCaml)i(\014les.)0 60339 y(T)-92 +b(o)386 b(\014lter)g(\014les)g(with)h(resp)31 b(ect)385 +b(to)h(a)g(relativ)-31 b(ely)389 b(stable)d(system)g(de\014nition,)392 +b(without)c(ha)-31 b(ving)388 b(to)e(re-pro)31 b(cess)384 +b(the)i(Ott)0 61667 y(source)369 b(\014les)g(of)g(that)i(system)e +(de\014nition)i(eac)-31 b(h)370 b(time,)h(there)e(are)g(command-line)i +(options)p Black Black 1162 63660 a Fs(-writesys)583 +b()9300 b(Output)582 b(system)g(definition)1162 +64988 y(-readsys)h()9881 b(Input)582 b(system)g(definition)0 +66981 y Fx(to)464 b(\014rst)f(write)h(the)f(system)h(de\014nition)h +(\(generated)f(from)g(some)g(source)f(\014les\))g(to)h(a)g(\014le,)488 +b(and)463 b(then)h(to)g(read)f(one)0 68309 y(bac)-31 +b(k)499 b(in)g(\(instead)h(of)f(re-reading)g(the)g(Ott)g(source)f +(\014les\).)882 b(The)498 b(sa)-31 b(v)g(ed)500 b(system)f +(de\014nitions)g(are)g(in)g(an)g(in)-31 b(ternal)0 69637 +y(format,)364 b(pro)31 b(duced)359 b(using)i(the)f(OCaml)i(marshaller,) +h(and)d(con)-31 b(tain)362 b(OCaml)g(closures.)489 b(They)361 +b(therefore)f(will)i(not)f(b)31 b(e)0 70966 y(compatible)372 +b(b)31 b(et)-31 b(w)g(een)370 b(di\013eren)-31 b(t)369 +b(Ott)h(v)-31 b(ersions.)493 b(They)370 b(ma)-31 b(y)370 +b(also)g(b)31 b(e)369 b(quite)h(large.)p Black 24502 +77841 a(27)p Black eop end +%%Page: 28 28 +TeXDict begin 28 27 bop Black Black Black Black Black +31 17459 a Fs(We)582 b(can)g(TeX-typeset)g(symbolic)h(terms)f(of)f(the) +h(language,)g(e.g.)31 18787 y(\\)q([)p RoyalBlue 581 +w([[)p Black 581 w(\(\\)q(X<:Top.)g(\\x:X.x\))g([Top->Top])p +RoyalBlue 583 w(]])p Black(\\])31 20116 y(and)g(concrete)g(terms)31 +21444 y(\\)q([)p RoyalBlue 581 w([[)p Black Mahogany +581 w(:concrete:)p Black 583 w(\\Z1<:Top.)h(\\x:Z1.x)p +RoyalBlue 582 w(]])p Black(\\])31 22772 y(and)f(similarly)h(judgements) +f(etc,)g(e.g.)31 24101 y(\\)q([)p RoyalBlue 581 w([[)p +Black(G)g(|-)f(t)g(:)h(T)p RoyalBlue 581 w(]])p Black +581 w(\\])31 26757 y(Here)g(is)g(an)f(extract)h(of)g(the)f(syntax:)31 +29414 y(\\)q(testSevengrammartabular{)s(\\testSevent\\)r +(testSevenafterlastrule})31 32071 y(and)h(a)f(single)h(semantic)h +(rule:)31 34727 y(\\)q([\\testSevendruletinXXTwo{)s(})q(\\])31 +37384 y(and)f(a)f(judgement)i(definition:)31 40041 y(\\)q +(testSevendefnSA)31 42698 y(One)f(can)g(also)f(include)i(a)e(`defns')h +(collection)h(of)e(judgements,)i(or)e(the)h(complete)g(definition.)31 +44026 y(\045)g(\\section{)q(Full)g(Definition})31 45354 +y(\045)g(\\testSevenmetavars\\)s(\\[0pt])31 46683 y(\045)g +(\\testSevengrammar\\)r(\\)q([0pt])31 48011 y(\045)g(\\testSevendefnss) +31 49339 y(\045)31 50668 y(\045)g(\\testSevenall)p Black +7759 55760 a Fx(Figure)369 b(10:)494 b(F)13882 55926 +y Fr(<)p Fu(:)15248 55760 y Fx(Extracts:)g(L)20455 55533 +y Fu(A)20943 55760 y Fx(T)21557 55998 y(E)22172 55760 +y(X)369 b(source)g(\014le)h(to)f(b)31 b(e)369 b(\014ltered)h(\()p +Fs(test7tt.mng)p Fx(\))p Black Black Black 24533 77841 +a(28)p Black eop end +%%Page: 29 29 +TeXDict begin 29 28 bop Black Black Black 0 5409 a Fx(W)-92 +b(e)368 b(can)i(T)-92 b(eX-t)-31 b(yp)31 b(eset)370 b(sym)-31 +b(b)31 b(olic)371 b(terms)e(of)h(the)f(language,)j(e.g.)16690 +7844 y(\(\003)p Fo(X)175 b Fn(<)p Fx(:)p Fp(T)-106 b(op)p +Fn(:)184 b(\025)p Fo(x)133 b Fx(:)q Fo(X)175 b Fn(:)184 +b Fo(x)133 b Fx(\)[)p Fp(T)-106 b(op)310 b Ft(!)d Fp(T)-106 +b(op)p Fx(])0 10279 y(and)369 b(concrete)h(terms)20242 +11608 y(\003Z1)q Fn(<)p Fx(:)p Fp(T)-106 b(op)p Fn(:)184 +b(\025)p Fx(x:)r(Z1)q Fn(:)g Fx(x)0 13600 y(and)369 b(similarly)j +(judgemen)-31 b(ts)370 b(etc,)g(e.g.)22896 14928 y(\000)308 +b Ft(`)f Fo(t)413 b Fx(:)308 b Fo(T)0 16921 y Fx(Here)369 +b(is)g(an)g(extract)h(of)g(the)g(syn)-31 b(tax:)664 18177 +y Fo(t)2762 b Fx(::=)18735 b(term)4378 19505 y Ft(j)1913 +b Fo(x)18220 b Fx(v)-61 b(ariable)4378 20833 y Ft(j)1913 +b Fn(\025)p Fo(x)133 b Fx(:)p Fo(T)147 b Fn(:)184 b Fo(t)6046 +b Fk(bind)307 b Fo(x)440 b Fk(in)308 b Fo(t)4537 b Fx(abstraction)4378 +22162 y Ft(j)1913 b Fo(t)289 b(t)7728 21760 y Fl(0)25332 +22162 y Fx(application)4378 23490 y Ft(j)1913 b Fx(\003)p +Fo(X)175 b Fn(<)p Fx(:)p Fo(T)147 b Fn(:)184 b Fo(t)4711 +b Fk(bind)307 b Fo(X)482 b Fk(in)308 b Fo(t)4186 b Fx(t)-31 +b(yp)31 b(e)370 b(abstraction)4378 24818 y Ft(j)1913 +b Fo(t)105 b Fx([)p Fo(T)147 b Fx(])16708 b(t)-31 b(yp)31 +b(e)370 b(application)4378 26147 y Ft(j)1913 b(f)p Fo(l)7434 +26313 y Fu(1)7869 26147 y Fx(=)-61 b Fo(t)9037 26313 +y Fu(1)9533 26147 y Fn(;)370 b(::)184 b(;)g Fo(l)11782 +26313 y Fi(n)12357 26147 y Fx(=)-61 b Fo(t)13525 26313 +y Fi(n)14160 26147 y Ft(g)10619 b Fx(record)4378 27475 +y Ft(j)1913 b Fo(t)105 b Fn(:)p Fo(l)17671 b Fx(pro)61 +b(jection)4378 28804 y Ft(j)1913 b Fp(let)185 b Fo(p)8 +b Fx(=)-61 b Fo(t)288 b Fp(in)185 b Fo(t)11964 28402 +y Fl(0)16042 28804 y Fk(bind)307 b Fx(b\()p Fo(p)70 b +Fx(\))308 b Fk(in)g Fo(t)22365 28402 y Fl(0)25332 28804 +y Fx(pattern)370 b(binding)4378 30132 y Ft(j)1913 b Fx(\()p +Fo(t)105 b Fx(\))8111 b Fk(S)0 31410 y Fx(and)369 b(a)h(single)g(seman) +-31 b(tic)371 b(rule:)20865 33779 y Fo(x)440 b Fx(:)308 +b Fo(T)455 b Ft(2)307 b Fx(\000)p 18416 34354 9452 45 +v 18416 35368 a Fo(x)440 b Fx(:)308 b Fo(T)455 b Ft(2)307 +b Fx(\000)p Fn(;)184 b Fo(X)24458 35048 y Fl(0)25077 +35368 y Fn(<)p Fx(:)308 b Fo(U)27557 35048 y Fl(0)29107 +34609 y Fj(tin)p 30848 34609 368 45 v 441 w(2)0 37127 +y Fx(and)369 b(a)h(judgemen)-31 b(t)371 b(de\014nition:)p +0 37497 6214 45 v 0 38973 45 1477 v 376 38598 a(\000)308 +b Ft(`)g Fo(S)440 b Fn(<)p Fx(:)308 b Fo(T)p 6169 38973 +V 0 39017 6214 45 v 2000 w(S)502 b Fx(is)369 b(a)g(subt)-31 +b(yp)31 b(e)369 b(of)h Fo(T)20659 40967 y Fx(\000)307 +b Ft(`)493 b Fp(ok)p 19075 41543 6645 45 v 19075 42557 +a Fx(\000)307 b Ft(`)h Fo(S)440 b Fn(<)p Fx(:)308 b Fp(T)-106 +b(op)26959 41797 y Fj(SA)p 28609 41797 368 45 v 441 w(Top)18708 +44477 y Fx(\000)308 b Ft(`)492 b Fp(ok)p 17565 45052 +5763 45 v 17565 46066 a Fx(\000)308 b Ft(`)g Fo(X)482 +b Fn(<)p Fx(:)308 b Fo(X)24568 45307 y Fj(SA)p 26218 +45307 368 45 v 440 w(Refl)p 29322 45307 V 441 w(TV)-129 +b(ar)17163 47814 y Fo(X)482 b Fn(<)p Fx(:)308 b Fo(U)489 +b Ft(2)307 b Fx(\000)17163 49142 y(\000)g Ft(`)h Fo(U)489 +b Fn(<)p Fx(:)308 b Fo(T)p 16609 49718 6938 45 v 17226 +50732 a Fx(\000)f Ft(`)h Fo(X)483 b Fn(<)p Fx(:)307 b +Fo(T)24786 49973 y Fj(SA)p 26436 49973 368 45 v 441 w(Trans)p +30279 49973 V 440 w(TV)-129 b(ar)18493 52480 y Fx(\000)307 +b Ft(`)h Fo(T)21268 52646 y Fu(1)22072 52480 y Fn(<)p +Fx(:)g Fo(S)24170 52646 y Fu(1)18493 53808 y Fx(\000)f +Ft(`)h Fo(S)21098 53974 y Fu(2)21902 53808 y Fn(<)p Fx(:)g +Fo(T)24170 53974 y Fu(2)p 15567 54384 12026 45 v 15567 +55398 a Fx(\000)f Ft(`)h Fo(S)18172 55564 y Fu(1)18977 +55398 y Ft(!)f Fo(S)21013 55564 y Fu(2)21817 55398 y +Fn(<)p Fx(:)h Fo(T)24085 55564 y Fu(1)24890 55398 y Ft(!)f +Fo(T)27096 55564 y Fu(2)28832 54638 y Fj(SA)p 30482 54638 +368 45 v 441 w(Arr)-25 b(o)g(w)17106 57269 y Fx(\000)307 +b Ft(`)h Fo(T)19881 57435 y Fu(1)20685 57269 y Fn(<)p +Fx(:)g Fo(S)22783 57435 y Fu(1)17106 58597 y Fx(\000)p +Fn(;)184 b Fo(X)483 b Fn(<)p Fx(:)308 b Fo(T)21863 58763 +y Fu(1)22667 58597 y Ft(`)g Fo(S)24273 58763 y Fu(2)25077 +58597 y Fn(<)p Fx(:)g Fo(T)27345 58763 y Fu(2)p 14910 +59172 15129 45 v 14910 60186 a Fx(\000)f Ft(`)h(8)p Fo(X)175 +b Fn(<)p Fx(:)p Fo(S)20296 60352 y Fu(1)20793 60186 y +Fn(:)184 b Fo(S)21906 60352 y Fu(2)22712 60186 y Fn(<)p +Fx(:)308 b Ft(8)p Fo(X)175 b Fn(<)p Fx(:)p Fo(T)27761 +60352 y Fu(1)28257 60186 y Fn(:)184 b Fo(T)29540 60352 +y Fu(2)31278 59427 y Fj(SA)p 32928 59427 368 45 v 441 +w(All)12364 62057 y Ft(8)p Fo(i)420 b Ft(2)308 b Fx(1)p +Fn(::)p Fo(m)85 b Fn(:)p Ft(9)p Fo(j)470 b Ft(2)307 b +Fx(1)p Fn(::)p Fo(n)85 b Fn(:)p Fx(\()p Fo(k)22837 62223 +y Fi(i)23188 62057 y Fx(=)-61 b Fo(l)24271 62223 y Fi(j)24967 +62057 y Ft(^)246 b Fx(\000)308 b Ft(`)f Fo(S)28556 62223 +y Fi(i)29274 62057 y Fn(<)p Fx(:)g Fo(T)31541 62223 y +Fi(j)31992 62057 y Fx(\))p 10893 62633 23001 45 v 10893 +63647 a(\000)g Ft(`)h(f)p Fo(k)13938 63813 y Fu(1)14743 +63647 y Fx(:)g Fo(S)15980 63813 y Fu(1)16477 63647 y +Fn(;)369 b(::)184 b(;)g Fo(k)18951 63813 y Fi(m)20124 +63647 y Fx(:)308 b Fo(S)21361 63813 y Fi(m)22224 63647 +y Ft(g)g Fn(<)p Fx(:)g Ft(f)p Fo(l)25397 63813 y Fu(1)26201 +63647 y Fx(:)g Fo(T)27608 63813 y Fu(1)28105 63647 y +Fn(;)369 b(::)184 b(;)g Fo(l)30353 63813 y Fi(n)31298 +63647 y Fx(:)308 b Fo(T)32705 63813 y Fi(n)33340 63647 +y Ft(g)35133 62887 y Fj(SA)p 36783 62887 368 45 v 441 +w(R)-32 b(cd)0 65467 y Fx(One)369 b(can)g(also)h(include)g(a)g(`defns') +g(collection)h(of)f(judgemen)-31 b(ts,)371 b(or)e(the)g(complete)i +(de\014nition.)p Black 10582 67902 a(Figure)e(11:)494 +b(F)16705 68068 y Fr(<)p Fu(:)18071 67902 y Fx(Extracts:)g(the)369 +b(\014ltered)h(output)g(\()p Fs(test7tt.tex)p Fx(\))p +Black Black Black 24502 77841 a(29)p Black eop end +%%Page: 30 30 +TeXDict begin 30 29 bop Black Black 31 -594 a FC(9)1793 +b(Binding)599 b(sp)50 b(eci\014cations)31 2495 y Fx(Our)369 +b(\014rst)g(example)h(in)-31 b(v)g(olv)g(ed)372 b(a)d(pro)31 +b(duction)370 b(with)h(a)e(single)h(binder:)15301 5528 +y Fo(t)2761 b Fx(::=)19015 6856 y Ft(j)1913 b Fn(\025)184 +b Fo(x)317 b Fn(:)184 b Fo(t)1434 b Fk(bind)308 b Fo(x)440 +b Fk(in)308 b Fo(t)2762 b Fx(Lam)31 9463 y(sp)31 b(eci\014ed)369 +b(b)-31 b(y)370 b(the)f(source)g(sho)-31 b(wn)370 b(in)f(Figure)g(4:)p +Black Black RoyalBlue 1194 11455 a Fs(|)p Black 581 w(\\)581 +b(x)h(.)f(t)p RoyalBlue 3487 w(::)p Black RoyalBlue 1163 +w(::)p Black 581 w(Lam)p RoyalBlue 2906 w(\(+)p Black +Mahogany 582 w(bind)p Black 581 w(x)p Mahogany 582 w(in)p +Black 581 w(t)p RoyalBlue 581 w(+\))p Black 31 13448 +a Fx(in)380 b(whic)-31 b(h)380 b(a)g(single)g(v)-61 b(ariable)380 +b(binds)f(in)h(a)f(single)h(subterm.)523 b(Realistic)381 +b(programming)g(languages)g(often)g(ha)-31 b(v)g(e)380 +b(m)-31 b(uc)g(h)31 14776 y(more)405 b(complex)g(binding)g(structures,) +412 b(e.g.)405 b(structured)e(patterns,)414 b(m)-31 b(ultiple)406 +b(m)-31 b(utually)406 b(recursiv)-31 b(e)404 b Fs(let)g +Fx(de\014nitions,)31 16104 y(comprehensions,)371 b(or-patterns,)f(and)f +(dep)31 b(enden)-31 b(t)369 b(record)g(patterns.)31 18097 +y(Ott)412 b(has)e(a)g(\015exible)i(metalanguage)i(for)c(sp)31 +b(ecifying)412 b(binding)f(structures,)420 b(expressiv)-31 +b(e)410 b(enough)h(to)h(co)-31 b(v)g(er)410 b(these.)617 +b(It)31 19425 y(comprises)482 b(t)-31 b(w)g(o)483 b(forms)f(of)g +(annotation)i(on)e(pro)31 b(ductions.)830 b(The)482 b(\014rst,)1018 +b Fk(bind)185 b Fo(mse)268 b Fk(in)185 b Fo(nonterm)85 +b Fx(,)1019 b(lets)482 b(one)f(sp)31 b(ecify)31 20754 +y(that)435 b(v)-61 b(ariables)434 b(bind)g(in)f(non)-31 +b(terminals)436 b(of)d(the)h(pro)31 b(duction,)451 b(as)433 +b(in)h(the)f Fs(Lam)h Fx(pro)31 b(duction)434 b(ab)31 +b(o)-31 b(v)g(e.)686 b(Here)866 b Fo(mse)950 b Fx(is)31 +22082 y(a)383 b Fo(metavariable)408 b(set)f(expr)-57 +b(ession)p Fx(,)385 b(e.g.)e(in)g(that)g(lam)-31 b(b)31 +b(da)383 b(pro)31 b(duction)383 b(just)f(the)g(singleton)i(meta)-31 +b(v)-61 b(ariable)767 b Fo(x)896 b Fx(of)382 b(the)31 +23410 y(pro)31 b(duction.)609 b(A)407 b(v)-61 b(ariable)408 +b(can)g(bind)g(in)f(m)-31 b(ultiple)410 b(non)-31 b(terminals,)419 +b(as)408 b(in)f(the)h(example)h(of)f(a)f(simple)h(recursiv)-31 +b(e)407 b Fs(let)31 24739 y Fx(b)31 b(elo)-31 b(w.)15698 +27772 y Fo(t)473 b Fx(::=)16805 29100 y Ft(j)738 b Fp(let)185 +b(rec)g Fo(x)440 b Fx(=)307 b Fo(t)290 b Fp(in)184 b +Fo(t)25823 28698 y Fl(0)28569 29100 y Fk(bind)307 b Fo(x)441 +b Fk(in)307 b Fo(t)28569 30428 y Fk(bind)g Fo(x)441 b +Fk(in)307 b Fo(t)33427 30027 y Fl(0)31 33035 y Fx(More)484 +b(complex)h(examples)g(require)e(one)h(to)h(collect)g(together)g(sets)f +(of)g(v)-61 b(ariables.)837 b(F)-92 b(or)483 b(example,)514 +b(the)484 b(grammar)31 34363 y(b)31 b(elo)-31 b(w)427 +b(\(sho)-31 b(wn)427 b(in)f(Ott)h(source)e(and)h(the)g(generated)g(L) +23580 34136 y Fu(A)24068 34363 y Fx(T)24682 34601 y(E)25298 +34363 y(X\))g(has)g(structured)f(patterns,)441 b(with)427 +b(a)851 b Fp(let)185 b Fo(p)656 b Fx(=)586 b Fo(t)289 +b Fp(in)184 b Fo(t)49831 33961 y Fl(0)31 35691 y Fx(pro)31 +b(duction)371 b(in)e(whic)-31 b(h)370 b(all)h(the)e(binders)g(of)g(the) +h(pattern)739 b Fo(p)438 b Fx(bind)370 b(in)f(the)h(con)-31 +b(tin)g(uation)741 b Fo(t)38884 35290 y Fl(0)39195 35691 +y Fx(.)p Black Black 31 37573 a Fw(t)p RoyalBlue 524 +w(::)p Black 523 w(E_)p RoyalBlue 523 w(::=)p Black RoyalBlue +1078 38791 a(|)p Black 523 w(x)p RoyalBlue 12552 w(::)p +Black RoyalBlue 1570 w(::)p Black 523 w(ident)p RoyalBlue +1078 40009 a(|)p Black 523 w(\()523 b(t1)g(,)g(t2)g(\))p +RoyalBlue 7322 w(::)p Black RoyalBlue 1570 w(::)p Black +523 w(pair)p RoyalBlue 1078 41226 a(|)p Black 523 w(let)g(p)g(=)g(t)g +(in)g(t')p RoyalBlue 5230 w(::)p Black RoyalBlue 1570 +w(::)p Black 523 w(letrec)p RoyalBlue 3138 w(\(+)p Black +Mahogany 523 w(bind)p Black 523 w(binders)p RoyalBlue(\()p +Black(p)p RoyalBlue(\))p Black Mahogany 524 w(in)p Black +523 w(t')p RoyalBlue 523 w(+\))p Black 31 44879 a(p)p +RoyalBlue 524 w(::)p Black 523 w(P_)p RoyalBlue 523 w(::=)p +Black RoyalBlue 1078 46097 a(|)p Black 523 w(_)p RoyalBlue +12552 w(::)p Black RoyalBlue 1570 w(::)p Black 523 w(wildcard)p +RoyalBlue 2092 w(\(+)p Black 523 w(binders)p RoyalBlue +523 w(=)p Black RoyalBlue 524 w({})p Black RoyalBlue +523 w(+\))p Black RoyalBlue 1078 47314 a(|)p Black 523 +w(x)p RoyalBlue 12552 w(::)p Black RoyalBlue 1570 w(::)p +Black 523 w(ident)p RoyalBlue 3661 w(\(+)p Black 523 +w(binders)p RoyalBlue 523 w(=)p Black 524 w(x)p RoyalBlue +523 w(+\))p Black RoyalBlue 1078 48532 a(|)p Black 523 +w(\()g(p1)g(,)g(p2)g(\))p RoyalBlue 7322 w(::)p Black +RoyalBlue 1570 w(::)p Black 523 w(pair)p RoyalBlue 4184 +w(\(+)p Black 523 w(binders)p RoyalBlue 523 w(=)p Black +524 w(binders)p RoyalBlue(\()p Black(p1)p RoyalBlue(\))p +Black Mahogany 523 w(union)p Black 523 w(binders)p RoyalBlue(\()p +Black(p2)p RoyalBlue(\))p Black RoyalBlue 523 w(+\))p +Black 696 52672 a Fo(t)473 b Fx(::=)1803 54001 y Ft(j)738 +b Fo(x)1803 55329 y Ft(j)g Fx(\()p Fo(t)3646 55495 y +Fu(1)4143 55329 y Fn(;)184 b Fo(t)5002 55495 y Fu(2)5499 +55329 y Fx(\))1803 56657 y Ft(j)738 b Fp(let)185 b Fo(p)377 +b Fx(=)307 b Fo(t)290 b Fp(in)184 b Fo(t)8952 56256 y +Fl(0)11698 56657 y Fk(bind)307 b Fx(binders\()p Fo(p)70 +b Fx(\))308 b Fk(in)g Fo(t)20921 56256 y Fl(0)696 58615 +y Fo(p)438 b Fx(::=)1803 59944 y Ft(j)p 2915 59944 333 +45 v 9588 w Fx(binders)307 b(=)g Ft(fg)1803 61272 y(j)738 +b Fo(x)8336 b Fx(binders)307 b(=)g Fo(x)1803 62601 y +Ft(j)738 b Fx(\()p Fo(p)3844 62767 y Fu(1)4341 62601 +y Fn(;)184 b Fo(p)5398 62767 y Fu(2)5895 62601 y Fx(\))5373 +b(binders)307 b(=)g(binders\()p Fo(p)21199 62767 y Fu(1)21696 +62601 y Fx(\))246 b Ft([)g Fx(binders\()p Fo(p)27867 +62767 y Fu(2)28363 62601 y Fx(\))31 65650 y(This)279 +b(is)f(expressed)f(with)j(the)e(second)g(form)h(of)g(annotation:)450 +b(user-de\014ned)277 b Fo(auxiliary)313 b(functions)370 +b Fx(suc)-31 b(h)278 b(as)g(the)g(binders)31 66978 y(ab)31 +b(o)-31 b(v)g(e.)518 b(This)378 b(is)f(an)h(auxiliary)h(function)g +(de\014ned)e(o)-31 b(v)g(er)377 b(the)755 b Fo(p)447 +b Fx(grammar)378 b(that)h(iden)-31 b(ti\014es)378 b(a)f(set)g(of)h(v) +-61 b(ariables)378 b(to)g(b)31 b(e)31 68306 y(used)301 +b(in)h(the)f Fk(bind)g Fx(annotation)k(on)c(the)603 b +Fp(let)301 b Fx(pro)31 b(duction.)471 b(There)301 b(can)g(b)31 +b(e)301 b(an)-31 b(y)302 b(n)-31 b(um)g(b)31 b(er)301 +b(of)h(suc)-31 b(h)301 b(auxiliary)i(functions;)31 69635 +y(binders)369 b(is)g(not)h(a)g(distinguished)g(k)-31 +b(eyw)g(ord.)31 71627 y(The)527 b(syn)-31 b(tax)527 b(of)f(a)g(precise) +f(fragmen)-31 b(t)528 b(of)e(the)g(binding)h(metalanguage)j(is)c(giv) +-31 b(en)527 b(in)f(Fig.)g(12,)1132 b(where)525 b(w)-31 +b(e)527 b(ha)-31 b(v)g(e)31 72956 y(used)465 b(Ott)h(to)f(de\014ne)g +(part)g(of)h(the)f(Ott)h(metalanguage.)783 b(A)465 b(simple)h(t)-31 +b(yp)31 b(e)465 b(system)g(\(not)i(sho)-31 b(wn\))466 +b(enforces)e(sanit)-31 b(y)p Black 24533 77841 a(30)p +Black eop end +%%Page: 31 31 +TeXDict begin 31 30 bop Black Black Black 0 -1657 50111 +45 v 0 35927 45 37584 v 849 -472 a FB(meta)-33 b(v)-65 +b(ars)1329 b Fh(metavarr)-52 b(o)g(ot)94 b Fg(;)342 b +Fh(mvr)1778 b(nontermr)-52 b(o)g(ot)94 b Fg(;)341 b Fh(ntr)6780 +746 y(terminal)103 b Fg(;)342 b Fh(t)4722 b(auxfn)78 +b Fg(;)342 b Fh(f)6780 1963 y(pr)-52 b(o)g(dname)75 b +Fg(;)342 b Fh(pn)3442 b(variable)76 b Fg(;)342 b Fh(var)849 +3291 y FB(grammar)2100 4620 y Fh(metavar)108 b Fg(;)513 +b Fh(mv)449 b FA(::=)3124 5838 y Ff(j)683 b Fh(metavarr)-52 +b(o)g(ot)265 b(su\016x)2100 7685 y(nonterm)80 b Fg(;)512 +b Fh(nt)435 b FA(::=)3124 8903 y Ff(j)683 b Fh(nontermr)-52 +b(o)g(ot)265 b(su\016x)2100 10750 y(element)96 b Fg(;)513 +b Fh(e)417 b FA(::=)3124 11968 y Ff(j)683 b Fh(terminal)3124 +13186 y Ff(j)g Fh(metavar)3124 14403 y Ff(j)g Fh(nonterm)2100 +16251 y(metavar)p 5863 16251 308 45 v 477 w(set)p 7554 +16251 V 463 w(expr)-52 b(ession)79 b Fg(;)513 b Fh(mse)417 +b FA(::=)3124 17469 y Ff(j)683 b Fh(metavar)3124 18686 +y Ff(j)g Fh(auxfn)78 b Fw(\()p Fh(nonterm)i Fw(\))3124 +19904 y Ff(j)683 b Fh(mse)247 b Fw(union)171 b Fh(mse)10647 +19481 y Fe(0)3124 21122 y Ff(j)683 b(fg)2100 22969 y +Fh(bindsp)-52 b(e)g(c)55 b Fg(;)513 b Fh(bs)423 b FA(::=)3124 +24187 y Ff(j)683 b Fw(bind)171 b Fh(mse)247 b Fw(in)171 +b Fh(nonterm)3124 25404 y Ff(j)683 b Fh(auxfn)363 b FA(=)284 +b Fh(mse)2100 27252 y(pr)-52 b(o)g(d)101 b Fg(;)513 b +Fh(p)404 b FA(::=)3124 28470 y Ff(j)683 b Fw(|)p Fh(element)8036 +28581 y Fy(1)8670 28470 y Fg(::)171 b Fh(element)12831 +28581 y Fd(m)13581 28470 y Fw(::::)p Fh(pr)-52 b(o)g(dname)74 +b Fw(\(+)q Fh(bs)21982 28581 y Fy(1)22614 28470 y Fg(::)172 +b Fh(bs)24242 28581 y Fd(n)24794 28470 y Fw(+\))2100 +30317 y Fh(rule)76 b Fg(;)513 b Fh(r)449 b FA(::=)3124 +31535 y Ff(j)683 b Fh(nontermr)-52 b(o)g(ot)94 b Fw(::''::=)p +Fh(pr)-52 b(o)g(d)15205 31646 y Fy(1)15836 31535 y Fg(::)171 +b Fh(pr)-52 b(o)g(d)18471 31646 y Fd(m)2100 33383 y Fh(gr)g(ammar)p +6268 33383 V 477 w(rules)82 b Fg(;)513 b Fh(g)430 b FA(::=)3124 +34600 y Ff(j)683 b Fw(grammar)171 b Fh(rule)9634 34711 +y Fy(1)10267 34600 y Fg(::)g Fh(rule)12717 34711 y Fd(m)p +50066 35927 45 37584 v 0 35971 50111 45 v Black 8669 +37958 a Fx(Figure)369 b(12:)494 b(Mini-Ott)370 b(in)g(Ott:)493 +b(the)369 b(binding)i(sp)31 b(eci\014cation)370 b(metalanguage)p +Black Black 0 41494 a(prop)31 b(erties,)403 b(e.g.)397 +b(that)g(eac)-31 b(h)397 b(auxiliary)h(function)f(is)f(only)h(applied)g +(to)g(non)-31 b(terminals)398 b(that)f(it)g(is)e(de\014ned)h(o)-31 +b(v)g(er,)404 b(and)0 42823 y(that)370 b(meta)-31 b(v)-61 +b(ariable)372 b(set)d(expressions)g(are)g(w)-31 b(ell-sorted.)0 +44815 y(F)-92 b(urther)286 b(to)i(that)h(fragmen)-31 +b(t,)306 b(the)288 b(to)31 b(ol)289 b(supp)31 b(orts)286 +b(binding)j(for)e(the)h(list)g(forms)g(of)g Ft(x)p Fx(12.)466 +b(Meta)-31 b(v)-61 b(ariable)289 b(set)f(expressions)0 +46143 y(can)388 b(include)g(lists)g(of)h(meta)-31 b(v)-61 +b(ariables)390 b(and)d(auxiliary)j(functions)f(applied)g(to)f(lists)g +(of)h(non)-31 b(terminals,)394 b(e.g.)389 b(as)f(in)g(the)0 +47472 y(record)369 b(patterns)g(b)31 b(elo)-31 b(w.)664 +51612 y Fo(p)439 b Fx(::=)1771 52940 y Ft(j)739 b Fo(x)11908 +b Fx(b)308 b(=)f Fo(x)1771 54269 y Ft(j)739 b(f)p Fo(l)3653 +54435 y Fu(1)4457 54269 y Fx(=)308 b Fo(p)6192 54435 +y Fu(1)6688 54269 y Fn(;)369 b(::)184 b(;)g Fo(l)8936 +54435 y Fi(n)9881 54269 y Fx(=)308 b Fo(p)11616 54435 +y Fi(n)12250 54269 y Ft(g)2436 b Fx(b)308 b(=)f(b\()p +Fo(p)18941 54435 y Fu(1)19438 54269 y Fn(::)p Fo(p)20618 +54435 y Fi(n)21254 54269 y Fx(\))0 57318 y(This)420 b(su\016ces)f(to)h +(express)e(the)i(binding)h(structure)d(of)i(almost)i(all)e(the)g +(natural)h(examples)f(w)-31 b(e)420 b(ha)-31 b(v)g(e)421 +b(come)f(across,)0 58646 y(including)368 b(de\014nitions)f(of)f(m)-31 +b(utually)369 b(recursiv)-31 b(e)365 b(functions)i(with)h(m)-31 +b(ultiple)368 b(clauses)e(for)g(eac)-31 b(h,)367 b(Join)g(calculus)g +(de\014ni-)0 59974 y(tions)j([F)-31 b(GL)5272 59573 y +Fu(+)6007 59974 y Fx(96)q(],)370 b(dep)31 b(enden)-31 +b(t)369 b(record)g(patterns,)h(and)f(man)-31 b(y)370 +b(others.)0 64299 y FC(10)1793 b(Generating)598 b(substitution)j(and)d +(free)g(v)-100 b(ariable)600 b(functions)0 67388 y Fx(The)424 +b(to)31 b(ol)425 b(can)e(generate)h(Isab)31 b(elle/Co)g(q/HOL/OCaml)428 +b(co)31 b(de)424 b(for)f(b)31 b(oth)424 b(single)g(and)g(m)-31 +b(ultiple)426 b(substitution)f(func-)0 68716 y(tions.)494 +b(F)-92 b(or)368 b(example,)j(the)e(ML)g(p)31 b(olymorphism)371 +b(Ott)f(source)f(of)455 b Fs(test8.ott)371 b Fx(includes)e(the)h(follo) +-31 b(wing.)p Black Black Mahogany 1162 70709 a Fs(substitutions)p +Black Mahogany 2325 72037 a(single)p Black 1744 w(expr)582 +b(value_name)p RoyalBlue 582 w(::)p Black 582 w(subst)p +Mahogany 2325 73365 a(multiple)p Black 582 w(typexpr)g(typvar)p +RoyalBlue 1163 w(::)p Black 582 w(tsubst)p Black 24502 +77841 a Fx(31)p Black eop end +%%Page: 32 32 +TeXDict begin 32 31 bop Black Black 31 -594 a Fx(This)398 +b(causes)e(the)h(generation)i(of)f(t)-31 b(w)g(o)398 +b(families)h(of)f(substitution)g(functions,)406 b(one)397 +b(replacing)h(a)f(single)h Fs(value_name)31 735 y Fx(b)-31 +b(y)370 b(a)f Fs(expr)p Fx(,)h(the)g(other)f(replacing)i(m)-31 +b(ultiple)371 b Fs(typvar)p Fx(s)f(b)-31 b(y)369 b Fs(typexpr)p +Fx(s.)31 2727 y(Eac)-31 b(h)485 b(family)g(con)-31 b(tains)485 +b(a)f(function)h(for)e(eac)-31 b(h)484 b(datat)-31 b(yp)31 +b(e)485 b(for)f(whic)-31 b(h)484 b(it)g(is)f(required,)512 +b(so)484 b(in)f(that)i(example)g(there)31 4055 y(are)401 +b(functions)h Fs(subst_expr)h Fx(for)e(the)g(\014rst)f(and)i +Fs(tsubst_typexpr)p Fx(,)411 b Fs(tsubst_typscheme)403 +b Fx(and)e Fs(tsubst_G)h Fx(for)f(the)31 5384 y(second.)31 +7376 y(The)370 b(functions)g(for)f(substitutions)i(declared)f(b)-31 +b(y)p Black Black Mahogany 1194 9369 a Fs(substitutions)p +Black Mahogany 2356 10697 a(single)p Black 1744 w(this)582 +b(that)p RoyalBlue 582 w(::)p Black 581 w(name1)p Mahogany +2356 12026 a(multiple)p Black 582 w(this)g(that)p RoyalBlue +582 w(::)p Black 581 w(name2)31 14018 y Fx(replaces)275 +b(terms)g(of)g(pro)31 b(ductions)275 b(consisting)i(just)d(of)i(a)f +(single)g Fs(that)g Fx(b)-31 b(y)275 b(a)g Fs(this)p +Fx(.)462 b(Here)274 b Fs(this)h Fx(m)-31 b(ust)276 b(b)31 +b(e)274 b(a)h(non)-31 b(terminal)31 15346 y(ro)31 b(ot,)446 +b(while)430 b Fs(that)f Fx(can)h(b)31 b(e)428 b(either)i(a)f(meta)-31 +b(v)-61 b(ariable)432 b(ro)31 b(ot)429 b(or)g(a)h(non)-31 +b(terminal)431 b(ro)31 b(ot)430 b(\(the)g(latter)g(p)31 +b(ossibilit)-31 b(y)431 b(allo)-31 b(ws)31 16675 y(substitution)436 +b(for)d(comp)31 b(ound)434 b(iden)-31 b(ti\014ers,)450 +b(though)435 b(it)f(is)f(not)h(clear)g(that)g(this)g(is)f(generally)i +(useful)e(enough)h(to)g(b)31 b(e)31 18003 y(included\).)626 +b(Substitution)416 b(functions)e(are)f(generated)h(for)f(eac)-31 +b(h)414 b(mem)-31 b(b)31 b(er)413 b(of)h(eac)-31 b(h)413 +b(\(m)-31 b(utually)417 b(recursiv)-31 b(e\))413 b(blo)31 +b(c)-31 b(k)414 b(of)31 19331 y(grammar)371 b(rules)e(whic)-31 +b(h)370 b(either)f(con)-31 b(tain)371 b(suc)-31 b(h)369 +b(a)h(pro)31 b(duction)370 b(or)f(\(indirectly\))i(refer)e(to)h(one)f +(that)i(do)31 b(es.)31 21324 y(A)-31 b(t)326 b(presen)-31 +b(t)324 b(m)-31 b(ultiple)327 b(substitutions)f(are)e(represen)-31 +b(ted)324 b(b)-31 b(y)325 b(Isab)31 b(elle/Co)g(q/HOL/OCaml)329 +b(lists,)334 b(so)325 b(for)f(the)h(example)31 22652 +y(ab)31 b(o)-31 b(v)g(e)371 b(w)-31 b(e)370 b(ha)-31 +b(v)g(e)370 b(Isab)31 b(elle)p Black Black 1194 24645 +a Fs(tsubst_typexpr)583 b(::)e("\(typvar*typexpr\))j(list)e(=>)f +(typexpr)i(=>)e(typexpr")1194 25973 y(tsubst_typscheme)i(::)f +("\(typvar*typexpr\))h(list)f(=>)g(typscheme)g(=>)g(typscheme")1194 +27302 y(tsubst_G)g(::)g("\(typvar*typexpr\))h(list)f(=>)f(G)h(=>)f(G") +31 29294 y Fx(The)332 b(generated)f(functions)h(do)f(not)h(substitute)g +(b)31 b(ound)330 b(things,)340 b(and)331 b(recursiv)-31 +b(e)331 b(calls)h(under)e(binders)g(are)h(\014ltered)g(to)31 +30622 y(remo)-31 b(v)g(e)371 b(the)e(b)31 b(ound)369 +b(things.)31 32615 y(Similarly)-92 b(,)384 b(the)378 +b(to)31 b(ol)380 b(can)e(generate)h(Isab)31 b(elle/Co)g(q/HOL/OCaml)383 +b(to)c(calculate)h(the)f(free)e(v)-61 b(ariables)379 +b(of)g(terms.)519 b(F)-92 b(or)31 33943 y(example,)372 +b(the)d(ML)g(p)31 b(olymorphism)371 b(Ott)e(source)g(of)456 +b Fs(test8.ott)370 b Fx(includes)g(the)f(follo)-31 b(wing.)p +Black Black Mahogany 1194 35936 a Fs(freevars)p Black +2356 37264 a(typexpr)582 b(typvar)p RoyalBlue 582 w(::)p +Black 582 w(ftv)31 39257 y Fx(This)532 b(causes)g(Isab)31 +b(elle)532 b(functions)g(as)g(b)31 b(elo)-31 b(w)533 +b(to)f(b)31 b(e)531 b(generated,)574 b(calculating)534 +b(the)e(free)f Fs(typvar)p Fx(s)h(that)h(o)31 b(ccur)531 +b(in)31 40585 y(singleton)371 b(pro)31 b(ductions)370 +b(in)g(the)f Fs(typexpr)h Fx(grammar,)h(within)g(terms)e(of)h(all)g(t) +-31 b(yp)31 b(es.)p Black Black 1194 42578 a Fs(ftv_typexpr)583 +b(::)e("typexpr)h(=>)g(typvar)g(list")1194 43906 y(ftv_typscheme)h(::)e +("typscheme)i(=>)e(typvar)h(list")1194 45234 y(ftv_G)g(::)f("G)h(=>)f +(typvar)h(list")31 49559 y FC(11)1793 b(Lo)50 b(cally-nameless)600 +b(represen)-50 b(tation)31 52648 y Fx(The)441 b(Co)31 +b(q)441 b(bac)-31 b(k)g(end)442 b(of)f(Ott)g(includes)g(exp)31 +b(erimen)-31 b(tal)442 b(supp)31 b(ort)441 b(for)f(a)h(lo)31 +b(cally-nameless)443 b(represen)-31 b(tation)442 b(\(and)f(co-)31 +53976 y(\014nite)370 b(quan)-31 b(ti\014cation\).)31 +55969 y(The)247 b(user)e(m)-31 b(ust)247 b(sp)31 b(ecify)246 +b(whic)-31 b(h)247 b(meta)-31 b(v)-61 b(ariables)249 +b(require)d(a)g(lo)31 b(cally-nameless)249 b(represen)-31 +b(tation)247 b(via)h(the)p Mahogany 246 w Fs(repr-locally-nameless)p +Black 31 57297 a Fx(hom,)371 b(e.g.:)p Mahogany Black +Mahogany 31 59290 a Fs(metavar)p Black 583 w(x)p RoyalBlue +581 w(::=)p Black RoyalBlue 582 w({{)p Black Mahogany +581 w(repr-locally-nameless)p Black RoyalBlue 584 w(}})p +Black RoyalBlue 582 w({{)p Black Mahogany 581 w(com)p +Black 1163 w(term)582 b(variable)p RoyalBlue 1163 w(}})p +Black 31 61282 a Fx(As)414 b(usual,)426 b(meta)-31 b(v)-61 +b(ariables)416 b(can)e(b)31 b(e)413 b(b)31 b(ound)413 +b(in)h(pro)31 b(ductions,)426 b(using)414 b(the)g(bindsp)31 +b(ec)414 b(language,)427 b(as)414 b(in)g(the)g Fs(lam)g +Fx(pro-)31 62611 y(duction)371 b(b)31 b(elo)-31 b(w:)p +Mahogany Black Mahogany 31 64603 a Fs(grammar)p Black +1194 65931 a(t)p RoyalBlue 581 w(::)p Black 582 w('t_')p +RoyalBlue 581 w(::=)p Black RoyalBlue 23828 w({{)p Black +Mahogany 581 w(com)p Black 582 w(term)p RoyalBlue 582 +w(}})p Black RoyalBlue 2356 67260 a(|)p Black 581 w(x)p +RoyalBlue 11042 w(::)p Black RoyalBlue 1744 w(::)p Black +582 w(Var)p RoyalBlue 12204 w({{)p Black Mahogany 582 +w(com)p Black 581 w(variable)p RoyalBlue 583 w(}})p Black +RoyalBlue 2356 68588 a(|)p Black 581 w(\\)582 b(x)f(.)g(t)p +RoyalBlue 7555 w(::)p Black RoyalBlue 1744 w(::)p Black +582 w(Lam)p RoyalBlue 1162 w(\(+)p Black Mahogany 582 +w(bind)p Black 581 w(x)p Mahogany 582 w(in)p Black 581 +w(t)p RoyalBlue 582 w(+\))p Black RoyalBlue 1162 w({{)p +Black Mahogany 582 w(com)p Black 581 w(abstraction)p +RoyalBlue 583 w(}})p Black RoyalBlue 2356 69916 a(|)p +Black 581 w(t)h(t')p RoyalBlue 9298 w(::)p Black RoyalBlue +1744 w(::)p Black 582 w(App)p RoyalBlue 12204 w({{)p +Black Mahogany 582 w(com)p Black 581 w(application)p +RoyalBlue 583 w(}})p Black RoyalBlue 2356 71245 a(|)p +Black 581 w(\()g(t)f(\))p RoyalBlue 8717 w(::)p Black +Mahogany 582 w(S)p Black RoyalBlue 581 w(::)p Black 582 +w(paren)p RoyalBlue 1744 w({{)p Black Mahogany 581 w(coq)p +Black RoyalBlue 582 w([[)p Black(t)p RoyalBlue(]])p Black +RoyalBlue 582 w(}})p Black RoyalBlue 2356 72573 a(|)p +Black 581 w({)h(t)f(/)g(x)h(})f(t')p RoyalBlue 4649 w(::)p +Black Mahogany 582 w(M)p Black RoyalBlue 581 w(::)p Black +582 w(tsub)p RoyalBlue 2325 w({{)p Black Mahogany 581 +w(coq)p Black 582 w(\(t_subst_t)p RoyalBlue 582 w([[)p +Black(t)p RoyalBlue(]])p Black RoyalBlue([[)p Black(x)1164 +b(t')p RoyalBlue(]])p Black(\))p RoyalBlue 582 w(}})p +Black Black 24533 77841 a Fx(32)p Black eop end +%%Page: 33 33 +TeXDict begin 33 32 bop Black Black 0 -594 a Fx(This)370 +b(de\014nition)g(giv)-31 b(es)370 b(rise)f(to)h(the)f(datat)-31 +b(yp)31 b(e)372 b(term)d(b)31 b(elo)-31 b(w)370 b(\(here)f(with)i +(option)g Fs(-coq)p 37076 -594 349 45 v 419 w(names)p +40400 -594 V 419 w(in)p 41981 -594 V 419 w(rules)582 +b(false)p Fx(\):)p Black Black 0 1399 a Fs(Inductive)g(term)g(:)g(Set)f +(:=)0 2727 y(|)g(term_var_b)i(:)e(nat)h(->)f(term)0 4055 +y(|)g(term_var_f)i(:)e(var)h(->)f(term)0 5384 y(|)g(term_lam)i(:)e +(term)h(->)f(term)0 6712 y(|)g(term_app)i(:)e(term)h(->)f(term)h(->)f +(term.)0 8705 y Fx(Remarks:)p Black 1353 10697 a(1.)p +Black 554 w(Pro)31 b(ductions)491 b(con)-31 b(taining)492 +b(meta)-31 b(v)-61 b(ariables)492 b(susceptible)e(to)g(b)31 +b(e)490 b(b)31 b(ound)489 b(\(e.g.,)522 b Fs(term)p 39348 +10697 V 419 w(var)p Fx(\))490 b(giv)-31 b(e)491 b(rise)e(to)h(t)-31 +b(w)g(o)2767 12026 y(distinct)390 b(constructors,)395 +b(one)388 b(\()p Fs(term)p 18286 12026 V 420 w(var)p +20449 12026 V 419 w(b)p Fx(\))h(for)g(de)f(Bruijn)h(indices)g(to)h(b)31 +b(e)388 b(used)g(when)h(the)g(meta)-31 b(v)-61 b(ariable)391 +b(is)2767 13354 y(b)31 b(ound,)370 b(one)f(\()p Fs(term)p +11341 13354 V 420 w(var)p 13504 13354 V 419 w(f)p Fx(\))g(for)g("free") +h(v)-61 b(ariables.)493 b(The)369 b(t)-31 b(yp)31 b(e)370 +b Fs(var)p Fx(,)g(together)g(with)g(decidable)g(equalit)-31 +b(y)372 b(and)2767 14682 y(sev)-31 b(eral)370 b(useful)f(lemmas)i(and)e +(functions,)i(is)e(de\014ned)g(in)g(the)h(Metatheory)g(library)-92 +b(.)2767 16675 y(In)370 b(the)h(curren)-31 b(t)369 b(implemen)-31 +b(tation,)375 b(meta)-31 b(v)-61 b(ariables)373 b(susceptible)e(to)f(b) +31 b(e)370 b(b)31 b(ound)370 b(in)h(a)f(sym)-31 b(b)31 +b(olic)372 b(term)e(\(eg.)i(the)2767 18003 y Fs(x)e Fx(in)f(the)g +Fs(term)p 9309 18003 V 419 w(var)h Fx(pro)31 b(duction\))371 +b(m)-31 b(ust)369 b(b)31 b(e)369 b(the)g(only)i(elemen)-31 +b(t)370 b(of)g(the)f(pro)31 b(duction.)p Black 1353 19996 +a(2.)p Black 554 w(Binder)369 b(meta)-31 b(v)-61 b(ariables)372 +b(are)d(erased)g(from)g(pro)31 b(ductions)370 b(\(eg.)h +Fs(term)p 31812 19996 V 419 w(lam)p Fx(\),)f(as)f(in)h(de)e(Bruijn)i +(represen)-31 b(tation.)0 21988 y(Ott)300 b(automatically)j(generates)c +(the)g(appropriate)h Fs(open)g Fx(functions)f(and)g Fs(lc)g +Fx(predicates)g(to)h(test)f(if)h(terms)e(are)h(lo)31 +b(cally-)0 23317 y(closed.)667 b(The)427 b(other)h(supp)31 +b(ort)426 b(functions)i(for)g(substitutions)g(and)g(free-v)-61 +b(ariables)427 b(\()p Fs(subst)h Fx(and)g Fs(fv)p Fx(\))f(are)g +(generated)0 24645 y(once)369 b(the)h(user)e(declares)h(the)g(relev)-61 +b(an)-31 b(t)370 b(substitutions)h(and)f(freev)-61 b(ars)368 +b(sections.)0 26637 y(Ott)313 b(automatically)k(compiles)c(the)g(sym) +-31 b(b)31 b(olic)314 b(terms)e(that)h(app)31 b(ear)313 +b(in)f(rule)g(de\014nitions)h(in)-31 b(to)314 b(the)f(appropriate)g +(terms)0 27966 y(in)369 b(lo)31 b(cally-nameless)372 +b(st)-31 b(yle.)494 b(F)-92 b(or)368 b(instance,)j(the)e(t)-31 +b(yping)371 b(rule)e(for)g(the)h(simply-t)-31 b(yp)31 +b(ed)371 b(lam)-31 b(b)31 b(da-calculus:)p Black Black +2325 29958 a Fs(E,x:S)581 b(|-)h(t)f(:)h(T)p RoyalBlue +2325 31287 a(------------------)p Black 583 w(::)g(lambda)2325 +32615 y(E)f(|-)g(\\x.t)h(:)f(S->T)0 34608 y Fx(is)369 +b(compiled)i(in)-31 b(to)371 b(its)e(lo)31 b(cally-nameless)372 +b(represen)-31 b(tation:)p Black Black 0 36600 a Fs(Inductive)582 +b(typing)h(:)e(env)g(->)h(term)g(->)f(type)h(->)f(Prop)h(:=)f(\(*)h +(defn)g(typing)g(*\))0 37928 y(|)f(...)0 39257 y(|)g(typing_lambda)i(:) +f(forall)g(\(L:vars\))g(\(E:env\))g(\(t:term\))h(\(S)e(T:type\),)1743 +40585 y(\(forall)i(x,)e(x)g(\\)q(notin)g(L)h(->)f(typing)h(\(E)g(&)f(x) +g(~)h(S\))f(\(open_term_wrt_term)j(t)d(\(term_var_f)i(x\)\))f(T\))f(->) +1743 41913 y(typing)h(E)g(\(term_lam)g(t\))g(\(type_arrow)h(S)e(T\).)0 +43906 y Fx(F)-92 b(or)368 b(that,)j(Ott)f(follo)-31 b(ws)372 +b(the)d(algorithm)j(b)31 b(elo)-31 b(w.)494 b(F)-92 b(or)368 +b(eac)-31 b(h)370 b(rule,)p Black 1353 45898 a(1.)p Black +554 w(for)365 b(eac)-31 b(h)364 b(non)-31 b(terminal)367 +b(that)f(app)31 b(ears)363 b(in)i(the)f(rule,)i(compute)f(the)g +(maximal)i(set)d(of)h(binders)f(under)f(whic)-31 b(h)365 +b(it)2767 47227 y(app)31 b(ears:)495 b(for)370 b(example,)i(in)f(the)f +(rule)g(lam)-31 b(b)31 b(da)372 b(ab)31 b(o)-31 b(v)g(e,)372 +b(the)e(maximal)k(set)c(of)g(binders)g(for)g(the)g(non)-31 +b(terminal)373 b Fs(t)2767 48555 y Fx(is)d(the)f(singleton)i +Fs(x)p Fx(,)f(and)f(it)h(is)f(empt)-31 b(y)370 b(for)g(all)g(the)g +(other)f(non)-31 b(terminals;)p Black 1353 50548 a(2.)p +Black 554 w(for)339 b(eac)-31 b(h)339 b(pair)g(non)-31 +b(terminal)342 b(/)d(maximal)i(binder)e(set)f(collected)j(in)e(phase)f +(1.,)346 b(go)340 b(o)-31 b(v)g(er)339 b(all)h(the)f(o)31 +b(ccurrences)338 b(of)2767 51876 y(the)319 b(non)-31 +b(terminal)321 b(in)d(the)h(rule)f(and)g(op)31 b(en)319 +b(them)g(with)g(resp)31 b(ect)318 b(to)h(all)g(the)g(v)-61 +b(ariables)319 b(in)f(the)h(maximal)i(binding)2767 53204 +y(set)345 b(except)h(those)g(under)e(whic)-31 b(h)346 +b(this)g(particular)g(o)31 b(ccurrence)344 b(is)h(b)31 +b(ound.)485 b(In)345 b(the)g(example,)352 b(this)346 +b(amoun)-31 b(ts)346 b(to)2767 54533 y(op)31 b(ening)371 +b(the)e(o)31 b(ccurrence)368 b(of)456 b Fs(t)369 b Fx(in)h(the)f +(premise)g(with)h(resp)31 b(ect)369 b(to)h(the)f(meta)-31 +b(v)-61 b(ariable)372 b Fs(x)p Fx(;)p Black 1353 56525 +a(3.)p Black 554 w(quan)-31 b(tify)338 b(using)e(co\014nite-quan)-31 +b(ti\014cation)340 b(eac)-31 b(h)336 b(meta)-31 b(v)-61 +b(ariable)339 b(that)d(has)g(b)31 b(een)335 b(used)g(to)h(op)31 +b(en)335 b(a)h(non)-31 b(terminal;)p Black 1353 58518 +a(4.)p Black 554 w(add)403 b(h)-31 b(yp)31 b(othesis)403 +b(ab)31 b(out)404 b(lo)31 b(cal-closure)404 b(to)f(guaran)-31 +b(tee)404 b(the)f(in)-31 b(v)-61 b(arian)-31 b(t)405 +b(that)e(if)g(a)g(deriv)-61 b(ation)404 b(holds,)412 +b(then)403 b(the)2767 59846 y(top-lev)-31 b(el)372 b(terms)d(in)-31 +b(v)g(olv)g(ed)371 b(are)e(lo)31 b(cally-closed.)0 61839 +y(In)382 b(some)h(cases)f(the)h(user)f(ma)-31 b(y)383 +b(w)-31 b(an)g(t)385 b(a)e(\014ner)f(con)-31 b(trol)384 +b(on)f(whic)-31 b(h)383 b(non)-31 b(terminals)385 b(are)d(op)31 +b(ened)383 b(and)g(with)h(resp)31 b(ect)381 b(to)0 63167 +y(whic)-31 b(h)370 b(meta)-31 b(v)-61 b(ariables.)495 +b(Consider)370 b(for)f(instance)h(the)f(CBV)h(b)31 b(eta-reduction)371 +b(rule:)p RoyalBlue Black RoyalBlue 2325 65160 a Fs +(--------------------------)p Black 1166 w(::)581 b(ax_app)2325 +66488 y(\(\\x.t1\))h(v2)f(-->)1163 b({v2/x})q(t1)0 68480 +y Fx(A)404 b(naiv)-31 b(e)405 b(application)j(of)c(the)h(algorithm)h +(describ)31 b(ed)404 b(ab)31 b(o)-31 b(v)g(e)405 b(w)-31 +b(ould)405 b(op)31 b(en)404 b(the)h(righ)-31 b(t)405 +b(hand)f(side)g(o)31 b(ccurrence)403 b(of)491 b Fs(t1)0 +69809 y Fx(with)367 b(resp)31 b(ect)365 b(to)h(a)g(co\014nitely-quan) +-31 b(ti\014ed)369 b Fs(x)p Fx(.)492 b(Substitution)368 +b(should)e(then)g(b)31 b(e)365 b(used)g(to)h(replace)g(the)g(o)31 +b(ccurrences)365 b(of)0 71137 y Fs(x)k Fx(with)i Fs(v2)p +Fx(,)e(resulting)h(in)g(the)f(a)-31 b(wkw)g(ard)371 b(term)p +Black Black 0 73130 a Fs(reduce)582 b(\(term_app)h(\(term_lam)f(t1\))g +(v2\))f(\(subst_term)i(v2)e(x)h(\(open_term_wrt_term)i(t1)d +(\(term_var_f)i(x\)\)\))p Black 24502 77841 a Fx(33)p +Black eop end +%%Page: 34 34 +TeXDict begin 34 33 bop Black Black Black 735 203 a Fh(E)573 +b Ff(`)455 b Fh(e)3553 314 y Fy(1)4469 203 y FA(:)h Fh(t)5549 +314 y Fy(1)7034 203 y Fg(:::)1025 b Fh(E)573 b Ff(`)454 +b Fh(e)11728 314 y Fd(n)12736 203 y FA(:)i Fh(t)13816 +314 y Fd(n)735 1421 y Fh(E)573 b Ff(`)455 b Fh(\014eld)p +5076 1421 308 45 v 471 w(name)7787 1532 y Fy(1)8704 1421 +y FA(:)g Fh(t)549 b Ff(!)455 b Fh(t)12151 1532 y Fy(1)13636 +1421 y Fg(:::)1026 b Fh(E)572 b Ff(`)455 b Fh(\014eld)p +19854 1421 V 471 w(name)22565 1532 y Fd(n)23573 1421 +y FA(:)h Fh(t)549 b Ff(!)455 b Fh(t)27021 1532 y Fd(n)735 +2638 y Fh(t)549 b FA(=)455 b(\()171 b Fh(t)3878 2215 +y Fe(0)3784 2814 y Fy(1)4416 2638 y Fg(;)342 b(:::)172 +b(;)341 b Fh(t)7125 2215 y Fe(0)7031 2845 y Fd(l)7594 +2638 y FA(\))171 b Fh(typ)-52 b(e)g(c)g(onstr)p 12762 +2638 V 475 w(name)735 3856 y(E)573 b Ff(`)455 b Fh(typ)-52 +b(e)g(c)g(onstr)p 7681 3856 V 475 w(name)815 b Fc(B)739 +b Fh(typ)-52 b(e)g(c)g(onstr)p 17321 3856 V 475 w(name)531 +b FA(:)456 b Fh(kind)273 b Ff(f)170 b Fh(\014eld)p 26133 +3856 V 472 w(name)28920 3433 y Fe(0)28845 4031 y Fy(1)29477 +3856 y FA(;)342 b Fg(:::)172 b FA(;)341 b Fh(\014eld)p +33745 3856 V 472 w(name)36532 3433 y Fe(0)36457 4031 +y Fd(m)37375 3856 y Ff(g)735 5074 y Fh(\014eld)p 2728 +5074 V 471 w(name)5439 5185 y Fy(1)6072 5074 y Fg(:::)172 +b Fh(\014eld)p 9089 5074 V 471 w(name)11800 5185 y Fd(n)12524 +5074 y FB(PERMUTES)f Fh(\014eld)p 21421 5074 V 471 w(name)24207 +4651 y Fe(0)24132 5249 y Fy(1)24765 5074 y Fg(:::)g Fh(\014eld)p +27781 5074 V 472 w(name)30568 4651 y Fe(0)30493 5249 +y Fd(m)735 6291 y FB(length)h FA(\()f Fh(e)5171 6402 +y Fy(1)5803 6291 y FA(\))g Fg(:::)h FA(\()f Fh(e)8435 +6402 y Fd(n)9158 6291 y FA(\))455 b Ff(\025)h FA(1)p +181 6825 38260 43 v 7522 7729 a Fh(E)573 b Ff(`)455 b(f)170 +b Fh(\014eld)p 12545 7729 308 45 v 472 w(name)15257 7840 +y Fy(1)16174 7729 y FA(=)455 b Fh(e)17895 7840 y Fy(1)18527 +7729 y FA(;)342 b Fg(:::)172 b FA(;)342 b Fh(\014eld)p +22796 7729 V 471 w(name)25507 7840 y Fd(n)26515 7729 +y FA(=)455 b Fh(e)28236 7840 y Fd(n)28960 7729 y Ff(g)g +FA(:)g Fh(t)39974 7053 y Fb(JTe)p 41944 7053 331 45 v +396 w(record)p 45940 7053 V 396 w(constr)p Black Black +555 9721 a Fw(E)523 b(|-)g(e1)g(:)g(t1)g(...)g(E)g(|-)g(en)g(:)g(tn)555 +10939 y(E)g(|-)g(field)p 5848 10939 314 45 v 376 w(name1)h(:)f(t->t1)g +(...)g(E)g(|-)g(field)p 20869 10939 V 377 w(namen)g(:)g(t->tn)555 +12157 y(t)g(=)g(\(t1',)g(...,)g(tl'\))g(typeconstr)p +16308 12157 V 377 w(name)555 13374 y(E)g(|-)g(typeconstr)p +8463 13374 V 377 w(name)g(gives)g(typeconstr)p 19823 +13374 V 377 w(name:kind)g({field)p 28568 13374 V 377 +w(name1';)g(...;)g(field)p 38359 13374 V 377 w(namem'})555 +14592 y(field)p 3233 14592 V 376 w(name1...field)p 10408 +14592 V 377 w(namen)g(PERMUTES)h(field)p 21246 14592 +V 377 w(name1'...field)p 28945 14592 V 377 w(namem')555 +15810 y(length)f(\(e1\)...\(en\)>=1)555 17027 y +(-------------------------------------------------------------------)p +(-------)i(::)e(record)p 44552 17027 V 377 w(constr)555 +18245 y(E)g(|-)g({field)p 6371 18245 V 376 w(name1=e1;)h(...;)f(field)p +17208 18245 V 377 w(namen=en})g(:)g(t)p Black 7066 20680 +a Fx(Figure)369 b(13:)494 b(A)369 b(sample)h(OCaml)h(seman)-31 +b(tic)371 b(rule,)e(in)h(L)29871 20453 y Fu(A)30359 20680 +y Fx(T)30973 20918 y(E)31588 20680 y(X)g(and)f(Ott)h(source)e(forms)p +Black Black 31 24239 a(Instead,)430 b(an)418 b(idiomatic)i(translation) +g(of)d(CBV)h(b)31 b(eta-reduction)419 b(rule)e(w)-31 +b(ould)418 b(directly)h(rely)e(on)g(the)h(op)31 b(en)417 +b(function)31 25568 y(to)370 b(substitute)h Fs(v2)e Fx(for)g(the)h(b)31 +b(ound)369 b(o)31 b(ccurrences)368 b(of)455 b Fs(x)369 +b Fx(in)h Fs(t1)p Fx(,)g(as)f(in:)p Black Black 31 27560 +a Fs(reduce)583 b(\(term_app)f(\(term_lam)h(t1\))e(v2\))h +(\(open_term_wrt_term)i(t1)d(v2\))31 29553 y Fx(A)370 +b(sp)31 b(ecial)369 b(syn)-31 b(tax)371 b(for)e(pro)31 +b(duction)370 b(homomorphisms)h(allo)-31 b(w)372 b(the)d(user)f(to)i +(sp)31 b(ecify)370 b(this)f(translation:)p Black Black +RoyalBlue 2356 31545 a Fs(|)p Black 581 w({)582 b(t)f(/)g(x)h(})f(t')p +RoyalBlue 4649 w(::)p Black Mahogany 582 w(M)p Black +RoyalBlue 581 w(::)p Black 582 w(tsub)p RoyalBlue 2325 +w({{)p Black Mahogany 581 w(coq)p Black 582 w(\(t_subst_t)p +RoyalBlue 582 w([[)p Black(t)p RoyalBlue(]])p Black RoyalBlue([[)p +Black(x)i(t')p RoyalBlue(]])p Black(\))p RoyalBlue 582 +w(}})p Black 31 33538 a Fx(In)341 b(the)h(homomorphism)i(the)d(non)-31 +b(terminal)344 b Fs(t')d Fx(is)h(referred)e(to)i(with)p +RoyalBlue 342 w Fs([[)p Black(x)582 b(t')p RoyalBlue(]])p +Black 342 w Fx(instead)342 b(of)g(the)f(usual)p RoyalBlue +342 w Fs([[)p Black(t')p RoyalBlue(]])p Black Fx(:)479 +b(the)31 34866 y(pre\014xed)393 b Fs(x)g Fx(sp)31 b(eci\014es)392 +b(that)j(o)31 b(ccurrences)391 b(of)480 b Fs(t')393 b +Fx(should)h(not)f(b)31 b(e)393 b(op)31 b(ened)393 b(with)h(resp)31 +b(ect)393 b(to)g(the)h(meta)-31 b(v)-61 b(ariable)395 +b Fs(x)p Fx(.)565 b(If)31 36195 y(this)372 b(homomorphism)h(is)e(sp)31 +b(eci\014ed,)371 b(then)g(the)g(translation)j(of)d(the)g +Fs(ax)p 30343 36195 349 45 v 419 w(app)g Fx(rule)g(is)g(exactly)h +(idiomatic)i(Co)31 b(q)372 b(sho)-31 b(wn)31 37523 y(ab)31 +b(o)-31 b(v)g(e.)31 39515 y Fo(Curr)-57 b(ent)397 b(limitations:)510 +b(supp)-57 b(ort)395 b(for)h(single)h(binders)f(only,)h(no)g(auxfn,)f +(Co)-57 b(q)397 b(only.)31 41508 y(Disclaimer:)621 b(to)451 +b(c)-57 b(ompile)452 b(rule)f(de\014nitions,)467 b(Ott)451 +b(applies)f(blind)57 b(ly)452 b(the)f(algorithm)g(describ)-57 +b(e)g(d)453 b(ab)-57 b(ove.)676 b(A)-28 b(lthough)450 +b(in)31 42836 y(most)414 b(of)g(the)g(c)-57 b(ases,)419 +b(this)414 b(gener)-57 b(ates)414 b(a)g(c)-57 b(orr)g(e)g(ct)415 +b(and)f(idiomatic)h(r)-57 b(epr)g(esentation)415 b(of)f(the)g +(language,)419 b(some)414 b(language)31 44165 y(c)-57 +b(onstructs)396 b(might)h(not)e(b)-57 b(e)397 b(faithful)57 +b(ly)397 b(tr)-57 b(anslate)g(d.)509 b(Ple)-57 b(ase,)397 +b(let)f(us)f(know)h(if)h(you)f(\014nd)h(one)f(of)h(these)e(c)-57 +b(ases.)31 46157 y Fx(If)280 b(Ott)h(is)f(in)-31 b(v)g(ok)g(ed)282 +b(with)f(the)f Fs(-coq)p 14657 46157 V 419 w(lngen)h +Fx(option,)300 b(then)280 b(the)g(generated)h(lo)31 b(cally-nameless) +282 b(Co)31 b(q)281 b(co)31 b(de)280 b(is)g(compatible)31 +47486 y(with)371 b(Aydemir's)f Fo(lngen)455 b Fx(to)31 +b(ol)371 b(\()p Fs(http://www.cis.upenn.edu/)585 b +(baydemir/papers/lngen/)p Fx(\).)31 51810 y FC(12)1793 +b(List)599 b(forms)31 54899 y Fx(Ott)405 b(has)f(direct)g(supp)31 +b(ort)403 b(for)h(lists,)414 b(b)31 b(oth)404 b(as)g +Fo(dot)427 b(forms)494 b Fx(suc)-31 b(h)404 b(as)807 +b Fn(t)29763 55065 y Fu(1)30260 54899 y Fn(;)184 b(:)g(:)g(:)j(;)d(t) +33118 55065 y Fr(n)34529 54899 y Fx(and)404 b(as)g Fo(list)427 +b(c)-57 b(ompr)g(ehensions)496 b Fx(suc)-31 b(h)31 56362 +y(as)p 1772 55549 777 45 v 751 w Fo(t)2140 56528 y Fi(i)2700 +55734 y(i)68 b Fl(2)p Fu(1)p Fr(::)p Fi(n)6003 56362 +y Fx(.)511 b(Figure)375 b(13)h(sho)-31 b(ws)376 b(an)f(example)i(seman) +-31 b(tic)377 b(rule)e(tak)-31 b(en)377 b(from)f(our)f(OCaml)i(fragmen) +-31 b(t)377 b(seman)-31 b(tics,)379 b(as)31 57691 y(b)31 +b(oth)435 b(the)g(generated)g(L)10086 57464 y Fu(A)10574 +57691 y Fx(T)11188 57929 y(E)11804 57691 y(X)f(and)h(its)f(Ott)i +(source,)450 b(that)436 b(in)-31 b(v)g(olv)g(es)436 b(sev)-31 +b(eral)435 b(dot)g(forms.)689 b(Other)434 b(t)-31 b(yp)31 +b(es)434 b(commonly)31 59019 y(used)h(in)g(seman)-31 +b(tics,)453 b(e.g.)437 b(\014nite)e(maps)h(or)e(sets,)452 +b(can)435 b(often)h(b)31 b(e)435 b(describ)31 b(ed)434 +b(with)i(this)f(list)h(syn)-31 b(tax)436 b(in)g(conjunction)31 +60348 y(with)530 b(t)-31 b(yp)31 b(e)529 b(and)g(metapro)31 +b(duction)530 b(homs)f(to)g(sp)31 b(ecify)529 b(the)f(pro)31 +b(of)529 b(assistan)-31 b(t)530 b(represen)-31 b(tation.)971 +b(When)528 b(using)h(list)31 61676 y(forms,)420 b(one)408 +b(usually)i(also)f(w)-31 b(an)g(ts)410 b(to)f(add)g(a)g(list-of-form) +-31 b(ula)412 b(pro)31 b(duction)409 b(to)h(the)p Mahogany +408 w Fs(formula)p Black 410 w Fx(grammar,)420 b(e.g.)611 +b(\(as)409 b(in)31 63004 y Fs(test17.10.ott)p Fx(\):)p +Black Black Mahogany 1194 64997 a Fs(formula)p Black +RoyalBlue 582 w(::)p Black 581 w(formula_)p RoyalBlue +583 w(::=)p Black RoyalBlue 1775 66325 a(|)p Black 1162 +w(judgement)p RoyalBlue 13368 w(::)p Black RoyalBlue +1744 w(::)p Black 581 w(judgement)p RoyalBlue 1775 67653 +a(|)p Black 1162 w(formula1)p RoyalBlue 583 w(..)p Black +581 w(formulan)p RoyalBlue 6975 w(::)p Black RoyalBlue +1744 w(::)p Black 581 w(dots)31 69646 y Fx(The)496 b(pro)31 +b(of)495 b(assistan)-31 b(t)496 b(co)31 b(de)495 b(generation)i(for)e +(suc)-31 b(h)494 b(a)i(pro)31 b(duction)496 b(\(whic)-31 +b(h)496 b(m)-31 b(ust)495 b(b)31 b(e)495 b(named)h Fs(formula_dots)p +Fx(\))h(is)31 70974 y(sp)31 b(ecial-cased)370 b(to)g(a)g(list)g +(conjunction.)p Black 24533 77841 a(34)p Black eop end +%%Page: 35 35 +TeXDict begin 35 34 bop Black Black 0 -594 a Fq(12.1)1495 +b(List)499 b(dot)g(forms)0 2114 y Fx(Example)381 b(pro)31 +b(ductions)379 b(for)h(record)e(t)-31 b(yp)31 b(es,)382 +b(record)d(terms,)j(and)d(record)f(patterns)i(are)f(sho)-31 +b(wn)379 b(b)31 b(elo)-31 b(w,)383 b(in)d(b)31 b(oth)379 +b(Ott)0 3442 y(source)369 b(and)g(L)5837 3215 y Fu(A)6325 +3442 y Fx(T)6939 3680 y(E)7555 3442 y(X,)g(tak)-31 b(en)371 +b(from)f(our)f(F)17386 3608 y Fr(<)p Fu(:)18752 3442 +y Fx(example.)p Black Black 0 5434 a Fs(T)p RoyalBlue(,)p +Black 581 w(S)p RoyalBlue(,)p Black 582 w(U)p RoyalBlue +581 w(::)p Black 582 w('T_')p RoyalBlue 581 w(::=)p Black +RoyalBlue 27315 w({{)p Black Mahogany 581 w(com)p Black +582 w(type)p RoyalBlue 1163 w(}})p Black RoyalBlue 1162 +6763 a(|)p Black 582 w({)581 b(l1)g(:)h(T1)f(,)p RoyalBlue +581 w(..)p Black 582 w(,)g(ln)h(:)f(Tn)g(})p RoyalBlue +3487 w(::)p Black RoyalBlue 582 w(::)p Black 581 w(Rec)p +RoyalBlue 13367 w({{)p Black Mahogany 582 w(com)p Black +581 w(record)p RoyalBlue 582 w(}})p Black 0 9420 a(t)p +RoyalBlue 581 w(::)p Black 582 w('t_')p RoyalBlue 581 +w(::=)p Black RoyalBlue 30802 w({{)p Black Mahogany 581 +w(com)p Black 1163 w(term)p RoyalBlue 1163 w(}})p Black +RoyalBlue 1162 10748 a(|)p Black 582 w({)g(l1)g(=)h(t1)f(,)p +RoyalBlue 1163 w(..)p Black 581 w(,)g(ln)h(=)f(tn)g(})p +RoyalBlue 2906 w(::)p Black RoyalBlue 582 w(::)p Black +581 w(Rec)p RoyalBlue 13367 w({{)p Black Mahogany 582 +w(com)p Black 581 w(record)p RoyalBlue 582 w(}})p Black +RoyalBlue 1162 12076 a(|)p Black 582 w(let)g(p)g(=)h(t)f(in)h(t')p +RoyalBlue 9879 w(::)p Black RoyalBlue 582 w(::)p Black +581 w(Let)p RoyalBlue 582 w(\(+)p Black Mahogany 581 +w(bind)p Black 582 w(b)p RoyalBlue(\()p Black(p)p RoyalBlue(\))p +Black Mahogany 582 w(in)p Black 581 w(t')p RoyalBlue +582 w(+\))p Black RoyalBlue 581 w({{)p Black Mahogany +582 w(com)p Black 581 w(pattern)g(binding)p RoyalBlue(})r(})p +Black 0 14733 a(p)p RoyalBlue 581 w(::)p Black 582 w('P_')p +RoyalBlue 581 w(::=)p Black RoyalBlue 30802 w({{)p Black +Mahogany 581 w(com)p Black 1163 w(pattern)p RoyalBlue +582 w(}})p Black RoyalBlue 1162 16061 a(|)p Black 582 +w(x)f(:)g(T)p RoyalBlue 15691 w(::)p Black RoyalBlue +582 w(::)p Black 581 w(Var)p RoyalBlue 582 w(\(+)p Black +581 w(b)p RoyalBlue 582 w(=)p Black 581 w(x)p RoyalBlue +1162 w(+\))p Black RoyalBlue 5812 w({{)p Black Mahogany +582 w(com)p Black 581 w(variable)i(pattern)p RoyalBlue +582 w(}})p Black RoyalBlue 1162 17390 a(|)p Black 582 +w({)e(l1)g(=)h(p1)f(,)p RoyalBlue 581 w(..)p Black 582 +w(,)g(ln)h(=)f(pn)g(})p RoyalBlue 3487 w(::)p Black RoyalBlue +582 w(::)p Black 581 w(Rec)p RoyalBlue 582 w(\(+)p Black +581 w(b)p RoyalBlue 582 w(=)p Black 581 w(b)p RoyalBlue(\()p +Black(p1)p RoyalBlue 582 w(..)p Black 581 w(pn)p RoyalBlue(\))p +Black RoyalBlue 582 w(+\))p Black RoyalBlue 581 w({{)p +Black Mahogany 582 w(com)p Black 1162 w(record)h(pattern)p +RoyalBlue 1164 w(}})p Black 664 20345 a Fh(T)131 b Fg(;)512 +b Fh(S)118 b Fg(;)513 b Fh(U)2816 b FA(::=)20056 b(t)-28 +b(yp)28 b(e)7929 21563 y Ff(j)1869 b(f)171 b Fh(l)11026 +21674 y Fy(1)11943 21563 y FA(:)455 b Fh(T)13414 21674 +y Fy(1)14046 21563 y Fg(;)342 b(::)171 b(;)342 b Fh(l)16298 +21674 y Fd(n)17305 21563 y FA(:)456 b Fh(T)18777 21674 +y Fd(n)19499 21563 y Ff(g)10126 b FA(record)664 24355 +y Fh(t)6385 b FA(::=)20056 b(term)7929 25573 y Ff(j)1869 +b(f)171 b Fh(l)11026 25684 y Fy(1)11601 25573 y FA(=)114 +b Fh(t)12851 25684 y Fy(1)13483 25573 y Fg(;)342 b(::)171 +b(;)342 b Fh(l)15735 25684 y Fd(n)16401 25573 y FA(=)114 +b Fh(t)17651 25684 y Fd(n)18374 25573 y Ff(g)11251 b +FA(record)7929 26791 y Ff(j)1869 b FB(let)172 b Fh(p)k +FA(=)114 b Fh(t)265 b FB(in)171 b Fh(t)15381 26367 y +Fe(0)21340 26791 y Fa(bind)284 b FA(b\()p Fh(p)63 b FA(\))284 +b Fa(in)h Fh(t)27182 26367 y Fe(0)30137 26791 y FA(pattern)341 +b(binding)664 29583 y Fh(p)6202 b FA(::=)20056 b(pattern)7929 +30801 y Ff(j)1869 b Fh(x)576 b FA(:)455 b Fh(T)8739 b +FA(b)284 b(=)h Fh(x)6391 b FA(v)-57 b(ariable)343 b(pattern)7929 +32018 y Ff(j)1869 b(f)171 b Fh(l)11026 32129 y Fy(1)11601 +32018 y FA(=)114 b Fh(p)13034 32129 y Fy(1)13666 32018 +y Fg(;)342 b(::)171 b(;)342 b Fh(l)15918 32129 y Fd(n)16584 +32018 y FA(=)114 b Fh(p)18017 32129 y Fd(n)18740 32018 +y Ff(g)2088 b FA(b)284 b(=)h(b\()p Fh(p)24764 32129 y +Fy(1)25225 32018 y Fg(::)p Fh(p)26316 32129 y Fd(n)26869 +32018 y FA(\))2870 b(record)341 b(pattern)0 33927 y Fx(Dot)370 +b(forms)f(can)g(b)31 b(e)369 b(used)g(in)g(sym)-31 b(b)31 +b(olic)371 b(terms)e(in)g(seman)-31 b(tic)371 b(rules:)15796 +36960 y(\000)307 b Ft(`)h Fo(t)18147 37126 y Fu(1)18951 +36960 y Fx(:)g Fo(T)20358 37126 y Fu(1)21962 36960 y +Fn(::)1107 b Fx(\000)308 b Ft(`)g Fo(t)26035 37126 y +Fi(n)26977 36960 y Fx(:)g Fo(T)28384 37126 y Fi(n)p 12230 +37536 20354 45 v 12230 38550 a Fx(\000)g Ft(`)g(f)p Fo(l)15050 +38716 y Fu(1)15485 38550 y Fx(=)-61 b Fo(t)16653 38716 +y Fu(1)17149 38550 y Fn(;)370 b(::)184 b(;)g Fo(l)19398 +38716 y Fi(n)19973 38550 y Fx(=)-61 b Fo(t)21141 38716 +y Fi(n)21776 38550 y Ft(g)307 b Fx(:)h Ft(f)p Fo(l)24087 +38716 y Fu(1)24892 38550 y Fx(:)g Fo(T)26299 38716 y +Fu(1)26796 38550 y Fn(;)369 b(::)184 b(;)g Fo(l)29044 +38716 y Fi(n)29989 38550 y Fx(:)308 b Fo(T)31396 38716 +y Fi(n)32031 38550 y Ft(g)33824 37791 y Fj(Ty)p 35446 +37791 368 45 v 441 w(R)-32 b(cd)0 41725 y Fx(Individually)372 +b(indexed)d(pro)61 b(jections)371 b(from)f(dot)g(forms)f(can)g(b)31 +b(e)369 b(men)-31 b(tioned,)372 b(eg)d(the)h Fn(l)36482 +41891 y Fr(j)37317 41725 y Fx(b)31 b(elo)-31 b(w:)15833 +44758 y(\000)307 b Ft(`)h Fo(t)412 b Fx(:)308 b Ft(f)p +Fo(l)20047 44924 y Fu(1)20852 44758 y Fx(:)g Fo(T)22259 +44924 y Fu(1)22756 44758 y Fn(;)369 b(::)184 b(;)g Fo(l)25004 +44924 y Fi(n)25949 44758 y Fx(:)308 b Fo(T)27356 44924 +y Fi(n)27991 44758 y Ft(g)p 15279 45334 13819 45 v 19357 +46348 a Fx(\000)g Ft(`)g Fo(t)105 b Fn(:)p Fo(l)22404 +46514 y Fi(j)23162 46348 y Fx(:)308 b Fo(T)24569 46514 +y Fi(j)30338 45588 y Fj(Ty)p 31960 45588 368 45 v 440 +w(Pr)-25 b(oj)0 49523 y Fx(Sym)-31 b(b)31 b(olic)371 +b(terms)e(can)h(also)g(include)g(concatenations)h(of)f(t)-31 +b(w)g(o)371 b(dot)f(forms)f(with)i(a)e(singleton)i(in)f(b)31 +b(et)-31 b(w)g(een:)18113 53578 y Fo(t)413 b Ft(\000)-185 +b(!)308 b Fo(t)21458 53177 y Fl(0)p 133 54154 39616 45 +v 133 55168 a Ft(f)p Fo(l)969 55334 y Fu(1)1404 55168 +y Fx(=)-61 b Fo(v)2713 55334 y Fu(1)3210 55168 y Fn(;)369 +b(::)184 b(;)g Fo(l)5458 55334 y Fi(m)6261 55168 y Fx(=)-61 +b Fo(v)7570 55334 y Fi(m)8433 55168 y Fn(;)184 b Fo(l)53 +b Fx(=)-61 b Fo(t)105 b Fn(;)184 b Fo(l)11421 54787 y +Fl(0)11307 55463 y Fu(1)11742 55168 y Fx(=)-61 b Fo(t)13015 +54787 y Fl(0)12910 55463 y Fu(1)13406 55168 y Fn(;)370 +b(::)184 b(;)g Fo(l)15769 54848 y Fl(0)15655 55441 y +Fi(n)16231 55168 y Fx(=)-61 b Fo(t)17504 54848 y Fl(0)17399 +55441 y Fi(n)18033 55168 y Ft(g)308 b(\000)-185 b(!)308 +b(f)p Fo(l)21821 55334 y Fu(1)22256 55168 y Fx(=)-61 +b Fo(v)23565 55334 y Fu(1)24061 55168 y Fn(;)370 b(::)184 +b(;)g Fo(l)26310 55334 y Fi(m)27113 55168 y Fx(=)-61 +b Fo(v)28422 55334 y Fi(m)29284 55168 y Fn(;)184 b Fo(l)53 +b Fx(=)-61 b Fo(t)31384 54848 y Fl(0)31695 55168 y Fn(;)184 +b Fo(l)32583 54787 y Fl(0)32469 55463 y Fu(1)32905 55168 +y Fx(=)-61 b Fo(t)34178 54787 y Fl(0)34073 55463 y Fu(1)34569 +55168 y Fn(;)369 b(::)184 b(;)g Fo(l)36931 54848 y Fl(0)36817 +55441 y Fi(n)37393 55168 y Fx(=)-61 b Fo(t)38666 54848 +y Fl(0)38561 55441 y Fi(n)39195 55168 y Ft(g)40988 54408 +y Fj(reduce)p 44986 54408 368 45 v 442 w(Ctx)p 47631 +54408 V 441 w(record)0 58752 y Fx(Multiple)371 b(dot)f(forms)f(within)i +(the)e(same)h(seman)-31 b(tic)371 b(rule)e(can)g(share)g(b)31 +b(ounds)368 b(\(e.g.)j(1)p Fn(::m)p Fx(\):)11293 61785 +y Ft(8)p Fo(i)421 b Ft(2)308 b Fx(1)p Fn(::)p Fo(m)85 +b Fn(:)p Ft(9)p Fo(j)470 b Ft(2)307 b Fx(1)p Fn(::)p +Fo(n)85 b Fn(:)p Fx(\()p Fo(l)21541 61951 y Fi(i)21891 +61785 y Fx(=)-61 b Fo(k)23200 61951 y Fi(j)23897 61785 +y Ft(^)246 b Fp(matc)-35 b(h)184 b Fx(\()p Fo(p)29474 +61951 y Fi(i)29883 61785 y Fn(;)g Fo(v)30883 61951 y +Fi(j)31335 61785 y Fx(\))-61 b(=)g Fn(\033)33137 61951 +y Fi(i)33545 61785 y Fx(\))p 8586 62361 28097 45 v 8586 +63374 a Fp(matc)-35 b(h)184 b Fx(\()p Ft(f)p Fo(l)13449 +63540 y Fu(1)13885 63374 y Fx(=)-61 b Fo(p)15251 63540 +y Fu(1)15747 63374 y Fn(;)369 b(::)184 b(;)g Fo(l)17995 +63540 y Fi(m)18799 63374 y Fx(=)-61 b Fo(p)20165 63540 +y Fi(m)21026 63374 y Ft(g)p Fn(;)184 b Ft(f)p Fo(k)23132 +63540 y Fu(1)23570 63374 y Fx(=)-61 b Fo(v)24879 63540 +y Fu(1)25375 63374 y Fn(;)369 b(::)184 b(;)g Fo(k)27849 +63540 y Fi(n)28425 63374 y Fx(=)-61 b Fo(v)29734 63540 +y Fi(n)30369 63374 y Ft(g)p Fx(\))g(=)g Fn(\033)32724 +63540 y Fu(1)33220 63374 y Fn(;)370 b(::)184 b(;)g(\033)35819 +63540 y Fi(m)37923 62615 y Fj(M)p 39091 62615 368 45 +v 440 w(R)-32 b(cd)0 66550 y Fx(In)386 b(more)h(detail,)393 +b(pro)31 b(ductions)387 b(can)g(ha)-31 b(v)g(e)387 b(dot)g(tok)-31 +b(ens)388 b(in)-31 b(tersp)31 b(ersed)385 b(b)31 b(et)-31 +b(w)g(een)388 b(the)f(elemen)-31 b(ts.)545 b(Dot)387 +b(tok)-31 b(ens)388 b(consist)0 67878 y(of)446 b(t)-31 +b(w)g(o,)466 b(three)445 b(or)g(four)h(consecutiv)-31 +b(e)446 b(dots)g(\()p RoyalBlue Fs(..)p Black Fx(,)p +RoyalBlue 465 w Fs(...)p Black Fx(,)465 b(or)p RoyalBlue +446 w Fs(....)p Black Fx(\),)g(indicating)448 b(lists)e(with)g(minim) +-31 b(um)448 b(lengths)e(0,)465 b(1,)0 69206 y(and)377 +b(2)f(resp)31 b(ectiv)-31 b(ely)378 b(\(these)e(length)i(minim)-31 +b(ums)379 b(are)d(resp)31 b(ected)375 b(only)j(when)e(parsing)h +(concrete)g(lists;)k(they)c(are)f(not)0 70535 y(presen)-31 +b(t)418 b(in)h(Isab)31 b(elle/Co)g(q/HOL)420 b(output\).)642 +b(The)418 b(to)31 b(ol)420 b(iden)-31 b(ti\014es)419 +b(the)g(maximal)i(sequence)d(of)h(elemen)-31 b(ts)419 +b(on)g(either)0 71863 y(side)379 b(of)g(the)g(dots)g(that)h(are)e(iden) +-31 b(tical)382 b(mo)31 b(dulo)380 b(an)-31 b(ti-uni\014cation)382 +b(of)d(some)h(index.)521 b(Optionally)-92 b(,)384 b(there)379 +b(ma)-31 b(y)380 b(also)g(b)31 b(e)0 73191 y(a)338 b(single)h(terminal) +h(on)e(either)h(side)f(of)g(the)g(dot)h(tok)-31 b(en,)346 +b(separating)340 b(instances)e(of)h(the)f(rep)31 b(eated)338 +b(unit.)483 b(F)-92 b(or)337 b(example,)0 74520 y(in)369 +b(the)h Fs(test7.ott)g Fx(pro)31 b(duction)p Black 24502 +77841 a(35)p Black eop end +%%Page: 36 36 +TeXDict begin 36 35 bop Black Black Black Black RoyalBlue +RoyalBlue 1194 -594 a Fs(|)p RoyalBlue Black 581 w({)581 +b(l1)h(=)f(t1)h(,)p RoyalBlue 1162 w(..)p Black 581 w(,)g(ln)f(=)h(tn)f +(})p RoyalBlue 1162 w(::)p Black RoyalBlue 582 w(::)p +Black 581 w(Rec)31 1399 y Fx(there)399 b(is)f(suc)-31 +b(h)399 b(a)f(terminal)j(\(the)e(`)p Fs(,)p Fx('\).)582 +b(The)399 b(to)31 b(ol)400 b(iden)-31 b(ti\014es)400 +b(that)g Fs(l1)581 b(=)g(t1)399 b Fx(and)g Fs(ln)581 +b(=)h(tn)398 b Fx(can)h(b)31 b(e)398 b(an)-31 b(ti-uni\014ed)401 +b(as)31 2727 y(\(roughly\))416 b Fs(l_)582 b(=)f(t_)p +Fx(,)426 b(taking)416 b Fs(_)e Fx(to)h(b)31 b(e)413 b(the)h(b)31 +b(ounds)414 b Fs(1)g Fx(and)g Fs(n)p Fx(.)627 b(A)414 +b(single)h(pro)31 b(duction)415 b(ma)-31 b(y)415 b(con)-31 +b(tain)416 b(m)-31 b(ultiple)417 b(dot)31 4055 y(forms,)355 +b(but)c(they)f(m)-31 b(ust)351 b(not)g(o)-31 b(v)g(erlap;)358 +b(nested)350 b(dot)h(forms)g(\(including)h(those)f(with)g(m)-31 +b(ultiple)353 b(c)-31 b(hanging)352 b(indices\))f(are)31 +5384 y(not)370 b(curren)-31 b(tly)370 b(supp)31 b(orted.)31 +7376 y(Homomorphisms)390 b(and)e(binding)h(sp)31 b(eci\014cations)388 +b(are)g(generalised)g(to)h(matc)-31 b(h:)530 b(an)388 +b Fs(mse)g Fx(can)g(in)-31 b(v)g(olv)g(e)390 b(a)e(dot)g(form)g(of)31 +8705 y(meta)-31 b(v)-61 b(ariables;)332 b(a)308 b(dot)g(form)g(of)h +(non)-31 b(terminals;)330 b(or)308 b(an)g(auxiliary)i(function)f +(applied)g(to)f(a)g(dot)h(form)f(of)g(non)-31 b(terminals)31 +10033 y(\(e.g.)371 b(the)f(b\()p Fo(p)6009 10199 y Fu(1)6506 +10033 y Fn(::)p Fo(p)7686 10199 y Fi(n)8321 10033 y Fx(\))g(ab)31 +b(o)-31 b(v)g(e\).)494 b(Dot)370 b(forms)f(on)h(the)f(righ)-31 +b(t)370 b(of)g(a)p Mahogany 369 w Fs(bind)p Black 370 +w Fx(are)f(not)h(curren)-31 b(tly)369 b(supp)31 b(orted.)31 +12026 y(L)324 11799 y Fu(A)812 12026 y Fx(T)1426 12264 +y(E)2042 12026 y(X)337 b(homomorphisms)i(should)e(not)g(refer)f(to)h +(dot)h(forms,)344 b(as)336 b(either)h(an)g(error)f(or)h(bad)g(output)h +(will)g(b)31 b(e)336 b(generated.)31 13354 y(\(F)-92 +b(or)367 b(L)2739 13127 y Fu(A)3227 13354 y Fx(T)3841 +13592 y(E)4456 13354 y(X,)h(there)e(should)h(really)g(b)31 +b(e)366 b(some)h(means)g(to)g(sp)31 b(ecify)366 b(a)h(homomorphism)i +(for)d(the)h(rep)31 b(eated)366 b(expression,)31 14682 +y(and)546 b(also)g(data)h(on)e(ho)-31 b(w)547 b(an)-31 +b(y)546 b(list)g(separators)f(should)h(b)31 b(e)545 b(t)-31 +b(yp)31 b(eset.)1021 b(This)546 b(w)-31 b(ould)546 b(require)f(more)h +(sp)31 b(ecial-case)31 16011 y(treatmen)-31 b(t,)372 +b(whic)-31 b(h)370 b(is)f(not)h(curren)-31 b(tly)370 +b(supp)31 b(orted.\))31 19773 y Fq(12.2)1496 b(List)498 +b(comprehension)j(forms)31 22481 y Fx(Lists)349 b(can)h(also)f(b)31 +b(e)349 b(expressed)f(as)g(explicit)j(list)f(comprehensions,)k(for)349 +b(more)g(concise)h(t)-31 b(yp)31 b(esetting.)488 b(Three)348 +b(di\013eren)-31 b(t)31 23809 y(st)g(yles)383 b(are)f(supp)31 +b(orted,)385 b(with)e(no)f(b)31 b(ounds,)385 b(an)d(upp)31 +b(er)381 b(b)31 b(ound,)385 b(or)d(a)g(lo)-31 b(w)g(er)383 +b(and)g(upp)31 b(er)380 b(b)31 b(ound.)531 b(F)-92 b(or)381 +b(example,)387 b(in)382 b(a)31 25138 y(sym)-31 b(b)31 +b(olic)371 b(term,)f(instead)g(of)g(the)f(dot)h(form)p +Black Black 1078 27019 a Fw(G)523 b(|-)g(t1:T1)p RoyalBlue +1046 w(..)p Black 1046 w(G)g(|-)g(tn:Tn)31 30230 y Fx(one)370 +b(can)f(write)h(an)-31 b(y)370 b(of)g(the)f(follo)-31 +b(wing)p Black Black RoyalBlue 1601 32111 a Fw()p Black RoyalBlue 1601 +33329 a()p Black RoyalBlue 1601 34547 +a()p +Black 31 37757 a Fx(Similar)403 b(comprehensions)f(can)f(b)31 +b(e)401 b(used)g(in)g(pro)31 b(ductions,)410 b(for)401 +b(example)i(lines)f(2{4)g(b)31 b(elo)-31 b(w.)590 b(In)400 +b(addition,)412 b(compre-)31 39085 y(hensions)350 b(in)g(pro)31 +b(ductions)350 b(can)g(sp)31 b(ecify)349 b(a)h(terminal)h(to)f(b)31 +b(e)349 b(used)g(as)h(a)f(separator)h(in)g(concrete)g(lists,)k(as)c(in) +f(lines)h(5{7)31 40414 y(b)31 b(elo)-31 b(w.)494 b(\(These)370 +b(examples)g(are)f(tak)-31 b(en)371 b(from)e Fs(test17.10.ott)p +Fx(.\))p Black Black RoyalBlue 1078 42295 a Fw(|)p Black +1046 w(l1)523 b(=)g(t1)g(,)p RoyalBlue 1046 w(..)p Black +523 w(,)g(ln)g(=)g(tn)p RoyalBlue 6277 w(::)p Black RoyalBlue +523 w(::)p Black 523 w(Rec)p RoyalBlue 7323 w({{)p Black +Mahogany 523 w(com)p Black 523 w(dots)p RoyalBlue 523 +w(}})p Black RoyalBlue 1078 43513 a(|)p Black RoyalBlue +1046 w()p Black RoyalBlue +3661 w(::)p Black RoyalBlue 523 w(::)p Black 523 w(Rec_comp_none)p +RoyalBlue 2093 w({{)p Black Mahogany 523 w(com)p Black +523 w(comp)p RoyalBlue 523 w(}})p Black RoyalBlue 1078 +44731 a(|)p Black RoyalBlue 1046 w()p Black RoyalBlue +3661 w(::)p Black RoyalBlue 523 w(::)p Black 523 w(Rec_comp_u_none)p +RoyalBlue 1047 w({{)p Black Mahogany 523 w(com)p Black +523 w(compu)p RoyalBlue 523 w(}})p Black RoyalBlue 1078 +45948 a(|)p Black RoyalBlue 1046 w()p Black RoyalBlue 3661 w(::)p Black +RoyalBlue 523 w(::)p Black 523 w(Rec_comp_lu_none)p RoyalBlue +524 w({{)p Black Mahogany 523 w(com)p Black 523 w(complu)p +RoyalBlue 523 w(}})p Black RoyalBlue 1078 47166 a(|)p +Black RoyalBlue 1046 w()p Black RoyalBlue +1046 w(::)p Black RoyalBlue 523 w(::)p Black 523 w(Rec_comp_some)p +RoyalBlue 2093 w({{)p Black Mahogany 523 w(com)p Black +523 w(comp)g(with)g(terminal)p RoyalBlue 523 w(}})p Black +RoyalBlue 1078 48384 a(|)p Black RoyalBlue 1046 w()p Black +RoyalBlue 1046 w(::)p Black RoyalBlue 523 w(::)p Black +523 w(Rec_comp_u_some)p RoyalBlue 1047 w({{)p Black Mahogany +523 w(com)p Black 523 w(compu)g(with)g(terminal)p RoyalBlue +523 w(}})p Black RoyalBlue 1078 49601 a(|)p Black RoyalBlue +1046 w()p Black RoyalBlue +1046 w(::)p Black RoyalBlue 523 w(::)p Black 523 w(Rec_comp_lu_some)p +RoyalBlue 524 w({{)p Black Mahogany 523 w(com)p Black +523 w(complu)g(with)g(terminal)p RoyalBlue 523 w(}})p +Black 31 52812 a Fx(In)466 b(Co)31 b(q,)492 b(HOL)466 +b(or)g(Isab)31 b(elle)466 b(output,)493 b(list)467 b(dot)g(forms)f(and) +g(the)h(v)-61 b(arious)466 b(list)h(comprehension)g(forms)g(are)f +(treated)31 54140 y(almost)313 b(iden)-31 b(tically)-92 +b(.)476 b(In)310 b(LaT)-92 b(eX)311 b(output,)324 b(comprension)312 +b(forms)e(are)h(default-t)-31 b(yp)31 b(eset)313 b(with)e(o)-31 +b(v)g(erbars.)474 b(F)-92 b(or)310 b(example,)31 55468 +y(the)370 b(rules)f(b)31 b(elo)-31 b(w)p Black Black +555 57350 a Fw(G|-)523 b(t:l1:T1,)p RoyalBlue(..)p Black(,ln:Tn)p +RoyalBlue 555 58568 a(-----------------------)g(::)p +Black 523 w(Proj_dotform)555 59785 y(G|-)g(t.lj)g(:)g(Tj)555 +62221 y(G|-)g(t:)p RoyalBlue 1046 w()p Black +RoyalBlue 555 63438 a(----------------------------------)h(::)p +Black 523 w(Proj_comp)555 64656 y(G|-)f(t.lj)g(:)g(Tj)555 +67091 y(G|-)g(t:)p RoyalBlue 1046 w()p Black RoyalBlue 555 68309 +a(----------------------------------)h(::)p Black 523 +w(Proj_comp_u)555 69527 y(G|-)f(t.lj)g(:)g(Tj)555 71962 +y(G|-)g(t:)p RoyalBlue 1046 w()p +Black RoyalBlue 555 73180 a(----------------------------------)h(::)p +Black 523 w(Proj_comp_lu)555 74397 y(G|-)f(t.lj)g(:)g(Tj)p +Black 24533 77841 a Fx(36)p Black eop end +%%Page: 37 37 +TeXDict begin 37 36 bop Black Black 0 1399 a Fx(are)369 +b(t)-31 b(yp)31 b(eset)370 b(as)f(follo)-31 b(ws.)13206 +4432 y(\000)307 b Ft(`)h Fo(t)412 b Fx(:)308 b Ft(f)p +Fo(l)17420 4598 y Fu(1)18225 4432 y Fx(:)g Fo(T)19632 +4598 y Fu(1)20128 4432 y Fn(;)370 b(::)184 b(;)g Fo(l)22377 +4598 y Fi(n)23321 4432 y Fx(:)308 b Fo(T)24728 4598 y +Fi(n)25363 4432 y Ft(g)p 12652 5007 13819 45 v 16730 +6021 a Fx(\000)f Ft(`)h Fo(t)105 b Fn(:)p Fo(l)19776 +6187 y Fi(j)20535 6021 y Fx(:)308 b Fo(T)21942 6187 y +Fi(j)27710 5262 y Fj(Ty)p 29332 5262 368 45 v 441 w(Pr)-25 +b(oj)p 32410 5262 V 440 w(dotf)g(orm)16452 8339 y Fx(\000)307 +b Ft(`)h Fo(t)413 b Fx(:)308 b Ft(f)p 20568 7437 2816 +45 v 20568 8338 a Fo(l)20851 8504 y Fi(i)21568 8338 y +Fx(:)g Fo(T)22975 8504 y Fi(i)23536 7622 y(i)24129 8339 +y Ft(g)p 15899 8914 9338 45 v 17736 9928 a Fx(\000)f +Ft(`)h Fo(t)105 b Fn(:)p Fo(l)20782 10094 y Fi(j)21541 +9928 y Fx(:)308 b Fo(T)22948 10094 y Fi(j)26476 9168 +y Fj(Ty)p 28098 9168 368 45 v 441 w(Pr)-25 b(oj)p 31176 +9168 V 440 w(comp)15257 12245 y Fx(\000)307 b Ft(`)h +Fo(t)412 b Fx(:)308 b Ft(f)p 19372 11343 2816 45 v 184 +w Fo(l)19655 12411 y Fi(i)20373 12245 y Fx(:)g Fo(T)21780 +12411 y Fi(i)22340 11528 y(i)68 b Fr(<)p Fi(n)24205 12245 +y Ft(g)p 14703 12820 10610 45 v 17176 13834 a Fx(\000)308 +b Ft(`)g Fo(t)105 b Fn(:)p Fo(l)20223 14000 y Fi(j)20981 +13834 y Fx(:)308 b Fo(T)22388 14000 y Fi(j)26552 13075 +y Fj(Ty)p 28174 13075 368 45 v 441 w(Pr)-25 b(oj)p 31252 +13075 V 440 w(comp)p 34494 13075 V 440 w(u)14537 16151 +y Fx(\000)307 b Ft(`)h Fo(t)412 b Fx(:)308 b Ft(f)p 18652 +15250 2816 45 v 184 w Fo(l)18935 16317 y Fi(i)19653 16151 +y Fx(:)g Fo(T)21060 16317 y Fi(i)21620 15435 y(i)68 b +Fl(2)p Fu(1)p Fr(::)p Fi(n)24357 16151 y Ft(g)p 13983 +16727 11481 45 v 16892 17741 a Fx(\000)308 b Ft(`)f Fo(t)105 +b Fn(:)p Fo(l)19938 17907 y Fi(j)20697 17741 y Fx(:)308 +b Fo(T)22104 17907 y Fi(j)26704 16981 y Fj(Ty)p 28326 +16981 368 45 v 440 w(Pr)-25 b(oj)p 31403 16981 V 440 +w(comp)p 34645 16981 V 441 w(lu)0 20966 y Fx(Upp)31 b(er)368 +b(b)31 b(ounds)369 b(of)h(the)f(form)h Fn(n)247 b Ft(\000)e +Fx(1)370 b(are)f(also)h(p)31 b(ermitted,)371 b(e.g.)493 +b(with)p Black Black 523 22848 a Fw(G|-)523 b(t:l0:T0,)p +RoyalBlue(..)p Black(,ln-1:Tn-1)p RoyalBlue 523 24066 +a(-----------------------)h(::)p Black 523 w(Proj_dotform_minus)523 +25284 y(G|-)f(t.lj)g(:)g(Tj)523 27719 y(G|-)g(t:)p RoyalBlue +1046 w()p Black RoyalBlue +523 28937 a(----------------------------------)h(::)p +Black 523 w(Proj_comp_lu_minus)523 30154 y(G|-)f(t.lj)g(:)g(Tj)0 +33364 y Fx(t)-31 b(yp)31 b(eset)370 b(as)f(b)31 b(elo)-31 +b(w.)494 b(More)368 b(complex)j(arithmetic)g(expressions)e(are)g(not)h +(curren)-31 b(tly)369 b(supp)31 b(orted.)10211 36397 +y(\000)308 b Ft(`)f Fo(t)413 b Fx(:)308 b Ft(f)p Fo(l)14426 +36563 y Fu(0)15230 36397 y Fx(:)g Fo(T)16637 36563 y +Fu(0)17134 36397 y Fn(;)369 b(::)184 b(;)g Fo(l)19382 +36563 y Fi(n)67 b Fl(\000)p Fi(1)21588 36397 y Fx(:)308 +b Fo(T)22995 36563 y Fi(n)67 b Fl(\000)p Fi(1)24892 36397 +y Ft(g)p 9658 36973 16341 45 v 14997 37987 a Fx(\000)307 +b Ft(`)h Fo(t)105 b Fn(:)p Fo(l)18043 38153 y Fi(j)18802 +37987 y Fx(:)308 b Fo(T)20209 38153 y Fi(j)27238 37228 +y Fj(Ty)p 28860 37228 368 45 v 441 w(Pr)-25 b(oj)p 31938 +37228 V 440 w(dotf)g(orm)p 37193 37228 V 440 w(minus)12237 +40304 y Fx(\000)307 b Ft(`)h Fo(t)412 b Fx(:)308 b Ft(f)p +16352 39402 2816 45 v 184 w Fo(l)16635 40470 y Fi(i)17353 +40304 y Fx(:)g Fo(T)18760 40470 y Fi(i)19320 39587 y(i)68 +b Fl(2)p Fu(0)p Fr(::)p Fi(n)f Fl(\000)p Fu(1)23190 40304 +y Ft(g)p 11683 40879 12614 45 v 15159 41893 a Fx(\000)307 +b Ft(`)h Fo(t)105 b Fn(:)p Fo(l)18205 42059 y Fi(j)18964 +41893 y Fx(:)308 b Fo(T)20371 42059 y Fi(j)25537 41134 +y Fj(Ty)p 27159 41134 368 45 v 441 w(Pr)-25 b(oj)p 30237 +41134 V 440 w(comp)p 33479 41134 V 440 w(lu)p 35166 41134 +V 441 w(minus)0 45119 y Fx(A)385 b(list)g(form)h(used)e(in)h(a)g(sym) +-31 b(b)31 b(olic)386 b(term)g(do)31 b(es)384 b(not)i(ha)-31 +b(v)g(e)385 b(to)h(b)31 b(e)384 b(in)h(the)g(same)g(st)-31 +b(yle)386 b(as)f(that)h(in)f(the)g(corresp)31 b(onding)0 +46447 y(pro)g(duction.)478 b(Ho)-31 b(w)g(ev)g(er,)335 +b(if)324 b(a)g(meta)-31 b(v)-61 b(ariable)326 b(or)e(non)-31 +b(terminal)326 b(o)31 b(ccurs)323 b(in)h(m)-31 b(ultiple)326 +b(di\013eren)-31 b(t)324 b(list)g(forms)g(in)g(the)g(same)0 +47776 y(inference)340 b(rule,)347 b(they)341 b(m)-31 +b(ust)341 b(all)g(b)31 b(e)340 b(in)h(the)g(same)g(st)-31 +b(yle)341 b(and)f(with)i(the)f(same)g(b)31 b(ounds.)482 +b(Moreo)-31 b(v)g(er,)347 b(in)341 b(a)g(pro)31 b(duction,)0 +49104 y(a)361 b(list)h(form)f(in)g(a)g(bindsp)31 b(ec)361 +b(or)f(homomorphism)k(m)-31 b(ust)361 b(b)31 b(e)360 +b(in)h(the)g(same)h(st)-31 b(yle)361 b(and)g(with)h(the)f(same)h(b)31 +b(ounds)360 b(as)h(the)0 50433 y(corresp)31 b(onding)369 +b(list)h(form)g(in)g(the)f(elemen)-31 b(ts)370 b(of)g(the)f(pro)31 +b(duction.)0 52648 y(The)246 b(comprehension)h(form)g(without)h(an)f +(upp)31 b(er)245 b(b)31 b(ound,)271 b(e.g.)p RoyalBlue +248 w Fs()p Black +Fx(,)271 b(t)-31 b(yp)31 b(eset)247 b(as)p 44014 51746 +5622 45 v 492 w(\000)492 b Ft(`)g Fo(t)46734 52814 y +Fi(i)47635 52648 y Fx(:)h Fo(T)49227 52814 y Fi(i)49787 +51932 y(i)50196 52648 y Fx(,)0 53976 y(is)386 b(not)g(standard)g +(notation,)393 b(but)386 b(is)f(often)i(v)-31 b(ery)386 +b(useful.)542 b(Man)-31 b(y)386 b(seman)-31 b(tic)387 +b(rules)e(in)-31 b(v)g(olv)g(e)388 b(lists)e(of)g(matc)-31 +b(hed)387 b(length,)0 55305 y(e.g.)373 b(of)f(the)743 +b Fo(t)5943 55471 y Fi(i)6723 55305 y Fx(and)g Fo(T)10041 +55471 y Fi(i)10822 55305 y Fx(here,)372 b(but)f(do)h(not)g(need)g(to)g +(in)-31 b(tro)31 b(duce)372 b(an)g(iden)-31 b(ti\014er)372 +b(for)g(that)h(length;)h(omitting)h(it)d(k)-31 b(eeps)0 +56633 y(them)370 b(concise.)0 58626 y(The)421 b(default)i(visual)f(st) +-31 b(yle)421 b(for)g(t)-31 b(yp)31 b(esetting)423 b(list)f +(comprehensions)g(can)f(b)31 b(e)420 b(o)-31 b(v)g(erridden)422 +b(b)-31 b(y)421 b(rede\014ning)g(the)g(L)47562 58399 +y Fu(A)48050 58626 y Fx(T)48664 58864 y(E)49280 58626 +y(X)0 59954 y(commands)370 b Fs(\\ottcomp)p Fx(,)h Fs(\\ottcompu)p +Fx(,)g(and)e Fs(\\ottcomplu)i Fx(in)e(an)p Mahogany 370 +w Fs(embed)p Black 369 w Fx(section,)i(as)e(in)h(Section)g(4.3.)0 +61946 y(In)387 b(some)g(cases)g(one)h(could)g(mak)-31 +b(e)388 b(the)g(t)-31 b(yp)31 b(eset)388 b(notation)i(ev)-31 +b(en)387 b(less)g(noisy)-92 b(,)393 b(b)-31 b(y)387 b(either)h +(omitting)i(the)e(sup)31 b(erscript)386 b Fn(i)0 63275 +y Fx(or)418 b(omitting)k(b)31 b(oth)419 b(the)f(sup)31 +b(erscript)418 b Fn(i)g Fx(and)h(the)f(subscript)g Fn(i)p +Fx('s)h(on)g Fn(t)f Fx(and)g Fn(T)154 b Fx(.)640 b(The)419 +b(\014rst)f(is)g(unam)-31 b(biguous)420 b(if)f(there)0 +64603 y(is)410 b(at)g(most)h(one)f(index)g(on)h(eac)-31 +b(h)410 b(elemen)-31 b(t)411 b(in)f(the)g(comprehension;)432 +b(the)410 b(second)g(if)g(all)h(the)f(elemen)-31 b(ts)411 +b(are)f(indexed)0 65932 y(b)-31 b(y)428 b(the)g(same)g(thing)h(\(not)g +(the)f(case)g(for)g(this)g(example,)444 b(but)428 b(common)i(for)d +(comprehensions)i(of)f(single)g(elemen)-31 b(ts,)0 67260 +y(e.g.)546 b Fs(<<)582 b(Ti)f(//)h(i>>)387 b Fx(for)p +11278 66371 801 45 v 387 w Fn(T)153 b Fx(\).)546 b(It)387 +b(is)g(arguable)h(that)g(that)g(should)f(b)31 b(e)387 +b(automated)i(in)e(future)g(Ott)h(releases,)j(though)0 +68588 y(it)370 b(w)-31 b(ould)371 b(bring)e(the)h(t)-31 +b(yp)31 b(eset)369 b(and)h(ASCI)31 b(I)369 b(v)-31 b(ersions)369 +b(out)h(of)f(step.)0 70581 y(List)g(comprehension)h(forms)g(can)f(also) +h(b)31 b(e)369 b(used)g(in)g(bindsp)31 b(ecs)368 b(and)i(in)f +(homomorphisms.)p Black 24502 77841 a(37)p Black eop +end +%%Page: 38 38 +TeXDict begin 38 37 bop Black Black 31 -594 a Fq(12.3)1496 +b(Pro)42 b(of)497 b(assistan)-42 b(t)502 b(co)42 b(de)498 +b(for)g(list)h(forms)31 2114 y Fp(12.3.1)1275 b(T)-35 +b(yp)35 b(es)31 4821 y Fx(W)-92 b(e)361 b(ha)-31 b(v)g(e)362 +b(to)g(c)-31 b(ho)31 b(ose)361 b(pro)31 b(of)362 b(assistan)-31 +b(t)362 b(represen)-31 b(tations)362 b(for)f(pro)31 b(ductions)362 +b(in)-31 b(v)g(olving)364 b(list)e(forms.)490 b(F)-92 +b(or)361 b(example,)j(for)31 6149 y(a)370 b(language)h(with)g(records)d +(one)h(migh)-31 b(t)371 b(write)p Black Black Mahogany +1194 8142 a Fs(metavar)p Black 582 w(label)p RoyalBlue(,)p +Black 582 w(l)p RoyalBlue 581 w(::=)p Black RoyalBlue +582 w({{)p Black Mahogany 581 w(hol)p Black 582 w(string)p +RoyalBlue 582 w(}})p Black RoyalBlue 581 w({)q({)p Black +Mahogany 581 w(coq)p Black 581 w(nat)p RoyalBlue 582 +w(}})p Black Mahogany 1194 9470 a(indexvar)p Black 582 +w(index)p RoyalBlue(,)p Black 582 w(n)p RoyalBlue 581 +w(::=)p Black RoyalBlue 1163 w({{)p Black Mahogany 582 +w(hol)p Black 581 w(num)p RoyalBlue 582 w(}})p Black +RoyalBlue 581 w({{)p Black Mahogany 582 w(coq)p Black +581 w(nat)p RoyalBlue 582 w(}})p Black Mahogany 1194 +10799 a(grammar)p Black 1194 12127 a(term)p RoyalBlue(,)p +Black 582 w(t)p RoyalBlue 581 w(::)p Black 581 w('t_')p +RoyalBlue 582 w(::=)p Black RoyalBlue 2356 13455 a(|)p +Black 581 w({)582 b(l1)f(=)g(t1)h(,)p RoyalBlue 1162 +w(..)p Black 582 w(,)f(ln)h(=)f(tn)g(})p RoyalBlue 3487 +w(::)p Black RoyalBlue 582 w(::)p Black 581 w(record)31 +15448 y Fx(In)435 b(HOL)h(and)f(Isab)31 b(elle)436 b(w)-31 +b(e)436 b(represen)-31 b(t)435 b(these)g(simply)h(with)h(con)-31 +b(tructors)436 b(whose)g(argumen)-31 b(t)437 b(t)-31 +b(yp)31 b(es)435 b(in)-31 b(v)g(olv)g(e)438 b(pro)31 +b(of-)31 16776 y(assistan)-31 b(t)371 b(nativ)-31 b(e)371 +b(list)f(t)-31 b(yp)31 b(es,)370 b(e.g.)493 b(the)370 +b(HOL)f(list)h(of)f(pairs)h(of)f(a)h Fs(label)g Fx(and)f(a)g +Fs(t)p Fx(:)p Black Black 1078 18658 a Fw(val)523 b(_)g(=)g +(Hol_datatype)g(`)1078 19876 y(t)g(=)g(E_record)g(of)g(\(label#t\))g +(list)1047 b(`;)31 21868 y Fx(F)-92 b(or)460 b(Co)31 +b(q)461 b(w)-31 b(e)461 b(pro)-31 b(vide)461 b(t)-31 +b(w)g(o)463 b(alternativ)-31 b(es:)677 b(one)461 b(can)f(either)h(use)f +(nativ)-31 b(e)462 b(lists,)484 b(or)461 b(lists)g(can)f(b)31 +b(e)460 b(translated)i(a)-31 b(w)g(a)g(y)-92 b(,)31 23197 +y(dep)31 b(ending)411 b(on)g(taste.)616 b(The)411 b(c)-31 +b(hoice)411 b(is)f(determined)h(b)-31 b(y)411 b(the)f +Fs(-coq_expand_list_types)k Fx(command-line)e(option.)31 +24525 y(In)375 b(the)h(former)f(case)h(w)-31 b(e)375 +b(generate)i(an)e(appropriate)i(induction)g(principle)f(using)g(nested) +f(\014xp)31 b(oin)-31 b(ts,)378 b(as)d(the)h(default)31 +25853 y(principle)381 b(pro)31 b(duced)380 b(b)-31 b(y)381 +b(Co)31 b(q)380 b(is)h(to)31 b(o)381 b(w)-31 b(eak)381 +b(to)g(b)31 b(e)380 b(useful.)526 b(In)379 b(the)i(latter)g(case)f(w) +-31 b(e)381 b(syn)-31 b(thesise)380 b(an)h(additional)i(t)-31 +b(yp)31 b(e)31 27182 y(for)443 b(eac)-31 b(h)444 b(t)-31 +b(yp)31 b(e)443 b(of)g(lists-of-tuples)i(that)f(arises)e(in)h(the)g +(grammar.)715 b(In)442 b(the)h(example,)463 b(w)-31 b(e)444 +b(need)e(a)h(t)-31 b(yp)31 b(e)443 b(of)h(lists)f(of)31 +28510 y(pairs)370 b(of)f(a)h Fs(label)g Fx(and)f(a)g +Fs(t)p Fx(:)p Black Black 31 30392 a Fw(Inductive)31 +31609 y(list_label_t)524 b(:)f(Set)g(:=)1601 32827 y(Nil_list_label_t)g +(:)g(list_label_t)555 34045 y(|)g(Cons_list_label_t)g(:)g(label)g(->)h +(t)f(->)g(list_label_t)2647 35262 y(->)g(list_label_t)31 +37698 y(with)h(t)f(:)g(Set)g(:=)1601 38915 y(E_record)g(:)g +(list_label_t)g(->)g(t)h(.)31 40908 y Fx(These)319 b(are)f(included)h +(in)g(the)g(grammar)g(top)31 b(ological)323 b(sort,)329 +b(and)318 b(utilit)-31 b(y)322 b(functions,)330 b(e.g.)319 +b(to)h(mak)-31 b(e)319 b(and)g(unmak)-31 b(e)320 b(lists,)31 +42236 y(are)370 b(syn)-31 b(thesised.)31 45778 y Fp(12.3.2)1275 +b(T)-106 b(erms)424 b(\(in)g(inductiv)-35 b(e)424 b(de\014nition)i +(rules\))31 48485 y Fx(Supp)31 b(orting)540 b(list)g(forms)e(in)h(the)g +(rules)f(of)h(an)g(inductiv)-31 b(e)540 b(de\014nition)h(requires)c +(some)i(additional)j(analysis.)1002 b(F)-92 b(or)31 49814 +y(example,)372 b(consider)d(the)g(record)g(t)-31 b(yping)371 +b(rule)e(b)31 b(elo)-31 b(w.)15304 52847 y(\000)307 b +Ft(`)h Fo(t)17655 53013 y Fu(0)18090 52847 y Fx(:)-61 +b Fo(T)19128 53013 y Fu(0)20732 52847 y Fn(::)1108 b +Fx(\000)307 b Ft(`)h Fo(t)24805 53013 y Fi(n)67 b Fl(\000)p +Fi(1)26639 52847 y Fx(:)-61 b Fo(T)27677 53013 y Fi(n)67 +b Fl(\000)p Fi(1)p 10846 53422 23186 45 v 10846 54436 +a Fx(\000)308 b Ft(`)g(f)p Fo(l)13666 54602 y Fu(0)14101 +54436 y Fx(=)-61 b Fo(t)15269 54602 y Fu(0)15765 54436 +y Fn(;)369 b(::)184 b(;)g Fo(l)18013 54602 y Fi(n)67 +b Fl(\000)p Fi(1)19850 54436 y Fx(=)-61 b Fo(t)21018 +54602 y Fi(n)67 b Fl(\000)p Fi(1)22914 54436 y Ft(g)-61 +b Fx(:)g Ft(f)p Fo(l)24488 54602 y Fu(0)24923 54436 y +Fx(:)g Fo(T)25961 54602 y Fu(0)26458 54436 y Fn(;)370 +b(::)184 b(;)g Fo(l)28707 54602 y Fi(n)67 b Fl(\000)p +Fi(1)30544 54436 y Fx(:)-61 b Fo(T)31582 54602 y Fi(n)67 +b Fl(\000)p Fi(1)33478 54436 y Ft(g)35271 53677 y Fj(Ty)p +36893 53677 368 45 v 441 w(R)-32 b(cd)31 56921 y Fx(W)-92 +b(e)514 b(analyse)g(the)h(sym)-31 b(b)31 b(olic)515 b(terms)f(in)g(the) +g(premises)f(and)h(conclusion)h(to)g(iden)-31 b(tify)516 +b(lists)e(of)g(non)-31 b(terminals)516 b(and)31 58249 +y(meta)-31 b(v)-61 b(ariables)515 b(with)f(the)f(same)g(b)31 +b(ounds)512 b(|)g(here)g Fn(t)23322 58415 y Fu(0)23818 +58249 y Fn(::t)24832 58415 y Fr(n)p Fl(\000)p Fu(1)26569 +58249 y Fx(,)548 b Fn(T)28071 58415 y Fu(0)28568 58249 +y Fn(::T)29829 58415 y Fr(n)p Fl(\000)p Fu(1)31565 58249 +y Fx(,)h(and)513 b Fn(l)35047 58415 y Fu(0)35544 58249 +y Fn(::l)36488 58415 y Fr(n)p Fl(\000)p Fu(1)38737 58249 +y Fx(all)h(ha)-31 b(v)g(e)513 b(b)31 b(ounds)512 b(0)p +Fn(::n)344 b Ft(\000)31 59577 y Fx(1.)1089 b(T)-92 b(o)568 +b(mak)-31 b(e)569 b(the)f(fact)h(that)f(they)h(ha)-31 +b(v)g(e)568 b(the)g(same)g(length)h(immediate)h(in)e(the)g(generated)h +(co)31 b(de,)617 b(w)-31 b(e)569 b(in)-31 b(tro-)31 60906 +y(duce)524 b(a)g(single)h(pro)31 b(of)524 b(assistan)-31 +b(t)525 b(v)-61 b(ariable)525 b(for)f(eac)-31 b(h)524 +b(suc)-31 b(h)523 b(collection,)566 b(with)525 b(appropriate)g(pro)61 +b(jections)526 b(and)e(list)31 62234 y(maps/foralls)385 +b(at)f(the)f(usage)g(p)31 b(oin)-31 b(ts.)534 b(F)-92 +b(or)382 b(example,)388 b(the)383 b(HOL)f(for)h(the)g(ab)31 +b(o)-31 b(v)g(e)384 b(is)e(essen)-31 b(tially)385 b(as)d(follo)-31 +b(ws,)389 b(with)384 b(an)31 63562 y Fs(l_t_Typ_list)583 +b(:)f(\(label#t#Typ\))h(list)p Fx(.)p Black Black 31 +65444 a Fw(\(*)524 b(Ty_Rcd)f(*\))1046 b +(!\(l_t_Typ_list:\(label#t#Typ\))524 b(list\))f(\(G:G\))g(.)31 +66662 y(\(EVERY)h(\(\\b.b\))1078 67880 y(\(MAP)f(\(\\\(l_,t_,Typ_\).)g +(\(Ty)g(G)g(t_)h(Typ_\)\))f(l_t_Typ_list\)\))555 69097 +y(==>)31 70315 y(\(Ty)1078 71533 y(G)1078 72750 y(\(E_record)g(\(MAP)g +(\(\\\(l_,t_,Typ_\).)h(\(l_,t_\)\))f(l_t_Typ_list\)\))1078 +73968 y(\(T_Rec)2092 b(\(MAP)523 b(\(\\\(l_,t_,Typ_\).)h(\(l_,Typ_\)\)) +f(l_t_Typ_list\)\)\))p Black 24533 77841 a Fx(38)p Black +eop end +%%Page: 39 39 +TeXDict begin 39 38 bop Black Black 0 -594 a Fx(This)411 +b(seems)g(to)h(b)31 b(e)410 b(a)i(b)31 b(etter)411 b(idiom)i(for)e +(later)h(pro)31 b(of)411 b(dev)-31 b(elopmen)g(t)413 +b(than)f(the)g(alternativ)-31 b(e)413 b(of)f(three)f(di\013eren)-31 +b(t)411 b(list)0 735 y(v)-61 b(ariables)370 b(coupled)g(with)g +(assertions)f(that)i(they)f(ha)-31 b(v)g(e)370 b(the)f(same)h(length.)0 +2727 y(With)449 b(direct)f(supp)31 b(ort)448 b(for)h(lists,)469 +b(w)-31 b(e)449 b(need)f(also)h(direct)g(supp)31 b(ort)448 +b(for)g(sym)-31 b(b)31 b(olic)450 b(terms)e(in)-31 b(v)g(olving)452 +b(list)d(pro)61 b(jection)0 4055 y(and)369 b(concatenation.)496 +b(F)-92 b(or)369 b(example,)i(the)e(rule)21299 7089 y +Fo(t)597 b Ft(\000)-185 b(!)492 b Fo(t)25012 6687 y Fl(0)p +10393 7664 25837 45 v 10946 8727 a Ft(f)185 b Fo(l)11967 +8893 y Fu(1)12587 8727 y Fx(=)123 b Fo(v)14080 8893 y +Fu(1)14761 8727 y Fn(;)369 b(::)184 b(;)371 b Fo(l)17196 +8893 y Fi(m)18182 8727 y Fx(=)123 b Fo(v)19675 8893 y +Fi(m)20722 8727 y Fn(;)369 b Fo(l)238 b Fx(=)123 b Fo(t)289 +b Fn(;)369 b Fo(l)24633 8325 y Fl(0)24519 9002 y Fu(1)25139 +8727 y Fx(=)123 b Fo(t)26596 8325 y Fl(0)26491 9002 y +Fu(1)27172 8727 y Fn(;)369 b(::)184 b(;)371 b Fo(l)29721 +8325 y Fl(0)29607 9000 y Fi(n)30365 8727 y Fx(=)123 b +Fo(t)31822 8325 y Fl(0)31717 9000 y Fi(n)32536 8727 y +Ft(g)10946 10055 y(\000)-184 b(!)492 b(f)185 b Fo(l)14243 +10221 y Fu(1)14862 10055 y Fx(=)123 b Fo(v)16355 10221 +y Fu(1)17036 10055 y Fn(;)370 b(::)184 b(;)371 b Fo(l)19472 +10221 y Fi(m)20457 10055 y Fx(=)123 b Fo(v)21950 10221 +y Fi(m)22997 10055 y Fn(;)370 b Fo(l)237 b Fx(=)123 b +Fo(t)25651 9653 y Fl(0)26146 10055 y Fn(;)369 b Fo(l)27219 +9653 y Fl(0)27105 10330 y Fu(1)27725 10055 y Fx(=)123 +b Fo(t)29182 9653 y Fl(0)29077 10330 y Fu(1)29758 10055 +y Fn(;)369 b(::)184 b(;)371 b Fo(l)32307 9653 y Fl(0)32193 +10329 y Fi(n)32951 10055 y Fx(=)123 b Fo(t)34408 9653 +y Fl(0)34303 10329 y Fi(n)35122 10055 y Ft(g)37275 7919 +y Fj(Rec)0 12661 y Fx(giv)-31 b(es)437 b(rise)e(to)i(HOL)f(co)31 +b(de)436 b(as)g(b)31 b(elo)-31 b(w)437 b(|)f(note)h(the)f(list-lifted)i +(usage)f(of)f(the)h Fs(is_v_of_t)g Fx(predicate,)454 +b(and)436 b(the)g(list)0 13990 y(app)31 b(ends)369 b(\()p +Fs(++)p Fx(\))h(in)f(the)h(conclusion.)p Black Black +0 15872 a Fw(\(*)523 b(reduce_Rec)g(*\))1047 b +(!\(l'_t'_list:\(label#t\))523 b(list\))3661 17089 y +(\(l_v_list:\(label#t\))h(list\))f(\(l:label\))g(\(t:t\))h(\(t':t\))f +(.)0 18307 y(\(\(EVERY)g(\(\\\(l_,v_\).)h(is_v_of_t)f(v_\))g +(l_v_list\))g(/\\)0 19525 y(\(\()g(reduce)g(t)g(t')g(\)\)\))523 +20742 y(==>)0 21960 y(\(\()g(reduce)g(\(t_Rec)h(\(l_v_list)f(++)g +([\(l,t\)])g(++)g(l'_t'_list\)\))5230 23178 y(\(t_Rec)h(\(l_v_list)f +(++)g([\(l,t'\)])g(++)g(l'_t'_list\)\)\)\))0 25170 y +Fx(F)-92 b(or)368 b(the)i Fs(Proj)f Fx(t)-31 b(yping)371 +b(rule)16643 28499 y(\000)492 b Ft(`)g Fo(t)597 b Fx(:)492 +b Ft(f)p 21497 27597 2816 45 v 185 w Fo(l)21780 28665 +y Fi(i)22497 28499 y Fx(:)308 b Fo(T)23904 28665 y Fi(i)24464 +27782 y(i)68 b Fl(2)p Fu(0)p Fr(::)p Fi(n)f Fl(\000)p +Fu(1)28334 28499 y Ft(g)p 16089 29074 13352 45 v 19380 +30088 a Fx(\000)492 b Ft(`)h Fo(t)289 b Fn(:)184 b Fo(l)23164 +30254 y Fi(j)24108 30088 y Fx(:)492 b Fo(T)25699 30254 +y Fi(j)31099 29329 y Fj(Pr)-25 b(oj)0 32674 y Fx(w)-31 +b(e)370 b(need)f(a)g(sp)31 b(eci\014c)369 b(pro)61 b(jection)371 +b(\(the)f(HOL)f Fs(EL)p Fx(\))h(to)g(pic)-31 b(k)370 +b(out)g(the)f Fn(j)63 b Fx('th)370 b(elemen)-31 b(t:)p +Black Black 0 34556 a Fw(\(*)523 b(Ty_Proj)g(*\))1046 +b(!\(l_Typ_list:\(label#Typ\))524 b(list\))3661 35774 +y(\(j:index\))g(\(G:G\))f(\(t:t\))g(.)0 36991 y(\(\(\()g(Ty)g(G)g(t)g +(\(T_Rec)h(\(l_Typ_list\)\))f(\)\)\))523 38209 y(==>)0 +39427 y(\(\()g(Ty)2615 40644 y(G)2615 41862 y(\(t_Proj)g(t)1047 +b(\(\(\\)523 b(\(l_,Typ_\))g(.)g(l_\))g(\(EL)g(j)g(l_Typ_list\)\)\)) +2615 43080 y(\(\(\\)g(\(l_,Typ_\))h(.)f(Typ_\))g(\(EL)1046 +b(j)523 b(l_Typ_list\)\)\)\))0 45072 y Fx(F)-92 b(or)378 +b(Co)31 b(q,)384 b(when)379 b(translating)j(a)-31 b(w)g(a)g(y)381 +b(lists,)i(w)-31 b(e)380 b(ha)-31 b(v)g(e)380 b(to)g(in)-31 +b(tro)31 b(duce)380 b(y)-31 b(et)380 b(more)g(list)g(t)-31 +b(yp)31 b(es)380 b(for)f(these)g(pro)31 b(of)380 b(assistan)-31 +b(t)0 46400 y(v)-61 b(ariables,)344 b(in)336 b(addition)i(to)f(the)f +(ob)-31 b(vious)338 b(translation)g(of)e(sym)-31 b(b)31 +b(olic)338 b(terms,)343 b(and,)g(more)337 b(substan)-31 +b(tially)-92 b(,)346 b(to)336 b(in)-31 b(tro)31 b(duce)0 +47729 y(additional)372 b(inductiv)-31 b(e)371 b(relation)g +(de\014nitions)g(to)f(induct)f(o)-31 b(v)g(er)370 b(them.)0 +49721 y(F)-92 b(or)395 b(similar)i(examples)g(in)f(Isab)31 +b(elle,)403 b(the)396 b(generated)g(Isab)31 b(elle)396 +b(for)g(the)g(\014rst)f(three)g(rules)g(of)i Ft(x)p Fx(12.1)g(is)f(sho) +-31 b(wn)396 b(b)31 b(elo)-31 b(w)0 51050 y(\(ligh)g(tly)397 +b(hand-edited)f(for)e(format\).)570 b(The)395 b(\014rst)e(in)-31 +b(v)g(olv)g(es)397 b(an)d(Isab)31 b(elle)395 b(v)-61 +b(ariable)395 b Fs(l_t_T_list)p Fx(,)402 b(and)395 b(list)g(maps)g(and) +0 52378 y(pro)61 b(jections)371 b(thereof.)p Black Black +0 54260 a Fw(Ty_RcdI:)523 b(")1046 55477 y([|\(formula_formuladots)h +(\(\(List.map)f(\(\045\(l_,t_,T_\).\()h(\()f(G)g(,)g(t_)g(,)g(T_)g(\))g +(:)g(Ty\)\))g(l_t_T_list\)\)\)|])1046 56695 y(==>)1046 +57913 y(\()g(G)g(,)2092 59130 y(\(t_Rec)g(\(\(List.map)h +(\(\045\(l_,t_,T_\).\(l_,t_\)\))f(l_t_T_list\)\)\))h(,)2092 +60348 y(\(T_Rec)f(\(\(List.map)h(\(\045\(l_,t_,T_\).\(l_,T_\)\))f +(l_t_T_list\)\)\))1046 61566 y(\))g(:)g(Ty")0 64001 y(Ty_ProjI:)g(") +1046 65219 y([|)g(\()g(G)g(,)g(t)g(,)g(\(T_Rec)h(\(l_T_list\)\))f(\))g +(:)g(Ty|])g(==>)1046 66436 y(\()g(G)g(,)2092 67654 y(\(t_Proj)g(t)g +(\(\045\(l_,T_\).l_\))h(\(List.nth)f(l_T_list)h(\(j)f(-)g(1\)\)\))g(,) +2092 68872 y(\(\045\(l_,T_\).T_\))h(\(List.nth)f(l_T_list)g(\(j)g(-)g +(1\)\))1046 70089 y(\))g(:)g(Ty")0 72525 y(E_Ctx_recordI:)g(")0 +73742 y([|)g(List.list_all)h(\(\045\(l_,v_\).is_v)f(v_\))g(l_v_list)g +(;)p Black 24502 77841 a Fx(39)p Black eop end +%%Page: 40 40 +TeXDict begin 40 39 bop Black Black 1601 -594 a Fw(\()523 +b(t)g(,)g(t')g(\))g(:)g(E|])31 624 y(==>)555 1841 y(\()g(\(t_Rec)g +(\(l_v_list)g(@)g([\(l,t\)])g(@)h(l_'t_'list\)\))f(,)1601 +3059 y(\(t_Rec)g(\(l_v_list)g(@)g([\(l,t'\)])h(@)f(l_'t_'list\)\))555 +4277 y(\))g(:)g(E")31 6269 y Fx(The)370 b(generated)g(co)31 +b(de)369 b(for)g(substitutions)i(and)e(free)g(v)-61 b(ariables)370 +b(tak)-31 b(es)370 b(accoun)-31 b(t)371 b(of)e(suc)-31 +b(h)369 b(list)h(structure.)31 8262 y(Note)275 b(that)f(at)h(presen)-31 +b(t)273 b(the)g(generated)h(Isab)31 b(elle)274 b(co)31 +b(de)274 b(for)f(these)g(functions)i(do)31 b(es)273 b(not)h(alw)-31 +b(a)g(ys)275 b(build)g(without)g(c)-31 b(hange,)31 9590 +y(in)370 b(particular)g(if)g(tuples)g(of)f(size)g(3)h(or)f(more)g(are)g +(required)g(in)h(patterns.)31 13132 y Fp(12.3.3)1275 +b(List)423 b(forms)i(in)g(homomorphisms)31 15839 y Fx(Pro)31 +b(of)437 b(assistan)-31 b(t)437 b(homomorphisms)g(in)f(pro)31 +b(ductions)436 b(can)g(refer)f(to)h(dot-form)h(meta)-31 +b(v)-61 b(ariables)438 b(and)e(non)-31 b(terminals.)31 +17167 y(F)-92 b(or)505 b(example,)540 b(the)506 b(second)f(pro)31 +b(duction)505 b(b)31 b(elo)-31 b(w)507 b(\(tak)-31 b(en)506 +b(from)g Fs(test17.9)p Fx(\))g(men)-31 b(tions)p RoyalBlue +507 w Fs([[)p Black(x1)582 b(t1)p RoyalBlue 581 w(...)p +Black 1163 w(xn)f(tn)p RoyalBlue(]])p Black 31 18496 +a Fx(in)467 b(the)p Mahogany 467 w Fs(isa)p Black 467 +w Fx(homomorphism.)788 b(This)467 b(m)-31 b(ust)467 b(exactly)h(matc) +-31 b(h)468 b(the)f(dot)h(form)f(in)g(the)g(pro)31 b(duction)467 +b(except)g(that)h(all)31 19824 y(terminals)426 b(m)-31 +b(ust)425 b(b)31 b(e)424 b(omitted)i(|)e(the)h(meta)-31 +b(v)-61 b(ariables)426 b(and)f(non)-31 b(terminals)426 +b(m)-31 b(ust)425 b(o)31 b(ccur)424 b(in)g(the)h(same)f(order)g(as)g +(in)31 21153 y(the)370 b(pro)31 b(duction,)371 b(and)e(the)g(b)31 +b(ounds)369 b(m)-31 b(ust)370 b(b)31 b(e)369 b(the)g(same.)p +Black Black 2356 23145 a Fs(E)p RoyalBlue 581 w(::)p +Black 582 w('E_')p RoyalBlue 582 w(::=)p Black RoyalBlue +581 w({{)p Black Mahogany 582 w(isa)p Black 581 w(\()582 +b(ident)f(*)h(t)f(\))g(list)p RoyalBlue 1163 w(}})p Black +RoyalBlue 3518 24473 a(|)p Black 582 w(<)g(x1)g(:)h(t1)f(,)p +RoyalBlue 581 w(..)p Black 582 w(,)g(xn)h(:)f(tn)g(>)p +RoyalBlue 582 w(::)p Black RoyalBlue 581 w(::)p Black +582 w(2)p RoyalBlue 1162 w({{)p Black Mahogany 581 w(isa)p +Black 1163 w(List.rev)p RoyalBlue 583 w([[)p Black(x1)g(t1)p +RoyalBlue 582 w(..)p Black 581 w(xn)h(tn)p RoyalBlue(]])p +Black RoyalBlue 581 w(})q(})p Black Mahogany 2356 25802 +a(formula)p Black RoyalBlue 582 w(::)p Black 582 w(formula_)p +RoyalBlue 582 w(::=)p Black RoyalBlue 3518 27130 a(|)p +Black 582 w(judgement)p RoyalBlue 8137 w(::)p Black RoyalBlue +582 w(::)p Black 581 w(judgement)p RoyalBlue 3518 28458 +a(|)p Black 582 w(formula1)p RoyalBlue 582 w(..)p Black +581 w(formulan)p RoyalBlue 1745 w(::)p Black RoyalBlue +582 w(::)p Black 581 w(dots)31 30451 y Fx(The)425 b(generated)g(Isab)31 +b(elle)425 b(co)31 b(de)425 b(for)f(sym)-31 b(b)31 b(olic)426 +b(terms)e(men)-31 b(tioning)428 b(this)d(pro)31 b(duction)425 +b(will)h(in)-31 b(v)g(olv)g(e)427 b(a)e(list)g(of)g(pairs.)31 +31779 y(F)-92 b(or)369 b(example,)i(the)e(rules)p Mahogany +Black Mahogany 31 33772 a Fs(defn)p Black 31 35100 a(|-)582 +b(E)p RoyalBlue 1162 w(::)p Black RoyalBlue 582 w(::)p +Black 581 w(Eok)p RoyalBlue 582 w(::)p Black 581 w(Eok_)p +Mahogany 582 w(by)p Black RoyalBlue 31 37757 a +(----------------------------)p Black 586 w(::)f(2)31 +39085 y(|-)h()31 41742 y(|-)g(t1:K1)1163 +b(..)581 b(|-)h(tn:Kn)p RoyalBlue 31 43070 a +(----------------------------)p Black 586 w(::)f(3)31 +44399 y(|-)h()31 46391 y Fx(generate)p +Black Black 31 48273 a Fw(consts)1078 49491 y(Eok)523 +b(::)g("E)g(set")31 50708 y(inductive)h(Eok)f(tK)31 51926 +y(intros)31 54361 y(\(*)h(defn)f(Eok)g(*\))31 56797 y(Eok_2I:)h(")f(\() +g(List.rev)1046 b(\(x_t_list\))524 b(\))f(:)g(Eok")31 +59232 y(Eok_3I:)h("[|)31 60450 y(\(List.list_all)g(\(\\)f(b)g +(.)g(b\))h(\()1046 b(\(\(List.map)523 b(\(\045\(x_,t_,K_\).)g(\()h(t_)f +(,)g(K_)g(\))g(:)g(tK\))g(x_t_K_list\)\))1047 b(\))523 +b(\)|])555 61667 y(==>)555 62885 y(\()g(List.rev)1046 +b(\(\(List.map)523 b(\(\045\(x_,t_,K_\).\(x_,t_\)\))h(x_t_K_list\)\))f +(\))g(:)h(Eok")31 66095 y Fx(Note)487 b(that)g(in)e(the)h(second)f(the) +h(list)h(of)f(pairs)f(is)g(pro)61 b(jected)487 b(out)f(from)g(the)g +Fs(x_t_K_list)h Fx(list)f(of)g(triples)g(that)h(is)31 +67423 y(quan)-31 b(ti\014ed)371 b(o)-31 b(v)g(er)370 +b(in)g(the)f(rule.)p Black 24533 77841 a(40)p Black eop +end +%%Page: 41 41 +TeXDict begin 41 40 bop Black Black 0 -594 a FC(13)1793 +b(Subrules)0 2495 y Fx(Subrule)369 b(declarations)i(ha)-31 +b(v)g(e)370 b(the)g(form)p Black Black Mahogany 1162 +4487 a Fs(subrules)p Black 2325 5816 a(nt1)p RoyalBlue +581 w(<::)p Black 582 w(nt2)0 7808 y Fx(where)f Fs(nt1)g +Fx(and)h Fs(nt2)f Fx(are)g(non)-31 b(terminal)372 b(ro)31 +b(ots.)0 9801 y(Subrules)254 b(can)h(b)31 b(e)255 b(c)-31 +b(hained,)279 b(i.e.)256 b(there)e(can)i(b)31 b(e)254 +b(a)h(pair)g(of)h(subrule)e(declarations)i Fs(nt1)p RoyalBlue +582 w(<::)p Black 1163 w(nt2)f Fx(and)g Fs(nt2)p RoyalBlue +582 w(<::)p Black 1162 w(nt3)p Fx(,)0 11129 y(and)314 +b(they)g(can)g(form)g(a)g(directed)g(acyclic)h(graph,)326 +b(e.g.)314 b(with)h Fs(nt0)p RoyalBlue 582 w(<::)p Black +1163 w(nt1)p Fx(,)325 b Fs(nt0)p RoyalBlue 582 w(<::)p +Black 1162 w(nt2)p Fx(,)h Fs(nt1)p RoyalBlue 582 w(<::)p +Black 1162 w(nt3)p Fx(,)g(and)0 12458 y Fs(nt2)p RoyalBlue +582 w(<::)p Black 1162 w(nt3)p Fx(.)470 b(Ho)-31 b(w)g(ev)g(er,)315 +b(there)299 b(cannot)h(b)31 b(e)299 b(cycles,)314 b(or)299 +b(non)-31 b(terminal)302 b(ro)31 b(ots)299 b(for)g(whic)-31 +b(h)300 b(there)f(are)g(m)-31 b(ultiple)302 b(upp)31 +b(er)0 13786 y(b)g(ounds.)515 b(Subrule)377 b(declarations)h(should)f +(not)h(in)-31 b(v)g(olv)g(e)379 b(non)-31 b(terminal)379 +b(ro)31 b(ots)377 b(for)g(whic)-31 b(h)378 b(pro)31 b(of-assistan)-31 +b(t)378 b(t)-31 b(yp)31 b(e)378 b(homs)0 15114 y(are)369 +b(sp)31 b(eci\014ed.)0 17107 y(W)-92 b(e)402 b(supp)31 +b(ort)403 b(the)g(case)g(in)g(whic)-31 b(h)404 b(the)f(upp)31 +b(er)402 b(rule)h(is)g(also)h(non-free,)412 b(i.e.)404 +b(it)g(con)-31 b(tains)404 b(pro)31 b(ductions)404 b(that)g(men)-31 +b(tion)0 18435 y(non)g(terminals)383 b(that)f(o)31 b(ccur)381 +b(on)g(the)h(left)g(of)f(a)h(subrule)e(declaration.)531 +b(In)380 b(the)i(example)g(b)31 b(elo)-31 b(w)382 b(\()p +Fs(test11.ott)p Fx(\))i(the)d Fs(t)0 19763 y Fx(rule)369 +b(con)-31 b(tains)371 b(a)e(pro)31 b(duction)370 b Fs(Foo)582 +b(v)p Fx(.)p Black Black Mahogany 1162 21756 a Fs(metavar)p +Black 582 w(termvar)p RoyalBlue 583 w(,)p Black 581 w(x)p +RoyalBlue 581 w(::=)p Black RoyalBlue 2325 23084 a({{)p +Black Mahogany 581 w(isa)p Black 582 w(string)p RoyalBlue +582 w(}})p Black RoyalBlue 581 w({{)p Black Mahogany +582 w(coq)p Black 581 w(nat)p RoyalBlue 582 w(}})p Black +RoyalBlue 581 w({{)p Black Mahogany 582 w(coq-equality)p +Black RoyalBlue 583 w(}})p Black RoyalBlue 581 w({{)p +Black Mahogany 581 w(hol)p Black 582 w(string)p RoyalBlue +582 w(}})p Black RoyalBlue 582 w({{)p Black Mahogany +581 w(ocaml)p Black 582 w(int)p RoyalBlue 582 w(}})p +Black Mahogany 1162 25741 a(grammar)p Black 2325 27069 +a(t)p RoyalBlue 581 w(::)p Black 581 w('t_')p RoyalBlue +582 w(::=)p Black RoyalBlue 3487 28398 a(|)p Black 581 +w(x)p RoyalBlue 11042 w(::)p Black RoyalBlue 1744 w(::)p +Black 581 w(Var)p RoyalBlue 3487 29726 a(|)p Black 581 +w(\\)f(x)h(.)f(t)p RoyalBlue 7555 w(::)p Black RoyalBlue +1744 w(::)p Black 581 w(Lam)p RoyalBlue 1163 w(\(+)p +Black Mahogany 582 w(bind)p Black 581 w(x)p Mahogany +582 w(in)p Black 581 w(t)p RoyalBlue 581 w(+\))p Black +RoyalBlue 3487 31054 a(|)p Black 581 w(t)g(t')p RoyalBlue +9299 w(::)p Black RoyalBlue 1744 w(::)p Black 581 w(App)p +RoyalBlue 3487 32383 a(|)p Black 581 w(Foo)h(v)p RoyalBlue +8717 w(::)p Black RoyalBlue 1744 w(::)p Black 581 w(Foo)2325 +35040 y(v)p RoyalBlue 581 w(::)p Black 581 w('v_')p RoyalBlue +582 w(::=)p Black RoyalBlue 3487 36368 a(|)p Black 581 +w(\\)f(x)h(.)f(t)p RoyalBlue 7555 w(::)p Black RoyalBlue +1744 w(::)p Black 581 w(Lam)p Mahogany 1162 39025 a(subrules)p +Black 2325 40353 a(v)p RoyalBlue 581 w(<::)p Black 581 +w(t)p Mahogany 1162 43010 a(defns)p Black 2325 44338 +a(Jb)p RoyalBlue 581 w(::)p Black 581 w('')p RoyalBlue +582 w(::=)p Black Mahogany 3487 46995 a(defn)p Black +3487 48323 a(Baz)g(t)h(,)f(v)p RoyalBlue 581 w(::)p Black +RoyalBlue 1163 w(::)p Black 581 w(Baz)p RoyalBlue 582 +w(::)p Black 581 w('')p Mahogany 4069 w(by)p Black RoyalBlue +3487 52308 a(---------)p Black 582 w(::)h(ax)3487 53636 +y(Baz)f(t)h(,)f(v)0 55629 y Fx(In)535 b(this)h(case)f(generated)h(Isab) +31 b(elle/Co)g(q/HOL/OCaml)540 b(will)d(de\014ne)e(a)g(single)i(t)-31 +b(yp)31 b(e)535 b(and)h(b)31 b(oth)536 b Fs(is)p 44165 +55629 349 45 v 419 w(v)f Fx(and)g Fs(is)p 49180 55629 +V 419 w(t)0 56957 y Fx(predicates,)336 b(and)328 b(the)f(generated)h +(inductiv)-31 b(e)329 b(de\014nition)g(clause)e(for)h +Fs(ax)f Fx(uses)f(b)31 b(oth)328 b(predicates.)479 b(The)327 +b(Isab)31 b(elle)328 b(clause)0 58286 y(is)369 b(b)31 +b(elo)-31 b(w.)p Black Black 1162 60278 a Fs(axI:)582 +b("[|is_t)g(t)g(;)f(is_v)h(v|])f(==>)1163 b(\()581 b(t)h(,)f(v)g(\))g +(:)h(Baz")0 64603 y FC(14)1793 b(Con)-50 b(text)599 b(rules)0 +67692 y Fx(The)457 b(system)g(supp)31 b(orts)456 b(the)h(de\014nition)i +(of)e(single-hole)i(con)-31 b(texts,)480 b(e.g.)458 b(for)f(ev)-61 +b(aluation)459 b(con)-31 b(texts.)757 b(F)-92 b(or)456 +b(example,)0 69020 y(supp)31 b(ose)368 b(one)i(has)f(a)g(term)h +(grammar)g(as)f(b)31 b(elo)-31 b(w:)p Black Black 0 71013 +a Fs(t)p RoyalBlue 581 w(::)p Black 582 w('t_')p RoyalBlue +581 w(::=)p Black RoyalBlue 18017 w({{)p Black Mahogany +581 w(com)p Black 582 w(term)p RoyalBlue 2325 w(}})p +Black RoyalBlue 1162 72341 a(|)p Black 582 w(x)p RoyalBlue +10460 w(::)p Black RoyalBlue 1163 w(::)p Black 581 w(Var)p +RoyalBlue 11043 w({{)p Black Mahogany 581 w(com)p Black +582 w(variable)p RoyalBlue(})q(})p Black RoyalBlue 1162 +73669 a(|)p Black 582 w(\\)581 b(x)g(.)g(t)p RoyalBlue +6974 w(::)p Black RoyalBlue 1163 w(::)p Black 581 w(Lam)p +RoyalBlue 582 w(\(+)p Black Mahogany 582 w(bind)p Black +581 w(x)p Mahogany 582 w(in)p Black 581 w(t)p RoyalBlue +581 w(+\))p Black RoyalBlue 582 w({{)p Black Mahogany +581 w(com)p Black 582 w(lambda)p RoyalBlue 1163 w(}})p +Black Black 24502 77841 a Fx(41)p Black eop end +%%Page: 42 42 +TeXDict begin 42 41 bop Black Black RoyalBlue 1194 -594 +a Fs(|)p Black 581 w(t)581 b(t')p RoyalBlue 8718 w(::)p +Black RoyalBlue 1163 w(::)p Black 581 w(App)p RoyalBlue +11042 w({{)p Black Mahogany 582 w(com)p Black 581 w(app)p +RoyalBlue 2906 w(})q(})p Black RoyalBlue 1194 735 a(|)p +Black 581 w(\()g(t1)h(,)p RoyalBlue 581 w(....)p Black +582 w(,)f(tn)h(\))p RoyalBlue 581 w(::)p Black RoyalBlue +1163 w(::)p Black 581 w(Tuple)p RoyalBlue 9880 w({{)p +Black Mahogany 582 w(com)p Black 581 w(tuple)p RoyalBlue +582 w(}})p Black RoyalBlue 1194 2063 a(|)p Black 581 +w(\()f(t)h(\))p RoyalBlue 8136 w(::)p Black Mahogany +581 w(S)p Black RoyalBlue(::)p Black 582 w(Paren)p RoyalBlue +9880 w({{)p Black Mahogany 582 w(icho)p Black RoyalBlue +581 w([[)p Black(t)p RoyalBlue(]])p Black RoyalBlue 1163 +w(})q(})p Black RoyalBlue 1194 3391 a(|)p Black 581 w({)f(t)h(/)f(x)g +(})h(t')p RoyalBlue 4068 w(::)p Black Mahogany 581 w(M)p +Black RoyalBlue(::)p Black 582 w(Tsub)p RoyalBlue 13979 +4720 a({{)p Black Mahogany 582 w(icho)p Black 581 w(\(tsubst_t)p +RoyalBlue 583 w([[)p Black(t)p RoyalBlue(]])p Black RoyalBlue +582 w([[)p Black(x)p RoyalBlue(]])p Black RoyalBlue 582 +w([[)p Black(t')p RoyalBlue(]])p Black(\))p RoyalBlue(})q(})p +Black RoyalBlue 1194 7376 a(|)p Black 581 w(E)f(.)h(t)p +RoyalBlue 8136 w(::)p Black Mahogany 581 w(M)p Black +RoyalBlue(::)p Black 582 w(Ctx)p RoyalBlue 13979 8705 +a({{)p Black Mahogany 582 w(icho)p Black 581 w(\(appctx_E_t)p +RoyalBlue 583 w([[)p Black(E)p RoyalBlue(]])p Black RoyalBlue +582 w([[)p Black(t)p RoyalBlue(]])p Black(\))p RoyalBlue(})q(})p +Black RoyalBlue 13979 10033 a({{)p Black Mahogany 582 +w(tex)p Black RoyalBlue 581 w([[)p Black(E)p RoyalBlue(]])p +Black 582 w(\\cdot)p RoyalBlue 582 w([[)p Black(t)p RoyalBlue(]])p +Black RoyalBlue 582 w(}})p Black 31 12026 a Fx(A)362 +b(con)-31 b(text)363 b(grammar)f(is)f(declared)h(as)f(a)h(normal)g +(grammar)h(but)e(with)i(a)e(single)h(o)31 b(ccurrence)361 +b(of)g(the)h(terminal)h Fs(__)e Fx(in)31 13354 y(eac)-31 +b(h)370 b(pro)31 b(duction,)371 b(e.g.)493 b(as)369 b(in)h(the)f +(grammar)i(for)e Fs(E)g Fx(b)31 b(elo)-31 b(w)370 b(\(a)g(rather)f +(strange)h(ev)-61 b(aluation)372 b(strategy)-92 b(,)370 +b(admittedly\).)p Black Black 31 15346 a Fs(E)p RoyalBlue +582 w(::)p Black 581 w('E_')p RoyalBlue 582 w(::=)p Black +RoyalBlue 18016 w({{)p Black Mahogany 581 w(com)p Black +582 w(evaluation)583 b(context)p RoyalBlue 582 w(}})p +Black RoyalBlue 1194 16675 a(|)p Black 581 w(__)f(t)p +RoyalBlue 5230 w(::)p Black RoyalBlue 1163 w(::)p Black +581 w(AppL)p RoyalBlue 11042 w({)q({)p Black Mahogany +581 w(com)p Black 582 w(app)f(L)p RoyalBlue 2325 w(}})p +Black RoyalBlue 1194 18003 a(|)p Black 581 w(v)g(__)p +RoyalBlue 5231 w(::)p Black RoyalBlue 1163 w(::)p Black +581 w(AppR)p RoyalBlue 11042 w({)q({)p Black Mahogany +581 w(com)p Black 582 w(app)g(R)p RoyalBlue 2325 w(}})p +Black RoyalBlue 1194 19331 a(|)p Black 581 w(\\)g(x)h(.)f(__)p +RoyalBlue 2906 w(::)p Black RoyalBlue 1163 w(::)p Black +581 w(Lam)p RoyalBlue 11623 w({)q({)p Black Mahogany +581 w(com)p Black 582 w(reduce)h(under)f(lambda)p RoyalBlue +583 w(}})p Black RoyalBlue 1194 20660 a(|)p Black 581 +w(\()g(t1)h(\()f(__)1163 b(t2)581 b(\))g(\))p RoyalBlue +582 w(::)p Black RoyalBlue 581 w(::)p Black 582 w(Nested)p +RoyalBlue 8137 w({{)p Black Mahogany 581 w(com)p Black +582 w(hole)g(nested)p RoyalBlue 582 w(})q(})p Black RoyalBlue +1194 21988 a(|)p Black 581 w(\()g(v1)h(,)p RoyalBlue +581 w(..)p Black 582 w(,)f(vm)g(,)h(__)f(,)g(t1)h(,)p +RoyalBlue 581 w(..)p Black 582 w(,)f(tn)g(\))p RoyalBlue +582 w(::)p Black RoyalBlue 581 w(::)p Black 581 w(Tuple)p +RoyalBlue 582 w({)q({)p Black Mahogany 581 w(com)p Black +581 w(tuple)p RoyalBlue 582 w(}})p Black 31 23981 a Fx(A)p +Mahogany 370 w Fs(contextrules)p Black 370 w Fx(declaration:)p +Mahogany Black Mahogany 31 25973 a Fs(contextrules)p +Black 1194 27302 a(E)p RoyalBlue 581 w(_::)p Black 582 +w(t)p RoyalBlue 581 w(::)p Black 581 w(t)31 29294 y Fx(causes)391 +b(Ott)h(to)g(\(a\))h(c)-31 b(hec)g(k)392 b(that)g(eac)-31 +b(h)392 b(pro)31 b(duction)392 b(of)g(the)g Fs(E)f Fx(grammar)h(is)g +(indeed)f(a)h(con)-31 b(text)393 b(for)e(the)h Fs(t)f +Fx(grammar,)31 30622 y(and)370 b(\(b\))g(generates)f(pro)31 +b(of)370 b(assistan)-31 b(t)370 b(functions,)h(e.g.)g +Fs(appctx_E_t)p Fx(,)g(to)f(apply)g(a)f(con)-31 b(text)371 +b(to)f(a)f(term:)p Black Black 31 32615 a Fs(\(**)582 +b(context)g(application)h(*\))31 33943 y(Definition)g(appctx_E_t)g +(\(E5:E\))f(\(t_6:t\))g(:)f(t)h(:=)1194 35272 y(match)g(E5)f(with)1194 +36600 y(|)g(\(E_AppL)h(t5\))g(=>)f(\(t_App)h(t_6)g(t5\))1194 +37928 y(|)f(\(E_AppR)h(v5\))g(=>)f(\(t_App)h(v5)g(t_6\))1194 +39257 y(|)f(\(E_Lam)h(x\))g(=>)f(\(t_Lam)h(x)f(t_6\))1194 +40585 y(|)g(\(E_Nested)i(t1)e(t2\))h(=>)1162 b(\(t_App)582 +b(t1)1163 b(\(t_App)582 b(t_6)f(t2\))h(\))1194 41913 +y(|)f(\(E_Tuple)h(v_list)g(t_list\))h(=>)e(\(t_Tuple)h(\(\(app_list_t)h +(v_list)2937 43242 y(\(app_list_t)g(\(Cons_list_t)g(t_6)f(Nil_list_t\)) +g(\(app_list_t)h(t_list)f(Nil_list_t\)\)\)\)\))31 45234 +y Fx(As)369 b(the)h Fs(Nested)g Fx(pro)31 b(duction)370 +b(sho)-31 b(ws,)370 b(con)-31 b(text)371 b(pro)31 b(ductions)369 +b(can)h(in)-31 b(v)g(olv)g(e)371 b(nested)e(term)h(structure.)31 +47227 y(Note)475 b(also)f(that)h(here)e(the)h Fs(E)f +Fx(grammar)i(is)e(not)h(free)f(\(it)i(men)-31 b(tions)475 +b(the)f(subrule)f(non)-31 b(terminal)476 b Fs(v)p Fx(\))e(so)f(an)h +(isv)-61 b(alue)31 48555 y(predicate)370 b Fs(is_E_of_E)h +Fx(is)e(also)h(generated.)31 50548 y(In)f(general,)i(con)-31 +b(text)370 b(rule)f(declarations)j(ha)-31 b(v)g(e)370 +b(the)f(form)p Black Black Mahogany 1194 52540 a Fs(contextrules)p +Black 2356 53869 a(ntE)p RoyalBlue 582 w(_::)p Black +581 w(nt1)p RoyalBlue 582 w(::)p Black 581 w(nt2)31 55861 +y Fx(where)392 b Fs(ntE)p Fx(,)g Fs(nt1)p Fx(,)399 b(and)392 +b Fs(nt2)f Fx(are)h(non)-31 b(terminal)394 b(ro)31 b(ots.)561 +b(This)392 b(declares)f(con)-31 b(texts)393 b Fs(ntE)f +Fx(for)g(the)g Fs(nt1)g Fx(grammar,)399 b(with)31 57189 +y(holes)370 b(in)g Fs(nt2)f Fx(p)31 b(ositions.)31 59182 +y(Just)364 b(as)g(for)f(substitutions,)k(the)d(con)-31 +b(text)366 b(application)h(function)e(is)e(t)-31 b(ypically)367 +b(used)c(b)-31 b(y)364 b(adding)h(a)f(metapro)31 b(duction)31 +60510 y(to)438 b(the)g(term)f(grammar.)698 b(Here)436 +b(w)-31 b(e)438 b(add)f(a)g(pro)31 b(duction)438 b Fs(E.t)g +Fx(to)g(the)f Fs(t)g Fx(grammar)h(with)h(an)e Fs(icho)g +Fx(hom)h(that)h(uses)31 61839 y Fs(appctx_E_t)p Fx(.)p +Black Black 31 63831 a Fs(t)p RoyalBlue 582 w(::)p Black +581 w('t_')p RoyalBlue 582 w(::=)p Black RoyalBlue 18016 +w({{)p Black Mahogany 581 w(com)p Black 582 w(term)p +RoyalBlue 2325 w(}})p Black 1194 65160 a(...)p RoyalBlue +1194 66488 a(|)p Black 581 w(E)581 b(.)h(t)p RoyalBlue +8136 w(::)p Black Mahogany 581 w(M)p Black RoyalBlue(::)p +Black 582 w(Ctx)p RoyalBlue 13979 67816 a({{)p Black +Mahogany 582 w(icho)p Black 581 w(\(appctx_E_t)p RoyalBlue +583 w([[)p Black(E)p RoyalBlue(]])p Black RoyalBlue 582 +w([[)p Black(t)p RoyalBlue(]])p Black(\))p RoyalBlue(})q(})p +Black RoyalBlue 13979 69145 a({{)p Black Mahogany 582 +w(tex)p Black RoyalBlue 581 w([[)p Black(E)p RoyalBlue(]])p +Black 582 w(\\cdot)p RoyalBlue 582 w([[)p Black(t)p RoyalBlue(]])p +Black RoyalBlue 582 w(}})p Black 31 71137 a Fx(That)371 +b(can)e(then)h(b)31 b(e)368 b(used)h(in)g(relations:)p +Black Black 2356 73130 a Fs(t)581 b(-->)h(t')p RoyalBlue +2356 74458 a(--------------)p Black 583 w(::)g(ctx)p +Black 24533 77841 a Fx(42)p Black eop end +%%Page: 43 43 +TeXDict begin 43 42 bop Black Black 2325 -594 a Fs(E.t)581 +b(-->)h(E.t')0 1399 y Fx(One)412 b(w)-31 b(ould)414 b(t)-31 +b(ypically)416 b(also)e(de\014ne)e(a)h Fs(terminals)h +Fx(pro)31 b(duction)413 b(for)g(the)g(hole)g(terminal)h +Fs(__)p Fx(,)425 b(e.g.)413 b(here)f(w)-31 b(e)413 b(t)-31 +b(yp)31 b(eset)0 2727 y(the)369 b(hole)h(as)f([)p Ft(\001)p +Fx(].)p Mahogany Black Mahogany 0 4720 a Fs(terminals)p +Black RoyalBlue 582 w(::)p Black 582 w('terminals_')p +RoyalBlue 583 w(::=)p Black RoyalBlue 1162 6048 a(|)p +Black 582 w(__)p RoyalBlue 6393 w(::)p Black RoyalBlue +1162 w(::)p Black 582 w(hole)p RoyalBlue 2325 w({{)p +Black Mahogany 581 w(tex)p Black 582 w([\\cdot])p RoyalBlue +582 w(}})p Black 0 10373 a FC(15)1793 b(Auxiliary)599 +b(Rules)0 13461 y Fx(W)-92 b(e)445 b(p)31 b(ermit)446 +b(an)g Fs(aux)h Fx(hom)f(on)g(grammar)h(rules.)722 b(F)-92 +b(or)445 b(an)-31 b(y)447 b(rule)e(with)j(suc)-31 b(h)445 +b(a)h(hom,)466 b(w)-31 b(e)447 b(transform)f(that)h(rule)f(b)-31 +b(y)0 14790 y(app)31 b(ending)483 b(an)p 7214 14790 349 +45 v 901 w Fs(aux)f Fx(to)h(its)f(primary)h(non)-31 b(terminal)484 +b(ro)31 b(ot)483 b(name.)832 b(W)-92 b(e)481 b(then)h(add)g(a)h(syn)-31 +b(thesised)482 b(rule)g(with)h(the)0 16118 y(original)365 +b(non)-31 b(terminal)365 b(ro)31 b(ot)364 b(name)f(and)h(a)f(single)h +(pro)31 b(duction,)365 b(with)f(a)f(shap)31 b(e)363 b(describ)31 +b(ed)362 b(b)-31 b(y)363 b(the)g(b)31 b(o)g(dy)363 b(of)g(the)h(aux)0 +17447 y(hom,)370 b(whic)-31 b(h)371 b(m)-31 b(ust)369 +b(b)31 b(e)369 b(of)h(the)f(form)p Black Black 1162 19439 +a Fs({{)582 b(aux)1162 b(foo1)582 b(foo2)g(_)f(bar1)h(bar2)g(bar3)g(}}) +0 21432 y Fx(with)461 b(a)f(single)p 6867 21432 V 1339 +w(and)h(an)-31 b(y)460 b(n)-31 b(um)g(b)31 b(er)460 b(of)h(strings)f +Fs(fooi)g Fx(and)g Fs(barj)h Fx(b)31 b(efore)459 b(and)i(after.)765 +b(The)p 40472 21432 V 1338 w(is)460 b(replaced)h(b)-31 +b(y)460 b(the)0 22760 y(original)371 b(non)-31 b(terminal)372 +b(ro)31 b(ot)370 b(name.)0 24752 y(F)-92 b(or)368 b(example,)j(giv)-31 +b(en)371 b(a)e(grammar)i(or)e(meta)-31 b(v)-61 b(ariable)372 +b Fs(l)d Fx(of)h(source)e(lo)31 b(cations,)372 b(one)d(migh)-31 +b(t)371 b(sa)-31 b(y)p Black Black 0 26745 a Fs(ntr)582 +b(::)f('NTR_')1163 b(::=)g({{)581 b(aux)h(_)f(l)h(}})581 +28073 y(|)f(...)0 30066 y Fx(to)431 b(syn)-31 b(thesise)431 +b(grammars)g Fs(ntr)p 13712 30066 V 419 w(aux)f Fx(and)h +Fs(ntr)f Fx(of)h(unannotated)i(and)d(lo)31 b(cation-annotated)435 +b(terms,)446 b(the)431 b(\014rst)f(with)0 31394 y(all)370 +b(the)g(original)h(pro)31 b(ductions)370 b(and)g(the)f(second)g(with)h +(a)g(single)g(pro)31 b(duction)p Black Black 581 33387 +a Fs(|)581 b(ntr)h(l)f(::)h(::)f(NTR_aux.)0 35379 y Fx(If)363 +b(the)g(rule)f(has)h(an)g(empt)-31 b(y)364 b(pro)31 b(duction)364 +b(name)f(wrapp)31 b(er)362 b(\(eg)i(with)g Fs('')f Fx(in)g(place)g(of) +450 b Fs('NTR)p 38711 35379 V 419 w(')p Fx(\))363 b(then)g(the)g(pro)31 +b(duction)0 36708 y(name)441 b(is)g(based)f(on)h(the)f(original)j(non) +-31 b(terminal)443 b(ro)31 b(ot,)459 b(capitalised)443 +b(and)e(with)p 34477 36708 V 860 w Fs(aux)g Fx(app)31 +b(ended)440 b(\(eg)457 b Fs(Ntr)p 45838 36708 V 419 w(aux)p +Fx(\),)i(to)0 38036 y(a)-31 b(v)g(oid)371 b(spurious)e(con\015icts.)0 +40029 y(An)274 b(additional)i Fs(auxparams)f Fx(hom)f(on)g(rules)f +(lets)h(the)g(user)f(add)g(t)-31 b(yp)31 b(e)275 b(parameters)f(to)g +(the)g(generated)g(OCaml)h(output.)0 42021 y(Generation)344 +b(of)g(aux)g(rules)e(is)h(con)-31 b(trolled)346 b(b)-31 +b(y)343 b(a)h(command-line)h(option)g Fs(-generate)p +36094 42021 V 420 w(aux)p 38257 42021 V 419 w(rules)p +Fx(,)k(whic)-31 b(h)345 b(one)e(migh)-31 b(t)0 43349 +y(\(eg\))370 b(set)g(to)f(false)h(for)g(latex)g(output)h(and)e(true)g +(for)g(OCaml)i(output.)0 47674 y FC(16)1793 b(F)-149 +b(unctions)0 50763 y Fx(Ott)430 b(includes)g(exp)31 b(erimen)-31 +b(tal)432 b(supp)31 b(ort)429 b(for)h(writing)h(function)g +(de\014nitions.)675 b(As)429 b(a)h(simple)h(example,)446 +b(consider)430 b(the)0 52091 y(Ott)370 b(\014le)f(b)31 +b(elo)-31 b(w:)p Black Black Mahogany 2325 54084 a Fs(grammar)p +Black 2906 55412 a(n)p RoyalBlue 581 w(::)p Black 581 +w('n_')p RoyalBlue 582 w(::=)p Black 4068 56741 a(|)581 +b(0)p RoyalBlue 4069 w(::)p Black RoyalBlue 581 w(::)p +Black 581 w(Zero)4068 58069 y(|)g(S)h(n)p RoyalBlue 2906 +w(::)p Black RoyalBlue 581 w(::)p Black 581 w(Succ)p +Mahogany 2325 60726 a(funs)p Black 3487 62054 a(Add)p +RoyalBlue 581 w(::=)p Black RoyalBlue 1744 w({)q({)p +Black 581 w(hol-proof)g(...)p RoyalBlue 1163 w(}})p Black +Mahogany 2325 63382 a(fun)p Black 3487 64711 a(n1)f(+)h(n2)p +RoyalBlue 581 w(::)p Black 582 w(n)p RoyalBlue 581 w(::)p +Black 581 w(add)p RoyalBlue 2325 w({{)p Black 582 w(com)f(a)h(function) +g(of)f(type)h(num)g(->)f(num)h(->)f(num)p RoyalBlue 582 +w(}})p Black Mahogany 2325 66039 a(by)p Black 1328 x(0)g(+)g(n2)p +RoyalBlue 582 w(===)p Black 582 w(n2)3487 68696 y(S)g(n1)h(+)f(n2)p +RoyalBlue 581 w(===)p Black 582 w(n1)g(+)h(S)f(n2)0 70688 +y Fx(Here)369 b(the)g Fs(add)h Fx(function)g(is)f(compiled)i(in)-31 +b(to)371 b(the)e(follo)-31 b(wing)373 b(Co)31 b(q)370 +b(co)31 b(de:)p Black 24502 77841 a(43)p Black eop end +%%Page: 44 44 +TeXDict begin 44 43 bop Black Black Black Black 2356 +-594 a Fs(Fixpoint)582 b(add)g(\(x1:num\))g(\(x2:num\))h(:)e(num:=)3518 +735 y(match)h(x1,x2)g(with)3518 2063 y(|)g(n_zero)g(,)f(n2)g(=>)h(n2) +3518 3391 y(|)g(\(n_succ)g(n1\))f(,)h(n2)f(=>)1163 b(\(add)582 +b(n1)f(\(n_succ)h(n2\))g(\))2356 4720 y(end.)31 6712 +y Fx(More)369 b(in)h(detail,)h(the)p Mahogany 369 w Fs(fun)p +Black 370 w Fx(n1)e(+)g(n2)p RoyalBlue 370 w Fs(::)p +Black 492 w Fx(n)p RoyalBlue 369 w Fs(::)p Black 492 +w Fx(add)p Mahogany 370 w Fs(by)p Black 369 w Fx(declaration)i(sp)31 +b(eci\014es:)p Black 1692 8705 a Ft(\017)p Black 554 +w Fx(the)369 b(name)h(of)g(the)f(function:)494 b Fs(add)p +Black 1692 10697 a Ft(\017)p Black 554 w Fx(the)369 b(sym)-31 +b(b)31 b(olic)371 b(term)f(that)g(de\014nes)f(the)g(lhs:)493 +b Fs(n1)581 b(+)g(n2)p Black 1692 12690 a Ft(\017)p Black +554 w Fx(the)369 b(non-terminal)j(that)e(de\014nes)f(the)g(rhs:)492 +b Fs(n)31 14682 y Fx(The)291 b(t)-31 b(yp)31 b(e)291 +b(of)g(the)f(argumen)-31 b(ts)292 b(of)f(the)f(function)i(is)e +(de\014ned)g(b)-31 b(y)291 b(the)f(non-terminals)j(app)31 +b(earing)291 b(in)g(the)f(lhs,)307 b(the)290 b(return)31 +16011 y(t)-31 b(yp)31 b(e)401 b(b)-31 b(y)401 b(the)f(rhs)f +(non-terminal)k(\(so)e Fs(num)f Ft(!)g Fs(num)h Ft(!)f +Fs(num)g Fx(in)h(the)f(ab)31 b(o)-31 b(v)g(e)402 b(example\).)587 +b(As)400 b(side-e\013ect,)409 b(whenev)-31 b(er)400 b(a)31 +17339 y(function)356 b(of)f(t)-31 b(yp)31 b(e)355 b Fs(symb_term)g +Ft(!)g Fs(nt)f Fx(is)g(de\014ned,)k(a)c(pro)31 b(duction)356 +b Fs(nt)581 b(::=)h(symb_term)355 b Fx(is)g(added)f(to)h(the)g +(de\014nition)31 18667 y(of)330 b(the)g(non-terminal)i +Fs(nt)d Fx(\(in)h(the)g(ab)31 b(o)-31 b(v)g(e)330 b(example,)340 +b(the)329 b(pro)31 b(duction)331 b Fs(n1)581 b(+)g(n2)330 +b Fx(is)f(added)h(to)g(the)g(grammar)g(of)g Fs(num)p +Fx(\).)31 20660 y(F)-92 b(unctions)459 b(are)f(then)g(de\014ned)g(b)-31 +b(y)458 b(case)g(analysis,)482 b(where)458 b(the)g(lhs)g(and)g(the)h +(rhs)e(are)h(separated)g(b)-31 b(y)458 b(the)h(reserv)-31 +b(ed)31 21988 y(sym)g(b)31 b(ol)p RoyalBlue 371 w Fs(===)p +Black Fx(.)31 23981 y(The)p RoyalBlue 470 w Fs({{)p Black +470 w(hol-proof)p RoyalBlue 470 w(}})p Black 470 w Fx(hom)470 +b(allo)-31 b(ws)471 b(the)f(sp)31 b(eci\014cation)471 +b(of)f(a)f(termination)k(pro)31 b(of,)495 b(whic)-31 +b(h)470 b(is)f(required)g(b)-31 b(y)470 b(Hol.)31 25309 +y(Mutually)399 b(recursiv)-31 b(e)396 b(functions)h(can)g(b)31 +b(e)396 b(de\014ned)g(in)h(the)g(same)p Mahogany 396 +w Fs(funs)p Black 397 w Fx(blo)31 b(c)-31 b(k,)405 b(analogously)400 +b(to)d(m)-31 b(utually)399 b(recursiv)-31 b(e)31 26637 +y(rule)369 b(de\014nitions.)31 28630 y Fo(Disclaimer:)561 +b Fx(the)371 b(di\013eren)-31 b(t)372 b(treatmen)-31 +b(t)372 b(of)g(partial)h(functions)f(b)-31 b(y)371 b(the)g(di\013eren) +-31 b(t)371 b(pro)-31 b(v)g(ers)371 b(can)g(result)g(in)g(a)g(function) +31 29958 y(de\014nition)g(b)31 b(eing)370 b(compiled)h(correctly)f(to)g +(one)f(pro)-31 b(v)g(er)369 b(but)h(not)g(to)g(others.)31 +34283 y FC(17)1793 b(P)-50 b(arsing)599 b(Priorities)31 +37372 y Fx(Sym)-31 b(b)31 b(olic)475 b(terms)e(that)i(can)e(ha)-31 +b(v)g(e)474 b(more)f(than)h(one)f(parse)g(tree)f(are)h(t)-31 +b(ypically)476 b(considered)d(erroneous;)525 b(ho)-31 +b(w)g(ev)g(er,)31 38700 y(certain)421 b(classes)e(of)h(parse)g(trees)f +(are)g(ignored)i(in)f(order)f(to)h(supp)31 b(ort)419 +b(common)j(idioms)f(that)g(are)e(am)-31 b(biguous.)646 +b(F)-92 b(or)31 40029 y(example,)372 b(the)d(pro)31 b(duction)21654 +41357 y(\000)308 b(::=)g(\000)25129 41523 y Fu(1)25626 +41357 y Fn(;)184 b(::;)g Fx(\000)27914 41523 y Fr(n)31 +43349 y Fx(migh)-31 b(t)440 b(b)31 b(e)437 b(used)g(to)h(allo)-31 +b(w)440 b(a)e(list)g(of)g(t)-31 b(yping)440 b(con)-31 +b(texts)438 b(to)h(b)31 b(e)437 b(app)31 b(ended)437 +b(together,)457 b(but)437 b(it)i(is)e(highly)i(am)-31 +b(biguous.)31 44678 y(The)370 b(follo)-31 b(wing)373 +b(restrictions)d(forbid)f(man)-31 b(y)371 b(un)-31 b(w)g(an)g(ted)371 +b(parses)d(that)i(could)g(otherwise)g(o)31 b(ccur.)p +Black 1692 46670 a Ft(\017)p Black 554 w Fx(All)481 b(parses)e(in)h +(whic)-31 b(h)480 b(a)g(non)-31 b(terminal)483 b(deriv)-31 +b(es)479 b(itself)i(without)h(consuming)f(an)-31 b(y)481 +b(input)f(are)g(ignored.)825 b(F)-92 b(or)2799 47999 +y(example,)532 b(in)499 b(the)f(pro)31 b(duction)500 +b(ab)31 b(o)-31 b(v)g(e,)532 b(the)498 b(list)h(could)g(otherwise)g(b) +31 b(e)498 b(of)h(length)g(one)g(so)f(that)i(\000)e(directly)2799 +49327 y(deriv)-31 b(es)510 b(\000)g(giving)j(rise)d(to)h(a)g(v)-61 +b(acuous)510 b(cycle,)547 b(and)511 b(an)g(in\014nite)g(forest)g(of)g +(parse)f(trees.)916 b(This)511 b(restriction)2799 50655 +y(ensures)368 b(that)i(only)g(the)g(tree)f(without)i(the)e(v)-61 +b(acuous)370 b(cycle)f(is)g(considered.)p Black 1692 +52648 a Ft(\017)p Black 554 w Fx(The)487 b(parser)f(for)h(a)g(list)h +(form)f(ignores)g(parses)f(that)i(unnecessarily)f(break)g(up)g(the)g +(list)h(due)e(to)i(\(direct)g(or)2799 53976 y(indirect\))343 +b(self)e(reference.)483 b(F)-92 b(or)340 b(example,)349 +b(\000)21521 54142 y Fu(1)22018 53976 y Fn(;)184 b Fx(\000)23201 +54142 y Fu(2)23698 53976 y Fn(;)g Fx(\000)24881 54142 +y Fu(3)25379 53976 y Fn(;)g Fx(\000)26562 54142 y Fu(4)27400 +53976 y Fx(will)343 b(not)g(parse)e(as)g(a)h(t)-31 b(w)g(o)343 +b(elemen)-31 b(t)343 b(sequence)e(of)h(t)-31 b(w)g(o)2799 +55305 y(elemen)g(t)371 b(sequences)d(\(\000)13035 55471 +y Fu(1)13532 55305 y Fn(;)184 b Fx(\000)14715 55471 y +Fu(2)15212 55305 y Fx(\))p Fn(;)g Fx(\(\000)17255 55471 +y Fu(3)17754 55305 y Fn(;)g Fx(\000)18937 55471 y Fu(4)19434 +55305 y Fx(\))370 b(giv)-31 b(en)370 b(the)f(pro)31 b(duction)371 +b(ab)31 b(o)-31 b(v)g(e.)p Black 1692 57297 a Ft(\017)p +Black 554 w Fx(User)368 b(supplied)i(priorit)-31 b(y)370 +b(annotations)i(in)e(a)p Mahogany 369 w Fs(parsing)p +Black 370 w Fx(section)g(rule)f(out)h(certain)g(trees)f(as)g(follo)-31 +b(ws:)p Black 4044 59290 a Fp({)p Black 554 w Fo(pr)-57 +b(o)g(dname)9971 59560 y Fu(1)p RoyalBlue 10467 59290 +a Fs(<=)p Black 1 w Fo(pr)g(o)g(dname)16366 59560 y Fu(2)16863 +59290 y Fx(:)477 b(P)-31 b(arse)339 b(trees)e(where)i(a)f +Fo(pr)-57 b(o)g(dname)32045 59560 y Fu(1)32880 59290 +y Fx(no)31 b(de)338 b(is)g(a)h(c)-31 b(hild)339 b(of)g(a)g +Fo(pr)-57 b(o)g(dname)47001 59560 y Fu(2)47836 59290 +y Fx(no)31 b(de)5234 60618 y(are)369 b(ignored.)p Black +4044 62611 a Fp({)p Black 554 w Fo(pr)-57 b(o)g(dname)9971 +62881 y Fu(1)p Mahogany 10846 62611 a Fs(right)p Black +380 w Fo(pr)g(o)g(dname)18867 62881 y Fu(2)19364 62611 +y Fx(:)512 b(P)-31 b(arse)379 b(trees)g(where)f(a)i Fo(pr)-57 +b(o)g(dname)34743 62881 y Fu(1)35619 62611 y Fx(no)31 +b(de)379 b(is)g(the)g(leftmost)i(c)-31 b(hild)380 b(of)f(a)5234 +63939 y Fo(pr)-57 b(o)g(dname)9971 64209 y Fu(1)10836 +63939 y Fx(no)31 b(de)370 b(are)f(ignored.)p Black 4044 +65931 a Fp({)p Black 554 w Fo(pr)-57 b(o)g(dname)9971 +66202 y Fu(1)p Mahogany 10836 65931 a Fs(left)p Black +368 w Fo(pr)g(o)g(dname)18265 66202 y Fu(2)18761 65931 +y Fx(:)492 b(P)-31 b(arse)369 b(trees)e(where)h(a)h Fo(pr)-57 +b(o)g(dname)34078 66202 y Fu(2)34942 65931 y Fx(no)31 +b(de)368 b(is)h(the)f(righ)-31 b(tmost)370 b(c)-31 b(hild)370 +b(of)e(a)5234 67260 y Fo(pr)-57 b(o)g(dname)9971 67530 +y Fu(1)10836 67260 y Fx(no)31 b(de)370 b(are)f(ignored.)2799 +69252 y(In)420 b(addition)i(to)f(immediate)i(c)-31 b(hildren,)433 +b(these)420 b(priorit)-31 b(y)422 b(annotations)h(also)e(prohibit)g +(parse)f(trees)f(where)h(the)2799 70581 y(forbidden)379 +b(c)-31 b(hild)380 b(no)31 b(de)379 b(o)31 b(ccurs)378 +b(underneath)i(a)f(c)-31 b(hain)380 b(of)f(deriv)-61 +b(ations)380 b(from)g(the)f(sp)31 b(eci\014ed)379 b(paren)-31 +b(t)379 b(when)g(the)2799 71909 y(c)-31 b(hain)344 b(do)31 +b(es)343 b(not)i(consume)e(an)-31 b(y)345 b(input.)484 +b(Figure)344 b(17)g(demonstrates)h(a)e(t)-31 b(ypical)346 +b(use)d(of)h(a)p Mahogany 344 w Fs(parsing)p Black 344 +w Fx(section;)353 b(the)2799 73237 y(declarations)371 +b(ha)-31 b(v)g(e)370 b(e\013ect)f(as)g(follo)-31 b(ws:)p +Black 24533 77841 a(44)p Black eop end +%%Page: 45 45 +TeXDict begin 45 44 bop Black Black Black 4013 -594 a +Fp({)p Black 554 w Fx(Line)369 b(#1:)493 b Fs(n)582 b(+)f(n)g(+)h(n)369 +b Fx(parses)f(as)h Fs(\(n)582 b(+)f(n\))g(+)h(n)p Fx(,)369 +b(but)h(not)g Fs(n)581 b(+)g(\(n)h(+)f(n\))p Fx(;)p Black +4013 1399 a Fp({)p Black 554 w Fx(Line)369 b(#3:)493 +b Fs(n)582 b(+)f(n)g(-)h(n)369 b Fx(parses)f(as)h Fs(\(n)582 +b(+)f(n\))g(-)h(n)p Fx(,)369 b(but)h(not)g Fs(n)581 b(+)g(\(n)h(-)f +(n\))p Fx(;)p Black 4013 3391 a Fp({)p Black 554 w Fx(Line)369 +b(#9:)493 b Fs(-n)582 b(+)f(n)369 b Fx(parses)g(as)g +Fs(\(-n\))581 b(+)h(n)p Fx(,)369 b(but)h(not)g Fs(-\(n)581 +b(+)h(n\))p Fx(;)p Black 4013 5384 a Fp({)p Black 554 +w Fx(Line)368 b(#15:)494 b Fs(n)581 b(+)g(n)g(n)369 b +Fx(parses)e(as)h Fs(n)581 b(+)h(\(n)f(n\))p Fx(,)369 +b(but)g(not)g Fs(\(n)581 b(+)g(n\))h(n)p Fx(;)369 b Fs(n)581 +b(n)g(+)h(n)368 b Fx(parses)f(as)h Fs(\(n)582 b(n\))f(+)h(n)p +Fx(,)5203 6712 y(but)369 b(not)h Fs(n)581 b(\(n)h(+)f(n\))p +Fx(;)p Black 4013 8705 a Fp({)p Black 554 w Fx(Line)369 +b(#20:)494 b Fs(n,)581 b(n)h(n,)f(n)369 b Fx(parses)f(as)i +Fs(n,)581 b(\(n)g(n\),)h(n)p Fx(,)370 b(but)f(not)h Fs(\(n,)582 +b(n\))f(\(n,)h(n\))p Fx(.)2767 10697 y(Curren)-31 b(tly)-92 +b(,)371 b(the)p Mahogany 369 w Fs(parsing)p Black 370 +w Fx(section)f(supp)31 b(orts)369 b(only)h(these)f(relativ)-31 +b(ely)371 b(lo)-31 b(w)371 b(lev)-31 b(el)371 b(and)e(v)-31 +b(erb)31 b(ose)369 b(declarations.)0 15022 y FC(18)1793 +b(Com)-50 b(bining)598 b(m)-50 b(ultiple)600 b(source)f(\014les)0 +18111 y Fx(Ott)448 b(can)f(b)31 b(e)447 b(in)-31 b(v)g(ok)g(ed)449 +b(with)f(m)-31 b(ultiple)449 b(source)e(\014les.)726 +b(Input)447 b(\014lenames)h(with)g(extensions)g Fs(.tex)p +Fx(,)468 b Fs(.v)p Fx(,)f Fs(.thy)p Fx(,)g Fs(.sml)p +Fx(,)0 19439 y(or)441 b Fs(ml)g Fx(are)f(simply)i(copied)g(in)-31 +b(to)442 b(the)f(relev)-61 b(an)-31 b(t)441 b(output)h(\(L)25053 +19212 y Fu(A)25541 19439 y Fx(T)26155 19677 y(E)26772 +19439 y(X,)459 b(Co)31 b(q,)460 b(Isab)31 b(elle,)459 +b(HOL,)441 b(or)g(OCaml\).)710 b(By)441 b(default)0 20767 +y(the)537 b(source-\014le)f(and)h(command-line)i(order)d(of)h(blo)31 +b(c)-31 b(ks)538 b(is)e(preserv)-31 b(ed,)578 b(for)537 +b(grammar,)580 b(em)-31 b(b)31 b(eds,)579 b(and)536 b(inductiv)-31 +b(e)0 22096 y(de\014nitions.)0 24088 y(The)514 b(pro)-31 +b(v)g(er)514 b(output)g(can)g(b)31 b(e)513 b(split)i(in)-31 +b(to)515 b(m)-31 b(ultiple)516 b(output)f(\014les:)781 +b(eac)-31 b(h)514 b(pro)-31 b(v)g(er)514 b(output)h(\014le)f(sp)31 +b(eci\014ed)513 b(with)i Fs(-o)0 25417 y()416 +b Fx(will)h(con)-31 b(tain)417 b(the)e(material)i(from)e(the)g +(previous)g(input)h(\014les)e(sp)31 b(eci\014ed)415 b(with)h +Fs(-i)f Fx(\(since)g(the)g(last)h Fs(-o)0 26745 y Fx(for)369 +b(the)h(same)f(pro)-31 b(v)g(er\).)0 28738 y(Alternativ)g(ely)-92 +b(,)279 b(one)252 b(can)g(add)g(a)h Fs(-merge)582 b(true)252 +b Fx(command-line)j(option,)277 b(in)253 b(whic)-31 b(h)252 +b(case)g(the)h(pro)31 b(ductions)252 b(of)h(m)-31 b(ultiple)0 +30066 y(grammars)519 b(that)h(share)d(the)i(same)f(header)g(are)g +(merged)h(in)-31 b(to)519 b(a)g(single)g(grammar,)557 +b(and)519 b(the)f(rules)g(of)h(m)-31 b(ultiple)0 31394 +y(inductiv)g(e)504 b(de\014nitions)g(that)f(share)f(the)g(same)h +(header)f(are)g(merged)h(in)-31 b(to)503 b(a)g(single)g(inductiv)-31 +b(e)504 b(de\014nition.)894 b(This)0 32723 y(rudimen)-31 +b(tary)442 b(form)f(of)g(mo)31 b(dularit)-31 b(y)443 +b(can)d(b)31 b(e)440 b(v)-31 b(ery)441 b(useful,)459 +b(either)441 b(to)g(split)g(a)g(language)i(de\014nition)f(in)-31 +b(to)442 b(separate)0 34051 y(features,)504 b(or)477 +b(to)h(de\014ne)e(reusable)h(Ott)h(comp)31 b(onen)-31 +b(ts)478 b(to)f(de\014ne)g(standard)g(form)-31 b(ulae,)506 +b(L)38439 33824 y Fu(A)38927 34051 y Fx(T)39541 34289 +y(E)40157 34051 y(X)477 b(prett)-31 b(y)477 b(prin)-31 +b(ting)479 b(of)0 35379 y(terminals,)601 b(or)553 b(L)7238 +35152 y Fu(A)7726 35379 y Fx(T)8340 35618 y(E)8956 35379 +y(X)g(st)-31 b(yles.)1045 b(F)-92 b(or)552 b(example,)601 +b(Figure)553 b(15)h(sho)-31 b(ws)554 b(the)f(Ott)h(source)f(\014le)g +(for)g(a)h Fs(let)f Fx(feature)h(in)0 36708 y(isolation,)383 +b(tak)-31 b(en)378 b(from)g(our)g(Ott)g(dev)-31 b(elopmen)g(t)380 +b(of)e(some)f(languages)j(from)e(Pierce's)f(T)-92 b(APL)378 +b([Pie02)r(].)518 b(The)378 b(original)0 38036 y(T)-92 +b(APL)429 b(languages)i(w)-31 b(ere)428 b(pro)31 b(duced)428 +b(using)i(Tink)-31 b(erT)g(yp)31 b(e)430 b([LP03)q(])f(to)h(comp)31 +b(ose)429 b(features)g(and)g(c)-31 b(hec)g(k)429 b(for)g(con\015icts.)0 +39364 y(In)347 b Fs(examples/tapl)i Fx(w)-31 b(e)347 +b(build)h(a)g(system,)k(similar)d(to)e(the)h(Tink)-31 +b(erT)g(yp)31 b(e)348 b Fs(sys-fullsimple)p Fx(,)354 +b(from)348 b Fs(ott)g Fx(source)e(\014les)0 40693 y(that)442 +b(corresp)31 b(ond)440 b(roughly)i(to)f(the)g(v)-61 b(arious)441 +b(Tink)-31 b(erT)g(yp)31 b(e)443 b(comp)31 b(onen)-31 +b(ts,)460 b(eac)-31 b(h)441 b(with)h(syn)-31 b(tax)442 +b(and)f(seman)-31 b(tic)443 b(rules)0 42021 y(for)369 +b(a)h(single)g(feature.)0 46346 y FC(19)1793 b(Hom)597 +b(blo)50 b(c)-50 b(ks)0 49435 y Fx(Bindsp)31 b(ecs)366 +b(and)g(homomorphisms)j(for)d(pro)31 b(ductions,)368 +b(and)f(an)-31 b(y)367 b(homomorphisms)h(for)f(de\014nitions,)i(can)d +(app)31 b(ear)367 b(in)0 50763 y(an)308 b(Ott)h(source)f(\014le)g +(either)h(attac)-31 b(hed)310 b(to)f(the)f(pro)31 b(duction)309 +b(or)f(de\014nition,)323 b(as)308 b(w)-31 b(e)308 b(ha)-31 +b(v)g(e)309 b(sho)-31 b(wn)309 b(earlier,)321 b(or)308 +b(in)h(separate)0 52091 y(hom)370 b(blo)31 b(c)-31 b(ks.)493 +b(F)-92 b(or)369 b(example,)i(one)e(can)h(write)p Mahogany +Black Mahogany 0 54084 a Fs(homs)p Black 582 w('t_')p +RoyalBlue 1162 55412 a(::)p Black 582 w(Lam)p RoyalBlue +1162 w(\(+)p Black Mahogany 582 w(bind)p Black 582 w(x)p +Mahogany 581 w(in)p Black 581 w(t)p RoyalBlue 582 w(+\))p +Black Mahogany 0 58069 a(homs)p Black 582 w('t_')p RoyalBlue +1162 59397 a(::)p Black 582 w(Var)p RoyalBlue 2906 w({{)p +Black Mahogany 581 w(com)p Black 582 w(variable)p RoyalBlue +582 w(}})p Black RoyalBlue 1162 60726 a(::)p Black 582 +w(Lam)p RoyalBlue 2906 w({{)p Black Mahogany 581 w(com)p +Black 582 w(abstraction)p RoyalBlue 583 w(}})p Black +RoyalBlue 1162 62054 a(::)p Black 582 w(App)p RoyalBlue +2906 w({{)p Black Mahogany 581 w(com)p Black 582 w(application)p +RoyalBlue 583 w(}})p Black RoyalBlue 1162 63382 a(::)p +Black 582 w(paren)p RoyalBlue 1744 w({{)p Black Mahogany +581 w(ich)p Black RoyalBlue 582 w([[)p Black(t)p RoyalBlue(]])p +Black RoyalBlue 582 w(}})p Black RoyalBlue 1162 64711 +a(::)p Black 582 w(tsub)p RoyalBlue 2325 w({{)p Black +Mahogany 581 w(ich)p Black 582 w(\()581 b(tsubst_t)p +RoyalBlue 583 w([[)p Black(t)p RoyalBlue(]])p Black RoyalBlue +582 w([[)p Black(x)p RoyalBlue(]])p Black RoyalBlue 581 +w([[)p Black(t')p RoyalBlue(]])p Black 582 w(\))p RoyalBlue +582 w(}})p Black Mahogany 0 67367 a(homs)p Black 582 +w('')p RoyalBlue 1162 68696 a(::)p Black 582 w(reduce)p +RoyalBlue 1163 w({{)p Black Mahogany 581 w(com)p Black +RoyalBlue 582 w([[)p Black(t1)p RoyalBlue(]])p Black +582 w(reduces)h(to)p RoyalBlue 582 w([[)p Black(t2)p +RoyalBlue(]])p Black RoyalBlue 582 w(}})p Black 0 70688 +a Fx(Eac)-31 b(h)282 b(of)h(these)e(b)31 b(egins)282 +b(with)h(a)f(pre\014x)f(and)h(then)g(has)f(a)h(sequence)f(of)i(pro)31 +b(duction)282 b(name)g(or)g(de\014nition)h(name)g(k)-31 +b(ernels,)0 72017 y(eac)g(h)370 b(follo)-31 b(w)g(ed)372 +b(b)-31 b(y)369 b(a)h(sequence)e(of)i(bindsp)31 b(ecs)368 +b(and)i(then)f(a)h(sequence)f(of)g(homomorphisms.)p Black +24502 77841 a(45)p Black eop end +%%Page: 46 46 +TeXDict begin 46 45 bop Black Black Black Mahogany Black +Mahogany Black Mahogany 31 6167 a Fs(metavar)p Black +583 w(n)p RoyalBlue 581 w(::=)p Black Mahogany 31 8824 +a(grammar)p Black 31 11480 a(e)p RoyalBlue 582 w(::)p +Black 581 w(e_)p RoyalBlue 582 w(::=)p Black RoyalBlue +31 12809 a(|)p Black 582 w(n)p RoyalBlue 7555 w(::)p +Black RoyalBlue 1744 w(::)p Black 581 w(num)p RoyalBlue +31 14137 a(|)p Black 582 w(-)581 b(e)p RoyalBlue 6393 +w(::)p Black RoyalBlue 1744 w(::)p Black 581 w(neg)p +RoyalBlue 31 15465 a(|)p Black 582 w(e1)g(+)h(e2)p RoyalBlue +4068 w(::)p Black RoyalBlue 1744 w(::)p Black 581 w(add)p +RoyalBlue 31 16794 a(|)p Black 582 w(e1)f(-)h(e2)p RoyalBlue +4068 w(::)p Black RoyalBlue 1744 w(::)p Black 581 w(sub)p +RoyalBlue 31 18122 a(|)p Black 582 w(e1)f(e2)p RoyalBlue +5231 w(::)p Black RoyalBlue 1744 w(::)p Black 581 w(mul)p +RoyalBlue 31 19450 a(|)p Black 582 w(e1)g(/)h(e2)p RoyalBlue +4068 w(::)p Black RoyalBlue 1744 w(::)p Black 581 w(div)p +RoyalBlue 31 20779 a(|)p Black 582 w(e1)f(,)p RoyalBlue +582 w(..)p Black 581 w(,)g(e2)p RoyalBlue 1163 w(::)p +Black RoyalBlue 1744 w(::)p Black 581 w(tup)p RoyalBlue +31 22107 a(|)p Black 582 w(\()g(e)g(\))p RoyalBlue 5231 +w(::)p Black Mahogany 581 w(M)p Black RoyalBlue 582 w(::)p +Black 581 w(par)p RoyalBlue 582 w({{)p Black Mahogany +581 w(icho)p Black RoyalBlue 582 w([[)p Black(e)p RoyalBlue(]])p +Black RoyalBlue 582 w(}})p Black Mahogany 31 24764 a(parsing)p +Black 31 27420 a(e_add)p Mahogany 582 w(left)p Black +582 w(e_add)1744 b(\045)582 b(#1)31 28749 y(e_sub)p Mahogany +582 w(left)p Black 582 w(e_sub)31 30077 y(e_add)p Mahogany +582 w(left)p Black 582 w(e_sub)1744 b(\045)582 b(#3)31 +31406 y(e_sub)p Mahogany 582 w(left)p Black 582 w(e_add)31 +34062 y(e_mul)p Mahogany 582 w(left)p Black 582 w(e_mul)31 +35391 y(e_div)p Mahogany 582 w(left)p Black 582 w(e_div)31 +36719 y(e_mul)p Mahogany 582 w(left)p Black 582 w(e_div)31 +38047 y(e_div)p Mahogany 582 w(left)p Black 582 w(e_mul)31 +40704 y(e_neg)p RoyalBlue 582 w(<=)p Black 582 w(e_add)2906 +b(\045)582 b(#9)31 42032 y(e_neg)p RoyalBlue 582 w(<=)p +Black 582 w(e_sub)31 43361 y(e_neg)p RoyalBlue 582 w(<=)p +Black 582 w(e_mul)31 44689 y(e_neg)p RoyalBlue 582 w(<=)p +Black 582 w(e_div)31 46017 y(e_neg)p RoyalBlue 582 w(<=)p +Black 582 w(e_tup)31 48674 y(e_add)p RoyalBlue 582 w(<=)p +Black 582 w(e_div)31 50002 y(e_add)p RoyalBlue 582 w(<=)p +Black 582 w(e_mul)2906 b(\045)582 b(#15)31 51331 y(e_add)p +RoyalBlue 582 w(<=)p Black 582 w(e_tup)31 52659 y(e_sub)p +RoyalBlue 582 w(<=)p Black 582 w(e_div)31 53987 y(e_sub)p +RoyalBlue 582 w(<=)p Black 582 w(e_mul)31 55316 y(e_sub)p +RoyalBlue 582 w(<=)p Black 582 w(e_tup)31 57973 y(e_mul)p +RoyalBlue 582 w(<=)p Black 582 w(e_tup)2906 b(\045)582 +b(#20)31 59301 y(e_div)p RoyalBlue 582 w(<=)p Black 582 +w(e_tup)p Black 4620 67050 a Fx(Figure)369 b(14:)494 +b(An)369 b(Ott)h(source)e(\014le)i(for)f(basic)h(arithmetic)h(using)f +(the)f(t)-31 b(ypical)371 b(parsing)f(priorities)p Black +Black Black 24533 77841 a(46)p Black eop end +%%Page: 47 47 +TeXDict begin 47 46 bop Black Black Black 0 -1657 50111 +45 v 0 33614 45 35271 v Mahogany Black Mahogany 268 -895 +a Fw(grammar)p Black 268 322 a(t)p RoyalBlue 523 w(::)p +Black 523 w(Tm)p RoyalBlue 523 w(::=)p Black RoyalBlue +20921 w({{)p Black Mahogany 523 w(com)p Black 524 w(terms:)p +RoyalBlue 523 w(}})p Black RoyalBlue 1314 1540 a(|)p +Black 523 w(let)523 b(x)g(=)g(t)g(in)g(t')p RoyalBlue +9938 w(::)p Black RoyalBlue 1569 w(::)p Black 523 w(Let)p +RoyalBlue 523 w(\(+)p Black Mahogany 523 w(bind)p Black +524 w(x)p Mahogany 523 w(in)p Black 523 w(t')p RoyalBlue +523 w(+\))p Black RoyalBlue 2615 w({{)p Black Mahogany +523 w(com)p Black 523 w(let)g(binding)p RoyalBlue 524 +w(}})p Black Mahogany 268 5193 a(defns)p Black 268 6410 +a(Jop)p RoyalBlue 523 w(::)p Black 523 w('')p RoyalBlue +523 w(::=)p Black Mahogany 268 8846 a(defn)p Black 268 +10063 a(t)g(-->)g(t')p RoyalBlue 523 w(::)p Black RoyalBlue +523 w(::)p Black 523 w(red)p RoyalBlue 523 w(::)p Black +523 w(E_)p RoyalBlue 524 w({{)p Black Mahogany 523 w(com)p +Black 523 w(Evaluation)p RoyalBlue 523 w(}})p Black Mahogany +523 w(by)p Black RoyalBlue 268 12499 a(-----------------------------)p +Black 524 w(::)g(LetV)268 13716 y(let)g(x=v1)g(in)g(t2)g(-->)g +([x|->v1]t2)268 16152 y(t1)g(-->)g(t1')p RoyalBlue 268 +17369 a(----------------------------------)p Black 524 +w(::)g(Let)268 18587 y(let)g(x=t1)g(in)g(t2)g(-->)g(let)g(x=t1')h(in)f +(t2)p Mahogany 268 22240 a(defns)p Black 268 23458 a(Jtype)p +RoyalBlue 523 w(::)p Black 523 w('')p RoyalBlue 523 w(::=)p +Black Mahogany 268 25893 a(defn)p Black 268 27111 a(G)g(|-)g(t)g(:)g(T) +p RoyalBlue 523 w(::)p Black RoyalBlue 523 w(::)p Black +523 w(typing)p RoyalBlue 523 w(::)p Black 524 w(T_)p +RoyalBlue 523 w({{)p Black Mahogany 523 w(com)p Black +523 w(Typing)p RoyalBlue 523 w(}})p Black Mahogany 523 +w(by)p Black 268 29546 a(G)g(|-)g(t1:T1)268 30764 y(G,x:T1)g(|-)g +(t2:T2)p RoyalBlue 268 31981 a(------------------------)p +Black 524 w(::)g(Let)268 33199 y(G)g(|-)g(let)g(x=t1)g(in)g(t2)g(:)g +(T2)p 50066 33614 V 0 33658 50111 45 v Black 10488 35645 +a Fx(Figure)369 b(15:)493 b(An)370 b Fs(ott)f Fx(source)g(\014le)g(for) +g(the)h Fs(let)f Fx(fragmen)-31 b(t)371 b(of)f(T)-92 +b(APL)p Black Black 0 39181 a(The)371 b Fs(test10_homs.ott)h +Fx(example,)h(in)d(Fig.)i(16,)g(sho)-31 b(ws)370 b(this.)497 +b(It)371 b(is)f(seman)-31 b(tically)374 b(equiv)-61 b(alen)-31 +b(t)372 b(to)f(the)g Fs(test10.ott)0 40509 y Fx(example)g(of)e(Fig.)h +(8,)g(but)g(the)f(homs)h(ha)-31 b(v)g(e)370 b(b)31 b(een)369 +b(mo)-31 b(v)g(ed)370 b(in)-31 b(to)371 b Fs(hom)e Fx(blo)31 +b(c)-31 b(ks.)0 44834 y FC(20)1793 b(Isab)50 b(elle)598 +b(syn)-50 b(tax)600 b(supp)50 b(ort)0 47923 y Fx(Ott)512 +b(has)f(limited)j(facilities)f(to)f(allo)-31 b(w)514 +b(the)e(Isab)31 b(elle)511 b(mix\014x)i(syn)-31 b(tax)512 +b(supp)31 b(ort)511 b(and)g(xsym)-31 b(b)31 b(ol)513 +b(to)f(b)31 b(e)511 b(used.)918 b(The)0 49251 y(example)371 +b Fs(test10_isasyn.ott)g Fx(sho)-31 b(ws)370 b(this)f(in)h(use.)0 +51244 y(Non-meta)424 b(pro)31 b(ductions)423 b(can)g(b)31 +b(e)421 b(annotated)k(with)p Mahogany 423 w Fs(isasyn)p +Black 423 w Fx(and/or)p Mahogany 424 w Fs(isaprec)p Black +423 w Fx(homomorphisms.)654 b(F)-92 b(or)421 b(example,)0 +52572 y Fs(test10_isasyn.ott)372 b Fx(con)-31 b(tains)370 +b(the)g(pro)31 b(duction)p Black Black RoyalBlue 1162 +54564 a Fs(|)p Black 582 w(t)581 b(t')p RoyalBlue 3487 +w(::)p Black RoyalBlue 582 w(::)p Black 581 w(App)p RoyalBlue +1744 w({{)p Black Mahogany 581 w(isasyn)p Black RoyalBlue +582 w([[)p Black(t)p RoyalBlue(]])p Black(\\)q()p +RoyalBlue([[)p Black(t')p RoyalBlue(]])p Black RoyalBlue +583 w(})q(})p Black RoyalBlue 1162 w({{)p Black Mahogany +582 w(isaprec)p Black 582 w(50)p RoyalBlue 581 w(}})p +Black 0 56557 a Fx(The)444 b(t)-31 b(w)g(o)445 b(homs)f(are)f(used)g +(to)h(output)h(the)e(Isab)31 b(elle)444 b(syn)-31 b(tax)445 +b(annotation)h(in)e(the)g Fs(t_App)g Fx(clause)f(of)h(the)g(datat)-31 +b(yp)31 b(e)0 57885 y(de\014nition)371 b(b)31 b(elo)-31 +b(w.)p Black Black 0 59767 a Fw(t)523 b(=)1569 60985 +y(t_Var)g("termvar")523 62202 y(|)g(t_Lam)g("termvar")h("t")1046 +b(\("\\)523 b(_)g(.)g(_")g(60\))523 63420 y(|)g(t_App)g("t")g +("t")1047 b(\("_\\_")523 b(50\))0 65413 y Fx(De\014nitions)370 +b(can)g(b)31 b(e)368 b(annotated)k(with)p Mahogany 370 +w Fs(isasyn)p Black 370 w Fx(and/or)p Mahogany 370 w +Fs(isaprec)p Black 370 w Fx(homomorphisms)f(similarly)-92 +b(,)371 b(e.g.)g(as)e(b)31 b(elo)-31 b(w.)p Black Black +Mahogany 2325 67405 a Fs(defn)p Black 2325 68734 a(t1)581 +b(-->)h(t2)p RoyalBlue 581 w(::)p Black RoyalBlue 1163 +w(::)p Black 581 w(reduce)p RoyalBlue 582 w(::)p Black +582 w('')p RoyalBlue 581 w({{)p Black Mahogany 582 w(isasyn)p +Black RoyalBlue 582 w([[)p Black(t1)p RoyalBlue(]])p +Black 582 w(--->)p RoyalBlue 581 w([[)p Black(t2)p RoyalBlue(]])p +Black RoyalBlue 582 w(})q(})p Black Mahogany 1162 w(by)p +Black 0 70726 a Fx(This)370 b(generates)f Fs(syntax)h +Fx(and)f Fs(translations)i Fx(blo)31 b(c)-31 b(ks)370 +b(as)f(b)31 b(elo)-31 b(w.)p Black Black 0 72608 a Fw(inductive_set)523 +b(reduce)h(::)f("\(t*t\))g(set")0 73826 y(and)1046 b("reduce'")523 +b(::)h("t)f(=>)g(t)g(=>)1046 b(bool")523 b(\("_)g(--->)g(_")h(50\))p +Black 24502 77841 a Fx(47)p Black eop end +%%Page: 48 48 +TeXDict begin 48 47 bop Black Black Black 31 -1657 50863 +45 v 31 75337 45 76994 v Mahogany Black Mahogany 408 +-712 a Fs(metavar)p Black 582 w(termvar)p RoyalBlue 582 +w(,)p Black 582 w(x)p RoyalBlue 581 w(::=)p Black RoyalBlue +1570 617 a({{)p Black Mahogany 582 w(isa)p Black 581 +w(string)p RoyalBlue 582 w(}})p Black RoyalBlue 582 w({{)p +Black Mahogany 581 w(coq)p Black 582 w(nat)p RoyalBlue +581 w(}})p Black RoyalBlue 582 w({{)p Black Mahogany +581 w(coq-equality)p Black RoyalBlue 583 w(}})p Black +RoyalBlue 582 w({{)p Black Mahogany 581 w(hol)p Black +582 w(string)p RoyalBlue 582 w(}})p Black RoyalBlue 581 +w({{)p Black Mahogany 582 w(lex)p Black 581 w(alphanum)p +RoyalBlue 583 w(}})p Black RoyalBlue 1570 1945 a({{)p +Black Mahogany 582 w(tex)p Black 581 w(\\mathit{)p RoyalBlue +1 w([[)p Black(termvar)p RoyalBlue(]])p Black(})p RoyalBlue +583 w(}})p Black RoyalBlue 582 w({{)p Black Mahogany +581 w(com)p Black 1163 w(term)582 b(variable)p RoyalBlue +1163 w(}})p Black Mahogany 408 4602 a(grammar)p Black +1570 5930 a(t)p RoyalBlue 581 w(::)p Black 582 w('t_')p +RoyalBlue 582 w(::=)p Black RoyalBlue 2325 w({{)p Black +Mahogany 581 w(com)p Black 582 w(term)p RoyalBlue 581 +w(})q(})p Black RoyalBlue 2732 7258 a(|)p Black 582 w(x)p +RoyalBlue 11042 w(::)p Black RoyalBlue 1743 w(::)p Black +582 w(Var)p RoyalBlue 2732 8587 a(|)p Black 582 w(\\)f(x)g(.)h(t)p +RoyalBlue 7555 w(::)p Black RoyalBlue 1743 w(::)p Black +582 w(Lam)p RoyalBlue 2732 9915 a(|)p Black 582 w(t)f(t')p +RoyalBlue 9299 w(::)p Black RoyalBlue 1743 w(::)p Black +582 w(App)p RoyalBlue 2732 11244 a(|)p Black 582 w(\()g(t)g(\))p +RoyalBlue 8718 w(::)p Black Mahogany 581 w(S)p Black +RoyalBlue 581 w(::)p Black 582 w(paren)p RoyalBlue 2732 +12572 a(|)p Black 582 w({)g(t)g(/)h(x)f(})g(t')p RoyalBlue +4650 w(::)p Black Mahogany 581 w(M)p Black RoyalBlue +581 w(::)p Black 582 w(tsub)1570 15229 y(v)p RoyalBlue +581 w(::)p Black 582 w('v_')p RoyalBlue 582 w(::=)p Black +RoyalBlue 2325 w({{)p Black Mahogany 581 w(com)p Black +1163 w(value)p RoyalBlue 582 w(}})p Black RoyalBlue 2732 +16557 a(|)p Black 582 w(\\)g(x)g(.)h(t)p RoyalBlue 7555 +w(::)p Black RoyalBlue 1743 w(::)p Black 582 w(Lam)p +Mahogany 1570 19214 a(terminals)p Black RoyalBlue 583 +w(::)p Black 581 w('terminals_')p RoyalBlue 583 w(::=)p +Black RoyalBlue 2732 20542 a(|)p Black 582 w(\\)p RoyalBlue +11042 w(::)p Black RoyalBlue 1743 w(::)p Black 582 w(lambda)p +RoyalBlue 1163 w({{)p Black Mahogany 582 w(tex)p Black +581 w(\\lambda)p RoyalBlue 582 w(})q(})p Black RoyalBlue +2732 21870 a(|)p Black 582 w(-->)p RoyalBlue 9880 w(::)p +Black RoyalBlue 1743 w(::)p Black 582 w(red)p RoyalBlue +2906 w({{)p Black Mahogany 582 w(tex)p Black 581 w(\\longrightarrow)p +RoyalBlue 584 w(}})p Black Mahogany 408 25855 a(homs)p +Black 582 w('t_')p RoyalBlue 1570 27184 a(::)p Black +582 w(Lam)p RoyalBlue 1162 w(\(+)p Black Mahogany 582 +w(bind)p Black 582 w(x)p Mahogany 581 w(in)p Black 581 +w(t)p RoyalBlue 582 w(+\))p Black Mahogany 408 29840 +a(homs)p Black 582 w('t_')p RoyalBlue 1570 31169 a(::)p +Black 582 w(Var)p RoyalBlue 2906 w({{)p Black Mahogany +581 w(com)p Black 582 w(variable)p RoyalBlue 582 w(}})p +Black RoyalBlue 1570 32497 a(::)p Black 582 w(Lam)p RoyalBlue +2906 w({{)p Black Mahogany 581 w(com)p Black 582 w(abstraction)p +RoyalBlue 583 w(}})p Black RoyalBlue 1570 33826 a(::)p +Black 582 w(App)p RoyalBlue 2906 w({{)p Black Mahogany +581 w(com)p Black 582 w(application)p RoyalBlue 583 w(}})p +Black RoyalBlue 1570 35154 a(::)p Black 582 w(paren)p +RoyalBlue 1744 w({{)p Black Mahogany 581 w(ich)p Black +RoyalBlue 582 w([[)p Black(t)p RoyalBlue(]])p Black RoyalBlue +582 w(}})p Black RoyalBlue 1570 36482 a(::)p Black 582 +w(tsub)p RoyalBlue 2325 w({{)p Black Mahogany 581 w(ich)p +Black 582 w(\()f(tsubst_t)p RoyalBlue 582 w([[)p Black(t)p +RoyalBlue(]])p Black RoyalBlue 582 w([[)p Black(x)p RoyalBlue(]])p +Black RoyalBlue 582 w([[)p Black(t')p RoyalBlue(]])p +Black 582 w(\))p RoyalBlue 582 w(}})p Black Mahogany +408 39139 a(homs)p Black 582 w('')p RoyalBlue 1570 40467 +a(::)p Black 582 w(reduce)p RoyalBlue 1163 w({{)p Black +Mahogany 581 w(com)p Black 582 w($)p RoyalBlue([[)p Black(t1)p +RoyalBlue(]])p Black($)h(reduces)g(to)g($)p RoyalBlue([[)p +Black(t2)p RoyalBlue(]])p Black($)p RoyalBlue 582 w(}})p +Black Mahogany 408 44452 a(subrules)p Black 1570 45781 +a(v)p RoyalBlue 581 w(<::)p Black 582 w(t)p Mahogany +408 48437 a(substitutions)p Black Mahogany 1570 49766 +a(single)p Black 582 w(t)g(x)p RoyalBlue 581 w(::)p Black +581 w(tsubst)p Mahogany 408 52422 a(defns)p Black 1570 +53751 a(Jop)p RoyalBlue 582 w(::)p Black 581 w('')p RoyalBlue +582 w(::=)p Black Mahogany 2732 56408 a(defn)p Black +2732 57736 a(t1)g(-->)g(t2)p RoyalBlue 581 w(::)p Black +RoyalBlue 1163 w(::)p Black 581 w(reduce)p RoyalBlue +582 w(::)p Black 581 w('')p Mahogany 582 w(by)p Black +RoyalBlue 2732 61721 a(--------------------------)p Black +1167 w(::)f(ax_app)2732 63049 y(\(\\)q(x.t12\))h(v2)f(-->)1163 +b({v2/x})q(t12)2732 65706 y(t1)582 b(-->)g(t1')p RoyalBlue +2732 67034 a(--------------)p Black 584 w(::)f(ctx_app_fun)2732 +68363 y(t1)h(t)f(-->)h(t1')f(t)2732 71019 y(t1)h(-->)g(t1')p +RoyalBlue 2732 72348 a(--------------)p Black 584 w(::)f(ctx_app_arg) +2732 73676 y(v)h(t1)f(-->)h(v)f(t1')p 50850 75337 V 31 +75381 50863 45 v Black 14401 77355 a Fx(Figure)369 b(16:)494 +b(Hom)370 b(Sections:)493 b Fs(test10)p 30773 77355 349 +45 v 420 w(homs.ott)p Black Black Black 24533 77841 a +Fx(48)p Black eop end +%%Page: 49 49 +TeXDict begin 49 48 bop Black Black 0 -594 a Fw(where)523 +b("\(t1)g(--->)h(t2\))f(==)1046 b(\()523 b(t1)g(,)g(t2)g(\))g(:)g +(reduce")0 1399 y Fx(Sym)-31 b(b)31 b(olic)469 b(terms)f(in)g +(de\014nitions)g(are)g(prin)-31 b(ted)468 b(using)g(an)-31 +b(y)468 b(pro)31 b(duction)468 b(or)g(de\014nition)h(syn)-31 +b(tax.)788 b(This)468 b(\(esp)31 b(ecially)0 2727 y(with)468 +b(xsym)-31 b(b)31 b(ol)467 b(turned)f(on\))i(mak)-31 +b(es)467 b(the)f(curren)-31 b(t)466 b(goal)j(state)e(during)g(Isab)31 +b(elle)466 b(pro)31 b(of)467 b(dev)-31 b(elopmen)g(t)469 +b(m)-31 b(uc)g(h)467 b(more)0 4055 y(readable.)0 6048 +y(F)-92 b(urther,)313 b(there)301 b(is)f(a)h(command)h(line)f(option)h +Fs(-isa_syntax)583 b(true)p Fx(.)470 b(If)300 b(this)h(is)f(set)h(then) +f(the)h(to)31 b(ol)302 b(generates)f(Isab)31 b(elle)0 +7376 y(syn)-31 b(tax)337 b(annotations)i(from)e(the)g(source)e(syn)-31 +b(tax.)483 b(F)-92 b(or)336 b(example,)344 b(the)337 +b(source)e(\014le)i(pro)31 b(duction)337 b(for)f(the)h +Fs(t_Lam)g Fx(clause)0 8705 y(is)p Black Black RoyalBlue +2325 10697 a Fs(|)p Black 581 w(\\)581 b(x)g(.)h(t)p +RoyalBlue 7555 w(::)p Black RoyalBlue 1744 w(::)p Black +581 w(Lam)p RoyalBlue 1744 w({{)p Black Mahogany 581 +w(isaprec)p Black 583 w(60)p RoyalBlue 581 w(}})p Black +0 12690 a Fx(and)369 b(the)h Fs(terminals)g Fx(grammar)h(con)-31 +b(tains)370 b(a)g(mapping)h(from)e Fs(\\)h Fx(to)g Fs(\\)p +Fx(:)p Black Black Mahogany 1162 14682 a Fs(terminals)p +Black RoyalBlue 583 w(::)p Black 581 w('terminals_')p +RoyalBlue 583 w(::=)p Black RoyalBlue 2325 16011 a(|)p +Black 581 w(\\)p RoyalBlue 11042 w(::)p Black RoyalBlue +1744 w(::)p Black 581 w(lambda)p RoyalBlue 1163 w({{)p +Black Mahogany 582 w(tex)p Black 581 w(\\lambda)p RoyalBlue +582 w(})q(})p Black RoyalBlue 1162 w({{)p Black Mahogany +582 w(isa)p Black 581 w(\\)p RoyalBlue 583 w(}})p +Black RoyalBlue 2325 17339 a(|)p Black 581 w(-->)p RoyalBlue +9880 w(::)p Black RoyalBlue 1744 w(::)p Black 581 w(red)p +RoyalBlue 2906 w({{)p Black Mahogany 582 w(tex)p Black +581 w(\\longrightarrow)p RoyalBlue 584 w(}})p Black RoyalBlue +581 w({{)p Black Mahogany 582 w(isa)p Black 581 w(--->)p +RoyalBlue 582 w(}})p Black 0 19331 a Fx(This)269 b(is)g(used)f(\(just)i +(as)f(for)g(L)11533 19105 y Fu(A)12021 19331 y Fx(T)12635 +19570 y(E)13250 19331 y(X)g(homs\))h(to)g(generate)f(the)g +Fs(\("\\)583 b(_)e(.)h(_")f(60\))269 b Fx(in)g(the)h(datat)-31 +b(yp)31 b(e)270 b(de\014nition)0 20660 y(ab)31 b(o)-31 +b(v)g(e.)0 22652 y(This)394 b(functionalit)-31 b(y)398 +b(is)c(limited)j(in)d(v)-61 b(arious)394 b(w)-31 b(a)g(ys:)544 +b(\(1\))395 b(the)g(full)g(range)f(of)h(Isab)31 b(elle)394 +b(precedence)f(and)i(asso)31 b(ciativit)-31 b(y)0 23981 +y(sp)31 b(eci\014cations)265 b(are)e(not)i(supp)31 b(orted;)299 +b(\(2\))264 b(the)g(automatically)269 b(generated)264 +b(syn)-31 b(tax)265 b(annotations)h(are)e(somewhat)h(crude,)0 +25309 y(esp)31 b(ecially)266 b(w.r.t.)f(spacing)h(and)e(paren)-31 +b(thesisation;)302 b(\(3\))265 b(syn)-31 b(tax)266 b(annotation)h(on)d +(meta)i(pro)31 b(ductions)265 b(is)f(not)h(prop)31 b(ertly)0 +26637 y(supp)g(orted;)505 b(and)460 b(\(4\))h(it)g(w)-31 +b(ould)461 b(b)31 b(e)459 b(desirable)h(to)h(ha)-31 b(v)g(e)461 +b(more)f(\014ne-grain)g(con)-31 b(trol)461 b(of)g(whether)f(to)g +(automatically)0 27966 y(generate)370 b(annotations:)495 +b(p)31 b(er-pro)g(duction,)370 b(p)31 b(er-rule,)369 +b(and)g(p)31 b(er-\014le.)0 32291 y FC(21)1793 b(Isab)50 +b(elle)598 b(co)50 b(de)598 b(generation)g(example)0 +35379 y Fx(The)358 b(Isab)31 b(elle/Co)g(q/HOL)361 b(co)31 +b(de)358 b(generation)h(facilities)i(can)d(b)31 b(e)358 +b(sometimes)h(used)f(to)h(generate)f(\(v)-61 b(ariously\))360 +b(OCaml)0 36708 y(and)369 b(SML)g(co)31 b(de)369 b(from)h(the)f(Isab)31 +b(elle/Co)g(q/HOL)372 b(de\014nitions)e(pro)31 b(duced)369 +b(b)-31 b(y)369 b(Ott.)0 38700 y(F)-92 b(or)495 b(example,)530 +b(the)497 b Fs(test10st_codegen.thy)i Fx(\014le)e(uses)e(Isab)31 +b(elle)496 b(co)31 b(de)497 b(generation)h(to)f(pro)31 +b(duce)496 b(SML)f(co)31 b(de)496 b(to)0 40029 y(calculate)371 +b(the)f(p)31 b(ossible)369 b(reductions)h(of)f(terms)h(in)f(the)g +Fs(test10st.ott)i Fx(simply)f(t)-31 b(yp)31 b(ed)370 +b(lam)-31 b(b)31 b(da)371 b(calculus.)p Black Black 0 +42021 a Fs(theory)582 b(test10st_codegen)0 43349 y(imports)g +(test10st_snapshot_out)i(Executable_Set)0 44678 y(begin)0 +47334 y(ML)d("reset)h(Codegen.quiet_mode")0 49991 y(\(*)f(Code)h +(generation)h(for)e(the)h(test10st)g(simply)g(typed)g(lambda)g +(calculus.)h(*\))0 52648 y(constdefs)581 53976 y(ta)f(::)f(t)0 +55305 y("ta)h(==)f(\(t_App)h(\(t_Lam)g(''z'')g(\(t_Var)g(''z''\)\)\))g +(\(t_Lam)g(''y'')g(\(t_Var)g(''y''\)\)")0 56633 y(;)0 +59290 y(code_module)h(Test10st_codegen)g(file)f("test10st_codegen.ml")i +(contains)0 60618 y(\(*is_v)0 61946 y(tsubst_T)0 63275 +y(tsubst_t*\))0 64603 y(reduce_ta)1164 b(=)581 b("\(ta,_\):reduce")0 +68588 y(\(*)g(...to)h(build)g(and)g(demo)g(the)f(resulting)i +(test10st_codegen.ml)h(code...)0 71245 y(Isabelle)e +(test10st_codegen.thy)0 72573 y(...`use')g(that...)p +Black 24502 77841 a Fx(49)p Black eop end +%%Page: 50 50 +TeXDict begin 50 49 bop Black Black 31 -594 a Fs(...in)582 +b(a)g(shell...)31 735 y(isabelle)31 2063 y(use)g +("test10st_codegen.ml";)31 3391 y(open)g(Test10st_codegen;)31 +6048 y(...a)g(test)g(term...)31 7376 y(ta;)31 8705 y(val)g(it)g(=)f +(t_App)h(\(t_Lam)g(\(["z"],)g(t_Var)g(["z"]\),)g(t_Lam)g(\(["y"],)g +(t_Var)g(["y"]\)\))31 11361 y(...a)g(sample)g(reduction...)31 +12690 y(DSeq.hd\(reducep__1)i(ta\);)31 14018 y(val)e(it)g(=)f(t_Lam)h +(\(["y"],)g(t_Var)g(["y"]\))g(:)f(Test10st_codegen.t)31 +16675 y(*\))31 19331 y(end)31 23656 y FC(22)1793 b(Reference:)798 +b(Command-line)599 b(usage)31 26745 y Fx(A)370 b(go)31 +b(o)g(d)370 b(place)g(to)f(get)h(started)g(is)f(one)h(of)f(the)h(test)f +Fs(make)h Fx(targets)g(in)f(the)h Fs(ott)f Fx(directory)-92 +b(,)370 b(e.g.)p Black Black 31 28738 a Fs(test10:)583 +b(tests/test10.ott)6424 30066 y(bin/ott)27896 b(\\)10492 +31394 y(-i)582 b(tests/test10.ott)16855 b(\\)10492 32723 +y(-o)582 b(out.thy)g(-o)f(out.v)h(-o)g(outScript.sml)6975 +b(\\)10492 34051 y(-o)582 b(out.tex)22084 b(\\)10492 +35379 y(-parse)582 b(":t:)1163 b(\(\\z.z)582 b(z\))f(y")13948 +b(\\)6424 36708 y(&&)582 b(\($\(LATEX\))g(out;)g($\(DVIPS\))g(out)g +(-o\))31 38700 y Fx(When)369 b Fs(make)582 b(test10)370 +b Fx(is)f(executed,)h Fs(ott)p Fx(:)p Black 1692 40693 +a Ft(\017)p Black 554 w Fx(reads)f(the)g(source)g(\014le)g +Fs(tests/test10.ott)p Black 1692 42685 a Ft(\017)p Black +554 w Fx(\(if)471 b(one)g(also)g(sp)31 b(eci\014es)470 +b Fs(-show)p 16160 42685 349 45 v 419 w(post)p 18903 +42685 V 419 w(sort)582 b(true)471 b Fx(and)g Fs(-show)p +30182 42685 V 419 w(defns)582 b(true)p Fx(\))471 b(prin)-31 +b(ts)471 b(on)f(standard)h(output)2799 44014 y(v)-61 +b(arious)316 b(diagnostic)h(information,)330 b(including)317 +b(ASCI)31 b(I)316 b(v)-31 b(ersions)315 b(of)h(the)g(grammar)h(and)f +(inductiv)-31 b(e)317 b(de\014nitions.)2799 45342 y(By)353 +b(default)g(these)g(are)f(coloured)h(\(using)h Fs(vt220)f +Fx(con)-31 b(trol)354 b(co)31 b(des\))352 b(with)i(meta)-31 +b(v)-61 b(ariables)355 b(in)e(red,)i(non)-31 b(terminals)2799 +46670 y(in)300 b(y)-31 b(ello)g(w,)316 b(terminals)301 +b(in)f(green,)314 b(and)300 b(ob)61 b(ject)301 b(v)-61 +b(ariables)300 b(in)g(white.)470 b(Scanning)301 b(o)-31 +b(v)g(er)300 b(this)g(output)h(quic)-31 b(kly)301 b(pic)-31 +b(ks)2799 47999 y(up)369 b(some)g(common)i(errors.)p +Black 1692 49991 a Ft(\017)p Black 554 w Fx(parses)277 +b(the)i(sym)-31 b(b)31 b(olic)280 b(term)e Fs(\(\\z.z)582 +b(z\))g(y)278 b Fx(using)g(the)h Fs(t)f Fx(grammar)i(and)e(prin)-31 +b(ts)279 b(the)f(result)h(to)g(standard)f(output)p Black +1692 51984 a Ft(\017)p Black 554 w Fx(generates)369 b(Isab)31 +b(elle)370 b(de\014nitions)g(in)g(the)f(\014le)h Fs(out.thy)p +Black 1692 53976 a Ft(\017)p Black 554 w Fx(generates)f(Co)31 +b(q)370 b(de\014nitions)h(in)e(the)h(\014le)f Fs(out.v)p +Black 1692 55969 a Ft(\017)p Black 554 w Fx(generates)g(HOL)g +(de\014nitions)i(in)e(the)h(\014le)f Fs(outScript.sml)p +Black 1692 57961 a Ft(\017)p Black 554 w Fx(generates)408 +b(a)h(L)8960 57734 y Fu(A)9448 57961 y Fx(T)10062 58200 +y(E)10677 57961 y(X)f(do)31 b(cumen)-31 b(t)410 b(in)e(the)g(\014le)g +Fs(out.tex)p Fx(,)419 b(with)410 b(a)e(standard)h(do)31 +b(cumen)-31 b(t)409 b(pream)-31 b(ble)409 b(to)g(mak)-31 +b(e)409 b(it)2799 59290 y(self-con)-31 b(tained.)31 61282 +y(That)371 b(L)3092 61055 y Fu(A)3580 61282 y Fx(T)4194 +61520 y(E)4810 61282 y(X)e(do)31 b(cumen)-31 b(t)370 +b(is)f(then)h(compiled)g(and)g(con)-31 b(v)g(erted)370 +b(to)g(p)31 b(ostscript.)31 63275 y(F)-92 b(or)369 b(con)-31 +b(v)g(enience,)371 b(input)f(\014les)f(can)g(also)h(b)31 +b(e)369 b(listed)h(at)g(the)g(end)e(of)i(the)g(command)g(line:)p +Black Black 1194 65267 a Fs(ott)581 b([options])i()f(...)g +()31 67260 y Fx(is)370 b(equiv)-61 b(alen)-31 +b(t)371 b(to)p Black Black 1194 69252 a Fs(ott)581 b(-i)h()g +(...)g(-i)f()h([options])31 71245 y Fx(The)358 +b Fs(\045.out)g(Makefile)g Fx(target)h(runs)d Fs(ott)h +Fx(with)i(common)g(defaults)f(on)f(the)h(\014le)f Fs(\045.ott)p +Fx(,)k(so)c(for)g(example)i(executing)31 72573 y Fs(make)582 +b(tests/test10.out)312 b Fx(runs)d Fs(ott)g Fx(on)h Fs +(tests/test10.ott)p Fx(,)325 b(generating)311 b(all)g(outputs.)473 +b(There)310 b(are)f(also)i(targets)p Black 24533 77841 +a(50)p Black eop end +%%Page: 51 51 +TeXDict begin 51 50 bop Black Black 0 -594 a Fs(\045.coq.out)p +Fx(,)764 b Fs(\045.hol.out)p Fx(,)384 b(and)759 b Fs(\045.isa.out)p +Fx(,)384 b(to)d(generate)f(just)g(LaT)-92 b(eX)381 b(and)f(the)g(co)31 +b(de)379 b(for)h(one)g(pro)31 b(of)380 b(assistan)-31 +b(t,)0 735 y(and)738 b Fs(\045.tex.out)p Fx(,)371 b(to)f(generate)g +(just)f(LaT)-92 b(eX.)0 2727 y(The)369 b Fs(ott)h Fx(command-line)i +(options)e(\(with)h(default)g(v)-61 b(alues)369 b(where)g(applicable\)) +j(are)d(sho)-31 b(wn)369 b(b)31 b(elo)-31 b(w.)p Black +Black 0 4720 a Fs(Ott)582 b(version)g(0.28)1744 b(distribution)583 +b(of)e(Mon)h(27)f(Nov)h(2017)g(17:18:55)g(GMT)0 7376 +y(usage:)g(ott)g()g()h(..)e()1162 +8705 y(\(use)h("OCAMLRUNPARAM=p)1165 b(ott)581 b(...")h(to)g(show)f +(the)h(ocamlyacc)g(trace\))1162 10033 y(\(ott)g()h +()f(..)g()2326 b(is)581 b(equivalent)i(to)1743 +11361 y(ott)f(-i)f()i(..)f(-i)f()i(\)) +1162 14018 y(-i)f()12787 b(Input)581 b(file)h(\(can)g(be)f +(used)h(multiple)g(times\))1162 15346 y(-o)g()12787 +b(Output)582 b(file)f(\(can)h(be)f(used)h(multiple)h(times\))1162 +16675 y(-writesys)g()8719 b(Output)582 b(system)g(definition) +1162 18003 y(-readsys)h()9300 b(Input)581 b(system)h +(definition)1162 19331 y(-tex_filter)h()7557 +b(Files)581 b(to)h(TeX)f(filter)1162 20660 y(-coq_filter)i() +7557 b(Files)581 b(to)h(Coq)f(filter)1162 21988 y(-hol_filter)i +()7557 b(Files)581 b(to)h(HOL)f(filter)1162 +23317 y(-lem_filter)i()7557 b(Files)581 b(to)h(HOL)f(filter) +1162 24645 y(-isa_filter)i()7557 b(Files)581 +b(to)h(Isabelle)g(filter)1162 25973 y(-ocaml_filter)h()6395 +b(Files)581 b(to)h(OCaml)g(filter)1162 27302 y(-merge)g()12206 +b(merge)581 b(grammar)i(and)e(definition)i(rules)1162 +28630 y(-parse)f()11625 b(Test)581 b(parse)h(symterm,eg)h +(":nontermroot:)g(term")1162 29958 y(-fast_parse)g()9300 +b(do)581 b(not)h(parse)f(:rulename:)i(pseudoterminals)1162 +31287 y(-signal_parse_errors)h()4070 b(return)582 +b(>0)f(if)g(there)h(are)g(bad)g(defns)1162 32615 y +(-picky_multiple_parses)j()2907 b(Picky)581 b(about)h(multiple)h +(parses)1162 33943 y(-quotient_rules)h()7556 b(Quotient)582 +b(rules,)g(as)f(per)h({{)f(quotient-with)i(ntr)f(}})g(homs)1162 +35272 y(-generate_aux_rules)i()5232 b(Generate)582 +b(auxiliary)g(rules)g(or)g(constructor)g(arguments)h(from)f({{)f(aux)h +(...)f(}})h(homs)1162 36600 y(-aux_style_rules)i()6975 +b(Auxiliary)582 b(rules)g(\(true\))g(vs)f(constructor)i(arguments)g +(\(false\))1162 37928 y(-output_source_locations)i(<0>)4069 +b(Include)582 b(source)g(location)g(info)g(in)f(output)h(\(0=none,)h +(1=drules,)f(2=grammar+drules\))1162 39257 y(-colour)g()12206 +b(Use)581 b(\(vt220\))h(colour)g(for)g(ASCII)g(pretty)g(print)1162 +40585 y(-show_sort)h()9881 b(Show)581 b(ASCII)h(pretty)g(print)g +(of)g(syntax)1162 41913 y(-show_defns)h()9300 +b(Show)581 b(ASCII)h(pretty)g(print)g(defns)1162 43242 +y(-tex_show_meta)i()8137 b(Include)582 b(meta)f(prods)h(and)g +(rules)g(in)f(TeX)h(output)1162 44570 y(-tex_show_categories)i() +4070 b(Signal)582 b(production)g(flags)g(in)g(TeX)f(output)1162 +45898 y(-tex_suppress_category)k(<[]>)4650 b(Suppress)582 +b(productions)h(and)e(rules)h(with)g(this)g(category)g(in)f(TeX)h +(output)1162 47227 y(-tex_suppress_ntr)i(<[]>)7556 b(Suppress)582 +b(nonterminal)h(root)e(in)h(TeX)f(output)1162 48555 y(-tex_colour)i +()9881 b(Colour)582 b(parse)f(errors)h(in)g(TeX)g(output)1162 +49884 y(-tex_wrap)h()11043 b(Wrap)581 b(TeX)h(output)g(in)f +(document)i(pre/postamble)1162 51212 y(-tex_name_prefix)h()5813 +b(Prefix)582 b(for)f(tex)h(commands)g(\(default)g("ott"\))1162 +52540 y(-isabelle_primrec)i()6394 b(Use)581 b("primrec")i +(instead)f(of)f("fun")22665 53869 y(for)g(functions)1162 +55197 y(-isabelle_inductive)j()5232 b(Use)581 b("inductive")i +(instead)f(of)g("inductive_set")22665 56525 y(for)f(relations)1162 +57854 y(-isa_syntax)i()9300 b(Use)581 b(fancy)h(syntax)g(in)f +(Isabelle)i(output)1162 59182 y(-isa_generate_lemmas)h()4070 +b(Lemmas)582 b(for)f(collapsed)i(functions)f(in)g(Isabelle)1162 +60510 y(-coq_avoid)h(<1>)12205 b(coq)581 b(type-name)i(avoidance)22665 +61839 y(\(0=nothing,)g(1=avoid,)f(2=secondaryify\))1162 +63167 y(-coq_expand_list_types)j()3488 b(Expand)582 +b(list)f(types)h(in)g(Coq)f(output)1162 64495 y(-coq_lngen)i() +9881 b(lngen)581 b(compatibility)1162 65824 y(-coq_names_in_rules)j +()5232 b(Copy)581 b(user)h(names)g(in)f(rule)h(definitions)1162 +67152 y(-coq_use_filter_fn)i()5232 b(Use)581 b(list_filter)i +(instead)f(of)g(list_minus2)g(in)g(substitutions)1162 +68480 y(-ocaml_include_terminals)j()1745 b(Include)582 +b(terminals)g(in)g(OCaml)g(output)g(\(experimental!\))1162 +69809 y(-pp_grammar)13950 b(\(debug\))582 b(print)g(term)f(grammar)1162 +71137 y(-dot)h()11625 b(\(debug\))582 b(dot)f(graph)h(of)g +(syntax)g(dependencies)1162 72466 y(-alltt)g()10463 +b(\(debug\))582 b(alltt)g(output)g(of)f(single)h(source)g(file)1162 +73794 y(-sort)g()13368 b(\(debug\))582 b(do)f(topological)i(sort) +p Black 24502 77841 a Fx(51)p Black eop end +%%Page: 52 52 +TeXDict begin 52 51 bop Black Black Black 31 -1657 50111 +45 v 31 11856 45 13513 v 880 -472 a Fh(symterm)80 b Fg(;)512 +b Fh(st)436 b FA(::=)1904 746 y Ff(j)683 b Fh(stnb)1904 +1963 y Ff(j)g Fh(nonterm)880 3811 y(symterm)p 4848 3811 +308 45 v 449 w(no)-52 b(de)p 7333 3811 V 443 w(b)g(o)g(dy)88 +b Fg(;)512 b Fh(stnb)405 b FA(::=)1904 5028 y Ff(j)683 +b Fh(pr)-52 b(o)g(dname)75 b FA(\()p Fh(ste)8872 5139 +y Fy(1)9334 5028 y Fg(;)342 b(::)171 b(;)g Fh(ste)12382 +5139 y Fd(m)13130 5028 y FA(\))880 6876 y Fh(symterm)p +4848 6876 V 449 w(element)96 b Fg(;)512 b Fh(ste)417 +b FA(::=)1904 8094 y Ff(j)683 b Fh(st)1904 9311 y Ff(j)g +Fh(metavar)1904 10529 y Ff(j)g Fh(var)392 b FA(:)285 +b Fh(mvr)p 50097 11856 45 13513 v 31 11900 50111 45 v +Black 14477 13887 a Fx(Figure)369 b(17:)493 b(Mini-Ott)371 +b(in)e(Ott:)494 b(sym)-31 b(b)31 b(olic)370 b(terms)p +Black Black 1194 17423 a Fs(-process_defns)583 b()8137 +b(\(debug\))582 b(process)g(inductive)h(reln)f(definitions)1194 +18751 y(-showraw)g()11043 b(\(debug\))582 b(show)g(raw)g +(grammar)1194 20080 y(-ugly)g()12786 b(\(debug\))582 +b(use)g(ugly)g(ASCII)f(output)1194 21408 y(-no_rbcatn)h()10462 +b(\(debug\))582 b(remove)g(relevant)h(bind)e(clauses)1194 +22737 y(-lem_debug)14530 b(\(debug\))582 b(print)g(lem)g(debug)g +(locations)1194 24065 y(-help)17435 b(Display)582 b(this)g(list)g(of)f +(options)1194 25393 y(--help)16854 b(Display)582 b(this)g(list)g(of)f +(options)31 29718 y FC(23)1793 b(Reference:)798 b(The)599 +b(language)e(of)g(sym)-50 b(b)50 b(olic)600 b(terms)31 +32807 y Fx(A)449 b(syn)-31 b(tax)449 b(de\014nition)h(conceptually)g +(de\014nes)e(t)-31 b(w)g(o)450 b(di\013eren)-31 b(t)448 +b(languages:)653 b(that)449 b(of)g(concrete)g(terms)f(of)h(the)f(ob)61 +b(ject)31 34135 y(language,)401 b(and)393 b(that)h(of)e(sym)-31 +b(b)31 b(olic)394 b(terms)f(o)-31 b(v)g(er)393 b(the)f(ob)61 +b(ject)394 b(language.)565 b(The)392 b(former)h(includes)f(concrete)h +(v)-61 b(ariables)31 35463 y(\(if)406 b(non)-31 b(trivial)407 +b Fs(lex)d Fx(homs)h(ha)-31 b(v)g(e)405 b(b)31 b(een)403 +b(sp)31 b(eci\014ed)404 b(for)h(meta)-31 b(v)-61 b(ariables\).)600 +b(The)404 b(latter)i(includes)e(the)h(former)f(but)h(also)31 +36792 y(allo)-31 b(ws)339 b(sym)-31 b(b)31 b(olic)338 +b(meta)-31 b(v)-61 b(ariables)339 b(and)e(non)-31 b(terminals.)484 +b(Sym)-31 b(b)31 b(olic)339 b(terms)d(ma)-31 b(y)338 +b(also)g(include)f(the)g(pro)31 b(duction-name)31 38120 +y(annotations)293 b(men)-31 b(tioned)292 b(in)e Ft(x)p +Fx(3.)467 b(F)-92 b(or)289 b(a)h(syn)-31 b(tax)291 b(de\014nition)g +(with)g(list)g(forms)f(\(c.f.)i Ft(x)p Fx(12\))f(sym)-31 +b(b)31 b(olic)291 b(terms)f(also)h(include)31 39449 y(v)-61 +b(arious)405 b(list)f(constructs.)597 b(A)404 b(simpli\014ed)h +(abstract)g(syn)-31 b(tax)405 b(of)f(sym)-31 b(b)31 b(olic)406 +b(terms)d(is)h(sho)-31 b(wn)405 b(in)f(Figure)g(17,)413 +b(omitting)31 40777 y(list)371 b(forms.)492 b(In)369 +b(this)h(section)g(w)-31 b(e)369 b(giv)-31 b(e)371 b(an)e(informal)i +(de\014nition)g(of)f(the)f(full)i(concrete)e(syn)-31 +b(tax)370 b(of)g(sym)-31 b(b)31 b(olic)371 b(terms.)31 +42769 y(The)415 b(premises)e(and)h(conclusions)h(of)g(inductiv)-31 +b(e)415 b(de\014nition)h(rules)d(are)h(sym)-31 b(b)31 +b(olic)416 b(terms.)1253 b(The)414 b(language)i(of)e(sym-)31 +44098 y(b)31 b(olic)393 b(terms)f(is)g(de\014ned)f(informally)k(b)31 +b(elo)-31 b(w,)399 b(with)393 b(in)-31 b(terpretation)394 +b(functions)f([)-184 b([)p 34499 44098 333 45 v 399 w(])g(])392 +b(that)i(map)e(de\014ned)g(en)-31 b(tities)393 b(in)-31 +b(to)31 45426 y(grammar)371 b(clauses.)31 47419 y(F)-92 +b(or)369 b(a)g(rule)g Fo(rule)575 b Fx(=)11818 48747 +y Fo(nontermr)-57 b(o)g(ot)17835 48913 y Fu(1)18516 48747 +y Fn(;)370 b(::)184 b(;)371 b Fo(nontermr)-57 b(o)g(ot)26686 +48913 y Fr(n)27289 48747 y Fs(::)185 b('')f(::=)h Fo(pr)-57 +b(o)g(d)33961 48913 y Fu(1)34642 48747 y Fn(::)184 b +Fo(pr)-57 b(o)g(d)37491 48913 y Fi(m)31 50740 y Fx(w)-31 +b(e)370 b(ha)-31 b(v)g(e)16295 51780 y([)-184 b([)p Fo(rule)83 +b Fx(])-184 b(])1108 b(::=)20783 53108 y Ft(j)1692 b +Fo(nontermr)-57 b(o)g(ot)105 b Fx(su\016x)1107 b(\(1\))20783 +54437 y Ft(j)1692 b Fx([)-184 b([)p Fo(pr)-57 b(o)g(d)25263 +54603 y Fu(1)25760 54437 y Fx(])-184 b(])20783 55765 +y Ft(j)1692 b Fn(::)20783 57093 y Ft(j)g Fx([)-184 b([)p +Fo(pr)-57 b(o)g(d)25263 57259 y Fi(m)26125 57093 y Fx(])-184 +b(])31 59761 y(\(1\))347 b(for)f(eac)-31 b(h)346 b Fo(nontermr)-57 +b(o)g(ot)450 b Fx(in)346 b(the)g(set)f Ft(f)p Fo(nontermr)-57 +b(o)g(ot)23717 59927 y Fu(1)24398 59761 y Fn(;)369 b(::)184 +b(;)371 b Fo(nontermr)-57 b(o)g(ot)32568 59927 y Fr(n)33170 +59761 y Ft(g)346 b Fx(and)g(for)f(eac)-31 b(h)346 b Fo(nontermr)-57 +b(o)g(ot)451 b Fx(de\014ned)31 61090 y(b)-31 b(y)370 +b(an)-31 b(y)370 b Fo(rule)5596 60595 y Fl(0)6276 61090 +y Fx(whic)-31 b(h)370 b(is)f(declared)g(as)g(a)h(subrule)e(of)i(this)g +(rule.)31 63082 y(F)-92 b(or)369 b(a)g(pro)31 b(duction)370 +b Fo(pr)-57 b(o)g(d)607 b Fx(=)16019 64410 y Fs(|)185 +b Fo(element)20490 64576 y Fu(1)21172 64410 y Fn(::)f +Fo(element)25675 64576 y Fi(m)26724 64410 y Fs(::)h(::)f +Fo(pr)-57 b(o)g(dname)31 66403 y Fx(w)-31 b(e)370 b(ha)-31 +b(v)g(e)12948 67444 y([)-184 b([)p Fo(pr)-57 b(o)g(d)115 +b Fx(])-184 b(])1108 b(::=)17666 68772 y Ft(j)1692 b +Fx([)-184 b([)p Fo(element)23800 68938 y Fu(1)24298 68772 +y Fx(])g(])184 b Fn(::)g Fx([)-184 b([)p Fo(element)29845 +68938 y Fi(m)30711 68772 y Fx(])g(])17666 70100 y Ft(j)1692 +b Fs(:)p Fo(pr)-57 b(o)g(dname)83 b Fs(:)185 b Fx([)-184 +b([)p Fo(element)29883 70266 y Fu(1)30381 70100 y Fx(])g(])184 +b Fn(::)g Fx([)-184 b([)p Fo(element)35928 70266 y Fi(m)36794 +70100 y Fx(])g(])31 72707 y(F)-92 b(or)369 b(an)g(elemen)-31 +b(t)371 b(there)e(are)g(v)-61 b(arious)369 b(cases.)p +Black 24533 77841 a(52)p Black eop end +%%Page: 53 53 +TeXDict begin 53 52 bop Black Black Black 1353 -594 a +Fx(1.)p Black 554 w(F)-92 b(or)369 b(a)g(terminal)i Fo(terminal)19990 +724 y Fx([)-184 b([)p Fo(terminal)115 b Fx(])-184 b(])1107 +b(::=)h Fo(terminal)p Black 1353 3246 a Fx(2.)p Black +554 w(F)-92 b(or)369 b(a)g(non)-31 b(terminal)372 b Fo(nontermr)-57 +b(o)g(ot)290 b(su\016x)18329 5429 y Fx([)-184 b([)p Fo(nontermr)-57 +b(o)g(ot)291 b(su\016x)132 b Fx(])-184 b(])1107 b(::=)h([)-184 +b([)p Fo(rule)84 b Fx(])-184 b(])2767 7634 y(where)355 +b Fo(rule)437 b Fx(includes)355 b Fo(nontermr)-57 b(o)g(ot)460 +b Fx(among)357 b(the)d(non)-31 b(terminal)358 b(ro)31 +b(ots)354 b(it)i(de\014nes.)487 b(\(Note)356 b(that)g(this)f(do)31 +b(es)354 b(not)2767 8963 y(dep)31 b(end)369 b(on)g(what)i +Fo(su\016x)501 b Fx(w)-31 b(as)370 b(used)f(in)g(the)h(grammar,)h(and)e +(similarly)i(for)f(the)f Fo(metavar)488 b Fx(case)369 +b(b)31 b(elo)-31 b(w.\))p Black 1353 10955 a(3.)p Black +554 w(F)-92 b(or)369 b(an)g(index)h(v)-61 b(ariable)370 +b Fo(indexvarr)-57 b(o)g(ot)17958 13138 y Fx([)-184 b([)p +Fo(indexvarr)-57 b(o)g(ot)106 b Fx(])-184 b(])1107 b(::=)h +Fo(indexvarr)-57 b(o)g(ot)34609 12643 y Fl(0)2767 15343 +y Fx(for)370 b(eac)-31 b(h)369 b Fo(indexvarr)-57 b(o)g(ot)13002 +14848 y Fl(0)13682 15343 y Fx(de\014ned)369 b(b)-31 b(y)369 +b(the)h Fs(indexvar)g Fx(de\014nition)h(that)f(de\014nes)f +Fo(indexvarr)-57 b(o)g(ot)104 b Fx(.)p Black 1353 17336 +a(4.)p Black 554 w(F)-92 b(or)369 b(a)g(meta)-31 b(v)-61 +b(ariable)372 b Fo(metavarr)-57 b(o)g(ot)289 b(su\016x)14194 +19457 y Fx([)-184 b([)p Fo(metavarr)-57 b(o)g(ot)289 +b(su\016x)133 b Fx(])-184 b(])1107 b(::=)25447 20786 +y Ft(j)1692 b Fo(metavarr)-57 b(o)g(ot)33294 20378 y +Fl(0)33604 20786 y Fx(su\016x)1108 b(\(1\))25447 22114 +y Ft(j)1692 b Fo(variable)2767 24326 y Fx(\(1\))433 b(for)f(eac)-31 +b(h)432 b Fo(metavarr)-57 b(o)g(ot)14771 23919 y Fl(0)15513 +24326 y Fx(de\014ned)432 b(b)-31 b(y)432 b(the)g Fs(metavar)g +Fx(de\014nition)h(that)g(de\014nes)f Fo(metavarr)-57 +b(o)g(ot)104 b Fx(.)680 b(\(2\))433 b(where)2767 25655 +y Fo(variable)403 b Fx(ranges)318 b(o)-31 b(v)g(er)320 +b(all)g(the)f(strings)g(de\014ned)g(b)-31 b(y)319 b(the)g +Fs(lex)h Fx(regexp)f(of)g(the)g Fs(metavar)h Fx(de\014nition)h(that)f +(de\014nes)2767 26983 y Fo(metavarr)-57 b(o)g(ot)105 +b Fx(,)339 b(except)332 b(for)f(an)-31 b(y)332 b(string)f(whic)-31 +b(h)333 b(can)e(b)31 b(e)331 b(parsed)f(as)h(a)h(non)-31 +b(terminal,)341 b(meta)-31 b(v)-61 b(ariable)334 b(or)d(terminal)2767 +28311 y(of)370 b(the)g(syn)-31 b(tax)370 b(de\014nition.)p +Black 1353 30304 a(5.)p Black 554 w(A)g(list)g(form)f(elemen)-31 +b(t)371 b Fo(element)475 b Fx(could)370 b(b)31 b(e)368 +b(an)-31 b(y)370 b(of)g(the)g(follo)-31 b(wing,)373 b(either)c(without) +j(a)d(separating)i(terminal:)10905 32425 y Fo(element)14715 +32591 y Fu(1)15212 32425 y Fn(::)p Fo(element)19638 32591 +y Fr(n)20425 32425 y Fo(dots)274 b(element)26463 31930 +y Fl(0)26463 32699 y Fu(1)26960 32425 y Fn(::)p Fo(element)31385 +31930 y Fl(0)31385 32699 y Fr(n)10905 33754 y Fs()10905 35082 y()10905 +36410 y()10905 37739 y()2767 39882 y Fx(or)369 +b(with)i(a)e(separating)i(terminal:)8052 42004 y Fo(element)11863 +42170 y Fu(1)12360 42004 y Fn(::)p Fo(element)16785 42170 +y Fr(n)17572 42004 y Fo(terminal)300 b(dots)274 b(terminal)299 +b(element)32327 41509 y Fl(0)32327 42277 y Fu(1)32824 +42004 y Fn(::)p Fo(element)37250 41509 y Fl(0)37250 42277 +y Fr(n)8052 43332 y Fs()8052 44660 y()8052 45989 y()8052 47317 y()2767 49522 y Fx(In)339 b(an)-31 b(y)339 +b(of)g(these)f(cases)h(the)f(in)-31 b(terpretation)341 +b([)-184 b([)p Fo(element)107 b Fx(])-184 b(])339 b(is)f(the)h(lists)g +(\(separated)h(b)-31 b(y)338 b(the)h Fo(terminal)453 +b Fx(if)340 b(one)e(w)-31 b(as)2767 50851 y(sp)31 b(eci\014ed\))370 +b(of)f(concrete)h(list)g(en)-31 b(tries)369 b(and)h(of)f(list)h(forms.) +493 b(Without)371 b(a)e(separating)i Fo(terminal)115 +b Fx(,)369 b(this)h(is:)3321 53033 y([)-184 b([)p Fo(element)106 +b Fx(])-184 b(])5255 b(::=)1108 b(\(concrete)p 20326 +53033 333 45 v 400 w(list)p 22207 53033 V 399 w(en)-31 +b(try)16 b Ft(j)p Fx(list)p 26934 53033 V 400 w(form)q(\))29946 +52632 y Fl(\003)51425 53033 y Fx(\(2\))p Fn(;)184 b Fx(\(3\))3321 +55690 y(concrete)p 7387 55690 V 399 w(list)p 9267 55690 +V 399 w(en)-31 b(try)1123 b(::=)1108 b([)-184 b([)p Fo(element)20071 +55856 y Fu(1)20568 55690 y Fx(])g(])184 b Fn(::)g Fx([)-184 +b([)p Fo(element)26224 55856 y Fr(n)26826 55690 y Fx(])g(])3321 +58347 y(list)p 4868 58347 V 399 w(form)5799 b(::=)13831 +59675 y Ft(j)1692 b Fx([)-184 b([)p Fo(element)20071 +59841 y Fu(1)20568 59675 y Fx(])g(])184 b Fn(::)g Fx([)-184 +b([)p Fo(element)26224 59841 y Fr(n)26826 59675 y Fx(])g(])184 +b Fo(dots)29484 59180 y Fl(0)29979 59675 y Fx([)-184 +b([)p Fo(element)34221 59180 y Fl(0)34221 59949 y Fu(1)34717 +59675 y Fx(])g(])184 b Fn(::)g Fx([)-184 b([)p Fo(element)40373 +59180 y Fl(0)40373 59949 y Fr(n)40975 59675 y Fx(])g(])10020 +b(\(1\))13831 61004 y Ft(j)1692 b Fs()13831 62332 y Ft(j)1692 b +Fs()13831 63660 y Ft(j)1692 +b Fs()13831 64989 y Ft(j)1692 b Fs()2767 67289 y Fx(This)446 b(is)g(sub)61 +b(ject)446 b(to)g(constrain)-31 b(ts:)647 b(\(1\))447 +b(that)g([)-184 b([)p Fo(element)26718 67455 y Fu(1)27215 +67289 y Fx(])g(])184 b Fn(::)g Fx([)-184 b([)p Fo(element)32870 +67455 y Fr(n)33473 67289 y Fx(])g(])446 b(and)g([)-184 +b([)p Fo(element)40819 66794 y Fl(0)40819 67563 y Fu(1)41316 +67289 y Fx(])g(])184 b Fn(::)g Fx([)-184 b([)p Fo(element)46971 +66794 y Fl(0)46971 67563 y Fr(n)47574 67289 y Fx(])g(])446 +b(can)2767 68617 y(b)31 b(e)366 b(an)-31 b(ti-uni\014ed)369 +b(with)e(exactly)i(one)d(v)-61 b(arying)368 b(index;)g(\(2\))g(if)f +(the)f(list)i(has)e(only)i(concrete)e(en)-31 b(tries)367 +b(\(i.e.,)i(no)e(list)2767 69946 y(forms\),)k(its)e(length)i(m)-31 +b(ust)370 b(meet)f(the)h(constrain)-31 b(t)371 b(of)e(an)-31 +b(y)370 b(dots)g(in)f(the)h Fo(element)106 b Fx(.)2767 +71938 y(With)370 b(a)g(separating)g Fo(terminal)115 b +Fx(,)369 b(w)-31 b(e)370 b(ha)-31 b(v)g(e:)4991 74121 +y([)-184 b([)p Fo(element)107 b Fx(])-184 b(])1107 b(::=)h +Fn(\017)p Ft(j)p Fx(\(concrete)p 18605 74121 V 400 w(list)p +20486 74121 V 400 w(en)-31 b(try)16 b Ft(j)p Fx(list)p +25214 74121 V 400 w(form)q(\)\()p Fo(terminal)116 b Fx(\(concrete)p +37327 74121 V 399 w(list)p 39207 74121 V 400 w(en)-31 +b(try)15 b Ft(j)p Fx(list)p 43934 74121 V 401 w(form\)\))47376 +73719 y Fl(\003)p Black 24502 77841 a Fx(53)p Black eop +end +%%Page: 54 54 +TeXDict begin 54 53 bop Black Black 31 -594 a Fx(In)369 +b(the)h(ab)31 b(o)-31 b(v)g(e)11246 447 y(dots)4181 b(::=)1108 +b Fs(..)p Ft(j)p Fs(...)q Ft(j)p Fs(....)11246 1775 y +Fx(n)-31 b(um)g(b)31 b(er)2554 b(::=)1108 b Fs(0)p Ft(j)p +Fs(1)11246 3103 y Fx(su\016x)3658 b(::=)1108 b(su\016x)p +22669 3103 333 45 v 399 w(item)25154 2608 y Fl(\003)11246 +4432 y Fx(su\016x)p 13870 4432 V 398 w(item)h(::=)18046 +5760 y Ft(j)1692 b Fx(\()p Fs(0)p Ft(j)p Fs(1)q Ft(j)p +Fs(2)q Ft(j)p Fs(3)p Ft(j)p Fs(4)q Ft(j)p Fs(5)q Ft(j)p +Fs(6)p Ft(j)p Fs(7)q Ft(j)p Fs(8)p Ft(j)p Fs(9)q Fx(\))29484 +5358 y Fu(+)31326 5760 y Fx(\(longest)371 b(matc)-31 +b(h\))18046 7088 y Ft(j)p 20114 7088 349 45 v 18046 8417 +a(j)1692 b Fs(')18046 9745 y Ft(j)g Fo(indexvar)18046 +11074 y Ft(j)g Fo(indexvar)119 b Fs(-1)31 13741 y Fx(F)-92 +b(urther,)313 b(whitespace)300 b(\()p Fs(')582 b +('|'\\010'|'\\009'|'\\013'|'\\012')p Fx(\))304 b(is)298 +b(allo)-31 b(w)g(ed)302 b(b)31 b(efore)299 b(an)-31 b(y)300 +b(tok)-31 b(en)300 b(except)g(a)f(those)g(in)31 15070 +y(a)343 b(su\016x,)348 b(and)342 b(non)-31 b(terminals,)350 +b(meta)-31 b(v)-61 b(ariables,)350 b(index)342 b(v)-61 +b(ariables,)348 b(and)343 b(terminals)g(that)g(end)e(with)j(an)e +(alphan)-31 b(umeric)31 16398 y(c)g(haracter,)371 b(m)-31 +b(ust)370 b(not)f(b)31 b(e)369 b(follo)-31 b(w)g(ed)372 +b(b)-31 b(y)370 b(an)f(alphan)-31 b(umeric)371 b(c)-31 +b(haracter.)31 18391 y(The)473 b(to)31 b(ol)475 b(also)e(builds)g(a)g +(parser)f(for)h(concrete)g(terms,)499 b(with)474 b(fak)-31 +b(e)474 b(non)-31 b(terminal)475 b(ro)31 b(ots)473 b +Fs(concrete)p 43657 18391 V 419 w(ntr)g Fx(for)g(eac)-31 +b(h)31 19719 y(primary)536 b Fs(ntr)520 b Fx(of)h(the)f(syn)-31 +b(tax)520 b(de\014nition.)947 b(One)519 b(can)h(switc)-31 +b(h)521 b(to)f(concrete-term)h(parsing)f(with)h(a)f Fs(:concrete:)31 +21047 y Fx(annotation,)373 b(as)c(in)h(the)f(example)p +Black Black 31 22929 a Fw(\\[)524 b([[)f(:concrete:)g(\\Z1<:Top.)g +(\\x:Z1.x)h(]]\\])31 24922 y Fx(sho)-31 b(wn)499 b(in)g(Figure)f(10.) +880 b(Belo)-31 b(w)499 b(suc)-31 b(h)498 b(an)g(annotation,)534 +b(only)499 b(concrete)g(terms)f(are)g(p)31 b(ermitted,)531 +b(with)500 b(no)e(further)31 26250 y(annotation,)373 +b(no)d(sym)-31 b(b)31 b(olic)370 b(non)-31 b(terminals)372 +b(or)d(meta)-31 b(v)-61 b(ariables,)372 b(no)d(list)h(dot)g(forms)g(or) +f(comprehensions,)h(etc.)31 28242 y(P)-31 b(arsing)395 +b(of)f(terms)f(is)h(done)f(with)i(a)f(scannerless)e(GLR)h(parser)f(o) +-31 b(v)g(er)394 b(c)-31 b(haracter-list)395 b(inputs.)566 +b(The)394 b(parser)e(searc)-31 b(hes)31 29571 y(for)329 +b(all)h(parses)e(of)i(the)f(input.)480 b(If)328 b(none)h(are)g(found,) +338 b(the)329 b(ASCI)31 b(I)328 b(and)h(T)-92 b(eX)329 +b(output)h(are)f(annotated)i Fs(no)581 b(parses)p Fx(,)338 +b(with)31 30899 y(a)411 b(cop)-31 b(y)411 b(of)g(the)f(input)h(with)g +Fs(***)g Fx(inserted)f(at)h(the)f(p)31 b(oin)-31 b(t)411 +b(where)f(the)h(last)g(tok)-31 b(en)411 b(w)-31 b(as)411 +b(read.)616 b(This)410 b(is)g(often)h(at)g(the)31 32228 +y(p)31 b(oin)-31 b(t)391 b(of)e(the)g(error)f(\(though)i(if,)395 +b(for)389 b(example,)396 b(a)389 b(putativ)-31 b(e)391 +b(dot)e(form)h(is)e(read)h(but)g(the)g(t)-31 b(w)g(o)391 +b(elemen)-31 b(t)390 b(lists)f(cannot)31 33556 y(b)31 +b(e)408 b(an)-31 b(ti-uni\014ed,)421 b(it)409 b(will)i(b)31 +b(e)407 b(after)i(the)g(p)31 b(oin)-31 b(t)410 b(of)f(the)g(error\).) +609 b(If)409 b(m)-31 b(ultiple)411 b(parses)c(are)h(found,)420 +b(the)408 b(T)-92 b(eX)409 b(output)h(is)31 34884 y(annotated)370 +b Fs(multiple)582 b(parses)369 b Fx(and)e(the)h(di\013eren)-31 +b(t)368 b(parses)e(are)i(output)g(to)g(the)g(console)g(in)g(detail)h +(during)f(the)g(Ott)31 36213 y(run.)31 38205 y(The)258 +b(GLR)e(parser)g(ac)-31 b(hiev)g(es)258 b(reasonable)g(p)31 +b(erformance)257 b(on)h(the)f(small)i(sym)-31 b(b)31 +b(olic)258 b(terms)f(that)h(are)f(t)-31 b(ypical)260 +b(in)d(seman)-31 b(tic)31 39533 y(rules.)493 b(Its)368 +b(p)31 b(erformance)370 b(on)f(large)h(\(whole-program)i(size\))e +(examples)g(is)f(un)-31 b(tested.)31 43858 y FC(24)1793 +b(Reference:)798 b(Generation)599 b(of)e(pro)50 b(of)598 +b(assistan)-50 b(t)599 b(de\014nitions)31 46947 y Fx(This)308 +b(section)h(brie\015y)f(summarises)f(the)h(steps)f(in)-31 +b(v)g(olv)g(ed)310 b(in)e(the)g(generation)h(of)f(pro)31 +b(of)308 b(assistan)-31 b(t)309 b(de\014nitions)g(from)f(an)31 +48275 y(Ott)247 b(source)f(\014le.)452 b(F)-92 b(or)245 +b(a)i(description)g(of)g(the)f(lo)31 b(cally-nameless)249 +b(bac)-31 b(k)g(end,)272 b(refer)246 b(to)g Fs +(http://moscova.inria.fr/)585 b(zappa/projects/ln)p 59200 +48275 V 421 w(ott/)p Fx(.)31 52038 y Fq(24.1)1496 b(Generation)499 +b(of)f(t)-42 b(yp)42 b(es)p Black 1692 54746 a Ft(\017)p +Black 554 w Fx(The)384 b(primary)g(meta)-31 b(v)-61 b(ariable)387 +b(ro)31 b(ots)384 b(and)g(primary)g(non)-31 b(terminal)386 +b(ro)31 b(ots)384 b(are)g(used)f(directly)i(as)f(the)g(names)g(of)2799 +56074 y(pro)31 b(of)369 b(assistan)-31 b(t)371 b(t)-31 +b(yp)31 b(es,)370 b(except)f(where)g(they)h(ha)-31 b(v)g(e)370 +b(a)g(hom)g(sp)31 b(ecifying)370 b(a)f(ro)31 b(ot-o)-31 +b(v)g(erriding)372 b(string.)p Black 1692 58067 a Ft(\017)p +Black 554 w Fx(T)-31 b(yp)31 b(e)247 b(abbreviation)h(declarations)g +(are)e(pro)31 b(duced)246 b(for)g(meta)-31 b(v)-61 b(ars,)272 +b(in)247 b(the)f(source-\014le)g(order,)271 b(skipping)247 +b(meta)-31 b(v)-61 b(ars)2799 59395 y(or)369 b(non)-31 +b(terminals)371 b(de\014ned)e(with)p Mahogany 370 w Fs(phantom)p +Black Fx(.)p Black 1692 61387 a Ft(\017)p Black 554 w +Fx(T)-31 b(yp)31 b(e)436 b(generation)i(considers)d(eac)-31 +b(h)437 b(rule)e(of)i(the)f(user's)f(source)g(grammar)i(except)f(those) +h(for)f Fs(formula)g Fx(and)2799 62716 y Fs(terminals)370 +b Fx(\(or)g(the)f(syn)-31 b(thesized)370 b(rules)e(for)i(the)f(syn)-31 +b(tax)370 b(of)g(judgemen)-31 b(ts)371 b(or)e Fs(user_syntax)p +Fx(\).)p Black 1692 64708 a Ft(\017)p Black 554 w Fx(The)308 +b(subrule)g(order)g(is)g(analysed)h(to)g(iden)-31 b(tify)311 +b(the)d(top)h(elemen)-31 b(ts.)474 b(F)-92 b(or)307 b(eac)-31 +b(h)309 b(of)g(those,)321 b(a)309 b(pro)31 b(of)308 b(assistan)-31 +b(t)310 b(t)-31 b(yp)31 b(e)2799 66037 y(will)464 b(b)31 +b(e)462 b(generated)i(|)e(either)h(a)g(free)f(t)-31 b(yp)31 +b(e)464 b(\()p Fs(coq)p Fx(:)680 b Fs(inductive)p Fx(,)488 +b Fs(isa)p Fx(:)680 b Fs(datatype)p Fx(,)487 b Fs(hol)p +Fx(:)680 b Fs(Hol_datatype)p Fx(\),)2799 67365 y(or)452 +b(if)h(there)g(is)f(a)h(t)-31 b(yp)31 b(e)453 b(hom)g(for)f(the)h(pro) +31 b(of)453 b(assistan)-31 b(t)454 b(in)f(question,)474 +b(a)453 b(t)-31 b(yp)31 b(e)453 b(abbreviation.)745 b(No)453 +b(t)-31 b(yp)31 b(es)453 b(are)2799 68693 y(generated)327 +b(for)f(the)h(non-top)g(elemen)-31 b(ts,)337 b(as)326 +b(they)h(will)h(b)31 b(e)325 b(represen)-31 b(ted)326 +b(as)g(predicates)h(o)-31 b(v)g(er)327 b(the)f(top)h(free)f(t)-31 +b(yp)31 b(e)2799 70022 y(ab)g(o)-31 b(v)g(e)370 b(them.)p +Black 1692 72014 a Ft(\017)p Black 554 w Fx(F)-92 b(or)387 +b(the)i(former,)k(eac)-31 b(h)389 b(non-meta)h(pro)31 +b(duction)389 b(of)g(the)f(rule)g(giv)-31 b(es)389 b(rise)f(to)h(a)f +(constructor.)550 b(The)389 b(pro)31 b(duction)2799 73343 +y(name)482 b(\(with)g(an)-31 b(y)482 b(p)31 b(er-rule)480 +b(pre\014x)g(already)i(applied\))h(is)e(used)f(directly)i(as)f(the)g +(constructor)h(name.)828 b(The)p Black 24533 77841 a(54)p +Black eop end +%%Page: 55 55 +TeXDict begin 55 54 bop Black Black 2767 -594 a Fx(\(curried\))402 +b(constructor)g(argumen)-31 b(t)403 b(t)-31 b(yp)31 b(es)402 +b(are)g(tak)-31 b(en)402 b(from)h(the)e(t)-31 b(yp)31 +b(es)402 b(asso)31 b(ciated)403 b(with)g(the)f(meta)-31 +b(v)-61 b(ariables)2767 735 y(and)370 b(non)-31 b(terminals)371 +b(men)-31 b(tioned)371 b(in)f(the)f(pro)31 b(duction)370 +b(b)31 b(o)g(dy)-92 b(.)p Black 1660 2727 a Ft(\017)p +Black 554 w Fx(Rules)319 b(\(within)j(eac)-31 b(h)p Mahogany +320 w Fs(grammar)p Black 320 w Fx(blo)31 b(c)-31 b(k,)330 +b(if)406 b Fs(-merge)582 b(false)p Fx(,)331 b(or)319 +b(all)h(rules,)329 b(if)406 b Fs(-merge)582 b(true)p +Fx(\))320 b(are)f(top)31 b(ologically)2767 4055 y(sorted)424 +b(according)g(to)h(the)e(dep)31 b(endency)423 b(order)g(\(a)h(free-t) +-31 b(yp)31 b(e)424 b(rule)f(directly)i(dep)31 b(ends)422 +b(on)i(another)g(if)g(one)g(of)2767 5384 y(its)379 b(non-meta)g(pro)31 +b(ductions)379 b(includes)f(a)h(non)-31 b(terminal)380 +b(of)f(the)f(other;)383 b(dep)31 b(endencies)378 b(for)g(rules)f(with)i +(a)g(t)-31 b(yp)31 b(e-)2767 6712 y(hom)410 b(for)f(the)h(pro)31 +b(of)409 b(assistan)-31 b(t)411 b(in)e(question)h(are)f(obtained)i +(from)e(a)h(crude)e(lexing)j(of)e(the)h(b)31 b(o)g(dy)409 +b(of)g(the)h(t)-31 b(yp)31 b(e)2767 8040 y(hom\).)478 +b(W)-92 b(e)319 b(then)h(generate)g(m)-31 b(utually)322 +b(recursiv)-31 b(e)319 b(t)-31 b(yp)31 b(e)321 b(de\014nitions)f(for)g +(connected)h(comp)31 b(onen)-31 b(ts,)331 b(in)320 b(an)g(order)2767 +9369 y(consisten)-31 b(t)371 b(with)f(the)g(dep)31 b(endencies.)p +Black 1660 11361 a Ft(\017)p Black 554 w Fx(F)-92 b(or)392 +b(pro)31 b(ductions)393 b(that)h(in)-31 b(v)g(olv)g(e)395 +b(list)e(dot)g(forms)g(or)f(list)i(comprehension)f(forms,)399 +b(for)393 b(HOL)f(and)h(Isab)31 b(elle)393 b(w)-31 b(e)2767 +12690 y(pro)31 b(duce)455 b(constructors)h(with)h(argumen)-31 +b(t)457 b(t)-31 b(yp)31 b(es)456 b(that)h(in)-31 b(v)g(olv)g(e)458 +b(nativ)-31 b(e)457 b(list)f(t)-31 b(yp)31 b(es.)752 +b(F)-92 b(or)455 b(Co)31 b(q,)479 b(ho)-31 b(w)g(ev)g(er,)479 +b(w)-31 b(e)2767 14018 y(syn)g(thesise)332 b(an)f(additional)j +(inductiv)-31 b(e)333 b(t)-31 b(yp)31 b(e)331 b(for)h(eac)-31 +b(h)331 b(list-of-tuples)i(that)g(arises)d(\(b)31 b(oth)333 +b(for)e(those)g(that)i(o)31 b(ccur)2767 15346 y(in)456 +b(the)f(grammar)i(and)e(for)g(others)h(required)e(in)i(the)f +(translations)i(of)f(inductiv)-31 b(e)457 b(de\014nitions\))g(and)e +(include)2767 16675 y(them)370 b(in)g(the)f(top)31 b(ological)373 +b(sort.)0 20438 y Fq(24.2)1495 b(Generation)499 b(of)f(functions)0 +23145 y Fx(A)400 b(small)i(n)-31 b(um)g(b)31 b(er)401 +b(of)g(library)g(functions)g(\()p Fs(list_mem)p Fx(,)411 +b Fs(list_minus)p Fx(,...\))590 b(are)400 b(included)h(in)g(the)g +(output)g(if)g(they)g(are)0 24473 y(required.)0 26466 +y(Sev)-31 b(eral)370 b(Co)31 b(q)370 b(list)g(functions)g(\()p +Fs(map)p Fx(,)h Fs(make)p Fx(,)f Fs(unmake)p Fx(,)g Fs(nth)p +Fx(,)g Fs(app)p Fx(\))g(are)f(generated)h(for)f(eac)-31 +b(h)370 b(syn)-31 b(thesized)369 b(list)h(t)-31 b(yp)31 +b(e.)0 28458 y(The)448 b(de\014nitions)g(of)g(the)g(more)f(in)-31 +b(teresting)449 b(functions)f(\(subrule)g(predicates,)467 +b(binding)449 b(auxiliaries,)469 b(free)447 b(v)-61 b(ariable)0 +29787 y(functions,)324 b(and)311 b(substitutions\))i(are)d(generated)i +(o)-31 b(v)g(er)311 b(the)g(free)f(t)-31 b(yp)31 b(es)311 +b(generated)g(for)g(the)g(maximal)j(elemen)-31 b(ts)312 +b(of)f(the)0 31115 y(subrule)365 b(order)g(\(generation)j(of)e(these)g +(functions)g(for)g(rules)f(with)i(t)-31 b(yp)31 b(e)366 +b(homs)g(is)g(not)g(supp)31 b(orted\).)492 b(The)366 +b(de\014nitions)0 32444 y(are)524 b(b)-31 b(y)524 b(pattern-matc)-31 +b(hing)527 b(and)d(recursion.)955 b(The)524 b(patterns)g(are)g +(generated)g(b)-31 b(y)524 b(building)i(canonical)f(sym)-31 +b(b)31 b(olic)0 33772 y(terms)438 b(from)h(the)f(pro)31 +b(ductions)439 b(of)g(eac)-31 b(h)439 b(relev)-61 b(an)-31 +b(t)438 b(rule.)700 b(The)438 b(recursion)g(is)g(essen)-31 +b(tially)440 b(primitiv)-31 b(e)441 b(recursion:)630 +b(for)0 35100 y(Co)31 b(q)344 b(w)-31 b(e)343 b(pro)31 +b(duce)342 b Fs(Fixpoint)p Fx(s)h(or)g Fs(Definition)p +Fx(s)h(\(the)f(latter)h(is)f(sometimes)h(needed)f(as)f(the)i(former)e +(giv)-31 b(es)344 b(an)f(error)0 36429 y(in)448 b(the)f(case)g(where)g +(there)h(is)f(no)g(recursion\);)487 b(for)448 b(Isab)31 +b(elle)447 b(w)-31 b(e)448 b(pro)31 b(duce)447 b Fs(primrec)p +Fx(s)h(\(or,)467 b(exp)31 b(erimen)-31 b(tally)-92 b(,)470 +b Fs(fun)p Fx(s\);)0 37757 y(for)365 b(HOL)f(w)-31 b(e)365 +b(use)f(an)g Fs(ottDefine)i Fx(v)-61 b(arian)-31 b(t)365 +b(of)g(the)g Fs(Define)g Fx(pac)-31 b(k)-61 b(age.)492 +b(In)364 b(general)i(w)-31 b(e)364 b(ha)-31 b(v)g(e)366 +b(to)f(deal)g(b)31 b(oth)365 b(with)h(the)0 39085 y(t)-31 +b(yp)31 b(e)376 b(dep)31 b(endency)375 b(\(the)h(top)31 +b(ologically)380 b(sorted)c(m)-31 b(utually)378 b(recursiv)-31 +b(e)375 b(t)-31 b(yp)31 b(es)375 b(describ)31 b(ed)375 +b(ab)31 b(o)-31 b(v)g(e\))377 b(and)f(with)h(function)0 +40414 y(dep)31 b(endency)283 b(|)g(for)h(example,)303 +b(for)283 b(subrule)g(predicates)h(and)g(binding)h(auxiliaries)g(w)-31 +b(e)284 b(ma)-31 b(y)285 b(ha)-31 b(v)g(e)284 b(m)-31 +b(ultiple)286 b(m)-31 b(utually)0 41742 y(recursiv)g(e)369 +b(functions)h(o)-31 b(v)g(er)370 b(the)f(same)h(t)-31 +b(yp)31 b(e.)0 43735 y(F)-92 b(or)295 b(Co)31 b(q)297 +b(the)f(function)h(generation)h(o)-31 b(v)g(er)296 b(pro)31 +b(ductions)297 b(that)g(in)-31 b(v)g(olv)g(e)298 b(list)f(t)-31 +b(yp)31 b(es)296 b(m)-31 b(ust)297 b(mirror)f(that,)312 +b(so)296 b(w)-31 b(e)296 b(generate)0 45063 y(auxiliary)371 +b(functions)g(that)f(recurse)e(o)-31 b(v)g(er)369 b(those)h(list)g(t) +-31 b(yp)31 b(es.)0 47055 y(F)-92 b(or)340 b(Isab)31 +b(elle)342 b(the)f Fs(primrec)h Fx(pac)-31 b(k)-61 b(age)343 +b(do)31 b(es)340 b(not)i(supp)31 b(ort)341 b(de\014nitions)i(in)-31 +b(v)g(olving)344 b(sev)-31 b(eral)342 b(m)-31 b(utually)343 +b(recursiv)-31 b(e)341 b(func-)0 48384 y(tions)313 b(o)-31 +b(v)g(er)314 b(the)f(same)f(t)-31 b(yp)31 b(e,)325 b(so)313 +b(for)g(these)f(w)-31 b(e)313 b(generate)h(single)f(functions)h +(calculating)h(tuples)e(of)g(results,)324 b(de\014ne)313 +b(the)0 49712 y(in)-31 b(tended)394 b(functions)g(as)f(pro)61 +b(jections)394 b(of)g(these,)399 b(and)393 b(generate)h(lemmas)h(\(and) +e(simple)h(pro)31 b(of)393 b(scripts\))g(c)-31 b(haracteris-)0 +51040 y(ing)396 b(them)h(in)f(terms)f(of)i(the)e(in)-31 +b(tended)397 b(de\014nitions.)573 b(F)-92 b(urther,)402 +b(it)396 b(do)31 b(es)396 b(not)g(supp)31 b(ort)395 b(pattern)i(matc) +-31 b(hing)398 b(in)-31 b(v)g(olving)0 52369 y(nested)311 +b(constructors.)473 b(W)-92 b(e)310 b(therefore)h(generate)g(auxiliary) +i(functions)f(for)f(pro)31 b(ductions)311 b(with)h(em)-31 +b(b)31 b(edded)311 b(list)g(t)-31 b(yp)31 b(es.)0 53697 +y(Isab)g(elle)403 b(tuples)h(are)e(treated)i(as)f(iterated)h(pairs,)412 +b(so)403 b(w)-31 b(e)404 b(do)f(the)g(same)g(for)g(pro)31 +b(ductions)404 b(with)g(tuples)g(of)f(size)g(3)g(or)0 +55026 y(more.)713 b(Isab)31 b(elle)443 b(also)h(requires)e(a)g +(function)i(de\014nition)h(for)d(eac)-31 b(h)443 b(recursiv)-31 +b(e)443 b(t)-31 b(yp)31 b(e.)713 b(In)442 b(the)h(case)f(where)h(there) +f(are)0 56354 y(m)-31 b(ultiple)461 b(uses)c(of)i(the)f(same)h(t)-31 +b(yp)31 b(e)459 b(\(e.g.)h(sev)-31 b(eral)458 b(uses)g(of)h +Fs(t)581 b(list)459 b Fx(in)f(di\013eren)-31 b(t)459 +b(pro)31 b(ductions\))459 b(all)g(the)g(functions)0 57682 +y(w)-31 b(e)443 b(wish)f(to)h(generate)g(need)f(iden)-31 +b(tical)445 b(auxiliaries.)714 b(As)442 b(y)-31 b(et,)462 +b(the)442 b(to)31 b(ol)444 b(do)31 b(es)442 b(not)h(generate)g(the)f +(iden)-31 b(tical)445 b(copies)0 59011 y(required.)0 +61003 y(If)338 b(the)g(option)h Fs(-isabelle_primrec)h +Fx(is)e(set)g(to)g Fs(false)p Fx(,)346 b(then)338 b(Ott)g(uses)f(the)h +Fs(fun)g Fx(pac)-31 b(k)-61 b(age)339 b(instead)g(of)f(the)g +Fs(primrec)0 62331 y Fx(pac)-31 b(k)-61 b(age.)537 b(Since)384 +b(at)g(the)g(time)h(of)f(writing)h(Isab)31 b(elle)384 +b(2008)h(is)f(not)g(capable)h(of)f(pro)-31 b(ving)385 +b(automatically)j(termination)0 63660 y(of)370 b(all)g(the)g +Fs(fun)p Fx(s)f(that)h(Ott)g(generates,)g(this)g(feature)f(should)h(b) +31 b(e)369 b(considered)g(exp)31 b(erimen)-31 b(tal.)0 +65652 y(F)-92 b(or)254 b(HOL)h(the)g(standard)g Fs(Define)h +Fx(pac)-31 b(k)-61 b(age)256 b(tries)f(an)g(automatic)j(termination)g +(pro)31 b(of.)455 b(F)-92 b(or)254 b(pro)31 b(ductions)255 +b(that)i(in)-31 b(v)g(olv)g(e)0 66981 y(list)330 b(t)-31 +b(yp)31 b(es)329 b(our)g(generated)h(functions)g(in)-31 +b(v)g(olv)g(e)332 b(v)-61 b(arious)329 b(list)h(functions)g(whic)-31 +b(h)330 b(prev)-31 b(en)g(t)330 b(those)f(pro)31 b(ofs)330 +b(w)-31 b(orking)330 b(in)g(all)0 68309 y(cases.)553 +b(W)-92 b(e)389 b(therefore)h(use)f(an)h Fs(ottDefine)h +Fx(v)-61 b(arian)-31 b(t)390 b(\(due)g(to)h(Scott)g(Ow)-31 +b(ens\),)395 b(with)c(sligh)-31 b(tly)392 b(stronger)e(supp)31 +b(ort)389 b(for)0 69637 y(pro)-31 b(ving)370 b(termination)i(of)e +(de\014nitions)g(in)-31 b(v)g(olving)373 b(list)d(op)31 +b(erators.)p Black 24502 77841 a(55)p Black eop end +%%Page: 56 56 +TeXDict begin 56 55 bop Black Black 31 -594 a Fp(24.2.1)1275 +b(Subrule)425 b(predicates)31 2114 y Fx(W)-92 b(e)514 +b(generate)g(subrule)g(predicates)g(to)h(carv)-31 b(e)514 +b(out)h(the)f(subsets)f(of)i(eac)-31 b(h)515 b(free)e(pro)31 +b(of)514 b(assistan)-31 b(t)516 b(t)-31 b(yp)31 b(e)514 +b(\(from)h(the)31 3442 y(maximal)368 b(elemen)-31 b(ts)365 +b(of)g(the)f(subrule)g(order\))g(that)i(represen)-31 +b(t)363 b(the)i(rules)e(of)i(the)g(grammar.)492 b(The)365 +b(non-free)f(rules)g(are)31 4770 y(the)341 b(least)g(subset)f(of)g(the) +h(rules)e(that)j(either)e(\(1\))h(o)31 b(ccur)340 b(on)g(the)h(left)g +(of)g(a)f(subrule)g(\()p Fs(<::)p Fx(\))h(declaration,)349 +b(or)340 b(\(2\))h(ha)-31 b(v)g(e)341 b(a)31 6099 y(\(non-meta\))298 +b(pro)31 b(duction)297 b(that)f(men)-31 b(tions)297 b(a)f(non-free)f +(rule.)468 b(Note)296 b(that)h(these)e(can)g(include)h(rules)f(that)i +(are)e(maximal)31 7427 y(elemen)-31 b(ts)412 b(of)f(the)g(subrule)f +(order,)421 b(e.g.)411 b(if)g(an)g(expression)f(grammar)i(included)f(a) +g(pro)31 b(duction)412 b(in)-31 b(v)g(olving)413 b(pac)-31 +b(k)-61 b(aged)31 8755 y(v)g(alues.)474 b(The)311 b(subrule)f +(predicate)i(for)f(a)g(t)-31 b(yp)31 b(e)312 b(is)f(de\014ned)f(b)-31 +b(y)311 b(pattern)h(matc)-31 b(hing)313 b(o)-31 b(v)g(er)312 +b(constructors)f(of)g(the)h(maximal)31 10084 y(t)-31 +b(yp)31 b(e)410 b(ab)31 b(o)-31 b(v)g(e)410 b(it)g(|)e(for)h(eac)-31 +b(h)410 b(non-meta)g(pro)31 b(duction)410 b(of)g(the)f(maximal)i(t)-31 +b(yp)31 b(e)410 b(it)g(calculates)g(a)f(disjunction)i(o)-31 +b(v)g(er)409 b(all)31 11412 y(the)468 b(pro)31 b(ductions)468 +b(of)g(the)g(lo)-31 b(w)g(er)469 b(t)-31 b(yp)31 b(e)468 +b(that)h(are)e(subpro)31 b(ductions)468 b(of)g(it,)493 +b(in)-31 b(v)g(oking)470 b(other)e(subrule)f(predicates)h(as)31 +12740 y(appropriate.)31 16282 y Fp(24.2.2)1275 b(Binding)424 +b(auxiliaries)31 18989 y Fx(The)388 b(binding)h(auxiliary)g(functions)f +(calculate)i(the)d(in)-31 b(tuitiv)g(e)391 b(seman)-31 +b(tics)388 b(of)g(auxiliary)h(functions)g(de\014ned)e(in)g(bind-)31 +20318 y(sp)31 b(ecs)395 b(of)h(the)f(Ott)h(source)f(\014le.)572 +b(Curren)-31 b(tly)396 b(these)f(are)h(represen)-31 b(ted)394 +b(as)i(pro)31 b(of)395 b(assistan)-31 b(t)397 b(lists)f(of)g(meta)-31 +b(v)-61 b(ariables)398 b(or)31 21646 y(non)-31 b(terminals)372 +b(\(arguably)f(set)e(t)-31 b(yp)31 b(es)369 b(should)h(b)31 +b(e)369 b(used)f(instead,)j(at)f(least)g(in)f(Isab)31 +b(elle\).)31 25188 y Fp(24.2.3)1275 b(F)-106 b(ree)425 +b(v)-71 b(ariables)31 27895 y Fx(The)435 b(free)f(v)-61 +b(ariable)435 b(functions)g(simply)g(w)-31 b(alk)436 +b(o)-31 b(v)g(er)435 b(the)g(structure)e(of)i(the)f(free)g(pro)31 +b(of)435 b(assistan)-31 b(t)435 b(t)-31 b(yp)31 b(es,)451 +b(using)435 b(an)-31 b(y)31 29223 y(bind)326 b(sp)31 +b(eci\014cations)326 b(\(and)g(binding)g(auxiliaries\))h(as)e +(appropriate.)480 b(F)-92 b(or)324 b(these,)334 b(and)325 +b(for)g(substitutions,)336 b(w)-31 b(e)326 b(simplify)31 +30552 y(the)363 b(generated)h(functions)g(b)-31 b(y)363 +b(using)g(the)g(dep)31 b(endency)362 b(analysis)i(of)f(the)g(syn)-31 +b(tax)364 b(to)g(exclude)f(recursiv)-31 b(e)362 b(calls)i(where)31 +31880 y(there)369 b(is)h(no)f(dep)31 b(endency)-92 b(.)31 +35422 y Fp(24.2.4)1275 b(Substitutions)31 38129 y Fx(The)389 +b(generated)g(substitution)i(functions)e(also)h(w)-31 +b(alk)390 b(o)-31 b(v)g(er)389 b(the)g(structure)e(of)i(the)g(free)f +(pro)31 b(of)389 b(assistan)-31 b(t)390 b(t)-31 b(yp)31 +b(es.)550 b(F)-92 b(or)31 39457 y(eac)-31 b(h)500 b(pro)31 +b(duction,)534 b(for)499 b(eac)-31 b(h)500 b(o)31 b(ccurrence)498 +b(of)i(a)g(non)-31 b(terminal)502 b Fs(nt)d Fx(within)i(it,)533 +b(w)-31 b(e)500 b(\014rst)f(calculate)j(the)d(things)i(\(of)31 +40786 y(whatev)-31 b(er)386 b(t)-31 b(yp)31 b(e)384 b(is)g(in)g +(question\))i(binding)f(in)f(that)h Fs(nt)p Fx(,)j(i.e.)e(those)e(that) +h(should)f(b)31 b(e)384 b(remo)-31 b(v)g(ed)385 b(from)f(the)g(domain)i +(of)31 42114 y(an)-31 b(y)422 b(substitution)h(pushed)d(do)-31 +b(wn)422 b(in)-31 b(to)422 b(it.)649 b(There)421 b(are)f(t)-31 +b(w)g(o)423 b(cases:)595 b(\(1\))423 b(the)e Fs(mse')g +Fx(from)g(an)-31 b(y)422 b Fs(bind)582 b(mse')g(in)f(nt)p +Fx(;)31 43442 y(\(2\))386 b Fs(nt)e Fx(itself)h(if)f(it)h(o)31 +b(ccurs)383 b(in)h(the)h Fs(mse'')f Fx(of)h(an)-31 b(y)384 +b Fs(bind)582 b(mse'')g(in)f(nt'')p Fx(,)389 b(i.e.)921 +b Fs(nt)384 b Fx(itself)h(if)g(it)g(is)e(directly)i(used)f(to)31 +44771 y(bind)370 b(elsewhere.)492 b(List)370 b(forms)f(within)i(bindsp) +31 b(ecs)369 b(are)g(dealt)h(with)g(analogously)-92 b(.)31 +46763 y(The)368 b(substitution)i(function)f(clause)f(for)g(a)f(pro)31 +b(duction)369 b(is)f(then)f(of)i(one)e(of)i(t)-31 b(w)g(o)369 +b(forms:)492 b(either)368 b(\(1\))h(the)f(pro)31 b(duction)31 +48092 y(comprises)390 b(a)f(single)h(elemen)-31 b(t,)396 +b(of)389 b(the)h(non)-31 b(terminal)391 b(or)e(meta)-31 +b(v)-61 b(ariable)392 b(that)e(w)-31 b(e)389 b(are)g(substituting)i +(for,)k(and)389 b(this)h(is)31 49420 y(within)334 b(the)f(rule)f(of)g +(the)h(non)-31 b(terminal)334 b(that)g(it)f(is)f(b)31 +b(eing)332 b(replaced)h(b)-31 b(y)-92 b(,)340 b(or)332 +b(\(2\))h(all)h(other)e(cases.)480 b(F)-92 b(or)331 b(\(1\))j(the)e +(elemen)-31 b(t)31 50748 y(is)296 b(compared)h(with)g(the)f(domain)h +(of)f(the)g(substitution,)313 b(and)296 b(replaced)g(b)-31 +b(y)296 b(the)g(corresp)31 b(onding)296 b(v)-61 b(alue)296 +b(from)g(the)g(range)31 52077 y(if)369 b(it)f(is)g(found.)492 +b(F)-92 b(or)367 b(\(2\))i(the)f(substitution)i(functions)e(are)g(mapp) +31 b(ed)368 b(o)-31 b(v)g(er)368 b(the)g(sub)31 b(elemen)-31 +b(ts,)369 b(ha)-31 b(ving)369 b(\014rst)f(remo)-31 b(v)g(ed)31 +53405 y(an)g(y)370 b(b)31 b(ound)370 b(things)g(from)f(the)h(domain)h +(of)e(the)h(substitution.)31 55398 y(This)g(is)f(all)i(done)e +(similarly)-92 b(,)372 b(but)d(with)h(di\013erences)f(in)g(detail,)j +(for)d(single)h(and)f(for)h(m)-31 b(ultiple)371 b(substitutions.)31 +59160 y Fq(24.3)1496 b(Generation)499 b(of)f(relations)31 +61868 y Fx(The)271 b(seman)-31 b(tic)272 b(relations)g(are)e(de\014ned) +g(with)i(the)f(pro)31 b(of-assistan)-31 b(t)272 b(inductiv)-31 +b(e)272 b(relations)g(pac)-31 b(k)-61 b(ages)271 b(\()p +Fs(coq)p Fx(:)444 b Fs(Inductive)p Fx(,)31 63196 y Fs(isa)p +Fx(:)613 b Fs(inductive)p Fx(,)446 b Fs(hol)p Fx(:)612 +b Fs(Hol_reln)p Fx(\).)674 b(They)429 b(use)g(the)g(m)-31 +b(utual)431 b(recursion)e(structure)f(that)i(is)f(giv)-31 +b(en)431 b(b)-31 b(y)429 b(the)g(user,)31 64525 y(with)d(eac)-31 +b(h)425 b Fs(defns)g Fx(blo)31 b(c)-31 b(k)425 b(giving)h(rise)e(to)h +(a)f(p)31 b(oten)-31 b(tially)428 b(m)-31 b(utually)427 +b(recursiv)-31 b(e)424 b(de\014nition)h(of)g(eac)-31 +b(h)425 b Fs(defn)g Fx(inside)f(it.)31 65853 y(\(It)359 +b(is)g(debatable)h(whether)f(it)g(w)-31 b(ould)360 b(b)31 +b(e)358 b(preferable)g(to)h(do)g(an)g(automatic)i(dep)31 +b(endency)358 b(analysis)i(and)f(top)31 b(ological)31 +67181 y(sort,)454 b(as)435 b(for)h(the)h(syn)-31 b(tax.\))694 +b(Eac)-31 b(h)437 b(de\014nition)g(rule)f(giv)-31 b(es)437 +b(rise)e(to)i(an)f(implicational)441 b(clause,)453 b(essen)-31 +b(tially)438 b(that)f(the)31 68510 y(premises)411 b(\(Ott)g +Fs(formula)p Fx(s\))h(imply)g(the)f(conclusion)h(\(an)f(Ott)h(sym)-31 +b(b)31 b(olic)412 b(term)f(of)g(whic)-31 b(hev)g(er)411 +b(judgemen)-31 b(t)413 b(is)d(b)31 b(eing)31 69838 y(de\014ned\).)493 +b(In)369 b(addition:)p Black 1692 71831 a Ft(\017)p Black +554 w Fx(Sym)-31 b(b)31 b(olic)371 b(terms)e(are)g(transformed)h(in)f +(v)-61 b(arious)370 b(di\013eren)-31 b(t)369 b(w)-31 +b(a)g(ys:)p Black 24533 77841 a(56)p Black eop end +%%Page: 57 57 +TeXDict begin 57 56 bop Black Black Black 4013 -594 a +Fp({)p Black 554 w Fx(No)31 b(des)381 b(of)i(non-meta)h(pro)31 +b(ductions)382 b(are)g(output)h(as)f(applications)i(of)f(the)f +(appropriate)h(pro)31 b(of-assistan)-31 b(t)5203 735 +y(constructor)278 b(\(and,)298 b(for)278 b(a)g(subrule,)296 +b(promoted)280 b(to)e(the)h(corresp)31 b(onding)278 b(constructor)g(of) +h(a)f(maximal)j(rule\).)p Black 4013 2727 a Fp({)p Black +554 w Fx(No)31 b(des)369 b(of)g(meta)i(pro)31 b(ductions)370 +b(are)f(transformed)g(with)i(the)e(user-sp)31 b(eci\014ed)368 +b(homomorphism.)p Black 4013 4720 a Fp({)p Black 554 +w Fx(No)31 b(des)380 b(of)g(judgemen)-31 b(t)382 b(forms)e(are)g +(represen)-31 b(ted)379 b(as)h(applications)j(of)e(the)f(de\014ned)g +(relation)i(in)e(Co)31 b(q)381 b(and)5203 6048 y(HOL,)369 +b(and)h(as)f(set-mem)-31 b(b)31 b(ership)369 b(assertions)h(in)f(Isab) +31 b(elle.)p Black 4013 8040 a Fp({)p Black 554 w Fx(Lists)369 +b(of)h(form)-31 b(ulae)370 b(\(the)g Fs(formula_dots)h +Fx(pro)31 b(duction\))371 b(are)e(sp)31 b(ecial-cased.)p +Black 1660 10033 a Ft(\017)p Black 554 w Fx(F)-92 b(or)528 +b(eac)-31 b(h)528 b(non)-31 b(terminal)530 b(of)f(a)f(non-free)g(syn) +-31 b(tax)529 b(rule)f(\(as)g(in)g Ft(x)p Fx(24.2.1\))j(that)f(o)31 +b(ccurs,)567 b(e.g.)529 b(a)f(usage)g(of)h Fs(v')2767 +11361 y Fx(where)391 b Fs(v<::t)p Fx(,)396 b(an)391 b(additional)j +(premise)c(in)-31 b(v)g(oking)393 b(the)e(subrule)f(predicate)h(for)g +(the)f(non-free)h(rule)f(is)g(added,)2767 12690 y(e.g.)371 +b Fs(is_v)582 b(v')p Fx(.)p Black 1660 14682 a Ft(\017)p +Black 554 w Fx(The)427 b(set)g(of)g(sym)-31 b(b)31 b(olic)429 +b(terms)d(of)i(the)f(de\014nition)h(rule)f(are)f(analysed)i(together)g +(to)g(iden)-31 b(tify)428 b(list)g(forms)f(with)2767 +16011 y(the)416 b(same)g(b)31 b(ounds.)631 b(A)415 b(single)i(pro)31 +b(of)416 b(assistan)-31 b(t)416 b(v)-61 b(ariable)417 +b(is)e(in)-31 b(tro)31 b(duced)416 b(for)g(eac)-31 b(h)416 +b(suc)-31 b(h,)427 b(with)417 b(appropriate)2767 17339 +y(pro)61 b(jections)371 b(and)f(list)g(maps/foralls)h(at)f(the)f(usage) +h(p)31 b(oin)-31 b(ts.)p Black 1660 19331 a Ft(\017)p +Black 554 w Fx(F)-92 b(or)369 b(Co)31 b(q,)370 b(auxiliary)i(de\014ned) +c(relations)j(are)e(in)-31 b(tro)31 b(duced)370 b(for)f(list)h(forms.)p +Black 1660 21324 a Ft(\017)p Black 554 w Fx(F)-92 b(or)279 +b(Co)31 b(q,)299 b(as)279 b(the)h(pro)61 b(jections)281 +b(from)f(list)h(forms)e(in)-31 b(v)g(olv)g(e)282 b(\(Ott-generated\))g +Fs(nth)e Fx(functions)h(that)f(return)f(option)2767 22652 +y(t)-31 b(yp)31 b(es,)316 b(for)301 b(an)-31 b(y)301 +b(suc)-31 b(h)301 b(pro)61 b(jection)303 b(a)e(pattern-matc)-31 +b(h)303 b(against)g Fs(Some)e Fx(is)g(in)-31 b(tro)31 +b(duced)302 b(as)e(an)i(additional)i(premise.)p Black +1660 24645 a Ft(\017)p Black 554 w Fx(F)-92 b(or)369 +b(Co)31 b(q)370 b(and)f(HOL,)h(explicit)h(quan)-31 b(ti\014ers)370 +b(are)f(in)-31 b(tro)31 b(duced)370 b(for)f(all)h(v)-61 +b(ariables)370 b(men)-31 b(tioned)371 b(in)f(the)f(rule.)0 +28970 y FC(25)1793 b(Reference:)798 b(Summary)600 b(of)d(homomorphisms) +0 32058 y Fx(Homomorphisms)323 b(can)d(app)31 b(ear)321 +b(in)f(v)-61 b(arious)321 b(p)31 b(ositions)321 b(in)g(an)g(Ott)g +(source)f(\014le.)476 b(The)321 b(table)h(b)31 b(elo)-31 +b(w)321 b(summarises)g(their)0 33387 y(meanings.)755 +b(A)6842 32601 y Ft(p)8220 33387 y Fx(indicates)458 b(that)f(argumen) +-31 b(ts)457 b(are)f(meaningful)j(for)d(that)h(usage)g(\(e.g.)p +RoyalBlue 457 w Fs([[)p Black(e1)p RoyalBlue(]])p Black +457 w Fx(in)g(a)f(pro)31 b(duction)0 34715 y(men)-31 +b(tioning)372 b(a)e(non)-31 b(terminal)371 b(or)e(meta)-31 +b(v)-61 b(ariable)372 b Fs(e1)p Fx(\).)664 36697 y(a)e(meta)-31 +b(v)-61 b(ar)370 b(or)f(indexv)-61 b(ar)370 b(declaration,)h(after)f +(one)g(of)f(the)h(de\014ned)f(meta)-31 b(v)-61 b(ar/indexv)g(ar)371 +b(ro)31 b(ots,)370 b(or)664 38025 y(a)g(rule,)f(after)h(one)f(of)h(the) +f(de\014ned)g(non)-31 b(terminal)372 b(ro)31 b(ots)p +0 38468 44848 45 v Mahogany 664 39398 a Fs(tex)p Black +14197 38612 a Ft(p)16447 39398 y Fx(L)16740 39171 y Fu(A)17228 +39398 y Fx(T)17842 39636 y(E)18458 39398 y(X)369 b(t)-31 +b(yp)31 b(esetting)372 b(for)d(sym)-31 b(b)31 b(olic)371 +b(v)-61 b(ariables)369 b(with)i(that)f(ro)31 b(ot)p Mahogany +664 40726 a Fs(isa)p Black Fx(/)p Mahogany Fs(coq)p Black +Fx(/)p Mahogany Fs(hol)p Black Fx(/)p Mahogany Fs(ocaml)p +Black 5990 w Fx(Isab)g(elle/Co)g(q/HOL/OCaml)374 b(ro)31 +b(ot)370 b(o)-31 b(v)g(erriding)371 b(string)e(\(1\))p +Mahogany 664 42054 a Fs(repr-locally-nameless)p Black +3582 w Fx(use)g(a)h(lo)31 b(cally-nameless)372 b(represen)-31 +b(tation)370 b(\(Co)31 b(q)370 b(bac)-31 b(k)g(end)370 +b(only\))664 45486 y(a)g(meta)-31 b(v)-61 b(ar)370 b(or)f(indexv)-61 +b(ar)370 b(declaration,)h(after)f(the)g Fs(::=)p 0 45929 +50395 45 v Mahogany 664 46858 a(isa)p Black 14040 w Fx(Isab)31 +b(elle)370 b(represen)-31 b(tation)370 b(t)-31 b(yp)31 +b(e)p Mahogany 664 48187 a Fs(coq)p Black 14040 w Fx(Co)g(q)370 +b(represen)-31 b(tation)371 b(t)-31 b(yp)31 b(e)p Mahogany +664 49515 a Fs(hol)p Black 14040 w Fx(HOL)370 b(represen)-31 +b(tation)370 b(t)-31 b(yp)31 b(e)p Mahogany 664 50844 +a Fs(ocaml)p Black 12878 w Fx(OCaml)371 b(represen)-31 +b(tation)371 b(t)-31 b(yp)31 b(e)p Mahogany 664 52172 +a Fs(tex)p Black 14197 51386 a Ft(p)16447 52172 y Fx(L)16740 +51945 y Fu(A)17228 52172 y Fx(T)17842 52410 y(E)18458 +52172 y(X)369 b(t)-31 b(yp)31 b(esetting)372 b(for)d(sym)-31 +b(b)31 b(olic)371 b(v)-61 b(ariables)p Mahogany 664 53500 +a Fs(com)p Black 14040 w Fx(commen)-31 b(t)372 b(to)e(app)31 +b(ear)369 b(in)g(L)27813 53273 y Fu(A)28301 53500 y Fx(T)28915 +53739 y(E)29531 53500 y(X)g(syn)-31 b(tax)370 b(de\014nition)p +Mahogany 664 54829 a Fs(coq-equality)p Black 8811 w Fx(Co)31 +b(q)370 b(pro)31 b(of)370 b(script)f(to)h(decide)f(equalit)-31 +b(y)372 b(o)-31 b(v)g(er)370 b(the)f(represen)-31 b(tation)370 +b(t)-31 b(yp)31 b(e)p Mahogany 664 56157 a Fs(repr-locally-nameless)p +Black 3582 w Fx(\(Co)g(q)371 b(only\))g(use)d(a)i(lo)31 +b(cally-nameless)372 b(represen)-31 b(tation)p Mahogany +664 57485 a Fs(phantom)p Black 11716 w Fx(suppress)368 +b(the)h(represen)-31 b(tation)371 b(t)-31 b(yp)31 b(e)369 +b(de\014nition)i(in)f(theorem)f(pro)-31 b(v)g(er)370 +b(output)p Mahogany 664 58814 a Fs(lex)p Black 14040 +w Fx(regular)g(expression)f(for)g(lexing)i(concrete)e(v)-61 +b(ariables)p Mahogany 664 60142 a Fs(texvar)p Black 14197 +59356 a Ft(p)16447 60142 y Fx(L)16740 59915 y Fu(A)17228 +60142 y Fx(T)17842 60380 y(E)18458 60142 y(X)369 b(t)-31 +b(yp)31 b(esetting)372 b(for)d(concrete)g(v)-61 b(ariables)p +Mahogany 664 61470 a Fs(isavar)p Black 14197 60684 a +Ft(p)16447 61470 y Fx(Isab)31 b(elle)370 b(output)g(for)g(concrete)f(v) +-61 b(ariables)p Mahogany 664 62799 a Fs(holvar)p Black +14197 62013 a Ft(p)16447 62799 y Fx(HOL)370 b(output)g(for)f(concrete)h +(v)-61 b(ariables)p Mahogany 664 64127 a Fs(ocamlvar)p +Black 14197 63341 a Ft(p)16447 64127 y Fx(OCaml)371 b(output)g(for)e +(concrete)g(v)-61 b(ariables)p Black 24502 77841 a(57)p +Black eop end +%%Page: 58 58 +TeXDict begin 58 57 bop Black Black 696 -771 a Fx(a)369 +b(rule,)h(after)f(the)p RoyalBlue 370 w Fs(::=)p Black +31 -328 46025 45 v Mahogany 696 602 a(isa)p Black 9671 +w Fx(Isab)31 b(elle)369 b(represen)-31 b(tation)370 b(t)-31 +b(yp)31 b(e,)371 b(if)e(a)h(non-free)f(t)-31 b(yp)31 +b(e)370 b(is)f(required)p Mahogany 696 1930 a Fs(coq)p +Black 9671 w Fx(Co)31 b(q)370 b(represen)-31 b(tation)370 +b(t)-31 b(yp)31 b(e,)370 b(if)g(a)f(non-free)g(t)-31 +b(yp)31 b(e)370 b(is)f(required)p Mahogany 696 3258 a +Fs(hol)p Black 9671 w Fx(HOL)g(represen)-31 b(tation)370 +b(t)-31 b(yp)31 b(e,)370 b(if)g(a)f(non-free)g(t)-31 +b(yp)31 b(e)370 b(is)f(required)p Mahogany 696 4587 a +Fs(ocaml)p Black 8509 w Fx(OCaml)h(represen)-31 b(tation)371 +b(t)-31 b(yp)31 b(e,)370 b(if)g(a)f(non-free)g(t)-31 +b(yp)31 b(e)370 b(is)f(required)p Mahogany 696 5915 a +Fs(tex)p Black 9428 5129 a Ft(p)12110 5915 y Fx(L)12403 +5688 y Fu(A)12891 5915 y Fx(T)13505 6153 y(E)14120 5915 +y(X)g(t)-31 b(yp)31 b(esetting)372 b(for)d(sym)-31 b(b)31 +b(olic)371 b(v)-61 b(ariables)p Mahogany 696 7243 a Fs(com)p +Black 9428 6458 a Ft(p)12110 7243 y Fx(commen)-31 b(t)371 +b(to)f(app)31 b(ear)369 b(in)g(L)23475 7017 y Fu(A)23963 +7243 y Fx(T)24577 7482 y(E)25193 7243 y(X)g(syn)-31 b(tax)370 +b(de\014nition)p Mahogany 696 8572 a Fs(coq-equality)p +Black 4442 w Fx(Co)31 b(q)370 b(pro)31 b(of)369 b(script)g(to)h(decide) +f(equalit)-31 b(y)372 b(o)-31 b(v)g(er)370 b(the)f(represen)-31 +b(tation)371 b(t)-31 b(yp)31 b(e)p Mahogany 696 9900 +a Fs(coq-universe)p Black 4442 w Fx(Co)g(q)370 b(univ)-31 +b(erse)369 b(\(e.g.)i Fs(Type)p Fx(\))f(for)f(the)g(represen)-31 +b(tation)371 b(t)-31 b(yp)31 b(e)p Mahogany 696 11229 +a Fs(phantom)p Black 7347 w Fx(suppress)367 b(the)i(represen)-31 +b(tation)371 b(t)-31 b(yp)31 b(e)369 b(de\014nition)i(in)f(theorem)g +(pro)-31 b(v)g(er)369 b(output)p Mahogany 696 12557 a +Fs(aux)p Black 6559 w Fx(\()9428 11771 y Ft(p)10351 12557 +y Fx(\))1329 b(construct)369 b(an)h(auxiliary)h(grammar)g(rule)e(with)h +(a)f(single)h(pro)31 b(duction)p Mahogany 696 13885 a +Fs(icho)p Black 9428 13099 a Ft(p)12110 13885 y Fx(shorthand)369 +b(for)g(iden)-31 b(tical)p Mahogany 372 w Fs(coq)p Black +Fx(,)p Mahogany 370 w Fs(isa)p Black Fx(,)p Mahogany +370 w Fs(hol)p Black Fx(,)370 b(and)p Mahogany 369 w +Fs(ocaml)p Black 370 w Fx(homs)p Mahogany 696 15214 a +Fs(ichlo)p Black 9428 14428 a Ft(p)12110 15214 y Fx(shorthand)f(for)g +(iden)-31 b(tical)p Mahogany 372 w Fs(coq)p Black Fx(,)p +Mahogany 370 w Fs(isa)p Black Fx(,)p Mahogany 370 w Fs(hol)p +Black Fx(,)p Mahogany 370 w Fs(lem)p Black Fx(,)370 b(and)p +Mahogany 369 w Fs(ocaml)p Black 370 w Fx(homs)p Mahogany +696 16542 a Fs(ich)p Black 9428 15756 a Ft(p)12110 16542 +y Fx(shorthand)f(for)g(iden)-31 b(tical)p Mahogany 372 +w Fs(coq)p Black Fx(,)p Mahogany 370 w Fs(isa)p Black +369 w Fx(and)p Mahogany 370 w Fs(hol)p Black 369 w Fx(homs)p +Mahogany 696 17870 a Fs(ic)p Black 9428 17084 a Ft(p)12110 +17870 y Fx(shorthand)369 b(for)g(iden)-31 b(tical)p Mahogany +372 w Fs(coq)p Black 369 w Fx(and)p Mahogany 370 w Fs(isa)p +Black 369 w Fx(homs)p Mahogany 696 19199 a Fs(ch)p Black +9428 18413 a Ft(p)12110 19199 y Fx(shorthand)369 b(for)g(iden)-31 +b(tical)p Mahogany 372 w Fs(coq)p Black 369 w Fx(and)p +Mahogany 370 w Fs(hol)p Black 369 w Fx(homs)p Mahogany +696 20527 a Fs(ih)p Black 9428 19741 a Ft(p)12110 20527 +y Fx(shorthand)369 b(for)g(iden)-31 b(tical)p Mahogany +372 w Fs(isa)p Black 369 w Fx(and)p Mahogany 370 w Fs(hol)p +Black 369 w Fx(homs)696 23959 y(a)369 b(pro)31 b(duction)p +31 24401 37308 45 v Mahogany 696 25331 a Fs(isa)p Black +6092 24545 a Ft(p)8343 25331 y Fx(Isab)g(elle)369 b(output,)i(for)f(a)f +(non-free)g(\(meta\))j(pro)31 b(duction)p Mahogany 696 +26660 a Fs(coq)p Black 6092 25874 a Ft(p)8343 26660 y +Fx(Co)g(q)370 b(output,)h(for)e(a)g(non-free)h(\(meta\))h(pro)31 +b(duction)p Mahogany 696 27988 a Fs(hol)p Black 6092 +27202 a Ft(p)8343 27988 y Fx(HOL)369 b(output,)i(for)e(a)h(non-free)f +(\(meta\))i(pro)31 b(duction)p Mahogany 696 29316 a Fs(ocaml)p +Black 6092 28530 a Ft(p)8343 29316 y Fx(OCaml)371 b(output,)g(for)e(a)g +(non-free)h(\(meta\))h(pro)31 b(duction)p Mahogany 696 +30645 a Fs(tex)p Black 6092 29859 a Ft(p)8343 30645 y +Fx(L)8636 30418 y Fu(A)9124 30645 y Fx(T)9738 30883 y(E)10354 +30645 y(X)369 b(t)-31 b(yp)31 b(esetting)371 b(for)e(sym)-31 +b(b)31 b(olic)371 b(terms)p Mahogany 696 31973 a Fs(texlong)p +Black 3580 w Fx(t)-31 b(yp)31 b(eset)370 b(as)f(long)h(pro)31 +b(duction)p Mahogany 696 33301 a Fs(com)p Black 6092 +32515 a Ft(p)8343 33301 y Fx(commen)-31 b(t)371 b(to)f(app)31 +b(ear)369 b(in)h(L)19709 33074 y Fu(A)20197 33301 y Fx(T)20811 +33540 y(E)21426 33301 y(X)f(syn)-31 b(tax)371 b(de\014nition)p +Mahogany 696 34630 a Fs(order)p Black 6092 33844 a Ft(p)8343 +34630 y Fx(sp)31 b(ecify)369 b(order)g(of)g(argumen)-31 +b(ts)371 b(to)f(pro)-31 b(v)g(er)369 b(or)g(Ocaml)h(constructor)p +Mahogany 696 35958 a Fs(isasyn)p Black 6092 35172 a Ft(p)8343 +35958 y Fx(Isab)31 b(elle)369 b(mix\014x)i(syn)-31 b(tax)370 +b(output)p Mahogany 696 37286 a Fs(isaprec)p Black 3580 +w Fx(Isab)31 b(elle)369 b(mix\014x)i(syn)-31 b(tax)370 +b(precedence)e(string)p Mahogany 696 38615 a Fs(ich)p +Black 6092 37829 a Ft(p)8343 38615 y Fx(shorthand)h(for)h(iden)-31 +b(tical)p Mahogany 371 w Fs(coq)p Black Fx(,)p Mahogany +370 w Fs(isa)p Black 370 w Fx(and)p Mahogany 369 w Fs(hol)p +Black Fx(homs)p Mahogany 696 39943 a Fs(ic)p Black 6092 +39157 a Ft(p)8343 39943 y Fx(shorthand)369 b(for)h(iden)-31 +b(tical)p Mahogany 371 w Fs(coq)p Black 370 w Fx(and)p +Mahogany 369 w Fs(isa)p Black 370 w Fx(homs)p Mahogany +696 41271 a Fs(ch)p Black 6092 40485 a Ft(p)8343 41271 +y Fx(shorthand)369 b(for)h(iden)-31 b(tical)p Mahogany +371 w Fs(coq)p Black 370 w Fx(and)p Mahogany 369 w Fs(hol)p +Black 370 w Fx(homs)p Mahogany 696 42600 a Fs(ih)p Black +6092 41814 a Ft(p)8343 42600 y Fx(shorthand)369 b(for)h(iden)-31 +b(tical)p Mahogany 371 w Fs(isa)p Black 370 w Fx(and)p +Mahogany 369 w Fs(hol)p Black 370 w Fx(homs)696 46031 +y(a)369 b(pro)31 b(duction)370 b(of)g(the)f Fs(terminals)i +Fx(grammar)p 31 46474 44387 45 v Mahogany 696 47404 a +Fs(isa)p Black 3579 w Fx(Isab)31 b(elle)370 b(output,)h(for)e +(terminals)i(in)e(default)i(generated)e(Isab)31 b(elle)370 +b(mix\014x)g(declarations)p Mahogany 696 48732 a Fs(tex)p +Black 3579 w Fx(L)6311 48505 y Fu(A)6799 48732 y Fx(T)7413 +48971 y(E)8029 48732 y(X)f(default)i(t)-31 b(yp)31 b(esetting)371 +b(for)e(terms)p Mahogany 696 50061 a Fs(com)p Black 3767 +49275 a Ft(p)6018 50061 y Fx(commen)-31 b(t)371 b(to)f(app)31 +b(ear)370 b(in)f(L)17384 49834 y Fu(A)17872 50061 y Fx(T)18486 +50299 y(E)19102 50061 y(X)g(syn)-31 b(tax)370 b(de\014nition)696 +53492 y(a)p Mahogany 369 w Fs(defn)p Black Fx(,)g(b)31 +b(efore)369 b(the)p Mahogany 370 w Fs(by)p Black 31 53935 +33812 45 v Mahogany 696 54865 a(tex)p Black 6092 54079 +a Ft(p)8343 54865 y Fx(L)8636 54638 y Fu(A)9124 54865 +y Fx(T)9738 55103 y(E)10354 54865 y(X)g(t)-31 b(yp)31 +b(esetting)371 b(for)e(sym)-31 b(b)31 b(olic)371 b(terms)p +Mahogany 696 56193 a Fs(com)p Black 6092 55407 a Ft(p)8343 +56193 y Fx(commen)-31 b(t)371 b(to)f(app)31 b(ear)369 +b(in)h(L)19709 55966 y Fu(A)20197 56193 y Fx(T)20811 +56432 y(E)21426 56193 y(X)f(syn)-31 b(tax)371 b(de\014nition)p +Mahogany 696 57522 a Fs(isasyn)p Black 6092 56736 a Ft(p)8343 +57522 y Fx(Isab)31 b(elle)369 b(mix\014x)i(syn)-31 b(tax)370 +b(output)p Mahogany 696 58850 a Fs(isaprec)p Black 3580 +w Fx(Isab)31 b(elle)369 b(mix\014x)i(syn)-31 b(tax)370 +b(precedence)e(string)p Mahogany 696 60178 a Fs(lemwcf)p +Black 4161 w Fx(Lem)h(witness,)h(c)-31 b(hec)g(k,)370 +b(and)g(functions)g(sp)31 b(ec)368 b(for)i(indrelns)696 +62835 y(a)p Mahogany 369 w Fs(homs)p Black 370 w Fx(section)g(clause)f +(\(for)h(a)g(pro)31 b(duction)370 b(or)f(a)g(de\014nition\))p +31 63278 V 696 64208 a(as)g(in)g(the)h(ab)31 b(o)-31 +b(v)g(e)370 b(pro)31 b(duction)370 b(and)p Mahogany 370 +w Fs(defn)p Black 369 w Fx(forms)696 67639 y(a)f(group)h(of)f(defns,)h +(after)f(the)p RoyalBlue 370 w Fs(::=)p Black 31 68082 +36155 45 v Mahogany 696 69012 a(coq-universe)p Black +2658 w Fx(Co)31 b(q)370 b(univ)-31 b(erse)369 b(\(e.g.)i +Fs(Type)p Fx(\))f(for)f(the)h(represen)-31 b(tation)370 +b(t)-31 b(yp)31 b(e)p Black 24533 77841 a(58)p Black +eop end +%%Page: 59 59 +TeXDict begin 59 58 bop Black Black 664 -771 a Fx(an)p +Mahogany 370 w Fs(embed)p Black 369 w Fx(section)p 0 +-328 42184 45 v Mahogany 664 602 a Fs(isa)p Black 10793 +w Fx(em)-31 b(b)31 b(edded)370 b(Isab)31 b(elle)369 b(output)p +Mahogany 664 1930 a Fs(coq)p Black 10793 w Fx(em)-31 +b(b)31 b(edded)370 b(Co)31 b(q)370 b(output)p Mahogany +664 3258 a Fs(hol)p Black 10793 w Fx(em)-31 b(b)31 b(edded)370 +b(HOL)f(output)p Mahogany 664 4587 a Fs(ocaml)p Black +9631 w Fx(em)-31 b(b)31 b(edded)370 b(OCaml)h(output)p +Mahogany 664 5915 a Fs(tex)p Black 10793 w Fx(em)-31 +b(b)31 b(edded)370 b(L)18721 5688 y Fu(A)19209 5915 y +Fx(T)19823 6153 y(E)20438 5915 y(X)g(output)p Mahogany +664 7243 a Fs(tex-preamble)p Black 5564 w Fx(em)-31 b(b)31 +b(edded)370 b(L)18721 7017 y Fu(A)19209 7243 y Fx(T)19823 +7482 y(E)20438 7243 y(X)g(output,)g(app)31 b(earing)371 +b(in)e(the)g(L)34202 7017 y Fu(A)34690 7243 y Fx(T)35304 +7482 y(E)35920 7243 y(X)g(pream)-31 b(ble)p Mahogany +664 8572 a Fs(coq-lib)p Black 8469 w Fx(do)370 b(not)g(generate)g +(de\014nitions)g(for)f(the)h(listed)g(help)31 b(er)369 +b(functions)p Mahogany 664 9900 a Fs(isa-auxfn-proof)p +Black 3821 w Fx(Isab)31 b(elle)370 b(pro)31 b(of)369 +b(script)p Mahogany 664 11229 a Fs(isa-subrule-proof)p +Black 2659 w Fx(Isab)31 b(elle)370 b(pro)31 b(of)369 +b(script)664 13332 y(in)h(a)f(subrule,)g(substitution)i(or)e(function)i +(de\014nition)p 0 13775 24138 45 v Mahogany 664 14704 +a Fs(isa-proof)p Black 2658 w Fx(Isab)31 b(elle)370 b(pro)31 +b(of)369 b(script)0 16708 y(\(1\))411 b(This)e(is)g(o)31 +b(ccasionally)412 b(useful)e(to)g(w)-31 b(ork)410 b(around)f(a)h(clash) +g(b)31 b(et)-31 b(w)g(een)410 b(a)f(meta)-31 b(v)-61 +b(ar)411 b(or)e(non)-31 b(terminal)412 b(primary)d(ro)31 +b(ot)0 18036 y(and)369 b(a)h(pro)31 b(of)369 b(assistan)-31 +b(t)371 b(sym)-31 b(b)31 b(ol,)371 b(e.g.)f Fs(value)g +Fx(in)f(Isab)31 b(elle)370 b(or)f Fs(T)g Fx(in)g(HOL.)0 +22361 y FC(26)1793 b(Reference:)798 b(The)598 b(Ott)h(source)f(grammar) +0 25450 y Fx(This)370 b(is)f(automatically)374 b(generated)c(\(b)-31 +b(y)370 b Fs(mly-y2l)p Fx(\))g(from)g(the)f Fs(ocamlyacc)i +Fx(grammar)f(for)f(Ott.)0 27442 y(The)g(lexing)i(of)f(Ott)g(source)e +(\014les)h(is)g(con)-31 b(text-dep)31 b(enden)-31 b(t;)372 +b(this)e(do)31 b(es)369 b(not)g(sho)-31 b(w)370 b(that.)0 +29435 y(Not)462 b(ev)-31 b(erything)463 b(in)e(the)g(grammar)i(is)e +(fully)h(supp)31 b(orted)461 b(|)g(in)g(particular,)486 +b(option)463 b(elemen)-31 b(t)463 b(forms,)484 b(non-dotted)0 +30763 y(elemen)-31 b(t)371 b(list)f(forms,)g(the)f(three)g +Fs(names)h Fx(distinctness)f(forms)h(of)g(bindsp)31 b(ecs,)368 +b(and)i(con)-31 b(text)371 b(rules.)0 35088 y FC(27)1793 +b(Reference:)798 b(Examples)0 38177 y Fx(The)369 b(pro)61 +b(ject)371 b(w)-31 b(eb)369 b(page)p Black Black 4428 +40169 a Fs(http://www.cl.cam.ac.uk/users/pes20/ott/)0 +42162 y Fx(giv)-31 b(es)269 b(a)g(v)-61 b(ariet)-31 b(y)270 +b(of)f(examples.)460 b(Some)270 b(of)f(these,)289 b(and)269 +b(additional)i(small)f(examples,)291 b(are)268 b(included)h(in)g(the)g +(distribution)0 43490 y(in)361 b(the)g Fs(tests)h Fx(directory)-92 +b(.)490 b(T)-31 b(ypically)364 b(they)d(can)g(b)31 b(e)361 +b(built)h(using)f(the)g Fs(Makefile)h Fx(in)f(the)h Fs(ott)f +Fx(directory)-92 b(,)363 b(e.g.)f(t)-31 b(yping)0 44819 +y Fs(make)582 b(test10)370 b Fx(or)f(\(more)h(generally\))h +Fs(make)582 b(tests/test10.out)p Fx(\))371 b(there.)664 +46800 y Fs(test10.ott)12953 b Fx(un)-31 b(t)g(yp)31 b(ed)370 +b(CBV)g(lam)-31 b(b)31 b(da)664 48128 y Fs(test10st.ott)11791 +b Fx(simply)370 b(t)-31 b(yp)31 b(ed)370 b(CBV)g(lam)-31 +b(b)31 b(da)664 49457 y Fs(test8.ott)13534 b Fx(ML)369 +b(p)31 b(olymorphism)371 b(example)664 50785 y Fs(test7a.ott)12953 +b Fx(POPLmark)370 b(Fsub)e(example)j(\(without)h(records\))664 +52113 y Fs(test7b.ott)12953 b Fx(POPLmark)370 b(Fsub)e(example)j +(\(with)g(records\))664 53442 y Fs(leroy-jfp96.ott)10048 +b Fx(Lero)-31 b(y)369 b(mo)31 b(dule)370 b(system)664 +54770 y Fs(lj.ott)15277 b Fx(LJ:)369 b(Ligh)-31 b(t)g(w)g(eigh)g(t)373 +b(Ja)-31 b(v)-61 b(a)664 56098 y Fs(test7t.mng)12953 +b Fx(whole-do)31 b(cumen)-31 b(t)372 b(tex)d(mng)h(source)19427 +57427 y(\()p Fs(make)582 b(test7afilter)371 b Fx(to)f(build\))664 +58755 y Fs(test7tt.mng)12372 b Fx(fragmen)-31 b(t)371 +b(tex)f(mng)g(source)664 60084 y Fs(test11.ott)12953 +b Fx(subrule)369 b(example)664 61412 y Fs(test12.ott)12953 +b Fx(top)31 b(ological)373 b(sort)c(example)664 62740 +y Fs(test13.ott)12953 b Fx(small)371 b(bindsp)31 b(ec)368 +b(fragmen)-31 b(t)664 64069 y Fs(test10st_snapshot_out.thy)4238 +b Fx(snapshot)370 b(of)f(generated)h(Isab)31 b(elle)370 +b(from)f Fs(test10st.ott)664 65397 y(test10st_metatheory_autoed.thy) +1333 b Fx(Isab)31 b(elle)370 b(pro)31 b(of)369 b(script)g(for)g(t)-31 +b(yp)31 b(e)370 b(preserv)-61 b(ation)369 b(and)h(progress)664 +66725 y Fs(test10st_codegen.thy)7143 b Fx(Isab)31 b(elle)370 +b(co)31 b(de)369 b(generation)i(script)e(for)g(reduction)664 +68054 y Fs(test10_isasyn.ott)8886 b Fx(Isab)31 b(elle)370 +b(mix\014x)g(syn)-31 b(tax)370 b(example)664 69382 y +Fs(test10st_metatheoryScript.sml)1914 b Fx(HOL)369 b(pro)31 +b(of)370 b(script)f(for)g(t)-31 b(yp)31 b(e)370 b(preserv)-61 +b(ation)369 b(and)g(progress)664 70710 y Fs(test17.10.ott)11210 +b Fx(list)370 b(comprehension)g(examples)p Black 24502 +77841 a(59)p Black eop end +%%Page: 60 60 +TeXDict begin 60 59 bop Black Black 31 -594 a Fx(The)355 +b Fs(examples/tapl)g Fx(directory)g(con)-31 b(tains)355 +b(sev)-31 b(eral)355 b(examples)g(tak)-31 b(en)355 b(from)g(the)f(b)31 +b(o)g(ok)354 b(`T)-31 b(yp)31 b(es)355 b(and)f(Programming)31 +735 y(Languages')523 b(b)-31 b(y)520 b(Benjamin)i(Pierce.)947 +b(The)521 b Fs(make)g Fx(targets,)559 b(listed)522 b(b)31 +b(elo)-31 b(w,)560 b(com)-31 b(bine)521 b(Ott)h(source)e(\014les)g +(follo)-31 b(wing)31 2063 y(roughly)371 b(the)e(Tink)-31 +b(erT)g(yp)31 b(e)371 b(comp)31 b(onen)-31 b(t)371 b(structure)d(used)h +(in)g(T)-92 b(APL.)696 3983 y Fs(sys-bool)8884 b Fx(b)31 +b(o)g(oleans)370 b(\(p34\))696 5311 y Fs(sys-arith)8303 +b Fx(arithmetic)372 b(expressions)c(\(p41\))696 6640 +y Fs(sys-untyped)7141 b Fx(un)-31 b(t)g(yp)31 b(ed)370 +b(lam)-31 b(b)31 b(da-calculus)372 b(with)e(b)31 b(o)g(oleans)696 +7968 y Fs(sys-puresimple)5398 b Fx(simply-t)-31 b(yp)31 +b(ed)371 b(lam)-31 b(b)31 b(da-calculus)696 9296 y Fs(sys-tybool)7722 +b Fx(t)-31 b(yp)31 b(ed)370 b(b)31 b(o)g(oleans)696 10625 +y Fs(sys-sortoffullsimple)696 11953 y(sys-roughlyfullsimple)696 +13281 y(sys-puresub)696 14610 y(sys-purercdsub)31 16552 +y Fx(Other)369 b(examples)i(can)e(b)31 b(e)369 b(found)g(on)h(the)f(lo) +31 b(cally-nameless)372 b(bac)-31 b(k)g(end)370 b(w)-31 +b(eb)370 b(page.)31 20877 y FC(Ac)-50 b(kno)g(wledgemen)g(ts)31 +23965 y Fx(W)-92 b(e)472 b(thank)g(the)g(Ott)h(users)d(for)i(their)g +(feedbac)-31 b(k,)499 b(esp)31 b(ecially)473 b(Matthew)g(P)-31 +b(arkinson;)525 b(the)472 b(other)g(mem)-31 b(b)31 b(ers)472 +b(of)g(the)31 25294 y(POPLmark)367 b(team,)h(esp)31 b(ecially)367 +b(Benjamin)g(Pierce,)f(Stephanie)h(W)-92 b(eiric)-31 +b(h,)367 b(and)e(Stev)-31 b(e)367 b(Zdancewic,)h(for)d(discussions;)31 +26622 y(and)304 b(Keith)g(W)-92 b(ansbrough,)317 b(Matthew)304 +b(F)-92 b(airbairn,)317 b(and)304 b(T)-92 b(om)304 b(Wilkie,)318 +b(for)303 b(their)h(w)-31 b(ork)304 b(on)f(v)-61 b(arious)304 +b(Ott)g(predecessors.)31 28615 y(W)-92 b(e)463 b(ac)-31 +b(kno)g(wledge)465 b(the)e(supp)31 b(ort)463 b(of)g(EPSR)-31 +b(C)464 b(gran)-31 b(ts)463 b(GR/T11715,)489 b(EP/C510712,)i(and)463 +b(EP/F036345,)491 b(a)463 b(Ro)-31 b(y)g(al)31 29943 +y(So)31 b(ciet)-31 b(y)513 b(Univ)-31 b(ersit)g(y)512 +b(Researc)-31 b(h)510 b(F)-92 b(ello)-31 b(wship)513 +b(\(Sew)-31 b(ell\),)549 b(an)511 b(EPSR)-31 b(C)512 +b(Leadership)e(F)-92 b(ello)-31 b(wship)512 b(\(Sew)-31 +b(ell\),)549 b(EPSR)-31 b(C)31 31271 y(Programme)333 +b(Gran)-31 b(t,)338 b(EP/K008528/1)e(REMS)330 b Fo(R)-28 +b(igor)-57 b(ous)360 b(Engine)-57 b(ering)364 b(of)c(Mainstr)-57 +b(em)361 b(Systems)p Fx(,)338 b(and)331 b(ANR)f(gran)-31 +b(t)31 32600 y(ANR-06-SETI-010-02)374 b(\(Zappa)c(Nardelli\).)31 +36924 y FC(References)p Black 31 40013 a Fx([ABF)2675 +39611 y Fu(+)3411 40013 y Fx(05])p Black 1200 w(Brian)456 +b(E.)f(Aydemir,)478 b(Aaron)455 b(Bohannon,)478 b(Matthew)457 +b(F)-92 b(airbairn,)477 b(J.)455 b(Nathan)h(F)-92 b(oster,)476 +b(Benjamin)457 b(C.)6024 41341 y(Pierce,)643 b(P)-31 +b(eter)588 b(Sew)-31 b(ell,)644 b(Dimitrios)590 b(Vytiniotis,)645 +b(Geo\013rey)587 b(W)-92 b(ash)-31 b(burn,)642 b(Stephanie)589 +b(W)-92 b(eiric)-31 b(h,)642 b(and)6024 42670 y(Stev)-31 +b(e)437 b(Zdancewic.)692 b(Mec)-31 b(hanized)436 b(metatheory)i(for)e +(the)g(masses:)626 b(The)436 b(POPLmark)h(Challenge.)692 +b(In)6024 43998 y Fo(Pr)-57 b(o)g(c.)397 b(TPHOLs,)f(LNCS)h(3603)p +Fx(,)369 b(2005.)p Black 31 45991 a([F)-31 b(GL)2591 +45589 y Fu(+)3326 45991 y Fx(96])p Black 1285 w(C)g(\023)-523 +b(edric)373 b(F)-92 b(ournet,)371 b(Georges)g(Gon)-31 +b(thier,)372 b(Jean-Jacques)f(L)-31 b(\023)-523 b(evy)-92 +b(,)373 b(Luc)e(Maranget,)h(and)g(Didier)f(R)-31 b(\023)-523 +b(em)-31 b(y)-92 b(.)498 b(A)6024 47319 y(calculus)370 +b(of)g(mobile)h(agen)-31 b(ts.)493 b(In)368 b Fo(Pr)-57 +b(o)g(c.)397 b(CONCUR)f('96,)h(LNCS)f(1119)p Fx(,)369 +b(1996.)p Black 31 49312 a([Ler96])p Black 2655 w(Xa)-31 +b(vier)432 b(Lero)-31 b(y)-92 b(.)674 b(A)430 b(syn)-31 +b(tactic)433 b(theory)e(of)g(t)-31 b(yp)31 b(e)431 b(generativit)-31 +b(y)433 b(and)e(sharing.)674 b Fo(Journal)453 b(of)f(F)-85 +b(unctional)6024 50640 y(Pr)-57 b(o)g(gr)g(amming)p Fx(,)372 +b(6\(5\):667{698,)j(1996.)p Black 31 52632 a([LP03])p +Black 2828 w(Mic)-31 b(hael)364 b(Y.)e(Levin)g(and)g(Benjamin)i(C.)f +(Pierce.)479 b(Tink)-31 b(ert)g(yp)31 b(e:)491 b(A)362 +b(language)i(for)e(pla)-31 b(ying)364 b(with)f(formal)6024 +53961 y(systems.)492 b Fo(Journal)396 b(of)g(F)-85 b(unctional)396 +b(Pr)-57 b(o)g(gr)g(amming)p Fx(,)372 b(13\(2\),)g(Marc)-31 +b(h)369 b(2003.)p Black 31 55953 a([Pie02])p Black 2721 +w(Benjamin)i(C.)f(Pierce.)492 b Fo(T)-85 b(yp)-57 b(es)396 +b(and)g(Pr)-57 b(o)g(gr)g(amming)398 b(L)-57 b(anguages)p +Fx(.)493 b(MIT)368 b(Press,)h(2002.)p Black 31 57946 +a([SSP07])p Black 2290 w(Rok)383 b(Strni)-58 b(\024)-495 +b(sa,)387 b(P)-31 b(eter)382 b(Sew)-31 b(ell,)388 b(and)382 +b(Matthew)i(P)-31 b(arkinson.)532 b(The)382 b(Ja)-31 +b(v)-61 b(a)383 b(Mo)31 b(dule)383 b(System:)519 b(core)382 +b(design)6024 59274 y(and)348 b(seman)-31 b(tic)348 b(de\014nition.)457 +b(In)346 b Fo(Pr)-57 b(o)g(c)g(e)g(e)g(dings)378 b(of)e(OOPSLA)f(2007,) +k(the)c(22nd)g(A)-28 b(CM)375 b(SIGPLAN)h(Inter-)6024 +60603 y(national)301 b(Confer)-57 b(enc)g(e)303 b(on)e(Obje)-57 +b(ct-Oriente)g(d)302 b(Pr)-57 b(o)g(gr)g(amming,)322 +b(Systems,)f(L)-57 b(anguages)301 b(and)g(Applic)-57 +b(ations)6024 61931 y(\(Montr)g(e\023)-566 b(al\))p Fx(,)369 +b(Octob)31 b(er)369 b(2007.)493 b(15pp.)p Black 31 63923 +a([SZNO)3320 63522 y Fu(+)4057 63923 y Fx(07])p Black +554 w(P)-31 b(eter)306 b(Sew)-31 b(ell,)319 b(F)-92 b(rancesco)304 +b(Zappa)i(Nardelli,)319 b(Scott)306 b(Ow)-31 b(ens,)318 +b(Gilles)305 b(P)-31 b(eskine,)319 b(Thomas)306 b(Ridge,)319 +b(Susmit)6024 65252 y(Sark)-61 b(ar,)423 b(and)413 b(Rok)f(Strni)-58 +b(\024)-495 b(sa.)620 b(Ott:)579 b(E\013ectiv)-31 b(e)413 +b(to)31 b(ol)414 b(supp)31 b(ort)412 b(for)g(the)g(w)-31 +b(orking)414 b(seman)-31 b(ticist.)621 b(In)412 b Fo(Pr)-57 +b(o-)6024 66580 y(c)g(e)g(e)g(dings)446 b(of)d(ICFP)f(2007:)603 +b(the)443 b(12th)f(A)-28 b(CM)442 b(SIGPLAN)i(International)f(Confer) +-57 b(enc)g(e)445 b(on)e(F)-85 b(unctional)6024 67909 +y(Pr)-57 b(o)g(gr)g(amming)398 b(\(F)-85 b(r)-57 b(eibur)g(g\))p +Fx(,)370 b(Octob)31 b(er)370 b(2007.)493 b(12pp.)p Black +31 69901 a([SZNO)3320 69499 y Fu(+)4057 69901 y Fx(10])p +Black 554 w(P)-31 b(eter)306 b(Sew)-31 b(ell,)319 b(F)-92 +b(rancesco)304 b(Zappa)i(Nardelli,)319 b(Scott)306 b(Ow)-31 +b(ens,)318 b(Gilles)305 b(P)-31 b(eskine,)319 b(Thomas)306 +b(Ridge,)319 b(Susmit)6024 71229 y(Sark)-61 b(ar,)329 +b(and)318 b(Rok)g(Strni)-58 b(\024)-495 b(sa.)408 b(Ott:)468 +b(E\013ectiv)-31 b(e)319 b(to)31 b(ol)319 b(supp)31 b(ort)318 +b(for)f(the)i(w)-31 b(orking)319 b(seman)-31 b(ticist.)410 +b Fo(Journal)348 b(of)6024 72558 y(F)-85 b(unctional)379 +b(Pr)-57 b(o)g(gr)g(amming)p Fx(,)356 b(20\(1\):70{122,)j(Jan)-31 +b(uary)351 b(2010.)461 b(In)-31 b(vited)350 b(submission)h(from)f(ICFP) +f(2007.)p Black 24533 77841 a(60)p Black eop end +%%Trailer + +userdict /end-hook known{end-hook}if +%%EOF diff --git a/vendors/ott/built_doc/top2001.png b/vendors/ott/built_doc/top2001.png new file mode 100644 index 0000000000000000000000000000000000000000..19eaccf5beda62e464505ab1d35a09aaffc1c79a GIT binary patch literal 2857 zcmeAS@N?(olHy`uVBq!ia0y~yV4TXp!061v%)r3FAk=5Yz`!6H;1lBd|Nnnwd4-U` zplw^Xwl=qf1_tG3Wq;E?+sDAbz*rLG7tG-B>_!>`1J@x>7srr_IdA9Y_Pt)i*U&lP zkM-h-X`J87-6lpHx_jVm!*8XH|5amdtK@o|G{$BMy6JO>laAEsl}!eG29rz;t1Y!$@*SgZzE0n;h3R>sxAp>!u21<-RQ7M` zS|z&r*NppxecMA@%O4#2Yxgagul~$~gKhcJZtwf!YQ!wpzD;O%Na4$^=P})4$WZCL zFhZPZ&KE}UMqVV9X0{pasK^;7%4Hg8Ur zSn-Dadudxz*CLJmOS;P5dp^*d|ETSU9{0a*%u6OctXfqg{7Z)Q%Cya%q73CX%V#cr z)?a?b=oe4hKc|8_kL?~D=KeqF%Wc83Uu;V%WF{ZV%;~x-m2Sj$pZj3QowYvsy}WnK zcrV9q>bTQBd8;+svZQ6EbKB?0@n4+wV|uP-pPaZ5FLBr5c7)ju=I*-RI}9y8>#p#9I+a@Gklt0~T ztNQ$4N1;RKUxU;CZgkkkefqv;pZu?r^3@MMGL>Drsy}bW(R{B9>neU84=I@+{Ih;S z`iYS8tw+B!8b5Dd@~7HhqR#K&NBz0Iw!RyR_it(~pTa79a-!dx{@$A#m$SZc`4n+~ z%JDf*HYhXa)H{CqI?Zce4}bfc8<&}$?>}yEszK;?Vn|Yj`$IRDX@7qOgAyLcw6F&* z_g2pR^Xy`AJl_%VPa{8!f>F?0fFPWTY z6gy{&*yZ0d_D+#|e~Vi!XiHM;S@WQ`_pkph|9y+`{ZY5-pYLy-Tw4~Y)wM_ijl5?)lJKK0n`T(5wy$&kbUZ=pm6ggeujmq4q1g5(B?c2A zjG7H^uFvNJ#ps4DOzNNf-ln()ionrRlU@DtnrrVV*1g-5pYpezbL-Nk^h>D;xy8zN z41cYTe!rusTs&va52uLeGjG~oUraeZb$9lIyvI*BYx0Zw-Hy?E0w>Z)y za6swDyh}zBo3t%%8Q-XIJQF9A5z7|Y%KhWEV#^2r8HXz#uiv|Y_3?|$37-va38}of zUU!sP@!s8nEkBZ!)vPL2_b+ML`$cT`k!f~WT3m+@iJc0aBrr#&$nCwC?uKh8rPg=q zt`S&2XUY=pw=;4!PEjp9mwZi3gEv_uGH?US-?7P4~4+?#jvKpC*bTLOA~TBJ=fMw{Fvws+LUpucE(&f8PDn(kihR zJDnv`eSzQYt>!-|wHV_ph~o#$lh0N6v2k`)kRp zxnWt%g+p%Xc%g%yTVH5QFrhYhQ`L9q_pmnO#Epw^v zZsGOc4XqyBFnMk3=cspCKVVkq))P-F&J_wR+vJqDzvfho{jmcAXXgGc3R}43U~z}% z74JhKVI8_PTz=NODnj4gx!!F3-Sy9}DO_DAdz1Hai!JZn`E*&fH8{Tq8Ae1keqK@Z z@22yo$(L{CI3=aYn^*}=nLj6N>hw+1drxNirfmd~ljhF}D``iqyXUw^_L{}~TlJr(pbIY}%(VNyhzk0Le?B!|76$uhQ>)vh_wCT%x(#LXLeD=>8 zmh*=C2YGIC$err1S?^HbTft>(&aq9Y;>3Xr?kTgT>{36Io>$(Kb0^995{I0h&c>rP zk6y2}@Ht=mIEj1H47U$=a#kkVd{dk!opJDqaz#qt_8UxFdHyUpp$Y=6raQ_0<3G%_}DF?_YoA>GmUwcD-5d@#n9VchS5T zua|S5Sg`Zg@2f2z-XwndDm+#EUtRFi`cGdkKKc8Xt4Z*i@y}nL8zX-F_Wka10F+&AspCv#x>tB=dy#Jamf%B7#m zpoYiAG;7Q23(d`>j=JmbvCXoFc{-1{b4R;u~kD=vZ-|v5C z6nURV%Fc7mQG9VcdS~+P^E>4FT{+(sO600t{HS0#H`MRwUWW69%d@VwSoAR(t=}{G zIg^Xv3xoNgA!lPtjQskxG%7_`u4;Vz^3miI+e(fyo&L7wfw8%b{vY|8mxPls%;)GfH?^ziqMwC)?*#Fz9$voEk+ZvR}FJJ#FpzsL5A zYx;HAa}Ka+?URfQQ+cj@n(^|K%l@HX+xpM2-+HyPCGpJf6GaVNLC${l$7gDQw3>8(Y~i&hkb=!&WUNAZ>2WcMsGXpdTVp)Z1YX2#vL!?PyAzopr09GxaiU0rr literal 0 HcmV?d00001 diff --git a/vendors/ott/built_doc/top2002.png b/vendors/ott/built_doc/top2002.png new file mode 100644 index 0000000000000000000000000000000000000000..043199a924f2959ba983e842908805f6e912a188 GIT binary patch literal 385 zcmeAS@N?(olHy`uVBq!ia0y~yVCZ0AU=UE;&aiZ`m#=82(83=aGODcX5}n*XH1vXmTJ0aZglMpCzI0<=rFH#Z@gL!L zqSj3)NQ~e9ZKiBn@cgR{zZ6bPOj7Fj88QF(g8q=n0+kXXCns{|Z82s&CAg8-cA~qp z)*0&czWVm&Y&&`T$1#qMZ{lx&0-3?n)z4*}Q$iB}d?=(H literal 0 HcmV?d00001 diff --git a/vendors/ott/built_doc/top2003.png b/vendors/ott/built_doc/top2003.png new file mode 100644 index 0000000000000000000000000000000000000000..fb96cebf06a1633371f2d9a6063376fdc251f232 GIT binary patch literal 416 zcmeAS@N?(olHy`uVBq!ia0y~yV3^Cmz#z!P%)r2~%gXH;0|Nt3fKQ0)|NsBDZQZIY zuaKLS{W5RIQw9bG#*!evU=0r zWnF$5+ds)b)2Q5Y(I5v9{=Q^QvI)l4G;BDNoqg zAYCD38r;G+`Skpc+>P5JwKJwPE^r|SK>^qt{U0Y8|&b&|>wj?Jl>F$M}x$a(XX8gQ( z?P{x8rss2!mmmIAx<8-a_4K1pmDQXVtL@8{=KmB@i+&U_wO;t*@}>3CyLP@&za;;d Zm$$}|v+6+iDFy}x22WQ%mvv4FO#tS$j;H<`B7&= ziao1S^p&X_9T3l{gUWnG3Ea)sgCBz1%7Q84Hy_SUI-um UpZHvrfq{X+)78&qol`;+0QZ4ThX4Qo literal 0 HcmV?d00001 diff --git a/vendors/ott/built_doc/top2005.png b/vendors/ott/built_doc/top2005.png new file mode 100644 index 0000000000000000000000000000000000000000..24037abdae1489bd31a5cd01d324bef624d0d5ef GIT binary patch literal 1202 zcmeAS@N?(olHy`uVBq!ia0y~yU<_hlVCZ6DW?*38dU#)pfq{WPz$e7@|Ns9XfkE50 zZdI07$j!>GE`7R-fq{XsB*-tA!Qt7BGzJEiKu;IPkcv5P=P>rY*5GNI__$f&6r<8x z>jV33-qkPLy3ly8z%8SzerG*uR+$venp7|2A@kw3l-YqPU@!lEVD%WAV^UN73cOPItI4qZ{oNg>)igYoGw|FNj z`8%x1fHPazl~*Cfa)aB`W8z{aYRZ#Z?h9SJG=GJnks;XI{XDa3_aD3Bds)3c zC&8jZKbLS$+^li9OY)kQq_0|rpW~C4Eqm3(N)p#`UYxW*^CZhz%`1l_zpDPO(0`x$ zI*cZAUg=Zaj8w zt458}^+g-MM~VECo^ox`hnM|z*Bk=652@R%ew5LvZ#s|np352Mf(`4wGXzgFT)e&L zQ1bn7tMtqr+r>5@LZ!P^(B|P}-SQblehW{BsLJsFH1(3yQ?2bOEy&(I$8YAcrxq`w z4qJ(A-|1a@wBz8u{q3uIo*G^Y%&A#*)kxLb_y@VA%F*6ySKd$x-i@YF53C~xU+miuj;q_X&?H0dq(>+Akj#ahbEYMm%`J8gEb z@s8hT4bJNKJ4Wnn>$&1@a(hcv-ra{^HQwJyi~hFue&3$xXS;Zxa#!z=*b*k*q7tT% zu{&-uOk}*y+x9ZY%G!zn15W z`hQk_VRq^1$!VwFe>vK1*}Z1(zAFK1y)y&u2L)?wyX%mw?6v)w-5!y1ZA=D2St~5N`o{7 z*eLh*e3fzZ^!j<`b~egpmm;Q%*QYgX7c(&Z&-n1hjK`8@k2fkPqlp& ze}3#c$JQPHL&c6yTy?JM(#(yXt4l6q2-UZUD?I#|)bQT)%tr|ke#X-}?k5yhNN(9s z7@MuBPS;fA)yfysvC8eL?=wo61&Tsm=wfkJYmhl$coL1TRYJQ;4 zAN{YzrSURhHs&rjwfFt;{5ogy^Ysf-Q$ycQ`F?KJcb<0Jn#{5Tr;mr9`m=?dm;Zpp zB29ZkxuXutyv%x=nhfT&9+9qCyg;GnRQkP*$D^OhwJBNOyl}_!8I$tD&FX%$jdn>y zIqZG5P(raxtVj9RyT~_7WJDLWXOv4e8SV`JYOqR9Yv$XtznDMq^qi8P5gK=MtBXk6 zgKqvmq18((T}n^NU)>x$CG4hnbKqBj9TrhruWw0zv*}r+$c>F@lYT}1cziO@{`9`y z#YxZap1s51CxpN4Mx?>H zLxJ}0k9$l{#`b=GSk)1bcg4c^@s3M{>CawmKIXXYx5EY@F8&(R+m|h_d}|DIn%FqK zH2iUd?ISM@vk7ZsdzDM&JHng}GWy-TYN6Cwp*rPzcC{~mLd`XcQu(!lT>WpZ&snWy;AJ!isj{S{A}C1;)}$%T7HA zz3^W4bb;N=`V;D@Q{Nu{ll@R}ifGm>xfk;V<_dq={UUQ(;iRI>>(=@weg;c9&puSJ zsLY{juiYGKEWDk2OFm?7;C->Qz2wI6>L0wlZOIR` z>H@77KCCc*%o|d4qx+oVLf%H-53{YT80VajW~_X$Zo6Drn-fQI@SZ>pE$KD-ez8$E zIW@K&-X*`Qra!rpM{lM6zt#lFB2V_txQri5x_P=AvpfW*ZP$v~dDOexox|&3pKKZ{ z*B0BjuL+Mf9hI4*UZA+<(jLJ&9UDQAX?Nx}xyeKq+f3G6>8#9u-Sj~+gWr8l-uYre z`CB?y99CMQ{%V70oywgk8OF&IuJvX<`sOm%kAd50%9V`*4pYs!^lociS;$qr&-n^K0%N*VXF%x_ZEO$JMsPS0j>QV0&tG3O9dz09er5bgL=fh>sId65jyzB&Dv2gO9>6a$wp zSIIx_8}raodV<=kKh4RC8mmQY!zvb5-wA!SbY*!&UGwo)wHMde|Fo+c9`w$*AQyG_ z3Du1jn6#L?1|Vf z{WFPse(mF4eCWRuqul)u*57LQy?$&=sC}mR`Td3WX|wHr&))r?XTJY}lAOmbd-w5& z*!#;~7H>L!>n!`#fcr;31Wmd2opIW!Gkfw*KYg{(Xr}xgwFlGX)|#8Zz#QiMs8!-M zv*QH1tQEO_uhZ1sFtPr?1@o1k9L;C4u{^8FE&Zjq^83Y2l3cgH*xorDK6B*@p=m!G zcDy*GZ1d&I4v=hed;gk>l@&L>hkoDnKQ`n>w4-yT$upa@wIZdz1Xn6+=Cj7B#;LEC z3t0dAzL|dM)BHy>e!U1&6Hc95=klr|QHIY&vwQWK7>3eK4NtAOPueX=G=6sY+;3*y zjT^o=a7&ml9`-%ta{7yNP`ka6i;6SNqH^7RTV-ZxueNIJ zp2MHDWpiokb_c`1T0i5?zjR-sCoA>nJzK{m(dUgl1>bL+>16MVfAn4{!zF0v4E+Q7 zEo~k$Qw{nTY_tsiKH*i*vGZDgJFcj=u3`(6d!+hdr`?(x>NDS*iR5eiclFr(72UzX z^`?4y=`J>^F*~dU(Yp_{F(Of*ro6Pxc0hud!=O-{&9|aI#*%h zCtlaxeIf64Jf7!=edT(+zTma@B&WsmX1BY_a88ZhsvR?OrDetHLx(}0jj(m9OsdN5*=dRrj&HDS#)CV%;KZzAT zJ7;;C--cInkAC`bckxr{rSB6fW9yv3;Be+c4~rGuQ=VHL3Ou&?abMl%xnYM5J{QYA z)OdWdF-Yr`a><^5LGBT0HuhI|UwBDN{#~FfV-&~8Rk~S2!pZG?Y0JU88-!;Xafv>u z-EO4M@EWIi#cnHpW%VB5oqfn5`PsXN4;T0f>zA}RCL2#T za?-2+mzLLZ{{_eTp7TrpP43&U5CR@*sx?iNkTKYer0 zO5c`Kxhlnmdy?fkzRy?g^55p~tzQ)PbN+nRrA=O05s95s91R8A#P@2JC(BMWouFm- zL*4avPoT?I=Yvx@_qt_kb*-_{5_xeUyOk-HV`-CDrlfLLRA1+eLyfCu2)C-mc75~w z$>W{>K>m&QMf>InPkQ#IXj7j+2Sq!(}E5%ajx5Q@WBF!zn8z%jbXRY7zUy}zH;oJRZO31G zG8S{fxNK8n`4<0v@ACam=(D!AHvh(yr4!^-Xa8J~eBH_Y)XW=7&&n0#ck@qYYt8b% zA{@KYzGc_BE0dEvl2UK1cA4FH)2MW&+Oh?anR@)ovvf!-un9e ziWRr#Kk#7%}@(+iAGo6J3_^EJ4qf1l^xEBjVXs+zI1u8UE5 zkzb&)=s9WS=9JFOf-5TAzD_^9f>Z6wL$#y}o-z_0n>!Z^SbgdH?)q>c2iwtWa-WYC zaJ##TADX+^O=@44N@1T;SR2jf{{@T|C3QE!sls!>Y{- zW|nFRIEn8>U2MiGKUE zdP%^lMxTX=ceN^a2yQajJ0)W7ugO0iSI3pkRht<#bJxtcvNa#F=Y2BGuruAs`E{j5 z!u>SAD&K|v7F?(5o@QiZWbDxTa*y=}fBWn67mskxUh$>RW$)t$rAf+#*CwtomiqcN zFgQHzx22T91LfnUrV{rYDna?VVD4rv?U2|Lx*c zqIA@>HUDk(n?t+5w)6IVFSyOq`%B&FeQZNpo9@EzdI#!O%--qr^Y?9u<#`gfi<0(y z5H2fJs{F+_KY7l+pLvPx8+Enaxb68q9a%Wx6R+RCm$Sc@_pEr{ao@S;vbp};xv?pK zew595Ch_B}-TxlJjW!yVM=Z9!m+g2y=|HAY$=I)x{axh$$wVYf+I?M%mvQM%-O^d#js&$%kGNMCHp!q{|6%8@EjyMkdKs)# z`Z6xI?3>9E8@(fyk$aB*4Bc?3yh{1i2e-u@=R}fvE*ofj&N%w_VTYA@F`Ml_&ySvQ}(6SwZi?PE4lf$v}D zZ(re^XyE@sV^aiw-mX{QK1*q=x_#~O>pM4ZoHwsuu&=SI{7UUYyT`{0w`OofROGks zS71KZXvTt-jh8$g6m|+MD0BWQyy(NRG;g9cYpru z2(FY>AKVVhXKRP_GfuSGR&eFa+R%B)B~j&>anfJsZam(5%|}$8b8k80x5E`@c^8TcV0?fXU{c^6|XoADb4~8Ex6>Y;-Ct^DTR4qpT-)#;jk7aejYm&dy)c)u8;9 zN%Oyk-h_kqAJp0=7$m*2+@#)eh3)s7d(SeC9n;k|m5^;uT0Ut((>lw0i#(ryIxLx; z>GK9(5RljxOy2lBZ&RCW;ShQ?Nik*DaB}(9Ut=W=)NeSjDpO0|)2?}R6CbM_&uH0`C zTA_Y9-f*IrMOnj*3BS6h&-~!GY=4rH?tzxu)11#5FXNKDVAOS4dtzl%kj-j7u_;nM zOIT+Jn8~KjHxKLHg8i?=QI(^Eb6^HaSO=oy;%UC<)c+?&XY1C$9HvhwZR``i{BcIS| zFWzVOo(bIEcedA8bhe9%70cJom5+*7^!tkL*tG9$QqiCDFL%}&e98D5?%(J9CFg(7 zM~~OD_jaapdM9XWUJVhk>oM>>!gBOMu)SZzdY|k>uUOmLVW9>0$_!sEj9DpoB;)qc z702vtcaj3Jnr21;l4j<#?8yC-;Wf`HCc=*?hkHxEf5A2lKp)l9~^_Cqw z=bxE0W8u1@a>3~_GlO6H%oSVjQk(Q=;^bDL8%eKqIUWA)D^Ec`5k;eQIBJjL(ZQqX|e}-5A$fP zHrZ|UV`;2hn!!Y|oc9OLIj?&0P(erMF3Wj=4S6N5hT>ZjieFcCIB|Wt`~1M(#KP(A zl0HjVZ)Z=@epR?4FwgI9Le9~(>aHGEO@7I()6Eq#m8O&~*6xzbbQFj_z1h=w!N!?~ zCs^3(&8W+q-Y)s(zryUO@8*Xlu2?;NqPzIu#Zz{@1YZy|eajTs>`mzvUH1=?ymw^Pec!TQTr{>=T+NQY_iCa`uC#&4+Y~6b-L5 zZTyrdr;$+d>t*As240Ju&Nf`fH+UCHFJo6IXXjdZgS~%QS3z<(yG>i+j+_g;O>e}W zZHt*+%O4s(e_ijey;)!E z;d;qrgLB8@p%2yM%<-r4yWr?6$*-(3J`0Y1&_6ffqxGxPD<$WN zyg7OMkAA=I{lXc)r#2>?>`bXIycM7P_{L@4eCPME4Sx-cPyE@wJ>~1(+c8Y_M?93h zn=aUIRawn9Wlht`g2lfcH=orDoaJjMRk7&b&-qz@gg$-94GiYLV*md#!|%sAUu#|F z{(e%wNKZa}_dDTN@6K=P+8q0hv-EfRtMtj9{_je^Z?BHkySe-p+heh~e}+koHG4!O ze|gN9DEN2d;i_%ZcfP!RN9FCNh&QtTYA$@udYuFxSdkI<{AqLikr%p4a?+hWYYP@t z=Os(*z9oBr|IPXt`ag?bJ@&i99w?u0DPNi&QR2o|yu|ZxW{bxpwY{Z{hrT%p)i}G! z9Cq6%_3r4pG7%$=Pm4FWt~alKA+r>82B368@c3`!2lU=mErk{BD>e##R zu3(-g*LF|(DVwow!GvcI74JT}D|$sUM_;W~VCCdK-Ji1*Bd)Pzd!O2F#&A}2%8KeB z-O~$VgqB`RIWXsl^0H~AIUAnLDv04;>($zw64j(@>#rZRvvp_A+o}yN* zlk=*%dgB|@N{_R;#wC7Bj>%y;|4MI@!^OD!XOAT}$n86x|3&ik&b!Mkq@6f>_8z%> z=p(;?`{%cQthWSO)0AILblP)WzhB8?*3$F+J7295UU|sdTeHy5Ww&?Xwid;`Tw$fN zuEs8rnEUKsCzo8QRsQ?7wTWkrUz=E1aMPQ4apkWI_AIgQ*Y_{tODPqw`}*0g!>Uc> z=#7PiUNaQfIEU)(vV^`-7b4^%j=A-F+o? z@5Ayf$K0evb9YZ_G?RRMgLQ|uVu95kMIGH`aUselsDZ0&y>oUk!4k-*ptbY0PfBD#AbK z{>*2U-^8{`A6vX(;-M@n&vTL+d^6JzIbZ0xz_+|x%Q6Ln?zy6A8+`rwVmsk5mIRtG3mOm(aP_8 z^|pKSElTK~Qg@Hv6 zyr8;%wnyw!4xv9+yA8iCkF!WwJ=fo_-BM)NlhVm6KetZ4c%;qFyvil^yu4ONP9?fb4OA9f`BoE_I6<{OFppL^#|kTkzs(3@UeD$usPy2;KW< zd-{s%t~Uy$i>w0bKmSei?pc|g*YQ#Dtmr)E;7kRW&47ao*e(1_w(>yXYt%T>*qc0%ah&p^e%q8 za%Lto8=p+*kwm>+RY6v>r+@KJ&ibUIs3KP1{{8RqAaj$o_vfG5WN5eR`8TmQt6Fcc z%jYb}0*w~HaYd8Gfz|C(&T}@OVcx?U+hg`!@&V&L|E25fr|&v(#ZYACrdKjyZ|d2C z`wdg_{c1ITE1r41`k%n7b??gdU&`sy{JOq>&#QokYd38_U$N;pQjRT&3*SYxd zLBNUWX^a*N{^Z$e=<2e%Iap-cpZMGt|Lf6KH{MylI|62R_$deH7e;bTx?lM+CE)nv zOda0R@2N3~-c|A?EA18-WMI`{cdi!-YLbnq@oz z->>Jt6FFZ!QKfy_x?gWqissfccS_8iFfCk{Q~z*!K>N2l4paAM?}&79C@czir{c9# zNIzE3An4zdtW$?yzWCo2t|uN_@#NW?ri!OUf=3?v9E`2&4%ZX+_#%oDj+?2n39p61`Q%M3j3Jx9z}`}@jOEBTj!f;b~;=d!8U zQ9EBR&V2eP>hh`HK<=k%S&CBquFmJa&f}dLu&%f$XJYsxHJ-K~JMVpnQJvBppOCY7 z$^_=;3l4NGG}phoN~5*N=Wa{F!}FU9;M214^=N$jF4Efl ze5d}!%h?~6rkE}bSa(?5{^^`!`@5`8tt#mG_TtKaohh#i?4(-H?krxk=w9N1&3z`W z(VHWArv~t?xSts4{z~VN!mA${mzPLx{XMlbF~rGoiJs_L3zx><8tj47%YP`U{FA$0 zslKYEh<{E|XLN;8{=zc9kJb;T8${hry>MJ^s_CDwWtF-=CO+a{9(t;OMQ6aflY7@Z zpUlth?exsUX{X^_0}mfPcJDhu`;VqAnzcV~`a~DM#Fd49f8OnUFDASz*?#ta&S`eS zUw=f|y?DAVXYQ6SlD$QSo3a*8pIr7?D3{H9{>pi?CF0E&|DVEj|9F(0&G|3w0mnV% zDivQoH8}A>@8~Utw%a9Q9Ck8$Rt6SbIX!cCMa=Tcf7RToc0!A>$H~WZ9{bdlPkngk z)PKv(J|E34#}@q1S!i(DB|l7BH>mM>_5KYL)n=wnatYXU)lH&z{@u!)p8f7px~7F0 zjmJHMZTFX4>9lyr8&|yRc%xO^*C+RP2Cv-aU~-ygaq`D^VTyNOPj@vr-SLOV`^x8A zp%c#<-B=UY`u>Nu-Gg=Bdks!=9NzcSYjfza58t?>pK%?LTokmSD>J7H;yU34eEUKo zH96AM{#*(TV2xk3R)nK}^Q}0M&<{&=SntZBviZ zobfYp`TAI{&<{&9mOjWnm;YsY?vrDR+mpig8o1O+lm^bY_x2j=Ek5N}A8)o@i&*vH zQeNDmwE?X0r^2`n2A6F~L53;A;C?(1c)9ECTUR$TVY zZGFArnt1b+@Zz6`9!5;PpZ{}Ja{YO3_V9@5qW`k=;vHgF-&vUas(ew8+`4~0dhzx@ ztWSPS(Q}mkdEwE+$=TvnC12%)F4$^hlq*eNfBm1ISG$$#|3evz|8LC5e!O*mu>PUa zttRXL&NcCURumZVtLD{v6>yMDvz!0RI`+v-8*cCU{(tA%wf#DB|K*{kN%Q~AU6<2S z_x62Du)>?LEqgEgnF}5B_2V!LIhmN7<1p>-=ENPBn|VS{x*03adBvaM8_!`gqh_ji zIq1T_RacgKxa=&v{C6wwWzl79C;3eR%}h*U*h}kcZ&~i&^g8%z{QR)-qe`F4Hv zxt+&^o(UXaVBneT>EamD@4ee@>ff)6iuKr4KcvRa*Qrx^wX@hx!&}ehR?bJ|uh$nA z`~B*2iWFLBy>|Z5{u*oT^?`ojCS@-^TQ2{-pFyY2<<$kt_klN}wY(ST7Kn#VkNDGZ z#q-rEL9a=hTpoSPj{CZ5f8X5V$kOX8+3R(~r&T6A-*evV=bStHt2S-c4mnl$teoMe zZD7%P714z76>r!+GK#7+rye_*5iOnn_1n>#LQlA+rtMpl|G4mzK!)<3l23a5FPJv- zoDkJwoxD81;`Q_TSvK{DQuXb2IxU^K{)Khm`+&S#vMFj4@9(hsdrDO6Y>n&vQ>?$L z6-uv4FaMsn+e)UoUt@ashpNZ%?X~hxpN8g_O3gfF9DmXLLfM~o-aEFfUv|qaFcr7? zeD(YHx%+y<<^JC|{$Alyixu0%7lmw>xF%2OynJ2drTMym>P20SD(cQFE`vmJE=dL) zRS2q>9;OkzBkPPs?c6K;Yq}hlaIKaO)(cvcx~%BeBOmpz%&Q+yn&K}TzI;i>DW_Y7 z%dB3StVj|#*)F@NsNhIz`_ttGean389p-i>iO+o>85>*r#lW3QBtpgP*23jw1v{pP z_Lv8yG%fj8bFF)l)!9RqS3b;0I+0|$Lt*povWcCO&istIto`bT(6q>%Qx07>b`4gu zcA45a*{}TSY6+K9!RseE_L?ts5l-n@=HnM1s^(|4ePPg}RNluTD<>a*Ji#vaa?!fa zPQH)0?(9=vvTWwFBG|lbPG82-%X`e!`({hMTgSBR($Vrwl7)A!_>@a-n5s7`Hto*s zWo^4pH>@qWyyL;ie~Z>>Pk%hGde!CN@7vzhsI4eJcqLe7*~;qZ)E&FUUahu!d{2zG zT-?R?Zr|P8S%>d#4G5fG_U2xg^gF%QjHTXEJ3GNDt+KvvTlw(ap&3@2&)#?f%5vwL zY)=08JmKVdQFHb0wce9^?D=Q@2`MZtyT9G!w6CC1<&t?b1MkEn-&${T@<)Z9gO8OMz^R@S7_I-b*EWb7Hg=pW( zEn8Zb-#1LJi)8=PG^d7jUDo+|uFE$XsrK8?VLe-+Xn*L+(sy+qek|V3_Vk-sf!@o< z-%h41)&H5*JM){^UZ1$k|IT0*EALx} z#PIq5P95(R6ZsXzf4lg{%0dM#PwNo3J%_I6KKZt6Psy8)?fIuIxTV~7-nuy>{MQc4 zS9KxRlQ`^6`COK+m>w+okt=@t#M`rN9&yLKe0=TlCtYqYmzNEed@ii{A6FSX$_)Iu zYwp3fYrhl*yV%~E=TqWz&G4~`fT+LEc{dwBt(v>%9()V?x%Wct`QU!H$+rchtAskb zbVK`%Ja5(9N&2`#qxOzUm=->!r3`LVDMHUKi0#g8Hf(8T-xT?!R68sn9ul@y^4)+4Lr#)IHY5SKPSb!Sxev zHhx`fHoq9pKl>K8Hz>K<^hn!0PM4*pZ9jV@9Nk z+^%GprJKcK*6t^wu`Q-DTHdOG=6<+LDKkbU| zqLa6e-u%Or5m;QdV&}#yZEo%>W(H@i*t2m<*V}>*-Fx2h}ZX$49Kf4?O0opIA9 zuMjrTdzUpjtUMx~mIij6vZ@g}psR3o(!597rytkx&h`%LIJMwV^e@pVv%jsdd|+o9cgl8K#uvGbCb)%C8+tK-~i=z3lzBg`O7<;mOI+Y(b-RI665S@}Bf zTj9}j`o`1jCOfRKyD%qVjZMJ4eU_zxf$w*I`BFJQX7!fHp2zx;e`qA+_m_iqkfKzqzGD`ogm#3fv*vY#uhg5HMbN`SfS8+b?(9 z-8`kSe%F>S3Yt-m9Tlf->VNIH>y3utsZa*~C0y>)oUEr!UNyDkim!D>Xsi3;O_E$j z8b^$nq~?9nk^AwbcXh>8_S3?V%h@-DzW7qHU=#nHqk13f!ezs2+}pxe&2M(%`B&w2 z_-tIJdeNVyJF*J@=TshI-g)ptRL1eDlX45~Dnj$ZckFt(H_kQUP;m57x!pSaK3sEJH~3wCw2A7WYd(jZQJc4le$tEs9wKa#@2{#{wO#rSBbwPnEDcb(Z& zKl;7wvReDjqjulSi<4V5-7cNK$$awUA&Kf$8vkqFedK;WpKr_ej%;UV=fjK__h(6; zEs6G86>nAIb)oR{hcDCWo@rF>PrUrwaPxe*e3KKx)mx8RzB>DB>eh7{=W3^fl+I7_ znvl6;hd^L!jfmyDy@B7RlurA#<;JI@{USk$UCM6xGx>7WzXv|ctNPJ0bMl#>^Shdw zo)&b?vDmn^?~Rr549x@nSK2qbR4<)pf9-FoZ}s%5=f|#epJo2qx$u+wD`Qp;`#||~ zL9?@t?{;L5uXPOfD6qd!dDU9dWAD?Azj^2CHm_~unbCE7ZezWWd64*N39I7Q!W8au)y1Q`r;r z@<~OBO_%vG4;fGXEz;$!A3L^4>7)n*yt>dnWA2J*jlHhXrmP&hIxigUoV#%{XXX;F z$MZD)>=xwzQQrKnY2j{FcK6pQv!ty)Ojy^#>>ybv?!5aF>*6UdE=-{Csy`?FN##^dGY@lVgww08EiM{+ zAF+DuTPmy}?y}5}{fv9!E7{8&F-A5@>&31Ff2&YmGT(gNOBdPD6@0Ir1iw1s&wnNM zj?{BEy_N32TWdUHS&#pAxhkoeog3pDTf}%or}U2Qd^+hF5WFa5`HVxDcZr~%_`^PFe@&VS_QH7_>$!@fCa@|DN; z=AAP)DgL0GQ5{0O5WV}Xuj>XdqRg~?(DASQ{2z=W8*=!hiem`3kS(NP1pE*#9{G$ gi!l7O<0)q zi9@uQy+6k#iS??8An0fvz)hJ*7 z`>Eb?>jn!!u~zlMtA>2~En9DyF)U|az3bI3`Nz!-lWbGZ`7o{OZ`ry^YeCh)HKHcF z>i;rMw77Hc-5POWtrg9lx_=v|0dv{xu zd=TAt{@N4f1DrcA*cr;!bO&49WnA*>`!wFN!*jW&cstt3%!?5>&yTC&m^}4M$>(le zv&v;mPnFxRJ@n8#yXVIY%_|i(-41OHAyGUj(kH(+7%ldXt-?i@fy=Tl{ gcUL?)%KAc>^{(r4#`t9w3=9kmp00i_>zopr00=w0EdT%j literal 0 HcmV?d00001 diff --git a/vendors/ott/built_doc/top2009.png b/vendors/ott/built_doc/top2009.png new file mode 100644 index 0000000000000000000000000000000000000000..d6dc8239e314a1df2a1db20272b3ac9d587a6616 GIT binary patch literal 347 zcmeAS@N?(olHy`uVBq!ia0y~yV5nkXVBlwAW?*2rIpf$;1_lP90G|-o|Ns9h%PWKg z25sBAH8e0NH!FMno*lax7#J8!g8YIR9G=}sV_;zT?&;zfqA_u4pkp43AxCk`j^~%e zzc7a=&%0nP`sjcB%9AE?Et@ut=^7}4ZA8W_jm|Y=$FT5U7n%b<|7v7 zekpdvtswUIt~wp(cv{&wODmto`#)cM>_SHLmxD_l_5QtJAa-r()TJW6B3A3?XO)HZ zEfD(}u)KwBx}~4*BJ1aecYZZ|$+o(gFU4`+)!@Cd!o1hjo~<%+?g_58>|eX`Ypv5# z{eMfJJ#$d85c;g5c=6|_|9?9Fcl@>eFTTC%^xA6&)E6AoS{ZoKJcWUQfx*+&&t;uc GLK6Utu$yQA literal 0 HcmV?d00001 diff --git a/vendors/ott/built_doc/top2010.png b/vendors/ott/built_doc/top2010.png new file mode 100644 index 0000000000000000000000000000000000000000..6e7a99aa92e998cb0ac672c7510b320926c217dc GIT binary patch literal 149 zcmeAS@N?(olHy`uVBq!ia0y~yV31&7VBlb4W?*2LcmDbZ1_lP60G|-o|NsAQ+qzX* zULiLt`(@sarwj}Xj3q&S!3+-1Zlp0VFqnI~IEHY{OipNE__@10Wv;WtnaWC@b6o}> zif`QT7B~3tX~u^Ci3txj1m>+vOq^i2(ehj|<0?4@@hZ+QG56nBF)%PNc)I$ztaD0e F0s!sTHZ}kN literal 0 HcmV?d00001 diff --git a/vendors/ott/built_doc/top2011.png b/vendors/ott/built_doc/top2011.png new file mode 100644 index 0000000000000000000000000000000000000000..2a27db90994d34b576e4303fed94c7bca5370b4b GIT binary patch literal 126 zcmeAS@N?(olHy`uVBq!ia0y~yVBln6VBlb4W?*0lTWqVwz`(#0;1lBd|NsAOTem99 zE97Qnzs%e5l!1YPu_VYZn8D%MjWh-Z1_e(S#}JO0$q5Wh&#c(k`8 fk@CJFMS{VqgN1YA9X%Na1_lOCS3j3^P6v#@%)1q&mO3lC_YO05?I5)BwlD{VVSXo?d~j(M_NhmHF7mQPN}-F?_c8k z{`~uW@ArLSUm(-5a#Dol@?}1^WXg94Win}nw>h(33OJ?S^n*X_RAymFnwMqnvRe!P z|G4PzS?uQ?*LagF^XFZAdTWMBf^mS+xBXokXWPhb4E?xnLxN8On^)KW(#)n3q1KK$ z7FWXG^rx6TQkkdXKHJ1rrMS-io7?@I5AZ`^59ptQ jA&iwt%jRc&WHmcjIP34*71tRU7#KWV{an^LB{Ts5uA}%s literal 0 HcmV?d00001 diff --git a/vendors/ott/built_doc/top2013.png b/vendors/ott/built_doc/top2013.png new file mode 100644 index 0000000000000000000000000000000000000000..fc55f78e044a37aad648e56be86c890a97956d44 GIT binary patch literal 264 zcmeAS@N?(olHy`uVBq!ia0y~yUJARox3dp{6t!c(l>AFM5`7QZ=BugAMKjZA-#`i){J@09; zTI_?Al$%?(IwVL%mdw;RziMTKZI#}SlDbD$UvqdBS2u1;l?a%b^qRZ!r_zaC`Pl+X zBiQdXd@H)XeRALQ#E;=o_Z7N}1)tBaWKIm0 WTim-TF^hqLfx*+&&t;ucLK6V#mv6fO literal 0 HcmV?d00001 diff --git a/vendors/ott/built_doc/top2014.png b/vendors/ott/built_doc/top2014.png new file mode 100644 index 0000000000000000000000000000000000000000..f527f7a7261365fedffbb4ba8fbdbc9e89b50f7a GIT binary patch literal 135 zcmeAS@N?(olHy`uVBq!ia0y~yVBln6VBltAW?*2rVD8_+z`(#0;1lBd|NsAOTem99 zE97Qnzs%e5l!1YPu_VYZn8D%MjWh-Z22D>F#}JO0$q5Wh-`?}^>}i*fnBjP1ZewGo pxQ5uF0|)r0FdIoekvzb_kR`(0B;_dJ!oa}5;OXk;vd$@?2>_|aCwc$? literal 0 HcmV?d00001 diff --git a/vendors/ott/built_doc/top2015.png b/vendors/ott/built_doc/top2015.png new file mode 100644 index 0000000000000000000000000000000000000000..9cae7ca1570aa71655253a58cd38c55284f4d92d GIT binary patch literal 143 zcmeAS@N?(olHy`uVBq!ia0vp@Ak4(fz`(%Y%JZIqfq^H$C&cyt|Nq;zZdI07$j!=r znYZI90|NtNNswPKgTu2MX$%YuhMq2tAsjQ46B-(r9nSEmNX(UO;89cP@09g8A6^bu0IY_;N&{IW}+7Fgw@OZuLK=x>)x?;MX_<%m8&oE?(Pb8+hyXgZUGuT@LuQI zqw~$TwHO0LlJ_2XFEXX&gy4_4tCrcbZ4dP|UCV#xnnbWz@?K{^m}Odgcc8=yrU;GrV+vbWGVTyee6e-%g&28>iU#SO-jlzSmH!o57I!FuNv)uB z)^8pS&aEmPWfJqQtld>(|Hg`=_10g_`gzyuFR?oO{P>Y|sr|R@|0+{MSuOPLpI!E+ z_1W*QMK&gq4Z%uzTQBvwKl>V zc=lHK=g|8p6In;h-dXwf#-`Xg?l@a)-N>9q|CF5fvqn?8t0 zR_!oaqGA~|rFpYtL#*w+%`FSq>lDk@c_qAwY+@JV;W0kY)cBH}x!`eQER&|@e1!wI zzZ{sm*)Ca2en#G&y)5NAAJaiaUcopR64In1|v8oyiIw*AoD_2}qaU-7RN zZ_a!_P?UD7ZBU0atlpk0I&phzVv)9jl$Hki&fxMQVYhJMG zzrG}#P*cTm|3!{>?>qbK6%O)WZcD9RkXp2DrP2e*;F$*&_s#bUy0^@C?)IP$ng0sx zjcu;k8Q)svZ_OQd^qJ0$XNl_#_CMHh`itiFyt}(fUte1ry*+EXquiMl8CUl`J-K$4 zQ>sXg{CzE@rN2L}_43+L_!}&j;-70}m0WH3W|fujc)QAK?T69ZpOtxwV`^U&B$rukGfZn#UUhy7cjTB3P@;T>bNZi|$uD@WKM}kk z>C{+ckkT5)d|GBhliHD8!K-*DDtSIgWtVe(+-T|8{`i7qT(A)1X2mBO6YgDLW)7A9 zpWP;LBF#}JO0$q5Wh-`?}^>}i*fnBjP1ZewGo pxQ5uF0|)r0FdIoekvzb_kR`(0B;_dJ!oa}5;OXk;vd$@?2>_|aCwc$? literal 0 HcmV?d00001 diff --git a/vendors/ott/built_doc/top2018.png b/vendors/ott/built_doc/top2018.png new file mode 100644 index 0000000000000000000000000000000000000000..47cba20ee2a9768f3bf638cb5ba6fb0c4c889434 GIT binary patch literal 150 zcmeAS@N?(olHy`uVBq!ia0y~yU=U_tVBle5W?*3WyDv`=#0l^TasB`Q|F*4LmE{$3 zv$9|2?Rd(-z`$4%bP0l+XkK D(Wo#E literal 0 HcmV?d00001 diff --git a/vendors/ott/built_doc/top2019.png b/vendors/ott/built_doc/top2019.png new file mode 100644 index 0000000000000000000000000000000000000000..34ddf12996ca94f09124c544992e0f5502c1630d GIT binary patch literal 5801 zcmeAS@N?(olHy`uVBq!ia0y~yUFSZ|Clu_IOX< z@s)=eR@PV*SlwK*=5a%Rf&4?eLrcCKpV@s~o@t3#v~WU})y?FC(!s5T*XJ(~_ zu4c7btMiNFqC`)8c)DRk$-imu7L|AWy(iaHe$34weQ~FmtrMpY-+L(S?y>#{#^ZhB?rH{2Mmpk8I|4#Am47D1^*?AZ5^e(slbI9ON z|MKJOOa*;}RxvgR%--@=zGZf|dBFjBaRbv?0s_u5{{n7Fo#Cz7wOH0U>q)rx_m?NW zNdLZjz*c6bG~3!!{>^JQe#_hEv|#t{#@8SA1)CeJ^_5q-Ya*t2_nF+&v;SE+eokHS zdCA$vT@M&?w=yQ>u}qixdG*r6%xtS2vhp@|MdmiytuLYYtvg z_0wymUrgLP&G(Do?!AhgCEmpg(Z{Ca=prD z_-#?~s5HIQRo|?;TT!Q`^pDZs8+H9ANjJ4`W&b#&|Ley~z1)`92HP$t6d5btGO1c_ zsCq$n8GrVk{YOjGE(LzMIXUbBZ{L4`ubR@zcYiMFIs7SWhTm?F{eP^~wlBV^{C-~d zt@$#0P6uW^xEpo1u3*htpVh|5vHkwStE=3x(#!k%4s=Jg?o>DPxqYqS_Lqx-KRUx? zKP(D6duFlnhgo6#)6^4~MQ5(swJr3*WgvH?4aWD}p~<{g{JPSjQSu4X?iJagtI*>1CmAG3IG2{PDL8LeW94)?#iep`LEMl|Txaj?bTLBUPE`{j*J z+&JgnF)KG^{=%Ei?EETc%I4S~Oe_60&AevL{!^>JY3uO0>@z;Gr8%^1Z|5!5+4mnb z9&wN0x$Aj-`&sGg-#Y1X_ESO4hzpB9 z3d-)P$u8!2sK5W@+zZ)X*)<{zVlE$jZ~Ax3PqTJ`dDT{W%lc!p7A|G5cz(J0p?bT3 zme2k5>&o3H7W`Nd%BdLA5vOf+{vF$`5qdIUthAH%H>o1^Yr@; zajUfo8UJrClE2NrW82S6x6j&hU2_+FE`!7)#5tSSOg-l?KXC06pDm{}*X?;6aPW=W zwcqonZg8B{u~S)h-TuzbFc~S1zR4k5Z}#$Ru+S<=Z2mG~6ZgZgnx{KweADLRWpRI( zl3S+yT6u@}jfA!7&t0_ncwP8Jw=CQ-aqHu4%Wh4~StR-oKX$zsDVZ?`|c&_Ct1lQ^;!NpHu$oevxvAx^%%* zzNf}I8DCc=?{lrLtKRFg`s|ilB8&yUIIqv%l68Llm9{WTiw)k6eCK+DCZuoXJ^OTV zVad*Bk)%%-zyHe&+j{C?qbjRqYKqiSh3$Hima^$M`Bh$$5I?_HX7|1I8X%p1k~7;x zp3JCwc|c8Nqs-G|-;T}Q9i7_~uDd)yTl2(9|F4=SE^8j|?0hqq>0yI1H~+M<7pd2_ zE^08pzf>XL>xP260NXFtpvjXW1GUx`X}ef+E9=)uNVuA&c%MV|E4tvv2}n5jxw zlmCAD{XgxM=VL_rr@1|k-s7q*zk0*L{jS>QwwBdhIj7*hb<$#_$^|L)K!n$1n$|P! z{XZwJp8KlTxjFJhg|^S8uKS`;ttOnRUHNlv-Nec^OZz85deg&pF$nyd-Thu@!uCnB zBC9_;&HL`G_q1r|qjkMEf6utRrg%>SBG(?hDy6h-6l~?dhJA>ASg>=dKL<{OIb_Er0daW)7Ml zZ+So!J4V<;>ibnw=UA@Q@`=_+@>}isH2-R!;8*RdT{E+u%BC#OmG1s*#%EcV`SstG zvPY)N{w>lod9!+Mu*k-}cfa~xd6^N*i4q*vzN-S4BNnf}ma=)>)#jABF2a+2b@wa?y}vBV_QKC= zeM&D6e*C(y{HmI4#QX5a9={H}tA6RY_5N(>eOniMRLQ^SldJi{`>uoc{;fb2+nwi+ z1-)7AXI7K#KJm*xwq?8=5zV_F>%88`@Ytiu|5);4+hbh5;b(RyJ<4)`*lyh{bJeTw zR?3qX6{_ybrh2)r2rJr_bU6K0<<+Xr&63h~!RJ>uc^s@XOFq2(>mIw`Y~@G7a(=|v zu8+F8DgNx$&#R`cz42jYRovA@#evXdbW0M{)ViXk?0#I^GH7jx&DB?;+j5MGfBv%j z&G-HAG~YD6`1|SiAJ*O2a`McR*T3Ib-{Fron|ZUQcIu|Y$urMi|9-K2hde|_$ZGbI zE`w%pdAzuc4Qc~~izVNsN3LewenB<=BGp?d^{j^6LlK*RER5ZTP5xuD%rFgWlnLEULC2PY0)0Hm{vz?#KtNyO| zqrJzviH1x!99mcHI`w98_(sJ`D=VjUy}4X>wD3WQtj1k+&LUr}M_Cn{A0DaIyX8@< ze)1xVUdYwZH2FByT-&M5-(6NOYpG`r5A(OxF1h-mwmX$$x$)YiPuI8k`BXo53XM(u z_AvC#--^`raz1Wwo_>)3@}Rn@?YIkXPAF?yB<=tu%-rr%kO~u80-8x$UizrzfBo&FC41YrC^?Y@cxBSYmJwE>VTz4kmwM0Lx)CjCRaYbV64irF#ocYt)xgWY;t?8FyqEd2U5{r>m- z4T<7QW0(b#CpF79@9>`qwj|}SFRyAU8_r@3;Fkt-d$cUh@3M zST?=#J$Kem_uepl!aHYqLAEMBt@DubE-QV);;551H=J~_m1MtmeD$(ES9ZnMQH_0{ zltZ*FS52K$x^_>NY0}>+gJ<?jh#C)V;*7#ypf#y6b@#_!s_MC9hE}Ex1$>-3WERL+W#HI1RQ!mziT{3lfL#$U~ zzhXMq=XJ(smYDVRS$i{fiqFirxlL&>*L`4 zMN8K%z5G#!RV6N^itpYeGm&4ihPy@<@XQHt+P(Cn4=^+-s^jEU!M4jJ&QDD|C;y{rr7r`A~mHt5oA$ zZq=)bq7l3j|4y#tJAdMsrHB19{t2C1`d2+yTCvA6Uwb8=G}nsn>y}vAC=0EP=S?hKTcq1(#_J^TYekh_)2&QVsS_*tn5Tx9URY{nqx?GR zZgTO?Lr?4W#;>mpvAwzBRN5`EqE*h1nFHjTy|xC)1%Nxh$eDH3qfZ64L2Lc2QmZ&u zhKVkbxt|iddU=(w?9wAFvo=S?KfBpcUbn`4;uFsuNpl&cUwJLuwCZZ{-p;<9^30~S ztIJ+hooifPC2X5hzVZ918YS~BRcp)>bL`kR-(AYe5qkFUwets`R|&^vujI}8B4g71 zRqd7AvZ>c*E2KnaE)sDfRAGy*)!O_dck{LNC2yZi6kV%z-oPMLD*NQY&moVcHix~* ziphTQhxu~F^9G4WyfM#xc{skdowGN18!oavoB7DO*)v`p{(DIJw&LYKJWoP-7&m-Z z%L`q7rYB5yLf8S-E1Xe^YfMZ2HNLEHjXP@Q7WMuSAM3_P7k;vaZ5;uZeLbHAki3VhphCcC)v<-MKLZ1vu4ov(R! zSJ=)>A-*35x7Kez_h+wq!L!g~=l7Kvr%%ieLukfqpCsn59_pz_O zt1~gDFI=%mu~cuxym?bJK3qAr?CH-i4`2Srp*=Dag!Uen@$I`Sxb*f7kEOSMrdImv z-I1#Zx!*t6*+@J#Cr;sz_Pb?^-72yY)|M4>)fwNby!%by&*eEDRY!mR*tB8$i52}v z+U6fwL#U~6?$Xx>mg^qeJAEl?RhFsi@2PVv?NhwAUtWIo;T-F*y%Wx^k^f}xpv@T@ zC97hsuj?>nioB@t<945yWi|7|+=W+tJ@ez*rB&SDn5Ui7s8Wk+)YLwi+Vd#b&~{rD zpWkuq^^Fko*lII z+0oafA5N>Sw+!E$Jn!54OQ&?7y3L#VVFqhS*jA}Os}*CpenmT+lRB$+qfcpZa^b0G zf1N9tLT80F&{d6^a{f|3(HFkE_K`fw8+RDzxd-W ztNG5(PZOW4t#!Hf`)a`2)xNP$#fqm08kY9(Zr1mV>RtTt_hbXv+5KA@W2g2X+Z9&3Rqs@HPRz=ePd#=x?7v`{ zn%<`VIHTrLm&~4%Z8Q3P(v@Wjz9!f1d9}JU(uBco%B;A9OV)n5%^P?(@bBb86T42Q zvTG%5PL@LI>rS~p&_C#nk!doTkU(e#p%d{^S+ra72eZ1_O~6mbh-G0 z-_AC$MH9p3gq<*%UiRVnvL#L?yP}u;3-wHT`SSaM3WihnYmdj|{TDkQ75S0jNTp-{ zjx*nLmp#7f9jt2cTf)>0QTF&>dy%fjwS1oSAD7iL^UnmIf3!9JWaM?Oo55#;g+iyR zy%8%GRV(r-o3`1loc%__`PqKQ+vGoejlaHo=e^6#4dpo-wtg=Oot&aP-(#2An|&;k zX8jK}t9`S#epcw(StYEW+x31Kw1_QKJpSd_#^?L>BNy+U+*dRC^s@fF-~BhQ6J^_V z@35bC0{`QpfYWAebqU$OecQhnPTR0hH1oi^>uW@B3eURZb?o9C(_I#l?TMEKYkO4J zWS4e+_cr+c`f1hPxOe4ymfX+oo3!9Tr`}!TX+nYn(s+4@x`QKgUbb Rkb!}L!PC{xWt~$(696pdeZ~L) literal 0 HcmV?d00001 diff --git a/vendors/ott/built_doc/top2020.png b/vendors/ott/built_doc/top2020.png new file mode 100644 index 0000000000000000000000000000000000000000..6da3971589e2448075a7ada0d398efa9db1a81b1 GIT binary patch literal 593 zcmeAS@N?(olHy`uVBq!ia0y~yU}R@tV9;e^W?*2r*XnkGfq{W1z$e7@|NsBnwr*9H zSIEuEewnx9DFXuoV@Z%-FoVOh8)*y-jGsMS978-h&raFvci2GSxV~YigVz&2S&0=L zN4P__B&+mTZD_dCD0okiM^sw=74rwLFzXEsB3H_^-#=I=#1nE*zVMM*Am^t`lZC9y zzn!n2KbLuf`Fn1IZO$yo872k4k{cb8tvQ(r55|{i-D$`_;@4W9JJ;{@%R@}nM>g6f zmG|6G&bZs?m(g*@N=c0v*?!TUM=fnJ|lEA=9b! z(}K(EY+ZEj{ae9RD1Y7Q%+p_QT}2OFD`R$iBe*-U#eS}C;TQ9!uG^Bi=N7xh$G=$f zWJ|BGgXN*tzrG)WFY;cGl#oeUw_b3mblwUL#h$gQtVy@syg1f(lybTFSIT`ozvzGL z!xMt5o;>h>v*txqPkp5T-vgc04G-3uOt(M9D7D_3?^}(C{byAd9d{Y0@Xj8;OMMpHrBZ9@kN#wr9kqMv6%Sg zfW!vdi$WH&G}}M>6}6bPtgt8%G=9e#b*ipu+P+U;(`G(i)l=|`MP19y)agD`dv<1* znY_-Csobx%&nDeGIPp|qTTW1s>2{v~`~NbnE?n@<`pbtc3=9kmp00i_>zopr0C{@; AUjP6A literal 0 HcmV?d00001 diff --git a/vendors/ott/built_doc/top2021.png b/vendors/ott/built_doc/top2021.png new file mode 100644 index 0000000000000000000000000000000000000000..bbc3f143b0d1e315d2f8e1fd5dc35b701f2299fc GIT binary patch literal 199 zcmeAS@N?(olHy`uVBq!ia0y~yV6b3dVBlk7W?*1oKW%Qyz`(#0;1lBd|NsAOTem99 zE97Qnzs%e5l!1YPu_VYZn8D%MjWh-ZhD=Wv#}JO0$q5duJ$wae3L5yvNS=}@K6ES>j64N^!4>UF^KWOGy%*I1r<-l3`m&1Eb?2CWfL=5$zQ#o3}79Ffe$!`njxgN@xNA DSJOVy literal 0 HcmV?d00001 diff --git a/vendors/ott/built_doc/top2022.png b/vendors/ott/built_doc/top2022.png new file mode 100644 index 0000000000000000000000000000000000000000..127147ff96ce28f89fa26c4f37af77231516007d GIT binary patch literal 197 zcmeAS@N?(olHy`uVBq!ia0y~yV9;S;U=U_vW?*2Lc8vWM0|Nt3fKQ0)|NsBDZQZIY zuaKLS{W5RIQw9bG#*!evU2i|(igo-U#TrUTN2M;o3XEQ;lApOrPi9+p|dZg?b2^x zJbr(|wrXw0b&0VVOSxwSt9Ttx$$q(yL9OE7v1i9FZNDD&%JHAcf?V5JljGOU9#1KB z_xava{8yla>yvbR{G5|sGXfc3y<|H)m&I6Z_S@X6?D37kZ|oa$f(wQHfmk!uxD!0h{*{c>8^~~@)ygexD@S3gn?p?5${QbRY#qSxHf3hbm(e3Y$ zZQ}i4?A2?lVO#LvKqGT`^1|ug?zA4aNPn$)&$z$bY2oy&7cW-dzEG>x{$JPffqCVd z6HjUbUMxL!>bgYM;y0(a|Ni#<`9|f*+Z|UH>bg4b z<=SvNuK7D|v&-)JzMy8l(8QN2L4^+6T~`18bYu3(-wUpI&;6uQ$LDrMxZk;yN2-f0 zd2xY~=q-~1Q8B00i*C)5>OoRqkBC5SKdPrE;=t?5Zj9i;NeS%!)56+u;&X~@iiPZTww%^xaQ65A6%s7P zp3|3hIyxT>NP5`D@rUu%hxi2(N>&P$F8t=>+#{>O%D1`nLqb*dp0D!`o%;I2wQ<>! zKc)hbDn~4R0@gNGfmHC!EzJ6GtLm{%t7Bu}L5p>M(vv=2XAp~CcI(`ct|A5LSwA>l zJ%99NfnUY`$u}fla0;moAMe3J=QYgTRg8t$Cs^X!7(Mj@45%Jx#* zI?u9SV(9qUq#4!}63F%RU`~Osr2yj>$450`%&#)V-yid8$hydUyI`^I%{Pg4kfhzc ziS@hOx4xFy#yg6ycBm`7o-wi9q+Dx@%_2VD_Lo`ld0#eOyZXw$ch-B`v!zqyPHjuv z9{D#za-H^-!xr-$#Lq-6oGkeH!h;3Zrq8Zf^Ln#z-I+I$8n#oS%P!msT$Uxd?*8#$ zuSH#*A0N-l^53C$(a-MMSHDvRzpI#}Ql>XY>jjJ}xgzd30w-M9a)~hT>^lTMMW4xpA4w zZ(A48opn3;(vEOW(|1BASh(ffb&a-Xm6dP4XZ$NdTCRV}&873c3v24yOlf|3<-tN@ zG5sU60~5>?n2htQnCH1nEZoRp96PfyX5leyX^%;2tx=T<|FXDD>r3{wDZUF0Vv4NV zSS!AG)y(wL?HOqok4K#hzNPEjW__indh(~#Cnk#y zm&~m6)$zBx<`(rYtn9q@($;pPmnYg>o;c_{$QPP1w{t6hUXtOJn5vImI_|S320ry! z7ht`I&!;xEHA<>)mebkoi{JMcX69!tVp`zY6_s+1yFo+n^zVwt>hjq}Yf{>6?`kZw z=Um#piBD|({lwErkMc!kWXf_ZJ(qsVrRm_uy)1UJX*P>K?{v~V?OEZ@Whyp(n$y{n z>}NP0#ZA>HE#YfitTl7_(ufs4Z8y?A?5?FmoIIDn%71>z7PjsGJ!e$T|7^%*y8TD? zPrc6o{_C0Snpb4GH*Y_9+482@6k~hu430f}j>-phJ^$iu|CC+x z%8&d=Tb{2BZ?~*8{}J&x*MG{Zt81CEWqR*SZMDBIUN8RUZ5i{{eX@PQ zXQw_|xp!xa_m9Ho0(AuuuF5xLt6s=ndYKJTd^utNV)c@bk6Bjj_L~ya|EK9cA5XjA zyt#K4w%=2nyN^x#)uX)2#(&G0`Mf3u{c?@^ExDBMaP!NC_C?lTE?6(QJUziT_D*h9 z*etJ?o`Ul&uDw08Kq0WJzGVA+(`k=BA6@ri;f}+8H{To78eY3{v~IWNV;Q}WMy1ZX ztz!LezVvTXUCQWv=j)%%i`viatu3FiPeS`uk{$CV&kmc*?z=voFPR+Iqoujjv})s= zd)J(=-nm`g{<3@HGQGC5%Qnq%UJ}B&G$P@usg7poleJZQ*R~hspY7YZe&#;@uq&=R z^}gMSHJ*A@PH5?!NAaG@OY>c?YGt3Acr|Wa z>prHw%XS!_Elk+|<;{BWYOa4?lUc(1d&Mpb>&fLF`kGYnbNcKmjn3H%DtM=C$m@D6 zP@y_e*<_7`&-N>`UfQ0vd~?D1x=(X$zpH=Q8ljJ;kIJpOv7|lEWa-XNb8p(ST2Hx{ zuJdifs`j)g>t-gM{S~QQvWMe#_@ZNWtE|A)bN7Z7Uz4?`e04YC4(64caqvv4m89CL zneW5g;@0^x)b=nR`*8OCnOTb$Z1JArl$LZnK}=foVd1$)3rrH-Rz5pu(XP-fcX;!S zh>GB|g#oh?*kqeZ?H{_c%G6KJda^ET*Nv0%vzL55@zOD~Nz(7YW$_=$bvvdo z{j9vS@5{OEotGp|OLtzfh^`8lmC%;W!F=zZ%gPl6T0vI(KIgi3BrsTZbus z3wi1SWy*N4JtO8qN`@e6`c3gV0zKvb(;?pNJk0t)E z(lO%BuI+MYYUO)!##h$o_UB}`bCaugY&o7R!#5>E z)O=U?;a4H&#GBe4Jrd{el3~;E$ldDCTQcEPVb5bueRn=Kvpv&|4^}5EnevyVC1`_$ zbG`E-kt1G@dRV_r@3xa(WnFLECbjg^i^Z#+g?;j=W z#9yqO5_RjDy2-&~LMwlI-l)_(YVovTZ$^_>oh!RqiGXZ+ugy`(0tZjWHRibj{u}n_ zO|{TjV`ukF_EPc5{YO{-4*IY`dE)k2ToxQl(&SzrNnker$5!=C@lfK9>sPpsze?&k z{H!}}N1tem+V9<;bj7CM+_dDh+nw)9XW7FN)_)3sikQ8roS4?PhUxbO(aY^zOSR9d z<{X|Uo_Wqc!|KT0nfryV9!(9K=Y6BiR{zqOiGjcD&QE#cxN*msWva2KoITE*Nwl?# ze)zJK!#sXTq@1em9-gd?KYlGw`1$MfSJl`@r}Zc2iKTBbnp9;uX?eOtSlp7C@~%lg zYEFI6t`q7ynrf!|(n#OtaZebdkL!7ZoT`awX3W#p{|b_-Wjl2=^~T@2R8R5DgTX(g z(zkFWB=S6RiL0HMrl0FyC(?Q9$^7#&ds`lTogO{CWafmlEl-|3XO~V%yM5vFo@HN^ z&L&KEpE*rK^ZxpujuCtQ6}_IMC;6yn+8-?<-OJx}WUIj>&kKl94ct5bP0l+XkKI3Q?4 literal 0 HcmV?d00001 diff --git a/vendors/ott/built_doc/top2024.png b/vendors/ott/built_doc/top2024.png new file mode 100644 index 0000000000000000000000000000000000000000..335393bd553ef6801c5043ce9311fe6590b6b03c GIT binary patch literal 2314 zcmeAS@N?(olHy`uVBq!ia0y~yU_8yhz_5UYnSp^}Vn$RX0|NtpfKQ0)|NsBDZQa`1 z+@dV6keii#oO#=81_lPkk|4ie28U-i(ij*xR(iTPhE&XX8_PXyi55?*I`@UkI!Ej- zb91*PXaSXB3eYvz_qFsxM7st-eZrJz9EspDJ@){GV zY>l>k8p~%2U!L>IrE6K}f@^($G$YpNC-_!PUG z@`FXdHhzjuwm^Q%)VZHbx*g8Wsg_OnUUv7q8hg~6*}vF&!!!?@lwMq*y|y&uqg|sn zhpEFSrj>i&w=H`ZC|M)K)@A(tv;Y3Qdt#q2YaF{I`u?`M_zK4>m;U%pXp7Esc9tu1 zuK0SVDEjDu#Aw?|YG%!jSz&kQI2=;qFPiSZZ#tis)~%=%jg1#yHqCuF&#^}<@Peqs zdH<7cKE`{xSNn<26M4tTxqr$sZ?Esk$p@3pJz^1HH3|%1Rgt)K#HauA3b)dud-~Ke zcg$VAzdlV(Y(ZFQ!}-~!x0bI?GR;bwE8(c*&hXP{R@X7Xy_r*zZA5am{++p{s)|R+ zmgi{Uo_iimf4HUBK3sipS96=RKy-v;)=!VB1>f~wWiAw2QCl(V(NdF4ZU&8))iMUY zC#|clHyoV*uwtUwl0{8f2eKB6{a<)!(TjikrY(EfIQh$IE7={qVbv?`rQV)F}9?sY$Wy`8au!?zjduXB*hnp^eol-C})scD@x{ikMExHn6%8AQ!i3SVE- z{3>?O;;9U)PulM~vUr=d{nN0Bo{zB;%fIZ^?KNDp<=oXRJ`@%0_9)ip<~XDz7gXHRu@ z|MZ`mRW>hsQ>ZsB{nk^Zhbr91moe^)PVPu8sXKn->b6Ffv+LhV3aFTK7xHhs(>>!^ z(4~(iOSYe`J^cFmY1ismr}*l9H1;nJQD3`7V|s$o`inJ-ZIpYSeofYpW9m93q;q}V z_h8SD$q$1~Bu}XM@JO-h)miuMHdPNaecZC;sq&F|&-!IFfAk$a6keJwB<%Ck=@O!eyOBQ>wc?Lze?U%mU>*u)G#r5&s%YQbe z2`yZ*S<}m2!+->Km`rPqL?&_8Eero?WxnW?jV@%WAHj z$9#hq{+4~RBdBYWbh-OT=}>grL6dbZdtE53d%I99Rj zq*`?TK3nITMkmf6mV7MwWlvnG;j#G(PjBDQr&hR5bV+-|uetZZX8@2mChvS(NGzFP0L&2ZnsgAe&0-IFeOlN4;b@R{XZJBG9E zD#yZqJd=GmA??#|+sYMZwmpbGqV1Wy{-u)4C7-(e>iko0mQBBZ`A)U3xcK%%oB_x0 zzdz}`LUE#hQkw4?6K1WsD>^1lHqrN*e0bya5GFx_|f4`8Bdl)=PtV)1Pk)MFWAHR@u5qfO4zKUZU;H|4=XM8>6l=#$6EV} zdFIY+d66fWXFf%p-KsGEdBWdkb~-}( z|4OW0NFCY6cKh|)LrSGeL04WLb=@ylCcV2&NFh;f;` zt!abDmprDL7!~_l3++0NHy>6I>Mgr!o<1u?ptfw-UNDR0var#V~O z(h{7l#Nd_KorwZZg!jC3Pb2|kE}UilqWFuXh0ZHcmw<^o6h3m~xb84DGT!|9 zS@R4vfo~5!zN!EIeCEdT>kR)lmvZTzst%0tZ@tWEvfOW@m7##!qRfkXYr^Jp1@a1+ zNLo)9&lYIxG?8>N^`3Gk)8a?-){a>nhIjK_qm5k-9+}hG_@g$>RB(dEh6b*Le76pZ z53^Det4kGxy9IBEwJ@yIpRN8)U4eJPf@>;^4F60E&J<6Ya_%R0(!5E+hm{ODgrCc- z_Y`>_?Dejt^HJwM#cRLZRo)!DvBqmp{!9x$!_Bu^IzKg~?KkrI6XfnFQnkToW6nzB zvW@${ow%8}O+kd!mN`BvboPhPKJnku^D1_F)O>I2_+6gQUv_m_vD&)>VV}1xTy4tu zbKyppKVLpAzQ<$SZp{1p`x3cXuaeez$}ri;uy5$zXlL<%`?F5lHOX6=wN3AZ^z8Wl z_I{yZ-lQF?`3O~Ao_p6W0~ z*EsGBnX|2Q*`Kr>V(FnSi9xM~$DUp-j+GetW^&-S9+?wN7%UM+tN54Ld$ zSFdyaQPvq(J&9#X+?@lP6&FYNvPFs=x^DRM_66^0R|WaS)xLH7n6>C|3|*zQ-=z!zSjr?BAeZTEnSC0WeR-)Wre47Qqf z`<}zgl3#uH{Z}|2$j{FPob2%WT=l`Ox#s%22=UVq7PKwpTE% zm1iwHyW_<+g*%n){R_Sx-jNh@=vw#r?mzP?z8&6iCAF(1$~T60RYtPpNvDtH4?jz5 z@vi-+wCLfSj>T$eOEuPbK2NN97QT`zH)8LxO5xA9RlTb=3s0Adm#8#;we96^V}bt? z@-uB+gEEh6t9*1ec(Uh2|AW`*V)iYYBMaWH5A>Q|{PGOb%97Jvp?@5h?Zem9L@rJI z(-*nlN8#g|(8ga+Oqa(?-C0v#Y`80VXX|XQyl0ljObW@8;ZT&)J>+BOaZ4?8S7V8-oaL8S@n>w}F zOzF>;zxTdfdpv7ZbkpknuIy*e$(ugB#`mAC{*})y`TwoEtZKhAt~=M`{jqLMcJ(B) zxbJ7~ZM8jp?*{AbY=->X^9qjd{kZLI=c~@SHf%W$eQ!5=8SQ!FUY^U}C0WXQs)7BC z-+hs;H@_abZ)Nv;E|hvJ>A1aq&vJS3^$~lt+-`8^-@2C+dUZ)n)!N?=r9a2`f0Wiv pxwCxlzxJE6_xD(re6xKk)^uy$`{n%t(F_a>44$rjF6*2Ung9o`C2{}& literal 0 HcmV?d00001 diff --git a/vendors/ott/built_doc/top2027.png b/vendors/ott/built_doc/top2027.png new file mode 100644 index 0000000000000000000000000000000000000000..eb3b8ab191ebdc0a5be787c389bfb58cb7a1f8a5 GIT binary patch literal 1282 zcmeAS@N?(olHy`uVBq!ia0y~yVCrIEU{GaYW?*12@4vd1fq{WPz$e7@|Ns9XfkE50 zZdI07$j!>GE`7R-fq{XsB*-tA!Qt7BGzJEig`O^sAsLNtqq+-k8}K|0lxSIA#1MO% zF@Wv&`H-3)qN?iGZeFp#Sm55lQeXIP(R$|}ISlcQ4D)**Ts_gglV#ba?mS_c zDLVcKKHj?Ge&*JLM~{jZ?9r<{EHP2l*`@?eyZZN9TWCDxa{}fxNCa$r|_*R zMUYsFO_KVT0vLaMkxtX=de{Rs>D{u$^Hq z!%-JSpP^6 zgWezByqxZPA-Y`}tVg^yp3VI@`%ZT5$9na?mM`8fFWSUK#PK{a>G3T0_L#J|PvMAd zbk5Nui}r2V)A8M*nf;D+Tko^p+xAKp5AGR0F_fCrchSWt&SP=R-kythUMhC_oKXHQ zUG!>k!eh(X8Q-T>-wacplb7#1_eERUn#^w=3%{4o`1qm2b>nMg%=wZ-Vxd3O!()-`t@Xo%~#FTK3jZ$j#JooSu7UtPMlsVz73 z+dp-Y+i&>_mL2}r#Col!g=wo-g5(p6t_tQuoqTNDYjo!o{_kmX6u#fQ=trmA-kAY> ze$SLeR)t3K)WjbydiQCj+}yiXpN{6OzSGh;^Q^5#*H_=Q7OZPu%h;8@)PJEmiBmE9 zjJt->C(*lm)K~91y7g!M|DKP5lg)VZemd^7xm2gVEJ;9i7rRT~p1etVDZk~+Z={E; z-lC(ooC3SdnG0S|zC0AJ@TiBha`e+1( z_|2I*)k=jcborZy624m*mu=PYO^scB@46i0_82)ok;uZ=K5GJfZaS}KuJ7`@+1_*U zZ;hLre3wFxd(*6RABkfJb``Dv{@YPBIx6T}#l9Q;-d7YqRI}WfW6=87uUNu>M{W(D z=}xWRGc=s6+a{+bwkq>{UlztL+%|Ium$OJ>z|pepn~n#*5#YFe=dGYcp7%=Q7Y*Bt zZe2a-{h)Ws-g=Sey!rNq)?AYvu5uSA1}qh0OtkfT_bleVoXtwUi9ZFI_qT846UY*o yy7zy5c;%kmr=v?sygqLKpZez3&Fgo3_4d!4Ka+uhfx*+&&t;ucLK6Tg@Lu=; literal 0 HcmV?d00001 diff --git a/vendors/ott/built_doc/top2028.png b/vendors/ott/built_doc/top2028.png new file mode 100644 index 0000000000000000000000000000000000000000..7ca5251b38420fdf3aedf2e1a8b80b5b766036b6 GIT binary patch literal 1325 zcmeAS@N?(olHy`uVBq!ia0y~yV4Tmuz@Wm!%)r2){p~(00|Nt3fKQ0)|NsBDZQZIY zuaKLS{W5RIQw9bG#*!evUUhZ2oTx z*QH*W(9LDZ!gO@0^rJ~~bMo%Zj{UnP$J4v}GtcU|mByd2A{uhcaeK9$%=JCMdfTZd1ip?!IQ|9m+ zFezSbF4@tyX{!mFFqaDZ=iQ7a=J`+B;dQF7$*x)8$PC3nZl{$(*gRH!5y3 zd9uxjyFKoTsZX1#r=a_UcS&!~rd<8LZ!P2PCZFSbFBcx&>Oaeuuhy9RPD$d$@2Aze znY9v2Rvna+%;cGJtnqhNe+9eaQklL?qX#lZoZ)|7ch%|%q|BVbe^0G4#7O*6gWe+h zh3>oB8ZQY6R2>Qbc=mMI-}GAEpfhe4rptcMW6(0sY1nI3`DErv3kBwB4Qs@9#@vcJ z(>U#rkBdO`zBT#RQslok?f=bF?4tBybxZa72!{zK-AY#fe&*FL+fqR(w`qOgAvTzoXtriQ|i)+{7fS=J2JJo8&?{ zN~}J-aB+Mt@}j5q>j}A&D~l73Juja1D0l6xo&Tp#tljnM_F=!ab5p-`+H7^pUdWj$ zxAm~ZzDm^@iblWwd5E&5rJT6os_;TtPwCc?4`+Jz91ijU#kC1Nb;%b@ zG`sTu8qE0S{#immjNwprXSV!%@r_%UAO85~m!6oQIqR+bw~y^Q87kL`Zrs_Iz6V1B&aIb|(|Rk|Db`vtxz?vT66aWz2l%?#HC*Bd)qmVCOp>XbvZ z)rCh3f}czjNi00=9x23nH*ecJwgooR=e^&(y7@(Qw$!Yse)5y&c8yjnAU(T=iFF1s#UEFaPtz=e_&i8F_p+hu7Zxgm0De z7}F?KQ5k`*XLbY zDeEZJ7`MXqMO)NAxyBEY_jvTL6gsK;&QM)?z~IlnAX$SSK9_YlLS9d4XFk5gOX}f0 wb@o%1lVtuD8)&9DWz8}=XRp29CyuGoa(PD7`J=xW7#J8lUHx3vIVCg!0Hw%ui2wiq literal 0 HcmV?d00001 diff --git a/vendors/ott/built_doc/top2029.png b/vendors/ott/built_doc/top2029.png new file mode 100644 index 0000000000000000000000000000000000000000..ea00625e988fb02e510ad0303a252a1989ab9e9e GIT binary patch literal 2152 zcmeAS@N?(olHy`uVBq!ia0y~yV6{q;dY|A)EV)<>epj=LkCVO!a*Gr#rE8j(4bcxG!)#%Dup5{lVf6 zb<^%Cdp&2p$UYTU8Q1LI`}XOHE{Ue1f=i#G_JHCWFIra@C(he_ z$Y;Uc(+8H`Z5G=jcRDSit*-pzx8Kth?sE7jbNSymN)3=CpeT^H(1Hyvx6A$zDGx4(qs=Ugz9@s5z#e z(W#ui$YI;JI4`eg<>h9Z!-LjZ3hUmJU3(kr(ZcaPANjt8qZ&dZ&cw^ETGl$_39dsMbZXVkTSl;xG8H>o`<5#TZZ+}>k zd|M#+w5y3!#LM=N=NWFlzr1Zr`E9|3J9Y9;k4OjBe_=Mcwwr6>fG0DMQxyqPcu_b6)4APtQFR zoG?FGWbVCsE3*sJkFb6>zS3VTmn6Wk@N-upkL>SfHtfpJzRDd}uQ{L%Y*8jw#m+h9AKeT^SajM;=@ss>C%a&8^B_}Uclqs##v)Elc?mda=2}bT8x&mibBv>`v(=I4`ubR%h zxWY>I)J^MMCNCca{X7||wtf0XC*Qd6PrJI*MT^Wfy_&_D@A^q8;Ai2<;?-xm1^xYu z=4^ja5*umb_T3i)MDS)b`t}d{kv#*dCD- zruN{|Kd)vateLN@?x@$IpBk3S+je#9tw*-%_h$TR&OcFAKXHnF7h}HDomB|cws)gQM$x!SjUy)Lgt^FtNYc{O@3J)@!`bH3G^CS2jNoRHTg^EmVU z@+ToB41Vp)_3u^0e>-SxI=gh)huo%*CZ{*4JkL1pH>uw??&^A;3TvZzX*UI3WN!b| z7m%$#wD+~m_iK-~Jo}ou=aiq_ggyKp^sBxq*5@vaci5vWzHMsVZGCf#8=s9np61+k zUwERt=RD*7@ZMipvv!C3#6CU0@V(q0o_jZ6{5kru`F)+|x%fHxwKMNjm(4qK*`fc} zs-UuIXMf&$B=$0JzLBG_@;*cV{$Ej?pb=y(*0+3l69?oZjXAp)rG7apASqYAG59gux!b!V8gmboAZ~B zcfRs?`P_EReC9d9p8sTi)ZhJ(__x%wSnK3dmpx^z8F{KVXP7UalyheGI+f2ay&5?4 zS53Mz>)f5|>kQ7VRe627Q!w96^`_VU(_TfZ*QjW(yjvHpeR9tl73oiEDZ3`!;mBV! z$>wNq_ufjw$LoF?t$tg|8mjxP%ysRTBO$7h-E1q4-dlHrZSRT~#=Ez=W^LTAt+e-s z^`Gn;|2Y0t+BL=Acq_q>xpBL8(cT-opMSORZ>wzKug@`hbtx&|-1|$?`xBja6kb0& zti4BC`|@?M>fMWC-uz{|x8q>ucc&Sz+xd4sS$Xu{iu*+$LdBPF`Z!6}U-#R)tx0k< zK6@6}c89lK4rMBh%GmgQfAQ8Ezh5-0|Fq-s@Bb2fbrq-6|M9bk`fXn(w8CuBp_dP$ zn6A!nf4HSyw=wI?V#BKUQA}5x+8>ti=rMaOFcbDGZ#0$ib3ZVfXL;gs(Rr&`vXmd1 ryeZnZRA@!{!z~N{L>_v1pYfSc??kb!r`#AA7#KWV{an^LB{Ts5_-#cW literal 0 HcmV?d00001 diff --git a/vendors/ott/built_doc/top2030.png b/vendors/ott/built_doc/top2030.png new file mode 100644 index 0000000000000000000000000000000000000000..ca72b27cec3941fbd298f9e4ada0f1b642fb8725 GIT binary patch literal 1611 zcmeAS@N?(olHy`uVBq!ia0y~yU~FYzU3=E7VL4Lsu4$p3+F)*+`_jGX#shIONIXG474_L=XXKKj2cEuX*Q#=k;#vImB%j&wlcG#3uUNPBI=kAqZg>0>E>kFNU9sYD zoTJzO#I-w@u`*ZBl-_aiSIpL@Cmz(L*v;lrdGUWy#f9m25*n;jm%Xj;VKn_!W|`n{ z^O(-ViF>-to`=jkYU^+6yV-zUe8C>AW!F^?%#RWckbWMnR}sChBX+~<88YJ2B#J&u zZr`l`%a~=epUf?>RlR-ZTSE+fy|MJ`}!@ zutI+Fztmq|mA-Aaw|`aEx!b>`t#od`P(k{tpDxF|z63`tI;U23Wb^rpTE>fd^z1Zx z4WF()ci1&bu!29})Apu`|ED#o$9MgC9-{ZzqfI%;cx%?LT?I4$PvTh_v)OCSURCYi z()+*q@Wd^8wZ_HuaA2^Z%PYYQJ{BSIinR{))AnsYa3DM?OzmL8g$zIaiE_=ptj%XG zPZw*pV*fdBlPL>xX7*fRo*hDLk0qP;+0*h0mIvz%2dJ^Sg5Vr#&+=mVZdg+~qO9T&uBm z-Pvu+_asiVdmqB|J7#vSf0X{E=X1Rt@YhYwHQ%=dq~?*O?>61n?2bnM^UJjsrB2S3 zF4KE^A?I=OH|F^|Yh~B`Foo9?RZznf(IH@;=NwXuHk@xvEvlOx_ucpRY>#`8Gw z#XQ3`o*|aYliI5!cE$6o_H4RwP@Lzffrx}zT;FN2kAF1yZzuUK3gCz=d$73dZ4cL1 zgDYvu1%MRJ=OPHKx`l}?!lj^!; z+SHw2Br>$*1ZVFE-SB79hpX!yN-Pg1EAqr|t$g+1-K4c@KVQ3iEWgrMw?x+Nwbk?! zU8i2WY0X+{!#-cSB}bJ-JMC%!JMSb>iOC_-Gs;A5^YXXsYS)%J?wso&c`$y}9wF8^ zQRA6h2UqFkY>LoVjuyEky7gFYMtGCs>78>0Z%L^8IT{3bo(OAAcv{UP$fL6`ma%!~ z-gWf`irHK_mVTv8jIP>Ww8BJH6{9&1Y8{nqTavplmhrIJmeoy;hoTH7{F<5-`gVb{ zYJ}#&2U=|JbD)x@Jn75Ae@gND>{-RKx=Ha@(?Jfl(uYsVg>Q*!9!bghr20u;B=Z>K zXRF6MX8*a~^t*eOz#5rbGbFrz1sO(9XI~hrIi=oh_p7JQhi-M&ctrf3V6K|Da+Zwj zj26?M=L}rWOS5JN1u`|lDZ%?D_E)I(fi#J~X a*q_hU`x}=1U=0HU1B0ilpUXO@geCxUn)R9h literal 0 HcmV?d00001 diff --git a/vendors/ott/built_doc/top2031.png b/vendors/ott/built_doc/top2031.png new file mode 100644 index 0000000000000000000000000000000000000000..79173a44f405572f333b56dfa1fae1da23002cdb GIT binary patch literal 260 zcmeAS@N?(olHy`uVBq!ia0y~yU;trJCT0c(h86OGcNiELcmjMvT>t<7zisPQWqF0% ztn8P0JDxHyFff(``2{mLJiC#`z`(G~)5S4FVrp`Nf|x~uaLN(AuB!}X3fH1q`DPTZ zn)?5JLyG3(|Mon49Q1@AGqy21?Bj@-a&tbrkFlYH3-1A&u(}y5m?J_M&m=!gXzVg- zaFP7au$4KJlWoU~|N1;U@(~B-ZAuhy2s&NBkTjRqnPF1~a|G{&3ig!Z^CAtt9t>6@ z9;a&?I_eA=ZXWw5euD8P7c*b%7 literal 0 HcmV?d00001 diff --git a/vendors/ott/built_doc/top2032.png b/vendors/ott/built_doc/top2032.png new file mode 100644 index 0000000000000000000000000000000000000000..970e5e3d61b19ffd1f366423149f612d62090312 GIT binary patch literal 144 zcmeAS@N?(olHy`uVBq!ia0y~yVBiF?nV1vasB`Q|F*4LmE{$3 zv$9|2?Rd(-z`$4%(=9h>(y-dBOw0@n44r~?jtmS8JOMr-uK)l4-?nwDvb;iW zR`$!h9Zwk;7#K@}{DK)Ap4~`eU|_KJba4#fn33=E7VL4Lsu4$p3+F)%P!d%8G=M6}+Gh|PPVz_ZOkCh>k? z*dF(_RV}sdA$R_3y_WY;P{}mf{IV~rSFPp7v+j+J`V98IKId*S|5#_7@O+xlH+7Sn z-?pTev_}{SDx5m2GX2S-+adE58D1=2S-&m2q&dPZ#^LnQAGH_q7-e_6|8_I)czUOU ztLymk5BXZ>ue@In8g|osm!r;q?iUW8FE{+HcAr@&c46V!2g-}3T^zhEA6<}qE}8$+ zysP0^QOX?G9w}4X?OxKE?B@!!vy)YGm&|54ch;Wgt@IMs+`e{lvu(h_* za5=wv?c~|sn@(r8M-(peWv^Pall|z{CtHeFnh19YrquS9Xs3OiDSd%+M0<2lT|`a9k%3cApMBXf^RoY3?yir*)^XN*9{-(D^z*Om?3)kH zv)dJZvk{0t_O`$BgGWoc-b>5AnDx40dTdjhcjkY!lJhVQ(oVed{n*{z*EhO)W*vQ~ zm|Ai6-q8g`n@(BDd6->2IYTRXNwqAi?q1=XhIiI%Q$H`L<*u4};NU^Gsv95ku6cgD z@#VN4NO&RhTE88_72hRSU8RX@lI(8DSH@M;BT$#M)&A*oCo4T#qU6d|(y!X7|08a&hlBzfQSwN7=@( z_)a|M5@6Bwc^3Dx*5^lsUhXV%EOIO~atS?h>5zkZ@$&Op&F!lfd{p~;@x0N*sFH&D zFXZbrway3MS4(@^bj7u1+CCH3BUXhMTEoTkJoTb#0}J=I8(;e9(05j!^{no_si(I0 zy_xzv^MLQXDcn{oT3-nH2Rpbvn;Nh~Wv4=IsiM}h?**|Z(h?gS?Mg*!?gVRGo-}JJ z_cg`zh>M>0cfI&hZeznxmDq4))xMp974srrG#5F(TeZO2>gL<9x&QjwyN#|j%1f~y zaw)0himtfJDgH2fYJJKQrS*G$o_#Z^U0$=EQFOx^rQ-Xx7Z?~A7(8A5T-G@yGywoi Cv&ydk literal 0 HcmV?d00001 diff --git a/vendors/ott/built_doc/top2035.png b/vendors/ott/built_doc/top2035.png new file mode 100644 index 0000000000000000000000000000000000000000..7c6f660d32484d2dc6ba94ddb846fa262d826615 GIT binary patch literal 1116 zcmeAS@N?(olHy`uVBq!ia0y~yV9a4)U@&80W?*0tyu5Ec0|NtpfKQ0)|Ns9(0)w_~ z-Ks3FkeiiVUHWtv0|NtNNswPKgTu2MX$%a^zdc{rsi^YZqDv$MohO4bpJe}FPXe=iExc+gE!NUEEfM1*;fZ@P5L|! zF3kIxA+dSWORpQH|3m}Sj!a&6a9#2G14fE(?`>Xp{ce!OK9Q%(0V`K0x` zm;O-OVsPPZP|by{1{eNrclx6Fc*BCf|FU?*Qyf3f_Wt&bpG8%2oBFK-Yky=JJXh75 zG+|z%M9)$2Zq1mKICt}#+6$VIA@Pq4e#RYLX2_7$^4M;9-kLB+-`GyJ$5)mmex)j|$J^sl z!nLCxg;_ob95{J4=h_7Bgf3quhC4hpbM?*(?|hd1)Jb6V$}OKyO;cGec5+stx@(=@ z5-yhRgw!n?j#+vgXS~hgsBzY5?z$D;TKiUrJgN!1(WpKB+}m$0-ixm>A6P2i%~G}P zaiY*2h4mXRHF8K^l@>pt$-XY8iFXO3%Av}Njw7m<4)l4e9K7~H;)8_Qma_HIMX6%n zq^ljb{M{M7bbH}uzHQlWrR z^P1V8tMmjfc{s6o+uNtp%)YFR{_T0|!U@ewA1*lNeBC^G8Sk~PyZvvkzt|SM-?W5^tey+NFS4t;`cAGo7V=TvNRzUGh|N* zv9LBR(=G~KBOdA46wtRIb85vAMi{=2b?p)+s6@|$zFE}C5C zdgr5Hi|t!wi8Z2cw>IyX&ACC==h(Wgx@FNk4|Fd6d+>WZ!*8kgEKRC;=PFm&tgP53 znsZ8B;-={0RkAimU!3KtTC}D4?=<^0Uu_M8jvo$kXqmdWhEuL~ihA<>xNQe*6qo8m zUSGZTK$G`Ob}pN`qOGk;d&Jq^+|fE=WB)_;htAC>)-S@Je)2lu`t10T8`D$l(u+1t zJ9At>Yk9tVmQd|9Q^(a$XEJ_mK5#&^hgU==y7zL0@&=Z`w~n?;XUe~d+T9d*wDIMI zGlHr*RvNELIrEH)OjpVt2$}oxXvo>Mi}&-+IndzeyIO@mHtK7*9tU2(<)nJ{%bwaAQM;HEmUl8Rk#e zt~b{`IK?0H^XHSS7q9oa*A#ty`DRbe>wSByV#C+`U&>JSZnx8Jt4n1|AFfilZaj1T z25)`u+f&-*59)~NG#6<4sIuvtjVtZibu1y7@ zoT_Ool6-gU#aZ3Kb~(;D$RG35(dQWdFKv7N*pJ)ao;uAOUN>vqqB&bmZ{6%C_0#q6 zrG3XV8y`<9y>vofYFgRuQxhl0@nr=(Q`?^raqI8ZH9O^9)qDReN_=_5Ro(VqPSF|t zs#9|N_}>2OS}MBqsM_&Ai=MxEbh@E95E3^E=N^D#NPfpB=5UCIk)mz=4z25#Z>L5Iir?M%`Pk$SqT$g3J7e^vo@LD_ySjGqc0q%g-l@8*r*+n!R?1EN z8fB=L&%5N;qfGW+vZY_ds`dv&J)5xh=N|=Gf#|enTU!gc%pA;gW0)_vTEri@8R)+L z@`*3uGnB8FnJo_Z2NM-}q^^Z>WAB>az z`{kRSTGBbssL45BzKNxBzx=&4U;W;yH_00rH+ir4dsVo8;s1%pOTW}U(N0*Q^}D_F zOZkb+HCn&#uUzb}+{v}0>>pRb)90@%PxSfvRpr=8E#A+&=fh)u+m{~ymBY>1GwwFc zmOo~0y!_F`)w5IVcHH`L!ugs*4{O{Ompe`-I^9K46R%6l-kW2v#`3gT{kf8pesV@r zoy58KWOP={y)uL6`l-T8A5IH)?OAV|-hTC@^D>>>C2VoiM6PunO{rKbv)upt`8hk* z+18x7`QoYKXPIpWy!p&DP1O!>E!tD_udByCTj%)?L-oavvxL-5KR6|>6JFMREM-Sn z-}M!}+mv$SFD6-S`{q=r5njaNCA_Lp{A}^|&K;L#_^h1zc*)B5*ZRKHwSQ99zq-|> z=2G?QEwOhkKQ4QG$9?+N{fff8rRNIXa}|D%u!y;K(>bGUvfK0jtM688&RTcGX@2$k z*xFMs9l+@pk#JB`lVA9Ao=r7^>3MI@CLG>((o=tmv_KdzXVt9dCPMT$Gz6Av{)l~;$YuFM!BzFUss+`_x0F)SpT^q|J25qpL1=VTs*LKGsF}7 z=54ms>o3Ya=yzST{`a~)HU&?Yzs;)sW3yw?+pf!duj~uV+&MRzy2|7}{rXW^z)!2d+NE6Zba}M<{H?EUernB# z%u@Vo{O$eJ7gsK3n+2+!6`z#tywl=})31lhQFE<+otV6g>+CGsDKpki_-AST!>Q!; zi?=f_>+pA5y^#!OzTDY;>fv;YtbG9wGuJMcpI26&deddj;*yW8npd5EJv_K`1;ir) z=^vQG>jWl$Z2ku-)*7|#bHgpyeT|uREY8`)(oOF7lfB08eCBMOkh1ZVBlpD#VU4|W zZ7=to6uGqEjM#=%ic*p06)da8Cog>5Y_{fsclYdlmCxgP_N_j&X7jfLoV?a&Ose8i zmghg8;k|cv)J-Ro$~jI4`7FSeJ~+kyhzGrJfw&4>?12-Gd+c6D`Sbsh{|5fy*3`;) VDN!Nr#=yY9;OXk;vd$@?2>{7Ze>?yH literal 0 HcmV?d00001 diff --git a/vendors/ott/coq-ott.opam b/vendors/ott/coq-ott.opam new file mode 100644 index 000000000000..df50d1fc93f0 --- /dev/null +++ b/vendors/ott/coq-ott.opam @@ -0,0 +1,18 @@ +opam-version: "1.2" +maintainer: "palmskog@gmail.com" +authors: [ "Peter Sewell" "Francesco Zappa Nardelli" "Scott Owens" ] + +homepage: "http://www.cl.cam.ac.uk/~pes20/ott/" +dev-repo: "https://github.com/ott-lang/ott.git" +bug-reports: "https://github.com/ott-lang/ott/issues" +license: "part BSD3, part LGPL 2.1" + +build: [ make "-j%{jobs}%" "-C" "coq" ] +install: [ make "-C" "coq" "install" ] +remove: [ "sh" "-c" "rm -rf '%{lib}%/coq/user-contrib/Ott'" ] +depends: [ "coq" {(>= "8.5" & < "8.6~") | (>= "8.6" & < "8.7~") | (>= "8.7" & < "8.8~") | (>= "8.8" & < "8.9~") | (>= "8.9" & < "8.10~")} ] + +tags: [ + "category:Computer Science/Semantics and Compilation/Semantics" + "keyword:abstract syntax" +] diff --git a/vendors/ott/coq/.gitignore b/vendors/ott/coq/.gitignore new file mode 100644 index 000000000000..7c71f67f328a --- /dev/null +++ b/vendors/ott/coq/.gitignore @@ -0,0 +1,7 @@ +*.vo +*.glob +*.v.d +*.aux +Makefile.coq +Makefile.coq.conf +.coqdeps.d diff --git a/vendors/ott/coq/Makefile b/vendors/ott/coq/Makefile new file mode 100644 index 000000000000..69c2399702e6 --- /dev/null +++ b/vendors/ott/coq/Makefile @@ -0,0 +1,14 @@ +default: Makefile.coq + $(MAKE) -f Makefile.coq + +install: Makefile.coq + $(MAKE) -f Makefile.coq install + +Makefile.coq: _CoqProject + coq_makefile -f _CoqProject -o Makefile.coq + +clean: Makefile.coq + $(MAKE) -f Makefile.coq cleanall + rm -f Makefile.coq Makefile.coq.conf + +.PHONY: default clean install diff --git a/vendors/ott/coq/_CoqProject b/vendors/ott/coq/_CoqProject new file mode 100644 index 000000000000..6f23a74e05a7 --- /dev/null +++ b/vendors/ott/coq/_CoqProject @@ -0,0 +1,14 @@ +-Q . Ott + +ott_list_predicate.v +ott_list_takedrop.v +ott_list.v +ott_list_repeat.v +ott_list_mem.v +ott_list_base.v +ott_list_eq_dec.v +ott_list_support.v +ott_list_nth.v +ott_list_core.v +ott_list_distinct.v +ott_list_flat_map.v diff --git a/vendors/ott/coq/ott_list.v b/vendors/ott/coq/ott_list.v new file mode 100644 index 000000000000..2dd4eb926a22 --- /dev/null +++ b/vendors/ott/coq/ott_list.v @@ -0,0 +1,36 @@ +(* A supplemental list library to help ott users *) + +(* Definitions used by ott-generated output *) +Require Export Ott.ott_list_core. + +(* Support library (non-list-related content) *) +Require Export Ott.ott_list_support. + +(* Supplemental lemmas and tactics about basic functions (length, map, rev) *) +Require Export Ott.ott_list_base. + +(* The take and drop functions, and lemmas and tactics about them + (n = take n l ++ drop n l) /\ (length (take n l) = n) *) +Require Export Ott.ott_list_takedrop. + +(* Supplemental lemmas about taking the nth element of a list *) +Require Export Ott.ott_list_nth. + +(* Lemmas about [In], [list_mem] and [list_minus] *) +Require Export Ott.ott_list_mem. + +(* Lemmas about [flat_map] *) +Require Export Ott.ott_list_flat_map. + +(* Lemmas and tactics about [Forall_list], [Exists_list], [forall_list] + and [exists_list] *) +Require Export Ott.ott_list_predicate. + +(* The repeat function, and lemmas about it + (length (repeat n x) = n) /\ (forall y, In y (repeat n x) -> x = y) *) +Require Export Ott.ott_list_repeat. + +(* The [disjoint] function (test that two lists have no common element), + the [all_distinct] function (test that a list has no repeated element), + and lemmas about them *) +Require Export Ott.ott_list_distinct. diff --git a/vendors/ott/coq/ott_list_base.v b/vendors/ott/coq/ott_list_base.v new file mode 100644 index 000000000000..677df1dbc467 --- /dev/null +++ b/vendors/ott/coq/ott_list_base.v @@ -0,0 +1,236 @@ +(* Additional definitions and lemmas on lists *) + +Require Import Arith. +Require Import List. +Require Import Omega. +Require Import Wf_nat. +Require Import Ott.ott_list_support. + + + +(*** Tactic definitions ***) + +(* Tactic definitions do not survive their section, so tactics that are + exported must come outside of any section. *) + +Ltac reverse_list l l' := + let Rev := fresh "Rev" with tmp := fresh "l" in ( + set (tmp := rev l) in *; + assert (Rev : l = rev tmp); + [rewrite <- (rev_involutive l); reflexivity | + clearbody tmp; subst l; rename tmp into l'] + ). + + + +(*** Start of the Lists section ***) + +Section Lists. + +Variables A B C : Type. +Implicit Types x : A. +Implicit Types y : B. +Implicit Types z : C. +Implicit Types xs l : list A. +Implicit Types ys : list B. +Implicit Types zs : list C. +Implicit Types f : A -> B. +Implicit Types g : B -> C. +Implicit Types m n : nat. +Set Implicit Arguments. + + + + +(*** Length ***) + +Definition lt_length (A:Type) := ltof _ (@length A). +Definition well_founded_lt_length (A:Type) := (well_founded_ltof _ (@length A)). + +Lemma length_app : forall l l', length (l ++ l') = length l + length l'. +Proof. + induction l; simpl; auto. +Qed. + + + + +(*** Reverse ***) + +Lemma length_rev : forall l, length (rev l) = length l. +Proof. + induction l; auto. + simpl. rewrite length_app. rewrite IHl. simpl. rewrite plus_comm. auto. +Qed. + +Definition rev_rev := rev_involutive. + +Lemma rev_inj : forall l l', rev l = rev l' -> l = l'. +Proof. + intros. rewrite <- (rev_involutive l). rewrite <- (rev_involutive l'). + apply (f_equal (@rev A)). assumption. +Qed. + + + +(*** Concatenation ***) + +Lemma rev_app : forall l l', rev (l++l') = rev l' ++ rev l. +Proof (@distr_rev A). + +Lemma app_inj_prefix : forall l l1 l2, l++l1 = l++l2 -> l1 = l2. +Proof. + intros. induction l. assumption. + simpl in H. injection H; intros. auto. +Qed. + +Lemma app_inj_suffix : forall l l1 l2, l1++l = l2++l -> l1 = l2. +Proof. + intros. reverse_list l1 l1. reverse_list l2 l2. reverse_list l l. + apply (f_equal (@rev A)). apply app_inj_prefix with (l := l). + apply rev_inj. repeat rewrite rev_app. assumption. +Qed. + +Lemma app_inj_prefix_length_prefix : + forall l0 l1 l0' l1', + length l0 = length l0' -> l0++l1 = l0'++l1' -> l0 = l0'. +Proof. + intros. generalize dependent l0'; induction l0; intros. + destruct l0'; simpl in *; [congruence | discriminate]. + destruct l0'. discriminate. injection H0; intros. + rewrite (IHl0 l0'); auto. congruence. +Qed. +Lemma app_inj_prefix_length_suffix : + forall l0 l1 l0' l1', + length l0 = length l0' -> l0++l1 = l0'++l1' -> l1 = l1'. +Proof. + intros. rewrite (app_inj_prefix_length_prefix _ _ _ _ H H0) in H0. + eapply app_inj_prefix; eauto. +Qed. +Lemma app_inj_suffix_length_prefix : + forall l0 l1 l0' l1', + length l1 = length l1' -> l0++l1 = l0'++l1' -> l0 = l0'. +Proof. + intros. eapply app_inj_prefix_length_prefix. 2: eexact H0. + assert (Eq := f_equal (@length A) H0). + repeat rewrite length_app in Eq. omega. +Qed. +Lemma app_inj_suffix_length_suffix : + forall l0 l1 l0' l1', + length l1 = length l1' -> l0++l1 = l0'++l1' -> l1 = l1'. +Proof. + intros. rewrite (app_inj_suffix_length_prefix _ _ _ _ H H0) in H0. + eapply app_inj_prefix; eauto. +Qed. + + + +(*** Map ***) + +Lemma length_map : forall f l, length (map f l) = length l. +Proof. + induction l; simpl; auto. +Qed. + +Lemma nth_map : forall n f l x, nth n (map f l) (f x) = f (nth n l x). +Proof. + intros until l. generalize n; clear n. + induction l; simpl; destruct n; auto. +Qed. + +Lemma nth_ok_map : forall n f l x, nth_ok n (map f l) (f x) = nth_ok n l x. +Proof. + intros until l. generalize n; clear n. + induction l; simpl; destruct n; auto. +Qed. + +Lemma nth_error_map : + forall n f l, nth_error (map f l) n = map_error f (nth_error l n). +Proof. + intros until l. generalize n; clear n. + induction l; simpl; destruct n; simpl; auto. +Qed. + +Lemma map_app : forall f l l', map f (l ++ l') = map f l ++ map f l'. +Proof. + induction l; auto. intro l'. simpl. rewrite (IHl l'). auto. +Qed. + +Lemma map_map : forall f g l, map g (map f l) = map (compose g f) l. +Proof. + induction l; auto. simpl. rewrite IHl. reflexivity. +Qed. + +Lemma map_identity : forall l, map (fun x => x) l = l. +Proof. induction l; simpl; congruence. Qed. + +Lemma map_extensionality : + forall f f' l, (forall x, f x = f' x) -> map f l = map f' l. +Proof. intros; induction l; simpl; try rewrite H; congruence. Qed. + +Lemma map_rev : forall f l, map f (rev l) = rev (map f l). +Proof. + induction l; auto. + simpl. rewrite map_app. rewrite IHl. reflexivity. +Qed. + + + +(*** End of the Lists section ***) + +End Lists. +Arguments lt_length [A] _ _. + +Hint Resolve length_app length_map length_rev : datatypes. +Hint Rewrite length_app length_map length_rev : lists. +Hint Rewrite rev_app rev_unit rev_rev : lists. +Hint Rewrite app_ass : lists. +Hint Rewrite <- app_nil_end app_comm_cons : lists. +Hint Rewrite map_app map_map map_rev map_identity : lists. +Hint Rewrite app_inj_prefix_length_prefix app_inj_prefix_length_suffix + app_inj_suffix_length_prefix app_inj_suffix_length_suffix + app_inj_prefix app_inj_suffix : app_inj. + + + +(* Look for equations in the context that prove that some lists are empty, + and substitute them away. *) +Ltac eliminate_nil := + repeat + match goal with + | H : nil = ?l1 ++ ?l2 |- _ => symmetry in H + | H : ?l1 ++ ?l2 = nil |- _ => + destruct (app_eq_nil l1 l2 H); try clear H + | H : nil = ?l |- _ => symmetry in H + | H : ?l = nil |- _ => subst l + end. + +(* Simplify all hypotheses involving the list [l]. *) +Ltac simplify_list l := + generalize dependent l; intro; + autorewrite with lists; unfold compose; simpl; + intros. + +(* Simplify all hypotheses involving lists. *) +Ltac simplify_lists := + repeat match goal with l:list _ |- _ => + generalize dependent l; intro; + autorewrite with lists; unfold compose; simpl; + generalize dependent l + end; + intros. + +(* For every hypothesis that is an equality between lists, add a hypothesis + stating that their lengths are equal. *) +Ltac equate_list_lengths := + let eq' := fresh "eq" in ( + pose (eq' := eq); + repeat match goal with + | H:(@eq (list ?T) ?lhs ?rhs) |- _ => + generalize (f_equal (@length T) H); + fold eq' in H + end; + unfold eq' in *; clear eq'; + autorewrite with lists; simpl; intros + ). + diff --git a/vendors/ott/coq/ott_list_core.v b/vendors/ott/coq/ott_list_core.v new file mode 100644 index 000000000000..628da35db145 --- /dev/null +++ b/vendors/ott/coq/ott_list_core.v @@ -0,0 +1,81 @@ +(* Definitions that are used by ott-generated output (when using non-expanded lists) *) + +Require Import Bool. +Require Import List. +Set Implicit Arguments. + + + +Section list_predicates. +Variable (A : Type). + +(* Test whether a predicate [p] holds for every element of a list [l]. *) +Definition forall_list (p:A->bool) (l:list A) := + fold_left (fun b (z:A) => b && p z) l true. + +(* Test whether a predicate [p] holds for some element of a list [l]. *) +Definition exists_list (p:A->bool) (l:list A) := + fold_left (fun b (z:A) => b || p z) l false. + +(* Assert that a property holds for every element of a list *) +Inductive Forall_list (P:A->Prop) : list A -> Prop := + | Forall_nil : Forall_list P nil + | Forall_cons : + forall x l, P x -> Forall_list P l -> Forall_list P (x::l). +(* Assert that a property holds for some element of a list *) +Inductive Exists_list (P:A->Prop) : list A -> Prop := + | Exists_head : forall x l, P x -> Exists_list P (x::l) + | Exists_tail : forall x l, Exists_list P l -> Exists_list P (x::l). + +End list_predicates. +Hint Constructors Forall_list Exists_list. + + + +Section list_mem. +(* Functions about membership in a list, with equality between a list + element and a potential member being decided by [eq_dec]. *) +Variable (A : Type). +Variable (eq_dec : forall (a b:A), {a=b} + {a<>b}). + +(* Test whether [x] appears in [l]. *) +Fixpoint list_mem (x:A) (l:list A) {struct l} : bool := + match l with + | nil => false + | cons h t => if eq_dec h x then true else list_mem x t +end. + +(* Remove any element of [l1] that is present in [l2]. *) +Fixpoint list_minus (l1 l2:list A) {struct l1} : list A := + match l1 with + | nil => nil + | cons h t => + if (list_mem h l2) then list_minus t l2 else cons h (list_minus t l2) +end. +End list_mem. + + + +Section Flat_map_definition. +Variables (A B : Type). +Variable (f : A -> list B). +(* This definition is almost the same as the one in the standard library of + Coq V8.0 or V8.1. The difference is that this version has the shape + fun A B f => (fix flat_map l := _) + while the standard library has + fun A B => (fix flat_map f l := _) + Our version has the advantage of making recursive definitions such as + fix foo x := match x with ... | List xs => flat_map foo xs end + well-founded. + *) +Fixpoint flat_map (l:list A) {struct l} : list B := + match l with + | nil => nil + | cons x t => (f x) ++ (flat_map t) + end. +End Flat_map_definition. + + + +(* Provide helper lemmas for {{coq-equality}} homs. *) +Require Export Ott.ott_list_eq_dec. diff --git a/vendors/ott/coq/ott_list_distinct.v b/vendors/ott/coq/ott_list_distinct.v new file mode 100644 index 000000000000..3ee0a8483d37 --- /dev/null +++ b/vendors/ott/coq/ott_list_distinct.v @@ -0,0 +1,197 @@ +(*** Lists with no repetition ***) + +Require Import Arith. +Require Import Bool. +Require Import List. +Require Import Ring. +Require Import Ott.ott_list_core. +Require Import Ott.ott_list_base. +Require Import Ott.ott_list_nth. +Require Import Ott.ott_list_mem. +Require Import Omega. + + + +Section All_distinct. +Set Implicit Arguments. +Variable A : Type. +Variable eq_dec : forall (x y:A), {x=y} + {x<>y}. + +Notation one_distinct := (fun x xs => negb (list_mem eq_dec x xs)). + +Fixpoint all_distinct (xs:list A) : bool := + match xs with + | nil => true + | x::xt => andb (one_distinct x xt) (all_distinct xt) + end. +Fixpoint disjoint (xs ys:list A) {struct xs} : bool := + match xs with + | nil => true + | x::xt => andb (one_distinct x ys) (disjoint xt ys) + end. + + + +Ltac destruct_andb := + repeat match goal with + | H : Is_true (?a && ?b) |- _ => + (* N.B. [andb_prop2] is called [andb_prop_elim] after V8.1 *) + destruct (andb_prop2 a b H); clear H + end. + +Lemma one_distinct_eq_fold_right : + forall x0 xs, + one_distinct x0 xs = + fold_right (fun x b => if eq_dec x x0 then false else b) true xs. +Proof. + induction xs; simpl in * . reflexivity. + destruct (eq_dec a x0); simpl in *; congruence. +Qed. +Lemma disjoint_eq_fold_right : + forall xs ys, + disjoint xs ys = fold_right (fun x => andb (one_distinct x ys)) true xs. +Proof. intros; induction xs; simpl in *; congruence. Qed. + +Lemma one_distinct_app : + forall x xs ys, + one_distinct x (xs++ys) = one_distinct x xs && one_distinct x ys. +Proof. + intros; induction xs; simpl in * . reflexivity. + destruct (eq_dec a x); auto with bool. +Qed. +Lemma all_distinct_app : + forall xs ys, + all_distinct (xs++ys) = + all_distinct xs && all_distinct ys && disjoint xs ys. +Proof. + intros; induction xs; simpl in * . ring. + rewrite one_distinct_app. rewrite IHxs. ring. +Qed. + +Lemma one_distinct_app_left : + forall x xs ys, + Is_true (one_distinct x (xs++ys)) -> Is_true (one_distinct x xs). +Proof. + intros; simpl in * . + simplify_lists. apply Is_true_eq_left. assert (H' := Is_true_eq_true _ H). + unfold negb in * . destruct (list_mem eq_dec x xs); auto. +Qed. +Lemma all_distinct_app_left : + forall xs ys, Is_true (all_distinct (xs++ys)) -> Is_true (all_distinct xs). +Proof. + intros. rewrite all_distinct_app in H. + destruct_andb; assumption. +Qed. +Lemma one_distinct_app_right : + forall x xs ys, + Is_true (one_distinct x (xs++ys)) -> Is_true (one_distinct x xs). +Proof. + intros; simpl in * . + simplify_lists. apply Is_true_eq_left. assert (H' := Is_true_eq_true _ H). + unfold negb in * . destruct (list_mem eq_dec x xs); auto. +Qed. +Lemma all_distinct_app_right : + forall xs ys, Is_true (all_distinct (xs++ys)) -> Is_true (all_distinct xs). +Proof. + intros. rewrite all_distinct_app in H. + destruct_andb; assumption. +Qed. + +Lemma disjoint_nil_left : forall xs, disjoint nil xs = true. +Proof. reflexivity. Qed. +Lemma disjoint_nil_right : forall xs, disjoint xs nil = true. +Proof. induction xs; simpl; congruence. Qed. +Lemma disjoint_comm : + forall xs ys, disjoint xs ys = disjoint ys xs. +Proof. + induction xs; intros; simpl in * . + rewrite disjoint_nil_right; reflexivity. + induction ys; simpl in * . rewrite IHxs; reflexivity. + rewrite <- IHys; repeat rewrite IHxs; simpl. + destruct (eq_dec a0 a); destruct (eq_dec a a0); try subst a0. + reflexivity. elim n; reflexivity. elim n; reflexivity. ring. +Qed. +Lemma disjoint_app_distr_left : + forall xs ys zs, disjoint xs (ys++zs) = disjoint xs ys && disjoint xs zs. +Proof. + intros. induction xs; simpl in * . reflexivity. + rewrite IHxs; rewrite one_distinct_app. ring. +Qed. +Lemma disjoint_app_distr_right : + forall xs ys zs, disjoint (xs++ys) zs = disjoint xs zs && disjoint ys zs. +Proof. + intros. rewrite disjoint_comm. rewrite disjoint_app_distr_left. + do 2 rewrite (disjoint_comm zs). reflexivity. +Qed. + +Lemma rev_one_distinct : + forall x xs, one_distinct x (rev xs) = one_distinct x xs. +Proof. + intros; induction xs; simpl in * . reflexivity. + rewrite one_distinct_app; rewrite IHxs; simpl. + destruct (eq_dec a x); ring. +Qed. +Lemma rev_disjoint_right : + forall xs ys, disjoint xs (rev ys) = disjoint xs ys. +Proof. + intros; induction xs; simpl in * . reflexivity. + rewrite rev_one_distinct; rewrite IHxs; reflexivity. +Qed. +Lemma rev_disjoint_left : + forall xs ys, disjoint (rev xs) ys = disjoint xs ys. +Proof. + intros; induction xs; simpl in * . reflexivity. + rewrite disjoint_app_distr_right; simpl. rewrite IHxs; ring. +Qed. +Lemma rev_all_distinct : + forall xs, all_distinct (rev xs) = all_distinct xs. +Proof. + intros; induction xs; simpl in * . reflexivity. + rewrite all_distinct_app; simpl. rewrite IHxs. + rewrite rev_disjoint_left; rewrite disjoint_comm; simpl; ring. +Qed. + +Lemma all_distinct_indices_aux : + forall xs i j, + i <= j -> + Is_true (all_distinct xs) -> + nth_error xs i = nth_error xs j -> + i < length xs -> + i = j. +Proof. + intros xs i j Ineq. + replace j with (i + (j-i)). 2: solve [auto with arith]. + generalize (j-i); clear Ineq j; intros k Distinct Nths Bound. + destruct k. solve [auto with arith]. elimtype False. + generalize dependent xs; induction i; intros; destruct xs; simpl in * . + omega. + destruct (andb_prop2 _ _ Distinct) as [Notin _]; clear Distinct Bound. + generalize dependent k; induction xs; intros; simpl in * . + destruct k; discriminate. + destruct (eq_dec a0 a). exact Notin. + destruct k; simpl in *; [injection Nths | idtac]; solve [eauto]. + omega. + eapply IHi; eauto. destruct_andb; assumption. + omega. +Qed. +Lemma all_distinct_indices : + forall xs i j, + Is_true (all_distinct xs) -> + nth_error xs i = nth_error xs j -> + i < length xs -> + i = j. +Proof. + intros. destruct (le_ge_dec i j). + eapply all_distinct_indices_aux; eauto. + symmetry. eapply all_distinct_indices_aux; eauto. omega. +Qed. + +End All_distinct. + +Notation one_distinct := (fun eq_dec x xs => negb (list_mem eq_dec x xs)). + +Hint Rewrite one_distinct_app all_distinct_app : lists. +Hint Rewrite disjoint_nil_left disjoint_nil_right : lists. +Hint Rewrite disjoint_app_distr_left disjoint_app_distr_right : lists. +Hint Rewrite rev_one_distinct rev_disjoint_right rev_disjoint_left + rev_all_distinct : lists. diff --git a/vendors/ott/coq/ott_list_eq_dec.v b/vendors/ott/coq/ott_list_eq_dec.v new file mode 100644 index 000000000000..5115fea6d4bb --- /dev/null +++ b/vendors/ott/coq/ott_list_eq_dec.v @@ -0,0 +1,44 @@ +(* Helper lemmas for {{coq-equality}} homs. *) + +Require Import List. +Set Implicit Arguments. + + + +(* Help construct equality decision procedures (for {{coq-equality}} + homs). We provide a transparent version of [List.list_eq_dec] from + the Coq standard library. This transparent version is needed for + types that contain a recursive call inside a list. Note that at the + time of writing ott does not generate a workable proof in this case: + you have to set up the induction manually and call [list_eq_dec] on + your own (TODO: point to an example --- it's systematic but not easy). *) +Lemma list_eq_dec : + forall (A:Type) (eq_dec : forall (x y:A), {x = y} + {x <> y}), + forall (x y:list A), {x = y} + {x <> y}. +Proof. + induction x as [| a l IHl]; destruct y as [| a0 l0]; auto with datatypes. + destruct (eq_dec a a0) as [e| e]. + destruct (IHl l0) as [e'| e']. + left; rewrite e; rewrite e'; trivial. + right; red in |- *; intro. + apply e'; injection H; trivial. + right; red in |- *; intro. + apply e; injection H; trivial. +Defined. + +(* While the Coq built-in "decide equality" tactic can decide equality on + pairs on its own, adding the following lemmas in the hint database helps + when lists of pairs are involved. *) +Lemma pair_eq_dec : + forall (A B:Type) + (eqA:forall a a0:A, {a=a0}+{a<>a0}) + (eqB:forall b b0:B, {b=b0}+{b<>b0}) + (x y:A*B), {x=y}+{x<>y}. +Proof. intros until 2; decide equality; auto. Qed. +Hint Resolve pair_eq_dec : ott_coq_equality. + +(* With the following hint, the default {{coq-equality}} proof handles + grammar types containing lists provided that no recursive call appears + in a list. *) +Hint Resolve list_eq_dec : ott_coq_equality. + diff --git a/vendors/ott/coq/ott_list_flat_map.v b/vendors/ott/coq/ott_list_flat_map.v new file mode 100644 index 000000000000..544a81b5dc9f --- /dev/null +++ b/vendors/ott/coq/ott_list_flat_map.v @@ -0,0 +1,96 @@ +(*** Flattening and mapping ***) + +Require Import Arith. +Require Import List. +Require Import Ott.ott_list_core. +Require Import Ott.ott_list_support. +Require Import Ott.ott_list_base. + + + +Section Flat_map. +Variables A B C : Type. +Implicit Types x : A. +Implicit Types y : B. +Implicit Types l xs : list A. +Implicit Types ys : list B. +Implicit Types xss : list (list A). +Implicit Types yss : list (list B). +Implicit Types f : A -> B. +Implicit Types g : B -> C. +Implicit Types F : A -> list B. +Implicit Types G : B -> list C. +Set Implicit Arguments. + +Lemma std_eq_flat_map : + forall F l, List.flat_map F l = flat_map F l. +Proof. induction l; simpl; congruence. Qed. + +Lemma length_flat_map : + forall F l, + length (flat_map F l) = fold_right plus 0 (map (fun x => length (F x)) l). +Proof. induction l; simpl; autorewrite with lists; congruence. Qed. + +Lemma flat_map_app : + forall F l l', flat_map F (l ++ l') = flat_map F l ++ flat_map F l'. +Proof. intros; induction l; simpl; autorewrite with lists; congruence. Qed. + +Lemma flat_map_map : + forall f G l, flat_map G (map f l) = flat_map (compose G f) l. +Proof. + intros; induction l; simpl; autorewrite with lists; + unfold compose in *; congruence. +Qed. + +Lemma map_flat_map : + forall F g l, map g (flat_map F l) = flat_map (compose (map g) F) l. +Proof. + intros; induction l; simpl; autorewrite with lists; + unfold compose in *; congruence. +Qed. + +Lemma flat_map_identity : forall l, flat_map (fun x => x::nil) l = l. +Proof. induction l; simpl; congruence. Qed. + +Lemma flat_map_extensionality : + forall F F' l, (forall x, F x = F' x) -> flat_map F l = flat_map F' l. +Proof. intros; induction l; simpl; try rewrite H; congruence. Qed. + +Lemma flat_map_rev : + forall F l, flat_map F (rev l) = rev (flat_map (compose (@rev _) F) l). +Proof. + intros; induction l; simpl. reflexivity. + unfold compose in *; autorewrite with lists; + rewrite flat_map_app; simpl; autorewrite with lists. congruence. +Qed. + +Definition flatten := flat_map (fun xs => xs). +Lemma unfold_flatten : flatten = flat_map (fun xs => xs). +Proof refl_equal _. + +Lemma In_flat_map_intro : + forall F l x y, + In x l -> In y (F x) -> In y (flat_map F l). +Proof. + intros; induction l; simpl in *; destruct H. + subst; auto with datatypes. auto with datatypes. +Qed. + +Lemma In_flat_map_elim : + forall F l y, + In y (flat_map F l) -> + exists x, In x l /\ In y (F x). +Proof. + intros; induction l; simpl in * . solve [elim H]. + destruct (in_app_or _ _ _ H). subst; eauto with datatypes. firstorder. +Qed. + +End Flat_map. + +Hint Rewrite std_eq_flat_map + length_flat_map flat_map_app flat_map_map map_flat_map + flat_map_identity flat_map_extensionality + flat_map_rev + unfold_flatten + : lists. +Hint Resolve In_flat_map_intro In_flat_map_elim : lists. diff --git a/vendors/ott/coq/ott_list_mem.v b/vendors/ott/coq/ott_list_mem.v new file mode 100644 index 000000000000..16ebf23aa7dd --- /dev/null +++ b/vendors/ott/coq/ott_list_mem.v @@ -0,0 +1,205 @@ +(*** Membership predicates ***) + +Require Import Arith. +Require Import Bool. +Require Import List. +Require Import Ring. +Require Import Ott.ott_list_base. +Require Import Ott.ott_list_core. +Require Import Ott.ott_list_nth. +Set Implicit Arguments. + + + +(*** Membership predicate ***) + +Section In. +Variable A : Type. +Implicit Types x : A. +Implicit Types xs l : list A. + +(* Speed up proofs by providing trivial consequences of [List.in_or_app] that + do not require eauto. *) +Lemma In_left_app : + forall l l' a, In a l -> In a (l ++ l'). +Proof. auto with datatypes. Qed. +Lemma In_right_app : + forall l l' a, In a l -> In a (l ++ l'). +Proof. auto with datatypes. Qed. + +Lemma not_in_app_or : + forall l l' a, ~In a (l ++ l') -> ~In a l /\ ~In a l'. +Proof. unfold not; auto with datatypes. Qed. +Lemma not_in_or_app : + forall l l' a, ~In a l /\ ~In a l' -> ~In a (l ++ l'). +Proof. unfold not; destruct 1; intros. pose (in_app_or _ _ _ H1). tauto. Qed. + +Lemma nth_error_In : + forall l n x, nth_error l n = Some x -> In x l. +Proof. + intros; generalize dependent l; induction n; destruct l; intros; + simpl in *; simplify_eq H; auto. +Qed. + +Lemma nth_safe_In : + forall l n H, In (nth_safe l n H) l. +Proof. + intros. eapply nth_error_In. rewrite nth_safe_eq_nth_error. eauto. +Qed. + +End In. + +Hint Resolve In_left_app In_right_app : datatypes. +Hint Resolve not_in_app_or not_in_or_app : datatypes. +Hint Resolve nth_error_In nth_safe_In : datatypes. + + + +(*** Membership predicate and map ***) + +Lemma image_In_map : + forall (A B:Type) x l (f:A->B), + In x l -> In (f x) (map f l). +Proof. + intros. induction l; simpl in * . tauto. destruct H; subst; tauto. +Qed. + +Lemma In_map_exists : + forall (A B:Type) l y (f:A->B), + In y (map f l) -> exists x, y = f x /\ In x l. +Proof. + intros. induction l; simpl in * . tauto. destruct H. eauto. firstorder. +Qed. + +Ltac elim_In_map H x Eq Mem := + let tmp := fresh "tmp" in ( + try rename H into tmp; + elim (In_map_exists _ _ _ tmp); intro x; destruct 1 as [Eq Mem]; + try clear tmp + ). + +Ltac elim_all_In_map := + repeat match goal with + | H : In ?y (map ?f ?l) |- _ => + let Eq := fresh "Eq" with tmp := fresh "tmp" in ( + rename H into tmp; + elim (In_map_exists _ _ _ tmp); intro; destruct 1 as [Eq Mem]; + clear tmp + ) + end. + + + +(*** Membership function ***) + +Section list_mem. +Variable A : Type. +Variable (eq_dec : forall (a b:A), {a=b} + {a<>b}). +Implicit Types x : A. +Implicit Types xs l : list A. + +Ltac case_eq foo := + generalize (refl_equal foo); + pattern foo at -1; + case foo. + +Notation list_mem := (list_mem eq_dec). + +Lemma list_mem_implies_In : + forall x l, Is_true (list_mem x l) -> In x l. +Proof. + intros. induction l. assumption. simpl in *; destruct (eq_dec a x); tauto. +Qed. +Lemma list_mem_false_implies_not_In : + forall x l, list_mem x l = false -> ~In x l. +Proof. + intros. induction l; simpl in * . tauto. + destruct (eq_dec a x). discriminate. tauto. +Qed. +Lemma case_list_mem_In : + forall x l, if list_mem x l then In x l else ~In x l. +Proof. + intros; induction l; simpl in * . tauto. + destruct (eq_dec a x). tauto. destruct (list_mem x l); tauto. +Qed. +Lemma list_mem_eq_In_dec : + forall x l, list_mem x l = if In_dec eq_dec x l then true else false. +Proof. + intros. assert (If := case_list_mem_In x l). + destruct (list_mem x l); destruct (In_dec eq_dec x l); tauto. +Qed. + +Lemma In_implies_list_mem : + forall x l, In x l -> Is_true (list_mem x l). +Proof. + intros. induction l. assumption. + simpl in *; destruct (eq_dec a x); simpl; tauto. +Qed. +Lemma not_In_implies_list_mem_false : + forall x l, ~In x l -> list_mem x l = false. +Proof. + intros. induction l; simpl in * . tauto. destruct (eq_dec a x); tauto. +Qed. + +Lemma list_mem_app : + forall x l l', list_mem x (l++l') = list_mem x l || list_mem x l'. +Proof. + intros; repeat rewrite list_mem_eq_In_dec; + repeat match goal with |- context C [In_dec ?eq_dec_ ?x_ ?l_] => + destruct (In_dec eq_dec_ x_ l_) + end; + intros; try ring; elimtype False; + (let a := type of i in (generalize dependent i; fold (~a))); + auto with datatypes. +Qed. + +Lemma nth_error_mem : + forall l n x, nth_error l n = Some x -> Is_true (list_mem x l). +Proof. intros; apply In_implies_list_mem. eapply nth_error_In; eauto. Qed. +Lemma nth_safe_mem : + forall l n H, Is_true (list_mem (nth_safe l n H) l). +Proof. intros; apply In_implies_list_mem. apply nth_safe_In; auto. Qed. + +End list_mem. + +Hint Rewrite list_mem_app : lists. + + + +(*** Removing an element ***) + +Section list_minus. +Variable A : Type. +Variable (eq_dec : forall (a b:A), {a=b} + {a<>b}). +Implicit Types x : A. +Implicit Types xs l : list A. + +Notation list_minus := (list_minus eq_dec). + +Lemma not_In_list_minus_self : + forall l x, ~In x (list_minus l (x::nil)). +Proof. + induction l; intros; simpl in * . tauto. + destruct (eq_dec x a); simpl in *; firstorder. +Qed. + +Lemma In_list_plus : + forall x l l', In x (list_minus l l') -> In x l. +Proof. + induction l; intros; simpl in * . assumption. + destruct (list_mem eq_dec a l'); simpl in *; firstorder. +Qed. + +Lemma In_list_minus_other : + forall l x x', x' <> x -> In x l -> In x (list_minus l (x'::nil)). +Proof. + induction l; intros; simpl in * . assumption. + destruct (eq_dec x' a); subst; simpl in * . + apply IHl; tauto. + destruct H0. tauto. auto. +Qed. + +End list_minus. + +Hint Resolve In_list_plus : In_list_plus. +Hint Resolve In_list_minus_other : datatypes. diff --git a/vendors/ott/coq/ott_list_nth.v b/vendors/ott/coq/ott_list_nth.v new file mode 100644 index 000000000000..46c1d17e58e2 --- /dev/null +++ b/vendors/ott/coq/ott_list_nth.v @@ -0,0 +1,194 @@ +Require Import Arith. +Require Import Omega. +Require Import List. +Require Import Ott.ott_list_support. +Require Import Ott.ott_list_base. + + + +Section Lists. + +Variables A B C : Type. +Implicit Types x : A. +Implicit Types y : B. +Implicit Types z : C. +Implicit Types xs l : list A. +Implicit Types ys : list B. +Implicit Types zs : list C. +Implicit Types f : A -> B. +Implicit Types g : B -> C. +Implicit Types m n : nat. +Set Implicit Arguments. + +Ltac case_eq foo := + generalize (refl_equal foo); + pattern foo at -1; + case foo. + + + +(*** Nth element ***) + +Unset Implicit Arguments. + +Fixpoint nth_safe l n {struct l} : n < length l -> A := + match l as l1, n as n1 return n1 < length l1 -> A with + | h::t, 0 => fun H => h + | h::t, S m => fun H => nth_safe t m (le_S_n _ _ H) + | nil, _ => fun H => match le_Sn_O _ H with end + end. + +Lemma nth_safe_eq_nth_error : + forall l n H, value (nth_safe l n H) = nth_error l n. +Proof. + induction l; intro n; pose (F := le_Sn_O n); destruct n; try (contradiction || tauto). + simpl length; intro H. + simpl nth_error; rewrite <- (IHl n (le_S_n _ _ H)). + reflexivity. +Qed. + +Lemma nth_safe_proof_irrelevance : + forall l n H H', nth_safe l n H = nth_safe l n H'. +Proof. + intros. assert (value (nth_safe l n H) = value (nth_safe l n H')). + transitivity (nth_error l n); + apply nth_safe_eq_nth_error || (symmetry; apply nth_safe_eq_nth_error). + injection H0; trivial. +Qed. + +Lemma nth_safe_cons : + forall x l n H, + nth_safe (x::l) (S n) H = nth_safe l n (le_S_n (S n) (length l) H). +Proof. intros. reflexivity. Qed. + +Lemma nth_safe_app : + forall l l' n (H:n nth_error l n = error. +Proof. + induction l; intros n H. solve [apply nth_error_nil]. + simpl in H. destruct n. assert False; [omega | intuition]. + simpl. apply IHl. omega. +Qed. + +Lemma nth_error_app_prefix : + forall l l' n H, nth_error (l++l') n = value (nth_safe l n H). +Proof. + intros. + assert (H' : n < length (l ++ l')). + rewrite (length_app l l'). solve [auto with arith]. + transitivity (value (nth_safe (l++l') n H')). + solve [apply nth_error_in]. + assert ((nth_safe l n H) = (nth_safe (l ++ l') n H')). + elim (nth_safe_app l l' n H). intros. + rewrite H0. apply nth_safe_proof_irrelevance. + rewrite H0. reflexivity. +Qed. + +Lemma nth_error_app_suffix : + forall l l' n, nth_error (l++l') (length l + n) = nth_error l' n. +Proof. + induction l; intros; simpl; auto. +Qed. + +Lemma nth_error_dec : + forall l n, nth_error l n = match le_lt_dec (length l) n with + | left _ => error + | right H => value (nth_safe l n H) + end. +Proof. + intros l n; generalize l; clear l. induction n; destruct l; try reflexivity. + simpl nth_error. simpl length. rewrite (IHn l); clear IHn. + decompose sum (lt_eq_lt_dec (length l) n); + destruct (le_lt_dec (length l) n); + destruct (le_lt_dec (S (length l)) (S n)); + reflexivity || + (assert False; [omega | intuition]) || + simpl. + match match goal with |- ?g => g end with value ?lhs = value ?rhs => + assert (Eq : lhs=rhs) + end. apply nth_safe_proof_irrelevance. rewrite Eq; reflexivity. +Qed. + +Lemma nth_error_length : + forall l n, match nth_error l n with + | Some _ => n < length l + | None => n >= length l + end. +Proof. + induction l; intros; destruct n; try solve [compute; auto with arith]. + simpl. pose (H := IHl n). + case_eq (nth_error l n); intros; + rewrite H0 in H; auto with arith. +Qed. + +Lemma nth_error_value : + forall l n x, nth_error l n = value x -> n < length l. +Proof. intros; assert (L := nth_error_length l n). rewrite H in L; exact L. Qed. +Lemma nth_error_error : + forall l n, nth_error l n = error -> n >= length l. +Proof. intros; assert (L := nth_error_length l n). rewrite H in L; exact L. Qed. + +Lemma nth_eq_nth_safe : + forall l n default, + nth n l default = match le_lt_dec (length l) n with + | left _ => default + | right H => nth_safe l n H + end. +Proof. + induction l; destruct n; reflexivity || intros. simpl nth; simpl length. + destruct (le_lt_dec (S (length l)) (S n)); + case_eq (le_lt_dec (length l) n); intros; + [idtac | elimtype False; omega | elimtype False; omega | idtac]; + pose (H' := IHl n default); rewrite H in H'; rewrite H'. + reflexivity. simpl; apply nth_safe_proof_irrelevance. +Qed. + +Lemma nth_eq_nth_error : + forall l n default, + nth n l default = match nth_error l n with + | Some x => x + | None => default + end. +Proof. + induction l; destruct n; intros; try reflexivity. simpl; apply IHl. +Qed. + +End Lists. + +Arguments nth_safe [A] _ _ _. +Arguments nth_safe_eq_nth_error [A] _ _ _. +Arguments nth_safe_proof_irrelevance [A] _ _ _ _. +Arguments nth_safe_cons [A] _ _ _ _. +Arguments nth_safe_app [A] _ _ _ _. + +Hint Rewrite nth_map nth_ok_map nth_error_map : lists. +Hint Rewrite nth_error_nil : lists. +Hint Rewrite nth_error_in nth_error_out using omega : list_nth_error. +Hint Rewrite nth_error_dec : list_nth_dec. +Hint Resolve nth_error_value nth_error_error : datatypes. diff --git a/vendors/ott/coq/ott_list_predicate.v b/vendors/ott/coq/ott_list_predicate.v new file mode 100644 index 000000000000..fef347105dc0 --- /dev/null +++ b/vendors/ott/coq/ott_list_predicate.v @@ -0,0 +1,426 @@ +(*** Predicates on a list ***) + +Require Import Arith. +Require Import Bool. +Require Import List. +Require Import Ott.ott_list_base. +Require Import Ott.ott_list_core. +Require Import Ott.ott_list_takedrop. + + + +Section List_predicate_inductive. +(* Properties of [Forall_list] and [Exists_list] *) + +Variables A : Type. +Implicit Types x : A. +Implicit Types xs l : list A. +Implicit Types p : A -> bool. +Implicit Types P : A -> Prop. +Set Implicit Arguments. + +Lemma not_Exists_list_nil : forall P, ~(Exists_list P nil). +Proof. intros P H; inversion H. Qed. +Hint Resolve not_Exists_list_nil. + +Lemma Forall_list_dec : + forall P (dec : forall x, {P x} + {~P x}) l, + {Forall_list P l} + {~Forall_list P l}. +Proof. + induction l; simpl in * . solve [auto]. + destruct (dec a); [destruct IHl | idtac]; auto; + right; intro; inversion_clear H; tauto. +Qed. + +Lemma Exists_list_dec : + forall P (dec : forall x, {P x} + {~P x}) l, + {Exists_list P l} + {~Exists_list P l}. +Proof. + induction l; simpl in * . solve [auto]. + destruct (dec a); [idtac | destruct IHl]; auto; + right; intro; inversion_clear H; tauto. +Qed. + +Lemma Forall_Exists_list_dec : + forall P Q (dec : forall x, {P x} + {Q x}) l, + {Forall_list P l} + {Exists_list Q l}. +Proof. + induction l; simpl in * . solve [auto]. + destruct (dec a); destruct IHl; auto. +Qed. + +Lemma Forall_list_In : + forall P x l, In x l -> Forall_list P l -> P x. +Proof. + induction l; intros; simpl in *; destruct H; + inversion H0; subst; auto. +Qed. + +Lemma In_Forall_list : + forall P l, (forall x, In x l -> P x) -> Forall_list P l. +Proof. + induction l; firstorder. +Qed. + +Lemma exists_In_Exists_list : + forall P l, Exists_list P l -> exists x, In x l /\ P x. +Proof. + induction 1. + exists x; simpl; tauto. + elim IHExists_list; intros. exists x0; simpl; tauto. +Qed. + +Lemma Forall_list_app_left : + forall P l l', Forall_list P (l++l') -> Forall_list P l. +Proof. + intros; induction l; simpl in * . auto. + inversion_clear H. auto. +Qed. +Lemma Forall_list_app_right : + forall P l l', Forall_list P (l++l') -> Forall_list P l'. +Proof. + induction l; intros. auto. inversion_clear H; auto. +Qed. +Lemma app_Forall_list : + forall P l l', Forall_list P l -> Forall_list P l' -> Forall_list P (l++l'). +Proof. + intros; induction l; simpl in * . assumption. + inversion_clear H. auto. +Qed. +Hint Resolve app_Forall_list Forall_list_app_left Forall_list_app_right. + +Lemma Exists_list_app_or : + forall P l l', Exists_list P (l++l') -> + Exists_list P l \/ Exists_list P l'. +Proof. + intros; induction l; simpl in * . solve [auto]. + inversion_clear H. solve [auto]. + destruct (IHl H0); solve [auto]. +Qed. +Lemma app_Exists_list_left : + forall P l l', Exists_list P l -> Exists_list P (l++l'). +Proof. + intros; induction l; inversion_clear H; simpl; auto. +Qed. +Lemma app_Exists_list_right : + forall P l l', Exists_list P l' -> Exists_list P (l++l'). +Proof. + intros; induction l; simpl; auto. +Qed. +Hint Resolve Exists_list_app_or app_Exists_list_left app_Exists_list_right. + +Lemma rev_Forall_list : + forall P l, Forall_list P l -> Forall_list P (rev l). +Proof. induction 1; simpl; auto. Qed. +Lemma rev_Exists_list : + forall P l, Exists_list P l -> Exists_list P (rev l). +Proof. induction 1; simpl; auto. Qed. +Lemma Forall_list_rev : + forall P l, Forall_list P (rev l) -> Forall_list P l. +Proof. + intros. rewrite <- (rev_involutive l). apply rev_Forall_list; assumption. +Qed. +Lemma Exists_list_rev : + forall P l, Exists_list P (rev l) -> Exists_list P l. +Proof. + intros. rewrite <- (rev_involutive l). apply rev_Exists_list; assumption. +Qed. + +Lemma take_Forall_list : + forall P n l, Forall_list P l -> Forall_list P (take n l). +Proof. + intros; generalize dependent n; induction l; intros; + inversion_clear H; destruct n; simpl; auto. +Qed. +Lemma drop_Forall_list : + forall P n l, Forall_list P l -> Forall_list P (drop n l). +Proof. + intros; generalize dependent n; induction l; intros; + inversion_clear H; destruct n; simpl; auto. +Qed. +Lemma Forall_list_take_drop : + forall P n l, + Forall_list P (take n l) -> Forall_list P (drop n l) -> Forall_list P l. +Proof. intros; rewrite <- (take_app_drop l n); auto. Qed. + +Lemma take_drop_Exists_list : + forall P n l, Exists_list P l -> + Exists_list P (take n l) \/ Exists_list P (drop n l). +Proof. intros; rewrite <- (take_app_drop l n) in H; auto. Qed. +Lemma Exists_list_take : + forall P n l, Exists_list P (take n l) -> Exists_list P l. +Proof. intros; rewrite <- (take_app_drop l n); auto. Qed. +Lemma Exists_list_drop : + forall P n l, Exists_list P (drop n l) -> Exists_list P l. +Proof. intros; rewrite <- (take_app_drop l n); auto. Qed. + +Lemma Forall_list_implies : + forall (P Q:A->Prop) xs, + (forall x, In x xs -> P x -> Q x) -> + Forall_list P xs -> Forall_list Q xs. +Proof. induction 2; firstorder. Qed. +Lemma Exists_list_implies : + forall (P Q:A->Prop) xs, + (forall x, In x xs -> P x -> Q x) -> + Exists_list P xs -> Exists_list Q xs. +Proof. induction 2; firstorder. Qed. + +End List_predicate_inductive. + +Hint Resolve not_Exists_list_nil : lists. +Hint Resolve In_Forall_list : lists. +Hint Resolve Forall_list_app_left Forall_list_app_right : lists. +Hint Resolve app_Forall_list Exists_list_app_or : lists. +Hint Resolve app_Exists_list_left app_Exists_list_right : lists. +Hint Resolve rev_Forall_list rev_Exists_list : lists. +Hint Resolve Forall_list_rev Exists_list_rev : lists. +Hint Resolve take_Forall_list drop_Forall_list Forall_list_take_drop + take_drop_Exists_list Exists_list_take Exists_list_drop + : take_drop. +Hint Resolve Forall_list_implies Exists_list_implies : lists. + + + +Section List_predicate_fold. +(* Properties of [forall_list] and [exists_list] *) + +Variables A : Type. +Implicit Types x : A. +Implicit Types xs l : list A. +Implicit Types p : A -> bool. +Implicit Types P : A -> Prop. +Set Implicit Arguments. + +Lemma forall_list_eq_fold_left_map : + forall p l, + forall_list p l = fold_left andb (map p l) true. +Proof. + unfold forall_list; intros. generalize true. + induction l; intros; simpl in * . reflexivity. + rewrite IHl. reflexivity. +Qed. +Lemma forall_list_eq_fold_right_map : + forall p l, + forall_list p l = fold_right andb true (map p l). +Proof. + intros. rewrite forall_list_eq_fold_left_map. + apply fold_symmetric; auto with bool. +Qed. +Lemma forall_list_eq_fold_left : + forall p l, + forall_list p l = fold_left (fun b z => b && p z) l true. +Proof. auto. Qed. +Lemma forall_list_eq_fold_right : + forall p l, + forall_list p l = fold_right (fun z b => b && p z) true l. +Proof. + intros; rewrite forall_list_eq_fold_right_map. + induction l; simpl. reflexivity. rewrite IHl. auto with bool. +Qed. + +Lemma exists_list_eq_fold_left_map : + forall p l, + exists_list p l = fold_left orb (map p l) false. +Proof. + unfold exists_list; intros. generalize false. + induction l; intros; simpl in * . reflexivity. + rewrite IHl. reflexivity. +Qed. +Lemma exists_list_eq_fold_right_map : + forall p l, + exists_list p l = fold_right orb false (map p l). +Proof. + intros. rewrite exists_list_eq_fold_left_map. + apply fold_symmetric; auto with bool. +Qed. +Lemma exists_list_eq_fold_left : + forall p l, + exists_list p l = fold_left (fun b z => b || p z) l false. +Proof. auto. Qed. +Lemma exists_list_eq_fold_right : + forall p l, + exists_list p l = fold_right (fun z b => b || p z) false l. +Proof. + intros; rewrite exists_list_eq_fold_right_map. + induction l; simpl. reflexivity. rewrite IHl. auto with bool. +Qed. + +Lemma forall_list_extensionality : + forall p p' l, (forall x, p x = p' x) -> forall_list p l = forall_list p' l. +Proof. + intros; repeat rewrite forall_list_eq_fold_right. + induction l; simpl. reflexivity. rewrite IHl; rewrite H. reflexivity. +Qed. + +Lemma exists_list_extensionality : + forall p p' l, (forall x, p x = p' x) -> exists_list p l = exists_list p' l. +Proof. + intros; repeat rewrite exists_list_eq_fold_right. + induction l; simpl. reflexivity. rewrite IHl; rewrite H. reflexivity. +Qed. + +End List_predicate_fold. + + + +Section List_predicate_relationship. + +Variables A : Type. +Implicit Types x : A. +Implicit Types xs l : list A. +Implicit Types p : A -> bool. +Implicit Types P : A -> Prop. +Set Implicit Arguments. + +(* TODO: lemmas relating Forall_list and forall_list, Exists_list + and exists_list, forall_list and exists_list. *) + +Lemma Forall_if_implies_if_forall : + forall P p l, + Forall_list (fun z => if p z then P z else ~P z) l -> + if forall_list p l then Forall_list P l else ~Forall_list P l. +Proof. + intros; rewrite forall_list_eq_fold_right. + induction H; simpl in * . apply Forall_nil. + destruct (fold_right (fun (z : A) (b : bool) => b && p z) true l). + destruct (p x); simpl. apply Forall_cons; assumption. + intro No; inversion No; tauto. + simpl; intro No; inversion No; tauto. +Qed. + +End List_predicate_relationship. + + + +(*** More about maps ***) + +Section List_predicate_map. + +Variables A B C : Type. +Implicit Types x : A. +Implicit Types y : B. +Implicit Types z : C. +Implicit Types xs l : list A. +Implicit Types ys : list B. +Implicit Types zs : list C. +Implicit Types f : A -> B. +Implicit Types g : B -> C. +Implicit Types P : A -> Prop. +Implicit Types Q : B -> Prop. +Implicit Types R : C -> Prop. +Implicit Types m n : nat. +Set Implicit Arguments. + +Lemma map_take : + forall f l n, map f (take n l) = take n (map f l). +Proof. + intros. generalize dependent n; induction l; intros. + destruct n; reflexivity. + destruct n. reflexivity. simpl; rewrite IHl; reflexivity. +Qed. + +Lemma map_drop : + forall f l n, map f (drop n l) = drop n (map f l). +Proof. + intros. generalize dependent n; induction l; intros. + destruct n; reflexivity. + destruct n. reflexivity. simpl; rewrite IHl; reflexivity. +Qed. + +Lemma Forall_list_implies_map : + forall P Q f l, + (forall x, P x -> Q (f x)) -> + Forall_list P l -> Forall_list Q (map f l). +Proof. induction 2; simpl; auto with lists. Qed. +Lemma Exists_list_implies_map : + forall P Q f l, + (forall x, P x -> Q (f x)) -> + Exists_list P l -> Exists_list Q (map f l). +Proof. induction 2; simpl; auto with lists. Qed. + +Lemma Forall_list_map_implies : + forall P Q f l, + (forall x, Q (f x) -> P x) -> + Forall_list Q (map f l) -> Forall_list P l. +Proof. + intros. induction l; simpl in * . apply Forall_nil. + inversion_clear H0. auto with lists. +Qed. +Lemma Exists_list_map_implies : + forall P Q f l, + (forall x, Q (f x) -> P x) -> + Exists_list Q (map f l) -> Exists_list P l. +Proof. + intros. induction l; simpl in *; + inversion_clear H0; auto with lists. +Qed. + +Lemma Forall_list_map_intro : + forall Q f l, + Forall_list (fun x => Q (f x)) l -> Forall_list Q (map f l). +Proof. induction 1; simpl; auto with lists. Qed. +Lemma Exists_list_map_intro : + forall Q f l, + Exists_list (fun x => Q (f x)) l -> Exists_list Q (map f l). +Proof. induction 1; simpl; auto with lists. Qed. + +Lemma Forall_list_map_elim : + forall Q f l, + Forall_list Q (map f l) -> Forall_list (fun x => Q (f x)) l. +Proof. + intros. induction l; simpl in * . apply Forall_nil. + inversion_clear H. auto with lists. +Qed. +Lemma Exists_list_map_elim : + forall Q f l, + Exists_list Q (map f l) -> Exists_list (fun x => Q (f x)) l. +Proof. + intros. induction l; simpl in *; + inversion_clear H; auto with lists. +Qed. + +End List_predicate_map. + +Hint Rewrite map_take map_drop : take_drop. +Hint Resolve Forall_list_implies_map Exists_list_implies_map : lists. +Hint Resolve Forall_list_map_implies Exists_list_map_implies : lists. +Hint Resolve Forall_list_map_intro Exists_list_map_intro : lists. +Hint Resolve Forall_list_map_elim Exists_list_map_elim : lists. + +(* Simplify hypotheses and goals involving [Forall_list]. Simplifications + involve rewriting [Forall_list ?P ?l] into equivalent statements + where [?l] is simpler. Recognised ``complex'' constructors for [?l] + are [nil], [cons], [app], [map], [rev]. In the goal, only + simplifications that do not solve or split the goal are considered. + *) +Ltac simplify_Forall_list := + let tmp := fresh "tmp" in ( + repeat match goal with + | H : Forall_list ?P nil |- _ => clear H + | H : Forall_list ?P (cons ?a ?l) |- _ => + inversion_clear H; + match goal with H':_ |- _ => rename H' into H end + | H : Forall_list ?P (app ?l0 ?l1) |- _ => + rename H into tmp; + assert (H := Forall_list_app_right l0 l1 tmp); + generalize H; clear H; + assert (H := Forall_list_app_left l0 l1 tmp); + intro; match goal with H':_ |- _ => + move H' after tmp; simpl in H' + end; + move H after tmp; clear tmp; simpl in H + | H : Forall_list ?P (map ?f ?l) |- _ => + (*apply Forall_list_map_elim in H*) (*>=V8.1 only*) + rename H into tmp; + assert (H := Forall_list_map_elim f l tmp); + move H after tmp; clear tmp; simpl in H + | H : Forall_list ?P (rev ?l) |- _ => + rename H into tmp; + assert (tmp := Forall_list_rev l H); + move H after tmp; clear tmp; simpl in H + end; + repeat ((apply Forall_list_map_intro || + apply rev_Forall_list + ); simpl) + ). + diff --git a/vendors/ott/coq/ott_list_repeat.v b/vendors/ott/coq/ott_list_repeat.v new file mode 100644 index 000000000000..d024a460913d --- /dev/null +++ b/vendors/ott/coq/ott_list_repeat.v @@ -0,0 +1,83 @@ +(*** Constant list ***) + +Require Import Arith. +Require Import List. +Require Import Omega. +Require Import Ott.ott_list_support. +Require Import Ott.ott_list_base. +Require Import Ott.ott_list_nth. +Import List_lib_Arith. + + + +Section Lists. + +Variables A B C : Type. +Implicit Types x : A. +Implicit Types y : B. +Implicit Types z : C. +Implicit Types xs l : list A. +Implicit Types ys : list B. +Implicit Types zs : list C. +Implicit Types f : A -> B. +Implicit Types g : B -> C. +Implicit Types m n : nat. +Set Implicit Arguments. + +Fixpoint repeat n x {struct n} : list A := + match n with + | 0 => nil + | S m => x :: repeat m x + end. + +Lemma repeat_length : forall n x, length (repeat n x) = n. +Proof. + induction n; intros. reflexivity. simpl. rewrite IHn. reflexivity. +Qed. + +Lemma repeat_app : + forall n m x, repeat (n + m) x = repeat n x ++ repeat m x. +Proof. + induction n; simpl; intros. reflexivity. rewrite IHn. reflexivity. +Qed. + +Lemma repeat_S : forall n x, repeat (S n) x = repeat n x ++ x::nil. +Proof. + intros. replace (S n) with (n+1). 2: omega. + rewrite repeat_app. reflexivity. +Qed. + +Lemma nth_error_repeat : + forall m n x, + nth_error (repeat n x) m = if le_lt_dec n m then error else value x. +Proof. + induction m; destruct n; intros; try reflexivity. + simpl repeat. simpl nth_error. rewrite IHm. + symmetry. apply le_lt_dec_S. +Qed. + +Lemma nth_repeat : + forall m n x, + nth m (repeat n x) x = x. +Proof. + induction m; destruct n; intros; try reflexivity. + simpl. rewrite IHm. reflexivity. +Qed. + +Lemma nth_safe_repeat : + forall m n x H, + nth_safe (repeat n x) m H = x. +Proof. + intros. assert (value (nth_safe (repeat n x) m H) = value x). + rewrite nth_safe_eq_nth_error. rewrite nth_error_repeat. + rewrite repeat_length in H. + destruct (le_lt_dec n m). elimtype False; omega. reflexivity. + injection H0. tauto. +Qed. + +End Lists. + + + +Hint Rewrite repeat_length repeat_app repeat_S : lists. +Hint Rewrite nth_error_repeat nth_repeat nth_safe_repeat : lists. diff --git a/vendors/ott/coq/ott_list_support.v b/vendors/ott/coq/ott_list_support.v new file mode 100644 index 000000000000..3cdcd2a2adcb --- /dev/null +++ b/vendors/ott/coq/ott_list_support.v @@ -0,0 +1,53 @@ +(* Additional definitions and lemmas on lists *) + +Require Import Arith. +Require Import Omega. + + + +(*** Support definitions and lemmas ***) + +Module List_lib_Arith. + +Lemma le_lt_dec_S : + forall n m A (x y:A), + (if le_lt_dec (S n) (S m) then x else y) = + (if le_lt_dec n m then x else y). +Proof. + intros. destruct (le_lt_dec n m); destruct (le_lt_dec (S n) (S m)). + reflexivity. elimtype False; omega. elimtype False; omega. reflexivity. +Qed. + +End List_lib_Arith. + + + +Section functions. + Set Implicit Arguments. + Variables A B C D : Type. + Definition compose (g:B->C) (f:A->B) x := g (f x). + Definition compose2 (h:B->C->D) (f:A->B) (g:A->C) x y := h (f x) (g y). +End functions. +Hint Unfold compose compose2. + + + +Section option. + Set Implicit Arguments. + Variables A B : Type. + + Definition map_option (f:A->B) (xo:option A) : option B := + match xo with + | Some x => Some (f x) + | None => None + end. + Definition map_error := map_option. + + Definition fold_option (f:A->B->B) (xo:option A) (y:B) : B := + match xo with + | Some x => f x y + | None => y + end. + Definition fold_error := fold_option. +End option. +Hint Unfold map_option map_error fold_option fold_error. diff --git a/vendors/ott/coq/ott_list_takedrop.v b/vendors/ott/coq/ott_list_takedrop.v new file mode 100644 index 000000000000..ff21685d2c68 --- /dev/null +++ b/vendors/ott/coq/ott_list_takedrop.v @@ -0,0 +1,317 @@ +(* Additional definitions and lemmas on lists *) + +Require Import Arith. +Require Import Max. +Require Import Min. +Require Import List. +Require Import Omega. +Require Import Ott.ott_list_support. +Require Import Ott.ott_list_base. +Require Import Ott.ott_list_nth. +Import List_lib_Arith. + + + +Section Lists. + +Variables A B C : Type. +Implicit Types x : A. +Implicit Types y : B. +Implicit Types z : C. +Implicit Types xs l : list A. +Implicit Types ys : list B. +Implicit Types zs : list C. +Implicit Types f : A -> B. +Implicit Types g : B -> C. +Implicit Types m n : nat. +Set Implicit Arguments. + + + +(*** Prefix and suffix extraction ***) + +Fixpoint take n l {struct l} : list A := + match n, l with + | 0, _ => nil + | _, nil => nil + | S m, h::t => h :: (take m t) + end. + +Lemma take_0 : forall l, take 0 l = nil. +Proof. destruct l; reflexivity. Qed. +Lemma take_nil : forall n, take n nil = nil. +Proof. destruct n; reflexivity. Qed. + +Lemma take_all : + forall l n, length l <= n -> take n l = l. +Proof. + induction l; destruct n; intros; try reflexivity. + solve [inversion H]. + simpl in * . apply (f_equal2 (@cons A)). reflexivity. apply IHl. omega. +Qed. + +Lemma take_length : + forall l n, length (take n l) = min n (length l). +Proof. + induction l; destruct n; intros; simpl; try rewrite IHl; reflexivity. +Qed. + +Lemma take_some_length : + forall l n, n <= length l -> length (take n l) = n. +Proof. + intros. rewrite take_length. auto with arith. +Qed. + +Lemma take_nth : + forall l m n, + nth_error (take m l) n = if le_lt_dec m n then error else nth_error l n. +Proof. + intros until n. generalize dependent l. generalize dependent m. + induction n; intros; simpl. + destruct m; destruct l; reflexivity. + destruct l; simpl. + destruct (le_lt_dec m (S n)); destruct m; reflexivity. + destruct m. reflexivity. + rewrite IHn. symmetry. apply le_lt_dec_S. +Qed. + +Lemma take_take : + forall l m n, take m (take n l) = take (min m n) l. +Proof. + induction l; intros; simpl. + destruct (min m n); destruct n; repeat rewrite take_nil; reflexivity. + destruct n; destruct m; try reflexivity. + simpl. rewrite IHl. reflexivity. +Qed. + +Fixpoint drop n l {struct l} : list A := + match n, l with + | 0, _ => l + | _, nil => nil + | S m, h::t => drop m t + end. + +Lemma drop_0 : forall l, drop 0 l = l. +Proof. destruct l; reflexivity. Qed. +Lemma drop_nil : forall n, drop n nil = nil. +Proof. destruct n; reflexivity. Qed. + +Lemma drop_all : + forall l n, length l <= n -> drop n l = nil. +Proof. + induction l; destruct n; intros; try reflexivity. + solve [inversion H]. + simpl in * . apply IHl. omega. +Qed. + +Lemma drop_length : forall l n, length (drop n l) = length l - n. +Proof. + induction l; destruct n; intros; simpl; try rewrite IHl; reflexivity. +Qed. + +Lemma match_drop : + forall l n, match drop n l with + | nil => length l <= n + | _::_ => length l > n + end. +Proof. + intros. destruct (le_gt_dec (length l) n) as [Le | Gt]. + rewrite drop_all; assumption. + generalize (conj (refl_equal (length (drop n l))) (refl_equal (drop n l))). + pattern (drop n l) at 1 3. + case (drop n l); intros; rewrite drop_length in H; destruct H; simpl in * . + elimtype False; omega. + rewrite <- H0. assumption. +Qed. + +Lemma drop_nth : + forall l m n, nth_error (drop m l) n = nth_error l (m + n). +Proof. + induction l; intros. + rewrite drop_nil. repeat rewrite nth_error_nil. reflexivity. + destruct m; simpl; auto. +Qed. + +Lemma drop_drop : + forall l m n, drop m (drop n l) = drop (n + m) l. +Proof. + intros; generalize dependent l. induction n; simpl; intros. + rewrite drop_0. reflexivity. + destruct l; simpl; [destruct m | rewrite IHn]; reflexivity. +Qed. + +Lemma take_app_drop : forall l n, take n l ++ drop n l = l. +Proof. + intros l n; generalize dependent l; induction n; intros. + rewrite take_0; rewrite drop_0; reflexivity. + induction l; simpl. reflexivity. + rewrite IHn. reflexivity. +Qed. + +Lemma take_app_exact : + forall l l' n, length l = n -> take n (l ++ l') = l. +Proof. + induction l; intros; subst n; simpl in * . + rewrite take_0. reflexivity. + rewrite IHl; reflexivity. +Qed. + +Lemma drop_app_exact : + forall l l' n, length l = n -> drop n (l ++ l') = l'. +Proof. + induction l; intros; subst n; simpl in * . + rewrite drop_0. reflexivity. + rewrite IHl; reflexivity. +Qed. + +Lemma take_app_long : + forall l l' n, n <= length l -> take n (l ++ l') = take n l. +Proof. + intros. + set (tmp := l) in |- * at 2. rewrite <- (take_app_drop l n). subst tmp. + rewrite app_ass. rewrite take_app_exact. reflexivity. + apply take_some_length. assumption. +Qed. + +Lemma drop_app_long : + forall l l' n, n <= length l -> drop n (l ++ l') = drop n l ++ l'. +Proof. + intros. + set (tmp := l) in |- * at 2. rewrite <- (take_app_drop l n). subst tmp. + rewrite app_ass. rewrite drop_app_exact. reflexivity. + apply take_some_length. assumption. +Qed. + +Lemma take_app_short : + forall l l' n, take (length l + n) (l ++ l') = l ++ take n l'. +Proof. intros. induction l; simpl; congruence. Qed. + +Lemma drop_app_short : + forall l l' n, drop (length l + n) (l ++ l') = drop n l'. +Proof. intros. induction l; simpl; congruence. Qed. + +Lemma take_from_app : + forall l l', take (length l) (l ++ l') = l. +Proof. + intros. replace (length l) with (length l + 0). 2: omega. + rewrite take_app_short. rewrite take_0. + symmetry. apply app_nil_end. +Qed. + +Lemma drop_from_app : + forall l l', drop (length l) (l ++ l') = l'. +Proof. + intros. replace (length l) with (length l + 0). 2: omega. + rewrite drop_app_short. apply drop_0. +Qed. + +Lemma take_take_app : + forall l l' n, n <= length l -> take n (take n l ++ l') = take n l. +Proof. + intros. rewrite take_app_long. rewrite take_take. + destruct (min_dec n n) as [Eq | Eq]; rewrite Eq; reflexivity. + rewrite take_some_length; trivial. +Qed. + +Lemma drop_take_app : + forall l l' n, n <= length l -> drop n (take n l ++ l') = l'. +Proof. + intros. rewrite drop_app_exact. reflexivity. + apply take_some_length. assumption. +Qed. + + + +(*** End of the Lists section ***) + +End Lists. + +Hint Rewrite take_0 take_nil take_length take_nth take_take : take_drop. +Hint Rewrite take_all : take_drop_short. +Hint Rewrite take_some_length : take_drop_long. +Hint Rewrite drop_0 drop_nil drop_length drop_nth drop_drop : take_drop. +Hint Rewrite drop_all : take_drop_short. +Hint Rewrite take_app_drop : take_drop. +Hint Rewrite take_app_exact drop_app_exact : take_drop_exact. +Hint Rewrite take_app_long drop_app_long : take_drop_long. +Hint Rewrite take_app_short drop_app_short : take_drop. +Hint Rewrite take_from_app drop_from_app : take_drop. +Hint Rewrite take_take_app drop_take_app : take_drop_long. + +(* Break the list [original] into two pieces [prefix] and [suffix] + at the location indicated by [cut_point]. [cut_point] indicates + the number of elements to retain in [prefix]; it may also be + a list whose length is used. This tactic leaves either one or two + goals. The first goal has a hypothesis stating that the length of + [prefix] is [cut_point]. The second goal has [original] left + unchanged and an additional hypothesis stating that + [length original < cut_point]; the tactic tries refuting this by + calling omega. *) +Ltac cut_list original cut_point prefix suffix := + let l := fresh "whole" with Ineq := fresh "Ineq" with + Eq := fresh "Decomposition" with Eql := fresh "Eqlen" with + p := fresh "prefix" with s := fresh "suffix" with + n := match type of cut_point with + | nat => cut_point + | list _ => constr:(length cut_point) + | _ => fail "cut_list: unrecognised cut_point type" + end in ( + destruct (le_lt_dec n (length original)) as [Ineq | Ineq]; [ + (**length original >= n, so length prefix = n**) + assert (Eql := take_some_length original Ineq); clear Ineq; + generalize dependent original; intro l; + assert (Eq := take_app_drop l n); + set (p := (take n l)) in *; set (s := (drop n l)) in *; + clearbody p s; subst l; + (*We've done the cutting, now we try to do some simplifications*) + autorewrite with lists take_drop; intros; + rename p into prefix; rename s into suffix + | (**length original < n**) + try (equate_list_lengths; elimtype False; omega) ] + ). + +(* Look for equations between lists that can be simplified. + [?p ++ ?s = ?p' ++ ?s'] is simplified into [?p = ?p'] and [?s = ?s'] *) +Ltac parallel_split := + let eq' := fresh "eq" with tmp := fresh "tmp" with + EqPrefix := fresh "Eql" with EqSuffix := fresh "Eql" in ( + pose (eq' := eq); + repeat match goal with + | H : app ?p ?s = app ?p' ?s' |- _ => + ( + assert (tmp : length p = length p'); + [equate_list_lengths; omega | idtac]; + assert (EqPrefix := app_inj_prefix_length_prefix _ _ _ _ tmp H); + rewrite <- EqPrefix in H; + assert (EqSuffix := app_inj_prefix _ _ _ H); + clear tmp H + ) || ( + assert (tmp : length s = length s'); + [equate_list_lengths; omega | idtac]; + assert (EqSuffix := app_inj_prefix_length_suffix _ _ _ _ tmp H); + rewrite <- EqSuffix in H; + assert (EqPrefix := app_inj_suffix _ _ _ H); + clear tmp H + ) || fold eq' in H + | H : cons ?a ?l = cons ?a' ?l' |- _ => + injection H; intro; clear H; intro H + end; + unfold eq' in *; clear eq' + ). +(* Ad-hoc obsolete tactic (superceded by [parallel_split]) *) +Ltac parallel_split_maps := + repeat match goal with + | H : map ?f ?p ++ map ?f ?s = ?p' ++ ?s' |- _ => + assert (Eqlen' : length (map f p) = length p'); + [equate_list_lengths; omega | idtac]; + assert (EqPrefix := app_inj_prefix_length_prefix _ _ _ _ Eqlen' H); + rewrite <- EqPrefix in H; + assert (EqSuffix := app_inj_prefix _ _ _ H); + clear Eqlen' H + | H : _ ++ _ = map _ _ ++ map _ _ |- _ => symmetry in H + end. + + + + +(*** The End. ***) diff --git a/vendors/ott/doc/Makefile b/vendors/ott/doc/Makefile new file mode 100644 index 000000000000..0b255c5e46ed --- /dev/null +++ b/vendors/ott/doc/Makefile @@ -0,0 +1,459 @@ +LATEX = latex +DVIPS = dvips +DVIPSFLAGS = -Ppdf -j0 -G0 -t a4 +#DVIPSFLAGS = -Ppdf -j0 -G0 -t letter + + +FIGURES=ich_fig0 ich_fig1 +#ich_fig_FIG_OPTS=-m 0.55 +FIGURE_PSTEX_TS=$(addsuffix .pstex_t, $(FIGURES)) + + +# to make manual for new release: +# bump new version in ../Makefile +# date > tmp_date.txt in ../src/ +# make in .. to rebuild version.tex +# make install-top2-built +# make install-web-files + + + +all: top2.html top2.ps top2.pdf + +clean:: + rm -f *.aux *.log *.dvi *.annot top.doc top.tex top.ps top.pdf top2.ps top2.pdf top2.ggl top2.blg top2.html top2.image.tex top2.tex bind-doc.pdf bind-doc.ps bind-wmm-2.bbl bind-wmm-2.blg bind-wmm-2.pdf bind-wmm-2.ps paper.bbl paper.blg paper.tex s + rm -f bind-doc-2.ps bind-doc-2.pdf bind-2.tex bind-2.thy + rm -f binding.1.aux binding.1.tex binding.2.aux binding.2.tex binding.3.aux binding.3.tex binding.4.aux binding.4.tex binding.5.aux binding.5.tex binding.6.alltt.tex binding.6b.aux binding.6b.tex binding.6bScript.sml + rm -f test10.0.alltt test10.2.aux test10.4.alltt test10.aux test10.meta.tex test10.tex test10.v test10_homs.alltt test10st.tex test10.2.alltt test10.2.tex test10.7.alltt test10.meta.aux test10.ml test10.thy test10Script.sml test10st.aux test21.1.alltt + rm -f test11.alltt test12.thy test12.v test13.aux test13.tex test13d.aux test13d.tex test17.10.aux test17.10.tex test7tt.mng.alltt.tex + rm -f slides-arg.dvi + rm -f slides-sl.dvi + rm -f slides-icfp.dvi + rm -f slides-parsec.dvi + rm -f grammar_parser.tex *.mly-y2l grammar_parser_hevea.tex + rm -f top2*.gif top2.haux top2.htoc top2.lof + rm -f squishtex.hand.alltt.tex + rm -f options.txt test7.tex test7afilter.out.ps test7tt.tex test8.tex tmp.dot tmp_0.dot tmp_1.dot tmp_2.dot top.toc top2.bbl top2.toc version.tex x.tex + rm -f bind.tex bind.thy + rm -f test10_tuple.tex test10_tuple.thy test10_tuple.v test10_tupleScript.sml test10b.tex test10b.thy test10b.v test10bScript.sml test10st_narrow.tex test10st_narrow.thy test10st_narrow.v test10st_narrowScript.sml + rm -f test10.alltt.tex test10_html.html + rm -f README.tex + rm -f *~ + +realclean:: + rm -f .depend + + +test1.tex: ../src/ott ../tests/test1.ott + ../src/ott -colour true -showraw true \ + -o test1.tex \ + -tex_show_meta true \ + -tex_wrap false \ + -tex_name_prefix testOne \ + ../tests/non_super_tabular.ott ../tests/test1.ott + +test8.tex: ../src/ott ../tests/test8.ott + ../src/ott -colour true -showraw true \ + -o test8.tex \ + -tex_show_meta false \ + -tex_wrap false \ + -tex_name_prefix testEight \ + ../tests/non_super_tabular.ott ../tests/test8.ott + + +test10.lem test10.tex: ../src/ott ../tests/test10.ott + ../src/ott -colour true -showraw true \ + -o test10.tex \ + -tex_show_meta false \ + -tex_wrap false \ + -tex_name_prefix testTen \ + -o test10.thy \ + -o test10.v \ + -o test10Script.sml \ + -o test10.lem \ + -o test10.ml \ + ../tests/non_super_tabular.ott ../tests/test10.ott + +test10_poster.tex: ../src/ott ../tests/test10_poster.ott + ../src/ott -colour true -showraw true \ + -o test10_poster.tex \ + -tex_show_meta false \ + -tex_wrap false \ + -tex_name_prefix testTenPoster \ + -o test10_poster.thy \ + -o test10_poster.v \ + -o test10_posterScript.sml \ + -o test10_poster.ml \ + ../tests/non_super_tabular.ott ../tests/test10_poster.ott +test10.despaced.v: test10.tex + cat test10.v | sed -e 's/\n\n/\n/g' > test10.despaced.v + +test10.2.tex: ../src/ott ../tests/non_super_tabular.ott ../tests/test10.2.ott + ../src/ott -colour true -showraw true \ + -o test10.2.tex \ + -tex_show_meta false \ + -tex_wrap false \ + -tex_name_prefix testTenTwo \ + ../tests/non_super_tabular.ott ../tests/test10.2.ott + +test10.2.ps: ../src/ott ../tests/test10.2.ott + ../src/ott -colour true -showraw true \ + -o test10.2.tex \ + -tex_show_meta false \ + -tex_wrap true \ + -tex_name_prefix testTenTwo \ + ../tests/non_super_tabular.ott ../tests/test10.2.ott + latex test10.2 && dvips test10.2 + + +test10.0.alltt: ../src/ott ../tests/test10.0.ott + ../src/ott -alltt test10.0.alltt ../tests/test10.0.ott +test10.2.alltt: ../src/ott ../tests/test10.2.ott + ../src/ott -alltt test10.2.alltt ../tests/test10.2.ott +test10.4.alltt: ../src/ott ../tests/test10.4.ott + ../src/ott -alltt test10.4.alltt ../tests/test10.4.ott +test10.7.alltt: ../src/ott ../tests/test10.7.ott + ../src/ott -alltt test10.7.alltt ../tests/test10.7.ott + +test10.alltt.tex: ../src/ott ../tests/test10.ott + ../src/ott -alltt test10.alltt.tex ../tests/test10.ott + +test22.1.alltt.tex: ../src/ott ../tests/test22.1.ott + ../src/ott -alltt test22.1.alltt.tex ../tests/test22.1.ott + +test10_poster.alltt.tex: ../src/ott ../tests/test10_poster.ott + ../src/ott -alltt test10_poster.alltt.tex ../tests/test10_poster.ott + +test10_html.html: test10.alltt.tex test10_html.tex + hevea -fix test10_html.tex + +test11.alltt: ../src/ott ../tests/test11.ott + ../src/ott -alltt test11.alltt ../tests/test11.ott + +test10_homs.alltt: ../src/ott ../tests/test10_homs.ott + ../src/ott -alltt test10_homs.alltt ../tests/test10_homs.ott + +test20.0.alltt: ../src/ott ../tests/test20.0.ott + ../src/ott -alltt test20.0.alltt ../tests/test20.0.ott + +test21.1.alltt: ../src/ott ../tests/test21.1.ott + ../src/ott -alltt test21.1.alltt ../tests/test21.1.ott + +test22.0.alltt: ../src/ott ../tests/test22.0.ott + ../src/ott -alltt test22.0.alltt ../tests/test22.0.ott + +binding.6.alltt.tex: ../src/ott ../tests/binding.6.ott + ../src/ott -alltt binding.6.alltt.tex ../tests/binding.6.ott + +squishtex.hand.alltt.tex: ../src/ott squishtex.hand.ott + ../src/ott -alltt squishtex.hand.alltt.tex squishtex.hand.ott + +##let.alltt.tex: ../src/ott ../examples/tapl/let.ott +## ../src/ott -alltt let.alltt.tex ../examples/tapl/common.ott ../examples/tapl/common_typing.ott.. /examples/tapl/let.ott + +# commented out, as running this - while producing the output we need - also produces an error. It's not a well-formed standalone file. +#let.alltt.tex: ../src/ott ../examples/tapl/let.ott +# ../src/ott -alltt let.alltt.tex ../examples/tapl/let.ott + + + +test10_tuple.tex: ../src/ott ../tests/test10_tuple.ott + ../src/ott -colour true -showraw true \ + -o test10_tuple.tex \ + -tex_show_meta false \ + -tex_wrap false \ + -tex_name_prefix testTentuple \ + -o test10_tuple.thy \ + -o test10_tuple.v \ + -o test10_tupleScript.sml \ + ../tests/non_super_tabular.ott ../tests/test10_tuple.ott + +test10b.tex: ../src/ott ../tests/test10b.ott + ../src/ott -colour true -showraw true \ + -o test10b.tex \ + -tex_show_meta false \ + -tex_wrap false \ + -tex_name_prefix testTenb \ + -o test10b.thy \ + -o test10b.v \ + -o test10bScript.sml \ + ../tests/test10b.ott + +test10c.tex: ../src/ott ../tests/test10c.ott + ../src/ott -colour true -showraw true \ + -o test10c.tex \ + -tex_show_meta false \ + -tex_wrap false \ + -tex_name_prefix testTenc \ + -o test10c.thy \ + -o test10c.v \ + -o test10cScript.sml \ + ../tests/non_super_tabular.ott ../tests/test10c.ott + +test10st_narrow.tex: ../src/ott ../tests/test10st_narrow.ott + ../src/ott -colour true -showraw true \ + -o test10st_narrow.tex \ + -tex_show_meta false \ + -tex_wrap false \ + -tex_name_prefix testTenstnarrow \ + -o test10st_narrow.thy \ + -o test10st_narrow.v \ + -o test10st_narrowScript.sml \ + ../tests/non_super_tabular.ott ../tests/test10st_narrow.ott + +test10.meta.tex: ../src/ott ../tests/test10.ott + ../src/ott -colour true -showraw true \ + -o test10.meta.tex \ + -tex_show_meta true \ + -tex_wrap false \ + -tex_name_prefix testTenMeta \ + ../tests/non_super_tabular.ott ../tests/test10.ott + +test10st.tex: ../src/ott ../tests/test10st.ott + ../src/ott -colour true -showraw true \ + -o test10st.tex \ + -tex_show_meta false \ + -tex_wrap false \ + -tex_name_prefix testTenst \ + ../tests/non_super_tabular.ott ../tests/test10st.ott +# -o test10.thy \ +# -o test10.v \ + +test7.tex: ../src/ott ../tests/test7.ott ../tests/test7tt.mng + cd ../src; make tmp_test7_clean.ott + ../src/ott \ + -o test7.tex \ + -tex_show_meta false \ + -tex_wrap false \ + -tex_name_prefix testSeven \ + -tex_filter ../tests/test7tt.mng test7tt.tex \ + ../tests/non_super_tabular.ott ../src/tmp_test7_clean.ott + +test7tt.mng.alltt.tex: ../tests/test7tt.mng + cat ../tests/test7tt.mng | sed -e 's/\\/BACKSLASH/g' | sed -e 's/{/LEFTBRACKET/g' | sed -e 's/}/\\myrb\{\}/g' | sed -e 's/LEFTBRACKET/\\mylb\{\}/g' | sed -e 's/BACKSLASH/\\mybackslash\{\}/g' | sed -e 's/\[\[/\\mysym{\[\[}/g' | sed -e 's/\]\]/\\mysym{\]\]}/g' | sed -e 's/:concrete:/\\mykw\{:concrete:\}/g' > test7tt.mng.alltt.tex + +# cat ../tests/test7tt.mng | sed -e 's/{/\\mylb\{\}/g' | sed -e 's/}/\\myrb\{\}/g' | sed -e 's/\[\[/\\mysym\{\[\[\}/g' | sed -e 's/\]\]/\\mysym\{\]\]\}/g' | sed -e 's/\\/\\mybackslash\{\}/g' | sed -e 's/:concrete:/\\mykw\{:concrete\}/g' > test7tt.mng.alltt.tex + + + +test12.thy: ../src/ott ../tests/test12.ott + ../src/ott -colour true -showraw true \ + -o test12.thy \ + -o test12.v \ + ../tests/test12.ott + +test13.tex: ../src/ott ../tests/test13.ott + ../src/ott -colour true -showraw true \ + -o test13.tex \ + -tex_show_meta false \ + -tex_wrap false \ + -tex_name_prefix testThirteen \ + ../tests/non_super_tabular.ott ../tests/test13.ott +# -o test10.thy \ +# -o test10.v \ + +test13d.tex: ../src/ott ../tests/test13d.ott + ../src/ott -colour true -showraw true \ + -o test13d.tex \ + -tex_show_meta false \ + -tex_wrap false \ + -tex_name_prefix testThirteend \ + ../tests/squishtex.ott \ + ../tests/test13d.ott +# -o test10.thy \ +# -o test10.v \ + +test17.10.tex: ../src/ott ../tests/test17.10.ott + ../src/ott -colour true -showraw true \ + -o test17.10.tex \ + -tex_show_meta false \ + -tex_wrap false \ + -tex_name_prefix testSeventeenTen \ + ../tests/non_super_tabular.ott \ + ../tests/test17.10.ott + +binding.1.tex: ../src/ott ../tests/binding.1.ott ../tests/squishtex.ott + ../src/ott -colour true -showraw true \ + -o binding.1.tex \ + -tex_show_meta false \ + -tex_wrap false \ + -tex_name_prefix bindingOne \ + ../tests/squishtex.ott \ + ../tests/binding.1.ott + +binding.2.tex: ../src/ott ../tests/binding.2.ott ../tests/squishtex.ott + ../src/ott -colour true -showraw true \ + -o binding.2.tex \ + -tex_show_meta false \ + -tex_wrap false \ + -tex_name_prefix bindingTwo \ + ../tests/squishtex.ott \ + ../tests/binding.2.ott + +binding.3.tex: ../src/ott ../tests/binding.3.ott ../tests/squishtex.ott + ../src/ott -colour true -showraw true \ + -o binding.3.tex \ + -tex_show_meta false \ + -tex_wrap false \ + -tex_name_prefix bindingThree \ + ../tests/squishtex.ott \ + ../tests/binding.3.ott + +binding.4.tex: ../src/ott ../tests/binding.4.ott ../tests/squishtex.ott + ../src/ott -colour true -showraw true \ + -o binding.4.tex \ + -tex_show_meta false \ + -tex_wrap false \ + -tex_name_prefix bindingFour \ + ../tests/squishtex.ott \ + ../tests/binding.4.ott + +binding.5.tex: ../src/ott ../tests/binding.5.ott ../tests/squishtex.ott + ../src/ott -colour true -showraw true \ + -o binding.5.tex \ + -tex_show_meta false \ + -tex_wrap false \ + -tex_name_prefix bindingFive \ + ../tests/squishtex.ott \ + ../tests/binding.5.ott + +binding.6b.tex: ../src/ott ../tests/binding.6.ott ../tests/binding.6b.ott ../tests/squishtex.ott + ../src/ott -colour true -showraw true \ + -o binding.6b.tex \ + -o binding.6bScript.sml \ + -tex_show_meta false \ + -tex_wrap false \ + -tex_name_prefix bindingSixb \ + ../tests/squishtex.ott \ + ../tests/binding.6.ott \ + ../tests/binding.6b.ott + +## Binding +bind.tex: ../src/ott ../tests/bind-*.ott + ../src/ott -o bind.tex \ + -tex_show_meta false \ + -tex_wrap false \ + -tex_name_prefix bind \ + -merge true \ + -o bind.thy \ + ../tests/bind-*.ott + + +bind-doc.ps: bind.tex bind-doc.tex + latex bind-doc.tex; latex bind-doc.tex; dvips $(DVIPSFLAGS) bind-doc + +bind-2.tex: ../src/ott ../tests/bind2-*.ott + ../src/ott -o bind-2.tex \ + -tex_show_meta false \ + -tex_wrap false \ + -tex_name_prefix bind \ + -merge true \ + -o bind2.thy \ + -o bind2Script.sml \ + -o bind2.v \ + ../tests/bind2-*.ott + +bind-doc-2.ps: bind-2.tex bind-doc-2.tex + latex bind-doc-2.tex; latex bind-doc-2.tex; dvips $(DVIPSFLAGS) bind-doc-2 + +bind-wmm.ps: bind-wmm.tex bindbib.bib + latex bind-wmm; bibtex bind-wmm; latex bind-wmm; latex bind-wmm; dvips $(DVIPSFLAGS) bind-wmm + +bind-wmm-2.ps: bind-wmm-2.tex bindbib.bib + latex bind-wmm-2; bibtex bind-wmm-2; latex bind-wmm-2; latex bind-wmm-2; dvips $(DVIPSFLAGS) bind-wmm-2 + + +options.txt: ../src/ott + ../src/ott -help > options.txt + +top.tex: top.mng + cp -f top.mng top.tex # placeholder for later use of ott as a filter + chmod ugo-w top.tex + +top2.tex: top2.mng + cp -f top2.mng top2.tex # placeholder for later use of ott as a filter + chmod ugo-w top2.tex + + +grammar_parser.tex: ../src/grammar_parser.mly + cd ../src; make grammar_parser.tex + cp -f ../src/grammar_parser.tex . + +grammar_parser_hevea.tex: grammar_parser.tex + cat grammar_parser.tex | sed -e 's/longtable/tabular/g' > grammar_parser_hevea.tex + +top.ps: top.tex test7.tex test8.tex test10.tex test10.hand.edited.thy test10.hand.edited.v grammar_parser.tex test10.meta.tex test13.tex options.txt test10st.tex test12.thy ../src/version.tex test17.10.tex + latex top;latex top;dvips $(DVIPSFLAGS) top + +TOP2DEPS = top2.tex test7.tex test8.tex test10.tex test10.hand.edited.thy test10.hand.edited.v grammar_parser.tex test10.meta.tex test13.tex options.txt test10st.tex test12.thy ../src/version.tex test17.10.tex test10.0.alltt test10.2.alltt test10.4.alltt test10.7.alltt README.tex test10.2.tex test7tt.mng.alltt.tex binding.1.tex binding.2.tex binding.3.tex binding.4.tex binding.5.tex binding.6.alltt.tex binding.6b.tex test11.alltt test10_homs.alltt let.alltt.tex grammar_parser_hevea.tex grammar_parser.tex squishtex.hand.alltt.tex test13d.tex test10.despaced.v shorter.bib test21.1.alltt + +top2.ps: $(TOP2DEPS) + latex top2 && bibtex top2 && latex top2 && latex top2 && dvips $(DVIPSFLAGS) top2 + +top2.pdf: top2.ps + ps2pdf $< + +top2.html: $(TOP2DEPS) + hevea -fix top2 + sed 's/textboxed{border:1px/textboxed{border:0px/g' < top2.html > top2.tmp.html + mv top2.tmp.html top2.html + +# imagen top2 + + +top2: + make top2.ps && make top2.html && make top2.pdf + + +quick2: $(TOP2DEPS) + latex top2; dvips $(DVIPSFLAGS) top2 + + +let_alltt.ott: ../examples/tapl/let_alltt.ott + cp ../examples/tapl/let_alltt.ott . + + + +# these are files for which we update the web page for the current version +# (while other old examples are not) +WEB_FILES= \ + ../tests/test10.ott \ + test10.thy \ + test10.v \ + test10Script.sml \ + test10.lem \ + test10.ml \ + ../revision_history.txt \ + top2.pdf \ + top2.ps \ + top2.html \ + top2*.png + +test10.pdf: ../tests/test10.ott + ../bin/ott -i ../tests/test10.ott -o test10.tex + pdflatex test10 + +install-web-files: top2.html test10.lem test10.pdf + cp $(WEB_FILES) ~/public_html/ott + +install-top2-built: top2.html top2.ps top2.pdf + cp top2.ps ../built_doc + cp top2.pdf ../built_doc + cp top2.html ../built_doc + cp top2*.png ../built_doc + + + +# ghastly hackery to make ../README.md work both in the github +# markdown processing and in the latex user guide +README.tex: ../README.md + rm -rf README.tex + cat ../README.md | sed -e 's/|//g' > README.tmp.md + pandoc README.tmp.md -o README.tmp.tex + cat README.tmp.tex | sed -e 's/section{Ott}/section{Getting started with Ott (the README)}/g' | sed -e 's/href/ahref/g' | sed -e 's/\\noalign{\\medskip}//g' > README.tex + chmod ugo-w README.tex + + +%.pstex %.pstex_t : %.fig + fig2dev -L pstex $($*_FIG_OPTS) $< $*.pstex + fig2dev -L pstex_t -p $*.pstex $($*_FIG_OPTS) $< $*.pstex_t diff --git a/vendors/ott/doc/favicon.ico b/vendors/ott/doc/favicon.ico new file mode 100644 index 0000000000000000000000000000000000000000..78178c798e0b9a6217e14fd70d2091e059792e39 GIT binary patch literal 1406 zcmZQzU}Ruq5D);-91Iz(3=Con3=A3!3=9Gc3=9ek5OD@PfQgBTfti_^frW*Ift8h& zft{V5ft#C~fsc=mfuEnBL0(>-K~YhWK}AJ{K~+_iK}}7KK~qzcL0em!L0?~=!PwZC z!NkOb!OYBz!Q9-O!OqT(!NI|S!OP2w!Ozc+AucYCAwE8yAt51wAtfb+AvHCXAtNJ$ zAu}_RAtxt?AulhFAwNH#p}xMJp}D!4p}oDGp|i7-p}V`Ap{J*Zp|`h}VcN85469eK zW;lNQIK#=4CmBwiI>m6|!Ucw_SFbYMxN(Ew=FOW7w{PEOxPSjX!-EG87@j?Q#_;0B z3x=03UoyOU^@`!+$Bzu3K7C^N_U#+P_wU~se*E~s@aNAThX4Qn;|ZBjsnHM^-XY+C z1?Wg}GBI<@8$hJ&6&M)B + + + + + + + Ott + + + + + + + + + + +

+ + [POPLmark Fsub dependency diagram]

+ +

Ott

+

+ Francesco Zappa Nardelli, + Peter Sewell, and + Scott Owens +

+

(with + Matthew Parkinson, + Gilles Peskine, + Tom Ridge, + Susmit Sarkar, and + Rok Strniša) +

+

+Ott is a tool for writing definitions of programming languages and +calculi. It takes as input a definition of a language syntax and +semantics, in a concise and readable ASCII notation that is close to +what one would write in informal mathematics. It generates LaTeX to +build a typeset version of the definition, and Coq, HOL, and Isabelle +versions of the definition. Additionally, it can be run as a filter, +taking a LaTeX/Coq/Isabelle/HOL source file with embedded (symbolic) +terms of the defined language, parsing them and replacing them by +target-system terms. +For a simple example, here is an +Ott source file for an untyped call-by-value +lambda calculus (test10.ott), and +the generated +LaTeX (compiled to pdf) +and (compiled to ps), +Coq, +Isabelle, and +HOL +definitions. +

+Most simply, the tool can be used to aid completely informal LaTeX mathematics. +Here it permits the definition, and terms within proofs and +exposition, to be written in a clear, editable, ASCII notation, without LaTeX +noise. It generates good-quality typeset output. +By parsing (and so sort-checking) this input, it quickly catches a +range of simple errors, e.g. inconsistent use of judgement forms or +metavariable naming conventions. +

+That same input can be used to generate formal definitions, for Coq, +HOL, Isabelle, and (experimentally) Lem. It should thereby enable a smooth transition +between use of informal and formal mathematics. Additionally, the +tool can automatically generate definitions of functions for free +variables, single and multiple substitutions, subgrammar checks +(e.g. for value subgrammars), and binding auxiliary functions. +At present only a fully concrete representation of binding, without +quotienting by alpha equivalence, is fully supported. An experimental +backend generates a locally-nameless representation of terms for a +subset of the Ott metalanguage: details can be +found here. +

+The distribution includes several examples, in varying levels of completeness: +untyped and simply typed lambda-calculus, +a calculus with ML polymorphism, +the POPLmark Fsub with and without records, +an ML module system taken from (Leroy, JFP 1996) and equipped with an +operational semantics, and +LJ, a lightweight Java fragment. +More substantially, Ott has been used for work on +iJAM and LJAM, Java Module + Systems, by Rok + Strniša, and semantics for +OCaml light, by + Scott Owens. +

+A release of the Ott source is available, and comment and +feedback would be much appreciated. +

+ + + + +

Papers and Documentation

+ + + + +

Code

+ + + +

Bug Tracker

+
    +
  • Please now use + the github issue tracker +(though our resources for fixing issues are very limited) +
  • The previous issue tracker is here +
+ + +

Mailing Lists

+ + + +

Examples

+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
SystemRulesOtt sourcesLatexTypesetDotCoqHOLIsabelle
Defn Proof Defn Proof Defn Proof
Untyped CBV lambda3test10.otttest10.tex (ps)test10.vtest10Script.smltest10.thy
Simply typed CBV lambda6test10st.otttest10st.tex (ps)test10st.vtest10st_metatheory.vtest10stScript.smltest10st_metatheoryScript.smltest10st.thytest10st_metatheory.thy
ML polymorphism22test8.otttest8.tex (ps)test8.vtest8Script.smltest8.thy
TAPL roughly-full-simple63(sources)(ps)(Coq (including records))(HOL)(script)(Isabelle)(script)
POPLmark Fsub (*)48(sources)(latex)(pdf)   (ps)
Leroy JFP96 module system (*)67leroy-jfp96.ott(latex) (ps)(HOL)
LJ: Lightweight Java85(sources)(pdf)(Isabelle)(zip)
LJAM: Java Module System163(sources)(pdf)(Isabelle)(zip)
OCaml light 310(sources) (ps) (ps) (Coq) (HOL) (scripts) (Isabelle)
+ +

+(all files except the proof scripts are generated from the Ott sources) +

+(*) These systems would need explicit alpha conversion in the rules to capture the intended semantics using the fully concrete representation. +

+ + + +
+ +

[validate]

+ + + + diff --git a/vendors/ott/doc/let.alltt.tex b/vendors/ott/doc/let.alltt.tex new file mode 100644 index 000000000000..a017790cd67f --- /dev/null +++ b/vendors/ott/doc/let.alltt.tex @@ -0,0 +1,31 @@ +\begin{alltt} +\mykw{grammar} +t \mysym{::} Tm \mysym{::=} \mysym{\mylb\mylb{}} \mykw{com} terms: \mysym{\myrb\myrb{}} + \mysym{|} let x = t in t' \mysym{::} \mysym{::} Let \mysym{(+} \mykw{bind} x \mykw{in} t' \mysym{+)} \mysym{\mylb\mylb{}} \mykw{com} let binding \mysym{\myrb\myrb{}} + + +\mykw{defns} +Jop \mysym{::} '' \mysym{::=} + +\mykw{defn} +t --> t' \mysym{::} \mysym{::} red \mysym{::} E_ \mysym{\mylb\mylb{}} \mykw{com} Evaluation \mysym{\myrb\myrb{}} \mykw{by} + +\mysym{-----------------------------} :: LetV +let x=v1 in t2 --> [x|->v1]t2 + +t1 --> t1' +\mysym{----------------------------------} :: Let +let x=t1 in t2 --> let x=t1' in t2 + + +\mykw{defns} +Jtype \mysym{::} '' \mysym{::=} + +\mykw{defn} +G |- t : T \mysym{::} \mysym{::} typing \mysym{::} T_ \mysym{\mylb\mylb{}} \mykw{com} Typing \mysym{\myrb\myrb{}} \mykw{by} + +G |- t1:T1 +G,x:T1 |- t2:T2 +\mysym{------------------------} :: Let +G |- let x=t1 in t2 : T2 +\end{alltt} diff --git a/vendors/ott/doc/shorter.bib b/vendors/ott/doc/shorter.bib new file mode 100644 index 000000000000..ed0389d9c67f --- /dev/null +++ b/vendors/ott/doc/shorter.bib @@ -0,0 +1,1141 @@ +@techreport{kahrs569, +author = {Stefan Kahrs}, +title = {Mistakes and Ambiguities in the definition of {S}tandard {ML}}, +OPTmonth = {April}, +year = {1993}, +pages = {33}, +keywords = {Standard ML, definition, bugs}, +OPTnote = {An update listing further errors can be found at {\url{ftp://ftp.dcs.ed.ac.uk/pub/smk/SML/errors-new.ps.Z}.}}, +OPTurl = {http://www.cs.kent.ac.uk/pubs/1993/569}, +institution = {University of Edinburgh}, +number = {ECS-LFCS-93-257}, +OPTtype = {LFCS Report}, +} + + + + +@TECHREPORT{Rossberg:DefectsSML, + title = {Defects in the Revised Definition of {Standard ML}}, + year = {2001}, + author = {Andreas Rossberg}, + abstract = {The Definition of Standard ML is a comprehensive, formal specification of a full programming language. It probably is the most precise language specification to date. Nevertheless, it inevitably contains a certain number of bugs, ambiguities and grey areas. We list and discuss all known issues in the 1997 revision of the language definition.}, + note = {Updated 2007/01/22}, + OPTnote = {Updated 2004/06/22, 2005/01/13, 2005/01/26, 2006/07/18.}, + OPTmonth = oct, + institution = {Saarland University}, + OPTaddress = {Saarbr{\"u}cken, Germany}, + project-key = {MI6}, + label = {sml-defects} +} + + + +@Book{ + sml90, + author="R. Milner and M. Tofte and R. Harper", + title="The Definition of {S}tandard {ML}", + publisher="MIT Press", + year="1990" +} +@Misc{AFP, + key = {AFP}, + title = {The Archive of Formal Proofs}, + editor = {Gerwin Klein and Tobias Nipkow and Lawrence Paulson}, + note = {\url{http://afp.sf.net}} +} + +@TechReport{SLWAZHV04, + author = {Peter Sewell and +James J. Leifer and +Keith Wansbrough and +Mair Allen-Williams and +Zappa Nardelli, Francesco and +Pierre Habouzit and +Viktor Vafeiadis}, + title = {Acute: High-level programming language design for distributed +computation. Design rationale and language definition}, + institution = {University of Cambridge Computer Laboratory}, + year = {2004}, + OPTkey = {}, + OPTtype = {}, + number = {UCAM-CL-TR-605}, + OPTaddress = {}, + month = oct, + OPTnote = {Also published as INRIA RR-5329. 193pp}, + note = {See also the ICFP'05 paper}, + OPTannote = {}, + OPTurl = "http://www.cl.cam.ac.uk/TechReports/UCAM-CL-TR-605.html" +} + +@TechReport{SLWAZHV04-anon, + author = {{Anonymized for blind reviewing}}, + title = {Acute: High-level programming language design for distributed +computation. Design rationale and language definition}, + OPTinstitution = {University of Cambridge Computer Laboratory}, + year = {2004}, + OPTkey = {}, + OPTtype = {}, + OPTnumber = {UCAM-CL-TR-605}, + OPTaddress = {}, + month = oct, + OPTnote = {Also published as INRIA RR-5329. 193pp}, + note = {\url{http://tinyurl.com/32dc5h} See also the related ICFP'05 paper}, + OPTannote = {} +} + +@InProceedings{SLWZAHV05, + author = {Peter Sewell and +James J. Leifer and +Keith Wansbrough and +Zappa Nardelli, Francesco and +Mair Allen-Williams and +Pierre Habouzit and +Viktor Vafeiadis}, + title = {Acute: High-level programming language design for distributed +computation}, + OPTcrossref = {}, + OPTkey = {}, + booktitle = {Proceedings of ICFP 2005: International Conference on +Functional Programming (Tallinn)}, + OPTpages = {}, + year = {2005}, + OPTeditor = {}, + OPTvolume = {}, + OPTnumber = {}, + OPTseries = {}, + OPTaddress = {}, + month = sep, + OPTorganization = {}, + OPTpublisher = {}, + OPTnote = {}, + OPTannote = {}, + OPTurl = "http://www.cl.cam.ac.uk/users/pes20/acute/acute2-short.ps" +} + +@InProceedings{SLWZAHV05anon, + author = {{Anonymized for blind reviewing}}, + title = {Acute: High-level programming language design for distributed +computation}, + OPTcrossref = {}, + OPTkey = {}, + booktitle = {Proceedings of ICFP 2005: International Conference on +Functional Programming (Tallinn)}, + OPTpages = {}, + year = {2005}, + OPTeditor = {}, + OPTvolume = {}, + OPTnumber = {}, + OPTseries = {}, + OPTaddress = {}, + month = sep, + OPTorganization = {}, + OPTpublisher = {}, + OPTnote = {}, + OPTannote = {}, + OPTurl = "http://www.cl.cam.ac.uk/users/pes20/acute/acute2-short.ps" +} + + +@Misc{HOL, + key = {HOL}, + OPTauthor = {}, + title = {The {HOL 4} System, {K}ananaskis-3 release}, + OPThowpublished = {}, + OPTmonth = {}, + OPTyear = {}, + note = {\url{http://hol.sourceforge.net/}}, + OPTannote = {} +} + +@Misc{Coq, + key = {Coq}, + OPTauthor = {}, + title = {The {C}oq proof assistant, v.8.0}, + OPThowpublished = {}, + OPTmonth = {}, + OPTyear = {}, + note = {\url{http://coq.inria.fr/}}, + OPTannote = {} +} + + +@Misc{Isabelle, + key = {Isabelle}, + OPTauthor = {}, + title = {Isabelle 2005}, + OPThowpublished = {}, + OPTmonth = {}, + OPTyear = {}, + note = {\url{http://isabelle.in.tum.de/}}, + OPTannote = {} +} + + +@Misc{Twelf, + key = {Twelf}, + OPTauthor = {}, + title = {{Twelf} 1.5}, + OPThowpublished = {}, + OPTmonth = {}, + OPTyear = {}, + note = {\url{http://www.cs.cmu.edu/~twelf/}}, + OPTannote = {} +} + + + +@Book{haskell98, + ALTauthor = {}, + editor = {Simon {Peyton Jones}}, + title = {Haskell 98 Language and Libraries. The Revised Report}, + publisher = {CUP}, + year = {2003}, + OPTkey = {}, + OPTvolume = {}, + OPTnumber = {}, + OPTseries = {}, + OPTaddress = {}, + OPTedition = {}, + OPTmonth = {}, + OPTnote = {See also JFP, vol 13.1, 2003}, + OPTannote = {} +} + + + +%(with Damien Doligez, Jacques Garrigue, Didier Rémy and Jérôme Vouillon) + +@Misc{ocaml2005, + OPTkey = {}, + author = {X.~Leroy and others}, + title = {The {O}bjective {C}aml system + release 3.09 + Documentation and user's manual}, + OPThowpublished = {}, + month = oct, + year = {2005}, + OPTnote = {}, + OPTannote = {} +} + +@BOOK{Pierce:TypeSystems, + author = {Benjamin C. Pierce}, + title = {Types and Programming Languages}, + publisher = {MIT Press}, + year = 2002, + OPTplclub = {Yes}, + OPTbcp = {Yes}, + OPTkeys = {books}, + OPThomepage = {http://www.cis.upenn.edu/~bcpierce/tapl}, + OPTerrata = {http://www.cis.upenn.edu/~bcpierce/tapl/errata.txt} +} + +@ARTICLE{Leroy-generativity, + AUTHOR = {Xavier Leroy}, + TITLE = {A syntactic theory of type generativity + and sharing}, + YEAR = 1996, + JOURNAL = {Journal of Functional Programming}, + VOLUME = 6, + NUMBER = 5, + PAGES = {667--698}, + OPTURL = {http://gallium.inria.fr/~xleroy/publi/syntactic-generativity.ps.gz}, + ABSTRACT = {This paper presents a purely syntactic account of type generativity +and sharing -- two key mechanisms in the Standard ML module system +-- and shows its equivalence with the traditional +stamp-based description of these mechanisms. This syntactic +description recasts the Standard ML module system in a more +abstract, type-theoretic framework.}, + XTOPIC = {modules} +} + +@ARTICLE{LevinPierce99, + author = {Michael Y. Levin and Benjamin C. Pierce}, + title = {TinkerType: {A} Language for Playing with Formal Systems}, + journal = {Journal of Functional Programming}, + volume = 13, + number = 2, + month = MAR, + year = {2003}, + OPTnote = {A preliminary version appeared as an invited + paper at the {\em Logical Frameworks and Metalanguages + Workshop (LFM)}, June 2000}, + plclub = {Yes}, + bcp = {Yes}, + full = {http://www.cis.upenn.edu/~bcpierce/papers/tt-jfp.pdf}, + slides = {http://www.cis.upenn.edu/~bcpierce/papers/tt-slides.ps}, + sources = {http://www.cis.upenn.edu/~bcpierce/papers/tt.tar.gz}, + keys = {modular} +} + +@Misc{ottpage, + key = {Ott}, + author = {Peter Sewell and Francesco {Zappa Nardelli}}, + title = {Ott}, + OPTmonth = {}, + year = {2007}, + note = {\url{http://www.cl.cam.ac.uk/users/pes20/ott/}}, + OPTannote = {} +} + +@Misc{ottpageanon, + OPTkey = {}, + author = {{Anonymized for blind reviewing}}, + title = {Ott}, + howpublished = {\url{http://tinyurl.com/2pfapr}}, + OPTmonth = {}, + year = {2007}, + OPTnote = {}, + OPTannote = {} +} + +@article{Fax:static, + author = "Karl-Filip Fax\'{e}n", + title = "A Static Semantics for {Haskell}", + pages = "295--357", + year = 2002, + month = jul, + journal = "Journal of Functional Programming", + volume = 12, + number = "4\&5" +} + +@article{1146811, + author = {Gerwin Klein and Tobias Nipkow}, + title = {A machine-checked model for a {J}ava-like language, virtual machine, and compiler}, + journal = {TOPLAS}, + OPTjournal = {ACM Trans. Program. Lang. Syst.}, + volume = {28}, + number = {4}, + year = {2006}, + OPTissn = {0164-0925}, + pages = {619--695}, + OPTdoi = {http://doi.acm.org/10.1145/1146809.1146811}, + publisher = {ACM Press}, + OPTaddress = {New York, NY, USA}, + } +@InProceedings{StoughtonA:dops, + author = {Allen Stoughton}, + title = {An Operational Semantics Framework Supporting the Incremental + Construction of Derivation Trees}, + booktitle = {Second Workshop on Higher-Order Operational Techniques in + Semantics (HOOTS~II)}, + year = 1998, + editor = {A. Gordon and A. Pitts and C. Talcott}, + volume = 10, + series = {Electronic Notes in Theoretical Computer Science}, + publisher = {Elsevier Science B. V.}, + OPTurl="ftp://ftp.cis.ksu.edu/pub/CIS/Stoughton/dops.ps" +} + +@Misc{Cha06, + OPTkey = {}, + author = {Arthur Chargu{\'e}raud}, + title = {Annotated Bibliography for formalization of lambda-calculus and type theory}, + howpublished = {\url{http://fling-l.seas.upenn.edu/~plclub/cgi-bin/poplmark/index.php?title=Annotated_Bibliography}}, + month = jul, + year = {2006}, + OPTnote = {}, + OPTannote = {} +} +@InProceedings{poplmark, + AUTHOR = {Brian E. Aydemir and Aaron Bohannon and Matthew Fairbairn + and J. Nathan Foster and Benjamin C. Pierce and Peter + Sewell and Dimitrios Vytiniotis and Geoffrey Washburn and + Stephanie Weirich and Steve Zdancewic}, + TITLE = {Mechanized metatheory for the masses: {T}he {POPL}mark + {C}hallenge}, + YEAR = 2005, + OPTMONTH = aug, + OPTcrossref = {}, + OPTkey = {}, + OPTbooktitle = {Proceedings of TPHOLs 2005: the 18th International Conference on Theorem Proving in Higher Order Logics (Oxford), LNCS 3603}, + booktitle = {Proc.~TPHOLs, LNCS 3603}, + OPTpages = {}, + OPTyear = {}, + OPTeditor = {}, + OPTvolume = {}, + OPTnumber = {}, + OPTseries = {}, + OPTaddress = {}, + OPTmonth = {}, + OPTorganization = {}, + OPTpublisher = {}, + note = {}, + OPTannote = {}, + OPTurl = "http://www.cis.upenn.edu/group/proj/plclub/mmm/poplmark/poplmark.pdf" +} + + + +@InProceedings{Owe95, + author = {Christopher Owens}, + title = {Coding Binding and Substitution Explicitly in {I}sabelle}, + OPTcrossref = {}, + OPTkey = {}, + booktitle = {Proceedings of the First Isabelle Users Workshop}, + pages = {36--52}, + year = {1995}, + OPTeditor = {}, + OPTvolume = {}, + OPTnumber = {}, + OPTseries = {}, + OPTaddress = {}, + OPTmonth = {}, + OPTorganization = {}, + OPTpublisher = {}, + optnote = {\url{http://www.cl.cam.ac.uk/~lp15/papers/Workshop/}}, + OPTannote = {} +} + + + + @InProceedings{FGLMR96, + author = {C{\'e}dric Fournet and Georges Gonthier and + Jean-Jacques L{\'e}vy and Luc Maranget and Didier R{\'e}my}, + title = {A Calculus of Mobile Agents}, + OPTbooktitle = "Proceedings of CONCUR '96. LNCS 1119", + booktitle = "Proc.~CONCUR '96, LNCS 1119", + OPTcrossref = {}, + OPTkey = {}, + OPTeditor = {}, + OPTvolume = {}, + OPTnumber = {}, + OPTseries = {}, + year = {1996}, + OPTorganization = {}, + OPTpublisher = {Springer-Verlag}, + OPTaddress = {}, + OPTmonth = aug, + OPTpages = {406--421}, + note = {}, + OPTannote = {} +} +@InProceedings{PittsAM:metsos, + author = {M. R. Lakin and A. M. Pitts}, + title = {A Metalanguage for Structural Operational Semantics}, + booktitle = {Symposium on Trends in Functional Programming}, + OPTpages = {{I1}--{I16}}, + year = 2007, + OPTmonth = apr, + OPTnote = {Draft proceedings} +} + +@INPROCEEDINGS{pottier-alphacaml, + AUTHOR = {François Pottier}, + TITLE = {An overview of {C$\alpha$ml}}, + MONTH = MAR, + YEAR = {2006}, + BOOKTITLE = {ACM Workshop on ML, ENTCS 148(2)}, + PAGES = {27--52}, + OPTVOLUME = {148}, + OPTNUMBER = {2}, + OPTSERIES = {Electronic Notes in Theoretical Computer Science}, + OPTURL = {http://cristal.inria.fr/~fpottier/publis/fpottier-alphacaml.ps.gz}, + PDF = {http://cristal.inria.fr/~fpottier/publis/fpottier-alphacaml.pdf}, + OFF = {http://dx.doi.org/10.1016/j.entcs.2005.11.039}, + ABSTRACT = {C$\alpha$ml is a tool that turns a so-called ``binding + specification'' into an Objective Caml compilation + unit. A binding specification resembles an algebraic + data type declaration, but also includes information + about names and binding. C$\alpha$ml is meant to help + writers of interpreters, compilers, or other + programs-that-manipulate-programs deal with + $\alpha$-conversion in a safe and concise style. This + paper presents an overview of C$\alpha$ml's binding + specification language and of the code that C$\alpha$ml + produces.} +} + +@UNPUBLISHED{pottier-pure-freshml, + AUTHOR = {François Pottier}, + TITLE = {Static Name Control for {FreshML}}, + NOTE = {To appear in LICS'07}, + MONTH = JAN, + YEAR = {2007}, + OPTURL = {http://cristal.inria.fr/~fpottier/publis/fpottier-pure-freshml.ps.gz}, + PDF = {http://cristal.inria.fr/~fpottier/publis/fpottier-pure-freshml.pdf}, + LONG = {http://cristal.inria.fr/~fpottier/publis/fpottier-pure-freshml-long.ps.gz}, + LONGPDF = {http://cristal.inria.fr/~fpottier/publis/fpottier-pure-freshml-long.pdf}, + ABSTRACT = {FreshML extends ML with constructs for declaring and manipulating abstract + syntax trees that involve names and statically scoped binders. It is impure: + name generation is an observable side effect. In practice, this means that + FreshML allows writing programs that create fresh names and unintentionally + fail to bind them. Following in the steps of early work by Pitts and Gabbay, + this paper defines Pure FreshML, a subset of FreshML equipped with a static + proof system that guarantees purity. Pure FreshML relies on a rich binding + specification language, on user-provided assertions, expressed in a logic that + allows reasoning about values and about the names that they contain, and on a + conservative, automatic decision procedure for this logic. It is argued that + Pure FreshML can express non-trivial syntax-manipulating algorithms.} +} + +@MISC{Chargueraud06, + author = {Arthur Chargu\'eraud and Benjamin C. Pierce and Stephanie Weirich}, + title = {Proof Engineering: {P}ractical Techniques for Mechanized Metatheory}, + year = {2006}, + month = SEP, + bcp = {Yes}, + keys = {poplmark}, + plclub = {Yes}, + note = {Manuscript}, + short = {http://www.cis.upenn.edu/~bcpierce/papers/binders.pdf} +} + + + +@Misc{ACPPW07, + OPTkey = {}, + author = {Brian Aydemir and Arthur Chargu{\'e}raud and Benjamin C. Pierce and Randy Pollack and Stephanie Weirich}, + title = {Engineering Formal Metatheory}, + OPThowpublished = {}, + OPTmonth = {}, + year = {2007}, + note = {\url{http://www.chargueraud.org/arthur/research/2007/binders/}}, + OPTannote = {} +} + +@InProceedings{cheney04iclp, + author = {James Cheney and Christian Urban}, + title = {{Alpha}-{Prolog}: A Logic Programming Language with + Names, Binding and Alpha-Equivalence}, + OPTbooktitle = {Proc. 20th Int. Conf. on Logic Programming (ICLP + 2004)}, + booktitle = {Proc. ICLP, LNCS 3132}, + year = {2004}, + pages = {269--283}, + OPTseries = {LNCS}, + OPTnumber = {3132}, + OPTpublisher = {Springer-Verlag} +} + +@InProceedings{lee+:towards, + author = {Daniel K. Lee and Karl Crary and Robert Harper}, + title = {Towards a Mechanized Metatheory of {Standard ML}}, + OPTbooktitle = {Proc. 34th {ACM} {SIGPLAN-SIGACT} Symposium on Principles of Programming Languages}, + booktitle = {Proc.~POPL}, + OPTpages = {?--?}, + year = 2007, + OPTaddress = {Nice, France}, + month = {January}, + OPTnote = {(To appear.)}} + + +@Article{GM95, + author = {Elsa Gunter and Savi Maharaj}, + title = {Studying the {ML} module system in {HOL}}, + journal = {The Computer Journal: Special Issue on Theorem Proving in Higher Order Logics}, + year = {1995}, + OPTkey = {}, + OPTvolume = {}, + OPTnumber = {}, + OPTpages = {}, + OPTmonth = {}, + OPTnote = {}, + OPTannote = {} +} + +@inproceedings{DBLP:conf/tphol/InwegenG93, + author = {Myra Van Inwegen and + Elsa L. Gunter}, + title = {{HOL-ML}}, + booktitle = {HUG}, + year = {1993}, + pages = {61-74}, + crossref = {DBLP:conf/tphol/1993}, + bibsource = {DBLP, http://dblp.uni-trier.de} +} + + + + + +@PhdThesis{Van96, + author = {Myra VanInwegen}, + title = {The Machine-Assisted Proof of Programming Language Properties}, + school = {Univ. of Pennsylvania}, + year = {1996}, + OPTkey = {}, + OPTtype = {}, + OPTaddress = {}, + OPTmonth = {}, + note = {Computer and Information Science Tech Report MS-CIS-96-31}, +OPTnote={ \url{http://www.myra-simon.com/myra/papers/thesis.html}}, + OPTannote = {} +} + + +@inproceedings{319847, + author = {Dominique Cl{\'e}ment and Thierry Despeyroux and Gilles Kahn and Joelle Despeyroux}, + title = {A simple applicative language: mini-ML}, + booktitle = {LFP '86: Proceedings of the 1986 ACM conference on LISP and functional programming}, + year = {1986}, + isbn = {0-89791-200-4}, + pages = {13--27}, + location = {Cambridge, Massachusetts, United States}, + doi = {http://doi.acm.org/10.1145/319838.319847}, + publisher = {ACM Press}, + OPTaddress = {New York, NY, USA}, + } + +@inproceedings{ syme93reasoning, + author = "Don Syme", + title = "{R}easoning with the Formal Definition of {S}tandard {ML} in {HOL}", + booktitle = "TPHOLs, LNCS 780", + OPTvolume = "780", + OPTpublisher = "Springer-Verlag, published 1994", + OPTaddress = "Vancouver, Canada", + OPTeditor = "{J.J. Joyce} and {C.-J.H. Seger}", + pages = "43--59", + year = "1993", + OPTurl = "citeseer.ist.psu.edu/syme93reasoning.html" } + +@PhdThesis{SymePhD, + author = {Don Syme}, + title = {Declarative Theorem Proving for Operational Semantics}, + school = {Computer Laboratory, University of Cambridge}, + year = {1998}, + OPTkey = {}, + OPTtype = {}, + OPTaddress = {}, + OPTmonth = {}, + OPTnote = {\url{http://research.microsoft.com/~dsyme/reports/thesis-dd.pdf}}, + OPTannote = {} +} + + + @InProceedings{NorrishC, + author = {Michael Norrish}, + title = {Deterministic expressions in {C}}, + OPTcrossref = {}, + OPTkey = {}, + booktitle = {Proc. 8th ESOP (ETAPS), LNCS 1576}, + pages = {147--161}, + year = {1999}, + OPTeditor = {}, + OPTvolume = {}, + OPTnumber = {}, + OPTseries = {}, + OPTaddress = {}, + OPTmonth = {}, + OPTorganization = {}, + OPTpublisher = {}, + OPTnote = {}, + OPTannote = {} +} + +@InProceedings{ToolFormReasCompLang, + author = "R. J. Boulton", + title = "A Tool to Support Formal Reasoning about Computer Languages", + OPTbooktitle = "Proceedings of the Third International Workshop on + Tools and Algorithms for the Construction and Analysis of + Systems (TACAS'97)", + booktitle = "Proc.~TACAS, LNCS 1217", + year = "1997", + OPTseries = "Lecture Notes in Computer Science", + OPTvolume = "1217", + OPTeditor = "E. Brinksma", + pages = "81--95", + OPTpublisher = "Springer", + OPTaddress = "Enschede, The Netherlands", + OPTmonth = "April"} + + + + +@InProceedings{ergo88, + author = {Peter Lee and Frank Pfenning and Gene Rollins and William Scherlis}, + title = {{The Ergo Support System}: An integrated set of tools for prototyping integrated environments}, + OPTcrossref = {}, + OPTkey = {}, + booktitle = {Proc.~SDE 3}, + OPTbooktitle = {Proc.~Software Engineering Symp. on Practical Software Development Environments}, + OPTpages = {25--34}, + year = {1988}, + OPTeditor = {Peter Henderson}, + OPTvolume = {}, + OPTnumber = {}, + OPTseries = {}, + OPTaddress = {}, + OPTmonth = {}, + OPTorganization = {}, + OPTpublisher = {}, + OPTnote = {\url{http://portal.acm.org/citation.cfm?id=65006&coll=portal&dl=ACM}}, + OPTannote = {} +} + +@InProceedings{pltredex, + author = {Jacob Matthews and Robert Bruce Findler and Matthew + Flatt and Matthias Felleisen}, + title = {A Visual Environment for Developing Context-Sensitive Term Rewriting Systems}, + OPTcrossref = {}, + OPTkey = {}, + OPTbooktitle = {International Conference on Rewriting Techniques and Applications (RTA) 2004}, + booktitle = {Proc.~RTA}, + OPTpages = {}, + year = {2004}, + OPTeditor = {}, + OPTvolume = {}, + OPTnumber = {}, + OPTseries = {}, + OPTaddress = {}, + OPTmonth = {}, + OPTorganization = {}, + OPTpublisher = {}, + OPTnote = {}, + OPTannote = {} +} + +@Misc{sugar06, + OPTkey = {}, + author = {Stephen Tse and Steve Zdancewic}, + title = {Concise concrete syntax}, + OPThowpublished = {}, + OPTmonth = {}, + year = {2006}, + note = {Submitted. \url{http://www.cis.upenn.edu/~stse/javac}}, + OPTannote = {} +} + +@INPROCEEDINGS{Blazy-Dargaye-Leroy-06, + AUTHOR = {Sandrine Blazy and Zaynah Dargaye and Xavier Leroy}, + TITLE = {Formal Verification of a {C} Compiler Front-End}, + BOOKTITLE = {Int. Symp. on Formal Methods, LNCS 2085}, + OPTSERIES = {Lecture Notes in Computer Science}, + OPTPUBLISHER = {Springer-Verlag}, + OPTVOLUME = 4085, + YEAR = 2006, + OPTPAGES = {460--475}, + OPTURL = {http://gallium.inria.fr/~xleroy/publi/cfront.pdf}, + URLPUBLISHER = {http://dx.doi.org/10.1007/11813040_31}, + ABSTRACT = {This paper presents the formal verification of a compiler front-end +that translates a subset of the C language into the Cminor +intermediate language. The semantics of the source and target +languages as well as the translation between them have been written in +the specification language of the Coq proof assistant. The proof of +observational semantic equivalence between the source and generated +code has been machine-checked using Coq. An executable compiler was +obtained by automatic extraction of executable Caml code from the Coq +specification of the translator, combined with a certified compiler +back-end generating PowerPC assembly code from Cminor, described in +previous work.}, + XTOPIC = {compcert} +} + +@book{DBLP:books/sp/Gordon79, + author = {Michael J. C. Gordon and + Robin Milner and + Christopher P. Wadsworth}, + title = {Edinburgh LCF}, + publisher = {Springer}, + series = {Lecture Notes in Computer Science}, + volume = {78}, + year = {1979}, + isbn = {3-540-09724-4}, + bibsource = {DBLP, http://dblp.uni-trier.de} +} +@inproceedings{DBLP:conf/mfcs/Milner79, + author = {Robin Milner}, + title = {LCF: A Way of Doing Proofs with a Machine.}, + booktitle = {MFCS}, + year = {1979}, + pages = {146-159}, + crossref = {DBLP:conf/mfcs/1979}, + bibsource = {DBLP, http://dblp.uni-trier.de} +} + +@proceedings{DBLP:conf/mfcs/1979, + editor = {Jir\'{\i} Becv{\'a}r}, + title = {Mathematical Foundations of Computer Science 1979, Proceedings, + 8th Symposium, Olomouc, Czechoslovakia, September 3-7, 1979}, + booktitle = {MFCS}, + publisher = {Springer}, + series = {Lecture Notes in Computer Science}, + volume = {74}, + year = {1979}, + bibsource = {DBLP, http://dblp.uni-trier.de} +} + +@techreport{891954, + author = {Robin Milner}, + title = {Logic for Computable Functions: description of a machine implementation.}, + year = {1972}, + source = {http://www.ncstrl.org:8900/ncstrl/servlet/search?formname=detail\&id=oai%3Ancstrlh%3Astan%3ASTAN%2F%2FCS-TR-72-288}, + publisher = {Stanford University}, + OPTaddress = {Stanford, CA, USA}, + } +@inproceedings{807067, + author = {Robin Milner}, + title = {Implementation and applications of {S}cott's logic for computable functions}, + booktitle = {Proc.~ACM conference on Proving assertions about programs}, + year = {1972}, + pages = {1--6}, + location = {Las Cruces, New Mexico, United States}, + OPTdoi = {http://doi.acm.org/10.1145/800235.807067}, + OPTpublisher = {ACM Press}, + OPTaddress = {New York, NY, USA}, + } + + + +@InProceedings{OF06, + author = {Scott Owens and Matthew Flatt}, + title = {From Structures and Functors to Modules and Units}, + OPTcrossref = {}, + OPTkey = {}, + booktitle = {Proc.~ICFP}, + OPTpages = {}, + year = {2006}, + OPTeditor = {}, + OPTvolume = {}, + OPTnumber = {}, + OPTseries = {}, + OPTaddress = {}, + OPTmonth = {}, + OPTorganization = {}, + OPTpublisher = {}, + OPTnote = {}, + OPTannote = {} +} + +@article{356598, + author = {Peter Wegner}, + title = {The Vienna Definition Language}, + journal = {ACM Comput. Surv.}, + volume = {4}, + number = {1}, + year = {1972}, + issn = {0360-0300}, + pages = {5--63}, + doi = {http://doi.acm.org/10.1145/356596.356598}, + publisher = {ACM Press}, + OPTaddress = {New York, NY, USA}, + } + +@Book{FLDLCP66, + ALTauthor = {}, + editor = {Steel, T.B. jr}, + title = {Formal language description languages for computer programming}, + publisher = {North-Holland}, + year = {1966}, + OPTkey = {}, + OPTvolume = {}, + OPTnumber = {}, + OPTseries = {}, + OPTaddress = {}, + OPTedition = {}, + OPTmonth = {}, + OPTnote = {}, + OPTannote = {} +} + + +@ARTICLE{NAUR63, + AUTHOR = {Peter Naur and others}, + TITLE = {Revised Report on the Algorithmic Language {ALGOL} 60}, + JOURNAL = {Communications of the ACM}, + MONTH = {January}, + VOLUME = {6}, + NUMBER = {1}, + YEAR = {1963}, + PAGES = {1--17}, + REPRINT = {Reprinted as \authorcite{Naur} \crosscite{NAUR63C} and \authorcite{Naur} \crosscite{NAUR63D} and in \authorcite{O'Hearn and Tennent} \crosscite[vol.~1, pages~19--49]{OHEARN97}}, + CHECKED = {4 September 1990}, + UPDATED = {10 May 1997} +} + +@InProceedings{BU06, + author = {Stefan Berghofer and Christian Urban}, + title = {A Head-to-Head Comparison of de {B}ruijn Indices and Names}, + OPTcrossref = {}, + OPTkey = {}, + booktitle = {Proc.~Int. Workshop on Logical Frameworks and Meta-Languages: Theory and Practice}, + pages = {46--59}, + year = {2006}, + OPTeditor = {}, + OPTvolume = {}, + OPTnumber = {}, + OPTseries = {}, + OPTaddress = {}, + OPTmonth = {}, + OPTorganization = {}, + OPTpublisher = {}, + OPTnote = {}, + OPTannote = {} +} + +@article{Klint93, + author = "P. Klint", + title = "A Meta-Environment for Generating Programming Environments", + journal = "ACM Trans. on Soft. Eng. and Methodology", + volume = "2", + number = "2", + month = "April", + publisher = "ACM Press", + pages = "176--201", + year = "1993" +} + +@inproceedings{758568, + author = {Delphine Terrasse}, + title = {Encoding {N}atural {S}emantics in {C}oq}, + OPTbooktitle = {AMAST '95: Proceedings of the 4th International Conference on Algebraic Methodology and Software Technology}, + booktitle = {Proc.~AMAST, LNCS 936}, + year = {1995}, + OPTisbn = {3-540-60043-4}, + pages = {230--244}, + OPTpublisher = {Springer-Verlag}, + OPTaddress = {London, UK}, + } + +@INPROCEEDINGS{strachey-semantics, + AUTHOR = {Christopher Strachey}, + TITLE = {Towards a Formal Semantics}, + BOOKTITLE = {Formal Language Description Languages for Computer + Programming}, + PUBLISHER = {North Holland}, + YEAR = 1966, + optPAGES = {198--220} +} + +@inproceedings{65005, + author = {P. Borras and D. Clement and Th. Despeyroux and J. Incerpi and G. Kahn and B. Lang and V. Pascual}, + title = {Centaur: the system}, + OPTbooktitle = {SDE 3: Proceedings of the third ACM SIGSOFT/SIGPLAN software engineering symposium on Practical software development environments}, + booktitle = {Proc.~SDE 3}, + year = {1988}, + OPTisbn = {0-89791-290-X}, + pages = {14--24}, + location = {Boston, Massachusetts, United States}, + OPTdoi = {http://doi.acm.org/10.1145/64135.65005}, + OPTpublisher = {ACM Press}, + OPTaddress = {New York, NY, USA}, + } + +@inproceedings{676146, + author = {Peter D. Mosses}, + title = {Pragmatics of {M}odular {SOS}}, + OPTbooktitle = {AMAST '02: Proceedings of the 9th International Conference on Algebraic Methodology and Software Technology}, + booktitle = {Proc.~AMAST, LNCS 2442}, + year = {2002}, + OPTisbn = {3-540-44144-1}, + pages = {21--40}, + OPTpublisher = {Springer-Verlag}, + OPTaddress = {London, UK}, + } + + +@Misc{scheme592sem, + OPTkey = {}, + author = {Robert Bruce Findler and Jacob Matthews}, + title = {Revised$^{5.92}$ Report on the Algorithmic Language {Scheme}, {C}hapter 10, {Formal Semantics}}, + OPThowpublished = {}, + month = jan, + year = {2007}, + OPTnote = {}, + OPTannote = {} +} + + +@inproceedings{808247, + author = {Thomas Reps and Tim Teitelbaum}, + title = {The synthesizer generator}, + booktitle = {Proc.~SDE 1}, + OPTbooktitle = {SDE 1: Proceedings of the first ACM SIGSOFT/SIGPLAN software engineering symposium on Practical software development environments}, + year = {1984}, + OPTisbn = {0-89791-131-8}, + pages = {42--48}, + OPTdoi = {http://doi.acm.org/10.1145/800020.808247}, + OPTpublisher = {ACM Press}, + OPTaddress = {New York, NY, USA}, + } + + +@InProceedings{PittsAM:frepbm, + author = {M. R. Shinwell and A. M. Pitts and M. J. Gabbay}, + title = {Fresh{ML}: Programming with Binders Made Simple}, + booktitle = {Proc.~{ICFP}}, + OPTpages = {263--274}, + year = 2003, + OPTmonth = aug, + OPTpublisher = {ACM Press} +} + + +@InProceedings{RGSEP, + author = "V. Vafeiadis and M. Parkinson", + title = "A marriage of rely/guarantee and separation logic", + year = 2007, + OPTcrossref = {}, + OPTkey = {}, + booktitle = {Proc.~CONCUR}, + OPTpages = {}, + OPTyear = {}, + OPTeditor = {}, + OPTvolume = {}, + OPTnumber = {}, + OPTseries = {}, + OPTaddress = {}, + OPTmonth = {}, + OPTorganization = {}, + OPTpublisher = {}, + OPTnote = {}, + OPTannote = {} +} + + +@article{216269, + author = {Mark Johnson}, + title = {Memoization in top-down parsing}, + journal = {Comput. Linguist.}, + volume = {21}, + number = {3}, + year = {1995}, + OPTissn = {0891-2017}, + pages = {405--417}, + publisher = {MIT Press}, + OPTaddress = {Cambridge, MA, USA}, + } + +@inproceedings{ruler, + author = {Atze Dijkstra and S. Doaitse Swierstra}, + title = {Ruler: Programming Type Rules}, + booktitle = {Proc.~Functional and Logic Programming, LNCS 3945}, + year = 2006} + +@InProceedings{ljam-sub, + author = {Rok {Strni\v sa} and Peter Sewell and Matthew Parkinson}, + title = {The {J}ava {M}odule {S}ystem: core design and semantic definition}, + OPTcrossref = {}, + OPTkey = {}, + booktitle = {Proceedings of {OOPSLA} 2007, the {22nd ACM SIGPLAN International Conference on Object-Oriented Programming, Systems, Languages and Applications (Montre{\'a}l)}}, + optpages = {15 pp}, + note = {15pp}, + year = {2007}, + OPTeditor = {}, + OPTvolume = {}, + OPTnumber = {}, + OPTseries = {}, + OPTaddress = {}, + month = oct, + OPTorganization = {}, + OPTpublisher = {}, + OPTannote = {} +} + +@InProceedings{ott-sub, + author = {Peter Sewell and Zappa Nardelli,Francesco and Scott Owens and Gilles Peskine and Thomas Ridge and Susmit Sarkar and Rok Strni\v sa}, + title = {{Ott}: Effective Tool Support for the Working Semanticist}, + OPTcrossref = {}, + OPTkey = {}, + booktitle = {Proceedings of ICFP 2007: {the 12th ACM SIGPLAN International Conference on Functional Programming (Freiburg)}}, + optpages = {12pp}, + note = {12pp}, + year = {2007}, + OPTeditor = {}, + OPTvolume = {}, + OPTnumber = {}, + OPTseries = {}, + OPTaddress = {}, + month = oct, + OPTorganization = {}, + OPTpublisher = {}, + optnote = {To appear}, + OPTannote = {} +} + +@InProceedings{ocamllightesop, + author = {Scott Owens}, + title = {A Sound Semantics for {OCaml$_{\emph{light}}$}}, + OPTcrossref = {}, + OPTkey = {}, + booktitle = {Proceedings of ESOP, LNCS 4960}, + OPTpages = {}, + year = {2008}, + OPTeditor = {}, + OPTvolume = {}, + OPTnumber = {}, + OPTseries = {}, + OPTaddress = {}, + OPTmonth = {}, + OPTorganization = {}, + OPTpublisher = {}, + OPTnote = {}, + OPTannote = {} +} + +@inproceedings{Gra08, + author = {Kathryn E. Gray}, + title = {Safe Cross-language Inheritance}, + booktitle = {ECOOP}, + year = {2008}, + } + + @InProceedings{FGZN08, + author = {C{\'e}dric Fournet and Nataliya Guts and Zappa Nardelli, Francesco }, + title = {A formal implementation of value commitment }, + OPTcrossref = {}, + OPTkey = {}, + booktitle = {Proc. ESOP, LNCS 4960}, + pages = {383--397}, + year = {2008}, + OPTeditor = {}, + OPTvolume = {}, + OPTnumber = {}, + OPTseries = {}, + OPTaddress = {}, + OPTmonth = {}, + OPTorganization = {}, + OPTpublisher = {}, + OPTnote = {}, + OPTannote = {} +} + + +@Misc{R6RS, + OPTkey = {}, + author = {Michael Sperber and R. Kent Dybvig and Matthew Flatt and Anton Van Straaten (Editors) and Richard Kelsey and William Clinger and Jonathan Rees (Editors, Revised$^5$ Report on the Algorithmic Language Scheme and Robert Bruce Findler and Jacob Matthews (Authors, formal semantics)}, + title = {Revised$^6$ Report on the Algorithmic Language Scheme}, + OPThowpublished = {}, + month = sep, + year = {2007}, + note = {\url{http://www.r6rs.org/}}, + OPTannote = {} +} + +@phdthesis{sdf, +author = {Eelco Visser}, +title = {Syntax Definition for Language Prototyping}, +year = {1997}, +School = {University of Amsterdam}} + +@phdthesis{glr, +author = {Jan Rekers}, +title = {Parser Generation for Interactive Environments}, +year = {1992}, +School = {University of Amsterdam}} + +@inproceedings{elkhound, + author = {Scott {McPeak} and George C. Necula}, + title = {Elkhound: A Fast, Practical {GLR} Parser Generator}, + year = {2004}, + booktitle = {Proceedings of CC, LNCS 2985}} + +@article{ott-jfp, + author = {Peter Sewell and Zappa Nardelli, Francesco and Scott Owens and Gilles Peskine and Thomas Ridge and Susmit Sarkar and Rok Strni\v sa}, + title = {{Ott}: Effective Tool Support for the Working Semanticist}, + OPTcrossref = {}, + OPTkey = {}, + optjournal = {J. Functional Programming}, + journal = {Journal of Functional Programming}, + year = {2010}, + OPTkey = {}, + volume = {20}, + number = {1}, + pages = {70--122}, + month = jan, + note = {Invited submission from ICFP 2007}, + OPTannote = {} +} + diff --git a/vendors/ott/doc/squishtex.hand.ott b/vendors/ott/doc/squishtex.hand.ott new file mode 100644 index 000000000000..2ac27a16aad2 --- /dev/null +++ b/vendors/ott/doc/squishtex.hand.ott @@ -0,0 +1,11 @@ +embed + {{ tex-preamble +\renewcommand{\[[TEX_NAME_PREFIX]]grammartabular}[1] + {\begin{minipage}{\columnwidth}\begin{tabular}{ll}#1\end{tabular}\end{minipage} } +\renewcommand{\[[TEX_NAME_PREFIX]]rulehead}[3] + {$#1$ $#2$ & $#3$} +\renewcommand{\[[TEX_NAME_PREFIX]]prodline}[6] + { \quad $#1$ \ $#2$ & \quad $#3 #4$ $#5$ $#6$} +\renewcommand{\[[TEX_NAME_PREFIX]]interrule} + {\\[2.0mm]} + }} diff --git a/vendors/ott/doc/style.css b/vendors/ott/doc/style.css new file mode 100644 index 000000000000..b9f45c12173a --- /dev/null +++ b/vendors/ott/doc/style.css @@ -0,0 +1,50 @@ +body { + font-family: verdana, arial, helvetica, sans-serif; + font-size: 1.0em; +} + +h1 { font-size: 150%; } +h2 { + font-size: 125%; + margin-top: 1.0em; +} +h3 { + font-size: 100%; +} + +hr{ + margin-top:20px; + margin-bottom:20px; + margin-left:2px; + margin-right:2px; +} + +table,td,th{ + border:1px solid #000; + border-collapse:collapse; + margin:0; + padding:0; +} +td,th{ + padding:.2em .5em; + vertical-align:top; + font-weight:normal; +} +thead th{ + font-weight:bold; + font-size:90%; + vertical-align:bottom; + margin-bottom:5px; +} +tbody td,tbody th{ + padding:7px 10px; +} +tfoot td,tfoot th{ + margin-top:5px; +} +caption{ + text-align:left; + font-size:120%; + font-weight:bold; + margin:5px; +} diff --git a/vendors/ott/doc/test10.hand.edited.thy b/vendors/ott/doc/test10.hand.edited.thy new file mode 100644 index 000000000000..52a0fc9831a9 --- /dev/null +++ b/vendors/ott/doc/test10.hand.edited.thy @@ -0,0 +1,51 @@ +theory out = Main: +(** syntax *) +types termvar = "string" + +datatype +t = + t_Var "termvar" + | t_Lam "termvar" "t" + | t_App "t" "t" + +(** subrules *) +consts +is_v :: "t => bool" + +primrec +"is_v ((t_Var x)) = False" +"is_v ((t_Lam x t)) = (True)" +"is_v ((t_App t t')) = False" + +(** substitutions *) +consts +tsubst_t :: "t => termvar => t => t" + +primrec +"tsubst_t t0 termvar0 (t_Var x) = + (if x=termvar0 then t0 else (t_Var x))" +"tsubst_t t0 termvar0 (t_Lam x t) = + (t_Lam x (if termvar0 mem [x] then t else (tsubst_t t0 termvar0 t)))" +"tsubst_t t0 termvar0 (t_App t t') = + (t_App (tsubst_t t0 termvar0 t) (tsubst_t t0 termvar0 t'))" + +(** definitions *) +(*defns Jop *) +consts + E :: "(t*t) set" +inductive E +intros + +(* defn E *) + +ax_appI: "[|is_v v2|] ==> + ( (t_App T v2) , ( tsubst_t v2 x t12 ) ) : E" + +ctx_app_funI: "[| ( t1 , t1' ) : E|] ==> + ( (t_App t1 t) , (t_App t1' t) ) : E" + +ctx_app_argI: "[|is_v v ; + ( t1 , t1' ) : E|] ==> + ( (t_App v t1) , (t_App v t1') ) : E" + +end diff --git a/vendors/ott/doc/test10.hand.edited.v b/vendors/ott/doc/test10.hand.edited.v new file mode 100644 index 000000000000..013e3d8cc912 --- /dev/null +++ b/vendors/ott/doc/test10.hand.edited.v @@ -0,0 +1,60 @@ +Require Import List. Require Import Arith. +(** syntax *) +Definition termvar_t := nat. +Lemma eq_termvar_t: forall (x y : termvar_t), {x = y} + {x <> y}. +Proof. + decide equality. +Defined. + + +Inductive +t_t : Set := + t_Var : termvar_t -> t_t + | t_Lam : termvar_t -> t_t -> t_t + | t_App : t_t -> t_t -> t_t +. + +(** subrules *) +Definition is_v (t0:t_t) : Prop := + match t0 with + | (t_Var x) => False + | (t_Lam x t) => (True) + | (t_App t t') => False +end. + +(** substitutions *) + +Fixpoint list_mem (A:Set) (eq:forall a b:A,{a=b}+{a<>b}) (x:A) (l:list A) {struct l} : bool := + match l with + | nil => false + | cons h t => if eq h x then true else list_mem A eq x t +end. +Implicit Arguments list_mem. + +Fixpoint tsubst_t (t0:t_t) (termvar0:termvar_t) (t1:t_t) {struct t1} : t_t := + match t1 with + | (t_Var x) => if eq_termvar_t x termvar0 then t0 else (t_Var x) + | (t_Lam x t) => t_Lam x (if list_mem eq_termvar_t termvar0 (cons x nil) then t else (tsubst_t t0 termvar0 t)) + | (t_App t t') => t_App (tsubst_t t0 termvar0 t) (tsubst_t t0 termvar0 t') +end. + + +(** definitions *) +(* defns Jop *) + +Inductive +(* defn E *) + +E : t_t -> t_t -> Prop := + | ax_app : forall v2 x t12, + is_v v2 -> + E (t_App T v2) ( tsubst_t v2 x t12 ) + | ctx_app_fun : forall t1 t1' t, + E t1 t1' -> + E (t_App t1 t) (t_App t1' t) + | ctx_app_arg : forall t1 v t1', + is_v v -> + E t1 t1' -> + E (t_App v t1) (t_App v t1') + +. \ No newline at end of file diff --git a/vendors/ott/doc/top2.mng b/vendors/ott/doc/top2.mng new file mode 100644 index 000000000000..f7eea568466f --- /dev/null +++ b/vendors/ott/doc/top2.mng @@ -0,0 +1,5570 @@ +% -*-LaTeX-*- +\documentclass[10pt]{article} +\usepackage{amsmath,amssymb} +\usepackage{supertabular} +\usepackage{longtable} +\usepackage{geometry} +\usepackage{verbatim} +\usepackage{alltt} +\usepackage{hevea} +\usepackage[usenames]{color} + +%\usepackage{ctable} %for pandoc-generated table +\newcommand{\ctable}[1][]{} +\newcommand{\FL}{\begin{center}\begin{tabular}{ll}} +\newcommand{\ML}{\\\hline} +\newcommand{\LL}{\end{tabular}\end{center}} + +%\begin{htmlonly} +%\renewcommand{\fbox}[1] +%{\begin{cellstyle}{text}{}#1\end{cellstyle}} +%\end{htmlonly} + + +\geometry{% +a4paper, +% letterpaper, +dvips, +twoside, +%left=22.5mm, right=22.5mm, +left=25.4mm, right=25.5mm, +top=20mm, bottom=35mm, +} +\usepackage{parskip} + + +%\newcommand{\mybf}[1]{{\pmb{\texttt{#1}}}} +\newcommand{\mybf}[1]{{{\texttt{#1}}}} +%\newcommand{\mybackslash}{\mbox{$\backslash$}} +%\newcommand{\mybackslash}{\mbox{\tt\char'134}} +%\newcommand{\mylb}{\mbox{\tt\char'173}} +%\newcommand{\myrb}{\mbox{\tt\char'175}} + +%\newcommand{\mykw}[1]{{\color{Mahogany}{\pmb{\texttt{#1}}}}} +\newcommand{\mykw}[1]{{\color{Mahogany}{{\texttt{#1}}}}} +\newcommand{\mysym}[1]{{\color{RoyalBlue}{{\texttt{#1}}}}} +%\newcommand{\mybackslash}{\mbox{$\backslash$}} +\newcommand{\mybackslash}{\mbox{\tt\char'134}} +\newcommand{\mylb}{\mbox{\tt\char'173}} +\newcommand{\myrb}{\mbox{\tt\char'175}} + +\ifhevea +\newcommand{\tick}{\mbox{$*$}} +\newcommand{\cross}{\mbox{$-$}} +\else +\newcommand{\tick}{\mbox{$\surd$}} +\newcommand{\cross}{\mbox{$\times$}} +\fi +\newcommand{\fakeindex}{\Box} + + +\newcommand{\TODO}[1]{\textbf{[TODO{ #1}]}} + +%\ifdraftversion +\newcommand{\mlabel}[1]{\label{#1}} +\newcommand{\mref}[1]{\ref{#1}} +\newcommand{\mpageref}[1]{\pageref{#1}} +%\newcommand{\mlabel}[1]{\label{#1}\raisebox{1.85ex}[0pt][0pt]{\makebox[0pt]{}}} +%\newcommand{\mref}[1]{\ref{#1}\raisebox{1.85ex}[0pt][0pt]{\makebox[0pt]{}}} +%\newcommand{\mpageref}[1]{\pageref{#1}\raisebox{1.85ex}[0pt][0pt]{\makebox[0pt]{}}} +%\else +%\newcommand{\mlabel}[1]{\label{#1}\raisebox{1.85ex}[0pt][0pt]{\makebox[0pt]{\scriptsize#1}}} +%\newcommand{\mref}[1]{\ref{#1}\raisebox{1.85ex}[0pt][0pt]{\makebox[0pt]{\fontseries{m}\selectfont\scriptsize#1}}} +%\newcommand{\mpageref}[1]{\pageref{#1}\raisebox{1.85ex}[0pt][0pt]{\makebox[0pt]{\fontseries{m}\selectfont\scriptsize#1}}} +%\fi + +\newcommand{\myparagraph}[1]{\subsection{#1}} +%\newcommand{\myparagraph}[1]{\vspace{0.5\baselineskip}\par\noindent{\textbf{#1}}\ } +\newcommand{\mysubparagraph}[1]{\vspace{0.5\baselineskip}\par\noindent{\emph{#1:}}\ } + +\newcommand{\lparagraph}[1]{\vspace{0.4\baselineskip}\par\noindent{\normalsize\bfseries\itshape{#1}}\quad} +\newcommand{\myaspect}[1]{\lparagraph{\textit{#1} }} + + +\include{test10} +\include{test10.2} +\include{test10.meta} +\include{test8} +\include{test7} +\include{test13d} +%\include{test13} +\include{test10st} +\include{test17.10} +\include{binding.1} +\include{binding.2} +\include{binding.3} +\include{binding.4} +\include{binding.5} +\include{binding.6b} + +\input{../src/version} + +\ifhevea +\newcommand{\mydagger}{**} +\newcommand{\myLaTeX}{LaTeX} +\else +\newcommand{\mydagger}{+} +\newcommand{\myLaTeX}{\LaTeX} +\fi + +\begin{document} +\title{Ott: Tool Support for + Semantics \\User Guide\\ +\ \mbox{version \ottver{}} +} +\author{Peter Sewell$^*$ \qquad Francesco Zappa Nardelli$^\mydagger$ \qquad Scott Owens $^*$ \\[5mm] +with Gilles Peskine$^*$, Tom + Ridge$^*$,\\ Susmit Sarkar$^*$, and Rok Strni\v sa$^*$\\[5mm] + ${}^*$University of Cambridge \qquad + ${}^\mydagger$INRIA} +\date{\today{}} +\maketitle + +{\small +\tableofcontents +\listoffigures +} +\newpage +\section{Introduction}\mlabel{a1}% +Ott is a tool for writing definitions of programming languages and +calculi. +% +It takes as input a definition of a language syntax and semantics, in +a concise and readable ASCII notation that is close to what one would +write in informal mathematics. It generates output: +\begin{enumerate} +\item a \myLaTeX{} source file that defines commands to build a typeset version of + the definition; +\item a Coq version of the definition; +\item a HOL version of the definition; +\item an Isabelle/HOL version of the definition; +\item a Lem version of the definition; +\item an OCaml version of the syntax of the definition. +\end{enumerate} +Additionally, it can be run as a filter, taking a +\myLaTeX{}/Coq/Isabelle/HOL/Lem/OCaml source file +with embedded (symbolic) terms of the defined language, parsing them and replacing +them by typeset terms. + + +This document is a user guide for the tool. The papers +\begin{itemize} +\item +\ahref{http://www.cl.cam.ac.uk/users/pes20/ott/ott-jfp.pdf}{Ott: Effective Tool Support for the Working Semanticist}. Peter Sewell, Francesco Zappa Nardelli, Scott Owens, Gilles +Peskine, Thomas Ridge, Susmit Sarkar, Rok Strni\v sa. +Journal of Functional Programming 20(1):71-122, 2010 \cite{ott-jfp}. + +\item +\ahref{http://www.cl.cam.ac.uk/users/pes20/ott/paper.pdf}{Ott: Effective Tool Support for the Working Semanticist}. Peter Sewell, Francesco Zappa Nardelli, Scott Owens, Gilles +Peskine, Thomas Ridge, Susmit Sarkar, Rok Strni\v sa. +ICFP'07 \cite{ott-sub}. + +\end{itemize} +give an overview of the project, including discussion of motivation, +design decisions, and related work, and one should look at that together +with this manual. The project web page +\begin{quotation} +\ahrefurl{http://www.cl.cam.ac.uk/users/pes20/ott/} +\end{quotation} +links to the github source repository, with a +BSD-style licence. It also has a range of examples, including +untyped and simply typed CBV lambda calculus, ML polymorphism, various +first-order systems from Pierce's TAPL~\cite{Pierce:TypeSystems}, the +POPLmark F$_{<:}$ language~\cite{poplmark}, a module system by +Leroy~\cite[\S4]{Leroy-generativity} (extended with a term language and an +operational semantics), the LJ Java fragment and LJAM Java module +system~\cite{ljam-sub}, and a substantial fragment of OCaml. + + + +Our main goal is to support work on large programming language +definitions, where the scale makes it hard to keep a definition +internally consistent, and hard to keep a tight correspondence between a +definition and implementations. +% +We also wish to ease rapid prototyping work with smaller calculi, +and to make it easier to exchange definitions and definition fragments +between groups. +% +% +Most simply, the tool can be used to aid completely informal \myLaTeX{} mathematics. +Here it permits the definition, and terms within proofs and +exposition, to be written in a clear, editable, ASCII notation, without \myLaTeX{} +noise. It generates good-quality typeset output. +By parsing (and so sort-checking) this input, it quickly catches a +range of simple errors, e.g.~inconsistent use of judgement forms or +metavariable naming conventions. +% +That same input, extended with some additional data, can be used to generate formal definitions for +Coq, HOL, Isabelle, and Lem. It should thereby enable a smooth transition +between use of informal and formal mathematics. Further, the +tool can automatically generate definitions of functions for free +variables, single and multiple substitutions, subgrammar checks +(e.g.~for value subgrammars), and binding auxiliary functions. +Ott supports a `fully concrete' representation, sufficient +for many examples but not dealing with general alpha equivalence. +An experimental Coq backend generates definitions in locally-nameless style for a subset of the Ott metalanguage. + The OCaml backend +generates type definitions that may be useful for developing a complete +implementation of the language, together with the functions listed +above. It does not generate anything for inductively defined relations +(the various proof-assistant code extraction facilities can +sometimes be used for that). +% +Our focus here is on the problem of writing and editing language +definitions, not (directly) on aiding mechanized proof of metatheory. If one +is involved in hard proofs about a relatively stable small calculus +then it will aid only a small part of the work (and one might choose +instead to work just within a single proof assistant), but for larger +languages the definition is a more substantial problem --- so much so +that only a handful of full-scale languages have been given complete definitions. We +aim to make this more commonplace, less of a heroic task. + +% getting started with Ott +\input{README} + + +\section{A minimal Ott source file: the untyped CBV lambda calculus}\mlabel{a51}% +Fig.~\ref{a45} shows an Ott source file for an untyped call-by-value +(CBV) lambda calculus. This section explains the basic features that +appear there, while in the following sections we show what must be +added to generate typeset output, proof assistant definitions, and +other things. +\begin{figure} +\fbox{\small\begin{minipage}{\textwidth} +\input{test10.0.alltt} +\end{minipage}} +\caption{Source: \texttt{test10.0.ott}\protect\label{a45}} +\end{figure} +The figure is colourised, with Ott keywords like \mykw{this} and Ott +symbols such as \mysym{|} and \mysym{::}. Other user-specific input +appears like \texttt{this}. + +At the top of the figure, the \mykw{metavar} declaration introduces +a sort of \emph{metavariables} \texttt{termvar} (with synonym \texttt{x}), for term +variables. +% +The following \mykw{grammar} introduces two grammar rules, one for terms, with + \emph{nonterminal root} + \texttt{t}, and one for values \texttt{v}. +This specifies the concrete syntax of object-language terms, +the abstract syntax representations for proof-assistant mathematics, +and the syntax of symbolic terms to be used in semantic rules. + +Each rule has a rule name prefix (e.g.~\texttt{'t\_'}) and then a list +of productions. Each production, e.g. +\begin{alltt} + \mysym{|} \mybackslash{} x . t \mysym{::} \mysym{::} Lam +\end{alltt} +specifies a syntactic form as a list of elements, here `\verb+\+', +`\verb+x+', `\verb+.+', and `\verb+t+', each of which is either a +metavariable (the `\verb+x+'), a nonterminal (the `\verb+t+'), or a +terminal +(\texttt{\mybackslash} \texttt{.} \texttt{(} \texttt{)} \texttt{\mylb} \texttt{\myrb} \texttt{/} \texttt{-->}). +% +Within productions all elements must be whitespace-separated, so that +the tool can deduce which are terminals. In the symbolic terms in +the semantic rules below, however, whitespace is required only where necessary. +%Terminals are not required to be declared in the \texttt{terminals} +%grammar (all strings that are not metavariables or nonterminals are +%regarded as terminals) but, if they are, then \myLaTeX{} pretty printing +%information for them can be specified there. In this example the +%`\verb+\+' is included in the \texttt{terminals} grammar and will be +%\myLaTeX pretty printed as a $\lambda$, whereas the `\verb+.+' is not +%included and will be pretty printed in a default form. +A few terminals have to be quoted (with \verb+''+) if they appear in a grammar, e.g. to +use \texttt{|} as an object-language token, as they are part of the Ott syntax, but they +do not have to be quoted at usage points. +% +(If one accidentally omits inter-token whitespace in the grammar, the +output of Ott can be surprising. This is best diagnosed by looking at +the colourised ASCII or \myLaTeX{} output from Ott.) + +Metavariables and nonterminals can be formed from the specified +metavariable and nonterminal roots by appending a suffix, e.g.~the +nonterminal \verb+t'+ in the \verb+App+ and \verb+Tsub+ productions. + + + + +Between the \mysym{::}'s is an optional meta flag \mykw{M} or \mykw{S}. Non-meta +productions give rise to clauses of datatype definitions in the +Isabelle/Coq/HOL output, whereas meta productions do not. Later, we +will see how the user can specify how meta syntax should be translated +away when generating proof assistant output. The two flags \mykw{M} +and \mykw{S} are identical except that productions with the latter are +admitted when parsing example concrete terms; the \mykw{S} tag is thus +appropriate for lightweight syntactic sugar, such as productions for +parentheses. One can also use an \mykw{X} flag here to suppress a +production in the generated LaTeX. + +Each production has a production name (e.g.~\verb+t_Lam+), composed of +the rule name prefix (here~\verb+t_+) and the production name kernel +that follows the \mysym{::}'s (here~\verb+Lam+). The production name is +used as a constructor name in the generated Isabelle/Coq/HOL. + +The tool supports arbitrary context-free grammars, extended with +special constructs for list forms (c.f.~\S\mref{a61}). + + +Following the \mykw{grammar} in this example is a \mykw{subrule} +declaration +\begin{alltt} + \mykw{subrules} + v \mysym{<::} t +\end{alltt} +declaring that the \verb+v+ grammar rule (of values) is a +subgrammar of the \verb+t+ rule (of terms). The tool checks that +there is in fact a subgrammar relationship, i.e.~that for each +production of the lower rule there exists a production of the higher +rule with corresponding elements (up to the subrule relation). +The subrule declaration means that, in the semantic rules below, we +will be able to use \verb+v+'s in places where the grammar specifies \verb+t+'s. +In the generated Isabelle/Coq/HOL for this example only one free +datatype will be generated, for the \verb+t+ rule, while for the \verb+v+ +rule we generate an \verb+is_v+ predicate over the \verb+t+ type. Usages of +\verb+v+ nonterminals in the semantic rules will have instances of this +predicate automatically inserted. + +Finally, we give a collection of definitions of inductive relations. +In this example there is just one family of definitions (of +operational judgements), introduced by the \mykw{defns} \verb+Jop+; it contains just one +definition of a relation, called \verb+reduce+. +In general there may be many \mykw{defns} blocks, each of which introduces a +mutually recursive collection of \mykw{defn}s. +The relation definition +\mykw{defn}\verb+ ...+ +also includes a grammar production specifying how elements of the +relation can be written and typeset, here +\begin{verbatim} + t1 --> t2 +\end{verbatim} +As in the main grammar, the tokens of this syntax definition in the +header must be space-separated, but usages of the syntax generally +need not be. +Syntax rules for each family of +judgements, and for their union, are implicitly generated. +The relation definition is given by a sequence of inference rules, +each with a horizontal line separating a number of premises from a +conclusion, for example as below. +\begin{alltt} + t1 --> t1' +\mysym{ -------------- ::} ctx_app_arg + v t1 --> v t1' +\end{alltt} +The conclusion must be a symbolic term of the form of the judgement being +defined. +In simple cases (as here) the premises can be symbolic terms of the +form of any of the defined judgements. More generally (see +\S\ref{a53}) they can be symbolic terms of a user-defined +\mykw{formula} grammar, or in-line embedded prover code. +Each rule + has a name, composed of a definition family prefix +(here empty), a definition prefix (here also empty) and a kernel +(the~\verb+ctx_app_arg+). +% + + + + +The symbolic terms in semantic rules are parsed with a scannerless parser, built +using parser combinators over character-list inputs. The parser +searches for all parses of the input. If none are found, the ASCII +and TeX output are annotated \texttt{no parses}, with a copy of the +input with \texttt{***} inserted at the point where the last token was +read. This is often at the point of the error (though if, for +example, a putative dot form is read but the two element lists cannot +be anti-unified, it will be after the point of the error). +If multiple parses are found, the TeX output is annotated +\texttt{multiple parses} and the different parses are output to the +console in detail during the Ott run. +% +If the option \texttt{picky\_multiple\_parses} is set to +\texttt{true}, multiple parses are always reported. If it set to +\texttt{false}, a symbolic term is considered ambiguous only if two +different parses compile to different strings (for a target). +% +The parser combinators use memoization and continuation-passing to +achieve reasonable performance on the small symbolic terms that are +typical in semantic rules. Their performance on large (whole-program +size) examples is untested. +% +To resolve ambiguity one can add metaproductions for parentheses (as +in Fig.~\mref{a45}), or +production-name annotations in particular symbolic terms, +e.g.~the \verb+:t_tsub:+ in the \verb+AppAbs+ rule of the POPLmark +example, +\texttt{test7.ott}. %\S\mref{a27}. + There is currently no support for precedence +or associativity. + + +This file is included in the distribution as +\texttt{tests/test10.0.ott}. It can be processed by executing +\begin{alltt} + bin/ott -i tests/test10.0.ott +\end{alltt} +from the main directory. This simply reads in the file, checking that +it is well-formed. Adding options: +\begin{alltt} + bin/ott -show\_sort true -show\_defns true -i tests/test10.0.ott +\end{alltt} +it echos a colourised version to the screen, +with metavariables in red, nonterminals + in yellow, terminals in green, and object variables in white. +The colourisation uses vt220 control codes; if they do not work on +your screen add \texttt{-colour false} to the middle of the command +line. To suppress the echo of the definition, add +\texttt{-show\_post\_sort false} and \texttt{-show\_defns false}. + + +\subsection{Index variables} +In addition to the \mykw{metavar} declarations above, the user can declare any number of distinguished \emph{index} +metavariables, e.g. by: +\begin{alltt} + \mykw{indexvar} index\mysym{,} i\mysym{,} j\mysym{,} n\mysym{,} m \mysym{::=} \mysym{\mylb\mylb{}} \mykw{isa} num \mysym{\myrb\myrb{}} \mysym{\mylb\mylb{}} \mykw{coq} nat \mysym{\myrb\myrb{}} \mysym{\mylb\mylb{}} \mykw{hol} num \mysym{\myrb\myrb{}} +\end{alltt} +Given such a declaration, \verb+index+, \verb+i+, \verb+j+, \verb+n+ +and \verb+m+ can be used in suffixes, e.g.~in the production +\begin{alltt} + \mysym{|} ( t1 , \mysym{....} , tn ) \mysym{::} \mysym{::} Tuple +\end{alltt} +There is a fixed ad-hoc language of suffixes, including numbers, primes, and index variables (see \S\mref{a17}). +Index metavariables cannot themselves be suffixed. + + + + +\section{Generating \myLaTeX}\mlabel{a58}% +The example from the previous section can already be used to generate +\myLaTeX, for example by executing +\begin{alltt} + bin/ott -i tests/test10.0.ott -o out.tex +\end{alltt} +to produce a \myLaTeX{} file \texttt{out.tex}. One often needs to +fine-tune the default typesetting, as illustrated in +Figure~\mref{a46} (the Ott source) and Figure~\ref{a49} +(the resulting \myLaTeX{}). +(The latter was built using the additional option \verb+-tex_show_meta false+, to +suppress display of the metaproductions.) +\begin{figure} +\fbox{\small\begin{minipage}{\textwidth} +\input{test10.2.alltt} +\end{minipage}} +\caption{Source: \texttt{test10.2.ott}\protect\label{a46}} +\end{figure} +% +\newcommand{\testTenTwoallImage}{ +\begin{toimage} +\begin{minipage}{\textwidth} +\testTenTwoall +\end{minipage} +\end{toimage}% +\imageflush} +% +\begin{figure} +\testTenTwoallImage +\ifhevea\else + +\hrule\fi +\caption{Generated \myLaTeX: \texttt{test10.2.tex}\protect\label{a49}} +\end{figure} +% +% +The source file has three additions to the previous file. +Firstly, the \mykw{metavar} declaration is annotated with a +specification of how metavariables should be translated to \myLaTeX: +\begin{alltt} + \mykw{metavar} termvar\mysym{,} x \mysym{::=} + \mysym{\mylb\mylb{}} \mykw{tex} \mybackslash{}mathit\mylb{}\mysym{[[}termvar\mysym{]]}\myrb{} \mysym{\myrb\myrb{}} +\end{alltt} +Inside the \texttt{\mysym{\mylb\mylb{}} \mykw{tex} }$\ldots$\texttt{ \mysym{\myrb\myrb{}}} +is some \myLaTeX{} code +\texttt{\mybackslash{}mathit\mylb{}\mysym{\$[[}termvar\mysym{]]\$}\myrb{}} +giving the translation of a \texttt{termvar} or \texttt{x}. Here they +are typeset in math italic (which in fact is also the default). +Within the translation, the metavariable itself can be mentioned +inside double square brackets \texttt{\mysym{[[} }$\ldots$\texttt{ \mysym{]]}}. + +Secondly, there is a grammar for a distinguished nonterminal root +\mykw{terminals}, with a +\texttt{\mysym{\mylb\mylb{}} \mykw{tex} }$\ldots$\texttt{ \mysym{\myrb\myrb{}}} +translation for each, overriding the default typesetting of some +terminals. Note that the other terminals +(\texttt{.} \texttt{(} \texttt{)} \texttt{\mylb} \texttt{\myrb} \texttt{/}) +are still given their default typesetting. +\begin{alltt} + \mykw{terminals} \mysym{::} 'terminals_' \mysym{::=} + \mysym{|} \mybackslash{} \mysym{::} \mysym{::} lambda \mysym{\mylb\mylb{}} \mykw{tex} \mybackslash{}lambda \mysym{\myrb\myrb{}} + \mysym{|} --> \mysym{::} \mysym{::} red \mysym{\mylb\mylb{}} \mykw{tex} \mybackslash{}longrightarrow \mysym{\myrb\myrb{}} +\end{alltt} +Thirdly, the file has \mykw{com} comments, including +the +\texttt{\mysym{\mylb\mylb{}} \mykw{com} term \mysym{\myrb\myrb{}}} +attached to a grammar rule, +the +\texttt{\mysym{\mylb\mylb{}} \mykw{com} variable\mysym{\myrb\myrb{}}} +attached to a production, and the +\texttt{\mysym{\mylb\mylb{}} \mykw{com} \mysym{[[}t1\mysym{]]} reduces to \mysym{[[}t2\mysym{]]}\mysym{\myrb\myrb{}}} +attached to a semantic relation. These appear in the \myLaTeX{} output +as shown in Figure~\ref{a49}. + + + +\subsection{Specifying \myLaTeX{} for productions} +One can also specify \mykw{tex} translations for productions, overriding the default +\myLaTeX{} typesetting, e.g.~as in this example of +a type abstraction production. +\begin{alltt} + \mysym{|} \ X <: T . t \mysym{::} \mysym{::} TLam \mysym{\mylb\mylb} \mykw{tex} \mybackslash{}Lambda \mysym{[[}X\mysym{]]} \mysym{[[}<:\mysym{]]} \mysym{[[}T\mysym{]]}. \mybackslash{}, \mysym{[[}t\mysym{]]} \mysym{\myrb\myrb} +\end{alltt} +These \emph{homomorphisms}, or \emph{homs}\footnote{Strictly, clauses + of primitive recursive function definitions from symbolic terms to strings, here of \myLaTeX{} code.}, can refer to the metavariables and +nonterminals that occur in the production, e.g.~the \texttt{\mysym{[[}X\mysym{]]}}, +\texttt{\mysym{[[}T\mysym{]]}}, and \texttt{\mysym{[[}t\mysym{]]}} in the \mykw{tex} hom above, +interleaved with arbitrary strings and with typeset elements of the +\mykw{terminals} grammar, e.g.~the \texttt{\mysym{[[}<:\mysym{]]}}. + +Homomorphisms are applied recursively down the structure of symbolic +terms. For example, an F$_{<:}$ term +\begin{verbatim} + (\X<:T11.t12) [T2] +\end{verbatim} +would be \myLaTeX-pretty-printed, using the \mykw{tex} clause above, as +\begin{verbatim} +( \, \Lambda \mathit{X} <: \mathit{T_{\mathrm{11}}} . \, \mathit{t_{\mathrm{12}}} \, ) + \, \, [ \, \mathit{T_{\mathrm{2}}} \, ] +\end{verbatim} +which is typeset as below. +\newcommand{\lamA}{ +\begin{toimage} +$ +( \, \Lambda \mathit{X} <: \mathit{T_{\mathrm{11}}} . \, \mathit{t_{\mathrm{12}}} \, ) \, \, [ \, \mathit{T_{\mathrm{2}}} \, ] +$ +\end{toimage}\imageflush +}\[\mbox{\lamA}\] +Note the \verb+X+, \verb+T11+ and \verb+t12+ of the symbolic term are +used to instantiate the formal parameters \verb+X+, \verb+T+ and +\verb+t+ of the homomorphism definition clause. +% +If the \verb+t+ itself had compound term structure, e.g. as below +\begin{verbatim} + (\X<:T. \X'<:T'.x) +\end{verbatim} +the homomorphism would be applied recursively, producing +\begin{verbatim} +( \, \Lambda \mathit{X} <: \mathit{T} . \, \Lambda \mathit{X'} <: \mathit{T'} +. \, \mathit{x} \, \, ) +\end{verbatim} +typeset as follows. +\newcommand{\lamB}{ +\begin{toimage} +$( \, \Lambda \mathit{X} <: \mathit{T} . \, \Lambda \mathit{X'} <: \mathit{T'} . \, \mathit{x} \, \, )$ +\end{toimage}\imageflush +}\[\mbox{\lamB}\] +Where there is no user-supplied homomorphism clause the \myLaTeX{} +pretty-printing defaults to a sequence of the individual items +separated by thin spaces (\verb+\,+), +with reasonable default fonts and making use of the \verb+terminals+ grammar where appropriate. + +\subsection{Specifying \myLaTeX{} for grammar rules} +Grammar rules can include a \mykw{tex} hom specifying how all the + nonterminal roots should be typeset, e.g. +\begin{alltt} + type\mysym{,} t\mysym{,} s \mysym{::} Typ_ \mysym{::=} \mysym{\mylb\mylb{}} \mykw{tex} \mybackslash{}mathsf\mylb{}\mysym{[[}type\mysym{]]}\myrb{} \mysym{\myrb\myrb{}} + \mysym{|} unit \mysym{::} \mysym{::} unit + \mysym{|} type * type' \mysym{::} \mysym{::} pair + \mysym{|} type -> type' \mysym{::} \mysym{::} fun +\end{alltt} +%Here that \verb+tex+ hom overrides the default typesetting with +%\verb+\mathsf+. + +Alternatively, the individual nonterminal roots can have \mykw{tex} +homs specifying how they should be typeset: +\begin{alltt} + G \mysym{\mylb\mylb{}} \mykw{tex} \mybackslash{}Gamma \mysym{\myrb\myrb{}} \mysym{,} D \mysym{\mylb\mylb{}} \mykw{tex} \mybackslash{}Delta \mysym{\myrb\myrb{}} \mysym{::} 'G_' \mysym{::=} + \mysym{|} empty \mysym{::} \mysym{::} empty + \mysym{|} G , x : T \mysym{::} \mysym{::} term +\end{alltt} +permitting the user to write \verb+G'+, \verb+D12+ etc.~in symbolic +terms, to be typeset as +\begin{toimage} +$\Gamma'$, +$\Delta_{12}$, +\end{toimage} +\imageflush +etc. + + + + +\subsection{Using the \myLaTeX{} code}\mlabel{a64}% +The generated \myLaTeX{} code can be used in two main ways. +By default, Ott generates a stand-alone \myLaTeX{} file, +with a standard wrapper (including a \verb+\documentclass+, various +macro definitions, and a main body), +that gives the complete system definition. + +The default header can be overridden by writing +\verb+ embed {{ tex-wrap-pre ... }} + and the default footer by +writing \verb+embed {{ tex-wrap-post ... }} +. Alternatively, the +program option \verb+-tex_wrap false+ with the \verb+-tex_wrap false+ +command-line argument, one can generate a file that can be included in +other \myLaTeX{} files, that just defines macros to typeset various +parts of the system (\verb+-tex_wrap false+ overrides any +\verb+tex-wrap-pre/tex-wrap-post+ embeds). + + +The generated \myLaTeX{} output is factored into individual \myLaTeX{} +commands: for the metavariable declarations, each rule of the syntax +definition, the collected syntax (\verb+\ottgrammar+), each rule of the inductive relation +definitions, the collected rules for each relation, the collected +rules for each \verb+defns+ block, the union of those +(\verb+\ottdefns+) and the whole (\verb+\ottall+). +% +This makes it possible to quote individual parts of the definition, +possibly out-of-order, in a paper or technical report. + + +If one needs to include more than one system in a single \myLaTeX{} +document, the \verb+ott+ prefix can be replaced using the +\verb+-tex_name_prefix+ command-line argument. + +The generated \myLaTeX{} is factored through some common style macros, +e.g.~to typeset a comment, a production, and a grammar. If necessary +these can be redefined in an \mykw{embed} block (see Section~\ref{a60}). +For example, the file \verb+tests/squishtex.ott+ +\input{squishtex.hand.alltt} +defines a more compact style for grammars. Note that the +\texttt{\mysym{[[}\mykw{TEX\_NAME\_PREFIX}\mysym{]]}} is replaced by whatever prefix is in force, +so such style files can be reused in different contexts. + +A more sophisticated \myLaTeX{} package \verb+ottlayout.sty+, providing fine control of how +inference rules and grammars should be typeset, is contained in the +\verb+tex+ directory of the distribution. It is described in the +manual therein. + + +\section{Generating proof assistant definitions}\mlabel{a52}% +To generate proof assistant definitions, for Coq, Isabelle, and HOL, +the minimal Ott source file of Section~\ref{a51}/Figure~\ref{a45} must +be extended with a modest amount of additional data, as shown in Figure~\ref{a47}. +Executing +\begin{alltt} + bin/ott -i tests/test10.4.ott -o out.v -o out.thy -o outScript.sml +\end{alltt} +generates Coq \texttt{out.v}, Isabelle \texttt{out.thy}, and HOL +\texttt{outScript.sml}, shown in Figures~\ref{a6}, \ref{a5}, and \ref{a40}. +The additional data can be combined with the annotations for +\myLaTeX{} of the previous section, but those are omitted here. +\begin{figure} +\fbox{\small\begin{minipage}{\textwidth} +\input{test10.4.alltt} +\end{minipage}} +\caption{Source: \texttt{test10.4.ott}\protect\label{a47}} +\end{figure} +We add four things. +First, we specify proof assistant types to represent object-language +variables --- in this example, choosing the \texttt{string} type of +Isabelle and HOL, and the \texttt{nat} type for Coq: +\begin{alltt} + \mykw{metavar} termvar\mysym{,} x \mysym{::=} + \mysym{\mylb\mylb{}} \mykw{isa} string\mysym{\myrb\myrb{}} \mysym{\mylb\mylb{}} \mykw{coq} nat\mysym{\myrb\myrb{}} \mysym{\mylb\mylb{}} \mykw{hol} string\mysym{\myrb\myrb{}} \mysym{\mylb\mylb{}} \mykw{coq-equality} \mysym{\myrb\myrb{}} +\end{alltt} +For Coq output, one can specify \verb+{{ coq-equality+ \textit{proof-script} \verb+}}+ +to build a decidable equality over the Coq representation type using +the proof \textit{proof-script}. If the script is omitted, as in this +example, it defaults +to +\begin{verbatim} +Proof. + decide equality; auto with ott_coq_equality arith. +Defined. +\end{verbatim} +where the \verb+ott_coq_equality+ database contains the decidable +equalities of the representation types defined in the source. It is +possible to suppress type generation for specific metavariables or nonterminals, by adding the +declaration \verb+{{ phantom }}+. This is useful in some cases, for +instance to avoid duplicate definitions of types already defined in an +imported library. Any type homs are taken into account when +the metavariable or nonterminal root is output as a type. + + +Second, we specify what the binding is in the object language, with +the \texttt{\mysym{(+} \mykw{bind} x \mykw{in} t \mysym{+)}} +annotation on the \texttt{Lam} production: +\begin{alltt} + \mysym{|} \mybackslash{} x . t \mysym{::} \mysym{::} Lam \mysym{(+} \mykw{bind} x \mykw{in} t \mysym{+)} +\end{alltt} +Section~\ref{a62} describes the full language of binding specifications. + +Third, we add a block +\begin{alltt} + \mykw{substitutions} + \mykw{single} t x \mysym{::} tsubst +\end{alltt} +to cause Ott to generate Coq/Isabelle/HOL definitions of a substitution +function, with name root \texttt{tsubst}, replacing metavariables \texttt{x} by terms \texttt{t}. This is for single +substitutions; multiple substitution functions (taking lists of +substitutand/substitutee pairs) can also be generated with the keyword +\mykw{multiple}. +Substitution functions are generated for all rules of the grammar for +which they might be required --- here, just over \verb+t+, with a +function named \verb+tsubst_t+. + +Finally, we specify translations for the metaproductions: +\begin{alltt} + \mysym{|} ( t ) \mysym{::} \mykw{S}\mysym{::} Paren \mysym{\mylb\mylb{}} \mykw{icho} \mysym{[[}t\mysym{]]} \mysym{\myrb\myrb{}} + \mysym{|} \mylb{} t / x \myrb{} t' \mysym{::} \mykw{M}\mysym{::} Tsub \mysym{\mylb\mylb{}} \mykw{icho} (tsubst_t \mysym{[[}t\mysym{]]} \mysym{[[}x\mysym{]]} \mysym{[[}t'\mysym{]]})\mysym{\myrb\myrb{}} +\end{alltt} +These specify that \texttt{(t)} should be translated into just the +translation of \texttt{t}, whereas + \texttt{\mylb{}t/x\myrb{}t'} should be translated into the +proof-assistant application of \texttt{tsubst\_t} to the translations +of \texttt{t}, \texttt{x}, and \texttt{t'}. +The (admittedly terse) \mykw{icho} specifies that these translations should be +done uniformly for Isabelle, Coq, HOL, and OCaml output. One can also +specify just one of these, writing +\texttt{\mysym{\mylb\mylb{}} \mykw{coq} }$\ldots$\texttt{\mysym{\myrb\myrb{}}}, +\texttt{\mysym{\mylb\mylb{}} \mykw{hol} }$\ldots$\texttt{\mysym{\myrb\myrb{}}}, +\texttt{\mysym{\mylb\mylb{}} \mykw{isa} }$\ldots$\texttt{\mysym{\myrb\myrb{}}}, or +\texttt{\mysym{\mylb\mylb{}} \mykw{ocaml} }$\ldots$\texttt{\mysym{\myrb\myrb{}}}, +or include several, with different translations for each. +There are also abbreviated forms \mykw{ich}, \mykw{ic}, \mykw{ch}, and \mykw{ih}. +The body of a proof assistant hom should normally include outer +parentheses, as in the \texttt{Tsub} hom above, so that it is +parsed correctly by the proof assistant in all contexts. + +\begin{figure} +\fbox{\small\begin{minipage}{\textwidth} +\verbatiminput{test10.despaced.v} +%\verbatiminput{test10.hand.edited.v} +\end{minipage}} +\caption{Generated Coq:\texttt{test10.v}\protect\label{a6}} +\end{figure} + +\begin{figure} +\fbox{\small\begin{minipage}{\textwidth} +\verbatiminput{test10.thy} +%\verbatiminput{test10.hand.edited.thy} +\end{minipage}} +\caption{Generated Isabelle:\texttt{test10.thy}\protect\label{a5}} +\end{figure} + +\begin{figure} +\fbox{\small\begin{minipage}{\textwidth} +\verbatiminput{test10Script.sml} +\end{minipage}} +\caption{Generated HOL:\texttt{test10Script.sml}\protect\label{a40}} +\end{figure} + + +\subsection{Proof assistant code for grammar rules} +The normal behaviour is to generate a free proof assistant type for +each (non-subrule, non-phantom) grammar rule. +For example, the Coq compilation for \texttt{t} here generates a free type with three +constructors: +\begin{verbatim} + Inductive term : Set := + | t_var (x:var) + | t_lam (x:var) (t:term) + | t_app (t:term) (t':term). +\end{verbatim} +(note that the metaproductions do not give rise to constructors). + +Remark: prior to version 0.20.2, the free type generated for Coq was +\begin{verbatim} + Inductive term : Set := + | t_var : var -> term + | t_lam : var -> term -> term + | t_app : term -> term -> term. +\end{verbatim} +but we found that trying to preserve the names specified by the user +is helpful later, when doing proofs. Whenever a clash is detected, or +for list forms, the wildcard \texttt{\_} is used. The old behaviour +can be obtained via the top-level option +\texttt{-coq\_names\_in\_rules false}. + +By default the order of the arguments to those constructors follows +the order in which they appear in the production. That can be +overridden with an \texttt{order} hom. For example, if for some +reason (perhaps compatibility with other Coq code) one wished the +arguments to \verb+t_Lam+ to be reversed: +\begin{verbatim} + | t_Lam : t -> termvar -> t +\end{verbatim} +one could add an \mykw{order} hom as below. +\begin{alltt} + \mysym{|} \mybackslash{} x . t \mysym{::} \mysym{::} Lam \mysym{\mylb\mylb{}} \mykw{order} \mysym{[[}t\mysym{]]} \mysym{[[}x\mysym{]]} \mysym{\myrb\myrb{}} +\end{alltt} + + +Instead of using the generated free type, one can specify an arbitrary proof assistant representation type, +annotating the grammar rule with a \mykw{coq}, \mykw{isa}, \mykw{hol}, or \mykw{ocaml} hom --- +for example, in the following grammar for substitutions. +\begin{alltt} + s \mysym{\mylb\mylb{}} \mykw{tex} \mybackslash{}sigma \mysym{\myrb\myrb{}} \mysym{::} 'S_' \mysym{::=} \mysym{\mylb\mylb{}} \mykw{com} multiple subst \mysym{\myrb\myrb{}} \mysym{\mylb\mylb{}} \mykw{isa} (termvar*t) list \mysym{\myrb\myrb{}} + \mysym{|} [ x |-> t ] \mysym{::} \mysym{::} singleton \mysym{\mylb\mylb{}} \mykw{isa} [ (\mysym{[[}x\mysym{]]},\mysym{[[}t\mysym{]]}) ] \mysym{\myrb\myrb{}} + \mysym{|} s1 , \mysym{..} , sn \mysym{::} \mysym{::} list \mysym{\mylb\mylb{}} \mykw{isa} List.concat \mysym{[[}s1 \mysym{..} sn\mysym{]]} \mysym{\myrb\myrb{}} +\end{alltt} +Here the \texttt{\mysym{\mylb\mylb{}} \mykw{isa} (termvar*t) list \mysym{\myrb\myrb{}}} hom specifies that in +Isabelle output this type be represented as an Isabelle +\verb+(termvar*t) list+ instead of the default free inductive type; +all the productions are metaproductions (tagged \mykw{M}); and \mykw{isa} homs for each production specify how they should be translated into that Isabelle type. +% +This feature must be used with care, as any Ott-generated functions, e.g.~substitution functions, cannot recurse through such user-defined types. + + + +Grammar rules (whether free or non-free) can also include a \mykw{coq equality} hom, instructing +the Coq code generator to derive a decidable equality for the Coq +representation type. For example, the ML polymorphism Ott source of +\texttt{test8.ott} %\S\mref{a24} +includes the following. +\begin{alltt} + typvar \mysym{::} TV_ \mysym{::=} \mysym{\mylb\mylb{}} \mykw{coq-equality} decide equality. apply eq_value_name_t. \mysym{\myrb\myrb{}} + \mysym{|} ' ident \mysym{::} \mysym{::} ident +\end{alltt} + + + +The Coq/HOL/Isabelle/OCaml type name for a grammar rule, or for a +metavariable declaration, is normally +taken to be just its primary nonterminal root. +Occasionally it is useful to work around a clash between a + metavar or nonterminal primary root and a proof assistant symbol, +e.g.~\texttt{T} in HOL or \texttt{value} in Isabelle. +For this, one can add a \mykw{coq}, \mykw{hol}, \mykw{isa}, or +\mykw{ocaml} hom to the primary nonterminal root. In the example +below, the user can write \texttt{T}, \texttt{T'} etc. in their Ott +source, but the generated HOL type is \texttt{Typ}. +\begin{alltt} +T \mysym{\mylb\mylb{}} \mykw{hol} Typ \mysym{\myrb\myrb{}}\mysym{,} S\mysym{,} U \mysym{::} 'T_' \mysym{::=} \mysym{\mylb\mylb{}} \mykw{com} type \mysym{\myrb\myrb{}} + \mysym{|} T -> T' \mysym{::} \mysym{::} Fun \mysym{\mylb\mylb{}} \mykw{com} type of functions \mysym{\myrb\myrb{}} +\end{alltt} + +The grammar rules within each \mykw{grammar} block of a syntax definition may depend on each other arbitrarily. +When generating Isabelle/Coq/HOL/OCaml representation types, however, they are +topologically sorted, to simplify the resulting induction +principles. + +\subsection{Proof assistant code for inductive definitions} +The semantic relations are defined +with the proof-assistant inductive relations packages, +\verb+Inductive+, \verb+Hol_reln+, and \verb+inductive_set+ or \verb+inductive+, respectively. +Each \mykw{defns} block gives rise to a potentially mutually +recursive definition of each \mykw{defn} inside it +(it seems clearer not to do a topological sort here). +% +Definition rules are expressed internally with symbolic terms. +We give a simplified grammar thereof in Fig.~\mref{a19}, omitting the +symbolic terms for list forms. +A symbolic term $\mathit{st}$ for a nonterminal root is either an explicit nonterminal or a +node, the latter labelled with a production name and containing a list of +$\mathit{symterm\_element}$s, which in turn are either symbolic terms, +metavariables, or variables. +% +Each definition rule +gives rise to an implicational clause, essentially +that the premises (Ott symbolic terms of the \mykw{formula} grammar) +imply the conclusion (an Ott symbolic term of whichever judgement is +being defined). +% +Symbolic terms are compiled in several different ways: +\begin{itemize} +\item Nodes of non-meta productions are output as applications of the appropriate proof-assistant constructor (and, for a subrule, promoted to the corresponding constructor of a maximal rule). +\item Nodes of meta productions are transformed with the user-specified homomorphism. +\item Nodes of judgement forms are represented as applications of the defined relation in Coq and HOL, and as set-membership assertions in Isabelle. +\item Lists of formulae (the \verb+formula_dots+ production, c.f.\S\ref{a61}) are + special-cased to proof-assistant conjunctions. +\end{itemize} +Further, for each nonterminal of a non-free grammar rule, +e.g.~a usage of \verb+v'+ where \verb+v<::t+, an additional premise +invoking the generated subrule predicate for the non-free rule is added, e.g.~\verb+is_v v'+. +For Coq and HOL, explicit quantifiers are introduced for all variables +mentioned in the rule. +For HOL, rules are tagged with their rule name (using \verb+clause_name+). + + +\subsection{Representation of binding} +At present the generated Isabelle/Coq/HOL uses fully concrete +representations of variables in terms, without any notion of alpha +equivalence, as one can see in Fig.~\mref{a5}: +see the \verb+t+ datatype of terms and the \verb+tsubst_t+ +substitution function there. +An experimental Coq backend generates definitions in locally-nameless style for a subset of the Ott metalanguage. This is work-in-progress, and it is extensively documented in \ahrefurl{http://moscova.inria.fr/~zappa/projects/ln\_ott/}. +We intend in future to generate other representations, and in some +circumstances homs can be used to implement other representations directly. +For a reasonably wide variety of +languages, however, one can capture the intended semantics of whole programs in +this idiom, subject only to the condition that standard library +identifiers are not shadowed within the program, as the operational +semantics does not involve reduction under binders --- so any +substitutions are of terms which (except for standard library +identifiers) are closed. This includes the ML polymorphism example of +\texttt{test8.ott}. %\S\mref{a23}. +For languages which require a type +environment with internal dependencies, however, for example F$_{<:}$, this is +no longer the case. The POPLmark F$_{<:}$ example given in \texttt{test7.ott} +has a type system which disallows all shadowing, a property that is +not preserved by reduction. However, a correct translation of F$_{<:}$ is generated by the Coq locally-nameless backend, and can be found in \ahrefurl{http://moscova.inria.fr/~zappa/projects/ln\_ott/}. + +Further discussion of binding representations is in the Ott ICFP 2007 +paper and in a working draft +\begin{quotation}\noindent +Binding and Substitition. Susmit Sarkar, Peter Sewell, and Francesco +Zappa Nardelli. August 2007. +\end{quotation} +available from the Ott web page. + +\subsection{Helper functions for free variable and substitution functions} + +The generated free variable and substitution functions in the Coq output +(e.g., in Figure~\ref{a6}) often rely on a few standard library functions: +\verb+list_mem+, \verb+list_assoc+, \verb+list_minus+, \verb+list_minus2+. +In order to avoid dependencies on external libraries for defining those +functions, by default Ott generates the definitions for any such functions it +uses. It is possible to turn off the generation of definitions for +these such functions by writing the following directive early on in the source file: + +\begin{alltt} +\mykw{embed} \mysym{\mylb\mylb{}} \mykw{coq-lib} list_mem list_minus \mysym{\myrb\myrb{}} +\end{alltt} + +This instructs Ott to avoid generating definition for \verb+list_mem+ and +\verb+list_minus+, but to continue generating definitions for other functions +such as \verb+list_assoc+ and \verb+list_minus2+. + +\textbf{Note about }\verb+list_minus2+\textbf{:} +Instead of using the function \verb+list_minus2+, earlier versions of Ott +generated equivalent code based on \verb+list_filter+, which was more +difficult to reason about. For backwards compatibility, however, we provide the +command-line option \verb+-coq_use_filter_fn+ for generating a definition using +the older code pattern. + +\subsection{Correctness of the generated proof assistant code} +We have attempted to ensure that the proof assistant definitions +generated by Ott are well-formed and what the user would intend. This +is not guaranteed, however, for several reasons: (1) There may be name +clashes between Ott-generated identifiers and proof assistant built-in +identifiers (or, in pathological cases, even among different +Ott-generated identifiers). (2) In some cases we depend on automatic +proof procedures, e.g.~for HOL definitions. These work in our test +cases, but it is hard to ensure that they will in all cases. More +importantly, (3) the generation process is complex, so it is quite +possible that there is either a bug in Ott or a mismatch between the +user expectation and what the tool actually does. Ultimately one has +to read the generated proof assistant definitions to check that they +are as intended --- but typically one would do this in any case, many +times over, in the process of proving metatheoretic results, so we do +not consider it a major issue. + +\subsection{Using the generated proof assistant code} +% +Note added 2017-11-30: the following is out of date. + +Ott builds code for + +\begin{tabular}{ll} +Coq 8.3 & \ahrefurl{http://coq.inria.fr/} \\ +HOL 4 (the current svn version) & \ahrefurl{http://hol.sourceforge.net/}\\ +Isabelle/HOL (Isabelle 2011) & \ahrefurl{http://isabelle.in.tum.de/} +\end{tabular} + +Given proof assistant files in the top-level directory of the +distribution, as produced at the start of this section +(Coq \texttt{out.v}, Isabelle \texttt{out.thy}, and HOL +\texttt{outScript.sml}), the various proof assistants can be invoked as follows. + +\subsubsection{Coq} +First run +\begin{verbatim} + make +\end{verbatim} +in the \texttt{coq} directory of the distribution, to build the auxiliary files. +These include a core file (\verb+ott_list_core+) of definitions that +are used in Ott-generated output. +At present these are only required when Coq native lists are used. +There are also various lemmas (in +\verb+ott_list.v+) which may be useful; they can be made available with +\verb+Require Import ott_list.+ + +For batch mode run +\begin{verbatim} + coqc -I coq out.v +\end{verbatim} +where \verb+coq+ is the path to the \verb+coq+ directory of the distribution. + +The experimental locally-nameless backend requires the \verb+Metatheory+ library by Arthur Chargueraud, available from the project web page. + +\subsubsection{HOL} +First run +\begin{verbatim} + Holmake +\end{verbatim} +in the \texttt{hol} directory of the distribution, to build the auxiliary files. + + For +batch mode run +\begin{verbatim} + Holmake -I hol outTheory.uo +\end{verbatim} +% +where \verb+hol+ is the path to the \verb+hol+ directory of the distribution. +% +For interactive mode, run +\begin{verbatim} + hol -I hol +\end{verbatim} +inside an editor window (where the second \verb+hol+ is again the path +to the \verb+hol+ directory of the distribution), and in +another window view the \verb+outScript.sml+ file. First +paste in the \verb+app load+ command from a comment at the top of the +file, then paste in the remainder. + + +\subsubsection{Isabelle} +For batch mode: +\begin{verbatim} + echo 'ML_command {* (use_thy "Tmp"; OS.Process.exit OS.Process.success) handle e => (OS.Process.exit OS.Process.failure); *}' | /usr/local/Isabelle/bin/isabelle tty +\end{verbatim} +Interactively, using Proof General: +\begin{verbatim} + isabelle emacs out.thy +\end{verbatim} + +\section{Judgments and formulae}\mlabel{a53}% +In a semantic rule, for example +\begin{alltt} + t1 --> t1' +\mysym{ -------------- ::} ctx_app_arg + v t1 --> v t1' +\end{alltt} +the conclusion must be a symbolic term of the form of the judgement being +defined, but in general the premises may be symbolic terms +of a \mykw{formula} grammar or in-line embedded prover code. +By default the formula grammar includes all the defined judgement forms: for the +running example Ott will synthesise grammars as below. + +\begin{toimage} +\testTenMetagrammartabular{ +%\testTenMetat +%\testTenMetav +%\testTenMetaterminals +\testTenMetaformula\testTenMetainterrule +\testTenMetajudgement\testTenMetainterrule +\testTenMetaJop\testTenMetaafterlastrule +%\testTenMetauserXXsyntax\testTenMetaafterlastrule +} +\end{toimage}% +\imageflush + + + +The user can also define an explicit formula grammar, to let other +forms (not just judgements) appear as rule premises. Below is a +fragment of the formula grammar from the LJ example on the Ott web page. +\begin{alltt} + \mykw{formula} \mysym{::} formula_ \mysym{::=} + \mysym{|} judgement \mysym{::} \mysym{::} judgement + \mysym{|} formula1 \mysym{..} formulan \mysym{::} \mysym{::} dots + \mysym{|} not \mykw{formula} \mysym{::} \mykw{M} \mysym{::} not + \mysym{\mylb\mylb{}} \mykw{tex} \mybackslash{}neg \mysym{[[}\mykw{formula}\mysym{]]} \mysym{\myrb\myrb{}} + \mysym{\mylb\mylb{}} \mykw{isa} \mybackslash{} (\mysym{[[}\mykw{formula}\mysym{]]}) \mysym{\myrb\myrb{}} + \mysym{|} ( \mykw{formula} ) \mysym{::} \mykw{M} \mysym{::} brackets + \mysym{\mylb\mylb{}} \mykw{tex} (\mysym{[[}\mykw{formula}\mysym{]]}\mybackslash{}!) \mysym{\myrb\myrb{}} + \mysym{\mylb\mylb{}} \mykw{isa} \mysym{[[}\mykw{formula}\mysym{]]} \mysym{\myrb\myrb{}} + \mysym{|} \mykw{formula} \mybackslash{}/ \mykw{formula}' \mysym{::} \mykw{M} \mysym{::} or + \mysym{\mylb\mylb{}} \mykw{tex} \mysym{[[}\mykw{formula}\mysym{]]} \mybackslash{}vee \mysym{[[}\mykw{formula}'\mysym{]]} \mysym{\myrb\myrb{}} + \mysym{\mylb\mylb{}} \mykw{isa} \mysym{[[}\mykw{formula}\mysym{]]} \mybackslash{} \mysym{[[}\mykw{formula}'\mysym{]]} \mysym{\myrb\myrb{}} + \mysym{|} \mykw{formula} /\mybackslash{} \mykw{formula}' \mysym{::} \mykw{M} \mysym{::} and + \mysym{\mylb\mylb{}} \mykw{tex} \mysym{[[}\mykw{formula}\mysym{]]} \mybackslash{}wedge \mysym{[[}\mykw{formula}'\mysym{]]} \mysym{\myrb\myrb{}} + \mysym{\mylb\mylb{}} \mykw{isa} \mysym{[[}\mykw{formula}\mysym{]]} \mybackslash{} \mysym{[[}\mykw{formula}'\mysym{]]} \mysym{\myrb\myrb{}} + \mysym{|} x = x' \mysym{::} \mykw{M} \mysym{::} xali + \mysym{\mylb\mylb{}} \mykw{isa} \mysym{[[}x\mysym{]]} = \mysym{[[}x'\mysym{]]} \mysym{\myrb\myrb{}} + \mysym{|} X = X' \mysym{::} \mykw{M} \mysym{::} Xali + \mysym{\mylb\mylb{}} \mykw{isa} \mysym{[[}X\mysym{]]} = \mysym{[[}X'\mysym{]]} \mysym{\myrb\myrb{}} +\end{alltt} +This example adds (to the judgement forms) syntax for parenthesised +formulae, negation, and, or, and equality testing on two sorts. For +each, \mykw{tex} and \mykw{isa} homs specify how they should be +typeset and be translated into Isabelle. + +If the user defines a \mykw{formula} grammar then (as here) the production +name prefix must be \texttt{formula\_} and the name for the +\texttt{judgement} production must be \texttt{judgement}. + +\subsection{Naming of premises for the Coq backend} +It is possible to specify the names of premises of inductive +predicates; these names are then used by the Coq backend, and are +often useful in proofs. For instance, we can call \texttt{RED} the hypothesis in the rule below +\begin{alltt} + t1 --> t1' [[:RED]] +\mysym{ -------------- ::} ctx_app_arg + v t1 --> v t1' +\end{alltt} +which will then generate the following Coq code: +\begin{alltt} +| ctx_app_arg : forall (v t1 t1':term) + (RED: reduce t1 t1'), + is_val_of_term v -> + reduce (t_app v t1) (t_app v t1'). +\end{alltt} +Names of rules cannot contain spaces or other non alpha-numerical +characters, and must begin with a letter. The name annotation must at +the rightmost place on the hypothesis line, and must be enclosed +(without spaces) between the \texttt{[[:} and \texttt{]]} parentheses. + +\subsection{In-line embedded prover code in premises} +Instead of adding a formula production, one can directly embed prover +code as a premise, delimited as below by \texttt{\mysym{\mylb\mylb}} and +\texttt{\mysym{\myrb\myrb}}. Within that, text will be echoed +directly to a prover (or given a default \LaTeX{} typesetting) except that symbolic terms enclosed within +\texttt{\mysym{[[}} and \texttt{\mysym{]]}} will be processed as in an +\mykw{embed} section. +\begin{alltt} + \mysym{\mylb\mylb} type_to_chunk (\mysym{[[}typeof e1\mysym{]]}) = Some \mysym{[[}c\mysym{]]} \mysym{\myrb\myrb} + \mysym{----------------------------------------------------------- ::} Assign1 + e1=e2 . k |env --tau--> lval(e1) . [__=c e2] . k |env +\end{alltt} + + +\subsection{User syntax} +The tool also synthesises a \texttt{user\_syntax} grammar of all the +user syntax, for example: + +\begin{toimage} +\testTenMetagrammartabular{ +%\testTenMetat +%\testTenMetav +%\testTenMetaterminals +%\testTenMetaformula\testTenMetainterrule +%\testTenMetajudgement\testTenMetainterrule +%\testTenMetaJop\testTenMetaafterlastrule +\testTenMetauserXXsyntax\testTenMetaafterlastrule +} +\end{toimage}% +\imageflush + +This is used for parsing top-level strings, for example when filtering +embedded code (\S\ref{a54}). + + +\section{Concrete terms and OCaml generation}\mlabel{a57}% +In semantic definitions, one typically never uses concrete variables, +only metavariables that range over them. +In examples, however, one may need either a mix of concrete variables +and metavariables, or, for strictly concrete terms, to restrict to +just the former (and also to prohibit symbolic nonterminals). + + +Figure~\mref{a46} combines the \myLaTeX{} and proof assistant +annotations of Sections \mref{a51} and \mref{a58}, adding a +\texttt{\mysym{\mylb\mylb{}} \mykw{lex} alphanum\mysym{\myrb\myrb{}}} +hom +to the \mykw{metavar} declaration to specify the lexical form of +concrete variables of this sort. +% +At present a \mykw{lex} homomorphism must have body either + \mykw{Alphanum} (standing for \verb+[A-Z]([A-Z]|[a-z]|[0-9]|'|_)*+), + \mykw{alphanum} (for \verb+([A-Z]|[a-z])([A-Z]|[a-z]|[0-9]|'|_)*+), + \mykw{alphanum0} (for \verb+[a-z]([A-Z]|[a-z]|[0-9]|'|_)*+), or + \mykw{numeral} (for \verb+[0-9][0-9]*+); more general regular expressions are not supported. +% +An identifier that can be ambiguously lexed as either a concrete or +symbolic metavariable, e.g.~\texttt{x} in the scope of the above +declaration, will be taken to be symbolic. +% +To restrict the parser to strictly concrete terms only, one can add a +\mykw{:concrete:} prefix, as shown in Figure~\ref{a56}. + +One can also specify how concrete variables should be \myLaTeX'd or +translated into a proof assistant, e.g.~with +homomorphisms +\texttt{\mysym{\mylb\mylb{}} \mykw{texvar} \mybackslash{}mathrm\mylb{}\mysym{[[}termvar\mysym{]]}\mysym{\myrb\myrb{}}} +and +\texttt{\mysym{\mylb\mylb{}} \mykw{isavar} ''\mysym{[[}termvar\mysym{]]}''\mysym{\myrb\myrb{}}} +(and similarly \mykw{coqvar}, \mykw{holvar}, and \mykw{ocamlvar}). + + + + +Figure~\mref{a46} also specifies an OCaml representation type for +variables, with the \mykw{metavar} hom +\texttt{\mysym{\mylb\mylb{}} \mykw{ocaml} int\mysym{\myrb\myrb{}}}. +Executing +\begin{alltt} + bin/ott -i tests/test10.ott -o test10.ml +\end{alltt} +produces the OCaml code shown in Figure~\ref{a59}, including OCaml +types to represent the abstract syntax, and auxiliary functions for +subrules and substitutions. This does not implement the semantic +rules. In some cases the various proof assistant code extraction +facilities can be used --- see Section~\ref{a22}. + + +\begin{figure} +\fbox{\small\begin{minipage}{\textwidth} +\input{test10.7.alltt} +\end{minipage}} +\caption{Source: \texttt{test10.7.ott}\protect\mlabel{a68}} +\end{figure} + +\begin{figure} +\fbox{\small\begin{minipage}{\textwidth} +\verbatiminput{test10.ml} +\end{minipage}} +\caption{Generated OCaml code: \texttt{test10.ml}\protect\mlabel{a59}} +\end{figure} + + + + + +\section{Filtering: Using Ott syntax within \myLaTeX{}, Coq, Isabelle, + HOL, or OCaml}\mlabel{a54}% + +\subsection{Filtering embedded code}\mlabel{a60}% +It is possible to embed arbitrary code in +the Ott source using an \mykw{embed} block, which can contain +\mykw{tex}, +\mykw{coq}, +\mykw{hol}, +\mykw{isa}, or +\mykw{ocaml} homomorphisms, the +bodies of which will appear in the respective output. +The \verb+embed+ keyword should be on a line by itself). For +example, +\verb+test8.ott+ contains the following to +define Coq and HOL \verb+remove_duplicates+ functions. +\begin{alltt} +\mykw{embed} +\mysym{\mylb\mylb{}} \mykw{coq} +Fixpoint remove_duplicates (l:list typvar_t) : list typvar_t := + match l with + | nil => nil + | cons h t => if (list_mem eq_typvar_t h t) then remove_duplicates t + else cons h (remove_duplicates t) +end. \mysym{\myrb\myrb{}} + +\mysym{\mylb\mylb{}} \mykw{hol} +val _ = Define ` + (remove_duplicates [] = []) /\mybackslash{} + (remove_duplicates (x::xs) = if (MEM x xs) then remove_duplicates xs + else x::(remove_duplicates xs)) +`; \mysym{\myrb\myrb{}} +\end{alltt} +Within the body of an \mykw{embed} homomorphism, any text between +\mysym{[[} and \mysym{]]} will be parsed as a symbolic term (of the +\verb+user_syntax+ grammar) and pretty printed, so one can use user +syntax within \myLaTeX{} or proof assistant code. An Isabelle example +is below, defining an Isabelle function to calculate the order of a +type with productions \verb+unit+, \verb+t*t'+, and \verb+t->t'+. +\begin{alltt} +\mysym{\mylb\mylb{}} \mykw{isa} +consts +order :: "type => nat" +primrec +"order \mysym{[[}unit\mysym{]]} = 0" +"order \mysym{[[}t*t'\mysym{]]} = max (order \mysym{[[}t\mysym{]]}) (order \mysym{[[}t'\mysym{]]})" +"order \mysym{[[}t->t'\mysym{]]} = max (1+order \mysym{[[}t\mysym{]]}) (order \mysym{[[}t'\mysym{]]})" + +\mysym{\myrb\myrb{}} +\end{alltt} +It is often useful to define a proof assistant function, in an +\mykw{embed} section, together with a production of the \mykw{formula} +grammar with a proof assistant hom that uses that function, thereby +introducing syntax that lets the function be used in semantic rules. + +% needed right now: +% +Ott also permits embed blocks with \mykw{tex-preamble}, + homs, whose +contents appear in the generated \LaTeX{} preamble. +Any definitions of \LaTeX{} commands must appear in such a +\mykw{tex-preamble} section. +% desirable: +% +% Ott also permits embed blocks with \mykw{tex-preamble}, +% \mykw{hol-preamble}, or \mykw{isa-preamble} homs. +% The contents of these appear (respectively) in the \LaTeX{} preamble, +% just before the HOL \texttt{val \_ = new\_theory}, or between the Isabelle +% \texttt{imports Main Multiset} and \texttt{begin}. +% Any definitions of \LaTeX{} commands must appear in such a +% \mykw{tex-preamble} section. + + + + + +\subsection{Filtering files} +Similar processing can be carried out on separate files, using the +command-line options \verb+tex_filter+, \verb+isa_filter+, etc. +Each of these takes two arguments, a source filename and a destination +filename. In processing the source file, +any text between +\mysym{[[} and \mysym{]]} will be parsed as a symbolic term (of the +\verb+user_syntax+ grammar) and pretty printed in the appropriate +style. All other text is simply echoed. +% (except that strings of $n$ +%\verb+[+ or \verb+]+ characters, for $n\geq 3$, are shortened by $1$). + + +Typical usage for \myLaTeX{} would be something like this (from the \verb+Makefile+ +used to produce this document): +\begin{verbatim} +test7.tex: ../src/ott ../tests/test7.ott ../tests/test7tt.mng + cd ../src; make tmp_test7_clean.ott + ../src/ott \ + -i ../src/tmp_test7_clean.ott \ + -o test7.tex \ + -tex_show_meta false \ + -tex_wrap false \ + -tex_name_prefix testSeven \ + -tex_filter ../tests/test7tt.mng test7tt.tex +\end{verbatim} +The \verb+-tex_wrap false+ turns off output of the default \myLaTeX{} +document preamble, so the generated file \verb+test7.tex+ just contains +\myLaTeX{} definitions. +The \verb+-tex_name_prefix testSeven+ sets a prefix for the generated +\myLaTeX{} commands +(so the \myLaTeX{} definitions from multiple Ott source files can be +included in a single \myLaTeX{} document). +The \verb+-tex_filter+ argument takes two +filenames, a source and a destination. It filters the source file, +(roughly) replacing any string found within \verb+[[+ \verb+]]+ by +the tex pretty-print of its parse. This parsing is done w.r.t.~the generated nonterminal +\verb+user_syntax+ which is a union of all the user's grammar. + +At present %(unlike our previous munger) +munged strings are not automatically +put within \verb+$+ \verb+$+, and there is no analogue of the +\verb+<[+ \verb+]>+ of our previous munger. + +%We probably want to tune up the tex to make it more +%convenient, e.g.~to put single rules in math displays (or not); +%definitions in centering environments (or not), etc. + +The lexing +%pays some attention to \myLaTeX{} comments, but may not get it +%right. It +turns any sequence of \verb+[+ (resp. of \verb+]+) of +length $n+1$ for $n>2$ into a literal sequence of length $n$. + +Figures~\mref{a56} and \mref{a55} show a source file (\texttt{test7tt.mng}) that uses terms of the F$_{<:}$ +definition of \texttt{test7.ott}, and the result of filtering it. + +Similar filtering can be performed on Coq, Isabelle, HOL, and OCaml files. + +To filter files with respect to a relatively stable +system definition, without having to re-process the Ott source files of +that system definition each time, there are command-line options +\begin{verbatim} + -writesys Output system definition + -readsys Input system definition +\end{verbatim} +to first write the system definition (generated from some source files) to a file, and +then to read one back in (instead of re-reading the Ott source files). +The saved system definitions are in an internal format, produced using +the OCaml marshaller, and contain OCaml closures. They therefore will +not be compatible between different Ott versions. They may also be +quite large. + +\begin{figure} +\begin{alltt} +\input{test7tt.mng.alltt.tex} +\end{alltt} +\caption{F$_{<:}$ Extracts: \myLaTeX{} source file to be filtered (\texttt{test7tt.mng})\mlabel{a56}} +\end{figure} + + + +\begin{figure} +\begin{toimage} +\input{test7tt.tex} +\end{toimage}% +\imageflush +\caption{F$_{<:}$ Extracts: the filtered output (\texttt{test7tt.tex})\mlabel{a55}} +\end{figure} + + + + + + +\section{Binding specifications}\mlabel{a62}% + + + +Our first example involved a production with a single binder: +% HACK TO WORKAROUND ABSENCE OF TEX-PREAMBLE PROCESSING TO GET DOC TO +% BUILD FOR NOW +\renewcommand{\testTengrammartabular}[1]{\begin{tabular}{llcllllll}#1\end{tabular} } +\renewcommand{\testTenmetavartabular}[1]{\begin{tabular}{ll}#1\end{tabular} } + +\renewcommand{\bindingOnegrammartabular}[1]{\begin{tabular}{llcllllll}#1\end{tabular} } +\renewcommand{\bindingOnemetavartabular}[1]{\begin{tabular}{ll}#1\end{tabular} } + + +\begin{toimage} +\[ +\testTengrammartabular{ +\testTenrulehead{\testTennt{t}}{::=}{ }\\ % \testTencom{term}}\\ +\testTenprodline{|}{\lambda \, \mathit{x} \, . \, \testTennt{t}}{}{\textsf{bind}\; \mathit{x}\; \textsf{in}\; \testTennt{t}}{}{\testTencom{Lam}}\testTenafterlastrule} +\] +\end{toimage}% +\imageflush + +specified by the source shown in Figure~\mref{a47}: +\begin{alltt} + \mysym{|} \mybackslash{} x . t \mysym{::} \mysym{::} Lam \mysym{(+} \mykw{bind} x \mykw{in} t \mysym{+)} +\end{alltt} +in which a single variable binds in a single subterm. +Realistic programming languages often have much more complex binding +structures, e.g.~% +structured patterns, multiple mutually recursive \texttt{let} definitions, +comprehensions, or-patterns, and dependent record patterns. + + +Ott has a flexible metalanguage for specifying binding structures, +expressive enough to cover these. +It comprises two forms of annotation on productions. +The first, +\begin{toimage} +$\textsf{bind} \, \testThirteendnt{mse} \, \textsf{in} \, \testThirteendnt{nonterm}$, +\end{toimage} +\imageflush +%$\mybf{bind} \, \testThirteendnt{mse} \, \mybf{in} \, \testThirteendnt{nonterm}$, +%$\texttt{bind} \, \ldots \, \texttt{in} \, \testThirteendnt{nonterm}$, +lets one specify that variables bind in nonterminals of the +production, as in the \texttt{Lam} production above. +Here +\begin{toimage} +$\testThirteendnt{mse}$ +\end{toimage} +\imageflush + is a \emph{metavariable set expression}, +e.g.~in that \testTencom{lambda} production just the singleton + metavariable +\begin{toimage} +$\mathit{x}$ +\end{toimage} +\imageflush + of the production. +A variable can bind in multiple nonterminals, as in the example of +a simple recursive \texttt{let} below. + +\begin{toimage} +\[ +\bindingOnegrammar +\] +\end{toimage}% +\imageflush + +More complex examples require one to collect together sets of +variables. For example, the grammar below (shown in Ott source and the +generated \myLaTeX{}) has structured patterns, +with a +\begin{toimage} +$\bindingTwokw{let} \, \bindingTwont{p} \, = \, \bindingTwont{t} \, +\bindingTwokw{in} \, \bindingTwont{t'}$ +\end{toimage}% +\imageflush +production in which all the binders of the pattern +\begin{toimage} +$\bindingTwont{p}$\end{toimage} +\imageflush +bind in the continuation +\begin{toimage} +$\bindingTwont{t'}$. +\end{toimage} +\imageflush + +{\small +\begin{alltt} +t \mysym{::} E_ \mysym{::=} + \mysym{|} x \mysym{::} \mysym{::} ident + \mysym{|} ( t1 , t2 ) \mysym{::} \mysym{::} pair + \mysym{|} let p = t in t' \mysym{::} \mysym{::} letrec \mysym{(+} \mykw{bind} binders\mysym{(}p\mysym{)} \mykw{in} t' \mysym{+)} + + +p \mysym{::} P_ \mysym{::=} + \mysym{|} _ \mysym{::} \mysym{::} wildcard \mysym{(+} binders \mysym{=} \mysym{\mylb\myrb{}} \mysym{+)} + \mysym{|} x \mysym{::} \mysym{::} ident \mysym{(+} binders \mysym{=} x \mysym{+)} + \mysym{|} ( p1 , p2 ) \mysym{::} \mysym{::} pair \mysym{(+} binders \mysym{=} binders\mysym{(}p1\mysym{)} \mykw{union} binders\mysym{(}p2\mysym{)} \mysym{+)} +\end{alltt} +} + +\begin{toimage} +\[ +\bindingTwogrammar +\] +\end{toimage}% +\imageflush + +This is expressed with the second form of annotation: user-defined +\emph{auxiliary functions} such as the +\textrm{binders} above. This is an auxiliary function defined over the +\begin{toimage} +$\bindingTwont{p}$\end{toimage} +\imageflush + grammar that identifies a set of variables to be +used in the \textsf{bind} annotation on the \begin{toimage} +$\bindingTwokw{let}$\end{toimage} +\imageflush + production. There can be any number of such auxiliary functions; + \textrm{binders} is not a distinguished keyword. + +The syntax of a precise fragment of the binding metalanguage is given in +Fig.~\mref{a13}, +\renewcommand{\testThirteendmetavars}{ +\begin{tabular}{lll} +\textbf{metavars} & + $ \testThirteendmv{metavarroot} ,\, \testThirteendmv{mvr} $ \qquad & + $ \testThirteendmv{nontermroot} ,\, \testThirteendmv{ntr} $ \\ +& $ \testThirteendmv{terminal} ,\, \testThirteendmv{t} $ & + $ \testThirteendmv{auxfn} ,\, \testThirteendmv{f} $ \\ +& $ \testThirteendmv{prodname} ,\, \testThirteendmv{pn} $ & +% $ \testThirteendmv{suffix} ,\, \testThirteendmv{suff} $ & \\ + $ \testThirteendmv{variable} ,\, \testThirteendmv{var} $ \\ +% $ \testThirteendmv{index} ,\, \testThirteendmv{i} ,\, \testThirteendmv{j} ,\, \testThirteendmv{n} ,\, \testThirteendmv{m} $ & \\ +% $ \testThirteendmv{defnclassname} ,\, \testThirteendmv{dcn} $ & \\ +% $ \testThirteendmv{defnname} ,\, \testThirteendmv{dn} $ & \\ +% $ \testThirteendmv{defnrulename} ,\, \testThirteendmv{drn} $ & \\ +\end{tabular}} +% +% +% +\renewcommand{\testThirteendgrammar}{\testThirteendgrammartabular{ +\testThirteendmetavar\testThirteendinterrule +\testThirteendnonterm\testThirteendinterrule +\testThirteendelement\testThirteendinterrule +\testThirteendmetavarXXsetXXexpression\testThirteendinterrule +\testThirteendbindspec\testThirteendinterrule +\testThirteendprod\testThirteendinterrule +\testThirteendrule\testThirteendinterrule +\testThirteendgrammarXXrules\testThirteendinterrule +%\testThirteendauxfnXXtype\testThirteendinterrule +%\testThirteendauxfnXXtypeXXenv\testThirteendinterrule +%\testThirteendgrammarXXtype\testThirteendinterrule +%\testThirteendsymterm\testThirteendinterrule +%\testThirteendsymtermXXnodeXXbody\testThirteendinterrule +%\testThirteendsymtermXXelement\testThirteendinterrule +%\testThirteendrelations\testThirteendinterrule +%\testThirteenddefnclass\testThirteendinterrule +%\testThirteenddefinition\testThirteendinterrule +%\testThirteenddefnrule\testThirteendafterlastrule +}}% +% +\newcommand{\symtermgrammar}{\testThirteendgrammartabular{ +\testThirteendsymterm\testThirteendinterrule +\testThirteendsymtermXXnodeXXbody\testThirteendinterrule +\testThirteendsymtermXXelement\testThirteendinterrule +}}% +% +\newcommand{\castgrammar}{\testThirteendgrammartabular{ +\testThirteendconcreteXXabstractXXsyntaxXXterm\testThirteendinterrule +}}% +% +\begin{figure}[t] +\begin{toimage} +\framebox[\columnwidth]{ +\begin{minipage}{\columnwidth} +\small +\testThirteendmetavars + +\testThirteendgrammartabular{ +\textbf{grammar}\\}\\ +\mbox{\quad} +\testThirteendgrammar +\end{minipage}} +\end{toimage}% +\imageflush +\caption{Mini-Ott in Ott: the binding specification metalanguage\label{a13}} +\end{figure}% +% +%\begin{figure}[t] +%\framebox[\columnwidth]{ \begin{minipage}{\columnwidth} +%\small +%\castgrammar +%\end{minipage}} +%\caption{Mini-Ott in Ott: concrete abstract syntax terms\label{a14}} +%\end{figure}% +% +where we have used Ott to define part of the Ott +metalanguage. A simple type system (not shown) enforces sanity properties, +e.g.~that each auxiliary function is only applied to nonterminals that +it is defined over, and that metavariable set expressions are +well-sorted. + +Further to that fragment, the tool supports binding for the list forms +of \S\mref{a61}. +Metavariable set expressions can include lists of metavariables +and auxiliary functions applied to lists of nonterminals, e.g.~as in +the record patterns below. +% if this produces a bizarre latex error, it might be supertabular's fault...! + +\begin{toimage} +\[ +\begin{minipage}{\columnwidth} +\bindingThreegrammartabular{ +%\bindingThreet%\bindingThreeinterrule +\bindingThreep\bindingThreeafterlastrule +}\end{minipage} +%\bindingThreegrammar +\] +\end{toimage}% +\imageflush + +This suffices to express the binding structure of almost all the +natural examples we have come across, including definitions of +mutually recursive functions with multiple clauses for each, Join +calculus definitions~\cite{FGLMR96}, dependent record patterns, and many others. + + + + + +\section{Generating substitution and free variable functions}\mlabel{a67}% +The tool can generate Isabelle/Coq/HOL/OCaml code for both single and multiple +substitution functions. For example, the ML polymorphism Ott source +of \texttt{test8.ott} includes the following. +\begin{alltt} + \mykw{substitutions} + \mykw{single} expr value_name \mysym{::} subst + \mykw{multiple} typexpr typvar \mysym{::} tsubst +\end{alltt} +This causes the generation of two families of substitution +functions, one replacing a single \verb+value_name+ by a \verb+expr+, +the other replacing multiple \verb+typvar+s by \verb+typexpr+s. + +Each family contains a function for each datatype for which it is +required, so in that example there are functions +\verb+subst_expr+ for the first and \verb+tsubst_typexpr+, +\verb+tsubst_typscheme+ and \verb+tsubst_G+ for the second. + +The functions for substitutions declared by +\begin{alltt} + \mykw{substitutions} + \mykw{single} this that \mysym{::} name1 + \mykw{multiple} this that \mysym{::} name2 +\end{alltt} +replaces terms of productions consisting just of a single \verb+that+ by a +\verb+this+. +Here \verb+this+ must be a nonterminal root, while \verb+that+ can be +either a metavariable root or a nonterminal root (the latter +possibility allows substitution for compound identifiers, though it is +not clear that this is generally useful enough to be included). +Substitution functions are generated for each member of each (mutually recursive) +block of grammar rules which either contain such a production or (indirectly) +refer to one that does. + +At present multiple substitutions are represented by Isabelle/Coq/HOL/OCaml +lists, so for the example above we have Isabelle +\begin{verbatim} + tsubst_typexpr :: "(typvar*typexpr) list => typexpr => typexpr" + tsubst_typscheme :: "(typvar*typexpr) list => typscheme => typscheme" + tsubst_G :: "(typvar*typexpr) list => G => G" +\end{verbatim} +The generated functions do not substitute bound things, and recursive +calls under binders are filtered to remove the bound things. + + + +Similarly, the tool can generate Isabelle/Coq/HOL/OCaml to calculate the free +variables of terms. For example, the ML polymorphism Ott source +of \texttt{test8.ott} includes the following. +\begin{alltt} + \mykw{freevars} + typexpr typvar \mysym{::} ftv +\end{alltt} +This causes Isabelle functions as below to be generated, calculating +the free \texttt{typvar}s that occur in singleton productions in the +\texttt{typexpr} grammar, within terms of all types. +\begin{verbatim} + ftv_typexpr :: "typexpr => typvar list" + ftv_typscheme :: "typscheme => typvar list" + ftv_G :: "G => typvar list" +\end{verbatim} + + + +\section{Locally-nameless representation} + +The Coq backend of Ott includes experimental support for a +locally-nameless representation (and co-finite quantification). + +The user must specify which metavariables require a locally-nameless +representation via the \texttt{\mykw{repr-locally-nameless}} hom, +e.g.: + +\begin{alltt} +\mykw{metavar} x \mysym{::=} \mysym{\mylb\mylb{}} \mykw{repr-locally-nameless} \mysym{\myrb\myrb{}} \mysym{\mylb\mylb{}} \mykw{com} term variable \mysym{\myrb\myrb{}} +\end{alltt} + +As usual, metavariables can be bound in productions, using the +bindspec language, as in the \texttt{lam} production below: +\begin{alltt} +\mykw{grammar} + t \mysym{::} 't_' \mysym{::=} \mysym{\mylb\mylb{}} \mykw{com} term \mysym{\myrb\myrb{}} + \mysym{|} x \mysym{::} \mysym{::} Var \mysym{\mylb\mylb{}} \mykw{com} variable \mysym{\myrb\myrb{}} + \mysym{|} \mybackslash{} x . t \mysym{::} \mysym{::} Lam \mysym{(+} \mykw{bind} x \mykw{in} t \mysym{+)} \mysym{\mylb\mylb{}} \mykw{com} abstraction \mysym{\myrb\myrb{}} + \mysym{|} t t' \mysym{::} \mysym{::} App \mysym{\mylb\mylb{}} \mykw{com} application \mysym{\myrb\myrb{}} + \mysym{|} ( t ) \mysym{::} \mykw{S} \mysym{::} paren \mysym{\mylb\mylb{}} \mykw{coq} \mysym{[[}t\mysym{]]} \mysym{\myrb\myrb{}} + \mysym{|} \mylb{} t / x \myrb{} t' \mysym{::} \mykw{M} \mysym{::} tsub \mysym{\mylb\mylb{}} \mykw{coq} (t_subst_t \mysym{[[}t\mysym{]]}\mysym{[[}x t'\mysym{]]}) \mysym{\myrb\myrb{}} +\end{alltt} + +This definition gives rise to the datatype term below (here with option \texttt{-coq\_names\_in\_rules false}): +\begin{alltt} +Inductive term : Set := +| term_var_b : nat -> term +| term_var_f : var -> term +| term_lam : term -> term +| term_app : term -> term -> term. +\end{alltt} + +Remarks: +\begin{enumerate} +\item Productions containing metavariables susceptible to be bound + (e.g., \texttt{term\_var}) give rise to two distinct constructors, one + (\texttt{term\_var\_b}) for de Bruijn indices to be used when the metavariable + is bound, one (\texttt{term\_var\_f}) for "free" variables. The type \texttt{var}, + together with decidable equality and several useful lemmas and + functions, is defined in the Metatheory library. + +In the current implementation, metavariables susceptible to be bound +in a symbolic term (eg.\ the \texttt{x} in the \texttt{term\_var} +production) must be the only element of the production. + +\item Binder metavariables are erased from productions + (eg.\ \texttt{term\_lam}), as in de Bruijn representation. +\end{enumerate} + +Ott automatically generates the appropriate \texttt{open} functions +and \texttt{lc} predicates to test if terms are locally-closed. The +other support functions for substitutions and free-variables +(\texttt{subst} and \texttt{fv}) are generated once the user declares +the relevant substitutions and freevars sections. + +Ott automatically compiles the symbolic terms that appear in rule +definitions into the appropriate terms in locally-nameless style. For +instance, the typing rule for the simply-typed lambda-calculus: + +\begin{alltt} + E,x:S |- t : T +\mysym{ ------------------} :: lambda + E |- \mybackslash{}x.t : S->T +\end{alltt} +is compiled into its locally-nameless representation: +\begin{alltt} +Inductive typing : env -> term -> type -> Prop := (* defn typing *) +| ... +| typing_lambda : forall (L:vars) (E:env) (t:term) (S T:type), + (forall x, x \mybackslash{}notin L -> typing (E & x ~ S) (open_term_wrt_term t (term_var_f x)) T) -> + typing E (term_lam t) (type_arrow S T). +\end{alltt} + +For that, Ott follows the algorithm below. For each rule, +\begin{enumerate} +\item for each nonterminal that appears in the rule, compute the + maximal set of binders under which it appears: for example, in the + rule lambda above, the maximal set of binders for the nonterminal \texttt{t} + is the singleton \texttt{x}, and it is empty for all the other nonterminals; +\item for each pair nonterminal / maximal binder set collected in + phase 1., go over all the occurrences of the nonterminal in the rule + and open them with respect to all the variables in the maximal + binding set except those under which this particular occurrence is + bound. In the example, this amounts to opening the occurrence of \texttt{t} + in the premise with respect to the metavariable \texttt{x}; +\item quantify using cofinite-quantification each metavariable that + has been used to open a nonterminal; +\item add hypothesis about local-closure to guarantee the invariant + that if a derivation holds, then the top-level terms involved are + locally-closed. +\end{enumerate} +In some cases the user may want a finer control on which nonterminals +are opened and with respect to which metavariables. Consider for +instance the CBV beta-reduction rule: +\begin{alltt} +\mysym{ --------------------------} :: ax_app + (\mybackslash{}x.t1) v2 --> \mylb{}v2/x\myrb{}t1 +\end{alltt} +A naive application of the algorithm described above would open the +right hand side occurrence of \texttt{t1} with respect to a +cofinitely-quantified \texttt{x}. Substitution should then be used to replace +the occurrences of \texttt{x} with \texttt{v2}, resulting in the awkward term +\begin{alltt} +reduce (term_app (term_lam t1) v2) (subst_term v2 x (open_term_wrt_term t1 (term_var_f x))) +\end{alltt} + +Instead, an idiomatic translation of CBV beta-reduction rule would +directly rely on the open function to substitute \texttt{v2} for the +bound occurrences of \texttt{x} in \texttt{t1}, as in: +\begin{alltt} +reduce (term_app (term_lam t1) v2) (open_term_wrt_term t1 v2) +\end{alltt} + +A special syntax for production homomorphisms allow the user to specify this translation: +\begin{alltt} + \mysym{|} \mylb{} t / x \myrb{} t' \mysym{::} \mykw{M} \mysym{::} tsub \mysym{\mylb\mylb{}} \mykw{coq} (t_subst_t \mysym{[[}t\mysym{]]}\mysym{[[}x t'\mysym{]]}) \mysym{\myrb\myrb{}} +\end{alltt} +In the homomorphism the nonterminal \texttt{t'} is referred to with +\texttt{\mysym{[[}x t'\mysym{]]}} instead of the usual +\texttt{\mysym{[[}t'\mysym{]]}}: the prefixed \texttt{x} specifies +that occurrences of \texttt{t'} should not be opened with respect to +the metavariable \texttt{x}. If this homomorphism is specified, then +the translation of the \texttt{ax\_app} rule is exactly idiomatic Coq +shown above. + +\textit{Current limitations: support for single binders only, no auxfn, Coq only.} + +\textit{Disclaimer: to compile rule definitions, Ott applies blindly the algorithm described above. Although in most of the cases, this generates a correct and idiomatic representation of the language, some language constructs might not be faithfully translated. Please, let us know if you find one of these cases. +} + +If Ott is invoked with the \texttt{-coq\_lngen} option, then the +generated locally-nameless Coq code is compatible with Aydemir's +\textit{lngen} tool (\ahrefurl{http://www.cis.upenn.edu/~baydemir/papers/lngen/}). + + +\section{List forms}\mlabel{a61}% +Ott has direct support for lists, both as \emph{dot forms} such as +\begin{toimage} +$t_1,\ldots,t_n$ +\end{toimage} +\imageflush +and as \emph{list comprehensions} such as +\begin{toimage} +$ +\testSeventeenTencomplu{\mathit{t_{\testSeventeenTenmv{i}}}} +{\mathit{i}} +{{\mathrm{1}}} +{..} +{\mathit{n}} +$ +\end{toimage} +\imageflush. +Figure~\ref{a63} shows an example semantic rule taken from our OCaml +fragment semantics, as both the generated \myLaTeX{} and its Ott +source, that involves several dot forms. +% +Other types commonly used in semantics, e.g.~finite maps or sets, can +often be described with this list syntax in conjunction with type and +metaproduction homs to specify the proof assistant representation. +% +When using list forms, one usually also wants to add a list-of-formula +production to the \mykw{formula} grammar, e.g. (as in +\verb+test17.10.ott+): +\begin{alltt} + \mykw{formula} \mysym{::} formula_ \mysym{::=} + \mysym{|} judgement \mysym{::} \mysym{::} judgement + \mysym{|} formula1 \mysym{..} formulan \mysym{::} \mysym{::} dots +\end{alltt} +The proof assistant code generation for such a production (which must +be named \verb+formula_dots+) is special-cased to a list conjunction. + + +\newcommand{\ocamlruledrule}[4][]{\frac{\begin{array}{l}#2\end{array}}{#3}\quad\ocamlruledrulename{#4}} +\newcommand{\ocamlruleusedrule}[1]{\[#1\]} +\newcommand{\ocamlrulepremise}[1]{ #1 \\} +\newenvironment{ottdefnblock}[2]{ \framebox{\mbox{#1}} \quad #2 \\[0pt]}{} +\newcommand{\ocamlrulent}[1]{\mathit{#1}} +\newcommand{\ocamlrulemv}[1]{\mathit{#1}} +\newcommand{\ocamlrulekw}[1]{\mathbf{#1}} +\newcommand{\ocamlrulecom}[1]{\text{#1}} +\newcommand{\ocamlruledrulename}[1]{\textsc{#1}} +\newcommand{\ocamlrulecomplu}[5]{\overline{#1}^{\,#2\in #3 #4 #5}} +\newcommand{\ocamlrulecompu}[3]{\overline{#1}^{\,#2<#3}} +\newcommand{\ocamlrulecomp}[2]{\overline{#1}^{\,#2}} +\makeatletter +\newcommand{\ocamlruleenvironmentappend}[2]{% + \begingroup% + \def\@tempa{#1}\def\@tempb{ \ocamlrulekw{empty} }% + \ifx\@tempa\@tempb\def\@tempc{}\else\def\@tempc{#1,}\fi% + \expandafter\endgroup% + \@tempc#2% +} +\makeatother + +\newcommand{\ocamlruledruleJTeXXrecordXXconstr}[1]{\ocamlruledrule[#1]{ + \ocamlrulepremise{\ocamlrulent{E} \, \vdash \, \ocamlrulent{e_{{\mathrm{1}}}} \, : \, \ocamlrulent{t_{{\mathrm{1}}}} \quad ... \quad \ocamlrulent{E} \, \vdash \, \ocamlrulent{e_{\ocamlrulemv{n}}} \, : \, \ocamlrulent{t_{\ocamlrulemv{n}}}} + \ocamlrulepremise{\ocamlrulent{E} \, \vdash \, \ocamlrulent{field\_name_{{\mathrm{1}}}} \, : \, \ocamlrulent{t} \, \rightarrow \, \ocamlrulent{t_{{\mathrm{1}}}} \quad ... \quad \ocamlrulent{E} \, \vdash \, \ocamlrulent{field\_name_{\ocamlrulemv{n}}} \, : \, \ocamlrulent{t} \, \rightarrow \, \ocamlrulent{t_{\ocamlrulemv{n}}}} + \ocamlrulepremise{\ocamlrulent{t} \, = \, ( \, \ocamlrulent{t'_{{\mathrm{1}}}} \, , \, ... \, , \, \ocamlrulent{t'_{\ocamlrulemv{l}}} \, ) \, \ocamlrulent{typeconstr\_name}} + \ocamlrulepremise{\ocamlrulent{E} \, \vdash \, \ocamlrulent{typeconstr\_name} \, \;\vartriangleright\; \, \ocamlrulent{typeconstr\_name} \, : \, \ocamlrulent{kind} \, \ocamlrulekw{\{} \, \ocamlrulent{field\_name'_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ocamlrulent{field\_name'_{\ocamlrulemv{m}}} \, \ocamlrulekw{\}}} + \ocamlrulepremise{\ocamlrulent{field\_name_{{\mathrm{1}}}} \, ... \, \ocamlrulent{field\_name_{\ocamlrulemv{n}}} \, \ocamlrulekw{PERMUTES} \, \ocamlrulent{field\_name'_{{\mathrm{1}}}} \, ... \, \ocamlrulent{field\_name'_{\ocamlrulemv{m}}}} + \ocamlrulepremise{\ocamlrulekw{length} \, ( \, \ocamlrulent{e_{{\mathrm{1}}}} \, ) \, ... \, ( \, \ocamlrulent{e_{\ocamlrulemv{n}}} \, ) \, \geq \, 1}}{ +\ocamlrulent{E} \, \vdash \, \ocamlrulekw{\{} \, \ocamlrulent{field\_name_{{\mathrm{1}}}} \, = \, \ocamlrulent{e_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ocamlrulent{field\_name_{\ocamlrulemv{n}}} \, = \, \ocamlrulent{e_{\ocamlrulemv{n}}} \, \ocamlrulekw{\}} \, : \, \ocamlrulent{t}}{ +{\ocamlruledrulename{JTe\_record\_constr}}{} +}} + +\newcommand{\ocamlruledruleJRXXexprXXtupleXXctx}[1]{\ocamlruledrule[#1]{ + \ocamlrulepremise{\vdash \, \ocamlrulent{e} \, \stackrel{ \ocamlrulent{L} }{\longrightarrow} \, \ocamlrulent{e'}}}{ +\vdash \, \, ( \, \ocamlrulent{e_{{\mathrm{1}}}} \, ,\, \, .. \, ,\, \, \ocamlrulent{e_{\ocamlrulemv{m}}} \, ,\, \, \ocamlrulent{e} \, ,\, \, \ocamlrulent{v_{{\mathrm{1}}}} \, ,\, \, .. \, ,\, \, \ocamlrulent{v_{\ocamlrulemv{n}}} \, ) \, \stackrel{ \ocamlrulent{L} }{\longrightarrow} \, \, ( \, \ocamlrulent{e_{{\mathrm{1}}}} \, ,\, \, .. \, ,\, \, \ocamlrulent{e_{\ocamlrulemv{m}}} \, ,\, \, \ocamlrulent{e'} \, ,\, \, \ocamlrulent{v_{{\mathrm{1}}}} \, ,\, \, .. \, ,\, \, \ocamlrulent{v_{\ocamlrulemv{n}}} \, )}{ +{\ocamlruledrulename{JR\_expr\_tuple\_ctx}}{} +}} + +\begin{figure} +% some bizarre latex messes with the font sizes if we put these into a +% single array +\small +%\[\ocamlruledruleJRXXexprXXtupleXXctx{}\] +\begin{toimage} +\[ +\ocamlruledruleJTeXXrecordXXconstr{} +\] +\end{toimage}% +\imageflush +\par\noindent{\begin{alltt} + E |- e1 : t1 ... E |- en : tn + E |- field\_name1 : t->t1 ... E |- field\_namen : t->tn + t = (t1', ..., tl') typeconstr\_name + E |- typeconstr\_name gives typeconstr\_name:kind \mylb{}field\_name1'; ...; field\_namem'\myrb{} + field\_name1...field\_namen PERMUTES field\_name1'...field\_namem' + length (e1)...(en)>=1 + -------------------------------------------------------------------------- :: record\_constr + E |- \mylb{}field\_name1=e1; ...; field\_namen=en\myrb{} : t +\end{alltt}}\noindent +\caption{A sample OCaml semantic rule, in \myLaTeX{} and Ott + source forms\protect\mlabel{a63}} +\end{figure} + + + +\subsection{List dot forms}\mlabel{a66}% +% +%used in the \S\mref{a23} type schemes: +% +%{\small\testEightgrammartabular{\testEighttypscheme\testEightafterlastrule}} +Example productions for +record types, record terms, and record +patterns are shown below, in both Ott source and \myLaTeX{}, taken +from our F$_{<:}$ example. +\begin{alltt} +T\mysym{,} S\mysym{,} U \mysym{::} 'T_' \mysym{::=} \mysym{\mylb\mylb{}} \mykw{com} type \mysym{\myrb\myrb{}} + \mysym{|} \mylb{} l1 : T1 , \mysym{..} , ln : Tn \myrb{} \mysym{::} \mysym{::} Rec \mysym{\mylb\mylb{}} \mykw{com} record \mysym{\myrb\myrb{}} + +t \mysym{::} 't_' \mysym{::=} \mysym{\mylb\mylb{}} \mykw{com} term \mysym{\myrb\myrb{}} + \mysym{|} \mylb{} l1 = t1 , \mysym{..} , ln = tn \myrb{} \mysym{::} \mysym{::} Rec \mysym{\mylb\mylb{}} \mykw{com} record \mysym{\myrb\myrb{}} + \mysym{|} let p = t in t' \mysym{::} \mysym{::} Let \mysym{(+} \mykw{bind} b\mysym{(}p\mysym{)} \mykw{in} t' \mysym{+)} \mysym{\mylb\mylb{}} \mykw{com} pattern binding\mysym{\myrb\myrb{}} + +p \mysym{::} 'P_' \mysym{::=} \mysym{\mylb\mylb{}} \mykw{com} pattern \mysym{\myrb\myrb{}} + \mysym{|} x : T \mysym{::} \mysym{::} Var \mysym{(+} b \mysym{=} x \mysym{+)} \mysym{\mylb\mylb{}} \mykw{com} variable pattern \mysym{\myrb\myrb{}} + \mysym{|} \mylb{} l1 = p1 , \mysym{..} , ln = pn \myrb{} \mysym{::} \mysym{::} Rec \mysym{(+} b \mysym{=} b\mysym{(}p1 \mysym{..} pn\mysym{)} \mysym{+)} \mysym{\mylb\mylb{}} \mykw{com} record pattern \mysym{\myrb\myrb{}} + +\end{alltt} + +\begin{toimage} +{\small\testSevengrammartabular{ +\testSevenrulehead{\testSevennt{T} ,\ \testSevennt{S} ,\ \testSevennt{U}}{::=}{\testSevencom{type}}\\ +%\testSevenprodline{|}{\ldots}{}{}{}{}\\ +\testSevenprodline{|}{\testSevenkw{\{} \, \mathit{l_{{\mathrm{1}}}} \, : \, \testSevennt{T_{{\mathrm{1}}}} \, , \, .. \, , \, \mathit{l_{\testSevenmv{n}}} \, : \, \testSevennt{T_{\testSevenmv{n}}} \, \testSevenkw{\}}}{}{}{}{\testSevencom{record}}\testSeveninterrule +% +\testSevenrulehead{\testSevennt{t}}{::=}{\testSevencom{term}}\\ +%\testSevenprodline{|}{\ldots}{}{}{}{}\\ +\testSevenprodline{|}{\testSevenkw{\{} \, \mathit{l_{{\mathrm{1}}}} \, \!\! = \!\! \, \testSevennt{t_{{\mathrm{1}}}} \, , \, .. \, , \, \mathit{l_{\testSevenmv{n}}} \, \!\! = \!\! \, \testSevennt{t_{\testSevenmv{n}}} \, \testSevenkw{\}}}{}{}{}{\testSevencom{record}}\\ +\testSevenprodline{|}{\testSevenkw{let} \, \testSevennt{p} \, \!\! = \!\! \, \testSevennt{t} \, \testSevenkw{in} \, \testSevennt{t'}}{}{\textsf{bind}\; \textrm{b}(\testSevennt{p})\; \textsf{in}\; \testSevennt{t'}}{}{\testSevencom{pattern binding}}\testSeveninterrule +% +\testSevenrulehead{\testSevennt{p}}{::=}{\testSevencom{pattern}}\\ +\testSevenprodline{|}{\mathit{x} \, : \, \testSevennt{T}}{}{\textrm{b}=\mathit{x}}{}{\testSevencom{variable pattern}}\\ +\testSevenprodline{|}{\testSevenkw{\{} \, \mathit{l_{{\mathrm{1}}}} \, \!\! = \!\! \, \testSevennt{p_{{\mathrm{1}}}} \, , \, .. \, , \, \mathit{l_{\testSevenmv{n}}} \, \!\! = \!\! \, \testSevennt{p_{\testSevenmv{n}}} \, \testSevenkw{\}}}{}{\textrm{b}=\textrm{b}(\testSevennt{p_{{\mathrm{1}}}}..\testSevennt{p_{\testSevenmv{n}}})}{}{\testSevencom{record pattern}}\testSevenafterlastrule +} +} +\end{toimage} +\imageflush + +%A dot form in a production, such as the \texttt{l1 : T1 , \mysym{..} , ln : Tn} +%above, may or may not involve a \emph{separating terminal}. Here +%there is one, the comma `\texttt{,}'. The tool finds the longest +%subsequence of elements on either side of the dots that can be made to +%coincide by anti-unifying their suffixes, anti-unifying index +%variables with natural numbers. + +Dot forms can be used in symbolic terms in semantic rules: + +\begin{toimage} +{ \[\testSevendruleTyXXRcd{}\]} +\end{toimage} +\imageflush + +Individually indexed projections from dot forms can be mentioned, eg +the $l_j$ below: + +\begin{toimage} +{ \[\testSevendruleTyXXProj{}\]} +\end{toimage} +\imageflush + +Symbolic terms can also include concatenations of two dot forms with a +singleton in between: + +\begin{toimage} +{ \[\testSevendrulereduceXXCtxXXrecord{}\]} +\end{toimage} +\imageflush + +Multiple dot forms within the same semantic rule can share bounds (e.g.~$1..m$): + +\begin{toimage} +{ \[\testSevendruleMXXRcd{}\]} +\end{toimage} +\imageflush + + +In more detail, productions can have dot tokens interspersed between the elements. +Dot tokens consist of two, three or four consecutive dots (\mysym{..}, +\mysym{...}, or \mysym{....}), indicating lists with minimum lengths $0$, +$1$, and $2$ respectively (these length minimums are respected + only when parsing concrete lists; they are not present in Isabelle/Coq/HOL + output). +The tool identifies the maximal sequence of elements on either side of +the dots that are identical modulo anti-unification of some +index. Optionally, there may also be a single terminal on either side +of the dot token, separating instances of the repeated unit. +For example, in the \texttt{test7.ott} production +\begin{alltt} + \mysym{\mysym{|}} \mylb{} l1 = t1 , \mysym{..} , ln = tn \myrb{} \mysym{::} \mysym{::} Rec +\end{alltt} +there is such a terminal (the `\verb+,+'). The tool identifies +that \verb+l1 = t1+ and \verb+ln = tn+ can be anti-unified as +(roughly) \verb+l_ = t_+, taking \verb+_+ to be the bounds \verb+1+ and \verb+n+. +A single production may contain multiple dot forms, but they must not overlap; +nested dot forms (including those with multiple changing indices) are not currently +supported. + +Homomorphisms and binding specifications are generalised to match: an \verb+mse+ can +involve a dot form of metavariables; +%(e.g.~the +%$\mathit{typvar_{\mathrm{1}}}..\mathit{typvar_{\mathit{n}}}$ above); +a dot form of nonterminals; or an auxiliary function applied to a dot +form +of nonterminals (e.g.~the +$\textrm{b}(\mathit{p_{\mathrm{1}}}..\mathit{p_{\mathit{n}}})$ above). +Dot forms on the right of a \mykw{bind} are not currently supported. + +\myLaTeX{} homomorphisms should not refer to dot forms, as either an error +or bad output will be generated. (For \myLaTeX, there should really be +some means to specify +a homomorphism for the repeated expression, and also data on how any +list separators should be typeset. This would require more +special-case treatment, which is not currently supported.) + + + +\subsection{List comprehension forms}\mlabel{a44}% +% +Lists can also be expressed as explicit list comprehensions, +for more concise typesetting. +Three different styles are supported, with no bounds, an upper bound, +or a lower and upper bound. For example, in a symbolic +term, instead of the dot form +\par\noindent{\small +\begin{alltt} + G |- t1:T1 \mysym{..} G |- tn:Tn + \end{alltt} +} +one can write any of the following +\par\noindent{\small +\begin{alltt} + \mysym{} + \mysym{} + \mysym{} + \end{alltt} +} +Similar comprehensions can be used in productions, for example lines +2--4 below. In addition, comprehensions in productions can specify a +terminal to be used as a separator in concrete lists, as in lines 5--7 below. +(These examples are taken from \verb+test17.10.ott+.) +\par\noindent{\small +\begin{alltt} + \mysym{|} { l1 = t1 , \mysym{..} , ln = tn } \mysym{::} \mysym{::} Rec \mysym{\mylb\mylb} \mykw{com} dots \mysym{\myrb\myrb} + \mysym{|} { \mysym{} } \mysym{::} \mysym{::} Rec_comp_none \mysym{\mylb\mylb} \mykw{com} comp \mysym{\myrb\myrb} + \mysym{|} { \mysym{} } \mysym{::} \mysym{::} Rec_comp_u_none \mysym{\mylb\mylb} \mykw{com} compu \mysym{\myrb\myrb} + \mysym{|} { \mysym{} } \mysym{::} \mysym{::} Rec_comp_lu_none \mysym{\mylb\mylb} \mykw{com} complu \mysym{\myrb\myrb} + \mysym{|} { \mysym{} } \mysym{::} \mysym{::} Rec_comp_some \mysym{\mylb\mylb} \mykw{com} comp with terminal \mysym{\myrb\myrb} + \mysym{|} { \mysym{} } \mysym{::} \mysym{::} Rec_comp_u_some \mysym{\mylb\mylb} \mykw{com} compu with terminal \mysym{\myrb\myrb} + \mysym{|} { \mysym{} } \mysym{::} \mysym{::} Rec_comp_lu_some \mysym{\mylb\mylb} \mykw{com} complu with terminal \mysym{\myrb\myrb} + \end{alltt} +} +In Coq, HOL or Isabelle output, list dot forms and the +various list comprehension forms are treated almost identically. +In LaTeX output, comprension forms are default-typeset with overbars. +For example, the rules below +\par\noindent{\small +\begin{alltt} + G|- t:{l1:T1,\mysym{..},ln:Tn} +\mysym{ ----------------------- :: }Proj_dotform + G|- t.lj : Tj + + G|- t: { \mysym{} } +\mysym{ ---------------------------------- ::} Proj_comp + G|- t.lj : Tj + + G|- t: { \mysym{} } +\mysym{ ---------------------------------- ::} Proj_comp_u + G|- t.lj : Tj + + G|- t: { \mysym{} } +\mysym{ ---------------------------------- ::} Proj_comp_lu + G|- t.lj : Tj + \end{alltt} +} +are typeset as follows. + +\begin{toimage} +%\testSeventeenTendruleTyXXRcdXXdotform +\[\testSeventeenTendruleTyXXProjXXdotform{}\] +%\testSeventeenTendruleTyXXRcdXXcomp +\[\testSeventeenTendruleTyXXProjXXcomp{}\] +%\testSeventeenTendruleTyXXRcdXXcompXXu +\[\testSeventeenTendruleTyXXProjXXcompXXu{}\] +%\testSeventeenTendruleTyXXRcdXXcompXXlu +\[\testSeventeenTendruleTyXXProjXXcompXXlu{}\] +\end{toimage} +\imageflush + +Upper bounds of the form $n-1$ are also permitted, e.g. with +\par\noindent{\small +\begin{alltt} + G|- t:{l0:T0,\mysym{..},ln-1:Tn-1} +\mysym{ ----------------------- ::} Proj_dotform_minus + G|- t.lj : Tj + + G|- t: { \mysym{} } +\mysym{ ---------------------------------- ::} Proj_comp_lu_minus + G|- t.lj : Tj + \end{alltt} +} +typeset as below. More complex arithmetic expressions are not +currently supported. + +\begin{toimage} +\[\testSeventeenTendruleTyXXProjXXdotformXXminus{}\] +\[\testSeventeenTendruleTyXXProjXXcompXXluXXminus{}\] +\end{toimage} +\imageflush + +A list form used in a symbolic term does not have to be in the same +style as that in the corresponding production. +However, if a metavariable or nonterminal occurs in multiple different +list forms in the same inference rule, they must all be in the same style and +with the same bounds. Moreover, in a production, a list form in a bindspec or +homomorphism must be in the same style and with the same bounds as the +corresponding list form in the elements of the production. + +The comprehension form without an upper bound, +e.g.~\texttt{\mysym{}}, +typeset as +\begin{toimage} +$\overline{\Gamma \, \vdash \, \mathit{t_{\mathit{i}}} \, : + \, \mathit{T_{\mathit{i}}}}^{\,\mathit{i}}$, +\end{toimage}% +\imageflush% +is not standard +notation, but is often very useful. Many semantic rules involve lists +of matched length, e.g.~of the +\begin{toimage} +$\mathit{t_{\mathit{i}}}$ +\end{toimage}% +\imageflush% + and +\begin{toimage} +$\mathit{T_{\mathit{i}}}$ +\end{toimage}% +\imageflush% + here, but do not need to introduce an +identifier for that length; omitting it keeps them concise. + +The default visual style for typesetting list comprehensions can be +overridden by redefining the \myLaTeX{} commands \verb+\ottcomp+, +\verb+\ottcompu+, and \verb+\ottcomplu+ in an \mykw{embed} section, as +in Section~\ref{a64}. + +In some cases one could make the typeset notation even less noisy, by +either omitting the superscript $i$ or omitting both the superscript $i$ and +the subscript $i$'s on $t$ and $T$. The first is unambiguous if there +is at most one index on each element in the comprehension; the second +if all the elements are indexed by the same thing (not the case for +this example, but common for comprehensions of single elements, +e.g. \verb+<< Ti // i>>+ for $\overline{T}$). It is arguable that that +should be automated in future Ott releases, though it would bring the typeset and ASCII +versions out of step. + +%The tokens used for list dot forms and comprehension forms (\verb++, \verb+..+, \verb+...+, and +%\verb+....+) cannot at present be used in the object language. + +List comprehension forms can also be used in bindspecs and in +homomorphisms. + + +\subsection{Proof assistant code for list forms}\mlabel{a65}% +\subsubsection{Types} +We have to choose proof assistant representations for productions involving list +forms. For example, for a language with records one might write +\input{binding.6.alltt} +%\par\noindent{\small\verbatiminput{../tests/binding.6.ott} +%}\noindent +In HOL and Isabelle we represent these simply with contructors whose +argument types involve proof-assistant native list types, e.g. +the HOL list of pairs of a \verb+label+ and a \verb+t+: +\par\noindent{\small\begin{verbatim} + val _ = Hol_datatype ` + t = E_record of (label#t) list `; +\end{verbatim} +}\noindent +For Coq we provide two alternatives: one can either use +native lists, or lists can be translated away, depending on taste. +The choice is determined by the \verb+-coq_expand_list_types+ +command-line option. +%pros & cons: +% native: can use standard functions and theorems +% translated away: ...how to articulate this...? +In the former case we generate an appropriate induction principle +using nested fixpoints, as +the default principle produced by Coq is too weak to be useful. +In the latter case we +synthesise an additional type for each type of lists-of-tuples that +arises in the grammar. +In the example, we need a type of lists of +pairs of a \texttt{label} and a \texttt{t}: +\par\noindent{\small\begin{verbatim} +Inductive +list_label_t : Set := + Nil_list_label_t : list_label_t + | Cons_list_label_t : label -> t -> list_label_t + -> list_label_t + +with t : Set := + E_record : list_label_t -> t . +\end{verbatim} +}\noindent +These are included in the grammar topological sort, and utility functions, e.g.~to +make and unmake lists, are synthesised. +%A similar translation will be needed for Twelf, as it has no +%polymorphic list type. +%We also generate, on request, default Coq proofs that there is a decidable equality +%on various types. + + +\subsubsection{Terms (in inductive definition rules)} +Supporting list forms in the rules of an inductive definition requires some additional analysis. For example, +consider the record typing rule below. + +\begin{toimage} +\[\bindingSixbdruleTyXXRcd{}\] +\end{toimage}% +\imageflush% + +We analyse the symbolic terms in the premises and conclusion to +identify lists of nonterminals and metavariables with the same bounds --- here $t_0 .. t_{n-1}$, $T_0 .. T_{n-1}$, and $l_0 .. l_{n-1}$ +all have bounds $0..n-1$. +% +To make the fact that they have the same length immediate in the +generated code, we introduce a single proof assistant +variable for each such collection, with appropriate projections and +list maps/foralls at the usage points. +For example, the HOL for the above is essentially as follows, with +an \verb+l_t_Typ_list : (label#t#Typ) list+. +\par\noindent{\small +\begin{verbatim} +(* Ty_Rcd *) !(l_t_Typ_list:(label#t#Typ) list) (G:G) . +(EVERY (\b.b) + (MAP (\(l_,t_,Typ_). (Ty G t_ Typ_)) l_t_Typ_list)) + ==> +(Ty + G + (E_record (MAP (\(l_,t_,Typ_). (l_,t_)) l_t_Typ_list)) + (T_Rec (MAP (\(l_,t_,Typ_). (l_,Typ_)) l_t_Typ_list))) +\end{verbatim} +}\noindent +This seems to be a better idiom for later proof development than the +alternative of three different list variables coupled with assertions +that they have the same length. + + + + +%================ + + +\newcommand{\oottdrule}[4][]{\frac{\begin{array}{l}#2\end{array}}{#3}\quad\oottdrulename{#4}} +\newcommand{\oottusedrule}[1]{\[#1\]} +\newcommand{\oottpremise}[1]{ #1 \\} +\newenvironment{oottdefnblock}[2]{ \framebox{\mbox{#1}} \quad #2 \\[0pt]}{} +\newcommand{\oottnt}[1]{\mathit{#1}} +\newcommand{\oottmv}[1]{\mathit{#1}} +\newcommand{\oottkw}[1]{\mathbf{#1}} +\newcommand{\oottcom}[1]{\text{#1}} +\newcommand{\oottdrulename}[1]{\textsc{#1}} +\newcommand{\oottcomplu}[5]{\overline{#1}^{\,#2\in #3 #4 #5}} +\newcommand{\oottcompu}[3]{\overline{#1}^{\,#2<#3}} +\newcommand{\oottcomp}[2]{\overline{#1}^{\,#2}} +\makeatletter +\newcommand{\oottenvironmentappend}[2]{% + \begingroup% + \def\@tempa{#1}\def\@tempb{ \oottkw{empty} }% + \ifx\@tempa\@tempb\def\@tempc{}\else\def\@tempc{#1,}\fi% + \expandafter\endgroup% + \@tempc#2% +} +\makeatother + +\newcommand{\oottdruleTyXXProj}[1]{\oottdrule[#1]{ + \oottpremise{\Gamma \, \vdash \, \oottnt{t} \, : \, \oottkw{\{} \, \mathit{l_{{\mathrm{1}}}} \, : \, \oottnt{T_{{\mathrm{1}}}} \, , \, .. \, , \, \mathit{l_{\oottmv{n}}} \, : \, \oottnt{T_{\oottmv{n}}} \, \oottkw{\}}}}{ +\Gamma \, \vdash \, \oottnt{t} \, . \, \mathit{l_{\oottmv{j}}} \, : \, \oottnt{T_{\oottmv{j}}}}{ +{\oottdrulename{Ty\_Proj}}{} +}} +%hand-hacked to rename +\newcommand{\oottdrulereduceXXProjRcd}[1]{\oottdrule[#1]{ +}{ +\oottkw{\{} \, \mathit{l'_{{\mathrm{1}}}} \, \!\! = \!\! \, \oottnt{v_{{\mathrm{1}}}} \, , \, .. \, , \, \mathit{l'_{\oottmv{n}}} \, \!\! = \!\! \, \oottnt{v_{\oottmv{n}}} \, \oottkw{\}} \, . \, \mathit{l'_{\oottmv{j}}} \, \longrightarrow \, \oottnt{v_{\oottmv{j}}}}{ +{\oottdrulename{Proj}}{} +}} + +%hand-hacked to single-column the conclusion and rename +\newcommand{\oottdrulereduceXXCtxXXrecord}[1]{\oottdrule[#1]{ + \oottpremise{\oottnt{t} \, \longrightarrow \, \oottnt{t'}}}{ +\begin{array}{l} +\oottkw{\{} \, \mathit{l_{{\mathrm{1}}}} \, \!\! = \!\! \, + \oottnt{v_{{\mathrm{1}}}} \, , \, .. \, , \, \mathit{l_{\oottmv{m}}} + \, \!\! = \!\! \, \oottnt{v_{\oottmv{m}}} \, , \, \mathit{l} \, \!\! = + \!\! \, \oottnt{t} \, , \, \mathit{l'_{{\mathrm{1}}}} \, \!\! = \!\! + \, \oottnt{t'_{{\mathrm{1}}}} \, , \, .. \, , \, + \mathit{l'_{\oottmv{n}}} \, \!\! = \!\! \, \oottnt{t'_{\oottmv{n}}} \, + \oottkw{\}} \\ \longrightarrow \, \oottkw{\{} \, + \mathit{l_{{\mathrm{1}}}} \, \!\! = \!\! \, \oottnt{v_{{\mathrm{1}}}} + \, , \, .. \, , \, \mathit{l_{\oottmv{m}}} \, \!\! = \!\! \, + \oottnt{v_{\oottmv{m}}} \, , \, \mathit{l} \, \!\! = \!\! \, + \oottnt{t'} \, , \, \mathit{l'_{{\mathrm{1}}}} \, \!\! = \!\! \, + \oottnt{t'_{{\mathrm{1}}}} \, , \, .. \, , \, \mathit{l'_{\oottmv{n}}} + \, \!\! = \!\! \, \oottnt{t'_{\oottmv{n}}} \, \oottkw{\}} \end{array}}{ +{\!\!\!\oottdrulename{Rec}}{} +}} + +%testSeventeenTen +\newcommand{\oottdruleTyXXProjXXcompXXluXXminus}[1]{\oottdrule[#1]{ + \oottpremise{\Gamma \, \vdash \, \oottnt{t} \, : \, \oottkw{\{} \, \oottcomplu{\mathit{l_{\oottmv{i}}}:\oottnt{T_{\oottmv{i}}}}{\oottmv{i}}{{\mathrm{0}}}{..}{{\oottmv{n}-1}} \, \oottkw{\}}}}{ +\Gamma \, \vdash \, \oottnt{t} \, . \, \mathit{l_{\oottmv{j}}} \, : \, \oottnt{T_{\oottmv{j}}}}{ +{\oottdrulename{Proj}}{} +}} + + +With direct support for lists, we need also direct support for +symbolic terms involving list projection and concatenation. +For example, the rule +% +%Lastly, one sometimes wants to write list \emph{comprehensions} rather +%than dots, for compactness or as a matter of general style. We support +%comprehensions of several forms, e.g.~with explicit index $i$ and +%bounds $0$ to $n-1$, as below, and with unspecified or upper-only bounds. +% +% +% +%================== +% +% \[\testSeventeenTendrulereduceXXProjRcd{}\] +% \[\testSeventeenTendrulereduceXXCtxXXrecord{}\] +% % +% Lastly, one sometimes wants to write list \emph{comprehensions} rather +% than dots, for compactness or as a matter of general style. We support +% comprehensions of several forms, e.g.~with explicit index $i$ and +% bounds $0$ to $n-1$, as below, and with unspecified or upper-only bounds. +% \[\testSeventeenTendruleTyXXProjXXcompXXluXXminus{}\] +% +% ============== +% + +\begin{toimage} +\[\oottdrulereduceXXCtxXXrecord{}\] +\end{toimage}% +\imageflush% + +gives rise to HOL code as below --- note the list-lifted usage of the +\verb+is_v_of_t+ predicate, and the list appends (\texttt{++}) in the conclusion. +\par\noindent{\small +\begin{verbatim} +(* reduce_Rec *) !(l'_t'_list:(label#t) list) + (l_v_list:(label#t) list) (l:label) (t:t) (t':t) . +((EVERY (\(l_,v_). is_v_of_t v_) l_v_list) /\ +(( reduce t t' ))) + ==> +(( reduce (t_Rec (l_v_list ++ [(l,t)] ++ l'_t'_list)) + (t_Rec (l_v_list ++ [(l,t')] ++ l'_t'_list)))) +\end{verbatim} +}\noindent +For the \texttt{Proj} typing rule + +\begin{toimage} +\[\oottdruleTyXXProjXXcompXXluXXminus{}\] +\end{toimage}% +\imageflush% + +we need a specific projection (the +HOL \verb+EL+) to +pick out the $j$'th element: +\par\noindent{\small +\begin{verbatim} +(* Ty_Proj *) !(l_Typ_list:(label#Typ) list) + (j:index) (G:G) (t:t) . +((( Ty G t (T_Rec (l_Typ_list)) ))) + ==> +(( Ty + G + (t_Proj t ((\ (l_,Typ_) . l_) (EL j l_Typ_list))) + ((\ (l_,Typ_) . Typ_) (EL j l_Typ_list)))) +\end{verbatim} +}\noindent +For Coq, when translating away lists, we have to introduce +yet more list types for +these proof assistant variables, in addition to the obvious +translation of symbolic terms, and, more substantially, to introduce additional inductive relation +definitions to induct over them. + + + +%\[\oottdrulereduceXXProjRcd{}\] + +% ------------------- +% +% +% The generated Isabelle/Coq/HOL/OCaml types for dot forms involve lists of +% tuples, e.g.~for the production above: +% \par\noindent{\small +% \begin{verbatim} +% datatype +% t = +% ... +% | t_Rec "(label*t) list" +% ... +% \end{verbatim} +% } +% The generated code for a rule involving dot forms involves, for each +% bound that occurs, a generated variable for the list of tuples of +% nonterminals and metavariables that occurred with that bound. For +% example, + +For similar examples in Isabelle, the generated Isabelle for the first +three rules of \S\ref{a66} is +shown below (lightly hand-edited for format). The first involves an +Isabelle variable \verb+l_t_T_list+, and list maps and projections +thereof. +\par\noindent{\small +\begin{verbatim} +Ty_RcdI: " + [|(formula_formuladots ((List.map (%(l_,t_,T_).( ( G , t_ , T_ ) : Ty)) l_t_T_list)))|] + ==> + ( G , + (t_Rec ((List.map (%(l_,t_,T_).(l_,t_)) l_t_T_list))) , + (T_Rec ((List.map (%(l_,t_,T_).(l_,T_)) l_t_T_list))) + ) : Ty" + +Ty_ProjI: " + [| ( G , t , (T_Rec (l_T_list)) ) : Ty|] ==> + ( G , + (t_Proj t (%(l_,T_).l_) (List.nth l_T_list (j - 1))) , + (%(l_,T_).T_) (List.nth l_T_list (j - 1)) + ) : Ty" + +E_Ctx_recordI: " +[| List.list_all (%(l_,v_).is_v v_) l_v_list ; + ( t , t' ) : E|] +==> + ( (t_Rec (l_v_list @ [(l,t)] @ l_'t_'list)) , + (t_Rec (l_v_list @ [(l,t')] @ l_'t_'list)) + ) : E" +\end{verbatim} +} +The generated code for substitutions and free variables takes account of such list structure. + +Note that at present the generated Isabelle code for these functions +does not always build without change, in particular if tuples of size +3 or more are required in patterns. + + +\subsubsection{List forms in homomorphisms} + +Proof assistant homomorphisms in productions can refer to dot-form +metavariables and nonterminals. For example, the second production +below (taken from \verb+test17.9+) mentions \texttt{\mysym{[[}x1 t1 \mysym{...} xn tn\mysym{]]}} in the \mykw{isa} +homomorphism. This must exactly match the dot form in the production +except that all terminals must be omitted --- the metavariables and +nonterminals must occur in the same order as in the production, and +the bounds must be the same. + +% \begin{alltt} +% % test17.9.ott dot form test +% +% \mykw{metavar} ident\mysym{,} x \mysym{::=} \mysym{\mylb\mylb{}} \mykw{isa} string \mysym{\myrb\myrb{}} \mysym{\mylb\mylb{}} \mykw{coq} nat \mysym{\myrb\myrb{}} \mysym{\mylb\mylb{}} \mykw{coq-equality} \mysym{\myrb\myrb{}} \mysym{\mylb\mylb{}} \mykw{hol} string \mysym{\myrb\myrb{}} \mysym{\mylb\mylb{}} \mykw{ocaml} int \mysym{\myrb\myrb{}} +% +% \mykw{indexvar} index\mysym{,} n \mysym{,} i \mysym{::=} \mysym{\mylb\mylb{}} \mykw{isa} nat \mysym{\myrb\myrb{}} \mysym{\mylb\mylb{}} \mykw{coq} nat \mysym{\myrb\myrb{}} \mysym{\mylb\mylb{}} \mykw{hol} num \mysym{\myrb\myrb{}} \mysym{\mylb\mylb{}} \mykw{ocaml} int \mysym{\myrb\myrb{}} +% +% \mykw{grammar} +% +% E \mysym{::} 'E_' \mysym{::=} \mysym{\mylb\mylb{}} \mykw{isa} ( ident * t ) list \mysym{\myrb\myrb{}} +% \mysym{|} < x1 : t1 , \mysym{..} , xn : tn > \mysym{::} \mysym{::} 2 \mysym{\mylb\mylb{}} \mykw{isa} List.rev \mysym{[[}x1 t1 \mysym{..} xn tn\mysym{]]} \mysym{\myrb\myrb{}} +% +% t \mysym{::} 't_' \mysym{::=} +% \mysym{|} unit \mysym{::} \mysym{::} unit +% +% K \mysym{::} 'K_' \mysym{::=} +% \mysym{|} Type \mysym{::} \mysym{::} Type +% +% +% \mykw{formula} \mysym{::} formula_ \mysym{::=} +% \mysym{|} judgement \mysym{::} \mysym{::} judgement +% \mysym{|} formula1 \mysym{..} formulan \mysym{::} \mysym{::} dots +% % | formula1 .. formulan :: :: realdots \mylb{}\mylb{} isa (List.list_all (\mybackslash{} b . b) ( [[ formula1 .. formulan ]] ) ) \myrb{}\myrb{} +% +% \mykw{terminals} \mysym{::} terminals_ \mysym{::=} +% \mysym{|} |- \mysym{::} \mysym{::} turnstile \mysym{\mylb\mylb{}} \mykw{tex} \mybackslash{}vdash \mysym{\myrb\myrb{}} +% \mysym{|} < \mysym{::} \mysym{::} langle \mysym{\mylb\mylb{}} \mykw{tex} \mybackslash{}langle \mysym{\myrb\myrb{}} +% \mysym{|} > \mysym{::} \mysym{::} rangle \mysym{\mylb\mylb{}} \mykw{tex} \mybackslash{}rangle \mysym{\myrb\myrb{}} +% +% \mykw{defns} +% Jtype \mysym{::} '' \mysym{::=} +% +% \mykw{defn} +% |- E \mysym{::} \mysym{::} Eok \mysym{::} Eok_ \mykw{by} +% +% +% \mysym{---------} :: 1 +% |- < > +% +% \mysym{----------------------------} :: 2 +% |- +% +% |- t1:K1 .. |- tn:Kn +% \mysym{----------------------------} :: 3 +% |- +% +% +% \mykw{defn}|- t : K \mysym{::} \mysym{::} tK \mysym{::} tK_ \mykw{by} +% +% \mysym{---------------} :: 1 +% |- unit : Type +% +% \end{alltt} + + +%\par\noindent{\small +\begin{alltt} + E \mysym{::} 'E_' \mysym{::=} \mysym{\mylb\mylb{}} \mykw{isa} ( ident * t ) list \mysym{\myrb\myrb{}} + \mysym{|} < x1 : t1 , \mysym{..} , xn : tn > \mysym{::} \mysym{::} 2 \mysym{\mylb\mylb{}} \mykw{isa} List.rev \mysym{[[}x1 t1 \mysym{..} xn tn\mysym{]]} \mysym{\myrb\myrb{}} + \mykw{formula} \mysym{::} formula_ \mysym{::=} + \mysym{|} judgement \mysym{::} \mysym{::} judgement + \mysym{|} formula1 \mysym{..} formulan \mysym{::} \mysym{::} dots +\end{alltt} +% +% +%\begin{verbatim} +%E :: 'E_' ::= {{ isa ( ident * t ) list }} +% | < > :: :: 1 {{ isa [] }} +% | < x1 : t1 , ... , xn : tn > :: :: 2 {{ isa List.rev [[x1 t1 ... xn tn]] }} +% +%formula :: formula_ ::= +% | judgement :: :: judgement +% | formula1 .. formulan :: :: realdots {{ isa (List.list_all (\ b . b) ( [[ formula1 .. formulan ]] ) ) }} +% +%\end{verbatim} +%} +The generated Isabelle code for symbolic +terms mentioning this production will involve a list of pairs. For +example, the rules +%\mysym{---------} :: 1 +%|- < > +\begin{alltt} +\mykw{defn} +|- E \mysym{::} \mysym{::} Eok \mysym{::} Eok_ \mykw{by} + +\mysym{----------------------------} :: 2 +|- + +|- t1:K1 .. |- tn:Kn +\mysym{----------------------------} :: 3 +|- +\end{alltt} +%\par\noindent{\small +%\begin{verbatim} +%defn +%|- E :: :: Eok :: Eok_ by +% +%---------------------------- :: 2 +%|- +% +%|- t1:K1 ... |- tn:Kn +%---------------------------- :: 3 +%|- +% \end{verbatim} +%} +generate +\par\noindent{\small +\begin{verbatim} +consts + Eok :: "E set" +inductive Eok tK +intros + +(* defn Eok *) + +Eok_2I: " ( List.rev (x_t_list) ) : Eok" + +Eok_3I: "[| +(List.list_all (\ b . b) ( ((List.map (%(x_,t_,K_). ( t_ , K_ ) : tK) x_t_K_list)) ) )|] + ==> + ( List.rev ((List.map (%(x_,t_,K_).(x_,t_)) x_t_K_list)) ) : Eok" + \end{verbatim} +} +Note that in the second the list of pairs is projected out from the +\verb+x_t_K_list+ list of triples that is quantified over in the rule. + + +\section{Subrules}\mlabel{a14}% +Subrule declarations have the form +\begin{alltt} + \mykw{subrules} + nt1 \mysym{<::} nt2 +\end{alltt} +where \texttt{nt1} and \texttt{nt2} are nonterminal roots. + + +Subrules can be chained, i.e.~there can be a pair of +subrule declarations \texttt{nt1 \mysym{<::} nt2} and \texttt{nt2 \mysym{<::} nt3}, +and they can form a directed acyclic graph, e.g.~with +\texttt{nt0 \mysym{<::} nt1}, \texttt{nt0 \mysym{<::} nt2}, +\texttt{nt1 \mysym{<::} nt3}, and \texttt{nt2 \mysym{<::} nt3}. However, there cannot be +cycles, or nonterminal roots for which there are multiple upper bounds. +Subrule declarations should not involve nonterminal roots for which +proof-assistant type homs are specified. + +We support the case in which the upper rule is also +non-free, i.e.~it contains productions that mention nonterminals that +occur on the left of a subrule declaration. In the example below +(\texttt{test11.ott}) the +\texttt{t} rule contains a production \texttt{Foo v}. +\input{test11.alltt} +In this case generated Isabelle/Coq/HOL/OCaml will define a single type and both \texttt{is\_v} +and \texttt{is\_t} predicates, and the generated inductive definition +clause for \texttt{ax} uses both predicates. The Isabelle clause is below. +\begin{verbatim} + axI: "[|is_t t ; is_v v|] ==> ( t , v ) : Baz" +\end{verbatim} + + +\section{Context rules}\mlabel{a69}% +The system supports the definition of single-hole contexts, e.g.~for +evaluation contexts. For example, suppose one has a term grammar as below: +\begin{alltt} +t \mysym{::} 't_' \mysym{::=} \mysym{\mylb\mylb{}} \mykw{com} term \mysym{\myrb\myrb{}} + \mysym{|} x \mysym{::} \mysym{::} Var \mysym{\mylb\mylb{}} \mykw{com} variable\mysym{\myrb\myrb{}} + \mysym{|} \mybackslash{} x . t \mysym{::} \mysym{::} Lam \mysym{(+} \mykw{bind} x \mykw{in} t \mysym{+)} \mysym{\mylb\mylb{}} \mykw{com} lambda \mysym{\myrb\myrb{}} + \mysym{|} t t' \mysym{::} \mysym{::} App \mysym{\mylb\mylb{}} \mykw{com} app \mysym{\myrb\myrb{}} + \mysym{|} ( t1 , \mysym{....} , tn ) \mysym{::} \mysym{::} Tuple \mysym{\mylb\mylb{}} \mykw{com} tuple \mysym{\myrb\myrb{}} + \mysym{|} ( t ) \mysym{::} \mykw{S}\mysym{::} Paren \mysym{\mylb\mylb{}} \mykw{icho} \mysym{[[}t\mysym{]]} \mysym{\myrb\myrb{}} + \mysym{|} \mylb{} t / x \myrb{} t' \mysym{::} \mykw{M}\mysym{::} Tsub + \mysym{\mylb\mylb{}} \mykw{icho} (tsubst_t \mysym{[[}t\mysym{]]} \mysym{[[}x\mysym{]]} \mysym{[[}t'\mysym{]]})\mysym{\myrb\myrb{}} + + \mysym{|} E . t \mysym{::} \mykw{M}\mysym{::} Ctx + \mysym{\mylb\mylb{}} \mykw{icho} (appctx_E_t \mysym{[[}E\mysym{]]} \mysym{[[}t\mysym{]]})\mysym{\myrb\myrb{}} + \mysym{\mylb\mylb{}} \mykw{tex} \mysym{[[}E\mysym{]]} \mybackslash{}cdot \mysym{[[}t\mysym{]]} \mysym{\myrb\myrb{}} +\end{alltt} +% +A context grammar is declared as a normal grammar but with a single +occurrence of the terminal \verb+__+ in each production, e.g. as in +the grammar for \texttt{E} below (a rather strange evaluation +strategy, admittedly). +% +\begin{alltt} +E \mysym{::} 'E_' \mysym{::=} \mysym{\mylb\mylb{}} \mykw{com} evaluation context \mysym{\myrb\myrb{}} + \mysym{|} __ t \mysym{::} \mysym{::} AppL \mysym{\mylb\mylb{}} \mykw{com} app L \mysym{\myrb\myrb{}} + \mysym{|} v __ \mysym{::} \mysym{::} AppR \mysym{\mylb\mylb{}} \mykw{com} app R \mysym{\myrb\myrb{}} + \mysym{|} \mybackslash{} x . __ \mysym{::} \mysym{::} Lam \mysym{\mylb\mylb{}} \mykw{com} reduce under lambda \mysym{\myrb\myrb{}} + \mysym{|} ( t1 ( __ t2 ) ) \mysym{::} \mysym{::} Nested \mysym{\mylb\mylb{}} \mykw{com} hole nested \mysym{\myrb\myrb{}} + \mysym{|} ( v1 , \mysym{..} , vm , __ , t1 , \mysym{..} , tn ) \mysym{::} \mysym{::} Tuple \mysym{\mylb\mylb{}} \mykw{com} tuple \mysym{\myrb\myrb{}} +\end{alltt} +% +A \mykw{contextrules} declaration: +\begin{alltt} +\mykw{contextrules} + E \mysym{_::} t \mysym{::} t +\end{alltt} +causes Ott to (a) check that each production of the \texttt{E} grammar +is indeed a context for the \texttt{t} grammar, and (b) generates +proof assistant functions, e.g.~\verb+appctx_E_t+, to apply a context +to a term: +\begin{verbatim} +(** context application *) +Definition appctx_E_t (E5:E) (t_6:t) : t := + match E5 with + | (E_AppL t5) => (t_App t_6 t5) + | (E_AppR v5) => (t_App v5 t_6) + | (E_Lam x) => (t_Lam x t_6) + | (E_Nested t1 t2) => (t_App t1 (t_App t_6 t2) ) + | (E_Tuple v_list t_list) => (t_Tuple ((app_list_t v_list + (app_list_t (Cons_list_t t_6 Nil_list_t) (app_list_t t_list Nil_list_t))))) +\end{verbatim} +As the \texttt{Nested} production shows, context productions can +involve nested term structure. + +Note also that here the \texttt{E} grammar is not free (it mentions the +subrule nonterminal \texttt{v}) so an isvalue predicate +\verb+is_E_of_E+ is also generated. + + + +In general, context rule declarations have the form +\begin{alltt} + \mykw{contextrules} + ntE \mysym{_::} nt1 \mysym{::} nt2 +\end{alltt} +where \texttt{ntE}, \texttt{nt1}, and \texttt{nt2} are nonterminal +roots. This declares contexts \texttt{ntE} for the \texttt{nt1} +grammar, with holes in \texttt{nt2} positions. + +Just as for substitutions, the context application function is +typically used by adding a metaproduction to the term grammar. +Here we add a production \texttt{E.t} to the \texttt{t} grammar with +an \texttt{icho} hom that uses \verb+appctx_E_t+. +\begin{alltt} +t \mysym{::} 't_' \mysym{::=} \mysym{\mylb\mylb{}} \mykw{com} term \mysym{\myrb\myrb{}} + ... + \mysym{|} E . t \mysym{::} \mykw{M}\mysym{::} Ctx + \mysym{\mylb\mylb{}} \mykw{icho} (appctx_E_t \mysym{[[}E\mysym{]]} \mysym{[[}t\mysym{]]})\mysym{\myrb\myrb{}} + \mysym{\mylb\mylb{}} \mykw{tex} \mysym{[[}E\mysym{]]} \mybackslash{}cdot \mysym{[[}t\mysym{]]} \mysym{\myrb\myrb{}} +\end{alltt} +That can then be used in relations: +\begin{alltt} + t --> t' +\mysym{ --------------} :: ctx + E.t --> E.t' +\end{alltt} + +One would typically also define a \texttt{terminals} production for +the hole terminal \verb+__+, e.g.~here we typeset the hole as $[\cdot]$. +\begin{alltt} +\mykw{terminals} \mysym{::} 'terminals_' \mysym{::=} + \mysym{|} __ \mysym{::} \mysym{::} hole \mysym{\mylb\mylb{}} \mykw{tex} [\mybackslash{}cdot] \mysym{\myrb\myrb{}} +\end{alltt} + + +\section{Auxiliary Rules} +We permit an \texttt{aux} hom on grammar rules. For any rule with such a hom, +we transform that rule by appending an \texttt{\_aux} to its primary nonterminal +root name. We then add a synthesised rule with the original nonterminal +root name and a single production, with a shape described by the body of +the aux hom, which must be of the form +\begin{verbatim} + {{ aux foo1 foo2 _ bar1 bar2 bar3 }} +\end{verbatim} +with a single \texttt{\_} and any number of strings \texttt{fooi} and \texttt{barj} before and +after. The \texttt{\_} is replaced by the original +nonterminal root name. + +For example, given a grammar or metavariable \texttt{l} of source locations, one +might say +\begin{verbatim} +ntr :: 'NTR_' ::= {{ aux _ l }} + | ... +\end{verbatim} +to synthesise grammars \texttt{ntr\_aux} and \texttt{ntr} of unannotated and location-annotated +terms, the first with all the original productions and the second with a +single production +\begin{verbatim} + | ntr l :: :: NTR_aux. +\end{verbatim} +If the rule has an empty production name wrapper (eg with \texttt{''} in place +of \texttt{'NTR\_'}) then the production name is based on the original +nonterminal root, capitalised and with \texttt{\_aux} appended (eg \texttt{Ntr\_aux}), to +avoid spurious conflicts. + +An additional \texttt{auxparams} hom on rules lets the user add type +parameters to the generated OCaml output. + + +Generation of aux rules is controlled by a command-line option +\texttt{-generate\_aux\_rules}, which one might (eg) set to false +for latex output and true for OCaml output. + + +\section{Functions} + +Ott includes experimental support for writing function definitions. + As a simple example, consider the Ott file below: + +\begin{alltt} + \mykw{grammar} + n \mysym{::} 'n_' \mysym{::=} + | 0 \mysym{::} \mysym{::} Zero + | S n \mysym{::} \mysym{::} Succ + + \mykw{funs} + Add \mysym{::=} \mysym{\mylb\mylb{}} hol-proof ... \mysym{\myrb\myrb{}} + \mykw{fun} + n1 + n2 \mysym{::} n \mysym{::} add \mysym{\mylb\mylb{}} com a function of type num -> num -> num \mysym{\myrb\myrb{}} + \mykw{by} + 0 + n2 \mysym{===} n2 + S n1 + n2 \mysym{===} n1 + S n2 +\end{alltt} + +Here the \verb+add+ function is compiled into the following Coq code: + +\begin{alltt} + Fixpoint add (x1:num) (x2:num) : num:= + match x1,x2 with + | n_zero , n2 => n2 + | (n_succ n1) , n2 => (add n1 (n_succ n2) ) + end. +\end{alltt} + +More in detail, the + \mykw{fun} + n1 + n2 \mysym{::} n \mysym{::} add + \mykw{by} + declaration specifies: +\begin{itemize} +\item the name of the function: \verb+add+ +\item the symbolic term that defines the lhs: \verb-n1 + n2- +\item the non-terminal that defines the rhs: \verb+n+ +\end{itemize} + +The type of the arguments of the function is defined by the + non-terminals appearing in the lhs, the return type by the rhs + non-terminal (so \verb+num+ $\to$ \verb+num+ $\to$ \verb+num+ in the + above example). As side-effect, whenever a function of type + \verb+symb_term+ $\to$ \verb+nt+ is defined, a production + \verb+nt ::= symb_term+ is added to the definition of the + non-terminal \verb+nt+ (in the above example, the production + \verb-n1 + n2- is added to the grammar of \verb+num+). + +Functions are then defined by case analysis, where the lhs and the rhs +are separated by the reserved symbol \mysym{===}. + +The \mysym{\mylb\mylb{}} \verb+hol-proof+ \mysym{\myrb\myrb{}} hom + allows the specification of a termination proof, which is required by + Hol. Mutually recursive functions can be defined in the same + \mykw{funs} block, analogously to mutually recursive rule + definitions. + +\emph{Disclaimer:} the different treatment of partial functions by the + different provers can result in a function definition being compiled + correctly to one prover but not to others. + + + + +\section{Parsing Priorities} + +Symbolic terms that can have more than one parse tree are typically considered +erroneous; however, certain classes of parse trees are ignored in order to +support common idioms that are ambiguous. For example, the production +% +\[\Gamma ::= \Gamma_1, .., \Gamma_n\] +% +might be used to allow a list of typing contexts to be appended together, but +it is highly ambiguous. The following restrictions forbid many unwanted parses +that could otherwise occur. +% +\begin{itemize} +\item +All parses in which a nonterminal derives itself without consuming any input +are ignored. For example, in the production above, the list could otherwise be +of length one so that $\Gamma$ directly derives $\Gamma$ giving rise to a +vacuous cycle, and an infinite forest of parse trees. This restriction +ensures that only the tree without the vacuous cycle is considered. +\item +The parser for a list form ignores parses that unnecessarily break up the list +due to (direct or indirect) self reference. For example, +$\Gamma_1,\Gamma_2,\Gamma_3,\Gamma_4$ will not parse as a two element sequence +of two element sequences $(\Gamma_1,\Gamma_2),(\Gamma_3,\Gamma_4)$ given the +production above. +\item +%\textit{\large Experimental Feature:} +User supplied priority annotations in a \mykw{parsing} section rule out certain +trees as follows: +\begin{itemize} +\item +$\mathit{prodname}_1 \mysym{<=} \mathit{prodname}_2$: Parse trees where a +$\mathit{prodname}_1$ node is a child of a $\mathit{prodname}_2$ node are +ignored. +\item +$\mathit{prodname}_1~\mykw{right}~\mathit{prodname}_2$: Parse trees where a +$\mathit{prodname}_1$ node is the leftmost child of a $\mathit{prodname}_1$ +node are ignored. +\item +$\mathit{prodname}_1~\mykw{left}~\mathit{prodname}_2$: Parse trees where a +$\mathit{prodname}_2$ node is the rightmost child of a $\mathit{prodname}_1$ +node are ignored. +\end{itemize} +In addition to immediate children, these priority annotations also prohibit +parse trees where the forbidden child node occurs underneath a chain of +derivations from the specified parent when the chain does not consume any +input. +Figure~\ref{parsing_figure} demonstrates a typical use of a \mykw{parsing} +section; the declarations have effect as follows: +\begin{itemize} +\item +Line \#1: \verb|n + n + n| parses as \verb|(n + n) + n|, but not \verb|n + (n + n)|; +\item +Line \#3: \verb|n + n - n| parses as \verb|(n + n) - n|, but not \verb|n + (n - n)|; +\item +Line \#9: \verb|-n + n| parses as \verb|(-n) + n|, but not \verb|-(n + n)|; +\item +Line \#15: \verb|n + n n| parses as \verb|n + (n n)|, but not \verb|(n + n) n|; +\verb|n n + n| parses as \verb|(n n) + n|, but not \verb|n (n + n)|; +\item +Line \#20: \verb|n, n n, n| parses as \verb|n, (n n), n|, but not \verb|(n, n) (n, n)|. +\end{itemize} +Currently, the \mykw{parsing} section supports only these relatively low level +and verbose declarations. +\end{itemize} + +\begin{figure} + +\begin{alltt} +\input{test21.1.alltt} +\label{parsing_figure} +\end{alltt} + +\caption{An Ott source file for basic arithmetic using the typical parsing priorities} +\end{figure} + +\section{Combining multiple source files} +Ott can be invoked with multiple source files. +% on the command line, +%either as multiple files at the end of the command line or as multiple +%\texttt{-i } options. +% +Input filenames with extensions \texttt{.tex}, \texttt{.v}, +\texttt{.thy}, \texttt{.sml}, or \texttt{ml} are simply copied into +the relevant output (\LaTeX, Coq, Isabelle, HOL, or OCaml). +% +By default the source-file and command-line order of blocks is preserved, for grammar, +embeds, and inductive definitions. + +The prover output can be split into multiple output files: each prover +output file specified with \texttt{-o } will contain the material +from the previous input files specified with \texttt{-i} (since the last \texttt{-o} +for the same prover). + + +Alternatively, one can add a \texttt{-merge true} command-line option, +in which case +the productions of multiple grammars that share the same header +are merged into a single grammar, and the rules of multiple +inductive definitions that share the same header are merged into a +single inductive definition. +% +This rudimentary form of modularity can be very useful, either to +split a language definition into separate features, or to define +reusable Ott components to define standard formulae, \myLaTeX{} pretty +printing of terminals, or \myLaTeX{} styles. +For example, Figure~\ref{a12} shows the Ott source file for a +\texttt{let} feature in isolation, taken from our Ott development of +some languages from Pierce's TAPL~\cite{Pierce:TypeSystems}. +\begin{figure} +\framebox[\columnwidth]{\hspace{1.7mm}\begin{minipage}{\columnwidth} +%\footnotesize +\small +%\scriptsize +%\verbatiminput{../tests/test10.ott} +\input{let.alltt}\end{minipage}} +\caption{An \texttt{ott} source file for the \texttt{let} fragment of TAPL\protect\label{a12}} +\end{figure} +The original TAPL languages were produced using +TinkerType~\cite{LevinPierce99} to compose features and check for +conflicts. +In \texttt{examples/tapl} we build a system, similar to the TinkerType +\texttt{sys-fullsimple}, from \texttt{ott} source files that +correspond roughly to the various TinkerType components, each with +syntax and semantic rules for a single feature. + + + + +\section{Hom blocks} +Bindspecs and homomorphisms for productions, and any homomorphisms +for definitions, can appear in an Ott source file either +attached to the production or definition, as we have shown earlier, or +in separate hom blocks. +For example, one can write +\begin{alltt} +\mykw{homs} 't_' + \mysym{::} Lam \mysym{(+} \mykw{bind} x \mykw{in} t \mysym{+)} + +\mykw{homs} 't_' + \mysym{::} Var \mysym{\mylb\mylb{}} \mykw{com} variable \mysym{\myrb\myrb{}} + \mysym{::} Lam \mysym{\mylb\mylb{}} \mykw{com} abstraction \mysym{\myrb\myrb{}} + \mysym{::} App \mysym{\mylb\mylb{}} \mykw{com} application \mysym{\myrb\myrb{}} + \mysym{::} paren \mysym{\mylb\mylb{}} \mykw{ich} \mysym{[[}t\mysym{]]} \mysym{\myrb\myrb{}} + \mysym{::} tsub \mysym{\mylb\mylb{}} \mykw{ich} ( tsubst_t \mysym{[[}t\mysym{]]} \mysym{[[}x\mysym{]]} \mysym{[[}t'\mysym{]]} ) \mysym{\myrb\myrb{}} + +\mykw{homs} '' + \mysym{::} reduce \mysym{\mylb\mylb{}} \mykw{com} \mysym{[[}t1\mysym{]]} reduces to \mysym{[[}t2\mysym{]]} \mysym{\myrb\myrb{}} +\end{alltt} +% +Each of these begins with a prefix and then has a sequence of +production name or definition name kernels, each followed by a +sequence of bindspecs and then a sequence of homomorphisms. + +The \verb+test10_homs.ott+ example, in Fig.~\mref{a38}, shows this. It +is semantically equivalent to the \verb+test10.ott+ example of +Fig.~\mref{a68}, but the homs have been moved into \texttt{hom} +blocks. +\begin{figure} +\fbox{\begin{minipage}{\textwidth} +\input{test10_homs.alltt} +\end{minipage}} +\caption{Hom Sections: \texttt{test10\_homs.ott}\protect\label{a38}} +\end{figure} + + +\section{Isabelle syntax support}\mlabel{a39}% +Ott has limited facilities to allow the Isabelle mixfix syntax support +and xsymbol to be used. The example \verb+test10_isasyn.ott+ shows +this in use. +% + +Non-meta productions can be annotated with +\mykw{isasyn} and/or \mykw{isaprec} homomorphisms. +For example, \verb+test10_isasyn.ott+ contains the production +\begin{alltt} + \mysym{|} t t' \mysym{::} \mysym{::} App \mysym{\mylb\mylb{}} \mykw{isasyn} \mysym{[[}t\mysym{]]}\mybackslash{}\mysym{[[}t'\mysym{]]} \mysym{\myrb\myrb{}} \mysym{\mylb\mylb{}} \mykw{isaprec} 50 \mysym{\myrb\myrb{}} +\end{alltt} +The two homs are used to output the Isabelle syntax annotation in the +\verb+t_App+ clause of the datatype definition below. +\par\noindent{\small +\begin{verbatim} +t = + t_Var "termvar" + | t_Lam "termvar" "t" ("\ _ . _" 60) + | t_App "t" "t" ("_\_" 50) +\end{verbatim} +} +Definitions can be annotated with +\mykw{isasyn} and/or \mykw{isaprec} homomorphisms similarly, e.g.~as below. +\begin{alltt} + \mykw{defn} + t1 --> t2 \mysym{::} \mysym{::} reduce \mysym{::} '' \mysym{\mylb\mylb{}} \mykw{isasyn} \mysym{[[}t1\mysym{]]} ---> \mysym{[[}t2\mysym{]]} \mysym{\myrb\myrb{}} \mykw{by} +\end{alltt} +This generates \verb+syntax+ and \verb+translations+ blocks as below. +\par\noindent{\small +\begin{verbatim} +inductive_set reduce :: "(t*t) set" +and "reduce'" :: "t => t => bool" ("_ ---> _" 50) +where "(t1 ---> t2) == ( t1 , t2 ) : reduce" +\end{verbatim} +} +Symbolic terms in definitions are printed using any production or +definition syntax. This (especially with xsymbol turned on) makes the +current goal state during Isabelle proof development much more +readable. + +Further, there is a command line option \verb+-isa_syntax true+. If +this is set then the tool generates Isabelle syntax annotations from +the source syntax. For example, the source file production for the +\verb+t_Lam+ clause is +\begin{alltt} + \mysym{|} \mybackslash{} x . t \mysym{::} \mysym{::} Lam \mysym{\mylb\mylb{}} \mykw{isaprec} 60 \mysym{\myrb\myrb{}} +\end{alltt} +and the \verb+terminals+ grammar contains a mapping from \verb+\+ to \verb+\+: +\begin{alltt} + \mykw{terminals} \mysym{::} 'terminals_' \mysym{::=} + \mysym{|} \mybackslash{} \mysym{::} \mysym{::} lambda \mysym{\mylb\mylb{}} \mykw{tex} \mybackslash{}lambda \mysym{\myrb\myrb{}} \mysym{\mylb\mylb{}} \mykw{isa} \mybackslash{} \mysym{\myrb\myrb{}} + \mysym{|} --> \mysym{::} \mysym{::} red \mysym{\mylb\mylb{}} \mykw{tex} \mybackslash{}longrightarrow \mysym{\myrb\myrb{}} \mysym{\mylb\mylb{}} \mykw{isa} ---> \mysym{\myrb\myrb{}} +\end{alltt} +This is used (just as for \myLaTeX{} homs) to generate the \verb+("\ _ . _" 60)+ +in the datatype definition above. + + +This functionality is limited in various ways: +(1) the full range of Isabelle precedence and associativity +specifications are not supported; +(2) the automatically generated syntax annotations are somewhat crude, +especially w.r.t.~spacing and parenthesisation; +(3) syntax annotation on meta productions is not propertly supported; +and +(4) it would be desirable to have more fine-grain control of whether +to automatically generate annotations: per-production, per-rule, and +per-file. + + +%For example, the \verb+out.thy+ produced by +%\verb+make test10_isasyn+ (which includes this option), the annotation +%on + + +\section{Isabelle code generation example}\mlabel{a22}% +The Isabelle/Coq/HOL code generation facilities can be sometimes used to +generate (variously) OCaml and SML code from the Isabelle/Coq/HOL +definitions produced by Ott. + +For example, the \verb+test10st_codegen.thy+ file uses Isabelle +code generation to produce SML code to calculate the possible +reductions of terms in the \verb+test10st.ott+ simply typed lambda +calculus. + +\verbatiminput{../tests/test10st_codegen.thy} + +\section{Reference: Command-line usage}\mlabel{a32}% +A good place to get started is one of the test +\texttt{make} targets in the \texttt{ott} directory, e.g. +\begin{verbatim} +test10: tests/test10.ott + bin/ott \ + -i tests/test10.ott \ + -o out.thy -o out.v -o outScript.sml \ + -o out.tex \ + -parse ":t: (\z.z z) y" \ + && ($(LATEX) out; $(DVIPS) out -o) +\end{verbatim} +When \verb+make test10+ is executed, \texttt{ott}: +\begin{itemize} +\item reads the source file \verb+tests/test10.ott+ +\item (if one also specifies \texttt{-show\_post\_sort true} and \texttt{-show\_defns +true}) prints on standard output various diagnostic information, + including ASCII versions of the grammar and + inductive definitions. + By default these are coloured (using + \verb+vt220+ control codes) with metavariables in red, nonterminals + in yellow, terminals in green, and object variables in white. + Scanning over this output quickly picks up some common errors. +\item parses the symbolic term \verb+(\z.z z) y+ using the \verb+t+ + grammar and prints the result to standard output +\item generates Isabelle definitions in the file \verb+out.thy+ +\item generates Coq definitions in the file \verb+out.v+ +\item generates HOL definitions in the file \verb+outScript.sml+ +\item generates a \myLaTeX{} document in the file \verb+out.tex+, with a + standard document preamble to make it self-contained. +\end{itemize} +That \myLaTeX{} document is then compiled and converted to postscript. + +%If multiple source files are specified then they are (after parsing) +%effectively concatenated together. + +For convenience, input files can also be listed at the end of the command line: +\begin{verbatim} + ott [options] ... +\end{verbatim} +is equivalent to +\begin{verbatim} + ott -i ... -i [options] +\end{verbatim} + + +The~\verb+%.out+ \verb+Makefile+ target runs \verb+ott+ with common +defaults on the file~\verb+%.ott+, so for example executing \verb+make tests/test10.out+ +runs \verb+ott+ on \verb+tests/test10.ott+, generating all outputs. There are +also targets ~\verb+%.coq.out+, ~\verb+%.hol.out+, and +~\verb+%.isa.out+, to generate just LaTeX and the code for one proof +assistant, and ~\verb+%.tex.out+, to generate just LaTeX. + + + +The \texttt{ott} command-line options (with default values where applicable) are +shown below. +\verbatiminput{options.txt} + +%By default the Makefile compiles Ott using \texttt{ocamlopt}. To force it to +%compile with \texttt{ocamlc} (to get backtraces on exceptions) do \texttt{make opt}. + + +\section{Reference: The language of symbolic terms}\mlabel{a17}% +% +A syntax definition conceptually defines two different languages: that +of concrete terms of the object language, and that of symbolic terms +over the object language. +The former includes concrete variables (if nontrivial \verb+lex+ homs +have been specified for metavariables). +The latter includes the former but also +allows symbolic metavariables and nonterminals. +% +Symbolic terms may also include the %\verb+:deeper:+ and +production-name +annotations mentioned in \S\mref{a51}. +For a syntax definition with list forms (c.f.~\S\mref{a61}) symbolic +terms also include various list constructs. +A simplified abstract syntax of symbolic terms is shown in +Figure~\ref{a19}, omitting list forms. In this section we give an +informal definition of the full concrete syntax of symbolic terms. +\begin{figure}[t] +\begin{toimage} +\framebox[\columnwidth]{ \begin{minipage}{\columnwidth} +\small +\symtermgrammar +\end{minipage}} +\end{toimage}% +\imageflush +\caption{Mini-Ott in Ott: symbolic terms\label{a19}} +\end{figure}% + + + + + +The premises and conclusions of inductive definition rules are +symbolic terms. \newcommand{\sem}[1]{[\![#1]\!]} +The language of symbolic terms is defined informally below, with interpretation functions $\sem{\_}$ that map defined entities into grammar clauses. + +For a rule $\mathit{rule} \, = $ +\[ \mathit{nontermroot}_1 \, , \, .. \, , \, \mathit{nontermroot}_n \texttt{::} \, \texttt{''} \, \texttt{::=} \, \mathit{prod_{{\mathrm{1}}}} \, .. \, \mathit{prod_{\mathit{m}}} \] +we have +\[\begin{array}{lcll} + \sem{\mathit{rule}} & ::= & \\ +& | & \mathit{nontermroot} \mathrm{suffix} & (1) \\ +& | & \sem{\mathit{prod_{{\mathrm{1}}}}} \\ +& | & .. \\ +& | & \sem{\mathit{prod_{\mathit{m}}}} + \end{array}\] + +(1) for each $\mathit{nontermroot}$ in the set + $\{\mathit{nontermroot}_1 \, , \, .. \, , \, + \mathit{nontermroot}_n \}$ +and for each $\mathit{nontermroot}$ defined by any $\mathit{rule}'$ + which is declared as a subrule of this rule. + + +For a production $ \mathit{prod} \, = $ +\[ \texttt{|} \, \mathit{element_{{\mathrm{1}}}} \, .. \, \mathit{element_{\mathit{m}}} \, \texttt{::} \, \texttt{::} \, \mathit{prodname}\] +we have +\[\begin{array}{lcl} + \sem{\mathit{prod}} & ::= & \\ +& | & \sem{\mathit{element_{{\mathrm{1}}}}} \, .. \, \sem{\mathit{element_{{\mathit{m}}}}} \\ +& | & \texttt{:}\mathit{prodname}\texttt{:}\, \sem{\mathit{element_{{\mathrm{1}}}}} \, .. \, \sem{\mathit{element_{{\mathit{m}}}}} +\end{array} +\] + + +For an element there are various cases. +\begin{enumerate} +\item For a terminal $\mathit{terminal}$ +\[\begin{array}{lcl} + \sem{\mathit{terminal}} & ::= & \mathit{terminal}\\ +\end{array}\] +\item For a nonterminal $\mathit{nontermroot} \, \mathit{suffix}$ +\[\begin{array}{lcl} + \sem{\mathit{nontermroot} \, \mathit{suffix}} & ::= & \sem{\mathit{rule}} +\end{array}\] +where $\mathit{rule}$ includes $\mathit{nontermroot}$ among the +nonterminal roots it defines. (Note that this does not depend on what $\mathit{suffix}$ was used in the grammar, and similarly for the $\mathit{metavar}$ case below.) + +\item For an index variable $\mathit{indexvarroot}$ +\[\begin{array}{lcl} + \sem{\mathit{indexvarroot}} & ::= & \mathit{indexvarroot}' + \end{array}\] +for each $\mathit{indexvarroot}'$ defined by the \texttt{indexvar} +definition that defines $\mathit{indexvarroot}$. + +\item For a metavariable $\mathit{metavarroot} \, \mathit{suffix}$ +\[\begin{array}{lcll} + \sem{\mathit{metavarroot} \, \mathit{suffix}} & ::= & \\ +& | & \mathit{metavarroot}' \mathrm{suffix} & (1) \\ +& | & \mathit{variable} \\ +\end{array}\] +(1) for each $\mathit{metavarroot}'$ defined by the \texttt{metavar} +definition that defines $\mathit{metavarroot}$. +(2) where $\mathit{variable}$ ranges over all the strings defined by +the \texttt{lex} regexp of the \texttt{metavar} +definition that defines $\mathit{metavarroot}$, except for any string +which can be parsed as a nonterminal, metavariable or terminal of the syntax +definition. +\item A list form element $\mathit{element}$ could be any of the following, either without a separating terminal: +\[\begin{array}{l} +\mathit{element}_1 .. \mathit{element}_n +\, \mathit{dots} \, +\mathit{element}'_1 .. \mathit{element}'_n +\\ +\texttt{} +\\ +\texttt{} +\\ +\texttt{} +\\ +\texttt{} +\end{array}\] +or with a separating terminal: +\[\begin{array}{l} +\mathit{element}_1 .. \mathit{element}_n +\, \mathit{terminal} \, \mathit{dots} \, \mathit{terminal} \, +\mathit{element}'_1 .. \mathit{element}'_n +\\ +\texttt{} +\\ +\texttt{} +\\ +\texttt{} +\\ +\texttt{} +\end{array}\] +In any of these cases the interpretation $\sem{\mathit{element}}$ is the lists (separated by the $\mathit{terminal}$ if one was specified) of concrete list entries and of list forms. +Without a separating $\mathit{terminal}$, this is: +\[\begin{array}{lcll} + \sem{\mathit{element}} & ::= & (\mathrm{concrete\_list\_entry} | \mathrm{list\_form})^* & (2), (3)\\ +\ \\ +\mathrm{concrete\_list\_entry} & ::= & \sem{\mathit{element}_1} \, .. \, \sem{\mathit{element}_n} \\ +\ \\ +\mathrm{list\_form} & ::= & \\ + & | & \sem{\mathit{element}_1} \, .. \, \sem{\mathit{element}_n} + \,\mathit{dots}'\, + \sem{\mathit{element}'_1} \, .. \, \sem{\mathit{element}'_n} & (1) \\ + + & | & \texttt{} +\\ + & | & \texttt{} +\\ + & | & \texttt{} +\\ + & | & \texttt{} +\end{array}\] +This is subject to constraints: (1) that +$\sem{\mathit{element}_1} \, .. \, \sem{\mathit{element}_n}$ +and +$\sem{\mathit{element}'_1} \, .. \, \sem{\mathit{element}'_n}$ can be +anti-unified with exactly one varying index; (2) if the list has only +concrete entries (i.e., no list forms), its length must meet +the constraint of any $\mathrm{dots}$ in the +$\mathit{element}$. + + +With a separating $\mathit{terminal}$, we have: +\[\begin{array}{lcll} + \sem{\mathit{element}} & ::= & \epsilon | (\mathrm{concrete\_list\_entry} | \mathrm{list\_form}) +(\mathit{terminal} (\mathrm{concrete\_list\_entry} | \mathrm{list\_form}))^* +\end{array}\] + +\end{enumerate} + +In the above +\[\begin{array}{lcll} +\mathrm{dots} & ::= & \texttt{..} | \texttt{...} | \texttt{....} \\ +\mathrm{number} & ::= & \texttt{0} | \texttt{1} \\ +\mathrm{suffix} & ::= & \mathrm{suffix\_item}^* \\ +\mathrm{suffix\_item} & ::= & \\ + & | & +(\texttt{0} | \texttt{1} |\texttt{2} | \texttt{3} |\texttt{4} | \texttt{5} |\texttt{6} | \texttt{7} |\texttt{8} | \texttt{9})^+ & \mbox{(longest match)} \\ +& | & \texttt{\_} \\ +& | & \texttt{'} \\ +& | & \mathit{indexvar} \\ +& | & \mathit{indexvar}\texttt{-1} \\ +\end{array}\] + +Further, whitespace (\verb+' '|'\010'|'\009'|'\013'|'\012'+) is allowed before any token except a those in a suffix, and nonterminals, metavariables, index variables, and terminals that end with an alphanumeric character, must not be followed by an alphanumeric character. + + + +The tool also builds a parser +for concrete terms, with fake nonterminal roots \texttt{concrete\_ntr} +for each primary \texttt{ntr} of the syntax definition. One can +switch to concrete-term parsing with a \texttt{:concrete:} annotation, +as in the example +\par\noindent{\small +\begin{verbatim} +\[ [[ :concrete: \Z1<:Top. \x:Z1.x ]]\] +\end{verbatim} +} +shown in Figure~\ref{a56}. Below such an annotation, only concrete terms +are permitted, with no further annotation, no symbolic nonterminals or +metavariables, no list dot forms or comprehensions, etc. + + + +Parsing of terms is done with a scannerless GLR parser over character-list +inputs. The parser +searches for all parses of the input. If none are found, the ASCII +and TeX output are annotated \texttt{no parses}, with a copy of the +input with \texttt{***} inserted at the point where the last token was +read. This is often at the point of the error (though if, for +example, a putative dot form is read but the two element lists cannot +be anti-unified, it will be after the point of the error). +If multiple parses are found, the TeX output is annotated +\texttt{multiple parses} and the different parses are output to the +console in detail during the Ott run. + +The GLR parser +achieves reasonable performance on the small symbolic terms that are +typical in semantic rules. Its performance on large (whole-program +size) examples is untested. + +\section{Reference: Generation of proof assistant definitions}\mlabel{a42}% +This section briefly summarises the steps involved in the generation +of proof assistant definitions from an Ott source file. For a description of the locally-nameless backend, refer to \ahrefurl{http://moscova.inria.fr/~zappa/projects/ln\_ott/}. +\subsection{Generation of types} +\begin{itemize} +\item The primary metavariable roots and primary nonterminal roots are used + directly as the names of proof assistant types, except where they + have a hom specifying a root-overriding string. +\item Type abbreviation declarations are produced for metavars, in the + source-file order, skipping metavars or nonterminals defined with \mykw{phantom}. +\item Type generation considers each rule of the user's source grammar + except those for \verb+formula+ and \verb+terminals+ (or the + synthesized rules for the syntax of judgements or \verb+user_syntax+). +\item The subrule order is analysed to identify the top elements. For + each of those, a proof assistant type will be generated --- either a + free type (\verb+coq+: \verb+inductive+, \verb+isa+: + \verb+datatype+, \verb+hol+: \verb+Hol_datatype+), or if there is a + type hom for the proof assistant in question, a type abbreviation. + No types are generated for the non-top elements, as they will be + represented as predicates over the top free type above them. +\item For the former, each non-meta production of the rule + gives rise to a constructor. The production name (with any per-rule + prefix already applied) is used directly as the constructor name. + The (curried) constructor argument types are taken from the + types associated with the metavariables and nonterminals mentioned + in the production body. +\item Rules (within each \mykw{grammar} block, if \texttt{-merge +false}, or all rules, if \texttt{-merge true}) are topologically sorted according to the dependency order + (a free-type rule directly depends on another if one of its non-meta + productions includes a nonterminal of the other; dependencies for rules with a type-hom + for the proof assistant in question + are obtained from a crude lexing of the body of the type hom). + We then generate mutually recursive type + definitions for connected components, in an order consistent with + the dependencies. +\item For productions that involve list dot forms or list comprehension + forms, for HOL and Isabelle we produce constructors with argument + types that involve native list types. For Coq, however, we + synthesise an additional inductive type for each list-of-tuples that arises + (both for those that occur in the grammar and for others required in + the translations of inductive definitions) and include them in the + topological sort. +\end{itemize} + +\subsection{Generation of functions} +% +A small number of library functions (\verb+list_mem+, +\verb+list_minus+,...) are included in the output if they are +required. + +Several Coq list functions (\verb+map+, \verb+make+, \verb+unmake+, \verb+nth+, \verb+app+) are generated +for each synthesized list type. + +The definitions of the more interesting functions (subrule predicates, +binding auxiliaries, free variable functions, and substitutions) are +generated over the free types generated for the maximal elements of the +subrule order (generation of these functions for rules with type homs +is not supported). The definitions are by pattern-matching and +recursion. +The patterns are generated by building canonical symbolic terms from +the productions of each relevant rule. +The recursion is essentially primitive recursion: +for Coq we produce \verb+Fixpoint+s or \verb+Definition+s +(the latter is sometimes needed as the former gives an error in the case where there is no +recursion); +for Isabelle we produce \verb+primrec+s (or, experimentally, \verb+fun+s); +for HOL we use an \verb+ottDefine+ variant of the \verb+Define+ +package. +% +In general we have to deal both with the type dependency +(the topologically sorted mutually recursive types described above) +and with function dependency --- for example, for subrule predicates +and binding auxiliaries we may have multiple mutually recursive +functions over the same type. + + +For Coq the function generation over productions that involve list +types must mirror that, so we generate auxiliary functions +that recurse over those list types. + +For Isabelle the \verb+primrec+ package does not support +definitions involving several mutually recursive functions over the +same type, so for these we generate single functions calculating +tuples of results, define the intended functions as projections of +these, and generate lemmas (and simple proof scripts) characterising +them in terms of the intended definitions. +% +Further, it does not support pattern matching involving nested +constructors. We therefore generate auxiliary functions for +productions with embedded list types. Isabelle tuples are treated as +iterated pairs, so we do the same for productions with tuples of size +3 or more. +% +Isabelle also requires a function definition for each recursive type. +In the case where there are multiple uses of the same type +(e.g.~several uses of \verb+t list+ in different productions) all the +functions we wish to generate need identical auxiliaries. As yet, the +tool does not generate the identical copies required. + +If the option \verb+-isabelle_primrec+ is set to \verb+false+, then +Ott uses the \verb+fun+ package instead of the \verb+primrec+ package. +Since at the time of writing Isabelle 2008 is not capable of proving +automatically termination of all the \verb+fun+s that Ott generates, +this feature should be considered experimental. + +For HOL the standard \verb+Define+ package tries an automatic +termination proof. For productions that involve list types +our generated functions involve various list functions which prevent +those proofs working in all cases. +We therefore use an \verb+ottDefine+ variant (due to Scott Owens), + with slightly stronger support for proving termination of +definitions involving list operators. + + + +\subsubsection{Subrule predicates}\mlabel{a43}% +We generate subrule predicates to carve out the subsets of each free +proof assistant type (from the maximal elements of the subrule order) +that represent the rules of the grammar. +The non-free rules are the least subset of the rules that either +(1) occur on the left of a subrule (\verb+<::+) declaration, or +(2) have a (non-meta) production that mentions a non-free rule. +Note that these can include rules that are maximal elements of the +subrule order, e.g.~if an expression grammar included a production +involving packaged values. +The subrule predicate for a type is defined by pattern matching over +constructors of the maximal type above it --- for each non-meta +production of the maximal type it calculates a disjunction +over all the productions of the lower type that are subproductions of +it, invoking other subrule predicates as appropriate. + + +\subsubsection{Binding auxiliaries} +The binding auxiliary functions calculate the intuitive semantics of auxiliary functions defined in bindspecs of the Ott source file. Currently these are represented as proof assistant lists of metavariables or nonterminals (arguably set types should be used instead, at least in Isabelle). + + +\subsubsection{Free variables} +The free variable functions simply walk over the structure of the free proof assistant types, using any bind specifications (and binding auxiliaries) as appropriate. +% +For these, and for substitutions, we simplify the generated functions by using the dependency analysis of the syntax to exclude recursive calls where there is no dependency. + + +\subsubsection{Substitutions} +The generated substitution functions also walk over the structure of the free proof assistant types. +For each production, for each occurrence of a nonterminal \verb+nt+ within it, we first calculate the things (of whatever type is in question) binding in that \verb+nt+, i.e.~those that should be removed from the domain of any substitution pushed down into it. There are two cases: +(1) the \verb+mse'+ from any \verb+bind mse' in nt+; +%(2) the \verb+f(nt)+ which occur in the \verb+mse''+ of any \verb+bind mse'' in nt''+ +% in the production, i.e.~any auxiliary-defined things within \verb+nt+ which are used to bind elsewhere; and +(2) \verb+nt+ itself if it occurs in the \verb+mse''+ of any \verb+bind mse'' in nt''+, i.e.~ +\verb+nt+ itself if it is directly used to bind elsewhere. +List forms within bindspecs are dealt with analogously. +% + +The substitution function clause for a production is then of one of two forms: +either (1) the production comprises a single element, of the nonterminal or metavariable that we are substituting for, and this is within the rule of the nonterminal that it is being replaced by, or (2) all other cases. +For (1) the element is compared with the domain of the substitution, and replaced by the corresponding value from the range if it is found. +For (2) the substitution functions are mapped over the subelements, having first removed any bound things from the domain of the substitution. + +This is all done similarly, but with differences in detail, for single and for multiple substitutions. + + +\subsection{Generation of relations} +The semantic relations are defined +with the proof-assistant inductive relations packages +(\verb+coq+: \verb+Inductive+, +\verb+isa+: \verb+inductive+, +\verb+hol+: \verb+Hol_reln+). +% +They use the mutual recursion structure that is given by the user, +with each \verb+defns+ block giving rise to a potentially mutually +recursive definition of each \verb+defn+ inside it. +(It is debatable whether it would be preferable to do an automatic dependency analysis and topological sort, as for the syntax.) +% +Each definition rule gives rise to an implicational clause, essentially +that the premises (Ott \verb+formula+s) imply the conclusion (an Ott symbolic term of whichever judgement is being defined). +In addition: +\begin{itemize} +\item Symbolic terms are transformed in various different ways: +\begin{itemize} +\item Nodes of non-meta productions are output as applications of the appropriate proof-assistant constructor (and, for a subrule, promoted to the corresponding constructor of a maximal rule). +\item Nodes of meta productions are transformed with the user-specified homomorphism. +\item Nodes of judgement forms are represented as applications of the defined relation in Coq and HOL, and as set-membership assertions in Isabelle. +\item Lists of formulae (the \verb+formula_dots+ production) are special-cased. +\end{itemize} +\item For each nonterminal of a non-free syntax rule (as in \S\mref{a43}) that occurs, + e.g.~a usage of \verb+v'+ where \verb+v<::t+, an additional premise invoking the subrule predicate for the non-free rule is added, e.g.~\verb+is_v v'+. +\item The set of symbolic terms of the definition rule are analysed together to identify list forms with the same bounds. A single proof assistant variable is introduced for each such, with appropriate projections and list maps/foralls at the usage points. +\item For Coq, auxiliary defined relations are introduced for list forms. +\item For Coq, as the projections from list forms involve (Ott-generated) \verb+nth+ functions that return option types, for any such projection a pattern-match against \verb+Some+ is introduced as an additional premise. +\item For Coq and HOL, explicit quantifiers are introduced for all variables mentioned in the rule. +\end{itemize} + + + + +\section{Reference: Summary of homomorphisms}\mlabel{a41}% +% +Homomorphisms can appear in various positions in an Ott source +file. The table below summarises their meanings. A \tick{} indicates that arguments are meaningful for that usage (e.g.~\texttt{\mysym{[[}e1\mysym{]]}} in a production mentioning a nonterminal or metavariable +\verb+e1+). + +\begin{tabular}{lcl} +% Hu_root +\multicolumn{3}{l}{a metavar or indexvar declaration, after one of the defined metavar/indexvar roots, or}\\ +\multicolumn{3}{l}{a rule, after one of the defined nonterminal + roots}\\ \hline +\mykw{tex} & \tick & \myLaTeX{} typesetting for symbolic variables with that root\\ +\mykw{isa}/\mykw{coq}/\mykw{hol}/\mykw{ocaml} & & Isabelle/Coq/HOL/OCaml root overriding string (1) \\ +\mykw{repr-locally-nameless} & & use a locally-nameless representation (Coq backend only) \\ +\ \\ +% +\end{tabular} + + +% Hu_metavar +\begin{tabular}{lcl} +\multicolumn{3}{l}{a metavar or indexvar declaration, after the \texttt{::=}}\\ \hline +% +\mykw{isa} & & Isabelle representation type \\ +\mykw{coq} & & Coq representation type \\ +\mykw{hol} & & HOL representation type \\ +\mykw{ocaml} & & OCaml representation type \\ +\mykw{tex} & \tick & \myLaTeX{} typesetting for symbolic variables \\ +\mykw{com} & & comment to appear in \myLaTeX{} syntax definition \\ +\mykw{coq-equality} & & Coq proof script to decide equality over the representation type \\ +\mykw{repr-locally-nameless} & & (Coq only) use a locally-nameless representation \\ +\mykw{phantom} & & suppress the representation type definition in theorem prover output \\ +\mykw{lex} & & regular expression for lexing concrete variables \\ +\mykw{texvar} & \tick & \myLaTeX{} typesetting for concrete variables \\ +\mykw{isavar} & \tick & Isabelle output for concrete variables \\ +\mykw{holvar} & \tick & HOL output for concrete variables \\ +\mykw{ocamlvar} & \tick & OCaml output for concrete variables \\ +\ \\ +% +\end{tabular} + + +% Hu_rule +\begin{tabular}{lcl} +% +\multicolumn{3}{l}{a rule, after the \mysym{::=}}\\ \hline +% +\mykw{isa} & & Isabelle representation type, if a non-free type is required \\ +\mykw{coq} & & Coq representation type, if a non-free type is required \\ +\mykw{hol} & & HOL representation type, if a non-free type is required \\ +\mykw{ocaml} & & OCaml representation type, if a non-free type is required \\ +\mykw{tex} & \tick & \myLaTeX{} typesetting for symbolic variables \\ +\mykw{com} & \tick & comment to appear in \myLaTeX{} syntax definition \\ +\mykw{coq-equality} & & Coq proof script to decide equality over the representation type \\ +\mykw{coq-universe} & & Coq universe (e.g.~\texttt{Type}) for the representation type \\ +\mykw{phantom} & & suppress the representation type definition in theorem prover output \\ +\mykw{aux} & (\tick)& construct an auxiliary grammar rule with a single production \\ +% \mykw{auxparams} & (\tick)& type parameters for OCaml \\ +\mykw{icho} & \tick & shorthand for identical \mykw{coq}, \mykw{isa}, \mykw{hol}, and \mykw{ocaml} homs\\ +\mykw{ichlo} & \tick & shorthand for identical \mykw{coq}, +\mykw{isa}, \mykw{hol}, \mykw{lem}, and \mykw{ocaml} homs\\ +\mykw{ich} & \tick & shorthand for identical \mykw{coq}, \mykw{isa} and \mykw{hol} homs\\ +\mykw{ic} & \tick & shorthand for identical \mykw{coq} and \mykw{isa} homs\\ +\mykw{ch} & \tick & shorthand for identical \mykw{coq} and \mykw{hol} homs\\ +\mykw{ih} & \tick & shorthand for identical \mykw{isa} and \mykw{hol} homs\\ +\ \\ +% +\end{tabular} + +% Hu_prod +\begin{tabular}{lcl} +\multicolumn{3}{l}{a production}\\ \hline +% +\mykw{isa} & \tick & Isabelle output, for a non-free (meta) production \\ +\mykw{coq} & \tick & Coq output, for a non-free (meta) production \\ +\mykw{hol} & \tick & HOL output, for a non-free (meta) production \\ +\mykw{ocaml} & \tick & OCaml output, for a non-free (meta) production \\ +\mykw{tex} & \tick & \myLaTeX{} typesetting for symbolic terms \\ +\mykw{texlong} & & typeset as long production \\ +\mykw{com} & \tick & comment to appear in \myLaTeX{} syntax definition \\ +\mykw{order} & \tick & specify order of arguments to prover or Ocaml constructor\\ +\mykw{isasyn} & \tick & Isabelle mixfix syntax output \\ +\mykw{isaprec} & & Isabelle mixfix syntax precedence string \\ +\mykw{ich} & \tick & shorthand for identical \mykw{coq}, \mykw{isa} and \mykw{hol}homs\\ +\mykw{ic} & \tick & shorthand for identical \mykw{coq} and \mykw{isa} homs\\ +\mykw{ch} & \tick & shorthand for identical \mykw{coq} and \mykw{hol} homs\\ +\mykw{ih} & \tick & shorthand for identical \mykw{isa} and \mykw{hol} homs\\ +\ \\ +% +\end{tabular} + +% Hu_prod_tm +% +\begin{tabular}{lcl} +\multicolumn{3}{l}{a production of the \texttt{terminals} grammar}\\ \hline +% +\mykw{isa} & & Isabelle output, for terminals in default generated Isabelle mixfix declarations \\ +\mykw{tex} & & \myLaTeX{} default typesetting for terms \\ +\mykw{com} & \tick & comment to appear in \myLaTeX{} syntax definition \\ +\ \\ +% +\end{tabular} + +% Hu_defn +% +\begin{tabular}{lcl} +\multicolumn{3}{l}{a \mykw{defn}, before the \mykw{by}}\\ \hline +% +\mykw{tex} & \tick & \myLaTeX{} typesetting for symbolic terms \\ +\mykw{com} & \tick & comment to appear in \myLaTeX{} syntax definition \\ +\mykw{isasyn} & \tick & Isabelle mixfix syntax output \\ +\mykw{isaprec} & & Isabelle mixfix syntax precedence string \\ +\mykw{lemwcf} & & Lem witness, check, and functions spec for indrelns \\ +\ \\ +% +\multicolumn{3}{l}{a \mykw{homs} section clause (for a production or a definition)}\\ \hline +% +\multicolumn{3}{l}{as in the above production and \mykw{defn} forms}\\ +\ \\ +% +\end{tabular} + +% Hu_defnclass +\begin{tabular}{lcl} +% +\multicolumn{3}{l}{a group of defns, after the \mysym{::=}}\\ \hline +\mykw{coq-universe} & & Coq universe (e.g.~\texttt{Type}) for the representation type \\ +\ \\ +\end{tabular} + + +% Hu_embed +% +\begin{tabular}{lcl} +\multicolumn{3}{l}{an \mykw{embed} section}\\ \hline +\mykw{isa} & & embedded Isabelle output\\ +\mykw{coq} & & embedded Coq output\\ +\mykw{hol} & & embedded HOL output\\ +\mykw{ocaml} & & embedded OCaml output\\ +\mykw{tex} & & embedded \myLaTeX{} output\\ +\mykw{tex-preamble} & & embedded \myLaTeX{} output, appearing in the \myLaTeX{} preamble\\ +\mykw{coq-lib} & & do not generate definitions for the listed helper functions\\ +\mykw{isa-auxfn-proof} & & Isabelle proof script \\ +\mykw{isa-subrule-proof} & & Isabelle proof script \\ +\end{tabular} + + +% Hu_subrule and Hu_subst and Hu_freevar +% +\begin{tabular}{lcl} +\multicolumn{3}{l}{in a subrule, substitution or function definition}\\ \hline +\mykw{isa-proof} & & Isabelle proof script \\ +\end{tabular} + + +(1) This is occasionally useful to work around a clash between a + metavar or nonterminal primary root and a proof assistant symbol, + e.g.~\texttt{value} in Isabelle or \texttt{T} in HOL. + + + + +\section{Reference: The Ott source grammar} +This is automatically generated (by \verb+mly-y2l+) from the +\verb+ocamlyacc+ grammar for Ott. +%\ifhevea +%(At present it does not display properly in html, only in the +%postscript/pdf versions of this manual.) +%\fi + +The lexing of Ott source files is context-dependent; this does not +show that. + +Not everything in the grammar is fully supported --- in particular, +option element forms, non-dotted element list forms, the three \verb+names+ distinctness forms of +bindspecs, and context rules. + + +\newcommand{\token}[1]{\texttt{#1}} +\newlength\rulelhs +\newlength\rulemid +\newlength\rulerhs +{\small +\ifhevea +\input{grammar_parser_hevea.tex} +\else +\input{grammar_parser.tex} +\fi} + + +\section{Reference: Examples}\mlabel{a33}% +The project web page +\begin{quotation} +\ahrefurl{http://www.cl.cam.ac.uk/users/pes20/ott/} +\end{quotation} +gives a variety of examples. Some of these, and additional + small examples, are included in the distribution in the \verb+tests+ +directory. Typically they can be built using the \verb+Makefile+ in +the \verb+ott+ directory, e.g.~typing \verb+make test10+ or (more generally) \verb+make tests/test10.out+) there. + +% test-j.ott HAT calculus +% test1.ott typing for functions and pairs +% test2.ott hom examples +% test3.ott typing and reduction for functions, let, ;, if +% test4.ott dot form examples +% test5.ott reduction for functions and pair patterns, using auxfns +% test6-tex.ott typing and reduction for functions and pairs, with com and tex homs +% test6.ott typing and reduction for functions and pairs, with com and tex homs +\begin{tabular}{ll} + \verb+test10.ott+ & untyped CBV lambda\\ + \verb+test10st.ott+ & simply typed CBV lambda\\ + \verb+test8.ott+ & ML polymorphism example\\ + \verb+test7a.ott+ & POPLmark Fsub example (without records)\\ + \verb+test7b.ott+ & POPLmark Fsub example (with records)\\ + \verb+leroy-jfp96.ott+& Leroy module system \\ + \verb+lj.ott+ & LJ: Lightweight Java\\ + \verb+test7t.mng+ & whole-document tex mng source\\ + & (\verb+make test7afilter+ to build) \\ + \verb+test7tt.mng+ & fragment tex mng source\\ +% test8p.ott ML polymorphism example with record patterns +% test9.ott notes on multiple language definitions +% test10st_metatheory.thy +% test10st_snapshot_out.thy + \verb+test11.ott+ & subrule example\\ + \verb+test12.ott+ & topological sort example\\ + \verb+test13.ott+ & small bindspec fragment\\ +% test13b.ott larger bindspec fragment +\verb+test10st_snapshot_out.thy+ & snapshot of generated Isabelle from \verb+test10st.ott+ \\ +\verb+test10st_metatheory_autoed.thy+ & Isabelle proof script for type +preservation and progress \\ +\verb+test10st_codegen.thy+ & Isabelle code generation script for reduction\\ +\verb+test10_isasyn.ott+ & Isabelle mixfix syntax example\\ +\verb+test10st_metatheoryScript.sml+ & HOL proof script for type preservation and progress \\ + \verb+test17.10.ott+ & list comprehension examples\\ +\end{tabular} + +The \verb+examples/tapl+ directory contains several examples taken from the book `Types and Programming Languages' by Benjamin Pierce. The \texttt{make} targets, listed below, combine Ott source files +following roughly the TinkerType component structure used in TAPL. + +\begin{tabular}{ll} + \verb+sys-bool+ & booleans (p34) \\ + \verb+sys-arith+ & arithmetic expressions (p41) \\ + \verb+sys-untyped+ & untyped lambda-calculus with booleans \\ + \verb+sys-puresimple+ & simply-typed lambda-calculus \\ + \verb+sys-tybool+ & typed booleans \\ +% \verb+sys-tuple+ & \\ + \verb+sys-sortoffullsimple+& \\ + \verb+sys-roughlyfullsimple+& \\ + \verb+sys-puresub+ & \\ + \verb+sys-purercdsub+ & \\ +\end{tabular} + +Other examples can be found on the locally-nameless backend web page. + +\section*{Acknowledgements} +% +We thank +the Ott users for their feedback, especially Matthew Parkinson; +the other members of the POPLmark team, especially Benjamin +Pierce, Stephanie Weirich, and Steve Zdancewic, for +discussions; +and Keith Wansbrough, Matthew Fairbairn, and Tom Wilkie, for their work +on various Ott predecessors. + + +We acknowledge the support of EPSRC grants +GR/T11715, EP/C510712, and EP/F036345, a Royal Society +University Research Fellowship (Sewell), an EPSRC Leadership +Fellowship (Sewell), +EPSRC Programme Grant, EP/K008528/1 REMS \emph{Rigorous Engineering of +Mainstrem Systems}, +and ANR grant ANR-06-SETI-010-02 (Zappa Nardelli). + + +\bibliographystyle{alpha}%abbrv}%alpha} +%\bibliographystyle{abbrvnat} +%\bibliographystyle{plainnat} +\bibliography{shorter} + +\end{document} +\clearpage + +\section{OLD STUFF} + + +\begin{figure} +\fbox{\small\begin{minipage}{\textwidth} +\input{test10.7.alltt} +\end{minipage}} +\caption{Source: \texttt{test10.7.ott}\protect\label{a48}} +\end{figure} + + + +----------------------------- + + + +\textbf{This document is a preliminary user guide for the tool. It does not +include discussion of the design choices, related work, future +directions, or detailed motivation. } +%At present the tool is in a pre-alpha state: it can be used +% for some examples, but it is far from polished or complete.} + +The current state of some examples is shown below. The ``mt'' column indicates whether we have proved the usual type preservation/progress metatheory results for the generated definitions. +%\newcommand{\tick}{\mbox{$\surd$}} +%\newcommand{\cross}{\mbox{$\times$}} +%\newcommand{\myh}[1]{\multicolumn{2}{c}{#1}} + +\newcommand{\myh}[1]{\multicolumn{2}{c}{#1}} +\newcommand{\myfile}[1]{\texttt{#1}\ } +\newcommand{\mysz}[2]{#2} +\[ +%\hspace{-0.5cm} +{\small%scriptsize +\begin{tabular}{@{\,}l@{}l@{}r@{\,}c@{}c@{}cc@{}cc@{}c@{}c@{}c@{}} \hline + & System &rules & \myLaTeX& \myh{Coq\mbox{\ \ }} & \myh{HOL} & \myh{Isabelle} \\% & \myh{Twelf} \\ + & & & & defn & mt & defn & mt & defn & mt \\ \hline % & defns & mt \\ \hline +\myfile{test10.ott} & untyped CBV lambda (Fig.~\mref{a10})&\mysz{ 5}{ 3}& \tick & \tick & & \tick & & \tick & & & \\ +\myfile{test10st.ott} & simply typed CBV lambda &\mysz{ 12}{ 6}& \tick & \tick &\tick & \tick & \tick & \tick & \tick & & \\ +\myfile{test8.ott} & ML polymorphism &\mysz{ 36}{ 22}& \tick & \tick & & \tick & & \tick & & & \\ \hline +%\myfile{test7a.ott} & POPLmark F$_{<:}$ &\mysz{ }{ 3} & \tick &\tick$^1$& &\tick$^1$ & &\tick$^1$ & & & \\ +\myfile{sys-roughlyfullsimple}&TAPL full simple &\mysz{119}{ 63}& \tick & \tick & \tick & \tick & \tick & \tick & \tick & & \\ \hline +%\myfile{sys-puresub} & TAPL - subtypes &\mysz{ }{ 3} & \tick & \tick & & \tick & & \tick & & & \\ +%myfile{sys-purercdsub} & TAPL - record subtypes &\mysz{ }{ ?}& \tick & \tick & & \tick & & \tick & & & \\ \hline +\myfile{test7b.ott} & POPLmark F$_{<:}$ with records% +% + &\mysz{ 99}{ 48} & \tick & & & & & & & & \\ \hline +% &\mysz{ 99}{ 48} & \tick & (1) & &(1) & & (1) & & & \\ \hline +% &\mysz{ }{ 3} +\myfile{leroy-jfp96.ott}& Leroy JFP96 module system &\mysz{142}{ 67}& \tick & & & \tick & & & & & \\ \hline +\myfile{} & RG-Sep language &\mysz{ }{ 22}& \tick & \tick & \tick & & & & & & \\ \hline +\myfile{} & Mini-Ott-in-Ott &\mysz{ }{ 55}& \tick & & & & & \tick & \tick$^2$ & & \\ \hline +% +\myfile{lj.ott} & LJ: Lightweight Java &\mysz{105}{ 34}& \tick & & & & & \tick & (3) & & \\ +\myfile{ } & LJAM: Java Module System &\mysz{ ?}{ 140}& \tick & & & & & \tick & & & \\ \hline +% +%\myfile{sys-bool} & TAPL - boolean values & \tick & \tick & & \tick & & \tick & & & \\ +%\myfile{sys-arith} & TAPL - integers & \tick & \tick & & \tick & & \tick & & & \\ +%\myfile{sys-puresimple} & TAPL - simply typed lambda & \tick & \tick & & \tick & & \tick & & & \\ +%\myfile{sys-tybool} & TAPL - stl + bool & \tick & \tick & & \tick & & \tick & & & \\ +%\myfile{sys-tuple} & TAPL - tuples & \tick & \tick & & \tick & & \tick & & & \\ +%\myfile{sys-sortoffullsimple} & TAPL - ... lots ... & \tick & \tick & & \tick & & \tick & & & \\ +% +%\myfile{minicaml\_plain} & OCaml fragment & \tick & \tick & & \tick & & & & & \\ +\myfile{minicaml\_typedef} & OCaml fragment &\mysz{612}{271}& \tick & \tick & & \tick & \tick$^1$ & \tick & & & \\[0.5mm] +% +\hline +\multicolumn{8}{l}{\qquad\footnotesize \mbox{}$^1$ see below. \quad\mbox{}$^2$ hand proofs. \quad\mbox{}$^3$ in progress.} +\end{tabular} +} +\] + +% {\scriptsize +% \begin{tabular}{llccccccccc} \hline +% name & system & \myLaTeX& \myh{Coq} & \myh{HOL} & \myh{Isabelle} & \myh{Twelf} \\ +% & & & defns & mt & defns & mt & defns & mt & defns & mt \\ \hline +% \texttt{test10.ott} & untyped CBV lambda & \tick & \tick & & \tick & & \tick & & & \\ +% \texttt{test10st.ott} & simply typed CBV lambda & \tick & \tick &\tick$^7$ & \tick & \tick$^6$ & \tick & \tick$^5$ & & \\ +% \texttt{test8.ott} & ML polymorphism & \tick & \tick & & \tick & & \tick & & & \\ \hline +% \texttt{test7a.ott} & POPLmark F$_{<:}$ & \tick &\tick$^1$& &\tick$^1$ & &\tick$^1$ & & & \\ +% \texttt{test7b.ott} & POPLmark F$_{<:}$ with records & \tick &\tick$^1$& &\tick$^1$ & &\tick$^1$ & & & \\ \hline +% % +% \texttt{leroy-jfp96.ott}& Leroy module system$^3$ & \tick & & & \tick & & & & & \\ \hline +% % +% \texttt{lj.ott} & LJ: Lightweight Java$^4$ & \tick & & & & & \tick & *$^4$ & & \\ \hline +% % +% \texttt{sys-bool} & TAPL - boolean values & \tick & \tick & & \tick & & \tick & & & \\ +% \texttt{sys-arith} & TAPL - integers & \tick & \tick & & \tick & & \tick & & & \\ +% \texttt{sys-puresimple} & TAPL - simply typed lambda & \tick & \tick & & \tick & & \tick & & & \\ +% \texttt{sys-tybool} & TAPL - stl + bool & \tick & \tick & & \tick & & \tick & & & \\ +% \texttt{sys-tuple} & TAPL - tuples & \tick & \tick & & \tick & & \tick & & & \\ +% \texttt{sys-sortoffullsimple} & TAPL - ... lots ... & \tick & \tick & & \tick & & \tick & & & \\ +% \texttt{sys-nearlyfullsimple}&TAPL - ... lots ...$^2$ & \tick & \tick & *$^7$ & \tick & \tick$^6$ & \tick & & & \\ +% \texttt{sys-puresub} & TAPL - subtypes & \tick & \tick & & \tick & & \tick & & & \\ +% \texttt{sys-purercdsub} & TAPL - record subtypes & \tick & \tick & & \tick & & \tick & & & \\ \hline +% % +% \texttt{minicaml\_plain} & OCaml fragment & \tick & \tick & & \tick & & & & & \\ +% \texttt{minicaml\_typedef} & OCaml fragment with type defs & \tick & \tick & & \tick & & & & & \\ +% % +% \hline +% \end{tabular} +% } + + + +\myaspect{TAPL full simple} +This covers most of the simple features, up to variants, from +TAPL~\cite{Pierce:TypeSystems}. +It demonstrates the utility of a very simple form of +\emph{modularity} provided by \texttt{ott}, allowing clauses of grammars and +semantic relations to be split between files. +The original TAPL languages were produced using +TinkerType~\cite{LevinPierce99} to compose features and check for +conflicts. +Here we build a system, similar to the TinkerType +\texttt{sys-fullsimple}, from \texttt{ott} source files that +correspond roughly to the various TinkerType components, each with +syntax and semantic rules for a single feature. +The \texttt{ott} source for \texttt{let} is shown in Fig.~\mref{a12}, +to which we add: +\texttt{common}, +\texttt{common\_index}, +\texttt{common\_labels}, +\texttt{common\_typing}, +\texttt{bool}, +\texttt{bool\_typing}, +\texttt{nat}, +\texttt{nat\_typing}, +\texttt{arrow\_typing}, +\texttt{basety}, +\texttt{unit}, +\texttt{seq}, +\texttt{ascribe}, +%\texttt{let}, +\texttt{product}, +\texttt{sum}, +\texttt{fix}, +\texttt{tuple}, and +\texttt{variant}. +It also proved easy to largely reproduce the TAPL visual style and +(though we did no proof) to add subtyping. +% +\begin{figure} +\framebox[\columnwidth]{\hspace{1.7mm}\begin{minipage}{\columnwidth} +%\footnotesize +%\small +\scriptsize +%\verbatiminput{../tests/test10.ott} +\input{../examples/tapl/let_alltt.ott}\end{minipage}} +\caption{An \texttt{ott} source file for the \texttt{let} fragment of TAPL\protect\label{a12}} +\end{figure} + +%\myaspect{POPLmark F$_{<:}$ with records} +%(1) As discussed in \S\mref{foo}, the generated proof assistant definitions for F$_{<:}$ are well-formed +% but the concrete variable representation in the generated code is +% not satisfactory here --- this version of the type system +% disallows all shadowing, so typing is not preserved by reduction. + +\myaspect{POPLmark F$_{<:}$} +The generated proof assistant definitions for F$_{<:}$ are well-formed + but the concrete variable representation in the generated code is + not satisfactory here --- this version of the type system + disallows all shadowing, so typing is not preserved by reduction. + + + +\myaspect{Leroy JFP96 module system} (Owens) +This formalizes Leroy's path-based type system +\cite[\S4]{Leroy-generativity}, extended with a term language and an +operational semantics based on work of Owens~\cite{OF06}. + + +\myaspect{RG-Sep language} (Vafeiadis, Parkinson) +This is a concurrent while language used for ongoing work combining +Rely-Guarantee reasoning with Separation Logic, defined and proved +sound by Vafeiadis and Parkinson~\cite{RGSEP}. + +\myaspect{Mini-Ott-in-Ott} +This precisely defines the \texttt{ott} binding specifications +(without list forms) with their fully concrete representation and +alpha equivalence. The metatheory here is a proof that for closed +substitutions the two coincide. To date only a hand proof has been +completed; we plan to mechanize it in due course. + +\myaspect{LJ and LJAM} (Strni\v sa, Parkinson) +LJ is an imperative fragment of Java. +LJAM extends that (again using \texttt{ott} modularity) with a +formalization of the core part of JSR-277 and a proposal for JSR-294, +which together form a proposal for a Java module system +\cite{ljam-sub}. + +\myaspect{OCaml fragment} (Owens, Peskine, Sewell) +This covers a substantial core of OCaml --- to a first approximation, +all except subtyping, objects, and modules. +Notable features that are handled are: +ML-style polymorphism; +% (with the traditional value restriction, not +% OCaml's relaxation); +pattern matching; +mutable references; +finiteness of the integer type; +%definitions of type aliases; +generative definitions of record and variant types; and +generative exception definitions. +%; and compilation units. +It does not cover much of the standard library, mutable records, arrays, +pattern matching guards, labels, polymorphic variants, objects, or +modules. +% +% +We have tried to make our definition mirror the behaviour of the +OCaml system rather closely. The OCaml manual~\cite{ocaml2005} +defines the syntax with a BNF; our syntax is based on that. +It describes the semantics in prose; our semantics is based on a +combination of that and our experience with the language. + +\myaspect{Experience} +Our experience with these examples has been very positive. The tool, +while not perfect, does make it easy to work with these +definitions, allowing one to focus on the content rather than the +proof assistant or \myLaTeX{} markup. + +For our most substantial example, the OCaml fragment, to date we have proved type preservation and +progress for the expression language, all machine-checked in HOL +except for one currently outstanding lemma (type substitution for type +variables) for +which we have a paper proof. +Alpha equivalence arises only in a lemma showing that typing is preserved by renaming the bound variables of a type scheme in the type environment. +This proof effort has +taken only around 7 man-weeks, and the preceeding definition effort +was only another few man-weeks. +Compared with our previous experiences this is remarkably lightweight: it +has been possible to develop this as an example, rather than requiring +a major research project in its own right. +Apart from \texttt{ott}, the work has been aided by HOL's powerful first-order +reasoning automation and its inductive definition package, and by the +use of the fully concrete representation. + + +We have attempted to ensure that the proof assistant definitions +generated by Ott are well-formed and what the user would intend. This +is not guaranteed, however, for several reasons: (1) There may be name +clashes between Ott-generated identifiers and proof assistant built-in +identifiers (or, in pathological cases, even among different +Ott-generated identifiers). (2) In some cases we depend on automatic +proof procedures, e.g.~for HOL definitions. These work in our test +cases, but it is hard to ensure that they will in all cases. More +importantly, (3) the generation process is complex, so it is quite +possible that there is either a bug in Ott or a mismatch between the +user expectation and what the tool actually does. Ultimately one has +to read the generated proof assistant definitions to check that they +are as intended --- but typically one would do this in any case, many +times over, in the process of proving metatheoretic results, so we do +not consider it a major issue. + + +\begin{figure} +\fbox{\begin{minipage}{\textwidth} +\input{test10.0.alltt} +\end{minipage}} +\caption{Source: \texttt{test10.0.ott}\protect\label{a4}} +\end{figure} + +\begin{figure} +\fbox{\begin{minipage}{\textwidth} +\input{test10.2.alltt} +\end{minipage}} +\caption{Source: \texttt{test10.2.ott}\protect\label{a4}} +\end{figure} + +\begin{figure} +\fbox{\begin{minipage}{\textwidth} +\input{test10.4.alltt} +\end{minipage}} +\caption{Source: \texttt{test10.4.ott}\protect\label{a4}} +\end{figure} + +\begin{figure} +\fbox{\begin{minipage}{\textwidth} +\input{test10.7.alltt} +\end{minipage}} +\caption{Source: \texttt{test10.7.ott}\protect\label{a4}} +\end{figure} + + + +\begin{figure} +\fbox{\begin{minipage}{\textwidth} +\verbatiminput{../tests/test10.ott} +\end{minipage}} +\caption{Source: \texttt{test10.ott}\protect\label{a4}} +\end{figure} + +\begin{figure} +\fbox{\begin{minipage}{\textwidth} +\testTenall +\end{minipage}} +\caption{Generated \myLaTeX: \texttt{test10.tex}\protect\label{a3}} +\end{figure} + + +\section{Example: Untyped CBV Lambda Calculus}\mlabel{a2}% +We begin with a small example, an untyped call-by-value lambda +calculus. Below we highlight the main points shown in this example +--- which uses many, but not all, of the features of Ott. We return +to the options in more detail in later sections. + +The complete Ott source file is shown in Fig.~\mref{a4}, the typeset +output in Fig.~\mref{a3}, and the generated Isabelle, Coq, and HOL files +in Figs.~\mref{a5}, \mref{a6}, and \mref{a40}. +% (the latter have been +%lightly hand-edited to remove redundant definitions so that they each fit +%on a page). + +Looking at the source file in Fig.~\mref{a4}, it begins by declaring a +metavariable form \texttt{x}, giving the Isabelle, Coq, and HOL types used +(\texttt{string}, \texttt{nat}, and \texttt{string} respectively) to represent concrete +variables, and also specifying how metavariables should be typeset. + +The following \texttt{grammar} block contains 4 grammar rules, defining +the (concrete and abstract) syntax for nonterminal roots \texttt{t}, +\texttt{v}, \texttt{terminals}. +% +Each rule has a rule name prefix (e.g.~\texttt{t\_}) and then a list +of productions. Each production, e.g. +\begin{verbatim} + \mysym{|} \ x . t :: :: Lam (+ bind x in t +) {{ com abstraction }} +\end{verbatim} +specifies a syntactic form as a list of elements, here `\verb+\+', +`\verb+x+', `\verb+.+', and `\verb+t+', each of which is either a +metavariable (the `\verb+x+'), a nonterminal (the `\verb+t+'), or a +terminal (the `\verb+\+' and `\verb+.+'). +Within productions all elements must be whitespace-separated (so that +the tool can deduce which are terminals). In the symbolic terms in +the rules below, however, whitespace is required only where necessary. + + +Metavariables and nonterminals can be formed from the specified +metavariable and nonterminal roots by appending a suffix, e.g.~the +nonterminal \verb+t'+ in the \verb+App+ and \verb+tsub+ productions. + +Terminals are not required to be declared in the \texttt{terminals} +grammar (all strings that are not metavariables or nonterminals are +regarded as terminals) but, if they are, then \myLaTeX{} pretty printing +information for them can be specified there. In this example the +`\verb+\+' is included in the \texttt{terminals} grammar and will be +\myLaTeX pretty printed as a $\lambda$, whereas the `\verb+.+' is not +included and will be pretty printed in a default form. +A few terminals have to be quoted in the grammar, as they are part of the Ott syntax, but they +do not have to be quoted at usage points. + + + +Between the \verb+::+s is an optional meta flag \verb+M+. Non-meta +productions give rise to clauses of datatype definitions in the +Isabelle/Coq/HOL output, whereas meta productions do not. + +Each production has a production name (e.g.~\verb+t_Lam+), composed of +the rule name prefix (e.g.~\verb+t_+) and the production name kernel +that follows the \verb+::+s (e.g.~\verb+Lam+). The production name is +used as a constructor name in the generated Isabelle/Coq/HOL. + +Following the production name is an optional binding specification +(e.g.~\verb-(+ bind x in t +)-), specifying which metavariables (or +nonterminals) bind in which nonterminals. This is used in the +generation of substitution and free variable functions. + +At present the generated Isabelle/Coq/HOL uses completely concrete +representations of variables in terms, without any notion of alpha +equivalence, as one can see in Fig.~\mref{a5}: +see the \verb+t+ datatype of terms and the \verb+tsubst_t+ +substitution function there. +We intend in future to generate other representations. +For a reasonably wide variety of +languages, however, one can capture the intended semantics of whole programs in +this idiom, subject only to the condition that standard library +identifiers are not shadowed within the program, as the operational +semantics does not involve reduction under binders --- so any +substitutions are of terms which (except for standard library +identifiers) are closed. This includes the ML polymorphism example of +\verb+test8.ott+.%\S\mref{a23}. +Unfortunately, for languages which require a type +environment with internal dependencies, for example F$_{<:}$, this is +no longer the case, and the POPLmark F$_{<:}$ example given in +\verb+test7.ott+ %\S\mref{a26} +has a type system which disallows all shadowing, a property that is +not preserved by reduction. + + + +Finally, there may be a number of homs, defining clauses of +homomorphisms from the grammar to strings. Certain homs have special +meanings, including: + +\begin{tabular}{ll} +\verb+com+ & defining comments used in \myLaTeX{} pretty prints of the grammar\\ +\verb+tex+ & defining how this production (and terms formed by it) are \myLaTeX{} pretty printed\\ +\verb+isa+ & (for meta productions) defining how the terms formed by +the production are translated into Isabelle\\ +\verb+coq+ & similarly for Coq\\ +\verb+hol+ & similarly for HOL\\ +\verb+ich+ & a shorthand for defining an identical triple of \verb+isa+, + \verb+coq+, and \verb+hol+ homs +\end{tabular} + +Section \mref{a41} gives a summary of all the usable homomorphisms. + +Following the \texttt{grammar} in this example is a \texttt{subrule} +declaration +\begin{verbatim} + subrules + v <:: t +\end{verbatim} +declaring that the \verb+v+ rule (of values) is a +subgrammar of the \verb+t+ rule (of terms). The tool checks that +there is in fact a subgrammar relationship, i.e.~that for each +production of the lower rule there exists a production of the higher +rule with corresponding elements (up to the subrule relation). +In the generated Isabelle/Coq/HOL for this example only one free +datatype is generated, for the \verb+t+ rule, whereas for the \verb+v+ +rule we generate an \verb+is_v+ predicate over the \verb+t+ type. Usages of +\verb+v+ nonterminals in the semantic rules have instances of this +predicate automatically inserted. + +We continue with a substitutions declaration +\begin{verbatim} + substitutions + single t x :: tsubst +\end{verbatim} +instructing the tool to generate Isabelle/Coq/HOL for a substitution +function replacing metavariables by terms. This is for single +substitutions; multiple substitution functions (taking lists of +substitutand/substitutee pairs) can also be generated. +Substitution functions are generated for all rules of the grammar for +which they might be required --- here, just over \verb+t+, with a +function named \verb+tsubst_t+. Such functions can be used in the +\verb+isa+/\verb+coq+/\verb+hol+ homomorphisms for meta syntax, e.g. as in the +production +\begin{verbatim} + | { t / x } t' :: M :: tsub {{ ich ( tsubst_t [[t]] [[x]] [[t']] ) }} +\end{verbatim} +introducing syntax for term substitution. + + +Finally, we give a collection of definitions of inductive relations. +In this example there is just one family of definitions (of +operational judgements), called \verb+Jop+; it contains just one +definition of a relation, called \verb+E+. The relation definition +also includes a grammar production specifying how elements of the +relation can be written and typeset, here +\begin{verbatim} + t1 --> t2 +\end{verbatim} +Syntax rules for each family of +judgements, and for their union, are implicitly generated. +The relation definition is given by a sequence of inference rules, +each with a horizontal line separating a number of premises from a +conclusion, for example as below. +\begin{verbatim} + t1 --> t1' + -------------- :: ctx_app_arg + v t1 --> v t1' +\end{verbatim} +The conclusion must be a symbolic term of the form of the judgement being +defined. +In simple cases (as here) the premises can be symbolic terms of the +form of any of the defined judgements. More generally (see +\S\mref{a13}) they can be symbolic terms of a user-defined +\texttt{formula} grammar. +Each rule + has a name, composed of a definition family prefix +(here empty), a definition prefix (here also empty) and a kernel +(the~\verb+ctx_app_arg+). + + + + + + + + + +\begin{figure} +\fbox{\begin{minipage}{\textwidth} +\verbatiminput{test10.thy} +%\verbatiminput{test10.hand.edited.thy} +\end{minipage}} +\caption{Generated Isabelle:\texttt{test10.thy}\protect\label{a5}} +\end{figure} + +\begin{figure} +\fbox{\begin{minipage}{\textwidth} +\verbatiminput{test10.v} +%\verbatiminput{test10.hand.edited.v} +\end{minipage}} +\caption{Generated Coq:\texttt{test10.v}\protect\label{a6}} +\end{figure} + +\begin{figure} +\fbox{\begin{minipage}{\textwidth} +\verbatiminput{test10Script.sml} +\end{minipage}} +\caption{Generated HOL:\texttt{test10Script.sml}\protect\label{a40}} +\end{figure} + + +% \section{\texttt{test1}} +% \testOneall +% +% \section{\texttt{test8}} +% \testEightall + +\clearpage + +\section{Command-line Usage}\mlabel{a32}% +The best place to get started is probably one of the test +\texttt{make} targets in the \texttt{ott} directory, e.g. +\begin{verbatim} +test10: tests/test10.ott + bin/ott \ + -isabelle out.thy -coq out.v -hol outScript.sml \ + -tex out.tex \ + -parse ":t: (\z.z z) y" \ + tests/test10.ott \ + && ($(LATEX) out; $(DVIPS) out -o) +\end{verbatim} +When \verb+make test10+ is executed, \texttt{ott}: +\begin{itemize} +\item reads the source file \verb+tests/test10.ott+ +\item prints on standard output various diagnostic information, + including ASCII versions of the grammar and + inductive definitions. + By default these are coloured (using + \verb+vt220+ control codes) with metavariables in red, nonterminals + in yellow, terminals in green, and object variables in white. + Scanning over this output quickly picks up some common errors. +\item parses the symbolic term \verb+(\z.z z) y+ using the \verb+t+ + grammar and prints the result to standard output +\item generates Isabelle definitions in the file \verb+out.thy+ +\item generates Coq definitions in the file \verb+out.v+ +\item generates HOL definitions in the file \verb+outScript.sml+ +\item generates a \myLaTeX{} document in the file \verb+out.tex+, with a + standard document preamble to make it self-contained. +\end{itemize} +That \myLaTeX{} document is then compiled and converted to postscript. + +If multiple source files are specified then they are (after parsing) +concatenated together. + + +The~\verb+%.out+ \verb+Makefile+ target runs \verb+ott+ with common +defaults on the file~\verb+%.ott+, so for example executing \verb+make tests/test10.out+ +runs \verb+ott+ on \verb+tests/test10.ott+, generating all outputs. There are +also targets ~\verb+%.coq.out+, ~\verb+%.hol.out+, and +~\verb+%.isa.out+, to generate just LaTeX and the code for one proof +assistant, and ~\verb+%.tex.out+, to generate just LaTeX. + + + +The \texttt{ott} command-line options (with default values where applicable) are +shown below. +\verbatiminput{options.txt} + +%By default the Makefile compiles Ott using \texttt{ocamlopt}. To force it to +%compile with \texttt{ocamlc} (to get backtraces on exceptions) do \texttt{make opt}. + +\section{Examples}\mlabel{a33}% +The distribution contains several small examples in the \verb+tests+ +directory. Typically they can be built using the \verb+Makefile+ in +the \verb+ott+ directory, e.g.~typing \verb+make test10+ or (more generally) \verb+make tests/test10.out+) there. + +% test-j.ott HAT calculus +% test1.ott typing for functions and pairs +% test2.ott hom examples +% test3.ott typing and reduction for functions, let, ;, if +% test4.ott dot form examples +% test5.ott reduction for functions and pair patterns, using auxfns +% test6-tex.ott typing and reduction for functions and pairs, with com and tex homs +% test6.ott typing and reduction for functions and pairs, with com and tex homs +\begin{tabular}{ll} + \verb+test10.ott+ & untyped CBV lambda\\ + \verb+test10st.ott+ & simply typed CBV lambda\\ + \verb+test8.ott+ & ML polymorphism example\\ + \verb+test7a.ott+ & POPLmark Fsub example (without records)\\ + \verb+test7b.ott+ & POPLmark Fsub example (with records)\\ + \verb+leroy-jfp96.ott+& Leroy module system \\ + \verb+lj.ott+ & LJ: Lightweight Java\\ + \verb+test7t.mng+ & whole-document tex mng source\\ + & (\verb+make test7afilter+ to build) \\ + \verb+test7tt.mng+ & fragment tex mng source\\ +% test8p.ott ML polymorphism example with record patterns +% test9.ott notes on multiple language definitions +% test10st_metatheory.thy +% test10st_snapshot_out.thy + \verb+test11.ott+ & subrule example\\ + \verb+test12.ott+ & topological sort example\\ + \verb+test13.ott+ & small bindspec fragment\\ +% test13b.ott larger bindspec fragment +\verb+test10st_snapshot_out.thy+ & snapshot of generated Isabelle from \verb+test10st.ott+ \\ +\verb+test10st_metatheory_autoed.thy+ & Isabelle proof script for type +preservation and progress \\ +\verb+test10st_codegen.thy+ & Isabelle code generation script for reduction\\ +\verb+test10_isasyn.ott+ & Isabelle mixfix syntax example\\ +\verb+test10st_metatheoryScript.sml+ & HOL proof script for type preservation and progress \\ + \verb+test17.10.ott+ & list comprehension examples\\ +\end{tabular} + +The \verb+examples/tapl+ directory contains several examples taken from the book `Types and Programming Languages' by Benjamin Pierce. These can be built using the \verb+Makefile+ in +the \verb+ott+ directory. The targets, listed below, combine \verb+ott+ source files +following roughly the TinkerType component structure used in TAPL. + +\begin{tabular}{ll} + \verb+sys-bool+ & booleans (p34) \\ + \verb+sys-arith+ & arithmetic expressions (p41) \\ + \verb+sys-untyped+ & untyped lambda-calculus with booleans \\ + \verb+sys-puresimple+ & simply-typed lambda-calculus \\ + \verb+sys-tybool+ & typed booleans \\ + \verb+sys-tuple+ & \\ + \verb+sys-sortoffullsimple+& \\ + \verb+sys-roughlyfullsimple+& \\ + \verb+sys-puresub+ & \\ + \verb+sys-purercdsub+ & \\ +\end{tabular} + + + +\section{Features} +This section describes the main Ott features. It assumes the reader +has read \S\mref{a2}. +\myparagraph{Grammar}\mlabel{a7}% +The tool supports arbitrary context-free grammars, extended with +special constructs for dotted list forms (c.f.~\S\mref{a21}). +% +It builds a recursive descent parser for parsing symbolic terms in +semantic rules, finding all parses up to a certain depth, and reports +an error if there are multiple parses or no parses. +% +To resolve ambiguity one can add metaproductions for parentheses (as +in Fig.~\mref{a4}), or +production-name annotations in particular symbolic terms, +e.g.~the \verb+:t_tsub:+ in the \verb+AppAbs+ rule of the POPLmark +example, \S\mref{a27}. +% +%The current parser implementation is very naive; its performance on +%larger terms can be a problem. Occasionally one must add a +%\verb+:deeper:+ annotation to a symbolic term to increase the search +%depth, as in the \verb+ax_app+ rule of Fig.~\mref{a4}. + + +\myparagraph{Lexing}\mlabel{a8}% +There are fixed lexical conventions. +In a production of the grammar specification, +the elements must be blank-separated (blanks are +\verb+( |\010|\009|\013|\012)+). + +% Nonterminals and metavariables must be idents: +% \begin{verbatim} +% ident = ([A-Z]|[a-z]|[_]) ([A-Z]|[a-z]|[0-9]|[_]|['])* +% \end{verbatim} +% Terminals must either be idents or strings that do not contain blanks +% and do not start with \verb+([A-Z]|[a-z])+. +% +% (These conventions are broadly similar to those of OCaml, except that, +% for ease of \myLaTeX{} output, we disallow accented characters in +% idents. + +(To precisely express the concrete syntax of existing full +languages would typically need more flexibility.) + +To allow the Ott tokens to appear in an object language, elements in +a grammar specification may be quoted, \verb+'thus'+. Any string +surrounded by a pair of single quotes has those quotes removed. + + + +\myparagraph{Metavariables, Nonterminals, and Suffixes}\mlabel{a9}% +Declarations of metavariable roots and rules defining nonterminal +roots can specify any number of synonyms, for example the +\verb+termvar+, \verb+x+, \verb+y+, and \verb+z+ in +\begin{verbatim} + metavar termvar , x , y , z ::= {{ isa string }} {{ coq nat }} {{ hol num }} {{ ocaml int }} +\end{verbatim} +and the \verb+t+ and \verb+u+ in +\begin{verbatim} + t , u :: '' ::= + | x :: :: Var + | \ x : T . t :: :: Lam (+ bind x in t +) + | t t' :: :: App +\end{verbatim} +The first such (here \verb+termvar+ and \verb+t+) is taken to be the +primary root, and is used to build the corresponding type name in +Isabelle/Coq/HOL/OCaml output. + +Occurrences of metavariables and nonterminals, both in productions of +the grammar specification and in symbolic terms in semantic rules, +can be formed by adding a suffix to a metavariable or nonterminal +root, for example the \verb+t'+ in the \verb+App+ rule above. + +The user can declare any number of distinguished `index' +metavariables, e.g. by: +\begin{verbatim} + indexvar index , i , j , n , m ::= {{ isa num }} {{ coq nat }} {{ hol num }} {{ ocaml int }} +\end{verbatim} +Given such a declaration, \verb+index+, \verb+i+, \verb+j+, \verb+n+ +and \verb+m+ can be used in suffixes, e.g.~in the production +\begin{verbatim} + | ( t1 , .... , tn ) :: :: Tuple +\end{verbatim} +There is a fixed ad-hoc language of suffixes, including numbers, primes, and index variables (see \S\mref{a17}). +Index metavariables cannot themselves be suffixed. + + +Metavariable declarations can include a \verb+lex+ homomorphism +specifying the syntactic form of the corresponding concrete +variables, and an \verb+isavar+ homomorphism specifying how such +strings should be translated into Isabelle. For example, one might write +\begin{verbatim} + metavar typevar , X ::= {{ isa string }} {{ lex Alphanum }} + metavar termvar , x ::= {{ isa string }} {{ lex alphanum }} +\end{verbatim} +Similarly, one can specify how concrete variables should be \myLaTeX'd, e.g.~with +the homomorphisms \verb+{{ texvar \mathrm{[[typevar]]} }}+ and \verb+{{ isavar ''[[termvar]]'' }}+. + +\textbf{At present \texttt{lex} homomorphism must have body either} + \texttt{Alphanum} (\verb+[A-Z]([A-Z]|[a-z]|[0-9]|'|_)*+), + \texttt{alphanum} (\verb+([A-Z]|[a-z])([A-Z]|[a-z]|[0-9]|'|_)*+), + \texttt{alphanum0} (\verb+[a-z]([A-Z]|[a-z]|[0-9]|'|_)*+), or + \texttt{numeral} (\verb+[0-9][0-9]*+); \textbf{more general regexps are not supported.} + +One can likewise specify how metavariables themselves should be +\myLaTeX'd, e.g.~with a homomorphism +\verb+{{ tex \mathit{[[typevar]]} }}+. + +For Coq output, one can specify \verb+{{ coq-equality+ \textit{proof-script} \verb+}}+ +to build a decidable equality over the Coq representation type using +the proof \textit{proof-script}. If the script is omitted it defaults +to +\begin{verbatim} +Proof. + decide equality; auto with ott_coq_equality arith. +Defined. +\end{verbatim} +where the \verb+ott_coq_equality+ database contains the decidable +equalities of the representation types defined in the source. + +\myparagraph{Grammar Rule Homomorphisms}\mlabel{a11}% +% +Grammar rules can be annotated with various homomorphisms. + +First, the individual nonterminal roots can have \verb+tex+ +homomorphisms specifying how they should be typeset, e.g.~ +\begin{verbatim} +G {{ tex \Gamma }} , D {{ tex \Delta }} :: 'G_' ::= {{ com type environment }} + | empty :: :: empty + | G , x : T :: :: term +\end{verbatim} +permitting the user to write \verb+G'+, \verb+D12+ etc.~in symbolic +terms, to be typeset at $\Gamma'$, $\Delta_{12}$, etc. + +Second, the rule can include a \verb+tex+ hom specifying how all the + nonterminal roots should be typeset, e.g. +\begin{verbatim} + type , t , s :: Typ_ ::= {{ tex \mathsf{[[type]]} }} + | unit :: :: unit + | type * type' :: :: pair + | type -> type' :: :: fun +\end{verbatim} +Here that \verb+tex+ hom overrides the default typesetting with +\verb+\mathsf+. + +Third, the rule can include a \verb+com+ hom giving a comment to +include in typeset versions of the grammar itself, e.g.~the +\verb+{{ com type environment }}+ above. + +Fourth, the rule can include a \verb+coq equality+ hom, instructing +the Coq code generator to derive a decidable equality for the Coq +representation type. For example, the ML polymorphism Ott source of +\texttt{test8.ott} includes the following. +\begin{verbatim} + typvar :: TV_ ::= {{ coq-equality decide equality. apply eq_value_name_t. }} + | ' ident :: :: ident +\end{verbatim} + +Fifth, and most fundamentally, the rule can include \verb+isa+, \verb+coq+, +\verb+hol+, or \verb+ocaml+ homs specifying a proof-assistant (or OCaml) type, e.g. in the +following rule for substitutions. +\begin{verbatim} + s {{ tex \sigma }} :: 'S_' ::= {{ com multiple subst }} {{ isa (termvar*t) list }} + | [ x |-> t ] :: :: singleton {{ isa [ ([[x]],[[t]]) ] }} + | s1 , .. , sn :: :: list {{ isa List.concat s_list }} +\end{verbatim} +Here the \verb+{{ isa (termvar*t) list }}+ hom specifies that in +Isabelle output this type be represented as an Isabelle +\verb+(termvar*t) list+ instead of the (default) free grammar. + + + +\myparagraph{Production Homomorphisms}\mlabel{a12}% +Each production may also have \verb+coq+ and \verb+isa+ homomorphisms, +specifying how symbolic terms should be translated into Isabelle/Coq/HOL/OCaml +expressions, e.g.~as in the last example of the previous +section. This overrides the default translation into terms of a free +grammar. + +Productions may also have \verb+tex+ homs, overriding the default +\myLaTeX{} typesetting, e.g.~as in this example of +a type abstraction production from \texttt{test7.ott}. +\begin{verbatim} + | \ X <: T . t :: :: TLam (+ bind X in t +) + {{ com type abstraction }} + {{ tex \Lambda [[X]] [[<:]] [[T]]. \, [[t]] }} +\end{verbatim} +They may also have a comment, e.g.~the \verb+{{ com type abstraction }}+, to +appear in typeset versions of the grammar itself. + +All these homomorphisms can refer to the metavariables and +nonterminals that occur in the production, e.g.~the \verb+[[X]]+, +\verb+[[T]]+, and \verb+[[t]]+ in the \verb+tex+ hom above, +interleaved with arbitrary strings and with typeset elements of the +\verb+terminals+ grammar, e.g.~the \verb+[[<:]]+. + +Homomorphisms are applied recursively down the structure of symbolic +terms. For example, the \texttt{TappTabs} rule of \texttt{test7.ott} has a +conclusion with a subterm +\begin{verbatim} + (\X<:T11.t12) [T2] +\end{verbatim} +This is \myLaTeX-pretty-printed, using the \verb+tex+ homomorphism +clause above, as +\begin{verbatim} +( \, \Lambda \mathit{X} <: \mathit{T_{\mathrm{11}}} . \, \mathit{t_{\mathrm{12}}} \, ) + \, \, [ \, \mathit{T_{\mathrm{2}}} \, ] +\end{verbatim} +which is typeset as below. +\[ +( \, \Lambda \mathit{X} <: \mathit{T_{\mathrm{11}}} . \, \mathit{t_{\mathrm{12}}} \, ) \, \, [ \, \mathit{T_{\mathrm{2}}} \, ] +\] +Note the \verb+X+, \verb+T11+ and \verb+t12+ of the symbolic term are +used to instantiate the formal parameters \verb+X+, \verb+T+ and +\verb+t+ of the homomorphism definition clause. +% +If the \verb+t+ itself had compound term structure, e.g. as below +\begin{verbatim} + (\X<:T. \X'<:T'.x) +\end{verbatim} +the homomorphism would be applied recursively, producing +\begin{verbatim} +( \, \Lambda \mathit{X} <: \mathit{T} . \, \Lambda \mathit{X'} <: \mathit{T'} +. \, \mathit{x} \, \, ) +\end{verbatim} +typeset as follows. +\[( \, \Lambda \mathit{X} <: \mathit{T} . \, \Lambda \mathit{X'} <: \mathit{T'} . \, \mathit{x} \, \, )\] +Where there is no user-supplied homomorphism clause the \myLaTeX{} +pretty-printing defaults to a sequence of the individual items +separated by thin spaces (\verb+\,+), +with reasonable default fonts and making use of the \verb+terminals+ grammar where appropriate. + + +\myparagraph{Subrules}\mlabel{a14}% +Subrule declarations have the form +\begin{verbatim} + subrules + nt1 <:: nt2 +\end{verbatim} +where \verb+nt1+ and \verb+nt2+ are nonterminal roots. + + +Subrules can be chained, i.e.~there can be a pair of +subrule declarations \verb+nt1 <:: nt2+ and \verb+nt2 <:: nt3+, +and they can form a directed acyclic graph, e.g.~with +\verb+nt0 <:: nt1+, \verb+nt0 <:: nt2+, +\verb+nt1 <:: nt3+, and \verb+nt2 <:: nt3+. However, there cannot be +cycles, or nonterminal roots for which there are multiple upper bounds. +Subrule declarations should not involve nonterminal roots for which +proof-assistant type homs are specified. + +We support the case in which the upper rule is also +non-free, i.e.~it contains productions that mention nonterminals that +occur on the left of a subrule declaration. In the example below +(\verb+test11.ott+) the +\verb+t+ rule contains a production \verb+Foo v+. +\verbatiminput{../tests/test11.ott} +In this case generated Isabelle/Coq/HOL/OCaml will define a single type and both \verb+is_v+ +and \verb+is_t+ predicates, and the generated inductive definition +clause for \verb+ax+ uses both predicates. The Isabelle clause is below. +\begin{verbatim} + axI: "[|is_t t ; is_v v|] ==> ( t , v ) : Baz" +\end{verbatim} + + + + +\myparagraph{Topological Sorting}\mlabel{a19}% +The grammar rules of a syntax definition may depend on each other arbitrarily. +When generating Isabelle/Coq/HOL/OCaml representation types, however, they are +topologically sorted (to simplify the resulting induction +principles). For example, this source file (\verb+test12.ott+) +\verbatiminput{../tests/test12.ott} +gives rise to the following Coq and Isabelle. +\[\vspace{-0.5cm} +\begin{minipage}{0.43\textwidth} +\verbatiminput{test12.v} +\end{minipage} +\begin{minipage}{0.45\textwidth} +\verbatiminput{test12.thy} +\end{minipage} +\] +In contrast, at present the inductively defined relation definitions +are not topologically sorted --- instead, each \verb+defns+ block +gives rise to a group of mutual definitions, so the user has control. + + +\myparagraph{Formulae and Judgements}\mlabel{a13}% +The system synthesises a grammar of the syntactic forms of judgements +for each \verb+defns+ block, a grammar \verb+judgement+ of +their union, and a grammar \verb+user_syntax+ of the union of all the +user-defined syntax. + +If there is no \texttt{formula} grammar then the system adds a default +definition, as if the source included the following. +\begin{verbatim} + formula :: 'formula_' ::= + | judgement :: :: judgement +\end{verbatim} +If the user defines a \texttt{formula} grammar then the production +name prefix must be \texttt{formula\_} and the name for the +\texttt{judgement} production must be \texttt{judgement}, as above. + +For the example of Fig.~\mref{a4} these are as below. +%\testTenMetagrammar + +\testTenMetagrammartabular{ +%\testTenMetat +%\testTenMetav +%\testTenMetaterminals +\testTenMetaformula\testTenMetainterrule +\testTenMetaJop\testTenMetainterrule +\testTenMetajudgement\testTenMetainterrule +\testTenMetauserXXsyntax\testTenMetaafterlastrule +} + +The \verb+formula+ grammar (whether user-defined or the default) defines the syntax of +premises of inductive definition rules. In simple cases this can just +have a single production allowing arbitrary judgements, as above. In +richer examples one may need parentheses, conjunction and disjunction, +etc. +Care is needed with quantifiers ranging over subrule types, as these +will not be automatically handled correctly. + + + + + + + + +\myparagraph{Binding}\mlabel{a10}% +\begin{figure}[t] +\fbox{\begin{minipage}{\textwidth} +{\small +\testThirteendgrammar +} +\end{minipage}} +\caption{Ott Source Grammar: a Simplified Fragment\protect\label{a31}} +(Omitting dot forms, non-primary nonterminal and metavariable +roots, meta flags, homomorphism definitions, and non-\verb+''+ +production-name prefixes.) +\end{figure}% +%\testThirteengrammartabular{ +%\testThirteenbindspec +%} +Ott supports a rich class of binding specifications. +Each production can be annotated with a number of `bindspec's. +As shown in the grammar in Fig.~\mref{a31} (a simplified fragment of the Ott input +language), these are of two forms. +The first, +\[\texttt{bind} \, \mathit{mse} \, \texttt{in} \, \mathit{nonterm} \] +declares that the metavariables and nonterminals denoted by +the $\mathit{mse}$ expression are binding in the $\mathit{nonterm}$. +The second, +\[ +\mathit{auxfn} \, = \, \mathit{mse} +\] +lets the user define \emph{auxiliary functions} to collect +selected metavariables and nonterminals of subterms. +For example, consider the Ott source below for expressions with \texttt{let} +binding of pair patterns (based on \texttt{test8p.ott}). +{\small +\begin{verbatim} +metavar value_name , x ::= {{ isa string }} + +expr , e :: E_ ::= + | value_name :: :: ident + | ( expr1 , expr2 ) :: :: pair + | expr expr' :: :: apply + | function value_name -> expr :: :: function (+ bind value_name in expr +) + | let p = expr in expr' :: :: let (+ bind binders(p) in expr' +) + +pattern , p :: 'P_' ::= + | value_name :: :: ident (+ binders = value_name +) + | ( p1 , p2 ) :: :: pair (+ binders = binders(p1) union binders(p2) +) +\end{verbatim} +} +Here the bindspec for functions simply binds the single +\verb+value_name+ metavariable that occurs in the production. +The bindspec for lets, however, binds all the `\texttt{binders}' of +the pattern \texttt{p}. Here \texttt{binders} is an auxiliary +function, taking a pattern and returning a set of \verb+value_name+ +metavariables. It is defined by two clauses, one for each production +of the \verb+pattern+ grammar. +They state that the \verb+binders+ of a \verb+value_name+ are just the +singleton set $\{\verb+value_name+\}$ and that the \verb+binders+ of a +pair pattern are the union of the \verb+binders+ of the two subpatterns. + +Each auxiliary function can be defined over multiple rules of a +grammar, but must return sets of a single type (a particular +metavariable root or nonterminal root). + + +\myparagraph{Substitutions}\mlabel{a15}% +The tool can generate Isabelle/Coq/HOL/OCaml for both single and multiple +substitution functions. For example, the ML polymorphism Ott source +of \verb+test8.ott+ +%\S\mref{a24} +includes the following. +\begin{verbatim} + substitutions + single expr value_name :: subst + multiple typexpr typvar :: tsubst +\end{verbatim} +This causes the generation of two families of substitution +functions, one replacing a single \verb+value_name+ by a \verb+expr+, +the other replacing multiple \verb+typvar+s by \verb+typexpr+s. + +Each family contains a function for each datatype for which it is +required, so in that example there are functions +\verb+subst_expr+ for the first and \verb+tsubst_typexpr+, +\verb+tsubst_typscheme+ and \verb+tsubst_G+ for the second. + +The function for substitutions +\begin{verbatim} + substitutions + single this that :: name1 + multiple this that :: name2 +\end{verbatim} +replaces terms of productions consisting just of a \verb+that+ by a +\verb+this+. +Here \verb+this+ must be a nonterminal root, while \verb+that+ can be +either a metavariable root or a nonterminal root (the latter +possibility allows substitution for compound identifiers, though it is +not clear that this is generally useful enough to be included). +Substitution functions are requried for each member of each (mutually recursive) +block of grammar rules which either contain such a production or (indirectly) +refer to one that does. + +At present multiple substitutions are represented by Isabelle/Coq/HOL/OCaml +lists, so for the example above we have Isabelle +\begin{verbatim} + tsubst_typexpr :: "(typvar*typexpr) list => typexpr => typexpr" + tsubst_typscheme :: "(typvar*typexpr) list => typscheme => typscheme" + tsubst_G :: "(typvar*typexpr) list => G => G" +\end{verbatim} +The generated functions do not substitute bound things, and recursive +calls under binders are filtered to remove the bound things. + + + +\myparagraph{Free Variables}\mlabel{a16}% +Similarly, the tool can generate Isabelle/Coq/HOL/OCaml to calculate the free +variables of terms. For example, the ML polymorphism Ott source +of \texttt{test8.ott} includes the following. +\begin{verbatim} + freevars + typexpr typvar :: ftv +\end{verbatim} +This causes Isabelle functions as below to be generated, calculating +the free \texttt{typvar}s that occur in singleton productions in the +\texttt{typexpr} grammar within terms of each type. +\begin{verbatim} + ftv_typexpr :: "typexpr => typvar list" + ftv_typscheme :: "typscheme => typvar list" + ftv_G :: "G => typvar list" +\end{verbatim} + +\myparagraph{List Dot Forms}\mlabel{a21}% +The tool has direct support for indexed list syntax (`dot forms'), for example as +used in the \S\mref{a23} type schemes: + +{\small\testEightgrammartabular{\testEighttypscheme\testEightafterlastrule}} + +and in the \texttt{test7.ott} record types, record terms, and record +patterns (below we give fragments of the \texttt{test7.ott} grammars, +omitting some productions): + +{\small\testSevengrammartabular{ +\testSevenrulehead{\testSevennt{T} ,\ \testSevennt{S} ,\ \testSevennt{U}}{::=}{\testSevencom{type}}\\ +\testSevenprodline{|}{\ldots}{}{}{}{}\\ +\testSevenprodline{|}{\testSevenkw{\{} \, \mathit{l_{{\mathrm{1}}}} \, : \, \testSevennt{T_{{\mathrm{1}}}} \, , \, .. \, , \, \mathit{l_{\testSevenmv{n}}} \, : \, \testSevennt{T_{\testSevenmv{n}}} \, \testSevenkw{\}}}{}{}{}{\testSevencom{record}}\testSeveninterrule +% +\testSevenrulehead{\testSevennt{t}}{::=}{\testSevencom{term}}\\ +\testSevenprodline{|}{\ldots}{}{}{}{}\\ +\testSevenprodline{|}{\testSevenkw{\{} \, \mathit{l_{{\mathrm{1}}}} \, \!\! = \!\! \, \testSevennt{t_{{\mathrm{1}}}} \, , \, .. \, , \, \mathit{l_{\testSevenmv{n}}} \, \!\! = \!\! \, \testSevennt{t_{\testSevenmv{n}}} \, \testSevenkw{\}}}{}{}{}{\testSevencom{record}}\\ +\testSevenprodline{|}{\testSevenkw{let} \, \testSevennt{p} \, \!\! = \!\! \, \testSevennt{t} \, \testSevenkw{in} \, \testSevennt{t'}}{}{\textsf{bind}\; \textrm{b}(\testSevennt{p})\; \textsf{in}\; \testSevennt{t'}}{}{\testSevencom{pattern binding}}\testSeveninterrule +% +\testSevenrulehead{\testSevennt{p}}{::=}{\testSevencom{pattern}}\\ +\testSevenprodline{|}{\mathit{x} \, : \, \testSevennt{T}}{}{\textrm{b}=\mathit{x}}{}{\testSevencom{variable pattern}}\\ +\testSevenprodline{|}{\testSevenkw{\{} \, \mathit{l_{{\mathrm{1}}}} \, \!\! = \!\! \, \testSevennt{p_{{\mathrm{1}}}} \, , \, .. \, , \, \mathit{l_{\testSevenmv{n}}} \, \!\! = \!\! \, \testSevennt{p_{\testSevenmv{n}}} \, \testSevenkw{\}}}{}{\textrm{b}=\textrm{b}(\testSevennt{p_{{\mathrm{1}}}}..\testSevennt{p_{\testSevenmv{n}}})}{}{\testSevencom{record pattern}}\testSevenafterlastrule +} +} + +Dot forms can be used in symbolic terms in semantic rules: +{\small \[\testSevendruleTyXXRcd{}\]} + +Individually indexed projections from dot forms can be mentioned, eg +the $l_j$ below: +{\small \[\testSevendruleTyXXProj{}\]} + +Symbolic terms can also include concatenations of two dot forms with a +singleton in between: +{\small \[\testSevendrulereduceXXCtxXXrecord{}\]} + +Multiple dot forms within the same semantic rule can share bounds (e.g.~$1..m$): +{\small \[\testSevendruleMXXRcd{}\]} + + +In more detail, productions can have dot tokens interspersed between the elements. +These consist of two, three or four consecutive dots (\verb+..+, +\verb+...+, or \verb+....+), indicating lists with minimum lengths $0$, +$1$, and $2$ respectively\footnote{These length minimums are respected + when parsing concrete lists, but are not present in Isabelle/Coq/HOL + output.}. +The tool identifies the maximal sequence of elements on either side of +the dots that are identical modulo anti-unification of some +index. Optionally, there may also be a single terminal on either side +of the dot token, separating instances of the repeated unit. +For example, in the \texttt{test7.ott} production +\begin{verbatim} + | { l1 = t1 , .. , ln = tn } :: :: Rec +\end{verbatim} +there is such a terminal (the `\verb+,+'). The tool identifies +that \verb+l1 = t1+ and \verb+ln = tn+ can be anti-unified as +(roughly) \verb+l_ = t_+, taking \verb+_+ to be the bounds \verb+1+ and \verb+n+. +A single production may contain multiple dot forms, but they must not overlap; +nested dot forms (including those with multiple changing indices) are not currently +supported. + +Binding specifications are generalised to match: an \verb+mse+ can +involve a dot form of metavariables (e.g.~the +$\mathit{typvar_{\mathrm{1}}}..\mathit{typvar_{\mathit{n}}}$ above); +a dot form of nonterminals; or an auxiliary function applied to a dot +form +of nonterminals (e.g.~the +$\textrm{b}(\mathit{p_{\mathrm{1}}}..\mathit{p_{\mathit{n}}})$ above). +Dot forms on the right of a \textsf{bind} are not currently supported. + + + + + + + + +The generated Isabelle/Coq/HOL/OCaml types for dot forms involve lists of +tuples, e.g.~for the production above: +\par\noindent{\small +\begin{verbatim} + datatype + t = + ... + | t_Rec "(label*t) list" + ... +\end{verbatim} +} +The generated code for a rule involving dot forms involves, for each +bound that occurs, a generated variable for the list of tuples of +nonterminals and metavariables that occurred with that bound. For +example, the generated Isabelle for the first three rules above is +shown below (lightly hand-edited for format). The first involves an +Isabelle variable \verb+l_t_T_list+, and list maps and projections +thereof. +\par\noindent{\small +\begin{verbatim} +Ty_RcdI: " + [|(formula_formuladots ((List.map (%(l_,t_,T_).( ( G , t_ , T_ ) : Ty)) l_t_T_list)))|] + ==> + ( G , + (t_Rec ((List.map (%(l_,t_,T_).(l_,t_)) l_t_T_list))) , + (T_Rec ((List.map (%(l_,t_,T_).(l_,T_)) l_t_T_list))) + ) : Ty" + +Ty_ProjI: " + [| ( G , t , (T_Rec (l_T_list)) ) : Ty|] ==> + ( G , + (t_Proj t (%(l_,T_).l_) (List.nth l_T_list (j - 1))) , + (%(l_,T_).T_) (List.nth l_T_list (j - 1)) + ) : Ty" + +E_Ctx_recordI: " +[| List.list_all (%(l_,v_).is_v v_) l_v_list ; + ( t , t' ) : E|] +==> + ( (t_Rec (l_v_list @ [(l,t)] @ l_'t_'list)) , + (t_Rec (l_v_list @ [(l,t')] @ l_'t_'list)) + ) : E" +\end{verbatim} +} +The generated code for substitutions and free variables takes account of such list structure. + +Note that at present the generated Isabelle code for these functions +does not always build without change, in particular if tuples of size +3 or more are required in patterns. + + +Proof assistant homomorphisms in productions can refer to dot-form +metavariables and nonterminals. For example, the second production +below (taken from \verb+test17.9+) mentions \verb+[[x1 t1 ... xn tn]]+ in the \verb+isa+ +homomorphism. This must exactly match the dot form in the production +except that all terminals must be omitted --- the metavariables and +nonterminals must occur in the same order as in the production, and +the bounds must be the same. +\par\noindent{\small +\begin{verbatim} +E :: 'E_' ::= {{ isa ( ident * t ) list }} + | < > :: :: 1 {{ isa [] }} + | < x1 : t1 , ... , xn : tn > :: :: 2 {{ isa List.rev [[x1 t1 ... xn tn]] }} + +formula :: formula_ ::= + | judgement :: :: judgement + | formula1 .. formulan :: :: realdots {{ isa (List.list_all (\ b . b) ( [[ formula1 .. formulan ]] ) ) }} + +\end{verbatim} +} +The generated Isabelle code for symbolic +terms mentioning this production will involve a list of pairs. For +example, the rules +\par\noindent{\small +\begin{verbatim} +defn +|- E :: :: Eok :: Eok_ by + +---------------------------- :: 2 +|- + +|- t1:K1 ... |- tn:Kn +---------------------------- :: 3 +|- + \end{verbatim} +} +generate +\par\noindent{\small +\begin{verbatim} +consts + Eok :: "E set" +inductive Eok tK +intros + +(* defn Eok *) + +Eok_2I: " ( List.rev (x_t_list) ) : Eok" + +Eok_3I: "[| +(List.list_all (\ b . b) ( ((List.map (%(x_,t_,K_). ( t_ , K_ ) : tK) x_t_K_list)) ) )|] + ==> + ( List.rev ((List.map (%(x_,t_,K_).(x_,t_)) x_t_K_list)) ) : Eok" + \end{verbatim} +} +Note that in the second the list of pairs is projected out from the +\verb+x_t_K_list+ list of triples that is quantified over in the rule. + + +LaTeX homomorphisms should not refer to dot forms, as either an error +or bad output will be generated. (For LaTeX, one should really specify +a homomorphism for the repeated expression, and also data on how any +list separators should be typeset. This would require more +special-case treatment, and may not often be required.) + + + +\myparagraph{List Comprehension Forms}\mlabel{a44}% +% +Lists can also be expressed as explicit list comprehensions, primarily +to support more concise typesetting of rules. +Three different styles are supported. For example, in a symbolic +term, instead of the dot form +\par\noindent{\small +\begin{verbatim} + G |- t1:T1 .. G |- tn:Tn + \end{verbatim} +} +one can write any of the following +\par\noindent{\small +\begin{verbatim} + + + + \end{verbatim} +} +Similar comprehensions can be used in productions, for example lines +2--4 below. In addition, comprehensions in productions can specify a +terminal to be used as a separator in concrete lists, as in lines 5--7 below. +(These examples are taken from \verb+test17.10.ott+.) +\par\noindent{\small +\begin{verbatim} + | { l1 = t1 , .. , ln = tn } :: :: Rec {{ com record --- dots }} + | { } :: :: Rec_comp_none {{ com record --- comp }} + | { } :: :: Rec_comp_u_none {{ com record --- compu }} + | { } :: :: Rec_comp_lu_none{{ com record --- complu }} + | { } :: :: Rec_comp_some {{ com record --- comp with terminal }} + | { } :: :: Rec_comp_u_some {{ com record --- compu with terminal }} + | { } :: :: Rec_comp_lu_some {{ com record --- complu with terminal }} + \end{verbatim} +} +In Coq, HOL or Isabelle output, list dot forms and the +various list comprehension forms are treated almost identically. +In LaTeX output, comprension forms are typeset with overbars. +For example, the rules below +\par\noindent{\small +\begin{verbatim} + G|- t:{l1:T1,..,ln:Tn} + ----------------------- :: Proj_dotform + G|- t.lj : Tj + + G|- t: { } + ---------------------------------- :: Proj_comp + G|- t.lj : Tj + + G|- t: { } + ---------------------------------- :: Proj_comp_u + G|- t.lj : Tj + + G|- t: { } + ---------------------------------- :: Proj_comp_lu + G|- t.lj : Tj + \end{verbatim} +} +are typeset as follows. +%\testSeventeenTendruleTyXXRcdXXdotform +\[\testSeventeenTendruleTyXXProjXXdotform{}\] +%\testSeventeenTendruleTyXXRcdXXcomp +\[\testSeventeenTendruleTyXXProjXXcomp{}\] +%\testSeventeenTendruleTyXXRcdXXcompXXu +\[\testSeventeenTendruleTyXXProjXXcompXXu{}\] +%\testSeventeenTendruleTyXXRcdXXcompXXlu +\[\testSeventeenTendruleTyXXProjXXcompXXlu{}\] +% +Upper bounds of the form $n-1$ are also permitted, e.g. with +\par\noindent{\small +\begin{verbatim} + G|- t:{l0:T0,..,ln-1:Tn-1} + ----------------------- :: Proj_dotform_minus + G|- t.lj : Tj + + G|- t: { } + ---------------------------------- :: Proj_comp_lu_minus + G|- t.lj : Tj + \end{verbatim} +} +typeset as below. +\[\testSeventeenTendruleTyXXProjXXdotformXXminus{}\] +\[\testSeventeenTendruleTyXXProjXXcompXXluXXminus{}\] + +List comprehension forms can also be used in bindspecs and in +homomorphisms. + +A list form used in a symbolic term does not have to be in the same +style as that in the corresponding production. +However, if a metavariable or nonterminal occurs in multiple different +list forms in the same inference rule, they must all be in the same style and +with the same bounds. Moreover, in a production, a list form in a bindspec or +homomorphism must be in the same style and with the same bounds as the +corresponding list form in the elements of the production. + +The comprehension form with a single index, e.g. +\verb++, +typeset as $\overline{\Gamma \, \vdash \, \mathit{t_{\mathit{i}}} \, : + \, \mathit{T_{\mathit{i}}}}^{\,\mathit{i}}$, is not common notation. +We introduce it here as it is rather concise but remains unambiguous. +It does not specify the length of the list, but that is rather rarely required. +% +In some cases one could make the typeset notation even less noisy, by +either omitting the superscript $i$ or omitting both the superscript $i$ and +the subscript $i$'s on $t$ and $T$. The first is unambiguous if there +is at most one index on each element in the comprehension; the second +if all the elements are indexed by the same thing (not the case for +this example, but common for comprehensions of single elements, +e.g. \verb+<< Ti // i>>+ for $\overline{T}$). It is conceivable that that +should be automated, though it would bring the typeset and ASCII +versions out of step. + +%The tokens used for list dot forms and comprehension forms (\verb++, \verb+..+, \verb+...+, and +%\verb+....+) cannot at present be used in the object language. + + + + +\myparagraph{Code Embedding} It is possible to embed arbitrary code in +the Ott source using the \verb+embed+ section, which can contain +\verb+coq+/\verb+isa+/\verb+hol+/\verb+tex+/\verb+ocaml+ homomorphisms, the +bodies of which will appear in the respective output. +Depending on the position of the \verb+embed+ section, this will +either be at the beginning of the output file, between the generated +functions (substitution etc.) and the definitions of inductive +relations, or at the end of the file (for any after the first +definition, the \verb+embed+ keyword must be on a line by itself). For example, \verb+test8.ott+ contains the following to +define Coq and HOL \verb+remove_duplicates+ functions. +\par\noindent{\small +\begin{verbatim} +embed + {{ coq +Fixpoint remove_duplicates (l:list typvar_t) : list typvar_t := + match l with + | nil => nil + | cons h t => if (list_mem eq_typvar_t h t) then remove_duplicates t + else cons h (remove_duplicates t) +end. }} + + {{ hol +val _ = Define ` + (remove_duplicates [] = []) /\ + (remove_duplicates (x::xs) = if (MEM x xs) then remove_duplicates xs + else x::(remove_duplicates xs)) +`; }} +\end{verbatim} +} +Within the body of an \verb+embed+ homomorphism, any text between +\verb+[[+ and \verb+]]+ will be parsed as a symbolic term (of the +\verb+user_syntax+ grammar) and pretty printed, so one can use user +syntax within tex or proof assistant code. An Isabelle example is below. +\par\noindent{\small +\begin{verbatim} +{{ isa + +consts +order :: "type => nat" +primrec +"order [[unit]] = 0" +"order [[t*t']] = max (order [[t]]) (order [[t']])" +"order [[t->t']] = max (1+order [[t]]) (order [[t']])" + +}} +\end{verbatim} +} +Similar processing can be carried out on separate files, using the +command-line options \verb+tex_filter+, \verb+isa_filter+, etc., as +shown in \S\mref{a20}. + + +\myparagraph{Hom Sections} +Bindspecs and homomorphisms for productions, and any homomorphisms +for definitions, can be included in an Ott source file either +attached to the production or definition, as we have shown earlier, or +in separate \texttt{hom} sections. + +The \verb+test10_homs.ott+ example, in Fig.~\mref{a38}, shows this. It +produces the same output as the \verb+test10.ott+ example of +Fig.~\mref{a4}, but the homs have been moved into \texttt{hom} +sections, for example as below. +\par\noindent{\small +\begin{verbatim} +homs 't_' + :: Var {{ com variable }} + :: Lam (+ bind x in t +) {{ com abstraction }} + :: App {{ com application }} + +homs '' + :: reduce {{ com [[t1]] reduces to [[t2]] }} +\end{verbatim} +} +Each of these begins with a prefix and then has a sequence of +production name or definition name kernels, each followed by a +sequence of bindspecs and then a sequence of homomorphisms. +\begin{figure} +\fbox{\begin{minipage}{\textwidth} +\verbatiminput{../tests/test10_homs.ott} +\end{minipage}} +\caption{Hom Sections: \texttt{test10\_homs.ott}\protect\label{a38}} +\end{figure} + + + + +\myparagraph{\myLaTeX{} Output and Filtering}\mlabel{a20}% +The generated \myLaTeX{} output is factored into individual \myLaTeX{} +commands: for the metavariable declarations, each rule of the syntax +definition, the collected syntax, each rule of the inductive relation +definitions, the collected rules for each relation, the collected +rules for each \verb+defns+ block, and the whole. +% +This makes it possible to quote individual parts of the definition, +possibly out-of-order, in a paper or technical report. + +Additionally, there is (slightly rudimentary) support for using Ott as a munger. +There are command-line arguments \verb+-tex_wrap+ and \verb+-tex_filter+. +Typical usage would be something like this (from the \verb+Makefile+ +in the \verb+doc+ directory): +\begin{verbatim} +test7.tex: ../src/ott ../tests/test7.ott ../tests/test7tt.mng + cd ../src; make tmp_test7_clean.ott + ../src/ott \ + -tex test7.tex \ + -tex_show_meta false \ + -tex_wrap false \ + -tex_name_prefix testSeven \ + -tex_filter ../tests/test7tt.mng test7tt.tex \ + ../src/tmp_test7_clean.ott +\end{verbatim} +The \verb+-tex_wrap false+ turns off output of the default \myLaTeX{} +document preamble, so the generated file \verb+test7.tex+ just contains +\myLaTeX{} definitions. +The \verb+-tex_name_prefix testSeven+ sets a prefix for the generated +\myLaTeX{} commands +(so the \myLaTeX{} definitions from multiple Ott source files can be +included in a single \myLaTeX{} document). +The \verb+-tex_filter+ argument takes two +filenames, a source and a destination. It filters the source file, +(roughly) replacing any string found within \verb+[[+ \verb+]]+ by +the tex pretty-print of its parse. This parsing is done w.r.t.~a generated nonterminal +\verb+user_syntax+ which is a union of all the user's grammar. + +At present %(unlike our previous munger) +munged strings are not automatically +put within \verb+$+ \verb+$+, and there is no analogue of \verb+<[+ +\verb+]>+. We probably want to tune up the tex to make it more +convenient, e.g.~to put single rules in math displays (or not); +definitions in centering environments (or not), etc. + +The lexing +%pays some attention to \myLaTeX{} comments, but may not get it +%right. It +turns any sequence of \verb+[+ (resp. of \verb+]+) of +length $n+1$ for $n>2$ into a literal sequence of length $n$. + +The following two subsections show a source file (\verb+test7tt.mng+) that uses terms of the F$_{<:}$ +definition of \texttt{test7.ott}, and the result of filtering it. + +Similar filtering can be performed on Coq, Isabelle, HOL, and OCaml files. + +\subsubsection{F$_{<:}$ Extracts --- Source File}\mlabel{a29}% +\verbatiminput{../tests/test7tt.mng} + +\subsubsection{F$_{<:}$ Extracts --- The Filtered Output}\mlabel{a30}% +\input{test7tt.tex} + + +\myparagraph{Isabelle Syntax Support}\mlabel{a39}% +The tool has (limited) facilities to allow the Isabelle mixfix syntax support +and xsymbol to be used. The example \verb+test10_isasyn.ott+ shows +this in use. +% + +Non-meta productions can be annotated with +\verb+isasyn+ and/or \verb+isaprec+ homomorphisms. +For example, \verb+test10_isasyn.ott+ contains the production +\par\noindent{\small +\begin{verbatim} + | t t' :: :: App {{ isasyn [[t]]\[[t']] }} {{ isaprec 50 }} +\end{verbatim} +} +The two homs are used to output the Isabelle syntax annotation in the +\verb+t_App+ clause of the datatype definition below. +\par\noindent{\small +\begin{verbatim} +t = + t_Var "termvar" + | t_Lam "termvar" "t" ("\ _ . _" 60) + | t_App "t" "t" ("_\_" 50) +\end{verbatim} +} +Definitions can be annotated with +\verb+isasyn+ and/or \verb+isaprec+ homomorphisms similarly, e.g.~as below. +\par\noindent{\small +\begin{verbatim} + defn + t1 --> t2 :: :: reduce :: '' {{ isasyn [[t1]] ---> [[t2]] }} by +\end{verbatim} +} +This generates \verb+syntax+ and \verb+translations+ blocks as below. +\par\noindent{\small +\begin{verbatim} +consts + reduce :: "(t*t) set" + +syntax + "_reduce" :: "t => t => bool" ("_ ---> _" 50) + +translations + "(t17 ---> t27)" \ " ( t17 , t27 ) : reduce" +\end{verbatim} +} +Symbolic terms in definitions are printed using any production or +definition syntax. This (especially with xsymbol turned on) makes the +current goal state during Isabelle proof development much more +readable. + + + +Further, there is a command line option \verb+-isa_syntax true+. If +this is set then the tool generates Isabelle syntax annotations from +the source syntax. For example, the source file production for the +\verb+t_Lam+ clause is +\par\noindent{\small +\begin{verbatim} + | \ x . t :: :: Lam {{ isaprec 60 }} +\end{verbatim} +} +and the \verb+terminals+ grammar contains a mapping from \verb+\+ to \verb+\+: +\par\noindent{\small +\begin{verbatim} + terminals :: 'terminals_' ::= + | \ :: :: lambda {{ tex \lambda }} {{ isa \ }} +\end{verbatim} +} +This is used (just as for \myLaTeX{} homs) to generate the \verb+("\ _ . _" 60)+ +in the datatype definition above. + + +Limitations: +(1) the full range of Isabelle precedence and associativity +specifications are not supported; +(2) the automatically generated syntax annotations are somewhat crude, +especially w.r.t.~spacing and parenthesisation; +(3) syntax annotation on meta productions is not propertly supported; +and +(4) it would be desirable to have more fine-grain control of whether +to automatically generate annotations: per-production, per-rule, and +per-file. + + +%For example, the \verb+out.thy+ produced by +%\verb+make test10_isasyn+ (which includes this option), the annotation +%on + + +\myparagraph{Code Generation}\mlabel{a22}% +The Isabelle/Coq/HOL code generation facilities can be used to +generate (variously) OCaml and SML code from the definitions, if +they are suitably constrained. + +For example, the \verb+test10st_codegen.thy+ file uses Isabelle +code generation to produce SML code to calculate the possible +reductions of terms in the \verb+test10st.ott+ simply typed lambda +calculus. + +\verbatiminput{../tests/test10st_codegen.thy} + + + +\section{Example: Simply Typed Lambda Calculus}\mlabel{a34}% +This example extends the untyped lambda calculus of \S\mref{a2} with a +simple type system. We include Isabelle proof script for the +standard metatheoretic results, type preservation and progress. +% +In order to define a reasonable system using the concrete representation of +variables and binding, +the type system here is slightly unusual. It allows repeated +types for identifiers in type environments, with the rightmost being +the significant one. Type preservation is proved only for closed +terms, though it should be straightforward to weaken that to allow +terms that do not shadow identifiers in a standard library --- a +sufficient condition to prevent capture, as all substitutions +performed during reduction are of values that are closed except for standard +library identifiers. + +The definition presented here represents type environments using proof-assistant list types. For Isabelle we have also tried a variant using +a functional representation, that gave rise to somewhat simpler proof scripts. + +\subsection{Ott source}\mlabel{a35}% +{\small +\verbatiminput{../tests/test10st.ott} +} +\subsection{Generated \myLaTeX}\mlabel{a36}% +\testTenstall + +\subsection{Isabelle Proof Script for Metatheory (with Tom Ridge)}\mlabel{a37}% +{\small +\verbatiminput{../tests/test10st_metatheory_autoed.thy} +} + + + +\section{Example: ML Polymorphism (in an OCaml syntax fragment)}\mlabel{a23}% +\subsection{Ott Source}\mlabel{a24}% +{\small +\verbatiminput{../tests/test8.ott} +} +\subsection{Generated \myLaTeX}\mlabel{a25}% +\testEightall + +\section{Example: POPLmark F$_{<:}$ with Records}\mlabel{a26}% +Note that, as mentioned in \S\mref{a2}, the concrete variable +representation is not satisfactory for this example. +\subsection{Ott Source}\mlabel{a27}% +{\small +\verbatiminput{../src/tmp_test7_clean.ott} +} +\subsection{Generated \myLaTeX }\mlabel{a28}% +\testSevenall + +\end{document} + + + +\end{document} + + +%%% Local Variables: +%%% LaTeX-label-sequence-N: 69 +%%% LaTeX-label-prefix: "a" +%%% End: diff --git a/vendors/ott/emacs/ott-mode.el b/vendors/ott/emacs/ott-mode.el new file mode 100644 index 000000000000..95553692fdeb --- /dev/null +++ b/vendors/ott/emacs/ott-mode.el @@ -0,0 +1,32 @@ +(define-generic-mode 'ott-mode + '("%") + '("metavar" "indexvar" "grammar" "embed" "subrules" "contextrules" "substitutions" "single" "multiple" "freevars" "defns" "defn" "by" "homs" "funs" "fun" "parsing" "begincoqsection" "endcoqsection" "coqvariable" "left" "right" "terminals" "formula" "judgement") + '( +; ("\\[\\[.+\\]\\]" . 'font-lock-warning-face) +; ("\\[\\[[^\\]]+\\]\\]" . 'font-lock-warning-face) + ("{{\\([^{}]+{[^{}]*}\\)*[^{}]*}}" . 'font-lock-doc-face) +; ("{{[^}]+}}" . 'font-lock-doc-face) + ("(\\+.+\\+)" . 'font-lock-keyword-face) + ("<<.*" . 'font-lock-keyword-face) + (">>" . 'font-lock-keyword-face) + ("" . 'font-lock-keyword-face) + (" | " . 'font-lock-keyword-face) + (";" . 'font-lock-keyword-face) + ("<::" . 'font-lock-keyword-face) + ("_::" . 'font-lock-keyword-face) + ("::=" . 'font-lock-keyword-face) + ("::" . 'font-lock-keyword-face) + ("<=" . 'font-lock-keyword-face) + ) + (list "\\.ott\\'") +; '(".keymap\\'" ".map\\'") + nil + "Major mode for editing ott format files.") + + +; ("\\%.*" . 'font-lock-doc-face) + +(provide 'ott-mode) diff --git a/vendors/ott/examples/1Bsemantics/Makefile b/vendors/ott/examples/1Bsemantics/Makefile new file mode 100644 index 000000000000..73701e27785b --- /dev/null +++ b/vendors/ott/examples/1Bsemantics/Makefile @@ -0,0 +1,23 @@ + +OTT=~/github/ott/bin/ott + +l1: l1.ott + $(OTT) -pp_grammar -isa_syntax true l1.ott -o l1.tex -o l1.thy -o l1.lem + $(OTT) -tex_wrap false l1.ott -o l1_nowrap.tex + pdflatex l1.tex + lem l1.lem -isa + +l2: l1.ott l2.ott + $(OTT) -merge true l1.ott l2.ott -o l2.tex -o l2.thy -o l2.tmp.lem + pdflatex l2.tex + (echo 'open import Pervasives' ; cat l2.tmp.lem) > l2.lem + lem l2.lem -isa + + +clean: + rm -rf *~ + rm -rf l1.tex l1.thy l1.lem l1_nowrap.tex L1.thy + rm -rf l2.tex l2.thy l2.tmp.lem l2.lem l2.thy L2.thy + rm -rf l1.aux l1.log l1.pdf + rm -rf l2.aux l2.log l2.pdf + rm -rf L1Auxiliary.thy L2Auxiliary.thy diff --git a/vendors/ott/examples/1Bsemantics/l1.ott b/vendors/ott/examples/1Bsemantics/l1.ott new file mode 100644 index 000000000000..612f1c551fa7 --- /dev/null +++ b/vendors/ott/examples/1Bsemantics/l1.ott @@ -0,0 +1,204 @@ + +metavar n ::= + {{ com Numeric literals }} + {{ phantom }} + {{ lex numeric }} + {{ lem integer }} + +metavar location, l ::= + {{ com Store locations }} + {{ lem string }} + +grammar +b :: 'B_' ::= {{ com booleans }} {{ phantom }} {{ lem bool }} + | true :: :: true {{ lem true }} + | false :: :: false {{ lem false }} + +operations, op :: 'Op_' ::= {{ com operations }} + | + :: :: plus + | >= :: :: gteq + +e :: 'E_' ::= {{ com expressions }} + | n :: :: num + | b :: :: bool + | e1 op e2 :: :: op + | if e1 then e2 else e3 :: :: if + | l := e :: :: assign + | ! l :: :: ref + | skip :: :: skip + | e1 ; e2 :: :: sequence + | while e1 do e2 :: :: while + | ( e ) :: M :: paren {{ ichlo ([[e]]) }} + +v :: 'V_' ::= {{ com values }} + | n :: :: num + | b :: :: bool + | skip :: :: skip + +store , s :: 'Store_' ::= {{ com stores }} {{ phantom }} {{ lem list (location * integer) }} + | empty :: :: empty {{ lem [] }} + | s , l |-> n :: :: extend {{ lem (([[l]],[[n]])::[[s]]) }} + +typ, T :: 'T_' ::= {{ com types }} + | int :: :: int + | bool :: :: bool + | unit :: :: unit + +Tloc {{ isa tloc }} {{ coq tloc }} {{ hol tloc }} {{ lem tloc }} {{ ocaml tloc }} :: 'TLoc_' ::= {{ com types of locations }} + | intref :: :: intref + + +type_assumption, ta :: 'TA_' ::= {{ com type assumption }} + | l : Tloc :: :: loc + +G {{ tex \Gamma }} :: G_ ::= {{ com type environments }} {{ phantom }} {{ lem list type_assumption }} + | empty :: :: empty {{ lem [] }} + | G , ta :: :: extend {{ lem ([[ta]]::[[G]]) }} + + +terminals :: terminals_ ::= + | + :: :: plus + | >= :: :: leq {{ tex \geq }} + | |- :: :: turnstile {{ tex \vdash }} + | |-> :: :: mapsto {{ tex \mapsto }} + | ; :: :: seq + | -> :: :: red {{ tex \longrightarrow }} + | < :: :: la {{ tex \langle }} + | > :: :: ra {{ tex \rangle }} + +subrules + v <:: e + +grammar +formula :: formula_ ::= + | judgement :: :: judgement + | n1 + n2 = n3 :: :: sum {{ lem ([[n1]]+[[n2]]=[[n3]]) }} + | n1 >= n2 = b :: :: leq {{ lem ([[n1]]>=[[n2]]=[[b]]) }} + | s ( l ) = n :: :: lookup {{ lem (List.lookup [[l]] [[s]] =Just ([[n]])) }} + | G ( l ) = Tloc :: :: type_lookup {{ lem (lookup_location_type [[l]] [[G]] = Just ([[Tloc]])) }} + + +% this is a bit ugly - to capture the different use of Gamma in L1 and L2 we have a list of a Lem variant type and two special-purpose lookup functions, with a wildcard pattern match in each. + +embed {{ lem +let rec lookup_location_type l g = + match g with + | [] -> Nothing + | TA_loc l' tloc' :: g' -> if l=l' then Just tloc' else lookup_location_type l g' + | _ :: g' -> lookup_location_type l g' + end +}} + +defns + +Jop :: '' ::= + +% Reductions. Want to allow lem hom to specify witness and animation info + +defn +< e , s > -> < e' , s' > :: :: reduce :: '' {{ com $\langle[[e]],\,[[s]]\rangle$ reduces to $\langle[[e']],\,[[s']]\rangle$ }} by + + n1 + n2 = n +---------------------- :: op_plus + -> + + n1 >= n2 = b +---------------------- :: op_gteq += n2, s> -> + + -> +------------------------------- :: op1 + -> + + -> +------------------------------- :: op2 + -> + + s(l) = n +------------------------------ :: deref + -> + +-------------------------------------- :: assign1 +< l := n, s > -> n > + + -> +-------------------------------------- :: assign2 +< l := e, s > -> < l := e', s' > + +-------------------------------------- :: seq1 +< skip ; e, s > -> + + -> +-------------------------------------- :: seq2 +< e1 ; e2, s > -> < e1' ; e2, s' > + +---------------------------------------------- :: if1 +< if true then e1 else e2, s > -> < e1, s > + +---------------------------------------------- :: if2 +< if false then e1 else e2, s > -> < e2, s > + + -> +------------------------------------------------------------ :: if3 +< if e then e1 else e2, s > -> < if e' then e1 else e2, s' > + +--------------------------------------------------------------------------- :: while +< while e1 do e2, s> -> < if e1 then ( e2 ; while e1 do e2 ) else skip, s > + + + +defn +G |- e : T :: :: typing :: Ty_ by + +------------------ :: int + G |- n : int + +------------------ :: bool + G |- b : bool + + + G |- e1 : int + G |- e2 : int +------------------------------- :: op_plus + G |- e1 + e2 : int + + + G |- e1 : int + G |- e2 : int +------------------------------- :: op_gteq + G |- e1 >= e2 : bool + + + G |- e1 : bool + G |- e2 : T + G |- e3 : T +---------------------------------- :: if + G |- if e1 then e1 else e3 : T + + + G(l) = intref + G |- e : int +----------------------- :: assign + G |- l := e : unit + + + G(l) = intref +----------------------- :: deref + G |- !l : int + + +------------------------------- :: skip + G |- skip : unit + + G |- e1 : unit + G |- e2 : T +------------------------------- :: seq + G |- e1 ; e2 : T + + + G |- e1 : bool + G |- e2 : unit +------------------------------- :: while + G |- while e1 do e2 : unit + + diff --git a/vendors/ott/examples/1Bsemantics/l2.ott b/vendors/ott/examples/1Bsemantics/l2.ott new file mode 100644 index 000000000000..7d2f9b623b51 --- /dev/null +++ b/vendors/ott/examples/1Bsemantics/l2.ott @@ -0,0 +1,85 @@ +% with -merge true, Ott does not generate a Lem "open import +% Pervasives". Maybe that's just an Ott bug. We work around it in +% the Makefile. + +metavar variable, x ::= + {{ com Variables }} + {{ lem string }} + +grammar +e :: 'E_' ::= {{ com expressions }} + | fn x : T => e :: :: fn (+ bind x in e +) + | e1 e2 :: :: app + | x :: :: var + | { e / x } e' :: M :: subst {{ ichlo (subst_e [[e]] [[x]] [[e']]) }} + +v :: 'V_' ::= {{ com values }} + | fn x : T => e :: :: fn + +typ, t :: 'T_' ::= {{ com types }} + | T1 -> T2 :: :: fn + +type_assumption :: 'TA_' ::= {{ com type assumption }} + | x : T :: :: var + +substitutions + single e x :: subst + +grammar +terminals :: terminals_ ::= + | => :: :: Rightarrow {{ tex \Rightarrow }} + + +grammar +formula :: formula_ ::= + | G ( x ) = T :: :: type_lookup_var {{ lem (lookup_var_type [[x]] [[G]] = Just ([[T]])) }} + +embed {{ lem +let rec lookup_var_type x g = + match g with + | [] -> Nothing + | TA_var x' t' :: g' -> if x=x' then Just t' else lookup_var_type x g' + | _ :: g' -> lookup_var_type x g' + end +}} + + +defns + +Jop :: '' ::= + +defn +< e , s > -> < e' , s' > :: :: reduce :: '' {{ com $\langle$[[e]],\,[[s]]$\rangle$ reduces to $\langle$[[e']],\,[[s']]$\rangle$ }} by + + -> +------------------------------- :: app1 + -> + + -> +------------------------------- :: app2 + -> + + +------------------------------ :: fn +<(fn x:T=>e) v,s> -> <{v/x}e,s> + + +defn +G |- e : T :: :: typing :: Ty_ by + + G(x)=T +------------------ :: var + G |- x:T + + +%TODO: add disjointness condition? + G,x:T |- e:T' +------------------------------- :: fn + G |- fn x:T=>e : T->T' + + G |- e1 : T->T' + G |- e2 : T +------------------------------- :: app + G |- e1 e2 : T' + + diff --git a/vendors/ott/examples/1Bsemantics/svn-log-2018-01 b/vendors/ott/examples/1Bsemantics/svn-log-2018-01 new file mode 100644 index 000000000000..9072ac7f6399 --- /dev/null +++ b/vendors/ott/examples/1Bsemantics/svn-log-2018-01 @@ -0,0 +1,38 @@ +------------------------------------------------------------------------ +r8326 | pes20 | 2016-11-28 08:29:51 -0800 (Mon, 28 Nov 2016) | 2 lines + +Conrad, Mark, Victor, Jean, Peter + +------------------------------------------------------------------------ +r8325 | pes20 | 2016-11-28 06:11:08 -0800 (Mon, 28 Nov 2016) | 2 lines + +more notes + +------------------------------------------------------------------------ +r8324 | pes20 | 2016-11-28 04:05:46 -0800 (Mon, 28 Nov 2016) | 2 lines + +tidying + +------------------------------------------------------------------------ +r8323 | pes20 | 2016-11-28 03:52:45 -0800 (Mon, 28 Nov 2016) | 2 lines + +l1 and l2 that typecheck in Lem + +------------------------------------------------------------------------ +r8322 | pes20 | 2016-11-28 03:01:44 -0800 (Mon, 28 Nov 2016) | 4 lines + +note on Ott features - why they are needed and how various tasks are supported + +Ott version of L2 + +------------------------------------------------------------------------ +r8321 | pes20 | 2016-11-24 08:37:53 -0800 (Thu, 24 Nov 2016) | 2 lines + +tidy + +------------------------------------------------------------------------ +r8320 | pes20 | 2016-11-24 08:33:08 -0800 (Thu, 24 Nov 2016) | 2 lines + +another Ott version of L1, starting from MarkW's, matching more closely the one used in the course and generating well-typed Lem + +------------------------------------------------------------------------ diff --git a/vendors/ott/examples/ocaml_light/.gitignore b/vendors/ott/examples/ocaml_light/.gitignore new file mode 100644 index 000000000000..bbccad337a3e --- /dev/null +++ b/vendors/ott/examples/ocaml_light/.gitignore @@ -0,0 +1,19 @@ +*.vo +*.glob +*.v.d +*.aux +.coqdeps.d +caml_typedef.dvi +caml_typedef.lem +caml_typedef.log +caml_typedef.pdf +caml_typedef.ps +caml_typedef.rawtex +caml_typedef.tex +caml_typedef.thy +caml_typedef.toc +caml_typedef.v +caml_typedefScript.sml +caml_typedef_reduction.ott +caml_typedef_syntax.ott +caml_typedef_typing.ott diff --git a/vendors/ott/examples/ocaml_light/Makefile b/vendors/ott/examples/ocaml_light/Makefile new file mode 100644 index 000000000000..928739c12498 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/Makefile @@ -0,0 +1,228 @@ +## Default target: run ott, and typeset the spec. +default: ott ps pdf +## Run ott, and compile the spec in proof assistants (Coq, HOL and Isabelle). +all: default coq-def hol-def isa-def +## Build everything. Requires Coq, Isabelle, and HOL. +## See hol/README for HOL version requirement. +world: all hol-proof + + +lemtest: + make -C ../../src + make caml_typedef.lem + ~/bitbucket/lem/lem -wl_unused_vars ign -ocaml caml_typedef.lem + + + +#### Options for ott hackers #### +## Run `make separate_ott_runs=1' to run a separate ott process for +## each output languages (slower, but sometimes useful in case of +## language-specific bugs in ott). +separate_ott_runs = + +#### General targets #### +ott: caml_typedef.tex caml_typedef.v caml_typedefScript.sml caml_typedef.thy +ps: caml_typedef.ps +pdf: caml_typedef.pdf +coq-def: caml_typedef.vo +hol-def: caml_typedefTheory.uo hol_caml +isa-def: caml_typedef.isa +coq: coq-def +hol: hol-def +isa: isa-def +hol-proof: hol/definitionsTheory.uo hol/defs_red_funTheory.uo + +install_doc: caml_typedef.pdf + cp caml_typedef.pdf doc/built_doc + +#### Directories #### +############ CHANGE topdir TO REFER TO YOUR TOP LEVEL OTT INSTALLATION ######## +topdir = ../.. +#/home/so294/scratch/ott_distro_0.10.13 +ott_coq_lib_dir = $(topdir)/coq +ott_hol_lib_dir = $(topdir)/hol +poly_lib = /Users/so294/polyml.5.1/lib + +#### Programs and their arguments #### +COQC = coqc +#COQ_INCLUDE = -I $(ott_coq_lib_dir) +COQ_INCLUDE = -R $(ott_coq_lib_dir) Ott +COQ_FLAGS = +DVIPS = dvips +DVIPSFLAGS = -Ppdf -j0 -G0 +HOLMAKE = Holmake +HOLMAKE_INCLUDE = -I $(ott_hol_lib_dir) +HOLMAKE_FLAGS = --qof +ISABELLE = isabelle +ISABELLE_FLAGS = -q +ISABELLE_WRAPPER = use_thy "$*" handle e => (TextIO.output (TextIO.stdErr, "Isabelled failed: " ^ exnMessage e ^ "\n"); OS.Process.exit OS.Process.failure) +LATEX = latex +OTT = $(topdir)/src/ott +#OTT = $(topdir)/bin/ott +OTT_COMMON_FLAGS = -pp_grammar -tex_show_categories true -coq_expand_list_types false -isa_generate_lemmas false +## Run `make OTT_VERBOSITY_FLAGS= target' to cause ott to spew out a +## lot of debugging output. +OTT_VERBOSITY_FLAGS = -show_defns false -tex_show_categories true +#-show_post_sort false +OTT_FLAGS = -no_rbcatn true $(OTT_COMMON_FLAGS) $(OTT_VERBOSITY_FLAGS) +# -lem_debug true +PS2PDF = ps2pdf + +#### Preprocessing #### +caml_sources = syntax typing reduction +caml_combinations = \ + caml_plain caml_module caml_module_typedef caml_typedef + +## Extract the desired language fragment +caml_plain_%.ott: %.ott + cat $< >$@.tmp + mv -f $@.tmp $@ +caml_module_%.ott: %.ott + sed -e 's/\(\(%[^%]\)*\)%m/\1/' $< >$@.tmp + mv -f $@.tmp $@ +caml_typedef_%.ott: %.ott + sed -e 's/\(\(%[^%]\)*\)%d/\1/' $< >$@.tmp + mv -f $@.tmp $@ +caml_module_typedef_%.ott: %.ott + sed -e 's/\(\(%[^%]\)*\)%d/\1/' -e 's/\(\(%[^%]\)*\)%m/\1/' $< >$@.tmp + mv -f $@.tmp $@ + +## Multiple extraction targets +caml_%.ott: caml_%_syntax.ott caml_%_typing.ott caml_%_reduction.ott ; + +#### Ott #### +ifeq ($(separate_ott_runs),) +## One ott run to produce everything +caml%.rawtex caml%.v caml%Script.sml caml%.thy caml%.lem: \ + caml%_syntax.ott caml%_typing.ott caml%_reduction.ott $(OTT) + # Note: no protection against interruptions for hol and isabelle, + # because ott requires a file name ending in Script.sml. + $(OTT) $(OTT_FLAGS) -o caml$*.tmp.tex -o caml$*.tmp.v -o caml$*Script.sml -o caml$*.thy -o caml$*.lem caml$*_syntax.ott caml$*_typing.ott caml$*_reduction.ott + mv -f caml$*.tmp.tex caml$*.rawtex + mv -f caml$*.tmp.v caml$*.v +else +## Separate ott runs, one per target +caml%.rawtex: caml%_syntax.ott caml%_typing.ott caml%_reduction.ott $(OTT) + $(OTT) $(OTT_FLAGS) -o $@ $(@:.tex=)_syntax.ott $(@:.tex=)_typing.ott $(@:.tex=)_reduction.ott +# mv -f $@.tmp $@ +caml%Script.sml: caml%_syntax.ott caml%_typing.ott caml%_reduction.ott $(OTT) + # Note: no protection against interruptions, because ott requires + # a file name ending in Script.sml. + $(OTT) $(OTT_FLAGS) -o $@ $(@:Script.sml=)_syntax.ott $(@:Script.sml=)_typing.ott $(@:Script.sml=)_reduction.ott +caml%.thy: caml%_syntax.ott caml%_typing.ott caml%_reduction.ott $(OTT) + # Note: no protection against interruptions, because ott requires + # a file name ending in .thy. + $(OTT) $(OTT_FLAGS) -o $@ $(@:.thy=)_syntax.ott $(@:.thy=)_typing.ott $(@:.thy=)_reduction.ott +caml%.v: caml%_syntax.ott caml%_typing.ott caml%_reduction.ott $(OTT) + $(OTT) $(OTT_FLAGS) -coq_expand_list_types false -o $@ $(@:.v=)_syntax.ott $(@:.v=)_typing.ott $(@:.v=)_reduction.ott +# mv -f $@.tmp $@ +caml%.lem: caml%_syntax.ott caml%_typing.ott caml%_reduction.ott $(OTT) + $(OTT) $(OTT_FLAGS) -o $@ $(@:.v=)_syntax.ott $(@:.v=)_typing.ott $(@:.v=)_reduction.ott +# mv -f $@.tmp $@ +endif + +caml%.grammar: caml%_syntax.ott caml%_typing.ott caml%_reduction.ott $(OTT) + $(OTT) $(OTT_FLAGS) -writesys $@.tmp $(@:.grammar=)_syntax.ott $(@:.grammar=)_typing.ott $(@:.grammar=)_reduction.ott + mv -f $@.tmp $@ + +$(OTT): %: +# cd $(@D) && $(MAKE) $(@F) + +## Generate all combinations +caml_combinationsScript.sml: $(caml_combinations:=Script.sml) ; +caml_combinations.dvi: $(caml_combinations:=.dvi) ; +caml_combinations.pdf: $(caml_combinations:=.pdf) ; +caml_combinations.ps: $(caml_combinations:=.ps) ; +caml_combinations.tex: $(caml_combinations:=.tex) ; +caml_combinations.thy: $(caml_combinations:=.thy) ; +caml_combinations.v: $(caml_combinations:=.v) ; + +#### TeX #### +%.tex: %.rawtex ott-preamble.sed + sed -f ott-preamble.sed <$< >$@.tmp + mv -f $@.tmp $@ + +.SUFFIXES: .tex .dvi .ps .pdf +.tex.dvi: + $(LATEX) $< + $(LATEX) $< + $(LATEX) $< +.dvi.ps: + $(DVIPS) $(DVIPS_FLAGS) -o $@ $< +.ps.pdf: + $(PS2PDF) $< $@ + +#### Coq #### +coq_libs = $(ott_coq_lib_dir)/ott_list +coq-libs: $(coq_libs:=.vo) +$(coq_libs:=.vo): %: + cd $(@D) && $(MAKE) $(@F) +.SUFFIXES: .v .vo +.v.vo: + $(COQC) $(COQ_INCLUDE) $(COQ_FLAGS) $< + +#### Hol #### +dummy: + +hol_caml.o: caml_typedefTheory.uo hol_caml.ML + hol.builder < hol_caml.ML + +hol_caml: hol_caml.o + cc -L$(poly_lib) -o hol_caml -lpolymain -lpolyml hol_caml.o + +hol_libs = $(topdir)/hol/ottLib $(topdir)/hol/ottTheory +hol-libs: $(hol_libs:=.ui) $(hol_libs:=.uo) +$(hol_libs:=.ui) $(hol_libs:=.uo): %: + cd $(@D) && $(MAKE) $(@F) +%Theory.uo: %Script.sml hol-libs + $(HOLMAKE) $(HOLMAKE_INCLUDE) $(HOLMAKE_FLAGS) $@ +hol/Holmakefile: Makefile + rm -f hol/Holmakefile + echo INCLUDES = .. ../$(ott_hol_lib_dir) > hol/Holmakefile +hol/testing/Holmakefile: Makefile + rm -f hol/testing/Holmakefile + echo INCLUDES = .. ../.. $(ott_hol_lib_dir) > hol/testing/Holmakefile +hol/definitionsTheory.uo: caml_typedefTheory.uo hol/Holmakefile hol/testing/Holmakefile dummy hol-def + cd $(@D) && $(HOLMAKE) $(HOLMAKE_FLAGS) --poly ../hol_caml $(@F) +hol/defs_red_funTheory.uo: caml_typedefTheory.uo hol/Holmakefile hol/testing/Holmakefile dummy hol-def + cd $(@D) && $(HOLMAKE) $(HOLMAKE_FLAGS) --poly ../hol_caml $(@F) + +hol/ocamlpp/filter: + cd $(@D) && $(MAKE) $(@F) + +#### Isabelle #### +.SUFFIXES: .thy .isa +.thy.isa: + $(ISABELLE) $(ISABELLE_FLAGS) -e '$(ISABELLE_WRAPPER)' + touch $@ # TODO: can Isabelle produce a proof trace of some kind? + +#### Cleanup #### +clean: + rm -f *.grammar *.rawtex + rm -f *.aux *.dvi *.lof *.log *.lot *.ps *.pdf *.toc + rm -f *.vo *.ui *.uo *.isa + rm -f $(caml_combinations:=_syntax.ott) $(caml_combinations:=_typing.ott) $(caml_combinations:=_reduction.ott) + rm -f $(caml_combinations:=.tex) $(caml_combinations:=Script.sml) $(caml_combinations:=.thy) $(caml_combinations:=.v) + rm -f *Theory.sig *Theory.sml + rm -f *.tmp tmp.* hol_caml + rm -rf .HOLMK + rm -rf *~ + +#### Dependencies #### +## Ott preprocessed sources +$(caml_combinations:=_syntax.ott): +$(caml_combinations:=_typing.ott): +$(caml_combinations:=_reduction.ott): +## Ott output +$(caml_combinations:=.rawtex): $(OTT) +$(caml_combinations:=.tex): $(OTT) +$(caml_combinations:=.dvi): ott-spec.ltx +$(caml_combinations:=.v): $(OTT) +$(caml_combinations:=Script.sml): $(OTT) +$(caml_combinations:=.thy): $(OTT) +## Coq +$(caml_combinations:=.vo): caml_lib_misc.vo +caml_base.vo: caml_base.v caml_typedef.vo +caml_examples_adhoc_1.vo: caml_examples_adhoc_1.v caml_typedef.vo caml_base.vo + +#### The End #### diff --git a/vendors/ott/examples/ocaml_light/Makefile-distrib b/vendors/ott/examples/ocaml_light/Makefile-distrib new file mode 100644 index 000000000000..87a205fc23c8 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/Makefile-distrib @@ -0,0 +1,58 @@ +FILES = \ + Makefile README caml_lib_misc.v ott-preamble.sed ott-spec.ltx \ + reduction.ott syntax.ott typing.ott + +HOL_FILES = \ + basicScript.sml definitionsScript.sml defs_red_funScript.sml \ + env_permScript.sml environmentScript.sml matching_funScript.sml \ + preservationScript.sml progressScript.sml reduction_funScript.sml \ + remv_tyvarScript.sml shiftScript.sml storeScript.sml strengthenScript.sml \ + substsScript.sml teqScript.sml type_substScript.sml type_substsScript.sml \ + utilScript.sml validScript.sml weakenScript.sml + +PP_FILES = \ + Makefile README main.ml .depend + +PP_FILES_PARSING = \ + asttypes.mli lexer.mll linenum.ml linenum.mli linenum.mll location.ml \ + location.mli longident.ml longident.mli parse.ml parse.mli parser.mly \ + parsetree.mli printast.ml printast.mli syntaxerr.ml syntaxerr.mli + +PP_FILES_UTIL = \ + ccomp.ml ccomp.mli clflags.ml clflags.mli config.ml config.mlbuild \ + config.mli config.mlp consistbl.ml consistbl.mli misc.ml misc.mli tbl.ml \ + tbl.mli terminfo.ml terminfo.mli warnings.ml warnings.mli + +TESTING_FILES = \ + Makefile make_ml.sml process-tests.scm sources1.cm sources2.cm tests \ + theoryML.cm reduction_funML.BUGFIX.sml README + +WEB_FILES = \ + caml_typedef.pdf caml_typedef.ps \ + caml_typedefScript.sml caml_typedef.v caml_typedef.thy \ + caml_typedef_syntax.ott caml_typedef_typing.ott caml_typedef_reduction.ott \ + hol/testing/tests + +ocaml_light.tar.gz: ocaml_light + tar -cf ocaml_light.tar ocaml_light + gzip ocaml_light.tar + +ocaml_light: + mkdir -p ocaml_light/hol/ocamlpp/parsing + mkdir -p ocaml_light/hol/ocamlpp/utils + mkdir -p ocaml_light/hol/testing + cp $(FILES) ocaml_light + cp $(addprefix hol/,$(HOL_FILES)) ocaml_light/hol + cp $(addprefix hol/ocamlpp/,$(PP_FILES)) ocaml_light/hol/ocamlpp + cp $(addprefix hol/ocamlpp/parsing/,$(PP_FILES_PARSING)) ocaml_light/hol/ocamlpp/parsing + cp $(addprefix hol/ocamlpp/utils/,$(PP_FILES_UTIL)) ocaml_light/hol/ocamlpp/utils + cp $(addprefix hol/testing/,$(TESTING_FILES)) ocaml_light/hol/testing + cd ocaml_light && make + +install: ocaml_light.tar.gz + cp ocaml_light.tar.gz $(addprefix ocaml_light/,$(WEB_FILES)) ~/public_html/ocaml + +clean: + rm -rf ocaml_light + rm -f ocaml_light.tar + rm -f ocaml_light.tar.gz diff --git a/vendors/ott/examples/ocaml_light/README b/vendors/ott/examples/ocaml_light/README new file mode 100644 index 000000000000..57de14e4d36f --- /dev/null +++ b/vendors/ott/examples/ocaml_light/README @@ -0,0 +1,88 @@ +A formal specification for OCaml: the Core Language +Scott Owens and Gilles Peskine and Peter Sewell + +This is described in + + A Sound Semantics for OCaml light, Scott Owens, ESOP 2008. + https://www.cs.kent.ac.uk/people/staff/sao/documents/esop08.pdf + +The doc/built_doc directory contains an annotated version of the +semantics and posters that summarise the project and the semantics. + + +Quick start +=========== +1) Set the "topdir" variable in Makefile to point to your Ott distribution. +2) Run make +This produces a typeset version of the specification in caml_typedef.pdf (also +caml_typedef.ps) and proof assistant code in + caml_typedef.v (Coq) + caml_typedefScript.sml (HOL) + caml_typedef.thy (Isabelle/HOL) +(NOTE: The distribution already contains these files.) + +To compile the Coq/HOL/Isabelle specification, run one of + make coq-def # requires Coq 8.1 + make hol-def # requires a reasonably recent HOL-4 + # (tested on svn version 5632 from + # https://hol.svn.sf.net/svnroot/hol/HOL). + # Further, the HOL proof libraries that are distributed + # with Ott must first be compiled by running "make" in + # the hol subdirectory of your Ott directory. + make isa-def # requires Isabelle2005 + +To compile Scott Owens' type soundness proof (in HOL): + make hol-proof # requires a recent HOL-4 + (tested on svn version 5632 from + https://hol.svn.sf.net/svnroot/hol/HOL) + +It is highly recommended that your ott distribution is built using ocaml's +native code compiler (use "make world-opt" from Ott's top level directory). + +Overview +======== + +The source of the specification is in the files + syntax.ott + typing.ott + reduction.ott +These source files contain optional features. The only currently supported +optional feature is type definitions (such lines begin with %d). To produce the +ott sources with type definitions enabled, run `make'; this leaves the output +in + caml_typedef_syntax.ott + caml_typedef_typing.ott + caml_typedef_reduction.ott +The default makefile invocations have type definitions enabled. + + ott-spec.ltx + ott-preamble.sed +These files are used in typesetting the specification. + + caml_lib_misc.v +Contains some Coq code necessary to build the Coq version of the specification. + + +The subdirectory "hol" contains a type soundness proof in HOL (in +definitionsScript.sml, but relying on almost all of the other script files) and +an executable semantics (in defs_red_funScript.sml, reduction_funScript.sml, +and matching_funScript.sml). Using "make hol-proof" runs HOL to generate +corresponding *Theory.uo files (thus checking the proofs). The "Holmake" +program, distributed with HOL-4, should be in your path for this to work; +otherwise, alter the HOLMAKE= line of "Makefile" to point to your "Holmake". + + +The "hol/ocamlpp" subdirectory contains the parser from Objective Caml 3.10.0 +modified to produce the AST for the HOL representation of OCaml programs +(see hol/ocamlpp/README). + +The "hol/testing" subdirectory contains the test cases for the operational +semantics (see hol/testing/README). + + +Revision history +================ +2013 updated to add Lem generation, by Kathryn E. Gray and Scott Owens + +2018-01 made build with the current version of Ott, Peter Sewell + diff --git a/vendors/ott/examples/ocaml_light/README.internal b/vendors/ott/examples/ocaml_light/README.internal new file mode 100644 index 000000000000..575fbaac2ae6 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/README.internal @@ -0,0 +1,58 @@ +Specifications +============== + +The source of the specification is in the files + syntax.ott + typing.ott + reduction.ott + +The language contains two optional features: type definitions and modules. +This leads to four variants: + plain the core core language + typedef with type definitions + module with modules + module_typedef with both modules and type definitions +The source files are first preprocessed to specialise them for a certain +feature combination, yielding the files + caml_plain_syntax.ott caml_module_syntax.ott caml_module_typedef_syntax.ott caml_typedef_syntax.ott + caml_plain_typing.ott caml_module_typing.ott caml_module_typedef_typing.ott caml_typedef_typing.ott + caml_plain_reduction.ott caml_module_reduction.ott caml_module_typedef_reduction.ott caml_typedef_reduction.ott + +Inside the ott sources, optional features are hidden within comments. +Lines beginning with "%d" are commented out to enable type +definitions, and lines beginning with "%m" are commented out to enable +modules. Whole passages can be restricted to a feature by the following +trick: + ... basic material ... + >> + %d<< + ... type definitions specific material ... + %d>> + << + ... more basic material ... + +For each feature combination, the spec is processed by ott with the command + ott caml__syntax.ott caml__typing.ott caml__reduction.ott +The Makefile is set up to produce the following output files: + caml_.rawtex # LaTeX + caml_.v # Coq + caml_Script.sml # HOL + caml_.thy # Isabelle + +The .rawtex file is tweaked to obtain a .tex file with better typesetting +choices. + +To build the versions of a file with all possible feature combinations, run +`make caml_combinations', e.g., `make caml_combinations.ps'. + + + +Coq stuff +========= + +The following files are used when building the spec: + caml_lib_misc.v + +Other *.v files are attempts at demonstrating some aspects of the spec, none +currently worth distributing. + diff --git a/vendors/ott/examples/ocaml_light/caml_lib_misc.v b/vendors/ott/examples/ocaml_light/caml_lib_misc.v new file mode 100644 index 000000000000..c34643657686 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/caml_lib_misc.v @@ -0,0 +1,110 @@ +(* Miscellaneous non-caml-specific things used by caml. *) + +Require Import Arith. +Require Ascii. +Require Import Bool. +Require Import List. +Require String. +Require Import ZArith. +Set Implicit Arguments. + +Hint Resolve Ascii.ascii_dec bool_dec String.string_dec : ott_coq_equality. + + + +Section ZArith_extra. + +Lemma positive_eq_dec: forall (x y : positive), {x = y} + {x <> y}. +Proof. + intros. destruct (Z.eq_dec (Zpos x) (Zpos y)). + injection e; auto. + assert (x <> y). intro. rewrite H in n; auto. auto. +Qed. + +End ZArith_extra. + +Hint Resolve positive_eq_dec : ott_coq_equality. + + + +(* Coq 8.1 has NoDup +Section Permutes. +Variable A : Set. + +(* Here are two definitions for a predicate stating that two lists are + permutations of each other. The best definition might not be either + of these. In any case, these definitions and lemmas about them + should go into a separate module. Note that Coq includes a + Permutation library, but it only handles ordered types. *) + +Inductive inserts (a:A) : list A -> list A -> Prop := + | Inserts_here : forall l, inserts a l (a::l) + | Inserts_further : + forall a0 l l', inserts a l l' -> inserts a (a0::l) (a0::l'). +Inductive Permutes : list A -> list A -> Prop := + | Permutes_nil : Permutes nil nil + | Permutes_cons : + forall a l l', Permutes l l' -> inserts a l l' -> Permutes (a::l) l'. + +Lemma inserts_equiv_app : + forall a l l', + inserts a l l' <-> + exists l0, exists l1, (l = l0 ++ l1 /\ l' = l0 ++ a::l1). +Admitted. +Definition Permutes_mutual_containment (l l':list A) := + (forall x, In x l -> In x l') /\ + (forall x, In x l' -> In x l) /\ + length l = length l'. +Lemma Permutes_equiv_mutual_containment : + forall l l', Permutes l l' <-> Permutes_mutual_containment l l'. +Admitted. + +End Permutes. +*) + + + +(* +Section Specialized_lists_support_hacks. +(* Provide various definitions to support both standard and specialized + lists. The notations defined here will be used in standard list mode, + and shadowed in specialized list mode. *) +(* Also force the use of standard library list types for + [environment_binding] lists and [environment] lists. Note that coq + homs in the ott source must be consistent with this choice. *) +(* We do this here, before the types [typevar] and [environment] + are even defined, because some of these functions are used in + auxiliary functions such as substitutions. *) +Set Implicit Arguments. + +Definition identity (A:Set) (x:A) := x. +Definition nth_error' (A:Set) (n:nat) (l:list A) := @nth_error A l n. + +Definition map_list_environment_binding := map. +Definition make_list_environment_binding := identity. +Definition unmake_list_environment_binding := identity. +Definition nth_list_environment_binding := nth_error'. +Definition app_list_environment_binding := app. + +Definition map_list_environment := map. +Definition make_list_environment := identity. +Definition unmake_list_environment := identity. +Definition nth_list_environment := nth_error'. +Definition app_list_environment := app. + +End Specialized_lists_support_hacks. +(* Notations do not survive the end of sections *) +Notation Nil_list_typevar := nil (only parsing). +Notation Nil_list_environment_binding := nil (only parsing). +Notation Cons_list_environment_binding := cons (only parsing). +Notation Nil_list_environment := nil (only parsing). +Notation Cons_list_environment := cons (only parsing). +Notation Nil_list_type_param := nil (only parsing). +Notation Cons_list_type_param := cons (only parsing). +Notation Nil_list_typexpr := nil (only parsing). +Notation Cons_list_typexpr := cons (only parsing). +Notation make_list_value_name_expr := (fun x => x) (only parsing). +Notation make_list_pat_exp := (fun x => x) (only parsing). +Notation Nil_list_value_name_expr := nil (only parsing). +Notation Cons_list_value_name_expr := (fun x e => cons (x,e)) (only parsing). +*) diff --git a/vendors/ott/examples/ocaml_light/doc/Makefile b/vendors/ott/examples/ocaml_light/doc/Makefile new file mode 100644 index 000000000000..4d859af7a86e --- /dev/null +++ b/vendors/ott/examples/ocaml_light/doc/Makefile @@ -0,0 +1,14 @@ +DVIPSFLAGS = -Ppdf -j0 -G0 + +all: + latex poster && dvips $(DVIPSFLAGS) poster && ps2pdf poster.ps + latex poster_rules.tex && dvips $(DVIPSFLAGS) poster_rules && ps2pdf poster_rules.ps + +install_doc: + cp poster.pdf built_doc + cp poster_rules.pdf built_doc + +clean: + rm -rf *.aux *.dvi *.log + rm -rf *~ + rm -rf poster_rules.ps poster_rules.pdf poster.ps poster.pdf diff --git a/vendors/ott/examples/ocaml_light/doc/abstract.tex b/vendors/ott/examples/ocaml_light/doc/abstract.tex new file mode 100644 index 000000000000..da439d7731eb --- /dev/null +++ b/vendors/ott/examples/ocaml_light/doc/abstract.tex @@ -0,0 +1,78 @@ +\documentclass{llncs} + +\newcommand{\OCL}{OCaml$_\mathit{light}$} +\renewcommand{\refname}{} + +\title{A Sound Semantics for \OCL{}\\\emph{\normalsize Poster Abstract}} +\author{Scott Owens} +\institute{University of Cambridge} + + +\usepackage{times} +\usepackage{url} + +\begin{document} +\maketitle + +\OCL{}~\cite{ocl,oclweb} is a formal semantics for a substantial subset of the +Objective Caml core language. It is written in Ott~\cite{ott}, which generates +\LaTeX, HOL, Coq, and Isabelle/HOL definitions, and it comprises a small-step +operational semantics and a syntactic, non-algorithmic type system. A type +soundness theorem has been proved and mechanized in HOL-4. To ensure that the +operational semantics accurately models Objective Caml, an executable version +of the semantics has been created (and proved equivalent in HOL to the +original, relational version) and tested on a number of small test cases. + +We take a straightforward approach, formalizing the syntax of \OCL{} as a +collection of inductive datatypes, and the \OCL{} type system and operational +semantics as a collection of inductive relations and recursive functions +directly over the source syntax. We hypothesize that this clear connection +between the source language and its semantics will facilitate verification +about \OCL{} programs, in addition to the present verification of type +soundness. \OCL{} covers a large part of Objective Caml, but excludes the +language's module and object systems. It includes: +\begin{itemize} +\item +definitions +\begin{itemize} +\item +variant data types (e.g., \verb+type t = I of int | C of char+), +\item +record types (e.g., \verb+type t = {f : int; g : bool}+), +\item +parametric type constructors (e.g., \verb+type 'a t = C of 'a+), +\item +type abbreviations (e.g., \verb+type 'a t = 'a * int+), +\item +mutually recursive combinations of the above (excepting abbreviations), +\item +exceptions, and values; +\end{itemize} +\item +expressions for type annotations, sequencing, and primitive values (functions, lists, tuples, and records); +\item +\verb+with+ (record update), \verb+if+, \verb+while+, \verb+for+, \verb+assert+, \verb+try+, and \verb+raise+ expressions; +\item +let-based polymorphism with an SML-style value restriction; +\item +mutually-recursive function definitions via \verb+let rec+; +\item +pattern matching, with nested patterns, \verb+as+ patterns, and ``or'' (\verb+|+)patterns; +\item +mutable references with \verb+ref+, \verb+!+, and \verb+:=+; +\item +polymorphic equality (the Objective Caml \verb+=+ operator); +\item +31-bit word semantics for \texttt{int}s (using an existing HOL library); and +\item +IEEE-754 semantics for \texttt{float}s (using an existing HOL library). +\end{itemize} + +Most of the proof effort is a straightforward application of HOL's tactic-based proof mechanisms. The entire proof is around 11000 lines of tactic scripts. +The poster will present the \OCL{} semantics and also lessons from the verification process. +\bibliographystyle{splncs} +\vspace{-30pt} +{\tiny +\bibliography{bib} +} +\end{document} diff --git a/vendors/ott/examples/ocaml_light/doc/bib.bib b/vendors/ott/examples/ocaml_light/doc/bib.bib new file mode 100644 index 000000000000..d6a136f4a99d --- /dev/null +++ b/vendors/ott/examples/ocaml_light/doc/bib.bib @@ -0,0 +1,19 @@ +@inproceedings{ott, + author = {Peter Sewell and Francesco {Zappa Nardelli} and Scott Owens and Gilles Peskine and Thomas Ridge and Susmit Sarkar and Rok {Strni\v sa}}, + title = {Ott: Effective Tool Support for the working Semanticist}, + year = 2007, + booktitle = {Proc.\ ICFP} +} + + +@inproceedings{ocl, + author = {Scott Owens}, + title = {A Sound Semantics for {OCaml$_{light}$}}, + year = 2008, + booktitle = {Proc.\ ESOP} +} + +@misc{oclweb, + author={Scott Owens}, + title={{OCaml$_\mathit{light}$}}, + note={\url{http://www.cl.cam.ac.uk/~so294/ocaml}}} diff --git a/vendors/ott/examples/ocaml_light/doc/built_doc/poster.pdf b/vendors/ott/examples/ocaml_light/doc/built_doc/poster.pdf new file mode 100644 index 0000000000000000000000000000000000000000..37e04efb720eb8692de3e74540a334494fe28f66 GIT binary patch literal 41167 zcmY!laBl2qUwh!a&!7M1+xhp^DLh)S`p^91`s@F_Q|$c`UNmpb z)NijIZf4J9D_r_lWe;cgx!;;UR=4ZR|M~Xe@@r|;FDk9Jf1dqHo44ef-;cw0qyM=J z*v%-Ym^y!LXuEpmo{7tP__O%hmtQwe61uhW@aZ4dxEz)DJxbT_DOor339r5N+UCpc z_djngyms!>2aEHM4nK^JbN4;9`mnLw!nvYmGVj(co!hdgbe|{loQduKWta0^;wb#_ zr)r+a+rzDCrFX7&ryi}Z{lU#7cCfE+$(E@+x=jZ}rtH`iIC;idpMol&%7+SSL9&Vo{l|2NnFP`;+`y9r}XE^WAC`9<~$6u&KPKL zeBF}FbUHTfaAoYXskb=m!dUpkMH&<4r78DZZGSJ}66ST@qq8_-q0o<)U(`6-bOqZl zrkU;8t}kczLw(Vz4uK8zljPT3i~xQz)$ zuw)+=xN$6Fxq0CiAEA@Ra``jfZe@%E5`!YQ^uK(QrW95u=b-~UC&N(tK zU&Y>8$al|WUjJ{QO&w0zF2%nNHJp*wzqD;izQMd!9nWh%ZCw%Dz!icbp37g z4|cv?t%v`bo_%S0cBT85CYR3V$0g+tR@}L@NkF(K;RCmjPP|>kkLml@=D0Vk$Vs0Z zc5#Us^U1(C-%B%d5BGV5DrZ%*R_yidI(2T@#OC!0mm^nlMP;_0W?Hd_aq-fufc`^| ztAB_bf8bSWyvkB|&6MvMdrK$UD4G0u_;stv_^pOpdiJ_}la)5b zKPs8>1MIZC?}=u9V7u?(=PM3-2b9kgENAIs=zS9Dhc`nKb zlWS8w_0WI4{J-d+`v#XLy-=)l?=s+;tG*y_(WTHW)|+zwsW2s)t&#{#k>q4+ka)o*%z`_n_iNsQFEDcd5?F2 zie0j;>m0`_oop3fji9%7%9l=FP$@C_-E+)y&WUWSsf*)937pWlv8^EY_?jsZomh+aqr}Q?#jb|DL_g=jT1Wene=0 z`}Oq?cAjzXua9~5`_G9QlS4mJ{GVMv|L~`F#lN)5cY&P>uB$mrB>8flhE(J$+z@!$ z%aO9OdhUuzXV-pSDfE)R@{OU5yJeoKpkQC!B#l7V)qi4c83}uD?stnm=9@C9p5szf z;yS^ct|v3gW;S(dO>)ULbNUhZIcDPToSCy*)GQTK^g5GWBInz${k=Q(h48ZqmgM(r z=k@#Kk9%&q8!~O*79V$q^?k)+Yj-*D`Fd=5HDzBzSbVdchtQM*_b;e)9h`pjMA5>9 zIahd;U;ehZxNXXAkJ%?Jf3&90Xxcol@J-hqCP&_?WrA0BOx|uF_x#AmPW6*^8T-~0 zMc3Ng6EZdo|1jO~x_^{pr#nGNh~-%A zhnWigEhe5ujP75irA}VTFEw-O@$5LQ)4OM?ie8ew^eQ;6%P-|nK+7Xe`GY}~URC*0 zo8C^a+3B-N@_r#J*U8Ui9am>5p1+ix9D3O0{KL~l6BMq+oXN?{DPF?EsJ&*5{H=Yy zOHORH+SC4#qf+Lxl-XqSlY+i1HuJui>1(IlTt8Em*~04Ek`3CesSlG^@0wY=BFi+7 zx&N}DUE!mH(}Y4qEKBw+*H(Tj(q|;&cS1(=*FLF}*+LQDjZH5kRPYN)pG}haTy>x{ zeb+q0qQn1Yh1&8PI6d{`^Y^}PaIs_gL_@*&9j}&Wb1n_fJ7$u7b;bVJf4@08)+-yb z=C2*0!ds#nL+)kGq|mcmJ|gwt;G+ zO8CYpi)<@QAJ-~37Zj&|VCJ4J!T$Ve6yqh2G!@;DogSSUI(97q3u627GTriA+bc>o zoE2c%QF(w7mAmvEti9=E=qFlfJnpthwuwpyJJ(e%+(z8Qb1_!b&baGTWnX3vg=( z2lls=ect@|K*8ivx2rGCd`uOY`C(am=X2RL4ilVzT7Ld6xTd8uX1BK)lX_0f<;e^8 zo#d!I)}-QoDxpWC&bp$GE4_W~oT9iTO1F>yxVla3b=Ky!3A;C%#(er+tmqi_@W^kw zMIon(&9xkTvc)nUhV7FI@M14=<`CTeF1A z-!7Z>MMbJVpXs?fFk!dPw!RDZSFEo{)?s}ad7nii;6TZm$rk?C*or^6`c!^6a$`#L z&jq5}GSpKFUqoLQnJQkDnsN2PzBsko3{PX%gGsF%_rB&$>{=|o{hisege&=*{byRY z6r0)q3s=%`4*LHgbR7N!_R}S4rTcE==9~R0lbWP|D`)1C7s25lEqAwZy9F; z`X2{>1smt8Nv@aASQP2Fv1MJ9U-vcC?|_bwnqI5mDdo898>0n`W_gs(-*9f%GXAv= zO?ACh7RRi@*!t%>yWF(dB)sk8l8M{((h7gveShG~3C776cD<{gw`GF(rjJQg3Y(II z4qj>g_t7Ha#JZ5~#=90uk}k%<6?U!R%a|2arr%Yt%JiD)DRr@2`u*xQw{lzQz4^-$ ze)E}RON8+L*k}AN<4^k0Uc(-@-8WC(KYpfoxw?AJc`NtGnnQ&)r)w{Lk?`St@$aVP zmGHwk?u$3L-xW-nxIv|~hN=CInyAd@KL6IV#fma|mn^K;zL(haHsb!luWR0WJer}t zXJ=S?wwsyL-|QbEy0a%HUYjMSvwP0-yQ^N*{xsWD^kkjdyVP?l7cWs-b7|ks*sh(6 zgF0^BZZmhA{>fc$hYj zELM{?g;~N&((>)^Jk!P7SHF2E|M-nd?l}=X@y5PGdY1V)3XzYBcYXTOeR*1>l9KoK zc_m^~KR#NxbLAhC<9GJjC~vs>$x9*B>CvMa!T+E2AMu@3d|1?d(AcPtxy|T6hE;N5 z>f*&qKQ4aA=6Y_Pz+Ma8UmX&g&n~OxnKkdxB(sD$JCC${VBFC%VfoYgAibGV!ZzZ5 zg{D_72H70+WOhpYI_1(V&6lS;c*6Z>&JgM=41T+H?e-Z#;r%y1HQoGGkYqSFJ(DTK|LS7_kCSdYvZnoDp3bGA z?ImO<`Q+jY!Ia&Xk}o~myzug!r#bbDLW4K`Z57>msktmU`=6cQ?{!(Gle}yjq`#$g zvZjYQcQMAL1Q#orwWqGw_uzceP3D>GykZ;DHcn|MSemr%2WL!UK-SV5;wMA7rafMz zUvzho=vmG8UWsklCmsma%;atn2@goSP?S`+uIGbyW565%$KQF3i6$R26n!oHP14d5 zPrppjP?LLTov}5f;lxsnyl+Xi$u}L=u_+o~51pcYeSuinzfcvCg|Eu5afF_*%KK9t zp=OvAwf~j;fjhpAvOlFJn=RUSweR7Nhg+57)l9w`&-B>pHB&T3PK#+$(%K2VC+b); zs*Ec56Ao1-EnGdPY4XZrZY;^t6#}V8PAoq?H7#b2(=XPISC+RuXDB_QpTw;B^Zw&S zmu@bdH$A;(lIG=8X((~CsS zIM^+IzdrNmjgk1*HEu<<4rwd$-%Vf)OF46)rRaSBvB1_6#gCh2xh=Ug_4C75$NUez zs+_96Ugy@8ugXRRx+?Ym_uN=9$KVUgy!%aGLmuhp?W|7nUbS(L*Pqtd&gBMjx?A5D z$F%9>#AxxW=es?7t*?0Ene`s2o|S@MUd_9qIz!5RPeZS$aQq?Jxv`Vd9?zH~=*<_E z5q8$hZlS|>fr8)$Nka#L{VdEs#cmfE=u|UXee*bAud+RmYo(VQv*gudPYdR#d(`lM zIR2Pf&rklLlhPsXa+Y$xBYYF~>{jbM7$z=ryX}$DzNwMx)E;?7FH!xWFiGE`j^|W| z&h*t6%u{ z;E}JboA`EWosJ2*^VZHyD1kpI;SAr&2WM2%e^e`ox%_*qtC%w9$futRzufgqnK)y? zk-J$-rFZmx=n_(0>z#CbRa(EqPfw*Nwq_RdAlCDV3uVHd>RVfMZi!;b-1D>A?fj1K z7uFmSU4G`sJx>|i-=%ZzosTm67hg7?*Lmfx^UppUt@l3^ToqY$Gei5Mb4JkC{oa=f zmK&#UJ?VRXt@)dsFCx3QHmu#diS6&ku($(4K~iVLS+|LWCY+vpu;<4f-ZYOdTj#zy zX0%2>ZqZlSmO+i=NIjsF>~(u!~cCQ9XY$~_%@!{ z6$^F0v))egX!FZ zucl6oZTjeRH6!PZR@>*26mOZ&V$WQ3jb}YKJ3Ub~-zbmwXoTk%QQ!ZY?)4OgzNrn{ zVO{aGies;)hNI}EJA932RI~2A;0=Gx>SWrLdm;4OvFB1B)b;n7#B&}pOSbwHUKCT6 zy--!jQR>H&UvB4lmJ#olRI$Kqh99e4WTxlbKkk#8ncZ~8XJ7bA$vICOzPcX^X8E#{O(BWB(v9K8 zb5`r8m##$Jt_aGAQGS0t`bO`BR|hZYZE$HRS@Xlgn=?g#XHvBn$My-%7ezOlo@Om7$d2m1e$C`#rkLg7{RiGg-kA52d&9+V z2byk584FnbSfSH*=b8B=ZLaV;#;Yej_(?{^wKOfQjg3}QEyYsxPBp2BeVDreH7 zR>9ubFMC|$wkS4dwVdy4+i_H;&($Z+M2OX~HLTS8u%YQm6D`JvRY#uaR{xA(V*U2B zHZAD+$K2-)M$a~FDkxnW$XNAjap#P`pPFNI0~`0Vh)oE75ny|N|NH74p650hPIJ5U z`7TpCTiuE0;#p7nHUCaHImvF?x!uQ})NnfsoKaqBwC!!#T)RleqBq=6w8~V2eCD}v z8(#UL*?KDLu0U>IA?J3rr%N_IVSRHiFw&O&vqW*sGlvCtoTn_pUrb z#Jayr*!^|Ul6LnDJ=f^E>2j`dZgTHg?w{Wfq4%ZxX-&(T`I{OAzStBOFZ=PL*KW^0 zwL%d^i`%z1@h+NqQdhLqu=c)yR?M}fMX7r-l5>5(rF$Q*@{^3P?|VD{KyFy5ZcFFO zJV%efU)#33UopHF8yu6o%HVs=mR)lu_D7$$SS@vA>K&H{uXeM4zG`1kxlHNNlP?al zqT~10C|p^Sx#-ukqs{kuocF!$^ExvmRgor9^?BHLW8iLb$Ib@7g}m+X^*Cbw?a+T5Y`IWASm z%xm?bm`fF}UHDHsZ9HS1tn+%>uihr(H!7>c43}`7_`KP6LbKPw#FTsS@!q!!K6^y% zS^1r7r;%^e-CHke8&4eV4q~13v`S+xds1o2Kbg*llja`nxf>B{@OX+F%ZmfWZGX?s zk6P)*UdtQp+14^SEj8}T)w7pP%+2lYCnq?_aV*}=b@>WU-GUSKE`f7|tY0p$UBs|R z*p}(`ioJn+9)*_=U0C?`PT2A9))Tk+h0KgKR<5)BuqaH2Xfju;oT((o<>6kkw+rd@d#hQ>D6AT~rl+l;@-VeMg>}&qj^B z^|QT`c$RGJF^c^pns?^Rk<(Xizdo%$?e)AgFkh0Mdv3?UXm0(+l*E4@_`AiMrV(!Ojf`B zUHTyRs;&2Qf422*zpirPZlU5GiM(g^G1GTWJX+`Lw<`=X3(@FhWla!A`dyO{oK9(>8I3L zlZrj8J4*#ce)=7ZyjUbO>5azQSA1pvwQ`Sp-A{NBStXk@yQ59Dc;|o7@3W5dJ}o*i z6pU+%A&Q`|+Ss>jbwmX6LH+MBe@{Z6%lLuI$rQxbp3V z#L7)BJL?nj9?#W$Tvwo%z1YTF$x7HT_}s6XQ;wNhZO}g(VP+BB0woMUP?9~6bE2a5q!zBK&vZYQvTGQ4AwcC4NN|4_5AEsp*gyft#h)ai{q11MSf}&yR9wQT(FN_$}glP ze$LMC%fchLT158p9h1^7ovt=Tg)`xdR)&o6%a-uI-3LuRo;c20T_15=DY|pr%p=cC zUlj42m$=+|Ml0y{n@5?dv-Q?>MC^&K`d-#F|I%s4H$&do1>%e!5#TeHtxs!)*g;nzd_u1@JI`@Azxygd6}Uv{x#pvq@GDX9;YftTa= z{$`7%I({c~`kHrVC0~3k(7NeYdinl0@ed#WH|PGBx>wKm-oE`i z|MuCjy0f_AYdS6LWPER39z`-u_9Fa_2L9q3A04`%GDA{QkI7$L_6Qc+_PW@oYeaen9To_x%u`?87&e zi?F+PMaV9eDXD%N*WGNn?kX2#aLVO&>BW-!%4d(QWyp}%U0d=#HT8{S>;4F)xyj4)mX^t%taD*`zNk$gU}A3c zOc&3_xy$FJ|99T?S@V~K#QVu5YMDyqs#BlIyIQ{bcq~qOQnSm2?Bog4ua()XS()+s z($%DL{-U_zW%DmAGYCz$*tRUDG-S>D_mdgjuNeHSWL>z-^X-byiTkZJ<~{!Qlfmr9 zRdZL)mh4@}YNktVI1>Hj#@%gyrbPZS{uZpso4ZzcU(>-eb1uug2sz~E7`wM7p~pxi z`?a*5hr#BAN>`Ud`wOJqr11z^DAF#)d-mk*bGj>&cXSx1Jio9+Xnoh> zOT2sZBH32{e!t+U!zr<;zPl>(4$Hbs=IyOKv-g$KIj^@WkJg>8)yna7@?g?)SiA2g zv+4cjSr4==er;;J<^M?0V^e1A?rqk4Jy;et&)9ObcZ#|AVt&$Zju{HW`+_|Mw&w_9~v&&7}V4}RuW_0`=9uK1t%e`nLY zH{PBv7%p5l7jK?-M5SCg&+&hbrIf=H!JPMbzh(MAFLF4Q%luBT!CL+1oVhNG)h6~P zZP?SeIeg-&;}iK@v+A0aLRp;OGj)Y%eqHiTIdJEsGwBBZ?$2O<^{j9^;~H(2;OZ&6 z?X{Hc)EK8bH~H99o_Ne8!2k1K$A#vt;)WHH4Xe)_-g^3cp+<7m%557{80Hr*-E`qy za_8wOhs17az3~&i5b?CZFHd)o+_SpxR{Pf#Z8gm16_;JQ);5x9?%X9G?)Cvwai; zgTJ&Y-Rr933SKkifR@~z$6Ma-UM~83dUN+d+0(VxWBDB9zOB8JvAZ?H;eV`~iRaCU z48l#Hnc7{1=ie9kv+{4kk@T?C-y62Yt>Zs-?9fYroRGP)O}d-qm2Z5?-BrHbUDNEQ zna8H9O+JxQNKPiijPOV6qcFP{1?zIgIumZ?>*(wy$<6(xzu%4=P8 zezJKxOl37=>i9bC>GRb+t0Zq7H1%S;TBm-nvaeS5+m7&>^*VjK!~HXU%b9x}v&0S3ls9w;TSkPKT@asQ9p*Cg z%POzQ%JOE1)GIaiKKv2Wa^9DD`m7~8Z#hM-$#QDDpXd9dre*%8GIpPNZ<`)iZGUmZ z&_Vd^oGqcprhap@4ZpQss8;ZBcTc>V=)`r&uW zZ{a`JMXyXdwtJ2LDgCo4=IK)weqHi&OG(6eai6klcW3=xDlPK=!J^Ffs<*`A%)ja- zh5B*T-G3GJ`pYVo`%l+tUOnr0{fOgiwwV7bE^nV8qH*E(D(^|+p|Oi{f7_neczx{* zzf-Ty21KuWe{f2YvflIQ!cv$1hHut=_lr$)&)*F<9Te8z+_2q7QAfZ2c68jtnar_M ztiF{^{9~@S?BDFGr5|tp`?Qg_c;mV+4~;4s(?ry#P0SJd&CepP-T9b9CinACd0yAM zWtyvmoqKN|u6Wh`ZNcod5wliY3%?`YHBUNZMk(Jp!B@9l$g6rbM+S8{`rYa7Y-v@= zeVbZa+_<5`-pfyn<-gOq^V{1TGTyU&JD>Z1iF>n1_XK9|mrjb|i$s*3`t!EN)YR?0 zv8_{OGV}j5^V{2so;ew+n~VLi`V`RfUeEu|^tsvJ_MH~>%bj$vpQB8+ZQ8d<-V^Pd zSM#$R4?0-p6Z~bv?21Dbhr{;FIJw63%;{T`?wNf(%Bth|W+~@f6Xuzh*KPV_*kN(* zQ^-G~L;q&{;`qC+Z%yZocPD2(@@{nB@*`UMeV2RT-*=B^|{srH=cv{ z4(}|=(dC|8z*6?4@83^fiM5}Z8E@1J=l-;?lias6HTPA1^}NGo?0d5~Hy6!dKfC?n z!^5Zd7VTC#!v0lS`;?e_5&NmWUA=yr7M;}iExMztJX&1H)#3Z4{G0J#HT6|jzHv0W z{ac^^Qw;y6FJH@c-DI#Tut@c5?H6yKyYAiQ6|L4A8&8>q?8)8I^4NW^zT00zxBUxt zFAK3svB0{kvsnJ@IA3_@7?U*uR4^h z9UiZ>wnl8jy*Q3F#I@|GUa`flmqdok~hN!*=bXRDvKetXc(vc?#FF=Zmjz^`1k$t^)_2BtetdcV#&q} zr@K$K(r{%Zxow&t5!tZ_ZM=J321Kaz!RP z7Q_igENSG4eA}~e=7T>r-g#So=xy`=u=!&9a?k5K7dV~tx^^yl(zE<^JD<)K`uJUH z>O=Wi>3fRZz14GH{mJIhew$&cEt=vNb#1e5(TiBa!Qz^P9_aB4$q3h+Rvv=CGr7G^-)2g{+Z_I=E z7iLcvycDUpAnu*^$KLkGe~pBD`%?2#psTY|^HM-7xT0g+WO+h~-wW1`JOW(Dk#61|S)yM*(#VtRtM8U`s z%(1iM(s$0!D@n~ODONCr2|?WlvI6908yf|EkOLLKE-Y5i_s&cyR*2>Txj%?2Rzcr6 zzcjBz!H~<&4(2sORIe%MJ13ST=H#cti~t!O#HH_>T9TNOSdyq<0t%lXBm>M*4M2E< zOW!}hSHaNE4(dp-uOP0}4>IQh=?g-*1ME$htf2*$Avg^5gAC2M48d0F2N{}h8G?PH zA7p66WoQHn1pOdG11>{Q1O({^S#Uu$8JTezK{Xkfa2Y{085waIK{Xi}a2bI$Ashg< z5b6M@#Nt#?;Ohs3IQcmFYCHRegcus>gM?gCi<65o3rg~f6b!*J0}gPo6qmkRW>Im8 zb4Fs3g0Zo_Pa>3UXk?-vo|#gTQ5>yc3ibiWY6CDE#7D*;85rMy3!w%i4#O~c5RIgQ z3nC8^g<*sUL>-6^k~81}lb~d4XaaW!Tox)0*MsB^h&~XBj$yiy#G$qziNNhb7K7>p zWr4ip{FKbRbOjTTSde~jX;KL&zk$-UAtI{4ve2jkN$I;n_348m4$cYB%yY~u&V=(_ zGSkvhi&FEFQ;Vayj4kyGOY=)oi!#$QN@5XagA*InY>;W7IM;U$^>Pbw(suTBiolW# zz$qDfGB7kSL{10BNa?^>!Po?pxeOGH!ATiGo0=JMnHhodxPgL+iLru-F~|l`h=7V2 zkRDSrP(cIpn1Tr?6XOmokSx?kY&aCG+y4b^t` z4URN40A~y290T%H5cZ%#&M*dMh=4MHcpQ^7H2`H0ba8WYL|_>xfK(V7;4}iP8Jcgv zYy~VNRpm_$3=}{ZWRH=#IZB#`lufwOJV+KA*yP5dv3_DPD8(0N=O&h9a2cBFCza;p zq?T|Qnd&DN6cpuGq!yMY=5QGs>n9c!<(Gr=2A83Mk$zH9VsdIuYFY_|1(Pt-Pf9F8 zP7z3sgr^8k52vW85KxK;#*%qJ$r(qAFf_uEcZ@)q%q>m9(F+PmoERK;CKjNA8m7kB z!axCp4HV4H3>A#b4Hb-y%)qn(7f2;B7^Dk?p=NR!D43a;E0~#BDwr9WDVQ6WD41Fp zE0~&^DVUiWE0|fBDHxfVDVUgADwvs@D3}^qC|H2hT9_%A8yRt#fomlL1yd7a1v4{q z1v4`zC?lLknR4_I(1!IsdFyGKv0Yn>c znV5sbkTFCAEDJLqlv9jM6hO6`nE@!|P0b7yOpQSmiJ6(Pf{`i2ZKehg+RW03%hVF& zNizd81yds<1v7BnZ=hgd0jf%nZ3Bh9i76xlKr9RlHVGnX4sQ2D*hnO}#R)1A zEfh@5jTB5lab|9$U~FUpatWAkWD1HeQ$tGy5X-{E7%U2MCrC9Y7L62449pdbK_xLr zzlEiOIk;72Vqu9Chs5Sha4!NQsGWnOe1f!{eSNVMEnv%Vgte&!BCJg<5J7Ejh~zW{ z6Hp?@oxDJ@P#2M#yi6_h3sQ?R^HY#&ad346H5ZCF83v+Z*vt@=MiF_!)D$LzL4#5}xSa|r!$2)W5N)6UA&ucOMqm>_ z=75^NAaw=`CWfGtZlGXnWU62aPIO>>NC}D9@B;T}q2UEiQJ~%rqWumoO#BjaQ?c}m zot*M3qIC@wbd8KG!M!{)OOsg8Hn{X+1#>Qa$KqtrScsXW375WeVu430sN1DrW@OBz z4>BJl2hz!LK;v3^PzDG*_8;24cMkc zF4VrYvp#eeqltluv7H@sM66=Y+6c~&;Oo2W44*t%(a~l5x-<9u!tG&8wL<4?*qXI4 zOSF(dMj(K3qGh9i#~~3#PUkYAG^Rukrx`3RYrDkbH);*2Spk?6qH`-qx1N z-(Qx$SGY;#`>l1m-$j)lj7mv=|Mz`;{r~Uv|Mx#k$V)chYd_4-!^b`Qefock=E`}8 z_ZYNQPF(F~wCvkSE4hN_Oy%4E>Q6A8_u=}<0BgZE|3f=u`V4|4HGC#_3OyD+a&L1| z?VjiQvAa_Gw%^}V>Am;9SFf<@F*oi#&5Mt67OuRQR5sy}tX7Y2kMQX|>AKzm-IwF) z-!G&DQT^{TAM1LGs8_TfNj=iJ>Cv}}^J&tf9OVFUYvWr+#5Zm)Kcd~{}O3-t6knfw zY_{?A^PehBm9o~o{}Z!+`n04QZaJFUIA{0e9*aAemas5FVjJu2uDxBkhqom&-jLCe z;XYE9ke|FharH*i8#Qlab9A@yMR({P5=%aKgY8Y_8`hrwK#9hSHzIOm%;cimbdTF? z=$xT0*6MrkSi-dCZq2o2jV~_s5lDjXu_xAKXOZV`9Jo_W` zpV+^^B+EpJ*QQ}6-!>O=AGej*pZ=$QxBCwH`43DLlb9Yqe757gM@@*0Kk4ulX=*>gUb8Z8vwENxI?xPj^-Q%UQ97 zmvUYStmt2Q?NQ}R2ZapguU`U7ERR_>8Grm`cH!nszE3YCc8Kk--}!z^=zI~Ug>xkS z$*(`uem+?wjL(K;zk;H?SEX-7t+n<1W9QBv{d}oyyXj@^iSJ)un120+)uz(E&oRn; z>I#~loZRMJ`T5rNxS^85!uJPHxNA(Bp1b|(yE&U?PrP9p5c$wNtnVtD@0(ubL@rMC z^VJOoEoW!9swtnBPq(l8^Z5LQ$xebN=JW9Udvot@zh2zlUl*h9-#n?FwbjzwErb{_5pjXR@XW3fL|gmD;nro|s97s! z|53XzX%5R0PLWw$$%!xdV%Uz{wLNghC-zDC$}AzxFZFzNH38 ze!Uh{o*AUYA^EefS$}iR?A+$p`yU(<*)g-_aem#O+)CDf>A|~x^iA?|*kWQb>-Qq* zL-#p7d3zV#FO@MnTzUEYg{Pu=-@~k5ei2unYq!m*dFtsO#>Q&{8o)^XgJ8Q>-ryAUnAF$OWZut*#`_4?OpwQd3CDw<*ie~E`=;A-{hK_ zero-(ht~QDjed#8CKYVFoWA7;+dBtOoyF7ip7k$@v90Bv`gotbYF*JU$KT4z2I{KK zXLP*w8ZL3*=`cUokb33EiU@`)fz^^T9N#h~UD?w(v1sPnHI?44 zFR#rzw^sc_LCVvWA0KU-bFe9I=31BeER!5J#)zpzE*6<`g2QwlZ&amv44>T1yIeY7 z*k9ziIyrlCf2b1ASltu8s#^Noi(8z$>rU#6&zdHE|Du>2Tkio5Eq=ki1AFrRo;@YG z#ZgmQ%D$rGkIobAFEw9QCzM7NuiLrEz1qjQv8eahlB?OT8sxS#FfVW~3E*gP*s!vs zxNw7tjkSi{8pV763Lf8m$NiN3{_-AA=B4e7i5o2@_)gEz{`8_$+*5%q((qEt8;<~{ z4&U9o`{z~HF!(KSPcF}%z^(hC-qS)n?{Vq2o+GK9#xWWCMjscPJR#3}E9Z}Y%CmIw zk8S!7$`u$hL(ZM9xBB0iY{%S@k-qD@)5N_y&OH0NYeM^LgRI1Zv6i(z*Y6QKZGZO0 z*{_cZY-XLE##kS>$aqRY&*46aB^S3Zc+P)fvihkCFWYsWds+l-f1Kj#4BQ%bB&N#D zw{6wiPshCGubli#_^Vs;-G3hQCW`bWtAw4~sQ;gJYpb{O1?fsfowHqMj&5aryDz|Y z>(hSm?T;@=^G+3Q2wL!sY3WPu;?`A6fhjIK-IlLr*y`f#*Bmirwr=0+KG_}j*-vW8 znrhWtk2qGFxPGzBCSMkjM@g=6f>R~8IZtKmINB(G-}dH7w@3SL`7V8xwQEzzVm8-Z zGxSPX70#S(`=)JtKyQl@Po=)2TzR@vxy9P=j?I%j%Gna7PA}~}V;WTFz_f{BBj0(^ z-h>RfpcE^CTvoPU;?K_-Nv>qO{&uxr{w==Rwm-{X2}fEoAF12>&fsjw?4QcLPI|VN zI~yuJRvq)s;=Y}t?tbayZ=RZYXP2Me@Kb4eB*$ToU}FoGo(i|>f&yUovXfML&+hAe@8j{#-i{&8*lgDGCHk!b^n6Xdc1;b zir&qC91tLp)S57(ap~c$Va|sRTPZu4R*>gjTmS%-F7#5SUgO<8GrX zI&BG)rALNHm}uKluWb#sE&mUH%}Mg9tazw4r!TBgMN8;W%8zr8pP&0GU;jQNKE&h1 zyA^9o)T=yxvBsl>eeKBynpQN#+I_j~SFU0>KesIL#O9+}9v|nw zD8Jcp|7RmJ_YIFZiFQiSs%{fKlmt6_CS40#ym6|N_C@YvGwAsTEvmwn94Cy^7z3*IZsL_o|_7Y1((ur-9pkKB)b3_wDN4 z{nMvh+~~eE)mZ0Im+e)q+#bc1;(w-En0~l7^|gAk`1L@mm1g@7-)yrG+Hsa``OO8_ zJv7_n&YP7wPyVRVs?-^GT7GUNzn^rF%MOQKCpaBh-tDNKIkosM+vl4aY#ZBd$EM`& z;of|)R;KV;?#*qcFL;hg=oe&+IBbob@kY`g-2>L`TiynR+oFB!U$9 zr+;LfF7oYw`~1-5Y>J8hpBgnB zDmo?Izb%PmIjIy_lokE!pPYBKdaGSo^)u`0Z_S^=&BcE@| zxn5v=^`c__mIFPpxAVkjJ^AfFPkKX>f5+#U*TeE}%NeR~%Gzu=%)B_|YTVkZ8K>Sj%riBd=ypyrO>BB3zqLngYO3z-r>1XLhfG<#KJiXS>dZxp z1O#>(RZd$I7P@#zqI^{UuYiKaNxc)!Xs`CnTd-x8R=CeB=k#jFD|=mj813MHS9bNbvEnu@-^nS>X^2_z50b+*tmDA#?OY+I_Y;jYF$fB z4Ft~K{AIIr(Fzw=#dld37VhRf6W3c=YH3+nG?PKYB+E0`L`Mj{y}1D zm-n-O4A$b}3otm~YF{(&$Afcwjl|Xo`^QOLT)-fH_T$gH>_2z(Fw68OSkJtb!>9J+ zpxLH%v!5n)-Tk0yV?Q%BMtt`TMJE5?iVrt=$~qJ>YmYoyoe*nry2ew=VYWha=#2G? zmh7IqEl>AcX!_Kq5~ba4d2(;8mt75X&ewfltv&tJ%2V70>3`Z?zn<()k$sUSzfiOC z%KOGYH51Nc)rbE*v2o3=`G2I$Hgn4#GT9XO|ASaV4AZ0H{hQ3=PmAkyzSCWqVRU`F zxwdxKsTIG1|LzTQsHv_!e#qQB_l}U~ViS>F>o+W6IkET6x_}RYdFvAHd$Aod`6S=8 zhKFlqTj{U%*=lKgufq=UfBRI^DbsOXR7^$W{fV_MzfG$(d{->nApV6RckZzjo16Ge zo^N?xD&P3|$b_43XL`N6u-W|F!MdkmZC{Qz3-0qxa8mtz=$MuMT^19-=JFekskV?726x<;VMOwc5jfdOo& z#{@pqV{Tx8Jk$f`B8GZEl30g&EX=v|eNjepKuY1GIi|>?IjPV&Y5g?t5KF#(fqt=m z3EHp-ct8&^zYiX{hI*U$VG%<^V+*8V5#PzNJ|f{F$I~Se++wfymuwN6J2&il!bXl` zQ?jIbU9T@#x+vr5uZyvXEuqsI@1|;c9aZAyPTyW8xKK1Tadk*RsrI1+gDCs1WfQNh zI;#G4;l_^(k8PP%r57h}}}&5qtLa_VN*y4b?$r#s(^@3?!^TTDkoTibh^ zWz5M{#`Q1v{4APzH&$VNcud#j#ZOL(Z9Sn|pHi&x=|;)Px5sL94O@f^)M;>%9Xlze++r+S~5Ncnoi-LozVS3E}*e%QlUj(-I|4#PRrbHK0lEZ zu>7&)ES0DN=RY4W**)hKD7e<$ZXv$(iMxrS_VS$abuZcH>DddUKdsMdu(`b2Sxj4= z?@sIcFJGlwUh7GvMSJxB_}h9~_pSm@-1$Z8gNv)qNv+-e zmYL}>t#j>#fQM_FS8=VpwtfGuW6QU_;d$2lU_n0f+;3ujdT&=5mR@n$!~QVls-^mk zmZh2xPX65Rv{S3n`RhMhg^B~u%>w8B=ULTn!m>bBWp0LTd;x3U!JgF?OC{4|G&-lq z8o#y3<f;M8*sPwtm<%yP_V)<68KL9*)Bp0?9YZ|+yA2v=L4 zQBM9V=cKgw5;q5AFzgl9yXNv!S#{B*6!hPA!mr`%5*&PlH*&$ZP>FxH3{jQW^ zv()WA9e2J7o=G2OH@D|CE%^9tSJVy0qXF!%nX7`r?%n7AU1OKO_q@yTi|b!x-;gX1 z?JmE%mPxcrf!oXNbl#^KKTpL3|Evu3eadtG+udnX1GuMdu$TByZgx0Q@ljT>$S#|2 zYiqYj^RMIi+WJM2uX^!}TA}HEoxxvcC|gD-wKW&)+5GF?wz|n{&40fxRk$#v{A`KV z)cH#jgw*E#fBs@3*N1m&zrX!F%PTCsV%rPRXH`Bs(ySz>UqJm)fPIbIi8Bg{i%7;+{vQRu3cpe4ZbzaE;VsuE&9w-lhf$mL|pu=BC(6 zZ&TFL8^lGF-XI><(%aC)5L@vLAAd($WrDQCL?3xs3VhfdeZ2{Eu?otVH)y>H@|ZV> zPjcaIX=#E~w$GjT);~H`3+0wwP}PUr>8?_I(?dt0Cdn zgT7X^U0wA;Zq>|ZCOz|>9a%Ix%W%aOp7e!$S28WmRjgTcD#tAR(yx79%&Y5OKTtfi z=BddQcOUt~-;C#mEMC~Y*zaOho7RU=v2|?C_c9(yOv^GWG0Ne;tN!ek-CPT2=gn&l z?m6o$-Mc2S;ic)tyAo|Dcj>(g^ZqtH`G$Ig^|3_R9sKNf`UMx+sU20@VETqLPj8a= z#z{tXJ~mDUXUoriycH=^YCmNG&wn4ro7wl3Y=pkGI~n+?#5}0jyKCz`cP?h57c6sM zEn3$8aaPS@yMA`J2bV04)biVuU+vtsfO*dXwH7nU3k!Ci)_Ey!F|EPFMNv>(`tPY_ z0k;>uUA<9)MZtN2o}|w1Wu@JJU(Va1xU0@|Gtc)uAKiBxwPh8%L(DQadB4HUuk!NZ`UXHE`L&A zH_K$bulS!`t+HGJU-#)hc*kV_(8J-)_p?*y|4|Y8J1xQR_s_FGqZ_sVHQDD(-Y;%7 zzi>^DD%XQW_j4m`>b*-B8?IwL^pfHDH?b-AE5b@9uXRjMCR!}l7bPqpVBKI~lR zUlY=)bx-t!u(RHD_BBthc}5!vHOxHkq4M{p))mq3%iR_W2Tzo|)b;AZy;C|M1^maFGqzjIOWe4Ce!n8EC$_94@r2JgI6mFLN0Grit<()&lzqM7Aq z-WFC_$iK|2d49;#g7^l|jrTQf| zpIUF4{lmnjX1TVRTt?AN7 zo!cxs{Db(=h$OykZ(?d>iB$f# zMpW8_{`_r!y!5E$cU%+CHzdzg|;6-}`d;v)_Lof8Q0S|GoIV<@rx__s;*WJhxP{)U<0^ zX6Mqyvu|&CxoUfI>%%P{rq24XHN*1W(i_V>1eJXSFNN6uy(%8q+}ddsuz>eovxcCr z`}{vrb7#O1{f|I=j1#zwq~)^>jp;<{wh|yW^^%;;-)JMa_$nn!{e* zc3IPVvHTN1|E2f+=QjMGpXyTaWY>%Z8nwqeraA^@Yj$lii_aEJl+66vTRO$}%OQ!| zrDYqx75?LU%`A45-6}8QrN|SRH=DFlwnne0o^f32e8FYQ)5ra1tgy`d{y>jCeY16)<<;Q~MuCSb%Y_wonfUu_isis*j zmBG`lq-1HPx=IF}*2vD{N_F;KDi(BEBl=X|rsZitd{YFsb{H*_(G)(_Ddkt|x^@{` zfYcNQMm>!x-#RZl zapkg-$zLX!EtXwW8zaruD_c?&(BHS%?{fmXV(2P~KCT1%+-6MlmlvPc#WL~Gyx9jI z+}-=_k=Zl5A6*Z5F1OVl^_Q#(UU;lg?ca8Z`qLh*CLszu6E4fX-LNE9Wrm|^`2Lry z*NURWw(5A49rt>9kxz0`n{xlH_;*|QCqC4EE41=ab_lcjlZLDp(_=sE3jQ+5;`P>c zW+91>w>Ovjr)}%AJ94<;(&@7+rq!A)lkT68$Q*N+ktz4&aXEkMY~|~MHgYZV3ksOp zJR7PrGIMixajgCvq-eO4v2NOB_1h0sI**GhSxVUbE7v(F#isnh;Lp?Zj~f|#x9?|A zKfLfp&*m*to7pn{7Hr-4^qr6mLw5Ae+n<71Ctp(dbH(9)osQ5f$3vEDKioGE-dORX zLW0lDU=MfNfhD)EKMIR~TwJ$BKWf)`Hr~UZKST(nEA%la>ojk)7f%Z-o!D_{LptM( z6Aw$7|1OX<+unWPgHd_a*`+VCj_i9`$sOM~jd_J6n?=s2*hBG#?`7}k3HGg)x2)aw zK`H6>6K=KM%^OYnBlg={&+FInIqTdWvGS1YRgSr)Uq0tKu8;n*M}FU5p&86o27+RT zg=~11B^%2LXV1C7$tHB+cXL8QyX=MxlV|@Vug=`JqQ&x1(78K}ojM<_pSIlKJob2_ zoZKa|SE0who|=;*_da9#3}^oKYm2v><($ZPaP~E&vc}WR)A!%qeYtA&5xWUDYC2{; zoFKC=chUT>9W5ahM@|;9=QOTYiPX^6<=&WZd&QRbTScecIT&x`siCRcnXpTQ&oHRM zr@};ce%%GNCQpHb3*&F)+k2&vW2+p#$vrnFE@bp4$bEhm<8CoQ8&RIYUc@jx-qZp{7nB7kK0N&=x#f>Z9((egOBrGFTCUy$5lUpr*75X z8UFw8Xf^#j6u_6VwI#+m=YxRob@@WY$5j`WE#3L)#6qD+r`!{>9=!dSG2{I;?R1V- zU5=36B8%Dn3!3Dbu5lj{R*q?|UT|#1^?mHS7P6OrUr}Z8vu(lL|2x}R#q;d;9XRuy zXWRCBMQfbc?9Uyy6*{f#U2k)7=Wn;YXJ(5q@hxUL$}u%lFk9y%r@gfbD>kq57gb=$#W)bmw@R+u6-MMxz^T5tt;zh z$xS-xQrTG8`(e(*XXR@wyr%6~V75o?rIpmThh>M|CtZ2s&nMFC!X;UlaL^+8{*hF{ z$=iPmvafVEH#@%VmgAaryqhJek6OD)Fa0(7{AIrUef##^oLJnLGI z&Md!KqNc2HzsTQ5``*gmEk}eW>9lj+Z+6s;y~uT%Q||D>N!7{4*DqAMCLIZiTo&t^ znHr}n6&5L$bCBI5>`j4RY2W7FNXec(k@u6A_2=KQ4Jq;yyQ4Ofze=Xd`QpODiPB-q z)fBEN@Az>?_CfJ0Pq|}%KiIw(JGh@km~Yd=mI|Zh`rxjkO*fWY-zS~axlS?mAwaz?+yP%*KE0*bi?5F=^w3{=*xL`_wlxr95C!-Z**3?)AHhDzw`@ zLW>=_CeHU{N&Ou6``c-srTJH%8F$qFo$S@Rp&Rg(1cb{m)t67E*mXvVL+;z@6Q93bCiR<=GHSNoB=EiTYObaRziFJIs zz-^DNO6~{0r6Ed*JOOk3H(akWKXUFxerje=U6ucLD%s!W*&yxJK>GR_o zzt60co1uH-+1~@pwEw>exRKnZ`0Um6guhdjC)bA9oW5IQ_?luliXmJ?Q$o)#azswUeK?c$yOXPiN^*Io2xn z&Adi_xz&U4Nzp5`%yTErZt_b1cC@yC;#!-M*jANYKug331$|y_F?($T&s;G}Gy~Yo1ogYB}n5?o{S@ad2ZVlgWjvwoS?X9)_&<3I&?n zCv&Fu_l|g8pv<7nwc0kL+PvP zVYz+kzK+)q6sY;B##aYwfO#>{JC#$mD?x;)R54{d8(oFOttwlraKc*Z38t_0mU>qe0! z`LAv{%1bY1m}xlqMf*DOcc;$WIsRO2?yZ2f8}qJRd!BASx7+rdund!B{Qb#q{j)!L zX=xpL?qA*=e>nb-UX0=jMQQoj7j_n}^>P`8tL~(KH`{mWcgd->z5U6Xw@+_-cIP{ES*r`KV$#2c75ro>%|)NKCdjD|HUgLSa;F>jdFLy9R+0`Cy1R9_fOow{!NhE zTc_&n`$HL?)#^TnE6ufT{rH_6WPY0bRITcJ z@QPjH?wtewo|ko~emAZVXJ=bbE>|NsLt(=wW_=qri)%A?Zdg_KPEyCtu6DoTtga7N zCsu4(s~otlr;;_Gj89L9yMCT9=i&rq_M<*!a;L2KFsgpo5mD+?`SJC|HWo>}V@D?) zsSw$3C;s$3z^n@g9G<)%Es#k!ym}C#LQaw#j-I&Q2;Eq;(AO_Mr+shBo_7~c zE_`;SFF)$9L+v|3|CD~QR<_x#QMsnBZXB0?%XqK#zjc>uPjlYlW1E*p`)z->v;W@4 z8{*Roe{i$>TR$tH_MY#*jO?R(0jUE2JP<0-F+hJ4p5 zshzHeK3Ly)w*KX+^D@@|KDh?xMh7P|R~>B1xVJt+JosH$+r&+m9JVCK2VFc~9GdIm znVr)+?Z~cMw?5X+JX~q1a#v;RJ3(8~Z-uVgU!9&U`1|hFt>3oUy_56&vu%s(?Mas- zo`;>xcQwA_JKZYMYR1%ipC6jCzHR+N$-8OQKC^kA zMf|+QdNM>&{D8~OtlnlWCk838g8Zj!hvsDR_=TSnw00JYyP$dS=7a;H_2mz*Ep3l< zpXDGuH+gC;=j0!9rxN{`@80C9OL=c3Ft2dKe#UamtFvb;nk~BO`BClbe?L0d+%URu z_3pcrWC{6Kh1H){=N|V=k;=b6IdN6;r@Wkm0;dp```5d*nC8C9cXj)5{k|uQbm9kl zkE_q)HQQ&Jzx3`;s8){@5?Q>nVb0dw&K>9Y)n^@<{C6`?$sMbwPu;ckKTKb}dHsUw zCC|zn{7uWFw<<-HF&x{zucrT0pl8v?G_m=ie2*@~l^E3WS8sn4cz)$2k@rcFi3wE- zQJqW^;(v7gII$vs+M+-W#$!vTty(cDM&XY7pcKo#9yQJL` zEbR7&vI3On-d!E@EEjn1dmk&rL4*01F`IZ#Yt940#?w&cp6??Ww?RDH)QE@D2QDpl6Z6XIR*{uy^`L{o+_*2HA zzF3#+r0+R@*O;CP&J~LJ^3%z8+0$2z$?4u^i%K?yEq&8-L%1(OS^cx;pDX)aG`Bev zoMc?zw1T!o z!8g#hffAJQF3^55)$$Ggld%#nt>bo;YCf(s>%{XhP8&a%GJjlvyU=Po$S z_DuIom}aNq%ClRRwgzoD``D~_o?-v)l^qFd-`a203HL1t{&Y?JvJ!`4$~GUb2}iEz z$@BaQXsliNFMUpvpW^%W=arT6bvF8JM+zAZ8+bOlt=2tt=GXJ@#hMb^t@~~(H|^=0 z-7ESyK&vU}V@1w=zLcANU!nuQnkgJISp7JPF}d{S88=~XOgt#aP}G!1eCi2Zgkw4f5-eyt6k!{s;t~_8$XSW=HLCk9GJJRnoIKf zsn<##JHHq;oe^B~{p=GZtw@o=z;#_~TBptn?nz$oZyl!>pG?roo?4zSns?q=*{*4s z)^Pg0uHk0U4SqqpO5{}kIsBfd_-E@s&G}09P8O0sG# z^*ilfbow^u-w$jx7ye4LJ=C>$GWCPtJ%?8_e_z&DvtPqwpQ&vdJh?pR;>qa~xsBIO z*Oyrv`aG=1pS5{?SnDx6iD!?VPcUsMY`@>VL+s0(H(X`k4^McKd-cK1JEyX$C)Y5Z zef*PU{h#2T^#Yeq6jo=kyuH(K^8EwV^x5kV-(INkFuip$&ra4`2L*!GCTDkuF7$X~ zG1GU)rjMmf*Z=?X(G!l}VZ`{=UgEa2P>`A6tWMF%vwx&IrSTW1I+hsTkyopTO*kEM zC~A?7;~e2h$Ih2|FJ<_{YHg~nj+xml(M})1H4Tcnix!;Kbxn*xL-z&>=9Xp(<|dX{ zma&*vqAX(paS?eP_e7|nCAQ3tHgxZ*?*<;W_W=*r2Z1*vh2tHrPt#8WZ81XHT7(#x z2d#er?{FQ5;Ew}tHcXt2!qvyp~9@cyf{pzTANnD}!t@nHBCwsZ|dlaqRrmqJ(P=$@Sx8NJ@9IN*e^l5=zNS(|2Ir=5E?Zm8x+{hoQwN7jF?$=s;9VX=PS zcf3ozn`i6hziPX4e*Zo7s{OCtUwZ$nUvkCPK*=53KAJ5xX}HxJeel8J;5;W$V+QM% zfMYz5WDlwHl(jkWy-$xiutr$M-(=&?Go2HH-WSh~WVV}W@nGtg30!wVneK7T+VPHg zal{Kb8Bs~~cSUnb!VU@smLL6F{rIP}($OEQyiyj3EizjX#+0>KeP65l;U>;apQlJa z>3s0l-u|!a({CKFr+6oX#ZKj_J!!X9;_&996?%D(85%vle7fDc?%q4S8I#W(d@K{v zypm%@;LPUk#nNIPJU>=A-!)jXWOZo4G?piSq2n*YOR%vVEiBi>m!mf-mL@?Q_2L#y~Zs^GES5^=`eZTb0Td z_-1Xsa5Q$>p6w4}Hl>uaS~YiZzIyvYPDJ}*g1oJrT0>v;99b@RO-r3Qjd`l?+H@Yc zxUSGx&apA!zVXf?uVdEVjoCghO#L{i=-0yu3_1#voX`K>ef;x{xQW$$B9hohY^yH?Qq~EpaV2b3|^y2@jzeh;p+=RQGS++NNd=74S_Hgd& z!mYp0c`RCG^eKF<_vza~9kXs&-(9g|x#CZUtv49{v*_WWb%{+IZ&<`SPzU*5to;^XT?HYtOq|sFoF$Da<}B zvwNTL7v+7o*{sx7OBT#4ITNzvokh_FlaucmyjMr*R%(xK7O_+Nvh5~wmi`FpvGi@V{5iXbV#oGpJMmo%hoC3SH1bZv$?V^ zV^O%gb@uze1^d6xDm5{i%+zo%ew)`Rs|OlO{?h7#v!B zNZ?1bcwPLL=&0BKn2$t>s_=4Fc=LAbXzpBjE9PN)MD|N38|L#8F%}o^*KA$mB(y?l z>mTO!OBWhv+&%gGyNs7hPD3#B9_IIbF}ZuI3|#}&E~+eTxw^JK{E|4k;>Pd;``HU+ zR-N4^{kQap?ETG-9dozeVLE@rc;3wB6)V4fnJO*xC9|y3Pw$jemNkLH?!m`jS67Fxf1b$yCcBTf6T70<4)PN{RfqwS^BaoXSMO_KTV)=B)=e}D1cB(?2#XT-Fv z&dL)PA1_FbVCa7+#r|vmABHH0NZaF^RV-o;i(Hp*x?2CVVeiWqFE-`MUYjn!m!%@w zamaD)hl9=5vKv;;efNg>_Q6ArjPDQcF5G7sZRGsjHPls1U_x%p(rt|5&Yw1^YI3rd zE3%`;xB1;5u6a~!#$Wgf9-mZd;f-n4%oOY+t|@ku*dXT-Dk zFZ2DaDzWFZCOt9!`6B9{P1E24^-d0voGYaEzp2hjce%0CiDrMKF7F0#C`bwwU(s zRp&Fy6iNG&ej)3`4#_`LRhDS}xw7h0u4~t1PSf9~H=hbHy?t$wO#Yt9q8I#H)WqNK zIc@IW{5u4$9|uCTzAu0BYfE;=+q~VjiVrW#s`Yp6*_M7({pkD^9wPe}zTbau z@xrzX=j^X28KR*WB(bGm|0Jy)`;zU=+QLM>h0Tyr=33wu9!YC=-XTQW4Gkr-w>Ov zePH}VZnfs?dfP6Zx~r9&Css{*lXU*ZqunnXC7&4i z7JA&DBJ1yAwA<>h->bVl>o4#3+r3rD$~R}G>5hpqOGJL$oipW4$|COAEH``qygB)wT2vx?+#dYl z_*>$_@S4N)_RU^{vL80-=0;9Sw$1R@uKxPl`wZ{xo1tBgHcs5o*x>p2&!+fV(_6X? zOkW-K4$L>0XL#r@2mb*co6p z`R)n!;%jSTUIjn@s}Yx@7=A-JUM$;JruN7|N6JDtLi^~x;ORp_V=gGKHuqTo*4&(AOijWrR~8#Te!8$}E~f%>=^iABMXGcrO^x}c!7VrhsaVVUSF!3v-!$Uv5J z*-00wVs`$fcp^f;OX&e(3COC8~%rJBl6V$g`5V2-~XJF#SCN8ax8`lFPu4qJT z3A}x*?eMMQoa^b|=f7EccW%b+<<+~=&&@P0ez*7k-~I3F?w4ymdDo`Vm9%J@y4tzo z+Ml2FgZ_Bu{RxqpJolW|b20ump2_~-uT4Kz;?vaEnNYzOq^2-yk%?>cqAjedyXNF< zjZ-^6N0*y}FKmz6Z0mHt4LVBkOHZE+$x1mrwQ8$Y{7UheR<7$^pvUU%*a(+Z@!vy=gFQwKkNP#GdBx%Ie&bS z`bEsk#ZyCa>4K0i=^~wr0<5As76tM|wTLZN&Cu*}t#>+ok?V_66`!v|T!*v1!pZ}D zMed&`aKN_n; z2%MYI;QL^E=TE(yhnd=6*D`OCFsnk9aG8 zEV}T$#9F8I(w}2pwLciN+u~XBn9f|0wdP$o;c%jZvUuC-8?Tj)eiO|$3cj&Baq-Hs z#{O{M@WdxVSIdMavCCIa+rJE(Id~_9&WAfy=3-v<)-sKccbmhA5P7A zV-vGWXWd52;2^1cyB_AV-cOpZcPFxV&&!J9SoOT4zqM~qRlg>8c3oto^#6maqVAlW zCx7VoxpFD)^PWfcOh53yxBI_Ia6{f@f%E=P9O@>XIH=uIakf)d?dq9FZLRTjKV2WU z>rUdGeob`c=`AX%{C7k*boy?gs^&8koL5?92LxE8m>*{nK=c_MMGRjo#b= z+8Nqcc1{WYv**givo&AdMP3z1Ym}ScjHgJ!b?=IsRhrjMvx3(}o_i~(L zOL*QIwRtW!`K4c?N}Z>Nt%&k6`t{@V{!do(XZi~XbB1qRv}xy)7|-v=`g&zm-)=Ox zYTeOz=3>R-Wfh@6)#RHuZP~&Q{$Q&`a((HR^4zB%KPm5EmcL#8N>2OPXO_ep>?@L) zIJ+AjT`HRFJuUf~{m)+=Ym-@4td^httWN3f@6;IYhxY;wdaY-f__0OxQS}ktIH@Pac>|cxjai3kQzGNj|;~vgAdA+L= zRMQqOu4-uQEcc6jn{jtSam1@vC%L-p64r>wYkrwBLvpt!Gy5ae>)Y<8KFnsDf3r&U zbRLiS6n&%5KNa~_?)U!VCscP+2G-NZ?b8qcNjzi*p&cNvE%uQrJ2z$3r|j1vB4@ooG~q)uYZC!^Wmi2#lo>cd1|NX zW>kIduB%u+e^*Yk#qEFVGvq$Myi>KO;`i)Xr{3PX$$r(8>DVN+rQ~pR z)S5$)Uw1_%2fce1x}&4^v!{$tn`Zy-eNCAvTClhiU@P1hX?eY4JP&+b<&>nzk1TEH)fBn6Qn=MS%YB=BW z4ch4@(LFu2<+--VL*3=&kMFHty5DunYnOdnoxi;gw#o>dwJ?HddQ8wCXCLRU!ODlW zuuqA7kh#!!(&w+W2c}HSoReg7PtRhxT=bmFXRdtkm9lGfmO0|ECU6OO`zs^YroEbw2$e z%bX?k>aBn4!!OD!&OfSr!NAE@W}%{|L8!w44q*qW9SsvFrZ=B=bDPJvl>oo-f-U3oSW%^yF&Zqq7dpI4UJ8eOQ0PP7|#cx39lC6(F(4^|KMj zL%Hbm4~j)?Gu)kRrX2_r`ZTv=i<9Q{OS}&gj@7<-5pmtAS@cQRgWoI9?G7mJ-zNL0 zYSV6?yG}MIA5_j@+gUK9N4}!;ozzk{<=AaojM&mQwn(dd>3?vsesR_IB~$hYO3C&F z7rtZs%P7`&AbH&?nb`%F(i^KB7ij%&p4>X=(6>{7u%I=Fy|Al%6eUGDWFy}tNN4-HC zPxu>~&giEULR*^#3WgRY3YO-uX%90~QxgODG^eFG^2`T_2Wx5?aA7~E%?Rt}UHGI2 zWF7)#MiaCNImpfqL)>ntIs7R#g^JL>-Z!J-i93w9; zt~Fo2o<4p0t59+G*H7J--kOw(oHF({5@`zR4(>h`6fAP*(`PS{KSIU9q6&VOn*+}M z+{wCBb)_rUzMq;aT`PHbczVKkc>eJC^z`U>*<1bCr~j_*@Q)X~pUdapU8LRhT>SY| zaq;K6dhvUb{yjQcRFleGXW>8B>}~Zyrfv5*gKvr#&3!oSagyQu^M`j92=VhXGc)Xv zi;4z?Eb7K@@M(?EFvgo~FphkLrW#%FUKay%EfR0-Yd>oU%ZCsIQ4nS*AwF(^t9v_8G#7GJn^V z_g??vvv|_Vs-H4zIHzqnE2J0d$i$b_WfJ8oD>Z2`XT{C}%h~oJhK**N_Uke?>TXk0 z3tOq@^<2qIaE{T-1$?r%EM4dB>z?1daq@!GkN-9vujYBQOW?43wkBfs0{8vU01 zTrs_}i8U%SK3{y7V}j#@xS3lQt5mhzd8K^)O-JesmsJ7*lOuKQL@#gDesoNE(i7<; z_Z}v4#s{S6%5ka}7_2#-qPnL1h^$PIa$)58r0X|ltW*E%?EJFimT*{*TUz?`kS9`_&a|R0W*o{GW5WH^5#fkbl#n zcjsh}DB90*l%HvwcG7L0WA~HjGjZLj)6XXN@$OxydTG}(oAYb(ZF2Vryp;RipPnu4 za!2KzZ`$tKNx8pIh#$}5&GIiYc>HH;_Ri_8Im@`R{feje{k7jXvn(p}&z`9CZ`&h3 zO%;r4bgd_~k>z|W6`a9@AZSWq$1<4C)AH*)*`~CyF z)|;3p#(kR-bpBoSGManq`jLVI&uuogbJVwT1bt@waCGOV9L`f$=X}0>pjwM@E{j#+ z?7pCRQJ+~goIB^oYJ|(Zt+`dNyzlQuKLLTp?Y`z`4oC$~mp9Wf*;Djl>DHUtQI_$s zFIMVvI(^<)AhGcN*XUO#v1BP?mz-dpJqpiL1||yT#)b;!hVWxEk^B9Ipv57Gem{td z$WR6*I5QO1S!j5_AGBK+p1U0NUG;tRgY^^jll4J;{&amvS3gfbU%vp{xd+V{SD<7v z(DXZUCIj(F&SXaB2FM$*mQKqK2u_ze?$7feP%}67vgz$_GP~A>EMMETZChDXv}<%U zYktS0sUAu$dYp=iDgquwC!RjBRD9yspd!G-vQsO7QFQIrxZPVfhq-RQyY4Q3>F&!j z%gWO4864-Y7I<5--Foi1cgrUm&-{M&^Pl(gz2 zvfJKN`JajWjXj<>pX_t-c;;N>bUpaw{WGq;{mM5NYkW8CIsf=%NU5aJPB%qejgVz} zXX2;K+E?^+wf-`_=v^hLuU-jtI?dA8@;xh}$*roYr20K*&Mx0+`cpMbS90Ii2+?}F zUO#eC*lO`^uT$cuMOash?VYh|nihBPcCS;aU0j_OUu7d#8ku^BD0$9Zm-q3DvU8YH zxTb2?6`z?Ai!_cJmp^ZkZej`22D@59>?Z{8@= zVUKQpnxvnYy|MI$^^K}GwQo{$l&5uaT5xV)Su=HepZJ`Ot^cL!H4-D8(jQGbvVL+@ zy55|V4^9`JU$Z6BcJtF>qh~zF*J@5~S7>wDSm8FK-E0wyW8pTRnc3HFYe;7lHjBS; zu`ap6@63MWg~lAOx@%9HC$uN|r0k4+-Y&p$r+417^Ai*7R{4F}xZWVNta6#}3S%eL z@>`DI9QN-OuUatu-8`$eUz{(5vzzWdvrfbJ-TWiDYqwR&a+D^RUcLG#=jGl~rY)j( zJ2#XI1wTq|E2#0DA?|N?x2&&U;)-6uw%U$oe`P-ep17L!E`9RW-5!e%CADzXe4jXJ z;qJQ`6Ave|c&|Mhm8;kjRQb#7z-rC#C3nk@$f_-#|NUNT|3~9flUEyk7kOjt65-zU z`+JknDIU?vsqEQijJ?6UTaF($5LCZdVpp; z;Q4!f-?qh)w$D#AYCn!;Zs>Rao^w_^UATMGN#^WwEiT6A?^27CGEQz`c&-2W|EY7r z0Y^*KI3H9ohXm>EYV2`3bB{6hg75JrT5 z@ApY->GGTv#*>dtX3f16f3>o8>8w8<+6D4Ee>{ym@Y|Wac$??V<5!h772IWvG<+~~ z*?z;XK6~%_F7w%U;9!Ym8(ZH8wabCM2Oct78|=8w5Vl!#O<2=1&8?C1&;EONAgoOA zL5^3@%HEHb2i|c^n7>e2X6gK0t5arKN%~H7xGc88&+x?ul z=-B5<-%tM~w+DO{$vZE3NPPX`>Fek4eO`CpN!stzBU~qTdpK^lxG}$Lp{dOK&F4Q&RG+8z zqd2Jh`@WT1pGbQ)Ys}qfeCI~%yj{z@S_6;X3^=n)eVxazz!UnDjBY4ymde_B>|0sK zxw>*L-JBUlYwx+eKI@XZvEt(IIhm#F=Bc?Kx#+U&$Za``H%p5bUjAbt`+w~L!3PJ5 z9{6sZCndS`fyIf0cFUzaTOwD8$?DwU{$cmn<9zGBeC2SD@+Aue5B*5^c`?>|>6_1L zk43nAY7aQ>*uCg}9nX&Y>3ZQ3r?j?Ba6O$>)+FI?A759rL*M3x?~fzyTE8Ahv?TX# zoM!jma>eoGkB=@h5qx!Bi#xSp^_jH`+o#%{VR|EEuh)HE^vdrA^Mr4>n`U*rI^u96 zXKHfLewh}X{<$aj9a*L;eY>JGL&K_Q%9qq$38nqNmTzNaUADCd?LvKKg$8}|oOQ`t z^!E2g$&dw{NA9dE`|wzCZg}*vu#=zrv)S5rS-0KhD6cHJ&w60LwELkCf7=?a%{tjt z{ypVAQ%s5!@3vjL|EhbY&n`c4RdN=Gf6RlJD_oAU&o_H^_^KVN_~`!VzeojJ%)HqR zyO(7yZczH{=<>W-;?vtnE59uMB9oxUA^WaHOE@A^_@rI!`y=Ob=FGdo#bXhjw`kJO zm@G@nxv|TBS?xW$%s^-3j*^dUrjR(a`8KMd(+&8_fz`k)C>IG zEAIELj=|4@x$*7~=aLCqvS-bEJoz+h&*gUyetf)Q7`p9w@8?pp#k?jK*WDh7Nbsi3 z+7#Jwc1_^*wH;6Y+IyIqm0UBQbW_oBZp~%w|Dr3q&m9fBw90$VG$%o~{Guq8Shr_! zc9#}qIm+MS$#{3-;NscyQ%|zKxwYl8Wc|-_#uMyJd(!vZt-W*grLCLQ;U>o|f2{Kb zJ{;`unRRL(pKEZ`=E}tTTi+l4$QoSq|Bm~qSzNllHzx52y6QjwoE|YJ_P{b-%dJoO z)7{)+^)_|XI>qZ$zAhDb<;az~&#YgahjGuv8*4(ex42G94i&b)^W#a`j0+3bGQA48 zw(4y|{&Mv{>bnAxJ_mj>xc;H=ob$VIpDky7q)&>Jq*WOmDV6(m_Q%T0H6^)|^f_ME zMEOQe^*LIpaYwF4=*_WeJ;tR?QU;Hr`$E6ee4hW`_0*;9MXPsjTWBlwf`6XM`Ng91 z4&RaE;yTV>+A&=wNqkoQB%iw%cgGlQbzHjd%#yX23wHH{9#Ok&U6FBJRb|(S`A5|5 zix_2&X4<}up&2E`-7^#a#3em(I^H;O z(d|1$wJfR&DqnQo{;9n4tV(M9^{AIRpWbjD;Qe#%?fU&rCl9EJTyMA*seXzK&uXy+5pRDI}w=_PU(*m##i>^-vZAf# z22P)A(fjH4TH(+QaVM4vY=5zHZ4#U8zHb#j4>(kB+1<+V)vS(%*M4E#_N_+R`~|*i z-+M^ku&qsT=8$>NEUg{&eOL0?hbJCH{Qr3HVIW7d`}qq&#!DMs{dSb>Y}vJVYV2?G z_vdeFt8H5w9xTP>@A$Rt!;?RH_wH`Ky!OwgRQWAN-{qX8cQ&jOd-g@F?^~PlTt=lE z!arJOFP$#kyp+#J=3$uk)~gYly?1;53ZA|!WXmz*JuB|qyEN;_v&!^iY4P)%&-hiC z&au&ch^YAHui}r z`AMm|6^RA9X_+}CsYS&Ksl~~*O3pz(Zb~2p6;>6w1-Ypui3%0DIeEoa6}IYNEmnEO zRv=-0bp^1Jl5AV`2;TsOlKlLf?937cBRxw!LtR5-9fh=_#N5>K{Gx0HLp?KfJ1(1| zlr*a#7dNPZMJZ{v>KP>^1y=g{<>lpi<;HsXMd|v6mX?QH@|5pZpJ#d=^j=_Tjq>Sspi8|oS8!z=>zXFxaWW#;E8fGkc-$}cUkRWB{g zOtCUfOHNKoGfUPrHZm~RH8e~!)-^CNFwiwHw6HWXPqs)kGERkASAgV96#EKN()11W zjP=zO3R2Rn0*dleN|RHIY}MTZd=%U>@{3D~lR@??Sn3&=s_R3&Pc2tfqmh6LSXXTQgT$-DjSK{eH zN@}8Z0!T@QJGh{ zz3HWtWkTX3C({nX0PEC8n1&^`z(PSTZgyNY`ruLnRD#%XDNqSe&mcr;nwpnlt6mN& zD>3eLMLHG?mhCmL<$6sneQ+|)%+CX5BMlcTP#!ceG&D6ZHZ=xkKXn5GbxkgP-~1E; zD!>Ni7ioaAQ;bG-4DlIClS@AY6wexn7}T_bU87o2l$r**2F{!dR02Y(!@joETxbK6*IQ9FtbDxGq40-qXkk3S7%@ez9b1%%)r3V6hp7M0lJu>0jP)o zX*GbGXJ}+>fo`vnIq0f8bajT7=4f^pnVA|}potk8nwny$Gc++n7c(?804>G=Sps*9 zk%6J1A-Z`6=AesdQPde)n1Qa;L=`hIGC=o-p^1U1F}iui<|gRsj7^O(+-zuUYJ%=& zV-r&YGYs>LL6-=jxW(Am(iq(iLnBMj)j+7~42?jSvZ06>8W>=xGc+);FhIB0#1z9` zLkkNF^!P9`z!JZPmZ00RQ0z4_GdDLvv%|>T(f}i!8k(A8h?y8-xY^jm+!WnBV^cFD z%=k4k#t2gbODyTi*b?15Ln8w-Ofd@#dku|2S382di%9pz7ADAfrlcq_Gbgo(3v@$s zaAsAif{D3;eo%gXi2`WoI7mU?GcPS)0aQ)}ap`-yC`8-1IT;ulSUNcySQr^OTbP3;1&-_~-oo{WZV3<1bA9 z=y|hyW1RipN1ORS@xAh#{Z1&hs%!4f9TM~EK0aly|NQ6wp6Zu+u^S9se*c;NJ|kYZ z$^5*0(%tO!bL;;J)oZVwT>X!!KI`$^-v3|4|F_+9(f6C~!XLHgRGIkewN+IY#h*@D zR9@rs{(=0>E1FB^*X#cKHzzK=m($GlKiBDlCAZq2zyG+saIWc3(W}QZia#nYTmFi5 zznuTqKUa5)FSdRA^i}@j*u`NdSO0tOx7%coQ|zSTu7^|asIvJRJU;vX*WK=2FIKFr z|2Kni;ok6PKeO$YzFhR}Z{51ff8^@wgTB;N?KO^7lK6MnI!Yzu)^q=(YVn=>_a}E) zCoev_@ZT$O`9J$hZoV#Gv!$h`{$yDEoKOCWT1}J1%6*m>H|F2aaQ?4(e}gy6<_Y;b zKHIej{C*vD>`Qsh{6DI!!m{@r_Ov9-&{m z)ZAQaSH2`Sr)pK%@2AH34_)B8HJ=GhnVuC`> z|F^i`&242mtD6-r2cxo_8xKa%`>t2k{y9w}k&5=?$;dvU~jdPjiAp&|%ry zY3JX~ovc4K=25WCL%o&Di{EZp`g_v*pS#NsSj>HKI{4Me$bG*b|B~^(|1H`|II-oU z+5U-ky?y5D%FKJ#ulv@`^eB$}LPuTx! z?mfP;J80!T*`G%x1%WIZr&(dl4oYfJ(?)w9UTS~{0d-gu~eC@-x$$vcDlN9c!^OS6oGl(_1ntI~9 z$Ejbn|5h5UYznWOsPxZtj_b~sU%y?kPZapG#q9k3J|FRkJ9UXmVW-NJ&HhLJzl;s+m@?%+ow4DK7hHc97g)qO zxf5llYU!`EKOVov)c>mXzkjlY0*^VL+qF&zHe%-?r)h z*68nGtKx9K_ciptP`sd}Z^bJ=9Chj^zBm8zi+SI<(?`@+ z=l}7D`Fj83<5lUaSmW*F{!O}llKG$6;?`FZ*DAbUy_u7>r?k+^l)?JT>@@;MCsN0YxTy!bMf<*o_#shq2}q-KQk8u&5l?qFf#;cP*3@b9wY(zfk)G3vGU_i;wqzl;&L7l;S*p%ISFJqtEMEA0K+W zWYwV?^|Lo#xcvWcswS`IoB4Gg^X-2ewf{L=YNDHn&iqxJBKsM?WSYxQ_mj7_daC|Y z(B1ye^*?5Ftzr*{{rj@GX8uC%N554zo!oCP%lPxWnVsN!^O7U}&wlvM{?B;&(2Exv z%0%B~Kl!!w&%tsAAElt8^YgiXMJj4H+6Xb+?+;g+|L$PMEA>;c6SjW+^VRN>@$s9h zSkis-_v&cePf|;YExH}L;-vhAr%ufL=fXLR;-;x+oaDN`WKGTMn4W1)~`0oEPTD@#%d$2|KiiNKI$wDXIy+$ZQa7Nfgg9z=QQbx|M_9+>vINb)*|;U z8vQ(2`E&L#&0U!=LI3Y%rbl@bj03Jue|qNn`-l^Q)BZV&MY~<(7Jn#x!yu)6LD{Tx zFXnkzO?ng-7&7JjPVYA_ysIA=g%`>ux^DdM^C4lG&g>F*rOT-{+UG@t)t$`W)K0zD zl4bi_ru4#>&QIHU1fE)@fBkHqUal(Xo0FG*era8m=X4Rz^0Vo`|36sV!kA{f*~f)h z?ugq5!yWr_QiNPC6&O74eYN+HK>Me^_n-f@3a%}!oUu;rOMJ>^x%?ZwPTf2BmnXTc zEb8j1H@m@=qhR!CW=gua30F(K)wlCA`uu7o?e>}rNd_hT^#446OYqK2-F$;dg)3gR zo#y>CQ}^M*(w_}a-{&8>|E22EIu9m;U)D~~J=p&j|9R>0v8nEgew}XJx5&x``@e7c zGxf*s-=8>U>i@63@lJnz-uI0W|EB)Tiwhl(5+~p8}IQ_y7MYri};0k6rAN9ChKE0)Q4MW_~U;~3653=9vKX)md?^AQdo}8Hv zmY?a@eqq$QW6rzIc~{D^*{wESf7x;_<^@Y%tm^dbGgmg5tG;qe`_-R)?P$f@s|Q44 z(>6-p{9hCi^RRRBS+ffHxDEi)5E*OW`@c2XLJ|8y?DQ)qxX5;v&hL{c z=v{mA{p1(A+owoG*aaLt7rG~>Z*O;w@Nv(Tbx$_$$@wjjcJpKSqv^J`QPHvr(xTIJ zIe?X<6D( zv;EIJRyU=0NoC7yg>pLWy6V0L_3b_7p?XcPVdC|t#sl8d?$CY1`!wYYWCYoFKJM?w4i{^>5Ay=58e=bQvx(;}8%`m3V; zg#>)dXIZLy$HrcH`~Qf5$5QE24sAPrK0!+<_Tc%Vi|4{*942jia;a#ql46>1qQmN@ zuP3F&dUiuZ{E7Ac;7|HL7n!blb3XO3shem?lqiGH-!9j8tK01(8NJWn67~4Z_50P% zNg=IO-$JuHg#R7=w=2o_f7Bn{weRD5>-8&5Cv*z4Pu+ZI5$iqmM5R3<_kQl2u5{t} zk(Z+1ybklV&)9QAZWdqV^xJ(LJ5(q3U+k1Q!PIr$%u!I!&caxO>vsOeFX=^TMS{lP zCtX?8s=gp)-c`K6)3-y6d*;W6ymbzq3EQaC$Ru;-&w4Gv2j(`(*uKshq?g{vm}m&-+85 zcz?{osM!;{OuHAPDyq+qyO5T4?W|nnhxE(RtA5UTC(y|=)o-`EZ*=narpSUdzS@`i zla@a6zNd6_!k;QdHm-KBxhwa5=T;Q1*I%+DgpW&o&W*01EYHnZzBY9?rL$Be9*c5L z2(Y!=c;&~7yFRy1p4MbH2zJlWvHfq|7&(VuP*%2xVV?KNukD;3if2wOzk1c&Ur#xD z=SIh!FRw1L_0Zg3xo#z|-|^1=BG1mVtE8U%XowS~@l)rGtJ}5vJ1njW9e&>O=$~o$jHn&MM3owV^CpNJ=g^Q|R%1hqUej}25lTKIVcCEN2IuVaKi)ww{ zbe@_;Y@NJmyU53erY6H}K|k{4+owI;Xg$-jzKG$g-*)SNJAWLBY^XiWwNEYiLG_zI ziM{_qzr5-9c3AXn?teEM-OQA;v9anZj>lSOD0{moZe@1eb#+>j))Mw9Q9e^&h>QOH zdw0ci5BCRhs^yNc&N5oz8-FdxGSf-a-tslIaPo^a%y~J=llH$@;PyBqZu5@6rfxfx zTD|Vrt$g)Rd7oLTXwKThYp!&B*8XQ*eepWadCuufkAAKw+PnH>ru;<@(ew>$# zy}o6o=e?Vg7U}+cv*7cuuM#fxD_qNFP1t4Quv|CFCUJRfjLYmlF0@B&4_>6bWFoNi>LYyI5osj@siMtNf1qQ-fCO4C=y zCC~q&>e?XnBH#MSm5Ot+{LZmY;-3Z!*!8<8*R_iA9Af^v{ZEO@?AA|P*3SRl3pqlexu<@O?iX zthaY);|+-uSKfQ(a`0g;`=>uO{|NnTeH?tat0JpH**h$j}zr`=B zc*_)2!u7&081>9ml4Hm|xghrNgbPOnG&i}iuJ?MiNR9PGJ7bg7UA-dCW@W+qzr#QA zS9piNn$y7;W1;6Awy1QU#_e-bmv(c#)e16e3wQJHc{w@0`~L^qZOQg`-;2NN>FZk( z{mY@-OP(p}$`^r^C;y&OyP(9_dxNh;B#_NJ;C%I~?u|<)A6@?5LNKuXkce(Y(Y4On zo_*av7uY>%))ILftzA%2;p?JxP{Q_iwBC#Ub^J4~reFFH*tcgs_vX2V=a`yTPru;& zsQg5@`7cjFx7LWF_y2k4-?k2!^>5LJ#QQ&=??3hQUR?Srjuj^I+1rJ`pJd>Q6yR{Q zC^U1C3EQR+Gk;Zk!J_j@QHS}apZm)2>~i7e27SqO&ac@u$|k(nFK?yv#NSLbCVop> zxw6gPilBlE8YxdSe(YMh+hDrh&%kE8=XzX8Swh+@OCDT|W$ftO#_Vur(~%-4!-v6Jja7YyHGQEf>ghda9Qi!Y3z~vtZLF$*HHkn6-q@PM7t#HN`q{it1fI?kTC0b%fkEl_v9C zeD?ToxyMYgd*U@2@)c!udZlKq9Bkh65n?(upV>T=oGz(~An%}&AO-s2xRj0&6=1;vIAn&R?>*3YIKklqmn*B!g@eI9=SIR$P-t353 z6`%Q_SkO18f<5S$7x(tA@`qJzem=4H7rTA?C76>Rvdj80NB7alP6vi&8(XJPmoml-EdawMB%-g!~!uGC>>`!HkK zZHuUdT0%Mhety5d$Jt)pis7#I-_*p5^)`RLZhgQLUweGnf|nt0wi}!i)pYltk@qIb zIm|NF?qi}+uLm#t{Z}4;jT0j>6Jlj&t&@1;@Fx8I)7X8_Vwb$V)yVpXReta16dV16 zyrQXx5*2q`-21?dP3Z4)l?P(F3tJnW6z-T%yHua~Dvd8@X{bqu~vYv=* z>W{srd%QS$(A&vPbTZQ}lfJ1JmTJyYSbeb}+G?Y-z3XMIMay>`a0wc!OWERiza?>xUM{#g=4~>7he<`{=zX%MfuHz=9WiQ9{fdKhl`*4I51~>D7TyFo31h8D0%1V zB5jfKe2?M$dy*V(Y(@nKEsqE_#`mpJv|VHJP~0#exOt5utI((2VT~mYMbjoHZoS`| zcYpn{4YxM=N^ad)Hn;YSDYMhP-&t%Q?k&7~Rq~znmFtGA2O8QHA9N{iUt?17p5s=@ z^c#)m5}pZezu!C0MzQg@^1^C`&l~>vtWs7roGE?I#X6>g@ml(<)mm}#!67f&xc*D{ zN!i5y@KtYRKXpajcG(I6!`L}CBENUs@;{=Rcv$O=*wiTPKg;-S*>;^tqg`tC^5B_C;O(=Inil=bEZmo8Q}pmouJc zu3emO;Qh$?`u;VC3jZq~R&+Dfa2B-b=-A33Jw4$5&qFiau02s}(n_D{+d9wKp!(@# zo!=KU?@hj_SyTS^{+$B(x4Q&HPHl~Clbx7XXK?#uGwYW>tVUt%zc|m2ut6RJHUSZ#)NfNh(Rb9^=Y+Jr(nbz%_GLsYy1ms!TCOtcR(kgW+ zqw_+e0~dSuef!84GSwvNaHsL%lkDH~e$RX<5u2`_K5f+n^GEp$xpXhH-7PlP*jl_d zcTtDsO1Cr4ZKA4*U-ce*Obwcqu;$$J6$anpHh$0)@%T59(Rjflwwrm5$K&Rh?2;pdsa+Q9QodV3Nssz?W( zRX8_C=89|e;hCNbiw%m-FPgPW?y1?OIOTFi>%wpOkgtXgZd@xWm26VJn=$iRT7FPC-&htUb~Z9->9UmgnzAp4>tdqT zuk$^ddw$x7?wU{jrzUUQ7ocjZc>LV=N2W5GX^Zafowque04o zy~o*E@{zHY;5!A?^A1VMoqN}q+~}I8;`&Ioayez31Ye&w^+7|G&CpUrYCi_NK-QZ7+&vm#tIm-?VSXh3TeGPTi21 z^Ok$dLi2N*7u@vwAE$VNqx_tw!;O%NHh*od{k5~6}yE_CdR%&MWDj>>nEk;Lf zyDdATbkVuzUQbFbT~76MC714fP~DvIpwn50BP5A`g{OG%zseYmj6V{7C;LRS{-*^; z=LO!}&GA(%-s6y!bw^B}%CxC!>=V6DT?^Q)<;8!bbi%DgmlsWT_XQ7rF+mR0-~*V*J;)`*rq zHUF@nWl`9ZR=p1kly@f1HoJQBtMrYZUMv=uj;^i<%9^3p)_6lBE%L>j8!k;Z`m}XB zeWyLYV0C1FlfAxaPl~kq+TL{2Q^iTqzas;^W|vExuhMzsHA}ZE_~}Z6)R)Vgk9HS* zo$0dh)gpbvg*R?43tsJ>w$Ekeh7Ikn-)*@la5Q1P$5N5FujZjezt_4LwKUdwhut&0 zAis&nJm%qx-T!xZS18V$bz$3bzn1E5%a%N=EiZkx-#TmA^7~HK?@M=d+k}s*&lZ}( z!4fCC%$kpzw=mqqkK@LJCZF}!c$^fzM4wWODO|lYye#F;Dvk3cXG_D`YTlbivi`pL z=4akk-)EMa#mY49tjUUFKAyJkfo|T`N!>>-Z|S^}!}ssf^2^gd*w6NP!7UiVr$=S?d*Tjl;j^lEqRmy1_&PUUZ#?%`qiYu`Pua;Bg%{-@^o zA$B)Ao+KtUrgRtHUUN>c@@3*uRnO~%$186&iuATFbFw^oGpX->P?xdb#GMkl=UaGE ze_fG2x5TPs!@Bb&ex_pY7F%U6*q_%VZt8SD1A?VX? zm7l(Uo_yE%?!^TP)7Q;Z(YR?hr%hzSj`a4aZ6+%78YXUFE?-gUbLer*!@c?6Wor+v z*(I14*I2k*`oXhKZ=tXHhu+3n_M87)ApS|ty149~vQ&@Ry!Caug;sJd@n*ks4h1hW zI#~R_DesWy+RAw)H#DbqY}h%)q5Vm5UA(oG$|d~?x%C3FT3b6*6lE*dJLg=~y31wl zbA@wa#lA1*Yi`K?+wjvmU8_gn-Qlw&y{_K>p+w5dl!0kQ&ICO z$qRaS%+oVD)1R()-Sc?0nF zEZhCwc<%GS$$!6G%Dr&fRPeQo&GEp7^E(R!Ij)M_f{mQ_%eWqP}he`|ohZ$Q7@owF#Q8Dq{NfQ&XwiE-{So)L*8Z)+s$&B zGfLglc5s^?`8Lsd&NppdJFdRx5e-1);d zOI+qm?D%|2baC~q7k7^ee>~M`ansm+ncnKX*IX{Gv=pDs!vDlMGPB@p ztt%0|bq4kdC05y7%wL#(rOhZ|{^C^bd2VU*g=i0f8Oy?To>cnI4%B;6>G?0>Q;3bC zb<|6tYwB`Gj!Xy_=c`(fS-jf8tK zNr#kgooI7ebd7;U&NyoSpN0uPAI;qL*{hjVR9|kdoz{kZivAx;o>V^Nv@^YXO}*Ij z8t03)KD{0bf9n$FV=EV}c`Z?rK1XP>)wIZ`|7xNOm?p``qc=Pupg(;7pd8tV6=n@j+ zds&bfkzrV{!&WTUp<;2|$%4x#QVc$AF6j`zHhb3oZac+ivd8$Xb+;$y-P+kLpLT6d z(yg~IkNjhknWo=)MC-+u^yp7&(MF2>GwSV(eyoo)S2`OtqrWIW)5z=Y0wY85-fbnG zD=t+8r`=9?x@h_2P^)KM9)35R&#YQw61mgn$yKdAzj{+$@4VcWTYEb$?6d4;tM%31 z%5U~rcivIUU%6i(=Fit7hixU<<%Bm}IP2CNU!3eY*SCAqr3r-s9!s9e>Ul_|wfs?% zo;Wv1%G~SHX|?oKYCNiO?{j#5hV>}F)qH&D!)aB{n1t?XZ^5I=3Rx9y)**~hO<`A> z+OuRmn>uex*QIy}i}c$5pEkd*WZsT1To%c!i617K>PDLV&S~o{+TcT5sWUZeKYEKA>`_dsdck@$+bJzqOMzDi`(SR^xN|HG3i6^%D7W5b>VpE&8S z)wTTB)T;G=j{TV;n*Szz+k~LsTz-3(uiCA`^Iy>*rfc?WQO4V@tga3JieFeAJ^VQ1 zCTr`it>RO(rKRWDpNl!MQT2c5w~h;6UBeAbtrjh*NuRZ@_1&lT{-^a5?f;A2W?S+1 zr_!lz<9XWeA8`Lz^6UEZ$Lqzn8uKL`{P>Q;Yh~e~Tb4TmCr{R`ek5;m_<4%|R%H<< z&fT4rUO%SGPY86|wpcz)D#gOZyi@YlL!n1`-w&)=AzS=9Pcv(O_Qoc|m_v4lbQhIO z>zQ7*!*%v)R{le816x z)4uNA9g$SdeMtNG*|jg5FNpBHGYhi4aA#M1X2JG}hV2RNtV^t|jlVxUx~8k;i-^V7 zb*=kuHXfSCZDjrSu+uq}E>X{blT=wK~22q>GU^Z(8~!hg6zyDKfCO{|cPcjcGTL+k#7 zs}FlkZp&KCxc#s~ZY?`+>C(IZ|C)qwOEb!+Y`ShHFl}+r^7zb40aLH9W4knaLrj`f zmde_0i^uB(?jJS{@eNC5nmJK-=BEa+J7xPXn9X;Myf@K()%#pA?fq%G0_t0C`X4_o z{`H`XSJy#_Q}aWwwx?WC_`^Q$Y3%!_CNG<=e63sRm?M~$WTf}jp*$kJ>3@cs@#GB& zZWag5PCnoq8fJaxf=N*3R*voS!_^zF%#8i&wCC)2=5Q&hr+w|9Hjx>D;m%(_So3(A>St$3$St zhMWbvbp%DylXWf%&k9j+Kb9a7<)?J8AaHWq)MeX57rt@$6?%|yCYKU_#nIRK2U<%K znjYS`wpxfM{QZS?#diBDHHr3%g@2ux_rB;p6>YU*Qu(s!{f)D)SDiG|a_8BJHOkAFT$j!7NKE5L~`&YkZyd z3y+#N?WbSORe#a)*XWhHvzG@WyVQ!hA2nSro@Ei4LLq{cjchxo?ORb^5-sbrqK`)@ z@%G7>{@1hOdgh**#I^2vxT^f!g^dtm^cl~4C&aNu9lI`n%Ybfi- zvni}@3i>p8zr@q4Mut1jE_f#22%%X`*>U)}dY-DEsobPLr@;OiJ{Z3=SzX~i9B+PGV zSF?TJq}IbR@$qZTva3v^v=nR)21*X)}q%m$|>x`zFD#s4VaQ-kZ~ z;<-lFM<(|Enpbw2F*D@_x4^Y`7uvUnKjXPrvH#MO6|XD*W z(sK5mmS~|{sJKv7YN}_;GNZpxo5;hMNZ!J=lySd)ojy}V6LO@*Lfc8_++J)ccty+b=AC-&PexoHr2^@KTe!5FJNDM z=BfHO73VvwzF1%0_G3?e%eqL@ETQvf+WUOHR$5Qm$uITcrqBCWpF;J$_YLkB&%Kv; zWWQlkxonb$mFBL4P9G=kON+=<{yC%E!O3&}0h<{Ul78(zlYJ+8ooy=D3%2*AXFTk~d|!QBA|=9c#o75Ee~bLR|L9HOmH@FQ ze=;8N-(e`5b8~m|ulE*rzwe#&O~S=_M(dBMFOSwrg-boHz4uUP%RRr$pE))Oj#E6f z+bR-$PVSXxDp9lDC4SiZ{&$Cx*dG-!e?u#s_+*k>2+GqjTK8^=nK@k{sMmG{{~$ z`u*=l`Bpu| zN=|{{Z-1T)Z&}*);=tF}HS3Cs9?f<8w|Bx^&BUdnXN1tAIXCp@2M`Onv$^m{6s{`B_!jMrP%Yjnj- zY}hcjC`jEbb%epy)+LiHC*ThDyHJn5n3Oa4j?CY#K)udM)9dDvxD-|;P{ z?CRI1g%^C6N6h8xTlwn64fg=EUo{6hA}>FQ^mbc&_;Ow9@todt`>X6hvER8*imW{` zVg2i@({EKbzp${h(D914l{~eDdFr|c{F-Vd`CmD|`6x)N$oz5ER!u-*`mB2^FLItb zbjEjL%6_TvS+A~cdgAb&q#yy$E%SxABe3bm^{v7)-f0KfJ z=e%lyen*~+EDKhco$kIgKyz>POWE)DV`tAjWgjQQwBDz^PtheXw$NcxT%VfNUoY?J z2F0C~?cCc}NuFKP6M6K^tJ6Qle>I6-?n<6?{fy4LNN%-nzuqRXmp^#lqW@`j_S=Mu zq6e;J>Xnx{Ce?LwF5S=nspHpFudmlPY|#=|u@8-zP|&HaJWne8*z#lMk2K@=8m^ZK z|7X}Jw06RlHp#?(^OmVxKi)sNe005dY*4OVY+ITa6>cw^xydbRipTR7Q>*pSbL@OAG(>A>R@l}&pLI{CL~Wvh z^v+Vw%*hXq9pT$KSMC31%|x?jcPEtAIlU-)RxqtM<3Fp}y?LdbhK1}8WA_&^y-z+| zvj3F%MN8SqYj(z032r)UWjsUY|L-@q(}IH!PKnb`{@1ZM^odXsgY^Y&%QuG8qas;$ z{+_xmNL$*bOhGZa;NA9Q3sZ6ZD)a6Ry|56?@-(4$_udJuf8{;DZ1S!jPdEhgB^m0t zMb@n6?e8nL@yIF@yQcl7FK=fx&qVH%&&7YfP)@S$J0s=4;-=)L%NDviDoIBZBQhT> z=E(mvucWQQY38?$2{%guS`GYuv2T3y@92c| zAO~xc4+)apOYEiFrnVgrTIsjI=T@U#==a)*rfRGup{v#P&bK z*x>la-aO5nCHAZQ8Usyt&)K{0cEw*lm!~HmwpTup(c%B{J8Me(+nmd{f7iMnmoqvh z{IcYPMETC-w&xt4`!6LOTiCkgAYZa@&cotqrqhh($Lz{;UG{QQ`*LU9Kc{@!zpt%* z(DU8V|Gq?S`KrE{%M3xAgtynqozhvy+WK-s*O@cFrzf2~&B{B;G4AxPzb{wp@V;>H zPKtS%Le(6G>i-qrx;Nfgu=<oa?eeehW3S%$%b2x%PCNs95#yxK zf4B6TUf-_#PU^Q2bCqP{o)yccRi74$s1duvdDZJ6pEj>1-@HhhAX~rm~!@RuzDEV5?wXRBQ7Rh_y7J=vAp6wQ^oR+;%UcAwr?J> zBsAZ9dv1QI2)Eqi6W7ddHs;Lqx;a_ig<$GPRzCH3k<6ObNsMaz`^n&#?g9C+ZVPE>B_k6II-gP!P zk88v6o0F6NwI8rB)>f7HUl8rP%S>eLv;8(snY&|UxMV$-g{iLJFB!RkgKMGXGhw$$ zQ;&u8?K6InxKvYZ$;7t{7W9AZU3u+Pf%oqtGs0%QS}>QDtzIB^$Hvx!%xAY&?h)W! zD0stlZbOIoIq!X+ZMr|6l-{Ti>~rbFs;VF{-yb^~_-C2?y}I7y0&iYhIfwZ5up{Nm zCElMc*<4oZSguxn>&<$9Uu~lv&yJiW5_f!A+$4Ht8SRpLAvx#fl8Tao{g)gPIVv0q zCOIwm?Q-CK(L+1N^EUN6WkQeMFi)9iY&f%k-?8}3GXEzNxXpW0E-p>!^*q_XuS6ri zTJb?a+Rxb!4dxu!+I{$o|GnP0Cy8!TFCOo6573$%F#Xt>6AKxNA~I)5zILoUaY!ln z*>RO4*Ngpkcx1D@oAS<3vGMG=n55#_2h`6>-Co2Y8ocRXzlp#5tMFMr1ZPSdXg;C) z%;iYRtuyOaX|BsTlsfI{jx=xG)BiWCam|~sw0eDK6Ze|r)I|?8ofpJxDTun@Tb7!! zLbVVJlJb>^YdKuZN_&l#Vq{Ez5D$K*OW8-+Ps(3Up^Ln-w^UF>UZ|ihD?Fw zv$kFoIdW4;Lhr~uZJD&jWBV*Zmwwmi*u1*w>r_^bl^^dg`7AV>T>QAXOPqJ=o;4;v zrIoYIgd*2-O^~WoXL`af7*YCQ>F(L?3Wu~d<(|uxW3+eu`sDH?UfY+`K74bU%O0Yk zk{r9R;jgc1U*k$$(-b@5a=-rC+nlwjQ!a1aCLF9jGqG}KVDr}NTA^A^lRBpuSWP_a z#U-e0yJkyBvilAN5w;s&CN8MVF3;Y(^3snK(`_aJ>wPVrKA7X`HviKLk-sk#&hd6` z^nMvr{;70H-{iMTtk+rn;I2xlT)Z=Km2*tsr?#2T&)uHmnBKJM`-eMQoA+Fw_BC_@ z|E*hh9qc|g6|?fT^wvaFHGMu_IK6muAL^oVww;4 zbKJdH8$30|{M<85ZC<wA z*YxPjZ%-Cn<6ynexteFwYFJlk+* zkJRMPSB`BoKfcQFy@gi#N-5)8Pj9@I7Ej|Zz5jMYwM^_C*|+n)tCv(eyqlHT^Ek2X zwdFQGPJ2JQi*GL0yuUqf4`+0`W!>Mns~uLiYTP?D{`|Sj75JKWx##gI7PcQx+ZbHn z;pV-`Dwms-d3w^%&t{vs%>utndDFCa?fQB@y&DTNeIKnaZGADPJOAce^We`tFDEk= zY+k!{+7*r5we3mQbe9FLpPe(qE!*P7Rg1@;uNF+$u3@nw=k!y#C$n>zzPmrY*m7Oy zxUT1PuctSAQWvguwyKrPZJ2U;vsN49uT{FcimZIp%%7D=oeqvXbzbf5(Oj4GHEU1Z zR&dvf)7)Dc8(Xz{&TEV88@D>I$8QVK2FOFXQc5k1Z{yV;l z1-0j<%eOS>9nXuHc=Rr#?1W;s^!`!X$mqZ8`!MU` zzk>_2c9e3Z+gDwdmE8Msm0^&5jmrP2mBA*S-;JLZ^X`cGpD5$I^;^YVkNSi|8m-T@ zUnrc|`RH<{-sYF#W{f+h)gRnxdc=T9=~HUJ(X2xc7piPjzA0+Xo6~6Ls8Z@X-{DhN z)!8+>TNC}Om=}EJ@r!@mv!u0W)zLj-X^&D?&bhRCZ@Ofy=h0f(wx?%GG*{J|o7w#L zvr4m%3NQ#b!nmEcaNVJ4LdPavs{B25*%6N0lI>1T-JjM>lKi;I;$%=&cm34=Y8j!* zk<XP|;oQ~}2S)l9_cGzon^HHJN zh4xeRPW4~8VkhX;XOV5L$vtz0H6Q0rGvB7i&sSR)aPH+TeeU;gZg^mMpZScnYIEgI zMSf2Hyvu%<+cD9L@u7Wlf^F8cya|1$(tb?z<)jyjeocLRYN9f4@Ar@wKVIvbo^|p#jSq6=UVhpnX8N5#%+>0>rlH*GE8cbP5dL zW`*C4?6y9X9bQxrcl&6m-sZEsW{V!?txqUw%a(Bt5`X%5!={<*pH9~^o21*P;840z z_}pRrezSyWzkj@wTlsBIwdB*}BeEGKOA0sU%NN{_@Yr?0I^8;DWnrt|mm`zDY`7%C z{qaLWxctTojsEPddtUzA;H~j7$tKoziJ7@YL1@%bY13)${!HQf&i8-rhU8g6)1~?B9Mji6T>oj##xuO_^={9QevEF< z`61AE@!hkFS2q5CVky>Im(aOII_v#NVudcseuf+5A^6%AaR629NhoAh}u=?d;)zmLuFCQ3we)M2X_hoGl ze+PAGgP(uCUVQoQZB^OR>2e3v-sX93RO75{ z*KA=`P=4Q_;#=y+zF=kURF8dZ_MSyGuPvqfCr^IgpIPeNJuCF`s}B1ef#rKt_iW6I zlzqQ;vHFaluh%LsU%OH*s8q>Yy=vjh^Sf-9E_*8==PvY{KQ8S`f{~@$Y^R_nf~I|a z_w-F9g6F((wsxBL>bv!Ne^buRk9*cDsl*+hAyswp?wMJIp`GPlZ~XP+4GH*EUVZgu znr_JbvT9DPB^kUnD36Gl|A5-LE&O5ivbY@NW-ntJ?KUCYE;CL|dpf*G z`lhtn^UPZdgkQ)wKb{qr*%rkTM2cLhBDw}6&a zY8D~siTt8UnP#VNEj_zasr~HC$Ya;HR23!~RZUD!W`D43*>RQc>$VEHaXTzoym+d? z?z6KSZrEn*yLe3Ex})@du3ZY7-T0dGk86bM>CBT&&PsK&G+M~`phYLKu;Beiy#ue$ z>cwuiJ5YMB_W!;G^Osdbhka1@-C!@>#$H!;`NM%~SFX?*Nhgo&iglhL?A-czsocgq z@7g^r7w0~D9=v^-Z>PpnS39c+o7b0D&;Gpa^@55p*GYU|I9686aj9#vwNyqtJYy<`?F~hn%8z#G#1#2?LK1h_DztUoOsLBdvpDcTbz5Wsyg+@*2Zn} z`Y}tF=}x-+Wkb;&hJ~^(ZdJCQUZ-Wc$oKyAsPJ1qy|otC?rhh{D!5ml&EgeVuq^zP z4Cl?I$(B5K~6sC){%iIG36` z+c8QWJuhF^Z7<6B_@{H`x1O|16&qUoranqIIqB)bJd4OpFPgOZzkM}l3Tl0&cGsSH zcT7rU)`ufmZ!hUOv_8Gb@p}7(mHWao6ueg{xVuehlF8wnviZ!cRww(JUoF@6y7(t> z`OGqSYi+zH#BI@goqw|pgnnw)b<}Zeb+a*9$HU+I{;>15s`xm|JSCwuFS24vUH{iD zIesc;){Ts2&##{M)l1fgzPR{j%SEj>Nj1B}7OJ)JoUGShT@YoizxEL8@mFE@=iYe` zWRf?h-~Rck_0ilLW1@_G#oYU6+b%v{*>Fs7a^lV%PZE|d()RkaB%p5HRsS9dQJ3zW z?Kkhts-Cr`=Y3`E?A`KgwRfM%wK>jb-j(=iqT1HPjlqZQs(;UVyVs`v`P7{EmJhz) zxM$=2iZ9&Y_`OBCr9VziE1CHo3X!!g2ppK{%~&!oY6{b9!7mqlttW45 zTzR&)bjgE{Vg1K*B4PwKWuA_iw?g7lOx`7flRxumhlAp}}^iIXQZ;{t{zwK)%KbWw6#^h5IZ@dWH zX|*PVZMS1p*#tIg`>7Y(>pa!+C-{HW{5!-kjYh73N1+U-nU)dF-?P zI#)KU*KZX9y#Jf|g`NC+`@))-?|*Oi1bMG_`M)i)`<(7f#W!d6)k+I`-rslj*b;H( zp3}MSk1RhM)H&fyQF`;XADY(f=W_cl?B(y&aGr0p#$*NyXU>doE{T=Z9#33cW}5%1 z_7_YQJ2bK5le@9QnPr?E%V)pv{^EXzds}7wk-1(s19!;2>CX^5e)aB}^QB8X%kXQWzSyEqJ_UjI%hV?Asciq~bAR!5 zmdzOvhm8^~IbxQ5tw4zUT^Y;%Qa?T&yck*b3bCb(H zBcoouC9fu2^Rkl5>yhAEB=pzId(N#`Cgao>Ous%hzS=3Nt6-HFE6K6q0XL(18OLoU zH(?tikKa?-_FQe#Yk%l*=gbMd?(ISQ78(ogUozM9jk4I10L%8NZI^`}z1VZO;+FE1 z{FwHDDK^4wuUluIb6LP{ZdtcXa;7kA$%?ZoQ;pnyILZ4zV_y~j%y;>-$n0XlJxjaq ztS;p~r)ul4ImWTyZs|_$h1I;zcCo+u#p_V(K7D`XVHw>|y-iNDjAn+uT4XG*e(~DM z#HFq~`BVxs&+Emu9h1sedr>kYzF6~a#Z5*uB_*^F!^3LP3ta|<)mR>tAAG}=t zB7D!y!ZQ;#wBY^K z+IJdvZ`>D7toyt*>!sc)sdXnEizeEIYWmNUEsagDW-snz{I0Fbm)4?I+1{O7RCV~m zx2rRAb_qPYU!)cxwa#ubgU5Zrp7T?zn+n%Cnf|T4CYZBmk#$9D@2nD*>U!Qk*T0^V z3ApH-cgik1_Ufc*T0-~kd2js_$dpvqULAE^FC$raztP5*8OySMCTC>4xGi|s?S7w( z&D-B)4ZrK`=dJtlwj-*%D)9Cd@t};WO%c|%Ql@(a>NhUgoTb8AcSzJm|V z_rA`u$_erG{d>c6qL;H+_?#t==jV6-eeujye(U}h=R4*t%s=z*k7i&ZH*4FtGl1TIQj;&b#m^qi2GDj?5EV*}hyNw5-|ER>b?e z+9r8VvwPnfV_*I)Vc5M*ZSs3B54&5pGDQSqwqO5$RYgfn@}q!YT-wU`VqFgXm$JXR z?k4c9d%DrP_`}8(Td#$^QTd$P*RpeUb9l1+R`a$NZ`osyY%e{FO*e}EHtnDE@}=6X zN80L^s_M#Kcp%G>!JDWM;!wKKYO=D+XY;w7TMtY&?wpr4_3O!t^1{;!X7- z7M0K4Z>p=jreCT475VqXhD-KFd${|ryg#L_TlxJP6ZeK)z5oB{&Gi1XOP^t8`jzvO zZxyrsaZfhe=X2@#l3xukZbvcIP0jvaxooM+|F|t$!qd0iitd-<&aQ(aJ|8S zr(BY4TU%q%iwAqsHu*0ti#YkP;@qSN;p6As^lOC_-)LW3aK5KjE@$_u@^>ZDw*9ic z?tj#3)P?7-bF4N{NeOP{D7>(K%LDTq1ECFa>l#bGGh7dxb#2MZr}`?b?0dqKeHO@x zMSW^G%*xBOTE9*x3(u&sAnsCOt^ac zz}w@$riy)?wnXQ>zzh3Tx35MUXP)1<^4__iHSfX%f2$ve^#AqcQJ}|7#l-dg)~EI; zh*hfJIjGf-iPDh(Dzic+-E?y0)`Z*KOpO^i(bUPSL3q!6k*eyziH{8+G{IbACUu={LWf z?xiT#*(t1Z7G!Pe5{mq7Hr=_s&p7nweBLh4hJ)E3i&@snuPcB5Bks}soV+RTRdWuN zOuqKMx242Q{?9$n87|GPOnWPyVl0bX68we2VSy zh0<3~UQAAz^IfXH*uc3u-yrdfVTJIC|+7t7>#DBLkyxFp}hA*uC=+N4uc z&K;H(y7T<6SG02zi@n6mvlz#8o5)BrQZ*DuX#o7ok*Ov?p67# z)vp#F%AU1RvGuyFUgCbX!X@kfzLh#M(R+jSDegG^1CcdyG5Tr}BIYN(KC-d3PK(g` znacK6;p&2jje#4#cfa}Hoiw-oLG!bdf4#c1@-HM!C{tiIoj3XYrl*VUCGJ{ax&2W1 zAi$n@+-l|l{NY(8qPs*DQ5T-RVk+qa~d;olPF>xaJvug;(R;=i9q>^gQB!6eJxg{5i93Yj@=0 zC1SO9pF5UlPgecMFz=X)xy+L1yFc~moB60z&(w8unOFR0Vu-n!)M>9~|2aKoQ_FY! zQ05h$KH1(xHsCh?gdv-@Gu&EVD6&$~PW&I+!WbD1;Cy<+a2?)q=? zvEkJ%QaARw`p9KZ!{SJvgDz=*OP;t~z54O#IH_?X{(=bbeZAO#1NW@bORkPt32M9bD>T zp>FelcSon@L&p5~a&kLvzJAC&{autw`|dfP+&<0L`CGTtQTgi~9wzGvH}d)wS8TlU zB!cH*+5&~6_t-h7a0I@{XY^X)ALQN`bbaN5`SM)}r_$?eul3hVn>Z!qlb5EC*Bp<3 zZb^JvZ}TMWR{!3={PwfbWIp5Vy~fLz9=jjrz46kHzpE-ucMDdZz4YmXA$Kpc0pFL( z_U8pFGmZf3>vegtbJd{)KzZv-noktXERM8E{L~Qt<4Pb)iq0#X_GvIitq? zSL4UpfOkQG|BfBGu-Nq{yOQDNqQ|yNU28*+hxw%4vpDj-_ddIJRnVo!>p1$O7Z?1U zb2jtEqiF^)r!v28Hn@{*JweQ_`25@W?+Sa@THI+Y+GH+Naclj-J$GjuU(G%*?`pz^ z-;Z?9q`F=S=6z;rwWFi+(E5uL)7MLt__FZqT^!|l;IUHQ`|W=}oLX1Y`cb7oR&&X; z)%TY76of`*Zfw5WTFcDweQP=Med)=&ZM9jRA1$=ilX|+0 zoOa8N7fRh1*>->Zn(b&cSNd*+{gv=J7rKisP08QRI80_wy^E`!4%t?K#K%y|UN7fBTPPKR)Md>e#I^#qUFkVD-|I zvvi*PtGeJEw)+0^)Vr4VJOUp4Qf1-rG*Fr9z5L_(Hjm^-tB;)5Kenvy-_HWMk5Rh! zGELNvY}t1?W()6E>+kO7>hu10XujT9;=kEw$IUyhYL+s2i2F_g!4^&dZ+RI=bwANv8;^e=Flr& z7PTuR@0)=7PLa!fQBzB#t<#?F^xe7iTKHF6-nAQO^1Qm+^P|bjW##T7xmVuDy)HAFJ?%-BM(UJ^(!6~U zXO4QlQn$A7ROLSXu+wAZ;W@nPZf@wf@m)K2X07b|mmUwTmb%p(D^T_LA63Ah7-zKo zk=_5z2fqlfR`L2*dsQoQ)!X_GGuxwlzpAW1#4^sxXF0NO`k5*7PrlJ8-udK`(itU} zqZZ6n>yrK0V^}o4@TYY3)Er1UlotEz!o)|*+oo<4+no{8+Em_Lb**&S3MLVopGCP7 zKh~T+z468C>GkRdicR}=-q^JKmzk5)edYO5VMl@wOTW~N-fy_xq(rD|#ipaxC#nKkE&o5QSX;^!;u)lr zd?ly5XSTT<*O9Y-@Mg=@uc`$${DQ?PckZcjzYft) z?%}j*;#Bx@=jEx(@=x#UZj0KL(4m!EpqNqWZl6UHF93J`G&Wn<7>@Q%D<}_a$uyH|t!|Zd( z>0$@V{M=VgR-30^W~}~ouJz>geKoVB9Ou0Fr&PE3-dP!AUul1zYnax$jVYB|^t!Rw ze)f|BD!dPPK1t2%k=ajmi1O!G?iNxSo|amVekIqLm2@BYu|xHp1z{;T!#8ZY_m=j{uSiPP!#yZ1`u z?>D}@HSH_zZ9m<9;BPXonoz;wl&KGnNQOr}ad!DJ*{mV`$JRd)+a>o+ynBr~;6zU8 zo4!0YE}r=3;*Fc`Pn>!v$m8|qa{Uam=~{EEl(X)apD0V%bWGC!Qt!?6-(JYyUB9L5 z#4_Fq>q_UlT>RU*<+sc<#nTGyKb3cyX1Tm6h{*gLxoXd0j@H9^e9~_xEvi3y^x~8) z3k?=`x%^*ecI$acZbU?qgUOeu(^)$YpXsYxs_N#kEA$>?*|D}Gn_X@%t1`dH$N4Av zp6`;m$i;h5_VC7X^J!DXrahbB=xr^q_`<7qk|qED-F3)PQhfM()#?3@ zXE6M#Z@u$r=8PGIhrPVRWTxCZ>E89Bqh+^G*W|nz{>yyQUR4DqGu^rydF$}!3q76U zN(mL>PV;ygbT$<(O*LVd)$@_hCLm?*Ldlf&U9X;|^iKM*v|bph4PsuuCqRhJG*e-+M!)uZ5vg*sLHSfjc8 zsb$kjSiHqlf|Kp%?mDZ@H^qZbZGBnsf&wqIoWM15Qy%1d^eU-&zwr1zFIMZ`1_mAN z+%*TD$iDb?SWLc&H)+-M&6~e0o9@2FdG$Tr;6M9+`<=btzMf$N5k=O#67*GA;6NnM%gV!X-f#-ks+g zqKXtJF&!7)%M*Rm^1lAlHFq~%I;3S-QOLBif5$1UPdc$L>-5h>?a*BvtTEa2>bGEx zpqML9ME?6$Ob);D^kPbU(&;50rAn@U63sp|@2Psw$Qj^%{_~rFwontDErv%qq$7lP z`$i|~+%C;w?ti~6wr|ze{W4b_uU*ss@8aO{X~#w}?@tf(k{?#6NndDuIL$aR?C6t; zc1~}_KMG7{_x(Jf2}8WvIN(QaF)YYqm1P(m*=Ffy;;WI6S+4$ zV%i7YuW`bAj+dCOms@pPNxV<*+D;qSXyt_mS0yg>-F~%_{a63(v^}mHch*=+p15}Z zOOesU&wP(hhu`Tesx)dTjk}hrmvU*Q`R#dsoPYMLIIMNjF0^;L)3etR%Rh9P#w{_u z@Gj=!qoO(M)`XbG$$G}ss4V&DU&UIh5&rZ}Pv#%$FD? z{u$}?_WKBD)7E0%00|^ z?lK4Uk{6L|>n9jk9Pyu?x|-X=D&tc6t7$?8TPN{5J9p1oI$0#J;MV=aYbGpfag1m! z@SoaX;g;`izGh4Bt#_aJB%Jo#jY=$9QJKKCj4|=d%vW!G8&^(wC~6yW=*^~vNp@>Y zzS%ss)!n{iNBN@9`um^0_i8+wp)yCPd9BBT-@l%=mROgFAJLSZXgXQ1UrjD7%0s+1 zTP?mW{E}?6s?0~OKcAu(-r{2USunFm`Q4!(yH{)ss%9x-dT+v06p+`U;?q7=>=dud zuRY8+s`v5#`jPmo&*DMX;gX3RrHk~xEZ=6o^W@tZ1`SNiHNTGa7FavgO`B>aRkmmO z^O&aH;@W?_7VK4Nth}cwD9L%EW%1NgJWDx@llNb6+QwDO`ntciIpy?4^+|4lZu3{k zg`B>!T4&Wn$Gw^@y93wjNu(RURAce^IX|~#_NVj5({ev$SQbsZ?6jkKqU+S7TbCF! z?+RD7dA0kS$m`87%vShpU$w+F<4lmGSkwx!pYyjg`Wqy__uG2C=xFxQU&S*8Cs{0W zVZW;Snd6Z~uXgUC@TI?Q-(PX7rnr0C%-JiQH=dvS)cDeDPdj08N3q1hOX}8ZOsZaf z<|{Zp<(rMR-@3S`ZYCRK%#9ng&z`z)VWxHCz0Hv~of2KMSD)9Mr<$bs+~mLRlI0hZ zx?ix&tg;mK{g|?$Zt2lDbDOClzi(gqe!rT-U+}JC=HYvDjkaokzy4IrTS}OHm%*AX z0m~B0XSn_Mt)4GaU{#v#nZ6@?+oihT85fi{#l4*HaqiWOTmh5U;ZYpU@k;MAU&!6M z`eHAa`&3Dl&5cWr-0a&bz#S0%WW%btbyE&Ubae{Fom()4rP7X1t#nPsO53G(E?c|E z@OAAIzIjco?{VEy-P^aG$sTKYzV(Ti<@K+-vwho4U$KXr%yZ=UvQ>6($zCm`4(a0W zri=Kydlu9!^)1M_cR4=h`a7*#zgzF0p29s-vAkDJ>axDyg3gNhNi3ei3uBZRwO^OY z6w8O*$~g2?_C;0q{Z!wzza8fk@Ou^*9k}iBM&UIVVJ6)&m zJ$G{cBJa0z|C{w4{rpgBTJnoYvU?@6kJ?^Z6!}e$?b6vP`}g-<+342tL~eSl$gI;@ zzo&}nsC%2fFX-GmNo8ZCl%`Q!!PUJUVK!eD&R%`x`>V^>gX3<=gz>)AJ7ME&tG;@J zWkYl02RlA(T@}}5@*P5F@6=SUJR|1mS@7>H$AahoXK|joU2=94!~O>cLv=H?Kfn7S zptbkbakbC0^5tVy-c4SlwBr1$n%01gGk?fj;{Metc1u}rrny4e)_}Ba6Wn_Cd;dG4 zBDv(T(QMED`~O?*U6h|H|34LJ`Excyn_p(qhwt}OA`;(Jz3*HrY--ZAIr-fyvwtt@ zAIsl-@+C=%Q%l3;(n;IkkfLAhuHh9kyOn}nQsO#1SS!U|YISRBX+(ej+OXAq>53_Q zf{!B&E@yqY^Vjv;XF=tD?{vkdcAqpBi+;HN_(A9Tj~vI}7Jitu<(E=Rhi>ef4GNc2 zb|fyksN}C^KUGrUuRyKk(O~ddeTw#}N4QTr9X6;~p&s=);KzmSiGTQyJYVhj&Pd(u z-`uae=RE(k)?wrN35v~TqILOgJaX^%tUZ3bzNz$5oYn6?fnS^b#p?ZhHon^Nr?o=k z|JvLS>#Rzz=10DZ^4}X@CM$W?c4l7A!awuWHW@W#DJ*W=KU=lhWQoof?%7SXkz6G^ z7SH)5U&Y(=v&>|px9$CTJ`;;p%~x_QSOS~mi`M(ySw^sDg*aY zr=!-})<&Tan>VcO_jbdIjif@ zElq1p8aGZel{hjb_r6T~hB=mLahYpUpYrPEd}cabZ=Lc+p0lB7*$Q^{Psf)0esW3P zSVwM-_k5FhR>>O~(|N_F?D(=i-tt`Y1kHt&{*Ez z=UMbTDLO0CmfWX3TVYH0kF_1$C9BvTzKrqeuicjxlXWY2=PNF?tQAK}=B%<}Sn=ZF z?bWN#h%s%wxB1wP!#Avsm2O(y_dzK!DciF;BrhVj)x!+9FSbyR4XV>1Z)>>xy zSdphu`El>Dgw#9#S8LmNm)?2*No3`f@ZPAB(9n~=ABC$sbD2v2_2Le`#KBw`ZMyi| z=OrgMT&cBLX&k99RbN^@uVlmd+tTjMi>>2$qke24EkZJrn__}a4k^tszR4{x(N-0k}2!pu2Wc&j92J*uZPT=|&s zt=X&L&()VK*JlY%lm54B!nIH9SG#QVKkl<}z1VHZq>7gp=KeltbuexD1xb$Oi@Sn* z>_Ws>>duqsLFR9Y_%kA^F zyvU6UyA=|2wz@1i@^=5p@a^I1dm~-0MF?Kx)8=99;y=1qU!JY>e473Ay~`he`1h#% zNJD9)sL5a3gVVNau6}0cv)BCX?+JBzg3at}SJ!>voay~{|LtG)joUJqUA{e=$1+n) zee<5xZMC+?=dZYD(|*JEm1g53``yDvx8$~&T2?)0&lXTj$u#tFyt~l+MR(1Y{CWQ~*iLY6 zR`8ACb=PM}3JD6&z5Gygro)_TS%!NUUL1XU@4*p+caF_Gs^Y1d-H&*`N+*xlV@~Qp$iA9r7mRA>K zA9|M(e}-!XBnR;^i4p2&@9*1^w>`Q~bMKIzPUHm&%}(S`9DuPxX)yE`pzE&Zo= zvW{m~^EPLO+2>Y1R^5^H>FA!rzg<2SPj~p0?>DLS^VbdMOO>vhMV@JjsSZ8*KBW1R z+5FdkMfNv;X})ul^=)R8`RT6vjC(9o40tL&yYaLIe_XbY+33igru0P5pYzU1%9!2| zGgXO?BBg-$#?f- zqOyg*rmnV9GF}mE+st`3qf^fGSI?$=gM?36`!79{<#EZ~a@h6z+pGKPmInq&mGyji zvWhFZYiXF|o7ppFTe==Ej^;n}Tzv9|^6JHjF;6zAOO@r;?OnIL<$SI1-LJ{#j@S9` zRXz8?$KYpX{U((L-V2r78C%Ov@NPV)VBlTXaZJ8IUH|?&?PtKj2LBzNN++UEwBK5EYh}gO z;Ez`RWF`Efn-PG@S+h#Ct|7U^Ryu0sLJ(-vJpz=V-*V&&xuVI}wi-m$Y*wZyd0U2&rzv;e+5YYUv=GuPAsGBo(X!ETwf3@uV z>WaPVLJlNvKJKVX2bKG zw=>eK&b8E(iG~wRbo%`id`ORl9y;;0?63)hMv)=OKZFp4HR?#1>wYL1-^Y=K-{dV%MV!*}M z4syHloyB>=?WRrLmiCj)$W#5y+nO0JFPFP8E&9})}?%lNKF<&exZxvp&aUdi>l zzcGvNkSTw=pUG_hyzKhE)9o?8(-TT(S8acI&7OO|xXu>My7=$4}!iE^ELhUNcb$-O=cLPFzToMd>N*=QfLXXO%+17ChwE-01HvAxZ& zYE$^TIoj{+j`z{oN*`vie)`Uln>cNcrSg`o@&<`ft^b4jb0W_kRW`VJgV$x6p>^9Q zC-0c&wpI?|%c-_fcu6OFyPR~Qq3zsrm z?VGtOmER~PUCOH@GfV5=;?7rwQ+HH8`t&d3yc74iwP(6+zTW-vwd;a6b>I4C6+Qm^ z_Gjj-(|t4U)P7lH`*COZshg|87cG^5;L{?L7AVo5waasrB=-gDgT+rH+4#OsW=E`1jzlQE-Io>`k)M z0#mmvUUYa%o>0iKCwUrLRbR5?!=%!j+=KS*J;e8A*CpPkSB{*o{(Pm^O|#e3zF3V{ zZP#R7GuE7G`(}%XzWly3dFl6tN*j)9&d(iR+4T0x8u(wfP1+V~{VelK^Y%2!&wM`` z*J;fz_On>aTU~8&W5(&=-P88E%I}&GIiuhHc*r{ISLgay>O4-Edh+YMV}ajxZ1V3} zyh6KhipR7tqse`-@9Sk!+ZNeBJfyH!nWd^K@j}(*d$+lo(>~rYm$ZF&Xo2xBz5g*1 zS7huyzF0M3p3t+&R_BbrOI#LjpW4R2^^%RV`jX?JkNeb*9~1hTx#hczcgV|qcOLqx z{{C}wH>dWzj2l+l&)mpwkbLJbdDn@(8VL;(?w5LWntqtp7M-3`EN3~(NOZ4_`B zwZA9&yXnSf2Upyl@W$}r-bn4(GWBcwf7VD{-4uK-^-fU0+LQ4$$Cst%+xC22cIDF6 z3sYU+8J+Kbcf-Nnuxu)mR_dg()Q0>Q9x43Xyc1V5Om3gT#;{TThMMs2)atXl930$x zHu7G*JikYNv&3PilbgP8T*#O%f7t3$Lvc^y-Sv#mSNoP!yt%OWb65EHE#Iwoaz2lK zd+UGJj?dd>75MEA4!b;MNxIQ&kBh5r%=WYS`0#hRcf{@f)wb?>dS7nMF?ElhdDZn) z(2I*@8P9%-#RRZx6gIJT|8`ck_*<}6!xFJbcHyRy;GXFS=Nc<-*^ zONURJ=RT8*I4UW|9TNCZ=Is(C@uT|>oO!+TkZAj~aA)^#){pM|nQX8m_2J~KH*;!) z);vvhUSGy9^~=3**J9b`pPIYb)3pvYRe#v?`u33%MYY!rCr#b^ok`XG(M@aC^UAwJ z-WQ$T=6kUF;DUBWwu>ul9vmu@y%qRfn>X)f$DXoV!hEv@-dXGZdzg1~_w&EGH+-&& z>}fusXL9TJ)@5>eiHl9Q&b)V>cjvQwS5f;khh?0L)~{Y$Vi=rp_m$qQ!dXY#Zhv#C zPdWSO$wD2^c&o1>4}?A~doS_4t##TnuFf59HBQMaJQ=s{>MnZE)L*Tz)IjB5L2c*8 zV*f836Su!nTvDoXPH)Gt57NaSH{HH=|I_7*M;njd_?7we$daS-_rCH!zdX|~`|*7H z6f2j9>Vc2myNl)RO6YWXQ8|^JOJIJYdi4HHtOtH6*fM0YH)*|h@Q7ge;aj)gwaICj zx^PT^Yx#2FV-br!gq`+1eDq+e+D@^Rhn>SG{bI=|(R15jcqn5j@5B%9_gA`qKP4zp z_G#h_#k#JYQ@)sgG(U7OpQXc%#aoNf?vFj=2gL_*Up6p&c(LRl`^)CQ$w#lo{^hct z8hrRg`!o($8`Cu%%YS|U==`ZRHSx36pGTz)sz%&T){iuJDREdRcYFHUlwsbsXdzI>PTrf=dr z{YMTj_*G`}pr5VBD&yjXbd`+elCWL5x%w~6oP7kuQuY_vG`UG%vc348(|cFY+d^rJ z<&i9+7W>ccaTI=E`>((^aP9tTuA+XY#@>T-j7xXc2Yqq>b(bT5A%}jg&aE!3=x-U` zrE~n(x(2=Yb>WtW(@{5j%`J}Ub@8kkPnO)!XFbnv7H8!gzUq{S=RxUxjH zLQeK=LFbb5XPmUpM0+%_P5xEJ$K6Ln+8E{QA~F>XZ#8^hvRI|QTx#;Nxj$~b7w2W4WOr@Z*MfIy z%)d20YX!~OU&lUwo>R8r$5Z-jXRBUH+xEmg&b~CO%%XVvp8Q*?!4rS%(SLbSl>N?@ ztur*ZE_Gk1Z<{K1NjdABbxh8EUZ1RGPKkT3eHPl(tuUl-0RIzTXveUXQWksmU{ljwRpe1)%>RX_i`dmRa`eGl^on5xJ*D!(0t97 z0FF%^8`M{_t&G`ebANh}lINw9{7*k!P2Bg(#ZFc3o~MZOvz{#Z$$$U7n$4NKc8>CH z>y1W@DZYn#>z4Mq2*2+ie)R`k4Q6XgMay)m&BZRp4m04@_?Y}+PNQB z`ZG(5cH@vY zn9PUTjVoHq8Cte|?vzM4HcL+@?a@97D>`-k8eqA{9>PKPj<~dEw3+ZAS2Puk@eXI-$|WUs>P-Z=5LsbWFfGp@Tx3(W8i@p|&#mRoz9%*1N# z(@!OtSInKRpJI7A?$=A#hh2-VsJwfk{m-MqX{mqN{KqrSahpn=65V`R&${QdQ}=y| ztmdO^;#sk3(48_>%+SaF$h;4aTYsN^Xn+3h6%VzT_j(Ib z<~jwt{*K-H>E`d=xe=_(e;wMk`B|C92bGR(GR*qUE#DWJi$?;K95GrLI(@3xB{kCt->-DcmR{m8x*W~We2H6U&Cu?r5S@K?g>8*Wk zS6G;357l=5^04YG4#>#q+Vr^&!e!xfMnr#I zh9c*_gLO-NxjmQMyug>Td)dzeXW#Fed?({gzw+cxuNhfFU%16vr(bonUsrA{wXERZ z)XgkgrpQz}0* z_gPC>B!kW`AMuYxi)One_j~FmO}CzCf3mA?ffJMU>4%ZC7z#WVt8dmmDWk1lDc`yB zQtF#mlRGEAoO+AXI?PzcBdhw7$CL|Z%@^Hjy^bW$KUM0e_wVxK{quJ!>N{>cdvK+C z>x8xPzZAtq@9zEf^k-AmeWh|qAy4;f$9GNqn|di=zs-5hm9M&uUT(c6w8$sQQHcBC z#+6%J{#@O>ZQ70{;!f302h216|CnE0oU`a%#PhEWVyd_2dW-t6vYzi|n*8#0M<%Oi zvab39_s;r9FO;<HZX{^zgf~=$-@4l~+|QWzyLAJ{k0Nz1n@Q_x%~uV+kMh_O7cq z|Gqy_VCuvpa^kN$Ug}6LTz7V^)7zzQHhOk1yy&O;Ep2Zx2lK|cUNTxd%B5wi{P>J7 zynbV|yC(Y8tvea6Oe(kX=SUduyHWRe`Xm#s7tbeFadoD3t`xeu%jNi`P7@R3H|(!m zq8@Q(xSwD2$k;WC=~_YO`nto+Hz#YvI1DEM0hfqSeH-3cm`m zD`gY6UAp*blSg%1-?Zu&*-tm#J1lvd${M%z#G!?Yxl>xwCW=Xkw@tK~D0ZhsCN5%0 z=Q-Zl@6UTAy;jow;M%>0;H(5NkPe{19dG>{<9}=6q?=b#cBENECg3ALN^)Bg4 zd5d%Av%K!zl>X-Ao~vT_>)&_WygcvHvDS0xuWMTFyl~HYH`o1LM4{O3^>ee&R!vDu zUwuGy`a!;*8+zuHL|R3}l-^=}lHSJi^};6BE4^17ZMRgiSv>!A&g=X4sMsEzHG88v z{O*Wd`gX?YOZS{twh3p~T-x|KFzwdgKdg#oxf?DEJ@UEq{kir*yQ@VE&qa)?oP>8> z+j)D})pr-zBA-22@t}UgiAod6PUbncd6i3L?tGkcr2p23U%3;a`0DJhC(ae>FTUa> zA0%zz$euX4Z@JcnBZ*7emJ5k)l`=NTz0X<1{bG(!>m)|cnXfFKZ&kgvN6quJ?CFEq z?7}I=SKq%4{=>6(+v^#!bH63+SI7>ko)b5}!|g>=>i3Hsz5nJ2PUH^key8(`+xRup z<+26)Ki&9u_|1(ktZDT^wp*oNXclYwiujAIYSx{tb64%^xH%%8|*)N>`q_L}Xf=KafBrmT#+$;)y7fs^IU zCh36n@f)Lb_NV$XKXpynyYk8I76AsyBZW)EPB5q+*dcW{?IiN_wzj`M0FmTXkhw z`+qGt_hMt-L`RvoQ{`UIl!{w${MW+Uozr89dIt&QI0mICR{Zp}z9@ zo9cDTS=E-V4^XaHd6xUvk#7dqZtip0b$#;PIa4qDp32{{sax!2*`--|ZWrsbzWw@k z=(V|l=({~ty(_l_=b7K1mcBKhL@D$IBX7urYacY7w=2or?Y$DA!Rc#}!B*ma`+dxv z^o3u}9hHvKV85$l-1f$)R(SLNn(r-6rN8c-&EnkP@@A{vF}bdY9lbX0d>40qsxf7M zSQItas3$e@y-@Fpn`+AIO7}IJ_K5|)PF$kK$!IxoM`McNw!FBXk;`uMzVqvRU=aDn zr{uz;4YxOhM{QVX&28MtbLlBVs?zMoYZ#uoDqicn%4=REaNzdUIVamhdHcSBRp*Pxs!>ck(<^(M5FK_?5`~1{<(st%0OY1k+uYME1sd6G;<=tnw&PMqk zpFCG8D*I$^RH@Ixv)bfx=ZOt2+zgve&-Hw)`Bx*(nWavXJA%FSj`L)bk0;OBzns0I zZQ?1N2MaRW#9qFS&*!^(a#qu{uM+8&0dsEN*(4HrLzK%}`=w#*FPkHx7qKHh=3bF*yP{E7=gG{(jQ-8h$?QT!i?Ww7O_;cFV|H8EYxgXZGKQB` zXBw_vRW&>@C28fu{qmaMvYeV771v)D4eT(Vbz#HZOY<}nZ~0sQkP|pCxj0Cp;i~Da zPe<}Mf1cA8zjt5prSnC8%S+vKL)AqC&GYi29ZD@3A1&dZom8i?MCP8|#6>4AovfKt z$6@iYXYbPAWhrar+_XXrxP6{}Xn6H!+tuI3nv?v0hi>>7UcRVlu8_r{=eb5w`f(R+ zy(6CrET4T@d{6J)NWIs3)23X!wt`vJKSS{7iL(noI=8R*_h0+B^TZ#FB3}ZuH!Obo z-et|tD;5RY)vv4cF4`5ozHUx!W7@q>+FUa7vYqaWJ&@fB)gZ{-w4t z-43=682n9HP`9HO#wZ?!}Cl(xkNTx)OS*au9EUVedRj`{-IyHT#8 zcMRJ_cFeK)!}Pt@Te!WJ@4qE;^bOUo=j7MZWNv{k9LVw`tqkBw%)3zcazrg+%)W{ zJMh|OZ=L@grc)C_-Q!=Ih?QUDp1HMfeVdn8nNyU~yOM3fMd3e>e$hT{thevd_KT{S z>o0x$eRPTC7U5>Id%xs(a~0Eb@4k($VR-OShO^*o#EiYkzb16=Ixg7Bd!)NN_P%|C z_+kBHCMEH(AYUyq~b znCuwRCaFL6$-fmj>(unZ4h?SZf4^oeU*h3i-52{h>;KVhkpS=5Zi}pRan{kiM-kM!|JA1j9 zgkjR=37k6=@lvFg!_dmA?E<}%;t_ZEDh5*vQjq%Y)+&aEsbxm_&!E?YUv6|PkKsoiLMd-=qM zuSLI29K!BSe0#a!B**V<>yL@e{OWk(?9uM~e{$ImzFBj*zkd2v`*W3l;%(+}Z~w=C z+Ja5ve4dK4k=`-)pSSlvpF8EN*wf>em#K=DzuB`{VzRaW^ktpyX7>c$IjmoPV{)Gn zViBM6=0NtY9FGl${Un6WyFId-$YENv*qQt7rxSkci?}%+He2UjedHJaXzwmw*4Mh) z-A?B&vq-DjUf6f)(xS{qZ(`hE+}irw~0IUI9zdW@GxUO>QIcHn)jmG&j&V%_ACw2i&k4$2PDZP9xZ~2gRNCw+ ztut3`-T6-bf6wWRjMP=l74ysjB7SM5EZ>?O@={?#lG9Dc3cG^uy6<`(c#768s8u}O zw^#DwB%>SrS1gPR7QbOGpR~4|mDlP2qC(|GKfO&G%LRS*N}Syv@j1ffbN@A)d!Z)x z7q{+Eu;LGxU()bmPioA6TbFXj**7x6#SZ@2y>$Psq-&Y`7VK{6UpJ`Muv7<|PZ-yI($GF6+tU zBd6qf_t?x87Cj+53)LpA;P`F!F3fNV{~>=p=_56gxl@nNKiziaG5@{(>Z?}|8F(mc zTzM(_*RGl`*B|arYx!YT^W{7D&#foj-|ycQ7US&@%2m4i$f}Z0vNH@{HoQo>+<)cA zi``yv$BZ||ubpgH7@AKS-A(^nmS4Pc&F@$CdCLbX`r3|#Hxv)7DdH_m zwsLg7f1)!-Wgp|33%yrTHl@y=rP3vQ^uLcNyV-GXcb>GT)%i+E4{X0niym?Oe@A8! zulxkgef<`GU6MOip8ckqwm~_qV9Wm)rF9Lnlpm;C&2~PbD=u5AEc$iENz=7VmTE_g z^Ms8Q{&h$_PrNDfyW`)1O@c2OWTH2|u|Ijv!^rHz>Y~u%^?go>2~S=enDOV+tc6G3 zZPY$)$A32D<>fh=VK$XqT{3_B!xNK&_oj(_ycCW^kCDE^pDgU_Vn;1^b!n>_q zd^3%EE=-v9pnalL3)|%tM^>8LdLMB9e$;fWNz78dD;CEFT68W}S18UY{Wp(yVgOf{ zgN*D$)nB5v56io6EwJ_0XzhEf$1EQaQu$T6^a8t>WL(C)i{eUU? zq=|DSgE)0xw*CGn@Gf+cY>&UptF1+rUA?o+KlcQ@h}H=-;&rNe;Kg<{B%9g%-D~$O zor?};{m*Z;UAzA6itWao&wn-^d@H(9_`F1|#4ZCH#(QtWVvp%n9n&k3oE`Es=9Q6I zLWym&zVElCPUhSK(|T8=zj!d^SfiAKx3_h_P32U-@-Q?A5icrf*gB*tWYSq`GVlyVZL| zQ#tBmYPN}%+WGCjdEctKyBtpyzW#7Q#@|iKCW^s&zn7Owa^Dg0ezfFZOx>T^fsIj@ zXEkMpwk?z2a4~MPV1>2BHshWHnQyl2DA`~0oh2se=+vifj{8>E%&=^l`FL&vcZ|*H zss*RbS25m~IR5U==A7&2KP~yRplGi!Yxeu9)8^HSluTr8m5pw?Ps?$(aZ(T37aM=L zU;hMiX~pD*N!JXO8sC21Z5+q8wtVLy*P57r*6uRlO!EwXZLqJ|Ru_8y^x|3Huc~;4 z-j4`Y|KZz_;@e&)Yhj))u`)QWW?rM;o%6PuLYAMR{&xaQ)8M20q8qP{xI>ulw^B=(Rj-TEwaIWwd)@AqH%dU@LpiHzdwmCZL~ z6N5B%Me3Zcy#3?KE4>r{#hjGyKdA{lvhVw=_twWhhOhr1v;OqY-C35OzG_{2Cds$T zo%t*8-091?U(B%my+q2G=Sr#Y=NS`c@7-Ic`nc)#+eKEI#l8EVUoUw2>(-*So~K;T zUr#yOrE<%$aN5grJMCKRU9Pq3=SNwM<~MT6k`v(q@gB z4V}-oD6UNn5u2#Qd0ydoD%a`hmCGN@T=q=qR3uRLB?-F0{VA~VnZH_Cg~dj?u> zetP4T;Xg+XhDgx}k)vx$1grZPdPL?`U$gppc!kL0fSH9&@@zjf|2f`H5!lSOJ9J^@ zVS}KV^P4m?<+dx^J{4t)*K50(l6h@?m|tazUicJ-`%7X{;$J_GydEOPUFpuY!zaQl zIWc5b2KVZjm2;+r2j7_c#j{DS?!t9^bMCzMen0bB%CZ^9F0ER9bh)eFvNI>9_*z8ldS>+Uc>n(T=Mpy2 zWp94?+02nH%P?07_?Elugn^3h(H~bDFJ9tfTDL)drRTFH*Plzyda-qbsVS$y^VG1H zkB^@Zmr`NOikn?3xNQ}0{IYGCn5IqnPkvt0U2?xL zV9AlquQCN!h8*_r{n+E~6;%17y<*;j|IZanWU@B=@t^)Pu)9M$YSC8jw(g5DrLhss z#p}PMunQvZ)1Uk4%r`tZn)>6YhPS(;?8bdsfE-iNs@JDoQ@9 zR_C?U}y7$&R@z4C}dumQ9U#-l)DDkH8+ZDz@@sGJjmLE0q778MGha&6uFo$davKTXWIFHQ!8`hcn_R& zabsNMusr;=j`jK?yX_lFmn`>m4%oJ0s%*Y}+7d@2ug*uU!96MaR7;&M%4Y5S-F=yD zuf^|)Qp+XYGVWpaDtykjZ`!6+ks{WoMfd%`YN7Y``={~Sxi*UkUb8-CcMcbfC1 zj^{iHxASi`ZnPBH`ix2EmcEB*>doMN6(3*9JC{5+I?M4UO-3>KRa2%~^Q#MWOWHD* zwQ2uViM+F$cN1$1t8 z`{kg=TDN5%xMfs6UUp?Y&SZP_nubOG>G*=a+0VGPylq;|X38I5x$#b9&ZKoI(l4AC z)%O%%bxAS#s$9BG%E-@vd8L~Evgmbbe>$?X^5$QxdX!fzxK#a{$=fM!PwsO%{i;b< z<(0zJB%j`QF-Bq+r`0V{3zu8)W`?k)NZoqxwjI-NF`m4(Gv&zocgyB|NS~YPU?8dFAlgzXp%euP$9>jhf60sHG#&1PJyB2sdWc>fSHGI>lTlRDBd$8~3c-Q~Fyl}020k6Zw zz702@nK6H6$rC&+H|^8(_wzCo3+A1ZYHyl+QFo`%TQUp?5XSzlys$vM|}@)bU#nIRpy&$n`AG(Bsd zXtiUah=(92U(}J;+xfHR&eZ-JKfT+U=Wkd@-M#hq3O8~;Fi)8dY|1$^86_Rm~# z=Ec)n$6o0?%Xlzdm8o6xZsz-W5l0MymhU}WF3E7_-rbo~o5ELK={CJM`?Tu9=whoa zDpS5LEApLRCu8+f)H40?2cfApKW|icr^S7Xzoqv^;bY3RRcBLO9z1uIUVmKa<+**W z5k)K1=Y2mv_eO!+&%o4up|i~I-kxk*^;=7Hd0g9~po!P>C*@s!Y_E5%(D&WCB@`FZaF4{&I1x$wd3re;;1r-K@B0OMKF{%j!Q>^L9Kh z_3PQ`c`T~zpT%ztf|92n-0V|xOnBo8^9$$qndNQ1 zt;f7j=1S(H0K=+ve#Tpm&FN8myXDx4B^83%JR3xJ$<6545^l0o+08S`-hIkszAxYE z7A#v5V&15pG3T1-v4|qRV>2QqUeD=~jhK{g(%GBj>%wbw=;QjPD7Z`i3*2)g^7;U84$IqCK8Q zx4$c#BQ~e_-mZzewj@kXUr>K0!oJ9e*B1hWH5#CzMxLh$vwd(+noO$`N_CZ z_TS&)iF?w!(ie1YpH=3=DqZ_KSoO-$5?{{J3+t|x7dmp^P4GLr^+H_zZhhf+@>(vmM_SeruUEMS)8lqSNr|5-#&V> zZkC5r00)0^$Kj~pa?iJ4CUN;++sZsw=jqcLb91X(r%u~jJ~@$Ld!4T`t9u*csq1yu zU%jnfQSPR(UA2l~zM8EeyC{RLSx<->zfy6}nwwW%Z(J`~^14KM%DcjhDV;*~-gb(o zs$n|RjeR-$;@L@DFRJ|+*6CosM~TXwnJyZM#t)=rOu%+J0? zCpz;!y}RY;`W4kbUL8=&oqhPD*q4*lyA?T+8)ab&@njgkRLj}Fh-$Yk=Uw-3#L@T`P*0TI^xo_vu&TBEM*L$yQWbf6obk15H zSo&t+irT66`!2a<9rCw%t12Mn|3qEfweLbz-E7^TFT_3Phq+9-_T9qH^YzXXue|Q0 zu!z@kXn#1dDaU)3uVntr%cl0<4;8)QF<-WJ4d2eIT;028bQp51zp`*QM{2n7ZR?Ge zm;8?Obh0e!PGN7`m2~5Ll#rj|d*)`1c?+M!xjcwq_+~WCMK7{7rMLX%QaiN_&A%SK zJU+ZU_Dci5{$@)_$Zfs3dUu@n5$Dyj9c*+IZCrj$ww*F_dsv4nyNSgjNu_z~K2LYo z?nqp+?&6}e#wI6M?L6N6EsXt_d^%S^yXlQpYZ>^(o;!zSd+3xa{ZZg}QfS<-VJ#-< zJI(L;>*hac5=@up1~*J&Fj=dxS0Qlw$&&2{vwkY=Ixe>CQ}D;dHIgr+Oa1R{`xBVp zl3FRbrLW}9BO@Mv>4>z)m;d+ASJU$CE|yNxQTp`vvbD&Pi1%{)AIDxT(c7r}=Ux6X zo*>5L7psKl@LHA5(0ALqt@KcV%&i|A}37xViwIPTAF;DBPjmCw(Q{M zwKCq*O*bBuI6Za0`0Bq`*Bd`CKPY;-_D^C>#>)#Lxj_aSckDgbzVKR2RaBSA!%1Ju zyMJEavzKk@y`MemY=X1g}QIxTOrU#boc zM}rS{RII93w14u1d-ufdCC|h?c{800ggt_O-!4DUAhUg0vi(JY_qzYi>4a2Hx6<}{ zea&*+?GrKQ%Tr$WT+1u3LY(Mk$#m65%?ti*}#G&?Ml-)UzhU5#f z>D$?U25h_Wg2(gL$^D;iZ{a<{TPLFb`0Hb#$#3<)qd93@nyk_FV9WxK3cT!;p+0>`)d^b87(+sGEGkE{pD?L>f2XN{rXgU z(et)ZExoquVPB=Pfch z%|Cm)>F&UD&+9ziTE_ZadOA0IM)OpUJ=!yEj9UI4eo-HH;Jwy9Gbh>b=Gv{sw(p;A z+5FTk&01JiKjx!%qs%Yks?SN)X2A;2s<$aNPxyF*FIC{*amm{oRHJoc4yB5^eVaBR zvZ0K3CAVm4XnGvKvZ=2bGtYtcl$Yn;cve?r*WG)*XBKzY(IW-78Z;so2KW@0Oz%2b zZ@l}oaNmNchP1a&IWGI_SseN^cXF%N(qqfxk1dK2I52t1i?7DgkDOj7m6xSOAJG%H zo0pkqFFonc)_@kJtsXB=FXX6L-J`s1`e{AuC6h&u|3Be!a@L}?)gCb`r*Agu%zsh0 zKu`1X2bPRYt6u*~6KUk^yz}XB44;E!>*JyyEK&-3d9Upo)f7%`c&dIP_V1PWxkfrp z-MKH8#zv@kI2T7p968dp!Q=np-<;il{C=Him5%Lt$D-7I%k)dH%!`bj@-_BB!Y>?n zWqmJL-1dGK-&J~Mv7~O~gnu6o-?Be*NM_lWs>2~4nWfXr+tt?^>9twvY^<)O1tPk+B7Gk1FZ{oh~geQf`5h_FnnSSq}? z_@zE8OW52OTx*pIXWs0bm)EnTuj9gHS;dv}S9AO29DCw=_IT|NS@VWdw=%omOkcI| zuhfHyc|84=`p*0KG`weRe7SI9-dh*B8wWG>_I$o^Fzv+iN2_ZtZ_DkNo&Q(tf@FU} z*@caqk?kB4L$B8@IrgWYchw%|OC}x1;%oQb?`~bGx9LxMlf?86vEs~x<(D4pF?zi7 zgGA%j{_;ij*OETW{9&UPMN_k*mmCvzytXgQ#5wO^$tvwfA5ZVLW6!&&&8V$0CF%X9aHsxvuX*D*&%NLMWa@`6 zA62|=dOq;rxSi-yr8=ko!zZrwEcQ=>o=;s6|0tks`7gnrA>Ww8RJY`icH_IH zUoIX!`Bzr{h>hpRzw&kZ9C^B;ANt?(XimOZAf)(5c!_PPxvl@_K$|<&Rvr2|A4;~I z3azp_rKObQYNl~~9^c$+ul$$o%f4mfw|IWJp}7x2-UTfScB#v?4`MW1D9qGn;w-%9-KSsn-Rpuj-Mn)AsDSi_ zv%6~d1?D}nw21$lasNte(QCcEPqQL-e`J%i`S9bbrD(W~7L#n{-GxS><=>kpy}%Z+V$1+-$ShHff&Eo z%f~9Km~0|c>_T>|b^rb6-hyJzDQR=pU;kB5o;EM$Z1JxHzrRge(s_*C`;yahzppOG zSIl|muBEqpVf4);zg=@wn$ErUi7@b-V<0dvSZ> zp~*J4r%ySw*v{hig-f@*w#>WXoham$*>C;t7Iz3jAO`)7s= z8@E{h+qT_jO}py8!@G|DedFMGaba(8v-IRCXBV_hlqz%BEplqJ#YE{C-kP&EE~*Rt zZCr#BGkIsPS4i=E%T)NBi(&bqdY;0LlzEGSB1A9r`OleqwSY;^(wh6{ic^Po_eL57 zYqHteocr-tXV#CoHuLy5uhpN?!fMkezwX4hnAa7KAu*8-*0Bw~U&}=nL>xR-%*SSR zWMVPjiHd;VdM_>a&8+14lD%`owxg9No0m-Fn9=vEd5NTyN?CYZM5p5%=dGr04Id8| z{{Hl2OQ7+;8r6gEI?qUU&k15vm);frcE9N{lg<+3O(l-YcbHE5`~I)T*|i%r-c~zo zS#J7H(&e^!`furyZPAa?OYX8}-nzE&_uhFXfmI6@ILE8`N>BbKE@7pv6}R)z?9*Z4 z3&YYwc12yQzIjYuymYJTPrjnP4@#|$U$oQP?en+5W!|iF0uMvJJ%8i9^5prLHtq9^ z{6)_9xO6gXQorZ+MqHJ}Wy%Nrm4!r{yZSTr?!R##EOt8Ve7I>&mhn01|0SBXPdpF5_0n4H?B%oi z$lFtqO2sic#|{Y{=?J^^tFdC^sS{6J=6Rfxb^Dfn{Q}RD!wT-ord~Vk7G^Odot|kQ zW?%O`(;#8j8p(gb0g{^MkKWRWo#O1hS#a*P?x}x&2)~{FZCBvQb@{SEQ)04T{`s}P zZc0b?o~rd{Qo4F9mX&rSYHs#Y4O!UxkNuCq1c7Lq*PcmN7q&im%WHV*EU%{7s}s-K zSdw(gzdPUC6?Ri^w|4TzzkZKS@fo+eJ>OJ1Q~K%2IT3dze7&RbYw3alp&Poj8tTdm zB~Gg)g)VvjRryCy-KmQaJdD0C?Ru5}ggg^8D~#6r8Dg(A|JD5y{-XJB+`c`xwQQMa zk?i~Ct^GdlBR4!;wKrT#IX9U_b@KU|G@fk&yDqJ5V6LjU-?+%|)vffIdQ&Auzw=Mo z{Qu$JAMJl0_dNOY+h%2B!^E4x@9Vd3lCyj*W8U|C`urfBFLS4OX&M^`ofA4^_vnw* zn*H)SSG>Dvx^jw5L>p6%_50sWU7wfoyskGtwfyOu;^`0W$7~CEc6MI+0*Tu5w(?7@ zcC08|Zt|qs+Bp8kmJ2Z(j~7p$wafJQ&!nIoTfY4_wPv|BW7j#SsNa0&#OnWQ=ro<* zxsre5$-WfTZxvr|E#0x?h?bJzdvEg(S@ughrGH#-GP>yYxY%qp({I%@LEWHzzZYYMvB{I~gtf-6heqWXidiEH2YoRza433orcQPJVFu&YQ%gr8d?^ z$1RSV3r$ay^GRx05@Nq0{`xXbk7plQw!H9LE1>nY>)_T5ZVPYeM@I5XB&Tnk?qm!j@>IeJ~v*O%)+&q_xYYEdDC0*UzJ6j`rd@C zb@JS*fBxcinFDq^dl&TP&Z++S@9gfAe|G)pJ;%Agc>04T_OKmX=?4oW|IFN5^lJIE z^)@HBTXbh;JUQ^LEAx(%XlJkR67N|p_72+vTw+!W<0`)i z9N}Dr>g)bwZq#>AeswCxe8Y-{o7?BP&$xH`uF$Wb8%aXnZXSrc_E1T0uB3ta^YpZb zSH3=r%4rqJ?wt06DQj=}?XD*Oz}L>+Rg6ExZhbqn@@Z4nPPPrwD+A^-&ocka!@KLP z+~qgTi&@29f6l$U%=tC5nw!>j_0r$ERlm=q_P+{!|AwV`&9U_Nyq9#BoZlyH`C#*R zk8sc9wcj4!vYKD}_mb88y)ie9f4#Bhy~Z5kRwou4m-1frhhE6)fjY%|sxRJrESGQbHjQFmV)yak#Yz)h%MTAPn(n*$wEe#SoCCYB z6x?N4S*I5qC#U&{CGKlP+hLA*r#erZIOTNc!4L4#*nNWjQ}fR#n-(@Tta@CO|3B}` zBJq0_FWu5tg`eDht&vrkQT<};&(=SUU+&ePXuZ%luQE=&{`RM>#T#8?#qN0P9S_?z zQA*stuEVlZuX#5!`-$kl^7wO%mx^3dpP!opqln!Ga>SZrkezVbu3?|lBCjpu)6^2AMfUbfbS ze^GDpkCGb4JcBdu11?YNS^CJ+{u3YTp-<+n>rS@2>f~K_Y1=sckDd9#m<*4|JwlSQ zT7ACvr{7zuzxVZvbuU-%b~Bl%zgeIEeEFTwcURe7r>g6f#yB+0nm?QA(PI|#oZE3# zw`M56j*JvYo_}?X`@CG)3BTu+u;MGNi^ z@dCH{+sq%W4A^7Xe?ngtb7s%Gmdo}E&ri2LIlXV{`wRExoN-ltxSnhBJMsBT z6Tf|~kQKAadiF=3Bi-#+-?A-6OA9sr>*<{E%@0rKMBh(P-7Clx9?9)O2Bcs|9OiRGdynFRyMisld;SiyKe>EIzHAp#~h^M7D}yI z$#Z}DtBmD>OfOhxs;XRyl)tj@|9&o3$H^0?DXFjeVc{S1|I6eLTb}!W60r6D)wtrE z(z#=;yh~(NFHgTd#pTA+k80hw%+h^sFa4x+ev0@Mcdavb9M-fycX6M5?rUvm=zoPP z_xle$iQeY#!}7&F)8enx9ErD60{=Bi6-f9Twm;*0X~9lWJ`t14;u~b&q+70bn|h%1 zGI!BZsi~`9X-x>*RrUSpzQPRsD~^9pT>3HBd-Bv>)eBhKmx?+Wr>kDvZyJ;KwBs)G zi{0`o9~`I+oAfPX>YhW5`i&>o1g$Rk=@t`LQ4*tfxYOjeK~Q0~k4wb5n36ivhAB%+ zfBY_AclJ_6p7Ejnj~2JK8||OzyT0(Kig;qxRegyWKeeWCPfPpee~9;>qWCq@dB-cK z3+o^2|0-~-z3+JWPVrCK>(h^k$xS+xcAtBarSbjc;?}cSr7L{J=VY2bIOVbJ;L;O4 z@*72sd#5#r*_-E_+4_{JO7)?j#(Cqq8=Kp z@Rx~vxX5pz@|2V%ev+5k_+vt5F}!8TJL>NF+c=>6NY~bLkz2lctH}mvZf~A^sW9uW z&O85vfQXY`Ck?VJS4IEdsq!+a?Xc|;uT+UA3fgmp_VOxaZMyK&Bu?Si-tBWgcWhf7 zbcZ$Y-nXOEnwB_JmP~Xxc!q{~G*xMx`<6XxQkDnDbIuosmUO4? z>n@wPX-V^hyq_-eXLPEr>MgQm|FgsF%=`sHlpGzXW9%_E%pjI6di3>I2z^@;tl5lAMFjEOtCBekQ+(vwfn}G&eCT zAGX#t(e?j0t-D)0RVSymKYGdRt+vn4d|k|^y%B3qrG1jMyY6gkQ{pu5wC<_%wnAC= zUV2z2hIbre6jUu!Jz!Xp5zbT;tiC&_BPz~p?e5c_pHo48T{WH7J&8{{|KZZ91LwC!Mc?F^Wwq?-zgyB>jmsuosQhs5ty_ZkoRgi*Wx7Tj zmm8Vgv=*N=zSCs*@sJ0jxObS{@-Nr)BL$PWzMq&rC-CS?iM2PcM*d&P_IA^uz-1wG z*~<@2yKqIN?diG+XD=RcW@(6Nn(%5yP$s8AaMyM3;B?dCi@u+?`=$6lm6~b0Q#)J7 zndOua_t7}ztkb*CGmA1Zsbo9kI+m;MHniIiywGjFR+=E!fkQkpt#i^%dqO&N-D`xl zZYa8|zA8H9c}j16#HR0T0kQ1U-qaqxH7(*}ZGq`6L#w_=4N5Ps{kp*DI`?Hz&D&zD zZGJbVPLUB0=imM4*1C$-RpA+JZkyw@w>@pxmKtu9wmfp5_s$RdXTH>%oD*`jZR4HA zn`EMMcol@H6+KqKW!F*VfaQc|$x{6CP*I6Y89t-qAXFj_2j=7GLCilNZ1F z-CeUJjFC4vy3YImi_a|yPcMa4r54Tpa`Mu*t()&;|MwStbGJ0vTJttgz z6F$$qQ!(?0_*|{K0w<()?aSHW!g}Cm;u0k$v5B>BEKa@sU32hsw-m#s-L8?$8$5Sv z95;REF6L^L{O>|xV7yAj)#a|z|2!=ZAN}ZmLu~$~s|7LH$?=l+S|9J4_^Tjh_0GxX zPj`M4(ChkWD8sJ$vA5-M+S>=$4i_d{?|9C6yw`hobAimvWWkqzk}cNBujD^|k!J&6 zo=ERx?Q<7*C~Kd)XtDFrZ{A~ylXja+qzi8{n#ytPtMb=_7PA;L7|pwmc8Zp7+`+8< zE~&8SX!#?VS5AeGvUdmEX^`OPs>wd2gf z>9JN0$sdkP__I&&aq%pc^;%+UqLp4Lb6+c&qIXa6zVmE}cSj8CbX2C=e%g3UIQ01M z)M~yo?~YHiCoW!ocw&EHM_&k)gM`*=vn>a2ecQL~{L&o1kFnyn)}OQ86ueyj zyUlIs*K^)E3ckM6aR0H}uiFZ9N>592C{Ine80orlsgTEav-2C8y~;}7@6(u@-WwXf zgZIACw72~4^?vfGm;bGjxwdWI?(6EWrQR)SJ9~DKdH={b(u3!bWEoS&!U;NN|CT6vLByKU?Tr+V+A?8)5+ zCR%RT`sJ|4mF@Z2*{tug_I#3iDl6$@{ba6FwI~!j(zO*)d^WNSc zst1jZGtc3g7TFPV=~Jw#LQa2dFN5^fjjQK!a;)CC`YTIIVdi#UhZ}q`rwvXYf1sN` zqrpIT$&OhK44rL1KAlceP~l(U_3Ve_bgP9kBPHCln*N@sNiUbwiHV)qIDseWXOZtT zi7N|L7Y2V%@%+5))X(>k&de*H`d#?O*y4NVx97u>CZQ?Hfsed$+%Ercn05Zeni?zS z$saTOp5$jr3%f^L@SDM0WVT`2-QFt)o-V!~^k@aIjkfKsUmw0PeUE+gaC6z^hwGm9 z3;4S1F63OG|EJ}#md-A3o>j-RIe<-@NDs&&B+Uv$x7mJW*>lVVlTehj*v_ zpB{<&r+R47VS$`D4BPll7TXcWd%Ibn+AVSR*v+h5r0AGjFQi&Up~jrhofDR^;c%rWN}Z{dmFM zb^hC%-=obna{3ud5LMn<4$t z7w!C7w;;9CXNwNSmf8egng~8J5v#Kph z2J_XnS0=d}ev!9v9*bJ0|L2eniFx1e=H@*->B6J`W&2F`tc1zTe=iv5qd92wnDxouEced-w|e#s^9r|Bg>oyBziK|Ks{C6tRd(`$ z2WLvpD)tx|R2=ZF`NCcMv$b=zTl}H>wI7^MJzba+$&#?neO2_Ovqpxq^i+LHS3bDw z;rqAxnuVXr@tcVo9Xk7L`-24aIH&Jbc$1;NsdyW6Tm2v2c~_T&9dvdRH+{JOu>Be5 zTb3sqo`t?RP$m6yYtE!^xlXrhl=RAKx0=5C+t#?tOSn0>T_`^yO{=s%OeI|2p2XmK!p|MD6iLz;z!A!5pHn;8H zj+WGvOy=;alZrBZp&Z{Pl#?>^wEpi;%gYCSxc#M)FYqxYTG!*FO=S!F$P5hVpr)O&ZYd5W=#y3xmV!l{c?Ebf$XR7Ye@9Ro}&OO{~mh#v2 z=z~)W7X49ul>XO$x{Pzm#7Wy;iL&pSVfk_6U-h&J)AW+>8{{AQG^goOfRyx^y+Q>) zsxPeQ{B2&y|Gu;HQ+%Ig!1vVnb1Cc2?EBMR`1yaKp@zqvslQ{dHpuE-FX;Gkda3Sa zm!oex9`4ld`SA1c{DoI9Jr|z*FSF+5B=a-oo?6F>e`YNI6zH<8EN$(xP|3wr@h6vv zuP>^L-c_4AGjqp{-cqgG(QNPHjSieHO+Pr7C)swV;+G9^>IX8zs&9t8Lo9h=jbPoUP;M=iJ5F6zW0t*O_S-} zyYPr&$dtXT^>y3N%&o}o!QHHTXI#T`}sS0;S;kc2E#pcHzym~AJX_akk&lo13*T2pnE!SQDLoqo@;=0}~<(|;R z?M>fycjn(|wcWI6pIpfkL%vG~e;f-eep2c3nXkBI_p>_-EsegZ-AwA!IG4FxaJAlX zi>PCQ!H&=OU2gcmvcgSnMQ6cW)-)X<}UKvT0d96Q_^*{0jSSeV+mo z<@oN!GB;G+R)v|BE7u5073? zI{PB`!&$#w52SZ}zHEPX!>cB(vNHj@(;_O*=~roNQh$G9lhHXtG077KM|&o(x%u>J z?-dEd16hpmUwhvd&N7P#lf88E&&==BGyiJtaEpGwY3bub&lC=w4t4oe5tjSU$@Phj zZ|zoAmu`nxVmbgTC{Q zUhdudR;0YFy1V5;#qqCPm$z}=Uw8f7Yt!brtX&yv)61$Qo4i(jIpddFmHqfx(BtVJ zrnjBgx75sv!R%mBi+`rfO3jeIUS{b|m%w%FvoA85N`JK3v3+KNdbjDr3!Xc+?^?~c zU-NgQYe_}Zbc5D)t6w~*6G+oueN#8mf9~S2duvx7zL@zfCB#DJe1@c~$4pcHW!aN> zLcUKpp&;*;6>v9j#u5YP#hP+S><{D*&d!`GnA@|%&?NG= ziKBgxvf|5KALp#=G`xFf?Ixe1_pF;AsBhZvBXh}-w@jXUeK z;HvO;^Arzrz2>W%zun-y(!u|N+d_Ve%%jT_=YM)0Sl972r}gn1(aA?$m^e08rxsdn zv6z27#OK=&*4vM!zI3jcyvxWtJhHthVE*=XXI%VdI4%rdbo1B$>8`0?YPmXp%|F6n zdnI&xbo=5-{9lDPVGIz0=!;v!A^&2s(KA zq?kuv|3v9uXLkHj5Bzd_YH~FLlfUs)@80`Ajuo%wd?dC_+t+Yk7XA6Zwa!KUzo3Y!0Pbb{M}Qo zdVi=fx4pHA`No@Q5wB}+i$2`<+s|6qc5?fjJ}tL5hXXUJ=PLxiG%9M3+t82@Fz;^v zl?c0(d7tNOd${eM`iF}P(-*H5SR?h}>kh^ha!*YhCP=J2_t&F$W6H&(ezlAw{qXAo4qTPL z^E^M+d+jJ(x4G@Yksr^lUGU$}{$&5AS!Mz^{!g27N4}+T%KymSAAZa|;2giDu%n>B zHtxbPMxD?T8DjfVm3K&Mo{_npRJ?TNVgJ%&6N)?EzWlf{(Z$AekD!0+qu$CT$1W+p z>WJVq+q8J;{#5pkyx%icE7j%1CZ6NqUfi&LI>(p!n=Vdze_qn9yZ6-ehL7sqLYbTA z=rXAFgj{~vR}ghx;f4Dl-WRhST#^MBCmQBQEn969Fg@HWr(aEBwf3AzX5XImKa1kw z3<$IQcW&*+bvJtK4^~`Sch%KeLUC@L#-xM4#bTB{4BouX&{8Z%^pDzIht>ooPNy0M zV}*4)cBcEO8>Cylax-?2WG}aP_*H(}vlaK*%g#l%uI#UmIk&!8VbR~d7oN*Pj*Hf$ z@bBi7%6%|X*Wg{aebDr`5|w_pH{7wj&mH`Mb>`P^Kjv4bs{1XQE}CZa<74$g(~}k_ zme1*X<*acjaR21-G~tUJ*A&*JXgOa+E-x>jm7(FzGAH^qH7)X9Y2 z^AujQ@|gD&4vyKkv-cz}v-t9Bd0C&>iC^lOsd2o@t;be}I`H^s?D-S&#w707QfOwY ztvDg_{uW0U{%f4@G=&79d&zC8ywXI6JU3x}o zCWpw^x+Uu(s~%Zi^gDUq=BHQ7H2co(X+Jakq#wQg_+_nMtN7|A)^C1n)e>lK z@d(M0~v1#v`uE~cC3-&qtz1Xx?r>~4f=I80tT05O)t>EPU z%I3IJ+QQ0Qt?B=+8%<7y*E^?V&rh7Uxb@M^evhNE>OsLfRZmznE&tUb)4ZUyB11w_ zUg}Q-Etg7oxi|3hvh$K+ zk1p#UeSFDbn&av>yOy8qot=E5{QUHfdd*+*w#{t2`2Mp-=I$B%r@KmQZuSdI-u=!! zV(V-Br!$pvPtJd~aA#uphVYHL_w1fe53AmO%VM|VQyq_6Vln009yf?xkybx`$}?ly zxlS8T>91`rl@p{Mvt>!Xe%3$t!2kMlhgX&!{Z@K-iI>>5c9jPEzW39F&-LZ-nSRR5 zJvHCDh$C-mm3qqc;7?Lhy||{kHrETBUsE|}|C6g*gcnWI7H;44^jwX=Y=zFCyuJl* z_5X`rR##g2U!LVE^{)`JMz3yOV2Y%IuwT(BD>ep&Yw=dw(j@zw)zcG25Fte3%i%7 z#W5wct>p~bo|8Chwp`ril8IJA&kTEG7jBz;rq1v&@2id5Qg#+zydV2@VeLNWKbar5 z)X9AKQ+L8aLh}XFt^TcXk+t?mXJ<^UUza@fVfK50X_piim<#Tfp5yo~%RcCFoGHbTCz4dVJBt)%Q9Mom#i+v+;p73P~^a z@5}i+$s?@c%I%cD(|%oB;ONJ5_S~bbeQWy~j;)d0aCzc|;=>-jN4pO(&s&&SxWW8L zZn~hxl6j?qD->=Yo)E*oZTJ0ir!07LLo%9ud|ol#+1TqM)KBFRR5*E ze#=#ZMPJG&T`H}LIn#grLH>++mW3I4+m(X*Y`d?qZ43WB@lf8<#~CSYp>->a^FBH+ zJ>q=0p(3L~UM}e9?@u1S2RzN!9_8U!R&MxV|HA_uGdFGXn4#1wyii#7?-d8xGv}B4 z{EO9{u%T*xO6jR|zJn1FdlpM-uZ@_wDKundiobiA`N7vpL8_`@Ls$ zn6kg>+>=R>MHAbYbAyE()WW8&i8O9@VK^(jWJ0!8RmzGY4F-<*!ydj2y+@os%xL_# zFhkG&%-nMNa~4(EJbb!ZtfrvwecKm)je9>%wVjjs=jzKjE6wgEu>SA=x{B#`S(DEtr9In}xpu8jKfG3>?hu3M zofXpEY~KwsGmZu}+lZc+vNfsshrfN$a?#l~%yY}8KUIizxpZ0i|3ASrVNGE_-2)X< z`%1fKNh;Jfl$X!l{hd+ly%(D-LwEjko~Y^nYi_3mEOB>n2sWC`zUkCjWA8jQ`(+GA zk8L@B+2Cnfe2RDH3-#D5^K@(Oa@uX`e9&Ron6op+XwHtf4e~1mYnD85TxnjGll#Su z^?r`yq(}dfrXPQHljB_1Jm>0^wDX&|vk=PNG0-z=6rOJ+}U$>iO@V zV|b<%a(xYO`uI^bvE}tC>m=#BukMt*w-UOr&YFqim4nMQqfJ7}j#=NPl_{H+yO>M; z^K~{!z7oUz=aVa&XT8QG&Qm4}S56msc~SFQrc>Vf=_LnJ?>$zPtt;6ccggRhp#Sp7 zaEtdZyY$ZWO6dw7yb&ZV(ET=M1@DDjM^#Vnz1!(>$RKD()>LobiHS$}dFMWPxi!w_ z3jc|A&^ec0`_@aZ^fXlJYW(i?Q}N}O*~`oJFTXaUhVRybGa~b%68`^8TyiWpyW#CG z2XBR@8s>i!yi*(MLY;JG=myVG%r*QPH@&fA@yRKjN4L3M_^8Y$e5?MO+=ZZWb!3dI=*H{5t1_bw-&d*7!8LYFQV zznrxBLg257Qn#gV_RkQ$xasYmZb9x7I#NXr+myvl#MgdKxO=VH^!1Ac0+V;hfAv|o zaD(zI?v4JHOcjl?Zdq51@3X8oWR}XF`{>s!_i~vG-PEmTm&jh6%lE3;_(WNp%+J-; z?Y}J6W*ECyybzo6^Zxpa+~on871@IGCQoVeGjY1MikSBUhiD0Erf zIj?t5;Msp?EtmFp>}C0U<4)KsL0`*dzPqm5vDfgFoU2=+_aHf{Tk=8jy7IKoT>roC z|NCEY_IKsfyp-aSqSVA(uGGAg{G=={GX(<$5N%>3 z7$^kkyJhB-q!uaYyX7R7q`IUg=clCF*>ORQteEp=Z*;%z$x=1712d+#$>kpCU&_w^ zDj}fyQQbv{Hr;43o5dSbJ3k*0bW17UtT}V}&7{dnFXP{TU3=nm*Pb_Ldd|d#F8|%2 zu*=G-{K=_~(*6HVPu}%Xz4d?T|39A|i~s-k{?TRg`}K{c=l}mdYaajSwD_#~Rj>Yi ze0qHO{y&_yGv{sD9Vve1vVYx2*PD*^KP!q4E?vIl&DrHYzD(|q|MTUix_sOhU+KB? z>wi9MEepM-_4&`&cJb^#y6pe|)F(%}N>90X{{LE-cf)`EuFf`YJ>7w_DW|_9-d+FxSh@zWmv~bN~K@ z*DbRbzh2PI65Vlr|Iz!`w9`*ZuUc>VO)P1f|5ff^{TB>dp1-%-BVpC`glXU8vMxpI z|9@tGN_t(o#;))Fv>wkW@drIm@Bf=spS|hizn{0?y;-!f{OTUI&$fY z(*L(4UM|0TbEm`WPs{I4YumSj-SN3WgTNl|^YLA^`<~bCxteGpQhWMdwi}~#o*}c~ z4~u`VjhU18c)g6A{@%lIXS(*kYqD=juGg4M%xil0r2LPZaMQM@_i`?rTmH%SmW4dG z#=&a;1^=(}KVHpnBmVD`?*Hut6|$whRZLZv&THQ}YwlkDU1al4&8OV&{wd457VUC3 zef%W?L5{!2A*mvyT|9JgpztWwD^o8DklMEu*{a1wFd;g-mq@%{kPxaSJp(icpPP*RS|7kbB-u*=jPyd(P zfAqzI>NPL^O_TpF%_y2YajCUQl|`+u{U`tZ%cFn1)~_it-{ol){{Drzzx@6ah8IrX z-SBC({=a$iK7E<(lbs+tZJt#4hbhmOfAC(!`w@0q?bUo8?TRc>>qA0i8NU`PeOkZa zalU&!kS`qzj*5cIQn zH0P=M|B3MeH31)g+KYelESY~?TS3fsOPlfXwI+IsuPeH%B6gPZnlc4#O#YnU5e*?jT62iOWLQJJ-McK zy&W7GmnS)4*wVROBZ9^omg&tpS#d4 z%rQoF(>vz1T|1o*aw*2eC}^v-E}!n8)~YD*W0{?%;D&`qYuHtmGxLcu`G45{*zU;J z#`-1ag;R}wbI#M>7M+=B|5B{N|G~8Cjuun9y|Vl_OZNn?IO*2ecx6Q%KWFCmZx>(9 zk>kt!^=?O3RSUP}FNGwj5_SRG1n0PuQ^nj|7D#v~YScdr(tIbh`aJU%x1So}Q9A_x zZg^whq}}*d#>*@Fvh|b(-Mhw`ncVFsjrJFsKl=3YrRt&XsdwY*KHporteNHF$Jqk; zOKw+q-^#xDOqu6K;?mZ;EMe0*5{pmGU*`GholIWgTFa)yiPjUGo+ewJn*GZBm$c@> z$8z=O_Oq<;)?dQRnWFNIKR?I!RM?ix0vplibAQa3B_qo?DOZcl%&>p&ozsVfR78|S zPPA5A?!0tt?~AE79xi)RX!=U-`y$;$9{vkbu0HJlR;OiTvhSFll~K>V`Br*%_tk^T z%w(<>xGg!i`_{^+_}*KWXB|sfRQ@2rPjJ~E4^y>U&4I>;Z=am+v0nY^RC%vcg&7Yb z>wlcI=Rb4quE@+bm$NN$t~-^U8uM!B-Z}Si-V&A_UpRN^%hd~?>zX}7_KEII5f6T0 z|9@Y8&VRqjrkCTGhJhZ-MG=AJF$POkbgp@MMPSj5)2yDQinXUB*~N8>9d*NR?O0GI zX?-WB@A|8PodQn$x*w0Kgx@OJ0ZOuezp^J)oSV7lMa&X!6R`R?RR$sGogJ8^zDU3p^FHV}ZK&Cj+NPLrA zSkw-KmF#=e=XgH69AXv!Qf=GLg6~gW7eC~Rd{>kx{JkhKJHM~QGF$k}to~Mg;j7=Y zbz^Q!e8`cqdHajMTVo-_3zNxRWj`TcQn7fz4GQ>)4Ki7mlp(OPcmQfTmN&-;Fjruk(cPdr#@N-z~a-+lYxJ**Se*Q0l*J z>UrhDtg{Uf$7L+6Ee?rno~GGq!E|@kya$)-e|$(jv-&-yiubS6!#%trH1-~-752%&x$jlA@dQ`}Ds$%%c zKRU0vk14HCUTAu*bkAtgm^`>y=2aC}$u{1=6;JeG^17foHE94n!I zA;mevTF1mgk>z5AxBIUL>6%|6xoQ^$t=OD0@y5X$KGQZ#X9*I!b*EEsqn&KWj>GqO zHqXiLP=0+Nv*UvJ$!*3}5t)X3FN-H;>oD$YbIuaA_+;X=dh2v;-9Ivw2`k&aeUzCr zWAEO~pQ^_iXPm3y{8+JAjbnp;cwSnK`l5{)Z_*$C{wsaIsPd)WW8dkItL@u<%z3>3 z@|rH;wjGzh@CaJ$$zPaKwRqE_-`BA^P|D-JNIr{oDmluUVI}d*M2l z4G#^czjpl9we6eiEA7uJ(xJy1nDGS;<1^bXP52R`ET|9w-;tj&=a?NymySV3 zo?!YD{O#h2pwGT;V%|!tWcC>DwphOOe~M9j(^(DUTAoJ&S?_)_bXvZaU$AV=evKWU zm@Pz)T1;KM@V>rhfPvxjw?)&gN)?{eS?w--UG|ldhS|!~cXS?~m3tL+vgfPQ@<^)- zzkZ4FZ}ArE;&9)cdNMbXWB`+uk?!1A?@l<$Stn*)DF{`>Skd!gNKl`ke453Af1_v>)2OBXry z>M-ZJ_D7CY_sy;=@43|adZXGtm$`yhXP2q6e_|+IX7J+tY>6#gKDoPm8Y9EEu_vU3 zq%-CIu$Y;~qgk$a;8ihbZ?DzN{aI$OcUMnO>!FC=p1aj; zFIi@E&i7NUw3(dMwWd6^Ec~`_txZ6(d4*_HagIjh>7;~bXI~2#MWvm$kI9!~OuDBs z^;w^I+54~euDAT!@-jC(-mqzLs`elD=dWf*cFpq%2oiSeGy5gnwrC^AA1~*PYvve= zytM0E^^erxBV*#K3+qjGY@VuU z-LS#vXmpvgbgOv#l0xrWweyX4wFs}6?U8)*w&I)x-HIuTzpJ^%@LMoSdcC;4-sAy` z=Bk4}`=0W2-ZbUhye^&3qwrjirNENeVM=PV(-Y^;EG|2x>LYVI?QJUmJHF~2?|IoK zG^}OKpY!y><^$3TvO3Z~9NRgYf1P0dyUY#3X`2=t^b?&tneAO!OhII0Y+BBJpB441 z9G|t9YZ!e0()s&LCeuAd6=mI?vr7a|1{D-7WjqvA*x|dl9Jlp)brre}(M(jP_`= z(;3@y=jvC@;Z$sLzJK7i-gCM49Hk{ow^pZ$#nxSVYI95TxX-WM5-UpkkFw|V2;R~> z9mA#T7x_#j#Lb5@mbK4SY_GRD|MWRZZy19r74aE+HHb5 zO~x$iJagKOS@ay%Fig#i+q7r@IZ8#$)_Iu7;|HEHSKb@$ba`<9;+vT{;&FOh{GUsd*-@L; zp}1%k)0bwpmd9S+(<+wn%9J^XpSHbv&f0ausm9V1j1h~cPS@70^x(RCQ!Bwdc=K_y z#6_RKbbl+jEp+;N`VSww)@F?$1_ghDEra%e&Xgny{{fG5A97=cypfnf!N%`M}_ZhFAV=s82N*7aT~LF zg%ZcvEw0rQxNO$k5%tU4xYlx}%`}~T4d3qX6ZWf@I2dgu_`xT;y)OPfkNT&x?Tpv< zu~u_jQw-&+%Sq3#jG5?rzq$X;pVXXRar3m?Wc~}?JNIy9qN|PRo{Q?L@$L1w8Q=4a zw*Oy!?&;s{)#`WWzPbG4&+kJj0osAKy4(MyvUj}Z6uu^%oVoq}`Q!Fag^T*P?meoP z-9Oz(WzxfqGMt4;-~TMN(X4FJX8-5kv^PZB$uYpH>y>K%FLk3Qdw2t$E6jMI|GI7J zwq^RWzK6&-{XS?~JF`q|>%xE2)-2j2DnIqz`d=4h8uN}V=a%oim%BsF^S46p$u*89 zUyWC=sLR{``EzAu!es6TD?Yqp_4%q>$#|c~;C^}RgcAiSwe$E)bxpV=&pdc~q$=m7 zP3jAWzZ))HOOIDA@H?z~a_OrOt10h3#GTmk_EC|vqKndY!*qo!U9ovW2ktgADCh`i zmmXQ-d|gv^?VR?h+ro~{`>x`}J3q;MZ;^>1%a^Uo&l`M+mhpAj|IT8~ov(duM;9x; zlvXTxdU1>J-){G_sU^EtY6oTuXSGLVynIQYw9#1gDZWB{`H@A z_w}Ej%wAS|t0hI(Q8J7Bx!uHFhT++6OSI${1^(E|?`1c8!bHIcP959h9dCcvEnNFl z;*ZJ}#+8SA(_&$lUyS4oRqe4YE_tkmtdzm~B&9a-)$N6yk#-g|YY#kwt9 ze7V2;Q|IyZP^_PK`Qq+_^2W;_|Bbv{EM}s-%6|f@ZfM5)=Z;w=%j`SYryg3q{ek1< zEc1y=75hKbG4-Emzf*Gl0^`fY?<6Ot7?+>tsJm2rI(v`tpKMe`!(ov)K=APagZHa(vUdP4-#eK3FBsQF)ZtS2*dUs`W98jmNInp4sAiCS>Q* zXldtT?^{;O2IR4?`xbWUt&{7Q^rznzG}?ye$*(pNVpr~+SZvZ&+xO&&&6+J4J@2O3 zy!YI*aij0j3la;jxpFSt$XG1y=aBJ6SK+ObQ^msv8B%u-?9r9=vKnpDep_ONLRO&C)Us z-jeGP&N~eA&-|EFseFK=v-rJVgJ9muHwH}?4Zd#7-%zo5bM3Fc;;F@7zswi--~HnB zn~9H){B)jnC1+CVU8mc7xcZ-Hur7KVqvvx&QTy?kP4Wx0Wbc<`y=a(bW1X7*AkTZf zhIL>}d1~;(-M-fkylFGqbx>uldD=V?CaZPgZi)-uTPyt4SiFUO*~@cZ8>cK=*KnTk z`gz9dy|;>}7NR zzs&8eo6h;4WHh<@!Jb{po?U9Yj#5hG+pQfQuFKjlrb=#Jv+HFQi_88?7P0;2J1W=u zOS{ZED8R6(vxLpgIYc6e_rWq-mkF(0T$?5=vS(#WQ}a2nqvGGDV=@LIK9}u}&HB1} zcFLNsQ5F8m3-qooyPs|27~=I|Pfx?N4GXWV{dV+fMN{9|)BD_#Dnr)PT=S{WoMCh_ z=rB*;VJBzl%?t8Y<#1j<9}rzT(Y@g0`(5X3md~yG9HH@3F6xh&=j5s9_ReS7yS4P) z+<>?)E7O2`O|rLLD()?r_hC-=GUYvX#=Gj1{3;^Elq_8yy>I%^qqo=imS%t10i6S` zr!Mb(W3j+j_HFjI7nj~vStx9uw?tv1y-{n#Cbja*hn<>Fx^cXy^sZgJ{^v!XnR|_r z-8Sv{o1AuW#iL6lZ*JP?O})FU`h)G6nX>6~V*0!nH9WeyeC~d25o>#ncMOlt-VM4f zS$8R>Ml}D`)L-)hU$`)o`afSMK4sDVB8jkDZ9AWAI(%ZL|Biqj;C zW!VT_x)3J1zm0GGXY*Co`Flc2A8>K0zwcS{()YG;d71%h-OqFHR`S)&JXV&;r+!J0 ze~a7Jd8-{WcptjI}Ty4gS-NZlp7;58wCEce_}aw zy#LfSvx4o4@_|#5y`*ir8;bT{3Y)XC(!bnz_2rWKimH3fYG25Z(Hw179^y9F}0a>w{A`Nhp3wWegCU21l(I| z|JFn7+^+w>Jj_m5e~xE=Yq6=7?L*H^D+R%GeA>EvInL4___nV(o5=pnjjg*NAz#gY zPHDnT&0gBJ_jXQa^|?2t%Mag~x!0|2aqiA;p8J<( z&J~VY-xHFd(7o`vNwDJE0%gM;9<96Q-0U~-v`#O3^li7?+PA(hEhb!ewl+FrLm`jN zzXui){%K)3GUe?O`rDoT!ZY%2C|*{Xm}BlUiDT{Ywa+e?70y>XQ{wBw!3Ux)3mIZsa$K*{hY7GAO)`G9dJLyK9o#P$x4gEa@ z(>$L_-0Ly1JrkU8<3*(0%S-FG^c0tw7p&&mXZ%@)v-NvV`Si~+7nkHrb?>U|`_g^o zXRO~j@x4hJe??wR<>KM|y4ruuwo`ZZOy)@5I!&9G!?|jqTg*$X7ENXcbM|A>$vZD! zz1#Tlvt!S`1?Or69ybRr&wcRs%d_g8N)Mk`xjYV0^Zfm`U6r-v-5hSqX~`zWuQr{E zx87S`=TcU5y!=JB#gg4$QuD4kYTk2>KkdGH?*{*A=eF!Sc+~i9mz#3R??)N|OqVAx z7W}E08tWf_>&O9XjT?pQbFS}Cc=dKus+pDK#l>}>w$~qJPZOE=^Yi_wvOd=qYG^O* zK2x7qxZ2~#&FAw!KYB{9VY6BjLPSGtj}0nwkGeYpUQ$w z=3;j<9xxUMYpDOeW7^!!=CMLs+&9wl@uG#@RvG#FFXoDCRrQy}FVMT{UO9tJaaO@I z176Rd`Lp7w`E(=0~j%7-$-TAFrGeY`P&Cri7U?To@}r-S+~Q_Yq3^PYQZxWw1jAgOoP zgbJG)FSCI6wsEt)-x}|I)W#6K|I&j6u1b9?_oaBg-|qKZ_{!IU<))-wt>kFx>hqZ|R|D8r(5K()uTmL=H z@0K-v*)%s}mt#?|Wc1}fSA0(M=f|Wz^Lj8tw{*U$?*Z$Ugo6tuXSr-}*u?59drMHK zf+sWo$Ocn!>+c(HN>Bb+eIwkZY+1JBG4>g!jn|p!AH4r8D=F^W>jKjQ*P2Q#UC!(g zjF@it;llibR+rcW)bY$R?X-X1lu^H}vpD zx4LUzROivW!&v6N?&NpbsFKV>NpY?yP-(>|6Ao>0c@%R$SZS@!fJ-jquh-Po&#_T3W1HVf_5w zl-9O8Vn3pd{Iu?V`Z;rlp}N{Wxjjpg7VZuEAY^(@qZYgM_I!e1Z#>8<_kzMFgg65h|s3wyJl3-1ZO)gU!((~{o2r!2V+hQ_}S=NaEJ zc%HeqTlbg4d!+`OCsyeKi$Cb`YU{TC{U=u8&umzIkY|!{->%l8U&)&ONo{x1!!A4s zx*;umv+&=1%j0? zxi>ZQZ|a-KEC@Wfpwsy`<0U@x9XZqZKFl-RH~;H-{|^U+mweV`Rus6WcR0eR&7W60 zS9nSAAxXstwRIBQzx+HHCVoo$B*|d;RQC!)-nPmY>~8Jq84C}JtIy+;v~c^sXX%A< z+oaj&UwHi4y;nC z+m&O#TBIfSKklykS}N%1_Ec|0R>=i5fgU~Ol$RV%zfMcPJ}o&V-BsY~=O2RWmA^;* z`{8=XLHtY3tFU*k#7uMUvZ}N!3^~HL{Z9FzKRX$wDDRv0PGdUvhL#&{_Vrsg{pQ7B{@)xN!f4&*$s3^LG5cEqKhPeEHcq zT^kPwS92|FH*;4uRx{GlJbE%~OIP2oBPTEMwY2ZEi@fH+^Kij-<|jOFr!(D(FH3)& zW9Hr7-7a?VvS7J<`|~MIr+a43eXLUWafj-@*Y4;4$BX6HduZy$GJG_NT&(W@o&VAM z_eTQxk9YS(M68oLdzv}==(#E9a_(~VO@DLp(1nZQGpmz$wf}^Cl)9)dEZ)!K&#V1t z<-^`TAzzQ>J$={Oc9gsHg;d^a?x%Z-XHN=R_*nm#M*6({f9@XetdcwOJ?4sMnMxV& z*^4hUCaUE`9w};_(VOBdum#fBUIi%H1!!x&Kn>No{#0gA;E2veS0_ z`fz#u(bM&+|NiyOyB4rC=4;1;#oeCX)7CZIIN`m+)wbnv3WMj7sY^C}n9VP@$)nl& zyYAwBYt}Tao6KNX-eP?5jG000u}dBcbxdBwmvpbpx$ykKpBk2r^SS0ui|SeL@?+&M z{`)=l5?hz5id*khZnOEYYyXcAhh9Ful`Fc`y6*j}1MSc5O$c@SAE0Z+J^z~9H5Iup z-F|a^-7$@Lm9t#7(lJy{u)D%P{^=9{@Se3LDgVO0e!niCRT%KAw{)smtw?O)`=^X2 znLKBfu$^R@lt0(SXy&2)LSKYg0={f`H<9nV!&Ra0Vu6gmvSVJh*ci_hw+i+sj*NQ| zzFB%!#=bAlZ>Xi`uluMHxVFpvZF|b32U9m6n93YE&w97C!k_Fc+H1yMxqE?O7H(-Pm^(o3_#UqBHy6 z=uKQQ?`kxMA*K8idWDt*ME&wJ(K)N=@9~$*nxQr# z;DmvKMxnqwm#aMs7+?NPY`meriA8PAu4Uh**8F-pp^tY?a?w2z3*+U%T7|yJTyiFx zg|{vWUsUfBcCPkIc){8=3+j!Mrz~Aiui#@G)E?#VKk!PcN{PfnWjBq2BXt&{H}bD` z{he{`ZB3j|DNpk1HJ|s+PLTd>En4PW7<=rWd3L_V_T}2g?yYv(du;nf?)5L?wJe3> zFY=sdj(%8V%wYUyiC0<^)6=;JE-&zE^_eVHctPOCVz-XfS0`shU%Jn29M|{vkJ}$z z_dTaqw99;ti}IT47gWoUVv~8uDlcN$rdP*YFQ(r));i6_+Nbw8pVGy=T)n+BT=!4x zG2gN$Y1ib!*+!EN`!bpTKVd#)&bhzq)y};>@zPzHRkzAZSLB(%{QqB>iyDjH{mQd8 zYizk)ta@wl=6O8gw`AW69-O!IY-gg2;ic{0uYR8$o>x4*R>xLNNKsiLdcV@$XC>Bb zwU6w(L~TM(@b15IvUB;dsUKHy}c=`W_gN&2);=oXh)iFCU%zK(l>+b=Cfss=r@1*~cife#xr0H;7x9ROKF@I4|bYN^aRFJSlQv zQbrXCZ$8fx>-+nZXWq(XL8%|sRCi5S-KEG;L=9PjmR9QvTwwOwKo|6k+G^(iqs zHJ*Igz;2$}BH2Eb?YBaz-n%vH-t88RSmLX&OT)7QHKu|3k$ON<3$$QIZ3Q3k}3}_jL7u#Qg{|#rf~79 zYMzJY_q!pdGMDUI^}$6)SYCJ8(=Xb&Dl04e`z!9mO%kcqt(&53=6|cv~`!PTyWXyOl|4Q%^PZ1PnB@~yk7E%^W^CTKJgh_ zqca!!_}@3&d9+*O^32XhckZ04PddU}e)!cjV`u-@8F8LG!V?8U+vYrY_i#y(jmerV z0#-6vdzkNDmh&>7C6X+wrC}q~|0gZx;%kv=MHfDmG1YVohZH z-`^dfx<6(l-AS?)e<@+M$x?>LYLfW!;)Jz}qcay)^>`%gIvTOG=t8vJdSClV-INys--2(h@j5l*`TW0bJ9=9l^r$6R-4JFHPMzbw<;cVy zxv;+Hy>3Q12Yh$gxy^krg`wk0^dY|`F)wnK9A0_;#FPEYC1?Ks_ufYDXxdtx{o*<% zjMAbuYifAv55F_Xb=|S_(~X7Cy57BY{rAk@u0a0xgZck?+9h({{9XCA{Lsym%MVW8 z=ilZnlyixB!luP9yDo74QLoK!zg66p^*Ct5LZN9vvD&e}CCIVvcubLm&j)hC~v+I`LPX_aC5b?xt)KW>{Ir%_uU8?@Tz%6pxO zQx5cV7+d!CyE19*XrC$;%+h7}?aQ61-*)IKsjitYPbS%C#_E8RQJGvKmUE{Trt$dc zxvn$O6n0_#EA80v;?ScGf$0o9Zz^O{dP8`vN?TapuWwPkBzmy1)6a1xpU_FUuydes z%SGn{^VoD(B{!GV^vk{IKELR3k5P`?ZcR}^*Yq8J5_wlPNWUnu3q3ASW!oZAlURCZ z+Gc^~$=bO`7*ZTLoih|#jb_I>wcLF3PsC-$*}Uu-OJ?m@wA-$JzfG!p@hgE&+sj8w z4U%sCPF&h3!(_C6gL))S+8aks6J^zRKkNTIkd0(mlJ=i-w&A94MMgTd0`vISwf_%` zVb``jbVGYd+eyI^UvAArmolTvscpZ4*LO{`w91{_EEBEVkyvvj&te4L9h0I>p!4t@} zv1krU276F}Y?;Ebx2qyJoqv3s&!R8mqnc@7tA9rH(#2hlet+j^9!e+?tt?7u7o2E# zH>vL6h67d`=KOD2d2m)h-0mAIcXgUv$!MP{W~4Odf$c@Mr0pSsQP;fYP4mc!TenVe z>FqUU%X#)4t177BnZ_kq`G3(Kk*o2sJE!o@s-E}o&*Dp`cRuBa?L4)+KDBX?Q;_z~ z8bdCxXI#wk2fj`F<`!!D{Lo1rbIZu3YTiQ18vkon?#o)|cZ&& z`N$-b>03~j^1L*O&ms47*_%_(Zn)%BDA>9FM&t8uC+&iHx_xp5_2LvcMPnG4G@L5} zGS-M{+-m${8q2&@?Qfl`#i8|qnPs1sWp%2$Bt20IU!L$xq`OnZy5mmX($;CpQWq}s zwM_Y~_9e+daOE;vtG_p=ob6@<=L=n*x-Wki&a}_(KwstD0^QX8mo6k7P&zbmz_T_sTWq|*g5C=-UT1b{r4_dF{fj$_>?1mk}PfaEO1(3 zKJ{|)G|3#jDK8hSsEwI;&v&*BpUV#O)4{H?Pvf0r<>pC+9SJ@x{d1+x{Tpjdewg>V z{aND1t+(4zYwM}0uh;MR&2*yj@b#6K`R`n})OIyW$cU+W9~oDo^E&pK_a46$`|@|m zU$AX|;W2%QVRO6*WQ3<*YDi_yl8FFo%=Nbp^;}o#3WvxkoMHc54*zRFmcz6pbN#yPoM9-ot?ID z!@vDW3kCF8wtUz;afzC`pF{M~c4{=nu*q7yuiCQX+x+7!@rVf~hhi#kG88<=Zjr(B8L!~Fk}@g(OZ zD+Mh!3k4aynP61P6vTV^^py#D+gxLMPQR4so@d}Rz2lT04ov$Z?a&veu8QFM38?+^sc_N$l+EQ+&!Bdf(VQJju1|NZ&W(3rnN*ta~n)E{}BC zC7$|9VzX&ms^v>bj~kCXeO{Q^t~t|mre*ODi6C!fyFTvOCTwcov~^>@=pO8{HLYEj z`ylOe#N{pQEkaiJ4X2shu70&QaH4a{?jKx6o?<^vx&3RezIS6tUT~*1z-^boMc2pYf3;a~n>Ljn7tDV!)vbQf*Qg`gE}u|YekJgE^!jUS zW!t2q?ReW4iof|SyZqqYqA*Ry#>uQ+Gv>`Mwesam^#9M7@@L((e6uR)3CYLaa9>qf zYOHi9=CGId`;vYceS?e9=l(efW+-|!v53X~YPM(A+4V&^PNi|`p(l0AoJwM};ygt; z>|FoM*<$G9ba;!!(}`OytUt4aYfo`OfJMFm58w2J-SJbVPU~QJ8M9}(qtnfKCGDLd zmXczXhduRFZXS}{apvDe(FIW=PAP}__aB(A@ipqhIe+bx$x}}3W>T?Pyp4w;c5Yxc z@An;bFLxW>vrU=zKiYTY-kg|oOXW8dN`GQbdz8DX$zrBlnNm@S&$5Y08rC0T7Plt| zJ?oMyV*f1D*<6$0XT`OsOepu@a?Qdm#S^YCY&w*+%;U=a=lf+#Q~&fT#2bBM(aLcD zbMVI86$c8pZ(gxs)qR}@O*v*|O@ZqkAJQ`LKA}*pu%FF6(y?uB)XlAi3i20L^qI6> zcquULj7oOfR59Q7D{-f*I6uu^*Td-8eo81p&&W5u!L<;yHnHsfpSkOfaV)ddY%^O> z8NJf5C}8QYsnevCFHNcR_uh3gO5{au$g17WqFP-tRv!CK73`5)mpgUUD=$9VuCOIu zUoQ*Zsh`mleLvjoy4~z+NB?M7>%A{Il2sN{v`}=TF}Hlh$~yOjqP3;_FNI}1J;k>@ zC;V^#>n&#&*|l=hVU9P9YzN;mFPdhccuM+wL(4nHjcp#^%qE2I zymB$&K_uJa6^oxl-aW-RFO})kX6cGB-|_{=JWidei)NpEQ|{n}0PWJIghL zkBzp;b%VEZMG=WlyZc`h3eAsGiY*R`ySBpT_l)zKHt#Uq;`2*DIe+@(ZJVm(v#!=S zT)gwbw7lV_jLVh-r_}C5`R%tZ7uuZm^z-B!Qg$g9lK&d~_pX#t{bqmWQ1InL(US9w zLLCdtjRn^(KRo&BQc?BWes`Ykj?WZW%=P*426ZQP?b@RF@UQ&Z&Rf!)MZ^lGv};UA zO#S{)p515DU5VuaiI@8d*Bn>4?xg-lv^ue!``Rlu{$=Zxt;_%NR=;ztk}l)jp0P_J z@Y3eT!Icd6ZF)lE6MsgW`Rby$U{mD#z0SA9<^75dy)C=rC03|2^F#gL{dPRIGXKk` zY0tDcmgHS4GOgS5^82%owVNicfB12)%a7Q{A9K}q$p-d!_KVjqH&7`*TV>KRagv_c zJ>&FZHK{_T+eKf$XPG&EtIRh$=*Rwf?ws~A_Roxs8_cfpooQL^^WJx>_4~|y4YGN4 z2bs+8JTHkezszSn_oA0vU5v`3qMyqS=CEwM^yv6m^DR=3PVD6sx0?IX`JzQU!|T&? zz6u{$WGJB3ud>0Y`A7NVoqZG5^(aUxoPFWitz+D4Xa6*U*=pt&?&DW4_EbgYti0e; zwmn?^3{UG`W5IsaWnI@+oaSL=zO?+Yr2GO&f9Gk&yg72qs_s;5RQ~mW;T&V_j;<{y zZFG(#bUc^8&}+PKgKYcLefLktKf7ve+SV7kebr0pXP4__F1|eQTsJ)`Zt0BMlL8F| zT~{-+EnBSqwLi|ee(Iba=FX7y(Bp6gD;B<6n18 zo%Tt*;Lx9xqJ1x~u9@{ZYjydH<%hcep4|CX|DyGCr3AKb$5naU-d-uW^ZkrtJ^$8) z5=Qa$3R%u+8Qn1*)~r%y5z$&Ezue^$R=)|GYnK?DT6M|$($32~oa$flc7HET=9r!y zDe-Sn_Ei>HonMjBJyNfXW(Ay;Xq!5Xr}4yN)(rMZ55r$^ro2mJYGM#u=fskEyV3OB zw9|ab8`8hD=!uG#C#WnrBD*DlCa4*L#2opEYb(F6UKR5G>Rn6y)m6^Di;mumobfNV{8;2NeVc99 z`4tMw-IC|NNKDvyVBUvI&X)fp(&Rd(PRlVZf4pt6r1J91Q)78{ET79FR$Tp6GGh0} zy`pP+eR+)fEoN4+VeJli)1^gcac_!$T&azF|>g|SaPVR@Q7^Bsj72G*B%44|G6--?!Ew?*c30kde z;&XZ~Q!@9$#0y(F=Faq=p72%U#~R^FGcs!vir6hvAG@C_bgaRujA#H+p3pdzm!pcG%LPkR^O(=eJO8g$w%(*jD~Kd;g#4{<9kIzka?ix-(%D-}(PDuUEPl z^Vh0g?TYyN+5d<4ra!T|V}>?L`Q8zwu;dji+Ztm2BS}E33a)H%YIu z&G4Sgtw8snKap0}lNwc~?rv=}IqdOfa(N4foSWL-lF9YvDmPRjtJEhxja?f4OiXE3 z^L4Sqmh(!N@#QRhRUCbzVz>R|KSGJgzS`P1Gfzz1_TbMK1wXGz(>5(!xgbJIdKPC_ zq>8Y9R@aGmiw{W!sq&lD>nH3iT_5zfXxEqGQoG|K$*X?Kyfuvs-j)=5+)4G+9r38i zCrjP8E^ND|Tpp!!S9?F_m-|iy;YMfWYm4r$+WfBIY_HAwY5~24|H76pubp9^zv^bw zj~TgFl|*jy=Nz9Sm~6JU;`n8*VkfbM3*(d4NdTM7fSb9Et1}dN3~5+ifWNHef?=SS9KF> zRH?@ulg=u$>(gWXcYi5ZBxZi~$G^Mn;_qKNcSzo6KQ3hAyz!A>!kJC`L@L~pc+Zqg zKdx~2v-P?2v+8ypJCofj=8#Y8^joqY4m8R;7xjQIyRp4N&Ni%c!6 zea18OnuJH!4Bu}IY)voa7*jIy9+&Xn*EjL|zQO0khU;82>;5bcOq6ua$Ueht#hkgN zZA!g?d77N+i|cDmvUvBXXS$SK&-l!K_eaAGVey}HDhu9EJ@xp{{kx?nCR`}W%9&Gb z`F_ThEqf1Jvo+kGQSQ@Mamw08y-|2pbdc^hBmUVp*E&A)@!NS`aeuubn@swd?42<@ zzItirtQpjw{eHRB@?&}h`&`)!EvpSYX>v=Zv?ng@t$wkInJwqsZ|;x{9Sr419Zonb zjklMaeQ}*oL2Jj6mw5|w=S+Jf>)F|v{dkLBvi#AwHf!aD{ZDM~D3wiPOZllO`S0uD z&lL*_ZvH#*jOn`PhVRcVbLkg+{Z^l<@AkoRJ(KG7dRxDHqJRImnVem+%KDwv+04Ha zic>^(CoW7hDEKDP5W4W?`N}2h)tLYGAKnnl$b9TF8zZy%+%x}J1n!g=&6eu=-><)Y z$xL1TtAD??ziN7RSt~Y${rujaX~(&pf>PM~eSc0n<)gQu!(`2tC$_0dg7+Ry^G#n~ zqZ%U1$sJRz8f3HdPN(bXKNDuyztW%j>awX`xHJFhA8)PB?py5kw{h;Wbb-iai-Tr- z2)W}d`&v(1cUD~Hh7LjNwEgujCZ;7h8y%@##=r6O#=F-8HJ(K@T=*4pxtdx2l40n1 zCS|9X&x*c@8)g>go%Hir%%Ax>Ey(bf{F;mRLciWQYv>jGD&2|cgK$vu=_486Y!2#P zU%O>x)y_8zvT5q`MfMynv=(Kq553MMBX`we&6W>*R#tC1<(4I$^_r7<{{4L8j>-b1 zI-Nts^@iQAw=QRh_`>8NVRm}rLct9jTiz-g2!cJj#iRG=yFAXRD z=vyDIxN<{=ZRD>*GM2XKEjgFnzMSHf*GoE9Ja^qO7RFTv>0GsA_j84xn0ag!GFGdL zk9!ro-o|<^ljhQ+JG}KSxc?K%klpjjb8VaULK#O1alPW34?dr-;9eBz`)b#pXs3IO z*&PQ?O^kf>BCTg$sw*4w%;Py%(lVMPTlaQomT8yY^kjW8LB?%QwEMl!X*tU|iy~(8 zTzsQGp;h)8b7G(&(+~_e#2nt z{CjD`Hv7o*%{%M2@bOFvVd%N~m(_piC6#DX+xu4^bgz@ouov#Im414;SJyKAWY??z zvhpv4t%Q;~4RoEZ%Z9&DjNQclv)s+jbX|{s@A|{Rk^9!`+_Am5p<+==_o7`3tS;_P zy)1Yi@|u)yHDK*v|s%m;3%z_uNb^o7}!-a=Xv| zJ&zP;Z%@kgW6w{`I-xeBQ@STL%E@Ds-SN-Yi`O5$&KV&VoBG{r>+Fw}RYj{`*p$DD zYdM!)8!p#>?zFE@Jm=i4?^rL@mB zlamzoepy@+cYeqI`#@qOBP52zAk&&@YBqRJl^6#Q}lQ? ze!c!^;`(=01}27vJC+Dy}tBDf&zikU^#O{;Ia@~7lKTeya z{x*At%buXsfhT^`LSSiZliupnNv){*12D| zyeoAo2`tYGbG-ddtW4tX(&I{xa}&*<-&=jC?{e_{pc}e7l&(b`csIRt(Utwyx_58) zf+s zd45{y_X!s3{14w=8{T%FcE%&X``#6=i%w09Sw+*WqkjFV;mb8^G5b7YfqiF4DR1oJ zw)j)O&%H3!nw)5-vt>(h?~79&*Y2EcKfiH_o2j0(;N*Kg=Buj?*HoGEFS0(na2ET; zEpO}upUqenabdbpfu(?A_Kv9{fk&@8+;xgpY%JU9_J8ZU^`9D2xfqMj2qddH#`;TUGu!& zxpTjD%A?0itX{M%)ZKOT{$JZYOG|DlhM#*9|DTO7eeR^Gbx$|Rf6{YZBo-8T`s%{j z;`zVK*C=Gap7wB=`_1rwO7+2uO3ocQ*O;BWe%77R2WAK2tBW4@UNBy!8@^6C>AC05 z&J}$n#}bzoJ&n5m)Rag2Pl%u^r`;!sqrr!}DzYk+?WaDK-aYm4x;s6(bC=6{G@hG# z?DKc$9}7QipZ4#Hob0md<+{t2>tg3@^SW*q_wu@^T+GAbw|~~0oEh>n_o-gdUgiVO zG-7ruU*}%4)i%+~;MQ4X-n$o~zizlRsg3W*V%yGuSPtHIv!B}CJAEy2lG@LMH@@us z?vvck`EYS8SIzaPo32*bR&`davuozg)MYAiVsH$*p{P2ka?V}9ju`I~-^~Bn-c7xl zF}p?X<|+BzeG+qQ|3#~<$uW^_vQs%1 znUu_%D3-NmrOv6D{zB4i6T1+8hJoo=U=Ovcz>`S_NL2qr{)4y-DFWk^MWpM7D{;7hFRSVmbSpUTM z&il})@%zl%=gdns3&ekknfmbetW~Ea9S?{VG(Rpq!|h>u@~{)PIfqNln+X18+B~nW zD9$r;LU{G|gG3P5WIwb*o*XkXT}J%SWY$wp9mn=6%=_zb;*Q{_m$* z3mwjQ-ixXTia#=W{h82rQ7Zd|mre2cKlNGXl`l{4m&m8Ap5S>Y^Wof=JJW9V^tG&? zrX$V0w?m>+G3w=;s^d!gqB9NO7`NAmd{ok~g!j%h_eU`(C8oIw_-^ z`Hu~wV=J7v9ZSkhQTc z>u%q@{$b_P&GoD{!s45m&xiC+WuE8z*Fbch=W(xvd6TxKtUlbjaItx;e!HhJ%VA@y z4y}_LG0UsJS+hl%tedd)(hU>DAQ%gD0pwH!-*$t zTIKQFFMsS4SaYfn#R$9(o^W=NB z*ps_n-QSNmtxI5^bU7`2X_~E7+7a{A4@>>`|6i1|cHY0s;1%pNi2$6nr# zoqJEdm|?nLVq(SGO#*+;O!&CWETzj|Ra11=DSz)@EA{mbOH7U9Q@Ip&&n5AzZ_Cv+ zXB$fv%NiG^T`E)Juoaxp#VvNu)^Wy<(#rFa`&J$LD%CV$o6^=c13sI+%jUse9-gnl zrC1cLnuNU9Zuk-9*dZpb-Bd8`#JOJi#Fn02+T$WD1UYD&EHeo=hrmM>({BUICXe~LhNtPsYZt{Zawc`8oTeK^ONvC$Wpo1 zid9vK+b>L5();XS$qvrBH)@~We4g`+_58k1ieY)b?`_Vnl9BuK;lf>~74;|Wrpc_m zJTs)};Awl^Z}TK9e{iOIIsd=$FzKhGRZ{xNw8=Y}=3SPbuJ-rpqp2ZskL-TEY@N{F z`lB##+fCOu2XbcK>|TC<=_0?4^VCgQZtVD}Q=1#IAvs2{RzpKNEXt(7_5CG(MWN@W z)*>H{-@N*Hv4-mn-{!Kus+wt@E4?=TO`LqmZnDJB`d!Ao>9aWfyFUy570NoB@~)R} z#-+jw(sxULD|I&;=%py-+%*kgeRJ5$d;9u^yk%RM|9CG;oYdle!_uBLXi=BPV&P92 zI+xd*2&koPx-{=g|0VlB2dDh>ns?RI>M^6|e1*B4RdZgtpS$EzIqzQ9l%I)L4i_dk zI;bf;)L*c-MVqB%!?_)ouIZis%xCTwCKze0n!8WcJ0z<>YRQXvN>xT*jrN?r>v;1; z-<`Q@AGuzC&f{lPcH>g~sT+zmk?YpPp1pB1y6B{7DEmUYfWn)*TXa6LdjzXZJD2;- zzAn-8aBJj^^$dbPG#~XEE}S7)^)|>U!9z?eVvSS=ChP8(WBCS3r&2lOJ?b(viW`A&KJuT|J~!_2k!^l zvlX8Dt}FX_o!^BkMpyGw&60y3c3*rm<9gAd*;^+(yS)En++5W?Zk>EzTB|2iMy8+4 zWiPXM()B*bvYoMrXU<6jhusgt7wMavua~jrv*NK;+~b_)`EubigZ~`mm)6RN*J;eU zp32VBbac*iEdlWczNbre9gLUnw6}V8Iy$wu#D2xTi4T|W*F3gU_2ae|s}`s0w)`wI zbJ{g|+L5!nJuZf+-Ab%DdHr*Y@Ny*!&D!n$ORJS@#T2*6hV|{v$n>A2a$~Yx{niJ0 zR%;#AviduZ?J~W1WAcwz1+zBXe!cE~)W!AF{CZpFa4-J-*B~frQ^%rX?#`-@9L1ebw?yCeLq| znc&#hc5A1$qm7=*xsa{CzWuGMw$1OKDKTlvzP~rQ_J%&{FbpB3i`#a62wESfE%>Q$sKm|Xef-SQ8!Ok#FfSaJVT|6rA@a(lz2rt3!- zKRv0@pOneH)=WC}7V|M1dx=@5yRP0Tlzduu>do@#4ac3f+u3?aOb$GIXh-^i*@rAL zL|zCyyRlAu1GmACFB>i?eduTuxUz*=GXG4i=RJ!9VRtH)k${G@`p|{Cq{ZLv`e1mwBmc;_PJ9wKD}}}%wnN; zsnzuY-CSQ6M*G0|nc|H@V-ER8YIV5u4JDD$juN=dfjixVhPtSh#R3-hU z>7}(M3L2cz+~HmN%0ahR9#59ansz|3P-Cg_0Y}bryV&v;8nGTauCnQT$clvjSt=%s z>KC_c7M*i*^Q&^Eb3EG}c%M&ansC1_!$$6f((|%!Z8_7HPcOOswpFmp+uQltQJI7l z-81WJ1Kz~sG3y|+09uJ4QDTUTUX z))6jGzM;t#;OrK2M(}V!j+te2O!!@|ZjA<=lQ$R{CkZb)AlSWi9aCS#nyt$ln7g-{ z793@tH)-2Gspo&^25d0a za7mGy)$xM#_lr+`*k`%=dK;71dBNZ7`fKMc=e{qY{qNYDC*Mx6bGq!y@IN3KqZgqb z9u?8_)Qk64;+jX9#LOG-RRv1_@OIsN}m)gcX!&YXa!E^TjN5D!jthE1gfg+593bD&*P$;cO+V zTNBbY2d8e`_pbQbvI%QnPg%EKsBX>KjSm;?%dYj|nz;R{y{-2$huU6e@eGRuo|*Ia zZFZLVePs94Y2Kz8`tH^afwdE4i`0TH3vv7kc^i_qxZsLkto7-0#lj0R*apcWpebtju#CbDVv_OOX!}11YU;QOgJG^-W z5BJ>>4Cz0lQp*-%%?G#iThboNXQx&DJU$6wtKpQ8?)qYZRpW=}(Jp(#tR< zD9Sf>Ylv~DH*}Y@q_zw0@aB=Y_DOYxVPVfxmK7h_GUFSoZZsGcGapksyOk$U@$yv5 zQl2@Um)DzYc;!+h`o43^-Mee5(Ctr`XzWQ^iDR|oL(?ZpryXTxd z_u2NSzIf)vJ3@*_Pq>-26@}LK$8FR)_%T}0F^to7v&Dgu$G<$<+x8iV?wZxjm=Y3waOki^Swc>P6Ic~L+eEboo z@~)MX`!uZ*%)C_k{qdAVyZHaF{V{v?#i*s}XET51YmAlz>#G~;@*KFJsJEc#rJ9lR(;^+C*&d6EHprSw23YPmA-K0Jgs~0UzFMEX9N|)Sye{*x88Pj?b>y6HByRICa zYN5U{KJ(?Jnjb3&9)yd{Cy*@jGW51A2-kV9vEWa;t9*S?@CS6^5cha(;(oT7; zBaFw5ZiR|IQfK;IEXlyLYVo5<@9V4MEh4{M+W0#4h_K4{XtL-MwOQ=k`tz(<$tL~uwYv0Brjx_~ZYibWvb++G?mwi0z-~_?b z@7H)Yn_RA2dUltI1|PfITqC`Sj<2+DY-$gG%afBK{y6KwlA6g4T;lT$lzF)#R06&j zC?%^mbcroJVjA$fw%6tS9S5TcCohS{vAS$&YZcor=fbh=OAPCtU?GmcdpevCQg3A+ zcsrS;?`-w{!@E0ng_(*y-M?2p>mJYgi~OeYUzGNAUpHKGHc)&1-L~~l%~bBnK4V%G zv?24ravrI3JleW7T{k+7Z#4ey+ge=qtKs1*6EU zbE|{ZrwR0aHVtr>ZRxI(>2#AT2xzNtjSQ&BSh4&Bv$e(D?G~nK%#F+JW;mJWFn(Ly zT_CIdZ}-oN`?;)zX7|D?X8kK#rEu=}Z!U9h`;QxVY^J=QQMviq<=Wzimv3t_cIAI~ zSj%Vgq*zc@^>b(Y>Zxj{AJ?{j{&leLd+bT}-aAV*mKlk4YilIE5x*tmr2O9Fc}{us z+xNlY)(K~2XQh_U<=vM(D@N+sic7!Cil#m_Ty?!*YPqf3)wv1UpFLOETW#Buqd!aJ}io-_=^scxU#a&OXFRtf5Tr)Q!Wskt8_^6!Hd^U zHxpUj&A6_Ra!rLb!0_bMV-JdNCbGP$p2@6|ow`4sN&E6r!LpMkktSP`b})s6w@ndo z`BL>R{MMzEPGyC=*Os4~`Qf>-+Me_~Z+2Ohmfg#7F8SDzw%efK+k)rCsSk4Ie%A>~ z)}3e^^x(xU5jT;eE(awPe-Do3k%H z^0hSEy-oSWRhdS;?kkcOzMdzKoM7Wyk;%jTCcMvlXZZ_{s4|I{uFH6PkGXebxpdid5qOe+d^cb zgtj%?DYx3WGp$J3)UfGjs!O-oRfDs~K9<$q6g&2DUFQPv+y$(uN1pkzE$rv9WZ6`1=9io$d96t1MiqI{FyFD4q zR;MqRGpt;m^j%UZo-=a8BrBz5V!B4MzqU$ zFzdTKM{KWqZTjeMIZ1VJIwD`Zmz@O*C(*4s-=g%=P3X*M2O*;Nu z=gvOsH$Oa=J@Wr(wyV0NKGrWel<%iacZy2P;j<|r`_@jF=rWo0t+Ph0i z61fz-%z9LmMfSWbY3uX2k}Vt8-j}vF^?AvbR`CbQcMNN_r|cRxCJkgvIsrXWhsxH&*`@`YGo*TXnPHg4k(}i({k} z=O3TS#wgFcQfI;kxyf7P6&{{-Ib@yCDP=R^xAm8J-QzjurY#MtpT$?az{5V<-nZQ{ zK2L&ZX7ISk|<1nH?)Msoo@e-kV$ahV)W(b}l#0%{jM2 zol@0WtPXB&Za#9;XX@OQoJlvFE!_pb-%V1OT(&fh{hLRx#`}x2AMzZlZcdtE`8y)x z$4`ZC8>QyWICF1jT;1Xedy^D0reyfbrt{qS{nw7U(w^x~g4>K)lOC_$G)dNQ-pg>2 zZ|`l*7b=}PwX|IS@AC+r*_$p++v>i<+xmd~ymck#UmXZ$+_rVjQspyCHcN-^UlOP~ z)6C)A%v6n#$h?=0J5T92pZ4n3o<}E9Isi8*@q;Utsifi^ZB zzJG)kealQdcX`+P+l$LCH{L$<+W$?s_W65HHWl0{d~LX+gVm_rbN1gma>*yAOq|eK z68wuNrI9y`^CqAE_d_<@K7Fsrcyr`(Pvf>u+p}SkuU+yUwbo9&7FD?}yh%3euKgAU z_th%S1kq9C%!x&(IFP|h-cH@9VTz5Zz=k)sqE#eW_Rz8N1NxD zhM&r)P3}Bg7QbWp-bsEkXOHLzMn}~-AMHEr<;|{KQuW>6CSG}-W?qq}^B;~Io05JO zGnq}2PHh+5_Wr5D+4{u!j-DKooEe`Q7db3Q_;Nm8zt$yS+PmO7R|g%{xj(xO$n$oYFTf?8Lw%7obpaFKNrl=?6BcrSi7zL&azzAi)v*vq%F>M3q3Q~SsalWc*ww7 zB>2Qj2|vw_IL*B0hD^^x-Lkg|AE@m4!)sd5zv$mgMVD(COvm;tnZ50>$?x{9-t%Tm zeZ4mSw%RY-bCZ;1KV;O;*cpBxP1=*Ql52r`_=V$z%x~(JuDzN5#CGDWO_v(Wfo)fdSH8mbT z@@GzhohMJsY>p>u&8(9dON9Q3$rzf=pSbWqSi|Fe7I(d7OEw4}yY}-+!qFr57#X9w zik9YXNYb(Xvf!l4r=8r3BkK2y>}vcoB|rVOtNf3v%U;c$vOjeBye-M{5xW32o-BvYl1sVmb3x!;ZhK(glkI&&xzOmDD%!tvP+m z=&Wpn1b5AbG;U#elZYuVqjo0Atc}QA*?nk@{5?kJr1M)0RkuxVV&T)V`)Pcj@#u6} zw+CTQrZcc?{2apgXiH3H_P151`IHsj)@iu9?L3yQd08^2kH<`8da1T({T?qdqg&OujDuAzIesU(ZniU0Lh!skbYSpED21tIl}4?0jy+ zH_^0)yx(`6Zk$|aaAQWrobxx!z2>WjMz7hjV=D*CE|*&m%hJ9q>z~u0>FC{3zFgsP z+*zg#+XJ^;oNQhBGc_=Ji;4Be%!$TVo@`(Hly9wtkm_q@@8xR)A}4dd{w!f~cm0-) zc4w=V?o=thj@G_EZRKXuRa<{*ej~NCE)jwvumdr}A#u`DQVFju~sp1>`Tu+@7o~e_1VF&AqI(qcb+iZsM_+HXHZX z0=Hg-OWiS%U~RGe=)cz}^k-g1a(T1Q}f8>O5;xbVMV4%UbuoGfpzA zRsVEfc3-FSust-R@WzY%2TP?laGl+7DQLT+7K?7E_z$n8-f}M!e|fg)&zkJSU-Gd2 zNyHr4FPuHfx99O~;p+Ag<<4&2n%Wfe|An<&_u?H7I~>k5-1KGjv3e2^J8;yi+9!*Ua;C>l?E5_`Fw43#X*XLARmk4mZmTzoce`-Dx z-`<(Eym#C+w=9iSUd-uaDXDm7Ui%U*4nuJVnT*p9<~1a(mpa6p*el_CFl)Ktm(Hh4 z-8vKZUsBRHTqaXpq;;+E^{X{IO3G(kfBZ=9qnJ-jM>U7vHCsI?rgLkTY|r}gKknwb zP_8pqHwQPB7Hvwt@!&<6)Qxqn-=?e+_!1aX?xghX*&0bNEBoc2_oZ3s*D`+kZo|WL z`sUY8gOj@wm%7?5h*mS;j4V%=y0J82!hZEe7lB!fQhEoyd#e;3UWAc$x1aA^d^damfZcyPX212_1CJ9JrVEjuD;lKiBDU% zZ0i2Xdk2N>YfIfu`KB zTNxYABiuIi*glD4*TjGLiL5gJJW1vi_usgw`7S4BOyoV$G(m39%C{#TWiqGbu5Zxs zUejwEEXJ$SlAa~C?P5k(>$G-_j(an+C-2PM&u_LUtLN(J4!iw-y=GT=PVbjJ@yOEn zhXU)-gK3O05B!|c8@M^Dt{s>gpf8&q$i=aFJ>M4By-%{PNI6-)SzvYgeb$OJEmgOd z0@s|Enix!yTNK3gY>Srny&38fAwrk8I-6_mz0ez6w6sxO;WV>feSDPNzO@WDgH$G- zsNa*6F1P9wqn`DzjP)nDUUl!NkqC=gRlwnJ?=nN_y~q`>*cF9*4_&rMJj0aq#ee4K zz+F?tzWB?yPniBqb4K9r4fUD=TNLs*vla8(=k2^5DWp-SaPx&M+lnbZEgg5R)h*Q( zZd73?+aX!6=F9Z=-OPo&2R`12EoQSYxuR>`b71S~=oz`onhb8ea=7iLsA}A}VV0GO zx07nir=I=)~}kIe>!*V<3>1t_@J+*v$h%^6N-d$va$f4y!$sE96Wkg8i%%y#FI zXu%rOxlDYjnJd}+eyvN5{1fhdC&Ja@PX@DV(q@sAVuu~k84rslu4^dUk`c9G_UYKm zY5BMI6?3lqAIYKp@w-vE!mAQrRj=rnyzq4|V&yL>@4Rz^F?aImv)rQJ3N4TPb9(#n zR^XOGv)|&qr2;#w3x&$756Yh2u6ijol;d)d^Ft1`OXLz(SCbLQ$N zC>Jx|{HdOxT)g;=0n_)_{3$IKMr>jSH*mN;YU$WGT}AM%1zWsWlvlj+@p&Gcyp`pB z9S{62Su1Ufeio@ywkFQ$c*`-fZ(DzP)~Ftkb>F9Ru+^l%Bcx|%T8^Gg z3+H&XdJfh`rkTz3TMYr(&~y z-Z9@g?Zx-4ru*147iE8W?PYYv^VeJr|1Yy0Zp-OtJC$x~bTO;ltRLd`GI6P{wX3w) z@9o0O;T}E~eP{a?q&8nWltHY898O2-*EqqNZ z8Jn9rD%ymMt9~UZ9k<%fws88BfF`kbtMitwopIvhya(rZPj+ry{z7+(?vwXYR=eJ2 zE#{C^Q19HgBKE3VcI-93aOu5%`~Q5`cN5!kU~bZp`kbXBAh3y>G3We|Yn(sCBb&l%yA4tgrGA%hLSPCLk9dDJn&U6hI5z@*Bp#^HXcRyF58IpxOFr*9pC83YJS| z&Sl~hy|Rt%<%aOnJ~Q207wQYHydPjE{7_IadTKfG=$Wv1QWn4BCqd-apA|LfA``LcvHcwU-(>E zS@P8FU%ZAolg_Pln{ImIdouT*dB0;koM(C^oBatfym9+S#ZTR0Lw%D|-ONG4@in`Y zHKu=FzI1ou&x#z6#l=atIYVx9_MC08m)1#9w|XsVx08ML(!5QEk(V!-cOQ8^bKQ$~ z3y$2K_%=8#xHl)i{LfU061&JWkxlrq%IEr=h;xQc^`e zWX6*|AAf1rv)A+)5`1wUqo3R}1={mjxQd0rv- zR4aq~wp}ahOkSt5)P!X7+p%mv_GXzuPuA|hmHw4~=5N3H&44eq#$fp?uQOX6eOGr& ztT`o^@xa*UNZ!(=C+1vWt!}I6*4vZIQdPc#ds2wx_YBXfge^b(Zi>12KHr?PdxK7C zG0V#jm(D#_&C8sX?;4WZrxqi)eP^L?XN#Ob#y^2dzPSCDE}hUgRC%aZGs!Rg)p_3} zL3^h5vYL-PIWLZhXJ6p6SjNOAc7;K;*19x;BRVzOd5fZRXL{NPA4WD#t1XPyjP5Km zuO{epUuYE!Uv#TLDQa)y-L*HBkDaJoyF8<}@k~m#&(qDaMyvRCAF)aId|%qRw<|}~ zw9T%%taBn)Z++4CZzuj;&Rcp=_1WjMpXa6Uzm*UA!B>-XYF2kmQg+qt!u^+ujtCYj zaF~AkecmK0zHj;F!}Zse&7UWD=>4_&vR!*8f>|c0YI6t^B=(`K|x9CvmBfcfW6(ciO<_;2WR-}$up>?eo% zIouLvr+NcoKUP+XEaKJ9wcTRK*tb@e zPh79&$kkSS#IM1{e1W>cRWF;y6yw6(_q|o?PNy#SHWy~pDs=K$V#~OS?@04q+kp4G z-t2hAP)nCVzad+RJsiZt2>Gu6Lo z$`0-yk`olxIPqSp+~~um({|k}AUUjK!CZ!^`{D$T-eD}AFI`||AeVa~Xve0PH);}W z-aKEd8f?%l7jtN*T{Cm+BZ0ha42#bT-(f zhMm7HIAKQ7ws)ll1)2YTAGGr|{M4h@euKp`ST9L^qfpyau|oGrl3^Mz6;H(3TxJq! zQEc><(|RKLpkwOlO@}$=T;WXl_DjCnfz?C8BUyVw(FAQ>h15rp+t@Py?+_S}6lSlC&pgf4xo5e0Os=8kZPs}S-u4q-2FGh>a}t<>AKxfganNtnl)Xz}TuPYU<)#}AU0o)tJwlggp|6@@}7oX4(fukrDlIO#mMa0bJj zU5|uI+42@Yx>0&`*_$w_EmhO=1gj5au8r~vDKoY#Z$B9uF!9$j-lt*ASG>PAl`l{2 zYAec5IN0-JT4{pbTF;rBFRC+)KSpct-91%!%-8zBymcRaXLu%m*&I{Ixc>K=Q~WPF z_9}mg`_m9TxvFB*%9>5{uWX+7)FGf?de^%v|7t3B{NC)-`SbHhxyz0=Gq(n8{d9

n(YE>i+J`^3n&#l|H`PrDd^d?zC`L_pN8s*Kze_mGizmm!H*L#>;f{#EX69>3`Sw zF`1mq@1M5i^^VuK!+XpQeHK{zr{a+qckiqVrwsap`%@1$y?w@NQy<;=dY+cD_F3); z(b3f_)@8;i>^SoDZf@$nTgq%3F8DVvSteI03Ni3_ZnjyoMTKF)(TR;NFD}mUUs9G~ zwB~__=z)X23;h}0+d^+9vgGZ5`-pdLAD@s)vq!iE^Q4XD@nsT@lh%pf-2Y%ZQ~A>? zw@>Qa+c`b_X0+!uyDL*ZpSyFca>}vx$APoVv$ouPdEKixsxNF+_PkCdmSa0MU7Ez+ zxNT#=g9j6;FNi$Yniv{vxkse-KfipO2kX8{VKpmLi*^3Br=HH5<})XJveQnsH!3n4 zZ)|`6SZKrH7h5$ql$(At%1Y8bS@Nk#%Qj(Jgw_2hANAW8=Y9Ax_lESuUoMVX<&(BA zIJ$I&A#d3=f%H1f;Ed&7uJgk`KkF^_pZmq8`v0TJ`_2nbpY5@Bk$rzbti%7^9#!oB zr$;^v`jfM4f3fESZ&~}@bCSZOtK=ReU7NeZ@%X-OQI}l1?BOJV4M$Iy7OOXOt6mOcGA}AR=e;CjVxjfvaa6YJJC+?7|_%z1B5!-i?@2gIK*@7j8G?UpAk2d2tpPYuD~MTMD*^?f-d4qsaWzx#azhPnRcq?l6?v_AjvYk=HV{k14yZ z)-Ba7bv+#3qi6BbM<`E;$IbH(M@&)Jx-F*5w}8exyj9A=1edZiMex<{G(M2l;U3Oh zy~X&+qLt3ulUK1!o#Z&VC$M{A z`lZc1rJ;BJIK24jm787pjAxR1yQVx`EL>@L z=&+OQf%g&0uF5M4m%1vePD$Z?oOVYu*Rqhgh*SDy|FyYIy2A74FsR46T|RZhukc@7 z+t0e-)e^PRr+T;y8FTvPgjO=$kg2?NUTcH&zqK!nq(X0|a5NZ69c4H9`6@hWiha-W zg|^9RCAZi9;ne+I^i==Fk1uso?av%GdArVR|0{7DRsCy9()o|Ge{X!!Hm77;WX!cZ zNz49X+1^uow`ZJ-@!*RLEpK^ZB7VA1{P#DhPv`gTyk~yhAb-YUEt&F*8_!H`_?#7y zDQ(fixT|A#g}k4pv|wbI&<>eA%ehQ?lVhi5Jy;iLW^j4C)kz=riGFia{7Ni0vVD`f zF0(Sm^W|aIm%i(EUUuEa?lqlniPc%IOLMn%hTdFZd9ZVxz*L4cQB$Y3h4|-I+HK&K zSftk6FMh6ao~C4$=FF0tUv|yT%~9`}Rk7^%5rGF+3ePV6u<~3{`u>>&RO<{HMMqK2u^<%D75PO!6>;+k>7>id@|BqmScNxdvlihyO`XQ zF%n@>pNu*qKh9I}y!IMs+EaC&>p(Yb9$)(5vK^Y?62ES_6bZjk+8 zv)^BXxw8zu%?Og6leX7%hJ#y`ruwsA|LT^mofDBdVVR=q6Q8xkA$^rMIAUD1rx|Y$ zG~O(Hfp1fk4^P?E&V_edtxJ?%WPQ;&@OF!{?PuZI z6sP~eD=wbgaC>WXX5iwJI}Xj;QhF|Ly;SYHE{LaD; zECq5$o@PJjTeWLriz-Wm=ElJSJNwL4 zE?kQGdvVRd?GM!W&*X^aD!%ZmviX&==dG~n)^KJ14IG;sKXirm?W#BXbw;Ltsp{${ zvDM2IXFL_UbADA}!OIO*vx|6BaQWMr8%}3LjXas!cRH0! zS8q5Rvyd~Vy)=2(QK?l=o_IxnTcd5=lQ4H4n_XZGlc3RwHJZNoKUj1pm6q= zC-(v#-r}z~dcDS6KTEaUM8!n6W|PaW?M9zYWL{G`<#b!1fVF@2(O7=nX>k`;#bp2g z!+mF~=}o<=#tSEyGauf)UcCR|zQD-(n5pv9Lge~R>$y9tJE^*?UbZu&KJZ5(*Gc`y z6D3rN*2Pq`^Vf>4nBP{Mx}Yw7^1PRdA-#5Hlg-zfe%D*9CbW-de^`@c?veL_b@fkE zWlqkTA>$Q&YR!r4-@%S6=G6F4*p=da{`tn|9_iPAo#?#X(mVI~R8vOlHCsv!wpv^< zy;-aMd*g|^MjoB*FCzW+dJ1e%F)Bf&+R|QGjbJLcGeAo8fe9gn(ETL*n$bN30soE9{pPMJW z`ujcK`|Hb888L<1A|>K8yjJ<^CFf6XcTT#i@a@6;7sraks|_YTKmAQxcW(XTUZ09L z1&@tR7AM(qmi;c+xbHGwWD#%i%*KjOFSgDVQZ2vAaAxJL#cURNr@kkcE|@8PHT_Y z1tun%D=EI#3BTplY+P#-^sLrSxa8c#b^DuiUp_jJ(XPAja|ZA2DC6v#EbDk2KHUuQ z?^d*Dz7ofJ)H9g*#+FHznX4po&S;$ZUtb-5NqP6gIq#cy{SpMggtU}5A6@GXd3*9UG^C;XHAF2`j5*30`1=lh(UbD#X3(ed8?!{)>+pN-+7 zGt)1J*E8PD<@vS2DtGH`A9Lo4>$e~N+Iz5MbFX;ktl2N0{XOBl zj&+4^L+O=o!OL#5r0lL+daNmX_7Q&v&*v)_-jPeyU@c5hyB)mcTe@?TSX&%C zHy6EFVdZSH(bwtKN3p9{WBrbl^VUu=zOe4C?CmK&_9(yX>U`toAt zgs|X1`JJ!%#h*3mow>K><;EwaUt~^aG-vKmi&j+^%L=;QFx%tl)cTuOz8Za>+hDTa zM#1)pS$wF&uBe3e95!IwMb=gkmDTwqNQyX{4Q@N?O0uW z@7hH>?oFNhjW-0E-u%*X?3sE`%Ky1%*YmxOQQP}@f>~a(VBm3?7?BXosn%kzR|aVv zR`Xi*YJo+=I>|%AD}C4*_+(6P8Qj?rWd14Yv$1S$o9*;z^Jksl)-6fg*{rAcYWJq* zcT1fLjJ4nWZF`Wm?#o`^SGx99dBNvp=4_X3zJ1d^DBLYU`f+)vAj{0y`kz=}~^lY7UixAwhRr?i6m;$BhaDo^vZ5f|E5al~c5J|W}2b+wX5nee&J zZVtN(bJCX0pAlD*@TGY5jzdAr)_2&pb!^Q#)+*IJW8RHJJCp_G{S}t%GK+Zd#Pil7 z#yLMEA1QrYqt&^4SI2?Nf+EqY&Rtw{qAADM^Rpp8v+?S^OE{EQdv2Jkz@@zUv+y+Y zPh2couFId!t@7z)Ui9vG^Z&!!0`uXo!iMVrf?zPt+7 zyLqK!Zkle_lBZuIyRQZm@Ez-WmzxpY6L`T!Poz3iLgO&6_HpNf4bmRBrd02gk=9-bHUtRnC4pH7%Ua(ASG+o|O@=|BBD*6>Q9}7Ijax3HI8`I`8J(bG9>hXO$`M z=_}D=W0aBgR(07m$NOq`iCD|DBbVl@?~i-unIjVN-cWPDzJ;sa&7=aYMOql5Sz!F$tJZni#g`qra4_gyA=w4CQF^iwz& z=vL&XaIUd3^1NlEg}VL1red)rYPru7cUsOrP+ckY_eDYihoAA~{jVdnZhw5BXyes> z@ae@vAFgaUd$WGa3+?yeuVg$eW$+Ui}a)% zR`(lo6lceHSbd-Lrde-EBd^-ZOKPSL{p*%@)ts0z-!dqaebLLQ%U}Oq!t54R5_*5$ zQs3=C!C!kLr02bS`Jk-Ar8Qwjh0E=aAI=(F<(2SVAh`OG@_*Bg zvd`A?Q#ZMA84Xa0C$ zRWq@tvG=5z&b>vV9_r%e%Eo&4Qo25)jjgko2D)5E4}^F&$cH@ zJL9S^{Y*J+ZNIYJ)j1* zXOsKk@~TCvr%Gsl@4vh|?j5_{ro7`bqpPl5IlYbR*N*;2KQBn@x_>D1Nx4^_d26b7 z@v4u?zmK=^Sxz+iAh%Ry=aG=b(!1hUe&}cX)N-L;{jj0#&*L}GbR{ZRdW04GiOE_` zJN{L}|L@Iyxu7;>-11PrpIz>4 zN7AG_tfe?LL>%AYk84)s*AecW*Q>%r-+J1?wmj;<)Y{(Q0do49@c zpMsP49M8x#rz@5Abg@mZkdkZib1XivJ9;IjRjZrwp0^BFp4@9+wtl9;hY60({Ol#S zru|O;`p5eF)M@-bS4FafE8D-dc`K^A-|64lZ^oYgm#tQDoT*ndHSUtZ{NjJJ4bC)9 z{OzazrZ+im=f>T_krp3pYJAl;y<7Ke+hb|%d;{|{J7=w{XwJPN`s3U>PP;E2FJ^yT zqvcd)lUeoCruopyE0c~$hh=@bvoiCdz>CHW^^0~L%*;;E<$Sc|@*U1F|2b-lJ_)-$ z(p#5z;Lq`pH!BTSdM^KVWy0$zPM+U3HibDaTfTXc*6fR6egUZ)ZI>;1#ct;18F^#D zZo?CM?B~}_We!N&8JFtOr{Q|tW#ZI#KD{@4R|zGFrz;ucC6p~*b%a;jG|haKSHccy zk878A#+AIPc~Z6h?AJv%q#v<8y(*i)|8ep5!(L}4WSzfv%}WSQj<$6_aBu#rv)11Q z-~Z?+-!s4B_?lHQAOGn8V2l+_T3viSW_wU@sNZ_Ni@Ny?*}dV&UdlfdD;r~m94KH1}aP{d+_RE zRpSfEQy&{__VC}yGqv{7(dFE3eWd<+kpILxLH_Gr{cVqXzkPoj+mcgZH~24X5We<* z5$7^}+y3pwf=8tI<>!4fVw%ISRrSg02YYr;o%Lvvj2uJTnosK^A1Q=v(|+8t;=$ka zsOu3qvn7|uT&=#&@olx{`RZ1umqM%Go|9C+c(Y1=@mq&eE6s1^EuSN{==w34p1AGD zlnyMO`|0lm+w6!}rP`*oDPKJ1eqho2ZqImpf=zp)`=gN8H+0sh`%OG>7F0G#^(o$R z6R%!1X`*(iB;(>(&u@+vY_p}WyRY(CRPeaUHgwhuUHil(S+^#du=)jYt(v}$d3lDF z-CegApQ{ek-*$Vk*k4}W>Bh=!Cj}09&M%0LvrKh;lf+&YtpDj5N3CX6AA?}@#c!#f zl}*3M{q=I?F>^iOenFTg`Cf@(M1=fBU3I}}Wl?UeC7Mg4?yZjeQ5fkgaV^30qTzwN zpR-k_Fch*!C55kxUisR=`-9rkYawRmgbQco-FjFUpuE4;ded#8kQ-OxUT}4Kt=Q13 zb7bP@IgE-wP6%vz+}L#d>den3jkD*k?kiTh)A22Ng4;Bey5xeum+Ctr&N{B;>fO-6{RsPe8m=BUGq-E!Wn07B1SJ+tm3krmy(cxLijx zdQU8?!9;H0Kwe8(TNOgw1r=ew8lMr^qyTd ztNC}=t5s+ryF}fxcCn~yie;|t9tw+d1C&2aIjJRgHwl5Q#7Y5!rjZ`|7}Mf0WzeMmEH z`?0~}TS`hx-9k5&%bW`ruw^mMbJ#kK`^H)o5AIt=yGl(nXV}b_H<(nmv9DV;>!Cx5 z%foXs|Mql!+q~rGl(ue%n-gzK3GZB(zD;zSd)=c?+uqI3wb!guGFERh^9hLI6SH5+ zw&3S1+bc1DL?o3rM6cAYJs>)Y1-SWIxGNjj=09KN^yJ*=u9b)2+Ml4kU`dVXV-c~>GExItF{%- zo>CzxY8B64dh^Zt=(~!uO~n7&?iR{!dRBf}>e1DAl8Ld|9r+KRtPf`^D10`zdPmtr zTe(j?Z!+c9>MKQ@UhM0?b4A6@#jAa}y54>bJn=KbG3~uoE_(c1i~1jIjISSozv zs7;cmP`T*@4cV-srX0CN)6Tuov|YIImoF_vdzp!g>!Y z_Xl=zC*)2wHJ^)9Iv#U*=GG?(?x$}$Po8~Y*VM=BxZf;2a$d#!$jKAyZ#*}uGn=_Y ztvSKy!&aF_-AC#6{qeE4tg3E`t*|}L|K(Ln!A{1>%C$RrXMFBUoiX*!1C5f`C5zbq zu(7Z`{4{HB(#)e%7*}VWneTpWA+JsQ#^{wN4Y%4TuITMGd*}1-wD!7J!dqIy)?K+E zHp|RDQN^!o`~0rX)*z&I9FJMu!iw8I=O*pnw%<`>{_Oi|d`u@oCP?sZOquxDsCA>? z-$yN1d*?Vdsn@p8Y1G)U|9QwO*#*Z0ufE*gd%SX0n#dgam9vh9oXvB-`T1@>@2dX# z6MbxpF5LBs{WM3{s%M|iFP~*?Ji%uiWjeV#cFkL;t8gUC>y}@~IV-fF2--f~&%;4|@0e=o0oIkC`cn#)#|ABJ`onf*>-b7C9R zjn{+}Oy~7Ak@8nq{PoOJ73=Mujza7;O;64XJlBz2v{L0=&&DMIF*=@KG6KWXJ-*D! zVGEt4!K>maQkcIvxTCUXm<{0*`K4jx%1+%}C@yL4IbgY--GTdTLcyb|x%XM4*m zO1A6KtezvAVq=UeEla*->*~MC-##t*R$Zh7$A1;`(r=5sKZSHifBKhsy`xyjvR)@o zXp;EhQ(ET7QVW~){dN?dlm7g7l5%L>&O({sc{A@s+!f%L@0F_Bb$&M28^G!3J ze%Jjaacsw_`TNc`U7k?!`^#?`BPG#`yiBkDrOBBuVGX+8x-eAXWz?GbiSa);&p6sk z?z)}NEtHWzRsMN-VV%a0CDGem474^J*|L6p{coS^!IewxY7fRcR=3W3@KE*B|6K2+ zUSq~vF1eR4g=w96A#?cuecx|qA0~JjC-MlNzwm5{(cLqQ3t!*2T)ZY!TFk%8PRg^` z&i3^ClS9k%KR%LBto5rxe4<=XIO|H4**%96cBX&4 z*e>_6r9ft5uy@P!cGg3ZHVahtJn78&ui?DkCNnvEBm_fFlA>2F{#>Fp=+|C3bv zk39)Y(#hB{ZAaUWtRJ7PKX&SPE)LQZeI37Pld)!lvhRl%vM{N7<6tZc+_yYVka`YN;F=2vae*Ph#iI+uyq?p9r!)W$WVw(&mu4vb0_04-X z+}rZZ^W2KgDp6IRVDCLA-s$tR&T*f9`;wsHoH{8PLH3!Fr^|mT*F)+!&yo+TZ#yyGNabJ_j<=Po9@WU+_d>FZ~dmTIT|RND6^ z`DCWCpZk`49-VsgyE}qhE`&Ke-qdk`^`5SBfXtVe8t+pa+tgm3*!{c2_=@+LYgPH> z_td-NW{VuHZBjiXIP=wS7k`Du2V#05Wfx{}7AJZIZZO&%VE%g2OW9hUb$bGg?8;xb zrGBng{@tmqT4xlmx#^Gix+yxJXU1wy+-_;PrJ{V_SGGlMe_mMcXt}(`DA(kpsd=bg z#oI-COA8h)b=F7-NVN@c>1AH&eYN$~WVgJsh?T3^57ly8oU4gm@?Z00bjh^L!`xLi zRjU3Moxf|_CoXy6peEjHpc0s|`a%?wa5Iae&tb3L&V#wyrnl7vh6|3dpp;DXgPK*f?d<}=WAKdb-BuH;@2j-_$$cUcusmHrM28o;N{J0 zOV=&j)V}tXTfgAN*_rY|mC|axdNQkAR<`O!e{X%Ky!&{;AH%dvRc@vtDW8;6VmoKJ zY?M8C+`)X)3HTeWCbuH^w%;|X1o=-qed!^6zk zve$F$^tawTtCuEWAo|H07DQ9Q*)?F5x_0(;DUc6eZiM6TD1JTx!S?{i| z`OoXLPvx82_m1+Il`$@kI!R>!Y2_*r|pR^%vm&5b{&6(?BxemEB% znfs+D@8+qWd#a)>Zy))oyR)b5d`e+t;w>y!$29T{lA9n6zCEzTYw_ z;7{E7_g`An4(87L_`7x4C!4Oi-5TptepF{3T=CfG(&r|z64f^)`q!4TRV!Yb&K>Ge zG&$61&dZGMi66gdacWOFku`xys{i^D28X$}$Ez1JvHwXtefjT9-^Ctb_trBDdillNYc6hlyh@?SR~DRG)D`rQam&w_I}UrR_2zzJu9~zc(=Sk@aIbe)S7oM=oZjOn^}6Lb2k)02 zIheH2Fe9o*uF?Z`2P*#8jpwa+{^dvUcM>i-P z+f>U}ze&|XiV?o{)mpS6>{%Yu@2-0(D9n^z*jli!y# zBG%e5vxxZ=u7B3_sZP(cT9tJXOZW+D*{hf80#NaEM&wp4E>&v%m#vmC8RoBx7y!d+F*(q&Ie z4A!fzXRB~+&D5N_c!z{`z1tL&K)Md-qM!zA5GR?50wTyt~zPjzj+@Gq(nhShQ3xEHm(nhNN#( zh^Mu~q~B*xMAzSaw%;``;Lf!IzOc#F`P;96oxiH5+}FLYd{T|ujp_bk9(~nq8Q)!_ z3R|Cxd%9c{(+gVAt-@-SDYWUq<(btYKF;5t8h+0>BT?2V_Z*w(z#!v6tf%~6{Yt#iG_ z`McIsS-<4;)i5tE`zyvF&;MI5>&-Qh7hk=@r|t1ElG!|I`bx*Nr&DK6J9YlE`wZqC zKEIDVHnP##xMXio<)jV0hi>kkxMiYM>au35y}_yu-@=xh+R=U@;f;{O;d$RhXX={I z?v?TX?!E3xNQ%@Zxid`+f~&rtV@i2{=i+PA9sMy=jNYXyRK7Yq^Y0RNmVEP+6R!gw zTAjDuz1=|YYw_#93%WCprLL%-9mOLU-tog|S>s_3%NhQ6ynRq?j9AAXAzgol*;Jm#%&;qlQs zw-0Z9S)}mftH8BJxenIX4*Uw6;?7%LVAhbV6}+}`mYT7Ae&4+Lv8iv@uRNixx-f3r zrRI#veVrj;u}_w6J=VdoG{#9)NR zgU5Z}>z^33q{Fhh>T1^cXEz=w$)9X3)h4uD{&HnZd*`;P+NNT2pO%$+{#Vw0cQsP& z)1^PB{%yWw=Ucadc`wVGo{7=TH^rmo-jr%M_4?$^xO8v5CZ9{P>YZQXqH5mfd{Vl1 za{G4s;;N!`>?`extC(WjcNEC`&De94lYPpPnV;476qxtSUU909p)q~U$->z&1-Z4qs?h}svPfBwJL*|7KdvT`n) zSw+#p&ywce3Tx1q^gw&tSLgcuYJcB8oY9w_XSmj4m2f)WU*3CjwAsX80c16BInF>({v!b%u*6thqH#7iHwEw_e!pUy{3E&hA}L`77SU-Z)vtD)(DL z_OZ5D^e5H-HBWN>J6yTs$aM4AYJ-b1npYVzv{Qsit3E8$Q^;uNaq-=DL%v)o<9Yu+ zF_yQwhiqTnJtq)%&`fow?QNY2*6e@Mcur4>Vfzzypj+1WIA4Qx(kllxU02pxsc@Ai z zJo~W5of@rEZ0{!j{r&!v^)~|wcZa@EVZ#nv*=p})xTUv-Oy@JZ_j=Acg~a&RB0e_LjZ}VII&OZj^VrACy|s56KPoK3a0L|n+!E!IdSDg$8E1V?n>=&N%_U_TZw`q26 zGL>y>!_~H5DSDE;Azq0|gMn*uv1l7$#~06|}L@52-9j)elHaPu2HLP037j%CAs} zHc&87Fts#QurM)-<&P*v* zh~@%?a1fUn$R9ymu?qUm`K5U!3PxNA6F??HOn@5ToLG{Wlb;SV31mYMm%eXmNn%Q3 zNuq+Gp&6PRK#oQ-0TJL_`u+jF3Wj!e(BK4zKU8IqITuJ@5W*qg2!Y8O8gLnc9jzZ^ zY{X>@N6-HK-C&r za2Y~PFfrgVfhsUGVMt2AA%zxF5D^_N;M4;3xl>|s zDkux-2e~`?gam0j`vwPl8XADJl}l=Ia#3bMNq&)nAt>nwfm1zLic8-uv#7YlIU})1 z!O*~1-zO2qF*MT;&rB)FD2`SzH84;xH8fK&0!N|&oHpPBMKuT;n;C*ioxJ4yl+3(z z{qW2@$GqZ9R~SFIG^qqs)`1EAek3T7!FlcwgN_ymjKPyv<$>A@;*WNxki!sh1Y;8+IHh**W| z1?fj%tR^9;#Vc=SV1N|f3YL%<#gRb3vd~}#ha5abfs#9%gPz=6GSkvhi&FEFQ;Vay z3=Q=Ya|$vNxs1&9i!;-66S+(+^b1mpGV@dPlk;R`^^0>7i!)-8QYI+2pcaFy z0_Uvoh+ucG2yNeBM_HRzPSM?8VwZ8%(3Kts2Zeni%8)R78j`0GgL4!GXP^#LkQd0zzog@ zu_3ZXrltxOhUN-jKN=cxfm9nPm>3x5_n7#kZYm>NU$nVFd=n3x$Wm{^#iqyUf` zgK(w*kSsKU$V~x;M*3-)`e`{x@s4CFJlZ21gPi?B!4-(15xA^EDuF=-5>c^kjEHq3 zNGw3&1b=uND41A)tbnO9wlGitVG!TQ+)%;T$V>r5gUo`c1d%X|&<#=p!XSOH)L@`s z25u9XT0q=mW?`ma1g=pG6ikgQ6f8_YHk%t6LCY^w6JrH4aMJ^73OH4O>;m(-K=E#& zU}|8bU}9_vr;RKv!F~XV8yOoY7@307JBVd&ZURwdVaWxO1z}LSFg7<;Fg7)Y$eEZc zn3n3$M@G1x~asRZOk+^Ga4ON~^*Wo)8fSejpwnv#@Ll$oAU!ewa$7syFXE8#LU zGS*McOF=C*!HrU={qXeU>+0bV=?tzGF^Wxa;NVD47AA;N!~#*Bo0*eSVT0SqcwALy`i_Hwo6hJIXQwy-D zsktc^NHs{@#N1fH#MBs^vtVKt#s&%?IS@8AL~g|@7=j$BfHSi}q@giKcA0F9S|Ec< zD5#n69OU93>FeeSZW3db$VQ;@1y^doQ4yONfl@ap3g7{ZEj8e+B0u(+|I5rl7PtN>zL8k>W~P0ftB!0IhQslrmh z#Kc&^1SV%`40f)mrLlskr7=>rRxmVxw0v+h)gaQ)7$iGYfNE-_Y8u>uhnndG>*#sA z1$afdfSYHSr5C7*!;vV=%@F0Pp&?Rl!yMEDrz}x`@)B}r5nBj?hb7QG7#t897UZGr z>>GsXKS&&a!xz*xNA69TSR(vqitwJPv7v&gF>(ec)^Xs05_HD}h5LKDI)XzVOP&NJ zXB@$Ah$By$g2RB);3rnUnFXlnXP{sP9t;6zC2$E~W(Z0-#F+xha3-b(3Lp$)8yg__ zAU1?&WNM%QD&9eUG&KN?LV;{FF*H&zF)&atHZoN(H8KU815s~cj?y$XGytVcJOwdG z8X7_1BmwUkf-(!7gTI@ImgNk=eFvzaZkahHsYUv3If*5yE~&}+DXIECsd?!o848AG z26lGPVc&{5vHpg9%?3PoK6Cw7U<^CrB;FP#`j)-v@d6%;Kn~~nc%cQ(?VC&XS^w1e z{m^WKx5E63kGq8;j;mdIwY`Hy_-vnRXmjBVzc4jDD~_A@ODpP`4(2ITe`t^M=$o2# zYL%7K3*NPk%C2XPJHuA4+qzBo$TNQ{=E=5m&%QgeA~ab1|I#NJdWCmc?j))BEzQiF z#BH(czVX5KIZd*UxYe_QP(Ol#3Y3-f9o?Ng{oO$A|458{X9B8X zgY-l4L-R60!2lXF!aXEoVu8qsCKme8;Uq323*>f^f}sJV?~JoR1xZ64Np9?#Sm+lN zW#*g%wsQQBRI)~YFZuoINpK^Vq^(I7EU zR|ZUj^B;@_QUSuCE-1+VFjWvSWK}RWk$Kk8L;++52t&*Uv5+yyJP;o)%Z0)N>qb=r z<)K!RkP;AQoPwmGflqFn8e2koB;fuDQp6e>fLfJM!|~-@LtHs`iC;&n9?#lU+vGX= znvEW~DDwQR^=#miJ$LEnyC<99w7))}*I47yukV#0JKLi>URkKe#8NDj_gJD;#7v9V z3MuuMAO7WJncev2-1{oEpKGoxU9-xz<=zD$lb|a$6Emj1ipsWj%=x!O+2GdUn>put zqD)Ia&iCqjCiL9*fT`P~kXh5zb~YscvK6j5p?O1LpQcN&5|*rsvJL1`P7_rPqFTnZJz+5!d*KNy)Kw>K0F4M3GHp5OvW zL;Xc=a2eqk?#n@_7w+BS1?Ms*6@uTGFGY*I25-T5? z{I%ZnTi5WI{bHs?uB&cM4B9H*yF_8ZoG5RuMVlAxUR8Z{?u$l|BYGjOH??jsx~MMa z*|f?zNZ_GDRPo$2$2Mz!u7>HM>(&)kdFn?#_h5YCesSKERg*K$TAuyps9jOFdW+&- zyKIw(fn3W&PhT%udfD>h`~N4sr%hRDa=$>Up%*jrf#<-W0SHfku0A0iZs2jVNGyGJ zXoD50;siwkjwES-NRfsH@Oc<6@aQ~fei+;_g(g0f1ZipjN~|z-AR2^0Dq%E;4aQuC z1_lP8J}#JtVhWN7IBA4PaP~HqYF9p*JYD|K#v4w>K2pgH3 zqf{>7c`w}A2rLba9dfggfqrggUTHCxv3_E4NorAMadvKENd}jpseV#vPEKkGm!Y|S zYGG++Sz-=oo`K8AKtCt7xHz@2G%-g%y(l%YB((_4;W9GOFV4)(%tSm3&g%hW(WH77MUHLrxr)I>ioH9fH;Gd~YJC!wF4SWsM&uV0#%S(aK1Vn%uhCx^gSbS|Gq-LNgycwuq4xZQtjqZXlEba|( z3_73|rNnmKz|+#`{y>=_#TelRk0Rm7mpErgL8HQ;@m$b2FUTh_8k8GBd;`!3FH#yN z*8SkQbaeMShIo00dV{;3n6*5#oB_?Yf?D&)9b?pvKT<@1=i6}wJjD565=%BVHnUIw zVN(+m1!DtC1xr&?1v5~@qNp`BA!p1Mym|oL^Zvg6&W@3w-bt__hVKnQ?G0RUhtlsx zjEtIsJ9^~!-q_4k0fa$eV`OHiU<~d%o0x+l-NYOu3Lz0J1Ro>@QU{{Vz#~cq3Z~$A z0QJa?z^g_K6imSl1_K2%OZcROk&%KKI8}fKOF^v~kO^=Mnv?+b$SsT&ObpExOrW%p zg}DOAZV=zd$VkD+#6rQu)La3?Ha9Vas53X<0?C80v5|p-v6+E_u`y^e12imV2({J3 z7(AgB%cT$NRx22S%WgcyF(^qwqmkU=7(8`_R6c=6v!Q0f%O_7yUpIeW(0CC>!T?XC z<473DT{kntWTi1|+6sHs$Yp9~sep{(ai9Pi(Et^P1_~A^6&JCY9^7R__Z)Jeh0!fH z1SJF<-osgDfd|A)EEJ4PA&!O7uw)6Ec_U{m&k($l2kL&@%}dOYlfw!;cPd-!9UNpA z>%5$_F!bs-<|8vY6xjrgzI^9Zd3oWX&fNEYcBkuh@VzlU;m-AA5zo2JzFS&M6%Tq$ zPG4ve(f>1{^ij^D34hNX`K~UM!&YRyfA-8L!7FQ*eiLBx_BQc2`N3sT?yPmC>x7Sd z^S5GJY&}Q(ZfJ(>t5^0@g>+TV&2Gr{I&|ZWAln;`{75^YPkQpEhR}b%Zfn>2_l*SH11;i9MiCSqwJcnz53|yi^1B=`k zu{70B$uCJvPEO4$LC&@4^)aZOh*;tQo(T6#%uUrtu5zHUoNzBPib_5kF z3I<&I!6m7=VG0(eT>8G5#l@L<>ENMa(26uJ{RpTjCZ?ub`k-}+!Ko!0`sw-^`kDGU z`X!oR_qt`~q#7%LXP%K(*Mj-bK*X$wxKP*HIKzhY&CD&3#yxcXvps?n8UDU|_bzwc zMx#iDt7WdIIG=GlhMg91E;78I=^U`F@~+zK@^jYDxrKS>)~tSN9lyr(B&Y3+zneAc zePlJh2>1kcoUjiJ*#GO@4o=-K*Dc$NE#@>cE@ViMP}8~+7ABUS`tP~;&SHu3xC5~V z6!Rb4b2nv~@*qGdrY9(Ug07sT-@;p$8IBw5&R#HKW4VQnnz6TL@5+#AUQ=hgrKYE? zTEQg!c7w#%vs1#(&&r%Vua{Fh^rVEY$!$l?t7+4=#-BV-d-VQFa7)gwp>wA<^GWq}8sEmB`FJ~&3PYH_;uJ~CLsd6cL zb+GBPCsSFcr#)A?z42-PgJeCuCJFgtE58@!3ACmj<}MKN>sH#fboKSsuiof>^4;Pn zGGWiB0OvQ8)=$)KU^)HJcgBuCd%T~^y=rpi;@vN|dC3a>YttS%YqH<4%Q}3qDn$3R z+U?Dq%#+Oj{Z+fIw!b*l1;i>v*`bEgO8{DHp%H3c-)Q`mHZc|eu zq}-j`ADa=BD0A%oXz8_xbx{#oc$!8rs)}S(mx68b11dbi--&*47pNS^e5KWWT$!X!ic@YgN@OEGaOU z>J?dYafzy4TizwdB+J> zv1D!S?yI-dzh_Us{J2onhc#fuOAoiF*Vat;Jm7PGUP*S>lj@JMD<|H+th(vg`|MjL zRX^RoG2aMFTybtqgXFyJ5kDDOc>LuiO}~2kzRmly>2_A99=9xB*Bs(ly5+Tc=%Jra z&mR@fe)e_gPqvwl#neumEm>D!n#^UnCZ+2_;w0wWedpF{rDttkz|5Sv+vRHc-Z^pi zZl~SMaoTXMLGXvzmrViFzDp#OPnN1*DL+w6 zZIW^Q7vg8yzh8=(zrd@xp=l3q{=!@n4$EMmIdL;f69scqcosv-U8bnH3&e%zE+Y^R zYYhs{pqN!Cyw(ISgodnoh7D4Jhb{HqF3!n`BRRK(*J)RpZ#6A za=y*^&-*N<&24>Xv2U-}a_hLLqU|*y_nJ@hr=C2j70~qZ`Q>{u8Uc=u-=0(*|GVP1 zUCRAVp4}T{WXiV`)gIJx-+VkX&&cr0y<@c{nU$3{>wcY_G^uFUrL>Y+(qGG>mZ$r; z&7ODCBy88Uiy3A{a#imWg%6v^TNNC5TbBLRZ2Gl_Ije4LpIW2sBzeCW z^I1FZU$9;BrEb-&wINS8m~J<6Q(s#w(c`!K^qrK;uh*Vcvu#Uk`CD)_xV`Vq$>STc z)<`VgAbZ0vNBmwt^R(H4U8%|8g-q)Y>puwpSid=IbKc24QU4}SeWI=+vsRyf{ffHy zOCO%s@ciIBKcU>B&Tv-G1SbVMdAaF%qHRkzh)79Gboy~H9}e!`{+}U9uk6^O)!}kB z)w4bs{k?lYh}U@8PwV#!jxTDCdr;kA|6Kj<`KYYdjV~Us9Y2=5a)wK6)SjkI4}>2* zd-;8}*K27f-HP}xr)N4Q zHgP)$a2SdSyXsw$U1p}D^5hRc-`4CS0VXVk9rO7&F6?DB3ArKql39-9+UwN4iuVQF zPfk+GNm(@c^X~)EM~>}DGGLgrG!(eYV+>wvT7+uKu)i%tz%_e4IX>X+FmXV(n& zOMM4SU$;+r6kulhwRiLC$sgyZPg|iKug~wx{4x8>j;#k{^Xhtyu3XtF(Gaj){zlbu z{(a7$%|na0lT25HRPPPa4C9*WKBax@Y4`s>lSq;`&I`%uN8-hTD{CjksCIFtOx~thRrovPUY6a=>9Nyv zPRR0$izM8rpR((AKW52khThf0)iS}@Z2>Jf4HS&b3>1tEj9?8DM5$?HV1(Qz0drxc zrU8y7iLoWNCJDU6MBg)kQYeC!9U&KrAU?^3qLC$XgCsd6Au%Z-B_-uEZ`l`9_KhKR z9>)JBB>qx7edq4q+GF1>uI0%+%afaS_5O0MT7Qv0a>xJMMm03HPBdJ!+*b?HgEd`n-1F2k$e!p$xly z`F(axd$vSORD7D6*iy0QYR{gCJb#|D%)r3FV3UzSnW2H9(WV#wUp)BzZ_n>)na5|} z$DMJIpV7T8Z~hd;!k0hpQxXt zpRAvv4{G~@w`xH9x!L+T`nmdf`uX|=`bGN1`X&0M`epj%`W5<>C)G{`s%c$@bwtrnCH*KjZ0t zRcD8zz4ztp1vt1RHYAi?7Vfs`4miEo%XG2W*$5* zsK(h;o~owCSs~G;`!M(XlXlKct(J@KSQOU8IVA-Zd1;yJ+9n@VmJn;yJ^U?U;tj4G z`EByn4YEi065BVvjSvy*a!uAxPQ0OggYQjfj=EUi-oCeo%914|_^X?avCi%-Ws~8_ zm?wJv#<>^s|6Y32ci_f>`^MSN_gJJeT|al%>bm9o3ws)WvOoKu>-bsuc0~W?5_|0^ ziN6^w@n=8rpT7Ig^c}+#qo%T6g8)0O)Yo^}rr*nb%O2~ycK@-4*urNx=3jkzr)tr+U5l@?SJ-}dBD8f!h|@k7 z-mI>zstcZ-@MS%>N^0?8j}6DZH}d~I*L&`V*w6Ph^ZvCTbu9mz^Pgq+r!9iB7~Mb5 zNPZ^!QabL3=uwrG@dklWg3=rJ$k%YmKYagorx&ZhmC$7_d`UAoW$g5ytac2J@(A)) zyT#o6?@*|icDc^XU%Q1?d6vxXoVLg^X@Q$PrrkGbezE5DidR;L^BwHIg;%e$_10Z-<4RE0(NEjU?z(Xc z&bIrZ*<=*pSC+Kt{oZ|5M=UBEb7U>=m#}@f*OpwJR6K3D>x4aj+mjbDF85!`_v^x| zm6QJpzBkynKrUJP^3+!@x^XJZ8@=L_RQ6toxW}Nr(DiNeKGxGbVFe+Y3qBY~oMB6@ zbv3P&T5IsE`Vo6WGt-3{k*2VJx{J(}tjtiUgFep7k8mM#zz6@E1RsO4ev#bDlf9*&V=~z;P|UIh3nJQP0jyZZ|_*J|1fvHxS7af zos#x6tK;oXb4_OJ8Be&ne@<UPf}veoj2)3werKIdmBC<49;!IN@l(rch>mr z*DoAV_J=;q{_A}sm2Ixvslx6{^JXu6q-lDjY}IZReiPTAK8wlI3wb`wShVih#Ao_8 zi&-6`mX1}@!M{CgHQwx+{Z8~*1!}P3;Q)oaj--+L|+WqRD)%ITqmwv-9nfj~k z4u?h4`rW6b-J+{6*uTo`jIk~L_)Bn08Ozd(=K3ztH&^+r<=`r;{8h|;_yP0l)?fTJ z^99`6|0U*kEt=P$^MLvKk+tXTX5L)8ZsE~qQ?{t`L@#+3b(zyyX>NIhAz(| z`zdNFOLWinpSPSMRxk2FhZLx3p9uc=lFRS(3!&x5_HraH zesOf-QAhcO|0UC+7e%`+m)pg%_{3)h#>*jhgmeY3+|~43?HBE2xT5k(R@TwBc^mjo zF6j4jp1yjo`2L2TH_9PPjB>9(`+LB0kxbsJ&kJ{Mm0gm)Wchm?TMpayM<%y~d<|po zvFyBE#+`b1(@ti#;{o?24xj(LK1p3eL2}FgH$VTK(7N~U@x>(8iN%(;R2crOWWJL0 zP~_Bt)z>E9^JhP|h56nK0kxFVi@GOyR_@srQWqkmcT0#d>qJ{k^yHP7n9KIWrA**r zS@gJ5_Rze~XLEf`TZ;47?~(hk{`bYl=Ojf`R8{_O59};#c>ZZM+bf;9%fv2SO5C56 zwT-tze_nIZ2ZvI{y8hW3JCzyERtkT-pSZyL@#~wHySl=~rfXm2S{vruqLCW4Q|yS$ zPRX3-r$e~5MsYU3nD>i>0I7mRK)@3UH6DrJAAY;$$hx#M>ef0X}_PjnY`w$Xhm)cvGo z`?s!G(Fpb@$(BzxLP@)j+>pngWm_)65&3I2BHx6}s2W$(|++R8I; z+2hj8HIsTK9m+Xzv^Y!js$Bo)kn}&DKc+IhdLARHxG0VF-JC7$J56Skec~$qeI(|l zo@>pS*B_?I>?9eG+*J^5Z3yWgF;>C-q^cCIv>yXac}xkXPdZ?XM){8C_O?U$vu z&lg>OWNL9tK33+7?ytuR(OUw=LUm3(DH7^aabWaNl>H&LeB~)t(;Zt+Oq@DBZpMrY zv&_G}?Y)1uKtSVwd|cx4t*eu~cBeS0uAjp3Yt_aH_XT#h%Mr6<59V%^QXxJB)I_f8J6id*RN8Ir&b-vCloux30^(6&knh&I*bZhdt$#e5#|NFn;UB7Hu z+7jWCjmsB5tJ%Y0TlVtK(H;I`>_0C`L>;SpAS3tx`WMSnPII^4yOooxx_*)P+1`>k zzH>)a{69(QZQb;wZgIHT_4{+Pz6d35o3mVKvgCQs{?jk`mm92{qQ)>ULfrmCs&Q1P zBTH@EBk@hPJC`{L+M5SI2)Q+fx6dtU)=QiBU;EcyE||C5s^e3`Rg>*>31HVC{kyUp>o{N467Up7>*zb*PPOZc4dF}At$ zuIzST50l{iyf3cu(6ge-TIR#)Rlg1}y6yCnUasZI`t(Xik@=NvSD$Y^BGc3B{XnR? z+)HKU&n=r5TN<5v$MNISr+%O37dfL?yowe!6n`lB^wVtl^<>p7znkmMxkLx?sAf5- zp5PZgp33xm-;oW++TXojxZC~0!T0MH?F|Tfn)T+j%r3SHei^+7t1D(H8O_;Lmv5Wn ze%^2Y;h*=s?dP^9Pdulb7(4rIj^hkN$tRHNP-BxOqcQa-gG~qvp)5<#X#d?Q4xVkl9e2 z)&C$uQ03f?DV|(49%q>uTl2k_%zGkSnayvFD|{x(KdJY?q_A`BS==4-y%ukKe7{qr=hyv3i$5*?B++M78`SHq;I6*<=XH-= zM|J0yFHX%^IekadJ$@HUdqGz%&e}8Us!rG4uG_Y){=hXy|NguW9h*Zg$q4xS@~8J+ zU87!dCgRmohp@ie@>z~IQ?KT!iKfqdJlouA{tWZ##l;6>%AYo|N_?w-zsUD7W@i|* zsucA#-CxQ{*x8)G+Rd;P7j<(+`|w zHPo7${n3!q>Y7%lh{%c`PySAt-qGY$srE@kO@W^=u!}<`AhVmpi*ad~;KxSMz*}5m zOe-2fq_$+5UR||yTUpwzce5=E_x)$d`Cs$k)S8wHaj+}^wr zm&wUa-!Vt~OhU^{w?px+(I@I+C$2ldGP`@j&W|r=3I%gl*s-2cbG(tFk~Cw=+tziO zD{r3qv9|DK*yp5Y(Kq#?pY1qsD(~Z?)Ub0Wi&ATRu9#`>U-8AFvM9tVRwa^k`H>^1 zFK=G^Y;A|Pzkg}e77b(L%W7JdXVqMHmR|kC8aDIe%fhhNPcn;A+ib3#QcjKDHMKru z)153E>)9XWuTOb$PW$ zZX#VV0TM;7+!xiJwB<~&{^Za-QT>zCy%X%ZuKP~N{ZyUar?!LiML*`Pn^2K;meVVZH3bc zw|-Qf?5ftPw*97Rj^t{g=Uw_8?iTXvChR`&b@sojS5BIo+H$DmM9!wjDUs_UTW=O_ zHrp((&f<5&{NcQvNA5UlOygL(BhDbyaB-$$rnT%)rI6C#;!f5GE&6!WO-SbwvxRJH?ka_Kyv%i%R8IJ7vA022t zEve6EF1zsoxwMP~PMsY;3)B7_-!yA|jg9O z-)g$&{mBWNO3o}5mQ)K??o++~D_Ep;H zG+jLuBDdu3l*!>XC$#$<<0rD2y_j(Pg2V5NhkY;IdACF5=)D{p-K6tR#ZK+vUe{hH zI%nl#gNA8JA0wV0zCAhHh5P!O_#YV$Uw+LxU1^3>i1sTR);!M%k%5*E%;EV z|7U?OSNvMFsEw~L`o`B*e0K<6Z_=a0@cwbtT^;8P!5xy1E;X108MMCtYPBq?K!o$1 z$vLTOtvUBLMjB@KCq-#SUzv1sYIUJtNYuKN#F=&%o+xTx)UDa+Y96^{@+Dop9EQ#l zx94ms$XB@=RHKuwkbFbhNXPa@sfx*M{j>Wly8gxg`nPU%By(PaZun+{xouLZ=Nnzk z*R0-gbn3>Z7faW@U&24Rb{c<1P~q-Sga5%B-lg4YOXOZ#z_#V{{pvfLI4iXEQzvgZ zwEJyHb*}lmYxh?XtjeBWJ@~|x)QSHdpYmFLKf1d=Al3Ado#PK-$3tsgznL^?X$9vq zGwB^l6Ym~!ko`PqMM2WGu9kPDPc{5)r4M|1Yh_-rHRfQ`emjG_kKZ=jQMwgXX;By- z6x!OK>Y7>nP_u?7{+Rf|j(uk*e|yQ##@pR;o#Erdt_y1t&g_*m`t;`YHTU!Ec4uyu z1%{O>zbHAhyYWiG679~G4Nvs@)0-=gZ(VgwPx4;)oseDgC%@Py`+oKE#ZEt0a6B<7 zKD6(Hq-flfjaTPASP)3Id$%M}>+13y3v>J4 z*zEpXQ>LzWe&>O|f{9s1tjbqXcsM3|=ls~&dv)TB=nbDtji!E3E}l1UZ`jq38+Af_ zcbYxEtn_$_;Ed1ZdwC`&-uip(-RI>-!cr-1S)mVZaX!;p_LE!VjUZ?Kfik)HJGW<7 zm{y(m8=K|Ha`Rtr+m=6ddE|7Kx-?alx1v5FA|cTzu61v_SKUJ`tDnlu z)7O7{pk_0rJVorN!^DgF4)T{*ivHQ6bXVy|W4nbB`RjHv^~^QZ7u)Jq9sKyoBSien?>*bOpV<1m z7udmf^`6kd@}?=rckEfRX34%iiT5M-@XH_VRoz{syLm(U%JQT`?S|||hTE^)O+9(7 znUnYArY}cqPg?M5ubRqU-lq1%{gKGIrz`C}96r_dORec(?we+{p>pDnti%7hy1u8l zf0|vsCCSg)=Ff{W=Qc|oPu(&>!cOVYl3x$E-deV8+mowh2XA_A>i1B%&){}L`Hphp zQ?KvK`f7i)MSZ({$MnO$`-`tD+n8DUa@DfU{CoaQt88*q+s|7Y9TS#EpSyiK`=)J* z-TO8CG7E2Io|O=&+jX#{@6gM@i5nu*54)SU$ZlV}$3OnpvDbOxhxtWLS{?Eek2$|{ ze&F8kA%`ZundKsLymHOwt>uxGi;M$iz5b%{z|nDcB8SZ{L6_^3*X86-X)V{#+S^wl z7Z{ea{(j`#TOIm^dt+_+-^F`**f^&8+|8?xrubIo9{xs6v^!#YuzmTx(JnLt_ zLg(8}n{_kaJovqrm`QO9RrNl}(b$+8Knf9~vKwC6SWvh#c9A;TP#jRukHE@~W|z!Cg! z$25+~C;$DbU%&k7N?v~P4_{Uo$NDK56dpP9R*7@zsYjNg($&ZQ`^n5$Vt3~+i~XU3 zr|C0{FC72-zwE?<-;tZy4F8lo{v819q>n^eBAA52t z$LRR!{&(x8uRqY@y{ga>sLyrnXP;=8Pgw7Eam%zBpC9EVaS4T$uKHHteE9b6)k~Wn zohj!&J=x&-o^xlTw!JV<-Pe*Sv)HJPM?`gI(j~9TJ=}_S&p2ABG$jihDxd7^$hK!e zgzNE;c_#{vuKrTV_}Hb#{X)-Er}>BOIys(KjY_{HD;RTa@5%IymX@=(3xphcI(1sw z>7*ljckEsE&(<&AS;g^#tNBEUrt}pL=5T$oPkvw@btr z*MyqLz?Zic-CY`UV8f63z24WXb3c`TjV*ljx!~ry1JY&uMOG_ReB^EZrka#oc-Zph z+Ro3+Kh&0&?n>NyNB2;)o~cS0fBp)d#bUQKs(98soWF8S>(gyInwRy>IUBS#JzF;; z#96QY(d5t9?SE~0^@4Xs%lV>T_dop(Vmpk_~!l|5!=HhkXC3Di!zP)jOwINuheunho6QRpa9NTriq3(0V z=Z%N<|3AU-q~Yj%iG|C5RXsEdU1VBo5xnF0{wuOuA25_Z^4XTK=%I;DoAZ7r8;Of< zudeTZs5vd=3U{NaKvaD6`AI99lcvtBYPxdf#>R7ZwroChCnh%2PH^FW=JJ3KSXK{$ zPvwGkRq%EqF^={E_aQ+Gpv^5o$L^WIrc%vJP0cLeT}U%?Gvs-CFxMp&vUV8PJiVcz z1-1?(e4;)CWg-;3xEg696vT&mi1@yjiLn{dJSco-zWCeMuO?_S^Tk*FxuG-jQ|+I$ z?sMm?1vt?QhbC!RgoK2IvxJ0? zWnSss&%6Cg^xwu^+Ov3@`FiWU zyLatgr@CjeLrTbg%jMe6SyMx}H&)>G_-MM$ujOO28Clvekt?%7j znYVj;H>Z8^n_(XK?nU`z)8PHDONw(+qi95c^<#S#m@Pfy+5Q8mS zOs)qS7#VB`DLCV+d&C>mb z3Ke&M{nUNwtx2iKDPwOVk*1*T;Oq|cT{c(Nov*X*(_Sh?d685Hj%gepZkC$#ce|fV~ zca-q1TTiT|cg@;mZTV_hiO-yC_Jwit?`(R{xW@SPZtbW4Y*Msey?c|V`T6%-jf*$0 zUA%Mm)J2<>rJuIk<1AJ?CHpgPQ_`>Uxp{rQIoj2`W?A1lz5CYFdhb7xH>TXWxZsZN z%)2*YFJ6r`Pruo^?_KIA{u|TEGkNc_9zA<^Z|kR{&;9pdTYyjR_+^h>OQIQXGf9Jjb zzAV3ffuUc5HPkH-n>ramarDdnj5t;U2intRJ7RFo>Qx^-PRf!^f0ohO1{>J@fgD_Lts2t;5_T%9_`_=6g{^vQ}bD7=gt#-{n z%J!xHBDXxVX3n|3i^AtFxn1Lvct)sdr7N3gd`JC1KwQic@3I%cdGw+2& z-8`-BI#Yiv39)H4^qOOn-=U*cKg)iu#iY*iv<@&0Z)zFmgAB^a}vWe+TRPg z=~flI=-*tx^zM*_5%<)T)dp|Yr3D(-glpb&O@CMWLnrsZ=F97AOwX_?oxCL^DzTyJ z;l0uWr;oBPUg!J9Ywc!hPv`I?&#Sc`Rp+c~DY=lcq$TIW={~l)x4*Vu5M2JR`{k+Q z>2aULv-StM@#I+TldE`SlglW0Vv3@<2-~l$-M?6mEM3Nu>|1xEa^m0Yr+uPLoYq&~bls8N9AX#IxlTu~DeZf6 zicNk}dGfwD3tf88d`LIpO0y2rbGy7Y`-A2DZWGTl{uidV1qy7-(^@tm7`bR3hq+!dv^cUaqV|fpY2cGG5Gnka)OQO zzqI^ms}^iy_{KP&T{xyvbY5%ZlVxPVG>&R`Tu_a=kOO4F3q^U;@ zBBa-Fx82=vSHLo>qqyz()VG@FGMSF6X{^(+{vsS^{l{fh{daq*lioj%WeBgc?E~qbeJJQi;r1!J6L0sgGR}!LmB~HR;*&UcUe)yz$s*HM~h`*CQL4!d86X4RIZ52#WQa<&AR)bz%J7H&B-3y z%!dLDeOo5+=D+Y>zMFc~9Eu#Syqfx82mh8| zdlq#)Iu`ZfiNA_mZ%?l$_g7=q_?=&`T{Z8&cx1|DH_L_INr~0vb5xEd7H%`DU2n!( z^wXW;N7IL;(kEYueu)Hh2vPjxo3n8d=J8K0;axxD+TO4gPuqIL%t zY2I6McM|0zp^&o?2&0jl@a9;15 zI*$~MH!kJB)x+QLe~#+g!#;UtYcIweeB#slUB8XUo_2y&*I-N$sHGJyfWSzhHg7J`-13Ify1Zk3oDMyeSY-N=b$|a zaZApuyY@2p#q>-6^8?pCKGO8?yw>I~yP6+V@MuY~epKd@`tobqqQ$Ok8I1c*9%;+m zqd28#=6elm^TPIr6W(pu7P|Plqmlg^C(oZ6xpvup54x4Rblyv^l<;AVbXJwgKE3~C zeb|l6J4F?udza6?ZDQ2v^RG@!?-1)=ds(YFY^>E=SgSv`PGNYjp`T^w+TQoPMcAw@ z_}9E&!e?V+udZ!KKIrh~tKc4)`YoS$j!CLcNu06U!m%s)DDSE1SLG+NufFoezU&wK ziJ2#UDDoYziMbdO#B|Fj)U7N|YRN}ytIMEo_F#0dYP4V zxo#Ko7P9I(wQAeQf^PrnPsQ!))%KHHQ{{dG^fN zz0d63%RAE+UUSI_UmDJSb^U^mbDnL!V!T6d$J|x^#=_DQ_iLvbrHJIe?K*X3$MOSG z_ufA`y~6GM?dj{~&sRU6%6E0yw66xzk21~mF68TZJ9i ze%;Sk3CvHAiNyLX^V0}8uHt^U>crl_3yasD`t1HRMM+kMR8=u(1B}xe>FUxh<<+; z;Cf*~k;3B6Lk;{L@n7#0J&J1AtJJ!isNq?s60mm-)7C=?8rtDszwh7wHLlLw;?bnl z8qz`{=8Q}A>#Y8BObxm#BE9|oq%SiH?ANZav0_r0DXuNAmlW(_m->KfN@!iz<%a#H zHM7qIZWiy#u#H*Py)Q<>^Q6qjZ^vcq*r(R7Q_-2rCU=te%U+FzkK(=B7s@Q%@wPnn zj}Gta*Hx1ba;!f*^WuhePOR5&MZ`sgTf4lG(b~kftf}q1Z@bUbS=Me2` zGK&iCEt0Me`;8Uv9DWaU~o#Wtp7JRtJu3GjUv&R3dN;% zt*sm8bN#4s4so?v$}&&r!RCW4!f8F<=GF7)y|uOe|3kR%&Z5INx8Ldi&cFY1fzRTr zjee^`pQb#0-@JE1=$s;h%}XYDP29W3SpEDuA@h)ggxXY5?`=~Hmld9{TPT&jdB?f3 zobZ`zbvNm5d;E1zwf#K{u#9^kb>%}~C!B!>jv<#@>AU6UmH2^9u5iIPFdsbb zp=)XkTHIs+Iyc9XsExO1BOjopPuO?*m>b|9`2Y=gBX;^YgU3GH^nK9AKEhE)KQh6i zA4qGNFo!`PhXf)GhM)|EfX)*|9tr{RNgfI@F)%Yl8V8>X8VY&7&DL;2vBQCv^R%wc zd%%!Y*lXOtgwl?gS%&l8dd$;?q zwOj3*qU*W0&9D`}B#)^}N88fSia1qf_UCCFP|=R`x8fcezpN&fda$RQrX4TuTINeWmn*S#cU&)uxllnHZR zeoC8Bx5M52oks_M*VfNHd^}yfNfOV_YHZK=F58_v?MT&;qv|SZn&rRNd+~9^$cnrX z720KXruz4;4_^hPm1@^4JD)P6d}e2lxN&FX;Ty);lI+K3&pfjx`I@n`g#5ATg~?_{ z@6ME@32&YedFV`v&5Wfz#+!R0&z(sMGtfKZ_3Zo^tu(X8CwCaFo@wc$l6;saUFM~T zq_Ntpomw+BGv$pEJuXd%zGQjH>7}!A@6G4WzCGKyDRYza8>MYiYY(^<#YgRkzOyAJ z>1M)B`!8#zZoVp-eehTE?3HGnhyR)Qn7_I6;pE|JcMZ2Yl8wr9kJ!w%D>mquR>kQR z*c2V8B+8$t|9|d(PopDujlaw_aO`zXNvT`5v&lA|qp|2yYkSk$>v4_FU%rW6S#7sv zR>p?|24XW`FV~k_*&D4fVcC7{#N1z22OH#HZM>)8SS{1`zxDAF_uqFaj&AxNxz~l3zn7H#JEq$B?ue7$vPtlvf&ylLZKefw$Y-1p&<50W$P2TH~YGub^jewOi&VBCh6)^pPw z=1au{cK>5LSt+BRwQEW3%UZn}+b8NA?{`$skGQshBga#1rsEq=gOA5orf99Yz#O^7 z@${*jv-7@`+*my=eL`l-_rf+&gVm>gJ7u{4kaS?&r~iM|?>9%Y`@Q`Rm^x&qa!0N? ztI=lk;FaTTh2;SgdD*sH?_PXc)n7Bp>Xz(2cbQ8581-x)3%TE%1wW3RzrTQ)%lO@- zjdA-tA2NOl)`|S0UG>-XKUZ&iMUQ>aqmrY65A?oPO*A}m?{4{0r@-s7j{P-GH$Qef zGUasde5?^CtN(G<=|@&`oC@#sb*4!1DaRE(`g%GeuBIh_Q~87L4a#1+RnZ;?Xo17@P8k*37!4vk7xAF zTQqt3la$x*H)SbZ`+TZ0ZsqO9=%0D|eXi~M%f8qB{dYV1#ZmR3eWj8c9<_Y@b^Jk0 z*EP1}ojMbJc<1@wX;AjNaaFrI;?e$qd#$=&H?3cKxgX@#zTnw**>V4(IUi!C>u_B@ z`}@D+?S1xf7t{4N3vQoT_Uz?l^%I_k0>TxwisziT6;t!C>3KZ+^L4kB^w+7!t7`au zp5^`=u0w~X(O(RNF&*Bd0&PZfxn?2=WuwuM>x>yBVyE zt&$y2>J~J)+z%D)U)1_WYHON!LFWWQYZbV z+`bkY#3T5&a!!iE#l+u4~@1>2dzC_?=aM-h@8fa;ZI5PEz!vUQL+) z_ses>o%p(EicyW)x@Yk|cc#bgDE<1Uyh!>y$BzlBa{3!R($(w5z7`)2-H|9@l7G5j z;<-Bqs?rVy?#wtAwC&lIu04)QXRU%ZUEVzuiUD#8a*|=4!Ss zUhzyathdrlt4p}2{?;|eed{)K>8(|a?*HfeV$pP&Wz65q->qTt|M>mxxyc{z9Wgo{ zdUM*HE0An1P->*z|{Y3WWNA3&V z!=hPAw@OY>ieK8uwc>fl6CL}zrj|96_y24D@3!pg?^-6;2EC)jT29{uDxO@}R#IPh z(L5nLVXr1vV#yw^4zsf>cA2SryS~@jdHRZGM((|@iynJK*hhR;?eGdQC=Z_vvMC@E9h69 zz@51veEHQaQykfs_pk2l>G0;cT@&;3ejQlKYnp2F0?OdZP?1Em6a>26{ZEt-Mbobd*lA!YKf(< zJC6%xoz{{3e%EJC&$+cHM7h>8eL58RVdKS3Y~i)qvjg_7z1cj^_+X;gMrGmp8NJ)m zcdh>F{?tyVYEMkfMAb?Es`nIa&DXl>VkA>=Wx0vMmC_T@=fAyr^-w~_|62azoO#~y z43~A&%DpdMFrV$OADTVs#pEOnruioo9M|@p^bJ#8Ik~Yr{KTuR@%#}t>iMD~Y_jLn z#ngo~MlqMpS&@G9%s=*}nNnZtHsmtI?v2@V&}pt)@rDIn(Ti6u$~@rl>ZeG5#tin4 z%oSHQ`z~m0+w&}@S4wEdzndaoCcP>9l6Q=CnZ}gDc&%SaJn`$Bk4;;X9lh)6DZTf9 zvwOrWZqMscDf6FmK~VO7eOTl^_D$uhKL>4oYN$O;{ntgVYSTVj?R>M#a+hV+=C04H zUVo0k-q~>DrJN@@A08ekOOiP|;hFz?DPF@%8h4DCC4aem`*NA9c4gSwOPtl0jLRIA z#4k*%*|2W!pC211tUK!GBIROnux{cbt;&DwZ4o~4d-pK=&o<&Hdt9Muy1m#&Z^FZP zxjS`DXSUokJ0 z+Vb!2zt*<0U3IOw;k%jdmWjk47X8yXV{<^>oh!!mzZa>mvR&(PFXm!Ez{<0yPo8cK z(ffGdTr)d=$aOQ7?V6(hI!|^s)jKC_)So+fL*Btj9YX)t8T?!~_vFHmy`oTg~*IAz~{gvUn`cbdo zXEXnUPjjswY)s{@*m2^#ko~{a`a!i$&et!rn5jLxFFSQA zczHTUm+!`{(*659C%-w;dd_9jn%d8eB0n|fJKywwEU!Lg+SPu0^M2mhx3`*{b-7#SAK16^ zkN)ITPnElSyu*4XExK*NxkLKzeIfVOH@m)Z%C!A&*ng-r*sfG$|K4+#nv||58Ko$6 z&3YsAw`ZB=(c3GY7e4V%Rb6^?dha~B#a@fl#F+0jUph9;^hxTowC6$o>e?O6J69z9 zpL)ja$E*jR)~D3XU8|veKR&$m+L273L^aU})9LeAG@F`oFVuN?S3h7VnR%wpT;*V# zuUB2(zkAGAGXGCZ6L6h;xl7n?!QHOfKk_Hv|FNHNUr=Y}iw$iNLf>O*{?1W2SDALE zxGY4_>A<`2^0G8e-YDk+?y7r>-V3;MF~1R&|2kuZ^v~HUiLbt#ZuHwxw&ylj9ye5>H;UIA5CY?O9Jr=P7>|syO+W*C$M9T`i;7 zaqOU`fOSA=|IughZDQ)8tF?Q6Zei)lUU~d%{Zr+p+-3Ti_j9$3zBBs^8n>VIK3vYd zJ6~Tnp0n@4KPNAIpP}L9l9&~%9n1qQ+3xY1Ktt+JIv@a4)vfy1okM`f?cuX=B> z`Rg3!i4!vuk3@(6}&<&p&G-;QyxvpyTi|xPUr_V8&^)h7JN%l+M z!^Njed(AR?i_yi^65Fp%nR4>PG^c9`os$+eEuER&JN4+pByH^}SE3`c*W^e%t7mKw zKhKOg>H|3T76@u=RjwhY6a24pc!}Zvx_i#&y64 zh8p5p5@?C_=pOiL6B9$EEoDCXc_d@jv|>8?myv;m ziGh)kkqvZfvIU5x@OhYZsXS?2D>pE^J7S-W|dyLnhv{#YmUJy!601poIC0S0D9 z#=PPt=lp_7@QySEjbu#)LrY6@9R(u;14{+R+|;7Xc?;Dr@kYCRD zL+A9=v&`S;eP19tVfLzHt5&R9wtD8eZjMdU^HT#8f3sCY%C}UuR(Dr&#I8x(_iF2R z`I$3nyW6U}+N;{+D!sG961q7mI%dvYGSlCLoZZv6c%s~_V{`Yf?dDkCozYa=S>0YM@AP{|XH!>4 zcZX#4jQTmNCobMNMQ+lPsaqz@pRl02ciL7CzMm%DYkvG)!}vq#$9vH!8zxS@)6FrN zZSJ)0c~e{Zo8%L^V>{xz)w`?vn!ES%D7V&jSJY1Lp0jLucTH<|XM3&uZ>c|Pn=)IQ z{JJGe8^DsY<$r{*E$Z&+nKb9d_f&}qGrIe`dpKq^_BPdab(A&BWf~>?X8Ud4&7s5A z)ZN(K)Y~(yyRUBs2VdEOAI?+1m-Nh8!1g;~D*GC)E8KEiEavlhIG0c0;bCCV>v?aD zCG!z|wh`K8iO{@fpkQKd4!Tkpmh;R|SK^wX9&7~S!ZIGNY-etWZKxBzUJyqM>jryu<#}JF z_p{c2z9AvunwvFqXTsGry}y-rzkV7PW4S%W-~4#@U9)GW{J!nqS@-$Wf3aV>VfQcG zy&0?W(|KO*(emss3HcdzpL?&syyq;l6;oc}e?zVs8*w)>rzZ(J{k zeLn4RlHvUGhj-R6@t^;C(`FA34}(Dansm$*ZiKWp8*lXzgmL30IF0KXnJefT8JH+o z7#S;=8^F(_MqbTmg0kEkrFJm_ooS1GOy9^DTSCWPzkp8f^1(KGkGggdad;Qn(Onjx ze2$z&Kzx$3h_Rs&avoV5US1IVUAEpS!lt88C}?Y-$Gu{&!UDDgqm!zNM^ze`(rz@I z?do0rVSk^YTXM&z{!@KfQuXVf-RIwr6O7XnWcbp<9{rkP%6VGt{;`XnEx$ZAexbf2Nv-zJ zp$ab%mtw`LwA+vQV`sJBl6Tw09(c=HV)|jhlRTYD8-tY2oSl43?^I8}Z^XVoPt%j9 z>&EV~`S!f^rch#|U9CyS)KW##j{EsX6xy$1pw^KL45Xng31AgZUTRcHVwAulr?HfO~Y(i^SXs zaY9cnTwJ^`I3~sUY)$wJmR}de8~7cgZvHBt`C`-CC4NcQ95weX-n-#_7<*TFRcS(4 zw618Hle&ny3Ul1T^7h$(-_BFG`K$1{ZiT$Pp6#z=zvk}T{at93wqw)&2IR4Dr>e|USL=K6sppr9fKTnq#wwxOBhLN{ zB0IjH-P-FO|9xV8{;xM`HEs1%J~19vlu$12tmm`b+kWQ)CzHwS^1X@4$GF!YHME%& zdH7Fbe9G3Ja}&z1O_E>uPGd_`x$YLbugmq1*?S(lFfH@Wg&yt|znG?*E#mukJ^OzB z$)tCAH55vh&s=`{!Gs8wa5G=s`(NHM-uz@N$CD5xz3)y{`R(O2}-5z#m_X$UyZP|H1b4HEAYOATO6V?Yz(_#N3de1WDvs}S#tB7xM z&lYCw!uO}j3=Q2G1-;^{Rvi>95IFlnH=&)i{lNNmqogG1^>4Ph`8CC5Gj?5- zGp=9s{XVNp`p2e(%{yO3WKGMOec@_jV!znDzg6o7zhY=>WFVu^ zo-J|l;y1#J3!cbs&j{a^6V12KdTyNhzxlEkBFWq9x9|vGZNl-{Q|5WqPP0^f8FH^(ql}@@|4&`$Up{-qvZqxE0{OhLdoGG=o-G$P zd?BU%?YMG=>gw;7>N`((AOBc?IQzrKUB(WQKc&`-tKN8HHm$7jdcg7tFH&-hQVcl* z^*`=o{lum}@ul%e$Fp)d*Z1{Ij+b-pUZqy-lDyPJ%_(+*=znfA_mFqztkQ2p9=Fmd zxt(}^ZkEi`OCo=T_idggI!$|HUe|I~?c2!d6b4uz%4BVMaY;Q`37hOJ2YA6ra!4 zvuLOJ&Mi&zPRmcct|2Pa8j^0lF{b5cpNz)w?sCJcXWoQdb$I_fcKe}pPXEug{xeS& zoZYE#NIXvWz59B;h4ov6?k^Q6>+|k@QCZV2FQc=yuC~|c{sh*RtE(i$!nz#~6wHV` zQ|xnR)5B8n-@l^R`6vEc;+Xqm9{)_42h!c>zgqp9Re1$Z3?8K4 zIn5K+&9)*_8Ckp1Ab=8=sqe6>WtY7oNOa zVdu5WX`kKqf5$dHxFLCMzpp^R!}1Q7LuP!BdX+v_>Pbn~&&w~rEu*t0u6ga9UsK)% zP7O_GRXw+A*Efk5ThvY^m15S-oyDxcG{&{Hf78LYNu1@tzY_?>)Y&pc>Tq~+3{C*eU)2$H0$ci&b6KST|tcgqWtsr z#a@g}?<P;U+UQgoA40QE%R^(iCJyNIQ`NWmo-KPRr|1;d;$henqZecICM3LfV ztvr*D<@PKMdw35>-Tm6f_`NQk|0UO_>WiP_e=#+DZ*x5q@htR&dh&(BFo8zxEoMz| zJ4CpOjwHYMBq6?aLu@(?gYcx;9ebnMGQD{l3Kk=H^NjGls>glIcQ-9vHeVSaq_tU|z3JaZP z|NOPrGe3v1hTAl(b_uWRRe7c82sySJ3SahQELo%G<^IpX;QI2g*DF;DZ@yEKG+vsj zdiaR%oed#Tnj1K@_P%QSyDn_|+=TBk;Xhcao^T7?`5v{;Oxax{$@}k*FD*yZWxkv^ zu`y6@m(97S=Bxgso_bU?v8VS{Lh*vB3DZ@6kJNZj15pM5eeZQ{%7WA8Ke9+k3Z;qu+M@yvobdORlIJkOd0 z{Y}^FyQ?0wSYz`|qcFbJtT}-jq7`-*&2VU4FQxJFU0&YX3&n^hw%je}uzj1gl56LzRZjcfP0skX_M~U< z>8Ee}r#z8b*67-F_av*7|I@kF3br;=ZOoU6U0iOTH~ZAQ^ZxVpn$5M-cw7DZsY;9O zL60SEJEGUI&0$Puu9S`K`y{n+PQn!%|Lter%kunN`pjk)cWD7zR2P>|lwruDsrNn^ zoGyE=+QzQRlOL*P9Pgv?sD4JYwtCv?>!Eq(r&xY5eeJ70x%QHp)x~zNH@vXq0nsZn1t0kYKT{dZB{cK^8q&jay+J`yW^O9Vzys(+ZscASh@YR7#bsloPy8^S zu>tb>C-}fa@i*Q+^zD+hH~SB-xodOgu8j`&{`Eq?<|+KJo%X+a3Ij8@a&lZ@@b2O| z$JD^ID!0xiw@u5M7A{@7v#)7lW8>1MgoHOq2}vm_g?}#|{9b!{8mm3m zbK`Zt?w$Kn`>x;SBB${$^-}+*5tDZt*zZ(aye;p!^ZO^aPVOz%V3X z1iXnVDA*@BBm{KNX$bVfS!k-#H8QdU-$Rdd{gf$Ucey2McOTS^hb1hKP8zGZ=NzV;nMd_tU%_W+)M?MM~nm@-&^CX@2Q`t54$y3KS@6+u}D8zKRF+Cc3CRu z(%{4#{nU!&oWxxHH1GmH&^=a=v%SGbj)6yj!FwEw;pdH&=$E4&^=$z<+8a4#gZR)u zB|c>v85V-NoC&tS8^yYPX7g?Y0%QH(Rw91&O|F*3wE~ zVNwxb_Eb=G65{yT`eBNLgU~!Bm!<3auWnwm+G1Ol$kyA*yVpgpy?SZ-)Vsm&D)g$) z`CX8Ty1Tjl%}M#m*2VAN|9kiR``>%>J2-e0T$BO}N@AQ2adX$yr+)}`{j-JPU!-Az zZhU=ysz6JpqE5m2Eu7YBi|2W2yyu+qLq$=nQ>1cPhHGEg%!$+1O*-Q>SGO|p@6IN}R6uExc>JUr)^Rt(StyZ42 zdAqyDl+5+#=V=F~uehZ8@zUF%)O{tZQ+7J7o3v-@9NnpR&g(t;ryMnL?&Rf@v{Vbb z)&?z|qtKE5r0a#u)3VStR+g@_weC)vHgDqBPulCx*2I06Zi;YTqq3v8@bk}K1^eVIzHqAl zy4EeUC&^AocIke9t6eH-n?r&Rd~rF`box;8b00z&B-6ML>iVaI;rvGy|a1sr-KXhb#yh-dn+#S1TzK* zPV{Jbw!qR{pz!yRm%5*&BCF%(-ejG^UbeI5cA{##*q5iyvyqH z46lwa%)b!)qSN*Me?6_t;zG{XjL*-%?0qNe{@y*#eZG{$hq^Padkxgpo}D${7W+Q^ z-Sp%M!bYDKU7g<G_um~(#ozPM1{Yg)(VZMz-B91u&PW8<7XWHtJ7kKYc&y=#G zalE%zzt!6tR&tfB_X6EuHZ9%FDn=3WKR-w?FA$Y1)O-9`xO`Vz>;0lpC)CFDXJy2^%ZswtehZP=WEhaTd8f9_Hnsu>={KzX zMf;gV6yl@zt<&+F8?ix)H))0W`E`=7Y=gJ{w|G41>-2htkm}!m7e8O6z3S_mQ=d&% zDA>DBj@uxp9UJ+h`ALN7Jo;yagG0W+qxq0 zPL+x+nF~9Dhag%+XW5(yMaHs!gv1=eGK4EnVlJ`quaD|91w9vfrL@K3=1A z;oq6^^v)N4suH28Znc_|r+?U2X&o@};`H`^cY2#HuHSv<={2iu%kHGL2333YZZPH|P8{b-}->_a3fJVzG<&l}T^t{QD$*`hw}2>+e3x%qo6kw^gLXJO1XThRW(` z_fza29NhVMP2lTz`|IhvYh)cxv+rP>Vx%DTWzpAr%*&5x{8PR)fki#)&D5z|*Lc6z zyv2Xzt#|$2i;3?}e%~;+_ifqowN|TdXEC3;7`S`6>+{I?(^7LKw{k6brr%wq zx!!A+b?;RTotp^_U(#H2J)O4w%Dv&GyKi@t!1>_v^EG|T9;YfKn<-85yHoPy%ge>? z|GrE=?D_Fy^rU-`xXn)B!X?)wpedH01DCLPpQ|5;qpersvSs;gd0z3*OpSX658gV(0FP9lMYKk1Tw z{FTT3=G?LB$BX_vHT`~|rQ+F+oWt(D7BzQ%oUxE?=~r!Q3NYdlTBstT;wJth;MU~J zdgnv5j5k{sf3LW;dzWO5<%fyocAOjXM1JiLSMO=Nq$*t;veWh0CfPKNC0%n^eRa3@ z_sw068XPWr7TGPSiZ!MZPOXKf(;oG z=alBXmj zaq_;4wl$2c^|RhhOnVtpdAs~+`PI-HIaBxXK-qN<@U%;9D=h!dxz1n3}5Twh> zxA$a3mZ5RP9+|S+`&+JQp8eH!$Z4;mHv8hUr*2%?R=VKOqi+A%Z;xpS2mE4cb_)-G zWU#rT>+qGV=ABDeN`g(!wjG;wORL(n`H1-1)u*@P|1;#$8fBYwr?^y>Dt`dG96PK6T^TZLe>Q>{?Pede-dnxBS9u zQta8~0~fDt?B_7P^Weea*B64=JGYu1j9F36BrLTew57EmG4bApPL_}IJTI5d!fdOW zm@614K$}%~+p0(%Aak@1kfkLRJ3ydjDM~{Wd<`RPX9;Ep2z2Nyax)Rchx&(vW}+p| z4v-1jK}fa#kvc&7B7?dEwDIS~gWvzYn+EOxz593X{GZy}{W2F%7FVg2`#*}9y5B;5 ztKITlzVEglk-xs~+_zot^iKW??VYUt^~D04@%(o7 zj!H=hhF-bM1}sU5*m+J*XD{b~U~Ok#Ur)4dkD;Zpf~l#Af{C#qW`Ekm7_{C6-k%0@ z;oTlXOJf|}9?)bco-TEAer|3e?0{tO<$x&tYmlFilNX3ja`G}UH9=ZN1Mgp#gU;D9 zVKNM@hhKs9*ZRxxee&m^J#6iI3GUkSLVxC+`ETpj0J;Nf|CXhf>2e2F!wx@wC(Gy0 z#imSKBBuG{+43b~Pes$0Jy$a_FffRY_B1y5VD!PbtTE>Jqp5{2+}ZDcKf2#pyr#V3 z@Q=HdcAvk0D7&~=^!B7ptGT_s(?!?JHC$VNN@VA~d-LAS%j>)M?$)+7Ve1|Af42R4 zckZ2E-!{%%VYT}^e$9>L%kcUxeat<7#{S=L#9{+&_FJsqv%@04@aH4Z&*J*i9{(;} zQ23AkS#ytce_edpoS(;A@b8 zd?oYpK5?Cd-*XM7)+%0?%(K)J`~1^p4!8Qp4+aJd3^LC*?!Zj_Mo9D7cneZjpAZkX zP;F=5;7Ig4r%eqMEKN)lsCr?h3I4?_iFxTsMTyDTsU4v_(| zpn}CEsYRK^*|~`&8Q{)8$b?j|DliM8DycLlC$&UBH77MUHLnCTERb22n3I~9oT{H* zl$uzQT9jH?nwSH=o)gN-PX{gg%F8d&&rK{SF3H!=&CDw;*3U~#Pb|sI&nwPJEY8p` z&dklsNi5PYDJ{w?F3HS+SX`QyS(aKdqIbXA?IEYpXA(YXkl)ElzmI5RObX= zmp%TzH~F`j@8KH-o*H}2N~Bz~oo6j_T2!)P@rAI~-rl_A#tSo^s1;7Waj@)>MW_6a z-2Z>-W*^zeyyd{569=A7Y@O0sl5@&sn`f|j?p?Kos}5Lgu{Zk~^W5TcU-HtFOKGvM z?asabbMAZbx%c0fuKZ-wwJh`FyT9!9Kb&Gee$4(8Y_fl2Pkj`_jr~8e?kTl+F@{W= zfB(dszefL`Mb&+l+V{!(N|aH5P~hJwy`KULUx}19?()04R$ZBU|HiL5KFcqZo!oai)8Z?`b-mlGgR)ZZPx@Z8 zY0|G-mvXnS+P*&i^vcxVp>O9z-CQ5SQ;^lW$9-Mc>JrZs84Go6!K4*`7M4CI)TS_j@xFLg>S>PO`}{5H#y(det$V5 zv?%qt;nqECXJ6LS|8(?rQJLy>Pl-@3-~O1(u7OvqR&9Jd*L1FRYLoAzUt6!fjw&zF zj9awg`wEuQmaK(at_0q4W`4W0cFTOe3yxMU?JqfGmnN6Y@e7#r=-u?-=#^=&6m=I$ zzqC$0KfRSTn#GPWzHUcN)DO{xkw1bT+6FE@p}gzp?p2>MO{OgVe@NM}j$3L{&r-$7 z7Y|R^Qs8N_gnh0aZ}O#8HE-1;OLW{nb6Ya@UwE$~9`i46o52^2miNcmU8^pn8%^-r z9J+`5_vV`8nQ;>r2A*$X@crm5bYkysZI|}udkzdvK6kjD>6W&~ecVtH!1MOP-EV%= zCl!CMmXTX7{H8#O#qhlBbD#7*H}l!dON@3z@)W(8_fYTqJ;Qi5HMz!$9+s-5znRWX zKE@vt_~D>Pv(*uUT-n$2WKL)$uR1Z`-`Dr>`I%ZJ^E{$#Jige>6J8+x*zn`I(~Hxs)$9H@apChHUzz?feDbzizkj!6@a@;;`MZ8AE&BKM4Jv;G-R}Q(OyoesnS{7|tS|R`b}Roh;eOC9wnNv2Bxk)j$2Z5i@Y<~fZ*v;o z8-)Hj`%fo+y7Md^-aqGA{`mY`Jt@Jka6)HfvfARiDP^0i3+D^eYuxJmC8Ozng~L?+ z#ChI#6CAs0yw9`nI(iFb1qpPpC-JO%{#xZl4@dryJsYwLmqcjD>xFTMr7j7$wAAUM z_w+W`?d$e@uT!b~Yd*2^gAu22M7vGi-pN<=Sjq7@|8rt1e)8yj zpS@?DVS*B;#}A#)pIBGE+w&>uwMt{bUyIZE3h5;^VGZX#?N+%bGRKbZaDvIN-k!iY zhi-q^^?TZa+v&|x%@-3S`Ye;vO{(f_JUS@gT%ho_ zL&dM{_)WnpE!VEP$=a3Aa8L_gIeFRwO_jgjD$Py)vTWqOx_F`ogP)OluV?dF-sUW^ z>E`PuoEQA`$Gzo`ZsmQ$)gNEPy|(*cu#Cm!*q(hQ4YprDe2br0U?uqBw*pV%?)z_R zt9k4VPcKvpKlE6h=~x!iWb0k;Prbh6^M2>L)pvPrTGg&>ytL%_r5`V4R-OGMZoIUt zhV!rEB(By&0GCwn>8PGSTFg*(&oh0eD2Z4roG2xwjSwb znxs=NxP8j4N(Q$jt(q5499UeIcUo}C(_{7V2jc&)-dVx*lA5Sh5+tto}5(mC2 z?dhI!XmW-1y}lE&ZznDK75cbTX%FXyAI8GB4hYQBWD4H%V&|XFO@GXPs-3*?ftvOE17f3UH&_(;o2-f6IEDSi@6{!?5pUfyLyX&3J@eXWeIfQ_i)~tIL~gU( zwVz+j@7-el{oupZXRF(n)f@bkGMHi4aQfA*$q#ye8`otrOsy?>JKccac&&Mqea6n4 zpR%32?z^SV|JNUU<6ym3C%dwvhrsc!Su$eFZ=V!PE6h6aYE$D@HXX(2Q|Hb5U?+m>IrADJDAIDTP%*vEZ6>pH#oObrg{ zP3?3~Snwp^#jG7!I~9tX_D`J5?K?s8Z^HCNUmpcZsDEretg}y5uFX-%-p=dHs;Z+u zPfdtwusbIoY1pnRJy=VF$4Bq%@vwPKMy|d z@ct;bFZPGV(-_0YyH6-^sx9z{=kc1bv%>s-mi*@SGXcrlBF-G0lBRhpIOBLV*KrwF z`*NM@Sw;fgtT(joOpc9lX7Q?At`I*le}YTU(Gs5<^Gs&Mlr{J2*5qfN%u@IqV|s0a z=FAW6L5bVEimmo%JGIR3>Mj=DdHiPACv|I|sr^sgw6#zE=j{5$A62H`j@gVdK^o@A z+l&hKjtGcw({}a^LhD0-?{+aXLT*K&E(taV9ddwJix1|)`w>Q_IM04GFvGT5(izq@ zP0TF-H9+!Gpfe!_iAAY-IiN-rm<4VWp)^iFJ#Xa335ZW}6>mmANz)c#=0 z%Ib?fT?_b^8g1TE#nH3Csi)(>zIp$mzb}31&0qMS;9RA}9B0K;sYM!EcQaOL=|lzH z?9|cPXsElW5dB&n9rfD}*pR>$9`X<3A?c%AMXOm9NNm^Ce-76eD^G?ue4J+?$xt}X+ex~i# zo-Zy{F7-*G-*<~q=$vlhJ2A|`=d4|p9m;t=<7w{C(>YJxo=cl3EFpaV04HC|giR{y z*Bb)Ff)?^DanlYepCB|fAo5D)tJFo#&UpuvGNYG>iHSaONSa&b(Zj{puW=(;m)ZI6 z#l*RL7W~n_tfE?Ov#@*eJ-b)uc2@_dINMjs1@BS!Tf6<}WfrkLe<#1Z{rdSw_Q$&- zK6lTmoY5>k`I1eZAOEzOe%BmjWp*dmRs6qs;>wZd7hk@(amZCB+_ZEVgWnDQMPEAZ zJqoxhYj>D^fo(zDd&`$LYI8Ey*c@g3b1%azvVO{i=EL#z2V~y8Q<<^$MsY@QZA$){ z81-0=x$O!iKmHz6m^bI*uK7Rj9kBiL@Y;*B>JQ(}tIb(>d#QEcvc0h%P8n>z9THi1 zka5P-{XYC{@A-OP>bI$>>AP=Go2c2oxIXLGiue7ZPxi`OaN7j!Bi9B<^wh@$U4+lACuHcdbqje|6>5BRi|b`c9WOUw;|O@t0K~ z#9}{YSzu^MdQ+(h4ys}ch&PJc@NFl>v1J6dc)w-w7{CfVqSW{xVb>D5} zragVLdqp1yXf*|WtjM{~mvXc3OLX8@GlfG2s~<-(CYRnk<0kB_$*ZLmy!M>u(oIH2 zS3>r+Zkx%wi_L3svhNnx<6PdhOH+B$W|an>5>}hGRnFVL+(IVP$~##q+4$MYAkFrf zrh(62xZO%yp1s0pS>sZ#Qn6XLa;9%v$=Y-D){#qQUWcz-*v7`da8AniSrvoUfy@Aw zu0}S2L-7tgJQAIf2KHvBVy7>h|Mv5X;4k4E&YY{2N+#cSRkAEp@A_Pn#G?AJwPmXR zq2i8hMSqk7&-GW{w#|Ftb&bzjecGbMjgC9>@0h=7wM$%Am6aQA(qI{J;@9Ht>g6KlL=bcQ_J&3^Ugaf z+choI8cx60HQX$^!7pf6iJa;`hu`xQ|7`uIIbX@%$wKmn#)J3L5tAzt30-k?Pjp5};wX!s@xOLG$i zGfVgt=O~#Sbt@2PU=S&@o8ZXoh9+3+eRyt1x#Qdid?Op|6r(bfJP#_(kn=ovkEKs6rNcWWoo>sVz#&2jh@p^$ChlBWElUeDo(6T5+)2?YZcvnXc4o%R6{pjtt(TB&0diUO(T%}xFRpF@~ zvzKV~ZV3xe<`|s4eGh*`oN{3tQY&G@tUwOuF{% zUWCN%**jcIcpN3HF3d@JbR*1gyW@YC&DsoG`Xy37yqssTAY+BE?@gXvT#2g3*)0Py z9{ayqeJ1+)jMjXPx**ocI>w!wE8i$PW+(~lW7e1>xHM5AC*PdA|8TpXp~r)k{bJ9I z%&mDAm|YT>+tGNi>Q>b)wI`dV314Gt|5|(E($-~myBD~h&@y5>_?XkJKH=5%%G_crXxxURW1H2W$?utQ8} z)873~OLm->$oqK1S98(AXB!$rv`v2L#dc*BbUaYmzhBW{TG*awmfVCdk$-CE9+YSa z+`ln;?E;ORIh$T~%h$*Lv2^=$XxYzd8`%pJP2-J2&m^|SY}>b0y2(~9zr0~al|_9T z&xHbqwK>eQFDt}k@}>RrQ#p7g=FrUh`(k&UPkyJio!h1^U*L~`;f~vPWYQwji)PcR`j{GvV|!lxHg?+EoMG!GD#O0S@Z$U*ic%fiwSxKLEDyfD-neMOdFxB&_V&iM z)rEYE1UCJ8Begq@-M6FX=1XH|=E><(lSPjo`Eu-?5l42F9T=@?_ zTK*hA>VI78X3gB=UUD37vNo%1<^Fg4=e_8-&^YIacYEEt6U}9GmreP${uEpG|J`>* zB71axSsgU4tNs;J{@mq}(Sn;F+|@N_A6h4J%XC>$yVS?6e{F0BqMr)6DiqY_#B!)!US?jZe!f0v|0<4qLLoN~6oc>n zgp9VM-T+#uUxi$yS%TKTB2{T%KFL*@u_4MDz0@$y2$Aq@>lQ8C<&YA1s!?LMM+uKh zK#zu!7L%6s2{k1xg>7qmxlNL~8@d|Kvbyv>aAUZsq!^eea-lGJv!jE<#@;>bomS^8 zPWq%Bvsi8={`qXK>CDQ{`*!^;4G*7N{O;%ZpZ|+9z2f^9Wk$VuC@-|>hUfR|+OthSi$ zsWWF{B$U15HT=7ybF)oEZ zaKf_4->1txE(d9JZStO2{l?2Tdj7f(r#{@9E4lfuzvS-nc9Vkim>MUKq>P|VI(Lp; zyK%1W;v-eRb0VT1xeJ~JI))gCI@P+g1|?3>-8%8t46fy7f$yfUr~2nEyB0L@idB~F zQ-{i+xGCmOoh^g*T?snX|7khXil3|E0ZEW>p)jRI9dsHBm|q+_NHn{`L69@yq_7IB>-w>%!49NoEH2-P1b{A7$1# zte3nrN6b3qMRG*KjntIHEhjS825!3;e)-;PF{8KH4>xp9=v?I(a5-7(!_^L!>Wt^V zzWXLH-=A@WW#^LfwOMo7xQ_hY`u)AF?%fFr2gOa3gcS|f%ge2P$;LZJ(Ts7ziN@Bu z{1Niq;^z)Ot9Vvkroi;WO_xsvz*!R}6izSHsD9UtM zV3a3)|KYb=4$5NZUdgZj@hM0>$$giNOs-AsUZe8qbI(30zq;u13z6UTF=qPY`2W&lX{R01SmjrH3nJU9O|F^Wriu@L1RXf_c`EmC0YrTRsvpsy* ztz1~rQRlVcCez_LQt>Uy2}{kEpdinqh?U=N9&Ty96NeC9xQxt zAUESql#=qn=}XVf=dY4{{`qHLvpL@aj%(+cpB`zO7T+=9NmZ$OncNG9u!LJ*HvInn z>6z{FpGSV(33|Tyrt0j|f!4S0_WSW}Nqd()Va5S@&z6bv>O(H-%XJ)ZO|YDCwK=`< zWmL{CqZfj9r^m{;t5d}XJZXITEPcT?`9q=+tkwd%3&7H$u%+N>P`u0f4~lg_TV z)?R!lwnAjroVedUhgfGUX>&e2%bt-V{w`Q$hCzo)PEOf<(D;~3_Qz`;+Sgdq%#zmsz4U~i+x&IUx%YeZ z|9@8dup#EWOTu-NH+R_#o`KCeUm z$jxc~C)>=Pt$f%lt?+Vbw7i4D$#W8V1^Ro~#N1tb{s4E`4l#{z2)ZH=E8 z*EUs?J5(@7u=vOKzyz89Z^aC@#2h@ZOY{5RO>1&l+1D63eOss#(lM#)@u~i*=xd@^ zWY@WrzOZ`55G+)n`Es+n)vit!zZs_&CP%L>>Q@Onvf!_aSlZe{Y%>lX^MBU(@WR$v zzr^h74Xg~EB-_@6UWDNz28*dpSm-9-g1YW8@Iw{@EIS|FN?ETKPB|@t|eDCEc!e@>(?I* z4K~+9ITMOkM3$Pr467;sFf-%Gx!9!c^rX$tKRe#JSNZ8sshn)!RT0s}lMeg7@OaX9 zVNS%8?rZn$cz(V4==Uxq{q|YCpap`VPutgYUejJ3|6||$eU_R!^F=asAFP*obD;PD zqrTd8nNOWZgC1hwI1ht1%V-{qVuh8!VSymPB!; z#(#5|Gpo+ABujPS@B3BH8d;62b}xGAqI_znf~1J{sV7S%J7Qlv&N^Jb$1bCy>*~ue zrM`D9_w8Q1YyBYi>zsf^@3j7|76ql*2VG}>KmN{hjlYJngk@E=MeE%Aaf=>J&15fA zl$Q@lGbq_%3)jv4lQ_h;(AeA@YN zV*dKnn$itT`l((QpI*BBf;%MYO2rJ-R^I1AN~@30FPXRM|EF7d;>Rz%3Hc}V?RnP! zHk-wNg|F@SWxjp-!hMPVrk`A{{r!f-kN?jtrmoc1wd}rC6;~w(0(@Om-%slR2aZvsEYVFpii(V<8f9WQ@{m#4O%*qmP zk^4edr`?`ftG7S(|Hi|ylDxA6R9*?eJ(*|xo&^(!;_`@s!zi!L6uc(v}r$Fyks3AsD>-xj;~ z-KzVy(q`4)MoGVS=h;7QmD#@1sqnzH=9Q8wk7tQa+J5T$_i7Up!Fm7Jh!zW<(GNaW zlaO_T{mjhrBQq;>ubq5-ZTq6t(n(VTPEOocWEOECfnO#;AxC9`EkpLl3mP-e7qZ=Qd^fxnzd6_2Yne->_Olp;Pc9d&MT)*n zPxi>~P5WZ`$@ik@qy2eD)$Aqr@h+LG6c{6^USqDVG(9HFYx|snP_01KP-nmLYj^KN zTW;T!uh(up&F_rY9k+ApMmCE*R-RIs)Ym6wcKV>fZuQ;e@z=9RY}Te@ZNcQZUUPaN1I?zg7FN=Ye(4( z61sGwHmV<5$kFbxQQR{9WzWUvO~3kuH#ON`)G1%9|NN2BIT=8CR;nirG~I_~b(w(j%_;EXQ(kP(-s z7%8;o=gq|m>?;HxxcT zKN{}6E^Kq~(;FHbY}Fek>IH?#o7`pIIje2|q_9|?{vFk4y4jvT2n}SEQ`D9|zU^cC zqlv2w{=Ta6J;ae2pZ4jzy&a!yOz`phnR&0Bzu!E0)%lzEUNg4Ss>k_4meuT9zij*N zT#k*g;^lcfz5I73oE2C4|7VXNYD=NV#_Dof{igpSclHe5b<7^)I*4q_vMR`*y}iBWZa1cAlQTZvMWYIYXqLodM`@ z6$J|eGX--)_}MCGGlrneP)IX|ATH9#A+CW#BdkZJ!zT=(8>YaEprG5OKwYzvjH1+3 z{gU#0{i@WWe3b4MXowWKy9MHt+}*M;H%D5{lsYLfN4Qkv!2j#odzp6|s(o)Brz?XoqBf4u7H zc5|~^+df+BOmo|JRNo_Ry72+)Ih))+SU*jA_&8oXHqO!R(DglUCO&<)>{pd*;Hx?R z66R{`EWeufSakiHhu=9J9j#Pko|Jbp&de|V#k$WWES#(C;(ggktexc@?5vs%0*hwN z(!E`75~8?8bYq6_Di{C7XHPV|c;t7YW7fsrFZ2?XFR`tDxWOu*FP~{yf%>wJ_8CeW zSFB4fO452T@o0m(w*S+ho0?(qCjZul{}XR~sr_TB_K`_ylW%eSn=9$L}+-bc;>bSYYfi{nY z#V5ZneSCSY!|TKg>Tk;~2wU_VZV)!Nuw4_MY_;(1nxfU^jClu*{;-%Ie>S-_`{elt z*)v{C<=fviOkvmF;^4g`bmJbWBF0!5)=JaK`{yWpI2rHpXLi`ZIlX+HZ{~%ae!#fk zZiv*n!!^_DY9_sE@-Wrj;rrOR;_(O88Ei3@28KVT{@l68A=J5M*%99DANOv(YExLs z`~AN1Rf)RZkF(gEYO9rN{~j-Q%op5y^-G57^uJ|gm5Cp#cX&VEv?{fBb6n!)Yw!R6 zIkNK0m6?BjuAuW7Jv4haU?X- z$9Beir9ArskLIh)JF?$M`+muXs@A`A%fb)8Xqr5`xA&aGBs+PZpDrKwGV9yr98R6_ zJNfIsQ}aacPDqlE-Sfk^#$8;8+iK-x{n9sI{ABFR=W6^5^8A&Q^X}857px2R?~vML zRc&2e6Ej`G?Y_)}MS&KE9`3&vyH~qE;Q8LK-?~J~=Z|(z*x4tw^50pQ+V{L!db}?p z!{V1|B(-O1| z8M&ka@kuVJ%q%RCN-Ev{c+lF0qxIK!SI3&AEfe2VwA*fp@L7A?3^&eHw{>RIjeS&) z%_`5kynAis@|=z(CZhGrW~K#)M;n=*HTrl^Bj}amjD#PPGzF7f6IeX?|GnG6y7tY> z8vYuK`^5$dT}%>fuHvh<+E_{woRAp4Pn9`wk=;ZH-s(de# zE>5jwIBqcebK1hQ?}}z*`^c;{SaQ+w=g&&XFB{*ysrhAc+Tsk`-l<_PErk!i+S##k z@m90unGa*OJX+HE_>KCeO;Xa*#$R)4mz@m^o-obPe3qqf?5QipeQe8S*`;qT+7fl% z=u6(tGqIXmHkPR$x5${fc2;2oBLho#ve9+M0?9e-M;$mr8hUz|lmZ%$Cb6yImVR!% zq^9OHS5)k+kI5Q|!tVS(Ex0s2-U}&eoG=ve7nx9|IPZkoY<;2mCyN%YJ^Xf~Q+m?W z^PjTbmHz(`9eG>mwUN1WqSAA@89T4PZH+C`wAXv#tdaTGm*b_=jPl$pUdii)|E%LZ zB^T^^n^U{}xr6%6Tltc@tw~m@wpW>N{$6wE@x_-5*mhON)cUr%g=_B7+qWgEiBE}1 zcCP!P@2?~k9jE#2%6^zrf4=!(;?IukPsfZk?%n+NEt%n0RMV$#b~jjeAK5OR`2I=k zjejm`dxW)Ctj_sx^v{*{vm2-DYHeNkV#*$Wjpc52PPwUmxp{df7iYfz@Th9Z*J6nW zA5&AlC+~TteXf5I>#F1B*$iw)XPX`R&md68ogE?>d1AHx_IJH;)_c!y%bZ)rLv#_f{-+}8_Oi2*31E0`K%8Gkl4Mj3wwbK#8?6I^E< z8iG!T!?Qi2q$o2HG+>Rfe902DPzyPWgZLz8abrW|EDqlp@twEqi>V2NVQ3wEXT;n; zmtP;Rx|S#REKhFQ)%)h0wf-W15BSasKO|AI{##%*DaQTa zi310M4jP(o)iAa+^gn36QAOF*d?U+=lYt!P{LlI5t_-=b;iQJ9=7vkx_4W0yd!Nz0 zc3R(S`{gTv8s~LR25@-k`sr$U`vw-AKCd14!TXGFXoH0xzthfX&z6Wy6-iZlwv<^? z;k2ZLgv4A4iQN)2BqSqi>PkNRoilsSgX6n?_Ix)p{%`U-PS2`3=>L*;C+|+SRtxq0 zxB2^Tp3YsKbMMZ*E0cP6>eNs5Y8%2!!_U2c{dS&-^E>zZ-@h)Zuc|ZO{7)n0xpwT2 z1ff#HgJX(ncZGen9Kyw!`3vx|R}KV;6s z0BKI$#0)y;VNT?x1Vb|}q-&J%%z5CSQa1x_^nop)an^U$_tN*#_tp2;hh3u#xk4E+ z>yet7o>2ms`$&V`sGNm#r!uHrjbqBAAhjqnKSjS#zpykPw5XZ{raJp&tHT8InVm<(fxn60*ClY z{#DyKC(dJdnR&f-iM%zhoTS4)kqFzVLKn8!ML$lcZ!P3QY3i`*>{MrwubYuJ9xa&wg>`ib}Te<}Y7LE>CFr zy6n@G75dN5nfvv7_L_a`jF6wWNm1#}jmUX3vffBe5=i`GW_@|PJm065C0nj^h$Qn@ zR=9X6xdtxlENWkpvV6+dm6_5pmz~YpcBQvewzyZgo?5i1HmN50@1sY;&t{ytI@|u{ zl{<$nbuHSXA!$1M)3TZs{+jWp`hRtSrZvv52%TcPbym>=yXDsc`le_;b+HV7HibLY zaqWVzp!k4wSC~%qMtSTEmYbq}G{|a--c$$QWkM@8r!boK8ZGJ3Fm}>d>Khq&Geli? z>GjL$FBo;x*RGA~jp}DjIv93v#x@sg$K4*)Ar`?ibY&8r8C#wS71UiNZkx70;qQ&v zR=2FUOAeJ7mFy~!dwuS@@3q{^vNONDTyk{sIp3-k+nv^Tp1=IuJJ53d;w9~&8{AYM z#6GBg_wAW`#Qmh+)7vd4*|itei$3Yj3-9N%yZcf?{oq-xiFWg+-{sVwQqs$HZbEvJ zLT9sNaol6iic>agTI~-!ny$8hxk|sT`K8dDmgz<3_^u}y`N-|LbM>}-L+QqK-8nl$ z;&W%*J$nEBlKlTF584|ZraUy1_7Uh#k3L{CgIB({iM8fld17$M>@NpA3Vu#sns%v;z!^>6$71b6<>db{fKbFJ9|))mP!Z|1nG@BW~2bYscOYt1VJWYhlh zem*1Zb8ja9lQ%Il)-KJyl_O}KzL4{ufb_k&U%y0UKfURuc`mr~%>#G7)CGUm-dAaN z&FgY{W2Are@$|pt@4n3`;Zd%%bKD!SsO63Im&t~V`}y50ROMRNDhN(pFsVuCNK^Fn z9p_uPeo%Xmd-|e+icDqhvt;>GYe8b)E z@jvDz)@?VpKluK-Bv-!T3+DsP{d2fiaQ*$Qb!6FtnH=>Sp1H()b$fYoOV^!kZ;WqS zZ<=8LI;Ytz`uDZzDIS|*{8G1_Y@c{B@k-k)zqxC)vK@R^=x);6ukokk(!8rj>wY(X zTX_1-*}9ObRi@_4Vi)lXyYTW`#c98||C{x}0srR-Y3%bj+s@r6X#8HgCSebs#n&%& z@v%|5C-=~-{~Ly87B$WBd%kYZ?&X>>$M~debpP3Ap^duC zWsi*>I=jv9_YYpRTq7f+TH(Rbtnj>tKP=OPfAPF-W0A3wR=$}OKDAW)p`FpMz5AJ4 zT&ADC*BWqMXvJAij_PB)?&&eY3Z(K z_A~$P%(3u6a>kRmTi<8xTzA?hO8e&KPhNk^mrkE}acSFzr5REZzy77rGcF`wsuJaJD#fKwY7^GD1xz)#Pm8q4i!9vPIZ`rYzFoC@m9Sx2oGG zG%C2nJSpC$g3&l(6?ee=_UfG2$Ev!Yp74dvwY=MQ<8|}FANC)<96dPi;l_6TWfNS^ zE%KY!(Q-oW4#$M2E!y_q&5|P>;yPlTAGJQ1P`1zAasO+rd40b>HFE_;Ub^yb>4TZk ze?%oZawR^gB|w=d}QZ5Wyqj+t44R;ti97zwl20=U01BU?Sbx5Lwl}`69g77 zD>JHoBxO*0h1KU+?~!szgQoj_y&~c7LnYo?7p|!9!!(8G0kH=ie)L|LJ@0p?dSc^IA10kT zEAB6OTf=4T)z7{x;*Xd)yQ^oK()N9O(%-x@dv_t>b@|&DT)V`AvyQ!59ejD$kMOx) zwi@26_E`|eb>5=m$ovCNIlcQ;rtOhvf1F`(Fl~dxG$F}Ihb1iKkIeX9pJQVFpuFia zlhl^R+TPY1tn3L~uan(Y@yog_C}Cd{dTGC4a`BZP?P2U?f=D zk{tzyN_nItCmir@sy<#kvG=!^&LpAwEVW6e4=;TCA@hH4Sx4UT{BKR(>laOL_#j^- z`r^krtrCg3r?p*fZa?C8qB{AIx%8e|_OzQs&QRw{*XD{9XC|UW9j4?KekF zvm*;*QXHPXcro?VuVvmv(YLpLN_ffo=4@z#fMxw#ncYWjeSET1>B`bc|8}l6t&)^$ zSg?OxcK?AN7c4kSvW|WJ|0a8@;KG-iguL!wFfq}2Abwcjd$n)5yj0r!pCpYN5ytd7}jH&pT2NzSsnr#ntbdS$? zTfygkrmP{LN_A~}ec|kVW-RILEHy2+rhH!gReSSwo_kF@)ef>dNjWX)eLZXQy8NHd z+iEM12aC+sN(waCeJOuw<%*;G_8pyc_8R}+e;c2Q88Ll4zrQgoyv93fYRTL3jYrd_ z-eWf^SCzTD&%KVxbo2G~_kR4W^UkTUjdXM`@KCS+>>K4UdC#5uPg_5$ckK}Sd34U= zj=iOyPYG-Gzd6?JnzwrUN#V)gwJ)js%90Mc@YzmEZ*u9Gm0NcjK0EJfvpD+?fB1}r zmhV-b&sW=W+@p5({is8=n_jYFbJ5=Ipv-b1``W|P zpS_pbbmsmobw$tGUw@Zs2YeP=(d?nT+qnMFM3H@qnTclC+xl|O z-NiXS?mfP{PH@(;f9n@}$Y=fVefr%Wy&gQ(5<-iXN1?w}2gA8bxW_H>{6e>&We zUr=~`Q2ygbLSYqb4>c2y-A-4kZedR}Gt2rpE7Yh__lAH4OY@5;!54Gb?|we8?f#0j zssGuTjW|2_^d9+LEz#CLG^Oo&b^OBJPXukGdzfZN`Y%%z;4yShn3ykjjq~WPg)_c> z?CMoj*qWbyH*Lxpt2N4P;!DaNuUX?ZGbZPAn8OaYWQJX`Gh)PNo-<}&eOh~4`gG5C z9YtKhUBZI9W1g9~XZ>5w=)h}M5&!jEz5cFm`ui4je!Uj;uW8MS6DRF_);#_1+&1g` z*(RwkdIw(24(ZHZqWP0i_3n?;v#k>aW~!P@`E8M6QF35smgpqK{)d|hLDmmnT>BYpYa07IZ}D{}zM7a= zWU(tJ|CnI>7N*JtQ%~3)w!L}B-k492>2m=4{=JWtGMz6?U|6?e?amUnXPHyQXPmF< z&MMy~QWt)%Z+aqgzQoG|Y_nEdy?QKdl^JKC#85q@=gcZb(4vd^DxQvB-2 zg99gp-TCV8S3LR9${ikk(LPcja{qy(Ge2(W#pr9^++w}lV7)>8ee>VjH0mtYRkhqu zzkmCt-lvZfD?RTEFr`nOaMjVA@336b;qsHqWUK?rrMGVK7vmLPeLXHI^;!J(BAviT z6CS{EIb6H*Tao|yr_-vP#hGGc!&ognJ{ISuzn`XF z|7HH(TNj1Rs^=ZIGGAF2#j3B}+|cDL%EPBCs9731S!LI)ZqX{MQ%bhBSL^nk6#1%e zTw=5bvv+Dt?BJ)rca&FzA86JFZ8XHl)Ih=9+zf4}mx%#Cy!}z`RtS25Z-{0>!Nk1H|_Rk6?u`JGG%*qZqR}T z9W~bv>_1mtQ8@ZZ`J{%@Bdv}N+&X&N3p#dhD46!t|A1>sWTX}o)21x1H3F*+U70^| zWq;kTr|g#CmF?4x(~Q==$#V}^IBxP;gqcL^hbTEQvwuD=xX!_t=jT4lHKU4 z(R`lxnKmXSN8-g~L`1Z@PXsMtmv=2$)V%0;QvA6G zZO;?MrfzPU8L6mNnCDaOn4XvC=$Mz6?pR))o^I|fXZ8O<-+85zvO6m6E+?mLJMpXS z`E~nwZ-4eLvQ%XDx*;LG(3&wcVL@r>)Y7x^{>pb_OYJR#SD!ka9n5>>YQx17W)icr zrKB^=kN}a{Lk9kYCCm3+i`ZME z_jCWJPm2Q>L*r6?pZfZmZav$(rk6X#B-%ewV%`4YRgV`>?3gd8rK;t6>gf5ukKCD0 zB=9s(dh5UVfB)pt;yIdc9)^8+kh%K7r^Vgd3tD;A&vDA$zA)7=r^9xK^d!YpmEVs( zxPPlYJfHXO+ZX>2d3^Wy7OoopdLfTf&#GD3daL<8+j3oh)-1frmO1JEyBW6DecOZ> ztClZJ$$4~-d51T@xP4b&w@1{}IQgscXV`we^*bBvxas=s`kUXbPX4G}+x#ZwPsPX3 zeea^pv(jEzvc@HaTyC3v!P$P>_iz3OUaeZ2m@ochWA!!TYq4uB!ynz6%Bk<=kLQY+8jw|EY!oAL#sijY2PFmFMgGriAK`-wV7iJ1(n7qB9^>p4u z*`A-bJvvL?&3`m0UpZ~1^!7P3tm4$8SmN)BJW5`ae1OH&{Z@x{Rm$V{49pD5`bjE! zuHS=o1DMrzExfeEUawzq-tC*;J1!e4wFum};S=-U#YH&f<(b{S4%e^GlG?}Kd(`Gz zs)^x;4Lq@v14R10@9!*@$*4_TdXFLWZPd&CHF*=ZI*2$N`aU^hQ%{AA?Y0GewYjOa zm+!w@_}s#}$xm0K<@g@C^HU-VCyM4r=be4u^xABR+C`hrDZVFc9|q0beAUgg+9ihP zs#~q|tF2UZeO@v-f{kPg~x0YM=dP{ol7tF*)K%%7%tz`>+4g ze{+*`c3vUz zO8*!xS26A_v-kUNX;F`Qt&!eQeyltH&tIbp(Ql4Pa;@!q8g}r4a!!rPlWz}1m@kW7 zp7}j^e)~MX_KJ=(x20$7U7Do4rv2>JPu>s14=ppPZ!xU6@bTd0dnb3be~|R$o1mE{ zpR+x4{&e31_Y-CE4&Obtu`K4(Nl)o72V--0`v)tv95%bbW0<;8^&h9@?#5?37q&~k z`Pm>o<<&j``;tE`FI%KcrNwuP{a`HiNP4)?ZTE|vVJ8_68(Pk;^|+H?#Z^{k+gitb zf2ZwDp`8mW1FZPJYVNE0TH1enYxs4ax32YKh{*bRPa(a2Ew4m!6 zPQN{D%eMWS<{f)$-5KG~fZT-h_avqFaDJH{e#q(i{{4!YeqNJK9Nc6SC&?N&Z@oq5 z4;ipQi~lOw!;>Dmmz?=od5j^%!1<0|;QUuUar3;YC&ljf`}QQqpvbEAvVc zD|GXUmDQp8G9%#H@{0AqZqiH6&(+V2&^OdG(1%$BYBd#Q7JyFSQ2<$-n3P{yVyj+S znwer{Vqj)!YMPp?Yiwj-u4`zRW~^&qU|^tYo@APoXk=uXVrh~Jv#tQinJD%Zq@?K^ z>KW^+D-@)pSp^j3r<5kA7TK!12lyzsXXF=`6eol1SFqGGFjd!wdY@XZs>m(C9tstS z1<+uysmLv`^36}lOsjNBEJ?L9GBC8zH89jQGz~E@wlX!gGP2Y)u&^>Pu+c|T$pzNx z3_kLR7_CSuk+kL)h2-bw*rk+Z78Gk_Ybu!PSz0JK!>`jb0$rjPl$ZiKKS{y0GF2fs zKdq!Zu_zVd9I%;CBW(0R5r`CY)DFzV0$*SJ!I_&2O79?bRxbI;rJ(bnJY7ghP1H^R zDamjL7nBy|fU{0YGVJWCVtqqBLw$9Hlw_;4{G!~%5?l4ef`XjPWbmm}`UNRz>UK6M z$yOzqB{`{f;Ed^*QvzY+WP&o9RZe1Fx~+PJZc1ueVrfo^x?Mp&=n$>=qSBnyV!f2I zOh~NcWZFR(VEy_CGqJ=OSSZNF&5p}PA6#~T$`Ly*1u6mR8H6ZPQ}a@6)yqL8W@=ta zaY<2XVlJro&QHqXLRugK%lsPH^1ddQJ~%OF=I4PjlZJ~GC?^^i8k!myn;L^Np}K*A zx+a&tZ+;2^6<~w%i!{KQDn=tahWKoy$)z6xifs+_c+|ABOU+9G`KY2OHI2(a!O+m0 z3sf9Ju!5PXsj;a-ngT@3!otkVLIEtLkOvVnG&L}{G)EOPu&^*QFv1Ws0$no*(hSoJ zVuRKcfoQmxiKV3lre1Sn6EyQI4J<)-v?1#?G%z;?9m0StW?*4yY;K9J*V4?~7+uW5 z+z3s~(8Sop6y0x@76vA0?lUwov@kM5H_zM%-5-X=<_2aMZZWd}t+YUPv!Stxi7}d6 z3@lA84Gd82Ff=waFhX;Sfu)JD0a{oY8kt$5+hJg7Y>ckg(8$Qb6vH1zCI)C?hK6S5 zrlzQFF|ahWK#yNTLn9MILv(cpCgx~iYG`0=VuogifrX_xde|Ep7@A^+i=`1pIxsOe zw8RK!3llT6urf3;vM@#yGq5zb0G*A95+5c8W}pq3$YKVT<_1P+b{HC)ni!+y4+Bdx zGxV@GG&VNI$TOCvMy43%85m*4hpB-9diWVxnqj6Z69ZE;zZn{t8JnP`Ap=WeLo>9v zG&C|YG{o?SktMobLnA{Y&~1^Z;bLfxo)-)a4b9Qhu7RbYsX4m)3=J&J(bJ2Cg}FJJ z`wT2BEDSKkOwiqDU}|7sfS!*mER0Ms{AOT;5l03_7MO0aG({IPG%&yndkaegjPz$= zX^5U)3@j}zG2+qyl=4yYjG=*{xdnRKFfcX%?O#O>dqV?bbI<|FsAA^kMri&uG&D5C z%&Uf$2IzJe8krkn#F4oHdVClf8Jd7DrAD#W$jI0jEiMg>j1AGtaYG|BQxkOe8JQcI zV~AN=V3Zri1|}BhWu3912}b#BY;1-RE}$X@Js%mHnxWSfhQ{V580p!>zyc%Bm>3yg zW}RYbjBH0q zQDSCJY7v)>je>q~W>qSv;iRA+l%HRsV5nfA5Tu~*nU|KY0BR=&ap`-yC`8*BJDQkU z7@9a+SQr_&I9eLIxjCCySeO|aS-3j78kjiS5mph)WoO4#T#{H+0&cDuni?7ym~*MB Jy863u0RS=L^6mft literal 0 HcmV?d00001 diff --git a/vendors/ott/examples/ocaml_light/doc/llncs.cls b/vendors/ott/examples/ocaml_light/doc/llncs.cls new file mode 100644 index 000000000000..f2e996a4834a --- /dev/null +++ b/vendors/ott/examples/ocaml_light/doc/llncs.cls @@ -0,0 +1,1189 @@ +% LLNCS DOCUMENT CLASS -- version 2.13 (28-Jan-2002) +% Springer Verlag LaTeX2e support for Lecture Notes in Computer Science +% +%% +%% \CharacterTable +%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z +%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z +%% Digits \0\1\2\3\4\5\6\7\8\9 +%% Exclamation \! Double quote \" Hash (number) \# +%% Dollar \$ Percent \% Ampersand \& +%% Acute accent \' Left paren \( Right paren \) +%% Asterisk \* Plus \+ Comma \, +%% Minus \- Point \. Solidus \/ +%% Colon \: Semicolon \; Less than \< +%% Equals \= Greater than \> Question mark \? +%% Commercial at \@ Left bracket \[ Backslash \\ +%% Right bracket \] Circumflex \^ Underscore \_ +%% Grave accent \` Left brace \{ Vertical bar \| +%% Right brace \} Tilde \~} +%% +\NeedsTeXFormat{LaTeX2e}[1995/12/01] +\ProvidesClass{llncs}[2002/01/28 v2.13 +^^J LaTeX document class for Lecture Notes in Computer Science] +% Options +\let\if@envcntreset\iffalse +\DeclareOption{envcountreset}{\let\if@envcntreset\iftrue} +\DeclareOption{citeauthoryear}{\let\citeauthoryear=Y} +\DeclareOption{oribibl}{\let\oribibl=Y} +\let\if@custvec\iftrue +\DeclareOption{orivec}{\let\if@custvec\iffalse} +\let\if@envcntsame\iffalse +\DeclareOption{envcountsame}{\let\if@envcntsame\iftrue} +\let\if@envcntsect\iffalse +\DeclareOption{envcountsect}{\let\if@envcntsect\iftrue} +\let\if@runhead\iffalse +\DeclareOption{runningheads}{\let\if@runhead\iftrue} + +\let\if@openbib\iffalse +\DeclareOption{openbib}{\let\if@openbib\iftrue} + +% languages +\let\switcht@@therlang\relax +\def\ds@deutsch{\def\switcht@@therlang{\switcht@deutsch}} +\def\ds@francais{\def\switcht@@therlang{\switcht@francais}} + +\DeclareOption*{\PassOptionsToClass{\CurrentOption}{article}} + +\ProcessOptions + +\LoadClass[twoside]{article} +\RequirePackage{multicol} % needed for the list of participants, index + +\setlength{\textwidth}{12.2cm} +\setlength{\textheight}{19.3cm} +\renewcommand\@pnumwidth{2em} +\renewcommand\@tocrmarg{3.5em} +% +\def\@dottedtocline#1#2#3#4#5{% + \ifnum #1>\c@tocdepth \else + \vskip \z@ \@plus.2\p@ + {\leftskip #2\relax \rightskip \@tocrmarg \advance\rightskip by 0pt plus 2cm + \parfillskip -\rightskip \pretolerance=10000 + \parindent #2\relax\@afterindenttrue + \interlinepenalty\@M + \leavevmode + \@tempdima #3\relax + \advance\leftskip \@tempdima \null\nobreak\hskip -\leftskip + {#4}\nobreak + \leaders\hbox{$\m@th + \mkern \@dotsep mu\hbox{.}\mkern \@dotsep + mu$}\hfill + \nobreak + \hb@xt@\@pnumwidth{\hfil\normalfont \normalcolor #5}% + \par}% + \fi} +% +\def\switcht@albion{% +\def\abstractname{Abstract.} +\def\ackname{Acknowledgement.} +\def\andname{and} +\def\lastandname{\unskip, and} +\def\appendixname{Appendix} +\def\chaptername{Chapter} +\def\claimname{Claim} +\def\conjecturename{Conjecture} +\def\contentsname{Table of Contents} +\def\corollaryname{Corollary} +\def\definitionname{Definition} +\def\examplename{Example} +\def\exercisename{Exercise} +\def\figurename{Fig.} +\def\keywordname{{\bf Key words:}} +\def\indexname{Index} +\def\lemmaname{Lemma} +\def\contriblistname{List of Contributors} +\def\listfigurename{List of Figures} +\def\listtablename{List of Tables} +\def\mailname{{\it Correspondence to\/}:} +\def\noteaddname{Note added in proof} +\def\notename{Note} +\def\partname{Part} +\def\problemname{Problem} +\def\proofname{Proof} +\def\propertyname{Property} +\def\propositionname{Proposition} +\def\questionname{Question} +\def\remarkname{Remark} +\def\seename{see} +\def\solutionname{Solution} +\def\subclassname{{\it Subject Classifications\/}:} +\def\tablename{Table} +\def\theoremname{Theorem}} +\switcht@albion +% Names of theorem like environments are already defined +% but must be translated if another language is chosen +% +% French section +\def\switcht@francais{%\typeout{On parle francais.}% + \def\abstractname{R\'esum\'e.}% + \def\ackname{Remerciements.}% + \def\andname{et}% + \def\lastandname{ et}% + \def\appendixname{Appendice} + \def\chaptername{Chapitre}% + \def\claimname{Pr\'etention}% + \def\conjecturename{Hypoth\`ese}% + \def\contentsname{Table des mati\`eres}% + \def\corollaryname{Corollaire}% + \def\definitionname{D\'efinition}% + \def\examplename{Exemple}% + \def\exercisename{Exercice}% + \def\figurename{Fig.}% + \def\keywordname{{\bf Mots-cl\'e:}} + \def\indexname{Index} + \def\lemmaname{Lemme}% + \def\contriblistname{Liste des contributeurs} + \def\listfigurename{Liste des figures}% + \def\listtablename{Liste des tables}% + \def\mailname{{\it Correspondence to\/}:} + \def\noteaddname{Note ajout\'ee \`a l'\'epreuve}% + \def\notename{Remarque}% + \def\partname{Partie}% + \def\problemname{Probl\`eme}% + \def\proofname{Preuve}% + \def\propertyname{Caract\'eristique}% +%\def\propositionname{Proposition}% + \def\questionname{Question}% + \def\remarkname{Remarque}% + \def\seename{voir} + \def\solutionname{Solution}% + \def\subclassname{{\it Subject Classifications\/}:} + \def\tablename{Tableau}% + \def\theoremname{Th\'eor\`eme}% +} +% +% German section +\def\switcht@deutsch{%\typeout{Man spricht deutsch.}% + \def\abstractname{Zusammenfassung.}% + \def\ackname{Danksagung.}% + \def\andname{und}% + \def\lastandname{ und}% + \def\appendixname{Anhang}% + \def\chaptername{Kapitel}% + \def\claimname{Behauptung}% + \def\conjecturename{Hypothese}% + \def\contentsname{Inhaltsverzeichnis}% + \def\corollaryname{Korollar}% +%\def\definitionname{Definition}% + \def\examplename{Beispiel}% + \def\exercisename{\"Ubung}% + \def\figurename{Abb.}% + \def\keywordname{{\bf Schl\"usselw\"orter:}} + \def\indexname{Index} +%\def\lemmaname{Lemma}% + \def\contriblistname{Mitarbeiter} + \def\listfigurename{Abbildungsverzeichnis}% + \def\listtablename{Tabellenverzeichnis}% + \def\mailname{{\it Correspondence to\/}:} + \def\noteaddname{Nachtrag}% + \def\notename{Anmerkung}% + \def\partname{Teil}% +%\def\problemname{Problem}% + \def\proofname{Beweis}% + \def\propertyname{Eigenschaft}% +%\def\propositionname{Proposition}% + \def\questionname{Frage}% + \def\remarkname{Anmerkung}% + \def\seename{siehe} + \def\solutionname{L\"osung}% + \def\subclassname{{\it Subject Classifications\/}:} + \def\tablename{Tabelle}% +%\def\theoremname{Theorem}% +} + +% Ragged bottom for the actual page +\def\thisbottomragged{\def\@textbottom{\vskip\z@ plus.0001fil +\global\let\@textbottom\relax}} + +\renewcommand\small{% + \@setfontsize\small\@ixpt{11}% + \abovedisplayskip 8.5\p@ \@plus3\p@ \@minus4\p@ + \abovedisplayshortskip \z@ \@plus2\p@ + \belowdisplayshortskip 4\p@ \@plus2\p@ \@minus2\p@ + \def\@listi{\leftmargin\leftmargini + \parsep 0\p@ \@plus1\p@ \@minus\p@ + \topsep 8\p@ \@plus2\p@ \@minus4\p@ + \itemsep0\p@}% + \belowdisplayskip \abovedisplayskip +} + +\frenchspacing +\widowpenalty=10000 +\clubpenalty=10000 + +\setlength\oddsidemargin {63\p@} +\setlength\evensidemargin {63\p@} +\setlength\marginparwidth {90\p@} + +\setlength\headsep {16\p@} + +\setlength\footnotesep{7.7\p@} +\setlength\textfloatsep{8mm\@plus 2\p@ \@minus 4\p@} +\setlength\intextsep {8mm\@plus 2\p@ \@minus 2\p@} + +\setcounter{secnumdepth}{2} + +\newcounter {chapter} +\renewcommand\thechapter {\@arabic\c@chapter} + +\newif\if@mainmatter \@mainmattertrue +\newcommand\frontmatter{\cleardoublepage + \@mainmatterfalse\pagenumbering{Roman}} +\newcommand\mainmatter{\cleardoublepage + \@mainmattertrue\pagenumbering{arabic}} +\newcommand\backmatter{\if@openright\cleardoublepage\else\clearpage\fi + \@mainmatterfalse} + +\renewcommand\part{\cleardoublepage + \thispagestyle{empty}% + \if@twocolumn + \onecolumn + \@tempswatrue + \else + \@tempswafalse + \fi + \null\vfil + \secdef\@part\@spart} + +\def\@part[#1]#2{% + \ifnum \c@secnumdepth >-2\relax + \refstepcounter{part}% + \addcontentsline{toc}{part}{\thepart\hspace{1em}#1}% + \else + \addcontentsline{toc}{part}{#1}% + \fi + \markboth{}{}% + {\centering + \interlinepenalty \@M + \normalfont + \ifnum \c@secnumdepth >-2\relax + \huge\bfseries \partname~\thepart + \par + \vskip 20\p@ + \fi + \Huge \bfseries #2\par}% + \@endpart} +\def\@spart#1{% + {\centering + \interlinepenalty \@M + \normalfont + \Huge \bfseries #1\par}% + \@endpart} +\def\@endpart{\vfil\newpage + \if@twoside + \null + \thispagestyle{empty}% + \newpage + \fi + \if@tempswa + \twocolumn + \fi} + +\newcommand\chapter{\clearpage + \thispagestyle{empty}% + \global\@topnum\z@ + \@afterindentfalse + \secdef\@chapter\@schapter} +\def\@chapter[#1]#2{\ifnum \c@secnumdepth >\m@ne + \if@mainmatter + \refstepcounter{chapter}% + \typeout{\@chapapp\space\thechapter.}% + \addcontentsline{toc}{chapter}% + {\protect\numberline{\thechapter}#1}% + \else + \addcontentsline{toc}{chapter}{#1}% + \fi + \else + \addcontentsline{toc}{chapter}{#1}% + \fi + \chaptermark{#1}% + \addtocontents{lof}{\protect\addvspace{10\p@}}% + \addtocontents{lot}{\protect\addvspace{10\p@}}% + \if@twocolumn + \@topnewpage[\@makechapterhead{#2}]% + \else + \@makechapterhead{#2}% + \@afterheading + \fi} +\def\@makechapterhead#1{% +% \vspace*{50\p@}% + {\centering + \ifnum \c@secnumdepth >\m@ne + \if@mainmatter + \large\bfseries \@chapapp{} \thechapter + \par\nobreak + \vskip 20\p@ + \fi + \fi + \interlinepenalty\@M + \Large \bfseries #1\par\nobreak + \vskip 40\p@ + }} +\def\@schapter#1{\if@twocolumn + \@topnewpage[\@makeschapterhead{#1}]% + \else + \@makeschapterhead{#1}% + \@afterheading + \fi} +\def\@makeschapterhead#1{% +% \vspace*{50\p@}% + {\centering + \normalfont + \interlinepenalty\@M + \Large \bfseries #1\par\nobreak + \vskip 40\p@ + }} + +\renewcommand\section{\@startsection{section}{1}{\z@}% + {-18\p@ \@plus -4\p@ \@minus -4\p@}% + {12\p@ \@plus 4\p@ \@minus 4\p@}% + {\normalfont\large\bfseries\boldmath + \rightskip=\z@ \@plus 8em\pretolerance=10000 }} +\renewcommand\subsection{\@startsection{subsection}{2}{\z@}% + {-18\p@ \@plus -4\p@ \@minus -4\p@}% + {8\p@ \@plus 4\p@ \@minus 4\p@}% + {\normalfont\normalsize\bfseries\boldmath + \rightskip=\z@ \@plus 8em\pretolerance=10000 }} +\renewcommand\subsubsection{\@startsection{subsubsection}{3}{\z@}% + {-18\p@ \@plus -4\p@ \@minus -4\p@}% + {-0.5em \@plus -0.22em \@minus -0.1em}% + {\normalfont\normalsize\bfseries\boldmath}} +\renewcommand\paragraph{\@startsection{paragraph}{4}{\z@}% + {-12\p@ \@plus -4\p@ \@minus -4\p@}% + {-0.5em \@plus -0.22em \@minus -0.1em}% + {\normalfont\normalsize\itshape}} +\renewcommand\subparagraph[1]{\typeout{LLNCS warning: You should not use + \string\subparagraph\space with this class}\vskip0.5cm +You should not use \verb|\subparagraph| with this class.\vskip0.5cm} + +\DeclareMathSymbol{\Gamma}{\mathalpha}{letters}{"00} +\DeclareMathSymbol{\Delta}{\mathalpha}{letters}{"01} +\DeclareMathSymbol{\Theta}{\mathalpha}{letters}{"02} +\DeclareMathSymbol{\Lambda}{\mathalpha}{letters}{"03} +\DeclareMathSymbol{\Xi}{\mathalpha}{letters}{"04} +\DeclareMathSymbol{\Pi}{\mathalpha}{letters}{"05} +\DeclareMathSymbol{\Sigma}{\mathalpha}{letters}{"06} +\DeclareMathSymbol{\Upsilon}{\mathalpha}{letters}{"07} +\DeclareMathSymbol{\Phi}{\mathalpha}{letters}{"08} +\DeclareMathSymbol{\Psi}{\mathalpha}{letters}{"09} +\DeclareMathSymbol{\Omega}{\mathalpha}{letters}{"0A} + +\let\footnotesize\small + +\if@custvec +\def\vec#1{\mathchoice{\mbox{\boldmath$\displaystyle#1$}} +{\mbox{\boldmath$\textstyle#1$}} +{\mbox{\boldmath$\scriptstyle#1$}} +{\mbox{\boldmath$\scriptscriptstyle#1$}}} +\fi + +\def\squareforqed{\hbox{\rlap{$\sqcap$}$\sqcup$}} +\def\qed{\ifmmode\squareforqed\else{\unskip\nobreak\hfil +\penalty50\hskip1em\null\nobreak\hfil\squareforqed +\parfillskip=0pt\finalhyphendemerits=0\endgraf}\fi} + +\def\getsto{\mathrel{\mathchoice {\vcenter{\offinterlineskip +\halign{\hfil +$\displaystyle##$\hfil\cr\gets\cr\to\cr}}} +{\vcenter{\offinterlineskip\halign{\hfil$\textstyle##$\hfil\cr\gets +\cr\to\cr}}} +{\vcenter{\offinterlineskip\halign{\hfil$\scriptstyle##$\hfil\cr\gets +\cr\to\cr}}} +{\vcenter{\offinterlineskip\halign{\hfil$\scriptscriptstyle##$\hfil\cr +\gets\cr\to\cr}}}}} +\def\lid{\mathrel{\mathchoice {\vcenter{\offinterlineskip\halign{\hfil +$\displaystyle##$\hfil\cr<\cr\noalign{\vskip1.2pt}=\cr}}} +{\vcenter{\offinterlineskip\halign{\hfil$\textstyle##$\hfil\cr<\cr +\noalign{\vskip1.2pt}=\cr}}} +{\vcenter{\offinterlineskip\halign{\hfil$\scriptstyle##$\hfil\cr<\cr +\noalign{\vskip1pt}=\cr}}} +{\vcenter{\offinterlineskip\halign{\hfil$\scriptscriptstyle##$\hfil\cr +<\cr +\noalign{\vskip0.9pt}=\cr}}}}} +\def\gid{\mathrel{\mathchoice {\vcenter{\offinterlineskip\halign{\hfil +$\displaystyle##$\hfil\cr>\cr\noalign{\vskip1.2pt}=\cr}}} +{\vcenter{\offinterlineskip\halign{\hfil$\textstyle##$\hfil\cr>\cr +\noalign{\vskip1.2pt}=\cr}}} +{\vcenter{\offinterlineskip\halign{\hfil$\scriptstyle##$\hfil\cr>\cr +\noalign{\vskip1pt}=\cr}}} +{\vcenter{\offinterlineskip\halign{\hfil$\scriptscriptstyle##$\hfil\cr +>\cr +\noalign{\vskip0.9pt}=\cr}}}}} +\def\grole{\mathrel{\mathchoice {\vcenter{\offinterlineskip +\halign{\hfil +$\displaystyle##$\hfil\cr>\cr\noalign{\vskip-1pt}<\cr}}} +{\vcenter{\offinterlineskip\halign{\hfil$\textstyle##$\hfil\cr +>\cr\noalign{\vskip-1pt}<\cr}}} +{\vcenter{\offinterlineskip\halign{\hfil$\scriptstyle##$\hfil\cr +>\cr\noalign{\vskip-0.8pt}<\cr}}} +{\vcenter{\offinterlineskip\halign{\hfil$\scriptscriptstyle##$\hfil\cr +>\cr\noalign{\vskip-0.3pt}<\cr}}}}} +\def\bbbr{{\rm I\!R}} %reelle Zahlen +\def\bbbm{{\rm I\!M}} +\def\bbbn{{\rm I\!N}} %natuerliche Zahlen +\def\bbbf{{\rm I\!F}} +\def\bbbh{{\rm I\!H}} +\def\bbbk{{\rm I\!K}} +\def\bbbp{{\rm I\!P}} +\def\bbbone{{\mathchoice {\rm 1\mskip-4mu l} {\rm 1\mskip-4mu l} +{\rm 1\mskip-4.5mu l} {\rm 1\mskip-5mu l}}} +\def\bbbc{{\mathchoice {\setbox0=\hbox{$\displaystyle\rm C$}\hbox{\hbox +to0pt{\kern0.4\wd0\vrule height0.9\ht0\hss}\box0}} +{\setbox0=\hbox{$\textstyle\rm C$}\hbox{\hbox +to0pt{\kern0.4\wd0\vrule height0.9\ht0\hss}\box0}} +{\setbox0=\hbox{$\scriptstyle\rm C$}\hbox{\hbox +to0pt{\kern0.4\wd0\vrule height0.9\ht0\hss}\box0}} +{\setbox0=\hbox{$\scriptscriptstyle\rm C$}\hbox{\hbox +to0pt{\kern0.4\wd0\vrule height0.9\ht0\hss}\box0}}}} +\def\bbbq{{\mathchoice {\setbox0=\hbox{$\displaystyle\rm +Q$}\hbox{\raise +0.15\ht0\hbox to0pt{\kern0.4\wd0\vrule height0.8\ht0\hss}\box0}} +{\setbox0=\hbox{$\textstyle\rm Q$}\hbox{\raise +0.15\ht0\hbox to0pt{\kern0.4\wd0\vrule height0.8\ht0\hss}\box0}} +{\setbox0=\hbox{$\scriptstyle\rm Q$}\hbox{\raise +0.15\ht0\hbox to0pt{\kern0.4\wd0\vrule height0.7\ht0\hss}\box0}} +{\setbox0=\hbox{$\scriptscriptstyle\rm Q$}\hbox{\raise +0.15\ht0\hbox to0pt{\kern0.4\wd0\vrule height0.7\ht0\hss}\box0}}}} +\def\bbbt{{\mathchoice {\setbox0=\hbox{$\displaystyle\rm +T$}\hbox{\hbox to0pt{\kern0.3\wd0\vrule height0.9\ht0\hss}\box0}} +{\setbox0=\hbox{$\textstyle\rm T$}\hbox{\hbox +to0pt{\kern0.3\wd0\vrule height0.9\ht0\hss}\box0}} +{\setbox0=\hbox{$\scriptstyle\rm T$}\hbox{\hbox +to0pt{\kern0.3\wd0\vrule height0.9\ht0\hss}\box0}} +{\setbox0=\hbox{$\scriptscriptstyle\rm T$}\hbox{\hbox +to0pt{\kern0.3\wd0\vrule height0.9\ht0\hss}\box0}}}} +\def\bbbs{{\mathchoice +{\setbox0=\hbox{$\displaystyle \rm S$}\hbox{\raise0.5\ht0\hbox +to0pt{\kern0.35\wd0\vrule height0.45\ht0\hss}\hbox +to0pt{\kern0.55\wd0\vrule height0.5\ht0\hss}\box0}} +{\setbox0=\hbox{$\textstyle \rm S$}\hbox{\raise0.5\ht0\hbox +to0pt{\kern0.35\wd0\vrule height0.45\ht0\hss}\hbox +to0pt{\kern0.55\wd0\vrule height0.5\ht0\hss}\box0}} +{\setbox0=\hbox{$\scriptstyle \rm S$}\hbox{\raise0.5\ht0\hbox +to0pt{\kern0.35\wd0\vrule height0.45\ht0\hss}\raise0.05\ht0\hbox +to0pt{\kern0.5\wd0\vrule height0.45\ht0\hss}\box0}} +{\setbox0=\hbox{$\scriptscriptstyle\rm S$}\hbox{\raise0.5\ht0\hbox +to0pt{\kern0.4\wd0\vrule height0.45\ht0\hss}\raise0.05\ht0\hbox +to0pt{\kern0.55\wd0\vrule height0.45\ht0\hss}\box0}}}} +\def\bbbz{{\mathchoice {\hbox{$\mathsf\textstyle Z\kern-0.4em Z$}} +{\hbox{$\mathsf\textstyle Z\kern-0.4em Z$}} +{\hbox{$\mathsf\scriptstyle Z\kern-0.3em Z$}} +{\hbox{$\mathsf\scriptscriptstyle Z\kern-0.2em Z$}}}} + +\let\ts\, + +\setlength\leftmargini {17\p@} +\setlength\leftmargin {\leftmargini} +\setlength\leftmarginii {\leftmargini} +\setlength\leftmarginiii {\leftmargini} +\setlength\leftmarginiv {\leftmargini} +\setlength \labelsep {.5em} +\setlength \labelwidth{\leftmargini} +\addtolength\labelwidth{-\labelsep} + +\def\@listI{\leftmargin\leftmargini + \parsep 0\p@ \@plus1\p@ \@minus\p@ + \topsep 8\p@ \@plus2\p@ \@minus4\p@ + \itemsep0\p@} +\let\@listi\@listI +\@listi +\def\@listii {\leftmargin\leftmarginii + \labelwidth\leftmarginii + \advance\labelwidth-\labelsep + \topsep 0\p@ \@plus2\p@ \@minus\p@} +\def\@listiii{\leftmargin\leftmarginiii + \labelwidth\leftmarginiii + \advance\labelwidth-\labelsep + \topsep 0\p@ \@plus\p@\@minus\p@ + \parsep \z@ + \partopsep \p@ \@plus\z@ \@minus\p@} + +\renewcommand\labelitemi{\normalfont\bfseries --} +\renewcommand\labelitemii{$\m@th\bullet$} + +\setlength\arraycolsep{1.4\p@} +\setlength\tabcolsep{1.4\p@} + +\def\tableofcontents{\chapter*{\contentsname\@mkboth{{\contentsname}}% + {{\contentsname}}} + \def\authcount##1{\setcounter{auco}{##1}\setcounter{@auth}{1}} + \def\lastand{\ifnum\value{auco}=2\relax + \unskip{} \andname\ + \else + \unskip \lastandname\ + \fi}% + \def\and{\stepcounter{@auth}\relax + \ifnum\value{@auth}=\value{auco}% + \lastand + \else + \unskip, + \fi}% + \@starttoc{toc}\if@restonecol\twocolumn\fi} + +\def\l@part#1#2{\addpenalty{\@secpenalty}% + \addvspace{2em plus\p@}% % space above part line + \begingroup + \parindent \z@ + \rightskip \z@ plus 5em + \hrule\vskip5pt + \large % same size as for a contribution heading + \bfseries\boldmath % set line in boldface + \leavevmode % TeX command to enter horizontal mode. + #1\par + \vskip5pt + \hrule + \vskip1pt + \nobreak % Never break after part entry + \endgroup} + +\def\@dotsep{2} + +\def\hyperhrefextend{\ifx\hyper@anchor\@undefined\else +{chapter.\thechapter}\fi} + +\def\addnumcontentsmark#1#2#3{% +\addtocontents{#1}{\protect\contentsline{#2}{\protect\numberline + {\thechapter}#3}{\thepage}\hyperhrefextend}} +\def\addcontentsmark#1#2#3{% +\addtocontents{#1}{\protect\contentsline{#2}{#3}{\thepage}\hyperhrefextend}} +\def\addcontentsmarkwop#1#2#3{% +\addtocontents{#1}{\protect\contentsline{#2}{#3}{0}\hyperhrefextend}} + +\def\@adcmk[#1]{\ifcase #1 \or +\def\@gtempa{\addnumcontentsmark}% + \or \def\@gtempa{\addcontentsmark}% + \or \def\@gtempa{\addcontentsmarkwop}% + \fi\@gtempa{toc}{chapter}} +\def\addtocmark{\@ifnextchar[{\@adcmk}{\@adcmk[3]}} + +\def\l@chapter#1#2{\addpenalty{-\@highpenalty} + \vskip 1.0em plus 1pt \@tempdima 1.5em \begingroup + \parindent \z@ \rightskip \@tocrmarg + \advance\rightskip by 0pt plus 2cm + \parfillskip -\rightskip \pretolerance=10000 + \leavevmode \advance\leftskip\@tempdima \hskip -\leftskip + {\large\bfseries\boldmath#1}\ifx0#2\hfil\null + \else + \nobreak + \leaders\hbox{$\m@th \mkern \@dotsep mu.\mkern + \@dotsep mu$}\hfill + \nobreak\hbox to\@pnumwidth{\hss #2}% + \fi\par + \penalty\@highpenalty \endgroup} + +\def\l@title#1#2{\addpenalty{-\@highpenalty} + \addvspace{8pt plus 1pt} + \@tempdima \z@ + \begingroup + \parindent \z@ \rightskip \@tocrmarg + \advance\rightskip by 0pt plus 2cm + \parfillskip -\rightskip \pretolerance=10000 + \leavevmode \advance\leftskip\@tempdima \hskip -\leftskip + #1\nobreak + \leaders\hbox{$\m@th \mkern \@dotsep mu.\mkern + \@dotsep mu$}\hfill + \nobreak\hbox to\@pnumwidth{\hss #2}\par + \penalty\@highpenalty \endgroup} + +\def\l@author#1#2{\addpenalty{\@highpenalty} + \@tempdima=\z@ %15\p@ + \begingroup + \parindent \z@ \rightskip \@tocrmarg + \advance\rightskip by 0pt plus 2cm + \pretolerance=10000 + \leavevmode \advance\leftskip\@tempdima %\hskip -\leftskip + \textit{#1}\par + \penalty\@highpenalty \endgroup} + +\setcounter{tocdepth}{0} +\newdimen\tocchpnum +\newdimen\tocsecnum +\newdimen\tocsectotal +\newdimen\tocsubsecnum +\newdimen\tocsubsectotal +\newdimen\tocsubsubsecnum +\newdimen\tocsubsubsectotal +\newdimen\tocparanum +\newdimen\tocparatotal +\newdimen\tocsubparanum +\tocchpnum=\z@ % no chapter numbers +\tocsecnum=15\p@ % section 88. plus 2.222pt +\tocsubsecnum=23\p@ % subsection 88.8 plus 2.222pt +\tocsubsubsecnum=27\p@ % subsubsection 88.8.8 plus 1.444pt +\tocparanum=35\p@ % paragraph 88.8.8.8 plus 1.666pt +\tocsubparanum=43\p@ % subparagraph 88.8.8.8.8 plus 1.888pt +\def\calctocindent{% +\tocsectotal=\tocchpnum +\advance\tocsectotal by\tocsecnum +\tocsubsectotal=\tocsectotal +\advance\tocsubsectotal by\tocsubsecnum +\tocsubsubsectotal=\tocsubsectotal +\advance\tocsubsubsectotal by\tocsubsubsecnum +\tocparatotal=\tocsubsubsectotal +\advance\tocparatotal by\tocparanum} +\calctocindent + +\def\l@section{\@dottedtocline{1}{\tocchpnum}{\tocsecnum}} +\def\l@subsection{\@dottedtocline{2}{\tocsectotal}{\tocsubsecnum}} +\def\l@subsubsection{\@dottedtocline{3}{\tocsubsectotal}{\tocsubsubsecnum}} +\def\l@paragraph{\@dottedtocline{4}{\tocsubsubsectotal}{\tocparanum}} +\def\l@subparagraph{\@dottedtocline{5}{\tocparatotal}{\tocsubparanum}} + +\def\listoffigures{\@restonecolfalse\if@twocolumn\@restonecoltrue\onecolumn + \fi\section*{\listfigurename\@mkboth{{\listfigurename}}{{\listfigurename}}} + \@starttoc{lof}\if@restonecol\twocolumn\fi} +\def\l@figure{\@dottedtocline{1}{0em}{1.5em}} + +\def\listoftables{\@restonecolfalse\if@twocolumn\@restonecoltrue\onecolumn + \fi\section*{\listtablename\@mkboth{{\listtablename}}{{\listtablename}}} + \@starttoc{lot}\if@restonecol\twocolumn\fi} +\let\l@table\l@figure + +\renewcommand\listoffigures{% + \section*{\listfigurename + \@mkboth{\listfigurename}{\listfigurename}}% + \@starttoc{lof}% + } + +\renewcommand\listoftables{% + \section*{\listtablename + \@mkboth{\listtablename}{\listtablename}}% + \@starttoc{lot}% + } + +\ifx\oribibl\undefined +\ifx\citeauthoryear\undefined +\renewenvironment{thebibliography}[1] + {\section*{\refname} + \def\@biblabel##1{##1.} + \small + \list{\@biblabel{\@arabic\c@enumiv}}% + {\settowidth\labelwidth{\@biblabel{#1}}% + \leftmargin\labelwidth + \advance\leftmargin\labelsep + \if@openbib + \advance\leftmargin\bibindent + \itemindent -\bibindent + \listparindent \itemindent + \parsep \z@ + \fi + \usecounter{enumiv}% + \let\p@enumiv\@empty + \renewcommand\theenumiv{\@arabic\c@enumiv}}% + \if@openbib + \renewcommand\newblock{\par}% + \else + \renewcommand\newblock{\hskip .11em \@plus.33em \@minus.07em}% + \fi + \sloppy\clubpenalty4000\widowpenalty4000% + \sfcode`\.=\@m} + {\def\@noitemerr + {\@latex@warning{Empty `thebibliography' environment}}% + \endlist} +\def\@lbibitem[#1]#2{\item[{[#1]}\hfill]\if@filesw + {\let\protect\noexpand\immediate + \write\@auxout{\string\bibcite{#2}{#1}}}\fi\ignorespaces} +\newcount\@tempcntc +\def\@citex[#1]#2{\if@filesw\immediate\write\@auxout{\string\citation{#2}}\fi + \@tempcnta\z@\@tempcntb\m@ne\def\@citea{}\@cite{\@for\@citeb:=#2\do + {\@ifundefined + {b@\@citeb}{\@citeo\@tempcntb\m@ne\@citea\def\@citea{,}{\bfseries + ?}\@warning + {Citation `\@citeb' on page \thepage \space undefined}}% + {\setbox\z@\hbox{\global\@tempcntc0\csname b@\@citeb\endcsname\relax}% + \ifnum\@tempcntc=\z@ \@citeo\@tempcntb\m@ne + \@citea\def\@citea{,}\hbox{\csname b@\@citeb\endcsname}% + \else + \advance\@tempcntb\@ne + \ifnum\@tempcntb=\@tempcntc + \else\advance\@tempcntb\m@ne\@citeo + \@tempcnta\@tempcntc\@tempcntb\@tempcntc\fi\fi}}\@citeo}{#1}} +\def\@citeo{\ifnum\@tempcnta>\@tempcntb\else + \@citea\def\@citea{,\,\hskip\z@skip}% + \ifnum\@tempcnta=\@tempcntb\the\@tempcnta\else + {\advance\@tempcnta\@ne\ifnum\@tempcnta=\@tempcntb \else + \def\@citea{--}\fi + \advance\@tempcnta\m@ne\the\@tempcnta\@citea\the\@tempcntb}\fi\fi} +\else +\renewenvironment{thebibliography}[1] + {\section*{\refname} + \small + \list{}% + {\settowidth\labelwidth{}% + \leftmargin\parindent + \itemindent=-\parindent + \labelsep=\z@ + \if@openbib + \advance\leftmargin\bibindent + \itemindent -\bibindent + \listparindent \itemindent + \parsep \z@ + \fi + \usecounter{enumiv}% + \let\p@enumiv\@empty + \renewcommand\theenumiv{}}% + \if@openbib + \renewcommand\newblock{\par}% + \else + \renewcommand\newblock{\hskip .11em \@plus.33em \@minus.07em}% + \fi + \sloppy\clubpenalty4000\widowpenalty4000% + \sfcode`\.=\@m} + {\def\@noitemerr + {\@latex@warning{Empty `thebibliography' environment}}% + \endlist} + \def\@cite#1{#1}% + \def\@lbibitem[#1]#2{\item[]\if@filesw + {\def\protect##1{\string ##1\space}\immediate + \write\@auxout{\string\bibcite{#2}{#1}}}\fi\ignorespaces} + \fi +\else +\@cons\@openbib@code{\noexpand\small} +\fi + +\def\idxquad{\hskip 10\p@}% space that divides entry from number + +\def\@idxitem{\par\hangindent 10\p@} + +\def\subitem{\par\setbox0=\hbox{--\enspace}% second order + \noindent\hangindent\wd0\box0}% index entry + +\def\subsubitem{\par\setbox0=\hbox{--\,--\enspace}% third + \noindent\hangindent\wd0\box0}% order index entry + +\def\indexspace{\par \vskip 10\p@ plus5\p@ minus3\p@\relax} + +\renewenvironment{theindex} + {\@mkboth{\indexname}{\indexname}% + \thispagestyle{empty}\parindent\z@ + \parskip\z@ \@plus .3\p@\relax + \let\item\par + \def\,{\relax\ifmmode\mskip\thinmuskip + \else\hskip0.2em\ignorespaces\fi}% + \normalfont\small + \begin{multicols}{2}[\@makeschapterhead{\indexname}]% + } + {\end{multicols}} + +\renewcommand\footnoterule{% + \kern-3\p@ + \hrule\@width 2truecm + \kern2.6\p@} + \newdimen\fnindent + \fnindent1em +\long\def\@makefntext#1{% + \parindent \fnindent% + \leftskip \fnindent% + \noindent + \llap{\hb@xt@1em{\hss\@makefnmark\ }}\ignorespaces#1} + +\long\def\@makecaption#1#2{% + \vskip\abovecaptionskip + \sbox\@tempboxa{{\bfseries #1.} #2}% + \ifdim \wd\@tempboxa >\hsize + {\bfseries #1.} #2\par + \else + \global \@minipagefalse + \hb@xt@\hsize{\hfil\box\@tempboxa\hfil}% + \fi + \vskip\belowcaptionskip} + +\def\fps@figure{htbp} +\def\fnum@figure{\figurename\thinspace\thefigure} +\def \@floatboxreset {% + \reset@font + \small + \@setnobreak + \@setminipage +} +\def\fps@table{htbp} +\def\fnum@table{\tablename~\thetable} +\renewenvironment{table} + {\setlength\abovecaptionskip{0\p@}% + \setlength\belowcaptionskip{10\p@}% + \@float{table}} + {\end@float} +\renewenvironment{table*} + {\setlength\abovecaptionskip{0\p@}% + \setlength\belowcaptionskip{10\p@}% + \@dblfloat{table}} + {\end@dblfloat} + +\long\def\@caption#1[#2]#3{\par\addcontentsline{\csname + ext@#1\endcsname}{#1}{\protect\numberline{\csname + the#1\endcsname}{\ignorespaces #2}}\begingroup + \@parboxrestore + \@makecaption{\csname fnum@#1\endcsname}{\ignorespaces #3}\par + \endgroup} + +% LaTeX does not provide a command to enter the authors institute +% addresses. The \institute command is defined here. + +\newcounter{@inst} +\newcounter{@auth} +\newcounter{auco} +\newdimen\instindent +\newbox\authrun +\newtoks\authorrunning +\newtoks\tocauthor +\newbox\titrun +\newtoks\titlerunning +\newtoks\toctitle + +\def\clearheadinfo{\gdef\@author{No Author Given}% + \gdef\@title{No Title Given}% + \gdef\@subtitle{}% + \gdef\@institute{No Institute Given}% + \gdef\@thanks{}% + \global\titlerunning={}\global\authorrunning={}% + \global\toctitle={}\global\tocauthor={}} + +\def\institute#1{\gdef\@institute{#1}} + +\def\institutename{\par + \begingroup + \parskip=\z@ + \parindent=\z@ + \setcounter{@inst}{1}% + \def\and{\par\stepcounter{@inst}% + \noindent$^{\the@inst}$\enspace\ignorespaces}% + \setbox0=\vbox{\def\thanks##1{}\@institute}% + \ifnum\c@@inst=1\relax + \gdef\fnnstart{0}% + \else + \xdef\fnnstart{\c@@inst}% + \setcounter{@inst}{1}% + \noindent$^{\the@inst}$\enspace + \fi + \ignorespaces + \@institute\par + \endgroup} + +\def\@fnsymbol#1{\ensuremath{\ifcase#1\or\star\or{\star\star}\or + {\star\star\star}\or \dagger\or \ddagger\or + \mathchar "278\or \mathchar "27B\or \|\or **\or \dagger\dagger + \or \ddagger\ddagger \else\@ctrerr\fi}} + +\def\inst#1{\unskip$^{#1}$} +\def\fnmsep{\unskip$^,$} +\def\email#1{{\tt#1}} +\AtBeginDocument{\@ifundefined{url}{\def\url#1{#1}}{}% +\@ifpackageloaded{babel}{% +\@ifundefined{extrasenglish}{}{\addto\extrasenglish{\switcht@albion}}% +\@ifundefined{extrasfrenchb}{}{\addto\extrasfrenchb{\switcht@francais}}% +\@ifundefined{extrasgerman}{}{\addto\extrasgerman{\switcht@deutsch}}% +}{\switcht@@therlang}% +} +\def\homedir{\~{ }} + +\def\subtitle#1{\gdef\@subtitle{#1}} +\clearheadinfo + +\renewcommand\maketitle{\newpage + \refstepcounter{chapter}% + \stepcounter{section}% + \setcounter{section}{0}% + \setcounter{subsection}{0}% + \setcounter{figure}{0} + \setcounter{table}{0} + \setcounter{equation}{0} + \setcounter{footnote}{0}% + \begingroup + \parindent=\z@ + \renewcommand\thefootnote{\@fnsymbol\c@footnote}% + \if@twocolumn + \ifnum \col@number=\@ne + \@maketitle + \else + \twocolumn[\@maketitle]% + \fi + \else + \newpage + \global\@topnum\z@ % Prevents figures from going at top of page. + \@maketitle + \fi + \thispagestyle{empty}\@thanks +% + \def\\{\unskip\ \ignorespaces}\def\inst##1{\unskip{}}% + \def\thanks##1{\unskip{}}\def\fnmsep{\unskip}% + \instindent=\hsize + \advance\instindent by-\headlineindent + \if!\the\toctitle!\addcontentsline{toc}{title}{\@title}\else + \addcontentsline{toc}{title}{\the\toctitle}\fi + \if@runhead + \if!\the\titlerunning!\else + \edef\@title{\the\titlerunning}% + \fi + \global\setbox\titrun=\hbox{\small\rm\unboldmath\ignorespaces\@title}% + \ifdim\wd\titrun>\instindent + \typeout{Title too long for running head. Please supply}% + \typeout{a shorter form with \string\titlerunning\space prior to + \string\maketitle}% + \global\setbox\titrun=\hbox{\small\rm + Title Suppressed Due to Excessive Length}% + \fi + \xdef\@title{\copy\titrun}% + \fi +% + \if!\the\tocauthor!\relax + {\def\and{\noexpand\protect\noexpand\and}% + \protected@xdef\toc@uthor{\@author}}% + \else + \def\\{\noexpand\protect\noexpand\newline}% + \protected@xdef\scratch{\the\tocauthor}% + \protected@xdef\toc@uthor{\scratch}% + \fi + \addcontentsline{toc}{author}{\toc@uthor}% + \if@runhead + \if!\the\authorrunning! + \value{@inst}=\value{@auth}% + \setcounter{@auth}{1}% + \else + \edef\@author{\the\authorrunning}% + \fi + \global\setbox\authrun=\hbox{\small\unboldmath\@author\unskip}% + \ifdim\wd\authrun>\instindent + \typeout{Names of authors too long for running head. Please supply}% + \typeout{a shorter form with \string\authorrunning\space prior to + \string\maketitle}% + \global\setbox\authrun=\hbox{\small\rm + Authors Suppressed Due to Excessive Length}% + \fi + \xdef\@author{\copy\authrun}% + \markboth{\@author}{\@title}% + \fi + \endgroup + \setcounter{footnote}{\fnnstart}% + \clearheadinfo} +% +\def\@maketitle{\newpage + \markboth{}{}% + \def\lastand{\ifnum\value{@inst}=2\relax + \unskip{} \andname\ + \else + \unskip \lastandname\ + \fi}% + \def\and{\stepcounter{@auth}\relax + \ifnum\value{@auth}=\value{@inst}% + \lastand + \else + \unskip, + \fi}% + \begin{center}% + \let\newline\\ + {\Large \bfseries\boldmath + \pretolerance=10000 + \@title \par}\vskip .8cm +\if!\@subtitle!\else {\large \bfseries\boldmath + \vskip -.65cm + \pretolerance=10000 + \@subtitle \par}\vskip .8cm\fi + \setbox0=\vbox{\setcounter{@auth}{1}\def\and{\stepcounter{@auth}}% + \def\thanks##1{}\@author}% + \global\value{@inst}=\value{@auth}% + \global\value{auco}=\value{@auth}% + \setcounter{@auth}{1}% +{\lineskip .5em +\noindent\ignorespaces +\@author\vskip.35cm} + {\small\institutename} + \end{center}% + } + +% definition of the "\spnewtheorem" command. +% +% Usage: +% +% \spnewtheorem{env_nam}{caption}[within]{cap_font}{body_font} +% or \spnewtheorem{env_nam}[numbered_like]{caption}{cap_font}{body_font} +% or \spnewtheorem*{env_nam}{caption}{cap_font}{body_font} +% +% New is "cap_font" and "body_font". It stands for +% fontdefinition of the caption and the text itself. +% +% "\spnewtheorem*" gives a theorem without number. +% +% A defined spnewthoerem environment is used as described +% by Lamport. +% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +\def\@thmcountersep{} +\def\@thmcounterend{.} + +\def\spnewtheorem{\@ifstar{\@sthm}{\@Sthm}} + +% definition of \spnewtheorem with number + +\def\@spnthm#1#2{% + \@ifnextchar[{\@spxnthm{#1}{#2}}{\@spynthm{#1}{#2}}} +\def\@Sthm#1{\@ifnextchar[{\@spothm{#1}}{\@spnthm{#1}}} + +\def\@spxnthm#1#2[#3]#4#5{\expandafter\@ifdefinable\csname #1\endcsname + {\@definecounter{#1}\@addtoreset{#1}{#3}% + \expandafter\xdef\csname the#1\endcsname{\expandafter\noexpand + \csname the#3\endcsname \noexpand\@thmcountersep \@thmcounter{#1}}% + \expandafter\xdef\csname #1name\endcsname{#2}% + \global\@namedef{#1}{\@spthm{#1}{\csname #1name\endcsname}{#4}{#5}}% + \global\@namedef{end#1}{\@endtheorem}}} + +\def\@spynthm#1#2#3#4{\expandafter\@ifdefinable\csname #1\endcsname + {\@definecounter{#1}% + \expandafter\xdef\csname the#1\endcsname{\@thmcounter{#1}}% + \expandafter\xdef\csname #1name\endcsname{#2}% + \global\@namedef{#1}{\@spthm{#1}{\csname #1name\endcsname}{#3}{#4}}% + \global\@namedef{end#1}{\@endtheorem}}} + +\def\@spothm#1[#2]#3#4#5{% + \@ifundefined{c@#2}{\@latexerr{No theorem environment `#2' defined}\@eha}% + {\expandafter\@ifdefinable\csname #1\endcsname + {\global\@namedef{the#1}{\@nameuse{the#2}}% + \expandafter\xdef\csname #1name\endcsname{#3}% + \global\@namedef{#1}{\@spthm{#2}{\csname #1name\endcsname}{#4}{#5}}% + \global\@namedef{end#1}{\@endtheorem}}}} + +\def\@spthm#1#2#3#4{\topsep 7\p@ \@plus2\p@ \@minus4\p@ +\refstepcounter{#1}% +\@ifnextchar[{\@spythm{#1}{#2}{#3}{#4}}{\@spxthm{#1}{#2}{#3}{#4}}} + +\def\@spxthm#1#2#3#4{\@spbegintheorem{#2}{\csname the#1\endcsname}{#3}{#4}% + \ignorespaces} + +\def\@spythm#1#2#3#4[#5]{\@spopargbegintheorem{#2}{\csname + the#1\endcsname}{#5}{#3}{#4}\ignorespaces} + +\def\@spbegintheorem#1#2#3#4{\trivlist + \item[\hskip\labelsep{#3#1\ #2\@thmcounterend}]#4} + +\def\@spopargbegintheorem#1#2#3#4#5{\trivlist + \item[\hskip\labelsep{#4#1\ #2}]{#4(#3)\@thmcounterend\ }#5} + +% definition of \spnewtheorem* without number + +\def\@sthm#1#2{\@Ynthm{#1}{#2}} + +\def\@Ynthm#1#2#3#4{\expandafter\@ifdefinable\csname #1\endcsname + {\global\@namedef{#1}{\@Thm{\csname #1name\endcsname}{#3}{#4}}% + \expandafter\xdef\csname #1name\endcsname{#2}% + \global\@namedef{end#1}{\@endtheorem}}} + +\def\@Thm#1#2#3{\topsep 7\p@ \@plus2\p@ \@minus4\p@ +\@ifnextchar[{\@Ythm{#1}{#2}{#3}}{\@Xthm{#1}{#2}{#3}}} + +\def\@Xthm#1#2#3{\@Begintheorem{#1}{#2}{#3}\ignorespaces} + +\def\@Ythm#1#2#3[#4]{\@Opargbegintheorem{#1} + {#4}{#2}{#3}\ignorespaces} + +\def\@Begintheorem#1#2#3{#3\trivlist + \item[\hskip\labelsep{#2#1\@thmcounterend}]} + +\def\@Opargbegintheorem#1#2#3#4{#4\trivlist + \item[\hskip\labelsep{#3#1}]{#3(#2)\@thmcounterend\ }} + +\if@envcntsect + \def\@thmcountersep{.} + \spnewtheorem{theorem}{Theorem}[section]{\bfseries}{\itshape} +\else + \spnewtheorem{theorem}{Theorem}{\bfseries}{\itshape} + \if@envcntreset + \@addtoreset{theorem}{section} + \else + \@addtoreset{theorem}{chapter} + \fi +\fi + +%definition of divers theorem environments +\spnewtheorem*{claim}{Claim}{\itshape}{\rmfamily} +\spnewtheorem*{proof}{Proof}{\itshape}{\rmfamily} +\if@envcntsame % alle Umgebungen wie Theorem. + \def\spn@wtheorem#1#2#3#4{\@spothm{#1}[theorem]{#2}{#3}{#4}} +\else % alle Umgebungen mit eigenem Zaehler + \if@envcntsect % mit section numeriert + \def\spn@wtheorem#1#2#3#4{\@spxnthm{#1}{#2}[section]{#3}{#4}} + \else % nicht mit section numeriert + \if@envcntreset + \def\spn@wtheorem#1#2#3#4{\@spynthm{#1}{#2}{#3}{#4} + \@addtoreset{#1}{section}} + \else + \def\spn@wtheorem#1#2#3#4{\@spynthm{#1}{#2}{#3}{#4} + \@addtoreset{#1}{chapter}}% + \fi + \fi +\fi +\spn@wtheorem{case}{Case}{\itshape}{\rmfamily} +\spn@wtheorem{conjecture}{Conjecture}{\itshape}{\rmfamily} +\spn@wtheorem{corollary}{Corollary}{\bfseries}{\itshape} +\spn@wtheorem{definition}{Definition}{\bfseries}{\itshape} +\spn@wtheorem{example}{Example}{\itshape}{\rmfamily} +\spn@wtheorem{exercise}{Exercise}{\itshape}{\rmfamily} +\spn@wtheorem{lemma}{Lemma}{\bfseries}{\itshape} +\spn@wtheorem{note}{Note}{\itshape}{\rmfamily} +\spn@wtheorem{problem}{Problem}{\itshape}{\rmfamily} +\spn@wtheorem{property}{Property}{\itshape}{\rmfamily} +\spn@wtheorem{proposition}{Proposition}{\bfseries}{\itshape} +\spn@wtheorem{question}{Question}{\itshape}{\rmfamily} +\spn@wtheorem{solution}{Solution}{\itshape}{\rmfamily} +\spn@wtheorem{remark}{Remark}{\itshape}{\rmfamily} + +\def\@takefromreset#1#2{% + \def\@tempa{#1}% + \let\@tempd\@elt + \def\@elt##1{% + \def\@tempb{##1}% + \ifx\@tempa\@tempb\else + \@addtoreset{##1}{#2}% + \fi}% + \expandafter\expandafter\let\expandafter\@tempc\csname cl@#2\endcsname + \expandafter\def\csname cl@#2\endcsname{}% + \@tempc + \let\@elt\@tempd} + +\def\theopargself{\def\@spopargbegintheorem##1##2##3##4##5{\trivlist + \item[\hskip\labelsep{##4##1\ ##2}]{##4##3\@thmcounterend\ }##5} + \def\@Opargbegintheorem##1##2##3##4{##4\trivlist + \item[\hskip\labelsep{##3##1}]{##3##2\@thmcounterend\ }} + } + +\renewenvironment{abstract}{% + \list{}{\advance\topsep by0.35cm\relax\small + \leftmargin=1cm + \labelwidth=\z@ + \listparindent=\z@ + \itemindent\listparindent + \rightmargin\leftmargin}\item[\hskip\labelsep + \bfseries\abstractname]} + {\endlist} + +\newdimen\headlineindent % dimension for space between +\headlineindent=1.166cm % number and text of headings. + +\def\ps@headings{\let\@mkboth\@gobbletwo + \let\@oddfoot\@empty\let\@evenfoot\@empty + \def\@evenhead{\normalfont\small\rlap{\thepage}\hspace{\headlineindent}% + \leftmark\hfil} + \def\@oddhead{\normalfont\small\hfil\rightmark\hspace{\headlineindent}% + \llap{\thepage}} + \def\chaptermark##1{}% + \def\sectionmark##1{}% + \def\subsectionmark##1{}} + +\def\ps@titlepage{\let\@mkboth\@gobbletwo + \let\@oddfoot\@empty\let\@evenfoot\@empty + \def\@evenhead{\normalfont\small\rlap{\thepage}\hspace{\headlineindent}% + \hfil} + \def\@oddhead{\normalfont\small\hfil\hspace{\headlineindent}% + \llap{\thepage}} + \def\chaptermark##1{}% + \def\sectionmark##1{}% + \def\subsectionmark##1{}} + +\if@runhead\ps@headings\else +\ps@empty\fi + +\setlength\arraycolsep{1.4\p@} +\setlength\tabcolsep{1.4\p@} + +\endinput +%end of file llncs.cls diff --git a/vendors/ott/examples/ocaml_light/doc/ott-spec.ltx b/vendors/ott/examples/ocaml_light/doc/ott-spec.ltx new file mode 100644 index 000000000000..1fa986af8bfa --- /dev/null +++ b/vendors/ott/examples/ocaml_light/doc/ott-spec.ltx @@ -0,0 +1,77 @@ +%% Redefinitions of ott macros to improve the typeset caml specification. + +%% \ott@regularize@underscores{\command}{FOO_BAR\_QUUX} +%% Run "\command{FOO_BAR_QUUX}" where "_" characters of category 8 and "\_" +%% control sequences have been replaced by a "_" of category 11. +\def\ott@regularize@underscores#1#2{% + \begingroup% + \escapechar=-1 % + \expandafter\def\expandafter\_\expandafter{\string\_}% + \def\@tempa{#1}% + \expandafter\expandafter\expandafter\def% + \expandafter\expandafter\expandafter\@tempb% + \expandafter\expandafter\expandafter{% + \expandafter\string\csname#2\endcsname}% + \expandafter\expandafter\expandafter\def% + \expandafter\expandafter\expandafter\@tempc% + \expandafter\expandafter\expandafter{% + \expandafter\@tempa\expandafter{\@tempb}}% + \expandafter\endgroup\@tempc% +} + +\def\ottdrulelabel@z#1{\label{defn.#1}} +\def\ottdrulelabel@b#1{\ott@regularize@underscores\ottdrulelabel@z} +\def\ottdrulelabel@a#1#2{\ottdrulelabel@b#1} +\def\ottdruleref@a#1{% + \expandafter\@setref\csname r@defn.#1\endcsname% + {\ottdrulename{#1}\@gobbletwo}% + {#1} +} + +\newcommand\ottdruleref{\ott@regularize@underscores\ottdruleref@a} +\renewcommand{\ottdrule}[4][]{% + \frac{\begin{array}{l}#2\end{array}}% + {\ottconclusion{#3}}% + \def\@tempa{#4}% + \ifx\@tempa\empty\else \quad #4\ottdrulelabel@a#4\fi} +%\renewcommand{\ottusedrule}[1]{\[#1\]} +%\renewcommand{\ottpremise}[1]{ #1 \\} + +%% Put \ottmaybebreakline in the TeX rendering to signal a potential +%% breakpoint. +%% Set \ottbreakconclusionlinetrue to break the conclusion of subsequent rules +%% at all declared breakpoints. +\newif\ifottbreakconclusionline \ottbreakconclusionlinefalse +\newcommand\ottmaybebreakline{} +\newcommand{\ottconclusion}[1]{% + \ifottbreakconclusionline% + \def\ottmaybebreakline{\qquad$\\$\hfill\qquad}% + \begin{tabular}{l}$#1$\end{tabular}% + \else% + #1% + \fi% +} + +%% Put each defn block in a subsection +\renewenvironment{ottdefnblock}[3][]{% + \vspace{1em}\par% + \subsection*{\protect\framebox{\mbox{#2}} \quad #3}% +}{% +} + +%\renewcommand{\ottnt}[1]{\mathit{#1}} +%\renewcommand{\ottmv}[1]{\mathit{#1}} +%\renewcommand{\ottkw}[1]{\mathbf{#1}} +%\renewcommand{\ottcom}[1]{\text{#1}} + +%% Changed the font for rule names +\renewcommand{\ottdrulename}[1]{\textsf{#1}} + +%\renewcommand{\ottcomplu}[5]{\overline{#1}^{\,#2\in #3 #4 #5}} +%\renewcommand{\ottcompu}[3]{\overline{#1}^{\,#2<#3}} +%\renewcommand{\ottcomp}[2]{\overline{#1}^{\,#2}} +%\renewcommand{\ottgrammartabular}[1]{\begin{supertabular}{llcllllll}#1\end{supertabular}} +%\renewcommand{\ottrulehead}[3]{$#1$ & & $#2$ & & & \multicolumn{2}{l}{#3}} +\renewcommand{\ottprodline}[6]{& & $#1$ & $#2$ & $#3 #4$ & $#5$ & \def\ottprodlinetmp{#6}\ifx\ottprodlinetmp\empty\else\def\ottprodlinetmp{\\ & & & \multicolumn{3}{l}{$~~#6$}}\fi\ottprodlinetmp} +%\renewcommand{\ottinterrule}{\\[5.0mm]} +%\renewcommand{\ottafterlastrule}{\\} diff --git a/vendors/ott/examples/ocaml_light/doc/poster.sty b/vendors/ott/examples/ocaml_light/doc/poster.sty new file mode 100644 index 000000000000..0e9087999f24 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/doc/poster.sty @@ -0,0 +1,44 @@ +\usepackage{geometry,wrapfig} + + +\usepackage[usenames]{color} + + +\usepackage{latexsym} +\usepackage{array} +\usepackage{amsmath} +\usepackage{amssymb} +\usepackage{epsfig} +\usepackage{parskip} +%\usepackage{multicol} +\usepackage{pstricks} +%\usepackage{sabon} %Official font for University of Cambridge logo - but not a +%standard free font, grr +\usepackage{graphicx} + +\usepackage{alltt} +%\usepackage[all,dvips]{xy} +\usepackage{ifthen} + +\geometry{a4paper, dvips, + left=17mm, right=17mm, + foot=10mm, head=12mm, headsep=5mm, top=0mm, bottom=0mm} + + + +\newrgbcolor{mc}{.0 .5 .5} +\newcmykcolor{cc}{1 0.5 0 0.3} % blue +\newcmykcolor{var}{0.2 1 0 0.3} % purple + +\newrgbcolor{pmc}{.0 .5 .5} + + + +\sloppy +\pagestyle{empty} + +\renewcommand{\refname}{{\normalsize\mc\mdseries\textsf{Papers}}} + + + +\input postercore.sty diff --git a/vendors/ott/examples/ocaml_light/doc/poster.tex b/vendors/ott/examples/ocaml_light/doc/poster.tex new file mode 100644 index 000000000000..9ada413592df --- /dev/null +++ b/vendors/ott/examples/ocaml_light/doc/poster.tex @@ -0,0 +1,409 @@ +\documentclass[11pt]{article} + +\usepackage{poster} +\usepackage{pstricks} +\usepackage{pst-node} + +\usepackage{alltt} +\usepackage{url} +\usepackage{verbatim} +\newlength{\shorttextwidth} +\setlength{\shorttextwidth}{\textwidth} +\addtolength{\shorttextwidth}{-2.0cm} +\newlength{\longtextwidth} +\setlength{\longtextwidth}{\textwidth} +\addtolength{\longtextwidth}{1.5cm} +\newlength{\longertextwidth} +\setlength{\longertextwidth}{\textwidth} +\addtolength{\longertextwidth}{6.5cm} + + +\newcommand{\mybf}[1]{{\pmb{\texttt{#1}}}} +%\newcommand{\mybackslash}{\mbox{$\backslash$}} +%\newcommand{\mybackslash}{\mbox{\tt\char'134}} +%\newcommand{\mylb}{\mbox{\tt\char'173}} +%\newcommand{\myrb}{\mbox{\tt\char'175}} + +\newcommand{\mykw}[1]{{\color{Mahogany}{\pmb{\texttt{#1}}}}} +\newcommand{\mysym}[1]{{\color{RoyalBlue}{{\texttt{#1}}}}} +%\newcommand{\mybackslash}{\mbox{$\backslash$}} +\newcommand{\mybackslash}{\mbox{\tt\char'134}} +\newcommand{\mylb}{\mbox{\tt\char'173}} +\newcommand{\myrb}{\mbox{\tt\char'175}} + + + +{ +\newcommand{\ottdrule}[4][]{\frac{\begin{array}{l}#2\end{array}}{#3}\quad\ottdrulename{#4}} +\newcommand{\ottusedrule}[1]{\[#1\]} +\newcommand{\ottpremise}[1]{ #1 \\} +\newenvironment{ottdefnblock}[2]{ \framebox{\mbox{#1}} \quad #2 \\[0pt]}{} +\newcommand{\ottnt}[1]{\mathit{#1}} +\newcommand{\ottmv}[1]{\mathit{#1}} +\newcommand{\ottkw}[1]{\mathbf{#1}} +\newcommand{\ottcom}[1]{\text{#1}} +\newcommand{\ottdrulename}[1]{\textsc{#1}} +\newcommand{\ottcomplu}[5]{\overline{#1}^{\,#2\in #3 #4 #5}} +\newcommand{\ottcompu}[3]{\overline{#1}^{\,#2<#3}} +\newcommand{\ottcomp}[2]{\overline{#1}^{\,#2}} +\makeatletter +\newcommand{\ottenvironmentappend}[2]{% + \begingroup% + \def\@tempa{#1}\def\@tempb{ \ottkw{empty} }% + \ifx\@tempa\@tempb\def\@tempc{}\else\def\@tempc{#1,}\fi% + \expandafter\endgroup% + \@tempc#2% +} +\makeatother + +\newcommand{\ottdruleJTeXXrecordXXconstr}[1]{\ottdrule[#1]{ + \ottpremise{\ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{1}}}} \, : \, \ottnt{t_{{\mathrm{1}}}} \quad ... \quad \ottnt{E} \, \vdash \, \ottnt{e_{\ottmv{n}}} \, : \, \ottnt{t_{\ottmv{n}}}} + \ottpremise{\ottnt{E} \, \vdash \, \ottnt{field\_name_{{\mathrm{1}}}} \, : \, \ottnt{t} \, \rightarrow \, \ottnt{t_{{\mathrm{1}}}} \quad ... \quad \ottnt{E} \, \vdash \, \ottnt{field\_name_{\ottmv{n}}} \, : \, \ottnt{t} \, \rightarrow \, \ottnt{t_{\ottmv{n}}}} + \ottpremise{\ottnt{t} \, = \, ( \, \ottnt{t'_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{t'_{\ottmv{l}}} \, ) \, \ottnt{typeconstr\_name}} + \ottpremise{\ottnt{E} \, \vdash \, \ottnt{typeconstr\_name} \, \;\vartriangleright\; \, \ottnt{typeconstr\_name} \, : \, \ottnt{kind} \, \ottkw{\{} \, \ottnt{field\_name'_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{field\_name'_{\ottmv{m}}} \, \ottkw{\}}} + \ottpremise{\ottnt{field\_name_{{\mathrm{1}}}} \, ... \, \ottnt{field\_name_{\ottmv{n}}} \, \ottkw{PERMUTES} \, \ottnt{field\_name'_{{\mathrm{1}}}} \, ... \, \ottnt{field\_name'_{\ottmv{m}}}} + \ottpremise{\ottkw{length} \, ( \, \ottnt{e_{{\mathrm{1}}}} \, ) \, ... \, ( \, \ottnt{e_{\ottmv{n}}} \, ) \, \geq \, 1}}{ +\ottnt{E} \, \vdash \, \ottkw{\{} \, \ottnt{field\_name_{{\mathrm{1}}}} \, = \, \ottnt{e_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{field\_name_{\ottmv{n}}} \, = \, \ottnt{e_{\ottmv{n}}} \, \ottkw{\}} \, : \, \ottnt{t}}{ +{\ottdrulename{JTe\_record\_constr}}{} +}} + +\newcommand{\ottdruleJRXXexprXXtupleXXctx}[1]{\ottdrule[#1]{ + \ottpremise{\vdash \, \ottnt{e} \, \stackrel{ \ottnt{L} }{\longrightarrow} \, \ottnt{e'}}}{ +\vdash \, \, ( \, \ottnt{e_{{\mathrm{1}}}} \, ,\, \, .. \, ,\, \, \ottnt{e_{\ottmv{m}}} \, ,\, \, \ottnt{e} \, ,\, \, \ottnt{v_{{\mathrm{1}}}} \, ,\, \, .. \, ,\, \, \ottnt{v_{\ottmv{n}}} \, ) \, \stackrel{ \ottnt{L} }{\longrightarrow} \, \, ( \, \ottnt{e_{{\mathrm{1}}}} \, ,\, \, .. \, ,\, \, \ottnt{e_{\ottmv{m}}} \, ,\, \, \ottnt{e'} \, ,\, \, \ottnt{v_{{\mathrm{1}}}} \, ,\, \, .. \, ,\, \, \ottnt{v_{\ottmv{n}}} \, )}{ +{\ottdrulename{JR\_expr\_tuple\_ctx}}{} +}} + + +\newcommand{\OCL}{OCaml$_\textit{light}$} + +\begin{document} + +\vspace*{0.6cm} + +\postersubtitle{\huge A Sound Semantics for \OCL{}} + +%{\rm\large\url{http://www.cl.cam.ac.uk/users/pes20/ott}} + + + + +%\postertitle{\Huge}{Skeleton Title} + +%\postersubtitle{and maybe a subtitle} + +\posterpeople{Scott Owens} + +\sf + +\scalebox{.52}{ +\begin{minipage}{16.5cm} +\huge + +\noindent \OCL{} (ESOP '08) is a formal semantics for a substantial subset of the Objective Caml +core language, suitable for writing and verifying real programs. It includes: +\vspace{10pt} +\Large +\begin{itemize} +\item +definitions +\begin{itemize} +\item +variant data types (e.g., \texttt{type t = I of int | C of char}), +\item +record types (e.g., \texttt{type t = \{f : int; g : bool\}}), +\item +parametric type constructors (e.g., \texttt{type 'a t = C of 'a}), +\item +type abbreviations (e.g., \texttt{type 'a t = 'a * int}), +\item +mutually recursive combinations of the above (excepting abbreviations), +\item +exceptions, and values; +\end{itemize} +\item +expressions for type annotations, sequencing, and primitive values\\ +(functions, lists, tuples, and records); +\item +\texttt{with} (record update), \texttt{if}, \texttt{while}, \texttt{for}, \texttt{assert}, \texttt{try}, and \texttt{raise} expressions; +\item +let-based polymorphism with an SML-style value restriction; +\item +mutually-recursive function definitions via \texttt{let rec}; +\item +pattern matching, with nested patterns, \texttt{as} patterns, and ``or'' (\texttt{|})patterns; +\item +mutable references with \texttt{ref}, \texttt{!}, and \texttt{:=}; +\item +polymorphic equality (the Objective Caml \texttt{=} operator); +\item +31-bit word semantics for \texttt{int}s (using an existing HOL library); and +\item +IEEE-754 semantics for \texttt{float}s (using an existing HOL library). +\end{itemize} +\end{minipage} +} +% +\hspace{1.5cm} +% +\scalebox{.5}{ +\begin{minipage}{15cm} +\huge +{\color{blue}\OCL{} key points} +\begin{itemize} +\item +Faithful to Objective Caml (very nearly) +\item +Type soundness proof mechanized in HOL +\item +Operational semantics validated on test programs +\item +Written in Ott +\item +Small-step operational semantics +\begin{itemize} +\Large +\item +Inductively defined relations +\item +SOS-style +\item +Labelled transitions for state +\item +Substution-based +\end{itemize} +\item +Type system +\begin{itemize} +\Large +\item +Inductively defined relations +\item +Syntactic +\item +Declarative (non-algorithmic) +\end{itemize} + +\end{itemize} +\end{minipage} +} + +\vspace{1cm} + +\scalebox{.5}{ +\begin{minipage}[t]{11cm} +\huge +{\color{blue}Proof Effort} + +A typical type soundness proof\\ +\Large +\begin{itemize} + \item $\approx$ 7--8 man-months (including testing) + \item Specification: 3.2K lines of HOL (from 4.0K Ott) + \begin{itemize} + \item 143 constructors in 42 datatypes + \item 310 rules in 46 relations + \end{itemize} + \item Proof: 9.5K lines of HOL + \begin{itemize} + \item 17 files + \item 653 lemmas + \item 48 definitions + \end{itemize} +\end{itemize} + +\vspace{.25cm} +Challenges: +\begin{itemize} +\item Finding the right lemma using +\begin{itemize} +\item my memory +\item lemma naming conventions +\item documentation (for library lemmas) +\item term matching on the theorem database +\end{itemize} +\item +Nested inductions +\begin{itemize} +\item $\mathit{expr} = \ldots \ottkw{|}\ \mathit{Expr\_tuple}\ \ottkw{of}\ \mathit{expr}\ \ottkw{list}\ \ottkw{|}\ \ldots$ +\item ``Pointwise'' reasoning vs.\ using separate lemmas +\end{itemize} +\item Proof assistant generated names +\end{itemize} +\vspace{12pt} +Non-challenges: +\begin{itemize} +\item Managing De Bruijn indices +\end{itemize} +\end{minipage} +} +\hspace{.5cm} +\scalebox{.5}{ +\begin{minipage}[t]{9.5cm} +\huge +{\color{blue}Testing}\\ +Executable small-step semantics +\Large +(Type soundness is insufficient) + +\begin{itemize} + \item 145 tests + \item Full coverage + \item 540 line HOL definition of the executable semantics + \item 1K line HOL proof of equivalence between declatative and executable semantics +\end{itemize} + + +\vspace{.25cm} +%\[ +%\ottdrule[#1]{% +%\ottpremise{\vdash \, \ottnt{e_{{\mathrm{1}}}} \, \stackrel{ \ottnt{L} }{\longrightarrow}\, \ottnt{e'_{{\mathrm{1}}}}}% +%}{ +%\vdash \, \ottnt{e_{{\mathrm{1}}}} \, \ottnt{v_{{\mathrm{0}}}} \, \stackrel{ \ottnt{L} }{\longrightarrow}\, \ottnt{e'_{{\mathrm{1}}}} \, \ottnt{v_{{\mathrm{0}}}}}{ +%{}{} +%}\] + +%becomes + +%\begin{tabular}{@{}l@{}} +%\\ +%\texttt{red (Expr\_apply expr1 expr2) =}\\ +%\texttt{ red\_2 expr1 expr2 Expr\_apply eval\_apply} +%\end{tabular} +\vspace{-.5cm} +\[\begin{array}{@{}l@{}} +\mathit{red} : \mathit{expr}\rightarrow \mathit{result}\\ +\ottkw{type}\ \mathit{result} =\\ +~~\mathit{Stuck}\\ +|~\mathit{Step}\ \ottkw{of}\ \mathit{expr}\\ +|~\mathit{StepAlloc}\ \ottkw{of}\ (\mathit{expr} \rightarrow \mathit{expr})\ \ottkw{*}\ \mathit{expr}\\ +|~\mathit{StepLookup}\ \ottkw{of}\ (\mathit{expr} \rightarrow \mathit{expr} )\ \ottkw{*}\ \mathit{location}\\ +|~\mathit{StepAssign}\ \ottkw{of}\ \mathit{expr}\ \ottkw{*}\ \mathit{location}\ \ottkw{*}\ \mathit{expr} +\end{array}\] + +\vspace{.25cm} + +\begin{tabular}{@{}l@{}} +\texttt{match [] with}\\ +\texttt{ x::y -> 1}\\ +\texttt{ | [] -> 2}\\ +\texttt{EXPECT}\\ +\texttt{2}\\ +\\ +\texttt{TESTSTUCK}\\ +\texttt{x}\\ +\texttt{END}\\ +\end{tabular} + + +\end{minipage} +} +\hspace{.5cm} +\scalebox{.5}{ +\begin{minipage}[t]{10cm} +\huge +{\color{blue}Related Work} +\Large + +Mechanized metatheory for real-world languages + +\begin{itemize} + \item Standard ML + \begin{itemize} + \item Lee, Crary, Harper (POPL 2007)\\ internal language + \item van Inwegen (1996) + \item Maharaj, Gunter (1994) + \item Syme (1993) + \end{itemize} + \item Java + \begin{itemize} + \item Java: Klein, Nipkow (TOPLAS 2006) + \item Syme (1999) + \item Nipkow, van Oheimb (POPL 1998) + \end{itemize} + \item C + \begin{itemize} + \item Norrish (1998) + \end{itemize} +\end{itemize} + +\end{minipage} +} + + +\vspace{1cm} + +\scalebox{.5}{ +\begin{minipage}{35.2cm} +\huge +\centering {\color{blue}Representing Binding} (straightforward) + +\Large +\begin{tabular}{|l|l|l|l|l|} +\hline +User type variables & \texttt{'a} & concrete& +\texttt{let f (x : 'a) : 'a = x \&\& true;;}& +\texttt{f : bool -> bool}\\ +\hline +Value names & \texttt{x} & fully concrete (only need closed substs)& +\begin{tabular}{@{}l@{}} +\texttt{let v = function x -> x;;}\\ +\texttt{let x = 1;;}\\ +\texttt{let w = v 9;;}\\ +\end{tabular}& +\begin{tabular}{@{}l@{}} +\texttt{let x = 1;;}\\ +\texttt{let w = (function x -> x) 9;;}\\ +\end{tabular}\\ +\hline +Let-bound type variables & & De Bruijn& +\begin{tabular}{@{}l@{}} +\texttt{let f x =}\\ +\texttt{ \ldots\ (let g x = \ldots\ in \ldots) \ldots}\\ +\texttt{in}\\ +\texttt{let h x = \ldots\ f \ldots}\\ +\texttt{in}\\ +\texttt{\ldots} +\end{tabular}&\\ +\hline +Type names & \texttt{int} & fully concrete + no shadowing (following OCaml)& +\begin{tabular}{@{}l@{}} +\texttt{type t = \{ f : int \};;}\\ +\texttt{let v = \{ f = 1 \};;}\\ +\\ +\texttt{type t = \{ g : bool \};;}\\ +\texttt{let \_ = v.g;;} +\end{tabular}& +\begin{tabular}{@{}l@{}} +\texttt{type t = \{ f : int \};;}\\ +\texttt{type t = \{ g : bool \};;}\\ +\texttt{let \_ = \{ f = 1 \}.g;;} +\end{tabular}\\ +\hline +\begin{tabular}{@{}l@{}} +Constructor names\\ +Field names +\end{tabular} + & \texttt{None} & fully concrete + no shadowing (a slight restriction)& +\begin{tabular}{@{}l@{}} +\texttt{type t = C of int;;}\\ +\texttt{let v = C 1;;}\\ +\\ +\texttt{type u = C of bool;;}\\ +\texttt{let \_ = v;;} +\end{tabular}& +\begin{tabular}{@{}l@{}} +\texttt{type t = C of int;;}\\ +\texttt{type u = C of bool;;}\\ +\texttt{let \_ = C 1;;} +\end{tabular}\\ +\hline +\end{tabular} +\end{minipage} +} + + +\scriptsize{\begin{minipage}{5cm}University of Cambridge\end{minipage}} +{\hfill{\scriptsize{\textsf{http://www.cl.cam.ac.uk/users/so294/ocaml}}}} + + +\end{document} diff --git a/vendors/ott/examples/ocaml_light/doc/poster_rules.tex b/vendors/ott/examples/ocaml_light/doc/poster_rules.tex new file mode 100644 index 000000000000..a98af162b15a --- /dev/null +++ b/vendors/ott/examples/ocaml_light/doc/poster_rules.tex @@ -0,0 +1,3604 @@ +% generated by Ott 0.10.14 from: caml_typedef_syntax.ott caml_typedef_typing.ott caml_typedef_reduction.ott +\documentclass[10pt,titlepage]{article} +\usepackage{amsmath,amssymb} +\usepackage{supertabular} +\usepackage{geometry} +\usepackage{ifthen} +\usepackage{graphics} +%\usepackage[usenames]{color} +\usepackage{pstricks} +\geometry{% +a4paper, +% letterpaper, +dvips, +twoside, +left=15mm, right=15mm, +top=10mm, bottom=0mm, +} +\usepackage{color} +%\geometry{landscape} +\usepackage{ifthen} +\newcommand{\ottdrule}[4][]{{\displaystyle\frac{\begin{array}{l}#2\end{array}}{#3}\quad\ottdrulename{#4}}} +\newcommand{\ottusedruleC}[1]{\[\mbox{\cy{$\displaystyle{}#1$}}\]} +\newcommand{\ottusedrule}[1]{\[#1\]} +\newcommand{\ottpremise}[1]{ #1 \\} +\newenvironment{ottdefnblock}[3][]{ \framebox{\mbox{#2}} \quad #3 \\[0pt]}{} +\newenvironment{ottfundefnblock}[3][]{ \framebox{\mbox{#2}} \quad #3 \\[0pt]\begin{displaymath}\begin{array}{l}}{\end{array}\end{displaymath}} +\newcommand{\ottfunclause}[2]{ #1 \equiv #2 \\} +\newcommand{\ottnt}[1]{\mathit{#1}} +\newcommand{\ottmv}[1]{\mathit{#1}} +\newcommand{\ottkw}[1]{\mathbf{#1}} +\newcommand{\ottcom}[1]{\text{#1}} +\newcommand{\ottdrulename}[1]{\textsc{#1}} +\newcommand{\ottcomplu}[5]{\overline{#1}^{\,#2\in #3 #4 #5}} +\newcommand{\ottcompu}[3]{\overline{#1}^{\,#2<#3}} +\newcommand{\ottcomp}[2]{\overline{#1}^{\,#2}} +\newcommand{\ottgrammartabular}[1]{\begin{supertabular}{llcllllll}#1\end{supertabular}} +\newcommand{\ottmetavartabular}[1]{\begin{supertabular}{ll}#1\end{supertabular}} +\newcommand{\ottrulehead}[3]{$#1$ & & $#2$ & & & \multicolumn{2}{l}{#3}} +\newcommand{\ottprodline}[6]{& & $#1$ & $#2$ & $#3 #4$ & $#5$ & $#6$} +\newcommand{\ottinterrule}{\\[5.0mm]} +\newcommand{\ottafterlastrule}{\\} +\makeatletter +\input ott-spec.ltx +\newcommand{\ottenvironmentappend}[2]{% + \begingroup% + \def\@tempa{#1}\def\@tempb{ \ottkw{empty} }% + \ifx\@tempa\@tempb\def\@tempc{}\else\def\@tempc{#1,}\fi% + \expandafter\endgroup% + \@tempc#2% +} +\newcommand{\trimbox}[1]{\raisebox{0pt}[1.20ex][0.2ex]{#1}} +\newcommand{\cy}[1]{\colorbox{yellow}{#1}} +\newcommand{\ie}{% +i.e., +} +\newcommand{\eg}{% +e.g., +} +\makeatother +\newif\ifHAVEtypedefinitions \newif\ifHAVEmodules +\HAVEtypedefinitionstrue +%m\HAVEmodulestrue + +%%%% End of preamble %%%% + + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% defnss +% defns JdomEB +% defn domEB +\newcommand{\ottdruleJdomEBXXtypeXXparam}[1]{\ottdrule[#1]{% +}{ +\ottkw{dom} \, ( \, \ottkw{TV} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottkw{TV}}{ +{\ottdrulename{JdomEB\_type\_param}}{} +}} + + +\newcommand{\ottdruleJdomEBXXvalueXXname}[1]{\ottdrule[#1]{% +}{ +\ottkw{dom} \, ( \, \ottnt{value\_name} \, : \, \ottnt{typescheme} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{value\_name}}{ +{\ottdrulename{JdomEB\_value\_name}}{} +}} + + +\newcommand{\ottdruleJdomEBXXconstXXconstrXXname}[1]{\ottdrule[#1]{% +}{ +\ottkw{dom} \, ( \, \ottnt{constr\_name} \, \ottkw{of} \, \ottnt{typeconstr} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{constr\_name}}{ +{\ottdrulename{JdomEB\_const\_constr\_name}}{} +}} + + +\newcommand{\ottdruleJdomEBXXconstrXXname}[1]{\ottdrule[#1]{% +}{ +\ottkw{dom} \, ( \, \ottnt{constr\_name} \, \ottkw{of} \, \forall \, \ottnt{type\_params\_opt} \, , \, ( \, \ottnt{t_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{t_{\ottmv{n}}} \, ) \, : \, \ottnt{typeconstr} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{constr\_name}}{ +{\ottdrulename{JdomEB\_constr\_name}}{} +}} + + +\newcommand{\ottdruleJdomEBXXopaqueXXtypeconstrXXname}[1]{\ottdrule[#1]{% +}{ +\ottkw{dom} \, ( \, \ottnt{typeconstr\_name} \, : \, \ottnt{kind} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{typeconstr\_name}}{ +{\ottdrulename{JdomEB\_opaque\_typeconstr\_name}}{} +}} + + +\newcommand{\ottdruleJdomEBXXtransXXtypeconstrXXname}[1]{\ottdrule[#1]{% +}{ +\ottkw{dom} \, ( \, \ottnt{type\_params\_opt} \, \ottnt{typeconstr\_name} \, = \, \ottnt{t} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{typeconstr\_name}}{ +{\ottdrulename{JdomEB\_trans\_typeconstr\_name}}{} +}} + + +\newcommand{\ottdruleJdomEBXXrecordXXtypeconstrXXname}[1]{\ottdrule[#1]{% +}{ +\ottkw{dom} \, ( \, \ottnt{typeconstr\_name} \, : \, \ottnt{kind} \, \ottkw{\{} \, \ottnt{field\_name_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{field\_name_{\ottmv{n}}} \, \ottkw{\}} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{typeconstr\_name}}{ +{\ottdrulename{JdomEB\_record\_typeconstr\_name}}{} +}} + + +\newcommand{\ottdruleJdomEBXXrecordXXfieldXXname}[1]{\ottdrule[#1]{% +}{ +\ottkw{dom} \, ( \, \ottnt{field\_name} \, : \, \forall \, \ottnt{type\_params\_opt} \, , \, \ottnt{typeconstr\_name} \, \rightarrow \, \ottnt{typexpr} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{field\_name}}{ +{\ottdrulename{JdomEB\_record\_field\_name}}{} +}} + + +\newcommand{\ottdruleJdomEBXXlocation}[1]{\ottdrule[#1]{% +}{ +\ottkw{dom} \, ( \, \ottmv{location} \, : \, \ottnt{t} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottmv{location}}{ +{\ottdrulename{JdomEB\_location}}{} +}} + +\newcommand{\ottdefnJdomEB}[1]{\begin{ottdefnblock}[#1]{$\ottkw{dom} \, ( \, \ottnt{EB} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{name}$}{\ottcom{Environment binding domain}} +\ottusedrule{\ottdruleJdomEBXXtypeXXparam{}} +\ottusedrule{\ottdruleJdomEBXXvalueXXname{}} +\ottusedrule{\ottdruleJdomEBXXconstXXconstrXXname{}} +\ottusedrule{\ottdruleJdomEBXXconstrXXname{}} +\ottusedrule{\ottdruleJdomEBXXopaqueXXtypeconstrXXname{}} +\ottusedrule{\ottdruleJdomEBXXtransXXtypeconstrXXname{}} +\ottusedrule{\ottdruleJdomEBXXrecordXXtypeconstrXXname{}} +\ottusedrule{\ottdruleJdomEBXXrecordXXfieldXXname{}} +\ottusedrule{\ottdruleJdomEBXXlocation{}} +\end{ottdefnblock}} + + +\newcommand{\ottdefnsJdomEB}{ +\ottdefnJdomEB{}} + + +% defns JdomE +% defn domE +\newcommand{\ottdruleJdomEXXempty}[1]{\ottdrule[#1]{% +}{ +\ottkw{dom} \, ( \, \ottkw{empty} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \,}{ +{\ottdrulename{JdomE\_empty}}{} +}} + + +\newcommand{\ottdruleJdomEXXcons}[1]{\ottdrule[#1]{% +\ottpremise{\ottkw{dom} \, ( \, \ottnt{E} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{name_{{\mathrm{1}}}} \, .. \, \ottnt{name_{\ottmv{n}}}}% +\ottpremise{\ottkw{dom} \, ( \, \ottnt{EB} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{name}}% +}{ +\ottkw{dom} \, ( \, \ottenvironmentappend{ \ottnt{E} }{ \ottnt{EB} } \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{name} \, \ottnt{name_{{\mathrm{1}}}} \, .. \, \ottnt{name_{\ottmv{n}}}}{ +{\ottdrulename{JdomE\_cons}}{} +}} + +\newcommand{\ottdefnJdomE}[1]{\begin{ottdefnblock}[#1]{$\ottkw{dom} \, ( \, \ottnt{E} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{names}$}{\ottcom{Environment domain}} +\ottusedrule{\ottdruleJdomEXXempty{}} +\ottusedrule{\ottdruleJdomEXXcons{}} +\end{ottdefnblock}} + + +\newcommand{\ottdefnsJdomE}{ +\ottdefnJdomE{}} + + +% defns Jlookup +% defn EB +\newcommand{\ottdruleJlookupXXEBXXrecOne}[1]{\ottdrule[#1]{% +\ottpremise{\ottkw{dom} \, ( \, \ottnt{EB} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{name'}}% +\ottpremise{\ottnt{name} \, \not = \, \ottnt{name'}}% +\ottpremise{\ottnt{name'} \, \not = \, \ottkw{TV}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{name} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{EB'}}% +}{ + \ottenvironmentappend{ \ottnt{E} }{ \ottnt{EB} } \, \vdash \, \ottnt{name} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{EB'}}{ +{\ottdrulename{Jlookup\_EB\_rec1}}{} +}} + + +\newcommand{\ottdruleJlookupXXEBXXrecTwo}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{name} \, \not = \, \ottkw{TV}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{name} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{EB'}}% +}{ + \ottenvironmentappend{ \ottnt{E} }{ \ottkw{TV} } \, \vdash \, \ottnt{name} \, \;\vartriangleright\;\ottmaybebreakline \, \ottkw{shift} \, 0 \, 1 \, \ottnt{EB'}}{ +{\ottdrulename{Jlookup\_EB\_rec2}}{} +}} + + +\newcommand{\ottdruleJlookupXXEBXXhead}[1]{\ottdrule[#1]{% +\ottpremise{\ottkw{dom} \, ( \, \ottnt{EB} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{name}}% +}{ + \ottenvironmentappend{ \ottnt{E} }{ \ottnt{EB} } \, \vdash \, \ottnt{name} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{EB}}{ +{\ottdrulename{Jlookup\_EB\_head}}{} +}} + +\newcommand{\ottdefnJlookupXXEB}[1]{\begin{ottdefnblock}[#1]{$\ottnt{E} \, \vdash \, \ottnt{name} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{EB}$}{\ottcom{Environment lookup}} +\ottusedrule{\ottdruleJlookupXXEBXXrecOne{}} +\ottusedrule{\ottdruleJlookupXXEBXXrecTwo{}} +\ottusedrule{\ottdruleJlookupXXEBXXhead{}} +\end{ottdefnblock}} + + +\newcommand{\ottdefnsJlookup}{ +\ottdefnJlookupXXEB{}} + + +% defns Jidx +% defn bound +\newcommand{\ottdruleJidxXXboundXXskipOne}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{idx} \, \ottkw{bound}}% +\ottpremise{\ottkw{dom} \, ( \, \ottnt{EB} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{name}}% +\ottpremise{\ottnt{name} \, \not = \, \ottkw{TV}}% +}{ + \ottenvironmentappend{ \ottnt{E} }{ \ottnt{EB} } \, \vdash \, \ottnt{idx} \, \ottkw{bound}}{ +{\ottdrulename{Jidx\_bound\_skip1}}{} +}} + + +\newcommand{\ottdruleJidxXXboundXXskipTwo}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{idx} \, \ottkw{bound}}% +}{ + \ottenvironmentappend{ \ottnt{E} }{ \ottkw{TV} } \, \vdash \, \ottnt{idx} \, + \, 1 \, \ottkw{bound}}{ +{\ottdrulename{Jidx\_bound\_skip2}}{} +}} + + +\newcommand{\ottdruleJidxXXboundXXfound}[1]{\ottdrule[#1]{% +}{ + \ottenvironmentappend{ \ottnt{E} }{ \ottkw{TV} } \, \vdash \, 0 \, \ottkw{bound}}{ +{\ottdrulename{Jidx\_bound\_found}}{} +}} + +\newcommand{\ottdefnJidxXXbound}[1]{\begin{ottdefnblock}[#1]{$\ottnt{E} \, \vdash \, \ottnt{idx} \, \ottkw{bound}$}{\ottcom{Well-formed index}} +\ottusedrule{\ottdruleJidxXXboundXXskipOne{}} +\ottusedrule{\ottdruleJidxXXboundXXskipTwo{}} +\ottusedrule{\ottdruleJidxXXboundXXfound{}} +\end{ottdefnblock}} + + +\newcommand{\ottdefnsJidx}{ +\ottdefnJidxXXbound{}} + + +% defns JTtps_kind +% defn tps_kind +\newcommand{\ottdruleJTtpsXXkindXXkind}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{tp_{{\mathrm{1}}}} \, ... \, \ottnt{tp_{\ottmv{n}}} \, \ottkw{distinct}}% +\ottpremise{\ottkw{length} \, ( \, \ottnt{tp_{{\mathrm{1}}}} \, ) \, ... \, ( \, \ottnt{tp_{\ottmv{n}}} \, ) \, = \, \ottmv{n}}% +}{ +\vdash \, ( \, \ottnt{tp_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{tp_{\ottmv{n}}} \, ) \, : \, \ottkw{Type}^{ \ottmv{n} }\rightarrow \ottkw{Type} }{ +{\ottdrulename{JTtps\_kind\_kind}}{} +}} + +\newcommand{\ottdefnJTtpsXXkind}[1]{\begin{ottdefnblock}[#1]{$\vdash \, \ottnt{type\_params\_opt} \, : \, \ottnt{kind}$}{\ottcom{Type parameter kinding}} +\ottusedrule{\ottdruleJTtpsXXkindXXkind{}} +\end{ottdefnblock}} + + +\newcommand{\ottdefnsJTtpsXXkind}{ +\ottdefnJTtpsXXkind{}} + + +% defns JTEok +% defn Eok +\newcommand{\ottdruleJTEokXXempty}[1]{\ottdrule[#1]{% +}{ +\ottkw{empty} \, \vdash \, \ottkw{ok}}{ +{\ottdrulename{JTEok\_empty}}{} +}} + + +\newcommand{\ottdruleJTEokXXtypevar}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% +}{ + \ottenvironmentappend{ \ottnt{E} }{ \ottkw{TV} } \, \vdash \, \ottkw{ok}}{ +{\ottdrulename{JTEok\_typevar}}{} +}} + + +\newcommand{\ottdruleJTEokXXvalueXXname}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \forall \, \ottnt{t} \, : \, \ottkw{Type}}% +}{ + \ottenvironmentappend{ \ottnt{E} }{ ( \, \ottnt{value\_name} \, : \, \forall \, \ottnt{t} \, ) } \, \vdash \, \ottkw{ok}}{ +{\ottdrulename{JTEok\_value\_name}}{} +}} + + +\newcommand{\ottdruleJTEokXXconstrXXnameXXc}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{typeconstr\_name} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{typeconstr\_name} \, : \, \ottnt{kind}}% +\ottpremise{\ottkw{dom} \, ( \, \ottnt{E} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{names}}% +\ottpremise{\ottnt{constr\_name} \, \notin \, \ottnt{names}}% +}{ + \ottenvironmentappend{ \ottnt{E} }{ ( \, \ottnt{constr\_name} \, \ottkw{of} \, \ottnt{typeconstr\_name} \, ) } \, \vdash \, \ottkw{ok}}{ +{\ottdrulename{JTEok\_constr\_name\_c}}{} +}} + + +\newcommand{\ottdruleJTEokXXexnXXconstrXXnameXXc}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% +\ottpremise{\ottkw{dom} \, ( \, \ottnt{E} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{names}}% +\ottpremise{\ottnt{constr\_name} \, \notin \, \ottnt{names}}% +}{ + \ottenvironmentappend{ \ottnt{E} }{ ( \, \ottnt{constr\_name} \, \ottkw{of} \, \ottkw{exn} \, ) } \, \vdash \, \ottkw{ok}}{ +{\ottdrulename{JTEok\_exn\_constr\_name\_c}}{} +}} + + +\newcommand{\ottdruleJTEokXXconstrXXnameXXp}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{type\_params\_opt} \, = \, ( \, \alpha_{{\mathrm{1}}} \, , \, ... \, , \, \alpha_{\ottmv{m}} \, )}% +\ottpremise{\ottnt{E} \, \vdash \, \forall \, \ottnt{type\_params\_opt} \, , \, \ottnt{t_{{\mathrm{1}}}} \, : \, \ottkw{Type} \quad ... \quad \ottnt{E} \, \vdash \, \forall \, \ottnt{type\_params\_opt} \, , \, \ottnt{t_{\ottmv{n}}} \, : \, \ottkw{Type}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{typeconstr\_name} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{typeconstr\_name} \, : \, \ottkw{Type}^{ \ottmv{m} }\rightarrow \ottkw{Type} }% +\ottpremise{\ottkw{dom} \, ( \, \ottnt{E} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{names}}% +\ottpremise{\ottnt{constr\_name} \, \notin \, \ottnt{names}}% +\ottpremise{\ottkw{length} \, ( \, \ottnt{t_{{\mathrm{1}}}} \, ) \, ... \, ( \, \ottnt{t_{\ottmv{n}}} \, ) \, \geq \, 1}% +\ottpremise{\ottkw{length} \, ( \, \alpha_{{\mathrm{1}}} \, ) \, ... \, ( \, \alpha_{\ottmv{m}} \, ) \, = \, \ottmv{m}}% +}{ + \ottenvironmentappend{ \ottnt{E} }{ ( \, \ottnt{constr\_name} \, \ottkw{of} \, \forall \, ( \, \alpha_{{\mathrm{1}}} \, , \, ... \, , \, \alpha_{\ottmv{m}} \, ) \, , \, ( \, \ottnt{t_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{t_{\ottmv{n}}} \, ) \, : \, \ottnt{typeconstr\_name} \, ) } \, \vdash \, \ottkw{ok}}{ +{\ottdrulename{JTEok\_constr\_name\_p}}{} +}} + + +\newcommand{\ottdruleJTEokXXexnXXconstrXXnameXXp}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t_{{\mathrm{1}}}} \, : \, \ottkw{Type} \quad ... \quad \ottnt{E} \, \vdash \, \ottnt{t_{\ottmv{n}}} \, : \, \ottkw{Type}}% +\ottpremise{\ottkw{dom} \, ( \, \ottnt{E} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{names}}% +\ottpremise{\ottnt{constr\_name} \, \notin \, \ottnt{names}}% +\ottpremise{\ottkw{length} \, ( \, \ottnt{t_{{\mathrm{1}}}} \, ) \, ... \, ( \, \ottnt{t_{\ottmv{n}}} \, ) \, \geq \, 1}% +}{ + \ottenvironmentappend{ \ottnt{E} }{ ( \, \ottnt{constr\_name} \, \ottkw{of} \, \forall \, \, , \, ( \, \ottnt{t_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{t_{\ottmv{n}}} \, ) \, : \, \ottkw{exn} \, ) } \, \vdash \, \ottkw{ok}}{ +{\ottdrulename{JTEok\_exn\_constr\_name\_p}}{} +}} + + +\newcommand{\ottdruleJTEokXXrecordXXdestr}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \forall \, ( \, \alpha_{{\mathrm{1}}} \, , \, ... \, , \, \alpha_{\ottmv{m}} \, ) \, , \, \ottnt{t} \, : \, \ottkw{Type}}% +\ottpremise{\ottkw{dom} \, ( \, \ottnt{E} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{names}}% +\ottpremise{\ottnt{field\_name} \, \notin \, \ottnt{names}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{typeconstr\_name} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{typeconstr\_name} \, : \, \ottkw{Type}^{ \ottmv{m} }\rightarrow \ottkw{Type} \, \ottkw{\{} \, \ottnt{field\_name_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{field\_name_{\ottmv{n}}} \, \ottkw{\}}}% +\ottpremise{\ottkw{length} \, ( \, \alpha_{{\mathrm{1}}} \, ) \, ... \, ( \, \alpha_{\ottmv{m}} \, ) \, = \, \ottmv{m}}% +\ottpremise{\ottnt{field\_name} \, \ottkw{in} \, \ottnt{field\_name_{{\mathrm{1}}}} \, ... \, \ottnt{field\_name_{\ottmv{n}}}}% +}{ + \ottenvironmentappend{ \ottnt{E} }{ ( \, \ottnt{field\_name} \, : \, \forall \, ( \, \alpha_{{\mathrm{1}}} \, , \, ... \, , \, \alpha_{\ottmv{m}} \, ) \, , \, \ottnt{typeconstr\_name} \, \rightarrow \, \ottnt{t} \, ) } \, \vdash \, \ottkw{ok}}{ +{\ottdrulename{JTEok\_record\_destr}}{} +}} + + +\newcommand{\ottdruleJTEokXXtypeconstrXXname}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% +\ottpremise{\ottkw{dom} \, ( \, \ottnt{E} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{names}}% +\ottpremise{\ottnt{typeconstr\_name} \, \notin \, \ottnt{names}}% +}{ + \ottenvironmentappend{ \ottnt{E} }{ ( \, \ottnt{typeconstr\_name} \, : \, \ottnt{kind} \, ) } \, \vdash \, \ottkw{ok}}{ +{\ottdrulename{JTEok\_typeconstr\_name}}{} +}} + + +\newcommand{\ottdruleJTEokXXtypeconstrXXeqn}[1]{\ottdrule[#1]{% +\ottpremise{\ottkw{dom} \, ( \, \ottnt{E} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{names}}% +\ottpremise{\ottnt{typeconstr\_name} \, \notin \, \ottnt{names}}% +\ottpremise{\ottnt{E} \, \vdash \, \forall \, ( \, \alpha_{{\mathrm{1}}} \, , \, ... \, , \, \alpha_{\ottmv{m}} \, ) \, , \, \ottnt{t} \, : \, \ottkw{Type}}% +}{ + \ottenvironmentappend{ \ottnt{E} }{ ( \, ( \, \alpha_{{\mathrm{1}}} \, , \, ... \, , \, \alpha_{\ottmv{m}} \, ) \, \ottnt{typeconstr\_name} \, = \, \ottnt{t} \, ) } \, \vdash \, \ottkw{ok}}{ +{\ottdrulename{JTEok\_typeconstr\_eqn}}{} +}} + + +\newcommand{\ottdruleJTEokXXtypeconstrXXrecord}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% +\ottpremise{\ottkw{dom} \, ( \, \ottnt{E} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{names}}% +\ottpremise{\ottnt{typeconstr\_name} \, \notin \, \ottnt{names}}% +\ottpremise{\ottnt{field\_name_{{\mathrm{1}}}} \, ... \, \ottnt{field\_name_{\ottmv{n}}} \, \ottkw{distinct}}% +}{ + \ottenvironmentappend{ \ottnt{E} }{ ( \, \ottnt{typeconstr\_name} \, : \, \ottnt{kind} \, \ottkw{\{} \, \ottnt{field\_name_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{field\_name_{\ottmv{n}}} \, \ottkw{\}} \, ) } \, \vdash \, \ottkw{ok}}{ +{\ottdrulename{JTEok\_typeconstr\_record}}{} +}} + + +\newcommand{\ottdruleJTEokXXlocation}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, : \, \ottkw{Type}}% +\ottpremise{\ottkw{dom} \, ( \, \ottnt{E} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{names}}% +\ottpremise{\ottmv{location} \, \notin \, \ottnt{names}}% +}{ + \ottenvironmentappend{ \ottnt{E} }{ ( \, \ottmv{location} \, : \, \ottnt{t} \, ) } \, \vdash \, \ottkw{ok}}{ +{\ottdrulename{JTEok\_location}}{} +}} + +\newcommand{\ottdefnJTEok}[1]{\begin{ottdefnblock}[#1]{$\ottnt{E} \, \vdash \, \ottkw{ok}$}{\ottcom{Environment validity}} +\ottusedrule{\ottdruleJTEokXXempty{}} +\ottusedrule{\ottdruleJTEokXXtypevar{}} +\ottusedrule{\ottdruleJTEokXXvalueXXname{}} +\ottusedrule{\ottdruleJTEokXXconstrXXnameXXc{}} +\ottusedrule{\ottdruleJTEokXXexnXXconstrXXnameXXc{}} +\ottusedrule{\ottdruleJTEokXXconstrXXnameXXp{}} +\ottusedrule{\ottdruleJTEokXXexnXXconstrXXnameXXp{}} +\ottusedrule{\ottdruleJTEokXXrecordXXdestr{}} +\ottusedrule{\ottdruleJTEokXXtypeconstrXXname{}} +\ottusedrule{\ottdruleJTEokXXtypeconstrXXeqn{}} +\ottusedrule{\ottdruleJTEokXXtypeconstrXXrecord{}} +\ottusedrule{\ottdruleJTEokXXlocation{}} +\end{ottdefnblock}} + + +% defn typeconstr +\newcommand{\ottdruleJTtypeconstrXXabstract}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{typeconstr\_name} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{typeconstr\_name} \, : \, \ottnt{kind}}% +}{ +\ottnt{E} \, \vdash \, \ottnt{typeconstr\_name} \, : \, \ottnt{kind}}{ +{\ottdrulename{JTtypeconstr\_abstract}}{} +}} + + +\newcommand{\ottdruleJTtypeconstrXXconcrete}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{typeconstr\_name} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{type\_params\_opt} \, \ottnt{typeconstr\_name} \, = \, \ottnt{t}}% +\ottpremise{\vdash \, \ottnt{type\_params\_opt} \, : \, \ottnt{kind}}% +}{ +\ottnt{E} \, \vdash \, \ottnt{typeconstr\_name} \, : \, \ottnt{kind}}{ +{\ottdrulename{JTtypeconstr\_concrete}}{} +}} + + +\newcommand{\ottdruleJTtypeconstrXXrecord}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{typeconstr\_name} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{typeconstr\_name} \, : \, \ottnt{kind} \, \ottkw{\{} \, \ottnt{field\_name_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{field\_name_{\ottmv{n}}} \, \ottkw{\}}}% +}{ +\ottnt{E} \, \vdash \, \ottnt{typeconstr\_name} \, : \, \ottnt{kind}}{ +{\ottdrulename{JTtypeconstr\_record}}{} +}} + + +\newcommand{\ottdruleJTtypeconstrXXint}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% +}{ +\ottnt{E} \, \vdash \, \ottkw{int} \, : \, \ottkw{Type}}{ +{\ottdrulename{JTtypeconstr\_int}}{} +}} + + +\newcommand{\ottdruleJTtypeconstrXXchar}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% +}{ +\ottnt{E} \, \vdash \, \ottkw{char} \, : \, \ottkw{Type}}{ +{\ottdrulename{JTtypeconstr\_char}}{} +}} + + +\newcommand{\ottdruleJTtypeconstrXXstring}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% +}{ +\ottnt{E} \, \vdash \, \ottkw{string} \, : \, \ottkw{Type}}{ +{\ottdrulename{JTtypeconstr\_string}}{} +}} + + +\newcommand{\ottdruleJTtypeconstrXXfloat}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% +}{ +\ottnt{E} \, \vdash \, \ottkw{float} \, : \, \ottkw{Type}}{ +{\ottdrulename{JTtypeconstr\_float}}{} +}} + + +\newcommand{\ottdruleJTtypeconstrXXbool}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% +}{ +\ottnt{E} \, \vdash \, \ottkw{bool} \, : \, \ottkw{Type}}{ +{\ottdrulename{JTtypeconstr\_bool}}{} +}} + + +\newcommand{\ottdruleJTtypeconstrXXunit}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% +}{ +\ottnt{E} \, \vdash \, \ottkw{unit} \, : \, \ottkw{Type}}{ +{\ottdrulename{JTtypeconstr\_unit}}{} +}} + + +\newcommand{\ottdruleJTtypeconstrXXexn}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% +}{ +\ottnt{E} \, \vdash \, \ottkw{exn} \, : \, \ottkw{Type}}{ +{\ottdrulename{JTtypeconstr\_exn}}{} +}} + + +\newcommand{\ottdruleJTtypeconstrXXlist}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% +}{ +\ottnt{E} \, \vdash \, \ottkw{list} \, : \, \ottkw{Type}^{ 1 }\rightarrow \ottkw{Type} }{ +{\ottdrulename{JTtypeconstr\_list}}{} +}} + + +\newcommand{\ottdruleJTtypeconstrXXoption}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% +}{ +\ottnt{E} \, \vdash \, \ottkw{option} \, : \, \ottkw{Type}^{ 1 }\rightarrow \ottkw{Type} }{ +{\ottdrulename{JTtypeconstr\_option}}{} +}} + + +\newcommand{\ottdruleJTtypeconstrXXref}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% +}{ +\ottnt{E} \, \vdash \, \ottkw{ref} \, : \, \ottkw{Type}^{ 1 }\rightarrow \ottkw{Type} }{ +{\ottdrulename{JTtypeconstr\_ref}}{} +}} + +\newcommand{\ottdefnJTtypeconstr}[1]{\begin{ottdefnblock}[#1]{$\ottnt{E} \, \vdash \, \ottnt{typeconstr} \, : \, \ottnt{kind}$}{\ottcom{Type constructor kinding}} +\ottusedrule{\ottdruleJTtypeconstrXXabstract{}} +\ottusedrule{\ottdruleJTtypeconstrXXconcrete{}} +\ottusedrule{\ottdruleJTtypeconstrXXrecord{}} +\ottusedrule{\ottdruleJTtypeconstrXXint{}} +\ottusedrule{\ottdruleJTtypeconstrXXchar{}} +\ottusedrule{\ottdruleJTtypeconstrXXstring{}} +\ottusedrule{\ottdruleJTtypeconstrXXfloat{}} +\ottusedrule{\ottdruleJTtypeconstrXXbool{}} +\ottusedrule{\ottdruleJTtypeconstrXXunit{}} +\ottusedrule{\ottdruleJTtypeconstrXXexn{}} +\ottusedrule{\ottdruleJTtypeconstrXXlist{}} +\ottusedrule{\ottdruleJTtypeconstrXXoption{}} +\ottusedrule{\ottdruleJTtypeconstrXXref{}} +\end{ottdefnblock}} + + +% defn ts +\newcommand{\ottdruleJTtsXXforall}[1]{\ottdrule[#1]{% +\ottpremise{ \ottenvironmentappend{ \ottnt{E} }{ \ottkw{TV} } \, \vdash \, \ottnt{t} \, : \, \ottkw{Type}}% +}{ +\ottnt{E} \, \vdash \, \forall \, \ottnt{t} \, : \, \ottkw{Type}}{ +{\ottdrulename{JTts\_forall}}{} +}} + +\newcommand{\ottdefnJTts}[1]{\begin{ottdefnblock}[#1]{$\ottnt{E} \, \vdash \, \ottnt{typescheme} \, : \, \ottnt{kind}$}{\ottcom{de Bruijn type scheme well-formedness}} +\ottusedrule{\ottdruleJTtsXXforall{}} +\end{ottdefnblock}} + + +% defn tsnamed +\newcommand{\ottdruleJTtsnamedXXforall}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \{\!\!\{ \, \alpha_{{\mathrm{1}}} \, \!\!\leftarrow\!\! \, \ottkw{unit} \, , \, ... \, , \, \alpha_{\ottmv{n}} \, \!\!\leftarrow\!\! \, \ottkw{unit} \, \}\!\!\} \, \ottnt{t} \, : \, \ottkw{Type}}% +\ottpremise{\alpha_{{\mathrm{1}}} \, ... \, \alpha_{\ottmv{n}} \, \ottkw{distinct}}% +}{ +\ottnt{E} \, \vdash \, \forall \, ( \, \alpha_{{\mathrm{1}}} \, , \, ... \, , \, \alpha_{\ottmv{n}} \, ) \, , \, \ottnt{t} \, : \, \ottkw{Type}}{ +{\ottdrulename{JTtsnamed\_forall}}{} +}} + +\newcommand{\ottdefnJTtsnamed}[1]{\begin{ottdefnblock}[#1]{$\ottnt{E} \, \vdash \, \forall \, \ottnt{type\_params\_opt} \, , \, \ottnt{t} \, : \, \ottnt{kind}$}{\ottcom{Named type scheme well-formedness}} +\ottusedrule{\ottdruleJTtsnamedXXforall{}} +\end{ottdefnblock}} + + +% defn t +\newcommand{\ottdruleJTtXXvar}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{idx} \, \ottkw{bound}}% +}{ +\ottnt{E} \, \vdash \, < \, \ottnt{idx} \, , \, \ottnt{num} \, > \, : \, \ottkw{Type}}{ +{\ottdrulename{JTt\_var}}{} +}} + + +\newcommand{\ottdruleJTtXXarrow}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, : \, \ottkw{Type}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t'} \, : \, \ottkw{Type}}% +}{ +\ottnt{E} \, \vdash \, \ottnt{t} \, \rightarrow \, \ottnt{t'} \, : \, \ottkw{Type}}{ +{\ottdrulename{JTt\_arrow}}{} +}} + + +\newcommand{\ottdruleJTtXXtuple}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t_{{\mathrm{1}}}} \, : \, \ottkw{Type} \quad .... \quad \ottnt{E} \, \vdash \, \ottnt{t_{\ottmv{n}}} \, : \, \ottkw{Type}}% +\ottpremise{\ottkw{length} \, ( \, \ottnt{t_{{\mathrm{1}}}} \, ) \, .... \, ( \, \ottnt{t_{\ottmv{n}}} \, ) \, \geq \, 2}% +}{ +\ottnt{E} \, \vdash \, \ottnt{t_{{\mathrm{1}}}} \, \ast \, .... \, \ast \, \ottnt{t_{\ottmv{n}}} \, : \, \ottkw{Type}}{ +{\ottdrulename{JTt\_tuple}}{} +}} + + +\newcommand{\ottdruleJTtXXconstr}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{typeconstr} \, : \, \ottkw{Type}^{ \ottmv{n} }\rightarrow \ottkw{Type} }% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t_{{\mathrm{1}}}} \, : \, \ottkw{Type} \quad ... \quad \ottnt{E} \, \vdash \, \ottnt{t_{\ottmv{n}}} \, : \, \ottkw{Type}}% +\ottpremise{\ottkw{length} \, ( \, \ottnt{t_{{\mathrm{1}}}} \, ) \, ... \, ( \, \ottnt{t_{\ottmv{n}}} \, ) \, = \, \ottmv{n}}% +}{ +\ottnt{E} \, \vdash \, ( \, \ottnt{t_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{t_{\ottmv{n}}} \, ) \, \ottnt{typeconstr} \, : \, \ottkw{Type}}{ +{\ottdrulename{JTt\_constr}}{} +}} + +\newcommand{\ottdefnJTt}[1]{\begin{ottdefnblock}[#1]{$\ottnt{E} \, \vdash \, \ottnt{typexpr} \, : \, \ottnt{kind}$}{\ottcom{Type expression well-formedness}} +\ottusedrule{\ottdruleJTtXXvar{}} +\ottusedrule{\ottdruleJTtXXarrow{}} +\ottusedrule{\ottdruleJTtXXtuple{}} +\ottusedrule{\ottdruleJTtXXconstr{}} +\end{ottdefnblock}} + + +\newcommand{\ottdefnsJTEok}{ +\ottdefnJTEok{} +\ottdefnJTtypeconstr{} +\ottdefnJTts{} +\ottdefnJTtsnamed{} +\ottdefnJTt{}} + + +% defns JTeq +% defn eq +\newcommand{\ottdruleJTeqXXrefl}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, : \, \ottkw{Type}}% +}{ +\ottnt{E} \, \vdash \, \ottnt{t} \, \equiv \, \ottnt{t}}{ +{\ottdrulename{JTeq\_refl}}{} +}} + + +\newcommand{\ottdruleJTeqXXsym}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t'} \, \equiv \, \ottnt{t}}% +}{ +\ottnt{E} \, \vdash \, \ottnt{t} \, \equiv \, \ottnt{t'}}{ +{\ottdrulename{JTeq\_sym}}{} +}} + + +\newcommand{\ottdruleJTeqXXtrans}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, \equiv \, \ottnt{t'}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t'} \, \equiv \, \ottnt{t''}}% +}{ +\ottnt{E} \, \vdash \, \ottnt{t} \, \equiv \, \ottnt{t''}}{ +{\ottdrulename{JTeq\_trans}}{} +}} + + +\newcommand{\ottdruleJTeqXXexpand}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{typeconstr\_name} \, \;\vartriangleright\;\ottmaybebreakline \, ( \, \alpha_{{\mathrm{1}}} \, , \, ... \, , \, \alpha_{\ottmv{n}} \, ) \, \ottnt{typeconstr\_name} \, = \, \ottnt{t}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t_{{\mathrm{1}}}} \, : \, \ottkw{Type} \quad ... \quad \ottnt{E} \, \vdash \, \ottnt{t_{\ottmv{n}}} \, : \, \ottkw{Type}}% +}{ +\ottnt{E} \, \vdash \, ( \, \ottnt{t_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{t_{\ottmv{n}}} \, ) \, \ottnt{typeconstr\_name} \, \equiv \, \{\!\!\{ \, \alpha_{{\mathrm{1}}} \, \!\!\leftarrow\!\! \, \ottnt{t_{{\mathrm{1}}}} \, , \, ... \, , \, \alpha_{\ottmv{n}} \, \!\!\leftarrow\!\! \, \ottnt{t_{\ottmv{n}}} \, \}\!\!\} \, \ottnt{t}}{ +{\ottdrulename{JTeq\_expand}}{} +}} + + +\newcommand{\ottdruleJTeqXXarrow}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t_{{\mathrm{1}}}} \, \equiv \, \ottnt{t'_{{\mathrm{1}}}}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t_{{\mathrm{2}}}} \, \equiv \, \ottnt{t'_{{\mathrm{2}}}}}% +}{ +\ottnt{E} \, \vdash \, \ottnt{t_{{\mathrm{1}}}} \, \rightarrow \, \ottnt{t_{{\mathrm{2}}}} \, \equiv \, \ottnt{t'_{{\mathrm{1}}}} \, \rightarrow \, \ottnt{t'_{{\mathrm{2}}}}}{ +{\ottdrulename{JTeq\_arrow}}{} +}} + + +\newcommand{\ottdruleJTeqXXtuple}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t_{{\mathrm{1}}}} \, \equiv \, \ottnt{t'_{{\mathrm{1}}}} \quad .... \quad \ottnt{E} \, \vdash \, \ottnt{t_{\ottmv{n}}} \, \equiv \, \ottnt{t'_{\ottmv{n}}}}% +\ottpremise{\ottkw{length} \, ( \, \ottnt{t_{{\mathrm{1}}}} \, ) \, .... \, ( \, \ottnt{t_{\ottmv{n}}} \, ) \, \geq \, 2}% +}{ +\ottnt{E} \, \vdash \, \ottnt{t_{{\mathrm{1}}}} \, \ast \, .... \, \ast \, \ottnt{t_{\ottmv{n}}} \, \equiv \, \ottnt{t'_{{\mathrm{1}}}} \, \ast \, .... \, \ast \, \ottnt{t'_{\ottmv{n}}}}{ +{\ottdrulename{JTeq\_tuple}}{} +}} + + +\newcommand{\ottdruleJTeqXXconstr}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{typeconstr} \, : \, \ottkw{Type}^{ \ottmv{n} }\rightarrow \ottkw{Type} }% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t_{{\mathrm{1}}}} \, \equiv \, \ottnt{t'_{{\mathrm{1}}}} \quad ... \quad \ottnt{E} \, \vdash \, \ottnt{t_{\ottmv{n}}} \, \equiv \, \ottnt{t'_{\ottmv{n}}}}% +\ottpremise{\ottkw{length} \, ( \, \ottnt{t_{{\mathrm{1}}}} \, ) \, ... \, ( \, \ottnt{t_{\ottmv{n}}} \, ) \, = \, \ottmv{n}}% +}{ +\ottnt{E} \, \vdash \, ( \, \ottnt{t_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{t_{\ottmv{n}}} \, ) \, \ottnt{typeconstr} \, \equiv \, ( \, \ottnt{t'_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{t'_{\ottmv{n}}} \, ) \, \ottnt{typeconstr}}{ +{\ottdrulename{JTeq\_constr}}{} +}} + +\newcommand{\ottdefnJTeq}[1]{\begin{ottdefnblock}[#1]{$\ottnt{E} \, \vdash \, \ottnt{typexpr} \, \equiv \, \ottnt{typexpr'}$}{\ottcom{Type equivalence}} +\ottusedrule{\ottdruleJTeqXXrefl{}} +\ottusedrule{\ottdruleJTeqXXsym{}} +\ottusedrule{\ottdruleJTeqXXtrans{}} +\ottusedrule{\ottdruleJTeqXXexpand{}} +\ottusedrule{\ottdruleJTeqXXarrow{}} +\ottusedrule{\ottdruleJTeqXXtuple{}} +\ottusedrule{\ottdruleJTeqXXconstr{}} +\end{ottdefnblock}} + + +\newcommand{\ottdefnsJTeq}{ +\ottdefnJTeq{}} + + +% defns JTidxsub +% defn idxsub +\newcommand{\ottdruleJTinxsubXXalpha}[1]{\ottdrule[#1]{% +}{ +\{\!\!\{ \, \ottnt{t_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{t_{\ottmv{n}}} \, \}\!\!\} \, \alpha \, \;\vartriangleright\;\ottmaybebreakline \, \alpha}{ +{\ottdrulename{JTinxsub\_alpha}}{} +}} + + +\newcommand{\ottdruleJTinxsubXXidxZero}[1]{\ottdrule[#1]{% +\ottpremise{\ottkw{length} \, ( \, \ottnt{t_{{\mathrm{1}}}} \, ) \, .. \, ( \, \ottnt{t_{\ottmv{m}}} \, ) \, = \, \ottnt{num}}% +}{ +\{\!\!\{ \, \ottnt{t_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{t_{\ottmv{m}}} \, , \, \ottnt{t'} \, , \, \ottnt{t''_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{t''_{\ottmv{n}}} \, \}\!\!\} \, < \, 0 \, , \, \ottnt{num} \, > \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{t'}}{ +{\ottdrulename{JTinxsub\_idx0}}{} +}} + + +\newcommand{\ottdruleJTinxsubXXidxOne}[1]{\ottdrule[#1]{% +\ottpremise{\ottkw{length} \, ( \, \ottnt{t_{{\mathrm{1}}}} \, ) \, .. \, ( \, \ottnt{t_{\ottmv{n}}} \, ) \, \leq \, \ottnt{num}}% +}{ +\{\!\!\{ \, \ottnt{t_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{t_{\ottmv{n}}} \, \}\!\!\} \, < \, 0 \, , \, \ottnt{num} \, > \, \;\vartriangleright\;\ottmaybebreakline \, \ottkw{unit}}{ +{\ottdrulename{JTinxsub\_idx1}}{} +}} + + +\newcommand{\ottdruleJTinxsubXXidxTwo}[1]{\ottdrule[#1]{% +}{ +\{\!\!\{ \, \ottnt{t_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{t_{\ottmv{n}}} \, \}\!\!\} \, < \, \ottnt{idx} \, + \, 1 \, , \, \ottnt{num} \, > \, \;\vartriangleright\;\ottmaybebreakline \, < \, \ottnt{idx} \, , \, \ottnt{num} \, >}{ +{\ottdrulename{JTinxsub\_idx2}}{} +}} + + +\newcommand{\ottdruleJTinxsubXXany}[1]{\ottdrule[#1]{% +}{ +\{\!\!\{ \, \ottnt{t_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{t_{\ottmv{n}}} \, \}\!\!\} \, \ottkw{\_} \, \;\vartriangleright\;\ottmaybebreakline \, \ottkw{\_}}{ +{\ottdrulename{JTinxsub\_any}}{} +}} + + +\newcommand{\ottdruleJTinxsubXXarrow}[1]{\ottdrule[#1]{% +\ottpremise{\{\!\!\{ \, \ottnt{t_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{t_{\ottmv{n}}} \, \}\!\!\} \, \ottnt{t'_{{\mathrm{1}}}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{t''_{{\mathrm{1}}}}}% +\ottpremise{\{\!\!\{ \, \ottnt{t_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{t_{\ottmv{n}}} \, \}\!\!\} \, \ottnt{t'_{{\mathrm{2}}}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{t''_{{\mathrm{2}}}}}% +}{ +\{\!\!\{ \, \ottnt{t_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{t_{\ottmv{n}}} \, \}\!\!\} \, ( \, \ottnt{t'_{{\mathrm{1}}}} \, \rightarrow \, \ottnt{t'_{{\mathrm{2}}}} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{t''_{{\mathrm{1}}}} \, \rightarrow \, \ottnt{t''_{{\mathrm{2}}}}}{ +{\ottdrulename{JTinxsub\_arrow}}{} +}} + + +\newcommand{\ottdruleJTinxsubXXtuple}[1]{\ottdrule[#1]{% +\ottpremise{\{\!\!\{ \, \ottnt{t_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{t_{\ottmv{n}}} \, \}\!\!\} \, \ottnt{t'_{{\mathrm{1}}}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{t''_{{\mathrm{1}}}} \quad .... \quad \{\!\!\{ \, \ottnt{t_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{t_{\ottmv{n}}} \, \}\!\!\} \, \ottnt{t'_{\ottmv{m}}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{t''_{\ottmv{m}}}}% +}{ +\{\!\!\{ \, \ottnt{t_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{t_{\ottmv{n}}} \, \}\!\!\} \, ( \, \ottnt{t'_{{\mathrm{1}}}} \, \ast \, .... \, \ast \, \ottnt{t'_{\ottmv{m}}} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, ( \, \ottnt{t''_{{\mathrm{1}}}} \, \ast \, .... \, \ast \, \ottnt{t''_{\ottmv{m}}} \, )}{ +{\ottdrulename{JTinxsub\_tuple}}{} +}} + + +\newcommand{\ottdruleJTinxsubXXtc}[1]{\ottdrule[#1]{% +\ottpremise{\{\!\!\{ \, \ottnt{t_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{t_{\ottmv{n}}} \, \}\!\!\} \, \ottnt{t'_{{\mathrm{1}}}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{t''_{{\mathrm{1}}}} \quad ... \quad \{\!\!\{ \, \ottnt{t_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{t_{\ottmv{n}}} \, \}\!\!\} \, \ottnt{t'_{\ottmv{m}}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{t''_{\ottmv{m}}}}% +}{ +\{\!\!\{ \, \ottnt{t_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{t_{\ottmv{n}}} \, \}\!\!\} \, ( \, \ottnt{t'_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{t'_{\ottmv{m}}} \, ) \, \ottnt{typeconstr} \, \;\vartriangleright\;\ottmaybebreakline \, ( \, \ottnt{t''_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{t''_{\ottmv{m}}} \, ) \, \ottnt{typeconstr}}{ +{\ottdrulename{JTinxsub\_tc}}{} +}} + +\newcommand{\ottdefnJTidxsub}[1]{\begin{ottdefnblock}[#1]{$\{\!\!\{ \, \ottnt{typexpr_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{typexpr_{\ottmv{n}}} \, \}\!\!\} \, \ottnt{typexpr'} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{typexpr''}$}{\ottcom{de Bruin type substitution}} +\ottusedrule{\ottdruleJTinxsubXXalpha{}} +\ottusedrule{\ottdruleJTinxsubXXidxZero{}} +\ottusedrule{\ottdruleJTinxsubXXidxOne{}} +\ottusedrule{\ottdruleJTinxsubXXidxTwo{}} +\ottusedrule{\ottdruleJTinxsubXXany{}} +\ottusedrule{\ottdruleJTinxsubXXarrow{}} +\ottusedrule{\ottdruleJTinxsubXXtuple{}} +\ottusedrule{\ottdruleJTinxsubXXtc{}} +\end{ottdefnblock}} + + +\newcommand{\ottdefnsJTidxsub}{ +\ottdefnJTidxsub{}} + + +% defns JTinst +% defn inst +\newcommand{\ottdruleJTinstXXidx}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \forall \, \ottnt{t'} \, : \, \ottkw{Type}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t_{{\mathrm{1}}}} \, : \, \ottkw{Type} \quad .. \quad \ottnt{E} \, \vdash \, \ottnt{t_{\ottmv{n}}} \, : \, \ottkw{Type}}% +\ottpremise{\{\!\!\{ \, \ottnt{t_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{t_{\ottmv{n}}} \, \}\!\!\} \, \ottnt{t'} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{t''}}% +}{ +\ottnt{E} \, \vdash \, \ottnt{t''} \, \leq \, \forall \, \ottnt{t'}}{ +{\ottdrulename{JTinst\_idx}}{} +}} + +\newcommand{\ottdefnJTinst}[1]{\begin{ottdefnblock}[#1]{$\ottnt{E} \, \vdash \, \ottnt{typexpr} \, \leq \, \ottnt{typescheme}$}{\ottcom{de Bruijn type scheme instantiation}} +\ottusedrule{\ottdruleJTinstXXidx{}} +\end{ottdefnblock}} + + +\newcommand{\ottdefnsJTinst}{ +\ottdefnJTinst{}} + + +% defns JTinst_named +% defn inst_named +\newcommand{\ottdruleJTinstXXnamedXXnamed}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \forall \, ( \, \alpha_{{\mathrm{1}}} \, , \, ... \, , \, \alpha_{\ottmv{n}} \, ) \, , \, \ottnt{t} \, : \, \ottkw{Type}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t_{{\mathrm{1}}}} \, : \, \ottkw{Type} \quad ... \quad \ottnt{E} \, \vdash \, \ottnt{t_{\ottmv{n}}} \, : \, \ottkw{Type}}% +}{ +\ottnt{E} \, \vdash \, \{\!\!\{ \, \alpha_{{\mathrm{1}}} \, \!\!\leftarrow\!\! \, \ottnt{t_{{\mathrm{1}}}} \, , \, ... \, , \, \alpha_{\ottmv{n}} \, \!\!\leftarrow\!\! \, \ottnt{t_{\ottmv{n}}} \, \}\!\!\} \, \ottnt{t} \, \leq \, \forall \, ( \, \alpha_{{\mathrm{1}}} \, , \, ... \, , \, \alpha_{\ottmv{n}} \, ) \, , \, \ottnt{t}}{ +{\ottdrulename{JTinst\_named\_named}}{} +}} + +\newcommand{\ottdefnJTinstXXnamed}[1]{\begin{ottdefnblock}[#1]{$\ottnt{E} \, \vdash \, \ottnt{typexpr} \, \leq \, \forall \, \ottnt{type\_params\_opt} \, , \, \ottnt{typexpr'}$}{\ottcom{Named type scheme instantiation}} +\ottusedrule{\ottdruleJTinstXXnamedXXnamed{}} +\end{ottdefnblock}} + + +\newcommand{\ottdefnsJTinstXXnamed}{ +\ottdefnJTinstXXnamed{}} + + +% defns JTinst_any +% defn inst_any +\newcommand{\ottdruleJTinstXXanyXXtyvar}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, < \, \ottnt{idx} \, , \, \ottnt{num} \, > \, : \, \ottkw{Type}}% +}{ +\ottnt{E} \, \vdash \, < \, \ottnt{idx} \, , \, \ottnt{num} \, > \, \leq \, < \, \ottnt{idx} \, , \, \ottnt{num} \, >}{ +{\ottdrulename{JTinst\_any\_tyvar}}{} +}} + + +\newcommand{\ottdruleJTinstXXanyXXany}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, : \, \ottkw{Type}}% +}{ +\ottnt{E} \, \vdash \, \ottnt{t} \, \leq \, \ottkw{\_}}{ +{\ottdrulename{JTinst\_any\_any}}{} +}} + + +\newcommand{\ottdruleJTinstXXanyXXarrow}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t_{{\mathrm{1}}}} \, \leq \, \ottnt{t'_{{\mathrm{1}}}}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t_{{\mathrm{2}}}} \, \leq \, \ottnt{t'_{{\mathrm{2}}}}}% +}{ +\ottnt{E} \, \vdash \, \ottnt{t_{{\mathrm{1}}}} \, \rightarrow \, \ottnt{t_{{\mathrm{2}}}} \, \leq \, \ottnt{t'_{{\mathrm{1}}}} \, \rightarrow \, \ottnt{t'_{{\mathrm{2}}}}}{ +{\ottdrulename{JTinst\_any\_arrow}}{} +}} + + +\newcommand{\ottdruleJTinstXXanyXXtuple}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t_{{\mathrm{1}}}} \, \leq \, \ottnt{t'_{{\mathrm{1}}}} \quad .... \quad \ottnt{E} \, \vdash \, \ottnt{t_{\ottmv{n}}} \, \leq \, \ottnt{t'_{\ottmv{n}}}}% +\ottpremise{\ottkw{length} \, ( \, \ottnt{t_{{\mathrm{1}}}} \, ) \, .... \, ( \, \ottnt{t_{\ottmv{n}}} \, ) \, \geq \, 2}% +}{ +\ottnt{E} \, \vdash \, \ottnt{t_{{\mathrm{1}}}} \, \ast \, .... \, \ast \, \ottnt{t_{\ottmv{n}}} \, \leq \, \ottnt{t'_{{\mathrm{1}}}} \, \ast \, .... \, \ast \, \ottnt{t'_{\ottmv{n}}}}{ +{\ottdrulename{JTinst\_any\_tuple}}{} +}} + + +\newcommand{\ottdruleJTinstXXanyXXctor}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t_{{\mathrm{1}}}} \, \leq \, \ottnt{t'_{{\mathrm{1}}}} \quad ... \quad \ottnt{E} \, \vdash \, \ottnt{t_{\ottmv{n}}} \, \leq \, \ottnt{t'_{\ottmv{n}}}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{typeconstr} \, : \, \ottkw{Type}^{ \ottmv{n} }\rightarrow \ottkw{Type} }% +\ottpremise{\ottkw{length} \, ( \, \ottnt{t_{{\mathrm{1}}}} \, ) \, ... \, ( \, \ottnt{t_{\ottmv{n}}} \, ) \, = \, \ottmv{n}}% +}{ +\ottnt{E} \, \vdash \, ( \, \ottnt{t_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{t_{\ottmv{n}}} \, ) \, \ottnt{typeconstr} \, \leq \, ( \, \ottnt{t'_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{t'_{\ottmv{n}}} \, ) \, \ottnt{typeconstr}}{ +{\ottdrulename{JTinst\_any\_ctor}}{} +}} + +\newcommand{\ottdefnJTinstXXany}[1]{\begin{ottdefnblock}[#1]{$\ottnt{E} \, \vdash \, \ottnt{typexpr} \, \leq \, \ottnt{typexpr'}$}{\ottcom{Wildcard type instantiation}} +\ottusedrule{\ottdruleJTinstXXanyXXtyvar{}} +\ottusedrule{\ottdruleJTinstXXanyXXany{}} +\ottusedrule{\ottdruleJTinstXXanyXXarrow{}} +\ottusedrule{\ottdruleJTinstXXanyXXtuple{}} +\ottusedrule{\ottdruleJTinstXXanyXXctor{}} +\end{ottdefnblock}} + + +\newcommand{\ottdefnsJTinstXXany}{ +\ottdefnJTinstXXany{}} + + +% defns JTval +% defn value_name +\newcommand{\ottdruleJTvalueXXnameXXvalueXXname}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{value\_name} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{value\_name} \, : \, \ottnt{ts}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, \leq \, \ottnt{ts}}% +}{ +\ottnt{E} \, \vdash \, \ottnt{value\_name} \, : \, \ottnt{t}}{ +{\ottdrulename{JTvalue\_name\_value\_name}}{} +}} + +\newcommand{\ottdefnJTvalueXXname}[1]{\begin{ottdefnblock}[#1]{$\ottnt{E} \, \vdash \, \ottnt{value\_name} \, : \, \ottnt{typexpr}$}{\ottcom{Variable typing}} +\ottusedrule{\ottdruleJTvalueXXnameXXvalueXXname{}} +\end{ottdefnblock}} + + +\newcommand{\ottdefnsJTval}{ +\ottdefnJTvalueXXname{}} + + +% defns JTfield +% defn field +\newcommand{\ottdruleJTfieldXXname}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{field\_name} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{field\_name} \, : \, \forall \, ( \, \alpha_{{\mathrm{1}}} \, , \, ... \, , \, \alpha_{\ottmv{m}} \, ) \, , \, \ottnt{typeconstr\_name} \, \rightarrow \, \ottnt{t}}% +\ottpremise{\ottnt{E} \, \vdash \, ( \, \ottnt{t'_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{t'_{\ottmv{m}}} \, ) \, \ottnt{typeconstr\_name} \, \rightarrow \, \ottnt{t''} \, \leq \, \forall \, ( \, \alpha_{{\mathrm{1}}} \, , \, ... \, , \, \alpha_{\ottmv{m}} \, ) \, , \, ( \, \alpha_{{\mathrm{1}}} \, , \, ... \, , \, \alpha_{\ottmv{m}} \, ) \, \ottnt{typeconstr\_name} \, \rightarrow \, \ottnt{t}}% +}{ +\ottnt{E} \, \vdash \, \ottnt{field\_name} \, : \, ( \, \ottnt{t'_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{t'_{\ottmv{m}}} \, ) \, \ottnt{typeconstr\_name} \, \rightarrow \, \ottnt{t''}}{ +{\ottdrulename{JTfield\_name}}{} +}} + +\newcommand{\ottdefnJTfield}[1]{\begin{ottdefnblock}[#1]{$\ottnt{E} \, \vdash \, \ottnt{field\_name} \, : \, \ottnt{typexpr} \, \rightarrow \, \ottnt{typexpr'}$}{\ottcom{Field name typing}} +\ottusedrule{\ottdruleJTfieldXXname{}} +\end{ottdefnblock}} + + +\newcommand{\ottdefnsJTfield}{ +\ottdefnJTfield{}} + + +% defns JTconstr_p +% defn constr_p +\newcommand{\ottdruleJTconstrXXpXXname}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{constr\_name} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{constr\_name} \, \ottkw{of} \, \forall \, ( \, \alpha_{{\mathrm{1}}} \, , \, ... \, , \, \alpha_{\ottmv{m}} \, ) \, , \, ( \, \ottnt{t_{{\mathrm{1}}}} \, , \, .... \, , \, \ottnt{t_{\ottmv{n}}} \, ) \, : \, \ottnt{typeconstr}}% +\ottpremise{\ottnt{E} \, \vdash \, ( \, \ottnt{t'_{{\mathrm{1}}}} \, \ast \, .... \, \ast \, \ottnt{t'_{\ottmv{n}}} \, ) \, \rightarrow \, ( \, \ottnt{t''_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{t''_{\ottmv{m}}} \, ) \, \ottnt{typeconstr} \, \leq \, \forall \, ( \, \alpha_{{\mathrm{1}}} \, , \, ... \, , \, \alpha_{\ottmv{m}} \, ) \, , \, ( \, \ottnt{t_{{\mathrm{1}}}} \, \ast \, .... \, \ast \, \ottnt{t_{\ottmv{n}}} \, ) \, \rightarrow \, ( \, \alpha_{{\mathrm{1}}} \, , \, ... \, , \, \alpha_{\ottmv{m}} \, ) \, \ottnt{typeconstr}}% +}{ +\ottnt{E} \, \vdash \, \ottnt{constr\_name} \, : \, \ottnt{t'_{{\mathrm{1}}}} \, .... \, \ottnt{t'_{\ottmv{n}}} \, \rightarrow \, ( \, \ottnt{t''_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{t''_{\ottmv{m}}} \, ) \, \ottnt{typeconstr}}{ +{\ottdrulename{JTconstr\_p\_name}}{} +}} + + +\newcommand{\ottdruleJTconstrXXpXXinvarg}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% +}{ +\ottnt{E} \, \vdash \, \ottkw{Invalid\_argument} \, : \, \ottkw{string} \, \rightarrow \, \ottkw{exn}}{ +{\ottdrulename{JTconstr\_p\_invarg}}{} +}} + + +\newcommand{\ottdruleJTconstrXXpXXsome}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, : \, \ottkw{Type}}% +}{ +\ottnt{E} \, \vdash \, \ottkw{Some} \, : \, \ottnt{t} \, \rightarrow \, ( \, \ottnt{t} \, \ottkw{option} \, )}{ +{\ottdrulename{JTconstr\_p\_some}}{} +}} + +\newcommand{\ottdefnJTconstrXXp}[1]{\begin{ottdefnblock}[#1]{$\ottnt{E} \, \vdash \, \ottnt{constr} \, : \, \ottnt{typexpr_{{\mathrm{1}}}} \, ... \, \ottnt{typexpr_{\ottmv{n}}} \, \rightarrow \, \ottnt{typexpr'}$}{\ottcom{Non-constant constructor typing}} +\ottusedrule{\ottdruleJTconstrXXpXXname{}} +\ottusedrule{\ottdruleJTconstrXXpXXinvarg{}} +\ottusedrule{\ottdruleJTconstrXXpXXsome{}} +\end{ottdefnblock}} + + +\newcommand{\ottdefnsJTconstrXXp}{ +\ottdefnJTconstrXXp{}} + + +% defns JTconstr_c +% defn constr_c +\newcommand{\ottdruleJTconstrXXcXXconstr}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{constr\_name} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{constr\_name} \, \ottkw{of} \, \ottnt{typeconstr\_name}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{typeconstr\_name} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{typeconstr\_name} \, : \, \ottkw{Type}^{ \ottmv{n} }\rightarrow \ottkw{Type} }% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t_{{\mathrm{1}}}} \, : \, \ottkw{Type} \quad ... \quad \ottnt{E} \, \vdash \, \ottnt{t_{\ottmv{n}}} \, : \, \ottkw{Type}}% +\ottpremise{\ottkw{length} \, ( \, \ottnt{t_{{\mathrm{1}}}} \, ) \, ... \, ( \, \ottnt{t_{\ottmv{n}}} \, ) \, = \, \ottmv{n}}% +}{ +\ottnt{E} \, \vdash \, \ottnt{constr\_name} \, : \, ( \, \ottnt{t_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{t_{\ottmv{n}}} \, ) \, \ottnt{typeconstr\_name}}{ +{\ottdrulename{JTconstr\_c\_constr}}{} +}} + + +\newcommand{\ottdruleJTconstrXXcXXexnXXconstr}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{constr\_name} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{constr\_name} \, \ottkw{of} \, \ottkw{exn}}% +}{ +\ottnt{E} \, \vdash \, \ottnt{constr\_name} \, : \, \ottkw{exn}}{ +{\ottdrulename{JTconstr\_c\_exn\_constr}}{} +}} + + +\newcommand{\ottdruleJTconstrXXcXXnotfound}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% +}{ +\ottnt{E} \, \vdash \, \ottkw{Not\_found} \, : \, \ottkw{exn}}{ +{\ottdrulename{JTconstr\_c\_notfound}}{} +}} + + +\newcommand{\ottdruleJTconstrXXcXXassertXXfail}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% +}{ +\ottnt{E} \, \vdash \, \ottkw{Assert\_failure} \, : \, \ottkw{exn}}{ +{\ottdrulename{JTconstr\_c\_assert\_fail}}{} +}} + + +\newcommand{\ottdruleJTconstrXXcXXmatchXXfail}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% +}{ +\ottnt{E} \, \vdash \, \ottkw{Match\_failure} \, : \, \ottkw{exn}}{ +{\ottdrulename{JTconstr\_c\_match\_fail}}{} +}} + + +\newcommand{\ottdruleJTconstrXXcXXdivXXbyXXZero}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% +}{ +\ottnt{E} \, \vdash \, \ottkw{Division\_by\_zero} \, : \, \ottkw{exn}}{ +{\ottdrulename{JTconstr\_c\_div\_by\_0}}{} +}} + + +\newcommand{\ottdruleJTconstrXXcXXnone}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, : \, \ottkw{Type}}% +}{ +\ottnt{E} \, \vdash \, \ottkw{None} \, : \, \ottnt{t} \, \ottkw{option}}{ +{\ottdrulename{JTconstr\_c\_none}}{} +}} + +\newcommand{\ottdefnJTconstrXXc}[1]{\begin{ottdefnblock}[#1]{$\ottnt{E} \, \vdash \, \ottnt{constr} \, : \, \ottnt{typexpr}$}{\ottcom{Constant constructor typing}} +\ottusedrule{\ottdruleJTconstrXXcXXconstr{}} +\ottusedrule{\ottdruleJTconstrXXcXXexnXXconstr{}} +\ottusedrule{\ottdruleJTconstrXXcXXnotfound{}} +\ottusedrule{\ottdruleJTconstrXXcXXassertXXfail{}} +\ottusedrule{\ottdruleJTconstrXXcXXmatchXXfail{}} +\ottusedrule{\ottdruleJTconstrXXcXXdivXXbyXXZero{}} +\ottusedrule{\ottdruleJTconstrXXcXXnone{}} +\end{ottdefnblock}} + + +\newcommand{\ottdefnsJTconstrXXc}{ +\ottdefnJTconstrXXc{}} + + +% defns JTconst +% defn const +\newcommand{\ottdruleJTconstXXint}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% +}{ +\ottnt{E} \, \vdash \, \ottmv{integer\_literal} \, : \, \ottkw{int}}{ +{\ottdrulename{JTconst\_int}}{} +}} + + +\newcommand{\ottdruleJTconstXXfloat}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% +}{ +\ottnt{E} \, \vdash \, \ottmv{float\_literal} \, : \, \ottkw{float}}{ +{\ottdrulename{JTconst\_float}}{} +}} + + +\newcommand{\ottdruleJTconstXXchar}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% +}{ +\ottnt{E} \, \vdash \, \ottmv{char\_literal} \, : \, \ottkw{char}}{ +{\ottdrulename{JTconst\_char}}{} +}} + + +\newcommand{\ottdruleJTconstXXstring}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% +}{ +\ottnt{E} \, \vdash \, \ottmv{string\_literal} \, : \, \ottkw{string}}{ +{\ottdrulename{JTconst\_string}}{} +}} + + +\newcommand{\ottdruleJTconstXXconstr}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{constr} \, : \, \ottnt{t}}% +}{ +\ottnt{E} \, \vdash \, \ottnt{constr} \, : \, \ottnt{t}}{ +{\ottdrulename{JTconst\_constr}}{} +}} + + +\newcommand{\ottdruleJTconstXXfalse}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% +}{ +\ottnt{E} \, \vdash \, \ottkw{false} \, : \, \ottkw{bool}}{ +{\ottdrulename{JTconst\_false}}{} +}} + + +\newcommand{\ottdruleJTconstXXtrue}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% +}{ +\ottnt{E} \, \vdash \, \ottkw{true} \, : \, \ottkw{bool}}{ +{\ottdrulename{JTconst\_true}}{} +}} + + +\newcommand{\ottdruleJTconstXXunit}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% +}{ +\ottnt{E} \, \vdash \, \ottkw{()} \, : \, \ottkw{unit}}{ +{\ottdrulename{JTconst\_unit}}{} +}} + + +\newcommand{\ottdruleJTconstXXnil}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, : \, \ottkw{Type}}% +}{ +\ottnt{E} \, \vdash \, \ottkw{[]} \, : \, \ottnt{t} \, \ottkw{list}}{ +{\ottdrulename{JTconst\_nil}}{} +}} + +\newcommand{\ottdefnJTconst}[1]{\begin{ottdefnblock}[#1]{$\ottnt{E} \, \vdash \, \ottnt{constant} \, : \, \ottnt{typexpr}$}{\ottcom{Constant typing}} +\ottusedrule{\ottdruleJTconstXXint{}} +\ottusedrule{\ottdruleJTconstXXfloat{}} +\ottusedrule{\ottdruleJTconstXXchar{}} +\ottusedrule{\ottdruleJTconstXXstring{}} +\ottusedrule{\ottdruleJTconstXXconstr{}} +\ottusedrule{\ottdruleJTconstXXfalse{}} +\ottusedrule{\ottdruleJTconstXXtrue{}} +\ottusedrule{\ottdruleJTconstXXunit{}} +\ottusedrule{\ottdruleJTconstXXnil{}} +\end{ottdefnblock}} + + +\newcommand{\ottdefnsJTconst}{ +\ottdefnJTconst{}} + + +% defns JTpat +% defn pat +\newcommand{\ottdruleJTpatXXvar}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, : \, \ottkw{Type}}% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{x} \, : \, \ottnt{t} \, \;\vartriangleright\;\ottmaybebreakline \, \ottenvironmentappend{ \ottkw{empty} }{ \ottnt{x} \, : \, \ottnt{t} } }{ +{\ottdrulename{JTpat\_var}}{} +}} + + +\newcommand{\ottdruleJTpatXXany}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, : \, \ottkw{Type}}% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottkw{\_} \, : \, \ottnt{t} \, \;\vartriangleright\;\ottmaybebreakline \, \ottkw{empty}}{ +{\ottdrulename{JTpat\_any}}{} +}} + + +\newcommand{\ottdruleJTpatXXconstant}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{constant} \, : \, \ottnt{t}}% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{constant} \, : \, \ottnt{t} \, \;\vartriangleright\;\ottmaybebreakline \, \ottkw{empty}}{ +{\ottdrulename{JTpat\_constant}}{} +}} + + +\newcommand{\ottdruleJTpatXXalias}[1]{\ottdrule[#1]{% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern} \, : \, \ottnt{t} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E'}}% +\ottpremise{\ottkw{dom} \, ( \, \ottenvironmentappend{ \ottnt{E'} }{ \ottnt{x} \, : \, \ottnt{t} } \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{name_{{\mathrm{1}}}} \, .. \, \ottnt{name_{\ottmv{n}}}}% +\ottpremise{\ottnt{name_{{\mathrm{1}}}} \, .. \, \ottnt{name_{\ottmv{n}}} \, \ottkw{distinct}}% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern} \, \ottkw{as} \, \ottnt{x} \, : \, \ottnt{t} \, \;\vartriangleright\;\ottmaybebreakline \, \ottenvironmentappend{ \ottnt{E'} }{ \ottnt{x} \, : \, \ottnt{t} } }{ +{\ottdrulename{JTpat\_alias}}{} +}} + + +\newcommand{\ottdruleJTpatXXtyped}[1]{\ottdrule[#1]{% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern} \, : \, \ottnt{t} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E'}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t'} \, \leq \, \sigma^T \, \ottnt{src\_t}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, \equiv \, \ottnt{t'}}% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, ( \, \ottnt{pattern} \, : \, \ottnt{src\_t} \, ) \, : \, \ottnt{t} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E'}}{ +{\ottdrulename{JTpat\_typed}}{} +}} + + +\newcommand{\ottdruleJTpatXXor}[1]{\ottdrule[#1]{% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern} \, : \, \ottnt{t} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E'}}% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern'} \, : \, \ottnt{t} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E''}}% +\ottpremise{\ottnt{E'} \, \ottkw{PERMUTES} \, \ottnt{E''}}% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern} \, \ottkw{\mbox{$\mid$}} \, \ottnt{pattern'} \, : \, \ottnt{t} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E'}}{ +{\ottdrulename{JTpat\_or}}{} +}} + + +\newcommand{\ottdruleJTpatXXconstruct}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{constr} \, : \, \ottnt{t_{{\mathrm{1}}}} \, ... \, \ottnt{t_{\ottmv{n}}} \, \rightarrow \, \ottnt{t}}% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern_{{\mathrm{1}}}} \, : \, \ottnt{t_{{\mathrm{1}}}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E_{{\mathrm{1}}}} \quad ... \quad \sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern_{\ottmv{n}}} \, : \, \ottnt{t_{\ottmv{n}}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E_{\ottmv{n}}}}% +\ottpremise{\ottkw{dom} \, ( \, \ottnt{E_{{\mathrm{1}}}} \, @ \, ... \, @ \, \ottnt{E_{\ottmv{n}}} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{name_{{\mathrm{1}}}} \, .. \, \ottnt{name_{\ottmv{m}}}}% +\ottpremise{\ottnt{name_{{\mathrm{1}}}} \, .. \, \ottnt{name_{\ottmv{m}}} \, \ottkw{distinct}}% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{constr} \, ( \, \ottnt{pattern_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{pattern_{\ottmv{n}}} \, ) \, : \, \ottnt{t} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E_{{\mathrm{1}}}} \, @ \, ... \, @ \, \ottnt{E_{\ottmv{n}}}}{ +{\ottdrulename{JTpat\_construct}}{} +}} + + +\newcommand{\ottdruleJTpatXXconstructXXany}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{constr} \, : \, \ottnt{t_{{\mathrm{1}}}} \, ... \, \ottnt{t_{\ottmv{n}}} \, \rightarrow \, \ottnt{t}}% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{constr} \, \ottkw{\_} \, : \, \ottnt{t} \, \;\vartriangleright\;\ottmaybebreakline \, \ottkw{empty}}{ +{\ottdrulename{JTpat\_construct\_any}}{} +}} + + +\newcommand{\ottdruleJTpatXXtuple}[1]{\ottdrule[#1]{% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern_{{\mathrm{1}}}} \, : \, \ottnt{t_{{\mathrm{1}}}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E_{{\mathrm{1}}}} \quad .... \quad \sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern_{\ottmv{n}}} \, : \, \ottnt{t_{\ottmv{n}}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E_{\ottmv{n}}}}% +\ottpremise{\ottkw{length} \, ( \, \ottnt{pattern_{{\mathrm{1}}}} \, ) \, .... \, ( \, \ottnt{pattern_{\ottmv{n}}} \, ) \, \geq \, 2}% +\ottpremise{\ottkw{dom} \, ( \, \ottnt{E_{{\mathrm{1}}}} \, @ \, .... \, @ \, \ottnt{E_{\ottmv{n}}} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{name_{{\mathrm{1}}}} \, .. \, \ottnt{name_{\ottmv{m}}}}% +\ottpremise{\ottnt{name_{{\mathrm{1}}}} \, .. \, \ottnt{name_{\ottmv{m}}} \, \ottkw{distinct}}% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern_{{\mathrm{1}}}} \, , \, .... \, , \, \ottnt{pattern_{\ottmv{n}}} \, : \, \ottnt{t_{{\mathrm{1}}}} \, \ast \, .... \, \ast \, \ottnt{t_{\ottmv{n}}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E_{{\mathrm{1}}}} \, @ \, .... \, @ \, \ottnt{E_{\ottmv{n}}}}{ +{\ottdrulename{JTpat\_tuple}}{} +}} + + +\newcommand{\ottdruleJTpatXXrecord}[1]{\ottdrule[#1]{% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern_{{\mathrm{1}}}} \, : \, \ottnt{t_{{\mathrm{1}}}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E_{{\mathrm{1}}}} \quad ... \quad \sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern_{\ottmv{n}}} \, : \, \ottnt{t_{\ottmv{n}}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E_{\ottmv{n}}}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{field\_name_{{\mathrm{1}}}} \, : \, \ottnt{t} \, \rightarrow \, \ottnt{t_{{\mathrm{1}}}} \quad ... \quad \ottnt{E} \, \vdash \, \ottnt{field\_name_{\ottmv{n}}} \, : \, \ottnt{t} \, \rightarrow \, \ottnt{t_{\ottmv{n}}}}% +\ottpremise{\ottkw{length} \, ( \, \ottnt{pattern_{{\mathrm{1}}}} \, ) \, ... \, ( \, \ottnt{pattern_{\ottmv{n}}} \, ) \, \geq \, 1}% +\ottpremise{\ottkw{dom} \, ( \, \ottnt{E_{{\mathrm{1}}}} \, @ \, ... \, @ \, \ottnt{E_{\ottmv{n}}} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{name_{{\mathrm{1}}}} \, .. \, \ottnt{name_{\ottmv{m}}}}% +\ottpremise{\ottnt{name_{{\mathrm{1}}}} \, .. \, \ottnt{name_{\ottmv{m}}} \, \ottkw{distinct}}% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottkw{\{} \, \ottnt{field\_name_{{\mathrm{1}}}} \, = \, \ottnt{pattern_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{field\_name_{\ottmv{n}}} \, = \, \ottnt{pattern_{\ottmv{n}}} \, \ottkw{\}} \, : \, \ottnt{t} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E_{{\mathrm{1}}}} \, @ \, ... \, @ \, \ottnt{E_{\ottmv{n}}}}{ +{\ottdrulename{JTpat\_record}}{} +}} + + +\newcommand{\ottdruleJTpatXXcons}[1]{\ottdrule[#1]{% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern} \, : \, \ottnt{t} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E'}}% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern'} \, : \, \ottnt{t} \, \ottkw{list} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E''}}% +\ottpremise{\ottkw{dom} \, ( \, \ottnt{E'} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{name_{{\mathrm{1}}}} \, .. \, \ottnt{name_{\ottmv{m}}}}% +\ottpremise{\ottkw{dom} \, ( \, \ottnt{E''} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{name'_{{\mathrm{1}}}} \, .. \, \ottnt{name'_{\ottmv{n}}}}% +\ottpremise{\ottnt{name_{{\mathrm{1}}}} \, .. \, \ottnt{name_{\ottmv{m}}} \, \ottnt{name'_{{\mathrm{1}}}} \, .. \, \ottnt{name'_{\ottmv{n}}} \, \ottkw{distinct}}% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern} \, \ottkw{::} \, \ottnt{pattern'} \, : \, \ottnt{t} \, \ottkw{list} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E'} \, @ \, \ottnt{E''}}{ +{\ottdrulename{JTpat\_cons}}{} +}} + +\newcommand{\ottdefnJTpat}[1]{\begin{ottdefnblock}[#1]{$\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern} \, : \, \ottnt{typexpr} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E'}$}{\ottcom{Pattern typing and binding collection}} +\ottusedrule{\ottdruleJTpatXXvar{}} +\ottusedrule{\ottdruleJTpatXXany{}} +\ottusedrule{\ottdruleJTpatXXconstant{}} +\ottusedrule{\ottdruleJTpatXXalias{}} +\ottusedrule{\ottdruleJTpatXXtyped{}} +\ottusedrule{\ottdruleJTpatXXor{}} +\ottusedrule{\ottdruleJTpatXXconstruct{}} +\ottusedrule{\ottdruleJTpatXXconstructXXany{}} +\ottusedrule{\ottdruleJTpatXXtuple{}} +\ottusedrule{\ottdruleJTpatXXrecord{}} +\ottusedrule{\ottdruleJTpatXXcons{}} +\end{ottdefnblock}} + + +\newcommand{\ottdefnsJTpat}{ +\ottdefnJTpat{}} + + +% defns JTuprim +% defn uprim +\newcommand{\ottdruleJTuprimXXraise}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, : \, \ottkw{Type}}% +}{ +\ottnt{E} \, \vdash \, \ottkw{raise} \, : \, \ottkw{exn} \, \rightarrow \, \ottnt{t}}{ +{\ottdrulename{JTuprim\_raise}}{} +}} + + +\newcommand{\ottdruleJTuprimXXnot}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% +}{ +\ottnt{E} \, \vdash \, \ottkw{not} \, : \, \ottkw{bool} \, \rightarrow \, \ottkw{bool}}{ +{\ottdrulename{JTuprim\_not}}{} +}} + + +\newcommand{\ottdruleJTuprimXXuminus}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% +}{ +\ottnt{E} \, \vdash \, \mathrel{\sim\!\!-} \, : \, \ottkw{int} \, \rightarrow \, \ottkw{int}}{ +{\ottdrulename{JTuprim\_uminus}}{} +}} + + +\newcommand{\ottdruleJTuprimXXref}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, : \, \ottkw{Type}}% +}{ +\ottnt{E} \, \vdash \, \ottkw{ref} \, : \, \ottnt{t} \, \rightarrow \, ( \, \ottnt{t} \, \ottkw{ref} \, )}{ +{\ottdrulename{JTuprim\_ref}}{} +}} + + +\newcommand{\ottdruleJTuprimXXderef}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, : \, \ottkw{Type}}% +}{ +\ottnt{E} \, \vdash \, ! \, : \, ( \, \ottnt{t} \, \ottkw{ref} \, ) \, \rightarrow \, \ottnt{t}}{ +{\ottdrulename{JTuprim\_deref}}{} +}} + +\newcommand{\ottdefnJTuprim}[1]{\begin{ottdefnblock}[#1]{$\ottnt{E} \, \vdash \, \ottnt{unary\_prim} \, : \, \ottnt{typexpr}$}{\ottcom{Unary primitive typing}} +\ottusedrule{\ottdruleJTuprimXXraise{}} +\ottusedrule{\ottdruleJTuprimXXnot{}} +\ottusedrule{\ottdruleJTuprimXXuminus{}} +\ottusedrule{\ottdruleJTuprimXXref{}} +\ottusedrule{\ottdruleJTuprimXXderef{}} +\end{ottdefnblock}} + + +\newcommand{\ottdefnsJTuprim}{ +\ottdefnJTuprim{}} + + +% defns JTbprim +% defn bprim +\newcommand{\ottdruleJTbprimXXequal}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, : \, \ottkw{Type}}% +}{ +\ottnt{E} \, \vdash \, = \, : \, \ottnt{t} \, \rightarrow \, ( \, \ottnt{t} \, \rightarrow \, \ottkw{bool} \, )}{ +{\ottdrulename{JTbprim\_equal}}{} +}} + + +\newcommand{\ottdruleJTbprimXXplus}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% +}{ +\ottnt{E} \, \vdash \, + \, : \, \ottkw{int} \, \rightarrow \, ( \, \ottkw{int} \, \rightarrow \, \ottkw{int} \, )}{ +{\ottdrulename{JTbprim\_plus}}{} +}} + + +\newcommand{\ottdruleJTbprimXXminus}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% +}{ +\ottnt{E} \, \vdash \, - \, : \, \ottkw{int} \, \rightarrow \, ( \, \ottkw{int} \, \rightarrow \, \ottkw{int} \, )}{ +{\ottdrulename{JTbprim\_minus}}{} +}} + + +\newcommand{\ottdruleJTbprimXXtimes}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% +}{ +\ottnt{E} \, \vdash \, \ast \, : \, \ottkw{int} \, \rightarrow \, ( \, \ottkw{int} \, \rightarrow \, \ottkw{int} \, )}{ +{\ottdrulename{JTbprim\_times}}{} +}} + + +\newcommand{\ottdruleJTbprimXXdiv}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% +}{ +\ottnt{E} \, \vdash \, / \, : \, \ottkw{int} \, \rightarrow \, ( \, \ottkw{int} \, \rightarrow \, \ottkw{int} \, )}{ +{\ottdrulename{JTbprim\_div}}{} +}} + + +\newcommand{\ottdruleJTbprimXXassign}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, : \, \ottkw{Type}}% +}{ +\ottnt{E} \, \vdash \, \ottkw{:=} \, : \, \ottnt{t} \, \ottkw{ref} \, \rightarrow \, ( \, \ottnt{t} \, \rightarrow \, \ottkw{unit} \, )}{ +{\ottdrulename{JTbprim\_assign}}{} +}} + +\newcommand{\ottdefnJTbprim}[1]{\begin{ottdefnblock}[#1]{$\ottnt{E} \, \vdash \, \ottnt{binary\_prim} \, : \, \ottnt{typexpr}$}{\ottcom{Binary primitive typing}} +\ottusedrule{\ottdruleJTbprimXXequal{}} +\ottusedrule{\ottdruleJTbprimXXplus{}} +\ottusedrule{\ottdruleJTbprimXXminus{}} +\ottusedrule{\ottdruleJTbprimXXtimes{}} +\ottusedrule{\ottdruleJTbprimXXdiv{}} +\ottusedrule{\ottdruleJTbprimXXassign{}} +\end{ottdefnblock}} + + +\newcommand{\ottdefnsJTbprim}{ +\ottdefnJTbprim{}} + + +% defns JTe +% defn e +\newcommand{\ottdruleJTeXXuprim}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{unary\_prim} \, : \, \ottnt{t}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, \equiv \, \ottnt{t'}}% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, ( \, \ottkw{\%prim} \, \ottnt{unary\_prim} \, ) \, : \, \ottnt{t'}}{ +{\ottdrulename{JTe\_uprim}}{} +}} + + +\newcommand{\ottdruleJTeXXbprim}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{binary\_prim} \, : \, \ottnt{t}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, \equiv \, \ottnt{t'}}% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, ( \, \ottkw{\%prim} \, \ottnt{binary\_prim} \, ) \, : \, \ottnt{t'}}{ +{\ottdrulename{JTe\_bprim}}{} +}} + + +\newcommand{\ottdruleJTeXXident}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{value\_name} \, : \, \ottnt{t}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, \equiv \, \ottnt{t'}}% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{value\_name} \, : \, \ottnt{t'}}{ +{\ottdrulename{JTe\_ident}}{} +}} + + +\newcommand{\ottdruleJTeXXconstant}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{constant} \, : \, \ottnt{t}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, \equiv \, \ottnt{t'}}% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{constant} \, : \, \ottnt{t'}}{ +{\ottdrulename{JTe\_constant}}{} +}} + + +\newcommand{\ottdruleJTeXXtyped}[1]{\ottdrule[#1]{% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e} \, : \, \ottnt{t}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t'} \, \leq \, \sigma^T \, \ottnt{src\_t}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, \equiv \, \ottnt{t'}}% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, ( \, \ottnt{e} \, : \, \ottnt{src\_t} \, ) \, : \, \ottnt{t}}{ +{\ottdrulename{JTe\_typed}}{} +}} + + +\newcommand{\ottdruleJTeXXtuple}[1]{\ottdrule[#1]{% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{1}}}} \, : \, \ottnt{t_{{\mathrm{1}}}} \quad .... \quad \sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{\ottmv{n}}} \, : \, \ottnt{t_{\ottmv{n}}}}% +\ottpremise{\ottkw{length} \, ( \, \ottnt{e_{{\mathrm{1}}}} \, ) \, .... \, ( \, \ottnt{e_{\ottmv{n}}} \, ) \, \geq \, 2}% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t_{{\mathrm{1}}}} \, \ast \, .... \, \ast \, \ottnt{t_{\ottmv{n}}} \, \equiv \, \ottnt{t'}}% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{1}}}} \, , \, .... \, , \, \ottnt{e_{\ottmv{n}}} \, : \, \ottnt{t'}}{ +{\ottdrulename{JTe\_tuple}}{} +}} + + +\newcommand{\ottdruleJTeXXconstruct}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{constr} \, : \, \ottnt{t_{{\mathrm{1}}}} \, ... \, \ottnt{t_{\ottmv{n}}} \, \rightarrow \, \ottnt{t}}% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{1}}}} \, : \, \ottnt{t_{{\mathrm{1}}}} \quad ... \quad \sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{\ottmv{n}}} \, : \, \ottnt{t_{\ottmv{n}}}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, \equiv \, \ottnt{t'}}% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{constr} \, ( \, \ottnt{e_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{e_{\ottmv{n}}} \, ) \, : \, \ottnt{t'}}{ +{\ottdrulename{JTe\_construct}}{} +}} + + +\newcommand{\ottdruleJTeXXcons}[1]{\ottdrule[#1]{% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{1}}}} \, : \, \ottnt{t}}% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{2}}}} \, : \, \ottnt{t} \, \ottkw{list}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, \ottkw{list} \, \equiv \, \ottnt{t'}}% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{1}}}} \, \ottkw{::} \, \ottnt{e_{{\mathrm{2}}}} \, : \, \ottnt{t'}}{ +{\ottdrulename{JTe\_cons}}{} +}} + + +\newcommand{\ottdruleJTeXXrecordXXconstr}[1]{\ottdrule[#1]{% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{1}}}} \, : \, \ottnt{t_{{\mathrm{1}}}} \quad ... \quad \sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{\ottmv{n}}} \, : \, \ottnt{t_{\ottmv{n}}}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{field\_name_{{\mathrm{1}}}} \, : \, \ottnt{t} \, \rightarrow \, \ottnt{t_{{\mathrm{1}}}} \quad ... \quad \ottnt{E} \, \vdash \, \ottnt{field\_name_{\ottmv{n}}} \, : \, \ottnt{t} \, \rightarrow \, \ottnt{t_{\ottmv{n}}}}% +\ottpremise{\ottnt{t} \, = \, ( \, \ottnt{t'_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{t'_{\ottmv{l}}} \, ) \, \ottnt{typeconstr\_name}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{typeconstr\_name} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{typeconstr\_name} \, : \, \ottnt{kind} \, \ottkw{\{} \, \ottnt{field\_name'_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{field\_name'_{\ottmv{m}}} \, \ottkw{\}}}% +\ottpremise{\ottnt{field\_name_{{\mathrm{1}}}} \, ... \, \ottnt{field\_name_{\ottmv{n}}} \, \ottkw{PERMUTES} \, \ottnt{field\_name'_{{\mathrm{1}}}} \, ... \, \ottnt{field\_name'_{\ottmv{m}}}}% +\ottpremise{\ottkw{length} \, ( \, \ottnt{e_{{\mathrm{1}}}} \, ) \, ... \, ( \, \ottnt{e_{\ottmv{n}}} \, ) \, \geq \, 1}% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, \equiv \, \ottnt{t'}}% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottkw{\{} \, \ottnt{field\_name_{{\mathrm{1}}}} \, = \, \ottnt{e_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{field\_name_{\ottmv{n}}} \, = \, \ottnt{e_{\ottmv{n}}} \, \ottkw{\}} \, : \, \ottnt{t'}}{ +{\ottdrulename{JTe\_record\_constr}}{} +}} + + +\newcommand{\ottdruleJTeXXrecordXXwith}[1]{\ottdrule[#1]{% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{expr} \, : \, \ottnt{t}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{field\_name_{{\mathrm{1}}}} \, : \, \ottnt{t} \, \rightarrow \, \ottnt{t_{{\mathrm{1}}}} \quad ... \quad \ottnt{E} \, \vdash \, \ottnt{field\_name_{\ottmv{n}}} \, : \, \ottnt{t} \, \rightarrow \, \ottnt{t_{\ottmv{n}}}}% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{1}}}} \, : \, \ottnt{t_{{\mathrm{1}}}} \quad ... \quad \sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{\ottmv{n}}} \, : \, \ottnt{t_{\ottmv{n}}}}% +\ottpremise{\ottnt{field\_name_{{\mathrm{1}}}} \, ... \, \ottnt{field\_name_{\ottmv{n}}} \, \ottkw{distinct}}% +\ottpremise{\ottkw{length} \, ( \, \ottnt{e_{{\mathrm{1}}}} \, ) \, ... \, ( \, \ottnt{e_{\ottmv{n}}} \, ) \, \geq \, 1}% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, \equiv \, \ottnt{t'}}% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottkw{\{} \, \ottnt{expr} \, \ottkw{with} \, \ottnt{field\_name_{{\mathrm{1}}}} \, = \, \ottnt{e_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{field\_name_{\ottmv{n}}} \, = \, \ottnt{e_{\ottmv{n}}} \, \ottkw{\}} \, : \, \ottnt{t'}}{ +{\ottdrulename{JTe\_record\_with}}{} +}} + + +\newcommand{\ottdruleJTeXXapply}[1]{\ottdrule[#1]{% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e} \, : \, \ottnt{t_{{\mathrm{1}}}} \, \rightarrow \, \ottnt{t}}% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{1}}}} \, : \, \ottnt{t_{{\mathrm{1}}}}}% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e} \, \ottnt{e_{{\mathrm{1}}}} \, : \, \ottnt{t}}{ +{\ottdrulename{JTe\_apply}}{} +}} + + +\newcommand{\ottdruleJTeXXrecordXXproj}[1]{\ottdrule[#1]{% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e} \, : \, \ottnt{t}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{field\_name} \, : \, \ottnt{t} \, \rightarrow \, \ottnt{t'}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t'} \, \equiv \, \ottnt{t''}}% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e} \, . \, \ottnt{field\_name} \, : \, \ottnt{t''}}{ +{\ottdrulename{JTe\_record\_proj}}{} +}} + + +\newcommand{\ottdruleJTeXXand}[1]{\ottdrule[#1]{% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{1}}}} \, : \, \ottkw{bool}}% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{2}}}} \, : \, \ottkw{bool}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{bool} \, \equiv \, \ottnt{t}}% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{1}}}} \, \ottkw{\&\&} \, \ottnt{e_{{\mathrm{2}}}} \, : \, \ottnt{t}}{ +{\ottdrulename{JTe\_and}}{} +}} + + +\newcommand{\ottdruleJTeXXor}[1]{\ottdrule[#1]{% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{1}}}} \, : \, \ottkw{bool}}% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{2}}}} \, : \, \ottkw{bool}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{bool} \, \equiv \, \ottnt{t}}% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{1}}}} \, \ottkw{\mbox{$\mid$}\mbox{$\mid$}} \, \ottnt{e_{{\mathrm{2}}}} \, : \, \ottnt{t}}{ +{\ottdrulename{JTe\_or}}{} +}} + + +\newcommand{\ottdruleJTeXXifthenelse}[1]{\ottdrule[#1]{% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{1}}}} \, : \, \ottkw{bool}}% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{2}}}} \, : \, \ottnt{t}}% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{3}}}} \, : \, \ottnt{t}}% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottkw{if} \, \ottnt{e_{{\mathrm{1}}}} \, \ottkw{then} \, \ottnt{e_{{\mathrm{2}}}} \, \ottkw{else} \, \ottnt{e_{{\mathrm{3}}}} \, : \, \ottnt{t}}{ +{\ottdrulename{JTe\_ifthenelse}}{} +}} + + +\newcommand{\ottdruleJTeXXwhile}[1]{\ottdrule[#1]{% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{1}}}} \, : \, \ottkw{bool}}% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{2}}}} \, : \, \ottkw{unit}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{unit} \, \equiv \, \ottnt{t}}% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottkw{while} \, \ottnt{e_{{\mathrm{1}}}} \, \ottkw{do} \, \ottnt{e_{{\mathrm{2}}}} \, \ottkw{done} \, : \, \ottnt{t}}{ +{\ottdrulename{JTe\_while}}{} +}} + + +\newcommand{\ottdruleJTeXXfor}[1]{\ottdrule[#1]{% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{1}}}} \, : \, \ottkw{int}}% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{2}}}} \, : \, \ottkw{int}}% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottenvironmentappend{ \ottnt{E} }{ \ottmv{lowercase\_ident} \, : \, \ottkw{int} } \, \vdash \, \ottnt{e_{{\mathrm{3}}}} \, : \, \ottkw{unit}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{unit} \, \equiv \, \ottnt{t}}% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottkw{for} \, \ottmv{lowercase\_ident} \, = \, \ottnt{e_{{\mathrm{1}}}} \, \ottkw{\relax{\sf[}down{\sf]}to} \, \ottnt{e_{{\mathrm{2}}}} \, \ottkw{do} \, \ottnt{e_{{\mathrm{3}}}} \, \ottkw{done} \, : \, \ottnt{t}}{ +{\ottdrulename{JTe\_for}}{} +}} + + +\newcommand{\ottdruleJTeXXsequence}[1]{\ottdrule[#1]{% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{1}}}} \, : \, \ottkw{unit}}% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{2}}}} \, : \, \ottnt{t}}% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{1}}}} \, ; \, \ottnt{e_{{\mathrm{2}}}} \, : \, \ottnt{t}}{ +{\ottdrulename{JTe\_sequence}}{} +}} + + +\newcommand{\ottdruleJTeXXmatch}[1]{\ottdrule[#1]{% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e} \, : \, \ottnt{t}}% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern\_matching} \, : \, \ottnt{t} \, \rightarrow \, \ottnt{t'}}% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottkw{match} \, \ottnt{e} \, \ottkw{with} \, \ottnt{pattern\_matching} \, : \, \ottnt{t'}}{ +{\ottdrulename{JTe\_match}}{} +}} + + +\newcommand{\ottdruleJTeXXfunction}[1]{\ottdrule[#1]{% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern\_matching} \, : \, \ottnt{t} \, \rightarrow \, \ottnt{t'}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, \rightarrow \, \ottnt{t'} \, \equiv \, \ottnt{t''}}% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottkw{function} \, \ottnt{pattern\_matching} \, : \, \ottnt{t''}}{ +{\ottdrulename{JTe\_function}}{} +}} + + +\newcommand{\ottdruleJTeXXtry}[1]{\ottdrule[#1]{% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e} \, : \, \ottnt{t}}% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern\_matching} \, : \, \ottkw{exn} \, \rightarrow \, \ottnt{t}}% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottkw{try} \, \ottnt{e} \, \ottkw{with} \, \ottnt{pattern\_matching} \, : \, \ottnt{t}}{ +{\ottdrulename{JTe\_try}}{} +}} + + +\newcommand{\ottdruleJTeXXletXXmono}[1]{\ottdrule[#1]{% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pat} \, = \, \ottnt{expr} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{x_{{\mathrm{1}}}} \, : \, \ottnt{t_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{x_{\ottmv{n}}} \, : \, \ottnt{t_{\ottmv{n}}}}% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, @ \, \ottnt{x_{{\mathrm{1}}}} \, : \, \ottnt{t_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{x_{\ottmv{n}}} \, : \, \ottnt{t_{\ottmv{n}}} \, \vdash \, \ottnt{e} \, : \, \ottnt{t}}% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottkw{let} \, \ottnt{pat} \, = \, \ottnt{expr} \, \ottkw{in} \, \ottnt{e} \, : \, \ottnt{t}}{ +{\ottdrulename{JTe\_let\_mono}}{} +}} + + +\newcommand{\ottdruleJTeXXletXXpoly}[1]{\ottdrule[#1]{% +\ottpremise{\ottkw{shift} \, 0 \, 1 \, \sigma^T \, \ottkw{\&} \, \ottenvironmentappend{ \ottnt{E} }{ \ottkw{TV} } \, \vdash \, \ottnt{pat} \, = \, \ottnt{nexp} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{x_{{\mathrm{1}}}} \, : \, \ottnt{t_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{x_{\ottmv{n}}} \, : \, \ottnt{t_{\ottmv{n}}}}% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, @ \, \ottnt{x_{{\mathrm{1}}}} \, : \, \forall \, \ottnt{t_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{x_{\ottmv{n}}} \, : \, \forall \, \ottnt{t_{\ottmv{n}}} \, \vdash \, \ottnt{e} \, : \, \ottnt{t}}% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottkw{let} \, \ottnt{pat} \, = \, \ottnt{nexp} \, \ottkw{in} \, \ottnt{e} \, : \, \ottnt{t}}{ +{\ottdrulename{JTe\_let\_poly}}{} +}} + + +\newcommand{\ottdruleJTeXXletrec}[1]{\ottdrule[#1]{% +\ottpremise{\ottkw{shift} \, 0 \, 1 \, \sigma^T \, \ottkw{\&} \, \ottenvironmentappend{ \ottnt{E} }{ \ottkw{TV} } \, \vdash \, \ottnt{letrec\_bindings} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{x_{{\mathrm{1}}}} \, : \, \ottnt{t_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{x_{\ottmv{n}}} \, : \, \ottnt{t_{\ottmv{n}}}}% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, @ \, ( \, \ottnt{x_{{\mathrm{1}}}} \, : \, \forall \, \ottnt{t_{{\mathrm{1}}}} \, ) \, , \, ... \, , \, ( \, \ottnt{x_{\ottmv{n}}} \, : \, \forall \, \ottnt{t_{\ottmv{n}}} \, ) \, \vdash \, \ottnt{e} \, : \, \ottnt{t}}% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottkw{let} \, \ottkw{rec} \, \ottnt{letrec\_bindings} \, \ottkw{in} \, \ottnt{e} \, : \, \ottnt{t}}{ +{\ottdrulename{JTe\_letrec}}{} +}} + + +\newcommand{\ottdruleJTeXXassert}[1]{\ottdrule[#1]{% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e} \, : \, \ottkw{bool}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{unit} \, \equiv \, \ottnt{t}}% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottkw{assert} \, \ottnt{e} \, : \, \ottnt{t}}{ +{\ottdrulename{JTe\_assert}}{} +}} + + +\newcommand{\ottdruleJTeXXassertfalse}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, : \, \ottkw{Type}}% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottkw{assert} \, \ottkw{false} \, : \, \ottnt{t}}{ +{\ottdrulename{JTe\_assertfalse}}{} +}} + + +\newcommand{\ottdruleJTeXXlocation}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottmv{location} \, \;\vartriangleright\;\ottmaybebreakline \, \ottmv{location} \, : \, \ottnt{t}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, \ottkw{ref} \, \equiv \, \ottnt{t'}}% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottmv{location} \, : \, \ottnt{t'}}{ +{\ottdrulename{JTe\_location}}{} +}} + +\newcommand{\ottdefnJTe}[1]{\begin{ottdefnblock}[#1]{$\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{expr} \, : \, \ottnt{typexpr}$}{\ottcom{Expression typing}} +\ottusedrule{\ottdruleJTeXXuprim{}} +\ottusedrule{\ottdruleJTeXXbprim{}} +\ottusedrule{\ottdruleJTeXXident{}} +\ottusedrule{\ottdruleJTeXXconstant{}} +\ottusedrule{\ottdruleJTeXXtyped{}} +\ottusedrule{\ottdruleJTeXXtuple{}} +\ottusedrule{\ottdruleJTeXXconstruct{}} +\ottusedrule{\ottdruleJTeXXcons{}} +\ottusedrule{\ottdruleJTeXXrecordXXconstr{}} +\ottusedrule{\ottdruleJTeXXrecordXXwith{}} +\ottusedrule{\ottdruleJTeXXapply{}} +\ottusedrule{\ottdruleJTeXXrecordXXproj{}} +\ottusedrule{\ottdruleJTeXXand{}} +\ottusedrule{\ottdruleJTeXXor{}} +\ottusedrule{\ottdruleJTeXXifthenelse{}} +\ottusedrule{\ottdruleJTeXXwhile{}} +\ottusedrule{\ottdruleJTeXXfor{}} +\ottusedrule{\ottdruleJTeXXsequence{}} +\ottusedrule{\ottdruleJTeXXmatch{}} +\ottusedrule{\ottdruleJTeXXfunction{}} +\ottusedrule{\ottdruleJTeXXtry{}} +\ottusedrule{\ottdruleJTeXXletXXmono{}} +\ottusedrule{\ottdruleJTeXXletXXpoly{}} +\ottusedrule{\ottdruleJTeXXletrec{}} +\ottusedrule{\ottdruleJTeXXassert{}} +\ottusedrule{\ottdruleJTeXXassertfalse{}} +\ottusedrule{\ottdruleJTeXXlocation{}} +\end{ottdefnblock}} + + +% defn pat_matching +\newcommand{\ottdruleJTpatXXmatchingXXpm}[1]{\ottdrule[#1]{% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern_{{\mathrm{1}}}} \, : \, \ottnt{t} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E_{{\mathrm{1}}}} \quad ... \quad \sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern_{\ottmv{n}}} \, : \, \ottnt{t} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E_{\ottmv{n}}}}% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, @ \, \ottnt{E_{{\mathrm{1}}}} \, \vdash \, \ottnt{e_{{\mathrm{1}}}} \, : \, \ottnt{t'} \quad ... \quad \sigma^T \, \ottkw{\&} \, \ottnt{E} \, @ \, \ottnt{E_{\ottmv{n}}} \, \vdash \, \ottnt{e_{\ottmv{n}}} \, : \, \ottnt{t'}}% +\ottpremise{\ottkw{length} \, ( \, \ottnt{pattern_{{\mathrm{1}}}} \, ) \, ... \, ( \, \ottnt{pattern_{\ottmv{n}}} \, ) \, \geq \, 1}% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern_{{\mathrm{1}}}} \, \rightarrow \, \ottnt{e_{{\mathrm{1}}}} \, \ottkw{\mbox{$\mid$}} \, ... \, \ottkw{\mbox{$\mid$}} \, \ottnt{pattern_{\ottmv{n}}} \, \rightarrow \, \ottnt{e_{\ottmv{n}}} \, : \, \ottnt{t} \, \rightarrow \, \ottnt{t'}}{ +{\ottdrulename{JTpat\_matching\_pm}}{} +}} + +\newcommand{\ottdefnJTpatXXmatching}[1]{\begin{ottdefnblock}[#1]{$\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern\_matching} \, : \, \ottnt{typexpr} \, \rightarrow \, \ottnt{typexpr'}$}{\ottcom{Pattern matching/expression pair typing}} +\ottusedrule{\ottdruleJTpatXXmatchingXXpm{}} +\end{ottdefnblock}} + + +% defn let_binding +\newcommand{\ottdruleJTletXXbindingXXpoly}[1]{\ottdrule[#1]{% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern} \, : \, \ottnt{t} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{x_{{\mathrm{1}}}} \, : \, \ottnt{t_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{x_{\ottmv{n}}} \, : \, \ottnt{t_{\ottmv{n}}}}% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{expr} \, : \, \ottnt{t}}% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern} \, = \, \ottnt{expr} \, \;\vartriangleright\;\ottmaybebreakline \, ( \, \ottnt{x_{{\mathrm{1}}}} \, : \, \ottnt{t_{{\mathrm{1}}}} \, ) \, , \, .. \, , \, ( \, \ottnt{x_{\ottmv{n}}} \, : \, \ottnt{t_{\ottmv{n}}} \, )}{ +{\ottdrulename{JTlet\_binding\_poly}}{} +}} + +\newcommand{\ottdefnJTletXXbinding}[1]{\begin{ottdefnblock}[#1]{$\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{let\_binding} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E'}$}{\ottcom{Let binding typing}} +\ottusedrule{\ottdruleJTletXXbindingXXpoly{}} +\end{ottdefnblock}} + + +% defn letrec_binding +\newcommand{\ottdruleJTletrecXXbindingXXequalXXfunction}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E'} \, = \, \ottnt{E} \, @ \, \ottnt{value\_name_{{\mathrm{1}}}} \, : \, \ottnt{t_{{\mathrm{1}}}} \, \rightarrow \, \ottnt{t'_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{value\_name_{\ottmv{n}}} \, : \, \ottnt{t_{\ottmv{n}}} \, \rightarrow \, \ottnt{t'_{\ottmv{n}}}}% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E'} \, \vdash \, \ottnt{pattern\_matching_{{\mathrm{1}}}} \, : \, \ottnt{t_{{\mathrm{1}}}} \, \rightarrow \, \ottnt{t'_{{\mathrm{1}}}} \quad ... \quad \sigma^T \, \ottkw{\&} \, \ottnt{E'} \, \vdash \, \ottnt{pattern\_matching_{\ottmv{n}}} \, : \, \ottnt{t_{\ottmv{n}}} \, \rightarrow \, \ottnt{t'_{\ottmv{n}}}}% +\ottpremise{\ottnt{value\_name_{{\mathrm{1}}}} \, ... \, \ottnt{value\_name_{\ottmv{n}}} \, \ottkw{distinct}}% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{value\_name_{{\mathrm{1}}}} \, = \, \ottkw{function} \, \ottnt{pattern\_matching_{{\mathrm{1}}}} \, \ottkw{and} \, ... \, \ottkw{and} \, \ottnt{value\_name_{\ottmv{n}}} \, = \, \ottkw{function} \, \ottnt{pattern\_matching_{\ottmv{n}}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{value\_name_{{\mathrm{1}}}} \, : \, \ottnt{t_{{\mathrm{1}}}} \, \rightarrow \, \ottnt{t'_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{value\_name_{\ottmv{n}}} \, : \, \ottnt{t_{\ottmv{n}}} \, \rightarrow \, \ottnt{t'_{\ottmv{n}}}}{ +{\ottdrulename{JTletrec\_binding\_equal\_function}}{} +}} + +\newcommand{\ottdefnJTletrecXXbinding}[1]{\begin{ottdefnblock}[#1]{$\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{letrec\_bindings} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E'}$}{\ottcom{Recursive let binding typing}} +\ottbreakconclusionlinetrue +\ottusedrule{\ottdruleJTletrecXXbindingXXequalXXfunction{}} +\ottbreakconclusionlinefalse +\end{ottdefnblock}} + + +\newcommand{\ottdefnsJTe}{ +\ottdefnJTe{} +\ottdefnJTpatXXmatching{} +\ottdefnJTletXXbinding{} +\ottdefnJTletrecXXbinding{}} + + +% defns JTconstr_decl +% defn constr_decl +\newcommand{\ottdruleJTconstrXXdeclXXnullary}[1]{\ottdrule[#1]{% +}{ +( \, \alpha_{{\mathrm{1}}} \, , \, ... \, , \, \alpha_{\ottmv{n}} \, ) \, \ottnt{typeconstr} \, \vdash \, \ottnt{constr\_name} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{constr\_name} \, \ottkw{of} \, \ottnt{typeconstr}}{ +{\ottdrulename{JTconstr\_decl\_nullary}}{} +}} + + +\newcommand{\ottdruleJTconstrXXdeclXXnary}[1]{\ottdrule[#1]{% +}{ +( \, \alpha_{{\mathrm{1}}} \, , \, ... \, , \, \alpha_{\ottmv{n}} \, ) \, \ottnt{typeconstr} \, \vdash \, \ottnt{constr\_name} \, \ottkw{of} \, \ottnt{t_{{\mathrm{1}}}} \, \ast \, ... \, \ast \, \ottnt{t_{\ottmv{n}}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{constr\_name} \, \ottkw{of} \, \forall \, ( \, \alpha_{{\mathrm{1}}} \, , \, ... \, , \, \alpha_{\ottmv{n}} \, ) \, , \, ( \, \ottnt{t_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{t_{\ottmv{n}}} \, ) \, : \, \ottnt{typeconstr}}{ +{\ottdrulename{JTconstr\_decl\_nary}}{} +}} + +\newcommand{\ottdefnJTconstrXXdecl}[1]{\begin{ottdefnblock}[#1]{$\ottnt{type\_params\_opt} \, \ottnt{typeconstr} \, \vdash \, \ottnt{constr\_decl} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{EB}$}{\ottcom{Variant constructor declaration}} +\ottusedrule{\ottdruleJTconstrXXdeclXXnullary{}} +\ottusedrule{\ottdruleJTconstrXXdeclXXnary{}} +\end{ottdefnblock}} + + +\newcommand{\ottdefnsJTconstrXXdecl}{ +\ottdefnJTconstrXXdecl{}} + + +% defns JTfield_decl +% defn field_decl +\newcommand{\ottdruleJTfieldXXdeclXXonly}[1]{\ottdrule[#1]{% +}{ +( \, \alpha_{{\mathrm{1}}} \, , \, ... \, , \, \alpha_{\ottmv{n}} \, ) \, \ottnt{typeconstr\_name} \, \vdash \, \ottnt{fn} \, : \, \ottnt{t} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{fn} \, : \, \forall \, ( \, \alpha_{{\mathrm{1}}} \, , \, ... \, , \, \alpha_{\ottmv{n}} \, ) \, , \, \ottnt{typeconstr\_name} \, \rightarrow \, \ottnt{t}}{ +{\ottdrulename{JTfield\_decl\_only}}{} +}} + +\newcommand{\ottdefnJTfieldXXdecl}[1]{\begin{ottdefnblock}[#1]{$\ottnt{type\_params\_opt} \, \ottnt{typeconstr\_name} \, \vdash \, \ottnt{field\_decl} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{EB}$}{\ottcom{Record field declaration}} +\ottusedrule{\ottdruleJTfieldXXdeclXXonly{}} +\end{ottdefnblock}} + + +\newcommand{\ottdefnsJTfieldXXdecl}{ +\ottdefnJTfieldXXdecl{}} + + +% defns JTtypedef +% defn typedef +\newcommand{\ottdruleJTtypedefXXempty}[1]{\ottdrule[#1]{% +}{ +\vdash \, \, \, \;\vartriangleright\;\ottmaybebreakline \, \ottkw{empty} \, \ottkw{and} \, \ottkw{empty} \, \ottkw{and} \, \ottkw{empty}}{ +{\ottdrulename{JTtypedef\_empty}}{} +}} + + +\newcommand{\ottdruleJTtypedefXXeq}[1]{\ottdrule[#1]{% +\ottpremise{\vdash \, \ottcomp{\ottnt{typedef_{\ottmv{i}}}}{\ottmv{i}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E} \, \ottkw{and} \, \ottnt{E'} \, \ottkw{and} \, \ottnt{E''}}% +}{ +\vdash \, \ottnt{type\_params\_opt} \, \ottnt{typeconstr\_name} \, = \, \ottnt{t} \, \ottkw{and} \, \ottcomp{\ottnt{typedef_{\ottmv{i}}}}{\ottmv{i}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E} \, \ottkw{and} \, \ottenvironmentappend{ \ottnt{E'} }{ ( \, \ottnt{type\_params\_opt} \, \ottnt{typeconstr\_name} \, = \, \ottnt{t} \, ) } \, \ottkw{and} \, \ottnt{E''}}{ +{\ottdrulename{JTtypedef\_eq}}{} +}} + + +\newcommand{\ottdruleJTtypedefXXdefXXsum}[1]{\ottdrule[#1]{% +\ottpremise{\vdash \, \ottcomp{\ottnt{typedef_{\ottmv{i}}}}{\ottmv{i}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E} \, \ottkw{and} \, \ottnt{E'} \, \ottkw{and} \, \ottnt{E''}}% +\ottpremise{\vdash \, \ottnt{type\_params\_opt} \, : \, \ottnt{kind}}% +\ottpremise{\ottnt{type\_params\_opt} \, \ottnt{typeconstr\_name} \, \vdash \, \ottnt{constr\_decl_{{\mathrm{1}}}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{EB_{{\mathrm{1}}}} \quad ... \quad \ottnt{type\_params\_opt} \, \ottnt{typeconstr\_name} \, \vdash \, \ottnt{constr\_decl_{\ottmv{n}}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{EB_{\ottmv{n}}}}% +}{ +\vdash \, \ottnt{type\_params\_opt} \, \ottnt{typeconstr\_name} \, = \, \ottnt{constr\_decl_{{\mathrm{1}}}} \, \ottkw{\mbox{$\mid$}} \, ... \, \ottkw{\mbox{$\mid$}} \, \ottnt{constr\_decl_{\ottmv{n}}} \, \ottkw{and} \, \ottcomp{\ottnt{typedef_{\ottmv{i}}}}{\ottmv{i}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottenvironmentappend{ \ottnt{E} }{ ( \, \ottnt{typeconstr\_name} \, : \, \ottnt{kind} \, ) } \, \ottkw{and} \, \ottnt{E'} \, \ottkw{and} \, \ottnt{E''} \, @ \, \ottnt{EB_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{EB_{\ottmv{n}}}}{ +{\ottdrulename{JTtypedef\_def\_sum}}{} +}} + + +\newcommand{\ottdruleJTtypedefXXdefXXrecord}[1]{\ottdrule[#1]{% +\ottpremise{\vdash \, \ottcomp{\ottnt{typedef_{\ottmv{i}}}}{\ottmv{i}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E} \, \ottkw{and} \, \ottnt{E'} \, \ottkw{and} \, \ottnt{E''}}% +\ottpremise{\vdash \, \ottnt{type\_params\_opt} \, : \, \ottnt{kind}}% +\ottpremise{\ottnt{type\_params\_opt} \, \ottnt{typeconstr\_name} \, \vdash \, \ottnt{field\_name_{{\mathrm{1}}}} \, : \, \ottnt{t_{{\mathrm{1}}}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{EB_{{\mathrm{1}}}} \quad ... \quad \ottnt{type\_params\_opt} \, \ottnt{typeconstr\_name} \, \vdash \, \ottnt{field\_name_{\ottmv{n}}} \, : \, \ottnt{t_{\ottmv{n}}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{EB_{\ottmv{n}}}}% +}{ +\vdash \, \ottnt{type\_params\_opt} \, \ottnt{typeconstr\_name} \, = \, \ottkw{\{} \, \ottnt{field\_name_{{\mathrm{1}}}} \, : \, \ottnt{t_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{field\_name_{\ottmv{n}}} \, : \, \ottnt{t_{\ottmv{n}}} \, \ottkw{\}} \, \ottkw{and} \, \ottcomp{\ottnt{typedef_{\ottmv{i}}}}{\ottmv{i}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottenvironmentappend{ \ottnt{E} }{ ( \, \ottnt{typeconstr\_name} \, : \, \ottnt{kind} \, \ottkw{\{} \, \ottnt{field\_name_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{field\_name_{\ottmv{n}}} \, \ottkw{\}} \, ) } \, \ottkw{and} \, \ottnt{E'} \, \ottkw{and} \, \ottnt{E''} \, @ \, \ottnt{EB_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{EB_{\ottmv{n}}}}{ +{\ottdrulename{JTtypedef\_def\_record}}{} +}} + +\newcommand{\ottdefnJTtypedef}[1]{\begin{ottdefnblock}[#1]{$\vdash \, \ottnt{typedef_{{\mathrm{1}}}} \, \ottkw{and} \, .. \, \ottkw{and} \, \ottnt{typedef_{\ottmv{n}}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E'} \, \ottkw{and} \, \ottnt{E''} \, \ottkw{and} \, \ottnt{E'''}$}{\ottcom{Type definitions collection}} +\ottusedrule{\ottdruleJTtypedefXXempty{}} +\ottusedrule{\ottdruleJTtypedefXXeq{}} +\ottbreakconclusionlinetrue +\ottusedrule{\ottdruleJTtypedefXXdefXXsum{}} +\ottusedrule{\ottdruleJTtypedefXXdefXXrecord{}} +\end{ottdefnblock}} + + +\newcommand{\ottdefnsJTtypedef}{ +\ottdefnJTtypedef{}} + + +% defns JTtype_definition +% defn type_definition +\newcommand{\ottdruleJTtypeXXdefinitionXXlist}[1]{\ottdrule[#1]{% +\ottpremise{\vdash \, \ottnt{typedef_{{\mathrm{1}}}} \, \ottkw{and} \, ... \, \ottkw{and} \, \ottnt{typedef_{\ottmv{n}}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E'} \, \ottkw{and} \, \ottnt{E''} \, \ottkw{and} \, \ottnt{E'''}}% +\ottpremise{\ottnt{E''''} \, = \, \ottnt{E'} \, @ \, \ottnt{E''} \, @ \, \ottnt{E'''}}% +\ottpremise{\ottnt{E} \, @ \, \ottnt{E''''} \, \vdash \, \ottkw{ok}}% +}{ +\ottnt{E} \, \vdash \, \ottkw{type} \, \ottnt{typedef_{{\mathrm{1}}}} \, \ottkw{and} \, ... \, \ottkw{and} \, \ottnt{typedef_{\ottmv{n}}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E''''}}{ +{\ottdrulename{JTtype\_definition\_list}}{} +}} + + +\newcommand{\ottdruleJTtypeXXdefinitionXXswap}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{type} \, \ottcomp{\ottnt{typedef_{\ottmv{i}}}}{\ottmv{i}} \, \ottkw{and} \, \ottnt{typedef'} \, \ottkw{and} \, \ottnt{typedef} \, \ottkw{and} \, \ottcomp{\ottnt{typedef''_{\ottmv{j}}}}{\ottmv{j}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E'}}% +}{ +\ottnt{E} \, \vdash \, \ottkw{type} \, \ottcomp{\ottnt{typedef_{\ottmv{i}}}}{\ottmv{i}} \, \ottkw{and} \, \ottnt{typedef} \, \ottkw{and} \, \ottnt{typedef'} \, \ottkw{and} \, \ottcomp{\ottnt{typedef''_{\ottmv{j}}}}{\ottmv{j}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E'}}{ +{\ottdrulename{JTtype\_definition\_swap}}{} +}} + +\newcommand{\ottdefnJTtypeXXdefinition}[1]{\begin{ottdefnblock}[#1]{$\ottnt{E} \, \vdash \, \ottnt{type\_definition} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E'}$}{\ottcom{Type definition well-formedness and binding collection}} +\ottusedrule{\ottdruleJTtypeXXdefinitionXXlist{}} +\ottusedrule{\ottdruleJTtypeXXdefinitionXXswap{}} +\end{ottdefnblock}} + + +\newcommand{\ottdefnsJTtypeXXdefinition}{ +\ottdefnJTtypeXXdefinition{}} + + +% defns JTdefinition +% defn definition +\newcommand{\ottdruleJTdefinitionXXletXXpoly}[1]{\ottdrule[#1]{% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottenvironmentappend{ \ottnt{E} }{ \ottkw{TV} } \, \vdash \, \ottnt{pat} \, = \, \ottnt{nexp} \, \;\vartriangleright\;\ottmaybebreakline \, ( \, \ottnt{x_{{\mathrm{1}}}} \, : \, \ottnt{t'_{{\mathrm{1}}}} \, ) \, , \, .. \, , \, ( \, \ottnt{x_{\ottmv{k}}} \, : \, \ottnt{t'_{\ottmv{k}}} \, )}% +}{ +\ottnt{E} \, \vdash \, \ottkw{let} \, \ottnt{pat} \, = \, \ottnt{nexp} \, : \, ( \, \ottnt{x_{{\mathrm{1}}}} \, : \, \forall \, \ottnt{t'_{{\mathrm{1}}}} \, ) \, , \, .. \, , \, ( \, \ottnt{x_{\ottmv{k}}} \, : \, \forall \, \ottnt{t'_{\ottmv{k}}} \, )}{ +{\ottdrulename{JTdefinition\_let\_poly}}{} +}} + + +\newcommand{\ottdruleJTdefinitionXXletXXmono}[1]{\ottdrule[#1]{% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pat} \, = \, \ottnt{expr} \, \;\vartriangleright\;\ottmaybebreakline \, ( \, \ottnt{x_{{\mathrm{1}}}} \, : \, \ottnt{t'_{{\mathrm{1}}}} \, ) \, , \, .. \, , \, ( \, \ottnt{x_{\ottmv{k}}} \, : \, \ottnt{t'_{\ottmv{k}}} \, )}% +}{ +\ottnt{E} \, \vdash \, \ottkw{let} \, \ottnt{pat} \, = \, \ottnt{expr} \, : \, ( \, \ottnt{x_{{\mathrm{1}}}} \, : \, \ottnt{t'_{{\mathrm{1}}}} \, ) \, , \, .. \, , \, ( \, \ottnt{x_{\ottmv{k}}} \, : \, \ottnt{t'_{\ottmv{k}}} \, )}{ +{\ottdrulename{JTdefinition\_let\_mono}}{} +}} + + +\newcommand{\ottdruleJTdefinitionXXletrec}[1]{\ottdrule[#1]{% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottenvironmentappend{ \ottnt{E} }{ \ottkw{TV} } \, \vdash \, \ottnt{letrec\_bindings} \, \;\vartriangleright\;\ottmaybebreakline \, ( \, \ottnt{x_{{\mathrm{1}}}} \, : \, \ottnt{t'_{{\mathrm{1}}}} \, ) \, , \, .. \, , \, ( \, \ottnt{x_{\ottmv{k}}} \, : \, \ottnt{t'_{\ottmv{k}}} \, )}% +}{ +\ottnt{E} \, \vdash \, \ottkw{let} \, \ottkw{rec} \, \ottnt{letrec\_bindings} \, : \, ( \, \ottnt{x_{{\mathrm{1}}}} \, : \, \forall \, \ottnt{t'_{{\mathrm{1}}}} \, ) \, , \, .. \, , \, ( \, \ottnt{x_{\ottmv{k}}} \, : \, \forall \, \ottnt{t'_{\ottmv{k}}} \, )}{ +{\ottdrulename{JTdefinition\_letrec}}{} +}} + + +\newcommand{\ottdruleJTdefinitionXXtypedef}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{type} \, \ottnt{typedef_{{\mathrm{1}}}} \, \ottkw{and} \, ... \, \ottkw{and} \, \ottnt{typedef_{\ottmv{n}}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E'}}% +}{ +\ottnt{E} \, \vdash \, \ottkw{type} \, \ottnt{typedef_{{\mathrm{1}}}} \, \ottkw{and} \, ... \, \ottkw{and} \, \ottnt{typedef_{\ottmv{n}}} \, : \, \ottnt{E'}}{ +{\ottdrulename{JTdefinition\_typedef}}{} +}} + + +\newcommand{\ottdruleJTdefinitionXXexndef}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% +\ottpremise{ \, \ottkw{exn} \, \vdash \, \ottnt{constr\_decl} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{EB}}% +}{ +\ottnt{E} \, \vdash \, \ottkw{exception} \, \ottnt{constr\_decl} \, : \, \ottnt{EB}}{ +{\ottdrulename{JTdefinition\_exndef}}{} +}} + +\newcommand{\ottdefnJTdefinition}[1]{\begin{ottdefnblock}[#1]{$\ottnt{E} \, \vdash \, \ottnt{definition} \, : \, \ottnt{E'}$}{\ottcom{Definition typing}} +\ottusedrule{\ottdruleJTdefinitionXXletXXpoly{}} +\ottusedrule{\ottdruleJTdefinitionXXletXXmono{}} +\ottusedrule{\ottdruleJTdefinitionXXletrec{}} +\ottusedrule{\ottdruleJTdefinitionXXtypedef{}} +\ottusedrule{\ottdruleJTdefinitionXXexndef{}} +\end{ottdefnblock}} + + +\newcommand{\ottdefnsJTdefinition}{ +\ottdefnJTdefinition{}} + + +% defns JTdefinitions +% defn definitions +\newcommand{\ottdruleJTdefinitionsXXempty}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% +}{ +\ottnt{E} \, \vdash \, \, : \, \,}{ +{\ottdrulename{JTdefinitions\_empty}}{} +}} + + +\newcommand{\ottdruleJTdefinitionsXXitem}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{definition} \, : \, \ottnt{E'}}% +\ottpremise{\ottnt{E} \, @ \, \ottnt{E'} \, \vdash \, \ottnt{definitions'} \, : \, \ottnt{E''}}% +}{ +\ottnt{E} \, \vdash \, \ottnt{definition} \, \ottnt{definitions'} \, : \, \ottnt{E'} \, @ \, \ottnt{E''}}{ +{\ottdrulename{JTdefinitions\_item}}{} +}} + +\newcommand{\ottdefnJTdefinitions}[1]{\begin{ottdefnblock}[#1]{$\ottnt{E} \, \vdash \, \ottnt{definitions} \, : \, \ottnt{E'}$}{\ottcom{Definition sequence typing}} +\ottusedrule{\ottdruleJTdefinitionsXXempty{}} +\ottusedrule{\ottdruleJTdefinitionsXXitem{}} +\end{ottdefnblock}} + + +\newcommand{\ottdefnsJTdefinitions}{ +\ottdefnJTdefinitions{}} + + +% defns JTprog +% defn prog +\newcommand{\ottdruleJTprogXXdefs}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{definitions} \, : \, \ottnt{E'}}% +}{ +\ottnt{E} \, \vdash \, \ottnt{definitions} \, : \, \ottnt{E'}}{ +{\ottdrulename{JTprog\_defs}}{} +}} + + +\newcommand{\ottdruleJTprogXXraise}[1]{\ottdrule[#1]{% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{v} \, : \, \ottnt{t}}% +}{ +\ottnt{E} \, \vdash \, \ottkw{(\%prim} \, \ottkw{raise)} \, \ottnt{v} \, : \, \,}{ +{\ottdrulename{JTprog\_raise}}{} +}} + +\newcommand{\ottdefnJTprog}[1]{\begin{ottdefnblock}[#1]{$\ottnt{E} \, \vdash \, \ottnt{program} \, : \, \ottnt{E'}$}{\ottcom{Program typing}} +\ottusedrule{\ottdruleJTprogXXdefs{}} +\ottusedrule{\ottdruleJTprogXXraise{}} +\end{ottdefnblock}} + + +\newcommand{\ottdefnsJTprog}{ +\ottdefnJTprog{}} + + +% defns JTstore +% defn store +\newcommand{\ottdruleJTstoreXXempty}[1]{\ottdrule[#1]{% +}{ +\ottnt{E} \, \vdash \, \ottkw{empty} \, : \, \,}{ +{\ottdrulename{JTstore\_empty}}{} +}} + + +\newcommand{\ottdruleJTstoreXXmap}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, \vdash \, \ottnt{store} \, : \, \ottnt{E'}}% +\ottpremise{\{\!\!\{ \, \, \, \}\!\!\} \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{v} \, : \, \ottnt{t}}% +}{ +\ottnt{E} \, \vdash \, \ottnt{store} \, , \, \ottmv{l} \, \mapsto \, \ottnt{v} \, : \, \ottenvironmentappend{ \ottnt{E'} }{ ( \, \ottmv{l} \, : \, \ottnt{t} \, ) } }{ +{\ottdrulename{JTstore\_map}}{} +}} + +\newcommand{\ottdefnJTstore}[1]{\begin{ottdefnblock}[#1]{$\ottnt{E} \, \vdash \, \ottnt{store} \, : \, \ottnt{E'}$}{\ottcom{Store typing}} +\ottusedrule{\ottdruleJTstoreXXempty{}} +\ottusedrule{\ottdruleJTstoreXXmap{}} +\end{ottdefnblock}} + + +\newcommand{\ottdefnsJTstore}{ +\ottdefnJTstore{}} + + +% defns JTtop +% defn top +\newcommand{\ottdruleJTtopXXdefs}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{E} \, @ \, \ottnt{E'} \, \vdash \, \ottnt{store} \, : \, \ottnt{E'}}% +\ottpremise{\ottnt{E} \, @ \, \ottnt{E'} \, \vdash \, \ottnt{program} \, : \, \ottnt{E''}}% +}{ + \ottnt{E} \vdash \langle \ottnt{program} , \ottnt{store} \rangle }{ +{\ottdrulename{JTtop\_defs}}{} +}} + +\newcommand{\ottdefnJTtop}[1]{\begin{ottdefnblock}[#1]{$ \ottnt{E} \vdash \langle \ottnt{program} , \ottnt{store} \rangle $}{\ottcom{Top-level typing}} +Checks the combination of a program with a store. The store is typed in an +environment that includes its bindings, so that it can contain cyclic +structures. +\ottusedrule{\ottdruleJTtopXXdefs{}} +\end{ottdefnblock}} + + +\newcommand{\ottdefnsJTtop}{ +\ottdefnJTtop{}} + + +% defns JTLin +% defn Lin +\newcommand{\ottdruleJTLinXXnil}[1]{\ottdrule[#1]{% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, }{ +{\ottdrulename{JTLin\_nil}}{} +}} + + +\newcommand{\ottdruleJTLinXXalloc}[1]{\ottdrule[#1]{% +\ottpremise{\ottkw{dom} \, ( \, \ottnt{E} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{names}}% +\ottpremise{\ottmv{location} \, \notin \, \ottnt{names}}% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottkw{ref} \, \ottnt{v} \, = \, \ottmv{location}}{ +{\ottdrulename{JTLin\_alloc}}{} +}} + + +\newcommand{\ottdruleJTLinXXderef}[1]{\ottdrule[#1]{% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{v} \, : \, \ottnt{t}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottmv{location} \, \;\vartriangleright\;\ottmaybebreakline \, ( \, \ottmv{location} \, : \, \ottnt{t} \, )}% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, ! \, \ottmv{location} \, = \, \ottnt{v}}{ +{\ottdrulename{JTLin\_deref}}{} +}} + + +\newcommand{\ottdruleJTLinXXassign}[1]{\ottdrule[#1]{% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottmv{location} \, \ottkw{:=} \, \ottnt{v}}{ +{\ottdrulename{JTLin\_assign}}{} +}} + +\newcommand{\ottdefnJTLin}[1]{\begin{ottdefnblock}[#1]{$\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{L}$}{\ottcom{Label-to-environment extraction}} +\ottusedrule{\ottdruleJTLinXXnil{}} +\ottusedrule{\ottdruleJTLinXXalloc{}} +\ottusedrule{\ottdruleJTLinXXderef{}} +\ottusedrule{\ottdruleJTLinXXassign{}} +\end{ottdefnblock}} + + +\newcommand{\ottdefnsJTLin}{ +\ottdefnJTLin{}} + + +% defns JTLout +% defn Lout +\newcommand{\ottdruleJTLoutXXnil}[1]{\ottdrule[#1]{% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \, \;\vartriangleright\;\ottmaybebreakline \, \,}{ +{\ottdrulename{JTLout\_nil}}{} +}} + + +\newcommand{\ottdruleJTLoutXXalloc}[1]{\ottdrule[#1]{% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{v} \, : \, \ottnt{t}}% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottkw{ref} \, \ottnt{v} \, = \, \ottmv{location} \, \;\vartriangleright\;\ottmaybebreakline \, ( \, \ottmv{location} \, : \, \ottnt{t} \, )}{ +{\ottdrulename{JTLout\_alloc}}{} +}} + + +\newcommand{\ottdruleJTLoutXXderef}[1]{\ottdrule[#1]{% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, ! \, \ottmv{location} \, = \, \ottnt{v} \, \;\vartriangleright\;\ottmaybebreakline \, \,}{ +{\ottdrulename{JTLout\_deref}}{} +}} + + +\newcommand{\ottdruleJTLoutXXassign}[1]{\ottdrule[#1]{% +\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{v} \, : \, \ottnt{t}}% +\ottpremise{\ottnt{E} \, \vdash \, \ottmv{location} \, \;\vartriangleright\;\ottmaybebreakline \, ( \, \ottmv{location} \, : \, \ottnt{t} \, )}% +}{ +\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottmv{location} \, \ottkw{:=} \, \ottnt{v} \, \;\vartriangleright\;\ottmaybebreakline \, \,}{ +{\ottdrulename{JTLout\_assign}}{} +}} + +\newcommand{\ottdefnJTLout}[1]{\begin{ottdefnblock}[#1]{$\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{L} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E'}$}{\ottcom{Label-to-environment extraction}} +\ottusedrule{\ottdruleJTLoutXXnil{}} +\ottusedrule{\ottdruleJTLoutXXalloc{}} +\ottusedrule{\ottdruleJTLoutXXderef{}} +\ottusedrule{\ottdruleJTLoutXXassign{}} + +\end{ottdefnblock}} + + +\newcommand{\ottdefnsJTLout}{ +\ottdefnJTLout{}} + + +% defns JmatchP +% defn matchP +\newcommand{\ottdruleJMXXmatchPXXvar}[1]{\ottdrule[#1]{% +}{ +\vdash \, \ottnt{v} \, \ottkw{matches} \, \ottnt{x}}{ +{\ottdrulename{JM\_matchP\_var}}{} +}} + + +\newcommand{\ottdruleJMXXmatchPXXany}[1]{\ottdrule[#1]{% +}{ +\vdash \, \ottnt{v} \, \ottkw{matches} \, \ottkw{\_}}{ +{\ottdrulename{JM\_matchP\_any}}{} +}} + + +\newcommand{\ottdruleJMXXmatchPXXconstant}[1]{\ottdrule[#1]{% +}{ +\vdash \, \ottnt{constant} \, \ottkw{matches} \, \ottnt{constant}}{ +{\ottdrulename{JM\_matchP\_constant}}{} +}} + + +\newcommand{\ottdruleJMXXmatchPXXalias}[1]{\ottdrule[#1]{% +\ottpremise{\vdash \, \ottnt{v} \, \ottkw{matches} \, \ottnt{pat}}% +}{ +\vdash \, \ottnt{v} \, \ottkw{matches} \, \ottnt{pat} \, \ottkw{as} \, \ottnt{x}}{ +{\ottdrulename{JM\_matchP\_alias}}{} +}} + + +\newcommand{\ottdruleJMXXmatchPXXtyped}[1]{\ottdrule[#1]{% +\ottpremise{\vdash \, \ottnt{v} \, \ottkw{matches} \, \ottnt{pat}}% +}{ +\vdash \, \ottnt{v} \, \ottkw{matches} \, ( \, \ottnt{pat} \, : \, \ottnt{t} \, )}{ +{\ottdrulename{JM\_matchP\_typed}}{} +}} + + +\newcommand{\ottdruleJMXXmatchPXXorXXleft}[1]{\ottdrule[#1]{% +\ottpremise{\vdash \, \ottnt{v} \, \ottkw{matches} \, \ottnt{pat_{{\mathrm{1}}}}}% +}{ +\vdash \, \ottnt{v} \, \ottkw{matches} \, \ottnt{pat_{{\mathrm{1}}}} \, \ottkw{\mbox{$\mid$}} \, \ottnt{pat_{{\mathrm{2}}}}}{ +{\ottdrulename{JM\_matchP\_or\_left}}{} +}} + + +\newcommand{\ottdruleJMXXmatchPXXorXXright}[1]{\ottdrule[#1]{% +\ottpremise{\vdash \, \ottnt{v} \, \ottkw{matches} \, \ottnt{pat_{{\mathrm{2}}}}}% +}{ +\vdash \, \ottnt{v} \, \ottkw{matches} \, \ottnt{pat_{{\mathrm{1}}}} \, \ottkw{\mbox{$\mid$}} \, \ottnt{pat_{{\mathrm{2}}}}}{ +{\ottdrulename{JM\_matchP\_or\_right}}{} +}} + + +\newcommand{\ottdruleJMXXmatchPXXconstruct}[1]{\ottdrule[#1]{% +\ottpremise{\vdash \, \ottnt{v_{{\mathrm{1}}}} \, \ottkw{matches} \, \ottnt{pat_{{\mathrm{1}}}} \quad ... \quad \vdash \, \ottnt{v_{\ottmv{n}}} \, \ottkw{matches} \, \ottnt{pat_{\ottmv{n}}}}% +}{ +\vdash \, \ottnt{constr} \, ( \, \ottnt{v_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{v_{\ottmv{n}}} \, ) \, \ottkw{matches} \, \ottnt{constr} \, ( \, \ottnt{pat_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{pat_{\ottmv{n}}} \, )}{ +{\ottdrulename{JM\_matchP\_construct}}{} +}} + + +\newcommand{\ottdruleJMXXmatchPXXconstructXXany}[1]{\ottdrule[#1]{% +}{ +\vdash \, \ottnt{constr} \, ( \, \ottnt{v_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{v_{\ottmv{n}}} \, ) \, \ottkw{matches} \, \ottnt{constr} \, \ottkw{\_}}{ +{\ottdrulename{JM\_matchP\_construct\_any}}{} +}} + + +\newcommand{\ottdruleJMXXmatchPXXtuple}[1]{\ottdrule[#1]{% +\ottpremise{\vdash \, \ottnt{v_{{\mathrm{1}}}} \, \ottkw{matches} \, \ottnt{pat_{{\mathrm{1}}}} \quad .... \quad \vdash \, \ottnt{v_{\ottmv{n}}} \, \ottkw{matches} \, \ottnt{pat_{\ottmv{n}}}}% +}{ +\vdash \, ( \, \ottnt{v_{{\mathrm{1}}}} \, , \, .... \, , \, \ottnt{v_{\ottmv{n}}} \, ) \, \ottkw{matches} \, ( \, \ottnt{pat_{{\mathrm{1}}}} \, , \, .... \, , \, \ottnt{pat_{\ottmv{n}}} \, )}{ +{\ottdrulename{JM\_matchP\_tuple}}{} +}} + + +\newcommand{\ottdruleJMXXmatchPXXrecord}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{field\_name'_{{\mathrm{1}}}} \, = \, \ottnt{v'_{{\mathrm{1}}}} \, ... \, \ottnt{field\_name'_{\ottmv{n}}} \, = \, \ottnt{v'_{\ottmv{n}}} \, \ottnt{fn_{{\mathrm{1}}}} \, = \, \ottnt{v''_{{\mathrm{1}}}} \, .. \, \ottnt{fn_{\ottmv{l}}} \, = \, \ottnt{v''_{\ottmv{l}}} \, \ottkw{PERMUTES} \, \ottnt{field\_name_{{\mathrm{1}}}} \, = \, \ottnt{v_{{\mathrm{1}}}} \, ... \, \ottnt{field\_name_{\ottmv{m}}} \, = \, \ottnt{v_{\ottmv{m}}}}% +\ottpremise{\vdash \, \ottnt{v'_{{\mathrm{1}}}} \, \ottkw{matches} \, \ottnt{pat_{{\mathrm{1}}}} \quad ... \quad \vdash \, \ottnt{v'_{\ottmv{n}}} \, \ottkw{matches} \, \ottnt{pat_{\ottmv{n}}}}% +\ottpremise{\ottnt{field\_name_{{\mathrm{1}}}} \, ... \, \ottnt{field\_name_{\ottmv{m}}} \, \ottkw{distinct}}% +}{ +\vdash \, \ottkw{\{} \, \ottnt{field\_name_{{\mathrm{1}}}} \, = \, \ottnt{v_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{field\_name_{\ottmv{m}}} \, = \, \ottnt{v_{\ottmv{m}}} \, \ottkw{\}} \, \ottkw{matches} \, \ottkw{\{} \, \ottnt{field\_name'_{{\mathrm{1}}}} \, = \, \ottnt{pat_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{field\_name'_{\ottmv{n}}} \, = \, \ottnt{pat_{\ottmv{n}}} \, \ottkw{\}}}{ +{\ottdrulename{JM\_matchP\_record}}{} +}} + + +\newcommand{\ottdruleJMXXmatchPXXcons}[1]{\ottdrule[#1]{% +\ottpremise{\vdash \, \ottnt{v_{{\mathrm{1}}}} \, \ottkw{matches} \, \ottnt{pat_{{\mathrm{1}}}}}% +\ottpremise{\vdash \, \ottnt{v_{{\mathrm{2}}}} \, \ottkw{matches} \, \ottnt{pat_{{\mathrm{2}}}}}% +}{ +\vdash \, \ottnt{v_{{\mathrm{1}}}} \, \ottkw{::} \, \ottnt{v_{{\mathrm{2}}}} \, \ottkw{matches} \, \ottnt{pat_{{\mathrm{1}}}} \, \ottkw{::} \, \ottnt{pat_{{\mathrm{2}}}}}{ +{\ottdrulename{JM\_matchP\_cons}}{} +}} + +\newcommand{\ottdefnJMXXmatchP}[1]{\begin{ottdefnblock}[#1]{$\vdash \, \ottnt{expr} \, \ottkw{matches} \, \ottnt{pattern}$}{\ottcom{Pattern matching}} +\ottusedrule{\ottdruleJMXXmatchPXXvar{}} +\ottusedrule{\ottdruleJMXXmatchPXXany{}} +\ottusedrule{\ottdruleJMXXmatchPXXconstant{}} +\ottusedrule{\ottdruleJMXXmatchPXXalias{}} +\ottusedrule{\ottdruleJMXXmatchPXXtyped{}} +\ottusedrule{\ottdruleJMXXmatchPXXorXXleft{}} +\ottusedrule{\ottdruleJMXXmatchPXXorXXright{}} +\ottusedrule{\ottdruleJMXXmatchPXXconstruct{}} +\ottusedrule{\ottdruleJMXXmatchPXXconstructXXany{}} +\ottusedrule{\ottdruleJMXXmatchPXXtuple{}} +\ottusedrule{\ottdruleJMXXmatchPXXrecord{}} +\ottusedrule{\ottdruleJMXXmatchPXXcons{}} +\end{ottdefnblock}} + + +\newcommand{\ottdefnsJmatchP}{ +\ottdefnJMXXmatchP{}} + + +% defns Jmatch +% defn match +\newcommand{\ottdruleJMXXmatchXXvar}[1]{\ottdrule[#1]{% +}{ +\vdash \, \ottnt{v} \, \ottkw{matches} \, \ottnt{x} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{x} \, \!\!\leftarrow\!\! \, \ottnt{v} \, \}\!\!\}}{ +{\ottdrulename{JM\_match\_var}}{} +}} + + +\newcommand{\ottdruleJMXXmatchXXany}[1]{\ottdrule[#1]{% +}{ +\vdash \, \ottnt{v} \, \ottkw{matches} \, \ottkw{\_} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \, \, \}\!\!\}}{ +{\ottdrulename{JM\_match\_any}}{} +}} + + +\newcommand{\ottdruleJMXXmatchXXconstant}[1]{\ottdrule[#1]{% +}{ +\vdash \, \ottnt{constant} \, \ottkw{matches} \, \ottnt{constant} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \, \, \}\!\!\}}{ +{\ottdrulename{JM\_match\_constant}}{} +}} + + +\newcommand{\ottdruleJMXXmatchXXalias}[1]{\ottdrule[#1]{% +\ottpremise{\vdash \, \ottnt{v} \, \ottkw{matches} \, \ottnt{pat} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{x_{{\mathrm{1}}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{x_{\ottmv{n}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{\ottmv{n}}} \, \}\!\!\}}% +}{ +\vdash \, \ottnt{v} \, \ottkw{matches} \, \ottnt{pat} \, \ottkw{as} \, \ottnt{x} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{x_{{\mathrm{1}}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{x_{\ottmv{n}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{\ottmv{n}}} \, , \, \ottnt{x} \, \!\!\leftarrow\!\! \, \ottnt{v} \, \}\!\!\}}{ +{\ottdrulename{JM\_match\_alias}}{} +}} + + +\newcommand{\ottdruleJMXXmatchXXtyped}[1]{\ottdrule[#1]{% +\ottpremise{\vdash \, \ottnt{v} \, \ottkw{matches} \, \ottnt{pat} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{x_{{\mathrm{1}}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{x_{\ottmv{n}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{\ottmv{n}}} \, \}\!\!\}}% +}{ +\vdash \, \ottnt{v} \, \ottkw{matches} \, ( \, \ottnt{pat} \, : \, \ottnt{t} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{x_{{\mathrm{1}}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{x_{\ottmv{n}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{\ottmv{n}}} \, \}\!\!\}}{ +{\ottdrulename{JM\_match\_typed}}{} +}} + + +\newcommand{\ottdruleJMXXmatchXXorXXleft}[1]{\ottdrule[#1]{% +\ottpremise{\vdash \, \ottnt{v} \, \ottkw{matches} \, \ottnt{pat_{{\mathrm{1}}}} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{x_{{\mathrm{1}}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{x_{\ottmv{n}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{\ottmv{n}}} \, \}\!\!\}}% +}{ +\vdash \, \ottnt{v} \, \ottkw{matches} \, \ottnt{pat_{{\mathrm{1}}}} \, \ottkw{\mbox{$\mid$}} \, \ottnt{pat_{{\mathrm{2}}}} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{x_{{\mathrm{1}}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{x_{\ottmv{n}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{\ottmv{n}}} \, \}\!\!\}}{ +{\ottdrulename{JM\_match\_or\_left}}{} +}} + + +\newcommand{\ottdruleJMXXmatchXXorXXright}[1]{\ottdrule[#1]{% +\ottpremise{ \neg( \ottnt{v} ~\ottkw{matches}~ \ottnt{pat_{{\mathrm{1}}}} ) }% +\ottpremise{\vdash \, \ottnt{v} \, \ottkw{matches} \, \ottnt{pat_{{\mathrm{2}}}} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{x_{{\mathrm{1}}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{x_{\ottmv{n}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{\ottmv{n}}} \, \}\!\!\}}% +}{ +\vdash \, \ottnt{v} \, \ottkw{matches} \, \ottnt{pat_{{\mathrm{1}}}} \, \ottkw{\mbox{$\mid$}} \, \ottnt{pat_{{\mathrm{2}}}} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{x_{{\mathrm{1}}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{x_{\ottmv{n}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{\ottmv{n}}} \, \}\!\!\}}{ +{\ottdrulename{JM\_match\_or\_right}}{} +}} + + +\newcommand{\ottdruleJMXXmatchXXconstruct}[1]{\ottdrule[#1]{% +\ottpremise{\vdash \, \ottnt{v_{{\mathrm{1}}}} \, \ottkw{matches} \, \ottnt{pat_{{\mathrm{1}}}} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{substs\_x_{{\mathrm{1}}}} \, \}\!\!\} \quad ... \quad \vdash \, \ottnt{v_{\ottmv{n}}} \, \ottkw{matches} \, \ottnt{pat_{\ottmv{n}}} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{substs\_x_{\ottmv{n}}} \, \}\!\!\}}% +}{ +\vdash \, \ottnt{constr} \, ( \, \ottnt{v_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{v_{\ottmv{n}}} \, ) \, \ottkw{matches} \, \ottnt{constr} \, ( \, \ottnt{pat_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{pat_{\ottmv{n}}} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{substs\_x_{{\mathrm{1}}}} \, @ \, ... \, @ \, \ottnt{substs\_x_{\ottmv{n}}} \, \}\!\!\}}{ +{\ottdrulename{JM\_match\_construct}}{} +}} + + +\newcommand{\ottdruleJMXXmatchXXconstructXXany}[1]{\ottdrule[#1]{% +}{ +\vdash \, \ottnt{constr} \, ( \, \ottnt{v_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{v_{\ottmv{n}}} \, ) \, \ottkw{matches} \, \ottnt{constr} \, \ottkw{\_} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \, \, \}\!\!\}}{ +{\ottdrulename{JM\_match\_construct\_any}}{} +}} + + +\newcommand{\ottdruleJMXXmatchXXtuple}[1]{\ottdrule[#1]{% +\ottpremise{\vdash \, \ottnt{v_{{\mathrm{1}}}} \, \ottkw{matches} \, \ottnt{pat_{{\mathrm{1}}}} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{substs\_x_{{\mathrm{1}}}} \, \}\!\!\} \quad .... \quad \vdash \, \ottnt{v_{\ottmv{n}}} \, \ottkw{matches} \, \ottnt{pat_{\ottmv{n}}} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{substs\_x_{\ottmv{n}}} \, \}\!\!\}}% +}{ +\vdash \, ( \, \ottnt{v_{{\mathrm{1}}}} \, , \, .... \, , \, \ottnt{v_{\ottmv{n}}} \, ) \, \ottkw{matches} \, ( \, \ottnt{pat_{{\mathrm{1}}}} \, , \, .... \, , \, \ottnt{pat_{\ottmv{n}}} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{substs\_x_{{\mathrm{1}}}} \, @ \, .... \, @ \, \ottnt{substs\_x_{\ottmv{n}}} \, \}\!\!\}}{ +{\ottdrulename{JM\_match\_tuple}}{} +}} + + +\newcommand{\ottdruleJMXXmatchXXrecord}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{field\_name'_{{\mathrm{1}}}} \, = \, \ottnt{v'_{{\mathrm{1}}}} \, ... \, \ottnt{field\_name'_{\ottmv{n}}} \, = \, \ottnt{v'_{\ottmv{n}}} \, \ottnt{fn_{{\mathrm{1}}}} \, = \, \ottnt{v''_{{\mathrm{1}}}} \, .. \, \ottnt{fn_{\ottmv{l}}} \, = \, \ottnt{v''_{\ottmv{l}}} \, \ottkw{PERMUTES} \, \ottnt{field\_name_{{\mathrm{1}}}} \, = \, \ottnt{v_{{\mathrm{1}}}} \, ... \, \ottnt{field\_name_{\ottmv{m}}} \, = \, \ottnt{v_{\ottmv{m}}}}% +\ottpremise{\vdash \, \ottnt{v'_{{\mathrm{1}}}} \, \ottkw{matches} \, \ottnt{pat_{{\mathrm{1}}}} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{substs\_x_{{\mathrm{1}}}} \, \}\!\!\} \quad ... \quad \vdash \, \ottnt{v'_{\ottmv{n}}} \, \ottkw{matches} \, \ottnt{pat_{\ottmv{n}}} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{substs\_x_{\ottmv{n}}} \, \}\!\!\}}% +\ottpremise{\ottnt{field\_name_{{\mathrm{1}}}} \, ... \, \ottnt{field\_name_{\ottmv{m}}} \, \ottkw{distinct}}% +}{ +\vdash \, \ottkw{\{} \, \ottnt{field\_name_{{\mathrm{1}}}} \, = \, \ottnt{v_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{field\_name_{\ottmv{m}}} \, = \, \ottnt{v_{\ottmv{m}}} \, \ottkw{\}} \, \ottkw{matches} \, \ottkw{\{} \, \ottnt{field\_name'_{{\mathrm{1}}}} \, = \, \ottnt{pat_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{field\_name'_{\ottmv{n}}} \, = \, \ottnt{pat_{\ottmv{n}}} \, \ottkw{\}} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{substs\_x_{{\mathrm{1}}}} \, @ \, ... \, @ \, \ottnt{substs\_x_{\ottmv{n}}} \, \}\!\!\}}{ +{\ottdrulename{JM\_match\_record}}{} +}} + + +\newcommand{\ottdruleJMXXmatchXXcons}[1]{\ottdrule[#1]{% +\ottpremise{\vdash \, \ottnt{v_{{\mathrm{1}}}} \, \ottkw{matches} \, \ottnt{pat_{{\mathrm{1}}}} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{substs\_x_{{\mathrm{1}}}} \, \}\!\!\}}% +\ottpremise{\vdash \, \ottnt{v_{{\mathrm{2}}}} \, \ottkw{matches} \, \ottnt{pat_{{\mathrm{2}}}} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{substs\_x_{{\mathrm{2}}}} \, \}\!\!\}}% +}{ +\vdash \, \ottnt{v_{{\mathrm{1}}}} \, \ottkw{::} \, \ottnt{v_{{\mathrm{2}}}} \, \ottkw{matches} \, \ottnt{pat_{{\mathrm{1}}}} \, \ottkw{::} \, \ottnt{pat_{{\mathrm{2}}}} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{substs\_x_{{\mathrm{1}}}} \, @ \, \ottnt{substs\_x_{{\mathrm{2}}}} \, \}\!\!\}}{ +{\ottdrulename{JM\_match\_cons}}{} +}} + +\newcommand{\ottdefnJMXXmatch}[1]{\begin{ottdefnblock}[#1]{$\vdash \, \ottnt{expr} \, \ottkw{matches} \, \ottnt{pattern} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{substs\_x} \, \}\!\!\}$}{\ottcom{Pattern matching with substitution creation}} +\ottusedrule{\ottdruleJMXXmatchXXvar{}} +\ottusedrule{\ottdruleJMXXmatchXXany{}} +\ottusedrule{\ottdruleJMXXmatchXXconstant{}} +\ottusedrule{\ottdruleJMXXmatchXXalias{}} +\ottusedrule{\ottdruleJMXXmatchXXtyped{}} +\ottusedrule{\ottdruleJMXXmatchXXorXXleft{}} +\ottusedruleC{\ottdruleJMXXmatchXXorXXright{}} +\ottusedrule{\ottdruleJMXXmatchXXconstruct{}} +\ottusedrule{\ottdruleJMXXmatchXXconstructXXany{}} +\ottusedrule{\ottdruleJMXXmatchXXtuple{}} +\ottusedruleC{\ottdruleJMXXmatchXXrecord{}} +\ottusedrule{\ottdruleJMXXmatchXXcons{}} +\end{ottdefnblock}} + + +\newcommand{\ottdefnsJmatch}{ +\ottdefnJMXXmatch{}} + + +% defns Jrecfun +% defn recfun +\newcommand{\ottdruleJrecfunXXletrec}[1]{\ottdrule[#1]{% +\ottpremise{ \ottnt{letrec\_bindings} = ( \ottnt{x_{{\mathrm{1}}}} \, = \, \ottkw{function} \, \ottnt{pattern\_matching_{{\mathrm{1}}}} \, \ottkw{and} \, ... \, \ottkw{and} \, \ottnt{x_{\ottmv{n}}} \, = \, \ottkw{function} \, \ottnt{pattern\_matching_{\ottmv{n}}} ) }% +}{ +\ottkw{recfun} \, ( \, \ottnt{letrec\_bindings} \, , \, \ottnt{pattern\_matching} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{x_{{\mathrm{1}}}} \, \!\!\leftarrow\!\! \, \ottkw{let} \, \ottkw{rec} \, \ottnt{letrec\_bindings} \, \ottkw{in} \, \ottnt{x_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{x_{\ottmv{n}}} \, \!\!\leftarrow\!\! \, \ottkw{let} \, \ottkw{rec} \, \ottnt{letrec\_bindings} \, \ottkw{in} \, \ottnt{x_{\ottmv{n}}} \, \}\!\!\} \, ( \, \ottkw{function} \, \ottnt{pattern\_matching} \, )}{ +{\ottdrulename{Jrecfun\_letrec}}{} +}} + +\newcommand{\ottdefnJrecfun}[1]{\begin{ottdefnblock}[#1]{$\ottkw{recfun} \, ( \, \ottnt{letrec\_bindings} \, , \, \ottnt{pattern\_matching} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{expr}$}{\ottcom{Recursive function helper}} +\ottusedrule{\ottdruleJrecfunXXletrec{}} +\end{ottdefnblock}} + + +\newcommand{\ottdefnsJrecfun}{ +\ottdefnJrecfun{}} + + +% defns Jfunval +% defn funval +\newcommand{\ottdruleJfunvalXXup}[1]{\ottdrule[#1]{% +}{ +\vdash \, \ottkw{funval} \, ( \, ( \, \ottkw{\%prim} \, \ottnt{unary\_prim} \, ) \, )}{ +{\ottdrulename{Jfunval\_up}}{} +}} + + +\newcommand{\ottdruleJfunvalXXbp}[1]{\ottdrule[#1]{% +}{ +\vdash \, \ottkw{funval} \, ( \, ( \, \ottkw{\%prim} \, \ottnt{binary\_prim} \, ) \, )}{ +{\ottdrulename{Jfunval\_bp}}{} +}} + + +\newcommand{\ottdruleJfunvalXXbpXXapp}[1]{\ottdrule[#1]{% +}{ +\vdash \, \ottkw{funval} \, ( \, ( \, \ottkw{\%prim} \, \ottnt{binary\_prim} \, ) \, \ottnt{v} \, )}{ +{\ottdrulename{Jfunval\_bp\_app}}{} +}} + + +\newcommand{\ottdruleJfunvalXXfunc}[1]{\ottdrule[#1]{% +}{ +\vdash \, \ottkw{funval} \, ( \, \ottkw{function} \, \ottnt{pattern\_matching} \, )}{ +{\ottdrulename{Jfunval\_func}}{} +}} + +\newcommand{\ottdefnJfunval}[1]{\begin{ottdefnblock}[#1]{$\vdash \, \ottkw{funval} \, ( \, \ottnt{e} \, )$}{\ottcom{Function values}} +\ottusedrule{\ottdruleJfunvalXXup{}} +\ottusedrule{\ottdruleJfunvalXXbp{}} +\ottusedrule{\ottdruleJfunvalXXbpXXapp{}} +\ottusedrule{\ottdruleJfunvalXXfunc{}} +\end{ottdefnblock}} + + +\newcommand{\ottdefnsJfunval}{ +\ottdefnJfunval{}} + + +% defns JRuprim +% defn Ruprim +\newcommand{\ottdruleJuprimXXnotXXtrue}[1]{\ottdrule[#1]{% +}{ +\vdash \, \ottkw{not} \, \ottkw{true} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottkw{false}}{ +{\ottdrulename{Juprim\_not\_true}}{} +}} + + +\newcommand{\ottdruleJuprimXXnotXXfalse}[1]{\ottdrule[#1]{% +}{ +\vdash \, \ottkw{not} \, \ottkw{false} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottkw{true}}{ +{\ottdrulename{Juprim\_not\_false}}{} +}} + + +\newcommand{\ottdruleJuprimXXuminus}[1]{\ottdrule[#1]{% +}{ +\vdash \, \mathrel{\sim\!\!-} \, \dot{n} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, 0 \stackrel\centerdot- \dot{n} }{ +{\ottdrulename{Juprim\_uminus}}{} +}} + + +\newcommand{\ottdruleJuprimXXrefXXalloc}[1]{\ottdrule[#1]{% +}{ +\vdash \, \ottkw{ref} \, \ottnt{v} \, \stackrel{ \ottkw{ref} \, \ottnt{v} \, = \, \ottmv{l} }{\longrightarrow}\ottmaybebreakline \, \ottmv{l}}{ +{\ottdrulename{Juprim\_ref\_alloc}}{} +}} + + +\newcommand{\ottdruleJuprimXXderef}[1]{\ottdrule[#1]{% +}{ +\vdash \, ! \, \ottmv{l} \, \stackrel{ ! \, \ottmv{l} \, = \, \ottnt{v} }{\longrightarrow}\ottmaybebreakline \, \ottnt{v}}{ +{\ottdrulename{Juprim\_deref}}{} +}} + +\newcommand{\ottdefnJRuprim}[1]{\begin{ottdefnblock}[#1]{$\vdash \, \ottnt{unary\_prim} \, \ottnt{expr} \, \stackrel{\ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{expr'}$}{\ottcom{Unary primitive evaluation}} +\ottusedrule{\ottdruleJuprimXXnotXXtrue{}} +\ottusedrule{\ottdruleJuprimXXnotXXfalse{}} +\ottusedrule{\ottdruleJuprimXXuminus{}} +\ottusedruleC{\ottdruleJuprimXXrefXXalloc{}} +\ottusedrule{\ottdruleJuprimXXderef{}} +\end{ottdefnblock}} + + +\newcommand{\ottdefnsJRuprim}{ +\ottdefnJRuprim{}} + + +% defns JRbprim +% defn Rbprim +\newcommand{\ottdruleJbprimXXequalXXfun}[1]{\ottdrule[#1]{% +\ottpremise{\vdash \, \ottkw{funval} \, ( \, \ottnt{v} \, )}% +}{ +\vdash \, \ottnt{v} \, = \, \ottnt{v'} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, ( \, \ottkw{Invalid\_argument} \, ( \, \ottkw{equal\_error\_string} \, ) \, )}{ +{\ottdrulename{Jbprim\_equal\_fun}}{} +}} + + +\newcommand{\ottdruleJbprimXXequalXXconstXXtrue}[1]{\ottdrule[#1]{% +}{ +\vdash \, \ottnt{constant} \, = \, \ottnt{constant} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottkw{true}}{ +{\ottdrulename{Jbprim\_equal\_const\_true}}{} +}} + + +\newcommand{\ottdruleJbprimXXequalXXconstXXfalse}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{constant} \, \not = \, \ottnt{constant'}}% +}{ +\vdash \, \ottnt{constant} \, = \, \ottnt{constant'} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottkw{false}}{ +{\ottdrulename{Jbprim\_equal\_const\_false}}{} +}} + + +\newcommand{\ottdruleJbprimXXequalXXloc}[1]{\ottdrule[#1]{% +}{ +\vdash \, \ottmv{l} \, = \, \ottmv{l'} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, ( \, \ottkw{\%prim} \, = \, ) \, ( \, ( \, \ottkw{\%prim} \, ! \, ) \, \ottmv{l} \, ) \, ) \, ( \, ( \, \ottkw{\%prim} \, ! \, ) \, \ottmv{l'} \, )}{ +{\ottdrulename{Jbprim\_equal\_loc}}{} +}} + + +\newcommand{\ottdruleJbprimXXequalXXcons}[1]{\ottdrule[#1]{% +}{ +\vdash \, ( \, \ottnt{v_{{\mathrm{1}}}} \, \ottkw{::} \, \ottnt{v_{{\mathrm{2}}}} \, ) \, = \, ( \, \ottnt{v'_{{\mathrm{1}}}} \, \ottkw{::} \, \ottnt{v'_{{\mathrm{2}}}} \, ) \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, ( \, ( \, \ottkw{\%prim} \, = \, ) \, \ottnt{v_{{\mathrm{1}}}} \, ) \, \ottnt{v'_{{\mathrm{1}}}} \, ) \, \ottkw{\&\&} \, ( \, ( \, ( \, \ottkw{\%prim} \, = \, ) \, \ottnt{v_{{\mathrm{2}}}} \, ) \, \ottnt{v'_{{\mathrm{2}}}} \, )}{ +{\ottdrulename{Jbprim\_equal\_cons}}{} +}} + + +\newcommand{\ottdruleJbprimXXequalXXconsXXnil}[1]{\ottdrule[#1]{% +}{ +\vdash \, ( \, \ottnt{v_{{\mathrm{1}}}} \, \ottkw{::} \, \ottnt{v_{{\mathrm{2}}}} \, ) \, = \, \ottkw{[]} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottkw{false}}{ +{\ottdrulename{Jbprim\_equal\_cons\_nil}}{} +}} + + +\newcommand{\ottdruleJbprimXXequalXXnilXXcons}[1]{\ottdrule[#1]{% +}{ +\vdash \, \ottkw{[]} \, = \, ( \, \ottnt{v_{{\mathrm{1}}}} \, \ottkw{::} \, \ottnt{v_{{\mathrm{2}}}} \, ) \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottkw{false}}{ +{\ottdrulename{Jbprim\_equal\_nil\_cons}}{} +}} + + +\newcommand{\ottdruleJbprimXXequalXXtuple}[1]{\ottdrule[#1]{% +\ottpremise{\ottkw{length} \, ( \, \ottnt{v_{{\mathrm{1}}}} \, ) \, .... \, ( \, \ottnt{v_{\ottmv{n}}} \, ) \, \geq \, 2}% +}{ +\vdash \, ( \, \ottnt{v_{{\mathrm{1}}}} \, , \, .... \, , \, \ottnt{v_{\ottmv{n}}} \, ) \, = \, ( \, \ottnt{v'_{{\mathrm{1}}}} \, , \, .... \, , \, \ottnt{v'_{\ottmv{n}}} \, ) \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottkw{AND} \, ( \, ( \, ( \, \ottkw{\%prim} \, = \, ) \, \ottnt{v_{{\mathrm{1}}}} \, ) \, \ottnt{v'_{{\mathrm{1}}}} \, \ottkw{\&\&} \, .... \, \ottkw{\&\&} \, ( \, ( \, \ottkw{\%prim} \, = \, ) \, \ottnt{v_{\ottmv{n}}} \, ) \, \ottnt{v'_{\ottmv{n}}} \, )}{ +{\ottdrulename{Jbprim\_equal\_tuple}}{} +}} + + +\newcommand{\ottdruleJbprimXXequalXXconstr}[1]{\ottdrule[#1]{% +}{ +\vdash \, ( \, \ottnt{constr} \, ( \, \ottnt{v_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{v_{\ottmv{n}}} \, ) \, ) \, = \, ( \, \ottnt{constr} \, ( \, \ottnt{v'_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{v'_{\ottmv{n}}} \, ) \, ) \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottkw{AND} \, ( \, ( \, ( \, \ottkw{\%prim} \, = \, ) \, \ottnt{v_{{\mathrm{1}}}} \, ) \, \ottnt{v'_{{\mathrm{1}}}} \, \ottkw{\&\&} \, ... \, \ottkw{\&\&} \, ( \, ( \, \ottkw{\%prim} \, = \, ) \, \ottnt{v_{\ottmv{n}}} \, ) \, \ottnt{v'_{\ottmv{n}}} \, )}{ +{\ottdrulename{Jbprim\_equal\_constr}}{} +}} + + +\newcommand{\ottdruleJbprimXXequalXXconstrXXfalse}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{constr} \, \not = \, \ottnt{constr'}}% +}{ +\vdash \, \ottnt{constr} \, ( \, \ottnt{v_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{v_{\ottmv{m}}} \, ) \, = \, \ottnt{constr'} \, ( \, \ottnt{v'_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{v'_{\ottmv{n}}} \, ) \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottkw{false}}{ +{\ottdrulename{Jbprim\_equal\_constr\_false}}{} +}} + + +\newcommand{\ottdruleJbprimXXequalXXconstXXconstrXXfalse}[1]{\ottdrule[#1]{% +}{ +\vdash \, \ottnt{constr'} \, = \, \ottnt{constr} \, ( \, \ottnt{v_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{v_{\ottmv{n}}} \, ) \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottkw{false}}{ +{\ottdrulename{Jbprim\_equal\_const\_constr\_false}}{} +}} + + +\newcommand{\ottdruleJbprimXXequalXXconstrXXconstXXfalse}[1]{\ottdrule[#1]{% +}{ +\vdash \, \ottnt{constr} \, ( \, \ottnt{v_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{v_{\ottmv{n}}} \, ) \, = \, \ottnt{constr'} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottkw{false}}{ +{\ottdrulename{Jbprim\_equal\_constr\_const\_false}}{} +}} + + +\newcommand{\ottdruleJbprimXXequalXXrec}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{v'} \, = \, \ottkw{\{} \, \ottnt{fn''_{{\mathrm{1}}}} \, = \, \ottnt{v''_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn''_{\ottmv{m}}} \, = \, \ottnt{v''_{\ottmv{m}}} \, \ottkw{\}}}% +\ottpremise{\ottnt{fn_{{\mathrm{1}}}} \, ... \, \ottnt{fn_{\ottmv{n}}} \, \ottkw{PERMUTES} \, \ottnt{fn''_{{\mathrm{1}}}} \, ... \, \ottnt{fn''_{\ottmv{m}}}}% +}{ +\vdash \, \ottkw{\{} \, \ottnt{fn_{{\mathrm{1}}}} \, = \, \ottnt{v_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn_{\ottmv{n}}} \, = \, \ottnt{v_{\ottmv{n}}} \, \ottkw{\}} \, = \, \ottnt{v'} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottkw{AND} \, ( \, ( \, ( \, \ottkw{\%prim} \, = \, ) \, \ottnt{v_{{\mathrm{1}}}} \, ) \, ( \, \ottnt{v'} \, . \, \ottnt{fn_{{\mathrm{1}}}} \, ) \, \ottkw{\&\&} \, ... \, \ottkw{\&\&} \, ( \, ( \, \ottkw{\%prim} \, = \, ) \, \ottnt{v_{\ottmv{n}}} \, ) \, ( \, \ottnt{v'} \, . \, \ottnt{fn_{\ottmv{n}}} \, ) \, )}{ +{\ottdrulename{Jbprim\_equal\_rec}}{} +}} + + +\newcommand{\ottdruleJbprimXXplus}[1]{\ottdrule[#1]{% +}{ +\vdash \, \dot{n}_{{\mathrm{1}}} \, + \, \dot{n}_{{\mathrm{2}}} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \dot{n}_{{\mathrm{1}}} \stackrel\centerdot+ \dot{n}_{{\mathrm{2}}} }{ +{\ottdrulename{Jbprim\_plus}}{} +}} + + +\newcommand{\ottdruleJbprimXXminus}[1]{\ottdrule[#1]{% +}{ +\vdash \, \dot{n}_{{\mathrm{1}}} \, - \, \dot{n}_{{\mathrm{2}}} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \dot{n}_{{\mathrm{1}}} \stackrel\centerdot- \dot{n}_{{\mathrm{2}}} }{ +{\ottdrulename{Jbprim\_minus}}{} +}} + + +\newcommand{\ottdruleJbprimXXtimes}[1]{\ottdrule[#1]{% +}{ +\vdash \, \dot{n}_{{\mathrm{1}}} \, \ast \, \dot{n}_{{\mathrm{2}}} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \dot{n}_{{\mathrm{1}}} \stackrel\centerdot* \dot{n}_{{\mathrm{2}}} }{ +{\ottdrulename{Jbprim\_times}}{} +}} + + +\newcommand{\ottdruleJbprimXXdivZero}[1]{\ottdrule[#1]{% +}{ +\vdash \, \dot{n} \, / \, 0 \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottkw{Division\_by\_zero}}{ +{\ottdrulename{Jbprim\_div0}}{} +}} + + +\newcommand{\ottdruleJbprimXXdiv}[1]{\ottdrule[#1]{% +\ottpremise{\dot{n}_{{\mathrm{2}}} \, \not = \, 0}% +}{ +\vdash \, \dot{n}_{{\mathrm{1}}} \, / \, \dot{n}_{{\mathrm{2}}} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \dot{n}_{{\mathrm{1}}} \stackrel\centerdot/ \dot{n}_{{\mathrm{2}}} }{ +{\ottdrulename{Jbprim\_div}}{} +}} + + +\newcommand{\ottdruleJbprimXXassign}[1]{\ottdrule[#1]{% +}{ +\vdash \, \ottmv{l} \, \ottkw{:=} \, \ottnt{v} \, \stackrel{ \ottmv{l} \, \ottkw{:=} \, \ottnt{v} }{\longrightarrow}\ottmaybebreakline \, \ottkw{()}}{ +{\ottdrulename{Jbprim\_assign}}{} +}} + +\newcommand{\ottdefnJRbprim}[1]{\begin{ottdefnblock}[#1]{$\vdash \, \ottnt{expr_{{\mathrm{1}}}} \, \ottnt{binary\_prim} \, \ottnt{expr_{{\mathrm{2}}}} \, \stackrel{\ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{expr}$}{\ottcom{Binary primitive evaluation}} +\ottusedrule{\ottdruleJbprimXXequalXXfun{}} +\ottusedrule{\ottdruleJbprimXXequalXXconstXXtrue{}} +\ottusedrule{\ottdruleJbprimXXequalXXconstXXfalse{}} +\ottusedruleC{\ottdruleJbprimXXequalXXloc{}} +\ottusedruleC{\ottdruleJbprimXXequalXXcons{}} +\ottusedrule{\ottdruleJbprimXXequalXXconsXXnil{}} +\ottusedrule{\ottdruleJbprimXXequalXXnilXXcons{}} +\ottusedrule{\ottdruleJbprimXXequalXXtuple{}} +\ottusedrule{\ottdruleJbprimXXequalXXconstr{}} +\ottusedrule{\ottdruleJbprimXXequalXXconstrXXfalse{}} +\ottusedrule{\ottdruleJbprimXXequalXXconstXXconstrXXfalse{}} +\ottusedrule{\ottdruleJbprimXXequalXXconstrXXconstXXfalse{}} +\ottusedrule{\ottdruleJbprimXXequalXXrec{}} +\ottusedrule{\ottdruleJbprimXXplus{}} +\ottusedrule{\ottdruleJbprimXXminus{}} +\ottusedrule{\ottdruleJbprimXXtimes{}} +\ottusedrule{\ottdruleJbprimXXdivZero{}} +\ottusedrule{\ottdruleJbprimXXdiv{}} +\ottusedrule{\ottdruleJbprimXXassign{}} +\end{ottdefnblock}} + + +\newcommand{\ottdefnsJRbprim}{ +\ottdefnJRbprim{}} + + +% defns JRmatching_step +% defn matching_step +\newcommand{\ottdruleJRmatchingXXnext}[1]{\ottdrule[#1]{% +\ottpremise{ \neg( \ottnt{v} ~\ottkw{matches}~ \ottnt{pat} ) }% +\ottpremise{\ottkw{length} \, ( \, \ottnt{e_{{\mathrm{1}}}} \, ) \, ... \, ( \, \ottnt{e_{\ottmv{n}}} \, ) \, \geq \, 1}% +}{ +\vdash \, \ottnt{v} \, \ottkw{with} \, \ottnt{pat} \, \rightarrow \, \ottnt{e} \, \ottkw{\mbox{$\mid$}} \, \ottnt{pat_{{\mathrm{1}}}} \, \rightarrow \, \ottnt{e_{{\mathrm{1}}}} \, \ottkw{\mbox{$\mid$}} \, ... \, \ottkw{\mbox{$\mid$}} \, \ottnt{pat_{\ottmv{n}}} \, \rightarrow \, \ottnt{e_{\ottmv{n}}} \, \longrightarrow \, \ottnt{pat_{{\mathrm{1}}}} \, \rightarrow \, \ottnt{e_{{\mathrm{1}}}} \, \ottkw{\mbox{$\mid$}} \, ... \, \ottkw{\mbox{$\mid$}} \, \ottnt{pat_{\ottmv{n}}} \, \rightarrow \, \ottnt{e_{\ottmv{n}}}}{ +{\ottdrulename{JRmatching\_next}}{} +}} + +\newcommand{\ottdefnJRmatchingXXstep}[1]{\begin{ottdefnblock}[#1]{$\vdash \, \ottnt{expr} \, \ottkw{with} \, \ottnt{pattern\_matching} \, \longrightarrow \, \ottnt{pattern\_matching'}$}{\ottcom{Pattern matching step}} +\ottusedrule{\ottdruleJRmatchingXXnext{}} +\end{ottdefnblock}} + + +\newcommand{\ottdefnsJRmatchingXXstep}{ +\ottdefnJRmatchingXXstep{}} + + +% defns JRmatching_success +% defn matching_success +\newcommand{\ottdruleJRmatchingXXfound}[1]{\ottdrule[#1]{% +\ottpremise{\vdash \, \ottnt{v} \, \ottkw{matches} \, \ottnt{pat} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{x_{{\mathrm{1}}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{x_{\ottmv{m}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{\ottmv{m}}} \, \}\!\!\}}% +}{ +\vdash \, \ottnt{v} \, \ottkw{with} \, \ottnt{pat} \, \rightarrow \, \ottnt{e} \, \ottkw{\mbox{$\mid$}} \, \ottnt{pat_{{\mathrm{1}}}} \, \rightarrow \, \ottnt{e_{{\mathrm{1}}}} \, \ottkw{\mbox{$\mid$}} \, ... \, \ottkw{\mbox{$\mid$}} \, \ottnt{pat_{\ottmv{n}}} \, \rightarrow \, \ottnt{e_{\ottmv{n}}} \, \longrightarrow \, \{\!\!\{ \, \ottnt{x_{{\mathrm{1}}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{x_{\ottmv{m}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{\ottmv{m}}} \, \}\!\!\} \, \ottnt{e}}{ +{\ottdrulename{JRmatching\_found}}{} +}} + + +\newcommand{\ottdruleJRmatchingXXfail}[1]{\ottdrule[#1]{% +\ottpremise{ \neg( \ottnt{v} ~\ottkw{matches}~ \ottnt{pat} ) }% +}{ +\vdash \, \ottnt{v} \, \ottkw{with} \, \ottnt{pat} \, \rightarrow \, \ottnt{e} \, \longrightarrow \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottkw{Match\_failure}}{ +{\ottdrulename{JRmatching\_fail}}{} +}} + +\newcommand{\ottdefnJRmatchingXXsuccess}[1]{\begin{ottdefnblock}[#1]{$\vdash \, \ottnt{expr} \, \ottkw{with} \, \ottnt{pattern\_matching} \, \longrightarrow \, \ottnt{expr'}$}{\ottcom{Pattern matching finished}} +\ottusedrule{\ottdruleJRmatchingXXfound{}} +\ottusedrule{\ottdruleJRmatchingXXfail{}} +\end{ottdefnblock}} + + +\newcommand{\ottdefnsJRmatchingXXsuccess}{ +\ottdefnJRmatchingXXsuccess{}} + + +% defns Jred +% defn expr +\newcommand{\ottdruleJRXXexprXXuprim}[1]{\ottdrule[#1]{% +\ottpremise{\vdash \, \ottnt{unary\_prim} \, \ottnt{v} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e}}% +}{ +\vdash \, ( \, \ottkw{\%prim} \, \ottnt{unary\_prim} \, ) \, \ottnt{v} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e}}{ +{\ottdrulename{JR\_expr\_uprim}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXbprim}[1]{\ottdrule[#1]{% +\ottpremise{\vdash \, \ottnt{v_{{\mathrm{1}}}} \, \ottnt{binary\_prim} \, \ottnt{v_{{\mathrm{2}}}} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e}}% +}{ +\vdash \, ( \, ( \, \ottkw{\%prim} \, \ottnt{binary\_prim} \, ) \, \ottnt{v_{{\mathrm{1}}}} \, ) \, \ottnt{v_{{\mathrm{2}}}} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e}}{ +{\ottdrulename{JR\_expr\_bprim}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXtypedXXctx}[1]{\ottdrule[#1]{% +}{ +\vdash \, ( \, \ottnt{e} \, : \, \ottnt{t} \, ) \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottnt{e}}{ +{\ottdrulename{JR\_expr\_typed\_ctx}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXapplyXXctxXXarg}[1]{\ottdrule[#1]{% +\ottpremise{\vdash \, \ottnt{e_{{\mathrm{0}}}} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e'_{{\mathrm{0}}}}}% +}{ +\vdash \, \ottnt{e_{{\mathrm{1}}}} \, \ottnt{e_{{\mathrm{0}}}} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e_{{\mathrm{1}}}} \, \ottnt{e'_{{\mathrm{0}}}}}{ +{\ottdrulename{JR\_expr\_apply\_ctx\_arg}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXapplyXXraiseOne}[1]{\ottdrule[#1]{% +}{ +\vdash \, \ottnt{e} \, ( \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v} \, ) \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v}}{ +{\ottdrulename{JR\_expr\_apply\_raise1}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXapplyXXctxXXfun}[1]{\ottdrule[#1]{% +\ottpremise{\vdash \, \ottnt{e_{{\mathrm{1}}}} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e'_{{\mathrm{1}}}}}% +}{ +\vdash \, \ottnt{e_{{\mathrm{1}}}} \, \ottnt{v_{{\mathrm{0}}}} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e'_{{\mathrm{1}}}} \, \ottnt{v_{{\mathrm{0}}}}}{ +{\ottdrulename{JR\_expr\_apply\_ctx\_fun}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXapplyXXraiseTwo}[1]{\ottdrule[#1]{% +}{ +\vdash \, ( \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v} \, ) \, \ottnt{v'} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v}}{ +{\ottdrulename{JR\_expr\_apply\_raise2}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXapply}[1]{\ottdrule[#1]{% +}{ +\vdash \, ( \, \ottkw{function} \, \ottnt{pattern\_matching} \, \ottnt{v_{{\mathrm{0}}}} \, ) \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottkw{match} \, \ottnt{v_{{\mathrm{0}}}} \, \ottkw{with} \, \ottnt{pattern\_matching}}{ +{\ottdrulename{JR\_expr\_apply}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXletXXctx}[1]{\ottdrule[#1]{% +\ottpremise{\vdash \, \ottnt{e_{{\mathrm{0}}}} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e'_{{\mathrm{0}}}}}% +}{ +\vdash \, \ottkw{let} \, \ottnt{pat} \, = \, \ottnt{e_{{\mathrm{0}}}} \, \ottkw{in} \, \ottnt{e} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottkw{let} \, \ottnt{pat} \, = \, \ottnt{e'_{{\mathrm{0}}}} \, \ottkw{in} \, \ottnt{e}}{ +{\ottdrulename{JR\_expr\_let\_ctx}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXletXXraise}[1]{\ottdrule[#1]{% +}{ +\vdash \, \ottkw{let} \, \ottnt{pat} \, = \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v} \, \ottkw{in} \, \ottnt{e} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v}}{ +{\ottdrulename{JR\_expr\_let\_raise}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXletXXsubst}[1]{\ottdrule[#1]{% +\ottpremise{\vdash \, \ottnt{v} \, \ottkw{matches} \, \ottnt{pat} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{x_{{\mathrm{1}}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{x_{\ottmv{m}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{\ottmv{m}}} \, \}\!\!\}}% +}{ +\vdash \, \ottkw{let} \, \ottnt{pat} \, = \, \ottnt{v} \, \ottkw{in} \, \ottnt{e} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \{\!\!\{ \, \ottnt{x_{{\mathrm{1}}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{x_{\ottmv{m}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{\ottmv{m}}} \, \}\!\!\} \, \ottnt{e}}{ +{\ottdrulename{JR\_expr\_let\_subst}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXletXXfail}[1]{\ottdrule[#1]{% +\ottpremise{ \neg( \ottnt{v} ~\ottkw{matches}~ \ottnt{pat} ) }% +}{ +\vdash \, \ottkw{let} \, \ottnt{pat} \, = \, \ottnt{v} \, \ottkw{in} \, \ottnt{e} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottkw{Match\_failure}}{ +{\ottdrulename{JR\_expr\_let\_fail}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXletrec}[1]{\ottdrule[#1]{% +\ottpremise{ \ottnt{letrec\_bindings} = ( \ottnt{x_{{\mathrm{1}}}} \, = \, \ottkw{function} \, \ottnt{pattern\_matching_{{\mathrm{1}}}} \, \ottkw{and} \, ... \, \ottkw{and} \, \ottnt{x_{\ottmv{n}}} \, = \, \ottkw{function} \, \ottnt{pattern\_matching_{\ottmv{n}}} ) }% +\ottpremise{\ottkw{recfun} \, ( \, \ottnt{letrec\_bindings} \, , \, \ottnt{pattern\_matching_{{\mathrm{1}}}} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{e_{{\mathrm{1}}}} \quad ... \quad \ottkw{recfun} \, ( \, \ottnt{letrec\_bindings} \, , \, \ottnt{pattern\_matching_{\ottmv{n}}} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{e_{\ottmv{n}}}}% +}{ +\vdash \, \ottkw{let} \, \ottkw{rec} \, \ottnt{letrec\_bindings} \, \ottkw{in} \, \ottnt{e} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \{\!\!\{ \, \ottnt{x_{{\mathrm{1}}}} \, \!\!\leftarrow\!\! \, \ottnt{e_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{x_{\ottmv{n}}} \, \!\!\leftarrow\!\! \, \ottnt{e_{\ottmv{n}}} \, \}\!\!\} \, \ottnt{e}}{ +{\ottdrulename{JR\_expr\_letrec}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXsequenceXXctxXXleft}[1]{\ottdrule[#1]{% +\ottpremise{\vdash \, \ottnt{e_{{\mathrm{1}}}} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e'_{{\mathrm{1}}}}}% +}{ +\vdash \, \ottnt{e_{{\mathrm{1}}}} \, ; \, \ottnt{e_{{\mathrm{2}}}} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e'_{{\mathrm{1}}}} \, ; \, \ottnt{e_{{\mathrm{2}}}}}{ +{\ottdrulename{JR\_expr\_sequence\_ctx\_left}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXsequenceXXraise}[1]{\ottdrule[#1]{% +}{ +\vdash \, ( \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v} \, ) \, ; \, \ottnt{e} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v}}{ +{\ottdrulename{JR\_expr\_sequence\_raise}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXsequence}[1]{\ottdrule[#1]{% +}{ +\vdash \, \ottnt{v} \, ; \, \ottnt{e_{{\mathrm{2}}}} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottnt{e_{{\mathrm{2}}}}}{ +{\ottdrulename{JR\_expr\_sequence}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXifthenelseXXctx}[1]{\ottdrule[#1]{% +\ottpremise{\vdash \, \ottnt{e_{{\mathrm{1}}}} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e'_{{\mathrm{1}}}}}% +}{ +\vdash \, \ottkw{if} \, \ottnt{e_{{\mathrm{1}}}} \, \ottkw{then} \, \ottnt{e_{{\mathrm{2}}}} \, \ottkw{else} \, \ottnt{e_{{\mathrm{3}}}} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottkw{if} \, \ottnt{e'_{{\mathrm{1}}}} \, \ottkw{then} \, \ottnt{e_{{\mathrm{2}}}} \, \ottkw{else} \, \ottnt{e_{{\mathrm{3}}}}}{ +{\ottdrulename{JR\_expr\_ifthenelse\_ctx}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXifXXraise}[1]{\ottdrule[#1]{% +}{ +\vdash \, \ottkw{if} \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v} \, \ottkw{then} \, \ottnt{e_{{\mathrm{1}}}} \, \ottkw{else} \, \ottnt{e_{{\mathrm{2}}}} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v}}{ +{\ottdrulename{JR\_expr\_if\_raise}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXifthenelseXXtrue}[1]{\ottdrule[#1]{% +}{ +\vdash \, \ottkw{if} \, \ottkw{true} \, \ottkw{then} \, \ottnt{e_{{\mathrm{2}}}} \, \ottkw{else} \, \ottnt{e_{{\mathrm{3}}}} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottnt{e_{{\mathrm{2}}}}}{ +{\ottdrulename{JR\_expr\_ifthenelse\_true}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXifthenelseXXfalse}[1]{\ottdrule[#1]{% +}{ +\vdash \, \ottkw{if} \, \ottkw{false} \, \ottkw{then} \, \ottnt{e_{{\mathrm{2}}}} \, \ottkw{else} \, \ottnt{e_{{\mathrm{3}}}} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottnt{e_{{\mathrm{3}}}}}{ +{\ottdrulename{JR\_expr\_ifthenelse\_false}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXmatchXXctx}[1]{\ottdrule[#1]{% +\ottpremise{\vdash \, \ottnt{e} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e'}}% +}{ +\vdash \, \ottkw{match} \, \ottnt{e} \, \ottkw{with} \, \ottnt{pattern\_matching} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottkw{match} \, \ottnt{e'} \, \ottkw{with} \, \ottnt{pattern\_matching}}{ +{\ottdrulename{JR\_expr\_match\_ctx}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXmatchXXraise}[1]{\ottdrule[#1]{% +}{ +\vdash \, \ottkw{match} \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v} \, \ottkw{with} \, \ottnt{pattern\_matching} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v}}{ +{\ottdrulename{JR\_expr\_match\_raise}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXmatchXXstep}[1]{\ottdrule[#1]{% +\ottpremise{\vdash \, \ottnt{v} \, \ottkw{with} \, \ottnt{pattern\_matching} \, \longrightarrow \, \ottnt{pattern\_matching'}}% +}{ +\vdash \, \ottkw{match} \, \ottnt{v} \, \ottkw{with} \, \ottnt{pattern\_matching} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottkw{match} \, \ottnt{v} \, \ottkw{with} \, \ottnt{pattern\_matching'}}{ +{\ottdrulename{JR\_expr\_match\_step}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXmatchXXsuccess}[1]{\ottdrule[#1]{% +\ottpremise{\vdash \, \ottnt{v} \, \ottkw{with} \, \ottnt{pattern\_matching} \, \longrightarrow \, \ottnt{e'}}% +}{ +\vdash \, \ottkw{match} \, \ottnt{v} \, \ottkw{with} \, \ottnt{pattern\_matching} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottnt{e'}}{ +{\ottdrulename{JR\_expr\_match\_success}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXand}[1]{\ottdrule[#1]{% +}{ +\vdash \, \ottnt{e_{{\mathrm{1}}}} \, \ottkw{\&\&} \, \ottnt{e_{{\mathrm{2}}}} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottkw{if} \, \ottnt{e_{{\mathrm{1}}}} \, \ottkw{then} \, \ottnt{e_{{\mathrm{2}}}} \, \ottkw{else} \, \ottkw{false}}{ +{\ottdrulename{JR\_expr\_and}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXor}[1]{\ottdrule[#1]{% +}{ +\vdash \, \ottnt{e_{{\mathrm{1}}}} \, \ottkw{\mbox{$\mid$}\mbox{$\mid$}} \, \ottnt{e_{{\mathrm{2}}}} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottkw{if} \, \ottnt{e_{{\mathrm{1}}}} \, \ottkw{then} \, \ottkw{true} \, \ottkw{else} \, \ottnt{e_{{\mathrm{2}}}}}{ +{\ottdrulename{JR\_expr\_or}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXwhile}[1]{\ottdrule[#1]{% +}{ +\vdash \, \ottkw{while} \, \ottnt{e_{{\mathrm{1}}}} \, \ottkw{do} \, \ottnt{e_{{\mathrm{2}}}} \, \ottkw{done} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottkw{if} \, \ottnt{e_{{\mathrm{1}}}} \, \ottkw{then} \, ( \, \ottnt{e_{{\mathrm{2}}}} \, ; \, \ottkw{while} \, \ottnt{e_{{\mathrm{1}}}} \, \ottkw{do} \, \ottnt{e_{{\mathrm{2}}}} \, \ottkw{done} \, )}{ +{\ottdrulename{JR\_expr\_while}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXforXXctxOne}[1]{\ottdrule[#1]{% +\ottpremise{\vdash \, \ottnt{e_{{\mathrm{1}}}} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e'_{{\mathrm{1}}}}}% +}{ +\vdash \, \ottkw{for} \, \ottnt{x} \, = \, \ottnt{e_{{\mathrm{1}}}} \, \ottkw{\relax{\sf[}down{\sf]}to} \, \ottnt{e_{{\mathrm{2}}}} \, \ottkw{do} \, \ottnt{e_{{\mathrm{3}}}} \, \ottkw{done} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottkw{for} \, \ottnt{x} \, = \, \ottnt{e'_{{\mathrm{1}}}} \, \ottkw{\relax{\sf[}down{\sf]}to} \, \ottnt{e_{{\mathrm{2}}}} \, \ottkw{do} \, \ottnt{e_{{\mathrm{3}}}} \, \ottkw{done}}{ +{\ottdrulename{JR\_expr\_for\_ctx1}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXforXXraiseOne}[1]{\ottdrule[#1]{% +}{ +\vdash \, \ottkw{for} \, \ottnt{x} \, = \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v} \, \ottkw{\relax{\sf[}down{\sf]}to} \, \ottnt{e_{{\mathrm{2}}}} \, \ottkw{do} \, \ottnt{e_{{\mathrm{3}}}} \, \ottkw{done} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v}}{ +{\ottdrulename{JR\_expr\_for\_raise1}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXforXXctxTwo}[1]{\ottdrule[#1]{% +\ottpremise{\vdash \, \ottnt{e_{{\mathrm{2}}}} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e'_{{\mathrm{2}}}}}% +}{ +\vdash \, \ottkw{for} \, \ottnt{x} \, = \, \ottnt{v_{{\mathrm{1}}}} \, \ottkw{\relax{\sf[}down{\sf]}to} \, \ottnt{e_{{\mathrm{2}}}} \, \ottkw{do} \, \ottnt{e_{{\mathrm{3}}}} \, \ottkw{done} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottkw{for} \, \ottnt{x} \, = \, \ottnt{v_{{\mathrm{1}}}} \, \ottkw{\relax{\sf[}down{\sf]}to} \, \ottnt{e'_{{\mathrm{2}}}} \, \ottkw{do} \, \ottnt{e_{{\mathrm{3}}}} \, \ottkw{done}}{ +{\ottdrulename{JR\_expr\_for\_ctx2}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXforXXraiseTwo}[1]{\ottdrule[#1]{% +}{ +\vdash \, \ottkw{for} \, \ottnt{x} \, = \, \ottnt{v} \, \ottkw{\relax{\sf[}down{\sf]}to} \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v'} \, \ottkw{do} \, \ottnt{e_{{\mathrm{3}}}} \, \ottkw{done} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v'}}{ +{\ottdrulename{JR\_expr\_for\_raise2}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXforXXtoXXdo}[1]{\ottdrule[#1]{% +\ottpremise{ \dot{n}_{{\mathrm{1}}} \stackrel\centerdot\leq \dot{n}_{{\mathrm{2}}} }% +}{ +\vdash \, \ottkw{for} \, \ottnt{x} \, = \, \dot{n}_{{\mathrm{1}}} \, \ottkw{to} \, \dot{n}_{{\mathrm{2}}} \, \ottkw{do} \, \ottnt{e} \, \ottkw{done} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, \ottkw{let} \, \ottnt{x} \, = \, \dot{n}_{{\mathrm{1}}} \, \ottkw{in} \, \ottnt{e} \, ) \, ; \, \ottkw{for} \, \ottnt{x} \, = \, \dot{n}_{{\mathrm{1}}} \stackrel\centerdot+ 1 \, \ottkw{to} \, \dot{n}_{{\mathrm{2}}} \, \ottkw{do} \, \ottnt{e} \, \ottkw{done}}{ +{\ottdrulename{JR\_expr\_for\_to\_do}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXforXXtoXXdone}[1]{\ottdrule[#1]{% +\ottpremise{ \dot{n}_{{\mathrm{1}}} \stackrel\centerdot > \dot{n}_{{\mathrm{2}}} }% +}{ +\vdash \, \ottkw{for} \, \ottnt{x} \, = \, \dot{n}_{{\mathrm{1}}} \, \ottkw{to} \, \dot{n}_{{\mathrm{2}}} \, \ottkw{do} \, \ottnt{e} \, \ottkw{done} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottkw{()}}{ +{\ottdrulename{JR\_expr\_for\_to\_done}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXforXXdowntoXXdo}[1]{\ottdrule[#1]{% +\ottpremise{ \dot{n}_{{\mathrm{2}}} \stackrel\centerdot\leq \dot{n}_{{\mathrm{1}}} }% +}{ +\vdash \, \ottkw{for} \, \ottnt{x} \, = \, \dot{n}_{{\mathrm{1}}} \, \ottkw{downto} \, \dot{n}_{{\mathrm{2}}} \, \ottkw{do} \, \ottnt{e} \, \ottkw{done} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, \ottkw{let} \, \ottnt{x} \, = \, \dot{n}_{{\mathrm{1}}} \, \ottkw{in} \, \ottnt{e} \, ) \, ; \, \ottkw{for} \, \ottnt{x} \, = \, \dot{n}_{{\mathrm{1}}} \stackrel\centerdot- 1 \, \ottkw{downto} \, \dot{n}_{{\mathrm{2}}} \, \ottkw{do} \, \ottnt{e} \, \ottkw{done}}{ +{\ottdrulename{JR\_expr\_for\_downto\_do}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXforXXdowntoXXdone}[1]{\ottdrule[#1]{% +\ottpremise{ \dot{n}_{{\mathrm{2}}} \stackrel\centerdot > \dot{n}_{{\mathrm{1}}} }% +}{ +\vdash \, \ottkw{for} \, \ottnt{x} \, = \, \dot{n}_{{\mathrm{1}}} \, \ottkw{downto} \, \dot{n}_{{\mathrm{2}}} \, \ottkw{do} \, \ottnt{e} \, \ottkw{done} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottkw{()}}{ +{\ottdrulename{JR\_expr\_for\_downto\_done}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXtryXXctx}[1]{\ottdrule[#1]{% +\ottpremise{\vdash \, \ottnt{e} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e'}}% +}{ +\vdash \, \ottkw{try} \, \ottnt{e} \, \ottkw{with} \, \ottnt{pattern\_matching} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottkw{try} \, \ottnt{e'} \, \ottkw{with} \, \ottnt{pattern\_matching}}{ +{\ottdrulename{JR\_expr\_try\_ctx}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXtryXXreturn}[1]{\ottdrule[#1]{% +}{ +\vdash \, \ottkw{try} \, \ottnt{v} \, \ottkw{with} \, \ottnt{pattern\_matching} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottnt{v}}{ +{\ottdrulename{JR\_expr\_try\_return}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXtryXXcatch}[1]{\ottdrule[#1]{% +}{ +\vdash \, \ottkw{try} \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v} \, \ottkw{with} \, \ottnt{pat\_exp_{{\mathrm{1}}}} \, \ottkw{\mbox{$\mid$}} \, ... \, \ottkw{\mbox{$\mid$}} \, \ottnt{pat\_exp_{\ottmv{n}}} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottkw{match} \, \ottnt{v} \, \ottkw{with} \, \ottnt{pat\_exp_{{\mathrm{1}}}} \, \ottkw{\mbox{$\mid$}} \, ... \, \ottkw{\mbox{$\mid$}} \, \ottnt{pat\_exp_{\ottmv{n}}} \, \ottkw{\mbox{$\mid$}} \, \ottkw{\_} \, \rightarrow \, ( \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v} \, )}{ +{\ottdrulename{JR\_expr\_try\_catch}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXtupleXXctx}[1]{\ottdrule[#1]{% +\ottpremise{\vdash \, \ottnt{e} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e'}}% +}{ +\vdash \, \ottnt{e_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{e_{\ottmv{m}}} \, , \, \ottnt{e} \, , \, \ottnt{v_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{v_{\ottmv{n}}} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{e_{\ottmv{m}}} \, , \, \ottnt{e'} \, , \, \ottnt{v_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{v_{\ottmv{n}}}}{ +{\ottdrulename{JR\_expr\_tuple\_ctx}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXtupleXXraise}[1]{\ottdrule[#1]{% +}{ +\vdash \, \ottnt{e_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{e_{\ottmv{m}}} \, , \, ( \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v} \, ) \, , \, \ottnt{v_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{v_{\ottmv{n}}} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v}}{ +{\ottdrulename{JR\_expr\_tuple\_raise}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXconstrXXctx}[1]{\ottdrule[#1]{% +\ottpremise{\vdash \, \ottnt{e} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e'}}% +}{ +\vdash \, \ottnt{constr} \, ( \, \ottnt{e_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{e_{\ottmv{m}}} \, , \, \ottnt{e} \, , \, \ottnt{v_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{v_{\ottmv{n}}} \, ) \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{constr} \, ( \, \ottnt{e_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{e_{\ottmv{m}}} \, , \, \ottnt{e'} \, , \, \ottnt{v_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{v_{\ottmv{n}}} \, )}{ +{\ottdrulename{JR\_expr\_constr\_ctx}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXconstrXXraise}[1]{\ottdrule[#1]{% +}{ +\vdash \, \ottnt{constr} \, ( \, \ottnt{e_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{e_{\ottmv{m}}} \, , \, ( \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v} \, ) \, , \, \ottnt{v_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{v_{\ottmv{n}}} \, ) \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v}}{ +{\ottdrulename{JR\_expr\_constr\_raise}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXconsXXctxOne}[1]{\ottdrule[#1]{% +\ottpremise{\vdash \, \ottnt{e} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e'}}% +}{ +\vdash \, \ottnt{e_{{\mathrm{0}}}} \, \ottkw{::} \, \ottnt{e} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e_{{\mathrm{0}}}} \, \ottkw{::} \, \ottnt{e'}}{ +{\ottdrulename{JR\_expr\_cons\_ctx1}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXconsXXraiseOne}[1]{\ottdrule[#1]{% +}{ +\vdash \, \ottnt{e} \, \ottkw{::} \, ( \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v} \, ) \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v}}{ +{\ottdrulename{JR\_expr\_cons\_raise1}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXconsXXctxTwo}[1]{\ottdrule[#1]{% +\ottpremise{\vdash \, \ottnt{e} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e'}}% +}{ +\vdash \, \ottnt{e} \, \ottkw{::} \, \ottnt{v} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e'} \, \ottkw{::} \, \ottnt{v}}{ +{\ottdrulename{JR\_expr\_cons\_ctx2}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXconsXXraiseTwo}[1]{\ottdrule[#1]{% +}{ +\vdash \, ( \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v} \, ) \, \ottkw{::} \, \ottnt{v'} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v}}{ +{\ottdrulename{JR\_expr\_cons\_raise2}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXrecordXXctx}[1]{\ottdrule[#1]{% +\ottpremise{\vdash \, \ottnt{expr} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{expr'}}% +}{ +\vdash \, \ottkw{\{} \, \ottnt{fn_{{\mathrm{1}}}} \, = \, \ottnt{e_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn_{\ottmv{m}}} \, = \, \ottnt{e_{\ottmv{m}}} \, ; \, \ottnt{field\_name} \, = \, \ottnt{expr} \, ; \, \ottnt{fn'_{{\mathrm{1}}}} \, = \, \ottnt{v_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn'_{\ottmv{n}}} \, = \, \ottnt{v_{\ottmv{n}}} \, \ottkw{\}} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottkw{\{} \, \ottnt{fn_{{\mathrm{1}}}} \, = \, \ottnt{e_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn_{\ottmv{m}}} \, = \, \ottnt{e_{\ottmv{m}}} \, ; \, \ottnt{field\_name} \, = \, \ottnt{expr'} \, ; \, \ottnt{fn'_{{\mathrm{1}}}} \, = \, \ottnt{v_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn'_{\ottmv{n}}} \, = \, \ottnt{v_{\ottmv{n}}} \, \ottkw{\}}}{ +{\ottdrulename{JR\_expr\_record\_ctx}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXrecordXXraise}[1]{\ottdrule[#1]{% +}{ +\vdash \, \ottkw{\{} \, \ottnt{fn_{{\mathrm{1}}}} \, = \, \ottnt{e_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn_{\ottmv{m}}} \, = \, \ottnt{e_{\ottmv{m}}} \, ; \, \ottnt{fn} \, = \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v} \, ; \, \ottnt{fn'_{{\mathrm{1}}}} \, = \, \ottnt{v_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn'_{\ottmv{n}}} \, = \, \ottnt{v_{\ottmv{n}}} \, \ottkw{\}} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v}}{ +{\ottdrulename{JR\_expr\_record\_raise}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXrecordXXwithXXctxOne}[1]{\ottdrule[#1]{% +\ottpremise{\vdash \, \ottnt{e} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e'}}% +}{ +\vdash \, \ottkw{\{} \, \ottnt{v} \, \ottkw{with} \, \ottnt{fn_{{\mathrm{1}}}} \, = \, \ottnt{e_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn_{\ottmv{m}}} \, = \, \ottnt{e_{\ottmv{m}}} \, ; \, \ottnt{field\_name} \, = \, \ottnt{e} \, ; \, \ottnt{fn'_{{\mathrm{1}}}} \, = \, \ottnt{v_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn'_{\ottmv{n}}} \, = \, \ottnt{v_{\ottmv{n}}} \, \ottkw{\}} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottkw{\{} \, \ottnt{v} \, \ottkw{with} \, \ottnt{fn_{{\mathrm{1}}}} \, = \, \ottnt{e_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn_{\ottmv{m}}} \, = \, \ottnt{e_{\ottmv{m}}} \, ; \, \ottnt{field\_name} \, = \, \ottnt{e'} \, ; \, \ottnt{fn'_{{\mathrm{1}}}} \, = \, \ottnt{v_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn'_{\ottmv{n}}} \, = \, \ottnt{v_{\ottmv{n}}} \, \ottkw{\}}}{ +{\ottdrulename{JR\_expr\_record\_with\_ctx1}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXrecordXXwithXXraiseOne}[1]{\ottdrule[#1]{% +}{ +\vdash \, \ottkw{\{} \, \ottnt{v'} \, \ottkw{with} \, \ottnt{fn_{{\mathrm{1}}}} \, = \, \ottnt{e_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn_{\ottmv{m}}} \, = \, \ottnt{e_{\ottmv{m}}} \, ; \, \ottnt{fn} \, = \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v} \, ; \, \ottnt{fn'_{{\mathrm{1}}}} \, = \, \ottnt{v_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn'_{\ottmv{n}}} \, = \, \ottnt{v_{\ottmv{n}}} \, \ottkw{\}} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v}}{ +{\ottdrulename{JR\_expr\_record\_with\_raise1}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXrecordXXwithXXctxTwo}[1]{\ottdrule[#1]{% +\ottpremise{\vdash \, \ottnt{e} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e'}}% +}{ +\vdash \, \ottkw{\{} \, \ottnt{e} \, \ottkw{with} \, \ottnt{field\_name_{{\mathrm{1}}}} \, = \, \ottnt{e_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{field\_name_{\ottmv{n}}} \, = \, \ottnt{e_{\ottmv{n}}} \, \ottkw{\}} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottkw{\{} \, \ottnt{e'} \, \ottkw{with} \, \ottnt{field\_name_{{\mathrm{1}}}} \, = \, \ottnt{e_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{field\_name_{\ottmv{n}}} \, = \, \ottnt{e_{\ottmv{n}}} \, \ottkw{\}}}{ +{\ottdrulename{JR\_expr\_record\_with\_ctx2}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXrecordXXraiseXXctxTwo}[1]{\ottdrule[#1]{% +}{ +\vdash \, \ottkw{\{} \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v} \, \ottkw{with} \, \ottnt{field\_name_{{\mathrm{1}}}} \, = \, \ottnt{e_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{field\_name_{\ottmv{n}}} \, = \, \ottnt{e_{\ottmv{n}}} \, \ottkw{\}} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v}}{ +{\ottdrulename{JR\_expr\_record\_raise\_ctx2}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXrecordXXwithXXmany}[1]{\ottdrule[#1]{% +\ottpremise{\ottkw{length} \, ( \, \ottnt{v''_{{\mathrm{1}}}} \, ) \, ... \, ( \, \ottnt{v''_{\ottmv{l}}} \, ) \, \geq \, 1}% +\ottpremise{\ottnt{field\_name} \, \notin \, \ottnt{fn_{{\mathrm{1}}}} \, ... \, \ottnt{fn_{\ottmv{m}}}}% +}{ +\vdash \, \ottkw{\{} \, \ottkw{\{} \, \ottnt{fn_{{\mathrm{1}}}} \, = \, \ottnt{v_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn_{\ottmv{m}}} \, = \, \ottnt{v_{\ottmv{m}}} \, ; \, \ottnt{field\_name} \, = \, \ottnt{v} \, ; \, \ottnt{fn'_{{\mathrm{1}}}} \, = \, \ottnt{v'_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn'_{\ottmv{n}}} \, = \, \ottnt{v'_{\ottmv{n}}} \, \ottkw{\}} \, \ottkw{with} \, \ottnt{field\_name} \, = \, \ottnt{v'} \, ; \, \ottnt{fn''_{{\mathrm{1}}}} \, = \, \ottnt{v''_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn''_{\ottmv{l}}} \, = \, \ottnt{v''_{\ottmv{l}}} \, \ottkw{\}} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottkw{\{} \, \ottkw{\{} \, \ottnt{fn_{{\mathrm{1}}}} \, = \, \ottnt{v_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn_{\ottmv{m}}} \, = \, \ottnt{v_{\ottmv{m}}} \, ; \, \ottnt{field\_name} \, = \, \ottnt{v'} \, ; \, \ottnt{fn'_{{\mathrm{1}}}} \, = \, \ottnt{v'_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn'_{\ottmv{n}}} \, = \, \ottnt{v'_{\ottmv{n}}} \, \ottkw{\}} \, \ottkw{with} \, \ottnt{fn''_{{\mathrm{1}}}} \, = \, \ottnt{v''_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn''_{\ottmv{l}}} \, = \, \ottnt{v''_{\ottmv{l}}} \, \ottkw{\}}}{ +{\ottdrulename{JR\_expr\_record\_with\_many}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXrecordXXwithXXOne}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{field\_name} \, \notin \, \ottnt{fn_{{\mathrm{1}}}} \, ... \, \ottnt{fn_{\ottmv{m}}}}% +}{ +\vdash \, \ottkw{\{} \, \ottkw{\{} \, \ottnt{fn_{{\mathrm{1}}}} \, = \, \ottnt{v_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn_{\ottmv{m}}} \, = \, \ottnt{v_{\ottmv{m}}} \, ; \, \ottnt{field\_name} \, = \, \ottnt{v} \, ; \, \ottnt{fn'_{{\mathrm{1}}}} \, = \, \ottnt{v'_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn'_{\ottmv{n}}} \, = \, \ottnt{v'_{\ottmv{n}}} \, \ottkw{\}} \, \ottkw{with} \, \ottnt{field\_name} \, = \, \ottnt{v'} \, \ottkw{\}} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottkw{\{} \, \ottnt{fn_{{\mathrm{1}}}} \, = \, \ottnt{v_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn_{\ottmv{m}}} \, = \, \ottnt{v_{\ottmv{m}}} \, ; \, \ottnt{field\_name} \, = \, \ottnt{v'} \, ; \, \ottnt{fn'_{{\mathrm{1}}}} \, = \, \ottnt{v'_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn'_{\ottmv{n}}} \, = \, \ottnt{v'_{\ottmv{n}}} \, \ottkw{\}}}{ +{\ottdrulename{JR\_expr\_record\_with\_1}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXrecordXXaccessXXctx}[1]{\ottdrule[#1]{% +\ottpremise{\vdash \, \ottnt{e} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e'}}% +}{ +\vdash \, \ottnt{e} \, . \, \ottnt{field\_name} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e'} \, . \, \ottnt{field\_name}}{ +{\ottdrulename{JR\_expr\_record\_access\_ctx}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXrecordXXaccessXXraise}[1]{\ottdrule[#1]{% +}{ +\vdash \, ( \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v} \, ) \, . \, \ottnt{field\_name} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v}}{ +{\ottdrulename{JR\_expr\_record\_access\_raise}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXrecordXXaccess}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{field\_name} \, \notin \, \ottnt{fn_{{\mathrm{1}}}} \, ... \, \ottnt{fn_{\ottmv{n}}}}% +}{ +\vdash \, \ottkw{\{} \, \ottnt{fn_{{\mathrm{1}}}} \, = \, \ottnt{v_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn_{\ottmv{n}}} \, = \, \ottnt{v_{\ottmv{n}}} \, ; \, \ottnt{field\_name} \, = \, \ottnt{v} \, ; \, \ottnt{fn'_{{\mathrm{1}}}} \, = \, \ottnt{v'_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn'_{\ottmv{m}}} \, = \, \ottnt{v'_{\ottmv{m}}} \, \ottkw{\}} \, . \, \ottnt{field\_name} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottnt{v}}{ +{\ottdrulename{JR\_expr\_record\_access}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXassertXXctx}[1]{\ottdrule[#1]{% +\ottpremise{\vdash \, \ottnt{e} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e'}}% +}{ +\vdash \, \ottkw{assert} \, \ottnt{e} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottkw{assert} \, \ottnt{e'}}{ +{\ottdrulename{JR\_expr\_assert\_ctx}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXassertXXraise}[1]{\ottdrule[#1]{% +}{ +\vdash \, \ottkw{assert} \, ( \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v} \, ) \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v}}{ +{\ottdrulename{JR\_expr\_assert\_raise}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXassertXXtrue}[1]{\ottdrule[#1]{% +}{ +\vdash \, \ottkw{assert} \, \ottkw{true} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottkw{()}}{ +{\ottdrulename{JR\_expr\_assert\_true}}{} +}} + + +\newcommand{\ottdruleJRXXexprXXassertXXfalse}[1]{\ottdrule[#1]{% +}{ +\vdash \, \ottkw{assert} \, \ottkw{false} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottkw{Assert\_failure}}{ +{\ottdrulename{JR\_expr\_assert\_false}}{} +}} + +\newcommand{\ottdefnJRXXexpr}[1]{\begin{ottdefnblock}[#1]{$\vdash \, \ottnt{expr} \, \stackrel{\ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{expr'}$}{\ottcom{Expression evaluation}} +\ottusedrule{\ottdruleJRXXexprXXuprim{}} +\ottusedrule{\ottdruleJRXXexprXXbprim{}} +\ottusedrule{\ottdruleJRXXexprXXtypedXXctx{}} +\ottusedrule{\ottdruleJRXXexprXXapplyXXctxXXarg{}} +\ottusedrule{\ottdruleJRXXexprXXapplyXXraiseOne{}} +\ottusedruleC{\ottdruleJRXXexprXXapplyXXctxXXfun{}} +\ottusedrule{\ottdruleJRXXexprXXapplyXXraiseTwo{}} +\ottusedrule{\ottdruleJRXXexprXXapply{}} +\ottusedrule{\ottdruleJRXXexprXXletXXctx{}} +\ottusedrule{\ottdruleJRXXexprXXletXXraise{}} +\ottusedrule{\ottdruleJRXXexprXXletXXsubst{}} +\ottusedruleC{\ottdruleJRXXexprXXletXXfail{}} +\ottusedrule{\ottdruleJRXXexprXXletrec{}} +\ottusedrule{\ottdruleJRXXexprXXsequenceXXctxXXleft{}} +\ottusedrule{\ottdruleJRXXexprXXsequenceXXraise{}} +\ottusedrule{\ottdruleJRXXexprXXsequence{}} +\ottusedrule{\ottdruleJRXXexprXXifthenelseXXctx{}} +\ottusedrule{\ottdruleJRXXexprXXifXXraise{}} +\ottusedrule{\ottdruleJRXXexprXXifthenelseXXtrue{}} +\ottusedrule{\ottdruleJRXXexprXXifthenelseXXfalse{}} +\ottusedrule{\ottdruleJRXXexprXXmatchXXctx{}} +\ottusedrule{\ottdruleJRXXexprXXmatchXXraise{}} +\ottusedrule{\ottdruleJRXXexprXXmatchXXstep{}} +\ottusedrule{\ottdruleJRXXexprXXmatchXXsuccess{}} +\ottusedrule{\ottdruleJRXXexprXXand{}} +\ottusedrule{\ottdruleJRXXexprXXor{}} +\ottusedrule{\ottdruleJRXXexprXXwhile{}} +\ottusedrule{\ottdruleJRXXexprXXforXXctxOne{}} +\ottusedrule{\ottdruleJRXXexprXXforXXraiseOne{}} +\ottusedrule{\ottdruleJRXXexprXXforXXctxTwo{}} +\ottusedrule{\ottdruleJRXXexprXXforXXraiseTwo{}} +\ottusedrule{\ottdruleJRXXexprXXforXXtoXXdo{}} +\ottusedrule{\ottdruleJRXXexprXXforXXtoXXdone{}} +\ottusedrule{\ottdruleJRXXexprXXforXXdowntoXXdo{}} +\ottusedrule{\ottdruleJRXXexprXXforXXdowntoXXdone{}} +\ottusedrule{\ottdruleJRXXexprXXtryXXctx{}} +\ottusedrule{\ottdruleJRXXexprXXtryXXreturn{}} +\ottusedrule{\ottdruleJRXXexprXXtryXXcatch{}} +\ottusedrule{\ottdruleJRXXexprXXtupleXXctx{}} +\ottusedrule{\ottdruleJRXXexprXXtupleXXraise{}} +\ottusedrule{\ottdruleJRXXexprXXconstrXXctx{}} +\ottusedrule{\ottdruleJRXXexprXXconstrXXraise{}} +\ottusedrule{\ottdruleJRXXexprXXconsXXctxOne{}} +\ottusedrule{\ottdruleJRXXexprXXconsXXraiseOne{}} +\ottusedrule{\ottdruleJRXXexprXXconsXXctxTwo{}} +\ottusedrule{\ottdruleJRXXexprXXconsXXraiseTwo{}} +\ottbreakconclusionlinetrue +\ottusedrule{\ottdruleJRXXexprXXrecordXXctx{}} +\ottbreakconclusionlinefalse +\ottusedrule{\ottdruleJRXXexprXXrecordXXraise{}} +\ottbreakconclusionlinetrue +\ottusedrule{\ottdruleJRXXexprXXrecordXXwithXXctxOne{}} +\ottbreakconclusionlinefalse +\ottusedrule{\ottdruleJRXXexprXXrecordXXwithXXraiseOne{}} +\ottusedrule{\ottdruleJRXXexprXXrecordXXwithXXctxTwo{}} +\ottusedrule{\ottdruleJRXXexprXXrecordXXraiseXXctxTwo{}} +\ottbreakconclusionlinetrue +\ottusedrule{\ottdruleJRXXexprXXrecordXXwithXXmany{}} +\ottusedrule{\ottdruleJRXXexprXXrecordXXwithXXOne{}} +\ottbreakconclusionlinefalse +\ottusedrule{\ottdruleJRXXexprXXrecordXXaccessXXctx{}} +\ottusedrule{\ottdruleJRXXexprXXrecordXXaccessXXraise{}} +\ottusedrule{\ottdruleJRXXexprXXrecordXXaccess{}} +\ottusedrule{\ottdruleJRXXexprXXassertXXctx{}} +\ottusedrule{\ottdruleJRXXexprXXassertXXraise{}} +\ottusedrule{\ottdruleJRXXexprXXassertXXtrue{}} +\ottusedrule{\ottdruleJRXXexprXXassertXXfalse{}} +\end{ottdefnblock}} + + +\newcommand{\ottdefnsJred}{ +\ottdefnJRXXexpr{}} + + +% defns JRdefn +% defn Rdefn +\newcommand{\ottdruleJdefnXXletXXctx}[1]{\ottdrule[#1]{% +\ottpremise{\vdash \, \ottnt{e} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e'}}% +}{ + \vdash \langle \ottnt{ds\_value} , \ottkw{let} \, \ottnt{pat} \, = \, \ottnt{e} \, \ottkw{;;} \, \ottnt{definitions} \rangle \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \langle \ottnt{ds\_value} , \ottkw{let} \, \ottnt{pat} \, = \, \ottnt{e'} \, \ottkw{;;} \, \ottnt{definitions} \rangle }{ +{\ottdrulename{Jdefn\_let\_ctx}}{} +}} + + +\newcommand{\ottdruleJdefnXXletXXraise}[1]{\ottdrule[#1]{% +}{ + \vdash \langle \ottnt{ds\_value} , \ottkw{let} \, \ottnt{pat} \, = \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v} \, \ottkw{;;} \, \ottnt{definitions} \rangle \stackrel{ }{\longrightarrow}\ottmaybebreakline \langle \ottnt{ds\_value} , \ottkw{(\%prim} \, \ottkw{raise)} \, \ottnt{v} \rangle }{ +{\ottdrulename{Jdefn\_let\_raise}}{} +}} + + +\newcommand{\ottdruleJdefnXXletXXmatch}[1]{\ottdrule[#1]{% +\ottpremise{\vdash \, \ottnt{v} \, \ottkw{matches} \, \ottnt{pat} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{x_{{\mathrm{1}}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{x_{\ottmv{m}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{\ottmv{m}}} \, \}\!\!\}}% +}{ + \vdash \langle \ottnt{ds\_value} , \ottkw{let} \, \ottnt{pat} \, = \, \ottnt{v} \, \ottkw{;;} \, \ottnt{definitions} \rangle \stackrel{ }{\longrightarrow}\ottmaybebreakline \langle \ottnt{ds\_value} , \{\!\!\{ \, \ottnt{x_{{\mathrm{1}}}} \, \!\!\leftarrow\!\! \, \ottkw{remv\_tyvar} \, \ottnt{v_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{x_{\ottmv{m}}} \, \!\!\leftarrow\!\! \, \ottkw{remv\_tyvar} \, \ottnt{v_{\ottmv{m}}} \, \}\!\!\} \, \ottnt{definitions} \rangle }{ +{\ottdrulename{Jdefn\_let\_match}}{} +}} + + +\newcommand{\ottdruleJdefnXXletXXnotXXmatch}[1]{\ottdrule[#1]{% +\ottpremise{ \neg( \ottnt{v} ~\ottkw{matches}~ \ottnt{pat} ) }% +}{ + \vdash \langle \ottnt{ds\_value} , \ottkw{let} \, \ottnt{pat} \, = \, \ottnt{v} \, \ottkw{;;} \, \ottnt{definitions} \rangle \stackrel{ }{\longrightarrow}\ottmaybebreakline \langle \ottnt{ds\_value} , \ottkw{(\%prim} \, \ottkw{raise)} \, \ottkw{Match\_failure} \rangle }{ +{\ottdrulename{Jdefn\_let\_not\_match}}{} +}} + + +\newcommand{\ottdruleJdefnXXletrec}[1]{\ottdrule[#1]{% +\ottpremise{ \ottnt{letrec\_bindings} = ( \ottnt{x_{{\mathrm{1}}}} \, = \, \ottkw{function} \, \ottnt{pattern\_matching_{{\mathrm{1}}}} \, \ottkw{and} \, ... \, \ottkw{and} \, \ottnt{x_{\ottmv{n}}} \, = \, \ottkw{function} \, \ottnt{pattern\_matching_{\ottmv{n}}} ) }% +\ottpremise{\ottkw{recfun} \, ( \, \ottnt{letrec\_bindings} \, , \, \ottnt{pattern\_matching_{{\mathrm{1}}}} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{e_{{\mathrm{1}}}} \quad ... \quad \ottkw{recfun} \, ( \, \ottnt{letrec\_bindings} \, , \, \ottnt{pattern\_matching_{\ottmv{n}}} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{e_{\ottmv{n}}}}% +}{ + \vdash \langle \ottnt{ds\_value} , \ottkw{let} \, \ottkw{rec} \, \ottnt{letrec\_bindings} \, \ottkw{;;} \, \ottnt{definitions} \rangle \stackrel{ }{\longrightarrow}\ottmaybebreakline \langle \ottnt{ds\_value} , \{\!\!\{ \, \ottnt{x_{{\mathrm{1}}}} \, \!\!\leftarrow\!\! \, \ottkw{remv\_tyvar} \, \ottnt{e_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{x_{\ottmv{n}}} \, \!\!\leftarrow\!\! \, \ottkw{remv\_tyvar} \, \ottnt{e_{\ottmv{n}}} \, \}\!\!\} \, \ottnt{definitions} \rangle }{ +{\ottdrulename{Jdefn\_letrec}}{} +}} + + +\newcommand{\ottdruleJdefnXXtype}[1]{\ottdrule[#1]{% +}{ + \vdash \langle \ottnt{ds\_value} , \ottnt{type\_definition} \, \ottkw{;;} \, \ottnt{definitions} \rangle \stackrel{ }{\longrightarrow}\ottmaybebreakline \langle \ottnt{ds\_value} \, \ottkw{;;} \, \ottnt{type\_definition} , \ottnt{definitions} \rangle }{ +{\ottdrulename{Jdefn\_type}}{} +}} + + +\newcommand{\ottdruleJdefnXXexn}[1]{\ottdrule[#1]{% +}{ + \vdash \langle \ottnt{ds\_value} , \ottnt{exception\_definition} \, \ottkw{;;} \, \ottnt{definitions} \rangle \stackrel{ }{\longrightarrow}\ottmaybebreakline \langle \ottnt{ds\_value} \, \ottkw{;;} \, \ottnt{exception\_definition} , \ottnt{definitions} \rangle }{ +{\ottdrulename{Jdefn\_exn}}{} +}} + +\newcommand{\ottdefnJRdefn}[1]{\begin{ottdefnblock}[#1]{$ \vdash \langle \ottnt{definitions} , \ottnt{program} \rangle \stackrel{\ottnt{L} }{\longrightarrow}\ottmaybebreakline \langle \ottnt{definitions'} , \ottnt{program'} \rangle $}{\ottcom{Definition sequence evaluation}} +\ottusedrule{\ottdruleJdefnXXletXXctx{}} +\ottusedrule{\ottdruleJdefnXXletXXraise{}} +\ottusedrule{\ottdruleJdefnXXletXXmatch{}} +\ottusedrule{\ottdruleJdefnXXletXXnotXXmatch{}} +\ottusedrule{\ottdruleJdefnXXletrec{}} +\ottusedrule{\ottdruleJdefnXXtype{}} +\ottusedrule{\ottdruleJdefnXXexn{}} +\end{ottdefnblock}} + + +\newcommand{\ottdefnsJRdefn}{ +\ottdefnJRdefn{}} + + +% defns JSlookup +% defn lookup +\newcommand{\ottdruleJSstlookupXXrec}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{st} \, ( \, \ottmv{l} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{e'}}% +\ottpremise{\ottmv{l} \, \not = \, \ottmv{l'}}% +}{ +\ottnt{st} \, , \, \ottmv{l'} \, \mapsto \, \ottnt{e} \, ( \, \ottmv{l} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{e'}}{ +{\ottdrulename{JSstlookup\_rec}}{} +}} + + +\newcommand{\ottdruleJSstlookupXXfound}[1]{\ottdrule[#1]{% +}{ +\ottnt{st} \, , \, \ottmv{l} \, \mapsto \, \ottnt{e} \, ( \, \ottmv{l} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{e}}{ +{\ottdrulename{JSstlookup\_found}}{} +}} + +\newcommand{\ottdefnJSlookup}[1]{\begin{ottdefnblock}[#1]{$\ottnt{store} \, ( \, \ottmv{location} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{expr}$}{\ottcom{Store lookup}} +\ottusedrule{\ottdruleJSstlookupXXrec{}} +\ottusedrule{\ottdruleJSstlookupXXfound{}} +\end{ottdefnblock}} + + +\newcommand{\ottdefnsJSlookup}{ +\ottdefnJSlookup{}} + + +% defns JRstore +% defn store +\newcommand{\ottdruleJRstoreXXempty}[1]{\ottdrule[#1]{% +}{ +\vdash \, \ottnt{st} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottnt{st}}{ +{\ottdrulename{JRstore\_empty}}{} +}} + + +\newcommand{\ottdruleJRstoreXXlookup}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{st} \, ( \, \ottmv{l} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{v}}% +}{ +\vdash \, \ottnt{st} \, \stackrel{ ! \, \ottmv{l} \, = \, \ottnt{v} }{\longrightarrow}\ottmaybebreakline \, \ottnt{st}}{ +{\ottdrulename{JRstore\_lookup}}{} +}} + + +\newcommand{\ottdruleJRstoreXXassign}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{st'} \, ( \, \ottmv{l} \, ) \, \ottkw{unallocated}}% +}{ +\vdash \, \ottnt{st} \, , \, \ottmv{l} \, \mapsto \, \ottnt{expr} \, , \, \ottnt{st'} \, \stackrel{ \ottmv{l} \, \ottkw{:=} \, \ottnt{v} }{\longrightarrow}\ottmaybebreakline \, \ottnt{st} \, , \, \ottmv{l} \, \mapsto \, \ottkw{remv\_tyvar} \, \ottnt{v} \, , \, \ottnt{st'}}{ +{\ottdrulename{JRstore\_assign}}{} +}} + + +\newcommand{\ottdruleJRstoreXXalloc}[1]{\ottdrule[#1]{% +\ottpremise{\ottnt{st} \, ( \, \ottmv{l} \, ) \, \ottkw{unallocated}}% +}{ +\vdash \, \ottnt{st} \, \stackrel{ \ottkw{ref} \, \ottnt{v} \, = \, \ottmv{l} }{\longrightarrow}\ottmaybebreakline \, \ottnt{st} \, , \, \ottmv{l} \, \mapsto \, \ottkw{remv\_tyvar} \, \ottnt{v}}{ +{\ottdrulename{JRstore\_alloc}}{} +}} + +\newcommand{\ottdefnJRstore}[1]{\begin{ottdefnblock}[#1]{$\vdash \, \ottnt{store} \, \stackrel{\ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{store'}$}{\ottcom{Store transition}} +\ottusedrule{\ottdruleJRstoreXXempty{}} +\ottusedrule{\ottdruleJRstoreXXlookup{}} +\ottusedrule{\ottdruleJRstoreXXassign{}} +\ottusedruleC{\ottdruleJRstoreXXalloc{}} +\end{ottdefnblock}} + + +\newcommand{\ottdefnsJRstore}{ +\ottdefnJRstore{}} + + +% defns JRtop +% defn top +\newcommand{\ottdruleJRtopXXdefs}[1]{\ottdrule[#1]{% +\ottpremise{\vdash \, \ottnt{store} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{store'}}% +\ottpremise{ \vdash \langle \ottnt{definitions\_value} , \ottnt{program} \rangle \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \langle \ottnt{definitions} , \ottnt{program'} \rangle }% +}{ + \vdash \langle \ottnt{definitions\_value} , \ottnt{program} , \ottnt{store} \rangle \longrightarrow \langle \ottnt{definitions} , \ottnt{program'} , \ottnt{store'} \rangle }{ +{\ottdrulename{JRtop\_defs}}{} +}} + +\newcommand{\ottdefnJRtop}[1]{\begin{ottdefnblock}[#1]{$ \vdash \langle \ottnt{definitions} , \ottnt{program} , \ottnt{store} \rangle \longrightarrow \langle \ottnt{definitions'} , \ottnt{program'} , \ottnt{store'} \rangle $}{\ottcom{Top-level reduction}} +\ottusedruleC{\ottdruleJRtopXXdefs{}} +\end{ottdefnblock}} + + +\newcommand{\ottdefnsJRtop}{ +\ottdefnJRtop{}} + +% defns Jdbehaviour +% defn dbehaviour +\newcommand{\ottdruleJRBXXbehaviourXXvalue}[1]{\ottdrule[#1]{% +}{ + \vdash \langle \ottnt{definitions\_value} , , \ottnt{store} \rangle \ottkw{behaves} }{ +{\ottdrulename{JRB\_behaviour\_value}}{} +}} + + +\newcommand{\ottdruleJRBXXbehaviourXXreduces}[1]{\ottdrule[#1]{% +\ottpremise{ \vdash \langle \ottnt{definitions\_value} , \ottnt{program} , \ottnt{store} \rangle \longrightarrow \langle \ottnt{definitions'} , \ottnt{program'} , \ottnt{store'} \rangle }% +}{ + \vdash \langle \ottnt{definitions\_value} , \ottnt{program} , \ottnt{store} \rangle \ottkw{behaves} }{ +{\ottdrulename{JRB\_behaviour\_reduces}}{} +}} + + +\newcommand{\ottdruleJRBXXbehaviourXXraises}[1]{\ottdrule[#1]{% +}{ + \vdash \langle \ottnt{definitions\_value} , \ottkw{(\%prim} \, \ottkw{raise)} \, \ottnt{v} , \ottnt{store} \rangle \ottkw{behaves} }{ +{\ottdrulename{JRB\_behaviour\_raises}}{} +}} + +\newcommand{\ottdefnJRBXXdbehaviour}[1]{\begin{ottdefnblock}[#1]{$ \vdash \langle \ottnt{definitions} , \ottnt{program} , \ottnt{store} \rangle \ottkw{behaves} $}{\ottcom{structure body behaviour}} +\ottusedrule{\ottdruleJRBXXbehaviourXXvalue{}} +\ottusedrule{\ottdruleJRBXXbehaviourXXreduces{}} +\ottusedrule{\ottdruleJRBXXbehaviourXXraises{}} + +\end{ottdefnblock}} + + +\newcommand{\ottdefnsJdbehaviour}{ +\ottdefnJRBXXdbehaviour{}} + +\begin{document} +%\scalebox{.25}{ +%\framebox{ +%\begin{minipage}{24cm} +%\section{Type system} +%\ottdefnsJdomEB +%\ottdefnsJdomE +%\ottdefnsJlookup +%\ottdefnsJidx +%\ottdefnsJTtpsXXkind +%\ottdefnsJTEok +%\ottdefnsJTeq +%\ottdefnsJTidxsub +%\ottdefnsJTinst +%\end{minipage} +%}} +% +%\scalebox{.25}{ +%\framebox{ +%\begin{minipage}{29.7cm} +%\ottdefnsJTinstXXnamed +%\ottdefnsJTinstXXany +%\ottdefnsJTval +%\ottdefnsJTfield +%\ottdefnsJTconstrXXp +%\ottdefnsJTconstrXXc +%\ottdefnsJTconst +%\ottdefnsJTpat +%\ottdefnsJTuprim +%\ottdefnsJTbprim +%\ottdefnsJTe +%\ottdefnsJTconstrXXdecl +%\ottdefnsJTfieldXXdecl +%\ottdefnsJTtypedef +%\ottdefnsJTtypeXXdefinition +%\ottdefnsJTdefinition +%\ottdefnsJTdefinitions +%\ottdefnsJTprog +%\ottdefnsJTstore +%\ottdefnsJTtop +%\ottdefnsJTLin +%\ottdefnsJTLout +%\end{minipage} +%}} + +\newcommand{\OCL}{OCaml$_\textit{light}$} + +\newenvironment{vtightlist}{\begin{list}{$\bullet\;$}{\setlength{\topsep}{0.2ex}\setlength{\itemsep}{0.0ex}\setlength{\labelsep}{0.0ex}\setlength{\labelwidth}{5mm}\setlength{\parsep}{0.0ex}\setlength{\itemindent}{0mm}\setlength{\leftmargin}{5mm}}}{\end{list}} + +\newenvironment{mtightlist}{\begin{list}{$\bullet\;$}{\setlength{\topsep}{0.8ex}\setlength{\itemsep}{0.6ex}\setlength{\labelsep}{0.0ex}\setlength{\labelwidth}{5mm}\setlength{\parsep}{0.6ex}\setlength{\itemindent}{0mm}\setlength{\leftmargin}{5mm}}}{\end{list}} + +\newrgbcolor{pmc}{.0 .5 .5} + + +\hspace*{6cm} +{\pmc\sf\Large OCaml$_{\textit{light}}$ in Ott \hfill \large Scott Owens} + +\vspace{10pt} + +\sf + +\noindent \OCL{} (ESOP '08) is a formal semantics for a substantial subset of the Objective Caml +core language, suitable for writing and verifying real programs. + +\scalebox{.5}{ +\begin{minipage}{15cm} +\huge +{\color{blue}\OCL{} key points} +\begin{itemize} +\item +Written in Ott +\item +Faithful to Objective Caml (very nearly) +\item +Type soundness proof mechanized in HOL\\ +(Coq and Isabelle/HOL definitions generated too) + +\item +Operational semantics validated on test programs +\item +Small-step operational semantics (131 rules) + +%\begin{itemize} +%\Large +%\item +%Inductively defined relations +%\item +%SOS-style +%\item +%Labelled transitions for state +%\item +%Substution-based +%\end{itemize} +\item +Type system (179 rules, below) +%\begin{itemize} +%\Large +%\item +%Inductively defined relations +%\item +%Syntactic +%\item +%Declarative (non-algorithmic) +%\end{itemize} + +\end{itemize} +\end{minipage} +} +% +\hspace{1.5cm} +% +\scalebox{.52}{ +\begin{minipage}{16.5cm} +\huge + +\vspace{10pt} +\Large +\begin{vtightlist} +\item +definitions: +\begin{vtightlist} +\item[-- ] +variant data types (e.g., \texttt{type t = I of int | C of char}), +\item[-- ] +record types (e.g., \texttt{type t = \{f : int; g : bool\}}), +\item[-- ] +parametric type constructors (e.g., \texttt{type 'a t = C of 'a}), +\item[-- ] +type abbreviations (e.g., \texttt{type 'a t = 'a * int}), +\item[-- ] +mutually recursive combinations of the above (excepting abbreviations), +\item[-- ] +exceptions, and values; +\end{vtightlist} +\item +expressions for type annotations, sequencing, and primitive values\\ +(functions, lists, tuples, and records); +\item +\texttt{with} (record update), \texttt{if}, \texttt{while}, \texttt{for}, \texttt{assert}, \texttt{try}, and \texttt{raise} expressions; +\item +let-based polymorphism with an SML-style value restriction; +\item +mutually-recursive function definitions via \texttt{let rec}; +\item +pattern matching, with nested patterns, \texttt{as} patterns, and ``or'' (\texttt{|})patterns; +\item +mutable references with \texttt{ref}, \texttt{!}, and \texttt{:=}; +\item +polymorphic equality (the Objective Caml \texttt{=} operator); +\item +31-bit word semantics for \texttt{int}s (using an existing HOL library); and +\item +IEEE-754 semantics for \texttt{float}s (using an existing HOL library). +\end{vtightlist} +\end{minipage} +} + +\vspace{3mm} + +\hspace*{-1.5cm}\scalebox{.25}{ +%\framebox{ +\begin{minipage}[t]{19cm} +%\ottdefnsJdomEB +%\ottdefnsJdomE +%\ottdefnsJlookup +%\ottdefnsJidx +%\ottdefnsJTtpsXXkind +\ottdefnsJTEok +\ottdefnsJTeq +\ottdefnsJTidxsub +\end{minipage}} +% +\scalebox{.25}{ +%\framebox{ +\begin{minipage}[t]{19cm} +\ottdefnsJTinst +\ottdefnsJTinstXXnamed +\ottdefnsJTinstXXany +\ottdefnsJTval +\ottdefnsJTfield +\ottdefnsJTconstrXXp +\ottdefnsJTconstrXXc +\ottdefnsJTconst +\ottdefnsJTpat +\end{minipage} +} +% +\scalebox{.25}{ +\begin{minipage}[t]{19cm} +\ottdefnsJTuprim +\ottdefnsJTbprim +\ottdefnsJTe +\end{minipage} +} +% +\scalebox{.25}{ +\begin{minipage}[t]{19cm} +\ottdefnsJTconstrXXdecl +\ottdefnsJTfieldXXdecl +\ottdefnsJTtypedef +\ottdefnsJTtypeXXdefinition +\ottdefnsJTdefinition +\ottdefnsJTdefinitions +\ottdefnsJTprog +\ottdefnsJTstore +\ottdefnsJTtop +\ottdefnsJTLin +\ottdefnsJTLout +\end{minipage} +} + +\newpage + +{\pmc\sf\Large The OCaml$_{\textit{light}}$ Operational Semantics + {\large (131 rules)}} + +\scalebox{.3}{ +%\framebox{ +\begin{minipage}{29.7cm} +\ottdefnsJmatchP +\ottdefnsJmatch +\ottdefnsJrecfun +\ottdefnsJfunval +\ottdefnsJRuprim +\ottdefnsJRbprim +\ottdefnsJRmatchingXXstep +\ottdefnsJRmatchingXXsuccess +\ottdefnsJRstore +\ottdefnsJSlookup +\end{minipage} +}%} +\scalebox{.3}{ +%\framebox{ +\begin{minipage}{29.7cm} +\ottdefnsJred +\ottdefnsJRdefn +\ottdefnsJRtop +\end{minipage} +}%} + + + +\end{document} diff --git a/vendors/ott/examples/ocaml_light/doc/postercore.sty b/vendors/ott/examples/ocaml_light/doc/postercore.sty new file mode 100644 index 000000000000..f48c1d6baecf --- /dev/null +++ b/vendors/ott/examples/ocaml_light/doc/postercore.sty @@ -0,0 +1,41 @@ +\newcommand{\postertitle}[2]{ + \newlength{\cuniw} % + \settowidth{\cuniw}{% + \includegraphics{CUni4.eps}}% + +{\setlength{\arraycolsep}{0pt} + \renewcommand{\arraystretch}{1.0} + \setlength{\extrarowheight}{0pt} + #1 + {\sf\pmc #2} % +\hfill %\raisebox{-0.65mm}{\epsfig{file=/home/pes20/Posters/col.exstuf/CUni4.eps}} +% +\makebox[\cuniw][l]{ + \large + \raisebox{-0.65mm}[\height][0pt]{$ + \begin{array}{l}% + \raisebox{-\depth}[\totalheight][0pt]{ + \includegraphics{CUni4.eps} }\\ + \raisebox{-2.0mm}[0.0cm][0.0cm]{ + \makebox[\cuniw][l]{$ + \begin{array}{l} + \resizebox{\cuniw}{!}{\large Computer Laboratory}\\ + \resizebox{\cuniw}{!}{\large Theory and Semantics Group} + \end{array}$}} + \end{array}$}} +}} + + + +\newcommand{\postersubtitle}[1]{ + \vspace{1.0mm} {\large\sf\pmc #1}} + +\newcommand{\posterpeople}[1]{ + +{\large\sf\pmc#1}\vspace{2.0mm}} + + +\newcommand{\posterfooter}[1]{\hfill{\scriptsize{\textsf{#1}}}} + +\newcommand{\posterTSGfooter}{\posterfooter{http://www.cl.cam.ac.uk/Research/TSG}} + diff --git a/vendors/ott/examples/ocaml_light/doc/splncs.bst b/vendors/ott/examples/ocaml_light/doc/splncs.bst new file mode 100644 index 000000000000..4d3b9de344b8 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/doc/splncs.bst @@ -0,0 +1,1098 @@ +% BibTeX bibliography style `splncs' + +% An attempt to match the bibliography style required for use with +% numbered references in Springer Verlag's "Lecture Notes in Computer +% Science" series. (See Springer's documentation for llncs.sty for +% more details of the suggested reference format.) Note that this +% file will not work for author-year style citations. + +% Use \documentclass{llncs} and \bibliographystyle{splncs}, and cite +% a reference with (e.g.) \cite{smith77} to get a "[1]" in the text. + +% Copyright (C) 1999 Jason Noble. +% Last updated: Friday 07 March 2006, 08:04:42 Frank Holzwarth, Springer +% +% Based on the BibTeX standard bibliography style `unsrt' + +ENTRY + { address + author + booktitle + chapter + edition + editor + howpublished + institution + journal + key + month + note + number + organization + pages + publisher + school + series + title + type + volume + year + } + {} + { label } + +INTEGERS { output.state before.all mid.sentence after.sentence + after.block after.authors between.elements} + +FUNCTION {init.state.consts} +{ #0 'before.all := + #1 'mid.sentence := + #2 'after.sentence := + #3 'after.block := + #4 'after.authors := + #5 'between.elements := +} + +STRINGS { s t } + +FUNCTION {output.nonnull} +{ 's := + output.state mid.sentence = + { " " * write$ } + { output.state after.block = + { add.period$ write$ + newline$ + "\newblock " write$ + } + { + output.state after.authors = + { ": " * write$ + newline$ + "\newblock " write$ + } + { output.state between.elements = + { ", " * write$ } + { output.state before.all = + 'write$ + { add.period$ " " * write$ } + if$ + } + if$ + } + if$ + } + if$ + mid.sentence 'output.state := + } + if$ + s +} + +FUNCTION {output} +{ duplicate$ empty$ + 'pop$ + 'output.nonnull + if$ +} + +FUNCTION {output.check} +{ 't := + duplicate$ empty$ + { pop$ "empty " t * " in " * cite$ * warning$ } + 'output.nonnull + if$ +} + +FUNCTION {output.bibitem} +{ newline$ + "\bibitem{" write$ + cite$ write$ + "}" write$ + newline$ + "" + before.all 'output.state := +} + +FUNCTION {fin.entry} +{ write$ + newline$ +} + +FUNCTION {new.block} +{ output.state before.all = + 'skip$ + { after.block 'output.state := } + if$ +} + +FUNCTION {stupid.colon} +{ after.authors 'output.state := } + +FUNCTION {insert.comma} +{ output.state before.all = + 'skip$ + { between.elements 'output.state := } + if$ +} + +FUNCTION {new.sentence} +{ output.state after.block = + 'skip$ + { output.state before.all = + 'skip$ + { after.sentence 'output.state := } + if$ + } + if$ +} + +FUNCTION {not} +{ { #0 } + { #1 } + if$ +} + +FUNCTION {and} +{ 'skip$ + { pop$ #0 } + if$ +} + +FUNCTION {or} +{ { pop$ #1 } + 'skip$ + if$ +} + +FUNCTION {new.block.checka} +{ empty$ + 'skip$ + 'new.block + if$ +} + +FUNCTION {new.block.checkb} +{ empty$ + swap$ empty$ + and + 'skip$ + 'new.block + if$ +} + +FUNCTION {new.sentence.checka} +{ empty$ + 'skip$ + 'new.sentence + if$ +} + +FUNCTION {new.sentence.checkb} +{ empty$ + swap$ empty$ + and + 'skip$ + 'new.sentence + if$ +} + +FUNCTION {field.or.null} +{ duplicate$ empty$ + { pop$ "" } + 'skip$ + if$ +} + +FUNCTION {emphasize} +{ duplicate$ empty$ + { pop$ "" } + { "" swap$ * "" * } + if$ +} + +FUNCTION {bold} +{ duplicate$ empty$ + { pop$ "" } + { "\textbf{" swap$ * "}" * } + if$ +} + +FUNCTION {parens} +{ duplicate$ empty$ + { pop$ "" } + { "(" swap$ * ")" * } + if$ +} + +INTEGERS { nameptr namesleft numnames } + +FUNCTION {format.springer.names} +{ 's := + #1 'nameptr := + s num.names$ 'numnames := + numnames 'namesleft := + { namesleft #0 > } + { s nameptr "{vv~}{ll}{, jj}{, f{.}.}" format.name$ 't := + nameptr #1 > + { namesleft #1 > + { ", " * t * } + { numnames #1 > + { ", " * } + 'skip$ + if$ + t "others" = + { " et~al." * } + { "" * t * } + if$ + } + if$ + } + 't + if$ + nameptr #1 + 'nameptr := + namesleft #1 - 'namesleft := + } + while$ +} + +FUNCTION {format.names} +{ 's := + #1 'nameptr := + s num.names$ 'numnames := + numnames 'namesleft := + { namesleft #0 > } + { s nameptr "{vv~}{ll}{, jj}{, f.}" format.name$ 't := + nameptr #1 > + { namesleft #1 > + { ", " * t * } + { numnames #2 > + { "," * } + 'skip$ + if$ + t "others" = + { " et~al." * } + { " \& " * t * } + if$ + } + if$ + } + 't + if$ + nameptr #1 + 'nameptr := + namesleft #1 - 'namesleft := + } + while$ +} + +FUNCTION {format.authors} +{ author empty$ + { "" } + { author format.springer.names } + if$ +} + +FUNCTION {format.editors} +{ editor empty$ + { "" } + { editor format.springer.names + editor num.names$ #1 > + { ", eds." * } + { ", ed." * } + if$ + } + if$ +} + +FUNCTION {format.title} +{ title empty$ + { "" } + { title "t" change.case$ } + if$ +} + +FUNCTION {n.dashify} +{ 't := + "" + { t empty$ not } + { t #1 #1 substring$ "-" = + { t #1 #2 substring$ "--" = not + { "--" * + t #2 global.max$ substring$ 't := + } + { { t #1 #1 substring$ "-" = } + { "-" * + t #2 global.max$ substring$ 't := + } + while$ + } + if$ + } + { t #1 #1 substring$ * + t #2 global.max$ substring$ 't := + } + if$ + } + while$ +} + +FUNCTION {format.date} +{ year empty$ + { month empty$ + { "" } + { "there's a month but no year in " cite$ * warning$ + month + } + if$ + } + { month empty$ + 'year + { month " " * year * } + if$ + } + if$ +} + +FUNCTION {format.btitle} +{ title emphasize +} + +FUNCTION {tie.or.space.connect} +{ duplicate$ text.length$ #3 < + { "~" } + { " " } + if$ + swap$ * * +} + +FUNCTION {either.or.check} +{ empty$ + 'pop$ + { "can't use both " swap$ * " fields in " * cite$ * warning$ } + if$ +} + +FUNCTION {format.bvolume} +{ volume empty$ + { "" } + { "Volume" volume tie.or.space.connect + series empty$ + 'skip$ + { " of " * series emphasize * } + if$ + add.period$ + "volume and number" number either.or.check + } + if$ +} + +FUNCTION {format.number.series} +{ volume empty$ + { number empty$ + { series field.or.null } + { output.state mid.sentence = + { "number" } + { "Number" } + if$ + number tie.or.space.connect + series empty$ + { "there's a number but no series in " cite$ * warning$ } + { " in " * series * } + if$ + } + if$ + } + { "" } + if$ +} + +FUNCTION {format.edition} +{ edition empty$ + { "" } + { output.state mid.sentence = + { edition "l" change.case$ " edn." * } + { edition "t" change.case$ " edn." * } + if$ + } + if$ +} + +INTEGERS { multiresult } + +FUNCTION {multi.page.check} +{ 't := + #0 'multiresult := + { multiresult not + t empty$ not + and + } + { t #1 #1 substring$ + duplicate$ "-" = + swap$ duplicate$ "," = + swap$ "+" = + or or + { #1 'multiresult := } + { t #2 global.max$ substring$ 't := } + if$ + } + while$ + multiresult +} + +FUNCTION {format.pages} +{ pages empty$ + { "" } + { pages multi.page.check + { "" pages n.dashify tie.or.space.connect } + { "" pages tie.or.space.connect } + if$ + } + if$ +} + +FUNCTION {format.vol} +{ volume bold +} + +FUNCTION {format.vol.num} +{ volume bold +number empty$ +{ } +{ number "(" swap$ * * ")" * } +if$ +} + +FUNCTION {pre.format.pages} +{ pages empty$ + 'skip$ + { duplicate$ empty$ + { pop$ format.pages } + { " " * pages n.dashify * } + if$ + } + if$ +} + +FUNCTION {format.chapter.pages} +{ chapter empty$ + 'format.pages + { type empty$ + { "chapter" } + { type "l" change.case$ } + if$ + chapter tie.or.space.connect + pages empty$ + 'skip$ + { " " * format.pages * } + if$ + } + if$ +} + +FUNCTION {format.in.ed.booktitle} +{ booktitle empty$ + { "" } + { editor empty$ + { "In: " booktitle emphasize * } + { "In " format.editors * ": " * booktitle emphasize * } + if$ + } + if$ +} + +FUNCTION {empty.misc.check} +{ author empty$ title empty$ howpublished empty$ + month empty$ year empty$ note empty$ + and and and and and + { "all relevant fields are empty in " cite$ * warning$ } + 'skip$ + if$ +} + +FUNCTION {format.thesis.type} +{ type empty$ + 'skip$ + { pop$ + type "t" change.case$ + } + if$ +} + +FUNCTION {format.tr.number} +{ type empty$ + { "Technical Report" } + 'type + if$ + number empty$ + { "t" change.case$ } + { number tie.or.space.connect } + if$ +} + +FUNCTION {format.article.crossref} +{ key empty$ + { journal empty$ + { "need key or journal for " cite$ * " to crossref " * crossref * + warning$ + "" + } + { "In {\em " journal * "\/}" * } + if$ + } + { "In " key * } + if$ + " \cite{" * crossref * "}" * +} + +FUNCTION {format.crossref.editor} +{ editor #1 "{vv~}{ll}" format.name$ + editor num.names$ duplicate$ + #2 > + { pop$ " et~al." * } + { #2 < + 'skip$ + { editor #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" = + { " et~al." * } + { " and " * editor #2 "{vv~}{ll}" format.name$ * } + if$ + } + if$ + } + if$ +} + +FUNCTION {format.book.crossref} +{ volume empty$ + { "empty volume in " cite$ * "'s crossref of " * crossref * warning$ + "In " + } + { "Volume" volume tie.or.space.connect + " of " * + } + if$ + " \cite{" * crossref * "}" * +} + +FUNCTION {format.incoll.inproc.crossref} +{ editor empty$ + editor field.or.null author field.or.null = + or + { key empty$ + { booktitle empty$ + { "need editor, key, or booktitle for " cite$ * " to crossref " * + crossref * warning$ + "" + } + { "" } + if$ + } + { "" } + if$ + } + { "" } + if$ + " \cite{" * crossref * "}" * +} + +FUNCTION {and.the.note} +{ note output + note empty$ + 'skip$ + { add.period$ } + if$ +} + +FUNCTION {article} +{ output.bibitem + format.authors "author" output.check + stupid.colon + format.title "title" output.check + new.block + crossref missing$ + { journal emphasize "journal" output.check + format.vol.num output + format.date parens output + format.pages output + } + { format.article.crossref output.nonnull + format.pages output + } + if$ + and.the.note + fin.entry +} + +FUNCTION {book} +{ output.bibitem + author empty$ + { format.editors "author and editor" output.check } + { format.authors output.nonnull + crossref missing$ + { "author and editor" editor either.or.check } + 'skip$ + if$ + } + if$ + stupid.colon + format.btitle "title" output.check + new.sentence + crossref missing$ + { format.edition output + format.bvolume output + new.block + format.number.series output + new.sentence + publisher "publisher" output.check + address empty$ + 'skip$ + { insert.comma } + if$ + address output + format.date parens output + } + { format.book.crossref output.nonnull + } + if$ + and.the.note + fin.entry +} + +FUNCTION {booklet} +{ output.bibitem + format.authors output + stupid.colon + format.title "title" output.check + howpublished address new.block.checkb + howpublished output + address empty$ + 'skip$ + { insert.comma } + if$ + address output + format.date parens output + and.the.note + fin.entry +} + +FUNCTION {inbook} +{ output.bibitem + author empty$ + { format.editors "author and editor" output.check } + { format.authors output.nonnull + crossref missing$ + { "author and editor" editor either.or.check } + 'skip$ + if$ + } + if$ + stupid.colon + crossref missing$ + { chapter output + new.block + format.number.series output + new.sentence + "In:" output + format.btitle "title" output.check + new.sentence + format.edition output + format.bvolume output + publisher "publisher" output.check + address empty$ + 'skip$ + { insert.comma } + if$ + address output + format.date parens output + } + { chapter output + new.block + format.incoll.inproc.crossref output.nonnull + } + if$ + format.pages output + and.the.note + fin.entry +} + +FUNCTION {incollection} +{ output.bibitem + format.authors "author" output.check + stupid.colon + format.title "title" output.check + new.block + crossref missing$ + { format.in.ed.booktitle "booktitle" output.check + new.sentence + format.bvolume output + format.number.series output + new.block + format.edition output + publisher "publisher" output.check + address empty$ + 'skip$ + { insert.comma } + if$ + address output + format.date parens output + format.pages output + } + { format.incoll.inproc.crossref output.nonnull + format.chapter.pages output + } + if$ + and.the.note + fin.entry +} + +FUNCTION {inproceedings} +{ output.bibitem + format.authors "author" output.check + stupid.colon + format.title "title" output.check + new.block + crossref missing$ + { format.in.ed.booktitle "booktitle" output.check + new.sentence + format.bvolume output + format.number.series output + address empty$ + { organization publisher new.sentence.checkb + organization empty$ + 'skip$ + { insert.comma } + if$ + organization output + publisher empty$ + 'skip$ + { insert.comma } + if$ + publisher output + format.date parens output + } + { insert.comma + address output.nonnull + organization empty$ + 'skip$ + { insert.comma } + if$ + organization output + publisher empty$ + 'skip$ + { insert.comma } + if$ + publisher output + format.date parens output + } + if$ + } + { format.incoll.inproc.crossref output.nonnull + } + if$ + format.pages output + and.the.note + fin.entry +} + +FUNCTION {conference} { inproceedings } + +FUNCTION {manual} +{ output.bibitem + author empty$ + { organization empty$ + 'skip$ + { organization output.nonnull + address output + } + if$ + } + { format.authors output.nonnull } + if$ + stupid.colon + format.btitle "title" output.check + author empty$ + { organization empty$ + { address new.block.checka + address output + } + 'skip$ + if$ + } + { organization address new.block.checkb + organization output + address empty$ + 'skip$ + { insert.comma } + if$ + address output + } + if$ + new.sentence + format.edition output + format.date parens output + and.the.note + fin.entry +} + +FUNCTION {mastersthesis} +{ output.bibitem + format.authors "author" output.check + stupid.colon + format.title "title" output.check + new.block + "Master's thesis" format.thesis.type output.nonnull + school empty$ + 'skip$ + { insert.comma } + if$ + school "school" output.check + address empty$ + 'skip$ + { insert.comma } + if$ + address output + format.date parens output + and.the.note + fin.entry +} + +FUNCTION {misc} +{ output.bibitem + format.authors "author" output.check + stupid.colon + format.title "title" output.check + howpublished new.block.checka + howpublished output + format.date parens output + and.the.note + fin.entry + empty.misc.check +} + +FUNCTION {phdthesis} +{ output.bibitem + format.authors "author" output.check + stupid.colon + format.btitle "title" output.check + new.block + "PhD thesis" format.thesis.type output.nonnull + school empty$ + 'skip$ + { insert.comma } + if$ + school "school" output.check + address empty$ + 'skip$ + { insert.comma } + if$ + address output + format.date parens output + and.the.note + fin.entry +} + +FUNCTION {proceedings} +{ output.bibitem + editor empty$ + { organization empty$ + { "" } + { organization output + stupid.colon } + if$ + } + { format.editors output.nonnull + stupid.colon + } + if$ + format.btitle "title" output.check + new.block + crossref missing$ + { format.in.ed.booktitle "booktitle" output.check + new.sentence + format.bvolume output + format.number.series output + address empty$ + { organization publisher new.sentence.checkb + organization empty$ + 'skip$ + { insert.comma } + if$ + organization output + publisher empty$ + 'skip$ + { insert.comma } + if$ + publisher output + format.date parens output + } + { insert.comma + address output.nonnull + organization empty$ + 'skip$ + { insert.comma } + if$ + organization output + publisher empty$ + 'skip$ + { insert.comma } + if$ + publisher output + format.date parens output + } + if$ + } + { format.incoll.inproc.crossref output.nonnull + } + if$ + and.the.note + fin.entry +} + +FUNCTION {techreport} +{ output.bibitem + format.authors "author" output.check + stupid.colon + format.title "title" output.check + new.block + format.tr.number output.nonnull + institution empty$ + 'skip$ + { insert.comma } + if$ + institution "institution" output.check + address empty$ + 'skip$ + { insert.comma } + if$ + address output + format.date parens output + and.the.note + fin.entry +} + +FUNCTION {unpublished} +{ output.bibitem + format.authors "author" output.check + stupid.colon + format.title "title" output.check + new.block + note "note" output.check + format.date parens output + fin.entry +} + +FUNCTION {default.type} { misc } + +MACRO {jan} {"January"} + +MACRO {feb} {"February"} + +MACRO {mar} {"March"} + +MACRO {apr} {"April"} + +MACRO {may} {"May"} + +MACRO {jun} {"June"} + +MACRO {jul} {"July"} + +MACRO {aug} {"August"} + +MACRO {sep} {"September"} + +MACRO {oct} {"October"} + +MACRO {nov} {"November"} + +MACRO {dec} {"December"} + +MACRO {acmcs} {"ACM Computing Surveys"} + +MACRO {acta} {"Acta Informatica"} + +MACRO {cacm} {"Communications of the ACM"} + +MACRO {ibmjrd} {"IBM Journal of Research and Development"} + +MACRO {ibmsj} {"IBM Systems Journal"} + +MACRO {ieeese} {"IEEE Transactions on Software Engineering"} + +MACRO {ieeetc} {"IEEE Transactions on Computers"} + +MACRO {ieeetcad} + {"IEEE Transactions on Computer-Aided Design of Integrated Circuits"} + +MACRO {ipl} {"Information Processing Letters"} + +MACRO {jacm} {"Journal of the ACM"} + +MACRO {jcss} {"Journal of Computer and System Sciences"} + +MACRO {scp} {"Science of Computer Programming"} + +MACRO {sicomp} {"SIAM Journal on Computing"} + +MACRO {tocs} {"ACM Transactions on Computer Systems"} + +MACRO {tods} {"ACM Transactions on Database Systems"} + +MACRO {tog} {"ACM Transactions on Graphics"} + +MACRO {toms} {"ACM Transactions on Mathematical Software"} + +MACRO {toois} {"ACM Transactions on Office Information Systems"} + +MACRO {toplas} {"ACM Transactions on Programming Languages and Systems"} + +MACRO {tcs} {"Theoretical Computer Science"} + +READ + +STRINGS { longest.label } + +INTEGERS { number.label longest.label.width } + +FUNCTION {initialize.longest.label} +{ "" 'longest.label := + #1 'number.label := + #0 'longest.label.width := +} + +FUNCTION {longest.label.pass} +{ number.label int.to.str$ 'label := + number.label #1 + 'number.label := + label width$ longest.label.width > + { label 'longest.label := + label width$ 'longest.label.width := + } + 'skip$ + if$ +} + +EXECUTE {initialize.longest.label} + +ITERATE {longest.label.pass} + +FUNCTION {begin.bib} +{ preamble$ empty$ + 'skip$ + { preamble$ write$ newline$ } + if$ + "\begin{thebibliography}{" longest.label * "}" * write$ newline$ +} + +EXECUTE {begin.bib} + +EXECUTE {init.state.consts} + +ITERATE {call.type$} + +FUNCTION {end.bib} +{ newline$ + "\end{thebibliography}" write$ newline$ +} + +EXECUTE {end.bib} + + + diff --git a/vendors/ott/examples/ocaml_light/funex.ott b/vendors/ott/examples/ocaml_light/funex.ott new file mode 100644 index 000000000000..9088162c1238 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/funex.ott @@ -0,0 +1,190 @@ +funs +envF ::= + +fun +dom ( EB ) :: name :: domEB by + +dom(TV) === TV +dom(value_name:typescheme) === value_name +dom(constr_name of typeconstr) === constr_name +dom(constr_name of forall type_params_opt, (t1, ..., tn) : typeconstr) === constr_name +dom(typeconstr_name:kind) === typeconstr_name +dom(type_params_opt typeconstr_name = t) === typeconstr_name +dom(typeconstr_name : kind {field_name1; ...; field_namen}) === typeconstr_name +dom(field_name:forall type_params_opt, typeconstr_name -> typexpr) === field_name +dom(location:t) === location + + +%fun +%dom ( E ) :: name1 .. namen :: domE by + +%dom(empty) === +%dom(E,EB) === dom(E) dom(EB) + +%fun +%lookup ( E , name ) :: EB option :: lookupE by + +%val lookup_def = Define +%`(lookup [] name = NONE) /\ +% (lookup (EB::E) name = +% if domEB EB = name then +% SOME EB +% else OPTION_MAP (\EB2. shiftEB 0 (if domEB EB = name_tv then 1 else 0) EB2) (lookup E name))`; + + +funs +indexF ::= + +%fun +%idx_bound ( E , idx ) :: bool :: idx_bound by + +%val idx_bound_def = Define +%`(idx_bound [] idx = F) /\ +% (idx_bound (EB_tv::E) 0 = T) /\ +% (idx_bound (EB_tv::E) (SUC n2) = idx_bound E n2) /\ +% (idx_bound (_::E) n = idx_bound E n)`; + +fun +shift m n typexpr' :: typexpr :: shiftt by + +shift m n typevar === typevar +shift m n === if idx < m then else +shift m n _ === _ +shift m n typexpr1->typexpr2 === (shift m n typexpr1)->(shift m n typexpr2) +shift m n typexpr1 * .... * typexprn === shift m n typexpr1 * .... * shift m n typexprn +shift m n (typexpr1, ..., typexprn) typeconstr === (shift m n typexpr1, ..., shift m n typexprn) typeconstr + +fun +shift m n typexprs' :: typexprs :: shifttes by + +shift m n typexpr1, ..., typexprn === shift m n typexpr1, ..., shift m n typexprn + +fun +shift m n typescheme' :: typescheme :: shiftts by + +shift m n forall typexpr === forall shift (m+1) n typexpr + +fun +shift m n EB' :: EB :: shiftEB by + +shift m n TV === TV +shift m n value_name:typescheme === value_name : shift m n typescheme +shift m n constr_name of typeconstr === constr_name of typeconstr +shift m n constr_name of forall type_params_opt, (typexprs) : typeconstr === constr_name of forall type_params_opt, (shift m n typexprs) : typeconstr +shift m n field_name:forall type_params_opt, typeconstr_name -> typexpr === field_name:forall type_params_opt, typeconstr_name -> shift m n typexpr +shift m n typeconstr_name:kind === typeconstr_name:kind +shift m n typeconstr_name : kind {field_name1; ...; field_namen} === typeconstr_name : kind {field_name1; ...; field_namen} +shift m n type_params_opt typeconstr_name = typexpr === type_params_opt typeconstr_name = shift m n typexpr +shift m n location: typexpr === location: shift m n typexpr + +%fun +%num_tv E :: intn :: num_tv by + +%num_tv [] === 0 +%num_tv E,EB = if EB = TV then 1 + num_tv E else num_tv E + +fun +shift m n E' :: E :: shiftE by + +shift m n === +shift m n E,EB === shift m n E , shift (m + num_tv E) n EB + +fun +shift m n Tsigma' :: Tsigma :: shiftTsig by +shift m n <> === <> + + +funs +redF ::= + +%fun +%recfun letrec_bindings pattern_matching :: expr :: recfun by + +%val recfun_def = Define +%`recfun (LRBs_inj letrec_bindings) pattern_matching = +% (substs_value_name_expr +% (MAP (\letrec_binding. case letrec_binding of +% LRB_simple x pattern_matching -> +% (x , Expr_letrec (LRBs_inj letrec_bindings) +% (Expr_ident x))) +% letrec_bindings) +% (Expr_function pattern_matching))`; + +fun +snoc definitions' definition :: definitions :: definitions_snoc by + +snoc d === d;; +snoc d;;ds d' === d;;snoc ds d' + +funs +remv_tyvarF ::= + +fun +remv_tyvar typexpr' :: typexpr :: remv_tyvar_typexpr by + +remv_tyvar typevar === _ +remv_tyvar === +remv_tyvar _ === _ +remv_tyvar typexpr1 -> typexpr2 === remv_tyvar typexpr1 -> remv_tyvar typexpr2 +remv_tyvar typexpr1 * .... * typexprn === remv_tyvar typexpr1 * .... * remv_tyvar typexprn +remv_tyvar (typexpr1, .., typexprn) typeconstr === (remv_tyvar typexpr1, .., remv_tyvar typexprn) typeconstr + +fun +remv_tyvar pattern' :: pattern :: remv_tyvar_pattern by + +remv_tyvar value_name === value_name +remv_tyvar _ === _ +remv_tyvar constant === constant +remv_tyvar pattern as value_name === remv_tyvar pattern as value_name +remv_tyvar (pattern : typexpr) === (remv_tyvar pattern : typexpr) +remv_tyvar pattern1 | pattern2 === remv_tyvar pattern1 | remv_tyvar pattern2 +remv_tyvar constr (pattern1, ..., patternn) === constr (remv_tyvar pattern1, ..., remv_tyvar patternn) +remv_tyvar constr _ === constr _ +remv_tyvar pattern1, ...., patternn === remv_tyvar pattern1, ...., remv_tyvar patternn +remv_tyvar {field1 = pattern1; ...; fieldn = patternn} === {field1 = remv_tyvar pattern1; ...; fieldn = remv_tyvar patternn} +remv_tyvar pattern1 :: pattern2 === remv_tyvar pattern1 :: remv_tyvar pattern2 + + +fun +remv_tyvar expr' :: expr :: remv_tyvar_expr by + +remv_tyvar (%prim unary_prim) === (%prim unary_prim) +remv_tyvar (%prim binary_prim) === (%prim binary_prim) +remv_tyvar value_name === value_name +remv_tyvar constant === constant +remv_tyvar (expr : typexpr) === (remv_tyvar expr : remv_tyvar typexpr) +remv_tyvar expr1, ...., exprn === remv_tyvar expr1, ...., remv_tyvar exprn +remv_tyvar constr (expr1, .., exprn) === constr (remv_tyvar expr1, .., remv_tyvar exprn) +remv_tyvar expr1 :: expr2 === remv_tyvar expr1 :: remv_tyvar expr2 +remv_tyvar {field1 = expr1; ...; fieldn = exprn} === {field1 = remv_tyvar expr1; ...; fieldn = remv_tyvar exprn} +remv_tyvar {expr with field1 = expr1; ...; fieldn = exprn} === {remv_tyvar expr with field1 = remv_tyvar expr1; ...; fieldn = remv_tyvar exprn} +remv_tyvar expr1 expr2 === remv_tyvar expr1 remv_tyvar expr2 +remv_tyvar expr1 && expr2 === remv_tyvar expr1 && remv_tyvar expr2 +remv_tyvar expr1 || expr2 === remv_tyvar expr1 || remv_tyvar expr2 +remv_tyvar expr.field === remv_tyvar expr . field +remv_tyvar if expr0 then expr1 else expr2 === if remv_tyvar expr0 then remv_tyvar expr1 else remv_tyvar expr2 +remv_tyvar while expr1 do expr2 done === while remv_tyvar expr1 do remv_tyvar expr2 done +remv_tyvar for x = expr1 for_dirn expr2 do expr3 done === for x = remv_tyvar expr1 for_dirn remv_tyvar expr2 do remv_tyvar expr3 done +remv_tyvar expr1 ; expr2 === remv_tyvar expr1; remv_tyvar expr2 +remv_tyvar match expr with pattern_matching === match remv_tyvar expr with remv_tyvar pattern_matching +remv_tyvar function pattern_matching === function remv_tyvar pattern_matching +remv_tyvar try expr with pattern_matching === try remv_tyvar expr with remv_tyvar pattern_matching +remv_tyvar let let_binding in expr === let remv_tyvar let_binding in remv_tyvar expr +remv_tyvar let rec letrec_bindings in expr === let rec remv_tyvar letrec_bindings in remv_tyvar expr +remv_tyvar assert expr === assert remv_tyvar expr +remv_tyvar location === location + +fun +remv_tyvar pattern_matching' :: pattern_matching :: remv_tyvar_pattern_matching by + +remv_tyvar pattern1->expr1 | ... | patternn->exprn === remv_tyvar pattern1->remv_tyvar expr1 | ... | remv_tyvar patternn->remv_tyvar exprn + +fun +remv_tyvar let_binding' :: let_binding :: remv_tyvar_let_binding by + +remv_tyvar pattern = expr === remv_tyvar pattern = remv_tyvar expr + +fun +remv_tyvar letrec_bindings' :: letrec_bindings :: remv_tyvar_letrec_bindings by + +remv_tyvar value_name1 = function pattern_matching1 and ... and value_namen = function pattern_matchingn === value_name1 = function remv_tyvar pattern_matching1 and ... and value_namen = function remv_tyvar pattern_matchingn diff --git a/vendors/ott/examples/ocaml_light/hol/basicScript.sml b/vendors/ott/examples/ocaml_light/hol/basicScript.sml new file mode 100644 index 000000000000..4b44e9a5d49f --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/basicScript.sml @@ -0,0 +1,872 @@ +open HolKernel boolLib bossLib IndDefLib IndDefRules listTheory optionTheory relationTheory pairTheory +open rich_listTheory combinTheory; +open ottTheory ottLib caml_typedefTheory; +open utilTheory shiftTheory; + +val _ = new_theory "basic"; + +val OPTION_MAP_I = Q.prove ( +`!x. OPTION_MAP (\y . y) x = x`, +Cases THEN SRW_TAC [] []); + +val domEB_def = Define +`(domEB EB_tv = name_tv) /\ + (domEB (EB_vn value_name typescheme) = name_vn value_name) /\ + (domEB (EB_cc constr_name typeconstr) = name_cn constr_name) /\ + (domEB (EB_pc constr_name type_params_opt t_list typeconstr) = name_cn constr_name) /\ + (domEB (EB_td typeconstr_name kind) = name_tcn typeconstr_name) /\ + (domEB (EB_ta type_params_opt typeconstr_name t) = name_tcn typeconstr_name) /\ + (domEB (EB_tr typeconstr_name kind field_name_list) = name_tcn typeconstr_name) /\ + (domEB (EB_fn field_name type_params_opt typeconstr_name typexpr) = name_fn field_name) /\ + (domEB (EB_l location t) = name_l location)`; + +val domEB_thm = Q.prove ( +`!EB name. JdomEB EB name = (domEB EB = name)`, +Cases THEN SRW_TAC [] [JdomEB_cases, domEB_def, clause_name_def] THEN METIS_TAC [typexprs_nchotomy]); + +val domE_thm = Q.prove ( +`!E names. JdomE E names = (MAP domEB E = names)`, +Induct THENL +[SRW_TAC [] [Once JdomE_cases, clause_name_def] THEN METIS_TAC [], + SRW_TAC [] [Once JdomE_cases, domEB_thm, clause_name_def] THEN METIS_TAC []]); + +val lookup_def = Define +`(lookup [] name = NONE) /\ + (lookup (EB::E) name = + if domEB EB = name then + SOME EB + else OPTION_MAP (\EB2. shiftEB 0 (if domEB EB = name_tv then 1 else 0) EB2) (lookup E name))`; + +val lookup_append_thm = Q.store_thm ("lookup_append_thm", +`!E1 E2 name. lookup (E1++E2) name = + case lookup E1 name of + NONE -> OPTION_MAP (\EB. shiftEB 0 (num_tv E1) EB) (lookup E2 name) + || SOME EB -> SOME EB`, +Induct THEN SRW_TAC [] [lookup_def, num_tv_def, OPTION_MAP_I, shiftEB_add_thm] THEN +Cases_on `lookup E1 name` THEN FULL_SIMP_TAC list_ss [] THEN Cases_on `lookup E2 name` THEN +SRW_TAC [] [] THEN Cases_on `h` THEN SRW_TAC [] [num_tv_def, shiftEB_add_thm] THEN +FULL_SIMP_TAC list_ss [domEB_def] THEN SRW_TAC [] []); + +val lookup_dom_thm = Q.store_thm ("lookup_dom_thm", +`!E name. (MEM name (MAP domEB E) = ?EB. lookup E name = SOME EB) /\ + (~MEM name (MAP domEB E) = (lookup E name = NONE))`, +Induct THEN SRW_TAC [] [lookup_def] THEN METIS_TAC [NOT_SOME_NONE]); + +val lookup_thm = Q.prove ( +`!E name EB. Jlookup_EB E name EB = (lookup E name = SOME EB)`, +Induct THENL [ +SRW_TAC [] [Once Jlookup_EB_cases, lookup_def, clause_name_def], +SIMP_TAC list_ss [Once Jlookup_EB_cases] THEN Cases THEN + SRW_TAC [] [lookup_def, domE_thm, domEB_thm, clause_name_def] THEN EQ_TAC THEN + SRW_TAC [] [domEB_def] THEN + FULL_SIMP_TAC list_ss [domEB_def, name_distinct, name_11, shiftEB_add_thm]]); + +val idx_bound_def = Define +`(idx_bound [] idx = F) /\ + (idx_bound (EB_tv::E) 0 = T) /\ + (idx_bound (EB_tv::E) (SUC n2) = idx_bound E n2) /\ + (idx_bound (_::E) n = idx_bound E n)`; + +val idx_bound_thm = Q.prove ( +`!E idx num. Jidx_bound E idx = idx_bound E idx`, +Induct THENL [ +SRW_TAC [] [Once Jidx_bound_cases, idx_bound_def], +SRW_TAC [] [Once Jidx_bound_cases, idx_bound_def, clause_name_def] THEN +Cases_on `h` THEN SRW_TAC [] [idx_bound_def, domEB_thm, domEB_def] THEN +Cases_on `idx` THEN SRW_TAC [] [idx_bound_def] THEN FULL_SIMP_TAC list_ss [arithmeticTheory.ADD1]]); + +val Slookup_thm = Q.prove ( +`!st l v. JSlookup st l v = (list_assoc l st = SOME v)`, +Induct THEN ONCE_REWRITE_TAC [JSlookup_cases] THEN SRW_TAC [] [list_assoc_def, clause_name_def] THEN +Cases_on `h` THEN SRW_TAC [] [list_assoc_def]); + +val recfun_def = Define +`recfun (LRBs_inj letrec_bindings) pattern_matching = + (substs_value_name_expr + (MAP (\letrec_binding. case letrec_binding of + LRB_simple x pattern_matching -> + (x , Expr_letrec (LRBs_inj letrec_bindings) + (Expr_ident x))) + letrec_bindings) + (Expr_function pattern_matching))`; + +val recfun_thm = Q.prove ( +`!letrec_bindings pattern_matching expr. Jrecfun letrec_bindings pattern_matching expr = + (recfun letrec_bindings pattern_matching = expr)`, +Cases THEN SRW_TAC [] [Jrecfun_cases, recfun_def, clause_name_def] THEN EQ_TAC THEN SRW_TAC [] [] THENL +[SRW_TAC [] [MAP_MAP, + Q.prove (`!x. (case (\(a, b). LRB_simple a b) x of LRB_simple a b -> P a b) = + (case x of (a, b) -> P a b)`, + Cases THEN SRW_TAC [] []), + LAMBDA_PROD], + Q.EXISTS_TAC `MAP (\x. case x of LRB_simple a b -> (a, b)) l'` THEN + SRW_TAC [] [MAP_MAP, + Q.prove (`!x f. ((\(x_ ,pattern_matching_). f x_) + case x of LRB_simple a b -> (a,b)) = + case x of LRB_simple a b -> f a`, + Cases THEN SRW_TAC [] [])] THEN + Induct_on `l'` THEN SRW_TAC [] [] THENL [Cases_on `h` THEN SRW_TAC [] [], METIS_TAC []]]); + +val funval_def = Define +`(funval (Expr_uprim unary_prim) = T) /\ + (funval (Expr_bprim binary_prim) = T) /\ + (funval (Expr_apply (Expr_bprim binary_prim) v) = is_value_of_expr v) /\ + (funval (Expr_function pattern_matching) = T) /\ + (funval _ = F)`; + +val funval_thm = Q.prove ( +`!v. Jfunval v = funval v`, +Cases THEN SRW_TAC [] [funval_def, Jfunval_cases, clause_name_def] THEN +Cases_on `e'` THEN SRW_TAC [] [funval_def, Jfunval_cases]); + +val tp_to_tv_def = Define +`tp_to_tv (TP_var tv) = tv`; + +val tp_to_tv_thm = Q.store_thm ("tp_to_tv_thm", +`TP_var (tp_to_tv v) = v`, +Cases_on `v` THEN SRW_TAC [] [tp_to_tv_def]); + +val lrbs_to_lrblist_def = Define +`lrbs_to_lrblist (LRBs_inj x) = x`; + +val lrbs_to_lrblist_thm = Q.store_thm ("lrbs_to_lrblist_thm", +`!x. LRBs_inj (lrbs_to_lrblist x) = x`, +Cases THEN SRW_TAC [] [lrbs_to_lrblist_def]); + +val patexp_to_pelist_def = Define +`patexp_to_pelist (PE_inj x y) = (x, y)`; + +val patexp_to_pelist_thm = Q.store_thm ("patexp_to_pelist_thm", +`!x. PE_inj (FST (patexp_to_pelist x)) (SND (patexp_to_pelist x)) = x`, +Cases THEN SRW_TAC [] [patexp_to_pelist_def]); + +val tpo_to_tps_def = Define +`tpo_to_tps (TPS_nary tps) = tps`; + +val tpo_to_tps_thm = Q.store_thm ("tpo_to_tps_thm", +`!tpo. TPS_nary (tpo_to_tps tpo) = tpo`, +Cases THEN SRW_TAC [] [tpo_to_tps_def]); + +val field_to_fn_def = Define +`field_to_fn (F_name f) = f`; + +val field_to_fn_thm = Q.store_thm ("field_to_fn_thm", +`!f. F_name (field_to_fn f) = f`, +Cases THEN SRW_TAC [] [field_to_fn_def]); + +val t_size_def = Define +`(t_size (TE_var v) = 2:num) /\ + (t_size (TE_idxvar a b) = 1) /\ + (t_size TE_any = 1) /\ + (t_size (TE_arrow t1 t2) = 1 + t_size t1 + t_size t2) /\ + (t_size (TE_tuple tlist) = 1 + t1_size tlist) /\ + (t_size (TE_constr tlist tc) = 1 + t1_size tlist) /\ + (t1_size [] = 1) /\ + (t1_size (t1::tlist) = t_size t1 + t1_size tlist)`; + +val ts_size_def = Define +`(ts_size (TS_forall t) = 1 + (t_size t))`; + +val EB_size_def = Define +`(EB_size EB_tv = 1) /\ + (EB_size (EB_vn x ts) = 2 + ts_size ts) /\ + (EB_size (EB_cc cn tc) = 3) /\ + (EB_size (EB_pc cn (TPS_nary tplist) (typexprs_inj tlist) tc) = 4 + LENGTH tplist + t1_size tlist) /\ + (EB_size (EB_fn fn (TPS_nary tplist) tcn t) = 4 + LENGTH tplist + t_size t) /\ + (EB_size (EB_td tcn k) = 3) /\ + (EB_size (EB_tr tcn k fnlist) = 4 + LENGTH fnlist) /\ + (EB_size (EB_ta (TPS_nary tplist) tcn t) = 2 + LENGTH tplist + t_size t) /\ + (EB_size (EB_l l t) = 2 + t_size t)`; + +val E_size_def = Define +`(E_size [] = 0) /\ + (E_size (EB::E) = EB_size EB + E_size E)`; + +local + val lem1 = Q.prove ( + `!t. 0 < t1_size t`, + Induct THEN SRW_TAC [ARITH_ss] [t_size_def]); + + val lem2 = Q.prove ( + `!t l. MEM t l ==> t_size t < t1_size l`, + Induct_on `l` THEN SRW_TAC [] [t_size_def] THEN RES_TAC THEN ASSUME_TAC (Q.SPEC `l` lem1) THEN + DECIDE_TAC); + + val lem3 = Q.prove ( + `!t. 0 < t_size t`, + Induct THEN SRW_TAC [ARITH_ss] [t_size_def]); +in + +val Eok_def = tDefine "Eok" +`(Eok [] = T) /\ + (Eok (EB_tv::E) = Eok E) /\ + (Eok (EB_vn value_name ts::E) = tsok E ts) /\ + (Eok (EB_cc constr_name TC_exn::E) = + Eok E /\ ~MEM (name_cn constr_name) (MAP domEB E)) /\ + (Eok (EB_cc constr_name (TC_name typeconstr_name)::E) = + Eok E /\ (?kind. lookup E (name_tcn typeconstr_name) = SOME (EB_td typeconstr_name kind)) /\ + ~MEM (name_cn constr_name) (MAP domEB E)) /\ + (Eok (EB_cc constr_name tc::E) = F) /\ + (Eok (EB_pc constr_name (TPS_nary []) (typexprs_inj t_list) TC_exn::E) = + EVERY (tkind E) t_list /\ + ~MEM (name_cn constr_name) (MAP domEB E) /\ + LENGTH t_list >= 1) /\ + (Eok (EB_pc constr_name (TPS_nary vars) (typexprs_inj t_list) (TC_name typeconstr_name)::E) = + EVERY (\t. ntsok E vars t) t_list /\ + (lookup E (name_tcn typeconstr_name) = SOME (EB_td typeconstr_name (LENGTH vars))) /\ + ~MEM (name_cn constr_name) (MAP domEB E) /\ + LENGTH t_list >= 1) /\ + (Eok (EB_pc constr_name params (typexprs_inj t_list) tc::E) = F) /\ + (Eok (EB_fn field_name (TPS_nary vars) typeconstr_name t::E) = + ntsok E vars t /\ + ~MEM (name_fn field_name) (MAP domEB E) /\ + ?field_name_list. (lookup E (name_tcn typeconstr_name) = + SOME (EB_tr typeconstr_name (LENGTH vars) field_name_list)) /\ + MEM field_name field_name_list) /\ + (Eok (EB_td typeconstr_name kind::E) = + Eok E /\ + ~MEM (name_tcn typeconstr_name) (MAP domEB E)) /\ + (Eok (EB_ta (TPS_nary vars) typeconstr_name t::E) = + ~MEM (name_tcn typeconstr_name) (MAP domEB E) /\ ntsok E vars t) /\ + (Eok (EB_tr typeconstr_name kind field_name_list::E) = + Eok E /\ + ~MEM (name_tcn typeconstr_name) (MAP domEB E) /\ + ALL_DISTINCT (MAP name_fn field_name_list)) /\ + (Eok (EB_l location t::E) = + tkind E t /\ + ~MEM (name_l location) (MAP domEB E)) /\ + + (typeconstr_kind E (TC_name typeconstr_name) = + if Eok E then + case lookup E (name_tcn typeconstr_name) of + NONE -> NONE + || SOME (EB_td tcn kind) -> SOME kind + || SOME (EB_ta (TPS_nary type_params_opt) tcn t) -> + if ALL_DISTINCT type_params_opt then + SOME (LENGTH type_params_opt) + else + NONE + || SOME (EB_tr tcn kind field_name_list) -> + SOME kind + else + NONE) /\ + (typeconstr_kind E TC_int = if Eok E then SOME 0 else NONE) /\ + (typeconstr_kind E TC_char = if Eok E then SOME 0 else NONE) /\ + (typeconstr_kind E TC_string = if Eok E then SOME 0 else NONE) /\ + (typeconstr_kind E TC_float = if Eok E then SOME 0 else NONE) /\ + (typeconstr_kind E TC_bool = if Eok E then SOME 0 else NONE) /\ + (typeconstr_kind E TC_unit = if Eok E then SOME 0 else NONE) /\ + (typeconstr_kind E TC_exn = if Eok E then SOME 0 else NONE) /\ + (typeconstr_kind E TC_list = if Eok E then SOME 1 else NONE) /\ + (typeconstr_kind E TC_option = if Eok E then SOME 1 else NONE) /\ + (typeconstr_kind E TC_ref = if Eok E then SOME 1 else NONE) /\ + + (tsok E (TS_forall t) = tkind (EB_tv::E) t) /\ + + (ntsok E vars t = + ALL_DISTINCT vars /\ + tkind E (substs_typevar_typexpr (MAP (\tp. (tp_to_tv tp, TE_constr [] TC_unit)) vars) t)) /\ + + (tkind E (TE_var typevar) = F) /\ + (tkind E (TE_idxvar idx n) = + Eok E /\ idx_bound E idx) /\ + (tkind E TE_any = F) /\ + (tkind E (TE_arrow t1 t2) = + tkind E t1 /\ tkind E t2) /\ + (tkind E (TE_tuple t_list) = + EVERY (tkind E) t_list /\ LENGTH t_list >= 2) /\ + (tkind E (TE_constr t_list typeconstr) = + (typeconstr_kind E typeconstr = SOME (LENGTH t_list)) /\ EVERY (tkind E) t_list)` +(WF_REL_TAC `inv_image ($< LEX $<) + (\a. (sum_size (E_size) + (sum_size (\(x,y). E_size x) + (sum_size (\(x,y). E_size x + ts_size y) + (sum_size (\(x,y,z). E_size x + t_size z) + (\(x,y). E_size x))))) a, + (sum_size (\x. 0) + (sum_size (\(x,y). 1) + (sum_size (\x. 0) + (sum_size (\(x,y,z). 0) + (\(x,y). t_size y))))) a)` THEN + SRW_TAC [ARITH_ss] [LENGTH_REVERSE, E_size_def, EB_size_def, t_size_def, ts_size_def, lem1, lem3] THEN + IMP_RES_TAC lem2 THEN SRW_TAC [ARITH_ss] [EB_size_def, ts_size_def]); + +val Eok_ind = fetch "-" "Eok_ind"; + +end; + +val lookup_name_thm = Q.store_thm ("lookup_name_thm", +`!E. +(!tv EB. (lookup E name_tv = SOME EB) ==> (EB = EB_tv)) /\ +(!vn EB. (lookup E (name_vn vn) = SOME EB) ==> ?ts. EB = EB_vn vn ts) /\ +(!cn EB. (lookup E (name_cn cn) = SOME EB) ==> (?typeconstr. EB = EB_cc cn typeconstr) \/ + ?typ tlist typeconstr. EB = EB_pc cn typ tlist typeconstr) /\ +(!tcn EB. (lookup E (name_tcn tcn) = SOME EB) ==> (?kind. EB = EB_td tcn kind) \/ + (?tpo t. EB = EB_ta tpo tcn t) \/ + ?k fnl. EB = EB_tr tcn k fnl) /\ +(!fn EB. (lookup E (name_fn fn) = SOME EB) ==> ?tpo tcn t. EB = EB_fn fn tpo tcn t) /\ +(!l EB. (lookup E (name_l l) = SOME EB) ==> ?t. EB = EB_l l t)`, +Induct THEN SRW_TAC [] [lookup_def, domEB_def, shiftEB_add_thm] THEN RES_TAC THEN SRW_TAC [] [shiftEB_def] THEN +Cases_on `EB` THEN +FULL_SIMP_TAC list_ss [domEB_def, name_11, name_distinct] THEN METIS_TAC []); + + +local +val SIMP = SIMP_RULE bool_ss [clause_name_def, EVERY_MAP, EVERY_CONJ, ETA_THM, LAMBDA_PROD2, lookup_thm, + domE_thm, idx_bound_thm]; +val JTEok_rules2 = SIMP JTEok_rules; +val JTEok_cases2 = SIMP JTEok_cases; + +in +val Eok_thm = Q.prove ( +`(!E. JTEok E = Eok E) /\ + (!E tc k. JTtypeconstr E tc k = (typeconstr_kind E tc = SOME k)) /\ + (!E ts k. JTts E ts k = tsok E ts /\ (k = 0)) /\ + (!E tps t k. JTtsnamed E (TPS_nary tps) t k = ntsok E tps t /\ (k = 0)) /\ + (!E t k. JTt E t k = tkind E t /\ (k = 0))`, +HO_MATCH_MP_TAC Eok_ind THEN + SRW_TAC [ARITH_ss] [Eok_def, domE_thm, lookup_thm, JTEok_rules2] THEN + ONCE_REWRITE_TAC [JTEok_cases2] THEN SRW_TAC [ARITH_ss] [EVERY_MEM] +THENL +[ + EQ_TAC THEN SRW_TAC [] [] THEN1 METIS_TAC [] THEN + Cases_on `ts` THEN SRW_TAC [] [] THEN Cases_on `t` THEN SRW_TAC [] [], + METIS_TAC [], + EQ_TAC THEN SRW_TAC [] [] THEN + FULL_SIMP_TAC list_ss [MAP_MAP, MAP_REVERSE] THENL + [Cases_on `tv_list` THEN + FULL_SIMP_TAC list_ss [MAP_MAP, MAP_REVERSE] THEN METIS_TAC [], + METIS_TAC [], + METIS_TAC [], + Cases_on `tv_list` THEN FULL_SIMP_TAC list_ss [], + Q.EXISTS_TAC `MAP tp_to_tv (v30::v31)` THEN + SRW_TAC [] [MAP_MAP, MAP_REVERSE, tp_to_tv_thm, MAP_I] THEN METIS_TAC []], + EQ_TAC THEN SRW_TAC [] [] THEN + FULL_SIMP_TAC list_ss [MAP_MAP, MAP_REVERSE] THEN + SRW_TAC [] [] THEN1 METIS_TAC [] THEN1 METIS_TAC [] THEN + Q.EXISTS_TAC `MAP tp_to_tv tps` THEN + SRW_TAC [] [MAP_MAP, MAP_I, tp_to_tv_thm], + EQ_TAC THEN SRW_TAC [] [] THEN1 METIS_TAC [] THEN1 METIS_TAC [] THEN1 METIS_TAC [] THEN + Q.EXISTS_TAC `MAP tp_to_tv tps` THEN + SRW_TAC [] [MAP_MAP, MAP_I, tp_to_tv_thm], + Cases_on `lookup E (name_tcn typeconstr_name)` THEN SRW_TAC [] [] + THEN IMP_RES_TAC lookup_name_thm THEN SRW_TAC [] [] THEN + FULL_SIMP_TAC list_ss [name_11, name_distinct] THEN + Cases_on `tpo` THEN SRW_TAC [ARITH_ss] [clause_name_def, JTtps_kind_cases], + EQ_TAC THEN SRW_TAC [] [], + EQ_TAC THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [MAP_MAP, tp_to_tv_def] THEN1 METIS_TAC [] THEN + Q.EXISTS_TAC `MAP tp_to_tv tps` THEN SRW_TAC [] [tp_to_tv_def, MAP_MAP, tp_to_tv_thm, MAP_I], + EQ_TAC THEN SRW_TAC [] [] THEN SRW_TAC [] [] THEN Cases_on `idx_bound E idx` THEN FULL_SIMP_TAC list_ss [], + METIS_TAC [], + METIS_TAC [], + METIS_TAC []]); +end; + +val idxsub_def = ottDefine "idxsub" +`(idxsub tl (TE_var v) = TE_var v) /\ + (idxsub tl (TE_idxvar 0 n) = if n < LENGTH tl then EL n tl else TE_constr [] TC_unit) /\ + (idxsub tl (TE_idxvar (SUC n) n') = TE_idxvar n n') /\ + (idxsub tl TE_any = TE_any) /\ + (idxsub tl (TE_arrow t1 t2) = TE_arrow (idxsub tl t1) (idxsub tl t2)) /\ + (idxsub tl (TE_tuple tl') = TE_tuple (MAP (idxsub tl) tl')) /\ + (idxsub tl (TE_constr tl' tcn) = TE_constr (MAP (idxsub tl) tl') tcn)`; + +val idxsubn0_thm = Q.store_thm ("idxsubn0_thm", +`(!t tl. idxsubn 0 tl t = idxsub tl t) /\ + (!tl' tl. MAP (idxsubn 0 tl) tl' = MAP (idxsub tl) tl')`, +Induct THEN SRW_TAC [] [idxsubn_def, idxsub_def, GSYM ETA_THM] THEN1 +(Cases_on `n` THEN SRW_TAC [] [idxsub_def]) THEN METIS_TAC []); + +local + +val JTidxsub_fun = structural_cases [typexpr_11, typexpr_distinct] + 1 + [get_terms ftv_typexpr_def] + JTidxsub_cases; +val lem1 = Q.prove ( +`!tl t t'. JTidxsub tl t t' ==> (t' = idxsub tl t)`, +RULE_INDUCT_TAC JTidxsub_ind [idxsub_def, LAMBDA_PROD2, EVERY_MAP, MAP_MAP, GSYM arithmeticTheory.ADD1] +[([``"JTinxsub_idx0"``, ``"JTinxsub_idx1"``], + SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [EL_APPEND1, EL_APPEND2]), + ([``"JTinxsub_tuple"``, ``"JTinxsub_tc"``], + Induct THEN SRW_TAC [] [])]); + +val lem2 = Q.prove ( +`!tl t t'. (t' = idxsub tl t) ==> JTidxsub tl t t'`, +HO_MATCH_MP_TAC (fetch "-" "idxsub_ind") THEN +SRW_TAC [] [JTidxsub_fun, idxsub_def, clause_name_def, EVERY_MAP, LAMBDA_PROD2] THENL +[DISJ1_TAC THEN MAP_EVERY Q.EXISTS_TAC [`LASTN (LENGTH tl - n - 1) tl`, `FIRSTN n tl`] THEN + SRW_TAC [ARITH_ss] [LENGTH_FIRSTN] THEN METIS_TAC [FIRSTN_EL_LASTN], + DISJ2_TAC THEN DECIDE_TAC, + DECIDE_TAC, + Q.EXISTS_TAC `MAP (\t. (t, idxsub tl t)) tl'` THEN SRW_TAC [] [MAP_MAP, MAP_I, EVERY_MAP, EVERY_MEM], + Q.EXISTS_TAC `MAP (\t. (t, idxsub tl t)) tl'` THEN + SRW_TAC [] [MAP_MAP, MAP_I, EVERY_MAP, EVERY_MEM]]); + +in + +val idxsub_thm = Q.prove ( +`!tl t t'. JTidxsub tl t t' = (t' = idxsub tl t)`, +METIS_TAC [lem1, lem2]); + +end; + + + +val SIMP1 = SIMP_RULE bool_ss [EVERY_MAP, EVERY_CONJ, ETA_THM, LAMBDA_PROD2, lookup_thm, Slookup_thm, + idx_bound_thm, domE_thm, recfun_thm, funval_thm, Eok_thm, idxsub_thm]; +val SIMP2 = SIMP_RULE bool_ss [EVERY_MAP, EVERY_CONJ, ETA_THM, LAMBDA_PROD2, lookup_thm, Slookup_thm, + idx_bound_thm, domE_thm, recfun_thm, funval_thm, Eok_thm, clause_name_def, + idxsub_thm]; + +val JM_matchP_cases = save_thm ("JM_matchP_cases", SIMP2 JM_matchP_cases); +val _ = save_thm ("JM_matchP_sind", SIMP1 (derive_strong_induction (JM_matchP_rules, JM_matchP_ind))); +val _ = save_thm ("JM_matchP_ind", SIMP1 JM_matchP_ind); +val _ = save_thm ("JM_matchP_rules", SIMP2 JM_matchP_rules); + +val JM_match_cases = save_thm ("JM_match_cases", SIMP2 JM_match_cases); +val _ = save_thm ("JM_match_sind", SIMP1 (derive_strong_induction (JM_match_rules, JM_match_ind))); +val _ = save_thm ("JM_match_ind", SIMP1 JM_match_ind); +val _ = save_thm ("JM_match_rules", SIMP2 JM_match_rules); + +val JRB_dbehaviour_cases = save_thm ("JRB_dbehaviour_cases", SIMP2 JRB_dbehaviour_cases); +val _ = save_thm ("JRB_dbehaviour_ind", SIMP1 JRB_dbehaviour_ind); +val _ = save_thm ("JRB_dbehaviour_rules", SIMP2 JRB_dbehaviour_rules); + +val JRB_ebehaviour_cases = save_thm ("JRB_ebehaviour_cases", SIMP2 JRB_ebehaviour_cases); +val _ = save_thm ("JRB_ebehaviour_ind", SIMP1 JRB_ebehaviour_ind); +val _ = save_thm ("JRB_ebehaviour_rules", SIMP2 JRB_ebehaviour_rules); + +val JR_expr_cases = save_thm ("JR_expr_cases", SIMP2 JR_expr_cases); +val _ = save_thm ("JR_expr_sind", SIMP1 (derive_strong_induction (JR_expr_rules, JR_expr_ind))); +val _ = save_thm ("JR_expr_ind", SIMP1 JR_expr_ind); +val _ = save_thm ("JR_expr_rules", SIMP2 JR_expr_rules); + +val JRbprim_cases = save_thm ("JRbprim_cases", SIMP2 JRbprim_cases); +val _ = save_thm ("JRbprim_ind", SIMP1 JRbprim_ind); +val _ = save_thm ("JRbprim_rules", SIMP2 JRbprim_rules); + +val JRdefn_cases = save_thm ("JRdefn_cases", SIMP2 JRdefn_cases); +val _ = save_thm ("JRdefn_sind", SIMP1 (derive_strong_induction (JRdefn_rules, JRdefn_ind))); +val _ = save_thm ("JRdefn_ind", SIMP1 JRdefn_ind); +val _ = save_thm ("JRdefn_rules", SIMP2 JRdefn_rules); + +val JRmatching_step_cases = save_thm ("JRmatching_step_cases", SIMP2 JRmatching_step_cases); +val _ = save_thm ("JRmatching_step_ind", SIMP1 JRmatching_step_ind); +val _ = save_thm ("JRmatching_step_rules", SIMP2 JRmatching_step_rules); + +val JRmatching_success_cases = save_thm ("JRmatching_success_cases", SIMP2 JRmatching_success_cases); +val _ = save_thm ("JRmatching_success_ind", SIMP1 JRmatching_success_ind); +val _ = save_thm ("JRmatching_success_rules", SIMP2 JRmatching_success_rules); + +val JRstore_cases = save_thm ("JRstore_cases", SIMP2 JRstore_cases); +val _ = save_thm ("JRstore_ind", SIMP1 JRstore_ind); +val _ = save_thm ("JRstore_rules", SIMP2 JRstore_rules); + +val JRtop_cases = save_thm ("JRtop_cases", SIMP2 JRtop_cases); +val _ = save_thm ("JRtop_ind", SIMP1 JRtop_ind); +val _ = save_thm ("JRtop_rules", SIMP2 JRtop_rules); + +val JRuprim_cases = save_thm ("JRuprim_cases", SIMP2 JRuprim_cases); +val _ = save_thm ("JRuprim_ind", SIMP1 JRuprim_ind); +val _ = save_thm ("JRuprim_rules", SIMP2 JRuprim_rules); + +val JTbprim_cases = save_thm ("JTbprim_cases", SIMP2 JTbprim_cases); +val _ = save_thm ("JTbprim_ind", SIMP1 JTbprim_ind); +val _ = save_thm ("JTbprim_rules", SIMP2 JTbprim_rules); + +val JTconst_cases = save_thm ("JTconst_cases", SIMP2 JTconst_cases); +val _ = save_thm ("JTconst_ind", SIMP1 JTconst_ind); +val _ = save_thm ("JTconst_rules", SIMP2 JTconst_rules); + +val JTconstr_c_cases = save_thm ("JTconstr_c_cases", SIMP2 JTconstr_c_cases); +val _ = save_thm ("JTconstr_c_ind", SIMP1 JTconstr_c_ind); +val _ = save_thm ("JTconstr_c_rules", SIMP2 JTconstr_c_rules); + +val JTconstr_decl_cases = save_thm ("JTconstr_decl_cases", SIMP2 JTconstr_decl_cases); +val _ = save_thm ("JTconstr_decl_ind", SIMP1 JTconstr_decl_ind); +val _ = save_thm ("JTconstr_decl_rules", SIMP2 JTconstr_decl_rules); + +val JTconstr_p_cases = save_thm ("JTconstr_p_cases", SIMP2 JTconstr_p_cases); +val _ = save_thm ("JTconstr_p_ind", SIMP1 JTconstr_p_ind); +val _ = save_thm ("JTconstr_p_rules", SIMP2 JTconstr_p_rules); + +val JTdefinition_cases = save_thm ("JTdefinition_cases", SIMP2 JTdefinition_cases); +val _ = save_thm ("JTdefinition_ind", SIMP1 JTdefinition_ind); +val _ = save_thm ("JTdefinition_rules", SIMP2 JTdefinition_rules); + +val JTdefinitions_cases = save_thm ("JTdefinitions_cases", SIMP2 JTdefinitions_cases); +val _ = save_thm ("JTdefinitions_sind", + SIMP1 (derive_strong_induction (JTdefinitions_rules, JTdefinitions_ind))); +val _ = save_thm ("JTdefinitions_ind", SIMP1 JTdefinitions_ind); +val _ = save_thm ("JTdefinitions_rules", SIMP2 JTdefinitions_rules); + +val JTe_cases = save_thm ("JTe_cases", SIMP2 JTe_cases); +val _ = save_thm ("JTe_sind", SIMP1 (derive_strong_induction (JTe_rules, JTe_ind))); +val _ = save_thm ("JTe_ind", SIMP1 JTe_ind); +val _ = save_thm ("JTe_rules", SIMP2 JTe_rules); + +val JTeq_cases = save_thm ("JTeq_cases", SIMP2 JTeq_cases); +val _ = save_thm ("JTeq_ind", SIMP1 JTeq_ind); +val _ = save_thm ("JTeq_rules", SIMP2 JTeq_rules); + +val JTfield_decl_cases = save_thm ("JTfield_decl_cases", SIMP2 JTfield_decl_cases); +val _ = save_thm ("JTfield_decl_ind", SIMP1 JTfield_decl_ind); +val _ = save_thm ("JTfield_decl_rules", SIMP2 JTfield_decl_rules); + +val JTfield_cases = save_thm ("JTfield_cases", SIMP2 JTfield_cases); +val _ = save_thm ("JTfield_ind", SIMP1 JTfield_ind); +val _ = save_thm ("JTfield_rules", SIMP2 JTfield_rules); + +val JTinst_cases = save_thm ("JTinst_cases", SIMP2 JTinst_cases); +val _ = save_thm ("JTinst_ind", SIMP1 JTinst_ind); +val _ = save_thm ("JTinst_rules", SIMP2 JTinst_rules); + +val JTinst_named_cases = save_thm ("JTinst_named_cases", SIMP2 JTinst_named_cases); +val _ = save_thm ("JTinst_named_ind", SIMP1 JTinst_named_ind); +val _ = save_thm ("JTinst_named_rules", SIMP2 JTinst_named_rules); + +val JTinst_any_cases = save_thm ("JTinst_any_cases", SIMP2 JTinst_any_cases); +val _ = save_thm ("JTinst_any_ind", SIMP1 JTinst_any_ind); +val _ = save_thm ("JTinst_any_rules", SIMP2 JTinst_any_rules); + +val JTLin_cases = save_thm ("JTLin_cases", SIMP2 JTLin_cases); +val _ = save_thm ("JTLin_ind", SIMP1 JTLin_ind); +val _ = save_thm ("JTLin_rules", SIMP2 JTLin_rules); + +val JTLout_cases = save_thm ("JTLout_cases", SIMP2 JTLout_cases); +val _ = save_thm ("JTLout_ind", SIMP1 JTLout_ind); +val _ = save_thm ("JTLout_rules", SIMP2 JTLout_rules); + +val JTpat_cases = save_thm ("JTpat_cases", SIMP2 JTpat_cases); +val _ = save_thm ("JTpat_sind", SIMP1 (derive_strong_induction (JTpat_rules, JTpat_ind))); +val _ = save_thm ("JTpat_ind", SIMP1 JTpat_ind); +val _ = save_thm ("JTpat_rules", SIMP2 JTpat_rules); + +val JTstore_cases = save_thm ("JTstore_cases", SIMP2 JTstore_cases); +val _ = save_thm ("JTstore_sind", SIMP1 (derive_strong_induction (JTstore_rules, JTstore_ind))); +val _ = save_thm ("JTstore_ind", SIMP1 JTstore_ind); +val _ = save_thm ("JTstore_rules", SIMP2 JTstore_rules); + +val JTtype_definition_cases = save_thm ("JTtype_definition_cases", SIMP2 JTtype_definition_cases); +val _ = save_thm ("JTtype_definition_ind", SIMP1 JTtype_definition_ind); +val _ = save_thm ("JTtype_definition_rules", SIMP2 JTtype_definition_rules); + +val JTtypedef_cases = save_thm ("JTtypedef_cases", SIMP2 JTtypedef_cases); +val _ = save_thm ("JTtypedef_ind", SIMP1 JTtypedef_ind); +val _ = save_thm ("JTtypedef_rules", SIMP2 JTtypedef_rules); + +val JTuprim_cases = save_thm ("JTuprim_cases", SIMP2 JTuprim_cases); +val _ = save_thm ("JTuprim_ind", SIMP1 JTuprim_ind); +val _ = save_thm ("JTuprim_rules", SIMP2 JTuprim_rules); + +val JTvalue_name_cases = save_thm ("JTvalue_name_cases", SIMP2 JTvalue_name_cases); +val _ = save_thm ("JTvalue_name_ind", SIMP1 JTvalue_name_ind); +val _ = save_thm ("JTvalue_name_rules", SIMP2 JTvalue_name_rules); + +val JTtop_cases = save_thm ("JTtop_cases", SIMP2 JTtop_cases); +val _ = save_thm ("JTtop_ind", SIMP1 JTtop_ind); +val _ = save_thm ("JTtop_rules", SIMP2 JTtop_rules); + +val JTprog_cases = save_thm ("JTprog_cases", SIMP2 JTprog_cases); +val _ = save_thm ("JTprog_ind", SIMP1 JTprog_ind); +val _ = save_thm ("JTprog_rules", SIMP2 JTprog_rules); + +val is_binary_prim_app_value_of_expr_thm = Q.prove ( +`!e. is_binary_prim_app_value_of_expr e = (?bp. e = Expr_bprim bp)`, +Cases THEN SRW_TAC [] [is_binary_prim_app_value_of_expr_def]); + +val _ = save_thm ("is_value_of_expr_def", + PURE_REWRITE_RULE [is_binary_prim_app_value_of_expr_thm] is_value_of_expr_def); + +val expr_terms = get_terms is_value_of_expr_def; +val pattern_matching_terms = [``PM_pm pat_exp_list``]; +val let_binding_terms = [``LB_simple pattern expr``]; +val letrec_binding_terms = [``LRBs_inj letrec_binding_list``]; +val _ = save_thm ("JTe_fun", + structural_cases [expr_11, expr_distinct, pattern_matching_11, + let_binding_11, letrec_bindings_11] + 2 + [expr_terms, pattern_matching_terms, let_binding_terms, letrec_binding_terms] + JTe_cases); + +val _ = save_thm ("JR_expr_fun", + structural_cases [expr_11, expr_distinct] + 0 + [expr_terms] + JR_expr_cases); + +val _ = save_thm ("JTpat_fun", + structural_cases [pattern_11, pattern_distinct] + 2 + [get_terms ftv_pattern_def] + JTpat_cases); + +val _ = save_thm ("JTconst_fun", + structural_cases [constant_11, constant_distinct] + 1 + [[``CONST_int n``, ``CONST_float f``, ``CONST_char c``, ``CONST_string s``, + ``CONST_constr constr``, ``CONST_true``, ``CONST_false``, ``CONST_unit``, + ``CONST_nil``]] + JTconst_cases); + +val JM_matchP_fun = save_thm ("JM_matchP_fun", + structural_cases [pattern_11, pattern_distinct] + 1 + [get_terms ftv_pattern_def] + JM_matchP_cases); + +val JM_match_fun = save_thm ("JM_match_fun", + structural_cases [pattern_11, pattern_distinct] + 1 + [get_terms ftv_pattern_def] + JM_match_cases); + +val JTdefinition_fun = save_thm ("JTdefinition_fun", + structural_cases [definition_11, definition_distinct] + 1 + [[``D_let lb``, + ``D_letrec lrbs``, + ``D_type td``, + ``D_exception ed``]] + JTdefinition_cases); + +val JTdefinitions_fun = save_thm ("JTdefinitions_fun", + structural_cases [definitions_11, definitions_distinct] + 1 [[``Ds_nil``, ``Ds_cons d ds``]] + JTdefinitions_cases); + +val JTprog_fun = save_thm ("JTprog_fun", + structural_cases [program_11, program_distinct] + 1 [[``Prog_defs ds``, + ``Prog_raise v``]] + JTprog_cases); + +val JRdefn_fun = save_thm ("JRdefn_fun", + structural_cases [definitions_11, definitions_distinct, definition_11, definition_distinct, + program_11, program_distinct] + 1 + [[``Prog_defs Ds_nil``, + ``Prog_defs (Ds_cons (D_let lb) ds)``, + ``Prog_defs (Ds_cons (D_letrec lrbs) ds)``, + ``Prog_defs (Ds_cons (D_type td) ds)``, + ``Prog_defs (Ds_cons (D_exception ed) ds)``, + ``Prog_raise v``]] + JRdefn_cases); + +val JTstore_fun = save_thm ("JTstore_fun", SIMP_RULE list_ss [] + (structural_cases [list_11, list_distinct] + 1 + [[``[]:store``, + ``(l, v)::(store:store)``]] + JTstore_cases)); + +val JTinst_any_fun = save_thm ("JTinst_any_fun", + structural_cases [typexpr_11, typexpr_distinct] + 2 + [get_terms ftv_typexpr_def] + JTinst_any_cases); + + +val JTeq_fun = save_thm ("JTeq_fun", + structural_cases [typexpr_11, typexpr_distinct] + 1 + [get_terms ftv_typexpr_def] + JTeq_cases); + +(* This otherwise useless definition is accompanied by a nice induction principle. *) +val Eok2_def = Define +`(Eok2 [] = T) /\ + (Eok2 (EB_tv::E) = Eok2 E) /\ + (Eok2 (EB_vn value_name (TS_forall t)::E) = Eok2 E) /\ + (Eok2 (EB_cc constr_name TC_exn::E) = Eok2 E) /\ + (Eok2 (EB_cc constr_name (TC_name typeconstr_name)::E) = Eok2 E) /\ + (Eok2 (EB_cc constr_name tc::E) = F) /\ + (Eok2 (EB_pc constr_name (TPS_nary []) (typexprs_inj t_list) TC_exn::E) = Eok2 E) /\ + (Eok2 (EB_pc constr_name (TPS_nary vars) (typexprs_inj t_list) (TC_name typeconstr_name)::E) = Eok2 E) /\ + (Eok2 (EB_pc constr_name params (typexprs_inj t_list) tc::E) = F) /\ + (Eok2 (EB_fn field_name (TPS_nary vars) typeconstr_name t::E) = Eok2 E) /\ + (Eok2 (EB_td typeconstr_name kind::E) = Eok2 E) /\ + (Eok2 (EB_ta tps typeconstr_name t::E) = Eok2 E) /\ + (Eok2 (EB_tr typeconstr_name kind field_name_list::E) = Eok2 E) /\ + (Eok2 (EB_l location t::E) = Eok2 E)`; + +val is_abbrev_tc_def = Define ` +(is_abbrev_tc E (TE_constr _ (TC_name tcn)) = + case lookup E (name_tcn tcn) of + SOME (EB_ta x y z) -> T + || _ -> F) /\ +(is_abbrev_tc E _ = F)`; + +val is_abbrev_tc_cases = Q.store_thm ("is_abbrev_tc_cases", +`!E t. is_abbrev_tc E t = ?ts tcn tps t'. (t = TE_constr ts (TC_name tcn)) /\ + (lookup E (name_tcn tcn) = SOME (EB_ta (TPS_nary tps) tcn t'))`, +Cases_on `t` THEN SRW_TAC [] [is_abbrev_tc_def] THEN +Cases_on `t'` THEN SRW_TAC [] [is_abbrev_tc_def] THEN +Cases_on `lookup E (name_tcn t'')` THEN SRW_TAC [] [is_abbrev_tc_def] THEN +Cases_on `x` THEN SRW_TAC [] [is_abbrev_tc_def] THEN +IMP_RES_TAC lookup_name_thm THEN +FULL_SIMP_TAC list_ss [environment_binding_11, environment_binding_distinct, type_params_opt_nchotomy]); + +val is_record_tc_def = Define ` +(is_record_tc E (TE_constr _ (TC_name tcn)) = + case lookup E (name_tcn tcn) of + SOME (EB_tr x y z) -> T + || _ -> F) /\ +(is_record_tc E _ = F)`; + +val is_record_tc_cases = Q.store_thm ("is_record_tc_cases", +`!E t. is_record_tc E t = (?ts tcn k fns. (t = TE_constr ts (TC_name tcn)) /\ + (lookup E (name_tcn tcn) = SOME (EB_tr tcn k fns)))`, +Cases_on `t` THEN SRW_TAC [] [is_record_tc_def] THEN +Cases_on `t'` THEN SRW_TAC [] [is_record_tc_def] THEN +Cases_on `lookup E (name_tcn t'')` THEN SRW_TAC [] [is_record_tc_def] THEN +Cases_on `x` THEN SRW_TAC [] [is_abbrev_tc_def] THEN +IMP_RES_TAC lookup_name_thm THEN +FULL_SIMP_TAC list_ss [environment_binding_11, environment_binding_distinct]); + +val is_constr_tc_def = Define ` +(is_constr_tc E (TE_constr _ (TC_name tcn)) = + case lookup E (name_tcn tcn) of + SOME (EB_td x y) -> T + || _ -> F) /\ +(is_constr_tc E (TE_constr [] TC_exn) = T) /\ +(is_constr_tc E (TE_constr [t] TC_option) = T) /\ +(is_constr_tc E _ = F)`; + +val is_constr_tc_cases = Q.store_thm ("is_constr_tc_cases", +`!E t. is_constr_tc E t = (?ts tcn k. (t = TE_constr ts (TC_name tcn)) /\ + (lookup E (name_tcn tcn) = SOME (EB_td tcn k))) \/ + (?t'. t = TE_constr [t'] TC_option) \/ + (t = TE_constr [] TC_exn)`, +Cases_on `t` THEN SRW_TAC [] [is_constr_tc_def] THEN +Cases_on `t'` THEN SRW_TAC [] [is_constr_tc_def] THEN +Cases_on `l` THEN SRW_TAC [] [is_constr_tc_def] THEN +TRY (Cases_on `lookup E (name_tcn t'')` THEN SRW_TAC [] [is_constr_tc_def]) THEN +TRY (Cases_on `t` THEN SRW_TAC [] [is_constr_tc_def]) THEN +TRY (Cases_on `t'` THEN SRW_TAC [] [is_constr_tc_def]) THEN +Cases_on `x` THEN SRW_TAC [] [is_abbrev_tc_def] THEN +IMP_RES_TAC lookup_name_thm THEN +FULL_SIMP_TAC list_ss [environment_binding_11, environment_binding_distinct]); + +val JM_match_lem = Q.prove ( +`!e p s. JM_match e p s ==> JM_matchP e p`, +RULE_INDUCT_TAC JM_match_ind [JM_matchP_fun, ELIM_UNCURRY, EVERY_MAP, EVERY_MEM] +[([``"JM_match_construct"``, ``"JM_match_tuple"``], + SRW_TAC [] [] THEN Q.EXISTS_TAC `MAP (\x. (FST x, FST (SND x))) v_pat_substs_x_list` THEN + SRW_TAC [] [MAP_MAP, ETA_THM] THEN FULL_SIMP_TAC list_ss [MEM_MAP]), + ([``"JM_match_record"``], + SRW_TAC [] [] THEN + MAP_EVERY Q.EXISTS_TAC [`fn_v''_list`, + `MAP (\(a, b, c, d). (a, b, d)) field_name'_pat_substs_x_v'_list`, + `field_name_v_list`] THEN + SRW_TAC [] [LAMBDA_PROD2, MAP_MAP] THEN FULL_SIMP_TAC list_ss [MEM_MAP])]); + +local + +val lem1 = Q.prove ( +`!l1 l2 P. + (LENGTH l1 = LENGTH l2) /\ + EVERY (\x. P (FST x) (FST (SND x)) (substs_x_xs (SND (SND x)))) (ZIP (MAP FST l1,ZIP (MAP SND l1,l2))) ==> + EVERY (\x. P (FST (FST x)) (SND (FST x)) (SND x)) (ZIP (l1,MAP substs_x_xs l2))`, +Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN FULL_SIMP_TAC list_ss []); + +val lem2 = Q.prove ( +`!l1 l2 f g. (LENGTH l1 = LENGTH l2) ==> + (MAP (\x. (f (FST x),g (FST x))) (ZIP (l1,l2)) = + MAP (\z. (f z, g z)) l1)`, +Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN FULL_SIMP_TAC list_ss []); + +val lem3 = Q.prove ( +`!l1 l2 P. + (LENGTH l1 = LENGTH l2) /\ + EVERY (\x. P (SND (FST x)) (SND (FST (SND x))) (substs_x_xs (SND (SND x)))) + (ZIP (MAP (\z. (F_name (FST z),SND (SND z))) l1, + ZIP (MAP (\z. (F_name (FST z),FST (SND z))) l1,l2))) ==> + EVERY (\x. P (SND (SND (FST x))) (FST (SND (FST x))) (substs_x_xs (SND x))) (ZIP (l1,l2))`, +Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN FULL_SIMP_TAC list_ss []); + +in + +val JM_matchP_lem = Q.prove ( +`(!p e. JM_matchP e p ==> ?s. JM_match e p (substs_x_xs s) /\ EVERY is_value_of_expr (MAP SND s)) /\ + (!plist elist. (LENGTH plist = LENGTH elist) /\ EVERY (UNCURRY JM_matchP) (ZIP (elist, plist)) ==> + ?slist. (LENGTH plist = LENGTH slist) /\ EVERY is_value_of_expr (MAP SND (FLAT slist)) /\ + EVERY (\(e, p, s). JM_match e p (substs_x_xs s)) + (ZIP (elist, (ZIP (plist, slist))))) /\ + (!fplist felist. (LENGTH felist = LENGTH fplist) /\ + EVERY (\((f:field,e),(f':field,p)). JM_matchP e p) (ZIP (felist, fplist)) ==> + ?slist. (LENGTH fplist = LENGTH slist) /\ EVERY is_value_of_expr (MAP SND (FLAT slist)) /\ + EVERY (\((f,e), (f,p), s). JM_match e p (substs_x_xs s)) + (ZIP (felist, (ZIP (fplist, slist))))) /\ + (!(fp:field#pattern) (fe:field#expr). JM_matchP (SND fe) (SND fp) ==> + ?s. JM_match (SND fe) (SND fp) (substs_x_xs s) /\ EVERY is_value_of_expr (MAP SND s))`, +Induct THEN SRW_TAC [] [JM_match_fun, JM_matchP_fun, EVERY_MAP] THEN +FULL_SIMP_TAC list_ss [EVERY_MAP, ELIM_UNCURRY] THENL +[RES_TAC THEN Q.EXISTS_TAC `s++[(v,e)]` THEN SRW_TAC [] [], + METIS_TAC [], + METIS_TAC [], + METIS_TAC [], + Q.PAT_ASSUM `!elist. P elist ==> Q elist` (MP_TAC o Q.SPEC `MAP FST (v_pat_list:(expr#pattern) list)`) THEN + SRW_TAC [] [ZIP_MAP_ID] THEN Q.EXISTS_TAC `FLAT slist` THEN SRW_TAC [] [] THEN + Q.EXISTS_TAC `MAP (\((v, p), s). (v, p, s)) (ZIP (v_pat_list, MAP substs_x_xs slist))` THEN + SRW_TAC [] [MAP_MAP, LAMBDA_PROD2, EVERY_MAP] THEN + SRW_TAC [] [GSYM MAP_MAP, MAP_FST_ZIP, MAP_SND_ZIP, GSYM EVERY_MAP] THEN + SRW_TAC [] [MAP_MAP, MAP_I, EVERY_MAP, lem1], + Q.PAT_ASSUM `!elist. P elist ==> Q elist` (MP_TAC o Q.SPEC `MAP FST (v_pat_list:(expr#pattern) list)`) THEN + SRW_TAC [] [ZIP_MAP_ID] THEN Q.EXISTS_TAC `FLAT slist` THEN SRW_TAC [] [] THEN + Q.EXISTS_TAC `MAP (\((v, p), s). (v, p, s)) (ZIP (v_pat_list, MAP substs_x_xs slist))` THEN + SRW_TAC [] [MAP_MAP, LAMBDA_PROD2, EVERY_MAP] THEN + SRW_TAC [] [GSYM MAP_MAP, MAP_FST_ZIP, MAP_SND_ZIP, GSYM EVERY_MAP] THEN + SRW_TAC [] [MAP_MAP, MAP_I, EVERY_MAP, lem1], + Q.PAT_ASSUM `!felist. P felist ==> Q felist` + (MP_TAC o Q.SPEC `MAP (\(fn, p:pattern, v:expr). (F_name fn, v)) field_name'_pat_v'_list`) THEN + SRW_TAC [] [MAP_MAP, MAP_ZIP_SAME, ZIP_MAP, EVERY_MAP, LAMBDA_PROD2] THEN + Q.EXISTS_TAC `FLAT slist` THEN SRW_TAC [] [] THEN + MAP_EVERY Q.EXISTS_TAC [`fn_v''_list`, + `MAP (\((f, p, v), s). (f, p, substs_x_xs s, v)) + (ZIP (field_name'_pat_v'_list, slist))`, + `field_name_v_list`] THEN + SRW_TAC [] [ETA_THM, MAP_MAP, LAMBDA_PROD2, EVERY_MAP, MAP_SND_ZIP, lem2] THEN + SRW_TAC [] [GSYM EVERY_MAP, GSYM MAP_MAP, MAP_FST_ZIP] THEN + SRW_TAC [] [EVERY_MAP, lem3], + RES_TAC THEN Q.EXISTS_TAC `s'++s` THEN SRW_TAC [] [] THEN + MAP_EVERY Q.EXISTS_TAC [`substs_x_xs s'`, `substs_x_xs s`] THEN SRW_TAC [] [], + Cases_on `elist` THEN FULL_SIMP_TAC list_ss [] THEN Q.EXISTS_TAC `[]` THEN SRW_TAC [] [], + Cases_on `elist` THEN FULL_SIMP_TAC list_ss [] THEN + Q.PAT_ASSUM `!elist. P elist ==> ?slist. (LENGTH elist = LENGTH slist) /\ Q elist slist` + (MP_TAC o Q.SPEC `t`) THEN + SRW_TAC [] [] THEN RES_TAC THEN Q.EXISTS_TAC `s::slist` THEN SRW_TAC [] [], + Cases_on `felist` THEN FULL_SIMP_TAC list_ss [] THEN Q.EXISTS_TAC `[]` THEN SRW_TAC [] [], + Cases_on `felist` THEN FULL_SIMP_TAC list_ss [] THEN + Q.PAT_ASSUM `!felist'. P felist' ==> ?slist. (LENGTH fplist = LENGTH slist) /\ Q felist' slist` + (MP_TAC o Q.SPEC `t`) THEN + SRW_TAC [] [] THEN RES_TAC THEN Q.EXISTS_TAC `s::slist` THEN SRW_TAC [] []]); + +end; + +val JM_match_is_val_thm = Q.store_thm ("JM_match_is_val_thm", +`!e p s. JM_match e p s ==> !s'. (s = substs_x_xs s') ==> EVERY is_value_of_expr (MAP SND s')`, +RULE_INDUCT_TAC JM_match_ind [EVERY_MAP, ELIM_UNCURRY, MAP_MAP] +[([``"JM_match_tuple"``, ``"JM_match_construct"``], + SRW_TAC [] [EVERY_MEM, MEM_FLAT, EXISTS_MAP, EXISTS_MEM] THEN + Cases_on `x'` THEN FULL_SIMP_TAC list_ss [] THEN + Cases_on `r` THEN FULL_SIMP_TAC list_ss [] THEN + Cases_on `r'` THEN FULL_SIMP_TAC (srw_ss()) [] THEN METIS_TAC [SND]), + ([``"JM_match_record"``], + SRW_TAC [] [EVERY_MEM, MEM_FLAT, EXISTS_MAP, EXISTS_MEM] THEN + Cases_on `x'` THEN FULL_SIMP_TAC list_ss [] THEN + Cases_on `r` THEN FULL_SIMP_TAC list_ss [] THEN + Cases_on `r'` THEN FULL_SIMP_TAC (srw_ss()) [] THEN + Cases_on `q''` THEN FULL_SIMP_TAC (srw_ss()) [] THEN + METIS_TAC [FST, SND]), + ([``"JM_match_cons"``], + SRW_TAC [] [EVERY_MEM] THEN + Cases_on `s` THEN Cases_on `s'` THEN FULL_SIMP_TAC (srw_ss()) [])]); + +val JM_matchP_thm = Q.store_thm ("JM_matchP_thm", +`!p e. JM_matchP e p = ?s. JM_match e p (substs_x_xs s)`, +METIS_TAC [JM_matchP_lem, JM_match_lem, JM_match_is_val_thm]); + + +val _ = export_theory(); diff --git a/vendors/ott/examples/ocaml_light/hol/definitionsScript.sml b/vendors/ott/examples/ocaml_light/hol/definitionsScript.sml new file mode 100644 index 000000000000..54b64cd59820 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/definitionsScript.sml @@ -0,0 +1,833 @@ +(* +load "preservationTheory"; +load "progressTheory"; +load "ottLib"; +load "rich_listTheory"; +load "storeTheory"; +quietdec:=true; +*) +open bossLib HolKernel boolLib listTheory rich_listTheory optionTheory combinTheory arithmeticTheory pairTheory; +open sortingTheory; +open ottTheory ottLib caml_typedefTheory; +open utilTheory basicTheory shiftTheory environmentTheory validTheory progressTheory preservationTheory; +open weakenTheory substsTheory remv_tyvarTheory strengthenTheory env_permTheory storeTheory; +(* +quietdec:=false; +*) + +val _ = new_theory("definitions"); + +val _ = Parse.hide "S"; + +val type_env_rev_thm = Q.prove ( +`!E. type_env (REVERSE E) = type_env E`, +Induct THEN SRW_TAC [] [type_env_def, type_env_append_thm] THEN Cases_on `h` THEN SRW_TAC [] [type_env_def]); + +val typedef_type_env_thm = Q.prove ( +`!tdl E1 E2 E3. JTtypedef tdl E1 E2 E3 ==> type_env E1 /\ type_env E2 /\ type_env E3`, +RULE_INDUCT_TAC JTtypedef_ind [type_env_def, type_env_append_thm, type_env_rev_thm] +[([``"JTtypedef_def_sum"``], + SRW_TAC [] [] THEN Induct_on `constr_decl_EB_list` THEN FULL_SIMP_TAC list_ss [type_env_def] THEN + FULL_SIMP_TAC list_ss [type_env_def, EVERY_MEM, JTconstr_decl_cases] THEN SRW_TAC [] [] THEN + SRW_TAC [] [type_env_def]), + ([``"JTtypedef_def_record"``], + SRW_TAC [] [] THEN Induct_on `field_name_t_EB_list` THEN FULL_SIMP_TAC list_ss [type_env_def] THEN + FULL_SIMP_TAC list_ss [type_env_def, EVERY_MEM, JTfield_decl_cases, ELIM_UNCURRY] THEN SRW_TAC [] [] THEN + SRW_TAC [] [type_env_def])]); + +val type_definition_type_env_thm = Q.prove ( +`!E tds E'. JTtype_definition E tds E' ==> type_env E'`, +HO_MATCH_MP_TAC JTtype_definition_ind THEN SRW_TAC [] [type_env_append_thm] THEN +METIS_TAC [typedef_type_env_thm]); + +val ds_value_type_env_thm = Q.prove ( +`!E ds_value E'. JTdefinitions E ds_value E' ==> type_env E /\ is_definitions_value_of_definitions ds_value + ==> type_env E'`, +HO_MATCH_MP_TAC JTdefinitions_ind THEN SRW_TAC [] [type_env_def, type_env_append_thm] THEN +Cases_on `definition` THEN +FULL_SIMP_TAC list_ss [JTdefinition_fun, is_definitions_value_of_definitions_def, type_env_def, + is_definition_value_of_definition_def, JTconstr_decl_cases] THEN SRW_TAC [] [] THEN +METIS_TAC [type_definition_type_env_thm]); + +val substs_x_to_vn_e_list_def = Define +`substs_x_to_vn_e_list (substs_x_xs vn_e_list) = vn_e_list`; + +val substs_x_to_vn_e_list_thm = Q.prove ( +`!l. substs_x_xs (substs_x_to_vn_e_list l) = l`, +Cases THEN SRW_TAC [] [substs_x_to_vn_e_list_def]); + +local + +val lem1 = Q.prove ( +`!l f. LRBs_inj (MAP (\x. LRB_simple (FST case x of LRB_simple y z -> (y,f z,z)) + (SND (SND case x of LRB_simple y z -> (y,f z,z)))) (lrbs_to_lrblist l)) = + l`, +Induct THEN SRW_TAC [] [lrbs_to_lrblist_def] THEN Induct_on `l` THEN SRW_TAC [] [] THEN Cases_on `h` THEN +SRW_TAC [] []); + +val lem2 = Q.prove ( +`!l'. EVERY (\x. recfun l (SND (SND case x of LRB_simple y z -> (y,recfun l z,z))) = + FST (SND case x of LRB_simple y z -> (y,recfun l z,z))) l'`, +Induct THEN SRW_TAC [] [] THEN Cases_on `h` THEN SRW_TAC [] []); + +in + +val defs_progress_thm = Q.prove ( +`!E ds E'. JTdefinitions E ds E' ==> !ds_value. is_definitions_value_of_definitions ds_value /\ + closed_env E ==> + ((ds = Ds_nil) \/ + (?L ds_value' prog. JRdefn ds_value (Prog_defs ds) L ds_value' prog))`, +HO_MATCH_MP_TAC JTdefinitions_ind THEN SRW_TAC [] [] THEN Cases_on `definition` THEN +FULL_SIMP_TAC list_ss [JRdefn_fun, JTdefinition_fun] THEN SRW_TAC [] [] THEN +`closed_env (EB_tv::E)` by METIS_TAC [closed_env_tv_lem] THEN +IMP_RES_TAC e_progress_thm THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [JRB_ebehaviour_cases] THEN +SRW_TAC [] [EXISTS_OR_THM] THENL +[Cases_on `~JM_matchP e p` THEN1 METIS_TAC [] THEN FULL_SIMP_TAC list_ss [JM_matchP_thm] THEN + IMP_RES_TAC JMmatch_val_subst_thm THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN + METIS_TAC [substs_x_to_vn_e_list_thm], + METIS_TAC [], + Cases_on `~JM_matchP e p` THEN1 METIS_TAC [] THEN FULL_SIMP_TAC list_ss [JM_matchP_thm] THEN + IMP_RES_TAC JMmatch_val_subst_thm THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN + METIS_TAC [substs_x_to_vn_e_list_thm], + METIS_TAC [], + Q.EXISTS_TAC `MAP (\x. case x of LRB_simple y z -> (y, recfun l z, z)) (lrbs_to_lrblist l)` THEN + SRW_TAC [] [MAP_MAP, EVERY_MAP, lem1, lem2]]); +end; + +val ds_value_thm = Q.prove ( +`!ds_value prog L ds_value' prog'. JRdefn ds_value prog L ds_value' prog' ==> + is_definitions_value_of_definitions ds_value /\ + is_definitions_value_of_definitions ds_value'`, +HO_MATCH_MP_TAC JRdefn_ind THEN +SIMP_TAC list_ss [] THEN CONJ_TAC THEN +Induct THEN SRW_TAC [] [is_definitions_value_of_definitions_def, definitions_snoc_def, + is_definition_value_of_definition_def]); + +val defs_store_progress_thm = Q.prove ( +`!ds_value prog L ds_value' prog'. JRdefn ds_value prog L ds_value' prog' ==> !st. + (!l. MEM l (fl_program prog) ==> ?v. (list_assoc l st = SOME v) /\ is_value_of_expr v) ==> + ?L' st' prog''. JRdefn ds_value prog L' ds_value' prog'' /\ JRstore st L' st'`, +RULE_INDUCT_TAC JRdefn_ind [JRdefn_fun, fl_definitions_def, fl_definition_def, fl_letrec_binding_def, + fl_program_def] +[([``"Jdefn_let_ctx"``], METIS_TAC [e_store_progress_thm])] +THEN SRW_TAC [] [JRstore_cases] THEN METIS_TAC []); + +local + +val lem1 = Q.prove ( +`!E l. type_env E ==> ~MEM (name_l l) (MAP domEB E)`, +Induct THEN SRW_TAC [] [type_env_def, domEB_def] THEN +Cases_on `h` THEN FULL_SIMP_TAC list_ss [type_env_def, domEB_def] THEN SRW_TAC [] []); + +in + +val defs_env_fl_thm = Q.prove ( +`!E ds E'. JTdefinitions E ds E' ==> + (!x. MEM x (fl_definitions ds) ==> MEM (name_l x) (MAP domEB E))`, +RULE_INDUCT_TAC JTdefinitions_ind [fl_definitions_def] +[] +THEN Cases_on `definition` THEN +SRW_TAC [] [JTdefinition_cases, fl_definition_def] THEN +FULL_SIMP_TAC list_ss [MAP_REVERSE, MAP_MAP, domEB_def, fl_letrec_binding_def] THEN +IMP_RES_TAC env_fl_thm THEN FULL_SIMP_TAC list_ss [fl_letrec_binding_def, domEB_def] THEN SRW_TAC [] [] THENL +[METIS_TAC [], + FULL_SIMP_TAC list_ss [MEM_MAP] THEN SRW_TAC [] [] THEN METIS_TAC [], + FULL_SIMP_TAC list_ss [MEM_MAP] THEN SRW_TAC [] [] THEN METIS_TAC [], + FULL_SIMP_TAC list_ss [MEM_MAP] THEN SRW_TAC [] [] THEN METIS_TAC [], + METIS_TAC [lem1, type_definition_type_env_thm], + FULL_SIMP_TAC list_ss [JTconstr_decl_cases] THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [domEB_def] THEN + SRW_TAC [] [] THEN METIS_TAC []]); + +val progress_thm = Q.prove ( +`!E prog st E1. JTtop E prog st E1 ==> !ds_value. (is_definitions_value_of_definitions ds_value) /\ + (JTdefinitions [] ds_value E) ==> JRB_dbehaviour ds_value prog st`, +SRW_TAC [] [JTtop_cases, JRB_dbehaviour_cases, JTprog_cases, JRtop_cases] THEN +`closed_env (E'++E)` by METIS_TAC [closed_env_append_thm, store_env_closed_thm, type_env_closed_thm, + JTstore_env_thm, ds_value_type_env_thm, type_env_def] THEN +IMP_RES_TAC defs_progress_thm THEN SRW_TAC [] [] THEN DISJ2_TAC THEN +IMP_RES_TAC defs_store_progress_thm THEN +IMP_RES_TAC defs_env_fl_thm THEN FULL_SIMP_TAC list_ss [] THEN +`!x. ~MEM (name_l x) (MAP domEB E)` by METIS_TAC [lem1, ds_value_type_env_thm, type_env_def] THEN +FULL_SIMP_TAC list_ss [fl_program_def] THEN IMP_RES_TAC store_typing_thm THEN FULL_SIMP_TAC list_ss [] THEN +METIS_TAC [ds_value_thm]); + +val progress_thm = save_thm("progress_thm", SIMP_RULE list_ss [AND_IMP_INTRO, GSYM RIGHT_FORALL_IMP_THM] + progress_thm); +end; + +val helper_lem1 = Q.prove ( +`!l1 l2. (REVERSE (MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) l1) = + REVERSE (MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) l2)) = + (l2 = l1)`, +SIMP_TAC list_ss [REVERSE_EQ] THEN Induct THEN SRW_TAC [] [] THEN +Cases_on `l2` THEN SRW_TAC [] [] THEN Cases_on `h` THEN Cases_on `h'` THEN SRW_TAC [] [shiftt_11] THEN +METIS_TAC []); + + +local + +val lem1 = Q.prove ( +`!E' x. type_env E' ==> ~MEM (name_vn x) (MAP domEB E')`, +Induct THEN SRW_TAC [] [] THEN Cases_on `h` THEN FULL_SIMP_TAC (srw_ss()) [type_env_def, domEB_def]); + +in + +val aux_xs_definition_of_definition_thm = Q.prove ( +`!E d E'. JTdefinition E d E' ==> + (!x. MEM x (aux_xs_definition_of_definition d) = MEM (name_vn x) (MAP domEB E'))`, +RULE_INDUCT_TAC JTdefinition_ind [JTdefinition_fun, aux_xs_definition_of_definition_def, + aux_xs_let_binding_of_let_binding_def , JTe_fun] +[([``"JTdefinition_let_poly"``, ``"JTdefinition_let_mono"``], + SRW_TAC [] [MAP_MAP, MAP_REVERSE, domEB_def] THEN + FULL_SIMP_TAC list_ss [helper_lem1] THEN SRW_TAC [] [] THEN + IMP_RES_TAC (GSYM aux_xs_pattern_of_pattern_thm) THEN + FULL_SIMP_TAC (srw_ss()) [MAP_MAP, domEB_def] THEN SRW_TAC [] [MEM_MAP]), + ([``"JTdefinition_letrec"``], + SRW_TAC [] [MAP_MAP, domEB_def, MAP_REVERSE] THEN + IMP_RES_TAC (GSYM aux_xs_letrec_bindings_of_letrec_bindings_thm) THEN + FULL_SIMP_TAC (srw_ss()) [MAP_MAP, domEB_def] THEN SRW_TAC [] [MEM_MAP]), + ([``"JTdefinition_typedef"``], + METIS_TAC [lem1, type_definition_type_env_thm]), + ([``"JTdefinition_exndef"``], + SRW_TAC [] [JTconstr_decl_cases] THEN SRW_TAC [] [domEB_def])]); + +end; + + +val type_def_store_env_str_thm = Q.prove ( +`!E td E'. JTtype_definition E td E' ==> !E1 E2 E3. (E = E1++E2++E3) /\ (store_env E2 \/ value_env E2) ==> + JTtype_definition (E1++E3) td E'`, +RULE_INDUCT_TAC JTtype_definition_ind [] +[([``"JTtype_definition_swap"``], METIS_TAC [JTtype_definition_rules]), + ([``"JTtype_definition_list"``], + SRW_TAC [] [] THEN ONCE_REWRITE_TAC [JTtype_definition_cases] THEN SRW_TAC [] [] THEN DISJ1_TAC THEN + METIS_TAC [APPEND_ASSOC, value_env_ok_str_thm])]); + +val type_def_ok_thm = Q.prove ( +`!E td E'. JTtype_definition E td E' ==> Eok (E'++E)`, +RULE_INDUCT_TAC JTtype_definition_ind [] []); + +val defs_ok_thm = Q.prove ( +`!E defs E'. JTdefinitions E defs E' ==> Eok (E'++E)`, +RULE_INDUCT_TAC JTdefinitions_ind [] []); + +val prog_ok_thm = Q.prove ( +`!E prog E'. JTprog E prog E' ==> Eok (E'++E)`, +SRW_TAC [] [JTprog_cases] THEN SRW_TAC [] [] THEN METIS_TAC [ok_thm, ok_ok_thm, defs_ok_thm]); + +val weak_type_def_thm = Q.prove ( +`!E td E'. JTtype_definition E td E' ==> + !E1. (E = E1++E2) /\ ~MEM EB_tv E3 /\ Eok (E'++E1++E3++E2) ==> + JTtype_definition (E1++E3++E2) td E'`, +RULE_INDUCT_TAC JTtype_definition_ind [] +[([``"JTtype_definition_swap"``], + SRW_TAC [] [JTtype_definition_rules]), + ([``"JTtype_definition_list"``], + ONCE_REWRITE_TAC [JTtype_definition_cases] THEN SRW_TAC [] [] THEN + METIS_TAC [])]); + + +local + +val lem1 = + hd (tl (tl (CONJUNCTS (SIMP_RULE list_ss [AND_IMP_INTRO, GSYM RIGHT_FORALL_IMP_THM] weak_not_tv_thm)))); + +val lem2 = + hd (tl (tl (tl (CONJUNCTS (SIMP_RULE list_ss [AND_IMP_INTRO, GSYM RIGHT_FORALL_IMP_THM] weak_not_tv_thm))))); + +in + +val weak_def_thm = Q.prove ( +`!E d E'. JTdefinition E d E' ==> + !E1. (E = E1++E2) /\ ~MEM EB_tv E3 /\ + (!n. MEM n (MAP domEB E3) /\ MEM n (MAP name_vn (fv_definition d)) ==> MEM n (MAP domEB E1)) /\ + Eok (E'++E1++E3++E2) ==> + JTdefinition (E1++E3++E2) d E'`, +RULE_INDUCT_TAC JTdefinition_ind [JTdefinition_fun, fv_definition_def] +[([``"JTdefinition_let_mono"``, ``"JTdefinition_let_poly"``], + SRW_TAC [] [] THEN `Eok (E1++E3++E2)` by METIS_TAC [ok_ok_thm, APPEND_ASSOC] THEN + `Eok (EB_tv::E1++E3++E2)` by SRW_TAC [] [Eok_def] THEN + FULL_SIMP_TAC std_ss [GSYM APPEND] THEN IMP_RES_TAC lem1 THEN FULL_SIMP_TAC list_ss [domEB_def] THEN + METIS_TAC []), + ([``"JTdefinition_letrec"``], + SRW_TAC [] [] THEN `Eok (E1++E3++E2)` by METIS_TAC [ok_ok_thm, APPEND_ASSOC] THEN + `Eok (EB_tv::E1++E3++E2)` by SRW_TAC [] [Eok_def] THEN + FULL_SIMP_TAC std_ss [GSYM APPEND] THEN IMP_RES_TAC lem2 THEN FULL_SIMP_TAC list_ss [domEB_def] THEN + FULL_SIMP_TAC list_ss [MEM_MAP, list_minus_thm] THEN METIS_TAC []), + ([``"JTdefinition_typedef"``], + METIS_TAC [weak_type_def_thm]), + ([``"JTdefinition_exndef"``], + METIS_TAC [ok_ok_thm, APPEND])]); + +end; + +val weak_defs_thm = Q.prove ( +`!E ds E'. JTdefinitions E ds E' ==> + !E1. (E = E1++E2) /\ ~MEM EB_tv E3 /\ + (!n. MEM n (MAP domEB E3) /\ MEM n (MAP name_vn (fv_definitions ds)) ==> MEM n (MAP domEB E1)) /\ + Eok (E'++E1++E3++E2) ==> + JTdefinitions (E1++E3++E2) ds E'`, +RULE_INDUCT_TAC JTdefinitions_ind [JTdefinitions_fun, fv_definitions_def] +[([``"JTdefinitions_item"``], + SRW_TAC [] [] THEN Q.EXISTS_TAC `E'` THEN SRW_TAC [] [] THENL + [MATCH_MP_TAC (SIMP_RULE list_ss [AND_IMP_INTRO, GSYM RIGHT_FORALL_IMP_THM] weak_def_thm) THEN + FULL_SIMP_TAC list_ss [MEM_MAP, list_minus_thm] THEN METIS_TAC [ok_ok_thm, APPEND_ASSOC], + FULL_SIMP_TAC list_ss [] THEN IMP_RES_TAC aux_xs_definition_of_definition_thm THEN + FULL_SIMP_TAC list_ss [MEM_MAP, list_minus_thm] THEN METIS_TAC []])]); + +local + +val lem1 = Q.prove ( +`!E l. value_env E ==> ~MEM (name_l l) (MAP domEB E)`, +recInduct Eok2_ind THEN SRW_TAC [] [domEB_def, value_env_def]); + +val lem3 = Q.prove ( +`!E l. type_env E ==> ~MEM (name_l l) (MAP domEB E)`, +Induct THEN SRW_TAC [] [] THEN +Cases_on `h` THEN FULL_SIMP_TAC (srw_ss()) [domEB_def, type_env_def]); + +val lem4 = Q.prove ( +`!E ds E'. JTdefinitions E ds E' ==> !l. ~MEM (name_l l) (MAP domEB E')`, +HO_MATCH_MP_TAC JTdefinitions_ind THEN SRW_TAC [] [type_env_def, type_env_append_thm] THEN +Cases_on `definition` THEN +FULL_SIMP_TAC list_ss [JTdefinition_fun, is_definitions_value_of_definitions_def, type_env_def, + is_definition_value_of_definition_def, JTconstr_decl_cases] THEN +SRW_TAC [] [MAP_REVERSE, MAP_MAP, domEB_def] THEN SRW_TAC [] [MEM_MAP] THEN +METIS_TAC [type_definition_type_env_thm, lem3, MEM_MAP]); + +in + +val val_env_defs_label_weak_thm = Q.prove ( +`!E1 E2 E3 E4 ds. JTdefinitions (E1++E2) ds E4 /\ value_env E1 /\ (?S. JTLout S E2 L E3) /\ + (?S. JTLin S E2 L) ==> + JTdefinitions (E1++E3++E2) ds E4`, +SRW_TAC [] [JTLout_cases, JTLin_cases] THEN SRW_TAC [] [] THEN +MATCH_MP_TAC ((GEN_ALL o + SIMP_RULE list_ss [AND_IMP_INTRO, GSYM RIGHT_FORALL_IMP_THM] o + hd o CONJUNCTS) weak_defs_thm) THEN +SRW_TAC [] [domEB_def, MEM_MAP] THEN +MATCH_MP_TAC weak_one_loc_ok_thm THEN +IMP_RES_TAC lem4 THEN IMP_RES_TAC lem1 THEN FULL_SIMP_TAC list_ss [] THEN +METIS_TAC [APPEND_ASSOC, defs_ok_thm, ok_thm]); + +end; + +local + +val lem1 = List.nth (CONJUNCTS (SIMP_RULE list_ss [GSYM RIGHT_FORALL_IMP_THM, AND_IMP_INTRO] subst_for_def_lem), + 2); + +val lem2 = List.nth (CONJUNCTS (SIMP_RULE list_ss [GSYM RIGHT_FORALL_IMP_THM, AND_IMP_INTRO] subst_for_def_lem), + 3); + +in + +val def_subst_thm = Q.prove ( +`!E d E'. JTdefinition E d E' ==> + !S E1 E2 x v t. (E = E1++[EB_vn x (TS_forall t)]++E2) /\ + is_non_expansive_of_expr v /\ + ~MEM (name_vn x) (MAP domEB E1) /\ closed_env E2 /\ + JTe S (EB_tv::E2) v t ==> + JTdefinition (E1++E2) + (subst_value_name_definition (remv_tyvar_expr v) x d) + E'`, +RULE_INDUCT_TAC JTdefinition_ind [subst_value_name_definition_def, JTdefinition_fun] +[([``"JTdefinition_typedef"``], METIS_TAC [type_def_store_env_str_thm, value_env_def]), + ([``"JTdefinition_exndef"``], + SRW_TAC [] [JTconstr_decl_cases] THEN METIS_TAC [value_env_ok_str_thm, value_env_def]), + ([``"JTdefinition_let_mono"``], + SRW_TAC [] [subst_value_name_letrec_binding_def] THEN + DISJ2_TAC THEN Q.EXISTS_TAC `x_t'_list` THEN SRW_TAC [] [GSYM subst_value_name_letrec_binding_def] THEN + Q.EXISTS_TAC `Tsigma` THEN MATCH_MP_TAC lem1 THEN METIS_TAC [remv_tyvar_thm]), + ([``"JTdefinition_let_poly"``], + SRW_TAC [] [subst_value_name_letrec_binding_def] THEN + DISJ1_TAC THEN Q.EXISTS_TAC `x_t'_list` THEN SRW_TAC [] [GSYM subst_value_name_letrec_binding_def] THEN + Q.EXISTS_TAC `Tsigma` THEN SRW_TAC [] [] THEN1 + METIS_TAC [subst_nexp_thm, nexp_remv_tyvar_thm] THEN + SIMP_TAC std_ss [GSYM APPEND] THEN MATCH_MP_TAC lem1 THEN SRW_TAC [] [domEB_def] THEN + METIS_TAC [remv_tyvar_thm]), + ([``"JTdefinition_letrec"``], + SRW_TAC [] [subst_value_name_letrec_binding_def] THEN Q.EXISTS_TAC `x_t'_list` THEN + SRW_TAC [] [GSYM subst_value_name_letrec_binding_def] THEN Q.EXISTS_TAC `Tsigma` THEN + FULL_SIMP_TAC std_ss [GSYM APPEND] THEN IMP_RES_TAC lem2 THEN + FULL_SIMP_TAC (srw_ss()) [domEB_def] THEN + METIS_TAC [remv_tyvar_thm])]); + +end; + +val value_env_def_str_thm = Q.prove ( +`!E d E'. JTdefinition E d E' ==> + !E1. (E = E1++E2++E3) /\ value_env E2 /\ + (!x. MEM x (MAP domEB E2) ==> MEM x (MAP domEB E1)) ==> + JTdefinition (E1++E3) d E'`, +RULE_INDUCT_TAC JTdefinition_ind [JTdefinition_fun] +[([``"JTdefinition_let_poly"``], + SRW_TAC [] [] THEN + DISJ1_TAC THEN MAP_EVERY Q.EXISTS_TAC [`x_t'_list`, `Tsigma`] THEN + FULL_SIMP_TAC std_ss [GSYM APPEND] THEN IMP_RES_TAC value_env_str_thm THEN + FULL_SIMP_TAC list_ss [domEB_def]), + ([``"JTdefinition_let_mono"``], + SRW_TAC [] [] THEN + DISJ2_TAC THEN MAP_EVERY Q.EXISTS_TAC [`x_t'_list`, `Tsigma`] THEN + FULL_SIMP_TAC std_ss [GSYM APPEND] THEN IMP_RES_TAC value_env_str_thm THEN + FULL_SIMP_TAC list_ss [domEB_def]), + ([``"JTdefinition_letrec"``], + SRW_TAC [] [] THEN + MAP_EVERY Q.EXISTS_TAC [`x_t'_list`, `Tsigma`] THEN + FULL_SIMP_TAC std_ss [GSYM APPEND] THEN IMP_RES_TAC value_env_str_thm THEN + FULL_SIMP_TAC list_ss [domEB_def]), + ([``"JTdefinition_typedef"``], + METIS_TAC [type_def_store_env_str_thm]), + ([``"JTdefinition_exndef"``], + SRW_TAC [] [JTconstr_decl_cases] THEN METIS_TAC [value_env_ok_str_thm])]); + +val value_env_defs_str_thm = Q.prove ( +`!E ds E'. JTdefinitions E ds E' ==> + !E1. (E = E1++E2++E3) /\ value_env E2 /\ + (!x. MEM x (MAP domEB E2) ==> MEM x (MAP domEB E1)) ==> + JTdefinitions (E1++E3) ds E'`, +RULE_INDUCT_TAC JTdefinitions_ind [JTdefinitions_fun] +[([``"JTdefinitions_empty"``], + METIS_TAC [value_env_ok_str_thm]), + ([``"JTdefinitions_item"``], + SRW_TAC [] [] THEN Q.EXISTS_TAC `E'` THEN SRW_TAC [] [] THEN METIS_TAC [value_env_def_str_thm])]); + +val defs_subst_thm = Q.prove ( +`!E ds E'. JTdefinitions E ds E' ==> + !E1 E2 x v t. (E = E1++[EB_vn x (TS_forall t)]++E2) /\ + is_non_expansive_of_expr v /\ + ~MEM (name_vn x) (MAP domEB E1) /\ closed_env E2 /\ + (?S. JTe S (EB_tv::E2) v t) ==> + JTdefinitions (E1++E2) + (subst_value_name_definitions (remv_tyvar_expr v) x ds) + E'`, +RULE_INDUCT_TAC JTdefinitions_sind [subst_value_name_definitions_def, JTdefinitions_fun] +[([``"JTdefinitions_empty"``], + METIS_TAC [value_env_def, value_env_ok_str_thm]), + ([``"JTdefinitions_item"``], + SRW_TAC [] [] THEN Q.EXISTS_TAC `E'` THEN SRW_TAC [] [] THENL + [METIS_TAC [def_subst_thm], + IMP_RES_TAC aux_xs_definition_of_definition_thm THEN + MATCH_MP_TAC (GEN_ALL (SIMP_RULE list_ss [AND_IMP_INTRO, GSYM RIGHT_FORALL_IMP_THM] + value_env_defs_str_thm)) THEN + SRW_TAC [] [] THEN + Q.EXISTS_TAC `[EB_vn x (TS_forall t)]` THEN SRW_TAC [] [value_env_def, domEB_def] THEN + FULL_SIMP_TAC list_ss [], + METIS_TAC [def_subst_thm], + IMP_RES_TAC aux_xs_definition_of_definition_thm THEN + Q.PAT_ASSUM `!E1' E2' x' v t'. P E1' E2' x' v t' ==> + JTdefinitions (E1' ++ E2') + (subst_value_name_definitions (remv_tyvar_expr v) x' ds) E''` + MATCH_MP_TAC THEN + SRW_TAC [] [] THEN METIS_TAC []])]); + +val def_substs_empty_thm = Q.prove ( +`!d. substs_value_name_definition [] d = d`, +Induct THEN SRW_TAC [] [substs_value_name_definition_def, substs_empty_thm]); + +val defs_substs_empty_thm = Q.prove ( +`!ds. substs_value_name_definitions [] ds = ds`, +Induct THEN SRW_TAC [] [substs_value_name_definitions_def, def_substs_empty_thm]); + +local + +val lem1 = Q.prove ( +`(!lrbs v x. aux_xs_letrec_bindings_of_letrec_bindings (subst_value_name_letrec_bindings v x lrbs) = + aux_xs_letrec_bindings_of_letrec_bindings lrbs) /\ + (!lrb v x. aux_xs_letrec_binding_of_letrec_binding (subst_value_name_letrec_binding v x lrb) = + aux_xs_letrec_binding_of_letrec_binding lrb) /\ + (!lrb_list v x. MAP (\lrb. aux_xs_letrec_binding_of_letrec_binding + (subst_value_name_letrec_binding v x lrb)) lrb_list = + MAP aux_xs_letrec_binding_of_letrec_binding lrb_list)`, +Induct THEN +SRW_TAC [] [aux_xs_letrec_bindings_of_letrec_bindings_def, subst_value_name_letrec_binding_def, + aux_xs_letrec_binding_of_letrec_binding_def, MAP_MAP]); + +val lem2 = Q.prove ( +`!l v x. aux_xs_let_binding_of_let_binding (subst_value_name_let_binding v x l) = + aux_xs_let_binding_of_let_binding l`, +Cases THEN SRW_TAC [] [aux_xs_let_binding_of_let_binding_def, subst_value_name_letrec_binding_def]); + +val lem3 = Q.prove ( +`!d v x. aux_xs_definition_of_definition (subst_value_name_definition v x d) = + aux_xs_definition_of_definition d`, +Induct THEN +SRW_TAC [] [aux_xs_definition_of_definition_def, subst_value_name_definition_def, lem2, lem1]); + +in + +val def_substs_iter_thm = Q.prove ( +`!d x v. (fv_expr v = []) ==> + (substs_value_name_definition ((x,v)::subs) d = + substs_value_name_definition subs (subst_value_name_definition v x d))`, +Induct THEN +SRW_TAC [] [substs_value_name_definition_def, subst_value_name_definition_def, substs_iter_thm] THEN +FULL_SIMP_TAC list_ss [lem1]); + +val defs_substs_iter_thm = Q.prove ( +`!ds x v subs. (fv_expr v = []) ==> + (substs_value_name_definitions ((x,v)::subs) ds = + substs_value_name_definitions subs (subst_value_name_definitions v x ds))`, +Induct THEN SRW_TAC [] [substs_value_name_definitions_def, subst_value_name_definitions_def] THEN +FULL_SIMP_TAC list_ss [def_substs_iter_thm, lem3]); + +end; + +val defs_substs_thm = Q.prove ( +`!x_t_list x_v_list E ds E'. + (LENGTH x_t_list = LENGTH x_v_list) /\ + JTdefinitions (REVERSE (MAP (\(x,t). EB_vn x (TS_forall t)) x_t_list)++E) ds E'/\ + EVERY (\(x, v). is_non_expansive_of_expr v) x_v_list /\ + closed_env E /\ + ALL_DISTINCT (MAP FST x_t_list) /\ + EVERY (\((x,t),x',v). (x = x') /\ ?S. JTe S (EB_tv::E) v t) (ZIP (x_t_list,x_v_list)) ==> + JTdefinitions E (substs_value_name_definitions (MAP (\(x, v). (x, remv_tyvar_expr v)) x_v_list) ds) E'`, +Induct_on `x_t_list` THEN Cases_on `x_v_list` THEN SRW_TAC [] [defs_substs_empty_thm] THEN +Cases_on `h'` THEN Cases_on `h` THEN FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THEN +`fv_expr (remv_tyvar_expr r') = []` by + (FULL_SIMP_TAC list_ss [GSYM MAP_REVERSE, ELIM_UNCURRY] THEN + METIS_TAC [closed_env_fv_thm, closed_env_tv_lem, remv_tyvar_fv_thm]) THEN +SRW_TAC [] [defs_substs_iter_thm] THEN +Q.PAT_ASSUM `!x_v_list E'' ds' E'''. P x_v_list E'' ds' E''' ==> + JTdefinitions E'' (substs_value_name_definitions + (MAP (\(x,v). (x,remv_tyvar_expr v)) x_v_list) ds') E'''` + MATCH_MP_TAC THEN +SRW_TAC [] [] THEN +MATCH_MP_TAC ((SIMP_RULE list_ss [GSYM RIGHT_FORALL_IMP_THM, AND_IMP_INTRO] o hd o CONJUNCTS) + defs_subst_thm) THEN +SRW_TAC [] [MAP_REVERSE, MAP_MAP, LAMBDA_PROD2] THEN +FULL_SIMP_TAC (srw_ss()) [domEB_def, MEM_MAP, LAMBDA_PROD2] THEN METIS_TAC []); + +local + +val lem1 = Q.prove ( +`!ds_value E1 E2 E3 E' typedef_list. + JTdefinitions E3 ds_value E2 /\ JTtype_definition (E1 ++ E2 ++ E3) (TDF_tdf typedef_list) E' /\ + store_env E1 ==> + JTdefinitions E3 (definitions_snoc ds_value (D_type (TDF_tdf typedef_list))) (E' ++ E2)`, +Induct THEN SRW_TAC [] [definitions_snoc_def, JTdefinitions_fun] THEN FULL_SIMP_TAC list_ss [] THEN +SRW_TAC [] [JTdefinition_fun] THENL +[METIS_TAC [APPEND_NIL, type_def_store_env_str_thm], + METIS_TAC [type_def_store_env_str_thm, type_def_ok_thm, APPEND_NIL], + METIS_TAC [APPEND_ASSOC]]); + +val lem2 = Q.prove ( +`!ds_value E1 E2 E3 EB constr_decl. + JTdefinitions E3 ds_value E2 /\ JTconstr_decl (TPS_nary []) TC_exn constr_decl EB /\ + store_env E1 /\ Eok ([EB]++E1++E2++E3) ==> + JTdefinitions E3 (definitions_snoc ds_value (D_exception (ED_def constr_decl))) (EB::E2)`, +Induct THEN SRW_TAC [] [definitions_snoc_def, JTdefinitions_fun] THEN +FULL_SIMP_TAC list_ss [JTconstr_decl_cases, Eok_def] THEN +SRW_TAC [] [JTdefinition_fun, JTconstr_decl_cases] THEN FULL_SIMP_TAC list_ss [Eok_def] THEN +MAP_EVERY Q.EXISTS_TAC [`E'`, `EB_cc constr_name TC_exn::E''`] THEN SRW_TAC [] [] THEN +POP_ASSUM MATCH_MP_TAC THEN SRW_TAC [] [Eok_def] THEN METIS_TAC []); + +val lem3 = Q.prove ( +`!tpo tc c EB. JTconstr_decl tpo ts c EB ==> type_env [EB]`, +SRW_TAC [] [JTconstr_decl_cases] THEN SRW_TAC [] [type_env_def]); + +val lem4 = Q.prove ( +`EVERY (\x. recfun (LRBs_inj (MAP (\z. LRB_simple (FST z) (SND (SND z))) x_e_pattern_matching_list)) + (SND (SND x)) = FST (SND x)) x_e_pattern_matching_list ==> + EVERY (\x. is_non_expansive_of_expr (FST (SND x))) x_e_pattern_matching_list`, +SRW_TAC [] [EVERY_MEM] THEN METIS_TAC [value_nonexpansive_thm, recfun_is_value]); + +val lem5 = Q.prove ( +`!l1 l2 f g. (MAP (\z. EB_vn (FST z) (f z)) l1 = MAP (\z. EB_vn (FST z) (g z)) l2) ==> + (MAP FST l1 = MAP FST l2)`, +Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN FULL_SIMP_TAC (srw_ss()) [] THEN METIS_TAC []); + +val lem6 = Q.prove ( +`!l1 l2. (MAP (\z. LRB_simple (FST z) (SND (SND z))) l1 = MAP (\z. LRB_simple (FST z) (FST (SND z))) l2) ==> + (MAP FST l1 = MAP FST l2) /\ (MAP (\x. SND (SND x)) l1 = MAP (\x. FST (SND x)) l2)`, +Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THEN +Cases_on `h` THEN Cases_on `h'` THEN SRW_TAC [] []); + +val lem7 = Q.prove ( +`!l2 l3 n. + n < LENGTH l2 /\ + EVERY (\x. recfun (LRBs_inj (MAP (\z. LRB_simple (FST z) (FST (SND z))) l3)) (SND (SND x)) = FST (SND x)) l2 + ==> + (FST (SND (EL n l2)) = + recfun (LRBs_inj (MAP (\z. LRB_simple (FST z) (FST (SND z))) l3)) (SND (SND (EL n l2))))`, +Induct THEN SRW_TAC [] [] THEN Cases_on `n` THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss []); + +val lem8 = Q.prove ( +`!l1 l3 n. + n < LENGTH l1 /\ + (MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) l1 = + MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (TE_arrow (FST (SND (SND z))) (SND (SND (SND z))))))) l3) + ==> + (SND (EL n l1) = (TE_arrow (FST (SND (SND (EL n l3)))) (SND (SND (SND (EL n l3))))))`, +Induct THEN SRW_TAC [] [] THEN Cases_on `n` THEN Cases_on `l3` THEN SRW_TAC [] [] THEN +FULL_SIMP_TAC (srw_ss()) [shiftt_11]); + +val lem9 = Q.prove ( +`!l2 l3 n. + n < LENGTH l2 /\ + (MAP (\x. SND (SND x)) l2 = MAP (\x. FST (SND x)) l3) ==> + (SND (SND (EL n l2)) = FST (SND (EL n l3)))`, +Induct THEN SRW_TAC [] [] THEN Cases_on `n` THEN Cases_on `l3` THEN SRW_TAC [] [] THEN +FULL_SIMP_TAC (srw_ss()) []); + + +(* 12, 13 and 14 copied from preservationScript *) + +val lem12 = +(GEN_ALL o Q.SPECL [`S`, `pm`, `t1`, `t2`, `E1`, `EB_tv::E`] o +SIMP_RULE list_ss [GSYM RIGHT_FORALL_IMP_THM, AND_IMP_INTRO] o hd o tl o CONJUNCTS) weak_one_tv_thm; + +(* 13 and 14 copied from weakenScript *) +val lem13 = SIMP_RULE list_ss [] (Q.SPECL [`t`, `n`, `0`, `1`] (hd (CONJUNCTS shiftt_com_lem))); + +val lem14 = Q.prove ( +`!l m n f g. shiftE m 1 (MAP (\z. EB_vn (f z) (TS_forall (shiftt 0 1 (g z)))) l) = + MAP (\z. EB_vn (f z) (TS_forall (shiftt 0 1 (shiftt m 1 (g z))))) l`, +Induct THEN SRW_TAC [] [shiftE_def, shiftEB_def, lem13, shiftts_def] THEN +METIS_TAC [value_env_map_thm, value_env_num_tv_thm, arithmeticTheory.ADD_0]); + + +(* 17, 18, 19, 20 copied from preservationScript *) + +val lem17 = Q.prove ( +`!E E'. PERM E E' ==> value_env E ==> value_env E'`, +HO_MATCH_MP_TAC PERM_IND THEN SRW_TAC [] [value_env_def] THEN +Cases_on `x` THEN FULL_SIMP_TAC (srw_ss()) [value_env_def] THEN +Cases_on `y` THEN FULL_SIMP_TAC (srw_ss()) [value_env_def]); + +val lem18 = Q.prove ( +`!E. value_env E ==> + (MAP (\x. EB_vn (FST (vn_to_x_t x)) (TS_forall (SND (vn_to_x_t x)))) E = E)`, +Induct THEN SRW_TAC [] [value_env_def] THEN Cases_on `h` THEN +FULL_SIMP_TAC (srw_ss()) [value_env_def] THEN Cases_on `t` THEN SRW_TAC [] [vn_to_x_t_def]); + + +val lem19 = Q.prove ( +`!E x_t_list. value_env E ==> + (PERM (MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) x_t_list) E ==> + PERM (MAP FST x_t_list) (MAP FST (MAP vn_to_x_t E)))`, +SRW_TAC [] [] THEN +`PERM (MAP FST (MAP vn_to_x_t (MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) x_t_list))) + (MAP FST (MAP vn_to_x_t E))` by METIS_TAC [PERM_MAP] THEN +FULL_SIMP_TAC (srw_ss()) [MAP_MAP, vn_to_x_t_def] THEN METIS_TAC []); + + +val lem20 = Q.prove ( +`!E x_t_list. value_env E ==> + PERM (MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) x_t_list) E ==> + PERM (MAP (\z. EB_vn (FST z) (TS_forall (SND z))) x_t_list) + (MAP (\x. EB_vn (FST (vn_to_x_t x)) (TS_forall (idxsubn 0 [] (SND (vn_to_x_t x))))) E)`, +SRW_TAC [] [] THEN +`PERM (MAP (\x. EB_vn (FST (vn_to_x_t x)) (TS_forall (idxsubn 0 [] (SND (vn_to_x_t x))))) + (MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) x_t_list)) + (MAP (\x. EB_vn (FST (vn_to_x_t x)) (TS_forall (idxsubn 0 [] (SND (vn_to_x_t x))))) E)` by + METIS_TAC [PERM_MAP] THEN +FULL_SIMP_TAC (srw_ss()) [MAP_MAP, vn_to_x_t_def, sub_shiftt_thm2]); + +val lem21 = (SIMP_RULE (srw_ss()) [] o + GEN_ALL o + Q.SPECL [`definitions`, `E''`, `[]`] o + SIMP_RULE (srw_ss()) [AND_IMP_INTRO, GSYM RIGHT_FORALL_IMP_THM]) + defs_value_perm_thm; + +in + +val ds_preservation_thm = Q.prove ( +`!ds_value p L ds_value' p'. JRdefn ds_value p L ds_value' p' ==> + !ds ds' E1 E2 E3 E4. store_env E1 /\ JTdefinitions [] ds_value E2 /\ JTprog (E1++E2) p E3 /\ + (!S. JTLin S (E1++E2) L) ==> + ?E5 E8 E6 E7. JTdefinitions [] ds_value' (E5++E2) /\ JTprog (E7++E1++E5++E2) p' E6 /\ + (?S. JTLout S (E1++E5++E2) L E7) /\ (E3 = E6++E8++E5) /\ type_env E5 /\ + ((E5 = []) \/ (E8 = []))`, +RULE_INDUCT_TAC JRdefn_ind [JTprog_cases, JTdefinitions_fun, JTdefinition_fun, JTe_fun, JTL_nil_lem] +[([``"Jdefn_type"``], + SRW_TAC [] [] THEN MAP_EVERY Q.EXISTS_TAC [`E'`, `[]`, `E''`] THEN SRW_TAC [] [] THEN + `JTdefinitions (E1 ++ E' ++ E2) definitions E''` by + METIS_TAC [type_definition_type_env_thm, defs_store_type_perm_thm, APPEND] THEN + METIS_TAC [lem1, APPEND_NIL, type_definition_type_env_thm]), + ([``"Jdefn_exn"``], + SRW_TAC [] [] THEN MAP_EVERY Q.EXISTS_TAC [`[EB]`, `[]`, `E''`] THEN SRW_TAC [] [] THEN + `JTdefinitions (E1 ++ [EB] ++ E2) definitions E''` by + METIS_TAC [defs_store_type_perm_thm, APPEND, lem3] THEN1 + METIS_TAC [lem2, APPEND_NIL, defs_ok_thm, ok_ok_thm] THEN + FULL_SIMP_TAC list_ss [JTconstr_decl_cases, type_env_def]), + ([``"Jdefn_let_ctx"``], + SRW_TAC [] [helper_lem1] THEN MAP_EVERY Q.EXISTS_TAC [`[]`, `[]`] THEN SRW_TAC [] [type_env_def] THENL + [IMP_RES_TAC nexp_red_thm THEN FULL_SIMP_TAC list_ss [JTLin_cases, JTLout_cases] THEN SRW_TAC [] [] THEN + `closed_env (EB_tv::(E1 ++ E2))` + by METIS_TAC [closed_env_tv_lem, ds_value_type_env_thm, closed_env_append_thm, + type_env_closed_thm, store_env_closed_thm, type_env_def] THEN + IMP_RES_TAC e_preservation_thm THEN FULL_SIMP_TAC (srw_ss()) [JTLin_cases, JTLout_cases] THEN + `Eok (EB_tv::(E1 ++ E2))` by METIS_TAC [ok_thm, ok_ok_thm] THEN FULL_SIMP_TAC list_ss [] THEN + MAP_EVERY Q.EXISTS_TAC [`REVERSE (MAP (\z. EB_vn (FST z) (TS_forall (SND z))) x_t'_list)`, + `E''`] THEN + SRW_TAC [] [] THEN METIS_TAC [], + POP_ASSUM (ASSUME_TAC o Q.SPEC `Tsigma`) THEN + `closed_env (E1 ++ E2)` + by METIS_TAC [ds_value_type_env_thm, closed_env_append_thm, + type_env_closed_thm, store_env_closed_thm, type_env_def] THEN + IMP_RES_TAC e_preservation_thm THEN + Q.EXISTS_TAC `E'''` THEN SRW_TAC [] [] THENL + [MAP_EVERY Q.EXISTS_TAC [`REVERSE (MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) + x_t'_list)`, + `E''`] THEN + SRW_TAC [] [] THENL + [METIS_TAC [label_weak_thm, APPEND_ASSOC], + METIS_TAC [val_env_defs_label_weak_thm, value_env_map_thm, MAP_REVERSE, APPEND_ASSOC]], + METIS_TAC []]]), + ([``"Jdefn_let_match"``], + SRW_TAC [] [helper_lem1] THEN Q.EXISTS_TAC `[]` THEN SRW_TAC [] [type_env_def] THENL + [Q.EXISTS_TAC `REVERSE (MAP (\z. EB_vn (FST z) (TS_forall (SND z))) x_t'_list)`, + Q.EXISTS_TAC `REVERSE (MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) x_t'_list)`] THEN + SRW_TAC [] [] THEN + MATCH_MP_TAC (SIMP_RULE list_ss [LAMBDA_PROD2] defs_substs_thm) THEN SRW_TAC [] [] THEN + IMP_RES_TAC pat_preservation_thm THEN FULL_SIMP_TAC list_ss [] THEN + IMP_RES_TAC pat_num_bindings_lem THEN FULL_SIMP_TAC list_ss [LENGTH_REVERSE] THEN + `closed_env (E1++E2)` by METIS_TAC [store_env_closed_thm, type_env_closed_thm, closed_env_append_thm, + ds_value_type_env_thm, type_env_def] THEN + IMP_RES_TAC distinct_pat_env THEN + FULL_SIMP_TAC list_ss [MAP_REVERSE, domEB_def, MAP_MAP, ALL_DISTINCT_REVERSE] THEN + `value_env E'''` by METIS_TAC [lem17, value_env_map_thm, MAP_REVERSE] THEN + `LENGTH (REVERSE E''') = LENGTH x_v_list` + by METIS_TAC [LENGTH_REVERSE, LENGTH_MAP, PERM_LENGTH] THENL + [Q.EXISTS_TAC `MAP (\(x,t). (x, idxsubn 0 [] t)) (MAP vn_to_x_t (REVERSE E'''))` THEN + SRW_TAC [] [MAP_MAP, LAMBDA_PROD2] THENL + [SRW_TAC [] [MAP_MAP, lem18] THEN IMP_RES_TAC distinct_pat_env THEN + FULL_SIMP_TAC (srw_ss()) [GSYM MAP_REVERSE] THEN IMP_RES_TAC lem20 THEN + `ALL_DISTINCT (MAP domEB (MAP (\z. EB_vn (FST z) (TS_forall (SND z))) (REVERSE x_t'_list)))` + by FULL_SIMP_TAC (srw_ss()) [MAP_MAP, vn_to_x_t_def, domEB_def] THEN + METIS_TAC [lem21, APPEND_ASSOC, value_env_map_thm], + FULL_SIMP_TAC list_ss [EVERY_MEM] THEN METIS_TAC [value_nonexpansive_thm], + SRW_TAC [] [MAP_REVERSE, ALL_DISTINCT_REVERSE] THEN + FULL_SIMP_TAC (srw_ss()) [GSYM MAP_REVERSE] THEN + IMP_RES_TAC lem19 THEN IMP_RES_TAC distinct_pat_env THEN + FULL_SIMP_TAC (srw_ss()) [MAP_REVERSE, MAP_MAP, domEB_def, LAMBDA_PROD2, + ALL_DISTINCT_REVERSE] THEN + METIS_TAC [MAP_11_ALL_DISTINCT, name_11, PERM_ALL_DISTINCT, PERM_MAP, MAP_MAP, + ALL_DISTINCT_REVERSE], + SRW_TAC [] [ZIP_MAP, EVERY_MAP] THEN + FULL_SIMP_TAC (srw_ss()) [ZIP_MAP, EVERY_MAP, shiftt_11] THEN + FULL_SIMP_TAC list_ss [EVERY_MEM, LAMBDA_PROD2] THEN + SRW_TAC [] [] THEN RES_TAC THEN SRW_TAC [] [vn_to_x_t_def, sub_shiftt_thm2] THEN + METIS_TAC []], + Q.EXISTS_TAC `MAP vn_to_x_t (REVERSE E''')` THEN SRW_TAC [] [MAP_MAP, LAMBDA_PROD2] THENL + [FULL_SIMP_TAC (srw_ss()) [MAP_MAP, lem18, GSYM MAP_REVERSE] THEN IMP_RES_TAC distinct_pat_env THEN + METIS_TAC [lem21, APPEND_ASSOC, value_env_map_thm], + FULL_SIMP_TAC list_ss [EVERY_MEM] THEN METIS_TAC [value_nonexpansive_thm], + SRW_TAC [] [MAP_REVERSE, ALL_DISTINCT_REVERSE] THEN + FULL_SIMP_TAC (srw_ss()) [GSYM MAP_REVERSE] THEN + IMP_RES_TAC lem19 THEN IMP_RES_TAC distinct_pat_env THEN + FULL_SIMP_TAC (srw_ss()) [MAP_REVERSE, MAP_MAP, domEB_def, LAMBDA_PROD2, + ALL_DISTINCT_REVERSE] THEN + METIS_TAC [MAP_11_ALL_DISTINCT, name_11, PERM_ALL_DISTINCT, PERM_MAP, MAP_MAP, + ALL_DISTINCT_REVERSE], + SRW_TAC [] [ZIP_MAP, EVERY_MAP] THEN + FULL_SIMP_TAC (srw_ss()) [ZIP_MAP, EVERY_MAP, shiftt_11] THEN + FULL_SIMP_TAC list_ss [EVERY_MEM, LAMBDA_PROD2] THEN + SRW_TAC [] [] THEN RES_TAC THEN SRW_TAC [] [vn_to_x_t_def] THEN + METIS_TAC [weak_one_tv_thm, num_tv_def, shiftE_def, APPEND, vn_to_x_t_def]]]), + ([``"Jdefn_letrec"``], + SRW_TAC [] [] THEN + MAP_EVERY Q.EXISTS_TAC [`[]`, `REVERSE (MAP (\z. EB_vn (FST z) (TS_forall (SND z))) x_t'_list)`] THEN + SRW_TAC [] [type_env_def] THEN + `(MAP (\z. (FST z,remv_tyvar_expr (FST (SND z)))) x_e_pattern_matching_list) = + MAP (\z. (FST z,remv_tyvar_expr (SND z))) (MAP (\x. (FST x, FST (SND x))) x_e_pattern_matching_list)` + by SRW_TAC [] [MAP_MAP] THEN + SRW_TAC [] [] THEN + MATCH_MP_TAC (SIMP_RULE list_ss [LAMBDA_PROD2] defs_substs_thm) THEN SRW_TAC [] [EVERY_MAP] THEN + `closed_env (E1++E2)` by METIS_TAC [store_env_closed_thm, type_env_closed_thm, closed_env_append_thm, + ds_value_type_env_thm, type_env_def] THEN + SRW_TAC [] [] THEN + Q.EXISTS_TAC `x_t'_list` THEN SRW_TAC [] [] THENL + [METIS_TAC [LENGTH_MAP, LENGTH_REVERSE], + METIS_TAC [lem4], + METIS_TAC [REVERSE_EQ, lem5, MAP_11_ALL_DISTINCT, name_11], + FULL_SIMP_TAC list_ss [REVERSE_EQ] THEN + IMP_RES_TAC lem6 THEN + `MAP FST x_t'_list = MAP FST x_e_pattern_matching_list` by METIS_TAC [lem5] THEN + `LENGTH x_t'_list = LENGTH x_e_pattern_matching_list` by METIS_TAC [LENGTH_MAP] THEN + SRW_TAC [] [ZIP_MAP, EVERY_MAP] THEN + SRW_TAC [] [EVERY_MEM, MEM_ZIP] THEN SRW_TAC [] [] THEN1 METIS_TAC [EL_MAP] THEN + Q.EXISTS_TAC `Tsigma` THEN + IMP_RES_TAC lem7 THEN IMP_RES_TAC lem8 THEN SRW_TAC [] [] THEN + MATCH_MP_TAC recfun_pres_thm THEN + Q.EXISTS_TAC `REVERSE (MAP (\z. (FST z, (shiftt 0 1 + (TE_arrow (FST (SND (SND z))) + (SND (SND (SND z))))))) + value_name_pattern_matching_t_t'_list)` THEN + SRW_TAC [] [closed_env_def] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THENL + [SRW_TAC [] [lookup_def, domEB_def] THEN + Cases_on `EB2` THEN SRW_TAC [] [shiftEB_def] THEN METIS_TAC [closed_env_def], + SRW_TAC [] [JTe_fun] THEN + Q.EXISTS_TAC `MAP (\(vn, pm, t, t'). (vn, pm, shiftt 0 1 t, shiftt 0 1 t')) + value_name_pattern_matching_t_t'_list` THEN + SRW_TAC [] [EVERY_MEM, ELIM_UNCURRY, MAP_MAP, MAP_REVERSE, + shiftt_def] THEN + FULL_SIMP_TAC list_ss [MEM_MAP] THEN SRW_TAC [] [] THEN + RES_TAC THEN IMP_RES_TAC lem12 THEN + FULL_SIMP_TAC list_ss [value_env_map_thm, value_env_num_tv_thm, lem14, + GSYM shiftt_def, shiftTsig_add_thm, GSYM MAP_REVERSE] THEN + METIS_TAC [MAP_REVERSE, APPEND, APPEND_ASSOC], + SRW_TAC [] [MAP_REVERSE, MAP_MAP, EVERY_MEM, ELIM_UNCURRY] THEN + METIS_TAC [MEM_EL, lem9, LENGTH_MAP]]]), + ([``"Jdefn_let_raise"``], + SRW_TAC [] [is_non_expansive_of_expr_def, is_binary_prim_app_value_of_expr_def] THEN + METIS_TAC [APPEND, APPEND_NIL, type_env_def]), + ([``"Jdefn_let_not_match"``], + SRW_TAC [] [is_value_of_expr_def, JTconst_cases, JTconstr_c_cases] THEN + Q.EXISTS_TAC `[]` THEN SRW_TAC [] [type_env_def] THEN IMP_RES_TAC pat_ok_thm THEN + IMP_RES_TAC ok_ok_thm THEN FULL_SIMP_TAC list_ss [Eok_def] THEN + `tkind (E1++E2) (TE_constr [] TC_exn)` by SRW_TAC [] [Eok_def] THEN + METIS_TAC [JTeq_rules, APPEND])]); +end; + + +local + +val lem1 = + (SIMP_RULE list_ss [AND_IMP_INTRO, GSYM RIGHT_FORALL_IMP_THM]) ds_preservation_thm; + +in + +val preservation_thm = Q.store_thm ("preservation_thm", +`!ds_value prog st ds_value' prog' st'. JRtop ds_value prog st ds_value' prog' st' ==> + !E1 E2. JTdefinitions [] ds_value E1 /\ JTtop E1 prog st E2 ==> + ?E3 E4. JTdefinitions [] ds_value' E3 /\ JTtop E3 prog' st' E4`, +HO_MATCH_MP_TAC JRtop_ind THEN SRW_TAC [] [JTtop_cases] THEN +FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THEN +IMP_RES_TAC JTstore_env_thm THEN +IMP_RES_TAC ds_value_type_env_thm THEN +FULL_SIMP_TAC list_ss [type_env_def] THEN +IMP_RES_TAC store_in_thm THEN +SRW_TAC [] [GSYM LEFT_EXISTS_AND_THM, GSYM RIGHT_EXISTS_AND_THM] THEN +`?E5 E8 E6 E7. + JTdefinitions [] ds_value' (E5 ++ E1) /\ + JTprog (E7++E'++E5++E1) prog' E6 /\ + (?S. JTLout S (E' ++ E5 ++ E1) L E7) /\ + (E'' = E6 ++ E8 ++ E5) /\ type_env E5 /\ + ((E5 = []) \/ (E8 = []))` + by METIS_TAC [lem1] THEN +FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THENL +[Q.EXISTS_TAC `E1` THEN SRW_TAC [] [], + Q.EXISTS_TAC `E5++E1` THEN SRW_TAC [] []] THEN +MAP_EVERY Q.EXISTS_TAC [`E7++E'`, `E6`] THEN SRW_TAC [] [] THENL +[METIS_TAC [store_out_thm], + `Eok (E'++E5++E1)` by METIS_TAC [prog_ok_thm, ok_ok_thm, APPEND_ASSOC] THEN + METIS_TAC [store_out_thm, APPEND_ASSOC, type_env_append_thm, type_env_store_weak_thm]]); + +end; + +val type_soundness_thm = SIMP_RULE list_ss [AND_IMP_INTRO, GSYM RIGHT_FORALL_IMP_THM] (Q.prove ( +`!p1 p2. (RTC (\(ds_value, prog, st) (ds_value', prog', st'). JRtop ds_value prog st ds_value' prog' st')) + p1 p2 ==> + !ds_value prog st ds_value' prog' st' E E'. + (p1 = (ds_value, prog, st)) /\ (p2 = (ds_value', prog', st')) /\ + JTdefinitions [] ds_value E /\ is_definitions_value_of_definitions ds_value /\ + JTtop E prog st E' ==> JRB_dbehaviour ds_value' prog' st'`, +HO_MATCH_MP_TAC relationTheory.RTC_INDUCT THEN SRW_TAC [] [] THEN1 METIS_TAC [progress_thm] THEN +Cases_on `p1'` THEN Cases_on `r` THEN FULL_SIMP_TAC list_ss [] THEN +METIS_TAC [preservation_thm, JRtop_cases, ds_value_thm])); + +val _ = save_thm ("type_soundness_thm", type_soundness_thm); + +val _ = export_theory(); diff --git a/vendors/ott/examples/ocaml_light/hol/defs_red_funScript.sml b/vendors/ott/examples/ocaml_light/hol/defs_red_funScript.sml new file mode 100644 index 000000000000..c30b1b23dc20 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/defs_red_funScript.sml @@ -0,0 +1,219 @@ +open bossLib HolKernel boolLib listTheory rich_listTheory optionTheory combinTheory arithmeticTheory pairTheory; +open ottTheory ottLib caml_typedefTheory; +open utilTheory basicTheory reduction_funTheory matching_funTheory; + +val _ = new_theory "defs_red_fun"; + +val defns_red_def = Define +`(defns_red (defs, Prog_raise _) = Stuck) /\ + (defns_red (defs, Prog_defs Ds_nil) = Stuck) /\ + (defns_red (defs, Prog_defs (Ds_cons (D_let (LB_simple pat e)) defs')) = + if is_definitions_value_of_definitions defs then + if is_raise e then + (case e of + Expr_apply e1 v -> Step (defs, Prog_raise v) + || _ -> Stuck) + else if ~is_value_of_expr e then + result_map (\e'. (defs, Prog_defs (Ds_cons (D_let (LB_simple pat e')) defs'))) + (red e) + else + case pat_match pat e of + SOME substs -> Step (defs, Prog_defs (substs_value_name_definitions + (MAP (\(x, v). (x, remv_tyvar_expr v)) substs) + defs')) + || NONE -> Step (defs, Prog_raise (Expr_constant (CONST_constr C_matchfailure))) + else Stuck) /\ + (defns_red (defs, Prog_defs (Ds_cons (D_letrec lrbs) defs')) = + if is_definitions_value_of_definitions defs then + Step (defs, Prog_defs + (substs_value_name_definitions + (MAP (\lb. (case lb of LRB_simple vn pm -> (vn, remv_tyvar_expr (recfun lrbs pm)))) + (lrbs_to_lrblist lrbs)) + defs')) + else Stuck) /\ + (defns_red (defs, Prog_defs (Ds_cons (D_type type_definition) defs')) = + if is_definitions_value_of_definitions defs then + Step (definitions_snoc defs (D_type type_definition), Prog_defs defs') + else Stuck) /\ + (defns_red (defs, Prog_defs (Ds_cons (D_exception exception_definition) defs')) = + if is_definitions_value_of_definitions defs then + Step (definitions_snoc defs (D_exception exception_definition), Prog_defs defs') + else + Stuck)`; + +val defns_red_ind = fetch "-" "defns_red_ind"; + +local + +val lem6 = Q.prove ( +`!lb f g. f (case lb of LRB_simple vn pm -> g vn pm) = case lb of LRB_simple vn pm -> f (g vn pm)`, +Cases THEN SRW_TAC [] []); + +in + +val defns_red_thm = Q.store_thm ("defns_red_thm", +`!ds_values ds l ds_values' ds'. (UNCURRY JRdefn) (ds_values, ds) l ds_values' ds' = + (interp_result (defns_red (ds_values, ds)) l = SOME (ds_values', ds'))`, +HO_MATCH_MP_TAC defns_red_ind THEN +SRW_TAC [] [JRdefn_fun, defns_red_def, interp_result_def, COND_EXPAND_EQ, interp_map_thm, raise_cases, + is_value_of_expr_def, JM_matchP_thm] THEN EQ_TAC THEN SRW_TAC [] [] THENL +[FULL_SIMP_TAC (srw_ss()) [JR_expr_fun, JRuprim_cases] THEN METIS_TAC [no_value_red_thm], + METIS_TAC [raise_cases, raise_not_JR_thm], + METIS_TAC [red_thm], + METIS_TAC [red_thm], + Cases_on `pat_match pat e` THEN SRW_TAC [] [interp_result_def] THEN METIS_TAC [no_value_red_thm], + IMP_RES_TAC match_thm THEN SRW_TAC [] [interp_result_def, LAMBDA_PROD2], + Cases_on `pat_match pat e` THEN SRW_TAC [] [interp_result_def] THEN METIS_TAC [match_thm, NOT_SOME_NONE], + Cases_on `pat_match pat e` THEN FULL_SIMP_TAC (srw_ss()) [interp_result_def, COND_EXPAND_EQ] THEN + SRW_TAC [] [is_value_of_expr_def, LAMBDA_PROD2] THENL + [METIS_TAC [match_thm, NOT_SOME_NONE], + METIS_TAC [match_thm, pat_match_is_val_thm, EVERY_MAP]], + SRW_TAC [] [lrbs_to_lrblist_def, MAP_MAP] THEN + MATCH_MP_TAC (METIS_PROVE [] ``!f x y z. (x = y) ==> (f x z = f y z)``) THEN + SRW_TAC [] [MAP_EQ] THEN FULL_SIMP_TAC list_ss [EVERY_MEM], + Q.EXISTS_TAC `MAP (\lb. case lb of LRB_simple vn pm -> (vn,recfun lrbs pm, pm)) + (lrbs_to_lrblist lrbs)` THEN + SRW_TAC [] [MAP_MAP, EVERY_MAP, lem6] THENL + [Cases_on `lrbs` THEN SRW_TAC [] [lrbs_to_lrblist_def] THEN + Induct_on `l'` THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [] THEN Cases_on `h` THEN + SRW_TAC [] [], + MATCH_MP_TAC (METIS_PROVE [] ``!f x y z. (x = y) ==> (f x z = f y z)``) THEN + SRW_TAC [] [MAP_EQ] THEN Cases_on `lb` THEN SRW_TAC [] [], + SRW_TAC [] [EVERY_MEM] THEN Cases_on `lb` THEN SRW_TAC [] [] THEN + MATCH_MP_TAC (METIS_PROVE [] ``!f x y z. (x = y) ==> (f x z = f y z)``) THEN + Cases_on `lrbs` THEN SRW_TAC [] [lrbs_to_lrblist_def] THEN + POP_ASSUM (K ALL_TAC) THEN Induct_on `l'` THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [] THEN + Cases_on `h` THEN SRW_TAC [] []]]); + +end; + +val store_assign_def = Define +`(store_assign loc expr [] = NONE) /\ + (store_assign loc expr ((l1, e1)::st) = + if loc = l1 then + SOME ((l1,expr)::st) + else + OPTION_MAP (\st. (l1,e1)::st) (store_assign loc expr st))`; + +val top_red_def = Define +`top_red allocator (st, dvs, prog) = + if is_definitions_value_of_definitions dvs then + case defns_red (dvs, prog) of + Stuck -> NONE + || Step d -> SOME (st,d) + || StepAlloc get_results vl -> + if is_value_of_expr vl then + let l = allocator st in + SOME ((l, remv_tyvar_expr vl)::st, get_results (Expr_location l)) + else + NONE + || StepLookup get_results loc -> + (case list_assoc loc st of + NONE -> NONE + || SOME e -> + if is_value_of_expr e then + SOME (st, get_results e) + else + NONE) + || StepAssign r loc expr -> + if is_value_of_expr expr then + OPTION_MAP (\st. (st, r)) (store_assign loc (remv_tyvar_expr expr) st) + else + NONE + else + NONE`; + +val good_allocator_def = Define +`good_allocator allocator = !st. ~MEM (allocator st) (MAP FST st)`; + +val good_alloc_thm = Q.prove ( +`!st alloc v. good_allocator alloc ==> ~(list_assoc (alloc st) st = SOME v)`, +SRW_TAC [] [good_allocator_def] THEN CCONTR_TAC THEN FULL_SIMP_TAC list_ss [] THEN +IMP_RES_TAC list_assoc_mem THEN FULL_SIMP_TAC list_ss [MEM_MAP] THEN METIS_TAC [FST, SND]); + +val store_assign1_thm = Q.prove ( +`!st n e st'. (store_assign n e st = SOME st') ==> + ?st1 e' st2. (st = st1++[(n, e')]++st2) /\ (st' = st1++[(n,e)]++st2) /\ + (!v. ~(list_assoc n st1 = SOME v))`, +Induct THEN SRW_TAC [] [store_assign_def, list_assoc_def] THEN Cases_on `h` THEN +FULL_SIMP_TAC list_ss [COND_EXPAND_EQ, store_assign_def, list_assoc_def] THEN Cases_on `st'` THEN +FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THENL +[Q.EXISTS_TAC `[]` THEN SRW_TAC [] [list_assoc_def], + RES_TAC THEN SRW_TAC [] [] THEN METIS_TAC [APPEND, APPEND_ASSOC, list_assoc_def]]); + +val store_assign2_thm = Q.prove ( +`!l e st1 e' st2. (!v. ~(list_assoc l st1 = SOME v)) ==> + (store_assign l e (st1++[(l, e')]++st2) = SOME (st1++[(l, e)]++st2))`, +Induct_on `st1` THEN SRW_TAC [] [list_assoc_def, store_assign_def] THEN Cases_on `h` THEN +FULL_SIMP_TAC (srw_ss()) [list_assoc_def, store_assign_def] THEN SRW_TAC [] [] THEN METIS_TAC []); + +val max_alloc_def = Define +`(max_alloc [] = 0:num) /\ + (max_alloc ((l,_)::st) = + let l' = max_alloc st in + if l >= l' then + l + 1 + else l')`; + +local + +val lem1 = Q.prove ( +`!st l'. MEM l' (MAP FST st) ==> (max_alloc st) > l'`, +Induct THEN SRW_TAC [] [max_alloc_def] THEN Cases_on `h` THEN SRW_TAC [] [max_alloc_def, LET_DEF] THEN +RES_TAC THEN DECIDE_TAC); + +in + +val max_alloc_good_thm = Q.prove ( +`good_allocator max_alloc`, +SRW_TAC [] [good_allocator_def] THEN CCONTR_TAC THEN FULL_SIMP_TAC list_ss [] THEN IMP_RES_TAC lem1 THEN +DECIDE_TAC); + +end; + +val top_red1_thm = Q.prove ( +`!alloc st dvs prog st' dvs' prog'. + good_allocator alloc /\ (top_red alloc (st, dvs, prog) = SOME (st', dvs', prog')) ==> + JRtop dvs prog st dvs' prog' st'`, +SRW_TAC [] [JRtop_cases, top_red_def, SIMP_RULE list_ss [ELIM_UNCURRY] defns_red_thm] THEN +Cases_on `defns_red (dvs,prog)` THEN FULL_SIMP_TAC (srw_ss()) [] THEN Cases_on `prog` THEN SRW_TAC [] [] THEN +FULL_SIMP_TAC (srw_ss()) [defns_red_def, interp_result_def, JRstore_cases] THENL +[Q.EXISTS_TAC `Lab_nil` THEN SRW_TAC [] [], + Q.EXISTS_TAC `Lab_alloc e (alloc st)` THEN SRW_TAC [] [interp_result_def] THEN + FULL_SIMP_TAC (srw_ss()) [LET_DEF, list_assoc_mem, COND_EXPAND_EQ, good_alloc_thm], + Cases_on `list_assoc n st` THEN FULL_SIMP_TAC (srw_ss()) [COND_EXPAND_EQ] THEN + Q.EXISTS_TAC `Lab_deref n x` THEN SRW_TAC [] [interp_result_def], + FULL_SIMP_TAC list_ss [COND_EXPAND_EQ] THEN Q.EXISTS_TAC `Lab_assign n e` THEN + SRW_TAC [] [interp_result_def] THEN METIS_TAC [store_assign1_thm]]); + +val top_red2_thm = Q.prove ( +`!st dvs prog st' dvs' prog'. + JRtop dvs prog st dvs' prog' st' ==> + ?alloc. good_allocator alloc /\ (top_red alloc (st, dvs, prog) = SOME (st', dvs', prog'))`, +SRW_TAC [] [JRtop_cases, top_red_def, SIMP_RULE list_ss [ELIM_UNCURRY] defns_red_thm, LET_DEF] THEN +Cases_on `defns_red (dvs,prog)` THEN FULL_SIMP_TAC (srw_ss()) [] THEN Cases_on `prog` THEN SRW_TAC [] [] THEN +FULL_SIMP_TAC (srw_ss()) [defns_red_def, interp_result_def, JRstore_cases, COND_EXPAND_EQ] THEN +SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [interp_result_def, COND_EXPAND_EQ] THEN +SRW_TAC [] [] THENL +[METIS_TAC [max_alloc_good_thm], + Q.EXISTS_TAC `\st'. if st' = st then l else max_alloc st'` THEN SRW_TAC [] [good_allocator_def] THEN + Cases_on `st' = st` THEN SRW_TAC [] [] THENL + [CCONTR_TAC THEN FULL_SIMP_TAC list_ss [] THEN IMP_RES_TAC mem_list_assoc THEN METIS_TAC [], + METIS_TAC [max_alloc_good_thm, good_allocator_def]], + METIS_TAC [max_alloc_good_thm], + Q.EXISTS_TAC `max_alloc` THEN SRW_TAC [] [] THEN METIS_TAC [max_alloc_good_thm, store_assign2_thm], + METIS_TAC []]); + +val top_red_thm = Q.store_thm ("top_red_thm", +`!st dvs prog st' dvs' prog'. + JRtop dvs prog st dvs' prog' st' = + ?alloc. good_allocator alloc /\ (top_red alloc (st, dvs, prog) = SOME (st', dvs', prog'))`, +METIS_TAC [top_red2_thm, top_red1_thm]); + +val top_red_max_alloc_thm = Q.store_thm ("top_red_max_alloc_thm", +`!st dvs prog st' dvs' prog'. + (top_red max_alloc (st, dvs, prog) = SOME (st', dvs', prog')) ==> + JRtop dvs prog st dvs' prog' st'`, +METIS_TAC [top_red_thm, max_alloc_good_thm]); + +val _ = export_theory(); diff --git a/vendors/ott/examples/ocaml_light/hol/env_permScript.sml b/vendors/ott/examples/ocaml_light/hol/env_permScript.sml new file mode 100644 index 000000000000..2d9ca1aee7ac --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/env_permScript.sml @@ -0,0 +1,579 @@ +open bossLib HolKernel boolLib listTheory optionTheory rich_listTheory sortingTheory; +open ottTheory ottLib caml_typedefTheory; +open utilTheory basicTheory shiftTheory environmentTheory; + +val OPTION_MAP_ID = Q.prove ( +`!Op. OPTION_MAP (\x. x) Op = Op`, +Cases THEN SRW_TAC [] []); + +val _ = new_theory "env_perm"; + +val idx_bound_append_thm = Q.store_thm ("idx_bound_append_thm", +`!E1 E2 idx. idx_bound (E1++E2) idx = idx_bound E1 idx \/ idx_bound E2 (idx - num_tv E1)`, +Induct THEN SRW_TAC [] [idx_bound_def, num_tv_def] THEN Cases_on `h` THEN +SRW_TAC [] [idx_bound_def, num_tv_def] THEN Cases_on `idx` THEN +SRW_TAC [ARITH_ss] [idx_bound_def, num_tv_def, arithmeticTheory.ADD1]); + +val idx_env_thm = Q.store_thm ("idx_env_thm", +`!E idx. value_env E \/ type_env E \/ store_env E ==> ~(idx_bound E idx)`, +Induct THEN SRW_TAC [] [value_env_def, type_env_def, store_env_def, idx_bound_def] THEN +Cases_on `h` THEN FULL_SIMP_TAC list_ss [value_env_def, type_env_def, store_env_def, idx_bound_def]); + +val type_env_lookup_lem = Q.store_thm ("type_env_lookup_lem", +`!E. type_env E ==> + (!x. lookup E (name_l x) = NONE) /\ + (!x. lookup E (name_vn x) = NONE) /\ + (!x. lookup E name_tv = NONE)`, +Induct THEN SRW_TAC [] [lookup_def, type_env_def, domEB_def] THEN Cases_on `h` THEN +FULL_SIMP_TAC list_ss [type_env_def, domEB_def, name_distinct]); + +val type_env_num_tv_thm = Q.prove ( +`!E. type_env E ==> (num_tv E = 0)`, +Induct THEN SRW_TAC [] [num_tv_def, type_env_def] THEN Cases_on `h` THEN +FULL_SIMP_TAC list_ss [num_tv_def, type_env_def]); + +val lookup_store_type_perm_thm = Q.prove ( +`!E1 E2 E3 E4 EB name. type_env E2 /\ store_env E3 /\ + (lookup (E1++E2++E3++E4) name = SOME EB) ==> (lookup (E1++E3++E2++E4) name = SOME EB)`, +SRW_TAC [] [lookup_append_thm] THEN +Cases_on `lookup E1 name` THEN FULL_SIMP_TAC list_ss [option_case_def] THEN +Cases_on `lookup E2 name` THEN FULL_SIMP_TAC list_ss [option_case_def] THEN +Cases_on `lookup E3 name` THEN FULL_SIMP_TAC list_ss [option_case_def, num_tv_append_thm] THEN +IMP_RES_TAC type_env_num_tv_thm THEN IMP_RES_TAC value_env_num_tv_thm THEN FULL_SIMP_TAC list_ss [] THEN +Cases_on `name` THEN IMP_RES_TAC store_env_lookup_lem THEN FULL_SIMP_TAC list_ss [] THEN +METIS_TAC [NOT_SOME_NONE, type_env_lookup_lem]); + +val idx_bound_store_type_perm_thm = Q.prove ( +`!E1 E2 E3 E4 idx. type_env E2 /\ store_env E3 /\ idx_bound (E1 ++ E2 ++ E3 ++ E4) idx ==> + idx_bound (E1 ++ E3 ++ E2 ++ E4) idx`, +SRW_TAC [ARITH_ss] [idx_bound_append_thm, idx_env_thm, num_tv_append_thm] THEN +METIS_TAC [idx_env_thm]); + +local + +val lem1 = Q.prove ( +`!E1 E2 E3 t. tkind (E1++E3) t /\ Eok (E1++E2++E3) /\ store_env E1 /\ type_env E2 ==> tkind (E1++E2++E3) t`, +Induct THEN SRW_TAC [] [] THENL +[IMP_RES_TAC tkind_weak_thm THEN IMP_RES_TAC type_env_num_tv_thm THEN FULL_SIMP_TAC list_ss [shiftt_add_thm], + Cases_on `h` THEN FULL_SIMP_TAC list_ss [store_env_def] THEN + MATCH_MP_TAC ((SIMP_RULE list_ss [num_tv_def, shiftt_add_thm] o Q.SPEC `[EB_l n t']`) tkind_weak_thm) THEN + `tkind (E1 ++ E3) t` by METIS_TAC [value_env_ok_str_thm, APPEND, APPEND_ASSOC, store_env_def] THEN + METIS_TAC [ok_ok_thm, APPEND]]); + +val lem2 = Q.prove ( +`Eok (E2 ++ EB_l n t::E3 ++ E4) ==> ~MEM (name_l n) (MAP domEB E2)`, +Induct_on `E2` THEN SRW_TAC [] [] THEN `Eok (E2 ++ EB_l n t::E3 ++ E4)` by METIS_TAC [APPEND, ok_ok_thm] THEN +FULL_SIMP_TAC list_ss [] THEN Cases_on `h` THEN FULL_SIMP_TAC list_ss [Eok_def] THEN +FULL_SIMP_TAC list_ss [domEB_def] THEN SRW_TAC [] []); + +in + +val ok_store_type_perm_thm = Q.prove ( +`(!E1 E2 E3 E4. Eok (E1++E2++E3++E4) /\ type_env E2 /\ store_env E3 ==> + Eok (E1++E3++E2++E4)) /\ + (!E1 tc E2 E3 E4 k. (typeconstr_kind (E1++E2++E3++E4) tc = SOME k) /\ type_env E2 /\ + store_env E3 ==> + (typeconstr_kind (E1++E3++E2++E4) tc = SOME k)) /\ + (!E1 ts E2 E3 E4. tsok (E1++E2++E3++E4) ts /\ type_env E2 /\ store_env E3 ==> + tsok (E1++E3++E2++E4) ts) /\ + (!E1 tpo ts E2 E3 E4. ntsok (E1++E2++E3++E4) tpo ts /\ type_env E2 /\ store_env E3 ==> + ntsok (E1++E3++E2++E4) tpo ts) /\ + (!E1 t E2 E3 E4. tkind (E1++E2++E3++E4) t /\ type_env E2 /\ store_env E3 ==> + tkind (E1++E3++E2++E4) t)`, +HO_MATCH_MP_TAC Eok_ind THEN SRW_TAC [] [Eok_def, COND_EXPAND_EQ] THEN +FULL_SIMP_TAC list_ss [Eok_def, type_env_def, store_env_def, EVERY_MEM] THEN SRW_TAC [] [] THENL +[ALL_TAC, + METIS_TAC [lookup_store_type_perm_thm], + METIS_TAC [], + METIS_TAC [], + METIS_TAC [], + METIS_TAC [lookup_store_type_perm_thm], + METIS_TAC [lookup_store_type_perm_thm], + METIS_TAC [lookup_store_type_perm_thm], + Cases_on `lookup (E1 ++ E2 ++ E3 ++ E4) (name_tcn typeconstr_name)` THEN + FULL_SIMP_TAC list_ss [option_case_def] THEN IMP_RES_TAC lookup_store_type_perm_thm THEN SRW_TAC [] [], + METIS_TAC [idx_bound_store_type_perm_thm]] +THEN +Induct_on `E3` THEN SRW_TAC [] [] THEN Cases_on `h` THEN FULL_SIMP_TAC list_ss [store_env_def] THEN +`Eok (EB_l n t::E3 ++ E4)` by METIS_TAC [ok_ok_thm, APPEND, APPEND_ASSOC] THEN +FULL_SIMP_TAC list_ss [Eok_def] THEN +`Eok (E2++E3++E4)` by METIS_TAC [value_env_ok_str_thm, store_env_def, APPEND, APPEND_ASSOC] THEN +SRW_TAC [] [lem1] THEN METIS_TAC [lem2]); + +end; + + +val teq_store_type_perm_thm = Q.prove ( +`!E t t'. JTeq E t t' ==> !E1 E2 E3 E4. (E = E1++E2++E3++E4) /\ store_env E3 /\ type_env E2 ==> + JTeq (E1++E3++E2++E4) t t'`, +INDUCT_TAC JTeq_ind [] +[([``"JTeq_refl"``], METIS_TAC [ok_store_type_perm_thm, ok_ok_thm, JTeq_rules]), + ([``"JTeq_sym"``, ``"JTeq_trans"``], METIS_TAC [JTeq_rules]), + ([``"JTeq_expand"``], + SRW_TAC [] [] THEN ONCE_REWRITE_TAC [JTeq_cases] THEN NTAC 3 DISJ2_TAC THEN DISJ1_TAC THEN + FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN + METIS_TAC [lookup_store_type_perm_thm, ok_store_type_perm_thm]), + ([``"JTeq_arrow"``], METIS_TAC [JTeq_rules]), + ([``"JTeq_tuple"``], + SRW_TAC [] [] THEN ONCE_REWRITE_TAC [JTeq_cases] THEN FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN + METIS_TAC []), + ([``"JTeq_constr"``], + SRW_TAC [] [] THEN ONCE_REWRITE_TAC [JTeq_cases] THEN FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN + METIS_TAC [ok_store_type_perm_thm])]); + + + +val uprim_store_type_perm_thm = Q.prove ( +`!E1 E2 E3 E4 up t. JTuprim (E1++E2++E3++E4) up t /\ store_env E3 /\ type_env E2 ==> + JTuprim (E1++E3++E2++E4) up t`, +SRW_TAC [] [JTuprim_cases, ok_store_type_perm_thm]); + +val bprim_store_type_perm_thm = Q.prove ( +`!E1 E2 E3 E4 bp t. JTbprim (E1++E2++E3++E4) bp t /\ store_env E3 /\ type_env E2 ==> + JTbprim (E1++E3++E2++E4) bp t`, +SRW_TAC [] [JTbprim_cases, ok_store_type_perm_thm]); + +val inst_store_type_perm_thm = Q.prove ( +`!E1 E2 E3 E4 t ts. JTinst (E1++E2++E3++E4) t ts /\ store_env E3 /\ type_env E2 ==> + JTinst (E1++E3++E2++E4) t ts`, +SRW_TAC [] [JTinst_cases, EVERY_MEM] THEN METIS_TAC [ok_store_type_perm_thm]); + +val inst_named_store_type_perm_thm = Q.prove ( +`!E1 E2 E3 E4 t tpo ts. JTinst_named (E1++E2++E3++E4) t tpo ts /\ store_env E3 /\ type_env E2 ==> + JTinst_named (E1++E3++E2++E4) t tpo ts`, +SRW_TAC [] [JTinst_named_cases, EVERY_MEM] THEN METIS_TAC [ok_store_type_perm_thm]); + +val vn_store_type_perm_thm = Q.prove ( +`!E1 E2 E3 E4 vn t. JTvalue_name (E1++E2++E3++E4) vn t /\ store_env E3 /\ type_env E2 ==> + JTvalue_name (E1++E3++E2++E4) vn t`, +SRW_TAC [] [JTvalue_name_cases] THEN Q.EXISTS_TAC `ts` THEN +SRW_TAC [] [lookup_store_type_perm_thm, inst_store_type_perm_thm]); + +val constr_c_store_type_perm_thm = Q.prove ( +`!E1 E2 E3 E4 c t. JTconstr_c (E1++E2++E3++E4) c t /\ store_env E3 /\ type_env E2 ==> + JTconstr_c (E1++E3++E2++E4) c t`, +SRW_TAC [] [JTconstr_c_cases, ok_store_type_perm_thm, lookup_store_type_perm_thm, EVERY_MEM]); + +val const_store_type_perm_thm = Q.prove ( +`!E1 E2 E3 E4 c t. JTconst (E1++E2++E3++E4) c t /\ store_env E3 /\ type_env E2 ==> + JTconst (E1++E3++E2++E4) c t`, +SRW_TAC [] [JTconst_cases, ok_store_type_perm_thm, constr_c_store_type_perm_thm]); + +val constr_p_store_type_perm_thm = Q.prove ( +`!E1 E2 E3 E4 c t t'. JTconstr_p (E1++E2++E3++E4) c t t' /\ store_env E3 /\ type_env E2 ==> + JTconstr_p (E1++E3++E2++E4) c t t'`, +SRW_TAC [] [JTconstr_p_cases, ok_store_type_perm_thm] THEN +METIS_TAC [lookup_store_type_perm_thm, inst_named_store_type_perm_thm]); + +val field_store_type_perm_thm = Q.prove ( +`!E1 E2 E3 E4 fn t t'. JTfield (E1++E2++E3++E4) fn t t' /\ store_env E3 /\ type_env E2 ==> + JTfield (E1++E3++E2++E4) fn t t'`, +SRW_TAC [] [JTfield_cases] THEN +METIS_TAC [lookup_store_type_perm_thm, inst_named_store_type_perm_thm]); + +val inst_any_store_type_perm_thm = Q.prove ( +`!E t t'. JTinst_any E t t' ==> !E1 E2 E3 E4. (E=E1++E2++E3++E4) /\ store_env E3 /\ type_env E2 ==> + JTinst_any (E1++E3++E2++E4) t t'`, +RULE_INDUCT_TAC JTinst_any_ind [JTinst_any_fun, EVERY_MEM] +[] THEN +METIS_TAC [ok_store_type_perm_thm]); + +val pat_store_type_perm_thm = Q.prove ( +`!S E p t E'. JTpat S E p t E' ==> !E1 E2 E3 E4. (E=E1++E2++E3++E4) /\ store_env E3 /\ type_env E2 ==> + JTpat S (E1++E3++E2++E4) p t E'`, +RULE_INDUCT_TAC JTpat_ind [JTpat_fun, EVERY_MEM] +[([``"JTpat_var"``, ``"JTpat_any"``, ``"JTpat_tuple"``, ``"JTpat_cons"``], + METIS_TAC [ok_store_type_perm_thm]), + ([``"JTpat_typed"``], SRW_TAC [] [] THEN METIS_TAC [inst_any_store_type_perm_thm, teq_store_type_perm_thm]), + ([``"JTpat_constant"``], + METIS_TAC [const_store_type_perm_thm]), + ([``"JTpat_construct"``, ``"JTpat_construct_any"``], + METIS_TAC [constr_p_store_type_perm_thm]), + ([``"JTpat_record"``], + METIS_TAC [field_store_type_perm_thm]), + ([``"JTpat_or"``], + METIS_TAC [])]); + +val store_type_perm_thm = Q.prove ( +`(!S E e t. JTe S E e t ==> !E1 E2 E3 E4. (E=E1++E2++E3++E4) /\ store_env E3 /\ type_env E2 ==> + JTe S (E1++E3++E2++E4) e t) /\ + (!S E pm t t'. JTpat_matching S E pm t t' ==> + !E1 E2 E3 E4. (E=E1++E2++E3++E4) /\ store_env E3 /\ type_env E2 ==> + JTpat_matching S (E1++E3++E2++E4) pm t t') /\ + (!S E lb E'. JTlet_binding S E lb E' ==> !E1 E2 E3 E4. (E=E1++E2++E3++E4) /\ store_env E3 /\ type_env E2 ==> + JTlet_binding S (E1++E3++E2++E4) lb E') /\ + (!S E lrbs E'. JTletrec_binding S E lrbs E' ==> + !E1 E2 E3 E4. (E=E1++E2++E3++E4) /\ store_env E3 /\ type_env E2 ==> + JTletrec_binding S (E1++E3++E2++E4) lrbs E')`, +RULE_INDUCT_TAC JTe_ind [JTe_fun, EVERY_MEM] +[([``"JTe_uprim"``, ``"JTe_bprim"``, ``"JTe_ident"``, ``"JTe_constant"``], + METIS_TAC [uprim_store_type_perm_thm, bprim_store_type_perm_thm, vn_store_type_perm_thm, + const_store_type_perm_thm, teq_store_type_perm_thm]), + ([``"JTe_typed"``], SRW_TAC [] [] THEN METIS_TAC [inst_any_store_type_perm_thm, teq_store_type_perm_thm]), + ([``"JTe_tuple"``, ``"JTe_apply"``, ``"JTe_match"``, ``"JTe_cons"``, ``"JTe_and"``, ``"JTe_or"``, + ``"JTe_while"``, ``"JTe_function"``, ``"JTe_assert"``], + METIS_TAC [teq_store_type_perm_thm]), + ([``"JTe_construct"``], + METIS_TAC [constr_p_store_type_perm_thm, teq_store_type_perm_thm]), + ([``"JTe_record_constr"``], + SRW_TAC [] [] THEN + MAP_EVERY Q.EXISTS_TAC [`field_name'_list`, `t'_list`, `field_name_e_t_list`] THEN + METIS_TAC [field_store_type_perm_thm, lookup_store_type_perm_thm, teq_store_type_perm_thm]), + ([``"JTe_record_with"``, ``"JTe_record_proj"``], + METIS_TAC [field_store_type_perm_thm, teq_store_type_perm_thm]), + ([``"JTe_for"``], + METIS_TAC [APPEND, teq_store_type_perm_thm]), + ([``"JTe_let_mono"``], + METIS_TAC [APPEND_ASSOC]), + ([``"JTe_let_poly"``], + SRW_TAC [] [] THEN DISJ2_TAC THEN Q.EXISTS_TAC `x_t_list` THEN METIS_TAC [APPEND, APPEND_ASSOC]), + ([``"JTe_letrec"``], + METIS_TAC [APPEND, APPEND_ASSOC]), + ([``"JTe_assertfalse"``], + SRW_TAC [] [JTconst_cases] THEN METIS_TAC [ok_store_type_perm_thm]), + ([``"JTe_location"``], + METIS_TAC [lookup_store_type_perm_thm, ok_store_type_perm_thm, teq_store_type_perm_thm]), + ([``"JTpat_matching_pm"``], + SRW_TAC [] [] THEN Q.EXISTS_TAC `pattern_e_E_list` THEN SRW_TAC [] [] THEN + METIS_TAC [pat_store_type_perm_thm]), + ([``"JTlet_binding_poly"``], + METIS_TAC [pat_store_type_perm_thm, APPEND_ASSOC]), + ([``"JTletrec_binding_equal_function"``], + SRW_TAC [] [] THEN Q.EXISTS_TAC `value_name_pattern_matching_t_t'_list` THEN SRW_TAC [] [])]); + +val type_def_store_type_perm_thm = Q.prove ( +`!E td E'. JTtype_definition E td E' ==> !E1 E2 E3 E4. (E = E1++E2++E3++E4) /\ type_env E2 /\ store_env E3 ==> + JTtype_definition (E1++E3++E2++E4) td E'`, +RULE_INDUCT_TAC JTtype_definition_ind [JTtype_definition_rules] [] THEN +SRW_TAC [] [] THEN IMP_RES_TAC JTtype_definition_rules THEN FULL_SIMP_TAC (srw_ss()) [] THEN +`Eok ((E''' ++ E'' ++ E' ++ E1) ++ E2 ++ E3 ++ E4) ==> + Eok ((E''' ++ E'' ++ E' ++ E1) ++ E3 ++ E2 ++ E4)` by METIS_TAC [ok_store_type_perm_thm] THEN + FULL_SIMP_TAC (srw_ss()) []); + + +val def_store_type_perm_thm = Q.prove ( +`!E d E'. JTdefinition E d E' ==> !E1 E2 E3 E4. (E = E1++E2++E3++E4) /\ type_env E2 /\ store_env E3 ==> + JTdefinition (E1++E3++E2++E4) d E'`, +RULE_INDUCT_TAC JTdefinition_ind [JTdefinition_fun] +[([``"JTdefinition_let_poly"``, ``"JTdefinition_let_mono"``, ``"JTdefinition_letrec"``], + SRW_TAC [] [] THEN METIS_TAC [store_type_perm_thm, APPEND, APPEND_ASSOC]), + ([``"JTdefinition_typedef"``], + METIS_TAC [type_def_store_type_perm_thm]), + ([``"JTdefinition_exndef"``], + SRW_TAC [] [JTconstr_decl_cases] THEN METIS_TAC [ok_store_type_perm_thm])]); + +val defs_store_type_perm_thm = Q.store_thm ("defs_store_type_perm_thm", +`!E ds E'. JTdefinitions E ds E' ==> !E1 E2 E3 E4. (E = E1++E2++E3++E4) /\ type_env E2 /\ store_env E3 ==> + JTdefinitions (E1++E3++E2++E4) ds E'`, +RULE_INDUCT_TAC JTdefinitions_ind [JTdefinitions_fun] +[([``"JTdefinitions_empty"``], METIS_TAC [ok_store_type_perm_thm]), + ([``"JTdefinitions_item"``], METIS_TAC [def_store_type_perm_thm, APPEND_ASSOC])]); + +local + +val lem1 = Q.prove ( +`!x E. value_env (x::E) = (?n ts. x = EB_vn n ts) /\ value_env E`, +Cases THEN SRW_TAC [] [value_env_def]); + +val lem2 = Q.prove ( +`!E1 E2. PERM E1 E2 ==> ALL_DISTINCT (MAP domEB E1) /\ value_env E1 ==> PERM E1 E2 /\ + !name. (lookup E1 name = lookup E2 name)`, +HO_MATCH_MP_TAC PERM_IND THEN +SRW_TAC [] [PERM_REFL, PERM_MONO, PERM_SWAP_AT_FRONT, PERM_TRANS, lem1] THENL +[SRW_TAC [] [lookup_def], + SRW_TAC [] [lookup_def, shiftEB_add_thm, OPTION_MAP_ID, domEB_def] THEN FULL_SIMP_TAC (srw_ss()) [domEB_def], + METIS_TAC [PERM_ALL_DISTINCT, PERM_MAP, PERM_TRANS, value_env_perm_thm], + METIS_TAC [PERM_ALL_DISTINCT, PERM_MAP, PERM_TRANS, value_env_perm_thm]]); + +in + +val lookup_value_perm_thm = Q.prove ( +`!E1 E2 E3 E4 EB name. value_env E2 /\ PERM E2 E3 /\ (ALL_DISTINCT (MAP domEB E2) \/ !n. ~(name = name_vn n)) /\ + (lookup (E1++E2++E4) name = SOME EB) ==> (lookup (E1++E3++E4) name = SOME EB)`, +SRW_TAC [] [lookup_append_thm] THEN IMP_RES_TAC value_env_perm_thm THEN +Cases_on `lookup E1 name` THEN FULL_SIMP_TAC (srw_ss()) [] THEN +Cases_on `lookup E2 name` THEN FULL_SIMP_TAC (srw_ss()) [] THEN +Cases_on `lookup E3 name` THEN FULL_SIMP_TAC (srw_ss()) [num_tv_append_thm] THEN +IMP_RES_TAC value_env_num_tv_thm THEN FULL_SIMP_TAC (srw_ss()) [] THEN IMP_RES_TAC value_env_lookup_lem THENL +[METIS_TAC [NOT_SOME_NONE, lem2, PERM_SYM, SOME_11], + METIS_TAC [NOT_SOME_NONE, lem2, PERM_SYM, SOME_11], + METIS_TAC [NOT_SOME_NONE, lem2, PERM_SYM, SOME_11], + Cases_on `name` THEN FULL_SIMP_TAC (srw_ss()) [], + Cases_on `name` THEN FULL_SIMP_TAC (srw_ss()) [], + Cases_on `name` THEN FULL_SIMP_TAC (srw_ss()) []]); + +end; + + +val idx_bound_value_perm_thm = Q.prove ( +`!E1 E2 E3 E4 idx. value_env E2 /\ PERM E2 E3 /\ idx_bound (E1 ++ E2 ++ E4) idx ==> + idx_bound (E1 ++ E3 ++ E4) idx`, +SRW_TAC [ARITH_ss] [idx_bound_append_thm, idx_env_thm, num_tv_append_thm] THEN +METIS_TAC [idx_env_thm, value_env_perm_thm, value_env_num_tv_thm]); + +local + +val lem1 = Q.prove ( +`!E1 E2 E3 t. tkind (E1++E3) t /\ Eok (E1++E2++E3) /\ store_env E1 /\ type_env E2 ==> tkind (E1++E2++E3) t`, +Induct THEN SRW_TAC [] [] THENL +[IMP_RES_TAC tkind_weak_thm THEN IMP_RES_TAC type_env_num_tv_thm THEN FULL_SIMP_TAC list_ss [shiftt_add_thm], + Cases_on `h` THEN FULL_SIMP_TAC list_ss [store_env_def] THEN + MATCH_MP_TAC ((SIMP_RULE list_ss [num_tv_def, shiftt_add_thm] o Q.SPEC `[EB_l n t']`) tkind_weak_thm) THEN + `tkind (E1 ++ E3) t` by METIS_TAC [value_env_ok_str_thm, APPEND, APPEND_ASSOC, store_env_def] THEN + METIS_TAC [ok_ok_thm, APPEND]]); + +val lem2 = Q.prove ( +`Eok (E2 ++ EB_l n t::E3 ++ E4) ==> ~MEM (name_l n) (MAP domEB E2)`, +Induct_on `E2` THEN SRW_TAC [] [] THEN `Eok (E2 ++ EB_l n t::E3 ++ E4)` by METIS_TAC [APPEND, ok_ok_thm] THEN +FULL_SIMP_TAC list_ss [] THEN Cases_on `h` THEN FULL_SIMP_TAC list_ss [Eok_def] THEN +FULL_SIMP_TAC list_ss [domEB_def] THEN SRW_TAC [] []); + +val lem3 = Q.prove ( +`!x E. value_env (x::E) = (?n ts. x = EB_vn n ts) /\ value_env E`, +Cases THEN SRW_TAC [] [value_env_def]); + +val lem4 = Q.prove ( +`!E. value_env E ==> ~MEM EB_tv E`, +Induct THEN SRW_TAC [] [lem3]); + +val lem5 = Q.prove ( +`tsok (E2 ++ E4) ts /\ value_env E2 /\ value_env E3 /\ Eok (E3 ++ E4) ==> tsok (E3++E4) ts`, +METIS_TAC [value_env_ok_str_thm, APPEND, lem4, weak_ok_thm]); + +val lem6 = Q.prove ( +`!E2 E3. PERM E2 E3 ==> Eok (E2 ++ E4) /\ value_env E2 ==> + PERM E2 E3 /\ Eok (E3 ++ E4)`, +HO_MATCH_MP_TAC PERM_IND THEN SRW_TAC [] [lem3] THEN FULL_SIMP_TAC (srw_ss()) [Eok_def] THENL +[METIS_TAC [ok_ok_thm], + METIS_TAC [ok_ok_thm, lem5, value_env_perm_thm], + IMP_RES_TAC ok_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [Eok_def] THEN IMP_RES_TAC ok_ok_thm THEN + FULL_SIMP_TAC (srw_ss()) [Eok_def] THEN METIS_TAC [PERM_SWAP_AT_FRONT], + IMP_RES_TAC ok_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [Eok_def] THEN IMP_RES_TAC ok_ok_thm THEN + SIMP_TAC pure_ss [GSYM APPEND] THEN MATCH_MP_TAC (GEN_ALL lem5) THEN + FULL_SIMP_TAC (srw_ss()) [Eok_def, lem3] THEN Q.EXISTS_TAC `E2` THEN + SRW_TAC [] [] THEN1 METIS_TAC [value_env_perm_thm] THEN + METIS_TAC [value_env_ok_str_thm, APPEND, lem4, weak_ok_thm, value_env_perm_thm, lem3], + METIS_TAC [value_env_perm_thm, PERM_TRANS], + METIS_TAC [value_env_perm_thm]]); + +in + +val ok_value_perm_thm = Q.prove ( +`(!E1 E2 E3 E4. Eok (E1++E2++E4) /\ value_env E2 /\ PERM E2 E3 ==> + Eok (E1++E3++E4)) /\ + (!E1 tc E2 E3 E4 k. (typeconstr_kind (E1++E2++E4) tc = SOME k) /\ value_env E2 /\ + PERM E2 E3 ==> + (typeconstr_kind (E1++E3++E4) tc = SOME k)) /\ + (!E1 ts E2 E3 E4. tsok (E1++E2++E4) ts /\ value_env E2 /\ PERM E2 E3 ==> + tsok (E1++E3++E4) ts) /\ + (!E1 tpo ts E2 E3 E4. ntsok (E1++E2++E4) tpo ts /\ value_env E2 /\ PERM E2 E3 ==> + ntsok (E1++E3++E4) tpo ts) /\ + (!E1 t E2 E3 E4. tkind (E1++E2++E4) t /\ value_env E2 /\ PERM E2 E3 ==> + tkind (E1++E3++E4) t)`, +HO_MATCH_MP_TAC Eok_ind THEN SRW_TAC [] [Eok_def, COND_EXPAND_EQ] THEN +FULL_SIMP_TAC list_ss [Eok_def, value_env_def, EVERY_MEM] THEN SRW_TAC [] [] THEN +IMP_RES_TAC value_env_perm_thm THEN IMP_RES_TAC value_env_lookup_lem THEN +FULL_SIMP_TAC (srw_ss()) [GSYM lookup_dom_thm] THENL +[METIS_TAC [lem6], + METIS_TAC [], + METIS_TAC [], + METIS_TAC [lookup_value_perm_thm, name_distinct], + METIS_TAC [], + METIS_TAC [], + METIS_TAC [], + METIS_TAC [], + METIS_TAC [lookup_value_perm_thm, name_distinct], + METIS_TAC [], + METIS_TAC [lookup_value_perm_thm, name_distinct], + METIS_TAC [], + METIS_TAC [lookup_value_perm_thm, name_distinct], + METIS_TAC [], + METIS_TAC [], + METIS_TAC [], + METIS_TAC [], + METIS_TAC [], + Cases_on `lookup (E1 ++ E2 ++ E4) (name_tcn typeconstr_name)` THEN FULL_SIMP_TAC (srw_ss()) [] THEN + `lookup (E1 ++ E3 ++ E4) (name_tcn typeconstr_name) = SOME x` + by METIS_TAC [lookup_value_perm_thm, name_distinct] THEN + SRW_TAC [] [], + METIS_TAC [], + METIS_TAC [], + METIS_TAC [idx_bound_value_perm_thm], + METIS_TAC [], + METIS_TAC [], + METIS_TAC [], + METIS_TAC [], + METIS_TAC []]); + +end; + +val teq_value_perm_thm = Q.prove ( +`!E t t'. JTeq E t t' ==> !E1 E2 E3 E4. (E = E1++E2++E4) /\ value_env E2 /\ PERM E2 E3 ==> + JTeq (E1++E3++E4) t t'`, +INDUCT_TAC JTeq_ind [] +[([``"JTeq_refl"``], METIS_TAC [ok_value_perm_thm, ok_ok_thm, JTeq_rules]), + ([``"JTeq_sym"``, ``"JTeq_trans"``], METIS_TAC [JTeq_rules]), + ([``"JTeq_expand"``], + SRW_TAC [] [] THEN ONCE_REWRITE_TAC [JTeq_cases] THEN NTAC 3 DISJ2_TAC THEN DISJ1_TAC THEN + FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN + METIS_TAC [lookup_value_perm_thm, ok_value_perm_thm, name_distinct]), + ([``"JTeq_arrow"``], METIS_TAC [JTeq_rules]), + ([``"JTeq_tuple"``], + SRW_TAC [] [] THEN ONCE_REWRITE_TAC [JTeq_cases] THEN FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN + METIS_TAC []), + ([``"JTeq_constr"``], + SRW_TAC [] [] THEN ONCE_REWRITE_TAC [JTeq_cases] THEN FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN + METIS_TAC [ok_value_perm_thm])]); + + +val uprim_value_perm_thm = Q.prove ( +`!E1 E2 E3 E4 up t. JTuprim (E1++E2++E4) up t /\ value_env E2 /\ PERM E2 E3 ==> + JTuprim (E1++E3++E4) up t`, +SRW_TAC [] [JTuprim_cases] THEN METIS_TAC [ok_value_perm_thm]); + +val bprim_value_perm_thm = Q.prove ( +`!E1 E2 E3 E4 bp t. JTbprim (E1++E2++E4) bp t /\ value_env E2 /\ PERM E2 E3 ==> + JTbprim (E1++E3++E4) bp t`, +SRW_TAC [] [JTbprim_cases] THEN METIS_TAC [ok_value_perm_thm]); + +val inst_value_perm_thm = Q.prove ( +`!E1 E2 E3 E4 t ts. JTinst (E1++E2++E4) t ts /\ value_env E2 /\ PERM E2 E3==> + JTinst (E1++E3++E4) t ts`, +SRW_TAC [] [JTinst_cases, EVERY_MEM] THEN METIS_TAC [ok_value_perm_thm]); + +val inst_named_value_perm_thm = Q.prove ( +`!E1 E2 E3 E4 t tpo ts. JTinst_named (E1++E2++E4) t tpo ts /\ value_env E2 /\ PERM E2 E3 ==> + JTinst_named (E1++E3++E4) t tpo ts`, +SRW_TAC [] [JTinst_named_cases, EVERY_MEM] THEN METIS_TAC [ok_value_perm_thm]); + +val vn_value_perm_thm = Q.prove ( +`!E1 E2 E3 E4 vn t. JTvalue_name (E1++E2++E4) vn t /\ value_env E2 /\ PERM E2 E3 /\ + ALL_DISTINCT (MAP domEB E2) ==> + JTvalue_name (E1++E3++E4) vn t`, +SRW_TAC [] [JTvalue_name_cases] THEN Q.EXISTS_TAC `ts` THEN +SRW_TAC [] [] THEN METIS_TAC [lookup_value_perm_thm, inst_value_perm_thm]); + +val constr_c_value_perm_thm = Q.prove ( +`!E1 E2 E3 E4 c t. JTconstr_c (E1++E2++E4) c t /\ value_env E2 /\ PERM E2 E3 ==> + JTconstr_c (E1++E3++E4) c t`, +SRW_TAC [] [JTconstr_c_cases, EVERY_MEM] THEN +METIS_TAC [ok_value_perm_thm, lookup_value_perm_thm, name_distinct]); + +val const_value_perm_thm = Q.prove ( +`!E1 E2 E3 E4 c t. JTconst (E1++E2++E4) c t /\ value_env E2 /\ PERM E2 E3 ==> + JTconst (E1++E3++E4) c t`, +SRW_TAC [] [JTconst_cases] THEN METIS_TAC [ok_value_perm_thm, constr_c_value_perm_thm]); + +val constr_p_value_perm_thm = Q.prove ( +`!E1 E2 E3 E4 c t t'. JTconstr_p (E1++E2++E4) c t t' /\ value_env E2 /\ PERM E2 E3 ==> + JTconstr_p (E1++E3++E4) c t t'`, +SRW_TAC [] [JTconstr_p_cases] THEN +METIS_TAC [ok_value_perm_thm, lookup_value_perm_thm, inst_named_value_perm_thm, name_distinct]); + +val field_value_perm_thm = Q.prove ( +`!E1 E2 E3 E4 fn t t'. JTfield (E1++E2++E4) fn t t' /\ value_env E2 /\ PERM E2 E3 ==> + JTfield (E1++E3++E4) fn t t'`, +SRW_TAC [] [JTfield_cases] THEN +METIS_TAC [ok_value_perm_thm, lookup_value_perm_thm, inst_named_value_perm_thm, name_distinct]); + +val inst_any_value_perm_thm = Q.prove ( +`!E t t'. JTinst_any E t t' ==> !E1 E2 E3 E4. (E=E1++E2++E4) /\ value_env E2 /\ PERM E2 E3 ==> + JTinst_any (E1++E3++E4) t t'`, +RULE_INDUCT_TAC JTinst_any_ind [JTinst_any_fun, EVERY_MEM] [] THEN +METIS_TAC [ok_value_perm_thm]); + +val pat_value_perm_thm = Q.prove ( +`!S E p t E'. JTpat S E p t E' ==> !E1 E2 E3 E4. (E=E1++E2++E4) /\ value_env E2 /\ PERM E2 E3 ==> + JTpat S (E1++E3++E4) p t E'`, +RULE_INDUCT_TAC JTpat_ind [JTpat_fun, EVERY_MEM] +[([``"JTpat_var"``, ``"JTpat_any"``, ``"JTpat_tuple"``, ``"JTpat_cons"``], + METIS_TAC [ok_value_perm_thm]), + ([``"JTpat_typed"``], SRW_TAC [] [] THEN METIS_TAC [inst_any_value_perm_thm, teq_value_perm_thm]), + ([``"JTpat_constant"``], + METIS_TAC [const_value_perm_thm]), + ([``"JTpat_construct"``, ``"JTpat_construct_any"``], + METIS_TAC [constr_p_value_perm_thm]), + ([``"JTpat_record"``], + METIS_TAC [field_value_perm_thm]), + ([``"JTpat_or"``], + METIS_TAC [])]); + +val value_perm_thm = Q.store_thm ("value_perm_thm", +`(!S E e t. JTe S E e t ==> !E1 E2 E3 E4. (E=E1++E2++E4) /\ value_env E2 /\ PERM E2 E3 /\ + ALL_DISTINCT (MAP domEB E2) ==> + JTe S (E1++E3++E4) e t) /\ + (!S E pm t t'. JTpat_matching S E pm t t' ==> + !E1 E2 E3 E4. (E=E1++E2++E4) /\ value_env E2 /\ PERM E2 E3 /\ ALL_DISTINCT (MAP domEB E2) ==> + JTpat_matching S (E1++E3++E4) pm t t') /\ + (!S E lb E'. JTlet_binding S E lb E' ==> !E1 E2 E3 E4. (E=E1++E2++E4) /\ value_env E2 /\ PERM E2 E3 /\ + ALL_DISTINCT (MAP domEB E2) ==> + JTlet_binding S (E1++E3++E4) lb E') /\ + (!S E lrbs E'. JTletrec_binding S E lrbs E' ==> + !E1 E2 E3 E4. (E=E1++E2++E4) /\ value_env E2 /\ PERM E2 E3 /\ ALL_DISTINCT (MAP domEB E2) ==> + JTletrec_binding S (E1++E3++E4) lrbs E')`, +RULE_INDUCT_TAC JTe_ind [JTe_fun, EVERY_MEM] +[([``"JTe_uprim"``, ``"JTe_bprim"``, ``"JTe_ident"``, ``"JTe_constant"``], + METIS_TAC [uprim_value_perm_thm, bprim_value_perm_thm, vn_value_perm_thm, const_value_perm_thm, + teq_value_perm_thm]), + ([``"JTe_typed"``], SRW_TAC [] [] THEN METIS_TAC [inst_any_value_perm_thm, teq_value_perm_thm]), + ([``"JTe_tuple"``, ``"JTe_apply"``, ``"JTe_match"``, ``"JTe_cons"``, ``"JTe_and"``, ``"JTe_or"``, + ``"JTe_while"``, ``"JTe_function"``, ``"JTe_assert"``], + METIS_TAC [teq_value_perm_thm]), + ([``"JTe_construct"``], + METIS_TAC [constr_p_value_perm_thm, teq_value_perm_thm]), + ([``"JTe_record_constr"``], + SRW_TAC [] [] THEN + MAP_EVERY Q.EXISTS_TAC [`field_name'_list`, `t'_list`, `field_name_e_t_list`] THEN SRW_TAC [] [] THEN + METIS_TAC [field_value_perm_thm, lookup_value_perm_thm, teq_value_perm_thm]), + ([``"JTe_record_with"``, ``"JTe_record_proj"``], + METIS_TAC [field_value_perm_thm, teq_value_perm_thm]), + ([``"JTe_for"``], + METIS_TAC [APPEND, teq_value_perm_thm]), + ([``"JTe_let_mono"``], + METIS_TAC [APPEND_ASSOC]), + ([``"JTe_let_poly"``], + SRW_TAC [] [] THEN DISJ2_TAC THEN Q.EXISTS_TAC `x_t_list` THEN METIS_TAC [APPEND, APPEND_ASSOC]), + ([``"JTe_letrec"``], + METIS_TAC [APPEND, APPEND_ASSOC]), + ([``"JTe_assertfalse"``], + SRW_TAC [] [JTconst_cases] THEN METIS_TAC [ok_value_perm_thm]), + ([``"JTe_location"``], + METIS_TAC [lookup_value_perm_thm, ok_value_perm_thm, teq_value_perm_thm]), + ([``"JTlet_binding_poly"``], + METIS_TAC [pat_value_perm_thm, APPEND_ASSOC]), + ([``"JTpat_matching_pm"``], + SRW_TAC [] [] THEN Q.EXISTS_TAC `pattern_e_E_list` THEN SRW_TAC [] [] THEN METIS_TAC [pat_value_perm_thm]), + ([``"JTletrec_binding_equal_function"``], + SRW_TAC [] [] THEN Q.EXISTS_TAC `value_name_pattern_matching_t_t'_list` THEN SRW_TAC [] [])]); + +val type_def_value_perm_thm = Q.prove ( +`!E td E'. JTtype_definition E td E' ==> !E1 E2 E3 E4. (E = E1++E2++E4) /\ value_env E2 /\ PERM E2 E3 ==> + JTtype_definition (E1++E3++E4) td E'`, +RULE_INDUCT_TAC JTtype_definition_ind [JTtype_definition_rules] [] THEN +SRW_TAC [] [] THEN IMP_RES_TAC JTtype_definition_rules THEN FULL_SIMP_TAC (srw_ss()) [] THEN +`Eok ((E''' ++ E'' ++ E' ++ E1) ++ E2 ++ E4) ==> + Eok ((E''' ++ E'' ++ E' ++ E1) ++ E3 ++ E4)` by METIS_TAC [ok_value_perm_thm] THEN + FULL_SIMP_TAC (srw_ss()) []); + +val def_value_perm_thm = Q.prove ( +`!E d E'. JTdefinition E d E' ==> !E1 E2 E3 E4. (E = E1++E2++E4) /\ value_env E2 /\ PERM E2 E3 /\ + ALL_DISTINCT (MAP domEB E2) ==> + JTdefinition (E1++E3++E4) d E'`, +RULE_INDUCT_TAC JTdefinition_ind [JTdefinition_fun] +[([``"JTdefinition_let_poly"``, ``"JTdefinition_let_mono"``, ``"JTdefinition_letrec"``], + SRW_TAC [] [] THEN METIS_TAC [value_perm_thm, APPEND, APPEND_ASSOC]), + ([``"JTdefinition_typedef"``], + METIS_TAC [type_def_value_perm_thm]), + ([``"JTdefinition_exndef"``], + SRW_TAC [] [JTconstr_decl_cases] THEN METIS_TAC [ok_value_perm_thm])]); + +val defs_value_perm_thm = Q.store_thm ("defs_value_perm_thm", +`!E ds E'. JTdefinitions E ds E' ==> !E1 E2 E3 E4. (E = E1++E2++E4) /\ value_env E2 /\ PERM E2 E3 /\ + ALL_DISTINCT (MAP domEB E2) ==> + JTdefinitions (E1++E3++E4) ds E'`, +RULE_INDUCT_TAC JTdefinitions_ind [JTdefinitions_fun] +[([``"JTdefinitions_empty"``], METIS_TAC [ok_value_perm_thm]), + ([``"JTdefinitions_item"``], + SRW_TAC [] [] THEN Q.EXISTS_TAC `E'` THEN SRW_TAC [] [] THEN METIS_TAC [def_value_perm_thm, APPEND_ASSOC])]); + +val _ = export_theory(); diff --git a/vendors/ott/examples/ocaml_light/hol/environmentScript.sml b/vendors/ott/examples/ocaml_light/hol/environmentScript.sml new file mode 100644 index 000000000000..7f2ae83bd2af --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/environmentScript.sml @@ -0,0 +1,639 @@ +open bossLib HolKernel boolLib listTheory rich_listTheory optionTheory combinTheory pairTheory; +open arithmeticTheory; +open ottLib ottTheory caml_typedefTheory; +open utilTheory basicTheory shiftTheory; + +val _ = new_theory "environment"; + +val shiftEB_dom_thm = Q.store_thm ("shiftEB_dom_thm", +`!EB m n. domEB (shiftEB m n EB) = domEB EB`, +Cases THEN SRW_TAC [] [shiftEB_def, domEB_def]); + +val shiftE_dom_thm = Q.store_thm ("shiftE_dom_thm", +`!E m n. MAP domEB (shiftE m n E) = MAP domEB E`, +Induct THEN SRW_TAC [] [shiftE_def] THEN Cases_on `h` THEN +SRW_TAC [] [shiftE_def, shiftEB_def, domEB_def]); + +val idxsubnEB_dom_thm = Q.store_thm ("idxsubnEB_dom_thm", +`!EB x y. domEB (idxsubnEB x y EB) = domEB EB`, +Cases THEN SRW_TAC [] [idxsubnE_def, idxsubnEB_def, domEB_def]); + +val idxsubnE_dom_thm = Q.store_thm ("idxsubnE_dom_thm", +`!E x y. MAP domEB (idxsubnE x y E) = MAP domEB E`, +Induct THEN SRW_TAC [] [idxsubnE_def, idxsubnEB_def] THEN Cases_on `h` THEN +SRW_TAC [] [idxsubnE_def, idxsubnEB_def, domEB_def]); + +val typexpr_has0_def = ottDefine "typexpr_has0" +`(typexpr_has0 (TE_var tv) = F) /\ + (typexpr_has0 (TE_idxvar m n) = (m = 0)) /\ + (typexpr_has0 TE_any = F) /\ + (typexpr_has0 (TE_arrow t1 t2) = (typexpr_has0 t1) \/ (typexpr_has0 t2)) /\ + (typexpr_has0 (TE_tuple tl) = EXISTS typexpr_has0 tl) /\ + (typexpr_has0 (TE_constr tl tc) = EXISTS typexpr_has0 tl)`; + +val shift_has0_lem = Q.prove ( +`(!t. ~(typexpr_has0 (shiftt 0 1 t))) /\ + (!tl. EVERY (\t. ~(typexpr_has0 (shiftt 0 1 t))) tl)`, +Induct THEN SRW_TAC [] [shiftt_def, typexpr_has0_def, o_DEF, EVERY_MAP]); + +val mono_ts_def = Define +`mono_ts (TS_forall t) = ~(typexpr_has0 t)`; + +val store_env_def = Define +`(store_env [] = T) /\ + (store_env (EB_l l t::E) = store_env E) /\ + (store_env _ = F)`; + +val JTstore_env_thm = Q.store_thm ("JTstore_env_thm", +`!E store E'. JTstore E store E' ==> store_env E'`, +HO_MATCH_MP_TAC JTstore_ind THEN SRW_TAC [] [store_env_def]); + +val value_env_def = Define +`(value_env [] = T) /\ + (value_env (EB_vn vn t::E) = value_env E) /\ + (value_env _ = F)`; + +val mono_value_env_def = Define +`(mono_value_env [] = T) /\ + (mono_value_env (EB_vn vn ts::E) = mono_ts ts /\ mono_value_env E) /\ + (mono_value_env _ = F)`; + +val mono_value_env_value_env_thm = Q.prove ( +`!E. mono_value_env E ==> value_env E`, +Induct THEN SRW_TAC [] [mono_value_env_def, value_env_def] THEN Cases_on `h` THEN +FULL_SIMP_TAC list_ss [mono_value_env_def, value_env_def]); + +val value_env_mem = Q.store_thm ("value_env_mem", +`!E. value_env E = !EB. MEM EB E ==> ?vn t. (EB = EB_vn vn t)`, +recInduct (fetch "-" "value_env_ind") THEN SRW_TAC [] [value_env_def] THENL +[METIS_TAC [], + Q.EXISTS_TAC `EB_l v24 v25`, + Q.EXISTS_TAC `EB_ta v21 v22 v23`, + Q.EXISTS_TAC `EB_tr v18 v19 v20`, + Q.EXISTS_TAC `EB_td v16 v17`, + Q.EXISTS_TAC `EB_fn v12 v13 v14 v15`, + Q.EXISTS_TAC `EB_pc v8 v9 v10 v11`, + Q.EXISTS_TAC `EB_cc v6 v7`, + Q.EXISTS_TAC `EB_tv`] THEN SRW_TAC [] []); + +val mono_value_env_mem = Q.store_thm ("mono_value_env_mem", +`!E. mono_value_env E = !EB. MEM EB E ==> (?vn t. (EB = EB_vn vn t) /\ mono_ts t)`, +recInduct (fetch "-" "mono_value_env_ind") THEN SRW_TAC [] [mono_value_env_def] THENL +[METIS_TAC [environment_binding_11], + Q.EXISTS_TAC `EB_l v24 v25`, + Q.EXISTS_TAC `EB_ta v21 v22 v23`, + Q.EXISTS_TAC `EB_tr v18 v19 v20`, + Q.EXISTS_TAC `EB_td v16 v17`, + Q.EXISTS_TAC `EB_fn v12 v13 v14 v15`, + Q.EXISTS_TAC `EB_pc v8 v9 v10 v11`, + Q.EXISTS_TAC `EB_cc v6 v7`, + Q.EXISTS_TAC `EB_tv`] THEN SRW_TAC [] []); + +val store_env_lookup_lem = Q.store_thm ("store_env_lookup_lem", +`!E. store_env E ==> + (!x. lookup E (name_tcn x) = NONE) /\ + (!x. lookup E (name_cn x) = NONE) /\ + (!x. lookup E (name_fn x) = NONE) /\ + (!x. lookup E (name_vn x) = NONE) /\ + (!x. lookup E name_tv = NONE)`, +HO_MATCH_MP_TAC Eok2_ind THEN SRW_TAC [] [lookup_def, store_env_def, domEB_def]); + +val value_env_lookup_lem = Q.store_thm ("value_env_lookup_lem", +`!E. value_env E ==> + (!x. lookup E (name_tcn x) = NONE) /\ + (!x. lookup E (name_cn x) = NONE) /\ + (!x. lookup E (name_fn x) = NONE) /\ + (!x. lookup E (name_l x) = NONE) /\ + (!x. lookup E name_tv = NONE)`, +HO_MATCH_MP_TAC Eok2_ind THEN SRW_TAC [] [lookup_def, value_env_def, domEB_def]); + +val value_env_num_tv_thm = Q.store_thm ("value_env_num_tv_thm", +`!E. value_env E \/ store_env E ==> (num_tv E = 0)`, +Induct THEN SRW_TAC [] [value_env_def, store_env_def, num_tv_def] THEN Cases_on `h` THEN +FULL_SIMP_TAC list_ss [value_env_def, store_env_def, num_tv_def]); + +val value_env_map_thm = Q.store_thm ("value_env_map_thm", +`!l f g. value_env (MAP (\z. EB_vn (f z) (g z)) l)`, +Induct THEN SRW_TAC [] [value_env_def]); + +val value_env_append_thm = Q.store_thm ("value_env_append_thm", +`!E1 E2. value_env (E1++E2) = value_env E1 /\ value_env E2`, +Induct THEN SRW_TAC [] [value_env_def] THEN Cases_on `h` THEN SRW_TAC [] [value_env_def]); + +val value_env_perm_thm = Q.store_thm ("value_env_perm_thm", +`!E E'. PERM E E' ==> value_env E ==> value_env E'`, +HO_MATCH_MP_TAC sortingTheory.PERM_IND THEN SRW_TAC [] [value_env_def] THEN +Cases_on `x` THEN FULL_SIMP_TAC (srw_ss()) [value_env_def] THEN +Cases_on `y` THEN FULL_SIMP_TAC (srw_ss()) [value_env_def]); + +val pat_env_lem = Q.prove ( +`!Tsig E pat t E'. JTpat Tsig E pat t E' ==> mono_value_env E'`, +RULE_INDUCT_TAC JTpat_ind [mono_value_env_mem, domEB_def, mono_ts_def, shift_has0_lem] [] THEN +FULL_SIMP_TAC list_ss [MEM_FLAT, SOME_EL_REVERSE, EXISTS_MAP, ELIM_UNCURRY, EVERY_MEM, EXISTS_MEM] THEN +SRW_TAC [] [mono_ts_def, shift_has0_lem] THEN +METIS_TAC []); + +val pat_env_lem = Q.store_thm ("pat_env_lem", +`!Tsig E pat t E'. JTpat Tsig E pat t E' ==> mono_value_env E' /\ value_env E'`, +METIS_TAC [pat_env_lem, mono_value_env_value_env_thm]); + + +val closed_env_def = Define +`closed_env E = !name vn t. ~(lookup E name = SOME (EB_vn vn t))`; + +val closed_env_lem = Q.store_thm ("closed_env_lem", +`!E vp t. closed_env E ==> ~JTvalue_name E vp t`, +SRW_TAC [] [closed_env_def, JTvalue_name_cases]); + +val closed_env_tv_lem = Q.store_thm ("closed_env_tv_lem", +`!E. closed_env E ==> closed_env (EB_tv::E)`, +SRW_TAC [] [closed_env_def, lookup_def, domEB_def, COND_EXPAND_EQ] THEN DISJ2_TAC THEN Cases THEN + SRW_TAC [] [shiftEB_def]); + +val closed_env_append_thm = Q.store_thm ("closed_env_append_thm", +`!E1 E2. closed_env E1 /\ closed_env E2 ==> closed_env (E1++E2)`, +SRW_TAC [] [closed_env_def, lookup_append_thm] THEN Cases_on `lookup E1 name` THEN SRW_TAC [] [] THENL +[Cases_on `EB` THEN SRW_TAC [] [shiftEB_def], +METIS_TAC []]); + +val store_env_closed_thm = Q.store_thm ("store_env_closed_thm", +`!E. store_env E ==> closed_env E`, +Induct THEN SRW_TAC [] [store_env_def, closed_env_def, lookup_def, COND_EXPAND_EQ] THEN +Cases_on `h` THEN FULL_SIMP_TAC list_ss [domEB_def, store_env_def] THEN SRW_TAC [] [shiftEB_add_thm] THEN +METIS_TAC [closed_env_def]); + +val EB_vn_list_thm = Q.store_thm ("EB_vn_list_thm", +`!x_t_list x_t_list'. (MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) x_t_list = + MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) x_t_list') = + (x_t_list = x_t_list')`, +Induct THEN SRW_TAC [] [] THEN Cases_on `x_t_list'` THEN FULL_SIMP_TAC list_ss [] THEN +Cases_on `h` THEN Cases_on `h'` THEN SRW_TAC [] [shiftt_11]); + +val aux_xs_pattern_of_pattern_thm = Q.store_thm ("aux_xs_pattern_of_pattern_thm", +`!S E p t E'. JTpat S E p t E' ==> (MAP name_vn (aux_xs_pattern_of_pattern p) = MAP domEB (REVERSE E'))`, +RULE_INDUCT_TAC JTpat_ind [aux_xs_pattern_of_pattern_def, JTpat_fun, domEB_def, ELIM_UNCURRY, MAP_MAP, + MAP_FLAT, MAP_REVERSE, FLAT_REVERSE, REVERSE_APPEND] +[([``"JTpat_construct"``], + SRW_TAC [] [] THEN POP_ASSUM (K ALL_TAC) THEN POP_ASSUM MP_TAC THEN POP_ASSUM (K ALL_TAC) THEN + Induct_on `pattern_E_t_list` THEN SRW_TAC [] []), + ([``"JTpat_tuple"``], + SRW_TAC [] [] THEN NTAC 2 (POP_ASSUM (K ALL_TAC)) THEN POP_ASSUM MP_TAC THEN + Induct_on `pattern_t_E_list` THEN SRW_TAC [] []), + ([``"JTpat_record"``], + SRW_TAC [] [] THEN NTAC 3 (POP_ASSUM (K ALL_TAC)) THEN POP_ASSUM MP_TAC THEN + Induct_on `field_name_pattern_E_t_list` THEN SRW_TAC [] [])]); + +val aux_xs_letrec_bindings_of_letrec_bindings_thm = +Q.store_thm ("aux_xs_letrec_bindings_of_letrec_bindings_thm", +`!S E lrbs E'. JTletrec_binding S E lrbs E' ==> + (MAP name_vn (aux_xs_letrec_bindings_of_letrec_bindings lrbs) = MAP domEB (REVERSE E'))`, +Cases_on `lrbs` THEN SRW_TAC [] [JTe_fun, aux_xs_letrec_bindings_of_letrec_bindings_def] THEN +SRW_TAC [] [REVERSE_REVERSE, MAP_MAP, domEB_def, aux_xs_letrec_binding_of_letrec_binding_def] THEN +REPEAT (POP_ASSUM (K ALL_TAC)) THEN Induct_on `value_name_pattern_matching_t_t'_list` THEN +SRW_TAC [] []); + +val env_fv_thm = Q.store_thm ("env_fv_thm", +`(!S E e t. JTe S E e t ==> (!x. MEM x (fv_expr e) ==> MEM (name_vn x) (MAP domEB E))) /\ + (!S E pm t t'. JTpat_matching S E pm t t' ==> + (!x. MEM x (fv_pattern_matching pm) ==> MEM (name_vn x) (MAP domEB E))) /\ + (!S E lb E'. JTlet_binding S E lb E' ==> + (!x. MEM x (fv_let_binding lb) ==> MEM (name_vn x) (MAP domEB E))) /\ + (!S E lrbs E'. JTletrec_binding S E lrbs E' ==> + (!x. MEM x (list_minus (fv_letrec_bindings lrbs) + (aux_xs_letrec_bindings_of_letrec_bindings lrbs)) ==> + MEM (name_vn x) (MAP domEB E)))`, +RULE_INDUCT_TAC JTe_sind [JTe_fun, fv_letrec_binding_def, domEB_def, list_minus_thm] +[([``"JTe_ident"``], FULL_SIMP_TAC list_ss [JTvalue_name_cases] THEN METIS_TAC [lookup_dom_thm]), + ([``"JTe_tuple"``, ``"JTe_construct"``, ``"JTe_record_constr"``, ``"JTe_record_with"``], + FULL_SIMP_TAC list_ss [MEM_FLAT, EVERY_MEM, EXISTS_MEM, MEM_MAP, LAMBDA_PROD2] THEN + METIS_TAC [FST, SND]), + ([``"JTe_for"``], METIS_TAC []), + ([``"JTe_let_mono"``, ``"JTe_let_poly"``], + SRW_TAC [] [] THENL + [FULL_SIMP_TAC list_ss [MEM_MAP, MEM_REVERSE, aux_xs_let_binding_of_let_binding_def, REVERSE_REVERSE, + MAP_MAP, domEB_def, REVERSE_EQ, EB_vn_list_thm] THEN + RES_TAC THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [domEB_def, name_11] THEN + SRW_TAC [] [] THEN METIS_TAC [], + IMP_RES_TAC aux_xs_pattern_of_pattern_thm THEN + FULL_SIMP_TAC list_ss [MEM_MAP, MEM_REVERSE, aux_xs_let_binding_of_let_binding_def, + REVERSE_REVERSE, MAP_MAP, domEB_def, REVERSE_EQ, + EB_vn_list_thm] THEN + RES_TAC THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [domEB_def, name_11] THEN + SRW_TAC [] [] THENL [ALL_TAC, METIS_TAC []] THEN + `MEM (name_vn (FST z)) (MAP (\z. name_vn (FST z)) x_t_list)` + by (SRW_TAC [] [MEM_MAP] THEN METIS_TAC []) THEN + `MEM (name_vn (FST z)) (MAP name_vn (aux_xs_pattern_of_pattern pat))` by METIS_TAC [] THEN + FULL_SIMP_TAC list_ss [MEM_MAP, name_11]]), + ([``"JTe_letrec"``], + SRW_TAC [] [] THENL + [FULL_SIMP_TAC list_ss [MEM_MAP, MEM_REVERSE] THEN + RES_TAC THEN FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THEN + FULL_SIMP_TAC list_ss [domEB_def, name_distinct] THEN METIS_TAC [], + IMP_RES_TAC aux_xs_letrec_bindings_of_letrec_bindings_thm THEN + FULL_SIMP_TAC list_ss [MEM_MAP, MEM_REVERSE, MAP_MAP, domEB_def] THEN + RES_TAC THEN FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THEN + FULL_SIMP_TAC list_ss [domEB_def, name_distinct, name_11] THENL + [ALL_TAC, METIS_TAC []] THEN + SRW_TAC [] [] THEN + `MEM (name_vn (FST z)) (MAP (\z. name_vn (FST z)) x_t_list)` + by (SRW_TAC [] [MEM_MAP] THEN METIS_TAC []) THEN + `MEM (name_vn (FST z)) (MAP name_vn (aux_xs_letrec_bindings_of_letrec_bindings lrbs))` + by METIS_TAC [] THEN + FULL_SIMP_TAC list_ss [MEM_MAP, name_11]]), + ([``"JTpat_matching_pm"``], + FULL_SIMP_TAC list_ss [MEM_FLAT, MEM_MAP, EVERY_MEM, EXISTS_MEM] THEN + SRW_TAC [] [] THEN + FULL_SIMP_TAC list_ss [fv_letrec_binding_def, list_minus_thm] THEN RES_TAC THENL + [IMP_RES_TAC aux_xs_pattern_of_pattern_thm THEN + `MEM (domEB y) (MAP domEB (REVERSE (SND (SND z))))` by METIS_TAC [MEM_REVERSE, MEM_MAP] THEN + METIS_TAC [MEM_MAP, name_11], + METIS_TAC []]), + ([``"JTletrec_binding_equal_function"``], + FULL_SIMP_TAC list_ss [aux_xs_letrec_bindings_of_letrec_bindings_def, MAP_MAP, + fv_letrec_binding_def, aux_xs_letrec_binding_of_letrec_binding_def, + MEM_FLAT, MEM_MAP, EVERY_MEM, EXISTS_MEM] THEN + SRW_TAC [] [] THEN + FULL_SIMP_TAC list_ss [fv_letrec_binding_def] THEN METIS_TAC [MEM, domEB_def, name_11])] +THEN +SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss []); + + +val closed_env_fv_thm = Q.store_thm ("closed_env_fv_thm", +`!S E e t. closed_env E /\ JTe S E e t ==> (fv_expr e = [])`, +METIS_TAC [closed_env_def, env_fv_thm, lookup_name_thm, lookup_dom_thm, NOT_MEM_EMPTY]); + +val EBok_def = Define +`(EBok E EB_tv = T) /\ + (EBok E (EB_vn vn ts) = tsok E ts) /\ + (EBok E (EB_cc cn TC_exn) = T) /\ + (EBok E (EB_cc cn (TC_name tcn)) = + ?kind. lookup E (name_tcn tcn) = SOME (EB_td tcn kind)) /\ + (EBok E (EB_cc cn _) = F) /\ + (EBok E (EB_pc cn (TPS_nary vars) (typexprs_inj t_list) TC_exn) = + LENGTH t_list >= 1 /\ EVERY (tkind E) t_list /\ (vars = [])) /\ + (EBok E (EB_pc cn (TPS_nary vars) (typexprs_inj t_list) (TC_name tcn)) = + EVERY (\t. ntsok E vars t) t_list /\ + (lookup E (name_tcn tcn) = SOME (EB_td tcn (LENGTH vars))) /\ + LENGTH t_list >= 1) /\ + (EBok E (EB_pc constr_name params (typexprs_inj t_list) tc) = F) /\ + (EBok E (EB_fn field_name (TPS_nary vars) tcn t) = + ntsok E vars t /\ + ?field_name_list. (lookup E (name_tcn tcn) = + SOME (EB_tr tcn (LENGTH vars) field_name_list)) /\ + MEM field_name field_name_list) /\ + (EBok E (EB_td tcn kind) = T) /\ + (EBok E (EB_ta (TPS_nary tps) tcn t) = ntsok E tps t) /\ + (EBok E (EB_tr tcn kind field_name_list) = + ALL_DISTINCT (MAP name_fn field_name_list)) /\ + (EBok E (EB_l location t) = tkind E t)`; + + +val EBok_ind = fetch "-" "EBok_ind"; + + +val remove_vn_tv_def = Define +`remove_vn_tv = FILTER (\n. case n of name_vn vn -> F || name_tv -> F || x -> T)`; + +val remove_vn_tv_thm = Q.store_thm ("remove_vn_tv_thm", +`!l name. (!vn. ~(name = name_vn vn)) /\ ~(name = name_tv) ==> (MEM name (remove_vn_tv l) = MEM name l)`, +Induct THEN SRW_TAC [] [remove_vn_tv_def, MEM_FILTER] THEN Cases_on `h` THEN +FULL_SIMP_TAC list_ss [name_case_def] THEN Cases_on `name` THEN SRW_TAC [] []); + +val remove_vn_tv_APPEND = Q.store_thm ("remove_vn_tv_APPEND", +`!l1 l2. remove_vn_tv (l1++l2) = remove_vn_tv l1 ++ remove_vn_tv l2`, +Induct THEN SRW_TAC [] [FILTER_APPEND, remove_vn_tv_def]); + +val Eok_suffixes_def = Define +`Eok_suffixes E = !E1 E2. (E = E1++E2) ==> Eok E2`; + +val ok_lem1 = Q.prove ( +`(!E. Eok E ==> Eok_suffixes E) /\ + (!E tc k. (typeconstr_kind E tc = SOME k) ==> Eok_suffixes E) /\ + (!E ts. tsok E ts ==> Eok_suffixes E) /\ + (!E tps t. ntsok E tps t ==> Eok_suffixes E) /\ + (!E t. tkind E t ==> Eok_suffixes E)`, +HO_MATCH_MP_TAC Eok_ind THEN SRW_TAC [] [Eok_suffixes_def, Eok_def] THEN + FULL_SIMP_TAC list_ss [] THEN + Cases_on `E1` THEN FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [Eok_def] THEN + TRY (Cases_on `t_list`) THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN + METIS_TAC [APPEND]); + +val ok_ok_thm = Q.store_thm ("ok_ok_thm", +`(!E1 E2. Eok (E1++E2) ==> Eok E2) /\ + (!E tc k. (typeconstr_kind E tc = SOME k) ==> Eok E) /\ + (!E ts. tsok E ts ==> Eok E) /\ + (!E tps t. ntsok E tps t ==> Eok E) /\ + (!E t k. tkind E t ==> Eok E)`, +METIS_TAC [Eok_suffixes_def, APPEND, ok_lem1]); + +val Eok_dom_thm = Q.store_thm ("Eok_dom_thm", +`!E. Eok E ==> ALL_DISTINCT (remove_vn_tv (MAP domEB E))`, +HO_MATCH_MP_TAC Eok2_ind THEN SRW_TAC [] [remove_vn_tv_def, Eok_def] THEN +FULL_SIMP_TAC list_ss [domEB_def, name_case_def, Eok_def, MEM_FILTER] THEN TRY (Cases_on `t_list`) THEN +TRY (Cases_on `tps`) THEN FULL_SIMP_TAC list_ss [Eok_def] THEN METIS_TAC [ok_ok_thm, APPEND]); + +local +val lem1 = SIMP_RULE list_ss [] (Q.SPECL [`EB`, `n`, `0`, `1`] shiftEB_com_lem); +in + +val weak_one_tv_lookup_thm = Q.store_thm ("weak_one_tv_lookup_thm", +`!E1 E2 name EB. + ((lookup (E1++E2) name = SOME EB) ==> + (lookup (shiftE 0 1 E1++[EB_tv]++E2) name = SOME (shiftEB (num_tv E1) 1 EB)))`, +Induct THEN SRW_TAC [] [lookup_def, shiftE_def, domEB_def, shiftEB_dom_thm, num_tv_def] + THENL +[IMP_RES_TAC lookup_name_thm THEN SRW_TAC [] [shiftEB_def], + Cases_on `EB` THEN FULL_SIMP_TAC list_ss [domEB_def, name_11, name_distinct] THEN SRW_TAC [] [shiftEB_def], + Cases_on `EB` THEN FULL_SIMP_TAC list_ss [domEB_def, name_11, name_distinct] THEN + SRW_TAC [] [shiftEB_def, num_tv_def], + Cases_on `h` THEN FULL_SIMP_TAC list_ss [domEB_def, name_11, name_distinct, num_tv_def] THEN + Q.EXISTS_TAC `shiftEB (num_tv E1) 1 EB2` THEN SRW_TAC [] [lem1], + Q.EXISTS_TAC `shiftEB (num_tv E1) 1 EB2` THEN SRW_TAC [] [shiftEB_add_thm] THEN + Cases_on `h` THEN FULL_SIMP_TAC list_ss [domEB_def, name_11, name_distinct, num_tv_def]]); + +end; + +val weak_one_tv_idx_bound_thm = Q.prove ( +`!E1 E2 idx. idx_bound (E1 ++ E2) idx ==> + ((idx < num_tv E1) ==> idx_bound (shiftE 0 1 E1 ++ [EB_tv] ++ E2) idx) /\ + (~(idx < num_tv E1) ==> idx_bound (shiftE 0 1 E1 ++ [EB_tv] ++ E2) (idx + 1))`, +Induct THEN SRW_TAC [] [idx_bound_def, num_tv_def, shiftE_def, GSYM ADD1] THEN +Cases_on `h` THEN SRW_TAC [] [shiftEB_def] THEN FULL_SIMP_TAC list_ss [idx_bound_def, num_tv_def, ADD1] THEN +Cases_on `idx` THEN FULL_SIMP_TAC list_ss [idx_bound_def, num_tv_def, ADD1]); + +val weak_one_tv_ok_thm = Q.store_thm ("weak_one_tv_ok_thm", +`(!E1 E2. Eok (E1++E2) ==> Eok (shiftE 0 1 E1++[EB_tv]++E2)) /\ + (!E1 tc E2 k. (typeconstr_kind (E1++E2) tc = SOME k) ==> + (typeconstr_kind (shiftE 0 1 E1++[EB_tv]++E2) tc = SOME k)) /\ + (!E1 ts E2. tsok (E1++E2) ts ==> tsok (shiftE 0 1 E1++[EB_tv]++E2) (shiftts (num_tv E1) 1 ts)) /\ + (!E1 tpo t E2. ntsok (E1++E2) tpo t ==> ntsok (shiftE 0 1 E1++[EB_tv]++E2) tpo (shiftt (num_tv E1) 1 t)) /\ + (!E1 t k E2. (tkind (E1++E2) t ==> tkind (shiftE 0 1 E1++[EB_tv]++E2) (shiftt (num_tv E1) 1 t)))`, +INDUCT_TAC Eok_ind [Eok_def, shiftE_def, shiftEB_def, domEB_def, shiftE_dom_thm, num_tv_def, shiftts_def] +[] THEN +SRW_TAC [] [COND_EXPAND_EQ] THEN IMP_RES_TAC weak_one_tv_lookup_thm THEN +SRW_TAC [] [shiftEB_def, shifttes_def, Eok_def, EVERY_MAP, shiftt_def] THEN +FULL_SIMP_TAC list_ss [EVERY_MEM, shiftE_dom_thm, domEB_def] THEN SRW_TAC [] [weak_one_tv_idx_bound_thm] +THENL +[METIS_TAC [], + METIS_TAC [], + METIS_TAC [], + Cases_on `lookup (E1 ++ E2) (name_tcn typeconstr_name)` THEN FULL_SIMP_TAC list_ss [] THEN + Cases_on `x` THEN FULL_SIMP_TAC list_ss [environment_binding_case_def] THEN + IMP_RES_TAC weak_one_tv_lookup_thm THEN SRW_TAC [] [shiftEB_def], + RES_TAC THEN FULL_SIMP_TAC list_ss [subst_shiftt_com_lem, MAP_MAP, shiftt_def]]); + +val weak_one_tv_EBok_thm = Q.store_thm ("weak_one_tv_EBok_thm", +`!EB E1 E2. EBok (E1++E2) EB ==> EBok (shiftE 0 1 E1++[EB_tv]++E2) (shiftEB (num_tv E1) 1 EB)`, +Cases THEN SRW_TAC [] [EBok_def, shiftEB_def, weak_one_tv_ok_thm] THENL +[Cases_on `t`, + Cases_on `t` THEN Cases_on `t0` THEN Cases_on `t1`, + Cases_on `t`, + Cases_on `t`] THEN +FULL_SIMP_TAC list_ss [EBok_def, shifttes_def, weak_one_tv_ok_thm, EVERY_MAP, EVERY_MEM] THEN +SRW_TAC [] [] THEN +METIS_TAC [weak_one_tv_lookup_thm, shiftEB_def]); + +val weak_lookup_thm = Q.store_thm ("weak_lookup_thm", +`!E1 E2 name EB1 E3. + ((lookup (E1++E2) name = SOME EB1) /\ ~MEM EB_tv E3 /\ + (MEM name (MAP domEB E1) \/ ~MEM name (MAP domEB E3)) ==> + (lookup (E1++E3++E2) name = SOME EB1))`, +Induct THEN SRW_TAC [] [lookup_def, domEB_def, shiftEB_add_thm] THEN +FULL_SIMP_TAC list_ss [lookup_dom_thm] THENL +[FULL_SIMP_TAC list_ss [domEB_def, name_distinct, lookup_append_thm, no_num_tv_thm, shiftEB_add_thm], + METIS_TAC [], + METIS_TAC []]); + +val weak_idx_bound_thm = Q.prove ( +`!E1 E2 idx E3. idx_bound (E1++E2) idx /\ ~MEM EB_tv E3 ==> idx_bound (E1++E3++E2) idx`, +Induct THEN SRW_TAC [] [idx_bound_def] THENL +[Induct_on `E3` THEN SRW_TAC [] [idx_bound_def] THEN Cases_on `h` THEN Cases_on `idx` THEN + FULL_SIMP_TAC (srw_ss()) [idx_bound_def], + Cases_on `h` THEN FULL_SIMP_TAC list_ss [idx_bound_def] THEN + Cases_on `idx` THEN FULL_SIMP_TAC list_ss [idx_bound_def]]); + +val weak_helper_lem1 = Q.store_thm ("weak_helper_lem1", +`(!t. remove_vn_tv [name_tcn t] = [name_tcn t]) /\ + (!cn. remove_vn_tv [name_cn cn] = [name_cn cn]) /\ + (!fn. remove_vn_tv [name_fn fn] = [name_fn fn]) /\ + (!l. remove_vn_tv [name_l l] = [name_l l])`, +SRW_TAC [] [remove_vn_tv_def]); + +val weak_helper_lem2 = Q.store_thm ("weak_helper_lem2", +`!E1 E3 E2 n. Eok (E1++E3++E2) /\ MEM n (MAP domEB (E1++E2)) /\ + ((?tcn. n = name_tcn tcn) \/ (?fn. n = name_fn fn) \/ (?cn. n = name_cn cn) \/ + (?l. n = name_l l)) ==> + (MEM n (MAP domEB E1) \/ ~MEM n (MAP domEB E3))`, +SRW_TAC [] [] THEN IMP_RES_TAC Eok_dom_thm THEN FULL_SIMP_TAC list_ss [remove_vn_tv_APPEND] THEN +SRW_TAC [] [Q.prove (`a \/ ~b = b ==> a`, METIS_TAC [])] THEN +FULL_SIMP_TAC (srw_ss()) [domEB_def, ALL_DISTINCT_APPEND, DISJOINT_APPEND, DISJOINT_MEM, EVERY_MEM] THEN +METIS_TAC [remove_vn_tv_thm, name_distinct]); + +val weak_helper_lem3 = Q.store_thm ("weak_helper_lem3", +`!E1 E2 name EB. (lookup (E1++E2) name = SOME EB) ==> MEM name (MAP domEB (E1++E2))`, +METIS_TAC [lookup_dom_thm]); + +val weak_ok_thm = Q.store_thm ("weak_ok_thm", +`(!E:environment. T) /\ + (!E1 tc k E2 E3. (typeconstr_kind (E1++E2) tc = SOME k) /\ ~MEM EB_tv E3 /\ Eok (E1++E3++E2) ==> + (typeconstr_kind (E1++E3++E2) tc = SOME k)) /\ + (!E1 ts E2 E3. tsok (E1++E2) ts /\ ~MEM EB_tv E3 /\ Eok (E1++E3++E2) ==> tsok (E1++E3++E2) ts) /\ + (!E1 tps t E2 E3. ntsok (E1++E2) tps t /\ ~MEM EB_tv E3 /\ Eok (E1++E3++E2) ==> + ntsok (E1++E3++E2) tps t) /\ + (!E1 t E2 E3. tkind (E1++E2) t /\ ~MEM EB_tv E3 /\ Eok (E1++E3++E2) ==> tkind (E1++E3++E2) t)`, +HO_MATCH_MP_TAC Eok_ind THEN SRW_TAC [] [Eok_def, EVERY_MEM, COND_EXPAND_EQ, weak_idx_bound_thm] THEN +Cases_on `lookup (E1 ++ E2) (name_tcn typeconstr_name)` THEN FULL_SIMP_TAC list_ss [option_case_def] THEN +IMP_RES_TAC lookup_name_thm THEN SRW_TAC [] [] THEN +FULL_SIMP_TAC (srw_ss()) [] THEN +IMP_RES_TAC weak_helper_lem3 THEN IMP_RES_TAC weak_helper_lem2 THEN SRW_TAC [] [] THEN +IMP_RES_TAC weak_lookup_thm THEN SRW_TAC [] []); + +val weak_EBok_thm = Q.store_thm ("weak_EBok_thm", +`!EB1 E3 E1 E2. EBok (E1++E2) EB1 /\ ~MEM EB_tv E3 /\ Eok (E1++E3++E2) ==> EBok (E1++E3++E2) EB1`, +Cases THEN SRW_TAC [] [EBok_def, weak_ok_thm] THENL +[Cases_on `t`, + Cases_on `t` THEN Cases_on `t0` THEN Cases_on `t1`, + Cases_on `t`, + Cases_on `t`] THEN +FULL_SIMP_TAC list_ss [EBok_def, weak_ok_thm, EVERY_MAP, EVERY_MEM] THEN +IMP_RES_TAC weak_helper_lem3 THEN IMP_RES_TAC weak_helper_lem2 THEN SRW_TAC [] [] THEN +IMP_RES_TAC weak_lookup_thm THEN SRW_TAC [] []); + +val tkind_weak_thm = Q.store_thm ("tkind_weak_thm", +`!E1 E2 t. tkind E2 t /\ Eok (E1++E2) ==> tkind (E1++E2) (shiftt 0 (num_tv E1) t)`, +Induct THEN SRW_TAC [] [num_tv_def, shiftt_add_thm] THEN Cases_on `h = EB_tv` THEN +FULL_SIMP_TAC list_ss [num_tv_def, Eok_def] THENL +[RES_TAC THEN + IMP_RES_TAC ((SIMP_RULE list_ss [] o Q.SPECL [`[]`] o hd o tl o tl o tl o tl o CONJUNCTS) + weak_one_tv_ok_thm) THEN + FULL_SIMP_TAC list_ss [num_tv_def, shiftE_def, GSYM shiftt_add_thm], + `Eok (E1++E2)` by METIS_TAC [ok_ok_thm, APPEND] THEN + `num_tv (h::E1) = num_tv E1` by (Cases_on `h` THEN SRW_TAC [] [num_tv_def]) THEN + SRW_TAC [] [] THEN METIS_TAC [weak_ok_thm, APPEND, APPEND_ASSOC, MEM]]); + +val is_tc_EB_def = Define +`(is_tc_EB (EB_ta _ _ _) = T) /\ + (is_tc_EB (EB_td _ _) = T) /\ + (is_tc_EB (EB_tr _ _ _) = T) /\ + (is_tc_EB EB_tv = T) /\ + (is_tc_EB _ = F)`; + +val is_tc_num_tv_thm = Q.prove ( +`!E. ~EXISTS is_tc_EB E ==> (num_tv E = 0)`, +Induct THEN SRW_TAC [] [num_tv_def, is_tc_EB_def] THEN Cases_on `h` THEN +FULL_SIMP_TAC (srw_ss()) [num_tv_def, is_tc_EB_def]); + +val lookup_str_lem = Q.prove ( +`!E. ~EXISTS is_tc_EB E ==> !tcn. lookup E (name_tcn tcn) = NONE`, +Induct THEN SRW_TAC [] [lookup_def] THEN Cases_on `h` THEN +FULL_SIMP_TAC (srw_ss()) [is_tc_EB_def, lookup_def, domEB_def]); + +val lookup_str_thm = Q.store_thm ("lookup_str_thm", +`!E1 E2 E3. ~EXISTS is_tc_EB E2 ==> (!x. lookup (E1++E2++E3) (name_tcn x) = lookup (E1++E3) (name_tcn x))`, +HO_MATCH_MP_TAC Eok2_ind THEN +SRW_TAC [] [lookup_def, lookup_append_thm, domEB_def, num_tv_def, is_tc_num_tv_thm, + num_tv_append_thm, lookup_str_lem, + Q.prove (`!x. (case x of NONE -> NONE || SOME EB -> SOME EB) = x`, + Cases THEN SRW_TAC [] [])]); + +val idx_bound_str_thm = Q.prove ( +`!E1 E2 E3 idx. ~EXISTS is_tc_EB E2 ==> (idx_bound (E1++E2++E3) idx = idx_bound (E1++E3) idx)`, +Induct THEN SRW_TAC [] [] THENL +[Induct_on `E2` THEN FULL_SIMP_TAC (srw_ss()) [] THEN Cases_on `h` THEN + FULL_SIMP_TAC (srw_ss()) [is_tc_EB_def, idx_bound_def], + Cases_on `h` THEN FULL_SIMP_TAC (srw_ss()) [idx_bound_def] THEN + Cases_on `idx` THEN FULL_SIMP_TAC (srw_ss()) [idx_bound_def]]); + +local + +val SPLIT_CASES = +Cases_on `E1` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [Eok_def] THEN +Cases_on `E2` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [Eok_def] THEN +Cases_on `E3` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [Eok_def] THEN +FULL_SIMP_TAC (srw_ss()) [is_tc_EB_def]; + +val lem1 = Q.prove ( +`!E1 EB E3. ~is_tc_EB EB ==> (!x. lookup (E1++EB::E3) (name_tcn x) = lookup (E1++E3) (name_tcn x))`, +METIS_TAC [lookup_str_thm, EXISTS_DEF, APPEND, APPEND_NIL, APPEND_ASSOC]); + +in + +val ok_str_thm = Q.store_thm ("ok_str_thm", +`(!E. Eok E ==> !E1 E2 E3. (E = E1 ++ E2 ++ E3) ==> ~EXISTS is_tc_EB E2 ==> Eok (E1++E3)) /\ + (!E tc k. (typeconstr_kind E tc = SOME k) ==> + !E1 E2 E3. (E = E1 ++ E2 ++ E3) ==> ~EXISTS is_tc_EB E2 ==> + (typeconstr_kind (E1++E3) tc = SOME k)) /\ + (!E ts. tsok E ts ==> + !E1 E2 E3. (E = E1 ++ E2 ++ E3) ==> ~EXISTS is_tc_EB E2 ==> tsok (E1++E3) ts) /\ + (!E tpo ts. ntsok E tpo ts ==> + !E1 E2 E3. (E = E1 ++ E2 ++ E3) ==> ~EXISTS is_tc_EB E2 ==> ntsok (E1++E3) tpo ts) /\ + (!E t. tkind E t ==> + !E1 E2 E3. (E = E1 ++ E2 ++ E3) ==> ~EXISTS is_tc_EB E2 ==> tkind (E1++E3) t)`, +HO_MATCH_MP_TAC Eok_ind THEN SRW_TAC [] [Eok_def] THEN FULL_SIMP_TAC (srw_ss()) [] THENL +[SPLIT_CASES THEN METIS_TAC [ok_ok_thm], + SPLIT_CASES THEN METIS_TAC [ok_ok_thm], + SPLIT_CASES THEN METIS_TAC [ok_ok_thm], + SPLIT_CASES THEN + METIS_TAC [ok_ok_thm, lookup_str_thm, NOT_EXISTS, APPEND_ASSOC, APPEND, EVERY_DEF, EXISTS_DEF, + APPEND_NIL, MEM], + SPLIT_CASES THENL + [Cases_on `t_list` THEN FULL_SIMP_TAC (srw_ss()) [] THEN METIS_TAC [ok_ok_thm], + FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN SRW_TAC [] [] THEN METIS_TAC [APPEND_NIL, MEM], + FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN SRW_TAC [] [] THEN + METIS_TAC [lookup_str_thm, NOT_EXISTS, EVERY_DEF, EXISTS_DEF, MEM]], + SPLIT_CASES THENL + [Cases_on `t_list` THEN FULL_SIMP_TAC (srw_ss()) [] THEN METIS_TAC [ok_ok_thm], + FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN SRW_TAC [] [] THEN METIS_TAC [APPEND_NIL, MEM], + FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN SRW_TAC [] [] THEN + METIS_TAC [lookup_str_thm, NOT_EXISTS, EVERY_DEF, EXISTS_DEF, MEM], + METIS_TAC [lookup_str_thm, NOT_EXISTS, EVERY_DEF, EXISTS_DEF, MEM, APPEND_NIL], + METIS_TAC [lookup_str_thm, NOT_EXISTS, EVERY_DEF, EXISTS_DEF, MEM, APPEND_NIL]], + SPLIT_CASES THENL + [Cases_on `t_list` THEN FULL_SIMP_TAC (srw_ss()) [] THEN METIS_TAC [ok_ok_thm], + FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN SRW_TAC [] [] THEN METIS_TAC [APPEND_NIL, MEM], + FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN SRW_TAC [] [] THEN + METIS_TAC [lookup_str_thm, NOT_EXISTS, EVERY_DEF, EXISTS_DEF, MEM], + METIS_TAC [lookup_str_thm, NOT_EXISTS, EVERY_DEF, EXISTS_DEF, MEM, APPEND_NIL], + METIS_TAC [lookup_str_thm, NOT_EXISTS, EVERY_DEF, EXISTS_DEF, MEM, APPEND_NIL]], + SPLIT_CASES THENL + [METIS_TAC [ok_ok_thm], + METIS_TAC [lookup_str_thm, NOT_EXISTS, EVERY_DEF, EXISTS_DEF, MEM, APPEND_NIL], + METIS_TAC [lookup_str_thm, NOT_EXISTS, EVERY_DEF, EXISTS_DEF, MEM, APPEND_NIL]], + SPLIT_CASES, + SPLIT_CASES, + SPLIT_CASES, + SPLIT_CASES THEN METIS_TAC [ok_ok_thm], + METIS_TAC [lookup_str_thm, NOT_EXISTS], + METIS_TAC [APPEND], + METIS_TAC [lookup_str_thm, NOT_EXISTS, idx_bound_str_thm], + FULL_SIMP_TAC list_ss [EVERY_MEM], + FULL_SIMP_TAC list_ss [EVERY_MEM]]); + +end; + +val value_env_lookup_str_thm = Q.store_thm ("value_env_lookup_str_thm", +`!E1 E2 E3. value_env E2 ==> + (!x. lookup (E1++E2++E3) (name_tcn x) = lookup (E1++E3) (name_tcn x)) /\ + (!x. lookup (E1++E2++E3) (name_cn x) = lookup (E1++E3) (name_cn x)) /\ + (!x. lookup (E1++E2++E3) (name_fn x) = lookup (E1++E3) (name_fn x)) /\ + (!x. lookup (E1++E2++E3) (name_l x) = lookup (E1++E3) (name_l x))`, +HO_MATCH_MP_TAC Eok2_ind THEN +SRW_TAC [] [lookup_def, lookup_append_thm, value_env_lookup_lem, domEB_def, num_tv_def, value_env_num_tv_thm, + num_tv_append_thm, + Q.prove (`!x. (case x of NONE -> NONE || SOME EB -> SOME EB) = x`, + Cases THEN SRW_TAC [] [])]); + +val store_env_lookup_str_thm = Q.store_thm ("store_env_lookup_str_thm", +`!E1 E2 E3. store_env E2 ==> + (!x. lookup (E1++E2++E3) (name_tcn x) = lookup (E1++E3) (name_tcn x)) /\ + (!x. lookup (E1++E2++E3) (name_cn x) = lookup (E1++E3) (name_cn x)) /\ + (!x. lookup (E1++E2++E3) (name_fn x) = lookup (E1++E3) (name_fn x)) /\ + (!x. lookup (E1++E2++E3) (name_vn x) = lookup (E1++E3) (name_vn x))`, +HO_MATCH_MP_TAC Eok2_ind THEN +SRW_TAC [] [lookup_def, lookup_append_thm, store_env_lookup_lem, domEB_def, num_tv_def, value_env_num_tv_thm, + num_tv_append_thm, + Q.prove (`!x. (case x of NONE -> NONE || SOME EB -> SOME EB) = x`, + Cases THEN SRW_TAC [] [])]); + +local + +val lem1 = Q.prove ( +`!E. value_env E \/ store_env E ==> ~EXISTS is_tc_EB E`, +HO_MATCH_MP_TAC Eok2_ind THEN SRW_TAC [] [value_env_def, store_env_def, is_tc_EB_def]); + +in + +val value_env_ok_str_thm = Q.store_thm ("value_env_ok_str_thm", +`(!E. Eok E ==> !E1 E2 E3. (E = E1 ++ E2 ++ E3) ==> value_env E2 \/ store_env E2 ==> Eok (E1++E3)) /\ + (!E tc k. (typeconstr_kind E tc = SOME k) ==> + !E1 E2 E3. (E = E1 ++ E2 ++ E3) ==> value_env E2 \/ store_env E2 ==> + (typeconstr_kind (E1++E3) tc = SOME k)) /\ + (!E ts. tsok E ts ==> + !E1 E2 E3. (E = E1 ++ E2 ++ E3) ==> value_env E2 \/ store_env E2 ==> tsok (E1++E3) ts) /\ + (!E tpo ts. ntsok E tpo ts ==> + !E1 E2 E3. (E = E1 ++ E2 ++ E3) ==> value_env E2 \/ store_env E2 ==> ntsok (E1++E3) tpo ts) /\ + (!E t. tkind E t ==> + !E1 E2 E3. (E = E1 ++ E2 ++ E3) ==> value_env E2 \/ store_env E2 ==> tkind (E1++E3) t)`, +METIS_TAC [ok_str_thm, lem1]); + +end; + +val type_env_def = Define +`(type_env [] = T) /\ + (type_env (EB_vn x y::E) = F) /\ + (type_env (EB_l l t::E) = F) /\ + (type_env (EB_tv::E) = F) /\ + (type_env (EB::E) = type_env E)`; + +val type_env_append_thm = Q.store_thm ("type_env_append_thm", +`!E1 E2. type_env (E1++E2) = type_env E1 /\ type_env E2`, +Induct THEN SRW_TAC [] [type_env_def] THEN Cases_on `h` THEN FULL_SIMP_TAC list_ss [type_env_def]); + +val type_env_closed_thm = Q.store_thm ("type_env_closed_thm", +`!E. type_env E ==> closed_env E`, +Induct THEN SRW_TAC [] [type_env_def, closed_env_def, lookup_def, COND_EXPAND_EQ] THEN +Cases_on `h` THEN FULL_SIMP_TAC list_ss [domEB_def, type_env_def] THEN SRW_TAC [] [shiftEB_add_thm] THEN +METIS_TAC [closed_env_def]); + + +val _ = export_theory(); diff --git a/vendors/ott/examples/ocaml_light/hol/matching_funScript.sml b/vendors/ott/examples/ocaml_light/hol/matching_funScript.sml new file mode 100644 index 000000000000..9b316519157d --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/matching_funScript.sml @@ -0,0 +1,331 @@ +open bossLib HolKernel boolLib listTheory rich_listTheory optionTheory combinTheory arithmeticTheory pairTheory; +open sortingTheory wordsTheory; +open ottTheory ottLib caml_typedefTheory; +open utilTheory basicTheory; + +val _ = new_theory "matching_fun"; + +val ALL_DISTINCT_MAP = Q.prove ( +`!l f. ALL_DISTINCT (MAP f l) ==> ALL_DISTINCT l`, +Induct THEN SRW_TAC [] [MEM_MAP] THEN METIS_TAC []); + +val list_assoc_MAP_11 = Q.prove ( +`!l f k. (!x x'. (f x = f x') = (x = x')) ==> + (list_assoc (f k) (MAP (\x. (f (FST x), SND x)) l) = list_assoc k l)`, +Induct THEN SRW_TAC [] [list_assoc_def] THEN Cases_on `h` THEN SRW_TAC [] [list_assoc_def] THEN +FULL_SIMP_TAC list_ss []); + +val MEM_SPLIT = Q.prove ( +`!x l. MEM x l = ?l1 l2. l = l1++x::l2`, +Induct_on `l` THEN SRW_TAC [] [] THEN EQ_TAC THEN SRW_TAC [] [] THENL +[METIS_TAC [APPEND], + METIS_TAC [APPEND], + Cases_on `l1` THEN FULL_SIMP_TAC list_ss [] THEN METIS_TAC []]); + +val pat_match_def = tDefine "pat_match" +`(pat_match (P_var vn) e = SOME [(vn, e)]) /\ + (pat_match P_any e = SOME []) /\ + (pat_match (P_constant constant) e = + if (e = Expr_constant constant) then + SOME [] + else + NONE) /\ + (pat_match (P_alias pat vn) e = + OPTION_MAP (\s. s++[(vn, e)]) (pat_match pat e)) /\ + (pat_match (P_typed pat t) e = pat_match pat e) /\ + (pat_match (P_or pat1 pat2) e = + case pat_match pat1 e of + SOME s -> SOME s + || NONE -> pat_match pat2 e) /\ + (pat_match (P_construct c plist) e = + case e of + Expr_construct c' elist -> + if ~(c' = c) then + NONE + else + pat_match_list plist elist + || _ -> NONE) /\ + (pat_match (P_construct_any c) e = + case e of + Expr_construct c' elist -> + if (c = c') then + SOME [] + else + NONE + || _ -> NONE) /\ + (pat_match (P_tuple plist) e = + case e of + Expr_tuple elist -> + pat_match_list plist elist + || _ -> NONE) /\ + (pat_match (P_record fplist) e = + case e of + Expr_record felist -> + if ~ALL_DISTINCT (MAP FST felist) \/ ~(ALL_DISTINCT (MAP FST fplist)) then + NONE + else + pat_match_rec_list fplist felist + || _ -> NONE) /\ + (pat_match (P_cons pat1 pat2) e = + case e of + Expr_cons e1 e2 -> + (case pat_match pat1 e1 of + SOME s1 -> + (case pat_match pat2 e2 of + SOME s2 -> SOME (s1++s2) + || NONE -> NONE) + || NONE -> NONE) + || _ -> NONE) /\ + + (pat_match_list [] [] = SOME []) /\ + (pat_match_list (p::plist) (e::elist) = + case pat_match p e of + SOME s1 -> + (case pat_match_list plist elist of + SOME s2 -> SOME (s1++s2) + || NONE -> NONE) + || NONE -> NONE) /\ + (pat_match_list _ _ = NONE) /\ + + (pat_match_rec_list [] _ = SOME []) /\ + (pat_match_rec_list ((f, p)::fplist) felist = + case list_assoc f felist of + SOME e -> + (case pat_match p e of + SOME s1 -> + (case pat_match_rec_list fplist felist of + SOME s2 -> SOME (s1++s2) + || NONE -> NONE) + || NONE -> NONE) + || NONE -> NONE)` + (WF_REL_TAC `measure (sum_case (pattern_size o FST) + (sum_case (pattern1_size o FST) + (pattern2_size o FST)))`); + +val pat_match_ind = fetch "-" "pat_match_ind"; + +val pat_match_is_val_thm = Q.store_thm ("pat_match_is_val_thm", +`(!p e s. is_value_of_expr e /\ (pat_match p e = SOME s) ==> EVERY is_value_of_expr (MAP SND s)) /\ + (!pl el s. EVERY is_value_of_expr el /\ (pat_match_list pl el = SOME s) ==> + EVERY is_value_of_expr (MAP SND s)) /\ + (!fpl fel s. EVERY is_value_of_expr (MAP SND fel) /\ (pat_match_rec_list fpl fel = SOME s) ==> + EVERY is_value_of_expr (MAP SND s))`, +HO_MATCH_MP_TAC pat_match_ind THEN +SRW_TAC [] [pat_match_def, is_value_of_expr_def, EVERY_MAP] THEN +SRW_TAC [] [] THENL +[Cases_on `pat_match p e` THEN FULL_SIMP_TAC (srw_ss()) [], + Cases_on `e` THEN FULL_SIMP_TAC (srw_ss()) [COND_EXPAND_EQ, is_value_of_expr_def] THEN METIS_TAC [], + Cases_on `e` THEN FULL_SIMP_TAC (srw_ss()) [COND_EXPAND_EQ, is_value_of_expr_def] THEN METIS_TAC [EVERY_DEF], + Cases_on `e` THEN FULL_SIMP_TAC (srw_ss()) [COND_EXPAND_EQ, is_value_of_expr_def] THEN METIS_TAC [], + Cases_on `e` THEN FULL_SIMP_TAC (srw_ss()) [COND_EXPAND_EQ, is_value_of_expr_def, LAMBDA_PROD2] THEN + METIS_TAC [], + Cases_on `e` THEN FULL_SIMP_TAC (srw_ss()) [COND_EXPAND_EQ, is_value_of_expr_def] THEN + Cases_on `pat_match p e'` THEN FULL_SIMP_TAC (srw_ss()) [] THEN + Cases_on `pat_match p' e0` THEN FULL_SIMP_TAC (srw_ss()) [] THEN METIS_TAC [EVERY_APPEND], + Cases_on `pat_match p e` THEN FULL_SIMP_TAC (srw_ss()) [] THEN + Cases_on `pat_match_list pl el` THEN FULL_SIMP_TAC (srw_ss()) [] THEN METIS_TAC [EVERY_APPEND], + Cases_on `list_assoc f fel` THEN FULL_SIMP_TAC (srw_ss()) [] THEN + Cases_on `pat_match p x` THEN FULL_SIMP_TAC (srw_ss()) [] THEN + Cases_on `pat_match_rec_list fpl fel` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [] THEN + IMP_RES_TAC list_assoc_mem THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN METIS_TAC [SND]]); + +local + +val lem1 = Q.prove ( +`!s. (substs_x_xs case s of substs_x_xs l -> l) = s`, +Cases THEN SRW_TAC [] []); + +val lem2 = Q.prove ( +`!l1 l2 l3. (LENGTH l1 = LENGTH l2) /\ (LENGTH l2 = LENGTH l3) /\ + EVERY (\x. JM_match (FST x) (FST (SND x)) (substs_x_xs (SND (SND x)))) (ZIP (l1,ZIP (l2,l3))) ==> + EVERY (\x. JM_match (FST x) (FST (SND x)) (SND (SND x))) (ZIP (l1,ZIP (l2,MAP substs_x_xs l3)))`, +Induct THEN Cases_on `l2` THEN Cases_on `l3` THEN FULL_SIMP_TAC list_ss []); + +val lem3 = Q.prove ( +`!l. EVERY (\x. P (SND (SND (SND x))) (FST (SND x)) (FST (SND (SND x)))) l /\ MEM p l /\ + ALL_DISTINCT (MAP FST l) ==> +case list_assoc (FST p) (MAP (\z. (FST z,SND (SND (SND z)))) l ++ fn_v''_list) of + NONE -> F +|| SOME e -> P e (FST (SND p)) (FST (SND (SND p)))`, +Induct THEN SRW_TAC [] [list_assoc_def] THEN FULL_SIMP_TAC list_ss [] THEN +Cases_on `list_assoc (FST h) (MAP (\z. (FST z,SND (SND (SND z)))) l ++ fn_v''_list)` THEN +FULL_SIMP_TAC (srw_ss()) [MEM_MAP] THEN METIS_TAC []); + +val field_to_fn_11 = Q.store_thm ("field_to_fn_11", +`!x x'. (field_to_fn x = field_to_fn x') = (x = x')`, +Cases THEN Cases THEN SRW_TAC [] [field_to_fn_def]); + +val lem4 = Q.prove ( +`!fplist slist l. + EVERY (\z. is_value_of_expr (SND z)) l /\ + ALL_DISTINCT (MAP FST l) /\ + ALL_DISTINCT (MAP FST fplist) /\ + (LENGTH slist = LENGTH fplist) /\ + EVERY (\z. case list_assoc (FST (FST z)) l of + NONE -> F + || SOME e -> JM_match e (SND (FST z)) (substs_x_xs (SND z))) + (ZIP (fplist,slist)) ==> + ?fn_v''_list field_name'_pat_substs_x_v'_list field_name_v_list. + (l = MAP (\z. (F_name (FST z),SND z)) field_name_v_list) /\ + (fplist = + MAP (\z. (F_name (FST z),FST (SND z))) + field_name'_pat_substs_x_v'_list) /\ + (FLAT slist = + FLAT + (MAP (\x. case x of substs_x_xs l' -> l') + (MAP (UNCURRY (\field_name_'. UNCURRY (\pat_. FST))) + field_name'_pat_substs_x_v'_list))) /\ + EVERY (\z. is_value_of_expr (SND z)) fn_v''_list /\ + EVERY (\z. is_value_of_expr (SND (SND (SND z)))) + field_name'_pat_substs_x_v'_list /\ + EVERY (\z. is_value_of_expr (SND z)) field_name_v_list /\ + PERM + (MAP (\z. (FST z,SND (SND (SND z)))) + field_name'_pat_substs_x_v'_list ++ fn_v''_list) + field_name_v_list /\ + EVERY + (\x. JM_match (SND (SND (SND x))) (FST (SND x)) (FST (SND (SND x)))) + field_name'_pat_substs_x_v'_list /\ + ALL_DISTINCT (MAP (\z. name_fn (FST z)) field_name_v_list)`, +Induct THEN SRW_TAC [] [] THEN Cases_on `slist` THEN FULL_SIMP_TAC list_ss [] THENL +[MAP_EVERY Q.EXISTS_TAC [`MAP (\x. (field_to_fn (FST x), (SND x))) l`, + `MAP (\x. (field_to_fn (FST x), (SND x))) l`] THEN + SRW_TAC [] [MAP_MAP, field_to_fn_thm, MAP_I, EVERY_MAP] THEN + METIS_TAC [MAP_11_ALL_DISTINCT, name_11, field_to_fn_11], + Cases_on `list_assoc (FST h) l` THEN FULL_SIMP_TAC list_ss [] THEN + Q.PAT_ASSUM `!slist l'. P slist l' ==> Q slist l'` (MP_TAC o Q.SPECL [`t`, `l`]) THEN + SRW_TAC [] [] THEN + IMP_RES_TAC list_assoc_mem THEN FULL_SIMP_TAC list_ss [EVERY_MAP, MAP_MAP] THEN + Cases_on `h` THEN Cases_on `q` THEN FULL_SIMP_TAC (srw_ss()) [] THEN + `MEM (f',x) (MAP (\z. (FST z,SND z)) field_name_v_list)` by + (FULL_SIMP_TAC (srw_ss()) [MEM_MAP] THEN METIS_TAC []) THEN + FULL_SIMP_TAC (srw_ss()) [MAP_I] THEN IMP_RES_TAC PERM_MEM_EQ THEN FULL_SIMP_TAC list_ss [] THEN1 + (FULL_SIMP_TAC list_ss [MEM_MAP] THEN METIS_TAC []) THEN + FULL_SIMP_TAC list_ss [MEM_SPLIT] THEN + MAP_EVERY Q.EXISTS_TAC [`l1''++l2''`, + `(f', r, substs_x_xs h', x):: + field_name'_pat_substs_x_v'_list`, + `field_name_v_list`] THEN + SRW_TAC [] [field_to_fn_thm] THEN FULL_SIMP_TAC list_ss [EVERY_MAP] THEN + METIS_TAC [PERM_REFL, CONS_PERM, APPEND, PERM_SYM, PERM_TRANS]]); + + +val list_TAC = + Cases_on `e` THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [is_value_of_expr_def, ETA_THM, ELIM_UNCURRY] THEN + EQ_TAC THEN SRW_TAC [] [] THENL + [FULL_SIMP_TAC list_ss [LENGTH_MAP] THEN + Q.PAT_ASSUM `!s. f ==> ((?slist. P slist) = g)` + (MP_TAC o GSYM o + Q.SPEC `FLAT (MAP (\x. case SND (SND x) of substs_x_xs l -> l) + (v_pat_substs_x_list: (expr#pattern#substs_x) list))`) THEN + SRW_TAC [] [MAP_MAP] THEN + Q.EXISTS_TAC `MAP (\x. case SND (SND x) of substs_x_xs l -> l) + (v_pat_substs_x_list: (expr#pattern#substs_x) list)` THEN + SRW_TAC [] [ZIP_MAP, LENGTH_MAP, LENGTH_ZIP, MAP_ZIP_SAME] THEN + SRW_TAC [] [MAP_MAP, EVERY_MAP, lem1], + RES_TAC THEN SRW_TAC [] [] THEN + Q.EXISTS_TAC `ZIP (l,ZIP (plist,MAP substs_x_xs slist))` THEN + SRW_TAC [] [MAP_FST_ZIP, LENGTH_ZIP, GSYM MAP_MAP, GSYM EVERY_MAP, MAP_SND_ZIP] THEN + SRW_TAC [] [MAP_MAP, lem1, MAP_I, lem2]]; + +in + +val match_thm = Q.store_thm ("match_thm", +`(!p e s. is_value_of_expr e ==> (JM_match e p (substs_x_xs s) = (pat_match p e = SOME s))) /\ + (!plist elist s. EVERY is_value_of_expr elist ==> + ((LENGTH plist = LENGTH elist) /\ + (?slist. (LENGTH slist = LENGTH elist) /\ (s = FLAT slist) /\ + EVERY (\(e, p, s). JM_match e p (substs_x_xs s)) (ZIP (elist, ZIP (plist, slist)))) + = + (pat_match_list plist elist = SOME s))) /\ + (!fplist felist s. EVERY is_value_of_expr (MAP SND felist) ==> + ((?slist. (LENGTH slist = LENGTH fplist) /\ (s = FLAT slist) /\ + EVERY (\((f, p), s). + case list_assoc f felist of NONE -> F || SOME e -> JM_match e p (substs_x_xs s)) + (ZIP (fplist, slist))) + = + (pat_match_rec_list fplist felist = SOME s)))`, +HO_MATCH_MP_TAC pat_match_ind THEN SRW_TAC [] [pat_match_def, JM_match_fun, is_value_of_expr_def] THEN +IMP_RES_TAC pat_match_is_val_thm THEN FULL_SIMP_TAC list_ss [EVERY_MAP] THENL +[METIS_TAC [], + METIS_TAC [], + METIS_TAC [], + METIS_TAC [], + METIS_TAC [], + SRW_TAC [] [JM_matchP_thm] THEN Cases_on `pat_match p e` THEN FULL_SIMP_TAC (srw_ss()) [] THEN METIS_TAC [], + list_TAC, + Cases_on `e` THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [is_value_of_expr_def] THEN METIS_TAC [], + list_TAC, + Cases_on `e` THEN SRW_TAC [] [] THENL + [CCONTR_TAC THEN FULL_SIMP_TAC list_ss [EVERY_MAP, MAP_MAP] THEN SRW_TAC [] [] THEN + METIS_TAC [MAP_11_ALL_DISTINCT, name_11, field_11], + CCONTR_TAC THEN FULL_SIMP_TAC list_ss [EVERY_MAP, MAP_MAP] THEN SRW_TAC [] [] THEN + `PERM (MAP FST (MAP (\z. (FST z,SND (SND (SND z)))) + field_name'_pat_substs_x_v'_list ++ fn_v''_list)) + (MAP FST field_name_v_list)` by METIS_TAC [PERM_MAP] THEN + FULL_SIMP_TAC list_ss [MAP_MAP] THEN + IMP_RES_TAC PERM_ALL_DISTINCT THEN FULL_SIMP_TAC list_ss [ALL_DISTINCT_APPEND] THEN + METIS_TAC [MAP_11_ALL_DISTINCT, name_11, field_11], + FULL_SIMP_TAC list_ss [is_value_of_expr_def, LAMBDA_PROD2] THEN POP_ASSUM (MP_TAC o GSYM) THEN + SRW_TAC [] [] THEN EQ_TAC THEN SRW_TAC [] [] THENL + [Q.EXISTS_TAC `MAP (\x. case FST (SND (SND x)) of substs_x_xs l -> l) + (field_name'_pat_substs_x_v'_list:(field_name#pattern#substs_x#expr) list)` THEN + SRW_TAC [] [ELIM_UNCURRY, MAP_MAP, ZIP_MAP, MAP_ZIP_SAME] THEN + SRW_TAC [] [EVERY_MAP, EVERY_MEM, lem1, list_assoc_MAP_11] THEN + FULL_SIMP_TAC (srw_ss()) [MAP_MAP, MAP_11_ALL_DISTINCT, ETA_THM] THEN + `PERM (MAP FST (MAP (\z. (FST z,SND (SND (SND z)))) + field_name'_pat_substs_x_v'_list ++ fn_v''_list)) + (MAP FST field_name_v_list)` + by METIS_TAC [PERM_MAP] THEN + `ALL_DISTINCT (MAP FST (MAP (\z. (FST z,SND (SND (SND z)))) + field_name'_pat_substs_x_v'_list ++ fn_v''_list))` + by METIS_TAC [PERM_ALL_DISTINCT, MAP_MAP, FST, MAP_APPEND] THEN + METIS_TAC [lem3, PERM_list_assoc], + METIS_TAC [lem4]]], + Cases_on `e` THEN SRW_TAC [] [] THEN Cases_on `pat_match p e'` THEN SRW_TAC [] [] THENL + [CCONTR_TAC THEN FULL_SIMP_TAC list_ss [] THEN Cases_on `substs_x1` THEN FULL_SIMP_TAC list_ss [] THEN + METIS_TAC [], + Cases_on `pat_match p' e0` THEN SRW_TAC [] [] THENL + [CCONTR_TAC THEN FULL_SIMP_TAC list_ss [] THEN Cases_on `substs_x2` THEN FULL_SIMP_TAC list_ss [] THEN + METIS_TAC [], + FULL_SIMP_TAC list_ss [is_value_of_expr_def] THEN + EQ_TAC THEN SRW_TAC [] [] THENL + [Cases_on `substs_x1` THEN Cases_on `substs_x2` THEN SRW_TAC [] [] THEN METIS_TAC [], + MAP_EVERY Q.EXISTS_TAC [`substs_x_xs x`, `substs_x_xs x'`] THEN SRW_TAC [] []]]], + Cases_on `s` THEN SRW_TAC [] [] THENL + [Q.EXISTS_TAC `[]` THEN SRW_TAC [] [], + Cases_on `slist` THEN SRW_TAC [] []], + Cases_on `pat_match p e` THEN SRW_TAC [] [] THENL + [CCONTR_TAC THEN FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THEN Cases_on `slist` THEN + FULL_SIMP_TAC list_ss [] THEN METIS_TAC [], + Cases_on `pat_match_list plist elist` THEN SRW_TAC [] [] THENL + [CCONTR_TAC THEN FULL_SIMP_TAC list_ss [] THEN Cases_on `slist` THEN + FULL_SIMP_TAC list_ss [EVERY_MEM, EXISTS_MEM] THEN METIS_TAC [], + EQ_TAC THEN SRW_TAC [] [] THENL + [Cases_on `slist` THEN FULL_SIMP_TAC list_ss [] THEN METIS_TAC [], + METIS_TAC [], + POP_ASSUM (MP_TAC o Q.SPEC `x'`) THEN SRW_TAC [] [] THEN + Q.EXISTS_TAC `x::slist` THEN SRW_TAC [] []]]], + Cases_on `s` THEN SRW_TAC [] [] THENL + [Q.EXISTS_TAC `[]` THEN SRW_TAC [] [], + Cases_on `slist` THEN SRW_TAC [] []], + Cases_on `list_assoc f felist` THEN SRW_TAC [] [] THENL + [Cases_on `slist` THEN SRW_TAC [] [], + Cases_on `pat_match p x` THEN SRW_TAC [] [] THENL + [CCONTR_TAC THEN Cases_on `slist` THEN FULL_SIMP_TAC list_ss [] THEN + REPEAT (POP_ASSUM MP_TAC) THEN SRW_TAC [] [EVERY_MEM] THEN + METIS_TAC [SND, list_assoc_mem], + Cases_on `pat_match_rec_list fplist felist` THEN SRW_TAC [] [] THENL + [CCONTR_TAC THEN Cases_on `slist` THEN FULL_SIMP_TAC list_ss [] THEN + REPEAT (POP_ASSUM MP_TAC) THEN SRW_TAC [] [EVERY_MEM, o_DEF] THEN + METIS_TAC [], + EQ_TAC THEN SRW_TAC [] [] THENL + [Cases_on `slist` THEN FULL_SIMP_TAC list_ss [] THEN + REPEAT (POP_ASSUM MP_TAC) THEN SRW_TAC [] [EVERY_MEM] THEN + METIS_TAC [SND, list_assoc_mem], + POP_ASSUM (MP_TAC o Q.SPEC `x''`) THEN SRW_TAC [] [] THEN + Q.EXISTS_TAC `x'::slist` THEN SRW_TAC [] [] THEN + FULL_SIMP_TAC list_ss [EVERY_MEM] THEN METIS_TAC [SND, list_assoc_mem]]]]]]); + +end; +val _ = export_theory (); diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/.cvsignore b/vendors/ott/examples/ocaml_light/hol/ocamlpp/.cvsignore new file mode 100644 index 000000000000..2b253a377705 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/ocamlpp/.cvsignore @@ -0,0 +1,8 @@ +*.a +*.cma +*.cmi +*.cmo +*.cmx +*.cmxa +*.o +filter diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/Makefile b/vendors/ott/examples/ocaml_light/hol/ocamlpp/Makefile new file mode 100644 index 000000000000..05e5c06e4fdd --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/ocamlpp/Makefile @@ -0,0 +1,71 @@ + +CAMLC=ocamlc +CAMLOPT=ocamlopt +COMPFLAGS=-warn-error A $(INCLUDES) +LINKFLAGS= + +CAMLYACC=ocamlyacc +YACCFLAGS=-v +CAMLLEX=ocamllex +CAMLDEP=ocamldep +DEPFLAGS=$(INCLUDES) +CAMLRUN=ocamlrun +SHELL=/bin/sh +MKDIR=mkdir -p + +INCLUDES=-I utils -I parsing + +UTILS=utils/misc.cmx utils/tbl.cmx utils/config.cmx \ + utils/clflags.cmx utils/terminfo.cmx utils/ccomp.cmx utils/warnings.cmx \ + utils/consistbl.cmx + +OPTUTILS=$(UTILS) + +PARSING=parsing/linenum.cmx parsing/location.cmx parsing/longident.cmx \ + parsing/syntaxerr.cmx parsing/parser.cmx \ + parsing/lexer.cmx parsing/parse.cmx parsing/printast.cmx + +FILES=$(UTILS) $(PARSING) main.cmx + +filter: $(FILES) Makefile + $(CAMLOPT) $(LINKFLAGS) -o filter $(FILES) + + +parsing/parser.mli parsing/parser.ml: parsing/parser.mly + $(CAMLYACC) $(YACCFLAGS) parsing/parser.mly + + +parsing/lexer.ml: parsing/lexer.mll + $(CAMLLEX) parsing/lexer.mll + + +parsing/linenum.ml: parsing/linenum.mll + $(CAMLLEX) parsing/linenum.mll + + +.SUFFIXES: .ml .mli .cmo .cmi .cmx + +.ml.cmo: + $(CAMLC) $(COMPFLAGS) -c $< + +.mli.cmi: + $(CAMLC) $(COMPFLAGS) -c $< + +.ml.cmx: + $(CAMLOPT) $(COMPFLAGS) -c $< + +clean:: + rm -f utils/*.cm[iox] utils/*.[so] utils/*~ + rm -f parsing/*.cm[iox] parsing/*.[so] parsing/*~ + rm -f parsing/parser.ml parsing/parser.mli parsing/parser.output + rm -f parsing/lexer.mli parsing/lexer.ml + rm -f *.cm[iox] *.[so] *~ filter + +depend: + (for d in utils parsing .; \ + do $(CAMLDEP) $(DEPFLAGS) $$d/*.mli $$d/*.ml; \ + done) > .depend + +FORCE: + +include .depend diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/README b/vendors/ott/examples/ocaml_light/hol/ocamlpp/README new file mode 100644 index 000000000000..5fa6f4a394ba --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/ocamlpp/README @@ -0,0 +1,7 @@ +The parser from ocaml-3.10.0 stripped off to run as a filter: code in on stdin, +HOL AST out on stdout. + +Run "make" to build the program, called "filter". The ocaml distribution +should be in your path for this to work (ocamlc, ocamlopt, ocamllex, +ocamlyacc). + diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/main.ml b/vendors/ott/examples/ocaml_light/hol/ocamlpp/main.ml new file mode 100644 index 000000000000..ab813caffa07 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/ocamlpp/main.ml @@ -0,0 +1,13 @@ +let ic = stdin;; + +let ast = + begin + Location.input_name := "stdin"; + let lexbuf = Lexing.from_channel ic in + Location.init lexbuf "stdin"; + Parse.implementation lexbuf + end;; + +let _ = + Format.fprintf Format.std_formatter "%a@." Printast.implementation ast;; + diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/.cvsignore b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/.cvsignore new file mode 100644 index 000000000000..b9e7d3104366 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/.cvsignore @@ -0,0 +1,11 @@ +*.a +*.cma +*.cmi +*.cmo +*.cmx +*.cmxa +*.o +*.output +lexer.ml +parser.ml +parser.mli diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/asttypes.mli b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/asttypes.mli new file mode 100644 index 000000000000..0c85d374fb64 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/asttypes.mli @@ -0,0 +1,36 @@ +(***********************************************************************) +(* *) +(* Objective Caml *) +(* *) +(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) +(* *) +(* Copyright 1996 Institut National de Recherche en Informatique et *) +(* en Automatique. All rights reserved. This file is distributed *) +(* under the terms of the Q Public License version 1.0. *) +(* *) +(***********************************************************************) + +(* $Id: asttypes.mli,v 1.1 2007/09/24 23:04:49 so294 Exp $ *) + +(* Auxiliary a.s.t. types used by parsetree and typedtree. *) + +type constant = + Const_int of int + | Const_char of char + | Const_string of string + | Const_float of string + | Const_int32 of int32 + | Const_int64 of int64 + | Const_nativeint of nativeint + +type rec_flag = Nonrecursive | Recursive | Default + +type direction_flag = Upto | Downto + +type private_flag = Private | Public + +type mutable_flag = Immutable | Mutable + +type virtual_flag = Virtual | Concrete + +type label = string diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/lexer.mll b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/lexer.mll new file mode 100644 index 000000000000..821c0e311f56 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/lexer.mll @@ -0,0 +1,500 @@ +(***********************************************************************) +(* *) +(* Objective Caml *) +(* *) +(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) +(* *) +(* Copyright 1996 Institut National de Recherche en Informatique et *) +(* en Automatique. All rights reserved. This file is distributed *) +(* under the terms of the Q Public License version 1.0. *) +(* *) +(***********************************************************************) + +(* $Id: lexer.mll,v 1.1 2007/09/24 23:04:49 so294 Exp $ *) + +(* The lexer definition *) + +{ +open Lexing +open Misc +open Parser + +type error = + | Illegal_character of char + | Illegal_escape of string + | Unterminated_comment + | Unterminated_string + | Unterminated_string_in_comment + | Keyword_as_label of string + | Literal_overflow of string +;; + +exception Error of error * Location.t;; + +(* The table of keywords *) + +let keyword_table = + create_hashtable 149 [ + "and", AND; + "as", AS; + "assert", ASSERT; + "begin", BEGIN; + "class", CLASS; + "constraint", CONSTRAINT; + "do", DO; + "done", DONE; + "downto", DOWNTO; + "else", ELSE; + "end", END; + "exception", EXCEPTION; + "external", EXTERNAL; + "false", FALSE; + "for", FOR; + "fun", FUN; + "function", FUNCTION; + "functor", FUNCTOR; + "if", IF; + "in", IN; + "include", INCLUDE; + "inherit", INHERIT; + "initializer", INITIALIZER; + "lazy", LAZY; + "let", LET; + "match", MATCH; + "method", METHOD; + "module", MODULE; + "mutable", MUTABLE; + "new", NEW; + "object", OBJECT; + "of", OF; + "open", OPEN; + "or", OR; +(* "parser", PARSER; *) + "private", PRIVATE; + "rec", REC; + "sig", SIG; + "struct", STRUCT; + "then", THEN; + "to", TO; + "true", TRUE; + "try", TRY; + "type", TYPE; + "val", VAL; + "virtual", VIRTUAL; + "when", WHEN; + "while", WHILE; + "with", WITH; + + "mod", INFIXOP3("mod"); + "land", INFIXOP3("land"); + "lor", INFIXOP3("lor"); + "lxor", INFIXOP3("lxor"); + "lsl", INFIXOP4("lsl"); + "lsr", INFIXOP4("lsr"); + "asr", INFIXOP4("asr") +] + +(* To buffer string literals *) + +let initial_string_buffer = String.create 256 +let string_buff = ref initial_string_buffer +let string_index = ref 0 + +let reset_string_buffer () = + string_buff := initial_string_buffer; + string_index := 0 + +let store_string_char c = + if !string_index >= String.length (!string_buff) then begin + let new_buff = String.create (String.length (!string_buff) * 2) in + String.blit (!string_buff) 0 new_buff 0 (String.length (!string_buff)); + string_buff := new_buff + end; + String.unsafe_set (!string_buff) (!string_index) c; + incr string_index + +let get_stored_string () = + let s = String.sub (!string_buff) 0 (!string_index) in + string_buff := initial_string_buffer; + s + +(* To store the position of the beginning of a string and comment *) +let string_start_loc = ref Location.none;; +let comment_start_loc = ref [];; +let in_comment () = !comment_start_loc <> [];; + +(* To translate escape sequences *) + +let char_for_backslash = function + | 'n' -> '\010' + | 'r' -> '\013' + | 'b' -> '\008' + | 't' -> '\009' + | c -> c + +let char_for_decimal_code lexbuf i = + let c = 100 * (Char.code(Lexing.lexeme_char lexbuf i) - 48) + + 10 * (Char.code(Lexing.lexeme_char lexbuf (i+1)) - 48) + + (Char.code(Lexing.lexeme_char lexbuf (i+2)) - 48) in + if (c < 0 || c > 255) && not (in_comment ()) + then raise (Error(Illegal_escape (Lexing.lexeme lexbuf), + Location.curr lexbuf)) + else Char.chr c + +let char_for_hexadecimal_code lexbuf i = + let d1 = Char.code (Lexing.lexeme_char lexbuf i) in + let val1 = if d1 >= 97 then d1 - 87 + else if d1 >= 65 then d1 - 55 + else d1 - 48 + in + let d2 = Char.code (Lexing.lexeme_char lexbuf (i+1)) in + let val2 = if d2 >= 97 then d2 - 87 + else if d2 >= 65 then d2 - 55 + else d2 - 48 + in + Char.chr (val1 * 16 + val2) + +(* Remove underscores from float literals *) + +let remove_underscores s = + let l = String.length s in + let rec remove src dst = + if src >= l then + if dst >= l then s else String.sub s 0 dst + else + match s.[src] with + '_' -> remove (src + 1) dst + | c -> s.[dst] <- c; remove (src + 1) (dst + 1) + in remove 0 0 + +(* Update the current location with file name and line number. *) + +let update_loc lexbuf file line absolute chars = + let pos = lexbuf.lex_curr_p in + let new_file = match file with + | None -> pos.pos_fname + | Some s -> s + in + lexbuf.lex_curr_p <- { pos with + pos_fname = new_file; + pos_lnum = if absolute then line else pos.pos_lnum + line; + pos_bol = pos.pos_cnum - chars; + } +;; + +(* Error report *) + +open Format + +let report_error ppf = function + | Illegal_character c -> + fprintf ppf "Illegal character (%s)" (Char.escaped c) + | Illegal_escape s -> + fprintf ppf "Illegal backslash escape in string or character (%s)" s + | Unterminated_comment -> + fprintf ppf "Comment not terminated" + | Unterminated_string -> + fprintf ppf "String literal not terminated" + | Unterminated_string_in_comment -> + fprintf ppf "This comment contains an unterminated string literal" + | Keyword_as_label kwd -> + fprintf ppf "`%s' is a keyword, it cannot be used as label name" kwd + | Literal_overflow ty -> + fprintf ppf "Integer literal exceeds the range of representable integers of type %s" ty +;; + +} + +let newline = ('\010' | '\013' | "\013\010") +let blank = [' ' '\009' '\012'] +let lowercase = ['a'-'z' '\223'-'\246' '\248'-'\255' '_'] +let uppercase = ['A'-'Z' '\192'-'\214' '\216'-'\222'] +let identchar = + ['A'-'Z' 'a'-'z' '_' '\192'-'\214' '\216'-'\246' '\248'-'\255' '\'' '0'-'9'] +let symbolchar = + ['!' '$' '%' '&' '*' '+' '-' '.' '/' ':' '<' '=' '>' '?' '@' '^' '|' '~'] +let decimal_literal = + ['0'-'9'] ['0'-'9' '_']* +let hex_literal = + '0' ['x' 'X'] ['0'-'9' 'A'-'F' 'a'-'f']['0'-'9' 'A'-'F' 'a'-'f' '_']* +let oct_literal = + '0' ['o' 'O'] ['0'-'7'] ['0'-'7' '_']* +let bin_literal = + '0' ['b' 'B'] ['0'-'1'] ['0'-'1' '_']* +let int_literal = + decimal_literal | hex_literal | oct_literal | bin_literal +let float_literal = + ['0'-'9'] ['0'-'9' '_']* + ('.' ['0'-'9' '_']* )? + (['e' 'E'] ['+' '-']? ['0'-'9'] ['0'-'9' '_']*)? + +rule token = parse + | newline + { update_loc lexbuf None 1 false 0; + token lexbuf + } + | blank + + { token lexbuf } + | "_" + { UNDERSCORE } + | "~" { TILDE } + | "~" lowercase identchar * ':' + { let s = Lexing.lexeme lexbuf in + let name = String.sub s 1 (String.length s - 2) in + if Hashtbl.mem keyword_table name then + raise (Error(Keyword_as_label name, Location.curr lexbuf)); + LABEL name } + | "?" { QUESTION } + | "??" { QUESTIONQUESTION } + | "?" lowercase identchar * ':' + { let s = Lexing.lexeme lexbuf in + let name = String.sub s 1 (String.length s - 2) in + if Hashtbl.mem keyword_table name then + raise (Error(Keyword_as_label name, Location.curr lexbuf)); + OPTLABEL name } + | lowercase identchar * + { let s = Lexing.lexeme lexbuf in + try + Hashtbl.find keyword_table s + with Not_found -> + LIDENT s } + | uppercase identchar * + { UIDENT(Lexing.lexeme lexbuf) } (* No capitalized keywords *) + | int_literal + { try + INT (int_of_string(Lexing.lexeme lexbuf)) + with Failure _ -> + raise (Error(Literal_overflow "int", Location.curr lexbuf)) + } + | float_literal + { FLOAT (remove_underscores(Lexing.lexeme lexbuf)) } + | int_literal "l" + { let s = Lexing.lexeme lexbuf in + try + INT32 (Int32.of_string(String.sub s 0 (String.length s - 1))) + with Failure _ -> + raise (Error(Literal_overflow "int32", Location.curr lexbuf)) } + | int_literal "L" + { let s = Lexing.lexeme lexbuf in + try + INT64 (Int64.of_string(String.sub s 0 (String.length s - 1))) + with Failure _ -> + raise (Error(Literal_overflow "int64", Location.curr lexbuf)) } + | int_literal "n" + { let s = Lexing.lexeme lexbuf in + try + NATIVEINT + (Nativeint.of_string(String.sub s 0 (String.length s - 1))) + with Failure _ -> + raise (Error(Literal_overflow "nativeint", Location.curr lexbuf)) } + | "\"" + { reset_string_buffer(); + let string_start = lexbuf.lex_start_p in + string_start_loc := Location.curr lexbuf; + string lexbuf; + lexbuf.lex_start_p <- string_start; + STRING (get_stored_string()) } + | "'" newline "'" + { update_loc lexbuf None 1 false 1; + CHAR (Lexing.lexeme_char lexbuf 1) } + | "'" [^ '\\' '\'' '\010' '\013'] "'" + { CHAR(Lexing.lexeme_char lexbuf 1) } + | "'\\" ['\\' '\'' '"' 'n' 't' 'b' 'r' ' '] "'" + { CHAR(char_for_backslash (Lexing.lexeme_char lexbuf 2)) } + | "'\\" ['0'-'9'] ['0'-'9'] ['0'-'9'] "'" + { CHAR(char_for_decimal_code lexbuf 2) } + | "'\\" 'x' ['0'-'9' 'a'-'f' 'A'-'F'] ['0'-'9' 'a'-'f' 'A'-'F'] "'" + { CHAR(char_for_hexadecimal_code lexbuf 3) } + | "'\\" _ + { let l = Lexing.lexeme lexbuf in + let esc = String.sub l 1 (String.length l - 1) in + raise (Error(Illegal_escape esc, Location.curr lexbuf)) + } + | "(*" + { comment_start_loc := [Location.curr lexbuf]; + comment lexbuf; + token lexbuf } + | "(*)" + { let loc = Location.curr lexbuf in + Location.prerr_warning loc Warnings.Comment_start; + comment_start_loc := [Location.curr lexbuf]; + comment lexbuf; + token lexbuf + } + | "*)" + { let loc = Location.curr lexbuf in + Location.prerr_warning loc Warnings.Comment_not_end; + lexbuf.Lexing.lex_curr_pos <- lexbuf.Lexing.lex_curr_pos - 1; + let curpos = lexbuf.lex_curr_p in + lexbuf.lex_curr_p <- { curpos with pos_cnum = curpos.pos_cnum - 1 }; + STAR + } + | "#" [' ' '\t']* (['0'-'9']+ as num) [' ' '\t']* + ("\"" ([^ '\010' '\013' '"' ] * as name) "\"")? + [^ '\010' '\013'] * newline + { update_loc lexbuf name (int_of_string num) true 0; + token lexbuf + } + | "#" { SHARP } + | "&" { AMPERSAND } + | "&&" { AMPERAMPER } + | "`" { BACKQUOTE } + | "'" { QUOTE } + | "(" { LPAREN } + | ")" { RPAREN } + | "*" { STAR } + | "," { COMMA } + | "->" { MINUSGREATER } + | "." { DOT } + | ".." { DOTDOT } + | ":" { COLON } + | "::" { COLONCOLON } + | ":=" { COLONEQUAL } + | ":>" { COLONGREATER } + | ";" { SEMI } + | ";;" { SEMISEMI } + | "<" { LESS } + | "<-" { LESSMINUS } + | "=" { EQUAL } + | "[" { LBRACKET } + | "[|" { LBRACKETBAR } + | "[<" { LBRACKETLESS } + | "[>" { LBRACKETGREATER } + | "]" { RBRACKET } + | "{" { LBRACE } + | "{<" { LBRACELESS } + | "|" { BAR } + | "||" { BARBAR } + | "|]" { BARRBRACKET } + | ">" { GREATER } + | ">]" { GREATERRBRACKET } + | "}" { RBRACE } + | ">}" { GREATERRBRACE } + + | "!=" { INFIXOP0 "!=" } + | "+" { PLUS } + | "-" { MINUS } + | "-." { MINUSDOT } + + | "!" symbolchar * + { PREFIXOP(Lexing.lexeme lexbuf) } + | ['~' '?'] symbolchar + + { PREFIXOP(Lexing.lexeme lexbuf) } + | ['=' '<' '>' '|' '&' '$'] symbolchar * + { INFIXOP0(Lexing.lexeme lexbuf) } + | ['@' '^'] symbolchar * + { INFIXOP1(Lexing.lexeme lexbuf) } + | ['+' '-'] symbolchar * + { INFIXOP2(Lexing.lexeme lexbuf) } + | "**" symbolchar * + { INFIXOP4(Lexing.lexeme lexbuf) } + | ['*' '/' '%'] symbolchar * + { INFIXOP3(Lexing.lexeme lexbuf) } + | eof { EOF } + | _ + { raise (Error(Illegal_character (Lexing.lexeme_char lexbuf 0), + Location.curr lexbuf)) + } + +and comment = parse + "(*" + { comment_start_loc := (Location.curr lexbuf) :: !comment_start_loc; + comment lexbuf; + } + | "*)" + { match !comment_start_loc with + | [] -> assert false + | [x] -> comment_start_loc := []; + | _ :: l -> comment_start_loc := l; + comment lexbuf; + } + | "\"" + { reset_string_buffer(); + string_start_loc := Location.curr lexbuf; + begin try string lexbuf + with Error (Unterminated_string, _) -> + match !comment_start_loc with + | [] -> assert false + | loc :: _ -> comment_start_loc := []; + raise (Error (Unterminated_string_in_comment, loc)) + end; + reset_string_buffer (); + comment lexbuf } + | "''" + { comment lexbuf } + | "'" newline "'" + { update_loc lexbuf None 1 false 1; + comment lexbuf + } + | "'" [^ '\\' '\'' '\010' '\013' ] "'" + { comment lexbuf } + | "'\\" ['\\' '"' '\'' 'n' 't' 'b' 'r' ' '] "'" + { comment lexbuf } + | "'\\" ['0'-'9'] ['0'-'9'] ['0'-'9'] "'" + { comment lexbuf } + | "'\\" 'x' ['0'-'9' 'a'-'f' 'A'-'F'] ['0'-'9' 'a'-'f' 'A'-'F'] "'" + { comment lexbuf } + | eof + { match !comment_start_loc with + | [] -> assert false + | loc :: _ -> comment_start_loc := []; + raise (Error (Unterminated_comment, loc)) + } + | newline + { update_loc lexbuf None 1 false 0; + comment lexbuf + } + | _ + { comment lexbuf } + +and string = parse + '"' + { () } + | '\\' newline ([' ' '\t'] * as space) + { update_loc lexbuf None 1 false (String.length space); + string lexbuf + } + | '\\' ['\\' '\'' '"' 'n' 't' 'b' 'r' ' '] + { store_string_char(char_for_backslash(Lexing.lexeme_char lexbuf 1)); + string lexbuf } + | '\\' ['0'-'9'] ['0'-'9'] ['0'-'9'] + { store_string_char(char_for_decimal_code lexbuf 1); + string lexbuf } + | '\\' 'x' ['0'-'9' 'a'-'f' 'A'-'F'] ['0'-'9' 'a'-'f' 'A'-'F'] + { store_string_char(char_for_hexadecimal_code lexbuf 2); + string lexbuf } + | '\\' _ + { if in_comment () + then string lexbuf + else begin +(* Should be an error, but we are very lax. + raise (Error (Illegal_escape (Lexing.lexeme lexbuf), + Location.curr lexbuf)) +*) + let loc = Location.curr lexbuf in + Location.prerr_warning loc Warnings.Illegal_backslash; + store_string_char (Lexing.lexeme_char lexbuf 0); + store_string_char (Lexing.lexeme_char lexbuf 1); + string lexbuf + end + } + | newline + { update_loc lexbuf None 1 false 0; + let s = Lexing.lexeme lexbuf in + for i = 0 to String.length s - 1 do + store_string_char s.[i]; + done; + string lexbuf + } + | eof + { raise (Error (Unterminated_string, !string_start_loc)) } + | _ + { store_string_char(Lexing.lexeme_char lexbuf 0); + string lexbuf } + +and skip_sharp_bang = parse + | "#!" [^ '\n']* '\n' [^ '\n']* "\n!#\n" + { update_loc lexbuf None 3 false 0 } + | "#!" [^ '\n']* '\n' + { update_loc lexbuf None 1 false 0 } + | "" { () } diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/linenum.ml b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/linenum.ml new file mode 100644 index 000000000000..f47971c8e7e3 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/linenum.ml @@ -0,0 +1,179 @@ +# 18 "parsing/linenum.mll" + +let filename = ref "" +let linenum = ref 0 +let linebeg = ref 0 + +let parse_sharp_line s = + try + (* Update the line number and file name *) + let l1 = ref 0 in + while let c = s.[!l1] in c < '0' || c > '9' do incr l1 done; + let l2 = ref (!l1 + 1) in + while let c = s.[!l2] in c >= '0' && c <= '9' do incr l2 done; + linenum := int_of_string(String.sub s !l1 (!l2 - !l1)); + let f1 = ref (!l2 + 1) in + while !f1 < String.length s && s.[!f1] <> '"' do incr f1 done; + let f2 = ref (!f1 + 1) in + while !f2 < String.length s && s.[!f2] <> '"' do incr f2 done; + if !f1 < String.length s then + filename := String.sub s (!f1 + 1) (!f2 - !f1 - 1) + with Failure _ | Invalid_argument _ -> + Misc.fatal_error "Linenum.parse_sharp_line" + +# 25 "parsing/linenum.ml" +let __ocaml_lex_tables = { + Lexing.lex_base = + "\000\000\253\255\001\000\254\255\002\000\007\000\017\000\004\000\ + \255\255\008\000\009\000\066\000"; + Lexing.lex_backtrk = + "\255\255\255\255\001\000\255\255\255\255\255\255\255\255\000\000\ + \255\255\255\255\255\255\255\255"; + Lexing.lex_default = + "\004\000\000\000\255\255\000\000\004\000\004\000\009\000\255\255\ + \000\000\009\000\010\000\009\000"; + Lexing.lex_trans = + "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ + \000\000\000\000\003\000\003\000\003\000\002\000\008\000\002\000\ + \005\000\003\000\008\000\008\000\002\000\007\000\007\000\000\000\ + \000\000\000\000\011\000\008\000\000\000\000\000\007\000\000\000\ + \000\000\000\000\000\000\005\000\000\000\000\000\000\000\005\000\ + \000\000\000\000\000\000\009\000\000\000\000\000\000\000\000\000\ + \000\000\011\000\000\000\010\000\000\000\000\000\000\000\006\000\ + \006\000\006\000\006\000\006\000\006\000\006\000\006\000\006\000\ + \006\000\006\000\006\000\006\000\006\000\006\000\006\000\006\000\ + \006\000\006\000\006\000\011\000\008\000\000\000\000\000\007\000\ + \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ + \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ + \000\000\000\000\011\000\000\000\010\000\000\000\000\000\000\000\ + \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ + \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ + \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ + \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ + \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ + \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ + \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ + \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ + \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ + \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ + \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ + \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ + \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ + \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ + \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ + \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ + \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ + \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ + \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ + \001\000\000\000\001\000\000\000\000\000\000\000\000\000\001\000\ + \001\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\ + \000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\ + \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ + \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ + \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ + \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ + \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ + \000\000\000\000\001\000"; + Lexing.lex_check = + "\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ + \255\255\255\255\000\000\002\000\004\000\000\000\007\000\004\000\ + \005\000\005\000\009\000\010\000\005\000\009\000\010\000\255\255\ + \255\255\255\255\006\000\006\000\255\255\255\255\006\000\255\255\ + \255\255\255\255\255\255\000\000\255\255\255\255\255\255\005\000\ + \255\255\255\255\255\255\010\000\255\255\255\255\255\255\255\255\ + \255\255\006\000\255\255\006\000\255\255\255\255\255\255\005\000\ + \005\000\005\000\005\000\005\000\005\000\005\000\005\000\005\000\ + \005\000\006\000\006\000\006\000\006\000\006\000\006\000\006\000\ + \006\000\006\000\006\000\011\000\011\000\255\255\255\255\011\000\ + \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ + \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ + \255\255\255\255\011\000\255\255\011\000\255\255\255\255\255\255\ + \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ + \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ + \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ + \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ + \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ + \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ + \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ + \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ + \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ + \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ + \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ + \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ + \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ + \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ + \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ + \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ + \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ + \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ + \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ + \000\000\255\255\004\000\255\255\255\255\255\255\255\255\005\000\ + \009\000\010\000\255\255\255\255\255\255\255\255\255\255\255\255\ + \255\255\006\000\255\255\255\255\255\255\255\255\255\255\255\255\ + \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ + \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ + \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ + \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ + \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ + \255\255\255\255\011\000"; + Lexing.lex_base_code = + ""; + Lexing.lex_backtrk_code = + ""; + Lexing.lex_default_code = + ""; + Lexing.lex_trans_code = + ""; + Lexing.lex_check_code = + ""; + Lexing.lex_code = + ""; +} + +let rec skip_line lexbuf = + __ocaml_lex_skip_line_rec lexbuf 0 +and __ocaml_lex_skip_line_rec lexbuf __ocaml_lex_state = + match Lexing.engine __ocaml_lex_tables __ocaml_lex_state lexbuf with + | 0 -> +# 46 "parsing/linenum.mll" + ( parse_sharp_line(Lexing.lexeme lexbuf); + linebeg := Lexing.lexeme_start lexbuf; + Lexing.lexeme_end lexbuf ) +# 143 "parsing/linenum.ml" + + | 1 -> +# 51 "parsing/linenum.mll" + ( incr linenum; + linebeg := Lexing.lexeme_start lexbuf; + Lexing.lexeme_end lexbuf ) +# 150 "parsing/linenum.ml" + + | 2 -> +# 55 "parsing/linenum.mll" + ( incr linenum; + linebeg := Lexing.lexeme_start lexbuf; + raise End_of_file ) +# 157 "parsing/linenum.ml" + + | __ocaml_lex_state -> lexbuf.Lexing.refill_buff lexbuf; __ocaml_lex_skip_line_rec lexbuf __ocaml_lex_state + +;; + +# 59 "parsing/linenum.mll" + + +let for_position file loc = + let ic = open_in_bin file in + let lb = Lexing.from_channel ic in + filename := file; + linenum := 1; + linebeg := 0; + begin try + while skip_line lb <= loc do () done + with End_of_file -> () + end; + close_in ic; + (!filename, !linenum - 1, !linebeg) + + +# 180 "parsing/linenum.ml" diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/linenum.mli b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/linenum.mli new file mode 100644 index 000000000000..e21869f855e0 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/linenum.mli @@ -0,0 +1,23 @@ +(***********************************************************************) +(* *) +(* Objective Caml *) +(* *) +(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) +(* *) +(* Copyright 1997 Institut National de Recherche en Informatique et *) +(* en Automatique. All rights reserved. This file is distributed *) +(* under the terms of the Q Public License version 1.0. *) +(* *) +(***********************************************************************) + +(* $Id: linenum.mli,v 1.1 2007/09/24 23:04:50 so294 Exp $ *) + +(* An auxiliary lexer for determining the line number corresponding to + a file position, honoring the directives # linenum "filename" *) + +val for_position: string -> int -> string * int * int + (* [Linenum.for_position file loc] returns a triple describing + the location [loc] in the file named [file]. + First result is name of actual source file. + Second result is line number in that source file. + Third result is position of beginning of that line in [file]. *) diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/linenum.mll b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/linenum.mll new file mode 100644 index 000000000000..876ead2d682b --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/linenum.mll @@ -0,0 +1,74 @@ +(***********************************************************************) +(* *) +(* Objective Caml *) +(* *) +(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) +(* *) +(* Copyright 1997 Institut National de Recherche en Informatique et *) +(* en Automatique. All rights reserved. This file is distributed *) +(* under the terms of the Q Public License version 1.0. *) +(* *) +(***********************************************************************) + +(* $Id: linenum.mll,v 1.1 2007/09/24 23:04:50 so294 Exp $ *) + +(* An auxiliary lexer for determining the line number corresponding to + a file position, honoring the directives # linenum "filename" *) + +{ +let filename = ref "" +let linenum = ref 0 +let linebeg = ref 0 + +let parse_sharp_line s = + try + (* Update the line number and file name *) + let l1 = ref 0 in + while let c = s.[!l1] in c < '0' || c > '9' do incr l1 done; + let l2 = ref (!l1 + 1) in + while let c = s.[!l2] in c >= '0' && c <= '9' do incr l2 done; + linenum := int_of_string(String.sub s !l1 (!l2 - !l1)); + let f1 = ref (!l2 + 1) in + while !f1 < String.length s && s.[!f1] <> '"' do incr f1 done; + let f2 = ref (!f1 + 1) in + while !f2 < String.length s && s.[!f2] <> '"' do incr f2 done; + if !f1 < String.length s then + filename := String.sub s (!f1 + 1) (!f2 - !f1 - 1) + with Failure _ | Invalid_argument _ -> + Misc.fatal_error "Linenum.parse_sharp_line" +} + +rule skip_line = parse + "#" [' ' '\t']* ['0'-'9']+ [' ' '\t']* + ("\"" [^ '\n' '\r' '"' (* '"' *) ] * "\"")? + [^ '\n' '\r'] * + ('\n' | '\r' | "\r\n") + { parse_sharp_line(Lexing.lexeme lexbuf); + linebeg := Lexing.lexeme_start lexbuf; + Lexing.lexeme_end lexbuf } + | [^ '\n' '\r'] * + ('\n' | '\r' | "\r\n") + { incr linenum; + linebeg := Lexing.lexeme_start lexbuf; + Lexing.lexeme_end lexbuf } + | [^ '\n' '\r'] * eof + { incr linenum; + linebeg := Lexing.lexeme_start lexbuf; + raise End_of_file } + +{ + +let for_position file loc = + let ic = open_in_bin file in + let lb = Lexing.from_channel ic in + filename := file; + linenum := 1; + linebeg := 0; + begin try + while skip_line lb <= loc do () done + with End_of_file -> () + end; + close_in ic; + (!filename, !linenum - 1, !linebeg) + +} diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/location.ml b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/location.ml new file mode 100644 index 000000000000..c24468e44822 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/location.ml @@ -0,0 +1,250 @@ +(***********************************************************************) +(* *) +(* Objective Caml *) +(* *) +(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) +(* *) +(* Copyright 1996 Institut National de Recherche en Informatique et *) +(* en Automatique. All rights reserved. This file is distributed *) +(* under the terms of the Q Public License version 1.0. *) +(* *) +(***********************************************************************) + +(* $Id: location.ml,v 1.1 2007/09/24 23:04:50 so294 Exp $ *) + +open Lexing + +type t = { loc_start: position; loc_end: position; loc_ghost: bool };; + +let none = { loc_start = dummy_pos; loc_end = dummy_pos; loc_ghost = true };; + +let in_file name = + let loc = { + pos_fname = name; + pos_lnum = 1; + pos_bol = 0; + pos_cnum = -1; + } in + { loc_start = loc; loc_end = loc; loc_ghost = true } +;; + +let curr lexbuf = { + loc_start = lexbuf.lex_start_p; + loc_end = lexbuf.lex_curr_p; + loc_ghost = false +};; + +let init lexbuf fname = + lexbuf.lex_curr_p <- { + pos_fname = fname; + pos_lnum = 1; + pos_bol = 0; + pos_cnum = 0; + } +;; + +let symbol_rloc () = { + loc_start = Parsing.symbol_start_pos (); + loc_end = Parsing.symbol_end_pos (); + loc_ghost = false; +};; + +let symbol_gloc () = { + loc_start = Parsing.symbol_start_pos (); + loc_end = Parsing.symbol_end_pos (); + loc_ghost = true; +};; + +let rhs_loc n = { + loc_start = Parsing.rhs_start_pos n; + loc_end = Parsing.rhs_end_pos n; + loc_ghost = false; +};; + +let input_name = ref "" +let input_lexbuf = ref (None : lexbuf option) + +(* Terminal info *) + +let status = ref Terminfo.Uninitialised + +let num_loc_lines = ref 0 (* number of lines already printed after input *) + +(* Highlight the location using standout mode. *) + +let highlight_terminfo ppf num_lines lb loc1 loc2 = + (* Char 0 is at offset -lb.lex_abs_pos in lb.lex_buffer. *) + let pos0 = -lb.lex_abs_pos in + (* Do nothing if the buffer does not contain the whole phrase. *) + if pos0 < 0 then raise Exit; + (* Count number of lines in phrase *) + let lines = ref !num_loc_lines in + for i = pos0 to lb.lex_buffer_len - 1 do + if lb.lex_buffer.[i] = '\n' then incr lines + done; + (* If too many lines, give up *) + if !lines >= num_lines - 2 then raise Exit; + (* Move cursor up that number of lines *) + flush stdout; Terminfo.backup !lines; + (* Print the input, switching to standout for the location *) + let bol = ref false in + print_string "# "; + for pos = 0 to lb.lex_buffer_len - pos0 - 1 do + if !bol then (print_string " "; bol := false); + if pos = loc1.loc_start.pos_cnum || pos = loc2.loc_start.pos_cnum then + Terminfo.standout true; + if pos = loc1.loc_end.pos_cnum || pos = loc2.loc_end.pos_cnum then + Terminfo.standout false; + let c = lb.lex_buffer.[pos + pos0] in + print_char c; + bol := (c = '\n') + done; + (* Make sure standout mode is over *) + Terminfo.standout false; + (* Position cursor back to original location *) + Terminfo.resume !num_loc_lines; + flush stdout + +(* Highlight the location by printing it again. *) + +let highlight_dumb ppf lb loc = + (* Char 0 is at offset -lb.lex_abs_pos in lb.lex_buffer. *) + let pos0 = -lb.lex_abs_pos in + (* Do nothing if the buffer does not contain the whole phrase. *) + if pos0 < 0 then raise Exit; + let end_pos = lb.lex_buffer_len - pos0 - 1 in + (* Determine line numbers for the start and end points *) + let line_start = ref 0 and line_end = ref 0 in + for pos = 0 to end_pos do + if lb.lex_buffer.[pos + pos0] = '\n' then begin + if loc.loc_start.pos_cnum > pos then incr line_start; + if loc.loc_end.pos_cnum > pos then incr line_end; + end + done; + (* Print character location (useful for Emacs) *) + Format.fprintf ppf "Characters %i-%i:@." + loc.loc_start.pos_cnum loc.loc_end.pos_cnum; + (* Print the input, underlining the location *) + print_string " "; + let line = ref 0 in + let pos_at_bol = ref 0 in + for pos = 0 to end_pos do + let c = lb.lex_buffer.[pos + pos0] in + if c <> '\n' then begin + if !line = !line_start && !line = !line_end then + (* loc is on one line: print whole line *) + print_char c + else if !line = !line_start then + (* first line of multiline loc: print ... before loc_start *) + if pos < loc.loc_start.pos_cnum + then print_char '.' + else print_char c + else if !line = !line_end then + (* last line of multiline loc: print ... after loc_end *) + if pos < loc.loc_end.pos_cnum + then print_char c + else print_char '.' + else if !line > !line_start && !line < !line_end then + (* intermediate line of multiline loc: print whole line *) + print_char c + end else begin + if !line = !line_start && !line = !line_end then begin + (* loc is on one line: underline location *) + print_string "\n "; + for i = !pos_at_bol to loc.loc_start.pos_cnum - 1 do + print_char ' ' + done; + for i = loc.loc_start.pos_cnum to loc.loc_end.pos_cnum - 1 do + print_char '^' + done + end; + if !line >= !line_start && !line <= !line_end then begin + print_char '\n'; + if pos < loc.loc_end.pos_cnum then print_string " " + end; + incr line; + pos_at_bol := pos + 1; + end + done + +(* Highlight the location using one of the supported modes. *) + +let rec highlight_locations ppf loc1 loc2 = + match !status with + Terminfo.Uninitialised -> + status := Terminfo.setup stdout; highlight_locations ppf loc1 loc2 + | Terminfo.Bad_term -> + begin match !input_lexbuf with + None -> false + | Some lb -> + let norepeat = + try Sys.getenv "TERM" = "norepeat" with Not_found -> false in + if norepeat then false else + try highlight_dumb ppf lb loc1; true + with Exit -> false + end + | Terminfo.Good_term num_lines -> + begin match !input_lexbuf with + None -> false + | Some lb -> + try highlight_terminfo ppf num_lines lb loc1 loc2; true + with Exit -> false + end + +(* Print the location in some way or another *) + +open Format + +let reset () = + num_loc_lines := 0 + +let (msg_file, msg_line, msg_chars, msg_to, msg_colon, msg_head) = + ("File \"", "\", line ", ", characters ", "-", ":", "") + +(* return file, line, char from the given position *) +let get_pos_info pos = + let (filename, linenum, linebeg) = + if pos.pos_fname = "" && !input_name = "" then + ("", -1, 0) + else if pos.pos_fname = "" then + Linenum.for_position !input_name pos.pos_cnum + else + (pos.pos_fname, pos.pos_lnum, pos.pos_bol) + in + (filename, linenum, pos.pos_cnum - linebeg) +;; + +let print ppf loc = + let (file, line, startchar) = get_pos_info loc.loc_start in + let endchar = loc.loc_end.pos_cnum - loc.loc_start.pos_cnum + startchar in + let (startchar, endchar) = + if startchar < 0 then (0, 1) else (startchar, endchar) + in + if file = "" then begin + if highlight_locations ppf loc none then () else + fprintf ppf "Characters %i-%i:@." + loc.loc_start.pos_cnum loc.loc_end.pos_cnum + end else begin + fprintf ppf "%s%s%s%i" msg_file file msg_line line; + fprintf ppf "%s%i" msg_chars startchar; + fprintf ppf "%s%i%s@.%s" msg_to endchar msg_colon msg_head; + end + +let print_warning loc ppf w = + if Warnings.is_active w then begin + let printw ppf w = + let n = Warnings.print ppf w in + num_loc_lines := !num_loc_lines + n + in + fprintf ppf "%a" print loc; + fprintf ppf "Warning %a@." printw w; + pp_print_flush ppf (); + incr num_loc_lines; + end +;; + +let prerr_warning loc w = print_warning loc err_formatter w;; + +let echo_eof () = + print_newline (); + incr num_loc_lines diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/location.mli b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/location.mli new file mode 100644 index 000000000000..d2f8b51a0f8e --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/location.mli @@ -0,0 +1,56 @@ +(***********************************************************************) +(* *) +(* Objective Caml *) +(* *) +(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) +(* *) +(* Copyright 1996 Institut National de Recherche en Informatique et *) +(* en Automatique. All rights reserved. This file is distributed *) +(* under the terms of the Q Public License version 1.0. *) +(* *) +(***********************************************************************) + +(* $Id: location.mli,v 1.1 2007/09/24 23:04:50 so294 Exp $ *) + +(* Source code locations (ranges of positions), used in parsetree. *) + +open Format + +type t = { + loc_start: Lexing.position; + loc_end: Lexing.position; + loc_ghost: bool; +} + +(* Note on the use of Lexing.position in this module. + If [pos_fname = ""], then use [!input_name] instead. + If [pos_lnum = -1], then [pos_bol = 0]. Use [pos_cnum] and + re-parse the file to get the line and character numbers. + Else all fields are correct. +*) + +val none : t +(** An arbitrary value of type [t]; describes an empty ghost range. *) +val in_file : string -> t;; +(** Return an empty ghost range located in a given file. *) +val init : Lexing.lexbuf -> string -> unit +(** Set the file name and line number of the [lexbuf] to be the start + of the named file. *) +val curr : Lexing.lexbuf -> t +(** Get the location of the current token from the [lexbuf]. *) + +val symbol_rloc: unit -> t +val symbol_gloc: unit -> t +val rhs_loc: int -> t + +val input_name: string ref +val input_lexbuf: Lexing.lexbuf option ref + +val get_pos_info : Lexing.position -> string * int * int (* file, line, char *) +val print: formatter -> t -> unit +val print_warning: t -> formatter -> Warnings.t -> unit +val prerr_warning: t -> Warnings.t -> unit +val echo_eof: unit -> unit +val reset: unit -> unit + +val highlight_locations: formatter -> t -> t -> bool diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/longident.ml b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/longident.ml new file mode 100644 index 000000000000..2289b28bb914 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/longident.ml @@ -0,0 +1,38 @@ +(***********************************************************************) +(* *) +(* Objective Caml *) +(* *) +(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) +(* *) +(* Copyright 1996 Institut National de Recherche en Informatique et *) +(* en Automatique. All rights reserved. This file is distributed *) +(* under the terms of the Q Public License version 1.0. *) +(* *) +(***********************************************************************) + +(* $Id: longident.ml,v 1.1 2007/09/24 23:04:50 so294 Exp $ *) + +type t = + Lident of string + | Ldot of t * string + | Lapply of t * t + +let rec flat accu = function + Lident s -> s :: accu + | Ldot(lid, s) -> flat (s :: accu) lid + | Lapply(l1, l2) -> Misc.fatal_error "Longident.flat" + +let flatten lid = flat [] lid + +let rec split_at_dots s pos = + try + let dot = String.index_from s pos '.' in + String.sub s pos (dot - pos) :: split_at_dots s (dot + 1) + with Not_found -> + [String.sub s pos (String.length s - pos)] + +let parse s = + match split_at_dots s 0 with + [] -> Lident "" (* should not happen, but don't put assert false + so as not to crash the toplevel (see Genprintval) *) + | hd :: tl -> List.fold_left (fun p s -> Ldot(p, s)) (Lident hd) tl diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/longident.mli b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/longident.mli new file mode 100644 index 000000000000..4b3635a92348 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/longident.mli @@ -0,0 +1,23 @@ +(***********************************************************************) +(* *) +(* Objective Caml *) +(* *) +(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) +(* *) +(* Copyright 1996 Institut National de Recherche en Informatique et *) +(* en Automatique. All rights reserved. This file is distributed *) +(* under the terms of the Q Public License version 1.0. *) +(* *) +(***********************************************************************) + +(* $Id: longident.mli,v 1.1 2007/09/24 23:04:50 so294 Exp $ *) + +(* Long identifiers, used in parsetree. *) + +type t = + Lident of string + | Ldot of t * string + | Lapply of t * t + +val flatten: t -> string list +val parse: string -> t diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/parse.ml b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/parse.ml new file mode 100644 index 000000000000..af6e6e5d17e0 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/parse.ml @@ -0,0 +1,64 @@ +(***********************************************************************) +(* *) +(* Objective Caml *) +(* *) +(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) +(* *) +(* Copyright 1996 Institut National de Recherche en Informatique et *) +(* en Automatique. All rights reserved. This file is distributed *) +(* under the terms of the Q Public License version 1.0. *) +(* *) +(***********************************************************************) + +(* $Id: parse.ml,v 1.1 2007/09/24 23:04:50 so294 Exp $ *) + +(* Entry points in the parser *) + +open Location + +(* Skip tokens to the end of the phrase *) + +let rec skip_phrase lexbuf = + try + match Lexer.token lexbuf with + Parser.SEMISEMI | Parser.EOF -> () + | _ -> skip_phrase lexbuf + with + | Lexer.Error (Lexer.Unterminated_comment, _) -> () + | Lexer.Error (Lexer.Unterminated_string, _) -> () + | Lexer.Error (Lexer.Unterminated_string_in_comment, _) -> () + | Lexer.Error (Lexer.Illegal_character _, _) -> skip_phrase lexbuf +;; + +let maybe_skip_phrase lexbuf = + if Parsing.is_current_lookahead Parser.SEMISEMI + || Parsing.is_current_lookahead Parser.EOF + then () + else skip_phrase lexbuf + +let wrap parsing_fun lexbuf = + try + let ast = parsing_fun Lexer.token lexbuf in + Parsing.clear_parser(); + ast + with + | Lexer.Error(Lexer.Unterminated_comment, _) as err -> raise err + | Lexer.Error(Lexer.Unterminated_string, _) as err -> raise err + | Lexer.Error(Lexer.Unterminated_string_in_comment, _) as err -> raise err + | Lexer.Error(Lexer.Illegal_character _, _) as err -> + if !Location.input_name = "" then skip_phrase lexbuf; + raise err + | Syntaxerr.Error _ as err -> + if !Location.input_name = "" then maybe_skip_phrase lexbuf; + raise err + | Parsing.Parse_error | Syntaxerr.Escape_error -> + let loc = Location.curr lexbuf in + if !Location.input_name = "" + then maybe_skip_phrase lexbuf; + raise(Syntaxerr.Error(Syntaxerr.Other loc)) +;; + +let implementation = wrap Parser.implementation +and interface = wrap Parser.interface +and toplevel_phrase = wrap Parser.toplevel_phrase +and use_file = wrap Parser.use_file diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/parse.mli b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/parse.mli new file mode 100644 index 000000000000..eb6dd88f4163 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/parse.mli @@ -0,0 +1,21 @@ +(***********************************************************************) +(* *) +(* Objective Caml *) +(* *) +(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) +(* *) +(* Copyright 1996 Institut National de Recherche en Informatique et *) +(* en Automatique. All rights reserved. This file is distributed *) +(* under the terms of the Q Public License version 1.0. *) +(* *) +(***********************************************************************) + +(* $Id: parse.mli,v 1.1 2007/09/24 23:04:50 so294 Exp $ *) + +(* Entry points in the parser *) + +val implementation : Lexing.lexbuf -> Parsetree.structure +val interface : Lexing.lexbuf -> Parsetree.signature +val toplevel_phrase : Lexing.lexbuf -> Parsetree.toplevel_phrase +val use_file : Lexing.lexbuf -> Parsetree.toplevel_phrase list + diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/parser.mly b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/parser.mly new file mode 100644 index 000000000000..a4c294b2f224 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/parser.mly @@ -0,0 +1,1537 @@ +/***********************************************************************/ +/* */ +/* Objective Caml */ +/* */ +/* Xavier Leroy, projet Cristal, INRIA Rocquencourt */ +/* */ +/* Copyright 1996 Institut National de Recherche en Informatique et */ +/* en Automatique. All rights reserved. This file is distributed */ +/* under the terms of the Q Public License version 1.0. */ +/* */ +/***********************************************************************/ + +/* $Id: parser.mly,v 1.1 2007/09/24 23:04:50 so294 Exp $ */ + +/* The parser definition */ + +%{ +open Location +open Asttypes +open Longident +open Parsetree + +let mktyp d = + { ptyp_desc = d; ptyp_loc = symbol_rloc() } +let mkpat d = + { ppat_desc = d; ppat_loc = symbol_rloc() } +let mkexp d = + { pexp_desc = d; pexp_loc = symbol_rloc() } +let mkmty d = + { pmty_desc = d; pmty_loc = symbol_rloc() } +let mksig d = + { psig_desc = d; psig_loc = symbol_rloc() } +let mkmod d = + { pmod_desc = d; pmod_loc = symbol_rloc() } +let mkstr d = + { pstr_desc = d; pstr_loc = symbol_rloc() } +let mkfield d = + { pfield_desc = d; pfield_loc = symbol_rloc() } +let mkclass d = + { pcl_desc = d; pcl_loc = symbol_rloc() } +let mkcty d = + { pcty_desc = d; pcty_loc = symbol_rloc() } + +let reloc_pat x = { x with ppat_loc = symbol_rloc () };; +let reloc_exp x = { x with pexp_loc = symbol_rloc () };; + +let mkoperator name pos = + { pexp_desc = Pexp_ident(Lident name); pexp_loc = rhs_loc pos } + +(* + Ghost expressions and patterns: + expressions and patterns that do not appear explicitely in the + source file they have the loc_ghost flag set to true. + Then the profiler will not try to instrument them and the + -stypes option will not try to display their type. + + Every grammar rule that generates an element with a location must + make at most one non-ghost element, the topmost one. + + How to tell whether your location must be ghost: + A location corresponds to a range of characters in the source file. + If the location contains a piece of code that is syntactically + valid (according to the documentation), and corresponds to the + AST node, then the location must be real; in all other cases, + it must be ghost. +*) +let ghexp d = { pexp_desc = d; pexp_loc = symbol_gloc () };; +let ghpat d = { ppat_desc = d; ppat_loc = symbol_gloc () };; +let ghtyp d = { ptyp_desc = d; ptyp_loc = symbol_gloc () };; + +let mkassert e = + match e with + | {pexp_desc = Pexp_construct (Lident "false", None, false) } -> + mkexp (Pexp_assertfalse) + | _ -> mkexp (Pexp_assert (e)) +;; + +let mkinfix arg1 name arg2 = + mkexp(Pexp_apply(mkoperator name 2, ["", arg1; "", arg2])) + +let neg_float_string f = + if String.length f > 0 && f.[0] = '-' + then String.sub f 1 (String.length f - 1) + else "-" ^ f + +let mkuminus name arg = + match name, arg.pexp_desc with + | "-", Pexp_constant(Const_int n) -> + mkexp(Pexp_constant(Const_int(-n))) + | "-", Pexp_constant(Const_int32 n) -> + mkexp(Pexp_constant(Const_int32(Int32.neg n))) + | "-", Pexp_constant(Const_int64 n) -> + mkexp(Pexp_constant(Const_int64(Int64.neg n))) + | "-", Pexp_constant(Const_nativeint n) -> + mkexp(Pexp_constant(Const_nativeint(Nativeint.neg n))) + | _, Pexp_constant(Const_float f) -> + mkexp(Pexp_constant(Const_float(neg_float_string f))) + | _ -> + mkexp(Pexp_apply(mkoperator ("~" ^ name) 1, ["", arg])) + +let rec mktailexp = function + [] -> + ghexp(Pexp_construct(Lident "[]", None, false)) + | e1 :: el -> + let exp_el = mktailexp el in + let l = {loc_start = e1.pexp_loc.loc_start; + loc_end = exp_el.pexp_loc.loc_end; + loc_ghost = true} + in + let arg = {pexp_desc = Pexp_tuple [e1; exp_el]; pexp_loc = l} in + {pexp_desc = Pexp_construct(Lident "::", Some arg, false); pexp_loc = l} + +let rec mktailpat = function + [] -> + ghpat(Ppat_construct(Lident "[]", None, false)) + | p1 :: pl -> + let pat_pl = mktailpat pl in + let l = {loc_start = p1.ppat_loc.loc_start; + loc_end = pat_pl.ppat_loc.loc_end; + loc_ghost = true} + in + let arg = {ppat_desc = Ppat_tuple [p1; pat_pl]; ppat_loc = l} in + {ppat_desc = Ppat_construct(Lident "::", Some arg, false); ppat_loc = l} + +let ghstrexp e = + { pstr_desc = Pstr_eval e; pstr_loc = {e.pexp_loc with loc_ghost = true} } + +let array_function str name = + Ldot(Lident str, (if !Clflags.fast then "unsafe_" ^ name else name)) + +let rec deep_mkrangepat c1 c2 = + if c1 = c2 then ghpat(Ppat_constant(Const_char c1)) else + ghpat(Ppat_or(ghpat(Ppat_constant(Const_char c1)), + deep_mkrangepat (Char.chr(Char.code c1 + 1)) c2)) + +let rec mkrangepat c1 c2 = + if c1 > c2 then mkrangepat c2 c1 else + if c1 = c2 then mkpat(Ppat_constant(Const_char c1)) else + reloc_pat (deep_mkrangepat c1 c2) + +let syntax_error () = + raise Syntaxerr.Escape_error + +let unclosed opening_name opening_num closing_name closing_num = + raise(Syntaxerr.Error(Syntaxerr.Unclosed(rhs_loc opening_num, opening_name, + rhs_loc closing_num, closing_name))) + +let bigarray_function str name = + Ldot(Ldot(Lident "Bigarray", str), name) + +let bigarray_untuplify = function + { pexp_desc = Pexp_tuple explist} -> explist + | exp -> [exp] + +let bigarray_get arr arg = + match bigarray_untuplify arg with + [c1] -> + mkexp(Pexp_apply(ghexp(Pexp_ident(bigarray_function "Array1" "get")), + ["", arr; "", c1])) + | [c1;c2] -> + mkexp(Pexp_apply(ghexp(Pexp_ident(bigarray_function "Array2" "get")), + ["", arr; "", c1; "", c2])) + | [c1;c2;c3] -> + mkexp(Pexp_apply(ghexp(Pexp_ident(bigarray_function "Array3" "get")), + ["", arr; "", c1; "", c2; "", c3])) + | coords -> + mkexp(Pexp_apply(ghexp(Pexp_ident(bigarray_function "Genarray" "get")), + ["", arr; "", ghexp(Pexp_array coords)])) + +let bigarray_set arr arg newval = + match bigarray_untuplify arg with + [c1] -> + mkexp(Pexp_apply(ghexp(Pexp_ident(bigarray_function "Array1" "set")), + ["", arr; "", c1; "", newval])) + | [c1;c2] -> + mkexp(Pexp_apply(ghexp(Pexp_ident(bigarray_function "Array2" "set")), + ["", arr; "", c1; "", c2; "", newval])) + | [c1;c2;c3] -> + mkexp(Pexp_apply(ghexp(Pexp_ident(bigarray_function "Array3" "set")), + ["", arr; "", c1; "", c2; "", c3; "", newval])) + | coords -> + mkexp(Pexp_apply(ghexp(Pexp_ident(bigarray_function "Genarray" "set")), + ["", arr; + "", ghexp(Pexp_array coords); + "", newval])) +%} + +/* Tokens */ + +%token AMPERAMPER +%token AMPERSAND +%token AND +%token AS +%token ASSERT +%token BACKQUOTE +%token BAR +%token BARBAR +%token BARRBRACKET +%token BEGIN +%token CHAR +%token CLASS +%token COLON +%token COLONCOLON +%token COLONEQUAL +%token COLONGREATER +%token COMMA +%token CONSTRAINT +%token DO +%token DONE +%token DOT +%token DOTDOT +%token DOWNTO +%token ELSE +%token END +%token EOF +%token EQUAL +%token EXCEPTION +%token EXTERNAL +%token FALSE +%token FLOAT +%token FOR +%token FUN +%token FUNCTION +%token FUNCTOR +%token GREATER +%token GREATERRBRACE +%token GREATERRBRACKET +%token IF +%token IN +%token INCLUDE +%token INFIXOP0 +%token INFIXOP1 +%token INFIXOP2 +%token INFIXOP3 +%token INFIXOP4 +%token INHERIT +%token INITIALIZER +%token INT +%token INT32 +%token INT64 +%token LABEL +%token LAZY +%token LBRACE +%token LBRACELESS +%token LBRACKET +%token LBRACKETBAR +%token LBRACKETLESS +%token LBRACKETGREATER +%token LESS +%token LESSMINUS +%token LET +%token LIDENT +%token LPAREN +%token MATCH +%token METHOD +%token MINUS +%token MINUSDOT +%token MINUSGREATER +%token MODULE +%token MUTABLE +%token NATIVEINT +%token NEW +%token OBJECT +%token OF +%token OPEN +%token OPTLABEL +%token OR +/* %token PARSER */ +%token PLUS +%token PREFIXOP +%token PRIVATE +%token QUESTION +%token QUESTIONQUESTION +%token QUOTE +%token RBRACE +%token RBRACKET +%token REC +%token RPAREN +%token SEMI +%token SEMISEMI +%token SHARP +%token SIG +%token STAR +%token STRING +%token STRUCT +%token THEN +%token TILDE +%token TO +%token TRUE +%token TRY +%token TYPE +%token UIDENT +%token UNDERSCORE +%token VAL +%token VIRTUAL +%token WHEN +%token WHILE +%token WITH + +/* Precedences and associativities. + +Tokens and rules have precedences. A reduce/reduce conflict is resolved +in favor of the first rule (in source file order). A shift/reduce conflict +is resolved by comparing the precedence and associativity of the token to +be shifted with those of the rule to be reduced. + +By default, a rule has the precedence of its rightmost terminal (if any). + +When there is a shift/reduce conflict between a rule and a token that +have the same precedence, it is resolved using the associativity: +if the token is left-associative, the parser will reduce; if +right-associative, the parser will shift; if non-associative, +the parser will declare a syntax error. + +We will only use associativities with operators of the kind x * x -> x +for example, in the rules of the form expr: expr BINOP expr +in all other cases, we define two precedences if needed to resolve +conflicts. + +The precedences must be listed from low to high. +*/ + +%nonassoc IN +%nonassoc below_SEMI +%nonassoc SEMI /* below EQUAL ({lbl=...; lbl=...}) */ +%nonassoc LET /* above SEMI ( ...; let ... in ...) */ +%nonassoc below_WITH +%nonassoc FUNCTION WITH /* below BAR (match ... with ...) */ +%nonassoc AND /* above WITH (module rec A: SIG with ... and ...) */ +%nonassoc THEN /* below ELSE (if ... then ...) */ +%nonassoc ELSE /* (if ... then ... else ...) */ +%nonassoc LESSMINUS /* below COLONEQUAL (lbl <- x := e) */ +%right COLONEQUAL /* expr (e := e := e) */ +%nonassoc AS +%left BAR /* pattern (p|p|p) */ +%nonassoc below_COMMA +%left COMMA /* expr/expr_comma_list (e,e,e) */ +%right MINUSGREATER /* core_type2 (t -> t -> t) */ +%right OR BARBAR /* expr (e || e || e) */ +%right AMPERSAND AMPERAMPER /* expr (e && e && e) */ +%nonassoc below_EQUAL +%left INFIXOP0 EQUAL LESS GREATER /* expr (e OP e OP e) */ +%right INFIXOP1 /* expr (e OP e OP e) */ +%right COLONCOLON /* expr (e :: e :: e) */ +%left INFIXOP2 PLUS MINUS MINUSDOT /* expr (e OP e OP e) */ +%left INFIXOP3 STAR /* expr (e OP e OP e) */ +%right INFIXOP4 /* expr (e OP e OP e) */ +%nonassoc prec_unary_minus /* unary - */ +%nonassoc prec_constant_constructor /* cf. simple_expr (C versus C x) */ +%nonassoc prec_constr_appl /* above AS BAR COLONCOLON COMMA */ +%nonassoc below_SHARP +%nonassoc SHARP /* simple_expr/toplevel_directive */ +%nonassoc below_DOT +%nonassoc DOT +/* Finally, the first tokens of simple_expr are above everything else. */ +%nonassoc BACKQUOTE BEGIN CHAR FALSE FLOAT INT INT32 INT64 + LBRACE LBRACELESS LBRACKET LBRACKETBAR LIDENT LPAREN + NEW NATIVEINT PREFIXOP STRING TRUE UIDENT + + +/* Entry points */ + +%start implementation /* for implementation files */ +%type implementation +%start interface /* for interface files */ +%type interface +%start toplevel_phrase /* for interactive use */ +%type toplevel_phrase +%start use_file /* for the #use directive */ +%type use_file + +%% + +/* Entry points */ + +implementation: + structure EOF { $1 } +; +interface: + signature EOF { List.rev $1 } +; +toplevel_phrase: + top_structure SEMISEMI { Ptop_def $1 } + | seq_expr SEMISEMI { Ptop_def[ghstrexp $1] } + | toplevel_directive SEMISEMI { $1 } + | EOF { raise End_of_file } +; +top_structure: + structure_item { [$1] } + | structure_item top_structure { $1 :: $2 } +; +use_file: + use_file_tail { $1 } + | seq_expr use_file_tail { Ptop_def[ghstrexp $1] :: $2 } +; +use_file_tail: + EOF { [] } + | SEMISEMI EOF { [] } + | SEMISEMI seq_expr use_file_tail { Ptop_def[ghstrexp $2] :: $3 } + | SEMISEMI structure_item use_file_tail { Ptop_def[$2] :: $3 } + | SEMISEMI toplevel_directive use_file_tail { $2 :: $3 } + | structure_item use_file_tail { Ptop_def[$1] :: $2 } + | toplevel_directive use_file_tail { $1 :: $2 } +; + +/* Module expressions */ + +module_expr: + mod_longident + { mkmod(Pmod_ident $1) } + | STRUCT structure END + { mkmod(Pmod_structure($2)) } + | STRUCT structure error + { unclosed "struct" 1 "end" 3 } + | FUNCTOR LPAREN UIDENT COLON module_type RPAREN MINUSGREATER module_expr + { mkmod(Pmod_functor($3, $5, $8)) } + | module_expr LPAREN module_expr RPAREN + { mkmod(Pmod_apply($1, $3)) } + | module_expr LPAREN module_expr error + { unclosed "(" 2 ")" 4 } + | LPAREN module_expr COLON module_type RPAREN + { mkmod(Pmod_constraint($2, $4)) } + | LPAREN module_expr COLON module_type error + { unclosed "(" 1 ")" 5 } + | LPAREN module_expr RPAREN + { $2 } + | LPAREN module_expr error + { unclosed "(" 1 ")" 3 } +; +structure: + structure_tail { $1 } + | seq_expr structure_tail { ghstrexp $1 :: $2 } +; +structure_tail: + /* empty */ { [] } + | SEMISEMI { [] } + | SEMISEMI seq_expr structure_tail { ghstrexp $2 :: $3 } + | SEMISEMI structure_item structure_tail { $2 :: $3 } + | structure_item structure_tail { $1 :: $2 } +; +structure_item: + LET rec_flag let_bindings + { match $3 with + [{ppat_desc = Ppat_any}, exp] -> mkstr(Pstr_eval exp) + | _ -> mkstr(Pstr_value($2, List.rev $3)) } + | EXTERNAL val_ident_colon core_type EQUAL primitive_declaration + { mkstr(Pstr_primitive($2, {pval_type = $3; pval_prim = $5})) } + | TYPE type_declarations + { mkstr(Pstr_type(List.rev $2)) } + | EXCEPTION UIDENT constructor_arguments + { mkstr(Pstr_exception($2, $3)) } + | EXCEPTION UIDENT EQUAL constr_longident + { mkstr(Pstr_exn_rebind($2, $4)) } + | MODULE UIDENT module_binding + { mkstr(Pstr_module($2, $3)) } + | MODULE REC module_rec_bindings + { mkstr(Pstr_recmodule(List.rev $3)) } + | MODULE TYPE ident EQUAL module_type + { mkstr(Pstr_modtype($3, $5)) } + | OPEN mod_longident + { mkstr(Pstr_open $2) } + | CLASS class_declarations + { mkstr(Pstr_class (List.rev $2)) } + | CLASS TYPE class_type_declarations + { mkstr(Pstr_class_type (List.rev $3)) } + | INCLUDE module_expr + { mkstr(Pstr_include $2) } +; +module_binding: + EQUAL module_expr + { $2 } + | COLON module_type EQUAL module_expr + { mkmod(Pmod_constraint($4, $2)) } + | LPAREN UIDENT COLON module_type RPAREN module_binding + { mkmod(Pmod_functor($2, $4, $6)) } +; +module_rec_bindings: + module_rec_binding { [$1] } + | module_rec_bindings AND module_rec_binding { $3 :: $1 } +; +module_rec_binding: + UIDENT COLON module_type EQUAL module_expr { ($1, $3, $5) } +; + +/* Module types */ + +module_type: + mty_longident + { mkmty(Pmty_ident $1) } + | SIG signature END + { mkmty(Pmty_signature(List.rev $2)) } + | SIG signature error + { unclosed "sig" 1 "end" 3 } + | FUNCTOR LPAREN UIDENT COLON module_type RPAREN MINUSGREATER module_type + %prec below_WITH + { mkmty(Pmty_functor($3, $5, $8)) } + | module_type WITH with_constraints + { mkmty(Pmty_with($1, List.rev $3)) } + | LPAREN module_type RPAREN + { $2 } + | LPAREN module_type error + { unclosed "(" 1 ")" 3 } +; +signature: + /* empty */ { [] } + | signature signature_item { $2 :: $1 } + | signature signature_item SEMISEMI { $2 :: $1 } +; +signature_item: + VAL val_ident_colon core_type + { mksig(Psig_value($2, {pval_type = $3; pval_prim = []})) } + | EXTERNAL val_ident_colon core_type EQUAL primitive_declaration + { mksig(Psig_value($2, {pval_type = $3; pval_prim = $5})) } + | TYPE type_declarations + { mksig(Psig_type(List.rev $2)) } + | EXCEPTION UIDENT constructor_arguments + { mksig(Psig_exception($2, $3)) } + | MODULE UIDENT module_declaration + { mksig(Psig_module($2, $3)) } + | MODULE REC module_rec_declarations + { mksig(Psig_recmodule(List.rev $3)) } + | MODULE TYPE ident + { mksig(Psig_modtype($3, Pmodtype_abstract)) } + | MODULE TYPE ident EQUAL module_type + { mksig(Psig_modtype($3, Pmodtype_manifest $5)) } + | OPEN mod_longident + { mksig(Psig_open $2) } + | INCLUDE module_type + { mksig(Psig_include $2) } + | CLASS class_descriptions + { mksig(Psig_class (List.rev $2)) } + | CLASS TYPE class_type_declarations + { mksig(Psig_class_type (List.rev $3)) } +; + +module_declaration: + COLON module_type + { $2 } + | LPAREN UIDENT COLON module_type RPAREN module_declaration + { mkmty(Pmty_functor($2, $4, $6)) } +; +module_rec_declarations: + module_rec_declaration { [$1] } + | module_rec_declarations AND module_rec_declaration { $3 :: $1 } +; +module_rec_declaration: + UIDENT COLON module_type { ($1, $3) } +; + +/* Class expressions */ + +class_declarations: + class_declarations AND class_declaration { $3 :: $1 } + | class_declaration { [$1] } +; +class_declaration: + virtual_flag class_type_parameters LIDENT class_fun_binding + { let params, variance = List.split (fst $2) in + {pci_virt = $1; pci_params = params, snd $2; + pci_name = $3; pci_expr = $4; pci_variance = variance; + pci_loc = symbol_rloc ()} } +; +class_fun_binding: + EQUAL class_expr + { $2 } + | COLON class_type EQUAL class_expr + { mkclass(Pcl_constraint($4, $2)) } + | labeled_simple_pattern class_fun_binding + { let (l,o,p) = $1 in mkclass(Pcl_fun(l, o, p, $2)) } +; +class_type_parameters: + /*empty*/ { [], symbol_gloc () } + | LBRACKET type_parameter_list RBRACKET { List.rev $2, symbol_rloc () } +; +class_fun_def: + labeled_simple_pattern MINUSGREATER class_expr + { let (l,o,p) = $1 in mkclass(Pcl_fun(l, o, p, $3)) } + | labeled_simple_pattern class_fun_def + { let (l,o,p) = $1 in mkclass(Pcl_fun(l, o, p, $2)) } +; +class_expr: + class_simple_expr + { $1 } + | FUN class_fun_def + { $2 } + | class_simple_expr simple_labeled_expr_list + { mkclass(Pcl_apply($1, List.rev $2)) } + | LET rec_flag let_bindings IN class_expr + { mkclass(Pcl_let ($2, List.rev $3, $5)) } +; +class_simple_expr: + LBRACKET core_type_comma_list RBRACKET class_longident + { mkclass(Pcl_constr($4, List.rev $2)) } + | class_longident + { mkclass(Pcl_constr($1, [])) } + | OBJECT class_structure END + { mkclass(Pcl_structure($2)) } + | OBJECT class_structure error + { unclosed "object" 1 "end" 3 } + | LPAREN class_expr COLON class_type RPAREN + { mkclass(Pcl_constraint($2, $4)) } + | LPAREN class_expr COLON class_type error + { unclosed "(" 1 ")" 5 } + | LPAREN class_expr RPAREN + { $2 } + | LPAREN class_expr error + { unclosed "(" 1 ")" 3 } +; +class_structure: + class_self_pattern class_fields + { $1, List.rev $2 } +; +class_self_pattern: + LPAREN pattern RPAREN + { reloc_pat $2 } + | LPAREN pattern COLON core_type RPAREN + { mkpat(Ppat_constraint($2, $4)) } + | /* empty */ + { ghpat(Ppat_any) } +; +class_fields: + /* empty */ + { [] } + | class_fields INHERIT class_expr parent_binder + { Pcf_inher ($3, $4) :: $1 } + | class_fields VAL virtual_value + { Pcf_valvirt $3 :: $1 } + | class_fields VAL value + { Pcf_val $3 :: $1 } + | class_fields virtual_method + { Pcf_virt $2 :: $1 } + | class_fields concrete_method + { Pcf_meth $2 :: $1 } + | class_fields CONSTRAINT constrain + { Pcf_cstr $3 :: $1 } + | class_fields INITIALIZER seq_expr + { Pcf_init $3 :: $1 } +; +parent_binder: + AS LIDENT + { Some $2 } + | /* empty */ + { None } +; +virtual_value: + MUTABLE VIRTUAL label COLON core_type + { $3, Mutable, $5, symbol_rloc () } + | VIRTUAL mutable_flag label COLON core_type + { $3, $2, $5, symbol_rloc () } +; +value: + mutable_flag label EQUAL seq_expr + { $2, $1, $4, symbol_rloc () } + | mutable_flag label type_constraint EQUAL seq_expr + { $2, $1, (let (t, t') = $3 in ghexp(Pexp_constraint($5, t, t'))), + symbol_rloc () } +; +virtual_method: + METHOD PRIVATE VIRTUAL label COLON poly_type + { $4, Private, $6, symbol_rloc () } + | METHOD VIRTUAL private_flag label COLON poly_type + { $4, $3, $6, symbol_rloc () } +; +concrete_method : + METHOD private_flag label strict_binding + { $3, $2, ghexp(Pexp_poly ($4, None)), symbol_rloc () } + | METHOD private_flag label COLON poly_type EQUAL seq_expr + { $3, $2, ghexp(Pexp_poly($7,Some $5)), symbol_rloc () } + | METHOD private_flag LABEL poly_type EQUAL seq_expr + { $3, $2, ghexp(Pexp_poly($6,Some $4)), symbol_rloc () } +; + +/* Class types */ + +class_type: + class_signature + { $1 } + | QUESTION LIDENT COLON simple_core_type_or_tuple MINUSGREATER class_type + { mkcty(Pcty_fun("?" ^ $2 , + {ptyp_desc = Ptyp_constr(Lident "option", [$4]); + ptyp_loc = $4.ptyp_loc}, + $6)) } + | OPTLABEL simple_core_type_or_tuple MINUSGREATER class_type + { mkcty(Pcty_fun("?" ^ $1 , + {ptyp_desc = Ptyp_constr(Lident "option", [$2]); + ptyp_loc = $2.ptyp_loc}, + $4)) } + | LIDENT COLON simple_core_type_or_tuple MINUSGREATER class_type + { mkcty(Pcty_fun($1, $3, $5)) } + | simple_core_type_or_tuple MINUSGREATER class_type + { mkcty(Pcty_fun("", $1, $3)) } +; +class_signature: + LBRACKET core_type_comma_list RBRACKET clty_longident + { mkcty(Pcty_constr ($4, List.rev $2)) } + | clty_longident + { mkcty(Pcty_constr ($1, [])) } + | OBJECT class_sig_body END + { mkcty(Pcty_signature $2) } + | OBJECT class_sig_body error + { unclosed "object" 1 "end" 3 } +; +class_sig_body: + class_self_type class_sig_fields + { $1, List.rev $2 } +; +class_self_type: + LPAREN core_type RPAREN + { $2 } + | /* empty */ + { mktyp(Ptyp_any) } +; +class_sig_fields: + /* empty */ { [] } + | class_sig_fields INHERIT class_signature { Pctf_inher $3 :: $1 } + | class_sig_fields VAL value_type { Pctf_val $3 :: $1 } + | class_sig_fields virtual_method { Pctf_virt $2 :: $1 } + | class_sig_fields method_type { Pctf_meth $2 :: $1 } + | class_sig_fields CONSTRAINT constrain { Pctf_cstr $3 :: $1 } +; +value_type: + VIRTUAL mutable_flag label COLON core_type + { $3, $2, Virtual, $5, symbol_rloc () } + | MUTABLE virtual_flag label COLON core_type + { $3, Mutable, $2, $5, symbol_rloc () } + | label COLON core_type + { $1, Immutable, Concrete, $3, symbol_rloc () } +; +method_type: + METHOD private_flag label COLON poly_type + { $3, $2, $5, symbol_rloc () } +; +constrain: + core_type EQUAL core_type { $1, $3, symbol_rloc () } +; +class_descriptions: + class_descriptions AND class_description { $3 :: $1 } + | class_description { [$1] } +; +class_description: + virtual_flag class_type_parameters LIDENT COLON class_type + { let params, variance = List.split (fst $2) in + {pci_virt = $1; pci_params = params, snd $2; + pci_name = $3; pci_expr = $5; pci_variance = variance; + pci_loc = symbol_rloc ()} } +; +class_type_declarations: + class_type_declarations AND class_type_declaration { $3 :: $1 } + | class_type_declaration { [$1] } +; +class_type_declaration: + virtual_flag class_type_parameters LIDENT EQUAL class_signature + { let params, variance = List.split (fst $2) in + {pci_virt = $1; pci_params = params, snd $2; + pci_name = $3; pci_expr = $5; pci_variance = variance; + pci_loc = symbol_rloc ()} } +; + +/* Core expressions */ + +seq_expr: + | expr %prec below_SEMI { $1 } + | expr SEMI { reloc_exp $1 } + | expr SEMI seq_expr { mkexp(Pexp_sequence($1, $3)) } +; +labeled_simple_pattern: + QUESTION LPAREN label_let_pattern opt_default RPAREN + { ("?" ^ fst $3, $4, snd $3) } + | QUESTION label_var + { ("?" ^ fst $2, None, snd $2) } + | OPTLABEL LPAREN let_pattern opt_default RPAREN + { ("?" ^ $1, $4, $3) } + | OPTLABEL pattern_var + { ("?" ^ $1, None, $2) } + | TILDE LPAREN label_let_pattern RPAREN + { (fst $3, None, snd $3) } + | TILDE label_var + { (fst $2, None, snd $2) } + | LABEL simple_pattern + { ($1, None, $2) } + | simple_pattern + { ("", None, $1) } +; +pattern_var: + LIDENT { mkpat(Ppat_var $1) } + | UNDERSCORE { mkpat Ppat_any } +; +opt_default: + /* empty */ { None } + | EQUAL seq_expr { Some $2 } +; +label_let_pattern: + label_var + { $1 } + | label_var COLON core_type + { let (lab, pat) = $1 in (lab, mkpat(Ppat_constraint(pat, $3))) } +; +label_var: + LIDENT { ($1, mkpat(Ppat_var $1)) } +; +let_pattern: + pattern + { $1 } + | pattern COLON core_type + { mkpat(Ppat_constraint($1, $3)) } +; +expr: + simple_expr %prec below_SHARP + { $1 } + | simple_expr simple_labeled_expr_list + { mkexp(Pexp_apply($1, List.rev $2)) } + | LET rec_flag let_bindings IN seq_expr + { mkexp(Pexp_let($2, List.rev $3, $5)) } + | LET MODULE UIDENT module_binding IN seq_expr + { mkexp(Pexp_letmodule($3, $4, $6)) } + | FUNCTION opt_bar match_cases + { mkexp(Pexp_function("", None, List.rev $3)) } + | FUN labeled_simple_pattern fun_def + { let (l,o,p) = $2 in mkexp(Pexp_function(l, o, [p, $3])) } + | MATCH seq_expr WITH opt_bar match_cases + { mkexp(Pexp_match($2, List.rev $5)) } + | TRY seq_expr WITH opt_bar match_cases + { mkexp(Pexp_try($2, List.rev $5)) } + | TRY seq_expr WITH error + { syntax_error() } + | expr_comma_list %prec below_COMMA + { mkexp(Pexp_tuple(List.rev $1)) } + | constr_longident simple_expr %prec below_SHARP + { mkexp(Pexp_construct($1, Some $2, false)) } + | name_tag simple_expr %prec below_SHARP + { mkexp(Pexp_variant($1, Some $2)) } + | IF seq_expr THEN expr ELSE expr + { mkexp(Pexp_ifthenelse($2, $4, Some $6)) } + | IF seq_expr THEN expr + { mkexp(Pexp_ifthenelse($2, $4, None)) } + | WHILE seq_expr DO seq_expr DONE + { mkexp(Pexp_while($2, $4)) } + | FOR val_ident EQUAL seq_expr direction_flag seq_expr DO seq_expr DONE + { mkexp(Pexp_for($2, $4, $6, $5, $8)) } + | expr COLONCOLON expr + { mkexp(Pexp_construct(Lident "::", + Some(ghexp(Pexp_tuple[$1;$3])), + false)) } + | LPAREN COLONCOLON RPAREN LPAREN expr COMMA expr RPAREN + { mkexp(Pexp_construct(Lident "::", + Some(ghexp(Pexp_tuple[$5;$7])), + false)) } + | expr INFIXOP0 expr + { mkinfix $1 $2 $3 } + | expr INFIXOP1 expr + { mkinfix $1 $2 $3 } + | expr INFIXOP2 expr + { mkinfix $1 $2 $3 } + | expr INFIXOP3 expr + { mkinfix $1 $2 $3 } + | expr INFIXOP4 expr + { mkinfix $1 $2 $3 } + | expr PLUS expr + { mkinfix $1 "+" $3 } + | expr MINUS expr + { mkinfix $1 "-" $3 } + | expr MINUSDOT expr + { mkinfix $1 "-." $3 } + | expr STAR expr + { mkinfix $1 "*" $3 } + | expr EQUAL expr + { mkinfix $1 "=" $3 } + | expr LESS expr + { mkinfix $1 "<" $3 } + | expr GREATER expr + { mkinfix $1 ">" $3 } + | expr OR expr + { mkinfix $1 "or" $3 } + | expr BARBAR expr + { mkinfix $1 "||" $3 } + | expr AMPERSAND expr + { mkinfix $1 "&" $3 } + | expr AMPERAMPER expr + { mkinfix $1 "&&" $3 } + | expr COLONEQUAL expr + { mkinfix $1 ":=" $3 } + | subtractive expr %prec prec_unary_minus + { mkuminus $1 $2 } + | simple_expr DOT label_longident LESSMINUS expr + { mkexp(Pexp_setfield($1, $3, $5)) } + | simple_expr DOT LPAREN seq_expr RPAREN LESSMINUS expr + { mkexp(Pexp_apply(ghexp(Pexp_ident(array_function "Array" "set")), + ["",$1; "",$4; "",$7])) } + | simple_expr DOT LBRACKET seq_expr RBRACKET LESSMINUS expr + { mkexp(Pexp_apply(ghexp(Pexp_ident(array_function "String" "set")), + ["",$1; "",$4; "",$7])) } + | simple_expr DOT LBRACE expr RBRACE LESSMINUS expr + { bigarray_set $1 $4 $7 } + | label LESSMINUS expr + { mkexp(Pexp_setinstvar($1, $3)) } + | ASSERT simple_expr %prec below_SHARP + { mkassert $2 } + | LAZY simple_expr %prec below_SHARP + { mkexp (Pexp_lazy ($2)) } + | OBJECT class_structure END + { mkexp (Pexp_object($2)) } + | OBJECT class_structure error + { unclosed "object" 1 "end" 3 } +; +simple_expr: + val_longident + { mkexp(Pexp_ident $1) } + | constant + { mkexp(Pexp_constant $1) } + | constr_longident %prec prec_constant_constructor + { mkexp(Pexp_construct($1, None, false)) } + | name_tag %prec prec_constant_constructor + { mkexp(Pexp_variant($1, None)) } + | LPAREN seq_expr RPAREN + { reloc_exp $2 } + | LPAREN seq_expr error + { unclosed "(" 1 ")" 3 } + | BEGIN seq_expr END + { reloc_exp $2 } + | BEGIN END + { mkexp (Pexp_construct (Lident "()", None, false)) } + | BEGIN seq_expr error + { unclosed "begin" 1 "end" 3 } + | LPAREN seq_expr type_constraint RPAREN + { let (t, t') = $3 in mkexp(Pexp_constraint($2, t, t')) } + | simple_expr DOT label_longident + { mkexp(Pexp_field($1, $3)) } + | simple_expr DOT LPAREN seq_expr RPAREN + { mkexp(Pexp_apply(ghexp(Pexp_ident(array_function "Array" "get")), + ["",$1; "",$4])) } + | simple_expr DOT LPAREN seq_expr error + { unclosed "(" 3 ")" 5 } + | simple_expr DOT LBRACKET seq_expr RBRACKET + { mkexp(Pexp_apply(ghexp(Pexp_ident(array_function "String" "get")), + ["",$1; "",$4])) } + | simple_expr DOT LBRACKET seq_expr error + { unclosed "[" 3 "]" 5 } + | simple_expr DOT LBRACE expr RBRACE + { bigarray_get $1 $4 } + | simple_expr DOT LBRACE expr_comma_list error + { unclosed "{" 3 "}" 5 } + | LBRACE record_expr RBRACE + { let (exten, fields) = $2 in mkexp(Pexp_record(fields, exten)) } + | LBRACE record_expr error + { unclosed "{" 1 "}" 3 } + | LBRACKETBAR expr_semi_list opt_semi BARRBRACKET + { mkexp(Pexp_array(List.rev $2)) } + | LBRACKETBAR expr_semi_list opt_semi error + { unclosed "[|" 1 "|]" 4 } + | LBRACKETBAR BARRBRACKET + { mkexp(Pexp_array []) } + | LBRACKET expr_semi_list opt_semi RBRACKET + { reloc_exp (mktailexp (List.rev $2)) } + | LBRACKET expr_semi_list opt_semi error + { unclosed "[" 1 "]" 4 } + | PREFIXOP simple_expr + { mkexp(Pexp_apply(mkoperator $1 1, ["",$2])) } + | NEW class_longident + { mkexp(Pexp_new($2)) } + | LBRACELESS field_expr_list opt_semi GREATERRBRACE + { mkexp(Pexp_override(List.rev $2)) } + | LBRACELESS field_expr_list opt_semi error + { unclosed "{<" 1 ">}" 4 } + | LBRACELESS GREATERRBRACE + { mkexp(Pexp_override []) } + | simple_expr SHARP label + { mkexp(Pexp_send($1, $3)) } +; +simple_labeled_expr_list: + labeled_simple_expr + { [$1] } + | simple_labeled_expr_list labeled_simple_expr + { $2 :: $1 } +; +labeled_simple_expr: + simple_expr %prec below_SHARP + { ("", $1) } + | label_expr + { $1 } +; +label_expr: + LABEL simple_expr %prec below_SHARP + { ($1, $2) } + | TILDE label_ident + { $2 } + | QUESTION label_ident + { ("?" ^ fst $2, snd $2) } + | OPTLABEL simple_expr %prec below_SHARP + { ("?" ^ $1, $2) } +; +label_ident: + LIDENT { ($1, mkexp(Pexp_ident(Lident $1))) } +; +let_bindings: + let_binding { [$1] } + | let_bindings AND let_binding { $3 :: $1 } +; +let_binding: + val_ident fun_binding + { ({ppat_desc = Ppat_var $1; ppat_loc = rhs_loc 1}, $2) } + | pattern EQUAL seq_expr + { ($1, $3) } +; +fun_binding: + strict_binding + { $1 } + | type_constraint EQUAL seq_expr + { let (t, t') = $1 in ghexp(Pexp_constraint($3, t, t')) } +; +strict_binding: + EQUAL seq_expr + { $2 } + | labeled_simple_pattern fun_binding + { let (l, o, p) = $1 in ghexp(Pexp_function(l, o, [p, $2])) } +; +match_cases: + pattern match_action { [$1, $2] } + | match_cases BAR pattern match_action { ($3, $4) :: $1 } +; +fun_def: + match_action { $1 } + | labeled_simple_pattern fun_def + { let (l,o,p) = $1 in ghexp(Pexp_function(l, o, [p, $2])) } +; +match_action: + MINUSGREATER seq_expr { $2 } + | WHEN seq_expr MINUSGREATER seq_expr { mkexp(Pexp_when($2, $4)) } +; +expr_comma_list: + expr_comma_list COMMA expr { $3 :: $1 } + | expr COMMA expr { [$3; $1] } +; +record_expr: + simple_expr WITH lbl_expr_list opt_semi { (Some $1, List.rev $3) } + | lbl_expr_list opt_semi { (None, List.rev $1) } +; +lbl_expr_list: + label_longident EQUAL expr + { [$1,$3] } + | lbl_expr_list SEMI label_longident EQUAL expr + { ($3, $5) :: $1 } +; +field_expr_list: + label EQUAL expr + { [$1,$3] } + | field_expr_list SEMI label EQUAL expr + { ($3, $5) :: $1 } +; +expr_semi_list: + expr { [$1] } + | expr_semi_list SEMI expr { $3 :: $1 } +; +type_constraint: + COLON core_type { (Some $2, None) } + | COLON core_type COLONGREATER core_type { (Some $2, Some $4) } + | COLONGREATER core_type { (None, Some $2) } + | COLON error { syntax_error() } + | COLONGREATER error { syntax_error() } +; + +/* Patterns */ + +pattern: + simple_pattern + { $1 } + | pattern AS val_ident + { mkpat(Ppat_alias($1, $3)) } + | pattern_comma_list %prec below_COMMA + { mkpat(Ppat_tuple(List.rev $1)) } + | constr_longident pattern %prec prec_constr_appl + { mkpat(Ppat_construct($1, Some $2, false)) } + | name_tag pattern %prec prec_constr_appl + { mkpat(Ppat_variant($1, Some $2)) } + | pattern COLONCOLON pattern + { mkpat(Ppat_construct(Lident "::", Some(ghpat(Ppat_tuple[$1;$3])), + false)) } + | LPAREN COLONCOLON RPAREN LPAREN pattern COMMA pattern RPAREN + { mkpat(Ppat_construct(Lident "::", Some(ghpat(Ppat_tuple[$5;$7])), + false)) } + | pattern BAR pattern + { mkpat(Ppat_or($1, $3)) } +; +simple_pattern: + val_ident %prec below_EQUAL + { mkpat(Ppat_var $1) } + | UNDERSCORE + { mkpat(Ppat_any) } + | signed_constant + { mkpat(Ppat_constant $1) } + | CHAR DOTDOT CHAR + { mkrangepat $1 $3 } + | constr_longident + { mkpat(Ppat_construct($1, None, false)) } + | name_tag + { mkpat(Ppat_variant($1, None)) } + | SHARP type_longident + { mkpat(Ppat_type $2) } + | LBRACE lbl_pattern_list opt_semi RBRACE + { mkpat(Ppat_record(List.rev $2)) } + | LBRACE lbl_pattern_list opt_semi error + { unclosed "{" 1 "}" 4 } + | LBRACKET pattern_semi_list opt_semi RBRACKET + { reloc_pat (mktailpat (List.rev $2)) } + | LBRACKET pattern_semi_list opt_semi error + { unclosed "[" 1 "]" 4 } + | LBRACKETBAR pattern_semi_list opt_semi BARRBRACKET + { mkpat(Ppat_array(List.rev $2)) } + | LBRACKETBAR BARRBRACKET + { mkpat(Ppat_array []) } + | LBRACKETBAR pattern_semi_list opt_semi error + { unclosed "[|" 1 "|]" 4 } + | LPAREN pattern RPAREN + { reloc_pat $2 } + | LPAREN pattern error + { unclosed "(" 1 ")" 3 } + | LPAREN pattern COLON core_type RPAREN + { mkpat(Ppat_constraint($2, $4)) } + | LPAREN pattern COLON core_type error + { unclosed "(" 1 ")" 5 } +; + +pattern_comma_list: + pattern_comma_list COMMA pattern { $3 :: $1 } + | pattern COMMA pattern { [$3; $1] } +; +pattern_semi_list: + pattern { [$1] } + | pattern_semi_list SEMI pattern { $3 :: $1 } +; +lbl_pattern_list: + label_longident EQUAL pattern { [($1, $3)] } + | lbl_pattern_list SEMI label_longident EQUAL pattern { ($3, $5) :: $1 } +; + +/* Primitive declarations */ + +primitive_declaration: + STRING { [$1] } + | STRING primitive_declaration { $1 :: $2 } +; + +/* Type declarations */ + +type_declarations: + type_declaration { [$1] } + | type_declarations AND type_declaration { $3 :: $1 } +; + +type_declaration: + type_parameters LIDENT type_kind constraints + { let (params, variance) = List.split $1 in + let (kind, manifest) = $3 in + ($2, {ptype_params = params; + ptype_cstrs = List.rev $4; + ptype_kind = kind; + ptype_manifest = manifest; + ptype_variance = variance; + ptype_loc = symbol_rloc()}) } +; +constraints: + constraints CONSTRAINT constrain { $3 :: $1 } + | /* empty */ { [] } +; +type_kind: + /*empty*/ + { (Ptype_abstract, None) } + | EQUAL core_type + { (Ptype_abstract, Some $2) } + | EQUAL constructor_declarations + { (Ptype_variant(List.rev $2, Public), None) } + | EQUAL PRIVATE constructor_declarations + { (Ptype_variant(List.rev $3, Private), None) } + | EQUAL private_flag BAR constructor_declarations + { (Ptype_variant(List.rev $4, $2), None) } + | EQUAL private_flag LBRACE label_declarations opt_semi RBRACE + { (Ptype_record(List.rev $4, $2), None) } + | EQUAL core_type EQUAL private_flag opt_bar constructor_declarations + { (Ptype_variant(List.rev $6, $4), Some $2) } + | EQUAL core_type EQUAL private_flag LBRACE label_declarations opt_semi RBRACE + { (Ptype_record(List.rev $6, $4), Some $2) } + | EQUAL PRIVATE core_type + { (Ptype_private, Some $3) } +; +type_parameters: + /*empty*/ { [] } + | type_parameter { [$1] } + | LPAREN type_parameter_list RPAREN { List.rev $2 } +; +type_parameter: + type_variance QUOTE ident { $3, $1 } +; +type_variance: + /* empty */ { false, false } + | PLUS { true, false } + | MINUS { false, true } +; +type_parameter_list: + type_parameter { [$1] } + | type_parameter_list COMMA type_parameter { $3 :: $1 } +; +constructor_declarations: + constructor_declaration { [$1] } + | constructor_declarations BAR constructor_declaration { $3 :: $1 } +; +constructor_declaration: + constr_ident constructor_arguments { ($1, $2, symbol_rloc()) } +; +constructor_arguments: + /*empty*/ { [] } + | OF core_type_list { List.rev $2 } +; +label_declarations: + label_declaration { [$1] } + | label_declarations SEMI label_declaration { $3 :: $1 } +; +label_declaration: + mutable_flag label COLON poly_type { ($2, $1, $4, symbol_rloc()) } +; + +/* "with" constraints (additional type equations over signature components) */ + +with_constraints: + with_constraint { [$1] } + | with_constraints AND with_constraint { $3 :: $1 } +; +with_constraint: + TYPE type_parameters label_longident with_type_binder core_type constraints + { let params, variance = List.split $2 in + ($3, Pwith_type {ptype_params = params; + ptype_cstrs = List.rev $6; + ptype_kind = $4; + ptype_manifest = Some $5; + ptype_variance = variance; + ptype_loc = symbol_rloc()}) } + /* used label_longident instead of type_longident to disallow + functor applications in type path */ + | MODULE mod_longident EQUAL mod_ext_longident + { ($2, Pwith_module $4) } +; +with_type_binder: + EQUAL { Ptype_abstract } + | EQUAL PRIVATE { Ptype_private } +; + +/* Polymorphic types */ + +typevar_list: + QUOTE ident { [$2] } + | typevar_list QUOTE ident { $3 :: $1 } +; +poly_type: + core_type + { mktyp(Ptyp_poly([], $1)) } + | typevar_list DOT core_type + { mktyp(Ptyp_poly(List.rev $1, $3)) } +; + +/* Core types */ + +core_type: + core_type2 + { $1 } + | core_type2 AS QUOTE ident + { mktyp(Ptyp_alias($1, $4)) } +; +core_type2: + simple_core_type_or_tuple + { $1 } + | QUESTION LIDENT COLON core_type2 MINUSGREATER core_type2 + { mktyp(Ptyp_arrow("?" ^ $2 , + {ptyp_desc = Ptyp_constr(Lident "option", [$4]); + ptyp_loc = $4.ptyp_loc}, $6)) } + | OPTLABEL core_type2 MINUSGREATER core_type2 + { mktyp(Ptyp_arrow("?" ^ $1 , + {ptyp_desc = Ptyp_constr(Lident "option", [$2]); + ptyp_loc = $2.ptyp_loc}, $4)) } + | LIDENT COLON core_type2 MINUSGREATER core_type2 + { mktyp(Ptyp_arrow($1, $3, $5)) } + | core_type2 MINUSGREATER core_type2 + { mktyp(Ptyp_arrow("", $1, $3)) } +; + +simple_core_type: + simple_core_type2 %prec below_SHARP + { $1 } + | LPAREN core_type_comma_list RPAREN %prec below_SHARP + { match $2 with [sty] -> sty | _ -> raise Parse_error } +; +simple_core_type2: + QUOTE ident + { mktyp(Ptyp_var $2) } + | UNDERSCORE + { mktyp(Ptyp_any) } + | type_longident + { mktyp(Ptyp_constr($1, [])) } + | simple_core_type2 type_longident + { mktyp(Ptyp_constr($2, [$1])) } + | LPAREN core_type_comma_list RPAREN type_longident + { mktyp(Ptyp_constr($4, List.rev $2)) } + | LESS meth_list GREATER + { mktyp(Ptyp_object $2) } + | LESS GREATER + { mktyp(Ptyp_object []) } + | SHARP class_longident opt_present + { mktyp(Ptyp_class($2, [], $3)) } + | simple_core_type2 SHARP class_longident opt_present + { mktyp(Ptyp_class($3, [$1], $4)) } + | LPAREN core_type_comma_list RPAREN SHARP class_longident opt_present + { mktyp(Ptyp_class($5, List.rev $2, $6)) } + | LBRACKET tag_field RBRACKET + { mktyp(Ptyp_variant([$2], true, None)) } +/* PR#3835: this is not LR(1), would need lookahead=2 + | LBRACKET simple_core_type2 RBRACKET + { mktyp(Ptyp_variant([$2], true, None)) } +*/ + | LBRACKET BAR row_field_list RBRACKET + { mktyp(Ptyp_variant(List.rev $3, true, None)) } + | LBRACKET row_field BAR row_field_list RBRACKET + { mktyp(Ptyp_variant($2 :: List.rev $4, true, None)) } + | LBRACKETGREATER opt_bar row_field_list RBRACKET + { mktyp(Ptyp_variant(List.rev $3, false, None)) } + | LBRACKETGREATER RBRACKET + { mktyp(Ptyp_variant([], false, None)) } + | LBRACKETLESS opt_bar row_field_list RBRACKET + { mktyp(Ptyp_variant(List.rev $3, true, Some [])) } + | LBRACKETLESS opt_bar row_field_list GREATER name_tag_list RBRACKET + { mktyp(Ptyp_variant(List.rev $3, true, Some (List.rev $5))) } +; +row_field_list: + row_field { [$1] } + | row_field_list BAR row_field { $3 :: $1 } +; +row_field: + tag_field { $1 } + | simple_core_type2 { Rinherit $1 } +; +tag_field: + name_tag OF opt_ampersand amper_type_list + { Rtag ($1, $3, List.rev $4) } + | name_tag + { Rtag ($1, true, []) } +; +opt_ampersand: + AMPERSAND { true } + | /* empty */ { false } +; +amper_type_list: + core_type { [$1] } + | amper_type_list AMPERSAND core_type { $3 :: $1 } +; +opt_present: + LBRACKETGREATER name_tag_list RBRACKET { List.rev $2 } + | /* empty */ { [] } +; +name_tag_list: + name_tag { [$1] } + | name_tag_list name_tag { $2 :: $1 } +; +simple_core_type_or_tuple: + simple_core_type { $1 } + | simple_core_type STAR core_type_list + { mktyp(Ptyp_tuple($1 :: List.rev $3)) } +; +core_type_comma_list: + core_type { [$1] } + | core_type_comma_list COMMA core_type { $3 :: $1 } +; +core_type_list: + simple_core_type { [$1] } + | core_type_list STAR simple_core_type { $3 :: $1 } +; +meth_list: + field SEMI meth_list { $1 :: $3 } + | field opt_semi { [$1] } + | DOTDOT { [mkfield Pfield_var] } +; +field: + label COLON poly_type { mkfield(Pfield($1, $3)) } +; +label: + LIDENT { $1 } +; + +/* Constants */ + +constant: + INT { Const_int $1 } + | CHAR { Const_char $1 } + | STRING { Const_string $1 } + | FLOAT { Const_float $1 } + | INT32 { Const_int32 $1 } + | INT64 { Const_int64 $1 } + | NATIVEINT { Const_nativeint $1 } +; +signed_constant: + constant { $1 } + | MINUS INT { Const_int(- $2) } + | MINUS FLOAT { Const_float("-" ^ $2) } + | MINUS INT32 { Const_int32(Int32.neg $2) } + | MINUS INT64 { Const_int64(Int64.neg $2) } + | MINUS NATIVEINT { Const_nativeint(Nativeint.neg $2) } +; +/* Identifiers and long identifiers */ + +ident: + UIDENT { $1 } + | LIDENT { $1 } +; +val_ident: + LIDENT { $1 } + | LPAREN operator RPAREN { $2 } +; +val_ident_colon: + LIDENT COLON { $1 } + | LPAREN operator RPAREN COLON { $2 } + | LABEL { $1 } +; +operator: + PREFIXOP { $1 } + | INFIXOP0 { $1 } + | INFIXOP1 { $1 } + | INFIXOP2 { $1 } + | INFIXOP3 { $1 } + | INFIXOP4 { $1 } + | PLUS { "+" } + | MINUS { "-" } + | MINUSDOT { "-." } + | STAR { "*" } + | EQUAL { "=" } + | LESS { "<" } + | GREATER { ">" } + | OR { "or" } + | BARBAR { "||" } + | AMPERSAND { "&" } + | AMPERAMPER { "&&" } + | COLONEQUAL { ":=" } +; +constr_ident: + UIDENT { $1 } +/* | LBRACKET RBRACKET { "[]" } */ + | LPAREN RPAREN { "()" } + | COLONCOLON { "::" } +/* | LPAREN COLONCOLON RPAREN { "::" } */ + | FALSE { "false" } + | TRUE { "true" } +; + +val_longident: + val_ident { Lident $1 } + | mod_longident DOT val_ident { Ldot($1, $3) } +; +constr_longident: + mod_longident %prec below_DOT { $1 } + | LBRACKET RBRACKET { Lident "[]" } + | LPAREN RPAREN { Lident "()" } + | FALSE { Lident "false" } + | TRUE { Lident "true" } +; +label_longident: + LIDENT { Lident $1 } + | mod_longident DOT LIDENT { Ldot($1, $3) } +; +type_longident: + LIDENT { Lident $1 } + | mod_ext_longident DOT LIDENT { Ldot($1, $3) } +; +mod_longident: + UIDENT { Lident $1 } + | mod_longident DOT UIDENT { Ldot($1, $3) } +; +mod_ext_longident: + UIDENT { Lident $1 } + | mod_ext_longident DOT UIDENT { Ldot($1, $3) } + | mod_ext_longident LPAREN mod_ext_longident RPAREN { Lapply($1, $3) } +; +mty_longident: + ident { Lident $1 } + | mod_ext_longident DOT ident { Ldot($1, $3) } +; +clty_longident: + LIDENT { Lident $1 } + | mod_ext_longident DOT LIDENT { Ldot($1, $3) } +; +class_longident: + LIDENT { Lident $1 } + | mod_longident DOT LIDENT { Ldot($1, $3) } +; + +/* Toplevel directives */ + +toplevel_directive: + SHARP ident { Ptop_dir($2, Pdir_none) } + | SHARP ident STRING { Ptop_dir($2, Pdir_string $3) } + | SHARP ident INT { Ptop_dir($2, Pdir_int $3) } + | SHARP ident val_longident { Ptop_dir($2, Pdir_ident $3) } + | SHARP ident FALSE { Ptop_dir($2, Pdir_bool false) } + | SHARP ident TRUE { Ptop_dir($2, Pdir_bool true) } +; + +/* Miscellaneous */ + +name_tag: + BACKQUOTE ident { $2 } +; +rec_flag: + /* empty */ { Nonrecursive } + | REC { Recursive } +; +direction_flag: + TO { Upto } + | DOWNTO { Downto } +; +private_flag: + /* empty */ { Public } + | PRIVATE { Private } +; +mutable_flag: + /* empty */ { Immutable } + | MUTABLE { Mutable } +; +virtual_flag: + /* empty */ { Concrete } + | VIRTUAL { Virtual } +; +opt_bar: + /* empty */ { () } + | BAR { () } +; +opt_semi: + | /* empty */ { () } + | SEMI { () } +; +subtractive: + | MINUS { "-" } + | MINUSDOT { "-." } +; +%% diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/parsetree.mli b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/parsetree.mli new file mode 100644 index 000000000000..66ec14d0b70a --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/parsetree.mli @@ -0,0 +1,275 @@ +(***********************************************************************) +(* *) +(* Objective Caml *) +(* *) +(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) +(* *) +(* Copyright 1996 Institut National de Recherche en Informatique et *) +(* en Automatique. All rights reserved. This file is distributed *) +(* under the terms of the Q Public License version 1.0. *) +(* *) +(***********************************************************************) + +(* $Id: parsetree.mli,v 1.1 2007/09/24 23:04:50 so294 Exp $ *) + +(* Abstract syntax tree produced by parsing *) + +open Asttypes + +(* Type expressions for the core language *) + +type core_type = + { ptyp_desc: core_type_desc; + ptyp_loc: Location.t } + +and core_type_desc = + Ptyp_any + | Ptyp_var of string + | Ptyp_arrow of label * core_type * core_type + | Ptyp_tuple of core_type list + | Ptyp_constr of Longident.t * core_type list + | Ptyp_object of core_field_type list + | Ptyp_class of Longident.t * core_type list * label list + | Ptyp_alias of core_type * string + | Ptyp_variant of row_field list * bool * label list option + | Ptyp_poly of string list * core_type + +and core_field_type = + { pfield_desc: core_field_desc; + pfield_loc: Location.t } + +and core_field_desc = + Pfield of string * core_type + | Pfield_var + +and row_field = + Rtag of label * bool * core_type list + | Rinherit of core_type + +(* XXX Type expressions for the class language *) + +type 'a class_infos = + { pci_virt: virtual_flag; + pci_params: string list * Location.t; + pci_name: string; + pci_expr: 'a; + pci_variance: (bool * bool) list; + pci_loc: Location.t } + +(* Value expressions for the core language *) + +type pattern = + { ppat_desc: pattern_desc; + ppat_loc: Location.t } + +and pattern_desc = + Ppat_any + | Ppat_var of string + | Ppat_alias of pattern * string + | Ppat_constant of constant + | Ppat_tuple of pattern list + | Ppat_construct of Longident.t * pattern option * bool + | Ppat_variant of label * pattern option + | Ppat_record of (Longident.t * pattern) list + | Ppat_array of pattern list + | Ppat_or of pattern * pattern + | Ppat_constraint of pattern * core_type + | Ppat_type of Longident.t + +type expression = + { pexp_desc: expression_desc; + pexp_loc: Location.t } + +and expression_desc = + Pexp_ident of Longident.t + | Pexp_constant of constant + | Pexp_let of rec_flag * (pattern * expression) list * expression + | Pexp_function of label * expression option * (pattern * expression) list + | Pexp_apply of expression * (label * expression) list + | Pexp_match of expression * (pattern * expression) list + | Pexp_try of expression * (pattern * expression) list + | Pexp_tuple of expression list + | Pexp_construct of Longident.t * expression option * bool + | Pexp_variant of label * expression option + | Pexp_record of (Longident.t * expression) list * expression option + | Pexp_field of expression * Longident.t + | Pexp_setfield of expression * Longident.t * expression + | Pexp_array of expression list + | Pexp_ifthenelse of expression * expression * expression option + | Pexp_sequence of expression * expression + | Pexp_while of expression * expression + | Pexp_for of string * expression * expression * direction_flag * expression + | Pexp_constraint of expression * core_type option * core_type option + | Pexp_when of expression * expression + | Pexp_send of expression * string + | Pexp_new of Longident.t + | Pexp_setinstvar of string * expression + | Pexp_override of (string * expression) list + | Pexp_letmodule of string * module_expr * expression + | Pexp_assert of expression + | Pexp_assertfalse + | Pexp_lazy of expression + | Pexp_poly of expression * core_type option + | Pexp_object of class_structure + +(* Value descriptions *) + +and value_description = + { pval_type: core_type; + pval_prim: string list } + +(* Type declarations *) + +and type_declaration = + { ptype_params: string list; + ptype_cstrs: (core_type * core_type * Location.t) list; + ptype_kind: type_kind; + ptype_manifest: core_type option; + ptype_variance: (bool * bool) list; + ptype_loc: Location.t } + +and type_kind = + Ptype_abstract + | Ptype_variant of (string * core_type list * Location.t) list * private_flag + | Ptype_record of + (string * mutable_flag * core_type * Location.t) list * private_flag + | Ptype_private + +and exception_declaration = core_type list + +(* Type expressions for the class language *) + +and class_type = + { pcty_desc: class_type_desc; + pcty_loc: Location.t } + +and class_type_desc = + Pcty_constr of Longident.t * core_type list + | Pcty_signature of class_signature + | Pcty_fun of label * core_type * class_type + +and class_signature = core_type * class_type_field list + +and class_type_field = + Pctf_inher of class_type + | Pctf_val of (string * mutable_flag * virtual_flag * core_type * Location.t) + | Pctf_virt of (string * private_flag * core_type * Location.t) + | Pctf_meth of (string * private_flag * core_type * Location.t) + | Pctf_cstr of (core_type * core_type * Location.t) + +and class_description = class_type class_infos + +and class_type_declaration = class_type class_infos + +(* Value expressions for the class language *) + +and class_expr = + { pcl_desc: class_expr_desc; + pcl_loc: Location.t } + +and class_expr_desc = + Pcl_constr of Longident.t * core_type list + | Pcl_structure of class_structure + | Pcl_fun of label * expression option * pattern * class_expr + | Pcl_apply of class_expr * (label * expression) list + | Pcl_let of rec_flag * (pattern * expression) list * class_expr + | Pcl_constraint of class_expr * class_type + +and class_structure = pattern * class_field list + +and class_field = + Pcf_inher of class_expr * string option + | Pcf_valvirt of (string * mutable_flag * core_type * Location.t) + | Pcf_val of (string * mutable_flag * expression * Location.t) + | Pcf_virt of (string * private_flag * core_type * Location.t) + | Pcf_meth of (string * private_flag * expression * Location.t) + | Pcf_cstr of (core_type * core_type * Location.t) + | Pcf_let of rec_flag * (pattern * expression) list * Location.t + | Pcf_init of expression + +and class_declaration = class_expr class_infos + +(* Type expressions for the module language *) + +and module_type = + { pmty_desc: module_type_desc; + pmty_loc: Location.t } + +and module_type_desc = + Pmty_ident of Longident.t + | Pmty_signature of signature + | Pmty_functor of string * module_type * module_type + | Pmty_with of module_type * (Longident.t * with_constraint) list + +and signature = signature_item list + +and signature_item = + { psig_desc: signature_item_desc; + psig_loc: Location.t } + +and signature_item_desc = + Psig_value of string * value_description + | Psig_type of (string * type_declaration) list + | Psig_exception of string * exception_declaration + | Psig_module of string * module_type + | Psig_recmodule of (string * module_type) list + | Psig_modtype of string * modtype_declaration + | Psig_open of Longident.t + | Psig_include of module_type + | Psig_class of class_description list + | Psig_class_type of class_type_declaration list + +and modtype_declaration = + Pmodtype_abstract + | Pmodtype_manifest of module_type + +and with_constraint = + Pwith_type of type_declaration + | Pwith_module of Longident.t + +(* Value expressions for the module language *) + +and module_expr = + { pmod_desc: module_expr_desc; + pmod_loc: Location.t } + +and module_expr_desc = + Pmod_ident of Longident.t + | Pmod_structure of structure + | Pmod_functor of string * module_type * module_expr + | Pmod_apply of module_expr * module_expr + | Pmod_constraint of module_expr * module_type + +and structure = structure_item list + +and structure_item = + { pstr_desc: structure_item_desc; + pstr_loc: Location.t } + +and structure_item_desc = + Pstr_eval of expression + | Pstr_value of rec_flag * (pattern * expression) list + | Pstr_primitive of string * value_description + | Pstr_type of (string * type_declaration) list + | Pstr_exception of string * exception_declaration + | Pstr_exn_rebind of string * Longident.t + | Pstr_module of string * module_expr + | Pstr_recmodule of (string * module_type * module_expr) list + | Pstr_modtype of string * module_type + | Pstr_open of Longident.t + | Pstr_class of class_declaration list + | Pstr_class_type of class_type_declaration list + | Pstr_include of module_expr + +(* Toplevel phrases *) + +type toplevel_phrase = + Ptop_def of structure + | Ptop_dir of string * directive_argument + +and directive_argument = + Pdir_none + | Pdir_string of string + | Pdir_int of int + | Pdir_ident of Longident.t + | Pdir_bool of bool diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/printast.ml b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/printast.ml new file mode 100644 index 000000000000..724b87ae06c8 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/printast.ml @@ -0,0 +1,959 @@ +(***********************************************************************) +(* *) +(* Objective Caml *) +(* *) +(* Damien Doligez, projet Para, INRIA Rocquencourt *) +(* *) +(* Copyright 1999 Institut National de Recherche en Informatique et *) +(* en Automatique. All rights reserved. This file is distributed *) +(* under the terms of the Q Public License version 1.0. *) +(* *) +(***********************************************************************) + +(* $Id: printast.ml,v 1.4 2008/02/07 17:09:50 so294 Exp $ *) + +open Asttypes;; +open Format;; +open Lexing;; +open Location;; +open Parsetree;; + +let fmt_constr f x = + match x with + | "Invalid_argument" -> fprintf f "C_invalidargument" + | "Not_found" -> fprintf f "C_notfound" + | "Assert_failure" -> fprintf f "C_assertfailure" + | "Match_failure" -> fprintf f "C_matchfailure" + | "Division_by_zero" -> fprintf f "C_div_by_0" + | "None" -> fprintf f "C_none" + | "Some" -> fprintf f "C_some" + | _ -> fprintf f "(C_name (CN_id \"%s\"))" x + +let fmt_position f l = () +(* + if l.pos_fname = "" && l.pos_lnum = 1 + then fprintf f "%d" l.pos_cnum + else if l.pos_lnum = -1 + then fprintf f "%s[%d]" l.pos_fname l.pos_cnum + else fprintf f "%s[%d,%d+%d]" l.pos_fname l.pos_lnum l.pos_bol + (l.pos_cnum - l.pos_bol) + *) +;; + +let fmt_location f loc = () + (* + fprintf f "(%a..%a)" fmt_position loc.loc_start fmt_position loc.loc_end; + if loc.loc_ghost then fprintf f " ghost"; + *) +;; + +let rec fmt_longident_aux f x = + match x with + | Longident.Lident (s) -> fprintf f "%s" s; + | Longident.Ldot (y, s) -> fprintf f "%a.%s" fmt_longident_aux y s; + | Longident.Lapply (y, z) -> + fprintf f "%a(%a)" fmt_longident_aux y fmt_longident_aux z; +;; + +let fmt_longident f x = fprintf f "\"%a\"" fmt_longident_aux x;; + +let fmt_constant f x = + match x with + | Const_int (i) -> + if i < 0 then + fprintf f "(CONST_int ($- %dw))" ~-i + else + fprintf f "(CONST_int %dw)" i; + | Const_char (c) -> fprintf f "(CONST_char %02x)" (Char.code c); + | Const_string (s) -> fprintf f "(CONST_string %S)" s; + | Const_float (s) -> fprintf f "(CONST_float %s)" s; + | Const_int32 (i) -> fprintf f "(CONST_int32 %ld)" i; + | Const_int64 (i) -> fprintf f "(CONST_int64 %Ld)" i; + | Const_nativeint (i) -> fprintf f "(CONST_nativeint %nd)" i; +;; + +let fmt_mutable_flag f x = + match x with + | Immutable -> fprintf f "Immutable"; + | Mutable -> fprintf f "Mutable"; +;; + +let fmt_virtual_flag f x = + match x with + | Virtual -> fprintf f "Virtual"; + | Concrete -> fprintf f "Concrete"; +;; + +let fmt_rec_flag f x = + match x with + | Nonrecursive -> fprintf f "Nonrec"; + | Recursive -> fprintf f "Rec"; + | Default -> fprintf f "Default"; +;; + +let fmt_direction_flag f x = + match x with + | Upto -> fprintf f "FD_upto"; + | Downto -> fprintf f "FD_downto"; +;; + +let fmt_private_flag f x = + match x with + | Public -> fprintf f "Public"; + | Private -> fprintf f "Private"; +;; + +let line i f s (*...*) = + fprintf f "%s" (String.make (2*i) ' '); + fprintf f s (*...*) +;; + +let list i f ppf l = + match l with + | [] -> line i ppf "[]\n"; + | h::t -> + line i ppf "(\n"; + List.iter (fun x -> f (i+1) ppf x; line (i+1) ppf "::\n") l; + line i ppf "[])\n"; +;; + +let option i f ppf x = + match x with + | None -> line i ppf "None\n"; + | Some x -> + line i ppf "Some\n"; + f (i+1) ppf x; +;; + +let longident i ppf li = line i ppf "%a\n" fmt_longident li;; +let string i ppf s = line i ppf "\"%s\"\n" s;; +let bool i ppf x = line i ppf "%s\n" (string_of_bool x);; +let label i ppf x = line i ppf "label=\"%s\"\n" x;; + +let rec core_type i ppf x = + let i = i+1 in + match x.ptyp_desc with + | Ptyp_any -> line i ppf "TE_any\n"; + | Ptyp_var (s) -> line i ppf "(TE_var (TV_ident \"%s\"))\n" s; + | Ptyp_arrow (l, ct1, ct2) -> + line i ppf "(TE_arrow\n"; + core_type i ppf ct1; + core_type i ppf ct2; + line i ppf ")\n"; + | Ptyp_tuple l -> + line i ppf "(TE_tuple [\n"; + list i core_type ppf l; + line i ppf "])\n"; + | Ptyp_constr (li, l) -> + line i ppf "(TE_constr \n"; + list (i+1) core_type ppf l; + line (i+1) ppf "(TC_name (TCN_id %a))\n" fmt_longident li; + line i ppf ")\n"; + | Ptyp_variant (l, closed, low) -> + (* + line i ppf "Ptyp_variant closed=%s\n" (string_of_bool closed); + list i label_x_bool_x_core_type_list ppf l; + option i (fun i -> list i string) ppf low + *) + assert false; + | Ptyp_object (l) -> + (* + line i ppf "Ptyp_object\n"; + list i core_field_type ppf l; + *) + assert false; + | Ptyp_class (li, l, low) -> + (* + line i ppf "Ptyp_class %a\n" fmt_longident li; + list i core_type ppf l; + list i string ppf low + *) + assert false; + | Ptyp_alias (ct, s) -> + (* + line i ppf "Ptyp_alias \"%s\"\n" s; + core_type i ppf ct; + *) + assert false; + | Ptyp_poly (sl, ct) -> + (match sl with + [] -> core_type i ppf ct + | _ -> assert false); + (*line i ppf "Ptyp_poly%a\n" + (fun ppf -> List.iter (fun x -> fprintf ppf " '%s" x)) sl; + core_type i ppf ct; + *) + + (* +and core_field_type i ppf x = + line i ppf "core_field_type %a\n" fmt_location x.pfield_loc; + let i = i+1 in + match x.pfield_desc with + | Pfield (s, ct) -> + line i ppf "Pfield \"%s\"\n" s; + core_type i ppf ct; + | Pfield_var -> line i ppf "Pfield_var\n"; + *) + +and pattern i ppf x = + let i = i+1 in + match x.ppat_desc with + | Ppat_any -> line i ppf "P_any\n"; + | Ppat_var (s) -> line i ppf "(P_var (VN_id \"%s\"))\n" s; + | Ppat_alias (p, s) -> + line i ppf "(P_alias\n"; + pattern i ppf p; + line (i + 1) ppf "(VN_id \"%s\"))\n" s; + | Ppat_constant (c) -> line i ppf "(P_constant %a)\n" fmt_constant c; + | Ppat_tuple (l) -> + line i ppf "(P_tuple\n"; + list (i+1) pattern ppf l; + line i ppf ")\n"; + | Ppat_construct (li, po, b) -> + (match (li,po) with + (Longident.Lident "false", None) -> + line i ppf "(P_constant CONST_false)\n" + | (Longident.Lident "true", None) -> + line i ppf "(P_constant CONST_true)\n" + | (Longident.Lident "[]", None) -> + line i ppf "(P_constant CONST_nil)\n" + | (Longident.Lident "()", None) -> + line i ppf "(P_constant CONST_unit)\n" + | (Longident.Lident c, None) -> + line i ppf "(P_constant (CONST_constr %a))\n" fmt_constr c + | (Longident.Lident "::", Some {ppat_desc=Ppat_tuple [e1; e2]}) -> + line i ppf "(P_cons\n"; + pattern (i+1) ppf e1; + pattern (i+1) ppf e2; + line i ppf ")\n"; + | (Longident.Lident c, Some {ppat_desc=Ppat_any}) -> + line i ppf "(P_construct_any %a)\n" fmt_constr c; + | (Longident.Lident c, Some arg) -> + line i ppf "(P_construct %a\n" fmt_constr c; + (match arg.ppat_desc with + Ppat_tuple exps -> list (i + 1) pattern ppf exps + | _ -> list (i + 1) pattern ppf [arg]); + line i ppf ")\n"; + | _ -> assert false) + | Ppat_variant (l, po) -> + (* + line i ppf "Ppat_variant \"%s\"\n" l; + option i pattern ppf po; + *) + assert false; + | Ppat_record (l) -> + line i ppf "(P_record\n"; + list (i+1) longident_x_pattern ppf l; + line i ppf ")\n"; + | Ppat_array (l) -> + (* + line i ppf "Ppat_array\n"; + list i pattern ppf l; + *) + assert false; + | Ppat_or (p1, p2) -> + line i ppf "(P_or\n"; + pattern i ppf p1; + pattern i ppf p2; + line i ppf ")\n"; + | Ppat_constraint (p, ct) -> + line i ppf "(P_typed\n"; + pattern i ppf p; + core_type i ppf ct; + line i ppf ")\n"; + | Ppat_type li -> + (* + line i ppf "PPat_type"; + longident i ppf li + *) + assert false + +and expression i ppf x = + let i = i+1 in + match x.pexp_desc with + | Pexp_ident (li) -> line i ppf "(Expr_ident (VN_id %a))\n" fmt_longident li; + | Pexp_constant (c) -> line i ppf "(Expr_constant %a)\n" fmt_constant c; + | Pexp_let (rf, l, e) -> + (match rf with + Nonrecursive -> + (match l with + [x] -> + line i ppf "(Expr_let\n"; + line i ppf "(LB_simple\n"; + pattern_x_expression_def i ppf x; + line i ppf ")\n"; + expression i ppf e; + line i ppf ")\n"; + | _ -> assert false) + | Recursive -> + line i ppf "(Expr_letrec (LRBs_inj\n"; + list (i+1) pattern_x_expression_rec_def ppf l; + line i ppf ")\n"; + expression i ppf e; + line i ppf ")\n"; + | Default -> assert false) + | Pexp_function (p, eo, l) -> + (match (p, eo) with + ("", None) -> + line i ppf "(Expr_function (PM_pm\n"; + list i pattern_x_expression_case ppf l; + line i ppf "))\n"; + | _ -> assert false) + | Pexp_apply ({pexp_desc=Pexp_ident (Longident.Lident "&&")}, + ["",e1; "",e2]) -> + line i ppf "(Expr_and\n"; + expression (i+1) ppf e1; + expression (i+1) ppf e2; + line i ppf ")\n"; + | Pexp_apply ({pexp_desc=Pexp_ident (Longident.Lident "||")}, + ["",e1; "",e2]) -> + line i ppf "(Expr_or\n"; + expression (i+1) ppf e1; + expression (i+1) ppf e2; + line i ppf ")\n"; + | Pexp_apply (e, l) -> + (match l with + [] -> assert false; + | [l_x_e] -> + line i ppf "(Expr_apply\n"; + expression i ppf e; + label_x_expression i ppf l_x_e; + line i ppf ")\n"; + | (h::t) -> + expression i ppf + {pexp_desc=Pexp_apply ({pexp_desc=Pexp_apply (e, [h]); + pexp_loc = none}, + t); + pexp_loc= none}); + | Pexp_match (e, l) -> + line i ppf "(Expr_match\n"; + expression i ppf e; + line (i+1) ppf "(PM_pm\n"; + list (i+2) pattern_x_expression_case ppf l; + line i ppf "))\n"; + | Pexp_try (e, l) -> + line i ppf "(Expr_try\n"; + expression i ppf e; + line (i+1) ppf "(PM_pm\n"; + list (i+2) pattern_x_expression_case ppf l; + line i ppf "))\n"; + | Pexp_tuple (l) -> + line i ppf "(Expr_tuple\n"; + list i expression ppf l; + line i ppf ")\n"; + | Pexp_construct (li, eo, b) -> + (match (li,eo) with + (Longident.Lident "false", None) -> + line i ppf "(Expr_constant CONST_false)\n" + | (Longident.Lident "true", None) -> + line i ppf "(Expr_constant CONST_true)\n" + | (Longident.Lident "[]", None) -> + line i ppf "(Expr_constant CONST_nil)\n" + | (Longident.Lident "()", None) -> + line i ppf "(Expr_constant CONST_unit)\n" + | (Longident.Lident c, None) -> + line i ppf "(Expr_constant (CONST_constr %a))\n" fmt_constr c + | (Longident.Lident "::", Some {pexp_desc=Pexp_tuple [e1; e2]}) -> + line i ppf "(Expr_cons\n"; + expression (i+1) ppf e1; + expression (i+1) ppf e2; + line i ppf ")\n"; + | (Longident.Lident c, Some arg) -> + line i ppf "(Expr_construct %a" fmt_constr c; + (match arg.pexp_desc with + Pexp_tuple exps -> list (i + 1) expression ppf exps + | _ -> list (i + 1) expression ppf [arg]); + line i ppf ")\n"; + | _ -> assert false) + | Pexp_variant (l, eo) -> + (* + line i ppf "Pexp_variant \"%s\"\n" l; + option i expression ppf eo; + *) + assert false; + | Pexp_record (l, eo) -> + (match eo with + Some e -> + line i ppf "(Expr_override\n"; + expression i ppf e; + list (i+1) longident_x_expression ppf l; + line i ppf ")\n"; + | None -> + line i ppf "(Expr_record\n"; + list (i+1) longident_x_expression ppf l; + line i ppf ")\n";) + | Pexp_field (e, li) -> + line i ppf "(Expr_field\n"; + expression i ppf e; + line (i+1) ppf "(F_name (FN_id %a))\n" fmt_longident li; + line i ppf ")\n"; + | Pexp_setfield (e1, li, e2) -> + (* + line i ppf "Pexp_setfield\n"; + expression i ppf e1; + longident i ppf li; + expression i ppf e2; + *) + assert false; + | Pexp_array (l) -> + (* + line i ppf "Pexp_array\n"; + list i expression ppf l; + *) + assert false; + | Pexp_ifthenelse (e1, e2, eo) -> + line i ppf "(Expr_ifthenelse\n"; + expression i ppf e1; + expression i ppf e2; + (match eo with + None -> line i ppf "(Expr_constant CONST_unit)\n"; + | Some e -> expression i ppf e); + line i ppf ")\n"; + | Pexp_sequence (e1, e2) -> + line i ppf "(Expr_sequence\n"; + expression i ppf e1; + expression i ppf e2; + line i ppf ")\n"; + | Pexp_while (e1, e2) -> + line i ppf "(Expr_while\n"; + expression i ppf e1; + expression i ppf e2; + line i ppf ")\n"; + | Pexp_for (s, e1, e2, df, e3) -> + line i ppf "(Expr_for (VN_id \"%s\")\n" s; + expression i ppf e1; + line i ppf "%a\n" fmt_direction_flag df; + expression i ppf e2; + expression i ppf e3; + line i ppf ")\n"; + | Pexp_constraint (e, cto1, cto2) -> + line i ppf "(Expr_typed\n"; + expression i ppf e; + (match (cto1, cto2) with + (Some t, None) -> core_type i ppf t + | _ -> assert false); + line i ppf ")\n"; + | Pexp_when (e1, e2) -> + (* + line i ppf "Pexp_when\n"; + expression i ppf e1; + expression i ppf e2; + *) + assert false; + | Pexp_send (e, s) -> + (* + line i ppf "Pexp_send \"%s\"\n" s; + expression i ppf e; + *) + assert false; + | Pexp_new (li) -> (*line i ppf "Pexp_new %a\n" fmt_longident li;*) + assert false; + | Pexp_setinstvar (s, e) -> + (* + line i ppf "Pexp_setinstvar \"%s\"\n" s; + expression i ppf e; + *) + assert false; + | Pexp_override (l) -> + (* + line i ppf "Pexp_override\n"; + list i string_x_expression ppf l; + *) + assert false; + | Pexp_letmodule (s, me, e) -> + (* + line i ppf "Pexp_letmodule \"%s\"\n" s; + module_expr i ppf me; + expression i ppf e; + *) + assert false; + | Pexp_assert (e) -> + line i ppf "(Expr_assert"; + expression i ppf e; + line i ppf ")\n" + | Pexp_assertfalse -> + line i ppf "(Expr_assert (Expr_constant CONST_false))\n"; + | Pexp_lazy (e) -> + (* + line i ppf "Pexp_lazy"; + expression i ppf e; + *) + assert false + | Pexp_poly (e, cto) -> + (* + line i ppf "Pexp_poly\n"; + expression i ppf e; + option i core_type ppf cto; + *) + assert false; + | Pexp_object s -> + (* + line i ppf "Pexp_object"; + class_structure i ppf s + *) + assert false; + +and value_description i ppf x = + line i ppf "value_description\n"; + core_type (i+1) ppf x.pval_type; + list (i+1) string ppf x.pval_prim; + +and type_declaration i ppf x = + assert (x.ptype_cstrs = []); + match x.ptype_manifest with + None -> + line i ppf "(TI_def\n"; + type_kind (i+1) ppf x.ptype_kind; + line i ppf ")\n"; + | _ -> assert false + +and type_kind i ppf x = + match x with + | Ptype_abstract -> + (* + line i ppf "Ptype_abstract\n" + *) + assert false; + | Ptype_variant (l, priv) -> + line i ppf "(TR_variant\n"; + list (i+1) string_x_core_type_list_x_location ppf l; + line i ppf ")\n"; + | Ptype_record (l, priv) -> + line i ppf "Ptype_record %a\n" fmt_private_flag priv; + list (i+1) string_x_mutable_flag_x_core_type_x_location ppf l; + | Ptype_private -> + (* + line i ppf "Ptype_private\n" + *) + assert false; + +and exception_declaration i ppf x = list i core_type ppf x + +and class_type i ppf x = + line i ppf "class_type %a\n" fmt_location x.pcty_loc; + let i = i+1 in + match x.pcty_desc with + | Pcty_constr (li, l) -> + line i ppf "Pcty_constr %a\n" fmt_longident li; + list i core_type ppf l; + | Pcty_signature (cs) -> + line i ppf "Pcty_signature\n"; + class_signature i ppf cs; + | Pcty_fun (l, co, cl) -> + line i ppf "Pcty_fun \"%s\"\n" l; + core_type i ppf co; + class_type i ppf cl; + +and class_signature i ppf (ct, l) = + line i ppf "class_signature\n"; + core_type (i+1) ppf ct; + list (i+1) class_type_field ppf l; + +and class_type_field i ppf x = + match x with + | Pctf_inher (ct) -> + line i ppf "Pctf_inher\n"; + class_type i ppf ct; + | Pctf_val (s, mf, vf, ct, loc) -> + line i ppf + "Pctf_val \"%s\" %a %a %a\n" s + fmt_mutable_flag mf fmt_virtual_flag vf fmt_location loc; + core_type (i+1) ppf ct; + | Pctf_virt (s, pf, ct, loc) -> + line i ppf + "Pctf_virt \"%s\" %a %a\n" s fmt_private_flag pf fmt_location loc; + core_type (i+1) ppf ct; + | Pctf_meth (s, pf, ct, loc) -> + line i ppf + "Pctf_meth \"%s\" %a %a\n" s fmt_private_flag pf fmt_location loc; + core_type (i+1) ppf ct; + | Pctf_cstr (ct1, ct2, loc) -> + line i ppf "Pctf_cstr %a\n" fmt_location loc; + core_type i ppf ct1; + core_type i ppf ct2; + +and class_description i ppf x = + line i ppf "class_description %a\n" fmt_location x.pci_loc; + let i = i+1 in + line i ppf "pci_virt = %a\n" fmt_virtual_flag x.pci_virt; + line i ppf "pci_params =\n"; + string_list_x_location (i+1) ppf x.pci_params; + line i ppf "pci_name = \"%s\"\n" x.pci_name; + line i ppf "pci_expr =\n"; + class_type (i+1) ppf x.pci_expr; + +and class_type_declaration i ppf x = + line i ppf "class_type_declaration %a\n" fmt_location x.pci_loc; + let i = i+1 in + line i ppf "pci_virt = %a\n" fmt_virtual_flag x.pci_virt; + line i ppf "pci_params =\n"; + string_list_x_location (i+1) ppf x.pci_params; + line i ppf "pci_name = \"%s\"\n" x.pci_name; + line i ppf "pci_expr =\n"; + class_type (i+1) ppf x.pci_expr; + +and class_expr i ppf x = + line i ppf "class_expr %a\n" fmt_location x.pcl_loc; + let i = i+1 in + match x.pcl_desc with + | Pcl_constr (li, l) -> + line i ppf "Pcl_constr %a\n" fmt_longident li; + list i core_type ppf l; + | Pcl_structure (cs) -> + line i ppf "Pcl_structure\n"; + class_structure i ppf cs; + | Pcl_fun (l, eo, p, e) -> + line i ppf "Pcl_fun\n"; + label i ppf l; + option i expression ppf eo; + pattern i ppf p; + class_expr i ppf e; + | Pcl_apply (ce, l) -> + line i ppf "Pcl_apply\n"; + class_expr i ppf ce; + list i label_x_expression ppf l; + | Pcl_let (rf, l, ce) -> + line i ppf "Pcl_let %a\n" fmt_rec_flag rf; + list i pattern_x_expression_def ppf l; + class_expr i ppf ce; + | Pcl_constraint (ce, ct) -> + line i ppf "Pcl_constraint\n"; + class_expr i ppf ce; + class_type i ppf ct; + +and class_structure i ppf (p, l) = + line i ppf "class_structure\n"; + pattern (i+1) ppf p; + list (i+1) class_field ppf l; + +and class_field i ppf x = + match x with + | Pcf_inher (ce, so) -> + line i ppf "Pcf_inher\n"; + class_expr (i+1) ppf ce; + option (i+1) string ppf so; + | Pcf_valvirt (s, mf, ct, loc) -> + line i ppf + "Pcf_valvirt \"%s\" %a %a\n" s fmt_mutable_flag mf fmt_location loc; + core_type (i+1) ppf ct; + | Pcf_val (s, mf, e, loc) -> + line i ppf + "Pcf_val \"%s\" %a %a\n" s fmt_mutable_flag mf fmt_location loc; + expression (i+1) ppf e; + | Pcf_virt (s, pf, ct, loc) -> + line i ppf + "Pcf_virt \"%s\" %a %a\n" s fmt_private_flag pf fmt_location loc; + core_type (i+1) ppf ct; + | Pcf_meth (s, pf, e, loc) -> + line i ppf + "Pcf_meth \"%s\" %a %a\n" s fmt_private_flag pf fmt_location loc; + expression (i+1) ppf e; + | Pcf_cstr (ct1, ct2, loc) -> + line i ppf "Pcf_cstr %a\n" fmt_location loc; + core_type (i+1) ppf ct1; + core_type (i+1) ppf ct2; + | Pcf_let (rf, l, loc) -> + line i ppf "Pcf_let %a %a\n" fmt_rec_flag rf fmt_location loc; + list (i+1) pattern_x_expression_def ppf l; + | Pcf_init (e) -> + line i ppf "Pcf_init\n"; + expression (i+1) ppf e; + +and class_declaration i ppf x = + line i ppf "class_declaration %a\n" fmt_location x.pci_loc; + let i = i+1 in + line i ppf "pci_virt = %a\n" fmt_virtual_flag x.pci_virt; + line i ppf "pci_params =\n"; + string_list_x_location (i+1) ppf x.pci_params; + line i ppf "pci_name = \"%s\"\n" x.pci_name; + line i ppf "pci_expr =\n"; + class_expr (i+1) ppf x.pci_expr; + +and module_type i ppf x = + line i ppf "module_type %a\n" fmt_location x.pmty_loc; + let i = i+1 in + match x.pmty_desc with + | Pmty_ident (li) -> line i ppf "Pmty_ident %a\n" fmt_longident li; + | Pmty_signature (s) -> + line i ppf "Pmty_signature\n"; + signature i ppf s; + | Pmty_functor (s, mt1, mt2) -> + line i ppf "Pmty_functor \"%s\"\n" s; + module_type i ppf mt1; + module_type i ppf mt2; + | Pmty_with (mt, l) -> + line i ppf "Pmty_with\n"; + module_type i ppf mt; + list i longident_x_with_constraint ppf l; + +and signature i ppf x = list i signature_item ppf x + +and signature_item i ppf x = + line i ppf "signature_item %a\n" fmt_location x.psig_loc; + let i = i+1 in + match x.psig_desc with + | Psig_value (s, vd) -> + line i ppf "Psig_value \"%s\"\n" s; + value_description i ppf vd; + | Psig_type (l) -> + line i ppf "Psig_type\n"; + list i string_x_type_declaration ppf l; + | Psig_exception (s, ed) -> + line i ppf "Psig_exception \"%s\"\n" s; + exception_declaration i ppf ed; + | Psig_module (s, mt) -> + line i ppf "Psig_module \"%s\"\n" s; + module_type i ppf mt; + | Psig_recmodule decls -> + line i ppf "Psig_recmodule\n"; + list i string_x_module_type ppf decls; + | Psig_modtype (s, md) -> + line i ppf "Psig_modtype \"%s\"\n" s; + modtype_declaration i ppf md; + | Psig_open (li) -> line i ppf "Psig_open %a\n" fmt_longident li; + | Psig_include (mt) -> + line i ppf "Psig_include\n"; + module_type i ppf mt; + | Psig_class (l) -> + line i ppf "Psig_class\n"; + list i class_description ppf l; + | Psig_class_type (l) -> + line i ppf "Psig_class_type\n"; + list i class_type_declaration ppf l; + +and modtype_declaration i ppf x = + match x with + | Pmodtype_abstract -> line i ppf "Pmodtype_abstract\n"; + | Pmodtype_manifest (mt) -> + line i ppf "Pmodtype_manifest\n"; + module_type (i+1) ppf mt; + +and with_constraint i ppf x = + match x with + | Pwith_type (td) -> + line i ppf "Pwith_type\n"; + type_declaration (i+1) ppf td; + | Pwith_module (li) -> line i ppf "Pwith_module %a\n" fmt_longident li; + +and module_expr i ppf x = + line i ppf "module_expr %a\n" fmt_location x.pmod_loc; + let i = i+1 in + match x.pmod_desc with + | Pmod_ident (li) -> line i ppf "Pmod_ident %a\n" fmt_longident li; + | Pmod_structure (s) -> + line i ppf "Pmod_structure\n"; + structure i ppf s; + | Pmod_functor (s, mt, me) -> + line i ppf "Pmod_functor \"%s\"\n" s; + module_type i ppf mt; + module_expr i ppf me; + | Pmod_apply (me1, me2) -> + line i ppf "Pmod_apply\n"; + module_expr i ppf me1; + module_expr i ppf me2; + | Pmod_constraint (me, mt) -> + line i ppf "Pmod_constraint\n"; + module_expr i ppf me; + module_type i ppf mt; + +and structure i ppf x = list i structure_item ppf x + +and structure_item i ppf x = + let i = i+1 in + match x.pstr_desc with + | Pstr_eval (e) -> + expression i ppf e; + | Pstr_value (rf, l) -> + (match rf with + Nonrecursive -> + (match l with + [x] -> + line i ppf "(D_let\n"; + line (i+1) ppf "(LB_simple\n"; + pattern_x_expression_def i ppf x; + line i ppf "))\n"; + | _ -> assert false) + | Recursive -> + line i ppf "(D_letrec (LRBs_inj\n"; + list (i+1) pattern_x_expression_rec_def ppf l; + line i ppf "))\n"; + | Default -> assert false) + | Pstr_primitive (s, vd) -> + (* + line i ppf "Pstr_primitive \"%s\"\n" s; + value_description i ppf vd; + *) + assert false; + | Pstr_type (l) -> + line i ppf "(D_type (TDF_tdf\n"; + list i string_x_type_declaration ppf l; + line i ppf "))\n"; + | Pstr_exception (s, ed) -> + line i ppf "Pstr_exception \"%s\"\n" s; + exception_declaration i ppf ed; + | Pstr_exn_rebind (s, li) -> + (* + line i ppf "Pstr_exn_rebind \"%s\" %a\n" s fmt_longident li; + *) + assert false; + | Pstr_module (s, me) -> + (* + line i ppf "Pstr_module \"%s\"\n" s; + module_expr i ppf me; + *) + assert false; + | Pstr_recmodule bindings -> + (* + line i ppf "Pstr_recmodule\n"; + list i string_x_modtype_x_module ppf bindings; + *) + assert false; + | Pstr_modtype (s, mt) -> + (* + line i ppf "Pstr_modtype \"%s\"\n" s; + module_type i ppf mt; + *) + assert false; + | Pstr_open (li) -> (*line i ppf "Pstr_open %a\n" fmt_longident li;*) + assert false; + | Pstr_class (l) -> + (* + line i ppf "Pstr_class\n"; + list i class_declaration ppf l; + *) + assert false; + | Pstr_class_type (l) -> + (* + line i ppf "Pstr_class_type\n"; + list i class_type_declaration ppf l; + *) + assert false; + | Pstr_include me -> + (* + line i ppf "Pstr_include"; + module_expr i ppf me + *) + assert false; + +and tpo i ppf s = + line i ppf "(TP_var (TV_ident \"%s\"))" s; + +and string_x_type_declaration i ppf (s, td) = + line i ppf "(TD_td (TPS_nary\n"; + list i tpo ppf td.ptype_params; + line i ppf ")\n"; + line (i+1) ppf "(TCN_id \"%s\")\n" s; + type_declaration (i+1) ppf td; + line i ppf ")\n"; + +and string_x_module_type i ppf (s, mty) = + string i ppf s; + module_type (i+1) ppf mty; + +and string_x_modtype_x_module i ppf (s, mty, modl) = + string i ppf s; + module_type (i+1) ppf mty; + module_expr (i+1) ppf modl; + +and longident_x_with_constraint i ppf (li, wc) = + line i ppf "%a\n" fmt_longident li; + with_constraint (i+1) ppf wc; + +and core_type_x_core_type_x_location i ppf (ct1, ct2, l) = + line i ppf " %a\n" fmt_location l; + core_type (i+1) ppf ct1; + core_type (i+1) ppf ct2; + +and string_x_core_type_list_x_location i ppf (s, l, loc) = + match l with + [] -> + line i ppf "(CD_nullary (CN_id \"%s\"))\n" s; + | _ -> + line i ppf "(CD_nary (CN_id \"%s\")\n" s; + list (i+1) core_type ppf l; + line i ppf ")\n"; + +and string_x_mutable_flag_x_core_type_x_location i ppf (s, mf, ct, loc) = + line i ppf "\"%s\" %a %a\n" s fmt_mutable_flag mf fmt_location loc; + core_type (i+1) ppf ct; + +and string_list_x_location i ppf (l, loc) = + line i ppf " %a\n" fmt_location loc; + list (i+1) string ppf l; + +and longident_x_pattern i ppf (li, p) = + line i ppf "(F_name (FN_id %a), \n" fmt_longident li; + pattern i ppf p; + line i ppf ")"; + +and pattern_x_expression_case i ppf (p, e) = + line i ppf "(PE_inj \n"; + pattern (i+1) ppf p; + expression (i+1) ppf e; + line i ppf ")\n" + +and pattern_x_expression_def i ppf (p, e) = + pattern (i+1) ppf p; + expression (i+1) ppf e; + +and pattern_x_expression_rec_def i ppf (p, e) = + match (p.ppat_desc, e.pexp_desc) with + (Ppat_var v, Pexp_function ("", None, l)) -> + line i ppf "(LRB_simple\n"; + line (i+1) ppf "(VN_id \"%s\")\n" v; + line (i+1) ppf "(PM_pm\n"; + list (i+1) pattern_x_expression_case ppf l; + line (i+1) ppf ")\n"; + line i ppf ")\n"; + | _ -> assert false; + +and string_x_expression i ppf (s, e) = + line i ppf " \"%s\"\n" s; + expression (i+1) ppf e; + +and longident_x_expression i ppf (li, e) = + line i ppf "(F_name (FN_id %a), \n" fmt_longident li; + expression i ppf e; + line i ppf ")\n"; + +and label_x_expression i ppf (l,e) = + assert (l = ""); + expression (i+1) ppf e; + +and label_x_bool_x_core_type_list i ppf x = + match x with + Rtag (l, b, ctl) -> + line i ppf "Rtag \"%s\" %s\n" l (string_of_bool b); + list (i+1) core_type ppf ctl + | Rinherit (ct) -> + line i ppf "Rinherit\n"; + core_type (i+1) ppf ct +;; + +let rec toplevel_phrase i ppf x = + match x with + | Ptop_def (s) -> + line i ppf "Ptop_def\n"; + structure (i+1) ppf s; + | Ptop_dir (s, da) -> + line i ppf "Ptop_dir \"%s\"\n" s; + directive_argument i ppf da; + +and directive_argument i ppf x = + match x with + | Pdir_none -> line i ppf "Pdir_none\n" + | Pdir_string (s) -> line i ppf "Pdir_string \"%s\"\n" s; + | Pdir_int (i) -> line i ppf "Pdir_int %d\n" i; + | Pdir_ident (li) -> line i ppf "Pdir_ident %a\n" fmt_longident li; + | Pdir_bool (b) -> line i ppf "Pdir_bool %s\n" (string_of_bool b); +;; + +let interface ppf x = list 0 signature_item ppf x;; + +let implementation ppf x = +match x with + (* special handling for a single expression *) + [{pstr_desc=Pstr_eval e}] -> expression 0 ppf e + | _ -> list 0 structure_item ppf x;; + +let top_phrase ppf x = toplevel_phrase 0 ppf x;; diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/printast.mli b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/printast.mli new file mode 100644 index 000000000000..eac7571950fb --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/printast.mli @@ -0,0 +1,20 @@ +(***********************************************************************) +(* *) +(* Objective Caml *) +(* *) +(* Damien Doligez, projet Para, INRIA Rocquencourt *) +(* *) +(* Copyright 1999 Institut National de Recherche en Informatique et *) +(* en Automatique. All rights reserved. This file is distributed *) +(* under the terms of the Q Public License version 1.0. *) +(* *) +(***********************************************************************) + +(* $Id: printast.mli,v 1.1 2007/09/24 23:04:50 so294 Exp $ *) + +open Parsetree;; +open Format;; + +val interface : formatter -> signature_item list -> unit;; +val implementation : formatter -> structure_item list -> unit;; +val top_phrase : formatter -> toplevel_phrase -> unit;; diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/syntaxerr.ml b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/syntaxerr.ml new file mode 100644 index 000000000000..8bd44336d31a --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/syntaxerr.ml @@ -0,0 +1,41 @@ +(***********************************************************************) +(* *) +(* Objective Caml *) +(* *) +(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) +(* *) +(* Copyright 1997 Institut National de Recherche en Informatique et *) +(* en Automatique. All rights reserved. This file is distributed *) +(* under the terms of the Q Public License version 1.0. *) +(* *) +(***********************************************************************) + +(* $Id: syntaxerr.ml,v 1.1 2007/09/24 23:04:50 so294 Exp $ *) + +(* Auxiliary type for reporting syntax errors *) + +open Format + +type error = + Unclosed of Location.t * string * Location.t * string + | Other of Location.t + +exception Error of error +exception Escape_error + +let report_error ppf = function + | Unclosed(opening_loc, opening, closing_loc, closing) -> + if String.length !Location.input_name = 0 + && Location.highlight_locations ppf opening_loc closing_loc + then fprintf ppf "Syntax error: '%s' expected, \ + the highlighted '%s' might be unmatched" closing opening + else begin + fprintf ppf "%aSyntax error: '%s' expected@." + Location.print closing_loc closing; + fprintf ppf "%aThis '%s' might be unmatched" + Location.print opening_loc opening + end + | Other loc -> + fprintf ppf "%aSyntax error" Location.print loc + + diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/syntaxerr.mli b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/syntaxerr.mli new file mode 100644 index 000000000000..eded67b34605 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/syntaxerr.mli @@ -0,0 +1,26 @@ +(***********************************************************************) +(* *) +(* Objective Caml *) +(* *) +(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) +(* *) +(* Copyright 1997 Institut National de Recherche en Informatique et *) +(* en Automatique. All rights reserved. This file is distributed *) +(* under the terms of the Q Public License version 1.0. *) +(* *) +(***********************************************************************) + +(* $Id: syntaxerr.mli,v 1.1 2007/09/24 23:04:50 so294 Exp $ *) + +(* Auxiliary type for reporting syntax errors *) + +open Format + +type error = + Unclosed of Location.t * string * Location.t * string + | Other of Location.t + +exception Error of error +exception Escape_error + +val report_error: formatter -> error -> unit diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/.cvsignore b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/.cvsignore new file mode 100644 index 000000000000..780c0115b3da --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/.cvsignore @@ -0,0 +1,7 @@ +*.a +*.cma +*.cmi +*.cmo +*.cmx +*.cmxa +*.o diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/ccomp.ml b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/ccomp.ml new file mode 100644 index 000000000000..e1d0970db29e --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/ccomp.ml @@ -0,0 +1,112 @@ +(***********************************************************************) +(* *) +(* Objective Caml *) +(* *) +(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) +(* *) +(* Copyright 1996 Institut National de Recherche en Informatique et *) +(* en Automatique. All rights reserved. This file is distributed *) +(* under the terms of the Q Public License version 1.0. *) +(* *) +(***********************************************************************) + +(* $Id: ccomp.ml,v 1.1 2007/09/24 23:04:52 so294 Exp $ *) + +(* Compiling C files and building C libraries *) + +let command cmdline = + if !Clflags.verbose then begin + prerr_string "+ "; + prerr_string cmdline; + prerr_newline() + end; + Sys.command cmdline + +let run_command cmdline = ignore(command cmdline) + +(* Build @responsefile to work around Windows limitations on + command-line length *) +let build_diversion lst = + let (responsefile, oc) = Filename.open_temp_file "camlresp" "" in + List.iter + (fun f -> + if f <> "" then begin + output_string oc (Filename.quote f); output_char oc '\n' + end) + lst; + close_out oc; + at_exit (fun () -> Misc.remove_file responsefile); + "@" ^ responsefile + +let quote_files lst = + let s = + String.concat " " + (List.map (fun f -> if f = "" then f else Filename.quote f) lst) in + if Sys.os_type = "Win32" && String.length s >= 256 + then build_diversion lst + else s + +let compile_file name = + command + (Printf.sprintf + "%s -c %s %s %s %s" + !Clflags.c_compiler + (String.concat " " (List.rev !Clflags.ccopts)) + (quote_files + (List.rev_map (fun dir -> "-I" ^ dir) !Clflags.include_dirs)) + (Clflags.std_include_flag "-I") + (Filename.quote name)) + +let create_archive archive file_list = + Misc.remove_file archive; + let quoted_archive = Filename.quote archive in + match Config.ccomp_type with + "msvc" -> + command(Printf.sprintf "link /lib /nologo /out:%s %s" + quoted_archive (quote_files file_list)) + | _ -> + let r1 = + command(Printf.sprintf "ar rc %s %s" + quoted_archive (quote_files file_list)) in + if r1 <> 0 || String.length Config.ranlib = 0 + then r1 + else command(Config.ranlib ^ " " ^ quoted_archive) + +let expand_libname name = + if String.length name < 2 || String.sub name 0 2 <> "-l" + then name + else begin + let libname = + "lib" ^ String.sub name 2 (String.length name - 2) ^ Config.ext_lib in + try + Misc.find_in_path !Config.load_path libname + with Not_found -> + libname + end + +(* Handling of msvc's /link options *) + +let make_link_options optlist = + let rec split linkopts otheropts = function + | [] -> String.concat " " otheropts + ^ " /link /subsystem:console " + ^ String.concat " " linkopts + | opt :: rem -> + if String.length opt >= 5 && String.sub opt 0 5 = "/link" + then split (String.sub opt 5 (String.length opt - 5) :: linkopts) + otheropts rem + else split linkopts (opt :: otheropts) rem + in split [] [] optlist + +(* Handling of Visual C++ 2005 manifest files *) + +let merge_manifest exefile = + let manfile = exefile ^ ".manifest" in + if not (Sys.file_exists manfile) then 0 else begin + let retcode = + command (Printf.sprintf "mt -nologo -outputresource:%s -manifest %s" + (Filename.quote exefile) + (Filename.quote manfile)) in + Misc.remove_file manfile; + retcode + end diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/ccomp.mli b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/ccomp.mli new file mode 100644 index 000000000000..6c2756538e9b --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/ccomp.mli @@ -0,0 +1,24 @@ +(***********************************************************************) +(* *) +(* Objective Caml *) +(* *) +(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) +(* *) +(* Copyright 1996 Institut National de Recherche en Informatique et *) +(* en Automatique. All rights reserved. This file is distributed *) +(* under the terms of the Q Public License version 1.0. *) +(* *) +(***********************************************************************) + +(* $Id: ccomp.mli,v 1.1 2007/09/24 23:04:52 so294 Exp $ *) + +(* Compiling C files and building C libraries *) + +val command: string -> int +val run_command: string -> unit +val compile_file: string -> int +val create_archive: string -> string list -> int +val expand_libname: string -> string +val quote_files: string list -> string +val make_link_options: string list -> string +val merge_manifest: string -> int diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/clflags.ml b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/clflags.ml new file mode 100644 index 000000000000..eb927227b6cf --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/clflags.ml @@ -0,0 +1,90 @@ +(***********************************************************************) +(* *) +(* Objective Caml *) +(* *) +(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) +(* *) +(* Copyright 1996 Institut National de Recherche en Informatique et *) +(* en Automatique. All rights reserved. This file is distributed *) +(* under the terms of the Q Public License version 1.0. *) +(* *) +(***********************************************************************) + +(* $Id: clflags.ml,v 1.1 2007/09/24 23:04:52 so294 Exp $ *) + +(* Command-line parameters *) + +let objfiles = ref ([] : string list) (* .cmo and .cma files *) +and ccobjs = ref ([] : string list) (* .o, .a, .so and -cclib -lxxx *) +and dllibs = ref ([] : string list) (* .so and -dllib -lxxx *) + +let compile_only = ref false (* -c *) +and output_name = ref (None : string option) (* -o *) +and include_dirs = ref ([] : string list)(* -I *) +and no_std_include = ref false (* -nostdlib *) +and print_types = ref false (* -i *) +and make_archive = ref false (* -a *) +and debug = ref false (* -g *) +and fast = ref false (* -unsafe *) +and link_everything = ref false (* -linkall *) +and custom_runtime = ref false (* -custom *) +and output_c_object = ref false (* -output-obj *) +and ccopts = ref ([] : string list) (* -ccopt *) +and classic = ref false (* -nolabels *) +and nopervasives = ref false (* -nopervasives *) +and preprocessor = ref(None : string option) (* -pp *) +let save_types = ref false (* -stypes *) +and use_threads = ref false (* -thread *) +and use_vmthreads = ref false (* -vmthread *) +and noassert = ref false (* -noassert *) +and verbose = ref false (* -verbose *) +and noprompt = ref false (* -noprompt *) +and init_file = ref (None : string option) (* -init *) +and use_prims = ref "" (* -use-prims ... *) +and use_runtime = ref "" (* -use-runtime ... *) +and principal = ref false (* -principal *) +and recursive_types = ref false (* -rectypes *) +and make_runtime = ref false (* -make_runtime *) +and gprofile = ref false (* -p *) +and c_compiler = ref Config.bytecomp_c_compiler (* -cc *) +and c_linker = ref Config.bytecomp_c_linker (* -cc *) +and no_auto_link = ref false (* -noautolink *) +and dllpaths = ref ([] : string list) (* -dllpath *) +and make_package = ref false (* -pack *) +and for_package = ref (None: string option) (* -for-pack *) +let dump_parsetree = ref false (* -dparsetree *) +and dump_rawlambda = ref false (* -drawlambda *) +and dump_lambda = ref false (* -dlambda *) +and dump_instr = ref false (* -dinstr *) + +let keep_asm_file = ref false (* -S *) +let optimize_for_speed = ref true (* -compact *) + +and dump_cmm = ref false (* -dcmm *) +let dump_selection = ref false (* -dsel *) +let dump_live = ref false (* -dlive *) +let dump_spill = ref false (* -dspill *) +let dump_split = ref false (* -dsplit *) +let dump_scheduling = ref false (* -dscheduling *) +let dump_interf = ref false (* -dinterf *) +let dump_prefer = ref false (* -dprefer *) +let dump_regalloc = ref false (* -dalloc *) +let dump_reload = ref false (* -dreload *) +let dump_scheduling = ref false (* -dscheduling *) +let dump_linear = ref false (* -dlinear *) +let keep_startup_file = ref false (* -dstartup *) +let dump_combine = ref false (* -dcombine *) + +let native_code = ref false (* set to true under ocamlopt *) +let inline_threshold = ref 10 + +let dont_write_files = ref false (* set to true under ocamldoc *) + +let std_include_flag prefix = + if !no_std_include then "" + else (prefix ^ (Filename.quote Config.standard_library)) +;; + +let std_include_dir () = + if !no_std_include then [] else [Config.standard_library] +;; diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/clflags.mli b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/clflags.mli new file mode 100644 index 000000000000..b4912c32b6a2 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/clflags.mli @@ -0,0 +1,75 @@ +(***********************************************************************) +(* *) +(* Objective Caml *) +(* *) +(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) +(* *) +(* Copyright 2005 Institut National de Recherche en Informatique et *) +(* en Automatique. All rights reserved. This file is distributed *) +(* under the terms of the Q Public License version 1.0. *) +(* *) +(***********************************************************************) + +(* $Id: clflags.mli,v 1.1 2007/09/24 23:04:52 so294 Exp $ *) + +val objfiles : string list ref +val ccobjs : string list ref +val dllibs : string list ref +val compile_only : bool ref +val output_name : string option ref +val include_dirs : string list ref +val no_std_include : bool ref +val print_types : bool ref +val make_archive : bool ref +val debug : bool ref +val fast : bool ref +val link_everything : bool ref +val custom_runtime : bool ref +val output_c_object : bool ref +val ccopts : string list ref +val classic : bool ref +val nopervasives : bool ref +val preprocessor : string option ref +val save_types : bool ref +val use_threads : bool ref +val use_vmthreads : bool ref +val noassert : bool ref +val verbose : bool ref +val noprompt : bool ref +val init_file : string option ref +val use_prims : string ref +val use_runtime : string ref +val principal : bool ref +val recursive_types : bool ref +val make_runtime : bool ref +val gprofile : bool ref +val c_compiler : string ref +val c_linker : string ref +val no_auto_link : bool ref +val dllpaths : string list ref +val make_package : bool ref +val for_package : string option ref +val dump_parsetree : bool ref +val dump_rawlambda : bool ref +val dump_lambda : bool ref +val dump_instr : bool ref +val keep_asm_file : bool ref +val optimize_for_speed : bool ref +val dump_cmm : bool ref +val dump_selection : bool ref +val dump_live : bool ref +val dump_spill : bool ref +val dump_split : bool ref +val dump_interf : bool ref +val dump_prefer : bool ref +val dump_regalloc : bool ref +val dump_reload : bool ref +val dump_scheduling : bool ref +val dump_linear : bool ref +val keep_startup_file : bool ref +val dump_combine : bool ref +val native_code : bool ref +val inline_threshold : int ref +val dont_write_files : bool ref +val std_include_flag : string -> string +val std_include_dir : unit -> string list diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/config.ml b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/config.ml new file mode 100644 index 000000000000..00d484bdcaa9 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/config.ml @@ -0,0 +1,109 @@ +(***********************************************************************) +(* *) +(* Objective Caml *) +(* *) +(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) +(* *) +(* Copyright 1996 Institut National de Recherche en Informatique et *) +(* en Automatique. All rights reserved. This file is distributed *) +(* under the terms of the Q Public License version 1.0. *) +(* *) +(***********************************************************************) + +(* $Id: config.ml,v 1.1 2007/09/24 23:04:52 so294 Exp $ *) + +(* The main OCaml version string has moved to ../VERSION *) +let version = Sys.ocaml_version + +let standard_library_default = "/home/so294/scratch/ocaml/lib/ocaml" + +let standard_library = + try + Sys.getenv "OCAMLLIB" + with Not_found -> + try + Sys.getenv "CAMLLIB" + with Not_found -> + standard_library_default + +let standard_runtime = "/home/so294/scratch/ocaml/bin/ocamlrun" +let ccomp_type = "cc" +let bytecomp_c_compiler = "gcc -fno-defer-pop -Wall -D_FILE_OFFSET_BITS=64 -D_REENTRANT -fPIC" +let bytecomp_c_linker = "gcc -Wl,-E" +let bytecomp_c_libraries = "-lm -ldl -lcurses -lpthread" +let native_c_compiler = "gcc -Wall -D_FILE_OFFSET_BITS=64 -D_REENTRANT" +let native_c_linker = "gcc " +let native_c_libraries = "-lm -ldl" +let native_partial_linker = "ld -r " +let native_pack_linker = "ld -r -o " +let ranlib = "ranlib" +let cc_profile = "-pg" + +let exec_magic_number = "Caml1999X008" +and cmi_magic_number = "Caml1999I010" +and cmo_magic_number = "Caml1999O006" +and cma_magic_number = "Caml1999A007" +and cmx_magic_number = "Caml1999Y011" +and cmxa_magic_number = "Caml1999Z010" +and ast_impl_magic_number = "Caml1999M011" +and ast_intf_magic_number = "Caml1999N010" + +let load_path = ref ([] : string list) + +let interface_suffix = ref ".mli" + +let max_tag = 245 +(* This is normally the same as in obj.ml, but we have to define it + separately because it can differ when we're in the middle of a + bootstrapping phase. *) +let lazy_tag = 246 + +let max_young_wosize = 256 +let stack_threshold = 256 (* see byterun/config.h *) + +let architecture = "amd64" +let model = "default" +let system = "linux" + +let ext_obj = ".o" +let ext_asm = ".s" +let ext_lib = ".a" +let ext_dll = ".so" + +let default_executable_name = + match Sys.os_type with + "Unix" -> "a.out" + | "Win32" | "Cygwin" -> "camlprog.exe" + | _ -> "camlprog" + +let systhread_supported = true;; + +let print_config oc = + let p name valu = Printf.fprintf oc "%s: %s\n" name valu in + let p_bool name valu = Printf.fprintf oc "%s: %B\n" name valu in + p "version" version; + p "standard_library_default" standard_library_default; + p "standard_library" standard_library; + p "standard_runtime" standard_runtime; + p "ccomp_type" ccomp_type; + p "bytecomp_c_compiler" bytecomp_c_compiler; + p "bytecomp_c_linker" bytecomp_c_linker; + p "bytecomp_c_libraries" bytecomp_c_libraries; + p "native_c_compiler" native_c_compiler; + p "native_c_linker" native_c_linker; + p "native_c_libraries" native_c_libraries; + p "native_partial_linker" native_partial_linker; + p "ranlib" ranlib; + p "cc_profile" cc_profile; + p "architecture" architecture; + p "model" model; + p "system" system; + p "ext_obj" ext_obj; + p "ext_asm" ext_asm; + p "ext_lib" ext_lib; + p "ext_dll" ext_dll; + p "os_type" Sys.os_type; + p "default_executable_name" default_executable_name; + p_bool "systhread_supported" systhread_supported; + flush oc; +;; diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/config.mlbuild b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/config.mlbuild new file mode 100644 index 000000000000..37b7024b1b59 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/config.mlbuild @@ -0,0 +1,124 @@ +(***********************************************************************) +(* *) +(* Objective Caml *) +(* *) +(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) +(* *) +(* Copyright 1996 Institut National de Recherche en Informatique et *) +(* en Automatique. All rights reserved. This file is distributed *) +(* under the terms of the Q Public License version 1.0. *) +(* *) +(***********************************************************************) + +(* $Id: config.mlbuild,v 1.1 2007/09/24 23:04:52 so294 Exp $ *) + +(* The main OCaml version string has moved to ../VERSION *) +let version = Sys.ocaml_version + +module C = Myocamlbuild_config + +let standard_library_default = C.libdir + +let standard_library = + try + Sys.getenv "OCAMLLIB" + with Not_found -> + try + Sys.getenv "CAMLLIB" + with Not_found -> + standard_library_default + +let windows = + match Sys.os_type with + | "Win32" -> true + | _ -> false + +let sf = Printf.sprintf + +let standard_runtime = + if windows then "ocamlrun" + else C.bindir^"/ocamlrun" +let ccomp_type = C.ccomptype +let bytecomp_c_compiler = sf "%s %s %s" C.bytecc C.bytecccompopts C.sharedcccompopts +let bytecomp_c_linker = sf "%s %s" C.bytecc C.bytecclinkopts +let bytecomp_c_libraries = C.bytecclibs +let native_c_compiler = sf "%s %s" C.nativecc C.nativecccompopts +let native_c_linker = sf "%s %s" C.nativecc C.nativecclinkopts +let native_c_libraries = C.nativecclibs +let native_partial_linker = + if ccomp_type = "msvc" then "link /lib /nologo" + else sf "%s %s" C.partialld C.nativecclinkopts +let native_pack_linker = + if ccomp_type = "msvc" then "link /lib /nologo /out:" + else sf "%s %s -o " C.partialld C.nativecclinkopts +let ranlib = C.ranlibcmd +let cc_profile = C.cc_profile + +let exec_magic_number = "Caml1999X008" +and cmi_magic_number = "Caml1999I010" +and cmo_magic_number = "Caml1999O006" +and cma_magic_number = "Caml1999A007" +and cmx_magic_number = "Caml1999Y011" +and cmxa_magic_number = "Caml1999Z010" +and ast_impl_magic_number = "Caml1999M011" +and ast_intf_magic_number = "Caml1999N010" + +let load_path = ref ([] : string list) + +let interface_suffix = ref ".mli" + +let max_tag = 245 +(* This is normally the same as in obj.ml, but we have to define it + separately because it can differ when we're in the middle of a + bootstrapping phase. *) +let lazy_tag = 246 + +let max_young_wosize = 256 +let stack_threshold = 256 (* see byterun/config.h *) + +let architecture = C.arch +let model = C.model +let system = C.system + +let ext_obj = C.ext_obj +let ext_asm = C.ext_asm +let ext_lib = C.ext_lib +let ext_dll = C.ext_dll + +let default_executable_name = + match Sys.os_type with + "Unix" -> "a.out" + | "Win32" | "Cygwin" -> "camlprog.exe" + | _ -> "camlprog" + +let systhread_supported = C.systhread_support;; + +let print_config oc = + let p name valu = Printf.fprintf oc "%s: %s\n" name valu in + let p_bool name valu = Printf.fprintf oc "%s: %B\n" name valu in + p "version" version; + p "standard_library_default" standard_library_default; + p "standard_library" standard_library; + p "standard_runtime" standard_runtime; + p "ccomp_type" ccomp_type; + p "bytecomp_c_compiler" bytecomp_c_compiler; + p "bytecomp_c_linker" bytecomp_c_linker; + p "bytecomp_c_libraries" bytecomp_c_libraries; + p "native_c_compiler" native_c_compiler; + p "native_c_linker" native_c_linker; + p "native_c_libraries" native_c_libraries; + p "native_partial_linker" native_partial_linker; + p "ranlib" ranlib; + p "cc_profile" cc_profile; + p "architecture" architecture; + p "model" model; + p "system" system; + p "ext_obj" ext_obj; + p "ext_asm" ext_asm; + p "ext_lib" ext_lib; + p "ext_dll" ext_dll; + p "os_type" Sys.os_type; + p "default_executable_name" default_executable_name; + p_bool "systhread_supported" systhread_supported; + flush oc; +;; diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/config.mli b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/config.mli new file mode 100644 index 000000000000..d7563b6f0fbe --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/config.mli @@ -0,0 +1,112 @@ +(***********************************************************************) +(* *) +(* Objective Caml *) +(* *) +(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) +(* *) +(* Copyright 1996 Institut National de Recherche en Informatique et *) +(* en Automatique. All rights reserved. This file is distributed *) +(* under the terms of the Q Public License version 1.0. *) +(* *) +(***********************************************************************) + +(* $Id: config.mli,v 1.1 2007/09/24 23:04:52 so294 Exp $ *) + +(* System configuration *) + +val version: string + (* The current version number of the system *) + +val standard_library: string + (* The directory containing the standard libraries *) +val standard_runtime: string + (* The full path to the standard bytecode interpreter ocamlrun *) +val ccomp_type: string + (* The "kind" of the C compiler: one of + "cc" (for Unix-style C compilers) + "msvc" (Microsoft Visual C++) + "mrc" (Macintosh MPW) *) +val bytecomp_c_compiler: string + (* The C compiler to use for compiling C files + with the bytecode compiler *) +val bytecomp_c_linker: string + (* The C compiler to use for building custom runtime systems + with the bytecode compiler *) +val bytecomp_c_libraries: string + (* The C libraries to link with custom runtimes *) +val native_c_compiler: string + (* The C compiler to use for compiling C files + with the native-code compiler *) +val native_c_linker: string + (* The C compiler to use for the final linking step + in the native code compiler *) +val native_c_libraries: string + (* The C libraries to link with native-code programs *) +val native_partial_linker: string + (* The linker to use for partial links (ocamlopt -output-obj) *) +val native_pack_linker: string + (* The linker to use for packaging (ocamlopt -pack) *) +val ranlib: string + (* Command to randomize a library, or "" if not needed *) +val cc_profile : string + (* The command line option to the C compiler to enable profiling. *) + +val load_path: string list ref + (* Directories in the search path for .cmi and .cmo files *) + +val interface_suffix: string ref + (* Suffix for interface file names *) + +val exec_magic_number: string + (* Magic number for bytecode executable files *) +val cmi_magic_number: string + (* Magic number for compiled interface files *) +val cmo_magic_number: string + (* Magic number for object bytecode files *) +val cma_magic_number: string + (* Magic number for archive files *) +val cmx_magic_number: string + (* Magic number for compilation unit descriptions *) +val cmxa_magic_number: string + (* Magic number for libraries of compilation unit descriptions *) +val ast_intf_magic_number: string + (* Magic number for file holding an interface syntax tree *) +val ast_impl_magic_number: string + (* Magic number for file holding an implementation syntax tree *) + +val max_tag: int + (* Biggest tag that can be stored in the header of a regular block. *) +val lazy_tag : int + (* Normally the same as Obj.lazy_tag. Separate definition because + of technical reasons for bootstrapping. *) +val max_young_wosize: int + (* Maximal size of arrays that are directly allocated in the + minor heap *) +val stack_threshold: int + (* Size in words of safe area at bottom of VM stack, + see byterun/config.h *) + +val architecture: string + (* Name of processor type for the native-code compiler *) +val model: string + (* Name of processor submodel for the native-code compiler *) +val system: string + (* Name of operating system for the native-code compiler *) + +val ext_obj: string + (* Extension for object files, e.g. [.o] under Unix. *) +val ext_asm: string + (* Extension for assembler files, e.g. [.s] under Unix. *) +val ext_lib: string + (* Extension for library files, e.g. [.a] under Unix. *) +val ext_dll: string + (* Extension for dynamically-loaded libraries, e.g. [.so] under Unix.*) + +val default_executable_name: string + (* Name of executable produced by linking if none is given with -o, + e.g. [a.out] under Unix. *) + +val systhread_supported : bool + (* Whether the system thread library is implemented *) + +val print_config : out_channel -> unit;; diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/config.mlp b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/config.mlp new file mode 100644 index 000000000000..cfc8e71c0917 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/config.mlp @@ -0,0 +1,109 @@ +(***********************************************************************) +(* *) +(* Objective Caml *) +(* *) +(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) +(* *) +(* Copyright 1996 Institut National de Recherche en Informatique et *) +(* en Automatique. All rights reserved. This file is distributed *) +(* under the terms of the Q Public License version 1.0. *) +(* *) +(***********************************************************************) + +(* $Id: config.mlp,v 1.1 2007/09/24 23:04:52 so294 Exp $ *) + +(* The main OCaml version string has moved to ../VERSION *) +let version = Sys.ocaml_version + +let standard_library_default = "%%LIBDIR%%" + +let standard_library = + try + Sys.getenv "OCAMLLIB" + with Not_found -> + try + Sys.getenv "CAMLLIB" + with Not_found -> + standard_library_default + +let standard_runtime = "%%BYTERUN%%" +let ccomp_type = "%%CCOMPTYPE%%" +let bytecomp_c_compiler = "%%BYTECC%%" +let bytecomp_c_linker = "%%BYTELINK%%" +let bytecomp_c_libraries = "%%BYTECCLIBS%%" +let native_c_compiler = "%%NATIVECC%%" +let native_c_linker = "%%NATIVELINK%%" +let native_c_libraries = "%%NATIVECCLIBS%%" +let native_partial_linker = "%%PARTIALLD%%" +let native_pack_linker = "%%PACKLD%%" +let ranlib = "%%RANLIBCMD%%" +let cc_profile = "%%CC_PROFILE%%" + +let exec_magic_number = "Caml1999X008" +and cmi_magic_number = "Caml1999I010" +and cmo_magic_number = "Caml1999O006" +and cma_magic_number = "Caml1999A007" +and cmx_magic_number = "Caml1999Y011" +and cmxa_magic_number = "Caml1999Z010" +and ast_impl_magic_number = "Caml1999M011" +and ast_intf_magic_number = "Caml1999N010" + +let load_path = ref ([] : string list) + +let interface_suffix = ref ".mli" + +let max_tag = 245 +(* This is normally the same as in obj.ml, but we have to define it + separately because it can differ when we're in the middle of a + bootstrapping phase. *) +let lazy_tag = 246 + +let max_young_wosize = 256 +let stack_threshold = 256 (* see byterun/config.h *) + +let architecture = "%%ARCH%%" +let model = "%%MODEL%%" +let system = "%%SYSTEM%%" + +let ext_obj = "%%EXT_OBJ%%" +let ext_asm = "%%EXT_ASM%%" +let ext_lib = "%%EXT_LIB%%" +let ext_dll = "%%EXT_DLL%%" + +let default_executable_name = + match Sys.os_type with + "Unix" -> "a.out" + | "Win32" | "Cygwin" -> "camlprog.exe" + | _ -> "camlprog" + +let systhread_supported = %%SYSTHREAD_SUPPORT%%;; + +let print_config oc = + let p name valu = Printf.fprintf oc "%s: %s\n" name valu in + let p_bool name valu = Printf.fprintf oc "%s: %B\n" name valu in + p "version" version; + p "standard_library_default" standard_library_default; + p "standard_library" standard_library; + p "standard_runtime" standard_runtime; + p "ccomp_type" ccomp_type; + p "bytecomp_c_compiler" bytecomp_c_compiler; + p "bytecomp_c_linker" bytecomp_c_linker; + p "bytecomp_c_libraries" bytecomp_c_libraries; + p "native_c_compiler" native_c_compiler; + p "native_c_linker" native_c_linker; + p "native_c_libraries" native_c_libraries; + p "native_partial_linker" native_partial_linker; + p "ranlib" ranlib; + p "cc_profile" cc_profile; + p "architecture" architecture; + p "model" model; + p "system" system; + p "ext_obj" ext_obj; + p "ext_asm" ext_asm; + p "ext_lib" ext_lib; + p "ext_dll" ext_dll; + p "os_type" Sys.os_type; + p "default_executable_name" default_executable_name; + p_bool "systhread_supported" systhread_supported; + flush oc; +;; diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/consistbl.ml b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/consistbl.ml new file mode 100644 index 000000000000..2678dda1a60c --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/consistbl.ml @@ -0,0 +1,57 @@ +(***********************************************************************) +(* *) +(* Objective Caml *) +(* *) +(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) +(* *) +(* Copyright 2002 Institut National de Recherche en Informatique et *) +(* en Automatique. All rights reserved. This file is distributed *) +(* under the terms of the Q Public License version 1.0. *) +(* *) +(***********************************************************************) + +(* $Id: consistbl.ml,v 1.1 2007/09/24 23:04:52 so294 Exp $ *) + +(* Consistency tables: for checking consistency of module CRCs *) + +type t = (string, Digest.t * string) Hashtbl.t + +let create () = Hashtbl.create 13 + +let clear = Hashtbl.clear + +exception Inconsistency of string * string * string + +exception Not_available of string + +let check tbl name crc source = + try + let (old_crc, old_source) = Hashtbl.find tbl name in + if crc <> old_crc then raise(Inconsistency(name, source, old_source)) + with Not_found -> + Hashtbl.add tbl name (crc, source) + +let check_noadd tbl name crc source = + try + let (old_crc, old_source) = Hashtbl.find tbl name in + if crc <> old_crc then raise(Inconsistency(name, source, old_source)) + with Not_found -> + raise (Not_available name) + +let set tbl name crc source = Hashtbl.add tbl name (crc, source) + +let source tbl name = snd (Hashtbl.find tbl name) + +let extract tbl = + Hashtbl.fold (fun name (crc, auth) accu -> (name, crc) :: accu) tbl [] + +let filter p tbl = + let to_remove = ref [] in + Hashtbl.iter + (fun name (crc, auth) -> + if not (p name) then to_remove := name :: !to_remove) + tbl; + List.iter + (fun name -> + while Hashtbl.mem tbl name do Hashtbl.remove tbl name done) + !to_remove diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/consistbl.mli b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/consistbl.mli new file mode 100644 index 000000000000..037342f16d62 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/consistbl.mli @@ -0,0 +1,60 @@ +(***********************************************************************) +(* *) +(* Objective Caml *) +(* *) +(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) +(* *) +(* Copyright 2002 Institut National de Recherche en Informatique et *) +(* en Automatique. All rights reserved. This file is distributed *) +(* under the terms of the Q Public License version 1.0. *) +(* *) +(***********************************************************************) + +(* $Id: consistbl.mli,v 1.1 2007/09/24 23:04:52 so294 Exp $ *) + +(* Consistency tables: for checking consistency of module CRCs *) + +type t + +val create: unit -> t + +val clear: t -> unit + +val check: t -> string -> Digest.t -> string -> unit + (* [check tbl name crc source] + checks consistency of ([name], [crc]) with infos previously + stored in [tbl]. If no CRC was previously associated with + [name], record ([name], [crc]) in [tbl]. + [source] is the name of the file from which the information + comes from. This is used for error reporting. *) + +val check_noadd: t -> string -> Digest.t -> string -> unit + (* Same as [check], but raise [Not_available] if no CRC was previously + associated with [name]. *) + +val set: t -> string -> Digest.t -> string -> unit + (* [set tbl name crc source] forcefully associates [name] with + [crc] in [tbl], even if [name] already had a different CRC + associated with [name] in [tbl]. *) + +val source: t -> string -> string + (* [source tbl name] returns the file name associated with [name] + if the latter has an associated CRC in [tbl]. + Raise [Not_found] otherwise. *) + +val extract: t -> (string * Digest.t) list + (* Return all bindings ([name], [crc]) contained in the given + table. *) + +val filter: (string -> bool) -> t -> unit + (* [filter pred tbl] removes from [tbl] table all (name, CRC) pairs + such that [pred name] is [false]. *) + +exception Inconsistency of string * string * string + (* Raised by [check] when a CRC mismatch is detected. + First string is the name of the compilation unit. + Second string is the source that caused the inconsistency. + Third string is the source that set the CRC. *) + +exception Not_available of string + (* Raised by [check_noadd] when a name doesn't have an associated CRC. *) diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/misc.ml b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/misc.ml new file mode 100644 index 000000000000..6b0e796a0dd0 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/misc.ml @@ -0,0 +1,197 @@ +(***********************************************************************) +(* *) +(* Objective Caml *) +(* *) +(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) +(* *) +(* Copyright 1996 Institut National de Recherche en Informatique et *) +(* en Automatique. All rights reserved. This file is distributed *) +(* under the terms of the Q Public License version 1.0. *) +(* *) +(***********************************************************************) + +(* $Id: misc.ml,v 1.1 2007/09/24 23:04:52 so294 Exp $ *) + +(* Errors *) + +exception Fatal_error + +let fatal_error msg = + prerr_string ">> Fatal error: "; prerr_endline msg; raise Fatal_error + +(* Exceptions *) + +let try_finally f1 f2 = + try + let result = f1 () in + f2 (); + result + with x -> f2 (); raise x +;; + +(* List functions *) + +let rec map_end f l1 l2 = + match l1 with + [] -> l2 + | hd::tl -> f hd :: map_end f tl l2 + +let rec map_left_right f = function + [] -> [] + | hd::tl -> let res = f hd in res :: map_left_right f tl + +let rec for_all2 pred l1 l2 = + match (l1, l2) with + ([], []) -> true + | (hd1::tl1, hd2::tl2) -> pred hd1 hd2 && for_all2 pred tl1 tl2 + | (_, _) -> false + +let rec replicate_list elem n = + if n <= 0 then [] else elem :: replicate_list elem (n-1) + +let rec list_remove x = function + [] -> [] + | hd :: tl -> + if hd = x then tl else hd :: list_remove x tl + +let rec split_last = function + [] -> assert false + | [x] -> ([], x) + | hd :: tl -> + let (lst, last) = split_last tl in + (hd :: lst, last) + +let rec samelist pred l1 l2 = + match (l1, l2) with + | ([], []) -> true + | (hd1 :: tl1, hd2 :: tl2) -> pred hd1 hd2 && samelist pred tl1 tl2 + | (_, _) -> false + +(* Options *) + +let may f = function + Some x -> f x + | None -> () + +let may_map f = function + Some x -> Some (f x) + | None -> None + +(* File functions *) + +let find_in_path path name = + if not (Filename.is_implicit name) then + if Sys.file_exists name then name else raise Not_found + else begin + let rec try_dir = function + [] -> raise Not_found + | dir::rem -> + let fullname = Filename.concat dir name in + if Sys.file_exists fullname then fullname else try_dir rem + in try_dir path + end + +let find_in_path_uncap path name = + let uname = String.uncapitalize name in + let rec try_dir = function + [] -> raise Not_found + | dir::rem -> + let fullname = Filename.concat dir name + and ufullname = Filename.concat dir uname in + if Sys.file_exists ufullname then ufullname + else if Sys.file_exists fullname then fullname + else try_dir rem + in try_dir path + +let remove_file filename = + try + Sys.remove filename + with Sys_error msg -> + () + +(* Expand a -I option: if it starts with +, make it relative to the standard + library directory *) + +let expand_directory alt s = + if String.length s > 0 && s.[0] = '+' + then Filename.concat alt + (String.sub s 1 (String.length s - 1)) + else s + +(* Hashtable functions *) + +let create_hashtable size init = + let tbl = Hashtbl.create size in + List.iter (fun (key, data) -> Hashtbl.add tbl key data) init; + tbl + +(* File copy *) + +let copy_file ic oc = + let buff = String.create 0x1000 in + let rec copy () = + let n = input ic buff 0 0x1000 in + if n = 0 then () else (output oc buff 0 n; copy()) + in copy() + +let copy_file_chunk ic oc len = + let buff = String.create 0x1000 in + let rec copy n = + if n <= 0 then () else begin + let r = input ic buff 0 (min n 0x1000) in + if r = 0 then raise End_of_file else (output oc buff 0 r; copy(n-r)) + end + in copy len + +(* Integer operations *) + +let rec log2 n = + if n <= 1 then 0 else 1 + log2(n asr 1) + +let align n a = + if n >= 0 then (n + a - 1) land (-a) else n land (-a) + +let no_overflow_add a b = (a lxor b) lor (a lxor (lnot (a+b))) < 0 + +let no_overflow_sub a b = (a lxor (lnot b)) lor (b lxor (a-b)) < 0 + +let no_overflow_lsl a = min_int asr 1 <= a && a <= max_int asr 1 + +(* String operations *) + +let chop_extension_if_any fname = + try Filename.chop_extension fname with Invalid_argument _ -> fname + +let chop_extensions file = + let dirname = Filename.dirname file and basename = Filename.basename file in + try + let pos = String.index basename '.' in + let basename = String.sub basename 0 pos in + if Filename.is_implicit file && dirname = Filename.current_dir_name then + basename + else + Filename.concat dirname basename + with Not_found -> file + +let search_substring pat str start = + let rec search i j = + if j >= String.length pat then i + else if i + j >= String.length str then raise Not_found + else if str.[i + j] = pat.[j] then search i (j+1) + else search (i+1) 0 + in search start 0 + +let rev_split_words s = + let rec split1 res i = + if i >= String.length s then res else begin + match s.[i] with + ' ' | '\t' | '\r' | '\n' -> split1 res (i+1) + | _ -> split2 res i (i+1) + end + and split2 res i j = + if j >= String.length s then String.sub s i (j-i) :: res else begin + match s.[j] with + ' ' | '\t' | '\r' | '\n' -> split1 (String.sub s i (j-i) :: res) (j+1) + | _ -> split2 res i (j+1) + end + in split1 [] 0 diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/misc.mli b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/misc.mli new file mode 100644 index 000000000000..f5a257e3bf75 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/misc.mli @@ -0,0 +1,104 @@ +(***********************************************************************) +(* *) +(* Objective Caml *) +(* *) +(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) +(* *) +(* Copyright 1996 Institut National de Recherche en Informatique et *) +(* en Automatique. All rights reserved. This file is distributed *) +(* under the terms of the Q Public License version 1.0. *) +(* *) +(***********************************************************************) + +(* $Id: misc.mli,v 1.1 2007/09/24 23:04:52 so294 Exp $ *) + +(* Miscellaneous useful types and functions *) + +val fatal_error: string -> 'a +exception Fatal_error + +val try_finally : (unit -> 'a) -> (unit -> unit) -> 'a;; + +val map_end: ('a -> 'b) -> 'a list -> 'b list -> 'b list + (* [map_end f l t] is [map f l @ t], just more efficient. *) +val map_left_right: ('a -> 'b) -> 'a list -> 'b list + (* Like [List.map], with guaranteed left-to-right evaluation order *) +val for_all2: ('a -> 'b -> bool) -> 'a list -> 'b list -> bool + (* Same as [List.for_all] but for a binary predicate. + In addition, this [for_all2] never fails: given two lists + with different lengths, it returns false. *) +val replicate_list: 'a -> int -> 'a list + (* [replicate_list elem n] is the list with [n] elements + all identical to [elem]. *) +val list_remove: 'a -> 'a list -> 'a list + (* [list_remove x l] returns a copy of [l] with the first + element equal to [x] removed. *) +val split_last: 'a list -> 'a list * 'a + (* Return the last element and the other elements of the given list. *) +val samelist: ('a -> 'a -> bool) -> 'a list -> 'a list -> bool + (* Like [List.for_all2] but returns [false] if the two + lists have different length. *) + +val may: ('a -> unit) -> 'a option -> unit +val may_map: ('a -> 'b) -> 'a option -> 'b option + +val find_in_path: string list -> string -> string + (* Search a file in a list of directories. *) +val find_in_path_uncap: string list -> string -> string + (* Same, but search also for uncapitalized name, i.e. + if name is Foo.ml, allow /path/Foo.ml and /path/foo.ml + to match. *) +val remove_file: string -> unit + (* Delete the given file if it exists. Never raise an error. *) +val expand_directory: string -> string -> string + (* [expand_directory alt file] eventually expands a [+] at the + beginning of file into [alt] (an alternate root directory) *) + +val create_hashtable: int -> ('a * 'b) list -> ('a, 'b) Hashtbl.t + (* Create a hashtable of the given size and fills it with the + given bindings. *) + +val copy_file: in_channel -> out_channel -> unit + (* [copy_file ic oc] reads the contents of file [ic] and copies + them to [oc]. It stops when encountering EOF on [ic]. *) +val copy_file_chunk: in_channel -> out_channel -> int -> unit + (* [copy_file_chunk ic oc n] reads [n] bytes from [ic] and copies + them to [oc]. It raises [End_of_file] when encountering + EOF on [ic]. *) + +val log2: int -> int + (* [log2 n] returns [s] such that [n = 1 lsl s] + if [n] is a power of 2*) +val align: int -> int -> int + (* [align n a] rounds [n] upwards to a multiple of [a] + (a power of 2). *) +val no_overflow_add: int -> int -> bool + (* [no_overflow_add n1 n2] returns [true] if the computation of + [n1 + n2] does not overflow. *) +val no_overflow_sub: int -> int -> bool + (* [no_overflow_add n1 n2] returns [true] if the computation of + [n1 - n2] does not overflow. *) +val no_overflow_lsl: int -> bool + (* [no_overflow_add n] returns [true] if the computation of + [n lsl 1] does not overflow. *) + +val chop_extension_if_any: string -> string + (* Like Filename.chop_extension but returns the initial file + name if it has no extension *) + +val chop_extensions: string -> string + (* Return the given file name without its extensions. The extensions + is the longest suffix starting with a period and not including + a directory separator, [.xyz.uvw] for instance. + + Return the given name if it does not contain an extension. *) + +val search_substring: string -> string -> int -> int + (* [search_substring pat str start] returns the position of the first + occurrence of string [pat] in string [str]. Search starts + at offset [start] in [str]. Raise [Not_found] if [pat] + does not occur. *) + +val rev_split_words: string -> string list + (* [rev_split_words s] splits [s] in blank-separated words, and return + the list of words in reverse order. *) diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/tbl.ml b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/tbl.ml new file mode 100644 index 000000000000..80f5fc6867d0 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/tbl.ml @@ -0,0 +1,104 @@ +(***********************************************************************) +(* *) +(* Objective Caml *) +(* *) +(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) +(* *) +(* Copyright 1996 Institut National de Recherche en Informatique et *) +(* en Automatique. All rights reserved. This file is distributed *) +(* under the terms of the Q Public License version 1.0. *) +(* *) +(***********************************************************************) + +(* $Id: tbl.ml,v 1.1 2007/09/24 23:04:52 so294 Exp $ *) + +type ('a, 'b) t = + Empty + | Node of ('a, 'b) t * 'a * 'b * ('a, 'b) t * int + +let empty = Empty + +let height = function + Empty -> 0 + | Node(_,_,_,_,h) -> h + +let create l x d r = + let hl = height l and hr = height r in + Node(l, x, d, r, (if hl >= hr then hl + 1 else hr + 1)) + +let bal l x d r = + let hl = height l and hr = height r in + if hl > hr + 1 then + match l with + | Node (ll, lv, ld, lr, _) when height ll >= height lr -> + create ll lv ld (create lr x d r) + | Node (ll, lv, ld, Node (lrl, lrv, lrd, lrr, _), _) -> + create (create ll lv ld lrl) lrv lrd (create lrr x d r) + | _ -> assert false + else if hr > hl + 1 then + match r with + | Node (rl, rv, rd, rr, _) when height rr >= height rl -> + create (create l x d rl) rv rd rr + | Node (Node (rll, rlv, rld, rlr, _), rv, rd, rr, _) -> + create (create l x d rll) rlv rld (create rlr rv rd rr) + | _ -> assert false + else + create l x d r + +let rec add x data = function + Empty -> + Node(Empty, x, data, Empty, 1) + | Node(l, v, d, r, h) -> + let c = compare x v in + if c = 0 then + Node(l, x, data, r, h) + else if c < 0 then + bal (add x data l) v d r + else + bal l v d (add x data r) + +let rec find x = function + Empty -> + raise Not_found + | Node(l, v, d, r, _) -> + let c = compare x v in + if c = 0 then d + else find x (if c < 0 then l else r) + +let rec mem x = function + Empty -> false + | Node(l, v, d, r, _) -> + let c = compare x v in + c = 0 || mem x (if c < 0 then l else r) + +let rec merge t1 t2 = + match (t1, t2) with + (Empty, t) -> t + | (t, Empty) -> t + | (Node(l1, v1, d1, r1, h1), Node(l2, v2, d2, r2, h2)) -> + bal l1 v1 d1 (bal (merge r1 l2) v2 d2 r2) + +let rec remove x = function + Empty -> + Empty + | Node(l, v, d, r, h) -> + let c = compare x v in + if c = 0 then + merge l r + else if c < 0 then + bal (remove x l) v d r + else + bal l v d (remove x r) + +let rec iter f = function + Empty -> () + | Node(l, v, d, r, _) -> + iter f l; f v d; iter f r + +open Format + +let print print_key print_data ppf tbl = + let print_tbl ppf tbl = + iter (fun k d -> fprintf ppf "@[<2>%a ->@ %a;@]@ " print_key k print_data d) + tbl in + fprintf ppf "@[[[%a]]@]" print_tbl tbl diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/tbl.mli b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/tbl.mli new file mode 100644 index 000000000000..74f2dd4ca384 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/tbl.mli @@ -0,0 +1,30 @@ +(***********************************************************************) +(* *) +(* Objective Caml *) +(* *) +(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) +(* *) +(* Copyright 1996 Institut National de Recherche en Informatique et *) +(* en Automatique. All rights reserved. This file is distributed *) +(* under the terms of the Q Public License version 1.0. *) +(* *) +(***********************************************************************) + +(* $Id: tbl.mli,v 1.1 2007/09/24 23:04:52 so294 Exp $ *) + +(* Association tables from any ordered type to any type. + We use the generic ordering to compare keys. *) + +type ('a, 'b) t + +val empty: ('a, 'b) t +val add: 'a -> 'b -> ('a, 'b) t -> ('a, 'b) t +val find: 'a -> ('a, 'b) t -> 'b +val mem: 'a -> ('a, 'b) t -> bool +val remove: 'a -> ('a, 'b) t -> ('a, 'b) t +val iter: ('a -> 'b -> 'c) -> ('a, 'b) t -> unit + +open Format + +val print: (formatter -> 'a -> unit) -> (formatter -> 'b -> unit) -> + formatter -> ('a, 'b) t -> unit diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/terminfo.ml b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/terminfo.ml new file mode 100644 index 000000000000..b6194af7f591 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/terminfo.ml @@ -0,0 +1,25 @@ +(***********************************************************************) +(* *) +(* Objective Caml *) +(* *) +(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) +(* *) +(* Copyright 1996 Institut National de Recherche en Informatique et *) +(* en Automatique. All rights reserved. This file is distributed *) +(* under the terms of the Q Public License version 1.0. *) +(* *) +(***********************************************************************) + +(* $Id: terminfo.ml,v 1.1 2007/09/24 23:04:52 so294 Exp $ *) + +(* Basic interface to the terminfo database *) + +type status = + | Uninitialised + | Bad_term + | Good_term of int +;; +external setup : out_channel -> status = "caml_terminfo_setup";; +external backup : int -> unit = "caml_terminfo_backup";; +external standout : bool -> unit = "caml_terminfo_standout";; +external resume : int -> unit = "caml_terminfo_resume";; diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/terminfo.mli b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/terminfo.mli new file mode 100644 index 000000000000..da729ed4a2f3 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/terminfo.mli @@ -0,0 +1,25 @@ +(***********************************************************************) +(* *) +(* Objective Caml *) +(* *) +(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) +(* *) +(* Copyright 1996 Institut National de Recherche en Informatique et *) +(* en Automatique. All rights reserved. This file is distributed *) +(* under the terms of the Q Public License version 1.0. *) +(* *) +(***********************************************************************) + +(* $Id: terminfo.mli,v 1.1 2007/09/24 23:04:52 so294 Exp $ *) + +(* Basic interface to the terminfo database *) + +type status = + | Uninitialised + | Bad_term + | Good_term of int (* number of lines of the terminal *) +;; +external setup : out_channel -> status = "caml_terminfo_setup";; +external backup : int -> unit = "caml_terminfo_backup";; +external standout : bool -> unit = "caml_terminfo_standout";; +external resume : int -> unit = "caml_terminfo_resume";; diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/warnings.ml b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/warnings.ml new file mode 100644 index 000000000000..d47d4ba0b97f --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/warnings.ml @@ -0,0 +1,191 @@ +(***********************************************************************) +(* *) +(* Objective Caml *) +(* *) +(* Pierre Weis && Damien Doligez, INRIA Rocquencourt *) +(* *) +(* Copyright 1998 Institut National de Recherche en Informatique et *) +(* en Automatique. All rights reserved. This file is distributed *) +(* under the terms of the Q Public License version 1.0. *) +(* *) +(***********************************************************************) + +(* $Id: warnings.ml,v 1.1 2007/09/24 23:04:52 so294 Exp $ *) + +(* Please keep them in alphabetical order *) + +type t = (* A is all *) + | Comment_start (* C *) + | Comment_not_end + | Deprecated (* D *) + | Fragile_match of string (* E *) + | Partial_application (* F *) + | Labels_omitted (* L *) + | Method_override of string list (* M *) + | Partial_match of string (* P *) + | Statement_type (* S *) + | Unused_match (* U *) + | Unused_pat + | Instance_variable_override of string (* V *) + | Illegal_backslash (* X *) + | Implicit_public_methods of string list + | Unerasable_optional_argument + | Undeclared_virtual_method of string + | Not_principal of string + | Without_principality of string + | Unused_argument + | Nonreturning_statement + | Camlp4 of string + | All_clauses_guarded + | Useless_record_with + | Unused_var of string (* Y *) + | Unused_var_strict of string (* Z *) +;; + +let letter = function (* 'a' is all *) + | Comment_start + | Comment_not_end -> 'c' + | Deprecated -> 'd' + | Fragile_match _ -> 'e' + | Partial_application -> 'f' + | Labels_omitted -> 'l' + | Method_override _ -> 'm' + | Partial_match _ -> 'p' + | Statement_type -> 's' + | Unused_match + | Unused_pat -> 'u' + | Instance_variable_override _ -> 'v' + | Illegal_backslash + | Implicit_public_methods _ + | Unerasable_optional_argument + | Undeclared_virtual_method _ + | Not_principal _ + | Without_principality _ + | Unused_argument + | Nonreturning_statement + | Camlp4 _ + | Useless_record_with + | All_clauses_guarded -> 'x' + | Unused_var _ -> 'y' + | Unused_var_strict _ -> 'z' +;; + +let active = Array.create 27 true;; +let error = Array.create 27 false;; + +let translate c = + if c >= 'A' && c <= 'Z' then + (Char.code c - Char.code 'A', true) + else if c >= 'a' && c <= 'z' then + (Char.code c - Char.code 'a', false) + else + (26, false) +;; + +let is_active x = + let (n, _) = translate (letter x) in + active.(n) +;; + +let is_error x = + let (n, _) = translate (letter x) in + error.(n) +;; + +let parse_options iserr s = + let flags = if iserr then error else active in + for i = 0 to String.length s - 1 do + if s.[i] = 'A' then Array.fill flags 0 (Array.length flags) true + else if s.[i] = 'a' then Array.fill flags 0 (Array.length flags) false + else begin + let (n, fl) = translate s.[i] in + flags.(n) <- fl; + end; + done +;; + +let () = parse_options false "elz";; + +let message = function + | Partial_match "" -> "this pattern-matching is not exhaustive." + | Partial_match s -> + "this pattern-matching is not exhaustive.\n\ + Here is an example of a value that is not matched:\n" ^ s + | Unused_match -> "this match case is unused." + | Unused_pat -> "this sub-pattern is unused." + | Fragile_match "" -> + "this pattern-matching is fragile." + | Fragile_match s -> + "this pattern-matching is fragile.\n\ + It will remain exhaustive when constructors are added to type " ^ s ^ "." + | Labels_omitted -> + "labels were omitted in the application of this function." + | Method_override [lab] -> + "the method " ^ lab ^ " is overriden in the same class." + | Method_override (cname :: slist) -> + String.concat " " + ("the following methods are overriden by the class" + :: cname :: ":\n " :: slist) + | Method_override [] -> assert false + | Instance_variable_override lab -> + "the instance variable " ^ lab ^ " is overriden.\n" ^ + "The behaviour changed in ocaml 3.10 (previous behaviour was hiding.)" + | Partial_application -> + "this function application is partial,\n\ + maybe some arguments are missing." + | Statement_type -> + "this expression should have type unit." + | Comment_start -> "this is the start of a comment." + | Comment_not_end -> "this is not the end of a comment." + | Deprecated -> "this syntax is deprecated." + | Unused_var v | Unused_var_strict v -> "unused variable " ^ v ^ "." + | Illegal_backslash -> "illegal backslash escape in string." + | Implicit_public_methods l -> + "the following private methods were made public implicitly:\n " + ^ String.concat " " l ^ "." + | Unerasable_optional_argument -> "this optional argument cannot be erased." + | Undeclared_virtual_method m -> "the virtual method "^m^" is not declared." + | Not_principal s -> s^" is not principal." + | Without_principality s -> s^" without principality." + | Unused_argument -> "this argument will not be used by the function." + | Nonreturning_statement -> + "this statement never returns (or has an unsound type.)" + | Camlp4 s -> s + | All_clauses_guarded -> + "bad style, all clauses in this pattern-matching are guarded." + | Useless_record_with -> + "this record is defined by a `with' expression,\n\ + but no fields are borrowed from the original." +;; + +let nerrors = ref 0;; + +let print ppf w = + let msg = message w in + let flag = Char.uppercase (letter w) in + let newlines = ref 0 in + for i = 0 to String.length msg - 1 do + if msg.[i] = '\n' then incr newlines; + done; + let (out, flush, newline, space) = + Format.pp_get_all_formatter_output_functions ppf () + in + let countnewline x = incr newlines; newline x in + Format.pp_set_all_formatter_output_functions ppf out flush countnewline space; + Format.fprintf ppf "%c: %s" flag msg; + Format.pp_print_flush ppf (); + Format.pp_set_all_formatter_output_functions ppf out flush newline space; + let (n, _) = translate (letter w) in + if error.(n) then incr nerrors; + !newlines +;; + +exception Errors of int;; + +let check_fatal () = + if !nerrors > 0 then begin + let e = Errors !nerrors in + nerrors := 0; + raise e; + end; +;; diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/warnings.mli b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/warnings.mli new file mode 100644 index 000000000000..5537ac7f0f64 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/warnings.mli @@ -0,0 +1,56 @@ +(***********************************************************************) +(* *) +(* Objective Caml *) +(* *) +(* Pierre Weis && Damien Doligez, INRIA Rocquencourt *) +(* *) +(* Copyright 1998 Institut National de Recherche en Informatique et *) +(* en Automatique. All rights reserved. This file is distributed *) +(* under the terms of the Q Public License version 1.0. *) +(* *) +(***********************************************************************) + +(* $Id: warnings.mli,v 1.1 2007/09/24 23:04:52 so294 Exp $ *) + +open Format + +type t = (* A is all *) + | Comment_start (* C *) + | Comment_not_end + | Deprecated (* D *) + | Fragile_match of string (* E *) + | Partial_application (* F *) + | Labels_omitted (* L *) + | Method_override of string list (* M *) + | Partial_match of string (* P *) + | Statement_type (* S *) + | Unused_match (* U *) + | Unused_pat + | Instance_variable_override of string (* V *) + | Illegal_backslash (* X *) + | Implicit_public_methods of string list + | Unerasable_optional_argument + | Undeclared_virtual_method of string + | Not_principal of string + | Without_principality of string + | Unused_argument + | Nonreturning_statement + | Camlp4 of string + | All_clauses_guarded + | Useless_record_with + | Unused_var of string (* Y *) + | Unused_var_strict of string (* Z *) +;; + +val parse_options : bool -> string -> unit;; + +val is_active : t -> bool;; +val is_error : t -> bool;; + +val print : formatter -> t -> int;; + (* returns the number of newlines in the printed string *) + + +exception Errors of int;; + +val check_fatal : unit -> unit;; diff --git a/vendors/ott/examples/ocaml_light/hol/preservationScript.sml b/vendors/ott/examples/ocaml_light/hol/preservationScript.sml new file mode 100644 index 000000000000..3219ddfbe09d --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/preservationScript.sml @@ -0,0 +1,1270 @@ +(* +load "ottLib"; +load "substsTheory"; +load "env_permTheory"; +quietdec:=true; +*) +open HolKernel Parse bossLib boolLib combinTheory listTheory rich_listTheory optionTheory pairTheory +open sortingTheory; +open ottLib ottTheory caml_typedefTheory; +open utilTheory basicTheory environmentTheory validTheory strengthenTheory weakenTheory type_substsTheory; +open substsTheory shiftTheory env_permTheory teqTheory; +(* +quietdec:=false; +*) + +val _ = new_theory "preservation"; + +val PERM_lem = Q.prove ( +`!l1 l2 l3 P. EVERY P l1 /\ PERM l1 (l2 ++ l3) ==> EVERY P l2`, +SRW_TAC [] [EVERY_MEM] THEN METIS_TAC [MEM_APPEND, PERM_MEM_EQ]); + + +val EVERY_FORALL = Q.prove ( +`!P l. EVERY (\x. !y. P x y) l = !yl. (LENGTH l = LENGTH yl) ==> EVERY (\(x, y). P x y) (ZIP (l, yl))`, +STRIP_TAC THEN Induct THEN SRW_TAC [] [] THENL +[Cases_on `yl` THEN FULL_SIMP_TAC (srw_ss()) [], + EQ_TAC THEN SRW_TAC [] [] THENL + [Cases_on `yl` THEN FULL_SIMP_TAC (srw_ss()) [], + POP_ASSUM (MP_TAC o Q.SPEC `y::MAP (\x. ARB) l`) THEN SRW_TAC [] [], + Q.PAT_ASSUM `!yl. Q yl` (MP_TAC o Q.SPEC `ARB::yl`) THEN SRW_TAC [] []]]); + +val EVERY_EXISTS = Q.prove ( +`!P l. EVERY (\x. ?y. P x y) l = ?yl. (LENGTH l = LENGTH yl) /\ EVERY (\(x, y). P x y) (ZIP (l, yl))`, +STRIP_TAC THEN Induct THEN SRW_TAC [] [] THENL +[Q.EXISTS_TAC `[]` THEN SRW_TAC [] [], + EQ_TAC THEN SRW_TAC [] [] THENL + [Q.EXISTS_TAC `y::yl` THEN FULL_SIMP_TAC (srw_ss()) [], + Cases_on `yl` THEN FULL_SIMP_TAC (srw_ss()) [] THEN METIS_TAC [], + Cases_on `yl` THEN FULL_SIMP_TAC (srw_ss()) [] THEN METIS_TAC []]]); + +val EVERY_IMP = Q.prove ( +`!P Q l. EVERY (\x. P x ==> Q x) l /\ EVERY P l ==> EVERY Q l`, +NTAC 2 STRIP_TAC THEN Induct THEN SRW_TAC [] []); + +val EVERY_NEST = Q.prove ( +`!l f g. EVERY (\x. EVERY f (g x)) l = EVERY f (FLAT (MAP g l))`, +Induct THEN SRW_TAC [] []); + +val LENGTH_FLAT_REVERSE = Q.prove ( +`!l. LENGTH (FLAT (REVERSE l)) = LENGTH (FLAT l)`, +Induct THEN SRW_TAC [ARITH_ss] [FLAT_APPEND]); + +val _ = Parse.hide "S"; + +val shift_has0_thm = Q.prove ( +`(!t. ~typexpr_has0 t ==> ?t'. t = shiftt 0 1 t') /\ + (!tl. EVERY (\t. ~typexpr_has0 t) tl ==> ?tl'. tl = MAP (\t'. shiftt 0 1 t') tl')`, +Induct THEN SRW_TAC [] [typexpr_has0_def, shiftt_def, o_DEF] THEN1 +METIS_TAC [shiftt_def] THEN1 +(Q.EXISTS_TAC `TE_idxvar (n-1) n0` THEN SRW_TAC [ARITH_ss] [shiftt_def]) THEN METIS_TAC [shiftt_def, MAP]); + +val distinct_pat_env = Q.store_thm ("distinct_pat_env", +`!S E p t E'. JTpat S E p t E' ==> ALL_DISTINCT (MAP domEB E')`, +RULE_INDUCT_TAC JTpat_ind [domEB_def, ALL_DISTINCT_APPEND, DISJOINT_MEM, EVERY_MEM] [] THEN +METIS_TAC []); + +val no_value_red_thm = Q.prove ( +`!e L e'. is_value_of_expr e ==> ~JR_expr e L e'`, +recInduct is_value_of_expr_ind THEN SRW_TAC [] [is_value_of_expr_def, JR_expr_fun] THEN +CCONTR_TAC THEN FULL_SIMP_TAC list_ss [is_value_of_expr_def, expr_11, expr_distinct, JR_expr_fun] THEN +METIS_TAC []); + +val binary_primapp_lem = Q.prove ( +`!e. is_binary_prim_app_value_of_expr e = ?bp. e = Expr_bprim bp`, +Cases THEN SRW_TAC [] [is_binary_prim_app_value_of_expr_def]); + +val nexp_red_lem1 = Q.prove ( +`!e L e'. is_non_expansive_of_expr e /\ JR_expr e L e' ==> (L = Lab_nil)`, +recInduct is_non_expansive_of_expr_ind THEN +SRW_TAC [] [is_non_expansive_of_expr_def, JR_expr_fun] THEN +FULL_SIMP_TAC list_ss [MEM_APPEND, EVERY_APPEND, binary_primapp_lem, expr_distinct] THEN +SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [JR_expr_fun] THEN METIS_TAC []); + +val nexp_red_lem2 = Q.prove ( +`!e L e'. is_non_expansive_of_expr e /\ JR_expr e L e' ==> is_non_expansive_of_expr e'`, +recInduct is_non_expansive_of_expr_ind THEN +SRW_TAC [] [is_non_expansive_of_expr_def, JR_expr_fun] THEN +FULL_SIMP_TAC list_ss [is_non_expansive_of_expr_def] THEN +FULL_SIMP_TAC list_ss [MEM_APPEND, EVERY_APPEND, binary_primapp_lem, expr_distinct] THEN +SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [JR_expr_fun] THENL +[METIS_TAC [], + METIS_TAC [], + METIS_TAC [], + METIS_TAC [], + METIS_TAC [], + METIS_TAC [], + MATCH_MP_TAC substs_nexp_thm THEN SRW_TAC [] [EVERY_MAP] THEN + FULL_SIMP_TAC list_ss [recfun_def, EVERY_MEM, substs_value_name_letrec_binding_def] THEN + METIS_TAC [is_non_expansive_of_expr_def]]); + +val nexp_red_thm = Q.store_thm ("nexp_red_thm", +`!e L e'. is_non_expansive_of_expr e /\ JR_expr e L e' ==> is_non_expansive_of_expr e' /\ (L = Lab_nil)`, +METIS_TAC [nexp_red_lem1, nexp_red_lem2]); + +val value_nonexpansive_thm = Q.store_thm ("value_nonexpansive_thm", +`!v. is_value_of_expr v ==> is_non_expansive_of_expr v`, +recInduct is_value_of_expr_ind THEN +SRW_TAC [] [is_value_of_expr_def, is_non_expansive_of_expr_def, EVERY_MEM, LAMBDA_PROD2] THEN +SRW_TAC [] [is_binary_prim_app_value_of_expr_def] THEN +Cases_on `e` THEN METIS_TAC [SND]); + +local + +val lem3 = Q.prove ( +`!l1 l2 l3. (MAP FST l1 = MAP (\z. substs_typevar_typexpr l3 (TE_var (SND z))) l1) /\ + (MAP SND l1 = MAP FST l2) ==> + (l1 = MAP (\(tv, t). (substs_typevar_typexpr l3 (TE_var tv), tv)) l2)`, +Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN SRW_TAC [] [] THEN +FULL_SIMP_TAC (srw_ss()) [LAMBDA_PROD2] THEN Cases_on `h` THEN FULL_SIMP_TAC (srw_ss()) []); + +val lem4 = Q.prove ( +`!t h'. ~MEM (FST h') (MAP FST t) ==> + (MAP (\z. case (if FST z = FST h' then SOME r else list_assoc (FST z) l1) of + NONE -> TE_var (FST z) || SOME t_5 -> t_5) t = + MAP (\z. case list_assoc (FST z) l1 of NONE -> TE_var (FST z) || SOME t_5 -> t_5) t)`, +Induct THEN SRW_TAC [] []); + +val lem5 = Q.prove ( +`!l1 l2. ALL_DISTINCT (MAP FST l1) /\ + (MAP FST l1 = MAP FST l2) ==> + (MAP (\z. substs_typevar_typexpr l1 (TE_var (FST z))) l2 = MAP SND l1)`, +Induct THEN SRW_TAC [] [substs_typevar_typexpr_def] THEN Cases_on `l2` THEN +FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [] THEN Cases_on `h` THEN FULL_SIMP_TAC (srw_ss()) [] THEN +SRW_TAC [] [list_assoc_def, lem4] THEN FULL_SIMP_TAC (srw_ss()) [substs_typevar_typexpr_def]); + +val lem8 = Q.prove ( +`!l1 l2 l3 l4. + EVERY (\t. tkind E (substs_typevar_typexpr (MAP (\x. (FST x, TE_constr [] TC_unit)) l1) t)) (MAP SND l3) /\ + JTeq E (TE_constr (MAP SND l1) typeconstr) (TE_constr (MAP SND l2) typeconstr) /\ + ~is_abbrev_tc E (TE_constr (MAP SND l1) typeconstr) /\ + ~is_abbrev_tc E (TE_constr (MAP SND l2) typeconstr) /\ + (MAP FST l1 = MAP FST l2) /\ (MAP SND l3 = MAP SND l4) ==> + EVERY (\x. JTeq E (FST x) (SND x)) + (ZIP (MAP (\x. substs_typevar_typexpr l1 (SND x)) l3, + MAP (\x. substs_typevar_typexpr l2 (SND x)) l4))`, +Induct_on `l3` THEN SRW_TAC [] [] THEN Cases_on `l4` THEN FULL_SIMP_TAC (srw_ss()) [] THEN +MATCH_MP_TAC teq_substs_same_thm THEN SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [teq_fun1]); + +in + +val constr_arg_types_lem = Q.prove ( +`!E c ts1 ts2 t t'. JTconstr_p E c ts1 t /\ JTconstr_p E c ts2 t' /\ JTeq E t t' ==> + (LENGTH ts1 = LENGTH ts2) /\ EVERY (\(t1, t2). JTeq E t1 t2) (ZIP (ts1, ts2))`, +SRW_TAC [] [JTconstr_p_cases, JTinst_named_cases, substs_typevar_typexpr_def, MAP_11_EQ] THEN +FULL_SIMP_TAC (srw_ss()) [MAP_MAP, is_abbrev_tc_def, teq_fun1, Eok_def, ETA_THM, MAP_11_ALL_DISTINCT] THEN +SRW_TAC [] [] THENL +[METIS_TAC [LENGTH_MAP], + IMP_RES_TAC lem3 THEN FULL_SIMP_TAC (srw_ss()) [MAP_MAP, LAMBDA_PROD2, ETA_THM] THEN SRW_TAC [] [] THEN + `JTeq E (TE_constr (MAP SND typevar_t_list) typeconstr) (TE_constr (MAP SND typevar_t_list') typeconstr)` + by METIS_TAC [lem5] THEN + `Eok E` by METIS_TAC [ok_ok_thm] THEN + IMP_RES_TAC lookup_ok_thm THEN Cases_on `typeconstr` THEN FULL_SIMP_TAC (srw_ss()) [EBok_def] THEN + MATCH_MP_TAC (GEN_ALL lem8) THEN SRW_TAC [] [] THEN + FULL_SIMP_TAC (srw_ss()) [MAP_11_EQ, ETA_THM, Eok_def] THENL + [Q.EXISTS_TAC `TC_name t'`, Q.EXISTS_TAC `TC_exn`] THEN + SRW_TAC [] [is_abbrev_tc_def] THEN + FULL_SIMP_TAC (srw_ss()) [Eok_def, substs_typevar_typexpr_def, MAP_MAP, EVERY_CONJ, tp_to_tv_def, + EVERY_MAP]]); + + +val record_arg_types_lem = Q.prove ( +`!E fn t1 t1' t2 t2'. JTfield E fn t1 t2 /\ JTfield E fn t1' t2' /\ JTeq E t1 t1' ==> (JTeq E t2 t2')`, +SRW_TAC [] [JTfield_cases, JTinst_named_cases, substs_typevar_typexpr_def, MAP_11_EQ] THEN +FULL_SIMP_TAC (srw_ss()) [MAP_MAP, Eok_def, MAP_11_ALL_DISTINCT, ETA_THM] THEN +IMP_RES_TAC lem3 THEN FULL_SIMP_TAC (srw_ss()) [MAP_MAP, LAMBDA_PROD2, ETA_THM] THEN SRW_TAC [] [] THEN +`JTeq E (TE_constr (MAP SND typevar_t_list) (TC_name typeconstr_name)) + (TE_constr (MAP SND typevar_t_list') (TC_name typeconstr_name))` + by METIS_TAC [lem5] THEN +`Eok E` by METIS_TAC [ok_ok_thm] THEN +IMP_RES_TAC lookup_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [EBok_def] THEN +MATCH_MP_TAC (GEN_ALL teq_substs_same_thm) THEN SRW_TAC [] [] THEN +FULL_SIMP_TAC (srw_ss()) [MAP_11_EQ, ETA_THM, Eok_def, MAP_MAP, substs_typevar_typexpr_def, tp_to_tv_def, + is_abbrev_tc_def, teq_fun1]); + +end; + +local + +val lem1 = Q.prove ( +`!x. (substs_x_xs case x of substs_x_xs l -> l) = x`, +Cases THEN SRW_TAC [] []); + +val lem2 = Q.prove ( +`!l1 l2. (MAP (\z. (F_name (FST z),SND z)) l1 = MAP (\z. (F_name (FST z),FST (SND z))) l2) = + (MAP (\z. (FST z,SND z)) l1 = MAP (\z. (FST z,FST (SND z))) l2)`, +SRW_TAC [] [MAP_pair] THEN METIS_TAC [MAP_11_EQ, field_11]); + +val lem3 = Q.prove ( +`!a b c d. PERM (a::b++c) d ==> PERM (b++a::c) d`, +SRW_TAC [] [PERM_CONS_EQ_APPEND] THEN METIS_TAC [CONS_PERM, PERM_TRANS, PERM_SYM]); + +val lem4 = Q.prove ( +`!l1 t. (LENGTH l1 = LENGTH t) /\ + EVERY (\(x1,x2). LENGTH x1 = LENGTH case x2 of substs_x_xs l -> l) (ZIP (l1,t)) ==> + (LENGTH (FLAT l1) = LENGTH (FLAT (MAP (\x. case x of substs_x_xs l -> l) t)))`, +Induct THEN SRW_TAC [] [] THEN Cases_on `t` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] []); + +val lem5 = Q.prove ( +`!(Q:Tsigma -> environment -> environment -> (value_name # expr) list -> bool) + select_env select_type (select_pat: 'a -> pattern) (l1:'a list) l2 l3 P S E. + EVERY (\x. !v substs. P v (select_pat x) (substs_x_xs substs) /\ JTe S E v (select_type x) ==> + Q S E (select_env x) substs) l1 /\ + EVERY (\x. P (FST x) (FST (SND x)) (SND (SND x))) l2 /\ + EVERY (\x. JTe S E (FST x) (SND x)) l3 /\ + EVERY (\(t1,t2). JTeq E t1 t2) (ZIP (MAP SND l3,MAP select_type l1)) /\ + (MAP select_pat l1 = MAP (\x. (FST (SND x))) l2) /\ + (MAP FST l2 = MAP FST l3) ==> + EVERY (\(x1, x2). Q S E x1 (case x2 of substs_x_xs l -> l)) + (ZIP (MAP select_env l1, MAP (SND o SND) l2))`, +NTAC 4 STRIP_TAC THEN Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN Cases_on `l3` THEN SRW_TAC [] [] THEN +FULL_SIMP_TAC (srw_ss()) [] THEN `JTe S E (FST h'') (select_type h)` by METIS_TAC [teq_thm] THEN +Cases_on `SND (SND h')` THEN SRW_TAC [] [] THEN METIS_TAC []); + +val lem6= SIMP_RULE (srw_ss()) [] (Q.SPEC +`\S E x y. ?E''. PERM x E'' /\ + EVERY (\x. ?t. (FST x = EB_vn (FST (SND x)) (TS_forall (shiftt 0 1 t))) /\ + JTe S E (SND (SND x)) t) + (ZIP (REVERSE E'',y))` +lem5); + +val lem8 = Q.prove ( +`!l1 l2. +(LENGTH l1 = LENGTH l2) /\ EVERY (\(x1, x2). LENGTH x1 = LENGTH case x2 of substs_x_xs l -> l) (ZIP (l1,l2)) /\ +EVERY (\(x1,x2). ?E''. PERM x1 E'' /\ + EVERY (\x. ?t. (FST x = EB_vn (FST (SND x)) (TS_forall (shiftt 0 1 t))) /\ + JTe S E (SND (SND x)) t) + (ZIP (REVERSE E'', case x2 of substs_x_xs l -> l))) + (ZIP (l1,l2)) +==> +?E''. +PERM (FLAT (REVERSE l1)) E'' /\ +EVERY (\x. ?t. (FST x = EB_vn (FST (SND x)) (TS_forall (shiftt 0 1 t))) /\ + JTe S E (SND (SND x)) t) + (ZIP (REVERSE E'', FLAT (MAP (\x. case x of substs_x_xs l -> l) l2)))`, +Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [] THEN +RES_TAC THEN FULL_SIMP_TAC (srw_ss()) [] THEN +Q.EXISTS_TAC `E'''++E''` THEN SRW_TAC [] [FLAT_APPEND, REVERSE_APPEND] THEN1 +METIS_TAC [PERM_CONG] THEN +`LENGTH (REVERSE E'') = LENGTH case h' of substs_x_xs l -> l` by METIS_TAC [PERM_LENGTH, LENGTH_REVERSE] THEN +`LENGTH (REVERSE E''') = LENGTH (FLAT (MAP (\x. case x of substs_x_xs l -> l) t))` + by METIS_TAC [PERM_LENGTH, LENGTH_REVERSE, LENGTH_FLAT_REVERSE, lem4] THEN +SRW_TAC [] [ZIP_APPEND]); + +val INST_TUPLE = + SIMP_RULE (srw_ss()) [o_DEF] o + Q.SPECL [`SND o SND`, `FST o SND`, `FST`] o + INST_TYPE [alpha |-> Type`:pattern # typexpr # environment`]; + +val INST_CTOR = + SIMP_RULE (srw_ss()) [o_DEF] o + Q.SPECL [`FST o SND`, `SND o SND`, `FST`] o + INST_TYPE [alpha |-> Type`:pattern # environment # typexpr`]; + +val INST_REC = + SIMP_RULE (srw_ss()) [o_DEF] o + Q.SPECL [`FST o SND o SND`, `SND o SND o SND`, `FST o SND`] o + INST_TYPE [alpha |-> Type`:field_name # pattern # environment # typexpr`]; + +val lem9 = Q.prove ( +`!l1 l2. (MAP FST l1 = MAP FST l2) /\ + EVERY (\x. JTfield E (FST x) (TE_constr t'_list (TC_name typeconstr_name)) (SND (SND x))) l1 /\ + EVERY (\x. JTfield E (FST x) t (SND (SND (SND x)))) l2 /\ + JTeq E (TE_constr t'_list (TC_name typeconstr_name)) t ==> + EVERY (\(t1,t2). JTeq E t1 t2) + (ZIP (MAP SND (MAP SND l1), MAP (\x. SND (SND (SND x))) l2))`, +Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN FULL_SIMP_TAC (srw_ss()) [] THEN +METIS_TAC [record_arg_types_lem]); + +val lem10 = Q.prove ( +`!l3 l4 l5 l6. + PERM (l4 ++ l5) l6 /\ + (MAP (\z. (F_name (FST z),SND z)) l6 = MAP (\z. (F_name (FST z),FST (SND z))) l3) ==> + ?l1 l2. + PERM l3 (l1 ++ l2) /\ (MAP (\x. (FST x, FST (SND x))) l1 = l4)`, +Induct_on `l4` THEN SRW_TAC [] [] THEN1 METIS_TAC [PERM_REFL] THEN +FULL_SIMP_TAC (srw_ss()) [PERM_CONS_EQ_APPEND] THEN SRW_TAC [] [] THEN +FULL_SIMP_TAC (srw_ss()) [MAP_split] THEN SRW_TAC [] [] THEN Cases_on `l5'` THEN +FULL_SIMP_TAC (srw_ss()) [] THEN +`?l1 l2. PERM (l4'++t) (l1 ++ l2) /\ (MAP (\x. (FST x,FST (SND x))) l1 = l4)` by + METIS_TAC [MAP_APPEND] THEN +Q.EXISTS_TAC `h'::l1` THEN Cases_on `h` THEN SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [] THEN +Q.EXISTS_TAC `l2` THEN ONCE_REWRITE_TAC [PERM_SYM] THEN SRW_TAC [] [PERM_CONS_EQ_APPEND] THEN +METIS_TAC [PERM_SYM]); + +in + +val pat_num_bindings_lem = Q.store_thm ("pat_num_bindings_lem", +`!S E p t E'. JTpat S E p t E' ==> !v substs. JM_match v p (substs_x_xs substs) ==> + (LENGTH E' = LENGTH substs)`, +RULE_INDUCT_TAC JTpat_ind [JM_match_fun] +[([``"JTpat_construct"``], + SRW_TAC [] [] THEN REPEAT (Q.PAT_ASSUM `JTconstr_p a b c d` (K ALL_TAC)) THEN + REPEAT (Q.PAT_ASSUM `ALL_DISTINCT x` (K ALL_TAC)) THEN + REPEAT (POP_ASSUM MP_TAC) THEN + MAP_EVERY Q.ID_SPEC_TAC [`v_pat_substs_x_list`, `pattern_E_t_list`] THEN + Induct THEN SRW_TAC [] [] THEN + Cases_on `v_pat_substs_x_list` THEN FULL_SIMP_TAC list_ss [] THEN + SRW_TAC [] [SUM_APPEND, LENGTH_FLAT] THEN + FULL_SIMP_TAC list_ss [SUM_APPEND, LENGTH_FLAT, ELIM_UNCURRY] THEN + METIS_TAC [lem1]), + ([``"JTpat_tuple"``], + SRW_TAC [] [] THEN REPEAT (Q.PAT_ASSUM `LENGTH x >= y` (K ALL_TAC)) THEN + REPEAT (Q.PAT_ASSUM `ALL_DISTINCT x` (K ALL_TAC)) THEN + REPEAT (POP_ASSUM MP_TAC) THEN + MAP_EVERY Q.ID_SPEC_TAC [`v_pat_substs_x_list`, `pattern_t_E_list`] THEN + Induct THEN SRW_TAC [] [] THEN + Cases_on `v_pat_substs_x_list` THEN FULL_SIMP_TAC list_ss [] THEN + SRW_TAC [] [SUM_APPEND, LENGTH_FLAT] THEN + FULL_SIMP_TAC list_ss [SUM_APPEND, LENGTH_FLAT, ELIM_UNCURRY] THEN + METIS_TAC [lem1]), + ([``"JTpat_record"``], + SRW_TAC [] [] THEN REPEAT (Q.PAT_ASSUM `LENGTH x >= y` (K ALL_TAC)) THEN + REPEAT (Q.PAT_ASSUM `ALL_DISTINCT x` (K ALL_TAC)) THEN + REPEAT (Q.PAT_ASSUM `PERM x y` (K ALL_TAC)) THEN + REPEAT (POP_ASSUM MP_TAC) THEN + MAP_EVERY Q.ID_SPEC_TAC [`field_name'_pat_substs_x_v'_list`, `field_name_pattern_E_t_list`] THEN + Induct THEN SRW_TAC [] [] THEN + Cases_on `field_name'_pat_substs_x_v'_list` THEN FULL_SIMP_TAC list_ss [] THEN + SRW_TAC [] [SUM_APPEND, LENGTH_FLAT] THEN + FULL_SIMP_TAC list_ss [SUM_APPEND, LENGTH_FLAT, ELIM_UNCURRY] THEN + METIS_TAC [lem1])] +THEN +SRW_TAC [ARITH_ss][] THEN FULL_SIMP_TAC list_ss [] THEN METIS_TAC [arithmeticTheory.ADD1, lem1, PERM_LENGTH]); + +local + +val lem7 = Q.prove ( +`!select_env select_type select_pat (l1:'a list) l2. + (LENGTH l1 = LENGTH l2) /\ + (MAP select_pat l1 = MAP (\x. FST (SND x)) l2) /\ + EVERY (\x. JTpat S E (select_pat x) (select_type x) (select_env x)) l1 /\ + EVERY (\x. JM_match (FST x) (FST (SND x)) (SND (SND x))) l2 ==> + EVERY (\(x1, x2). LENGTH x1 = LENGTH case x2 of substs_x_xs l -> l) + (ZIP (MAP select_env l1, MAP (SND o SND) l2))`, +NTAC 3 STRIP_TAC THEN Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN FULL_SIMP_TAC (srw_ss()) [] THEN +SRW_TAC [] [] THEN +Cases_on `SND (SND h')` THEN FULL_SIMP_TAC (srw_ss()) [] THEN METIS_TAC [pat_num_bindings_lem]); + +in + +val pat_preservation_lem = Q.prove ( +`!S E p t E'. JTpat S E p t E' ==> !v substs. JM_match v p (substs_x_xs substs) /\ JTe S E v t ==> + ?E''. PERM E' E'' /\ + (EVERY (\(EB, subst). ?t. (EB = EB_vn (FST subst) (TS_forall (shiftt 0 1 t))) /\ + JTe S E (SND subst) t) + (ZIP (REVERSE E'', substs)))`, +RULE_INDUCT_TAC JTpat_sind [JM_match_fun, EVERY_DEF, ZIP, domEB_def, JTe_fun, ELIM_UNCURRY] +[([``"JTpat_var"``, ``"JTpat_typed"``, ``"JTpat_construct_any"``], + SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [JTe_fun] THEN METIS_TAC []), + ([``"JTpat_or"``], + SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [JTe_fun] THEN METIS_TAC [PERM_LENGTH, PERM_TRANS]), + ([``"JTpat_alias"``], + SRW_TAC [] [] THEN + FULL_SIMP_TAC (srw_ss()) [arithmeticTheory.ADD1] THEN + RES_TAC THEN Q.EXISTS_TAC `EB_vn x (TS_forall (shiftt 0 1 t))::E''` THEN + `LENGTH (REVERSE E'') = LENGTH x_v_list` by + METIS_TAC [LENGTH_REVERSE, PERM_LENGTH, pat_num_bindings_lem] THEN + SRW_TAC [] [ZIP_APPEND] THEN METIS_TAC []), + ([``"JTpat_construct"``], + SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [JTe_fun] THEN + `EVERY (\(t1, t2). JTeq E t1 t2) (ZIP (MAP SND e_t_list, MAP (\x. SND (SND x)) pattern_E_t_list))` + by METIS_TAC [constr_arg_types_lem, LENGTH_MAP] THEN + `LENGTH e_t_list = LENGTH pattern_E_t_list` by METIS_TAC [LENGTH_MAP] THEN + FULL_SIMP_TAC (srw_ss()) [] THEN + IMP_RES_TAC (INST_CTOR lem6) THEN + SRW_TAC [] [MAP_MAP] THEN + IMP_RES_TAC (INST_CTOR lem7) THEN IMP_RES_TAC lem8 THEN FULL_SIMP_TAC (srw_ss()) [MAP_MAP, o_DEF] THEN + METIS_TAC [LENGTH_MAP]), + ([``"JTpat_tuple"``], + SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [JTe_fun, teq_fun1, is_abbrev_tc_def] THEN + `LENGTH e_t_list = LENGTH pattern_t_E_list` by METIS_TAC [LENGTH_MAP] THEN + FULL_SIMP_TAC (srw_ss()) [] THEN + IMP_RES_TAC (INST_TUPLE lem6) THEN + SRW_TAC [] [MAP_MAP] THEN + IMP_RES_TAC (INST_TUPLE lem7) THEN IMP_RES_TAC lem8 THEN FULL_SIMP_TAC (srw_ss()) [MAP_MAP, o_DEF] THEN + METIS_TAC [LENGTH_MAP]), + ([``"JTpat_record"``], + SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [JTe_fun] THEN + `?field_name_e_t_list_perm1 field_name_e_t_list_perm2. + PERM field_name_e_t_list (field_name_e_t_list_perm1 ++ field_name_e_t_list_perm2) /\ + (MAP (\x. (FST x, FST (SND x))) field_name_e_t_list_perm1 = + MAP (\x. (FST x, SND (SND (SND x)))) field_name'_pat_substs_x_v'_list)` by + METIS_TAC [lem10] THEN + `EVERY (\x. JM_match (FST x) (FST (SND x)) (SND (SND x))) + (MAP (\(fn, p, s, v). (v, p, s)) field_name'_pat_substs_x_v'_list)` + by SRW_TAC [] [EVERY_MAP, LAMBDA_PROD2] THEN + `EVERY (\x. JTe S' E (FST x) (SND x)) (MAP SND field_name_e_t_list_perm1)` + by (SRW_TAC [] [EVERY_MAP, LAMBDA_PROD2] THEN METIS_TAC [PERM_lem]) THEN + FULL_SIMP_TAC (srw_ss()) [MAP_pair, MAP_11_EQ, field_11, ETA_THM] THEN + `EVERY (\(t1,t2). JTeq E t1 t2) + (ZIP (MAP SND (MAP SND field_name_e_t_list_perm1), + MAP (\x. SND (SND (SND x))) field_name_pattern_E_t_list))` + by METIS_TAC [lem9, PERM_lem] THEN + `MAP (\x. FST (SND x)) field_name_pattern_E_t_list = + MAP (\x. FST (SND x)) (MAP (\(fn, p, s, v). (v, p, s)) field_name'_pat_substs_x_v'_list)` by + FULL_SIMP_TAC (srw_ss()) [MAP_pair, MAP_MAP, LAMBDA_PROD2] THEN + `MAP FST (MAP (\(fn, p, s, v). (v, p, s)) field_name'_pat_substs_x_v'_list) = + MAP FST (MAP SND field_name_e_t_list_perm1)` by + SRW_TAC [] [MAP_MAP, LAMBDA_PROD2] THEN + `LENGTH field_name_pattern_E_t_list = + LENGTH (MAP (\(fn,p,s,v). (v,p,s)) field_name'_pat_substs_x_v'_list)` by METIS_TAC [LENGTH_MAP] THEN + IMP_RES_TAC (INST_REC lem6) THEN + SRW_TAC [] [MAP_MAP] THEN + IMP_RES_TAC (INST_REC lem7) THEN IMP_RES_TAC lem8 THEN + FULL_SIMP_TAC (srw_ss()) [MAP_MAP, o_DEF, LAMBDA_PROD2] THEN + METIS_TAC []), + ([``"JTpat_cons"``], + SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [JTe_fun] THEN + Cases_on `substs_x2` THEN Cases_on `substs_x1` THEN + `JTe S' E v2 (TE_constr [t] TC_list)` by METIS_TAC [teq_thm] THEN + FULL_SIMP_TAC (srw_ss()) [is_abbrev_tc_def, teq_fun1] THEN + `JTe S' E v1 t` by METIS_TAC [teq_thm] THEN + RES_TAC THEN Q.EXISTS_TAC `E''' ++ E'''''` THEN SRW_TAC [] [] THEN1 + METIS_TAC [PERM_CONG] THEN IMP_RES_TAC pat_num_bindings_lem THEN + `(LENGTH (REVERSE E''''') = LENGTH l') /\ (LENGTH (REVERSE E''') = LENGTH l)` + by METIS_TAC [PERM_LENGTH, LENGTH_REVERSE] THEN + SRW_TAC [] [REVERSE_APPEND, ZIP_APPEND])]); +end; + +val pat_preservation_thm = Q.store_thm ("pat_preservation_thm", +`!S E p t E'. JTpat S E p t E' ==> !v substs. JM_match v p (substs_x_xs substs) /\ JTe S E v t ==> + ?E''. PERM E' E'' /\ + (EVERY (\(EB, subst). ?t. (EB = EB_vn (FST subst) (TS_forall (shiftt 0 1 t))) /\ + JTe S E (SND subst) t) + (ZIP (REVERSE E'', substs)))`, +METIS_TAC [pat_preservation_lem, pat_num_bindings_lem]); + +end; + +val weak_teq_lem1 = Q.prove ( +`!E EB t1 t2. JTeq E t1 t2 /\ ~(EB = EB_tv) /\ Eok (EB::E) ==> JTeq (EB::E) t1 t2`, +METIS_TAC [MEM, APPEND, weak_teq_thm]); + +val uprim_preservation_lem = Q.prove ( +`!uprim e L e'. JRuprim uprim e L e' ==> !S E. closed_env E ==> !t1 t2. JTuprim E uprim (TE_arrow t1 t2) /\ + JTe S E e t1 /\ JTLin S E L ==> ?E''. JTLout S E L E'' /\ JTe S (E''++E) e' t2`, +RULE_INDUCT_TAC JRuprim_ind [JTe_fun, JTconst_cases, JTuprim_cases, JTLin_cases, Eok_def, JTLout_cases] +[([``"Juprim_deref"``], + SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [] THEN + FULL_SIMP_TAC (srw_ss()) [is_abbrev_tc_def, teq_fun1] THEN SRW_TAC [] [] THEN METIS_TAC [teq_thm]), + ([``"Juprim_ref_alloc"``], + SRW_TAC [] [GSYM LEFT_EXISTS_AND_THM, lookup_def, domEB_def, Eok_def] THEN + Q.EXISTS_TAC `t1` THEN SRW_TAC [] [] THEN + `tkind E (TE_constr [t1] TC_ref) /\ Eok (EB_l l t1::E)` + by (SRW_TAC [] [Eok_def] THEN METIS_TAC [ok_ok_thm]) THEN + `JTeq E (TE_constr [t1] TC_ref) (TE_constr [t1] TC_ref)` by METIS_TAC [JTeq_rules, ok_ok_thm] THEN + IMP_RES_TAC weak_teq_lem1 THEN FULL_SIMP_TAC (srw_ss()) [])]); + +val JTL_nil_lem = Q.store_thm ("JTL_nil_lem", +`!S E E'. JTLin S E Lab_nil /\ (JTLout S E Lab_nil E' = (E' = []))`, +SRW_TAC [] [JTLin_cases, JTLout_cases] THEN METIS_TAC []); + +val matching_step_preservation_lem = Q.prove ( +`!S E pm t' t pm'. JTpat_matching S E pm t' t /\ JRmatching_step v pm pm' ==> JTpat_matching S E pm' t' t`, +SRW_TAC [] [JRmatching_step_cases] THEN FULL_SIMP_TAC list_ss [JTe_fun] THEN +Cases_on `pattern_e_E_list` THEN FULL_SIMP_TAC list_ss [] THEN METIS_TAC [LENGTH_MAP]); + +local + +val lem3 = Q.prove ( +`!E. Eok E ==> JTeq E (TE_constr [] TC_bool) (TE_constr [] TC_bool) /\ + JTeq E (TE_constr [] TC_string) (TE_constr [] TC_string) /\ + JTeq E (TE_constr [] TC_exn) (TE_constr [] TC_exn)`, +SRW_TAC [] [] THEN +`tkind E (TE_constr [] TC_bool) /\ tkind E (TE_constr [] TC_string) /\ tkind E (TE_constr [] TC_exn)` + by SRW_TAC [] [Eok_def] THEN +METIS_TAC [JTeq_rules]); + +val lem1 = Q.prove ( +`!exprs E S. JTe S E (FOLDR Expr_and (Expr_constant CONST_true) exprs) (TE_constr [] TC_bool) = + EVERY (\e. JTe S E e (TE_constr [] TC_bool)) exprs /\ Eok E`, +Induct THEN SRW_TAC [] [JTe_fun, JTconst_cases] THEN +EQ_TAC THEN SRW_TAC [] [] THEN METIS_TAC [JTeq_rules, lem3]); + +val lem2 = Q.prove ( +`!l1 l2. (MAP (\z. (F_name (FST z),SND z)) l1 = MAP (\z. (F_name (FST z),FST (SND z))) l2) ==> + (l1 = MAP (\x. (FST x, FST (SND x))) l2)`, +Induct THEN Cases_on `l2` THEN SRW_TAC [] [] THEN Cases_on `h` THEN FULL_SIMP_TAC list_ss [] THEN +Cases_on `h'` THEN FULL_SIMP_TAC list_ss []); + +val lem4 = Q.prove ( +`!E t. JTeq E t t = tkind E t`, +METIS_TAC [JTeq_rules, teq_ok_thm]); + +val lem5 = Q.prove ( +`!v_v'_list e_t_list e_t_list'. + (MAP FST v_v'_list = MAP FST e_t_list) /\ + (MAP SND v_v'_list = MAP FST e_t_list') /\ + EVERY (\x. JTe S E (FST x) (SND x)) e_t_list' /\ + EVERY (\x. JTe S E (FST x) (SND x)) e_t_list /\ + EVERY (\(t1,t2). JTeq E t1 t2) (ZIP (MAP SND e_t_list,MAP SND e_t_list')) ==> + EVERY (\z. ?t1'. (?t1''. (?t. (?t'. (t = TE_arrow t' (TE_arrow t' (TE_constr [] TC_bool))) /\ tkind E t') /\ + JTeq E t (TE_arrow t1'' (TE_arrow t1' (TE_constr [] TC_bool)))) /\ + JTe S E (FST z) t1'') /\ + JTe S E (SND z) t1') + v_v'_list`, +Induct THEN SRW_TAC [] [] THEN Cases_on `e_t_list` THEN FULL_SIMP_TAC (srw_ss()) [] THEN +Cases_on `e_t_list'` THEN FULL_SIMP_TAC (srw_ss()) [] THENL +[Q.EXISTS_TAC `SND h''` THEN SRW_TAC [] [] THEN Q.EXISTS_TAC `SND h'` THEN SRW_TAC [] [] THEN + Q.EXISTS_TAC `TE_arrow (SND h') (TE_arrow (SND h') (TE_constr [] TC_bool))` THEN SRW_TAC [] [] THEN + METIS_TAC [teq_ok_thm, lem4, lem3, JTeq_rules, ok_ok_thm], + METIS_TAC [ok_ok_thm]]); + +in + +val bprim_preservation_lem = Q.prove ( +`!e1 bprim e2 L e'. JRbprim e1 bprim e2 L e' ==> !E S. closed_env E ==> + !t1 t2 t3. JTbprim E bprim (TE_arrow t1 (TE_arrow t2 t3)) /\ + JTe S E e1 t1 /\ JTe S E e2 t2 /\ JTLin S E L ==> + ?E''. JTLout S E L E'' /\ JTe S (E''++E) e' t3`, +RULE_INDUCT_TAC JRbprim_ind [JTe_fun, JTconst_cases, JTbprim_cases, JTLin_cases, JTLout_cases, Eok_def, + lem1, EVERY_MAP] +[([``"Jbprim_equal_loc"``], + SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [Eok_def] THEN SRW_TAC [] [JTuprim_cases] THEN + `tkind E (TE_constr [t] TC_ref)` by METIS_TAC [teq_ok_thm] THEN + FULL_SIMP_TAC (srw_ss()) [Eok_def] THEN + Q.EXISTS_TAC `t` THEN SRW_TAC [] [] THENL + [Q.EXISTS_TAC `t` THEN SRW_TAC [] [] THENL + [Q.EXISTS_TAC `TE_arrow t (TE_arrow t (TE_constr [] TC_bool))` THEN + SRW_TAC [] [Eok_def, lem4], + Q.EXISTS_TAC `TE_constr [t] TC_ref` THEN SRW_TAC [] [Eok_def, lem4] THEN + Q.EXISTS_TAC `TE_arrow (TE_constr [t] TC_ref) t` THEN SRW_TAC [] [Eok_def, lem4]], + Q.EXISTS_TAC `t1` THEN SRW_TAC [] [] THEN + Q.EXISTS_TAC `TE_arrow (TE_constr [t] TC_ref) t` THEN SRW_TAC [] [] THEN + METIS_TAC [JTeq_rules]]), + ([``"Jbprim_equal_const_true"``, ``"Jbprim_equal_const_false"``, ``"Jbprim_equal_cons_nil"``, + ``"Jbprim_equal_nil_cons"``, ``"Jbprim_equal_constr_false"``, ``"Jbprim_equal_const_constr_false"``, + ``"Jbprim_equal_constr_const_false"``], + METIS_TAC [ok_ok_thm, lem3]), + ([``"Jbprim_equal_fun"``], + SRW_TAC [] [JTuprim_cases, JTconstr_p_cases, Eok_def, JTconstr_c_cases] THEN + Q.EXISTS_TAC `TE_constr [] TC_exn` THEN SRW_TAC [] [] THENL + [Q.EXISTS_TAC `TE_arrow (TE_constr [] TC_exn) (TE_constr [] TC_bool)` THEN + SRW_TAC [] [Eok_def, lem4] THEN METIS_TAC [ok_ok_thm], + Q.EXISTS_TAC `[(Expr_constant (CONST_string "equal: functional value"), TE_constr [] TC_string)]` THEN + SRW_TAC [] [JTe_fun, JTconst_cases] THEN METIS_TAC [ok_ok_thm, lem3]]), + ([``"Jbprim_equal_cons"``], + SRW_TAC [] [lem4, Eok_def, COND_EXPAND_EQ] THEN + `tkind E(TE_constr [t] TC_list)` by METIS_TAC [teq_ok_thm] THEN + FULL_SIMP_TAC (srw_ss()) [Eok_def] THENL + [Q.EXISTS_TAC `t'` THEN SRW_TAC [] [] THEN Q.EXISTS_TAC `t` THEN SRW_TAC [] [] THEN + Q.EXISTS_TAC `TE_arrow t (TE_arrow t (TE_constr [] TC_bool))` THEN SRW_TAC [] [] THEN + `JTeq E (TE_constr [t] TC_list) (TE_constr [t'] TC_list)` by METIS_TAC [JTeq_rules] THEN + FULL_SIMP_TAC (srw_ss()) [teq_fun1, is_abbrev_tc_def] THEN + SRW_TAC [] [Eok_def] THEN + METIS_TAC [JTeq_rules, lem3, lem4, ok_ok_thm], + Q.EXISTS_TAC `TE_constr [t'] TC_list` THEN SRW_TAC [] [] THEN + Q.EXISTS_TAC `TE_constr [t] TC_list` THEN SRW_TAC [] [] THEN + Q.EXISTS_TAC `TE_arrow (TE_constr [t] TC_list) + (TE_arrow (TE_constr [t] TC_list) + (TE_constr [] TC_bool))` THEN + SRW_TAC [] [Eok_def] THEN + `JTeq E (TE_constr [t] TC_list) (TE_constr [t'] TC_list)` by METIS_TAC [JTeq_rules] THEN + SRW_TAC [] [] THEN + METIS_TAC [JTeq_rules, lem3, lem4, ok_ok_thm], + METIS_TAC [ok_ok_thm]]), + ([``"Jbprim_equal_tuple"``], + SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [Eok_def] THENL + [`JTeq E (TE_tuple (MAP SND e_t_list)) (TE_tuple (MAP SND e_t_list'))` by METIS_TAC [JTeq_rules] THEN + FULL_SIMP_TAC (srw_ss()) [is_abbrev_tc_def, teq_fun1] THEN SRW_TAC [] [] THEN + METIS_TAC [lem5, LENGTH_MAP], + METIS_TAC [ok_ok_thm]]), + ([``"Jbprim_equal_constr"``], + SRW_TAC [] [] THENL + [`JTeq E t t'` by METIS_TAC [JTeq_rules] THEN + IMP_RES_TAC constr_arg_types_lem THEN FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THEN + METIS_TAC [LENGTH_MAP, lem5], + METIS_TAC [ok_ok_thm]]), + ([``"Jbprim_equal_rec"``], + SRW_TAC [] [] THENL + [IMP_RES_TAC lem2 THEN SRW_TAC [] [EVERY_MAP, EVERY_MEM] THEN + Q.EXISTS_TAC `SND (SND x)` THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN SRW_TAC [] [] THENL + [Q.EXISTS_TAC `SND (SND x)` THEN SRW_TAC [] [] THEN + Q.EXISTS_TAC `TE_arrow (SND (SND x)) (TE_arrow (SND (SND x)) (TE_constr [] TC_bool))` THEN + SRW_TAC [] [lem4, Eok_def] THEN METIS_TAC [ok_thm, ok_ok_thm], + MAP_EVERY Q.EXISTS_TAC [`(TE_constr t'_list (TC_name typeconstr_name))`, `SND (SND x)`] THEN + SRW_TAC [] [lem4] THENL + [`JTeq E (TE_constr t'_list' (TC_name typeconstr_name')) + (TE_constr t'_list (TC_name typeconstr_name))` + by METIS_TAC [JTeq_rules] THEN + MAP_EVERY Q.EXISTS_TAC [`field_name'_list'`, `t'_list'`, `field_name_e_t_list'`, + `typeconstr_name'`] THEN + SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [MAP_MAP, lem4, Eok_def], + METIS_TAC [ok_thm]]], + METIS_TAC [ok_ok_thm]]), + ([``"Jbprim_div0"``], + SRW_TAC [] [JTconstr_c_cases, JTuprim_cases, Eok_def] THEN + Q.EXISTS_TAC `TE_constr [] TC_exn` THEN SRW_TAC [] [lem4, Eok_def] THEN + Q.EXISTS_TAC `TE_arrow (TE_constr [] TC_exn) (TE_constr [] TC_int)` THEN SRW_TAC [] [lem4, Eok_def]), + ([``"Jbprim_assign"``], + SRW_TAC [] [] THEN SRW_TAC [] [lem4, Eok_def] THEN + FULL_SIMP_TAC (srw_ss()) [is_abbrev_tc_def, teq_fun1] THEN METIS_TAC [teq_thm, JTeq_rules])]); + + +end; + +(* +val lem2 = Q.prove ( +`!l1 l2 E t. (LENGTH l1 = LENGTH l2) /\ + (EVERY (\x. JTfield E (FST x) t (SND (SND x))) l1) /\ + (EVERY (\x. JTfield E (FST x) t (SND x)) (ZIP (MAP FST l1, l2))) ==> + (l2 = MAP (\x. SND (SND x)) l1)`, +Induct THEN Cases_on `l2` THEN SRW_TAC [] [] THEN METIS_TAC [record_arg_types_lem]); + +val lem3 = Q.prove ( +`!l1 l2. (MAP (\z. (F_name (FST z),FST (SND z))) l1 = MAP (\z. (F_name (FST z),FST (SND z))) l2) = + (MAP (\z. (FST z,FST (SND z))) l1 = MAP (\z. (FST z,FST (SND z))) l2)`, +Induct THEN Cases_on `l2` THEN SRW_TAC [] []); + +val lem4 = Q.prove ( +`!l1 l2. (MAP (\z. (F_name (FST (SND (SND z))),FST (SND (SND (SND z))))) l1 = + MAP (\z. (F_name (FST z),FST (SND z))) l2) = + (MAP (\z. (FST (SND (SND z)),FST (SND (SND (SND z))))) l1 = + MAP (\z. (FST z,FST (SND z))) l2)`, +Induct THEN Cases_on `l2` THEN SRW_TAC [] []); + +val lem5 = Q.prove ( +`!l1 l2 z. (MAP (\z. (FST z,FST (SND z))) l1 = MAP (\z. (FST z,FST (SND z))) l2) /\ MEM z l1 /\ + ALL_DISTINCT (MAP FST l1) ==> + ?t. list_assoc (FST z) l2 = SOME (FST (SND z),t)`, +Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN FULL_SIMP_TAC list_ss [list_assoc_def] THEN +Cases_on `h'` THEN SRW_TAC [] [list_assoc_def] THEN Cases_on `r` THEN FULL_SIMP_TAC list_ss [] THEN +SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [MEM_MAP] THEN METIS_TAC []); + +e( +FULL_SIMP_TAC list_ss [environment_binding_11] THEN SRW_TAC [] [] THEN +`PERM (MAP FST field_name_e_t_list') (MAP FST field_name_e_t_list)` by METIS_TAC [PERM_SYM, PERM_TRANS] THEN +`?t''list. (LENGTH (MAP FST field_name_e_t_list) = LENGTH t''list) /\ + (PERM (MAP (\x. SND (SND x)) field_name_e_t_list') t''list) /\ + (PERM (ZIP (MAP FST field_name_e_t_list', (MAP (\x. SND (SND x)) field_name_e_t_list'))) + (ZIP (MAP FST field_name_e_t_list, t''list)))` by + METIS_TAC [EXTEND_PERM, PERM_LENGTH, LENGTH_MAP] THEN +FULL_SIMP_TAC list_ss [ZIP_MAP, MAP_MAP, MAP_ZIP_SAME] THEN +`EVERY (\x. JTfield E (FST x) (TE_constr t_'list (TC_name typeconstr_name)) (SND x)) + (ZIP (MAP FST field_name_e_t_list, t''list))` by + (FULL_SIMP_TAC list_ss [EVERY_MEM] THEN SRW_TAC [] [] THEN + `MEM x (MAP (\p. (FST p,SND (SND p))) field_name_e_t_list')` by + METIS_TAC [EVERY_MEM, PERM_MEM_EQ] THEN + FULL_SIMP_TAC list_ss [MEM_MAP]) THEN +`t''list = MAP (\x. SND (SND x)) field_name_e_t_list` by METIS_TAC [lem2] THEN +SRW_TAC [] [] THEN +FULL_SIMP_TAC list_ss [ZIP_MAP, MAP_MAP, MAP_ZIP_SAME, lem3, EVERY_MEM, lem4] THEN +SRW_TAC [] [] THEN +IMP_RES_TAC lookup_ok_thm THEN FULL_SIMP_TAC list_ss [EBok_def] THEN +FULL_SIMP_TAC list_ss [MAP_11_ALL_DISTINCT2, name_11] THEN +`ALL_DISTINCT (MAP FST field_name_e_t_list') /\ ALL_DISTINCT (MAP FST field_name_e_t_list)` by + METIS_TAC [PERM_ALL_DISTINCT] THEN +`ALL_DISTINCT (MAP FST fn_v_fn_'v_'v_''list)` by + ((`MAP FST (MAP (\z. (FST z,FST (SND z))) fn_v_fn_'v_'v_''list) = + MAP FST (MAP (\z. (FST z,FST (SND z))) field_name_e_t_list)` by METIS_TAC []) THEN + FULL_SIMP_TAC list_ss [MAP_MAP, ETA_THM]) THEN +`ALL_DISTINCT (MAP (\x. FST (SND (SND x))) fn_v_fn_'v_'v_''list)` by + ((`MAP FST (MAP (\z. (FST (SND (SND z)),FST (SND (SND (SND z))))) fn_v_fn_'v_'v_''list) = + MAP FST (MAP (\z. (FST z,FST (SND z))) field_name_e_t_list')` by METIS_TAC []) THEN + FULL_SIMP_TAC list_ss [MAP_MAP, ETA_THM]) THEN +`ALL_DISTINCT (MAP FST (MAP (\p. (FST p,SND (SND p))) field_name_e_t_list'))` by + SRW_TAC [] [MAP_MAP, ETA_THM] THEN +`ALL_DISTINCT (MAP FST (MAP (\p. (FST p,FST (SND p))) field_name_e_t_list'))` by + SRW_TAC [] [MAP_MAP, ETA_THM] THEN +`ALL_DISTINCT (MAP FST (MAP (\p. (FST p,SND (SND p))) field_name_e_t_list))` by + SRW_TAC [] [MAP_MAP, ETA_THM] THEN +`ALL_DISTINCT (MAP FST (MAP (\z. (FST z,SND (SND (SND (SND z))))) fn_v_fn_'v_'v_''list))` by + SRW_TAC [] [MAP_MAP, ETA_THM]); + +e(`?t. list_assoc (FST z) field_name_e_t_list = SOME (FST (SND z),t)` by METIS_TAC [lem5]); + +e(`?t. (list_assoc (FST z) field_name_e_t_list' = SOME (SND (SND (SND (SND z))), t))` + by (???)); + +e(`t = t'` by METIS_TAC [OPTION_MAP_DEF, SND, SOME_11, list_assoc_map, PERM_list_assoc] THEN +METIS_TAC [list_assoc_mem, FST, SND, ok_thm]); +*) + + +val recfun_is_value = Q.store_thm ("recfun_is_value", +`!lrbs pm. is_value_of_expr (recfun lrbs pm)`, +Cases THEN SRW_TAC [] [is_value_of_expr_def, recfun_def, substs_value_name_letrec_binding_def]); + +val recfun_ftv_thm = Q.prove ( +`!lrbs pm. (ftv_letrec_bindings lrbs = []) /\ (ftv_pattern_matching pm = []) ==> + (ftv_expr (recfun lrbs pm) = [])`, +Cases THEN +SRW_TAC [] [recfun_def, ftv_letrec_binding_def, substs_value_name_letrec_binding_def, FLAT_EQ_EMPTY, + EVERY_MAP] THEN +MATCH_MP_TAC (List.nth (CONJUNCTS substs_ftv_thm, 4)) THEN SRW_TAC [] [EVERY_MAP, EVERY_MEM] THEN +Cases_on `letrec_binding` THEN SRW_TAC [] [ftv_letrec_binding_def, FLAT_EQ_EMPTY, EVERY_MAP]); + +val letrec_lem = Q.prove ( +`!l1 l2. (MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) l1 = + MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (TE_arrow (FST (SND (SND z))) (SND (SND (SND z))))))) + l2) = + (l1 = MAP (\z. (FST z, TE_arrow (FST (SND (SND z))) (SND (SND (SND z))))) l2)`, +Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THEN +Cases_on `h` THEN Cases_on `h'` THEN SRW_TAC [] [shiftt_11]); + +local + +val lem1 = Q.prove ( +`!E t. JTuprim E Uprim_raise t = ?t'. tkind E t' /\ (t = (TE_arrow (TE_constr [] TC_exn) t'))`, +SRW_TAC [] [JTuprim_cases] THEN METIS_TAC []); + +val lem2 = Q.prove ( +`!l f g. value_env (MAP (\x. EB_vn (f x) (g x)) l)`, +Induct THEN SRW_TAC [] [value_env_def]); + +val lem4 = Q.prove ( +`!E. mono_value_env E ==> ?x_t_list. E = MAP (\(x, t). EB_vn x (TS_forall (shiftt 0 1 t))) x_t_list`, +recInduct mono_value_env_ind THEN SRW_TAC [] [mono_value_env_def] THEN +Cases_on `ts` THEN FULL_SIMP_TAC list_ss [mono_ts_def] THEN IMP_RES_TAC shift_has0_thm THEN +Q.EXISTS_TAC `(vn, t'')::x_t_list` THEN SRW_TAC [] []); + +val vn_to_x_t_def = Define +`vn_to_x_t (EB_vn n (TS_forall t)) = (n, t)`; + +val lem3 = Q.prove ( +`!l1 l2 S. (LENGTH l1 = LENGTH l2) /\ + EVERY (\(EB,subst). ?t. (EB = EB_vn (FST subst) (TS_forall (shiftt 0 1 t))) /\ + JTe (shiftTsig 0 1 S) (EB_tv::E) (SND subst) t) + (ZIP (l1, l2)) ==> + EVERY (\(EB,(x',v')). (FST (vn_to_x_t EB) = x') /\ + JTe (shiftTsig 0 1 S) (EB_tv::E) v' (idxsubn 0 [] (SND (vn_to_x_t EB)))) + (ZIP (l1, l2))`, +Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN +FULL_SIMP_TAC (srw_ss()) [vn_to_x_t_def, sub_shiftt_thm2]); + +val lem5 = Q.prove ( +`!l1 l2 S. (LENGTH l1 = LENGTH l2) /\ + EVERY (\(EB,subst). ?t. (EB = EB_vn (FST subst) (TS_forall (shiftt 0 1 t))) /\ JTe S E (SND subst) t) + (ZIP (l1, l2)) ==> + EVERY (\(EB,(x',v')). (FST (vn_to_x_t EB) = x') /\ + JTe (shiftTsig 0 1 S) (EB_tv::E) v' (SND (vn_to_x_t EB))) + (ZIP (l1, l2))`, +Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN +FULL_SIMP_TAC (srw_ss()) [vn_to_x_t_def, sub_shiftt_thm2] THEN +IMP_RES_TAC weak_one_tv_thm THEN METIS_TAC [APPEND, num_tv_def, shiftE_def]); + +val lem6 = Q.prove ( +`!l1 l2. (MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) l1 = + MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) l2) ==> + (l1 = l2)`, +Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN +FULL_SIMP_TAC list_ss [environment_binding_11, typescheme_11] THEN +Cases_on `h` THEN Cases_on `h'` THEN FULL_SIMP_TAC list_ss [shiftt_11]); + +val lem8 = Q.prove ( +`!l1 l2. (MAP (\z. LRB_simple (FST z) (SND (SND z))) l1 = MAP (\z. LRB_simple (FST z) (FST (SND z))) l2) ==> + (MAP FST l1 = MAP FST l2) /\ (MAP (\x. SND (SND x)) l1 = MAP (\x. FST (SND x)) l2)`, +Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THEN +Cases_on `h` THEN Cases_on `h'` THEN SRW_TAC [] []); + +val lem9 = Q.prove ( +`!l1 l2 P. EVERY (\z:value_name # expr # pattern_matching. P (SND (SND z))) l1 /\ + (MAP (\x. SND (SND x)) l1 = MAP (\x. FST (SND x)) l2) ==> + EVERY (\z:value_name # pattern_matching # typexpr # typexpr. P (FST (SND z))) l2`, +Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN FULL_SIMP_TAC list_ss []); + +val lem10 = Q.prove ( +`!l1 l2. (LENGTH l1 = LENGTH l2) /\ (MAP FST l1 = MAP FST l2) ==> + EVERY (\p. FST (FST p) = FST (SND p)) (ZIP (l1, l2))`, +Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN FULL_SIMP_TAC list_ss []); + +val lem11 = Q.prove ( +`!l1 l2 f P. + (LENGTH l1 = LENGTH l2) /\ + (MAP (\x. SND (SND x)) l1 = MAP (\x. FST (SND x)) l2) /\ + EVERY (\x. f (SND (SND x)) = FST (SND x)) l1 /\ + EVERY (\p. P (f (FST (SND p))) (FST (SND (SND p))) (SND (SND (SND p)))) l2 ==> + EVERY (\p. P (FST (SND (SND p))) (FST (SND (SND (FST p)))) (SND (SND (SND (FST p))))) (ZIP (l2, l1))`, +Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN FULL_SIMP_TAC list_ss [] THEN METIS_TAC []); + +val lem12 = +(GEN_ALL o Q.SPECL [`S`, `pm`, `t1`, `t2`, `E1`, `EB_tv::E`] o +SIMP_RULE list_ss [GSYM RIGHT_FORALL_IMP_THM, AND_IMP_INTRO] o hd o tl o CONJUNCTS) weak_one_tv_thm; + +(* 13 and 14 copied from weakenScript *) +val lem13 = SIMP_RULE list_ss [] (Q.SPECL [`t`, `n`, `0`, `1`] (hd (CONJUNCTS shiftt_com_lem))); + +val lem14 = Q.prove ( +`!l m n f g. shiftE m 1 (MAP (\z. EB_vn (f z) (TS_forall (shiftt 0 1 (g z)))) l) = + MAP (\z. EB_vn (f z) (TS_forall (shiftt 0 1 (shiftt m 1 (g z))))) l`, +Induct THEN SRW_TAC [] [shiftE_def, shiftEB_def, lem13, shiftts_def] THEN +METIS_TAC [value_env_map_thm, value_env_num_tv_thm, arithmeticTheory.ADD_0]); + +val lem15 = +(GEN_ALL o SIMP_RULE list_ss [num_tv_def] o Q.SPEC `[EB_tv]`) tkind_weak_thm; + +val lem16 = Q.prove ( +`!l p. MEM p l /\ ALL_DISTINCT (MAP FST l) ==> +(lookup (MAP (\(x,pm,t1,t2). EB_vn x (TS_forall (shiftt 0 1 (TE_arrow t1 t2)))) l++EB_tv::E) (name_vn (FST p)) = + SOME (EB_vn (FST p) (TS_forall (shiftt 0 1 (TE_arrow (FST (SND (SND p))) (SND (SND (SND p))))))))`, +SIMP_TAC list_ss [LAMBDA_PROD2] THEN Induct THEN SRW_TAC [] [lookup_def, domEB_def, shiftEB_add_thm] THEN +METIS_TAC [lookup_dom_thm, MEM_MAP]); + +val lem17 = Q.prove ( +`!E E'. PERM E E' ==> value_env E ==> value_env E'`, +HO_MATCH_MP_TAC PERM_IND THEN SRW_TAC [] [value_env_def] THEN +Cases_on `x` THEN FULL_SIMP_TAC (srw_ss()) [value_env_def] THEN +Cases_on `y` THEN FULL_SIMP_TAC (srw_ss()) [value_env_def]); + +val lem18 = Q.prove ( +`!E. value_env E ==> + (MAP (\x. EB_vn (FST (vn_to_x_t x)) (TS_forall (SND (vn_to_x_t x)))) E = E)`, +Induct THEN SRW_TAC [] [value_env_def] THEN Cases_on `h` THEN +FULL_SIMP_TAC (srw_ss()) [value_env_def] THEN Cases_on `t` THEN SRW_TAC [] [vn_to_x_t_def]); + +val lem19 = Q.prove ( +`!E x_t_list. value_env E ==> + (PERM (MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) x_t_list) E ==> + PERM (MAP FST x_t_list) (MAP FST (MAP vn_to_x_t E)))`, +SRW_TAC [] [] THEN +`PERM (MAP FST (MAP vn_to_x_t (MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) x_t_list))) + (MAP FST (MAP vn_to_x_t E))` by METIS_TAC [PERM_MAP] THEN +FULL_SIMP_TAC (srw_ss()) [MAP_MAP, vn_to_x_t_def] THEN METIS_TAC []); + +val lem20 = Q.prove ( +`!E x_t_list. value_env E ==> + PERM (MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) x_t_list) E ==> + PERM (MAP (\z. EB_vn (FST z) (TS_forall (SND z))) x_t_list) + (MAP (\x. EB_vn (FST (vn_to_x_t x)) (TS_forall (idxsubn 0 [] (SND (vn_to_x_t x))))) E)`, +SRW_TAC [] [] THEN +`PERM (MAP (\x. EB_vn (FST (vn_to_x_t x)) (TS_forall (idxsubn 0 [] (SND (vn_to_x_t x))))) + (MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) x_t_list)) + (MAP (\x. EB_vn (FST (vn_to_x_t x)) (TS_forall (idxsubn 0 [] (SND (vn_to_x_t x))))) E)` by + METIS_TAC [PERM_MAP] THEN +FULL_SIMP_TAC (srw_ss()) [MAP_MAP, vn_to_x_t_def, sub_shiftt_thm2]); + +val lem21 = Q.prove ( +`!E up t. JTuprim E up t ==> ?t1 t2. t = TE_arrow t1 t2`, +SRW_TAC [] [JTuprim_cases]); + +val lem22 = Q.prove ( +`!E bp t. JTbprim E bp t ==> ?t1 t2 t3. t = TE_arrow t1 (TE_arrow t2 t3)`, +SRW_TAC [] [JTbprim_cases]); + +val lem23 = Q.prove ( +`!S E L E' t t'. JTLout S E L E' /\ JTLin S E L /\ JTeq E t t' ==> JTeq (E'++E) t t'`, +SRW_TAC [] [JTLout_cases, JTLin_cases] THEN SRW_TAC [] [] THEN +IMP_RES_TAC (Q.SPECL [`E`, `EB_l location t''`] weak_teq_lem1) THEN FULL_SIMP_TAC (srw_ss()) [Eok_def] THEN +METIS_TAC [ok_thm]); + +val simple_raise_tac = + IMP_RES_TAC ok_thm THEN FULL_SIMP_TAC list_ss [Eok_def, lem1] THEN SRW_TAC [] [] THEN + FULL_SIMP_TAC list_ss [Eok_def] THEN + FULL_SIMP_TAC (srw_ss()) [is_abbrev_tc_def, teq_fun1] THEN SRW_TAC [] [] THEN + IMP_RES_TAC teq_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [Eok_def] THEN + METIS_TAC [teq_thm, JTeq_rules]; + +in + +val recfun_pres_thm = Q.store_thm ("recfun_pres_thm", +`!S E lrbs pm t t' x_t_list. + closed_env E /\ + JTletrec_binding (shiftTsig 0 1 S) (EB_tv::E) lrbs + (MAP (\(x, t). EB_vn x (TS_forall (shiftt 0 1 t))) x_t_list) /\ + JTpat_matching S (MAP (\(x, t). EB_vn x (TS_forall t)) x_t_list ++ E) pm t t' ==> + JTe S E (recfun lrbs pm) (TE_arrow t t')`, +Cases_on `lrbs` THEN SRW_TAC [] [JTe_fun, recfun_def, substs_value_name_letrec_binding_def] THEN +SRW_TAC [] [MAP_MAP] THEN +MAP_EVERY Q.EXISTS_TAC [`t`, `t'`] THEN SRW_TAC [] [] THENL +[MATCH_MP_TAC substs_pm_lem THEN Q.EXISTS_TAC `REVERSE x_t_list` THEN + SRW_TAC [] [MAP_MAP, EVERY_MAP, LENGTH_MAP, ZIP_MAP, MAP_ZIP_SAME, LENGTH_REVERSE, + is_value_of_expr_def, is_non_expansive_of_expr_def] THEN + FULL_SIMP_TAC (srw_ss()) [GSYM MAP_REVERSE] THEN1 + METIS_TAC [LENGTH_MAP, LENGTH_REVERSE] THEN + FULL_SIMP_TAC (srw_ss()) [LAMBDA_PROD2, GSYM MAP_REVERSE, letrec_lem] THEN + FULL_SIMP_TAC (srw_ss()) [MAP_REVERSE, ALL_DISTINCT_REVERSE, MAP_MAP] THEN1 + METIS_TAC [MAP_11_ALL_DISTINCT, name_11] THEN + SRW_TAC [] [ZIP_MAP, MAP_ZIP_SAME, EVERY_MAP, EVERY_MEM] THEN + FULL_SIMP_TAC (srw_ss()) [MAP_MAP, MEM_MAP, GSYM MAP_REVERSE, MAP_MAP] THEN + SRW_TAC [] [JTe_fun] THEN SRW_TAC [] [GSYM MAP_REVERSE, letrec_lem] THEN + SRW_TAC [] [MAP_REVERSE, REVERSE_EQ, GSYM LEFT_EXISTS_AND_THM, MAP_MAP] THEN + Q.EXISTS_TAC `MAP (\(vn, pm, t, t'). (vn, pm, shiftt 0 1 t, shiftt 0 1 t')) + value_name_pattern_matching_t_t'_list` THEN + SRW_TAC [] [EVERY_MAP, LAMBDA_PROD2, MAP_MAP] THENL + [FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN SRW_TAC [] [] THEN RES_TAC THEN IMP_RES_TAC lem12 THEN + FULL_SIMP_TAC (srw_ss()) [value_env_map_thm, value_env_num_tv_thm, lem14, shiftTsig_add_thm, + shiftt_def] THEN + METIS_TAC [MAP_REVERSE, APPEND, APPEND_ASSOC], + SRW_TAC [] [JTvalue_name_cases] THEN + Q.EXISTS_TAC `TE_arrow (FST (SND (SND p'))) (SND (SND (SND p')))` THEN + SRW_TAC [] [] THENL + [Q.EXISTS_TAC `TS_forall (TE_arrow (shiftt 0 1 (FST (SND (SND p')))) + (shiftt 0 1 (SND (SND (SND p')))))` THEN + SRW_TAC [] [JTinst_cases] THENL + [SRW_TAC [] [GSYM MAP_REVERSE] THEN + MATCH_MP_TAC (SIMP_RULE (srw_ss()) [LAMBDA_PROD2, shiftt_def] lem16) THEN + SRW_TAC [] [MAP_REVERSE, ALL_DISTINCT_REVERSE] THEN + Q.PAT_ASSUM `ALL_DISTINCT a` MP_TAC THEN + REPEAT (POP_ASSUM (K ALL_TAC)) THEN Induct_on `value_name_pattern_matching_t_t'_list` THEN + SRW_TAC [] [MEM_MAP], + FULL_SIMP_TAC (srw_ss()) [EVERY_MEM, Eok_def, idxsub_def, GSYM idxsubn0_thm, + sub_shiftt_thm2] THEN + Q.EXISTS_TAC `[]` THEN SRW_TAC [] [] THEN MATCH_MP_TAC lem15 THEN + SRW_TAC [] [Eok_def, GSYM MAP_REVERSE] THEN FULL_SIMP_TAC (srw_ss()) [shiftt_def] THEN + METIS_TAC [ok_thm, ok_ok_thm]], + FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN RES_TAC THEN + IMP_RES_TAC ok_thm THEN FULL_SIMP_TAC (srw_ss()) [LAMBDA_PROD2, MAP_REVERSE, shiftt_def] THEN + `tkind (REVERSE (MAP (\x. EB_vn (FST x) (TS_forall (TE_arrow (shiftt 0 1 (FST (SND (SND x)))) + (shiftt 0 1 (SND (SND (SND x))))))) + value_name_pattern_matching_t_t'_list) ++ EB_tv::E) + (TE_arrow (FST (SND (SND p'))) (SND (SND (SND p'))))` + by SRW_TAC [] [Eok_def] THEN + METIS_TAC [JTeq_rules]]], + IMP_RES_TAC ok_thm THEN FULL_SIMP_TAC (srw_ss()) [LAMBDA_PROD2] THEN + METIS_TAC [JTeq_rules, value_env_ok_str_thm, value_env_map_thm, APPEND]]); + +val matching_preservation_lem = Q.prove ( +`!v pattern_matching e' S E t' t. + JRmatching_success v pattern_matching e' /\ JTe S E v t' /\ JTpat_matching S E pattern_matching t' t /\ + closed_env E /\ is_value_of_expr v ==> + JTe S E e' t`, +SRW_TAC [] [JRmatching_success_cases] THEN FULL_SIMP_TAC (srw_ss()) [JTe_fun] THEN +Cases_on `pattern_e_E_list` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [] THENL +[IMP_RES_TAC pat_env_lem THEN IMP_RES_TAC lem4 THEN FULL_SIMP_TAC (srw_ss()) [] THEN + IMP_RES_TAC pat_num_bindings_lem THEN IMP_RES_TAC pat_preservation_thm THEN + MATCH_MP_TAC substs_lem THEN IMP_RES_TAC lem17 THEN + Q.EXISTS_TAC `MAP vn_to_x_t (REVERSE E'')` THEN + SRW_TAC [] [MAP_REVERSE] THEN FULL_SIMP_TAC (srw_ss()) [LAMBDA_PROD2] THENL + [IMP_RES_TAC PERM_LENGTH THEN FULL_SIMP_TAC (srw_ss()) [LENGTH_REVERSE] THEN + METIS_TAC [LENGTH_REVERSE, LENGTH_MAP, PERM_LENGTH], + SRW_TAC [] [MAP_MAP, lem18] THEN IMP_RES_TAC distinct_pat_env THEN + METIS_TAC [value_perm_thm, APPEND, value_env_map_thm], + FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN SRW_TAC [] [] THEN Cases_on `SND z` THEN + SRW_TAC [] [] THEN RES_TAC THEN FULL_SIMP_TAC (srw_ss()) [] THEN + METIS_TAC [value_nonexpansive_thm], + IMP_RES_TAC lem19 THEN IMP_RES_TAC distinct_pat_env THEN + FULL_SIMP_TAC (srw_ss()) [MAP_MAP, domEB_def, LAMBDA_PROD2, ALL_DISTINCT_REVERSE] THEN + METIS_TAC [MAP_11_ALL_DISTINCT, name_11, PERM_ALL_DISTINCT, PERM_MAP, MAP_MAP], + `LENGTH (REVERSE E'') = LENGTH x_v_list` + by METIS_TAC [LENGTH_REVERSE, LENGTH_MAP, PERM_LENGTH] THEN + SRW_TAC [] [GSYM MAP_REVERSE, ZIP_MAP, EVERY_MAP] THEN + METIS_TAC [LENGTH_MAP, LENGTH_REVERSE, SIMP_RULE list_ss [LAMBDA_PROD2] lem5, MAP_REVERSE]], + SRW_TAC [] [lem1, JTconst_cases, JTconstr_c_cases] THEN + Q.EXISTS_TAC `TE_constr [] TC_exn` THEN + `tkind E (TE_constr [] TC_exn)` by SRW_TAC [] [Eok_def] THEN + METIS_TAC [pat_env_lem, ok_thm, value_env_ok_str_thm, APPEND, pat_ok_thm, + ok_ok_thm, JTeq_rules]]); + +local + +val lem1 = Q.prove ( +`!x. (substs_x_xs case x of substs_x_xs l -> l) = x`, +Cases THEN SRW_TAC [] []); + +in + +val JMmatch_tyvars_thm = Q.prove ( +`!v p subs. JM_match v p subs ==> !x_v_list. (subs = substs_x_xs x_v_list) ==> (ftv_expr v = []) ==> + EVERY (\xv. ftv_expr (SND xv) = []) x_v_list`, +RULE_INDUCT_TAC JM_match_ind [ftv_letrec_binding_def, MEM_FLAT, MEM_MAP, EXISTS_MEM, ELIM_UNCURRY, + MEM, FLAT_EQ_EMPTY, EVERY_MAP, EVERY_MEM] +[([``"JM_match_alias"``], + SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss []), + ([``"JM_match_construct"``, ``"JM_match_tuple"``], + SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [] THEN Cases_on `x''` THEN Cases_on `r` THEN Cases_on `r'` THEN + FULL_SIMP_TAC list_ss [substs_x_case_def] THEN METIS_TAC [FST, SND]), + ([``"JM_match_record"``], + SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [] THEN Cases_on `x''` THEN Cases_on `r` THEN Cases_on `r'` THEN + FULL_SIMP_TAC list_ss [substs_x_case_def] THEN IMP_RES_TAC PERM_MEM_EQ THEN + FULL_SIMP_TAC list_ss [MEM_MAP] THEN METIS_TAC [FST, SND, lem1]), + ([``"JM_match_cons"``], + SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [] THENL + [Cases_on `subs` THEN FULL_SIMP_TAC list_ss [substs_x_case_def] THEN METIS_TAC [FST, SND], + Cases_on `subs'` THEN FULL_SIMP_TAC list_ss [substs_x_case_def] THEN METIS_TAC [FST, SND]])]); + +end; + +val e_preservation_thm = Q.prove ( +`!e L e'. JR_expr e L e' ==> !E S. closed_env E ==> !t. JTe S E e t /\ JTLin S E L ==> + ?E''. JTLout S E L E'' /\ JTe S (E''++E) e' t`, +RULE_INDUCT_TAC JR_expr_sind [JTL_nil_lem, JTe_fun, JTconst_fun, ftv_letrec_binding_def] +[([``"JR_expr_uprim"``], + SRW_TAC [] [] THEN IMP_RES_TAC lem21 THEN + FULL_SIMP_TAC (srw_ss()) [is_abbrev_tc_def, teq_fun1] THEN SRW_TAC [] [] THEN + `JTe S E v t1'` by METIS_TAC [teq_thm, JTeq_rules] THEN IMP_RES_TAC uprim_preservation_lem THEN + METIS_TAC [lem23, teq_thm]), + ([``"JR_expr_bprim"``], + SRW_TAC [] [] THEN IMP_RES_TAC lem22 THEN + FULL_SIMP_TAC (srw_ss()) [is_abbrev_tc_def, teq_fun1] THEN SRW_TAC [] [] THEN + `JTe S E v1 t1'' /\ JTe S E v2 t2` by METIS_TAC [teq_thm, JTeq_rules] THEN + IMP_RES_TAC bprim_preservation_lem THEN METIS_TAC [lem23, teq_thm]), + ([``"JR_expr_typed_ctx"``], + SRW_TAC [] []), + ([``"JR_expr_apply_ctx_arg"``, ``"JR_expr_apply_ctx_fun"``, ``"JR_expr_sequence_ctx_left"``, + ``"JR_expr_ifthenelse_ctx"``, ``"JR_expr_match_ctx"``, ``"JR_expr_try_ctx"``], + METIS_TAC [label_weak_thm]), + ([``"JR_expr_apply_raise1"``, ``"JR_expr_apply_raise2"``, ``"JR_expr_sequence_raise"``, ``"JR_expr_if_raise"``, + ``"JR_expr_match_raise"``, ``"JR_expr_for_raise1"``, ``"JR_expr_for_raise2"``, ``"JR_expr_cons_raise1"``, + ``"JR_expr_cons_raise2"``, ``"JR_expr_assert_raise"``], + SRW_TAC [] [] THEN simple_raise_tac), + ([``"JR_expr_apply"``], + simple_raise_tac), + ([``"JR_expr_let_ctx"``], + SRW_TAC [] [] THENL + [RES_TAC THEN Q.EXISTS_TAC `E''` THEN SRW_TAC [] [] THEN DISJ1_TAC THEN Q.EXISTS_TAC `x_t_list` THEN + METIS_TAC [val_env_label_weak_thm, label_weak_thm, lem2, MAP_REVERSE], + IMP_RES_TAC nexp_red_thm THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [JTL_nil_lem] THEN + SRW_TAC [] [] THEN DISJ2_TAC THEN + METIS_TAC [closed_env_tv_lem, ok_thm, ok_ok_thm, MAP_REVERSE]]), + ([``"JR_expr_let_raise"``], + SRW_TAC [] [] THENL + [IMP_RES_TAC ok_thm THEN FULL_SIMP_TAC list_ss [Eok_def, lem1] THEN SRW_TAC [] [] THEN + FULL_SIMP_TAC list_ss [Eok_def] THEN + FULL_SIMP_TAC (srw_ss()) [is_abbrev_tc_def, teq_fun1] THEN SRW_TAC [] [] THEN + METIS_TAC [value_env_ok_str_thm, lem2, MAP_REVERSE, APPEND, teq_thm, JTeq_rules], + IMP_RES_TAC ok_thm THEN FULL_SIMP_TAC list_ss [Eok_def, lem1] THEN SRW_TAC [] [] THEN + FULL_SIMP_TAC list_ss [Eok_def, is_non_expansive_of_expr_def, + is_binary_prim_app_value_of_expr_def] THEN + METIS_TAC [value_env_ok_str_thm, lem2, MAP_REVERSE, APPEND]]), + ([``"JR_expr_let_subst"``], + SRW_TAC [] [GSYM MAP_REVERSE] THENL + [`x_t_list' = x_t_list` by METIS_TAC [REVERSE_EQ, lem6] THEN SRW_TAC [] [] THEN + IMP_RES_TAC pat_num_bindings_lem THEN IMP_RES_TAC pat_preservation_thm THEN + MATCH_MP_TAC substs_lem THEN IMP_RES_TAC lem17 THEN + Q.EXISTS_TAC `MAP vn_to_x_t (REVERSE E'')` THEN + SRW_TAC [] [MAP_REVERSE] THEN FULL_SIMP_TAC (srw_ss()) [LAMBDA_PROD2, value_env_map_thm] THENL + [IMP_RES_TAC PERM_LENGTH THEN FULL_SIMP_TAC (srw_ss()) [LENGTH_REVERSE] THEN + METIS_TAC [LENGTH_REVERSE, LENGTH_MAP, PERM_LENGTH], + SRW_TAC [] [MAP_MAP, lem18] THEN IMP_RES_TAC distinct_pat_env THEN + METIS_TAC [value_perm_thm, APPEND, value_env_map_thm], + FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN SRW_TAC [] [] THEN Cases_on `SND z` THEN + SRW_TAC [] [] THEN RES_TAC THEN FULL_SIMP_TAC (srw_ss()) [] THEN + METIS_TAC [value_nonexpansive_thm], + IMP_RES_TAC lem19 THEN IMP_RES_TAC distinct_pat_env THEN + FULL_SIMP_TAC (srw_ss()) [MAP_MAP, domEB_def, LAMBDA_PROD2, ALL_DISTINCT_REVERSE] THEN + METIS_TAC [MAP_11_ALL_DISTINCT, name_11, PERM_ALL_DISTINCT, PERM_MAP, MAP_MAP], + `LENGTH (REVERSE E'') = LENGTH x_v_list` + by METIS_TAC [LENGTH_REVERSE, LENGTH_MAP, PERM_LENGTH] THEN + SRW_TAC [] [GSYM MAP_REVERSE, ZIP_MAP, EVERY_MAP] THEN + METIS_TAC [LENGTH_MAP, LENGTH_REVERSE, SIMP_RULE list_ss [LAMBDA_PROD2] lem5, MAP_REVERSE]], + `x_t_list' = x_t_list` by METIS_TAC [REVERSE_EQ, lem6] THEN SRW_TAC [] [] THEN + IMP_RES_TAC pat_num_bindings_lem THEN IMP_RES_TAC pat_preservation_thm THEN + MATCH_MP_TAC substs_lem THEN IMP_RES_TAC lem17 THEN + Q.EXISTS_TAC `MAP (\(x,t). (x, idxsubn 0 [] t)) (MAP vn_to_x_t (REVERSE E''))` THEN + SRW_TAC [] [MAP_REVERSE] THEN FULL_SIMP_TAC (srw_ss()) [LAMBDA_PROD2, value_env_map_thm] THENL + [IMP_RES_TAC PERM_LENGTH THEN FULL_SIMP_TAC (srw_ss()) [LENGTH_REVERSE] THEN + METIS_TAC [LENGTH_REVERSE, LENGTH_MAP, PERM_LENGTH], + SRW_TAC [] [MAP_MAP, lem18] THEN IMP_RES_TAC distinct_pat_env THEN IMP_RES_TAC lem20 THEN + `ALL_DISTINCT (MAP domEB (MAP (\z. EB_vn (FST z) (TS_forall (SND z))) (REVERSE x_t_list)))` + by FULL_SIMP_TAC (srw_ss()) [MAP_MAP, vn_to_x_t_def, domEB_def] THEN + METIS_TAC [value_perm_thm, APPEND, value_env_map_thm], + FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN SRW_TAC [] [] THEN Cases_on `SND z` THEN + SRW_TAC [] [] THEN RES_TAC THEN FULL_SIMP_TAC (srw_ss()) [] THEN + METIS_TAC [value_nonexpansive_thm], + IMP_RES_TAC lem19 THEN IMP_RES_TAC distinct_pat_env THEN + FULL_SIMP_TAC (srw_ss()) [MAP_MAP, domEB_def, LAMBDA_PROD2, ALL_DISTINCT_REVERSE] THEN + METIS_TAC [MAP_11_ALL_DISTINCT, name_11, PERM_ALL_DISTINCT, PERM_MAP, MAP_MAP], + `LENGTH (REVERSE E'') = LENGTH x_v_list` + by METIS_TAC [LENGTH_REVERSE, LENGTH_MAP, PERM_LENGTH] THEN + SRW_TAC [] [GSYM MAP_REVERSE, ZIP_MAP, EVERY_MAP] THEN + METIS_TAC [LENGTH_MAP, LENGTH_REVERSE, SIMP_RULE list_ss [LAMBDA_PROD2] lem3, + MAP_REVERSE]]]), + ([``"JR_expr_let_fail"``], + SRW_TAC [] [] THENL + [IMP_RES_TAC ok_thm THEN FULL_SIMP_TAC list_ss [Eok_def, lem1] THEN SRW_TAC [] [] THEN + FULL_SIMP_TAC (srw_ss()) [Eok_def, JTconstr_c_cases] THEN + `tkind E (TE_constr [] TC_exn)` by SRW_TAC [] [Eok_def] THEN + METIS_TAC [value_env_ok_str_thm, lem2, MAP_REVERSE, APPEND, ok_ok_thm, JTeq_rules], + IMP_RES_TAC ok_thm THEN FULL_SIMP_TAC list_ss [Eok_def, lem1] THEN SRW_TAC [] [] THEN + FULL_SIMP_TAC (srw_ss()) [Eok_def, JTconstr_c_cases, is_binary_prim_app_value_of_expr_def] THEN + `tkind E (TE_constr [] TC_exn)` by SRW_TAC [] [Eok_def] THEN + METIS_TAC [value_env_ok_str_thm, lem2, MAP_REVERSE, APPEND, ok_ok_thm, JTeq_rules]]), + ([``"JR_expr_letrec"``], + SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [FLAT_EQ_EMPTY, EVERY_MAP, REVERSE_EQ, ftv_letrec_binding_def] THEN + MATCH_MP_TAC substs_lem THEN SRW_TAC [] [EVERY_MAP] THEN + Q.EXISTS_TAC `x_t_list` THEN + IMP_RES_TAC letrec_lem THEN IMP_RES_TAC lem8 THEN FULL_SIMP_TAC list_ss [MAP_MAP] THEN + SRW_TAC [] [LAMBDA_PROD2] THENL + [METIS_TAC [LENGTH_MAP], + FULL_SIMP_TAC list_ss [EVERY_MEM] THEN METIS_TAC [recfun_is_value, value_nonexpansive_thm], + (* FULL_SIMP_TAC list_ss [EVERY_MEM] THEN SRW_TAC [] [] THEN + Tactical.REVERSE (`ftv_expr (FST (SND z)) = []` by ALL_TAC) THEN1 + SRW_TAC [] [DISJOINT_def] THEN + RES_TAC THEN POP_ASSUM (fn x => ONCE_REWRITE_TAC [GSYM x]) THEN + MATCH_MP_TAC recfun_ftv_thm THEN + SRW_TAC [] [ftv_letrec_binding_def, FLAT_EQ_EMPTY, EVERY_MAP] THEN + HO_MATCH_MP_TAC lem9 THEN SRW_TAC [] [EVERY_MEM] THEN METIS_TAC [],*) + METIS_TAC [MAP_11_ALL_DISTINCT2, name_11, MAP_MAP], + `LENGTH x_e_pattern_matching_list = LENGTH value_name_pattern_matching_t_t'_list` + by METIS_TAC [LENGTH_MAP] THEN + SRW_TAC [] [ZIP_MAP, EVERY_MAP, EVERY_CONJ, lem10] THEN HO_MATCH_MP_TAC lem11 THEN + SRW_TAC [] [] THEN + Q.EXISTS_TAC `\y. recfun (LRBs_inj (MAP (\z. LRB_simple (FST z) (FST (SND z))) + value_name_pattern_matching_t_t'_list)) y` THEN + SRW_TAC [] [] THEN + SRW_TAC [] [EVERY_MEM] THEN MATCH_MP_TAC recfun_pres_thm THEN + Q.EXISTS_TAC `REVERSE (MAP (\z. (FST z, (shiftt 0 1 + (TE_arrow (FST (SND (SND z))) + (SND (SND (SND z))))))) + value_name_pattern_matching_t_t'_list)` THEN + SRW_TAC [] [closed_env_def] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THENL + [SRW_TAC [] [lookup_def, domEB_def] THEN + Cases_on `EB2` THEN SRW_TAC [] [shiftEB_def] THEN METIS_TAC [closed_env_def], + SRW_TAC [] [JTe_fun] THEN + Q.EXISTS_TAC `MAP (\(vn, pm, t, t'). (vn, pm, shiftt 0 1 t, shiftt 0 1 t')) + value_name_pattern_matching_t_t'_list` THEN + SRW_TAC [] [EVERY_MEM, ELIM_UNCURRY, MAP_MAP, MAP_REVERSE, + shiftt_def] THEN + FULL_SIMP_TAC list_ss [MEM_MAP] THEN SRW_TAC [] [] THEN + RES_TAC THEN IMP_RES_TAC lem12 THEN + FULL_SIMP_TAC list_ss [value_env_map_thm, value_env_num_tv_thm, lem14, + GSYM shiftt_def, shiftTsig_add_thm, GSYM MAP_REVERSE] THEN + METIS_TAC [MAP_REVERSE, APPEND, APPEND_ASSOC], + SRW_TAC [] [MAP_REVERSE, MAP_MAP, EVERY_MEM, ELIM_UNCURRY]]]), + ([``"JR_expr_match_step"``], + METIS_TAC [matching_step_preservation_lem]), + ([``"JR_expr_match_success"``], + METIS_TAC [matching_preservation_lem]), + ([``"JR_expr_and"``, ``"JR_expr_or"``, ``"JR_expr_while"``], + METIS_TAC [ok_thm, ok_ok_thm, teq_thm]), + ([``"JR_expr_for_ctx1"``], + SRW_TAC [] [] THEN RES_TAC THEN Q.EXISTS_TAC `E''` THEN SRW_TAC [] [] THEN1 METIS_TAC [label_weak_thm] THEN + METIS_TAC [value_env_def, APPEND, val_env_label_weak_thm, lem23]), + ([``"JR_expr_for_ctx2"``], + SRW_TAC [] [] THEN RES_TAC THEN Q.EXISTS_TAC `E''` THEN SRW_TAC [] [] THEN1 METIS_TAC [label_weak_thm] THEN + METIS_TAC [value_env_def, APPEND, val_env_label_weak_thm, lem23]), + ([``"JR_expr_for_to_do"``, ``"JR_expr_for_downto_do"``], + SRW_TAC [] [] THEN DISJ1_TAC THEN Q.EXISTS_TAC `[(VN_id lowercase_ident, TE_constr [] TC_int)]` THEN + SRW_TAC [] [] THEN + Q.EXISTS_TAC `[(VN_id lowercase_ident, TE_constr [] TC_int)]` THEN + SRW_TAC [] [JTpat_fun, Eok_def, shiftt_def] THEN + Q.EXISTS_TAC `TE_constr [] TC_int` THEN SRW_TAC [] [Eok_def, shiftt_def]), + ([``"JR_expr_for_to_done"``, ``"JR_expr_for_downto_done"``], + METIS_TAC []), + ([``"JR_expr_try_catch"``], + SRW_TAC [] [] THEN Q.EXISTS_TAC `TE_constr [] TC_exn` THEN SRW_TAC [] [] THEN + FULL_SIMP_TAC (srw_ss()) [JTuprim_cases] THEN SRW_TAC [] [] THEN + FULL_SIMP_TAC (srw_ss()) [teq_fun1, is_abbrev_tc_def] THENL + [METIS_TAC [teq_thm, JTeq_rules], + Q.EXISTS_TAC `pattern_e_E_list++[(P_any, Expr_apply (Expr_uprim Uprim_raise) v, [])]` THEN + SRW_TAC [] [JTpat_fun, JTe_fun] THEN SRW_TAC [] [Eok_def] THENL + [METIS_TAC [ok_ok_thm], + SRW_TAC [] [JTuprim_cases] THEN METIS_TAC [teq_thm, JTeq_rules], + DECIDE_TAC]]), + ([``"JR_expr_tuple_ctx"``], + SRW_TAC [] [] THEN + `?l1 et l2. (e_list = MAP FST l1) /\ (e = FST et) /\ (v_list = MAP FST l2) /\ + (e_t_list = l1++[et]++l2)` by (FULL_SIMP_TAC list_ss [MAP_split] THEN + Cases_on `l5'` THEN FULL_SIMP_TAC list_ss [] THEN + METIS_TAC []) THEN + FULL_SIMP_TAC list_ss [EVERY_APPEND, FLAT_EQ_EMPTY] THEN SRW_TAC [] [] THEN RES_TAC THEN + Q.EXISTS_TAC `E''` THEN SRW_TAC [] [] THEN Q.EXISTS_TAC `l1++[(e', SND et)]++l2` THEN + SRW_TAC [] [EVERY_MEM] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN METIS_TAC [label_weak_thm, lem23]), + ([``"JR_expr_tuple_raise"``], + SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [MAP_split] THEN Cases_on `l5'` THEN FULL_SIMP_TAC list_ss [] THEN + Cases_on `h` THEN + SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [EVERY_APPEND] THEN SRW_TAC [] [] THEN + FULL_SIMP_TAC list_ss [JTe_fun, JTuprim_cases, typexpr_11, unary_prim_distinct] THEN + SRW_TAC [] [Eok_def, EVERY_MAP] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN + simple_raise_tac), + ([``"JR_expr_constr_ctx"``], + SRW_TAC [] [] THEN + `?l1 et l2. (e_list = MAP FST l1) /\ (e = FST et) /\ (v_list = MAP FST l2) /\ + (e_t_list = l1++[et]++l2)` by (FULL_SIMP_TAC list_ss [MAP_split] THEN + Cases_on `l5'` THEN FULL_SIMP_TAC list_ss [] THEN + METIS_TAC []) THEN + FULL_SIMP_TAC list_ss [EVERY_APPEND, FLAT_EQ_EMPTY] THEN SRW_TAC [] [] THEN RES_TAC THEN + Q.EXISTS_TAC `E''` THEN SRW_TAC [] [] THEN Q.EXISTS_TAC `l1++[(e', SND et)]++l2` THEN + SRW_TAC [] [EVERY_MEM] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN + METIS_TAC [label_weak_thm, label_constr_p_weak_thm, lem23]), + ([``"JR_expr_constr_raise"``], + SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [MAP_split] THEN Cases_on `l5'` THEN FULL_SIMP_TAC list_ss [] THEN + Cases_on `h` THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [EVERY_APPEND] THEN SRW_TAC [] [] THEN + FULL_SIMP_TAC list_ss [JTe_fun, JTuprim_cases, typexpr_11, unary_prim_distinct] THEN + SRW_TAC [] [Eok_def, EVERY_MAP] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN + Q.EXISTS_TAC `t1` THEN SRW_TAC [] [] THEN + Q.EXISTS_TAC `TE_arrow (TE_constr [] TC_exn) t` THEN SRW_TAC [] [] THEN + FULL_SIMP_TAC (srw_ss()) [is_abbrev_tc_def, teq_fun1] THEN + METIS_TAC [teq_ok_thm, JTeq_rules]), + ([``"JR_expr_cons_ctx1"``, ``"JR_expr_cons_ctx2"``], + METIS_TAC [label_weak_thm, lem23]), + ([``"JR_expr_record_ctx"``], + SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [MAP_split] THEN SRW_TAC [] [GSYM MAP_split] THEN Cases_on `l5'` THEN + FULL_SIMP_TAC list_ss [EVERY_APPEND, FLAT_EQ_EMPTY] THEN SRW_TAC [] [] THEN RES_TAC THEN + Q.EXISTS_TAC `E''` THEN SRW_TAC [] [] THEN + MAP_EVERY Q.EXISTS_TAC [`field_name'_list`, `t'_list`, `l4'++[(FST h, e', SND (SND h))]++l5`, + `typeconstr_name`, `kind`] THEN + SRW_TAC [] [EVERY_MEM] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN + METIS_TAC [label_weak_thm, label_field_weak_thm, label_lookup_weak_thm, name_distinct, lem23]), + ([``"JR_expr_record_raise"``], + SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [MAP_split] THEN SRW_TAC [] [GSYM MAP_split] THEN Cases_on `l5'` THEN + FULL_SIMP_TAC list_ss [] THEN Cases_on `h` THEN FULL_SIMP_TAC list_ss [] THEN Cases_on `r` THEN + FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [JTe_fun] THEN + IMP_RES_TAC field_constr_p_ok_thm THEN FULL_SIMP_TAC list_ss [lem1] THEN SRW_TAC [] [] THEN + simple_raise_tac), + ([``"JR_expr_record_with_ctx1"``], + SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [MAP_split] THEN SRW_TAC [] [GSYM MAP_split] THEN Cases_on `l5'` THEN + FULL_SIMP_TAC list_ss [EVERY_APPEND, FLAT_EQ_EMPTY] THEN SRW_TAC [] [] THEN RES_TAC THEN + Q.EXISTS_TAC `E''` THEN SRW_TAC [] [] THEN + Q.EXISTS_TAC `l4'++[(FST h, e', SND (SND h))]++l5` THEN + SRW_TAC [] [EVERY_MEM] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN + METIS_TAC [label_weak_thm, label_field_weak_thm, lem23]), + ([``"JR_expr_record_with_raise1"``], + SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [MAP_split] THEN SRW_TAC [] [GSYM MAP_split] THEN Cases_on `l5'` THEN + FULL_SIMP_TAC list_ss [] THEN Cases_on `h` THEN FULL_SIMP_TAC list_ss [] THEN Cases_on `r` THEN + FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [JTe_fun] THEN + IMP_RES_TAC field_constr_p_ok_thm THEN FULL_SIMP_TAC list_ss [lem1] THEN SRW_TAC [] [] THEN + Q.EXISTS_TAC `t1` THEN SRW_TAC [] [] THEN Q.EXISTS_TAC `TE_arrow (TE_constr [] TC_exn) t` THEN + SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [is_abbrev_tc_def, teq_fun1] THEN + METIS_TAC [JTeq_rules, teq_ok_thm]), + ([``"JR_expr_record_with_ctx2"``], + SRW_TAC [] [] THEN RES_TAC THEN Q.EXISTS_TAC `E''` THEN SRW_TAC [] [] THEN + Q.EXISTS_TAC `field_name_e_t_list` THEN + SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN + METIS_TAC [label_field_weak_thm, label_weak_thm, lem23]), + ([``"JR_expr_record_raise_ctx2"``], + SRW_TAC [] [] THEN + Q.EXISTS_TAC `t1` THEN SRW_TAC [] [] THEN Q.EXISTS_TAC `t''` THEN SRW_TAC [] [] THEN + FULL_SIMP_TAC (srw_ss()) [is_abbrev_tc_def, teq_fun1] THEN + METIS_TAC [JTeq_rules, ok_thm]), + ([``"JR_expr_record_with_many"``], + SRW_TAC [] [] THEN Cases_on `field_name_e_t_list` THEN FULL_SIMP_TAC list_ss [] THEN + MAP_EVERY Q.EXISTS_TAC [`t''`, `t'`] THEN + SRW_TAC [] [] THENL [ALL_TAC, METIS_TAC [LENGTH_MAP]] THEN + FULL_SIMP_TAC list_ss [MAP_split] THEN SRW_TAC [] [GSYM MAP_split] THEN Cases_on `l5'` THEN + FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THEN + MAP_EVERY Q.EXISTS_TAC [`field_name'_list`, `t'_list`, + `l4'++[(FST h, FST (SND h), SND (SND h'))]++l5`, + `typeconstr_name`, `kind`] THEN + SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [] THEN + METIS_TAC [teq_thm, record_arg_types_lem, JTeq_rules]), + ([``"JR_expr_record_with_1"``], + SRW_TAC [] [] THEN Cases_on `field_name_e_t_list` THEN FULL_SIMP_TAC list_ss [] THEN + FULL_SIMP_TAC list_ss [MAP_split] THEN SRW_TAC [] [GSYM MAP_split] THEN Cases_on `l5'` THEN + FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THEN + MAP_EVERY Q.EXISTS_TAC [`field_name'_list`, `t'_list`, + `l4'++[(FST h, FST (SND h), SND (SND h'))]++l5`, + `typeconstr_name`, `kind`] THEN + SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [] THEN + METIS_TAC [teq_thm, record_arg_types_lem, JTeq_rules]), + ([``"JR_expr_record_access_ctx"``], + METIS_TAC [label_field_weak_thm, lem23]), + ([``"JR_expr_record_access_raise"``], + SRW_TAC [] [] THEN IMP_RES_TAC ok_thm THEN FULL_SIMP_TAC list_ss [Eok_def, lem1] THEN SRW_TAC [] [] THEN + FULL_SIMP_TAC list_ss [Eok_def] THEN + Q.EXISTS_TAC `t1` THEN SRW_TAC [] [] THEN + Q.EXISTS_TAC `TE_arrow (TE_constr [] TC_exn) t` THEN SRW_TAC [] [] THEN + FULL_SIMP_TAC (srw_ss()) [teq_fun1, is_abbrev_tc_def] THEN + METIS_TAC [teq_ok_thm, JTeq_rules]), + ([``"JR_expr_record_access"``], + FULL_SIMP_TAC list_ss [MAP_split] THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [EVERY_APPEND] THEN + Cases_on `l5'` THEN FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THEN + METIS_TAC [teq_thm, record_arg_types_lem, JTeq_rules]), + ([``"JR_expr_assert_ctx"``], + SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [JR_expr_fun] THEN METIS_TAC [label_weak_thm, lem23]), + ([``"JR_expr_assert_false"``], + SRW_TAC [] [JTconstr_c_cases, JTuprim_cases] THEN Q.EXISTS_TAC `TE_constr [] TC_exn` THEN SRW_TAC [] [] THEN + `tkind E (TE_constr [] TC_exn)` by (SRW_TAC [] [Eok_def] THEN METIS_TAC [ok_ok_thm]) THEN + `tkind E (TE_arrow (TE_constr [] TC_exn) t)` by (SRW_TAC [] [Eok_def] THEN METIS_TAC [teq_ok_thm]) THEN + METIS_TAC [ok_ok_thm, JTeq_rules, teq_ok_thm])]); + +end; + + +val e_preservation_thm = + save_thm ("e_preservation_thm", SIMP_RULE list_ss [AND_IMP_INTRO, GSYM RIGHT_FORALL_IMP_THM] + e_preservation_thm); + +val _ = export_theory (); + diff --git a/vendors/ott/examples/ocaml_light/hol/progressScript.sml b/vendors/ott/examples/ocaml_light/hol/progressScript.sml new file mode 100644 index 000000000000..2a320248e0cc --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/progressScript.sml @@ -0,0 +1,616 @@ +open bossLib HolKernel boolLib sortingTheory combinTheory wordsTheory listTheory rich_listTheory optionTheory; +open pairTheory; +open ottLib ottTheory caml_typedefTheory; +open utilTheory basicTheory environmentTheory validTheory teqTheory; + +val _ = new_theory "progress"; + +val _ = Parse.hide "S"; + +val MEM_SPLIT_FIRST = Q.prove ( +`!l x. MEM x (MAP FST l) = ?l1 l2 y. (l = l1 ++ [(x,y)] ++ l2) /\ ~MEM x (MAP FST l1)`, +Induct THEN SRW_TAC [] [] THEN Cases_on `h` THEN SRW_TAC [] [] THEN +EQ_TAC THEN SRW_TAC [] [] THENL +[METIS_TAC [APPEND, MAP, MEM], + Cases_on `x=q` THEN SRW_TAC [] [] THENL + [MAP_EVERY Q.EXISTS_TAC [`[]`, `l1 ++ [(q,y)] ++ l2`, `r`] THEN SRW_TAC [] [], + MAP_EVERY Q.EXISTS_TAC [`(q,r)::l1`, `l2`, `y`] THEN SRW_TAC [] []], + Cases_on `l1` THEN FULL_SIMP_TAC list_ss [] THEN METIS_TAC []]); + + +val is_constr_p_def = Define +`is_constr_p E e = ?c es tpo ts tc. (e = Expr_construct (C_name c) es) /\ + (lookup E (name_cn c) = SOME (EB_pc c tpo (typexprs_inj ts) tc)) /\ + (LENGTH es = LENGTH ts)`; + +val uprim_lem1 = Q.prove ( +`!E up t. JTuprim E up t ==> ?t1 t2. t = TE_arrow t1 t2`, +SRW_TAC [] [JTuprim_cases]); + +val bprim_lem1 = Q.prove ( +`!E bp t. JTbprim E bp t ==> ?t1 t2 t3. t = TE_arrow t1 (TE_arrow t2 t3)`, +SRW_TAC [] [JTbprim_cases]); + +local + +val lem3 = Q.prove ( +`!E constr t. JTconstr_c E constr t ==> ~is_abbrev_tc E t /\ ?tl tc. t = TE_constr tl tc`, +SRW_TAC [] [JTconstr_c_cases] THEN SRW_TAC [] [is_abbrev_tc_def]); + +val lem4 = Q.prove ( +`!E constr tl t. JTconstr_p E constr tl t ==> ~is_abbrev_tc E t /\ ?tl' tc. t = TE_constr tl' tc`, +SRW_TAC [] [JTconstr_p_cases] THEN SRW_TAC [] [is_abbrev_tc_def] THEN +SRW_TAC [] [is_abbrev_tc_cases] THEN +`Eok E` by METIS_TAC [inst_named_ok_thm, ok_ok_thm] THEN +IMP_RES_TAC lookup_ok_thm THEN Cases_on `typeconstr` THEN +FULL_SIMP_TAC (srw_ss()) [EBok_def] THEN CCONTR_TAC THEN FULL_SIMP_TAC (srw_ss()) []); + +val lem5 = Q.prove ( +`!E constr tl t tcn. + (lookup E (name_tcn tcn) = SOME (EB_tr tcn kind field_name'_list)) ==> + ~is_abbrev_tc E (TE_constr t'_list (TC_name tcn))`, +SRW_TAC [] [is_abbrev_tc_def]); + +val lem6 = Q.prove ( +`!E fn t1 t2. JTfield E fn t1 t2 ==> is_abbrev_tc E t1 \/ is_record_tc E t1`, +SRW_TAC [] [JTfield_cases, JTinst_named_cases, substs_typevar_typexpr_def] THEN +`Eok E` by METIS_TAC [ok_ok_thm] THEN +IMP_RES_TAC lookup_ok_thm THEN FULL_SIMP_TAC list_ss [EBok_def] THEN +(* FULL_SIMP_TAC list_ss [teq_arrow_rw, teq_tup_rw, typexpr_11, typexpr_distinct] THEN *) +SRW_TAC [] [is_abbrev_tc_def, is_record_tc_def] THEN +SRW_TAC [] []); + +val lem7 = Q.prove ( +`!E t l. LENGTH l >= 1 /\ EVERY (\x. JTfield E (FST x) t (SND (SND x))) l ==> + is_abbrev_tc E t \/ is_record_tc E t`, +Cases_on `l` THEN SRW_TAC [] [] THEN METIS_TAC [lem6]); + +val is_constr_p_lem1 = SIMP_RULE list_ss [is_constr_p_def, expr_11] (Q.prove ( +`!E c l ts tcn. JTconstr_p E c (MAP SND l) (TE_constr ts (TC_name tcn)) ==> + is_constr_p E (Expr_construct c (MAP FST l))`, +SRW_TAC [] [is_constr_p_def, JTconstr_p_cases] THEN METIS_TAC [LENGTH_MAP])); + +val is_constr_p_lem2 = SIMP_RULE list_ss [is_constr_p_def, expr_11] (Q.prove ( +`!E c l ts tcn. JTconstr_p E c (MAP SND l) (TE_constr [] TC_exn) ==> + is_constr_p E (Expr_construct c (MAP FST l)) \/ + ((c = C_invalidargument) /\ (LENGTH l = 1))`, +SRW_TAC [] [is_constr_p_def, JTconstr_p_cases] THEN1 METIS_TAC [LENGTH_MAP] THEN +Cases_on `l` THEN FULL_SIMP_TAC list_ss [])); + +val cv_tac = +Cases_on `e` THEN SRW_TAC [] [is_value_of_expr_def, JTe_fun, JTconst_cases] THEN CCONTR_TAC THEN +FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [] THEN +FULL_SIMP_TAC (srw_ss()) [teq_fun2, is_abbrev_tc_def] THEN +MAP_EVERY IMP_RES_TAC [uprim_lem1, bprim_lem1, lem3, lem4, lem5] THEN +SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [teq_fun2, is_abbrev_tc_def, JTe_fun] THEN +IMP_RES_TAC bprim_lem1 THEN +SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [teq_fun2, is_abbrev_tc_def]; + +in + +val cv_var = Q.prove ( +`!S E e a. is_value_of_expr e /\ JTe S E e (TE_var a) ==> F`, +cv_tac); + +val cv_idx = Q.prove ( +`!S E e n1 n2. is_value_of_expr e /\ JTe S E e (TE_idxvar n1 n2) ==> F`, +cv_tac); + +val cv_any = Q.prove ( +`!S E e. is_value_of_expr e /\ JTe S E e TE_any ==> F`, +cv_tac); + +val cv_fun = Q.prove ( +`!S E e t1 t2. is_value_of_expr e /\ JTe S E e (TE_arrow t1 t2) ==> + (?up. e = Expr_uprim up) \/ + (?bp. e = Expr_bprim bp) \/ + (?bp e'. e = Expr_apply (Expr_bprim bp) e') \/ + (?pm. e = Expr_function pm)`, +cv_tac); + +val cv_tup = Q.prove ( +`!S E e ts. is_value_of_expr e /\ JTe S E e (TE_tuple ts) ==> + ?es. (e = Expr_tuple es) /\ (LENGTH ts = LENGTH es)`, +cv_tac); + +val cv_int = Q.prove ( +`!S E e. is_value_of_expr e /\ JTe S E e (TE_constr [] TC_int) ==> + ?n. e = Expr_constant (CONST_int n)`, +cv_tac THEN FULL_SIMP_TAC (srw_ss()) [JTconstr_c_cases, JTconstr_p_cases] THEN SRW_TAC [] [] THEN +`Eok E` by METIS_TAC [inst_named_ok_thm, ok_ok_thm] THEN +IMP_RES_TAC lookup_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [EBok_def]); + +val cv_float = Q.prove ( +`!S E e. is_value_of_expr e /\ JTe S E e (TE_constr [] TC_float) ==> + ?n. e = Expr_constant (CONST_float n)`, +cv_tac THEN FULL_SIMP_TAC (srw_ss()) [JTconstr_c_cases, JTconstr_p_cases] THEN SRW_TAC [] [] THEN +`Eok E` by METIS_TAC [inst_named_ok_thm, ok_ok_thm] THEN +IMP_RES_TAC lookup_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [EBok_def]); + +val cv_char = Q.prove ( +`!S E e. is_value_of_expr e /\ JTe S E e (TE_constr [] TC_char) ==> + ?n. e = Expr_constant (CONST_char n)`, +cv_tac THEN FULL_SIMP_TAC (srw_ss()) [JTconstr_c_cases, JTconstr_p_cases] THEN SRW_TAC [] [] THEN +`Eok E` by METIS_TAC [inst_named_ok_thm, ok_ok_thm] THEN +IMP_RES_TAC lookup_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [EBok_def]); + +val cv_string = Q.prove ( +`!S E e. is_value_of_expr e /\ JTe S E e (TE_constr [] TC_string) ==> + ?n. e = Expr_constant (CONST_string n)`, +cv_tac THEN FULL_SIMP_TAC (srw_ss()) [JTconstr_c_cases, JTconstr_p_cases] THEN SRW_TAC [] [] THEN +`Eok E` by METIS_TAC [inst_named_ok_thm, ok_ok_thm] THEN +IMP_RES_TAC lookup_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [EBok_def]); + +val cv_bool = Q.prove ( +`!S E e. is_value_of_expr e /\ JTe S E e (TE_constr [] TC_bool) ==> + (e = Expr_constant CONST_true) \/ + (e = Expr_constant CONST_false)`, +cv_tac THEN FULL_SIMP_TAC (srw_ss()) [JTconstr_c_cases, JTconstr_p_cases] THEN SRW_TAC [] [] THEN +`Eok E` by METIS_TAC [inst_named_ok_thm, ok_ok_thm] THEN +IMP_RES_TAC lookup_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [EBok_def]); + +val cv_unit = Q.prove ( +`!S E e. is_value_of_expr e /\ JTe S E e (TE_constr [] TC_unit) ==> + (e = Expr_constant CONST_unit)`, +cv_tac THEN FULL_SIMP_TAC (srw_ss()) [JTconstr_c_cases, JTconstr_p_cases] THEN SRW_TAC [] [] THEN +`Eok E` by METIS_TAC [inst_named_ok_thm, ok_ok_thm] THEN +IMP_RES_TAC lookup_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [EBok_def]); + +val cv_exn = SIMP_RULE (srw_ss()) [is_constr_p_def] (Q.prove ( +`!S E e. is_value_of_expr e /\ JTe S E e (TE_constr [] TC_exn) ==> + is_constr_p E e \/ + (?c. e = Expr_constant (CONST_constr c)) \/ + (?e'. e = Expr_construct C_invalidargument [e'])`, +cv_tac THEN Cases_on `tl'` THEN FULL_SIMP_TAC (srw_ss()) [] THEN IMP_RES_TAC is_constr_p_lem2 THEN +FULL_SIMP_TAC (srw_ss()) [is_constr_p_def] THEN Cases_on `e_t_list` THEN FULL_SIMP_TAC (srw_ss()) [] THEN +Cases_on `t` THEN FULL_SIMP_TAC (srw_ss()) [])); + +val cv_option = Q.prove ( +`!S E e t. is_value_of_expr e /\ JTe S E e (TE_constr [t] TC_option) ==> + (?e'. e = Expr_construct C_some [e']) \/ + (e = Expr_constant (CONST_constr C_none))`, +cv_tac THEN FULL_SIMP_TAC (srw_ss()) [JTconstr_c_cases, JTconstr_p_cases] THEN SRW_TAC [] [] THEN +`Eok E` by METIS_TAC [inst_named_ok_thm, ok_ok_thm] THEN +IMP_RES_TAC lookup_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [EBok_def] THEN +Cases_on `e_t_list` THEN FULL_SIMP_TAC (srw_ss()) []); + +val cv_list = Q.prove ( +`!S E e t. is_value_of_expr e /\ JTe S E e (TE_constr [t] TC_list) ==> + (e = Expr_constant CONST_nil) \/ + (?e1 e2. e = Expr_cons e1 e2)`, +cv_tac THEN FULL_SIMP_TAC (srw_ss()) [JTconstr_c_cases, JTconstr_p_cases] THEN SRW_TAC [] [] THEN +`Eok E` by METIS_TAC [inst_named_ok_thm, ok_ok_thm] THEN +IMP_RES_TAC lookup_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [EBok_def] THEN +Cases_on `e_t_list` THEN FULL_SIMP_TAC (srw_ss()) []); + +val cv_ref = Q.prove ( +`!S E e t. is_value_of_expr e /\ JTe S E e (TE_constr [t] TC_ref) ==> + ?l. e = Expr_location l`, +cv_tac THEN FULL_SIMP_TAC (srw_ss()) [JTconstr_c_cases, JTconstr_p_cases] THEN SRW_TAC [] [] THEN +`Eok E` by METIS_TAC [inst_named_ok_thm, ok_ok_thm] THEN +IMP_RES_TAC lookup_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [EBok_def] THEN +Cases_on `e_t_list` THEN FULL_SIMP_TAC (srw_ss()) []); + +val cv_tcn = SIMP_RULE (srw_ss()) [is_constr_p_def] (Q.prove ( +`!S E e ts tcn. is_value_of_expr e /\ JTe S E e (TE_constr ts (TC_name tcn)) ==> + ((?k. lookup E (name_tcn tcn) = SOME (EB_td tcn k)) ==> + (?c. e = Expr_constant (CONST_constr c)) \/ is_constr_p E e) /\ + (!fns. (?k. lookup E (name_tcn tcn) = SOME (EB_tr tcn k fns)) ==> + (?fes. (e = Expr_record fes) /\ (PERM (MAP FST fes) (MAP F_name fns))))`, +cv_tac THEN FULL_SIMP_TAC (srw_ss()) [JTconstr_c_cases] THENL +[IMP_RES_TAC is_constr_p_lem1 THEN FULL_SIMP_TAC (srw_ss()) [is_constr_p_def], + FULL_SIMP_TAC (srw_ss()) [JTconstr_p_cases] THEN + `Eok E` by METIS_TAC [inst_named_ok_thm, ok_ok_thm] THEN IMP_RES_TAC lookup_ok_thm THEN + Cases_on `t''_tv_list` THEN FULL_SIMP_TAC (srw_ss()) [EBok_def], + IMP_RES_TAC lem7 THEN FULL_SIMP_TAC (srw_ss()) [is_abbrev_tc_def, is_record_tc_def] THEN + FULL_SIMP_TAC (srw_ss()) [MAP_MAP] THEN METIS_TAC [PERM_MAP, PERM_SYM, MAP_MAP]])); + +val canon_val_fun = LIST_CONJ + [cv_var, cv_idx, cv_any, cv_fun, cv_tup, cv_int, cv_float, cv_char, cv_string, cv_bool, + cv_unit, cv_exn, cv_option, cv_list, cv_ref, cv_tcn]; + +val _ = save_thm ("canon_val_fun", canon_val_fun); + +end; + +val uprim_progress = Q.store_thm ("uprim_progress", +`!E uprim t1 t2 t3 S v. JTuprim E uprim t3 /\ JTeq E t3 (TE_arrow t1 t2) /\ JTe S E v t1 /\ + is_value_of_expr v ==> + (uprim = Uprim_raise) \/ ?e L. JRuprim uprim v L e`, +SRW_TAC [] [] THEN IMP_RES_TAC uprim_lem1 THEN SRW_TAC [] [] THEN +FULL_SIMP_TAC (srw_ss()) [is_abbrev_tc_def, teq_fun1] THEN +`JTe S E v t1'` by METIS_TAC [JTeq_rules, teq_thm] THEN +FULL_SIMP_TAC (srw_ss()) [JTuprim_cases] THEN +IMP_RES_TAC canon_val_fun THEN SRW_TAC [] [JRuprim_cases] THEN +METIS_TAC []); + +val eq_progress = Q.prove ( +`!E t1 t2 t3 S v1 v2. + ~is_abbrev_tc E t1 /\ ~is_abbrev_tc E t2 /\ + JTbprim E Bprim_equal (TE_arrow t1 (TE_arrow t2 t3)) /\ JTe S E v1 t1 /\ JTe S E v2 t2 /\ + is_value_of_expr v1 /\ is_value_of_expr v2 ==> + ?e L. JRbprim v1 Bprim_equal v2 L e`, +SRW_TAC [] [JTbprim_cases] THEN Cases_on `t1` THENL +[METIS_TAC [cv_var], + METIS_TAC [cv_idx], + METIS_TAC [cv_any], + `(?up. v1 = Expr_uprim up) \/ (?bp. v1 = Expr_bprim bp) \/ (?bp e'. v1 = Expr_apply (Expr_bprim bp) e') \/ + ?pm. v1 = Expr_function pm` by METIS_TAC [cv_fun] THEN + SRW_TAC [] [JRbprim_cases, funval_def] THEN FULL_SIMP_TAC list_ss [is_value_of_expr_def], + IMP_RES_TAC cv_tup THEN + SRW_TAC [ARITH_ss] [EXISTS_OR_THM, funval_def, ELIM_UNCURRY, JRbprim_cases] THEN + Q.EXISTS_TAC `MAP2 (\e1 e2. (e1, e2)) es' es` THEN + SRW_TAC [ARITH_ss] [MAP_MAP2, MAP2_IGNORE, MAP2_LENGTH, EVERY_MAP2, EVERY_MAP, MAP_I] THEN + FULL_SIMP_TAC list_ss [EVERY_MAP, is_value_of_expr_def, Eok_def], + Cases_on `t'` THEN FULL_SIMP_TAC list_ss [Eok_def, COND_EXPAND_EQ, LENGTH_NIL_ALT, LENGTH_1] THEN + SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [] THENL + [ALL_TAC, + IMP_RES_TAC cv_int THEN SRW_TAC [] [JRbprim_cases] THEN METIS_TAC [], + IMP_RES_TAC cv_char THEN SRW_TAC [] [JRbprim_cases] THEN METIS_TAC [], + IMP_RES_TAC cv_string THEN SRW_TAC [] [JRbprim_cases] THEN METIS_TAC [], + IMP_RES_TAC cv_float THEN SRW_TAC [] [JRbprim_cases] THEN METIS_TAC [], + IMP_RES_TAC cv_bool THEN FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [JRbprim_cases] THEN METIS_TAC [], + IMP_RES_TAC cv_unit THEN SRW_TAC [] [JRbprim_cases] THEN METIS_TAC [], + `(?c es tpo ts tc. ((v1 = Expr_construct (C_name c) es) /\ + (lookup E (name_cn c) = SOME (EB_pc c tpo (typexprs_inj ts) tc)) /\ + (LENGTH es = LENGTH ts)) \/ + (?c. v1 = Expr_constant (CONST_constr c)) \/ + ?e'. v1 = Expr_construct C_invalidargument [e']) /\ + (?c es tpo ts tc. ((v2 = Expr_construct (C_name c) es) /\ + (lookup E (name_cn c) = SOME (EB_pc c tpo (typexprs_inj ts) tc)) /\ + (LENGTH es = LENGTH ts)) \/ + (?c. v2 = Expr_constant (CONST_constr c)) \/ + ?e'. v2 = Expr_construct C_invalidargument [e'])` + by METIS_TAC [cv_exn] THEN + SRW_TAC [] [EXISTS_OR_THM, funval_def, ELIM_UNCURRY, JRbprim_cases] THEN + FULL_SIMP_TAC list_ss [is_value_of_expr_def, JTe_fun, ETA_THM] THEN + SRW_TAC [] [] THENL + [Cases_on `(c' = c)` THEN SRW_TAC [] [] THEN + Q.EXISTS_TAC `MAP2 (\t t'. (FST t, FST t')) e_t_list e_t_list'` THEN + `LENGTH e_t_list = LENGTH e_t_list'` by + METIS_TAC [LENGTH_MAP, SOME_11, environment_binding_11, typexprs_11] THEN + FULL_SIMP_TAC list_ss [MAP_MAP2, MAP2_IGNORE, MAP2_LENGTH, EVERY_MAP2, + EVERY_MAP, MAP_I], + METIS_TAC [], + Cases_on `e_t_list` THEN Cases_on `e_t_list'` THEN FULL_SIMP_TAC list_ss [] THEN + SRW_TAC [] [] THEN + Q.EXISTS_TAC `[(FST h, FST h')]` THEN SRW_TAC [] []], + IMP_RES_TAC cv_list THEN SRW_TAC [] [JRbprim_cases] THEN + FULL_SIMP_TAC list_ss [is_value_of_expr_def] THEN METIS_TAC [], + IMP_RES_TAC cv_option THEN SRW_TAC [] [EXISTS_OR_THM, funval_def, JRbprim_cases, ELIM_UNCURRY] THEN + FULL_SIMP_TAC list_ss [is_value_of_expr_def] THEN + Q.EXISTS_TAC `[(e'', e')]` THEN FULL_SIMP_TAC list_ss [], + IMP_RES_TAC cv_ref THEN SRW_TAC [] [JRbprim_cases] THEN METIS_TAC []] THEN + Cases_on `lookup E (name_tcn t'')` THEN FULL_SIMP_TAC (srw_ss()) [is_abbrev_tc_def] THEN + IMP_RES_TAC lookup_name_thm THEN FULL_SIMP_TAC (srw_ss()) [] THENL + [`((?c. v1 = Expr_constant (CONST_constr c)) \/ + ?c es tpo ts tc. (v1 = Expr_construct (C_name c) es) /\ + (lookup E (name_cn c) = SOME (EB_pc c tpo (typexprs_inj ts) tc)) /\ + (LENGTH es = LENGTH ts)) /\ + ((?c. v2 = Expr_constant (CONST_constr c)) \/ + ?c es tpo ts tc. (v2 = Expr_construct (C_name c) es) /\ + (lookup E (name_cn c) = SOME (EB_pc c tpo (typexprs_inj ts) tc)) /\ + (LENGTH es = LENGTH ts))` by METIS_TAC [cv_tcn] THEN + SRW_TAC [] [EXISTS_OR_THM, funval_def, ELIM_UNCURRY, JRbprim_cases] THEN + Cases_on `c' = c` THEN SRW_TAC [] [] THEN + FULL_SIMP_TAC list_ss [is_value_of_expr_def, ETA_THM] THEN + `LENGTH ts = LENGTH ts'` by METIS_TAC [LENGTH_MAP, SOME_11, environment_binding_11, typexprs_11] THEN + Q.EXISTS_TAC `MAP2 (\e e'. (e, e')) es es'` THEN + FULL_SIMP_TAC list_ss [is_value_of_expr_def, MAP_MAP2, MAP2_IGNORE, MAP2_LENGTH, EVERY_MAP2, + EVERY_MAP, MAP_I, ETA_THM], + IMP_RES_TAC cv_tcn THEN SRW_TAC [] [EXISTS_OR_THM, funval_def, JRbprim_cases] THEN + FULL_SIMP_TAC list_ss [JTe_fun, is_value_of_expr_def] THEN SRW_TAC [] [] THEN + FULL_SIMP_TAC list_ss [EVERY_MAP] THEN + MAP_EVERY Q.EXISTS_TAC [`MAP (\z. (FST z,FST (SND z))) field_name_e_t_list'`, + `MAP (\z. (FST z,FST (SND z))) field_name_e_t_list`] THEN + SRW_TAC [] [MAP_MAP, EVERY_MAP] THEN FULL_SIMP_TAC list_ss [MAP_MAP] THEN + `PERM (MAP field_to_fn (MAP (\z. F_name (FST z)) field_name_e_t_list)) + (MAP field_to_fn (MAP (\z. F_name (FST z)) field_name_e_t_list'))` by + METIS_TAC [PERM_SYM, PERM_TRANS, PERM_MAP] THEN + FULL_SIMP_TAC (srw_ss()) [MAP_MAP, field_to_fn_def]]]); + +val value_type_thm = Q.prove ( +`!S E e t. JTe S E e t /\ is_value_of_expr e ==> ?t'. ~is_abbrev_tc E t' /\ JTeq E t t'`, +Cases_on `e` THEN SRW_TAC [] [JTe_fun, is_value_of_expr_def] THENL +[Q.EXISTS_TAC `t'` THEN SRW_TAC [] [] THEN1 FULL_SIMP_TAC (srw_ss()) [JTuprim_cases, is_abbrev_tc_def] THEN + METIS_TAC [JTeq_rules, teq_ok_thm], + Q.EXISTS_TAC `t'` THEN SRW_TAC [] [] THEN1 FULL_SIMP_TAC (srw_ss()) [JTbprim_cases, is_abbrev_tc_def] THEN + METIS_TAC [JTeq_rules, teq_ok_thm], + Q.EXISTS_TAC `t'` THEN SRW_TAC [] [] THEN1 + FULL_SIMP_TAC (srw_ss()) [JTconst_cases, is_abbrev_tc_def, JTconstr_c_cases] THEN + METIS_TAC [JTeq_rules, teq_ok_thm], + Q.EXISTS_TAC `TE_tuple (MAP SND e_t_list)` THEN SRW_TAC [] [is_abbrev_tc_def] THEN + METIS_TAC [JTeq_rules], + Q.EXISTS_TAC `t'` THEN SRW_TAC [] [] THENL + [FULL_SIMP_TAC (srw_ss()) [JTconstr_p_cases, is_abbrev_tc_def] THEN + Cases_on `typeconstr` THEN FULL_SIMP_TAC (srw_ss()) [is_abbrev_tc_def] THEN + `Eok E` by METIS_TAC [teq_ok_thm, ok_ok_thm] THEN + IMP_RES_TAC lookup_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [EBok_def], + METIS_TAC [JTeq_rules, teq_ok_thm]], + Q.EXISTS_TAC `TE_constr [t'] TC_list` THEN SRW_TAC [] [is_abbrev_tc_def] THEN METIS_TAC [JTeq_rules], + Q.EXISTS_TAC `TE_constr t'_list (TC_name typeconstr_name)` THEN SRW_TAC [] [] THENL + [Cases_on `typeconstr_name` THEN FULL_SIMP_TAC (srw_ss()) [is_abbrev_tc_def] THEN + `Eok E` by METIS_TAC [teq_ok_thm, ok_ok_thm] THEN + IMP_RES_TAC lookup_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [EBok_def], + METIS_TAC [JTeq_rules]], + FULL_SIMP_TAC (srw_ss()) [JTe_fun] THEN IMP_RES_TAC bprim_lem1 THEN SRW_TAC [] [] THEN + Q.EXISTS_TAC `TE_arrow t2 t3` THEN SRW_TAC [] [] THEN + FULL_SIMP_TAC (srw_ss()) [is_abbrev_tc_def, teq_fun1] THEN + METIS_TAC [JTeq_rules, teq_ok_thm, teq_thm], + Q.EXISTS_TAC `TE_arrow t' t''` THEN SRW_TAC [] [is_abbrev_tc_def] THEN METIS_TAC [JTeq_rules], + Q.EXISTS_TAC `TE_constr [t'] TC_ref` THEN SRW_TAC [] [is_abbrev_tc_def] THEN METIS_TAC [JTeq_rules]]); + +val bprim_progress = Q.store_thm ("bprim_progress", +`!E bprim t1 t2 t3 t4 S v1 v2. + JTbprim E bprim t4 /\ JTeq E t4 (TE_arrow t1 (TE_arrow t2 t3)) /\ + JTe S E v1 t1 /\ JTe S E v2 t2 /\ is_value_of_expr v1 /\ is_value_of_expr v2 ==> + ?e L. JRbprim v1 bprim v2 L e`, +SRW_TAC [] [] THEN IMP_RES_TAC bprim_lem1 THEN SRW_TAC [] [] THEN +FULL_SIMP_TAC (srw_ss()) [is_abbrev_tc_def, teq_fun1] THEN +`JTe S E v1 t1'` by METIS_TAC [JTeq_rules, teq_thm] THEN +`JTe S E v2 t2'` by METIS_TAC [JTeq_rules, teq_thm] THEN +FULL_SIMP_TAC (srw_ss()) [JTbprim_cases] THEN SRW_TAC [] [] THEN1 + (IMP_RES_TAC value_type_thm THEN MATCH_MP_TAC eq_progress THEN SRW_TAC [] [JTbprim_cases] THEN + METIS_TAC [teq_thm, teq_ok_thm]) THEN +MAP_EVERY IMP_RES_TAC [cv_int, cv_ref] THEN SRW_TAC [] [JRbprim_cases] THEN +METIS_TAC []); + +val JMmatch_val_subst_thm = Q.store_thm ("JMmatch_val_subst_thm", +`!e p s. JM_match e p s ==> ?l. (s = substs_x_xs l) /\ EVERY (\xv. is_value_of_expr (SND xv)) l`, +RULE_INDUCT_TAC JM_match_ind [MAP_MAP, ELIM_UNCURRY] [] THEN SRW_TAC [] [] THEN +FULL_SIMP_TAC list_ss [EVERY_MEM, MEM_FLAT, EXISTS_MAP, EXISTS_MEM] THEN SRW_TAC [] [] THEN +Cases_on `x` THEN Cases_on `r` THEN Cases_on `r'` THEN FULL_SIMP_TAC list_ss [substs_x_case_def] THEN +RES_TAC THEN FULL_SIMP_TAC list_ss [substs_x_11] THEN FULL_SIMP_TAC list_ss [substs_x_case_def]); + +local + +val LRB_lem1 = Q.prove ( +`!lrbs f g h x z. (f (case lrbs of LRB_simple x y -> g x y) = case lrbs of LRB_simple x y -> f (g x y)) /\ + (((case lrbs of LRB_simple x y -> h x y) z) = (case lrbs of LRB_simple x y -> h x y z))`, +Cases THEN SRW_TAC [] []); + +val LRB_lem2 = Q.prove ( +`!lrbs f. (case lrbs of LRB_simple vn pm -> case lrbs of LRB_simple vn' pm' -> f vn pm vn' pm') = + (case lrbs of LRB_simple vn pm -> f vn pm vn pm)`, +Cases THEN SRW_TAC [] []); + +val LRB_lem3 = Q.prove ( +`!lrbs f. (case lrbs of LRB_simple vn pm -> LRB_simple vn pm) = lrbs`, +Cases THEN SRW_TAC [] []); + +in + +val e_progress_thm = Q.prove ( +`(!S E e t. JTe S E e t ==> closed_env E ==> JRB_ebehaviour e) /\ + (!S E pm t1 t2. JTpat_matching S E pm t1 t2 ==> T) /\ + (!S E lb E'. JTlet_binding S E lb E' ==> closed_env E ==> ?p e. (lb = LB_simple p e) /\ JRB_ebehaviour e) /\ + (!S E lrb E'. JTletrec_binding S E lrb E' ==> T)`, +RULE_INDUCT_TAC JTe_sind [JRB_ebehaviour_cases, JR_expr_fun, is_value_of_expr_def] +[([``"JTe_ident"``], METIS_TAC [closed_env_lem]), + ([``"JTe_cons"``, ``"JTe_sequence"``], METIS_TAC []), + ([``"JTe_ifthenelse"``, ``"JTe_assert"``], METIS_TAC [cv_bool]), + ([``"JTe_let_mono"``, ``"JTe_let_poly"``], + METIS_TAC [MAP_REVERSE, closed_env_tv_lem, JMmatch_val_subst_thm, JM_matchP_thm]), + ([``"JTe_try"``], METIS_TAC [pattern_matching_nchotomy]), + ([``"JTe_apply"``], + SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [] THEN1 + (IMP_RES_TAC cv_fun THEN SRW_TAC [] [] THEN + FULL_SIMP_TAC (srw_ss()) [JTe_fun, is_value_of_expr_def] THEN + METIS_TAC [uprim_progress, bprim_progress]) + THEN METIS_TAC []), + ([``"JTe_record_proj"``], + SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [JTfield_cases] THENL + [SRW_TAC [] [] THEN `Eok E` by METIS_TAC [inst_named_ok_thm, ok_ok_thm] THEN + IMP_RES_TAC lookup_ok_thm THEN FULL_SIMP_TAC list_ss [EBok_def] THEN + IMP_RES_TAC cv_tcn THEN SRW_TAC [] [] THEN + IMP_RES_TAC PERM_MEM_EQ THEN + FULL_SIMP_TAC list_ss [is_value_of_expr_def, EVERY_MEM, LAMBDA_PROD2] THEN + `?l1 l2 y. (fes = l1 ++ [(F_name field_name,y)] ++ l2) /\ ~MEM (F_name field_name) (MAP FST l1)` by + METIS_TAC [MEM_SPLIT_FIRST, MEM_MAP] THEN + SRW_TAC [] [EXISTS_OR_THM] THEN DISJ2_TAC THEN + MAP_EVERY Q.EXISTS_TAC + [`y`, + `MAP (\z. (field_to_fn (FST z), SND z)) l2`, + `MAP (\z. (field_to_fn (FST z), SND z)) l1`] THEN + SRW_TAC [] [MAP_MAP, field_to_fn_thm, MAP_I] THEN + FULL_SIMP_TAC list_ss [MEM_MAP, MEM_APPEND] THEN1 METIS_TAC [SND] THEN + Cases THEN SRW_TAC [] [] THEN Cases_on `q` THEN SRW_TAC [] [field_to_fn_def] THEN + METIS_TAC [FST], + METIS_TAC [], + METIS_TAC []]), + ([``"JTe_for"``], + SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [] THEN IMP_RES_TAC cv_int THEN SRW_TAC [] [] THEN1 + (Cases_on `for_dirn` THEN + SRW_TAC [] [EXISTS_OR_THM, integerTheory.NUM_OF_INT, + integer_wordTheory.i2w_def, EVAL ``1:int<0``] THEN + Cases_on `n'<=n` THEN SRW_TAC [] [] THEN + FULL_SIMP_TAC list_ss [WORD_NOT_LESS_EQUAL, WORD_GREATER] THEN METIS_TAC [WORD_LESS_CASES]) + THEN METIS_TAC []), + ([``"JTe_letrec"``], + SRW_TAC [] [] THEN + Q.EXISTS_TAC `MAP (\lrbs. case lrbs of LRB_simple vn pm -> (vn, recfun lrb pm, pm)) (lrbs_to_lrblist lrb)` + THEN + SRW_TAC [] [MAP_MAP, letrec_binding_nchotomy, EVERY_MAP, LRB_lem1, LRB_lem2, LRB_lem3, + MAP_I, lrbs_to_lrblist_thm, EVERY_MEM] THEN Cases_on `lrbs` THEN SRW_TAC [] []), + ([``"JTe_match"``], + SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [JRmatching_step_cases, JRmatching_success_cases] THENL + [Cases_on `pm` THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [JTe_fun, EXISTS_OR_THM] THEN + SRW_TAC [] [] THEN Cases_on `pattern_e_E_list` THEN FULL_SIMP_TAC (srw_ss()) [] THEN + Cases_on `~JM_matchP e (FST h)` THEN SRW_TAC [] [] THENL + [Cases_on `t'` THEN FULL_SIMP_TAC list_ss [] THEN NTAC 2 DISJ2_TAC THEN DISJ1_TAC THEN + Q.EXISTS_TAC `(FST h', FST (SND h'))::MAP (\x. (FST x, FST (SND x))) t''` THEN + SRW_TAC [ARITH_ss] [MAP_MAP], + FULL_SIMP_TAC list_ss [JM_matchP_thm] THEN NTAC 2 DISJ2_TAC THEN + Q.EXISTS_TAC `s` THEN SRW_TAC [] [] THEN + IMP_RES_TAC JM_match_is_val_thm THEN FULL_SIMP_TAC (srw_ss()) [EVERY_MAP] THEN + Q.EXISTS_TAC `MAP (\(a,b,c). (a,b)) t'` THEN SRW_TAC [] [LAMBDA_PROD2, MAP_MAP]], + METIS_TAC [], + METIS_TAC []]), + ([``"JTe_tuple"``, ``"JTe_construct"``], + SRW_TAC [] [] THEN + FULL_SIMP_TAC list_ss [EVERY_MAP] THEN Cases_on `EXISTS (\x. ~is_value_of_expr (FST x)) e_t_list` THEN + FULL_SIMP_TAC list_ss [o_DEF] THEN IMP_RES_TAC EXISTS_LAST_SPLIT THEN + FULL_SIMP_TAC list_ss [o_DEF] THEN + METIS_TAC [EVERY_MAP]), + ([``"JTe_record_constr"``], + SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [EVERY_MAP] THEN + Cases_on `EVERY (\z. is_value_of_expr (FST (SND z))) field_name_e_t_list` THEN + FULL_SIMP_TAC list_ss [o_DEF] THEN IMP_RES_TAC EXISTS_LAST_SPLIT THEN + FULL_SIMP_TAC list_ss [o_DEF] THEN SRW_TAC [] [EXISTS_OR_THM] THENL + [DISJ1_TAC THEN + MAP_EVERY Q.EXISTS_TAC [`L`, `MAP (\x. (FST x, FST (SND x))) l2`, `MAP (\x. (FST x, FST (SND x))) l1`, + `FST y`, `FST (SND y)`, `e'`] THEN + SRW_TAC [] [MAP_MAP, EVERY_MAP], + DISJ2_TAC THEN + MAP_EVERY Q.EXISTS_TAC [`MAP (\x. (FST x, FST (SND x))) l2`, `MAP (\x. (FST x, FST (SND x))) l1`, + `FST y`, `v`] THEN + SRW_TAC [] [MAP_MAP, EVERY_MAP]]), + ([``"JTe_record_with"``], + SRW_TAC [] [] THEN Cases_on `~is_value_of_expr e` THEN SRW_TAC [] [] THEN1 + (FULL_SIMP_TAC list_ss [EXISTS_OR_THM] THEN SRW_TAC [] [] THENL + [DISJ1_TAC THEN MAP_EVERY Q.EXISTS_TAC [`L`, `MAP (\x. (FST x, FST (SND x))) field_name_e_t_list`, + `e'`] THEN + SRW_TAC [] [MAP_MAP, EVERY_MAP], + DISJ2_TAC THEN Q.EXISTS_TAC `MAP (\x. (FST x, FST (SND x))) field_name_e_t_list` THEN + SRW_TAC [] [MAP_MAP, EVERY_MAP]]) + THEN + Cases_on `EXISTS (\x. ~is_value_of_expr (FST (SND x))) field_name_e_t_list` THEN1 + (Q.PAT_ASSUM `closed_env E ==> P` (K ALL_TAC) THEN + FULL_SIMP_TAC list_ss [o_DEF] THEN SRW_TAC [] [EXISTS_OR_THM] THEN + IMP_RES_TAC EXISTS_LAST_SPLIT THEN FULL_SIMP_TAC list_ss [o_DEF] THEN SRW_TAC [] [] THENL + [DISJ1_TAC THEN + MAP_EVERY Q.EXISTS_TAC [`L`, `MAP (\x. (FST x, FST (SND x))) l2`, + `MAP (\x. (FST x, FST (SND x))) l1`, `FST y`, `FST (SND y)`, `e'`] THEN + SRW_TAC [] [MAP_MAP, EVERY_MAP], + DISJ2_TAC THEN DISJ1_TAC THEN + MAP_EVERY Q.EXISTS_TAC [`MAP (\x. (FST x, FST (SND x))) l2`, + `MAP (\x. (FST x, FST (SND x))) l1`, `FST y`, `v`] THEN + SRW_TAC [] [MAP_MAP, EVERY_MAP]]) + THEN + FULL_SIMP_TAC list_ss [o_DEF] THEN SRW_TAC [] [EXISTS_OR_THM] THEN + NTAC 4 DISJ2_TAC THEN + Cases_on `field_name_e_t_list` THEN FULL_SIMP_TAC list_ss [] THEN + FULL_SIMP_TAC list_ss [JTfield_cases] THEN + `Eok E` by METIS_TAC [inst_named_ok_thm, ok_ok_thm] THEN SRW_TAC [] [] THEN + IMP_RES_TAC lookup_ok_thm THEN FULL_SIMP_TAC list_ss [EBok_def] THEN + IMP_RES_TAC cv_tcn THEN SRW_TAC [] [] THEN + IMP_RES_TAC PERM_MEM_EQ THEN + FULL_SIMP_TAC list_ss [is_value_of_expr_def, EVERY_MEM, LAMBDA_PROD2] THEN + `?l1 l2 y. (fes = l1 ++ [(F_name (FST h),y)] ++ l2) /\ ~MEM (F_name (FST h)) (MAP FST l1)` by + METIS_TAC [MEM_SPLIT_FIRST, MEM_MAP] THEN + SRW_TAC [] [] THEN Cases_on `t'` THEN FULL_SIMP_TAC list_ss [is_value_of_expr_def] THEN SRW_TAC [] [] THENL + [MAP_EVERY Q.EXISTS_TAC [`MAP (\z. (field_to_fn (FST z), SND z)) l2`, + `MAP (\z. (field_to_fn (FST z), SND z)) l1`, + `y`] THEN + SRW_TAC [] [MAP_MAP, field_to_fn_thm, MAP_I] THEN + FULL_SIMP_TAC list_ss [MEM_MAP, MEM_APPEND] THEN1 METIS_TAC [SND] THEN + Cases THEN SRW_TAC [] [] THEN Cases_on `q` THEN SRW_TAC [] [field_to_fn_def] THEN + METIS_TAC [FST], + MAP_EVERY Q.EXISTS_TAC [`(FST h', FST (SND h'))::MAP (\z. (FST z,FST (SND z))) t''`, + `MAP (\z. (field_to_fn (FST z), SND z)) l2`, + `MAP (\z. (field_to_fn (FST z), SND z)) l1`, + `y`] THEN + SRW_TAC [] [MAP_MAP, field_to_fn_thm, MAP_I] THEN + FULL_SIMP_TAC list_ss [MEM_MAP, MEM_APPEND] THEN1 + METIS_TAC [SND] THEN + Cases THEN SRW_TAC [] [] THEN Cases_on `q` THEN SRW_TAC [] [field_to_fn_def] THEN + METIS_TAC [FST]])]); + +end; + +val e_progress_thm = save_thm ("e_progress_thm", SIMP_RULE list_ss [GSYM RIGHT_FORALL_IMP_THM, AND_IMP_INTRO] + e_progress_thm); + + +local + +val lem1 = Q.prove ( +`!st. ?l:num. !l' v. (list_assoc l' st = SOME v) ==> (l' < l)`, +Induct THEN SRW_TAC [] [list_assoc_def] THEN Cases_on `h` THEN +SRW_TAC [] [list_assoc_def, COND_EXPAND_EQ] THEN Q.EXISTS_TAC `l+q+1` THEN SRW_TAC [] [] THEN +RES_TAC THEN DECIDE_TAC); + +in + +val fresh_alloc = Q.prove ( +`!st. ?l:num. !v. ~(list_assoc l st = SOME v)`, +METIS_TAC [DECIDE ``!x:num. ~(x !st. + (!l. MEM l (fl_expr v) ==> ?v. (list_assoc l st = SOME v) /\ is_value_of_expr v) ==> + ?L' st' e'. JRuprim up v L' e' /\ JRstore st L' st'`, +RULE_INDUCT_TAC JRuprim_ind [JRstore_cases, JRuprim_cases, fl_letrec_binding_def] +[] THEN METIS_TAC [fresh_alloc]); + +val bprim_store_progress_thm = Q.prove ( +`!v1 bp v2 L e. JRbprim v1 bp v2 L e ==> !st. + (!l. (MEM l (fl_expr v1) \/ MEM l (fl_expr v2)) ==> + ?v. (list_assoc l st = SOME v) /\ is_value_of_expr v) ==> + ?L' st' e'. JRbprim v1 bp v2 L' e' /\ JRstore st L' st'`, +RULE_INDUCT_TAC JRbprim_ind [JRstore_cases, JRbprim_cases, fl_letrec_binding_def] +[([``"Jbprim_equal_fun"``], + Cases_on `v1` THEN FULL_SIMP_TAC list_ss [funval_def] THEN SRW_TAC [] [] THEN METIS_TAC []), + ([``"Jbprim_assign"``], + SRW_TAC [] [list_assoc_split] THEN + POP_ASSUM (MP_TAC o Q.SPEC `l`) THEN SRW_TAC [] [] THEN + MAP_EVERY Q.EXISTS_TAC [`l2`, `v`, `l1`] THEN SRW_TAC [] [] THEN1 METIS_TAC [APPEND_ASSOC, APPEND] THEN + CCONTR_TAC THEN FULL_SIMP_TAC list_ss [])] + THEN METIS_TAC []); + +val e_store_progress_thm = Q.prove ( +`!e L e'. JR_expr e L e' ==> !st. + (!l. MEM l (fl_expr e) ==> ?v. (list_assoc l st = SOME v) /\ is_value_of_expr v) ==> + ?L' st' e'. JR_expr e L' e' /\ JRstore st L' st'`, +RULE_INDUCT_TAC JR_expr_ind [JR_expr_fun, fl_letrec_binding_def, is_value_of_expr_def] +[([``"JR_expr_uprim"``, ``"JR_expr_bprim"``], + METIS_TAC [uprim_store_progress_thm, bprim_store_progress_thm]), + ([``"JR_expr_apply_ctx_arg"``, ``"JR_expr_apply_ctx_fun"``, ``"JR_expr_let_ctx"``, + ``"JR_expr_sequence_ctx_left"``, ``"JR_expr_ifthenelse_ctx"``, ``"JR_expr_match_ctx"``, + ``"JR_expr_for_ctx1"``, ``"JR_expr_for_ctx2"``, ``"JR_expr_try_ctx"``, ``"JR_expr_cons_ctx1"``, + ``"JR_expr_cons_ctx2"``, ``"JR_expr_record_with_ctx2"``, ``"JR_expr_record_access_ctx"``, + ``"JR_expr_assert_ctx"``], + METIS_TAC []), + ([``"JR_expr_tuple_ctx"``, ``"JR_expr_constr_ctx"``, ``"JR_expr_record_ctx"``, ``"JR_expr_record_with_ctx1"``], + SRW_TAC [] [MEM_FLAT, EXISTS_MAP] THEN METIS_TAC [])] +THEN +SRW_TAC [] [JRstore_cases] THEN METIS_TAC []); + +val e_store_progress_thm = + save_thm ("e_store_progress_thm", SIMP_RULE list_ss [GSYM RIGHT_FORALL_IMP_THM, AND_IMP_INTRO] + e_store_progress_thm); + +local + +val lem1 = Q.prove ( +`!E l. value_env E ==> ~MEM (name_l l) (MAP domEB E)`, +Induct THEN SRW_TAC [] [value_env_def, domEB_def] THEN +Cases_on `h` THEN FULL_SIMP_TAC list_ss [value_env_def, domEB_def] THEN SRW_TAC [] []); + +in + +val env_fl_thm = Q.store_thm ("env_fl_thm", +`(!S E e t. JTe S E e t ==> !x. MEM x (fl_expr e) ==> MEM (name_l x) (MAP domEB E)) /\ + (!S E pm t t'. JTpat_matching S E pm t t' ==> + !x. MEM x (fl_pattern_matching pm) ==> MEM (name_l x) (MAP domEB E)) /\ + (!S E lb E'. JTlet_binding S E lb E' ==> + !x. MEM x (fl_let_binding lb) ==> MEM (name_l x) (MAP domEB E)) /\ + (!S E lrbs E'. JTletrec_binding S E lrbs E' ==> + !x. MEM x (fl_letrec_bindings lrbs) ==> MEM (name_l x) (MAP domEB E))`, +RULE_INDUCT_TAC JTe_sind [fl_letrec_binding_def, EVERY_MEM, MEM_FLAT, EXISTS_MAP, EXISTS_MEM, domEB_def, + MAP_REVERSE, MAP_MAP] +[([``"JTe_let_mono"``, ``"JTe_let_poly"``, ``"JTe_letrec"``, ``"JTletrec_binding_equal_function"``], + SRW_TAC [] [MEM_MAP] THEN METIS_TAC []), + ([``"JTe_location"``], + METIS_TAC [lookup_dom_thm]), + ([``"JTpat_matching_pm"``], + SRW_TAC [] [] THEN RES_TAC THEN IMP_RES_TAC pat_env_lem THEN METIS_TAC [lem1])] +THEN METIS_TAC []); + +end; + + +val _= export_theory(); + diff --git a/vendors/ott/examples/ocaml_light/hol/reduction_funScript.sml b/vendors/ott/examples/ocaml_light/hol/reduction_funScript.sml new file mode 100644 index 000000000000..9b77bdd24791 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/reduction_funScript.sml @@ -0,0 +1,1046 @@ +open bossLib HolKernel boolLib listTheory rich_listTheory optionTheory combinTheory arithmeticTheory pairTheory; +open sortingTheory wordsTheory; +open ottTheory ottLib caml_typedefTheory; +open utilTheory basicTheory matching_funTheory; + +val _ = new_theory "reduction_fun"; + +val UNZIP_LEM = Q.prove ( +`!l1 l2 l3. (UNZIP l1 = (l2, l3)) = (l2 = MAP FST l1) /\ (l3 = MAP SND l1)`, +Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN SRW_TAC [] [] THEN Cases_on `l3` THEN SRW_TAC [] [] THEN +METIS_TAC [FST, SND]); + +val ZIP_LEM = Q.prove ( +`!l1 l2 l3 x. (MAP SND l1 = l2++x::l3) = ?l2' x' l3'. (LENGTH l2' = LENGTH l2) /\ (LENGTH l3' = LENGTH l3) /\ + (l1 = ZIP (l2', l2) ++ (x',x) :: ZIP (l3', l3))`, +Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN SRW_TAC [] [] THEN EQ_TAC THEN SRW_TAC [] [] THENL +[Q.EXISTS_TAC `[]` THEN SRW_TAC [] [] THEN Cases_on `h` THEN SRW_TAC [] [] THEN + Q.EXISTS_TAC `MAP FST l1` THEN SRW_TAC [] [ZIP_MAP_ID], + Cases_on `l2'` THEN FULL_SIMP_TAC list_ss [], + Cases_on `l2'` THEN FULL_SIMP_TAC list_ss [MAP_SND_ZIP], + FULL_SIMP_TAC list_ss [MAP_SND_ZIP] THEN + Q.PAT_ASSUM `!l2 l3'' x''. (t ++ x::l3 = l2 ++ x''::l3'') = P l2 l3'' x''` + (MP_TAC o Q.SPECL [`t`, `l3`, `x`]) THEN + SRW_TAC [] [] THEN Q.EXISTS_TAC `FST h::l2''` THEN SRW_TAC [] [] THEN METIS_TAC [], + Cases_on `l2'` THEN FULL_SIMP_TAC list_ss [], + Cases_on `l2'` THEN FULL_SIMP_TAC list_ss [] THEN METIS_TAC []]); + + +val is_raise_def = Define +`(is_raise (Expr_apply expr1 expr2) = (expr1 = Expr_uprim Uprim_raise) /\ is_value_of_expr expr2) /\ + (is_raise _ = F)`; + +val value_not_raise_thm = Q.store_thm ("value_not_raise_thm", +`!e. (is_value_of_expr e ==> ~is_raise e) /\ (is_raise e ==> ~is_value_of_expr e)`, +recInduct is_value_of_expr_ind THEN SRW_TAC [] [is_value_of_expr_def, is_raise_def]); + +val _ = Hol_datatype +`result = Stuck + | Step of 'a + | StepAlloc of (expr -> 'a) => expr + | StepLookup of (expr -> 'a) => location + | StepAssign of 'a => location => expr`; + +val result_map_def = Define +`(result_map f Stuck = Stuck) /\ + (result_map f (Step expr) = Step (f expr)) /\ + (result_map f (StepAlloc get_result alloc_expr) = + StepAlloc (\l. f (get_result l)) alloc_expr) /\ + (result_map f (StepLookup get_result lookup_lab) = + StepLookup (\e. f (get_result e)) lookup_lab) /\ + (result_map f (StepAssign result_expr assign_lab assign_expr) = + StepAssign (f result_expr) assign_lab assign_expr)`; + +val interp_result_def = Define +`(interp_result (Step e) l = if l = Lab_nil then SOME e else NONE) /\ + (interp_result (StepAlloc get_result alloc_expr1) (Lab_alloc alloc_expr2 new_loc) = + if alloc_expr1 = alloc_expr2 then + SOME (get_result (Expr_location new_loc)) + else + NONE) /\ + (interp_result (StepLookup get_result lookup_lab1) (Lab_deref lookup_lab2 result_expr) = + if is_value_of_expr result_expr /\ (lookup_lab1 = lookup_lab2) then + SOME (get_result result_expr) + else + NONE) /\ + (interp_result (StepAssign result assign_loc1 assign_expr1) (Lab_assign assign_loc2 assign_expr2) = + if (assign_loc1 = assign_loc2) /\ (assign_expr1 = assign_expr2) then + SOME result + else + NONE) /\ + (interp_result _ _ = NONE)`; + +val eval_uprim_def = Define +`(eval_uprim Uprim_not v = + if v = Expr_constant (CONST_true) then + Step (Expr_constant (CONST_false)) + else if v = Expr_constant (CONST_false) then + Step (Expr_constant (CONST_true)) + else Stuck) /\ + (eval_uprim Uprim_minus v = + case v of + Expr_constant (CONST_int n) -> Step (Expr_constant (CONST_int (0w - n))) + || _ -> Stuck) /\ + (eval_uprim Uprim_ref v = + StepAlloc (\e. e) v) /\ + (eval_uprim Uprim_deref v = + case v of + Expr_location l -> StepLookup (\e. e) l + || _ -> Stuck) /\ + (eval_uprim Uprim_raise v = + Stuck)`; + +val b_int_primop_def = Define +`b_int_primop oper v1 v2 = + case v1 of + Expr_constant (CONST_int n1) -> + (case v2 of + Expr_constant (CONST_int n2) -> + Step (Expr_constant (CONST_int (oper n1 n2))) + || _ -> Stuck) + || _ -> Stuck`; + +val is_const_constr_def = Define +`(is_const_constr (CONST_constr _) = T) /\ + (is_const_constr _ = F)`; + +val non_funval_equal_def = Define +`(non_funval_equal (Expr_constant c) (Expr_constant c') = + if c = c' then + Step (Expr_constant CONST_true) + else + Step (Expr_constant CONST_false)) /\ + (non_funval_equal (Expr_location l) (Expr_location l') = + Step (Expr_apply (Expr_apply (Expr_bprim Bprim_equal) + (Expr_apply (Expr_uprim Uprim_deref) (Expr_location l))) + (Expr_apply (Expr_uprim Uprim_deref) (Expr_location l')))) /\ + (non_funval_equal (Expr_cons v1 v2) (Expr_cons v1' v2') = + Step (Expr_and (Expr_apply (Expr_apply (Expr_bprim Bprim_equal) v1) v1') + (Expr_apply (Expr_apply (Expr_bprim Bprim_equal) v2) v2'))) /\ + (non_funval_equal (Expr_cons v1 v2) (Expr_constant const) = + if (const = CONST_nil) then + Step (Expr_constant CONST_false) + else + Stuck) /\ + (non_funval_equal (Expr_constant const) (Expr_cons v1' v2') = + if const = CONST_nil then + Step (Expr_constant CONST_false) + else + Stuck) /\ + (non_funval_equal (Expr_tuple vs) (Expr_tuple vs') = + if ~(LENGTH vs >= 2) \/ ~(LENGTH vs = LENGTH vs') then + Stuck + else + Step (FOLDR Expr_and + (Expr_constant CONST_true) + (MAP2 (\v v'. Expr_apply (Expr_apply (Expr_bprim Bprim_equal) v) v') vs vs'))) /\ + (non_funval_equal (Expr_construct ctor vs) (Expr_construct ctor' vs') = + if ~(ctor = ctor') then + Step (Expr_constant CONST_false) + else if ~(LENGTH vs = LENGTH vs') then + Stuck + else + Step (FOLDR Expr_and + (Expr_constant CONST_true) + (MAP2 (\v v'. Expr_apply (Expr_apply (Expr_bprim Bprim_equal) v) v') vs vs'))) /\ + (non_funval_equal (Expr_construct ctor vs) (Expr_constant const) = + if is_const_constr const then + Step (Expr_constant CONST_false) + else + Stuck) /\ + (non_funval_equal (Expr_constant const) (Expr_construct ctor' vs') = + if is_const_constr const then + Step (Expr_constant CONST_false) + else + Stuck) /\ + (non_funval_equal (Expr_record field_exprs) (Expr_record field_exprs') = + if ~(PERM (MAP (\x. field_to_fn (FST x)) field_exprs) + (MAP (\x. field_to_fn (FST x)) field_exprs')) then + Stuck + else + Step (FOLDR Expr_and (Expr_constant CONST_true) + (MAP (\(field, v). + Expr_apply (Expr_apply (Expr_bprim Bprim_equal) v) + (Expr_field (Expr_record field_exprs') field)) + field_exprs))) /\ + (non_funval_equal _ _ = Stuck)`; + +val eval_bprim_def = Define +`(eval_bprim Bprim_equal v1 v2 = + if funval v1 then + Step (Expr_apply (Expr_uprim Uprim_raise) + (Expr_construct C_invalidargument + [Expr_constant (CONST_string "equal: functional value")])) + else + non_funval_equal v1 v2) /\ + (eval_bprim Bprim_plus v1 v2 = b_int_primop $+ v1 v2) /\ + (eval_bprim Bprim_minus v1 v2 = b_int_primop $- v1 v2) /\ + (eval_bprim Bprim_times v1 v2 = b_int_primop $* v1 v2) /\ + (eval_bprim Bprim_div v1 v2 = + if v2 = Expr_constant (CONST_int 0w) then + case v1 of + Expr_constant (CONST_int n) -> + Step (Expr_apply (Expr_uprim Uprim_raise) (Expr_constant (CONST_constr C_div_by_0))) + || _ -> Stuck + else + b_int_primop $/ v1 v2) /\ + (eval_bprim Bprim_assign v1 v2 = + case v1 of + Expr_location l -> StepAssign (Expr_constant CONST_unit) l v2 + || _ -> Stuck)`; + +val do_1override_def = Define +`(do_1override fn1 v1 [] = NONE) /\ + (do_1override fn1 v1 ((fn2,v2)::record) = + if fn1 = fn2 then + SOME ((fn1, v1)::record) + else + OPTION_MAP (\r. (fn2, v2)::r) (do_1override fn1 v1 record))`; + +val eval_override_def = Define +`(eval_override v [] [] = Stuck) /\ + (eval_override v1 [fn1] [v] = + case v1 of + Expr_record fn_expr_list -> + (case do_1override fn1 v fn_expr_list of + NONE -> Stuck + || SOME x -> Step (Expr_record x)) + || _ -> Stuck) /\ + (eval_override v1 (fn1::foverrides) (v::voverrides) = + case v1 of + Expr_record fn_expr_list -> + (case do_1override fn1 v fn_expr_list of + NONE -> Stuck + || SOME x -> Step (Expr_override (Expr_record x) (ZIP (foverrides, voverrides)))) + || _ -> Stuck)`; + + +val eval_apply_def = Define +`eval_apply v1 v2 = + case v1 of + Expr_uprim up -> eval_uprim up v2 + || Expr_function pm -> Step (Expr_match v2 pm) + || Expr_apply v3 v4 -> + (case v3 of + Expr_bprim bp -> eval_bprim bp v4 v2 + || _ -> Stuck) + || _ -> Stuck`; + +val eval_field_def = Define +`eval_field field v = + case v of + Expr_record fn_expr_list -> + (case list_assoc field fn_expr_list of + SOME x -> Step x + || NONE -> Stuck) + || _ -> Stuck`; + +val eval_ite_def = Define +`eval_ite expr2 expr3 v1 = + if v1 = Expr_constant CONST_true then + Step expr2 + else if v1 = Expr_constant CONST_false then + Step expr3 + else + Stuck`; + +val eval_while_def = Define +`eval_while e1 e2 = + Step (Expr_ifthenelse e1 (Expr_sequence e2 (Expr_while e1 e2)) (Expr_constant CONST_unit))`; + +val eval_for_def = Define +`eval_for x for_dirn expr3 v2 v1 = + case v1 of + Expr_constant (CONST_int n1) -> + (case v2 of + Expr_constant (CONST_int n2) -> + (case for_dirn of + FD_upto -> + if n1 <= n2 then + Step (Expr_sequence (Expr_let (LB_simple (P_var x) v1) expr3) + (Expr_for x (Expr_constant (CONST_int (n1 + 1w))) for_dirn v2 + expr3)) + else + Step (Expr_constant CONST_unit) + || FD_downto -> + if n2 <= n1 then + Step (Expr_sequence (Expr_let (LB_simple (P_var x) v1) expr3) + (Expr_for x (Expr_constant (CONST_int (n1 - 1w))) for_dirn v2 + expr3)) + else + Step (Expr_constant CONST_unit)) + || _ -> Stuck) + || _ -> Stuck`; + +val eval_match_def = Define +`(eval_match (PM_pm []) v = Stuck) /\ + (eval_match (PM_pm [PE_inj p e]) v = + Step (case pat_match p v of + NONE -> Expr_apply (Expr_uprim Uprim_raise) (Expr_constant (CONST_constr C_matchfailure)) + || SOME substs -> substs_value_name_expr substs e)) /\ + (eval_match (PM_pm (PE_inj p e::pelist)) v = + Step (case pat_match p v of + NONE -> Expr_match v (PM_pm pelist) + || SOME substs -> substs_value_name_expr substs e))`; + + +val eval_try_def = Define +`eval_try expr pattern_matching = + case expr of + Expr_apply e1 e2 -> + if e1 = Expr_uprim Uprim_raise then + (case pattern_matching of + PM_pm pe_list -> Step (Expr_match e2 (PM_pm (pe_list ++ [PE_inj P_any expr])))) + else + Stuck + || _ -> Stuck`; + +val eval_let_def = Define +`eval_let pattern expr2 v1 = + Step (case pat_match pattern v1 of + SOME substs -> substs_value_name_expr substs expr2 + || NONE -> Expr_apply (Expr_uprim Uprim_raise) (Expr_constant (CONST_constr C_matchfailure)))`; + +val eval_letrec_def = Define +`eval_letrec letrec_bindings expr = + Step (substs_value_name_expr (MAP (\lb. (case lb of LRB_simple vn pm -> (vn, recfun letrec_bindings pm))) + (lrbs_to_lrblist letrec_bindings)) expr)`; + +val eval_assert_def = Define +`eval_assert v = + if v = Expr_constant CONST_true then + Step (Expr_constant CONST_unit) + else if v = Expr_constant CONST_false then + Step (Expr_apply (Expr_uprim Uprim_raise) (Expr_constant (CONST_constr C_assertfailure))) + else + Stuck`; + +local + +val lem1 = Q.prove ( +`!exprs1 exprs2. letrec_binding4_size (exprs1 ++ exprs2) = + letrec_binding4_size exprs1 + letrec_binding4_size exprs2`, +Induct THEN SRW_TAC [] [letrec_binding_size_def] THEN DECIDE_TAC); + +val lem2 = Q.prove ( +`!exprs. letrec_binding4_size (REVERSE exprs) = letrec_binding4_size exprs`, +Induct THEN SRW_TAC [] [letrec_binding_size_def, lem1] THEN DECIDE_TAC); + +val lem3 = Q.prove ( +`!field_exprs exprs fields. ((fields,exprs) = UNZIP field_exprs) ==> + letrec_binding4_size exprs <= letrec_binding3_size field_exprs`, +Induct THEN SRW_TAC [] [letrec_binding_size_def] THEN Cases_on `UNZIP field_exprs` THEN +SRW_TAC [] [] THEN Cases_on `h` THEN SRW_TAC [] [letrec_binding_size_def] THEN DECIDE_TAC); + +in + +val red_def = tDefine "red" +`(red (Expr_uprim unary_prim) = Stuck) /\ + (red (Expr_bprim binary_prim) = Stuck) /\ + (red (Expr_ident value_name) = Stuck) /\ + (red (Expr_constant constant) = Stuck) /\ + (red (Expr_typed expr typexpr) = Step expr) /\ + (red (Expr_tuple exprs) = red_list (REVERSE exprs) Expr_tuple (\v. Stuck) []) /\ + (red (Expr_construct constr exprs) = red_list (REVERSE exprs) (Expr_construct constr) (\x. Stuck) []) /\ + (red (Expr_cons expr1 expr2) = red_2 expr1 expr2 Expr_cons (\v1 v2. Stuck)) /\ + (red (Expr_record field_exprs) = + let (fields, exprs) = UNZIP field_exprs in + red_list (REVERSE exprs) (\es. Expr_record (ZIP (fields, es))) (\v. Stuck) []) /\ + (red (Expr_override expr field_exprs) = + red_1 expr (\e. Expr_override e field_exprs) + (\v. let (fields, exprs) = UNZIP field_exprs in + red_list (REVERSE exprs) + (\es. Expr_override v (ZIP (fields, es))) + (eval_override v fields) + [])) /\ + (red (Expr_apply expr1 expr2) = + red_2 expr1 expr2 Expr_apply eval_apply) /\ + (red (Expr_and expr1 expr2) = Step (Expr_ifthenelse expr1 expr2 (Expr_constant CONST_false))) /\ + (red (Expr_or expr1 expr2) = Step (Expr_ifthenelse expr1 (Expr_constant CONST_true) expr2)) /\ + (red (Expr_field expr field) = red_1 expr (\e. Expr_field e field) (eval_field field)) /\ + (red (Expr_ifthenelse expr1 expr2 expr3) = + red_1 expr1 (\e. Expr_ifthenelse e expr2 expr3) (eval_ite expr2 expr3)) /\ + (red (Expr_while expr1 expr2) = eval_while expr1 expr2) /\ + (red (Expr_for value_name expr1 for_dirn expr2 expr3) = + red_2 expr2 expr1 (\e2 e1. Expr_for value_name e1 for_dirn e2 expr3) + (eval_for value_name for_dirn expr3)) /\ + (red (Expr_sequence expr1 expr2) = red_1 expr1 (\e. Expr_sequence e expr2) (\v. Step expr2)) /\ + (red (Expr_match expr pattern_matching) = + red_1 expr (\e. Expr_match e pattern_matching) (eval_match pattern_matching)) /\ + (red (Expr_function pattern_matching) = Stuck) /\ + (red (Expr_try expr pattern_matching) = + if is_raise expr then + eval_try expr pattern_matching + else if is_value_of_expr expr then + Step expr + else + result_map (\e. Expr_try e pattern_matching) (red expr)) /\ + (red (Expr_let (LB_simple pattern expr1) expr2) = + red_1 expr1 (\e1. Expr_let (LB_simple pattern e1) expr2) (eval_let pattern expr2)) /\ + (red (Expr_letrec letrec_bindings expr) = eval_letrec letrec_bindings expr) /\ + (red (Expr_assert expr) = + red_1 expr Expr_assert eval_assert) /\ + (red (Expr_location location) = Stuck) /\ + + (red_1 expr pack1 eval1 = + if is_raise expr then + Step expr + else if ~is_value_of_expr expr then + result_map pack1 (red expr) + else + eval1 expr) /\ + + (red_2 expr1 expr2 pack2 eval2 = + if is_raise expr2 then + Step expr2 + else if ~is_value_of_expr expr2 then + result_map (pack2 expr1) (red expr2) + else if is_raise expr1 then + Step expr1 + else if ~is_value_of_expr expr1 then + result_map (\e. pack2 e expr2) (red expr1) + else + eval2 expr1 expr2) /\ + + (red_list [] packl evall acc = evall acc) /\ + (red_list (expr::exprs) packl evall acc = + if is_raise expr then + Step expr + else if ~is_value_of_expr expr then + result_map (\e. packl (REVERSE exprs++[e]++acc)) (red expr) + else + red_list exprs packl evall (expr::acc))` +(WF_REL_TAC `inv_image ((\x:num y. x < y) LEX (\x:num y. x < y)) + ((sum_case (\e. (expr_size e, 0)) + (sum_case (\(e, f, g). (expr_size e, 1)) + (sum_case (\(e1, e2, f, g). (expr_size e1 + expr_size e2, 1)) + (\(e, f, g). (letrec_binding4_size e, 1))))))` + THEN + SRW_TAC [ARITH_ss] [lem2, METIS_PROVE [] ``!f. (\x y. f x y) = f``] THEN + SRW_TAC [] [prim_recTheory.WF_LESS] THEN IMP_RES_TAC lem3 THEN DECIDE_TAC); + +val red_ind = fetch "-" "red_ind"; + +end; + +val interp_map_thm = Q.store_thm ("interp_map_thm", +`!result label f. interp_result (result_map f result) label = OPTION_MAP f (interp_result result label)`, +Cases THEN Cases THEN SRW_TAC [] [interp_result_def, result_map_def]); + +val eval_ite_thm = Q.prove ( +`!e2 e3 e l. (interp_result (eval_ite expr2 expr3 e) l = SOME e') = + (e = Expr_constant CONST_true) /\ (expr2 = e') /\ (l = Lab_nil) \/ + (e = Expr_constant CONST_false) /\ (expr3 = e') /\ (l = Lab_nil)`, +SRW_TAC [] [eval_ite_def, interp_result_def, COND_EXPAND_EQ] THEN METIS_TAC []); + + +val raise_stuck_thm = Q.prove ( +`!e. is_raise e ==> (red e = Stuck)`, +Cases THEN SRW_TAC [] [is_raise_def, red_def, result_map_def, eval_apply_def, eval_uprim_def] THEN +METIS_TAC [value_not_raise_thm]); + +val no_value_red_thm = Q.store_thm ("no_value_red_thm", +`!e L e'. is_value_of_expr e ==> ~JR_expr e L e'`, +recInduct is_value_of_expr_ind THEN SRW_TAC [] [is_value_of_expr_def, JR_expr_fun] THEN +CCONTR_TAC THEN FULL_SIMP_TAC list_ss [is_value_of_expr_def, expr_11, expr_distinct, JR_expr_fun] THEN +METIS_TAC []); + +val raise_not_JR_thm = Q.store_thm ("raise_not_JR_thm", +`!e. is_raise e ==> !l e'. ~JR_expr e l e'`, +Cases_on `e` THEN SRW_TAC [] [is_raise_def, JR_expr_fun, JRuprim_cases] THEN +FULL_SIMP_TAC list_ss [no_value_red_thm] THEN METIS_TAC [value_not_raise_thm, is_raise_def]); + +local + +val lem1 = Q.prove ( +`!es f acc. EVERY is_value_of_expr es ==> (red_list es f (\v. Stuck) acc = Stuck)`, +Induct THEN SRW_TAC [] [red_def, o_DEF, value_not_raise_thm]); + +val lem2 = Q.prove ( +`!fel fl el P. EVERY (\(f,e). P e) fel /\ (UNZIP fel = (fl,el)) ==> EVERY P el`, +Induct THEN SRW_TAC [] [] THEN SRW_TAC [] [] THENL +[Cases_on `h` THEN FULL_SIMP_TAC list_ss [], + RES_TAC THEN POP_ASSUM MATCH_MP_TAC THEN Q.EXISTS_TAC `FST (UNZIP fel)` THEN SRW_TAC [] []]); + +in + +val value_stuck_thm = Q.prove ( +`!e. is_value_of_expr e ==> (red e = Stuck)`, +recInduct is_value_of_expr_ind THEN +SRW_TAC [] [is_value_of_expr_def, red_def, value_not_raise_thm, eval_apply_def] THEN +SRW_TAC [] [red_def, result_map_def] THEN FULL_SIMP_TAC list_ss [o_DEF] THENL +[METIS_TAC [lem1, EVERY_REVERSE], + METIS_TAC [lem1, EVERY_REVERSE], + METIS_TAC [lem1, lem2, EVERY_REVERSE], + Cases_on `expr1` THEN FULL_SIMP_TAC list_ss [is_raise_def] THEN SRW_TAC [] []]); + +end; + +val FOLDR_MAP = Q.prove ( +`!f e g l. FOLDR f e (MAP g l) = FOLDR (\x y. f (g x) y) e l`, +Induct_on `l` THEN SRW_TAC [] []); + +val raise_cases = Q.store_thm ("raise_cases", +`!e. is_raise e = ?v. is_value_of_expr v /\ (e = Expr_apply (Expr_uprim Uprim_raise) v)`, +Cases THEN SRW_TAC [] [is_raise_def] THEN METIS_TAC []); + +val uprim_red_thm = Q.prove ( +`!u e l e'. is_value_of_expr e ==> + (JRuprim u e l e' = (interp_result (eval_uprim u e) l = SOME e'))`, +Cases THEN SRW_TAC [] [JRuprim_cases] THEN SRW_TAC [] [interp_result_def, eval_uprim_def, COND_EXPAND_EQ] THENL +[METIS_TAC [], + METIS_TAC [], + Cases_on `e` THEN SRW_TAC [] [interp_result_def] THEN Cases_on `c` THEN SRW_TAC [] [interp_result_def] THEN + METIS_TAC [], + Cases_on `l` THEN SRW_TAC [] [interp_result_def] THEN METIS_TAC [], + Cases_on `e` THEN SRW_TAC [] [interp_result_def] THEN Cases_on `l` THEN SRW_TAC [] [interp_result_def] THEN + METIS_TAC []]); + +local + +val TAC = +Cases_on `e1` THEN FULL_SIMP_TAC (srw_ss()) [interp_result_def, is_value_of_expr_def] THEN +Cases_on `c` THEN FULL_SIMP_TAC (srw_ss()) [interp_result_def] THEN +Cases_on `e2` THEN FULL_SIMP_TAC (srw_ss()) [interp_result_def, is_value_of_expr_def] THEN +Cases_on `c` THEN FULL_SIMP_TAC (srw_ss()) [interp_result_def, COND_EXPAND_EQ] THEN METIS_TAC []; + +in + +val bprim_red_thm = Q.prove ( +`!e1 b e2 l e'. is_value_of_expr e1 /\ is_value_of_expr e2 ==> + (JRbprim e1 b e2 l e' = (interp_result (eval_bprim b e1 e2) l = SOME e'))`, +Cases_on `b` THEN SRW_TAC [] [JRbprim_cases] THEN +SRW_TAC [] [interp_result_def, funval_def, eval_bprim_def, COND_EXPAND_EQ, b_int_primop_def] THENL +[Cases_on `e1` THEN FULL_SIMP_TAC (srw_ss()) [funval_def] THEN METIS_TAC [], + Cases_on `e1` THEN + FULL_SIMP_TAC (srw_ss()) [funval_def, is_value_of_expr_def, non_funval_equal_def, interp_result_def] THEN + Cases_on `e2` THEN FULL_SIMP_TAC list_ss [funval_def, is_value_of_expr_def] THEN + SRW_TAC [] [non_funval_equal_def, interp_result_def, COND_EXPAND_EQ, o_DEF] THENL + [METIS_TAC [], + METIS_TAC [], + Cases_on `c` THEN FULL_SIMP_TAC (srw_ss()) [is_const_constr_def] THEN METIS_TAC [], + Cases_on `c` THEN FULL_SIMP_TAC (srw_ss()) [is_const_constr_def] THEN METIS_TAC [], + METIS_TAC [], + METIS_TAC [LENGTH_MAP], + METIS_TAC [LENGTH_MAP], + FULL_SIMP_TAC list_ss [MAP2_ZIP, LAMBDA_PROD2] THEN + METIS_TAC [MAP_FST_ZIP, MAP_SND_ZIP, EVERY_MAP, ZIP_MAP_ID, LENGTH_ZIP], + Cases_on `c'` THEN FULL_SIMP_TAC (srw_ss()) [is_const_constr_def] THEN METIS_TAC [], + Cases_on `c'` THEN FULL_SIMP_TAC (srw_ss()) [is_const_constr_def] THEN METIS_TAC [], + METIS_TAC [], + METIS_TAC [LENGTH_MAP], + FULL_SIMP_TAC list_ss [MAP2_ZIP, LAMBDA_PROD2] THEN + METIS_TAC [MAP_FST_ZIP, MAP_SND_ZIP, EVERY_MAP, ZIP_MAP_ID, LENGTH_ZIP], + METIS_TAC [], + METIS_TAC [], + CCONTR_TAC THEN FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THEN + FULL_SIMP_TAC list_ss [MAP_MAP, field_to_fn_def] THEN METIS_TAC [], + EQ_TAC THEN SRW_TAC [] [] THEN1 SRW_TAC [] [MAP_MAP, LAMBDA_PROD2] THEN + MAP_EVERY Q.EXISTS_TAC [`MAP (\z. (field_to_fn (FST z), SND z)) l''`, + `MAP (\z. (field_to_fn (FST z), SND z)) l'`] THEN + FULL_SIMP_TAC (srw_ss()) [MAP_MAP, field_to_fn_thm, MAP_I, LAMBDA_PROD2, EVERY_MAP], + METIS_TAC []], + TAC, + TAC, + TAC, + Cases_on `e1` THEN FULL_SIMP_TAC (srw_ss()) [interp_result_def, is_value_of_expr_def] THEN + Cases_on `c` THEN FULL_SIMP_TAC (srw_ss()) [interp_result_def, COND_EXPAND_EQ] THEN METIS_TAC [], + TAC, + Cases_on `e1` THEN FULL_SIMP_TAC (srw_ss()) [interp_result_def, is_value_of_expr_def] THEN + Cases_on `l` THEN SRW_TAC [] [interp_result_def] THEN METIS_TAC []]); + +end; + +val list_get_next_def = Define +`(list_get_next [] = NONE) /\ + (list_get_next (e::es) = + if ~is_value_of_expr e then + SOME ([], e, es) + else + OPTION_MAP (\(vs, e', es). (e::vs, e', es)) (list_get_next es))`; + +val get_next_NONE_thm = Q.prove ( +`!es. (list_get_next es = NONE) = EVERY is_value_of_expr es`, +Induct THEN SRW_TAC [] [list_get_next_def] THEN METIS_TAC []); + +val get_next_SOME_thm = Q.prove ( +`!es x. (list_get_next es = SOME x) = + ?v_list e e_list. (es = v_list++[e]++e_list) /\ EVERY is_value_of_expr v_list /\ + ~is_value_of_expr e /\ (x = (v_list, e, e_list))`, +Induct THEN SRW_TAC [] [list_get_next_def] THENL +[Cases_on `x` THEN Cases_on `r` THEN Cases_on `q` THEN SRW_TAC [] [] THEN METIS_TAC [], + EQ_TAC THEN SRW_TAC [] [] THEN SRW_TAC [] [] THEN Cases_on `v_list` THEN FULL_SIMP_TAC list_ss [] THEN + SRW_TAC [] [] THEN Q.EXISTS_TAC `(t, e, e_list)` THEN SRW_TAC [] []]); + +val lem1 = Q.prove ( +`(!v. ~is_value_of_expr v \/ ~(e1 = Expr_apply (Expr_uprim Uprim_raise) v)) ==> + ~(e1 = Expr_apply (Expr_uprim Uprim_raise) v') \/ ~(l = Lab_nil) \/ + ~(e' = Expr_apply (Expr_uprim Uprim_raise) v') \/ ~is_value_of_expr v'`, +METIS_TAC []); + +val lem2 = Q.prove ( +`!x y z. x++[y]++z = x++y::z`, +METIS_TAC [APPEND, APPEND_ASSOC]); + +val lem3 = Q.prove ( +`!e_list e_list' e e' v_list v_list'. + EVERY is_value_of_expr v_list /\ EVERY is_value_of_expr v_list' /\ + ~is_value_of_expr e /\ ~is_value_of_expr e' ==> + ((v_list++e::e_list = v_list'++e'::e_list') = (e_list = e_list') /\ (e = e') /\ (v_list = v_list'))`, +Induct_on `v_list` THEN SRW_TAC [] [] THEN Cases_on `v_list'` THEN FULL_SIMP_TAC list_ss [] THEN METIS_TAC []); + +val lem4 = Q.prove ( +`!ctor. + (!l e'. (if is_raise e then + (e' = e) /\ (l = Lab_nil) + else + ?e1'. (e' = ctor (REVERSE (v_list ++ [e1'] ++ e_list))) /\ JR_expr e l e1') = + (interp_result (red_list (v_list ++ [e] ++ e_list) ctor (\v. Stuck) []) l = SOME e')) /\ + (REVERSE exprs = v_list ++ [e] ++ e_list) /\ + EVERY is_value_of_expr v_list /\ + ~is_value_of_expr e + ==> + ((?v_list e_list e e''. + (exprs = e_list ++ [e] ++ v_list) /\ + (e' = ctor (e_list ++ [e''] ++ v_list)) /\ + EVERY is_value_of_expr v_list /\ JR_expr e l e'') \/ + (?v_list e_list v. + (exprs = + e_list ++ [Expr_apply (Expr_uprim Uprim_raise) v] ++ v_list) /\ + (l = Lab_nil) /\ (e' = Expr_apply (Expr_uprim Uprim_raise) v) /\ + is_value_of_expr v /\ EVERY is_value_of_expr v_list) + = + (interp_result (red_list (v_list ++ [e] ++ e_list) ctor (\v. Stuck) []) l = SOME e'))`, +SRW_TAC [] [] THEN EQ_TAC THEN SRW_TAC [] [] THEN +FULL_SIMP_TAC list_ss [COND_EXPAND_EQ, REVERSE_APPEND, lem2] THENL +[`EVERY is_value_of_expr (REVERSE v_list')` by METIS_TAC [EVERY_REVERSE] THEN + `~is_value_of_expr e''` by METIS_TAC [no_value_red_thm] THEN + FULL_SIMP_TAC list_ss [lem3] THEN SRW_TAC [] [] THEN + `~is_raise e` by METIS_TAC [raise_not_JR_thm] THEN FULL_SIMP_TAC list_ss [] THEN METIS_TAC [], + `EVERY is_value_of_expr (REVERSE v_list')` by METIS_TAC [EVERY_REVERSE] THEN + `~is_value_of_expr (Expr_apply (Expr_uprim Uprim_raise) v)` by SRW_TAC [] [is_value_of_expr_def] THEN + FULL_SIMP_TAC list_ss [lem3] THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [is_raise_def] THEN + METIS_TAC [], + Cases_on `is_raise e` THEN FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THENL + [FULL_SIMP_TAC list_ss [raise_cases] THEN DISJ2_TAC THEN + MAP_EVERY Q.EXISTS_TAC [`REVERSE v_list`, `REVERSE e_list`, `v`] THEN + SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [lem2, REVERSE_EQ_SYM, REVERSE_APPEND, EVERY_REVERSE] THEN + METIS_TAC [], + DISJ1_TAC THEN MAP_EVERY Q.EXISTS_TAC [`REVERSE v_list`, `REVERSE e_list`, `e`] THEN + FULL_SIMP_TAC list_ss [lem2, REVERSE_EQ_SYM, REVERSE_APPEND, EVERY_REVERSE]]]); + +val lem5 = Q.prove ( +`!l1 f x l2 fn_v_list fn'_v'_list e'. + ~MEM (F_name f) (MAP FST l1) /\ ~MEM (F_name f) (MAP (\z. F_name (FST z)) fn_v_list) /\ + (l1 ++ (F_name f,x)::l2 = MAP (\z. (F_name (FST z),SND z)) fn_v_list ++ [(F_name f,e')] ++ + MAP (\z. (F_name (FST z),SND z)) fn'_v'_list) ==> + (x = e')`, +Induct THEN SRW_TAC [] [] THEN Cases_on `fn_v_list` THEN FULL_SIMP_TAC list_ss [] THEN METIS_TAC []); + +(*val lem6 = Q.prove ( +`(!lb g. FST (case lb of LRB_simple vn pm -> g vn pm) = case lb of LRB_simple vn pm -> FST (g vn pm)) /\ + (!lb g. SND (case lb of LRB_simple vn pm -> g vn pm) = case lb of LRB_simple vn pm -> SND (g vn pm))`, +CONJ_TAC THEN Cases THEN SRW_TAC [] []); +*) +val lem6 = Q.prove ( +`!lb f g. f (case lb of LRB_simple vn pm -> g vn pm) = case lb of LRB_simple vn pm -> f (g vn pm)`, +Cases THEN SRW_TAC [] []); + +val lem7 = Q.prove ( +`!h t' pat_e_list. (h::t' = MAP (\z. PE_inj (FST z) (SND z)) pat_e_list) = + (pat_e_list = (case h of PE_inj a b -> (a, b))::MAP (\x. case x of PE_inj a b -> (a, b)) t')`, +Induct_on `t'` THEN SRW_TAC [] [] THENL +[Cases_on `h` THEN Cases_on `pat_e_list` THEN SRW_TAC [] [] THEN Cases_on `h` THEN SRW_TAC [] [] THEN + METIS_TAC [], + Cases_on `pat_e_list` THEN Cases_on `h'` THEN SRW_TAC [] [] THEN Cases_on `h''` THEN SRW_TAC [] [] THEN + Cases_on `h` THEN SRW_TAC [] [] THEN METIS_TAC []]); + +val lem8 = Q.prove ( +`(!pe g. FST (case pe of PE_inj p e -> g p e) = case pe of PE_inj p e -> FST (g p e)) /\ + (!pe g. SND (case pe of PE_inj p e -> g p e) = case pe of PE_inj p e -> SND (g p e))`, +CONJ_TAC THEN Cases THEN SRW_TAC [] []); + +val lem9 = Q.prove ( +`!h. PE_inj (case h of PE_inj a b -> a) (case h of PE_inj a b -> b) = h`, +Cases_on `h` THEN SRW_TAC [] []); + +val lem10 = Q.prove ( +`!l1 l2 fn v v'. ~MEM fn (MAP FST l1) ==> + (interp_result (eval_override (Expr_record (MAP (\z. (F_name (FST z),SND z)) (l1 ++ [(fn, v)] ++ l2))) + [F_name fn] [v']) Lab_nil = + SOME (Expr_record (MAP (\z. (F_name (FST z),SND z)) (l1 ++ [(fn, v')] ++ l2))))`, +SRW_TAC [] [eval_override_def, interp_result_def] THEN Induct_on `l1` THEN +SRW_TAC [] [do_1override_def, interp_result_def] THEN +Cases_on `do_1override (F_name fn) v' (MAP (\z. (F_name (FST z),SND z)) l1 ++ [(F_name fn,v)] ++ + MAP (\z. (F_name (FST z),SND z)) l2)` THEN +FULL_SIMP_TAC (srw_ss()) [interp_result_def]); + +val lem11 = Q.prove ( +`!l3 l1 l2 fn v v'. ~MEM fn (MAP FST l1) /\ LENGTH l3 >= 1 ==> + (interp_result (eval_override (Expr_record (MAP (\z. (F_name (FST z),SND z)) (l1 ++ [(fn, v)] ++ l2))) + (F_name fn::MAP (\z. F_name (FST z)) l3) + (v'::MAP SND l3)) Lab_nil = + SOME (Expr_override (Expr_record (MAP (\z. (F_name (FST z),SND z)) (l1 ++ [(fn,v')] ++ l2))) + (MAP (\z. (F_name (FST z),SND z)) l3)))`, +Induct THEN SRW_TAC [] [] THEN Cases_on `l3` THEN FULL_SIMP_TAC list_ss [] THEN + SRW_TAC [] [eval_override_def, interp_result_def] THEN Induct_on `l1` THEN + SRW_TAC [] [do_1override_def, interp_result_def] THEN + Cases_on `do_1override (F_name fn) v' (MAP (\z. (F_name (FST z),SND z)) l1 ++ [(F_name fn,v)] ++ + MAP (\z. (F_name (FST z),SND z)) l2)` THEN + FULL_SIMP_TAC (srw_ss()) [interp_result_def] THEN + FULL_SIMP_TAC (srw_ss()) [eval_override_def, interp_result_def, ZIP_MAP, MAP_MAP, MAP_ZIP_SAME]); + +val lem12 = Q.prove ( +`!l fn v x. (do_1override fn v l = SOME x) ==> + ?r1 r2 v'. (l = r1 ++ [(fn,v')] ++ r2) /\ (x = r1 ++ [(fn,v)] ++ r2) /\ ~MEM fn (MAP FST r1)`, +Induct THEN SRW_TAC [] [do_1override_def] THEN Cases_on `h` THEN +FULL_SIMP_TAC (srw_ss ()) [do_1override_def, COND_EXPAND_EQ] THEN SRW_TAC [] [] THENL +[Q.EXISTS_TAC `[]` THEN SRW_TAC [] [], + RES_TAC THEN SRW_TAC [] [] THEN Q.EXISTS_TAC `(q,r)::r1` THEN SRW_TAC [] []]); + +val lem13 = Q.prove ( +`!l2 l3 l e e'. (LENGTH l2 >= 2) /\ + (LENGTH l2 = LENGTH l3) /\ + (interp_result (eval_override e l2 l3) l = SOME e') ==> + ?r1 r2 v. (e = Expr_record (r1++[(HD l2, v)]++r2)) /\ + (e' = Expr_override (Expr_record (r1++[(HD l2, HD l3)]++r2)) + (ZIP (TL l2, TL l3))) /\ + ~MEM (HD l2) (MAP FST r1) /\ + (l = Lab_nil)`, +Induct THEN Cases_on `l3` THEN SRW_TAC [] [] THEN +FULL_SIMP_TAC list_ss [eval_override_def, interp_result_def] THEN +Cases_on `l2` THEN FULL_SIMP_TAC list_ss [] THEN +Cases_on `t` THEN FULL_SIMP_TAC list_ss [eval_override_def] THEN +Cases_on `e` THEN FULL_SIMP_TAC (srw_ss()) [interp_result_def] THEN +FULL_SIMP_TAC list_ss [COND_EXPAND_EQ] THEN +Cases_on `do_1override h' h l'` THEN FULL_SIMP_TAC (srw_ss ()) [interp_result_def, COND_EXPAND_EQ] THEN +SRW_TAC [] [] THEN METIS_TAC [lem12]); + + +val red_thm = Q.store_thm ("red_thm", +`(!e l e'. JR_expr e l e' = (interp_result (red e) l = SOME e')) /\ + (!e pack eval l e'. + (if is_raise e then + (l = Lab_nil) /\ (e' = e) + else if ~is_value_of_expr e then + ?e1'. (e' = pack e1') /\ JR_expr e l e1' + else + (interp_result (eval e) l = SOME e')) + = + (interp_result (red_1 e pack eval) l = SOME e')) /\ + (!e1 e2 pack eval l e'. + (if is_raise e2 then + (l = Lab_nil) /\ (e' = e2) + else if ~is_value_of_expr e2 then + ?e2'. (e' = pack e1 e2') /\ JR_expr e2 l e2' + else if is_raise e1 then + (l = Lab_nil) /\ (e' = e1) + else if ~is_value_of_expr e1 then + ?e1'. (e' = pack e1' e2) /\ JR_expr e1 l e1' + else + (interp_result (eval e1 e2) l = SOME e')) + = + (interp_result (red_2 e1 e2 pack eval) l = SOME e')) /\ + (!es pack eval acc l e'. + (case list_get_next es of + NONE -> (interp_result (eval (REVERSE es++acc)) l = SOME e') + || SOME (v_list, e, e_list) -> + if is_raise e then + (e' = e) /\ (l = Lab_nil) + else + ?e1'. (e' = pack (REVERSE (v_list++[e1']++e_list)++acc)) /\ JR_expr e l e1') + = + (interp_result (red_list es pack eval acc) l = SOME e'))`, +HO_MATCH_MP_TAC red_ind THEN REPEAT CONJ_TAC THENL +[(* Expr_uprim unary_prim *) + SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ], + (* Expr_bprim binary_prim *) + SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ], + (* Expr_ident value_name *) + SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ], + (* Expr_constant constant *) + SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ], + (* Expr_typed expr typexpr *) + SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ] THEN METIS_TAC [], + (* Expr_tuple exprs *) + SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ] THEN + Cases_on `list_get_next (REVERSE exprs)` THEN + FULL_SIMP_TAC (srw_ss()) [get_next_NONE_thm, get_next_SOME_thm] THENL + [CCONTR_TAC THEN FULL_SIMP_TAC list_ss [EVERY_REVERSE] THEN SRW_TAC [] [] THEN + FULL_SIMP_TAC (srw_ss()) [EVERY_APPEND, is_value_of_expr_def] THEN METIS_TAC [no_value_red_thm], + SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [lem4]], + (* Expr_construct constr exprs *) + SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ] THEN + Cases_on `list_get_next (REVERSE exprs)` THEN + FULL_SIMP_TAC (srw_ss()) [get_next_NONE_thm, get_next_SOME_thm] THENL + [CCONTR_TAC THEN FULL_SIMP_TAC list_ss [EVERY_REVERSE] THEN SRW_TAC [] [] THEN + FULL_SIMP_TAC (srw_ss()) [EVERY_APPEND, is_value_of_expr_def] THEN METIS_TAC [no_value_red_thm], + SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [lem4]], + (* Expr_cons e1 e2 *) + SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ, raise_not_JR_thm, value_not_raise_thm, + no_value_red_thm, raise_cases] THEN METIS_TAC [], + (* Expr_record field_exprs *) + SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ] THEN + FULL_SIMP_TAC list_ss [UNZIP_LEM] THEN SRW_TAC [] [] THEN + Cases_on `list_get_next (REVERSE (MAP SND field_exprs))` THEN + FULL_SIMP_TAC (srw_ss()) [get_next_NONE_thm, get_next_SOME_thm] THENL + [CCONTR_TAC THEN FULL_SIMP_TAC list_ss [EVERY_REVERSE] THEN SRW_TAC [] [] THEN + FULL_SIMP_TAC (srw_ss()) [EVERY_APPEND, is_value_of_expr_def] THEN METIS_TAC [no_value_red_thm], + SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [COND_EXPAND_EQ] THEN EQ_TAC THEN SRW_TAC [] [] THEN + FULL_SIMP_TAC (srw_ss()) [MAP_MAP, REVERSE_APPEND, lem2, ETA_THM] THENL + [`~is_value_of_expr expr` by METIS_TAC [no_value_red_thm] THEN + `EVERY is_value_of_expr (REVERSE (MAP SND fn'_v_list))` + by METIS_TAC [EVERY_MAP, EVERY_REVERSE] THEN + FULL_SIMP_TAC list_ss [lem3] THEN SRW_TAC [] [] THEN + `~is_raise e` by METIS_TAC [raise_not_JR_thm] THEN + FULL_SIMP_TAC list_ss [ZIP_APPEND, ZIP_MAP, MAP_ZIP_SAME, MAP_MAP] THEN METIS_TAC [], + `~is_value_of_expr (Expr_apply (Expr_uprim Uprim_raise) v)` + by SRW_TAC [] [is_value_of_expr_def] THEN + `EVERY is_value_of_expr (REVERSE (MAP SND fn'_v_list))` + by METIS_TAC [EVERY_MAP, EVERY_REVERSE] THEN + FULL_SIMP_TAC list_ss [lem3] THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [is_raise_def] THEN + METIS_TAC [], + Cases_on `is_raise e` THEN + FULL_SIMP_TAC list_ss [REVERSE_EQ_SYM, ZIP_LEM, REVERSE_APPEND, lem2] THENL + [FULL_SIMP_TAC list_ss [raise_cases] THEN DISJ2_TAC THEN + MAP_EVERY Q.EXISTS_TAC [`ZIP (MAP field_to_fn l3',REVERSE v_list)`, + `ZIP (MAP field_to_fn l2',REVERSE e_list)`, + `field_to_fn x'`, + `v`] THEN + SRW_TAC [] [ZIP_MAP, MAP_MAP, field_to_fn_thm, MAP_I, EVERY_MAP] THEN + FULL_SIMP_TAC list_ss [] THEN1 METIS_TAC [] THEN1 METIS_TAC [] THEN + SRW_TAC [] [GSYM EVERY_MAP, MAP_SND_ZIP, EVERY_REVERSE], + DISJ1_TAC THEN + MAP_EVERY Q.EXISTS_TAC [`ZIP (MAP field_to_fn l3',REVERSE v_list)`, + `ZIP (MAP field_to_fn l2',REVERSE e_list)`, + `field_to_fn x'`, + `e`] THEN + RES_TAC THEN Q.EXISTS_TAC `e1'` THEN SRW_TAC [] [] THEN + SRW_TAC [] [ZIP_MAP, MAP_MAP, field_to_fn_thm, MAP_I, EVERY_MAP, MAP_FST_ZIP, + ZIP_APPEND] THEN + SRW_TAC [] [GSYM EVERY_MAP, MAP_SND_ZIP, EVERY_REVERSE]]]], + (* Expr_override e field_exprs *) + SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ, raise_not_JR_thm, value_not_raise_thm, + no_value_red_thm, raise_cases] THENL + [EQ_TAC THEN SRW_TAC [] [] THEN Q.EXISTS_TAC `MAP (\x. (field_to_fn (FST x), SND x)) field_exprs` THEN + SRW_TAC [] [MAP_MAP, field_to_fn_thm, MAP_I], + EQ_TAC THEN SRW_TAC [] [] THENL + [METIS_TAC [], + FULL_SIMP_TAC (srw_ss()) [interp_map_thm, is_value_of_expr_def, o_DEF, EXISTS_MAP] THEN + FULL_SIMP_TAC list_ss [EXISTS_MEM, EVERY_MEM] THEN METIS_TAC [], + FULL_SIMP_TAC (srw_ss()) [interp_map_thm, is_value_of_expr_def, o_DEF, EXISTS_MAP] THEN + FULL_SIMP_TAC list_ss [EXISTS_MEM, EVERY_MEM] THEN METIS_TAC [], + DISJ1_TAC THEN Q.EXISTS_TAC `MAP (\x. (field_to_fn (FST x), SND x)) field_exprs` THEN + SRW_TAC [] [MAP_MAP, field_to_fn_thm, MAP_I]], + FULL_SIMP_TAC (srw_ss()) [UNZIP_LEM, is_value_of_expr_def, GSYM raise_cases] THEN SRW_TAC [] [] THEN + Cases_on `list_get_next (REVERSE (MAP SND field_exprs))` THEN + FULL_SIMP_TAC (srw_ss()) [get_next_NONE_thm, get_next_SOME_thm] THEN + `~is_raise e` by METIS_TAC [raise_cases] THENL + [EQ_TAC THEN SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [EVERY_REVERSE, is_value_of_expr_def] THENL + [METIS_TAC [no_value_red_thm], + `~MEM field_name (MAP FST fn_v_list)` by FULL_SIMP_TAC (srw_ss()) [MEM_MAP] THEN + FULL_SIMP_TAC list_ss [MAP_MAP] THEN IMP_RES_TAC lem11 THEN FULL_SIMP_TAC list_ss [] THEN + METIS_TAC [], + `~MEM field_name (MAP FST fn_v_list)` by FULL_SIMP_TAC (srw_ss()) [MEM_MAP] THEN + IMP_RES_TAC lem10 THEN FULL_SIMP_TAC list_ss [] THEN METIS_TAC [], + RES_TAC THEN Cases_on `field_exprs` THEN1 + FULL_SIMP_TAC list_ss [eval_override_def, interp_result_def] THEN + Cases_on `t` THEN FULL_SIMP_TAC list_ss [] THEN NTAC 3 DISJ2_TAC THENL + [FULL_SIMP_TAC list_ss [eval_override_def] THEN + Cases_on `e` THEN FULL_SIMP_TAC (srw_ss ()) [interp_result_def] THEN + Cases_on `do_1override (FST h) (SND h) l'` THEN + FULL_SIMP_TAC list_ss [interp_result_def, COND_EXPAND_EQ] THEN SRW_TAC [] [] THEN + IMP_RES_TAC lem12 THEN FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THEN + MAP_EVERY Q.EXISTS_TAC [`MAP (\x. (field_to_fn (FST x), SND x)) r2`, + `MAP (\x. (field_to_fn (FST x), SND x)) r1`, + `field_to_fn (FST h)`, + `v'`, + `SND h`] THEN + SRW_TAC [] [MAP_MAP, field_to_fn_thm, MAP_I, ZIP_MAP, MAP_ZIP_SAME, + EVERY_MAP] THEN + FULL_SIMP_TAC list_ss [is_value_of_expr_def, EVERY_MAP, LAMBDA_PROD2] THEN + SRW_TAC [] [MEM_MAP, field_to_fn_11] THEN FULL_SIMP_TAC list_ss [MEM_MAP], + IMP_RES_TAC lem13 THEN FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THEN + MAP_EVERY Q.EXISTS_TAC [`MAP (\x. (field_to_fn (FST x), SND x)) (h'::t')`, + `MAP (\x. (field_to_fn (FST x), SND x)) r2`, + `MAP (\x. (field_to_fn (FST x), SND x)) r1`, + `field_to_fn (FST h)`, + `v`, + `SND h`] THEN + SRW_TAC [] [MAP_MAP, field_to_fn_thm, MAP_I, ZIP_MAP, MAP_ZIP_SAME, + EVERY_MAP] THEN + FULL_SIMP_TAC list_ss [is_value_of_expr_def, EVERY_MAP, LAMBDA_PROD2] THEN + SRW_TAC [] [MEM_MAP, field_to_fn_11] THEN FULL_SIMP_TAC list_ss [MEM_MAP]]], + SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [COND_EXPAND_EQ] THEN EQ_TAC THEN SRW_TAC [] [] THEN + FULL_SIMP_TAC (srw_ss()) [MAP_MAP, REVERSE_APPEND, lem2, ETA_THM] THENL + [`~is_value_of_expr e''' /\ ~is_raise e'''` + by METIS_TAC [no_value_red_thm, raise_not_JR_thm] THEN + `EVERY is_value_of_expr (REVERSE (MAP SND fn'_v_list))` + by METIS_TAC [EVERY_MAP, EVERY_REVERSE] THEN + FULL_SIMP_TAC list_ss [lem3] THEN SRW_TAC [] [] THEN + FULL_SIMP_TAC list_ss [ZIP_APPEND, ZIP_MAP, MAP_ZIP_SAME, MAP_MAP] THEN METIS_TAC [], + `~is_value_of_expr (Expr_apply (Expr_uprim Uprim_raise) v)` + by SRW_TAC [] [is_value_of_expr_def] THEN + `EVERY is_value_of_expr (REVERSE (MAP SND fn'_v_list))` + by METIS_TAC [EVERY_MAP, EVERY_REVERSE] THEN + FULL_SIMP_TAC list_ss [lem3] THEN SRW_TAC [] [] THEN + FULL_SIMP_TAC list_ss [is_raise_def] THEN METIS_TAC [], + METIS_TAC [EVERY_MAP, EVERY_APPEND, EVERY_REVERSE, EVERY_DEF], + METIS_TAC [EVERY_MAP, EVERY_APPEND, EVERY_REVERSE, EVERY_DEF], + Cases_on `is_raise e''` THEN + FULL_SIMP_TAC list_ss [REVERSE_EQ_SYM, ZIP_LEM, REVERSE_APPEND, lem2] THENL + [FULL_SIMP_TAC list_ss [raise_cases] THEN DISJ2_TAC THEN DISJ1_TAC THEN + MAP_EVERY Q.EXISTS_TAC [`ZIP (MAP field_to_fn l3',REVERSE v_list)`, + `ZIP (MAP field_to_fn l2',REVERSE e_list)`, + `field_to_fn x'`, + `v`] THEN + SRW_TAC [] [ZIP_MAP, MAP_MAP, field_to_fn_thm, MAP_I, EVERY_MAP] THEN + FULL_SIMP_TAC list_ss [] THEN1 METIS_TAC [] THEN1 METIS_TAC [] THEN + SRW_TAC [] [GSYM EVERY_MAP, MAP_SND_ZIP, EVERY_REVERSE], + DISJ1_TAC THEN + MAP_EVERY Q.EXISTS_TAC [`ZIP (MAP field_to_fn l3',REVERSE v_list)`, + `ZIP (MAP field_to_fn l2',REVERSE e_list)`, + `field_to_fn x'`, + `e''`] THEN + RES_TAC THEN Q.EXISTS_TAC `e1'` THEN SRW_TAC [] [] THEN + SRW_TAC [] [ZIP_MAP, MAP_MAP, field_to_fn_thm, MAP_I, EVERY_MAP, MAP_FST_ZIP, + ZIP_APPEND] THEN + SRW_TAC [] [GSYM EVERY_MAP, MAP_SND_ZIP, EVERY_REVERSE]]]]], + (* Expr_apply e1 e2 *) + SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ, raise_not_JR_thm, value_not_raise_thm, + no_value_red_thm, raise_cases] THENL + [METIS_TAC [], + METIS_TAC [], + METIS_TAC [], + METIS_TAC [is_value_of_expr_def], + FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [eval_apply_def] THEN Cases_on `e1` THEN + FULL_SIMP_TAC (srw_ss()) [interp_result_def, lem1, is_value_of_expr_def, COND_EXPAND_EQ] THEN + METIS_TAC [uprim_red_thm, bprim_red_thm]], + (* Expr_and expr1 expr2 *) + SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ] THEN METIS_TAC [], + (* Expr_or expr1 expr2 *) + SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ] THEN METIS_TAC [], + (* Expr_field e field *) + SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ, raise_not_JR_thm, value_not_raise_thm, + no_value_red_thm, raise_cases] THEN Cases_on `field` THEN SRW_TAC [] [] THENL + [METIS_TAC [], + FULL_SIMP_TAC (srw_ss()) [interp_map_thm] THEN EQ_TAC THEN SRW_TAC [] [] THEN + FULL_SIMP_TAC list_ss [is_value_of_expr_def, EXISTS_MAP] THEN + METIS_TAC [EVERY_NOT_EXISTS], + SRW_TAC [] [eval_field_def] THEN + Cases_on `e` THEN FULL_SIMP_TAC (srw_ss()) [interp_result_def, is_value_of_expr_def] THEN + Cases_on `list_assoc (F_name f') l'` THEN SRW_TAC [] [interp_result_def] THENL + [CCONTR_TAC THEN FULL_SIMP_TAC list_ss [] THEN IMP_RES_TAC list_assoc_not_mem THEN + FULL_SIMP_TAC list_ss [] THEN METIS_TAC [], + FULL_SIMP_TAC list_ss [list_assoc_split] THEN SRW_TAC [] [] THEN + EQ_TAC THEN SRW_TAC [] [] THENL + [`~MEM (F_name f') (MAP (\z. F_name (FST z)) fn_v_list)` by + FULL_SIMP_TAC (srw_ss ()) [MEM_MAP] THEN + METIS_TAC [lem5], + MAP_EVERY Q.EXISTS_TAC [`MAP (\z. (field_to_fn (FST z), SND z)) l2`, + `MAP (\z. (field_to_fn (FST z), SND z)) l1`] THEN + SRW_TAC [] [MAP_MAP, field_to_fn_thm, MAP_I, lem2, EVERY_MAP] THEN + FULL_SIMP_TAC (srw_ss()) [EVERY_APPEND, LAMBDA_PROD2, MEM_MAP, EVERY_MAP, + EVERY_MEM] THEN + METIS_TAC [field_to_fn_def, field_to_fn_thm]]]], + (* Expr_ifthenelse e expr2 expr3 *) + SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ, raise_not_JR_thm, value_not_raise_thm, + no_value_red_thm, raise_cases] THENL + [METIS_TAC [], + METIS_TAC [is_value_of_expr_def], + SRW_TAC [] [eval_ite_def, interp_result_def, COND_EXPAND_EQ] THEN METIS_TAC []], + (* Expr_while expr1 expr2 *) + SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ, eval_while_def] THEN METIS_TAC [], + (* Expr_for value_name e2 for_dirn e1 expr3 *) + SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ, raise_not_JR_thm, value_not_raise_thm, + no_value_red_thm, raise_cases] THENL + [METIS_TAC [], + METIS_TAC [is_value_of_expr_def], + METIS_TAC [], + METIS_TAC [is_value_of_expr_def], + FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [eval_for_def] THEN + Cases_on `e2` THEN FULL_SIMP_TAC (srw_ss()) [interp_result_def, lem1, is_value_of_expr_def] THEN + Cases_on `c` THEN SRW_TAC [] [interp_result_def, lem1] THEN + Cases_on `e1` THEN FULL_SIMP_TAC (srw_ss()) [interp_result_def, lem1, is_value_of_expr_def] THEN + Cases_on `c` THEN SRW_TAC [] [interp_result_def, lem1] THEN + Cases_on `for_dirn` THEN SRW_TAC [] [interp_result_def] THEN + FULL_SIMP_TAC list_ss [WORD_GREATER] THEN + METIS_TAC [WORD_LESS_OR_EQ, WORD_LESS_ANTISYM, WORD_LESS_EQ_CASES]], + (* Expr_sequence e expr2 *) + SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ, raise_not_JR_thm, value_not_raise_thm, + no_value_red_thm, raise_cases] THEN METIS_TAC [], + (* Expr_match e pattern_matching *) + SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ, raise_not_JR_thm, value_not_raise_thm, + no_value_red_thm, raise_cases] THENL + [METIS_TAC [], + METIS_TAC [is_value_of_expr_def], + Cases_on `pattern_matching` THEN Cases_on `l'` THEN + FULL_SIMP_TAC (srw_ss()) [JRmatching_step_cases, JRmatching_success_cases, JM_matchP_thm, + eval_match_def, interp_result_def] THEN1 METIS_TAC [] THEN + Cases_on `h` THEN Cases_on `t` THEN SRW_TAC [] [eval_match_def, interp_result_def, match_thm] THEN + Cases_on `pat_match p' e` THEN SRW_TAC [] [lem7, lem8, lem9, MAP_MAP, MAP_I] THENL + [METIS_TAC [], + METIS_TAC [pat_match_is_val_thm, EVERY_MAP], + SRW_TAC [ARITH_ss] [] THEN METIS_TAC [], + METIS_TAC [pat_match_is_val_thm, EVERY_MAP]]], + (* Expr_function pattern_matching *) + SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ], + (* Expr_try e pattern_matching *) + SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ, raise_not_JR_thm, value_not_raise_thm, + no_value_red_thm, raise_cases, interp_map_thm] THENL + [SRW_TAC [] [eval_try_def, interp_result_def] THEN Cases_on `pattern_matching` THEN + SRW_TAC [] [interp_result_def] THEN EQ_TAC THEN SRW_TAC [] [] THEN + FULL_SIMP_TAC (srw_ss()) [is_value_of_expr_def], + METIS_TAC [], + METIS_TAC []], + (* Expr_let (LB_simple pattern e) expr2 *) + SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ, raise_not_JR_thm, value_not_raise_thm, + no_value_red_thm, raise_cases] THENL + [METIS_TAC [], + METIS_TAC [], + SRW_TAC [] [eval_let_def, interp_result_def, JM_matchP_thm, match_thm] THEN + Cases_on `pat_match pattern e` THEN SRW_TAC [] [] THEN + METIS_TAC [pat_match_is_val_thm, EVERY_MAP]], + (* Expr_letrec letrec_bindings expr *) + SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, eval_letrec_def] THEN EQ_TAC THEN SRW_TAC [] [] THENL + [SRW_TAC [] [lrbs_to_lrblist_def, MAP_MAP] THEN + MATCH_MP_TAC (METIS_PROVE [] ``!f x y z. (x = y) ==> (f x z = f y z)``) THEN + SRW_TAC [] [MAP_EQ] THEN FULL_SIMP_TAC list_ss [EVERY_MEM], + Q.EXISTS_TAC `MAP (\lb. case lb of LRB_simple vn pm -> (vn,recfun letrec_bindings pm, pm)) + (lrbs_to_lrblist letrec_bindings)` THEN + SRW_TAC [] [MAP_MAP, EVERY_MAP, lem6] THENL + [Cases_on `letrec_bindings` THEN SRW_TAC [] [lrbs_to_lrblist_def] THEN + Induct_on `l'` THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [] THEN Cases_on `h` THEN + SRW_TAC [] [], + MATCH_MP_TAC (METIS_PROVE [] ``!f x y z. (x = y) ==> (f x z = f y z)``) THEN + SRW_TAC [] [MAP_EQ] THEN Cases_on `lb` THEN SRW_TAC [] [], + SRW_TAC [] [EVERY_MEM] THEN Cases_on `lb` THEN SRW_TAC [] [] THEN + MATCH_MP_TAC (METIS_PROVE [] ``!f x y z. (x = y) ==> (f x z = f y z)``) THEN + Cases_on `letrec_bindings` THEN SRW_TAC [] [lrbs_to_lrblist_def] THEN + POP_ASSUM (K ALL_TAC) THEN Induct_on `l'` THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [] THEN Cases_on `h` THEN SRW_TAC [] []]], + (* Expr_assert e *) + SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ, raise_not_JR_thm, value_not_raise_thm, + no_value_red_thm, raise_cases] THENL + [METIS_TAC [], + METIS_TAC [is_value_of_expr_def], + SRW_TAC [] [eval_assert_def, interp_result_def, COND_EXPAND_EQ] THEN METIS_TAC []], + (* Expr_location location *) + SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ], + (* red_1 *) + SRW_TAC [] [red_def, interp_result_def, COND_EXPAND_EQ, interp_map_thm] THEN METIS_TAC [], + (* red_2 *) + SRW_TAC [] [red_def, interp_result_def, COND_EXPAND_EQ, interp_map_thm] THEN METIS_TAC [], + (* red_list *) + SRW_TAC [] [red_def, interp_result_def, COND_EXPAND_EQ, interp_map_thm, LET_THM, list_get_next_def], + (* red_list *) + SRW_TAC [] [red_def, interp_result_def, COND_EXPAND_EQ, interp_map_thm, LET_THM, list_get_next_def] THENL + [METIS_TAC [], + METIS_TAC [], + METIS_TAC [value_not_raise_thm], + Cases_on `list_get_next es` THEN FULL_SIMP_TAC (srw_ss()) [lem2] THEN + Cases_on `x` THEN Cases_on `r` THEN FULL_SIMP_TAC (srw_ss()) [lem2]]] +); + + +val _ = export_theory (); + diff --git a/vendors/ott/examples/ocaml_light/hol/remv_tyvarScript.sml b/vendors/ott/examples/ocaml_light/hol/remv_tyvarScript.sml new file mode 100644 index 000000000000..17a92ae38927 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/remv_tyvarScript.sml @@ -0,0 +1,223 @@ +open HolKernel bossLib boolLib listTheory pairTheory; +open ottTheory ottLib caml_typedefTheory; +open utilTheory basicTheory; + +val _ = new_theory "remv_tyvar"; + +val value_remv_tyvar_thm = Q.store_thm ("value_remv_tyvar_thm", +`!v. is_value_of_expr v ==> is_value_of_expr (remv_tyvar_expr v)`, +HO_MATCH_MP_TAC is_value_of_expr_ind THEN +SRW_TAC [] [is_value_of_expr_def, remv_tyvar_letrec_binding_def, EVERY_MAP, EVERY_MEM, LAMBDA_PROD2] THEN +SRW_TAC [] [remv_tyvar_letrec_binding_def] THEN Cases_on `z` THEN METIS_TAC [SND]); + +val nexp_remv_tyvar_thm = Q.store_thm ("nexp_remv_tyvar_thm", +`!e. is_non_expansive_of_expr e ==> is_non_expansive_of_expr (remv_tyvar_expr e)`, +recInduct is_non_expansive_of_expr_ind THEN +SRW_TAC [] [is_non_expansive_of_expr_def, remv_tyvar_letrec_binding_def] THEN +FULL_SIMP_TAC list_ss [EVERY_MAP, EVERY_MEM] THENL +[FULL_SIMP_TAC list_ss [LAMBDA_PROD2] THEN Cases_on `x` THEN FULL_SIMP_TAC list_ss [] THEN + METIS_TAC [SND], + Cases_on `expr1` THEN + FULL_SIMP_TAC list_ss [is_binary_prim_app_value_of_expr_def, remv_tyvar_letrec_binding_def]]); + +val JTinst_any_ok_thm = Q.prove ( +`!E t t'. JTinst_any E t t' ==> tkind E t`, +RULE_INDUCT_TAC JTinst_any_ind [Eok_def, EVERY_MAP] []); + +val src_t_remv_tyvar_thm = Q.prove ( +`!t. is_src_typexpr_of_typexpr t ==> is_src_typexpr_of_typexpr (remv_tyvar_typexpr t)`, +recInduct is_src_typexpr_of_typexpr_ind THEN +SRW_TAC [] [is_src_typexpr_of_typexpr_def, remv_tyvar_typexpr_def] THEN +FULL_SIMP_TAC list_ss [EVERY_MAP, EVERY_MEM]); + +val remv_tyvar_subst_thm = Q.prove ( +`(!t S. substs_typevar_typexpr S (remv_tyvar_typexpr t) = remv_tyvar_typexpr t) /\ + (!tl S. MAP (\t. substs_typevar_typexpr S (remv_tyvar_typexpr t)) tl = + MAP remv_tyvar_typexpr tl)`, +Induct THEN SRW_TAC [] [substs_typevar_typexpr_def, remv_tyvar_typexpr_def, MAP_MAP, ETA_THM]); + +local + +val lem1 = Q.prove ( +`!l1 l2 S. + (!E S. EVERY (\(t,t'). JTinst_any E t (substs_typevar_typexpr S t') ==> + JTinst_any E t (remv_tyvar_typexpr t')) (ZIP (MAP FST l2,l1))) /\ + (MAP (\typexpr_. substs_typevar_typexpr S typexpr_) l1 = MAP SND l2) /\ + EVERY (\x. JTinst_any E (FST x) (SND x)) l2 ==> + EVERY (\x. JTinst_any E (FST x) (SND x)) (ZIP (MAP FST l2,MAP remv_tyvar_typexpr l1))`, +Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN SRW_TAC [] [] THEN +FULL_SIMP_TAC list_ss [] THEN METIS_TAC []); + +in + +val JTinst_any_remv_tyvar_thm = Q.prove ( +`(!t' E t S. JTinst_any E t (substs_typevar_typexpr S t') ==> + JTinst_any E t (remv_tyvar_typexpr t')) /\ + (!tl' E tl S. (LENGTH tl = LENGTH tl') ==> + EVERY (\(t, t'). JTinst_any E t (substs_typevar_typexpr S t') ==> + JTinst_any E t (remv_tyvar_typexpr t')) + (ZIP (tl, tl')))`, +Induct THEN SRW_TAC [] [JTinst_any_fun, remv_tyvar_typexpr_def, substs_typevar_typexpr_def] THENL +[METIS_TAC [JTinst_any_ok_thm], + METIS_TAC [], + Q.EXISTS_TAC `ZIP (MAP FST t_t'_list, MAP remv_tyvar_typexpr tl')` THEN + SRW_TAC [] [MAP_MAP, LAMBDA_PROD2, ETA_THM] THENL + [METIS_TAC [MAP_FST_ZIP, LENGTH_MAP], + METIS_TAC [MAP_SND_ZIP, LENGTH_MAP], + METIS_TAC [lem1, LENGTH_MAP], + METIS_TAC [LENGTH_MAP, LENGTH_ZIP]], + Q.EXISTS_TAC `ZIP (MAP FST t_t'_list, MAP remv_tyvar_typexpr tl')` THEN + SRW_TAC [] [MAP_MAP, LAMBDA_PROD2, ETA_THM] THENL + [METIS_TAC [MAP_FST_ZIP, LENGTH_MAP], + METIS_TAC [MAP_SND_ZIP, LENGTH_MAP], + METIS_TAC [lem1, LENGTH_MAP], + METIS_TAC [LENGTH_MAP, LENGTH_ZIP]], + Cases_on `tl` THEN FULL_SIMP_TAC (srw_ss()) [], + Cases_on `tl` THEN FULL_SIMP_TAC (srw_ss()) [] THEN METIS_TAC []]); + +end; + +val remv_tyvar_pat_thm = Q.store_thm ("remv_tyvar_pat_thm", +`!S E p t t'. JTpat S E p t t' ==> !S'. JTpat S' E (remv_tyvar_pattern p) t t'`, +RULE_INDUCT_TAC JTpat_ind [JTpat_fun, remv_tyvar_pattern_def] +[([``"JTpat_typed"``], + SRW_TAC [] [src_t_remv_tyvar_thm, remv_tyvar_subst_thm] THEN METIS_TAC [JTinst_any_remv_tyvar_thm]), + ([``"JTpat_construct"``], + SRW_TAC [] [] THEN + Q.EXISTS_TAC `MAP (\x. (remv_tyvar_pattern (FST x), FST (SND x), SND (SND x))) pattern_E_t_list` THEN + SRW_TAC [] [MAP_MAP, EVERY_MAP, ETA_THM] THEN FULL_SIMP_TAC list_ss [EVERY_MEM, ELIM_UNCURRY]), + ([``"JTpat_construct_any"``, ``"JTpat_cons"``], + METIS_TAC []), + ([``"JTpat_tuple"``], + SRW_TAC [] [] THEN + Q.EXISTS_TAC `MAP (\x. (remv_tyvar_pattern (FST x), FST (SND x), SND (SND x))) pattern_t_E_list` THEN + SRW_TAC [] [MAP_MAP, EVERY_MAP, ETA_THM] THEN FULL_SIMP_TAC list_ss [EVERY_MEM, ELIM_UNCURRY]), + ([``"JTpat_record"``], + SRW_TAC [] [] THEN + Q.EXISTS_TAC `MAP (\x. (FST x, remv_tyvar_pattern (FST (SND x)), FST (SND (SND x)), SND (SND (SND x)))) + field_name_pattern_E_t_list` THEN + SRW_TAC [] [MAP_MAP, EVERY_MAP, ETA_THM] THEN FULL_SIMP_TAC list_ss [EVERY_MEM, ELIM_UNCURRY]), + ([``"JTpat_or"``], + METIS_TAC [])]); + + +val remv_tyvar_thm = Q.store_thm ("remv_tyvar_thm", +`(!S E e t. JTe S E e t ==> !S'. JTe S' E (remv_tyvar_expr e) t) /\ + (!S E p t t'. JTpat_matching S E p t t' ==> !S'. JTpat_matching S' E (remv_tyvar_pattern_matching p) t t') /\ + (!S E lb E'. JTlet_binding S E lb E' ==> !S'. JTlet_binding S' E (remv_tyvar_let_binding lb) E') /\ + (!S E lrbs E'. JTletrec_binding S E lrbs E' ==> + !S'. JTletrec_binding S' E (remv_tyvar_letrec_bindings lrbs) E')`, +RULE_INDUCT_TAC JTe_ind [remv_tyvar_letrec_binding_def, JTe_fun] +[([``"JTe_typed"``], + SRW_TAC [] [src_t_remv_tyvar_thm, remv_tyvar_subst_thm] THEN METIS_TAC [JTinst_any_remv_tyvar_thm]), + ([``"JTe_tuple"``, ``"JTe_construct"``], + SRW_TAC [] [] THEN Q.EXISTS_TAC `MAP (\x. (remv_tyvar_expr (FST x), SND x)) e_t_list` THEN + SRW_TAC [] [MAP_MAP, EVERY_MAP, ETA_THM] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN METIS_TAC []), + ([``"JTe_record_constr"``], + SRW_TAC [] [] THEN + MAP_EVERY Q.EXISTS_TAC [`field_name'_list`, + `t'_list`, + `MAP (\x. (FST x, remv_tyvar_expr (FST (SND x)), SND (SND x))) + field_name_e_t_list`] THEN + SRW_TAC [] [MAP_MAP, EVERY_MAP, ETA_THM] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN METIS_TAC []), + ([``"JTe_record_with"``], + SRW_TAC [] [] THEN + Q.EXISTS_TAC `MAP (\x. (FST x, remv_tyvar_expr (FST (SND x)), SND (SND x))) field_name_e_t_list` THEN + SRW_TAC [] [MAP_MAP, EVERY_MAP, ETA_THM] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN METIS_TAC []), + ([``"JTe_apply"``, ``"JTe_record_proj"``, ``"JTe_match"``, ``"JTe_let_mono"``, ``"JTe_letrec"``], + METIS_TAC []), + ([``"JTe_let_poly"``], + METIS_TAC [nexp_remv_tyvar_thm]), + ([``"JTpat_matching_pm"``], + SRW_TAC [] [] THEN + Q.EXISTS_TAC `MAP (\x. (remv_tyvar_pattern (FST x), remv_tyvar_expr (FST (SND x)), SND (SND x))) + pattern_e_E_list` THEN + SRW_TAC [] [MAP_MAP, EVERY_MAP, ETA_THM, remv_tyvar_letrec_binding_def] THEN + FULL_SIMP_TAC list_ss [EVERY_MEM] THEN METIS_TAC [remv_tyvar_pat_thm]), + ([``"JTlet_binding_poly"``], + METIS_TAC [remv_tyvar_pat_thm]), + ([``"JTletrec_binding_equal_function"``], + SRW_TAC [] [remv_tyvar_letrec_binding_def, MAP_MAP] THEN + Q.EXISTS_TAC `MAP (\x. (FST x, remv_tyvar_pattern_matching (FST (SND x)), + FST (SND (SND x)), SND (SND (SND x)))) + value_name_pattern_matching_t_t'_list` THEN + SRW_TAC [] [MAP_MAP] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN SRW_TAC [] [] THEN + FULL_SIMP_TAC list_ss [MEM_MAP])] +THEN METIS_TAC []); + +val remv_tyvar_idem_typexpr_thm = Q.prove ( +`!t. remv_tyvar_typexpr (remv_tyvar_typexpr t) = remv_tyvar_typexpr t`, +HO_MATCH_MP_TAC remv_tyvar_typexpr_ind THEN +SRW_TAC [] [remv_tyvar_typexpr_def, MAP_MAP, MAP_EQ]); + +val remv_tyvar_idem_pat_thm = Q.prove ( +`!p. remv_tyvar_pattern (remv_tyvar_pattern p) = remv_tyvar_pattern p`, +HO_MATCH_MP_TAC remv_tyvar_pattern_ind THEN +SRW_TAC [] [remv_tyvar_pattern_def, MAP_MAP, MAP_EQ, remv_tyvar_idem_typexpr_thm, LAMBDA_PROD2] THEN +Cases_on `z` THEN METIS_TAC [SND]); + +val remv_tyvar_idem_thm = Q.store_thm ("remv_tyvar_idem_thm", +`(!lrb. remv_tyvar_letrec_binding (remv_tyvar_letrec_binding lrb) = + remv_tyvar_letrec_binding lrb) /\ + (!lrbs. remv_tyvar_letrec_bindings (remv_tyvar_letrec_bindings lrbs) = + remv_tyvar_letrec_bindings lrbs) /\ + (!lb. remv_tyvar_let_binding (remv_tyvar_let_binding lb) = + remv_tyvar_let_binding lb) /\ + (!pe. remv_tyvar_pat_exp (remv_tyvar_pat_exp pe) = + remv_tyvar_pat_exp pe) /\ + (!pm. remv_tyvar_pattern_matching (remv_tyvar_pattern_matching pm) = + remv_tyvar_pattern_matching pm) /\ + (!expr. remv_tyvar_expr (remv_tyvar_expr expr) = + remv_tyvar_expr expr)`, +HO_MATCH_MP_TAC remv_tyvar_letrec_binding_ind THEN +SRW_TAC [] [remv_tyvar_letrec_binding_def, MAP_MAP, MAP_EQ, LAMBDA_PROD2, + remv_tyvar_idem_pat_thm, remv_tyvar_idem_typexpr_thm] THEN +Cases_on `z` THEN METIS_TAC [SND]); + +val remv_tyvar_aux_xs_lrb_thm = Q.prove ( +`!lrb. aux_xs_letrec_binding_of_letrec_binding (remv_tyvar_letrec_binding lrb) = + aux_xs_letrec_binding_of_letrec_binding lrb`, +Cases THEN SRW_TAC [] [remv_tyvar_letrec_binding_def, aux_xs_letrec_binding_of_letrec_binding_def]); + +val remv_tyvar_aux_xs_lrbs_thm = Q.prove ( +`!lrbs. aux_xs_letrec_bindings_of_letrec_bindings (remv_tyvar_letrec_bindings lrbs) = + aux_xs_letrec_bindings_of_letrec_bindings lrbs`, +Cases THEN +SRW_TAC [] [remv_tyvar_letrec_binding_def, aux_xs_letrec_bindings_of_letrec_bindings_def, MAP_MAP, + remv_tyvar_aux_xs_lrb_thm, ETA_THM]); + +val remv_tyvar_aux_xs_pattern_thm = Q.prove ( +`!p. aux_xs_pattern_of_pattern (remv_tyvar_pattern p) = aux_xs_pattern_of_pattern p`, +HO_MATCH_MP_TAC aux_xs_pattern_of_pattern_ind THEN +SRW_TAC [] [remv_tyvar_pattern_def, aux_xs_pattern_of_pattern_def, MAP_MAP] THENL +[Induct_on `pattern_list` THEN SRW_TAC [] [], + Induct_on `pattern_list` THEN SRW_TAC [] [], + Induct_on `field_pattern_list` THEN SRW_TAC [] [LAMBDA_PROD2] THEN Cases_on `h` THEN SRW_TAC [] [] THEN + Induct_on `field_pattern_list` THEN SRW_TAC [] [LAMBDA_PROD2] THEN METIS_TAC []]); + +val remv_tyvar_aux_xs_lb_thm = Q.prove ( +`(!lb. aux_xs_let_binding_of_let_binding (remv_tyvar_let_binding lb) = + aux_xs_let_binding_of_let_binding lb)`, +Cases THEN SRW_TAC [] [aux_xs_let_binding_of_let_binding_def, remv_tyvar_letrec_binding_def, + remv_tyvar_aux_xs_pattern_thm]); + +val remv_tyvar_fv_thm = Q.store_thm ("remv_tyvar_fv_thm", +`(!lrb. fv_letrec_binding (remv_tyvar_letrec_binding lrb) = fv_letrec_binding lrb) /\ + (!lrbs. fv_letrec_bindings (remv_tyvar_letrec_bindings lrbs) = fv_letrec_bindings lrbs) /\ + (!lb. fv_let_binding (remv_tyvar_let_binding lb) = fv_let_binding lb) /\ + (!pe. fv_pat_exp (remv_tyvar_pat_exp pe) = fv_pat_exp pe) /\ + (!pm. fv_pattern_matching (remv_tyvar_pattern_matching pm) = fv_pattern_matching pm) /\ + (!expr. fv_expr (remv_tyvar_expr expr) = fv_expr expr)`, +HO_MATCH_MP_TAC fv_letrec_binding_ind THEN +SRW_TAC [] [fv_letrec_binding_def, remv_tyvar_letrec_binding_def, MAP_MAP, LAMBDA_PROD2] THENL +[Induct_on `letrec_binding_list` THEN SRW_TAC [] [], + SRW_TAC [] [remv_tyvar_aux_xs_pattern_thm], + Induct_on `pat_exp_list` THEN SRW_TAC [] [], + Induct_on `expr_list` THEN SRW_TAC [] [], + Induct_on `expr_list` THEN SRW_TAC [] [], + Induct_on `field_expr_list` THEN SRW_TAC [] [] THEN Cases_on `h` THEN SRW_TAC [] [] THEN METIS_TAC [], + Induct_on `field_expr_list` THEN SRW_TAC [] [] THEN Cases_on `h` THEN SRW_TAC [] [] THEN METIS_TAC [], + SRW_TAC [] [remv_tyvar_aux_xs_lb_thm], + SRW_TAC [] [remv_tyvar_aux_xs_lrbs_thm]]); + +val _ = export_theory (); diff --git a/vendors/ott/examples/ocaml_light/hol/shiftScript.sml b/vendors/ott/examples/ocaml_light/hol/shiftScript.sml new file mode 100644 index 000000000000..8a4988cc48ab --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/shiftScript.sml @@ -0,0 +1,206 @@ +open HolKernel boolLib bossLib IndDefLib IndDefRules listTheory optionTheory relationTheory pairTheory +open rich_listTheory combinTheory arithmeticTheory; +open ottTheory ottLib caml_typedefTheory; +open utilTheory; + +val _ = new_theory "shift"; + +val shiftt_add_thm = Q.store_thm ("shiftt_add_thm", +`(!t. (shiftt m 0 t = t) /\ + (!x y. shiftt m (x + y) t = shiftt m x (shiftt m y t))) /\ + (!tl. (MAP (shiftt m 0) tl = tl) /\ + (!x y. (MAP (shiftt m (x + y)) tl = MAP (shiftt m x o shiftt m y) tl)))`, +Induct THEN SRW_TAC [ARITH_ss] [shiftt_def, MAP_MAP] THEN METIS_TAC []); + +val shiftts_add_thm = Q.store_thm ("shiftts_add_thm", +`!ts. (shiftts m 0 ts = ts) /\ + (!x y. shiftts m (x + y) ts = shiftts m x (shiftts m y ts))`, +Cases THEN SRW_TAC [] [shiftts_def, shiftt_add_thm]); + +val shifttes_add_thm = Q.store_thm ("shifttes_add_thm", +`!tes. (shifttes m 0 tes = tes) /\ + (!x y. shifttes m (x + y) tes = shifttes m x (shifttes m y tes))`, +Cases THEN SRW_TAC [] [shifttes_def, shiftt_add_thm, MAP_MAP_o]); + +val shiftEB_add_thm = Q.store_thm ("shiftEB_add_thm", +`!EB. (shiftEB m 0 EB = EB) /\ + (!x y. shiftEB m (x + y) EB = shiftEB m x (shiftEB m y EB))`, +Cases THEN SRW_TAC [] [shiftEB_def, shiftt_add_thm, shifttes_add_thm, shiftts_add_thm]); + +val shiftTsig_add_thm = Q.store_thm ("shiftTsig_add_thm", +`!S. (shiftTsig m 0 S = S) /\ + (!x y. shiftTsig m x (shiftTsig m y S) = shiftTsig m (x + y) S)`, +Induct THEN SRW_TAC [] [shiftTsig_def, shiftt_add_thm, MAP_MAP, LAMBDA_PROD2]); + +(* +val shiftE_add_thm = Q.store_thm ("shiftE_add_thm", +`!E m. (shiftE m 0 E = E) /\ + (!x y. shiftE m (x + y) E = shiftE m x (shiftE m y E))`, +Induct THEN SRW_TAC [] [shiftE_def] THEN Cases_on `h` THEN +SRW_TAC [] [shiftEB_def, shiftE_def, shiftt_add_thm, shifttes_add_thm, shiftts_add_thm]); +*) + +val num_tv_append_thm = Q.store_thm ("num_tv_append_thm", +`!E1 E2. num_tv (E1++E2) = num_tv E1 + num_tv E2`, +Induct THEN SRW_TAC [] [num_tv_def] THEN Cases_on `h` THEN SRW_TAC [ARITH_ss] [num_tv_def]); + +val shiftE_append_thm = Q.store_thm ("shiftE_append_thm", +`!E1 E2 m n. shiftE m n (E1++E2) = shiftE (m + num_tv E2) n E1 ++ shiftE m n E2`, +Induct THEN SRW_TAC [ARITH_ss] [shiftE_def, num_tv_append_thm]); + +val is_src_t_shift_thm = Q.store_thm ("is_src_t_shift_thm", +`(!t. is_src_typexpr_of_typexpr t ==> !m n. (shiftt m n t = t)) /\ + (!tl. EVERY is_src_typexpr_of_typexpr tl ==> (!m n. MAP (\t. shiftt m n t) tl = tl))`, +Induct THEN SRW_TAC [] [shiftt_def, is_src_typexpr_of_typexpr_def] THEN METIS_TAC []); + +val shiftt_com_lem = Q.store_thm ("shiftt_com_lem", +`(!t n m l. shiftt (m + n + l) l (shiftt m l t) = shiftt m l (shiftt (m + n) l t)) /\ + (!tl n m l. MAP (\t. shiftt (m + n + l) l (shiftt m l t)) tl = MAP (\t. shiftt m l (shiftt (m + n) l t)) tl)`, +Induct THEN SRW_TAC [] [shiftt_def, MAP_MAP, COND_EXPAND_EQ] THEN DECIDE_TAC); + +val shiftts_com_lem = Q.store_thm ("shiftts_com_lem", +`!t n m l. shiftts (m + n + l) l (shiftts m l t) = shiftts m l (shiftts (m + n) l t)`, +Cases THEN SRW_TAC [] [shiftts_def] THEN METIS_TAC [ADD_ASSOC, ADD_COMM, shiftt_com_lem]); + +val shifttes_com_lem = Q.store_thm ("shifttes_com_lem", +`!ts n m l. shifttes (m + n + l) l (shifttes m l ts) = shifttes m l (shifttes (m + n) l ts)`, +Cases THEN SRW_TAC [] [shifttes_def, shiftt_com_lem, MAP_MAP]); + +val shiftEB_com_lem = Q.store_thm ("shiftEB_com_lem", +`!EB n m l. shiftEB (m + n + l) l (shiftEB m l EB) = shiftEB m l (shiftEB (m + n) l EB)`, +Cases THEN SRW_TAC [] [shiftEB_def, shifttes_com_lem, shiftts_com_lem, shiftt_com_lem]); + +val subst_shiftt_com_lem = Q.store_thm ("subst_shiftt_com_lem", +`(!t substs m n. shiftt m n (substs_typevar_typexpr substs t) = + substs_typevar_typexpr (MAP (\(tv, t'). (tv, shiftt m n t')) substs) (shiftt m n t)) /\ + (!tl substs m n. MAP (\t. shiftt m n (substs_typevar_typexpr substs t)) tl = + MAP (\t. substs_typevar_typexpr (MAP (\(tv, t'). (tv, shiftt m n t')) substs) (shiftt m n t)) + tl)`, +Induct THEN SRW_TAC [] [substs_typevar_typexpr_def, shiftt_def, MAP_MAP] THEN +Cases_on `list_assoc t substs` THEN SRW_TAC [] [LAMBDA_PROD2, shiftt_def, list_assoc_map]); + +val shiftTsig_com_lem = Q.store_thm ("shiftTsig_com_lem", +`!subst n m l. shiftTsig (m + n + l) l (shiftTsig m l subst) = shiftTsig m l (shiftTsig (m + n) l subst)`, +Induct THEN SRW_TAC [] [shiftTsig_def, LAMBDA_PROD2, MAP_MAP, shiftt_com_lem]); + +val shiftt_11 = Q.store_thm ("shiftt_11", +`(!r r' n. (shiftt n 1 r = shiftt n 1 r') = (r = r')) /\ + (!rl rl' n. (MAP (\r. shiftt n 1 r) rl = MAP (\r. shiftt n 1 r) rl') = (rl = rl'))`, +Induct THEN SRW_TAC [] [shiftt_def] THENL +[Cases_on `r'`, + Cases_on `r'`, + Cases_on `r'`, + Cases_on `r'`, + Cases_on `r''`, + Cases_on `r'`, + Cases_on `r'`, + Cases_on `rl'`, + Cases_on `rl'`] + THEN FULL_SIMP_TAC list_ss [shiftt_def] THEN SRW_TAC [] [] THEN DECIDE_TAC); + +val idxsubn_def = ottDefine "idxsubn" +`(idxsubn n tl (TE_var v) = TE_var v) /\ + (idxsubn n tl (TE_idxvar n' n'') = + if n' = n then + (if n'' < LENGTH tl then EL n'' tl else TE_constr [] TC_unit) + else if n' < n then + TE_idxvar n' n'' + else + TE_idxvar (n' - 1) n'') /\ + (idxsubn n tl TE_any = TE_any) /\ + (idxsubn n tl (TE_arrow t1 t2) = TE_arrow (idxsubn n tl t1) (idxsubn n tl t2)) /\ + (idxsubn n tl (TE_tuple tl') = TE_tuple (MAP (idxsubn n tl) tl')) /\ + (idxsubn n tl (TE_constr tl' tcn) = TE_constr (MAP (idxsubn n tl) tl') tcn)`; + +val idxsubnts_def = Define +`idxsubnts n tl (TS_forall t) = TS_forall (idxsubn (n+1) (MAP (shiftt 0 1) tl) t)`; + +val idxsubntes_def = Define +`idxsubntes n tl (typexprs_inj tes) = typexprs_inj (MAP (idxsubn n tl) tes)`; + +val idxsubnEB_def = Define +`(idxsubnEB n tl EB_tv = EB_tv) /\ + (idxsubnEB n tl (EB_vn vn ts) = EB_vn vn (idxsubnts n tl ts)) /\ + (idxsubnEB n tl (EB_cc cn tc) = EB_cc cn tc) /\ + (idxsubnEB n tl (EB_pc cn tpo tes tc) = EB_pc cn tpo (idxsubntes n tl tes) tc) /\ + (idxsubnEB n tl (EB_fn fn tpo tcn t) = EB_fn fn tpo tcn (idxsubn n tl t)) /\ + (idxsubnEB n tl (EB_td tcn k) = EB_td tcn k) /\ + (idxsubnEB n tl (EB_tr tcn k fnl) = EB_tr tcn k fnl) /\ + (idxsubnEB n tl (EB_ta tpo tcn t) = EB_ta tpo tcn (idxsubn n tl t)) /\ + (idxsubnEB n tl (EB_l l t) = EB_l l (idxsubn n tl t))`; + +val idxsubnE_def = Define +`(idxsubnE n tl [] = []) /\ + (idxsubnE n tl (EB::E) = idxsubnEB (n + num_tv E) (MAP (shiftt 0 (n + num_tv E)) tl) EB::idxsubnE n tl E)`; + +val sub_shiftt_thm = Q.store_thm ("sub_shiftt_thm", +`(!t n m tl. idxsubn n tl (shiftt n (m + 1) t) = shiftt n m t) /\ + (!tl' n m tl. MAP (\t. idxsubn n tl (shiftt n (m + 1) t)) tl' = MAP (shiftt n m) tl')`, +Induct THEN SRW_TAC [ARITH_ss] [shiftt_def, idxsubn_def, MAP_MAP] THEN METIS_TAC []); + +val sub_shiftt_thm2 = Q.store_thm ("sub_shiftt_thm2", +`(!t n m tl. idxsubn n tl (shiftt n 1 t) = t) /\ + (!tl' n m tl. MAP (\t. idxsubn n tl (shiftt n 1 t)) tl' = tl')`, +Induct THEN SRW_TAC [ARITH_ss] [shiftt_def, idxsubn_def, MAP_MAP]); + +val sub_shifttes_thm = Q.store_thm ("sub_shifttes_thm", +`!tes n tl. idxsubntes n tl (shifttes n 1 tes) = tes`, +Cases THEN SRW_TAC [ARITH_ss] [idxsubntes_def, shifttes_def, sub_shiftt_thm2, MAP_MAP, MAP_I]); + +val sub_shiftts_thm = Q.store_thm ("sub_shiftts_thm", +`!ts n tl. idxsubnts n tl (shiftts n 1 ts) = ts`, +Cases THEN SRW_TAC [] [idxsubnts_def, shiftts_def, sub_shiftt_thm2]); + +val sub_shiftEB_thm = Q.store_thm ("sub_shiftEB_thm", +`!EB n tl. idxsubnEB n tl (shiftEB n 1 EB) = EB`, +Cases THEN SRW_TAC [] [idxsubnEB_def, shiftEB_def, sub_shiftt_thm2, sub_shifttes_thm, sub_shiftts_thm]); + +val idxsubnE_num_tv_thm = Q.store_thm ("idxsubnE_num_tv_thm", +`!E n tl. num_tv (idxsubnE n tl E) = num_tv E`, +Induct THEN SRW_TAC [] [num_tv_def, idxsubnE_def] THEN Cases_on `h` THEN +SRW_TAC [] [num_tv_def, idxsubnE_def, idxsubnEB_def]); + +local + +val lem1 = Q.prove ( +`(!t. (ftv_typexpr t = []) ==> (substs_typevar_typexpr substs t = t)) /\ + (!tl. EVERY (\t. ftv_typexpr t = []) tl ==> (MAP (substs_typevar_typexpr substs) tl = tl))`, +Induct THEN SRW_TAC [] [ftv_typexpr_def, substs_typevar_typexpr_def, FLAT_EQ_EMPTY, EVERY_MAP] THEN +METIS_TAC []); + +in + +val idxsubn_subst_com_lem = Q.store_thm ("idxsubn_subst_com_lem", +`(!t substs n tl. EVERY (\t. ftv_typexpr t = []) tl ==> + (idxsubn n tl (substs_typevar_typexpr substs t) = + substs_typevar_typexpr (MAP (\(tv, t'). (tv, idxsubn n tl t')) substs) (idxsubn n tl t))) /\ + (!tl substs n tl'. EVERY (\t. ftv_typexpr t = []) tl' ==> + (MAP (\t. idxsubn n tl' (substs_typevar_typexpr substs t)) tl = + MAP (\t. substs_typevar_typexpr (MAP (\(tv, t'). (tv, idxsubn n tl' t')) substs) (idxsubn n tl' t)) + tl))`, +Induct THEN SRW_TAC [] [ftv_typexpr_def, idxsubn_def, substs_typevar_typexpr_def, MAP_MAP] THENL +[Cases_on `list_assoc t substs` THEN SRW_TAC [] [list_assoc_map, idxsubn_def, LAMBDA_PROD2], + FULL_SIMP_TAC list_ss [EVERY_EL] THEN METIS_TAC [lem1]]); + +end; + +val src_t_idxsubn_thm = Q.store_thm ("src_t_idxsubn_thm", +`(!t x y. is_src_typexpr_of_typexpr t ==> (idxsubn x y t = t)) /\ + (!tl x y. EVERY is_src_typexpr_of_typexpr tl ==> (MAP (idxsubn x y) tl = tl))`, +Induct THEN SRW_TAC [] [idxsubn_def, is_src_typexpr_of_typexpr_def] THEN METIS_TAC []); + +val idxsubnE_append_thm = Q.store_thm ("idxsubnE_append_thm", +`!E1 E2 n tl. idxsubnE n tl (E1++E2) = idxsubnE (num_tv E2 + n) tl E1 ++ idxsubnE n tl E2`, +Induct THEN SRW_TAC [ARITH_ss] [idxsubnE_def, num_tv_def, num_tv_append_thm]); + +val shift_idxsubn_com_thm = Q.store_thm ("shift_idxsubn_com_thm", +`(!t y z tl. shiftt 0 y (idxsubn z tl t) = idxsubn (y + z) (MAP (shiftt 0 y) tl) (shiftt 0 y t)) /\ + (!tl' y z tl. MAP (\t. shiftt 0 y (idxsubn z tl t)) tl' = + MAP (\t. idxsubn (y + z) (MAP (shiftt 0 y) tl) (shiftt 0 y t)) tl')`, +Induct THEN SRW_TAC [ARITH_ss] [idxsubn_def, shiftt_def, EL_MAP, COND_EXPAND_EQ, MAP_MAP]); + +val no_num_tv_thm = Q.store_thm ("no_num_tv_thm", +`!E. ~MEM EB_tv E ==> (num_tv E = 0)`, +Induct THEN SRW_TAC [] [num_tv_def] THEN Cases_on `h` THEN SRW_TAC [] [num_tv_def]); + +val _ = export_theory(); diff --git a/vendors/ott/examples/ocaml_light/hol/storeScript.sml b/vendors/ott/examples/ocaml_light/hol/storeScript.sml new file mode 100644 index 000000000000..e65d2ef21b2e --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/storeScript.sml @@ -0,0 +1,170 @@ +open bossLib HolKernel boolLib listTheory rich_listTheory optionTheory combinTheory arithmeticTheory pairTheory; +open ottTheory ottLib caml_typedefTheory; +open utilTheory basicTheory shiftTheory environmentTheory validTheory; +open weakenTheory shiftTheory remv_tyvarTheory type_substsTheory; + +val _ = Parse.hide "S"; + +val _ = new_theory "store"; + +val store_typing_thm = Q.store_thm ("store_typing_thm", +`!E st E'. JTstore E st E' ==> !l. (MEM (name_l l) (MAP domEB E') = + ?v. (list_assoc l st = SOME v) /\ is_value_of_expr v)`, +RULE_INDUCT_TAC JTstore_ind [list_assoc_def, domEB_def] [] THEN METIS_TAC []); + +val empty_type_sub_inst_any_thm = Q.prove ( +`!E t src_t. JTinst_any E t src_t ==> !S'. JTinst_any E t (substs_typevar_typexpr S' src_t)`, +RULE_INDUCT_TAC JTinst_any_ind [JTinst_any_fun, substs_typevar_typexpr_def] +[([``"JTinst_any_tuple"``, ``"JTinst_any_ctor"``], + SRW_TAC [] [] THEN Q.EXISTS_TAC `MAP (\x. (FST x, substs_typevar_typexpr S' (SND x))) t_t'_list` THEN + SRW_TAC [] [MAP_MAP, ETA_THM, EVERY_MAP] THEN FULL_SIMP_TAC list_ss [EVERY_MEM])]); + +val empty_type_sub_pat_thm = Q.prove ( +`!S E pm t E'. JTpat S E pm t E' ==> (S = []) ==> !S'. JTpat S' E pm t E'`, +RULE_INDUCT_TAC JTpat_ind [JTpat_fun] +[([``"JTpat_typed"``], + SRW_TAC [] [substs_tv_empty_thm] THEN METIS_TAC [empty_type_sub_inst_any_thm]), + ([``"JTpat_construct"``, ``"JTpat_tuple"``, ``"JTpat_record"``], + SRW_TAC [] [EVERY_MEM] THEN METIS_TAC []), + ([``"JTpat_construct_any"``, ``"JTpat_cons"``, ``"JTpat_or"``], + METIS_TAC [])]); + +val empty_type_sub_thm = Q.prove ( +`(!S E e t. JTe S E e t ==> (S = []) ==> !S'. JTe S' E e t) /\ + (!S E p t t'. JTpat_matching S E p t t' ==> (S = []) ==> !S'. JTpat_matching S' E p t t') /\ + (!S E lb E'. JTlet_binding S E lb E' ==> (S = []) ==> !S'. JTlet_binding S' E lb E') /\ + (!S E lrbs E'. JTletrec_binding S E lrbs E' ==> (S = []) ==> !S'. JTletrec_binding S' E lrbs E')`, +RULE_INDUCT_TAC JTe_sind [JTe_fun, shiftTsig_def] +[([``"JTe_typed"``], + SRW_TAC [] [substs_tv_empty_thm] THEN METIS_TAC [empty_type_sub_inst_any_thm]), + ([``"JTe_tuple"``, ``"JTe_construct"``, ``"JTe_record_constr"``, ``"JTe_record_with"``, + ``"JTletrec_binding_equal_function"``], + SRW_TAC [] [EVERY_MEM] THEN METIS_TAC []), + ([``"JTpat_matching_pm"``], + SRW_TAC [] [EVERY_MEM] THEN METIS_TAC [empty_type_sub_pat_thm]), + ([``"JTlet_binding_poly"``], + METIS_TAC [empty_type_sub_pat_thm])] +THEN +METIS_TAC []); + +val store_dom_thm = Q.prove ( +`!E st E'. JTstore E st E' ==> (MAP (\x. name_l (FST x)) st = MAP domEB E')`, +RULE_INDUCT_TAC JTstore_ind [domEB_def] +[]); + +local + +val lem1 = Q.prove ( +`!E1 st E2. JTstore E1 st E2 ==> !l v. (list_assoc l st = SOME v) ==> + ?t. (!S. JTe S E1 v t) /\ (lookup E2 (name_l l) = SOME (EB_l l t))`, +RULE_INDUCT_TAC JTstore_ind [list_assoc_def] [] THEN +SRW_TAC [] [COND_EXPAND_EQ, lookup_def, shiftEB_add_thm, domEB_def] THEN METIS_TAC [empty_type_sub_thm]); + +val lem2 = Q.prove ( +`!E l. type_env E ==> ~MEM (name_l l) (MAP domEB E)`, +Induct THEN SRW_TAC [] [type_env_def] THEN Cases_on `h` THEN +FULL_SIMP_TAC (srw_ss()) [type_env_def, domEB_def]); + +val lem3 = Q.prove ( +`!E st E'. JTstore E st E' ==> (!v. ~(list_assoc l st = SOME v)) ==> ~MEM (name_l l) (MAP domEB E')`, +RULE_INDUCT_TAC JTstore_ind [list_assoc_def, domEB_def] +[] THEN SRW_TAC [] []); + +val lem4 = (SIMP_RULE list_ss [] o GEN_ALL o + Q.SPECL [`[EB]`, `E`, `[]`, `v`, `t`, `[]`] o GEN_ALL o + SIMP_RULE list_ss [AND_IMP_INTRO, GSYM RIGHT_FORALL_IMP_THM]) + (hd (CONJUNCTS weak_not_tv_thm)); + +val lem5 = SIMP_RULE list_ss [AND_IMP_INTRO, GSYM RIGHT_FORALL_IMP_THM] (Q.prove ( +`!E st E'. JTstore E st E' ==> !l t. Eok (EB_l l t::E) ==> JTstore (EB_l l t::E) st E'`, +RULE_INDUCT_TAC JTstore_ind [JTstore_fun] +[([``"JTstore_map"``], + SRW_TAC [] [] THEN MATCH_MP_TAC lem4 THEN + FULL_SIMP_TAC (srw_ss()) [domEB_def, MEM_MAP, Eok_def])])); + +val lem6 = SIMP_RULE list_ss [AND_IMP_INTRO, GSYM RIGHT_FORALL_IMP_THM] (Q.prove ( +`!E st E'. JTstore E st E' ==> !st1 st2 l v v' t. (st = st1++[(l, v')]++st2) /\ is_value_of_expr v /\ + JTe [] E v t /\ (lookup E' (name_l l) = SOME (EB_l l t)) /\ ~MEM l (MAP FST st1) ==> + JTstore E (st1++[(l, v)]++st2) E'`, +RULE_INDUCT_TAC JTstore_sind [] +[] THEN +SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [lookup_def, domEB_def, COND_EXPAND_EQ, shiftEB_add_thm] THEN +SRW_TAC [] [] THEN Cases_on `st1` THEN FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [JTstore_fun] THEN +FULL_SIMP_TAC list_ss [FST])); + +val lem7 = Q.prove ( +`!E' E1 l t. (lookup (E' ++ E1) (name_l l) = SOME (EB_l l t)) /\ type_env E1 ==> + (lookup E' (name_l l) = SOME (EB_l l t))`, +SRW_TAC [] [lookup_append_thm] THEN Cases_on `lookup E' (name_l l)` THEN FULL_SIMP_TAC (srw_ss()) [] THEN +IMP_RES_TAC lookup_dom_thm THEN METIS_TAC [lem2]); + +val lem8 = Q.prove ( +`!st'. DISJOINT (remove_vn_tv (MAP (\x. name_l (FST x)) st')) (remove_vn_tv [name_l l]) ==> + ~MEM l (MAP FST st')`, +SRW_TAC [] [DISJOINT_MEM, EVERY_MEM] THEN POP_ASSUM (ASSUME_TAC o Q.SPEC `name_l l`) THEN +FULL_SIMP_TAC (srw_ss()) [remove_vn_tv_thm, MEM_MAP]); + +in + +val store_in_thm = Q.store_thm ("store_in_thm", +`!st L st'. JRstore st L st' ==> !E' E1 E2. type_env E1 /\ JTstore (E'++E1) st E' ==> + !S. JTLin S (E'++E1) L`, +RULE_INDUCT_TAC JRstore_ind [JTLin_cases] +[([``"JRstore_lookup"``], + SRW_TAC [] [lookup_append_thm] THEN METIS_TAC [lem1, option_case_def]), + ([``"JRstore_alloc"``], + SRW_TAC [] [lem2] THEN METIS_TAC [lem3])]); + +val store_out_thm = Q.store_thm ("store_out_thm", +`!st L st'. JRstore st L st' ==> !E' E'' E1 E2 E7 S. JTstore (E'++E1) st E' /\ JTLout S (E'++E1) L E7 /\ + type_env E1 ==> + JTstore (E7++E'++E1) st' (E7++E')`, +RULE_INDUCT_TAC JRstore_ind [JTLout_cases] +[([``"JRstore_alloc"``], + SRW_TAC [] [JTstore_fun] THEN SRW_TAC [] [value_remv_tyvar_thm] THENL + [MATCH_MP_TAC lem5 THEN SRW_TAC [] [Eok_def] THEN METIS_TAC [ok_thm, lem2, lem3], + MATCH_MP_TAC lem4 THEN SRW_TAC [] [Eok_def, domEB_def, remv_tyvar_fv_thm] THEN + METIS_TAC [remv_tyvar_thm, MEM_MAP, name_distinct, ok_thm, lem2, lem3]]), + ([``"JRstore_assign"``], + SRW_TAC [] [] THEN SRW_TAC [] [] THEN MATCH_MP_TAC lem6 THEN MAP_EVERY Q.EXISTS_TAC [`expr`, `t`] THEN + SRW_TAC [] [value_remv_tyvar_thm, lookup_append_thm] THENL + [METIS_TAC [remv_tyvar_thm], + METIS_TAC [lem7], + IMP_RES_TAC store_dom_thm THEN + `ALL_DISTINCT (remove_vn_tv (MAP domEB (E'++E1)))` + by METIS_TAC [Eok_dom_thm, ok_thm, ok_ok_thm] THEN + FULL_SIMP_TAC list_ss [ALL_DISTINCT_APPEND, remove_vn_tv_APPEND] THEN + `ALL_DISTINCT (remove_vn_tv (MAP (\x. name_l (FST x)) st' ++ [name_l l] ++ + MAP (\x. name_l (FST x)) st))` + by METIS_TAC [] THEN + FULL_SIMP_TAC list_ss [ALL_DISTINCT_APPEND, remove_vn_tv_APPEND] THEN + METIS_TAC [lem8]])]); +end; + +local + +val lem1 = Q.prove ( +`!E. type_env E ==> ~MEM EB_tv E`, +Induct THEN SRW_TAC [] [type_env_def] THEN Cases_on `h` THEN +FULL_SIMP_TAC (srw_ss ()) [type_env_def]); + +val lem2 = Q.prove ( +`!E. type_env E /\ MEM n (MAP domEB E) ==> ~?vn. n = name_vn vn`, +Induct THEN SRW_TAC [] [type_env_def] THEN Cases_on `h` THEN +FULL_SIMP_TAC (srw_ss ()) [type_env_def, domEB_def]); + +in + +val type_env_store_weak_thm = Q.store_thm ("type_env_store_weak_thm", +`!E st E'. JTstore E st E' ==> !E1 E2 E3. (E = E1++E3) /\ type_env E2 /\ Eok (E1++E2++E3) ==> + JTstore (E1++E2++E3) st E'`, +RULE_INDUCT_TAC JTstore_ind [JTstore_fun] +[([``"JTstore_map"``], + SRW_TAC [] [] THEN + MATCH_MP_TAC ((SIMP_RULE list_ss [AND_IMP_INTRO, GSYM RIGHT_FORALL_IMP_THM] o hd o CONJUNCTS) + weak_not_tv_thm) THEN + SRW_TAC [] [lem1] THEN METIS_TAC [lem2, MEM_MAP])]); +end; + + +val _ = export_theory (); diff --git a/vendors/ott/examples/ocaml_light/hol/strengthenScript.sml b/vendors/ott/examples/ocaml_light/hol/strengthenScript.sml new file mode 100644 index 000000000000..d70d89deab94 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/strengthenScript.sml @@ -0,0 +1,128 @@ +open bossLib HolKernel boolLib listTheory rich_listTheory optionTheory combinTheory arithmeticTheory; +open ottLib caml_typedefTheory; +open utilTheory basicTheory environmentTheory shiftTheory; + +val _ = new_theory "strengthen"; + +val _ = Parse.hide "S"; + +val value_env_teq_str_thm = Q.store_thm ("value_env_teq_str_thm", +`!E t1 t2. JTeq E t1 t2 ==> (E=E1++E2++E3) /\ value_env E2 ==> JTeq (E1++E3) t1 t2`, +RULE_INDUCT_TAC JTeq_ind [] +[([``"JTeq_refl"``], METIS_TAC [value_env_ok_str_thm, JTeq_rules]), + ([``"JTeq_sym"``], METIS_TAC [JTeq_rules]), + ([``"JTeq_trans"``], METIS_TAC [JTeq_rules]), + ([``"JTeq_arrow"``], METIS_TAC [JTeq_rules]), + ([``"JTeq_tuple"``], + SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [Once JTeq_cases] THEN NTAC 3 DISJ2_TAC THEN + METIS_TAC []), + ([``"JTeq_constr"``], + SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [Once JTeq_cases] THEN NTAC 4 DISJ2_TAC THEN + METIS_TAC [value_env_ok_str_thm]), + ([``"JTeq_expand"``], + SRW_TAC [] [] THEN SRW_TAC [] [Once JTeq_cases, MAP_MAP] THEN NTAC 3 DISJ2_TAC THEN DISJ1_TAC THEN + IMP_RES_TAC value_env_lookup_str_thm THEN FULL_SIMP_TAC (srw_ss()) [shiftEB_def] THEN + FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN METIS_TAC [value_env_ok_str_thm])]); + +val value_env_inst_str_thm = Q.store_thm ("value_env_inst_str_thm", +`!E1 E2 E3 t ts. value_env E2 /\ JTinst (E1++E2++E3) t ts ==> JTinst (E1++E3) t ts`, +SRW_TAC [] [JTinst_cases, EVERY_MEM] THEN METIS_TAC [value_env_ok_str_thm]); + +val value_env_inst_named_str_thm = Q.store_thm ("value_env_inst_named_str_thm", +`!E1 E2 E3 t tpo t'. value_env E2 /\ JTinst_named (E1++E2++E3) t tpo t' ==> JTinst_named (E1++E3) t tpo t'`, +SRW_TAC [] [JTinst_named_cases, EVERY_MEM] THEN METIS_TAC [value_env_ok_str_thm]); + +val value_env_constr_p_str_thm = Q.store_thm ("value_env_constr_p_str_thm", +`!E1 E2 E3 c ts t. value_env E2 /\ JTconstr_p (E1++E2++E3) c ts t ==> JTconstr_p (E1++E3) c ts t`, +SRW_TAC [] [JTconstr_p_cases] THEN +METIS_TAC [value_env_ok_str_thm, value_env_lookup_str_thm, value_env_inst_named_str_thm]); + +val value_env_constr_c_str_thm = Q.store_thm ("value_env_constr_c_str_thm", +`!E1 E2 E3 c t. value_env E2 /\ JTconstr_c (E1++E2++E3) c t ==> JTconstr_c (E1++E3) c t`, +SRW_TAC [] [JTconstr_c_cases] THEN +METIS_TAC [value_env_ok_str_thm, value_env_lookup_str_thm, value_env_inst_named_str_thm, EVERY_MEM]); + +val value_env_field_str_thm = Q.store_thm ("value_env_field_str_thm", +`!E1 E2 E3 c ts t. value_env E2 /\ JTfield (E1++E2++E3) c ts t ==> JTfield (E1++E3) c ts t`, +SRW_TAC [] [JTfield_cases] THEN +METIS_TAC [value_env_ok_str_thm, value_env_lookup_str_thm, value_env_inst_named_str_thm]); + +val value_env_const_str_thm = Q.store_thm ("value_env_const_str_thm", +`!E1 E2 E3 c t. value_env E2 /\ JTconst (E1++E2++E3) c t ==> JTconst (E1++E3) c t`, +SRW_TAC [] [JTconst_cases] THEN +METIS_TAC [value_env_ok_str_thm, value_env_constr_c_str_thm]); + +val value_env_inst_any_thm = Q.store_thm ("value_env_inst_any_thm", +`!E t t'. JTinst_any E t t' ==> !E1 E2 E3. (E = E1++E2++E3) /\ value_env E2 ==> JTinst_any (E1++E3) t t'`, +RULE_INDUCT_TAC JTinst_any_ind [JTinst_any_fun, EVERY_MEM] [] THEN +METIS_TAC [value_env_ok_str_thm]); + +val value_env_pat_str_thm = SIMP_RULE list_ss [GSYM RIGHT_FORALL_IMP_THM] ( Q.prove ( +`!S E p t E'. JTpat S E p t E' ==> !E1 E2 E3. (E = E1++E2++E3) /\ value_env E2 ==> JTpat S (E1++E3) p t E'`, +RULE_INDUCT_TAC JTpat_ind [JTpat_fun] [] THEN +SRW_TAC [ARITH_ss] [] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN +METIS_TAC [value_env_ok_str_thm, value_env_const_str_thm, value_env_constr_p_str_thm, + value_env_field_str_thm, value_env_inst_any_thm, value_env_teq_str_thm])); + +val _ = save_thm ("value_env_pat_str_thm", value_env_pat_str_thm); + +val value_env_uprim_str_thm = Q.store_thm ("value_env_uprim_str_thm", +`!E1 E2 E3 u t. value_env E2 /\ JTuprim (E1++E2++E3) u t ==> JTuprim (E1++E3) u t`, +SRW_TAC [] [JTuprim_cases] THEN METIS_TAC [value_env_ok_str_thm]); + +val value_env_bprim_str_thm = Q.store_thm ("value_env_bprim_str_thm", +`!E1 E2 E3 u t. value_env E2 /\ JTbprim (E1++E2++E3) u t ==> JTbprim (E1++E3) u t`, +SRW_TAC [] [JTbprim_cases] THEN METIS_TAC [value_env_ok_str_thm]); + +val value_env_val_name_str_thm = Q.store_thm ("value_env_val_name_str_thm", +`!E1 E2 E3 vn t. value_env E2 /\ (!x. MEM x (MAP domEB E2) ==> MEM x (MAP domEB E1)) /\ + JTvalue_name (E1++E2++E3) vn t ==> + JTvalue_name (E1++E3) vn t`, +SRW_TAC [] [JTvalue_name_cases, lookup_append_thm] THEN +Cases_on `lookup E1 (name_vn vn)` THEN FULL_SIMP_TAC list_ss [] THENL +[Cases_on `lookup E2 (name_vn vn)` THEN FULL_SIMP_TAC list_ss [num_tv_append_thm] THEN SRW_TAC [] [] THEN + METIS_TAC [value_env_inst_str_thm, lookup_dom_thm, value_env_num_tv_thm, ADD_0], + METIS_TAC [value_env_inst_str_thm]]); + +val value_env_str_thm = +SIMP_RULE list_ss [GSYM RIGHT_FORALL_IMP_THM] ( Q.prove ( +`(!S E e t. JTe S E e t ==> !E1. (E = E1++E2++E3) /\ value_env E2 /\ + (!x. MEM x (MAP domEB E2) ==> MEM x (MAP domEB E1)) ==> + JTe S (E1++E3) e t) /\ + (!S E pm t E'. JTpat_matching S E pm t E' ==> !E1. (E = E1++E2++E3) /\ value_env E2 /\ + (!x. MEM x (MAP domEB E2) ==> MEM x (MAP domEB E1)) ==> + JTpat_matching S (E1++E3) pm t E') /\ + (!S E lb E'. JTlet_binding S E lb E' ==> !E1. (E = E1++E2++E3) /\ value_env E2 /\ + (!x. MEM x (MAP domEB E2) ==> MEM x (MAP domEB E1)) ==> + JTlet_binding S (E1++E3) lb E') /\ + (!S E lrbs E'. JTletrec_binding S E lrbs E' ==> !E1. (E = E1++E2++E3) /\ value_env E2 /\ + (!x. MEM x (MAP domEB E2) ==> MEM x (MAP domEB E1)) ==> + JTletrec_binding S (E1++E3) lrbs E')`, +RULE_INDUCT_TAC JTe_ind [JTe_fun] +[([``"JTe_uprim"``, ``"JTe_bprim"``, ``"JTe_ident"``, ``"JTe_constant"``, ``"JTe_record_proj"``, + ``"JTe_typed"``], + METIS_TAC [value_env_uprim_str_thm, value_env_bprim_str_thm, value_env_const_str_thm, value_env_teq_str_thm, + value_env_val_name_str_thm, value_env_field_str_thm, value_env_inst_any_thm]), + ([``"JTe_tuple"``, ``"JTe_construct"``, ``"JTe_record_constr"``, ``"JTe_record_with"``, ``"JTe_apply"``], + FULL_SIMP_TAC list_ss [EVERY_MEM] THEN + METIS_TAC [value_env_constr_p_str_thm, value_env_lookup_str_thm, value_env_field_str_thm, + value_env_teq_str_thm]), + ([``"JTe_cons"``, ``"JTe_match"``, ``"JTe_and"``, ``"JTe_or"``, ``"JTe_while"``, ``"JTe_function"``], + METIS_TAC [value_env_teq_str_thm]), + ([``"JTe_for"``, ``"JTe_let_poly"``, ``"JTe_letrec"``, ``"JTe_let_mono"``], + SRW_TAC [] [shiftt_def] THEN FULL_SIMP_TAC std_ss [APPEND_11, GSYM APPEND, APPEND_ASSOC] THEN + FULL_SIMP_TAC list_ss [] THEN METIS_TAC [value_env_teq_str_thm]), + ([``"JTe_assert"``, ``"JTe_assertfalse"``], METIS_TAC [value_env_ok_str_thm, value_env_teq_str_thm]), + ([``"JTe_location"``], METIS_TAC [value_env_ok_str_thm, value_env_lookup_str_thm, value_env_teq_str_thm]), + ([``"JTpat_matching_pm"``], + SRW_TAC [ARITH_ss] [] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN + METIS_TAC [value_env_pat_str_thm, MEM_APPEND, MAP_APPEND]), + ([``"JTlet_binding_poly"``], METIS_TAC [value_env_pat_str_thm]), + ([``"JTletrec_binding_equal_function"``], + SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN + Q.EXISTS_TAC `value_name_pattern_matching_t_t'_list` THEN SRW_TAC [] [] THEN + METIS_TAC [MEM_APPEND, MAP_APPEND, value_env_ok_str_thm])])); + +val _ = save_thm ("value_env_str_thm", value_env_str_thm); + +val _ = export_theory (); diff --git a/vendors/ott/examples/ocaml_light/hol/substsScript.sml b/vendors/ott/examples/ocaml_light/hol/substsScript.sml new file mode 100644 index 000000000000..c16e194c3490 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/substsScript.sml @@ -0,0 +1,957 @@ +open HolKernel bossLib boolLib combinTheory listTheory rich_listTheory optionTheory pairTheory sortingTheory; +open wordsTheory markerTheory; +open ottTheory ottLib caml_typedefTheory; +open utilTheory basicTheory environmentTheory shiftTheory validTheory strengthenTheory; +open weakenTheory type_substTheory remv_tyvarTheory teqTheory; + +val _ = new_theory "substs"; + +val _ = Parse.hide "S"; + +val subst_nexp_thm = Q.store_thm ("subst_nexp_thm", +`!nexp v x. is_non_expansive_of_expr nexp /\ is_non_expansive_of_expr v ==> + is_non_expansive_of_expr (subst_value_name_expr v x nexp)`, +recInduct is_non_expansive_of_expr_ind THEN +SRW_TAC [] [is_non_expansive_of_expr_def, subst_value_name_letrec_binding_def, + EVERY_MAP, EVERY_MEM, LAMBDA_PROD2] THENL +[Cases_on `z` THEN METIS_TAC [SND], + Cases_on `expr1` THEN + FULL_SIMP_TAC list_ss [is_binary_prim_app_value_of_expr_def, subst_value_name_letrec_binding_def], + METIS_TAC []]); + +val substs_nexp_thm = Q.store_thm ("substs_nexp_thm", +`!nexp subs. is_non_expansive_of_expr nexp /\ EVERY (\x. is_non_expansive_of_expr (SND x)) subs ==> + is_non_expansive_of_expr (substs_value_name_expr subs nexp)`, +recInduct is_non_expansive_of_expr_ind THEN +SRW_TAC [] [is_non_expansive_of_expr_def, substs_value_name_letrec_binding_def, EVERY_MAP, EVERY_MEM, + LAMBDA_PROD2] THEN +FULL_SIMP_TAC list_ss [MEM_FILTER] THENL +[Cases_on `list_assoc value_name subs` THEN SRW_TAC [] [is_non_expansive_of_expr_def] THEN + METIS_TAC [list_assoc_mem, SND], + Cases_on `z` THEN METIS_TAC [SND], + Cases_on `expr1` THEN + FULL_SIMP_TAC list_ss [is_binary_prim_app_value_of_expr_def, substs_value_name_letrec_binding_def]]); + +local + +val lem1 = Q.prove ( +`!f. (case f of NONE -> NONE || SOME EB -> SOME EB) = f`, +Cases THEN SRW_TAC [] []); + +val lem2 = Q.prove ( +`!l x_t_list z. ~MEM (FST z) l /\ (MAP name_vn l = MAP (\z. name_vn (FST z)) x_t_list) ==> + ~MEM z x_t_list`, +Induct THEN SRW_TAC [] [] THEN Cases_on `x_t_list` THEN FULL_SIMP_TAC list_ss [name_11] THEN METIS_TAC []); + +val lem3 = Q.prove ( +`JTpat (shiftTsig 0 (num_tv E1) S') (E1 ++ [EB_vn x (TS_forall t'')] ++ E2) p t E /\ + JTe (shiftTsig 0 (num_tv E1) S') (E ++ E1 ++ [EB_vn x (TS_forall t'')] ++ E2) e t' /\ + ( is_non_expansive_of_expr v /\ + (E ++ E1 ++ [EB_vn x (TS_forall t'')] ++ E2 = + (E++E1) ++ [EB_vn x (TS_forall t'')] ++ E2) /\ + (shiftTsig 0 (num_tv E1) S' = shiftTsig 0 (num_tv (E++E1)) S') /\ + ~MEM (name_vn x) (MAP domEB (E++E1)) /\ + closed_env E2 /\ + JTe (shiftTsig 0 1 S') (EB_tv::E2) v t'' ==> + JTe (shiftTsig 0 (num_tv (E++E1)) S') ((E++E1) ++ E2) (subst_value_name_expr v x e) t') /\ + is_non_expansive_of_expr v /\ + ~MEM (name_vn x) (MAP domEB E1) /\ + closed_env E2 /\ + JTe (shiftTsig 0 1 S') (EB_tv::E2) v t'' ==> + JTe (shiftTsig 0 (num_tv E1) S') (E ++ E1 ++ E2) + (if MEM x (aux_xs_pattern_of_pattern p) then + e + else + subst_value_name_expr v x e) + t'`, +SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [] THEN +IMP_RES_TAC aux_xs_pattern_of_pattern_thm THEN SRW_TAC [] [] THEN +`num_tv E = 0` by METIS_TAC [pat_env_lem, value_env_num_tv_thm] THEN +FULL_SIMP_TAC list_ss [] THENL +[MATCH_MP_TAC (GEN_ALL (hd (CONJUNCTS (SIMP_RULE list_ss [AND_IMP_INTRO] value_env_str_thm)))) THEN + Q.EXISTS_TAC `[EB_vn x (TS_forall t'')]` THEN + SRW_TAC [] [value_env_def, domEB_def, MAP_REVERSE, MEM_REVERSE, MAP_MAP] THEN + METIS_TAC [MEM_MAP, MEM_REVERSE], + FULL_SIMP_TAC list_ss [num_tv_append_thm] THEN + Q.PAT_ASSUM `~MEM (name_vn x) (MAP domEB E) ==> JTe + (shiftTsig 0 (num_tv E1) S') (E ++ E1 ++ E2) (subst_value_name_expr v x e) t'` + MATCH_MP_TAC THEN + METIS_TAC [MEM_MAP, name_11, MEM_REVERSE]]); + +val lem4 = Q.prove ( +`MEM x (MAP FST l) /\ + JTpat_matching (shiftTsig 0 (num_tv E1) S') + (REVERSE (MAP (\z. EB_vn (FST z) + (TS_forall (shiftt 0 1 (TE_arrow (FST (SND (SND z))) + (SND (SND (SND z))))))) l) ++ E1 ++ + [EB_vn x (TS_forall t'')] ++ E2) pm t t' ==> +JTpat_matching (shiftTsig 0 (num_tv E1) S') + (REVERSE (MAP (\z. EB_vn (FST z) + (TS_forall (shiftt 0 1 (TE_arrow (FST (SND (SND z))) + (SND (SND (SND z))))))) l) ++ E1 ++ + E2) pm t t'`, +Cases_on `pm` THEN SRW_TAC [] [JTe_fun] THEN +Q.EXISTS_TAC `pattern_e_E_list` THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THENL +[METIS_TAC [value_env_pat_str_thm, value_env_def], + SRW_TAC [] [] THEN + MATCH_MP_TAC (GEN_ALL (hd (CONJUNCTS (SIMP_RULE list_ss [AND_IMP_INTRO] value_env_str_thm)))) THEN + Q.EXISTS_TAC `[EB_vn x (TS_forall t'')]` THEN + SRW_TAC [] [value_env_def, MAP_REVERSE, MAP_MAP, domEB_def] THEN + Q.PAT_ASSUM `MEM x (MAP FST l)` MP_TAC THEN + REPEAT (POP_ASSUM (K ALL_TAC)) THEN Induct_on `l` THEN SRW_TAC [] [] THEN METIS_TAC []]); + +val lem5 = Q.prove ( +`!l f g. num_tv (MAP (\x. EB_vn (f x) (g x)) l) = 0`, +METIS_TAC [value_env_map_thm, value_env_num_tv_thm]); + +val lem6 = Q.prove ( +`(!t n m. shiftt n m (shiftt 0 n t) = shiftt 0 (n + m) t) /\ + (!tl n m. MAP (\t. shiftt n m (shiftt 0 n t)) tl = MAP (\t. shiftt 0 (n + m) t) tl)`, +Induct THEN SRW_TAC [] [shiftt_def, MAP_MAP] THEN DECIDE_TAC); + +val lem7 = Q.prove ( +`!S n m. shiftTsig n m (shiftTsig 0 n S) = shiftTsig 0 (n + m) S`, +Induct THEN SRW_TAC [] [shiftTsig_def, LAMBDA_PROD2, MAP_MAP, lem6]); + +val lem8 = Q.prove ( +`!S e t E E' t_list. + JTe (shiftTsig 0 1 S) (EB_tv::E) e t /\ + closed_env E /\ + Eok (E'++E) /\ + EVERY (tkind (E'++E)) t_list ==> + JTe (shiftTsig 0 (num_tv E') S) (E'++E) e (idxsub t_list (shiftt 1 (num_tv E') t))`, +SRW_TAC [] [GSYM idxsubn0_thm] THEN MATCH_MP_TAC type_subst_thm THEN SRW_TAC [] [] THEN +IMP_RES_TAC ((SIMP_RULE list_ss [Eok_def, num_tv_def] o + Q.SPECL [`shiftTsig 0 1 S`, `e`, `t`, `E'`, `E`]) weak_thm) THEN +FULL_SIMP_TAC list_ss [shiftTsig_add_thm, lem7]); + +in + +val subst_lem = Q.store_thm ("subst_lem", +`(!S E e t. JTe S E e t ==> + !S' E1 E2 x v t'. + is_non_expansive_of_expr v /\ + (E = E1 ++ [EB_vn x (TS_forall t')] ++ E2) /\ + (S = shiftTsig 0 (num_tv E1) S') /\ + ~MEM (name_vn x) (MAP domEB E1) /\ + closed_env E2 /\ + JTe (shiftTsig 0 1 S') (EB_tv::E2) v t' ==> + JTe S (E1++E2) (subst_value_name_expr v x e) t) /\ + (!S E pm t t'. JTpat_matching S E pm t t' ==> + !S' E1 E2 x v t''. + is_non_expansive_of_expr v /\ + (E = E1 ++ [EB_vn x (TS_forall t'')] ++ E2) /\ + (S = shiftTsig 0 (num_tv E1) S') /\ + ~MEM (name_vn x) (MAP domEB E1) /\ + closed_env E2 /\ + JTe (shiftTsig 0 1 S') (EB_tv::E2) v t'' ==> + JTpat_matching S (E1++E2) (subst_value_name_pattern_matching v x pm) t t') /\ + (!S E lb E'. JTlet_binding S E lb E' ==> + !S' E1 E2 x v t''. + is_non_expansive_of_expr v /\ + (E = E1 ++ [EB_vn x (TS_forall t'')] ++ E2) /\ + (S = shiftTsig 0 (num_tv E1) S') /\ + ~MEM (name_vn x) (MAP domEB E1) /\ + closed_env E2 /\ + JTe (shiftTsig 0 1 S') (EB_tv::E2) v t'' ==> + JTlet_binding S (E1++E2) (subst_value_name_let_binding v x lb) E') /\ + (!S E lrbs E'. JTletrec_binding S E lrbs E' ==> + !S' x E1 E2 v t''. + is_non_expansive_of_expr v /\ + (E = E1 ++ [EB_vn x (TS_forall t'')] ++ E2) /\ + (S = shiftTsig 0 (num_tv E1) S') /\ + ~MEM (name_vn x) (MAP domEB E1) /\ + closed_env E2 /\ + JTe (shiftTsig 0 1 S') (EB_tv::E2) v t'' ==> + if MEM x (aux_xs_letrec_bindings_of_letrec_bindings lrbs) then + JTletrec_binding S (E1++E2) lrbs E' + else + JTletrec_binding S (E1++E2) (subst_value_name_letrec_bindings v x lrbs) E')`, +RULE_INDUCT_TAC JTe_sind [subst_value_name_letrec_binding_def, JTe_fun] +[([``"JTe_uprim"``, ``"JTe_bprim"``, ``"JTe_constant"``, ``"JTe_typed"``], + FULL_SIMP_TAC list_ss [JTuprim_cases, JTbprim_cases, JTconst_cases, JTconstr_c_cases] THEN + SRW_TAC [] [] THEN + FULL_SIMP_TAC list_ss [lookup_def, domEB_def, name_distinct, EVERY_MEM] THEN + METIS_TAC [value_env_lookup_str_thm, value_env_ok_str_thm, APPEND, value_env_def, + value_env_inst_any_thm, value_env_teq_str_thm]), + ([``"JTe_apply"``, ``"JTe_match"``], METIS_TAC []), + ([``"JTe_ident"``], + SRW_TAC [] [] THEN SRW_TAC [] [JTe_fun] THEN + FULL_SIMP_TAC list_ss [JTvalue_name_cases, lookup_def, domEB_def, name_11, lookup_append_thm, + lookup_dom_thm] THEN + SRW_TAC [] [] THENL + [FULL_SIMP_TAC list_ss [JTinst_cases, shiftEB_def, shiftts_def] THEN SRW_TAC [] [] THEN + `JTe (shiftTsig 0 (num_tv E1) S'') (E1 ++ E2) v (idxsub t_list (shiftt 1 (num_tv E1) t'))` + by (MATCH_MP_TAC lem8 THEN SRW_TAC [] [] THENL + [METIS_TAC [value_env_ok_str_thm, value_env_def, ok_ok_thm], + FULL_SIMP_TAC list_ss [EVERY_MEM] THEN + METIS_TAC [value_env_ok_str_thm, value_env_def]]) THEN + METIS_TAC [teq_thm, value_env_def, value_env_teq_str_thm], + FULL_SIMP_TAC list_ss [lem1] THEN Cases_on `lookup E1 (name_vn value_name)` THEN + FULL_SIMP_TAC list_ss [option_case_def] THEN SRW_TAC [] [] THENL + [Cases_on `EB` THEN + FULL_SIMP_TAC list_ss [environment_binding_distinct, shiftEB_def, num_tv_append_thm, + num_tv_def] THEN + SRW_TAC [] [] THEN + METIS_TAC [value_env_inst_str_thm, value_env_ok_str_thm, value_env_def, + value_env_teq_str_thm], + METIS_TAC [value_env_inst_str_thm, value_env_ok_str_thm, value_env_def, + value_env_teq_str_thm]]]), + ([``"JTe_tuple"``, ``"JTe_construct"``], + SRW_TAC [] [] THEN + Q.EXISTS_TAC `MAP (\e_t. (subst_value_name_expr v x (FST e_t), SND e_t)) e_t_list` THEN + SRW_TAC [] [MAP_MAP, ETA_THM, EVERY_MAP] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN + METIS_TAC [value_env_def, value_env_constr_p_str_thm, APPEND, value_env_teq_str_thm]), + ([``"JTe_cons"``, ``"JTe_and"``, ``"JTe_or"``, ``"JTe_while"``, ``"JTe_function"``], + METIS_TAC [value_env_teq_str_thm, value_env_def]), + ([``"JTe_record_constr"``], + SRW_TAC [] [] THEN + MAP_EVERY Q.EXISTS_TAC [`field_name'_list`, `t'_list`, + `MAP (\fn_e_t. (FST fn_e_t, + subst_value_name_expr v x (FST (SND fn_e_t)), + SND (SND fn_e_t))) + field_name_e_t_list`, + `typeconstr_name`, + `kind`] THEN + SRW_TAC [] [MAP_MAP, ETA_THM, EVERY_MAP] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN1 + METIS_TAC [] THEN1 + METIS_TAC [value_env_def, value_env_field_str_thm, APPEND] THEN1 + METIS_TAC [value_env_def, value_env_lookup_str_thm, APPEND] THEN1 + METIS_TAC [value_env_teq_str_thm, value_env_def]), + ([``"JTe_record_with"``], + SRW_TAC [] [] THEN + Q.EXISTS_TAC `MAP (\fn_e_t. (FST fn_e_t, + subst_value_name_expr v x (FST (SND fn_e_t)), + SND (SND fn_e_t))) + field_name_e_t_list` THEN + SRW_TAC [] [MAP_MAP, ETA_THM, EVERY_MAP] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN + METIS_TAC [value_env_def, value_env_field_str_thm, APPEND, value_env_teq_str_thm]), + ([``"JTe_record_proj"``], + METIS_TAC [value_env_def, value_env_field_str_thm, APPEND, value_env_teq_str_thm]), + ([``"JTe_assert"``, ``"JTe_assertfalse"``], + FULL_SIMP_TAC list_ss [JTconst_cases] THEN SRW_TAC [] [] THEN + METIS_TAC [last (CONJUNCTS value_env_ok_str_thm), value_env_def, APPEND, value_env_teq_str_thm]), + ([``"JTe_location"``], + METIS_TAC [value_env_def, value_env_ok_str_thm, value_env_lookup_str_thm, APPEND, value_env_teq_str_thm]), + ([``"JTe_for"``], + SRW_TAC [] [shiftt_def] THEN SRW_TAC [] [] THENL + [MATCH_MP_TAC (SIMP_RULE list_ss [AND_IMP_INTRO] + (Q.SPECL [`E2`, `[EB_vn (VN_id lowercase_ident) (TS_forall t')]`, + `shiftTsig 0 (num_tv E1) S'`, `e''`, + `TE_constr [] TC_unit`, + `EB_vn (VN_id lowercase_ident) (TS_forall (TE_constr [] TC_int))::E1`] + (GEN_ALL (hd (CONJUNCTS value_env_str_thm))))) THEN + SRW_TAC [] [value_env_def, domEB_def], + Q.PAT_ASSUM `!S'' E1' E2' x' v t''. P S'' E1' E2' x' v t'' ==> + JTe (shiftTsig 0 (num_tv E1') S'') (E1' ++ E2') (subst_value_name_expr v x' e'') + (TE_constr [] TC_unit)` + (MATCH_MP_TAC o + SIMP_RULE list_ss [num_tv_def] o + Q.SPECL [`S'`, `EB_vn (VN_id lowercase_ident) + (TS_forall (TE_constr [] TC_int)) :: E1`]) THEN + SRW_TAC [] [domEB_def, DISJOINT_RIGHT, MEM_MAP] THEN METIS_TAC [], + METIS_TAC [value_env_def, value_env_teq_str_thm]]), + ([``"JTe_let_mono"``], + SRW_TAC [] [] THEN + FULL_SIMP_TAC list_ss [REVERSE_EQ, EB_vn_list_thm, aux_xs_let_binding_of_let_binding_def] THEN + IMP_RES_TAC aux_xs_pattern_of_pattern_thm THEN + FULL_SIMP_TAC list_ss [REVERSE_REVERSE, domEB_def, MAP_MAP] THEN + SRW_TAC [] [] THEN DISJ1_TAC THEN Q.EXISTS_TAC `x_t_list` THEN + SRW_TAC [] [] THENL + [MATCH_MP_TAC (GEN_ALL (hd (CONJUNCTS (SIMP_RULE list_ss [AND_IMP_INTRO] value_env_str_thm)))) THEN + Q.EXISTS_TAC `[EB_vn x (TS_forall t'')]` THEN + SRW_TAC [] [value_env_def, domEB_def, MAP_REVERSE, MEM_REVERSE, MAP_MAP] THEN + METIS_TAC [MEM_MAP], + Q.PAT_ASSUM `!S'' E1' E2' x' v' t'. P S'' E1' E2' x' v' t' ==> + JTe (shiftTsig 0 (num_tv E1') S'') (E1' ++ E2') (subst_value_name_expr v' x' e) t` + (MATCH_MP_TAC o + SIMP_RULE list_ss [MAP_REVERSE] o + SIMP_RULE list_ss [num_tv_append_thm, lem5, GSYM MAP_REVERSE] o + Q.SPECL [`S'`, + `REVERSE (MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) x_t_list) ++ + E1`]) + THEN + SRW_TAC [] [domEB_def, MAP_REVERSE, MEM_REVERSE, MAP_MAP] THEN + METIS_TAC [MEM_MAP, name_11]]), + ([``"JTe_let_poly"``], + SRW_TAC [] [] THEN + FULL_SIMP_TAC list_ss [REVERSE_EQ, EB_vn_list_thm, aux_xs_let_binding_of_let_binding_def] THEN + IMP_RES_TAC aux_xs_pattern_of_pattern_thm THEN + FULL_SIMP_TAC list_ss [REVERSE_REVERSE, domEB_def, MAP_MAP] THEN + SRW_TAC [] [] THEN DISJ2_TAC THEN Q.EXISTS_TAC `x_t_list` THEN + SRW_TAC [ARITH_ss] [shiftTsig_add_thm] THENL + [METIS_TAC [subst_nexp_thm], + Q.PAT_ASSUM `!S'' E1' E2' x' v' t'''. P S'' E1' E2' x' v' t''' ==> + ?t'. JTpat (shiftTsig 0 (num_tv E1') S'') (E1' ++ E2') pat t' E /\ + JTe (shiftTsig 0 (num_tv E1') S'') (E1' ++ E2') + (subst_value_name_expr v' x' nexp) t'` + (MATCH_MP_TAC o + SIMP_RULE list_ss [num_tv_def] o + Q.SPECL [`S'`, `EB_tv::E1`]) + THEN + SRW_TAC [] [MAP_MAP, domEB_def, MAP_REVERSE, MEM_REVERSE] THEN + SRW_TAC [ARITH_ss] [MEM_MAP, shiftTsig_add_thm], + MATCH_MP_TAC (GEN_ALL (hd (CONJUNCTS (SIMP_RULE list_ss [AND_IMP_INTRO] value_env_str_thm)))) THEN + Q.EXISTS_TAC `[EB_vn x (TS_forall t'')]` THEN + SRW_TAC [] [value_env_def, domEB_def, MAP_REVERSE, MEM_REVERSE, MAP_MAP] THEN + METIS_TAC [MEM_MAP], + METIS_TAC [subst_nexp_thm], + Q.PAT_ASSUM `!S'' E1' E2' x' v' t'''. P S'' E1' E2' x' v' t''' ==> + ?t'. JTpat (shiftTsig 0 (num_tv E1') S'') (E1' ++ E2') pat t' E /\ + JTe (shiftTsig 0 (num_tv E1') S'') (E1' ++ E2') + (subst_value_name_expr v' x' nexp) t'` + (MATCH_MP_TAC o + SIMP_RULE list_ss [num_tv_def] o + Q.SPECL [`S'`, `EB_tv::E1`]) + THEN + SRW_TAC [] [MAP_MAP, domEB_def, MAP_REVERSE, MEM_REVERSE] THEN + SRW_TAC [ARITH_ss] [MEM_MAP, shiftTsig_add_thm], + Q.PAT_ASSUM `!S'' E1' E2' x' v' t'. P S'' E1' E2' x' v' t' ==> + JTe (shiftTsig 0 (num_tv E1') S'') (E1' ++ E2') (subst_value_name_expr v' x' e) t` + (MATCH_MP_TAC o + SIMP_RULE list_ss [MAP_REVERSE] o + SIMP_RULE list_ss [num_tv_def, GSYM MAP_REVERSE, lem5, num_tv_append_thm] o + Q.SPECL [`S'`, `REVERSE (MAP (\z. EB_vn (FST z) (TS_forall (SND z))) x_t_list) ++E1`]) + THEN + SRW_TAC [] [domEB_def, MAP_REVERSE, MEM_REVERSE, MAP_MAP] THEN + METIS_TAC [MEM_MAP, name_11]]), + ([``"JTe_letrec"``], + SRW_TAC [] [] THEN IMP_RES_TAC aux_xs_letrec_bindings_of_letrec_bindings_thm THEN + FULL_SIMP_TAC list_ss [REVERSE_REVERSE, MAP_MAP, domEB_def] THEN + Q.EXISTS_TAC `x_t_list` THEN SRW_TAC [] [] THENL + [Q.PAT_ASSUM `!S'' x' E1' E2' v' t''. P S'' x' E1' E2' v' t'' ==> + (if MEM x' (aux_xs_letrec_bindings_of_letrec_bindings lrbs) then + JTletrec_binding (shiftTsig 0 (num_tv E1') S'') (E1' ++ E2') lrbs E' + else + JTletrec_binding (shiftTsig 0 (num_tv E1') S'') (E1' ++ E2') + (subst_value_name_letrec_bindings v' x' lrbs) E'')` + (MP_TAC o + Q.SPECL [`S''`, `x`, `EB_tv::E1`]) THEN + SRW_TAC [] [num_tv_def, shiftTsig_add_thm] THEN POP_ASSUM MATCH_MP_TAC THEN + SRW_TAC [] [domEB_def, MAP_REVERSE, MEM_REVERSE, MAP_MAP, value_env_def] THEN + SRW_TAC [] [MEM_MAP] THEN METIS_TAC [], + Q.PAT_ASSUM `!S'' x' E1' E2' v' t''. P S'' x' E1' E2' v' t'' ==> + (if MEM x' (aux_xs_letrec_bindings_of_letrec_bindings lrbs) then + JTletrec_binding (shiftTsig 0 (num_tv E1') S'') (E1' ++ E2') lrbs E' + else + JTletrec_binding (shiftTsig 0 (num_tv E1') S'') (E1' ++ E2') + (subst_value_name_letrec_bindings v' x' lrbs) E'')` + (MP_TAC o + Q.SPECL [`S''`, `x`, `EB_tv::E1`]) THEN + SRW_TAC [] [num_tv_def, shiftTsig_add_thm] THEN POP_ASSUM MATCH_MP_TAC THEN + SRW_TAC [] [domEB_def, MAP_REVERSE, MEM_REVERSE, MAP_MAP, value_env_def] THEN + SRW_TAC [] [MEM_MAP] THEN METIS_TAC [], + MATCH_MP_TAC (GEN_ALL (hd (CONJUNCTS (SIMP_RULE list_ss [AND_IMP_INTRO] value_env_str_thm)))) THEN + Q.EXISTS_TAC `[EB_vn x (TS_forall t')]` THEN + SRW_TAC [] [domEB_def, MAP_REVERSE, MEM_REVERSE, MAP_MAP, value_env_def] THEN + FULL_SIMP_TAC list_ss [] THEN METIS_TAC [MEM_MAP], + Q.PAT_ASSUM `!S'' E1' E2' x' v t''. P E1' E2' x' v t'' ==> + JTe (shiftTsig 0 (num_tv E1') S'') (E1' ++ E2') (subst_value_name_expr v x' e) t` + (MATCH_MP_TAC o + SIMP_RULE list_ss [MAP_REVERSE] o + SIMP_RULE list_ss [num_tv_def, GSYM MAP_REVERSE, lem5, num_tv_append_thm] o + Q.SPECL [`S'`, `REVERSE (MAP (\z. EB_vn (FST z) (TS_forall (SND z))) x_t_list) ++E1`]) + THEN + SRW_TAC [] [domEB_def, MAP_REVERSE, MEM_REVERSE, MAP_MAP, value_env_def] THEN + SRW_TAC [] [MEM_MAP] THEN Cases_on `x = FST z` THEN SRW_TAC [] [] THEN METIS_TAC [lem2]]), + ([``"JTpat_matching_pm"``], + SRW_TAC [] [] THEN + Q.EXISTS_TAC `MAP (\z. (FST z, + (if MEM x (aux_xs_pattern_of_pattern (FST z)) then + FST (SND z) + else subst_value_name_expr v x (FST (SND z))), + (SND (SND z)))) + pattern_e_E_list` THEN + SRW_TAC [] [MAP_MAP, subst_value_name_letrec_binding_def, EVERY_MAP] THEN + FULL_SIMP_TAC list_ss [EVERY_MEM] THENL + [METIS_TAC [value_env_pat_str_thm, value_env_def], + METIS_TAC [lem3]]), + ([``"JTlet_binding_poly"``], + SRW_TAC [] [] THEN MAP_EVERY Q.EXISTS_TAC [`x_t_list`, `t`] THEN SRW_TAC [] [] THEN1 + METIS_TAC [value_env_pat_str_thm, value_env_def]), + ([``"JTletrec_binding_equal_function"``], + SRW_TAC [] [aux_xs_letrec_bindings_of_letrec_bindings_def, MAP_MAP, + aux_xs_letrec_binding_of_letrec_binding_def, FLAT_MAP_SING] THEN + SRW_TAC [] [] THENL + [FULL_SIMP_TAC list_ss [EVERY_MEM] THEN METIS_TAC [lem4], + Q.EXISTS_TAC `MAP (\(a, b, c, d). (a, subst_value_name_pattern_matching v x b, c, d)) + value_name_pattern_matching_t_t'_list` THEN + SRW_TAC [] [subst_value_name_letrec_binding_def, MAP_MAP, LAMBDA_PROD2, + EVERY_MAP] THEN + FULL_SIMP_TAC list_ss [EVERY_MEM, AND_IMP_INTRO, GSYM RIGHT_FORALL_IMP_THM] THEN + SRW_TAC [] [] THEN + Q.PAT_ASSUM `!x' S'' E1' E2' x'' v' t'''. P x' S'' E1' E2' x'' v' t''' ==> + JTpat_matching (shiftTsig 0 (num_tv E1') S'') (E1' ++ E2') + (subst_value_name_pattern_matching v x'' (FST (SND x'))) + (FST (SND (SND x'))) (SND (SND (SND x')))` + (MATCH_MP_TAC o + SIMP_RULE list_ss [num_tv_append_thm, lem5, MAP_REVERSE] o + Q.SPECL [`x'`, `S'`, + `MAP (\z. EB_vn (FST z) + (TS_forall (shiftt 0 1 (TE_arrow (FST (SND (SND z))) + (SND (SND (SND z))))))) + (REVERSE value_name_pattern_matching_t_t'_list) ++ E1`]) + THEN + SRW_TAC [] [MAP_MAP, domEB_def, MAP_REVERSE, MEM_REVERSE] THEN + Q.PAT_ASSUM `~MEM x (MAP FST value_name_pattern_matching_t_t'_list)` MP_TAC THEN + REPEAT (POP_ASSUM (K ALL_TAC)) THEN + Induct_on `value_name_pattern_matching_t_t'_list` THEN SRW_TAC [] []])] +); + + +(* This is a slight variant on the substitution lemma needed for substitution +* for definitions. The difference is all in the S argument (which is used for +* type variable annotations in the source), and I haven't found a way to unite +* the two lemmas into one. It was copied from the proof above and modified +* slightly. *) + +val lem9 = Q.prove ( +`JTpat S (E1 ++ [EB_vn x (TS_forall t'')] ++ E2) p t E /\ + JTe S (E ++ E1 ++ [EB_vn x (TS_forall t'')] ++ E2) e t' /\ + ( is_non_expansive_of_expr v /\ + (E ++ E1 ++ [EB_vn x (TS_forall t'')] ++ E2 = + (E++E1) ++ [EB_vn x (TS_forall t'')] ++ E2) /\ + ~MEM (name_vn x) (MAP domEB (E++E1)) /\ + closed_env E2 /\ + (?S'. JTe S' (EB_tv::E2) (remv_tyvar_expr v) t'') ==> + JTe S ((E++E1) ++ E2) (subst_value_name_expr (remv_tyvar_expr v) x e) t') /\ + is_non_expansive_of_expr v /\ + ~MEM (name_vn x) (MAP domEB E1) /\ + closed_env E2 /\ + JTe S' (EB_tv::E2) (remv_tyvar_expr v) t'' ==> + JTe S (E ++ E1 ++ E2) + (if MEM x (aux_xs_pattern_of_pattern p) then + e + else + subst_value_name_expr (remv_tyvar_expr v) x e) + t'`, +SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [] THEN +IMP_RES_TAC aux_xs_pattern_of_pattern_thm THEN SRW_TAC [] [] THENL +[MATCH_MP_TAC (GEN_ALL (hd (CONJUNCTS (SIMP_RULE list_ss [AND_IMP_INTRO] value_env_str_thm)))) THEN + Q.EXISTS_TAC `[EB_vn x (TS_forall t'')]` THEN + SRW_TAC [] [value_env_def, domEB_def, MAP_REVERSE, MEM_REVERSE, MAP_MAP] THEN + METIS_TAC [MEM_MAP, MEM_REVERSE], + METIS_TAC [MEM_MAP, name_11, MEM_REVERSE]]); + +val lem10 = Q.prove ( +`MEM x (MAP FST l) /\ + JTpat_matching S + (REVERSE (MAP (\z. EB_vn (FST z) + (TS_forall (shiftt 0 1 (TE_arrow (FST (SND (SND z))) + (SND (SND (SND z))))))) l) ++ E1 ++ + [EB_vn x (TS_forall t'')] ++ E2) pm t t' ==> +JTpat_matching S + (REVERSE (MAP (\z. EB_vn (FST z) + (TS_forall (shiftt 0 1 (TE_arrow (FST (SND (SND z))) + (SND (SND (SND z))))))) l) ++ E1 ++ + E2) pm t t'`, +Cases_on `pm` THEN SRW_TAC [] [JTe_fun] THEN +Q.EXISTS_TAC `pattern_e_E_list` THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THENL +[METIS_TAC [value_env_pat_str_thm, value_env_def], + SRW_TAC [] [] THEN + MATCH_MP_TAC (GEN_ALL (hd (CONJUNCTS (SIMP_RULE list_ss [AND_IMP_INTRO] value_env_str_thm)))) THEN + Q.EXISTS_TAC `[EB_vn x (TS_forall t'')]` THEN + SRW_TAC [] [value_env_def, MAP_REVERSE, MAP_MAP, domEB_def] THEN + Q.PAT_ASSUM `MEM x (MAP FST l)` MP_TAC THEN + REPEAT (POP_ASSUM (K ALL_TAC)) THEN Induct_on `l` THEN SRW_TAC [] [] THEN METIS_TAC []]); + +val lem11 = Q.prove ( +`!S v t E E' t_list. + JTe (shiftTsig 0 1 S) (EB_tv::E) (remv_tyvar_expr v) t /\ closed_env E /\ Eok (E' ++ E) /\ + EVERY (tkind (E' ++ E)) t_list ==> + JTe S (E' ++ E) (remv_tyvar_expr v) (idxsub t_list (shiftt 1 (num_tv E') t))`, +METIS_TAC [lem8, remv_tyvar_thm, remv_tyvar_idem_thm]); + + +val subst_for_def_lem = Q.store_thm ("subst_for_def_lem", +`(!S E e t. JTe S E e t ==> + !E1 E2 x v t'. + is_non_expansive_of_expr v /\ + (E = E1 ++ [EB_vn x (TS_forall t')] ++ E2) /\ + ~MEM (name_vn x) (MAP domEB E1) /\ + closed_env E2 /\ + (?S'. JTe S' (EB_tv::E2) (remv_tyvar_expr v) t') ==> + JTe S (E1++E2) (subst_value_name_expr (remv_tyvar_expr v) x e) t) /\ + (!S E pm t t'. JTpat_matching S E pm t t' ==> + !E1 E2 x v t''. + is_non_expansive_of_expr v /\ + (E = E1 ++ [EB_vn x (TS_forall t'')] ++ E2) /\ + ~MEM (name_vn x) (MAP domEB E1) /\ + closed_env E2 /\ + (?S'. JTe S' (EB_tv::E2) (remv_tyvar_expr v) t'') ==> + JTpat_matching S (E1++E2) (subst_value_name_pattern_matching (remv_tyvar_expr v) x pm) t t') /\ + (!S E lb E'. JTlet_binding S E lb E' ==> + !E1 E2 x v t''. + is_non_expansive_of_expr v /\ + (E = E1 ++ [EB_vn x (TS_forall t'')] ++ E2) /\ + ~MEM (name_vn x) (MAP domEB E1) /\ + closed_env E2 /\ + (?S'. JTe S' (EB_tv::E2) (remv_tyvar_expr v) t'') ==> + JTlet_binding S (E1++E2) (subst_value_name_let_binding (remv_tyvar_expr v) x lb) E') /\ + (!S E lrbs E'. JTletrec_binding S E lrbs E' ==> + !x E1 E2 v t''. + is_non_expansive_of_expr v /\ + (E = E1 ++ [EB_vn x (TS_forall t'')] ++ E2) /\ + ~MEM (name_vn x) (MAP domEB E1) /\ + closed_env E2 /\ + (?S'. JTe S' (EB_tv::E2) (remv_tyvar_expr v) t'') ==> + if MEM x (aux_xs_letrec_bindings_of_letrec_bindings lrbs) then + JTletrec_binding S (E1++E2) lrbs E' + else + JTletrec_binding S (E1++E2) (subst_value_name_letrec_bindings (remv_tyvar_expr v) x lrbs) E')`, +RULE_INDUCT_TAC JTe_sind [subst_value_name_letrec_binding_def, JTe_fun] +[([``"JTe_uprim"``, ``"JTe_bprim"``, ``"JTe_constant"``, ``"JTe_typed"``], + FULL_SIMP_TAC list_ss [JTuprim_cases, JTbprim_cases, JTconst_cases, JTconstr_c_cases] THEN + SRW_TAC [] [] THEN + FULL_SIMP_TAC list_ss [lookup_def, domEB_def, name_distinct, EVERY_MEM] THEN + METIS_TAC [value_env_lookup_str_thm, value_env_ok_str_thm, APPEND, value_env_def, + value_env_inst_any_thm, value_env_teq_str_thm]), + ([``"JTe_apply"``, ``"JTe_match"``], METIS_TAC []), + ([``"JTe_ident"``], + SRW_TAC [] [] THEN SRW_TAC [] [JTe_fun] THEN + FULL_SIMP_TAC list_ss [JTvalue_name_cases, lookup_def, domEB_def, name_11, lookup_append_thm, + lookup_dom_thm] THEN + SRW_TAC [] [] THENL + [FULL_SIMP_TAC list_ss [JTinst_cases, shiftEB_def, shiftts_def] THEN SRW_TAC [] [] THEN + `JTe S' (E1 ++ E2) (remv_tyvar_expr v) (idxsub t_list (shiftt 1 (num_tv E1) t'))` + by (MATCH_MP_TAC lem11 THEN SRW_TAC [] [] THENL + [METIS_TAC [remv_tyvar_idem_thm, remv_tyvar_thm], + METIS_TAC [value_env_ok_str_thm, value_env_def, ok_ok_thm], + FULL_SIMP_TAC list_ss [EVERY_MEM] THEN + METIS_TAC [value_env_ok_str_thm, value_env_def]]) THEN + METIS_TAC [value_env_def, value_env_teq_str_thm, teq_thm], + FULL_SIMP_TAC list_ss [lem1] THEN Cases_on `lookup E1 (name_vn value_name)` THEN + FULL_SIMP_TAC list_ss [option_case_def] THEN SRW_TAC [] [] THENL + [Cases_on `EB` THEN + FULL_SIMP_TAC list_ss [environment_binding_distinct, shiftEB_def, num_tv_append_thm, + num_tv_def] THEN + SRW_TAC [] [] THEN + METIS_TAC [value_env_inst_str_thm, value_env_ok_str_thm, value_env_def, + value_env_teq_str_thm], + METIS_TAC [value_env_inst_str_thm, value_env_ok_str_thm, value_env_def, + value_env_teq_str_thm]]]), + ([``"JTe_tuple"``, ``"JTe_construct"``], + SRW_TAC [] [] THEN + Q.EXISTS_TAC `MAP (\e_t. (subst_value_name_expr (remv_tyvar_expr v) x (FST e_t), SND e_t)) + e_t_list` THEN + SRW_TAC [] [MAP_MAP, ETA_THM, EVERY_MAP] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN + METIS_TAC [value_env_def, value_env_constr_p_str_thm, APPEND, value_env_teq_str_thm]), + ([``"JTe_cons"``, ``"JTe_and"``, ``"JTe_or"``, ``"JTe_while"``, ``"JTe_function"``], + METIS_TAC [value_env_teq_str_thm, value_env_def]), + ([``"JTe_record_constr"``], + SRW_TAC [] [] THEN + MAP_EVERY Q.EXISTS_TAC [`field_name'_list`, `t'_list`, + `MAP (\fn_e_t. (FST fn_e_t, + subst_value_name_expr (remv_tyvar_expr v) x (FST (SND fn_e_t)), + SND (SND fn_e_t))) + field_name_e_t_list`, + `typeconstr_name`, + `kind`] THEN + SRW_TAC [] [MAP_MAP, ETA_THM, EVERY_MAP] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN1 + METIS_TAC [] THEN1 + METIS_TAC [value_env_def, value_env_field_str_thm, APPEND] THEN + METIS_TAC [value_env_def, value_env_lookup_str_thm, APPEND, value_env_teq_str_thm]), + ([``"JTe_record_with"``], + SRW_TAC [] [] THEN + Q.EXISTS_TAC `MAP (\fn_e_t. (FST fn_e_t, + subst_value_name_expr (remv_tyvar_expr v) x (FST (SND fn_e_t)), + SND (SND fn_e_t))) + field_name_e_t_list` THEN + SRW_TAC [] [MAP_MAP, ETA_THM, EVERY_MAP] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN + METIS_TAC [value_env_def, value_env_field_str_thm, APPEND, value_env_teq_str_thm]), + ([``"JTe_record_proj"``], + METIS_TAC [value_env_def, value_env_field_str_thm, APPEND, value_env_teq_str_thm]), + ([``"JTe_assert"``, ``"JTe_assertfalse"``], + FULL_SIMP_TAC list_ss [JTconst_cases] THEN SRW_TAC [] [] THEN + METIS_TAC [last (CONJUNCTS value_env_ok_str_thm), value_env_def, APPEND, value_env_teq_str_thm]), + ([``"JTe_location"``], + METIS_TAC [value_env_def, value_env_ok_str_thm, value_env_lookup_str_thm, APPEND, value_env_teq_str_thm]), + ([``"JTe_for"``], + SRW_TAC [] [shiftt_def] THEN SRW_TAC [] [] THENL + [MATCH_MP_TAC (SIMP_RULE list_ss [AND_IMP_INTRO] + (Q.SPECL [`E2`, `[EB_vn (VN_id lowercase_ident) (TS_forall t')]`, + `S`, `e''`, + `TE_constr [] TC_unit`, + `EB_vn (VN_id lowercase_ident) (TS_forall (TE_constr [] TC_int))::E1`] + (GEN_ALL (hd (CONJUNCTS value_env_str_thm))))) THEN + SRW_TAC [] [value_env_def, domEB_def], + Q.PAT_ASSUM `!E1' E2' x' v t''. P E1' E2' x' v t'' ==> + JTe S (E1' ++ E2') + (subst_value_name_expr (remv_tyvar_expr v) x' e'') + (TE_constr [] TC_unit)` + (MATCH_MP_TAC o + SIMP_RULE list_ss [num_tv_def] o + Q.SPECL [`EB_vn (VN_id lowercase_ident) + (TS_forall (TE_constr [] TC_int)) :: E1`]) THEN + SRW_TAC [] [domEB_def, DISJOINT_RIGHT, MEM_MAP] THEN METIS_TAC [], + METIS_TAC [value_env_def, value_env_teq_str_thm]]), + ([``"JTe_let_mono"``], + SRW_TAC [] [] THEN + FULL_SIMP_TAC list_ss [REVERSE_EQ, EB_vn_list_thm, aux_xs_let_binding_of_let_binding_def] THEN + IMP_RES_TAC aux_xs_pattern_of_pattern_thm THEN + FULL_SIMP_TAC list_ss [REVERSE_REVERSE, domEB_def, MAP_MAP] THEN + SRW_TAC [] [] THEN DISJ1_TAC THEN Q.EXISTS_TAC `x_t_list` THEN + SRW_TAC [] [] THENL + [METIS_TAC [], + MATCH_MP_TAC (GEN_ALL (hd (CONJUNCTS (SIMP_RULE list_ss [AND_IMP_INTRO] value_env_str_thm)))) THEN + Q.EXISTS_TAC `[EB_vn x (TS_forall t'')]` THEN + SRW_TAC [] [value_env_def, domEB_def, MAP_REVERSE, MEM_REVERSE, MAP_MAP] THEN + METIS_TAC [MEM_MAP], + METIS_TAC [], + Q.PAT_ASSUM `!E1' E2' x' v' t'. P E1' E2' x' v' t' ==> + JTe S (E1' ++ E2') (subst_value_name_expr (remv_tyvar_expr v') x' e) t` + (MATCH_MP_TAC o + SIMP_RULE list_ss [MAP_REVERSE] o + SIMP_RULE list_ss [num_tv_append_thm, lem5, GSYM MAP_REVERSE] o + Q.SPECL [`REVERSE (MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) x_t_list) ++ + E1`]) + THEN + SRW_TAC [] [domEB_def, MAP_REVERSE, MEM_REVERSE, MAP_MAP] THEN + METIS_TAC [MEM_MAP, name_11]]), + ([``"JTe_let_poly"``], + SRW_TAC [] [] THEN + FULL_SIMP_TAC list_ss [REVERSE_EQ, EB_vn_list_thm, aux_xs_let_binding_of_let_binding_def] THEN + IMP_RES_TAC aux_xs_pattern_of_pattern_thm THEN + FULL_SIMP_TAC list_ss [REVERSE_REVERSE, domEB_def, MAP_MAP] THEN + SRW_TAC [] [] THEN DISJ2_TAC THEN Q.EXISTS_TAC `x_t_list` THEN + SRW_TAC [ARITH_ss] [shiftTsig_add_thm] THENL + [METIS_TAC [subst_nexp_thm, nexp_remv_tyvar_thm], + Q.PAT_ASSUM `!E1' E2' x' v' t'''. P E1' E2' x' v' t''' ==> + ?t'. JTpat (shiftTsig 0 1 S) (E1' ++ E2') pat t' E /\ + JTe (shiftTsig 0 1 S) (E1' ++ E2') + (subst_value_name_expr (remv_tyvar_expr v') x' nexp) t'` + (MATCH_MP_TAC o + SIMP_RULE list_ss [num_tv_def] o + Q.SPECL [`EB_tv::E1`]) + THEN + SRW_TAC [] [MAP_MAP, domEB_def, MAP_REVERSE, MEM_REVERSE] THEN + SRW_TAC [ARITH_ss] [MEM_MAP, shiftTsig_add_thm] THEN METIS_TAC [], + MATCH_MP_TAC (GEN_ALL (hd (CONJUNCTS (SIMP_RULE list_ss [AND_IMP_INTRO] value_env_str_thm)))) THEN + Q.EXISTS_TAC `[EB_vn x (TS_forall t'')]` THEN + SRW_TAC [] [value_env_def, domEB_def, MAP_REVERSE, MEM_REVERSE, MAP_MAP] THEN + METIS_TAC [MEM_MAP], + METIS_TAC [subst_nexp_thm, nexp_remv_tyvar_thm], + Q.PAT_ASSUM `!E1' E2' x' v' t'''. P E1' E2' x' v' t''' ==> + ?t'. JTpat (shiftTsig 0 1 S) (E1' ++ E2') pat t' E /\ + JTe (shiftTsig 0 1 S) (E1' ++ E2') + (subst_value_name_expr (remv_tyvar_expr v') x' nexp) t'` + (MATCH_MP_TAC o + SIMP_RULE list_ss [num_tv_def] o + Q.SPECL [`EB_tv::E1`]) + THEN + SRW_TAC [] [MAP_MAP, domEB_def, MAP_REVERSE, MEM_REVERSE] THEN + SRW_TAC [ARITH_ss] [MEM_MAP, shiftTsig_add_thm] THEN METIS_TAC [], + Q.PAT_ASSUM `!E1' E2' x' v' t'. P E1' E2' x' v' t' ==> + JTe S (E1' ++ E2') (subst_value_name_expr (remv_tyvar_expr v') x' e) t` + (MATCH_MP_TAC o + SIMP_RULE list_ss [MAP_REVERSE] o + SIMP_RULE list_ss [num_tv_def, GSYM MAP_REVERSE, lem5, num_tv_append_thm] o + Q.SPECL [`REVERSE (MAP (\z. EB_vn (FST z) (TS_forall (SND z))) x_t_list) ++E1`]) + THEN + SRW_TAC [] [domEB_def, MAP_REVERSE, MEM_REVERSE, MAP_MAP] THEN + METIS_TAC [MEM_MAP, name_11]]), + ([``"JTe_letrec"``], + SRW_TAC [] [] THEN IMP_RES_TAC aux_xs_letrec_bindings_of_letrec_bindings_thm THEN + FULL_SIMP_TAC list_ss [REVERSE_REVERSE, MAP_MAP, domEB_def] THEN + Q.EXISTS_TAC `x_t_list` THEN SRW_TAC [] [] THENL + [Q.PAT_ASSUM `!x' E1' E2' v' t''. P x' E1' E2' v' t'' ==> + (if MEM x' (aux_xs_letrec_bindings_of_letrec_bindings lrbs) then + JTletrec_binding (shiftTsig 0 1 S) (E1' ++ E2') lrbs E' + else + JTletrec_binding (shiftTsig 0 1 S) (E1' ++ E2') + (subst_value_name_letrec_bindings (remv_tyvar_expr v') x' lrbs) E'')` + (MP_TAC o + Q.SPECL [`x`, `EB_tv::E1`]) THEN + SRW_TAC [] [num_tv_def, shiftTsig_add_thm] THEN POP_ASSUM MATCH_MP_TAC THEN + SRW_TAC [] [domEB_def, MAP_REVERSE, MEM_REVERSE, MAP_MAP, value_env_def] THEN + SRW_TAC [] [MEM_MAP] THEN METIS_TAC [], + Q.PAT_ASSUM `!x' E1' E2' v' t''. P x' E1' E2' v' t'' ==> + (if MEM x' (aux_xs_letrec_bindings_of_letrec_bindings lrbs) then + JTletrec_binding (shiftTsig 0 1 S'') (E1' ++ E2') lrbs E' + else + JTletrec_binding (shiftTsig 0 1 S'') (E1' ++ E2') + (subst_value_name_letrec_bindings (remv_tyvar_expr v') x' lrbs) E'')` + (MP_TAC o + Q.SPECL [`x`, `EB_tv::E1`]) THEN + SRW_TAC [] [num_tv_def, shiftTsig_add_thm] THEN POP_ASSUM MATCH_MP_TAC THEN + SRW_TAC [] [domEB_def, MAP_REVERSE, MEM_REVERSE, MAP_MAP, value_env_def] THEN + SRW_TAC [] [MEM_MAP] THEN METIS_TAC [], + MATCH_MP_TAC (GEN_ALL (hd (CONJUNCTS (SIMP_RULE list_ss [AND_IMP_INTRO] value_env_str_thm)))) THEN + Q.EXISTS_TAC `[EB_vn x (TS_forall t')]` THEN + SRW_TAC [] [domEB_def, MAP_REVERSE, MEM_REVERSE, MAP_MAP, value_env_def] THEN + FULL_SIMP_TAC list_ss [] THEN METIS_TAC [MEM_MAP], + Q.PAT_ASSUM `!E1' E2' x' v t''. P E1' E2' x' v t'' ==> + JTe S (E1' ++ E2') (subst_value_name_expr (remv_tyvar_expr v) x' e) t` + (MATCH_MP_TAC o + SIMP_RULE list_ss [MAP_REVERSE] o + SIMP_RULE list_ss [num_tv_def, GSYM MAP_REVERSE, lem5, num_tv_append_thm] o + Q.SPECL [`REVERSE (MAP (\z. EB_vn (FST z) (TS_forall (SND z))) x_t_list) ++E1`]) + THEN + SRW_TAC [] [domEB_def, MAP_REVERSE, MEM_REVERSE, MAP_MAP, value_env_def] THEN + SRW_TAC [] [MEM_MAP] THEN Cases_on `x = FST z` THEN SRW_TAC [] [] THEN METIS_TAC [lem2]]), + ([``"JTpat_matching_pm"``], + SRW_TAC [] [] THEN + Q.EXISTS_TAC `MAP (\z. (FST z, + (if MEM x (aux_xs_pattern_of_pattern (FST z)) then + FST (SND z) + else subst_value_name_expr (remv_tyvar_expr v) x (FST (SND z))), + (SND (SND z)))) + pattern_e_E_list` THEN + SRW_TAC [] [MAP_MAP, subst_value_name_letrec_binding_def, EVERY_MAP] THEN + FULL_SIMP_TAC list_ss [EVERY_MEM] THENL + [METIS_TAC [value_env_pat_str_thm, value_env_def], + METIS_TAC [lem9]]), + ([``"JTlet_binding_poly"``], + SRW_TAC [] [] THEN MAP_EVERY Q.EXISTS_TAC [`x_t_list`, `t`] THEN SRW_TAC [] [] THEN + METIS_TAC [value_env_pat_str_thm, value_env_def]), + ([``"JTletrec_binding_equal_function"``], + SRW_TAC [] [aux_xs_letrec_bindings_of_letrec_bindings_def, MAP_MAP, + aux_xs_letrec_binding_of_letrec_binding_def, FLAT_MAP_SING] THEN + SRW_TAC [] [] THENL + [FULL_SIMP_TAC list_ss [EVERY_MEM] THEN METIS_TAC [lem10], + Q.EXISTS_TAC `MAP (\(a, b, c, d). (a, subst_value_name_pattern_matching (remv_tyvar_expr v) x b, c, d)) + value_name_pattern_matching_t_t'_list` THEN + SRW_TAC [] [subst_value_name_letrec_binding_def, MAP_MAP, LAMBDA_PROD2, + EVERY_MAP] THEN + FULL_SIMP_TAC list_ss [EVERY_MEM, AND_IMP_INTRO, GSYM RIGHT_FORALL_IMP_THM] THEN + SRW_TAC [] [] THEN + Q.PAT_ASSUM `!x' E1' E2' x'' v' t'''. P x' E1' E2' x'' v' t''' ==> + JTpat_matching S (E1' ++ E2') + (subst_value_name_pattern_matching + (remv_tyvar_expr v) x'' (FST (SND x'))) + (FST (SND (SND x'))) (SND (SND (SND x')))` + (MATCH_MP_TAC o + SIMP_RULE list_ss [num_tv_append_thm, lem5, MAP_REVERSE] o + Q.SPECL [`x'`, + `MAP (\z. EB_vn (FST z) + (TS_forall (shiftt 0 1 (TE_arrow (FST (SND (SND z))) + (SND (SND (SND z))))))) + (REVERSE value_name_pattern_matching_t_t'_list) ++ E1`]) + THEN + SRW_TAC [] [MAP_MAP, domEB_def, MAP_REVERSE, MEM_REVERSE] THEN + Q.PAT_ASSUM `~MEM x (MAP FST value_name_pattern_matching_t_t'_list)` MP_TAC THENL + [REPEAT (POP_ASSUM (K ALL_TAC)) THEN + Induct_on `value_name_pattern_matching_t_t'_list` THEN SRW_TAC [] [], + METIS_TAC []]])] +); + +end; + +val substs_empty_thm = Q.store_thm ("substs_empty_thm", +`(!lrb. substs_value_name_letrec_binding [] lrb = lrb) /\ + (!lrbs. substs_value_name_letrec_bindings [] lrbs = lrbs) /\ + (!lb. substs_value_name_let_binding [] lb = lb) /\ + (!pe. substs_value_name_pat_exp [] pe = pe) /\ + (!pm. substs_value_name_pattern_matching [] pm = pm) /\ + (!e. substs_value_name_expr [] e = e) /\ + (!lrb_list. MAP (substs_value_name_letrec_binding []) lrb_list = lrb_list) /\ + (!pe_list. MAP (substs_value_name_pat_exp []) pe_list = pe_list) /\ + (!fe_list. MAP (\(f:field, e). (f, substs_value_name_expr [] e)) fe_list = fe_list) /\ + (!e_list. MAP (substs_value_name_expr []) e_list = e_list) /\ + (!fe:(field#expr). (FST fe, substs_value_name_expr [] (SND fe)) = fe)`, +Induct THEN SRW_TAC [] [substs_value_name_letrec_binding_def, list_assoc_def] THENL +[METIS_TAC [], + METIS_TAC [], + METIS_TAC [], + METIS_TAC [], + Cases_on `fe` THEN FULL_SIMP_TAC list_ss []]); + +val substs_DISJOINT_thm = Q.prove ( +`(!subs lrb. DISJOINT (fv_letrec_binding lrb) (MAP FST subs) ==> + (substs_value_name_letrec_binding subs lrb = lrb)) /\ + (!subs lrbs. DISJOINT (fv_letrec_bindings lrbs) (MAP FST subs) ==> + (substs_value_name_letrec_bindings subs lrbs = lrbs)) /\ + (!subs lb. DISJOINT (fv_let_binding lb) (MAP FST subs) ==> + (substs_value_name_let_binding subs lb = lb)) /\ + (!subs pe. DISJOINT (fv_pat_exp pe) (MAP FST subs) ==> + (substs_value_name_pat_exp subs pe = pe)) /\ + (!subs pm. DISJOINT (fv_pattern_matching pm) (MAP FST subs) ==> + (substs_value_name_pattern_matching subs pm = pm)) /\ + (!subs e. DISJOINT (fv_expr e) (MAP FST subs) ==> + (substs_value_name_expr subs e = e))`, +HO_MATCH_MP_TAC substs_value_name_letrec_binding_ind THEN +SRW_TAC [] [substs_value_name_letrec_binding_def, fv_letrec_binding_def, FLAT_EQ_EMPTY, EVERY_MAP, + EVERY_MEM, DISJOINT_MEM] THEN +FULL_SIMP_TAC list_ss [LAMBDA_PROD2] THENL +[Induct_on `letrec_binding_list` THEN SRW_TAC [] [], + FULL_SIMP_TAC list_ss [list_minus_thm, MEM_MAP, MEM_FILTER] THEN METIS_TAC [], + Induct_on `pat_exp_list` THEN SRW_TAC [] [], + IMP_RES_TAC not_mem_list_assoc THEN SRW_TAC [] [], + Induct_on `expr_list` THEN SRW_TAC [] [], + Induct_on `expr_list` THEN SRW_TAC [] [], + Induct_on `field_expr_list` THEN SRW_TAC [] [] THENL + [Cases_on `h` THEN SRW_TAC [] [], + FULL_SIMP_TAC list_ss [MEM_MAP, MEM_FILTER] THEN METIS_TAC []], + Induct_on `field_expr_list` THEN SRW_TAC [] [] THENL + [Cases_on `h` THEN SRW_TAC [] [], + FULL_SIMP_TAC list_ss [MEM_MAP, MEM_FILTER] THEN METIS_TAC []], + FULL_SIMP_TAC list_ss [list_minus_thm, MEM_MAP, MEM_FILTER] THEN METIS_TAC [], + FULL_SIMP_TAC list_ss [list_minus_thm, MEM_MAP, MEM_FILTER] THEN METIS_TAC [], + FULL_SIMP_TAC list_ss [list_minus_thm, MEM_MAP, MEM_FILTER] THEN METIS_TAC [], + FULL_SIMP_TAC list_ss [list_minus_thm, MEM_MAP, MEM_FILTER] THEN METIS_TAC []]); + +val substs_closed_thm = Q.store_thm ("substs_closed_thm", +`!e subs. (fv_expr e = []) ==> (substs_value_name_expr subs e = e)`, +METIS_TAC [DISJOINT_MEM, MEM, substs_DISJOINT_thm, EVERY_MEM]); + +local + +val lem1 = Q.prove ( +`(!lrbs subs. aux_xs_letrec_bindings_of_letrec_bindings (substs_value_name_letrec_bindings subs lrbs) = + aux_xs_letrec_bindings_of_letrec_bindings lrbs) /\ + (!lrb subs. aux_xs_letrec_binding_of_letrec_binding (substs_value_name_letrec_binding subs lrb) = + aux_xs_letrec_binding_of_letrec_binding lrb) /\ + (!lrb_list subs. MAP (\lrb. aux_xs_letrec_binding_of_letrec_binding + (substs_value_name_letrec_binding subs lrb)) lrb_list = + MAP aux_xs_letrec_binding_of_letrec_binding lrb_list)`, +Induct THEN +SRW_TAC [] [aux_xs_letrec_bindings_of_letrec_bindings_def, substs_value_name_letrec_binding_def, + aux_xs_letrec_binding_of_letrec_binding_def, MAP_MAP]); +in + +val substs_iter_thm = Q.store_thm ("substs_iter_thm", +`(!lrb subs. (fv_expr v = []) ==> + (substs_value_name_letrec_binding ((x,v)::subs) lrb = + substs_value_name_letrec_binding subs (subst_value_name_letrec_binding v x lrb))) /\ + (!lrbs subs. (fv_expr v = []) ==> + (substs_value_name_letrec_bindings ((x,v)::subs) lrbs = + substs_value_name_letrec_bindings subs (subst_value_name_letrec_bindings v x lrbs))) /\ + (!lb subs. (fv_expr v = []) ==> + (substs_value_name_let_binding ((x,v)::subs) lb = + substs_value_name_let_binding subs (subst_value_name_let_binding v x lb))) /\ + (!pe subs. (fv_expr v = []) ==> + (substs_value_name_pat_exp ((x,v)::subs) pe = + substs_value_name_pat_exp subs (subst_value_name_pat_exp v x pe))) /\ + (!pm subs. (fv_expr v = []) ==> + (substs_value_name_pattern_matching ((x,v)::subs) pm = + substs_value_name_pattern_matching subs (subst_value_name_pattern_matching v x pm))) /\ + (!e subs. (fv_expr v = []) ==> + (substs_value_name_expr ((x,v)::subs) e = + substs_value_name_expr subs (subst_value_name_expr v x e))) /\ + (!lrb_list subs. (fv_expr v = []) ==> + (MAP (substs_value_name_letrec_binding ((x,v)::subs)) lrb_list = + MAP (\lrb. substs_value_name_letrec_binding subs (subst_value_name_letrec_binding v x lrb)) + lrb_list)) /\ + (!pe_list subs. (fv_expr v = []) ==> + (MAP (substs_value_name_pat_exp ((x,v)::subs)) pe_list = + MAP (\pe. substs_value_name_pat_exp subs (subst_value_name_pat_exp v x pe)) pe_list)) /\ + (!fe_list subs. (fv_expr v = []) ==> + (MAP (\(f:field, e). (f, substs_value_name_expr ((x,v)::subs) e)) fe_list = + MAP (\(f, e). (f, substs_value_name_expr subs (subst_value_name_expr v x e))) fe_list)) /\ + (!e_list subs. (fv_expr v = []) ==> + (MAP (substs_value_name_expr ((x,v)::subs)) e_list = + MAP (\e. substs_value_name_expr subs (subst_value_name_expr v x e)) e_list)) /\ + (!fe:(field#expr) subs. (fv_expr v = []) ==> + ((FST fe, substs_value_name_expr ((x,v)::subs) (SND fe)) = + (FST fe, substs_value_name_expr subs (subst_value_name_expr v x (SND fe)))))`, +Induct THEN +SRW_TAC [] [substs_value_name_letrec_binding_def, subst_value_name_letrec_binding_def, MAP_MAP, + list_assoc_def] THEN +FULL_SIMP_TAC list_ss [LAMBDA_PROD2] THENL +[METIS_TAC [], + METIS_TAC [], + METIS_TAC [substs_closed_thm], + METIS_TAC [], + METIS_TAC [], + Cases_on `lb` THEN + FULL_SIMP_TAC list_ss [subst_value_name_letrec_binding_def, aux_xs_let_binding_of_let_binding_def], + Cases_on `lb` THEN + FULL_SIMP_TAC list_ss [subst_value_name_letrec_binding_def, aux_xs_let_binding_of_let_binding_def], + METIS_TAC [lem1], + METIS_TAC [lem1]]); + +end; + +local + +val lem5 = Q.prove ( +`!l f g. num_tv (MAP (\x. EB_vn (f x) (g x)) l) = 0`, +METIS_TAC [value_env_map_thm, value_env_num_tv_thm]); + +in + +val substs_lem = Q.store_thm ("substs_lem", +`!S e t E x_t_list x_v_list. + (LENGTH x_t_list = LENGTH x_v_list) /\ + JTe S (REVERSE (MAP (\(x,t). EB_vn x (TS_forall t)) x_t_list) ++ E) e t /\ + EVERY (\(x, v). is_non_expansive_of_expr v) x_v_list /\ + closed_env E /\ + ALL_DISTINCT (MAP FST x_t_list) /\ + EVERY (\((x,t),x',v). (x = x') /\ JTe (shiftTsig 0 1 S) (EB_tv::E) v t) + (ZIP (x_t_list,x_v_list)) ==> + JTe S E (substs_value_name_expr x_v_list e) t`, +Induct_on `x_t_list` THEN Cases_on `x_v_list` THEN SRW_TAC [] [substs_empty_thm] THEN +Cases_on `h'` THEN Cases_on `h` THEN FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THEN +`fv_expr r' = []` by (FULL_SIMP_TAC list_ss [GSYM MAP_REVERSE, ELIM_UNCURRY] THEN + METIS_TAC [closed_env_fv_thm, closed_env_tv_lem]) THEN +SRW_TAC [] [substs_iter_thm] THEN +Q.PAT_ASSUM `!S' e' t' E' x_v_list. P S' e' t' E' x_v_list ==> + JTe S' E' (substs_value_name_expr x_v_list e') t'` MATCH_MP_TAC THEN +SRW_TAC [] [LAMBDA_PROD2] THEN +MATCH_MP_TAC ((SIMP_RULE list_ss [MAP_REVERSE] o + SIMP_RULE list_ss [lem5, LAMBDA_PROD2, shiftTsig_add_thm] o + (*Q.SPECL [`e`, `t'`, `S`, `MAP (\(x,t). EB_vn x (TS_forall t)) (REVERSE x_t_list)`] o*) + Q.SPECL [`shiftTsig 0 (num_tv (MAP (\(x,t). EB_vn x (TS_forall t)) (REVERSE x_t_list))) + S`, + `e`, `t'`, `S`, `MAP (\(x,t). EB_vn x (TS_forall t)) (REVERSE x_t_list)`] o + SIMP_RULE list_ss [GSYM RIGHT_FORALL_IMP_THM, AND_IMP_INTRO] o hd o CONJUNCTS) subst_lem) THEN +SRW_TAC [] [MAP_REVERSE, MEM_REVERSE, MAP_MAP, domEB_def] THEN +FULL_SIMP_TAC list_ss [LAMBDA_PROD2, domEB_def] THEN +Q.EXISTS_TAC `r` THEN SRW_TAC [] [] THEN +FULL_SIMP_TAC list_ss [MEM_MAP, name_11]); + +val substs_pm_lem = Q.store_thm ("substs_pm_lem", +`!S pm t t' E x_t_list x_v_list. + (LENGTH x_t_list = LENGTH x_v_list) /\ + JTpat_matching S (REVERSE (MAP (\(x,t). EB_vn x (TS_forall t)) x_t_list) ++ E) pm t t' /\ + EVERY (\(x, v). is_non_expansive_of_expr v) x_v_list /\ + closed_env E /\ + ALL_DISTINCT (MAP FST x_t_list) /\ + EVERY (\((x,t),x',v). (x = x') /\ JTe (shiftTsig 0 1 S) (EB_tv::E) v t) (ZIP (x_t_list,x_v_list)) ==> + JTpat_matching S E (substs_value_name_pattern_matching x_v_list pm) t t'`, +Induct_on `x_t_list` THEN Cases_on `x_v_list` THEN SRW_TAC [] [substs_empty_thm] THEN +Cases_on `h'` THEN Cases_on `h` THEN FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THEN +`fv_expr r' = []` by (FULL_SIMP_TAC list_ss [GSYM MAP_REVERSE, ELIM_UNCURRY] THEN + METIS_TAC [closed_env_fv_thm, closed_env_tv_lem]) THEN +SRW_TAC [] [substs_iter_thm] THEN +Q.PAT_ASSUM `!S' pm' t' t''' E' x_v_list. P S' pm' t' t''' E' x_v_list ==> + JTpat_matching S' E' (substs_value_name_pattern_matching x_v_list pm') t' t'''` MATCH_MP_TAC THEN +SRW_TAC [] [LAMBDA_PROD2] THEN +MATCH_MP_TAC ((SIMP_RULE list_ss [MAP_REVERSE] o + SIMP_RULE list_ss [lem5, LAMBDA_PROD2, shiftTsig_add_thm] o + (*Q.SPECL [`pm`, `t'`, `t''`, `S`, `MAP (\(x,t). EB_vn x (TS_forall t)) (REVERSE x_t_list)`] o*) + Q.SPECL [`shiftTsig 0 (num_tv (MAP (\(x,t). EB_vn x (TS_forall t)) (REVERSE x_t_list))) + S`, + `pm`, `t'`, `t''`, `S`, `MAP (\(x,t). EB_vn x (TS_forall t)) (REVERSE x_t_list)`] o + SIMP_RULE list_ss [GSYM RIGHT_FORALL_IMP_THM, AND_IMP_INTRO] o hd o tl o CONJUNCTS) subst_lem) +THEN +SRW_TAC [] [MAP_REVERSE, MEM_REVERSE, MAP_MAP, domEB_def] THEN +FULL_SIMP_TAC list_ss [LAMBDA_PROD2, domEB_def] THEN +Q.EXISTS_TAC `r` THEN SRW_TAC [] [] THEN +FULL_SIMP_TAC list_ss [MEM_MAP, name_11]); + +end; + +val substs_ftv_thm = Q.store_thm ("substs_ftv_thm", +`(!subs lrb. EVERY (\xv. ftv_expr (SND xv) = []) subs /\ (ftv_letrec_binding lrb = []) ==> + (ftv_letrec_binding (substs_value_name_letrec_binding subs lrb) = [])) /\ + (!subs lrbs. EVERY (\xv. ftv_expr (SND xv) = []) subs /\ (ftv_letrec_bindings lrbs = []) ==> + (ftv_letrec_bindings (substs_value_name_letrec_bindings subs lrbs) = [])) /\ + (!subs lb. EVERY (\xv. ftv_expr (SND xv) = []) subs /\ (ftv_let_binding lb = []) ==> + (ftv_let_binding (substs_value_name_let_binding subs lb) = [])) /\ + (!subs pe. EVERY (\xv. ftv_expr (SND xv) = []) subs /\ (ftv_pat_exp pe = []) ==> + (ftv_pat_exp (substs_value_name_pat_exp subs pe) = [])) /\ + (!subs pm. EVERY (\xv. ftv_expr (SND xv) = []) subs /\ (ftv_pattern_matching pm = []) ==> + (ftv_pattern_matching (substs_value_name_pattern_matching subs pm) = [])) /\ + (!subs e. EVERY (\xv. ftv_expr (SND xv) = []) subs /\ (ftv_expr e = []) ==> + (ftv_expr (substs_value_name_expr subs e) = []))`, +HO_MATCH_MP_TAC substs_value_name_letrec_binding_ind THEN +SRW_TAC [] [substs_value_name_letrec_binding_def, ftv_letrec_binding_def, FLAT_EQ_EMPTY, EVERY_MAP, + EVERY_MEM, MEM_FILTER] THEN +FULL_SIMP_TAC list_ss [LAMBDA_PROD2, ftv_letrec_binding_def] THENL +[Cases_on `list_assoc value_name subs` THEN SRW_TAC [] [ftv_letrec_binding_def] THEN + METIS_TAC [list_assoc_mem, SND], + Cases_on `x` THEN METIS_TAC [SND], + Cases_on `x` THEN METIS_TAC [SND]]); + +val _ = export_theory (); diff --git a/vendors/ott/examples/ocaml_light/hol/teqScript.sml b/vendors/ott/examples/ocaml_light/hol/teqScript.sml new file mode 100644 index 000000000000..79eb50f2ecbc --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/teqScript.sml @@ -0,0 +1,939 @@ +open bossLib HolKernel boolLib listTheory rich_listTheory optionTheory combinTheory pairTheory; +open ottLib ottTheory caml_typedefTheory; +open utilTheory basicTheory environmentTheory validTheory weakenTheory shiftTheory type_substTheory; +open type_substsTheory; + +val _ = new_theory "teq"; + + +val EVERY_ZIP_SAME = Q.prove ( +`!l f. EVERY (\(x, y). f x y) (ZIP (l, l)) = EVERY (\x. f x x) l`, +Induct THEN SRW_TAC [] []); + +val EVERY_ZIP_SWAP = Q.prove ( +`!l1 l2 f. (LENGTH l1 = LENGTH l2) ==> + (EVERY (\(x, y). f x y) (ZIP (l1, l2)) = EVERY (\(x, y). f y x) (ZIP (l2, l1)))`, +Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) []); + +val EVERY_T = Q.prove ( +`!l. EVERY (\x. T) l = T`, +Induct THEN SRW_TAC [] []); + + +local + +val lem1 = Q.prove ( +`!E. value_env E ==> ~MEM EB_tv E`, +Induct THEN SRW_TAC [] [value_env_def] THEN Cases_on `h` THEN FULL_SIMP_TAC (srw_ss ()) [value_env_def]); + +in + +val teq_thm = Q.store_thm ("teq_thm", +`(!Tsigma E e t. JTe Tsigma E e t ==> !t'. JTeq E t t' ==> JTe Tsigma E e t') /\ + (!Tsigma E pm t1 t2. JTpat_matching Tsigma E pm t1 t2 ==> + !t'. JTeq E t2 t' ==> JTpat_matching Tsigma E pm t1 t') /\ + (!Tsigma E e E'. JTlet_binding Tsigma E e E' ==> T) /\ + (!Tsigma E e E'. JTletrec_binding Tsigma E e E' ==> T)`, +RULE_INDUCT_TAC JTe_sind [JTe_fun] +[([``"JTe_uprim"``, ``"JTe_bprim"``, ``"JTe_ident"``, ``"JTe_constant"``, ``"JTe_typed"``, ``"JTe_cons"``, + ``"JTe_and"``, ``"JTe_or"``, ``"JTe_while"``, ``"JTe_for"``, ``"JTe_assert"``, ``"JTe_location"``, + ``"JTe_record_proj"``, ``"JTe_function"``], + METIS_TAC [JTeq_rules]), + ([``"JTe_match"``], + METIS_TAC []), + ([``"JTe_tuple"``, ``"JTe_construct"``], + SRW_TAC [] [] THEN Q.EXISTS_TAC `e_t_list` THEN SRW_TAC [] [] THEN METIS_TAC [JTeq_rules]), + ([``"JTe_record_constr"``], + SRW_TAC [] [] THEN MAP_EVERY Q.EXISTS_TAC [`field_name'_list`, `t'_list`, `field_name_e_t_list`] THEN + SRW_TAC [] [] THEN METIS_TAC [JTeq_rules]), + ([``"JTe_record_with"``], + SRW_TAC [] [] THEN Q.EXISTS_TAC `field_name_e_t_list` THEN SRW_TAC [] [] THEN METIS_TAC [JTeq_rules]), + ([``"JTe_apply"``], + METIS_TAC [JTeq_rules, ok_thm]), + ([``"JTe_assertfalse"``], + SRW_TAC [] [JTconst_cases] THEN METIS_TAC [ok_ok_thm, JTeq_rules, teq_ok_thm]), + ([``"JTe_let_mono"``], + SRW_TAC [] [] THEN DISJ1_TAC THEN Q.EXISTS_TAC `x_t_list` THEN SRW_TAC [] [] THEN1 METIS_TAC [] THEN + FULL_SIMP_TAC (srw_ss()) [REVERSE_EQ, EB_vn_list_thm] THEN SRW_TAC [] [] THEN + `~MEM EB_tv (REVERSE (MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) x_t_list))` by + SRW_TAC [] [MEM_REVERSE, MEM_MAP] THEN + METIS_TAC [weak_teq_thm, ok_thm, APPEND, APPEND_ASSOC, ok_ok_thm]), + ([``"JTe_let_poly"``], + SRW_TAC [] [] THEN DISJ2_TAC THEN Q.EXISTS_TAC `x_t_list` THEN SRW_TAC [] [] THEN1 METIS_TAC [] THEN + FULL_SIMP_TAC (srw_ss()) [REVERSE_EQ, EB_vn_list_thm] THEN SRW_TAC [] [] THEN + `~MEM EB_tv (REVERSE (MAP (\z. EB_vn (FST z) (TS_forall (SND z))) x_t_list))` by + SRW_TAC [] [MEM_REVERSE, MEM_MAP] THEN + METIS_TAC [weak_teq_thm, ok_thm, APPEND, APPEND_ASSOC, ok_ok_thm]), + ([``"JTe_letrec"``], + SRW_TAC [] [] THEN Q.EXISTS_TAC `x_t_list` THEN SRW_TAC [] [] THEN + `~MEM EB_tv (REVERSE (MAP (\z. EB_vn (FST z) (TS_forall (SND z))) x_t_list))` by + SRW_TAC [] [MEM_REVERSE, MEM_MAP] THEN + METIS_TAC [weak_teq_thm, ok_thm, APPEND, APPEND_ASSOC, ok_ok_thm]), + ([``"JTpat_matching_pm"``], + SRW_TAC [] [] THEN Q.EXISTS_TAC `pattern_e_E_list` THEN SRW_TAC [] [] THEN + FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN SRW_TAC [] [] THEN + METIS_TAC [weak_teq_thm, ok_thm, APPEND, APPEND_ASSOC, ok_ok_thm, pat_env_lem, lem1])]); +end; + +val num_abbrev_def = Define +`(num_abbrev [] = 0:num) /\ + (num_abbrev (EB_ta x y z :: E) = 1 + num_abbrev E) /\ + (num_abbrev (_ :: E) = num_abbrev E)`; + +local + +val lem1 = Q.prove ( +`!l x. MEM x l ==> typexpr_size x <= typexpr1_size l`, +Induct THEN SRW_TAC [] [typexpr_size_def] THEN RES_TAC THEN DECIDE_TAC); + +in + +val apply_abbrev_def = tDefine "apply_abbrev" +`(apply_abbrev tpo tcn t (TE_var tv) = TE_var tv) /\ + (apply_abbrev tpo tcn t (TE_idxvar i1 i2) = TE_idxvar i1 i2) /\ + (apply_abbrev tpo tcn t TE_any = TE_any) /\ + (apply_abbrev tpo tcn t (TE_arrow t1 t2) = + TE_arrow (apply_abbrev tpo tcn t t1) (apply_abbrev tpo tcn t t2)) /\ + (apply_abbrev tpo tcn t (TE_tuple ts) = TE_tuple (MAP (apply_abbrev tpo tcn t) ts)) /\ + (apply_abbrev tpo tcn t (TE_constr ts tc) = + if (tc = TC_name tcn) /\ (LENGTH ts = LENGTH tpo) then + substs_typevar_typexpr (ZIP (MAP tp_to_tv tpo, MAP (apply_abbrev tpo tcn t) ts)) t + else + TE_constr (MAP (apply_abbrev tpo tcn t) ts) tc)` +(WF_REL_TAC `measure (\(a, b, c, d). typexpr_size d)` THEN SRW_TAC [] [] THEN IMP_RES_TAC lem1 THEN + DECIDE_TAC); + +end; + +val remove_abbrev_def = Define +`(remove_abbrev [] = (NONE, [])) /\ + (remove_abbrev (EB_ta tpo tcn t :: E) = (SOME (EB_ta tpo tcn t), E)) /\ + (remove_abbrev (EB_td tcn k :: E) = + let (a, E') = remove_abbrev E in + (a, EB_td tcn k :: E')) /\ + (remove_abbrev (EB_tr tcn k fns :: E) = + let (a, E') = remove_abbrev E in + (a, EB_tr tcn k fns :: E')) /\ + (remove_abbrev (EB_tv :: E) = + let (a, E') = remove_abbrev E in + (OPTION_MAP (\EB. shiftEB 0 1 EB) a, EB_tv :: E')) /\ + (remove_abbrev (EB_l k t :: E) = remove_abbrev E) /\ + (remove_abbrev (EB_fn fn tpo tcn t :: E) = remove_abbrev E) /\ + (remove_abbrev (EB_pc cn tpo tl tc :: E) = remove_abbrev E) /\ + (remove_abbrev (EB_cc cn tc :: E) = remove_abbrev E) /\ + (remove_abbrev (EB_vn vn ts :: E) = remove_abbrev E)`; + +val remove_abbrev_result_thm = Q.prove ( +`!E. ?E'. (remove_abbrev E = (NONE, E')) \/ ?tpo tcn t. remove_abbrev E = (SOME (EB_ta tpo tcn t), E')`, +Induct THEN SRW_TAC [] [remove_abbrev_def] THEN Cases_on `h` THEN +SRW_TAC [] [remove_abbrev_def, shiftEB_def]); + +val remove_abbrev_num_abbrev_thm = Q.prove ( +`!E E' a. (remove_abbrev E = (a, E')) ==> (num_abbrev E' = num_abbrev E - 1)`, +Induct THEN SRW_TAC [] [remove_abbrev_def, num_abbrev_def] THEN SRW_TAC [] [num_abbrev_def] THEN +Cases_on `h` THEN FULL_SIMP_TAC (srw_ss ()) [remove_abbrev_def, num_abbrev_def, LET_THM, LAMBDA_PROD2] THEN +SRW_TAC [] [num_abbrev_def] THEN Cases_on `remove_abbrev E` THEN FULL_SIMP_TAC (srw_ss()) []); + +val remove_abbrev_num_abbrev_thm2 = Q.prove ( +`!E. (?E'. remove_abbrev E = (NONE, E')) = (num_abbrev E = 0)`, +Induct THEN SRW_TAC [] [remove_abbrev_def, num_abbrev_def] THEN SRW_TAC [] [num_abbrev_def] THEN +Cases_on `h` THEN FULL_SIMP_TAC (srw_ss ()) [remove_abbrev_def, num_abbrev_def, LET_THM, LAMBDA_PROD2] THEN +SRW_TAC [] [num_abbrev_def] THEN Cases_on `remove_abbrev E` THEN FULL_SIMP_TAC (srw_ss()) []); + +val Eok_lem1 = Q.prove ( +`!EB E. Eok (EB::E) ==> Eok E`, +METIS_TAC [ok_ok_thm, APPEND]); + +val remove_lookup_lem = Q.prove ( +`!E tcn E' tpo t. Eok E /\ (remove_abbrev E = (SOME (EB_ta tpo tcn t), E')) ==> + (lookup E (name_tcn tcn) = SOME (EB_ta tpo tcn t))`, +Induct THEN SRW_TAC [] [lookup_def, remove_abbrev_def] THEN Cases_on `h` THEN +FULL_SIMP_TAC (srw_ss()) [remove_abbrev_def, lookup_def, domEB_def, LET_THM, LAMBDA_PROD2, + shiftEB_add_thm, Eok_def] THEN +IMP_RES_TAC Eok_lem1 THEN IMP_RES_TAC ok_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [] THEN +Cases_on `E'` THEN FULL_SIMP_TAC (srw_ss ()) [] THEN SRW_TAC [] [] THEN Cases_on `remove_abbrev E` THEN +FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [] THENL +[METIS_TAC [lookup_dom_thm], + METIS_TAC [lookup_dom_thm], + Cases_on `EB` THEN FULL_SIMP_TAC (srw_ss()) [shiftEB_def]]); + +local + +val lem1 = Q.prove ( +`!EB E t1 t2. Eok (EB::E) /\ ~(EB = EB_tv) /\ JTeq E t1 t2 ==> JTeq (EB::E) t1 t2`, +METIS_TAC [weak_teq_thm, MEM, APPEND]); + +val lem2 = Q.prove ( +`!E. ?EBopt E'. remove_abbrev E = (EBopt, E')`, +SRW_TAC [] [] THEN Cases_on `remove_abbrev E` THEN METIS_TAC []); + +val lem3 = Q.prove ( +`!E1 EB E2 tpo tcn t E'. + (remove_abbrev (E1 ++ [EB] ++ E2) = (SOME (EB_ta (TPS_nary tpo) tcn t),E')) /\ + (remove_abbrev (E1 ++ E2) = (SOME (EB_ta (TPS_nary tpo) tcn t),E')) ==> + ~is_tc_EB EB`, +Induct THEN SRW_TAC [] [remove_abbrev_def, is_tc_EB_def] THENL +[Cases_on `EB` THEN FULL_SIMP_TAC (srw_ss()) [remove_abbrev_def, is_tc_EB_def, LET_THM] THEN + SRW_TAC [] [] THEN IMP_RES_TAC remove_abbrev_num_abbrev_thm THEN + `~(num_abbrev E' = 0)` by METIS_TAC [remove_abbrev_num_abbrev_thm2, NOT_SOME_NONE, PAIR_EQ] THEN + DECIDE_TAC, + Cases_on `h` THEN FULL_SIMP_TAC (srw_ss()) [remove_abbrev_def, is_tc_EB_def, LET_THM, LAMBDA_PROD2] THENL + [STRIP_ASSUME_TAC (Q.SPEC `E1++[EB]++E2` lem2) THEN + STRIP_ASSUME_TAC (Q.SPEC `E1++E2` lem2) THEN SRW_TAC [] [] THEN Cases_on `EB'` THEN + FULL_SIMP_TAC (srw_ss()) [shiftEB_def] THEN + Cases_on `EB''` THEN FULL_SIMP_TAC (srw_ss()) [shiftEB_def, shiftt_11] THEN + METIS_TAC [SND], + METIS_TAC [], + METIS_TAC [], + METIS_TAC [], + METIS_TAC [], + STRIP_ASSUME_TAC (Q.SPEC `E1++[EB]++E2` lem2) THEN + STRIP_ASSUME_TAC (Q.SPEC `E1++E2` lem2) THEN SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [] THEN + SRW_TAC [] [] THEN METIS_TAC [SND], + STRIP_ASSUME_TAC (Q.SPEC `E1++[EB]++E2` lem2) THEN + STRIP_ASSUME_TAC (Q.SPEC `E1++E2` lem2) THEN SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [] THEN + SRW_TAC [] [] THEN METIS_TAC [SND], + SRW_TAC [] [] THEN Cases_on `E1` THEN FULL_SIMP_TAC (srw_ss()) [] THEN + `LENGTH (t++[EB]) = LENGTH t` by METIS_TAC [] THEN + FULL_SIMP_TAC (srw_ss()) [], + METIS_TAC []]]); + +val lem4 = Q.prove ( +`!E1 EB E2'. Eok (E1++[EB]++E2) /\ ~is_tc_EB EB ==> Eok (E1++E2)`, +METIS_TAC [ok_str_thm, EXISTS_DEF]); + +in + +val remove_abbrev_split_lem = Q.prove ( +`!E EB E'. (remove_abbrev E = (SOME EB, E')) ==> + ?E1 EB' E2. ~(EB' = EB_tv) /\ (E = E1++[EB']++E2) /\ + ((remove_abbrev (E1++E2) = (SOME EB, E')) \/ (E' = E1++E2))`, +Induct THEN SRW_TAC [] [remove_abbrev_def] THEN Cases_on `h` THEN +FULL_SIMP_TAC (srw_ss()) [remove_abbrev_def, LET_THM] THEN +STRIP_ASSUME_TAC (Q.SPEC `E` lem2) THEN FULL_SIMP_TAC (srw_ss()) [Eok_def] THEN SRW_TAC [] [] THENL +[MAP_EVERY Q.EXISTS_TAC [`EB_tv::E1`, `EB'''`, `E2`] THEN SRW_TAC [] [remove_abbrev_def], + METIS_TAC [APPEND, APPEND_ASSOC], + MAP_EVERY Q.EXISTS_TAC [`EB_vn v t::E1`, `EB''`, `E2`] THEN SRW_TAC [] [remove_abbrev_def], + MAP_EVERY Q.EXISTS_TAC [`[]`, `EB_vn v t`, `E1++[EB'']++E2`] THEN SRW_TAC [] [remove_abbrev_def], + MAP_EVERY Q.EXISTS_TAC [`EB_cc c t::E1`, `EB''`, `E2`] THEN SRW_TAC [] [remove_abbrev_def], + MAP_EVERY Q.EXISTS_TAC [`[]`, `EB_cc c t`, `E1++[EB'']++E2`] THEN SRW_TAC [] [remove_abbrev_def], + MAP_EVERY Q.EXISTS_TAC [`EB_pc c t t0 t1::E1`, `EB''`, `E2`] THEN SRW_TAC [] [remove_abbrev_def], + MAP_EVERY Q.EXISTS_TAC [`[]`, `EB_pc c t t0 t1`, `E1++[EB'']++E2`] THEN SRW_TAC [] [remove_abbrev_def], + MAP_EVERY Q.EXISTS_TAC [`EB_fn f t t0 t1::E1`, `EB''`, `E2`] THEN SRW_TAC [] [remove_abbrev_def], + MAP_EVERY Q.EXISTS_TAC [`[]`, `EB_fn f t t0 t1`, `E1++[EB'']++E2`] THEN SRW_TAC [] [remove_abbrev_def], + MAP_EVERY Q.EXISTS_TAC [`EB_td t n::E1`, `EB''`, `E2`] THEN SRW_TAC [] [remove_abbrev_def], + METIS_TAC [APPEND, APPEND_ASSOC], + MAP_EVERY Q.EXISTS_TAC [`EB_tr t n l::E1`, `EB''`, `E2`] THEN SRW_TAC [] [remove_abbrev_def], + METIS_TAC [APPEND, APPEND_ASSOC], + MAP_EVERY Q.EXISTS_TAC [`[]`, `EB_ta t t0 t1`, `E`] THEN SRW_TAC [] [], + MAP_EVERY Q.EXISTS_TAC [`EB_l n t::E1`, `EB''`, `E2`] THEN SRW_TAC [] [remove_abbrev_def], + MAP_EVERY Q.EXISTS_TAC [`[]`, `EB_l n t`, `E1++[EB'']++E2`] THEN SRW_TAC [] [remove_abbrev_def]]); + +val remove_abbrev_teq_weak_thm = Q.prove ( +`!E E' tpo tcn t t1 t2. + Eok E /\ (remove_abbrev E = (SOME (EB_ta (TPS_nary tpo) tcn t),E')) /\ JTeq E' t1 t2 ==> + JTeq E t1 t2`, +STRIP_TAC THEN Induct_on `LENGTH E` THEN SRW_TAC [] [] THEN Cases_on `E` THEN +FULL_SIMP_TAC (srw_ss()) [remove_abbrev_def] THEN IMP_RES_TAC remove_abbrev_split_lem THENL +[`LENGTH (h::t') = LENGTH (E1++[EB']++E2)` by METIS_TAC [] THEN + FULL_SIMP_TAC (srw_ss()) [] THEN + `LENGTH t' = LENGTH (E1++E2)` by (SRW_TAC [] [] THEN DECIDE_TAC) THEN + IMP_RES_TAC lem3 THEN IMP_RES_TAC lem4 THEN + RES_TAC THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [] THEN + IMP_RES_TAC weak_teq_thm THEN FULL_SIMP_TAC (srw_ss()) [], + FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [] THEN + IMP_RES_TAC weak_teq_thm THEN FULL_SIMP_TAC (srw_ss()) []]); + +end; + +val abbrev_occurs_def = ottDefine "abbrev_occurs" +`(abbrev_occurs tcn (TE_var _) = F) /\ + (abbrev_occurs tcn (TE_idxvar _ _) = F) /\ + (abbrev_occurs tcn TE_any = F) /\ + (abbrev_occurs tcn (TE_arrow t1 t2) = abbrev_occurs tcn t1 \/ abbrev_occurs tcn t2) /\ + (abbrev_occurs tcn (TE_tuple ts) = EXISTS (abbrev_occurs tcn) ts) /\ + (abbrev_occurs tcn (TE_constr ts tc) = (tc = TC_name tcn) \/ EXISTS (abbrev_occurs tcn) ts)`; + +val apply_abbrev_no_occur_thm = Q.prove ( +`(!t2 tpo tcn t1. ~abbrev_occurs tcn t2 ==> (apply_abbrev tpo tcn t1 t2 = t2)) /\ + (!ts tpo tcn t1. ~EXISTS (abbrev_occurs tcn) ts ==> (MAP (\x. apply_abbrev tpo tcn t1 x) ts = ts))`, +Induct THEN SRW_TAC [] [apply_abbrev_def, abbrev_occurs_def] THEN FULL_SIMP_TAC (srw_ss()) [] THEN +METIS_TAC []); + +val abbrev_occur_lem1 = Q.prove ( +`(!t tcn E tp l. + ~MEM (name_tcn tcn) (MAP domEB E) /\ + tkind E (substs_typevar_typexpr (MAP (\tp. (tp_to_tv tp,TE_constr [] TC_unit)) l) t) ==> + ~abbrev_occurs tcn t) /\ + (!ts tcn E tp l. + ~MEM (name_tcn tcn) (MAP domEB E) /\ + EVERY (\t. tkind E (substs_typevar_typexpr (MAP (\tp. (tp_to_tv tp,TE_constr [] TC_unit)) l) t)) ts ==> + EVERY (\t. ~abbrev_occurs tcn t) ts)`, +Induct THEN SRW_TAC [] [substs_typevar_typexpr_def, Eok_def, abbrev_occurs_def, EVERY_MAP, o_DEF] THENL +[METIS_TAC [], + METIS_TAC [], + METIS_TAC [], + CCONTR_TAC THEN Cases_on `t` THEN FULL_SIMP_TAC (srw_ss()) [Eok_def, COND_EXPAND_EQ] THEN + IMP_RES_TAC lookup_dom_thm THEN FULL_SIMP_TAC (srw_ss()) [], + METIS_TAC [], + METIS_TAC [], + METIS_TAC []]); + + +local + +val lem2 = Q.prove ( +`(!t x y tcn. abbrev_occurs tcn (shiftt x y t) = abbrev_occurs tcn t) /\ + (!ts x y tcn. EXISTS (\t. abbrev_occurs tcn (shiftt x y t)) ts = EXISTS (\t. abbrev_occurs tcn t) ts)`, +Induct THEN SRW_TAC [] [abbrev_occurs_def, shiftt_def, EXISTS_MAP]); + +in + +val abbrev_no_occur_thm = Q.prove ( +`!E tpo tcn t E'. Eok E /\ (remove_abbrev E = (SOME (EB_ta tpo tcn t),E')) ==> ~abbrev_occurs tcn t`, +recInduct (fetch "-" "remove_abbrev_ind") THEN +SRW_TAC [] [remove_abbrev_def, LAMBDA_PROD2, LET_THM, Eok_def] THEN +Cases_on `remove_abbrev E` THEN FULL_SIMP_TAC (srw_ss()) [] THENL +[Cases_on `tpo` THEN FULL_SIMP_TAC (srw_ss()) [Eok_def] THEN METIS_TAC [abbrev_occur_lem1], + Cases_on `EB` THEN FULL_SIMP_TAC (srw_ss()) [shiftEB_def] THEN SRW_TAC [] [] THEN METIS_TAC [lem2], + METIS_TAC [ok_ok_thm], + Cases_on `tpo` THEN FULL_SIMP_TAC (srw_ss()) [Eok_def] THEN METIS_TAC [ok_ok_thm], + Cases_on `tpo` THEN Cases_on `tl` THEN Cases_on `tc` THEN Cases_on `l` THEN + FULL_SIMP_TAC (srw_ss()) [Eok_def] THEN Cases_on `l'` THEN FULL_SIMP_TAC (srw_ss()) [] THEN + METIS_TAC [ok_ok_thm], + Cases_on `tc` THEN FULL_SIMP_TAC (srw_ss()) [Eok_def] THEN METIS_TAC [ok_ok_thm], + METIS_TAC [ok_ok_thm]]); + + +end; + +val remove_abbrev_lem1 = Q.prove ( +`!E tpo tcn t E'. (remove_abbrev E = (SOME (EB_ta (TPS_nary tpo) tcn t),E')) /\ + MEM (name_tcn typeconstr_name) (MAP domEB E') ==> + MEM (name_tcn typeconstr_name) (MAP domEB E)`, +Induct THEN SRW_TAC [] [remove_abbrev_def] THEN Cases_on `h` THEN +FULL_SIMP_TAC (srw_ss()) [remove_abbrev_def, domEB_def, LET_THM, LAMBDA_PROD2] THEN +Cases_on `remove_abbrev E` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [] THEN +FULL_SIMP_TAC (srw_ss()) [domEB_def] THEN Cases_on `EB` THEN FULL_SIMP_TAC (srw_ss()) [shiftEB_def] THEN +SRW_TAC [] []); + +val remove_abbrev_lem2 = Q.prove ( +`!E tpo tcn t E' tcn2 EB. (remove_abbrev E = (SOME (EB_ta (TPS_nary tpo) tcn t),E')) /\ ~(tcn = tcn2) /\ + (lookup E (name_tcn tcn2) = SOME EB) ==> + (lookup E' (name_tcn tcn2) = SOME EB)`, +Induct THEN SRW_TAC [] [remove_abbrev_def, lookup_def] THENL +[Cases_on `EB` THEN FULL_SIMP_TAC (srw_ss()) [remove_abbrev_def, domEB_def, LET_THM, LAMBDA_PROD2] THEN + Cases_on `remove_abbrev E` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [lookup_def] THEN + FULL_SIMP_TAC (srw_ss()) [domEB_def], + Cases_on `h` THEN FULL_SIMP_TAC (srw_ss()) [remove_abbrev_def, domEB_def, LET_THM, LAMBDA_PROD2] THEN + Cases_on `remove_abbrev E` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [lookup_def] THEN + FULL_SIMP_TAC (srw_ss()) [domEB_def] THEN Cases_on `EB` THEN FULL_SIMP_TAC (srw_ss()) [shiftEB_def] THEN + SRW_TAC [] [] THEN METIS_TAC [], + Cases_on `h` THEN + FULL_SIMP_TAC (srw_ss()) [remove_abbrev_def, domEB_def, LET_THM, LAMBDA_PROD2, shiftEB_add_thm] THEN + Cases_on `remove_abbrev E` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [lookup_def] THEN + FULL_SIMP_TAC (srw_ss()) [domEB_def, shiftEB_add_thm]]); + + +local + +val lem3 = Q.prove ( +`!E tpo tcn t E' idx. (remove_abbrev E = (SOME (EB_ta (TPS_nary tpo) tcn t),E')) /\ + idx_bound E idx ==> idx_bound E' idx`, +Induct THEN SRW_TAC [] [remove_abbrev_def, idx_bound_def] THEN Cases_on `h` THEN +FULL_SIMP_TAC (srw_ss()) [remove_abbrev_def, idx_bound_def, LET_THM, LAMBDA_PROD2] THEN +Cases_on `remove_abbrev E` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [idx_bound_def] THEN +Cases_on `idx` THEN FULL_SIMP_TAC (srw_ss()) [idx_bound_def] THEN Cases_on `EB` THEN +FULL_SIMP_TAC (srw_ss()) [shiftEB_def] THEN SRW_TAC [] []); + +val lem4 = Q.prove ( +`!E tpo tcn t E'. + Eok E /\ (remove_abbrev E = (SOME (EB_ta (TPS_nary tpo) tcn t),E')) /\ + (lookup E (name_tcn tcn) = SOME (EB_ta (TPS_nary tpo) tcn t)) ==> + tkind E' (substs_typevar_typexpr (MAP (\tp. (tp_to_tv tp,TE_constr [] TC_unit)) tpo) t)`, +Induct THEN SRW_TAC [] [lookup_def, remove_abbrev_def] THEN +FULL_SIMP_TAC (srw_ss()) [domEB_def, Eok_def, remove_abbrev_def] THEN Cases_on `h` THEN +FULL_SIMP_TAC (srw_ss()) [domEB_def, Eok_def, remove_abbrev_def, LET_THM, LAMBDA_PROD2, shiftEB_add_thm] THEN +SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [Eok_def] THENL +[Cases_on `remove_abbrev E` THEN FULL_SIMP_TAC (srw_ss()) [] THEN Cases_on `EB2` THEN + FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [shiftEB_def] THEN + SRW_TAC [] [] THEN Cases_on `EB` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [] THEN + FULL_SIMP_TAC (srw_ss()) [shiftEB_def, shiftt_11] THEN SRW_TAC [] [] THEN + `tkind (EB_tv::r) + (shiftt 0 1 (substs_typevar_typexpr (MAP (\tp. (tp_to_tv tp,TE_constr [] TC_unit)) tpo) t1))` by + METIS_TAC [weak_one_tv_ok_thm, APPEND, num_tv_def, APPEND_ASSOC, shiftE_def] THEN + FULL_SIMP_TAC (srw_ss()) [subst_shiftt_com_lem, MAP_MAP, shiftt_def], + METIS_TAC [ok_ok_thm], + Cases_on `t'` THEN FULL_SIMP_TAC (srw_ss()) [Eok_def], + Cases_on `t'` THEN Cases_on `t0` THEN Cases_on `t1` THEN Cases_on `l` THEN + FULL_SIMP_TAC (srw_ss()) [Eok_def] THEN Cases_on `l'` THEN FULL_SIMP_TAC (srw_ss()) [] THEN + METIS_TAC [ok_ok_thm], + Cases_on `t'` THEN FULL_SIMP_TAC (srw_ss()) [Eok_def] THEN METIS_TAC [ok_ok_thm], + Cases_on `remove_abbrev E` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [] THEN + `Eok (EB_td t' n::r)` by (SRW_TAC [] [Eok_def] THEN METIS_TAC [remove_abbrev_lem1, ok_ok_thm]) THEN + `~MEM EB_tv [EB_td t' n]` by SRW_TAC [] [] THEN METIS_TAC [weak_ok_thm, APPEND], + Cases_on `remove_abbrev E` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [] THEN + `Eok (EB_tr t' n l::r)` by (SRW_TAC [] [Eok_def] THEN METIS_TAC [remove_abbrev_lem1, ok_ok_thm]) THEN + `~MEM EB_tv [EB_tr t' n l]` by SRW_TAC [] [] THEN METIS_TAC [weak_ok_thm, APPEND], + METIS_TAC [ok_ok_thm]]); + +in + +val teq_remove_abbrev_ok_thm = Q.prove ( +`(!E. Eok E ==> !tpo tcn t E'. (remove_abbrev E = (SOME (EB_ta (TPS_nary tpo) tcn t),E')) ==> Eok E') /\ + (!E tc k. (typeconstr_kind E tc = SOME k) ==> + !tpo tcn t E'. (remove_abbrev E = (SOME (EB_ta (TPS_nary tpo) tcn t),E')) ==> + if (TC_name tcn = tc) /\ (LENGTH tpo = k) then + EBok E' (EB_ta (TPS_nary tpo) tcn t) + else + (typeconstr_kind E' tc = SOME k)) /\ + (!E ts. tsok E ts ==> !tpo tcn t E'. (remove_abbrev E = (SOME (EB_ta (TPS_nary tpo) tcn t),E')) ==> + Eok E') /\ + (!E tps t. ntsok E tps t ==> !tpo tcn t' E'. (remove_abbrev E = (SOME (EB_ta (TPS_nary tpo) tcn t'),E')) ==> + Eok E') /\ + (!E t. tkind E t ==> !tpo tcn t' E'. (remove_abbrev E = (SOME (EB_ta (TPS_nary tpo) tcn t'),E')) ==> + tkind E' (apply_abbrev tpo tcn t' t))`, +HO_MATCH_MP_TAC Eok_ind THEN SRW_TAC [] [Eok_def] THEN +FULL_SIMP_TAC (srw_ss()) [remove_abbrev_def, LET_THM, LAMBDA_PROD2, apply_abbrev_def] THENL +[Cases_on `EB` THEN FULL_SIMP_TAC (srw_ss()) [shiftEB_def] THEN SRW_TAC [] [Eok_def] THEN + Cases_on `remove_abbrev E` THEN FULL_SIMP_TAC (srw_ss()) [], + FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN Cases_on `t_list` THEN FULL_SIMP_TAC (srw_ss()) [] THEN + METIS_TAC [ok_ok_thm], + FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN Cases_on `t_list` THEN FULL_SIMP_TAC (srw_ss()) [] THEN + METIS_TAC [ok_ok_thm], + FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN Cases_on `t_list` THEN FULL_SIMP_TAC (srw_ss()) [] THEN + METIS_TAC [ok_ok_thm], + Cases_on `E'` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [Eok_def] THEN + Cases_on `remove_abbrev E` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [] THEN + METIS_TAC [remove_abbrev_lem1], + METIS_TAC [ok_ok_thm], + Cases_on `E'` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [Eok_def] THEN + Cases_on `remove_abbrev E` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [] THEN + METIS_TAC [remove_abbrev_lem1], + METIS_TAC [ok_ok_thm], + Cases_on `lookup E (name_tcn typeconstr_name)` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [] THENL + [IMP_RES_TAC lookup_name_thm THEN SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [] THEN + IMP_RES_TAC remove_lookup_lem THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [] THEN + SRW_TAC [] [EBok_def, Eok_def] THEN FULL_SIMP_TAC (srw_ss()) [COND_EXPAND_EQ] THEN METIS_TAC [lem4], + IMP_RES_TAC lookup_name_thm THEN SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [] THEN + Cases_on `tcn = typeconstr_name` THEN SRW_TAC [] [] THEN IMP_RES_TAC remove_abbrev_lem2 THEN + SRW_TAC [] [] THEN + IMP_RES_TAC remove_lookup_lem THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [] THEN + FULL_SIMP_TAC (srw_ss()) [COND_EXPAND_EQ]], + FULL_SIMP_TAC (srw_ss()) [shiftEB_def] THEN METIS_TAC [ok_ok_thm, APPEND], + METIS_TAC [ok_ok_thm], + SRW_TAC [] [Eok_def] THEN METIS_TAC [lem3], + SRW_TAC [] [Eok_def], + SRW_TAC [] [Eok_def, EVERY_MAP] THEN FULL_SIMP_TAC (srw_ss()) [EVERY_MEM], + SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [Eok_def, EVERY_MAP] THEN + FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN MATCH_MP_TAC tvar_subst_ok_lem THEN + SRW_TAC [] [MAP_FST_ZIP, EVERY_REVERSE] THEN SRW_TAC [] [GSYM EVERY_MAP] THEN SRW_TAC [] [MAP_SND_ZIP] THEN + SRW_TAC [] [EVERY_MAP] THEN SRW_TAC [] [EVERY_MEM] THEN FULL_SIMP_TAC (srw_ss()) [EBok_def, Eok_def] THEN + Q.EXISTS_TAC `MAP (\x. (tp_to_tv x, TE_constr [] TC_unit)) tpo` THEN SRW_TAC [] [MAP_MAP, ETA_THM] THEN + METIS_TAC []]); + +end; + +val type_substs_com_thm = Q.prove ( +`(!t subs1 subs2. + (!tv. MEM tv (ftv_typexpr t) ==> MEM tv (MAP FST subs1)) + ==> + (substs_typevar_typexpr subs2 (substs_typevar_typexpr subs1 t) = + substs_typevar_typexpr (MAP (\(tv,t). (tv,substs_typevar_typexpr subs2 t)) subs1) t)) /\ + (!tlist subs1 subs2. + (!tv. MEM tv (FLAT (MAP ftv_typexpr tlist)) ==> MEM tv (MAP FST subs1)) + ==> + (MAP (\t. substs_typevar_typexpr subs2 (substs_typevar_typexpr subs1 t)) tlist = + MAP (\t. substs_typevar_typexpr (MAP (\(tv,t). (tv,substs_typevar_typexpr subs2 t)) subs1) t) + tlist))`, +Induct THEN SRW_TAC [] [substs_typevar_typexpr_def, ftv_typexpr_def, MAP_MAP] THENL +[Cases_on `list_assoc t subs1` THEN + SRW_TAC [] [substs_typevar_typexpr_def, list_assoc_map, LAMBDA_PROD2] THEN + IMP_RES_TAC mem_list_assoc THEN FULL_SIMP_TAC (srw_ss()) [], + METIS_TAC [], + METIS_TAC []]); + +local + +val lem1 = Q.prove ( +`!tpo typexpr_list. (LENGTH tpo = LENGTH typexpr_list) ==> + (MAP (\p. tp_to_tv (FST p)) (ZIP (tpo,typexpr_list)) = MAP tp_to_tv tpo)`, +METIS_TAC [MAP_MAP, MAP_FST_ZIP, ETA_THM]); + +in + +val type_subst_apply_abbrev_thm = Q.prove ( +`!substs t' tpo tcn t. (!tv. MEM tv (ftv_typexpr t) ==> MEM tv (MAP tp_to_tv tpo)) ==> + (apply_abbrev tpo tcn t (substs_typevar_typexpr substs t') = + substs_typevar_typexpr (MAP (\s. (FST s, apply_abbrev tpo tcn t (SND s))) substs) + (apply_abbrev tpo tcn t t'))`, +recInduct substs_typevar_typexpr_ind THEN SRW_TAC [] [] THEN +SRW_TAC [] [apply_abbrev_def, substs_typevar_typexpr_def, MAP_MAP, MAP_EQ, ZIP_MAP] THEN +FULL_SIMP_TAC (srw_ss()) [ftv_typexpr_def, MEM_FLAT, EXISTS_MAP] THEN +FULL_SIMP_TAC (srw_ss()) [EXISTS_MEM] THENL +[Cases_on `list_assoc typevar sub` THEN SRW_TAC [] [apply_abbrev_def, list_assoc_map], + MP_TAC ((SIMP_RULE (srw_ss()) [MAP_MAP] o + Q.SPECL [`t`, + `MAP (\p. (tp_to_tv (FST p),apply_abbrev tpo tcn t (SND p))) + (ZIP (tpo,typexpr_list))`, + `MAP (\s. (FST s,apply_abbrev tpo tcn t (SND s))) sub`]) + (hd (CONJUNCTS type_substs_com_thm))) THEN + SRW_TAC [] [lem1] THEN + MATCH_MP_TAC (METIS_PROVE [] ``!x y f z. (x = y) ==> (f x z = f y z)``) THEN + SRW_TAC [] [MAP_EQ] THEN + `MEM (SND p) typexpr_list` by METIS_TAC [MEM_ZIP, SND, MEM_EL] THEN + METIS_TAC []]); + +end; + +local + +val lem1 = Q.prove ( +`!l1 l2. + tkind E (substs_typevar_typexpr (MAP (\x. (FST x,TE_constr [] TC_unit)) l1) (TE_var typevar)) /\ + (MAP FST l1 = MAP FST l2) /\ + EVERY (\(t,t'). JTeq E t t') (ZIP (MAP SND l1,MAP SND l2)) ==> + JTeq E (substs_typevar_typexpr l1 (TE_var typevar)) (substs_typevar_typexpr l2 (TE_var typevar))`, +Induct THEN SRW_TAC [] [substs_typevar_typexpr_def, list_assoc_def] THEN1 METIS_TAC [JTeq_rules] THEN +Cases_on `l2` THEN FULL_SIMP_TAC (srw_ss()) [substs_typevar_typexpr_def] THEN +Cases_on `h` THEN Cases_on `h'` THEN FULL_SIMP_TAC (srw_ss()) [list_assoc_def]); + +in + +val teq_substs_same_thm = Q.store_thm ("teq_substs_same_thm", +`!l1 t l2. tkind E (substs_typevar_typexpr (MAP (\x. (FST x, TE_constr [] TC_unit)) l1) t) /\ + (MAP FST l1 = MAP FST l2) /\ + EVERY (\(t, t'). JTeq E t t') (ZIP (MAP SND l1, MAP SND l2)) ==> + JTeq E (substs_typevar_typexpr l1 t) (substs_typevar_typexpr l2 t)`, +recInduct substs_typevar_typexpr_ind THEN SRW_TAC [] [lem1, substs_typevar_typexpr_def] THENL +[METIS_TAC [JTeq_rules], + FULL_SIMP_TAC (srw_ss()) [Eok_def], + FULL_SIMP_TAC (srw_ss()) [Eok_def] THEN METIS_TAC [JTeq_rules], + FULL_SIMP_TAC (srw_ss()) [Eok_def] THEN + ONCE_REWRITE_TAC [JTeq_cases] THEN NTAC 5 DISJ2_TAC THEN DISJ1_TAC THEN + Q.EXISTS_TAC `ZIP (MAP (\typexpr_. substs_typevar_typexpr sub typexpr_) typexpr_list, + MAP (\typexpr_. substs_typevar_typexpr l2 typexpr_) typexpr_list)` THEN + SRW_TAC [] [MAP_FST_ZIP, MAP_SND_ZIP, LENGTH_MAP, LENGTH_ZIP, ZIP_MAP, MAP_ZIP_SAME, EVERY_MAP] THEN + FULL_SIMP_TAC (srw_ss()) [EVERY_MEM, MEM_MAP] THEN METIS_TAC [], + FULL_SIMP_TAC (srw_ss()) [Eok_def] THEN + ONCE_REWRITE_TAC [JTeq_cases] THEN NTAC 6 DISJ2_TAC THEN + MAP_EVERY Q.EXISTS_TAC [`ZIP (MAP (\typexpr_. substs_typevar_typexpr sub typexpr_) typexpr_list, + MAP (\typexpr_. substs_typevar_typexpr l2 typexpr_) typexpr_list)`, + `typeconstr`] THEN + SRW_TAC [] [MAP_FST_ZIP, MAP_SND_ZIP, LENGTH_MAP, LENGTH_ZIP, ZIP_MAP, MAP_ZIP_SAME, EVERY_MAP] THEN + FULL_SIMP_TAC (srw_ss()) [EVERY_MEM, MEM_MAP] THEN METIS_TAC []]); + +end; + +local + +val teq_refl_lem = Q.prove ( +`!E t. JTeq E t t = tkind E t`, +METIS_TAC [JTeq_rules, teq_ok_thm]); + +val lem1 = Q.prove ( +`(MAP f (MAP FST l) = MAP FST (MAP (\x. (f (FST x), f (SND x))) l)) /\ + (MAP f (MAP SND l) = MAP SND (MAP (\x. (f (FST x), f (SND x))) l))`, +SRW_TAC [] [MAP_MAP]); + +val lem2 = Q.prove ( +`(MAP f (MAP FST l) = MAP FST (MAP (\x. (f (FST x), SND x)) l))`, +SRW_TAC [] [MAP_MAP]); + +val lem3 = Q.prove ( +`!t f l. (ftv_typexpr (substs_typevar_typexpr (MAP (\z. (f z, TE_constr [] TC_unit)) l) t) = []) ==> + (!tv. MEM tv (ftv_typexpr t) ==> MEM tv (MAP f l))`, +recInduct ftv_typexpr_ind THEN SRW_TAC [] [ftv_typexpr_def, substs_typevar_typexpr_def] THEN +FULL_SIMP_TAC (srw_ss()) [MEM_FLAT, MAP_MAP, EXISTS_MAP, FLAT_EQ_EMPTY, EVERY_MAP] THEN +FULL_SIMP_TAC (srw_ss()) [EXISTS_MEM, EVERY_MEM] THENL +[Cases_on `list_assoc typevar (MAP (\z. (f z,TE_constr [] TC_unit)) l)` THEN + FULL_SIMP_TAC (srw_ss()) [ftv_typexpr_def] THEN IMP_RES_TAC list_assoc_mem THEN + FULL_SIMP_TAC (srw_ss()) [MEM_MAP] THEN METIS_TAC [], + METIS_TAC [], + METIS_TAC []]); + +val lem4 = Q.prove ( +`!l. EVERY (\x. tkind E (FST x)) l ==> + EVERY (\s. ftv_typexpr (SND s) = []) (MAP (\z. (SND z,FST z)) l)`, +Induct THEN SRW_TAC [] [] THEN METIS_TAC [ftv_lem1]); + +val lem5 = Q.prove ( +`!l. + (!t E. + tkind E (substs_typevar_typexpr (MAP (\z. (SND z,TE_constr [] TC_unit)) l) t) ==> + !tv. MEM tv (ftv_typexpr t) ==> MEM tv (MAP SND l)) /\ + (!ts E. + EVERY (\t. tkind E (substs_typevar_typexpr (MAP (\z. (SND z,TE_constr [] TC_unit)) l) t)) ts ==> + !tv. MEM tv (FLAT (MAP ftv_typexpr ts)) ==> MEM tv (MAP SND l))`, +STRIP_TAC THEN Induct THEN +SRW_TAC [] [Eok_def, ftv_typexpr_def, substs_typevar_typexpr_def, EVERY_MAP, ETA_THM] THENL +[Cases_on `list_assoc t (MAP (\z. (SND z,TE_constr [] TC_unit)) l)` THEN FULL_SIMP_TAC (srw_ss()) [] THEN + FULL_SIMP_TAC (srw_ss()) [Eok_def] THEN IMP_RES_TAC list_assoc_mem THEN + FULL_SIMP_TAC (srw_ss()) [MEM_MAP] THEN SRW_TAC [] [] THEN METIS_TAC [], + METIS_TAC [], + METIS_TAC [], + METIS_TAC [], + METIS_TAC [], + METIS_TAC [], + METIS_TAC []]); + +val lem6 = Q.prove ( +`!E tpo tcn t' E'. Eok E /\ (remove_abbrev E = (SOME (EB_ta (TPS_nary tpo) tcn t'),E')) ==> + (lookup E' (name_tcn tcn) = NONE)`, +Induct THEN SRW_TAC [] [remove_abbrev_def, lookup_def, domEB_def] THEN Cases_on `h` THEN +FULL_SIMP_TAC (srw_ss()) [remove_abbrev_def, lookup_def, domEB_def] THEN IMP_RES_TAC Eok_lem1 THEN +FULL_SIMP_TAC (srw_ss()) [LET_THM] THEN SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [Eok_def] THENL +[Cases_on `remove_abbrev E` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [lookup_def, domEB_def] THEN + Cases_on `EB` THEN FULL_SIMP_TAC (srw_ss()) [shiftEB_def] THEN SRW_TAC [] [], + Cases_on `remove_abbrev E` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [lookup_def, domEB_def] THEN + METIS_TAC [remove_lookup_lem, lookup_dom_thm], + Cases_on `remove_abbrev E` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [lookup_def, domEB_def] THEN + METIS_TAC [remove_lookup_lem, lookup_dom_thm], + METIS_TAC [lookup_dom_thm]]); + +val lem7 = Q.prove ( +`!tpo t_t'_list. + (LENGTH tpo = LENGTH t_t'_list) ==> + (MAP (\tp. (tp_to_tv tp,TE_constr [] TC_unit)) tpo = + MAP (\p. (tp_to_tv (FST p),TE_constr [] TC_unit)) (ZIP (tpo,t_t'_list)))`, +Induct THEN SRW_TAC [] [] THEN Cases_on `t_t'_list` THEN FULL_SIMP_TAC (srw_ss()) []); + +val lem8 = Q.prove ( +`!E tpo t t_t'_list. + (LENGTH tpo = LENGTH t_t'_list) /\ ntsok E tpo t /\ EVERY (\x. JTeq E (FST x) (SND x)) t_t'_list ==> + JTeq E (substs_typevar_typexpr (MAP (\p. (tp_to_tv (FST p), (FST (SND p)))) (ZIP (tpo,t_t'_list))) t) + (substs_typevar_typexpr (MAP (\p. (tp_to_tv (FST p), (SND (SND p)))) (ZIP (tpo,t_t'_list))) t)`, +SRW_TAC [] [Eok_def] THEN MATCH_MP_TAC teq_substs_same_thm THEN +SRW_TAC [] [MAP_FST_ZIP, MAP_SND_ZIP, MAP_MAP, MAP_ZIP_SAME, ZIP_MAP, ETA_THM, LAMBDA_PROD2] THEN +METIS_TAC [lem7]); + +in + +val apply_abbrev_str_thm = Q.prove ( +`!E t1 t2. JTeq E t1 t2 ==> !tpo tcn t E'. + (remove_abbrev E = (SOME (EB_ta (TPS_nary tpo) tcn t), E')) ==> + JTeq E' (apply_abbrev tpo tcn t t1) (apply_abbrev tpo tcn t t2)`, +RULE_INDUCT_TAC JTeq_ind [remove_abbrev_def, apply_abbrev_def, teq_refl_lem] +[([``"JTeq_sym"``, ``"JTeq_trans"``, ``"JTeq_arrow"``], METIS_TAC [JTeq_rules]), + ([``"JTeq_refl"``], METIS_TAC [teq_remove_abbrev_ok_thm]), + ([``"JTeq_tuple"``], + SRW_TAC [] [lem1] THEN FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN + FULL_SIMP_TAC (srw_ss()) [GSYM EVERY_MEM] THEN MATCH_MP_TAC (List.nth (CONJUNCTS JTeq_rules, 5)) THEN + SRW_TAC [] [EVERY_MAP]), + ([``"JTeq_expand"``], + SRW_TAC [] [] THEN SRW_TAC [] [] THENL + [IMP_RES_TAC remove_lookup_lem THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [] THEN + FULL_SIMP_TAC (srw_ss()) [LENGTH_MAP] THEN SRW_TAC [] [ZIP_MAP, MAP_ZIP_SAME] THEN + SRW_TAC [] [MAP_MAP, tp_to_tv_def] THEN IMP_RES_TAC lookup_ok_thm THEN + FULL_SIMP_TAC (srw_ss()) [EBok_def, Eok_def] THEN IMP_RES_TAC teq_remove_abbrev_ok_thm THEN + IMP_RES_TAC lem4 THEN FULL_SIMP_TAC (srw_ss()) [MAP_MAP] THEN + `EVERY (\s. ftv_typexpr (SND s) = []) + (MAP (\z. (tp_to_tv (TP_var (SND z)),TE_constr [] TC_unit)) t_typevar_list)` + by SRW_TAC [] [EVERY_MAP, ftv_typexpr_def] THEN + FULL_SIMP_TAC (srw_ss()) [tp_to_tv_def] THEN + `!tv. MEM tv (ftv_typexpr t) ==> MEM tv (MAP tp_to_tv (MAP (\z. TP_var (SND z)) t_typevar_list))` + by (SRW_TAC [] [MAP_MAP, tp_to_tv_def] THEN METIS_TAC [lem5]) THEN + FULL_SIMP_TAC (srw_ss()) [type_subst_apply_abbrev_thm] THEN + IMP_RES_TAC abbrev_no_occur_thm THEN + FULL_SIMP_TAC (srw_ss()) [apply_abbrev_no_occur_thm, tp_to_tv_def, MAP_MAP, apply_abbrev_def] THEN + MATCH_MP_TAC (List.nth (CONJUNCTS JTeq_rules, 0)) THEN + MATCH_MP_TAC tvar_subst_ok_lem THEN SRW_TAC [] [MAP_MAP, EVERY_REVERSE, EVERY_MAP] THEN + Q.EXISTS_TAC `MAP (\z. (SND z,TE_constr [] TC_unit)) t_typevar_list` THEN SRW_TAC [] [MAP_MAP] THEN + FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN SRW_TAC [] [] THEN RES_TAC THEN + IMP_RES_TAC teq_remove_abbrev_ok_thm, + IMP_RES_TAC remove_lookup_lem THEN IMP_RES_TAC lookup_ok_thm THEN + FULL_SIMP_TAC (srw_ss()) [EBok_def, Eok_def] THEN SRW_TAC [] [] THEN IMP_RES_TAC ftv_lem1 THEN + FULL_SIMP_TAC (srw_ss()) [MAP_MAP, tp_to_tv_def] THEN IMP_RES_TAC lem3 THEN IMP_RES_TAC lem4 THEN + SRW_TAC [] [type_subst_apply_abbrev_thm, MAP_MAP] THEN + MATCH_MP_TAC ((SIMP_RULE (srw_ss()) [MAP_MAP] o + Q.SPEC `MAP (\x. (apply_abbrev tpo tcn t' (FST x), SND x)) t_typevar_list`) + (List.nth (CONJUNCTS JTeq_rules, 3))) THEN + SRW_TAC [] [EVERY_MAP] THEN IMP_RES_TAC teq_remove_abbrev_ok_thm THENL + [`lookup E' (name_tcn typeconstr_name) = + SOME (EB_ta (TPS_nary (MAP (\z. TP_var (SND z)) t_typevar_list)) typeconstr_name t)` + by METIS_TAC [remove_abbrev_lem2] THEN + IMP_RES_TAC lookup_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [EBok_def, Eok_def] THEN + METIS_TAC [lem6, abbrev_occur_lem1, lookup_dom_thm, apply_abbrev_no_occur_thm], + FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN METIS_TAC [teq_remove_abbrev_ok_thm], + Cases_on `tcn = typeconstr_name` THENL + [SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [] THEN FULL_SIMP_TAC (srw_ss()) [] THEN + METIS_TAC [LENGTH_MAP], + `lookup E' (name_tcn typeconstr_name) = + SOME (EB_ta (TPS_nary (MAP (\z. TP_var (SND z)) t_typevar_list)) typeconstr_name t)` + by METIS_TAC [remove_abbrev_lem2] THEN + IMP_RES_TAC lookup_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [EBok_def, Eok_def] THEN + METIS_TAC [lem6, abbrev_occur_lem1, lookup_dom_thm, apply_abbrev_no_occur_thm]], + FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN METIS_TAC [teq_remove_abbrev_ok_thm]]]), + ([``"JTeq_constr"``], + SRW_TAC [] [lem1] THEN FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN + FULL_SIMP_TAC (srw_ss()) [GSYM EVERY_MEM] THEN SRW_TAC [] [] THENL + [IMP_RES_TAC teq_remove_abbrev_ok_thm THEN POP_ASSUM MP_TAC THEN + SRW_TAC [] [EBok_def] THEN + `EVERY (\x. JTeq E' (FST x) (SND x)) + (MAP (\x. (apply_abbrev tpo tcn t (FST x), apply_abbrev tpo tcn t (SND x))) t_t'_list)` + by SRW_TAC [] [EVERY_MAP] THEN + IMP_RES_TAC lem8 THEN POP_ASSUM MP_TAC THEN SRW_TAC [] [MAP_MAP, ZIP_MAP], + MATCH_MP_TAC (List.nth (CONJUNCTS JTeq_rules, 6)) THEN SRW_TAC [] [EVERY_MAP] THEN + IMP_RES_TAC teq_remove_abbrev_ok_thm THEN METIS_TAC []])]); + +end; + +local + +val lem1 = Q.prove ( +`!l1 l2 P. (LENGTH l1 = LENGTH l2) ==> (EVERY (\x. P (FST x)) (ZIP (l1,l2)) = EVERY (\x. P x) l1)`, +Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN FULL_SIMP_TAC (srw_ss()) []); + +val lem2 = Q.prove ( +`!tpo ts l tcn t'. (LENGTH ts = LENGTH tpo) ==> + (MAP (\p. (tp_to_tv (FST p),apply_abbrev l tcn t' (SND p))) (ZIP (tpo,ts)) = + MAP (\p. (tp_to_tv (SND p),apply_abbrev l tcn t' (FST p))) (ZIP (ts,tpo)))`, +Induct THEN SRW_TAC [] [] THEN Cases_on `ts` THEN FULL_SIMP_TAC (srw_ss()) []); + +in + +val abbrev_eq_thm = Q.prove ( +`(!t tpo tcn t' E. tkind E t /\ (lookup E (name_tcn tcn) = SOME (EB_ta (TPS_nary tpo) tcn t')) ==> + JTeq E t (apply_abbrev tpo tcn t' t)) /\ + (!ts tpo tcn t' E. EVERY (\x. tkind E x) ts /\ + (lookup E (name_tcn tcn) = SOME (EB_ta (TPS_nary tpo) tcn t')) ==> + EVERY (\t. JTeq E t (apply_abbrev tpo tcn t' t)) ts)`, +Induct THEN SRW_TAC [] [apply_abbrev_def, Eok_def] THENL +[`tkind E (TE_idxvar n n0)` by SRW_TAC [] [Eok_def] THEN METIS_TAC [JTeq_rules], + METIS_TAC [JTeq_rules], + MATCH_MP_TAC ((SIMP_RULE (srw_ss()) [MAP_FST_ZIP, MAP_SND_ZIP, LENGTH_MAP] o + Q.SPEC `ZIP (ts, MAP (\a. apply_abbrev tpo tcn t' a) ts)`) + (List.nth (CONJUNCTS JTeq_rules, 5))) THEN + SRW_TAC [] [LENGTH_MAP, LENGTH_ZIP, ZIP_MAP, MAP_ZIP_SAME, EVERY_MAP], + FULL_SIMP_TAC (srw_ss()) [COND_EXPAND_EQ] THEN + IMP_RES_TAC lookup_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [COND_EXPAND_EQ, EBok_def, Eok_def] THEN + ONCE_REWRITE_TAC [JTeq_cases] THEN SRW_TAC [] [] THEN + NTAC 2 DISJ2_TAC THEN DISJ1_TAC THEN + Q.EXISTS_TAC `TE_constr (MAP (apply_abbrev tpo tcn t') ts) (TC_name tcn)` THEN + SRW_TAC [] [] THENL + [ONCE_REWRITE_TAC [JTeq_cases] THEN NTAC 6 DISJ2_TAC THEN SRW_TAC [] [] THEN + Q.EXISTS_TAC `ZIP (ts, MAP (apply_abbrev tpo tcn t') ts)` THEN + SRW_TAC [] [MAP_FST_ZIP, MAP_SND_ZIP, LENGTH_ZIP, ZIP_MAP, MAP_ZIP_SAME, EVERY_MAP, Eok_def], + ONCE_REWRITE_TAC [JTeq_cases] THEN NTAC 3 DISJ2_TAC THEN DISJ1_TAC THEN SRW_TAC [] [] THEN + Q.EXISTS_TAC `ZIP (MAP (apply_abbrev tpo tcn t') ts, MAP tp_to_tv tpo)` THEN + SRW_TAC [] [MAP_FST_ZIP, ZIP_MAP, LENGTH_ZIP, EVERY_MAP, lem1, MAP_MAP, tp_to_tv_thm, ETA_THM, + MAP_SND_ZIP] THENL + [METIS_TAC [lem2], + FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN SRW_TAC [] [] THEN METIS_TAC [teq_ok_thm]]], + MATCH_MP_TAC ((SIMP_RULE (srw_ss()) [MAP_FST_ZIP, MAP_SND_ZIP, LENGTH_MAP] o + Q.SPEC `ZIP (ts, MAP (\a. apply_abbrev tpo tcn t' a) ts)`) + (List.nth (CONJUNCTS JTeq_rules, 6))) THEN + SRW_TAC [] [LENGTH_MAP, LENGTH_ZIP, ZIP_MAP, MAP_ZIP_SAME, EVERY_MAP]]); + +end; + + +val not_abbrev_lem = Q.prove ( +`!E ts1 tc2 tcn tpo t E'. Eok E /\ ~is_abbrev_tc E (TE_constr ts1 tc2) /\ + (remove_abbrev E = (SOME (EB_ta (TPS_nary tpo) tcn t), E')) ==> + ~(tc2 = TC_name tcn)`, +Cases_on `tc2` THEN SRW_TAC [] [is_abbrev_tc_def] THEN Cases_on `lookup E (name_tcn t')` THEN +FULL_SIMP_TAC (srw_ss()) [] THEN1 METIS_TAC [remove_lookup_lem, NOT_SOME_NONE] THEN Cases_on `x` THEN +FULL_SIMP_TAC (srw_ss()) [] THEN IMP_RES_TAC remove_lookup_lem THEN CCONTR_TAC THEN +FULL_SIMP_TAC (srw_ss()) [] THEN METIS_TAC [environment_binding_distinct]); + + +val alg_eq_step_def = Define +`alg_eq_step E t1 t2 = + case t1 of + TE_var tv -> F + || TE_idxvar i1 i2 -> (t2 = TE_idxvar i1 i2) + || TE_any -> F + || TE_arrow t1' t2' -> (?t1'' t2''. (t2 = TE_arrow t1'' t2'') /\ JTeq E t1' t1'' /\ JTeq E t2' t2'') + || TE_tuple ts -> + (?ts'. (t2 = TE_tuple ts') /\ (LENGTH ts = LENGTH ts') /\ (LENGTH ts >= 2) /\ + EVERY (\(t, t'). JTeq E t t') (ZIP (ts, ts'))) + || TE_constr ts tc -> + (?ts'. (t2 = TE_constr ts' tc) /\ (LENGTH ts = LENGTH ts') /\ + (SOME (LENGTH ts) = typeconstr_kind E tc) /\ + EVERY (\(t, t'). JTeq E t t') (ZIP (ts, ts')))`; + +val apply_abbrev_weak_thm = Q.prove ( +`!E E' tpo tcn t1 t2. + tkind E t1 /\ tkind E t2 /\ + (remove_abbrev E = (SOME (EB_ta (TPS_nary tpo) tcn t), E')) /\ + JTeq E' (apply_abbrev tpo tcn t t1) (apply_abbrev tpo tcn t t2) ==> + JTeq E t1 t2`, +SRW_TAC [] [] THEN `Eok E` by METIS_TAC [ok_ok_thm] THEN +MAP_EVERY IMP_RES_TAC [remove_lookup_lem, abbrev_eq_thm, remove_abbrev_teq_weak_thm] THEN +METIS_TAC [JTeq_rules]); + + +local + +val tac = +Q.PAT_ASSUM `EVERY A B` MP_TAC THEN SRW_TAC [] [LENGTH_MAP, ZIP_MAP, EVERY_MAP] THEN +FULL_SIMP_TAC (srw_ss()) [EVERY_MEM, LAMBDA_PROD2] THEN +IMP_RES_TAC teq_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [Eok_def, EVERY_MEM] THEN +`!a. MEM a (ZIP (l, l')) ==> tkind E (FST a) /\ tkind E (SND a)` by + (SRW_TAC [] [MEM_ZIP] THEN SRW_TAC [] [] THEN METIS_TAC [MEM_EL]) THEN +METIS_TAC [apply_abbrev_weak_thm]; + +in + +val alg_eq_step_abbrev_lem = Q.prove ( +`!E t1 t2 E' tpo tcn t. JTeq E t1 t2 /\ JTeq E' (apply_abbrev tpo tcn t t1) (apply_abbrev tpo tcn t t2) /\ + (remove_abbrev E = (SOME (EB_ta (TPS_nary tpo) tcn t), E')) /\ + ~is_abbrev_tc E t1 /\ ~is_abbrev_tc E t2 /\ + alg_eq_step E' (apply_abbrev tpo tcn t t1) (apply_abbrev tpo tcn t t2) ==> + alg_eq_step E t1 t2`, +REWRITE_TAC [alg_eq_step_def] THEN Cases_on `t1` THEN SRW_TAC [] [apply_abbrev_def, COND_EXPAND_EQ] THEN +`Eok E` by METIS_TAC [teq_ok_thm, ok_ok_thm] THENL +[Cases_on `t2` THEN FULL_SIMP_TAC (srw_ss()) [apply_abbrev_def, COND_EXPAND_EQ] THEN + METIS_TAC [not_abbrev_lem], + Cases_on `t2` THEN FULL_SIMP_TAC (srw_ss()) [apply_abbrev_def, COND_EXPAND_EQ] THEN + IMP_RES_TAC teq_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [Eok_def] THEN + METIS_TAC [apply_abbrev_weak_thm, not_abbrev_lem], + Cases_on `t2` THEN FULL_SIMP_TAC (srw_ss()) [apply_abbrev_def, COND_EXPAND_EQ] THEN + SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [LENGTH_MAP] THENL + [tac, + METIS_TAC [not_abbrev_lem]], + Cases_on `t2` THEN FULL_SIMP_TAC (srw_ss()) [apply_abbrev_def, COND_EXPAND_EQ] THEN + SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [LENGTH_MAP] THEN + METIS_TAC [not_abbrev_lem], + Cases_on `t2` THEN FULL_SIMP_TAC (srw_ss()) [apply_abbrev_def, COND_EXPAND_EQ] THEN + SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [LENGTH_MAP] THENL + [METIS_TAC [not_abbrev_lem], + IMP_RES_TAC teq_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [Eok_def], + tac, + IMP_RES_TAC teq_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [Eok_def], + tac, + METIS_TAC [not_abbrev_lem], + IMP_RES_TAC teq_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [Eok_def], + tac, + IMP_RES_TAC teq_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [Eok_def], + tac]]); + +end; + +local + +val lem1 = Q.prove ( +`!E tcn tpo tcn' t. (num_abbrev E = 0) ==> ~(lookup E (name_tcn tcn) = SOME (EB_ta tpo tcn' t))`, +Induct THEN SRW_TAC [] [lookup_def] THEN Cases_on `h` THEN +FULL_SIMP_TAC (srw_ss ()) [num_abbrev_def, lookup_def, domEB_def, shiftEB_add_thm] THEN1 +(Cases_on `EB2` THEN FULL_SIMP_TAC (srw_ss ()) [num_abbrev_def, lookup_def, domEB_def, shiftEB_def]) +THEN METIS_TAC []); + +in + +val no_abbrev_thm = Q.prove ( +`!E t1 t2. JTeq E t1 t2 ==> (num_abbrev E = 0) ==> (t1 = t2)`, +RULE_INDUCT_TAC JTeq_ind [] +[([``"JTeq_expand"``], METIS_TAC [lem1]), + ([``"JTeq_tuple"``, ``"JTeq_constr"``], SRW_TAC [] [EVERY_MEM, MAP_EQ])]); + +end; + +local + +val lem1 = Q.prove ( +`!E tpo tcn t' E' n EB. Eok E /\ (remove_abbrev E = (SOME (EB_ta (TPS_nary tpo) tcn t'),E')) /\ + (lookup E' n = SOME EB) /\ (~?vn. (n = name_vn vn)) ==> (lookup E n = SOME EB)`, +recInduct (fetch "-" "remove_abbrev_ind") THEN +SRW_TAC [] [remove_abbrev_def, domEB_def, Eok_def, lookup_def] THEN +FULL_SIMP_TAC (srw_ss()) [Eok_def] THEN IMP_RES_TAC Eok_lem1 THEN +FULL_SIMP_TAC (srw_ss()) [LET_THM, LAMBDA_PROD2] THEN +IMP_RES_TAC ok_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [] THEN +FULL_SIMP_TAC (srw_ss()) [lookup_dom_thm, shiftEB_add_thm, lookup_def, domEB_def] THENL +[Cases_on `remove_abbrev E` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [], + Cases_on `remove_abbrev E` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [], + Cases_on `remove_abbrev E` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [] THEN + Cases_on `EB'` THEN FULL_SIMP_TAC (srw_ss()) [shiftEB_def] THEN SRW_TAC [] [] THEN + METIS_TAC [], + METIS_TAC [NOT_SOME_NONE, name_distinct], + Cases_on `tpo` THEN FULL_SIMP_TAC (srw_ss()) [Eok_def] THEN METIS_TAC [lookup_dom_thm, name_distinct], + Cases_on `tpo` THEN Cases_on `tl` THEN Cases_on `tc` THEN Cases_on `l` THEN + FULL_SIMP_TAC (srw_ss()) [Eok_def] THEN METIS_TAC [lookup_dom_thm, name_distinct], + Cases_on `tc` THEN FULL_SIMP_TAC (srw_ss()) [Eok_def] THEN METIS_TAC [lookup_dom_thm, name_distinct]]); + +in + +val remove_abbrev_is_abbrev_lem = Q.prove ( +`!E tpo tcn t E' t'. Eok E /\ + (remove_abbrev E = (SOME (EB_ta (TPS_nary tpo) tcn t), E')) /\ ~is_abbrev_tc E t' ==> + ~is_abbrev_tc E' (apply_abbrev tpo tcn t t')`, +Cases_on `t'` THEN SRW_TAC [] [is_abbrev_tc_def, apply_abbrev_def] THENL +[Cases_on `lookup E (name_tcn tcn)` THEN FULL_SIMP_TAC (srw_ss()) [] THEN1 + METIS_TAC [remove_lookup_lem, NOT_SOME_NONE] THEN Cases_on `x` THEN + FULL_SIMP_TAC (srw_ss()) [] THEN IMP_RES_TAC remove_lookup_lem THEN + FULL_SIMP_TAC (srw_ss()) [] THEN METIS_TAC [environment_binding_distinct], + Cases_on `t''` THEN FULL_SIMP_TAC (srw_ss()) [is_abbrev_tc_def] THEN + Cases_on `lookup E' (name_tcn t')` THEN FULL_SIMP_TAC (srw_ss()) [] THEN + Cases_on `x` THEN FULL_SIMP_TAC (srw_ss()) [] THEN + Cases_on `lookup E (name_tcn t'')` THEN FULL_SIMP_TAC (srw_ss()) [] THEN + IMP_RES_TAC lem1 THEN FULL_SIMP_TAC (srw_ss ()) [] THEN + Cases_on `x` THEN FULL_SIMP_TAC (srw_ss()) []]); +end; + +val alg_eq_step_complete_thm = Q.prove ( +`!E t1 t2. ~is_abbrev_tc E t1 /\ ~is_abbrev_tc E t2 /\ JTeq E t1 t2 ==> alg_eq_step E t1 t2`, +STRIP_TAC THEN Induct_on `num_abbrev E` THENL +[SRW_TAC [] [] THEN `t1 = t2` by METIS_TAC [no_abbrev_thm] THEN SRW_TAC [] [alg_eq_step_def] THEN + Cases_on `t1` THEN SRW_TAC [] [] THEN + IMP_RES_TAC teq_ok_thm THEN FULL_SIMP_TAC (srw_ss ()) [Eok_def, EVERY_ZIP_SAME] THEN + FULL_SIMP_TAC (srw_ss ()) [EVERY_MEM] THEN METIS_TAC [JTeq_rules], + SRW_TAC [] [] THEN STRIP_ASSUME_TAC (Q.SPEC `E` remove_abbrev_result_thm) THEN1 + (IMP_RES_TAC remove_abbrev_num_abbrev_thm2 THEN FULL_SIMP_TAC (srw_ss()) []) THEN + IMP_RES_TAC remove_abbrev_num_abbrev_thm THEN `v = num_abbrev E'` by DECIDE_TAC THEN + MATCH_MP_TAC alg_eq_step_abbrev_lem THEN Cases_on `tpo` THEN SRW_TAC [] [] THEN + IMP_RES_TAC remove_abbrev_is_abbrev_lem THEN METIS_TAC [apply_abbrev_str_thm, teq_ok_thm, ok_ok_thm]]); + +val teq_fun1 = Q.prove ( +`(!E t a. ~is_abbrev_tc E t ==> (JTeq E (TE_var a) t = F)) /\ +(!E t i1 i2. ~is_abbrev_tc E t ==> (JTeq E (TE_idxvar i1 i2) t = (t = TE_idxvar i1 i2) /\ tkind E t)) /\ +(!E t. ~is_abbrev_tc E t ==> (JTeq E TE_any t = F)) /\ +(!E t t1 t2. ~is_abbrev_tc E t ==> + (JTeq E (TE_arrow t1 t2) t = ?t1' t2'. (t = TE_arrow t1' t2') /\ JTeq E t1 t1' /\ JTeq E t2 t2')) /\ +(!E t ts. ~is_abbrev_tc E t ==> + (JTeq E (TE_tuple ts) t = + ?ts'. (t = TE_tuple ts') /\ (LENGTH ts = LENGTH ts') /\ (LENGTH ts >= 2) /\ + EVERY (\(t, t'). JTeq E t t') (ZIP (ts, ts')))) /\ +(!E t ts tc. ~is_abbrev_tc E t /\ ~is_abbrev_tc E (TE_constr ts tc) ==> + (JTeq E (TE_constr ts tc) t = + ?ts'. (t = TE_constr ts' tc) /\ (LENGTH ts = LENGTH ts') /\ + (SOME (LENGTH ts) = typeconstr_kind E tc) /\ + EVERY (\(t, t'). JTeq E t t') (ZIP (ts, ts'))))`, +SRW_TAC [] [] THENL +[CCONTR_TAC THEN FULL_SIMP_TAC (srw_ss()) [] THEN IMP_RES_TAC teq_ok_thm THEN + FULL_SIMP_TAC (srw_ss()) [Eok_def], + EQ_TAC THEN SRW_TAC [] [] THENL [ALL_TAC, METIS_TAC [teq_ok_thm], METIS_TAC [JTeq_rules]], + CCONTR_TAC THEN FULL_SIMP_TAC (srw_ss()) [] THEN IMP_RES_TAC teq_ok_thm THEN + FULL_SIMP_TAC (srw_ss()) [Eok_def], + EQ_TAC THEN SRW_TAC [] [] THENL [ALL_TAC, METIS_TAC [JTeq_rules]], + EQ_TAC THEN SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [LAMBDA_PROD2] THENL + [ALL_TAC, + IMP_RES_TAC JTeq_rules THEN METIS_TAC [MAP_FST_ZIP, MAP_SND_ZIP, LENGTH_ZIP, LENGTH_MAP]], + EQ_TAC THEN SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [LAMBDA_PROD2] THENL + [ALL_TAC, + IMP_RES_TAC JTeq_rules THEN METIS_TAC [MAP_FST_ZIP, MAP_SND_ZIP, LENGTH_ZIP, LENGTH_MAP]]] THEN +IMP_RES_TAC alg_eq_step_complete_thm THEN +FULL_SIMP_TAC (srw_ss()) [is_abbrev_tc_def, alg_eq_step_def, LAMBDA_PROD2]); + + +val _ = save_thm ("teq_fun1", teq_fun1); + +val teq_fun2 = Q.store_thm ("teq_fun2", +`(!E t a. ~is_abbrev_tc E t ==> (JTeq E t (TE_var a) = F)) /\ +(!E t i1 i2. ~is_abbrev_tc E t ==> (JTeq E t (TE_idxvar i1 i2) = (t = TE_idxvar i1 i2) /\ tkind E t)) /\ +(!E t. ~is_abbrev_tc E t ==> ((JTeq E t TE_any) = F)) /\ +(!E t t1 t2. ~is_abbrev_tc E t ==> + (JTeq E t (TE_arrow t1 t2) = ?t1' t2'. (t = TE_arrow t1' t2') /\ JTeq E t1 t1' /\ JTeq E t2 t2')) /\ +(!E t ts. ~is_abbrev_tc E t ==> + (JTeq E t (TE_tuple ts) = + ?ts'. (t = TE_tuple ts') /\ (LENGTH ts = LENGTH ts') /\ (LENGTH ts >= 2) /\ + EVERY (\(t, t'). JTeq E t t') (ZIP (ts, ts')))) /\ +(!E t ts tc. ~is_abbrev_tc E t /\ ~is_abbrev_tc E (TE_constr ts tc) ==> + (JTeq E t (TE_constr ts tc) = + ?ts'. (t = TE_constr ts' tc) /\ (LENGTH ts = LENGTH ts') /\ + (SOME (LENGTH ts) = typeconstr_kind E tc) /\ + EVERY (\(t, t'). JTeq E t t') (ZIP (ts, ts'))))`, +METIS_TAC [teq_fun1, List.nth (CONJUNCTS JTeq_rules, 1)]); + + +val _ = export_theory (); diff --git a/vendors/ott/examples/ocaml_light/hol/testing/Makefile b/vendors/ott/examples/ocaml_light/hol/testing/Makefile new file mode 100644 index 000000000000..3c074645614c --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/testing/Makefile @@ -0,0 +1,8 @@ +all: + ./process-tests.scm + hol < make_ml.sml + cp reduction_funML.BUGFIX.sml reduction_funML.sml + sml < run_tests.sml + +clean: + rm -f caml_typedefML.sig caml_typedefML.sml defs_red_funML.sig defs_red_funML.sml matching_funML.sig matching_funML.sml ottML.sig ottML.sml reduction_funML.sig reduction_funML.sml testsML.sig testsML.sml tests.sml run_tests.sml diff --git a/vendors/ott/examples/ocaml_light/hol/testing/README b/vendors/ott/examples/ocaml_light/hol/testing/README new file mode 100644 index 000000000000..360755cab281 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/testing/README @@ -0,0 +1,39 @@ +Run the tests with make. Requires that the proof and ocamlpp be built, and +also requires the following software. + 1) hol, + 2) PLT Scheme (tested with v371.3), and + 3) SML/NJ (tested with v110.65). +Modify the first line of process-tests.scm so that it points to the mzscheme +executable from your PLT Scheme distribution. + +The process-tests.scm traverses the file "tests" and calls the ocamlpp filter +program to build HOL ASTs in tests.sml. The make_ml.sml script uses HOL's SML +code extraction to convert the operational semantics and test case ASTs into +SML. The run_tests.sml script runs the test cases, taking advantage of +SML/NJ's coverage checking. + +Before running the tests, you must modify two files in your HOL distribution to +remove some Moscow ML specific features. + +HOLROOT/src/theoryML/numML.sig + Comment out the following lines: + + val ppBin : ppstream -> num -> unit + val ppOct : ppstream -> num -> unit + val ppDec : ppstream -> num -> unit + val ppHex : ppstream -> num -> unit + val pp_num : ppstream -> num -> unit + + +HOLROOT/src/theoryML/numML.sml + Comment out the following lines: + + fun ppBin ppstrm n = PP.add_string ppstrm (toBinString n); + fun ppOct ppstrm n = PP.add_string ppstrm (toOctString n); + fun ppDec ppstrm n = PP.add_string ppstrm (toDecString n); + fun ppHex ppstrm n = PP.add_string ppstrm (toHexString n); + +and + + val pp_num = ppHex; + diff --git a/vendors/ott/examples/ocaml_light/hol/testing/make_ml.sml b/vendors/ott/examples/ocaml_light/hol/testing/make_ml.sml new file mode 100644 index 000000000000..b27db8147a42 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/testing/make_ml.sml @@ -0,0 +1,453 @@ +(* Has the following bugs: +* Some uses of constructors as values must be eta-expanded by hand to +* curry them. +* There is a pattern that binds v63 twice. +* +* The real type for floats might be an equality type, which harms the pattern +* matcher. +* *) + + +load "wordsLib"; +load "ottTheory"; +load "ottLib"; +load "caml_typedefTheory"; +load "utilTheory"; +load "shiftTheory"; +load "basicTheory"; +load "defs_red_funTheory"; + +quietdec:=true; +open bossLib HolKernel boolLib listTheory rich_listTheory optionTheory combinTheory arithmeticTheory pairTheory; +open ottTheory ottLib caml_typedefTheory; +open utilTheory basicTheory reduction_funTheory matching_funTheory +open defs_red_funTheory; +quietdec:=false; + + +val list_to_defs_def = Define +`(list_to_defs [] = Ds_nil) /\ + (list_to_defs (x::y) = Ds_cons x (list_to_defs y))`; + +val _ = + let open EmitML combinSyntax + in emitML (".") + ("ott", + MLSIG "type num = numML.num" :: + MLSIG "type capitalized_ident = string" :: + MLSTRUCT "type capitalized_ident = string" :: + OPEN ["num", "list", "string"] :: + map DEFN [list_minus_def,list_assoc_def,clause_name_def,REMOVE_1_def, + PERM_EVAL]) + end; + +val _ = disable_tyabbrev_printing "labelled_arrow"; + +val _ = type_pp.pp_num_types := false; +val _ = type_pp.pp_array_types := false; + +val _ = + let open EmitML combinSyntax + in emitML (".") + ("caml_typedef", + MLSIG "type string = stringML.string" :: + MLSIG "type num = numML.num" :: + MLSIG "type index = num" :: + MLSIG "type ident = string" :: + MLSIG "type string_literal = string" :: + MLSIG "type infix_symbol = string" :: + MLSIG "type prefix_symbol = string" :: + MLSIG "type lowercase_ident = string" :: + MLSIG "type capitalized_ident = string" :: + MLSIG "type integer_literal = int" :: + MLSIG "type float_literal = unit" :: + MLSIG "type char_literal = char" :: + MLSIG "type location = num" :: + MLSIG "type idx = num" :: + MLSIG "type word31 = unit wordsML.bit1 wordsML.bit1 wordsML.bit1 wordsML.bit1 wordsML.word" :: + MLSIG "type intn = word31" :: + MLSIG "type kind = num" :: +(* + MLSIG "type names = name list" :: + MLSIG "type Tsigma = (typevar * typexpr) list" :: +*) + + MLSTRUCT "type string = stringML.string" :: + MLSTRUCT "type num = numML.num" :: + MLSTRUCT "type index = num" :: + MLSTRUCT "type ident = string" :: + MLSTRUCT "type string_literal = string" :: + MLSTRUCT "type infix_symbol = string" :: + MLSTRUCT "type prefix_symbol = string" :: + MLSTRUCT "type lowercase_ident = string" :: + MLSTRUCT "type capitalized_ident = string" :: + MLSTRUCT "type integer_literal = int" :: + MLSTRUCT "type float_literal = unit" :: + MLSTRUCT "type char_literal = char" :: + MLSTRUCT "type location = num" :: + MLSTRUCT "type idx = num" :: + MLSTRUCT "type word31 = unit wordsML.bit1 wordsML.bit1 wordsML.bit1 wordsML.bit1 wordsML.word" :: + MLSTRUCT "type intn = word31" :: + MLSTRUCT "type kind = num" :: + + OPEN ["num", "list", "string", "option"] :: + DATATYPE `typeconstr_name = TCN_id of lowercase_ident` :: + DATATYPE `typeconstr = + TC_name of typeconstr_name + | TC_int + | TC_char + | TC_string + | TC_float + | TC_bool + | TC_unit + | TC_exn + | TC_list + | TC_option + | TC_ref` :: + DATATYPE `typevar = TV_ident of ident` :: + DATATYPE `constr_name = CN_id of capitalized_ident` :: + DATATYPE `typexpr = + TE_var of typevar + | TE_idxvar of idx => idx + | TE_any + | TE_arrow of typexpr => typexpr + | TE_tuple of typexpr list + | TE_constr of typexpr list => typeconstr` :: + MLSIG "type Tsigma = (typevar * typexpr) list" :: + MLSTRUCT "type Tsigma = (typevar * typexpr) list" :: + DATATYPE `field_name = FN_id of lowercase_ident` :: + DATATYPE `infix_op = + IO_symbol of infix_symbol + | IO_star + | IO_equal + | IO_colonequal` :: + DATATYPE `constr_decl = + CD_nullary of constr_name + | CD_nary of constr_name => typexpr list` :: + DATATYPE `field_decl = FD_immutable of field_name => typexpr` :: + DATATYPE `operator_name = + ON_symbol of prefix_symbol + | ON_infix of infix_op` :: + DATATYPE `constr = + C_name of constr_name + | C_invalidargument + | C_notfound + | C_assertfailure + | C_matchfailure + | C_div_by_0 + | C_none + | C_some` :: + DATATYPE `type_equation = TE_te of typexpr` :: + DATATYPE `type_representation = + TR_variant of constr_decl list + | TR_record of field_decl list` :: + DATATYPE `type_param = TP_var of typevar` :: + DATATYPE `value_name = + VN_id of lowercase_ident + | VN_op of operator_name` :: + DATATYPE `field = F_name of field_name` :: + DATATYPE `constant = + CONST_int of intn + | CONST_float of float_literal + | CONST_char of char_literal + | CONST_string of string_literal + | CONST_constr of constr + | CONST_false + | CONST_true + | CONST_nil + | CONST_unit` :: + DATATYPE `type_information = + TI_eq of type_equation + | TI_def of type_representation` :: + DATATYPE `type_params_opt = TPS_nary of type_param list` :: + DATATYPE `pattern = + P_var of value_name + | P_any + | P_constant of constant + | P_alias of pattern => value_name + | P_typed of pattern => typexpr + | P_or of pattern => pattern + | P_construct of constr => pattern list + | P_construct_any of constr + | P_tuple of pattern list + | P_record of (field#pattern) list + | P_cons of pattern => pattern` :: + DATATYPE `unary_prim = + Uprim_raise + | Uprim_not + | Uprim_minus + | Uprim_ref + | Uprim_deref` :: + DATATYPE `binary_prim = + Bprim_equal + | Bprim_plus + | Bprim_minus + | Bprim_times + | Bprim_div + | Bprim_assign` :: + DATATYPE `for_dirn = + FD_upto + | FD_downto` :: + DATATYPE `typedef = + TD_td of type_params_opt => typeconstr_name => type_information` :: + + DATATYPE `letrec_binding = LRB_simple of value_name => pattern_matching; + letrec_bindings = LRBs_inj of letrec_binding list; + let_binding = LB_simple of pattern => expr; + pat_exp = PE_inj of pattern => expr; + pattern_matching = PM_pm of pat_exp list; + expr = + Expr_uprim of unary_prim + | Expr_bprim of binary_prim + | Expr_ident of value_name + | Expr_constant of constant + | Expr_typed of expr => typexpr + | Expr_tuple of expr list + | Expr_construct of constr => expr list + | Expr_cons of expr => expr + | Expr_record of (field#expr) list + | Expr_override of expr => (field#expr) list + | Expr_apply of expr => expr + | Expr_and of expr => expr + | Expr_or of expr => expr + | Expr_field of expr => field + | Expr_ifthenelse of expr => expr => expr + | Expr_while of expr => expr + | Expr_for of value_name => expr => for_dirn => expr => expr + | Expr_sequence of expr => expr + | Expr_match of expr => pattern_matching + | Expr_function of pattern_matching + | Expr_try of expr => pattern_matching + | Expr_let of let_binding => expr + | Expr_letrec of letrec_bindings => expr + | Expr_assert of expr + | Expr_location of location` :: + DATATYPE `type_definition = TDF_tdf of typedef list` :: + DATATYPE `exception_definition = ED_def of constr_decl` :: + DATATYPE `definition = + D_let of let_binding + | D_letrec of letrec_bindings + | D_type of type_definition + | D_exception of exception_definition` :: + DATATYPE `typescheme = TS_forall of typexpr` :: + DATATYPE `typexprs = typexprs_inj of typexpr list` :: + DATATYPE `trans_label = + Lab_nil + | Lab_alloc of expr => location + | Lab_deref of location => expr + | Lab_assign of location => expr` :: + DATATYPE `definitions = + Ds_nil + | Ds_cons of definition => definitions` :: + DATATYPE `name = + name_tv + | name_vn of value_name + | name_cn of constr_name + | name_tcn of typeconstr_name + | name_fn of field_name + | name_l of location` :: + DATATYPE `environment_binding = + EB_tv + | EB_vn of value_name => typescheme + | EB_cc of constr_name => typeconstr + | EB_pc of constr_name => type_params_opt => typexprs => typeconstr + | EB_fn of field_name => type_params_opt => typeconstr_name => typexpr + | EB_td of typeconstr_name => kind + | EB_tr of typeconstr_name => kind => field_name list + | EB_ta of type_params_opt => typeconstr_name => typexpr + | EB_l of location => typexpr` :: + + MLSIG "type environment = environment_binding list" :: + MLSTRUCT "type environment = environment_binding list" :: + DATATYPE `program = + Prog_defs of definitions + | Prog_raise of expr` :: + DATATYPE `substs_x = substs_x_xs of (value_name#expr) list` :: + DATATYPE `value_path = VP_name of value_name` :: + + MLSIG "type store = (location * expr) list" :: + MLSTRUCT "type store = (location * expr) list" :: + + map DEFN + [is_binary_prim_app_value_of_expr_def, + is_definition_value_of_definition_def, + caml_typedefTheory.is_value_of_expr_def, + is_non_expansive_of_expr_def, + is_src_typexpr_of_typexpr_def, + is_definitions_value_of_definitions_def, + is_trans_label_of_trans_label_def, + aux_constr_names_constr_decl_of_constr_decl_def, + aux_constr_names_type_representation_of_type_representation_def, + aux_constr_names_type_information_of_type_information_def, + aux_field_names_field_decl_of_field_decl_def, + aux_xs_pattern_of_pattern_def, + aux_xs_letrec_binding_of_letrec_binding_def, + aux_constr_names_typedef_of_typedef_def, + aux_field_names_type_representation_of_type_representation_def, + aux_type_names_typedef_of_typedef_def, + aux_typevars_type_param_of_type_param_def, + aux_xs_let_binding_of_let_binding_def, + aux_xs_letrec_bindings_of_letrec_bindings_def, + aux_constr_names_type_definition_of_type_definition_def, + aux_field_names_type_information_of_type_information_def, + aux_type_names_type_definition_of_type_definition_def, + aux_typevars_type_params_opt_of_type_params_opt_def, + aux_xs_definition_of_definition_def, + ftv_typexpr_def, + ftv_constr_decl_def, + ftv_field_decl_def, + ftv_type_equation_def, + ftv_type_representation_def, + ftv_type_information_def, + ftv_pattern_def, + ftv_typedef_def, + ftv_letrec_binding_def, + ftv_type_definition_def, + ftv_exception_definition_def, + fv_letrec_binding_def, + fl_letrec_binding_def, + ftv_definition_def, + fv_definition_def, + fl_definition_def, + ftv_definitions_def, + ftv_typescheme_def, + ftv_typexprs_def, + fv_definitions_def, + fl_definitions_def, + ftv_substs_x_def, + ftv_program_def, + ftv_environment_binding_def, + ftv_trans_label_def, + fv_substs_x_def, + fv_program_def, + fv_trans_label_def, +fl_substs_x_def, +fl_program_def, +fl_trans_label_def, +substs_typevar_typexpr_def, +substs_typevar_constr_decl_def, +substs_typevar_field_decl_def, +substs_typevar_type_equation_def, +substs_typevar_type_representation_def, +substs_typevar_type_information_def, +substs_typevar_pattern_def, +substs_typevar_typedef_def, +substs_typevar_letrec_binding_def, +substs_typevar_type_definition_def, +substs_typevar_exception_definition_def, +substs_value_name_letrec_binding_def, +subst_value_name_letrec_binding_def, +substs_typevar_definition_def, +substs_value_name_definition_def, +subst_value_name_definition_def, +substs_typevar_definitions_def, +substs_typevar_typescheme_def, +substs_typevar_typexprs_def, +substs_value_name_definitions_def, +subst_value_name_definitions_def, +substs_typevar_program_def, +substs_typevar_environment_binding_def, +substs_typevar_trans_label_def, +substs_value_name_substs_x_def, +substs_value_name_program_def, +substs_value_name_trans_label_def, +subst_value_name_substs_x_def, +subst_value_name_program_def, +subst_value_name_trans_label_def, +substs_typevar_substs_x_def, +shiftt_def, +shifttes_def, +shiftts_def, +shiftEB_def, +num_tv_def, +shiftE_def, +shiftTsig_def, +definitions_snoc_def, +remv_tyvar_typexpr_def, +remv_tyvar_pattern_def, +remv_tyvar_letrec_binding_def, +basicTheory.field_to_fn_def, +basicTheory.funval_def, +basicTheory.recfun_def, +basicTheory.lrbs_to_lrblist_def, +list_to_defs_def]) +end; + +val sigs = +["type expr = caml_typedefML.expr;", + "type kind = caml_typedefML.kind;", + "type unary_prim = caml_typedefML.unary_prim;", + "type binary_prim = caml_typedefML.binary_prim;", + "type word31 = caml_typedefML.word31;", + "type intn = caml_typedefML.intn;", + "type constant = caml_typedefML.constant;", + "type field = caml_typedefML.field;", + "type value_name = caml_typedefML.value_name;", + "type for_dirn = caml_typedefML.for_dirn;", + "type pattern_matching = caml_typedefML.pattern_matching;", + "type pattern = caml_typedefML.pattern;", + "type letrec_bindings = caml_typedefML.letrec_bindings;", + "type definitions = caml_typedefML.definitions;", + "type program = caml_typedefML.program;", + "type store = caml_typedefML.store;"]; + +val _ = + let open EmitML combinSyntax + in emitML (".") + ("matching_fun", + map MLSIG sigs @ + OPEN ["num", "list", "string", "option", "caml_typedef"] :: + map DEFN [pat_match_def]) + end; + +val _ = + let open EmitML combinSyntax + in emitML (".") + ("reduction_fun", + map MLSIG sigs @ + OPEN ["num", "list", "string", "option", "caml_typedef"] :: + DATATYPE `result = Stuck + | Step of 'a + | StepAlloc of (expr -> 'a) => expr + | StepLookup of (expr -> 'a) => location + | StepAssign of 'a => location => expr` :: + map (DEFN o wordsLib.WORDS_EMIT_RULE) + [is_raise_def, + result_map_def, + eval_uprim_def, + b_int_primop_def, + is_const_constr_def, + non_funval_equal_def, + eval_bprim_def, + do_1override_def, + eval_override_def, + eval_apply_def, + eval_field_def, + eval_ite_def, + eval_while_def, + eval_for_def, + eval_match_def, + eval_try_def, + eval_let_def, + eval_letrec_def, + eval_assert_def, + red_def]) + end; + +val _ = + let open EmitML combinSyntax + in emitML (".") + ("defs_red_fun", + map MLSIG sigs @ + MLSIG "type 'a result = 'a reduction_funML.result;" :: + OPEN ["num", "list", "string", "option", "caml_typedef", "reduction_fun"] :: + map DEFN [defns_red_def, + store_assign_def, + top_red_def, + max_alloc_def]) + end; + + +use "tests.sml"; + + diff --git a/vendors/ott/examples/ocaml_light/hol/testing/process-tests.scm b/vendors/ott/examples/ocaml_light/hol/testing/process-tests.scm new file mode 100755 index 000000000000..dcdf4889dedc --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/testing/process-tests.scm @@ -0,0 +1,184 @@ +#!/home/so294/scratch/plt/bin/mzscheme -qr + +(require (lib "process.ss") + (lib "plt-match.ss") + (lib "port.ss")) + +(define infile "tests") +(define outfile "tests.sml") +(define filter "../ocamlpp/filter") +(define run-tests "run_tests.sml") + +(define ip (open-input-file infile)) +(define op (open-output-file outfile #:exists 'replace)) + +(fprintf op #< true + | _ => false; + +fun eval prog = + let fun loop (store, (defs, Prog_raise r)) = Prog_raise r + | loop (store, (defs, Prog_defs Ds_nil)) = Prog_defs Ds_nil + | loop (state as (store, (defs, Prog_defs ds))) = + (case top_red max_alloc state of + NONE => Prog_defs ds + | SOME state2 => loop state2) + in + loop ([], (Ds_nil, prog)) + end; +end; + +Control.Print.printDepth := 100; + +end-string + ) +(let loop ([idx test-indices]) + (unless (null? idx) + (let ([i (caar idx)] + [type (cdar idx)]) + (case type + [(expr) + (fprintf op "val answer~a = eval testsML.test~a = testsML.result~a;\n" i i i)] + [(stuck) + (fprintf op "val answer~a = is_stuck_expr testsML.test~a;\n" i i)]) + (loop (cdr idx))))) + +(fprintf op #< reduction_funML = +struct + nonfix red_list red_2 red_1 red eval_assert eval_letrec eval_let + eval_try eval_match eval_for eval_while eval_ite eval_field + eval_apply eval_override do_1override eval_bprim + non_funval_equal is_const_constr b_int_primop eval_uprim + result_map is_raise result_size StepAssign StepLookup StepAlloc + Step Stuck * / div mod + - ^ @ <> > < >= <= := o before; + + open numML listML stringML optionML caml_typedefML; + datatype 'a result + = Stuck + | Step of 'a + | StepAlloc of (expr -> 'a) * expr + | StepLookup of (expr -> 'a) * kind + | StepAssign of 'a * kind * expr + fun result_size f Stuck = ZERO + | result_size f (Step(a)) = + ONE (f a) + | result_size f (StepAlloc(a0,a1)) = + ONE (expr_size a1) + | result_size f (StepLookup(a0,a1)) = + ONE a1 + | result_size f (StepAssign(a0,a1,a2)) = + + ONE (+ (f a0) (+ a1 (expr_size a2))) + + fun is_raise (Expr_apply(expr1,expr2)) = + (expr1 = Expr_uprim(Uprim_raise)) andalso is_value_of_expr expr2 + | is_raise (Expr_location(v44)) = false + | is_raise (Expr_assert(v43)) = false + | is_raise (Expr_letrec(v41,v42)) = false + | is_raise (Expr_let(v39,v40)) = false + | is_raise (Expr_try(v37,v38)) = false + | is_raise (Expr_function(v36)) = false + | is_raise (Expr_match(v34,v35)) = false + | is_raise (Expr_sequence(v32,v33)) = false + | is_raise (Expr_for(v27,v28,v29,v30,v31)) = false + | is_raise (Expr_while(v25,v26)) = false + | is_raise (Expr_ifthenelse(v22,v23,v24)) = false + | is_raise (Expr_field(v20,v21)) = false + | is_raise (Expr_or(v18,v19)) = false + | is_raise (Expr_and(v16,v17)) = false + | is_raise (Expr_override(v12,v13)) = false + | is_raise (Expr_record(v11)) = false + | is_raise (Expr_cons(v9,v10)) = false + | is_raise (Expr_construct(v7,v8)) = false + | is_raise (Expr_tuple(v6)) = false + | is_raise (Expr_typed(v4,v5)) = false + | is_raise (Expr_constant(v3)) = false + | is_raise (Expr_ident(v2)) = false + | is_raise (Expr_bprim(v1)) = false + | is_raise (Expr_uprim(v)) = false + + fun result_map f Stuck = Stuck + | result_map f (Step(expr)) = Step(f expr) + | result_map f (StepAlloc(get_result,alloc_expr)) = + StepAlloc(fn l => f (get_result l),alloc_expr) + | result_map f (StepLookup(get_result,lookup_lab)) = + StepLookup(fn e => f (get_result e),lookup_lab) + | result_map f (StepAssign(result_expr,assign_lab,assign_expr)) = + StepAssign(f result_expr,assign_lab,assign_expr) + + fun eval_uprim Uprim_not v = + (if v = Expr_constant(CONST_true) + then Step(Expr_constant(CONST_false)) + else if v = Expr_constant(CONST_false) + then Step(Expr_constant(CONST_true)) else Stuck) + | eval_uprim Uprim_minus v = + (case v + of Expr_uprim(v45) => Stuck + | Expr_bprim(v46) => Stuck + | Expr_ident(v47) => Stuck + | Expr_constant(CONST_int(n)) => + Step(Expr_constant(CONST_int(wordsML.word_sub + (wordsML.n2w_itself + (ZERO,(fcpML.ITSELF (numML.fromDecString"31")))) + n))) + | Expr_constant(CONST_float(v96)) => Stuck + | Expr_constant(CONST_char(v97)) => Stuck + | Expr_constant(CONST_string(v98)) => Stuck + | Expr_constant(CONST_constr(v99)) => Stuck + | Expr_constant(CONST_false) => Stuck + | Expr_constant(CONST_true) => Stuck + | Expr_constant(CONST_nil) => Stuck + | Expr_constant(CONST_unit) => Stuck + | Expr_typed(v49,v50) => Stuck + | Expr_tuple(v51) => Stuck + | Expr_construct(v52,v53) => Stuck + | Expr_cons(v54,v55) => Stuck + | Expr_record(v56) => Stuck + | Expr_override(v57,v58) => Stuck + | Expr_apply(v59,v60) => Stuck + | Expr_and(v61,v62) => Stuck + | Expr_or(v63,v64) => Stuck + | Expr_field(v65,v66) => Stuck + | Expr_ifthenelse(v67,v68,v69) => Stuck + | Expr_while(v70,v71) => Stuck + | Expr_for(v72,v73,v74,v75,v76) => Stuck + | Expr_sequence(v77,v78) => Stuck + | Expr_match(v79,v80) => Stuck + | Expr_function(v81) => Stuck + | Expr_try(v82,v83) => Stuck + | Expr_let(v84,v85) => Stuck + | Expr_letrec(v86,v87) => Stuck + | Expr_assert(v88) => Stuck + | Expr_location(v89) => Stuck) + | eval_uprim Uprim_ref v = StepAlloc(fn e => e,v) + | eval_uprim Uprim_deref v = + (case v + of Expr_uprim(v45) => Stuck + | Expr_bprim(v46) => Stuck + | Expr_ident(v47) => Stuck + | Expr_constant(v48) => Stuck + | Expr_typed(v49,v50) => Stuck + | Expr_tuple(v51) => Stuck + | Expr_construct(v52,v53) => Stuck + | Expr_cons(v54,v55) => Stuck + | Expr_record(v56) => Stuck + | Expr_override(v57,v58) => Stuck + | Expr_apply(v59,v60) => Stuck + | Expr_and(v61,v62) => Stuck + | Expr_or(v63,v64) => Stuck + | Expr_field(v65,v66) => Stuck + | Expr_ifthenelse(v67,v68,v69) => Stuck + | Expr_while(v70,v71) => Stuck + | Expr_for(v72,v73,v74,v75,v76) => Stuck + | Expr_sequence(v77,v78) => Stuck + | Expr_match(v79,v80) => Stuck + | Expr_function(v81) => Stuck + | Expr_try(v82,v83) => Stuck + | Expr_let(v84,v85) => Stuck + | Expr_letrec(v86,v87) => Stuck + | Expr_assert(v88) => Stuck + | Expr_location(l) => StepLookup(fn e => e,l)) + | eval_uprim Uprim_raise v = Stuck + + fun b_int_primop oper v1 v2 = + case v1 + of Expr_uprim(v46) => Stuck + | Expr_bprim(v47) => Stuck + | Expr_ident(v48) => Stuck + | Expr_constant(CONST_int(n1)) => + (case v2 + of Expr_uprim(v45) => Stuck + | Expr_bprim(v46) => Stuck + | Expr_ident(v47) => Stuck + | Expr_constant(CONST_int(n2)) => + Step(Expr_constant(CONST_int(oper n1 n2))) + | Expr_constant(CONST_float(v96)) => Stuck + | Expr_constant(CONST_char(v97)) => Stuck + | Expr_constant(CONST_string(v98)) => Stuck + | Expr_constant(CONST_constr(v99)) => Stuck + | Expr_constant(CONST_false) => Stuck + | Expr_constant(CONST_true) => Stuck + | Expr_constant(CONST_nil) => Stuck + | Expr_constant(CONST_unit) => Stuck + | Expr_typed(v49,v50) => Stuck + | Expr_tuple(v51) => Stuck + | Expr_construct(v52,v53) => Stuck + | Expr_cons(v54,v55) => Stuck + | Expr_record(v56) => Stuck + | Expr_override(v57,v58) => Stuck + | Expr_apply(v59,v60) => Stuck + | Expr_and(v61,v62) => Stuck + | Expr_or(v63,v64) => Stuck + | Expr_field(v65,v66) => Stuck + | Expr_ifthenelse(v67,v68,v69) => Stuck + | Expr_while(v70,v71) => Stuck + | Expr_for(v72,v73,v74,v75,v76) => Stuck + | Expr_sequence(v77,v78) => Stuck + | Expr_match(v79,v80) => Stuck + | Expr_function(v81) => Stuck + | Expr_try(v82,v83) => Stuck + | Expr_let(v84,v85) => Stuck + | Expr_letrec(v86,v87) => Stuck + | Expr_assert(v88) => Stuck + | Expr_location(v89) => Stuck) + | Expr_constant(CONST_float(v97)) => Stuck + | Expr_constant(CONST_char(v98)) => Stuck + | Expr_constant(CONST_string(v99)) => Stuck + | Expr_constant(CONST_constr(v100)) => Stuck + | Expr_constant(CONST_false) => Stuck + | Expr_constant(CONST_true) => Stuck + | Expr_constant(CONST_nil) => Stuck + | Expr_constant(CONST_unit) => Stuck + | Expr_typed(v50,v51) => Stuck + | Expr_tuple(v52) => Stuck + | Expr_construct(v53,v54) => Stuck + | Expr_cons(v55,v56) => Stuck + | Expr_record(v57) => Stuck + | Expr_override(v58,v59) => Stuck + | Expr_apply(v60,v61) => Stuck + | Expr_and(v62,v63) => Stuck + | Expr_or(v64,v65) => Stuck + | Expr_field(v66,v67) => Stuck + | Expr_ifthenelse(v68,v69,v70) => Stuck + | Expr_while(v71,v72) => Stuck + | Expr_for(v73,v74,v75,v76,v77) => Stuck + | Expr_sequence(v78,v79) => Stuck + | Expr_match(v80,v81) => Stuck + | Expr_function(v82) => Stuck + | Expr_try(v83,v84) => Stuck + | Expr_let(v85,v86) => Stuck + | Expr_letrec(v87,v88) => Stuck + | Expr_assert(v89) => Stuck + | Expr_location(v90) => Stuck + + fun is_const_constr (CONST_constr(v0)) = true + | is_const_constr CONST_unit = false + | is_const_constr CONST_nil = false + | is_const_constr CONST_true = false + | is_const_constr CONST_false = false + | is_const_constr (CONST_string(v4)) = false + | is_const_constr (CONST_char(v3)) = false + | is_const_constr (CONST_float(v2)) = false + | is_const_constr (CONST_int(v)) = false + + fun non_funval_equal (Expr_constant(c)) (Expr_constant(c')) = + (if c = c' then Step(Expr_constant(CONST_true)) + else Step(Expr_constant(CONST_false))) + | non_funval_equal (Expr_location(l)) (Expr_location(l')) = + Step(Expr_apply(Expr_apply(Expr_bprim(Bprim_equal), + Expr_apply(Expr_uprim(Uprim_deref), + Expr_location(l))), + Expr_apply(Expr_uprim(Uprim_deref),Expr_location(l')))) + | non_funval_equal (Expr_cons(v1,v2)) (Expr_cons(v1',v2')) = + Step(Expr_and(Expr_apply(Expr_apply(Expr_bprim(Bprim_equal),v1), + v1'), + Expr_apply(Expr_apply(Expr_bprim(Bprim_equal),v2),v2'))) + | non_funval_equal (Expr_cons(v1,v2)) (Expr_constant(const)) = + (if const = CONST_nil then Step(Expr_constant(CONST_false)) + else Stuck) + | non_funval_equal (Expr_constant(const)) (Expr_cons(v1',v2')) = + (if const = CONST_nil then Step(Expr_constant(CONST_false)) + else Stuck) + | non_funval_equal (Expr_tuple(vs)) (Expr_tuple(vs')) = + (if not (>= (LENGTH vs) TWO) orelse not (LENGTH vs = LENGTH vs') + then Stuck + else Step(FOLDR (fn x => fn y => Expr_and (x,y)) (Expr_constant(CONST_true)) + (MAP2 (fn v => fn v' => + Expr_apply(Expr_apply(Expr_bprim(Bprim_equal), + v), + v')) vs vs'))) + | non_funval_equal (Expr_construct(ctor,vs)) + (Expr_construct(ctor',vs')) = + (if not (ctor = ctor') then Step(Expr_constant(CONST_false)) + else if not (LENGTH vs = LENGTH vs') then Stuck + else Step(FOLDR (fn x => fn y => Expr_and (x,y)) (Expr_constant(CONST_true)) + (MAP2 (fn v => fn v' => + Expr_apply(Expr_apply(Expr_bprim(Bprim_equal), + v), + v')) vs vs'))) + | non_funval_equal (Expr_construct(ctor,vs)) (Expr_constant(const)) + = + (if is_const_constr const then Step(Expr_constant(CONST_false)) + else Stuck) + | non_funval_equal (Expr_constant(const)) + (Expr_construct(ctor',vs')) = + (if is_const_constr const then Step(Expr_constant(CONST_false)) + else Stuck) + | non_funval_equal (Expr_record(field_exprs)) + (Expr_record(field_exprs')) = + (if not + (ottML.PERM + (MAP (fn x => field_to_fn (pairML.FST x)) field_exprs) + (MAP (fn x => field_to_fn (pairML.FST x)) + field_exprs')) then Stuck + else Step(FOLDR (fn x => fn y => Expr_and (x,y)) (Expr_constant(CONST_true)) + (MAP (fn (field,v) => + Expr_apply(Expr_apply(Expr_bprim(Bprim_equal), + v), + Expr_field(Expr_record(field_exprs'),field))) + field_exprs))) + | non_funval_equal (Expr_location(v49)) (Expr_assert(v588)) = Stuck + | non_funval_equal (Expr_location(v49)) (Expr_letrec(v586,v587)) = + Stuck + | non_funval_equal (Expr_location(v49)) (Expr_let(v584,v585)) = + Stuck + | non_funval_equal (Expr_location(v49)) (Expr_try(v582,v583)) = + Stuck + | non_funval_equal (Expr_location(v49)) (Expr_function(v581)) = + Stuck + | non_funval_equal (Expr_location(v49)) (Expr_match(v579,v580)) = + Stuck + | non_funval_equal (Expr_location(v49)) (Expr_sequence(v577,v578)) = + Stuck + | non_funval_equal (Expr_location(v49)) + (Expr_for(v572,v573,v574,v575,v576)) = Stuck + | non_funval_equal (Expr_location(v49)) (Expr_while(v570,v571)) = + Stuck + | non_funval_equal (Expr_location(v49)) + (Expr_ifthenelse(v567,v568,v569)) = Stuck + | non_funval_equal (Expr_location(v49)) (Expr_field(v565,v566)) = + Stuck + | non_funval_equal (Expr_location(v49)) (Expr_or(v563,v564)) = Stuck + | non_funval_equal (Expr_location(v49)) (Expr_and(v561,v562)) = + Stuck + | non_funval_equal (Expr_location(v49)) (Expr_apply(v559,v560)) = + Stuck + | non_funval_equal (Expr_location(v49)) (Expr_override(v557,v558)) = + Stuck + | non_funval_equal (Expr_location(v49)) (Expr_record(v556)) = Stuck + | non_funval_equal (Expr_location(v49)) (Expr_cons(v554,v555)) = + Stuck + | non_funval_equal (Expr_location(v49)) (Expr_construct(v552,v553)) + = Stuck + | non_funval_equal (Expr_location(v49)) (Expr_tuple(v551)) = Stuck + | non_funval_equal (Expr_location(v49)) (Expr_typed(v549,v550)) = + Stuck + | non_funval_equal (Expr_location(v49)) (Expr_constant(v548)) = + Stuck + | non_funval_equal (Expr_location(v49)) (Expr_ident(v547)) = Stuck + | non_funval_equal (Expr_location(v49)) (Expr_bprim(v546)) = Stuck + | non_funval_equal (Expr_location(v49)) (Expr_uprim(v545)) = Stuck + | non_funval_equal (Expr_assert(v48)) v3 = Stuck + | non_funval_equal (Expr_letrec(v46,v47)) v3 = Stuck + | non_funval_equal (Expr_let(v44,v45)) v3 = Stuck + | non_funval_equal (Expr_try(v42,v43)) v3 = Stuck + | non_funval_equal (Expr_function(v41)) v3 = Stuck + | non_funval_equal (Expr_match(v39,v40)) v3 = Stuck + | non_funval_equal (Expr_sequence(v37,v38)) v3 = Stuck + | non_funval_equal (Expr_for(v32,v33,v34,v35,v36)) v3 = Stuck + | non_funval_equal (Expr_while(v30,v31)) v3 = Stuck + | non_funval_equal (Expr_ifthenelse(v27,v28,v29)) v3 = Stuck + | non_funval_equal (Expr_field(v25,v26)) v3 = Stuck + | non_funval_equal (Expr_or(v23,v24)) v3 = Stuck + | non_funval_equal (Expr_and(v21,v22)) v3 = Stuck + | non_funval_equal (Expr_apply(v19,v20)) v3 = Stuck + | non_funval_equal (Expr_override(v17,v18)) v3 = Stuck + | non_funval_equal (Expr_record(v16)) (Expr_location(v499)) = Stuck + | non_funval_equal (Expr_record(v16)) (Expr_assert(v498)) = Stuck + | non_funval_equal (Expr_record(v16)) (Expr_letrec(v496,v497)) = + Stuck + | non_funval_equal (Expr_record(v16)) (Expr_let(v494,v495)) = Stuck + | non_funval_equal (Expr_record(v16)) (Expr_try(v492,v493)) = Stuck + | non_funval_equal (Expr_record(v16)) (Expr_function(v491)) = Stuck + | non_funval_equal (Expr_record(v16)) (Expr_match(v489,v490)) = + Stuck + | non_funval_equal (Expr_record(v16)) (Expr_sequence(v487,v488)) = + Stuck + | non_funval_equal (Expr_record(v16)) + (Expr_for(v482,v483,v484,v485,v486)) = Stuck + | non_funval_equal (Expr_record(v16)) (Expr_while(v480,v481)) = + Stuck + | non_funval_equal (Expr_record(v16)) + (Expr_ifthenelse(v477,v478,v479)) = Stuck + | non_funval_equal (Expr_record(v16)) (Expr_field(v475,v476)) = + Stuck + | non_funval_equal (Expr_record(v16)) (Expr_or(v473,v474)) = Stuck + | non_funval_equal (Expr_record(v16)) (Expr_and(v471,v472)) = Stuck + | non_funval_equal (Expr_record(v16)) (Expr_apply(v469,v470)) = + Stuck + | non_funval_equal (Expr_record(v16)) (Expr_override(v467,v468)) = + Stuck + | non_funval_equal (Expr_record(v16)) (Expr_cons(v464,v465)) = Stuck + | non_funval_equal (Expr_record(v16)) (Expr_construct(v462,v463)) = + Stuck + | non_funval_equal (Expr_record(v16)) (Expr_tuple(v461)) = Stuck + | non_funval_equal (Expr_record(v16)) (Expr_typed(v459,v460)) = + Stuck + | non_funval_equal (Expr_record(v16)) (Expr_constant(v458)) = Stuck + | non_funval_equal (Expr_record(v16)) (Expr_ident(v457)) = Stuck + | non_funval_equal (Expr_record(v16)) (Expr_bprim(v456)) = Stuck + | non_funval_equal (Expr_record(v16)) (Expr_uprim(v455)) = Stuck + | non_funval_equal (Expr_cons(v14,v15)) (Expr_location(v409)) = + Stuck + | non_funval_equal (Expr_cons(v14,v15)) (Expr_assert(v408)) = Stuck + | non_funval_equal (Expr_cons(v14,v15)) (Expr_letrec(v406,v407)) = + Stuck + | non_funval_equal (Expr_cons(v14,v15)) (Expr_let(v404,v405)) = + Stuck + | non_funval_equal (Expr_cons(v14,v15)) (Expr_try(v402,v403)) = + Stuck + | non_funval_equal (Expr_cons(v14,v15)) (Expr_function(v401)) = + Stuck + | non_funval_equal (Expr_cons(v14,v15)) (Expr_match(v399,v400)) = + Stuck + | non_funval_equal (Expr_cons(v14,v15)) (Expr_sequence(v397,v398)) = + Stuck + | non_funval_equal (Expr_cons(v14,v15)) + (Expr_for(v392,v393,v394,v395,v396)) = Stuck + | non_funval_equal (Expr_cons(v14,v15)) (Expr_while(v390,v391)) = + Stuck + | non_funval_equal (Expr_cons(v14,v15)) + (Expr_ifthenelse(v387,v388,v389)) = Stuck + | non_funval_equal (Expr_cons(v14,v15)) (Expr_field(v385,v386)) = + Stuck + | non_funval_equal (Expr_cons(v14,v15)) (Expr_or(v383,v384)) = Stuck + | non_funval_equal (Expr_cons(v14,v15)) (Expr_and(v381,v382)) = + Stuck + | non_funval_equal (Expr_cons(v14,v15)) (Expr_apply(v379,v380)) = + Stuck + | non_funval_equal (Expr_cons(v14,v15)) (Expr_override(v377,v378)) = + Stuck + | non_funval_equal (Expr_cons(v14,v15)) (Expr_record(v376)) = Stuck + | non_funval_equal (Expr_cons(v14,v15)) (Expr_construct(v372,v373)) + = Stuck + | non_funval_equal (Expr_cons(v14,v15)) (Expr_tuple(v371)) = Stuck + | non_funval_equal (Expr_cons(v14,v15)) (Expr_typed(v369,v370)) = + Stuck + | non_funval_equal (Expr_cons(v14,v15)) (Expr_ident(v367)) = Stuck + | non_funval_equal (Expr_cons(v14,v15)) (Expr_bprim(v366)) = Stuck + | non_funval_equal (Expr_cons(v14,v15)) (Expr_uprim(v365)) = Stuck + | non_funval_equal (Expr_construct(v12,v13)) (Expr_location(v319)) = + Stuck + | non_funval_equal (Expr_construct(v12,v13)) (Expr_assert(v318)) = + Stuck + | non_funval_equal (Expr_construct(v12,v13)) + (Expr_letrec(v316,v317)) = Stuck + | non_funval_equal (Expr_construct(v12,v13)) (Expr_let(v314,v315)) = + Stuck + | non_funval_equal (Expr_construct(v12,v13)) (Expr_try(v312,v313)) = + Stuck + | non_funval_equal (Expr_construct(v12,v13)) (Expr_function(v311)) = + Stuck + | non_funval_equal (Expr_construct(v12,v13)) (Expr_match(v309,v310)) + = Stuck + | non_funval_equal (Expr_construct(v12,v13)) + (Expr_sequence(v307,v308)) = Stuck + | non_funval_equal (Expr_construct(v12,v13)) + (Expr_for(v302,v303,v304,v305,v306)) = Stuck + | non_funval_equal (Expr_construct(v12,v13)) (Expr_while(v300,v301)) + = Stuck + | non_funval_equal (Expr_construct(v12,v13)) + (Expr_ifthenelse(v297,v298,v299)) = Stuck + | non_funval_equal (Expr_construct(v12,v13)) (Expr_field(v295,v296)) + = Stuck + | non_funval_equal (Expr_construct(v12,v13)) (Expr_or(v293,v294)) = + Stuck + | non_funval_equal (Expr_construct(v12,v13)) (Expr_and(v291,v292)) = + Stuck + | non_funval_equal (Expr_construct(v12,v13)) (Expr_apply(v289,v290)) + = Stuck + | non_funval_equal (Expr_construct(v12,v13)) + (Expr_override(v287,v288)) = Stuck + | non_funval_equal (Expr_construct(v12,v13)) (Expr_record(v286)) = + Stuck + | non_funval_equal (Expr_construct(v12,v13)) (Expr_cons(v284,v285)) + = Stuck + | non_funval_equal (Expr_construct(v12,v13)) (Expr_tuple(v281)) = + Stuck + | non_funval_equal (Expr_construct(v12,v13)) (Expr_typed(v279,v280)) + = Stuck + | non_funval_equal (Expr_construct(v12,v13)) (Expr_ident(v277)) = + Stuck + | non_funval_equal (Expr_construct(v12,v13)) (Expr_bprim(v276)) = + Stuck + | non_funval_equal (Expr_construct(v12,v13)) (Expr_uprim(v275)) = + Stuck + | non_funval_equal (Expr_tuple(v11)) (Expr_location(v229)) = Stuck + | non_funval_equal (Expr_tuple(v11)) (Expr_assert(v228)) = Stuck + | non_funval_equal (Expr_tuple(v11)) (Expr_letrec(v226,v227)) = + Stuck + | non_funval_equal (Expr_tuple(v11)) (Expr_let(v224,v225)) = Stuck + | non_funval_equal (Expr_tuple(v11)) (Expr_try(v222,v223)) = Stuck + | non_funval_equal (Expr_tuple(v11)) (Expr_function(v221)) = Stuck + | non_funval_equal (Expr_tuple(v11)) (Expr_match(v219,v220)) = Stuck + | non_funval_equal (Expr_tuple(v11)) (Expr_sequence(v217,v218)) = + Stuck + | non_funval_equal (Expr_tuple(v11)) + (Expr_for(v212,v213,v214,v215,v216)) = Stuck + | non_funval_equal (Expr_tuple(v11)) (Expr_while(v210,v211)) = Stuck + | non_funval_equal (Expr_tuple(v11)) + (Expr_ifthenelse(v207,v208,v209)) = Stuck + | non_funval_equal (Expr_tuple(v11)) (Expr_field(v205,v206)) = Stuck + | non_funval_equal (Expr_tuple(v11)) (Expr_or(v203,v204)) = Stuck + | non_funval_equal (Expr_tuple(v11)) (Expr_and(v201,v202)) = Stuck + | non_funval_equal (Expr_tuple(v11)) (Expr_apply(v199,v200)) = Stuck + | non_funval_equal (Expr_tuple(v11)) (Expr_override(v197,v198)) = + Stuck + | non_funval_equal (Expr_tuple(v11)) (Expr_record(v196)) = Stuck + | non_funval_equal (Expr_tuple(v11)) (Expr_cons(v194,v195)) = Stuck + | non_funval_equal (Expr_tuple(v11)) (Expr_construct(v192,v193)) = + Stuck + | non_funval_equal (Expr_tuple(v11)) (Expr_typed(v189,v190)) = Stuck + | non_funval_equal (Expr_tuple(v11)) (Expr_constant(v188)) = Stuck + | non_funval_equal (Expr_tuple(v11)) (Expr_ident(v187)) = Stuck + | non_funval_equal (Expr_tuple(v11)) (Expr_bprim(v186)) = Stuck + | non_funval_equal (Expr_tuple(v11)) (Expr_uprim(v185)) = Stuck + | non_funval_equal (Expr_typed(v9,v10)) v3 = Stuck + | non_funval_equal (Expr_constant(v8)) (Expr_location(v139)) = Stuck + | non_funval_equal (Expr_constant(v8)) (Expr_assert(v138)) = Stuck + | non_funval_equal (Expr_constant(v8)) (Expr_letrec(v136,v137)) = + Stuck + | non_funval_equal (Expr_constant(v8)) (Expr_let(v134,v135)) = Stuck + | non_funval_equal (Expr_constant(v8)) (Expr_try(v132,v133)) = Stuck + | non_funval_equal (Expr_constant(v8)) (Expr_function(v131)) = Stuck + | non_funval_equal (Expr_constant(v8)) (Expr_match(v129,v130)) = + Stuck + | non_funval_equal (Expr_constant(v8)) (Expr_sequence(v127,v128)) = + Stuck + | non_funval_equal (Expr_constant(v8)) + (Expr_for(v122,v123,v124,v125,v126)) = Stuck + | non_funval_equal (Expr_constant(v8)) (Expr_while(v120,v121)) = + Stuck + | non_funval_equal (Expr_constant(v8)) + (Expr_ifthenelse(v117,v118,v119)) = Stuck + | non_funval_equal (Expr_constant(v8)) (Expr_field(v115,v116)) = + Stuck + | non_funval_equal (Expr_constant(v8)) (Expr_or(v113,v114)) = Stuck + | non_funval_equal (Expr_constant(v8)) (Expr_and(v111,v112)) = Stuck + | non_funval_equal (Expr_constant(v8)) (Expr_apply(v109,v110)) = + Stuck + | non_funval_equal (Expr_constant(v8)) (Expr_override(v107,v108)) = + Stuck + | non_funval_equal (Expr_constant(v8)) (Expr_record(v106)) = Stuck + | non_funval_equal (Expr_constant(v8)) (Expr_tuple(v101)) = Stuck + | non_funval_equal (Expr_constant(v8)) (Expr_typed(v99,v100)) = + Stuck + | non_funval_equal (Expr_constant(v8)) (Expr_ident(v97)) = Stuck + | non_funval_equal (Expr_constant(v8)) (Expr_bprim(v96)) = Stuck + | non_funval_equal (Expr_constant(v8)) (Expr_uprim(v95)) = Stuck + | non_funval_equal (Expr_ident(v7)) v3 = Stuck + | non_funval_equal (Expr_bprim(v6)) v3 = Stuck + | non_funval_equal (Expr_uprim(v5)) v3 = Stuck + + fun eval_bprim Bprim_equal v1 v2 = + (if funval v1 + then Step(Expr_apply(Expr_uprim(Uprim_raise), + Expr_construct(C_invalidargument, + [Expr_constant(CONST_string("equal: functional value"))]))) + else non_funval_equal v1 v2) + | eval_bprim Bprim_plus v1 v2 = b_int_primop wordsML.word_add v1 v2 + | eval_bprim Bprim_minus v1 v2 = b_int_primop wordsML.word_sub v1 v2 + | eval_bprim Bprim_times v1 v2 = b_int_primop wordsML.word_mul v1 v2 + | eval_bprim Bprim_div v1 v2 = + (if v2 + = + Expr_constant(CONST_int(wordsML.n2w_itself + (ZERO,(fcpML.ITSELF (numML.fromDecString"31"))))) + then (case v1 + of Expr_uprim(v45) => Stuck + | Expr_bprim(v46) => Stuck + | Expr_ident(v47) => Stuck + | Expr_constant(CONST_int(n)) => + Step(Expr_apply(Expr_uprim(Uprim_raise), + Expr_constant(CONST_constr(C_div_by_0)))) + | Expr_constant(CONST_float(v96)) => Stuck + | Expr_constant(CONST_char(v97)) => Stuck + | Expr_constant(CONST_string(v98)) => Stuck + | Expr_constant(CONST_constr(v99)) => Stuck + | Expr_constant(CONST_false) => Stuck + | Expr_constant(CONST_true) => Stuck + | Expr_constant(CONST_nil) => Stuck + | Expr_constant(CONST_unit) => Stuck + | Expr_typed(v49,v50) => Stuck + | Expr_tuple(v51) => Stuck + | Expr_construct(v52,v53) => Stuck + | Expr_cons(v54,v55) => Stuck + | Expr_record(v56) => Stuck + | Expr_override(v57,v58) => Stuck + | Expr_apply(v59,v60) => Stuck + | Expr_and(v61,v62) => Stuck + | Expr_or(v63,v64) => Stuck + | Expr_field(v65,v66) => Stuck + | Expr_ifthenelse(v67,v68,v69) => Stuck + | Expr_while(v70,v71) => Stuck + | Expr_for(v72,v73,v74,v75,v76) => Stuck + | Expr_sequence(v77,v78) => Stuck + | Expr_match(v79,v80) => Stuck + | Expr_function(v81) => Stuck + | Expr_try(v82,v83) => Stuck + | Expr_let(v84,v85) => Stuck + | Expr_letrec(v86,v87) => Stuck + | Expr_assert(v88) => Stuck + | Expr_location(v89) => Stuck) + else b_int_primop wordsML.word_sdiv v1 v2) + | eval_bprim Bprim_assign v1 v2 = + (case v1 + of Expr_uprim(v46) => Stuck + | Expr_bprim(v47) => Stuck + | Expr_ident(v48) => Stuck + | Expr_constant(v49) => Stuck + | Expr_typed(v50,v51) => Stuck + | Expr_tuple(v52) => Stuck + | Expr_construct(v53,v54) => Stuck + | Expr_cons(v55,v56) => Stuck + | Expr_record(v57) => Stuck + | Expr_override(v58,v59) => Stuck + | Expr_apply(v60,v61) => Stuck + | Expr_and(v62,v63) => Stuck + | Expr_or(v64,v65) => Stuck + | Expr_field(v66,v67) => Stuck + | Expr_ifthenelse(v68,v69,v70) => Stuck + | Expr_while(v71,v72) => Stuck + | Expr_for(v73,v74,v75,v76,v77) => Stuck + | Expr_sequence(v78,v79) => Stuck + | Expr_match(v80,v81) => Stuck + | Expr_function(v82) => Stuck + | Expr_try(v83,v84) => Stuck + | Expr_let(v85,v86) => Stuck + | Expr_letrec(v87,v88) => Stuck + | Expr_assert(v89) => Stuck + | Expr_location(l) => + StepAssign(Expr_constant(CONST_unit),l,v2)) + + fun do_1override fn1 v1 [] = NONE + | do_1override fn1 v1 ((fn2,v2)::record) = + (if fn1 = fn2 then SOME((fn1,v1)::record) + else OPTION_MAP (fn r => (fn2,v2)::r) + (do_1override fn1 v1 record)) + + fun eval_override v [] [] = Stuck + | eval_override v1 [fn1] [v] = + (case v1 + of Expr_uprim(v46) => Stuck + | Expr_bprim(v47) => Stuck + | Expr_ident(v48) => Stuck + | Expr_constant(v49) => Stuck + | Expr_typed(v50,v51) => Stuck + | Expr_tuple(v52) => Stuck + | Expr_construct(v53,v54) => Stuck + | Expr_cons(v55,v56) => Stuck + | Expr_record(fn_expr_list) => + (case do_1override fn1 v fn_expr_list + of NONE => Stuck | SOME(x) => Step(Expr_record(x))) + | Expr_override(v58,v59) => Stuck + | Expr_apply(v60,v61) => Stuck + | Expr_and(v62,v63) => Stuck + | Expr_or(v64,v65) => Stuck + | Expr_field(v66,v67) => Stuck + | Expr_ifthenelse(v68,v69,v70) => Stuck + | Expr_while(v71,v72) => Stuck + | Expr_for(v73,v74,v75,v76,v77) => Stuck + | Expr_sequence(v78,v79) => Stuck + | Expr_match(v80,v81) => Stuck + | Expr_function(v82) => Stuck + | Expr_try(v83,v84) => Stuck + | Expr_let(v85,v86) => Stuck + | Expr_letrec(v87,v88) => Stuck + | Expr_assert(v89) => Stuck + | Expr_location(v90) => Stuck) + | eval_override v1 (fn1::v12::v13) (v::voverrides) = + (case v1 + of Expr_uprim(v46) => Stuck + | Expr_bprim(v47) => Stuck + | Expr_ident(v48) => Stuck + | Expr_constant(v49) => Stuck + | Expr_typed(v50,v51) => Stuck + | Expr_tuple(v52) => Stuck + | Expr_construct(v53,v54) => Stuck + | Expr_cons(v55,v56) => Stuck + | Expr_record(fn_expr_list) => + (case do_1override fn1 v fn_expr_list + of NONE => Stuck + | SOME(x) => + Step(Expr_override(Expr_record(x), + ZIP (v12::v13,voverrides)))) + | Expr_override(v58,v59) => Stuck + | Expr_apply(v60,v61) => Stuck + | Expr_and(v62,v63) => Stuck + | Expr_or(v64,v65) => Stuck + | Expr_field(v66,v67) => Stuck + | Expr_ifthenelse(v68,v69,v70) => Stuck + | Expr_while(v71,v72) => Stuck + | Expr_for(v73,v74,v75,v76,v77) => Stuck + | Expr_sequence(v78,v79) => Stuck + | Expr_match(v80,v81) => Stuck + | Expr_function(v82) => Stuck + | Expr_try(v83,v84) => Stuck + | Expr_let(v85,v86) => Stuck + | Expr_letrec(v87,v88) => Stuck + | Expr_assert(v89) => Stuck + | Expr_location(v90) => Stuck) + | eval_override v1 [fn1] (v::v18::v19) = + (case v1 + of Expr_uprim(v46) => Stuck + | Expr_bprim(v47) => Stuck + | Expr_ident(v48) => Stuck + | Expr_constant(v49) => Stuck + | Expr_typed(v50,v51) => Stuck + | Expr_tuple(v52) => Stuck + | Expr_construct(v53,v54) => Stuck + | Expr_cons(v55,v56) => Stuck + | Expr_record(fn_expr_list) => + (case do_1override fn1 v fn_expr_list + of NONE => Stuck + | SOME(x) => + Step(Expr_override(Expr_record(x), + ZIP ([],v18::v19)))) + | Expr_override(v58,v59) => Stuck + | Expr_apply(v60,v61) => Stuck + | Expr_and(v62,v63) => Stuck + | Expr_or(v64,v65) => Stuck + | Expr_field(v66,v67) => Stuck + | Expr_ifthenelse(v68,v69,v70) => Stuck + | Expr_while(v71,v72) => Stuck + | Expr_for(v73,v74,v75,v76,v77) => Stuck + | Expr_sequence(v78,v79) => Stuck + | Expr_match(v80,v81) => Stuck + | Expr_function(v82) => Stuck + | Expr_try(v83,v84) => Stuck + | Expr_let(v85,v86) => Stuck + | Expr_letrec(v87,v88) => Stuck + | Expr_assert(v89) => Stuck + | Expr_location(v90) => Stuck) + + fun eval_apply v1 v2 = + case v1 + of Expr_uprim(up) => eval_uprim up v2 + | Expr_bprim(v49) => Stuck + | Expr_ident(v50) => Stuck + | Expr_constant(v51) => Stuck + | Expr_typed(v52,v53) => Stuck + | Expr_tuple(v54) => Stuck + | Expr_construct(v55,v56) => Stuck + | Expr_cons(v57,v58) => Stuck + | Expr_record(v59) => Stuck + | Expr_override(v60,v61) => Stuck + | Expr_apply(Expr_uprim(v47),v63) => Stuck + | Expr_apply(Expr_bprim(bp),v63) => eval_bprim bp v63 v2 + | Expr_apply(Expr_ident(v49),v63) => Stuck + | Expr_apply(Expr_constant(v50),v63) => Stuck + | Expr_apply(Expr_typed(v51,v52),v63) => Stuck + | Expr_apply(Expr_tuple(v53),v63) => Stuck + | Expr_apply(Expr_construct(v54,v55),v63) => Stuck + | Expr_apply(Expr_cons(v56,v57),v63) => Stuck + | Expr_apply(Expr_record(v58),v63) => Stuck + | Expr_apply(Expr_override(v59,v60),v63) => Stuck + | Expr_apply(Expr_apply(v61,v62),v63) => Stuck + | Expr_apply(Expr_and(v163,v64),v63) => Stuck + | Expr_apply(Expr_or(v65,v66),v63) => Stuck + | Expr_apply(Expr_field(v67,v68),v63) => Stuck + | Expr_apply(Expr_ifthenelse(v69,v70,v71),v63) => Stuck + | Expr_apply(Expr_while(v72,v73),v63) => Stuck + | Expr_apply(Expr_for(v74,v75,v76,v77,v78),v63) => Stuck + | Expr_apply(Expr_sequence(v79,v80),v63) => Stuck + | Expr_apply(Expr_match(v81,v82),v63) => Stuck + | Expr_apply(Expr_function(v83),v63) => Stuck + | Expr_apply(Expr_try(v84,v85),v63) => Stuck + | Expr_apply(Expr_let(v86,v87),v63) => Stuck + | Expr_apply(Expr_letrec(v88,v89),v63) => Stuck + | Expr_apply(Expr_assert(v90),v63) => Stuck + | Expr_apply(Expr_location(v91),v63) => Stuck + | Expr_and(v64,v65) => Stuck + | Expr_or(v66,v67) => Stuck + | Expr_field(v68,v69) => Stuck + | Expr_ifthenelse(v70,v71,v72) => Stuck + | Expr_while(v73,v74) => Stuck + | Expr_for(v75,v76,v77,v78,v79) => Stuck + | Expr_sequence(v80,v81) => Stuck + | Expr_match(v82,v83) => Stuck + | Expr_function(pm) => Step(Expr_match(v2,pm)) + | Expr_try(v85,v86) => Stuck + | Expr_let(v87,v88) => Stuck + | Expr_letrec(v89,v90) => Stuck + | Expr_assert(v91) => Stuck + | Expr_location(v92) => Stuck + + fun eval_field field v = + case v + of Expr_uprim(v45) => Stuck + | Expr_bprim(v46) => Stuck + | Expr_ident(v47) => Stuck + | Expr_constant(v48) => Stuck + | Expr_typed(v49,v50) => Stuck + | Expr_tuple(v51) => Stuck + | Expr_construct(v52,v53) => Stuck + | Expr_cons(v54,v55) => Stuck + | Expr_record(fn_expr_list) => + (case ottML.list_assoc field fn_expr_list + of NONE => Stuck | SOME(x) => Step(x)) + | Expr_override(v57,v58) => Stuck + | Expr_apply(v59,v60) => Stuck + | Expr_and(v61,v62) => Stuck + | Expr_or(v63,v64) => Stuck + | Expr_field(v65,v66) => Stuck + | Expr_ifthenelse(v67,v68,v69) => Stuck + | Expr_while(v70,v71) => Stuck + | Expr_for(v72,v73,v74,v75,v76) => Stuck + | Expr_sequence(v77,v78) => Stuck + | Expr_match(v79,v80) => Stuck + | Expr_function(v81) => Stuck + | Expr_try(v82,v83) => Stuck + | Expr_let(v84,v85) => Stuck + | Expr_letrec(v86,v87) => Stuck + | Expr_assert(v88) => Stuck + | Expr_location(v89) => Stuck + + fun eval_ite expr2 expr3 v1 = + if v1 = Expr_constant(CONST_true) then Step(expr2) + else if v1 = Expr_constant(CONST_false) then Step(expr3) + else Stuck + + fun eval_while e1 e2 = + Step(Expr_ifthenelse(e1, + Expr_sequence(e2,Expr_while(e1,e2)), + Expr_constant(CONST_unit))) + + fun eval_for x for_dirn expr3 v2 v1 = + case v1 + of Expr_uprim(v47) => Stuck + | Expr_bprim(v48) => Stuck + | Expr_ident(v49) => Stuck + | Expr_constant(CONST_int(n1)) => + (case v2 + of Expr_uprim(v47) => Stuck + | Expr_bprim(v48) => Stuck + | Expr_ident(v49) => Stuck + | Expr_constant(CONST_int(n2)) => + (case for_dirn + of FD_upto => + if wordsML.word_le n1 n2 + then Step(Expr_sequence(Expr_let(LB_simple(P_var(x), + v1), + expr3), + Expr_for(x, + Expr_constant(CONST_int(wordsML.word_add + n1 + (wordsML.n2w_itself + (ONE,(fcpML.ITSELF (numML.fromDecString"31")))))), + for_dirn, + v2, + expr3))) + else Step(Expr_constant(CONST_unit)) + | FD_downto => + if wordsML.word_le n2 n1 + then Step(Expr_sequence(Expr_let(LB_simple(P_var(x), + v1), + expr3), + Expr_for(x, + Expr_constant(CONST_int(wordsML.word_sub + n1 + (wordsML.n2w_itself + (ONE,(fcpML.ITSELF (numML.fromDecString"31")))))), + for_dirn, + v2, + expr3))) + else Step(Expr_constant(CONST_unit))) + | Expr_constant(CONST_float(v98)) => Stuck + | Expr_constant(CONST_char(v99)) => Stuck + | Expr_constant(CONST_string(v100)) => Stuck + | Expr_constant(CONST_constr(v101)) => Stuck + | Expr_constant(CONST_false) => Stuck + | Expr_constant(CONST_true) => Stuck + | Expr_constant(CONST_nil) => Stuck + | Expr_constant(CONST_unit) => Stuck + | Expr_typed(v51,v52) => Stuck + | Expr_tuple(v53) => Stuck + | Expr_construct(v54,v55) => Stuck + | Expr_cons(v56,v57) => Stuck + | Expr_record(v58) => Stuck + | Expr_override(v59,v60) => Stuck + | Expr_apply(v61,v62) => Stuck + | Expr_and(v63,v64) => Stuck + | Expr_or(v65,v66) => Stuck + | Expr_field(v67,v68) => Stuck + | Expr_ifthenelse(v69,v70,v71) => Stuck + | Expr_while(v72,v73) => Stuck + | Expr_for(v74,v75,v76,v77,v78) => Stuck + | Expr_sequence(v79,v80) => Stuck + | Expr_match(v81,v82) => Stuck + | Expr_function(v83) => Stuck + | Expr_try(v84,v85) => Stuck + | Expr_let(v86,v87) => Stuck + | Expr_letrec(v88,v89) => Stuck + | Expr_assert(v90) => Stuck + | Expr_location(v91) => Stuck) + | Expr_constant(CONST_float(v98)) => Stuck + | Expr_constant(CONST_char(v99)) => Stuck + | Expr_constant(CONST_string(v100)) => Stuck + | Expr_constant(CONST_constr(v101)) => Stuck + | Expr_constant(CONST_false) => Stuck + | Expr_constant(CONST_true) => Stuck + | Expr_constant(CONST_nil) => Stuck + | Expr_constant(CONST_unit) => Stuck + | Expr_typed(v51,v52) => Stuck + | Expr_tuple(v53) => Stuck + | Expr_construct(v54,v55) => Stuck + | Expr_cons(v56,v57) => Stuck + | Expr_record(v58) => Stuck + | Expr_override(v59,v60) => Stuck + | Expr_apply(v61,v62) => Stuck + | Expr_and(v63,v64) => Stuck + | Expr_or(v65,v66) => Stuck + | Expr_field(v67,v68) => Stuck + | Expr_ifthenelse(v69,v70,v71) => Stuck + | Expr_while(v72,v73) => Stuck + | Expr_for(v74,v75,v76,v77,v78) => Stuck + | Expr_sequence(v79,v80) => Stuck + | Expr_match(v81,v82) => Stuck + | Expr_function(v83) => Stuck + | Expr_try(v84,v85) => Stuck + | Expr_let(v86,v87) => Stuck + | Expr_letrec(v88,v89) => Stuck + | Expr_assert(v90) => Stuck + | Expr_location(v91) => Stuck + + fun eval_match (PM_pm([])) v = Stuck + | eval_match (PM_pm([PE_inj(p,e)])) v = + Step(case matching_funML.pat_match p v + of NONE => + Expr_apply(Expr_uprim(Uprim_raise), + Expr_constant(CONST_constr(C_matchfailure))) + | SOME(substs) => substs_value_name_expr substs e) + | eval_match (PM_pm(PE_inj(p,e)::v8::v9)) v = + Step(case matching_funML.pat_match p v + of NONE => Expr_match(v,PM_pm(v8::v9)) + | SOME(substs) => substs_value_name_expr substs e) + + fun eval_try expr pattern_matching = + case expr + of Expr_uprim(v45) => Stuck + | Expr_bprim(v46) => Stuck + | Expr_ident(v47) => Stuck + | Expr_constant(v48) => Stuck + | Expr_typed(v49,v50) => Stuck + | Expr_tuple(v51) => Stuck + | Expr_construct(v52,v53) => Stuck + | Expr_cons(v54,v55) => Stuck + | Expr_record(v56) => Stuck + | Expr_override(v57,v58) => Stuck + | Expr_apply(e1,e2) => + if e1 = Expr_uprim(Uprim_raise) + then (case pattern_matching + of PM_pm(pe_list) => + Step(Expr_match(e2, + PM_pm(APPEND pe_list + [PE_inj(P_any,expr)]))) + ) else Stuck + | Expr_and(v61,v62) => Stuck + | Expr_or(v63,v64) => Stuck + | Expr_field(v65,v66) => Stuck + | Expr_ifthenelse(v67,v68,v69) => Stuck + | Expr_while(v70,v71) => Stuck + | Expr_for(v72,v73,v74,v75,v76) => Stuck + | Expr_sequence(v77,v78) => Stuck + | Expr_match(v79,v80) => Stuck + | Expr_function(v81) => Stuck + | Expr_try(v82,v83) => Stuck + | Expr_let(v84,v85) => Stuck + | Expr_letrec(v86,v87) => Stuck + | Expr_assert(v88) => Stuck + | Expr_location(v89) => Stuck + + fun eval_let pattern expr2 v1 = + Step(case matching_funML.pat_match pattern v1 + of NONE => + Expr_apply(Expr_uprim(Uprim_raise), + Expr_constant(CONST_constr(C_matchfailure))) + | SOME(substs) => substs_value_name_expr substs expr2) + + fun eval_letrec letrec_bindings expr = + Step(substs_value_name_expr + (MAP (fn lb => + case lb + of LRB_simple(vn,pm) => + (vn,recfun letrec_bindings pm) + ) (lrbs_to_lrblist letrec_bindings)) expr) + + fun eval_assert v = + if v = Expr_constant(CONST_true) + then Step(Expr_constant(CONST_unit)) + else if v = Expr_constant(CONST_false) + then Step(Expr_apply(Expr_uprim(Uprim_raise), + Expr_constant(CONST_constr(C_assertfailure)))) + else Stuck + + fun red (Expr_uprim(unary_prim)) = Stuck + | red (Expr_bprim(binary_prim)) = Stuck + | red (Expr_ident(value_name)) = Stuck + | red (Expr_constant(constant)) = Stuck + | red (Expr_typed(expr,typexpr)) = Step(expr) + | red (Expr_tuple(exprs)) = + red_list (REVERSE exprs) Expr_tuple (fn v => Stuck) [] + | red (Expr_construct(constr,exprs)) = + red_list (REVERSE exprs) (fn x => Expr_construct(constr,x)) (fn x => + Stuck) [] + | red (Expr_cons(expr1,expr2)) = + red_2 expr1 expr2 (fn x => fn y => Expr_cons (x,y)) (fn v1 => fn v2 => Stuck) + | red (Expr_record(field_exprs)) = + let val (fields,exprs) = UNZIP field_exprs + in + red_list (REVERSE exprs) (fn es => + Expr_record(ZIP (fields,es))) (fn v => Stuck) [] + end + | red (Expr_override(expr,field_exprs)) = + red_1 expr (fn e => Expr_override(e,field_exprs)) (fn v => + let val (fields,exprs) = UNZIP field_exprs + in + red_list (REVERSE exprs) (fn es => + Expr_override(v,ZIP (fields,es))) + (eval_override v fields) [] + end) + | red (Expr_apply(expr1,expr2)) = + red_2 expr1 expr2 (fn x => fn y => Expr_apply(x,y)) eval_apply + | red (Expr_and(expr1,expr2)) = + Step(Expr_ifthenelse(expr1,expr2,Expr_constant(CONST_false))) + | red (Expr_or(expr1,expr2)) = + Step(Expr_ifthenelse(expr1,Expr_constant(CONST_true),expr2)) + | red (Expr_field(expr,field)) = + red_1 expr (fn e => Expr_field(e,field)) (eval_field field) + | red (Expr_ifthenelse(expr1,expr2,expr3)) = + red_1 expr1 (fn e => Expr_ifthenelse(e,expr2,expr3)) + (eval_ite expr2 expr3) + | red (Expr_while(expr1,expr2)) = eval_while expr1 expr2 + | red (Expr_for(value_name,expr1,for_dirn,expr2,expr3)) = + red_2 expr2 expr1 (fn e2 => fn e1 => + Expr_for(value_name,e1,for_dirn,e2,expr3)) + (eval_for value_name for_dirn expr3) + | red (Expr_sequence(expr1,expr2)) = + red_1 expr1 (fn e => Expr_sequence(e,expr2)) (fn v => + Step(expr2)) + | red (Expr_match(expr,pattern_matching)) = + red_1 expr (fn e => Expr_match(e,pattern_matching)) + (eval_match pattern_matching) + | red (Expr_function(pattern_matching)) = Stuck + | red (Expr_try(expr,pattern_matching)) = + (if is_raise expr then eval_try expr pattern_matching + else if is_value_of_expr expr then Step(expr) + else result_map (fn e => Expr_try(e,pattern_matching)) + (red expr)) + | red (Expr_let(LB_simple(pattern,expr1),expr2)) = + red_1 expr1 (fn e1 => Expr_let(LB_simple(pattern,e1),expr2)) + (eval_let pattern expr2) + | red (Expr_letrec(letrec_bindings,expr)) = + eval_letrec letrec_bindings expr + | red (Expr_assert(expr)) = red_1 expr Expr_assert eval_assert + | red (Expr_location(location)) = Stuck + + and red_1 expr pack1 eval1 = + if is_raise expr then Step(expr) + else if not (is_value_of_expr expr) + then result_map pack1 (red expr) else eval1 expr + + and red_2 expr1 expr2 pack2 eval2 = + if is_raise expr2 then Step(expr2) + else if not (is_value_of_expr expr2) + then result_map (pack2 expr1) (red expr2) + else if is_raise expr1 then Step(expr1) + else if not (is_value_of_expr expr1) + then result_map (fn e => pack2 e expr2) + (red expr1) else eval2 expr1 expr2 + + and red_list [] packl evall acc = evall acc + | red_list (expr::exprs) packl evall acc = + (if is_raise expr then Step(expr) + else if not (is_value_of_expr expr) + then result_map (fn e => + packl + (APPEND (APPEND (REVERSE exprs) [e]) acc)) + (red expr) + else red_list exprs packl evall (expr::acc)) + +end diff --git a/vendors/ott/examples/ocaml_light/hol/testing/sources1.cm b/vendors/ott/examples/ocaml_light/hol/testing/sources1.cm new file mode 100644 index 000000000000..3566c8cbb181 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/testing/sources1.cm @@ -0,0 +1,14 @@ +Group is + +$/pp-lib.cm +$/basis.cm +(* +$smlnj-tdp/coverage.cm +*) + +theoryML.cm + +caml_typedefML.sig +caml_typedefML.sml +ottML.sig +ottML.sml diff --git a/vendors/ott/examples/ocaml_light/hol/testing/sources2.cm b/vendors/ott/examples/ocaml_light/hol/testing/sources2.cm new file mode 100644 index 000000000000..d6942f6a4d40 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/testing/sources2.cm @@ -0,0 +1,19 @@ +Group is + +$/pp-lib.cm +$/basis.cm +(* +$smlnj-tdp/coverage.cm +*) + +theoryML.cm +sources1.cm + +defs_red_funML.sig +defs_red_funML.sml +matching_funML.sig +matching_funML.sml +reduction_funML.sig +reduction_funML.sml +testsML.sig +testsML.sml diff --git a/vendors/ott/examples/ocaml_light/hol/testing/tests b/vendors/ott/examples/ocaml_light/hol/testing/tests new file mode 100644 index 000000000000..fbb3e1763ce9 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/testing/tests @@ -0,0 +1,985 @@ + +Make sure the tester is working. First two false. + +TESTEXPR +1 +EXPECT +2 +END + +TESTSTUCK +1+2 +END + +TESTEXPR +1 +EXPECT +1 +END + +TESTSTUCK +1 +END + +Test pattern matching. + +TESTEXPR +match 1 with + 2 -> 2 + | 3 -> 3 +EXPECT +Match_failure +END + +TESTEXPR +match 1 with + 2 -> 2 + | _ -> 1 +EXPECT +1 +END + +TESTEXPR +match 1 with + x -> x + | _ -> 2 +EXPECT +1 +END + +TESTEXPR +match 1 with + _ -> 1 + | _ -> 2 +EXPECT +1 +END + +TESTEXPR +match 1 with + 1 -> 1 + | _ -> 2 +EXPECT +1 +END + +TESTEXPR +match 1 with + 1 as x -> x + | _ -> 2 +EXPECT +1 +END + +TESTEXPR +match 1 with + 2 as x -> x + | _ -> 2 +EXPECT +2 +END + +TESTEXPR +match 1 with + (1:int) -> 1 + | _ -> 2 +EXPECT +1 +END + +TESTEXPR +match (1,2) with + ((a,b) | (b,a)) -> (a,b) + | _ -> (0,0) +EXPECT +(1,2) +END + +TESTEXPR +match (1,2) with + ((2,a)|(a,2)) -> a + | _ -> 2 +EXPECT +1 +END + +TESTEXPR +match [1;2;3] with + x::y -> x + | _ -> 2 +EXPECT +1 +END + +TESTEXPR +match [1;2;3] with + x::y -> y + | _ -> [2] +EXPECT +[2;3] +END + +TESTEXPR +match Some 1 with + None -> 2 + | Some x -> x +EXPECT +1 +END + +TESTEXPR +match None with + Some x -> x + | None -> 2 +EXPECT +2 +END + +TESTEXPR +match () with + () -> 1 +EXPECT +1 +END + +TESTEXPR +match [] with + x::y -> 1 + | [] -> 2 +EXPECT +2 +END + +TESTEXPR +match [1] with + x::y -> 1 + | [] -> 2 +EXPECT +1 +END + +TESTEXPR +match Some 1 with + None -> 2 + | Some _ -> 1 +EXPECT +1 +END + +TESTEXPR +match (1,(2,3),4) with + (a, ((e,f) as b),c) as d -> (a,b,c,d,e,f) +EXPECT +(1, (2, 3), 4, (1, (2, 3), 4), 2, 3) +END + + +TESTEXPR +match true with + false -> 1 + | true -> 2 +EXPECT +2 +END + +TESTEXPR +match false with + true -> 1 + | false -> 2 +EXPECT +2 +END + +TESTEXPR +match {f=1} with + {f=x} -> x + | _ -> 2 +EXPECT +1 +END + +TESTEXPR +match {f=1; g=2} with + {f=3} -> 1 + | _ -> 2 +EXPECT +2 +END + +TESTEXPR +match {f=1; g=2} with + {g=x; f=y} -> (x,y) + | _ -> (3,4) +EXPECT +(2,1) +END + +TESTEXPR +match {f=1;g=2} with + {g=x} -> x + | _ -> 1 +EXPECT +2 +END + + +Testing primitives + +TESTEXPR +1+2 +EXPECT +3 +END + +TESTEXPR +1-2 +EXPECT +-1 +END + +TESTEXPR +5 * 4 +EXPECT +20 +END + +TESTEXPR +~- 1 +EXPECT +-1 +END + +TESTEXPR +5/4 +EXPECT +1 +END + +TESTEXPR +1073741823 + 1 +EXPECT +-1073741824 +END + +TESTEXPR +-1073741824 - 1 +EXPECT +1073741823 +END + +TESTEXPR +not true +EXPECT +false +END + +TESTEXPR +not false +EXPECT +true +END + +TESTEXPR +1 = 2 +EXPECT +false +END + + +TESTEXPR +1 = 1 +EXPECT +true +END + +TESTEXPR +true = false +EXPECT +false +END + +TESTEXPR +false = false +EXPECT +true +END + +TESTEXPR +true = true +EXPECT +true +END + +TESTEXPR +[] = [] +EXPECT +true +END + +TESTEXPR +[] = [1] +EXPECT +false +END + +TESTEXPR +[1;2] = [1;2] +EXPECT +true +END + +TESTEXPR +[1;2;3] = [1;2;4] +EXPECT +false +END + +TESTEXPR +None = None +EXPECT +true +END + +TESTEXPR +Some 1 = Some 2 +EXPECT +false +END + + +TESTEXPR +Some None = Some None +EXPECT +true +END + +TESTEXPR +Some 1 = NONE +EXPECT +false +END + +TESTEXPR +{f=1; h=3; g=2} = {g=2; f=1; h=3} +EXPECT +true +END + +TESTEXPR +{f=1; h=2; g=3} = {g=1; f=2; h=3} +EXPECT +false +END + +TESTEXPR +(fun x -> 1) = (fun x -> 1) +EXPECT +Invalid_argument "equal: functional value" +END + + +TESTEXPR +(1,2) = (1,2) +EXPECT +true +END + +TESTEXPR +(1,2) = (1,4) +EXPECT +false +END + +TESTEXPR +C (1,2) = C (1,2) +EXPECT +true +END + +TESTEXPR +C (1,2) = D (1,2,3) +EXPECT +false +END + +TESTEXPR +C = C +EXPECT +true +END + +TESTEXPR +C = D +EXPECT +false +END + +TESTEXPR +C (1,2) = C (1,3) +EXPECT +false +END + +TESTEXPR +C = D (1,2) +EXPECT +false +END + +Test exception propogation and evaluation ordering + +TESTEXPR +1 + raise E +EXPECT +E +END + +TESTEXPR +(raise E) 1 +EXPECT +E +END + +TESTEXPR +(raise E1) (raise E2) +EXPECT +E2 +END + +TESTEXPR +((raise E) : int) +EXPECT +E +END + +TESTEXPR +(1, 2, raise E1, raise E2, 3, 4) +EXPECT +E2 +END + +TESTEXPR +C (1, 2, raise E1, raise E2, 3, 4) +EXPECT +E2 +END + +TESTEXPR +raise E1::raise E +EXPECT +E +END + +TESTEXPR +raise E1::[] +EXPECT +E1 +END + +TESTEXPR +{f=1; g=raise E1; h=raise E2; i=3} +EXPECT +E2 +END + +TESTEXPR +{(raise E3) with f=1; g=raise E1; h=raise E2; i=3} +EXPECT +E3 +END + + +TESTEXPR +{{f=1;g=1;h=1;i=1} with f=1; g=raise E1; h=raise E2; i=3} +EXPECT +E2 +END + +TESTEXPR +raise E1 && raise E2 +EXPECT +E1 +END + +TESTEXPR +true && raise E2 +EXPECT +E2 +END + +TESTEXPR +false && raise E2 +EXPECT +false +END + +TESTEXPR +raise E1 || raise E2 +EXPECT +E1 +END + +TESTEXPR +true || raise E2 +EXPECT +true +END + +TESTEXPR +false || raise E2 +EXPECT +E2 +END + +TESTEXPR +(raise E).f +EXPECT +E +END + +TESTEXPR +if raise E then raise E1 else raise E2 +EXPECT +E +END + +TESTEXPR +if true then raise E1 else raise E2 +EXPECT +E1 +END + +TESTEXPR +if false then raise E1 else raise E2 +EXPECT +E2 +END + +TESTEXPR +while raise E1 do raise E2 done +EXPECT +E1 +END + +TESTEXPR +while true do raise E2 done +EXPECT +E2 +END + +TESTEXPR +while false do raise E2 done +EXPECT +() +END + +TESTEXPR +for i = raise E1 to raise E2 do raise E3 done +EXPECT +E1 +END + +TESTEXPR +for i = 1 to raise E2 do raise E3 done +EXPECT +E2 +END + +TESTEXPR +for i = 1 to 0 do raise E3 done +EXPECT +() +END + +TESTEXPR +for i = 0 to 0 do raise E3 done +EXPECT +E3 +END + +TESTEXPR +(raise E1);(raise E2) +EXPECT +E1 +END + +TESTEXPR +();(raise E3) +EXPECT +E3 +END + +TESTEXPR +match raise E with + | _ -> raise E1 +EXPECT +E +END + +TESTEXPR +match 1 with + 1 -> 1 + | _ -> raise E +EXPECT +1 +END + +TESTEXPR +match 1 with + 2 -> raise E + | _ -> raise E1 +EXPECT +E1 +END + +TESTEXPR +function _ -> raise E +EXPECT +function _ -> raise E +END + +TESTEXPR +let x = raise E1 in raise E2 +EXPECT +E1 +END + +TESTEXPR +let x = 1 in raise E2 +EXPECT +E2 +END + +TESTEXPR +let rec f x = raise E1 and g x = raise E2 in raise E3 +EXPECT +E3 +END + +TESTEXPR +let rec f x = 1 and g x = raise E2 in raise E3 +EXPECT +E3 +END + +TESTEXPR +assert (raise E) +EXPECT +E +END + +Test the core forms + +TESTEXPR +(1+2,3+4) +EXPECT +(3,7) +END + +TESTEXPR +Some (1+2) +EXPECT +Some 3 +END + +TESTEXPR +C (1+2, 3+4, 5+6) +EXPECT +C (3, 7, 11) +END + +TESTEXPR +(1+2)::if true then [] else (1::[]) +EXPECT +3::[] +END + +TESTEXPR +{f = 1+2; g = 3+4} +EXPECT +{f=3; g=7} +END + +TESTEXPR +(function x -> x) 1 +EXPECT +1 +END + +TESTEXPR +(function x -> x) ((+) 1) +EXPECT +((+) 1) +END + +TESTEXPR +true && false +EXPECT +false +END + +TESTEXPR +false || false +EXPECT +false +END + +TESTEXPR +if true then 1 else 2 +EXPECT +1 +END + + +TESTEXPR +if false then 1 else 2 +EXPECT +2 +END + +TESTEXPR +(function None -> 1+2 | Some x -> 1+x) (Some 4) +EXPECT +5 +END + +TESTEXPR +let x = 1 + 2 in x + 4 +EXPECT +7 +END + +TESTEXPR +assert true +EXPECT +() +END + +TESTEXPR +assert false +EXPECT +Assert_failure +END + +TESTEXPR +assert (false && true) +EXPECT +Assert_failure +END + +TESTEXPR +let rec fact x = if x = 0 then 1 else x * fact (x - 1) in fact 4 +EXPECT +24 +END + +TESTEXPR +let rec even x = if x = 0 then true else odd (x - 1) + and odd x = if x = 0 then false else even (x - 1) +in +(even 10, odd 10, even 9, odd 9) +EXPECT +(true, false, false, true) +END + +TESTEXPR +let f = function x -> function y -> x + y in +f 1 2 +EXPECT +3 +END + +TESTEXPR +let f = function x -> function x -> x in +f 1 2 +EXPECT +2 +END + +TESTEXPR +let x = ref 1 in + !x +EXPECT +1 +END + +TESTEXPR +let x = ref 1 in + x := 10; + !x +EXPECT +10 +END + +TESTEXPR +let x = ref [] in + (for j = 0 to 10 do x := j :: !x done); + !x +EXPECT +[10; 9; 8; 7; 6; 5; 4; 3; 2; 1; 0] +END + +TESTEXPR +let x = ref [] in + (for j = 10 downto 0 do x := j :: !x done); + !x +EXPECT +[0; 1; 2; 3; 4; 5; 6; 7; 8; 9; 10] +END + +TESTEXPR +let x = ref [] in +for i = 1+1 to 2+2 do x:=i::!x done; +!x +EXPECT +[4;3;2] +END + + +TESTEXPR +let x = ref [1;2;3;4;5] in +let y = ref [] in + (while not (!x = []) do x := (match !x with a::b -> b); y := !x :: !y done); + !y +EXPECT +[[]; [5]; [4; 5]; [3; 4; 5]; [2; 3; 4; 5]] +END + + +TESTEXPR +try (raise E) ; 2 with + E -> 1 +EXPECT +1 +END + +TESTEXPR +try raise E with + E1 -> 1 + | E2 -> 2 +EXPECT +E +END + +TESTEXPR +try + (try raise (E (1,2)) with + E (1,3) -> 1) + with + E _ -> 10 +EXPECT +10 +END + +TESTEXPR +try + (try raise (E (1,2)) with + E (1,3) -> (3,4)) + with + E (a,b) -> (a,b) +EXPECT +(1,2) +END + +TESTEXPR +let x = ref Empty in +let y = ref Empty in +let fst (Cons (x, y)) = x in +let snd (Cons (x, y)) = y in + x := Cons (1, y); + y := Cons (2, x); + (fst (!(snd (!(snd (!x))))), fst (!(snd (!(snd (!(snd (!x)))))))) +EXPECT +(1,2) +END + +TESTEXPR +{{f=1; g=2; h=3} with g = 4} +EXPECT +{f=1;g=4;h=3} +END + +TESTEXPR +{{f=1; g=2; h=3} with g = 4; f = 5} +EXPECT +{f=5;g=4;h=3} +END + +TESTEXPR +{{f = 1} with f = 1+2} +EXPECT +{f=3} +END + +TESTEXPR +{{f = 1+2; g = 3+4} with g = 3+2} +EXPECT +{f = 3; g=5} +END + +TESTEXPR +{f=1;g=2;h=3}.g +EXPECT +2 +END + +TESTEXPR +{f=1;g=2+2;h=3}.g +EXPECT +4 +END + +TESTSTUCK +(1,2) +END + +TESTSTUCK +C +END + +TESTSTUCK +C (1,2) +END + +TESTSTUCK +{f=1;g=2} +END + +TESTSTUCK +function x -> x+1 +END + +TESTSTUCK +x +END + +TESTSTUCK +(+) +END + +TESTSTUCK +(!) +END + +TESTSTUCK +(+) 1 +END + +TESTSTUCK +1::2::[] +END + +TESTDEFS +let g x y = x * y;; +type ('a, 'b, 'c) t = C;; +let rec f = function y -> if y = 0 then 1 else g (f (y - 1)) y;; +EXPR +f 5 +EXPECT +120 +END + + + + + diff --git a/vendors/ott/examples/ocaml_light/hol/testing/theoryML.cm b/vendors/ott/examples/ocaml_light/hol/testing/theoryML.cm new file mode 100644 index 000000000000..6cd0e5325cdb --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/testing/theoryML.cm @@ -0,0 +1,30 @@ +Group is + +$/pp-lib.cm +$/basis.cm +(* +$smlnj-tdp/coverage.cm +*) + +/home/so294/scratch/HOL/src/theoryML/basicSizeML.sig +/home/so294/scratch/HOL/src/theoryML/basicSizeML.sml +/home/so294/scratch/HOL/src/theoryML/bitML.sig +/home/so294/scratch/HOL/src/theoryML/bitML.sml +/home/so294/scratch/HOL/src/theoryML/combinML.sig +/home/so294/scratch/HOL/src/theoryML/combinML.sml +/home/so294/scratch/HOL/src/theoryML/fcpML.sig +/home/so294/scratch/HOL/src/theoryML/fcpML.sml +/home/so294/scratch/HOL/src/theoryML/listML.sig +/home/so294/scratch/HOL/src/theoryML/listML.sml +/home/so294/scratch/HOL/src/theoryML/numML.sig +/home/so294/scratch/HOL/src/theoryML/numML.sml +/home/so294/scratch/HOL/src/theoryML/optionML.sig +/home/so294/scratch/HOL/src/theoryML/optionML.sml +/home/so294/scratch/HOL/src/theoryML/pairML.sig +/home/so294/scratch/HOL/src/theoryML/pairML.sml +/home/so294/scratch/HOL/src/theoryML/stringML.sig +/home/so294/scratch/HOL/src/theoryML/stringML.sml +/home/so294/scratch/HOL/src/theoryML/sumML.sig +/home/so294/scratch/HOL/src/theoryML/sumML.sml +/home/so294/scratch/HOL/src/theoryML/wordsML.sig +/home/so294/scratch/HOL/src/theoryML/wordsML.sml diff --git a/vendors/ott/examples/ocaml_light/hol/type_substScript.sml b/vendors/ott/examples/ocaml_light/hol/type_substScript.sml new file mode 100644 index 000000000000..f186ba1bea4f --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/type_substScript.sml @@ -0,0 +1,592 @@ +open bossLib HolKernel boolLib listTheory rich_listTheory optionTheory combinTheory arithmeticTheory pairTheory; +open ottTheory ottLib caml_typedefTheory; +open utilTheory basicTheory shiftTheory environmentTheory validTheory; + +val _ = Parse.hide "S"; + +val _ = new_theory "type_subst"; + +val EVERY_FLAT = Q.prove ( +`!l P. (P []) /\ (!x y. P (x++y) = P x /\ P y) ==> (EVERY P l = P (FLAT l))`, +Induct THEN SRW_TAC [] []); + +val EVERY_ZIP_SAME = Q.prove ( +`!l f. EVERY (\x. f (FST x) (SND x)) (ZIP (l,l)) = EVERY (\x. f x x) l`, +Induct THEN SRW_TAC [] []); + + +local + +val lem1 = Q.prove ( +`(!t l m n. shiftt 0 (m + (n + l)) t = shiftt n m (shiftt 0 (n + l) t)) /\ + (!tl l m n. MAP (\t. shiftt 0 (m + (n + l)) t) tl = MAP (\t. shiftt n m (shiftt 0 (n + l) t)) tl)`, +Induct THEN SRW_TAC [ARITH_ss] [shiftt_def, MAP_MAP]); + +val lem2 = Q.prove ( +`(!t m n. idxsubn (num_tv E + n + m) (MAP (shiftt 0 (num_tv E + n + m)) t_list) (shiftt n m t) = + shiftt n m (idxsubn (num_tv E + n) (MAP (shiftt 0 (num_tv E + n)) t_list) t)) /\ + (!tl m n. MAP (\t. idxsubn (num_tv E + n + m) (MAP (shiftt 0 (num_tv E + n + m)) t_list) (shiftt n m t)) tl = + MAP (\t. shiftt n m (idxsubn (num_tv E + n) (MAP (shiftt 0 (num_tv E + n)) t_list) t)) tl)`, +Induct THEN SRW_TAC [ARITH_ss] [idxsubn_def, shiftt_def, EL_MAP, MAP_MAP] THEN +FULL_SIMP_TAC list_ss [lem1]); + +val lem3 = Q.prove ( +`!ts m n. idxsubnts (num_tv E + n + m) (MAP (shiftt 0 (num_tv E + n + m)) t_list) (shiftts n m ts) = + shiftts n m (idxsubnts (num_tv E + n) (MAP (shiftt 0 (num_tv E + n)) t_list) ts)`, +Cases_on `ts` THEN SRW_TAC [] [idxsubnts_def, shiftts_def, MAP_MAP_o, GSYM shiftt_add_thm] THEN +SRW_TAC [ARITH_ss] [(SIMP_RULE list_ss [] o Q.SPECL [`t`, `m`, `n+1`] o hd o CONJUNCTS) lem2]); + +val lem4 = Q.prove ( +`!tes m n. idxsubntes (num_tv E + n + m) (MAP (shiftt 0 (num_tv E + n + m)) t_list) (shifttes n m tes) = + shifttes n m (idxsubntes (num_tv E + n) (MAP (shiftt 0 (num_tv E + n)) t_list) tes)`, +Cases_on `tes` THEN SRW_TAC [] [idxsubntes_def, shifttes_def, MAP_MAP, lem2]); + +val lem5 = Q.prove ( +`!EB m n. idxsubnEB (num_tv E + n + m) (MAP (shiftt 0 (num_tv E + n + m)) t_list) (shiftEB n m EB) = + shiftEB n m (idxsubnEB (num_tv E + n) (MAP (shiftt 0 (num_tv E + n)) t_list) EB)`, +Cases_on `EB` THEN SRW_TAC [] [idxsubnEB_def, shiftEB_def, lem2, lem3, lem4]); + +in + +val type_subst_lookup_thm = Q.prove ( +`!E1 E2 name EB. (lookup (E1 ++ [EB_tv] ++ E2) name = SOME EB) /\ ~(name = name_tv) ==> + (lookup (idxsubnE 0 t_list E1 ++ E2) name = + SOME (idxsubnEB (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) EB))`, +Induct THEN SRW_TAC [] [lookup_def, num_tv_def, idxsubnE_def, domEB_def, idxsubnEB_def] THEN +FULL_SIMP_TAC list_ss [idxsubnEB_dom_thm, sub_shiftEB_thm, shiftEB_add_thm] THENL +[Cases_on `EB` THEN FULL_SIMP_TAC list_ss [domEB_def, name_distinct, num_tv_def], + Cases_on `h` THEN FULL_SIMP_TAC list_ss [domEB_def, name_distinct, num_tv_def] THEN + RES_TAC THEN Q.EXISTS_TAC `idxsubnEB (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) EB2` THEN + SRW_TAC [] [], + Cases_on `h` THEN FULL_SIMP_TAC list_ss [domEB_def, name_distinct, num_tv_def]] THEN + SRW_TAC [] [(SIMP_RULE list_ss [] o Q.SPECL [`EB2`, `1`, `0`]) lem5]); + +end; + +val ftv_lem1 = Q.store_thm ("ftv_lem1", +`(!t E. tkind E t ==> (ftv_typexpr t = [])) /\ + (!tl E. EVERY (tkind E) tl ==> EVERY (\t. ftv_typexpr t = []) tl)`, +Induct THEN SRW_TAC [] [Eok_def, ftv_typexpr_def, FLAT_EQ_EMPTY, EVERY_MAP] THEN +METIS_TAC []); + +val ftv_lem2 = Q.prove ( +`(!t m n. (ftv_typexpr t = []) ==> (ftv_typexpr (shiftt m n t) = [])) /\ + (!tl m n. EVERY (\t. ftv_typexpr t = []) tl ==> EVERY (\t. ftv_typexpr (shiftt m n t) = []) tl)`, +Induct THEN SRW_TAC [] [ftv_typexpr_def, shiftt_def, FLAT_EQ_EMPTY, EVERY_MAP]); + +val idxbound_lem1 = Q.prove ( +`!E1 E2 idx. idx < num_tv E1 /\ idx_bound (E1++[EB_tv]++E2) idx ==> + idx_bound (idxsubnE 0 t_list E1 ++ E2) idx`, +Induct THEN SRW_TAC [] [num_tv_def, idx_bound_def] THEN Cases_on `h` THEN +FULL_SIMP_TAC list_ss [num_tv_def, idx_bound_def, idxsubnE_def, idxsubnEB_def] THEN +Cases_on `idx` THEN FULL_SIMP_TAC list_ss [idx_bound_def]); + +val idxbound_lem2 = Q.prove ( +`!E1 E2 idx. ~(idx < num_tv E1) /\ ~(idx = num_tv E1) /\ idx_bound (E1++[EB_tv]++E2) idx ==> + idx_bound (idxsubnE 0 t_list E1 ++ E2) (idx - 1)`, +Induct THEN SRW_TAC [] [num_tv_def, idx_bound_def, idxsubnE_def] THEN1 +(Cases_on `idx` THEN FULL_SIMP_TAC list_ss [idx_bound_def]) THEN +Cases_on `h` THEN FULL_SIMP_TAC list_ss [num_tv_def, idx_bound_def, idxsubnE_def, idxsubnEB_def] THEN +Cases_on `idx` THEN FULL_SIMP_TAC list_ss [idx_bound_def] THEN Cases_on `n` THEN +SRW_TAC [] [idx_bound_def] THEN RES_TAC THEN FULL_SIMP_TAC list_ss []); + +val type_subst_ok_thm = Q.store_thm ("type_subst_ok_thm", +`(!E1 E2 t_list. Eok (E1++[EB_tv]++E2) /\ EVERY (tkind E2) t_list ==> Eok (idxsubnE 0 t_list E1 ++ E2)) /\ + (!E1 tcn E2 k t_list. (typeconstr_kind (E1++[EB_tv]++E2) tcn = SOME k) /\ EVERY (tkind E2) t_list ==> + (typeconstr_kind (idxsubnE 0 t_list E1++E2) tcn = SOME k)) /\ + (!E1 ts E2 t_list. tsok (E1++[EB_tv]++E2) ts /\ EVERY (tkind E2) t_list ==> + tsok (idxsubnE 0 t_list E1++E2) + (idxsubnts (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) ts)) /\ + (!E1 tpo t E2 t_list. ntsok (E1++[EB_tv]++E2) tpo t /\ EVERY (tkind E2) t_list ==> + ntsok (idxsubnE 0 t_list E1++E2) tpo + (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t)) /\ + (!E1 t E2 t_list. tkind (E1++[EB_tv]++E2) t /\ EVERY (tkind E2) t_list ==> + tkind (idxsubnE 0 t_list E1++E2) + (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t))`, +HO_MATCH_MP_TAC Eok_ind THEN +SRW_TAC [] [Eok_def, idxsubnE_def, idxsubnEB_def, idxsubnE_dom_thm, idxsubntes_def, EVERY_MAP, + COND_EXPAND_EQ, domEB_def, idxsubn_def] THEN +IMP_RES_TAC type_subst_lookup_thm THEN SRW_TAC [] [idxsubnts_def, idxsubnEB_def, Eok_def, COND_EXPAND_EQ] THEN +FULL_SIMP_TAC list_ss [EVERY_MEM] THEN SRW_TAC [] [idxbound_lem1, idxbound_lem2, EL_MAP, MAP_MAP] +THENL +[METIS_TAC [], + METIS_TAC [], + METIS_TAC [], + Cases_on `lookup (E1++[EB_tv]++E2) (name_tcn typeconstr_name)` THEN FULL_SIMP_TAC list_ss [] THEN + Cases_on `x` THEN FULL_SIMP_TAC list_ss [environment_binding_case_def] THEN + IMP_RES_TAC type_subst_lookup_thm THEN SRW_TAC [] [idxsubnEB_def], + RES_TAC THEN FULL_SIMP_TAC list_ss [num_tv_def, GSYM shiftt_add_thm] THEN METIS_TAC [], + RES_TAC THEN + `EVERY (\t. ftv_typexpr t = []) (MAP (shiftt 0 (num_tv E1)) t_list)` by + (SRW_TAC [] [EVERY_MAP] THEN METIS_TAC [ftv_lem1, ftv_lem2, EVERY_MEM]) + THEN IMP_RES_TAC idxsubn_subst_com_lem THEN FULL_SIMP_TAC list_ss [MAP_MAP, idxsubn_def], + FULL_SIMP_TAC list_ss [MEM_EL] THEN RES_TAC THEN FULL_SIMP_TAC list_ss [] THEN + METIS_TAC [tkind_weak_thm, idxsubnE_num_tv_thm]]); + + +val type_subst_teq_thm = Q.prove ( +`!E t1 t2. JTeq E t1 t2 ==> (E = E1++[EB_tv]++E2) /\ EVERY (tkind E2) t_list ==> + JTeq (idxsubnE 0 t_list E1 ++ E2) + (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t1) + (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t2)`, +RULE_INDUCT_TAC JTeq_ind [idxsubn_def] +[([``"JTeq_refl"``], METIS_TAC [type_subst_ok_thm, JTeq_rules]), + ([``"JTeq_sym"``], METIS_TAC [JTeq_rules]), + ([``"JTeq_trans"``], METIS_TAC [JTeq_rules]), + ([``"JTeq_arrow"``], METIS_TAC [JTeq_rules]), + ([``"JTeq_tuple"``], + SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [Once JTeq_cases] THEN NTAC 3 DISJ2_TAC THEN + Q.EXISTS_TAC `MAP (\(x,y). (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) x, + idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) y)) + t_t'_list` THEN + SRW_TAC [] [MAP_MAP, LAMBDA_PROD2, EVERY_MAP]), + ([``"JTeq_constr"``], + SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [Once JTeq_cases] THEN NTAC 4 DISJ2_TAC THEN + Q.EXISTS_TAC `MAP (\(x,y). (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) x, + idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) y)) + t_t'_list` THEN + SRW_TAC [] [MAP_MAP, LAMBDA_PROD2, EVERY_MAP, type_subst_ok_thm]), + ([``"JTeq_expand"``], + SRW_TAC [] [] THEN SRW_TAC [] [Once JTeq_cases, MAP_MAP] THEN NTAC 3 DISJ2_TAC THEN DISJ1_TAC THEN + IMP_RES_TAC type_subst_lookup_thm THEN FULL_SIMP_TAC (srw_ss()) [idxsubnEB_def] THEN + Q.EXISTS_TAC `MAP (\(x,y). (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) x, y)) + t_typevar_list` THEN + SRW_TAC [] [MAP_MAP, LAMBDA_PROD2, EVERY_MAP] THENL + [`EVERY (\t. ftv_typexpr t = []) (MAP (shiftt 0 (num_tv E1)) t_list)` by + (SRW_TAC [] [EVERY_MAP] THEN METIS_TAC [ftv_lem1, ftv_lem2, EVERY_MEM]) + THEN IMP_RES_TAC idxsubn_subst_com_lem THEN FULL_SIMP_TAC list_ss [MAP_MAP, idxsubn_def], + METIS_TAC [type_subst_ok_thm], + POP_ASSUM (K ALL_TAC) THEN Q.PAT_ASSUM `lookup x y = z` (K ALL_TAC) THEN + Induct_on `t_typevar_list` THEN SRW_TAC [] [] THEN METIS_TAC [type_subst_ok_thm]])]); + + +local + +val lem1 = Q.prove ( +`(!t' t_list t_list' n. idxsubn n (MAP (shiftt 0 n) t_list) (idxsub t_list' t') = + idxsub (MAP (\t. idxsubn n (MAP (shiftt 0 n) t_list) t) t_list') + (idxsubn (n + 1) (MAP (shiftt 0 (1 + n)) t_list) t')) /\ + (!tl t_list t_list' n. MAP (\t'. idxsubn n (MAP (shiftt 0 n) t_list) (idxsub t_list' t')) tl = + MAP (\t'. idxsub (MAP (\t. idxsubn n (MAP (shiftt 0 n) t_list) t) t_list') + (idxsubn (n + 1) (MAP (shiftt 0 (1 + n)) t_list) t')) tl)`, +Induct THEN +SRW_TAC [] [idxsubn_def, idxsub_def, MAP_MAP, EL_MAP, GSYM ADD1, COND_EXPAND_EQ] THEN1 +METIS_TAC [idxsubn0_thm, sub_shiftt_thm, shiftt_add_thm] THEN +Cases_on `n` THEN FULL_SIMP_TAC list_ss [idxsub_def, idxsubn_def, COND_EXPAND_EQ] THEN +SRW_TAC [] [idxsubn_def, EL_MAP] THEN Cases_on `n''` THEN FULL_SIMP_TAC list_ss [idxsub_def]); + +in + +val type_subst_inst_thm = Q.prove ( +`!E1 E2 t ts t_list. JTinst (E1++[EB_tv]++E2) t ts /\ EVERY (tkind E2) t_list ==> + JTinst (idxsubnE 0 t_list E1 ++ E2) + (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t) + (idxsubnts (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) ts)`, +SRW_TAC [] [JTinst_cases, Eok_def] THEN SRW_TAC [] [idxsubnts_def, MAP_MAP_o, GSYM shiftt_add_thm] THEN +Q.EXISTS_TAC `MAP (\t. idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t) t_list'` THEN +SRW_TAC [] [MAP_MAP, EVERY_MAP] THENL +[FULL_SIMP_TAC std_ss [GSYM APPEND] THEN IMP_RES_TAC type_subst_ok_thm THEN + FULL_SIMP_TAC list_ss [idxsubnE_def, num_tv_def, idxsubnEB_def], + FULL_SIMP_TAC list_ss [EVERY_MEM] THEN SRW_TAC [] [] THEN METIS_TAC [EVERY_MEM, type_subst_ok_thm], + METIS_TAC [lem1]]); + +end; + +val type_subst_inst_named_thm = Q.prove ( +`!E1 E2 t tpo t' t_list. + JTinst_named (E1++[EB_tv]++E2) t tpo t' /\ EVERY (tkind E2) t_list ==> + JTinst_named (idxsubnE 0 t_list E1 ++ E2) (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t) + tpo (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t')`, +SRW_TAC [] [JTinst_named_cases] THEN +Q.EXISTS_TAC `MAP (\(tv, t). (tv, idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t)) typevar_t_list` +THEN +SRW_TAC [] [MAP_MAP, LAMBDA_PROD2, EVERY_MAP, type_subst_ok_thm] THENL +[IMP_RES_TAC ftv_lem1 THEN IMP_RES_TAC ftv_lem2 THEN + SRW_TAC [] [idxsubn_subst_com_lem, EVERY_MAP, shiftTsig_def, LAMBDA_PROD2, + MAP_MAP, sub_shiftt_thm2, MAP_I, src_t_idxsubn_thm], + FULL_SIMP_TAC list_ss [EVERY_MEM, type_subst_ok_thm]]); + +val type_subst_uprim_thm = Q.prove ( +`!E1 E2 up t t_list. JTuprim (E1++[EB_tv]++E2) up t /\ EVERY (tkind E2) t_list ==> + JTuprim (idxsubnE 0 t_list E1 ++ E2) up + (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t)`, +SRW_TAC [] [JTuprim_cases, idxsubn_def] THEN METIS_TAC [type_subst_ok_thm]); + +val type_subst_bprim_thm = Q.prove ( +`!E1 E2 bp t t_list. JTbprim (E1++[EB_tv]++E2) bp t /\ EVERY (tkind E2) t_list ==> + JTbprim (idxsubnE 0 t_list E1 ++ E2) bp + (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t)`, +SRW_TAC [] [JTbprim_cases, idxsubn_def] THEN METIS_TAC [type_subst_ok_thm]); + +val type_subst_vn_thm = Q.prove ( +`!E E2 vn t t_list. JTvalue_name (E1++[EB_tv]++E2) vn t /\ EVERY (tkind E2) t_list ==> + JTvalue_name (idxsubnE 0 t_list E1 ++ E2) vn + (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t)`, +SRW_TAC [] [JTvalue_name_cases] THEN IMP_RES_TAC type_subst_lookup_thm THEN +FULL_SIMP_TAC list_ss [name_distinct, idxsubnEB_def] THEN SRW_TAC [] [type_subst_inst_thm]); + +val type_subst_constr_c_thm = Q.prove ( +`!E1 E2 c t t_list. JTconstr_c (E1++[EB_tv]++E2) c t /\ EVERY (tkind E2) t_list ==> + JTconstr_c (idxsubnE 0 t_list E1 ++ E2) c + (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t)`, +SRW_TAC [] [JTconstr_c_cases, idxsubn_def, EVERY_MAP] THEN +IMP_RES_TAC type_subst_lookup_thm THEN SRW_TAC [] [type_subst_ok_thm, idxsubnEB_def] THEN +FULL_SIMP_TAC list_ss [EVERY_MEM] THEN METIS_TAC [EVERY_MEM, type_subst_ok_thm]); + +val type_subst_const_thm = Q.prove ( +`!E1 E2 c t t_list. JTconst (E1++[EB_tv]++E2) c t /\ EVERY (tkind E2) t_list ==> + JTconst (idxsubnE 0 t_list E1 ++ E2) c + (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t)`, +SRW_TAC [] [JTconst_cases, idxsubn_def] THEN METIS_TAC [type_subst_ok_thm, type_subst_constr_c_thm]); + +val type_subst_constr_p_thm = Q.prove ( +`!E1 E2 c tl t t_list. JTconstr_p (E1++[EB_tv]++E2) c tl t /\ EVERY (tkind E2) t_list ==> + JTconstr_p (idxsubnE 0 t_list E1 ++ E2) c + (MAP (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list)) tl) + (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t)`, +SRW_TAC [] [JTconstr_p_cases, idxsubn_def, type_subst_ok_thm, MAP_MAP] THEN +MAP_EVERY Q.EXISTS_TAC [`MAP (\(t, t'). (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t, + idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t')) + t'_t_list`, + `MAP (\(t, tv). (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t, tv)) + t''_tv_list`] +THEN +IMP_RES_TAC type_subst_lookup_thm THEN FULL_SIMP_TAC list_ss [] THEN +SRW_TAC [] [idxsubnEB_def, idxsubntes_def, MAP_MAP, LAMBDA_PROD2] THEN +IMP_RES_TAC type_subst_inst_named_thm THEN FULL_SIMP_TAC list_ss [MAP_MAP, idxsubn_def]); + +val type_subst_field_thm = Q.prove ( +`!E1 E2 fn t t' t_list. JTfield (E1++[EB_tv]++E2) fn t t' /\ EVERY (tkind E2) t_list ==> + JTfield (idxsubnE 0 t_list E1 ++ E2) fn + (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t) + (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t')`, +SRW_TAC [] [JTfield_cases] THEN +Q.EXISTS_TAC `MAP (\(t, tv). (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t, tv)) + t'_tv_list` +THEN SRW_TAC [] [idxsubn_def, MAP_MAP, LAMBDA_PROD2] THEN +Q.EXISTS_TAC `idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t''` THEN +IMP_RES_TAC type_subst_lookup_thm THEN FULL_SIMP_TAC list_ss [] THEN +SRW_TAC [] [idxsubnEB_def, idxsubntes_def, MAP_MAP, LAMBDA_PROD2] THEN +IMP_RES_TAC type_subst_inst_named_thm THEN FULL_SIMP_TAC list_ss [MAP_MAP, idxsubn_def]); + +val inst_any_refl_thm = Q.store_thm ("inst_any_refl_thm", +`(!t E. tkind E t ==> JTinst_any E t t) /\ + (!tl E. EVERY (\t. tkind E t) tl ==> EVERY (\t. JTinst_any E t t) tl)`, +Induct THEN SRW_TAC [] [JTinst_any_fun, Eok_def] THEN +Q.EXISTS_TAC `ZIP (tl, tl)` THEN SRW_TAC [] [MAP_FST_ZIP, MAP_SND_ZIP, EVERY_ZIP_SAME, LENGTH_ZIP]); + +val type_subst_inst_any_thm = Q.prove ( +`!E' t t'. JTinst_any E' t t' ==> + !E1 E2 t_list. (E' = E1++[EB_tv]++E2) /\ EVERY (tkind E2) t_list ==> + JTinst_any (idxsubnE 0 t_list E1++E2) + (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t) + (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t')`, +RULE_INDUCT_TAC JTinst_any_ind [JTinst_any_fun, idxsubn_def] +[([``"JTinst_any_tyvar"``], + SRW_TAC [] [] THEN SRW_TAC [] [JTinst_any_fun] THENL + [MATCH_MP_TAC (hd (CONJUNCTS inst_any_refl_thm)) THEN + `MEM (EL num t_list) t_list` by METIS_TAC [MEM_EL] THEN + `Eok (E1 ++ [EB_tv] ++ E2)` by METIS_TAC [ok_ok_thm] THEN + IMP_RES_TAC type_subst_ok_thm THEN + FULL_SIMP_TAC list_ss [EVERY_MEM, idxsubn_def] THEN METIS_TAC [], + FULL_SIMP_TAC list_ss [Eok_def] THEN METIS_TAC [idxbound_lem1, type_subst_ok_thm], + FULL_SIMP_TAC list_ss [Eok_def] THEN METIS_TAC [idxbound_lem1, type_subst_ok_thm], + FULL_SIMP_TAC list_ss [Eok_def] THEN METIS_TAC [idxbound_lem2, type_subst_ok_thm]]), + ([``"JTinst_any_any"``], METIS_TAC [type_subst_ok_thm]), + ([``"JTinst_any_tuple"``, ``"JTinst_any_ctor"``], + SRW_TAC [] [EVERY_MEM, MAP_MAP] THEN + Q.EXISTS_TAC `MAP (\x. (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) (FST x), + idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) (SND x))) + t_t'_list` THEN + SRW_TAC [] [MAP_MAP] THEN FULL_SIMP_TAC list_ss [MEM_MAP] THEN + METIS_TAC [type_subst_ok_thm, EVERY_MEM])]); + +local + +val lem1 = Q.prove ( +`!E' E1 E2 E1'. (E'++(E1++[EB_tv]++E2) = E1'++[EB_tv]++E2) = (E1' = E'++E1)`, +METIS_TAC [APPEND_ASSOC, APPEND_11]); + +val lem2 = Q.prove ( +`!l f g. num_tv (MAP (\z. EB_vn (f z) (g z)) l) = 0`, +METIS_TAC [MAP_REVERSE, value_env_num_tv_thm, value_env_map_thm]); + +val lem3 = Q.prove ( +`!S S' n. (shiftTsig n 1 S = shiftTsig n 1 S') = (S = S')`, +Induct THEN FULL_SIMP_TAC list_ss [shiftTsig_def, LAMBDA_PROD2] THEN1 METIS_TAC [] THEN +Cases_on `S''` THEN SRW_TAC [] [] THEN EQ_TAC THEN SRW_TAC [] [] THEN +Cases_on `h` THEN Cases_on `h'` THEN FULL_SIMP_TAC list_ss [shiftt_11]); + +val lem4 = Q.prove ( +`!l n tl f g. idxsubnE n tl (MAP (\z. EB_vn (f z) (g z)) l) = + MAP (\z. EB_vn (f z) (idxsubnts n (MAP (shiftt 0 n) tl) (g z))) l`, +Induct THEN SRW_TAC [] [idxsubnE_def, idxsubnEB_def, lem2]); + +val lem5 = SIMP_RULE list_ss [EVERY_MAP] (Q.prove ( +`!l f. EVERY value_env (MAP f l) = value_env (FLAT (MAP f l))`, +METIS_TAC [value_env_def, value_env_append_thm, EVERY_FLAT])); + +val lem6 = Q.prove ( +`!l f n t_list. EVERY (\x. value_env (f x)) l ==> + (idxsubnE n t_list (FLAT (MAP f l)) = FLAT (MAP (\x. idxsubnE n t_list (f x)) l))`, +Induct THEN SRW_TAC [] [idxsubnE_append_thm, idxsubnE_def] THEN +FULL_SIMP_TAC list_ss [lem5, value_env_num_tv_thm]); + +val lem7 = Q.prove ( +`!E' E1 E2 E1'. (EB_tv::(E1++[EB_tv]++E2) = E1'++[EB_tv]++E2) = (E1' = EB_tv::E1)`, +METIS_TAC [APPEND_ASSOC, APPEND_11, APPEND]); + +val lem8 = Q.prove ( +`!S S' n. (shiftTsig 0 1 (shiftTsig n 1 S) = shiftTsig (n + 1) 1 S') = (S' = shiftTsig 0 1 S)`, +Induct THEN FULL_SIMP_TAC list_ss [shiftTsig_def, LAMBDA_PROD2] THEN +Cases_on `S''` THEN SRW_TAC [] [] THEN EQ_TAC THEN SRW_TAC [] [] THENL +[Cases_on `h` THEN Cases_on `h'` THEN + FULL_SIMP_TAC list_ss [shiftt_11, + (GSYM o SIMP_RULE list_ss [] o Q.SPECL [`r'`, `n`, `0`, `1`] o hd o CONJUNCTS) + shiftt_com_lem], + METIS_TAC[shiftt_com_lem, ADD, ADD_0]]); + +val lem9 = Q.prove ( +`!E n t_list. value_env E ==> + (idxsubnE n t_list E = MAP (\EB. idxsubnEB n (MAP (shiftt 0 n) t_list) EB) E)`, +Induct_on `E` THEN SRW_TAC [] [value_env_def, idxsubnE_def] THEN Cases_on `h` THEN +FULL_SIMP_TAC (srw_ss()) [value_env_def, idxsubnE_def] THEN IMP_RES_TAC value_env_num_tv_thm +THEN FULL_SIMP_TAC (srw_ss()) []); + + +in + +val type_subst_pat_thm = Q.prove ( +`!S' E' p t E''. JTpat S' E' p t E'' ==> + !S E1 t_list. (S' = shiftTsig (num_tv E1) 1 S) /\ (E' = E1++[EB_tv]++E2) /\ + EVERY (tkind E2) t_list ==> + JTpat S (idxsubnE 0 t_list E1++E2) p + (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t) + (idxsubnE (num_tv E1) t_list E'')`, +RULE_INDUCT_TAC JTpat_sind [JTpat_fun] +[([``"JTpat_var"``], + SRW_TAC [ARITH_ss] [idxsubnE_def, idxsubnEB_def, idxsubnts_def, num_tv_def, MAP_MAP, + shift_idxsubn_com_thm] THEN + METIS_TAC [type_subst_ok_thm]), + ([``"JTpat_any"``, ``"JTpat_constant"``, ``"JTpat_construct_any"``], + SRW_TAC [] [idxsubnE_def] THEN METIS_TAC [type_subst_const_thm, type_subst_ok_thm, type_subst_constr_p_thm]), + ([``"JTpat_alias"``], + SRW_TAC [ARITH_ss] [idxsubnE_def, idxsubnEB_def, idxsubnts_def, num_tv_def, MAP_MAP, + shift_idxsubn_com_thm, GSYM shiftt_add_thm, domEB_def, idxsubnE_dom_thm] THEN + IMP_RES_TAC pat_env_lem THEN SRW_TAC [] [value_env_num_tv_thm]), + ([``"JTpat_typed"``], + SRW_TAC [] [] THEN + `idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) + (substs_typevar_typexpr (shiftTsig (num_tv E1) 1 S) src_t) = + substs_typevar_typexpr S src_t` by + (IMP_RES_TAC ftv_lem1 THEN IMP_RES_TAC ftv_lem2 THEN + SRW_TAC [] [idxsubn_subst_com_lem, EVERY_MAP, shiftTsig_def, LAMBDA_PROD2, + MAP_MAP, sub_shiftt_thm2, MAP_I, src_t_idxsubn_thm]) THEN + METIS_TAC [type_subst_inst_any_thm, type_subst_teq_thm]), + ([``"JTpat_construct"``], + SRW_TAC [] [] THEN + Q.EXISTS_TAC `MAP (\(p, E, t). (p, idxsubnE (num_tv E1) t_list E, + idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t)) + pattern_E_t_list` THEN + FULL_SIMP_TAC list_ss [LAMBDA_PROD2, ELIM_UNCURRY, EVERY_MAP, MAP_REVERSE, REVERSE_FLAT, MAP_FLAT, + MAP_MAP, ETA_THM, idxsubnE_dom_thm] THEN + SRW_TAC [] [] THENL + [FULL_SIMP_TAC list_ss [GSYM MAP_REVERSE] THEN HO_MATCH_MP_TAC lem6 THEN + FULL_SIMP_TAC list_ss [EVERY_MEM] THEN SRW_TAC [] [] THEN METIS_TAC [pat_env_lem], + IMP_RES_TAC type_subst_constr_p_thm THEN FULL_SIMP_TAC list_ss [MAP_MAP], + FULL_SIMP_TAC list_ss [EVERY_MEM]]), + ([``"JTpat_tuple"``], + SRW_TAC [] [] THEN + Q.EXISTS_TAC `MAP (\(p, t, E). (p, idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t, + idxsubnE (num_tv E1) t_list E)) + pattern_t_E_list` THEN + FULL_SIMP_TAC list_ss [LAMBDA_PROD2, ELIM_UNCURRY, EVERY_MAP, MAP_REVERSE, REVERSE_FLAT, MAP_FLAT, + MAP_MAP, ETA_THM, idxsubnE_dom_thm, idxsubn_def] THEN + SRW_TAC [] [] THENL + [FULL_SIMP_TAC list_ss [GSYM MAP_REVERSE] THEN HO_MATCH_MP_TAC lem6 THEN + FULL_SIMP_TAC list_ss [EVERY_MEM] THEN SRW_TAC [] [] THEN METIS_TAC [pat_env_lem], + FULL_SIMP_TAC list_ss [EVERY_MEM]]), + ([``"JTpat_record"``], + SRW_TAC [] [] THEN + Q.EXISTS_TAC `MAP (\(fn, p, E, t). (fn, p, idxsubnE (num_tv E1) t_list E, + idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t)) + field_name_pattern_E_t_list` THEN + FULL_SIMP_TAC list_ss [LAMBDA_PROD2, ELIM_UNCURRY, EVERY_MAP, MAP_REVERSE, REVERSE_FLAT, MAP_FLAT, + MAP_MAP, ETA_THM, idxsubnE_dom_thm] THEN + SRW_TAC [] [] THENL + [FULL_SIMP_TAC list_ss [GSYM MAP_REVERSE] THEN HO_MATCH_MP_TAC lem6 THEN + FULL_SIMP_TAC list_ss [EVERY_MEM] THEN SRW_TAC [] [] THEN METIS_TAC [pat_env_lem], + FULL_SIMP_TAC list_ss [EVERY_MEM], + FULL_SIMP_TAC list_ss [EVERY_MEM] THEN SRW_TAC [] [] THEN RES_TAC THEN + IMP_RES_TAC type_subst_field_thm THEN FULL_SIMP_TAC list_ss [EVERY_MEM, MAP_MAP]]), + ([``"JTpat_cons"``], + SRW_TAC [] [idxsubnE_append_thm, idxsubn_def] THEN IMP_RES_TAC pat_env_lem THEN + SRW_TAC [] [value_env_num_tv_thm] THEN METIS_TAC [idxsubnE_dom_thm]), + ([``"JTpat_or"``], + SRW_TAC [] [] THEN IMP_RES_TAC pat_env_lem THEN FULL_SIMP_TAC (srw_ss()) [lem9] THEN + METIS_TAC [PERM_MAP])]); + +val type_subst_lem = Q.prove ( +`(!S' E' e t. JTe S' E' e t ==> + !S E1 t_list. (S' = shiftTsig (num_tv E1) 1 S) /\ (E' = E1++[EB_tv]++E2) /\ + EVERY (tkind E2) t_list ==> + JTe S (idxsubnE 0 t_list E1++E2) e (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t)) /\ + (!S' E' pm t1 t2. JTpat_matching S' E' pm t1 t2 ==> + !S E1 t_list. (S' = shiftTsig (num_tv E1) 1 S) /\ (E' = E1++[EB_tv]++E2) /\ + EVERY (tkind E2) t_list ==> + JTpat_matching S (idxsubnE 0 t_list E1++E2) pm + (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t1) + (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t2)) /\ + (!S' E' lb E''. JTlet_binding S' E' lb E'' ==> + !S E1 t_list. (S' = shiftTsig (num_tv E1) 1 S) /\ (E' = E1++[EB_tv]++E2) /\ + EVERY (tkind E2) t_list ==> + JTlet_binding S (idxsubnE 0 t_list E1++E2) lb (idxsubnE (num_tv E1) t_list E'')) /\ + (!S' E' lrbs E''. JTletrec_binding S' E' lrbs E'' ==> + !S E1 t_list. (S' = shiftTsig (num_tv E1) 1 S) /\ (E' = E1++[EB_tv]++E2) /\ + EVERY (tkind E2) t_list ==> + JTletrec_binding S (idxsubnE 0 t_list E1++E2) lrbs (idxsubnE (num_tv E1) t_list E''))`, +RULE_INDUCT_TAC JTe_ind [JTe_fun] +[([``"JTe_cons"``, ``"JTe_apply"``, ``"JTe_and"``, ``"JTe_or"``, ``"JTe_ifthenelse"``, ``"JTe_while"``, + ``"JTe_sequence"``, ``"JTe_match"``, ``"JTe_function"``, ``"JTe_try"``, ``"JTe_assert"``], + SRW_TAC [] [idxsubn_def] THEN IMP_RES_TAC type_subst_teq_thm THEN + FULL_SIMP_TAC (srw_ss()) [idxsubn_def] THEN + METIS_TAC [type_subst_ok_thm]), + ([``"JTe_uprim"``, ``"JTe_bprim"``, ``"JTe_ident"``, ``"JTe_constant"``], + METIS_TAC [type_subst_uprim_thm, type_subst_bprim_thm, type_subst_vn_thm, type_subst_const_thm, + type_subst_teq_thm]), + ([``"JTe_typed"``], + SRW_TAC [] [] THEN + `idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) + (substs_typevar_typexpr (shiftTsig (num_tv E1) 1 S) src_t) = + substs_typevar_typexpr S src_t` by + (IMP_RES_TAC ftv_lem1 THEN IMP_RES_TAC ftv_lem2 THEN + SRW_TAC [] [idxsubn_subst_com_lem, EVERY_MAP, shiftTsig_def, LAMBDA_PROD2, + MAP_MAP, sub_shiftt_thm2, MAP_I, src_t_idxsubn_thm]) THEN + METIS_TAC [type_subst_inst_any_thm, type_subst_teq_thm]), + ([``"JTe_tuple"``], + SRW_TAC [] [idxsubn_def, MAP_MAP] THEN + Q.EXISTS_TAC `MAP (\(e, t). (e, idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t)) e_t_list` THEN + SRW_TAC [] [MAP_MAP, LAMBDA_PROD2, ETA_THM, EVERY_MAP] THEN + FULL_SIMP_TAC list_ss [EVERY_MEM] THEN IMP_RES_TAC type_subst_teq_thm THEN + FULL_SIMP_TAC (srw_ss()) [idxsubn_def, MAP_MAP, EVERY_MEM]), + ([``"JTe_construct"``], + SRW_TAC [] [idxsubn_def, MAP_MAP] THEN + Q.EXISTS_TAC `MAP (\(e, t). (e, idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t)) + e_t_list` THEN + SRW_TAC [] [MAP_MAP, LAMBDA_PROD2, ETA_THM, EVERY_MAP] THEN + FULL_SIMP_TAC list_ss [EVERY_MEM] THEN IMP_RES_TAC type_subst_constr_p_thm THEN + IMP_RES_TAC type_subst_teq_thm THEN + FULL_SIMP_TAC list_ss [EVERY_MEM, MAP_MAP] THEN METIS_TAC []), + ([``"JTe_record_constr"``], + SRW_TAC [] [idxsubn_def, MAP_MAP] THEN + MAP_EVERY Q.EXISTS_TAC [`field_name'_list`, + `MAP (\a. idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) a) t'_list`, + `MAP (\(fn, e, t). (fn, e, idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t)) + field_name_e_t_list`, `typeconstr_name`, `kind`] THEN + SRW_TAC [] [MAP_MAP, LAMBDA_PROD2, EVERY_MAP, ETA_THM] THEN + IMP_RES_TAC type_subst_lookup_thm THEN IMP_RES_TAC type_subst_teq_thm THEN + SRW_TAC [] [idxsubnEB_def] THEN + FULL_SIMP_TAC list_ss [EVERY_MEM] THEN SRW_TAC [] [GSYM idxsubn_def] THEN + MATCH_MP_TAC type_subst_field_thm THEN METIS_TAC [EVERY_MEM]), + ([``"JTe_record_with"``], + SRW_TAC [] [] THEN + MAP_EVERY Q.EXISTS_TAC [`MAP (\(fn, e, t). + (fn, e, idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t)) + field_name_e_t_list`, + `idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t''`] THEN + SRW_TAC [] [MAP_MAP, LAMBDA_PROD2, EVERY_MAP] THEN + FULL_SIMP_TAC list_ss [EVERY_MEM] THEN SRW_TAC [] [GSYM idxsubn_def] THEN + IMP_RES_TAC type_subst_teq_thm THEN FULL_SIMP_TAC (srw_ss()) [idxsubnEB_def, EVERY_MEM] THEN + MATCH_MP_TAC type_subst_field_thm THEN METIS_TAC [EVERY_MEM]), + ([``"JTe_record_proj"``], + SRW_TAC [] [] THEN METIS_TAC [type_subst_field_thm, type_subst_teq_thm]), + ([``"JTe_assertfalse"``], + SRW_TAC [] [idxsubn_def] THEN METIS_TAC [type_subst_ok_thm, type_subst_teq_thm]), + ([``"JTe_location"``], + SRW_TAC [] [idxsubn_def] THEN IMP_RES_TAC type_subst_lookup_thm THEN SRW_TAC [] [idxsubnEB_def] THEN1 + METIS_TAC [type_subst_ok_thm] THEN IMP_RES_TAC type_subst_teq_thm THEN + FULL_SIMP_TAC (srw_ss ()) [idxsubn_def]), + ([``"JTe_for"``], + SRW_TAC [] [idxsubn_def, shiftt_def] THEN FULL_SIMP_TAC list_ss [shiftt_def] THENL + [Q.PAT_ASSUM `!S' E1' t_list. P S' E1' t_list ==> + JTe S' (idxsubnE 0 t_list E1' ++ E2) e'' (TE_constr [] TC_unit)` + (MATCH_MP_TAC o + SIMP_RULE list_ss [idxsubnE_def, idxsubnEB_def, idxsubnts_def, idxsubn_def] o + Q.SPECL [`S`, `EB_vn (VN_id lowercase_ident) (TS_forall (TE_constr [] TC_int))::E1`]) THEN + SRW_TAC [] [num_tv_def], + IMP_RES_TAC type_subst_teq_thm THEN FULL_SIMP_TAC (srw_ss()) [idxsubn_def]]), + ([``"JTpat_matching_pm"``], + SRW_TAC [] [] THEN + Q.EXISTS_TAC `MAP (\(p, e, E). (p, e, idxsubnE (num_tv E1) t_list E)) pattern_e_E_list` THEN + SRW_TAC [] [MAP_MAP, LAMBDA_PROD2, EVERY_MAP] THEN + FULL_SIMP_TAC list_ss [lem1, EVERY_MEM, num_tv_append_thm] THEN SRW_TAC [] [] THEN RES_TAC THEN + IMP_RES_TAC pat_env_lem THEN FULL_SIMP_TAC list_ss [value_env_num_tv_thm, lem3] THEN + IMP_RES_TAC (SIMP_RULE list_ss [EVERY_MEM] type_subst_pat_thm) THEN + FULL_SIMP_TAC list_ss [idxsubnE_append_thm] THEN METIS_TAC []), + ([``"JTlet_binding_poly"``], + SRW_TAC [] [] THEN + MAP_EVERY Q.EXISTS_TAC [`MAP (\(x, t). (x, idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t)) + x_t_list`, + `idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t`] THEN + FULL_SIMP_TAC list_ss [lem3] THEN + SRW_TAC [ARITH_ss] [MAP_MAP, LAMBDA_PROD2, GSYM MAP_REVERSE, lem4, idxsubnts_def, + shift_idxsubn_com_thm] THEN + IMP_RES_TAC type_subst_pat_thm THEN + FULL_SIMP_TAC list_ss [lem1, lem3, GSYM MAP_REVERSE, shift_idxsubn_com_thm, lem4, idxsubnts_def, + MAP_MAP, shiftt_add_thm]), + ([``"JTe_let_mono"``], + SRW_TAC [] [GSYM LEFT_EXISTS_AND_THM, GSYM MAP_REVERSE] THEN + FULL_SIMP_TAC list_ss [lem1, lem2, lem3, lem4, num_tv_append_thm, idxsubnE_append_thm, + idxsubnts_def, MAP_MAP, GSYM shiftt_add_thm] THEN + RES_TAC THEN DISJ1_TAC THEN + MAP_EVERY Q.EXISTS_TAC [`MAP (\(x, t). (x, idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t)) + x_t_list`, + `x_t_list'`, `t'`] THEN + SRW_TAC [ARITH_ss] [GSYM MAP_REVERSE, MAP_MAP, LAMBDA_PROD2, shift_idxsubn_com_thm, + GSYM shiftt_add_thm] THEN + METIS_TAC []), + ([``"JTe_let_poly"``], + SRW_TAC [] [GSYM LEFT_EXISTS_AND_THM, GSYM MAP_REVERSE] THEN + FULL_SIMP_TAC list_ss [lem1, lem2, lem3, lem4, num_tv_append_thm, idxsubnE_append_thm, num_tv_def, + idxsubnts_def, MAP_MAP_o, GSYM shiftt_add_thm, lem7, lem8, + idxsubnE_def, idxsubnEB_def] THEN + RES_TAC THEN DISJ2_TAC THEN + MAP_EVERY Q.EXISTS_TAC [`MAP (\(x, t). (x, idxsubn (num_tv E1 + 1) (MAP (shiftt 0 (num_tv E1 + 1)) + t_list) t)) + x_t_list`, + `x_t_list'`, `t'`] THEN + SRW_TAC [ARITH_ss] [GSYM MAP_REVERSE, MAP_MAP_o, o_DEF, LAMBDA_PROD2, shift_idxsubn_com_thm, + GSYM shiftt_add_thm]), + ([``"JTe_letrec"``], + SRW_TAC [] [GSYM MAP_REVERSE] THEN + FULL_SIMP_TAC list_ss [lem1, lem2, lem3, lem4, num_tv_append_thm, idxsubnE_append_thm, num_tv_def, + idxsubnts_def, MAP_MAP_o, o_DEF, GSYM shiftt_add_thm, lem7, lem8, + idxsubnE_def, idxsubnEB_def] THEN + RES_TAC THEN + Q.EXISTS_TAC `MAP (\(x, t). (x, idxsubn (num_tv E1 + 1) (MAP (shiftt 0 (num_tv E1 + 1)) t_list) t)) + x_t_list` THEN + SRW_TAC [ARITH_ss] [GSYM MAP_REVERSE, MAP_MAP_o, o_DEF, LAMBDA_PROD2, shift_idxsubn_com_thm, + GSYM shiftt_add_thm]), + ([``"JTletrec_binding_equal_function"``], + SRW_TAC [] [] THEN + FULL_SIMP_TAC list_ss [lem1, lem2, lem3, lem4, GSYM MAP_REVERSE, num_tv_append_thm, + idxsubnE_append_thm] THEN + Q.EXISTS_TAC `MAP (\(vn, pm, t, t'). (vn, pm, idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t, + idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t')) + value_name_pattern_matching_t_t'_list` THEN + SRW_TAC [ARITH_ss] [LAMBDA_PROD2, MAP_MAP, GSYM MAP_REVERSE, EVERY_MAP, shiftt_def, + shift_idxsubn_com_thm, GSYM shiftt_add_thm, idxsubnts_def, idxsubn_def] THEN + FULL_SIMP_TAC list_ss [EVERY_MEM] THEN SRW_TAC [] [] THEN RES_TAC THEN + FULL_SIMP_TAC list_ss [LAMBDA_PROD2, MAP_MAP, GSYM MAP_REVERSE, EVERY_MAP, shiftt_def, + shift_idxsubn_com_thm, GSYM shiftt_add_thm, idxsubnts_def, idxsubn_def])]); + +end; + +val type_subst_thm = save_thm ("type_subst_thm", +(GEN_ALL o + SIMP_RULE list_ss [num_tv_def, idxsubnE_def, shiftt_add_thm, AND_IMP_INTRO] o + Q.SPECL [`e`, `t`, `S`, `[]`, `t_list`] o + SIMP_RULE list_ss [GSYM RIGHT_FORALL_IMP_THM] o hd o CONJUNCTS) type_subst_lem); + +val _ = export_theory(); + diff --git a/vendors/ott/examples/ocaml_light/hol/type_substsScript.sml b/vendors/ott/examples/ocaml_light/hol/type_substsScript.sml new file mode 100644 index 000000000000..1347702e8553 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/type_substsScript.sml @@ -0,0 +1,31 @@ +open bossLib HolKernel boolLib listTheory; +open ottTheory caml_typedefTheory; +open basicTheory utilTheory; + +val _ = new_theory "type_substs"; + +val substs_tv_empty_thm = Q.store_thm ("substs_tv_empty_thm", +`(!t. substs_typevar_typexpr [] t = t) /\ + (!tl. MAP (substs_typevar_typexpr []) tl = tl)`, +Induct THEN SRW_TAC [] [substs_typevar_typexpr_def, list_assoc_def] THEN METIS_TAC []); + +val substs_typevar_typexpr_drop_lem = Q.store_thm ("substs_typevar_typexpr_drop_lem", +`!subst t tv t'. ~MEM tv (ftv_typexpr t) ==> + (substs_typevar_typexpr ((tv, t')::subst) t = substs_typevar_typexpr subst t)`, +recInduct substs_typevar_typexpr_ind THEN +SRW_TAC [] [substs_typevar_typexpr_def, ftv_typexpr_def, list_assoc_def, MAP_EQ, MEM_FLAT, EVERY_MAP, + EVERY_MEM]); + + + +val substs_typevar_typexpr_id_lem = Q.store_thm ("substs_typevar_typexpr_id_lem", +`!subst t. (ftv_typexpr t = []) ==> (substs_typevar_typexpr subst t = t)`, +recInduct substs_typevar_typexpr_ind THEN +SRW_TAC [] [substs_typevar_typexpr_def, ftv_typexpr_def] THEN +Induct_on `typexpr_list` THEN SRW_TAC [] []); + + + + +val _ = export_theory (); + diff --git a/vendors/ott/examples/ocaml_light/hol/utilScript.sml b/vendors/ott/examples/ocaml_light/hol/utilScript.sml new file mode 100644 index 000000000000..2694d09662f3 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/utilScript.sml @@ -0,0 +1,378 @@ +open HolKernel boolLib bossLib listTheory sortingTheory combinTheory wordsTheory pairTheory optionTheory; +open rich_listTheory; +open ottTheory; + +val _ = new_theory "util"; + +val LAMBDA_PROD2 = Q.store_thm ("LAMBDA_PROD2", +`(\(x,y). P x y) = (\z. P (FST z) (SND z))`, +RW_TAC list_ss [FUN_EQ_THM] THEN Cases_on `z` THEN RW_TAC list_ss []); + +val MAP_I = Q.store_thm ("MAP_I", +`!l. MAP (\x. x) l = l`, +Induct THEN RW_TAC list_ss []); + +val MAP_MAP = save_thm ("MAP_MAP", SIMP_RULE list_ss [o_DEF] MAP_MAP_o); + +val DISJOINT_def = Define +`(DISJOINT [] l = T) /\ + (DISJOINT (h::l1) l2 = ~(MEM h l2) /\ DISJOINT l1 l2)`; + +val DISJOINT_RIGHT = Q.store_thm ("DISJOINT_RIGHT", +`!l1 h l2. (DISJOINT l1 [] = T) /\ + (DISJOINT l1 (h::l2) = ~(MEM h l1) /\ DISJOINT l1 l2)`, +Induct THEN RW_TAC list_ss [DISJOINT_def] THEN METIS_TAC []); + +val DISJOINT_APPEND = Q.store_thm ("DISJOINT_APPEND", +`(!l1 l2 l3. DISJOINT (l1++l2) l3 = DISJOINT l1 l3 /\ DISJOINT l2 l3) /\ + (!l1 l2 l3. DISJOINT l1 (l2++l3) = DISJOINT l1 l2 /\ DISJOINT l1 l3)`, +STRIP_TAC THEN Induct THEN RW_TAC list_ss [DISJOINT_def] THEN METIS_TAC []); + +val DISJOINT_MEM = Q.store_thm ("DISJOINT_MEM", +`!l1 l2. DISJOINT l1 l2 = EVERY (\y. ~MEM y l2) l1`, +Induct THEN RW_TAC list_ss [DISJOINT_def]); + +val DISJOINT_REVERSE = Q.store_thm ("DISJOINT_REVERSE", +`!l1 l2. DISJOINT l1 l2 = DISJOINT (REVERSE l1) l2`, +Induct THEN RW_TAC list_ss [DISJOINT_def, DISJOINT_APPEND] THEN METIS_TAC []); + +val ALL_DISTINCT_APPEND = Q.store_thm ("ALL_DISTINCT_APPEND", +`!l1 l2. ALL_DISTINCT (l1++l2) = + ALL_DISTINCT l1 /\ ALL_DISTINCT l2 /\ DISJOINT l1 l2`, +Induct THEN RW_TAC list_ss [DISJOINT_def] THEN EQ_TAC THEN RW_TAC list_ss [EVERY_CONJ, EVERY_MEM]); + +val COND_EXPAND_EQ = Q.store_thm ("COND_EXPAND_EQ", +`!b t1 t2 v. ((if b then t1 else t2) = v) = (b /\ (t1 = v)) \/ (~b /\ (t2 = v))`, +METIS_TAC []); + +val MAP2_MAP = Q.store_thm ("MAP2_MAP", +`!l1 l2 f g h. (LENGTH l1 = LENGTH l2) ==> + (MAP2 f (MAP g l1) (MAP h l2) = MAP2 (\x y. f (g x) (h y)) l1 l2)`, +Induct THEN Cases_on `l2` THEN RW_TAC list_ss []); + +val MAP2_ELIM = Q.store_thm ("MAP2_ELIM", +`!l f. MAP2 (\x y. f x y) l l = MAP (\x. f x x) l`, +Induct THEN RW_TAC list_ss []); + +val MAP_EQ = Q.store_thm ("MAP_EQ", +`!l f g. (MAP f l = MAP g l) = !a. MEM a l ==> (f a = g a)`, +Induct THEN RW_TAC list_ss [] THEN METIS_TAC []); + +val MAP_MAP2 = Q.store_thm ("MAP_MAP2", +`!l1 l2 f g. (LENGTH l1 = LENGTH l2) ==> (MAP f (MAP2 g l1 l2) = MAP2 (\x y. f (g x y)) l1 l2)`, +Induct THEN Cases_on `l2` THEN RW_TAC list_ss []); + +val MAP2_IGNORE = Q.store_thm ("MAP2_IGNORE", +`(!l1 l2 f. (LENGTH l1 = LENGTH l2) ==> (MAP2 (\x y. f x) l1 l2 = MAP f l1)) /\ + (!l1 l2 f. (LENGTH l1 = LENGTH l2) ==> (MAP2 (\x y. f y) l1 l2 = MAP f l2))`, +CONJ_TAC THEN Induct THEN Cases_on `l2` THEN RW_TAC list_ss []); + +val MAP2_LENGTH = Q.store_thm ("MAP2_LENGTH", +`!l1 l2 f. (LENGTH l1 = LENGTH l2) ==> (LENGTH (MAP2 f l1 l2) = LENGTH l1)`, +Induct THEN Cases_on `l2` THEN RW_TAC list_ss []); + +val EVERY_MAP2 = Q.store_thm ("EVERY_MAP2", +`!l1 l2 f g. (LENGTH l1 = LENGTH l2) ==> + (EVERY f (MAP2 g l1 l2) = EVERY (\x. x) (MAP2 (\x y. f (g x y)) l1 l2))`, +Induct THEN Cases_on `l2` THEN RW_TAC list_ss []); + +val LENGTH_NIL_ALT = Q.store_thm ("LENGTH_NIL_ALT", +`!l. (0 = LENGTH l) = (l = [])`, +METIS_TAC [LENGTH_NIL]); + +val LENGTH_1 = Q.store_thm ("LENGTH_1", +`!l. (1 = LENGTH l) = (?x. l = [x])`, +Induct THEN RW_TAC list_ss [LENGTH_NIL]); + +val EXTEND_PERM = Q.store_thm ("EXTEND_PERM", +`!l1 l2. PERM l1 l2 ==> !l3. (LENGTH l3 = LENGTH l1) ==> + ?l4. (LENGTH l2 = LENGTH l4) /\ PERM l3 l4 /\ PERM (ZIP (l1, l3)) (ZIP (l2, l4))`, +HO_MATCH_MP_TAC PERM_IND THEN RW_TAC list_ss [LENGTH_NIL] THENL +[Q.EXISTS_TAC `[]` THEN RW_TAC list_ss [PERM_REFL], + Cases_on `l3` THEN FULL_SIMP_TAC list_ss [] THEN RES_TAC THEN Q.EXISTS_TAC `h::l4` THEN + RW_TAC list_ss [PERM_CONS_IFF], + Cases_on `l3` THEN FULL_SIMP_TAC list_ss [] THEN Cases_on `t` THEN FULL_SIMP_TAC list_ss [] THEN + RES_TAC THEN Q.EXISTS_TAC `h'::h::l4` THEN RW_TAC list_ss [PERM_SWAP_AT_FRONT], + METIS_TAC [PERM_TRANS, PERM_LENGTH]]); + +val PERM_MAP = Q.store_thm ("PERM_MAP", +`!l1 l2. PERM l1 l2 ==> !f. PERM (MAP f l1) (MAP f l2)`, +HO_MATCH_MP_TAC PERM_IND THEN RW_TAC list_ss [PERM_REFL, PERM_CONS_IFF, PERM_SWAP_AT_FRONT] THEN + METIS_TAC [PERM_TRANS]); + +val ZIP_MAP_ID = Q.store_thm ("ZIP_MAP_ID", +`!l. ZIP (MAP FST l, MAP SND l) = l`, +Induct THEN RW_TAC list_ss []); + +val MAP3_def = Define +`(MAP3 f [] [] [] = []) /\ + (MAP3 f (h1::t1) (h2::t2) (h3::t3) = f h1 h2 h3 :: MAP3 f t1 t2 t3)`; + +val MAP_MAP3 = Q.store_thm ("MAP_MAP3", +`!l1 l2 l3 f g. (LENGTH l1 = LENGTH l2) /\ (LENGTH l2 = LENGTH l3) ==> + (MAP f (MAP3 g l1 l2 l3) = MAP3 (\x y z. f (g x y z)) l1 l2 l3)`, +Induct THEN Cases_on `l2` THEN Cases_on `l3` THEN RW_TAC list_ss [MAP3_def]); + +val EVERY_MAP3 = Q.store_thm ("EVERY_MAP3", +`!l1 l2 l3 f g. (LENGTH l1 = LENGTH l2) /\ (LENGTH l2 = LENGTH l3) ==> + (EVERY f (MAP3 g l1 l2 l3) = EVERY (\x. x) (MAP3 (\x y z. f (g x y z)) l1 l2 l3))`, +Induct THEN Cases_on `l2` THEN Cases_on `l3` THEN RW_TAC list_ss [MAP3_def]); + +val MAP3_IGNORE = Q.store_thm ("MAP3_IGNORE", +`(!l1 l2 l3 f. (LENGTH l1 = LENGTH l2) /\ (LENGTH l2 = LENGTH l3) ==> + (MAP3 (\x y z. f x y) l1 l2 l3 = MAP2 f l1 l2)) /\ + (!l1 l2 l3 f. (LENGTH l1 = LENGTH l2) /\ (LENGTH l2 = LENGTH l3) ==> + (MAP3 (\x y z. f y z) l1 l2 l3 = MAP2 f l2 l3)) /\ + (!l1 l2 l3 f. (LENGTH l1 = LENGTH l2) /\ (LENGTH l2 = LENGTH l3) ==> + (MAP3 (\x y z. f x z) l1 l2 l3 = MAP2 f l1 l3))`, +REPEAT CONJ_TAC THEN Induct THEN Cases_on `l2` THEN Cases_on `l3` THEN RW_TAC list_ss [MAP3_def]); + + +val MEM_FLAT = Q.store_thm ("MEM_FLAT", +`!l x. MEM x (FLAT l) = EXISTS (\l'. MEM x l') l`, +Induct THEN RW_TAC list_ss []); + + +val label_def = Define +`label x = T`; + +val EXISTS_REVERSE = Q.store_thm ("EXISTS_REVERSE", +`!l P. EXISTS P (REVERSE l) = EXISTS P l`, +RW_TAC list_ss [MEM_REVERSE, EXISTS_MEM]); + +val EVERY_REVERSE = Q.store_thm ("EVERY_REVERSE", +`!l P. EVERY P (REVERSE l) = EVERY P l`, +RW_TAC list_ss [MEM_REVERSE, EVERY_MEM]); + +val REVERSE_EQ_SYM_IMP = Q.prove ( +`!l1 l2. (REVERSE l1 = l2) ==> (l1 = REVERSE l2)`, +RW_TAC list_ss [] THEN METIS_TAC [REVERSE_REVERSE]); + +val REVERSE_EQ_SYM = Q.store_thm ("REVERSE_EQ_SYM", +`!l1 l2. (REVERSE l1 = l2) = (l1 = REVERSE l2)`, +METIS_TAC [REVERSE_EQ_SYM_IMP]); + +val EXISTS_FIRST_SPLIT = Q.store_thm ("EXISTS_FIRST_SPLIT", +`!l P. EXISTS P l ==> ?l1 l2 y. (l = l1 ++ [y] ++ l2) /\ ~EXISTS P l1 /\ P y`, +Induct THEN RW_TAC list_ss [] THEN FULL_SIMP_TAC list_ss [o_DEF] THENL +[MAP_EVERY Q.EXISTS_TAC [`[]`, `l`, `h`] THEN RW_TAC list_ss [], + Cases_on `P h` THEN RW_TAC list_ss [] THEN1 + (MAP_EVERY Q.EXISTS_TAC [`[]`, `l`, `h`] THEN RW_TAC list_ss []) THEN + RES_TAC THEN MAP_EVERY Q.EXISTS_TAC [`h::l1`, `l2`, `y`] THEN RW_TAC list_ss []]); + +val EXISTS_LAST_SPLIT = Q.store_thm ("EXISTS_LAST_SPLIT", +`!l P. EXISTS P l ==> ?l1 l2 y. (l = l1 ++ [y] ++ l2) /\ ~EXISTS P l2 /\ P y`, +RW_TAC list_ss [o_DEF] THEN +`?l1 l2 y. (REVERSE l = l1 ++ [y] ++ l2) /\ ~EXISTS P l1 /\ P y` by + METIS_TAC [EXISTS_REVERSE, EXISTS_FIRST_SPLIT] THEN +FULL_SIMP_TAC list_ss [REVERSE_EQ_SYM, REVERSE_APPEND, o_DEF] THEN +MAP_EVERY Q.EXISTS_TAC [`REVERSE l2`, `REVERSE l1`, `y`] THEN RW_TAC list_ss [EVERY_REVERSE] THEN +METIS_TAC [APPEND, APPEND_ASSOC]); + +val MAP_11_EQ = Q.store_thm ("MAP_11_EQ", +`!l1 l2 f g h. (!x x'. (f x = f x') = (x = x')) ==> + ((MAP (\x. f (g x)) l1 = MAP (\x. f (h x)) l2) = + (MAP (\x. g x) l1 = MAP (\x. h x) l2))`, +Induct THEN Cases_on `l2` THEN RW_TAC list_ss []); + +val MAP_11_ALL_DISTINCT = Q.store_thm ("MAP_11_ALL_DISTINCT", +`!l f g. (!x x'. (f x = f x') = (x = x')) ==> + (ALL_DISTINCT (MAP (\x. f (g x)) l) = ALL_DISTINCT (MAP g l))`, +Induct THEN RW_TAC list_ss [MEM_MAP]); + +val MAP_11_ALL_DISTINCT2 = Q.store_thm ("MAP_11_ALL_DISTINCT2", +`!l f. (!x x'. (f x = f x') = (x = x')) ==> + (ALL_DISTINCT (MAP f l) = ALL_DISTINCT l)`, +Induct THEN RW_TAC list_ss [MEM_MAP]); + +val MAP_FST_SND_EQ = Q.store_thm ("MAP_FST_SND_EQ", +`!l1 l2. ((MAP FST l1 = MAP FST l2) /\ (MAP SND l1 = MAP SND l2)) = (l1 = l2)`, +Induct THEN Cases_on `l2` THEN RW_TAC list_ss [] THEN Cases_on `h` THEN Cases_on `h'` THEN +RW_TAC list_ss [] THEN METIS_TAC []); + +val MAP_ZIP_SAME = Q.store_thm ("MAP_ZIP_SAME", +`!l f. MAP (\x. f (FST x) (SND x)) (ZIP (l, l)) = MAP (\x. f x x) l`, +Induct THEN RW_TAC list_ss []); + +val PERM_ALL_DISTINCT = Q.store_thm ("PERM_ALL_DISTINCT", +`!l1 l2. PERM l1 l2 ==> (ALL_DISTINCT l1 = ALL_DISTINCT l2)`, +RW_TAC list_ss [PERM_DEF, ALL_DISTINCT_FILTER] THEN +EQ_TAC THEN RW_TAC list_ss [] THEN +`!x. MEM x (FILTER ($= x) l1) = MEM x (FILTER ($= x) l2)` by METIS_TAC [] THEN +FULL_SIMP_TAC list_ss [MEM_FILTER]); + +local + +val lem1 = Q.prove ( +`!l1 l2. PERM l1 l2 ==> + ALL_DISTINCT (MAP FST l1) ==> + PERM l1 l2 /\ !x. list_assoc x l1 = list_assoc x l2`, +HO_MATCH_MP_TAC PERM_IND THEN +RW_TAC list_ss [PERM_REFL, PERM_MONO, PERM_SWAP_AT_FRONT, PERM_TRANS] THENL +[Cases_on `x` THEN RW_TAC list_ss [list_assoc_def], + Cases_on `x` THEN Cases_on `y` THEN RW_TAC list_ss [list_assoc_def] THEN FULL_SIMP_TAC list_ss [], + METIS_TAC [PERM_ALL_DISTINCT, PERM_MAP, PERM_TRANS], + METIS_TAC [PERM_ALL_DISTINCT, PERM_MAP, PERM_TRANS]]); + +val lem2 = Q.prove ( +`!l1 l2. ALL_DISTINCT (MAP FST l1) /\ ALL_DISTINCT (MAP FST l2) /\ + (!x. list_assoc x l1 = list_assoc x l2) ==> + PERM l1 l2`, +Induct THEN RW_TAC list_ss [list_assoc_def, PERM_CONS_EQ_APPEND] THENL +[Cases_on `l2` THEN RW_TAC list_ss [PERM_REFL] THEN Cases_on `h` THEN + FULL_SIMP_TAC list_ss [list_assoc_def] THEN METIS_TAC [NOT_SOME_NONE], + Cases_on `h` THEN FULL_SIMP_TAC list_ss [list_assoc_def] THEN + `?l3 l4. (l2 = l3++(q,r)::l4) /\ ~MEM q (MAP FST l3)` by METIS_TAC [list_assoc_split] THEN + MAP_EVERY Q.EXISTS_TAC [`l3`, `l4`] THEN RW_TAC list_ss [] THEN + FULL_SIMP_TAC list_ss [ALL_DISTINCT_APPEND, DISJOINT_RIGHT, list_assoc_append, list_assoc_def] THEN + Q.PAT_ASSUM `!l2'. P l2' ==> PERM l1 l2'` MATCH_MP_TAC THEN + RW_TAC list_ss [ALL_DISTINCT_APPEND, list_assoc_append] THEN + Cases_on `x = q` THEN RW_TAC list_ss [not_mem_list_assoc] THEN METIS_TAC []]); +in + +val PERM_list_assoc = Q.store_thm ("PERM_list_assoc", +`!l1 l2. ALL_DISTINCT (MAP FST l1) /\ ALL_DISTINCT (MAP FST l2) ==> + (PERM l1 l2 = (!x. list_assoc x l1 = list_assoc x l2))`, +METIS_TAC [lem1, lem2]); + +end; + +val MAP_split = Q.store_thm ("MAP_split", +`!l1 l2 l3 f. (l1++l2 = MAP f l3) = ?l4 l5. (l3 = l4++l5) /\ (l1 = MAP f l4) /\ (l2 = MAP f l5)`, +Induct THEN RW_TAC list_ss [] THEN Cases_on `l3` THEN RW_TAC list_ss [] THEN EQ_TAC THEN +RW_TAC list_ss [] THENL +[MAP_EVERY Q.EXISTS_TAC [`h'::l4`, `l5`] THEN RW_TAC list_ss [], + Cases_on `l4` THEN FULL_SIMP_TAC list_ss [], + Cases_on `l4` THEN FULL_SIMP_TAC list_ss [] THEN METIS_TAC []]); + +val MAP_pair = Q.store_thm ("MAP_pair", +`!l1 l2 f g h i. (MAP (\x. (f x, g x)) l1 = MAP (\x. (h x, i x)) l2) = + (MAP f l1 = MAP h l2) /\ (MAP g l1 = MAP i l2)`, +Induct THEN Cases_on `l2` THEN RW_TAC list_ss [] THEN METIS_TAC []); + +val ZIP_APPEND = Q.store_thm ("ZIP_APPEND", +`!l1 l2 l3 l4. (LENGTH l1 = LENGTH l3) /\ (LENGTH l2 = LENGTH l4) ==> + (ZIP (l1++l2, l3++l4) = ZIP (l1, l3) ++ ZIP (l2, l4))`, +Induct THEN RW_TAC list_ss [] THEN Cases_on `l3` THEN FULL_SIMP_TAC list_ss []); + +local + +val lem1 = Q.prove ( +`!l1 l2 l3 l4. (LENGTH l1 = LENGTH l3) ==> + ((l1++l2 = l3++l4) = (l1 = l3) /\ (l2 = l4))`, +Induct THEN RW_TAC list_ss [] THEN Cases_on `l3` THEN FULL_SIMP_TAC list_ss [] THEN METIS_TAC []); + +val lem2 = Q.prove ( +`!l1 l2 l3 l4. (LENGTH l2 = LENGTH l4) /\ (l1++l2 = l3++l4) ==> (LENGTH l1 = LENGTH l3)`, +RW_TAC list_ss [] THEN `LENGTH (l1++l2) = LENGTH (l3++l4)` by METIS_TAC [] THEN +FULL_SIMP_TAC list_ss [LENGTH_APPEND]); + +in + +val APPEND_LENGTH_11 = Q.store_thm ("APPEND_LENGTH_11", +`!l1 l2 l3 l4. (LENGTH l1 = LENGTH l3) \/ (LENGTH l2 = LENGTH l4) ==> + ((l1++l2 = l3++l4) = (l1 = l3) /\ (l2 = l4))`, +METIS_TAC [lem1, lem2]); + +end; + +val REVERSE_EQ = Q.store_thm ("REVERSE_EQ", +`!l1 l2. (REVERSE l1 = REVERSE l2) = (l1 = l2)`, +Induct THEN RW_TAC list_ss [] THEN Cases_on `l2` THEN FULL_SIMP_TAC list_ss [] THEN +METIS_TAC [APPEND_LENGTH_11, LENGTH, list_11]); + +val NOT_MEM_EMPTY = Q.store_thm ("NOT_MEM_EMPTY", +`!l. (!x. ~MEM x l) = (l = [])`, +Induct THEN RW_TAC list_ss [] THEN METIS_TAC []); + +val FLAT_MAP_SING = Q.store_thm ("FLAT_MAP_SING", +`!l f. FLAT (MAP (\x. [f x]) l) = MAP f l`, +Induct THEN RW_TAC list_ss []); + +val EVERY_FILTER = Q.store_thm ("EVERY_FILTER", +`!l f g. EVERY f l ==> EVERY f (FILTER g l)`, +METIS_TAC [EVERY_MEM, MEM_FILTER]); + +val FLAT_EQ_EMPTY = Q.store_thm ("FLAT_EQ_EMPTY", +`!l. (FLAT l = []) = EVERY (\x. x = []) l`, +Induct THEN RW_TAC list_ss []); + +val ALL_DISTINCT_REVERSE = Q.store_thm ("ALL_DISTINCT_REVERSE", +`!l. ALL_DISTINCT (REVERSE l) = ALL_DISTINCT l`, +Induct THEN RW_TAC list_ss [ALL_DISTINCT_APPEND, DISJOINT_RIGHT] THEN METIS_TAC []); + +val DISTINCT_INJ = Q.store_thm ("DISTINCT_INJ", +`!l i j. ALL_DISTINCT l ==> i < LENGTH l /\ j < LENGTH l ==> (EL i l = EL j l) ==> (i = j)`, +Induct THEN RW_TAC list_ss [] THEN Cases_on `i` THEN Cases_on `j` THEN RW_TAC list_ss [] THEN +FULL_SIMP_TAC list_ss [] THEN METIS_TAC [MEM_EL]); + +val MAP_FST_ZIP = Q.store_thm ("MAP_FST_ZIP", +`!l1 l2. (LENGTH l1 = LENGTH l2) ==> (MAP FST (ZIP (l1, l2)) = l1)`, +Induct THEN RW_TAC list_ss [] THEN Cases_on `l2` THEN FULL_SIMP_TAC list_ss []); + +val MAP_SND_ZIP = Q.store_thm ("MAP_SND_ZIP", +`!l1 l2. (LENGTH l1 = LENGTH l2) ==> (MAP SND (ZIP (l1, l2)) = l2)`, +Induct THEN RW_TAC list_ss [] THEN Cases_on `l2` THEN FULL_SIMP_TAC list_ss []); + +val MEM_SPLIT = Q.store_thm ("MEM_SPLIT", +`!l x. MEM x (MAP FST l) = ?l1 l2 y. l = l1 ++ [(x,y)] ++ l2`, +Induct THEN SRW_TAC [] [] THEN Cases_on `h` THEN SRW_TAC [] [] THEN +EQ_TAC THEN SRW_TAC [] [] THEN1 METIS_TAC [APPEND] THEN1 +METIS_TAC [APPEND] THEN Cases_on `l1` THEN FULL_SIMP_TAC list_ss [] THEN +METIS_TAC []); + +val FIRSTN_EL_LASTN = Q.store_thm ("FIRSTN_EL_LASTN", +`!tl n. (n < LENGTH tl) ==> (tl = FIRSTN n tl ++ [EL n tl] ++ LASTN (LENGTH tl - (n + 1)) tl)`, +Induct THEN SRW_TAC [] [LASTN_CONS, LASTN_LENGTH_ID] THEN Cases_on `n` THEN +FULL_SIMP_TAC (srw_ss()) [FIRSTN] THEN SRW_TAC [ARITH_ss] [arithmeticTheory.ADD1] THEN +`LENGTH tl - (n' + 1) <= LENGTH tl` by DECIDE_TAC THEN METIS_TAC [APPEND, LASTN_APPEND2]); + +val REMOVE_1_def = Define +`(REMOVE_1 v [] = NONE) /\ + (REMOVE_1 v (h::t) = + if h = v then + SOME t + else + OPTION_MAP (\x. h::x) (REMOVE_1 v t))`; + +val REMOVE_1_NONE = Q.store_thm ("REMOVE_1_NONE", +`!l v. (REMOVE_1 v l = NONE) = ~MEM v l`, +Induct THEN SRW_TAC [] [REMOVE_1_def]); + +val REMOVE_1_SOME = Q.store_thm ("REMOVE_1_SOME", +`!l v l'. (REMOVE_1 v l = SOME l') = + ?l1 l2. ~MEM v l1 /\ (l' = l1 ++ l2) /\ (l = l1++v::l2)`, +Induct THEN SRW_TAC [] [REMOVE_1_def] THEN EQ_TAC THEN SRW_TAC [] [] THENL +[MAP_EVERY Q.EXISTS_TAC [`[]`, `l`] THEN SRW_TAC [] [], + Cases_on `l1` THEN FULL_SIMP_TAC list_ss [], + MAP_EVERY Q.EXISTS_TAC [`h::l1`, `l2`] THEN SRW_TAC [] [], + Cases_on `l1` THEN FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THEN METIS_TAC []]); + +local + +(* Copied from sortingScript.sml *) +val FILTER_EQ_CONS_APPEND = Q.prove +(`!M N x. FILTER ($= x) M ++ x::N = x::FILTER ($= x) M ++ N`, + Induct THEN SRW_TAC [][]); + +in + +val PERM_EVAL = Q.store_thm ("PERM_EVAL", +`(PERM [] l = (l = [])) /\ + (PERM (h::t) l = + case (REMOVE_1 h l) of + NONE -> F + || SOME l' -> PERM t l')`, +SRW_TAC [] [PERM_NIL, PERM_CONS_EQ_APPEND] THEN +Cases_on `REMOVE_1 h l` THEN FULL_SIMP_TAC list_ss [REMOVE_1_NONE, REMOVE_1_SOME] THEN1 +METIS_TAC [MEM_APPEND, MEM] THEN EQ_TAC THEN SRW_TAC [] [] THENL +[FULL_SIMP_TAC list_ss [PERM_DEF] THEN SRW_TAC [] [] THEN + `FILTER ($= x) (l1 ++ h::l2) = FILTER ($= x) (M ++ h::N)` by METIS_TAC [] THEN + FULL_SIMP_TAC list_ss [FILTER_APPEND, FILTER] THEN Cases_on `x=h` THEN + FULL_SIMP_TAC list_ss [FILTER_EQ_CONS_APPEND], + METIS_TAC []]); + +end; + + +val _ = export_theory (); diff --git a/vendors/ott/examples/ocaml_light/hol/validScript.sml b/vendors/ott/examples/ocaml_light/hol/validScript.sml new file mode 100644 index 000000000000..490203902fbc --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/validScript.sml @@ -0,0 +1,229 @@ +open bossLib HolKernel boolLib combinTheory listTheory rich_listTheory optionTheory pairTheory; +open ottTheory ottLib caml_typedefTheory; +open utilTheory shiftTheory basicTheory environmentTheory shiftTheory type_substsTheory; + +val _ = new_theory "valid"; + +local + +val lem1 = Q.prove ( +`!EB E. Eok (EB::E) ==> EBok E EB`, +Cases_on `EB` THEN SRW_TAC [] [EBok_def, Eok_def] THENL +[Cases_on `t`, + Cases_on `t` THEN Cases_on `t0` THEN Cases_on `l` THEN Cases_on `t1`, + Cases_on `t`, + Cases_on `t`] THEN +FULL_SIMP_TAC list_ss [EBok_def, Eok_def, EVERY_MEM] THEN METIS_TAC []); + + +val lem2 = Q.prove ( +`!EB E. Eok (EB::E) ==> EBok (EB::E) EB`, +SRW_TAC [] [] THEN Cases_on `EB = EB_tv` THEN SRW_TAC [] [Eok_def, EBok_def] THEN +METIS_TAC [lem1, weak_EBok_thm, APPEND, MEM]); + +in + +val lookup_ok_thm = Q.store_thm ("lookup_ok_thm", +`!E name EB. Eok E /\ (lookup E name = SOME EB) ==> EBok E EB`, +Induct THEN SRW_TAC [] [lookup_def, shiftEB_add_thm] THENL +[METIS_TAC [lem2], + `EBok E EB2` by METIS_TAC [APPEND, ok_ok_thm] THEN Cases_on `h` THEN + FULL_SIMP_TAC list_ss [domEB_def, name_distinct] THEN + METIS_TAC [weak_one_tv_EBok_thm, APPEND, shiftE_def, num_tv_def], + METIS_TAC [APPEND, ok_ok_thm, weak_EBok_thm, domEB_def, MEM]]); + +end; + + +local + +val lem1 = Q.prove ( +`!l1 l2. MEM (a,b) l1 /\ (MAP FST l1 = MAP FST l2) ==> ?c. MEM (a,c) l2`, +Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN FULL_SIMP_TAC list_ss [] THEN Cases_on `h` THEN +SRW_TAC [] [] THEN METIS_TAC []); + +in + +val tvar_subst_ok_lem = Q.store_thm ("tvar_subst_ok_lem", +`!v_t_list t v_t_list'. EVERY (\v_t. tkind E (SND v_t)) (REVERSE v_t_list) /\ + (MAP FST v_t_list = MAP FST v_t_list') /\ + tkind E (substs_typevar_typexpr v_t_list' t) ==> + tkind E (substs_typevar_typexpr v_t_list t)`, +recInduct substs_typevar_typexpr_ind THEN +SRW_TAC [] [EVERY_MAP, substs_typevar_typexpr_def, Eok_def, EVERY_MEM] THEN1 +(Cases_on `list_assoc typevar sub` THEN SRW_TAC [] [Eok_def] THEN IMP_RES_TAC list_assoc_mem THEN + IMP_RES_TAC list_assoc_not_mem THENL + [Cases_on `list_assoc typevar v_t_list'` THEN FULL_SIMP_TAC list_ss [Eok_def] THEN + IMP_RES_TAC list_assoc_mem THEN METIS_TAC [lem1], + METIS_TAC [SND]]) +THEN METIS_TAC []); + +end; + + +val teq_ok_thm = Q.store_thm ("teq_ok_thm", +`!E t1 t2. JTeq E t1 t2 ==> tkind E t1 /\ tkind E t2`, +RULE_INDUCT_TAC JTeq_ind [Eok_def, EVERY_CONJ, EVERY_MAP] +[([``"JTeq_expand"``], + SRW_TAC [] [] THENL + [MATCH_MP_TAC tvar_subst_ok_lem THEN + SRW_TAC [] [EVERY_REVERSE, EVERY_MAP, MAP_MAP] THEN IMP_RES_TAC lookup_ok_thm THEN + FULL_SIMP_TAC (srw_ss()) [EBok_def, Eok_def, MAP_MAP, tp_to_tv_def] THEN + Q.EXISTS_TAC `MAP (\z. (SND z, TE_constr [] TC_unit)) t_typevar_list` THEN + SRW_TAC [] [MAP_MAP], + CCONTR_TAC THEN FULL_SIMP_TAC (srw_ss()) [o_DEF] THEN + IMP_RES_TAC lookup_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [EBok_def, + Eok_def, MAP_MAP, tp_to_tv_def]])]); + +val inst_named_ok_thm = Q.store_thm ("inst_named_ok_thm", +`!E t tps t'. JTinst_named E t (TPS_nary tps) t' ==> tkind E t /\ ntsok E tps t'`, +SRW_TAC [] [JTinst_named_cases] THEN +FULL_SIMP_TAC list_ss [Eok_def, MAP_MAP, GSYM MAP_REVERSE, tp_to_tv_def] THEN +MATCH_MP_TAC tvar_subst_ok_lem THEN Q.EXISTS_TAC `MAP (\z. (FST z,TE_constr [] TC_unit)) typevar_t_list` THEN +SRW_TAC [] [EVERY_REVERSE, MAP_MAP] THEN METIS_TAC []); + +val idxsub_ok_lem = Q.store_thm ("idxsub_ok_lem", +`!t_list t E. EVERY (tkind E) t_list /\ tkind (EB_tv::E) t ==> tkind E (idxsub t_list t)`, +HO_MATCH_MP_TAC idxsub_ind THEN +SRW_TAC [] [idxsub_def, Eok_def, EVERY_MAP, EVERY_MEM, idx_bound_def, + GSYM arithmeticTheory.ADD1] THEN1 METIS_TAC [MEM_EL] THEN +Cases_on `tcn` THEN FULL_SIMP_TAC list_ss [Eok_def] THEN Cases_on `Eok E` THEN +FULL_SIMP_TAC list_ss [lookup_def, domEB_def, name_distinct] THEN +Cases_on `lookup E (name_tcn t')` THEN FULL_SIMP_TAC list_ss [] THEN +IMP_RES_TAC lookup_name_thm THEN SRW_TAC [] [] THEN +FULL_SIMP_TAC list_ss [shiftEB_def, environment_binding_case_def]); + +val inst_ok_thm = Q.store_thm ("inst_ok_thm", +`!E t ts. JTinst E t ts ==> tkind E t /\ tsok E ts`, +SRW_TAC [] [JTinst_cases] THEN +FULL_SIMP_TAC list_ss [Eok_def, MAP_MAP, GSYM MAP_REVERSE, tp_to_tv_def] THEN +METIS_TAC [idxsub_ok_lem]); + +val prim_vn_constr_c_ok_thm = Q.store_thm ("prim_vn_constr_c_ok_thm", +`(!E unary_prim t. JTuprim E unary_prim t ==> tkind E t) /\ + (!E binary_prim t. JTbprim E binary_prim t ==> tkind E t) /\ + (!E vp t. JTvalue_name E vp t ==> tkind E t) /\ + (!E constr t. JTconstr_c E constr t ==> tkind E t)`, +SRW_TAC [] [JTuprim_cases, JTbprim_cases, JTconstr_c_cases, JTvalue_name_cases] THEN +SRW_TAC [] [Eok_def] THEN METIS_TAC [ok_ok_thm, inst_ok_thm]); + +val const_ok_thm = Q.store_thm ("const_ok_thm", +`(!E const t. JTconst E const t ==> tkind E t)`, +SRW_TAC [] [JTconst_cases] THEN +SRW_TAC [] [Eok_def] THEN METIS_TAC [ok_ok_thm, prim_vn_constr_c_ok_thm]); + +val field_constr_p_ok_thm = Q.store_thm ("field_constr_p_ok_thm", +`(!E fn t1 t2. JTfield E fn t1 t2 ==> tkind E t1 /\ tkind E t2) /\ + (!E constr tlist t. JTconstr_p E constr tlist t ==> EVERY (tkind E) tlist /\ tkind E t)`, +SRW_TAC [] [JTfield_cases, JTconstr_p_cases] THEN +IMP_RES_TAC inst_named_ok_thm THEN +FULL_SIMP_TAC list_ss [Eok_def, EVERY_MAP] THEN +METIS_TAC [ok_ok_thm]); + +val pat_ok_thm = Q.store_thm ("pat_ok_thm", +`!S E pat t E'. JTpat S E pat t E' ==> tkind E t`, +RULE_INDUCT_TAC JTpat_ind [Eok_def, EVERY_MAP, EVERY_CONJ, ELIM_UNCURRY, domEB_def] +[([``"JTpat_record"``], Cases_on `field_name_pattern_E_t_list` THEN FULL_SIMP_TAC list_ss [] THEN + METIS_TAC [field_constr_p_ok_thm])] +THEN +METIS_TAC [ok_ok_thm, prim_vn_constr_c_ok_thm, const_ok_thm, field_constr_p_ok_thm]); + +local + +val lem1 = Q.prove ( +`!vn ts. ~(EB_vn vn ts = EB_tv)`, FULL_SIMP_TAC list_ss [environment_binding_distinct]); + +val lem2 = Q.prove ( +`!E t k. tkind E t ==> tkind (EB_tv::E) (shiftt 0 1 t)`, +METIS_TAC [weak_one_tv_ok_thm, APPEND, shiftE_def, num_tv_def]); + +val lem3 = Q.prove ( +`!E1 E2. value_env E1 ==> tkind E2 t /\ Eok (E1++E2) ==> tkind (E1++E2) t`, +Induct THEN SRW_TAC [] [value_env_def] THEN Cases_on `h` THEN +FULL_SIMP_TAC list_ss [value_env_def] THEN `Eok (E1++E2)` by METIS_TAC [ok_ok_thm, APPEND] THEN +METIS_TAC [lem1, weak_ok_thm, APPEND, MEM]); + +val lem4 = Q.prove ( +`!E2 E1 E3. value_env E2 ==> tsok (E1++E3) ts /\ Eok (E1++E2++E3) ==> tsok (E1++E2++E3) ts`, +Induct THEN SRW_TAC [] [value_env_def] THEN Cases_on `h` THEN FULL_SIMP_TAC list_ss [value_env_def] THEN +`Eok (E1++E2++E3)` by METIS_TAC [value_env_ok_str_thm, value_env_def, APPEND, APPEND_ASSOC] THEN +METIS_TAC [lem1, weak_ok_thm, APPEND, APPEND_ASSOC, MEM]); + +val lem5 = Q.prove ( +`!l. EVERY value_env l ==> value_env (FLAT l)`, +Induct THEN SRW_TAC [] [value_env_def, value_env_append_thm]); + +val lem6 = Q.prove ( +`!l. Eok E /\ EVERY (\x. Eok (x ++ E)) l /\ EVERY value_env l ==> Eok (FLAT l ++ E)`, +Induct THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [] THEN Induct_on `h` THEN +SRW_TAC [] [] THEN Cases_on `h'` THEN FULL_SIMP_TAC list_ss [value_env_def, Eok_def] THEN +METIS_TAC [ok_ok_thm, lem4, lem5]); + +in + +val pat_ok_thm2 = Q.store_thm ("pat_ok_thm2", +`!S E pat t E'. JTpat S E pat t E' ==> Eok (E'++E)`, +RULE_INDUCT_TAC JTpat_sind [Eok_def, EVERY_MAP, EVERY_CONJ, ELIM_UNCURRY, domEB_def] +[([``"JTpat_var"``], METIS_TAC [lem2]), + ([``"JTpat_any"``, ``"JTpat_constant"``, ``"JTpat_construct_any"``], + METIS_TAC [ok_ok_thm, const_ok_thm, field_constr_p_ok_thm]), + ([``"JTpat_alias"``], METIS_TAC [lem2, lem3, pat_env_lem, APPEND, pat_ok_thm]), + ([``"JTpat_construct"``], + SRW_TAC [] [] THEN MATCH_MP_TAC lem6 THEN SRW_TAC [] [EVERY_REVERSE, EVERY_MAP] THEN1 + METIS_TAC [field_constr_p_ok_thm, ok_ok_thm] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN + METIS_TAC [pat_env_lem]), + ([``"JTpat_tuple"``], + SRW_TAC [] [] THEN MATCH_MP_TAC lem6 THEN SRW_TAC [] [EVERY_REVERSE, EVERY_MAP] THENL + [Cases_on `pattern_t_E_list` THEN FULL_SIMP_TAC list_ss [] THEN METIS_TAC [pat_ok_thm, ok_ok_thm], + FULL_SIMP_TAC list_ss [EVERY_MEM] THEN METIS_TAC [pat_env_lem]]), + ([``"JTpat_record"``], + SRW_TAC [] [] THEN MATCH_MP_TAC lem6 THEN SRW_TAC [] [EVERY_REVERSE, EVERY_MAP] THENL + [Cases_on `field_name_pattern_E_t_list` THEN FULL_SIMP_TAC list_ss [] THEN + METIS_TAC [field_constr_p_ok_thm, ok_ok_thm], + FULL_SIMP_TAC list_ss [EVERY_MEM] THEN METIS_TAC [pat_env_lem]]), + ([``"JTpat_cons"``], + SRW_TAC [] [] THEN MATCH_MP_TAC (SIMP_RULE list_ss [] (Q.SPEC `[E''; E']` lem6)) THEN + METIS_TAC [pat_env_lem, ok_ok_thm])]); + +end; + +local + +val lem1 = Q.prove ( +`!l f g. value_env (MAP (\z. EB_vn (f z) (g z)) l)`, +Induct THEN SRW_TAC [] [value_env_def]); + +in + +val ok_thm = Q.prove ( +`(!S E e t. JTe S E e t ==> tkind E t) /\ + (!S E pm t1 t2. JTpat_matching S E pm t1 t2 ==> tkind E t1 /\ tkind E t2) /\ + (!S E lb E'. JTlet_binding S E lb E' ==> T) /\ + (!S E lrb E'. JTletrec_binding S E lrb E' ==> T)`, +RULE_INDUCT_TAC JTe_ind [Eok_def, EVERY_MAP] +[([``"JTe_uprim"``, ``"JTe_bprim"``, ``"JTe_ident"``, ``"JTe_constant"``, ``"JTe_construct"``, + ``"JTe_record_proj"``, ``"JTe_tuple"``, ``"JTe_cons"``, ``"JTe_and"``, ``"JTe_or"``, ``"JTe_while"``, + ``"JTe_for"``, ``"JTe_assert"``, ``"JTe_location"``, ``"JTe_record_with"``, ``"JTe_function"``], + METIS_TAC [prim_vn_constr_c_ok_thm, const_ok_thm, field_constr_p_ok_thm, pat_ok_thm, teq_ok_thm]), + ([``"JTe_record_constr"``], + SRW_TAC [] [] THEN METIS_TAC [teq_ok_thm]), + (* + Cases_on `field_name_e_t_list` THEN FULL_SIMP_TAC list_ss [] THEN IMP_RES_TAC field_constr_p_ok_thm THEN + FULL_SIMP_TAC list_ss [Eok_def, COND_EXPAND_EQ] THEN + Cases_on `lookup E (name_tcn typeconstr_name)` THEN FULL_SIMP_TAC list_ss [option_case_def] THEN + IMP_RES_TAC lookup_name_thm THEN + FULL_SIMP_TAC list_ss [environment_binding_case_def, environment_binding_distinct, + environment_binding_11] THEN METIS_TAC [ok_ok_thm]), + *) + ([``"JTe_let_mono"``, ``"JTe_let_poly"``, ``"JTe_letrec"``], + METIS_TAC [lem1, value_env_ok_str_thm, APPEND, MAP_REVERSE]), + ([``"JTpat_matching_pm"``], Cases_on `pattern_e_E_list` THEN FULL_SIMP_TAC list_ss [] THEN + METIS_TAC [pat_ok_thm, pat_env_lem, value_env_ok_str_thm, APPEND])]); + +val _ = save_thm ("ok_thm", ok_thm); + +end; + + +val _ = export_theory (); + diff --git a/vendors/ott/examples/ocaml_light/hol/weakenScript.sml b/vendors/ott/examples/ocaml_light/hol/weakenScript.sml new file mode 100644 index 000000000000..b2747ac7eb96 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/hol/weakenScript.sml @@ -0,0 +1,830 @@ +open bossLib HolKernel boolLib listTheory rich_listTheory optionTheory combinTheory arithmeticTheory pairTheory; +open ottTheory ottLib caml_typedefTheory; +open utilTheory basicTheory shiftTheory environmentTheory validTheory type_substsTheory; + +val _ = Parse.hide "S"; + +val _ = new_theory "weaken"; + +val idxsub_shift_thm = Q.prove ( +`!t_list t n. shiftt n 1 (idxsub t_list t) = + idxsub (MAP (\t. shiftt n 1 t) t_list) (shiftt (n + 1) 1 t)`, +HO_MATCH_MP_TAC idxsub_ind THEN +SRW_TAC [ARITH_ss] [idxsub_def, shiftt_def, EL_MAP, ADD1, MAP_MAP, MAP_EQ] THEN +SRW_TAC [] [GSYM ADD1, idxsub_def, DECIDE ``!x:num.x + 2 = SUC (x + 1)``]); + + +val weak_one_tv_teq_thm = Q.store_thm ("weak_one_tv_teq_thm", +`!E t1 t2. JTeq E t1 t2 ==> (E = E1++E2) ==> + JTeq (shiftE 0 1 E1++[EB_tv]++E2) (shiftt (num_tv E1) 1 t1) (shiftt (num_tv E1) 1 t2)`, +RULE_INDUCT_TAC JTeq_ind [shiftt_def] +[([``"JTeq_refl"``], METIS_TAC [weak_one_tv_ok_thm, JTeq_rules]), + ([``"JTeq_sym"``], METIS_TAC [JTeq_rules]), + ([``"JTeq_trans"``], METIS_TAC [JTeq_rules]), + ([``"JTeq_arrow"``], METIS_TAC [JTeq_rules]), + ([``"JTeq_tuple"``], + SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [Once JTeq_cases] THEN NTAC 3 DISJ2_TAC THEN + Q.EXISTS_TAC `MAP (\(x,y). (shiftt (num_tv E1) 1 x, shiftt (num_tv E1) 1 y)) + t_t'_list` THEN + SRW_TAC [] [MAP_MAP, LAMBDA_PROD2, EVERY_MAP]), + ([``"JTeq_constr"``], + SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [Once JTeq_cases] THEN NTAC 4 DISJ2_TAC THEN + Q.EXISTS_TAC `MAP (\(x,y). (shiftt (num_tv E1) 1 x, shiftt (num_tv E1) 1 y)) + t_t'_list` THEN + SRW_TAC [] [MAP_MAP, LAMBDA_PROD2, EVERY_MAP, weak_one_tv_ok_thm]), + ([``"JTeq_expand"``], + SRW_TAC [] [] THEN SRW_TAC [] [Once JTeq_cases, MAP_MAP] THEN NTAC 3 DISJ2_TAC THEN DISJ1_TAC THEN + IMP_RES_TAC weak_one_tv_lookup_thm THEN FULL_SIMP_TAC (srw_ss()) [shiftEB_def] THEN + Q.EXISTS_TAC `MAP (\(x,y). (shiftt (num_tv E1) 1 x, y)) t_typevar_list` THEN + SRW_TAC [] [MAP_MAP, LAMBDA_PROD2, EVERY_MAP] THENL + [SRW_TAC [] [subst_shiftt_com_lem, MAP_MAP], + METIS_TAC [weak_one_tv_ok_thm], + POP_ASSUM (K ALL_TAC) THEN Q.PAT_ASSUM `lookup x y = z` (K ALL_TAC) THEN + Induct_on `t_typevar_list` THEN SRW_TAC [] [] THEN METIS_TAC [weak_one_tv_ok_thm]])]); + +val weak_one_tv_inst_thm = Q.prove ( +`!E1 E2 t ts. JTinst (E1++E2) t ts ==> + JTinst (shiftE 0 1 E1++[EB_tv]++E2) (shiftt (num_tv E1) 1 t) (shiftts (num_tv E1) 1 ts)`, +SRW_TAC [] [JTinst_cases] THEN SRW_TAC [] [shiftts_def, Eok_def] THEN +Q.EXISTS_TAC `MAP (\t. shiftt (num_tv E1) 1 t) t_list` THEN SRW_TAC [] [Eok_def, EVERY_MAP] THEN +FULL_SIMP_TAC list_ss [EVERY_MEM, Eok_def, idxsub_shift_thm] THENL +[FULL_SIMP_TAC std_ss [GSYM APPEND] THEN IMP_RES_TAC weak_one_tv_ok_thm THEN + FULL_SIMP_TAC list_ss [num_tv_def, shiftE_def, shiftEB_def], + METIS_TAC [weak_one_tv_ok_thm]]); + +val weak_one_tv_inst_named_thm = Q.prove ( +`!E1 E2 t tpo t'. JTinst_named (E1++E2) t tpo t' ==> + JTinst_named (shiftE 0 1 E1++[EB_tv]++E2) (shiftt (num_tv E1) 1 t) tpo + (shiftt (num_tv E1) 1 t')`, +SRW_TAC [] [JTinst_named_cases] THEN +Q.EXISTS_TAC `MAP (\(tv, t). (tv, shiftt (num_tv E1) 1 t)) typevar_t_list` THEN +SRW_TAC [] [MAP_MAP, LAMBDA_PROD2, weak_one_tv_ok_thm, subst_shiftt_com_lem, EVERY_MAP] THEN +FULL_SIMP_TAC list_ss [EVERY_MEM, weak_one_tv_ok_thm]); + +val weak_one_tv_uprim_thm = Q.prove ( +`!E1 E2 uprim t. JTuprim (E1++E2) uprim t ==> + JTuprim (shiftE 0 1 E1++[EB_tv]++E2) uprim (shiftt (num_tv E1) 1 t)`, +SRW_TAC [] [JTuprim_cases, shiftt_def] THEN METIS_TAC [weak_one_tv_ok_thm]); + +val weak_one_tv_bprim_thm = Q.prove ( +`!E1 E2 bprim t. JTbprim (E1++E2) bprim t ==> + JTbprim (shiftE 0 1 E1++[EB_tv]++E2) bprim (shiftt (num_tv E1) 1 t)`, +SRW_TAC [] [JTbprim_cases, shiftt_def] THEN METIS_TAC [weak_one_tv_ok_thm]); + +val weak_one_tv_val_name_thm = Q.prove ( +`!E1 E2 vn t. JTvalue_name (E1++E2) vn t ==> + JTvalue_name (shiftE 0 1 E1++[EB_tv]++E2) vn (shiftt (num_tv E1) 1 t)`, +SRW_TAC [] [JTvalue_name_cases] THEN IMP_RES_TAC weak_one_tv_lookup_thm THEN +SRW_TAC [] [shiftEB_def, weak_one_tv_inst_thm]); + +val weak_on_tv_constr_c_thm = Q.prove ( +`!E1 E2 constr t. JTconstr_c (E1++E2) constr t ==> + JTconstr_c (shiftE 0 1 E1++[EB_tv]++E2) constr (shiftt (num_tv E1) 1 t)`, +SRW_TAC [] [JTconstr_c_cases, shiftt_def, weak_one_tv_ok_thm, EVERY_MAP] THEN +IMP_RES_TAC weak_one_tv_lookup_thm THEN SRW_TAC [] [shiftEB_def] THEN +FULL_SIMP_TAC list_ss [EVERY_MEM, weak_one_tv_ok_thm]); + +val weak_one_tv_const_thm = Q.prove ( +`!E1 E2 const t. JTconst (E1++E2) const t ==> + JTconst (shiftE 0 1 E1++[EB_tv]++E2) const (shiftt (num_tv E1) 1 t)`, +SRW_TAC [] [JTconst_cases, shiftt_def, weak_one_tv_ok_thm, weak_on_tv_constr_c_thm]); + +val weak_one_tv_constr_p_thm = Q.prove ( +`!E1 E2 constr tl t. JTconstr_p (E1++E2) constr tl t ==> + JTconstr_p (shiftE 0 1 E1++[EB_tv]++E2) constr (MAP (shiftt (num_tv E1) 1) tl) + (shiftt (num_tv E1) 1 t)`, +SRW_TAC [] [JTconstr_p_cases, shiftt_def, weak_one_tv_ok_thm] THEN IMP_RES_TAC weak_one_tv_lookup_thm THEN +SRW_TAC [] [shiftEB_def, shifttes_def] THEN +MAP_EVERY Q.EXISTS_TAC [`MAP (\(t, t'). (shiftt (num_tv E1) 1 t, shiftt (num_tv E1) 1 t')) t'_t_list`, + `MAP (\(t, tv). (shiftt (num_tv E1) 1 t, tv)) t''_tv_list`] THEN +SRW_TAC [] [MAP_MAP, LAMBDA_PROD2] THEN IMP_RES_TAC weak_one_tv_inst_named_thm THEN +FULL_SIMP_TAC list_ss [shiftt_def, MAP_MAP]); + +val weak_one_tv_field_thm = Q.prove ( +`!E1 E2 fn t t'. JTfield (E1++E2) fn t t' ==> + JTfield (shiftE 0 1 E1++[EB_tv]++E2) fn (shiftt (num_tv E1) 1 t) + (shiftt (num_tv E1) 1 t')`, +SRW_TAC [] [JTfield_cases] THEN IMP_RES_TAC weak_one_tv_lookup_thm THEN +SRW_TAC [] [shiftEB_def, shifttes_def] THEN +MAP_EVERY Q.EXISTS_TAC [`MAP (\(t, tv). (shiftt (num_tv E1) 1 t, tv)) t'_tv_list`] THEN +SRW_TAC [] [MAP_MAP, LAMBDA_PROD2] THEN IMP_RES_TAC weak_one_tv_inst_named_thm THEN +FULL_SIMP_TAC list_ss [shiftt_def, MAP_MAP, shiftt_def]); + +val weak_one_tv_inst_any_thm = Q.prove ( +`!E t t'. JTinst_any E t t' ==> !E1 E2. (E = E1++E2) ==> + JTinst_any (shiftE 0 1 E1++[EB_tv]++E2) (shiftt (num_tv E1) 1 t) (shiftt (num_tv E1) 1 t')`, +RULE_INDUCT_TAC JTinst_any_ind [shiftt_def, JTinst_any_fun, EVERY_MEM] +[([``"JTinst_any_tyvar"``], + SRW_TAC [] [] THEN SRW_TAC [] [COND_EXPAND, JTinst_any_fun] THEN + IMP_RES_TAC weak_one_tv_ok_thm THEN FULL_SIMP_TAC list_ss [shiftt_def] THEN METIS_TAC []), + ([``"JTinst_any_any"``], METIS_TAC [weak_one_tv_ok_thm]), + ([``"JTinst_any_tuple"``, ``"JTinst_any_ctor"``], + SRW_TAC [] [] THEN + Q.EXISTS_TAC `MAP (\a. (shiftt (num_tv E1) 1 (FST a), shiftt (num_tv E1) 1 (SND a))) t_t'_list` THEN + SRW_TAC [] [MAP_MAP] THEN FULL_SIMP_TAC list_ss [MEM_MAP, weak_one_tv_ok_thm])]); + + +local + +val lem1 = SIMP_RULE list_ss [] (Q.SPECL [`t`, `n`, `0`, `1`] (hd (CONJUNCTS shiftt_com_lem))); + +val lem2 = Q.prove ( +`!l n m f g h. EVERY (\x. JTpat Tsig (E1 ++ E2) (f x) (g x) (h x)) l ==> + (num_tv (FLAT (MAP (\x. h x) l)) = 0)`, +Induct THEN SRW_TAC [] [num_tv_def, num_tv_append_thm] THEN METIS_TAC [pat_env_lem, value_env_num_tv_thm]); + +val lem3 = Q.prove ( +`!l n m f. (num_tv (FLAT (MAP (\x. f x) l)) = 0) ==> + (shiftE n m (FLAT (MAP (\x. f x) l)) = FLAT (MAP (\x. shiftE n m (f x)) l))`, +Induct THEN SRW_TAC [] [shiftE_def, shiftE_append_thm, num_tv_append_thm]); + +val lem6 = Q.prove ( +`!E m n. value_env E ==> (shiftE m n E = MAP (\EB. shiftEB m n EB) E)`, +Induct_on `E` THEN SRW_TAC [] [value_env_def, shiftE_def] THEN Cases_on `h` THEN +FULL_SIMP_TAC (srw_ss()) [value_env_def, shiftE_def] THEN IMP_RES_TAC value_env_num_tv_thm +THEN FULL_SIMP_TAC (srw_ss()) []); + +in + +val weak_one_tv_pat_thm = Q.prove ( +`!Tsig E pat t E'. JTpat Tsig E pat t E' ==> !E1 E2. (E = E1++E2) ==> + JTpat (shiftTsig (num_tv E1) 1 Tsig) (shiftE 0 1 E1++[EB_tv]++E2) pat + (shiftt (num_tv E1) 1 t) (shiftE (num_tv E1) 1 E')`, +RULE_INDUCT_TAC JTpat_sind [JTpat_fun] +[([``"JTpat_var"``, ``"JTpat_any"``, ``"JTpat_constant"``], + SRW_TAC [] [shiftE_def, shiftEB_def, shiftts_def, num_tv_def] THEN + SRW_TAC [] [weak_one_tv_ok_thm, lem1, weak_one_tv_const_thm]), + ([``"JTpat_alias"``], + SRW_TAC [] [shiftE_def, shiftEB_def, shiftts_def, domEB_def, shiftE_dom_thm, lem1] THEN + IMP_RES_TAC pat_env_lem THEN IMP_RES_TAC value_env_num_tv_thm THEN SRW_TAC [] []), + ([``"JTpat_typed"``], + SRW_TAC [] [shiftTsig_def, subst_shiftt_com_lem, LAMBDA_PROD2] THEN + IMP_RES_TAC weak_one_tv_inst_any_thm THEN + FULL_SIMP_TAC list_ss [subst_shiftt_com_lem, LAMBDA_PROD2] THEN + METIS_TAC [is_src_t_shift_thm, weak_one_tv_teq_thm]), + ([``"JTpat_construct_any"``], + SRW_TAC [] [shiftE_def] THEN METIS_TAC [weak_one_tv_constr_p_thm]), + ([``"JTpat_construct"``], + SRW_TAC [] [ELIM_UNCURRY] THEN + Q.EXISTS_TAC `MAP (\(p, E, t). (p, shiftE (num_tv E1) 1 E, shiftt (num_tv E1) 1 t)) pattern_E_t_list` THEN + SRW_TAC [] [LAMBDA_PROD2, MAP_MAP, ETA_THM, ELIM_UNCURRY, EVERY_MAP] THENL + [METIS_TAC [MAP_REVERSE, EVERY_REVERSE, lem2, lem3], + IMP_RES_TAC weak_one_tv_constr_p_thm THEN FULL_SIMP_TAC list_ss [MAP_MAP], + FULL_SIMP_TAC list_ss [EVERY_MEM], + FULL_SIMP_TAC list_ss [MAP_FLAT, MAP_REVERSE, MAP_MAP, shiftE_dom_thm]]), + ([``"JTpat_tuple"``], + SRW_TAC [] [ELIM_UNCURRY] THEN + Q.EXISTS_TAC `MAP (\(p, t, E). (p, shiftt (num_tv E1) 1 t, shiftE (num_tv E1) 1 E)) pattern_t_E_list` THEN + SRW_TAC [] [LAMBDA_PROD2, MAP_MAP, ETA_THM, ELIM_UNCURRY, EVERY_MAP, shiftt_def] THENL + [METIS_TAC [MAP_REVERSE, EVERY_REVERSE, lem3, lem2], + FULL_SIMP_TAC list_ss [EVERY_MEM], + FULL_SIMP_TAC list_ss [MAP_FLAT, MAP_REVERSE, MAP_MAP, shiftE_dom_thm]]), + ([``"JTpat_record"``], + SRW_TAC [] [ELIM_UNCURRY] THEN + Q.EXISTS_TAC `MAP (\(fn, p, E, t). + (fn, p, shiftE (num_tv E1) 1 E, shiftt (num_tv E1) 1 t)) field_name_pattern_E_t_list` + THEN + SRW_TAC [] [LAMBDA_PROD2, MAP_MAP, ETA_THM, ELIM_UNCURRY, EVERY_MAP] THENL + [METIS_TAC [MAP_REVERSE, EVERY_REVERSE, lem2, lem3], + FULL_SIMP_TAC list_ss [EVERY_MEM], + FULL_SIMP_TAC list_ss [EVERY_MEM] THEN SRW_TAC [] [] THEN RES_TAC THEN + IMP_RES_TAC weak_one_tv_field_thm THEN FULL_SIMP_TAC list_ss [MAP_MAP], + FULL_SIMP_TAC list_ss [MAP_FLAT, MAP_REVERSE, MAP_MAP, shiftE_dom_thm]]), + ([``"JTpat_cons"``], + SRW_TAC [] [] THEN + MAP_EVERY Q.EXISTS_TAC [`shiftt (num_tv E1) 1 t`, `shiftE (num_tv E1) 1 E'`, + `shiftE (num_tv E1) 1 E''`] THEN + SRW_TAC [] [shiftt_def, shiftE_append_thm] THEN FULL_SIMP_TAC list_ss [shiftt_def, shiftE_dom_thm] THEN + IMP_RES_TAC pat_env_lem THEN IMP_RES_TAC value_env_num_tv_thm THEN SRW_TAC [] []), + ([``"JTpat_or"``], + SRW_TAC [] [] THEN IMP_RES_TAC pat_env_lem THEN FULL_SIMP_TAC (srw_ss()) [lem6] THEN + METIS_TAC [PERM_MAP])]); + + +val lem4 = Q.prove ( +`!l m n f g. shiftE m 1 (MAP (\z. EB_vn (f z) (TS_forall (shiftt 0 1 (g z)))) l) = + MAP (\z. EB_vn (f z) (TS_forall (shiftt 0 1 (shiftt m 1 (g z))))) l`, +Induct THEN SRW_TAC [] [shiftE_def, shiftEB_def, lem1, shiftts_def] THEN +METIS_TAC [value_env_map_thm, value_env_num_tv_thm, ADD_0]); + +val lem5 = Q.prove ( +`!l m n. shiftE m 1 (MAP (\z. EB_vn (FST z) (TS_forall (SND z))) l) = + MAP (\z. EB_vn (FST z) (TS_forall (shiftt (m + 1) 1 (SND z)))) l`, +Induct THEN SRW_TAC [] [shiftE_def, shiftEB_def, lem1, shiftts_def] THEN +METIS_TAC [value_env_map_thm, value_env_num_tv_thm, ADD_0]); + +val weak_one_tv_thm = Q.store_thm ("weak_one_tv_thm", +`(!S E e t. JTe S E e t ==> + !E1 E2. (E = E1++E2) ==> JTe (shiftTsig (num_tv E1) 1 S) (shiftE 0 1 E1++[EB_tv]++E2) + e (shiftt (num_tv E1) 1 t)) /\ + (!S E pm t1 t2. JTpat_matching S E pm t1 t2 ==> + !E1 E2. (E = E1++E2) ==> JTpat_matching (shiftTsig (num_tv E1) 1 S) (shiftE 0 1 E1++[EB_tv]++E2) + pm (shiftt (num_tv E1) 1 t1) (shiftt (num_tv E1) 1 t2)) /\ + (!S E lb E'. JTlet_binding S E lb E' ==> + !E1 E2. (E = E1++E2) ==> JTlet_binding (shiftTsig (num_tv E1) 1 S) (shiftE 0 1 E1++[EB_tv]++E2) + lb (shiftE (num_tv E1) 1 E')) /\ + (!S E lrbs E'. JTletrec_binding S E lrbs E' ==> + !E1 E2. (E = E1++E2) ==> JTletrec_binding (shiftTsig (num_tv E1) 1 S) (shiftE 0 1 E1++[EB_tv]++E2) + lrbs (shiftE (num_tv E1) 1 E'))`, +RULE_INDUCT_TAC JTe_ind [JTe_fun, shiftt_def] +[([``"JTe_cons"``], + SRW_TAC [] [] THEN Q.EXISTS_TAC `shiftt (num_tv E1) 1 t''` THEN SRW_TAC [] [] THEN + IMP_RES_TAC weak_one_tv_teq_thm THEN FULL_SIMP_TAC (srw_ss()) [shiftt_def]), + ([``"JTe_apply"``, ``"JTe_record_proj"``, ``"JTe_match"``, ``"JTe_assertfalse"``], + METIS_TAC [weak_one_tv_field_thm, weak_one_tv_ok_thm, weak_one_tv_teq_thm]), + ([``"JTe_and"``, ``"JTe_or"``, ``"JTe_while"``, ``"JTe_function"``, ``"JTe_assert"``], + SRW_TAC [] [] THEN IMP_RES_TAC weak_one_tv_teq_thm THEN FULL_SIMP_TAC (srw_ss()) [shiftt_def] THEN + METIS_TAC []), + ([``"JTe_uprim"``, ``"JTe_bprim"``, ``"JTe_ident"``, ``"JTe_constant"``], + SRW_TAC [] [] THEN METIS_TAC [weak_one_tv_uprim_thm, weak_one_tv_bprim_thm, weak_one_tv_val_name_thm, + weak_one_tv_const_thm, weak_one_tv_teq_thm]), + ([``"JTe_location"``], + SRW_TAC [] [] THEN Q.EXISTS_TAC `shiftt (num_tv E1) 1 t''` THEN SRW_TAC [] [] THEN1 + METIS_TAC [weak_one_tv_ok_thm] THEN IMP_RES_TAC weak_one_tv_lookup_thm THEN + FULL_SIMP_TAC list_ss [shiftEB_def] THEN IMP_RES_TAC weak_one_tv_teq_thm THEN + FULL_SIMP_TAC (srw_ss()) [shiftt_def]), + ([``"JTe_typed"``], + SRW_TAC [] [shiftTsig_def, subst_shiftt_com_lem, LAMBDA_PROD2] THEN + IMP_RES_TAC weak_one_tv_inst_any_thm THEN + FULL_SIMP_TAC list_ss [subst_shiftt_com_lem, LAMBDA_PROD2] THEN + METIS_TAC [is_src_t_shift_thm, weak_one_tv_teq_thm]), + ([``"JTe_tuple"``], + SRW_TAC [] [] THEN Q.EXISTS_TAC `MAP (\(e, t). (e, shiftt (num_tv E1) 1 t)) e_t_list` THEN + SRW_TAC [] [shiftt_def, MAP_MAP, LAMBDA_PROD2, ETA_THM] THEN + FULL_SIMP_TAC list_ss [EVERY_MEM] THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [MEM_MAP] THEN + IMP_RES_TAC weak_one_tv_constr_p_thm THEN FULL_SIMP_TAC list_ss [MAP_MAP] THEN + IMP_RES_TAC weak_one_tv_teq_thm THEN FULL_SIMP_TAC (srw_ss()) [shiftt_def, MAP_MAP]), + ([``"JTe_construct"``], + SRW_TAC [] [] THEN Q.EXISTS_TAC `MAP (\(e, t). (e, shiftt (num_tv E1) 1 t)) e_t_list` THEN + SRW_TAC [] [shiftt_def, MAP_MAP, LAMBDA_PROD2, ETA_THM] THEN + FULL_SIMP_TAC list_ss [EVERY_MEM] THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [MEM_MAP] THEN + IMP_RES_TAC weak_one_tv_constr_p_thm THEN FULL_SIMP_TAC list_ss [MAP_MAP] THEN + IMP_RES_TAC weak_one_tv_teq_thm THEN FULL_SIMP_TAC (srw_ss()) [shiftt_def, MAP_MAP] THEN + Q.EXISTS_TAC `shiftt (num_tv E1) 1 t''` THEN SRW_TAC [] [] THEN SRW_TAC [] []), + ([``"JTe_record_constr"``], + SRW_TAC [] [] THEN + MAP_EVERY Q.EXISTS_TAC [`field_name'_list`, `MAP (\x. shiftt (num_tv E1) 1 x) t'_list`, + `MAP (\(fn, e, t). (fn, e, shiftt (num_tv E1) 1 t)) field_name_e_t_list`, + `typeconstr_name`, `kind`] THEN + SRW_TAC [] [shiftt_def, MAP_MAP, LAMBDA_PROD2, ETA_THM, EVERY_MAP] THEN + FULL_SIMP_TAC list_ss [EVERY_MEM] THEN SRW_TAC [] [] THEN RES_TAC THEN + IMP_RES_TAC weak_one_tv_field_thm THEN FULL_SIMP_TAC list_ss [MAP_MAP, shiftt_def] THEN + IMP_RES_TAC weak_one_tv_lookup_thm THEN FULL_SIMP_TAC list_ss [shiftEB_def] THEN + IMP_RES_TAC weak_one_tv_teq_thm THEN FULL_SIMP_TAC (srw_ss()) [shiftt_def, MAP_MAP]), + ([``"JTe_record_with"``], + SRW_TAC [] [] THEN Q.EXISTS_TAC `MAP (\(fn, e, t). (fn, e, shiftt (num_tv E1) 1 t)) field_name_e_t_list` THEN + SRW_TAC [] [shiftt_def, MAP_MAP, LAMBDA_PROD2, ETA_THM, EVERY_MAP] THEN + FULL_SIMP_TAC list_ss [EVERY_MEM] THEN + Q.EXISTS_TAC `shiftt (num_tv E1) 1 t''` THEN SRW_TAC [] [] THEN RES_TAC THEN + IMP_RES_TAC weak_one_tv_field_thm THEN FULL_SIMP_TAC list_ss [MAP_MAP, shiftt_def] THEN + METIS_TAC [weak_one_tv_teq_thm]), + ([``"JTe_for"``], + SRW_TAC [] [] THEN + Q.PAT_ASSUM `!E1' E2'. P E1' E2' ==> JTe (shiftTsig (num_tv E1') 1 S) + (shiftE 0 1 E1' ++ [EB_tv] ++ E2') e'' (TE_constr [] TC_unit)` + (MP_TAC o + Q.SPECL [`EB_vn (VN_id lowercase_ident) (TS_forall (TE_constr [] TC_int))::E1`, `E2`]) THEN + SRW_TAC [] [num_tv_def, shiftE_def, shiftEB_def, shiftts_def, shiftt_def] THEN + IMP_RES_TAC weak_one_tv_teq_thm THEN FULL_SIMP_TAC (srw_ss()) [shiftt_def, MAP_MAP]), + ([``"JTe_let_mono"``], + SRW_TAC [] [] THEN DISJ1_TAC THEN Q.EXISTS_TAC `MAP (\(x, t). (x, shiftt (num_tv E1) 1 t)) x_t_list` THEN + SRW_TAC [] [] THENL + [Q.PAT_ASSUM `!E1' E2'. (E1 ++ E2 = E1' ++ E2') ==> P E1' E2'` (MP_TAC o Q.SPECL [`E1`, `E2`]) THEN + SRW_TAC [] [] THEN MAP_EVERY Q.EXISTS_TAC [`x_t_list'`, `t'`] THEN + FULL_SIMP_TAC list_ss [MAP_MAP, LAMBDA_PROD2] THEN METIS_TAC [lem4, MAP_REVERSE], + Q.PAT_ASSUM `!E1' E2'. P E1' E2' ==> JTe (shiftTsig (num_tv E1') 1 S) + (shiftE 0 1 E1' ++ [EB_tv] ++ E2') e (shiftt (num_tv E1') 1 t)` + (MP_TAC o Q.SPECL [`REVERSE (MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) + x_t_list)++E1`, + `E2`]) THEN + SRW_TAC [] [MAP_MAP, LAMBDA_PROD2, num_tv_append_thm, GSYM MAP_REVERSE, + shiftE_append_thm] THEN + METIS_TAC [ADD, value_env_map_thm, value_env_num_tv_thm, lem4]]), + ([``"JTpat_matching_pm"``], + SRW_TAC [] [] THEN Q.EXISTS_TAC `MAP (\(p, e, E). (p, e, shiftE (num_tv E1) 1 E)) pattern_e_E_list` THEN + SRW_TAC [] [MAP_MAP, LAMBDA_PROD2] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN SRW_TAC [] [] THEN + FULL_SIMP_TAC list_ss [MEM_MAP] THEN1 METIS_TAC [weak_one_tv_pat_thm] THEN RES_TAC THEN SRW_TAC [] [] THEN + Q.PAT_ASSUM `!E2' E1'. (SND (SND z) ++ E1 ++ E2 = E1' ++ E2') ==> + JTe (shiftTsig (num_tv E1') 1 S) (shiftE 0 1 E1' ++ [EB_tv] ++ E2') (FST (SND z)) + (shiftt (num_tv E1') 1 t2)` + (ASSUME_TAC o Q.SPECL [`E2`, `SND (SND (z:pattern # expr # environment)) ++ E1`]) THEN + FULL_SIMP_TAC list_ss [shiftE_def, num_tv_append_thm, shiftE_append_thm] THEN + METIS_TAC [ADD_0, pat_env_lem, value_env_num_tv_thm]), + ([``"JTlet_binding_poly"``], + SRW_TAC [] [] THEN Q.EXISTS_TAC `MAP (\(x, t). (x, shiftt (num_tv E1) 1 t)) x_t_list` THEN + SRW_TAC [] [GSYM MAP_REVERSE, MAP_MAP, LAMBDA_PROD2, lem4] THEN + METIS_TAC [weak_one_tv_pat_thm, MAP_REVERSE, lem4]), + ([``"JTe_let_poly"``], + SRW_TAC [] [] THEN DISJ2_TAC THEN + Q.EXISTS_TAC `MAP (\(x, t). (x, shiftt (num_tv E1 + 1) 1 t)) x_t_list` THEN SRW_TAC [] [] THENL + [Q.PAT_ASSUM `!E1' E2'. (EB_tv::(E1 ++ E2) = E1' ++ E2') ==> P E1' E2'` + (MP_TAC o Q.SPECL [`EB_tv::E1`, `E2`]) THEN + SRW_TAC [] [] THEN MAP_EVERY Q.EXISTS_TAC [`x_t_list'`, `t'`] THEN + FULL_SIMP_TAC list_ss [MAP_MAP, LAMBDA_PROD2, shiftE_def, shiftEB_def, num_tv_def, + lem4, GSYM MAP_REVERSE] THEN + METIS_TAC [shiftTsig_com_lem, ADD, ADD_0], + Q.PAT_ASSUM `!E1' E2'. P E1' E2' ==> JTe (shiftTsig (num_tv E1') 1 S) + (shiftE 0 1 E1' ++ [EB_tv] ++ E2') e (shiftt (num_tv E1') 1 t)` + (MP_TAC o Q.SPECL [`REVERSE (MAP (\z. EB_vn (FST z) (TS_forall (SND z))) + x_t_list)++E1`, + `E2`]) THEN + SRW_TAC [] [MAP_MAP, LAMBDA_PROD2, num_tv_append_thm, GSYM MAP_REVERSE, + shiftE_append_thm] THEN + FULL_SIMP_TAC list_ss [lem5] THEN + METIS_TAC [ADD_0, value_env_map_thm, value_env_num_tv_thm]]), + ([``"JTe_letrec"``], + SRW_TAC [] [] THEN + Q.PAT_ASSUM `!E1' E2'. (EB_tv::(E1 ++ E2) = E1' ++ E2') ==> P E1' E2'` + (MP_TAC o Q.SPECL [`EB_tv::E1`, `E2`]) THEN + Q.PAT_ASSUM `!E1' E2'. P E1' E2' ==> JTe (shiftTsig (num_tv E1') 1 S) + (shiftE 0 1 E1' ++ [EB_tv] ++ E2') e (shiftt (num_tv E1') 1 t)` + (MP_TAC o Q.SPECL [`REVERSE (MAP (\z. EB_vn (FST z) (TS_forall (SND z))) + x_t_list)++E1`, + `E2`]) THEN + SRW_TAC [] [MAP_MAP, LAMBDA_PROD2, num_tv_append_thm, GSYM MAP_REVERSE, + shiftE_append_thm] THEN + Q.EXISTS_TAC `MAP (\(x, t). (x, shiftt (num_tv E1 + 1) 1 t)) x_t_list` THEN + FULL_SIMP_TAC list_ss [MAP_MAP, LAMBDA_PROD2, shiftE_def, shiftEB_def, num_tv_def, + lem4, GSYM MAP_REVERSE, lem5] THEN + METIS_TAC [ADD_0, value_env_map_thm, value_env_num_tv_thm, shiftTsig_com_lem, ADD]), + ([``"JTletrec_binding_equal_function"``], + SRW_TAC [] [] THEN + Q.EXISTS_TAC `MAP (\(vn, pm, t1, t2). (vn, pm, shiftt (num_tv E1) 1 t1, shiftt (num_tv E1) 1 t2)) + value_name_pattern_matching_t_t'_list` THEN + SRW_TAC [] [GSYM MAP_REVERSE, MAP_MAP, LAMBDA_PROD2, EVERY_MAP] THEN1 + SRW_TAC [] [GSYM shiftt_def, lem4] THEN + FULL_SIMP_TAC list_ss [EVERY_MEM] THEN SRW_TAC [] [] THEN RES_TAC THEN + POP_ASSUM (ASSUME_TAC o Q.SPECL [`E2`, + `REVERSE (MAP (\(z:value_name # pattern_matching # typexpr # typexpr). + EB_vn (FST z) + (TS_forall (shiftt 0 1 (TE_arrow (FST (SND (SND z))) + (SND (SND (SND z))))))) + value_name_pattern_matching_t_t'_list) ++ E1`]) THEN + FULL_SIMP_TAC list_ss [GSYM shiftt_def, GSYM MAP_REVERSE, lem4, shiftE_append_thm, num_tv_append_thm] THEN + METIS_TAC [ADD_0, value_env_map_thm, value_env_num_tv_thm, ADD])]); + +end; + +val weak_teq_thm = Q.store_thm ("weak_teq_thm", +`!E t1 t2. JTeq E t1 t2 ==> !E3. (E = E1++E2) /\ ~MEM EB_tv E3 /\ Eok (E1++E3++E2) ==> JTeq (E1++E3++E2) t1 t2`, +RULE_INDUCT_TAC JTeq_ind [] +[([``"JTeq_refl"``], METIS_TAC [weak_ok_thm, JTeq_rules]), + ([``"JTeq_sym"``], METIS_TAC [JTeq_rules]), + ([``"JTeq_trans"``], METIS_TAC [JTeq_rules]), + ([``"JTeq_arrow"``], METIS_TAC [JTeq_rules]), + ([``"JTeq_tuple"``], + SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [Once JTeq_cases] THEN NTAC 3 DISJ2_TAC THEN + FULL_SIMP_TAC (srw_ss ()) [EVERY_MEM] THEN METIS_TAC []), + ([``"JTeq_constr"``], + SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [Once JTeq_cases] THEN NTAC 4 DISJ2_TAC THEN + FULL_SIMP_TAC (srw_ss ()) [EVERY_MEM] THEN METIS_TAC [weak_ok_thm]), + ([``"JTeq_expand"``], + SRW_TAC [] [] THEN SRW_TAC [] [Once JTeq_cases, MAP_MAP] THEN NTAC 3 DISJ2_TAC THEN DISJ1_TAC THEN + Q.EXISTS_TAC `t_typevar_list` THEN Q.EXISTS_TAC `t` THEN SRW_TAC [] [] THENL + [`MEM (name_tcn typeconstr_name) (MAP domEB E1) \/ ~MEM (name_tcn typeconstr_name) (MAP domEB E3)` by + METIS_TAC [lookup_dom_thm, weak_helper_lem2] THEN + METIS_TAC [weak_lookup_thm], + FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN METIS_TAC [weak_ok_thm]])]); + +val weak_inst_thm = Q.prove ( +`!E1 E2 t ts E3. JTinst (E1++E2) t ts /\ ~MEM EB_tv E3 /\ Eok (E1++E3++E2) ==> JTinst (E1++E3++E2) t ts`, +SRW_TAC [] [JTinst_cases] THEN SRW_TAC [] [Eok_def] THEN FULL_SIMP_TAC list_ss [Eok_def, EVERY_MEM] THEN +`Eok (EB_tv::(E1 ++ E3 ++ E2))` by SRW_TAC [] [Eok_def] THEN METIS_TAC [APPEND, weak_ok_thm]); + +val weak_inst_named_thm = Q.prove ( +`!E1 E2 t tpo ts E3. JTinst_named (E1++E2) t tpo ts /\ ~MEM EB_tv E3 /\ Eok (E1++E3++E2) ==> + JTinst_named (E1++E3++E2) t tpo ts`, +SRW_TAC [] [JTinst_named_cases] THEN SRW_TAC [] [Eok_def] THEN FULL_SIMP_TAC list_ss [Eok_def, EVERY_MEM] THEN +`Eok (EB_tv::(E1 ++ E3 ++ E2))` by SRW_TAC [] [Eok_def] THEN METIS_TAC [APPEND, weak_ok_thm]); + +val weak_uprim_thm = Q.prove ( +`!E1 E2 uprim t E3. JTuprim (E1++E2) uprim t /\ ~MEM EB_tv E3 /\ Eok (E1++E3++E2) ==> + JTuprim (E1++E3++E2) uprim t`, +SRW_TAC [] [JTuprim_cases] THEN METIS_TAC [weak_ok_thm]); + +val weak_bprim_thm = Q.prove ( +`!E1 E2 bprim t E3. JTbprim (E1++E2) bprim t /\ ~MEM EB_tv E3 /\ Eok (E1++E3++E2) ==> + JTbprim (E1++E3++E2) bprim t`, +SRW_TAC [] [JTbprim_cases] THEN METIS_TAC [weak_ok_thm]); + +val weak_val_name_thm = Q.prove ( +`!E1 E2 vn t E3. JTvalue_name (E1++E2) vn t /\ ~MEM EB_tv E3 /\ Eok (E1++E3++E2) /\ + (MEM (name_vn vn) (MAP domEB E3) ==> MEM (name_vn vn) (MAP domEB E1)) ==> + JTvalue_name (E1++E3++E2) vn t`, +SRW_TAC [] [JTvalue_name_cases] THEN IMP_RES_TAC weak_helper_lem3 THEN FULL_SIMP_TAC list_ss [] THEN +METIS_TAC [weak_lookup_thm, weak_inst_thm]); + +val weak_constr_c_thm = Q.prove ( +`!E1 E2 constr t E3. JTconstr_c (E1++E2) constr t /\ ~MEM EB_tv E3 /\ Eok (E1++E3++E2) ==> + JTconstr_c (E1++E3++E2) constr t`, +SRW_TAC [] [JTconstr_c_cases, weak_ok_thm, EVERY_MAP] THEN +IMP_RES_TAC weak_helper_lem3 THEN IMP_RES_TAC weak_helper_lem2 THEN SRW_TAC [] [] THEN +IMP_RES_TAC weak_lookup_thm THEN +SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [EVERY_MEM, weak_ok_thm]); + +val weak_const_thm = Q.prove ( +`!E1 E2 const t EB. JTconst (E1++E2) const t /\ ~MEM EB_tv E3 /\ Eok (E1++E3++E2) ==> + JTconst (E1++E3++E2) const t`, +SRW_TAC [] [JTconst_cases, weak_ok_thm, weak_constr_c_thm]); + +val weak_constr_p_thm = Q.prove ( +`!E1 E2 constr tl t E3. JTconstr_p (E1++E2) constr tl t /\ ~MEM EB_tv E3 /\ Eok (E1++E3++E2) ==> + JTconstr_p (E1++E3++E2) constr tl t`, +SRW_TAC [] [JTconstr_p_cases, weak_ok_thm] THEN +IMP_RES_TAC weak_helper_lem3 THEN IMP_RES_TAC weak_helper_lem2 THEN SRW_TAC [] [] THEN +IMP_RES_TAC weak_lookup_thm THEN SRW_TAC [] [] THEN METIS_TAC [weak_inst_named_thm]); + +val weak_field_thm = Q.prove ( +`!E1 E2 fn t t' E3. JTfield (E1++E2) fn t t' /\ ~MEM EB_tv E3 /\ Eok (E1++E3++E2) ==> + JTfield (E1++E3++E2) fn t t'`, +SRW_TAC [] [JTfield_cases, weak_ok_thm] THEN +IMP_RES_TAC weak_helper_lem3 THEN IMP_RES_TAC weak_helper_lem2 THEN SRW_TAC [] [] THEN +IMP_RES_TAC weak_lookup_thm THEN SRW_TAC [] [] THEN METIS_TAC [weak_inst_named_thm]); + +val weak_inst_any_thm = Q.prove ( +`!E t t'. JTinst_any E t t' ==> !E1 E2 E3. (E = E1++E2) /\ ~MEM EB_tv E3 /\ Eok (E1++E3++E2) ==> + JTinst_any (E1++E3++E2) t t'`, +RULE_INDUCT_TAC JTinst_any_ind [JTinst_any_fun, EVERY_MEM] [] THEN +METIS_TAC [weak_ok_thm]); + +val weak_pat_thm = Q.prove ( +`!Tsig E pat t E'. JTpat Tsig E pat t E' ==> !E1 E2 E3. (E = E1++E2) /\ ~MEM EB_tv E3 /\ Eok (E1++E3++E2) ==> + JTpat Tsig (E1++E3++E2) pat t E'`, +RULE_INDUCT_TAC JTpat_sind [JTpat_fun] +[([``"JTpat_var"``, ``"JTpat_any"``, ``"JTpat_cons"``], METIS_TAC [weak_ok_thm]), + ([``"JTpat_typed"``], METIS_TAC [weak_inst_any_thm, weak_teq_thm]), + ([``"JTpat_constant"``], METIS_TAC [weak_const_thm]), + ([``"JTpat_construct"``, ``"JTpat_construct_any"``, ``"JTpat_tuple"``], + FULL_SIMP_TAC list_ss [EVERY_MEM] THEN METIS_TAC [weak_constr_p_thm]), + ([``"JTpat_record"``], + FULL_SIMP_TAC list_ss [EVERY_MEM] THEN METIS_TAC [weak_field_thm]), + ([``"JTpat_or"``], + METIS_TAC [])]); + +local + +val lem1 = Q.prove ( +`(!t E. tkind (EB_tv::EB_tv::E) (shiftt 0 1 t) = tkind (EB_tv::E) t) /\ + (!tl E. EVERY (\t. tkind (EB_tv::EB_tv::E) (shiftt 0 1 t)) tl = + EVERY (\t. tkind (EB_tv::E) t) tl)`, +Induct THEN SRW_TAC [] [Eok_def, shiftt_def, EVERY_MAP, idx_bound_def, GSYM ADD1] THEN +Cases_on `t` THEN SRW_TAC [] [Eok_def, lookup_def] THEN Cases_on `lookup E (name_tcn t')` THEN +SRW_TAC [] [shiftEB_add_thm] THEN IMP_RES_TAC lookup_name_thm THEN FULL_SIMP_TAC list_ss [] THEN +SRW_TAC [] [shiftEB_def]); + +val lem2 = (GEN_ALL o SIMP_RULE list_ss [] o Q.SPECL [`t`, `[EB_tv]`, `x`, `[EB_tv] ++ E`] o + SIMP_RULE list_ss [GSYM RIGHT_FORALL_IMP_THM, AND_IMP_INTRO] o hd o tl o tl o tl o tl o CONJUNCTS) + value_env_ok_str_thm; + +val lem3 = (GEN_ALL o SIMP_RULE list_ss [Eok_def] o Q.SPECL [`[EB_tv]`, `t`, `E1++E2`, `[h]`] o + SIMP_RULE list_ss [GSYM RIGHT_FORALL_IMP_THM, AND_IMP_INTRO] o hd o tl o tl o tl o tl o CONJUNCTS) + weak_ok_thm; + +val lem4 = Q.prove ( +`!E' E t. value_env E' /\ Eok (E'++E) /\ tkind (EB_tv::E) t ==> tkind (EB_tv::(E'++E)) t`, +Induct THEN SRW_TAC [] [] THEN Cases_on `h` THEN FULL_SIMP_TAC list_ss [value_env_def, Eok_def] THEN +MATCH_MP_TAC lem3 THEN SRW_TAC [] [Eok_def] THEN METIS_TAC [ok_ok_thm]); + +in + +val tv_ok_str_thm = Q.prove ( +`!x_t_list. Eok (MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) x_t_list ++ [EB_tv] ++ E) ==> + Eok (MAP (\z. EB_vn (FST z) (TS_forall (SND z))) x_t_list ++ E)`, +Induct THEN SRW_TAC [] [Eok_def] THEN IMP_RES_TAC lem2 THEN +FULL_SIMP_TAC list_ss [value_env_map_thm, lem1] THEN IMP_RES_TAC ok_ok_thm THEN +FULL_SIMP_TAC list_ss [Eok_def] THEN METIS_TAC [lem4, value_env_map_thm]); +end; + +local + +val lem1 = Q.prove ( +`!lrbs S E E'. Eok E /\ JTletrec_binding S E lrbs E' ==> Eok (E'++E)`, +Cases THEN SRW_TAC [] [JTe_fun] THEN Cases_on `value_name_pattern_matching_t_t'_list` THEN +FULL_SIMP_TAC list_ss [] THEN METIS_TAC [ok_thm, ok_ok_thm]); + +val lem2 = Q.prove ( +`!l f g E1 E2 E3. Eok (MAP (\x. EB_vn (f x) (g x)) l ++ E1 ++ E2) /\ Eok (E1++E3++E2) /\ ~MEM EB_tv E3 ==> + Eok (MAP (\x. EB_vn (f x) (g x)) l ++ E1 ++ E3 ++ E2)`, +Induct THEN SRW_TAC [] [Eok_def] THEN METIS_TAC [weak_ok_thm, ok_ok_thm]); + +val lem3 = Q.prove ( +`!l1 l2. (MAP name_vn l1 = MAP (\z. name_vn (FST z)) l2) = + (l1 = MAP FST l2)`, +Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN SRW_TAC [] []); + +val lem4 = Q.prove ( +`!l1 l2. (MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) l1 = + MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) l2) = + (l1 = l2)`, +Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN SRW_TAC [] [shiftt_11] THEN +Cases_on `h` THEN Cases_on `h'` THEN SRW_TAC [] []); + +val lem5 = Q.prove ( +`!E3 lrbs x_t_list e E1. + ~MEM EB_tv E3 /\ + (!n. MEM n (MAP domEB E3) /\ (MEM n (MAP name_vn (list_minus (fv_letrec_bindings lrbs) (MAP FST x_t_list))) \/ + MEM n (MAP name_vn (list_minus (fv_expr e) (MAP FST x_t_list)))) ==> + MEM n (MAP domEB E1)) + ==> + (!n. MEM n (MAP domEB E3) /\ MEM n (MAP name_vn (fv_expr e)) ==> + MEM n (MAP (\z. name_vn (FST z)) x_t_list) \/ MEM n (MAP domEB E1)) + /\ + (!n. MEM n (MAP domEB E3) /\ MEM n (MAP name_vn (fv_letrec_bindings lrbs)) /\ + ~MEM n (MAP (\z. name_vn (FST z)) x_t_list) ==> + (n = name_tv) \/ MEM n (MAP domEB E1))`, +SRW_TAC [] [MEM_MAP, list_minus_thm] THEN METIS_TAC []); + +val lem6 = Q.prove ( +`!E1 EB E2. E1++[EB]++E2 = E1++EB::E2`, +METIS_TAC [APPEND, APPEND_ASSOC]); + +val lem7 = Q.prove ( +`!l1 l2. MAP name_vn (list_minus l1 l2) = list_minus (MAP name_vn l1) (MAP name_vn l2)`, +Induct THEN SRW_TAC [] [list_minus_def, MEM_MAP]); + +val lem8 = Q.prove ( +`(!n. MEM n (MAP domEB E3) /\ + MEM n + (list_minus (FLAT (MAP (\z. MAP name_vn (fv_pattern_matching (FST (SND z)))) + value_name_pattern_matching_t_t'_list)) + (MAP name_vn (aux_xs_letrec_bindings_of_letrec_bindings + (LRBs_inj (MAP (\z. LRB_simple (FST z) (FST (SND z))) + value_name_pattern_matching_t_t'_list))))) ==> + MEM n (MAP domEB E1)) + ==> +!x. MEM x value_name_pattern_matching_t_t'_list ==> + (!n. MEM n (MAP domEB E3) /\ MEM n (MAP name_vn (fv_pattern_matching (FST (SND x)))) ==> + MEM n (MAP (\z. name_vn (FST z)) (REVERSE value_name_pattern_matching_t_t'_list)) \/ + MEM n (MAP domEB E1))`, +SRW_TAC [] [list_minus_thm, EXISTS_MEM, aux_xs_letrec_bindings_of_letrec_bindings_def, FLAT_MAP_SING, MEM_FLAT, + aux_xs_letrec_binding_of_letrec_binding_def, MAP_MAP] THEN + FULL_SIMP_TAC list_ss [MAP_REVERSE] THEN + Cases_on `MEM n (MAP (\z. name_vn (FST z)) value_name_pattern_matching_t_t'_list)` THEN + FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THEN + Q.PAT_ASSUM `!n. P n ==> MEM n (MAP domEB E1)` MATCH_MP_TAC THEN SRW_TAC [] [] THEN + Q.EXISTS_TAC `MAP name_vn (fv_pattern_matching (FST (SND x)))` THEN SRW_TAC [] [] THEN + FULL_SIMP_TAC list_ss [MEM_MAP] THEN METIS_TAC []); + +in + +val weak_not_tv_thm = Q.store_thm ("weak_not_tv_thm", +`(!S E e t. JTe S E e t ==> + !E1. (E = E1++E2) /\ ~MEM EB_tv E3 /\ + (!n. MEM n (MAP domEB E3) /\ MEM n (MAP name_vn (fv_expr e)) ==> MEM n (MAP domEB E1)) /\ + Eok (E1++E3++E2) ==> + JTe S (E1++E3++E2) e t) /\ + (!S E pm t1 t2. JTpat_matching S E pm t1 t2 ==> + !E1. (E = E1++E2) /\ ~MEM EB_tv E3 /\ + (!n. MEM n (MAP domEB E3) /\ MEM n (MAP name_vn (fv_pattern_matching pm)) ==> + MEM n (MAP domEB E1)) /\ + Eok (E1++E3++E2) ==> + JTpat_matching S (E1++E3++E2) pm t1 t2) /\ + (!S E lb E'. JTlet_binding S E lb E' ==> + !E1. (E = E1++E2) /\ ~MEM EB_tv E3 /\ + (!n. MEM n (MAP domEB E3) /\ MEM n (MAP name_vn (fv_let_binding lb)) ==> MEM n (MAP domEB E1)) /\ + Eok (E1++E3++E2) ==> + JTlet_binding S (E1++E3++E2) lb E') /\ + (!S E lrbs E'. JTletrec_binding S E lrbs E' ==> + !E1. (E = E1++E2) /\ ~MEM EB_tv E3 /\ + (!n. MEM n (MAP domEB E3) /\ + MEM n (list_minus (MAP name_vn (fv_letrec_bindings lrbs)) + (MAP name_vn (aux_xs_letrec_bindings_of_letrec_bindings lrbs))) ==> + MEM n (MAP domEB E1)) /\ + Eok (E1++E3++E2) ==> + JTletrec_binding S (E1++E3++E2) lrbs E')`, +RULE_INDUCT_TAC JTe_sind [JTe_fun, EVERY_MEM, fv_letrec_binding_def, MAP_FLAT, MAP_MAP, MEM_FLAT, + EXISTS_MAP, EXISTS_MEM] +[([``"JTe_uprim"``], METIS_TAC [weak_uprim_thm, weak_teq_thm]), + ([``"JTe_bprim"``], METIS_TAC [weak_bprim_thm, weak_teq_thm]), + ([``"JTe_ident"``], METIS_TAC [weak_val_name_thm, weak_teq_thm]), + ([``"JTe_constant"``], METIS_TAC [weak_const_thm, weak_teq_thm]), + ([``"JTe_typed"``], METIS_TAC [weak_inst_any_thm, weak_teq_thm]), + ([``"JTe_tuple"``, ``"JTe_apply"``, ``"JTe_match"``], METIS_TAC [weak_teq_thm]), + ([``"JTe_construct"``], METIS_TAC [weak_constr_p_thm, weak_teq_thm]), + ([``"JTe_cons"``, ``"JTe_and"``, ``"JTe_or"``, ``"JTe_while"``, ``"JTe_function"``, ``"JTe_assert"``], + METIS_TAC [weak_teq_thm]), + ([``"JTe_record_with"``, ``"JTe_record_proj"``], + METIS_TAC [weak_field_thm, weak_teq_thm]), + ([``"JTe_assertfalse"``], METIS_TAC [weak_ok_thm]), + ([``"JTe_location"``], + SRW_TAC [] [] THEN IMP_RES_TAC weak_helper_lem3 THEN IMP_RES_TAC weak_helper_lem2 THEN SRW_TAC [] [] THEN + IMP_RES_TAC weak_lookup_thm THEN SRW_TAC [] [] THEN METIS_TAC [weak_teq_thm]), + ([``"JTe_record_constr"``], + SRW_TAC [] [] THEN + MAP_EVERY Q.EXISTS_TAC [`field_name'_list`, `t'_list`, `field_name_e_t_list`, + `typeconstr_name`, `kind`] THEN + IMP_RES_TAC weak_helper_lem3 THEN IMP_RES_TAC weak_helper_lem2 THEN SRW_TAC [] [] THEN + IMP_RES_TAC weak_lookup_thm THEN IMP_RES_TAC weak_field_thm THEN IMP_RES_TAC weak_teq_thm THEN + SRW_TAC [] [] THEN METIS_TAC []), + ([``"JTe_for"``], + SRW_TAC [] [] THEN FULL_SIMP_TAC std_ss [GSYM APPEND, APPEND_11, APPEND_ASSOC] THEN + FULL_SIMP_TAC list_ss [domEB_def, Eok_def, shiftt_def, GSYM MAP_REVERSE] THEN + FULL_SIMP_TAC list_ss [MEM_MAP, list_minus_thm] THEN + METIS_TAC [weak_teq_thm]), + ([``"JTe_let_mono"``], + SRW_TAC [] [] THEN + IMP_RES_TAC aux_xs_pattern_of_pattern_thm THEN + FULL_SIMP_TAC std_ss [GSYM APPEND, APPEND_11, APPEND_ASSOC, GSYM MAP_REVERSE] THEN + FULL_SIMP_TAC list_ss [MAP_MAP, lem4, REVERSE_EQ] THEN + FULL_SIMP_TAC list_ss [list_minus_thm, domEB_def, lem3, MAP_REVERSE, MEM_REVERSE, + aux_xs_let_binding_of_let_binding_def] THEN + SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [MEM_MAP, list_minus_thm] THEN + METIS_TAC [APPEND_ASSOC, pat_ok_thm2]), + ([``"JTe_let_poly"``], + SRW_TAC [] [] THEN + IMP_RES_TAC aux_xs_pattern_of_pattern_thm THEN + FULL_SIMP_TAC std_ss [GSYM APPEND, APPEND_11, APPEND_ASSOC] THEN + FULL_SIMP_TAC list_ss [Eok_def, MAP_MAP, GSYM MAP_REVERSE] THEN IMP_RES_TAC pat_ok_thm2 THEN + FULL_SIMP_TAC list_ss [MAP_MAP, lem4, REVERSE_EQ] THEN + FULL_SIMP_TAC list_ss [list_minus_thm, domEB_def, lem3, MAP_REVERSE, MEM_REVERSE, + aux_xs_let_binding_of_let_binding_def] THEN + SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [MEM_MAP, list_minus_thm] THEN + DISJ2_TAC THEN Q.EXISTS_TAC `x_t_list` THEN SRW_TAC [] [] THEN1 METIS_TAC [] THEN + Q.PAT_ASSUM `x ==> JTe S y e t` MATCH_MP_TAC THEN + METIS_TAC [APPEND_ASSOC, tv_ok_str_thm, MAP_REVERSE, APPEND]), + ([``"JTe_letrec"``], + SRW_TAC [] [] THEN + IMP_RES_TAC aux_xs_letrec_bindings_of_letrec_bindings_thm THEN + FULL_SIMP_TAC std_ss [GSYM APPEND, APPEND_11, APPEND_ASSOC] THEN + FULL_SIMP_TAC list_ss [Eok_def, MAP_MAP, GSYM MAP_REVERSE] THEN + FULL_SIMP_TAC list_ss [MAP_MAP, lem4, REVERSE_EQ] THEN + FULL_SIMP_TAC list_ss [list_minus_thm, domEB_def, lem3, MAP_REVERSE, MEM_REVERSE, + aux_xs_letrec_binding_of_letrec_binding_def] THEN + SRW_TAC [] [] THEN IMP_RES_TAC lem5 THEN FULL_SIMP_TAC list_ss [] THEN + IMP_RES_TAC lem1 THEN FULL_SIMP_TAC list_ss [Eok_def] THEN + METIS_TAC [APPEND_ASSOC, tv_ok_str_thm, MAP_REVERSE, APPEND]), + ([``"JTpat_matching_pm"``], + SRW_TAC [] [] THEN Q.EXISTS_TAC `pattern_e_E_list` THEN SRW_TAC [] [] THEN + RES_TAC THEN FULL_SIMP_TAC list_ss [lem7] THEN SRW_TAC [] [] THEN + IMP_RES_TAC aux_xs_pattern_of_pattern_thm THEN + FULL_SIMP_TAC list_ss [] THEN + FULL_SIMP_TAC list_ss [list_minus_thm, MAP_REVERSE] THEN + METIS_TAC [weak_pat_thm, pat_ok_thm2, APPEND_ASSOC, MEM_APPEND, MAP_APPEND]), + ([``"JTlet_binding_poly"``], + SRW_TAC [] [] THEN Q.EXISTS_TAC `x_t_list` THEN SRW_TAC [] [] THEN + METIS_TAC [weak_pat_thm, pat_ok_thm2, APPEND_ASSOC, MEM_APPEND, MAP_APPEND]), + ([``"JTletrec_binding_equal_function"``], + SRW_TAC [] [] THEN + FULL_SIMP_TAC list_ss [GSYM MAP_REVERSE, MAP_MAP, domEB_def] THEN + IMP_RES_TAC lem8 THEN METIS_TAC [lem2, ok_ok_thm, ok_thm])]); + +end; + +val label_lookup_weak_thm = Q.store_thm ("label_lookup_weak_thm", +`!S E L E' name EB. JTLout S E L E' /\ (!l. ~(name = name_l l)) ==> (lookup E name = lookup (E'++E) name)`, +SRW_TAC [] [JTLout_cases] THEN SRW_TAC [] [lookup_def, domEB_def, shiftEB_add_thm] THEN +Cases_on `(lookup E name)` THEN SRW_TAC [] []); + +local + +val lem1 = Q.prove ( +`!x y. x::y = [x]++y`, +SRW_TAC [] []); + +in + +val label_constr_p_weak_thm = Q.store_thm ("label_constr_p_weak_thm", +`(!E constr t t'. JTconstr_p E constr t t' /\ JTLout S E L E' /\ JTLin S E L ==> + JTconstr_p (E'++E) constr t t')`, +SRW_TAC [] [JTLout_cases, JTLin_cases] THEN SRW_TAC [] [] THEN +ONCE_REWRITE_TAC [lem1] THEN +MATCH_MP_TAC ((SIMP_RULE list_ss [] o Q.SPEC `[]`) weak_constr_p_thm) THEN +SRW_TAC [] [Eok_def] THEN METIS_TAC [ok_thm]); + +val label_field_weak_thm = Q.store_thm ("label_field_weak_thm", + `(!E fn t t'. JTfield E fn t t' /\ JTLout S E L E' /\ JTLin S E L ==> JTfield (E'++E) fn t t')`, +SRW_TAC [] [JTLout_cases, JTLin_cases] THEN SRW_TAC [] [] THEN +ONCE_REWRITE_TAC [lem1] THEN +MATCH_MP_TAC ((SIMP_RULE list_ss [] o Q.SPEC `[]`) weak_field_thm) THEN +SRW_TAC [] [Eok_def] THEN METIS_TAC [ok_thm]); + +end; + +val label_weak_thm = Q.store_thm ("label_weak_thm", +`(!S E E' e t. JTe S E e t /\ JTLout S E L E' /\ JTLin S E L ==> JTe S (E'++E) e t) /\ + (!S E E' pm t t'. JTpat_matching S E pm t t' /\ JTLout S E L E' /\ JTLin S E L ==> + JTpat_matching S (E'++E) pm t t') /\ + (!S E E' p t E''. JTpat S E p t E'' /\ JTLout S E L E' /\ JTLin S E L ==> JTpat S (E'++E) p t E'')`, +SRW_TAC [] [JTLout_cases, JTLin_cases] THEN SRW_TAC [] [] THENL +[MATCH_MP_TAC ((GEN_ALL o SIMP_RULE list_ss [] o Q.SPECL [`[EB_l location t']`, `E`, `S`, `e`, `t`, `[]`] o + SIMP_RULE list_ss [AND_IMP_INTRO, GSYM RIGHT_FORALL_IMP_THM] o GEN_ALL o + hd o CONJUNCTS) weak_not_tv_thm), + MATCH_MP_TAC ((GEN_ALL o SIMP_RULE list_ss [] o + Q.SPECL [`[EB_l location t']`, `E`, `S`, `pm`, `t1`, `t2`, `[]`] o + SIMP_RULE list_ss [AND_IMP_INTRO, GSYM RIGHT_FORALL_IMP_THM] o GEN_ALL o + hd o tl o CONJUNCTS) weak_not_tv_thm), + MATCH_MP_TAC ((GEN_ALL o SIMP_RULE list_ss [] o + Q.SPECL [`Tsig`, `pat`, `t`, `E'`, `[]`, `E`, `[EB_l location t']`] o + SIMP_RULE list_ss [AND_IMP_INTRO, GSYM RIGHT_FORALL_IMP_THM]) weak_pat_thm)] +THEN SRW_TAC [] [Eok_def, domEB_def, MEM_MAP] THEN METIS_TAC [ok_thm]); + +local + +val lem1 = Q.prove ( +`!l t. ~(EB_l l t = EB_tv)`, SRW_TAC [] []); + +in + +val weak_one_loc_ok_thm = Q.store_thm ("weak_one_loc_ok_thm", +`!E1 E2 t location. Eok (E1++E2) /\ tkind E2 t /\ ~MEM (name_l location) (MAP domEB (E1++E2)) ==> + Eok (E1++[EB_l location t]++E2)`, +Induct THEN SRW_TAC [] [Eok_def] THEN Cases_on `h` THEN FULL_SIMP_TAC list_ss [Eok_def, domEB_def] THEN +SRW_TAC [] [] THENL +[METIS_TAC [lem1, weak_ok_thm, ok_ok_thm, MEM, APPEND], + Cases_on `t'` THEN FULL_SIMP_TAC list_ss [Eok_def] THEN SRW_TAC [] [domEB_def] THEN + Q.EXISTS_TAC `kind` THEN MATCH_MP_TAC weak_lookup_thm THEN SRW_TAC [] [domEB_def], + Cases_on `t'` THEN Cases_on `t0` THEN Cases_on `t1` THEN Cases_on `l` THEN + FULL_SIMP_TAC list_ss [Eok_def, substs_tv_empty_thm] THEN SRW_TAC [] [domEB_def] THEN + FULL_SIMP_TAC list_ss [EVERY_MEM] THEN SRW_TAC [] [] THENL + [METIS_TAC [lem1, weak_ok_thm, ok_ok_thm, MEM], + MATCH_MP_TAC weak_lookup_thm THEN SRW_TAC [] [domEB_def], + METIS_TAC [], + METIS_TAC [], + METIS_TAC [lem1, weak_ok_thm, ok_ok_thm, MEM], + MATCH_MP_TAC weak_lookup_thm THEN SRW_TAC [] [domEB_def], + METIS_TAC [lem1, weak_ok_thm, ok_ok_thm, MEM]], + Cases_on `t'` THEN FULL_SIMP_TAC list_ss [Eok_def] THEN SRW_TAC [] [domEB_def] THENL + [METIS_TAC [lem1, weak_ok_thm, ok_ok_thm, MEM, APPEND], + Q.EXISTS_TAC `field_name_list` THEN SRW_TAC [] [] THEN + MATCH_MP_TAC weak_lookup_thm THEN SRW_TAC [] [domEB_def]], + Cases_on `t'` THEN FULL_SIMP_TAC list_ss [Eok_def] THEN SRW_TAC [] [domEB_def] THEN + METIS_TAC [lem1, weak_ok_thm, ok_ok_thm, MEM, APPEND], + METIS_TAC [lem1, weak_ok_thm, ok_ok_thm, MEM, APPEND]]); +end; + +local + +val lem1 = Q.prove ( +`!E l. value_env E ==> ~MEM (name_l l) (MAP domEB E)`, +recInduct Eok2_ind THEN SRW_TAC [] [domEB_def, value_env_def]); + +val lem2 = Q.prove ( +`!E1 EB E2. E1++[EB]++E2 = E1++EB::E2`, +METIS_TAC [APPEND, APPEND_ASSOC]); + +in + +val val_env_label_weak_thm = Q.store_thm ("val_env_label_weak_thm", +`(!S E E' E'' e t. JTe S (E++E') e t /\ value_env E /\ JTLout S E' L E'' /\ JTLin S E' L ==> + JTe S (E++E''++E') e t) /\ + (!S E E' E'' p t E'''. JTpat S (E++E') p t E''' /\ value_env E /\ JTLout S E' L E'' /\ JTLin S E' L ==> + JTpat S (E++E''++E') p t E''')`, +SRW_TAC [] [JTLout_cases, JTLin_cases] THEN SRW_TAC [] [] THENL +[MATCH_MP_TAC ((GEN_ALL o + SIMP_RULE list_ss [AND_IMP_INTRO, GSYM RIGHT_FORALL_IMP_THM] o + hd o CONJUNCTS) weak_not_tv_thm), + MATCH_MP_TAC ((GEN_ALL o + SIMP_RULE list_ss [AND_IMP_INTRO, GSYM RIGHT_FORALL_IMP_THM]) weak_pat_thm)] THEN +SRW_TAC [] [domEB_def, MEM_MAP] THEN +METIS_TAC [weak_one_loc_ok_thm, lem1, ok_thm, ok_ok_thm, pat_ok_thm, MAP_APPEND, MEM_APPEND]); +end; + + +local + +val lem1 = Q.prove ( +`!E n. shiftE n 0 E = E`, +Induct THEN SRW_TAC [] [shiftE_def, shiftEB_add_thm]); + +val lem2 = Q.prove ( +`!EB E. ~(EB = EB_tv) ==> (num_tv (EB::E) = num_tv E)`, +Cases THEN SRW_TAC [] [num_tv_def]); + +in + +val weak_lem = Q.prove ( +`!S e t E2 E3. + JTe S ([EB_tv]++E3) e t /\ + DISJOINT (MAP name_vn (fv_expr e)) (MAP domEB E2) /\ + Eok (E2++E3) ==> + JTe (shiftTsig 1 (num_tv E2) S) ([EB_tv]++E2++E3) e + (shiftt 1 (num_tv E2) t)`, +Induct_on `E2` THEN SRW_TAC [] [num_tv_def, shiftTsig_add_thm, shiftt_add_thm, lem1] THEN +Cases_on `h = EB_tv` THEN +FULL_SIMP_TAC list_ss [num_tv_def, lem2, Eok_def, DISJOINT_RIGHT] THENL +[RES_TAC THEN + IMP_RES_TAC ((SIMP_RULE list_ss [] o GEN_ALL o Q.SPECL [`S`, `e`, `t`, `[EB_tv]`] o + SIMP_RULE list_ss [AND_IMP_INTRO, GSYM RIGHT_FORALL_IMP_THM] o + hd o CONJUNCTS) weak_one_tv_thm) THEN + FULL_SIMP_TAC list_ss [num_tv_def, shiftE_def, shiftEB_def, GSYM shiftt_add_thm, shiftTsig_add_thm], + MATCH_MP_TAC ((SIMP_RULE list_ss [] o GEN_ALL o Q.SPECL [`[h]`, `E2++E3`, `S`, `e`, `t`, `[EB_tv]`] o + GEN_ALL o + SIMP_RULE list_ss [AND_IMP_INTRO, GSYM RIGHT_FORALL_IMP_THM] o + hd o CONJUNCTS) weak_not_tv_thm) THEN + SRW_TAC [] [Eok_def] THEN + METIS_TAC [APPEND, ok_ok_thm]]); + +val weak_thm = Q.store_thm ("weak_thm", +`!S e t E2 E3. + JTe S ([EB_tv]++E3) e t /\ + closed_env E3 /\ + Eok (E2++E3) ==> + JTe (shiftTsig 1 (num_tv E2) S) ([EB_tv]++E2++E3) e + (shiftt 1 (num_tv E2) t)`, +REPEAT STRIP_TAC THEN MATCH_MP_TAC weak_lem THEN SRW_TAC [] [] THEN +IMP_RES_TAC closed_env_tv_lem THEN IMP_RES_TAC closed_env_fv_thm THEN +SRW_TAC [] [DISJOINT_def]); + +end; + +val _ = export_theory (); diff --git a/vendors/ott/examples/ocaml_light/library.ott b/vendors/ott/examples/ocaml_light/library.ott new file mode 100644 index 000000000000..96848e1cbe62 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/library.ott @@ -0,0 +1,15902 @@ + -*-LaTeX-*- + + +hacked for caml - all except a few lines are commented out with a % in column 0 + + + Part: IV + ******** + The Objective Caml library + ************************** + + + +Chapter 19 The core library +****************************** +% +% This chapter describes the Objective Caml core library, which is composed of +%declarations for built-in types and exceptions, plus the module Pervasives that +%provides basic operations on these built-in types. The Pervasives module is +%special in two ways: +% +% - It is automatically linked with the user-s object code files by the ocamlc +% command (chapter 8). +% +% - It is automatically --opened-- when a compilation starts, or when the +% toplevel system is launched. Hence, it is possible to use unqualified +% identifiers to refer to the functions provided by the Pervasives module, +% without adding a open Pervasives directive. +% +% +%Conventions +%*=*=*=*=*=* +% +% +% The declarations of the built-in types and the components of module +%Pervasives are printed one by one in typewriter font, followed by a short +%comment. All library modules and the components they provide are indexed at the +%end of this report. +% +% +%19.1 Built-in types and predefined exceptions +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= +% +% +% The following built-in types and predefined exceptions are always defined in +%the compilation environment, but are not part of any module. As a consequence, +%they can only be referred by their short names. +% +Built-in types +============== +% +%<< + type int +%>> +% +% The type of integer numbers. +% +%<< + type char +%>> +% +% The type of characters. +% +%<< + type string +%>> +% +% The type of character strings. +% +%<< + type float +%>> +% +% The type of floating-point numbers. +% +%<< + type bool = false | true +%>> +% +% The type of booleans (truth values). +% +%<< + type unit = () +%>> +% +% The type of the unit value. +% +%<< + type exn +%>> +% +% The type of exception values. +% +%<< +% type 'a array +%>> +% +% The type of arrays whose elements have type 'a. +% +%<< + type 'a list = [] | :: of 'a * 'a list +%>> +% +% The type of lists whose elements have type 'a. +% +%<< + type 'a option = None | Some of 'a +%>> +% +% The type of optional values of type 'a. +% +%<< +% type int32 +%>> +% +% The type of signed 32'bit integers. See the Int32[Int32] +% module. +% +%<< +% type int64 +%>> +% +% The type of signed 64'bit integers. See the Int64[Int64] +% module. +% +%<< +% type nativeint +%>> +% +% The type of signed, platform-native integers (32 bits on +% 32'bit processors, 64 bits on 64'bit processors). See the +% Nativeint[Nativeint] module. +% +%<< +% type ('a, 'b, 'c, 'd) format4 +%>> +% +% The type of format strings. 'a is the type of the parameters +% of the format, 'd is the result type for the printf-style +% function, 'b is the type of the first argument given to \%a and +% \%t printing functions (see module Printf[Printf]), and 'c is +% the result type of these functions. +% +%<< +% type 'a lazy_t +%>> +% +% This type is used to implement the Lazy[Lazy] module. It +% should not be used directly. +% +% +Predefined exceptions +===================== +% +%<< + exception Match_failure of (string * int * int) +%>> +% +% Exception raised when none of the cases of a pattern-matching +% apply. The arguments are the location of the match keyword in +% the source code (file name, line number, column number). +% +%<< + exception Assert_failure of (string * int * int) +%>> +% +% Exception raised when an assertion fails. The arguments are +% the location of the assert keyword in the source code (file +% name, line number, column number). +% +%<< + exception Invalid_argument of string +%>> +% +% Exception raised by library functions to signal that the given +% arguments do not make sense. +% +%<< + exception Failure of string +%>> +% +% Exception raised by library functions to signal that they are +% undefined on the given arguments. +% +%<< + exception Not_found +%>> +% +% Exception raised by search functions when the desired object +% could not be found. +% +%<< +% exception Out_of_memory +%>> +% +% Exception raised by the garbage collector when there is +% insufficient memory to complete the computation. +% +%<< +% exception Stack_overflow +%>> +% +% Exception raised by the bytecode interpreter when the +% evaluation stack reaches its maximal size. This often indicates +% infinite or excessively deep recursion in the user-s program. +% (Not fully implemented by the native'code compiler; see section +% 11.5.) +% +%<< +% exception Sys_error of string +%>> +% +% Exception raised by the input/output functions to report an +% operating system error. +% +%<< +% exception End_of_file +%>> +% +% Exception raised by input functions to signal that the end of +% file has been reached. +% +%<< + exception Division_by_zero +%>> +% +% Exception raised by division and remainder operations when +% their second argument is null. (Not fully implemented by the +% native'code compiler; see section 11.5.) +% +%<< +% exception Sys_blocked_io +%>> +% +% A special case of Sys_error raised when no I/O is possible on +% a non'blocking I/O channel. +% +%<< +% exception Undefined_recursive_module of (string * int * int) +%>> +% +% Exception raised when an ill-founded recursive module +% definition is evaluated. (See section 7.9.) The arguments are +% the location of the definition in the source code (file name, +% line number, column number). +% +% +% + +19.2 Module Pervasives : The initially opened module. +*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= +% +% +% This module provides the basic operations over the built-in types (numbers, +%booleans, strings, exceptions, references, lists, arrays, input-output +%channels, ...) +% This module is automatically opened at the beginning of each compilation. +%All components of this module can therefore be referred by their short name, +%without prefixing them by Pervasives. +% 0.5cm +% +Exceptions +========== +% +%<< + val raise : exn -> 'a +%>> +% +% Raise the given exception value +% +%<< +% val invalid_arg : string -> 'a +%>> +% +% Raise exception Invalid_argument with the given string. +% +%<< +% val failwith : string -> 'a +%>> +% +% Raise exception Failure with the given string. +% +%<< +% exception Exit +%>> +% +% The Exit exception is not raised by any library function. It is +% provided for use in your programs. +% +% +Comparisons +=========== + +** do we need to make these less polymorphic? ** + +% +%<< + val (=) : 'a -> 'a -> bool +%>> +% +% e1 = e2 tests for structural equality of e1 and e2. Mutable +% structures (e.g. references and arrays) are equal if and only +% if their current contents are structurally equal, even if the +% two mutable objects are not the same physical object. Equality +% between functional values raises Invalid_argument. Equality +% between cyclic data structures does not terminate. +% +%<< + val (<>) : 'a -> 'a -> bool +%>> +% +% Negation of Pervasives.(=)[19.2]. +% +%<< + val (<) : 'a -> 'a -> bool +%>> +% +% See Pervasives.(>=)[19.2]. +% +%<< + val (>) : 'a -> 'a -> bool +%>> +% +% See Pervasives.(>=)[19.2]. +% +%<< + val (<=) : 'a -> 'a -> bool +%>> +% +% See Pervasives.(>=)[19.2]. +% +%<< + val (>=) : 'a -> 'a -> bool +%>> +% +% Structural ordering functions. These functions coincide with +% the usual orderings over integers, characters, strings and +% floating-point numbers, and extend them to a total ordering +% over all types. The ordering is compatible with (=). As in the +% case of (=), mutable structures are compared by contents. +% Comparison between functional values raises Invalid_argument. +% Comparison between cyclic structures does not terminate. +% +%<< + val compare : 'a -> 'a -> int +%>> +% +% compare x y returns 0 if x is equal to y, a negative integer +% if x is less than y, and a positive integer if x is greater +% than y. The ordering implemented by compare is compatible with +% the comparison predicates =, < and > defined above, with one +% difference on the treatment of the float value +% Pervasives.nan[19.2]. Namely, the comparison predicates treat +% nan as different from any other float value, including itself; +% while compare treats nan as equal to itself and less than any +% other float value. This treatment of nan ensures that compare +% defines a total ordering relation. +% compare applied to functional values may raise Invalid_argument. +% compare applied to cyclic structures may not terminate. +% The compare function can be used as the comparison function +% required by the Set.Make[20.28] and Map.Make[20.18] functors, as +% well as the List.sort[20.17] and Array.sort[20.2] functions. +% +%<< +% val min : 'a -> 'a -> 'a +%>> +% +% Return the smaller of the two arguments. +% +%<< +% val max : 'a -> 'a -> 'a +%>> +% +% Return the greater of the two arguments. +% +%<< +% val (==) : 'a -> 'a -> bool +%>> +% +% e1 == e2 tests for physical equality of e1 and e2. On integers +% and characters, physical equality is identical to structural +% equality. On mutable structures, e1 == e2 is true if and only if +% physical modification of e1 also affects e2. On non-mutable +% structures, the behavior of (==) is implementation-dependent; +% however, it is guaranteed that e1 == e2 implies compare e1 e2 = +% 0. +% +%<< +% val (!=) : 'a -> 'a -> bool +%>> +% +% Negation of Pervasives.(==)[19.2]. +% +% +Boolean operations +================== +% +%<< + val not : bool -> bool +%>> +% +% The boolean negation. +% +%<< + val (&&) : bool -> bool -> bool +%>> +% +% The boolean -'and--. Evaluation is sequential, left-to-right: +% in e1 && e2, e1 is evaluated first, and if it returns false, e2 +% is not evaluated at all. +% +%<< +% val (&) : bool -> bool -> bool +%>> +% +% Deprecated. Pervasives.(&&)[19.2] should be used instead. +% +%<< + val (||) : bool -> bool -> bool +%>> +% +% The boolean --or--. Evaluation is sequential, left-to-right: +% in e1 || e2, e1 is evaluated first, and if it returns true, e2 +% is not evaluated at all. +% +%<< +% val or : bool -> bool -> bool +%>> +% +% Deprecated. Pervasives.(||)[19.2] should be used instead. +% +% +Integer arithmetic +================== + + Integers are 31 bits wide (or 63 bits on 64'bit processors). All operations +are taken modulo 2^31 (or 2^63). They do not fail on overflow. +%<< +% val (~-) : int -> int +%>> +% +% Unary negation. You can also write -e instead of ~-e. +% +%<< +% val succ : int -> int +%>> +% +% succ x is x+1. +% +%<< +% val pred : int -> int +%>> +% +% pred x is x-1. +% +%<< + val (+) : int -> int -> int +%>> +% +% Integer addition. +% +%<< + val (-) : int -> int -> int +%>> +% +% Integer subtraction. +% +%<< + val (*) : int -> int -> int +%>> +% +% Integer multiplication. +% +%<< + val (/) : int -> int -> int +%>> +% +% Integer division. Raise Division_by_zero if the second +% argument is 0. Integer division rounds the real quotient of its +% arguments towards zero. More precisely, if x >= 0 and y > 0, x +% / y is the greatest integer less than or equal to the real +% quotient of x by y. Moreover, (-x) / y = x / (-y) = -(x / y). +% +%<< +% val mod : int -> int -> int +%>> +% +% Integer remainder. If y is not zero, the result of x mod y +% satisfies the following properties: x = (x / y) * y + x mod y +% and abs(x mod y) <= abs(y)-1. If y = 0, x mod y raises +% Division_by_zero. Notice that x mod y is negative if and only +% if x < 0. +% +%<< +% val abs : int -> int +%>> +% +% Return the absolute value of the argument. +% +%<< + val max_int : int +%>> +% +% The greatest representable integer. +% +%<< + val min_int : int +%>> +% +% The smallest representable integer. +% +% +%Bitwise operations +%------------------ +% +%<< +% val land : int -> int -> int +%>> +% +% Bitwise logical and. +% +%<< +% val lor : int -> int -> int +%>> +% +% Bitwise logical or. +% +%<< +% val lxor : int -> int -> int +%>> +% +% Bitwise logical exclusive or. +% +%<< +% val lnot : int -> int +%>> +% +% Bitwise logical negation. +% +%<< +% val lsl : int -> int -> int +%>> +% +% n lsl m shifts n to the left by m bits. The result is +% unspecified if m < 0 or m >= bitsize, where bitsize is 32 on a +% 32'bit platform and 64 on a 64'bit platform. +% +%<< +% val lsr : int -> int -> int +%>> +% +% n lsr m shifts n to the right by m bits. This is a logical +% shift: zeroes are inserted regardless of the sign of n. The +% result is unspecified if m < 0 or m >= bitsize. +% +%<< +% val asr : int -> int -> int +%>> +% +% n asr m shifts n to the right by m bits. This is an arithmetic +% shift: the sign bit of n is replicated. The result is +% unspecified if m < 0 or m >= bitsize. +% +% +%Floating-point arithmetic +%========================= +% +% Caml-s floating-point numbers follow the IEEE 754 standard, using double +%precision (64 bits) numbers. Floating-point operations never raise an +%exception on overflow, underflow, division by zero, etc. Instead, special IEEE +%numbers are returned as appropriate, such as infinity for 1.0 /. 0.0, +%neg_infinity for -1.0 /. 0.0, and nan (--not a number--) for 0.0 /. 0.0. These +%special numbers then propagate through floating-point computations as +%expected: for instance, 1.0 /. infinity is 0.0, and any operation with nan as +% argument returns nan as result. +%<< +% val (~-.) : float -> float +%>> +% +% Unary negation. You can also write -.e instead of ~-.e. +% +%<< +% val (+.) : float -> float -> float +%>> +% +% Floating-point addition +% +%<< +% val (-.) : float -> float -> float +%>> +% +% Floating-point subtraction +% +%<< +% val (*.) : float -> float -> float +%>> +% +% Floating-point multiplication +% +%<< +% val (/.) : float -> float -> float +%>> +% +% Floating-point division. +% +%<< +% val (**) : float -> float -> float +%>> +% +% Exponentiation +% +%<< +% val sqrt : float -> float +%>> +% +% Square root +% +%<< +% val exp : float -> float +%>> +% +% Exponential. +% +%<< +% val log : float -> float +%>> +% +% Natural logarithm. +% +%<< +% val log10 : float -> float +%>> +% +% Base 10 logarithm. +% +%<< +% val cos : float -> float +%>> +% +% See Pervasives.atan2[19.2]. +% +%<< +% val sin : float -> float +%>> +% +% See Pervasives.atan2[19.2]. +% +%<< +% val tan : float -> float +%>> +% +% See Pervasives.atan2[19.2]. +% +%<< +% val acos : float -> float +%>> +% +% See Pervasives.atan2[19.2]. +% +%<< +% val asin : float -> float +%>> +% +% See Pervasives.atan2[19.2]. +% +%<< +% val atan : float -> float +%>> +% +% See Pervasives.atan2[19.2]. +% +%<< +% val atan2 : float -> float -> float +%>> +% +% The usual trigonometric functions. +% +%<< +% val cosh : float -> float +%>> +% +% See Pervasives.tanh[19.2]. +% +%<< +% val sinh : float -> float +%>> +% +% See Pervasives.tanh[19.2]. +% +%<< +% val tanh : float -> float +%>> +% +% The usual hyperbolic trigonometric functions. +% +%<< +% val ceil : float -> float +%>> +% +% See Pervasives.floor[19.2]. +% +%<< +% val floor : float -> float +%>> +% +% Round the given float to an integer value. floor f returns the +% greatest integer value less than or equal to f. ceil f returns +% the least integer value greater than or equal to f. +% +%<< +% val abs_float : float -> float +%>> +% +% Return the absolute value of the argument. +% +%<< +% val mod_float : float -> float -> float +%>> +% +% mod_float a b returns the remainder of a with respect to b. +% The returned value is a -. n *. b, where n is the quotient a /. +% b rounded towards zero to an integer. +% +%<< +% val frexp : float -> float * int +%>> +% +% frexp f returns the pair of the significant and the exponent +% of f. When f is zero, the significant x and the exponent n of f +% are equal to zero. When f is non-zero, they are defined by f = +% x *. 2 ** n and 0.5 <= x < 1.0. +% +%<< +% val ldexp : float -> int -> float +%>> +% +% ldexp x n returns x *. 2 ** n. +% +%<< +% val modf : float -> float * float +%>> +% +% modf f returns the pair of the fractional and integral part of +% f. +% +%<< +% val float : int -> float +%>> +% +% Same as Pervasives.float_of_int[19.2]. +% +%<< +% val float_of_int : int -> float +%>> +% +% Convert an integer to floating-point. +% +%<< +% val truncate : float -> int +%>> +% +% Same as Pervasives.int_of_float[19.2]. +% +%<< +% val int_of_float : float -> int +%>> +% +% Truncate the given floating-point number to an integer. The +% result is unspecified if it falls outside the range of +% representable integers. +% +%<< +% val infinity : float +%>> +% +% Positive infinity. +% +%<< +% val neg_infinity : float +%>> +% +% Negative infinity. +% +%<< +% val nan : float +%>> +% +% A special floating-point value denoting the result of an +% undefined operation such as 0.0 /. 0.0. Stands for --not a +% number--. Any floating-point operation with nan as argument +% returns nan as result. As for floating-point comparisons, =, <, +% <=, > and >= return false and <> returns true if one or both of +% their arguments is nan. +% +%<< +% val max_float : float +%>> +% +% The largest positive finite value of type float. +% +%<< +% val min_float : float +%>> +% +% The smallest positive, non-zero, non-denormalized value of type +% float. +% +%<< +% val epsilon_float : float +%>> +% +% The smallest positive float x such that 1.0 +. x <> 1.0. +% +%<< +% type fpclass = +% | FP_normal +%>> +% +% Normal number, none of the below +% +%<< +% | FP_subnormal +%>> +% +% Number very close to 0.0, has reduced precision +% +%<< +% | FP_zero +%>> +% +% Number is 0.0 or -0.0 +% +%<< +% | FP_infinite +%>> +% +% Number is positive or negative infinity +% +%<< +% | FP_nan +%>> +% +% Not a number: result of an undefined operation +% +% The five classes of floating-point numbers, as determined by +% the Pervasives.classify_float[19.2] function. +% +%<< +% val classify_float : float -> fpclass +%>> +% +% Return the class of the given floating-point number: normal, +% subnormal, zero, infinite, or not a number. +% +% +String operations +================= +% +% More string operations are provided in module String[20.33]. +%<< + val (^) : string -> string -> string +%>> +% +% String concatenation. +% +% +%Character operations +%==================== +% +% More character operations are provided in module Char[20.5]. +%<< +% val int_of_char : char -> int +%>> +% +% Return the ASCII code of the argument. +% +%<< +% val char_of_int : int -> char +%>> +% +% Return the character with the given ASCII code. Raise +% Invalid_argument "char_of_int" if the argument is outside the +% range 0--255. +% +% +Unit operations +=============== +% +%<< + val ignore : 'a -> unit +%>> +% +% Discard the value of its argument and return (). For instance, +% ignore(f x) discards the result of the side-effecting function +% f. It is equivalent to f x; (), except that the latter may +% generate a compiler warning; writing ignore(f x) instead +% avoids the warning. +% +% +%String conversion functions +%=========================== +% +%<< +% val string_of_bool : bool -> string +%>> +% +% Return the string representation of a boolean. +% +%<< +% val bool_of_string : string -> bool +%>> +% +% Convert the given string to a boolean. Raise Invalid_argument +% "bool_of_string" if the string is not "true" or "false". +% +%<< +% val string_of_int : int -> string +%>> +% +% Return the string representation of an integer, in decimal. +% +%<< +% val int_of_string : string -> int +%>> +% +% Convert the given string to an integer. The string is read in +% decimal (by default) or in hexadecimal (if it begins with 0x or +% 0X), octal (if it begins with 0o or 0O), or binary (if it +% begins with 0b or 0B). Raise Failure "int_of_string" if the +% given string is not a valid representation of an integer, or if +% the integer represented exceeds the range of integers +% representable in type int. +% +%<< +% val string_of_float : float -> string +%>> +% +% Return the string representation of a floating-point number. +% +%<< +% val float_of_string : string -> float +%>> +% +% Convert the given string to a float. Raise Failure +% "float_of_string" if the given string is not a valid +% representation of a float. +% +% +%Pair operations +%=============== +% +%<< +% val fst : 'a * 'b -> 'a +%>> +% +% Return the first component of a pair. +% +%<< +% val snd : 'a * 'b -> 'b +%>> +% +% Return the second component of a pair. +% +% +List operations +=============== +% +% More list operations are provided in module List[20.17]. +%<< + val (@) : 'a list -> 'a list -> 'a list +%>> +% +% List concatenation. +% +% +Input/output +============ +% +%<< +% type in_channel +%>> +% +% The type of input channel. +% +%<< +% type out_channel +%>> +% +% The type of output channel. +% +%<< +% val stdin : in_channel +%>> +% +% The standard input for the process. +% +%<< +% val stdout : out_channel +%>> +% +% The standard output for the process. +% +%<< +% val stderr : out_channel +%>> +% +% The standard error ouput for the process. +% +% +%Output functions on standard output +%----------------------------------- +% +%<< +% val print_char : char -> unit +%>> +% +% Print a character on standard output. +% +%<< + val print_string : string -> unit +%>> +% +% Print a string on standard output. +% +%<< +% val print_int : int -> unit +%>> +% +% Print an integer, in decimal, on standard output. +% +%<< +% val print_float : float -> unit +%>> +% +% Print a floating-point number, in decimal, on standard output. +% +%<< +% val print_endline : string -> unit +%>> +% +% Print a string, followed by a newline character, on standard +% output and flush standard output. +% +%<< +% val print_newline : unit -> unit +%>> +% +% Print a newline character on standard output, and flush +% standard output. This can be used to simulate line buffering of +% standard output. +% +% +%Output functions on standard error +%---------------------------------- +% +%<< +% val prerr_char : char -> unit +%>> +% +% Print a character on standard error. +% +%<< +% val prerr_string : string -> unit +%>> +% +% Print a string on standard error. +% +%<< +% val prerr_int : int -> unit +%>> +% +% Print an integer, in decimal, on standard error. +% +%<< +% val prerr_float : float -> unit +%>> +% +% Print a floating-point number, in decimal, on standard error. +% +%<< +% val prerr_endline : string -> unit +%>> +% +% Print a string, followed by a newline character on standard +% error and flush standard error. +% +%<< +% val prerr_newline : unit -> unit +%>> +% +% Print a newline character on standard error, and flush +% standard error. +% +% +%Input functions on standard input +%--------------------------------- +% +%<< +% val read_line : unit -> string +%>> +% +% Flush standard output, then read characters from standard input +% until a newline character is encountered. Return the string of +% all characters read, without the newline character at the end. +% +%<< +% val read_int : unit -> int +%>> +% +% Flush standard output, then read one line from standard input +% and convert it to an integer. Raise Failure "int_of_string" if +% the line read is not a valid representation of an integer. +% +%<< +% val read_float : unit -> float +%>> +% +% Flush standard output, then read one line from standard input +% and convert it to a floating-point number. The result is +% unspecified if the line read is not a valid representation of a +% floating-point number. +% +% +%General output functions +%------------------------ +% +%<< +% type open_flag = +% | Open_rdonly +%>> +% +% open for reading. +% +%<< +% | Open_wronly +%>> +% +% open for writing. +% +%<< +% | Open_append +%>> +% +% open for appending: always write at end of file. +% +%<< +% | Open_creat +%>> +% +% create the file if it does not exist. +% +%<< +% | Open_trunc +%>> +% +% empty the file if it already exists. +% +%<< +% | Open_excl +%>> +% +% fail if Open_creat and the file already exists. +% +%<< +% | Open_binary +%>> +% +% open in binary mode (no conversion). +% +%<< +% | Open_text +%>> +% +% open in text mode (may perform conversions). +% +%<< +% | Open_nonblock +%>> +% +% open in non'blocking mode. +% +% Opening modes for Pervasives.open_out_gen[19.2] and +% Pervasives.open_in_gen[19.2]. +% +%<< +% val open_out : string -> out_channel +%>> +% +% Open the named file for writing, and return a new output +% channel on that file, positionned at the beginning of the file. +% The file is truncated to zero length if it already exists. It +% is created if it does not already exists. Raise Sys_error if +% the file could not be opened. +% +%<< +% val open_out_bin : string -> out_channel +%>> +% +% Same as Pervasives.open_out[19.2], but the file is opened in +% binary mode, so that no translation takes place during writes. +% On operating systems that do not distinguish between text mode +% and binary mode, this function behaves like +% Pervasives.open_out[19.2]. +% +%<< +% val open_out_gen : open_flag list -> int -> string -> out_channel +%>> +% +% Open the named file for writing, as above. The extra argument +% mode specify the opening mode. The extra argument perm +% specifies the file permissions, in case the file must be +% created. Pervasives.open_out[19.2] and +% Pervasives.open_out_bin[19.2] are special cases of this +% function. +% +%<< +% val flush : out_channel -> unit +%>> +% +% Flush the buffer associated with the given output channel, +% performing all pending writes on that channel. Interactive +% programs must be careful about flushing standard output and +% standard error at the right time. +% +%<< +% val flush_all : unit -> unit +%>> +% +% Flush all open output channels; ignore errors. +% +%<< +% val output_char : out_channel -> char -> unit +%>> +% +% Write the character on the given output channel. +% +%<< +% val output_string : out_channel -> string -> unit +%>> +% +% Write the string on the given output channel. +% +%<< +% val output : out_channel -> string -> int -> int -> unit +%>> +% +% output oc buf pos len writes len characters from string buf, +% starting at offset pos, to the given output channel oc. Raise +% Invalid_argument "output" if pos and len do not designate a +% valid substring of buf. +% +%<< +% val output_byte : out_channel -> int -> unit +%>> +% +% Write one 8'bit integer (as the single character with that +% code) on the given output channel. The given integer is taken +% modulo 256. +% +%<< +% val output_binary_int : out_channel -> int -> unit +%>> +% +% Write one integer in binary format (4 bytes, big-endian) on +% the given output channel. The given integer is taken modulo +% 2^32. The only reliable way to read it back is through the +% Pervasives.input_binary_int[19.2] function. The format is +% compatible across all machines for a given version of Objective +% Caml. +% +%<< +% val output_value : out_channel -> 'a -> unit +%>> +% +% Write the representation of a structured value of any type to +% a channel. Circularities and sharing inside the value are +% detected and preserved. The object can be read back, by the +% function Pervasives.input_value[19.2]. See the description of +% module Marshal[20.19] for more information. +% Pervasives.output_value[19.2] is equivalent to +% Marshal.to_channel[20.19] with an empty list of flags. +% +%<< +% val seek_out : out_channel -> int -> unit +%>> +% +% seek_out chan pos sets the current writing position to pos for +% channel chan. This works only for regular files. On files of +% other kinds (such as terminals, pipes and sockets), the +% behavior is unspecified. +% +%<< +% val pos_out : out_channel -> int +%>> +% +% Return the current writing position for the given channel. Does +% not work on channels opened with the Open_append flag (returns +% unspecified results). +% +%<< +% val out_channel_length : out_channel -> int +%>> +% +% Return the size (number of characters) of the regular file on +% which the given channel is opened. If the channel is opened on +% a file that is not a regular file, the result is meaningless. +% +%<< +% val close_out : out_channel -> unit +%>> +% +% Close the given channel, flushing all buffered write +% operations. Output functions raise a Sys_error exception when +% they are applied to a closed output channel, except close_out +% and flush, which do nothing when applied to an already closed +% channel. Note that close_out may raise Sys_error if the +% operating system signals an error when flushing or closing. +% +%<< +% val close_out_noerr : out_channel -> unit +%>> +% +% Same as close_out, but ignore all errors. +% +%<< +% val set_binary_mode_out : out_channel -> bool -> unit +%>> +% +% set_binary_mode_out oc true sets the channel oc to binary +% mode: no translations take place during output. +% set_binary_mode_out oc false sets the channel oc to text mode: +% depending on the operating system, some translations may take +% place during output. For instance, under Windows, end-of-lines +% will be translated from \n to \r\n. This function has no effect +% under operating systems that do not distinguish between text +% mode and binary mode. +% +% +%General input functions +%----------------------- +% +%<< +% val open_in : string -> in_channel +%>> +% +% Open the named file for reading, and return a new input channel +% on that file, positionned at the beginning of the file. Raise +% Sys_error if the file could not be opened. +% +%<< +% val open_in_bin : string -> in_channel +%>> +% +% Same as Pervasives.open_in[19.2], but the file is opened in +% binary mode, so that no translation takes place during reads. +% On operating systems that do not distinguish between text mode +% and binary mode, this function behaves like +% Pervasives.open_in[19.2]. +% +%<< +% val open_in_gen : open_flag list -> int -> string -> in_channel +%>> +% +% Open the named file for reading, as above. The extra arguments +% mode and perm specify the opening mode and file permissions. +% Pervasives.open_in[19.2] and Pervasives.open_in_bin[19.2] are +% special cases of this function. +% +%<< +% val input_char : in_channel -> char +%>> +% +% Read one character from the given input channel. Raise +% End_of_file if there are no more characters to read. +% +%<< +% val input_line : in_channel -> string +%>> +% +% Read characters from the given input channel, until a newline +% character is encountered. Return the string of all characters +% read, without the newline character at the end. Raise +% End_of_file if the end of the file is reached at the beginning +% of line. +% +%<< +% val input : in_channel -> string -> int -> int -> int +%>> +% +% input ic buf pos len reads up to len characters from the given +% channel ic, storing them in string buf, starting at character +% number pos. It returns the actual number of characters read, +% between 0 and len (inclusive). A return value of 0 means that +% the end of file was reached. A return value between 0 and len +% exclusive means that not all requested len characters were +% read, either because no more characters were available at that +% time, or because the implementation found it convenient to do a +% partial read; input must be called again to read the remaining +% characters, if desired. (See also Pervasives.really_input[19.2] +% for reading exactly len characters.) Exception +% Invalid_argument "input" is raised if pos and len do not +% designate a valid substring of buf. +% +%<< +% val really_input : in_channel -> string -> int -> int -> unit +%>> +% +% really_input ic buf pos len reads len characters from channel +% ic, storing them in string buf, starting at character number +% pos. Raise End_of_file if the end of file is reached before len +% characters have been read. Raise Invalid_argument +% "really_input" if pos and len do not designate a valid +% substring of buf. +% +%<< +% val input_byte : in_channel -> int +%>> +% +% Same as Pervasives.input_char[19.2], but return the 8'bit +% integer representing the character. Raise End_of_file if an +% end of file was reached. +% +%<< +% val input_binary_int : in_channel -> int +%>> +% +% Read an integer encoded in binary format (4 bytes, big-endian) +% from the given input channel. See +% Pervasives.output_binary_int[19.2]. Raise End_of_file if an end +% of file was reached while reading the integer. +% +%<< +% val input_value : in_channel -> 'a +%>> +% +% Read the representation of a structured value, as produced by +% Pervasives.output_value[19.2], and return the corresponding +% value. This function is identical to +% Marshal.from_channel[20.19]; see the description of module +% Marshal[20.19] for more information, in particular concerning +% the lack of type safety. +% +%<< +% val seek_in : in_channel -> int -> unit +%>> +% +% seek_in chan pos sets the current reading position to pos for +% channel chan. This works only for regular files. On files of +% other kinds, the behavior is unspecified. +% +%<< +% val pos_in : in_channel -> int +%>> +% +% Return the current reading position for the given channel. +% +%<< +% val in_channel_length : in_channel -> int +%>> +% +% Return the size (number of characters) of the regular file on +% which the given channel is opened. If the channel is opened on +% a file that is not a regular file, the result is meaningless. +% The returned size does not take into account the end-of-line +% translations that can be performed when reading from a channel +% opened in text mode. +% +%<< +% val close_in : in_channel -> unit +%>> +% +% Close the given channel. Input functions raise a Sys_error +% exception when they are applied to a closed input channel, +% except close_in, which does nothing when applied to an already +% closed channel. Note that close_in may raise Sys_error if the +% operating system signals an error. +% +%<< +% val close_in_noerr : in_channel -> unit +%>> +% +% Same as close_in, but ignore all errors. +% +%<< +% val set_binary_mode_in : in_channel -> bool -> unit +%>> +% +% set_binary_mode_in ic true sets the channel ic to binary mode: +% no translations take place during input. set_binary_mode_out ic +% false sets the channel ic to text mode: depending on the +% operating system, some translations may take place during +% input. For instance, under Windows, end-of-lines will be +% translated from \r\n to \n. This function has no effect under +% operating systems that do not distinguish between text mode and +% binary mode. +% +% +%Operations on large files +%------------------------- +% +%<< +% module LargeFile : >> +% +% sig +% +% +% << +% val seek_out : Pervasives.out_channel -> int64 -> unit +% >> +% +% << +% val pos_out : Pervasives.out_channel -> int64 +% >> +% +% << +% val out_channel_length : Pervasives.out_channel -> int64 +% >> +% +% << +% val seek_in : Pervasives.in_channel -> int64 -> unit +% >> +% +% << +% val pos_in : Pervasives.in_channel -> int64 +% >> +% +% << +% val in_channel_length : Pervasives.in_channel -> int64 +% >> +% +% - end +% +% Operations on large files. This sub-module provides 64'bit +% variants of the channel functions that manipulate file +% positions and file sizes. By representing positions and sizes +% by 64'bit integers (type int64) instead of regular integers +% (type int), these alternate functions allow operating on files +% whose sizes are greater than max_int. +% +% +References +========== +% +%<< + type 'a ref +% type 'a ref = { +% mutable contents : 'a ; +% } +%>> +% +% The type of references (mutable indirection cells) containing +% a value of type 'a. +% +%<< + val ref : 'a -> 'a ref +%>> +% +% Return a fresh reference containing the given value. +% +%<< + val (!) : 'a ref -> 'a +%>> +% +% !r returns the current contents of reference r. Equivalent to +% fun r -> r.contents. +% +%<< + val (:=) : 'a ref -> 'a -> unit +%>> +% +% r := a stores the value of a in reference r. Equivalent to fun +% r v -> r.contents <- v. +% +%<< +% val incr : int ref -> unit +%>> +% +% Increment the integer contained in the given reference. +% Equivalent to fun r -> r := succ !r. +% +%<< +% val decr : int ref -> unit +%>> +% +% Decrement the integer contained in the given reference. +% Equivalent to fun r -> r := pred !r. +% +% +%Operations on format strings +%============================ +% +% See modules Printf[20.24] and Scanf[20.27] for more operations on format +%strings. +%<< +% type ('a, 'b, 'c) format = ('a, 'b, 'c, 'c) format4 +%>> +% +% Simplified type for format strings, included for backward +% compatibility with earlier releases of Objective Caml. 'a is +% the type of the parameters of the format, 'c is the result type +% for the "printf"-style function, and 'b is the type of the +% first argument given to %a and %t printing functions. +% +%<< +% val string_of_format : ('a, 'b, 'c, 'd) format4 -> string +%>> +% +% Converts a format string into a string. +% +%<< +% val format_of_string : ('a, 'b, 'c, 'd) format4 -> ('a, 'b, 'c, 'd) format4 +%>> +% +% format_of_string s returns a format string read from the string +% literal s. +% +%<< +% val (^^) : +% ('a, 'b, 'c, 'd) format4 -> +% (-d, 'b, 'c, -e) format4 -> ('a, 'b, 'c, -e) format4 +%>> +% +% f1 ^^f2 catenates formats f1 and f2. The result is a format +% that accepts arguments from f1, then arguments from f2. +% +% +%Program termination +%=================== +% +%<< +% val exit : int -> 'a +%>> +% +% Terminate the process, returning the given status code to the +% operating system: usually 0 to indicate no errors, and a small +% positive integer to indicate failure. All open output channels +% are flushed with flush_all. An implicit exit 0 is performed +% each time a program terminates normally. An implicit exit 2 is +% performed if the program terminates early because of an +% uncaught exception. +% +%<< +% val at_exit : (unit -> unit) -> unit +%>> +% +% Register the given function to be called at program +% termination time. The functions registered with at_exit will be +% called when the program executes Pervasives.exit[19.2], or +% terminates, either normally or because of an uncaught exception. +% The functions are called in --last in, first out-- order: the +% function most recently added with at_exit is called first. +% +% +% +% +% +%Chapter 20 The standard library +%********************************** +% +% This chapter describes the functions provided by the Objective Caml standard +%library. The modules from the standard library are automatically linked with +%the user-s object code files by the ocamlc command. Hence, these modules can be +%used in standalone programs without having to add any .cmo file on the command +%line for the linking phase. Similarly, in interactive use, these globals can be +%used in toplevel phrases without having to load any .cmo file in memory. +% Unlike the Pervasive module from the core library, the modules from the +%standard library are not automatically --opened-- when a compilation starts, or +%when the toplevel system is launched. Hence it is necessary to use qualified +%identifiers to refer to the functions provided by these modules, or to add open +%directives. +% +% +%Conventions +%*=*=*=*=*=* +% +% +% For easy reference, the modules are listed below in alphabetical order of +%module names. For each module, the declarations from its signature are printed +%one by one in typewriter font, followed by a short comment. All modules and the +%identifiers they export are indexed at the end of this report. +% +% +% +%20.1 Module Arg : Parsing of command line arguments. +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* +% +% +% This module provides a general mechanism for extracting options and +%arguments from the command line to the program. +% Syntax of command lines: A keyword is a character string starting with a -. +%An option is a keyword alone or followed by an argument. The types of keywords +%are: Unit, Bool, Set, Clear, String, Set_string, Int, Set_int, Float, +%Set_float, Tuple, Symbol, and Rest. Unit, Set and Clear keywords take no +%argument. A Rest keyword takes the remaining of the command line as arguments. +% Every other keyword takes the following word on the command line as argument. +% Arguments not preceded by a keyword are called anonymous arguments. +% Examples (cmd is assumed to be the command name): +% +% - cmd -flag (a unit option) +% - cmd -int 1 (an int option with argument 1) +% - cmd -string foobar (a string option with argument "foobar") +% - cmd -float 12.34 (a float option with argument 12.34) +% - cmd a b c (three anonymous arguments: "a", "b", and "c") +% - cmd a b -- c d (two anonymous arguments and a rest option with two +% arguments) +% +% 0.5cm +%<< +% type spec = +% | Unit of (unit -> unit) +%>> +% +% Call the function with unit argument +% +%<< +% | Bool of (bool -> unit) +%>> +% +% Call the function with a bool argument +% +%<< +% | Set of bool Pervasives.ref +%>> +% +% Set the reference to true +% +%<< +% | Clear of bool Pervasives.ref +%>> +% +% Set the reference to false +% +%<< +% | String of (string -> unit) +%>> +% +% Call the function with a string argument +% +%<< +% | Set_string of string Pervasives.ref +%>> +% +% Set the reference to the string argument +% +%<< +% | Int of (int -> unit) +%>> +% +% Call the function with an int argument +% +%<< +% | Set_int of int Pervasives.ref +%>> +% +% Set the reference to the int argument +% +%<< +% | Float of (float -> unit) +%>> +% +% Call the function with a float argument +% +%<< +% | Set_float of float Pervasives.ref +%>> +% +% Set the reference to the float argument +% +%<< +% | Tuple of spec list +%>> +% +% Take several arguments according to the spec list +% +%<< +% | Symbol of string list * (string -> unit) +%>> +% +% Take one of the symbols as argument and call the function with +% the symbol +% +%<< +% | Rest of (string -> unit) +%>> +% +% Stop interpreting keywords and call the function with each +% remaining argument +% +% The concrete type describing the behavior associated with a +% keyword. +% +%<< +% type key = string +%>> +% +%<< +% type doc = string +%>> +% +%<< +% type usage_msg = string +%>> +% +%<< +% type anon_fun = string -> unit +%>> +% +%<< +% val parse : (key * spec * doc) list -> anon_fun -> usage_msg -> unit +%>> +% +% Arg.parse speclist anon_fun usage_msg parses the command line. +% speclist is a list of triples (key, spec, doc). key is the +% option keyword, it must start with a --- character. spec gives +% the option type and the function to call when this option is +% found on the command line. doc is a one-line description of +% this option. anon_fun is called on anonymous arguments. The +% functions in spec and anon_fun are called in the same order as +% their arguments appear on the command line. +% If an error occurs, Arg.parse exits the program, after printing +% an error message as follows: +% +% - The reason for the error: unknown option, invalid or missing +% argument, etc. +% - usage_msg +% - The list of options, each followed by the corresponding doc +% string. +% +% For the user to be able to specify anonymous arguments starting +% with a -, include for example ("-", String anon_fun, doc) in +% speclist. +% By default, parse recognizes two unit options, -help and --help, +% which will display usage_msg and the list of options, and exit +% the program. You can override this behaviour by specifying your +% own -help and --help options in speclist. +% +%<< +% val parse_argv : +% ?current:int Pervasives.ref -> +% string array -> +% (key * spec * doc) list -> anon_fun -> usage_msg -> unit +%>> +% +% Arg.parse_argv ~current args speclist anon_fun usage_msg parses +% the array args as if it were the command line. It uses and +% updates the value of ~current (if given), or Arg.current. You +% must set it before calling parse_argv. The initial value of +% current is the index of the program name (argument 0) in the +% array. If an error occurs, Arg.parse_argv raises Arg.Bad with +% the error message as argument. If option -help or --help is +% given, Arg.parse_argv raises Arg.Help with the help message as +% argument. +% +%<< +% exception Help of string +%>> +% +% Raised by Arg.parse_argv when the user asks for help. +% +%<< +% exception Bad of string +%>> +% +% Functions in spec or anon_fun can raise Arg.Bad with an error +% message to reject invalid arguments. Arg.Bad is also raised by +% Arg.parse_argv in case of an error. +% +%<< +% val usage : (key * spec * doc) list -> usage_msg -> unit +%>> +% +% Arg.usage speclist usage_msg prints an error message including +% the list of valid options. This is the same message that +% Arg.parse[20.1] prints in case of error. speclist and usage_msg +% are the same as for Arg.parse. +% +%<< +% val align : (key * spec * doc) list -> (key * spec * doc) list +%>> +% +% Align the documentation strings by inserting spaces at the +% first space, according to the length of the keyword. Use a +% space as the first character in a doc string if you want to +% align the whole string. The doc strings corresponding to Symbol +% arguments are not aligned. +% +%<< +% val current : int Pervasives.ref +%>> +% +% Position (in Sys.argv[20.34]) of the argument being processed. +% You can change this value, e.g. to force Arg.parse[20.1] to +% skip some arguments. Arg.parse[20.1] uses the initial value of +% Arg.current[20.1] as the index of argument 0 (the program name) +% and starts parsing arguments at the next element. +% +% +% +%20.2 Module Array : Array operations. +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= +% +% +% 0.5cm +%<< +% val length : 'a array -> int +%>> +% +% Return the length (number of elements) of the given array. +% +%<< +% val get : 'a array -> int -> 'a +%>> +% +% Array.get a n returns the element number n of array a. The +% first element has number 0. The last element has number +% Array.length a - 1. You can also write a.(n) instead of +% Array.get a n. +% Raise Invalid_argument "index out of bounds" if n is outside +% the range 0 to (Array.length a - 1). +% +%<< +% val set : 'a array -> int -> 'a -> unit +%>> +% +% Array.set a n x modifies array a in place, replacing element +% number n with x. You can also write a.(n) <- x instead of +% Array.set a n x. +% Raise Invalid_argument "index out of bounds" if n is outside +% the range 0 to Array.length a - 1. +% +%<< +% val make : int -> 'a -> 'a array +%>> +% +% Array.make n x returns a fresh array of length n, initialized +% with x. All the elements of this new array are initially +% physically equal to x (in the sense of the == predicate). +% Consequently, if x is mutable, it is shared among all elements +% of the array, and modifying x through one of the array entries +% will modify all other entries at the same time. +% Raise Invalid_argument if n < 0 or n > Sys.max_array_length. If +% the value of x is a floating-point number, then the maximum +% size is only Sys.max_array_length / 2. +% +%<< +% val create : int -> 'a -> 'a array +%>> +% +% Deprecated. Array.create is an alias for Array.make[20.2]. +% +%<< +% val init : int -> (int -> 'a) -> 'a array +%>> +% +% Array.init n f returns a fresh array of length n, with element +% number i initialized to the result of f i. In other terms, +% Array.init n f tabulates the results of f applied to the +% integers 0 to n-1. +% Raise Invalid_argument if n < 0 or n > Sys.max_array_length. If +% the return type of f is float, then the maximum size is only +% Sys.max_array_length / 2. +% +%<< +% val make_matrix : int -> int -> 'a -> 'a array array +%>> +% +% Array.make_matrix dimx dimy e returns a two-dimensional array +% (an array of arrays) with first dimension dimx and second +% dimension dimy. All the elements of this new matrix are +% initially physically equal to e. The element (x,y) of a matrix +% m is accessed with the notation m.(x).(y). +% Raise Invalid_argument if dimx or dimy is negative or greater +% than Sys.max_array_length. If the value of e is a +% floating-point number, then the maximum size is only +% Sys.max_array_length / 2. +% +%<< +% val create_matrix : int -> int -> 'a -> 'a array array +%>> +% +% Deprecated. Array.create_matrix is an alias for +% Array.make_matrix[20.2]. +% +%<< +% val append : 'a array -> 'a array -> 'a array +%>> +% +% Array.append v1 v2 returns a fresh array containing the +% concatenation of the arrays v1 and v2. +% +%<< +% val concat : 'a array list -> 'a array +%>> +% +% Same as Array.append, but concatenates a list of arrays. +% +%<< +% val sub : 'a array -> int -> int -> 'a array +%>> +% +% Array.sub a start len returns a fresh array of length len, +% containing the elements number start to start + len - 1 of +% array a. +% Raise Invalid_argument "Array.sub" if start and len do not +% designate a valid subarray of a; that is, if start < 0, or len +% < 0, or start + len > Array.length a. +% +%<< +% val copy : 'a array -> 'a array +%>> +% +% Array.copy a returns a copy of a, that is, a fresh array +% containing the same elements as a. +% +%<< +% val fill : 'a array -> int -> int -> 'a -> unit +%>> +% +% Array.fill a ofs len x modifies the array a in place, storing +% x in elements number ofs to ofs + len - 1. +% Raise Invalid_argument "Array.fill" if ofs and len do not +% designate a valid subarray of a. +% +%<< +% val blit : 'a array -> int -> 'a array -> int -> int -> unit +%>> +% +% Array.blit v1 o1 v2 o2 len copies len elements from array v1, +% starting at element number o1, to array v2, starting at element +% number o2. It works correctly even if v1 and v2 are the same +% array, and the source and destination chunks overlap. +% Raise Invalid_argument "Array.blit" if o1 and len do not +% designate a valid subarray of v1, or if o2 and len do not +% designate a valid subarray of v2. +% +%<< +% val to_list : 'a array -> 'a list +%>> +% +% Array.to_list a returns the list of all the elements of a. +% +%<< +% val of_list : 'a list -> 'a array +%>> +% +% Array.of_list l returns a fresh array containing the elements +% of l. +% +%<< +% val iter : ('a -> unit) -> 'a array -> unit +%>> +% +% Array.iter f a applies function f in turn to all the elements +% of a. It is equivalent to f a.(0); f a.(1); ...; f +% a.(Array.length a - 1); (). +% +%<< +% val map : ('a -> 'b) -> 'a array -> 'b array +%>> +% +% Array.map f a applies function f to all the elements of a, and +% builds an array with the results returned by f: [| f a.(0); f +% a.(1); ...; f a.(Array.length a - 1) |]. +% +%<< +% val iteri : (int -> 'a -> unit) -> 'a array -> unit +%>> +% +% Same as Array.iter[20.2], but the function is applied to the +% index of the element as first argument, and the element itself +% as second argument. +% +%<< +% val mapi : (int -> 'a -> 'b) -> 'a array -> 'b array +%>> +% +% Same as Array.map[20.2], but the function is applied to the +% index of the element as first argument, and the element itself +% as second argument. +% +%<< +% val fold_left : ('a -> 'b -> 'a) -> 'a -> 'b array -> 'a +%>> +% +% Array.fold_left f x a computes f (... (f (f x a.(0)) a.(1)) +% ...) a.(n-1), where n is the length of the array a. +% +%<< +% val fold_right : ('a -> 'b -> 'b) -> 'a array -> 'b -> 'b +%>> +% +% Array.fold_right f a x computes f a.(0) (f a.(1) ( ... (f +% a.(n-1) x) ...)), where n is the length of the array a. +% +% +%Sorting +%======= +% +%<< +% val sort : ('a -> 'a -> int) -> 'a array -> unit +%>> +% +% Sort an array in increasing order according to a comparison +% function. The comparison function must return 0 if its arguments +% compare as equal, a positive integer if the first is greater, +% and a negative integer if the first is smaller (see below for a +% complete specification). For example, Pervasives.compare[19.2] +% is a suitable comparison function, provided there are no +% floating-point NaN values in the data. After calling +% Array.sort, the array is sorted in place in increasing order. +% Array.sort is guaranteed to run in constant heap space and (at +% most) logarithmic stack space. +% The current implementation uses Heap Sort. It runs in constant +% stack space. +% Specification of the comparison function: Let a be the array +% and cmp the comparison function. The following must be true for +% all x, y, z in a : +% +% - cmp x y > 0 if and only if cmp y x < 0 +% - if cmp x y >= 0 and cmp y z >= 0 then cmp x z >= 0 +% +% When Array.sort returns, a contains the same elements as before, +% reordered in such a way that for all i and j valid indices of a +% : +% +% - cmp a.(i) a.(j) >= 0 if and only if i >= j +% +%<< +% val stable_sort : ('a -> 'a -> int) -> 'a array -> unit +%>> +% +% Same as Array.sort[20.2], but the sorting algorithm is stable +% (i.e. elements that compare equal are kept in their original +% order) and not guaranteed to run in constant heap space. +% The current implementation uses Merge Sort. It uses n/2 words +% of heap space, where n is the length of the array. It is +% usually faster than the current implementation of +% Array.sort[20.2]. +% +%<< +% val fast_sort : ('a -> 'a -> int) -> 'a array -> unit +%>> +% +% Same as Array.sort[20.2] or Array.stable_sort[20.2], whichever +% is faster on typical input. +% +% +% +%20.3 Module Buffer : Extensible string buffers. +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= +% +% +% This module implements string buffers that automatically expand as +%necessary. It provides accumulative concatenation of strings in quasi-linear +%time (instead of quadratic time when strings are concatenated pairwise). +% 0.5cm +%<< +% type t +%>> +% +% The abstract type of buffers. +% +%<< +% val create : int -> t +%>> +% +% create n returns a fresh buffer, initially empty. The n +% parameter is the initial size of the internal string that holds +% the buffer contents. That string is automatically reallocated +% when more than n characters are stored in the buffer, but +% shrinks back to n characters when reset is called. For best +% performance, n should be of the same order of magnitude as the +% number of characters that are expected to be stored in the +% buffer (for instance, 80 for a buffer that holds one output +% line). Nothing bad will happen if the buffer grows beyond that +% limit, however. In doubt, take n = 16 for instance. If n is not +% between 1 and Sys.max_string_length[20.34], it will be clipped +% to that interval. +% +%<< +% val contents : t -> string +%>> +% +% Return a copy of the current contents of the buffer. The +% buffer itself is unchanged. +% +%<< +% val sub : t -> int -> int -> string +%>> +% +% Buffer.sub b off len returns (a copy of) the substring of the +% current contents of the buffer b starting at offset off of +% length len bytes. May raise Invalid_argument if out of bounds +% request. The buffer itself is unaffected. +% +%<< +% val nth : t -> int -> char +%>> +% +% get the n-th character of the buffer. Raise Invalid_argument if +% index out of bounds +% +%<< +% val length : t -> int +%>> +% +% Return the number of characters currently contained in the +% buffer. +% +%<< +% val clear : t -> unit +%>> +% +% Empty the buffer. +% +%<< +% val reset : t -> unit +%>> +% +% Empty the buffer and deallocate the internal string holding the +% buffer contents, replacing it with the initial internal string +% of length n that was allocated by Buffer.create[20.3] n. For +% long-lived buffers that may have grown a lot, reset allows +% faster reclamation of the space used by the buffer. +% +%<< +% val add_char : t -> char -> unit +%>> +% +% add_char b c appends the character c at the end of the buffer +% b. +% +%<< +% val add_string : t -> string -> unit +%>> +% +% add_string b s appends the string s at the end of the buffer b. +% +%<< +% val add_substring : t -> string -> int -> int -> unit +%>> +% +% add_substring b s ofs len takes len characters from offset ofs +% in string s and appends them at the end of the buffer b. +% +%<< +% val add_substitute : t -> (string -> string) -> string -> unit +%>> +% +% add_substitute b f s appends the string pattern s at the end +% of the buffer b with substitution. The substitution process +% looks for variables into the pattern and substitutes each +% variable name by its value, as obtained by applying the mapping +% f to the variable name. Inside the string pattern, a variable +% name immediately follows a non-escaped $ character and is one +% of the following: +% +% - a non empty sequence of alphanumeric or _ characters, +% - an arbitrary sequence of characters enclosed by a pair of +% matching parentheses or curly brackets. An escaped $ +% character is a $ that immediately follows a backslash +% character; it then stands for a plain $. Raise Not_found if +% the closing character of a parenthesized variable cannot be +% found. +% +%<< +% val add_buffer : t -> t -> unit +%>> +% +% add_buffer b1 b2 appends the current contents of buffer b2 at +% the end of buffer b1. b2 is not modified. +% +%<< +% val add_channel : t -> Pervasives.in_channel -> int -> unit +%>> +% +% add_channel b ic n reads exactly n character from the input +% channel ic and stores them at the end of buffer b. Raise +% End_of_file if the channel contains fewer than n characters. +% +%<< +% val output_buffer : Pervasives.out_channel -> t -> unit +%>> +% +% output_buffer oc b writes the current contents of buffer b on +% the output channel oc. +% +% +% +%20.4 Module Callback : Registering Caml values with the C runtime. +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* +% +% +% This module allows Caml values to be registered with the C runtime under a +%symbolic name, so that C code can later call back registered Caml functions, +%or raise registered Caml exceptions. +% 0.5cm +%<< +% val register : string -> 'a -> unit +%>> +% +% Callback.register n v registers the value v under the name n. +% C code can later retrieve a handle to v by calling +% caml_named_value(n). +% +%<< +% val register_exception : string -> exn -> unit +%>> +% +% Callback.register_exception n exn registers the exception +% contained in the exception value exn under the name n. C code +% can later retrieve a handle to the exception by calling +% caml_named_value(n). The exception value thus obtained is +% suitable for passign as first argument to raise_constant or +% raise_with_arg. +% +% +% +%20.5 Module Char : Character operations. +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* +% +% +% 0.5cm +%<< +% val code : char -> int +%>> +% +% Return the ASCII code of the argument. +% +%<< +% val chr : int -> char +%>> +% +% Return the character with the given ASCII code. Raise +% Invalid_argument "Char.chr" if the argument is outside the +% range 0--255. +% +%<< +% val escaped : char -> string +%>> +% +% Return a string representing the given character, with special +% characters escaped following the lexical conventions of +% Objective Caml. +% +%<< +% val lowercase : char -> char +%>> +% +% Convert the given character to its equivalent lowercase +% character. +% +%<< +% val uppercase : char -> char +%>> +% +% Convert the given character to its equivalent uppercase +% character. +% +%<< +% type t = char +%>> +% +% An alias for the type of characters. +% +%<< +% val compare : t -> t -> int +%>> +% +% The comparison function for characters, with the same +% specification as Pervasives.compare[19.2]. Along with the type +% t, this function compare allows the module Char to be passed as +% argument to the functors Set.Make[20.28] and Map.Make[20.18]. +% +% +% +%20.6 Module Complex : Complex numbers. +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* +% +% +% This module provides arithmetic operations on complex numbers. Complex +%numbers are represented by their real and imaginary parts (cartesian +%representation). Each part is represented by a double-precision floating-point +%number (type float). +% 0.5cm +%<< +% type t = { +% re : float ; +% im : float ; +% } +%>> +% +% The type of complex numbers. re is the real part and im the +% imaginary part. +% +%<< +% val zero : t +%>> +% +% The complex number 0. +% +%<< +% val one : t +%>> +% +% The complex number 1. +% +%<< +% val i : t +%>> +% +% The complex number i. +% +%<< +% val neg : t -> t +%>> +% +% Unary negation. +% +%<< +% val conj : t -> t +%>> +% +% Conjugate: given the complex x + i.y, returns x - i.y. +% +%<< +% val add : t -> t -> t +%>> +% +% Addition +% +%<< +% val sub : t -> t -> t +%>> +% +% Subtraction +% +%<< +% val mul : t -> t -> t +%>> +% +% Multiplication +% +%<< +% val inv : t -> t +%>> +% +% Multiplicative inverse (1/z). +% +%<< +% val div : t -> t -> t +%>> +% +% Division +% +%<< +% val sqrt : t -> t +%>> +% +% Square root. The result x + i.y is such that x > 0 or x = 0 +% and y >= 0. This function has a discontinuity along the +% negative real axis. +% +%<< +% val norm2 : t -> float +%>> +% +% Norm squared: given x + i.y, returns x^2 + y^2. +% +%<< +% val norm : t -> float +%>> +% +% Norm: given x + i.y, returns sqrt(x^2 + y^2). +% +%<< +% val arg : t -> float +%>> +% +% Argument. The argument of a complex number is the angle in the +% complex plane between the positive real axis and a line passing +% through zero and the number. This angle ranges from -pi to pi. +% This function has a discontinuity along the negative real axis. +% +%<< +% val polar : float -> float -> t +%>> +% +% polar norm arg returns the complex having norm norm and +% argument arg. +% +%<< +% val exp : t -> t +%>> +% +% Exponentiation. exp z returns e to the z power. +% +%<< +% val log : t -> t +%>> +% +% Natural logarithm (in base e). +% +%<< +% val pow : t -> t -> t +%>> +% +% Power function. pow z1 z2 returns z1 to the z2 power. +% +% +% +%20.7 Module Digest : MD5 message digest. +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* +% +% +% This module provides functions to compute 128'bit --digests-- of +%arbitrary-length strings or files. The digests are of cryptographic quality: +%it is very hard, given a digest, to forge a string having that digest. The +%algorithm used is MD5. +% 0.5cm +%<< +% type t = string +%>> +% +% The type of digests: 16'character strings. +% +%<< +% val string : string -> t +%>> +% +% Return the digest of the given string. +% +%<< +% val substring : string -> int -> int -> t +%>> +% +% Digest.substring s ofs len returns the digest of the substring +% of s starting at character number ofs and containing len +% characters. +% +%<< +% val channel : Pervasives.in_channel -> int -> t +%>> +% +% If len is nonnegative, Digest.channel ic len reads len +% characters from channel ic and returns their digest, or raises +% End_of_file if end-of-file is reached before len characters are +% read. If len is negative, Digest.channel ic len reads all +% characters from ic until end-of-file is reached and return +% their digest. +% +%<< +% val file : string -> t +%>> +% +% Return the digest of the file whose name is given. +% +%<< +% val output : Pervasives.out_channel -> t -> unit +%>> +% +% Write a digest on the given output channel. +% +%<< +% val input : Pervasives.in_channel -> t +%>> +% +% Read a digest from the given input channel. +% +%<< +% val to_hex : t -> string +%>> +% +% Return the printable hexadecimal representation of the given +% digest. +% +% +% +%20.8 Module Filename : Operations on file names. +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* +% +% +% 0.5cm +%<< +% val current_dir_name : string +%>> +% +% The conventional name for the current directory (e.g. . in +% Unix). +% +%<< +% val parent_dir_name : string +%>> +% +% The conventional name for the parent of the current directory +% (e.g. .. in Unix). +% +%<< +% val concat : string -> string -> string +%>> +% +% concat dir file returns a file name that designates file file +% in directory dir. +% +%<< +% val is_relative : string -> bool +%>> +% +% Return true if the file name is relative to the current +% directory, false if it is absolute (i.e. in Unix, starts with +% /). +% +%<< +% val is_implicit : string -> bool +%>> +% +% Return true if the file name is relative and does not start +% with an explicit reference to the current directory (./ or ../ +% in Unix), false if it starts with an explicit reference to the +% root directory or the current directory. +% +%<< +% val check_suffix : string -> string -> bool +%>> +% +% check_suffix name suff returns true if the filename name ends +% with the suffix suff. +% +%<< +% val chop_suffix : string -> string -> string +%>> +% +% chop_suffix name suff removes the suffix suff from the +% filename name. The behavior is undefined if name does not end +% with the suffix suff. +% +%<< +% val chop_extension : string -> string +%>> +% +% Return the given file name without its extension. The extension +% is the shortest suffix starting with a period and not including +% a directory separator, .xyz for instance. +% Raise Invalid_argument if the given name does not contain an +% extension. +% +%<< +% val basename : string -> string +%>> +% +% Split a file name into directory name / base file name. concat +% (dirname name) (basename name) returns a file name which is +% equivalent to name. Moreover, after setting the current +% directory to dirname name (with Sys.chdir[20.34]), references +% to basename name (which is a relative file name) designate the +% same file as name before the call to Sys.chdir[20.34]. +% The result is not specified if the argument is not a valid file +% name (for example, under Unix if there is a NUL character in +% the string). +% +%<< +% val dirname : string -> string +%>> +% +% See Filename.basename[20.8]. +% +%<< +% val temp_file : string -> string -> string +%>> +% +% temp_file prefix suffix returns the name of a fresh temporary +% file in the temporary directory. The base name of the temporary +% file is formed by concatenating prefix, then a suitably chosen +% integer number, then suffix. The temporary file is created +% empty, with permissions 0o600 (readable and writable only by +% the file owner). The file is guaranteed to be different from +% any other file that existed when temp_file was called. Under +% Unix, the temporary directory is /tmp by default; if set, the +% value of the environment variable TMPDIR is used instead. Under +% Windows, the name of the temporary directory is the value of +% the environment variable TEMP, or C:\temp by default. +% +%<< +% val open_temp_file : +% ?mode:Pervasives.open_flag list -> +% string -> string -> string * Pervasives.out_channel +%>> +% +% Same as Filename.temp_file[20.8], but returns both the name of +% a fresh temporary file, and an output channel opened +% (atomically) on this file. This function is more secure than +% temp_file: there is no risk that the temporary file will be +% modified (e.g. replaced by a symbolic link) before the program +% opens it. The optional argument mode is a list of additional +% flags to control the opening of the file. It can contain one or +% several of Open_append, Open_binary, and Open_text. The default +% is [Open_text] (open in text mode). +% +%<< +% val quote : string -> string +%>> +% +% Return a quoted version of a file name, suitable for use as +% one argument in a shell command line, escaping all shell +% meta'characters. +% +% +% +%20.9 Module Format : Pretty printing. +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= +% +% +% This module implements a pretty-printing facility to format text within +%--pretty-printing boxes--. The pretty-printer breaks lines at specified break +%hints, and indents lines according to the box structure. +% For a gentle introduction to the basics of pretty-printing using Format, +%read +%http://caml.inria.fr/resources/doc/guides/format.html[http://caml.inria.fr/reso +%urces/doc/guides/format.html]. +% Warning: the material output by the following functions is delayed in the +%pretty-printer queue in order to compute the proper line breaking. Hence, you +%should not mix calls to the printing functions of the basic I/O system with +%calls to the functions of this module: this could result in some strange +%output seemingly unrelated with the evaluation order of printing commands. +% You may consider this module as providing an extension to the printf +%facility to provide automatic line breaking. The addition of pretty-printing +%annotations to your regular printf formats gives you fancy indentation and +%line breaks. Pretty-printing annotations are described below in the +%documentation of the function Format.fprintf[20.9]. +% You may also use the explicit box management and printing functions provided +%by this module. This style is more basic but more verbose than the fprintf +%concise formats. +% For instance, the sequence open_box 0; print_string "x ="; print_space (); +%print_int 1; close_box () that prints x = 1 within a pretty-printing box, can +%be abbreviated as printf "@[%s@ %i@]" "x =" 1, or even shorter printf "@[x =@ +%%i@]" 1. +% Rule of thumb for casual users of this library: +% +% - use simple boxes (as obtained by open_box 0); +% - use simple break hints (as obtained by print_cut () that outputs a simple +% break hint, or by print_space () that outputs a space indicating a break +% hint); +% - once a box is opened, display its material with basic printing functions +% (e. g. print_int and print_string); +% - when the material for a box has been printed, call close_box () to close +% the box; +% - at the end of your routine, evaluate print_newline () to close all +% remaining boxes and flush the pretty-printer. +% +% The behaviour of pretty-printing commands is unspecified if there is no +%opened pretty-printing box. Each box opened via one of the open_ functions +%below must be closed using close_box for proper formatting. Otherwise, some of +%the material printed in the boxes may not be output, or may be formatted +%incorrectly. +% In case of interactive use, the system closes all opened boxes and flushes +%all pending text (as with the print_newline function) after each phrase. Each +%phrase is therefore executed in the initial state of the pretty-printer. +% 0.5cm +% +%Boxes +%===== +% +%<< +% val open_box : int -> unit +%>> +% +% open_box d opens a new pretty-printing box with offset d. +% This box is the general purpose pretty-printing box. Material +% in this box is displayed --horizontal or vertical--: break +% hints inside the box may lead to a new line, if there is no +% more room on the line to print the remainder of the box, or if +% a new line may lead to a new indentation (demonstrating the +% indentation of the box). When a new line is printed in the box, +% d is added to the current indentation. +% +%<< +% val close_box : unit -> unit +%>> +% +% Closes the most recently opened pretty-printing box. +% +% +%Formatting functions +%==================== +% +%<< +% val print_string : string -> unit +%>> +% +% print_string str prints str in the current box. +% +%<< +% val print_as : int -> string -> unit +%>> +% +% print_as len str prints str in the current box. The +% pretty-printer formats str as if it were of length len. +% +%<< +% val print_int : int -> unit +%>> +% +% Prints an integer in the current box. +% +%<< +% val print_float : float -> unit +%>> +% +% Prints a floating point number in the current box. +% +%<< +% val print_char : char -> unit +%>> +% +% Prints a character in the current box. +% +%<< +% val print_bool : bool -> unit +%>> +% +% Prints a boolean in the current box. +% +% +%Break hints +%=========== +% +%<< +% val print_space : unit -> unit +%>> +% +% print_space () is used to separate items (typically to print a +% space between two words). It indicates that the line may be +% split at this point. It either prints one space or splits the +% line. It is equivalent to print_break 1 0. +% +%<< +% val print_cut : unit -> unit +%>> +% +% print_cut () is used to mark a good break position. It +% indicates that the line may be split at this point. It either +% prints nothing or splits the line. This allows line splitting +% at the current point, without printing spaces or adding +% indentation. It is equivalent to print_break 0 0. +% +%<< +% val print_break : int -> int -> unit +%>> +% +% Inserts a break hint in a pretty-printing box. print_break +% nspaces offset indicates that the line may be split (a newline +% character is printed) at this point, if the contents of the +% current box does not fit on the current line. If the line is +% split at that point, offset is added to the current +% indentation. If the line is not split, nspaces spaces are +% printed. +% +%<< +% val print_flush : unit -> unit +%>> +% +% Flushes the pretty printer: all opened boxes are closed, and +% all pending text is displayed. +% +%<< +% val print_newline : unit -> unit +%>> +% +% Equivalent to print_flush followed by a new line. +% +%<< +% val force_newline : unit -> unit +%>> +% +% Forces a newline in the current box. Not the normal way of +% pretty-printing, you should prefer break hints. +% +%<< +% val print_if_newline : unit -> unit +%>> +% +% Executes the next formatting command if the preceding line has +% just been split. Otherwise, ignore the next formatting command. +% +% +%Margin +%====== +% +%<< +% val set_margin : int -> unit +%>> +% +% set_margin d sets the value of the right margin to d (in +% characters): this value is used to detect line overflows that +% leads to split lines. Nothing happens if d is smaller than 2. +% If d is too large, the right margin is set to the maximum +% admissible value (which is greater than 10^10). +% +%<< +% val get_margin : unit -> int +%>> +% +% Returns the position of the right margin. +% +% +%Maximum indentation limit +%========================= +% +%<< +% val set_max_indent : int -> unit +%>> +% +% set_max_indent d sets the value of the maximum indentation +% limit to d (in characters): once this limit is reached, boxes +% are rejected to the left, if they do not fit on the current +% line. Nothing happens if d is smaller than 2. If d is too +% large, the limit is set to the maximum admissible value (which +% is greater than 10^10). +% +%<< +% val get_max_indent : unit -> int +%>> +% +% Return the value of the maximum indentation limit (in +% characters). +% +% +%Formatting depth: maximum number of boxes allowed before ellipsis +%================================================================= +% +%<< +% val set_max_boxes : int -> unit +%>> +% +% set_max_boxes max sets the maximum number of boxes +% simultaneously opened. Material inside boxes nested deeper is +% printed as an ellipsis (more precisely as the text returned by +% get_ellipsis_text ()). Nothing happens if max is smaller than +% 2. +% +%<< +% val get_max_boxes : unit -> int +%>> +% +% Returns the maximum number of boxes allowed before ellipsis. +% +%<< +% val over_max_boxes : unit -> bool +%>> +% +% Tests if the maximum number of boxes allowed have already been +% opened. +% +% +%Advanced formatting +%=================== +% +%<< +% val open_hbox : unit -> unit +%>> +% +% open_hbox () opens a new pretty-printing box. This box is +% --horizontal--: the line is not split in this box (new lines +% may still occur inside boxes nested deeper). +% +%<< +% val open_vbox : int -> unit +%>> +% +% open_vbox d opens a new pretty-printing box with offset d. +% This box is --vertical--: every break hint inside this box +% leads to a new line. When a new line is printed in the box, d +% is added to the current indentation. +% +%<< +% val open_hvbox : int -> unit +%>> +% +% open_hvbox d opens a new pretty-printing box with offset d. +% This box is --horizontal-vertical--: it behaves as an +% --horizontal-- box if it fits on a single line, otherwise it +% behaves as a --vertical-- box. When a new line is printed in +% the box, d is added to the current indentation. +% +%<< +% val open_hovbox : int -> unit +%>> +% +% open_hovbox d opens a new pretty-printing box with offset d. +% This box is --horizontal or vertical--: break hints inside this +% box may lead to a new line, if there is no more room on the +% line to print the remainder of the box. When a new line is +% printed in the box, d is added to the current indentation. +% +% +%Tabulations +%=========== +% +%<< +% val open_tbox : unit -> unit +%>> +% +% Opens a tabulation box. +% +%<< +% val close_tbox : unit -> unit +%>> +% +% Closes the most recently opened tabulation box. +% +%<< +% val print_tbreak : int -> int -> unit +%>> +% +% Break hint in a tabulation box. print_tbreak spaces offset +% moves the insertion point to the next tabulation (spaces being +% added to this position). Nothing occurs if insertion point is +% already on a tabulation mark. If there is no next tabulation +% on the line, then a newline is printed and the insertion point +% moves to the first tabulation of the box. If a new line is +% printed, offset is added to the current indentation. +% +%<< +% val set_tab : unit -> unit +%>> +% +% Sets a tabulation mark at the current insertion point. +% +%<< +% val print_tab : unit -> unit +%>> +% +% print_tab () is equivalent to print_tbreak (0,0). +% +% +%Ellipsis +%======== +% +%<< +% val set_ellipsis_text : string -> unit +%>> +% +% Set the text of the ellipsis printed when too many boxes are +% opened (a single dot, ., by default). +% +%<< +% val get_ellipsis_text : unit -> string +%>> +% +% Return the text of the ellipsis. +% +% +%Tags +%==== +% +%<< +% type tag = string +%>> +% +% Tags are used to decorate printed entities for user-s defined purposes, e.g. +%setting font and giving size indications for a display device, or marking +%delimitations of semantics entities (e.g. HTML or TeX elements or terminal +%escape sequences). +% By default, those tags do not influence line breaking calculation: the tag +%--markers-- are not considered as part of the printing material that drives +%line breaking (in other words, the length of those strings is considered as +%zero for line breaking). +% Thus, tag handling is in some sense transparent to pretty-printing and does +%not interfere with usual pretty-printing. Hence, a single pretty printing +%routine can output both simple --verbatim-- material or richer decorated +%output depending on the treatment of tags. By default, tags are not active, +%hence the output is not decorated with tag information. Once set_tags is set +%to true, the pretty printer engine honors tags and decorates the output +%accordingly. +% When a tag has been opened (or closed), it is both and successively +%--printed-- and --marked--. Printing a tag means calling a formatter specific +%function with the name of the tag as argument: that --tag printing-- function +%can then print any regular material to the formatter (so that this material is +%enqueued as usual in the formatter queue for further line'breaking +%computation). Marking a tag means to output an arbitrary string (the --tag +%marker--), directly into the output device of the formatter. Hence, the +%formatter specific --tag marking-- function must return the tag marker string +%associated to its tag argument. Being flushed directly into the output device +%of the formatter, tag marker strings are not considered as part of the +%printing material that drives line breaking (in other words, the length of the +%strings corresponding to tag markers is considered as zero for line +%breaking). In addition, advanced users may take advantage of the specificity +%of tag markers to be precisely output when the pretty printer has already +%decided where to break the lines, and precisely when the queue is flushed into +%the output device. +% In the spirit of HTML tags, the default tag marking functions output tags +%enclosed in "<" and ">": hence, the opening marker of tag t is "" and the +%closing marker "". +% Default tag printing functions just do nothing. +% Tag marking and tag printing functions are user definable and can be set by +%calling set_formatter_tag_functions. +%<< +% val open_tag : tag -> unit +%>> +% +% open_tag t opens the tag named t; the print_open_tag function +% of the formatter is called with t as argument; the tag marker +% mark_open_tag t will be flushed into the output device of the +% formatter. +% +%<< +% val close_tag : unit -> unit +%>> +% +% close_tag () closes the most recently opened tag t. In +% addition, the print_close_tag function of the formatter is +% called with t as argument. The marker mark_close_tag t will be +% flushed into the output device of the formatter. +% +%<< +% val set_tags : bool -> unit +%>> +% +% set_tags b turns on or off the treatment of tags (default is +% off). +% +%<< +% val set_print_tags : bool -> unit +%>> +% +%<< +% val set_mark_tags : bool -> unit +%>> +% +% set_print_tags b turns on or off the printing of tags, while +% set_mark_tags b turns on or off the output of tag markers. +% +%<< +% val get_print_tags : unit -> bool +%>> +% +%<< +% val get_mark_tags : unit -> bool +%>> +% +% Return the current status of tags printing and tags marking. +% +% +%Redirecting formatter output +%============================ +% +%<< +% val set_formatter_out_channel : Pervasives.out_channel -> unit +%>> +% +% Redirect the pretty-printer output to the given channel. +% +%<< +% val set_formatter_output_functions : +% (string -> int -> int -> unit) -> (unit -> unit) -> unit +%>> +% +% set_formatter_output_functions out flush redirects the +% pretty-printer output to the functions out and flush. +% The out function performs the pretty-printer output. It is +% called with a string s, a start position p, and a number of +% characters n; it is supposed to output characters p to p + n - +% 1 of s. The flush function is called whenever the +% pretty-printer is flushed using print_flush or print_newline. +% +%<< +% val get_formatter_output_functions : +% unit -> (string -> int -> int -> unit) * (unit -> unit) +%>> +% +% Return the current output functions of the pretty-printer. +% +% +%Changing the meaning of printing tags +%===================================== +% +%<< +% type formatter_tag_functions = { +% mark_open_tag : tag -> string ; +% mark_close_tag : tag -> string ; +% print_open_tag : tag -> unit ; +% print_close_tag : tag -> unit ; +% } +%>> +% +% The tag handling functions specific to a formatter: mark +% versions are the --tag marking-- functions that associate a +% string marker to a tag in order for the pretty-printing engine +% to flush those markers as 0 length tokens in the output device +% of the formatter. print versions are the --tag printing-- +% functions that can perform regular printing when a tag is +% closed or opened. +% +%<< +% val set_formatter_tag_functions : formatter_tag_functions -> unit +%>> +% +% set_formatter_tag_functions tag_funs changes the meaning of opening and +%closing tags to use the functions in tag_funs. +% When opening a tag name t, the string t is passed to the opening tag marking +%function (the mark_open_tag field of the record tag_funs), that must return +%the opening tag marker for that name. When the next call to close_tag () +%happens, the tag name t is sent back to the closing tag marking function (the +%mark_close_tag field of record tag_funs), that must return a closing tag +%marker for that name. +% The print_ field of the record contains the functions that are called at tag +%opening and tag closing time, to output regular material in the pretty-printer +%queue. +%<< +% val get_formatter_tag_functions : unit -> formatter_tag_functions +%>> +% +% Return the current tag functions of the pretty-printer. +% +% +%Changing the meaning of pretty printing (indentation, line breaking, and +%======================================================================== +%printing material) +%================== +% +%<< +% val set_all_formatter_output_functions : +% out:(string -> int -> int -> unit) -> +% flush:(unit -> unit) -> +% newline:(unit -> unit) -> spaces:(int -> unit) -> unit +%>> +% +% set_all_formatter_output_functions out flush outnewline +% outspace redirects the pretty-printer output to the functions +% out and flush as described in set_formatter_output_functions. +% In addition, the pretty-printer function that outputs a newline +% is set to the function outnewline and the function that outputs +% indentation spaces is set to the function outspace. +% This way, you can change the meaning of indentation (which can +% be something else than just printing space characters) and the +% meaning of new lines opening (which can be connected to any +% other action needed by the application at hand). The two +% functions outspace and outnewline are normally connected to out +% and flush: respective default values for outspace and +% outnewline are out (String.make n - -) 0 n and out "\n" 0 1. +% +%<< +% val get_all_formatter_output_functions : +% unit -> +% (string -> int -> int -> unit) * (unit -> unit) * (unit -> unit) * +% (int -> unit) +%>> +% +% Return the current output functions of the pretty-printer, +% including line breaking and indentation functions. +% +% +%Multiple formatted output +%========================= +% +%<< +% type formatter +%>> +% +% Abstract data type corresponding to a pretty-printer (also +% called a formatter) and all its machinery. Defining new +% pretty-printers permits the output of material in parallel on +% several channels. Parameters of a pretty-printer are local to +% this pretty-printer: margin, maximum indentation limit, maximum +% number of boxes simultaneously opened, ellipsis, and so on, are +% specific to each pretty-printer and may be fixed independently. +% Given an output channel oc, a new formatter writing to that +% channel is obtained by calling formatter_of_out_channel oc. +% Alternatively, the make_formatter function allocates a new +% formatter with explicit output and flushing functions +% (convenient to output material to strings for instance). +% +%<< +% val formatter_of_out_channel : Pervasives.out_channel -> formatter +%>> +% +% formatter_of_out_channel oc returns a new formatter that +% writes to the corresponding channel oc. +% +%<< +% val std_formatter : formatter +%>> +% +% The standard formatter used by the formatting functions above. +% It is defined as formatter_of_out_channel stdout. +% +%<< +% val err_formatter : formatter +%>> +% +% A formatter to use with formatting functions below for output +% to standard error. It is defined as formatter_of_out_channel +% stderr. +% +%<< +% val formatter_of_buffer : Buffer.t -> formatter +%>> +% +% formatter_of_buffer b returns a new formatter writing to +% buffer b. As usual, the formatter has to be flushed at the end +% of pretty printing, using pp_print_flush or pp_print_newline, +% to display all the pending material. +% +%<< +% val stdbuf : Buffer.t +%>> +% +% The string buffer in which str_formatter writes. +% +%<< +% val str_formatter : formatter +%>> +% +% A formatter to use with formatting functions below for output +% to the stdbuf string buffer. str_formatter is defined as +% formatter_of_buffer stdbuf. +% +%<< +% val flush_str_formatter : unit -> string +%>> +% +% Returns the material printed with str_formatter, flushes the +% formatter and resets the corresponding buffer. +% +%<< +% val make_formatter : +% (string -> int -> int -> unit) -> (unit -> unit) -> formatter +%>> +% +% make_formatter out flush returns a new formatter that writes +% according to the output function out, and the flushing function +% flush. Hence, a formatter to the out channel oc is returned by +% make_formatter (output oc) (fun () -> flush oc). +% +% +%Basic functions to use with formatters +%====================================== +% +%<< +% val pp_open_hbox : formatter -> unit -> unit +%>> +% +%<< +% val pp_open_vbox : formatter -> int -> unit +%>> +% +%<< +% val pp_open_hvbox : formatter -> int -> unit +%>> +% +%<< +% val pp_open_hovbox : formatter -> int -> unit +%>> +% +%<< +% val pp_open_box : formatter -> int -> unit +%>> +% +%<< +% val pp_close_box : formatter -> unit -> unit +%>> +% +%<< +% val pp_open_tag : formatter -> string -> unit +%>> +% +%<< +% val pp_close_tag : formatter -> unit -> unit +%>> +% +%<< +% val pp_print_string : formatter -> string -> unit +%>> +% +%<< +% val pp_print_as : formatter -> int -> string -> unit +%>> +% +%<< +% val pp_print_int : formatter -> int -> unit +%>> +% +%<< +% val pp_print_float : formatter -> float -> unit +%>> +% +%<< +% val pp_print_char : formatter -> char -> unit +%>> +% +%<< +% val pp_print_bool : formatter -> bool -> unit +%>> +% +%<< +% val pp_print_break : formatter -> int -> int -> unit +%>> +% +%<< +% val pp_print_cut : formatter -> unit -> unit +%>> +% +%<< +% val pp_print_space : formatter -> unit -> unit +%>> +% +%<< +% val pp_force_newline : formatter -> unit -> unit +%>> +% +%<< +% val pp_print_flush : formatter -> unit -> unit +%>> +% +%<< +% val pp_print_newline : formatter -> unit -> unit +%>> +% +%<< +% val pp_print_if_newline : formatter -> unit -> unit +%>> +% +%<< +% val pp_open_tbox : formatter -> unit -> unit +%>> +% +%<< +% val pp_close_tbox : formatter -> unit -> unit +%>> +% +%<< +% val pp_print_tbreak : formatter -> int -> int -> unit +%>> +% +%<< +% val pp_set_tab : formatter -> unit -> unit +%>> +% +%<< +% val pp_print_tab : formatter -> unit -> unit +%>> +% +%<< +% val pp_set_tags : formatter -> bool -> unit +%>> +% +%<< +% val pp_set_print_tags : formatter -> bool -> unit +%>> +% +%<< +% val pp_set_mark_tags : formatter -> bool -> unit +%>> +% +%<< +% val pp_get_print_tags : formatter -> unit -> bool +%>> +% +%<< +% val pp_get_mark_tags : formatter -> unit -> bool +%>> +% +%<< +% val pp_set_margin : formatter -> int -> unit +%>> +% +%<< +% val pp_get_margin : formatter -> unit -> int +%>> +% +%<< +% val pp_set_max_indent : formatter -> int -> unit +%>> +% +%<< +% val pp_get_max_indent : formatter -> unit -> int +%>> +% +%<< +% val pp_set_max_boxes : formatter -> int -> unit +%>> +% +%<< +% val pp_get_max_boxes : formatter -> unit -> int +%>> +% +%<< +% val pp_over_max_boxes : formatter -> unit -> bool +%>> +% +%<< +% val pp_set_ellipsis_text : formatter -> string -> unit +%>> +% +%<< +% val pp_get_ellipsis_text : formatter -> unit -> string +%>> +% +%<< +% val pp_set_formatter_out_channel : +% formatter -> Pervasives.out_channel -> unit +%>> +% +%<< +% val pp_set_formatter_output_functions : +% formatter -> (string -> int -> int -> unit) -> (unit -> unit) -> unit +%>> +% +%<< +% val pp_get_formatter_output_functions : +% formatter -> unit -> (string -> int -> int -> unit) * (unit -> unit) +%>> +% +%<< +% val pp_set_all_formatter_output_functions : +% formatter -> +% out:(string -> int -> int -> unit) -> +% flush:(unit -> unit) -> +% newline:(unit -> unit) -> spaces:(int -> unit) -> unit +%>> +% +%<< +% val pp_get_all_formatter_output_functions : +% formatter -> +% unit -> +% (string -> int -> int -> unit) * (unit -> unit) * (unit -> unit) * +% (int -> unit) +%>> +% +%<< +% val pp_set_formatter_tag_functions : +% formatter -> formatter_tag_functions -> unit +%>> +% +%<< +% val pp_get_formatter_tag_functions : +% formatter -> unit -> formatter_tag_functions +%>> +% +% These functions are the basic ones: usual functions operating +% on the standard formatter are defined via partial evaluation of +% these primitives. For instance, print_string is equal to +% pp_print_string std_formatter. +% +% +%printf like functions for pretty-printing. +%========================================== +% +%<< +% val fprintf : formatter -> ('a, formatter, unit) Pervasives.format -> 'a +%>> +% +% fprintf ff format arg1 ... argN formats the arguments arg1 to +% argN according to the format string format, and outputs the +% resulting string on the formatter ff. The format is a character +% string which contains three types of objects: plain characters +% and conversion specifications as specified in the printf +% module, and pretty-printing indications. The pretty-printing +% indication characters are introduced by a @ character, and +% their meanings are: +% +% - @[: open a pretty-printing box. The type and offset of the +% box may be optionally specified with the following syntax: +% the < character, followed by an optional box type indication, +% then an optional integer offset, and the closing > +% character. Box type is one of h, v, hv, b, or hov, which +% stand respectively for an horizontal box, a vertical box, an +% --horizontal-vertical-- box, or an --horizontal or +% vertical-- box (b standing for an --horizontal or vertical-- +% box demonstrating indentation and hov standing for a +% regular--horizontal or vertical-- box). For instance, @[ opens an --horizontal or vertical-- box with indentation +% 2 as obtained with open_hovbox 2. For more details about +% boxes, see the various box opening functions open_*box. +% - @]: close the most recently opened pretty-printing box. +% - @,: output a good break as with print_cut (). +% - @ : output a space, as with print_space (). +% - @\n: force a newline, as with force_newline (). +% - @;: output a good break as with print_break. The nspaces and +% offset parameters of the break may be optionally specified +% with the following syntax: the < character, followed by an +% integer nspaces value, then an integer offset, and a closing +% > character. If no parameters are provided, the good break +% defaults to a space. +% - @?: flush the pretty printer as with print_flush (). This is +% equivalent to the conversion %!. +% - @.: flush the pretty printer and output a new line, as with +% print_newline (). +% - @: print the following item as if it were of length n. +% Hence, printf "@<0>%s" arg is equivalent to print_as 0 arg. +% If @ is not followed by a conversion specification, then +% the following character of the format is printed as if it +% were of length n. +% - @{: open a tag. The name of the tag may be optionally +% specified with the following syntax: the < character, +% followed by an optional string specification, and the +% closing > character. The string specification is any +% character string that does not contain the closing character +% ->-. If omitted, the tag name defaults to the empty string. +% For more details about tags, see the functions open_tag and +% close_tag. +% - @}: close the most recently opened tag. +% - @@: print a plain @ character. +% +% Example: printf "@[%s@ %d@]" "x =" 1 is equivalent to open_box +% (); print_string "x ="; print_space (); print_int 1; close_box +% (). It prints x = 1 within a pretty-printing box. +% +%<< +% val printf : ('a, formatter, unit) Pervasives.format -> 'a +%>> +% +% Same as fprintf above, but output on std_formatter. +% +%<< +% val eprintf : ('a, formatter, unit) Pervasives.format -> 'a +%>> +% +% Same as fprintf above, but output on err_formatter. +% +%<< +% val sprintf : ('a, unit, string) Pervasives.format -> 'a +%>> +% +% Same as printf above, but instead of printing on a formatter, +% returns a string containing the result of formatting the +% arguments. Note that the pretty-printer queue is flushed at the +% end of each call to sprintf. +% In case of multiple and related calls to sprintf to output +% material on a single string, you should consider using fprintf +% with a formatter writing to a buffer: flushing the buffer at the +% end of pretty-printing returns the desired string. You can also +% use the predefined formatter str_formatter and call +% flush_str_formatter () to get the result. +% +%<< +% val bprintf : Buffer.t -> ('a, formatter, unit) Pervasives.format -> 'a +%>> +% +% Same as sprintf above, but instead of printing on a string, +% writes into the given extensible buffer. As for sprintf, the +% pretty-printer queue is flushed at the end of each call to +% bprintf. +% In case of multiple and related calls to bprintf to output +% material on the same buffer b, you should consider using +% fprintf with a formatter writing to the buffer b (as obtained +% by formatter_of_buffer b), otherwise the repeated flushes of the +% pretty-printer queue would result in unexpected and badly +% formatted output. +% +%<< +% val kfprintf : +% (formatter -> 'a) -> +% formatter -> ('b, formatter, unit, 'a) format4 -> 'b +%>> +% +% Same as fprintf above, but instead of returning immediately, +% passes the formatter to its first argument at the end of +% printing. +% +%<< +% val ksprintf : (string -> 'a) -> ('b, unit, string, 'a) format4 -> 'b +%>> +% +% Same as sprintf above, but instead of returning the string, +% passes it to the first argument. +% +%<< +% val kprintf : (string -> 'a) -> ('b, unit, string, 'a) format4 -> 'b +%>> +% +% A deprecated synonym for ksprintf. +% +% +% +%20.10 Module Gc : Memory management control and statistics; finalised values. +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= +% +% +% 0.5cm +%<< +% type stat = { +% minor_words : float ; +%>> +% +% Number of words allocated in the minor heap since the program +% was started. This number is accurate in byte'code programs, but +% only an approximation in programs compiled to native code. +% +%<< +% promoted_words : float ; +%>> +% +% Number of words allocated in the minor heap that survived a +% minor collection and were moved to the major heap since the +% program was started. +% +%<< +% major_words : float ; +%>> +% +% Number of words allocated in the major heap, including the +% promoted words, since the program was started. +% +%<< +% minor_collections : int ; +%>> +% +% Number of minor collections since the program was started. +% +%<< +% major_collections : int ; +%>> +% +% Number of major collection cycles completed since the program +% was started. +% +%<< +% heap_words : int ; +%>> +% +% Total size of the major heap, in words. +% +%<< +% heap_chunks : int ; +%>> +% +% Number of contiguous pieces of memory that make up the major +% heap. +% +%<< +% live_words : int ; +%>> +% +% Number of words of live data in the major heap, including the +% header words. +% +%<< +% live_blocks : int ; +%>> +% +% Number of live blocks in the major heap. +% +%<< +% free_words : int ; +%>> +% +% Number of words in the free list. +% +%<< +% free_blocks : int ; +%>> +% +% Number of blocks in the free list. +% +%<< +% largest_free : int ; +%>> +% +% Size (in words) of the largest block in the free list. +% +%<< +% fragments : int ; +%>> +% +% Number of wasted words due to fragmentation. These are 1-words +% free blocks placed between two live blocks. They are not +% available for allocation. +% +%<< +% compactions : int ; +%>> +% +% Number of heap compactions since the program was started. +% +%<< +% top_heap_words : int ; +%>> +% +% Maximum size reached by the major heap, in words. +% +%<< +% } +%>> +% +% The memory management counters are returned in a stat record. +% The total amount of memory allocated by the program since it was +% started is (in words) minor_words + major_words - +% promoted_words. Multiply by the word size (4 on a 32'bit +% machine, 8 on a 64'bit machine) to get the number of bytes. +% +%<< +% type control = { +% mutable minor_heap_size : int ; +%>> +% +% The size (in words) of the minor heap. Changing this parameter +% will trigger a minor collection. Default: 32k. +% +%<< +% mutable major_heap_increment : int ; +%>> +% +% The minimum number of words to add to the major heap when +% increasing it. Default: 62k. +% +%<< +% mutable space_overhead : int ; +%>> +% +% The major GC speed is computed from this parameter. This is +% the memory that will be "wasted" because the GC does not +% immediatly collect unreachable blocks. It is expressed as a +% percentage of the memory used for live data. The GC will work +% more (use more CPU time and collect blocks more eagerly) if +% space_overhead is smaller. Default: 80. +% +%<< +% mutable verbose : int ; +%>> +% +% This value controls the GC messages on standard error output. +% It is a sum of some of the following flags, to print messages +% on the corresponding events: +% +% - 0x001 Start of major GC cycle. +% - 0x002 Minor collection and major GC slice. +% - 0x004 Growing and shrinking of the heap. +% - 0x008 Resizing of stacks and memory manager tables. +% - 0x010 Heap compaction. +% - 0x020 Change of GC parameters. +% - 0x040 Computation of major GC slice size. +% - 0x080 Calling of finalisation functions. +% - 0x100 Bytecode executable search at start-up. +% - 0x200 Computation of compaction triggering condition. +% Default: 0. +% +% +%<< +% mutable max_overhead : int ; +%>> +% +% Heap compaction is triggered when the estimated amount of +% "wasted" memory is more than max_overhead percent of the amount +% of live data. If max_overhead is set to 0, heap compaction is +% triggered at the end of each major GC cycle (this setting is +% intended for testing purposes only). If max_overhead >= +% 1000000, compaction is never triggered. Default: 500. +% +%<< +% mutable stack_limit : int ; +%>> +% +% The maximum size of the stack (in words). This is only +% relevant to the byte'code runtime, as the native code runtime +% uses the operating system-s stack. Default: 256k. +% +%<< +% } +%>> +% +% The GC parameters are given as a control record. +% +%<< +% val stat : unit -> stat +%>> +% +% Return the current values of the memory management counters in +% a stat record. This function examines every heap block to get +% the statistics. +% +%<< +% val quick_stat : unit -> stat +%>> +% +% Same as stat except that live_words, live_blocks, free_words, +% free_blocks, largest_free, and fragments are set to 0. This +% function is much faster than stat because it does not need to go +% through the heap. +% +%<< +% val counters : unit -> float * float * float +%>> +% +% Return (minor_words, promoted_words, major_words). This +% function is as fast at quick_stat. +% +%<< +% val get : unit -> control +%>> +% +% Return the current values of the GC parameters in a control +% record. +% +%<< +% val set : control -> unit +%>> +% +% set r changes the GC parameters according to the control record +% r. The normal usage is: Gc.set { (Gc.get()) with Gc.verbose = +% 0x00d } +% +%<< +% val minor : unit -> unit +%>> +% +% Trigger a minor collection. +% +%<< +% val major_slice : int -> int +%>> +% +% Do a minor collection and a slice of major collection. The +% argument is the size of the slice, 0 to use the +% automatically'computed slice size. In all cases, the result is +% the computed slice size. +% +%<< +% val major : unit -> unit +%>> +% +% Do a minor collection and finish the current major collection +% cycle. +% +%<< +% val full_major : unit -> unit +%>> +% +% Do a minor collection, finish the current major collection +% cycle, and perform a complete new cycle. This will collect all +% currently unreachable blocks. +% +%<< +% val compact : unit -> unit +%>> +% +% Perform a full major collection and compact the heap. Note that +% heap compaction is a lengthy operation. +% +%<< +% val print_stat : Pervasives.out_channel -> unit +%>> +% +% Print the current values of the memory management counters (in +% human-readable form) into the channel argument. +% +%<< +% val allocated_bytes : unit -> float +%>> +% +% Return the total number of bytes allocated since the program +% was started. It is returned as a float to avoid overflow +% problems with int on 32'bit machines. +% +%<< +% val finalise : ('a -> unit) -> 'a -> unit +%>> +% +% finalise f v registers f as a finalisation function for v. v +% must be heap'allocated. f will be called with v as argument at +% some point between the first time v becomes unreachable and the +% time v is collected by the GC. Several functions can be +% registered for the same value, or even several instances of the +% same function. Each instance will be called once (or never, if +% the program terminates before v becomes unreachable). +% The GC will call the finalisation functions in the order of +% deallocation. When several values become unreachable at the +% same time (i.e. during the same GC cycle), the finalisation +% functions will be called in the reverse order of the +% corresponding calls to finalise. If finalise is called in the +% same order as the values are allocated, that means each value +% is finalised before the values it depends upon. Of course, this +% becomes false if additional dependencies are introduced by +% assignments. +% Anything reachable from the closure of finalisation functions +% is considered reachable, so the following code will not work as +% expected: +% +% - let v = ... in Gc.finalise (fun x -> ...) v +% +% Instead you should write: +% +% - let f = fun x -> ... ;; let v = ... in Gc.finalise f v +% +% The f function can use all features of O'caml, including +% assignments that make the value reachable again. It can also +% loop forever (in this case, the other finalisation functions +% will be called during the execution of f). It can call finalise +% on v or other values to register other functions or even +% itself. It can raise an exception; in this case the exception +% will interrupt whatever the program was doing when the function +% was called. +% finalise will raise Invalid_argument if v is not +% heap'allocated. Some examples of values that are not +% heap'allocated are integers, constant constructors, booleans, +% the empty array, the empty list, the unit value. The exact list +% of what is heap'allocated or not is implementation-dependent. +% Some constant values can be heap'allocated but never deallocated +% during the lifetime of the program, for example a list of +% integer constants; this is also implementation-dependent. You +% should also be aware that compiler optimisations may duplicate +% some immutable values, for example floating-point numbers when +% stored into arrays, so they can be finalised and collected while +% another copy is still in use by the program. +% The results of calling String.make[20.33], String.create[20.33], +% Array.make[20.2], and Pervasives.ref[19.2] are guaranteed to be +% heap'allocated and non'constant except when the length argument +% is 0. +% +%<< +% val finalise_release : unit -> unit +%>> +% +% A finalisation function may call finalise_release to tell the +% GC that it can launch the next finalisation function without +% waiting for the current one to return. +% +%<< +% type alarm +%>> +% +% An alarm is a piece of data that calls a user function at the +% end of each major GC cycle. The following functions are +% provided to create and delete alarms. +% +%<< +% val create_alarm : (unit -> unit) -> alarm +%>> +% +% create_alarm f will arrange for f to be called at the end of +% each major GC cycle, starting with the current cycle or the +% next one. A value of type alarm is returned that you can use +% to call delete_alarm. +% +%<< +% val delete_alarm : alarm -> unit +%>> +% +% delete_alarm a will stop the calls to the function associated +% to a. Calling delete_alarm a again has no effect. +% +% +% +%20.11 Module Genlex : A generic lexical analyzer. +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= +% +% +% This module implements a simple --standard-- lexical analyzer, presented as +%a function from character streams to token streams. It implements roughly the +%lexical conventions of Caml, but is parameterized by the set of keywords of +%your language. +% Example: a lexer suitable for a desk calculator is obtained by +%<< +% let lexer = make_lexer ["+";"-";"*";"/";"let";"="; "("; ")"] +%>> +% +% The associated parser would be a function from token stream to, for +%instance, int, and would have rules such as: +%<< +% +% let parse_expr = parser +% [< -Int n >] -> n +% | [< -Kwd "("; n = parse_expr; -Kwd ")" >] -> n +% | [< n1 = parse_expr; n2 = parse_remainder n1 >] -> n2 +% and parse_remainder n1 = parser +% [< -Kwd "+"; n2 = parse_expr >] -> n1+n2 +% | ... +% +%>> +% +% 0.5cm +%<< +% type token = +% | Kwd of string +% | Ident of string +% | Int of int +% | Float of float +% | String of string +% | Char of char +%>> +% +% The type of tokens. The lexical classes are: Int and Float for +% integer and floating-point numbers; String for string literals, +% enclosed in double quotes; Char for character literals, +% enclosed in single quotes; Ident for identifiers (either +% sequences of letters, digits, underscores and quotes, or +% sequences of --operator characters-- such as +, *, etc); and +% Kwd for keywords (either identifiers or single --special +% characters-- such as (, }, etc). +% +%<< +% val make_lexer : string list -> char Stream.t -> token Stream.t +%>> +% +% Construct the lexer function. The first argument is the list of +% keywords. An identifier s is returned as Kwd s if s belongs to +% this list, and as Ident s otherwise. A special character s is +% returned as Kwd s if s belongs to this list, and cause a +% lexical error (exception Parse_error) otherwise. Blanks and +% newlines are skipped. Comments delimited by (* and *) are +% skipped as well, and can be nested. +% +% +% +%20.12 Module Hashtbl : Hash tables and hash functions. +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* +% +% +% Hash tables are hashed association tables, with in-place modification. +% 0.5cm +% +%Generic interface +%================= +% +%<< +% type ('a, 'b) t +%>> +% +% The type of hash tables from type 'a to type 'b. +% +%<< +% val create : int -> ('a, 'b) t +%>> +% +% Hashtbl.create n creates a new, empty hash table, with initial +% size n. For best results, n should be on the order of the +% expected number of elements that will be in the table. The +% table grows as needed, so n is just an initial guess. +% +%<< +% val clear : ('a, 'b) t -> unit +%>> +% +% Empty a hash table. +% +%<< +% val add : ('a, 'b) t -> 'a -> 'b -> unit +%>> +% +% Hashtbl.add tbl x y adds a binding of x to y in table tbl. +% Previous bindings for x are not removed, but simply hidden. +% That is, after performing Hashtbl.remove[20.12] tbl x, the +% previous binding for x, if any, is restored. (Same behavior as +% with association lists.) +% +%<< +% val copy : ('a, 'b) t -> ('a, 'b) t +%>> +% +% Return a copy of the given hashtable. +% +%<< +% val find : ('a, 'b) t -> 'a -> 'b +%>> +% +% Hashtbl.find tbl x returns the current binding of x in tbl, or +% raises Not_found if no such binding exists. +% +%<< +% val find_all : ('a, 'b) t -> 'a -> 'b list +%>> +% +% Hashtbl.find_all tbl x returns the list of all data associated +% with x in tbl. The current binding is returned first, then the +% previous bindings, in reverse order of introduction in the +% table. +% +%<< +% val mem : ('a, 'b) t -> 'a -> bool +%>> +% +% Hashtbl.mem tbl x checks if x is bound in tbl. +% +%<< +% val remove : ('a, 'b) t -> 'a -> unit +%>> +% +% Hashtbl.remove tbl x removes the current binding of x in tbl, +% restoring the previous binding if it exists. It does nothing if +% x is not bound in tbl. +% +%<< +% val replace : ('a, 'b) t -> 'a -> 'b -> unit +%>> +% +% Hashtbl.replace tbl x y replaces the current binding of x in +% tbl by a binding of x to y. If x is unbound in tbl, a binding +% of x to y is added to tbl. This is functionally equivalent to +% Hashtbl.remove[20.12] tbl x followed by Hashtbl.add[20.12] tbl +% x y. +% +%<< +% val iter : ('a -> 'b -> unit) -> ('a, 'b) t -> unit +%>> +% +% Hashtbl.iter f tbl applies f to all bindings in table tbl. f +% receives the key as first argument, and the associated value as +% second argument. Each binding is presented exactly once to f. +% The order in which the bindings are passed to f is unspecified. +% However, if the table contains several bindings for the same +% key, they are passed to f in reverse order of introduction, +% that is, the most recent binding is passed first. +% +%<< +% val fold : ('a -> 'b -> 'c -> 'c) -> ('a, 'b) t -> 'c -> 'c +%>> +% +% Hashtbl.fold f tbl init computes (f kN dN ... (f k1 d1 +% init)...), where k1 ... kN are the keys of all bindings in tbl, +% and d1 ... dN are the associated values. Each binding is +% presented exactly once to f. The order in which the bindings +% are passed to f is unspecified. However, if the table contains +% several bindings for the same key, they are passed to f in +% reverse order of introduction, that is, the most recent binding +% is passed first. +% +%<< +% val length : ('a, 'b) t -> int +%>> +% +% Hashtbl.length tbl returns the number of bindings in tbl. +% Multiple bindings are counted multiply, so Hashtbl.length gives +% the number of times Hashtbl.iter calls its first argument. +% +% +%Functorial interface +%==================== +% +%<< +% module type HashedType = >> +% +% sig +% +% +% << +% type t +% >> +% +% The type of the hashtable keys. +% +% << +% val equal : t -> t -> bool +% >> +% +% The equality predicate used to compare keys. +% +% << +% val hash : t -> int +% >> +% +% A hashing function on keys. It must be such that if two keys +% are equal according to equal, then they have identical hash +% values as computed by hash. Examples: suitable (equal, +% hash) pairs for arbitrary key types include ((=), +% Hashtbl.hash[20.12]) for comparing objects by structure, +% ((fun x y -> compare x y = 0), Hashtbl.hash[20.12]) for +% comparing objects by structure and handling +% Pervasives.nan[19.2] correctly, and ((==), +% Hashtbl.hash[20.12]) for comparing objects by addresses +% (e.g. for cyclic keys). +% +% +% - end +% +% The input signature of the functor Hashtbl.Make[20.12]. +% +%<< +% module type S = >> +% +% sig +% +% +% << +% type key +% >> +% +% << +% type 'a t +% >> +% +% << +% val create : int -> 'a t +% >> +% +% << +% val clear : 'a t -> unit +% >> +% +% << +% val copy : 'a t -> 'a t +% >> +% +% << +% val add : 'a t -> key -> 'a -> unit +% >> +% +% << +% val remove : 'a t -> key -> unit +% >> +% +% << +% val find : 'a t -> key -> 'a +% >> +% +% << +% val find_all : 'a t -> key -> 'a list +% >> +% +% << +% val replace : 'a t -> key -> 'a -> unit +% >> +% +% << +% val mem : 'a t -> key -> bool +% >> +% +% << +% val iter : (key -> 'a -> unit) -> 'a t -> unit +% >> +% +% << +% val fold : (key -> 'a -> 'b -> 'b) -> 'a t -> 'b -> 'b +% >> +% +% << +% val length : 'a t -> int +% >> +% +% - end +% +% The output signature of the functor Hashtbl.Make[20.12]. +% +%<< +% module Make : >> +% +% functor (H : HashedType) -> S with type key = H.t +% Functor building an implementation of the hashtable structure. +% The functor Hashtbl.Make returns a structure containing a type +% key of keys and a type 'a t of hash tables associating data of +% type 'a to keys of type key. The operations perform similarly +% to those of the generic interface, but use the hashing and +% equality functions specified in the functor argument H instead +% of generic equality and hashing. +% +% +%The polymorphic hash primitive +%============================== +% +%<< +% val hash : 'a -> int +%>> +% +% Hashtbl.hash x associates a positive integer to any value of +% any type. It is guaranteed that if x = y or Pervasives.compare +% x y = 0, then hash x = hash y. Moreover, hash always +% terminates, even on cyclic structures. +% +%<< +% val hash_param : int -> int -> 'a -> int +%>> +% +% Hashtbl.hash_param n m x computes a hash value for x, with the +% same properties as for hash. The two extra parameters n and m +% give more precise control over hashing. Hashing performs a +% depth-first, right-to-left traversal of the structure x, +% stopping after n meaningful nodes were encountered, or m nodes, +% meaningful or not, were encountered. Meaningful nodes are: +% integers; floating-point numbers; strings; characters; +% booleans; and constant constructors. Larger values of m and n +% means that more nodes are taken into account to compute the +% final hash value, and therefore collisions are less likely to +% happen. However, hashing takes longer. The parameters m and n +% govern the tradeoff between accuracy and speed. +% +% +% +%20.13 Module Int32 : 32'bit integers. +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= +% +% +% This module provides operations on the type int32 of signed 32'bit integers. +%Unlike the built-in int type, the type int32 is guaranteed to be exactly +%32'bit wide on all platforms. All arithmetic operations over int32 are taken +%modulo 2^32. +% Performance notice: values of type int32 occupy more memory space than +%values of type int, and arithmetic operations on int32 are generally slower +%than those on int. Use int32 only when the application requires exact 32'bit +%arithmetic. +% 0.5cm +%<< +% val zero : int32 +%>> +% +% The 32'bit integer 0. +% +%<< +% val one : int32 +%>> +% +% The 32'bit integer 1. +% +%<< +% val minus_one : int32 +%>> +% +% The 32'bit integer -1. +% +%<< +% val neg : int32 -> int32 +%>> +% +% Unary negation. +% +%<< +% val add : int32 -> int32 -> int32 +%>> +% +% Addition. +% +%<< +% val sub : int32 -> int32 -> int32 +%>> +% +% Subtraction. +% +%<< +% val mul : int32 -> int32 -> int32 +%>> +% +% Multiplication. +% +%<< +% val div : int32 -> int32 -> int32 +%>> +% +% Integer division. Raise Division_by_zero if the second +% argument is zero. This division rounds the real quotient of its +% arguments towards zero, as specified for Pervasives.(/)[19.2]. +% +%<< +% val rem : int32 -> int32 -> int32 +%>> +% +% Integer remainder. If y is not zero, the result of Int32.rem x +% y satisfies the following property: x = Int32.add (Int32.mul +% (Int32.div x y) y) (Int32.rem x y). If y = 0, Int32.rem x y +% raises Division_by_zero. +% +%<< +% val succ : int32 -> int32 +%>> +% +% Successor. Int32.succ x is Int32.add x Int32.one. +% +%<< +% val pred : int32 -> int32 +%>> +% +% Predecessor. Int32.pred x is Int32.sub x Int32.one. +% +%<< +% val abs : int32 -> int32 +%>> +% +% Return the absolute value of its argument. +% +%<< +% val max_int : int32 +%>> +% +% The greatest representable 32'bit integer, 2^31 - 1. +% +%<< +% val min_int : int32 +%>> +% +% The smallest representable 32'bit integer, -2^31. +% +%<< +% val logand : int32 -> int32 -> int32 +%>> +% +% Bitwise logical and. +% +%<< +% val logor : int32 -> int32 -> int32 +%>> +% +% Bitwise logical or. +% +%<< +% val logxor : int32 -> int32 -> int32 +%>> +% +% Bitwise logical exclusive or. +% +%<< +% val lognot : int32 -> int32 +%>> +% +% Bitwise logical negation +% +%<< +% val shift_left : int32 -> int -> int32 +%>> +% +% Int32.shift_left x y shifts x to the left by y bits. The +% result is unspecified if y < 0 or y >= 32. +% +%<< +% val shift_right : int32 -> int -> int32 +%>> +% +% Int32.shift_right x y shifts x to the right by y bits. This is +% an arithmetic shift: the sign bit of x is replicated and +% inserted in the vacated bits. The result is unspecified if y < +% 0 or y >= 32. +% +%<< +% val shift_right_logical : int32 -> int -> int32 +%>> +% +% Int32.shift_right_logical x y shifts x to the right by y bits. +% This is a logical shift: zeroes are inserted in the vacated bits +% regardless of the sign of x. The result is unspecified if y < +% 0 or y >= 32. +% +%<< +% val of_int : int -> int32 +%>> +% +% Convert the given integer (type int) to a 32'bit integer (type +% int32). +% +%<< +% val to_int : int32 -> int +%>> +% +% Convert the given 32'bit integer (type int32) to an integer +% (type int). On 32'bit platforms, the 32'bit integer is taken +% modulo 2^31, i.e. the high-order bit is lost during the +% conversion. On 64'bit platforms, the conversion is exact. +% +%<< +% val of_float : float -> int32 +%>> +% +% Convert the given floating-point number to a 32'bit integer, +% discarding the fractional part (truncate towards 0). The result +% of the conversion is undefined if, after truncation, the number +% is outside the range [Int32.min_int[20.13], +% Int32.max_int[20.13]]. +% +%<< +% val to_float : int32 -> float +%>> +% +% Convert the given 32'bit integer to a floating-point number. +% +%<< +% val of_string : string -> int32 +%>> +% +% Convert the given string to a 32'bit integer. The string is +% read in decimal (by default) or in hexadecimal, octal or binary +% if the string begins with 0x, 0o or 0b respectively. Raise +% Failure "int_of_string" if the given string is not a valid +% representation of an integer, or if the integer represented +% exceeds the range of integers representable in type int32. +% +%<< +% val to_string : int32 -> string +%>> +% +% Return the string representation of its argument, in signed +% decimal. +% +%<< +% val bits_of_float : float -> int32 +%>> +% +% Return the internal representation of the given float according +% to the IEEE 754 floating-point --single format-- bit layout. +% Bit 31 of the result represents the sign of the float; bits 30 +% to 23 represent the (biased) exponent; bits 22 to 0 represent +% the mantissa. +% +%<< +% val float_of_bits : int32 -> float +%>> +% +% Return the floating-point number whose internal representation, +% according to the IEEE 754 floating-point --single format-- bit +% layout, is the given int32. +% +%<< +% type t = int32 +%>> +% +% An alias for the type of 32'bit integers. +% +%<< +% val compare : t -> t -> int +%>> +% +% The comparison function for 32'bit integers, with the same +% specification as Pervasives.compare[19.2]. Along with the type +% t, this function compare allows the module Int32 to be passed +% as argument to the functors Set.Make[20.28] and +% Map.Make[20.18]. +% +% +% +%20.14 Module Int64 : 64'bit integers. +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= +% +% +% This module provides operations on the type int64 of signed 64'bit integers. +%Unlike the built-in int type, the type int64 is guaranteed to be exactly +%64'bit wide on all platforms. All arithmetic operations over int64 are taken +%modulo 2^64 +% Performance notice: values of type int64 occupy more memory space than +%values of type int, and arithmetic operations on int64 are generally slower +%than those on int. Use int64 only when the application requires exact 64'bit +%arithmetic. +% 0.5cm +%<< +% val zero : int64 +%>> +% +% The 64'bit integer 0. +% +%<< +% val one : int64 +%>> +% +% The 64'bit integer 1. +% +%<< +% val minus_one : int64 +%>> +% +% The 64'bit integer -1. +% +%<< +% val neg : int64 -> int64 +%>> +% +% Unary negation. +% +%<< +% val add : int64 -> int64 -> int64 +%>> +% +% Addition. +% +%<< +% val sub : int64 -> int64 -> int64 +%>> +% +% Subtraction. +% +%<< +% val mul : int64 -> int64 -> int64 +%>> +% +% Multiplication. +% +%<< +% val div : int64 -> int64 -> int64 +%>> +% +% Integer division. Raise Division_by_zero if the second +% argument is zero. This division rounds the real quotient of its +% arguments towards zero, as specified for Pervasives.(/)[19.2]. +% +%<< +% val rem : int64 -> int64 -> int64 +%>> +% +% Integer remainder. If y is not zero, the result of Int64.rem x +% y satisfies the following property: x = Int64.add (Int64.mul +% (Int64.div x y) y) (Int64.rem x y). If y = 0, Int64.rem x y +% raises Division_by_zero. +% +%<< +% val succ : int64 -> int64 +%>> +% +% Successor. Int64.succ x is Int64.add x Int64.one. +% +%<< +% val pred : int64 -> int64 +%>> +% +% Predecessor. Int64.pred x is Int64.sub x Int64.one. +% +%<< +% val abs : int64 -> int64 +%>> +% +% Return the absolute value of its argument. +% +%<< +% val max_int : int64 +%>> +% +% The greatest representable 64'bit integer, 2^63 - 1. +% +%<< +% val min_int : int64 +%>> +% +% The smallest representable 64'bit integer, -2^63. +% +%<< +% val logand : int64 -> int64 -> int64 +%>> +% +% Bitwise logical and. +% +%<< +% val logor : int64 -> int64 -> int64 +%>> +% +% Bitwise logical or. +% +%<< +% val logxor : int64 -> int64 -> int64 +%>> +% +% Bitwise logical exclusive or. +% +%<< +% val lognot : int64 -> int64 +%>> +% +% Bitwise logical negation +% +%<< +% val shift_left : int64 -> int -> int64 +%>> +% +% Int64.shift_left x y shifts x to the left by y bits. The +% result is unspecified if y < 0 or y >= 64. +% +%<< +% val shift_right : int64 -> int -> int64 +%>> +% +% Int64.shift_right x y shifts x to the right by y bits. This is +% an arithmetic shift: the sign bit of x is replicated and +% inserted in the vacated bits. The result is unspecified if y < +% 0 or y >= 64. +% +%<< +% val shift_right_logical : int64 -> int -> int64 +%>> +% +% Int64.shift_right_logical x y shifts x to the right by y bits. +% This is a logical shift: zeroes are inserted in the vacated bits +% regardless of the sign of x. The result is unspecified if y < +% 0 or y >= 64. +% +%<< +% val of_int : int -> int64 +%>> +% +% Convert the given integer (type int) to a 64'bit integer (type +% int64). +% +%<< +% val to_int : int64 -> int +%>> +% +% Convert the given 64'bit integer (type int64) to an integer +% (type int). On 64'bit platforms, the 64'bit integer is taken +% modulo 2^63, i.e. the high-order bit is lost during the +% conversion. On 32'bit platforms, the 64'bit integer is taken +% modulo 2^31, i.e. the top 33 bits are lost during the +% conversion. +% +%<< +% val of_float : float -> int64 +%>> +% +% Convert the given floating-point number to a 64'bit integer, +% discarding the fractional part (truncate towards 0). The result +% of the conversion is undefined if, after truncation, the number +% is outside the range [Int64.min_int[20.14], +% Int64.max_int[20.14]]. +% +%<< +% val to_float : int64 -> float +%>> +% +% Convert the given 64'bit integer to a floating-point number. +% +%<< +% val of_int32 : int32 -> int64 +%>> +% +% Convert the given 32'bit integer (type int32) to a 64'bit +% integer (type int64). +% +%<< +% val to_int32 : int64 -> int32 +%>> +% +% Convert the given 64'bit integer (type int64) to a 32'bit +% integer (type int32). The 64'bit integer is taken modulo 2^32, +% i.e. the top 32 bits are lost during the conversion. +% +%<< +% val of_nativeint : nativeint -> int64 +%>> +% +% Convert the given native integer (type nativeint) to a 64'bit +% integer (type int64). +% +%<< +% val to_nativeint : int64 -> nativeint +%>> +% +% Convert the given 64'bit integer (type int64) to a native +% integer. On 32'bit platforms, the 64'bit integer is taken +% modulo 2^32. On 64'bit platforms, the conversion is exact. +% +%<< +% val of_string : string -> int64 +%>> +% +% Convert the given string to a 64'bit integer. The string is +% read in decimal (by default) or in hexadecimal, octal or binary +% if the string begins with 0x, 0o or 0b respectively. Raise +% Failure "int_of_string" if the given string is not a valid +% representation of an integer, or if the integer represented +% exceeds the range of integers representable in type int64. +% +%<< +% val to_string : int64 -> string +%>> +% +% Return the string representation of its argument, in decimal. +% +%<< +% val bits_of_float : float -> int64 +%>> +% +% Return the internal representation of the given float according +% to the IEEE 754 floating-point --double format-- bit layout. +% Bit 63 of the result represents the sign of the float; bits 62 +% to 52 represent the (biased) exponent; bits 51 to 0 represent +% the mantissa. +% +%<< +% val float_of_bits : int64 -> float +%>> +% +% Return the floating-point number whose internal representation, +% according to the IEEE 754 floating-point --double format-- bit +% layout, is the given int64. +% +%<< +% type t = int64 +%>> +% +% An alias for the type of 64'bit integers. +% +%<< +% val compare : t -> t -> int +%>> +% +% The comparison function for 64'bit integers, with the same +% specification as Pervasives.compare[19.2]. Along with the type +% t, this function compare allows the module Int64 to be passed +% as argument to the functors Set.Make[20.28] and +% Map.Make[20.18]. +% +% +% +%20.15 Module Lazy : Deferred computations. +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* +% +% +% 0.5cm +%<< +% type 'a t = 'a lazy_t +%>> +% +% A value of type 'a Lazy.t is a deferred computation, called a +% suspension, that has a result of type 'a. The special +% expression syntax lazy (expr) makes a suspension of the +% computation of expr, without computing expr itself yet. +% "Forcing" the suspension will then compute expr and return its +% result. +% Note: lazy_t is the built-in type constructor used by the +% compiler for the lazy keyword. You should not use it directly. +% Always use Lazy.t instead. +% Note: if the program is compiled with the -rectypes option, +% ill-founded recursive definitions of the form let rec x = lazy x +% or let rec x = lazy(lazy(...(lazy x))) are accepted by the +% type'checker and lead, when forced, to ill-formed values that +% trigger infinite loops in the garbage collector and other parts +% of the run-time system. Without the -rectypes option, such +% ill-founded recursive definitions are rejected by the +% type'checker. +% +%<< +% exception Undefined +%>> +% +%<< +% val force : 'a t -> 'a +%>> +% +% force x forces the suspension x and returns its result. If x +% has already been forced, Lazy.force x returns the same value +% again without recomputing it. If it raised an exception, the +% same exception is raised again. Raise Undefined if the forcing +% of x tries to force x itself recursively. +% +%<< +% val force_val : 'a t -> 'a +%>> +% +% force_val x forces the suspension x and returns its result. If +% x has already been forced, force_val x returns the same value +% again without recomputing it. Raise Undefined if the forcing of +% x tries to force x itself recursively. If the computation of x +% raises an exception, it is unspecified whether force_val x +% raises the same exception or Undefined. +% +%<< +% val lazy_from_fun : (unit -> 'a) -> 'a t +%>> +% +% lazy_from_fun f is the same as lazy (f ()) but slightly more +% efficient. +% +%<< +% val lazy_from_val : 'a -> 'a t +%>> +% +% lazy_from_val v returns an already-forced suspension of v This +% is for special purposes only and should not be confused with +% lazy (v). +% +%<< +% val lazy_is_val : 'a t -> bool +%>> +% +% lazy_is_val x returns true if x has already been forced and +% did not raise an exception. +% +% +% +%20.16 Module Lexing : The run-time library for lexers generated by ocamllex. +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* +% +% +% 0.5cm +% +%Positions +%========= +% +%<< +% type position = { +% pos_fname : string ; +% pos_lnum : int ; +% pos_bol : int ; +% pos_cnum : int ; +% } +%>> +% +% A value of type position describes a point in a source file. +% pos_fname is the file name; pos_lnum is the line number; +% pos_bol is the offset of the beginning of the line (number of +% characters between the beginning of the file and the beginning +% of the line); pos_cnum is the offset of the position (number of +% characters between the beginning of the file and the position). +% +%<< +% val dummy_pos : position +%>> +% +% A value of type position, guaranteed to be different from any +% valid position. +% +% +%Lexer buffers +%============= +% +%<< +% type lexbuf = { +% refill_buff : lexbuf -> unit ; +% mutable lex_buffer : string ; +% mutable lex_buffer_len : int ; +% mutable lex_abs_pos : int ; +% mutable lex_start_pos : int ; +% mutable lex_curr_pos : int ; +% mutable lex_last_pos : int ; +% mutable lex_last_action : int ; +% mutable lex_eof_reached : bool ; +% mutable lex_mem : int array ; +% mutable lex_start_p : position ; +% mutable lex_curr_p : position ; +% } +%>> +% +% The type of lexer buffers. A lexer buffer is the argument +% passed to the scanning functions defined by the generated +% scanners. The lexer buffer holds the current state of the +% scanner, plus a function to refill the buffer from the input. +% Note that the lexing engine will only manage the pos_cnum field +% of lex_curr_p by updating it with the number of characters read +% since the start of the lexbuf. For the other fields to be +% accurate, they must be initialised before the first use of the +% lexbuf, and updated by the lexer actions. +% +%<< +% val from_channel : Pervasives.in_channel -> lexbuf +%>> +% +% Create a lexer buffer on the given input channel. +% Lexing.from_channel inchan returns a lexer buffer which reads +% from the input channel inchan, at the current reading position. +% +%<< +% val from_string : string -> lexbuf +%>> +% +% Create a lexer buffer which reads from the given string. +% Reading starts from the first character in the string. An +% end-of-input condition is generated when the end of the string +% is reached. +% +%<< +% val from_function : (string -> int -> int) -> lexbuf +%>> +% +% Create a lexer buffer with the given function as its reading +% method. When the scanner needs more characters, it will call +% the given function, giving it a character string s and a +% character count n. The function should put n characters or less +% in s, starting at character number 0, and return the number of +% characters provided. A return value of 0 means end of input. +% +% +%Functions for lexer semantic actions +%==================================== +% +% The following functions can be called from the semantic actions of lexer +%definitions (the ML code enclosed in braces that computes the value returned +%by lexing functions). They give access to the character string matched by the +%regular expression associated with the semantic action. These functions must +%be applied to the argument lexbuf, which, in the code generated by ocamllex, +%is bound to the lexer buffer passed to the parsing function. +%<< +% val lexeme : lexbuf -> string +%>> +% +% Lexing.lexeme lexbuf returns the string matched by the regular +% expression. +% +%<< +% val lexeme_char : lexbuf -> int -> char +%>> +% +% Lexing.lexeme_char lexbuf i returns character number i in the +% matched string. +% +%<< +% val lexeme_start : lexbuf -> int +%>> +% +% Lexing.lexeme_start lexbuf returns the offset in the input +% stream of the first character of the matched string. The first +% character of the stream has offset 0. +% +%<< +% val lexeme_end : lexbuf -> int +%>> +% +% Lexing.lexeme_end lexbuf returns the offset in the input stream +% of the character following the last character of the matched +% string. The first character of the stream has offset 0. +% +%<< +% val lexeme_start_p : lexbuf -> position +%>> +% +% Like lexeme_start, but return a complete position instead of +% an offset. +% +%<< +% val lexeme_end_p : lexbuf -> position +%>> +% +% Like lexeme_end, but return a complete position instead of an +% offset. +% +% +%Miscellaneous functions +%======================= +% +%<< +% val flush_input : lexbuf -> unit +%>> +% +% Discard the contents of the buffer and reset the current +% position to 0. The next use of the lexbuf will trigger a +% refill. +% +% +% +%20.17 Module List : List operations. +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* +% +% +% Some functions are flagged as not tail-recursive. A tail-recursive function +%uses constant stack space, while a non-tail-recursive function uses stack +%space proportional to the length of its list argument, which can be a problem +%with very long lists. When the function takes several list arguments, an +%approximate formula giving stack usage (in some unspecified constant unit) is +%shown in parentheses. +% The above considerations can usually be ignored if your lists are not longer +%than about 10000 elements. +% 0.5cm +%<< +% val length : 'a list -> int +%>> +% +% Return the length (number of elements) of the given list. +% +%<< +% val hd : 'a list -> 'a +%>> +% +% Return the first element of the given list. Raise Failure "hd" +% if the list is empty. +% +%<< +% val tl : 'a list -> 'a list +%>> +% +% Return the given list without its first element. Raise Failure +% "tl" if the list is empty. +% +%<< +% val nth : 'a list -> int -> 'a +%>> +% +% Return the n-th element of the given list. The first element +% (head of the list) is at position 0. Raise Failure "nth" if the +% list is too short. +% +%<< +% val rev : 'a list -> 'a list +%>> +% +% List reversal. +% +%<< +% val append : 'a list -> 'a list -> 'a list +%>> +% +% Catenate two lists. Same function as the infix operator @. Not +% tail-recursive (length of the first argument). The @ operator +% is not tail-recursive either. +% +%<< +% val rev_append : 'a list -> 'a list -> 'a list +%>> +% +% List.rev_append l1 l2 reverses l1 and concatenates it to l2. +% This is equivalent to List.rev[20.17] l1 @ l2, but rev_append is +% tail-recursive and more efficient. +% +%<< +% val concat : 'a list list -> 'a list +%>> +% +% Concatenate a list of lists. The elements of the argument are +% all concatenated together (in the same order) to give the +% result. Not tail-recursive (length of the argument + length of +% the longest sub-list). +% +%<< +% val flatten : 'a list list -> 'a list +%>> +% +% Same as concat. Not tail-recursive (length of the argument + +% length of the longest sub-list). +% +% +%Iterators +%========= +% +%<< +% val iter : ('a -> unit) -> 'a list -> unit +%>> +% +% List.iter f [a1; ...; an] applies function f in turn to a1; +% ...; an. It is equivalent to begin f a1; f a2; ...; f an; () +% end. +% +%<< +% val map : ('a -> 'b) -> 'a list -> 'b list +%>> +% +% List.map f [a1; ...; an] applies function f to a1, ..., an, +% and builds the list [f a1; ...; f an] with the results returned +% by f. Not tail-recursive. +% +%<< +% val rev_map : ('a -> 'b) -> 'a list -> 'b list +%>> +% +% List.rev_map f l gives the same result as List.rev[20.17] +% (List.map[20.17] f l), but is tail-recursive and more +% efficient. +% +%<< +% val fold_left : ('a -> 'b -> 'a) -> 'a -> 'b list -> 'a +%>> +% +% List.fold_left f a [b1; ...; bn] is f (... (f (f a b1) b2) +% ...) bn. +% +%<< +% val fold_right : ('a -> 'b -> 'b) -> 'a list -> 'b -> 'b +%>> +% +% List.fold_right f [a1; ...; an] b is f a1 (f a2 (... (f an b) +% ...)). Not tail-recursive. +% +% +%Iterators on two lists +%====================== +% +%<< +% val iter2 : ('a -> 'b -> unit) -> 'a list -> 'b list -> unit +%>> +% +% List.iter2 f [a1; ...; an] [b1; ...; bn] calls in turn f a1 +% b1; ...; f an bn. Raise Invalid_argument if the two lists have +% different lengths. +% +%<< +% val map2 : ('a -> 'b -> 'c) -> 'a list -> 'b list -> 'c list +%>> +% +% List.map2 f [a1; ...; an] [b1; ...; bn] is [f a1 b1; ...; f an +% bn]. Raise Invalid_argument if the two lists have different +% lengths. Not tail-recursive. +% +%<< +% val rev_map2 : ('a -> 'b -> 'c) -> 'a list -> 'b list -> 'c list +%>> +% +% List.rev_map2 f l1 l2 gives the same result as List.rev[20.17] +% (List.map2[20.17] f l1 l2), but is tail-recursive and more +% efficient. +% +%<< +% val fold_left2 : ('a -> 'b -> 'c -> 'a) -> 'a -> 'b list -> 'c list -> 'a +%>> +% +% List.fold_left2 f a [b1; ...; bn] [c1; ...; cn] is f (... (f +% (f a b1 c1) b2 c2) ...) bn cn. Raise Invalid_argument if the +% two lists have different lengths. +% +%<< +% val fold_right2 : ('a -> 'b -> 'c -> 'c) -> 'a list -> 'b list -> 'c -> 'c +%>> +% +% List.fold_right2 f [a1; ...; an] [b1; ...; bn] c is f a1 b1 (f +% a2 b2 (... (f an bn c) ...)). Raise Invalid_argument if the two +% lists have different lengths. Not tail-recursive. +% +% +%List scanning +%============= +% +%<< +% val for_all : ('a -> bool) -> 'a list -> bool +%>> +% +% for_all p [a1; ...; an] checks if all elements of the list +% satisfy the predicate p. That is, it returns (p a1) && (p a2) +% && ... && (p an). +% +%<< +% val exists : ('a -> bool) -> 'a list -> bool +%>> +% +% exists p [a1; ...; an] checks if at least one element of the +% list satisfies the predicate p. That is, it returns (p a1) || +% (p a2) || ... || (p an). +% +%<< +% val for_all2 : ('a -> 'b -> bool) -> 'a list -> 'b list -> bool +%>> +% +% Same as List.for_all[20.17], but for a two'argument predicate. +% Raise Invalid_argument if the two lists have different lengths. +% +%<< +% val exists2 : ('a -> 'b -> bool) -> 'a list -> 'b list -> bool +%>> +% +% Same as List.exists[20.17], but for a two'argument predicate. +% Raise Invalid_argument if the two lists have different lengths. +% +%<< +% val mem : 'a -> 'a list -> bool +%>> +% +% mem a l is true if and only if a is equal to an element of l. +% +%<< +% val memq : 'a -> 'a list -> bool +%>> +% +% Same as List.mem[20.17], but uses physical equality instead of +% structural equality to compare list elements. +% +% +%List searching +%============== +% +%<< +% val find : ('a -> bool) -> 'a list -> 'a +%>> +% +% find p l returns the first element of the list l that +% satisfies the predicate p. Raise Not_found if there is no value +% that satisfies p in the list l. +% +%<< +% val filter : ('a -> bool) -> 'a list -> 'a list +%>> +% +% filter p l returns all the elements of the list l that satisfy +% the predicate p. The order of the elements in the input list is +% preserved. +% +%<< +% val find_all : ('a -> bool) -> 'a list -> 'a list +%>> +% +% find_all is another name for List.filter[20.17]. +% +%<< +% val partition : ('a -> bool) -> 'a list -> 'a list * 'a list +%>> +% +% partition p l returns a pair of lists (l1, l2), where l1 is +% the list of all the elements of l that satisfy the predicate p, +% and l2 is the list of all the elements of l that do not satisfy +% p. The order of the elements in the input list is preserved. +% +% +%Association lists +%================= +% +%<< +% val assoc : 'a -> ('a * 'b) list -> 'b +%>> +% +% assoc a l returns the value associated with key a in the list +% of pairs l. That is, assoc a [ ...; (a,b); ...] = b if (a,b) +% is the leftmost binding of a in list l. Raise Not_found if +% there is no value associated with a in the list l. +% +%<< +% val assq : 'a -> ('a * 'b) list -> 'b +%>> +% +% Same as List.assoc[20.17], but uses physical equality instead +% of structural equality to compare keys. +% +%<< +% val mem_assoc : 'a -> ('a * 'b) list -> bool +%>> +% +% Same as List.assoc[20.17], but simply return true if a binding +% exists, and false if no bindings exist for the given key. +% +%<< +% val mem_assq : 'a -> ('a * 'b) list -> bool +%>> +% +% Same as List.mem_assoc[20.17], but uses physical equality +% instead of structural equality to compare keys. +% +%<< +% val remove_assoc : 'a -> ('a * 'b) list -> ('a * 'b) list +%>> +% +% remove_assoc a l returns the list of pairs l without the first +% pair with key a, if any. Not tail-recursive. +% +%<< +% val remove_assq : 'a -> ('a * 'b) list -> ('a * 'b) list +%>> +% +% Same as List.remove_assoc[20.17], but uses physical equality +% instead of structural equality to compare keys. Not +% tail-recursive. +% +% +%Lists of pairs +%============== +% +%<< +% val split : ('a * 'b) list -> 'a list * 'b list +%>> +% +% Transform a list of pairs into a pair of lists: split +% [(a1,b1); ...; (an,bn)] is ([a1; ...; an], [b1; ...; bn]). Not +% tail-recursive. +% +%<< +% val combine : 'a list -> 'b list -> ('a * 'b) list +%>> +% +% Transform a pair of lists into a list of pairs: combine [a1; +% ...; an] [b1; ...; bn] is [(a1,b1); ...; (an,bn)]. Raise +% Invalid_argument if the two lists have different lengths. Not +% tail-recursive. +% +% +%Sorting +%======= +% +%<< +% val sort : ('a -> 'a -> int) -> 'a list -> 'a list +%>> +% +% Sort a list in increasing order according to a comparison +% function. The comparison function must return 0 if its arguments +% compare as equal, a positive integer if the first is greater, +% and a negative integer if the first is smaller (see Array.sort +% for a complete specification). For example, +% Pervasives.compare[19.2] is a suitable comparison function. The +% resulting list is sorted in increasing order. List.sort is +% guaranteed to run in constant heap space (in addition to the +% size of the result list) and logarithmic stack space. +% The current implementation uses Merge Sort. It runs in constant +% heap space and logarithmic stack space. +% +%<< +% val stable_sort : ('a -> 'a -> int) -> 'a list -> 'a list +%>> +% +% Same as List.sort[20.17], but the sorting algorithm is +% guaranteed to be stable (i.e. elements that compare equal are +% kept in their original order) . +% The current implementation uses Merge Sort. It runs in constant +% heap space and logarithmic stack space. +% +%<< +% val fast_sort : ('a -> 'a -> int) -> 'a list -> 'a list +%>> +% +% Same as List.sort[20.17] or List.stable_sort[20.17], whichever +% is faster on typical input. +% +%<< +% val merge : ('a -> 'a -> int) -> 'a list -> 'a list -> 'a list +%>> +% +% Merge two lists: Assuming that l1 and l2 are sorted according +% to the comparison function cmp, merge cmp l1 l2 will return a +% sorted list containting all the elements of l1 and l2. If +% several elements compare equal, the elements of l1 will be +% before the elements of l2. Not tail-recursive (sum of the +% lengths of the arguments). +% +% +% +%20.18 Module Map : Association tables over ordered types. +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= +% +% +% This module implements applicative association tables, also known as finite +%maps or dictionaries, given a total ordering function over the keys. All +%operations over maps are purely applicative (no side-effects). The +%implementation uses balanced binary trees, and therefore searching and +%insertion take time logarithmic in the size of the map. +% 0.5cm +%<< +% module type OrderedType = >> +% +% sig +% +% +% << +% type t +% >> +% +% The type of the map keys. +% +% << +% val compare : t -> t -> int +% >> +% +% A total ordering function over the keys. This is a +% two'argument function f such that f e1 e2 is zero if the +% keys e1 and e2 are equal, f e1 e2 is strictly negative if e1 +% is smaller than e2, and f e1 e2 is strictly positive if e1 +% is greater than e2. Example: a suitable ordering function is +% the generic structural comparison function +% Pervasives.compare[19.2]. +% +% +% - end +% +% Input signature of the functor Map.Make[20.18]. +% +%<< +% module type S = >> +% +% sig +% +% +% << +% type key +% >> +% +% The type of the map keys. +% +% << +% type +'a t +% >> +% +% The type of maps from type key to type 'a. +% +% << +% val empty : 'a t +% >> +% +% The empty map. +% +% << +% val is_empty : 'a t -> bool +% >> +% +% Test whether a map is empty or not. +% +% << +% val add : key -> 'a -> 'a t -> 'a t +% >> +% +% add x y m returns a map containing the same bindings as m, +% plus a binding of x to y. If x was already bound in m, its +% previous binding disappears. +% +% << +% val find : key -> 'a t -> 'a +% >> +% +% find x m returns the current binding of x in m, or raises +% Not_found if no such binding exists. +% +% << +% val remove : key -> 'a t -> 'a t +% >> +% +% remove x m returns a map containing the same bindings as m, +% except for x which is unbound in the returned map. +% +% << +% val mem : key -> 'a t -> bool +% >> +% +% mem x m returns true if m contains a binding for x, and +% false otherwise. +% +% << +% val iter : (key -> 'a -> unit) -> 'a t -> unit +% >> +% +% iter f m applies f to all bindings in map m. f receives the +% key as first argument, and the associated value as second +% argument. The bindings are passed to f in increasing order +% with respect to the ordering over the type of the keys. Only +% current bindings are presented to f: bindings hidden by more +% recent bindings are not passed to f. +% +% << +% val map : ('a -> 'b) -> 'a t -> 'b t +% >> +% +% map f m returns a map with same domain as m, where the +% associated value a of all bindings of m has been replaced by +% the result of the application of f to a. The bindings are +% passed to f in increasing order with respect to the ordering +% over the type of the keys. +% +% << +% val mapi : (key -> 'a -> 'b) -> 'a t -> 'b t +% >> +% +% Same as Map.S.map[20.18], but the function receives as +% arguments both the key and the associated value for each +% binding of the map. +% +% << +% val fold : (key -> 'a -> 'b -> 'b) -> 'a t -> 'b -> 'b +% >> +% +% fold f m a computes (f kN dN ... (f k1 d1 a)...), where k1 +% ... kN are the keys of all bindings in m (in increasing +% order), and d1 ... dN are the associated data. +% +% << +% val compare : ('a -> 'a -> int) -> 'a t -> 'a t -> int +% >> +% +% Total ordering between maps. The first argument is a total +% ordering used to compare data associated with equal keys in +% the two maps. +% +% << +% val equal : ('a -> 'a -> bool) -> 'a t -> 'a t -> bool +% >> +% +% equal cmp m1 m2 tests whether the maps m1 and m2 are equal, +% that is, contain equal keys and associate them with equal +% data. cmp is the equality predicate used to compare the data +% associated with the keys. +% +% +% - end +% +% Output signature of the functor Map.Make[20.18]. +% +%<< +% module Make : >> +% +% functor (Ord : OrderedType) -> S with type key = Ord.t +% Functor building an implementation of the map structure given +% a totally ordered type. +% +% +% +%20.19 Module Marshal : Marshaling of data structures. +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= +% +% +% This module provides functions to encode arbitrary data structures as +%sequences of bytes, which can then be written on a file or sent over a pipe or +%network connection. The bytes can then be read back later, possibly in another +%process, and decoded back into a data structure. The format for the byte +%sequences is compatible across all machines for a given version of Objective +%Caml. +% Warning: marshaling is currently not type-safe. The type of marshaled data +%is not transmitted along the value of the data, making it impossible to check +%that the data read back possesses the type expected by the context. In +%particular, the result type of the Marshal.from_* functions is given as 'a, +%but this is misleading: the returned Caml value does not possess type 'a for +%all 'a; it has one, unique type which cannot be determined at compile-type. +%The programmer should explicitly give the expected type of the returned value, +%using the following syntax: +% +% - (Marshal.from_channel chan : type). Anything can happen at run-time if the +% object in the file does not belong to the given type. +% +% The representation of marshaled values is not human-readable, and uses bytes +%that are not printable characters. Therefore, input and output channels used +%in conjunction with Marshal.to_channel and Marshal.from_channel must be opened +%in binary mode, using e.g. open_out_bin or open_in_bin; channels opened in +%text mode will cause unmarshaling errors on platforms where text channels +%behave differently than binary channels, e.g. Windows. +% 0.5cm +%<< +% type extern_flags = +% | No_sharing +%>> +% +% Don-t preserve sharing +% +%<< +% | Closures +%>> +% +% Send function closures +% +% The flags to the Marshal.to_* functions below. +% +%<< +% val to_channel : Pervasives.out_channel -> 'a -> extern_flags list -> unit +%>> +% +% Marshal.to_channel chan v flags writes the representation of v +% on channel chan. The flags argument is a possibly empty list of +% flags that governs the marshaling behavior with respect to +% sharing and functional values. +% If flags does not contain Marshal.No_sharing, circularities +% and sharing inside the value v are detected and preserved in +% the sequence of bytes produced. In particular, this guarantees +% that marshaling always terminates. Sharing between values +% marshaled by successive calls to Marshal.to_channel is not +% detected, though. If flags contains Marshal.No_sharing, sharing +% is ignored. This results in faster marshaling if v contains no +% shared substructures, but may cause slower marshaling and +% larger byte representations if v actually contains sharing, or +% even non-termination if v contains cycles. +% If flags does not contain Marshal.Closures, marshaling fails +% when it encounters a functional value inside v: only --pure-- +% data structures, containing neither functions nor objects, can +% safely be transmitted between different programs. If flags +% contains Marshal.Closures, functional values will be marshaled +% as a position in the code of the program. In this case, the +% output of marshaling can only be read back in processes that +% run exactly the same program, with exactly the same compiled +% code. (This is checked at un-marshaling time, using an MD5 +% digest of the code transmitted along with the code position.) +% +%<< +% val to_string : 'a -> extern_flags list -> string +%>> +% +% Marshal.to_string v flags returns a string containing the +% representation of v as a sequence of bytes. The flags argument +% has the same meaning as for Marshal.to_channel[20.19]. +% +%<< +% val to_buffer : string -> int -> int -> 'a -> extern_flags list -> int +%>> +% +% Marshal.to_buffer buff ofs len v flags marshals the value v, +% storing its byte representation in the string buff, starting at +% character number ofs, and writing at most len characters. It +% returns the number of characters actually written to the +% string. If the byte representation of v does not fit in len +% characters, the exception Failure is raised. +% +%<< +% val from_channel : Pervasives.in_channel -> 'a +%>> +% +% Marshal.from_channel chan reads from channel chan the byte +% representation of a structured value, as produced by one of the +% Marshal.to_* functions, and reconstructs and returns the +% corresponding value. +% +%<< +% val from_string : string -> int -> 'a +%>> +% +% Marshal.from_string buff ofs unmarshals a structured value +% like Marshal.from_channel[20.19] does, except that the byte +% representation is not read from a channel, but taken from the +% string buff, starting at position ofs. +% +%<< +% val header_size : int +%>> +% +% The bytes representing a marshaled value are composed of a +% fixed-size header and a variable-sized data part, whose size +% can be determined from the header. Marshal.header_size[20.19] +% is the size, in characters, of the header. +% Marshal.data_size[20.19] buff ofs is the size, in characters, +% of the data part, assuming a valid header is stored in buff +% starting at position ofs. Finally, Marshal.total_size[20.19] +% buff ofs is the total size, in characters, of the marshaled +% value. Both Marshal.data_size[20.19] and +% Marshal.total_size[20.19] raise Failure if buff, ofs does not +% contain a valid header. +% To read the byte representation of a marshaled value into a +% string buffer, the program needs to read first +% Marshal.header_size[20.19] characters into the buffer, then +% determine the length of the remainder of the representation +% using Marshal.data_size[20.19], make sure the buffer is large +% enough to hold the remaining data, then read it, and finally +% call Marshal.from_string[20.19] to unmarshal the value. +% +%<< +% val data_size : string -> int -> int +%>> +% +% See Marshal.header_size[20.19]. +% +%<< +% val total_size : string -> int -> int +%>> +% +% See Marshal.header_size[20.19]. +% +% +% +%20.20 Module Nativeint : Processor-native integers. +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= +% +% +% This module provides operations on the type nativeint of signed 32'bit +%integers (on 32'bit platforms) or signed 64'bit integers (on 64'bit +%platforms). This integer type has exactly the same width as that of a long +%integer type in the C compiler. All arithmetic operations over nativeint are +%taken modulo 2^32 or 2^64 depending on the word size of the architecture. +% Performance notice: values of type nativeint occupy more memory space than +%values of type int, and arithmetic operations on nativeint are generally +%slower than those on int. Use nativeint only when the application requires the +%extra bit of precision over the int type. +% 0.5cm +%<< +% val zero : nativeint +%>> +% +% The native integer 0. +% +%<< +% val one : nativeint +%>> +% +% The native integer 1. +% +%<< +% val minus_one : nativeint +%>> +% +% The native integer -1. +% +%<< +% val neg : nativeint -> nativeint +%>> +% +% Unary negation. +% +%<< +% val add : nativeint -> nativeint -> nativeint +%>> +% +% Addition. +% +%<< +% val sub : nativeint -> nativeint -> nativeint +%>> +% +% Subtraction. +% +%<< +% val mul : nativeint -> nativeint -> nativeint +%>> +% +% Multiplication. +% +%<< +% val div : nativeint -> nativeint -> nativeint +%>> +% +% Integer division. Raise Division_by_zero if the second +% argument is zero. This division rounds the real quotient of its +% arguments towards zero, as specified for Pervasives.(/)[19.2]. +% +%<< +% val rem : nativeint -> nativeint -> nativeint +%>> +% +% Integer remainder. If y is not zero, the result of +% Nativeint.rem x y satisfies the following properties: +% Nativeint.zero <= Nativeint.rem x y < Nativeint.abs y and x = +% Nativeint.add (Nativeint.mul (Nativeint.div x y) y) +% (Nativeint.rem x y). If y = 0, Nativeint.rem x y raises +% Division_by_zero. +% +%<< +% val succ : nativeint -> nativeint +%>> +% +% Successor. Nativeint.succ x is Nativeint.add x Nativeint.one. +% +%<< +% val pred : nativeint -> nativeint +%>> +% +% Predecessor. Nativeint.pred x is Nativeint.sub x +% Nativeint.one. +% +%<< +% val abs : nativeint -> nativeint +%>> +% +% Return the absolute value of its argument. +% +%<< +% val size : int +%>> +% +% The size in bits of a native integer. This is equal to 32 on a +% 32'bit platform and to 64 on a 64'bit platform. +% +%<< +% val max_int : nativeint +%>> +% +% The greatest representable native integer, either 2^31 - 1 on +% a 32'bit platform, or 2^63 - 1 on a 64'bit platform. +% +%<< +% val min_int : nativeint +%>> +% +% The greatest representable native integer, either -2^31 on a +% 32'bit platform, or -2^63 on a 64'bit platform. +% +%<< +% val logand : nativeint -> nativeint -> nativeint +%>> +% +% Bitwise logical and. +% +%<< +% val logor : nativeint -> nativeint -> nativeint +%>> +% +% Bitwise logical or. +% +%<< +% val logxor : nativeint -> nativeint -> nativeint +%>> +% +% Bitwise logical exclusive or. +% +%<< +% val lognot : nativeint -> nativeint +%>> +% +% Bitwise logical negation +% +%<< +% val shift_left : nativeint -> int -> nativeint +%>> +% +% Nativeint.shift_left x y shifts x to the left by y bits. The +% result is unspecified if y < 0 or y >= bitsize, where bitsize +% is 32 on a 32'bit platform and 64 on a 64'bit platform. +% +%<< +% val shift_right : nativeint -> int -> nativeint +%>> +% +% Nativeint.shift_right x y shifts x to the right by y bits. +% This is an arithmetic shift: the sign bit of x is replicated +% and inserted in the vacated bits. The result is unspecified if +% y < 0 or y >= bitsize. +% +%<< +% val shift_right_logical : nativeint -> int -> nativeint +%>> +% +% Nativeint.shift_right_logical x y shifts x to the right by y +% bits. This is a logical shift: zeroes are inserted in the +% vacated bits regardless of the sign of x. The result is +% unspecified if y < 0 or y >= bitsize. +% +%<< +% val of_int : int -> nativeint +%>> +% +% Convert the given integer (type int) to a native integer (type +% nativeint). +% +%<< +% val to_int : nativeint -> int +%>> +% +% Convert the given native integer (type nativeint) to an +% integer (type int). The high-order bit is lost during the +% conversion. +% +%<< +% val of_float : float -> nativeint +%>> +% +% Convert the given floating-point number to a native integer, +% discarding the fractional part (truncate towards 0). The result +% of the conversion is undefined if, after truncation, the number +% is outside the range [Nativeint.min_int[20.20], +% Nativeint.max_int[20.20]]. +% +%<< +% val to_float : nativeint -> float +%>> +% +% Convert the given native integer to a floating-point number. +% +%<< +% val of_int32 : int32 -> nativeint +%>> +% +% Convert the given 32'bit integer (type int32) to a native +% integer. +% +%<< +% val to_int32 : nativeint -> int32 +%>> +% +% Convert the given native integer to a 32'bit integer (type +% int32). On 64'bit platforms, the 64'bit native integer is taken +% modulo 2^32, i.e. the top 32 bits are lost. On 32'bit +% platforms, the conversion is exact. +% +%<< +% val of_string : string -> nativeint +%>> +% +% Convert the given string to a native integer. The string is +% read in decimal (by default) or in hexadecimal, octal or binary +% if the string begins with 0x, 0o or 0b respectively. Raise +% Failure "int_of_string" if the given string is not a valid +% representation of an integer, or if the integer represented +% exceeds the range of integers representable in type nativeint. +% +%<< +% val to_string : nativeint -> string +%>> +% +% Return the string representation of its argument, in decimal. +% +%<< +% type t = nativeint +%>> +% +% An alias for the type of native integers. +% +%<< +% val compare : t -> t -> int +%>> +% +% The comparison function for native integers, with the same +% specification as Pervasives.compare[19.2]. Along with the type +% t, this function compare allows the module Nativeint to be +% passed as argument to the functors Set.Make[20.28] and +% Map.Make[20.18]. +% +% +% +%20.21 Module Oo : Operations on objects +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= +% +% +% 0.5cm +%<< +% val copy : (< .. > as 'a) -> 'a +%>> +% +% Oo.copy o returns a copy of object o, that is a fresh object +% with the same methods and instance variables as o +% +%<< +% val id : < .. > -> int +%>> +% +% Return an integer identifying this object, unique for the +% current execution of the program. +% +% +% +%20.22 Module Parsing : The run-time library for parsers generated by +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* +%ocamlyacc. +%*=*=*=*=*= +% +% +% 0.5cm +%<< +% val symbol_start : unit -> int +%>> +% +% symbol_start and Parsing.symbol_end[20.22] are to be called in +% the action part of a grammar rule only. They return the offset +% of the string that matches the left-hand side of the rule: +% symbol_start() returns the offset of the first character; +% symbol_end() returns the offset after the last character. The +% first character in a file is at offset 0. +% +%<< +% val symbol_end : unit -> int +%>> +% +% See Parsing.symbol_start[20.22]. +% +%<< +% val rhs_start : int -> int +%>> +% +% Same as Parsing.symbol_start[20.22] and +% Parsing.symbol_end[20.22], but return the offset of the string +% matching the nth item on the right-hand side of the rule, where +% n is the integer parameter to rhs_start and rhs_end. n is 1 for +% the leftmost item. +% +%<< +% val rhs_end : int -> int +%>> +% +% See Parsing.rhs_start[20.22]. +% +%<< +% val symbol_start_pos : unit -> Lexing.position +%>> +% +% Same as symbol_start, but return a position instead of an +% offset. +% +%<< +% val symbol_end_pos : unit -> Lexing.position +%>> +% +% Same as symbol_end, but return a position instead of an offset. +% +%<< +% val rhs_start_pos : int -> Lexing.position +%>> +% +% Same as rhs_start, but return a position instead of an offset. +% +%<< +% val rhs_end_pos : int -> Lexing.position +%>> +% +% Same as rhs_end, but return a position instead of an offset. +% +%<< +% val clear_parser : unit -> unit +%>> +% +% Empty the parser stack. Call it just after a parsing function +% has returned, to remove all pointers from the parser stack to +% structures that were built by semantic actions during parsing. +% This is optional, but lowers the memory requirements of the +% programs. +% +%<< +% exception Parse_error +%>> +% +% Raised when a parser encounters a syntax error. Can also be +% raised from the action part of a grammar rule, to initiate +% error recovery. +% +% +% +%20.23 Module Printexc : Facilities for printing exceptions. +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= +% +% +% 0.5cm +%<< +% val to_string : exn -> string +%>> +% +% Printexc.to_string e returns a string representation of the +% exception e. +% +%<< +% val print : ('a -> 'b) -> 'a -> 'b +%>> +% +% Printexc.print fn x applies fn to x and returns the result. If +% the evaluation of fn x raises any exception, the name of the +% exception is printed on standard error output, and the +% exception is raised again. The typical use is to catch and +% report exceptions that escape a function application. +% +%<< +% val catch : ('a -> 'b) -> 'a -> 'b +%>> +% +% Printexc.catch fn x is similar to Printexc.print[20.23], but +% aborts the program with exit code 2 after printing the uncaught +% exception. This function is deprecated: the runtime system is +% now able to print uncaught exceptions as precisely as +% Printexc.catch does. Moreover, calling Printexc.catch makes it +% harder to track the location of the exception using the +% debugger or the stack backtrace facility. So, do not use +% Printexc.catch in new code. +% +% +% +%20.24 Module Printf : Formatted output functions. +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= +% +% +% 0.5cm +%<< +% val fprintf : +% Pervasives.out_channel -> +% ('a, Pervasives.out_channel, unit) Pervasives.format -> 'a +%>> +% +% fprintf outchan format arg1 ... argN formats the arguments +% arg1 to argN according to the format string format, and outputs +% the resulting string on the channel outchan. +% The format is a character string which contains two types of +% objects: plain characters, which are simply copied to the +% output channel, and conversion specifications, each of which +% causes conversion and printing of one argument. +% Conversion specifications consist in the % character, followed +% by optional flags and field widths, followed by one or two +% conversion character. The conversion characters and their +% meanings are: +% +% - d, i, n, or N: convert an integer argument to signed decimal. +% +% - u: convert an integer argument to unsigned decimal. +% - x: convert an integer argument to unsigned hexadecimal, +% using lowercase letters. +% - X: convert an integer argument to unsigned hexadecimal, +% using uppercase letters. +% - o: convert an integer argument to unsigned octal. +% - s: insert a string argument. +% - S: insert a string argument in Caml syntax (double quotes, +% escapes). +% - c: insert a character argument. +% - C: insert a character argument in Caml syntax (single quotes, +% escapes). +% - f: convert a floating-point argument to decimal notation, in +% the style dddd.ddd. +% - F: convert a floating-point argument in Caml syntax (dddd.ddd +% with a mandatory .). +% - e or E: convert a floating-point argument to decimal +% notation, in the style d.ddd e+-dd (mantissa and exponent). +% - g or G: convert a floating-point argument to decimal +% notation, in style f or e, E (whichever is more compact). +% - B: convert a boolean argument to the string true or false +% - b: convert a boolean argument (for backward compatibility; do +% not use in new programs). +% - ld, li, lu, lx, lX, lo: convert an int32 argument to the +% format specified by the second letter (decimal, hexadecimal, +% etc). +% - nd, ni, nu, nx, nX, no: convert a nativeint argument to the +% format specified by the second letter. +% - Ld, Li, Lu, Lx, LX, Lo: convert an int64 argument to the +% format specified by the second letter. +% - a: user-defined printer. Takes two arguments and apply the +% first one to outchan (the current output channel) and to the +% second argument. The first argument must therefore have type +% out_channel -> 'b -> unit and the second 'b. The output +% produced by the function is therefore inserted in the output +% of fprintf at the current point. +% - t: same as %a, but takes only one argument (with type +% out_channel -> unit) and apply it to outchan. +% - !: take no argument and flush the output. +% - %: take no argument and output one % character. +% +% The optional flags include: +% +% - -: left-justify the output (default is right justification). +% - 0: for numerical conversions, pad with zeroes instead of +% spaces. +% - +: for numerical conversions, prefix number with a + sign if +% positive. +% - space: for numerical conversions, prefix number with a space +% if positive. +% - `#': request an alternate formatting style for numbers. +% +% The field widths are composed of an optional integer literal +% indicating the minimal width of the result, possibly followed by +% a dot . and another integer literal indicating how many digits +% follow the decimal point in the %f, %e, and %E conversions. For +% instance, %6d prints an integer, prefixing it with spaces to +% fill at least 6 characters; and %.4f prints a float with 4 +% fractional digits. Each or both of the integer literals can also +% be specified as a *, in which case an extra integer argument is +% taken to specify the corresponding width or precision. +% Warning: if too few arguments are provided, for instance +% because the printf function is partially applied, the format is +% immediately printed up to the conversion of the first missing +% argument; printing will then resume when the missing arguments +% are provided. For example, List.iter (printf "x=%d y=%d " 1) +% [2;3] prints x=1 y=2 3 instead of the expected x=1 y=2 x=1 +% y=3. To get the expected behavior, do List.iter (fun y -> +% printf "x=%d y=%d " 1 y) [2;3]. +% +%<< +% val printf : ('a, Pervasives.out_channel, unit) Pervasives.format -> 'a +%>> +% +% Same as Printf.fprintf[20.24], but output on stdout. +% +%<< +% val eprintf : ('a, Pervasives.out_channel, unit) Pervasives.format -> 'a +%>> +% +% Same as Printf.fprintf[20.24], but output on stderr. +% +%<< +% val sprintf : ('a, unit, string) Pervasives.format -> 'a +%>> +% +% Same as Printf.fprintf[20.24], but instead of printing on an +% output channel, return a string containing the result of +% formatting the arguments. +% +%<< +% val bprintf : Buffer.t -> ('a, Buffer.t, unit) Pervasives.format -> 'a +%>> +% +% Same as Printf.fprintf[20.24], but instead of printing on an +% output channel, append the formatted arguments to the given +% extensible buffer (see module Buffer[20.3]). +% +%<< +% val kprintf : (string -> 'a) -> ('b, unit, string, 'a) format4 -> 'b +%>> +% +% kprintf k format arguments is the same as sprintf format +% arguments, except that the resulting string is passed as +% argument to k; the result of k is then returned as the result +% of kprintf. +% +% +% +%20.25 Module Queue : First-in first-out queues. +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= +% +% +% This module implements queues (FIFOs), with in-place modification. +% 0.5cm +%<< +% type 'a t +%>> +% +% The type of queues containing elements of type 'a. +% +%<< +% exception Empty +%>> +% +% Raised when Queue.take[20.25] or Queue.peek[20.25] is applied +% to an empty queue. +% +%<< +% val create : unit -> 'a t +%>> +% +% Return a new queue, initially empty. +% +%<< +% val add : 'a -> 'a t -> unit +%>> +% +% add x q adds the element x at the end of the queue q. +% +%<< +% val push : 'a -> 'a t -> unit +%>> +% +% push is a synonym for add. +% +%<< +% val take : 'a t -> 'a +%>> +% +% take q removes and returns the first element in queue q, or +% raises Empty if the queue is empty. +% +%<< +% val pop : 'a t -> 'a +%>> +% +% pop is a synonym for take. +% +%<< +% val peek : 'a t -> 'a +%>> +% +% peek q returns the first element in queue q, without removing +% it from the queue, or raises Empty if the queue is empty. +% +%<< +% val top : 'a t -> 'a +%>> +% +% top is a synonym for peek. +% +%<< +% val clear : 'a t -> unit +%>> +% +% Discard all elements from a queue. +% +%<< +% val copy : 'a t -> 'a t +%>> +% +% Return a copy of the given queue. +% +%<< +% val is_empty : 'a t -> bool +%>> +% +% Return true if the given queue is empty, false otherwise. +% +%<< +% val length : 'a t -> int +%>> +% +% Return the number of elements in a queue. +% +%<< +% val iter : ('a -> unit) -> 'a t -> unit +%>> +% +% iter f q applies f in turn to all elements of q, from the +% least recently entered to the most recently entered. The queue +% itself is unchanged. +% +%<< +% val fold : ('a -> 'b -> 'a) -> 'a -> 'b t -> 'a +%>> +% +% fold f accu q is equivalent to List.fold_left f accu l, where +% l is the list of q-s elements. The queue remains unchanged. +% +%<< +% val transfer : 'a t -> 'a t -> unit +%>> +% +% transfer q1 q2 adds all of q1-s elements at the end of the +% queue q2, then clears q1. It is equivalent to the sequence iter +% (fun x -> add x q2) q1; clear q1, but runs in constant time. +% +% +% +%20.26 Module Random : Pseudo-random number generators (PRNG). +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= +% +% +% 0.5cm +% +%Basic functions +%=============== +% +%<< +% val init : int -> unit +%>> +% +% Initialize the generator, using the argument as a seed. The +% same seed will always yield the same sequence of numbers. +% +%<< +% val full_init : int array -> unit +%>> +% +% Same as Random.init[20.26] but takes more data as seed. +% +%<< +% val self_init : unit -> unit +%>> +% +% Initialize the generator with a more-or-less random seed chosen +% in a system-dependent way. +% +%<< +% val bits : unit -> int +%>> +% +% Return 30 random bits in a nonnegative integer. +% +%<< +% val int : int -> int +%>> +% +% Random.int bound returns a random integer between 0 (inclusive) +% and bound (exclusive). bound must be more than 0 and less than +% 2^30. +% +%<< +% val int32 : Int32.t -> Int32.t +%>> +% +% Random.int32 bound returns a random integer between 0 +% (inclusive) and bound (exclusive). bound must be greater than +% 0. +% +%<< +% val nativeint : Nativeint.t -> Nativeint.t +%>> +% +% Random.nativeint bound returns a random integer between 0 +% (inclusive) and bound (exclusive). bound must be greater than +% 0. +% +%<< +% val int64 : Int64.t -> Int64.t +%>> +% +% Random.int64 bound returns a random integer between 0 +% (inclusive) and bound (exclusive). bound must be greater than +% 0. +% +%<< +% val float : float -> float +%>> +% +% Random.float bound returns a random floating-point number +% between 0 (inclusive) and bound (exclusive). If bound is +% negative, the result is negative or zero. If bound is 0, the +% result is 0. +% +%<< +% val bool : unit -> bool +%>> +% +% Random.bool () returns true or false with probability 0.5 each. +% +% +%Advanced functions +%================== +% +% The functions from module State manipulate the current state of the random +%generator explicitely. This allows using one or several deterministic PRNGs, +%even in a multi-threaded program, without interference from other parts of the +%program. +%<< +% module State : >> +% +% sig +% +% +% << +% type t +% >> +% +% The type of PRNG states. +% +% << +% val make : int array -> t +% >> +% +% Create a new state and initialize it with the given seed. +% +% << +% val make_self_init : unit -> t +% >> +% +% Create a new state and initialize it with a system-dependent +% low-entropy seed. +% +% << +% val copy : t -> t +% >> +% +% Return a copy of the given state. +% +% << +% val bits : t -> int +% >> +% +% << +% val int : t -> int -> int +% >> +% +% << +% val int32 : t -> Int32.t -> Int32.t +% >> +% +% << +% val nativeint : t -> Nativeint.t -> Nativeint.t +% >> +% +% << +% val int64 : t -> Int64.t -> Int64.t +% >> +% +% << +% val float : t -> float -> float +% >> +% +% << +% val bool : t -> bool +% >> +% +% These functions are the same as the basic functions, except +% that they use (and update) the given PRNG state instead of +% the default one. +% +% +% - end +% +%<< +% val get_state : unit -> State.t +%>> +% +% Return the current state of the generator used by the basic +% functions. +% +%<< +% val set_state : State.t -> unit +%>> +% +% Set the state of the generator used by the basic functions. +% +% +% +%20.27 Module Scanf : Formatted input functions. +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= +% +% +% 0.5cm +%<< +% module Scanning : >> +% +% sig +% +% +% << +% type scanbuf +% >> +% +% The type of scanning buffers. A scanning buffer is the +% argument passed to the scanning functions used by the scanf +% family of functions. The scanning buffer holds the current +% state of the scan, plus a function to get the next char from +% the input, and a token buffer to store the string matched so +% far. +% +% << +% val stdib : scanbuf +% >> +% +% The scanning buffer reading from stdin. stdib is equivalent +% to Scanning.from_channel stdin. +% +% << +% val from_string : string -> scanbuf +% >> +% +% Scanning.from_string s returns a scanning buffer which reads +% from the given string. Reading starts from the first +% character in the string. The end-of-input condition is set +% when the end of the string is reached. +% +% << +% val from_file : string -> scanbuf +% >> +% +% Bufferized file reading in text mode. The efficient and +% usual way to scan text mode files (in effect, from_file +% returns a buffer that reads characters in large chunks, +% rather than one character at a time as buffers returned by +% from_channel do). Scanning.from_file fname returns a +% scanning buffer which reads from the given file fname in +% text mode. +% +% << +% val from_file_bin : string -> scanbuf +% >> +% +% Bufferized file reading in binary mode. +% +% << +% val from_function : (unit -> char) -> scanbuf +% >> +% +% Scanning.from_function f returns a scanning buffer with the +% given function as its reading method. When scanning needs +% one more character, the given function is called. When the +% function has no more character to provide, it must signal an +% end-of-input condition by raising the exception End_of_file. +% +% << +% val from_channel : Pervasives.in_channel -> scanbuf +% >> +% +% Scanning.from_channel inchan returns a scanning buffer which +% reads one character at a time from the input channel inchan, +% starting at the current reading position. +% +% << +% val end_of_input : scanbuf -> bool +% >> +% +% Scanning.end_of_input scanbuf tests the end of input +% condition of the given buffer. +% +% << +% val beginning_of_input : scanbuf -> bool +% >> +% +% Scanning.beginning_of_input scanbuf tests the beginning of +% input condition of the given buffer. +% +% +% - end +% +% Scanning buffers. +% +%<< +% exception Scan_failure of string +%>> +% +% The exception that formatted input functions raise when the +% input cannot be read according to the given format. +% +%<< +% val bscanf : +% Scanning.scanbuf -> +% ('a, Scanning.scanbuf, 'b) Pervasives.format -> 'a -> 'b +%>> +% +% bscanf ib format f reads tokens from the scanning buffer ib +% according to the format string format, converts these tokens to +% values, and applies the function f to these values. The result +% of this application of f is the result of the whole construct. +% For instance, if p is the function fun s i -> i + 1, then +% Scanf.sscanf "x = 1" "%s = %i" p returns 2. +% Raise Scanf.Scan_failure if the given input does not match the +% format. +% Raise Failure if a conversion to a number is not possible. +% Raise End_of_file if the end of input is encountered while +% scanning and the input matches the given format so far. +% The format is a character string which contains three types of +% objects: +% +% - plain characters, which are simply matched with the +% characters of the input, +% - conversion specifications, each of which causes reading and +% conversion of one argument for f, +% - scanning indications to specify boundaries of tokens. +% +% Among plain characters the space character (ASCII code 32) has a +% special meaning: it matches --whitespace--, that is any number +% of tab, space, newline and carriage return characters. Hence, a +% space in the format matches any amount of whitespace in the +% input. +% Conversion specifications consist in the % character, followed +% by an optional flag, an optional field width, and followed by +% one or two conversion characters. The conversion characters and +% their meanings are: +% +% +% - d: reads an optionally signed decimal integer. +% - i: reads an optionally signed integer (usual input formats +% for hexadecimal (0x[d]+ and 0X[d]+), octal (0o[d]+), and +% binary 0b[d]+ notations are understood). +% - u: reads an unsigned decimal integer. +% - x or X: reads an unsigned hexadecimal integer. +% - o: reads an unsigned octal integer. +% - s: reads a string argument (by default strings end with a +% space). +% - S: reads a delimited string argument (delimiters and special +% escaped characters follow the lexical conventions of Caml). +% - c: reads a single character. To test the current input +% character without reading it, specify a null field width, +% i.e. use specification %0c. Raise Invalid_argument, if the +% field width specification is greater than 1. +% - C: reads a single delimited character (delimiters and special +% escaped characters follow the lexical conventions of Caml). +% - f, e, E, g, G: reads an optionally signed floating-point +% number in decimal notation, in the style dddd.ddd e/E+-dd. +% - F: reads a floating point number according to the lexical +% conventions of Caml (hence the decimal point is mandatory if +% the exponent part is not mentioned). +% - B: reads a boolean argument (true or false). +% - b: reads a boolean argument (for backward compatibility; do +% not use in new programs). +% - ld, li, lu, lx, lX, lo: reads an int32 argument to the +% format specified by the second letter (decimal, hexadecimal, +% etc). +% - nd, ni, nu, nx, nX, no: reads a nativeint argument to the +% format specified by the second letter. +% - Ld, Li, Lu, Lx, LX, Lo: reads an int64 argument to the +% format specified by the second letter. +% - [ range ]: reads characters that matches one of the +% characters mentioned in the range of characters range (or +% not mentioned in it, if the range starts with ^). Returns a +% string that can be empty, if no character in the input +% matches the range. Hence, [0-9] returns a string +% representing a decimal number or an empty string if no +% decimal digit is found. If a closing bracket appears in a +% range, it must occur as the first character of the range (or +% just after the ^ in case of range negation); hence []] +% matches a ] character and [^]] matches any character that is +% not ]. +% - l: applies f to the number of lines read so far. +% - n: applies f to the number of characters read so far. +% - N: applies f to the number of tokens read so far. +% - !: matches the end of input condition. +% - %: matches one % character in the input. +% +% Following the % character introducing a conversion, there may be +% the special flag _: the conversion that follows occurs as +% usual, but the resulting value is discarded. +% The field widths are composed of an optional integer literal +% indicating the maximal width of the token to read. For +% instance, %6d reads an integer, having at most 6 decimal digits; +% and %4f reads a float with at most 4 characters. +% Scanning indications appear just after the string conversions s +% and [ range ] to delimit the end of the token. A scanning +% indication is introduced by a @ character, followed by some +% constant character c. It means that the string token should end +% just before the next matching c (which is skipped). If no c +% character is encountered, the string token spreads as much as +% possible. For instance, "%s@\t" reads a string up to the next +% tabulation character. If a scanning indication @c does not +% follow a string conversion, it is ignored and treated as a plain +% c character. +% Notes: +% +% +% - the scanning indications introduce slight differences in the +% syntax of Scanf format strings compared to those used by the +% Printf module. However, scanning indications are similar to +% those of the Format module; hence, when producing formatted +% text to be scanned by !Scanf.bscanf, it is wise to use +% printing functions from Format (or, if you need to use +% functions from Printf, banish or carefully double check the +% format strings that contain -@- characters). +% +% +% - in addition to relevant digits, -_- characters may appear +% inside numbers (this is reminiscent to the usual Caml +% conventions). If stricter scanning is desired, use the range +% conversion facility instead of the number conversions. +% +% +% - the scanf facility is not intended for heavy duty lexical +% analysis and parsing. If it appears not expressive enough for +% your needs, several alternative exists: regular expressions +% (module Str), stream parsers, ocamllex-generated lexers, +% ocamlyacc-generated parsers. +% +%<< +% val fscanf : +% Pervasives.in_channel -> +% ('a, Scanning.scanbuf, 'b) Pervasives.format -> 'a -> 'b +%>> +% +% Same as Scanf.bscanf[20.27], but inputs from the given channel. +% Warning: since all scanning functions operate from a scanning +% buffer, be aware that each fscanf invocation must allocate a new +% fresh scanning buffer (unless careful use of partial evaluation +% in the program). Hence, there are chances that some characters +% seem to be skipped (in fact they are pending in the previously +% used buffer). This happens in particular when calling fscanf +% again after a scan involving a format that necessitates some +% look ahead (such as a format that ends by skipping whitespace +% in the input). +% To avoid confusion, consider using bscanf with an explicitly +% created scanning buffer. Use for instance Scanning.from_file f +% to allocate the scanning buffer reading from file f. +% This method is not only clearer it is also faster, since +% scanning buffers to files are optimized for fast bufferized +% reading. +% +%<< +% val sscanf : +% string -> ('a, Scanning.scanbuf, 'b) Pervasives.format -> 'a -> 'b +%>> +% +% Same as Scanf.bscanf[20.27], but inputs from the given string. +% +%<< +% val scanf : ('a, Scanning.scanbuf, 'b) Pervasives.format -> 'a -> 'b +%>> +% +% Same as Scanf.bscanf[20.27], but reads from the predefined +% scanning buffer Scanf.Scanning.stdib[20.27] that is connected +% to stdin. +% +%<< +% val kscanf : +% Scanning.scanbuf -> +% (Scanning.scanbuf -> exn -> 'a) -> +% ('b, Scanning.scanbuf, 'a) Pervasives.format -> 'b -> 'a +%>> +% +% Same as Scanf.bscanf[20.27], but takes an additional function +% argument ef that is called in case of error: if the scanning +% process or some conversion fails, the scanning function aborts +% and applies the error handling function ef to the scanning +% buffer and the exception that aborted the scanning process. +% +% +% +%20.28 Module Set : Sets over ordered types. +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= +% +% +% This module implements the set data structure, given a total ordering +%function over the set elements. All operations over sets are purely +%applicative (no side-effects). The implementation uses balanced binary trees, +%and is therefore reasonably efficient: insertion and membership take time +%logarithmic in the size of the set, for instance. +% 0.5cm +%<< +% module type OrderedType = >> +% +% sig +% +% +% << +% type t +% >> +% +% The type of the set elements. +% +% << +% val compare : t -> t -> int +% >> +% +% A total ordering function over the set elements. This is a +% two'argument function f such that f e1 e2 is zero if the +% elements e1 and e2 are equal, f e1 e2 is strictly negative +% if e1 is smaller than e2, and f e1 e2 is strictly positive +% if e1 is greater than e2. Example: a suitable ordering +% function is the generic structural comparison function +% Pervasives.compare[19.2]. +% +% +% - end +% +% Input signature of the functor Set.Make[20.28]. +% +%<< +% module type S = >> +% +% sig +% +% +% << +% type elt +% >> +% +% The type of the set elements. +% +% << +% type t +% >> +% +% The type of sets. +% +% << +% val empty : t +% >> +% +% The empty set. +% +% << +% val is_empty : t -> bool +% >> +% +% Test whether a set is empty or not. +% +% << +% val mem : elt -> t -> bool +% >> +% +% mem x s tests whether x belongs to the set s. +% +% << +% val add : elt -> t -> t +% >> +% +% add x s returns a set containing all elements of s, plus x. +% If x was already in s, s is returned unchanged. +% +% << +% val singleton : elt -> t +% >> +% +% singleton x returns the one-element set containing only x. +% +% << +% val remove : elt -> t -> t +% >> +% +% remove x s returns a set containing all elements of s, +% except x. If x was not in s, s is returned unchanged. +% +% << +% val union : t -> t -> t +% >> +% +% Set union. +% +% << +% val inter : t -> t -> t +% >> +% +% Set intersection. +% +% << +% val diff : t -> t -> t +% >> +% +% Set difference. +% +% << +% val compare : t -> t -> int +% >> +% +% Total ordering between sets. Can be used as the ordering +% function for doing sets of sets. +% +% << +% val equal : t -> t -> bool +% >> +% +% equal s1 s2 tests whether the sets s1 and s2 are equal, +% that is, contain equal elements. +% +% << +% val subset : t -> t -> bool +% >> +% +% subset s1 s2 tests whether the set s1 is a subset of the +% set s2. +% +% << +% val iter : (elt -> unit) -> t -> unit +% >> +% +% iter f s applies f in turn to all elements of s. The +% elements of s are presented to f in increasing order with +% respect to the ordering over the type of the elements. +% +% << +% val fold : (elt -> 'a -> 'a) -> t -> 'a -> 'a +% >> +% +% fold f s a computes (f xN ... (f x2 (f x1 a))...), where x1 +% ... xN are the elements of s, in increasing order. +% +% << +% val for_all : (elt -> bool) -> t -> bool +% >> +% +% for_all p s checks if all elements of the set satisfy the +% predicate p. +% +% << +% val exists : (elt -> bool) -> t -> bool +% >> +% +% exists p s checks if at least one element of the set +% satisfies the predicate p. +% +% << +% val filter : (elt -> bool) -> t -> t +% >> +% +% filter p s returns the set of all elements in s that +% satisfy predicate p. +% +% << +% val partition : (elt -> bool) -> t -> t * t +% >> +% +% partition p s returns a pair of sets (s1, s2), where s1 is +% the set of all the elements of s that satisfy the predicate +% p, and s2 is the set of all the elements of s that do not +% satisfy p. +% +% << +% val cardinal : t -> int +% >> +% +% Return the number of elements of a set. +% +% << +% val elements : t -> elt list +% >> +% +% Return the list of all elements of the given set. The +% returned list is sorted in increasing order with respect to +% the ordering Ord.compare, where Ord is the argument given to +% Set.Make[20.28]. +% +% << +% val min_elt : t -> elt +% >> +% +% Return the smallest element of the given set (with respect +% to the Ord.compare ordering), or raise Not_found if the set +% is empty. +% +% << +% val max_elt : t -> elt +% >> +% +% Same as Set.S.min_elt[20.28], but returns the largest +% element of the given set. +% +% << +% val choose : t -> elt +% >> +% +% Return one element of the given set, or raise Not_found if +% the set is empty. Which element is chosen is unspecified, +% but equal elements will be chosen for equal sets. +% +% << +% val split : elt -> t -> t * bool * t +% >> +% +% split x s returns a triple (l, present, r), where l is the +% set of elements of s that are strictly less than x; r is +% the set of elements of s that are strictly greater than x; +% present is false if s contains no element equal to x, or +% true if s contains an element equal to x. +% +% +% - end +% +% Output signature of the functor Set.Make[20.28]. +% +%<< +% module Make : >> +% +% functor (Ord : OrderedType) -> S with type elt = Ord.t +% Functor building an implementation of the set structure given +% a totally ordered type. +% +% +% +%20.29 Module Sort : Sorting and merging lists. +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* +% +% This module is obsolete and exists only for backward compatibility. The +%sorting functions in Array[20.2] and List[20.17] should be used instead. The +%new functions are faster and use less memory.Sorting and merging lists. +% 0.5cm +%<< +% val list : ('a -> 'a -> bool) -> 'a list -> 'a list +%>> +% +% Sort a list in increasing order according to an ordering +% predicate. The predicate should return true if its first +% argument is less than or equal to its second argument. +% +%<< +% val array : ('a -> 'a -> bool) -> 'a array -> unit +%>> +% +% Sort an array in increasing order according to an ordering +% predicate. The predicate should return true if its first +% argument is less than or equal to its second argument. The +% array is sorted in place. +% +%<< +% val merge : ('a -> 'a -> bool) -> 'a list -> 'a list -> 'a list +%>> +% +% Merge two lists according to the given predicate. Assuming the +% two argument lists are sorted according to the predicate, merge +% returns a sorted list containing the elements from the two +% lists. The behavior is undefined if the two argument lists were +% not sorted. +% +% +% +%20.30 Module Stack : Last-in first-out stacks. +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* +% +% +% This module implements stacks (LIFOs), with in-place modification. +% 0.5cm +%<< +% type 'a t +%>> +% +% The type of stacks containing elements of type 'a. +% +%<< +% exception Empty +%>> +% +% Raised when Stack.pop[20.30] or Stack.top[20.30] is applied to +% an empty stack. +% +%<< +% val create : unit -> 'a t +%>> +% +% Return a new stack, initially empty. +% +%<< +% val push : 'a -> 'a t -> unit +%>> +% +% push x s adds the element x at the top of stack s. +% +%<< +% val pop : 'a t -> 'a +%>> +% +% pop s removes and returns the topmost element in stack s, or +% raises Empty if the stack is empty. +% +%<< +% val top : 'a t -> 'a +%>> +% +% top s returns the topmost element in stack s, or raises Empty +% if the stack is empty. +% +%<< +% val clear : 'a t -> unit +%>> +% +% Discard all elements from a stack. +% +%<< +% val copy : 'a t -> 'a t +%>> +% +% Return a copy of the given stack. +% +%<< +% val is_empty : 'a t -> bool +%>> +% +% Return true if the given stack is empty, false otherwise. +% +%<< +% val length : 'a t -> int +%>> +% +% Return the number of elements in a stack. +% +%<< +% val iter : ('a -> unit) -> 'a t -> unit +%>> +% +% iter f s applies f in turn to all elements of s, from the +% element at the top of the stack to the element at the bottom of +% the stack. The stack itself is unchanged. +% +% +% +%20.31 Module StdLabels : Standard labeled libraries. +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* +% +% +% This meta-module provides labelized version of the Array[20.2], List[20.17] +%and String[20.33] modules. +% They only differ by their labels. Detailed interfaces can be found in +%arrayLabels.mli, listLabels.mli and stringLabels.mli. +% 0.5cm +%<< +% module Array : >> +% +% sig +% +% +% << +% val length : 'a array -> int +% >> +% +% << +% val get : 'a array -> int -> 'a +% >> +% +% << +% val set : 'a array -> int -> 'a -> unit +% >> +% +% << +% val make : int -> 'a -> 'a array +% >> +% +% << +% val create : int -> 'a -> 'a array +% >> +% +% << +% val init : int -> f:(int -> 'a) -> 'a array +% >> +% +% << +% val make_matrix : dimx:int -> dimy:int -> 'a -> 'a array array +% >> +% +% << +% val create_matrix : dimx:int -> dimy:int -> 'a -> 'a array array +% >> +% +% << +% val append : 'a array -> 'a array -> 'a array +% >> +% +% << +% val concat : 'a array list -> 'a array +% >> +% +% << +% val sub : 'a array -> pos:int -> len:int -> 'a array +% >> +% +% << +% val copy : 'a array -> 'a array +% >> +% +% << +% val fill : 'a array -> pos:int -> len:int -> 'a -> unit +% >> +% +% << +% val blit : +% src:'a array -> src_pos:int -> dst:'a array -> dst_pos:int -> len:int -> +% unit +% >> +% +% << +% val to_list : 'a array -> 'a list +% >> +% +% << +% val of_list : 'a list -> 'a array +% >> +% +% << +% val iter : f:('a -> unit) -> 'a array -> unit +% >> +% +% << +% val map : f:('a -> 'b) -> 'a array -> 'b array +% >> +% +% << +% val iteri : f:(int -> 'a -> unit) -> 'a array -> unit +% >> +% +% << +% val mapi : f:(int -> 'a -> 'b) -> 'a array -> 'b array +% >> +% +% << +% val fold_left : f:('a -> 'b -> 'a) -> init:'a -> 'b array -> 'a +% >> +% +% << +% val fold_right : f:('a -> 'b -> 'b) -> 'a array -> init:'b -> 'b +% >> +% +% << +% val sort : cmp:('a -> 'a -> int) -> 'a array -> unit +% >> +% +% << +% val stable_sort : cmp:('a -> 'a -> int) -> 'a array -> unit +% >> +% +% << +% val fast_sort : cmp:('a -> 'a -> int) -> 'a array -> unit +% >> +% +% << +% val unsafe_get : 'a array -> int -> 'a +% >> +% +% << +% val unsafe_set : 'a array -> int -> 'a -> unit +% >> +% +% - end +% +%<< +% module List : >> +% +% sig +% +% +% << +% val length : 'a list -> int +% >> +% +% << +% val hd : 'a list -> 'a +% >> +% +% << +% val tl : 'a list -> 'a list +% >> +% +% << +% val nth : 'a list -> int -> 'a +% >> +% +% << +% val rev : 'a list -> 'a list +% >> +% +% << +% val append : 'a list -> 'a list -> 'a list +% >> +% +% << +% val rev_append : 'a list -> 'a list -> 'a list +% >> +% +% << +% val concat : 'a list list -> 'a list +% >> +% +% << +% val flatten : 'a list list -> 'a list +% >> +% +% << +% val iter : f:('a -> unit) -> 'a list -> unit +% >> +% +% << +% val map : f:('a -> 'b) -> 'a list -> 'b list +% >> +% +% << +% val rev_map : f:('a -> 'b) -> 'a list -> 'b list +% >> +% +% << +% val fold_left : f:('a -> 'b -> 'a) -> init:'a -> 'b list -> 'a +% >> +% +% << +% val fold_right : f:('a -> 'b -> 'b) -> 'a list -> init:'b -> 'b +% >> +% +% << +% val iter2 : f:('a -> 'b -> unit) -> 'a list -> 'b list -> unit +% >> +% +% << +% val map2 : f:('a -> 'b -> 'c) -> 'a list -> 'b list -> 'c list +% >> +% +% << +% val rev_map2 : f:('a -> 'b -> 'c) -> 'a list -> 'b list -> 'c list +% >> +% +% << +% val fold_left2 : +% f:('a -> 'b -> 'c -> 'a) -> init:'a -> 'b list -> 'c list -> 'a +% >> +% +% << +% val fold_right2 : +% f:('a -> 'b -> 'c -> 'c) -> 'a list -> 'b list -> init:'c -> 'c +% >> +% +% << +% val for_all : f:('a -> bool) -> 'a list -> bool +% >> +% +% << +% val exists : f:('a -> bool) -> 'a list -> bool +% >> +% +% << +% val for_all2 : f:('a -> 'b -> bool) -> 'a list -> 'b list -> bool +% >> +% +% << +% val exists2 : f:('a -> 'b -> bool) -> 'a list -> 'b list -> bool +% >> +% +% << +% val mem : 'a -> set:'a list -> bool +% >> +% +% << +% val memq : 'a -> set:'a list -> bool +% >> +% +% << +% val find : f:('a -> bool) -> 'a list -> 'a +% >> +% +% << +% val filter : f:('a -> bool) -> 'a list -> 'a list +% >> +% +% << +% val find_all : f:('a -> bool) -> 'a list -> 'a list +% >> +% +% << +% val partition : f:('a -> bool) -> 'a list -> 'a list * 'a list +% >> +% +% << +% val assoc : 'a -> ('a * 'b) list -> 'b +% >> +% +% << +% val assq : 'a -> ('a * 'b) list -> 'b +% >> +% +% << +% val mem_assoc : 'a -> map:('a * 'b) list -> bool +% >> +% +% << +% val mem_assq : 'a -> map:('a * 'b) list -> bool +% >> +% +% << +% val remove_assoc : 'a -> ('a * 'b) list -> ('a * 'b) list +% >> +% +% << +% val remove_assq : 'a -> ('a * 'b) list -> ('a * 'b) list +% >> +% +% << +% val split : ('a * 'b) list -> 'a list * 'b list +% >> +% +% << +% val combine : 'a list -> 'b list -> ('a * 'b) list +% >> +% +% << +% val sort : cmp:('a -> 'a -> int) -> 'a list -> 'a list +% >> +% +% << +% val stable_sort : cmp:('a -> 'a -> int) -> 'a list -> 'a list +% >> +% +% << +% val fast_sort : cmp:('a -> 'a -> int) -> 'a list -> 'a list +% >> +% +% << +% val merge : cmp:('a -> 'a -> int) -> 'a list -> 'a list -> 'a list +% >> +% +% - end +% +%<< +% module String : >> +% +% sig +% +% +% << +% val length : string -> int +% >> +% +% << +% val get : string -> int -> char +% >> +% +% << +% val set : string -> int -> char -> unit +% >> +% +% << +% val create : int -> string +% >> +% +% << +% val make : int -> char -> string +% >> +% +% << +% val copy : string -> string +% >> +% +% << +% val sub : string -> pos:int -> len:int -> string +% >> +% +% << +% val fill : string -> pos:int -> len:int -> char -> unit +% >> +% +% << +% val blit : +% src:string -> src_pos:int -> dst:string -> dst_pos:int -> len:int -> +% unit +% >> +% +% << +% val concat : sep:string -> string list -> string +% >> +% +% << +% val iter : f:(char -> unit) -> string -> unit +% >> +% +% << +% val escaped : string -> string +% >> +% +% << +% val index : string -> char -> int +% >> +% +% << +% val rindex : string -> char -> int +% >> +% +% << +% val index_from : string -> int -> char -> int +% >> +% +% << +% val rindex_from : string -> int -> char -> int +% >> +% +% << +% val contains : string -> char -> bool +% >> +% +% << +% val contains_from : string -> int -> char -> bool +% >> +% +% << +% val rcontains_from : string -> int -> char -> bool +% >> +% +% << +% val uppercase : string -> string +% >> +% +% << +% val lowercase : string -> string +% >> +% +% << +% val capitalize : string -> string +% >> +% +% << +% val uncapitalize : string -> string +% >> +% +% << +% type t = string +% >> +% +% << +% val compare : t -> t -> int +% >> +% +% << +% val unsafe_get : string -> int -> char +% >> +% +% << +% val unsafe_set : string -> int -> char -> unit +% >> +% +% << +% val unsafe_blit : +% src:string -> src_pos:int -> dst:string -> dst_pos:int -> len:int -> +% unit +% >> +% +% << +% val unsafe_fill : string -> pos:int -> len:int -> char -> unit +% >> +% +% - end +% +% +% +%20.32 Module Stream : Streams and parsers. +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* +% +% +% 0.5cm +%<< +% type 'a t +%>> +% +% The type of streams holding values of type 'a. +% +%<< +% exception Failure +%>> +% +% Raised by parsers when none of the first components of the +% stream patterns is accepted. +% +%<< +% exception Error of string +%>> +% +% Raised by parsers when the first component of a stream pattern +% is accepted, but one of the following components is rejected. +% +% +%Stream builders +%=============== +% +% Warning: these functions create streams with fast access; it is illegal to +%mix them with streams built with [< >]; would raise Failure when accessing +%such mixed streams. +%<< +% val from : (int -> 'a option) -> 'a t +%>> +% +% Stream.from f returns a stream built from the function f. To +% create a new stream element, the function f is called with the +% current stream count. The user function f must return either +% Some for a value or None to specify the end of the +% stream. +% +%<< +% val of_list : 'a list -> 'a t +%>> +% +% Return the stream holding the elements of the list in the same +% order. +% +%<< +% val of_string : string -> char t +%>> +% +% Return the stream of the characters of the string parameter. +% +%<< +% val of_channel : Pervasives.in_channel -> char t +%>> +% +% Return the stream of the characters read from the input +% channel. +% +% +%Stream iterator +%=============== +% +%<< +% val iter : ('a -> unit) -> 'a t -> unit +%>> +% +% Stream.iter f s scans the whole stream s, applying function f +% in turn to each stream element encountered. +% +% +%Predefined parsers +%================== +% +%<< +% val next : 'a t -> 'a +%>> +% +% Return the first element of the stream and remove it from the +% stream. Raise Stream.Failure if the stream is empty. +% +%<< +% val empty : 'a t -> unit +%>> +% +% Return () if the stream is empty, else raise Stream.Failure. +% +% +%Useful functions +%================ +% +%<< +% val peek : 'a t -> 'a option +%>> +% +% Return Some of "the first element" of the stream, or None if +% the stream is empty. +% +%<< +% val junk : 'a t -> unit +%>> +% +% Remove the first element of the stream, possibly unfreezing it +% before. +% +%<< +% val count : 'a t -> int +%>> +% +% Return the current count of the stream elements, i.e. the +% number of the stream elements discarded. +% +%<< +% val npeek : int -> 'a t -> 'a list +%>> +% +% npeek n returns the list of the n first elements of the +% stream, or all its remaining elements if less than n elements +% are available. +% +% +% +%20.33 Module String : String operations. +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* +% +% +% 0.5cm +%<< +% val length : string -> int +%>> +% +% Return the length (number of characters) of the given string. +% +%<< +% val get : string -> int -> char +%>> +% +% String.get s n returns character number n in string s. The +% first character is character number 0. The last character is +% character number String.length s - 1. You can also write s.[n] +% instead of String.get s n. +% Raise Invalid_argument "index out of bounds" if n is outside +% the range 0 to (String.length s - 1). +% +%<< +% val set : string -> int -> char -> unit +%>> +% +% String.set s n c modifies string s in place, replacing the +% character number n by c. You can also write s.[n] <- c instead +% of String.set s n c. Raise Invalid_argument "index out of +% bounds" if n is outside the range 0 to (String.length s - 1). +% +%<< +% val create : int -> string +%>> +% +% String.create n returns a fresh string of length n. The string +% initially contains arbitrary characters. Raise Invalid_argument +% if n < 0 or n > Sys.max_string_length. +% +%<< +% val make : int -> char -> string +%>> +% +% String.make n c returns a fresh string of length n, filled +% with the character c. Raise Invalid_argument if n < 0 or n > +% Sys.max_string_length[20.34]. +% +%<< +% val copy : string -> string +%>> +% +% Return a copy of the given string. +% +%<< +% val sub : string -> int -> int -> string +%>> +% +% String.sub s start len returns a fresh string of length len, +% containing the characters number start to start + len - 1 of +% string s. Raise Invalid_argument if start and len do not +% designate a valid substring of s; that is, if start < 0, or len +% < 0, or start + len > String.length[20.33] s. +% +%<< +% val fill : string -> int -> int -> char -> unit +%>> +% +% String.fill s start len c modifies string s in place, +% replacing the characters number start to start + len - 1 by c. +% Raise Invalid_argument if start and len do not designate a +% valid substring of s. +% +%<< +% val blit : string -> int -> string -> int -> int -> unit +%>> +% +% String.blit src srcoff dst dstoff len copies len characters +% from string src, starting at character number srcoff, to string +% dst, starting at character number dstoff. It works correctly +% even if src and dst are the same string, and the source and +% destination chunks overlap. Raise Invalid_argument if srcoff +% and len do not designate a valid substring of src, or if dstoff +% and len do not designate a valid substring of dst. +% +%<< +% val concat : string -> string list -> string +%>> +% +% String.concat sep sl concatenates the list of strings sl, +% inserting the separator string sep between each. +% +%<< +% val iter : (char -> unit) -> string -> unit +%>> +% +% String.iter f s applies function f in turn to all the +% characters of s. It is equivalent to f s.[0]; f s.[1]; ...; f +% s.[String.length s - 1]; (). +% +%<< +% val escaped : string -> string +%>> +% +% Return a copy of the argument, with special characters +% represented by escape sequences, following the lexical +% conventions of Objective Caml. If there is no special character +% in the argument, return the original string itself, not a copy. +% +%<< +% val index : string -> char -> int +%>> +% +% String.index s c returns the position of the leftmost +% occurrence of character c in string s. Raise Not_found if c +% does not occur in s. +% +%<< +% val rindex : string -> char -> int +%>> +% +% String.rindex s c returns the position of the rightmost +% occurrence of character c in string s. Raise Not_found if c +% does not occur in s. +% +%<< +% val index_from : string -> int -> char -> int +%>> +% +% Same as String.index[20.33], but start searching at the +% character position given as second argument. String.index s c +% is equivalent to String.index_from s 0 c. +% +%<< +% val rindex_from : string -> int -> char -> int +%>> +% +% Same as String.rindex[20.33], but start searching at the +% character position given as second argument. String.rindex s c +% is equivalent to String.rindex_from s (String.length s - 1) c. +% +%<< +% val contains : string -> char -> bool +%>> +% +% String.contains s c tests if character c appears in the string +% s. +% +%<< +% val contains_from : string -> int -> char -> bool +%>> +% +% String.contains_from s start c tests if character c appears in +% the substring of s starting from start to the end of s. Raise +% Invalid_argument if start is not a valid index of s. +% +%<< +% val rcontains_from : string -> int -> char -> bool +%>> +% +% String.rcontains_from s stop c tests if character c appears in +% the substring of s starting from the beginning of s to index +% stop. Raise Invalid_argument if stop is not a valid index of s. +% +%<< +% val uppercase : string -> string +%>> +% +% Return a copy of the argument, with all lowercase letters +% translated to uppercase, including accented letters of the ISO +% Latin-1 (8859-1) character set. +% +%<< +% val lowercase : string -> string +%>> +% +% Return a copy of the argument, with all uppercase letters +% translated to lowercase, including accented letters of the ISO +% Latin-1 (8859-1) character set. +% +%<< +% val capitalize : string -> string +%>> +% +% Return a copy of the argument, with the first character set to +% uppercase. +% +%<< +% val uncapitalize : string -> string +%>> +% +% Return a copy of the argument, with the first character set to +% lowercase. +% +%<< +% type t = string +%>> +% +% An alias for the type of strings. +% +%<< +% val compare : t -> t -> int +%>> +% +% The comparison function for strings, with the same +% specification as Pervasives.compare[19.2]. Along with the type +% t, this function compare allows the module String to be passed +% as argument to the functors Set.Make[20.28] and +% Map.Make[20.18]. +% +% +% +%20.34 Module Sys : System interface. +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* +% +% +% 0.5cm +%<< +% val argv : string array +%>> +% +% The command line arguments given to the process. The first +% element is the command name used to invoke the program. The +% following elements are the command-line arguments given to the +% program. +% +%<< +% val executable_name : string +%>> +% +% The name of the file containing the executable currently +% running. +% +%<< +% val file_exists : string -> bool +%>> +% +% Test if a file with the given name exists. +% +%<< +% val remove : string -> unit +%>> +% +% Remove the given file name from the file system. +% +%<< +% val rename : string -> string -> unit +%>> +% +% Rename a file. The first argument is the old name and the +% second is the new name. If there is already another file under +% the new name, rename may replace it, or raise an exception, +% depending on your operating system. +% +%<< +% val getenv : string -> string +%>> +% +% Return the value associated to a variable in the process +% environment. Raise Not_found if the variable is unbound. +% +%<< +% val command : string -> int +%>> +% +% Execute the given shell command and return its exit code. +% +%<< +% val time : unit -> float +%>> +% +% Return the processor time, in seconds, used by the program +% since the beginning of execution. +% +%<< +% val chdir : string -> unit +%>> +% +% Change the current working directory of the process. +% +%<< +% val getcwd : unit -> string +%>> +% +% Return the current working directory of the process. +% +%<< +% val readdir : string -> string array +%>> +% +% Return the names of all files present in the given directory. +% Names denoting the current directory and the parent directory +% ("." and ".." in Unix) are not returned. Each string in the +% result is a file name rather than a complete path. There is no +% guarantee that the name strings in the resulting array will +% appear in any specific order; they are not, in particular, +% guaranteed to appear in alphabetical order. +% +%<< +% val interactive : bool Pervasives.ref +%>> +% +% This reference is initially set to false in standalone +% programs and to true if the code is being executed under the +% interactive toplevel system ocaml. +% +%<< +% val os_type : string +%>> +% +% Operating system currently executing the Caml program. One of +% +% - "Unix" (for all Unix versions, including Linux and Mac OS X), +% +% - "Win32" (for MS-Windows, OCaml compiled with MSVC++ or +% Mingw), +% - "Cygwin" (for MS-Windows, OCaml compiled with Cygwin). +% +%<< +% val word_size : int +%>> +% +% Size of one word on the machine currently executing the Caml +% program, in bits: 32 or 64. +% +%<< +% val max_string_length : int +%>> +% +% Maximum length of a string. +% +%<< +% val max_array_length : int +%>> +% +% Maximum length of a normal array. The maximum length of a float +% array is max_array_length/2 on 32'bit machines and +% max_array_length on 64'bit machines. +% +% +%Signal handling +%=============== +% +%<< +% type signal_behavior = +% | Signal_default +% | Signal_ignore +% | Signal_handle of (int -> unit) +%>> +% +% What to do when receiving a signal: +% +% - Signal_default: take the default behavior (usually: abort +% the program) +% - Signal_ignore: ignore the signal +% - Signal_handle f: call function f, giving it the signal +% number as argument. +% +% +%<< +% val signal : int -> signal_behavior -> signal_behavior +%>> +% +% Set the behavior of the system on receipt of a given signal. +% The first argument is the signal number. Return the behavior +% previously associated with the signal. If the signal number is +% invalid (or not available on your system), an Invalid_argument +% exception is raised. +% +%<< +% val set_signal : int -> signal_behavior -> unit +%>> +% +% Same as Sys.signal[20.34] but return value is ignored. +% +% +%Signal numbers for the standard POSIX signals. +%---------------------------------------------- +% +%<< +% val sigabrt : int +%>> +% +% Abnormal termination +% +%<< +% val sigalrm : int +%>> +% +% Timeout +% +%<< +% val sigfpe : int +%>> +% +% Arithmetic exception +% +%<< +% val sighup : int +%>> +% +% Hangup on controlling terminal +% +%<< +% val sigill : int +%>> +% +% Invalid hardware instruction +% +%<< +% val sigint : int +%>> +% +% Interactive interrupt (ctrl'c) +% +%<< +% val sigkill : int +%>> +% +% Termination (cannot be ignored) +% +%<< +% val sigpipe : int +%>> +% +% Broken pipe +% +%<< +% val sigquit : int +%>> +% +% Interactive termination +% +%<< +% val sigsegv : int +%>> +% +% Invalid memory reference +% +%<< +% val sigterm : int +%>> +% +% Termination +% +%<< +% val sigusr1 : int +%>> +% +% Application-defined signal 1 +% +%<< +% val sigusr2 : int +%>> +% +% Application-defined signal 2 +% +%<< +% val sigchld : int +%>> +% +% Child process terminated +% +%<< +% val sigcont : int +%>> +% +% Continue +% +%<< +% val sigstop : int +%>> +% +% Stop +% +%<< +% val sigtstp : int +%>> +% +% Interactive stop +% +%<< +% val sigttin : int +%>> +% +% Terminal read from background process +% +%<< +% val sigttou : int +%>> +% +% Terminal write from background process +% +%<< +% val sigvtalrm : int +%>> +% +% Timeout in virtual time +% +%<< +% val sigprof : int +%>> +% +% Profiling interrupt +% +%<< +% exception Break +%>> +% +% Exception raised on interactive interrupt if +% Sys.catch_break[20.34] is on. +% +%<< +% val catch_break : bool -> unit +%>> +% +% catch_break governs whether interactive interrupt (ctrl'c) +% terminates the program or raises the Break exception. Call +% catch_break true to enable raising Break, and catch_break false +% to let the system terminate the program on user interrupt. +% +%<< +% val ocaml_version : string +%>> +% +% ocaml_version is the version of Objective Caml. It is a string +% of the form "major.minor[.patchlevel][+additional-info]" Where +% major, minor, and patchlevel are integers, and additional-info +% is an arbitrary string. The [.patchlevel] and +% [+additional-info] parts may be absent. +% +% +% +%20.35 Module Weak : Arrays of weak pointers and hash tables of weak pointers. +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= +% +% +% 0.5cm +% +%Low-level functions +%=================== +% +%<< +% type 'a t +%>> +% +% The type of arrays of weak pointers (weak arrays). A weak +% pointer is a value that the garbage collector may erase at any +% time. A weak pointer is said to be full if it points to a +% value, empty if the value was erased by the GC. Note that weak +% arrays cannot be marshaled using Pervasives.output_value[19.2] +% or the functions of the Marshal[20.19] module. +% +%<< +% val create : int -> 'a t +%>> +% +% Weak.create n returns a new weak array of length n. All the +% pointers are initially empty. Raise Invalid_argument if n is +% negative or greater than Sys.max_array_length[20.34]-1. +% +%<< +% val length : 'a t -> int +%>> +% +% Weak.length ar returns the length (number of elements) of ar. +% +%<< +% val set : 'a t -> int -> 'a option -> unit +%>> +% +% Weak.set ar n (Some el) sets the nth cell of ar to be a (full) +% pointer to el; Weak.set ar n None sets the nth cell of ar to +% empty. Raise Invalid_argument "Weak.set" if n is not in the +% range 0 to Weak.length[20.35] a - 1. +% +%<< +% val get : 'a t -> int -> 'a option +%>> +% +% Weak.get ar n returns None if the nth cell of ar is empty, +% Some x (where x is the value) if it is full. Raise +% Invalid_argument "Weak.get" if n is not in the range 0 to +% Weak.length[20.35] a - 1. +% +%<< +% val get_copy : 'a t -> int -> 'a option +%>> +% +% Weak.get_copy ar n returns None if the nth cell of ar is +% empty, Some x (where x is a (shallow) copy of the value) if it +% is full. In addition to pitfalls with mutable values, the +% interesting difference with get is that get_copy does not +% prevent the incremental GC from erasing the value in its +% current cycle (get may delay the erasure to the next GC cycle). +% Raise Invalid_argument "Weak.get" if n is not in the range 0 +% to Weak.length[20.35] a - 1. +% +%<< +% val check : 'a t -> int -> bool +%>> +% +% Weak.check ar n returns true if the nth cell of ar is full, +% false if it is empty. Note that even if Weak.check ar n returns +% true, a subsequent Weak.get[20.35] ar n can return None. +% +%<< +% val fill : 'a t -> int -> int -> 'a option -> unit +%>> +% +% Weak.fill ar ofs len el sets to el all pointers of ar from ofs +% to ofs + len - 1. Raise Invalid_argument "Weak.fill" if ofs and +% len do not designate a valid subarray of a. +% +%<< +% val blit : 'a t -> int -> 'a t -> int -> int -> unit +%>> +% +% Weak.blit ar1 off1 ar2 off2 len copies len weak pointers from +% ar1 (starting at off1) to ar2 (starting at off2). It works +% correctly even if ar1 and ar2 are the same. Raise +% Invalid_argument "Weak.blit" if off1 and len do not designate a +% valid subarray of ar1, or if off2 and len do not designate a +% valid subarray of ar2. +% +% +%Weak hash tables +%================ +% +% A weak hash table is a hashed set of values. Each value may magically +%disappear from the set when it is not used by the rest of the program any +%more. This is normally used to share data structures without inducing memory +%leaks. Weak hash tables are defined on values from a Hashtbl.HashedType[20.12] +% module; the equal relation and hash function are taken from that module. We +%will say that v is an instance of x if equal x v is true. +% The equal relation must be able to work on a shallow copy of the values and +%give the same result as with the values themselves. +%<< +% module type S = >> +% +% sig +% +% +% << +% type data +% >> +% +% The type of the elements stored in the table. +% +% << +% type t +% >> +% +% The type of tables that contain elements of type data. Note +% that weak hash tables cannot be marshaled using +% Pervasives.output_value[19.2] or the functions of the +% Marshal[20.19] module. +% +% << +% val create : int -> t +% >> +% +% create n creates a new empty weak hash table, of initial +% size n. The table will grow as needed. +% +% << +% val clear : t -> unit +% >> +% +% Remove all elements from the table. +% +% << +% val merge : t -> data -> data +% >> +% +% merge t x returns an instance of x found in t if any, or +% else adds x to t and return x. +% +% << +% val add : t -> data -> unit +% >> +% +% add t x adds x to t. If there is already an instance of x +% in t, it is unspecified which one will be returned by +% subsequent calls to find and merge. +% +% << +% val remove : t -> data -> unit +% >> +% +% remove t x removes from t one instance of x. Does nothing +% if there is no instance of x in t. +% +% << +% val find : t -> data -> data +% >> +% +% find t x returns an instance of x found in t. Raise +% Not_found if there is no such element. +% +% << +% val find_all : t -> data -> data list +% >> +% +% find_all t x returns a list of all the instances of x found +% in t. +% +% << +% val mem : t -> data -> bool +% >> +% +% mem t x returns true if there is at least one instance of x +% in t, false otherwise. +% +% << +% val iter : (data -> unit) -> t -> unit +% >> +% +% iter f t calls f on each element of t, in some unspecified +% order. It is not specified what happens if f tries to change +% t itself. +% +% << +% val fold : (data -> 'a -> 'a) -> t -> 'a -> 'a +% >> +% +% fold f t init computes (f d1 (... (f dN init))) where d1 +% ... dN are the elements of t in some unspecified order. It +% is not specified what happens if f tries to change t itself. +% +% << +% val count : t -> int +% >> +% +% Count the number of elements in the table. count t gives the +% same result as fold (fun _ n -> n+1) t 0 but does not delay +% the deallocation of the dead elements. +% +% << +% val stats : t -> int * int * int * int * int * int +% >> +% +% Return statistics on the table. The numbers are, in order: +% table length, number of entries, sum of bucket lengths, +% smallest bucket length, median bucket length, biggest bucket +% length. +% +% +% - end +% +% The output signature of the functor Weak.Make[20.35]. +% +%<< +% module Make : >> +% +% functor (H : Hashtbl.HashedType) -> S with type data = H.t +% Functor building an implementation of the weak hash table +% structure. +% +% +% +% +%Chapter 21 The unix library: Unix system calls +%************************************************* +% +% The unix library makes many Unix system calls and system-related library +%functions available to Objective Caml programs. This chapter describes briefly +%the functions provided. Refer to sections 2 and 3 of the Unix manual for more +%details on the behavior of these functions. +% Not all functions are provided by all Unix variants. If some functions are +%not available, they will raise Invalid_arg when called. +% Programs that use the unix library must be linked as follows: +%<< +% ocamlc other options unix.cma other files +% ocamlopt other options unix.cmxa other files +%>> +% For interactive use of the unix library, do: +%<< +% ocamlmktop -o mytop unix.cma +% ./mytop +%>> +% or (if dynamic linking of C libraries is supported on your platform), start +%ocaml and type #load "unix.cma";;. +% Windows: +% A fairly complete emulation of the Unix system calls is +% provided in the Windows version of Objective Caml. The end of +% this chapter gives more information on the functions that are +% not supported under Windows. +% +% +% +%21.1 Module Unix : Interface to the Unix system +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= +% +% +% 0.5cm +% +%Error report +%============ +% +%<< +% type error = +% | E2BIG +%>> +% +% Argument list too long +% +%<< +% | EACCES +%>> +% +% Permission denied +% +%<< +% | EAGAIN +%>> +% +% Resource temporarily unavailable; try again +% +%<< +% | EBADF +%>> +% +% Bad file descriptor +% +%<< +% | EBUSY +%>> +% +% Resource unavailable +% +%<< +% | ECHILD +%>> +% +% No child process +% +%<< +% | EDEADLK +%>> +% +% Resource deadlock would occur +% +%<< +% | EDOM +%>> +% +% Domain error for math functions, etc. +% +%<< +% | EEXIST +%>> +% +% File exists +% +%<< +% | EFAULT +%>> +% +% Bad address +% +%<< +% | EFBIG +%>> +% +% File too large +% +%<< +% | EINTR +%>> +% +% Function interrupted by signal +% +%<< +% | EINVAL +%>> +% +% Invalid argument +% +%<< +% | EIO +%>> +% +% Hardware I/O error +% +%<< +% | EISDIR +%>> +% +% Is a directory +% +%<< +% | EMFILE +%>> +% +% Too many open files by the process +% +%<< +% | EMLINK +%>> +% +% Too many links +% +%<< +% | ENAMETOOLONG +%>> +% +% Filename too long +% +%<< +% | ENFILE +%>> +% +% Too many open files in the system +% +%<< +% | ENODEV +%>> +% +% No such device +% +%<< +% | ENOENT +%>> +% +% No such file or directory +% +%<< +% | ENOEXEC +%>> +% +% Not an executable file +% +%<< +% | ENOLCK +%>> +% +% No locks available +% +%<< +% | ENOMEM +%>> +% +% Not enough memory +% +%<< +% | ENOSPC +%>> +% +% No space left on device +% +%<< +% | ENOSYS +%>> +% +% Function not supported +% +%<< +% | ENOTDIR +%>> +% +% Not a directory +% +%<< +% | ENOTEMPTY +%>> +% +% Directory not empty +% +%<< +% | ENOTTY +%>> +% +% Inappropriate I/O control operation +% +%<< +% | ENXIO +%>> +% +% No such device or address +% +%<< +% | EPERM +%>> +% +% Operation not permitted +% +%<< +% | EPIPE +%>> +% +% Broken pipe +% +%<< +% | ERANGE +%>> +% +% Result too large +% +%<< +% | EROFS +%>> +% +% Read-only file system +% +%<< +% | ESPIPE +%>> +% +% Invalid seek e.g. on a pipe +% +%<< +% | ESRCH +%>> +% +% No such process +% +%<< +% | EXDEV +%>> +% +% Invalid link +% +%<< +% | EWOULDBLOCK +%>> +% +% Operation would block +% +%<< +% | EINPROGRESS +%>> +% +% Operation now in progress +% +%<< +% | EALREADY +%>> +% +% Operation already in progress +% +%<< +% | ENOTSOCK +%>> +% +% Socket operation on non-socket +% +%<< +% | EDESTADDRREQ +%>> +% +% Destination address required +% +%<< +% | EMSGSIZE +%>> +% +% Message too long +% +%<< +% | EPROTOTYPE +%>> +% +% Protocol wrong type for socket +% +%<< +% | ENOPROTOOPT +%>> +% +% Protocol not available +% +%<< +% | EPROTONOSUPPORT +%>> +% +% Protocol not supported +% +%<< +% | ESOCKTNOSUPPORT +%>> +% +% Socket type not supported +% +%<< +% | EOPNOTSUPP +%>> +% +% Operation not supported on socket +% +%<< +% | EPFNOSUPPORT +%>> +% +% Protocol family not supported +% +%<< +% | EAFNOSUPPORT +%>> +% +% Address family not supported by protocol family +% +%<< +% | EADDRINUSE +%>> +% +% Address already in use +% +%<< +% | EADDRNOTAVAIL +%>> +% +% Can-t assign requested address +% +%<< +% | ENETDOWN +%>> +% +% Network is down +% +%<< +% | ENETUNREACH +%>> +% +% Network is unreachable +% +%<< +% | ENETRESET +%>> +% +% Network dropped connection on reset +% +%<< +% | ECONNABORTED +%>> +% +% Software caused connection abort +% +%<< +% | ECONNRESET +%>> +% +% Connection reset by peer +% +%<< +% | ENOBUFS +%>> +% +% No buffer space available +% +%<< +% | EISCONN +%>> +% +% Socket is already connected +% +%<< +% | ENOTCONN +%>> +% +% Socket is not connected +% +%<< +% | ESHUTDOWN +%>> +% +% Can-t send after socket shutdown +% +%<< +% | ETOOMANYREFS +%>> +% +% Too many references: can-t splice +% +%<< +% | ETIMEDOUT +%>> +% +% Connection timed out +% +%<< +% | ECONNREFUSED +%>> +% +% Connection refused +% +%<< +% | EHOSTDOWN +%>> +% +% Host is down +% +%<< +% | EHOSTUNREACH +%>> +% +% No route to host +% +%<< +% | ELOOP +%>> +% +% Too many levels of symbolic links +% +%<< +% | EOVERFLOW +%>> +% +% File size or position not representable +% +%<< +% | EUNKNOWNERR of int +%>> +% +% Unknown error +% +% The type of error codes. Errors defined in the POSIX standard +% and additional errors from UNIX98 and BSD. All other errors +% are mapped to EUNKNOWNERR. +% +%<< +% exception Unix_error of error * string * string +%>> +% +% Raised by the system calls below when an error is encountered. +% The first component is the error code; the second component is +% the function name; the third component is the string parameter +% to the function, if it has one, or the empty string otherwise. +% +%<< +% val error_message : error -> string +%>> +% +% Return a string describing the given error code. +% +%<< +% val handle_unix_error : ('a -> 'b) -> 'a -> 'b +%>> +% +% handle_unix_error f x applies f to x and returns the result. +% If the exception Unix_error is raised, it prints a message +% describing the error and exits with code 2. +% +% +%Access to the process environment +%================================= +% +%<< +% val environment : unit -> string array +%>> +% +% Return the process environment, as an array of strings with +% the format --variable=value--. +% +%<< +% val getenv : string -> string +%>> +% +% Return the value associated to a variable in the process +% environment. Raise Not_found if the variable is unbound. (This +% function is identical to Sys.getenv.) +% +%<< +% val putenv : string -> string -> unit +%>> +% +% Unix.putenv name value sets the value associated to a variable +% in the process environment. name is the name of the environment +% variable, and value its new associated value. +% +% +%Process handling +%================ +% +%<< +% type process_status = +% | WEXITED of int +%>> +% +% The process terminated normally by exit; the argument is the +% return code. +% +%<< +% | WSIGNALED of int +%>> +% +% The process was killed by a signal; the argument is the signal +% number. +% +%<< +% | WSTOPPED of int +%>> +% +% The process was stopped by a signal; the argument is the +% signal number. +% +% The termination status of a process. +% +%<< +% type wait_flag = +% | WNOHANG +%>> +% +% do not block if no child has died yet, but immediately return +% with a pid equal to 0. +% +%<< +% | WUNTRACED +%>> +% +% report also the children that receive stop signals. +% +% Flags for Unix.waitpid[21.1]. +% +%<< +% val execv : string -> string array -> 'a +%>> +% +% execv prog args execute the program in file prog, with the +% arguments args, and the current process environment. These +% execv* functions never return: on success, the current program +% is replaced by the new one; on failure, a +% Unix.Unix_error[21.1] exception is raised. +% +%<< +% val execve : string -> string array -> string array -> 'a +%>> +% +% Same as Unix.execv[21.1], except that the third argument +% provides the environment to the program executed. +% +%<< +% val execvp : string -> string array -> 'a +%>> +% +% Same as Unix.execv[21.1] respectively, except that the program +% is searched in the path. +% +%<< +% val execvpe : string -> string array -> string array -> 'a +%>> +% +% Same as Unix.execvp[21.1] respectively, except that the +% program is searched in the path. +% +%<< +% val fork : unit -> int +%>> +% +% Fork a new process. The returned integer is 0 for the child +% process, the pid of the child process for the parent process. +% +%<< +% val wait : unit -> int * process_status +%>> +% +% Wait until one of the children processes die, and return its +% pid and termination status. +% +%<< +% val waitpid : wait_flag list -> int -> int * process_status +%>> +% +% Same as Unix.wait[21.1], but waits for the child process whose +% pid is given. A pid of -1 means wait for any child. A pid of 0 +% means wait for any child in the same process group as the +% current process. Negative pid arguments represent process +% groups. The list of options indicates whether waitpid should +% return immediately without waiting, or also report stopped +% children. +% +%<< +% val system : string -> process_status +%>> +% +% Execute the given command, wait until it terminates, and return +% its termination status. The string is interpreted by the shell +% /bin/sh and therefore can contain redirections, quotes, +% variables, etc. The result WEXITED 127 indicates that the shell +% couldn-t be executed. +% +%<< +% val getpid : unit -> int +%>> +% +% Return the pid of the process. +% +%<< +% val getppid : unit -> int +%>> +% +% Return the pid of the parent process. +% +%<< +% val nice : int -> int +%>> +% +% Change the process priority. The integer argument is added to +% the --nice-- value. (Higher values of the --nice-- value mean +% lower priorities.) Return the new nice value. +% +% +%Basic file input/output +%======================= +% +%<< +% type file_descr +%>> +% +% The abstract type of file descriptors. +% +%<< +% val stdin : file_descr +%>> +% +% File descriptor for standard input. +% +%<< +% val stdout : file_descr +%>> +% +% File descriptor for standard output. +% +%<< +% val stderr : file_descr +%>> +% +% File descriptor for standard error. +% +%<< +% type open_flag = +% | O_RDONLY +%>> +% +% Open for reading +% +%<< +% | O_WRONLY +%>> +% +% Open for writing +% +%<< +% | O_RDWR +%>> +% +% Open for reading and writing +% +%<< +% | O_NONBLOCK +%>> +% +% Open in non'blocking mode +% +%<< +% | O_APPEND +%>> +% +% Open for append +% +%<< +% | O_CREAT +%>> +% +% Create if nonexistent +% +%<< +% | O_TRUNC +%>> +% +% Truncate to 0 length if existing +% +%<< +% | O_EXCL +%>> +% +% Fail if existing +% +%<< +% | O_NOCTTY +%>> +% +% Don-t make this dev a controlling tty +% +%<< +% | O_DSYNC +%>> +% +% Writes complete as -Synchronised I/O data integrity completion- +% +% +%<< +% | O_SYNC +%>> +% +% Writes complete as -Synchronised I/O file integrity completion- +% +% +%<< +% | O_RSYNC +%>> +% +% Reads complete as writes (depending on O_SYNC/O_DSYNC) +% +% The flags to Unix.openfile[21.1]. +% +%<< +% type file_perm = int +%>> +% +% The type of file access rights, e.g. 0o640 is read and write +% for user, read for group, none for others +% +%<< +% val openfile : string -> open_flag list -> file_perm -> file_descr +%>> +% +% Open the named file with the given flags. Third argument is +% the permissions to give to the file if it is created. Return a +% file descriptor on the named file. +% +%<< +% val close : file_descr -> unit +%>> +% +% Close a file descriptor. +% +%<< +% val read : file_descr -> string -> int -> int -> int +%>> +% +% read fd buff ofs len reads len characters from descriptor fd, +% storing them in string buff, starting at position ofs in string +% buff. Return the number of characters actually read. +% +%<< +% val write : file_descr -> string -> int -> int -> int +%>> +% +% write fd buff ofs len writes len characters to descriptor fd, +% taking them from string buff, starting at position ofs in +% string buff. Return the number of characters actually written. +% write repeats the writing operation until all characters have +% been written or an error occurs. +% +%<< +% val single_write : file_descr -> string -> int -> int -> int +%>> +% +% Same as write, but attempts to write only once. Thus, if an +% error occurs, single_write guarantees that no data has been +% written. +% +% +%Interfacing with the standard input/output library +%================================================== +% +%<< +% val in_channel_of_descr : file_descr -> Pervasives.in_channel +%>> +% +% Create an input channel reading from the given descriptor. The +% channel is initially in binary mode; use set_binary_mode_in ic +% false if text mode is desired. +% +%<< +% val out_channel_of_descr : file_descr -> Pervasives.out_channel +%>> +% +% Create an output channel writing on the given descriptor. The +% channel is initially in binary mode; use set_binary_mode_out oc +% false if text mode is desired. +% +%<< +% val descr_of_in_channel : Pervasives.in_channel -> file_descr +%>> +% +% Return the descriptor corresponding to an input channel. +% +%<< +% val descr_of_out_channel : Pervasives.out_channel -> file_descr +%>> +% +% Return the descriptor corresponding to an output channel. +% +% +%Seeking and truncating +%====================== +% +%<< +% type seek_command = +% | SEEK_SET +%>> +% +% indicates positions relative to the beginning of the file +% +%<< +% | SEEK_CUR +%>> +% +% indicates positions relative to the current position +% +%<< +% | SEEK_END +%>> +% +% indicates positions relative to the end of the file +% +% Positioning modes for Unix.lseek[21.1]. +% +%<< +% val lseek : file_descr -> int -> seek_command -> int +%>> +% +% Set the current position for a file descriptor +% +%<< +% val truncate : string -> int -> unit +%>> +% +% Truncates the named file to the given size. +% +%<< +% val ftruncate : file_descr -> int -> unit +%>> +% +% Truncates the file corresponding to the given descriptor to +% the given size. +% +% +%File statistics +%=============== +% +%<< +% type file_kind = +% | S_REG +%>> +% +% Regular file +% +%<< +% | S_DIR +%>> +% +% Directory +% +%<< +% | S_CHR +%>> +% +% Character device +% +%<< +% | S_BLK +%>> +% +% Block device +% +%<< +% | S_LNK +%>> +% +% Symbolic link +% +%<< +% | S_FIFO +%>> +% +% Named pipe +% +%<< +% | S_SOCK +%>> +% +% Socket +% +%<< +% type stats = { +% st_dev : int ; +%>> +% +% Device number +% +%<< +% st_ino : int ; +%>> +% +% Inode number +% +%<< +% st_kind : file_kind ; +%>> +% +% Kind of the file +% +%<< +% st_perm : file_perm ; +%>> +% +% Access rights +% +%<< +% st_nlink : int ; +%>> +% +% Number of links +% +%<< +% st_uid : int ; +%>> +% +% User id of the owner +% +%<< +% st_gid : int ; +%>> +% +% Group ID of the file-s group +% +%<< +% st_rdev : int ; +%>> +% +% Device minor number +% +%<< +% st_size : int ; +%>> +% +% Size in bytes +% +%<< +% st_atime : float ; +%>> +% +% Last access time +% +%<< +% st_mtime : float ; +%>> +% +% Last modification time +% +%<< +% st_ctime : float ; +%>> +% +% Last status change time +% +%<< +% } +%>> +% +% The informations returned by the Unix.stat[21.1] calls. +% +%<< +% val stat : string -> stats +%>> +% +% Return the informations for the named file. +% +%<< +% val lstat : string -> stats +%>> +% +% Same as Unix.stat[21.1], but in case the file is a symbolic +% link, return the informations for the link itself. +% +%<< +% val fstat : file_descr -> stats +%>> +% +% Return the informations for the file associated with the given +% descriptor. +% +% +%File operations on large files +%============================== +% +%<< +% module LargeFile : >> +% +% sig +% +% +% << +% val lseek : Unix.file_descr -> int64 -> Unix.seek_command -> int64 +% >> +% +% << +% val truncate : string -> int64 -> unit +% >> +% +% << +% val ftruncate : Unix.file_descr -> int64 -> unit +% >> +% +% << +% type stats = { +% st_dev : int ; +% >> +% +% Device number +% +% << +% st_ino : int ; +% >> +% +% Inode number +% +% << +% st_kind : Unix.file_kind ; +% >> +% +% Kind of the file +% +% << +% st_perm : Unix.file_perm ; +% >> +% +% Access rights +% +% << +% st_nlink : int ; +% >> +% +% Number of links +% +% << +% st_uid : int ; +% >> +% +% User id of the owner +% +% << +% st_gid : int ; +% >> +% +% Group ID of the file-s group +% +% << +% st_rdev : int ; +% >> +% +% Device minor number +% +% << +% st_size : int64 ; +% >> +% +% Size in bytes +% +% << +% st_atime : float ; +% >> +% +% Last access time +% +% << +% st_mtime : float ; +% >> +% +% Last modification time +% +% << +% st_ctime : float ; +% >> +% +% Last status change time +% +% << +% } +% >> +% +% << +% val stat : string -> stats +% >> +% +% << +% val lstat : string -> stats +% >> +% +% << +% val fstat : Unix.file_descr -> stats +% >> +% +% - end +% +% File operations on large files. This sub-module provides +% 64'bit variants of the functions Unix.lseek[21.1] (for +% positioning a file descriptor), Unix.truncate[21.1] and +% Unix.ftruncate[21.1] (for changing the size of a file), and +% Unix.stat[21.1], Unix.lstat[21.1] and Unix.fstat[21.1] (for +% obtaining information on files). These alternate functions +% represent positions and sizes by 64'bit integers (type int64) +% instead of regular integers (type int), thus allowing operating +% on files whose sizes are greater than max_int. +% +% +%Operations on file names +%======================== +% +%<< +% val unlink : string -> unit +%>> +% +% Removes the named file +% +%<< +% val rename : string -> string -> unit +%>> +% +% rename old new changes the name of a file from old to new. +% +%<< +% val link : string -> string -> unit +%>> +% +% link source dest creates a hard link named dest to the file +% named source. +% +% +%File permissions and ownership +%============================== +% +%<< +% type access_permission = +% | R_OK +%>> +% +% Read permission +% +%<< +% | W_OK +%>> +% +% Write permission +% +%<< +% | X_OK +%>> +% +% Execution permission +% +%<< +% | F_OK +%>> +% +% File exists +% +% Flags for the Unix.access[21.1] call. +% +%<< +% val chmod : string -> file_perm -> unit +%>> +% +% Change the permissions of the named file. +% +%<< +% val fchmod : file_descr -> file_perm -> unit +%>> +% +% Change the permissions of an opened file. +% +%<< +% val chown : string -> int -> int -> unit +%>> +% +% Change the owner uid and owner gid of the named file. +% +%<< +% val fchown : file_descr -> int -> int -> unit +%>> +% +% Change the owner uid and owner gid of an opened file. +% +%<< +% val umask : int -> int +%>> +% +% Set the process-s file mode creation mask, and return the +% previous mask. +% +%<< +% val access : string -> access_permission list -> unit +%>> +% +% Check that the process has the given permissions over the named +% file. Raise Unix_error otherwise. +% +% +%Operations on file descriptors +%============================== +% +%<< +% val dup : file_descr -> file_descr +%>> +% +% Return a new file descriptor referencing the same file as the +% given descriptor. +% +%<< +% val dup2 : file_descr -> file_descr -> unit +%>> +% +% dup2 fd1 fd2 duplicates fd1 to fd2, closing fd2 if already +% opened. +% +%<< +% val set_nonblock : file_descr -> unit +%>> +% +% Set the --non'blocking-- flag on the given descriptor. When +% the non'blocking flag is set, reading on a descriptor on which +% there is temporarily no data available raises the EAGAIN or +% EWOULDBLOCK error instead of blocking; writing on a descriptor +% on which there is temporarily no room for writing also raises +% EAGAIN or EWOULDBLOCK. +% +%<< +% val clear_nonblock : file_descr -> unit +%>> +% +% Clear the --non'blocking-- flag on the given descriptor. See +% Unix.set_nonblock[21.1]. +% +%<< +% val set_close_on_exec : file_descr -> unit +%>> +% +% Set the -'close-on-exec-- flag on the given descriptor. A +% descriptor with the close-on-exec flag is automatically closed +% when the current process starts another program with one of the +% exec functions. +% +%<< +% val clear_close_on_exec : file_descr -> unit +%>> +% +% Clear the -'close-on-exec-- flag on the given descriptor. See +% Unix.set_close_on_exec[21.1]. +% +% +%Directories +%=========== +% +%<< +% val mkdir : string -> file_perm -> unit +%>> +% +% Create a directory with the given permissions. +% +%<< +% val rmdir : string -> unit +%>> +% +% Remove an empty directory. +% +%<< +% val chdir : string -> unit +%>> +% +% Change the process working directory. +% +%<< +% val getcwd : unit -> string +%>> +% +% Return the name of the current working directory. +% +%<< +% val chroot : string -> unit +%>> +% +% Change the process root directory. +% +%<< +% type dir_handle +%>> +% +% The type of descriptors over opened directories. +% +%<< +% val opendir : string -> dir_handle +%>> +% +% Open a descriptor on a directory +% +%<< +% val readdir : dir_handle -> string +%>> +% +% Return the next entry in a directory. +% Raises End_of_file when the end of the directory has been +% reached. +% +%<< +% val rewinddir : dir_handle -> unit +%>> +% +% Reposition the descriptor to the beginning of the directory +% +%<< +% val closedir : dir_handle -> unit +%>> +% +% Close a directory descriptor. +% +% +%Pipes and redirections +%====================== +% +%<< +% val pipe : unit -> file_descr * file_descr +%>> +% +% Create a pipe. The first component of the result is opened for +% reading, that-s the exit to the pipe. The second component is +% opened for writing, that-s the entrance to the pipe. +% +%<< +% val mkfifo : string -> file_perm -> unit +%>> +% +% Create a named pipe with the given permissions. +% +% +%High-level process and redirection management +%============================================= +% +%<< +% val create_process : +% string -> +% string array -> file_descr -> file_descr -> file_descr -> int +%>> +% +% create_process prog args new_stdin new_stdout new_stderr forks +% a new process that executes the program in file prog, with +% arguments args. The pid of the new process is returned +% immediately; the new process executes concurrently with the +% current process. The standard input and outputs of the new +% process are connected to the descriptors new_stdin, new_stdout +% and new_stderr. Passing e.g. stdout for new_stdout prevents the +% redirection and causes the new process to have the same +% standard output as the current process. The executable file +% prog is searched in the path. The new process has the same +% environment as the current process. +% +%<< +% val create_process_env : +% string -> +% string array -> +% string array -> file_descr -> file_descr -> file_descr -> int +%>> +% +% create_process_env prog args env new_stdin new_stdout +% new_stderr works as Unix.create_process[21.1], except that the +% extra argument env specifies the environment passed to the +% program. +% +%<< +% val open_process_in : string -> Pervasives.in_channel +%>> +% +% High-level pipe and process management. This function runs the +% given command in parallel with the program. The standard output +% of the command is redirected to a pipe, which can be read via +% the returned input channel. The command is interpreted by the +% shell /bin/sh (cf. system). +% +%<< +% val open_process_out : string -> Pervasives.out_channel +%>> +% +% Same as Unix.open_process_in[21.1], but redirect the standard +% input of the command to a pipe. Data written to the returned +% output channel is sent to the standard input of the command. +% Warning: writes on output channels are buffered, hence be +% careful to call Pervasives.flush[19.2] at the right times to +% ensure correct synchronization. +% +%<< +% val open_process : string -> Pervasives.in_channel * Pervasives.out_channel +%>> +% +% Same as Unix.open_process_out[21.1], but redirects both the +% standard input and standard output of the command to pipes +% connected to the two returned channels. The input channel is +% connected to the output of the command, and the output channel +% to the input of the command. +% +%<< +% val open_process_full : +% string -> +% string array -> +% Pervasives.in_channel * Pervasives.out_channel * Pervasives.in_channel +%>> +% +% Similar to Unix.open_process[21.1], but the second argument +% specifies the environment passed to the command. The result is +% a triple of channels connected respectively to the standard +% output, standard input, and standard error of the command. +% +%<< +% val close_process_in : Pervasives.in_channel -> process_status +%>> +% +% Close channels opened by Unix.open_process_in[21.1], wait for +% the associated command to terminate, and return its termination +% status. +% +%<< +% val close_process_out : Pervasives.out_channel -> process_status +%>> +% +% Close channels opened by Unix.open_process_out[21.1], wait +% for the associated command to terminate, and return its +% termination status. +% +%<< +% val close_process : +% Pervasives.in_channel * Pervasives.out_channel -> process_status +%>> +% +% Close channels opened by Unix.open_process[21.1], wait for +% the associated command to terminate, and return its termination +% status. +% +%<< +% val close_process_full : +% Pervasives.in_channel * Pervasives.out_channel * Pervasives.in_channel -> +% process_status +%>> +% +% Close channels opened by Unix.open_process_full[21.1], wait +% for the associated command to terminate, and return its +% termination status. +% +% +%Symbolic links +%============== +% +%<< +% val symlink : string -> string -> unit +%>> +% +% symlink source dest creates the file dest as a symbolic link +% to the file source. +% +%<< +% val readlink : string -> string +%>> +% +% Read the contents of a link. +% +% +%Polling +%======= +% +%<< +% val select : +% file_descr list -> +% file_descr list -> +% file_descr list -> +% float -> file_descr list * file_descr list * file_descr list +%>> +% +% Wait until some input/output operations become possible on +% some channels. The three list arguments are, respectively, a set +% of descriptors to check for reading (first argument), for +% writing (second argument), or for exceptional conditions (third +% argument). The fourth argument is the maximal timeout, in +% seconds; a negative fourth argument means no timeout (unbounded +% wait). The result is composed of three sets of descriptors: +% those ready for reading (first component), ready for writing +% (second component), and over which an exceptional condition is +% pending (third component). +% +% +%Locking +%======= +% +%<< +% type lock_command = +% | F_ULOCK +%>> +% +% Unlock a region +% +%<< +% | F_LOCK +%>> +% +% Lock a region for writing, and block if already locked +% +%<< +% | F_TLOCK +%>> +% +% Lock a region for writing, or fail if already locked +% +%<< +% | F_TEST +%>> +% +% Test a region for other process locks +% +%<< +% | F_RLOCK +%>> +% +% Lock a region for reading, and block if already locked +% +%<< +% | F_TRLOCK +%>> +% +% Lock a region for reading, or fail if already locked +% +% Commands for Unix.lockf[21.1]. +% +%<< +% val lockf : file_descr -> lock_command -> int -> unit +%>> +% +% lockf fd cmd size puts a lock on a region of the file opened +% as fd. The region starts at the current read/write position for +% fd (as set by Unix.lseek[21.1]), and extends size bytes forward +% if size is positive, size bytes backwards if size is negative, +% or to the end of the file if size is zero. A write lock +% prevents any other process from acquiring a read or write lock +% on the region. A read lock prevents any other process from +% acquiring a write lock on the region, but lets other processes +% acquire read locks on it. +% The F_LOCK and F_TLOCK commands attempts to put a write lock on +% the specified region. The F_RLOCK and F_TRLOCK commands +% attempts to put a read lock on the specified region. If one or +% several locks put by another process prevent the current process +% from acquiring the lock, F_LOCK and F_RLOCK block until these +% locks are removed, while F_TLOCK and F_TRLOCK fail immediately +% with an exception. The F_ULOCK removes whatever locks the +% current process has on the specified region. Finally, the +% F_TEST command tests whether a write lock can be acquired on +% the specified region, without actually putting a lock. It +% returns immediately if successful, or fails otherwise. +% +% +%Signals +%======= +% +% Note: installation of signal handlers is performed via the functions +%Sys.signal[20.34] and Sys.set_signal[20.34]. +%<< +% val kill : int -> int -> unit +%>> +% +% kill pid sig sends signal number sig to the process with id +% pid. +% +%<< +% type sigprocmask_command = +% | SIG_SETMASK +% | SIG_BLOCK +% | SIG_UNBLOCK +%>> +% +%<< +% val sigprocmask : sigprocmask_command -> int list -> int list +%>> +% +% sigprocmask cmd sigs changes the set of blocked signals. If +% cmd is SIG_SETMASK, blocked signals are set to those in the +% list sigs. If cmd is SIG_BLOCK, the signals in sigs are added +% to the set of blocked signals. If cmd is SIG_UNBLOCK, the +% signals in sigs are removed from the set of blocked signals. +% sigprocmask returns the set of previously blocked signals. +% +%<< +% val sigpending : unit -> int list +%>> +% +% Return the set of blocked signals that are currently pending. +% +%<< +% val sigsuspend : int list -> unit +%>> +% +% sigsuspend sigs atomically sets the blocked signals to sigs +% and waits for a non-ignored, non'blocked signal to be delivered. +% On return, the blocked signals are reset to their initial +% value. +% +%<< +% val pause : unit -> unit +%>> +% +% Wait until a non-ignored, non'blocked signal is delivered. +% +% +%Time functions +%============== +% +%<< +% type process_times = { +% tms_utime : float ; +%>> +% +% User time for the process +% +%<< +% tms_stime : float ; +%>> +% +% System time for the process +% +%<< +% tms_cutime : float ; +%>> +% +% User time for the children processes +% +%<< +% tms_cstime : float ; +%>> +% +% System time for the children processes +% +%<< +% } +%>> +% +% The execution times (CPU times) of a process. +% +%<< +% type tm = { +% tm_sec : int ; +%>> +% +% Seconds 0..60 +% +%<< +% tm_min : int ; +%>> +% +% Minutes 0..59 +% +%<< +% tm_hour : int ; +%>> +% +% Hours 0..23 +% +%<< +% tm_mday : int ; +%>> +% +% Day of month 1..31 +% +%<< +% tm_mon : int ; +%>> +% +% Month of year 0..11 +% +%<< +% tm_year : int ; +%>> +% +% Year - 1900 +% +%<< +% tm_wday : int ; +%>> +% +% Day of week (Sunday is 0) +% +%<< +% tm_yday : int ; +%>> +% +% Day of year 0..365 +% +%<< +% tm_isdst : bool ; +%>> +% +% Daylight time savings in effect +% +%<< +% } +%>> +% +% The type representing wallclock time and calendar date. +% +%<< +% val time : unit -> float +%>> +% +% Return the current time since 00:00:00 GMT, Jan. 1, 1970, in +% seconds. +% +%<< +% val gettimeofday : unit -> float +%>> +% +% Same as Unix.time[21.1], but with resolution better than 1 +% second. +% +%<< +% val gmtime : float -> tm +%>> +% +% Convert a time in seconds, as returned by Unix.time[21.1], into +% a date and a time. Assumes UTC (Coordinated Universal Time), +% also known as GMT. +% +%<< +% val localtime : float -> tm +%>> +% +% Convert a time in seconds, as returned by Unix.time[21.1], into +% a date and a time. Assumes the local time zone. +% +%<< +% val mktime : tm -> float * tm +%>> +% +% Convert a date and time, specified by the tm argument, into a +% time in seconds, as returned by Unix.time[21.1]. The tm_isdst, +% tm_wday and tm_yday fields of tm are ignored. Also return a +% normalized copy of the given tm record, with the tm_wday, +% tm_yday, and tm_isdst fields recomputed from the other fields, +% and the other fields normalized (so that, e.g., 40 October is +% changed into 9 November). The tm argument is interpreted in the +% local time zone. +% +%<< +% val alarm : int -> int +%>> +% +% Schedule a SIGALRM signal after the given number of seconds. +% +%<< +% val sleep : int -> unit +%>> +% +% Stop execution for the given number of seconds. +% +%<< +% val times : unit -> process_times +%>> +% +% Return the execution times of the process. +% +%<< +% val utimes : string -> float -> float -> unit +%>> +% +% Set the last access time (second arg) and last modification +% time (third arg) for a file. Times are expressed in seconds +% from 00:00:00 GMT, Jan. 1, 1970. +% +%<< +% type interval_timer = +% | ITIMER_REAL +%>> +% +% decrements in real time, and sends the signal SIGALRM when +% expired. +% +%<< +% | ITIMER_VIRTUAL +%>> +% +% decrements in process virtual time, and sends SIGVTALRM when +% expired. +% +%<< +% | ITIMER_PROF +%>> +% +% (for profiling) decrements both when the process is running +% and when the system is running on behalf of the process; it +% sends SIGPROF when expired. +% +% The three kinds of interval timers. +% +%<< +% type interval_timer_status = { +% it_interval : float ; +%>> +% +% Period +% +%<< +% it_value : float ; +%>> +% +% Current value of the timer +% +%<< +% } +%>> +% +% The type describing the status of an interval timer +% +%<< +% val getitimer : interval_timer -> interval_timer_status +%>> +% +% Return the current status of the given interval timer. +% +%<< +% val setitimer : +% interval_timer -> +% interval_timer_status -> interval_timer_status +%>> +% +% setitimer t s sets the interval timer t and returns its +% previous status. The s argument is interpreted as follows: +% s.it_value, if nonzero, is the time to the next timer +% expiration; s.it_interval, if nonzero, specifies a value to be +% used in reloading it_value when the timer expires. Setting +% s.it_value to zero disable the timer. Setting s.it_interval to +% zero causes the timer to be disabled after its next expiration. +% +% +%User id, group id +%================= +% +%<< +% val getuid : unit -> int +%>> +% +% Return the user id of the user executing the process. +% +%<< +% val geteuid : unit -> int +%>> +% +% Return the effective user id under which the process runs. +% +%<< +% val setuid : int -> unit +%>> +% +% Set the real user id and effective user id for the process. +% +%<< +% val getgid : unit -> int +%>> +% +% Return the group id of the user executing the process. +% +%<< +% val getegid : unit -> int +%>> +% +% Return the effective group id under which the process runs. +% +%<< +% val setgid : int -> unit +%>> +% +% Set the real group id and effective group id for the process. +% +%<< +% val getgroups : unit -> int array +%>> +% +% Return the list of groups to which the user executing the +% process belongs. +% +%<< +% type passwd_entry = { +% pw_name : string ; +% pw_passwd : string ; +% pw_uid : int ; +% pw_gid : int ; +% pw_gecos : string ; +% pw_dir : string ; +% pw_shell : string ; +% } +%>> +% +% Structure of entries in the passwd database. +% +%<< +% type group_entry = { +% gr_name : string ; +% gr_passwd : string ; +% gr_gid : int ; +% gr_mem : string array ; +% } +%>> +% +% Structure of entries in the groups database. +% +%<< +% val getlogin : unit -> string +%>> +% +% Return the login name of the user executing the process. +% +%<< +% val getpwnam : string -> passwd_entry +%>> +% +% Find an entry in passwd with the given name, or raise +% Not_found. +% +%<< +% val getgrnam : string -> group_entry +%>> +% +% Find an entry in group with the given name, or raise +% Not_found. +% +%<< +% val getpwuid : int -> passwd_entry +%>> +% +% Find an entry in passwd with the given user id, or raise +% Not_found. +% +%<< +% val getgrgid : int -> group_entry +%>> +% +% Find an entry in group with the given group id, or raise +% Not_found. +% +% +%Internet addresses +%================== +% +%<< +% type inet_addr +%>> +% +% The abstract type of Internet addresses. +% +%<< +% val inet_addr_of_string : string -> inet_addr +%>> +% +% Conversion from the printable representation of an Internet +% address to its internal representation. The argument string +% consists of 4 numbers separated by periods (XXX.YYY.ZZZ.TTT) +% for IPv4 addresses, and up to 8 numbers separated by colons for +% IPv6 addresses. Raise Failure when given a string that does not +% match these formats. +% +%<< +% val string_of_inet_addr : inet_addr -> string +%>> +% +% Return the printable representation of the given Internet +% address. See Unix.inet_addr_of_string[21.1] for a description +% of the printable representation. +% +%<< +% val inet_addr_any : inet_addr +%>> +% +% A special IPv4 address, for use only with bind, representing +% all the Internet addresses that the host machine possesses. +% +%<< +% val inet_addr_loopback : inet_addr +%>> +% +% A special IPv4 address representing the host machine +% (127.0.0.1). +% +%<< +% val inet6_addr_any : inet_addr +%>> +% +% A special IPv6 address, for use only with bind, representing +% all the Internet addresses that the host machine possesses. +% +%<< +% val inet6_addr_loopback : inet_addr +%>> +% +% A special IPv6 address representing the host machine (::1). +% +% +%Sockets +%======= +% +%<< +% type socket_domain = +% | PF_UNIX +%>> +% +% Unix domain +% +%<< +% | PF_INET +%>> +% +% Internet domain (IPv4) +% +%<< +% | PF_INET6 +%>> +% +% Internet domain (IPv6) +% +% The type of socket domains. +% +%<< +% type socket_type = +% | SOCK_STREAM +%>> +% +% Stream socket +% +%<< +% | SOCK_DGRAM +%>> +% +% Datagram socket +% +%<< +% | SOCK_RAW +%>> +% +% Raw socket +% +%<< +% | SOCK_SEQPACKET +%>> +% +% Sequenced packets socket +% +% The type of socket kinds, specifying the semantics of +% communications. +% +%<< +% type sockaddr = +% | ADDR_UNIX of string +% | ADDR_INET of inet_addr * int +%>> +% +% The type of socket addresses. ADDR_UNIX name is a socket +% address in the Unix domain; name is a file name in the file +% system. ADDR_INET(addr,port) is a socket address in the Internet +% domain; addr is the Internet address of the machine, and port +% is the port number. +% +%<< +% val socket : socket_domain -> socket_type -> int -> file_descr +%>> +% +% Create a new socket in the given domain, and with the given +% kind. The third argument is the protocol type; 0 selects the +% default protocol for that kind of sockets. +% +%<< +% val domain_of_sockaddr : sockaddr -> socket_domain +%>> +% +% Return the socket domain adequate for the given socket address. +% +%<< +% val socketpair : +% socket_domain -> +% socket_type -> int -> file_descr * file_descr +%>> +% +% Create a pair of unnamed sockets, connected together. +% +%<< +% val accept : file_descr -> file_descr * sockaddr +%>> +% +% Accept connections on the given socket. The returned descriptor +% is a socket connected to the client; the returned address is +% the address of the connecting client. +% +%<< +% val bind : file_descr -> sockaddr -> unit +%>> +% +% Bind a socket to an address. +% +%<< +% val connect : file_descr -> sockaddr -> unit +%>> +% +% Connect a socket to an address. +% +%<< +% val listen : file_descr -> int -> unit +%>> +% +% Set up a socket for receiving connection requests. The integer +% argument is the maximal number of pending requests. +% +%<< +% type shutdown_command = +% | SHUTDOWN_RECEIVE +%>> +% +% Close for receiving +% +%<< +% | SHUTDOWN_SEND +%>> +% +% Close for sending +% +%<< +% | SHUTDOWN_ALL +%>> +% +% Close both +% +% The type of commands for shutdown. +% +%<< +% val shutdown : file_descr -> shutdown_command -> unit +%>> +% +% Shutdown a socket connection. SHUTDOWN_SEND as second argument +% causes reads on the other end of the connection to return an +% end-of-file condition. SHUTDOWN_RECEIVE causes writes on the +% other end of the connection to return a closed pipe condition +% (SIGPIPE signal). +% +%<< +% val getsockname : file_descr -> sockaddr +%>> +% +% Return the address of the given socket. +% +%<< +% val getpeername : file_descr -> sockaddr +%>> +% +% Return the address of the host connected to the given socket. +% +%<< +% type msg_flag = +% | MSG_OOB +% | MSG_DONTROUTE +% | MSG_PEEK +%>> +% +% The flags for Unix.recv[21.1], Unix.recvfrom[21.1], +% Unix.send[21.1] and Unix.sendto[21.1]. +% +%<< +% val recv : file_descr -> string -> int -> int -> msg_flag list -> int +%>> +% +% Receive data from a connected socket. +% +%<< +% val recvfrom : +% file_descr -> +% string -> int -> int -> msg_flag list -> int * sockaddr +%>> +% +% Receive data from an unconnected socket. +% +%<< +% val send : file_descr -> string -> int -> int -> msg_flag list -> int +%>> +% +% Send data over a connected socket. +% +%<< +% val sendto : +% file_descr -> +% string -> int -> int -> msg_flag list -> sockaddr -> int +%>> +% +% Send data over an unconnected socket. +% +% +%Socket options +%============== +% +%<< +% type socket_bool_option = +% | SO_DEBUG +%>> +% +% Record debugging information +% +%<< +% | SO_BROADCAST +%>> +% +% Permit sending of broadcast messages +% +%<< +% | SO_REUSEADDR +%>> +% +% Allow reuse of local addresses for bind +% +%<< +% | SO_KEEPALIVE +%>> +% +% Keep connection active +% +%<< +% | SO_DONTROUTE +%>> +% +% Bypass the standard routing algorithms +% +%<< +% | SO_OOBINLINE +%>> +% +% Leave out-of'band data in line +% +%<< +% | SO_ACCEPTCONN +%>> +% +% Report whether socket listening is enabled +% +% The socket options that can be consulted with +% Unix.getsockopt[21.1] and modified with Unix.setsockopt[21.1]. +% These options have a boolean (true/false) value. +% +%<< +% type socket_int_option = +% | SO_SNDBUF +%>> +% +% Size of send buffer +% +%<< +% | SO_RCVBUF +%>> +% +% Size of received buffer +% +%<< +% | SO_ERROR +%>> +% +% Report the error status and clear it +% +%<< +% | SO_TYPE +%>> +% +% Report the socket type +% +%<< +% | SO_RCVLOWAT +%>> +% +% Minimum number of bytes to process for input operations +% +%<< +% | SO_SNDLOWAT +%>> +% +% Minimum number of bytes to process for output operations +% +% The socket options that can be consulted with +% Unix.getsockopt_int[21.1] and modified with +% Unix.setsockopt_int[21.1]. These options have an integer value. +% +%<< +% type socket_optint_option = +% | SO_LINGER +%>> +% +% Whether to linger on closed connections that have data +% present, and for how long (in seconds) +% +% The socket options that can be consulted with +% Unix.getsockopt_optint[21.1] and modified with +% Unix.setsockopt_optint[21.1]. These options have a value of +% type int option, with None meaning --disabled--. +% +%<< +% type socket_float_option = +% | SO_RCVTIMEO +%>> +% +% Timeout for input operations +% +%<< +% | SO_SNDTIMEO +%>> +% +% Timeout for output operations +% +% The socket options that can be consulted with +% Unix.getsockopt_float[21.1] and modified with +% Unix.setsockopt_float[21.1]. These options have a +% floating-point value representing a time in seconds. The value +% 0 means infinite timeout. +% +%<< +% val getsockopt : file_descr -> socket_bool_option -> bool +%>> +% +% Return the current status of a boolean-valued option in the +% given socket. +% +%<< +% val setsockopt : file_descr -> socket_bool_option -> bool -> unit +%>> +% +% Set or clear a boolean-valued option in the given socket. +% +%<< +% val getsockopt_int : file_descr -> socket_int_option -> int +%>> +% +% Same as Unix.getsockopt[21.1] for an integer-valued socket +% option. +% +%<< +% val setsockopt_int : file_descr -> socket_int_option -> int -> unit +%>> +% +% Same as Unix.setsockopt[21.1] for an integer-valued socket +% option. +% +%<< +% val getsockopt_optint : file_descr -> socket_optint_option -> int option +%>> +% +% Same as Unix.getsockopt[21.1] for a socket option whose value +% is an int option. +% +%<< +% val setsockopt_optint : +% file_descr -> socket_optint_option -> int option -> unit +%>> +% +% Same as Unix.setsockopt[21.1] for a socket option whose value +% is an int option. +% +%<< +% val getsockopt_float : file_descr -> socket_float_option -> float +%>> +% +% Same as Unix.getsockopt[21.1] for a socket option whose value +% is a floating-point number. +% +%<< +% val setsockopt_float : file_descr -> socket_float_option -> float -> unit +%>> +% +% Same as Unix.setsockopt[21.1] for a socket option whose value +% is a floating-point number. +% +% +%High-level network connection functions +%======================================= +% +%<< +% val open_connection : +% sockaddr -> Pervasives.in_channel * Pervasives.out_channel +%>> +% +% Connect to a server at the given address. Return a pair of +% buffered channels connected to the server. Remember to call +% Pervasives.flush[19.2] on the output channel at the right times +% to ensure correct synchronization. +% +%<< +% val shutdown_connection : Pervasives.in_channel -> unit +%>> +% +% --Shut down-- a connection established with +% Unix.open_connection[21.1]; that is, transmit an end-of-file +% condition to the server reading on the other side of the +% connection. +% +%<< +% val establish_server : +% (Pervasives.in_channel -> Pervasives.out_channel -> unit) -> +% sockaddr -> unit +%>> +% +% Establish a server on the given address. The function given as +% first argument is called for each connection with two buffered +% channels connected to the client. A new process is created for +% each connection. The function Unix.establish_server[21.1] never +% returns normally. +% +% +%Host and protocol databases +%=========================== +% +%<< +% type host_entry = { +% h_name : string ; +% h_aliases : string array ; +% h_addrtype : socket_domain ; +% h_addr_list : inet_addr array ; +% } +%>> +% +% Structure of entries in the hosts database. +% +%<< +% type protocol_entry = { +% p_name : string ; +% p_aliases : string array ; +% p_proto : int ; +% } +%>> +% +% Structure of entries in the protocols database. +% +%<< +% type service_entry = { +% s_name : string ; +% s_aliases : string array ; +% s_port : int ; +% s_proto : string ; +% } +%>> +% +% Structure of entries in the services database. +% +%<< +% val gethostname : unit -> string +%>> +% +% Return the name of the local host. +% +%<< +% val gethostbyname : string -> host_entry +%>> +% +% Find an entry in hosts with the given name, or raise +% Not_found. +% +%<< +% val gethostbyaddr : inet_addr -> host_entry +%>> +% +% Find an entry in hosts with the given address, or raise +% Not_found. +% +%<< +% val getprotobyname : string -> protocol_entry +%>> +% +% Find an entry in protocols with the given name, or raise +% Not_found. +% +%<< +% val getprotobynumber : int -> protocol_entry +%>> +% +% Find an entry in protocols with the given protocol number, or +% raise Not_found. +% +%<< +% val getservbyname : string -> string -> service_entry +%>> +% +% Find an entry in services with the given name, or raise +% Not_found. +% +%<< +% val getservbyport : int -> string -> service_entry +%>> +% +% Find an entry in services with the given service number, or +% raise Not_found. +% +%<< +% type addr_info = { +% ai_family : socket_domain ; +%>> +% +% Socket domain +% +%<< +% ai_socktype : socket_type ; +%>> +% +% Socket type +% +%<< +% ai_protocol : int ; +%>> +% +% Socket protocol number +% +%<< +% ai_addr : sockaddr ; +%>> +% +% Address +% +%<< +% ai_canonname : string ; +%>> +% +% Canonical host name +% +%<< +% } +%>> +% +% Address information returned by Unix.getaddrinfo[21.1]. +% +%<< +% type getaddrinfo_option = +% | AI_FAMILY of socket_domain +%>> +% +% Impose the given socket domain +% +%<< +% | AI_SOCKTYPE of socket_type +%>> +% +% Impose the given socket type +% +%<< +% | AI_PROTOCOL of int +%>> +% +% Impose the given protocol +% +%<< +% | AI_NUMERICHOST +%>> +% +% Do not call name resolver, expect numeric IP address +% +%<< +% | AI_CANONNAME +%>> +% +% Fill the ai_canonname field of the result +% +%<< +% | AI_PASSIVE +%>> +% +% Set address to -'any-- address for use with Unix.bind[21.1] +% +% Options to Unix.getaddrinfo[21.1]. +% +%<< +% val getaddrinfo : +% string -> string -> getaddrinfo_option list -> addr_info list +%>> +% +% getaddrinfo host service opts returns a list of +% Unix.addr_info[21.1] records describing socket parameters and +% addresses suitable for communicating with the given host and +% service. The empty list is returned if the host or service +% names are unknown, or the constraints expressed in opts cannot +% be satisfied. +% host is either a host name or the string representation of an IP +% address. host can be given as the empty string; in this case, +% the -'any-- address or the --loopback-- address are used, +% depending whether opts contains AI_PASSIVE. service is either a +% service name or the string representation of a port number. +% service can be given as the empty string; in this case, the +% port field of the returned addresses is set to 0. opts is a +% possibly empty list of options that allows the caller to force +% a particular socket domain (e.g. IPv6 only or IPv4 only) or a +% particular socket type (e.g. TCP only or UDP only). +% +%<< +% type name_info = { +% ni_hostname : string ; +%>> +% +% Name or IP address of host +% +%<< +% ni_service : string ; +% } +%>> +% +% Name of service or port number +% +% Host and service information returned by Unix.getnameinfo[21.1]. +%<< +% type getnameinfo_option = +% | NI_NOFQDN +%>> +% +% Do not qualify local host names +% +%<< +% | NI_NUMERICHOST +%>> +% +% Always return host as IP address +% +%<< +% | NI_NAMEREQD +%>> +% +% Fail if host name cannot be determined +% +%<< +% | NI_NUMERICSERV +%>> +% +% Always return service as port number +% +%<< +% | NI_DGRAM +%>> +% +% Consider the service as UDP'based instead of the default TCP +% +% Options to Unix.getnameinfo[21.1]. +% +%<< +% val getnameinfo : sockaddr -> getnameinfo_option list -> name_info +%>> +% +% getnameinfo addr opts returns the host name and service name +% corresponding to the socket address addr. opts is a possibly +% empty list of options that governs how these names are obtained. +% Raise Not_found if an error occurs. +% +% +%Terminal interface +%================== +% +% The following functions implement the POSIX standard terminal interface. +%They provide control over asynchronous communication ports and +%pseudo-terminals. Refer to the termios man page for a complete description. +%<< +% type terminal_io = { +% mutable c_ignbrk : bool ; +%>> +% +% Ignore the break condition. +% +%<< +% mutable c_brkint : bool ; +%>> +% +% Signal interrupt on break condition. +% +%<< +% mutable c_ignpar : bool ; +%>> +% +% Ignore characters with parity errors. +% +%<< +% mutable c_parmrk : bool ; +%>> +% +% Mark parity errors. +% +%<< +% mutable c_inpck : bool ; +%>> +% +% Enable parity check on input. +% +%<< +% mutable c_istrip : bool ; +%>> +% +% Strip 8th bit on input characters. +% +%<< +% mutable c_inlcr : bool ; +%>> +% +% Map NL to CR on input. +% +%<< +% mutable c_igncr : bool ; +%>> +% +% Ignore CR on input. +% +%<< +% mutable c_icrnl : bool ; +%>> +% +% Map CR to NL on input. +% +%<< +% mutable c_ixon : bool ; +%>> +% +% Recognize XON/XOFF characters on input. +% +%<< +% mutable c_ixoff : bool ; +%>> +% +% Emit XON/XOFF chars to control input flow. +% +%<< +% mutable c_opost : bool ; +%>> +% +% Enable output processing. +% +%<< +% mutable c_obaud : int ; +%>> +% +% Output baud rate (0 means close connection). +% +%<< +% mutable c_ibaud : int ; +%>> +% +% Input baud rate. +% +%<< +% mutable c_csize : int ; +%>> +% +% Number of bits per character (5-8). +% +%<< +% mutable c_cstopb : int ; +%>> +% +% Number of stop bits (1-2). +% +%<< +% mutable c_cread : bool ; +%>> +% +% Reception is enabled. +% +%<< +% mutable c_parenb : bool ; +%>> +% +% Enable parity generation and detection. +% +%<< +% mutable c_parodd : bool ; +%>> +% +% Specify odd parity instead of even. +% +%<< +% mutable c_hupcl : bool ; +%>> +% +% Hang up on last close. +% +%<< +% mutable c_clocal : bool ; +%>> +% +% Ignore modem status lines. +% +%<< +% mutable c_isig : bool ; +%>> +% +% Generate signal on INTR, QUIT, SUSP. +% +%<< +% mutable c_icanon : bool ; +%>> +% +% Enable canonical processing (line buffering and editing) +% +%<< +% mutable c_noflsh : bool ; +%>> +% +% Disable flush after INTR, QUIT, SUSP. +% +%<< +% mutable c_echo : bool ; +%>> +% +% Echo input characters. +% +%<< +% mutable c_echoe : bool ; +%>> +% +% Echo ERASE (to erase previous character). +% +%<< +% mutable c_echok : bool ; +%>> +% +% Echo KILL (to erase the current line). +% +%<< +% mutable c_echonl : bool ; +%>> +% +% Echo NL even if c_echo is not set. +% +%<< +% mutable c_vintr : char ; +%>> +% +% Interrupt character (usually ctrl'c). +% +%<< +% mutable c_vquit : char ; +%>> +% +% Quit character (usually ctrl-\). +% +%<< +% mutable c_verase : char ; +%>> +% +% Erase character (usually DEL or ctrl-H). +% +%<< +% mutable c_vkill : char ; +%>> +% +% Kill line character (usually ctrl-U). +% +%<< +% mutable c_veof : char ; +%>> +% +% End-of-file character (usually ctrl-D). +% +%<< +% mutable c_veol : char ; +%>> +% +% Alternate end-of-line char. (usually none). +% +%<< +% mutable c_vmin : int ; +%>> +% +% Minimum number of characters to read before the read request +% is satisfied. +% +%<< +% mutable c_vtime : int ; +%>> +% +% Maximum read wait (in 0.1s units). +% +%<< +% mutable c_vstart : char ; +%>> +% +% Start character (usually ctrl-Q). +% +%<< +% mutable c_vstop : char ; +%>> +% +% Stop character (usually ctrl-S). +% +%<< +% } +%>> +% +%<< +% val tcgetattr : file_descr -> terminal_io +%>> +% +% Return the status of the terminal referred to by the given +% file descriptor. +% +%<< +% type setattr_when = +% | TCSANOW +% | TCSADRAIN +% | TCSAFLUSH +%>> +% +%<< +% val tcsetattr : file_descr -> setattr_when -> terminal_io -> unit +%>> +% +% Set the status of the terminal referred to by the given file +% descriptor. The second argument indicates when the status +% change takes place: immediately (TCSANOW), when all pending +% output has been transmitted (TCSADRAIN), or after flushing all +% input that has been received but not read (TCSAFLUSH). +% TCSADRAIN is recommended when changing the output parameters; +% TCSAFLUSH, when changing the input parameters. +% +%<< +% val tcsendbreak : file_descr -> int -> unit +%>> +% +% Send a break condition on the given file descriptor. The +% second argument is the duration of the break, in 0.1s units; 0 +% means standard duration (0.25s). +% +%<< +% val tcdrain : file_descr -> unit +%>> +% +% Waits until all output written on the given file descriptor +% has been transmitted. +% +%<< +% type flush_queue = +% | TCIFLUSH +% | TCOFLUSH +% | TCIOFLUSH +%>> +% +%<< +% val tcflush : file_descr -> flush_queue -> unit +%>> +% +% Discard data written on the given file descriptor but not yet +% transmitted, or data received but not yet read, depending on the +% second argument: TCIFLUSH flushes data received but not read, +% TCOFLUSH flushes data written but not transmitted, and +% TCIOFLUSH flushes both. +% +%<< +% type flow_action = +% | TCOOFF +% | TCOON +% | TCIOFF +% | TCION +%>> +% +%<< +% val tcflow : file_descr -> flow_action -> unit +%>> +% +% Suspend or restart reception or transmission of data on the +% given file descriptor, depending on the second argument: TCOOFF +% suspends output, TCOON restarts output, TCIOFF transmits a STOP +% character to suspend input, and TCION transmits a START +% character to restart input. +% +%<< +% val setsid : unit -> int +%>> +% +% Put the calling process in a new session and detach it from +% its controlling terminal. +% +% +% +%21.2 Module UnixLabels: labelized version of the interface +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* +% +% +% This module is identical to Unix (21.1), and only differs by the addition of +%labels. You may see these labels directly by looking at unixLabels.mli, or by +%using the ocamlbrowser tool. +% Windows: +% The Cygwin port of Objective Caml fully implements all +% functions from the Unix module. The native Win32 ports implement +% a subset of them. Below is a list of the functions that are not +% implemented, or only partially implemented, by the Win32 ports. +% Functions not mentioned are fully implemented and behave as +% described previously in this chapter. +% +% ------------------------------------------------------ +% | Functions | Comment | +% ------------------------------------------------------ +% |fork |not implemented, use | +% | |create_process or | +% | |threads | +% |wait |not implemented, use | +% | |waitpid | +% |waitpid |can only wait for a | +% | |given PID, not any | +% | |child process | +% |getppid |not implemented | +% | |(meaningless under | +% | |Windows) | +% |nice |not implemented | +% |in_channel_of_descr |does not work on | +% | |sockets under Windows | +% | |95, 98, ME; works fine | +% | |under NT, 2000, XP | +% |out_channel_of_descr |ditto | +% |truncate, ftruncate |not implemented | +% |lstat, fstat |not implemented | +% |link, symlink, readlink |not implemented (no | +% | |links under Windows) | +% |fchmod |not implemented | +% |chown, fchown |not implemented (make | +% | |no sense on a DOS file | +% | |system) | +% |umask |not implemented | +% |set_nonblock, clear_nonblock|implemented as dummy | +% | |functions; use threads | +% | |instead of non'blocking| +% | |I/O | +% |rewinddir |not implemented; | +% | |re-open the directory | +% | |instead | +% |mkfifo |not implemented | +% |select |implemented, but works | +% | |only for sockets; use | +% | |threads if you need to| +% | |wait on other kinds of | +% | |file descriptors | +% |lockf |not implemented | +% |kill, pause |not implemented (no | +% | |inter-process signals | +% | |in Windows) | +% |alarm, times |not implemented | +% |getitimer, setitimer |not implemented | +% |getuid, getgid |always return 1 | +% |getgid, getegid, getgroups |not implemented | +% |setuid, setgid |not implemented | +% |getpwnam, getpwuid |always raise Not_found | +% |getgrnam, getgrgid |always raise Not_found | +% |type socket_domain |the domain PF_UNIX is | +% | |not supported; PF_INET | +% | |is fully supported | +% |open_connection |does not work under | +% | |Windows 95, 98, ME; | +% | |works fine under NT, | +% | |2000, XP | +% |establish_server |not implemented; use | +% | |threads | +% |terminal functions (tc*) |not implemented | +% ------------------------------------------------------ +% +% +% +% +%Chapter 22 The num library: arbitrary-precision rational arithmetic +%********************************************************************** +% +% The num library implements integer arithmetic and rational arithmetic in +%arbitrary precision. +% More documentation on the functions provided in this library can be found in +%The CAML Numbers Reference Manual by Valérie Ménissier-Morain, technical +%report 141, INRIA, july 1992 (available electronically, +%ftp://ftp.inria.fr/INRIA/publication/RT/RT-0141.ps.gz). +% Programs that use the num library must be linked as follows: +%<< +% ocamlc other options nums.cma other files +% ocamlopt other options nums.cmxa other files +%>> +% For interactive use of the nums library, do: +%<< +% ocamlmktop -o mytop nums.cma +% ./mytop +%>> +% or (if dynamic linking of C libraries is supported on your platform), start +%ocaml and type #load "nums.cma";;. +% +% +%22.1 Module Num : Operation on arbitrary-precision numbers. +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= +% +% +% Numbers (type num) are arbitrary-precision rational numbers, plus the +%special elements 1/0 (infinity) and 0/0 (undefined). +% 0.5cm +%<< +% type num = +% | Int of int +% | Big_int of Big_int.big_int +% | Ratio of Ratio.ratio +%>> +% +% The type of numbers. +% +% +%Arithmetic operations +%===================== +% +%<< +% val (+/) : num -> num -> num +%>> +% +% Same as Num.add_num[22.1]. +% +%<< +% val add_num : num -> num -> num +%>> +% +% Addition +% +%<< +% val minus_num : num -> num +%>> +% +% Unary negation. +% +%<< +% val (-/) : num -> num -> num +%>> +% +% Same as Num.sub_num[22.1]. +% +%<< +% val sub_num : num -> num -> num +%>> +% +% Subtraction +% +%<< +% val (*/) : num -> num -> num +%>> +% +% Same as Num.mult_num[22.1]. +% +%<< +% val mult_num : num -> num -> num +%>> +% +% Multiplication +% +%<< +% val square_num : num -> num +%>> +% +% Squaring +% +%<< +% val (//) : num -> num -> num +%>> +% +% Same as Num.div_num[22.1]. +% +%<< +% val div_num : num -> num -> num +%>> +% +% Division +% +%<< +% val quo_num : num -> num -> num +%>> +% +% Euclidean division: quotient. +% +%<< +% val mod_num : num -> num -> num +%>> +% +% Euclidean division: remainder. +% +%<< +% val (**/) : num -> num -> num +%>> +% +% Same as Num.power_num[22.1]. +% +%<< +% val power_num : num -> num -> num +%>> +% +% Exponentiation +% +%<< +% val abs_num : num -> num +%>> +% +% Absolute value. +% +%<< +% val succ_num : num -> num +%>> +% +% succ n is n+1 +% +%<< +% val pred_num : num -> num +%>> +% +% pred n is n-1 +% +%<< +% val incr_num : num Pervasives.ref -> unit +%>> +% +% incr r is r:=!r+1, where r is a reference to a number. +% +%<< +% val decr_num : num Pervasives.ref -> unit +%>> +% +% decr r is r:=!r-1, where r is a reference to a number. +% +%<< +% val is_integer_num : num -> bool +%>> +% +% Test if a number is an integer +% +% The four following functions approximate a number by an integer : +%<< +% val integer_num : num -> num +%>> +% +% integer_num n returns the integer closest to n. In case of +% ties, rounds towards zero. +% +%<< +% val floor_num : num -> num +%>> +% +% floor_num n returns the largest integer smaller or equal to n. +% +%<< +% val round_num : num -> num +%>> +% +% round_num n returns the integer closest to n. In case of ties, +% rounds off zero. +% +%<< +% val ceiling_num : num -> num +%>> +% +% ceiling_num n returns the smallest integer bigger or equal to +% n. +% +%<< +% val sign_num : num -> int +%>> +% +% Return -1, 0 or 1 according to the sign of the argument. +% +% +%Comparisons between numbers +%--------------------------- +% +%<< +% val (=/) : num -> num -> bool +%>> +% +%<< +% val ( num -> bool +%>> +% +%<< +% val (>/) : num -> num -> bool +%>> +% +%<< +% val (<=/) : num -> num -> bool +%>> +% +%<< +% val (>=/) : num -> num -> bool +%>> +% +%<< +% val (<>/) : num -> num -> bool +%>> +% +%<< +% val eq_num : num -> num -> bool +%>> +% +%<< +% val lt_num : num -> num -> bool +%>> +% +%<< +% val le_num : num -> num -> bool +%>> +% +%<< +% val gt_num : num -> num -> bool +%>> +% +%<< +% val ge_num : num -> num -> bool +%>> +% +%<< +% val compare_num : num -> num -> int +%>> +% +% Return -1, 0 or 1 if the first argument is less than, equal +% to, or greater than the second argument. +% +%<< +% val max_num : num -> num -> num +%>> +% +% Return the greater of the two arguments. +% +%<< +% val min_num : num -> num -> num +%>> +% +% Return the smaller of the two arguments. +% +% +%Coercions with strings +%====================== +% +%<< +% val string_of_num : num -> string +%>> +% +% Convert a number to a string, using fractional notation. +% +%<< +% val approx_num_fix : int -> num -> string +%>> +% +% See Num.approx_num_exp[22.1]. +% +%<< +% val approx_num_exp : int -> num -> string +%>> +% +% Approximate a number by a decimal. The first argument is the +% required precision. The second argument is the number to +% approximate. Num.approx_num_fix[22.1] uses decimal notation; the +% first argument is the number of digits after the decimal point. +% approx_num_exp uses scientific (exponential) notation; the +% first argument is the number of digits in the mantissa. +% +%<< +% val num_of_string : string -> num +%>> +% +% Convert a string to a number. +% +% +%Coercions between numerical types +%================================= +% +%<< +% val int_of_num : num -> int +%>> +% +%<< +% val num_of_int : int -> num +%>> +% +%<< +% val nat_of_num : num -> Nat.nat +%>> +% +%<< +% val num_of_nat : Nat.nat -> num +%>> +% +%<< +% val num_of_big_int : Big_int.big_int -> num +%>> +% +%<< +% val big_int_of_num : num -> Big_int.big_int +%>> +% +%<< +% val ratio_of_num : num -> Ratio.ratio +%>> +% +%<< +% val num_of_ratio : Ratio.ratio -> num +%>> +% +%<< +% val float_of_num : num -> float +%>> +% +% +% +%22.2 Module Big_int : Operations on arbitrary-precision integers. +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= +% +% +% Big integers (type big_int) are signed integers of arbitrary size. +% 0.5cm +%<< +% type big_int +%>> +% +% The type of big integers. +% +%<< +% val zero_big_int : big_int +%>> +% +% The big integer 0. +% +%<< +% val unit_big_int : big_int +%>> +% +% The big integer 1. +% +% +%Arithmetic operations +%===================== +% +%<< +% val minus_big_int : big_int -> big_int +%>> +% +% Unary negation. +% +%<< +% val abs_big_int : big_int -> big_int +%>> +% +% Absolute value. +% +%<< +% val add_big_int : big_int -> big_int -> big_int +%>> +% +% Addition. +% +%<< +% val succ_big_int : big_int -> big_int +%>> +% +% Successor (add 1). +% +%<< +% val add_int_big_int : int -> big_int -> big_int +%>> +% +% Addition of a small integer to a big integer. +% +%<< +% val sub_big_int : big_int -> big_int -> big_int +%>> +% +% Subtraction. +% +%<< +% val pred_big_int : big_int -> big_int +%>> +% +% Predecessor (subtract 1). +% +%<< +% val mult_big_int : big_int -> big_int -> big_int +%>> +% +% Multiplication of two big integers. +% +%<< +% val mult_int_big_int : int -> big_int -> big_int +%>> +% +% Multiplication of a big integer by a small integer +% +%<< +% val square_big_int : big_int -> big_int +%>> +% +% Return the square of the given big integer +% +%<< +% val sqrt_big_int : big_int -> big_int +%>> +% +% sqrt_big_int a returns the integer square root of a, that is, +% the largest big integer r such that r * r <= a. Raise +% Invalid_argument if a is negative. +% +%<< +% val quomod_big_int : big_int -> big_int -> big_int * big_int +%>> +% +% Euclidean division of two big integers. The first part of the +% result is the quotient, the second part is the remainder. +% Writing (q,r) = quomod_big_int a b, we have a = q * b + r and 0 +% <= r < |b|. Raise Division_by_zero if the divisor is zero. +% +%<< +% val div_big_int : big_int -> big_int -> big_int +%>> +% +% Euclidean quotient of two big integers. This is the first +% result q of quomod_big_int (see above). +% +%<< +% val mod_big_int : big_int -> big_int -> big_int +%>> +% +% Euclidean modulus of two big integers. This is the second +% result r of quomod_big_int (see above). +% +%<< +% val gcd_big_int : big_int -> big_int -> big_int +%>> +% +% Greatest common divisor of two big integers. +% +%<< +% val power_int_positive_int : int -> int -> big_int +%>> +% +%<< +% val power_big_int_positive_int : big_int -> int -> big_int +%>> +% +%<< +% val power_int_positive_big_int : int -> big_int -> big_int +%>> +% +%<< +% val power_big_int_positive_big_int : big_int -> big_int -> big_int +%>> +% +% Exponentiation functions. Return the big integer representing +% the first argument a raised to the power b (the second +% argument). Depending on the function, a and b can be either +% small integers or big integers. Raise Invalid_argument if b is +% negative. +% +% +%Comparisons and tests +%===================== +% +%<< +% val sign_big_int : big_int -> int +%>> +% +% Return 0 if the given big integer is zero, 1 if it is +% positive, and -1 if it is negative. +% +%<< +% val compare_big_int : big_int -> big_int -> int +%>> +% +% compare_big_int a b returns 0 if a and b are equal, 1 if a is +% greater than b, and -1 if a is smaller than b. +% +%<< +% val eq_big_int : big_int -> big_int -> bool +%>> +% +%<< +% val le_big_int : big_int -> big_int -> bool +%>> +% +%<< +% val ge_big_int : big_int -> big_int -> bool +%>> +% +%<< +% val lt_big_int : big_int -> big_int -> bool +%>> +% +%<< +% val gt_big_int : big_int -> big_int -> bool +%>> +% +% Usual boolean comparisons between two big integers. +% +%<< +% val max_big_int : big_int -> big_int -> big_int +%>> +% +% Return the greater of its two arguments. +% +%<< +% val min_big_int : big_int -> big_int -> big_int +%>> +% +% Return the smaller of its two arguments. +% +%<< +% val num_digits_big_int : big_int -> int +%>> +% +% Return the number of machine words used to store the given big +% integer. +% +% +%Conversions to and from strings +%=============================== +% +%<< +% val string_of_big_int : big_int -> string +%>> +% +% Return the string representation of the given big integer, in +% decimal (base 10). +% +%<< +% val big_int_of_string : string -> big_int +%>> +% +% Convert a string to a big integer, in decimal. The string +% consists of an optional - or + sign, followed by one or several +% decimal digits. +% +% +%Conversions to and from other numerical types +%============================================= +% +%<< +% val big_int_of_int : int -> big_int +%>> +% +% Convert a small integer to a big integer. +% +%<< +% val is_int_big_int : big_int -> bool +%>> +% +% Test whether the given big integer is small enough to be +% representable as a small integer (type int) without loss of +% precision. On a 32'bit platform, is_int_big_int a returns true +% if and only if a is between 2^30 and 2^30-1. On a 64'bit +% platform, is_int_big_int a returns true if and only if a is +% between -2^62 and 2^62-1. +% +%<< +% val int_of_big_int : big_int -> int +%>> +% +% Convert a big integer to a small integer (type int). Raises +% Failure "int_of_big_int" if the big integer is not +% representable as a small integer. +% +%<< +% val float_of_big_int : big_int -> float +%>> +% +% Returns a floating-point number approximating the given big +% integer. +% +% +% +%22.3 Module Arith_status : Flags that control rational arithmetic. +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* +% +% +% 0.5cm +%<< +% val arith_status : unit -> unit +%>> +% +% Print the current status of the arithmetic flags. +% +%<< +% val get_error_when_null_denominator : unit -> bool +%>> +% +% See Arith_status.set_error_when_null_denominator[22.3]. +% +%<< +% val set_error_when_null_denominator : bool -> unit +%>> +% +% Get or set the flag null_denominator. When on, attempting to +% create a rational with a null denominator raises an exception. +% When off, rationals with null denominators are accepted. +% Initially: on. +% +%<< +% val get_normalize_ratio : unit -> bool +%>> +% +% See Arith_status.set_normalize_ratio[22.3]. +% +%<< +% val set_normalize_ratio : bool -> unit +%>> +% +% Get or set the flag normalize_ratio. When on, rational numbers +% are normalized after each operation. When off, rational numbers +% are not normalized until printed. Initially: off. +% +%<< +% val get_normalize_ratio_when_printing : unit -> bool +%>> +% +% See Arith_status.set_normalize_ratio_when_printing[22.3]. +% +%<< +% val set_normalize_ratio_when_printing : bool -> unit +%>> +% +% Get or set the flag normalize_ratio_when_printing. When on, +% rational numbers are normalized before being printed. When off, +% rational numbers are printed as is, without normalization. +% Initially: on. +% +%<< +% val get_approx_printing : unit -> bool +%>> +% +% See Arith_status.set_approx_printing[22.3]. +% +%<< +% val set_approx_printing : bool -> unit +%>> +% +% Get or set the flag approx_printing. When on, rational numbers +% are printed as a decimal approximation. When off, rational +% numbers are printed as a fraction. Initially: off. +% +%<< +% val get_floating_precision : unit -> int +%>> +% +% See Arith_status.set_floating_precision[22.3]. +% +%<< +% val set_floating_precision : int -> unit +%>> +% +% Get or set the parameter floating_precision. This parameter is +% the number of digits displayed when approx_printing is on. +% Initially: 12. +% +% +% +% +% +%Chapter 23 The str library: regular expressions and string processing +%************************************************************************ +% +% The str library provides high-level string processing functions, some based +%on regular expressions. It is intended to support the kind of file processing +%that is usually performed with scripting languages such as awk, perl or sed. +% Programs that use the str library must be linked as follows: +%<< +% ocamlc other options str.cma other files +% ocamlopt other options str.cmxa other files +%>> +% For interactive use of the str library, do: +%<< +% ocamlmktop -o mytop str.cma +% ./mytop +%>> +% or (if dynamic linking of C libraries is supported on your platform), start +%ocaml and type #load "str.cma";;. +% +% +%23.1 Module Str : Regular expressions and high-level string processing +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* +% +% +% 0.5cm +% +%Regular expressions +%=================== +% +%<< +% type regexp +%>> +% +% The type of compiled regular expressions. +% +%<< +% val regexp : string -> regexp +%>> +% +% Compile a regular expression. The following constructs are +% recognized: +% +% - . Matches any character except newline. +% - * (postfix) Matches the preceding expression zero, one or +% several times +% - + (postfix) Matches the preceding expression one or several +% times +% - ? (postfix) Matches the preceding expression once or not at +% all +% - [..] Character set. Ranges are denoted with -, as in [a-z]. +% An initial ^, as in [^0-9], complements the set. To include +% a ] character in a set, make it the first character of the +% set. To include a - character in a set, make it the first or +% the last character of the set. +% - ^ Matches at beginning of line (either at the beginning of +% the matched string, or just after a newline character). +% - $ Matches at end of line (either at the end of the matched +% string, or just before a newline character). +% - \| (infix) Alternative between two expressions. +% - \(..\) Grouping and naming of the enclosed expression. +% - \1 The text matched by the first \(...\) expression (\2 for +% the second expression, and so on up to \9). +% - \b Matches word boundaries. +% - \ Quotes special characters. The special characters are +% $^.*+?[]. +% +%<< +% val regexp_case_fold : string -> regexp +%>> +% +% Same as regexp, but the compiled expression will match text in +% a case-insensitive way: uppercase and lowercase letters will be +% considered equivalent. +% +%<< +% val quote : string -> string +%>> +% +% Str.quote s returns a regexp string that matches exactly s and +% nothing else. +% +%<< +% val regexp_string : string -> regexp +%>> +% +% Str.regexp_string s returns a regular expression that matches +% exactly s and nothing else. +% +%<< +% val regexp_string_case_fold : string -> regexp +%>> +% +% Str.regexp_string_case_fold is similar to +% Str.regexp_string[23.1], but the regexp matches in a +% case-insensitive way. +% +% +%String matching and searching +%============================= +% +%<< +% val string_match : regexp -> string -> int -> bool +%>> +% +% string_match r s start tests whether a substring of s that +% starts at position start matches the regular expression r. The +% first character of a string has position 0, as usual. +% +%<< +% val search_forward : regexp -> string -> int -> int +%>> +% +% search_forward r s start searches the string s for a substring +% matching the regular expression r. The search starts at position +% start and proceeds towards the end of the string. Return the +% position of the first character of the matched substring, or +% raise Not_found if no substring matches. +% +%<< +% val search_backward : regexp -> string -> int -> int +%>> +% +% search_backward r s last searches the string s for a substring +% matching the regular expression r. The search first considers +% substrings that start at position last and proceeds towards the +% beginning of string. Return the position of the first character +% of the matched substring; raise Not_found if no substring +% matches. +% +%<< +% val string_partial_match : regexp -> string -> int -> bool +%>> +% +% Similar to Str.string_match[23.1], but also returns true if +% the argument string is a prefix of a string that matches. This +% includes the case of a true complete match. +% +%<< +% val matched_string : string -> string +%>> +% +% matched_string s returns the substring of s that was matched +% by the latest Str.string_match[23.1], Str.search_forward[23.1] +% or Str.search_backward[23.1]. The user must make sure that +% the parameter s is the same string that was passed to the +% matching or searching function. +% +%<< +% val match_beginning : unit -> int +%>> +% +% match_beginning() returns the position of the first character +% of the substring that was matched by Str.string_match[23.1], +% Str.search_forward[23.1] or Str.search_backward[23.1]. +% +%<< +% val match_end : unit -> int +%>> +% +% match_end() returns the position of the character following the +% last character of the substring that was matched by +% string_match, search_forward or search_backward. +% +%<< +% val matched_group : int -> string -> string +%>> +% +% matched_group n s returns the substring of s that was matched +% by the nth group \(...\) of the regular expression during the +% latest Str.string_match[23.1], Str.search_forward[23.1] or +% Str.search_backward[23.1]. The user must make sure that the +% parameter s is the same string that was passed to the matching +% or searching function. matched_group n s raises Not_found if +% the nth group of the regular expression was not matched. This +% can happen with groups inside alternatives \|, options ? or +% repetitions *. For instance, the empty string will match +% \(a\)*, but matched_group 1 "" will raise Not_found because the +% first group itself was not matched. +% +%<< +% val group_beginning : int -> int +%>> +% +% group_beginning n returns the position of the first character +% of the substring that was matched by the nth group of the +% regular expression. +% Raises +% +% - Not_found if the nth group of the regular expression was not +% matched. +% - Invalid_argument if there are fewer than n groups in the +% regular expression. +% +%<< +% val group_end : int -> int +%>> +% +% group_end n returns the position of the character following +% the last character of substring that was matched by the nth +% group of the regular expression. +% Raises +% +% - Not_found if the nth group of the regular expression was not +% matched. +% - Invalid_argument if there are fewer than n groups in the +% regular expression. +% +% +%Replacement +%=========== +% +%<< +% val global_replace : regexp -> string -> string -> string +%>> +% +% global_replace regexp templ s returns a string identical to s, +% except that all substrings of s that match regexp have been +% replaced by templ. The replacement template templ can contain +% \1, \2, etc; these sequences will be replaced by the text +% matched by the corresponding group in the regular expression. +% \0 stands for the text matched by the whole regular expression. +% +%<< +% val replace_first : regexp -> string -> string -> string +%>> +% +% Same as Str.global_replace[23.1], except that only the first +% substring matching the regular expression is replaced. +% +%<< +% val global_substitute : regexp -> (string -> string) -> string -> string +%>> +% +% global_substitute regexp subst s returns a string identical to +% s, except that all substrings of s that match regexp have been +% replaced by the result of function subst. The function subst is +% called once for each matching substring, and receives s (the +% whole text) as argument. +% +%<< +% val substitute_first : regexp -> (string -> string) -> string -> string +%>> +% +% Same as Str.global_substitute[23.1], except that only the first +% substring matching the regular expression is replaced. +% +%<< +% val replace_matched : string -> string -> string +%>> +% +% replace_matched repl s returns the replacement text repl in +% which \1, \2, etc. have been replaced by the text matched by +% the corresponding groups in the most recent matching operation. +% s must be the same string that was matched during this matching +% operation. +% +% +%Splitting +%========= +% +%<< +% val split : regexp -> string -> string list +%>> +% +% split r s splits s into substrings, taking as delimiters the +% substrings that match r, and returns the list of substrings. +% For instance, split (regexp "[ \t]+") s splits s into +% blank-separated words. An occurrence of the delimiter at the +% beginning and at the end of the string is ignored. +% +%<< +% val bounded_split : regexp -> string -> int -> string list +%>> +% +% Same as Str.split[23.1], but splits into at most n substrings, +% where n is the extra integer parameter. +% +%<< +% val split_delim : regexp -> string -> string list +%>> +% +% Same as Str.split[23.1] but occurrences of the delimiter at +% the beginning and at the end of the string are recognized and +% returned as empty strings in the result. For instance, +% split_delim (regexp " ") " abc " returns [""; "abc"; ""], while +% split with the same arguments returns ["abc"]. +% +%<< +% val bounded_split_delim : regexp -> string -> int -> string list +%>> +% +% Same as Str.bounded_split[23.1], but occurrences of the +% delimiter at the beginning and at the end of the string are +% recognized and returned as empty strings in the result. +% +%<< +% type split_result = +% | Text of string +% | Delim of string +%>> +% +%<< +% val full_split : regexp -> string -> split_result list +%>> +% +% Same as Str.split_delim[23.1], but returns the delimiters as +% well as the substrings contained between delimiters. The former +% are tagged Delim in the result list; the latter are tagged +% Text. For instance, full_split (regexp "[{}]") "{ab}" returns +% [Delim "{"; Text "ab"; Delim "}"]. +% +%<< +% val bounded_full_split : regexp -> string -> int -> split_result list +%>> +% +% Same as Str.bounded_split_delim[23.1], but returns the +% delimiters as well as the substrings contained between +% delimiters. The former are tagged Delim in the result list; the +% latter are tagged Text. +% +% +%Extracting substrings +%===================== +% +%<< +% val string_before : string -> int -> string +%>> +% +% string_before s n returns the substring of all characters of s +% that precede position n (excluding the character at position +% n). +% +%<< +% val string_after : string -> int -> string +%>> +% +% string_after s n returns the substring of all characters of s +% that follow position n (including the character at position n). +% +%<< +% val first_chars : string -> int -> string +%>> +% +% first_chars s n returns the first n characters of s. This is +% the same function as Str.string_before[23.1]. +% +%<< +% val last_chars : string -> int -> string +%>> +% +% last_chars s n returns the last n characters of s. +% +% +% +% +% +%dChapter 24 The threads library +%d********************************* +% +% The threads library allows concurrent programming in Objective Caml. It +%provides multiple threads of control (also called lightweight processes) that +%execute concurrently in the same memory space. Threads communicate by in-place +%modification of shared data structures, or by sending and receiving data on +%communication channels. +% The threads library is implemented by time-sharing on a single processor. It +%will not take advantage of multi-processor machines. Using this library will +%therefore never make programs run faster. However, many programs are easier to +%write when structured as several communicating processes. +% Two implementations of the threads library are available, depending on the +%capabilities of the operating system: +% +% - System threads. This implementation builds on the OS-provided threads +% facilities: POSIX 1003.1c threads for Unix, and Win32 threads for Windows. +% When available, system threads support both bytecode and native'code +% programs. +% - VM-level threads. This implementation performs time-sharing and context +% switching at the level of the OCaml virtual machine (bytecode interpreter). +% It is available on Unix systems, and supports only bytecode programs. It +% cannot be used with native'code programs. +% Programs that use system threads must be linked as follows: +%<< +% ocamlc -thread other options threads.cma other files +% ocamlopt -thread other options threads.cmxa other files +%>> +% All object files on the command line must also have been compiled with the +%-thread option (see chapter 8). +% Programs that use VM-level threads must be compiled with the -vmthread option +%to ocamlc (see chapter 8), and be linked as follows: +%<< +% ocamlc -vmthread other options threads.cma other files +%>> +% +% +% +%d24.1 Module Thread : Lightweight threads for Posix 1003.1c and Win32. +%d*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= +%d% +%d% +%d% 0.5cm +%d%<< +%d type t +%d%>> +%d% +%d% The type of thread handles. +%d% +%d% +%d%Thread creation and termination +%d%=============================== +%d% +%d%<< +%d val create : ('a -> 'b) -> 'a -> t +%d%>> +% +% Thread.create funct arg creates a new thread of control, in +% which the function application funct arg is executed +% concurrently with the other threads of the program. The +% application of Thread.create returns the handle of the newly +% created thread. The new thread terminates when the application +% funct arg returns, either normally or by raising an uncaught +% exception. In the latter case, the exception is printed on +% standard error, but not propagated back to the parent thread. +% Similarly, the result of the application funct arg is discarded +% and not directly accessible to the parent thread. +% +%<< +% val self : unit -> t +%>> +% +% Return the thread currently executing. +% +%<< +% val id : t -> int +%>> +% +% Return the identifier of the given thread. A thread identifier +% is an integer that identifies uniquely the thread. It can be +% used to build data structures indexed by threads. +% +%<< +% val exit : unit -> unit +%>> +% +% Terminate prematurely the currently executing thread. +% +%<< +% val kill : t -> unit +%>> +% +% Terminate prematurely the thread whose handle is given. +% +% +%Suspending threads +%================== +% +%<< +% val delay : float -> unit +%>> +% +% delay d suspends the execution of the calling thread for d +% seconds. The other program threads continue to run during this +% time. +% +%<< +% val join : t -> unit +%>> +% +% join th suspends the execution of the calling thread until the +% thread th has terminated. +% +%<< +% val wait_read : Unix.file_descr -> unit +%>> +% +% See Thread.wait_write[24.1]. +% +%<< +% val wait_write : Unix.file_descr -> unit +%>> +% +% This function does nothing in this implementation. +% +%<< +% val wait_timed_read : Unix.file_descr -> float -> bool +%>> +% +% See Thread.wait_timed_read[24.1]. +% +%<< +% val wait_timed_write : Unix.file_descr -> float -> bool +%>> +% +% Suspend the execution of the calling thread until at least one +% character is available for reading (wait_read) or one character +% can be written without blocking (wait_write) on the given Unix +% file descriptor. Wait for at most the amount of time given as +% second argument (in seconds). Return true if the file +% descriptor is ready for input/output and false if the timeout +% expired. +% These functions return immediately true in the Win32 +% implementation. +% +%<< +% val select : +% Unix.file_descr list -> +% Unix.file_descr list -> +% Unix.file_descr list -> +% float -> Unix.file_descr list * Unix.file_descr list * Unix.file_descr list +%>> +% +% Suspend the execution of the calling thead until input/output +% becomes possible on the given Unix file descriptors. The +% arguments and results have the same meaning as for Unix.select. +% This function is not implemented yet under Win32. +% +%<< +% val wait_pid : int -> int * Unix.process_status +%>> +% +% wait_pid p suspends the execution of the calling thread until +% the process specified by the process identifier p terminates. +% Returns the pid of the child caught and its termination status, +% as per Unix.wait. This function is not implemented under MacOS. +% +%<< +% val wait_signal : int list -> int +%>> +% +% wait_signal sigs suspends the execution of the calling thread +% until the process receives one of the signals specified in the +% list sigs. It then returns the number of the signal received. +% Signal handlers attached to the signals in sigs will not be +% invoked. Do not call wait_signal concurrently from several +% threads on the same signals. +% +%<< +% val yield : unit -> unit +%>> +% +% Re-schedule the calling thread without suspending it. This +% function can be used to give scheduling hints, telling the +% scheduler that now is a good time to switch to other threads. +% +% +% +%24.2 Module Mutex : Locks for mutual exclusion. +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= +% +% +% Mutexes (mutual-exclusion locks) are used to implement critical sections and +%protect shared mutable data structures against concurrent accesses. The +%typical use is (if m is the mutex associated with the data structure D): +%<< +% +% Mutex.lock m; +% (* Critical section that operates over D *); +% Mutex.unlock m +% +%>> +% +% 0.5cm +%<< +% type t +%>> +% +% The type of mutexes. +% +%<< +% val create : unit -> t +%>> +% +% Return a new mutex. +% +%<< +% val lock : t -> unit +%>> +% +% Lock the given mutex. Only one thread can have the mutex locked +% at any time. A thread that attempts to lock a mutex already +% locked by another thread will suspend until the other thread +% unlocks the mutex. +% +%<< +% val try_lock : t -> bool +%>> +% +% Same as Mutex.lock[24.2], but does not suspend the calling +% thread if the mutex is already locked: just return false +% immediately in that case. If the mutex is unlocked, lock it and +% return true. +% +%<< +% val unlock : t -> unit +%>> +% +% Unlock the given mutex. Other threads suspended trying to lock +% the mutex will restart. +% +% +% +%24.3 Module Condition : Condition variables to synchronize between threads. +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= +% +% +% Condition variables are used when one thread wants to wait until another +%thread has finished doing something: the former thread --waits-- on the +%condition variable, the latter thread --signals-- the condition when it is +%done. Condition variables should always be protected by a mutex. The typical +%use is (if D is a shared data structure, m its mutex, and c is a condition +%variable): +%<< +% +% Mutex.lock m; +% while (* some predicate P over D is not satisfied *) do +% Condition.wait c m +% done; +% (* Modify D *) +% if (* the predicate P over D is now satified *) then Condition.signal c; +% Mutex.unlock m +% +%>> +% +% 0.5cm +%<< +% type t +%>> +% +% The type of condition variables. +% +%<< +% val create : unit -> t +%>> +% +% Return a new condition variable. +% +%<< +% val wait : t -> Mutex.t -> unit +%>> +% +% wait c m atomically unlocks the mutex m and suspends the +% calling process on the condition variable c. The process will +% restart after the condition variable c has been signalled. The +% mutex m is locked again before wait returns. +% +%<< +% val signal : t -> unit +%>> +% +% signal c restarts one of the processes waiting on the +% condition variable c. +% +%<< +% val broadcast : t -> unit +%>> +% +% broadcast c restarts all processes waiting on the condition +% variable c. +% +% +% +%24.4 Module Event : First'class synchronous communication. +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* +% +% +% This module implements synchronous inter-thread communications over +%channels. As in John Reppy-s Concurrent ML system, the communication events +%are first'class values: they can be built and combined independently before +%being offered for communication. +% 0.5cm +%<< +% type 'a channel +%>> +% +% The type of communication channels carrying values of type 'a. +% +%<< +% val new_channel : unit -> 'a channel +%>> +% +% Return a new channel. +% +%<< +% type 'a event +%>> +% +% The type of communication events returning a result of type 'a. +% +%<< +% val send : 'a channel -> 'a -> unit event +%>> +% +% send ch v returns the event consisting in sending the value v +% over the channel ch. The result value of this event is (). +% +%<< +% val receive : 'a channel -> 'a event +%>> +% +% receive ch returns the event consisting in receiving a value +% from the channel ch. The result value of this event is the +% value received. +% +%<< +% val always : 'a -> 'a event +%>> +% +% always v returns an event that is always ready for +% synchronization. The result value of this event is v. +% +%<< +% val choose : 'a event list -> 'a event +%>> +% +% choose evl returns the event that is the alternative of all +% the events in the list evl. +% +%<< +% val wrap : 'a event -> ('a -> 'b) -> 'b event +%>> +% +% wrap ev fn returns the event that performs the same +% communications as ev, then applies the post-processing function +% fn on the return value. +% +%<< +% val wrap_abort : 'a event -> (unit -> unit) -> 'a event +%>> +% +% wrap_abort ev fn returns the event that performs the same +% communications as ev, but if it is not selected the function fn +% is called after the synchronization. +% +%<< +% val guard : (unit -> 'a event) -> 'a event +%>> +% +% guard fn returns the event that, when synchronized, computes +% fn() and behaves as the resulting event. This allows to compute +% events with side-effects at the time of the synchronization +% operation. +% +%<< +% val sync : 'a event -> 'a +%>> +% +% --Synchronize-- on an event: offer all the communication +% possibilities specified in the event to the outside world, and +% block until one of the communications succeed. The result value +% of that communication is returned. +% +%<< +% val select : 'a event list -> 'a +%>> +% +% --Synchronize-- on an alternative of events. select evl is +% shorthand for sync(choose evl). +% +%<< +% val poll : 'a event -> 'a option +%>> +% +% Non'blocking version of Event.sync[24.4]: offer all the +% communication possibilities specified in the event to the +% outside world, and if one can take place immediately, perform +% it and return Some r where r is the result value of that +% communication. Otherwise, return None without blocking. +% +% +% +%24.5 Module ThreadUnix : Thread'compatible system calls. +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* +% +% The functionality of this module has been merged back into the Unix[21.1] +%module. Threaded programs can now call the functions from module Unix[21.1] +%directly, and still get the correct behavior (block the calling thread, if +%required, but do not block all threads in the process).Thread'compatible +%system calls. +% 0.5cm +% +%Process handling +%================ +% +%<< +% val execv : string -> string array -> unit +%>> +% +%<< +% val execve : string -> string array -> string array -> unit +%>> +% +%<< +% val execvp : string -> string array -> unit +%>> +% +%<< +% val wait : unit -> int * Unix.process_status +%>> +% +%<< +% val waitpid : Unix.wait_flag list -> int -> int * Unix.process_status +%>> +% +%<< +% val system : string -> Unix.process_status +%>> +% +% +%Basic input/output +%================== +% +%<< +% val read : Unix.file_descr -> string -> int -> int -> int +%>> +% +%<< +% val write : Unix.file_descr -> string -> int -> int -> int +%>> +% +% +%Input/output with timeout +%========================= +% +%<< +% val timed_read : Unix.file_descr -> string -> int -> int -> float -> int +%>> +% +% See ThreadUnix.timed_write[24.5]. +% +%<< +% val timed_write : Unix.file_descr -> string -> int -> int -> float -> int +%>> +% +% Behave as ThreadUnix.read[24.5] and ThreadUnix.write[24.5], +% except that Unix_error(ETIMEDOUT,_,_) is raised if no data is +% available for reading or ready for writing after d seconds. The +% delay d is given in the fifth argument, in seconds. +% +% +%Polling +%======= +% +%<< +% val select : +% Unix.file_descr list -> +% Unix.file_descr list -> +% Unix.file_descr list -> +% float -> Unix.file_descr list * Unix.file_descr list * Unix.file_descr list +%>> +% +% +%Pipes and redirections +%====================== +% +%<< +% val pipe : unit -> Unix.file_descr * Unix.file_descr +%>> +% +%<< +% val open_process_in : string -> Pervasives.in_channel +%>> +% +%<< +% val open_process_out : string -> Pervasives.out_channel +%>> +% +%<< +% val open_process : string -> Pervasives.in_channel * Pervasives.out_channel +%>> +% +% +%Time +%==== +% +%<< +% val sleep : int -> unit +%>> +% +% +%Sockets +%======= +% +%<< +% val socket : Unix.socket_domain -> Unix.socket_type -> int -> Unix.file_descr +%>> +% +%<< +% val accept : Unix.file_descr -> Unix.file_descr * Unix.sockaddr +%>> +% +%<< +% val connect : Unix.file_descr -> Unix.sockaddr -> unit +%>> +% +%<< +% val recv : +% Unix.file_descr -> string -> int -> int -> Unix.msg_flag list -> int +%>> +% +%<< +% val recvfrom : +% Unix.file_descr -> +% string -> int -> int -> Unix.msg_flag list -> int * Unix.sockaddr +%>> +% +%<< +% val send : +% Unix.file_descr -> string -> int -> int -> Unix.msg_flag list -> int +%>> +% +%<< +% val sendto : +% Unix.file_descr -> +% string -> int -> int -> Unix.msg_flag list -> Unix.sockaddr -> int +%>> +% +%<< +% val open_connection : +% Unix.sockaddr -> Pervasives.in_channel * Pervasives.out_channel +%>> +% +% +% +% +%Chapter 25 The graphics library +%********************************** +% +% The graphics library provides a set of portable drawing primitives. Drawing +%takes place in a separate window that is created when open_graph is called. +% Unix: +% This library is implemented under the X11 windows system. +% Programs that use the graphics library must be linked as +% follows: +% << +% ocamlc other options graphics.cma other files +% >> +% For interactive use of the graphics library, do: +% << +% ocamlmktop -o mytop graphics.cma +% ./mytop +% >> +% or (if dynamic linking of C libraries is supported on your +% platform), start ocaml and type #load "graphics.cma";;. +% Here are the graphics mode specifications supported by +% open_graph on the X11 implementation of this library: the +% argument to open_graph has the format "display-name geometry", +% where display-name is the name of the X-windows display to +% connect to, and geometry is a standard X-windows geometry +% specification. The two components are separated by a space. +% Either can be omitted, or both. Examples: +% +% open_graph "foo:0" connects to the display foo:0 and creates a +% window with the default geometry +% open_graph "foo:0 300x100+50-0" connects to the display foo:0 +% and creates a window 300 pixels wide by 100 pixels tall, at +% location (50,0) +% open_graph " 300x100+50-0" connects to the default display and +% creates a window 300 pixels wide by 100 pixels tall, at +% location (50,0) +% open_graph "" connects to the default display and creates a +% window with the default geometry. +% +% +% Windows: +% This library is available both for standalone compiled programs +% and under the toplevel application ocamlwin.exe. For the latter, +% this library must be loaded in'core by typing +% << +% #load "graphics.cma";; +% >> +% +% The screen coordinates are interpreted as shown in the figure below. Notice +%that the coordinate system used is the same as in mathematics: y increases from +%the bottom of the screen to the top of the screen, and angles are measured +%counterclockwise (in degrees). Drawing is clipped to the screen. +% +% *libgraph.gif* +% +% +% +%25.1 Module Graphics : Machine-independent graphics primitives. +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= +% +% +% 0.5cm +%<< +% exception Graphic_failure of string +%>> +% +% Raised by the functions below when they encounter an error. +% +% +%Initializations +%=============== +% +%<< +% val open_graph : string -> unit +%>> +% +% Show the graphics window or switch the screen to graphic mode. +% The graphics window is cleared and the current point is set to +% (0, 0). The string argument is used to pass optional +% information on the desired graphics mode, the graphics window +% size, and so on. Its interpretation is implementation-dependent. +% If the empty string is given, a sensible default is selected. +% +%<< +% val close_graph : unit -> unit +%>> +% +% Delete the graphics window or switch the screen back to text +% mode. +% +%<< +% val set_window_title : string -> unit +%>> +% +% Set the title of the graphics window. +% +%<< +% val resize_window : int -> int -> unit +%>> +% +% Resize and erase the graphics window. +% +%<< +% val clear_graph : unit -> unit +%>> +% +% Erase the graphics window. +% +%<< +% val size_x : unit -> int +%>> +% +% See Graphics.size_y[25.1]. +% +%<< +% val size_y : unit -> int +%>> +% +% Return the size of the graphics window. Coordinates of the +% screen pixels range over 0 .. size_x()-1 and 0 .. size_y()-1. +% Drawings outside of this rectangle are clipped, without causing +% an error. The origin (0,0) is at the lower left corner. +% +% +%Colors +%====== +% +%<< +% type color = int +%>> +% +% A color is specified by its R, G, B components. Each component +% is in the range 0..255. The three components are packed in an +% int: 0xRRGGBB, where RR are the two hexadecimal digits for the +% red component, GG for the green component, BB for the blue +% component. +% +%<< +% val rgb : int -> int -> int -> color +%>> +% +% rgb r g b returns the integer encoding the color with red +% component r, green component g, and blue component b. r, g and +% b are in the range 0..255. +% +%<< +% val set_color : color -> unit +%>> +% +% Set the current drawing color. +% +%<< +% val background : color +%>> +% +% See Graphics.foreground[25.1]. +% +%<< +% val foreground : color +%>> +% +% Default background and foreground colors (usually, either black +% foreground on a white background or white foreground on a +% black background). Graphics.clear_graph[25.1] fills the screen +% with the background color. The initial drawing color is +% foreground. +% +% +%Some predefined colors +%---------------------- +% +%<< +% val black : color +%>> +% +%<< +% val white : color +%>> +% +%<< +% val red : color +%>> +% +%<< +% val green : color +%>> +% +%<< +% val blue : color +%>> +% +%<< +% val yellow : color +%>> +% +%<< +% val cyan : color +%>> +% +%<< +% val magenta : color +%>> +% +% +%Point and line drawing +%====================== +% +%<< +% val plot : int -> int -> unit +%>> +% +% Plot the given point with the current drawing color. +% +%<< +% val plots : (int * int) array -> unit +%>> +% +% Plot the given points with the current drawing color. +% +%<< +% val point_color : int -> int -> color +%>> +% +% Return the color of the given point in the backing store (see +% "Double buffering" below). +% +%<< +% val moveto : int -> int -> unit +%>> +% +% Position the current point. +% +%<< +% val rmoveto : int -> int -> unit +%>> +% +% rmoveto dx dy translates the current point by the given vector. +% +%<< +% val current_x : unit -> int +%>> +% +% Return the abscissa of the current point. +% +%<< +% val current_y : unit -> int +%>> +% +% Return the ordinate of the current point. +% +%<< +% val current_point : unit -> int * int +%>> +% +% Return the position of the current point. +% +%<< +% val lineto : int -> int -> unit +%>> +% +% Draw a line with endpoints the current point and the given +% point, and move the current point to the given point. +% +%<< +% val rlineto : int -> int -> unit +%>> +% +% Draw a line with endpoints the current point and the current +% point translated of the given vector, and move the current +% point to this point. +% +%<< +% val curveto : int * int -> int * int -> int * int -> unit +%>> +% +% curveto b c d draws a cubic Bezier curve starting from the +% current point to point d, with control points b and c, and +% moves the current point to d. +% +%<< +% val draw_rect : int -> int -> int -> int -> unit +%>> +% +% draw_rect x y w h draws the rectangle with lower left corner +% at x,y, width w and height h. The current point is unchanged. +% Raise Invalid_argument if w or h is negative. +% +%<< +% val draw_poly_line : (int * int) array -> unit +%>> +% +% draw_poly_line points draws the line that joins the points +% given by the array argument. The array contains the coordinates +% of the vertices of the polygonal line, which need not be +% closed. The current point is unchanged. +% +%<< +% val draw_poly : (int * int) array -> unit +%>> +% +% draw_poly polygon draws the given polygon. The array contains +% the coordinates of the vertices of the polygon. The current +% point is unchanged. +% +%<< +% val draw_segments : (int * int * int * int) array -> unit +%>> +% +% draw_segments segments draws the segments given in the array +% argument. Each segment is specified as a quadruple (x0, y0, x1, +% y1) where (x0, y0) and (x1, y1) are the coordinates of the end +% points of the segment. The current point is unchanged. +% +%<< +% val draw_arc : int -> int -> int -> int -> int -> int -> unit +%>> +% +% draw_arc x y rx ry a1 a2 draws an elliptical arc with center +% x,y, horizontal radius rx, vertical radius ry, from angle a1 to +% angle a2 (in degrees). The current point is unchanged. Raise +% Invalid_argument if rx or ry is negative. +% +%<< +% val draw_ellipse : int -> int -> int -> int -> unit +%>> +% +% draw_ellipse x y rx ry draws an ellipse with center x,y, +% horizontal radius rx and vertical radius ry. The current point +% is unchanged. Raise Invalid_argument if rx or ry is negative. +% +%<< +% val draw_circle : int -> int -> int -> unit +%>> +% +% draw_circle x y r draws a circle with center x,y and radius r. +% The current point is unchanged. Raise Invalid_argument if r is +% negative. +% +%<< +% val set_line_width : int -> unit +%>> +% +% Set the width of points and lines drawn with the functions +% above. Under X Windows, set_line_width 0 selects a width of 1 +% pixel and a faster, but less precise drawing algorithm than the +% one used when set_line_width 1 is specified. Raise +% Invalid_argument if the argument is negative. +% +% +%Text drawing +%============ +% +%<< +% val draw_char : char -> unit +%>> +% +% See Graphics.draw_string[25.1]. +% +%<< +% val draw_string : string -> unit +%>> +% +% Draw a character or a character string with lower left corner +% at current position. After drawing, the current position is set +% to the lower right corner of the text drawn. +% +%<< +% val set_font : string -> unit +%>> +% +% Set the font used for drawing text. The interpretation of the +% argument to set_font is implementation-dependent. +% +%<< +% val set_text_size : int -> unit +%>> +% +% Set the character size used for drawing text. The +% interpretation of the argument to set_text_size is +% implementation-dependent. +% +%<< +% val text_size : string -> int * int +%>> +% +% Return the dimensions of the given text, if it were drawn with +% the current font and size. +% +% +%Filling +%======= +% +%<< +% val fill_rect : int -> int -> int -> int -> unit +%>> +% +% fill_rect x y w h fills the rectangle with lower left corner +% at x,y, width w and height h, with the current color. Raise +% Invalid_argument if w or h is negative. +% +%<< +% val fill_poly : (int * int) array -> unit +%>> +% +% Fill the given polygon with the current color. The array +% contains the coordinates of the vertices of the polygon. +% +%<< +% val fill_arc : int -> int -> int -> int -> int -> int -> unit +%>> +% +% Fill an elliptical pie slice with the current color. The +% parameters are the same as for Graphics.draw_arc[25.1]. +% +%<< +% val fill_ellipse : int -> int -> int -> int -> unit +%>> +% +% Fill an ellipse with the current color. The parameters are the +% same as for Graphics.draw_ellipse[25.1]. +% +%<< +% val fill_circle : int -> int -> int -> unit +%>> +% +% Fill a circle with the current color. The parameters are the +% same as for Graphics.draw_circle[25.1]. +% +% +%Images +%====== +% +%<< +% type image +%>> +% +% The abstract type for images, in internal representation. +% Externally, images are represented as matrices of colors. +% +%<< +% val transp : color +%>> +% +% In matrices of colors, this color represent a --transparent-- +% point: when drawing the corresponding image, all pixels on the +% screen corresponding to a transparent pixel in the image will +% not be modified, while other points will be set to the color of +% the corresponding point in the image. This allows superimposing +% an image over an existing background. +% +%<< +% val make_image : color array array -> image +%>> +% +% Convert the given color matrix to an image. Each sub'array +% represents one horizontal line. All sub'arrays must have the +% same length; otherwise, exception Graphic_failure is raised. +% +%<< +% val dump_image : image -> color array array +%>> +% +% Convert an image to a color matrix. +% +%<< +% val draw_image : image -> int -> int -> unit +%>> +% +% Draw the given image with lower left corner at the given point. +% +%<< +% val get_image : int -> int -> int -> int -> image +%>> +% +% Capture the contents of a rectangle on the screen as an image. +% The parameters are the same as for Graphics.fill_rect[25.1]. +% +%<< +% val create_image : int -> int -> image +%>> +% +% create_image w h returns a new image w pixels wide and h +% pixels tall, to be used in conjunction with blit_image. The +% initial image contents are random, except that no point is +% transparent. +% +%<< +% val blit_image : image -> int -> int -> unit +%>> +% +% blit_image img x y copies screen pixels into the image img, +% modifying img in-place. The pixels copied are those inside the +% rectangle with lower left corner at x,y, and width and height +% equal to those of the image. Pixels that were transparent in +% img are left unchanged. +% +% +%Mouse and keyboard events +%========================= +% +%<< +% type status = { +% mouse_x : int ; +%>> +% +% X coordinate of the mouse +% +%<< +% mouse_y : int ; +%>> +% +% Y coordinate of the mouse +% +%<< +% button : bool ; +%>> +% +% true if a mouse button is pressed +% +%<< +% keypressed : bool ; +%>> +% +% true if a key has been pressed +% +%<< +% key : char ; +%>> +% +% the character for the key pressed +% +%<< +% } +%>> +% +% To report events. +% +%<< +% type event = +% | Button_down +%>> +% +% A mouse button is pressed +% +%<< +% | Button_up +%>> +% +% A mouse button is released +% +%<< +% | Key_pressed +%>> +% +% A key is pressed +% +%<< +% | Mouse_motion +%>> +% +% The mouse is moved +% +%<< +% | Poll +%>> +% +% Don-t wait; return immediately +% +% To specify events to wait for. +% +%<< +% val wait_next_event : event list -> status +%>> +% +% Wait until one of the events specified in the given event list +% occurs, and return the status of the mouse and keyboard at that +% time. If Poll is given in the event list, return immediately +% with the current status. If the mouse cursor is outside of the +% graphics window, the mouse_x and mouse_y fields of the event are +% outside the range 0..size_x()-1, 0..size_y()-1. Keypresses are +% queued, and dequeued one by one when the Key_pressed event is +% specified. +% +% +%Mouse and keyboard polling +%========================== +% +%<< +% val mouse_pos : unit -> int * int +%>> +% +% Return the position of the mouse cursor, relative to the +% graphics window. If the mouse cursor is outside of the graphics +% window, mouse_pos() returns a point outside of the range +% 0..size_x()-1, 0..size_y()-1. +% +%<< +% val button_down : unit -> bool +%>> +% +% Return true if the mouse button is pressed, false otherwise. +% +%<< +% val read_key : unit -> char +%>> +% +% Wait for a key to be pressed, and return the corresponding +% character. Keypresses are queued. +% +%<< +% val key_pressed : unit -> bool +%>> +% +% Return true if a keypress is available; that is, if read_key +% would not block. +% +% +%Sound +%===== +% +%<< +% val sound : int -> int -> unit +%>> +% +% sound freq dur plays a sound at frequency freq (in hertz) for +% a duration dur (in milliseconds). +% +% +%Double buffering +%================ +% +%<< +% val auto_synchronize : bool -> unit +%>> +% +% By default, drawing takes place both on the window displayed +% on screen, and in a memory area (the -'backing store--). The +% backing store image is used to re-paint the on-screen window +% when necessary. +% To avoid flicker during animations, it is possible to turn off +% on-screen drawing, perform a number of drawing operations in +% the backing store only, then refresh the on-screen window +% explicitly. +% auto_synchronize false turns on-screen drawing off. All +% subsequent drawing commands are performed on the backing store +% only. +% auto_synchronize true refreshes the on-screen window from the +% backing store (as per synchronize), then turns on-screen +% drawing back on. All subsequent drawing commands are performed +% both on screen and in the backing store. +% The default drawing mode corresponds to auto_synchronize true. +% +%<< +% val synchronize : unit -> unit +%>> +% +% Synchronize the backing store and the on-screen window, by +% copying the contents of the backing store onto the graphics +% window. +% +%<< +% val display_mode : bool -> unit +%>> +% +% Set display mode on or off. When turned on, drawings are done +% in the graphics window; when turned off, drawings do not affect +% the graphics window. This occurs independently of drawing into +% the backing store (see the function Graphics.remember_mode[25.1] +% below). Default display mode is on. +% +%<< +% val remember_mode : bool -> unit +%>> +% +% Set remember mode on or off. When turned on, drawings are done +% in the backing store; when turned off, the backing store is +% unaffected by drawings. This occurs independently of drawing +% onto the graphics window (see the function +% Graphics.display_mode[25.1] above). Default remember mode is +% on. +% +% +% +% +%Chapter 26 The dbm library: access to NDBM databases +%******************************************************* +% +% The dbm library provides access to NDBM databases under Unix. NDBM databases +%maintain key/data associations, where both the key and the data are arbitrary +%strings. They support fairly large databases (several gigabytes) and can +%retrieve a keyed item in one or two file system accesses. Refer to the Unix +%manual pages for more information. +% Unix: +% Programs that use the dbm library must be linked as follows: +% << +% ocamlc other options dbm.cma other files +% ocamlopt other options dbm.cmxa other files +% >> +% For interactive use of the dbm library, do: +% << +% ocamlmktop -o mytop dbm.cma +% ./mytop +% >> +% +% or (if dynamic linking of C libraries is supported on your platform), start +%ocaml and type #load "dbm.cma";;. +% Windows: +% This library is not available. +% +% +% +%26.1 Module Dbm : Interface to the NDBM database. +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= +% +% +% 0.5cm +%<< +% type t +%>> +% +% The type of file descriptors opened on NDBM databases. +% +%<< +% type open_flag = +% | Dbm_rdonly +% | Dbm_wronly +% | Dbm_rdwr +% | Dbm_create +%>> +% +% Flags for opening a database (see Dbm.opendbm[26.1]). +% +%<< +% exception Dbm_error of string +%>> +% +% Raised by the following functions when an error is encountered. +% +%<< +% val opendbm : string -> open_flag list -> int -> t +%>> +% +% Open a descriptor on an NDBM database. The first argument is +% the name of the database (without the .dir and .pag suffixes). +% The second argument is a list of flags: Dbm_rdonly opens the +% database for reading only, Dbm_wronly for writing only, +% Dbm_rdwr for reading and writing; Dbm_create causes the +% database to be created if it does not already exist. The third +% argument is the permissions to give to the database files, if +% the database is created. +% +%<< +% val close : t -> unit +%>> +% +% Close the given descriptor. +% +%<< +% val find : t -> string -> string +%>> +% +% find db key returns the data associated with the given key in +% the database opened for the descriptor db. Raise Not_found if +% the key has no associated data. +% +%<< +% val add : t -> string -> string -> unit +%>> +% +% add db key data inserts the pair (key, data) in the database +% db. If the database already contains data associated with key, +% raise Dbm_error "Entry already exists". +% +%<< +% val replace : t -> string -> string -> unit +%>> +% +% replace db key data inserts the pair (key, data) in the +% database db. If the database already contains data associated +% with key, that data is discarded and silently replaced by the +% new data. +% +%<< +% val remove : t -> string -> unit +%>> +% +% remove db key data removes the data associated with key in db. +% If key has no associated data, raise Dbm_error "dbm_delete". +% +%<< +% val firstkey : t -> string +%>> +% +% See Dbm.nextkey[26.1]. +% +%<< +% val nextkey : t -> string +%>> +% +% Enumerate all keys in the given database, in an unspecified +% order. firstkey db returns the first key, and repeated calls +% to nextkey db return the remaining keys. Not_found is raised +% when all keys have been enumerated. +% +%<< +% val iter : (string -> string -> 'a) -> t -> unit +%>> +% +% iter f db applies f to each (key, data) pair in the database +% db. f receives key as first argument and data as second +% argument. +% +% +% +% +% +%Chapter 27 The dynlink library: dynamic loading and linking of object files +%****************************************************************************** +% +% The dynlink library supports type-safe dynamic loading and linking of +%bytecode object files (.cmo and .cma files) in a running bytecode program. Type +%safety is ensured by limiting the set of modules from the running program that +%the loaded object file can access, and checking that the running program and +%the loaded object file have been compiled against the same interfaces for these +%modules. +% Programs that use the dynlink library simply need to link dynlink.cma with +%their object files and other libraries. Dynamic linking is available only to +%bytecode programs compiled with ocamlc, not to native'code programs compiled +%with ocamlopt. +% +% +%27.1 Module Dynlink : Dynamic loading of bytecode object files. +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= +% +% +% 0.5cm +% +%Initialization +%============== +% +%<< +% val init : unit -> unit +%>> +% +% Initialize the Dynlink library. Must be called before any +% other function in this module. +% +% +%Dynamic loading of compiled bytecode files +%========================================== +% +%<< +% val loadfile : string -> unit +%>> +% +% Load the given bytecode object file (.cmo file) or bytecode +% library file (.cma file), and link it with the running program. +% All toplevel expressions in the loaded compilation units are +% evaluated. No facilities are provided to access value names +% defined by the unit. Therefore, the unit must register itself +% its entry points with the main program, e.g. by modifying +% tables of functions. +% +%<< +% val loadfile_private : string -> unit +%>> +% +% Same as loadfile, except that the compilation units just loaded +% are hidden (cannot be referenced) from other modules +% dynamically loaded afterwards. +% +% +%Access control +%============== +% +%<< +% val allow_only : string list -> unit +%>> +% +% allow_only units restricts the compilation units that +% dynamically-linked units can reference: it only allows +% references to the units named in list units. References to any +% other compilation unit will cause a Unavailable_unit error +% during loadfile or loadfile_private. +% Initially (just after calling init), all compilation units +% composing the program currently running are available for +% reference from dynamically-linked units. allow_only can be used +% to grant access to some of them only, e.g. to the units that +% compose the API for dynamically-linked code, and prevent access +% to all other units, e.g. private, internal modules of the +% running program. +% +%<< +% val prohibit : string list -> unit +%>> +% +% prohibit units prohibits dynamically-linked units from +% referencing the units named in list units. This can be used to +% prevent access to selected units, e.g. private, internal +% modules of the running program. +% +%<< +% val default_available_units : unit -> unit +%>> +% +% Reset the set of units that can be referenced from +% dynamically-linked code to its default value, that is, all +% units composing the currently running program. +% +%<< +% val allow_unsafe_modules : bool -> unit +%>> +% +% Govern whether unsafe object files are allowed to be +% dynamically linked. A compilation unit is --unsafe-- if it +% contains declarations of external functions, which can break +% type safety. By default, dynamic linking of unsafe object files +% is not allowed. +% +% +%Deprecated, low-level API for access control +%============================================ +% +%<< +% val add_interfaces : string list -> string list -> unit +%>> +% +% add_interfaces units path grants dynamically-linked object +% files access to the compilation units named in list units. The +% interfaces (.cmi files) for these units are searched in path (a +% list of directory names). +% +%<< +% val add_available_units : (string * Digest.t) list -> unit +%>> +% +% Same as Dynlink.add_interfaces[27.1], but instead of searching +% .cmi files to find the unit interfaces, uses the interface +% digests given for each unit. This way, the .cmi interface files +% need not be available at run-time. The digests can be extracted +% from .cmi files using the extract_crc program installed in the +% Objective Caml standard library directory. +% +%<< +% val clear_available_units : unit -> unit +%>> +% +% Empty the list of compilation units accessible to +% dynamically-linked programs. +% +% +%Error reporting +%=============== +% +%<< +% type linking_error = +% | Undefined_global of string +% | Unavailable_primitive of string +% | Uninitialized_global of string +%>> +% +%<< +% type error = +% | Not_a_bytecode_file of string +% | Inconsistent_import of string +% | Unavailable_unit of string +% | Unsafe_file +% | Linking_error of string * linking_error +% | Corrupted_interface of string +% | File_not_found of string +% | Cannot_open_dll of string +%>> +% +%<< +% exception Error of error +%>> +% +% Errors in dynamic linking are reported by raising the Error +% exception with a description of the error. +% +%<< +% val error_message : error -> string +%>> +% +% Convert an error description to a printable message. +% +% +% +% +% +%Chapter 28 The LablTk library: Tcl/Tk GUI interface +%****************************************************** +% +% The labltk library provides access to the Tcl/Tk GUI from Objective Caml +%programs. This interface is generated in an automated way, and you should refer +%to Tcl/Tk books and man pages for detailed information on the behavior of the +%numerous functions. We also suggest to use ocamlbrowser to see the types of the +%various functions, that are the best documentation for the library itself. +% +% Programs that use the labltk library must be linked as follows: +%<< +% ocamlc other options -I +labltk labltk.cma other files +% ocamlopt other options -I +labltk labltk.cmxa other files +%>> +% +% Unix: +% The labltk library is available for any system with Tcl/Tk +% installed, starting from Tcl 7.5/Tk 4.1 up to Tcl/Tk 8.3. Beware +% that some beta versions may have compatibility problems. +% If the library was not compiled correctly, try to run again the +% configure script with the option -tkdefs switches, where +% switches is a list of C-style inclusion paths leading to the +% right tcl.h and tk.h, for instance --I/usr/local/include/tcl8.3 +% -I/usr/local/include/tk8.3-. +% A script is installed, to make easier the use of the labltk +% library as toplevel. +% +% labltk This is a toplevel including the labltk library, and +% the path is already set as to allow the use of the various +% modules. It also includes code for the Unix and Str +% libraries. You can use it in place of ocaml. +% +% +% Windows: +% The labltk library has been precompiled for use with Tcl/Tk +% 8.3. You must first have it installed on your system. It can be +% downloaded from +% http://www.scriptics.com/products/tcltk/8.3.html. After +% installing it, you must put the dynamically loaded libraries +% tcl83.dll and tk83.dll (from the bin directory of the Tcl +% installation) in a directory included in you path. +% No toplevel is available, but you can load the library from the +% standard toplevel with the following commands. +% +% << +% # #directory "+labltk";; +% # #load "labltk.cma";; +% >> +% You can also load it directly from the command line. +% +% << +% C:\ocaml\bin> ocaml -I +labltk labltk.cma +% >> +% +% +% The labltk library is composed of a large number of modules. +% +% << +% Bell Imagebitmap Place +% Button Imagephoto Radiobutton +% Canvas Label Scale +% Checkbutton Listbox Scrollbar +% Clipboard Menu Selection +% Dialog Menubutton Text +% Entry Message Tk +% Focus Option Tkwait +% Frame Optionmenu Toplevel +% Grab Pack Winfo +% Grid Palette Wm +% >> +% +% Giving a detailed account of each of these module would be impractical here. +%We will just present some of the basic functions in the module Tk. Note that +%for most other modules information can be found in the Tcl man page of their +%name. +% +% +%28.1 Module Tk : Basic functions and types for LablTk +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= +% +% +% 0.5cm +% +%Initialization and termination +%============================== +% +%<< +% val openTk : +% ?display:string -> ?clas:string -> unit -> Widget.toplevel Widget.widget +%>> +% +% Initialize LablTk and open a toplevel window. display is +% described according to the X11 conventions. clas is used for +% the X11 resource mechanism. +% +%<< +% val mainLoop : unit -> unit +%>> +% +% Start the main event loop +% +%<< +% val closeTk : unit -> unit +%>> +% +% Quit the main loop and close all open windows. +% +%<< +% val destroy : 'a Widget.widget -> unit +%>> +% +% Destroy an individual widget. +% +% +%Application wide commands +%========================= +% +%<< +% val update : unit -> unit +%>> +% +% Synchronize display with internal state. +% +%<< +% val appname_get : unit -> string +%>> +% +%<< +% val appname_set : string -> unit +%>> +% +% Get or set the application name. +% +% +%Dimensions +%========== +% +%<< +% type units = [ 'cm of float | -In of float | -Mm of float | -Pix of int | -Pt +%of float ] +%>> +% +%<< +% val pixels : units -> int +%>> +% +% Converts various on-screen units to pixels, respective to the +% default display. Available units are pixels, centimeters, +% inches, millimeters and points +% +% +%Widget layout commands +%====================== +% +%<< +% type anchor = [ 'center | -E | -N | -Ne | -Nw | -S | -Se | -Sw | -W ] +%>> +% +%<< +% type fillMode = [ 'both | -None | -X | -Y ] +%>> +% +%<< +% type side = [ 'bottom | -Left | -Right | -Top ] +%>> +% +%<< +% val pack : +% ?after:'a Widget.widget -> +% ?anchor:anchor -> +% ?before:'b Widget.widget -> +% ?expand:bool -> +% ?fill:fillMode -> +% ?inside:'c Widget.widget -> +% ?ipadx:int -> +% ?ipady:int -> +% ?padx:int -> ?pady:int -> ?side:side -> 'd Widget.widget list -> unit +%>> +% +% Pack a widget inside its parent, using the standard layout +% engine. +% +%<< +% val grid : +% ?column:int -> +% ?columnspan:int -> +% ?inside:'a Widget.widget -> +% ?ipadx:int -> +% ?ipady:int -> +% ?padx:int -> +% ?pady:int -> +% ?row:int -> ?rowspan:int -> ?sticky:string -> 'b Widget.widget list -> unit +%>> +% +% Pack a widget inside its parent, using the grid layout engine. +% +%<< +% type borderMode = [ -Ignore | -Inside | -Outside ] +%>> +% +%<< +% val place : +% ?anchor:anchor -> +% ?bordermode:borderMode -> +% ?height:int -> +% ?inside:'a Widget.widget -> +% ?relheight:float -> +% ?relwidth:float -> +% ?relx:float -> +% ?rely:float -> ?width:int -> ?x:int -> ?y:int -> 'b Widget.widget -> unit +%>> +% +% Pack a widget inside its parent, at absolute coordinates. +% +%<< +% val raise_window : ?above:'a Widget.widget -> 'b Widget.widget -> unit +%>> +% +%<< +% val lower_window : ?below:'a Widget.widget -> 'b Widget.widget -> unit +%>> +% +% Raise or lower the window associated to a widget. +% +% +%Event handling +%============== +% +%<< +% type modifier = [ 'alt +% | 'button1 +% | 'button2 +% | 'button3 +% | 'button4 +% | 'button5 +% | 'control +% | 'double +% | -Lock +% | -Meta +% | -Mod1 +% | -Mod2 +% | -Mod3 +% | -Mod4 +% | -Mod5 +% | -Shift +% | -Triple ] +%>> +% +%<< +% type event = [ 'buttonPress +% | 'buttonPressDetail of int +% | 'buttonRelease +% | 'buttonReleaseDetail of int +% | 'circulate +% | 'colorMap +% | 'configure +% | 'destroy +% | -Enter +% | -Expose +% | -FocusIn +% | -FocusOut +% | -Gravity +% | -KeyPress +% | -KeyPressDetail of string +% | -KeyRelease +% | -KeyReleaseDetail of string +% | -Leave +% | -Map +% | -Modified of modifier list * event +% | -Motion +% | -Property +% | -Reparent +% | -Unmap +% | -Visibility ] +%>> +% +% An event can be either a basic X event, or modified by a key or mouse +%modifier. +%<< +% type eventInfo = { +% mutable ev_Above : int ; +% mutable ev_ButtonNumber : int ; +% mutable ev_Count : int ; +% mutable ev_Detail : string ; +% mutable ev_Focus : bool ; +% mutable ev_Height : int ; +% mutable ev_KeyCode : int ; +% mutable ev_Mode : string ; +% mutable ev_OverrideRedirect : bool ; +% mutable ev_Place : string ; +% mutable ev_State : string ; +% mutable ev_Time : int ; +% mutable ev_Width : int ; +% mutable ev_MouseX : int ; +% mutable ev_MouseY : int ; +% mutable ev_Char : string ; +% mutable ev_BorderWidth : int ; +% mutable ev_SendEvent : bool ; +% mutable ev_KeySymString : string ; +% mutable ev_KeySymInt : int ; +% mutable ev_RootWindow : int ; +% mutable ev_SubWindow : int ; +% mutable ev_Type : int ; +% mutable ev_Widget : Widget.any Widget.widget ; +% mutable ev_RootX : int ; +% mutable ev_RootY : int ; +% } +%>> +% +% Event related information accessible in callbacks. +%<< +% type eventField = [ -above +% | -borderWidth +% | -buttonNumber +% | -char +% | -count +% | -detail +% | -Focus +% | -Height +% | -KeyCode +% | -KeySymInt +% | -KeySymString +% | -Mode +% | -MouseX +% | -MouseY +% | -OverrideRedirect +% | -Place +% | -RootWindow +% | -RootX +% | -RootY +% | -SendEvent +% | -State +% | -SubWindow +% | -Time +% | -Type +% | -Widget +% | -Width ] +%>> +% +% In order to access the above event information, one has to pass a list of +%required event fields to the bind function. +%<< +% val bind : +% events:event list -> +% ?extend:bool -> +% ?breakable:bool -> +% ?fields:eventField list -> +% ?action:(eventInfo -> unit) -> 'a Widget.widget -> unit +%>> +% +% Bind a succession of events on a widget to an action. If +% extend is true then then binding is added after existing ones, +% otherwise it replaces them. breakable should be true when break +% is to be called inside the action. action is called with the +% fields required set in an eventInfo structure. Other fields +% should not be accessed. If action is omitted then existing +% bindings are removed. +% +%<< +% val bind_class : +% events:event list -> +% ?extend:bool -> +% ?breakable:bool -> +% ?fields:eventField list -> +% ?action:(eventInfo -> unit) -> ?on:'a Widget.widget -> string -> unit +%>> +% +% Same thing for all widgets of a given class. If a widget is +% given with label ~on:, the binding will be removed as soon as +% it is destroyed. +% +%<< +% val bind_tag : +% events:event list -> +% ?extend:bool -> +% ?breakable:bool -> +% ?fields:eventField list -> +% ?action:(eventInfo -> unit) -> ?on:'a Widget.widget -> string -> unit +%>> +% +% Same thing for all widgets having a given tag +% +%<< +% val break : unit -> unit +%>> +% +% Used inside a bound action, do not call other actions after +% this one. This is only possible if this action was bound with +% ~breakable:true. +% +% +% +% +% +%Chapter 29 The bigarray library +%********************************** +% +% The bigarray library implements large, multi-dimensional, numerical arrays. +%These arrays are called -'big arrays-- to distinguish them from the standard +%Caml arrays described in section 20.2. The main differences between -'big +%arrays-- and standard Caml arrays are as follows: +% +% - Big arrays are not limited in size, unlike Caml arrays (float array are +% limited to 2097151 elements on a 32'bit platform, other array types to +% 4194303 elements). +% - Big arrays are multi-dimensional. Any number of dimensions between 1 and 16 +% is supported. In contrast, Caml arrays are mono-dimensional and require +% encoding multi-dimensional arrays as arrays of arrays. +% - Big arrays can only contain integers and floating-point numbers, while Caml +% arrays can contain arbitrary Caml data types. However, big arrays provide +% more space-efficient storage of integer and floating-point elements, in +% particular because they support --small-- types such as single-precision +% floats and 8 and 16'bit integers, in addition to the standard Caml types of +% double-precision floats and 32 and 64'bit integers. +% - The memory layout of big arrays is entirely compatible with that of arrays +% in C and Fortran, allowing large arrays to be passed back and forth between +% Caml code and C / Fortran code with no data copying at all. +% - Big arrays support interesting high-level operations that normal arrays do +% not provide efficiently, such as extracting sub'arrays and --slicing-- a +% multi-dimensional array along certain dimensions, all without any copying. +% Programs that use the bigarray library must be linked as follows: +%<< +% ocamlc other options bigarray.cma other files +% ocamlopt other options bigarray.cmxa other files +%>> +% For interactive use of the bigarray library, do: +%<< +% ocamlmktop -o mytop bigarray.cma +% ./mytop +%>> +% or (if dynamic linking of C libraries is supported on your platform), start +%ocaml and type #load "bigarray.cma";;. +% +% +%29.1 Module Bigarray : Large, multi-dimensional, numerical arrays. +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* +% +% +% This module implements multi-dimensional arrays of integers and +%floating-point numbers, thereafter referred to as -'big arrays--. The +%implementation allows efficient sharing of large numerical arrays between Caml +%code and C or Fortran numerical libraries. +% Concerning the naming conventions, users of this module are encouraged to do +%open Bigarray in their source, then refer to array types and operations via +%short dot notation, e.g. Array1.t or Array2.sub. +% Big arrays support all the Caml ad-hoc polymorphic operations: +% +% - comparisons (=, <>, <=, etc, as well as Pervasives.compare[19.2]); +% - hashing (module Hash); +% - and structured input-output (Pervasives.output_value[19.2] and +% Pervasives.input_value[19.2], as well as the functions from the +% Marshal[20.19] module). +% +% 0.5cm +% +%Element kinds +%============= +% +% Big arrays can contain elements of the following kinds: +% +% - IEEE single precision (32 bits) floating-point numbers +% (Bigarray.float32_elt[29.1]), +% - IEEE double precision (64 bits) floating-point numbers +% (Bigarray.float64_elt[29.1]), +% - IEEE single precision (2 * 32 bits) floating-point complex numbers +% (Bigarray.complex32_elt[29.1]), +% - IEEE double precision (2 * 64 bits) floating-point complex numbers +% (Bigarray.complex64_elt[29.1]), +% - 8'bit integers (signed or unsigned) (Bigarray.int8_signed_elt[29.1] or +% Bigarray.int8_unsigned_elt[29.1]), +% - 16'bit integers (signed or unsigned) (Bigarray.int16_signed_elt[29.1] or +% Bigarray.int16_unsigned_elt[29.1]), +% - Caml integers (signed, 31 bits on 32'bit architectures, 63 bits on 64'bit +% architectures) (Bigarray.int_elt[29.1]), +% - 32'bit signed integer (Bigarray.int32_elt[29.1]), +% - 64'bit signed integers (Bigarray.int64_elt[29.1]), +% - platform-native signed integers (32 bits on 32'bit architectures, 64 bits +% on 64'bit architectures) (Bigarray.nativeint_elt[29.1]). +% +% Each element kind is represented at the type level by one of the abstract +%types defined below. +%<< +% type float32_elt +%>> +% +%<< +% type float64_elt +%>> +% +%<< +% type complex32_elt +%>> +% +%<< +% type complex64_elt +%>> +% +%<< +% type int8_signed_elt +%>> +% +%<< +% type int8_unsigned_elt +%>> +% +%<< +% type int16_signed_elt +%>> +% +%<< +% type int16_unsigned_elt +%>> +% +%<< +% type int_elt +%>> +% +%<< +% type int32_elt +%>> +% +%<< +% type int64_elt +%>> +% +%<< +% type nativeint_elt +%>> +% +%<< +% type ('a, 'b) kind +%>> +% +% To each element kind is associated a Caml type, which is the +% type of Caml values that can be stored in the big array or read +% back from it. This type is not necessarily the same as the type +% of the array elements proper: for instance, a big array whose +% elements are of kind float32_elt contains 32'bit single +% precision floats, but reading or writing one of its elements +% from Caml uses the Caml type float, which is 64'bit double +% precision floats. +% The abstract type ('a, 'b) kind captures this association of a +% Caml type 'a for values read or written in the big array, and +% of an element kind 'b which represents the actual contents of +% the big array. The following predefined values of type kind +% list all possible associations of Caml types with element +% kinds: +% +%<< +% val float32 : (float, float32_elt) kind +%>> +% +% See Bigarray.char[29.1]. +% +%<< +% val float64 : (float, float64_elt) kind +%>> +% +% See Bigarray.char[29.1]. +% +%<< +% val complex32 : (Complex.t, complex32_elt) kind +%>> +% +% See Bigarray.char[29.1]. +% +%<< +% val complex64 : (Complex.t, complex64_elt) kind +%>> +% +% See Bigarray.char[29.1]. +% +%<< +% val int8_signed : (int, int8_signed_elt) kind +%>> +% +% See Bigarray.char[29.1]. +% +%<< +% val int8_unsigned : (int, int8_unsigned_elt) kind +%>> +% +% See Bigarray.char[29.1]. +% +%<< +% val int16_signed : (int, int16_signed_elt) kind +%>> +% +% See Bigarray.char[29.1]. +% +%<< +% val int16_unsigned : (int, int16_unsigned_elt) kind +%>> +% +% See Bigarray.char[29.1]. +% +%<< +% val int : (int, int_elt) kind +%>> +% +% See Bigarray.char[29.1]. +% +%<< +% val int32 : (int32, int32_elt) kind +%>> +% +% See Bigarray.char[29.1]. +% +%<< +% val int64 : (int64, int64_elt) kind +%>> +% +% See Bigarray.char[29.1]. +% +%<< +% val nativeint : (nativeint, nativeint_elt) kind +%>> +% +% See Bigarray.char[29.1]. +% +%<< +% val char : (char, int8_unsigned_elt) kind +%>> +% +% As shown by the types of the values above, big arrays of kind +% float32_elt and float64_elt are accessed using the Caml type +% float. Big arrays of complex kinds complex32_elt, complex64_elt +% are accessed with the Caml type Complex.t[20.6]. Big arrays of +% integer kinds are accessed using the smallest Caml integer type +% large enough to represent the array elements: int for 8- and +% 16'bit integer bigarrays, as well as Caml-integer bigarrays; +% int32 for 32'bit integer bigarrays; int64 for 64'bit integer +% bigarrays; and nativeint for platform-native integer bigarrays. +% Finally, big arrays of kind int8_unsigned_elt can also be +% accessed as arrays of characters instead of arrays of small +% integers, by using the kind value char instead of +% int8_unsigned. +% +% +%Array layouts +%============= +% +%<< +% type c_layout +%>> +% +% See Bigarray.fortran_layout[29.1]. +% +%<< +% type fortran_layout +%>> +% +% To facilitate interoperability with existing C and Fortran +% code, this library supports two different memory layouts for +% big arrays, one compatible with the C conventions, the other +% compatible with the Fortran conventions. +% In the C-style layout, array indices start at 0, and +% multi-dimensional arrays are laid out in row-major format. That +% is, for a two-dimensional array, all elements of row 0 are +% contiguous in memory, followed by all elements of row 1, etc. +% In other terms, the array elements at (x,y) and (x, y+1) are +% adjacent in memory. +% In the Fortran-style layout, array indices start at 1, and +% multi-dimensional arrays are laid out in column-major format. +% That is, for a two-dimensional array, all elements of column 0 +% are contiguous in memory, followed by all elements of column 1, +% etc. In other terms, the array elements at (x,y) and (x+1, y) +% are adjacent in memory. +% Each layout style is identified at the type level by the +% abstract types Bigarray.c_layout[29.1] and fortran_layout +% respectively. +% +%<< +% type 'a layout +%>> +% +% The type 'a layout represents one of the two supported memory +% layouts: C-style if 'a is Bigarray.c_layout[29.1], Fortran-style +% if 'a is Bigarray.fortran_layout[29.1]. +% +% +%Supported layouts +%----------------- +% +% The abstract values c_layout and fortran_layout represent the two supported +%layouts at the level of values. +%<< +% val c_layout : c_layout layout +%>> +% +%<< +% val fortran_layout : fortran_layout layout +%>> +% +% +%Generic arrays (of arbitrarily many dimensions) +%=============================================== +% +%<< +% module Genarray : >> +% +% sig +% +% +% << +% type ('a, 'b, 'c) t +% >> +% +% The type Genarray.t is the type of big arrays with variable +% numbers of dimensions. Any number of dimensions between 1 and +% 16 is supported. +% The three type parameters to Genarray.t identify the array +% element kind and layout, as follows: +% +% - the first parameter, 'a, is the Caml type for accessing +% array elements (float, int, int32, int64, nativeint); +% - the second parameter, 'b, is the actual kind of array +% elements (float32_elt, float64_elt, int8_signed_elt, +% int8_unsigned_elt, etc); +% - the third parameter, 'c, identifies the array layout +% (c_layout or fortran_layout). +% +% For instance, (float, float32_elt, fortran_layout) Genarray.t +% is the type of generic big arrays containing 32'bit floats +% in Fortran layout; reads and writes in this array use the +% Caml type float. +% +% << +% val create : +% ('a, 'b) Bigarray.kind -> +% 'c Bigarray.layout -> int array -> ('a, 'b, 'c) t +% >> +% +% Genarray.create kind layout dimensions returns a new big +% array whose element kind is determined by the parameter kind +% (one of float32, float64, int8_signed, etc) and whose layout +% is determined by the parameter layout (one of c_layout or +% fortran_layout). The dimensions parameter is an array of +% integers that indicate the size of the big array in each +% dimension. The length of dimensions determines the number of +% dimensions of the bigarray. +% For instance, Genarray.create int32 c_layout [|4;6;8|] +% returns a fresh big array of 32'bit integers, in C layout, +% having three dimensions, the three dimensions being 4, 6 and +% 8 respectively. +% Big arrays returned by Genarray.create are not initialized: +% the initial values of array elements is unspecified. +% Genarray.create raises Invalid_arg if the number of +% dimensions is not in the range 1 to 16 inclusive, or if one +% of the dimensions is negative. +% +% << +% val num_dims : ('a, 'b, 'c) t -> int +% >> +% +% Return the number of dimensions of the given big array. +% +% << +% val dims : ('a, 'b, 'c) t -> int array +% >> +% +% Genarray.dims a returns all dimensions of the big array a, +% as an array of integers of length Genarray.num_dims a. +% +% << +% val nth_dim : ('a, 'b, 'c) t -> int -> int +% >> +% +% Genarray.nth_dim a n returns the n-th dimension of the big +% array a. The first dimension corresponds to n = 0; the +% second dimension corresponds to n = 1; the last dimension, +% to n = Genarray.num_dims a - 1. Raise Invalid_arg if n is +% less than 0 or greater or equal than Genarray.num_dims a. +% +% << +% val kind : ('a, 'b, 'c) t -> ('a, 'b) Bigarray.kind +% >> +% +% Return the kind of the given big array. +% +% << +% val layout : ('a, 'b, 'c) t -> 'c Bigarray.layout +% >> +% +% Return the layout of the given big array. +% +% << +% val get : ('a, 'b, 'c) t -> int array -> 'a +% >> +% +% Read an element of a generic big array. Genarray.get a +% [|i1; ...; iN|] returns the element of a whose coordinates +% are i1 in the first dimension, i2 in the second dimension, +% ..., iN in the N-th dimension. +% If a has C layout, the coordinates must be greater or equal +% than 0 and strictly less than the corresponding dimensions +% of a. If a has Fortran layout, the coordinates must be +% greater or equal than 1 and less or equal than the +% corresponding dimensions of a. Raise Invalid_arg if the +% array a does not have exactly N dimensions, or if the +% coordinates are outside the array bounds. +% If N > 3, alternate syntax is provided: you can write a.{i1, +% i2, ..., iN} instead of Genarray.get a [|i1; ...; iN|]. (The +% syntax a.{...} with one, two or three coordinates is +% reserved for accessing one-, two- and three-dimensional +% arrays as described below.) +% +% << +% val set : ('a, 'b, 'c) t -> int array -> 'a -> unit +% >> +% +% Assign an element of a generic big array. Genarray.set a +% [|i1; ...; iN|] v stores the value v in the element of a +% whose coordinates are i1 in the first dimension, i2 in the +% second dimension, ..., iN in the N-th dimension. +% The array a must have exactly N dimensions, and all +% coordinates must lie inside the array bounds, as described +% for Genarray.get; otherwise, Invalid_arg is raised. +% If N > 3, alternate syntax is provided: you can write a.{i1, +% i2, ..., iN} <- v instead of Genarray.set a [|i1; ...; iN|] +% v. (The syntax a.{...} <- v with one, two or three +% coordinates is reserved for updating one-, two- and +% three-dimensional arrays as described below.) +% +% << +% val sub_left : +% ('a, 'b, Bigarray.c_layout) t -> +% int -> int -> ('a, 'b, Bigarray.c_layout) t +% >> +% +% Extract a sub'array of the given big array by restricting +% the first (left-most) dimension. Genarray.sub_left a ofs len +% returns a big array with the same number of dimensions as a, +% and the same dimensions as a, except the first dimension, +% which corresponds to the interval [ofs ... ofs + len - 1] of +% the first dimension of a. No copying of elements is +% involved: the sub'array and the original array share the same +% storage space. In other terms, the element at coordinates +% [|i1; ...; iN|] of the sub'array is identical to the element +% at coordinates [|i1+ofs; ...; iN|] of the original array a. +% Genarray.sub_left applies only to big arrays in C layout. +% Raise Invalid_arg if ofs and len do not designate a valid +% sub'array of a, that is, if ofs < 0, or len < 0, or ofs + +% len > Genarray.nth_dim a 0. +% +% << +% val sub_right : +% ('a, 'b, Bigarray.fortran_layout) t -> +% int -> int -> ('a, 'b, Bigarray.fortran_layout) t +% >> +% +% Extract a sub'array of the given big array by restricting +% the last (right-most) dimension. Genarray.sub_right a ofs +% len returns a big array with the same number of dimensions +% as a, and the same dimensions as a, except the last +% dimension, which corresponds to the interval [ofs ... ofs + +% len - 1] of the last dimension of a. No copying of elements +% is involved: the sub'array and the original array share the +% same storage space. In other terms, the element at +% coordinates [|i1; ...; iN|] of the sub'array is identical to +% the element at coordinates [|i1; ...; iN+ofs|] of the +% original array a. +% Genarray.sub_right applies only to big arrays in Fortran +% layout. Raise Invalid_arg if ofs and len do not designate a +% valid sub'array of a, that is, if ofs < 1, or len < 0, or +% ofs + len > Genarray.nth_dim a (Genarray.num_dims a - 1). +% +% << +% val slice_left : +% ('a, 'b, Bigarray.c_layout) t -> +% int array -> ('a, 'b, Bigarray.c_layout) t +% >> +% +% Extract a sub'array of lower dimension from the given big +% array by fixing one or several of the first (left-most) +% coordinates. Genarray.slice_left a [|i1; ... ; iM|] returns +% the --slice-- of a obtained by setting the first M +% coordinates to i1, ..., iM. If a has N dimensions, the slice +% has dimension N - M, and the element at coordinates [|j1; +% ...; j(N-M)|] in the slice is identical to the element at +% coordinates [|i1; ...; iM; j1; ...; j(N-M)|] in the original +% array a. No copying of elements is involved: the slice and +% the original array share the same storage space. +% Genarray.slice_left applies only to big arrays in C layout. +% Raise Invalid_arg if M >= N, or if [|i1; ... ; iM|] is +% outside the bounds of a. +% +% << +% val slice_right : +% ('a, 'b, Bigarray.fortran_layout) t -> +% int array -> ('a, 'b, Bigarray.fortran_layout) t +% >> +% +% Extract a sub'array of lower dimension from the given big +% array by fixing one or several of the last (right-most) +% coordinates. Genarray.slice_right a [|i1; ... ; iM|] returns +% the --slice-- of a obtained by setting the last M +% coordinates to i1, ..., iM. If a has N dimensions, the slice +% has dimension N - M, and the element at coordinates [|j1; +% ...; j(N-M)|] in the slice is identical to the element at +% coordinates [|j1; ...; j(N-M); i1; ...; iM|] in the original +% array a. No copying of elements is involved: the slice and +% the original array share the same storage space. +% Genarray.slice_right applies only to big arrays in Fortran +% layout. Raise Invalid_arg if M >= N, or if [|i1; ... ; iM|] +% is outside the bounds of a. +% +% << +% val blit : ('a, 'b, 'c) t -> ('a, 'b, 'c) t -> unit +% >> +% +% Copy all elements of a big array in another big array. +% Genarray.blit src dst copies all elements of src into dst. +% Both arrays src and dst must have the same number of +% dimensions and equal dimensions. Copying a sub'array of src +% to a sub'array of dst can be achieved by applying +% Genarray.blit to sub'array or slices of src and dst. +% +% << +% val fill : ('a, 'b, 'c) t -> 'a -> unit +% >> +% +% Set all elements of a big array to a given value. +% Genarray.fill a v stores the value v in all elements of the +% big array a. Setting only some elements of a to v can be +% achieved by applying Genarray.fill to a sub'array or a slice +% of a. +% +% << +% val map_file : +% Unix.file_descr -> +% ('a, 'b) Bigarray.kind -> +% 'c Bigarray.layout -> bool -> int array -> ('a, 'b, 'c) t +% >> +% +% Memory mapping of a file as a big array. Genarray.map_file +% fd kind layout shared dims returns a big array of kind kind, +% layout layout, and dimensions as specified in dims. The data +% contained in this big array are the contents of the file +% referred to by the file descriptor fd (as opened previously +% with Unix.openfile, for example). If shared is true, all +% modifications performed on the array are reflected in the +% file. This requires that fd be opened with write permissions. +% If shared is false, modifications performed on the array +% are done in memory only, using copy-on-write of the modified +% pages; the underlying file is not affected. +% Genarray.map_file is much more efficient than reading the +% whole file in a big array, modifying that big array, and +% writing it afterwards. +% To adjust automatically the dimensions of the big array to +% the actual size of the file, the major dimension (that is, +% the first dimension for an array with C layout, and the last +% dimension for an array with Fortran layout) can be given as +% -1. Genarray.map_file then determines the major dimension +% from the size of the file. The file must contain an integral +% number of sub'arrays as determined by the non-major +% dimensions, otherwise Failure is raised. +% If all dimensions of the big array are given, the file size +% is matched against the size of the big array. If the file is +% larger than the big array, only the initial portion of the +% file is mapped to the big array. If the file is smaller than +% the big array, the file is automatically grown to the size +% of the big array. This requires write permissions on fd. +% +% +% - end +% +% +%One-dimensional arrays +%====================== +% +%<< +% module Array1 : >> +% +% sig +% +% +% << +% type ('a, 'b, 'c) t +% >> +% +% The type of one-dimensional big arrays whose elements have +% Caml type 'a, representation kind 'b, and memory layout 'c. +% +% << +% val create : +% ('a, 'b) Bigarray.kind -> +% 'c Bigarray.layout -> int -> ('a, 'b, 'c) t +% >> +% +% Array1.create kind layout dim returns a new bigarray of one +% dimension, whose size is dim. kind and layout determine the +% array element kind and the array layout as described for +% Genarray.create. +% +% << +% val dim : ('a, 'b, 'c) t -> int +% >> +% +% Return the size (dimension) of the given one-dimensional +% big array. +% +% << +% val kind : ('a, 'b, 'c) t -> ('a, 'b) Bigarray.kind +% >> +% +% Return the kind of the given big array. +% +% << +% val layout : ('a, 'b, 'c) t -> 'c Bigarray.layout +% >> +% +% Return the layout of the given big array. +% +% << +% val get : ('a, 'b, 'c) t -> int -> 'a +% >> +% +% Array1.get a x, or alternatively a.{x}, returns the +% element of a at index x. x must be greater or equal than 0 +% and strictly less than Array1.dim a if a has C layout. If a +% has Fortran layout, x must be greater or equal than 1 and +% less or equal than Array1.dim a. Otherwise, Invalid_arg is +% raised. +% +% << +% val set : ('a, 'b, 'c) t -> int -> 'a -> unit +% >> +% +% Array1.set a x v, also written a.{x} <- v, stores the value +% v at index x in a. x must be inside the bounds of a as +% described in Bigarray.Array1.get[29.1]; otherwise, +% Invalid_arg is raised. +% +% << +% val sub : ('a, 'b, 'c) t -> +% int -> int -> ('a, 'b, 'c) t +% >> +% +% Extract a sub'array of the given one-dimensional big array. +% See Genarray.sub_left for more details. +% +% << +% val blit : ('a, 'b, 'c) t -> ('a, 'b, 'c) t -> unit +% >> +% +% Copy the first big array to the second big array. See +% Genarray.blit for more details. +% +% << +% val fill : ('a, 'b, 'c) t -> 'a -> unit +% >> +% +% Fill the given big array with the given value. See +% Genarray.fill for more details. +% +% << +% val of_array : +% ('a, 'b) Bigarray.kind -> +% 'c Bigarray.layout -> 'a array -> ('a, 'b, 'c) t +% >> +% +% Build a one-dimensional big array initialized from the +% given array. +% +% << +% val map_file : +% Unix.file_descr -> +% ('a, 'b) Bigarray.kind -> +% 'c Bigarray.layout -> bool -> int -> ('a, 'b, 'c) t +% >> +% +% Memory mapping of a file as a one-dimensional big array. +% See Bigarray.Genarray.map_file[29.1] for more details. +% +% +% - end +% +% One-dimensional arrays. The Array1 structure provides +% operations similar to those of Bigarray.Genarray[29.1], but +% specialized to the case of one-dimensional arrays. (The Array2 +% and Array3 structures below provide operations specialized for +% two- and three-dimensional arrays.) Statically knowing the +% number of dimensions of the array allows faster operations, and +% more precise static type'checking. +% +% +%Two-dimensional arrays +%====================== +% +%<< +% module Array2 : >> +% +% sig +% +% +% << +% type ('a, 'b, 'c) t +% >> +% +% The type of two-dimensional big arrays whose elements have +% Caml type 'a, representation kind 'b, and memory layout 'c. +% +% << +% val create : +% ('a, 'b) Bigarray.kind -> +% 'c Bigarray.layout -> int -> int -> ('a, 'b, 'c) t +% >> +% +% Array2.create kind layout dim1 dim2 returns a new bigarray +% of two dimension, whose size is dim1 in the first dimension +% and dim2 in the second dimension. kind and layout determine +% the array element kind and the array layout as described for +% Bigarray.Genarray.create[29.1]. +% +% << +% val dim1 : ('a, 'b, 'c) t -> int +% >> +% +% Return the first dimension of the given two-dimensional big +% array. +% +% << +% val dim2 : ('a, 'b, 'c) t -> int +% >> +% +% Return the second dimension of the given two-dimensional big +% array. +% +% << +% val kind : ('a, 'b, 'c) t -> ('a, 'b) Bigarray.kind +% >> +% +% Return the kind of the given big array. +% +% << +% val layout : ('a, 'b, 'c) t -> 'c Bigarray.layout +% >> +% +% Return the layout of the given big array. +% +% << +% val get : ('a, 'b, 'c) t -> int -> int -> 'a +% >> +% +% Array2.get a x y, also written a.{x,y}, returns the element +% of a at coordinates (x, y). x and y must be within the +% bounds of a, as described for Bigarray.Genarray.get[29.1]; +% otherwise, Invalid_arg is raised. +% +% << +% val set : ('a, 'b, 'c) t -> int -> int -> 'a -> unit +% >> +% +% Array2.set a x y v, or alternatively a.{x,y} <- v, stores +% the value v at coordinates (x, y) in a. x and y must be +% within the bounds of a, as described for +% Bigarray.Genarray.set[29.1]; otherwise, Invalid_arg is +% raised. +% +% << +% val sub_left : +% ('a, 'b, Bigarray.c_layout) t -> +% int -> int -> ('a, 'b, Bigarray.c_layout) t +% >> +% +% Extract a two-dimensional sub'array of the given +% two-dimensional big array by restricting the first +% dimension. See Bigarray.Genarray.sub_left[29.1] for more +% details. Array2.sub_left applies only to arrays with C +% layout. +% +% << +% val sub_right : +% ('a, 'b, Bigarray.fortran_layout) t -> +% int -> int -> ('a, 'b, Bigarray.fortran_layout) t +% >> +% +% Extract a two-dimensional sub'array of the given +% two-dimensional big array by restricting the second +% dimension. See Bigarray.Genarray.sub_right[29.1] for more +% details. Array2.sub_right applies only to arrays with +% Fortran layout. +% +% << +% val slice_left : +% ('a, 'b, Bigarray.c_layout) t -> +% int -> ('a, 'b, Bigarray.c_layout) Bigarray.Array1.t +% >> +% +% Extract a row (one-dimensional slice) of the given +% two-dimensional big array. The integer parameter is the +% index of the row to extract. See +% Bigarray.Genarray.slice_left[29.1] for more details. +% Array2.slice_left applies only to arrays with C layout. +% +% << +% val slice_right : +% ('a, 'b, Bigarray.fortran_layout) t -> +% int -> ('a, 'b, Bigarray.fortran_layout) Bigarray.Array1.t +% >> +% +% Extract a column (one-dimensional slice) of the given +% two-dimensional big array. The integer parameter is the +% index of the column to extract. See +% Bigarray.Genarray.slice_right[29.1] for more details. +% Array2.slice_right applies only to arrays with Fortran +% layout. +% +% << +% val blit : ('a, 'b, 'c) t -> ('a, 'b, 'c) t -> unit +% >> +% +% Copy the first big array to the second big array. See +% Bigarray.Genarray.blit[29.1] for more details. +% +% << +% val fill : ('a, 'b, 'c) t -> 'a -> unit +% >> +% +% Fill the given big array with the given value. See +% Bigarray.Genarray.fill[29.1] for more details. +% +% << +% val of_array : +% ('a, 'b) Bigarray.kind -> +% 'c Bigarray.layout -> 'a array array -> ('a, 'b, 'c) t +% >> +% +% Build a two-dimensional big array initialized from the +% given array of arrays. +% +% << +% val map_file : +% Unix.file_descr -> +% ('a, 'b) Bigarray.kind -> +% 'c Bigarray.layout -> bool -> int -> int -> ('a, 'b, 'c) t +% >> +% +% Memory mapping of a file as a two-dimensional big array. +% See Bigarray.Genarray.map_file[29.1] for more details. +% +% +% - end +% +% Two-dimensional arrays. The Array2 structure provides +% operations similar to those of Bigarray.Genarray[29.1], but +% specialized to the case of two-dimensional arrays. +% +% +%Three-dimensional arrays +%======================== +% +%<< +% module Array3 : >> +% +% sig +% +% +% << +% type ('a, 'b, 'c) t +% >> +% +% The type of three-dimensional big arrays whose elements have +% Caml type 'a, representation kind 'b, and memory layout 'c. +% +% << +% val create : +% ('a, 'b) Bigarray.kind -> +% 'c Bigarray.layout -> int -> int -> int -> ('a, 'b, 'c) t +% >> +% +% Array3.create kind layout dim1 dim2 dim3 returns a new +% bigarray of three dimension, whose size is dim1 in the first +% dimension, dim2 in the second dimension, and dim3 in the +% third. kind and layout determine the array element kind and +% the array layout as described for +% Bigarray.Genarray.create[29.1]. +% +% << +% val dim1 : ('a, 'b, 'c) t -> int +% >> +% +% Return the first dimension of the given three-dimensional +% big array. +% +% << +% val dim2 : ('a, 'b, 'c) t -> int +% >> +% +% Return the second dimension of the given three-dimensional +% big array. +% +% << +% val dim3 : ('a, 'b, 'c) t -> int +% >> +% +% Return the third dimension of the given three-dimensional +% big array. +% +% << +% val kind : ('a, 'b, 'c) t -> ('a, 'b) Bigarray.kind +% >> +% +% Return the kind of the given big array. +% +% << +% val layout : ('a, 'b, 'c) t -> 'c Bigarray.layout +% >> +% +% Return the layout of the given big array. +% +% << +% val get : ('a, 'b, 'c) t -> int -> int -> int -> 'a +% >> +% +% Array3.get a x y z, also written a.{x,y,z}, returns the +% element of a at coordinates (x, y, z). x, y and z must be +% within the bounds of a, as described for +% Bigarray.Genarray.get[29.1]; otherwise, Invalid_arg is +% raised. +% +% << +% val set : ('a, 'b, 'c) t -> int -> int -> int -> 'a -> unit +% >> +% +% Array3.set a x y v, or alternatively a.{x,y,z} <- v, stores +% the value v at coordinates (x, y, z) in a. x, y and z must +% be within the bounds of a, as described for +% Bigarray.Genarray.set[29.1]; otherwise, Invalid_arg is +% raised. +% +% << +% val sub_left : +% ('a, 'b, Bigarray.c_layout) t -> +% int -> int -> ('a, 'b, Bigarray.c_layout) t +% >> +% +% Extract a three-dimensional sub'array of the given +% three-dimensional big array by restricting the first +% dimension. See Bigarray.Genarray.sub_left[29.1] for more +% details. Array3.sub_left applies only to arrays with C +% layout. +% +% << +% val sub_right : +% ('a, 'b, Bigarray.fortran_layout) t -> +% int -> int -> ('a, 'b, Bigarray.fortran_layout) t +% >> +% +% Extract a three-dimensional sub'array of the given +% three-dimensional big array by restricting the second +% dimension. See Bigarray.Genarray.sub_right[29.1] for more +% details. Array3.sub_right applies only to arrays with +% Fortran layout. +% +% << +% val slice_left_1 : +% ('a, 'b, Bigarray.c_layout) t -> +% int -> int -> ('a, 'b, Bigarray.c_layout) Bigarray.Array1.t +% >> +% +% Extract a one-dimensional slice of the given +% three-dimensional big array by fixing the first two +% coordinates. The integer parameters are the coordinates of +% the slice to extract. See Bigarray.Genarray.slice_left[29.1] +% for more details. Array3.slice_left_1 applies only to arrays +% with C layout. +% +% << +% val slice_right_1 : +% ('a, 'b, Bigarray.fortran_layout) t -> +% int -> int -> ('a, 'b, Bigarray.fortran_layout) Bigarray.Array1.t +% >> +% +% Extract a one-dimensional slice of the given +% three-dimensional big array by fixing the last two +% coordinates. The integer parameters are the coordinates of +% the slice to extract. See +% Bigarray.Genarray.slice_right[29.1] for more details. +% Array3.slice_right_1 applies only to arrays with Fortran +% layout. +% +% << +% val slice_left_2 : +% ('a, 'b, Bigarray.c_layout) t -> +% int -> ('a, 'b, Bigarray.c_layout) Bigarray.Array2.t +% >> +% +% Extract a two-dimensional slice of the given +% three-dimensional big array by fixing the first coordinate. +% The integer parameter is the first coordinate of the slice to +% extract. See Bigarray.Genarray.slice_left[29.1] for more +% details. Array3.slice_left_2 applies only to arrays with C +% layout. +% +% << +% val slice_right_2 : +% ('a, 'b, Bigarray.fortran_layout) t -> +% int -> ('a, 'b, Bigarray.fortran_layout) Bigarray.Array2.t +% >> +% +% Extract a two-dimensional slice of the given +% three-dimensional big array by fixing the last coordinate. +% The integer parameter is the coordinate of the slice to +% extract. See Bigarray.Genarray.slice_right[29.1] for more +% details. Array3.slice_right_2 applies only to arrays with +% Fortran layout. +% +% << +% val blit : ('a, 'b, 'c) t -> ('a, 'b, 'c) t -> unit +% >> +% +% Copy the first big array to the second big array. See +% Bigarray.Genarray.blit[29.1] for more details. +% +% << +% val fill : ('a, 'b, 'c) t -> 'a -> unit +% >> +% +% Fill the given big array with the given value. See +% Bigarray.Genarray.fill[29.1] for more details. +% +% << +% val of_array : +% ('a, 'b) Bigarray.kind -> +% 'c Bigarray.layout -> 'a array array array -> ('a, 'b, 'c) t +% >> +% +% Build a three-dimensional big array initialized from the +% given array of arrays of arrays. +% +% << +% val map_file : +% Unix.file_descr -> +% ('a, 'b) Bigarray.kind -> +% 'c Bigarray.layout -> +% bool -> int -> int -> int -> ('a, 'b, 'c) t +% >> +% +% Memory mapping of a file as a three-dimensional big array. +% See Bigarray.Genarray.map_file[29.1] for more details. +% +% +% - end +% +% Three-dimensional arrays. The Array3 structure provides +% operations similar to those of Bigarray.Genarray[29.1], but +% specialized to the case of three-dimensional arrays. +% +% +%Coercions between generic big arrays and fixed-dimension big arrays +%=================================================================== +% +%<< +% val genarray_of_array1 : ('a, 'b, 'c) Array1.t -> ('a, 'b, 'c) Genarray.t +%>> +% +% Return the generic big array corresponding to the given +% one-dimensional big array. +% +%<< +% val genarray_of_array2 : ('a, 'b, 'c) Array2.t -> ('a, 'b, 'c) Genarray.t +%>> +% +% Return the generic big array corresponding to the given +% two-dimensional big array. +% +%<< +% val genarray_of_array3 : ('a, 'b, 'c) Array3.t -> ('a, 'b, 'c) Genarray.t +%>> +% +% Return the generic big array corresponding to the given +% three-dimensional big array. +% +%<< +% val array1_of_genarray : ('a, 'b, 'c) Genarray.t -> ('a, 'b, 'c) Array1.t +%>> +% +% Return the one-dimensional big array corresponding to the given +% generic big array. Raise Invalid_arg if the generic big array +% does not have exactly one dimension. +% +%<< +% val array2_of_genarray : ('a, 'b, 'c) Genarray.t -> ('a, 'b, 'c) Array2.t +%>> +% +% Return the two-dimensional big array corresponding to the given +% generic big array. Raise Invalid_arg if the generic big array +% does not have exactly two dimensions. +% +%<< +% val array3_of_genarray : ('a, 'b, 'c) Genarray.t -> ('a, 'b, 'c) Array3.t +%>> +% +% Return the three-dimensional big array corresponding to the +% given generic big array. Raise Invalid_arg if the generic big +% array does not have exactly three dimensions. +% +% +%Re-shaping big arrays +%===================== +% +%<< +% val reshape : +% ('a, 'b, 'c) Genarray.t -> +% int array -> ('a, 'b, 'c) Genarray.t +%>> +% +% reshape b [|d1;...;dN|] converts the big array b to a +% N-dimensional array of dimensions d1...dN. The returned array +% and the original array b share their data and have the same +% layout. For instance, assuming that b is a one-dimensional +% array of dimension 12, reshape b [|3;4|] returns a +% two-dimensional array b- of dimensions 3 and 4. If b has C +% layout, the element (x,y) of b- corresponds to the element x * +% 3 + y of b. If b has Fortran layout, the element (x,y) of b- +% corresponds to the element x + (y - 1) * 4 of b. The returned +% big array must have exactly the same number of elements as the +% original big array b. That is, the product of the dimensions of +% b must be equal to i1 * ... * iN. Otherwise, Invalid_arg is +% raised. +% +%<< +% val reshape_1 : ('a, 'b, 'c) Genarray.t -> int -> ('a, 'b, 'c) Array1.t +%>> +% +% Specialized version of Bigarray.reshape[29.1] for reshaping to +% one-dimensional arrays. +% +%<< +% val reshape_2 : +% ('a, 'b, 'c) Genarray.t -> +% int -> int -> ('a, 'b, 'c) Array2.t +%>> +% +% Specialized version of Bigarray.reshape[29.1] for reshaping to +% two-dimensional arrays. +% +%<< +% val reshape_3 : +% ('a, 'b, 'c) Genarray.t -> +% int -> int -> int -> ('a, 'b, 'c) Array3.t +%>> +% +% Specialized version of Bigarray.reshape[29.1] for reshaping to +% three-dimensional arrays. +% +% +% +% +%29.2 Big arrays in the Caml'c interface +%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= +% +% +% C stub code that interface C or Fortran code with Caml code, as described in +%chapter 18, can exploit big arrays as follows. +% +% +%29.2.1 Include file +%==================== +% +% The include file must be included in the C stub file. It +%declares the functions, constants and macros discussed below. +% +% +%29.2.2 Accessing a Caml bigarray from C or Fortran +%=================================================== +% +% If v is a Caml value representing a big array, the expression +%Data_bigarray_val(v) returns a pointer to the data part of the array. This +%pointer is of type void * and can be cast to the appropriate C type for the +%array (e.g. double [], char [][10], etc). +% Various characteristics of the Caml big array can be consulted from C as +%follows: +% +% -------------------------------------------------------------------- +% | C expression | Returns | +% -------------------------------------------------------------------- +% |Bigarray_val(v)->num_dims |number of dimensions | +% |Bigarray_val(v)->dim[i] |i-th dimension | +% |Bigarray_val(v)->flags & BIGARRAY_KIND_MASK|kind of array elements| +% -------------------------------------------------------------------- +% The kind of array elements is one of the following constants: +% +% -------------------------------------------------------------- +% | Constant | Element kind | +% -------------------------------------------------------------- +% |BIGARRAY_FLOAT32 |32'bit single-precision floats | +% |BIGARRAY_FLOAT64 |64'bit double-precision floats | +% |BIGARRAY_SINT8 |8'bit signed integers | +% |BIGARRAY_UINT8 |8'bit unsigned integers | +% |BIGARRAY_SINT16 |16'bit signed integers | +% |BIGARRAY_UINT16 |16'bit unsigned integers | +% |BIGARRAY_INT32 |32'bit signed integers | +% |BIGARRAY_INT64 |64'bit signed integers | +% |BIGARRAY_CAML_INT |31- or 63'bit signed integers | +% |BIGARRAY_NATIVE_INT|32- or 64'bit (platform-native) integers| +% -------------------------------------------------------------- +% The following example shows the passing of a two-dimensional big array to a +%C function and a Fortran function. +%<< +% extern void my_c_function(double * data, int dimx, int dimy); +% extern void my_fortran_function_(double * data, int * dimx, int * dimy); +% +% value caml_stub(value bigarray) +% { +% int dimx = Bigarray_val(bigarray)->dim[0]; +% int dimy = Bigarray_val(bigarray)->dim[1]; +% /* C passes scalar parameters by value */ +% my_c_function(Data_bigarray_val(bigarray), dimx, dimy); +% /* Fortran passes all parameters by reference */ +% my_fortran_function_(Data_bigarray_val(bigarray), &dimx, &dimy); +% return Val_unit; +% } +%>> +% +% +% +%29.2.3 Wrapping a C or Fortran array as a Caml big array +%========================================================= +% +% A pointer p to an already'allocated C or Fortran array can be wrapped and +%returned to Caml as a big array using the alloc_bigarray or alloc_bigarray_dims +%functions. +% +% - alloc_bigarray(kind | layout, numdims, p, dims) +% Return a Caml big array wrapping the data pointed to by p. kind is the kind of +% array elements (one of the BIGARRAY_ kind constants above). layout is +% BIGARRAY_C_LAYOUT for an array with C layout and BIGARRAY_FORTRAN_LAYOUT for +% an array with Fortran layout. numdims is the number of dimensions in the +% array. dims is an array of numdims long integers, giving the sizes of the +% array in each dimension. +% +% - alloc_bigarray_dims(kind | layout, numdims, p, (long) dim_1, (long) dim_2, +% ..., (long) dim_numdims) +% Same as alloc_bigarray, but the sizes of the array in each dimension are +% listed as extra arguments in the function call, rather than being passed as +% an array. +% The following example illustrates how statically-allocated C and Fortran +%arrays can be made available to Caml. +%<< +% extern long my_c_array[100][200]; +% extern float my_fortran_array_[300][400]; +% +% value caml_get_c_array(value unit) +% { +% long dims[2]; +% dims[0] = 100; dims[1] = 200; +% return alloc_bigarray(BIGARRAY_NATIVE_INT | BIGARRAY_C_LAYOUT, +% 2, my_c_array, dims); +% } +% +% value caml_get_fortran_array(value unit) +% { +% return alloc_bigarray_dims(BIGARRAY_FLOAT32 | BIGARRAY_FORTRAN_LAYOUT, +% 2, my_fortran_array_, 300L, 400L); +% } +%>> +% +% +% diff --git a/vendors/ott/examples/ocaml_light/opsem.ott b/vendors/ott/examples/ocaml_light/opsem.ott new file mode 100644 index 000000000000..0b1df763af50 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/opsem.ott @@ -0,0 +1,168 @@ + +>> + -*-LaTeX-*- + + S.4 Reduction Rules + *=*=*=*=*=*=*=*=*=*=*=* + +\heading{Matching} +Define a partial function [[matchsub __ __ ]] taking a value +and a pattern and giving a substitution: + +matchsub v x = {v/x} +matchsub v _ = {} +matchsub constant constant = {} +matchsub v (pat as x) = {v/x} union matchsub v pat +matchsub v ( pat : t ) = matchsub v pat +matchsub v ( pat1 | pat2 ) = matchsub v pat1, if defined, otherwise matchsub v pat2 +matchsub constr v constr pat = matchsub v pat +matchsub v1,....,vn pat1,....,patn = matchsub(v1,pat1) union .. union matchsub(vn ,patn ) +%d matchsub { field1=v1 ; ... ; fieldn=vn} { field1=pat1 ; ... ; fieldn=patn} +%d = matchsub(v1,pat1) union .. union matchsub(vn ,patn ) + +matchsub v pat undefined otherwise + + +Define a partial function [[match __ __ ]] taking a value +and a pattern_matching and giving an expression: + +match v ( | pat1->e1 ... | patn->en) = + (matchsub v patk) ek , where k is the smallest value such that (matchsub v patk) is defined, + undefined , if there is no such k + +\heading{Reduction Axioms} + +<< + +defns +Jop :: JO_ ::= + + +% Pure expression reduction + +defn + e --> e :: :: red :: red_ by + + + +%d { {field1=v1;...;fieldm=vm} with field1'=v1' ; ... ; fieldn'=vn' } +%d --> +%d {field1=v1;...;fieldm=vm} oplus {field1'=v1' ; ... ; fieldn'=vn' } + + +(function x1-> ... -> function xn->e) v1 ... vn e1 .. em --> ( { v1 ... vn / x1 ... xn } e ) e1 .. em + + +% maybe this rule: +(e e1 ... em) e'1 ... e'n --> e e1 ... em e'1 ... e'n + + +%d {field1=v1;...;fieldm=vn}.fieldi --> vi + + + if true then e1 else e2 --> e1 + + if false then e1 else e2 --> e2 + + +while e1 do e2 done --> if e1 then (e2 ; while e1 do e2 done) else () + + for x=v1 to v2 do e done --> + let x=v1 in e ; for x=v1+1 to v2 do e done if v1<=v2 + () otherwise + + for x=v1 downto v2 do e done --> + let x=v1 in e ; for x=v1-1 to v2 do e done if v1>=v2 + () otherwise + + (); e --> e + + + match v with pattern_matching --> match v pattern_matching if that is defined, + + match v with pattern_matching --> raise (Match_failure v') otherwise, where |- v':string*int*int + + + try raise v with pattern_matching --> match v pattern_matching if that is defined + + try v with pattern_matching --> v + + C . raise v --> raise v if not exists pattern_matching. C = try __ with pattern_matching and match v pattern_matching is defined + + let pat=v in e --> + (match v pat) e if (match v pat) is defined, + raise (Match_failure v') otherwise, where |- v':string*int*int + + + let rec x1=function pm1 and ... and xn=function pmn in e +--> + LET sigma = { let rec x1=function pm1 and ... and xn=function pmn in xi / xi | i=1...n } IN + LET rho = { sigma (function pmj) / xj | j=1...n } IN + rho e + + % watch out for our cheating substitution - is it ok here above? + +% let rec x1:T=function (x2:T') -> e1 in e2 --> +% { ( { (let rec x1:T=function (x2:T') -> e1 in x1) / x1 } function (x2:T') -> e1) / x1 } e2 + + + + assert true --> () + +empty |- v : string*int*int +-------------------------------------------- :: assert2 +assert false --> raise (Assert_failure v) + + + +%m Instantiation reduction +%m +%m ...TODO... + +>> +Delta rules for applications of functions defined in the standard library +------------------------------------------------------------------------- + +some special magic for total applications of || and && to ensure that +we have: +<< + + true || e --> true + + false && e --> false + + true && e --> e + + false || e --> e + +>> +and likely wierd evaluation order for other operators - cf the Acute +semantics. + + + + +Store reduction +-------------------------------- +<< + +defn + s ; e --> s' ; e' :: :: sred :: sred_ by + + location notin dom(s) +-------------------------------------------------------------------- :: ref + s ; ref v --> s,location|->v; location + + s,location |-> v,s' ; ( := ) location v' --> s,location |-> v',s' ; () + + s,location |-> v,s' ; ( ! ) location --> s,location |->v,s' ; v + + e --> e' + ------------ :: pure + s;e --> s;e' + + s;e --> s';e' + ----------------- :: context + s;C.e --> s';C.e' + +% that C.e is context application... diff --git a/vendors/ott/examples/ocaml_light/ott-preamble.sed b/vendors/ott/examples/ocaml_light/ott-preamble.sed new file mode 100644 index 000000000000..de6d46c515c2 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/ott-preamble.sed @@ -0,0 +1,4 @@ +/\\documentclass/s/\([[,]\)[0-9][0-9]*pt\([],]\)/\110pt,titlepage\2/ +/\\begin{document}/i \ +\\geometry{landscape} \ +\\usepackage{ifthen} diff --git a/vendors/ott/examples/ocaml_light/ott-spec.ltx b/vendors/ott/examples/ocaml_light/ott-spec.ltx new file mode 100644 index 000000000000..a3d577185897 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/ott-spec.ltx @@ -0,0 +1,96 @@ +%% Redefinitions of ott macros to improve the typeset caml specification. + + +\newcommand{\ottenvironmentappend}[2]{% + \begingroup% + \def\@tempa{#1}\def\@tempb{ \ottkw{empty} }% + \ifx\@tempa\@tempb\def\@tempc{}\else\def\@tempc{#1,}\fi% + \expandafter\endgroup% + \@tempc#2% +} +\newcommand{\ie}{% +i.e., +} +\newcommand{\eg}{% +e.g., +} + +% tt that was \verb in syntax.ott +\newcommand{\vtexttt}[1]{\texttt{#1}} + + +%% \ott@regularize@underscores{\command}{FOO_BAR\_QUUX} +%% Run "\command{FOO_BAR_QUUX}" where "_" characters of category 8 and "\_" +%% control sequences have been replaced by a "_" of category 11. +\def\ott@regularize@underscores#1#2{% + \begingroup% + \escapechar=-1 % + \expandafter\def\expandafter\_\expandafter{\string\_}% + \def\@tempa{#1}% + \expandafter\expandafter\expandafter\def% + \expandafter\expandafter\expandafter\@tempb% + \expandafter\expandafter\expandafter{% + \expandafter\string\csname#2\endcsname}% + \expandafter\expandafter\expandafter\def% + \expandafter\expandafter\expandafter\@tempc% + \expandafter\expandafter\expandafter{% + \expandafter\@tempa\expandafter{\@tempb}}% + \expandafter\endgroup\@tempc% +} + +\def\ottdrulelabel@z#1{\label{defn.#1}} +\def\ottdrulelabel@b#1{\ott@regularize@underscores\ottdrulelabel@z} +\def\ottdrulelabel@a#1#2{\ottdrulelabel@b#1} +\def\ottdruleref@a#1{% + \expandafter\@setref\csname r@defn.#1\endcsname% + {\ottdrulename{#1}\@gobbletwo}% + {#1} +} + +\newcommand\ottdruleref{\ott@regularize@underscores\ottdruleref@a} +\renewcommand{\ottdrule}[4][]{% + \frac{\begin{array}{l}#2\end{array}}% + {\ottconclusion{#3}}% + \def\@tempa{#4}% + \ifx\@tempa\empty\else \quad #4\ottdrulelabel@a#4\fi} +%\renewcommand{\ottusedrule}[1]{\[#1\]} +%\renewcommand{\ottpremise}[1]{ #1 \\} + +%% Put \ottmaybebreakline in the TeX rendering to signal a potential +%% breakpoint. +%% Set \ottbreakconclusionlinetrue to break the conclusion of subsequent rules +%% at all declared breakpoints. +\newif\ifottbreakconclusionline \ottbreakconclusionlinefalse +\newcommand\ottmaybebreakline{} +\newcommand{\ottconclusion}[1]{% + \ifottbreakconclusionline% + \def\ottmaybebreakline{\qquad$\\$\hfill\qquad}% + \begin{tabular}{l}$#1$\end{tabular}% + \else% + #1% + \fi% +} + +%% Put each defn block in a subsection +\renewenvironment{ottdefnblock}[3][]{% + \vspace{1em}\par% + \subsection{\protect\framebox{\mbox{#2}} \quad #3}% +}{% +} + +%\renewcommand{\ottnt}[1]{\mathit{#1}} +%\renewcommand{\ottmv}[1]{\mathit{#1}} +%\renewcommand{\ottkw}[1]{\mathbf{#1}} +%\renewcommand{\ottcom}[1]{\text{#1}} + +%% Changed the font for rule names +\renewcommand{\ottdrulename}[1]{\textsf{#1}} + +%\renewcommand{\ottcomplu}[5]{\overline{#1}^{\,#2\in #3 #4 #5}} +%\renewcommand{\ottcompu}[3]{\overline{#1}^{\,#2<#3}} +%\renewcommand{\ottcomp}[2]{\overline{#1}^{\,#2}} +%\renewcommand{\ottgrammartabular}[1]{\begin{supertabular}{llcllllll}#1\end{supertabular}} +%\renewcommand{\ottrulehead}[3]{$#1$ & & $#2$ & & & \multicolumn{2}{l}{#3}} +\renewcommand{\ottprodline}[6]{& & $#1$ & $#2$ & $#3 #4$ & $#5$ & \def\ottprodlinetmp{#6}\ifx\ottprodlinetmp\empty\else\def\ottprodlinetmp{\\ & & & \multicolumn{3}{l}{$~~#6$}}\fi\ottprodlinetmp} +%\renewcommand{\ottinterrule}{\\[5.0mm]} +%\renewcommand{\ottafterlastrule}{\\} diff --git a/vendors/ott/examples/ocaml_light/reduction.ott b/vendors/ott/examples/ocaml_light/reduction.ott new file mode 100644 index 000000000000..af36464e6751 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/reduction.ott @@ -0,0 +1,805 @@ + +defns +JmatchP :: JM_ ::= + +defn +|- expr matches pattern :: :: matchP :: matchP_ {{ com Pattern matching }} by + +{{ com +Determines if a value matches a pattern. +}} + +------------------------------------------------------- :: var +|- v matches x + +------------------------------------------------------- :: any +|- v matches _ + +------------------------------------------------------- :: constant +|- constant matches constant + +|- v matches pat +------------------------------------------------------- :: alias +|- v matches pat as x + +|- v matches pat +------------------------------------------------------- :: typed +|- v matches (pat : t) + +|- v matches pat1 +------------------------------------------------------- :: or_left +|- v matches pat1 | pat2 + +|- v matches pat2 +------------------------------------------------------- :: or_right +|- v matches pat1 | pat2 + +|- v1 matches pat1 ... |- vn matches patn +------------------------------------------------------- :: construct +|- constr (v1,...,vn) matches constr (pat1,...,patn) + +------------------------------------------------------- :: construct_any +|- constr (v1,...,vn) matches constr _ + +|- v1 matches pat1 .... |- vn matches patn +------------------------------------------------------- :: tuple +|- (v1,....,vn) matches (pat1,....,patn) + +%d field_name1'=v1'...field_namen'=vn' fn1=v1''..fnl=vl'' PERMUTES field_name1=v1...field_namem=vm +%d |- v1' matches pat1 ... |- vn' matches patn +%d field_name1 ... field_namem distinct +%d----------------------------------------------------- :: record +%d |- {field_name1=v1;...;field_namem=vm} matches {field_name1'=pat1;...;field_namen'=patn} + +|- v1 matches pat1 +|- v2 matches pat2 +------------------------------------------------------- :: cons +|- v1::v2 matches pat1::pat2 + +defns +Jmatch :: JM_ ::= + +defn +|- expr matches pattern gives '<<' substs_x '>>' :: :: match :: match_ {{ com Pattern matching with substitution creation }} by + +{{ com +Determines if a value matches a pattern and destructures the value into a +substitution according to the pattern's variables. The previous pattern +matching relation is used to get deterministic behavior for \texttt{|} +patterns. +}} + +------------------------------------------------------- :: var +|- v matches x gives <> + +------------------------------------------------------- :: any +|- v matches _ gives <<:substs_x_xs:>> + +------------------------------------------------------- :: constant +|- constant matches constant gives <<:substs_x_xs:>> + +|- v matches pat gives <> +------------------------------------------------------- :: alias +|- v matches pat as x gives <> + +|- v matches pat gives <> +------------------------------------------------------- :: typed +|- v matches (pat : t) gives <> + +|- v matches pat1 gives <> +------------------------------------------------------- :: or_left +|- v matches pat1 | pat2 gives <> + +|- v notmatches pat1 +|- v matches pat2 gives <> +------------------------------------------------------- :: or_right +|- v matches pat1 | pat2 gives <> + +|- v1 matches pat1 gives <> ... |- vn matches patn gives <> +------------------------------------------------------- :: construct +|- constr (v1,...,vn) matches constr (pat1,...,patn) gives <> + +------------------------------------------------------- :: construct_any +|- constr (v1,...,vn) matches constr _ gives <<:substs_x_xs:>> + +|- v1 matches pat1 gives <> .... |- vn matches patn gives <> +------------------------------------------------------- :: tuple +|- (v1,....,vn) matches (pat1,....,patn) gives <> + +%d field_name1'=v1'...field_namen'=vn' fn1=v1''..fnl=vl'' PERMUTES field_name1=v1...field_namem=vm +%d |- v1' matches pat1 gives <> ... |- vn' matches patn gives <> +%d field_name1 ... field_namem distinct +%d----------------------------------------------------- :: record +%d |- {field_name1=v1;...;field_namem=vm} matches {field_name1'=pat1;...;field_namen'=patn} gives <> + +|- v1 matches pat1 gives <> +|- v2 matches pat2 gives <> +------------------------------------------------------- :: cons +|- v1::v2 matches pat1::pat2 gives <> + + + +defns +Jrecfun :: J ::= + +defn +recfun ( letrec_bindings , pattern_matching ) gives expr :: :: recfun :: recfun_ {{ com Recursive function helper }} by + +{{ com +Expands a recursive definition. +}} + +%%WIDTH: >~a4/landscape/normalsize +letrec_bindings = x1 = function pattern_matching1 and ... and xn = function pattern_matchingn +------------------------------------------------------- :: letrec +recfun(letrec_bindings, pattern_matching) gives <> (function pattern_matching) + + + +defns +Jfunval :: J ::= +defn +|- funval ( e ) :: :: funval :: funval_ {{ com Function values }} by + +{{ com +Determines if an expression is a function value, for use in +(\ottdrulename{Jbprim\_equal\_fun}). +}} + +------------------------------------------------------- :: up +|- funval((%prim unary_prim)) + +------------------------------------------------------- :: bp +|- funval((%prim binary_prim)) + +------------------------------------------------------- :: bp_app +|- funval((%prim binary_prim) v) + +------------------------------------------------------- :: func +|- funval(function pattern_matching) + + + +defns +JRuprim :: J ::= + +defn +|- unary_prim expr labelled_arrow expr' :: :: Ruprim :: uprim_ {{ com Unary primitive evaluation }} by + +{{ com +Computes the result of a unary primitive application. +}} + +-------------------------------------------------- :: not_true +|- not true --> false + +-------------------------------------------------- :: not_false +|- not false --> true + +-------------------------------------------------- :: uminus +|- ~- intn --> 0 .- intn + +{{ com +The effect of creating a reference is communicated to the store via +the label on the reduction arrow. Similarly the reduction arrow +carries the value read from the store when accessing a location. +}} + +--------------------------------------- :: ref_alloc +|- ref v -->:Lab_paren:(ref v = l) l + +----------------- :: deref +|- !l -->:Lab_paren:(!l=v) v + + + +defns +JRbprim :: J ::= + +defn +|- expr1 binary_prim expr2 labelled_arrow expr :: :: Rbprim :: bprim_ {{ com Binary primitive evaluation }} by + +{{ com +Computes the result of a binary primitive application. +}} + +|- funval(v) +------------------------------------------------------- :: equal_fun +|- v = v' --> (%prim raise) (:Expr_construct: Invalid_argument (equal_error_string)) +% equal_error_string should be "equal: functional value", but we can't write that directly. + +------------------------------------------------------- :: equal_const_true +|- constant = constant --> true + +constant noteq constant' +------------------------------------------------------- :: equal_const_false +|- constant = constant' --> false + +------------------------------------------------------- :: equal_loc +|- l = l' --> ((%prim =) ((%prim !) l)) ((%prim !) l') + +------------------------------------------------------- :: equal_cons +|- (v1::v2) = (v1'::v2') --> (((%prim =) v1) v1') && (((%prim =) v2) v2') + +------------------------------------------------------- :: equal_cons_nil +|- (v1::v2) = [] --> false + +------------------------------------------------------- :: equal_nil_cons +|- [] = (v1::v2) --> false + +length (v1) .... (vn) >= 2 +------------------------------------------------------- :: equal_tuple +|- (v1, ...., vn) = (v1', ...., vn') --> AND(((%prim =) v1) v1' && .... && ((%prim =) vn) vn') + + +------------------------------------------------------- :: equal_constr +|- (constr (v1, ..., vn)) = (constr (v1', ..., vn')) --> AND(((%prim =) v1) v1' && ... && ((%prim =) vn) vn') + +constr noteq constr' +------------------------------------------------------- :: equal_constr_false +|- constr (v1, ..., vm) = constr' (v1', ..., vn') --> false + +------------------------------------------------------- :: equal_const_constr_false +|- constr' = constr (v1, ..., vn) --> false + +------------------------------------------------------- :: equal_constr_const_false +|- constr (v1, ..., vn) = constr' --> false + + +%d v' = {fn1''=v1''; ...; fnm''=vm''} +%d fn1...fnn PERMUTES fn1''...fnm'' +%d----------------------------------------------------- :: equal_rec +%d |- {fn1=v1; ...; fnn=vn} = v' --> AND(((%prim =) v1) (v'.fn1) && ... && ((%prim =) vn) (v'.fnn)) + +------------------------------------------------------- :: plus +|- intn1 + intn2 --> intn1 .+ intn2 + +------------------------------------------------------- :: minus +|- intn1 - intn2 --> intn1 .- intn2 + +------------------------------------------------------- :: times +|- intn1 * intn2 --> intn1 .* intn2 + +------------------------------------------------------- :: div0 +|- intn / 0 --> (%prim raise) Division_by_zero + +intn2 noteq 0 +------------------------------------------------------- :: div +|- intn1 / intn2 --> intn1 ./ intn2 + +{{ com +The side effect of an assignment is communicated to the store via the +label on the reduction arrow. +}} + +------------------------------------------------------- :: assign +|- l := v -->:Lab_paren:(l:=v) () + +%% Note that at the moment, JRmatching_step and JRmatching_success +%% do not depend on expression reduction, so they appear +%% before reduction (but after JM_match). However, adding guards would +%% make expression reduction and matching steps mutually recursive. + +defns +JRmatching_step :: JR ::= + +defn +|- expr with pattern_matching --> pattern_matching' :: :: matching_step :: matching_ {{ com Pattern matching step }} by + +{{ com +Proceeding to the next case because the first, but not only, case has failed to +match. +}} + +|- v notmatches pat +length (e1) ... (en) >= 1 +------------------------------------------------------- :: next +|- v with pat -> e | pat1->e1 | ... | patn->en --> pat1->e1 | ... | patn->en + +defns +JRmatching_success :: JR ::= + +defn +|- expr with pattern_matching --> expr' :: :: matching_success :: matching_ {{ com Pattern matching finished }} by + +{{ com +Proceeding to an expression because the first case matches, or the only case +does not match. +}} + +|- v matches pat gives <> +------------------------------------------------------- :: found +|- v with pat -> e | pat1->e1 | ... | patn->en --> <> e + +|- v notmatches pat +------------------------------------------------------- :: fail +|- v with pat -> e --> (%prim raise) Match_failure + + +defns +Jred :: JR_ ::= + +defn +|- expr labelled_arrow expr' :: :: expr :: expr_ {{ com Expression evaluation }} by + +{{ com +Reduces an expression one-step. Most evaluation contexts require two rules, +one for normal evaluation and one for exception propagation. +}} + +|- unary_prim v -->L e +------------------------------------------------------- :: uprim +|- (%prim unary_prim) v -->L e + +|- v1 binary_prim v2 -->L e +------------------------------------------------------- :: bprim +|- ((%prim binary_prim) v1) v2 -->L e + + +------------------------------------------------------- :: typed_ctx +|- (e : t) --> e + +{{ com +Right-to-left evaluation order for application (i.e., argument before function). +}} + +|- e0 -->L e0' +------------------------------------------------------- :: apply_ctx_arg +|- e1 e0 -->L e1 e0' + +------------------------------------------------------- :: apply_raise1 +|- e ((%prim raise) v) --> (%prim raise) v + +|- e1 -->L e1' +------------------------------------------------------- :: apply_ctx_fun +|- e1 v0 -->L e1' v0 + +------------------------------------------------------- :: apply_raise2 +|- ((%prim raise) v) v' --> (%prim raise) v + +------------------------------------------------------- :: apply +|- (function pattern_matching v0) --> match v0 with pattern_matching + +|- e0 -->L e0' +------------------------------------------------------- :: let_ctx +|- let pat = e0 in e -->L let pat = e0' in e + +------------------------------------------------------- :: let_raise +|- let pat = (%prim raise) v in e --> (%prim raise) v + +|- v matches pat gives <> +------------------------------------------------------- :: let_subst +|- let pat = v in e --> <>e + +|- v notmatches pat +------------------------------------------------------- :: let_fail +|- let pat = v in e --> (%prim raise) Match_failure + +letrec_bindings = x1 = function pattern_matching1 and ... and xn = function pattern_matchingn +recfun(letrec_bindings, pattern_matching1) gives e1 ... recfun(letrec_bindings, pattern_matchingn) gives en +------------------------------------------------------- :: letrec +|- let rec letrec_bindings in e --> <>e + +|- e1 -->L e1' +------------------------------------------------------- :: sequence_ctx_left +|- e1; e2 -->L e1'; e2 + +------------------------------------------------------- :: sequence_raise +|- ((%prim raise) v); e --> (%prim raise) v + +------------------------------------------------------- :: sequence +|- v; e2 --> e2 + +|- e1 -->L e1' +------------------------------------------------------- :: ifthenelse_ctx +|- if e1 then e2 else e3 -->L if e1' then e2 else e3 + +------------------------------------------------------- :: if_raise +|- if (%prim raise) v then e1 else e2 --> (%prim raise) v + +------------------------------------------------------- :: ifthenelse_true +|- if true then e2 else e3 --> e2 + +------------------------------------------------------- :: ifthenelse_false +|- if false then e2 else e3 --> e3 + +{{ com +We treat matching one pattern against one value as atomic (this would be +relevant when matching the contents of a reference after introducing concurrent +evaluation). +}} + +|- e -->L e' +------------------------------------------------------- :: match_ctx +|- match e with pattern_matching -->L match e' with pattern_matching + +------------------------------------------------------- :: match_raise +|- match (%prim raise) v with pattern_matching --> (%prim raise) v + +|- v with pattern_matching --> pattern_matching' +------------------------------------------------------- :: match_step +|- match v with pattern_matching --> match v with pattern_matching' + +|- v with pattern_matching --> e' +------------------------------------------------------- :: match_success +|- match v with pattern_matching --> e' + +---------------------------------------------------------------- :: and +|- e1 && e2 --> if e1 then e2 else false + +---------------------------------------------------------------- :: or +|- e1 || e2 --> if e1 then true else e2 + +---------------------------------------------------------------- :: while +|- while e1 do e2 done --> if e1 then (e2; while e1 do e2 done) + +{{ com +We specify the evaluation of $[[e1]]$ before $[[e2]]$ in $\ottkw{for}$ loops, +which appears to follow the implementation. +}} + +|- e1 -->L e1' +------------------------------------------------------- :: for_ctx1 +|- for x = e1 for_dirn e2 do e3 done -->L for x = e1' for_dirn e2 do e3 done + +------------------------------------------------------- :: for_raise1 +|- for x = (%prim raise) v for_dirn e2 do e3 done --> (%prim raise) v + +|- e2 -->L e2' +------------------------------------------------------- :: for_ctx2 +|- for x = v1 for_dirn e2 do e3 done -->L for x = v1 for_dirn e2' do e3 done + +------------------------------------------------------- :: for_raise2 +|- for x = v for_dirn (%prim raise) v' do e3 done --> (%prim raise) v' + +intn1 <= intn2 +------------------------------------------------------- :: for_to_do +|- for x = intn1 to intn2 do e done --> (let x = intn1 in e); for x = intn1 .+ 1 to intn2 do e done + +intn1 > intn2 +------------------------------------------------------- :: for_to_done +|- for x = intn1 to intn2 do e done --> () + +intn2 <= intn1 +------------------------------------------------------- :: for_downto_do +|- for x = intn1 downto intn2 do e done --> (let x = intn1 in e); for x = intn1 .- 1 downto intn2 do e done + +intn2 > intn1 +------------------------------------------------------- :: for_downto_done +|- for x = intn1 downto intn2 do e done --> () + +|- e -->L e' +------------------------------------------------------- :: try_ctx +|- try e with pattern_matching -->L try e' with pattern_matching + +------------------------------------------------------- :: try_return +|- try v with pattern_matching --> v + +------------------------------------------------------- :: try_catch +|- try (%prim raise) v with pat_exp1 | ... | pat_expn --> match v with pat_exp1 | ... | pat_expn | _ -> ((%prim raise) v) + +{{ com +We specify right-to-left evaluation order for tuples, applied variant +constructors, and $\ottkw{::}$. +}} + +|- e -->L e' +------------------------------------------------------- :: tuple_ctx +|- e1,..,em,e,v1,..,vn -->L e1,..,em,e',v1,..,vn + +------------------------------------------------------- :: tuple_raise +|- e1, .., em, ((%prim raise) v), v1, .., vn --> (%prim raise) v + +|- e -->L e' +------------------------------------------------------- :: constr_ctx +|- constr (e1,..,em,e,v1,..,vn) -->L constr (e1,..,em,e',v1,..,vn) + +------------------------------------------------------- :: constr_raise +|- constr (e1, .., em, ((%prim raise) v), v1, .., vn) --> (%prim raise) v + +|- e -->L e' +------------------------------------------------------- :: cons_ctx1 +|- e0 :: e -->L e0 :: e' + +------------------------------------------------------- :: cons_raise1 +|- e :: ((%prim raise) v) --> (%prim raise) v + +|- e -->L e' +------------------------------------------------------- :: cons_ctx2 +|- e :: v -->L e' :: v + +------------------------------------------------------- :: cons_raise2 +|- ((%prim raise) v) :: v' --> (%prim raise) v + +>> +%d<< + +{{ com +We specify right-to-left evaluation for records. The bytecode implementation +appears to go right to left after first reordering the record to correspond to +the field ordering in the record type definition. +}} + +{{ com +\ottbreakconclusionlinetrue +}} + +%%WIDTH: >~a4/landscape/normalsize +|- expr -->L expr' +------------------------------------------------------- :: record_ctx +|- {fn1=e1;...;fnm=em; field_name=expr; fn1'=v1;...;fnn'=vn} -->L {fn1=e1;...;fnm=em; field_name=expr'; fn1'=v1;...;fnn'=vn} + +{{ com +\ottbreakconclusionlinefalse +}} + +------------------------------------------------------- :: record_raise +|- {fn1=e1;...;fnm=em;fn=(%prim raise) v;fn1'=v1;...;fnn'=vn} --> (%prim raise) v + +{{ com +The bytecode implementation appears to evaluate the leftmost position first in +$\ottkw{with}$ expressions, so we follow that here. +}} + +{{ com +\ottbreakconclusionlinetrue +}} + +%%WIDTH: >>a4/landscape/normalsize +|- e -->L e' +------------------------------------------------------- :: record_with_ctx1 +|- {v with fn1=e1;...;fnm=em; field_name=e; fn1'=v1;...;fnn'=vn} -->L {v with fn1=e1;...;fnm=em; field_name=e'; fn1'=v1;...;fnn'=vn} + +{{ com +\ottbreakconclusionlinefalse +}} + +------------------------------------------------------- :: record_with_raise1 +|- {v' with fn1=e1;...;fnm=em; fn=(%prim raise) v; fn1'=v1;...;fnn'=vn} --> (%prim raise) v + +|- e -->L e' +------------------------------------------------------- :: record_with_ctx2 +|- {e with field_name1=e1;...;field_namen=en} -->L {e' with field_name1=e1;...;field_namen=en} + +------------------------------------------------------- :: record_raise_ctx2 +|- {(%prim raise) v with field_name1=e1;...;field_namen=en} --> (%prim raise) v + +{{ com +\ottbreakconclusionlinetrue +}} + +%%WIDTH: >>a4/landscape/normalsize +length (v1'')...(vl'') >=1 +field_name notin fn1...fnm +------------------------------------------------------- :: record_with_many +|- {{fn1=v1;...;fnm=vm;field_name=v;fn1'=v1';...;fnn'=vn'} with field_name=v'; fn1''=v1'';...;fnl''=vl''} --> {{fn1=v1;...;fnm=vm;field_name=v';fn1'=v1';...;fnn'=vn'} with fn1''=v1'';...;fnl''=vl''} + + +%%WIDTH: >>a4/landscape/normalsize +field_name notin fn1...fnm +------------------------------------------------------- :: record_with_1 +|- {{fn1=v1;...;fnm=vm;field_name=v;fn1'=v1';...;fnn'=vn'} with field_name=v'} --> {fn1=v1;...;fnm=vm;field_name=v';fn1'=v1';...;fnn'=vn'} + +{{ com +\ottbreakconclusionlinefalse +}} + +|- e -->L e' +------------------------------------------------------- :: record_access_ctx +|- e.field_name -->L e'.field_name + +------------------------------------------------------- :: record_access_raise +|- ((%prim raise) v).field_name --> (%prim raise) v + +field_name notin fn1...fnn +------------------------------------------------------- :: record_access +|- {fn1=v1;...;fnn=vn;field_name=v;fn1'=v1';...;fnm'=vm'}.field_name --> v + +%d>> +<< + +|- e -->L e' +------------------------------------------------------- :: assert_ctx +|- assert e -->L assert e' + +------------------------------------------------------- :: assert_raise +|- assert ((%prim raise) v) --> (%prim raise) v + +------------------------------------------------------- :: assert_true +|- assert true --> () + +------------------------------------------------------- :: assert_false +|- assert false --> (%prim raise) Assert_failure + + + +>> +%d<< +defns +JRdefn :: J ::= + +defn +|- < definitions , program > labelled_arrow < definitions' , program' > :: :: Rdefn :: defn_ +{{ com Definition sequence evaluation }} +{{ tex \vdash \langle [[definitions]] , [[program]] \rangle [[labelled_arrow]] \langle [[definitions']] , [[program']] \rangle }} by +{{ com +Reduces a definition one-step. Type and exception definitions are moved into +the tuple left sequence as encountered to support typing of intermediate +states. +}} + +|- e -->L e' +------------------------------------------------------- :: let_ctx +|- -->L + +------------------------------------------------------- :: let_raise +|- --> + +|- v matches pat gives <> +------------------------------------------------------- :: let_match +|- --> >definitions> + +|- v notmatches pat +------------------------------------------------------- :: let_not_match +|- --> + +letrec_bindings = x1 = function pattern_matching1 and ... and xn = function pattern_matchingn +recfun(letrec_bindings, pattern_matching1) gives e1 ... recfun(letrec_bindings, pattern_matchingn) gives en +------------------------------------------------------- :: letrec +|- --> >definitions> + +------------------------------------------------------- :: type +|- --> + +------------------------------------------------------- :: exn +|- --> +%d>> +<< + +defns +JSlookup :: JS ::= + +defn +store ( location ) gives expr :: :: lookup :: stlookup_ {{ com Store lookup }} by + +{{ com +Gets the value stored at a given location. +}} + +st(l) gives e' +l noteq l' +------------------------------------------------------- :: rec +st,l'|->e(l) gives e' + +------------------------------------------------------- :: found +st,l|->e(l) gives e + +defns +JRstore :: JR ::= + +defn +|- store labelled_arrow store' :: :: store :: store_ {{ com Store transition }} by + +{{ com +Coordinates a store with a label. +}} + +------------------------------------------------------- :: empty +|- st --> st + +st(l) gives v +------------------------------------------------------- :: lookup +|- st -->(!l=v) st + +st'(l) unallocated +------------------------------------------------------- :: assign +|- st,l|->expr,st' -->(l:=v) st,l|->remv_tyvar v,st' + +st(l) unallocated +------------------------------------------------------- :: alloc +|- st -->(ref v=l) st,l|->remv_tyvar v + + + +>> +%d<< +defns +JRtop :: JR ::= + +defn +|- < definitions , program , store > --> < definitions' , program' , store' > :: :: top :: top_ + {{ tex \vdash \langle [[definitions]] , [[program]] , [[store]] \rangle [[-->]] \langle [[definitions']] , [[program']] , [[store']] \rangle }} + {{ com Top-level reduction }} by + +{{ com +The semantics of a machine is described as the parallel evolution of a +structure body (the program) and a store. Each program evaluation step +labelled $[[L]]$ must be matched by a store evaluation step with the +same label. +}} + +|- store -->L store' +|- -->L +-------------------------------------------------------------------------------------- :: defs +|- --> + +%d>> +<< + + +defns +Jebehaviour :: JRB_ ::= +defn +|- expr behaves :: :: ebehaviour :: ebehaviour_ {{ com Expression behaviour }} by + +{{ com +This relation describes expressions whose behaviour is defined. This includes +values, expressions that reduce, and raised exceptions. An expression with no +behaviour is said to be stuck. In this definition of expression behaviour, we +treat any reducing expression as behaving, no matter what (satisfiable) +constraint is imposed on the label. +}} + +---------------------------------------------------------------- :: value +|- v behaves + +|- e -->L e' +---------------------------------------------------------------- :: reduces +|- e behaves + +---------------------------------------------------------------- :: raises +|- (%prim raise) v behaves + + + +>> +%d<< + +defns +Jdbehaviour :: JRB_ ::= + +defn +|- < definitions , program , store > behaves :: :: dbehaviour :: behaviour_ +{{ tex \vdash \langle [[definitions]] , [[program]] , [[store]] \rangle [[behaves]] }} +{{ com structure body behaviour }} by + +{{ com +As for expressions, a definition sequence behaves if it is a value, if it +reduces (under any label), or if it raises an exception. +}} + +---------------------------------------------------------------- :: value +|- behaves + +|- --> +---------------------------------------------------------------- :: reduces +|- behaves + +---------------------------------------------------------------- :: raises +|- behaves + +%d>> +<< + + +{{ com +\section{Statistics} +\label{sec.statistics} + +}} + + +embed +{{ coq +Hint Constructors JM_matchP JM_match + Jrecfun Jfunval JRuprim JRbprim + JRmatching_step JRmatching_success + JR_expr JRdefn + JSlookup JRstore + JRB_ebehaviour + : rules. +}} +%dembed +%d{{ coq +%dHint Constructors JRdefn JRtop JRB_dbehaviour : rules. +%d}} diff --git a/vendors/ott/examples/ocaml_light/syntax.ott b/vendors/ott/examples/ocaml_light/syntax.ott new file mode 100644 index 000000000000..180313a79fc0 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/syntax.ott @@ -0,0 +1,1966 @@ +%%%% Preamble follows, search \title to know what this file is about %%%% + +%% In this file, lines beginning with %d or %m are to allow different versions +%% of the system to be build by filtering with a sed script. %d corresponds to +%% definition-level features and %m corresponds to module-level features. (The +%% %m version of the system is not currently working or maintained.) + + +%% Note that with the current ott behaviour, all macro definitions *must* +%% be in the first TeX embedding which must come before anything else that +%% ott doesn't ignore. +embed +{{ tex-preamble +\makeatletter +\input ott-spec.ltx +\makeatother +}} + +embed +{{ tex + +\newif\ifHAVEtypedefinitions \newif\ifHAVEmodules +%d\HAVEtypedefinitionstrue +%m\HAVEmodulestrue + +%%%% End of preamble %%%% + + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\title{A formal specification for OCaml: the Core Language} +\author{Scott Owens and Gilles Peskine and Peter Sewell} +\maketitle + +\tableofcontents + +\section{Introduction} +\label{sec.introduction} + +This document describes the syntax and semantics of a substantial fragment of +Objective Caml's core language. When writing this semantics, we have followed +the structure of part 2 of the Objective Caml manual: + +\begin{quote} + The Objective Caml system \\ + release 3.09 \\ + Documentation and user's manual \\ + Xavier Leroy (with Damien Doligez, Jacques Garrigue, Didier R\'emy and J\'er\^ome Vouillon) \\ + Copyright \copyright{} 2005 Institut National de Recherche en Informatique et en Automatique +\end{quote} + +Our aim is to describe a real language, including theoretically redundant but +practically useful features. We do not however cover the whole Objective Caml +language: we have omitted some major semantic features, such as objects and +modules. Our guideline is to retain the semantic features of core ML as +implemented in Objective Caml. Our language corresponds roughly to the +fragment presented in Chapter 1 of the Objective Caml manual. + +Supported features include: +\begin{itemize} +\item +the following primitive types and type constructors: \vtexttt{int}, \vtexttt{char}, +\vtexttt{string}, \vtexttt{float}, \vtexttt{bool}, \vtexttt{unit}, \vtexttt{exn}, \vtexttt{list}, +\vtexttt{option}, \vtexttt{ref}; +\item +tuple and function types +\ifHAVEtypedefinitions +\item +type and type constructor definitions, including: +\begin{itemize} +\item +type abbreviations (\eg \vtexttt{type t = int}), +\item +variant data and record types (\eg \vtexttt{type t = I of int $\|$ D of char} and \vtexttt{type t = \{f:int\} }), +\item +parametric type constructors (\eg \vtexttt{type 'a t = 'a -> 'a}), +\item +recursive and mutually recursive combinations of the above (although all +recursion must go through a variant data or record type); +\end{itemize} +\fi +\item +let-based polymorphism (with the traditional ML-style value restriction); +\item +31-bit word semantics for integers and IEEE-754 semantics for floating point +numbers (in the version of the system generated for HOL); +\item +type annotations (\eg \vtexttt{3:int}), list notation (\eg [1; 2; 3]), record +\vtexttt{with} expressions, \vtexttt{if} expressions, \vtexttt{while} expressions, +\vtexttt{for} expressions, sequencing (\vtexttt{;}), \vtexttt{assert} expressions; +\item +(potentially) mutually-recursive function definitions; +\item +pattern matching with nested patterns and \vtexttt{\} } patterns; +\item +mutable references through \vtexttt{ref}, \vtexttt{:=}, and \vtexttt{!}; +\ifHAVEmodules +%% ? +\fi +\item +exception definitions and handling (\vtexttt{try}, \vtexttt{raise}, \vtexttt{exception}); +\item +polymorphic equality (the \vtexttt{=} operator). +\end{itemize} + +The following features are not supported: +\begin{itemize} +\ifHAVEtypedefinitions +\item +mutable records (\eg \texttt{\{mutable l1=e1;...;mutable ln=en\} }); +\else +\item +type definitions; +\fi +\item +arrays; +\ifHAVEmodules +\item functors, named signatures, abstract signatures, module constraints +\item any form of subsignaturing, whether type abstraction, field erasure + or less polymorphic values +\else +\item +modules; +\fi +\item +subtyping, labels, polymorphic variants, objects; +\item +pattern matching guards (\texttt{when}); +\item +features documented in the ``language extensions'' part of the manual; +\item +\texttt{-rectypes}, exhaustivity of pattern matching, and other compiler command-line options; +\item +support for type abbreviations in the HOL model (we explain in the commentary +how they should be added); +\iffalse +\item a couple of really dark corners best left untold; +\fi +\item +finiteness of memory. +\end{itemize} + +This document contains a description of the language syntax +(\S\ref{sec.syntax}), a type system (\S\ref{sec.typing}) and an +operational semantics (\S\ref{sec.runtime}). + +\paragraph{Metatheory} +This typeset definition is generated by \texttt{ott}. Well-formed definitions +in HOL, Isabelle/HOL and Coq are also generated. We have mechanized the type +soundness theorem for the system in HOL. + +}} + +{{ coq +Require Ascii. +Require Import BinInt. +Require String. +Require Import Zdiv. +Require Import Ott.ott_list. +Require Import caml_lib_misc. +Require Import Sorting.Permutation. +}} + +{{ hol +local open integerTheory sortingTheory floatTheory integer_wordTheory in end; +val _ = wordsLib.mk_word_size 31; +}} + + +{{ tex +\section{Syntax} +\label{sec.syntax} + +We describe the syntax of the core OCaml language in BNF form, closely +following the description in the Objective Caml manual, but omitting +unsupported language features. The concrete syntax of Objective Caml includes +lexical specifications as well as precedence rules to disambiguate the grammar; +we do not reproduce these here. + +Some productions mention annotations to the right of the right-hand side. +The following annotations are understood by Ott. +\begin{itemize} +\item +\textsf{M} indicates a metaproduction. These are not part of the free grammar +for the relevant nonterminal. Instead they are given meaning (in the theorem +prover models) by translation into non-metaproductions. These translations, +specified in the Ott source, are specific to each theorem prover. We summarize +their action in this document. +\item +\textsf{S} indicates a metaproduction that is implemented as syntactic sugar. + +\item ``\textsf{bind ...}'' and ``$\mathit{auxfun=\ldots}$'' are Ott + binding specifications. +\end{itemize} +The following annotations are for informational purposes only. +\begin{itemize} +\item \textsf{[I]} indicates a production that is not intended to be + available in user programs but is useful in the metatheory. +\item \textsf{[L]} indicates a library facility (as opposed to a + strictly language facility). +\item \textsf{d} indicates a definition-level feature, if enabled. +\end{itemize} + +\bigskip +}} + +%% Note: ott does not currently supports TeX embeddings inside the +%% grammar (any embedding except for the very first embed block they +%% is printed after the grammar). + +indexvar index , i , j , k , l , m , n ::= + {{ lex numeral }} + {{ coq nat }} + {{ coq-equality }} + {{ hol num }} + {{ lem nat }} + {{ isa nat }} + {{ com index variables (subscripts) }} + + +%% 6.1 (Identifiers) http://caml.inria.fr/pub/docs/manual-ocaml/lex.html#ident + +%% Our usage of [[ident]] is probably wrong: we should probably use +%% [[lowercase_ident]] instead. There are cases where the concrete +%% syntax lexes as alphanum though; these should be called [[ident]], +%% but I don't think we handle any of them (e.g., polmyorphic variants). + +metavar ident ::= + {{ lex alphanum }} + {{ coq nat }} + {{ coq-equality }} + {{ hol string }} + {{ lem string }} + {{ isa string }} + +%% 6.1 (Integer literals) http://caml.inria.fr/pub/docs/manual-ocaml/lex.html#integer-literal + +metavar integer_literal ::= + {{ lex numeral }} + {{ coq Z }} + {{ coq-equality }} + {{ hol word31 }} + {{ holvar [[integer_literal]]w }} + {{ lem integer }} % TODO + {{ lemvar [[integer_literal]] }} + {{ isa int }} + +%% 6.1 (Floating-point literals) http://caml.inria.fr/pub/docs/manual-ocaml/lex.html#float-literal + +metavar float_literal ::= + {{ coq nat }} % should be real + {{ coq-equality }} + {{ hol float }} + {{ lem nat }} % TODO + {{ isa nat }} + +%% 6.1 (Character literals) http://caml.inria.fr/pub/docs/manual-ocaml/lex.html#char-literal + +metavar char_literal ::= + {{ coq Ascii.ascii }} + {{ coq-equality }} + {{ hol char }} + {{ lem nat }} % TODO + {{ isa char }} + +%% 6.1 (String literals) http://caml.inria.fr/pub/docs/manual-ocaml/lex.html#string-literal + +metavar string_literal ::= + {{ coq String.string }} + {{ coq-equality }} + {{ hol string }} + {{ lem string }} + {{ isa string }} + +%% 6.1 (Prefix and infix symbols) http://caml.inria.fr/pub/docs/manual-ocaml/lex.html#infix-symbol + +metavar infix_symbol ::= + {{ coq String.string }} + {{ coq-equality }} + {{ hol string }} + {{ lem string }} + {{ isa string }} + +metavar prefix_symbol ::= + {{ coq String.string }} + {{ coq-equality }} + {{ hol string }} + {{ lem string }} + {{ isa string }} + +%% Not in OCaml's syntax: Locations + +metavar location , l {{ tex \ell }} ::= + {{ coq nat }} + {{ coq-equality }} + {{ hol num }} + {{ lem nat }} + {{ isa nat }} + {{ com store locations (not in the source syntax) }} + +%% 6.3 (Names) + +metavar lowercase_ident ::= + {{ lex alphanum0 }} + {{ coq String.string }} + {{ coq-equality }} + {{ hol string }} + {{ lem string }} + {{ isa string }} +metavar capitalized_ident ::= + {{ lex Alphanum }} + {{ coq String.string }} + {{ coq-equality }} + {{ hol string }} + {{ lem string }} + {{ isa string }} + + +grammar + + %% 6.3 (Naming objects) http://caml.inria.fr/pub/docs/manual-ocaml/manual011.html#value-name + + value_name , x :: VN_ ::= {{ coq-equality }} + | lowercase_ident :: :: id + | ( operator_name ) :: :: op + operator_name :: ON_ ::= {{ coq-equality }} + | prefix_symbol :: :: symbol + | infix_op :: :: infix + infix_op :: IO_ ::= {{ coq-equality }} + | infix_symbol :: :: symbol + | * :: L :: star + | = :: L :: equal + %% "or" and "&" are obsolete syntactic sugar. +% | or :: :: or +% | & :: :: amp + | := :: L :: colonequal + %% The following 7 are integer operators (not handled at the moment). +% | mod :: :: mod +% | land :: :: land +% | lor :: :: lor +% | lxor :: :: lxor +% | lsl :: :: lsl +% | lsr :: :: lsr +% | asr :: :: asr + constr_name , C :: CN_ ::= {{ coq-equality }} + | capitalized_ident :: :: id + typeconstr_name, tcn :: TCN_ ::= {{ coq-equality }} + | lowercase_ident :: :: id +%d field_name , fn :: FN_ ::= {{ coq-equality }} +%d | lowercase_ident :: d :: id +%m module_name , M :: MN_ ::= {{ coq-equality }} +%m | capitalized_ident :: m :: id +%m modtype_name :: MTN_ ::= {{ coq-equality }} +%m | ident :: m :: id + + %% 6.3 (Referring to named objects) http://caml.inria.fr/pub/docs/manual-ocaml/manual011.html#value-path + value_path :: VP_ ::= {{ coq-equality }} + | value_name :: :: name +%m | module_path . value_name :: m :: path + constr :: C_ ::= {{ coq-equality }} + {{ com constructors: named, and built-in (including exceptions) }} + | constr_name :: :: name +%m | module_path . constr_name :: m :: path + %% 19.1 (Predefined exceptions) http://caml.inria.fr/pub/docs/manual-ocaml/manual033.html + | Invalid_argument :: L :: invalidargument + | Not_found :: L :: notfound + | Assert_failure :: L :: assertfailure + | Match_failure :: L :: matchfailure + | Division_by_zero :: L :: div_by_0 + %% 19.1 (Built-in types) http://caml.inria.fr/pub/docs/manual-ocaml/manual033.html + | None :: L :: none + | Some :: L :: some + typeconstr :: TC_ ::= {{ coq-equality }} + {{ com type constructors: named, and built-in }} + | typeconstr_name :: :: name +%m | extended_module_path . typeconstr_name :: m :: epath + %% 19.1 (Built-in types) http://caml.inria.fr/pub/docs/manual-ocaml/manual033.html + | int :: L :: int + | char :: L :: char + | string :: L :: string + | float :: L :: float + | bool :: L :: bool + | unit :: L :: unit + | exn :: L :: exn + | list :: L :: list + | option :: L :: option + %% Pervasives http://caml.inria.fr/pub/docs/manual-ocaml/libref/Pervasives.html + | ref :: L :: ref +%d field {{ lem fieldl }} :: F_ ::= {{ coq-equality }} +%d | field_name :: d :: name +%d% | module_path . field_name :: d :: path +%m module_path , mp :: MP_ ::= {{ coq-equality }} +%m | module_name :: m :: name +%m | module_path . module_name :: m :: path +%m extended_module_path :: EMP_ ::= {{ coq-equality }} +%m | module_name :: m :: name +%m | extended_module_path . module_name :: m :: epath +%m | extended_module_path ( extended_module_path ) :: m :: +%m modtype_path :: MTP_ ::= {{ coq-equality }} +%m | modtype_name :: m :: name +%m | extended_module_path . modtype_name :: m :: epath + + idx, num :: '' ::= + {{ coq nat }} + {{ hol num }} + {{ lem nat }} + {{ isa nat }} + {{ com index arithmetic for the type system's deBruijn type variable representation }} + | m :: I :: N + {{ ichl [[m]] }} + | idx1 + idx2 :: I :: Add + {{ ichl ([[idx1]] + [[idx2]]) }} + | ( num ) :: S I :: paren + {{ ichl [[num]] }} + + Tsigma {{ tex \sigma^T }} :: Tsigma_ ::= + {{ coq list (typevar * typexpr) }} + {{ hol (typevar#typexpr) list }} + {{ lem list (typevar*typexpr) }} + {{ isa (typevar*typexpr) list }} + {{ com multiple substitutions of types for type variables }} + | '<<' typevar1 <- typexpr1 , .. , typevarn <- typexprn '>>' :: I :: substs + {{ ichl [[typevar1 typexpr1..typevarn typexprn]] }} + | shift num num' Tsigma :: M I :: shift + {{ ichl (shiftTsig [[num]] [[num']] [[Tsigma]]) }} + {{ com shift the indices in the types in $[[Tsigma]]$ by $[[num]]$, ignoring indices lower than $[[num']]$ }} + + %% 6.4 (Type expressions) http://caml.inria.fr/pub/docs/manual-ocaml/manual012.html#typexpr + + typexpr , t :: TE_ ::= + | typevar :: :: var + | < idx , num > :: I :: idxvar + {{ com de Bruijn represenataion of type variables. $[[num]]$ allows each binder (\ie a polymorphic $\ottkw{let}$) to introduce an arbitrary number of binders }} + | _ :: :: any + | ( typexpr ) :: S :: paren + {{ ichl [[typexpr]] }} + | typexpr1 -> typexpr2 :: :: arrow + | typexpr1 * .... * typexprn :: :: tuple + | typeconstr :: S :: constr0 + {{ coq (TE_constr nil [[typeconstr]]) }} + {{ hol (TE_constr [] [[typeconstr]]) }} + {{ lem (TE_constr [] [[typeconstr]]) }} + {{ isa (TE_constr [] [[typeconstr]]) }} + {{ com in the theorem prover models we use a uniform representation for 0-, 1-, and n-ary type constructor applications }} + | typexpr typeconstr :: S :: constr1 + {{ coq (TE_constr (cons [[typexpr]] nil) [[typeconstr]]) }} + {{ hol (TE_constr ([ [[typexpr]] ]) [[typeconstr]]) }} + {{ lem (TE_constr ([ [[typexpr]] ]) [[typeconstr]]) }} + {{ isa (TE_constr ([ [[typexpr]] ]) [[typeconstr]]) }} + | ( typexpr1 , ... , typexprn ) typeconstr :: :: constr +% | typexpr as typevar :: :: + | shift num num' typexpr :: M :: shift + {{ ichl (shiftt [[num]] [[num']] [[typexpr]]) }} + {{ com shifts as in $\sigma^T$ above }} + | t1 -> ... -> tn ---> t :: M I :: arrown + {{ coq (fold_right TE_arrow [[t]] [[t1 ... tn]]) }} + {{ hol (FOLDR TE_arrow [[t]] [[t1 ... tn]]) }} + {{ lem (List.foldr TE_arrow [[t]] [[t1 ... tn]]) }} + {{ isa (foldr TE_arrow [[t1 ... tn]] [[t]]) }} + | Tsigma typexpr :: M I :: susbts + {{ ichl (substs_typevar_typexpr [[Tsigma]] [[typexpr]]) }} + {{ com apply the substitution }} + + src_typexpr , src_t :: STE_ ::= {{ com types that can appear in source programs }} + | typevar :: :: var + | _ :: :: any + | ( src_typexpr ) :: :: paren + | src_typexpr1 -> src_typexpr2 :: :: arrow + | src_typexpr1 * .... * src_typexprn :: :: tuple + | typeconstr :: :: constr0 + | src_typexpr typeconstr :: :: constr1 + | ( src_typexpr1 , ... , src_typexprn ) typeconstr :: :: constr + | shift num num' src_typexpr :: :: shift + + typevar {{ tex \alpha }} , tv {{ tex \alpha }} :: TV_ ::= {{ coq-equality }} + | ' ident :: :: ident + {{ tex {\ottkw{'}[[ident]]} }} + + typescheme, ts :: TS_ ::= + | forall typexpr :: I :: forall + | shift num num' typescheme :: I M :: shift + {{ ichl (shiftts [[num]] [[num']] [[typescheme]]) }} + {{ com shifts as in $\sigma^T$ above }} + + intn {{ tex \dot{n} }} :: Intn_ ::= + {{ coq integer_literal }} + {{ coq-equality }} + {{ hol word31 }} + {{ lem integer }} % TODO + {{ isa int }} + {{ com integer mathematical expressions, used to implement primitive operations and $\ottkw{for}$ loops }} + | integer_literal :: :: lit + {{ coq ([[integer_literal]])%Z }} + {{ hol [[integer_literal]] }} + {{ lem [[integer_literal]] }} + {{ isa ( [[integer_literal]]) }} %% FIXME not sure about this + | ( intn ) :: M I :: paren + {{ ichl [[intn]] }} + | intn1 .+ intn2 :: M I :: plus + {{ tex [[intn1]] \stackrel\centerdot+ [[intn2]] }} + {{ coq (([[intn1]] + [[intn2]])%Z) }} + {{ hol ([[intn1]] + [[intn2]]) }} + {{ lem ([[intn1]] + [[intn2]]) }} + {{ isa ([[intn1]] + [[intn2]]) }} + | intn1 .- intn2 :: M I :: minus + {{ tex [[intn1]] \stackrel\centerdot- [[intn2]] }} + {{ coq (([[intn1]] - [[intn2]])%Z) }} + {{ hol ([[intn1]] - [[intn2]]) }} + {{ lem ([[intn1]] - [[intn2]]) }} + {{ isa ([[intn1]] - [[intn2]]) }} + | intn1 .* intn2 :: M I :: times + {{ tex [[intn1]] \stackrel\centerdot* [[intn2]] }} + {{ coq (([[intn1]] * [[intn2]])%Z) }} + {{ hol ([[intn1]] * [[intn2]]) }} + {{ lem ([[intn1]] * [[intn2]]) }} + {{ isa ([[intn1]] * [[intn2]]) }} + | intn1 ./ intn2 :: M I :: div + {{ tex [[intn1]] \stackrel\centerdot/ [[intn2]] }} + {{ coq (([[intn1]] / [[intn2]])%Z) }} + {{ hol ([[intn1]] / [[intn2]]) }} + {{ lem ([[intn1]] / [[intn2]]) }} + {{ isa ([[intn1]] div [[intn2]]) }} %% FIXME not sure about this + + %% 6.5 (Constants) http://caml.inria.fr/pub/docs/manual-ocaml/manual013.html#constant + + constant {{ lem constantl }} :: CONST_ ::= {{ coq-equality }} + | intn :: L :: int + | float_literal :: L :: float + | char_literal :: L :: char + | string_literal :: L :: string + | equal_error_string :: M L :: equal_error_string + {{ hol (CONST_string "equal: functional value") }} + {{ lem (CONST_string "equal: functional value") }} + {{ isa (CONST_string ''equal: functional value'') }} + {{ coq (CONST_string string_equal_functional_value) }} + {{ com The string constant "equal: functional value" }} + | constr :: L :: constr + | false :: L :: false + | true :: L :: true + | [] :: L :: nil + | () :: L :: unit + + %% 6.6 (Patterns) http://caml.inria.fr/pub/docs/manual-ocaml/patterns.html#pattern + + pattern {{ lem patternl }} , pat :: P_ ::= + | value_name :: :: var + (+ xs = value_name +) + | _ :: :: any + (+ xs = {} +) + | constant :: :: constant + (+ xs = {} +) + | pattern as value_name :: :: alias + (+ xs = xs(pattern) union value_name +) + | ( pattern ) :: S :: paren + {{ ichl [[pattern]] }} + | ( pattern : typexpr ) :: :: typed + (+ xs = xs(pattern) +) + | pattern1 '|' pattern2 :: :: or + (+ xs = xs(pattern1) +) + %% Comment out [construct_unary] when it can be given proper precedence wrt + %% [construct] and [construct_any]. +% | constr pattern :: S :: construct_unary +% {{ ichl (P_construct [[constr]] (cons [[pattern]] nil)) }} + | constr ( pattern1 , ... , patternn ) :: :: construct + (+ xs = xs(pattern1...patternn) +) + | constr _ :: :: construct_any + (+ xs = {} +) + | pattern1 , .... , patternn :: :: tuple + (+ xs = xs(pattern1....patternn) +) +%d | { field1 = pattern1 ; ... ; fieldn = patternn } :: d :: record +%d (+ xs = xs(pattern1...patternn) +) + | [ pattern1 ; ... ; patternn ] :: S L :: list + {{ coq (fold_right P_cons CONST_nil [[pattern1...patternn]]) }} + {{ hol (FOLDR P_cons (P_constant CONST_nil) [[pattern1...patternn]]) }} + {{ lem (List.foldr P_cons (P_constant CONST_nil) [[pattern1...patternn]]) }} + {{ isa (foldr P_cons (P_constant CONST_nil) [[pattern1...patternn]]) }} + | pattern1 '::' pattern2 :: L :: cons + (+ xs = xs(pattern1) union xs(pattern2) +) + +parsing + +P_tuple <= P_construct + +grammar + + %% Important primitives from Pervasives http://caml.inria.fr/pub/docs/manual-ocaml/libref/Pervasives.html + unary_prim :: Uprim_ ::= + {{ com primitive functions with one argument }} + | raise :: L I :: raise + | not :: L I :: not + | ~- :: L I :: minus + | ref :: L I :: ref + | ! :: L I :: deref + binary_prim :: Bprim_ ::= + {{ com primitive functions with two arguments }} + | = :: L I :: equal + | + :: L I :: plus + | - :: L I :: minus + | * :: L I :: times + | / :: L I :: div + | := :: L I :: assign + + %% 6.7 (Expressions) http://caml.inria.fr/pub/docs/manual-ocaml/expr.html#expr + + expr , e :: Expr_ ::= + | ( %prim unary_prim ) :: L I :: uprim + {{ com a unary primitive function value }} + | ( %prim binary_prim ) :: L I :: bprim + {{ com a binary primitive function value }} + | value_name :: :: ident + | constant :: :: constant + | ( expr ) :: S :: paren + {{ ichl [[expr]] }} + | begin expr end :: S :: parenb + {{ ichl [[expr]] }} + | ( expr : typexpr ) :: :: typed + | expr1 , .... , exprn :: :: tuple + | constr ( expr1 , .. , exprn ) :: :: construct + {{ com potentially empty constructors to work around ott parser restriction }} + | expr1 '::' expr2 :: L :: cons + | [ expr1 ; ... ; exprn ] :: S L :: list + {{ coq (fold_right Expr_const CONST_nil [[expr1...exprn]]) }} + {{ hol (FOLDR Expr_cons (Expr_constant CONST_nil) [[expr1...exprn]]) }} + {{ lem (List.foldr Expr_cons (Expr_constant CONST_nil) [[expr1...exprn]]) }} + {{ isa (foldr Expr_cons [[expr1...exprn]] (Expr_constant CONST_nil)) }} +%d | { field1 = expr1 ; ... ; fieldn = exprn } :: d :: record +%d | { expr with field1 = expr1 ; ... ; fieldn = exprn } :: d :: override + | expr1 expr2 :: :: apply + | prefix_symbol expr :: S :: applyp + {{ ichl (Expr_apply (Expr_ident (VP_name (VN_op [[prefix_symbol]]))) [[expr]]) }} + | expr1 infix_op expr2 :: S :: applyi + {{ ichl (Expr_apply (Expr_apply (Expr_ident (VP_name (VN_op (ON_infix [[infix_op]])))) [[expr1]]) [[expr2]]) }} + | expr1 && expr2 :: L :: and + | AND ( expr1 && .. && exprn ) :: M I L :: multiand + {{ coq (fold_right Expr_and CONST_true [[expr1..exprn]]) }} + {{ hol (FOLDR Expr_and (Expr_constant CONST_true) [[expr1..exprn]]) }} + {{ lem (List.foldr Expr_and (Expr_constant CONST_true) [[expr1..exprn]]) }} + {{ isa (foldr Expr_and [[expr1..exprn]] (Expr_constant CONST_true)) }} + {{ com a delimited ``and'' operator with a list of arguments }} + | expr1 || expr2 :: L :: or +%d | expr . field :: d :: field +% | expr . field <- expr :: d :: setfield + | if expr0 then expr1 :: S :: ifthen + {{ ichl (Expr_ifthenelse [[expr0]] [[expr1]] (Expr_constant CONST_unit)) }} + | if expr0 then expr1 else expr2 :: :: ifthenelse + | while expr1 do expr2 done :: :: while + | for x = expr1 for_dirn expr2 do expr3 done :: :: for + (+ bind x in expr3 +) + | expr1 ; expr2 :: :: sequence + | match expr with pattern_matching :: :: match + | function pattern_matching :: :: function + | fun pattern1 ... patternn -> expr :: S :: func + {{ ichl (fold_pats [[pattern1...patternn]] [[expr]]) }} + | try expr with pattern_matching :: :: try + | let let_binding in expr :: :: let + (+ bind xs(let_binding) in expr +) + {{ com omitting multiple bindings, i.e.\ $\ottkw{and}$ }} + | let rec letrec_bindings in expr :: :: letrec + (+ bind xs(letrec_bindings) in letrec_bindings +) + (+ bind xs(letrec_bindings) in expr +) + | assert expr :: :: assert + + | location :: I :: location + | '<<' substs_x '>>' expr :: M I :: substs + {{ coq (substs_value_name_expr (substs_x_proj [[substs_x]]) [[expr]]) }} + {{ hol (substs_value_name_expr (case [[substs_x]] of substs_x_xs l => l) [[expr]]) }} + {{ lem (substs_value_name_expr (match [[substs_x]] with Substs_x_xs l -> l end) [[expr]]) }} + {{ isa (substs_value_name_expr (case [[substs_x]] of substs_x_xs l => l) [[expr]]) }} + {{ com substitution of expressions for variables }} + | remv_tyvar expr :: M I :: rem_tyvar + {{ ichl (remv_tyvar_expr [[expr]]) }} + {{ com replace the type variables in an expression's type annotations with $\ottkw{\_}$ }} + +parsing + +Expr_tuple <= Expr_construct +Expr_tuple <= Expr_tuple +CONST_constr right Expr_apply + +grammar + + + for_dirn {{ tex \ottkw{\relax{\sf[}down{\sf]}to} }} :: FD_ ::= + {{ coq-equality }} + | to :: :: upto + | downto :: :: downto + + %% It would be nice for the theorem prover type for [[substs_x]] + %% to be exactly [list (value_name*expr)], but we cannot declare + %% type representation homs as ott would then stop generating + %% auxiliary functions. + substs_x :: substs_x_ ::= + {{ com substitutions of expressions for variables }} + | value_name1 <- expr1 , .. , value_namen <- exprn :: I :: xs + | substs_x1 @ .. @ substs_xn :: M I :: substs + {{ coq (substs_x_xs (flat_map substs_x_proj [[substs_x1..substs_xn]])) }} + {{ hol (substs_x_xs (FLAT (MAP (\x. case x of substs_x_xs l => l) [[substs_x1..substs_xn]]))) }} + {{ lem (Substs_x_xs (List.concat (List.map (fun x -> match x with Substs_x_xs l -> l end) [[substs_x1..substs_xn]]))) }} + {{ isa (substs_x_xs (concat (map (%x. case x of substs_x_xs l => l) [[substs_x1..substs_xn]]))) }} + + pattern_matching , pm :: PM_ ::= + | pat_exp1 '|' ... '|' pat_expn :: :: pm + | '|' pat_exp1 '|' ... '|' pat_expn :: S :: pm_extra_bar + {{ ichl (PM_pm [[pat_exp1...pat_expn]]) }} + + pat_exp :: PE_ ::= + | pattern -> expr :: :: inj (+ bind xs(pattern) in expr +) + + let_binding :: LB_ ::= + | pattern = expr :: :: simple + (+ xs = xs(pattern) +) + | value_name pattern1 ... patternn = expr :: S :: func + {{ ichl (LB_simple (P_var [[value_name]]) (fold_pats [[pattern1...patternn]] [[expr]])) }} + | value_name pattern1 ... patternn : typexpr = expr :: S :: typed + {{ ichl (LB_simple (P_var [[value_name]]) (fold_pats [[pattern1...patternn]] (Expr_typed [[expr]] [[typexpr]]))) }} + | '<<' typevar1 <- typexpr1 , .. , typevarn <- typexprn '>>' let_binding :: M :: susbts + {{ ichl (substs_typevar_let_binding [[typevar1 typexpr1..typevarn typexprn]] [[let_binding]]) }} + {{ com substitution of types for type variables }} + + letrec_bindings :: LRBs_ ::= + | letrec_binding1 and ... and letrec_bindingn :: :: inj (+ xs = xs(letrec_binding1 ... letrec_bindingn) +) + | '<<' typevar1 <- typexpr1 , .. , typevarn <- typexprn '>>' letrec_bindings :: M :: susbts + {{ ichl (substs_typevar_letrec_bindings [[typevar1 typexpr1..typevarn typexprn]] [[letrec_bindings]]) }} + {{ com substitution of types for type variables }} + +%% We want to restrict recursive definitions to functions. We can do this +%% in the syntax or in the type system. We currently do it in the syntax. + letrec_binding :: LRB_ ::= + | value_name = function pattern_matching :: :: simple + (+ xs = value_name +) + | value_name = fun pattern pattern1 .. patternn -> expr :: S :: func + {{ ichl (LRB_simple [[value_name]] (PM_pm [PE_inj [[pattern]] (fold_pats [[pattern1..patternn]] [[expr]])])) }} + | value_name pattern pattern1 .. patternn = expr :: S :: impl_fun + {{ ichl (LRB_simple [[value_name]] (PM_pm [PE_inj [[pattern]] (fold_pats [[pattern1..patternn]] [[expr]])])) }} + | value_name pattern pattern1 .. patternn : typexpr = expr :: S :: typed + {{ ichl (LRB_simple [[value_name]] (PM_pm [PE_inj [[pattern]] (fold_pats [[pattern1..patternn]] (Expr_typed [[expr]] [[typexpr]]))])) }} + +>> +%d<< + + %% 6.8.1 (Type definitions) http://caml.inria.fr/pub/docs/manual-ocaml/manual016.html#type-definition + + type_definition {{ isa caml_type_definition }} :: TDF_ ::= + | type typedef1 and .. and typedefn :: d :: tdf + (+ type_names = type_names(typedef1..typedefn) +) + (+ constr_names = constr_names(typedef1..typedefn) +) + {{ com potentially empty definitions to work around Ott parser restrictions }} + + typedef {{ isa caml_typedef }} :: TD_ ::= + | type_params_opt typeconstr_name type_information :: d :: td + (+ bind typevars(type_params_opt) in type_information +) + (+ type_names = typeconstr_name +) + (+ constr_names = constr_names(type_information) +) + + type_information :: TI_ ::= + | type_equation :: d :: eq + (+ constr_names = {} +) + (+ field_names = {} +) + | type_representation :: d :: def + (+ constr_names = constr_names(type_representation) +) + (+ field_names = field_names(type_representation) +) + + type_equation :: TE_ ::= + | = typexpr :: d :: te + + type_representation :: TR_ ::= + | = constr_decl1 '|' ... '|' constr_decln :: d :: variant + (+ constr_names = constr_names(constr_decl1...constr_decln) +) + (+ field_names = {} +) + | = { field_decl1 ; ... ; field_decln } :: d :: record + (+ constr_names = {} +) + (+ field_names = field_names(field_decl1...field_decln) +) + + type_params_opt :: TPS_ ::= + | :: S d :: nullary + {{ coq (TPS_nary nil) }} + {{ hol (TPS_nary []) }} + {{ lem (TPS_nary []) }} + {{ isa (TPS_nary []) }} + {{ com in the theorem prover models we use a uniform representation for empty, singleton and multiple type paramaters }} + | type_param :: S d :: unary + {{ coq (TPS_nary (cons [[type_param]] nil)) }} + {{ hol (TPS_nary [ [[type_param]] ]) }} + {{ lem (TPS_nary [ [[type_param]] ]) }} + {{ isa (TPS_nary [ [[type_param]] ]) }} + | ( type_param1 , ... , type_paramn ) :: d :: nary + (+ typevars = typevars(type_param1...type_paramn) +) + + type_param , tp :: TP_ ::= {{ coq-equality }} + | typevar :: d :: var + (+ typevars = typevar +) + + constr_decl :: CD_ ::= + | constr_name :: d :: nullary + (+ constr_names = constr_name +) + | constr_name of typexpr1 * ... * typexprn :: d :: nary + (+ constr_names = constr_name +) + +parsing + +TE_tuple <= CD_nary +STE_tuple <= CD_nary + +grammar + + field_decl :: FD_ ::= + | field_name : typexpr :: d :: immutable + (+ field_names = field_name +) + + %% 6.8.2 (Exception definitions) http://caml.inria.fr/pub/docs/manual-ocaml/manual016.html#exception-definition + + exception_definition :: ED_ ::= + | exception constr_decl :: d :: def +% | exception constr_name = constr :: d :: alias + + %% 6.11 (Module expressions (module implementations)) http://caml.inria.fr/pub/docs/manual-ocaml/manual019.html#definition + + definition {{ isa caml_definition }} , d :: D_ ::= + | let let_binding :: d :: let + (+ xs = xs(let_binding) +) + {{ com omitting multiple bindings, i.e.\ $\ottkw{and}$ }} + | let rec letrec_bindings :: d :: letrec + (+ xs = xs(letrec_bindings) +) + (+ bind xs(letrec_bindings) in letrec_bindings +) + | type_definition :: d :: type + (+ xs = {} +) + | exception_definition :: d :: exception + (+ xs = {} +) +%m% | module module_name { ( module_name : module_type ) } [ : module_type ] = module_expr :: m :: functor +%m | module_definition :: m :: module +%m | module type modtype_name = module_type :: m :: modtype +%m% | open module_path :: m :: open +%m% | include module_expr :: m :: include + + definitions , ds :: Ds_ ::= + | :: d :: nil + | definition definitions :: d :: cons + (+ bind xs(definition) in definitions +) + | definition ;; definitions :: S d :: cons_semi + {{ ichl (Ds_cons [[definition]] [[definitions]]) }} + | '<<' substs_x '>>' definitions :: M d :: substs + {{ coq (substs_value_name_definitions (substs_x_proj [[substs_x]]) [[definitions]]) }} + {{ hol (substs_value_name_definitions (case [[substs_x]] of substs_x_xs l => l) [[definitions]]) }} + {{ lem (substs_value_name_definitions (match [[substs_x]] with Substs_x_xs l -> l end) [[definitions]]) }} + {{ isa (substs_value_name_definitions (case [[substs_x]] of substs_x_xs l => l) [[definitions]]) }} + {{ com substitution of expressions for variables }} + | definitions definition :: M d :: snoc + {{ ichl (definitions_snoc [[definitions]] [[definition]]) }} + {{ com adding a definition to the end of a sequence }} + | definitions ;; definition :: M d :: snoc_semi + {{ ichl (definitions_snoc [[definitions]] [[definition]]) }} + + program :: Prog_ ::= + | definitions :: d :: defs + | (%prim raise) expr :: d :: raise +%d>> +<< + + %% Gadgets for the type system and semantics that are not in the source syntax. + + value {{ coq core_value }} , v :: V_ ::= + {{ com core value }} + | ( %prim unary_prim ) :: L I :: uprim + | ( %prim binary_prim ) :: L I :: bprim + | binary_prim_app_value value :: I :: bprim_app + {{ com partially applied binary primitive }} + | constant :: I :: constant + | ( value ) :: I :: paren + | value1 , .... , valuen :: I :: tuple + | constr ( value1 , .. , valuen ) :: I :: construct + | value1 '::' value2 :: I L :: cons + | [ value1 ; ... ; valuen ] :: I L :: list +%d | { field1 = value1 ; ... ; fieldn = valuen } :: I d :: record + | function pattern_matching :: I :: function + | fun pattern1 ... patternn -> expr :: I :: func + | location :: I :: location + + binary_prim_app_value :: BPAV_ ::= + | ( %prim binary_prim ) :: I :: inj + +parsing + +V_tuple <= V_construct + +grammar + +>> +%d<< + definition_value , d_value :: DV_ ::= + | type_definition :: d I :: type + | exception_definition :: d I :: exception + + definitions_value , ds_value :: DsV_ ::= + | :: d I :: nil + | definition_value definitions_value :: d I :: cons + | definition_value ;; definitions_value :: d I :: cons_semi +%d>> +<< + + non_expansive , nexp :: Nexp_ ::= + {{ com nonexpansive expression (allowed in a polymorphic let) }} + | ( %prim unary_prim ) :: I :: uprim + | ( %prim binary_prim ) :: I :: bprim + | binary_prim_app_value nexp :: I :: bprim_app + {{ com partially applied binary primitive }} + | value_name :: I :: ident + | constant :: I :: constant + | ( nexp ) :: I :: paren + | ( nexp : typexpr ) :: I :: typed + | nexp1 , .... , nexpn :: I :: tuple + | constr ( nexp1 , .. , nexpn ) :: I :: construct + | nexp1 '::' nexp2 :: I :: cons + | [ nexp1 ; ... ; nexpn ] :: I L :: list +%d | { field1 = nexp1 ; ... ; fieldn = nexpn } :: I d :: record + | let rec letrec_bindings in nexp :: I :: letrec + | function pattern_matching :: I :: function + | fun pattern1 ... patternn -> expr :: I :: func + | location :: I :: location + +parsing + +Nexp_tuple <= Nexp_construct + +grammar + + store , st :: STORE_ ::= + {{ hol ((location#expr) list) }} + {{ lem (list (location*expr)) }} + {{ isa ((location*expr) list) }} + {{ coq list (location * expr)}} + | empty :: I :: empty + {{ hol [] }} + {{ lem [] }} + {{ isa [] }} + {{ coq (@nil (location*expr)) }} + | store , location |-> expr :: I :: map + {{ hol (([[location]], [[expr]])::[[store]]) }} + {{ lem (([[location]], [[expr]])::[[store]]) }} + {{ isa (([[location]], [[expr]])#[[store]]) }} + {{ coq (cons ([[location]], [[expr]]) [[store]]) }} + | store , location |-> expr , store' :: M I :: middle + {{ hol ([[store']]++[([[location]], [[expr]])]++[[store]]) }} + {{ lem ([[store']]++[([[location]], [[expr]])]++[[store]]) }} + {{ isa ([[store']]@[([[location]], [[expr]])]@[[store]]) }} + {{ coq (app [[store']] (cons ([[location]], [[expr]]) [[store]])) }} + +kind :: K_ ::= + {{ coq nat }} + {{ hol num }} + {{ lem nat }} + {{ isa nat }} + | num -> Type :: I :: arity + {{ ichl [[num]] }} + {{ tex \ottkw{Type}^{[[num]]}\rightarrow[[Type]] }} + | Type :: S I :: type + {{ ichl 0 }} + +name :: name_ ::= {{ coq-equality }} + {{ com environment lookup key }} + | TV :: I :: tv + | value_name :: I :: vn +%d | constr_name :: d I :: cn +%d | typeconstr_name :: d I :: tcn +%d | field_name :: d I :: fn + | location :: I :: l + +names :: names_ ::= + {{ coq list name }} + {{ hol (name list) }} + {{ lem (list name) }} + {{ isa (name list) }} + | name1 .. namen :: I :: inj + {{ ichl [[name1..namen]] }} + +typexprs :: typexprs_ ::= + | typexpr1 , ... , typexprn :: I :: inj + | shift num num' typexprs :: M I :: shift + {{ ichl (shifttes [[num]] [[num']] [[typexprs]]) }} + {{ com shift the indices in the types in $[[typexprs]]$ by $[[num]]$, ignoring indices lower than $[[num']]$ }} + +environment_binding , EB :: EB_ ::= + | TV :: I :: tv + {{ com type variable }} + | value_name : typescheme :: I :: vn + {{ com value binding }} + | value_name : typexpr :: M I :: vntype + {{ com value binding with no universal quantifier }} + {{ ichl (EB_vn [[value_name]] (TS_forall (shiftt 0 1 [[typexpr]]))) }} +%d | constr_name of typeconstr :: d I :: cc +%d {{ com constant constructor }} +%d | constr_name of forall type_params_opt , ( typexprs ) : typeconstr :: d I :: pc +%d (+ bind typevars(type_params_opt) in typexprs +) +%d {{ com parameterised constructor }} +%d | field_name : forall type_params_opt , typeconstr_name -> typexpr :: d I :: fn +%d (+ bind typevars(type_params_opt) in typexpr +) +%d {{ com field name a record destructor }} +%d | typeconstr_name : kind :: d I :: td +%d {{ com type name, bound to a fresh type }} +%d | typeconstr_name : kind { field_name1 ; ... ; field_namen } :: d I :: tr +%d {{ com type name which is a record type definition }} +%d | type_params_opt typeconstr_name = typexpr :: d I :: ta +%d (+ bind typevars(type_params_opt) in typexpr +) +%d {{ com type name which is an abbreviation }} + | location : typexpr :: I :: l + {{ com location (memory cell) }} + | ( EB ) :: M I :: paren + {{ ichl [[EB]] }} + | shift num num' EB :: M I :: shift + {{ ichl (shiftEB [[num]] [[num']] [[EB]]) }} + {{ com shift the indices in the types in $[[EB]]$ by $[[num]]$, ignoring indices lower than $[[num']]$ }} + +environment , E :: Env_ ::= + {{ coq (list environment_binding) }} + {{ hol (environment_binding list) }} + {{ lem (list environment_binding) }} + {{ isa (environment_binding list) }} + | empty :: I :: nil + {{ coq (@nil environment_binding) }} + {{ hol [] }} + {{ lem [] }} + {{ isa [] }} + | E , EB :: I :: snoc + {{ tex \ottenvironmentappend{[[E]]}{[[EB]]} }} + {{ coq (cons [[EB]] [[E]]) }} + {{ hol ([[EB]]::[[E]]) }} + {{ lem ([[EB]]::[[E]]) }} + {{ isa ([[EB]]#[[E]]) }} + | EB1 , .. , EBn :: M I :: list + {{ coq (rev [[EB1 .. EBn]]) }} + {{ hol (REVERSE [[EB1 .. EBn]]) }} + {{ lem (List.reverse [[EB1 .. EBn]]) }} + {{ isa (rev [[EB1 .. EBn]]) }} + | E1 @ .. @ En :: M I :: tree + {{ coq (flatten (rev [[E1 .. En]])) }} + {{ hol (FLAT (REVERSE [[E1 .. En]])) }} + {{ lem (List.concat (List.reverse [[E1 .. En]])) }} + {{ isa (concat (rev [[E1 .. En]])) }} + +trans_label , L :: Lab_ ::= + {{ com reduction label (denoting a side effect) }} + | :: I :: nil + | ref v = location :: I :: alloc + | ! location = v :: I :: deref + | location := v :: I :: assign + | ( L ) :: I M :: paren + {{ ichl [[L]] }} + {{ tex [[L]] }} + +labelled_arrow :: LA_ ::= + {{ ichl trans_label }} + {{ tex \stackrel{\ottnt{L} }{\longrightarrow}\ottmaybebreakline }} + | --> L :: I :: inj + {{ ichl [[L]] }} + {{ tex \stackrel{[[L]]}{\longrightarrow}\ottmaybebreakline }} + +subrules + value <:: expr + binary_prim_app_value <:: expr + non_expansive <:: expr + src_typexpr <:: typexpr + +>> +%d<< +subrules + definition_value <:: definition + definitions_value <:: definitions +%d>> +<< + +freevars typexpr typevar :: ftv +freevars expr value_name :: fv +freevars expr location :: fl + +substitutions + multiple typexpr typevar :: substs_typevar + multiple expr value_name :: substs_value_name + single expr value_name :: subst_value_name + + + +grammar + formula :: formula_ ::= + {{ com semantic judgements and their side conditions }} + | judgement :: :: judgement + | formula1 .. formulan :: :: dots + | intn1 <= intn2 :: :: le_int + {{ coq (([[intn1]] <= [[intn2]])%Z) }} + {{ hol ([[intn1]] <= [[intn2]]) }} + {{ lem ([[intn1]] <= [[intn2]]) }} + {{ isa ([[intn1]] <= [[intn2]]) }} + {{ tex [[intn1]] \stackrel\centerdot\leq [[intn2]] }} + | intn1 > intn2 :: :: gt_int + {{ coq (([[intn1]] > [[intn2]])%Z) }} + {{ hol ([[intn1]] > [[intn2]]) }} + {{ lem ([[intn1]] > [[intn2]]) }} + {{ isa ([[intn1]] > [[intn2]]) }} + {{ tex [[intn1]] \stackrel\centerdot > [[intn2]] }} + | num1 < num2 :: :: lt_num + {{ coq (([[num1]] < [[num2]])%Z) }} + {{ hol ([[num1]] < [[num2]]) }} + {{ lem ([[num1]] < [[num2]]) }} + {{ isa ([[num1]] < [[num2]]) }} + | E = E' :: :: eq_environment + {{ ichl ([[E]] = [[E']]) }} + | expr = expr' :: :: eq_expr + {{ ichl ([[expr]] = [[expr']]) }} + | typexpr = typexpr' :: :: eq_typexpr + {{ ichl ([[typexpr]] = [[typexpr']]) }} + | typescheme = typescheme' :: :: eq_typescheme + {{ ichl ([[typescheme]] = [[typescheme']]) }} + | type_params_opt = type_params_opt' :: :: eq_type_params_opt + {{ ichl ([[type_params_opt]] = [[type_params_opt']]) }} + | letrec_bindings = letrec_bindings' :: :: eq_letrec_bindings + {{ ichl ([[letrec_bindings]] = [[letrec_bindings']]) }} + {{ tex [[letrec_bindings]] = ([[letrec_bindings']]) }} + | length ( tp1 ) .. ( tpn ) = m :: :: length_list_type_param_eq + {{ coq ([[m]] = length [[tp1..tpn]]) }} + {{ hol ([[m]] = LENGTH ([[tp1..tpn]])) }} + {{ lem ([[m]] = List.length ([[tp1..tpn]])) }} + {{ isa ([[m]] = length ([[tp1..tpn]])) }} + | length ( t1 ) .. ( tn ) = num :: :: length_list_typexpr_eq + {{ coq ([[num]] = length [[t1..tn]]) }} + {{ hol ([[num]] = LENGTH ([[t1..tn]])) }} + {{ lem ([[num]] = List.length ([[t1..tn]])) }} + {{ isa ([[num]] = length ([[t1..tn]])) }} + | length ( t1 ) .. ( tn ) <= num :: :: length_list_typexpr_le + {{ coq (length [[t1..tn]] <= [[num]]) }} + {{ hol (LENGTH ([[t1..tn]]) <= [[num]]) }} + {{ lem (List.length ([[t1..tn]]) <= [[num]]) }} + {{ isa (length ([[t1..tn]]) <= [[num]]) }} + | length ( t1 ) .. ( tn ) >= num :: :: length_list_typexpr_ge + {{ coq (length [[t1..tn]] >= [[num]]) }} + {{ hol (LENGTH ([[t1..tn]]) >= [[num]]) }} + {{ lem (List.length ([[t1..tn]]) >= [[num]]) }} + {{ isa (length ([[t1..tn]]) >= [[num]]) }} + | length ( pat1 ) .. ( patn ) >= m :: :: length_list_pattern_ge + {{ coq (length [[pat1..patn]] >= [[m]]) }} + {{ hol (LENGTH ([[pat1..patn]]) >= [[m]]) }} + {{ lem (List.length ([[pat1..patn]]) >= [[m]]) }} + {{ isa (length ([[pat1..patn]]) >= [[m]]) }} + | length ( e1 ) .. ( en ) >= m :: :: length_list_expr_ge + {{ coq (length [[e1..en]] >= [[m]]) }} + {{ hol (LENGTH ([[e1..en]]) >= [[m]]) }} + {{ lem (List.length ([[e1..en]]) >= [[m]]) }} + {{ isa (length ([[e1..en]]) >= [[m]]) }} + | name notin names :: :: name_notin + {{ coq (~In [[name]] [[names]]) }} + {{ hol (~MEM [[name]] [[names]]) }} + {{ lem (not (List.elem [[name]] [[names]])) }} + {{ isa (~( [[name]] mem [[names]])) }} +%d | field_name in field_name1 .. field_namen :: d :: fn_in_fns +%d {{ coq (In [[field_name]] [[field_name1..field_namen]]) }} +%d {{ hol (MEM [[field_name]] [[field_name1..field_namen]]) }} +%d {{ lem (List.elem [[field_name]] [[field_name1..field_namen]]) }} +%d {{ isa ([[field_name]] mem [[field_name1..field_namen]]) }} + | type_param in type_params_opt :: :: typevar_in_typevars + {{ coq (In [[type_param]] (match [[type_params_opt]] with TPS_nary x => x end)) }} + {{ hol (MEM [[type_param]] (case [[type_params_opt]] of TPS_nary x => x)) }} + {{ lem (List.elem [[type_param]] (match [[type_params_opt]] with TPS_nary x -> x end)) }} + {{ isa ([[type_param]] mem (case [[type_params_opt]] of TPS_nary x => x)) }} + | name1 .. namen distinct :: :: distinct_names + {{ coq (NoDup [[name1..namen]]) }} + {{ hol (ALL_DISTINCT ([[name1..namen]])) }} + {{ lem (list_distinct ([[name1..namen]])) }} + {{ isa (distinct ([[name1..namen]])) }} + | tp1 .. tpn distinct :: :: distinct_type_param + {{ coq (NoDup [[tp1..tpn]]) }} + {{ hol (ALL_DISTINCT ([[tp1..tpn]])) }} + {{ lem (list_distinct ([[tp1..tpn]])) }} + {{ isa (distinct ([[tp1..tpn]])) }} + | E PERMUTES E' :: :: permutes_env + {{ coq (Permutation [[E]] [[E']]) }} + {{ hol (PERM ([[E]]) ([[E']])) }} + {{ lem (list_perm ([[E]]) ([[E']])) }} + {{ isa (List.perm ([[E]]) ([[E']])) }} +%d | fn1 .. fnn PERMUTES fn1' .. fnm' :: d :: permutes_field_name +%d {{ coq (Permutation [[fn1..fnn]] [[fn1'..fnm']]) }} +%d {{ hol (PERM ([[fn1..fnn]]) ([[fn1'..fnm']])) }} +%d {{ lem (list_perm ([[fn1..fnn]]) ([[fn1'..fnm']])) }} +%d {{ isa (perm ([[fn1..fnn]]) ([[fn1'..fnm']])) }} +%d | fn1 = e1 .. fnn = en PERMUTES fn1' = e1' .. fnm' = em' :: d :: permutes_field_name_expr +%d {{ coq (Permutation [[fn1 e1..fnn en]] [[fn1' e1'..fnm' em']]) }} +%d {{ hol (PERM ([[fn1 e1..fnn en]]) ([[fn1' e1'..fnm' em']])) }} +%d {{ lem (list_perm ([[fn1 e1..fnn en]]) ([[fn1' e1'..fnm' em']])) }} +%d {{ isa (perm ([[fn1 e1..fnn en]]) ([[fn1' e1'..fnm' em']])) }} + | |- value notmatches pattern :: :: does_not_match + {{ tex \neg([[value]]~\ottkw{matches}~[[pattern]]) }} + {{ coq (~JM_matchP [[value]] [[pattern]]) }} + {{ hol (~JM_matchP [[value]] [[pattern]]) }} + {{ lem (not (JM_matchP [[value]] [[pattern]])) }} + {{ isa (~(([[value]], [[pattern]]) : JM_matchP)) }} + | constant noteq constant' :: :: different_consts + {{ isa (~([[constant]] = [[constant']])) }} + {{ coq (~([[constant]] = [[constant']])) }} + {{ hol (~([[constant]] = [[constant']])) }} + {{ lem (not ([[constant]] = [[constant']])) }} + | name noteq name' :: :: different_names + {{ isa (~([[name]] = [[name']])) }} + {{ coq (~([[name]] = [[name']])) }} + {{ hol (~([[name]] = [[name']])) }} + {{ lem (not ([[name]] = [[name']])) }} + | store ( location ) unallocated :: :: store_unallocated + {{ coq (forall v8, ~JSlookup [[store]] [[location]] v8) }} + {{ hol (!v8. ~JSlookup [[store]] [[location]] v8) }} + {{ lem (forall v8. not (JSlookup [[store]] [[location]] v8)) }} + {{ isa (! v8. ~(([[store]], [[location]], v8) : JSlookup )) }} + | type_vars ( let_binding ) gives typevar1 , .. , typevarn :: :: typevars_of_let_gives + {{ ichl (ftv_let_binding [[let_binding]] = [[typevar1..typevarn]]) }} + | type_vars ( letrec_bindings ) gives typevar1 , .. , typevarn :: :: typevars_of_letrec_gives + {{ ichl (ftv_letrec_bindings [[letrec_bindings]] = [[typevar1..typevarn]]) }} + +grammar + terminals :: terminals_ ::= + {{ com prettyprinting specifications }} + | %prim :: :: prim {{ tex \ottkw{\%prim} }} + | * :: :: star {{ tex \ast }} + | ---> :: :: vararrow {{ tex \rightarrow }} + | --> :: :: red {{ tex \longrightarrow }} + | -> :: :: arrow {{ tex \rightarrow }} + | <- :: :: leftarrow {{ tex \!\!\leftarrow\!\! }} + | '<<' :: :: substl {{ tex \{\!\!\{ }} + | <= :: :: le {{ tex \leq }} + | == :: :: equiv {{ tex \equiv }} + | >= :: :: ge {{ tex \geq }} + | '>>' :: :: substr {{ tex \}\!\!\} }} + | forall :: :: forall {{ tex \forall }} + | gives :: :: gives {{ tex \;\vartriangleright\;\ottmaybebreakline }} + | notin :: :: notin {{ tex \notin }} + | noteq :: :: noteq {{ tex \not = }} + | |- :: :: turnstile {{ tex \vdash }} + | |-> :: :: mapsto {{ tex \mapsto }} + | ~- :: :: uminus {{ tex \mathrel{\sim\!\!-} }} + +embed {{ hol + +val _ = Define +`fold_pat pats expr = FOLDR (\p e. Expr_function (PM_pm [PE_inj p e])) expr pats`; + +val _ = ottDefine "shiftt" +`([[:user_syntax__typexpr:shift m n typevar]] = [[:user_syntax__typexpr:typevar]]) /\ + ([[:user_syntax__typexpr:shift m n ]] = + if [[idx < m]] then [[:user_syntax__typexpr:]] else [[:user_syntax__typexpr:]]) /\ + ([[:user_syntax__typexpr:shift m n _]] = [[:user_syntax__typexpr:_]]) /\ + ([[:user_syntax__typexpr:shift m n (typexpr1->typexpr2)]] = + [[:user_syntax__typexpr:(shift m n typexpr1)->(shift m n typexpr2)]]) /\ + (shiftt m n (TE_tuple typexprs) = TE_tuple (MAP (shiftt m n) typexprs)) /\ + (shiftt m n (TE_constr typexprs tc) = TE_constr (MAP (shiftt m n) typexprs) tc)`; + +val _ = Define +`(shifttes m n (Typexprs_inj tes) = Typexprs_inj (MAP (shiftt m n) tes))`; + +val _ = Define +`([[shift m n forall typexpr]] = [[forall shift (m + 1) n typexpr]])`; + +val _ = Define +`([[:user_syntax__environment_binding:shift m n TV]] = [[:user_syntax__environment_binding:TV]]) /\ + ([[:user_syntax__environment_binding:shift m n value_name:typescheme]] = + [[:user_syntax__environment_binding:value_name : shift m n typescheme]]) /\ + ([[:user_syntax__environment_binding:shift m n constr_name of typeconstr]] = + [[:user_syntax__environment_binding:constr_name of typeconstr]]) /\ + ([[:user_syntax__environment_binding:shift m n constr_name of forall type_params_opt, (typexprs) : typeconstr]] = + [[:user_syntax__environment_binding:constr_name of forall type_params_opt, (shift m n typexprs) : typeconstr]]) /\ + ([[:user_syntax__environment_binding:shift m n field_name:forall type_params_opt, typeconstr_name -> typexpr]] = + [[:user_syntax__environment_binding:field_name:forall type_params_opt, typeconstr_name -> shift m n typexpr]]) /\ + ([[:user_syntax__environment_binding:shift m n typeconstr_name:kind]] = + [[:user_syntax__environment_binding:typeconstr_name:kind]]) /\ + (shiftEB m n (EB_tr tcn k field_names) = EB_tr tcn k field_names) /\ + ([[:user_syntax__environment_binding:shift m n type_params_opt typeconstr_name = typexpr]] = + [[:user_syntax__environment_binding:type_params_opt typeconstr_name = shift m n typexpr]]) /\ + ([[:user_syntax__environment_binding:shift m n location: typexpr]] = + [[:user_syntax__environment_binding:location: shift m n typexpr]])`; + +val num_tv_def = Define +`(num_tv [] = 0:num) /\ + (num_tv (EB_tv::E) = 1 + num_tv E) /\ + (num_tv (EB::E) = num_tv E)`; + +val _ = Define +`(shiftE m n [] = []) /\ + (shiftE m n (EB::E) = shiftEB (m + num_tv E) n EB::shiftE m n E)`; + +val _ = Define +`(shiftTsig m n Tsig = MAP (\(tv, t). (tv, shiftt m n t)) Tsig)`; + +val _ = Define +`(definitions_snoc Ds_nil d = Ds_cons d Ds_nil) /\ + (definitions_snoc (Ds_cons d ds) d' = Ds_cons d (definitions_snoc ds d'))`; + +val _ = ottDefine "remv_tyvar_typexpr" +`(remv_tyvar_typexpr (TE_var typevar) = TE_any) /\ + (remv_tyvar_typexpr (TE_idxvar idx num) = TE_idxvar idx num) /\ + (remv_tyvar_typexpr TE_any = TE_any) /\ + (remv_tyvar_typexpr (TE_arrow typexpr1 typexpr2) = + TE_arrow (remv_tyvar_typexpr typexpr1) (remv_tyvar_typexpr typexpr2)) /\ + (remv_tyvar_typexpr (TE_tuple (typexpr_list)) = + TE_tuple (MAP (\typexpr_. (remv_tyvar_typexpr typexpr_)) typexpr_list)) /\ + (remv_tyvar_typexpr (TE_constr (typexpr_list) typeconstr) = + TE_constr (MAP (\typexpr_. (remv_tyvar_typexpr typexpr_)) typexpr_list) typeconstr)`; + +val _ = ottDefine "remv_tyvar_pattern" +`(remv_tyvar_pattern (P_var value_name) = P_var value_name) /\ + (remv_tyvar_pattern P_any = P_any) /\ + (remv_tyvar_pattern (P_constant constant) = P_constant constant) /\ + (remv_tyvar_pattern (P_alias pattern value_name) = + P_alias (remv_tyvar_pattern pattern) value_name) /\ + (remv_tyvar_pattern (P_typed pattern typexpr) = + P_typed (remv_tyvar_pattern pattern) (remv_tyvar_typexpr typexpr)) /\ + (remv_tyvar_pattern (P_or pattern1 pattern2) = + P_or (remv_tyvar_pattern pattern1) (remv_tyvar_pattern pattern2)) /\ + (remv_tyvar_pattern (P_construct constr (pattern_list)) = + P_construct constr (MAP (\pattern_. (remv_tyvar_pattern pattern_)) pattern_list)) /\ + (remv_tyvar_pattern (P_construct_any constr) = P_construct_any constr) /\ + (remv_tyvar_pattern (P_tuple (pattern_list)) = + P_tuple (MAP (\pattern_. (remv_tyvar_pattern pattern_)) pattern_list)) /\ + (remv_tyvar_pattern (P_record (field_pattern_list)) = + P_record (MAP (\(field_,pattern_). (field_,(remv_tyvar_pattern pattern_))) field_pattern_list)) /\ + (remv_tyvar_pattern (P_cons pattern1 pattern2) = + P_cons (remv_tyvar_pattern pattern1) (remv_tyvar_pattern pattern2))`; + +val _ = ottDefine "remv_tyvar_letrec_binding" +`(remv_tyvar_letrec_binding (LRB_simple value_name pattern_matching) = + LRB_simple value_name (remv_tyvar_pattern_matching pattern_matching)) /\ + (remv_tyvar_letrec_bindings (LRBs_inj (letrec_binding_list)) = + LRBs_inj (MAP (\letrec_binding_. (remv_tyvar_letrec_binding letrec_binding_)) letrec_binding_list)) /\ + (remv_tyvar_let_binding (LB_simple pattern expr) = + LB_simple (remv_tyvar_pattern pattern) (remv_tyvar_expr expr)) /\ + (remv_tyvar_pat_exp (PE_inj pattern expr) = + PE_inj (remv_tyvar_pattern pattern) (remv_tyvar_expr expr)) /\ + (remv_tyvar_pattern_matching (PM_pm (pat_exp_list)) = + PM_pm (MAP (\pat_exp_. (remv_tyvar_pat_exp pat_exp_)) pat_exp_list)) /\ + (remv_tyvar_expr (Expr_uprim unary_prim) = Expr_uprim unary_prim) /\ + (remv_tyvar_expr (Expr_bprim binary_prim) = Expr_bprim binary_prim) /\ + (remv_tyvar_expr (Expr_ident value_name) = Expr_ident value_name) /\ + (remv_tyvar_expr (Expr_constant constant) = Expr_constant constant) /\ + (remv_tyvar_expr (Expr_typed expr typexpr) = + Expr_typed (remv_tyvar_expr expr) (remv_tyvar_typexpr typexpr)) /\ + (remv_tyvar_expr (Expr_tuple (expr_list)) = + Expr_tuple (MAP (\expr_. (remv_tyvar_expr expr_)) expr_list)) /\ + (remv_tyvar_expr (Expr_construct constr (expr_list)) = + Expr_construct constr (MAP (\expr_. (remv_tyvar_expr expr_)) expr_list)) /\ + (remv_tyvar_expr (Expr_cons expr1 expr2) = + Expr_cons (remv_tyvar_expr expr1) (remv_tyvar_expr expr2)) /\ + (remv_tyvar_expr (Expr_record (field_expr_list)) = + Expr_record (MAP (\(field_,expr_). (field_,(remv_tyvar_expr expr_))) field_expr_list)) /\ + (remv_tyvar_expr (Expr_override expr (field_expr_list)) = + Expr_override (remv_tyvar_expr expr) + (MAP (\(field_,expr_). (field_,(remv_tyvar_expr expr_))) field_expr_list)) /\ + (remv_tyvar_expr (Expr_apply expr1 expr2) = + Expr_apply (remv_tyvar_expr expr1) (remv_tyvar_expr expr2)) /\ + (remv_tyvar_expr (Expr_and expr1 expr2) = + Expr_and (remv_tyvar_expr expr1) (remv_tyvar_expr expr2)) /\ + (remv_tyvar_expr (Expr_or expr1 expr2) = + Expr_or (remv_tyvar_expr expr1) (remv_tyvar_expr expr2)) /\ + (remv_tyvar_expr (Expr_field expr field) = Expr_field (remv_tyvar_expr expr) field) /\ + (remv_tyvar_expr (Expr_ifthenelse expr0 expr1 expr2) = + Expr_ifthenelse (remv_tyvar_expr expr0) (remv_tyvar_expr expr1) (remv_tyvar_expr expr2)) /\ + (remv_tyvar_expr (Expr_while expr1 expr2) = + Expr_while (remv_tyvar_expr expr1) (remv_tyvar_expr expr2)) /\ + (remv_tyvar_expr (Expr_for x expr1 for_dirn expr2 expr3) = + Expr_for x (remv_tyvar_expr expr1) for_dirn (remv_tyvar_expr expr2) (remv_tyvar_expr expr3))/\ + (remv_tyvar_expr (Expr_sequence expr1 expr2) = + Expr_sequence (remv_tyvar_expr expr1) (remv_tyvar_expr expr2)) /\ + (remv_tyvar_expr (Expr_match expr pattern_matching) = + Expr_match (remv_tyvar_expr expr) (remv_tyvar_pattern_matching pattern_matching)) /\ + (remv_tyvar_expr (Expr_function pattern_matching) = + Expr_function (remv_tyvar_pattern_matching pattern_matching)) /\ + (remv_tyvar_expr (Expr_try expr pattern_matching) = + Expr_try (remv_tyvar_expr expr) (remv_tyvar_pattern_matching pattern_matching)) /\ + (remv_tyvar_expr (Expr_let let_binding expr) = + Expr_let (remv_tyvar_let_binding let_binding) (remv_tyvar_expr expr)) /\ + (remv_tyvar_expr (Expr_letrec letrec_bindings expr) = + Expr_letrec (remv_tyvar_letrec_bindings letrec_bindings) (remv_tyvar_expr expr)) /\ + (remv_tyvar_expr (Expr_assert expr) = Expr_assert (remv_tyvar_expr expr)) /\ + (remv_tyvar_expr (Expr_location location) = Expr_location location)`; + + +}} + +embed {{ lem + +let rec list_distinct xs = + match xs with + | [] -> true + | [x] -> true + | x::xs -> not(List.elem x xs) && list_distinct xs + end + +(* insert x at all positions into l and return the list of results *) +let rec insert x l = match l with +| [] -> [ [x] ] +| a::m -> (x::l) :: (List.map (fun y -> a::y) (insert x m)) +end + +(* list of all permutations of l *) +let rec perms l = match l with +| a::m -> List.concat (List.map (insert a) (perms m)) +| _ -> [l] +end +(* nb this is very inefficient *) +let rec list_perm xs ys = List.elem xs (perms ys) + + +let fold_pat pats expr = List.foldr (fun p e -> Expr_function (PM_pm [PE_inj p e])) expr pats + +let rec +shiftt m n (TE_var typevar) = TE_var typevar +and +shiftt m n (TE_idxvar idx num) = + if (idx < m) then TE_idxvar idx num else TE_idxvar (idx + n) num +and +shiftt m n TE_any = TE_any +and +shiftt m n (TE_arrow typexpr1 typexpr2) = + TE_arrow (shiftt m n typexpr1) (shiftt m n typexpr2) +and +shiftt m n (TE_tuple typexprs) = TE_tuple (List.map (shiftt m n) typexprs) +and +shiftt m n (TE_constr typexprs tc) = TE_constr (List.map (shiftt m n) typexprs) tc + + +let shifttes m n (Typexprs_inj tes) = Typexprs_inj (List.map (shiftt m n) tes) + +let shiftts m n (TS_forall typexpr) = TS_forall (shiftt (m + 1) n typexpr) + +let rec +shiftEB m n EB_tv = EB_tv +and +shiftEB m n (EB_vn value_name typescheme) = + EB_vn value_name (shiftts m n typescheme) +and +shiftEB m n (EB_cc constr_name typeconstr) = + EB_cc constr_name typeconstr +and +shiftEB m n (EB_pc constr_name type_params_opt typexprs typeconstr) = + EB_pc constr_name type_params_opt (shifttes m n typexprs ) typeconstr +and +shiftEB m n (EB_fn field_name type_params_opt typeconstr_name typexpr) = + EB_fn field_name type_params_opt typeconstr_name (shiftt m n typexpr) +and +shiftEB m n (EB_td typeconstr_name kind) = + EB_td typeconstr_name kind +and +shiftEB m n (EB_tr tcn k field_names) = EB_tr tcn k field_names +and +shiftEB m n (EB_ta type_params_opt typeconstr_name typexpr) = + EB_ta type_params_opt typeconstr_name (shiftt m n typexpr) +and +shiftEB m n (EB_l location typexpr) = + EB_l location (shiftt m n typexpr) + +let rec +num_tv [] = (0:nat) +and +num_tv (EB_tv::E) = 1 + num_tv E +and +num_tv (EB::E) = num_tv E + +let rec +shiftE m n [] = [] +and +shiftE m n (EB::E) = shiftEB (m + num_tv E) n EB::shiftE m n E + +let shiftTsig m n Tsig = List.map (fun (tv, t) -> (tv, shiftt m n t)) Tsig + +let rec +definitions_snoc Ds_nil d = Ds_cons d Ds_nil +and +definitions_snoc (Ds_cons d ds) d' = Ds_cons d (definitions_snoc ds d') + +let rec +remv_tyvar_typexpr (TE_var typevar) = TE_any +and +remv_tyvar_typexpr (TE_idxvar idx num) = TE_idxvar idx num +and +remv_tyvar_typexpr TE_any = TE_any +and +remv_tyvar_typexpr (TE_arrow typexpr1 typexpr2) = + TE_arrow (remv_tyvar_typexpr typexpr1) (remv_tyvar_typexpr typexpr2) +and +remv_tyvar_typexpr (TE_tuple (typexpr_list)) = + TE_tuple (List.map (fun typexpr_ -> (remv_tyvar_typexpr typexpr_)) typexpr_list) +and +remv_tyvar_typexpr (TE_constr (typexpr_list) typeconstr) = + TE_constr (List.map (fun typexpr_ -> (remv_tyvar_typexpr typexpr_)) typexpr_list) typeconstr + +let rec +remv_tyvar_pattern (P_var value_name) = P_var value_name +and +remv_tyvar_pattern P_any = P_any +and +remv_tyvar_pattern (P_constant constantl) = P_constant constantl +and +remv_tyvar_pattern (P_alias patternl value_name) = + P_alias (remv_tyvar_pattern patternl) value_name +and +remv_tyvar_pattern (P_typed patternl typexpr) = + P_typed (remv_tyvar_pattern patternl) (remv_tyvar_typexpr typexpr) +and +remv_tyvar_pattern (P_or pattern1 pattern2) = + P_or (remv_tyvar_pattern pattern1) (remv_tyvar_pattern pattern2) +and +remv_tyvar_pattern (P_construct constr (pattern_list)) = + P_construct constr (List.map (fun pattern_ -> (remv_tyvar_pattern pattern_)) pattern_list) +and +remv_tyvar_pattern (P_construct_any constr) = P_construct_any constr +and +remv_tyvar_pattern (P_tuple (pattern_list)) = + P_tuple (List.map (fun pattern_ -> (remv_tyvar_pattern pattern_)) pattern_list) +and +remv_tyvar_pattern (P_record (field_pattern_list)) = + P_record (List.map (fun (field_,pattern_) -> (field_,(remv_tyvar_pattern pattern_))) field_pattern_list) +and +remv_tyvar_pattern (P_cons pattern1 pattern2) = + P_cons (remv_tyvar_pattern pattern1) (remv_tyvar_pattern pattern2) + +let rec +remv_tyvar_letrec_binding (LRB_simple value_name pattern_matching) = + LRB_simple value_name (remv_tyvar_pattern_matching pattern_matching) +and +remv_tyvar_letrec_bindings (LRBs_inj (letrec_binding_list)) = + LRBs_inj (List.map (fun letrec_binding_ -> (remv_tyvar_letrec_binding letrec_binding_)) letrec_binding_list) +and +remv_tyvar_let_binding (LB_simple patternl expr) = + LB_simple (remv_tyvar_pattern patternl) (remv_tyvar_expr expr) +and +remv_tyvar_pat_exp (PE_inj patternl expr) = + PE_inj (remv_tyvar_pattern patternl) (remv_tyvar_expr expr) +and +remv_tyvar_pattern_matching (PM_pm (pat_exp_list)) = + PM_pm (List.map (fun pat_exp_ -> (remv_tyvar_pat_exp pat_exp_)) pat_exp_list) +and +remv_tyvar_expr (Expr_uprim unary_prim) = Expr_uprim unary_prim +and +remv_tyvar_expr (Expr_bprim binary_prim) = Expr_bprim binary_prim +and +remv_tyvar_expr (Expr_ident value_name) = Expr_ident value_name +and +remv_tyvar_expr (Expr_constant constantl) = Expr_constant constantl +and +remv_tyvar_expr (Expr_typed expr typexpr) = + Expr_typed (remv_tyvar_expr expr) (remv_tyvar_typexpr typexpr) +and +remv_tyvar_expr (Expr_tuple (expr_list)) = + Expr_tuple (List.map (fun expr_ -> (remv_tyvar_expr expr_)) expr_list) +and +remv_tyvar_expr (Expr_construct constr (expr_list)) = + Expr_construct constr (List.map (fun expr_ -> (remv_tyvar_expr expr_)) expr_list) +and +remv_tyvar_expr (Expr_cons expr1 expr2) = + Expr_cons (remv_tyvar_expr expr1) (remv_tyvar_expr expr2) +and +remv_tyvar_expr (Expr_record (field_expr_list)) = + Expr_record (List.map (fun (field_,expr_) -> (field_,(remv_tyvar_expr expr_))) field_expr_list) +and +remv_tyvar_expr (Expr_override expr (field_expr_list)) = + Expr_override (remv_tyvar_expr expr) + (List.map (fun (field_,expr_) -> (field_,(remv_tyvar_expr expr_))) field_expr_list) +and +remv_tyvar_expr (Expr_apply expr1 expr2) = + Expr_apply (remv_tyvar_expr expr1) (remv_tyvar_expr expr2) +and +remv_tyvar_expr (Expr_and expr1 expr2) = + Expr_and (remv_tyvar_expr expr1) (remv_tyvar_expr expr2) +and +remv_tyvar_expr (Expr_or expr1 expr2) = + Expr_or (remv_tyvar_expr expr1) (remv_tyvar_expr expr2) +and +remv_tyvar_expr (Expr_field expr fieldl) = Expr_field (remv_tyvar_expr expr) fieldl +and +remv_tyvar_expr (Expr_ifthenelse expr0 expr1 expr2) = + Expr_ifthenelse (remv_tyvar_expr expr0) (remv_tyvar_expr expr1) (remv_tyvar_expr expr2) +and +remv_tyvar_expr (Expr_while expr1 expr2) = + Expr_while (remv_tyvar_expr expr1) (remv_tyvar_expr expr2) +and +remv_tyvar_expr (Expr_for x expr1 for_dirn expr2 expr3) = + Expr_for x (remv_tyvar_expr expr1) for_dirn (remv_tyvar_expr expr2) (remv_tyvar_expr expr3) +and +remv_tyvar_expr (Expr_sequence expr1 expr2) = + Expr_sequence (remv_tyvar_expr expr1) (remv_tyvar_expr expr2) +and +remv_tyvar_expr (Expr_match expr pattern_matching) = + Expr_match (remv_tyvar_expr expr) (remv_tyvar_pattern_matching pattern_matching) +and +remv_tyvar_expr (Expr_function pattern_matching) = + Expr_function (remv_tyvar_pattern_matching pattern_matching) +and +remv_tyvar_expr (Expr_try expr pattern_matching) = + Expr_try (remv_tyvar_expr expr) (remv_tyvar_pattern_matching pattern_matching) +and +remv_tyvar_expr (Expr_let let_binding expr) = + Expr_let (remv_tyvar_let_binding let_binding) (remv_tyvar_expr expr) +and +remv_tyvar_expr (Expr_letrec letrec_bindings expr) = + Expr_letrec (remv_tyvar_letrec_bindings letrec_bindings) (remv_tyvar_expr expr) +and +remv_tyvar_expr (Expr_assert expr) = Expr_assert (remv_tyvar_expr expr) +and +remv_tyvar_expr (Expr_location location) = Expr_location location + + +}} + + +embed {{ isa + +constdefs fold_pat :: "pattern list => expr => expr" +"fold_pat pats expr == foldr (% p e. Expr_function (PM_pm [PE_inj p e])) pats expr" + +consts shiftt :: "nat => nat => typexpr => typexpr" +(* +primrec +"([[:user_syntax__typexpr:shift m n typevar]] = [[:user_syntax__typexpr:typevar]])" +" ([[:user_syntax__typexpr:shift m n ]] = + (if [[idx < m]] then [[:user_syntax__typexpr:]] else [[:user_syntax__typexpr:]]) " +" ([[:user_syntax__typexpr:shift m n _]] = [[:user_syntax__typexpr:_]])) " +" ([[:user_syntax__typexpr:shift m n (typexpr1->typexpr2)]] = + [[:user_syntax__typexpr:(shift m n typexpr1)->(shift m n typexpr2)]]) " +" (shiftt m n (TE_tuple typexprs) = TE_tuple (map (shiftt m n) typexprs)) " +" (shiftt m n (TE_constr typexprs tc) = TE_constr (map (shiftt m n) typexprs) tc)" +FIXMEdoesn't like recursive call in last clause +*) + +consts shifttes :: "nat => nat => typexprs => typexprs" +(* +primrec +"(shifttes m n (typexprs_inj tes) == typexprs_inj (map (shiftt m n) tes))" +FIXME doesn't like rec call +*) + +consts shiftts :: "nat => nat => typescheme => typescheme" +(* +primrec +"([[shift m n forall typexpr]] = [[forall shift (m + 1) n typexpr]])" +FIXME +*) + +consts shiftEB :: "nat => nat => environment_binding => environment_binding" +primrec +"([[:user_syntax__environment_binding:shift m n TV]] = [[:user_syntax__environment_binding:TV]])" +"([[:user_syntax__environment_binding:shift m n value_name:typescheme]] = + [[:user_syntax__environment_binding:value_name : shift m n typescheme]])" +" ([[:user_syntax__environment_binding:shift m n constr_name of typeconstr]] = + [[:user_syntax__environment_binding:constr_name of typeconstr]]) " +" ([[:user_syntax__environment_binding:shift m n constr_name of forall type_params_opt, (typexprs) : typeconstr]] = + [[:user_syntax__environment_binding:constr_name of forall type_params_opt, (shift m n typexprs) : typeconstr]]) " +" ([[:user_syntax__environment_binding:shift m n field_name:forall type_params_opt, typeconstr_name -> typexpr]] = + [[:user_syntax__environment_binding:field_name:forall type_params_opt, typeconstr_name -> shift m n typexpr]]) " +" ([[:user_syntax__environment_binding:shift m n typeconstr_name:kind]] = + [[:user_syntax__environment_binding:typeconstr_name:kind]]) " +" (shiftEB m n (EB_tr tcn k field_names) = EB_tr tcn k field_names) " +" ([[:user_syntax__environment_binding:shift m n type_params_opt typeconstr_name = typexpr]] = + [[:user_syntax__environment_binding:type_params_opt typeconstr_name = shift m n typexpr]]) " +" ([[:user_syntax__environment_binding:shift m n location: typexpr]] = + [[:user_syntax__environment_binding:location: shift m n typexpr]])" + +consts num_tv :: "environment => nat" +primrec +"(num_tv [] = (0::nat)) " +"(num_tv (eb#e) = (if eb = EB_tv then 1 else 0) + num_tv e)" + +consts shiftE :: "nat => nat => environment => environment" +primrec +"(shiftE m n [] = []) " +" (shiftE m n (EB#E) = shiftEB (m + num_tv E) n EB#shiftE m n E)" + +constdefs shiftTsig :: "nat => nat => ('a * typexpr) list => ('a * typexpr) list" +"(shiftTsig m n Tsig == map (%(tv, t). (tv, shiftt m n t)) Tsig)" + +consts definitions_snoc :: "definitions => caml_definition => definitions" +primrec +"(definitions_snoc Ds_nil d = Ds_cons d Ds_nil) " +"(definitions_snoc (Ds_cons d ds) d' = Ds_cons d (definitions_snoc ds d'))" + +consts remv_tyvar_typexpr :: "typexpr => typexpr" +(* +val _ = ottDefine "remv_tyvar_typexpr" +`(remv_tyvar_typexpr (TE_var typevar) = TE_any) /\ + (remv_tyvar_typexpr (TE_idxvar idx num) = TE_idxvar idx num) /\ + (remv_tyvar_typexpr TE_any = TE_any) /\ + (remv_tyvar_typexpr (TE_arrow typexpr1 typexpr2) = + TE_arrow (remv_tyvar_typexpr typexpr1) (remv_tyvar_typexpr typexpr2)) /\ + (remv_tyvar_typexpr (TE_tuple (typexpr_list)) = + TE_tuple (MAP (\typexpr_. (remv_tyvar_typexpr typexpr_)) typexpr_list)) /\ + (remv_tyvar_typexpr (TE_constr (typexpr_list) typeconstr) = + TE_constr (MAP (\typexpr_. (remv_tyvar_typexpr typexpr_)) typexpr_list) typeconstr)`; +*) + +consts remv_tyvar_pattern :: "pattern => pattern" +(* +`(remv_tyvar_pattern (P_var value_name) = P_var value_name) /\ + (remv_tyvar_pattern P_any = P_any) /\ + (remv_tyvar_pattern (P_constant constant) = P_constant constant) /\ + (remv_tyvar_pattern (P_alias pattern value_name) = + P_alias (remv_tyvar_pattern pattern) value_name) /\ + (remv_tyvar_pattern (P_typed pattern typexpr) = + P_typed (remv_tyvar_pattern pattern) (remv_tyvar_typexpr typexpr)) /\ + (remv_tyvar_pattern (P_or pattern1 pattern2) = + P_or (remv_tyvar_pattern pattern1) (remv_tyvar_pattern pattern2)) /\ + (remv_tyvar_pattern (P_construct constr (pattern_list)) = + P_construct constr (MAP (\pattern_. (remv_tyvar_pattern pattern_)) pattern_list)) /\ + (remv_tyvar_pattern (P_construct_any constr) = P_construct_any constr) /\ + (remv_tyvar_pattern (P_tuple (pattern_list)) = + P_tuple (MAP (\pattern_. (remv_tyvar_pattern pattern_)) pattern_list)) /\ + (remv_tyvar_pattern (P_record (field_pattern_list)) = + P_record (MAP (\(field_,pattern_). (field_,(remv_tyvar_pattern pattern_))) field_pattern_list)) /\ + (remv_tyvar_pattern (P_cons pattern1 pattern2) = + P_cons (remv_tyvar_pattern pattern1) (remv_tyvar_pattern pattern2))`; +*) + +consts remv_tyvar_letrec_binding :: "letrec_binding => letrec_binding" +(* +`(remv_tyvar_letrec_binding (LRB_simple value_name pattern_matching) = + LRB_simple value_name (remv_tyvar_pattern_matching pattern_matching)) /\ + (remv_tyvar_letrec_bindings (LRBs_inj (letrec_binding_list)) = + LRBs_inj (MAP (\letrec_binding_. (remv_tyvar_letrec_binding letrec_binding_)) letrec_binding_list)) /\ + (remv_tyvar_let_binding (LB_simple pattern expr) = + LB_simple (remv_tyvar_pattern pattern) (remv_tyvar_expr expr)) /\ + (remv_tyvar_pat_exp (PE_inj pattern expr) = + PE_inj (remv_tyvar_pattern pattern) (remv_tyvar_expr expr)) /\ + (remv_tyvar_pattern_matching (PM_pm (pat_exp_list)) = + PM_pm (MAP (\pat_exp_. (remv_tyvar_pat_exp pat_exp_)) pat_exp_list)) /\ + (remv_tyvar_expr (Expr_uprim unary_prim) = Expr_uprim unary_prim) /\ + (remv_tyvar_expr (Expr_bprim binary_prim) = Expr_bprim binary_prim) /\ + (remv_tyvar_expr (Expr_ident value_name) = Expr_ident value_name) /\ + (remv_tyvar_expr (Expr_constant constant) = Expr_constant constant) /\ + (remv_tyvar_expr (Expr_typed expr typexpr) = + Expr_typed (remv_tyvar_expr expr) (remv_tyvar_typexpr typexpr)) /\ + (remv_tyvar_expr (Expr_tuple (expr_list)) = + Expr_tuple (MAP (\expr_. (remv_tyvar_expr expr_)) expr_list)) /\ + (remv_tyvar_expr (Expr_construct constr (expr_list)) = + Expr_construct constr (MAP (\expr_. (remv_tyvar_expr expr_)) expr_list)) /\ + (remv_tyvar_expr (Expr_cons expr1 expr2) = + Expr_cons (remv_tyvar_expr expr1) (remv_tyvar_expr expr2)) /\ + (remv_tyvar_expr (Expr_record (field_expr_list)) = + Expr_record (MAP (\(field_,expr_). (field_,(remv_tyvar_expr expr_))) field_expr_list)) /\ + (remv_tyvar_expr (Expr_override expr (field_expr_list)) = + Expr_override (remv_tyvar_expr expr) + (MAP (\(field_,expr_). (field_,(remv_tyvar_expr expr_))) field_expr_list)) /\ + (remv_tyvar_expr (Expr_apply expr1 expr2) = + Expr_apply (remv_tyvar_expr expr1) (remv_tyvar_expr expr2)) /\ + (remv_tyvar_expr (Expr_and expr1 expr2) = + Expr_and (remv_tyvar_expr expr1) (remv_tyvar_expr expr2)) /\ + (remv_tyvar_expr (Expr_or expr1 expr2) = + Expr_or (remv_tyvar_expr expr1) (remv_tyvar_expr expr2)) /\ + (remv_tyvar_expr (Expr_field expr field) = Expr_field (remv_tyvar_expr expr) field) /\ + (remv_tyvar_expr (Expr_ifthenelse expr0 expr1 expr2) = + Expr_ifthenelse (remv_tyvar_expr expr0) (remv_tyvar_expr expr1) (remv_tyvar_expr expr2)) /\ + (remv_tyvar_expr (Expr_while expr1 expr2) = + Expr_while (remv_tyvar_expr expr1) (remv_tyvar_expr expr2)) /\ + (remv_tyvar_expr (Expr_for x expr1 for_dirn expr2 expr3) = + Expr_for x (remv_tyvar_expr expr1) for_dirn (remv_tyvar_expr expr2) (remv_tyvar_expr expr3))/\ + (remv_tyvar_expr (Expr_sequence expr1 expr2) = + Expr_sequence (remv_tyvar_expr expr1) (remv_tyvar_expr expr2)) /\ + (remv_tyvar_expr (Expr_match expr pattern_matching) = + Expr_match (remv_tyvar_expr expr) (remv_tyvar_pattern_matching pattern_matching)) /\ + (remv_tyvar_expr (Expr_function pattern_matching) = + Expr_function (remv_tyvar_pattern_matching pattern_matching)) /\ + (remv_tyvar_expr (Expr_try expr pattern_matching) = + Expr_try (remv_tyvar_expr expr) (remv_tyvar_pattern_matching pattern_matching)) /\ + (remv_tyvar_expr (Expr_let let_binding expr) = + Expr_let (remv_tyvar_let_binding let_binding) (remv_tyvar_expr expr)) /\ + (remv_tyvar_expr (Expr_letrec letrec_bindings expr) = + Expr_letrec (remv_tyvar_letrec_bindings letrec_bindings) (remv_tyvar_expr expr)) /\ + (remv_tyvar_expr (Expr_assert expr) = Expr_assert (remv_tyvar_expr expr)) /\ + (remv_tyvar_expr (Expr_location location) = Expr_location location)`; +*) + +}} + +{{ coq +(*** Coercions and syntactic sugar ***) + +(* Names *) +Coercion VP_name : value_name >-> value_path. +Coercion C_name : constr_name >-> constr. +Coercion TC_name : typeconstr_name >-> typeconstr. + +(* Constants *) +Coercion CONST_int : intn >-> constant. +Definition CONST_int' : Z -> constant := CONST_int. +Coercion CONST_int' : Z >-> constant. +Definition CONST_bool (b:bool) := if b then CONST_true else CONST_false. +Coercion CONST_bool : bool >-> constant. +Definition CONST_unit' (_:unit) := CONST_unit. +Coercion CONST_unit' : unit >-> constant. + +(* Types *) +Definition TPS_proj (tpo:type_params_opt) := let (tvs) := tpo in tvs. +Coercion TPS_proj : type_params_opt >-> list. +Coercion TE_var : typevar >-> typexpr. +Definition TE_constr0 := TE_constr nil. +Coercion TE_constr0 : typeconstr >-> typexpr. +Definition typexprs_proj (tes:typexprs) := let (ts) := tes in ts. +Coercion typexprs_proj : typexprs >-> list. + +(* Patterns *) +Coercion P_var : value_name >-> pattern. +Coercion P_constant : constant >-> pattern. + +(* Expressions *) +Coercion Expr_uprim : unary_prim >-> expr. +Coercion Expr_bprim : binary_prim >-> expr. +Coercion Expr_ident : value_name >-> expr. +Coercion Expr_constant : constant >-> expr. +Definition subst_x x e := substs_x_xs (cons (x, e) nil). + +(* Definitions *) +Fixpoint Ds_proj (ds:definitions) : list definition := + match ds with + | Ds_nil => nil + | Ds_cons d dt => cons d (Ds_proj dt) + end. +Coercion Ds_proj : definitions >-> list. +Fixpoint Ds_list (ds:list definition) : definitions := + match ds with + | nil => Ds_nil + | cons d dt => Ds_cons d (Ds_list dt) + end. + +(* Semantic objects *) +Definition substs_x_proj (z:substs_x) := let (y) := z in y. +Coercion substs_x_proj : substs_x >-> list. +Coercion TE_te : typexpr >-> type_equation. +Coercion TI_eq : type_equation >-> type_information. +Coercion TI_def : type_representation >-> type_information. + + + +(*** Strings ***) + +Section string_literals. +Import String. +Open Scope string_scope. +Definition string_equal_functional_value := "equal: functional value". +End string_literals. + + + + +(*** Auxiliary functions ***) + + +Definition fold_pats pats e0 := + fold_right (fun p e => Expr_function (PM_pm (PE_inj p e :: nil))) e0 pats. + +Definition definitions_snoc (ds:definitions) (d:definition) : definitions := + Ds_list (ds ++ d :: nil). + +Fixpoint remv_tyvar_typexpr (t:typexpr) : typexpr := + match t with + | TE_var tv => TE_any + | TE_idxvar k p => TE_idxvar k p + | TE_any => TE_any + | TE_arrow t1 t2 => TE_arrow (remv_tyvar_typexpr t1) (remv_tyvar_typexpr t2) + | TE_tuple ts => TE_tuple (map remv_tyvar_typexpr ts) + | TE_constr ts tc => TE_constr (map remv_tyvar_typexpr ts) tc + end. +Fixpoint remv_tyvar_pattern (p:pattern) : pattern := + match p with + | P_var vn => P_var vn + | P_any => P_any + | P_constant c => P_constant c + | P_alias p vn => P_alias (remv_tyvar_pattern p) vn + | P_typed p t => P_typed (remv_tyvar_pattern p) (remv_tyvar_typexpr t) + | P_or p1 p2 => P_or (remv_tyvar_pattern p1) (remv_tyvar_pattern p2) + | P_construct cr ps => P_construct cr (map remv_tyvar_pattern ps) + | P_construct_any cr => P_construct_any cr + | P_tuple ps => P_tuple (map remv_tyvar_pattern ps) + | P_record fps => P_record (map (fun tmp => match tmp with (fi,pi) => (fi, remv_tyvar_pattern pi) end) fps) + | P_cons p1 p2 => P_cons (remv_tyvar_pattern p1) (remv_tyvar_pattern p2) + end. +Fixpoint remv_tyvar_letrec_binding (lrb:letrec_binding) : letrec_binding := + match lrb with + | LRB_simple vn pm => LRB_simple vn (remv_tyvar_pattern_matching pm) + end +with remv_tyvar_letrec_bindings (lrbs:letrec_bindings) : letrec_bindings := + match lrbs with + | LRBs_inj lrbs => LRBs_inj (map remv_tyvar_letrec_binding lrbs) + end +with remv_tyvar_let_binding (lb:let_binding) : let_binding := + match lb with + | LB_simple p e => LB_simple (remv_tyvar_pattern p) (remv_tyvar_expr e) + end +with remv_tyvar_pat_exp (pe:pat_exp) : pat_exp := + match pe with + | PE_inj p e => PE_inj (remv_tyvar_pattern p) (remv_tyvar_expr e) + end +with remv_tyvar_pattern_matching (pm:pattern_matching) : pattern_matching := + match pm with + | PM_pm pes => PM_pm (map remv_tyvar_pat_exp pes) + end +with remv_tyvar_expr (e:expr) : expr := + match e with + | Expr_uprim uprim => Expr_uprim uprim + | Expr_bprim bprim => Expr_bprim bprim + | Expr_ident vn => Expr_ident vn + | Expr_constant c => Expr_constant c + | Expr_typed e t => Expr_typed (remv_tyvar_expr e) (remv_tyvar_typexpr t) + | Expr_tuple es => Expr_tuple (map remv_tyvar_expr es) + | Expr_construct cr es => Expr_construct cr (map remv_tyvar_expr es) + | Expr_cons e1 e2 => Expr_cons (remv_tyvar_expr e1) (remv_tyvar_expr e2) + | Expr_record fes => Expr_record (map (fun tmp => match tmp with (fi, ei) => (fi, remv_tyvar_expr ei) end) fes) + | Expr_override e fes => Expr_override (remv_tyvar_expr e) (map (fun tmp => match tmp with (fi, ei) => (fi, remv_tyvar_expr ei) end) fes) + | Expr_apply e1 e2 => Expr_apply (remv_tyvar_expr e1) (remv_tyvar_expr e2) + | Expr_and e1 e2 => Expr_and (remv_tyvar_expr e1) (remv_tyvar_expr e2) + | Expr_or e1 e2 => Expr_or (remv_tyvar_expr e1) (remv_tyvar_expr e2) + | Expr_field e f => Expr_field (remv_tyvar_expr e) f + | Expr_ifthenelse e0 e1 e2 => Expr_ifthenelse (remv_tyvar_expr e0) (remv_tyvar_expr e1) (remv_tyvar_expr e2) + | Expr_while e1 e2 => Expr_while (remv_tyvar_expr e1) (remv_tyvar_expr e2) + | Expr_for x e1 fdn e2 e3 => Expr_for x (remv_tyvar_expr e1) fdn (remv_tyvar_expr e2) (remv_tyvar_expr e3) + | Expr_sequence e1 e2 => Expr_sequence (remv_tyvar_expr e1) (remv_tyvar_expr e2) + | Expr_match e pm => Expr_match (remv_tyvar_expr e) (remv_tyvar_pattern_matching pm) + | Expr_function pm => Expr_function (remv_tyvar_pattern_matching pm) + | Expr_try e pm => Expr_try (remv_tyvar_expr e) (remv_tyvar_pattern_matching pm) + | Expr_let lb e => Expr_let (remv_tyvar_let_binding lb) (remv_tyvar_expr e) + | Expr_letrec lrbs e => Expr_letrec (remv_tyvar_letrec_bindings lrbs) (remv_tyvar_expr e) + | Expr_assert e => Expr_assert (remv_tyvar_expr e) + | Expr_location loc => Expr_location loc + end. + + + +(*** De Bruijn indices ***) + +Fixpoint shiftt (m n:nat) (te:typexpr) {struct te} : typexpr := + match te with + | TE_var tv => TE_var tv + | TE_idxvar k p => TE_idxvar (if le_lt_dec m k then n + k else k) p + | TE_any => TE_any + | TE_arrow te1 te2 => TE_arrow (shiftt m n te1) (shiftt m n te2) + | TE_tuple tes => TE_tuple (map (shiftt m n) tes) + | TE_constr tes tc => TE_constr (map (shiftt m n) tes) tc + end. +Definition shifttes m n (tes:typexprs) := + typexprs_inj (map (shiftt m n) tes). +Definition shiftts m n (ts:typescheme) := + match ts with + | TS_forall te => TS_forall (shiftt (S m) n te) + end. +Definition shiftEB m n (EB:environment_binding) := + match EB with + | EB_tv => EB_tv + | EB_vn vn ts => EB_vn vn (shiftts m n ts) + | EB_cc cn tc => EB_cc cn tc + | EB_pc cn tpo tes tc => EB_pc cn tpo (shifttes m n tes) tc + | EB_fn fn tpo tcn te => EB_fn fn tpo tcn (shiftt m n te) + | EB_td tcn K => EB_td tcn K + | EB_tr tcn K fns => EB_tr tcn K fns + | EB_ta tpo tcn te => EB_ta tpo tcn (shiftt m n te) + | EB_l loc te => EB_l loc (shiftt m n te) + end. +Fixpoint count_E_typevars E := + match E with + | nil => 0 + | EB_tv :: E' => S (count_E_typevars E') + | _ :: E' => count_E_typevars E' + end. +Fixpoint shiftE (m n:nat) (E:environment) {struct E} : environment := + match E with + | nil => nil + | EB :: E' => shiftEB (count_E_typevars E + m) n EB :: shiftE m n E' + end. +Definition shiftTsig m n (sigma:Tsigma) := + map (fun tmp => match tmp with (tv, t) => (tv, shiftt m n t) end) sigma. + +}} diff --git a/vendors/ott/examples/ocaml_light/typing.ott b/vendors/ott/examples/ocaml_light/typing.ott new file mode 100644 index 000000000000..d0e0362f8636 --- /dev/null +++ b/vendors/ott/examples/ocaml_light/typing.ott @@ -0,0 +1,1547 @@ +grammar +embed +{{ tex +\section{Type system} +\label{sec.typing} + +The Objective Caml manual does not describe the type system. Therefore our +semantics is driven by an attempt to mirror what the Objective Caml +implementation does, drawing inspiration from various presentations of type +systems for ML. Some notable aspects of the formalization follow: +\begin{itemize} +\item +We give a declarative presentation of polymorphic typing, i.e., without +unification. +\item +Polymorphic $\ottkw{let}$ introduces type variables which are encoded with de +Bruijn indices. +\item +Several rules have premises that state there are at least 1 (or 2) elements of +a list, despite there being 3 or 4 dots. This is because Ott does not use dot +imposed length restrictions in the theorem prover models. +\item +Occasionally, we state that some list X1 .. Xm has length m. Ott does not +impose this restriction in the theorem prover models either. +\end{itemize} + +}} + +defns +JdomEB :: J ::= + +defn +dom ( EB ) gives name :: :: domEB :: domEB_ {{ com Environment binding domain }} {{ lemwcf witness type JdomEBwitness; +check JdomEBcheck; + }} by + +{{ com +Gets the name of an environment entry. +}} + +------------------------------------------------------- :: type_param +dom(TV) gives TV + +------------------------------------------------------- :: value_name +dom(value_name:typescheme) gives value_name + +%d----------------------------------------------------- :: const_constr_name +%d dom(constr_name of typeconstr) gives constr_name + +%d----------------------------------------------------- :: constr_name +%d dom(constr_name of forall type_params_opt, (t1, ..., tn) : typeconstr) gives constr_name + +%d----------------------------------------------------- :: opaque_typeconstr_name +%d dom(typeconstr_name:kind) gives typeconstr_name + +%d----------------------------------------------------- :: trans_typeconstr_name +%d dom(type_params_opt typeconstr_name = t) gives typeconstr_name + +%d----------------------------------------------------- :: record_typeconstr_name +%d dom(typeconstr_name : kind {field_name1; ...; field_namen}) gives typeconstr_name +%d +%d----------------------------------------------------- :: record_field_name +%d dom(field_name:forall type_params_opt, typeconstr_name -> typexpr) gives field_name + +------------------------------------------------------- :: location +dom(location:t) gives location + +defns +JdomE :: J ::= + +defn +dom ( E ) gives names :: :: domE :: domE_ {{ com Environment domain }} {{ lemwcf witness type JdomEwitness; +check JdomE_check; +}} by + +{{ com +Gets all of the names in an environment. +}} + +------------------------------------------------------- :: empty +dom(empty) gives + +dom(E) gives name1..namen +:JdomEB:dom(EB) gives name +------------------------------------------------------- :: cons +dom(E,EB) gives name name1..namen + +defns +Jlookup :: Jlookup_ ::= + +defn +E |- name gives EB :: :: EB :: EB_ {{ com Environment lookup }} {{ lemwcf witness type JlookupEBwitness; +check Jlookup_EB_check; +}} by + +{{ com +Returns the rightmost binding that matches the given name. +}} + +:JdomEB:dom(EB) gives name' +name noteq name' +name' noteq TV +E |- name gives EB' +------------------------------------------------------- :: rec1 +E,EB |- name gives EB' + +name noteq TV +E |- name gives EB' +------------------------------------------------------- :: rec2 +E,TV |- name gives shift 0 1 EB' + +:JdomEB:dom(EB) gives name +------------------------------------------------------- :: head +E,EB |- name gives EB + +defns +Jidx :: Jidx_ ::= + +defn +E |- idx bound :: :: bound :: bound_ {{ com Well-formed index }} {{ lemwcf witness type Jidx_boundwitness; +check Jidx_bound_check; +}} by + +{{ com +Determines whether an index is bound by an environment. +}} + +E |- idx bound +:JdomEB:dom(EB) gives name +name noteq TV +------------------------------------------------------- :: skip1 +E, EB |- idx bound + +E |- idx bound +------------------------------------------------------- :: skip2 +E, TV |- idx + 1 bound + +------------------------------------------------------- :: found +E, TV |- 0 bound + + +defns +JTtps_kind :: JT ::= + +defn +|- type_params_opt : kind :: :: tps_kind :: tps_kind_ {{ com Type parameter kinding }} {{ lemwcf witness type JTtps_kindwitness; +check JTtps_kind_check; +}} by + +{{ com +Counts the number of parameters and ensures that none is repeated. +}} + +tp1 ... tpn distinct +length (tp1)...(tpn) = n +------------------------------------------------------- :: kind +|- (tp1, ..., tpn) : n -> Type + + +defns +JTEok :: JT ::= + +defn +E |- ok :: :: Eok :: Eok_ {{ com Environment validity }} {{ lemwcf witness type JTEok_witness; +check JTEok_check; +}}by + +{{ com +Asserts that the various components of the environment are well-formed +(including that there are no free type references), and regulates name +shadowing. Environments contain identifiers related to type definitions and +type variables as well as expression-level variables (i.e., value names), so +they are dependent from left to right. Shadowing of type, constructor, field +and label names is forbidden, but shadowing of value names is allowed. +}} + +------------------------------------------------------- :: empty +empty |- ok + +E |- ok +------------------------------------------------------- :: typevar +E , TV |- ok + +E |- forall t : Type +------------------------------------------------------- :: value_name +E, (value_name : forall t) |- ok + +%d E |- ok +%d E |- typeconstr_name gives typeconstr_name : kind +%d dom(E) gives names +%d constr_name notin names +%d----------------------------------------------------- :: constr_name_c +%d E,(constr_name of typeconstr_name) |- ok + +%d E |- ok +%d dom(E) gives names +%d constr_name notin names +%d----------------------------------------------------- :: exn_constr_name_c +%d E,(constr_name of exn) |- ok + +%d type_params_opt = (tv1, ..., tvm) +%d E |- forall type_params_opt, t1 : Type ... E |- forall type_params_opt, tn : Type +%d E |- typeconstr_name gives typeconstr_name : m -> Type +%d dom(E) gives names +%d constr_name notin names +%d length (t1) ... (tn) >= 1 +%d :formula_length_list_type_param_eq:length (tv1) ... (tvm) = m +%d----------------------------------------------------- :: constr_name_p +%d E,(constr_name of forall (tv1, ..., tvm), (t1, ..., tn) : typeconstr_name) |- ok + +%d E |- t1 : Type ... E |- tn : Type +%d dom(E) gives names +%d constr_name notin names +%d length (t1) ... (tn) >= 1 +%d----------------------------------------------------- :: exn_constr_name_p +%d E,(constr_name of forall , (t1, ..., tn) : exn) |- ok + + +%d E |- forall (tv1, ..., tvm), t : Type +%d dom(E) gives names +%d field_name notin names +%d E |- typeconstr_name gives typeconstr_name:m->Type {field_name1; ...; field_namen} +%d :formula_length_list_type_param_eq:length (tv1) ... (tvm) = m +%d field_name in field_name1...field_namen +%d ---------------------------------------------------- :: record_destr +%d E, (field_name:forall (tv1, ..., tvm), typeconstr_name -> t) |- ok + +%d E |- ok +%d dom(E) gives names +%d typeconstr_name notin names +%d----------------------------------------------------- :: typeconstr_name +%d E,(typeconstr_name : kind) |- ok + +%d dom(E) gives names +%d typeconstr_name notin names +%d E |- forall (tv1, ..., tvm), t : Type +%d----------------------------------------------------- :: typeconstr_eqn +%d E, ((tv1, ..., tvm) typeconstr_name = t) |- ok + +%d E |- ok +%d dom(E) gives names +%d typeconstr_name notin names +%d field_name1...field_namen distinct +%d ---------------------------------------------------- :: typeconstr_record +%d E, (typeconstr_name:kind {field_name1; ...; field_namen}) |- ok + +E |- t : Type +dom(E) gives names +location notin names +------------------------------------------------------- :: location +E,(location : t) |- ok + + +defn +E |- typeconstr : kind :: :: typeconstr :: typeconstr_ {{ com Type constructor kinding }} {{ lemwcf witness type JTtypeconstrwitness; +check JTtypeconstr_check; + }} by + +{{ com +Ensures that the type constructor is either defined in the environment or +built-in. The result kind indicates how many parameters the type constructor +expects. +}} + +%d E |- ok +%d E |- typeconstr_name gives typeconstr_name:kind +%d----------------------------------------------------- :: abstract +%d E |- typeconstr_name:kind + +%d E |- ok +%d E |- typeconstr_name gives type_params_opt typeconstr_name=t +%d |- type_params_opt : kind +%d----------------------------------------------------- :: concrete +%d E |- typeconstr_name:kind + +%d E|- ok +%d E |- typeconstr_name gives typeconstr_name:kind{field_name1; ...; field_namen} +%d----------------------------------------------------- :: record +%d E |- typeconstr_name:kind + +E |- ok +------------------------------------------------------- :: int +E |- int : Type + +E |- ok +------------------------------------------------------- :: char +E |- char : Type + +E |- ok +------------------------------------------------------- :: string +E |- string : Type + +E |- ok +------------------------------------------------------- :: float +E |- float : Type + +E |- ok +------------------------------------------------------- :: bool +E |- bool : Type + +E |- ok +------------------------------------------------------- :: unit +E |- unit : Type + +E |- ok +------------------------------------------------------- :: exn +E |- exn : Type + +E |- ok +------------------------------------------------------- :: list +E |- list : 1 -> Type + +E |- ok +------------------------------------------------------- :: option +E |- option : 1 -> Type + +E |- ok +------------------------------------------------------- :: ref +E |- ref : 1 -> Type + +defn +E |- typescheme : kind :: :: ts :: ts_ {{ com de Bruijn type scheme well-formedness }} {{ lemwcf witness type JTtswitness; +check JTts_check; +}} by + +{{ com +Ensures that the type is well-formed in an extended environment. +}} + +E,TV |- t : Type +------------------------------------------------------- :: forall +E |- forall t : Type + +defn +E |- forall type_params_opt , t : kind :: :: tsnamed :: tsnamed_ {{ com Named type scheme well-formedness }} {{ lemwcf witness type JTtsnamedwitness; +check JTtsnamed_check; +}}by + +{{ com +Ensures that the named type paramaters are distinct, and that the type is +well-formed. Instead of extending the environment, this simply substitutes a +collection of well-formed types, here $\ottkw{unit}$. This works because the +type well-formedness judgment below only depends on well-formedness of +sub-expressions, and not on the exact form of sub-expressions. +}} + +E |- <>t : Type +tv1...tvn distinct +------------------------------------------------------- :: forall +E |- forall (tv1, ..., tvn), t : Type + +defn +E |- typexpr : kind :: :: t :: t_ {{ com Type expression well-formedness }} {{ lemwcf witness type t_witness; + check t_check; +}} by + +{{ com +Ensures that all of the indices and constructors that appear in a type are +bound in the environment. +}} + +E |- ok +E |- idx bound +------------------------------------------------------- :: var +E |- : Type + +E |- t : Type +E |- t' : Type +------------------------------------------------------- :: arrow +E |- t->t' : Type + +E |- t1 : Type .... E |- tn : Type +length (t1)....(tn) >= 2 +------------------------------------------------------- :: tuple +E |- t1*....*tn : Type + +:JTtypeconstr: E |- typeconstr : n -> Type +E |- t1 : Type ... E |- tn : Type +length (t1)...(tn) = n +------------------------------------------------------- :: constr +E |- (t1,...,tn) typeconstr : Type + + + +defns +JTeq :: JT ::= + +defn +E |- typexpr == typexpr' :: :: eq :: eq_ {{ com Type equivalence }} {{ lemwcf witness type JTeq_witness; + check JTeq_check; +}} by + +{{ com +Checks whether two types are related (potentially indirectly) by the type +abbreviations in the environment. The system does not allow recursive types +that do not pass through an opaque (generative) type constructor, i.e., a +variant or record. Therefore all type expressions have a canonical form +obtained by expanding all type abbreviations. +}} + +%d E |- t : Type +%d----------------------------------------------------- :: refl +%d E |- t == t + +%d E |- t' == t +%d----------------------------------------------------- :: sym +%d E |- t == t' + +%d E |- t == t' +%d E |- t' == t'' +%d----------------------------------------------------- :: trans +%d E |- t == t'' + +%d E |- ok +%d E |- typeconstr_name gives (typevar1, ..., typevarn) typeconstr_name=t +%d E |- t1 : Type ... E |- tn : Type +%d----------------------------------------------------- :: expand +%d E |- (t1, ..., tn) typeconstr_name == <>t + +%d E |- t1 == t1' +%d E |- t2 == t2' +%d----------------------------------------------------- :: arrow +%d E |- t1 -> t2 == t1' -> t2' + +%d E |- t1 == t1' .... E |- tn == tn' +%d length (t1)....(tn) >= 2 +%d----------------------------------------------------- :: tuple +%d E |- t1 * .... * tn == t1' * .... * tn' + +%d :JTtypeconstr: E |- typeconstr : n -> Type +%d E |- t1 == t1' ... E |- tn == tn' +%d length (t1)...(tn) = n +%d----------------------------------------------------- :: constr +%d E |- (t1, ..., tn) typeconstr == (t1', ..., tn') typeconstr + +defns +JTidxsub :: JT ::= + +defn +'<<' typexpr1 , .. , typexprn '>>' typexpr' gives typexpr'' :: :: idxsub :: inxsub_ {{ com de Bruin type substitution }} {{ lemwcf witness type JTidxsub_witness; +check JTidxsub_check; +}} by + +{{ com +Replaces index 0 position $n$ with the $n$th type in the list, and reduces all +other indices by 1. +}} + +------------------------------------------------------- :: alpha +<> typevar gives typevar + + +length (t1)..(tm) = num +------------------------------------------------------- :: idx0 +<> <0, num> gives t' + +length (t1)..(tn) <= num +------------------------------------------------------- :: idx1 +<> <0, num> gives unit + +------------------------------------------------------- :: idx2 +<> gives + +------------------------------------------------------- :: any +<> _ gives _ + +<> t1' gives t1'' +<> t2' gives t2'' +------------------------------------------------------- :: arrow +<> (t1' -> t2') gives t1'' -> t2'' + +<> t1' gives t1'' .... <> tm' gives tm'' +------------------------------------------------------- :: tuple +<> (t1' * .... * tm') gives (t1'' * .... * tm'') + +<> t1' gives t1'' ... <> tm' gives tm'' +------------------------------------------------------- :: tc +<> (t1', ..., tm') typeconstr gives (t1'', ..., tm'') typeconstr + + +defns +JTinst :: JT ::= + +defn +E |- typexpr <= typescheme :: :: inst :: inst_ {{ com de Bruijn type scheme instantiation }} {{ lemwcf witness type JTinst_witness; +check JTinst_check; +}} by + +{{ com +Replaces all of the bound variables of a type scheme. +}} + +E |- forall t' : Type +E |- t1 : Type .. E |- tn : Type +<>t' gives t'' +------------------------------------------------------- :: idx +E |- t'' <= forall t' + +defns +JTinst_named :: JT ::= + +defn +E |- typexpr <= forall type_params_opt , typexpr' :: :: inst_named :: inst_named_ {{ com Named type scheme instantiation }} {{ lemwcf witness type JTinst_named_witness; +check JTinst_named_check; +}} by + +{{ com +Replaces all of the bound variables of a named type scheme. +}} + +E |- forall (typevar1, ..., typevarn), t : Type +E |- t1 : Type ... E |- tn : Type +------------------------------------------------------- :: named +E |- <>t <= forall (typevar1, ..., typevarn), t + +defns +JTinst_any :: JT ::= + +defn +E |- typexpr <= typexpr' :: :: inst_any :: inst_any_ {{ com Wildcard type instantiation }} {{ lemwcf witness type JTinst_any_witness; +check JTinst_any_check; +}} by + +{{ com +Replaces $\ottkw{\_}$ type variables with arbitrary types. +}} + +E |- : Type +------------------------------------------------------- :: tyvar +E |- <= + +E |- t : Type +------------------------------------------------------- :: any +E |- t <= _ + +E |- t1 <= t1' +E |- t2 <= t2' +------------------------------------------------------- :: arrow +E |- t1 -> t2 <= t1' -> t2' + +E |- t1 <= t1' .... E |- tn <= tn' +length (t1)....(tn) >= 2 +------------------------------------------------------- :: tuple +E |- t1 * .... * tn <= t1' * .... * tn' + +E |- t1 <= t1' ... E |- tn <= tn' +:JTtypeconstr: E |- typeconstr : n -> Type +length (t1)...(tn) = n +------------------------------------------------------- :: ctor +E |- (t1, ..., tn) typeconstr <= (t1', ..., tn') typeconstr + +defns +JTval :: JT ::= + +defn +E |- value_name : typexpr :: :: value_name :: value_name_ {{ com Variable typing }} {{ lemwcf witness type JTval_witness; +check JTval_check; +}} by + +{{ com +Determines if a variable can have a specified type. +}} + +E |- value_name gives value_name:ts +E |- t <= ts +------------------------------------------------------- :: value_name +E |- value_name:t + +>> +%d<< + +defns +JTfield :: JT ::= +defn +E |- field_name : typexpr -> typexpr' :: :: field :: field_ {{ com Field name typing }} {{ lemwcf witness type JTfield_witness; +check JTfield_check; +}} by + +{{ com +Determines the type constructor associated with a given field name. Since +field names are used to destructure record data, the type is a function type +from a record to the type of the corresponding position. +}} + +E |- field_name gives field_name:forall (tv1, ..., tvm), typeconstr_name -> t +E |- (t1', ..., tm') typeconstr_name -> t'' <= forall (tv1, ..., tvm), (tv1, ..., tvm) typeconstr_name -> t +------------------------------------------------------- :: name +E |- field_name : (t1', ..., tm') typeconstr_name -> t'' + +%d>> +<< + +defns +JTconstr_p :: JT ::= + +defn +E |- constr : typexpr1 ... typexprn -> typexpr' :: :: constr_p :: constr_p_ {{ com Non-constant constructor typing }} {{ lemwcf witness type JTconstr_p_witness; +check JTconstr_p_check; +}} by + +{{ com +Determines the type constructor associated with a given value constructor. +Non-constant constructors are attributed types for each argument as +well as a return type. +}} + +%d E |- constr_name gives constr_name of forall (tv1, ..., tvm), (t1,....,tn):typeconstr +%d E |- (t1' * .... * tn') -> (t1'', ..., tm'') typeconstr <= forall (tv1, ..., tvm), (t1 * .... * tn) -> (tv1, ..., tvm) typeconstr +%d----------------------------------------------------- :: name +%d E |- constr_name : t1' .... tn' -> (t1'', ..., tm'') typeconstr + +E |- ok +------------------------------------------------------- :: invarg +E |- Invalid_argument : string -> exn + +E |- t : Type +------------------------------------------------------- :: some +E |- Some : t -> (t option) + + + +defns +JTconstr_c :: JT ::= + +defn +E |- constr : typexpr :: :: constr_c :: constr_c_ {{ com Constant constructor typing }} {{ lemwcf witness type JTconstr_c_witness; +check JTconstr_c_check; +}} by + +{{ com +Constant constructors are typed like non-constant constructors without +arguments. +}} + +%d E |- ok +%d E |- constr_name gives constr_name of typeconstr_name +%d E |- typeconstr_name gives typeconstr_name : n -> Type +%d E |- t1 : Type ... E |- tn : Type +%d length (t1) ... (tn) = n +%d----------------------------------------------------- :: constr +%d E |- constr_name : (t1, ..., tn) typeconstr_name + +%d E |- ok +%d E |- constr_name gives constr_name of exn +%d----------------------------------------------------- :: exn_constr +%d E |- constr_name : exn + +E |- ok +------------------------------------------------------- :: notfound +E |- Not_found : exn + +E |- ok +------------------------------------------------------- :: assert_fail +E |- Assert_failure : exn + +E |- ok +------------------------------------------------------- :: match_fail +E |- Match_failure : exn + +{{ com +Dropping the source location arguments for $\ottkw{Assert\_failure}$ and +$\ottkw{Match\_failure}$. +}} + +E |- ok +------------------------------------------------------- :: div_by_0 +E |- Division_by_zero : exn + +E |- t : Type +------------------------------------------------------- :: none +E |- None : t option + + + + +defns +JTconst :: JT ::= + +defn +E |- constant : typexpr :: :: const :: const_ {{ com Constant typing }} {{ lemwcf witness type JTconst_witness; +check JTconst_check; +}} by + +{{ com +Determines the type of a constant. +}} + +E |- ok +------------------------------------------------------- :: int +E |- integer_literal : int + +E |- ok +------------------------------------------------------- :: float +E |- float_literal : float + +E |- ok +------------------------------------------------------- :: char +E |- char_literal : char + +E |- ok +------------------------------------------------------- :: string +E |- string_literal : string + +:JTconstr_c: E |- constr : t +------------------------------------------------------- :: constr +E |- constr : t + +E |- ok +------------------------------------------------------- :: false +E |- false : bool + +E |- ok +------------------------------------------------------- :: true +E |- true : bool + +E |- ok +------------------------------------------------------- :: unit +E |- () : unit + +E |- t : Type +------------------------------------------------------- :: nil +E |- [] : t list + +defns +JTpat :: JT ::= + +defn +Tsigma & E |- pattern : typexpr gives E' :: :: pat :: pat_ {{ com Pattern typing and binding collection }} {{ lemwcf witness type JTpat_witness; +check JTpat_check; +}} by + +{{ com +Determines if a pattern matches a value of a certain type, and calculates the +types of the variables it binds. A pattern must bind any given variable at +most once, except that the two alternatives of an or-pattern must bind the same +set of variables. $[[Tsigma]]$ gives the types that should replace type +variables in explicitly type-annotated patterns. +}} + +E |- t : Type +------------------------------------------------------- :: var +Tsigma & E |- x : t gives empty,x:t + +E |- t : Type +------------------------------------------------------- :: any +Tsigma & E |- _ : t gives empty + +:JTconst: E |- constant : t +------------------------------------------------------- :: constant +Tsigma & E |- constant : t gives empty + +Tsigma & E |- pattern : t gives E' +dom(E',x:t) gives name1..namen +name1..namen distinct +------------------------------------------------------- :: alias +Tsigma & E |- pattern as x : t gives E',x:t + +Tsigma & E |- pattern : t gives E' +E |- t' <= Tsigma src_t +E |- t == t' +------------------------------------------------------- :: typed +Tsigma & E |- ( pattern : src_t ) : t gives E' + + +Tsigma & E |- pattern : t gives E' +Tsigma & E |- pattern' : t gives E'' +E' PERMUTES E'' +------------------------------------------------------- :: or +Tsigma & E |- pattern | pattern' : t gives E' + +:JTconstr_p:E |- constr : t1 ... tn -> t +Tsigma & E |- pattern1 : t1 gives E1 ... Tsigma & E |- patternn : tn gives En +dom(E1@...@En) gives name1..namem +name1..namem distinct +------------------------------------------------------- :: construct +Tsigma & E |- constr (pattern1,...,patternn) : t gives E1@...@En + +:JTconstr_p:E |- constr : t1...tn->t +------------------------------------------------------- :: construct_any +Tsigma & E |- constr _ : t gives empty + +Tsigma & E |- pattern1:t1 gives E1 .... Tsigma & E |- patternn:tn gives En +length (pattern1)....(patternn) >= 2 +dom(E1@....@En) gives name1..namem +name1..namem distinct +------------------------------------------------------- :: tuple +Tsigma & E |- pattern1,....,patternn : t1*....*tn gives E1@....@En + +%d Tsigma & E |- pattern1:t1 gives E1 ... Tsigma & E |- patternn:tn gives En +%d E |- field_name1 : t->t1 ... E |- field_namen : t->tn +%d length (pattern1)...(patternn) >= 1 +%d dom(E1@...@En) gives name1..namem +%d name1..namem distinct +%d----------------------------------------------------- :: record +%d Tsigma & E |- {field_name1=pattern1; ...; field_namen=patternn} : t gives E1@...@En + +Tsigma & E |- pattern : t gives E' +Tsigma & E |- pattern' : t list gives E'' +dom(E') gives name1..namem +dom(E'') gives name1'..namen' +name1..namem name1'..namen' distinct +------------------------------------------------------- :: cons +Tsigma & E |- pattern :: pattern' : t list gives E'@E'' + + + +defns +JTuprim :: JT ::= + +defn +E |- unary_prim : typexpr :: :: uprim :: uprim_ {{ com Unary primitive typing }} {{ lemwcf witness type JTuprim_witness; +check JTuprim_check; +}} by + +{{ com +Determines if a unary primitive has a given type. +}} + +E |- t : Type +---------------------------------------------------------------- :: raise +E |- raise : exn -> t + +E |- ok +---------------------------------------------------------------- :: not +E |- not : bool -> bool + +E |- ok +---------------------------------------------------------------- :: uminus +E |- ~- : int -> int + +E |- t : Type +---------------------------------------------------------------- :: ref +E |- ref : t->(t ref) + +E |- t : Type +---------------------------------------------------------------- :: deref +E |- ! : (t ref) -> t + + + +defns +JTbprim :: JT ::= + +defn +E |- binary_prim : typexpr :: :: bprim :: bprim_ {{ com Binary primitive typing }} {{ lemwcf witness type JTbprim_witness; +check JTbprim_check; +}} by + +{{ com +Determines if a binary primitive has a given type. +}} + +E |- t : Type +---------------------------------------------------------------- :: equal +E |- = : t -> (t -> bool) + +E |- ok +---------------------------------------------------------------- :: plus +E |- + : int->(int->int) + +E |- ok +---------------------------------------------------------------- :: minus +E |- - : int->(int->int) + +E |- ok +---------------------------------------------------------------- :: times +E |- * : int->(int->int) + +E |- ok +---------------------------------------------------------------- :: div +E |- / : int->(int->int) + +E |- t : Type +---------------------------------------------------------------- :: assign +E |- := : t ref -> (t -> unit) + + + +defns +JTe :: JT ::= + +defn +Tsigma & E |- expr : typexpr :: :: e :: e_ {{ com Expression typing }} {{ lemwcf witness type JTe_witness; +check JTe_check; +}} by + +{{ com +Detremines if an expression has a given type. Note that +$[[:user_syntax__typexpr: t]]$ is a type, not a type scheme, but it may contain +type variables (which are recorded in $[[E]]$). $[[Tsigma]]$ gives the types +that should replace type variables in explicitly type-annotated patterns. + +While the choice of a rule is mostly syntax-directed (for any given +constructor, a single rule applies, except for $\ottkw{let}$ and +$\ottkw{assert}$), polymorphism is handled in a purely declarative manner. The +choice of instantiation for a polymorphic bound variable or primitive is free, +as is the number of variables introduced by a polymorphic $\ottkw{let}$. +}} + +E |- unary_prim : t +E |- t == t' +------------------------------------------------------- :: uprim +Tsigma & E |- (%prim unary_prim) : t' + +E |- binary_prim : t +E |- t == t' +------------------------------------------------------- :: bprim +Tsigma & E |- (%prim binary_prim) : t' + +:JTvalue_name: E |- value_name : t +E |- t == t' +------------------------------------------------------- :: ident +Tsigma & E |- value_name : t' + +:JTconst: E |- constant : t +E |- t == t' +------------------------------------------------------- :: constant +Tsigma & E |- constant : t' + +Tsigma & E |- e : t +E |- t' <= Tsigma src_t +E |- t == t' +------------------------------------------------------- :: typed +Tsigma & E |- (e:src_t) : t + +Tsigma & E |- e1:t1 .... Tsigma & E |- en:tn +length (e1)....(en) >= 2 +E |- t1*....*tn == t' +------------------------------------------------------- :: tuple +Tsigma & E |- e1,....,en : t' + + +:JTconstr_p:E |- constr : t1...tn->t +Tsigma & E |- e1 : t1 ... Tsigma & E |- en : tn +E |- t == t' +------------------------------------------------------- :: construct +Tsigma & E |- :Expr_construct: constr (e1,...,en) : t' + +Tsigma & E |- e1 : t +Tsigma & E |- e2 : t list +E |- t list == t' +------------------------------------------------------- :: cons +Tsigma & E |- e1 :: e2 : t' + +%d Tsigma & E |- e1 : t1 ... Tsigma & E |- en : tn +%d E |- field_name1 : t->t1 ... E |- field_namen : t->tn +%d t = (t1', ..., tl') typeconstr_name +%d E |- typeconstr_name gives typeconstr_name:kind {field_name1'; ...; field_namem'} +%d field_name1...field_namen PERMUTES field_name1'...field_namem' +%d length (e1)...(en)>=1 +%d E |- t == t' +%d----------------------------------------------------- :: record_constr +%d Tsigma & E |- {field_name1=e1; ...; field_namen=en} : t' + +%d Tsigma & E |- expr : t +%d E |- field_name1 : t->t1 ... E |- field_namen : t->tn +%d Tsigma & E |- e1 : t1 ... Tsigma & E |- en : tn +%d field_name1...field_namen distinct +%d length (e1) ... (en) >= 1 +%d E |- t == t' +%d----------------------------------------------------- :: record_with +%d Tsigma & E |- {expr with field_name1=e1; ...; field_namen=en} : t' + +Tsigma & E |- e : t1 -> t +Tsigma & E |- e1 : t1 +------------------------------------------------------- :: apply +Tsigma & E |- e e1 : t + +%d Tsigma & E |- e : t +%d E |- field_name : t->t' +%d E |- t' == t'' +%d----------------------------------------------------- :: record_proj +%d Tsigma & E |- e.field_name : t'' + +Tsigma & E |- e1 : bool +Tsigma & E |- e2 : bool +E |- bool == t +------------------------------------------------------- :: and +Tsigma & E |- e1 && e2 : t + +Tsigma & E |- e1 : bool +Tsigma & E |- e2 : bool +E |- bool == t +------------------------------------------------------- :: or +Tsigma & E |- e1 || e2 : t + +Tsigma & E |- e1:bool +Tsigma & E |- e2:t +Tsigma & E |- e3:t +------------------------------------------------------- :: ifthenelse +Tsigma & E |- if e1 then e2 else e3 : t + +Tsigma & E |- e1 : bool +Tsigma & E |- e2 : unit +E |- unit == t +------------------------------------------------------- :: while +Tsigma & E |- while e1 do e2 done : t + +Tsigma & E |- e1 : int +Tsigma & E |- e2 : int +Tsigma & E,:VN_id:lowercase_ident:int |- e3 : unit +E |- unit == t +------------------------------------------------------- :: for +Tsigma & E |- for lowercase_ident = e1 for_dirn e2 do e3 done : t + +Tsigma & E |- e1 : unit +Tsigma & E |- e2 : t +------------------------------------------------------- :: sequence +Tsigma & E |- e1; e2 : t + +{{ com +In the above rule, $[[e1]]$ must have type $[[:user_syntax__typeconstr: unit]]$. +Ocaml lets the programmer off with a warning, unless \texttt{-warn-error~S} is +passed on the compiler command line. +}} + +Tsigma & E |- e:t +Tsigma & E |- pattern_matching : t -> t' +------------------------------------------------------- :: match +Tsigma & E |- match e with pattern_matching:t' + +Tsigma & E |- pattern_matching : t -> t' +E |- t -> t' == t'' +------------------------------------------------------- :: function +Tsigma & E |- function pattern_matching : t'' + +Tsigma & E |- e : t +Tsigma & E |- pattern_matching : exn -> t +------------------------------------------------------- :: try +Tsigma & E |- try e with pattern_matching : t + +{{ com +We give three rules for $\ottkw{let}$ expressions. The rule +\ottdruleref{JTe\_let\_mono} describes ``monomorphic let'': it does not allow the +type of $[[expr]]$ to be generalised. The rule \ottdruleref{JTe\_let\_poly} +describes ``polymorphic let'': it allows any number of type variables in the +type of $[[:user_syntax__non_expansive: nexp]]$ to be generalised (more +precisely, this generalisation applies simultaneously to the types of all the +variables bound by $[[pat]]$), at the cost of requiring +$[[:user_syntax__non_expansive: nexp]]$ to be non-expansive (which is described +syntactically through the grammar for $[[:user_syntax__non_expansive: nexp]]$). +The rule \ottdruleref{JTe\_letrec} allows mutually recursive functions to be +defined; since immediate functions are values, thus nonexpansive, there is no +need for a monomorphic $\ottkw{let\:rec}$ rule. +}} + +Tsigma & E |- pat=expr gives x1:t1, .., xn:tn +Tsigma & E@ x1:t1, .., xn:tn |- e : t +------------------------------------------------------- :: let_mono +Tsigma & E |- let pat=expr in e : t + +shift 0 1 Tsigma & E,TV |- pat=nexp gives x1:t1, .., xn:tn +Tsigma & E@ x1:forall t1, .., xn:forall tn |- e : t +------------------------------------------------------- :: let_poly +Tsigma & E |- let pat=nexp in e : t + +shift 0 1 Tsigma & E,TV |- letrec_bindings gives x1:t1, ..., xn:tn +Tsigma & E@(x1:forall t1), ..., (xn:forall tn) |- e : t +------------------------------------------------------- :: letrec +Tsigma & E |- let rec letrec_bindings in e : t + +Tsigma & E |- e : bool +E |- unit == t +------------------------------------------------------- :: assert +Tsigma & E |- assert e : t + +E |- t : Type +------------------------------------------------------- :: assertfalse +Tsigma & E |- assert false : t + +E |- ok +E |- location gives location:t +E |- t ref == t' +------------------------------------------------------- :: location +Tsigma & E |- location : t' + + + +defn +Tsigma & E |- pattern_matching : typexpr -> typexpr' :: :: pat_matching :: pat_matching_ {{ com Pattern matching/expression pair typing }} {{ lemwcf witness type JTepat_witness; +check JTepat_check; +}} by + +{{ com +Determines the function type of a sequence of pattern/expression pairs. The +function type desribes the type of the value matched by all of the patterns and +the type of the value returned by all of the expressions. $[[Tsigma]]$ gives +the types that should replace type variables in explicitly type-annotated +patterns. +}} + +Tsigma & E |- pattern1:t gives E1 ... Tsigma & E |- patternn:t gives En +Tsigma & E@E1 |- e1:t' ... Tsigma & E@En |- en:t' +length (pattern1)...(patternn) >= 1 +------------------------------------------------------- :: pm +Tsigma & E |- pattern1 -> e1 | ... | patternn -> en : t -> t' + +defn +Tsigma & E |- let_binding gives E' :: :: let_binding :: let_binding_ {{ com Let binding typing }} {{ lemwcf witness type JTeletb_witness; +check JTeletb_check; +}} by + +{{ com +Determines the types bound by a let bindings pattern. +}} + +Tsigma & E |- pattern : t gives x1:t1, .., xn:tn +Tsigma & E |- expr : t +------------------------------------------------------- :: poly +Tsigma & E |- pattern = expr gives (x1:t1), .., (xn:tn) + + +defn +Tsigma & E |- letrec_bindings gives E' :: :: letrec_binding :: letrec_binding_ {{ com Recursive let binding typing }} {{ lemwcf witness type JTelrb_witness; +check JTelrb_check; +}} by + +{{ com +Determines the types bound by a recursive let's patterns (which are always just variables). +}} + +{{ com +\ottbreakconclusionlinetrue +}} + +%%WIDTH: >~a4/landscape/normalsize +E' = E@value_name1:t1->t1',...,value_namen:tn->tn' +Tsigma & E' |- pattern_matching1 : t1->t1' ... Tsigma & E' |- pattern_matchingn : tn->tn' +value_name1 ... value_namen distinct +------------------------------------------------------- :: equal_function +Tsigma & E |- value_name1 = function pattern_matching1 and ... and value_namen = function pattern_matchingn gives value_name1:t1->t1', ..., value_namen:tn->tn' + +{{ com +\ottbreakconclusionlinefalse +}} + +>> +%d<< + +defns +JTconstr_decl :: JT ::= + +defn +type_params_opt typeconstr |- constr_decl gives EB :: :: constr_decl :: constr_decl_ {{ com Variant constructor declaration }} {{ lemwcf witness type JTconstr_decl_witness; +check JTconstr_decl_check; +}} by + +{{ com +Collects the constructors of a variant type declaration using named type +schemes for the type parameters. +}} + +------------------------------------------------------- :: nullary +(tv1, ..., tvn) typeconstr |- constr_name gives constr_name of typeconstr + +------------------------------------------------------- :: nary +(tv1, ..., tvn) typeconstr |- constr_name of t1*...*tn gives constr_name of forall (tv1, ..., tvn), (t1,...,tn) : typeconstr + + + +defns +JTfield_decl :: JT ::= + +defn +type_params_opt typeconstr_name |- field_decl gives EB :: :: field_decl :: field_decl_ {{ com Record field declaration }} {{ lemwcf witness type JTfield_decl_witness; +check JTfield_decl_check; +}} by + + +{{ com +Collects the fields of a record type using named type schemes for the type +parameters. +}} + +------------------------------------------------------- :: only +(tv1, ..., tvn) typeconstr_name |- fn:t gives fn:forall (tv1, ..., tvn), typeconstr_name -> t + + + +defns +JTtypedef :: JT ::= + +defn +|- typedef1 and .. and typedefn gives E' and E'' and E''' :: :: typedef :: typedef_ {{ com Type definitions collection }} {{ lemwcf witness type JTtypedef_witness; +check JTtypedef_check; +}} by + +{{ com +A type definition declares several sorts of names: type constructors +(some of them corresponding to freshly generated types, others to type +abbreviations), and data constructors and destructors. These names are +collected into three environments: +\begin{itemize} +\item $[[E']]$ contains generative type definitions (variant and record types); +\item $[[E'']]$ contains type abbreviations; +\item $[[E''']]$ contains constructors and destructors for generative datatypes. +\end{itemize} + +The order $[[E']]$, $[[E'']]$, $[[E''']]$ is chosen so that their +concatenation is well-formed, because no component may refer to a +subsequent one. The first component $[[E']]$, only contains +declarations of names which do not depend on anything. The second +component $[[E'']]$ contains type abbreviations topologically sorted +according to their dependency order, which is possible since we +do not allow recursive type abbreviations (in Objective Caml, +without the \texttt{-rectypes} compiler option, recursive type +abbreviations are only allowed when guarded polymorphic variants and +object types) --- recursive types must be guarded by a generative +datatype. Finally $[[E''']]$ declares constructors and destructors for +the types declared in $[[E']]$; $[[E''']]$ may refer to types declared +in $[[E']]$ or $[[E'']]$ in the types of the arguments to these +constructors and destructors. + +This judgement form does not directly assert the correctness of the +definitions: this is performed by the rule +\ottdruleref{JTtype\_definition\_list} below, which states that the +environment assembled here must be well-formed. +}} + +------------------------------------------------------- :: empty +|- gives empty and empty and empty + +|- gives E and E' and E'' +------------------------------------------------------- :: eq +|- type_params_opt typeconstr_name = t and gives E and E',(type_params_opt typeconstr_name = t) and E'' + +{{ com +\ottbreakconclusionlinetrue +}} + +%%WIDTH: >~a4/landscape/normalsize +|- gives E and E' and E'' +|- type_params_opt : kind +type_params_opt typeconstr_name |- constr_decl1 gives EB1 ... type_params_opt typeconstr_name |- constr_decln gives EBn +------------------------------------------------------- :: def_sum +|- type_params_opt typeconstr_name = constr_decl1 | ... | constr_decln and gives E, (typeconstr_name : kind) and E' and E''@EB1,...,EBn + +{{ com +A variant type definition yields two sorts of bindings: one for the type +constructor name and one for each constructor. +}} + +%%WIDTH: >>a4/landscape/normalsize +|- gives E and E' and E'' +|- type_params_opt : kind +type_params_opt typeconstr_name |- field_name1:t1 gives EB1 ... type_params_opt typeconstr_name |- field_namen:tn gives EBn +------------------------------------------------------- :: def_record +|- type_params_opt typeconstr_name = {field_name1:t1; ...; field_namen:tn} and gives E, (typeconstr_name : kind {field_name1; ...; field_namen}) and E' and E''@EB1,...,EBn + +{{ com +A record type definition yields two sorts of bindings: one for the type +constructor name and one for each field. The field names are also recorded +with the type constructor binding; this information is used in the rule +\ottdruleref{JTe\_record\_constr} to make sure that record expressions +specify all fields. (We would similarly tag type constructor bindings for +variant types with their constructor names if we wanted to check the +exhaustivity of pattern matching.) +}} + +{{ com +\ottbreakconclusionlinefalse +}} + +defns +JTtype_definition :: JT ::= + +defn +E |- type_definition gives E' :: :: type_definition :: type_definition_ {{ com Type definition well-formedness and binding collection }} {{ lemwcf witness type JTtype_definition_witness; +check JTtype_definition_check; +}} by + +{{ com +Collects the bindings of a type definition and ensures that they are +well-formed. Any given name may be defined at most once, and all names used +must have been bound previously or earlier in the same type definition phrase. +The conditions are checked by the premise $[[E@E'''' |- ok]]$ in the rule +\ottdruleref{JTtype\_definition\_list} and the assembly is performed by the +type definitions collection rules above. This implies that the type +abbreviations must be topologically sorted in their dependency order. +(Generative type definitions are exempt from such constraints.) Programmers do +not have to abide by this constraint: they may order type abbreviations in any +way. Therefore the rule \ottdruleref{JTtype_definition_swap} allows an +arbitrary reordering of type definitions --- it suffices for a type definition +to be correct that there exist a reordering that makes the type abbreviations +properly ordered. +}} + +|- typedef1 and ... and typedefn gives E' and E'' and E''' +E'''' = E'@E''@E''' +E@E'''' |- ok +------------------------------------------------------- :: list +E |- type typedef1 and ... and typedefn gives E'''' + + +E |- type and typedef' and typedef and gives E' +------------------------------------------------------- :: swap +E |- type and typedef and typedef' and gives E' + +{{ com +}} + +defns +JTdefinition :: JT ::= + +defn +E |- definition : E' :: :: definition :: definition_ {{ com Definition typing }} {{ lemwcf witness type JTdefinition_witness; +check JTdefinition_check; +}} by + + +{{ com +Collects the bindings of a definition and ensures that they are well-formed. +Each definition can bind zero, one or more names. Type variables that are +mentionned by the programmer in type annotations are scoped at this level. +Thus, the $[[Tsigma]]$ substitution is arbitrarily created for each definition +to ensure that each type variable is used consistently in the definition. +}} + +Tsigma & E,TV |- pat=nexp gives (x1:t1'),..,(xk:tk') +------------------------------------------------------- :: let_poly +E |- let pat = nexp : (x1:forall t1'),..,(xk:forall tk') + +Tsigma & E |- pat=expr gives (x1:t1'),..,(xk:tk') +------------------------------------------------------- :: let_mono +E |- let pat = expr : (x1:t1'),..,(xk:tk') + +Tsigma & E,TV |- letrec_bindings gives (x1:t1'),..,(xk:tk') +------------------------------------------------------- :: letrec +E |- let rec letrec_bindings : (x1:forall t1'),..,(xk:forall tk') + +E |- type typedef1 and ... and typedefn gives E' +------------------------------------------------------- :: typedef +E |- type typedef1 and ... and typedefn : E' + +E |- ok +exn |- constr_decl gives EB +------------------------------------------------------- :: exndef +E |- exception constr_decl : EB + +defns +JTdefinitions :: JT ::= + +defn +E |- definitions : E' :: :: definitions :: definitions_ {{ com Definition sequence typing }} {{ lemwcf witness type JTdefinitions_witness; +check JTdefinitions_check; +}} by + +{{ com +Collects the bindings of a definition and ensures that they are well-typed. +}} + +E |- ok +---------------------------------------------------------------- :: empty +E |- : :Env_list: + +:JTdefinition:E |- definition : E' +:JTdefinitions:E@ E' |- definitions' : E'' +---------------------------------------------------------------- :: item +E |- definition definitions' : E'@E'' + +defns +JTprog :: JT ::= + +defn +E |- program : E' :: :: prog :: prog_ {{ com Program typing }} {{ lemwcf witness type JTprog_witness; +check JTprog_check; +}} by + +{{ com +Checks a progam. +}} + +:JTdefinitions: E |- definitions : E' +----------------------------------------------------- :: defs +E |- definitions : E' + +Tsigma & E |- v : t +-------------------------------------------- :: raise +E |- (%prim raise) v : :Env_list: + +%d>> +<< + +defns +JTstore :: JT ::= + +defn +E |- store : E' :: :: store :: store_ {{ com Store typing }} {{ lemwcf witness type JTstore_witness; +check JTstore_check; +}} by + +{{ com +Checks that the values in a store have types. +}} + +------------------------------------------------------- :: empty +E |- empty : :Env_list: + +E |- store : E' +<<>> & E |- v : t +------------------------------------------------------- :: map +E |- store, l |-> v : E',(l:t) + +>> +%d<< + +defns +JTtop :: JT ::= + +defn +E |- < program , store > : E' :: :: top :: top_ {{ com Top-level typing }} +{{ tex [[E]] \vdash \langle [[program]], [[store]] \rangle }} {{ lemwcf witness type JTtop_witness; +check JTtop_check; +}} by + +{{ com +Checks the combination of a program with a store. The store is typed in an +environment that includes its bindings, so that it can contain cyclic +structures. +}} + +E@E' |- store : E' +:JTprog:E@E' |- program : E'' +------------------------------------------------------- :: defs +E |- : E'@E'' + +%d>> +<< + + +defns +JTLin :: JT ::= +defn +Tsigma & E |- L :: :: Lin :: Lin_ {{ com Label-to-environment extraction }} {{ lemwcf witness type JTLin_witness; +check JTLin_check; +}} by + +{{ com +Used in the proof only +}} + +------------------------------------------------------- :: nil +Tsigma & E |- + +dom(E) gives names +location notin names +------------------------------------------------------- :: alloc +Tsigma & E |- ref v = location + +Tsigma & E |- v : t +E |- location gives (location:t) +------------------------------------------------------- :: deref +Tsigma & E |- !location = v + +------------------------------------------------------- :: assign +Tsigma & E |- location := v + +defns +JTLout :: JT ::= +defn +Tsigma & E |- L gives E' :: :: Lout :: Lout_ {{ com Label-to-environment extraction }} {{ lemwcf witness type JTLout_witness; +check JTLout_check; +}} by + +{{ com +Used in the proof only +}} + +------------------------------------------------------- :: nil +Tsigma & E |- gives :Env_list: + +Tsigma & E |- v : t +------------------------------------------------------- :: alloc +Tsigma & E |- ref v = location gives (location:t) + +------------------------------------------------------- :: deref +Tsigma & E |- !location = v gives :Env_list: + +Tsigma & E |- v : t +E |- location gives (location:t) +------------------------------------------------------- :: assign +Tsigma & E |- location := v gives :Env_list: + + +%% The next com is a hack to get the title in the right place when +%% typesetting the reduction rules after the typing rules. + +{{ com +\section{Operational Semantics} +\label{sec.runtime} + +The operational semantics is a labelled transition system that lifts imperative +and non-deterministic behavior our of the core evaluation rules. +Notable aspects of the formalization include: +\begin{itemize} +\item +explicit rules for evaluation in context (instead of a grammar of evaluation contexts), + +\item +small-step propogation of exceptions, + +\item +substitution-based function application, + +\item +right-to-left evaluation ordering, which is overspecified compared to the OCaml +manual; furthermore, this choice of evaluation ordering for record expressions +differs from the implementation's choice, which is based on the type +declaration, + +\item +unlike the implementation, we do not treat curried functions specially, the +difference can be seen in this program: +$[[:user_syntax__program: :Ds_cons_semi:let f = function 1 -> function _ -> 10;; :Ds_cons_semi:let _ = f 2;;]]$ +which does not raise an exception in the implementation. + +\item +As in the type system, several rules have premises that state there are at +least 1 (or 2) elements of a list, despite there being 3 or 4 dots. This is +because Ott does not use dot imposed length restrictions in the theorem prover +models. + +\end{itemize} + +}} + +embed +{{ coq +Hint Constructors JdomEB JdomE Jlookup_EB Jidx_bound + JTtps_kind + JTEok JTtypeconstr JTts JTtsnamed JTt + JTeq JTidxsub JTinst JTinst_named JTinst_any + JTvalue_name JTfield + JTconstr_p JTconstr_c + JTconst + JTpat + JTuprim JTbprim + JTe JTpat_matching JTlet_binding JTletrec_binding + JTstore JTLin JTLout + : rules. +}} +%d{{ coq +%dHint Constructors JTconstr_decl JTfield_decl JTtypedef JTtype_definition +%d JTdefinition JTdefinitions +%d JTprog JTtop +%d : rules. +%d}} diff --git a/vendors/ott/examples/peterson_caml.ott b/vendors/ott/examples/peterson_caml.ott new file mode 100644 index 000000000000..d784a20500ed --- /dev/null +++ b/vendors/ott/examples/peterson_caml.ott @@ -0,0 +1,334 @@ +metavar value_name, x ::= + {{ isa string }} {{ coq nat }} {{ coq-equality }} {{ hol string }} + {{ lex alphanum }} +metavar ident ::= + {{ isa string }} {{ coq nat }} {{ hol string }} + {{ lex Alphanum }} +metavar string_literal ::= + {{ isa string }} {{ coq nat }} {{ hol string }} + {{ lex Alphanum }} +metavar integer_literal ::= + {{ isa int }} {{ coq nat }} {{ hol num }} + {{ lex numeral }} +indexvar index, i, j, n, m ::= + {{ isa nat }} {{ coq nat }} {{ hol num }} + {{ lex numeral }} +% the lex specifications above are not accurate - negative numerals, especially, +% should be supported +metavar location, l ::= {{ isa nat }} {{ coq positive }} {{ hol num }} + + +grammar + +typeconstr_name :: TCN_ ::= + | unit :: :: unit + | bool :: :: bool + | int :: :: int + +typeconstr :: TC_ ::= + | typeconstr_name :: :: name + +typvar :: TV_ ::= + | ' ident :: :: ident + +typexpr, t :: TE_ ::= + | typvar :: :: typvar + | typexpr -> typexpr' :: :: arrow + | typexpr ref :: :: ref + | typeconstr :: :: constr0 + | ( typexpr ) :: M :: paren {{ ich [[typexpr]] }} + +typscheme, ts :: TS_ ::= + | ( typvar1 , .. , typvarn ) typexpr :: :: ts (+ bind typvar1 .. typvarn in typexpr +) + + | generalise ( G , t ) :: M :: ts3 + {{ isa (TS_ts (List.remdups (list_minus (ftv_typexpr [[t]]) (ftv_G [[G]]))) [[t]]) }} + {{ coq (TS_ts (remove_duplicates (make_list_typvar (list_minus eq_typvar (ftv_typexpr [[t]]) (ftv_G [[G]])))) [[t]]) }} + {{ hol (TS_ts (remove_duplicates (list_minus (ftv_typexpr [[t]]) (ftv_G [[G]]))) [[t]]) }} + +%TODO: it might be nicer to have ftv remove duplicates, or indeed +%return a set + +constant, c :: CONST_ ::= + | integer_literal :: :: int + | false :: :: false + | true :: :: true + | () :: :: unit + | (&&) :: :: and + | not :: :: not + | ref :: :: ref + | (!) :: :: deref + | (::=) :: :: assign + | Thread.create :: :: thread_create + +expr, e :: E_ ::= + | value_name :: :: ident + | constant :: :: constant + | expr expr' :: :: apply + | function value_name -> expr :: :: function (+ bind value_name in expr +) + | let value_name = expr in expr' :: :: let (+ bind value_name in expr' +) + | let rec value_name = value in expr' :: :: letrec (+ bind value_name in value +) (+ bind value_name in expr' +) + + | if expr then expr' else expr'' :: :: ifthenelse + | trace string_literal expr :: :: trace + | l :: :: location + | ( expr ) :: M :: paren {{ ich [[expr]] }} + | { e / x } e' :: M :: subst + {{ ich (subst_expr [[v]] [[x]] [[e]]) }} + +value, v :: V_ ::= + | constant :: :: constant + | function value_name -> expr :: :: function + +G {{ tex \Gamma }} :: G_ ::= + | empty :: :: em + | G , value_name : typscheme :: :: vn + +store , s :: STORE_ ::= {{ isa location ~=> expr }} + | empty :: :: empty {{ isa empty }} + | store , location |-> v :: :: cell {{ isa [[store]] ([[location]]|->[[v]]) }} + +process , p :: PROC_ ::= {{ isa expr multiset }} + | empty :: :: empty {{ isa {#} }} + | p , e :: :: thread {{ isa [[p]] + {# [[e]] #} }} + + + +formula :: formula_ ::= + | judgement :: :: judgement + | not ( formula ) :: :: not + {{ isa Not([[formula]]) }} + {{ coq not([[formula]]) }} + {{ hol ~([[formula]]) }} + + | typscheme > t :: :: gen + {{ isa ? typvars . ? typexpr . ? s . + [[typscheme]] = TS_ts typvars typexpr + & typvars=List.map fst s + & tsubst_typexpr s typexpr = [[t]] }} + {{ coq (exists tvs, exists txp, exists s, + [[typscheme]] = TS_ts tvs txp + /\ tvs = make_list_typvar + (List.map (fun (x:typvar*typexpr) => match x with (x1,x2) => x1 end) + s) + /\ tsubst_typexpr s txp = [[t]]) }} + {{ hol ? typvars typexpr s . + ([[typscheme]] = TS_ts typvars typexpr ) + /\ (typvars=MAP FST s ) + /\ (tsubst_typexpr s typexpr = [[t]]) }} + + | typscheme = typscheme' :: :: eqt + {{ ich [[typscheme]]=[[typscheme']] }} + | value_name = value_name' :: :: eqv + {{ ich [[value_name]]=[[value_name']] }} + | l first unused for s :: :: unused {{ isa ([[l]]=(LEAST l. ~l : dom [[s]] )) }} + | s ( l ) = v :: :: lookup {{ isa ([[s]]([[l]])=Some [[v]]) }} + +terminals :: terminals_ ::= + | -> :: :: arrow {{ tex \rightarrow }} + | function :: :: function {{ tex \textbf{function} }} + | |- :: :: turnstile {{ tex \vdash }} + | |-> :: :: mapsto {{ tex \mapsto }} + | --> :: :: red {{ tex \longrightarrow }} + | '{' :: :: leftbrace {{ tex \{ }} + | '}' :: :: rightbrace {{ tex \} }} + +embed + {{ coq +Fixpoint remove_duplicates (l:list_typvar) : list_typvar := + match l with + | Nil_list_typvar => Nil_list_typvar + | Cons_list_typvar h t => + if (list_mem eq_typvar h (unmake_list_typvar t)) + then remove_duplicates t + else Cons_list_typvar h (remove_duplicates t) +end. }} + + {{ hol +val _ = Define ` + (remove_duplicates [] = []) /\ + (remove_duplicates (x::xs) = if (MEM x xs) then remove_duplicates xs + else x::(remove_duplicates xs)) +`; }} + + +subrules + v <:: expr + +substitutions + single expr value_name :: subst + multiple typexpr typvar :: tsubst + +freevars + typexpr typvar :: ftv + +defns +Jtype :: '' ::= + +defn +value_name : typscheme in G :: :: VTSin :: VTSin_ by + +--------------------------------------------------- :: vn1 +value_name : typscheme in G, value_name:typscheme + +value_name : typscheme in G +not(value_name = value_name') +--------------------------------------------------- :: vn2 +value_name : typscheme in G, value_name':typscheme' + + + +defn +|- constant : ts :: :: Jconstant :: constant_ by + +------------------------ :: int +|- integer_literal : ()int + +--------------- :: false +|- false : ()bool + +-------------- :: true +|- true : ()bool + +------------ :: unit +|- () : ()unit + +---------------------------------- :: and +|- (&&) : () bool -> ( bool -> bool ) + +--------------------- :: not +|- not : () bool -> bool + + +--------------------- :: ref +|- ref : (typvar) typvar -> (typvar ref) + +--------------------- :: deref +|- (!) : (typvar) typvar ref -> typvar + +--------------------- :: assign +|- (::=) : (typvar) typvar ref -> (typvar -> unit) + +--------------------- :: thread_create +|- Thread.create : (typvar1,typvar2) (typvar1->typvar2)->(typvar1->unit) + + +defn +G |- e : t :: :: Get :: Get_ by + +x:typscheme in G +typscheme > t +---------------- :: value_name +G |- x:t + +:Jconstant: |- constant : ts +ts > t +------------------------------ :: constant +G |- constant : t + +G |- e : t1->t2 +G |- e' : t1 +---------------- :: apply +G |- e e' : t2 + +G,x1: ( ) t1 |- e : t +--------------------------- I :: lambda +G |- function x1->e : t1->t + +G |- e : t +G,x:typscheme |- e':t' +typscheme = generalise(G,t) +--------------------------- :: let +G |- let x=e in e' : t' + +G,x:typscheme |- v : t +G,x:typscheme |- e':t' +typscheme = generalise(G,t) +--------------------------- :: letrec +G |- let rec x=v in e' : t' + +G |- e : bool +G |- e' : t +G |- e'' : t +------------------------------ :: ifthenelse +G |- if e then e' else e'' : t + +G |- e : t +------------------------------ :: trace +G |- trace string_literal e : t + + + + + +defns +Jop :: JO_ ::= + +defn +s ; p --> s' ; p' :: :: red :: red_ by + +------------------------------- :: app +s;p,(function x->e) v --> s;p,{v/x} e + +--------------------------- :: let +s;p,let x = v in e --> s;p,{v/x} e + +--------------------------- :: letrec +s;p,let rec x = v in e --> s;p,{ {let rec x=v in v/x}v /x} e + +--------------------------- :: iftrue +s;p,if true then e' else e'' --> s;p,e' + +--------------------------- :: iffalse +s;p,if false then e' else e'' --> s;p,e'' + +------------------------------------ :: trace +s;p,trace string_literal v --> s;p,e + +------------------ :: not_1 +s; p,not true --> s; p,false + +------------------ :: not_2 +s; p,not false --> s; p,true + +------------------- :: and_1 +s; p,((&&) true) e --> s; p,e + +------------------------ :: and_2 +s; p,((&&) false) e --> s; p,false + +l first unused for s +------------------------------ :: ref +s; p,ref v --> s,l|->v ; p,l + +s(l)=v +------------------------------- :: deref +s; p,(!) l --> s;p,v + +------------------------------- :: assign + s,l|->v; p,((::=) l) v' --> s,l|->v'; p,() + +---------------------------------------- :: thread_create +s;p,(Thread.create v1) v2 --> s;p,v1 v2,() + +s;p,e --> s';p',e' +-------------- :: context_app1 +s;p,e e1 --> s';p', e' e1 + +s;p,e --> s';p',e' +------------ :: context_app2 +s;p, v e --> s';p', v e' + +s;p, e --> s';p', e' +-------------------------------- :: context_let +s;p, let x=e in e1 --> s';p', let x=e' in e1 + +s;p,e1 --> s';p',e2 +--------------------------- :: context_if +s;p,if e1 then e' else e'' --> s';p',if e2 then e' else e'' + +s;p,e --> s';p',e' +-------------- :: context_trace +s;p,trace string_literal e --> s';p', trace string_literal e' + + diff --git a/vendors/ott/examples/tapl/.gitignore b/vendors/ott/examples/tapl/.gitignore new file mode 100644 index 000000000000..1bb05d599fa5 --- /dev/null +++ b/vendors/ott/examples/tapl/.gitignore @@ -0,0 +1,13 @@ +*.vo +*.glob +*.v.d +*.aux +.coqdeps.d +records.tex +records.thy +recordsScript.sml +records_auto.v +stlc.tex +stlc.thy +stlcScript.sml +stlc_auto.v diff --git a/vendors/ott/examples/tapl/Makefile b/vendors/ott/examples/tapl/Makefile new file mode 100644 index 000000000000..dbee9e0d3dee --- /dev/null +++ b/vendors/ott/examples/tapl/Makefile @@ -0,0 +1,200 @@ +topdir = ../.. +ott_coq_lib_dir = $(topdir)/coq +ott_hol_lib_dir = $(topdir)/hol + +COQC = coqc +COQDEP = coqdep +COQ_INCLUDE = -I $(ott_coq_lib_dir) +COQC_FLAGS = +DVIPS = dvips +HOLMAKE = Holmake +HOLMAKE_FLAGS = -I $(ott_hol_lib_dir) +ISABELLE = isabelle +ISABELLE_FLAGS = -q +ISABELLE_WRAPPER = use_thy "$*" handle e => (TextIO.output (TextIO.stdErr, "Isabelled failed: " ^ exnMessage e ^ "\n"); OS.Process.exit OS.Process.failure) +LATEX = latex +OTT = $(topdir)/src/ott +OTT_FLAGS = -merge true #-show_defns false -show_sort false +PDFLATEX = pdflatex + +# NB THIS SHOULD BE IN SYNC WITH THE SYS_ROUGHLYFULLSIMPLE DEFINITION IN src/Makefile +# AND sys-roughlyfullsimple IN src/regression.otl +SOURCES = \ +common.ott \ +common_index.ott \ +common_labels.ott \ +common_typing.ott \ +bool.ott \ +bool_typing.ott \ +nat.ott \ +nat_typing.ott \ +arrow_typing.ott \ +basety.ott \ +unit.ott \ +seq.ott \ +ascribe.ott \ +let.ott \ +product.ott \ +sum.ott \ +fix.ott \ +tuple.ott \ +variant.ott +#record.ott + +records_sources = \ + common.ott common_index.ott common_labels.ott common_typing.ott \ + bool.ott bool_typing.ott \ + nat.ott nat_typing.ott \ + arrow_typing.ott basety.ott \ + unit.ott seq.ott ascribe.ott let.ott \ + product.ott sum.ott fix.ott \ + tuple.ott record.ott variant.ott + +isa_objects = stlc stlc_metatheory + +coq_ott_libs = $(ott_coq_lib_dir)/ott_list +coq_stlc_libs = $(coq_ott_libs) stlc_tactics +coq_stlc_objects = $(coq_stlc_libs) \ + stlc_auto stlc_base stlc_terms \ + stlc_environments stlc_typing stlc_soundness +coq_oldlists_objects = $(coq_stlc_libs) \ + records_oldlists_auto +coq_records_common = $(coq_stlc_libs) \ + records_auto records_base records_terms records_environments +coq_records_objects = $(coq_records_common) \ + records_hand_red records_hand_typing_fl \ + records_typing records_soundness +coq_pf_objects = $(coq_records_common) \ + records_hand_red records_hand_typing_pf \ + records_pf_typing records_pf_soundness +coq_equiv_objects = $(coq_stlc_libs) \ + records_auto records_base records_equiv_common \ + records_equiv_red records_equiv_typing_fl records_equiv_typing_pf +coq_misc_objects = records_quickies records_tick + +default: so +ott: stlc.tex stlc_auto.v stlcScript.sml stlc.thy \ + records.tex records_auto.v recordsScript.sml records.thy +coq-stlc: $(coq_stlc_objects:=.vo) +coq-oldlists: $(coq_oldlists_objects:=.vo) +coq-records: $(coq_records_objects:=.vo) +coq-pf: $(coq_pf_objects:=.vo) +coq-equiv: $(coq_equiv_objects:=.vo) +coq-misc: $(coq_misc_objects:=.vo) +coq: coq-pf +coq-world: coq-stlc coq-records coq-pf coq-equiv coq-misc coq-oldlists +hol: metatheoryTheory.uo +isa: $(isa_objects:=.isa) +# N.B. isa currently requires a CVS version of Isabelle (Isabelle 2005 fails) +all: ott stlc.ps coq hol +world: all stlc.pdf coq-world hol isa + +#### Scott's targets #### +so: stlcScript.sml metatheoryScript.sml stlc.pdf + $(HOLMAKE) $(HOLMAKE_FLAGS) + +#### Tom's targets ##### +tom: stlc.thy stlc.pdf + +#### ott ### +records.tex records_auto.v recordsScript.sml records.thy: $(records_sources) $(OTT) + $(OTT) $(OTT_FLAGS) -merge true -coq_expand_list_types false -o records.tex -o records_auto.v -o recordsScript.sml -o records.thy $(records_sources) +records_oldlists_auto.v: $(records_sources) $(OTT) + $(OTT) $(OTT_FLAGS) -merge true -coq_expand_list_types true -o $@ $(records_sources) +stlc.tex stlc_auto.v stlcScript.sml stlc.thy: $(SOURCES) $(OTT) + $(OTT) $(OTT_FLAGS) -merge true -coq_expand_list_types true -o stlc.tex -o stlc_auto.v -o stlcScript.sml -o stlc.thy $(SOURCES) + +#### TeX #### +.SUFFIXES: .tex .dvi .ps .pdf +.tex.dvi: + $(LATEX) $< +.dvi.ps: + $(DVIPS) -o $@ $< +.tex.pdf: + $(PDFLATEX) $< + +#### Hol #### +hol_libs = $(ott_hol_lib_dir)/ottLib $(ott_hol_lib_dir)/ottTheory +hol_libs: $(hol_libs:=.ui) $(hol_libs:=.uo) +$(hol_libs:=.ui) $(hol_libs:=.uo): %: + cd $(@D) && $(MAKE) $(@F) +%Theory.uo: %Script.sml hol_libs + $(HOLMAKE) $(HOLMAKE_FLAGS) $@ + +#### Isabelle #### +.SUFFIXES: .thy .isa +.thy.isa: + $(ISABELLE) $(ISABELLE_FLAGS) -e '$(ISABELLE_WRAPPER)' + +#### Coq #### +coq_libs: $(coq_ott_libs:=.vo) +$(coq_ott_libs:=.vo): + cd $(ott_coq_lib_dir) && $(MAKE) $(@F) +.SUFFIXES: .v .vo +.v.vo: + $(COQC) $(COQ_INCLUDE) $(COQC_FLAGS) $< + +#### Administrative targets #### +clean: + rm -f stlc.tex stlcScript.sml auto[-_]* *[-_.]auto[-_.]* + rm -f *.aux *.log *.dvi *.ps *.pdf + rm -f *.vo + rm -f stlcTheory.sig stlcTheory.sml metatheoryTheory.sml metatheoryTheory.sig *.uo *.ui + +#### Dependencies #### +dep: .depend + sed -e '/^#### AUTOMATICALLY GENERATED BY make dep, DO NOT CHANGE THIS LINE ####$$/q' Makefile.tmp + cat .depend >>Makefile.tmp + mv -f Makefile .Makefile.old + mv -f Makefile.tmp Makefile +.depend: force + : >.depend.tmp + $(COQDEP) -I . -I $(ott_coq_lib_dir) *.v >.depend.coq.tmp + sed -e '/^_ott_coqrc\.vo:/d' -e 's/ _ott_coqrc\.v/& $$(ott_coqrc_deps)/' <.depend.coq.tmp >>.depend.tmp + rm .depend.coq.tmp + mv .depend.tmp .depend +force: + +# TeX dependencies, mentioned so as not to run afoul of the make +# feature whereby it deletes intermediate files. +records.tex: +stlc.tex: +records.dvi: +stlc.dvi: + +# ott_coqrc_deps must list the dependencies of _ott_coqrc.vo, because +# coqdep would miss them (see _ott_coqrc.v). +ott_coqrc_deps = $(coq_ott_libs:=.vo) +stlc_coq_prelude = $(ott_coqrc_deps) +# stlc_coq_prelude is used by the regression tests and must depend on +# the .vo files that are required to build any ott-generated stlc .v. +stlc_coq_prelude: $(stlc_coq_prelude) + +#### AUTOMATICALLY GENERATED BY make dep, DO NOT CHANGE THIS LINE #### +records_auto.vo: records_auto.v ../../coq/ott_list.vo _ott_coqrc.v $(ott_coqrc_deps) ../../coq/ott_list_flat_map.vo +records_base.vo: records_base.v _ott_coqrc.v $(ott_coqrc_deps) stlc_tactics.vo records_auto.vo +records_environments.vo: records_environments.v _ott_coqrc.v $(ott_coqrc_deps) stlc_tactics.vo records_auto.vo +records_equiv_common.vo: records_equiv_common.v _ott_coqrc.v $(ott_coqrc_deps) stlc_tactics.vo records_auto.vo records_base.vo +records_equiv_red.vo: records_equiv_red.v _ott_coqrc.v $(ott_coqrc_deps) stlc_tactics.vo records_auto.vo records_base.vo records_equiv_common.vo records_hand_red.vo +records_equiv_typing_fl.vo: records_equiv_typing_fl.v _ott_coqrc.v $(ott_coqrc_deps) stlc_tactics.vo records_auto.vo records_base.vo records_equiv_common.vo records_hand_typing_fl.vo +records_equiv_typing_pf.vo: records_equiv_typing_pf.v _ott_coqrc.v $(ott_coqrc_deps) stlc_tactics.vo records_auto.vo records_base.vo records_hand_typing_fl.vo records_hand_typing_pf.vo +records_hand_red.vo: records_hand_red.v _ott_coqrc.v $(ott_coqrc_deps) records_auto.vo records_base.vo +records_hand_typing_fl.vo: records_hand_typing_fl.v _ott_coqrc.v $(ott_coqrc_deps) records_auto.vo records_base.vo +records_hand_typing_pf.vo: records_hand_typing_pf.v _ott_coqrc.v $(ott_coqrc_deps) records_auto.vo records_base.vo +records_oldlists_auto.vo: records_oldlists_auto.v _ott_coqrc.v $(ott_coqrc_deps) ../../coq/ott_list_flat_map.vo +records_pf_soundness.vo: records_pf_soundness.v _ott_coqrc.v $(ott_coqrc_deps) stlc_tactics.vo records_auto.vo records_base.vo records_terms.vo records_environments.vo records_hand_red.vo records_hand_typing_pf.vo records_pf_typing.vo +records_pf_typing.vo: records_pf_typing.v _ott_coqrc.v $(ott_coqrc_deps) stlc_tactics.vo records_auto.vo records_base.vo records_terms.vo records_environments.vo records_hand_typing_pf.vo +records_quickies.vo: records_quickies.v _ott_coqrc.v $(ott_coqrc_deps) stlc_tactics.vo records_auto.vo records_base.vo records_environments.vo records_hand_red.vo records_hand_typing_pf.vo +records_run.vo: records_run.v _ott_coqrc.v $(ott_coqrc_deps) stlc_tactics.vo records_auto.vo records_base.vo records_terms.vo records_environments.vo records_hand_red.vo records_hand_typing_pf.vo +records_soundness.vo: records_soundness.v _ott_coqrc.v $(ott_coqrc_deps) stlc_tactics.vo records_auto.vo records_base.vo records_terms.vo records_environments.vo records_hand_red.vo records_hand_typing_fl.vo records_typing.vo +records_terms.vo: records_terms.v _ott_coqrc.v $(ott_coqrc_deps) stlc_tactics.vo records_auto.vo records_base.vo +records_tick.vo: records_tick.v _ott_coqrc.v $(ott_coqrc_deps) records_auto.vo records_base.vo records_pf_soundness.vo records_hand_red.vo records_hand_typing_pf.vo records_equiv_red.vo records_equiv_typing_pf.vo records_equiv_typing_fl.vo +records_typing.vo: records_typing.v _ott_coqrc.v $(ott_coqrc_deps) stlc_tactics.vo records_auto.vo records_base.vo records_terms.vo records_environments.vo records_hand_typing_fl.vo +stlc_auto.vo: stlc_auto.v _ott_coqrc.v $(ott_coqrc_deps) ../../coq/ott_list_flat_map.vo +stlc_base.vo: stlc_base.v _ott_coqrc.v $(ott_coqrc_deps) stlc_tactics.vo stlc_auto.vo +stlc_environments.vo: stlc_environments.v _ott_coqrc.v $(ott_coqrc_deps) stlc_tactics.vo stlc_auto.vo stlc_base.vo +stlc_soundness.vo: stlc_soundness.v _ott_coqrc.v $(ott_coqrc_deps) stlc_auto.vo stlc_tactics.vo stlc_base.vo stlc_terms.vo stlc_environments.vo stlc_typing.vo +stlc_tactics.vo: stlc_tactics.v +stlc_terms.vo: stlc_terms.v _ott_coqrc.v $(ott_coqrc_deps) stlc_tactics.vo stlc_auto.vo stlc_base.vo +stlc_typing.vo: stlc_typing.v _ott_coqrc.v $(ott_coqrc_deps) stlc_auto.vo stlc_tactics.vo stlc_base.vo stlc_terms.vo stlc_environments.vo +wet_massaged.vo: wet_massaged.v diff --git a/vendors/ott/examples/tapl/arrow.ott b/vendors/ott/examples/tapl/arrow.ott new file mode 100644 index 000000000000..d1a9977533a6 --- /dev/null +++ b/vendors/ott/examples/tapl/arrow.ott @@ -0,0 +1,41 @@ +% TAPL [arrow] Untyped lambda-calculus, p72 +metavar termvar, x ::= + {{ isa string }} {{ coq nat }} {{ coq-equality }} {{ hol string }} + {{ lex alphanum }} {{ tex \mathsf{[[termvar]]} }} + +grammar +t :: Tm ::= {{ com terms: }} + | x :: :: Var {{ com variable }} + | \ x . t :: :: Abs (+ bind x in t +) + {{ com abstraction }} + | t1 t2 :: :: App {{ com application }} + | [ x |-> t' ] t :: M :: Subst + {{ ich (subst_t [[t']] [[x]] [[t]]) }} + +v :: Va ::= {{ com values: }} + | \ x . t :: :: Abs {{ com abstraction value }} + + +subrules +v <:: t + +substitutions + single t termvar :: subst + +defns +Jop :: '' ::= + +defn +t --> t' :: :: red :: E_ {{ com Evaluation }} by + +t1 --> t1' +----------------- :: App1 +t1 t2 --> t1' t2 + + +t2 --> t2' +----------------- :: App2 +v1 t2 --> v1 t2' + +----------------------------- :: AppAbs +(\x.t12) v2 --> [x |-> v2]t12 diff --git a/vendors/ott/examples/tapl/arrow_typing.ott b/vendors/ott/examples/tapl/arrow_typing.ott new file mode 100644 index 000000000000..5ad46b7a9fb7 --- /dev/null +++ b/vendors/ott/examples/tapl/arrow_typing.ott @@ -0,0 +1,79 @@ +% TAPL [arrow typing] Pure simply typed lambda-calculus, p103 + +% (As in TAPL, there are no types in this fragment. Isabelle would therefore +% complain that it cannot define an empty type.) + +metavar termvar, x ::= + {{ isa string }} {{ coq nat }} {{ coq-equality }} {{ hol string }} + {{ lex alphanum }} {{ tex \mathsf{[[termvar]]} }} + +grammar +t :: Tm ::= {{ com terms: }} + | x :: :: Var {{ com variable }} + | \ x : T . t :: :: Abs (+ bind x in t +) + {{ com abstraction }} + | t1 t2 :: :: App {{ com application }} + | [ x |-> t' ] t :: M :: Subst + {{ ich (subst_t [[t']] [[x]] [[t]]) }} + +v :: Va ::= {{ com values: }} + | \ x : T . t :: :: Abs (+ bind x in t +) + {{ com abstraction value }} + +T {{ hol Typ }}, S, U :: Ty ::= {{ com types: }} + | T -> T' :: :: Arr {{ com type of functions }} + | ( T ) :: M :: Paren {{ ich [[T]] }} + + + + +subrules +v <:: t + +substitutions + single t termvar :: subst + +freevars + t x :: fv + +defns +Jop :: '' ::= + +defn +t --> t' :: :: red :: E_ {{ com Evaluation }} by + +t1 --> t1' +----------------- :: App1 +t1 t2 --> t1' t2 + + +t2 --> t2' +----------------- :: App2 +v1 t2 --> v1 t2' + +----------------------------- :: AppAbs +(\x:T.t12) v2 --> [x |-> v2]t12 + + +defns +Jtype :: '' ::= + +defn +G |- t : T :: :: typing :: T_ {{ com Typing }} by + +x:T in G +-------- :: Var +G |- x:T + +G,x:T1 |- t2 : T2 +---------------------- :: Abs +G |- \x:T1.t2 : T1->T2 + +G |- t1 : T11->T12 +G |- t2 : T11 +------------------ :: App +G |- t1 t2 : T12 + + + + diff --git a/vendors/ott/examples/tapl/ascribe.ott b/vendors/ott/examples/tapl/ascribe.ott new file mode 100644 index 000000000000..cc8cff6c7fd6 --- /dev/null +++ b/vendors/ott/examples/tapl/ascribe.ott @@ -0,0 +1,29 @@ + +grammar +t :: Tm ::= {{ com terms: }} + | t as T :: :: Ascribe {{ com ascription }} + + +defns +Jop :: '' ::= + +defn +t --> t' :: :: red :: E_ {{ com Evaluation }} by + +-------------- :: Ascribe +v1 as T --> v1 + +t1 --> t1' +-------------------- :: Ascribe1 +t1 as T --> t1' as T + + +defns +Jtype :: '' ::= + +defn +G |- t : T :: :: typing :: T_ {{ com Typing }} by + +G |- t1:T +-------------- :: Ascribe +G |- t1 as T:T diff --git a/vendors/ott/examples/tapl/basety.ott b/vendors/ott/examples/tapl/basety.ott new file mode 100644 index 000000000000..7de3c59c3e8c --- /dev/null +++ b/vendors/ott/examples/tapl/basety.ott @@ -0,0 +1,8 @@ +metavar basetype, A ::= + {{ isa string }} {{ coq nat }} {{ coq-equality }} {{ hol string }} + {{ lex Alphanum }} {{ tex \textsf{[[basetype]]} }} + +grammar +T :: Ty ::= {{ com types: }} + | A :: :: Id {{ com base type }} + diff --git a/vendors/ott/examples/tapl/bool.ott b/vendors/ott/examples/tapl/bool.ott new file mode 100644 index 000000000000..194c183ab5c8 --- /dev/null +++ b/vendors/ott/examples/tapl/bool.ott @@ -0,0 +1,31 @@ +% TAPL [bool] Booleans, p34 +grammar +t :: Tm ::= {{ com terms: }} + | true :: :: True {{ com constant true }} + | false :: :: False {{ com constant false }} + | if t1 then t2 else t3 :: :: If {{ com conditional }} + +v :: Va ::= {{ com values: }} + | true :: :: True {{ com true value }} + | false :: :: False {{ com false value }} + + +subrules +v <:: t + +defns +Jop :: '' ::= + +defn +t --> t' :: :: red :: E_ {{ com Evaluation }} by + +------------------------------- :: IfTrue +if true then t2 else t3 --> t2 + +------------------------------- :: IfFalse +if false then t2 else t3 --> t3 + +t1 --> t1' +------------------------------------------------ :: If +if t1 then t2 else t3 --> if t1' then t2 else t3 + diff --git a/vendors/ott/examples/tapl/bool_typing.ott b/vendors/ott/examples/tapl/bool_typing.ott new file mode 100644 index 000000000000..326dcba897a9 --- /dev/null +++ b/vendors/ott/examples/tapl/bool_typing.ott @@ -0,0 +1,27 @@ +% TAPL [bool typing] Typed booleans + +grammar +T {{ hol Typ }}, S, U :: Ty ::= {{ com types: }} + | Bool :: :: Bool {{ com type of booleans }} + + +defns +Jtype :: '' ::= + +defn +G |- t : T :: :: typing :: T_ {{ com Typing }} by + + +----------------- :: True +G |- true : Bool + +----------------- :: False +G |- false : Bool + +G |- t1:Bool +G |- t2:T +G |- t3:T +------------------------------ :: If +G |- if t1 then t2 else t3 : T + + diff --git a/vendors/ott/examples/tapl/bot.ott b/vendors/ott/examples/tapl/bot.ott new file mode 100644 index 000000000000..e7afb1e7440a --- /dev/null +++ b/vendors/ott/examples/tapl/bot.ott @@ -0,0 +1,12 @@ +grammar +T {{ hol Typ }}, S, U :: Ty ::= {{ com types: }} + | Bot :: :: Bot {{ com minimum type }} + +defns +Jtype :: '' ::= + +defn +T1 <: T2 :: :: subtyping :: S_ {{ com Subtyping }} by + +--------- :: Bot +Bot <: T diff --git a/vendors/ott/examples/tapl/common.ott b/vendors/ott/examples/tapl/common.ott new file mode 100644 index 000000000000..212c66403657 --- /dev/null +++ b/vendors/ott/examples/tapl/common.ott @@ -0,0 +1,32 @@ +embed +{{ tex-preamble +\renewcommand{\ottnt}[1]{\mathsf{#1} } +\renewcommand{\ottkw}[1]{\textsf{#1} } +\renewcommand{\ottcom}[1]{\textit{#1} } +\renewcommand{\ottcomplu}[5]{#1\mbox{}^{\,#2\in #3 #4 #5} } +}} + +{{ coq +Require Import Ott.ott_list. (* for [all_distinct] *) +}} + + +grammar +t :: Tm ::= {{ com terms: }} + | ( t ) :: M :: Paren {{ ich [[t]] }} + +terminals :: terminals_ ::= + | --> :: :: longrightarrow {{ tex \longrightarrow }} + | -> :: :: rightarrow {{ tex \rightarrow }} + | => :: :: Rightarrow {{ tex \Rightarrow }} + | \ :: :: lambda {{ tex \lambda }} + | |-> :: :: mapsto {{ tex \mapsto }} + | |- :: :: vdash {{ tex \vdash }} + | empty :: :: varnothing {{ tex \varnothing }} + | * :: :: times {{ tex \times }} + | <: :: :: subtype {{ tex <: }} + | < :: :: langle {{ tex \langle }} + | > :: :: rangle {{ tex \rangle }} + +formula :: 'formula_' ::= + | judgement :: :: judgement diff --git a/vendors/ott/examples/tapl/common_index.ott b/vendors/ott/examples/tapl/common_index.ott new file mode 100644 index 000000000000..49f930a79030 --- /dev/null +++ b/vendors/ott/examples/tapl/common_index.ott @@ -0,0 +1,32 @@ +indexvar index, i, j, n, m ::= {{ isa nat }} {{ coq nat }} {{ hol num }} {{ lex numeral }} + {{ com indices }} + +grammar +formula :: formula_ ::= + | formula1 .. formulan :: :: dots + | j INDEXES t1 .. tn :: :: Indexesv + {{ coq (1 <= [[j]] /\ [[j]] <= length (unmake_list't [[t1..tn]])) }} + {{ hol (1 <= [[j]] /\ [[j]] <= LENGTH [[t1..tn]]) }} + {{ isa (1 <= [[j]] & [[j]] <= length [[t1..tn]]) }} + | j INDEXES T1 .. Tn :: :: IndexesT + {{ coq (1 <= [[j]] /\ [[j]] <= length (unmake_list'T [[T1..Tn]])) }} + {{ hol (1 <= [[j]] /\ [[j]] <= LENGTH [[T1..Tn]]) }} + {{ isa (1 <= [[j]] & [[j]] <= length [[T1..Tn]]) }} + +embed +{{ coq +(* +These definitions are a hack to make [unmake_list'T] (and similarly +[unmake_list't]) work whether native lists or specific lists are +generated by ott. We use [unmake_list'T] in homs, and that should be a +function that converts from whatever type ott uses to represent lists +of [T] to standard lists of [T]. The type [list'T] is defined just so +as to express the argument type of [unmake_list'T]. +*) +Definition list'T : Set. exact list_T || exact (list T). Defined. +Definition unmake_list'T : list'T -> list T. + exact unmake_list_T || exact (fun x => x). Defined. +Definition list't : Set. exact list_t || exact (list t). Defined. +Definition unmake_list't : list't -> list t. + exact unmake_list_t || exact (fun x => x). Defined. +}} diff --git a/vendors/ott/examples/tapl/common_labels.ott b/vendors/ott/examples/tapl/common_labels.ott new file mode 100644 index 000000000000..a00bbef5d687 --- /dev/null +++ b/vendors/ott/examples/tapl/common_labels.ott @@ -0,0 +1,27 @@ +metavar label, l, k ::= + {{ isa string }} {{ coq nat }} {{ hol string }} {{ lex alphanum }} {{ tex \mathsf{[[label]]} }} + {{ coq-equality }} + {{ com field label }} {{ isavar ''[[label]]'' }} {{ holvar "[[label]]" }} + +grammar +formula :: formula_ ::= + | DISTINCT l1 .. ln :: :: Distinct + {{ coq (Is_true (all_distinct eq_label (unmake_list'label [[l1..ln]]))) }} + {{ hol (ALL_DISTINCT [[l1..ln]]) }} + {{ isa (distinct [[l1..ln]]) }} + +embed +%% See the comment about [unmake_list'T] in common_index.ott. +{{ coq +Definition list'label : Set. exact list_label || exact (list label). Defined. +Definition unmake_list'label : list'label -> list label. + exact unmake_list_label || exact (fun x => x). Defined. +}} + +%% We don't actually use the following nonterminal. However, it is needed +%% to work around a bug in coq code generation with +%% -coq_expand_list_types true (the type list_label is not generated). +grammar +labels :: labels_ ::= + | l1 .. ln :: :: seq + diff --git a/vendors/ott/examples/tapl/common_typing.ott b/vendors/ott/examples/tapl/common_typing.ott new file mode 100644 index 000000000000..768bcda53f8b --- /dev/null +++ b/vendors/ott/examples/tapl/common_typing.ott @@ -0,0 +1,37 @@ +% (Here we represent type environments with proof assistant lists. One could +% instead use the Ott free type, or proof assistant finite maps or what have you.) + +% (The TAPL version has an implicit convention that the assumptions in G +% are for distinct variables. Here instead we always look up the +% rightmost assumption in a G. One could equally well add an explicit +% well-formedness condition to the T_Var rule.) + +grammar +G {{ tex \Gamma }} :: G_ ::= {{ com contexts: }} + {{ isa (termvar*T) list }} + {{ coq list (termvar*T) }} + {{ hol (termvar#Typ) list }} + | empty :: :: empty {{ com empty context }} + {{ isa Nil }} + {{ coq nil }} + {{ hol [] }} + | G , x : T :: :: vn {{ com term variable binding }} + {{ isa ([[x]],[[T]])#[[G]] }} + {{ coq (cons ([[x]],[[T]]) [[G]]) }} + {{ hol (([[x]],[[T]])::[[G]]) }} + + +formula :: 'formula_' ::= + | x : T in G :: :: xTG + {{ tex [[x]]:[[T]] \in [[G]] }} + {{ isa ? G1 G2. [[G]] = G1 @ ([[x]],[[T]])#G2 & [[x]]~:fst ` set G1 }} + {{ coq (bound [[x]] [[T]] [[G]]) }} + {{ hol ? G1 G2. ([[G]] = G1 ++ ([[x]],[[T]])::G2) /\ ~(MEM [[x]] (MAP FST G1)) }} + +embed +{{ coq +Definition bound x T0 G := + exists G1, exists G2, + (G = G1 ++ (x,T0)::G2)%list /\ + ~In x (List.map (@fst termvar T) G1). +}} diff --git a/vendors/ott/examples/tapl/fix.ott b/vendors/ott/examples/tapl/fix.ott new file mode 100644 index 000000000000..51761395bcf2 --- /dev/null +++ b/vendors/ott/examples/tapl/fix.ott @@ -0,0 +1,31 @@ +% TAPL also introduces a derived form +% letrec x:T1=t1 in t2 =def= let x = fix(\x:T1.t2) in t2 + +grammar +t :: Tm ::= {{ com terms: }} + | fix t :: :: Fix {{ com fixed point of [[t]] }} + + +defns +Jop :: '' ::= + +defn +t --> t' :: :: red :: E_ {{ com Evaluation }} by + +------------------------------------------- :: FixBeta +fix (\x:T1.t2) --> [x|->(fix (\x:T1.t2))]t2 + + +t1-->t1' +------------------ :: Fix +fix t1 --> fix t1' + +defns +Jtype :: '' ::= + +defn +G |- t : T :: :: typing :: T_ {{ com Typing }} by + +G |- t1:T1->T1 +-------------- :: Fix +G |- fix t1:T1 diff --git a/vendors/ott/examples/tapl/inert.ott b/vendors/ott/examples/tapl/inert.ott new file mode 100644 index 000000000000..c01138260deb --- /dev/null +++ b/vendors/ott/examples/tapl/inert.ott @@ -0,0 +1,14 @@ +grammar +t :: Tm ::= {{ com terms: }} + | inert T :: :: Inert {{ com inert element of type [[T]] }} + {{ tex [[inert]]_{[[T]]} }} + +defns +Jtype :: '' ::= + +defn +G |- t : T :: :: typing :: T_ {{ com Typing }} by + + +---------------- :: Inert +G |- inert T : T diff --git a/vendors/ott/examples/tapl/let.ott b/vendors/ott/examples/tapl/let.ott new file mode 100644 index 000000000000..374c9a8bb7e6 --- /dev/null +++ b/vendors/ott/examples/tapl/let.ott @@ -0,0 +1,30 @@ +grammar +t :: Tm ::= {{ com terms: }} + | let x = t in t' :: :: Let (+ bind x in t' +) {{ com let binding }} + + +defns +Jop :: '' ::= + +defn +t --> t' :: :: red :: E_ {{ com Evaluation }} by + +----------------------------- :: LetV +let x=v1 in t2 --> [x|->v1]t2 + +t1 --> t1' +---------------------------------- :: Let +let x=t1 in t2 --> let x=t1' in t2 + + +defns + +Jtype :: '' ::= + +defn +G |- t : T :: :: typing :: T_ {{ com Typing }} by + +G |- t1:T1 +G,x:T1 |- t2:T2 +------------------------ :: Let +G |- let x=t1 in t2 : T2 diff --git a/vendors/ott/examples/tapl/let_alltt.ott b/vendors/ott/examples/tapl/let_alltt.ott new file mode 100644 index 000000000000..bb38d3b39584 --- /dev/null +++ b/vendors/ott/examples/tapl/let_alltt.ott @@ -0,0 +1,29 @@ +\par\noindent{\begin{alltt} +\mybf{grammar} +t \mybf{::} Tm \mybf{::=} \mylblb{} \mybf{com} terms: \myrbrb{} + \mybf{|} let x = t in t' \mybf{::} \mybf{::} Let \mybf{(+} \mybf{bind} x \mybf{in} t' \mybf{+)} + \mylblb{} \mybf{com} let binding \myrbrb{} +\mybf{defns} +Jop \mybf{::} '' \mybf{::=} + + \mybf{defn} + t --> t' \mybf{::} \mybf{::} red \mybf{::} E\_ \mylblb{} \mybf{com} Evaluation \myrbrb{} \mybf{by} + + \mybf{-----------------------------} \mybf{::} LetV + let x=v1 in t2 --> [x|->v1]t2 + + t1 --> t1' + \mybf{----------------------------------} \mybf{::} Let + let x=t1 in t2 --> let x=t1' in t2 + +\mybf{defns} +Jtype \mybf{::} '' \mybf{::=} + + \mybf{defn} + G |- t : T \mybf{::} \mybf{::} typing \mybf{::} T\_ \mylblb{} \mybf{com} Typing \myrbrb{} \mybf{by} + + G |- t1:T1 + G,x:T1 |- t2:T2 + \mybf{------------------------} \mybf{::} Let + G |- let x=t1 in t2 : T2 +\end{alltt}}\noindent \ No newline at end of file diff --git a/vendors/ott/examples/tapl/nat.ott b/vendors/ott/examples/tapl/nat.ott new file mode 100644 index 000000000000..a0bd74a7ce51 --- /dev/null +++ b/vendors/ott/examples/tapl/nat.ott @@ -0,0 +1,52 @@ +% TAPL [nat] Arithmetic expressions, p41 +% +% (the TAPL definition introduces a syntactic category of numeric values, +% nv ::= 0 | succ nv, with nv a production of the value grammar. The Ott +% subrule check would not admit that that value grammar is a subgrammar +% of the t grammar, so here we flatten occurrences of nv onto v. That +% introduces some junk values, of course.) + +grammar +t :: Tm ::= {{ com terms: }} + | 0 :: :: Zero {{ com constant zero }} + | succ t :: :: Succ {{ com successor }} + | pred t :: :: Pred {{ com predecessor }} + | iszero t :: :: Iszero {{ com zero test }} + +v :: Va ::= {{ com values: }} + | 0 :: :: Zero {{ com zero value }} + | succ v :: :: Succ {{ com successor value }} + + +subrules +v <:: t + +defns +Jop :: '' ::= + +defn +t --> t' :: :: red :: E_ {{ com Evaluation }} by + +t1 --> t1' +-------------------- :: Succ +succ t1 --> succ t1' + +------------ :: PredZero +pred 0 --> 0 + +--------------------- :: PredSucc +pred (succ v1) --> v1 + +t1 --> t1' +-------------------- :: Pred +pred t1 --> pred t1' + +----------------- :: IsZeroZero +iszero 0 --> true + +-------------------------- :: IsZeroSucc +iszero (succ v1) --> false + +t1 --> t1' +------------------------ :: IsZero +iszero t1 --> iszero t1' diff --git a/vendors/ott/examples/tapl/nat_typing.ott b/vendors/ott/examples/tapl/nat_typing.ott new file mode 100644 index 000000000000..feb9023aeae7 --- /dev/null +++ b/vendors/ott/examples/tapl/nat_typing.ott @@ -0,0 +1,24 @@ +grammar +T {{ hol Typ }}, S, U :: Ty ::= {{ com types: }} + | Nat :: :: Nat {{ com type of natural numbers }} + +defns +Jtype :: '' ::= + +defn +G |- t : T :: :: typing :: T_ {{ com Typing }} by + +------------------ :: Zero +G |- 0 : Nat + +G |- t1 : Nat +------------------ :: Succ +G |- succ t1 : Nat + +G |- t1 : Nat +------------------ :: Pred +G |- pred t1 : Nat + +G |- t1 : Nat +--------------------- :: IsZero +G |- iszero t1 : Bool diff --git a/vendors/ott/examples/tapl/product.ott b/vendors/ott/examples/tapl/product.ott new file mode 100644 index 000000000000..f670d9560187 --- /dev/null +++ b/vendors/ott/examples/tapl/product.ott @@ -0,0 +1,69 @@ +% The TAPL E-Tuple rule uses a slightly different indexing form, +% {li=vi ^{i IN 1..j-1}, lj=tj, lk=tk^{k IN j+1..n} +% which ott does not support, so that rule is slightly rephrased here. + +% The rules include several :TmPair: hints to the parser. These are needed +% only to disambiguate these pairs from tuples, in the (artificial) case in +% which we build a language containing both. + +grammar +T {{ hol Typ }}, S, U :: Ty ::= {{ com types: }} + | T1 * T2 :: :: Pair {{ com product type }} + +t :: Tm ::= {{ com terms: }} + | { t1 , t2 } :: :: Pair {{ com pair }} + | t . 1 :: :: Proj1 {{ com first projection }} + | t . 2 :: :: Proj2 {{ com second projection }} + +v :: Va ::= {{ com values: }} + | { v1 , v2 } :: :: Pair {{ com pair value }} + + +defns +Jop :: '' ::= + +defn +t --> t' :: :: red :: E_ {{ com Evaluation }} by + +---------------- :: PairBeta1 +:TmPair: {v1,v2}.1 --> v1 + +---------------- :: PairBeta2 +:TmPair: {v1,v2}.2 --> v2 + +t1 --> t1' +-------------- :: Proj1 +t1.1 --> t1'.1 + +t1 --> t1' +-------------- :: Proj2 +t1.2 --> t1'.2 + +t1 --> t1' +-------------------- :: Pair1 +:TmPair: {t1,t2} --> :TmPair: {t1',t2} + +t2 --> t2' +-------------------- :: Pair2 +:TmPair: {v1,t2} --> :TmPair: {v1,t2'} + + + +defns +Jtype :: '' ::= + +defn +G |- t : T :: :: typing :: T_ {{ com Typing }} by + +G|-t1:T1 +G|-t2:T2 +----------------- :: Pair +G|- :TmPair: {t1,t2}:T1*T2 + +G|- t1:T1*T2 +------------- :: Proj1 +G|- t1.1 : T1 + +G|- t1:T1*T2 +------------- :: Proj2 +G|- t1.2 : T2 diff --git a/vendors/ott/examples/tapl/record.ott b/vendors/ott/examples/tapl/record.ott new file mode 100644 index 000000000000..9c2e22052cd4 --- /dev/null +++ b/vendors/ott/examples/tapl/record.ott @@ -0,0 +1,52 @@ +% The TAPL E-Rcd rule uses a slightly different indexing form, +% {li=vi ^{i IN 1..j-1}, lj=tj, lk=tk^{k IN j+1..n} +% which ott does not support, so that rule is slightly rephrased here. + +grammar +T {{ hol Typ }}, S, U :: Ty ::= {{ com types: }} + | { } :: :: Record {{ com type of records }} + +t :: Tm ::= {{ com terms: }} + | { } :: :: Record {{ com record }} + | t . l :: :: Proj {{ com projection }} + +v :: Va ::= {{ com values: }} + | { } :: :: Record {{ com record value }} + + +subrules + v <:: t + +defns +Jop :: '' ::= + +defn +t --> t' :: :: red :: E_ {{ com Evaluation }} by + +---------------------------------- :: ProjRcd +{ }.lj --> vj + +t1 --> t1' +-------------- :: Proj +t1.l --> t1'.l + +t --> t' +------------------------------------------------------------------------ :: Rcd +{ ,l=t,} --> { ,l=t',} + + + +defns +Jtype :: '' ::= + +defn +G |- t : T :: :: typing :: T_ {{ com Typing }} by + + +DISTINCT +----------------------------------------------------------- :: Rcd +G|- { }:{ } + +G|- t1:{ } +----------------------------------- :: Proj +G|- t1.lj : Tj diff --git a/vendors/ott/examples/tapl/record_with_explicit_types.ott b/vendors/ott/examples/tapl/record_with_explicit_types.ott new file mode 100644 index 000000000000..66006f0ee283 --- /dev/null +++ b/vendors/ott/examples/tapl/record_with_explicit_types.ott @@ -0,0 +1,66 @@ +% t involves a list type, T depends on t, and T also involves a list type +% t and v have mutually recursive is_foo functions +% there's a substitution + + +metavar termvar, x ::= + {{ isa string }} {{ coq nat }} {{ coq-equality }} {{ hol string }} + {{ lex alphanum }} {{ tex \mathsf{[[termvar]]} }} + + +grammar +T {{ hol Typ }}, S, U :: Ty ::= {{ com types: }} + | { } :: :: Record {{ com type of records }} + +t :: Tm ::= {{ com terms: }} + | x :: :: Var {{ com variable }} + | { } :: :: Record {{ com record }} + | t . l :: :: Proj {{ com projection }} + | value v :: :: Value {{ com value }} + +v :: Va ::= {{ com values: }} + | { } :: :: Record {{ com record value }} + + +subrules + v <:: t + +substitutions + single t x :: sub + +defns +Jop :: '' ::= + +defn +t --> t' :: :: red :: E_ {{ com Evaluation }} by + +---------------------------------- :: ProjRcd +{ }.lj --> vj + +t1 --> t1' +-------------- :: Proj +t1.l --> t1'.l + +t --> t' +------------------------------------------------------------------------ :: Rcd +{ ,l=t:T,} --> { ,l=t':T,} + + + +defns +Jtype :: '' ::= + +defn +G |- t : T :: :: typing :: T_ {{ com Typing }} by + + +----------------------------------------------------------- :: Rcd +G|- { }:{ } + +G|- t1:{ } +----------------------------------- :: Proj +G|- t1.lj : Tj + +G|- v:T +------------ :: Value +G|- value v : T diff --git a/vendors/ott/examples/tapl/seq.ott b/vendors/ott/examples/tapl/seq.ott new file mode 100644 index 000000000000..4958dc800257 --- /dev/null +++ b/vendors/ott/examples/tapl/seq.ott @@ -0,0 +1,29 @@ +grammar +t :: Tm ::= {{ com terms: }} + | t1 ; t2 :: :: Seq {{ com sequencing }} + + +defns +Jop :: '' ::= + +defn +t --> t' :: :: red :: E_ {{ com Evaluation }} by + +t1 --> t1' +---------------- :: Seq +t1;t2 --> t1';t2 + +-------------- :: SeqNext +unit;t2 --> t2 + + +defns +Jtype :: '' ::= + +defn +G |- t : T :: :: typing :: T_ {{ com Typing }} by + +G |- t1:Unit +G |- t2:T2 +---------------- :: Seq +G |- t1;t2 : T2 diff --git a/vendors/ott/examples/tapl/sub_arrow.ott b/vendors/ott/examples/tapl/sub_arrow.ott new file mode 100644 index 000000000000..cb6eb59ae16d --- /dev/null +++ b/vendors/ott/examples/tapl/sub_arrow.ott @@ -0,0 +1,27 @@ +defns +Jtype :: '' ::= + +defn +G |- t : T :: :: typing :: T_ {{ com Typing }} by + +G |- t:S +S<:T +---------- :: Sub +G |- t:T + + +defn +T1 <: T2 :: :: subtyping :: S_ {{ com Subtyping }} by + +------ :: Refl +S <: S + +S <: U +U <: T +------ :: Trans +S <: T + +T1 <: S1 +S2 <: T2 +---------------- :: Arrow +S1->S2 <: T1->T2 diff --git a/vendors/ott/examples/tapl/sub_record.ott b/vendors/ott/examples/tapl/sub_record.ott new file mode 100644 index 000000000000..0111a6c06db4 --- /dev/null +++ b/vendors/ott/examples/tapl/sub_record.ott @@ -0,0 +1,27 @@ +grammar +formula :: 'formula_' ::= + | T1 is a permutation of T2 :: :: perm {{ ich TODO }} + +defns +Jtype :: '' ::= + + + +defn +T1 <: T2 :: :: subtyping :: S_ {{ com Subtyping }} by + + + +-------------------- :: RcdWidth +{ , } <: { } + + +-------------------- :: RcdDepth +{ } <:{ } + + +{} is a permutation of {} +-------------------- :: RcdPerm +{} <: {} + + diff --git a/vendors/ott/examples/tapl/sum.ott b/vendors/ott/examples/tapl/sum.ott new file mode 100644 index 000000000000..cb56777ba074 --- /dev/null +++ b/vendors/ott/examples/tapl/sum.ott @@ -0,0 +1,65 @@ +% - we add binding in a case +% - the Case constructor and rule names have "Sm" appended to avoid a clash with variants + +grammar +T {{ hol Typ }}, S, U :: Ty ::= {{ com types: }} + | T1 + T2 :: :: Sum {{ com sum type }} + +t :: Tm ::= {{ com terms: }} + | inl t :: :: Inl {{ com tagging (left) }} + | inr t :: :: Inr {{ com tagging (right) }} + | case t of inl x1 => t1 | inr x2 => t2 :: :: CaseSm + (+ bind x1 in t1 +) (+ bind x2 in t2 +) {{ com case }} + +v :: Va ::= {{ com values: }} + | inl v :: :: Inl {{ com tagged value (left) }} + | inr v :: :: Inr {{ com tagged value (right) }} + + + + +defns +Jop :: '' ::= + +defn +t --> t' :: :: red :: E_ {{ com Evaluation }} by + +----------------------------------------------------------------- :: CaseInl +case ( inl v0 ) of inl x1=>t1 | inr x2=>t2 --> [x1 |-> v0]t1 + +----------------------------------------------------------------- :: CaseInr +case ( inr v0 ) of inl x1=>t1 | inr x2=>t2 --> [x2 |-> v0]t2 + +t0 --> t0' +-------------------------------------------------------------------------- :: CaseSm +case t0 of inl x1=>t1 | inr x2=>t2 --> case t0' of inl x1=>t1 | inr x2=>t2 + +t1 --> t1' +------------------ :: Inl +inl t1 --> inl t1' + +t1 --> t1' +------------------ :: Inr +inr t1 --> inr t1' + + + +defns +Jtype :: '' ::= + +defn +G |- t : T :: :: typing :: T_ {{ com Typing }} by + +G |- t1 : T1 +------------------ :: Inl +G|- inl t1 : T1+T2 + +G |- t1 : T2 +------------------ :: Inr +G|- inr t1 : T1+T2 + +G |- t0 : T1+T2 +G,x1:T1|- t1:T +G,x2:T2|- t2:T +------------------------------------------ :: CaseSm +G|- case t0 of inl x1=>t1 | inr x2=>t2 : T diff --git a/vendors/ott/examples/tapl/top.ott b/vendors/ott/examples/tapl/top.ott new file mode 100644 index 000000000000..79053959c736 --- /dev/null +++ b/vendors/ott/examples/tapl/top.ott @@ -0,0 +1,12 @@ +grammar +T {{ hol Typ }}, S, U :: Ty ::= {{ com types: }} + | Top :: :: Top {{ com maximum type }} + +defns +Jtype :: '' ::= + +defn +T1 <: T2 :: :: subtyping :: S_ {{ com Subtyping }} by + +--------- :: Top +S <: Top diff --git a/vendors/ott/examples/tapl/tuple.ott b/vendors/ott/examples/tapl/tuple.ott new file mode 100644 index 000000000000..b1aa8615b220 --- /dev/null +++ b/vendors/ott/examples/tapl/tuple.ott @@ -0,0 +1,52 @@ +% The TAPL E-Tuple rule uses a slightly different indexing form, +% {li=vi ^{i IN 1..j-1}, lj=tj, lk=tk^{k IN j+1..n} +% which ott does not support, so that rule is slightly rephrased here. + +grammar +T {{ hol Typ }}, S, U :: Ty ::= {{ com types: }} + | { } :: :: Tuple {{ com tuple type }} + +t :: Tm ::= {{ com terms: }} + | { } :: :: Tuple {{ com tuple }} + | t . i :: :: ProjTp {{ com projection }} + +v :: Va ::= {{ com values: }} + | { } :: :: Tuple {{ com tuple value }} + +subrules + v <:: t + +defns +Jop :: '' ::= + +defn +t --> t' :: :: red :: E_ {{ com Evaluation }} by + +j INDEXES +---------------------------------- :: ProjTuple +{ }.j --> vj + +t1 --> t1' +-------------- :: ProjTp +t1.i --> t1'.i + +t --> t' +------------------------------------------------------------------------ :: Tuple +{ ,t,} --> { ,t',} + + + +defns +Jtype :: '' ::= + +defn +G |- t : T :: :: typing :: T_ {{ com Typing }} by + + +----------------------------------------------------------- :: Tuple +G|- { }:{ } + +G|- t1:{ } +j INDEXES +----------------------------------- :: ProjTp +G|- t1.j : Tj diff --git a/vendors/ott/examples/tapl/tuples.ott b/vendors/ott/examples/tapl/tuples.ott new file mode 100644 index 000000000000..8b137891791f --- /dev/null +++ b/vendors/ott/examples/tapl/tuples.ott @@ -0,0 +1 @@ + diff --git a/vendors/ott/examples/tapl/unit.ott b/vendors/ott/examples/tapl/unit.ott new file mode 100644 index 000000000000..1503f5b2a76b --- /dev/null +++ b/vendors/ott/examples/tapl/unit.ott @@ -0,0 +1,23 @@ +% The TAPL text also introduces sugar +% | t1 ; t2 :: S :: [[ (\x:Unit.t2) t1 where x notin FV(t2) ]] + + +grammar +t :: Tm ::= {{ com terms: }} + | unit :: :: Unit {{ com constant [[unit]] }} + +v :: Va ::= {{ com values: }} + | unit :: :: Unit {{ com unit value }} + +T :: Ty ::= {{ com types: }} + | Unit :: :: Unit {{ com unit type }} + +defns +Jtype :: '' ::= + +defn +G |- t : T :: :: typing :: T_ {{ com Typing }} by + + +----------------- :: Unit +G |- unit : Unit diff --git a/vendors/ott/examples/tapl/variant.ott b/vendors/ott/examples/tapl/variant.ott new file mode 100644 index 000000000000..1cfc6b6966c1 --- /dev/null +++ b/vendors/ott/examples/tapl/variant.ott @@ -0,0 +1,58 @@ +% The TAPL variants, p136, don't introduce a new value form. Here we do + +% The case term from TAPL would read "case t of => ti // | // i IN 1 .. n />", but +% ott doesn't support the (+ bind xi in ti +) bindspec, so the auxiliary production C is used below. + +% In the E_Case rule the premise here is t-->t', not involving a subscripted t, +% to avoid clashing (The TAPL uses a t0-->t0' which here would be misinterpreted.). + +grammar +T {{ hol Typ }}, S, U :: Ty ::= {{ com types: }} + | < > :: :: Variant {{ com type of variants }} + +t :: Tm ::= {{ com terms: }} + | < l = t > as T :: :: Variant {{ com tagging }} + | case t of :: :: Case {{ com case }} + +C :: C ::= + | < l = x > => t :: :: Case (+ bind x in t +) + +v :: Va ::= {{ com values: }} + | < l = v > as T :: :: Variant {{ com tagged value }} + +defns +Jop :: '' ::= + +defn +t --> t' :: :: red :: E_ {{ com Evaluation }} by + +j INDEXES +--------------------------------------------------------------------- :: CaseVariant +case ( as T ) of => ti //i IN 1..n/> --> [xj |-> v]tj + +t --> t' +------------------------------------------------------------------------------------ :: Case +case t of => ti //i IN 1..n/> --> case t' of => ti //i IN 1..n/> + +ti --> ti' +------------------------------ :: Variant + as T --> as T + + + +defns +Jtype :: '' ::= + +defn +G |- t : T :: :: typing :: T_ {{ com Typing }} by + +G |- t : Tj +j INDEXES +-------------------------------------------------------------------------- :: Variant +G|- as < > : < > + +G |- t : < > + +DISTINCT +----------------------------------------------- :: Case +G|- case t of => ti //i IN 1..n/> : T diff --git a/vendors/ott/hol/Makefile b/vendors/ott/hol/Makefile new file mode 100644 index 000000000000..a3db82b7b193 --- /dev/null +++ b/vendors/ott/hol/Makefile @@ -0,0 +1,5 @@ +all: + Holmake + +clean: + rm -f *Theory.* *.ui *.uo diff --git a/vendors/ott/hol/ottLib.sig b/vendors/ott/hol/ottLib.sig new file mode 100644 index 000000000000..580d503992da --- /dev/null +++ b/vendors/ott/hol/ottLib.sig @@ -0,0 +1,10 @@ +signature ottLib = sig + type thm = Thm.thm; + type term = Term.term; + type 'a frag = 'a Portable.frag; + val ottDefine : string -> term frag list -> thm + val RULE_INDUCT_TAC : Thm.thm -> Thm.thm list -> (Term.term list * Tactic.tactic) list -> Tactic.tactic + val INDUCT_TAC : Thm.thm -> Thm.thm list -> (Term.term list * Tactic.tactic) list -> Tactic.tactic + val get_terms : Thm.thm -> Term.term list + val structural_cases : Thm.thm list -> int -> Term.term list list -> Thm.thm -> Thm.thm +end diff --git a/vendors/ott/hol/ottLib.sml b/vendors/ott/hol/ottLib.sml new file mode 100644 index 000000000000..2a52f408eec2 --- /dev/null +++ b/vendors/ott/hol/ottLib.sml @@ -0,0 +1,167 @@ +(**************************************************************************) +(* ottLib *) +(* *) +(* Scott Owens, Computer Laboratory, University of Cambridge *) +(* *) +(* Copyright 2006 *) +(* *) +(* Redistribution and use in source and binary forms, with or without *) +(* modification, are permitted provided that the following conditions *) +(* are met: *) +(* 1. Redistributions of source code must retain the above copyright *) +(* notice, this list of conditions and the following disclaimer. *) +(* 2. Redistributions in binary form must reproduce the above copyright *) +(* notice, this list of conditions and the following disclaimer in the *) +(* documentation and/or other materials provided with the distribution. *) +(* 3. The names of the authors may not be used to endorse or promote *) +(* products derived from this software without specific prior written *) +(* permission. *) +(* *) +(* THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS *) +(* OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED *) +(* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE *) +(* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY *) +(* DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL *) +(* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE *) +(* GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS *) +(* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER *) +(* IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR *) +(* OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN *) +(* IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. *) +(**************************************************************************) + +structure ottLib :> ottLib = struct + +infix THEN + +open numSyntax listSyntax pairSyntax listTheory HolKernel bossLib boolLib Defn; +open ottTheory; + +fun inst_filter_size tm = + case total (PART_MATCH (fst o dest_leq) filter_size) tm of + NONE => + if is_comb tm then + let val (f, args) = strip_comb tm in + inst_filter_size f @ List.concat (List.map inst_filter_size args) + end + else + [] + | SOME thm => [thm]; + +fun APPLY_FILTER_SIZE (assums, g) = + case inst_filter_size g of + [] => ALL_TAC (assums, g) + | l => (MAP_EVERY STRIP_ASSUME_TAC l) (assums, g); + +fun find_list t = + if is_var t then + t + else if is_map t then + find_list (snd (dest_map t)) + else + t; + +fun PAIR_CASES_TAC (a, g) = + case total dest_prod (type_of (fst (dest_forall g))) of + NONE => ALL_TAC (a, g) + | SOME _ => Cases (a, g); + + +fun MEM_IND_TAC mem = +let val (arg1, arg2) = dest_mem mem + val lst = find_list arg2 +in + PAT_ASSUM mem (fn ma => REPEAT (POP_ASSUM MP_TAC) THEN MP_TAC ma) THEN + SPEC_TAC (lst, genvar (type_of lst)) THEN + HO_MATCH_MP_TAC list_induction THEN STRIP_TAC THENL + [ALL_TAC, STRIP_TAC THEN STRIP_TAC THEN PAIR_CASES_TAC] THEN + SRW_TAC [] [] THEN + CONV_TAC TotalDefn.TC_SIMP_CONV THEN + SRW_TAC [] [] THEN + RES_TAC THEN + DECIDE_TAC THEN NO_TAC +end; + +fun ONE_TERM_TAC measure = + WF_REL_TAC `^measure` THEN + CONV_TAC TotalDefn.TC_SIMP_CONV THEN + SRW_TAC [] [] THEN + APPLY_FILTER_SIZE THEN + TRY (ASSUM_LIST (MAP_FIRST MEM_IND_TAC o List.filter is_mem o List.map concl)) + THEN + RES_TAC THEN DECIDE_TAC THEN NO_TAC; + +fun TERM_TAC defn = (MAP_FIRST ONE_TERM_TAC (TotalDefn.guessR defn)); + +fun ottDefine name tq = + let val defn = Hol_defn name tq in + if not (null (tcs_of defn)) then + fst (tstore_defn (defn, TERM_TAC defn)) + else + (save_defn defn; + LIST_CONJ (eqns_of defn)) + end; + +(* Adapted from THENL *) +fun mapshape [] _ _ = [] + | mapshape (n1::nums) (f1::funcs) args = + let val (f1_args,args') = split_after n1 args + in f1 f1_args :: mapshape nums funcs args' + end; + +fun mk_branch_name (consts, TAC) = +((fn (assums, g) => + let val (cn, goal_name) = (dest_comb o hd o strip_conj o fst o dest_imp o snd o strip_forall) g in + same_const ``clause_name`` cn andalso + List.exists (fn tm => term_eq goal_name tm) consts + end), + TAC); + +fun mk_branch (consts, TAC) = +((fn (assums, g) => List.exists (fn const => can (find_term (can (match_term const))) g) consts), + TAC); + +fun THENcases (rws:thm list) (tac1:tactic) (branches:((term list * term -> bool) * tactic) list) : tactic = +fn g => +let val tac2 = SIMP_TAC (srw_ss()) rws; + fun apply_branch subgoal = + case List.find (fn (pred, T) => pred subgoal) branches of + NONE => tac2 subgoal + | SOME (pred, T) => + (case (tac2 THEN T) subgoal of + ([], vf) => let val th = vf [] in ([], fn [] => th) end + | x => x); + val (gl, vf) = tac1 g; + val (G,V,lengths) = + itlist (fn goal => fn (G,V,lengths) => + let val (goals, vfun) = apply_branch goal in + (goals@G, vfun::V, length goals::lengths) + end) + gl + ([],[],[]); +in + case G of + [] => ([], let val th = vf (map (fn f => f[]) V) in fn [] => th end) + | _ => (G, (vf o mapshape lengths V)) +end +handle e as HOL_ERR _ => raise (wrap_exn "Tactical" "THENcases" e); + +fun RULE_INDUCT_TAC (ind:thm) (rws:thm list) (spec:(term list * tactic) list) : tactic = + THENcases rws (HO_MATCH_MP_TAC ind THEN REPEAT CONJ_TAC) (List.map mk_branch_name spec); + +fun INDUCT_TAC (ind:thm) (rws:thm list) (spec:(term list * tactic) list) : tactic = + THENcases rws (HO_MATCH_MP_TAC ind THEN REPEAT CONJ_TAC) (List.map mk_branch spec); + +fun get_terms f = + List.map (hd o snd o strip_comb o hd o snd o strip_comb o concl o SPEC_ALL) (CONJUNCTS f) + +fun structural_cases datatype_thms arg cases thm = + let fun helper (terms, thm) = + let val thm1 = LIST_CONJ (List.map (fn qt => (GEN_ALL o SPEC qt o funpow arg Q.ID_SPEC) thm) terms) + in SIMP_RULE bool_ss datatype_thms thm1 end + in + LIST_CONJ (ListPair.map helper (cases, CONJUNCTS thm)) + end; + + +end diff --git a/vendors/ott/hol/ottScript.sml b/vendors/ott/hol/ottScript.sml new file mode 100644 index 000000000000..3e4f684fce2b --- /dev/null +++ b/vendors/ott/hol/ottScript.sml @@ -0,0 +1,80 @@ +open HolKernel boolLib Parse bossLib pairTheory optionTheory stringTheory; + +val _ = new_theory "ott"; + +val list_minus_def = Define +`(list_minus [] ys = []) /\ + (list_minus (x::xs) ys = (if ~(MEM x ys) then x::(list_minus xs ys) else list_minus xs ys))`; + +val list_minus_thm = Q.store_thm ("list_minus_thm", +`!l x. MEM x (list_minus l l') = MEM x l /\ ~MEM x l'`, +Induct THEN RW_TAC list_ss [list_minus_def] THEN METIS_TAC []); + +val list_minus_append = Q.store_thm ("list_minus_append", +`!l1 l2 l3. list_minus (l1++l2) l3 = list_minus l1 l3 ++ list_minus l2 l3`, +Induct THEN RW_TAC list_ss [list_minus_def]); + +val list_assoc_def = Define +`(list_assoc x [] = NONE) /\ + (list_assoc x ((x',y')::xys) = (if x=x' then SOME y' else list_assoc x xys))`; + +val list_assoc_mem = Q.store_thm ("list_assoc_mem", +`!l x y. (list_assoc x l = SOME y) ==> MEM (x,y) l`, +Induct THEN FULL_SIMP_TAC list_ss [list_assoc_def] THEN Cases_on `h` THEN RW_TAC list_ss [list_assoc_def]); + +val list_assoc_not_mem = Q.store_thm ("list_assoc_not_mem", +`!l x y. (list_assoc x l = NONE) ==> ~MEM (x,y) l`, +Induct THEN FULL_SIMP_TAC list_ss [list_assoc_def] THEN Cases_on `h` THEN RW_TAC list_ss [list_assoc_def]); + +val list_assoc_split = Q.store_thm ("list_assoc_split", +`!l x y. (list_assoc x l = SOME y) = ?l1 l2. (l = l1++(x,y)::l2) /\ ~MEM x (MAP FST l1)`, +Induct THEN RW_TAC list_ss [list_assoc_def] THEN Cases_on `h` THEN RW_TAC list_ss [list_assoc_def] THEN +EQ_TAC THEN RW_TAC list_ss [] THENL +[MAP_EVERY Q.EXISTS_TAC [`[]`, `l`] THEN RW_TAC list_ss [], + Cases_on `l1` THEN FULL_SIMP_TAC list_ss [] THEN RW_TAC list_ss [] THEN FULL_SIMP_TAC list_ss [], + MAP_EVERY Q.EXISTS_TAC [`(q,r)::l1`, `l2`] THEN RW_TAC list_ss [], + Cases_on `l1` THEN FULL_SIMP_TAC list_ss [] THEN METIS_TAC []]); + +val list_assoc_append = Q.store_thm ("list_assoc_append", +`!l1 l2 x. list_assoc x (l1++l2) = + case list_assoc x l1 of + SOME y => SOME y + | NONE => list_assoc x l2`, +Induct THEN RW_TAC list_ss [list_assoc_def] THEN Cases_on `h` THEN RW_TAC list_ss [list_assoc_def]); + +val mem_list_assoc = Q.store_thm ("mem_list_assoc", +`!l x. MEM x (MAP FST l) ==> ?y. list_assoc x l = SOME y`, +Induct THEN RW_TAC list_ss [list_assoc_def] THEN Cases_on `h` THEN RW_TAC list_ss [list_assoc_def]); + +val not_mem_list_assoc = Q.store_thm ("not_mem_list_assoc", +`!l x. ~MEM x (MAP FST l) ==> (list_assoc x l = NONE)`, +Induct THEN RW_TAC list_ss [list_assoc_def] THEN Cases_on `h` THEN RW_TAC list_ss [list_assoc_def] THEN +METIS_TAC [FST]); + +val list_assoc_distinct_reverse = Q.store_thm ("list_assoc_distinct_reverse", +`!l. ALL_DISTINCT (MAP FST l) ==> !x. list_assoc x (REVERSE l) = list_assoc x l`, +Induct THEN RW_TAC list_ss [list_assoc_def, list_assoc_append] THEN Cases_on `h` THEN +RW_TAC list_ss [list_assoc_def] THEN FULL_SIMP_TAC list_ss [] THENL +[METIS_TAC [not_mem_list_assoc, option_case_def], + Cases_on `list_assoc x l` THEN RW_TAC list_ss []]); + +val list_assoc_map = Q.store_thm ("list_assoc_map", +`!l x f. (list_assoc x (MAP (\z. (FST z, f (SND z))) l) = OPTION_MAP f (list_assoc x l))`, +Induct THEN RW_TAC list_ss [list_assoc_def] THEN Cases_on `h` THEN RW_TAC list_ss [list_assoc_def] THEN +METIS_TAC [FST]); + +val mono_every_id_thm = Q.store_thm ("mono_every_id_thm", +`(!x. P x ==> Q x) ==> EVERY (\x. x) (MAP P l) ==> EVERY (\x. x) (MAP Q l)`, +Induct_on `l` THEN RW_TAC list_ss [] THEN METIS_TAC []); + +val _ = IndDefLib.export_mono "mono_every_id_thm" + +val filter_size = Q.store_thm ("filter_size", +`!l f size. list_size size (FILTER f l) <= list_size size l`, +Induct THEN RW_TAC list_ss [listTheory.list_size_def] THEN +Q.PAT_ASSUM `!f' size. g f' size` (STRIP_ASSUME_TAC o (Q.SPECL [`f`, `size`])) THEN +DECIDE_TAC); + +val clause_name = Define `clause_name (x:string) = T`; + +val _ = export_theory(); diff --git a/vendors/ott/menhir/menhir_library_extra.mly b/vendors/ott/menhir/menhir_library_extra.mly new file mode 100644 index 000000000000..4f15a5d63a27 --- /dev/null +++ b/vendors/ott/menhir/menhir_library_extra.mly @@ -0,0 +1,73 @@ +/**************************************************************************/ +/* */ +/* Menhir */ +/* */ +/* François Pottier, INRIA Paris-Rocquencourt */ +/* Yann Régis-Gianas, PPS, Université Paris Diderot */ +/* */ +/* Copyright 2005-2015 Institut National de Recherche en Informatique */ +/* et en Automatique. All rights reserved. This file is distributed */ +/* under the terms of the GNU Library General Public License, with the */ +/* special exception on linking described in file LICENSE. */ +/* */ +/**************************************************************************/ + +/* nonempty2 variants of the menhir standard library lists, Peter Sewell, 2017-05 */ + +%% + +(* [nonempty2_list(X)] recognizes a list of two or more [X]'s. It produces + a value of type ['a list] if [X] produces a value of type ['a]. The + front element of the list is the first element that was parsed. *) + +%public nonempty2_list(X): + x1 = X x2 = X + { [ x1 ; x2 ] } +| x = X; xs = nonempty2_list(X) + { x :: xs } + +(* [separated_nonempty2_list(separator, X)] recognizes list of + two or more [X]'s, separated with [separator]'s. It produces a value of type + ['a list] if [X] produces a value of type ['a]. The front element + of the list is the first element that was parsed. *) + +%public separated_nonempty2_list(separator, X): + x1 = X; separator; x2 = X + { [ x1; x2 ] } +| x = X; separator; xs = separated_nonempty2_list(separator, X) + { x :: xs } + + + +(* [tuple(X1, .... ,Xn)] recognizes the sequence [X1 X2]. It produces a value of + type ['a1 * .... * 'an] if each [Xi] produces values of type ['ai]. *) + +%public %inline tuple2(X1, X2): + x1 = X1; x2 = X2 + { (x1, x2) } + +%public %inline tuple3(X1, X2, X3): + x1 = X1; x2 = X2; x3 = X3 + { (x1, x2, x3) } + +%public %inline tuple4(X1, X2, X3, X4): + x1 = X1; x2 = X2; x3 = X3; x4 = X4 + { (x1, x2, x3, x4) } + +%public %inline tuple5(X1, X2, X3, X4, X5): + x1 = X1; x2 = X2; x3 = X3; x4 = X4; x5 = X5 + { (x1, x2, x3, x4, x5, x6) } + +%public %inline tuple6(X1, X2, X3, X4, X5, X6): + x1 = X1; x2 = X2; x3 = X3; x4 = X4; x5 = X5; x6 = X6 + { (x1, x2, x3, x4, x5, x6) } + +%public %inline tuple7(X1, X2, X3, X4, X5, X6, X7): + x1 = X1; x2 = X2; x3 = X3; x4 = X4; x5 = X5; x6 = X6; x7=X7 + { (x1, x2, x3, x4, x5, x6, x7) } + + +%% + + + diff --git a/vendors/ott/ocamlgraph-1.7.tar.gz b/vendors/ott/ocamlgraph-1.7.tar.gz new file mode 100644 index 0000000000000000000000000000000000000000..91269ff6051214e10ca070a409a2ef99333e5ded GIT binary patch literal 236906 zcmb2|=HR$`EX9|JIX^iuHz&O)u^>a&P|sYiB(aF$&EA(u(&n2qZ0e6LcPN=8_%eWJ z_N^SPQ$6C5-}c_?dum}Ee(_=MMBi1(lg@7N^pZOMy>kEYA6W-)af|ErP2M6rTVtB6H&rfH!m%hC_`pfQ(yM5<>I)C3LKmGLQ zZQHj=1)RHm>sIC;-#35W8vmJjOt@a>$o*Z3`{jR4E{xmhXVB61@&3P@dZqF|=MOzB zk3aAuzq&W+PksN#{^M`;lmBeroAjrC`A7TL?r-@Eb1&>a`|wo-(7q6S6tGc z@^1>!SGqs$|7`!Xdi%HKL0b2Pw|{YGs$RQuvu4dj?zV##Iow_Xe?R2B>0j?+F4cX# zf8iaag#N`BuUfpB>+kZj(ADJC*SBZg?yipK-~4#>zcc*p3?(=0`rAT3?q{ms@$*NG z%(2NCC2}3hC(UPi$Z!3q-uHK+fynX1e2K5k7L0GgGQYjE>2Z}QRTsB2;k&>4vBCw; z-;cCrb#1d3dAxvmN8jPiFIl>L1~$q5hmjQ;zkmKo zsCfP_=cI2;5w3Gslcd=1X6}E*&>Zz>`SbVl_Wt`gx8ldE`;V5l=ij%h`TFkuZf?$_vwr@~yuh^ba#sI? zaD#a)(;qopS=lk!gl|{zt0^rEM&Ev2lr*Tdp2e3KH__np`G(j(-&{N#?r0YpebC>y zYeq%VB@5OUlV4UyT)yBOW-)`W;E2E4JNe?%IkyP)Ch{FFXu%xR(A>gXS-X#;aWREHE_Rttcf7Qf>+G}R%&Zh;Xj3SA^x%4?K@NMwrzQLJ_tXZiew$n#^{{{`{?NkDslr@2 zPX8NJJaSzpZd1R-t6=d*EcM67wOa9w^Lc+iU-rvOW$C=K<%i8a9%l$)oYR*3LhRc% z>xoSHTu#|Mi!^&?PHZ^!?}Jyru#$ee)|*KcdmCQ1zi~6+Jz}t90h7YN8HWYRneJa& z@c;0FtLqm$E)X|K{F@{9VqW_6|EC@qy?MU&tiEOJ(c^6u62}EkWY3HICwb!j=FA)H z%YLe`9$9Oa<^NhjEKt5eey0@Mp;<@o-~4RdD&NrfG>7ZHTDU^({JkuFj1dmezxF;n zt(mIobLBh#LD8DI4}G2*=62N|armaTVbYC1j1ekJ{3DNxsp-x(EHfyezuKhjyffF1oW>a~+xI9qTd(wzPXDt$+EY#I7z3->Nw0$&f{Skay1Q6>t-HNl{l_OC zbU&DLZqJDM7anX=_g84z_xAocnIP!{|JGD_err4Qf0b{=qPaHJm9t`OmmBik+9^NZ z|J*OrY@@wj>{-^P&zYC=oPoWXOKDRJx8H92w+Hr2R@e~tGk$7N);~vG&%`N{&wOBC z6f^_D`(Fr+PCmy(A}n0Q+)Ttv9U4!FlOm| zY9I2@dIRs$gHgRktO*C!cUjzDUiDmhmF1ZuMbDSK?)g<`t&o%c`%#S8#7obbb)4-N zbZ9ngYAgOIoe~)`QL>9mHSOC^o-P%S56`^or<|VNrn_)T+DV?iDW9)PUS{mm{O4>x z`AlQZff`0{!8J!0z5f3A!7raR5!ZFu2;Sh6sqCsoRq-SjhZR!>< ziE1P_#~nF3V?#%`>ZBci1YgbX%$v0Oor`ys%eF1&mq{%xxA9m}q%Omrd!sgN$;%_U zV%C>rL_Rm(*OxaxT4=CRHvH82IJ3l!1*w+4{Cm$=e%sXcYvN3~RkleDnG+^F3AmH! zHBW!ax%-np_iVbNKYQv0NM{ z*;H|{lTKSiD#!1x$5FTC%MU5)oZA>H`|askzYETXz4_GzJ}%JIiQLq)nYr;X%S^|U zKZR5N9+AlQU#oWQYY>ytm6DQUGZsg%-dM$vWAP{NLQ~}&t(rjkL zMy#C@(NyRyV(y$NZk~PG`OcLl3CZ4OKL+b<5=Xp_So6%#Zer1%8Lc)$tT%Z}a3Yg& z&rGj;28O&(iCQ1coF~}!Zn}5-^~BkwH$>X~`}lO<`uJ}#f1e%nbZN=Y*i~<;$~}&5 zNZxi&uct}dQraXSG@v%i_j*`y>&2+g*{j~Rty~+l=~f;q%j1HnVRx-Q-)`Q>QWMD}H{S*jzJf>b_Q0#S@orDCjH?kw19WWwYilQLW;l zRWI#)xR1ULif!DqJ8kho*Dc2*t^_yp^OVj$e4i_bhe21s%yHJC6DQ_MTszXWsAR%X z*6q!US@n)`vboo5>U_SjP*g?I$?;qwr*8i9ReCvfuYadA&U!Mbt7q}fKP$SX%065r zGUG~~xXSd^S3E3^Pv}_1pUZYHe9au^>iZKynxYZF;K-K_y{gYPvihD&em5yZ{j*hC?&%HP z#SOQ(ZqKPZ|I&cdK4h8f&eAhhQRc#`6E%Yb+X8buSEMwk#^!l$kZNOG9c@%}?G>Z< zdbZUaPbI(3dlD|Bxq6$U$^LC?{Fd$zdvQnS_oJt~l&TXS?6?%Z%wwnDCG!(86B2*t zYaZ`fd_hA&wOr@x<5i2c&OPT^s@{{rv>?T0$-H#*dAE-R-wB>FbHOr)qW8K^QUwIFob4)rgbYa=%oa&3Q5FVbL~{#I|h zM*6d71{!BxpN{(5hJDsP4D>3^Xq=NTi!&6Jh2>sxb|5ZJHptcQzpi9*>Z*{XWj{&7u31J z`^f3=0-=h{XSCKvZh0NPMC;w8{;SM!!l&-cP(0zr+E#G(?SZ;cg4=MSU4$v@~<g?0VH)2f|2XLOmrDa%egUhJ0kGH&apU#8*DQ@G+aew7_{O)b?e;Z*%{>#ff6 zX;HC3S3-EdX}cY7xwz*7OVrxgYZaXD`YAS8ZtrfmI?eIGrCwpFudJ^(i?6e*E}ymG z?oFH88CG$gT1V%6OMQ8iQ*Q3dgHgWz^SISkntOBU9n(7N{`1uq#$61@a~6~@P26vN zeb;gsEt@5CW`ulm2~wZ>HiKi;1Cp1^?IlI3fU4!Q&=*zS^iCmzu69y znMsu=v0Rwfcl?EvTla)j@v3!Am7WeyT$>AuRNXFr)aYtn)jF~DOr(kB_Kl1REC)V0 z`^?)K{BLrHi0;c+|0xqS?UucoAwMa~voGuA)+Z~9q8Pd8&Nu`v(xIGCg;@+{3mvnL|uyPv+gS1n59%c z-<@|`?}5EiOh4rdfE>po+|Pkejb1#Ok@2QzZHnh@DJS6@f68{htg4I!Yo~QF{HNO{~vX-7HchcZxc#6x+ zXtz@b{i7UI-W;A*t@A79YtH+i+u7W%%eL&=sO#qyw{-R5li6o0tmmG7vZXP%cUAs` zuVIaK@soFHZr!*nHhSxAp(*yubzYi8u-)NX;FG$4i`nf7S_bQ@mwoSgsmuGX!b-~Z zMG1#iRe|NJ#bOOy997(h;!6xw+j(vB!Epfcy9(pAGde%}ed#=cYgBCw(AJ0m+`CKP{e9x5GcVGRh zDt|O1JTEkHe{J-+O2b>>!g5th_Qc-yeINGs%c)DN0%-rPLH;_$J3uU4L({`gqpHo?PU91pe58caFHe(2ruy&_*@p7V!Z{5ExhgI3;A zOJ5ToPu5+DyW=ZPo|?MU&-C4qjV^!wzOVXMeQJsR(K}ktCAAlpcKa!t3F~KXj=xo! zlKEiT!hhXm3X!{}PB{tWi4y`{DtSu83aZGUO!s$mW)ye}( z^$Qd^-Bz4Fx@6r(%k&$4Y%88GbmdUX*AMcVe@8!h*;=Dn%8ZlN6|Yx%$2oJw>wC?G zyHgk2{SsxUnWW8mTzu-jC9(FbCx0ATqEH*CXZUm89k-&A$0xZaHODL!o}|pYW0H(F zvw7VOwjEEMa{ccuO;kIOx-)EfXjD^O^3-cT;?!9dzTTL_>*qAZ^g^VXDu?ja$#Qoi zw@&|Le@-xVr`3ut`G@XqSluFL7R=|@S|9xI{*xc(cc<;ET^{G>t^70fw^eG%V?En> zVYiD*UMNgGtul8}(Vp5PJhqFHveGWzYdvuP*0$CKvBk$96}@_!cV^1`3%T#lNxVNb zhcA6IW4rCHjm0o6xfVTFj87_l)#-aq zs}D21-&^zga8s9eq+*OW(@eg1hr$xfe)OqLdwXj8E=EP>ntjV3B&|MV`oVwm*Ew-B z(!$;zzmv8uadCvs!gpty3cG#NZ<_COXg*?e=x0-D`zhWR^Tp21%s3-@?z;QoeXr+c z=6c--ea89x_3h9PDt`r!?b-PE=BdXDa#wZAElYRzBxn72xv6GB;?()#SNeU_J?(F< zd3;b^(f#1Y%{_rmzwSP>y78)5c-}Kl``Fr`jIN0GSs5l?X|I!O&uuaL^>T*xo1YE8 z7F8#`&RpM764(5x=+KT7)9E%lPp%XGP#D`)(5L%WY~_q{zd5d#a<+Gh)D}D6UNIq1 zJ1715>rYm8eo?LQb>_RDX*}P=8hQ5W$^RF4rj+lWVzV%pJLmPu%jM=tE5+N|1%7>1 zOFy>kb6KWNdHv_(rp&T$g4PO`{LQR)nz7a(zn6DT*!5%m(-wcJ{(JgPW8~@B57becHwTYIidzP~_IKJ?kQgOjFj(muKS2d87@<9|1c zKYz3KkdNxFd1tlQEw-k^q0;cytK=D4D{A+?+?MgG?W*81mG$bHEd7V$-o7YXcY4N+ zy+()m9xh|H=axNe`93ai(+ZOZx;k@rty{c4EY-U0)#Z7gY(GxR=e}|9oyL|upAOlq zy;&|KqkZI1LdN^E4@H*#Ybe+BxnXEoe)(Iw3xoFYTZj2r-hSKU8xYx-el;(>XoZwazn^Ds~=C*+h>!L+++6E3Q*=Cr=}E=*xJi}mBHvrfO8_t!nQSvdq{e9<2i`$+|7hSsN{pl1;Xb-l}7d+elKji+c&)bCG+rO>qz5D3zax^sc zUcFGfeS7M)HAz=ze#nYzPOsU^I61E3_Sv<2pOwvRI&`_kW{*tg`n%WX&q+7!`NEw|tI);R548twPfIaudw!imq}?=M6j zDN1qKaBBL5d0s)w`%;TiFVL=h5~I1;`-=P4E4Bu^rq0>7rX}_4`JklR>x*>z zjaP3j(|eIzrawP>%l!2%+rA|Iso(Ov`a?p${@aM@H~Ze)_`K3Pye!@z^Zv`CLz5CG zgm=Dtl=9T$o5q*U;6J9#;|=_D8t1! zKF1PSo8N?eQCRl7?M3;@@6N6@?=C+s+t=}zQTpST-OioIU9So|YH8{3`+xJO`j&tN zU*~+Yzk1@+e=R3z6WjTo=L?dYUwu6l@#8P|f2}b6FwdF^wQ48&CAM>@h=eqrJND_X zpLI!~lHWv)Wb02m7tDC-;PGd-Cx2~dgQ37FYtBF7H8#R4jr-CP+2?a+sQ-G(Vy01& zB~{zMH)X=n5T6~A1_36$o8z;7rCh!cczpJ%tu0~QXZIM^nYy15TNRq_BV$`Bx953V z_NE7a*Z%l?{O9C_|F{3HlWBi@KJEYAudk{zf9LPL@SpqdemL=8>ev3rqaJ_j7i|4s z<$UG6x$XLwx!kH>bl=)XJ1(8CQ@$kV24}kB+{|K*;0r9(mln1ZHD9|~A@$Gb%(*nt zt*#q=jky`*zr5`IxZr;7BjLI?jQLYHm!4A=>v`%P;JPZwG{Di=saf;YEnZe7v3i;VFBB-Q!!VIV+<@ zc9sNJM6Ox3;LJl)|1XdCN$8!-t=oV96GPJ)*SAd$Y!e?=ZjCxCd`;K?txU7Z>eH*P zc=>OgY^ufgQQUBsipk-$f3G#?TdG+8_B&?5+wh^oc*4H^Uo7Dp_i6|0c*#h%PhIN8 zn3v4rmn!LNc}4TvtC`zHat+P4%$+eIO-|+P!f;DNKfRY*=8K#-y|1+fWdQ~oQ(?h}wtc^XjjpIJrdecI%2)4BLl*B_d=^la}u)t6Ha zhIevQ<+m8JM2N8;zvrMHl{IyO_L1420*~JME3I)pyz$eV1tQWf?H~X9Z#?(^+qX;4 z{onTL=)e6p{)_+qpY%We&HwJd|IdE=zwjx;Hs|N{)`xCqy~{D*zU|Yw|9y)c7dWig zyv63V!y%gu7witSYpADPuRXeb>9pr# z5&rvrZOcsyg)V8UzRj>mk*_}UgZ0ubA-)COp?Dkh{ZVFoMJ(^uJXWj3!>}zjKT~jyzU`=Op{PKeW!3!$vCB8W{ zIaCI=9a+I_`;D{0;#zgCK;+^=h4pNX?;#Qu< z*}Xcr@3Y+=r!x%})0fvcKkKqjZCk0NIM;#M?9=RfpSFDWD||F>$+n9uhj~uLNKcj# zOJ`orer$TP<045;>&wavv4`4AKTMl@^-5Cq)VzsZdbdUPd0TfS)g5ZrTd6Vcz{4)L zny_9&ON)Ty}0{sOrQJp9UDK*HJ*7(vVZQ=6)opv{MgeET5t<5NYtMC`p&B7ufKWp z?fJFxPRQRz`+pNct!1_y*R{U9c4?6Oe*1MheRoB!oVB3W_tKZcU4DI`{9F93-k+!m z4|Xk@@IFxK(2^IcHBJZ`ER&l0H|3$);~75gE&}{v>n88CQSnpO>Ry?fTC26RsWP5x zmsvB%%Oz4tn(JO1w$W+hsakpJlm2#=&8t`g)GQu|?Jw=ljhQy7@w9T4xo@e!&j$`y zzPGxD?de`8%=Ur1)05q#OV4Bx`=d}3o{&i?87->8D&2A&zWS~vmc<;-tF8Yqh=)Gb z`InfqQ~KQU>(@&-YpRRV5^S~U?N8;8v*E9onogOp`I<`B!(W_7XYh$uPCM5d z7LpOCC@kQveg9C{!dG947woopaBuBeLzC{{1eLXYJbyf;e@?tqD7x&xf((O2;wu;r z<(s^bd20J+a@%IVrG{LFCcDlV^2yqyX!mgaWyq1pTA7lxV#@oIt_}}QrRiI`uw5~2 z6m6~XzIjXLk@sQtEXI|VuP6AdIkE0@REzZ+J>BfLCDj~(ZPhoX_&>b3Wy3VbE$0@f zvWraGtS$9m)+z-?Bk#mjd(X@?{k~V}XaD34@zsy~|9rO!)7^i5t?R;Q^)J*TP)B^N;S!Cq8NxAQhSN+G%O^Y$<_^7hNbb>O&R^MK z{DR*niRR3CtH!=4X1x?+#>R=tA?-}@^K}k~X|8+WsU}nC-X>q?;k!J(MK`Gd7r7d*tZ~=e_Ekdb;KL1y(EWz)-76@7ZHhxJ6})kMS}7P>*$+ zkt7|$H@7eCg|NZx3IAlW)qYuU82_Hg$+M?Vzxd|K8=hwtR6PlGnDnNpZn8XM-BW$h z&V#LLj7zV4_0Rnq^5oHS!_(qVzFt{yT;YmSiQ+zCUhgv!k_WzfUg+uhY+t?1YdTNz zg;ggdW^YXiu+J_FUnAe1HLGa%`HKnG4SzL1@xK4|wyl4LWoWd!pSRmA$%+Z=vzG|y z=31!VDepH-i3l=We=~ox&E~Yt+WL~e`VFOT-hLh^^4PC>!P6yG>uc)j<%*9of2?Bp zG@(8*K&R8jcfJL`z|H@L{-@*Fx9nNTvw4x4^ZSF_Tu%DSa-KSJWpj;lL=BV9u1zY| zxx4=v=(Z@>@sOz|OWsHAPWpGt-5FKANnEPszH=5vCw3b#Hajqsf2OJ~*as zs>(Xczh~{TP>WCgECtRNJN4QOR@(ev>Uv=NQG{9fTZNv_r3D@mO-o#_e0AOuA9-|2 z^>UAlh3l1OXg^lq6s(NST6jrXfAuHx#4uZ)v&ZsTg;@^DrF6`!n{e$APrSylf0O&= zbdDC8oU9Z%-g(5)-A_w1`AwhV*-X^~HGNuppPgA>RQVuY=)q~pwt!>$GLLI=eRp3x z`O@ux#+e&Fe;iCJB%Ndv)nadM*p+wq*b<$>skIaK7i3&_T4c-fSfk@ZL@(=vnz$-o z54+q&aaVG>*1veZZ;erpUQ1qccXY4WOoLBryS$|pnHt_txU}wpL(Ng+R;v=RFB0nB z$GGBonz@(Go90-@TT{4S>GqNXmB}AZ?_1Xz-9CZ!vjIo-^Yn{9Y-U~B>=E^)|JcEv zcb`31a7~+2xAjx_{*Zvn`txH>b+#AFvgI~7o!atMdEYdt1y4oT6IyatNb+oMS=1J{ zz%tM*IOx|^*A0wka^=~s=j@5xJ!xCatOs0<(**Z)UKLqr%T?Vusi{*mf#FohhOUOy zOx7*Q9Wz_(Zy9tH>ddpWde{Ip`GOLa1U*SDT@qN7H)84BF zI|U@#^II>^+M3>~YxC#X-iM;+qixl~t9)8A=lpwNdq*^&BiJ!1K8W$zZng79UWH{h z7W!S1{=U90a8~4TBZVDBySFS;`L1zAN?YTkM>v;CzGn0<#nPze#)&M`xj3&HF?TIb zm#T@)+tm0^b9!kMkA=egLyoJDhArMEzk2GaMUmSkv+wd+uk!rW)2DG$=j=PI#d&v! zR^36l&k-jS4Xsx*S9gb8zAdLt)de%SeW)M9fY4xK=~`SN@_c2c~PS z{(P7#c&;@Ux7pdLDw?0ljCEvIPx6uKv})g_TFjKCWqT_i>V`^O>clGXlhHNSGW$N> z*1E=cW_89P29pdEr}ASLSCkg^x$7xk`Q|k(bjf)(K}+?z#m0uZd)hs(%ral(SnP6Fe-~r zT~zL=zvD~h*Us-ZpB2q?VdS+^O>YpI?H|(c%TMjGv*ef1r!&8QVEO(}oA+7u8|^%< z%)=Tp>+d+(b4ZzR<@^%$Iy*TyL7F96k(Dz=_-nw|Nav7mnpGuEw^ukE$oxHbCH`)Ep^ZfvS)=}}+LeGioEIrh4p)@dx9{$us7 z?TZ&I?Y>l$VmR&GhOibDA)e(v~lB~k7=_PzkHRu zP5JEP$LCJIdMKRvbaQ;y9BW21A>#vS^CtN+X{bzhHEo-aaKojvKYFU?^o4SvC#?i0 z$eN2WpIMxEq*N$uLPYwvtA`vb&b~fiuw%=!Nq4#3EJ{r*!@VEAw=H-u zy>P>%(?%&BD_e;VXO=J3Yog=ih-*=+W#K-93za^+XY z`8vAHb0oU@vvh07r`@2a}`6gBsV7}eJpqOUVY=zV}-EOn@!rSUQJ4_FBMU~*2MJY z=B$w24AM=@p*3pF6g`^v>@(?#IgHEgl)N`k#WaY`y7DIiJ#JAXPDQwpPUwR z=jn_dkv0T~;Vvc&zV&3%6|VM&q_~8>DSs`bk}zWceeu?`_n!`##18 z*K;nPnQFZzCTUirjmG&UTeDvrd1b)2df#)k>m1S7CL~79T{}tKLB^sfvq*3y*M^lc z?9BqXr)t_yKC8%5c({Mn3#UC(GiE&hCG#xg(4n16Og!J*RX=6oB*c4K=Gvy5&yyz^ z`}*ZLA6dzj%eCvYhD7X|p5et%XLp<4O8TS+T|Z^5!3ZRh`=(kh#Dm&da5 ziRq_(({6?>@>`@Dd_K!R=&9=c$-%$XTW)X{a6h@=5MNqsbZ2(nv#arSb&i@!Mgq25 znxi;ZA6##k(rWM2r_R6QOEAx_NuOWoCwYtYEuQ|))$jJ}ryFy2q*VP}(XBpX!)G<| zJyL(3q<4Sq4iLIJ??=L(_MZ#%=dmnawu9qKp6bJSiXU9rMA#Mt)LU$w@4a>$39oj@ygRC>PqwA^g}gXQ#S#>+OqE)@@8M^iTCD7diLa@rtW@&}=`y?5OhV zC*rf-EVfyGx2XC|>o><{cdhG5MY_86Kd!BQhi3=>(Ce>fN zmU{ebtOkss7e{P1pX3txF%U0%r^_D*eOOKT_|N3*hj~=KXvDT! z$j&gEnP|Xl+fXX~L`cVRnjl-B@X`|t_8#kX`MIdt<2C=Aw4>`(^?JX5W{mQa?n--O z)e?Ee^vPMB#Ea`yCNk>2{#zp2$+1{`=h|P7InNblz56gp-beHG^sA=Te&-HvJUX|{ zd~1nO-*r6_%uaqhC`BF?@{Q@<9N z{l3{Y`o&7K-gpsBsb7~??y)mv2svd$hp`Du-t-M<}GTKXHp#Kjiy zecSUcBstSsCFMBd-fJ#jr{v4bto|8n@o;YZwKsj6k67r(l>IyOZT|=38~#3%1RCZLOK%uF6Fdm>!@z2MZ>H#4qT zEVnqf{$%QL%ePGnn%_$}Jy5Z^Zt?o(iscKx^eY#H9l6I^+$A{i@EZa;|F(qK#*G%?sPJ*n@#(Me>6SyH6dkaNI7v&C-fjPfp}aYDTEV?nhRF z(zlmni2sW;;VwFFwx#EU^^Fd8`YAj+ec@vUlcf!L@+m8`GJAEe&p2V{<{;{; z%(YXt`JM4j4u|fK9&#%j5>K5F?-p*h?3hq|tvq78l$)B6Tk&f45At9L;Y)HG(C zQ*m-+-(2wXIm6@5b7n7B=4@&D^|$ar`MM=5?IU}g=lA@a^TK(N;=V^W1eadAWgpyj zaYF1Jhv&zmj|N12&bweJwAr9lwpi-M@M7uJ6(M``Yj7MZe8I z^e^~EJ=bsl#Q!_5{r3N+m1fWQ_Nuuw@55a4?b2s|k2nVbCXNrkF;-I zvP(6-W7Pg^$AN^%THYD!6t}MayW~ChBV+Ez6VB(J)!r|1?z!Z#%2cUyT9+hUt!J<3 znDoT`=$0GmEfX|iT0TDgm2|@67N1SngU#Hs1)bY=w_H5BPnhd$LW)K};Q5sGk?zMg z9sI-)?=|iCg;m1m-gkSsvf52vr*ok%xRJ^F)$|>#VdZTJX>A9%PPOh|eL~Vg$=OuN zcwur#-O@iNL#Dqh7gjs8&$3Eh+fGU5^)YiuissD!+2Heqo1c{h9AxnU#@%B%=$r^k;U?vhMd!PF5%~MtvM*^s27mr z6nNTTSLJ5Qhu>RNe+f$)?z)un`06SpzsMPZ30bN^L2`oJ8zwuhYZo%A&U`t+R_j}L zli!vjZ0%a7q*`Ci3Y>6oU(wTze-&3uSk<@Z(ALu`B?}&{Ec-q&{f_Kl%9WtR;`?b41_Qi~io9^gsN~|E|CB8~^YA`0soj zQ^ibKh1U8RJ&P09*Qc`jZ%a@!@A`a>_xQo}mjmotiXIpL)X#X|SzC9CJ^0gxu5%Gj z^?Ll$CnjmcKdL;Ua-3VqpiM%Lsxt_c-5)q zg5}~Z$M_SDNL*^%eW|PubKDAKF{6o>9!kk7d9{MJ)u7T!|Hvf)Uw6dyXwFEjaPs1`?6w` ztey9t_G9n-vi@)19eQ8$Tm8|0>u>yr#n`%y|2KyjW`ExP;%mC_?~TG5*Y!TKNPMj4 zUq1PB?~Rt*%CX%hSO5R6myc_^*f2Np{PMqbdp0Vb(vP#X6Wjgu?kbC8)z9}P?D=UY z@%?XHXa&EViB_ng)YT*Ru06Xq?@RdN=aRQ>7%(yI%~@dTTXQWjV_uc@ydTa2)v_<| zb$wJ>-NS#bdGfu;>?_~f8CMilO+UpSzLR}czr20f_Nj|cRCI2;ExsTOZ`ik zQ}27{Z9QDLTmH=Yhhba$^;do^_scPConf~)M`>RbbI$as5i?AgDr zgDYA$Jf56?KOlL_OqQGWQm%#qE*oZ>+!Fp)y1;pj(`P2LNq-sSIa+xAdM`|v_$g7G zGg>CbW7(5um40)DRUs%TFt1K1YHvlawfxZ!zn@J_ zHeCH_nb>x}fc4_6hW>XoS#txzUwoZ?>j#H}aQ7_-3zIc>xX)Lt>^NV`vo8Ouv);T5 zLRLKL4DHUhv?k4dVew*Cfy9*LR;ir%%v&6+uStD)vVe!n;ROHslkAouI;Vx~!p|zo zuH>zJ@OO3v%W41LF@>jXf381t_?On{{miXRN^2I$X57(B^(%6&SE`sZ=h38!BT_ED zGh>4K3%7sR=FDxZ^TqqxX1B`+AFMj6e75eI%^~(#x4&Oq%)e`eoZ+IaJi8X{Ufdn} zZD!t&bK5gT_)AyrUD$WIP~7*O(!rz4ZZz*-m^t?W`?TvVa~>;Cx^hj%-!4u0`5({i z@_l}}cUz~--ppYkwAlN|qq}AwkL{LyCYvSlibG**!@*Wpq5jY9($^Y`8~WF=n7-O9 zyM}G@ZOM~U_B~8FaqE75msx-9ZIzsy6H9t|=Ss{_S)`%D`+ec0ugV+hJSLd(}nz6SzM;JNJxnR37ue7>0{;+c70tY4i?oG3Jc8k^+dY`plKHntw(3K;NLPvfq ztSI{N;<$2nK~KZd-(7Nzb+RUL?OV$ZmA}k-Mq%4m3h z#C-1j_Sau-i0km1{#o&&D(KC$<)JZ63G#;PR2cUhs&MB?)~YSx_+9iodcD%GlPr7k zou+VB>Yk|(+P?BWW7cYOlZA&jU$}Vu%F>yfdo}wFH%hJSxFTZJ!DJJeY`FM_VOZ09 zN3K3?yNc&2CM9jZnbz%JYAoe1Ni>$Pt4KA^{-F3@W<*G)_eiyuG-Ltok&!=oP z)?a*UrsF4`DC^A=a!zFR_UxN0sd9e7*3E9aZiTtsKgTmEo%h$wHEvthX-BE6b+Fe< zPxZRyeT+Be)Cb<=nhTSsnN1PCrlKI&qT}ms^doBx*D=#e2X`1q?-i3?k-Si0;r5=b zLS;RLi|$oEdz-B4U+^`@(QSU#Zlk2LV*Jk{UFW>5SeDdsfFr1G>6KL$ufu&jS!J7( zFAH60FZ#it{Eg$Rz6djSR?nt;&r~|L$ZU^4vOVcEU-I++i{Ed&uQs<87P3X34l`3247Pj!8ThzBDT`5z3s>W)>uF4f{>J!LiJ-0pn z`&LKxOJA4Vx$aq&q$TPjkoa|p+Q(55@$yHZoc=0~` z&->NovBbsA=H62K-~Rlu_EM5OH*e_Vtfep9FM9Ae>?&)xC*0Gw;_q&CiQ1%|gGQ0B zkJmgun9Z)bxjseb+LKkr2IqIrTAIr6`Z6eY2!pxU9mY(X}=As{34>$mmLc*UY+o9ny9~6XKMLPt1SiA`xn&9 ztTmGG@+$JobeGs9aeB*{7kWFtt>k;Nzvi0klv0(+lMef4tE;_t(lmLotjBidma7K^ zBF@K{Syim#NoaOHtYWpm@yf&9XMXz`CEuGddw1&dPZPYY9Yf##SzV>Se%|M>#WGb{ zGY+@?+m;$H^g8Qbi&$cN^4~0r{oAy7b}ZGq^?~`VTb{aP3*U(ex__c)iT2ImGmVfs z6;M+@VV0(j@j6pq9?rX+PPx-h#)`3RonxGz@H(|)>WatOlP0eCBpaKRL`S~a65Ec$)( z!;bX<&!R*7FYUOpJtoV0T2_Wf^d_D_pTMJAzOQvP=RG-j!)q?}$o@+vVe?wzo`2i7 zHE7!z4T)W=|GgC9U8z_dv;Eid%O+vGt8M+AgWgtds*etT zn;o+%@z(EaUJJjeJm0eE-0dqbeSa23?PU@S-Zv+7{fB>VpSpg1wP=x_T){KL=dpg@ zkBa{JnpJwzs%cXC1RHPlc!y7|UdR5|3w({TeSILAQ|C)2^Az3b`&VAw9r|Z^(Al4U zw~v>muGuk%=~08m1I`M?DAn6~2J34}nO2;SKlfol@*e(2y!YpJsLxHXNh?S$Uh!~V z?o@sCtE)XzS-t!l%07r|H7#hW-`6_-18>8UmpbmO4aqk(ryb3|5b!R5ktw3AE%l?c z!er~Z29;@h4{Z9uD{w9KdEcv3f3KTdGo3E^(sHq#<0@T=-%mI0;ZwhnXSAilsar(w zV3eo!%c~KsMw_Q4?z{6jxZ(Zfp2epphy?a^t38|_Vc>uAc>f%WTNg!2mKyg=x^}SK z=I=L`to1KC+P+SemfG3b>YP|P&(`_8aWr#c!h4xl1 zCPm?NtHLxP{gOvVzp5|l?Oiv=A#;)RrD+Ybld_FZe_og->RY7oDgDF$|2iM-u?T2>;L+P|KorB7ytLa_5Xj~zyE)J`(8Wm(^s}LReS#I-Fp4by63U~>Xfo~ z`}u5T{aF$%bi`@?pZw4(mi<+3{#)IOuEt3}*jD!Vt?BED44yrwe{rUN_3OD) z+^@#3e#{l$J&j+j?2@jh!jsaTer3K?&MZf1R@dLFdJnb4%Udg6xGH$;uD$5@Ggoh9 z-*wo)nfPn&r{a>|^-TL;Ui5t2*8Ond$=7pNN3y)IN>QouY1TStJ!9vldG?+cjAOgs zFmyh6c1<=`Ed5U z^{MMZ0Y_X5|NXGNrnKS4e-o|v)qA=#Wcw^umZ{=aA6~T;uHQWG{R456Q#M0ve)Cv(5++^BtbTla3>pk4d$_y3Hd?C}57Z~U*e-u-p$k$?5e zH|~xGtuL$J_+S6qfAFHS^*{dImX_Z(CwUT&f874$cP}nUe^AT0Jvrmjr{oKaCuCW* zw^+@&a>#nS?j8~ExQ0vea_hDCaOi#1n|@B7ZNu|tht-N|I;OlAKDO!UzeHn}+8AY% z59RhdTINsYc>m@5d9Pm+3tXfh3jbQ0U~{beS^b7R!tHGAEruLXf8LlYET4Pp!_Dlb zuxHx;w?@b|IbJq(T6*%Y=pCjKmhw)A_4!t>lOh7k_a!Xni+I2%!+&Z)zT^_7qw#_q zvO6Yhh**4DplD^3*2JJ|?+!oW-n78=eYGq{jh^JMFwuW0M#~z)L}h1%Z@b5>rmOdK z*Ni`EKjzKt2)y5?`LvRK{eo!D^%cj{mfFldut~9AyR>gbfBKSshvn5KyuTH`XC3#L z_KEv-p=R9@?*4~Ax=OW|ET3We>c`_iUgnaoe>Xd{@-4T$Tv_7y{+mM1-=0Yek}||S zSZ+FXsMvf7wal7T=5)5Cy4`z=d+GE%{%^XX63;@GG_>E?Vi&a~e#^G_gK~ipm4DlU zZffcM-=ND-E-h;v+4|2-QER@@<%9qDj?7N5`J8-X`Ek?86IWbYyg5%Cn7w7$o+yYxppv+NCH$mxnA139ebc-wy)48E*+NyJtc~j++;~PJ$ zd7br^W82lYoW@bJ7T(BSeOt-yTV=$>|Kjd5G9T}F9=X)Wxj{X8s>iv^8D2VhH#N6; zUEWx;@=VsW#KKQD2}KdQw-}5c%3A#1G^J|EUB1Y?aE+baalcrbtyxmA?S*JrlmTttXZ}EaNpyp^KX`~ez;@G z);G@s4!A{Zo4BNb*UFXgbf9IsgbA~gZQ%!P_VpXuf|nirY5O>bdD)cf+QJ*}_j=6d zb(`*bf!B zCdK`%Wxt@frg_ul8~>jlxOw5b;)(}ryDskea`u>tsGr|=VOO1^*BhjKqMO!Q&2M0; zjoW;2(%tn8YJ9tnUpBt?YueTA>J^^Mh06lh-$67>>RSzB872LYp zpB?=?Z%;rg3#W&2>dR2>fXrZT=bUM+J?uKuqC$-Oqy|g-`#g1+#ZT+J|1jU+Y%+^k`mCeeJUvqtV>zv~mVHdEY0W=F zTNBaxB(sexttAz4h_3HH9z0_>(@~4l(Y}fvK@ieez z0f%{CTnS(2Hyy@>DbvKZ-kO))vVuKST>Yt6mzH+^lym1~JeTb5lhpZ=8Cb|N^L}8r z)2~oNGo3Z_=dSJ6(r+<3)o)>)yg!Xs&Z3EH&fKX&*>S5Zh1@02-qbd!QMJr`Dfw)* z+pa^bpQC)PEGT=L)O9mn^NFZpucUgWMD#h6X(oLqT?;)=->A8L<5tq<8@F;Jj`TP^ zia5F?R>x62Q}p!K?#`S^Rs|+KdOpoX|Mu2oRl39vcUlVR_ zn45e-V!2JHMHN>E9`S!oI`TQgGp5!I{W{zvYa|^`=8hT`p^8@?Dg|% z{#T|~?~a@EU+nq*qd)Tt|3!nD+spn%pSEB)cG={6$Y#wYYo))WMfQ|jc|A8;$nA?w z*n#|)XAYmWYY{2-S3K(5uQ%7H#5hyZY(tqqNS$CRP>Q z)ml&Eindo9iyB4$SMJ+yDqFDd-}c8#@BhE4{bj$?e*_Wz_uu@Tr@nvq5xY;#<5$d$ z#CFxEMr&3zjA@>zh{`1OT9OTV8+H`#FOQ-&gJtwCvm~yY; zz*WvoYfi8xl?Eu@4n8ir%2!?Ryn%%9%c9c$HK#WneztYOq|!$srJ_Qrzj@d*H5V57 zW-9CNRBu{l*47m?E90c?i^;85UMnwIt>zuQtZZe2+NTv+Wz(wusa^cHKDh3>3*UZc z&F%FrnMnaEXWbtyGJEIxVcjAVv-X(te%v4LO;-E1FGP;Lgx&3OY>n31W&bxS{+pK9 zc;@>5ZDmr?UrYY9uXXzWTc-XWw}|4#c{1PrRdK3IzMcFt#r1E{?zGqH?=z;}oZlM% zI_K8W#rHC|b2B{6T)=*KeOE2VI=v69#>H$C3Ts}xU3z|v*R`8vmh0+PEa?|W{^%%M zGjGbZYn4iC!;gO4z5TrW{@d*;NfjQJRlh%+HTIcc%spwI&GpW#yrir0@-I_Fm?nIA z^>woIpH5-Z*R9>7~2)L5cj_peZ@m_dk}go#<_#W&JWR zQeFH-SobrXW!o}dcTTW(YJSGCrnK$AP0sSa=`)hQY~NV=|M{_Vd^L6t&cEID=gW)D z`^x8^zBhe7|BuPPK5gE<{dB;#@|3l)KXBh?o;tj5<#?AY4 zC-H^#?H=#FiuL)0KiTKCdMD5JHns7~HTiM*_RYy#r8d1?%d$n5UHs;?Fy+nDPKDRM zw!Y2h$Ek6z?=G9I^Wz?m--lEFIP!P#R@}S4Yx_}_Pv4%TA69DdiWQ6cwEk67R`&T^ zZ^Lt40V2nui?g5eo;uh2Ppx3$o2kYca~HgR%vxm}Y_t4vW&QNrJ#}mM7i9?NUX`Br zJNjxy#mpV4&W0D{&b*B@)7ucHf4%$d(yAl-CpQ~4p7ow16t~^^%&zYT{^ne{dp>2~ zA0G!#r`>XT=C1=+c4^V9T&-p;2U9t%_3f9Issh8OFPz2r-OeC@1B zzgr(unexdAzjx05xpKjqbGlQ1SBn2SeeGNBtJ3-6r>-^YvrlL8Vtl%ub7|rJ1>TIQ zSED?OoqyY8tk0Xadl{=o?zzccrOS3I=5p0+n6&Y|8E;nQH^t2=yKHyL>BXCT&aEy! zGqrx<%Pm_?zi$tE|L*_OBWL{1y|*?n*D$_gYX5n`os-`R4+^?|6Kt6oUjHq(v?_VW z^o?vP-v33<7<`|5{z+Ad{pKs1=HCnuTkro}R=DFBxWf-cdQbb9*_RlkE9#QB!+vAZBL&*-m084tN2v;>B*ZL&FBBf7hUnzaX z;iIDX;{*|S;Mx?^IafUu}}RMMvH zQ~Nuo_^gzHm6`Ajwqrk6X7?;bh!>sVdp*`)@iuS}n1$DR4h z|4#qeKi&8L?iT!SeqFX}?%k)yt||FmSZ%(}@bQbi`xtFIQfADY$M|}Ec*^DP?~4}c z9{g={S?AuqQ6yMJSQXUE5c z=TrV2)IH0Q_g=^Nqs{t#N6y^dIlJ`u>07gP?7s%Z&RcwZW#{wU`z4PGSHIhG`|G=+ zTe@?2Y+l~c%{sPcGV7d`<@Tmujl61)-F$vGKI_|CQ?YaV+-h5S_qOcXe!}a4=`@i$ zJKreZj(sln-u&I9!fBGHf->v(hy05E_`JO5e}=_N<0JoX-o52@tp3i?M@Rp@SNi8K z_ksY>&Y#x?QJ`tR>3cq%74QGbIx$BJ+Kf%jJAW(eGO3jBQd??M$G~D+-K8^Ly_s=Z6uL#lVeHmMA6+ZdkNl*S|QIkC6?-pYZ3@_@ zZF@aIEwf5-oCk^epj?_Be^fa8q%j(m;P8=foLF8wY2TKto=hKS4^fvGHg87oRS{gywS zZR`=fbp4X5OXe%*UMjz${^E4>S5^}?zX|hKEXvxz6Y^@~oL|3I^1RTS&vEO%y1RJt zu`7FOw$9tkIKgyk)cYfkOYS8H2|8VGf4w4okCzJD9H|{A=TyB=J2t0kj)rt`meR+j zVEsEOet$I^nV0ViN{#-LVx;>)xBias>t*GyRW})?2XrZ)jg6fsoVcIWyV6JMS3bkm zjm7f!qf@Saj7yzANv=R>)hwgT?R}nW+*hgaPwu(5a*}k&q*A-7+gx2ct4nT~ExUN) z^%7a1Nq?3Imm5wL37xvBT{Hi!$SY>8&+Ty`_)3f&7uJ3_Q(oeQbyEH%AyY0oTYXaMZ7k>P9Cm`Zg@cqV*a~LdC zg}Kx#jon)XPW_$|-uYGHB41%_zl)}_P0#etGtZa{Y@62dK-KN;Wr0aG7b6asmp(7o zT-%@#f35a*O>g$g;~?`mpV-O1u90_V>+;SF7q( zPFs@^eSJ^NtckN4R?N)T7Ub8JcQOiU>U!{5;q$GXtP3ZKf7PsD@mjSCe2eYNMtw3oZ{ z_B+(SVwt`vd6q=)+t%%mH!tR_s9L)^yF`O;%^63wC%X%y^LG7NYsc8sV;_CrZ;R^V zt9pixqCS!rx9vMDnE!fr^-X~?`5lHPic2TP7Oj7m^#8!zu((-#V%gSzYbU(8%iMXm zmi6H3YCq1)X=N-SB6(|YRTooxow^pAhJTU_XMfw|yAj7*7snAkK<858NgT(c`v zzinGDy5!*Jvf>l(Gmn%DFFElpU|-KSsjokG#P&!?@peq!Ct-o;)!JE zvw784Q#MJ@Dbqgb(t9jO#JIk^_{N61`nngq>)-h~`*SV6be7ra$-@OVH%vd-*1d@9 zbjPi)zpJ(R5)KD{+@NYGf5PKxT#%6IwxtlK$59>c%Idc2n=HQ*% zqpJdMPt;xEkYBZOiudH6tFiZY&gXc(W%i|ow%c3&-8t=fy}Bo*Z;`7X?_Q2st)X9? zTuts}?(mxN>S$ch?$wf5Zu+r3zgyaT?$w6FdHYx$r(V$VRI0URJo#wFuEkqayd^kpzkA+y z&wIs`Cwv-_&MW;pzXa_%()Z`i+TAaA-?TnG$@6B`nSQ>7pUR)!c$>vxm2STKe^y*h z?(@K)XTgtlY<|09%QRjm?VX)({k%BWsVi#e-K%_% zH{n~^9m`$UPfT7OH)-~Fnat%$&1##N^MJ7re#Z(Z)sLWLJ*snYkR z{hs+|YE#aO4Uc!`s#Pzw-&`GPwAttJq&Khq%=Aim9WUP~-uOjmf3Zf)ri?i`hrN4} z%D9)BT-&*LhHv0*@mHT6&0ND@xZa&KK`h1g)XO-Nus5w|rpsh}J#<>K``4?zAB2)O z73fTwGvzvWXz>1$0((>Q*Eel;G8CP>5V1Z?==I*WM`Z4v>+_h%9({W2LVJ#++^g}& zPq3v-3_nz!6T*O#sOYxkN*ui8y6t)8DTFZ}-fsQd9U|F`>@ z#b4yf-@fAZdjW+5`*d{FX55)%m!P*|t*T?L@`??UkEN!2GVs2;kZ|cy_ypCS>*@Qi96Oj1qxX0Ejk*ct zM(x){zidutcQ{)6_krY}tT&&nYuB!={kiWZ>jlI3X71UmD(Lm`XIF-8 zM9(zE;Ae`TWD~aTHc6j5$Loxoj%`Dh-n~sPRww;y_{FPx82-ZxgjWD?$5ow2g8d#S0}SuN8XwJd-wk2e5q+c zl4a}kPZ=dxhwSB3j-UP({j!1ScvWQCTk}i* z%U?V`*Hyd3{C=qTcB%Rny?5(wxK{0sEB|=#{asi6=zyHHYxEiyoS6G0uJ&tW+%dZu zwFj?#yQei->gctsSKGty$6Ykqu=PvWQN;`L#SGG@Uh?C*O% z*uT&CoALc0*XzH}um753;9vZkW!C(6SMHsAe?v3BZ`J-uU*udL*E~JU$zke$HC@!% z?d{Dd*PYBy!lyXj`5fJ(dP3K4nHVs<2x{KwzNy|uKAwNlOv>E{3K0dWh$QAMc9gCN*=TzF}`}A#PiR|x0nG0*TED-HEelcRowGUZ4 zee;t}ee;-f=l0InN!GDW5EWvCWciQ~U5abpP9IIqtmodb=O} zDlf{owZpP9!+XrrALYkCwlOFa+p%~1*WHt2fN@#>F% zhW-J2=8Ap`)v12caesgPZ;>Ly-TNPDzW#Q}-73v(ZP(>y(ZX9RufJzl9(`Z(t=>u2 zS9>^hwRmqHOkG=h>qFt`zqfa_uI=4^!}l&?ifC$QtF}MiESy9mVVb< zeW~EJ+3)?;YyYWR^($SIVR&mIwcq%=&ehL*L#yW9ec1NuL-SSZoGl7A-#;*#qob~&b>Uk6@^f>|xavO#wl=N&De^_tPT_n4->HS0-Yn2y&+D0T zrs+vl&4ado1>E1xZ&dtYK2e5;Ut>qh>@yR2_(D9IUDWRB+fVp@=C01ZMYRjwW$m7s zJk|2ti8m|H#JMfoCsdIT%YQ~=(WbjPyON3(*5BF@nesDZ&6uPS_)uZNtl#U_al{{vn>S%W zY3*_GonKmy{pWgb_piM6w)e6B_f}v3-t{Bi_0Rg$$Mp+mEdP1?$ZzR)SGGRWtMT^D zt`_^p`j}O3*8lKw`~Tm!z5aUTPrk_K|C|5(eD|#>zdroeyKje@j5kDg{Xc&oPxGHW z^X{cT{+By!MitMXP}G*Nebyo6zn)ibq~_4g-;{ocFw)L#dqg?oC(7~ODjc3Qf_%cx76Kx&Z+Gpoj_jR3C&;$AvoreNt;f66 z_Ik3k)I1mBclvQFSweEBSVYs!9Hv&4u(E?XXEcI#Y(2Yyx#M(PqUqaR>o)xJ%_z^B zyyS0~uTW0a49AD3-Ag+kWk<~2ckj`(sl8otegXGI6H7Kru}joH{~@0hS@)A=hhpJ% zj#a0eeo8HKi1_!E$LS$^LdkL-^B1oIu70}qZvQDVoH2Xq)$(KJr z<2>WkX9O**Bv(I@df@HJ6CZfZWJj6O@n_*D)o%0jKmBz_ zktM40j^YD?4DI=EKVPxWO+J7G})=1 z2NR#CuU#Z>+}G(bD>wYkFYl0N!R)Hbr>|Fdn*Z^i^QnKAS!I7ti>r$`_V03o?+?F2 z|2A*ldspL){n6k3$Vhw7e-0V%^WPS_K6u%E-Tt9;uHwEwC)8tKdEd9^{`G;`zmM%- z>gu=sf6QLx_?}x7tUOho@A{icc>-ybav7dDETh2Bt&H*?uYXd_3%~&*yt@;hDv6<^0{(@NO<~ zGVHm3UBvD1=4n2;QY9AL^8bxyrmkrIc{$NyWyX__(_>}6mlSeaN7%&#?34a#y|&_3 zp7l}lnt#_rD&MEw*y^tEA#6=<@Gp*pIjoQ4ey+$A+!IuHE5*#XCE3nGzbPAFZ0Wtbk^QKR*sn|f1*Y_8z1RM>LuFI_oR+`0Hkaogn{a<#K<2OINe69?S)4h3 z(1p=v3xnMGJ2n|Uw{!!amA%+#CzJQH;AJy=wbAc8>^Dti)6<#0FBW`r;ap&($M?+~ zVKxGRKc;ByZSY$8cY$@{{dpUA-1)Qcj_7pJDejNCqBm@Do%&q%&0pq#D{Tz>)tT)j2 z9~JyrV8$#4$t1>8{@Etk^#Y|^PhLxz8Mlq8=9S!j#%t5LvcHxr(WwvFJahLJHSCMQ_qqj&n%Q}*b?#Tef{)^*-RV- zb~o?L60$XI6?|Nz^wz6J+h!U6q{y%(%PSX_2-&(ksLp7-`FzsJ?#_j=o4x;*RXo^~ z^^Q%))jslt*6ImY? zTf@2c#Tnhor3={1j2x~{*`YY=+idpZ##;57`(8a4-|r>1e^b}ulk@jo`mn;&y8Y^= zSz%uzRAygY#BZhUH*2Eym1Pw#rixV;EtoWS>5={aV|gO&_N=**9~wXOxFhk9mE;b?30-1zelGj+H82 zy~+``GH-3q1zY0^(w6DST7*Aa>6PdvrE%;8$!6* z7N49NmZc)J;_@y7;gHDazp?TcKC16ubV}1Ljvyqx7bS0LG{EYoI z(OhZ0aOJMc94%hkotmaws(S`!adqx=ik@kl<7n*0Dt@|yWvfbTss@Yd>j|eTkJxhS zOHa%Tef59VzFpt<6z+E2?R0BP!Ii3Czur#1c3D3D&-=sMkFSr{y;EslUGYa}@B3#~ zVQX6|ouqggR`~99y?WB)K~IX>v@-z>6O^u9v)($jto+`!Z+F*Cz2)@$`ljvY{1+E4 z|5|eEzd%oNQTs#NE#3|?w^hwAXX*EvzFR13{NmAy$tMLwWVUE#D%l@x42;fyGPkV$ zR^yXN3%`bF{d@7{lSm|Aqes=G`ZE&_#7{N(|M*nBC->0<^S7L@+}&WYyC5nwR{Ukr z%V%W^#p)Y(t*DVayQaFcb47~v)l*zipj78diFM04apXLmnQtW>5#4GPfhWFS$Zm~a^%Ij*@?d+AE8Yx!(>zKmy)*NWtoUvYL`>qvMf~{WbJ|<0E*%!HKnMRLu@b(9r zxTdpL^tqghRhaMd!{ZwlaqPTFNEucTL8zp=o z>CN(+GgKy&);~5FwLLgy~K?5oT&>va)N^-(1nYswKPn&+5MU zA2R2r$Odcs)XN7WFBtE&d3<%kgxaXh;*Jp;9%opo$-QFvs3P-A<=Q*V&r7B~)NB0S zdM-Sn@}tNlKdyQq=FVb|$nynpKNo3N3oOv&th7r%u*@VO>wm(=pkoecJ&UuZX)Lef zsFrve@+ihJE$3CB&p&wNr8-&h*;aksW!_un&oVk`dF{G%Vf*?ujQXiLf$C<} zjHRi@Zc@>|d9DP-2Jc+DC(C$O$-Rk7t6tvocpS9L{L0zZy%&{2I@kQ%t2pn}J3kAS zH|=%%T@Sz8oh|hK*2(u0+m5_C((It6$~vR(czJwa+xD~XR;8?s4VisaUPY+n;w#x+ z->4}Qzh3rV)R)A&;e^Zl1g*Oz_x)0OCx0=sz4Ut;+l%}KTWuUg*ZyVPb%8@nDMU4k zQ^#!5j3m+RJtmSTjgDEg@6I+&efnzulVwt0eD=FYZ`&_g&-LH_>3{J$wg3Bn&3pb< z_3!^O>9~jg!+-o2{a4@mKOW3no3MmE<5A*%@!m$86U&@8T|d(FR{DK|-!n0dmrna) zchsx?xybQvu1k`HkKUq>?K@5}vo@b}w^3ZtZ!txs&EafM!s!aW;%1AR;kR#Z(tl-e zYxdj)?VtPkm9fZC~REw9eI^P8MIU0@)q68LY)=>-`d)q}Ul z9o}$B@*Ue$H3Q4IiK@?^Fdp1VzkmIgx)SN@lg|d94JbSMRMuAY zK={Furb$6^ib8qn46bI(U;T1_+%gOatLN}B|M;;*G{wlMsO9(q%`Kl~JidOMAs{b( zYop*vSw0a-lWs}A>ds`2pL_lsM0wO${S9`5?JboaVh z#$KN+CVUR^o2r~A+AH#Iy3zc}7y5)x6#2`qxL9KJZNW_SwBBIB!)3dBH+``wxVgc) zkIie*yfb@(6aHM9B{oMrqP$D|L!@}%oHaAItId0yCx4^h#DVsMu9>~!EFzJ1^Nv3V zxU}amQ-%{mmd9JS)BfeB9yC5%W_KZ`>d^}8NAIo_Hm?(e7|E0{X$VuKWe4iib zO=pez=#Y4Fwm4^5X&QT&uaCgSFMkf4dMBdEqg7w?+duz7zun`%=YM_6)B1P)+_vx| z|Fz!OxBgwe;lBuI&+z71f7>6`bMEX4O+U1{(&qMFE1!zM`U`g&|Cf96E`KE8U!%8AQY9++&gijymg`@+w!fZbTNc?aQk=c| zgTplKZ+cf!gMuzzmZ`Fs?#%zZAmi4aja=Pw=Mn>3_OLVu?NHC%xu_#p^V^Yvh%@27 z?^ZoItEPNFaOeHm4=3#FzQsP{=dE4c)fswgv$!WY^A#zaVQVcuwAEJdQc2tWjSnK{ zDrdy6`}hCmx%%=~_sW9)-@mz9{8#lxC<2 z&i&?gc)_+S^Au|>yziX57R@x<=vDo(wXSAm+tSPAy2|(SI^Mb0vpAANYT9}>m-f&! z?H!)mIr5WtA5n9YEy@i3$HA#lu5+owf7TAGBgP*wq*dN{f8>Is$$sI3-r4DOJd-7Vbv}KkyYx?d^Hsa&au0XyDZBo= zbL!7CJFIkei=Is1;5@ri;KSJ)-Mh+spK19ycYT(>_5W-B*B|Ns{+)0B|838cf9p2} zANl`Br~V(eiE`cY{`R?XFSJ)a=l!u&qp`< zD{LgacS>G1pV>1pG~=S%0+Ds%w;gAu1{p*Mh6{bS*r~KbWp7x9@;<-*9b2Q0Tv%II za5L!rFV31h2lxEG;&fBpdgDLi0)@YH=@(xtq&bge&Y>T7-m)syzSS!3r!?$~^WCty$Y+4C|Q=2L>c%2X;X zG~YA(%;KkM$z0R#PPG%A;<|Lb`}ALPAAC}E(tI)L?@Zg{lV4vvC%!?>)F^amm9pa6 zC;5x_Sq4aD-Q9aHoo|Zh&u6=o_e#CjYriZ%vwZW*;0vlBHA{m`rHf5Mrq=D1-0#nc-8KetLy3x1_ag1i-ETiH*!!cRa;xy!C66Z5-N49cxvTMHe z?x{yUF1kJW&*f)tTPD4@pn7qd=H5HYxmDkPUZ(sveRfS{@|W=C-k)|Dp5OXJuU|Z0 zZRw;LvjpoV9C-MyPyDlNQQl{TpH(H1qRZ_sUHnn><>%_ls+A%WBc!D}m1nrsEQ&3wPdaejI_cn)FzhddmH+YvSKfS^_=<4k1 z#?AL`oZcgKYI@<`^OYu(id)M)wVue$jN||R_WtVzjpuUjOILniw^cj6=ge>M#g2?m z`xaDO{}mFj$DUzIliqycQ)er_pZCApq&HvwRO!;E@vXa9WB;uR=-Rq5Lb@AFm@bHr zem_m`=(;@(K@OS=?r=^y^V?%x>lTY9%>{SPecf#Td+CxUz16Oze`KyZPur{Z$$g*P zrc&nii}v=h?=Ic_|I6<|{XTA<$N;WgPaJ<<-nmuXZvAeve>YzindhA{kCFcG(s%vz z#pMgU|DKc0T))@s-$!MBUDl-wPQSgd^u|>204@#IDb`JsHce2=U0kv0@vSnO$oIjW z^CG3#bL)ylSIzg`{pFHb{o2R^_Ja;J`!(hIj{lol^<=N&so8O^Z=9pQMf-BBX$??4 zP{k?VG%Nhjxo&k1sfiLlCV$)c>bAj-4A#SO7Cf8owR$m6nD8+%^e5Zz{6&5FC;m^r zanI9slI#1AmLV$=4j$|Ktrg0-u!4h?qn)+PSaGGje3Q1$mZv)d_(JACdMTMC!&9<4 zbJyeUw8_^rx;7tQ61Fbf#o|cXx1y@nWE1$k-=CMeYTxz=32VRYw2y1ca+y8X?Ow<4#QAc%dh6wR zfB9`4+9~NBd+NJwbBlSei zhT!}2^fk-gpMQCOM%ecAS9Y>n&V4-H`t+B)8}sQdL8+BsGwf{e(POt-v>gOmcoXgju$FS z={YjRtVeoZ$?c|vi&6tqznoWKkN@X3iLc#JzANhHjzydPRWF-#`>zI{fM50ey7OMo zWWSo9(-PK{?Ct^qHE#5 z?l;?B4b;2Vtkj?N=ULUxq)(^5w}>mRe7r+*_QLdgl5h5QaWC4^CcMOr|J3*9cPg)JWwG=EzvwA?1F#(Ar}{oA6AVRSF){;|x4Sp15p(5YQab^0v*{HF9S9 z)N2LCUZ-t>ttRLctcY+hWn1GQ%odUO;>x4OgL}dlM7T{yC;`S*kk=&5}ChzS=Q0HGWuVWc1hev~pyxm+uq)Db~*ocmk3R&A4HCaDDKP@U)Be z>48_aKit4$Y#I@8Qc6wu;}!v{GwvF~S{?PQpKH&$ZD5{q_Dn=W`&E@`e2Kgv!8tN+ZGX6AQFY(`J6tBo(Hfghw-;yaNdA(x#v{hAX_ouDNee?*vY%eiW^LLc7rx!= zRO?|K5lPj`w;npOUo`$)&ft-W*>wE*OjFDFCc6MO6|Jz44_?Oc89hQKY+PPH77zdx93*6+U3 zsP{GD?|gNe&3^xWelDoJe~7bG_+D3{vefJr_)f8RXva0yPf?{v!2v{@Bd?7yzaIL=`* zb8GA}%Y%R01OG3ZynyBJZoMUM^qd79t~oibqo7)yyaF^r^YD$oSGEn z7BOE3H}7?RLZ&+no+@NLj68O-J4tUvh!0bjxsQR@qN~DLTXHhn^ZaFQ6&8C*TwG_7 z$o(t&t1md0ur~8L5BcFV}Ib zx?Ffe+ATw|wDGRi*?V)_cXYn;)2qpl*;jttae?r+qoF3Ex%C{cywqK^@81*=SzpkU zQOCZdq_MG1yllOJw8_c@A8G%H_iP(Gc71vL;%fhbvJW0I4}UaN{YtOd{fsp&M z8RF;VG4HlL^!JFRMylUEe)lZeQ*1 z4_9~BzZZU}bb>dH@h}g&a>Ay*hP31V3W{2tpCobFJGfS2JET)@$K&Coc$HsfEm-?yI|($pz^R=RVB2 ze{;?I+-v2n+pp$anH@bZN{_Pe{g+BR5PD+1&vBCvMW(Xs z`~93FgpS;t`s0VFq^#Z56~f0aZ$2Awoq@%^j+G(HeSS`zXT&6Sa>*!%5&sof|iDs}z6 zzx8|l->Ki~zy>!VH%k1*$_wJ{@`%v_)!gBYXpjQlPcf(?@yQp=d{*x}F znbIsbSvw~%#oqW)=3Jn>AnTih!Gve_f7q`-{l#+cVk8F ziuJ30*{4{aQsw>dOMc_Vz7x}qtvGS%iTwjv!MBTMniR2ryZABqzYFUrA1Qk``MX}5 z{+v4Zp2ws?@T!5IUuqV2bf$F7y62H!S57fwc=FBsZF^bv-gC@*3wM2t{PnIRdZV0) z&?~o1b4?`WlPolBuPyz&S1xt`HFJSkUhTUIS%pm*YW1{F&(E=7iG3ngak}JJgvBn= zzP#4O(GOpQVKQ%j>dTw|uPB{2@>~5MQ||x4(qHV`|JLU(-#GQl|66x&>HXQy^}9at zzy6#5t$+7#_`g2w|NeHb41;%zDktxFovhIpkg|vW|L4xqQYodCm-=tiE3q*aKRcc{ z`%PEaTR)d#XCBAG{#AQCcXe!#I-!`YbVBS1i&<0p#Z+H25r)IbLI>O<8JrgPPk+M7 zV;lC`?QdO4qt3s_x5W#CS7|(-d~(IlyXE5I;--70+#la7fBDAn!1v>CKhLtCdF9r{ z2fKefvd;3;e|-Pq#kRc*7rxJL`pC1(y1DOg#v*~%Tgvr9^IHE3%xM4RcdPNns>v@69c@P2+s}o3`2aEc%y_;G1$P0eq$w#BVC|ea|8ZQWBaptk^5z@Ysv0z5a+f4Z{43@T)t%-t%H?4Tj zUmd((JmjHt#<~#pMxYm zu^jvKiz$V(eTPghR{Og6MPKN9=IhDe@W>*={jgu?7pEyg`?9w7 z_;g$UoxGkeUe>n0wBpq6T+NV^*KDUGr0^GPulC?vz9*Wg?_#j}yf%?vjzJ-3<={$3f{qfA3eZK_d0v1*t^vYCh|NMKU!Hk0&YLBLFld3sz ztW_;gd;OLc?%KM(tr^v^&(?peyfJsf-0)>Ccg1G0t?+Zbv%cfk)62_i^E%B{?(|9Y z?h;Gc8h$Y32GjrR=3npDKh&GywIn+|VJFAEzjb^LmCqVgFP2PPvC{1E4xtHeOPEic zFy>59s%PO2JhS`ehSNJY{`h_W;r#dY0c& zOzw(PF|XW>tc`wds+W8)*C^0Wu`NY-iEy7W=SMxMz1?!IlRZs57^}W}Z2Q8r?8fdF zx|v^3I_ckA_u1%%F>y#4&fM=ZM?o`xJKyIK-?h9UN*u5Vbc&WSBLD;B+cQ{rgK|sCa$bqn*lc4OpdH z9H-duov;`0ifU)$>D)X++B$i@$l;Dc*~V{-+P{SBzQsrhIX<*_`Ab3H|0~0RH5F34 z>N=m5HUG?Y>udJZnd-k)C6&qU_3yX*ng@>Xuk-dcd$7))<9GNZYoi0}_j9v5?)hmZ z_2cl@5aYrh^BsQONZEdnr+ewCg_mAx&E&1T&G$w8O~w41&By@bMCBv8`Apx>Z_Gv0ZPUDb0p_X*p~PFUT^K4tA`JX z^je>}edDaf?tHO`~*;#RYj6l{-;aw^D`&4UJ9Gve^S(E;{kE?M@)J`L>P3>D&e{ogQ z_@vuttMS6>uqWHEyP5JwJWW0|9$Te4nN4@?hI)3zu%)f@dJpdRdF*+Em-$~mSGzSM$a_eIM;hd-%J&h0ppWFb4}ppI&zu6C>;ug4O; zsoOlb!>{ar^{^^cs!ICHiM&ZmPusMsvRqm6V9Tj$TW%I5+YcM($H-enG(YTH&(@sK zq*f>YGb<-Hr%pXYWc`yH)6N@bsnrCDBheXziLBES0;ZQ7h}y-4hQr zPY9>hH!c0(T#$G^xoB!b;=5g67M<127O3D63V7b9T$1Ec_2Z+Z`a!>vL-*xe|MuOn zWV*Jzvgr{Q@4byo`K5m>W?a0;{Pd%Y?cuK(1#D~HaCJ$vMASdxZ_beVzCLG9J(qRH z=NK=JxP+T?cJ4^$JSf9^;LXi9ckg<=w!g~oP@_Yz7XD5unXy&hp)%6(@#-qvV(uzZ%M>BPl31>#c~3q5s}Uuf7ePx3gM zU=VeELYCVm@w-#a-(7i8`JmjxsX0i=_RphMsq|U4CS2EVKGJXOxctwkjG^~}lbBM@ ziV!&|zHrMKIw=O#w!3GC`V>7l8*aGw&W-Z_Q*$pE?TUKVuJd^H1|KQU&96Mt*31qJ zV(U-2xbIY?zsdREFW~o-hCWR88UN&M9lWEu~w&c=nt$F|FX9 zsCVY&t~ocum#{fMT{C;FbguOz*5gxh6s&Hy@FY6i485nykQ|=bU(oPx&%zgKZ46Vt z{#mTQu$+5kr}IfE^=St+ryUG&HWWLr*%Y|RR7ho)vEN~}FioM?FB9L-7Sj1(+_(FX z#mTlH>vPWzAGa*Zo_OZewU>f@aVFCmrWaPdsn1(km7NqiYs;>ck8<`|CG>xeo__G| zPoo=oSIjOgsWvs*nRk53$)`HWuY%4UG*5s1=!|LH687FB3oo1Mz0k6i{AzG_UAk}9 z{kxvaGaYxQd9s#AU0AD9{6O#01!2)2GO_PBeq!mmvu9~#+oiK2$LGdobvZ9mWm({! zsc2w%UG>?VJIjCnY8PgxIzRW>?!GfclJ7m21x*Oxn6&uCf77iyjyyYmo^7+w{=2p@ zbND+n5@J_r-WPtlWV?@QxxUylX1~j6nSn{1jPX`1cY1eA?375U*dqDo(oyW!~+@GgnXVIWz;jBb6>7x$)sgLv)E^NTz~Q9ZLjkT{p8bK8jN$Df7V^# z(%7#3A<6vkq3$0+!3VEQ+BG9CD%qoXhkCyBCEtg6x)ZWF*ChIW^z|t;cKGqA*6D|4 zzMx$EQPT#q#nXjSrwd%MODp?*`G?Gh*9>M;1Y+8RFFr_geOZ{~9dmm ziT&$;u4!!gow3z>S6{?(d*_`w8aJz$4)|psisQWysmtfU&b;>2jlUTmBk#vwzqW6Q zt1h>5E&t4B(Fb>y?hp>TKg(yvign8C_W$?aIPZbd@e=m0A~(8baus{1g@l}1s=0ka zN~mG)Ny+DT9PB5?pO9Fuz*=`(iZS!$@@s!CYJ51p(Sln|+|fWJJvrd#OBVKiYf~nv zrG~M=lO8uc-Wb<<@qqI3PA1M*Oh>sK!;hS_JUYK~YO(XR12^k>I;T95OZ2_(6UKh> zx$K@oo4`cfFPG1FUigw1B{a*1{lfOSq9=IUb{;HLkU6&EUvSOi=0k4V9fDpsT|L8- zC#R4kt+@4#gQ)s{o1gz|X8mp0@V~N3YyJPU1Lw~Le8?}ocd0aE^|FViY0h@v{gR4i znI75FKG)pz@|p>jUv(}|jI7ODxqFS+U9WQC?3-J6uik#L*vk9o7u}n##l6p6p1ofE z^^NqWA1_+>U7f5wrI=-H<~7dG3&d{qtZ))}f6!&;LRB8koES!3i?-YuRqRVINwKC) z_HvuFknhO;teshtjtD=Gy>XVc@w$QYq3LbbD(^_Tt>#KwKfZ+Hl|I!=7BBv*kbsDk(~<{|L8e77PzcDOjN?m`Vu^aqp?%KIFor+SsiJ}^k08Y!o9 zw09=6S-Vq!`AnC9qIo;pYyJo5G|RN#reHme$|`F;kuD>>w@>x`L`>-_@lo6+v2iN zjr6Ij9_)IY(D3l~A_))wfBzjr%lVvbE*#|UW1Bl+0)O;9(Zf%AUByIxX>8u!)2}$M z?%R!@@$(E%W-~lAn6toeuH3c6_rb+JDv9@R?63HF?ecDh>o0GVnQYs;fW5h4aYcG8 z^OT))o?eq)B!A23-tmJ1%h}h9h~&(9?fST)HG7Wo{Mbvz6G9S?{QP2~WZ$G$+0w*O zdRJrp2fvkVN^cB0`BvCX-ST?hm*YFwXTKNmH5uLv&bfO&b%^IZO4zdG@qUxji};qTX;V>u*~fR^ zCg#P*sP(3I`u25|x=+?ycOc+X;tFAt%1e9QZ~St&eDMeKuExG!3%Y0PEe`#(MEjkk zZ@vEdpDT8^+t2CZE}7?Y@Ntx4Ov|40eS!{ZSAP|4mc5wjUH>TQn^?fUiy4XYWjp@c zer*@ln9cdIa{8h(mv~pN`WqIh&cZ1e{6FN6no#(gFu#o_6K#`pg=0$(2gb)8o266Q z%Kf{tw|j^G7H!s$BkNwJrfprlBmZiu<{rj}dvYBnaaNxR5@~*O~3{&Z&h zh96AR9!L20?>JdtBRS`r*XIr$Wa*$|(V6ng7+h|%(%_K8bD^5Np^2TB&a z&{1b7_`ZZk#mQ%(%u6XHnFUeIUgte7T>W1muRd3_q)})!-=j6xk1=|Rwlqzym-*tT zb528W3P;U6r40AIiWesONys<(6+b)u+xf%`i#f>~LswtkGrR9i-JkhyT;JFq(ph%p z!|(0-@fw0V@Aw{#Svl3l;+N8ru=x87uO5poXbC8K7q!eq=$TfPoy%*XgI&AI0#?kC z-uZ2++%bmLDf)Y4j-O17%F^AIobY4|^DO;W9zowjS0r|y&fIfF;BIf!&ghWrt$BA7 zRv+DHskW1;RoyOUx1msikKyZroXC!ZHK8>ZMI`5$C`O!6u1wsMh0qpojIN`j_+PpIAMM>(7&n$eG>JO!J<-Hc1wDbn5%a zw>wB{MR2@=n?&;j@4KfK?_jxE^J~H;pCe2Wy@$S8nl~qI{W904d^P;w^)Bq(nC)i;E_M_aQD;hbzEtQmqWQe?+F!{#(p8;qJhHB zIbXtFXC_$j$FxP~@AVE}^?-Q!qY%W$zT_R+$aZ<1LMDyi^T1lpT`}6Pp zux=<~{+P%eEB<0`M}PSfkL_!IY;CU}_WF&s#SGK^shQi)?K;vV zDY-qXW3n#CrK-8lLe0YDRU*P}&Ne<(?6;}ONVeSgU2UM>swR^!%if>oNxs>%&+@TU zQgL?0Nv%^(v)r=ISb8p*!e|ovF#McnSim+<`^~L)tnW`tG+eE=4m5B!Cb9POOT{F8- z*gsV+#pB(b-Q`;O>vB$;=boLM_jAK@Zj0m!tJ4RtBL{sCX9WB*S| zO#DA%_C~(b6DLiNYKvdW+O##QNomF@zBPYJw#}`cbFObLi19nv>i3~j{^_@OuD^8i zaQ7Ff`K6s^$zq!-vmSD-Uub#x{EYfb!j7|JE?tj&d-?+BVLx+eKI0YE+`SXkmKUCh zUi5Lc{{K^4lXw0)edfs*BeuyFkJIZtCY96b{)l3Mh9ew;7+l!-C!U-|6LMb$MwDe>68 zy!_!!hDkbe*%HbwWpW5l-7ew67w?;L&1PTF?#FMwiGP}U=if5TI>pC90!MvKN~*%$ zta6TC>o!SCpS2^~N3`JX)OFz->%N6VzVAOA_m+cY62pEZkN;fJ@HYBa%<_gSby<#wW-DTT+i=`T3UJC z=B}6Ib(^n(Vr|QhE{Hs+dThm7kI8F9*9xZjn!I`VGn!ZVi*{J|%Wq9z?4DP5zTj(Q z;>ob#)jYxXbIHV|ue^>tzqsYT;PZbv7ubxMCOpvi-DG0t(RkeO*`h5P-u4H#Zv7Ja zlX?67fVO!Nu5uO=^dk!>rS2*OSQ_`cWBM- zvYT6OZ=Y)>+*{w7H@js~wU@<&7kKmsHgIOwH`dPiYKtx}6y}}Z$Kdv>C8^h@U2J}nY`?~&Rl&X9j`j8$;m0eE zC>lAx{KWM7Y5{Y>Gq>W{BBMuoxAWq%qg0G*Zg2IT`+9}*>?@iY+h-PS{#7JXns@Hp z>dIStIv@SK^QT6_?}Mq^Y3}p9JO3Q5oAcI(t90+*npnfj5$V138?#Tl zbe-UnA2;?%vfoYUIeue7-}f8h7SI1E*Gl}nyl2C|$s3skIOe@peX&&SZ0y`+YbvIF zs(kymNK~VI@2VGOT9t08+BvD$o13n^Yi}uUdnt5za<#7NlFQbPnx2zyJ7~_m{4_FQ zSy%e3j^4^2<)$@@YECWvtkHGZ<)7^v=kuG*4n1trHSqh&v)f^U(cynn#1DQr)R*ug z(H@Ae5nO_l$)KRW;Z_rK~NlK1NG-}@>Ree(PL@>jQy{(g^!>eqh1Z+`T6 z#cYO~ndHCko`|R66@AT&1$kXD}zIR;@ zhT@*qzSS|TKkc7mY+-fg%LF-xC$YfF?iG7nL+)93otnKoMSNmq_lZ669w~8I4)%Mz zCMMU|eSL7isQJOHy4~Eh#j@%#=2tHHD(R-SMD61}?I>TUh|!dbUPkG0no z1x$Qk@9CoLs ztSeP*#g2 zWtYtiFY?Zw@$1KnR*!v?vZHJnJC>Vz%iMnd#H{r%L!MmI{KumAt!;AZr%Tr8s{gt< zy-X#p#ZKF4zUad9b<;1TpL)HWqwZTcU)?v?oQStaUxkJIzx966@BfZd|F`rN*nYL= ze4=N@@cCB67FLgIe>dkbP5K*?C_N$Gv|3q!{l}u#o=P>_eUnaYEeZ)ue4Qk^$c3%n zV4?T1V6p!%SghO*YBx`sa?P%7&HY1b#QN8T{9hdtt>kb~f7#+d6I-Ch~b6WQU~2YhCHkrp{x`?x1<&#%BYyYmw7hq}D|oqg;-b8q7v=5)v03;%gO z{@+$sUN-6De}k1B|HF^`*M9V0^yB}oAN8((_CJ06Kd{1jM*5$pf%aMT9p2|Qt`*(a zb;h=8r?5TW%Ple)6-TP8Z|!+4;Ck3>MI>X6@9ak(Ur%>f-QFK3v#7~md|{&S-eH9IrJCo(F8X|u zU*&k>l}O4t=?3xcllkR(hCJNXJ1*T2Sha2D3rm$Gj}J!wE>}G}{(SQ0eOyP`cdNxG zt>7_Wf23@A+2rDlefo1fW(5?*^DGnYdT;vSxV(jYZcwUJ#x@hnjnDkz>}r1RpUd6e za>#pyZ`$f*HFLafqzhlm&$7DirLwn3=*Dd~g)p%-y&{Hx9X;7x{bx)_ygrrFsIZ9X zsK`7ChP~|d=@YD0^X`bAArbt@LB0FE`B8^wTYocZ%(Z1o`M!e3I&(#fnB1z^^&RtW z^=aA*eDV+blU`CvOWczw0gF?Nc|1I&e;Fhx8)N$5YCzF4@dU zNOV*3?t9_h^rmsLvENLQhv{;aojNV%Zt@3L^yfEyJaarlztA`R$^^~zAL1jQ%0xsy zI1n4vd2s!U1?K{GoN5g2EPN2vwSUFm!iK&ZwVCYvyC1Foc4C(B-2$1z{wBQJ8|LY1 z7YA2}l(qFb+jPt~~mEkZ(K&WX?O4&+tFU*5F;{N;BJ zR}wE-@+mA#^8FkV?6gJgx^DJ?p2L?u&uR%VzN+;rmoO;9go9fS9n`S=@QpR0w&L2qwt2~fT-dOq$N+d+m) zRWj|*bzUrN^f=g(v#w87>-SPq4+q5qoBuQ0YbJ`a$tY~C$;mpZAf}}u^~IQ5b>W(q zH($RDI{k7I&q7D08PXe$$tO(7KeTuIVJS9+i(huIS<9Z)dK$S{D{9NBg$MWi*>|id zzwJlJ35}gH*|F^#MC)#Z-RWIR%JGd;6xmT|-;@jTvqd*hu8Cxu#HPJC0| z99A`F^Uaku&3koHn3tW@T6(|nY5uX^6%%`oF_tt-syl4++}`xyTk6M(TY37CHj}UG z_C@zS?MWzpdP`>GHZJ2`PVf59POCjRbNkH#p{l3-$DaO@dJ${1J1-@5-u&&!@kcJ~ z$_vU|f97F|vwoB}&&3x$!eVUEPG7Q06#2?brcLS#5uB6k`+4!Kqn4{2+g5I2OtfLN zJKhu6dw-fm{E<>qQ6=dz_CIlA4xuY6SJxNB9yMtAD*bZ4rOS!uMIAe&tGxSWbJea4 zetZ7SvGoL-ZF1~!*sgt74g$cPA4lLf+6PvC1 zu)&jM1Jq)&+^hNW&a6a=-4jwtCxhpIc<$E_;Rd(@P ztlDA!eOh2(f7VGI+l`MUj&Zqm&a#vf`T6^Pt7paqzH4(o^gRhIkPi6yZF}f0Zpoe7 zuXeM%aB-jXC-ti;^YTkd!hXLzQdYKV9<9ISH1llhw`1+o)Dv?)@+D8}X?;*^ke>8% zB9r;ql{Qn~xB2h}BRr<>NheaCJ!DruZnG3A}4wb3Qrjz3Y!} z--9E66*rsSW3#`saN69Zq8(1!uf)|aXS)Y+dh*RV6_NHXLm__Fn*EON=PWC-uDEQP zuyXR_=vek3>qWOC+4n86EbR6^xz@j5zqa#dZJN(D3&|guuK$cn7N(Xf73Xd;7u5fI z(qhkirC3$lP0o>je>z+I3%}B&(kuC)iTxQ`>Ki8uBtBZ?^r= zuy;{elOoCMx;#s}ec$mZ*PS2FPfdOCcD3jJGDymF>=G?;zprP)lA$=E%bW4;W%q|EZF#PbH`a%qdcUePJ7A}q<%@sK^Q8@hx4mw! z?PA}%tuE=#Ie%AmrE1Q7yr(ZOIVSM!D2Mz{o;NZ{_X{Nanf7nao3-T0!em3?``uR3 zu`=;I%Tu{u?3(qNf8%Y_nE4EBlA%!+H7+7IjrWw^?$13PE3y5@8;)r&m>aJ*`QH0* zCc;v}B0g=4_T-Q4e;R!<|AcN|xM785!3US*5N>&Afz(46e)X>4KRR=Z$6Q0*w)<5% zRZ?ME40i<#Bz8QHD*gDEv4&C5lG!UN!ZP&9Cc&~V;`5wo;j(X^<6nnMNv8~-8 zI)B4Q|Im|>rNvQ-W~btReu{dOwJWY_wbxlsyM?zlaWH8bKRzKM#W3+*(KEe|Q3=8) z)Yfj8rs6g8KN&yo(`f2iW}ymZf}wK4nlJ-*pJQFiIXE05f7i`?33)nQky=zGlb zi3i&kGvp99SzT()*v-VY^mjd5}k_{0J{#hFy ze`86W(qr>}Is3EeX`9c#_@e#jNl4#>w$oy@+-+yMNgk){!*IgG|^^fefx*~Tk zU9RQ-!wxC&t%bc!ljrLgYF?QVF!A@Bx68iic$B=7I$_Pc@MHPRdrI@?A9d}Pux?%} ztQ%4LG5?&uU-!E|4+WN*H9xo;G1F_wmR&lfTNHO5?96WsU#K*#NSM#~RZ#k~>#RNo zJtq67HQcd2Gh;`9l6Q%|NY!566H}{JpEGzAeR@Uwl%Ax!92eU|Y=lBG_Xph4*W!J_ zcQoMl-?!#}zA<+N{rT1H_or3(XOHpQ^>1FBSXRG4X?^ONKYM$lc5>gjlq$;99`y3k zUS401Qp;A?V*N!2)<4epAbX~9iOrsUEV-=LCoNo(sXJ{k=Zovl{(RC8U2t9N(v_w6 zWK^A85AS$;biT%xf}h)?_y3(b{p&;5?EJ2>(*<)jvz_F-^Hb}{-;)>atE^wUC2Ptx zvD49ycK^9p{Ht!Qs!Do`(X@#@WqBJWd}#5~S6i3)TI2qPsr3?D&M*qZ8?A}G{A}%8 z@r)10^!LA3ydYi`^uMz2-c{e#%kB0_Oy`&@^7*lBmhxX5KBC(-fC#^<@kDI-e~+)vC$quq@@8-p0w(s^fKEPr5a$*!`?o;%V;e z?9cC4uT6~)pL}-q>#Xc&YYy+*^v$;Cw`x&HYsvO2t(&(#eLwrH@oE{3aMK4OzbAF< z3aaKgQzGM&b^O{2mfBPY`vo?;I#%gbr_7vwH*kB-r)r)c9iFH`z0{m7d-;FIj*4nRoKu*;zqZl9yeU1si<`)~r=a=y_u>VOLbugrc4+ ze#;D<*^* z*Af4{Z^y*#oy(@?KB;xxRUu`kDtcmGf^O1JD|yS4A37~qw}?N#lr`h+kxQ@9$&|rLTW)^0%j?%lrtpm~twCTSU%n z^85YPza3u+&Q=Qw7H;p2Op!Qwx0#1u?)4@8kjOdPWj>h&F(x{yd9|x8uYaNOyf`52 zZCY^QVeVGF0)_On^iqN&L#U%y3`G#+(`ao<>} z>-$|Y@Oo~R%Zrbnw5_!Qn{If_uU`>X*TcB@U#MvAG>f=c6NmO6T#+VM`b`hbTPPp9 zASC;@p`BmfKi^fUoE}^AHS~{~eT(j`yYRN{tpKy$$p-sElRteq+-fBTkJdN5D z^PcJPCg!4ypt&&#JHF+KOB7{%yhp^2$);yW44?(Rr) zx#H}bAuJs$r7iA~xccwJ!yB#^J>H;dZgKtoy)(U=!hQ$0N3PcG*}Uz_w|8oS*MzRr zFY?iGU)kz>GkEsO@JAu-_GT@@txoIgZhe|O)pK&Tz{S<=9|~E!rrbZ)A+jLC<*~(t ziSr%RxwV!QW$acjIW1p)=7`VXb)D`D5`UD4bu*o|Y+pL#fzXZDo5BVEG2H+4k3ZA$ z$-+*d_obB&;-}SD|BwE<{qTJ)(M75^9|+E~YcEc;-FaPp+WY_xX>Ps)6JDBrWXVoA z&QM{ofa85iLXzO>zWFbm4l^kRi>7BTO7oYR{;OQKzNc@?uPeu;uD`zaDKT`Nrl`^G ztz8)>W|i3US^vEJ&ckol;}BEJ#xG5MQ<#q~{><&8Q1h;~;oremqWsq<$De;Fv-E<^ z-HZ^0I%{D|S^38+dCm6*f9`nW?4BR^X6>@$Dty0UgJ+cbvRH-IeK}M84YR%Sd+%z~SIb0R#g{+1`_n{BJ>#{NXmh5`#M=t) zO>;J^y=`-7Qfa^Axz=#OSIg9ob-bB3ZI#KT#g5O}c)51CEi888Tef_`>c&rpOn=0x zU&!6id~UJcPIL7M7rz8M?R?#IxWvTGGH1HUoM#RGXB(bM8=PNr@y`j%KP8Xcr!7C+ zb*cE&+zp53I8-d<_l$lvWy{j5d5g17O;w6^bd(}UyR-<>X) z^>1$p!;LGa{)-z_8iy`BTv=lI>vW*2EK7~%a|X$8|M?$h{yF&m{-wwK+;9JXeQUdZ zV$FZXI?-?c5B-b3@t+&IJYDCq6V;9Z{;b=N6yekGW@my?YiGTk-YTx4+NM z^#wS|$C@6!{w(CdanBp&^1VMkUj2N1{XDz+uP*nmgst;ceZAMEE1>_Mpl?ytq4oz? zOtY){bXWopM81kLU_Rh;A+X_L>AKjCE8@ScEKMt(EHV;QeZJN0O7I!Ed#6J3O>b?l z^X{}hQ8j;Q4Hsv>OWY$%_qp%({W&qKKR{)}oQyNt{h#id-M6{DBFIbI=Ie}Qmj%~L ztmu|AJt~+r@9BJ%+#KHXm!7FTY1f`=zUsr{%gapvcy8ae_*V57?k#d60#17w3_i6x zPlyxVS5{y+N`SsEL%J_$`s zjQ=xDZyB4=t~*vGrXPJ0kMKW`-tsS0epa|#hJM5RY{OqBrxzV$6Zz-a{#-x%P~rl% z-`CxiGA&qAc_`+l$HOCat`}4VE#7^g zExDdI>Chnz=KkJa z%f35QSf6dXe&^n@SSerky}u_%Nb=6x<1K&s^{IzXURiuN{`SmshdQo+Z7g%YKmGDd z=XtKLP1-8kkLv$^U(t>J;;`t&y=$*mi(g?%DO=EGxQKo7v~vgLjjn(7s}8o4^4@Y! zWy3}B%buq83`dJ&lGAIc8WPukg#SFD`RPp8(FqJn{TV$1RbGOwYjvy^ zS@7SIk5ZO*3GYA0{bn;4SJ;}Qqjoon57+VjIn90II9qnnm1Qq8I{tkLdhqS1PS=M! zZB4&z7Vmx|;o)@j?V}5`vPHhO9kMRb^f=PfZ~CIiehFKM$GrXma>%3I0U9mms7OSmNY&I`NvwCt0_(!~lj@lr2ZcC&ezoDVCsYA-qxw=zfaYGGIT z5yO@31~t9fpWn~Yi!A#Pz*rH=QO#t#^bwzSLW|#xk34?@eeHIanp`u#Rl251_(ZzY zx5TNd52mbCxu-Bm{IB&nkJSsUE{Nv|v>FBN)4Fl3@#a%KR@Gm;`xI_jop#-yd_mnU z^LVq1jU|_4d+n;k2&<&1qiJ8gjP}Ls3>E!QZ}KjrQPipa#$o4Ermx&Rd82pAgfZ$Q zgoxhdva*j4OG(gM_^9Aiuu<#pr8S#RJ<={+()r=~oyR_MxhItll(5q=T^Wf!K;T!#? z3+MBuFV__`TkyljPfaJ=Q!nX}chkmY^BE?`Zt6aH{lKP;@AD@3L=i_<)2bTi+1Vd?%Gsrn3nRrwIZs$ z?vgY67jKa-8x=NbC!YB>WoFMJ_a?8iyNfy$FRDZzzOVPe@#w7SJHjFveRe!JnHjp) z(dT!Upq`c(+uW~x&64L=PI}t4{zboV_w%c%p)sL9boS;b*1TL$@A@M7h>N8&Bk!RQ zZbrX(-wL~SZ(>-!ecm;%h>RG{t1dbp<{jeFwNAEXxS_i2o63$U&pzDA;5)y5sbxZY zSh!qIe)U3|KZ#S=mzo+lab9)&ImhCc^R{mW;pGLU?Jf5j+D@HcZ(wts%QzV7FbiqEM>E9#~! z(ff4bc=T(*eil~kSL`*(C443#vHgn=W>`7Oh0CS9-{Q4+QLB7p_>%MMjvSsYtQK~%KKQJgW7+44_I(b$YFfHha)EL_&psTSV{7u&yFK%B<0iQs z$C^!RAO3B*x+7R}g6!cK-(|`f50}V3<9UwlOVGmA})Rk+w@_hV)Q$kS38f(+&;Hw;z{E-GiJ^)_oz%3 zdDql6i1q@X4UVj}-jv&Di-$?p(O&7GM?Qy4!lb z+Lt%d+iVk#ulb@l_h_0;q`L0fnb%7lBTxH;FMX}`@sUir=FJWA`wxq&ITZ9+8$90c zRHOCd+K2ET1$PDbHD$Il9ZdV?otav$?-OnIP4d=ZU1jV29t!<4)~0LhQ#$03`MRg_ zf&Z$T_dgo7{nrgl(#LZH!z zirD=F%3|MV+^A^%vciLPRaTN0-;D>8XZAR!Sv4NNbwb@C>TQjH64(9z4VeaqRx0zH zn3Ef_=COp#naHU^vwd6CCck80zIf>VjT0M|%j<8M@Mh)a8I=~_J{go;D2PAVlp{S^ z?%~DF8w1Wx6YX7kpRt$umqbWG#iYe;pO;r2DF3^^N&eSImp95OD(5~uy`51qOW$87 zh+S-{>8zlZX14Y{7tVa!8jzaOZF26vNc_R&b@klwe3SN{$@HH&Yh}<$EyeYG=|+8N zEy{H#EIIG%&fQMx_&X*E3!@^L`skf%@G)te56L*{+zdYl=XoWB%dT z-EC*iPx$fc$2?Zy8fEkKM-J*LPMGqb&m)CP;X@+--P;}pr|Ui#Iqh%AZQq-ky4lUi z>#R zepBE2cm0O{qTlwvzV(03;s3whr9IyFVVl7h?_~AwALcVVcc}02j(E7>zwEp}JGahf z4Hn@rkgO?7IcN7oJpY*BzEue{tZKmWkU!#w5l!%G*~=Tkg0o z&}Hr|eanFCqaL+w6Ms3s{;#NWX>s%y#)yi4`?pX1^k4TJO4G95^{@RDX@;#m7v&Pp zTQI&^!2ID`-eqq~#+GSXb0ixJ;~3mTy>f5mMH>n~ZNIX#WQnuh(nZR<0{QM++cjD( zTNJG-8(=swar?1p&-Q$q#H;FkzVq&kF3~*xbOS;4Ks_6dv>3jxK3t~^n3I4g&wQFsUmYeW4?FW1JzWF3{@s^6{uh~k! zZZ=w;T`B+Hyyf7rp#p(`9u|aiwV$`=ijae|-3-m#SoUyBNb4y2^K}NWFQybK)MSF8+yIU1#=9x>I*X%jyP$8$-Yo#awmYS-Y1WlzH^{ zYSDp}t>(*Lz(RnIxr{FEqI;1^;3v{J|2 zjO&9=)LG3vSEY&Eucb)R0B#QIZ6ww`BFHTEHKU>;# z6_zj};3 zg|c~8zPvGQ>lyJGah?kzw>i8HyL?G*_ENEn`byoJ!UZ`O|G9COK0eYo>5lE=QqiVP zk^O2@+C;xUI#DG)LuI*+%bP`FJSPuY1oQT5`A$gIozdJdf9zXoB?oHe}Ps7xei6RV5#VwQd zTt#*pD+Ff!(EI(yfi2R8ubZ=+9zlkTVgrmA$I|(&nHRpJ?yN)5n+( zZr}ezLA?EW{iVCS(C-_zawh3F`{n%~1=4-6~_9*N5JimG#IU8}$ zm6@MZ{A{6vjlb_gmydRhbM+ddlP@Z)V+|DxedV+G(#d42<)Z5T7am5>k?EYzY9iu) z`}vuhjr{kQ>B9Hps?H(q*%pSPIsQ$mYfoHSeZWXK;-Soh&`kc; zw~Y=b#Mo>l1CmmkO}77KS~i(u*WC@gRmWP?7aV+k94g6OQYU9$b>BK`-KF`vO-nVrk2kHmf9jvU)9?Se zZVeF+{y#L`wr9!z;ma20RrWp3Atq68>ssD396I&4zwpA_!{4&ROf*f*=dHVF?{)o6N!0aK z797VPb3CrFT)Cot6Wio7ob3j!$tBA|CCk=T6<<8(xi|SA2iFSgQ^(&O%~^0Kz~)fC z!<}aSXR*DzO7-llj%Tm#WH|EEx?u4Ouk~@4uA5DNySHY8(d?xE=fCX!v*Ow@?iYKjjuw6MaNV^0hw7_Emc~<+ zG$wrH$j>f6WEjn~rr^DjWR0Tej_7%2U(I;duKB=RVsh76<>|)UUmsaH1MLK~-Bl+r zc)z-k_w3|$gO8239PYkZHmB{(LG|3yKFO_O2M?t)heVXF2)uSai)+F6Glz@6%1zO} z+4yYg^R`8^P2Y;VeP%K3%a4C0ZYzql3Knv6*m9gReZ?)ue&A$X`Qc}7HC~UIG<#-9 z+Y7hfxTWZRvUQ$%74Olw&ll34s6E#9&D>SC?%jOlNa<&~{MkucnG)}-@>fVreW5FA z*Uis1VbwfN51*J8?H6S``i>s_`)R?(O{Wvi#4ky+k#B0?1}(0beTieM$?pf742A9a z7jv$;u$OHu+ZVlVwVBgBji*hU6c;72(7VamIg26qtu~vS^tr0u;Ll$ojMg-|W=wQ+ zo?YSjDdf|M#+;rLH8#s5%{uc} zO}lTxd+p0!u|E?xbUjSI_$hi@>X}uEd-Z)U6lu*U&O7d^_i>H;>%C^Va#z1RdBAQr zXF0D3{{x-C<~g^#KCf4G(XhnHLyo7ihVV;Rn-9e39D8BftZzsahx@#ju% z55eusL8oL=lGk_4Y_? zXD9VtUivujC7bYOo24=Q`)BUnwqeee)X!|zo);&5+$Z+Oij^nb%E9dncWdft7siIE zT2AW)jgL!qsmy=uGPO7G+~JIMsU$qzJ;EF%T_3D2|1zM zy(x5~(yw1{d+cme7EjCedSoW(eEegtTz2rp;DWm+l=hd*coTis)Gqk$7U@uP-=q89 zhD-9K>sHDCbx?`R>8gxUW#>G8VwL`U9Yby37h5`BzgU`?a_)t)z;Rv!Vd>cqGcGE$ zZ2EawxzZ~mXR^#1=FU$=4n&QJWW`(}UZ-|ZXzi+#KQ z`gZ-zpT}=cWJ}1uyu1IN{q3*IrvLtT+=<&j?AMJM(eHxSt-NugYkjuPHA9|DX->(X zHp`uSV8FdKKo9^ouBo-W$U2)||w}w>XB(ZBvQpei_R;+eZT=~ggDdC>Q zi}J727=Ox^IDP7R6~9oaYLVa~13vX1>r}Q}<=pjei~T|sqx5-US=+83E!BB=ie345 z&71{iR=nT-bT@Ch#{DGOdVSC3vnn_j$+iT@+p-pH-MEJ#MxT*&$r=B!ZH~vkK3>yU zw0rip`>SV2Ut-JNU%tqlLpgKX`A`YoNE4YKd*-+InR;hGX>z??A+>ArOHJ2RGbXBw zb<9av;c?JWudVE%r1-pf*Sxa*8O_!(oceLvCeHPts50j|lO_??#aq5<&0_KWE2CuS zR`YK0%|ALbViI;6ooT=788?gVpXir~avwF;@+K(r)T&LM^5pVnhBk!>{kbPjZ9DGw zZDYI2irhJ|O)J6*U4t^EFO|slHqVe~tY#4{jL%xCB=dvyP9I0Hvf7@LJSR4HzFru= z*j(uAu2VZSgM=BEJ8yDjmz`by>3mVjbYZui(C9^SYrKqNLU9iv-r3TOMYV2i7FD|UwFnM42Ij>X89{5{%vL(4y zsyvssyE*&Q&LZ6tk4~E?ntK;rRe$+pMw{+>yVoVHs#CL_w?)RpDmyE#?HA6Pbn)Lw zw;NYH-EVB|lWS-^DUj-KcKccOL)Ep1^ulr^wiRr;-urrC%j=5RA^fXkWjnLM@fmZ^ufjf2(G7$30DQ($bi=Rnj=~x8L@OFJJFoAX-uqnq+x{o3Xy|-+Bel*!?q`Gdpv)8T0ebc;avb0ZoSG+U~&^sk{>(Rv- z*I#UEo^*GOt&M)*{n_?55g+>{YTtHm`QP{FTl@Lf|94NW`k#9{TjbmQL;s?0)N@0# z)b$PjPlcZO^#AVNHScq(zOcm9@-N<>`s4qq*CsldXZpS`U7E0ex?LlChNj{5Qogq- zCAFJmY<;#&+``SrCw#wIIlQSL<7Zauv7c_UeLpF+X>9qha?XVFKXcnQFO+AdD(y%)c4DK~za_P^S}O%_NKG5MJt6tm!){Du#S^vU-T#UXvUvlU!EaTe*UyyC*Pe7w!U#eYp&#v>1(&~7jwqzmhU#$Bfma?MEB$gO?9v`Q|>;{pEc~^OQp7Jf?kHmtWj*xytHoJ;T24HjhKg zMNKsgSFhgG<1T;3YRk7Y3%B&0dv*rQ3b`u2&bM~1`islUOb*2&V)?XtLx&{ELrgOQ>L-vrWcPtFZj#IE^>2f-HyxeVokb! z1?uPgJ~8Xs`X0?+b0U;aUi0MJcXP|H`=Gg`EpcsTvW4Qu7VoQny6EAtQkD0`_qh3M zYj$*VH_teny`#f3()(T4*CO=^d!G6)xhHTrXOds>p9PY#3r@Bs_#JFz6;b&leNKOy z!ftV&D1(KO#>Z`{KI(kD^+z}&?}ABdYudy5tPi_&G&6LW)-%-$-8`ysP-IHZJ;sCu z|9Y0aNWZ^TetTCz?ty5H8T^r#=JFnvR{1G!xXN&f*kiecSG)H-UU9QT&7axkI5$V# zm1`1)ZMre;(R*hKZ!I*Ec({bsRCMM7GfuX}Vw!7T+w442#cQ=?T|uc8d+E-=J2njJ z)BD$VB(tZ?jBekQ^!cs^=v2@ZbN@Hy@8@(#D3+~Nc-d>Y;-L8IjV-!?Y=6z|)@)9G z`^Nsobq!b9)K{HzcuJ35R8>y+vahO8_^L?V!@e4Y#8S4dwe53DHJom-IvvlnUXn2L z)x$l${aL}BYbU+nIa+%nEM#5WCgq8qkNO3khvi>L-y}C<-c^m&Pc|%kW$f5=|8&Vt z6`$$Jub=ho(f^d-KT%~zhG68A!|i5EPbIS7|CxQ0WpX=)S8}}vT@_2ixOhy zo|)ZAJ9_4?nOqaIUh1Fa){p0OCm&V6vEiYxkZju86CyH87aXpW{N4kJ@Q)aTT#;b%ta+@Re4v>VGfV5@wQJD ztM+MDD_dZ~@pNwEuSvZ(CI`4`2K-+9{8zwwHREjl^8w7c{&627OMhDG%(}L;e{l_m zd+}>=x4Y+a{{M~nxBu(fwN+aG4xjV;_|F}szLvgGzx4n58paJ9BkzmNyM8Cr9}XbrY^dIy8Qgzl-+iTUy z#XW4?TR-r9*?;n9y3POf@87;#_P9Q`y7gc9i+Tic{nGyoQRT1s;rIUCI($36;#+)v z-rF;l|I`=X_HRGmKW}gGDiT z{d_Vj&NG{96UX%WtW}N%=fq!KiE2+PQqG#dDfLMxaNVZEF`BQwd_E^wZ?sLCfEqd{@ZnDf9z7JO|=7o5^Ssk!{mCO`Qi+C=k)J6YFrF=fB=6yZk_3Fo_nunq3 za&mH0^rfywGVi~+@Z2r&mi1b77X`%Uan5IzX4m*|wQ)lJ$pidWj}NU|sb%bcMr!5f zkLLe-(;gp?zuL2O8;^+bM#FQ9KdN-7>&_{7VfZd^gKjZ{*8w% z_AfENQ(yYx`Gl^=ot{b4uD#fjEpz4w$Fl~O8=6S@d^4Le) z5VMl*zU-7evhyNq>XZ-L&0MUIdFuG#RP{qMOaIKzu=Oz6ujc#T_>r>96Q;BTU#{(& zxSE&Uo4BYVk@*hm=f5&P`9$S1B=uY}F6hW+UNlHve4qL5CHJTb!z(tOVr8-q^yYbJ zRAvV{9-a1Nv#UWz$Dj2TCriRazlb;Q?fLLgB`NQ@;$l3rmrI@ z;eUv;W-M#o`mV{rm8VWUcGozl^FV3N;su+|Y*tEGXx>sKImv5Ng?Z45EibIPc6u+` z>7pY(Gmce7=w*k?`FrVYY+F7Bv)0XN`Fm?~dH##DUpS{OuYWR^bD#gq?JvWg7BHGZV8v|-K0D2gs;;dUeZ&0u@|q=j1uHE=f;b9Hv=#*zomt9yMtJ|L z&{Nao=AZrd`R2L*-}bz{Tk>cAqrdA9{R_TP&-L3s@xSI9d-DzdKm5GkoXYD^QP;Zf zWZ^4CEitQi#UWm%o0VsOUi%$%Wrij<^T&_cS8n&)T@|wp{Hng;rNYfVS*MGQ_uGt` zmt+{6zoMoelPu)4D5cJzldVPJ`kJ+ej;w9IzT$H4dE+~UPZu}LXPlJ!Vb!M#F6t2} z_mU;-Jy)M+DB+oN|DuG;3ZDCu@|m9O;#COo>a>Tz9No|JQ#?>dK{2gO%1UcCPF z)9-wK?Y}F++tzO7oT9jR*@Jz7`$AkLZY~T`@Q;+*GV$OxLmdOdnA3+A+*`Bh@w}VW zm1jA=v@H7aM?|*%QE_CKfJ4e;(Qh~RH^v*x@%v+ZU`E&UYd1O?g^qJ&9r_)2cGk?? z`5Mv(HP>uQ+`sq`$IZ7wp>J=zU7l5}7PK%_B~C=PdzoFIu1~#>yXb>QGFwGov70Vr zT)AyS^P4k)^XBv~&g_@;Zw)$TpmWNq@#BVucBL3_e?EVqmH-eQt+WIOtZ5xcH9k6yV zluYIA{cYnggFB(|y4A%A*S+`q7cndL{h2UdD#XwH#6pSWw_Q7o1yhxSww&RXmx#=X zkJ3KwxWMHEXB@Nj+ACh!t`2?ni~jfbF_n48IedO=-+S!cwXjcrzwfPj_#Y|VxBg8R z{moz5aKPrVeudV_`*L5E111(Z8%=(Ayk-BNz@t&A%OBsUtd@FilcVftTYq09ZGKDP zuM^*zADYjtP!z5^a{UOGp`y#2C(f~-=GA;L*WSaCyH4fQt8I5K?O4s#VKu9N$y1NK zE0E7y6gZ4xjpSkS2uRMd z@guD_OLv^w^G{1J`^HA?KiBthc`x)?%`mXJIIwN)e!@PNIN=&xZC!c?ixXG}4|FXDOEj*Ho6OOGfT<6H; z7V-4)H~v2hM3*eQ`lVSze)c27V`h(LY@7BwG;{6rPwCzqvfI}iC|?#XI{7cVf#K;l z&BTO>+(!#}P2~0j`cKh3FBN)GNm-`SD&l;)>5{|OYP{|>^z}RKd&B%|)_wnV?cS60 z7$2)$IlWZSI$P!BX2p}roc`~$Up0oGzRaif`|Y-`0?TXkHjA=PUUk5M!Eo>0wh*^^ zg~)rK4o=?E*0X8VvcRcdwIhyOEa{BP)a5p{lK4s)yS9!uX75+_v4_`_kasZpYJY;g9b~R!%>8OqaET zx#GHpa^u7*+Z&&*G9GEw!h6!62N0vR(yzug;`-1;Hn=fprjxYN2-bC87 z^-cIQ?=GG#g$Y?kaRSwL_bZxatvverqTyNBY{R5d@$>JSyXu~pt^Kj7`n}=Vn+~>> zQm4PFw(*1&fBm%l#T0cJ6J>)IS0g1&#TDx&30dCx#4g11ZQiGhPTACN`xc~F%E`>^ zSncJO^2RXo(FS4mkQou-CMj23*C;Z(PFnr<;ZqGMf0v%{^$o!vMPurwF4Okw`*QmA zwup&`T%0SU18nU$Z38De*eRz7zPwWRoC#W5qJHUiQ|1|H>1E zqz)wh{#E+!ipg;%w^?gXXq7(BQ)$>`>shqo>P(&#FYgHE815%Q+EHEgTV2&> zcfYOWT$_EZR{rn})$jilJ-R3TyyuA%C5O~ z)^DGc|6bO8Hpty+`>sbz%yN%*Z4P*G_o>OG?#r@oHvMZceqDBbQ}lcP)9)s3eWUu_ z<7xF$aly9D_3!(gzZmt-R<)VK^ZVd3o=0~@UVpjp_E~b^>b2AP6qmC6`RDrMe{1=> z|Kazu-@H-z^Z(nc2_YyKjEVlMUw!9)$)EE#%zobCymTth>sYWsVWQv(v+El*PnUl9 zy;=Up&$7zdPL&TBTiY)_`ThP}T|jdgvPZd!f%f!DpFiMw^$p{uE% zSUZJ^uH3Gj|H*~v{bP@bC&PIHS8e?(k^k_4um06dUC)(on@^dZB>j7>+xZR^4W8lZpCk{zy_@UujkrUlpIy zEWMVKbstV_S*W$9=dZTlkHU^@Hy7J0Enyq74^;(L_WjR#+yAB}`t;X*teJk&f1duy zTe@Sx$d%E3Y0ta(3G3_Dx%4R{yKZ;W*y!spmNV z%9hiomPopV|44|JZqyU&H?WD46zS>CklDO;sc>VGScu2_2^$hV8^8JSxNqj%%p0a3 zIj->RljscM_Sa(wpecfE%9ZMO7n|Npl_X>rBrcQY-T(l&)0jocM{)8_TJ zf9qNs0z<^k*sKokdcWb=*Iirp#NRPhPfgn%HgjgAPyW$b|IK^*?*2O(?eg!_cl+Z% z3SOnx{I5NJ`=P10!lfkOtoqm7xcXoaJZ2vv=&-%4zb^R-%&#rYVJ{~Q? z@b3n%$I&47zn8XOcp)y!v9dbRSXOt9=D)^`){oU%SKj^OcxKiQKjj+EE8?`wskcTW@Vt;bUId-hOG#?UuHTvIuS74?hbw?OvTvp*<+WO&YW@K~!cJ+~&wCX5sdd%WQ`m zohK{C&uCF`>O1_X?NRi@P!~ye6_dS7PL)blSG{<=@66WQriPb{lyC2MTAU!`as2wr z4yR()<jji&IkK@?N$q4{Jl6w{yJ^IBN4uds*1V zd3tUtZ`fmxAK!bXPyDGDD}&mhr`|`FDmT=wkz=~BeM)rkjmgFJC(pKS)J(n`{~<+o z?c^)lx%_&RZBoK>e{MD6;s5j7+toF*+ZHoo!doYwD4L5+^<+Dv{Z+IgA1V_g}zeaY=biSbFt>KT0&RtYi- z|7nuwd^q!{?4|jOwuBv9Bk%BPZ^K42GnT8OMqfP@l}`Ow+Vjb$Q$fO2C}Y}3$LEex zzrX)iGE231Z)C6Xj$_v?utlZk%R3HrPhD6)Me}t-#RjE|i_?Qt?)7KQ+_XC7xb=bU zInNxl3O9H&Esrxxa6H48cHn1!%>CU)uVR8q9xh$1H+{_q+fq*D&c4-4($?)`f2nf0 zXx#_96CRsasV>S4cyQ*AFw=t*U0pjCUb$xeRQdJO&(GP8d|v8klP-{w^>n3zTW$S| z{;7BG-`cY0VNXxBMdw?eBIn0>kxvX%%!H>qtd@KE=KGR+byIyb*Y+N}7&-Z7w4G=E zTmG2zh&QUm``5mZk8U}bdQOSABk@nT^pdT=)@g4fQ!U z&sVh^4zrfo{=1RU{`N8LbV=SBn>0>M%RcpMWA65DHLm&}|2KbsSDPzy^3aE$@BbRk zU!*+QLrFog=H$ALNeMl&Wg9;lmOZj{c;YCPkhCz+M5yD2-Tc36qwlA=ISEX9e3$(_ z+u1K)mhOUpRl<_oK~bq{y-!cGmBxkVt~=>>ZJPe|JO0_vf`8qfV6!y9>@b_UMy~IK z|GpaP3A^quT%a^x-N{$paS!sgS;`fpsBx-!$`1fQ~< z?GPw_&hg{^t3Th@cm2N-vG>11_W%DM9-4oDf36-4<=6c?{c*lj_GdW;>n^c0<0B;z zY$lR+Ybq-*`3IlxTVGl6$KAhQwWFP7LCD30Z1UT!sun+f)4Is>hU8bhzqWx1y38MC zT$FVFK8gCA{Z%11O5>RZ=L-)J-|%&O4q@n#8q%LjIyMsi&CDQSw!{mNKaSd)#;Y-LR9 zJ8N;qfiK?f;S9xhk!!QpbRX_8XMWS#^nv596ywbT6A`1!JRkpvbR3RZ)u41|pRME9 z{(C|7{vM4XADX*fP5r#|^Qs2@z%YX(u3A@~gFhJi@0`!7k*sYHzLSz^v?zE#H`nng zm%moA#&G?x-`uES&~)O4!-AdbS1W(LGW$;YWzU$ppx1`DwemW)|(0H7( z*5GST%F2`dujHqyKAWsIjmt*t?mx|`F*jzMJ1m|i_x0{Fw}5AVL-_UvoQY0nDCPcj z_@+apf#n=y_Q^X9%a@n#+4hhBT2FN7|5(xguV??hZ*$`A|B8a;|94;hfA{78cVFtu zf9<#ad*Am<{id#ozw*~MUjBRW)T_f&kIl-m$w=b(;ePo_y?oyqV}Y^-3JYtE{aoyJ zT5qlNy1`UeQu10r@o~zN3zp4%SXbM5+XSReXFwU|22O+T)2eEk!hMKgU< z)o?NZSC6UtW`h1t>(&&xhLB7@2tLb{jkqE zquQePSCzD4WI1bZT>L6=cimdHXOT5R-{<~#d$+_y+y28g!FPeZmn^w2-O1Q)*Dr1 zz02okNlKM9+~37iakEGA>@homZ;HP*`LmmDDW2#@Bt@0%eoQx+2TeeS##ph4k(Y)4lzN zG-V`p&pIf~Y1lK9$?E%zfuH+V zE_?TL&cTS!L8s+*`vj_T24pnT!FH*aju z_{QrhJyyA=cE0_XuToz4nxjYTc+Uvs%y{9@x5su8YsHy+`t7sD=I$wR(|v6*<0u8Tgo3>ma$&u(3&HrH~t+U*Z`m~r=E@|VH&=`eg5wV;b zT5pv88Tz?fUEnZ^I_-7%o&neH>8zV($=el(1qfyOyO`FTJDBoLRdPjBE7wcM3+ocM z-H4oflhJ(&cT=nMr`N5qDLLM9#j?`woA}hH^_<{T{rpMzcg^^~@~<-7f$ z%QTjCx0a-N9K63k$gtv-Q@)5)n~Be*TZ+G=PfR@RCeE(ryJNyNJI8mc7R>rM|M#O$!EFk^Q4Hh==cVPeYVfeu%7akb4e@BUESvO_{6uw)ooD^PrOelT$i9Y zYyJL5$Df>vEbA@Q=TLp@Z~gDlITd&3g(sCFHbey8=5yV2TT~(S6PI;zRnXFdOjo;@ zc$+UwJzp%?(7t!(ZnF%Yr+#*N1lI>FH6%?3M5CNz6K=m$^#& z&GjjwXD42)aQ%FJ^Pal8>Ss;Y&U4lVhnWEH4pqkMIfaJ9K5E^O-dgSEZznoP67oSTu3b&P01AO|dkdO=54(F3b-9p)JIl zbQIx}!&Y~0)%6v&1<~GY zZr$(tq}1kHI3JUooUC?Y{-?K>h5DY~&*_oVnbUgsyQYF-*O#A%{uO&LrFpVfK6dQy zVcY$=%T7)&PwTIZXF<|jrT4p74<2WKsXw8X>)`&>jn7Z=EOakir+$_7&Kup7Co*5t zJ1l=D{@sG~{``jD;U#EaC+x*tNRL8T1x+fy4D6P_iT$-CxQ(;b#hw|QGTs;6~puZTDo?vfi(+O_QGBFm~9!n^rfP8Xz2 zl9V}n@#>{z*NhgeJaBdKmcMs;CQh^3p6)f*Z||{H2Tng+CBmtl_t{A6{7ReClUBTb z`zpdgTv36oO+_|w24B%Eq3;Wu(-)eRonia?u)<2@>fyFu6Em!g4lQ5d+18q2)YT@D z*reid|4}nR?{x_xhl$5d9;nMD7J>}P(((eAx;6HTkcl2%+qu>9I|2<~jd-crUes}(B za(D0k-?96DVfp{Z@BSUX`?r7hZ+Y|G{}aOu_pubk*Bq$XeCfyRL(&SX&;I6L9?Nvo z&bs+$V^j)X&2m$#L#4AS!le(#O!^dY+E!ihp35?c3LzuK-A6Z6Ze`PZGgrk~;*{}C zN0Akl%VX30vso`~<34P9JKUT(!7bv>&1pX#^6Grt?DpZ-;=*@nr}l}e@h|m_UHP@r z#`lA{q><6mzXpH%cn%lUO;vBY!hUKeOYTDLJvPRVC$+}J?SEwFaP7}M*M)nNHt8?g zeUZU((~qg*8S8dAP2O#~_^x)k-f@mM!Rz*m__qBN=+d*kV{Q29pL$Hk%(|N=9bWZL zvG4e4&Hr(J!SlxDD+=uvp569Qt9?)Xu7jF)wC$Gcv99>Nn(y9~{|`^j?qeyEKAvwR zxxW5e*b<+#19^`*)(NbUp1Xf$2IuGbht9rm+qllI`i$xY|D$hpWeOyB`_*%ls7qMi^zVu6Y%#la#gC@GeJpSFO^E+q@wb0!>Is`qJe+oJU(3w%^SXljS3ld~ zRruL>^;+#+wQrSIOCB!T>vy)kVya+es`aF(k3lmG^%ob(HKv=MoY1e@r}tC9Y4-ft zwG4OHKUzF}-;b=Kot7o<1zx>U6~DTuxUES*SvNAfYl-at8QCWH1*ccnT=*Yxo$;%LurL{C=~(Ev@P+`@7bE8-IuHJiXAh;qH^P7xMceO8>rI$n>jc z_d+}Vxs}=_+SAp`)vv5SJMl;Q{pBT@PcBc9?)SSo|9tH6l@5Pr-!0n0{O#x6f;n8b z(@S@6{4lTc-j^$zuU}ji-&xW!^N#PXKUWX$VF`)QDAo_!bbg=6%>CIf%*`G<&0FwT zN9M-sJkR?J4=$>%*jDzP?Vib*Z#G%;`y!sJJ-lY)aq9X0UGp!$|8w_Q@BZjL@24xi ziryO@=FzpUW!~;UvvkS#dN)I~&eUk^ay2Wz8NJVbTj|-lILG#*wrB51@AjL$GpIP3 zW7&bn2EEqj)_Ru9s#_|mJMPj7PI}>HDzrOF#*_7t@Y3etS^h7)X4g@?p%fP@$L(?*#|;i9*nlQa{1z}r0b=#4OUFI6c-f9Keai9 z`9>9|T-lPE4JS`|o+x@2bU8!f+hvLGY;XPaJ&!Nh`matxcJbCvl_@cD>7vQ3PjfWG zlaCp$FG*W!Y%SiWSgd-)@uj=?ndVidTb=E)e+soOzGp_9cedLLQkx4b_mqge24qu{1_lT>TmX72A%KdPzpxMl@}}CnBXK(R?VWp? z%or1W&sDhWK7aR$gu*3rah5;1>R!wZI`1`3-7b2?qt08p$?SNfLgVAsO1*3^QsImZu#M!dY@zsqfNOYOU73*w&LxXwId z(T(~$sTZ%LT}kq-2x7g;;BMizI&RG^ub$H(QthnK?SfWv8;|npq^j@*2RiIo=k@!L z|F5|xE|)qUKK^lPwbI>e7K>x+CU&mV%bAwHJ+9$3e~8Y~yR+7|TKqbzaQCIr%{>!t z?()j?b$FUKzf!Si@sj?K=W;5OAEeova%Vi~5Aq5N&b#==w5In^PjB|LGG5_ZbG>=~ zy?!ktJN0R@4gU<&jdK38Bf@*~6i+>WxszGuHIv&c*@)ZKb1Wmb8ZGuj-ahzF%%zygJQ0HSUW2!4E+JsjNc6 zB2|Z{G|N2BwOZgXqcQ1kLsHlscWsy6?ON{(OQvSk7d>388*yP5^W>+GK25On|1b2A zF~_Im1pmj`C*^Yln?KgBxXUV)oOre|)AGox)$gy|OO4vi@MX)zo`$a7&Ii1UXR~ds z5V#{#>%O5lS^m56#{S=(kLyFtT`$^Q*vD)pmnIx=MJaX8cFh>)#+OSCorU z7oa4jcuFB%KDsQq#^X-PP36eh0=GDCcBt<(kl!PDY5P3Tb(&*a{AKCAd zxVhUe-|@WkTF&+G7qftsfU7S z`oVJBqP)J9&s+Ek_xQ1S>RT$_dT{k(>(#%nf^AlYroT+FHLw5NRn8X<8$d&Yq^8X-XHF!T=CNgz1|!4>96qN89I&c_k~Tm ztSPs=Ij-WS+rOK3mf@~$CH@xvvrMN7Pdg&k^6QyOkM}AshR{xnf|pPBJn0Oss;_PA zT0Z%+(JO~W@wf>-7riemIb_++-JW^H&hquvmsw7iU*0}(x+y~AL{i`9hA(%sxITP2 z&a_(m?ti8@qg8Xi{#*6q{&#u1jFiX!ZFc>C@b2IByMNd3{vBWbegC_6^>^?7-}UXU ze(gl<$2$(Z`@XD&f8+MPIo56x=P&F%VfVG~Y)m8Dvog`LB)pv?%&ufJH}bdj^Ci=#JT`QFf27yylCo^5Ub3N;Na|hHCCdeK zZts$K@o^Gs%K5}s=Z@{)7WdR`qd~}dPm`?d8JiU=j!c`p+o1T%i>%XAWP$_SlR`^` zCc6r(-X5vK%9tXeYs~+|X8M8TYFnpycbX(Gt}J7^t@da3-jeUXt{!{+v+BK7>(t~2 zH|ylLuGKnm^0HCaj=V zE12zypIl524Xxzd?!UUpXMf zsK9&t_@dUW?aQ~!;EnixV(C@a+z9EbIc_^co>=@lx#jYb8EYCoPv7d}qBnc$2iB=e zj1`P5eDgW@&65t?Jl$B_q;A5YzW>&^v6O5EJhynK=R4K5=&voJ|_F{hS{-RH}!=NgFSskB}!GNG>aWtDe9;g>?eY z-nT1Wm|x9aaZl=rHMjc#v1$eTL)w1#5)%IxM81_5x^7e(EFXF$;H=sc9sSiAy>i!2 ziR_dK;JP0*Au2S!mQ_EZTGBq;_n}#syLXV-B(pUcTJ!klaWQQ<^EKo-Bag+h1~

KW-yPWPW4o?s8;4Zk!^JW`I_*L#YR?{W`g^9vSXQnl`H9x^WwXy`-72_K zV%lCNUc5{#raJT5GM9t8viEuH6w_Zgo?JUg|& zZ{fYa&dZM~m93p!8&;gMRXD;TYh8}P3bD}S$Tj?bEI(K=)S2vY2}!??F_^N{2hMnDi z1Mjeh866baa%opegYP@8a~Gw&cmh_jYp?y1$MoK%#@On>lnnVbnxU&?Jg{pq4kkONDb z@~7wv6I>ThS7uA#_Bo~TETpVKGPwVP^HrZr@gK$Mi=@v4iv{mU>Rj2y8<2i}X8Vgj zHr7u{j};V%b$ewTKU1_S{QAQrX(P^u7r(5R>HqEV)P0MWVCe0>X&aY^uH*L%UNwVr zbKMNr=X=k1q)dA+v-0(OpLb{0%)F=Veqc?1!}skb+t2jw66yGwA%JsdYK0eHiCkE^$}v9AYe`7> zOtz|CNw%}`k?dckI! z!>HOUC3cQcrP-XD#WmcYmlthe3vy#S8be{}nGAtu0IMOt5}#b~=3W#j-gKe@-e>bjeF=Zo_}x778k zuWMZJbo+nA_UVH?YYg^V_$KI0$T-`#&pjqQ)cU^Cr)S=Fe;@xyu`yxD{;qXHC3q7 zwz6vRVq2R(4-VVb{0i>>{-P|!FFEJ^wUbY8Wv18sZa!@Pddm6MGa3uinbQjP%si0$F-g#O7 z?u&i-uld%0&(Hn$-0y#}?BDZWxBascyDI-dqdfL|tZ_}sCBKt*s_W%L=S}onoNb^Q zU*F;)`@Fk&(#|O|MGub}*nH(?+%(Pd{)@@_XAHb{an}5MUue>o zrPj7-cCvw=|4D}y_V>qU{n$TkmHMq>;c&&B8*d%3?7V!uTRidoUS=g(!6L`U{!FM3j%X7H#sU#ma!;~Z8S%O+Q!PPA!n1n!GskkmdT+BU`4-VdkzCaGNmYgySUL z@R#dMR@EtQiP&>MyO?v0`@0j2u@_=%3!B!)F44J}xaz~ff1C zhwStW+xxz^KkQAo#A^Qd2YpW>?R4Jle`?k?r>SB^+VV$Y`Ny7aZcp6){hZv2mFEw{ zoEP8lQu9OY$2HTw*ByM4SK#*v?AB-dwv}r=`jK^}|JS}N?z;sh+&NZr zh3Tr>3!|il*(>ti7e#9AbU3@`*6};-xAYfRupBw&niHEQ@3743welsm9fwRZ|7`F% zCvkDIzFf$hW}o(xzZ&AR9{;<}N@yA*e|9=}Z)V(Qz3UC(hd-*@knjCSrk-?eC4K$#=+LffxxPcBF{OTCfV z^=QQkp?MDZZ{Hm{)aut)QrqgBcWO_Wp^LV}Jp0x+2c~uS##DT~d#qmmuf6rt?!2?C zCvtw)zy0^O{eH?@`}g({d%;1D9Qrrw(`rxq*^A8(k}BP`Ah((8zR#6?nHDo=cf2s? z{-t=Ry0JRj-Jrf`PF6klvx203n>i<4-?zSD&sC>bwfLi}!VEP%-Ro|37FQI$nip+T z_2a`o^P7)ZCe01Joa-svYY>SibTd(Pe^r?cR4eh82Csr;1_ zMUOoZ_!HB;Q|W`4W?!l1-Nd(FXW4c={+oN`!2eIHyG4)B{&eSu<$q_1Pk{+6iEq~L zQ_P*{xav8#<=qbg)ruWYU+J&vFb0#DT@yDfqYy=v+|>oxBlUm1Ps=(_MT z4|X=yshmHY$g^i-W>d&qxmCsyJ8xzM&X;0{Zkv0=s%GhAVY4-havG0#eesw45|?hH z^4se2o|TQv1u=oHH~fzzP3vEu64C4adUCW>&Ktjj9PHd>9q!JbWOUUn4UX6x%3GRo)u%7fhmpPflK5t+J;>xVm`GvV!BM6Q61~RcP|o z%8D!4w4c2#QDvofn*V=z{KteF`{HIWZVYj3{oGLWd)u8~B~c46r`&yeenJP&(+j@w z;Ux>Q?$(st3-_r#=lJin!MjwOMIz=Eq8mSz-#AltZ}DT!KWFDZELJO88oTiJeevZQ zmcm^-IxMS}&sx>hr#IEk`I*gzgA?1%T#ajv&+nbue6!m_=|-GG>EDivK3CR=m*4iO&3_6&3mF^oIt5CC$vD{Jc*?y6xXWTbqhg9`* zPI>n%mLCx>I{Vk_UgykDlU*JhQ+~|NUScJq#@TYTkM&5xw>0C*o)7)&#s6%6t<9>m z{cmwz{apbrlQZeh8QSLR{;P3(uKsvMLsR#UcQr?9Sl{pEeYg9=af$W6>hr&)T7236 ze$AY6&*&N1uD|=|?mIW<@8RsYYb%}>N8e!kxzaS7d**%Tz)Krvif`^HdS$k%VbX+_ zw4i{t3Y$wm7ne+yv`jB~Np`TdxZua6E(@Mqa zp{ILjk=An0kURT5o|imTe_^H;+qR|b>W`D&m9u3wOw_PeDGC$wvrF%HxiXJc^jOzR?U8v2jjcrh4D?|aj)q1eBE zA?uIaU6EVXhdI?wvh=#{ekblg)HXv)-t)?R++8_MFRvJHnit&vazkbMf;W=)ZtJzqaRI(&(rdG(LTe7>h#fqI+6+Cs(y{ymwPfR#z zwL|WVaah?@T?vDK6)|gWe{J*A_uYJr>!;7c%IQ~CO?F0ShJ+v5%o6a;T55v@V@^0iw@V=SKh7`m$xp)BZEh zPrBYQXwqH1v-Lxuug_EA6*8~ASN&=2KJ`ua@?4E7f8mD`0#S-l1x)#8quynHD7=;+ zU>ea`*WCI-phEXv`?krh_n*DLJU6{OZ$Z{y^PT>7-X%ZY&zdH)Z2hI3uCu~73-1-l z{^U1(p;hFZ&D@{!w@k=7d$-;?`1szqrhD$PD~*2X^EMC*S@*C z?&P=V?tS4UHFqbj_I;lzY2jX9p;xp2rn1rZf1Hd>2WGRfcqM%+5__|yCm_95`0T=v zR;$#=ohk8lg|#QnbLmB$mS?x0pBc{?uM)fCb9_SL%OiGYS^hc&W=2T-64BiIa#rFj zi_)3=GZW(fE#3UEdfLi)zptNr@$PhCmfEw;QfX@qO^Pa6KQD;k*e$r#>iEkwR|=J; zY<(4+vfntQR>)8z+-v8)7yj0Z_C7nA6ULIj@yvod=g-FG16yxfvCJ`JaNY4O;Kq!{ zf7;)jy~tytT(WR|;lTrQZ)(TL^>2s||0|sMe#Y_Uw6{|1mPfxBefQ+M_;c>z_UxPW z$LbsZrZ2wu<5}Xhf1e+|iv6?Q`uBNc^!ncaQz!m^%e&TYY7)Cd^5>6;L;B};ZEoH3 z^su;ILYaV5<+VkU9(fSv^4;o}W z(-;4l$F|RX^}%N{;S=t7dt@v)ajmUgXUZ~>Py77K`-JwTvTnA|58ur*sn|l|i{8YG zZ=FrspV&>7IeF@s!@3UH$B|ZHJsEwMM0Ry+d*-HQ zR8wK+z2^C@$B%aiKeprA^iA?~`;|x=k6Cb|{sXK;UKR$G_s+#k9ZH-A4UUA%s6cGv{tOLO?$zoY#8{t30O7-6Q7p=Io^p9HzlF3@cgXgTgvrOk`jbznD7Z zT6I|YftY!(Z@xWUxUz6EC->PGA+H|ZUchp7g0orF#BBNRXWENmrC!)&RdI;M=Dk|= z{bu}fnZuLzbU2;3xb$Pt+=C3ix694#3zp)YR_$S6#by0o@Vm;#$m1KTHdR)oJWdz7 zdi2=wly}-ad6%8$pFikjY|bpWX!pJex0XuxDmC4U4O$a+j6vb`&NbY9x1I%*`Yk^9 zJLCrQ@=d`Pr8th&hCE)7BQgJDo1$#XueddlO7iDx<$ke?pVXF2SJd9M^`!5kP?5~U z4EeDChyQa+8Fa7*#EWZ9ZWY}7r24PHx*au^+|%#9WXLYKUi*6OT))$6iz~Bv7_V+< zbjj6I{F*ZDSoO3$yZ-KRNZ1?PA)c$uHDQ;xQu7IZg)IlgdS?8uToM~O+i2zc8wW0K zu3pC*aPpqczE^&~zB}{sn^?pyx)Kn@x#e5>hqceoysh+nb&|FXaQ*ZtQo z>KQkhobT~H{4QJI{O-r+R(#sF@=k#L)l>V8IM;>F^4OvKb(+tVf3C;Q%4qz|anNf~ zbJ#n*SIcJ2!Naq%A6>Rw-emQ9$wIa4UsJ5@j-8L6!JJc}xO-9k%s10{SDf2?`p3n$ z&1K(QKg^!KGhuqPU*!o!_4?$1{lB=l3YnOb&j|P}6qvHo>e<#gzoykce7yh1%T2FJ z6F>j-Ud|u3(RXh_+}*k(fBo|BeBH%=bM?9Dr`G-NELWE~*fLSmnpyev<)v)m8`K|a z{8_na^6eWT+LgLBa;IZ8css34Ctu?3Uo?+XCbg}}Xi?^wNi`ocR_Ym`CNXG?w(?9yoo?RfmVbcALefPIA3Y0A@ z@{DVbe%0-r`%J9&*1zRmn?pmVmmB@tzx9v&|I|@85Fw_^mYBCw?%{^_;SPtCvN9f> zOS03N_~^o|7-uA0I=fCnd zo0?j@y+zm~?8z53^Yng~lEk*NyW+2@bIgbi`e(`|{``>)*)~ouJ?d6~U z|4;hU|LEe+_=WT&a5j^^@o4{+y3iS z^RFys)|>71`Rne5&w9Rk?MVmSRWnX6e`R=2qtBou@RZw~4axm&$6q`UQ2)&E*0=Sa zwaEAM4z_ED6N?yMs84VG(b+rSJi$PZe=FnSDT_kIdBcC-Ex2L2W=+##-*CKgVY^A5X#p37WqUC5rGHBqmx_P&cU#^b`fl1q zv)Todz5led?f)wn=j*;=p=#CiC_C0IqLb!SEUAxsEbb;4yP87l*x8xTXM4Z@9)wv4f%dOY{m9nZZb>Uv;Vxk$oxyJz$E4upUX#MGx=csA8C$F ziJJv1Ub{AS)mU_#%Q)8aJLRhXTaK(MMN6UNISQ5BUxNrd)e|uJe4}U)%ai`d0FKvK#c<1?ydw>WiAqQR=$(ZWr(gjia7{1E+G!F$!a`qlMSCw=eE31ynC{5pNz zp0J-=wGy(A%(!%`RV*^cSvPd6m*njU%okdfBF^|J3T3gp2)rJ++TmS(_?_=l-9+Qs zcim*{D~=I89vq>&soPAX<5J-42{Kx5JULWatRjOiuV;F%=}~HT;7Tle%0_$j}#l`7%`bqiFZB^mK)t59ca6ry1E8+&{_IX_LUnG$Hxu@d+MfZdE%@ z-thRddBSml6Rp!1?J_Bv!qeJz>@eH;>{N}d`_Hw^U)sBGmGQcrnR|{stoUBK*V5DP zy6c%h!<9>SnVqZ(S-r%?_s;~y_JuARHCVoNC<^^IXfZpibR@j%SlhEttR6qlxpuMr z*`qe+z-!fV_bjWT>V_}+wF_2Gc-zXO)o0GP@Ukp#WEqEsw)4l%l|{{Z9YVg3uFjuq zrx#SDytckW;OLgL)Xph~xc*gX=|GoFiYh#l?AFcOG=VYO zz=`jE=+r9We5O)*kGS3avL1c%%Z@erbHp;W*O70=q|Z((XMN60 zJaP8SYXLEd?>jr@UTk3cv~)@OX5;J)*W$UKzghn(IyWSuvvKX=cdx>~n)-Xq>Y7>+ zx!EVf$fobs8=vL*C*~J9JiTMLCbuGT^`VewVuD@bkItq)c*?ay>zu^;qajf?vu>%C zKRa>Gc>T94nQV)ty-`m zuO{<}_bkC_0e2W(woi6py6|}4uXBkhF2XyeIm9X?%~^3N`HrmP!%M&B+kg5uAzu1a z3EPyWZ{aGw@(~wL01OY=Nd> z6I11>q(7MtbEhhcB!9g%dxd#wUY;K1GjpDEZOczysO(E_S*Z>1hI{b_Y9X! zTxz+1fpJB4!gs-i4<5xRC(XXLD#f7d{DtRQ_f<_}t@>uxZ;)8qS8%(>itWwpyR$yc z-S0QUZA;N&{ynQU*Pcwi`0&=#MJrECJu|CcOK-O2B;haG3hB$8=P0L}$ZnNy_KMTf zpOFwyI`v6q#GiAkB=7kxpY_5=dfJir!pq630S&veU98;`=Cb{BN>zKo#Q4eK-sC`k zu@J|Znzap!USC#BxGC{TQQ`6f2F`|Qb&N}1GZ(6=`ARRdj&)lhy!~^hVJZpU>V(H)s6G$Y`5s_2xlu3b}O>m zRQ<*M1~u`Hh6v%it4xJ^pQoi=njn<9EXDMHiK3#(=BZj|mM_1$rzPy_i}2v*$urc` z7M^)o68Uxc_dQF(zN+^zPZQYkGowag^1MmQbRNw4{$N)6v+rgnwrwr}-VU0Sy4fZAEiy~~bO zvQ>5}PBln-b*POsb;?$)*FPqG+_3nhK-i%;3kTh}u6Hv&PTG6zOxE8fU8k&NsUMFV zoO0JU;ACUmjfsoS+FVjM$zbbvcy*_md|b@kmnj@Z7o8q+tT4J_l7CJ*p!`|0B`jD9n*>h~GUmvcy%JDKOe95-bVLUy6S3n)6=@}-pw5UryQ;Q z7q#NSo`qN6+zS*;k1p<7b5kjM+leW;EKY8}Ip!;6A3DMr^V!Lud)oY~`%IV%nR@%T zTwwp1W%}c@=@Ze7f~<~f@4c2ds_=EOe5}QCwM|bC3UkHf@^F8azF7M0@{ZRTe-xMt z{4#DI)!oNcRAUlt61(-Pl>E%K*Dkyh->_kG@&|#8fMsoec68m`IBDVT>#j5HUfph% zex7pVxu2Qp$U%AS3rtPAfgqwU^nX5c{!zw*i z1|_SBR<=xjmV2wlH<|gSe9`AeslPbPi+-+E-^jUld$5-ADTXUrQ(ESIxwcL!s`LH? znQG=al0k)&RDbQPU9Rgs>CvjImFIbwWEX6)aANu?{l@jUa@f1&`!_Gn`0@AF1mS9`SFoSb8Sq#&HiUB4J{c(%3C$(uby9BvT%;>R_k(s&G8c=R@^i& z?U*A~zdx*Y+KO}4Ex$BUpGcz@l8n1b(l(69SZbeRu z8V>fuR(^p>9Vc_W+0RS;Q52e)a5XRWX@R0PTX1Woo9X=|`|7p(PX_JJx>mC0|0>a1 z)7>S>3p2UD%SUey-pZP_A8s)(;yx!Q zW@1_B_TPzOJ26b1Kq* zPxzZ0b*lPf^_5w@LS2`R*hwb-jqmL1PyAb0rY!Wc`~2@cu2&X>hxsp9`X=wDTmbWp zWnw~nMQ7}^9euCv__pNWnnR^0xUTC6tov7*@mu8l?Ug^e@{ZOA?tfHSl{WoHvgt{g zOOJBqi)@+w(#X{Qh-b~3eG<>4N^ku+lso0Ei=gP_)lp|nDjKWWuKJv|oKtT&=TcG4 z?!Udy-xk)~j_rH?#w0L*wo_5&DPdtgrEKklqX(X-zF79y_Gql>j}=?ax|thBpSM^f z?(~1PoAi1CUOr~;(zwETsb3Ep%(-*odPd%2qlfQaEK_Vg8*_Dr$TOd}5sm%t(vlt2 z8p;LvcAq|U^V7DpF_wbRL$RK{nR)P1;bv}9lfm?c%6z=(}IB)(? zo5B+ilPvasM(zI>Ogp|VKt%u9jI z7Ow>MyF?e9zHT5C-lec`&;6@Kb=T#7bi{S%Z2!W^|MbVTyR!pDoo&=2Uxsz(zUm6$ zm9#v2`M%~|pZO0pu6TBATiM-KTk+$#^t^=|7jmEQ-pcll|J(ZS;osM1Z=KruH~H(d z8M9<}zY?_D+qiv+yya?%B@(&Ed($N+@kstV64QPtIOah5{#AB$I#x=qsdA5Ycgfve zvBcJgTViQ@RSM`E!hhxWi*v{9bzh3|Ngs5~#(EqMoAxBSX$#|U;n4G>ZtH1gD zmxWt+4@b_7TNyIRJzOj@<;LtUPnQXGx>>v{+0Ly0`HTOYjq<9we#IAW>EE$hDl$v% z^R;sUS6;3Dl=V}~jcdjS*UV!cQO=u1AFO}scJtwql@S7bg3-s*&wQJIX>IqdgbT|` zc=hYnSv>G=pOidz(yX-(_nq|S7QIN-yREd|f64u=p;mvLv#pPZDz&lXO_6PzWbD1@ zL!Dc1%46@cg0=2n{34(F>U&qtUY09+q%qI+!B-vk>2GE3f8jsMq3x3YaQaNuhQ7Mq zql*=J=Q!?FskE0%c|PG;giP2+SEH=YrPIGgmI%DIbTplG*S(o@meiA!L*>p_tZq#KDb0%r+5bw4y)hwe-GXY-fLoBb3Fnp*{{<_Xi_hzSayS#1w zt&~3P2F{0yGwWYGn7Q|Rak^{b_S@IYd*3|Tu;kZ8&eyq6Q? zsMRdE*z}EG<$_s%ofU6gcUqNpT>ty83kynI4w|HFDKL~+K5LoGOX+Eu$`$XGA63`9 z?+ky~-@akDz!?wGP2U{(&usdxtNSgu?bH+7PlYn7#4 z7AtP5U9R6Nb0*l~+SYi+a=x5xa@XGTnoU3SP4fNizZd^*<$3mgede9wC*}VaNwC%* z=Xn49dceo03J>a-Z^ccR&DqqzWvXyNQaQP~KOynpsg&h6RGzDUoLyS~Hm=CYFezz| zX2-+2r5*8KGuak%JY3AqDiFtd`_+@#$^X)|vz{m2yv>-LGxzn}Hsh4<(wo`4y*^c( zb=cxsy5Rr=vr~c3&(`)ck{_}*JeajSB&Oxl&Mn~=lz9)ybG-Z>zWS2U!T|F*x|?P> z&(xddE)jIwBQJ2BU!Q50cFl8%8_)mVdUgNK3OQS=hc72~eUMOjy-F=8SZqn*y3UMU zA3HMVPG*`vFW=={_Izf``}1ATWrt7x{IRsNl1q1etmo%j5>%&(6}$eRImTzSpf*wD2`{n<(5^l%k z`&PX2U(_i7;3d~m_c?J-e;?m#GV|$c?zrtu~dHru{^ChmgZEMfZezj0z%0&UW z{F@fr|Ls{URpyyCcWLQXW4@1ON~W)8e-4!{vUX9MHSgStsac2GA_e`;Pu-pNrs<7K)_vY!-dA*?+qq+vyuM9zd)~CJj_D@r8@{Yp zy4x7ENZfz*tgrKrJpbj>_wmr;H#^r&f3fSu)p@bkFQ*^c@H3*&D0FU&%(CmemsYPf zEG%S}er`Uy|FuEfy`IOl`_yu3^IzVcw&Qv4`D5w3Jih(QU@fy+{DNokTel4&hrZn{ zyZ-UX)h)dSosU%)hsfNsFi*WC6}VX~&1ljGj=o718#)eEY;@pzdU?^~m~$J1Z9@#E zuMm{U&pf&Jw#nQBf4!KE9-p}Pz==y|*WOU!RYLZB48;!5ZloI;x$m)j#Za`vM|)0) zuW`hEIU_y^-atjSk~J)TlkV+c6mhdMzAJl3KSZ(K@Nm<`4ZOeIaz)~ot*rgDT>0*% z z7q^SZv@LRa;G<`?xmg1z%WlQ|-m@&sN0d`5 z#e;e7Nwn#_yOS;4W3ejD>Q+VT=5>}fTYlP_Zcq5h_hwdrfBQ_v@cb%A_R^S{JLm5> z6XHINRrzu9r7z;fJwn|ZO!qg)=%;b5-54!Y6n)iq(Uhw4i9Gk~lRhWzVezc^@GhyX z$nu_nc;=N;Z;KYoaFv`)=!$fCUUH{Cf8A1kpA%m+r@V=~H1%S}6ZYn;6Bi5145WPK zhMc_Rs~u^*We)q#hW&?5^czSky*b2lugkTv)8x+{)~6Qx6T@%+;_DObT(rkyiT?Hn zxssip`L>T_HoxY65SMaBW&8gE242Oiiw`7q-z*HTh%{FUkI#|jIr#CR=+#Y|8y6Se zdA;l#-};40Vm(2L8yL=Go#rno`>_Q3iq_OmW0RC+2mh@Okump%APz~X+rqnr|Z_ROrO{7^29f^Fg@(* z8Kqg~I+J+s#Dr}tIU2Al@zNKT3pYc>p6ac+#iuT!(Vq9ODB`Jn@G_ZOMm;&~Md#F8 z-SWCLMbe{AF<5Lqcw^fPZL_V3(-zuBZ*tzLKI5rn8VGp`EDNCWVqu)g_&OYM|aIPlVX)mx(6(qWjw(ysIc9w zty*x`0=8py(|&xPG;OaK>&JkGPY+Ywv|hxetXkkd@4G_y5~(|JRyJ$67>-HB?91Gp zUH>;RJ9(3y`RtCm_d#c#oqcw2*4)X)3eUSu9o0`Z=?DFst@yK{>+T``iup@EFbj3< zzbWMXx93fgJ#X>+ivBd6$Fu!9tpB#Ixwu#V-Mz|fjN5Xql@&EN&tbf_(jzRRTPgdM zj_xPv+Rbj~eLc7RO-_Eb%xrO*{I?VCdt4u7ohY8Rco+YPM;Y_Gyrzc4*q1-%(-!J% z`Z-V5)B1^@j*xHk)z@;Nk9wH*y?%Gnd~VL}@RY4DpKo^dx^_{5FOfm`LI$%<+#IX4 z_M^?pDtT@lyP7vm|F&?)D$%ELCd~6`-yz3oBDUp$R6tFK)UT z-)dZ%8(Hl(h5R;oOx< z%)7F`T_{(bqTj z8h>spb&4dpItpFW%bK9{h2b4b&3>&4>$|MmMRt~&NyPr+c)j>d^SKE9l6N;If0%Y6 z^G@2TJ*~f3dA=-V3o(4x6Y!AB;W3{;cpP6{YnQ&Wj!bZld~RURy(@AbAGHa5vs`5K zy!P2Yt@-Vq2Q+QCs=Hn;w6vLQ)D?4CUay9%TGIcAjpJ~$R`+wUrmw4qP6Plmb z=Ds^P&-!qj{wqCi5t}O^4o*(i4$b;+-P`Y2pH?)f>Qm6%qJK>I#1W5QZE5_8UaqM# zI>i%hjGk#Pdh~u%yRl1_!oND7j_KSsdo8+OOzHKhy;Nb6W+ZUE``I+L_T1z>6^*ms z_#WK%Yg=eV_~g&iN;;GaTX$ZHPrtIz)L!!1>j{RL)=pWW89(cz7QczuoKPyy#@)Qw z(Y+zM`;;U5rR1RE2T#sKOnpAZan)4rok_j13ukXBdOWRYn&RtOQJ3=0uhsr{S*r2f zvT4PAZl_jxZ+Ejf|GcE@n(Ol5)E~-y#!GkQhbx$F5cgty)5*Xm`<;DD=i=$=a?f9_ zaf_XJSo8J*`Q2HrUZGc0?uKk&+A%%*_-o@09123)PHt77;4Gr3zTv}{i~WtyXFD!< z(EZpb;I;7w9^E;r&r9anS-QM7+^eSeePY|0)N4;{9%aAk^KMVxQ+QCYZPluE*Vb6G z?|RwweZ~G?TxpxqRvFYCH+-PfeWZ2WH-W>J*P2-~-$(3@y0VdN&K_aQNsmwX&ABho z;AU!-lanEJVVdpoZ%!MH74JxYZ`;3{ELeTd&E#n*nfo!FFBT<01r<#}7q znm?X0WrCvZ*12;uS(FYZO!Vt+Nc7sI$)ljP_4kgmPJujYH)jRr-t>OVxb->9hM5Q6 zip(?DWwz2wlzSMct$kwh#SXtC=N8ZFn6hTBn=Qwd*Bq0hOhj}oyjDphi$$kMKVI=a zyD0PKxrC16OO+=a_;6uE`Adn_K_3=+PdK#eRv`D53a8c21j>~!<|kj#T~w`m8 zY@6Q-C#PKbwxwRY(nM64t0m(^;0$?<8+v8I-;RZLY|Fdiukz{vvyFH1AN9jim~X85 zyWD@i+^K~!iWfB3Y2`dL^lMDMS#_{;J291GqIDs>1&~C zoVxE(|MW1Q3qC8at`A_Txf8)OEup%e=fq*|S%S}uY!@!>p6(xiZ%N?E=nK;M!41JH zT7~v+_nq+jz?Ozn#yp&zuQqr+{FlHvFJRK)Yd5Vk`peJ$2)KIso;z!DV1Q5g5+(lA zJCpp=#b)2Sb$NQR=;SG@l;ezpvtQa7>wBEP@afXhfH>n{8mZjMQ(IT{_VKDe;qT2) z{dTAOLCETaiR*lm*tHqXq(t)WeSN*d;J4%Tx;x8mML#>Rc0*i3NQum^Eek#=ZvSNz zZ>cAH;?VLi|L_|t{i>Ef`Vw+gXo73UjibVjvl1_Uh)LS)B=Sx6{mSZ1$6aEhb}|b_ zJATj$UGK%QZ0ki8e}kVvyvv&oZFwI!jlFw8ie5yD1k1dIEnl8I@#gJ6x+d=5vd5;% zD|Y?J5}tRPE&g5gH|uW)_c(8zoS^pi(ktn2*DeaVh9oGPJXbjAZ@l=-D`z(*xsUaQ z#jomrr3d{#ogKX2LwWOw`eP0!mt?&5JjfbzZ>3_<<_3%W@3XG#@nHRT<)gr(5YvlK zR>|x?J$at8)Z}9ATgE(V2;dmoO^ z@|!!$hw(hi9PP)tx=-5Jd6(MlJI2i4W7x#yzM|mnyx32@d3M*{WKGqu7EphAr-X}t zY}e?)NDDOF4Vs1>yOC`P9~qczGk*~k^h-ShtSzNbeMB$mqX_{z^|J-oQW<+Nga^yvbQ}`r|)OjWqUbEHV4BcSy_N)bJZrllw-{6ORSk!nloE@-qVz_w~;NP zGd6qtXHd63{r0TF*}hHTFZOCLUEY2=>w@(16I?Ae&t@O}mv}MVq*Zs`Ud@`^H6Lyr zW!O1)249Wfo$v)AzLvhfyVEXyN#2z`|FW;`iqB$s^|v-$c_p9pXZf4|jNP99E#8&q zpXT_p>Ti8=uIc9g?RT=vfB)b8_y660|MULWZ~wpl_W$_X|E%->{Y{>6$j@J_WKuHs zRHmH9N2^#e+)v5-FXa2a?PiW^(9N6(j1EvCBpM)kDjh?Az7|bHDGK zQM38Ktl9UrRoD0W99NXeIV`@0X^N3q0@L zb7%hkzQ2C4tB>>-*LGg#`Rpw@#VV!lU1R~1-6mbA8^IYKO*+&_$)K)V^3D) zEmRL%dheq|Pr9{?e~Gl(JJCJYO5O(Tm1g$7@R)t?CC86@yh?R9hKDV$+r6kQ>e_bp za+g%$L$OCg!hUXadwF4f*3>iHrDe;kO~OC)$h8ZLi*4VLKD{Dx&g)CPjI5!x7Z0tm zl+O7T@p{Gk2ikuuEBP+$u3;?u;+5WaG2Lt{VB@OMg~p z@IqHHiYHBmWkbZ*tKMH46&~6J-EchS%v$7gI?TaOs4w)Tcge!IpbaOj+ur`vESRjf zCiwL~L#w&n?Xi8lfu)N~7XR&-xBdK0@#p_uRVCNv{{8o>`D^>@{%iXq|KI*~pWkwm zrkjfL>K`df_Bq6Vc~Qw=yZzXkM=lxv9*MBBbfsSP{Ul(%%B6w*?^dnLpB(q6JbY@L zEgn@|wf4Vh#=;L7%D1B(BQt}7Sa+k=+XH2{K-#%*h?f>`R{(t}N zKRk&>J^#;fM|y9|$*?jW=Eiv$o(^%IN3zNm~abMmlTC~M%(qxP6YTpIkoxhak@cH)N zgEMU7T6-dnYbyjyIcWQmwWw;wc^}qAFYLk^#g=eR5S#mn_7GY z{9kwe@X!D1ugTp#Szmv2fA#in`a8;_vzbCmtry9MmRdJ~h@|_uk6)F!*sXe1#sVUa z*sgk2*0R@L_N}?lmldmS3w{O>pYp`Rw;xYoSTq0Sw)YwbZzn9C@byuRxA@+R_BU@; z|4sRQ)k#}|CsA{@&X&3d?ea|-LZ!F5pe@~5K1O+MLMC65zdvp;{@{@~*`?p3)P zl|;kqEu8Mp|BxxAk#2CA?V+cL&HV$L*2*h5ir-M3`@yn7YSML4F8BJCSzq~1`KT-S zvF@HNeZJgGbX8dWgXi)Vx!<2=Pi8wm=~v3@rJk+N<*#_%V$O84dzW{sfA_9MbJuQH z6P>5}HC}r5Y%9_ErO)0TH~ai8*|V1C#D$eVbWYmm?!9&UUTq@RiQP4SD^G{9p0_If zee|#C?7sX@Pcd1{(pi<-6jqHtDgFnOl8Rd z@^ALuS~4;8<%Z_ckK8)CjvM|a6+h?gDfeERv-&94^EIEipRZx-pZ_k$#yPQUb-`2R%gp57+f;A-U6Wn> z_^7{hwY^TfTc#;PQ8v?C2KD$gGYVI%`fRa_LFn}-FHRo$y}u_v?ta9iA$a^ahh&}8 za^@{X8;j42RvnjhyrW!vDB)fvS4NiQZ1qjihYu|Jv5<3fra<4NkAfWE;`O4JT-(2< z^qi3Af$XT+=gS$JxvN+u`;&MUOk5E8k>T!mW&P(uVGTw8@iebj1`^N-hXWGAB^47T2 zE&6JKOKjdY7FMlp4Mo>(jT7fOs=Sx5t@r(NrOAG>mP)>ZQ6nd(Vp_4Vn&PxO&txV4 zT~~_`{9_<{QJv{%D`Oh>R=MKWw{QH~yjDDVy;)rT!<^cEU#pm_yMHq1njYY>J0soYI??BfH9ooMY>JugpS!PH{DD<*p%z)xb+(y zoi8gWaEhhq<%Iq1lvy>^MfcwVvHFdy>V79XH96N*^ljRBTf<&8FIO%3lE|J@5Bypu zRK+qZ3ICT{$~I@FR7>Rc1bGRTe=|&{-jiVCK5TrzY6_>Al0ai9=lPjmSaMf32W4(l zG7a_qux#JyCvP7)+N9RB_rJFge#)d)VpO$%na#b>6LH(-Z7Iy0s>Ap{>HJUUt>-jN z6U%3Y^#4zcJ(IpD@Ans>pUgHH0=MoaRygi2w0gl9-sqn4Fi6YXHYYl*tH^JL`j-Qr zL%ghmrv`27wmZhNSk5Bm-jkmfS!O%3$*u9nX!E3$s3M4^8J1>+4^4#q9AV8@-i2i{ieXa22cCFp2r#gE?Ve z?)aZmy76L8yXMk^zl;~MtGti7tydnv7FECR%*8KDR=n-ZtU0u{dWvp#$x`V?hOT+f zcU?^~`kz_-`uW;$msb(Xbc-0LyFbWn%aRSA$<1+9y#7mP{3nKMD_I{cdh5p&w6^wX z!3#g8b%$4e?i1tj^PTziF8dK5?%DFo+A1q=7wz96d}K+UczUPrwCC1w({j%UZ7=ZM zD7#H5F3+g)gP5OEbm`Ui9p*EQbVKhp&Fq|f_SKqf`{8P*Y1Zc|Ik@^OMk{1KJG7pCauEHW}Pf@{&Dx+@s@3s7RiPwl58&*=b!ucykco< zj*rgbYs6aDk;!d}Prmy6YWlw6+TaLlrD zQqQ~vGaC4}uqs}vtEikE~RxcAxl;f8Seo}E&2 zD|-E&zWQu3`>7(I_xFvCznXnE@@Oq9_$woE{pqh@#&ZQ#@{_}vZDtDRUXSOg;Jh)b zr9y2!+dZ)lZ;ySRZXI3Szde3S-=jKN{uefKYfG}E&GP^yC7T?{IrrB2d!jf zHm}0-rlSV0z4BSsUWhf^@#!Pm2d|S!4Zd5iw@IWoF$%{A&67#ro6z{>wwMsV9j{pG zw_mS9f)2=AicMiKbH5r_zjxK<*sG?;|H_>RTeWf5tL;Xd#vKdFCM-2sUNAl3;4)?z zo~e~*n~us0myW>n;tk(3FVWh`_i(fo+KUEB+~-*e2)7hdGG^l`X0OFLapOHFdR zX?p438@Kg0E4TZ1qxq^n^?7+`aP0iX6rayz`60(&a5bx^F*}x`rcTm$Aaq z4eOSj6LZ}swC#oTqT=kV%6qRxr$5gRnkT#aJPVV@yZ!?KA$Qmt`z}5)IO|$``S51@ zdCNkTpUz%><5Yj}sT-FUs9NctOrK*p!*y|fmR{Imf7#gR3&C&Y`o z*Vw((Ik&5`1h^|ss2Wh*Ogo*uY}qxt_G>sR_r z9K8MMy6>#nS4b?ZQw_?D?el#7?ZB3E@(a#cUC$A^S9B`cXOY~$hN-WDFXvs7l%DSI z7{|VA_s^~)GX>)Bl&($FR@Le-jg$cZNl@j9S<;(7u)mYfPgeBwM8yQ%lTPn7E?k>N)&A!pOCXz2@mYcDE2>gA}&^r8>5MO*;Zmvz`KGmIT<_a*) zs=V7@J-uCRvGrf$^>uE04|uwLH~m)iLc-+S)xi0CIWE1L9WDKKZn}QC&+kaNkR#I) zTo#>Fkc?_Jywkn+PVLuO+gV)rwWoEntT#8fnZg*w+3xt^i)j?swd0yhMTLbMo76%) zWiwu1=O}ZS)_={AFG!zr_rde_|83$0SJcifZ_BV~3eaDuIoC#%Z@vA6S-wh1S$8uW z3g>uiVz{~Z?9~&y*PWFV`FSXM=TfPt*wjgWH$I%0x5#*#@%uux{t5FZKQh^Op;YTt znwH`1uwSbdCMYbqwp{xETC@0E+na5%D?Qk=ioZYIzb)S8^0TvCx|Q>D-#+vc=UlMz zQi{zR7bkx06W&igDp?t=OkxygnREMYBZs1H$*xa3)=h}y^}J!sGFdyIeE+rn3zKcR z9JDKfIe4FlX`B4Jy6BBxa+a*Gd?~L7}C;>WJ^kJE!!%<%vFM z-C+4ZwN`cWvfJxF>%Kj|{kz#rS^cmHHmgcC;_c;lXDq!|Sjjmr=WWiO%8eh_Pn&oC zNcx*%nUrVMlaGl?eAs0qExnR?_H?(^etH?%y$@nvs>^sxwOU-fOLPL~Nj(_DY%NlM~g&9qx*ubRwMmX_LdE5|xI|Lk<{_uNtEoOz$WyIyfC-GMQQ z!S1`0%kf9sC9DJOo!NeH+-Q9Np~2|)cAXoZfwL?$mdtTie7b-6wuYTc3>N$UdC1ws zaydZgNc;mm4~9){TGzMuY?^qnjQ50+O?OD=wEL5OajfPq;L-RK=zB=TYdNN z8-1I}QTNR*n7SRzwdAaNb|z`=k|Qme4%a3g)jQERck^G1nKGZGH?Zwm8}#)0|EV@d z`j@ut+q!$5MDp)dn>QBvJWouwmFO?23k%h0bxYr<;_vD9JwtlN>6Td~3A>K)t_j%t z>AKP3U5l1TUb&_DOPJZ_(*3xiMRVqEt~|!t5tcS>nv71xanFj)`K>G3^nM!tHECV5 zq-W+9r&Y4IEKhN7dq4Su(D%Ylf5yw7?ZWx_wRctBUX|y(Dnjdy+r!8Nd&OFT+y!&q zF50TMfWNB!sJ(Chs*>PI$6x7hi+jei?#+=CH_xW!ZjI12PiB@E&v;j~EBD-^x0g20 zuJFHU5zMX;*}Y}!&fK5nZ1Rpg%BJt!)E?Tu{I_3m+3g(W{GauoKO}zq`~UaqemT3E z348zV|91B7-~aoc{rfMz%5R#&@&jh`dJSFJTVFk`=zf`M)pagx#)Xfo=I-6;C3pAc z>Sbv)nY^zTSU(g>6xZ+0KVh`yT2{ZD6W^csXI^!W-`B@SAKU-^<$LB|zbE{&TeQD^ z@&5YwW2b+w{<3`|&(;I)rS{%kzMucad*@%jJO0%<*Z+5`|Ib(bT_dRa*S>F;Q|`Q< zbVz3Pt#{=nIVEdve+u7IX(u6iXO+9`!7W;an?;gax(oM<&p+DH=V;QB8>@BE(Ym1_ z_4y%-hnHjau?M_s?3w(3`GxaLC))Wh1#dkY81?AB>ILTdSz%mPWdye{B-r^KJ8T#K zx@D2Utb>!yrLAX6S4Xcsw(A=A3zgD-jfX$&zl&Vx5d8dW)s`O*>%Z0IoL=_lwTV=% z*28a0h357aax>pt{c3lWxz+mbhC%OdmB*X97#s;WZ6>~FPsQfVn}7cC(mOnOGkRwCg+3%G-8_(WOl@N_eVo@6#~J`qLjotJ>L{^viCaFDsMZ z{{5cKz3Q{=L0n}QGnd>8{h;;TE2y<@mfe2m#!qpqpLBR9natA(6?LEaY)_Za)nB`w zT#Q##?YOi-xZ#8hOX96}-=m%`(79df%6ZVX>_le-N2q?Iyo&0Nmpm6|`f`QbY(6<_ zRenId^%Bo>acbESs#y_HPn-8Yi@&*LhX#N6-?-fknjTMzWfD)k`u?Kki-_&>OMF^l z&%G5=Tqg&bxFoB8+^zXs+rz)f>iFEnR+>K>CLZ`-I{V+7 z#ELoRmzKU>5x%{AN{N2-Q;u5ur&)TsW@4G!F35aKIP>f%4^vL!U4!p!9dq0~O&@-L zuplVf%3?*Dc3D?Pk)q7JEn>at36Dg(C!|?0TRLiU&hQSkv3xL1VeR$P& zH+%iIBa%EB@2{1vKH+ob^OjeE`;Da*F$Fj~tL|u?_SNF=nMWeem{*0dJ8Z2R8s4@OTX>?@Nxbn8peu1*HSggExcW1Ek=P1*fKN`+c z7+3F!Q*(c@MXF)RrxJeKewS79t~Ur62VR@XyxAn$T85Oq^p8XMg z3m#L-FccT|%mvsGEV zOMddX+~Lyf-RCdf^_}@9GEyix?f7A*sfQ}$5*-c~?tk6aZ=9>%y-Z!TY(svytTB^? zU`eNbKyYA@*G!>V%{$^}Yf154^ml0Iw_Y**Pi8Ey@*6%uT@Q|jfwR5@=&ASetvcxa zYWMnU9rcWg<}IRo9WRxYxtd(mJ8{~=%purBg($~nR{L@G*jQo zFwF6lh0J$1)l#9SX z-aRrGD&7|NXUT{C&!ul$e{t7{xwy(R*~Bv9&xR96J9r--P`VZ%;S}f*+To~iGB|XZ ze{0OO(>;~587F=}z1MB^9*);nPw(9t_S3qm;(}H^FaL$j;?~ux?AeZ8e*eI(G=1~l zjhipux?*IypWRwof8O4k72BTHOb}U<{F$?CofyZSKUU0c=LB{<*}L=iqnF<{f4kQo zZEbDIWxuF4^7gyaQL5?tO9QME!b;pO_ zUOy1~7OyHNwTV%}?QR%nT;K29zEkZR8SEIoO^o0dlfGISvGixP)w_~_=}wY+lvbNv zE|mBlaCpM`D;s7i99^#)&!6`3RZ%vlfK|!kD^X_;umwMFHi|EN-v8#(`R1!`ccbLe zM9Pak`$oB}_^C_|)yu&YLdv1YU1glMrfoX3h#dS!Q!TcaO3! z=eYirEe?(PzE5vgez)~){cUk?&YcJ>dd(Hh9;8%oJ7V`yvuk_IG7>d}nfSaKnAoQo z?LBD3Gg&_M>zVJS?|+BKXHMkY{IM*t zq$fNVQPn=IrT1~4y0F)~XnW2K<0U_>Iql-amT;_Syt%va(4*}VJj)MSwgfM!nQ|=Z zxT4tS)X+P-Q@Ao*gVcWZdv0axNK5#3oQ)&l4EL(O+eu$mpZy@4DEEWyw6Lf1nrD?e z_`0Xg*>YG+P`Uk^V~FbC{u8MNTQuJ|C!{)kNcc5>^7o*imsgf(9O`pjqoAvMs$60N z|0PvH8_jA?PxbjR-D-jzOXg3A5MR;6FL}^p`?KjaS~fuZ;`P)OS8%^U_^` z?B<_LR8DIxooncHaQB}lHg4km2brqEB%9YP;}@uye)hPXP3D$&lb75qy>)!T54PmV z2|u|nwYE7+$&@eR4AEizo+zOHXywJ6DG9q?zI8sWU>tE`PuGIA#peXJ-rdWw@Hpe=VjJ_{)H>VB8D%e6w0VPloB#9`PdUyse3-B)KSw~^|LlT85({SM-Y~cr z!@Ov@T=%Kq)jU7`A5ym4v1NzS@eT98oSS?yY_&v3+M0O}YwdTw*!(#0z*|GE8B2Cr zbS?NQvB3XA*poLseA1KU&TKzB_wCucbMJ<~UA}w0+4iVcH&?Hn{`T(l^@%;-qZ)G} z_S(cvOSpA&QMt-a_Z1fwZn_+qJ}JhpB|q=q^4@SqJ!82S3|1cRQ#M^?+8(o1YQd|o z%-z$vd#~*Z6EeAG&$=aZ!S`vw8V0$`HGXXNJa_MP@Adp|O_~hCI@J+xzjsug+mo|H zrAyGEOUh(UJOZtcQMp*2*vcZd)CvW4L6<4^j(>!;qIqfcF>~bhUbKz@-W+VHHyz5vl zv3N=SDq#+~G)>rbgJ;vS@;Q&29n`JZQ`w%Fw>+7vUtX}8>pkPNOI17b`Vvn+{lzJF zdqs6>@Wi!8-}WjS?@X9>s(aGzH3z-C=Al1zzcpo!^ZCd=*MdouHWqvmGWP-^2&Li4QqB@^WwsIx5${yYC?7BjV zqy1INj2MP^*U5}4@+5ebHf251TY6f>%4K0=W{IW3`iJ{_59?Vezkk6MpzI%a>h~)7 zW6wEecN!c`xWL$v^C@y|FPG}Y8QZU2>y?TvxuZjM& z4l2o|)o58uHAk{4{7-T|)xfd%kKne|3?3R6p7(~I&)ORGFynC*pOCkaP4JZOI!-Z( z+K&U;869h!L>p3stlV`DxEgT0++jXxv$Dy?r1}4Prpxi~wf`_Pwv+4p}9byn_t z?dm1PQsy};ECB8*dZXYss zvf^6&HnV)@w;53_%WwK8IO)!*kDNHs|H}IXR}Nh5^pNi?XnCHfvvzXL64#mUr(d-= z>co4?>|&+t3FXypN{iZDR1W>MoSLm$r+>NN;u688aM#(YH>K8XJpJfz&p|G2S;r6N z=e3s}-FivgJ)G-n$-V8H-gnPzc_YW=I(@~?W`{U*R@o-BqfuUMuRoxay>J@8lfazYn(L@B3+x zA$VGF{j2wLmYr4N-n+)%awYecC2n6&ufM$IUsCk4hsit7y^Z3`Wwx2Q&d;;uqt!jD zOF@CA$|u(PO}!AdUU5!g_Phi(<+tWG^BuzWxAlbXZ=BM4hYml!x%}{Y_fNOK1jWy|q9XZ3`-o>qTuIxW zJ8gSUIm)MrNPP}{&7RHP+iberbNj5R&2|n)H%?uoVsa}qN~CN#a&BhO$gQZC`{K34PMyWY>@V&HPz;Y?2Mza6*ls6A%|4ze9aJhp>|PS@T26E;gH8Thfan zL%kX_ol|dF`F(7(*#6nh_V4ZcCzfz5yU)h+YjM=$xxf4(L-)%t?>yUmj!lju=VeCa z()er7Bpde%Z{ML|U-4$K{K>nMHZFMiD&@+;7fY|LWwgI?chRO7X`da0-Y?6Yw41A| zGOD%e-`wE%jkcyKZ@*skdd0MMcgU3akwyD?-^@Q{xO?YvhbE=wQnME>lXqWqUF0`O zkSF}s6rbKzx8AOPUj6@8beKEmnM37w%uKzal$YfCY|+ec2%P*WJM`-l`SWr6Lhdi( zy~S)L!!U1R+`Pmm$4X*fX`lY$ZhHTy!1fO3Sv!+&g}pqr?KcmzkV?+iIl)>HAr~Wf z7`})N2Q*86DQW7``fEL-L23q?bf|a^%DR6TPMr1JfD5(5 zJ@ZpL^Qcsn_l5^cu4bz)ZcaVEcnMoxMsw@brCP5pO}y^>^J_xm+xM2Yt=~ki_g=l7 zIc27l_6{4CueJaGe*gXQNx{lnG4b)Mgce=DzS8g2G^H0eSM_&vvDDe#PRJ1RJ<=vvhm|X$!@?O6t2t7(P;5ahd;A-JPm6PQrIpu84VVxJ-CY^ga-Fx4bUr)W` z*S)UDJmBZ`bBTQP!(?2%eZ4s_0ssS z+v8fAkLB-}z3_FrLX_TiYJzpevS8g>+?=3JGFdwPv#5v4r7sU zV&qS1o-RH6|DB3$SC@U5{_O47W7_tP?aPfhtJlZp?ypF@FTejF^Xa?c>vJ#74!6Ew zQIdA&ct!V>-C>-uQhXFK$m8~^#emmn z9ox^jUY(26^xanVF3xJ6JIi3DTGi`!r>{S|*_LUV7&HIPJ~PV)S6y068I$kw%zoGH z%WEN#Ia{ZYd5KBok{>fa@mzSn@yyRz^>H06QU}(R=|AAu&Ui7%#otiK*}&sv{&$J` zUC#~wEx0cAr}y`9PE~c;Kb{H`^{;()|LigKQO&~bA}!}vWXJ0VF9}|yF4Oue{LptL z35$uE>g{iNpSb7!VHD^5t(mp>_LB66GatHfm1S!BXGtcV5z3x6%QlMN=vqa|gZOPM zCxbWoXja_i4CkugUu5^OG|v3i6IRy0POrXdtDLYdH1ca*cDJ$Q*mc?OM)A6rVw97n zP3sOmle_H5ybmnPcxP{SJiVv$>y8slCT|%gJz3KKT#Khp&$M>|)4t28vy&YK_;*aa z{_w<-9j_0IFgBjQd+{pk{j#Tb6>iR(P{@|IK4{OC=6{lzw|?)5{d_=txBj-Kx=U$| zTU+}X?#%ctxMQZtQIVxfA3u(n|}BcM!u;`>ccd+t}uCNMI-|m4n=>JESkX`(QLZ#%a?^Ii5*VHr9zOG);5)=K1c+!5xR(7A$9Yv7tQWu#}uJ z%Madr1&zL`Q+6HCO5vH{bhd_7%{KO!_m{n?qPEX85!Zn-6 z=Bl@@;KjG*zAi7OCm1XG-oM9TCCRrtbFJ2%g`shO9(;Kq9Q)|}k_{8YM z@=f9?GDb7GCM=$6`umW+-!cEx_MwP?Tu}-_R z)W|X?#x42mk0t)|+ z{&%BvWnzVe^zyP3tAi>o`3G6K`!{s%T#&scefLJESy6`?BqbU-_kU_(Jz1gpJ!9UN z=09P!Jzkox7KL1lDtc8MKPUZn#=I!+n9Wn7O)N|{Okxi@^~Uxk`_Hon(yy2Dsw{gE zW_xyKac|g^ZGxUK_FS8Gmxmn-{m*>`x5xnZ}x>@jpktHs|G>9<9Awbarm7 z$bZ-UuJ_#Z_g#lod^bKS|9`dGI9Y-7+~(Rd-@UdcS1+4>WvPzN&M7%f&Ky=}&p+C` zQ(v#IB%8J3k#)azP{96~ehXFDR89WRP5JRYCDn8KMV|61TEdrsfLSP zxKA&d%e8&JZ=BAJ{Wmtop82vxL}$e!UjNF-sjLjiM^EOt6sd%HM1&i=%D`?E1KD%M#BoD?bA%HSP&qFD1BSC)|R%s=7p&(@y2 zl43to-F9m%$LGfdOq&dzZQuVVcxvXZ?mF8=fm`~j1b#F`shl|zEO`Ichi7@p0Y_a+ zckqAewqMS6GECX+-wlbQU+iLxOfAlT3!LZI?#(*2)9#f`QMS)qskfVJr!2p`WyP^C zQ*8cw|G%)6TeL{-$@S&(tF5n0aA@l3|DQ4M%YvJWSd-Pd81yDpZ|i^NX@4T0&1xvzI5noN#5z``)Xw0w!jzzc>4LlGNk!-=O4uKYzL6yIqU- zMV@My*TW7z=(&?b#aj-!9txbnr533oHrs_G5k5{dtY!M4#3P9k&9fYu0?dcSqcK!=F6) zv%%}+cQIZTU;91gRKorUB7QumKiLXt$Cm;>__3oL+0O)R-P-lE;99=l<%WS z@uko1)_=X{!|roY^F#LDwYt`(sI7Q|%)KoqboW`~XS|XIETYU3sY8jyc8us!S%=rx~A3 zV>7axp54uzG0V{6sf2?w@h{#y->ggRAF-01)Rq4JXX z^puzK&vc$zhfbL0U$ktM@7c7|dw#FK7ro8u`C_m;&-2Uw`D0S}E$XKG=Oyw_rq|cx zRNYq17oSoON|InF2X8khYIxIZYpppw$>6n0+P%NmbJpM8oOiieoa6HP)k1R<%PxP8 zEY`fq(rx)(rOt}&XT-hLDN#Xss_Z6U)k!>F)pl%0V-i*}Y+7`Li6^PbE?ZA^_JpGg zwphwGAM0pTcHB8N)h<=>i=F>pqt!R2e0k~06}&uE-$VP{Ebot-6NA*c|3~?V?<@6a zv#Yt1#%B1vQ0-Z|$h_E+tb>t9mx;`ZTe9K6mN%?3H%A&8PS>41VJ@qr_uQtN4r&}R zp3uD7V>NwJU|MsV>Ti>UCiI_lHU0DmSOixsv1b>~8(ps}I20#Ac`KQ}gBk`Kp7f^RI3Rxp01w zi}-3kNVo(9OrC$V8dUu67y5jVXVd-pO&j~Z?y%sOeDhHJU}Vnkr?#`c8EjoJb>T&^ zRB$1GpNGfUU0UT?kGEefIJ2Cc+*o4ax;B~j;f^CyKqbe<$Bys8j{kY~%av{Fd$+b# zdP{a};+$Fj|LRf^uR?okkXIz<+?@8gBH21#Ya%#t)crjEet))}j>H3%Mz#NsY;J?n zNQwNNU))uNeLIi(P2+k7%C3)AZLM6p*`QlJ$dHw`@-(FHia{vxX3daWzYTgYVS_{wAk4-DJs~E#?2OGPVUn%j&-qT<7FQ zB%g~@h&;tK-TS0k#g9iO_TAtt^zEY3<)#V8)ppx#sW~*4DaqW}T!`kdG-bn|A z9aUQ7Q)hc3RcqcOzVjANN}q-EQdg!%W?r#(pPzl%VrAr%=9&u^dg zNKhjGKhNULPv-pnkokY_tGe8+VQ*G@{oV8N)zNR=>As(4X>T>~SIYj9x=}OIY|_$i zUQgFLm(8h=oRuv)i?PQ|?dG9`7eAI2&Auq$@T#3@apj56oco^i#y)YL*wH;-X4eu% zrT)HyZ?YAam1L*3?#+2&Q?@hvdU(pp&l+uqCM;Snva_%0`t~_-zo!3K`teRynquN4 zy?s+xOut;0H0|u;0+Da)<~>^3!L+li)b>eA%Cm&H)nO7*&yBd<%WoZtyTEEuefFFM zkBS^~$h=AUpUP5suTJ!TVxR!3j--NYrp-Mz8Pv~I%fy(K3*f3THqYS&ZTxtsB`%bfpNCOj{_ zc6e2n7;k=d@5#YKPJ-U0r_Wif6Fd~ z?9-b$%Obw4g?GCilXUVSU7`Aa`!XLLo|zr)G^-+5xQM}i{jRA3+vA0zR#>%eSuCy3 z*ECb6L9C&NsneHvdPZTY>#WSI1>T1|U%0&pur_t#pB`v*fT3o2=MS69apoU0erC+r z)Bo$()QaG}(Jp;$3-2B)y7^h;bFa+znH90YIvgL1(h{zi6sad>3`jE}T*`D1u zvrn!)dgtkrYm3S)Ysnzs*5kWS6&oxUOcN` zLndu|n$nf8%StETU2l0~=EY2&P{-{YCyysA@2z|Cb>iyB?uT7XcOCj-Y&Adp$ZxmI ziC4dLlyDX(pEHyBZd&sC)1uo|?DcEdT{jEGm7I)~vH5l(*0+1ks*>c;YW0&7oa~%Vorkd|?FJyOu{JV2+gv!(01$&Qv;ECm(&h+?vAj5@;#dF)dS+5>;m-yc?w~tqO z(uOVen_@06JY=*_u^34{M@bU{cFmqZPcFHfr+)l%PPe`ayZ@A`y)joPfyRT%DZ0odI`^BqxNNV#pTxIhp09leW3E&zn77{NisyHZ&-rs(=Z3g{ zo_bkx!rf`FLU~tDG&YUvetPCj_!MK`1ds4b*QNDe7r83AWJF4uU3hzxf6jm5V^=d0 zT|(wMBvvhZwrqiqM&@e~_4Ma|W`#cIdXg>PIPut|YwFVyUcBq(o69`kR>@G@yTj$f zyY8j^)mh(p{>Cnx;~!!749zG##OlGm z!PR}H=b{&@cz??q&O5BK8dAF{!zT+?io#qU+D2c=n-bv7>kZW(e;u`21#|IEjs-G{^5Om-BlHB4qd~B6IT&)ju)j_6nVz>bYF?Cyy3~&sx)^-xhIL^)BR|Ahlai z|BO|Iwqi`ow8nx8n|C`8Zf{aQBUdT>ddJno?RrrY7Bn1oc5pK}w6chG||LR`sRq}iDr`wyhWk+sXrsdV1FUR02bYHxegC{5Q zazWOwM;7`OyY_Bg`j_d0%Hs{}M|fX8-WOy3PA=*5?9-9Ynf9z)Rvcy2Q2qSs`zlF| z$)4XfrT@;|rT=ibWoXRD$v-j|h_(Gn`8`#y{or zbkXzfo%r^2c=U#k#tUYyh&_BRv&ULxMLBEKvb8!%^A8-^wliVDvVXVZ&-^^9yr$~9 z+;*Set-9h{c9)hOp2KYL;l>a5D7G~_>}HnPh?s~j4wh>@hc)?yH|#!i(B~xQ zXD$zmHgruY8$=_?5+CPav|3%P48vA@P$@m)rm>JJ?oz?xg7X= z-E!@9hrfPGoW1>U6UW-8hMsYLCIKc|+jiOL{dtwvbAEE~b?NnGBa{l?{xhtPj!3!$gW#^;%l#&ACI06Hcn_b-!y4SaKJ77lP^lT z7wx5aI+<7gPZ`)@&W&F2Z9S{}Z#(OC<)g{by z)9Xf+6aE)1d#4_CWjQa(=dxk>f_XyG-rReH>e=Ui0zgWLoC_Z%vc zUD-WZlU)TZD;Iclx1D}EW$R4-y-C~FPu!8!uc-@xhwC1&86Wh#(%)9H`0%-))P zE3VyLu;Geqxy1Kh7tEe296VTXXSwX^gHMb!g*A`OxR@w!-El0}{ul>?P45H2CvCZW zJ|}*OXSH-zOU`aEm9~pB{I}uk{de<-O)lw%&1FzTms+hqO7NmL-p?6Pm=gT=}XbdE&dV){1zenf6A?lHWCzc4-=y zoaTA1J$YB^rJtwf>`pzmUPJi8HKD_Myc-#(o?99h*gJcAX;Mh{>{r(t{&O`PWZH54 z%h#Y~dVi*@KmO-*^U~dprR(;Tzdl`~wQAcAJB1^kGlGuakeIHSo9SD-(?5KnFLR@c zN9fasm*;aa=*Y3H{i1PTe$A}5LoYw5X6jq@SGoR}?Em>;Kc~{Mttwg#{`Iq%66PiF zupfA#omnBbb^H8xTg4up-?eDDj}7y!BQr0&_%b#3gvRDz_X+&5v6D8e3R|`{+a~PF zmXFI*x1J4^s%c{Vn|R>Q-_`BY)~8<=PK=r@k}C1QgFB2jDP`N9U+E%=OJ)iFT5~N*hR}uubb%4~Yuj?LB3?TzO}=3-2M5 zUXS<#4>xV(jbJd`6kcxg;%LLujH40Fi3tpxuY)&lOkr4Hw(ZU-^|fM4Of`6$jke!s z-gWzLhS8aM%S7mv*;Z@+F~ zeC4~|?EZ(M&8HYQlmx^T^f~^!sVkEk*RgGgf4}B%-XG(m%Z+CWCI&66kE}7|)0}ys=d)V0iMOA3 zrPV@}V&O|-XJc)ybh4VC_+jKWb#2|6A}#wRJ-mOyCoBw%Dmvynb=nkrM=_pQ-HyWF zOmS}mmfSeWBgwboQsE`0+6floUquA_{jY4XxGT#@t@{jvlpG3;iG@C zLFm?rHXqrx$BbRiR-`n~_1U?5jmEKS6%0pu4+>teaeMQ#AoPGO%PbcM*|2|XlK;|c zw>O1J7};L$X87=l+w#5Ivw2-FnOTGPFR&J!6WH$Lno#BWDX!PQYWj%>XWb;7Hw4I7 zMtM!BR=&IN6UVFluQcD%TD3TvajK^Bwmo~zby_l3%YJw7Y?jImN&5b|M7X_o&dUe#38uGo z=X{fAT3adbw)<@e8-7}|dL2;KbQI&&*toI8a>Wf%Kb`)2p$$T-Wgh-n+!@KUc*eDQ%N1|h zwfE<*`Q!gPKrSr&-@RqkJ`(?T2g)ZLD}P-zcTU>P`J0=si%*-Taj$0o_metKk!LjQ7e#|b)3`yTmOw(>kv#F1}Pie4U; z^=|nX%R1Gcc|t<8$;Xf9cNwwX6Xo5iS-9ZL3htW+qgssEy2O68FX8#Iv}JOsna(6O#Q;Pk4I*Ge158ngVD4G2BI5#iT>fwhP*-uv&CmwsOdFpaVpp8`V zf-Nt19XvC`VzE(eOw4HwiCL|W0wYiGojA0%kJUSXySUGxjwj|puAN9&|gA7&MndJyX;HjP%HiB@|@1B5~V#ejhNXD_MQ6`TW-H%snwcOap$UEJvC?&-!q~4 zT9(4YMJFv4j%+PfeR{s!&()2)r2n**xsp21j^9y6QuBYVp6D>&&v#PMU~)2bau-UnNPY8@9p{-q?Wk$ z$S>RD&yLq9pO)WM_*(jZMo84%Z{llxw*H$c^?&l_BWL$!zf@I>Ocz*q>SE@ygO7Yq z#jwh+t>09B#$npJ`jD?h>)iLKX@;Jzd)OT=d7bG-u5{x$(>u2oGaRVl^EKz{JM?AB z+ll>$cesnk{PbGnTF~mVGePyzp$oRcZ?>*#w!L(Vv0M0k&EY`bmFoX1zI|HSb?(^S z2_X{7JeQ?bC6+L0<}8k!ZMT5$N0~+c@-MI1norgo%})EKASQO9`S_>#!e=jVJav6$ zw$;a6=D2g~|Ev;2op`4u#nm74@^mIl`xBKhBev<|hq;qq{ftsr=$N$PQmvLbTdBr7 z*ENS))_vH2UC`a|oc!7PhPut2 znVaOKg#VRUyz^I{6uqL%H%;We*}0yQ;QSZU1Lqf7&sF=Xw(v85+2^jVXKx~|{%|}g zGpi$A#%=z-&-o`kj1RX~uacH;4iWkKbkRB1S#u{>xy!qLGY~TG;V7yxGKk(_x?Ml& zO?ld)Ip6LDie+j|b`4VOPIt|Dr9D&h))eyt{}x`f=FM&RVR9^6GjfmlbNPdo+J^&U zG~}FaEW3R3vgxl9LB5X*wyjKXo_0ajJ$-|Ol#~-Be=k0qsU35P-LlRn;eJ!J$GaR)Tb1`L zN7EK8>aUS|6#IOMw|em&=Gmz>Uf&!vdVSq=H~o3X!?yO*BegflANXS*>TUMqmTY^p z-FNGy#`Ry$J~Qgta7*cW`;DcG3{u`NjY%phT*mSF>FTIEl}1bb9F9J=4c@#hEO-8w z|8fV*2QUtX`2?l{`*T!HPZ6aN+X}EQ4NPe%4^EX zG!@o7t~quqsyqAOpJ>^)oB4ik(lGsT6H2jdQlEX9;`wi!Pj+%s7q^}0$$Y%bSI*E0<}Z%@`X zI()&hJB87!Rj2zrM_1-6iQY$7b0oGNYkSAP!Zf{cX4b72issxa_MM)_x_|zJ*-}6D zFL~0s=qJQV= zv&$ZTZg<}`E!ug;Th~K7XJ}@97x??}rr^pMyNjm&oD`v;9R1~+g0G=M&QaCnSG5J> zrmfa}IcwUDyJsF9Z$5V1F>){Wj^fViF>|=8&Q5HIkt-ICEQ(sITbpyBKKsM{zqeN1 zG)S8ky-NPa>jxoUm3!VkG_TlyEn@B3MT{3SYl>z?COlmfwqb$3GvhK2frxUWxpE7? z6|nZNvTKU)nf!zC?wXLL<)5c2Z4o^8?R$NuoSa^xgRg{hi{d`6S34GXuLw9Va9c~B z=d@kaUB%5iTCKcph(5Y(@abRBbRM@>?wC2tl4I7Tc(XoD-X>6XjPG>DTv1W3i%#N4 z=JYrIexldobqNUtXsp#SY#zVUf7dwba?!2(~+eMjf z-LUG*Pp4h@uv2fxZvFWCk0x<%^^Grin0)$V`SuU@&K>g3Fm?GgQ-7by2iDX2rAnI_ zlA{7y4~mwQA5NX&pdHom^zi&WBGP8poX$;+oyp0TpSy40%7i>d^;*?P7u?%3^W4cIjdi(qH}3MYJjU6SzAV;$qty**hq-&sA3Cf#b6UqO zL!XmP6&LqD*RNDcP3p7Uc6h7(Cb!_1=PRQBqsFgY8X2cJzB@8Q zb=reBZq2E6uUv(#7A=^5dc)<58?Sr(uMx>~-B#UYef*t>)Q*o*+^P2WzkWS=?R0cZ z0)H{l)8(at`R{pSiK%&GXYY%C_CRrxlI1_{5)5BhQ}Pgr#By&@OJ(b zIpez8JblV$6P0_<_s2OuGI^iv@n+VfgHyNr@9Xk^6!-I(j}UkLKABJP(zCZ`PVc$u z`@H+d)~C<*JZ{^5m{)S+v@rW(y%Wjt2N-tBOWt$uY%OI87kt1wQ}%H9k>_8g?+?>^ z61INhV^^ge7pHBXeP_-^$D8LPrf;vFox_(kd*SKZrapY1?|$47ed+1jEU|W%Uprra zD(jY%DP^ji_v_Z4yG(5Cod-pyln3YDdnfWvP5xg}?mfMaW@RkZ%<;09ea$BNt;>C` z+1jJ~yv90H<7<1_rJ#SCpUvOCyZ0GadQo6Hv+mCK6))F*4BB0KZOiYUo3CX4PP;qz zjUuPI|4Pjrv()m>#V^mB@^<_Fy6J0f>)lYg%=JX+dDQR6-7j7oo5O#qZePs%=WCB| zKk;e7wwHhS?6%FRDWCJM%tChIRe_i3=N@G|;Qk?9s-$k3locona;Nh;w*#UZO@4k* z|Ge4qh5%Qg`7`H;AD>fQ{I|#3>~!^Ox$2wl3J$+yx9x{}BtYTET=wLHa8uq!j%N?F zxOOReCqB}8r1|Ug{IelOLPGa$Evh)C!9V-n+r5>)N`B|AE;i%5Zfc;$JBjPf&5vB) zPQLgnwVUO@^tvK3Mt>{*;5ljysb9R_RYfEnS!_Lf+s=l#>tA2A-%>K~v76DM(f;yr!L z@=P`n{cpx#eywa}Y<9KR6~1gHt7GqZcfRORE3|UbudKMeZ~Y3hr&pe>im*MuD*W-a z3*zPX4|;Gb=)A0Zvj0|Y-!~yn5&yntzH+jApR*ZHUVU2I&&TMzXO^X@-n-n>lKCx~ zyLqx#dah)-ThvyN{`lj$&Da0O9KQGJ+^j8ilQ=Ec?SH{&a^rU0#+{#^ofMm@wKiw< zdecMRHiyh-XO->xry9I&#ZGD8y)~}o!5^|>?)$pVh|w>bpP!qz=SOC;zPa*Te32If`lX&mw`q z3dS|ddJVm@(`{9h%XlBFGBaC9x-s`$bL+k96212LHzWIX)6dP2vi?7Rd;FbrzE02R z{OwVu6TYv>`c>At$Y=B4BU`$dH4p09_^=x6-*#_b-d1_QVgql{1Lsc_lgk|5m}|Z| zwz#F%VeavZuCs$rW?DV7zvQR9=-t$Ip?at4ig^c%FLJju*R`@;obW8|pM2Z7m%%nH zoHIJtCPxH3I$fgbw*Ts*eZ7xPKJ^?EGbGz0n#;)uOt;;XEwq$n) zvzpKFs<4w?E#16Ik6F>pY%R}P{u9C-^5#Ox{yF_y4y)g=kngYN@N@E;Eg||6AP_-n5 zW%UaWrj60|udK4zu5}%}eUnkNF8*M|iY;Q^|21qBl&*f68(oubJ5yfW^JZa4x8Vr^ z2d?8$?VAtj#M9lyTLIwaD3<-iX|zZHkwZa!X7 zX)3+#`?f!Zo(&{ct^FHPb(5_^4UU8GN!0Hu~(o7d;9*&w8<3-Z^ zmKB`#U-Sg?K24D7t+=*8+`Lqzzo!3}3+H3I0~05O8y#AwCRWlPKiit;VT~cjdnSQ@ z?Cc7A+*q7S7vE?;P`)5QGOByV(W0L0l4EB=`p?+CDLX1(B5c%WsG`4jmerl70lmkZ zC3s5G&oa96^G!>ARC3n*XOMPJ!-;|7Tmws923VBU|LzcBJiG`|3iI*$W*gko8|6qNT z`v359=UtXD*R4J^x2+aDzTj*8)zY=g8e?oDm=}n5Z|A#a=h>+yqTzi&Yu0KFzejiP z`%IA3-cXb7d{N=*tFu>jozl9izpQQXMQP*hj9oVpR_WbzC@U^r|8YU}*%i8*y>GlQ zRo?zPPegp_y8ZHsGd;|0-aVe>wx%#|#rjaj@}}}vR%!F)UMfhJp6=8<>dAU=t%`}H zrAEIRbJV>+{`2wK%ly)ni>v*{kod3ynCw-oulYMp?TYy-=4ht3&n4Bc3>z4pzVoe$T1o1u2X z`i@A=3Wv*cgFj83HEDsv*Fpz}DO!TD4?m>%EL^ktv`uE;g2MqGEWFPiX*#sOJzOVp z^gy>o?=(*z5%o0-9lV6Z*D+}P{c*MUhS{V?(N7mtwy8)kN?(fqBr9V8@p9mKVc{<_0-ofav1uLrpruJ{KjIDIa zSym@>;**L0)DUH(H8)LV6FELCSh>3O%=>@e?>*9w*9~1IZzn5L6SF*H{{6b|e-%r9 zX=}{5#{cc@;>o)r;$vEt%QvfC+wns&!h%z5Lh-lPr8N!ltoOy)8Wt8cgxsiFKE21a z`N<^b^&8~V&A+*CDE5#3Vq=uAf3wiwh1E^rl z(Omwc5*OU7_XO$hb37;gEn)wyy&)dAH`E_}Fj;23-wMXxf1WJ}TYvTX!;RB)u04JD zBD_MU_?duyqx`qKD_m~m#lM${k%x>huSZ(s{^yw z+?o@@`sea*sm|7xyUBufl5tw!l5}$Y^!rNxm?y;D~#m_FraP2d3~H_fF@3D37qw=t4$VsQK0+*kLb>hagv zd&AbgdmC-9c=CeV@?JycsMU?~(o_2kqGvX&oN2SDp@3_)*%514A zi|JIDe%yJpyxMy;2VguKG{A}J-9lzq}Uis~1Wev)9-M=mx$ZTA3{H=0xz3IE# zdrk81$jbKdc`p9`@yQ91?p&`a>{APPULQ1g*=HTI^X3=*>{PaMkMl}Q>?{+*ulx1Q z*ml-v$=)X}kBTPg$(uh5@oC!hP+@8AMbnB*%>$R@J%b!#+ukl*C{q)k=u^X$aF*#} zuwk4;xlpS~`^{#_6?0`ZpD^Ye-2VHc24D5Z_dQ!zE4AJU?oW(7df`C7@C~O8QG8uZ zYlLhnH*eg`xnYY#oyd>UNxR%%)c!kf8*%S1^AG<2%)2cLdzF<8KAh-c32b?DHS?0D zSC$&$ESA+LFSfOTk75!3`LTY%;kzxoxtAREMf_93&+oO z-~G0E?%m^W_nP;AkIQ~)o~!2hcR`rY9qULROO4{E zmL>RaW8CtQ<>10Kn%zPkWnI5pS_O^>^4zgpG$C?s;*3RMMfxufn%RfmU-8RA_FDg= zy19OGec6p4I;U~Y`l9|{d$yQq_pVppZ?XC~N~eeKb+;AmT(ZUJV8nub{mdVNj@+A< z)FW|QXMwuo?7)o&t7bmPpV9Z^Ot6Yqmn+x){mYk|TI*kM>DVG|q%SttlIgT~ufCtq zH2r(~lo>wE5J+43?y$Ad--^}o-g3T?*_yT;exj+f@4dUNU;E2tV(s6y{;Shp%4dmb zTf7iA?T$Ycd0IbXyVDhmcQRKqS2|sfsby}mua=N|UVO6L-QjKGo+V*3r?~8#<=xF2 z_G!wgILQXX+1uab$#K7G+iC9d#KcQMbK1QuQO|8j%RBn!cWgW^^?Ki{oQg-;Y~D<2 zZtE}TI;!p0J-JydUO+T}|=NxSKb}qPg=JU*}(|uC7czLI4c)ut=TQ#RHt&r<8 z<6`fhGfUcx-d7igdb+l)F`D`#^ux)E*}4DQj~ngfwh5LvroMdftn8gHq<^3M^rcn4 z?c90i)&8uP8*Cb4*FB#9X;+n(XNvrebrO5h@=_0b{%sU^bmhXHFkX54Qv#_6wAL%X zI}-FpPAlT!`}2aV9)U}GTmEKOxZLimD_Izj5##o2QA2I!mEBM7YU<3rC=hnwe_OBA zrcD-4KTlOWnJQr?=xS(pPT0LzL+Q&C83p(`DoaBXocWY|W;6V&OnyH96;t->3t{cs zrB?8%O?_+B>a1>_9~;?JXn34iZ}S}a!~?~3M~WCiOUxuJ1mCwAf!uN6M_?7Vws$wdX0mBy0SREo}O`TIom`*NgANz-SX zcwF~~USisn|E&{O3aiJw(GM?G<6ZEx;blsL6>c%@Qq>1hS? zWhyQ52M@$5nPo2c$idgL408U-{QNx?LB|}7Yo{HVar5Jbf;Eyw?~b!AIrqcj^0Xf3 z9qLv*je%8`{=ASAnz|3Ya}*Fm-4(^qW~pSysq>#*~LYa5oF zdtmKx$mZk1rA14F+IBL27TU@9;iB-QxeIKQ6k|me$z8ja)yr<`d#31(bJDqM-Sb8M zeXmKbZvV&8`gtR7??sj5W39~H5zdJmu8N@-)2*f~U*$8OYv-EjlAp~gU;i&!e^E>S zP}SF>{I#L~`sC!coQl^DO51niX7FD_134a(816E&+tM4_Z)2Qw!sYsd#X6juC9ZBR zqjI{!vbVFQ=kBfA`rGU6=Xr5&-`Hi_*A_{LyuY)jUSej~_QOld9oPl$szk)prk|LV zrFWD0rc{>CQrRU=dEC#HC&m`Zl`np0wEOOqUbB^(IDA&Le%99(TCuo}UD7x_{IKhe z^M{YL-%ApA{OsQMM|}TrSu3%uf-fs4JjvMVWi8O$?`8VqK=7Q?TgCRrr=N;6$;?vy z<-3+^_2e90{Tpxo_7t30HF?@Iybbj!S;F< zrY1_dRXpIBV0GX|3}3GDi_4A+vyC?%kzQ;o8Q8_fp3473bD`G3b+rq^EDuP$o&0l0 zHcPdcvw6hi1MQLf`gqvp^68kFZ2#79T!h=~{FV7;aZekMtyQ`08>2PZxA_1kQ?uQY zyc?fi9{aVtK_utPy&|re%Uln0PCZm_oxg2apF+)z2YYJHx8_d|kX$?OXg}xtz6o0P zYSZ+U{I5Lyvp(Tk+xx;zZFfHl*v$=?krbm<;c;QlGoLS>o2Ip9tXy=+*umvb^%d2J zLO0%>G}zhj@bF)gkanr`pudIFFQo=mB;P4(%q+3&aMTI`od%%w(`pyf@yq%4J?90@ zj3NzBhk0FcY}JiBnjmq_F48Y5`*m9HL{>(z>Bpij-kZABFT(%k;d<8d8|@=r_a8lW zeQmSroXPXg{QKI)l%aKLf{}uRMtzI!#>N>8wf8E%t_fQ$+GjRNCis-cF+&gx~er>^x(NmvbtuE+TI`dx4-SbLbUf;OOqB2_KQhjJyUg? zT;g=4=4z&OKArq~Y|CyBEn%6MsUbo+{u{O&6w^7|c-ue^8Rez^%k6`=f9P#XIbgSIC zGhN3{R7_Y=r@h~KnzG=_mj)AjgxL<*nE5;J*~O*wPrGY^-|5Ko8}ANovzA)6wy5Gt zBP%Vp*`K)K9=`E$=)u;egzV49?|w`3zWAQ|XYJibx__myP2M^t~JQN$_t#i?xxLzl5cWbrOi&xwcixJKH&WR;#b;X zdd}D4;@2+GyRggK^=ITI_Lb{HmldTJPHx_=*H>X~obvbZ3#CBylN@c@xn62F;@*9` z`gw1Cb9p?qr8RfCJm9=we4J+(gc>g0Nx>YqWi-O``fUro_@5?a;i zCiDJs>B{vwZm%<9Dh*vGCaicfH6iw9+5AL@CZCf^-%V`PkIuRA`@!Sg=N#7ZoQg@4 zTC~YIVa8YSb0-uNC2AKRR1Ei@RRG=MeQ|NR)-i6cw)fTdZJJj&ah(fT;(p`sW=WF_ zRs*H0-xRc~AKshCzjW;@-6J23x}2tDSnoA7yyV!CeofOgw$EyXpJd#t+(wfF(#;19 zO+;B0R{jZ(sP@R(yQ{_|_|6N)-FyZs1TDoA{mdCN-Oe>m+2X37Q*_mY?QF2ag5dUM zBj!)iYd`!`n>ssHTR7Q&Rj${^49C0L)@i$TiETHRT%E|9wsMcg&eKwBwmf;77$MVn z*tKQzkJ~A62eZ9*upPb?A8*86kkwOCFJpVd@ zmyF&qs^S(mpRf5*wTP`hW?q`?*UcIWa_v?>_R}q#UZDs&dqwc(=F1B|>{C0RxccsO z)&}MqfA>FQG^pKqaB8D{-MmXPjkljtTiv+m&0Rg#AE0gSd(+}t^6O;hC7f+lQ&@Xm zVCK!M&Z~81-hCW$WBb~Y@-&fjzS-N#Z`EWj+dBE_nRDiAR}|ga@;lmYgOjqIWVU;k zhOXHczT|_RtFL>tF$Zucr8)6FwC6s+80a0u^o{-L^=4MPg->$cZ^+-Pw~>?mgpp}j zLL4L3UGAK&Ef+Sgu%=CeIVloXogT|F|YbB&_?$Uzn^-?|M?5v=q`SL!{5{2rmH`_RH|q=-72Qw z(q$f#_FLHMQfC*~Wpq=ZyliRs`!T?~%I^<$f@1 zvdO`@mp3n2y>DL1Z0C0uKCWGvCXtYv#k|Hx(4kIa+1v~>wc~21e|?jlCo<`us-xjQ z9j=c(Un=e-uRWuYxK={8q}(lemr={B(tZ0|ErbH*<-N~&yE5a-%G8oHL#=Bn)fGL~ zX7kuqE~-vkv-#~7#%*Dm8_Y!m_xmkd5qn+8KWFiW?1D#9uWYM7y5;t`b9(tH9JQ!X{Jm3#+hpNf!Bo4{`ICtLDQ@T9XJA748ryr96mUFD{Y^=L`HemT=o}X>0Mu%BKR+`uR&sX`*cv(RuJ7FHvj>X>Wf$DaBfv@MRx-Pv$pjGgg zKi>?Or<+oB!uFXQ1b{kG^U&paJSCRQ<{=R!v|BBKdf4!C%Xg_CR>Zgwv zymSPzIh)SjVZZT1e^;;yN1S2%vdyK6#~p7}_P;8$l$E{q#%0&HkY|}ke7AW?D%T}1 zzT;+IP_@2QJS(-wEFGN`UF^ zyYj3(DnI{t_jMGmJhW-$lvMAw%&V*w;xI+^@}E8Xv0_d6N%x0I2h-m57@6;0a@gWiaznx5pB?+&Pu(_)G5=kp%C7cf zIjeKLQU;DWrO3Jv-{RwCz(L@50GH4(HMl!wP?$G@qSY7BCoi_15$Ja;~~a`P1bnbG%V zK92Oa(_Oh~?dF(E%5VI2Zt4f|w|Y!)+9L5`qWp*NB~t4=!#)N6l@?ntb!OIw`Cpp< zeBzIEIVimT(UfUWXB}Ufuyd1>v%7GIgi+L)Z#RD}Ni&@oHreRi<5jhnmT#_`m*mU( zDSolcp0=a%^TJqlQ}>0sY`5wH|{;Inyuf*@~d8B;a6_`k4Kf2OiyYU zM}F+B%m3MPL0VgPk?y56I=lXE=i6El{aS95&uZ1pHn;WDY))Li)_atxA#nYMLuouy zc3iIDR`H(Re(J-9sIbaJ$1ZW_8~$M~{BGwj9GVf)`+3yUb@s-LXlD zPSVdh^?%L5&D-w0OYhB&@Ts4{?r%ITVAXTQ__pV_qf>I7uiLmxtlBm2TK3nezc~N= zV-l+Qd(XBtT;pNk#&z%Ru3pc7P5npwO#Mx^_iDSXI>ImI?p&_+i|x;hxwkK5X#Q}y z{yNX*fw{O6Q~llIbt0#)hUWWCY%R=Nv{T8+k#km~>SKYGuRi+E;FhyCy}4;~%nkQD z>9JGTrc}6ZySVAO*7<+L_sn)!F`=4SEOavg%cy|5iUwOU>I~SjtWc@V#D$`27 zSBp0@MyfC6jB=j4uw5`qbnV6J7dyGCm#u$%{6#MJ_BDzA)dEK1&W4Y>Q&b*jH}Hj4 ziA}Oi+CMuc;`P@vYtygKm%R6+cbBhCn95n1ZKv)wtb4rkb6|-NxAKz7Qe6FQ{TDV) z|0*(dMS1sytwp*KA~WA87n*xGm)b-+P79o~A#7txW(I$N!gABhUrna(t$O={+9z#T zXSZ=RyGd)wDxOmt8ZY=-PMg}hDQkr(c->*M|F;4Y7k8@-b6i4OjGS#}I2{h-_OZVg zdMrKhSKQjV&%8_p-{d^|8JT6 z-*W=iA1t14@R7N&(bV9(?7<1qP6ii$eDgnX%iJW=zoB|EyW*bn!jrt2_pD}6IQmjj z{$}%w8`fOb@Bc=tMy#)2>{9)!DNkNU?f_qM#Q}F`l^F-`%@=6mVhpX@^EKx;>lxc? z^QInZei-Ok%QW$jZS`i6H!;q|*~;B}Ce*&-x0n4{_uhB%)8>VyIVJW5>Nj3$-qhv{ zN&PB2u~c^MLX)fsv-f<>Sa`U@$K$bbZgX>`;p&OeM-KOk)|}YN6?J9Tu9dff{;t*+ z+n;1^viHZDxUz0fUkyFWwG2BaEbX+vo6%8tY~u4-YpR*b`(AFlmBIEcPpaXKz*c4@ zV}Uh#m$d4Cy8iC2u6TC*QILL%lJdM$dydce79JgNWlEZETzcL;S-G&66HDWpc9>?^ zMy%PtmfuUuIBeVW{QH*W@?yEQ6&{Zsownq?mi{s2*5(%vlA=1^XMZ_q8*y!gzNEuG z1OHXI!utbM)%6;(e<^qDJ9v{*ykV|;npHzjuanuiRBPic-3K0s)IPlO{hRlavcF6j zdrEGsVsC!XGUv&kPe&hK68~Ctf#uG3rYjwX{iF16^G!R|{h@Zr3)PHo)gezEmzI54 z`0+tL`+UAtrr%6BDhm$ZanQG1%KY{xTlC+h=ho^w1&Hp{`hzQ; zXRwQIH@~@rvG$CDqPN4Fs!gBllp zp1y#@s!1nUy^F8BUZ%18@zd*E@i&(qNe%tAu%%1pQGUaGv8fJs{ki|o>+#c`Qn--4kBAW?k2H`Pj}!moqdrxxbvG z@mDFM{nEr^Mq$yROD9cfWY=dl`@6O6VRmW!ZlNXN%)(RG9x7jdJHB34{?#8b_cb~H zQY0s?T$323l>Ogf{;JO9y0#z8uLUt2atS=CU9y+&O48cO*wbE^b0@9Nm{qyIRIJR8QS-3({N2&_x7t6f zbu0R*Exli{a?=#=`VIDrmnvNqnl(pOFYL#HrCq!C9_9b@sdHPk{fE>1d#*lyB{+Xd z*X+$fyv&-t4(r+;rkvjs(3iKW?Maz@)rG~viTh-)nzK(^{$iOu!KBM~j+R6kyo-ECO?B2wAHGxiW0t3(!1vw9tFTIgVv% zCnNqcxxL#c&9+uG+5PR4?S{((gu2;s6&yZnT9(PUYUPP-lWZ+NB(B^yr{DbP%Xzc* zt?{3kqRs#NxccsD?Ux)8|BXVIehs}Ny7#g8c7gY^HU!5NBo{iW8Ck@gSjZ53!SaYw z-(EZ0s0V$wxhhUwTdKsjyq)9orKJki>z;1w`XcmXWrObtfvHjJt705hU7lkqKiPG% zUA6T&x!tnyiSOP<7ge)c^GUvB-kxlkeOYdXXnUUa@&jiAC$s5@=3enQIAc}$wf4Ol z_idaPd&P8Toqp6Z@3qwOTbGvXTEiA-q)@K3$jsxobHt>|F&Ezx+^o7g@gGOdj>;V&|9=$P{=G5fdFt1X zOJsERXjh+mla;C;@~Va1_4lK>Ybt(ge`Q|UejwAWl!4t#Oh+gEycng&hH-FG2V0FZO+H1+_9nGzP0+z z|NpBse$j`2u6C!-Xg%B2m}vE3eif^;-nk8aOe`0_o=Ihwij69|IaA>Fo>^}^YPYTm zaIlt@Uu>N*DQi-rW}DRZu(RG*=PjPPZ^n!30q55ko?EK)q?g_F(}ph}lV{Gop4YG= zUVGvhfrDX3uJ6&W3hkD^D^u~4ZE3^hyxRZbMQ^@rj9Xo6!+0!4oa0T+nUK?yH;1f> z6IQMHx%owQpmwRXY;UmI3ARJM)3>U&<@|~^yZgSpz<-Wt*}eFd!|Muvan4>2+shc+ z)7`k`-c&`sh6oYao~-@*V>fv@l?byS%vyz%_bJPWRNPbTdL z1(DV}mn%5Gdim}4^Jw2%vul<7(n`84o8%UBt2G#VpW#fL<`Axt0e{gPp^_6j-itOi}w4i58rueX6_IpeD z)m%wKolTP+HqDm$rV;Am z`b7VScJsaUVozVL7XEo)M_WnNg_Bb6<8@C>{+Gc1aJB2_HTI`w)NDP$KZ!@^)gyNH z4gNeWdumIA%-$T-`YvNRH#Ak`>8H8dCWYyKT^F{jBd{dlcH+GUISC0jt(1ieucS@z zmD*5}KCR4E^TaK)PL(pY>ik>vyZ_DDzklLdTR;A+X-5@;_OfFR%AE;Qu2H5Bq-;CVr{^v17(JYr@Q@Zq^q&b98~o zjNAQu!m6_@G;Xf#OzQU5sm^8Ur;F@0&Tucp7sTPyqT&6Y@7x#8A*?$vu=PI_=m z{_;LHW%UQr_p@y)o*xM3iwI1q_$%1f^VmQw;V))NR&k11rbiYYszLdn_*=zGOIAxTC zml+l+dFkBVtX@(xXXlrY)2xS7IK_3DCwK4ToOGfvneA5iC=6Q1zmf-rEEFCY{a5Y*b&JyX)dtmeW#8dFK6dJ%0Sg&EhYfcVDV%%0GzoS;pC_ z@N~wCX2k=xEpw(Oh8)$~pdY(smx{~Ay6p~y-WT%{7JKV0Eeub%;3>P`K{zb8#eH+Y z0^akCQ{UX?I~yKb{^;+LvnGDGB80cxx{|&K$&i!WDp^!IG_aDD|@7r~K_4LeJ^)vWKCmR?)1WsAhulbkH^Wtp!H?wOqX`-Gn*TW^Qg z}S^daL5ci`iTM2d%DWWjbb{ z*zWaLyeB}P&;4-b&s`TKdH&S@UH*4>dG`ON>Q~eL1%~c!GnlRLZ{l9Fo$HP=Jm34H za-4&57ViwEnj;r;r{iUY=!3& zFD?=0-BKT0aF_segu>u>w^?aJl5;aSdm?^JxPs{VZT+%fI1 zpU$qHzPmMIPi)LxxychZe0g;4z~}V>S@*e=SOb6TJQ#7o@1w}wAMc+$a!+zMS-Bl@ z6|(6K)hH=z)hXRF;Wux|r9}p^1l_zMlE7_l7vrjX@W2c|)11xi>3bs6RSnLr=x9y< z{xn-$Zq=%!S8dmG-i9`KJd4%X|ATT~zJ5Y#7V>^0T3rd;4GKaB~rj zl**{}8xFd(r)*tobF=DY)2&`MJ`U^X{JZ^oGah|ojw}AVA@%>(jXPgX*~?>{cl37u zQQmpmLWFo3pB}B?_^UT>-^oRZ++HaLPgB0NA5QyQ`FbPwAJ-C=1Dh-DcAfHQo6fhz zK7ap?{cbZ8`vX@!_OMvj@bT5d)F|&u-(D0oT-&{L{^NgtP2XL(c3YSIy6Tq$o*Em! zKH@xNbn8phpT~OB@8~@!>X829Xd!cSZXy2@sYg=}?Yy~*yL^(gzgfeoxc@s?WfIfV z#kK0(HmY8E9s70tUGw!K?d|t}E8Vz}lfVB)U2of@uOeki>3es0J+$y?-r^_yXyF1D z@mqJ!xV%bTRJQ!QmGFI!ezTpiM^Co+=Kb5T_2>C-r^9!j*RoNczLV+iW&c&@{!Q5Y zU>;vbr1g>JsCn;gvx7tWPAyA5p&GnN>$_3rWgDk%iI<*@zZG=z6z(*7Tdgg>v_mOe zc+th^&JRm=Z(EW*>BZh|d44H*_SCO^>jkFPbTOxGeGwLWNqxWE%1OsEw{H8gk@5f9 zgZ1CDSF4Hb35r|3HpO51or&|K@7cXqZ)u%-9xTwiC^58JDAGV~%e$GJ(_X&d*xr5N zGMi2Lv6Q0k4eQufUE2NAOK=s3|L=^Mr8};K^r*TBJzBAVZ{MdH@jXAoKA zB)in%zN?#ca=%*RbCIB=Im?pw++*v`nSY(ju(jk^_aUv$XjLtjjWI5o%%^RG#n)L+ zWA7I_YiBBaY;UEDPb9O8cyg~5i;t?2~w$#{Tb`S0tyxqE?^G!%&(b37Q+xPt3 z>7;R}>cy2#^<8`&7k0OF9*I+1%Eu)1!}I7DHv_houfKktK6B*Y(YH~-=?A|Zz2^3- zX_9@d&;2=-AG5OGpFQ`Qi(|*}iG7=ny-B#MbYJW0s+b7oTd&j)GJQ9VPycl9tnZ5U zQ%$UWX6r4tuxtzo)6sZR=3f>+d*jlWcgce9A2Tg7JK49&UMb|{8N-RU?3NcMF4#M9 zX1;=1blm*3zV?ow*3Czq*O){Z$lh(7{OXUmjLr2+SGIj@Z@(}zXuDCvcFUD{Ry7u{ zjrJ~56p;>>^VH4O)7JIe6z?)o#QK(A>ki|U+ln{UT-0GnEV~(!E60^4pR#A#8^)_0 zUji>^d7M1GOZwZw1)(QiY@ZeVznFJ%Pb}{l)wPeV#R`cnyi-5Z>Cm!_X)Rx`hpElC z?qFT8;Kcr%V;3s54zNDkdrct0_44rtC)aJc<7@RT(L~1m=f?X>+df7gv=CXpJmBV= zzy`0g0uE``EWc7u2^8#f`g3^swAnAYo*XVqkIXN5!<@W8&kd!f~DLTqG)aF$)T>xN~wXT9y%qu}~(pXhs=OBGuV zCq5V1*4m*Vc6e_}asEGZSKTM-od$I;!aVN6ldA~7d)~-JLhoUp}VWE7;d@Z$Sdw=!o58A)Z_Y?K=-0AuSH8! zGSBoyPdmK3Ce_~ALdHt$s+n)p^@``m1zR&G%>gf}w{5rDQ~X};m8{|2*S+q^oG#NB zT=w@hs?L{tzgJ9i>nu-(ZIgVPmKx4x`C~sl+dN#n=u3{&roNn69BMn=w#lbYZdhvR zS+y-?vd*jGrxVxAaao|V-C*LR=(ZP!JPT&HggU8D)}0rT|DfY#vD37LU!r-x{Ruez zZuWKk`+L^CxbiA@u729N|MT+q-rI3@@qWv5|HHzi`{mNk{g<=ZQD6S=`}9ATrI{io z^*-zLkNy$Bc4_{}o41W0$rgPJ=DKh;z{chO^Q8=xSv7K@0lp0r*}P|;H_y@1o}v0z zx8}$C-SzWd{;cm6y;}eDPyFv?8@ElH`@dhR|J}3y@gMnJ=KKn@v07hxZql-%dr6`e z`I8srFAucX@bt;q|7M!M%-$W>Q2V-j+lJX86S9p=r?;(mX}UUoFVlp!;}Y(BmwdK+ zy6mGY%Urpu%gmE?x**wf~oV@lN&PC-1&oC`^3*YS-U0J1-gE zp5>!0``@hZg8Tu|ABUbZ>Z!iec-8MCBqex>`~KXcOC}pDwkCa;`>iWshN+OHgqj}D zWE-BznjRVriZ4|wgl{D!n(!39?BOzem~uYc;AE)5%+*bs9WSZ>-yGiGGJWTYrqvfB zLLALswLY$^$h=)1^r=!U__K=g@~)ICaxD#P-pn(uG~bmwt2S9^* zm>8WjHJZ74qGzJA*rl0&FN!|zI@@Lte&$KxtjjaGW}Tlt`%L`19n)jZIA%{et6w5o z`?EF0N^FDqVVyfQlUINKno}BS^sqnfoag3(HGk)5D9t^--@oy4-Pz~!&rG(rlU|_8 zed1)W#NNoQe_C%$S{3dbxOTGSR=+z@>fu*@)mix6Z{N%G=!E{In_{^)V^Sj*o#bQ; z4==msc{_dkwvg0cbx&U{jXuv%Y@I#LeoDB0a%94;qa~@k=DvqH$3gpU)v9Qd zey%%GX&(*CPltyzpMJD1>D;-X=RHm5H-6q4cQkeG(!8>@PE4%DHzuccdt5xDzJ1Zj zGhJQo7uIXA8p(+^FR@Q8@>_T2rGHD)tj&8CFSwF&FQ`mR%=Ago+MItUZGNVn;eKUi z^6c5{n5q6Hi(*pMQZJo(_waFAocx0iYYwe{cPeVi!JGd?>&haZhDPyB&zk-2orc~$ z?k6Gwer;(7r!86_RjwUyg;6(Mr0&&CeanD5OP4O#uwO+qrQq6zruA+qTEDK%{dTZ} zfmQx1lU4gHcjMg2TVqcg>yG-kGs2PWtlu*RXFIdA(YKkNZJe>F%xLp|jdtToZo6!) zb2X2G&s3Sq?K7L~rarHy$aDEmm1vP=CHrzKTkdFoAG`%>jq^rEj*9>=wL8mmv6&2wYs z+I8$cO)-3XSMa#&JyZGVbL8vl^wn#tjh4RiEWBHMCUWKPo3HErW^N7s^@ulen|pAn z)?TO7m8?a_>Fdr&r2+G-D396+o@77 zEWk5s((1Ox+j}I}`L>;W6Q)+bLe%8n?2E$AhTAWmc+%ze?DfefT#x+LslAgtdxP(M zUh1ViLT7$Pz5KLYul7dD^5Dy6d8|b%!~dvfH0-Nfd0zNNo485ZrP)^hpLA}%F;jLz z_zTgT=bu>9&9|7_RmH9-n6cVK>@KH%V{;tuYa5SQSI_ZGITPA0*C2WKh|cZBFW&5W zu=A)=}-!{4F)*ee^<_kC77fzOJ@LR@g zrO8%O6zg!YZ`wr5T#>yslXLc+oU(JS$oc6%zwcT1yHdrAH?PJzdp6$-78yh z5xvtwS*BL+{?FfA{yzV)n~>}G_>aL`Ufwl)d7@;${G_Ry`_@|QJKo>(HYM%adupD%@uP+aSL-UK0F5njYPl-mw^g4= zh3I|%5JuJOx!F%md>E_0LV(YV?G-`?Dmu=g%?&r0_nAPvDX*7TPx5Z=HwSO`9 zI!^ua*!J~#QEa_l{yllSrO%@crDi=1OKzTSo?S3GZ(ZgD=iLu$?yl)q&5WA8_hHGM zHOsSSi7va?%iFN&($iU9(?e(H-OIb2*NoD1n3s+{h zO`5K&`u<(WAMX4AA4I3#-v3{)BJTBH{U7Vg{vS5|fA+(>clCcJAB(q)w4C|x*!Oyw z%O6)imOt=*_iy|C$LpKhqkre$khZxKcE*7($J)`sa>Lse#-|6i33GhezTjqAQ)5xW zZBF)6jk)Ry8tmKVPFS%2G(!m&H%Pz$ByeHD?d3PcTm=@nF&~J_IIvv#gD9tx{l}2R zn#t$?S=%)>{xCdeAR-iUh~xXQ?Vpc&?n&Cuzcb(Ir>oKO>$9I}KiKo+%?XPG>Y6v0 zx7cQV)jc7$=L$cw@#$yc$AscPGd_q&E!bFXV`IR!FSD=gqkP+oDN6+RercVr(fRyC~|)|@b-iE6whUa zzk=^e*eto^cjJ0g^UPhR^jX&&xEz&yTqi**WY%7J(XgDO93pm1<~)044oLZizUG*^ zb#|9`jfp5wIT+~gdICq;}`H@VlarG0#~{C?kh z%TI4}V)YjqZxX-PG4Xzrgzc&OPiNlVFZnqu^xCKOai6N>{FbFxD*Kx~xDXYVId}R_ z%g<7^X3GpE5?B9d`?EUq=7eVLv!)+D9Q~Lw^*@`7d{GM!Awm75XOTDb->u);Q6SwF2)$q?BU*&9^^{n~y-PMYA ziY+Vm$GrPj)S7rpoT1V{V_C7mLw)%^wr?*!zDUZjk&?WYvBP?U+mFeq@sc+GD=cI- z37li$YJRO#AGd~WKSM*jUhjIhWBTDAUU!Ml5{Y=0ooqOFj!&3T!L0_>gt^BT$0xju ztc!nWe#}Xmd8zJ-!}m|lbK1Z0H?Qom6~TK>vwgiOFn8adR6F~F|Ke=qZYo!0Nln`l zuJmC;k`-1MViN%xR_d)Zm>VM?)(zZd%5C^se#1Qn@f$H z=NUK4NQIwht|~0^E* z`tOz7d$7=I{;|odLciW0Q#z-X?w#EK@?GtN9_5VL_5Yfu`ZG?f>HNJj;&G7JKCRP* z!8ulJUCWl3HmLsVyX*S+OUaShl^ik?nR@-)ubdM&dLVS`0ihQvTwg3QS~@o@Dif0$VQHr018#NxZRb&s>>5@$-RowxK84HJqH)oLed`pa?yh0b{QaxtciTMU<=^Za`=0dGSk0ZI z7aHo8CKf2-V*bfva?SkdtGIPH80M`x-{+Arm)kMWh;7kg3BeG#d+pDHQe&;@(gtzHhnkyzGa1z{Cht?^ysoF?KpjEveTbBCa=56 z?xbX}xUU&Wzm#c5k&EA`JhO`((ShzL0x; z^SI?(H{k+56SjLl{-krycyKWzA*RNZ%iY;%#&^Y=Y*H&c_s*SrzFsi3f4|hvO>g2i zteF&|wDa7w1CG1;m6L0B-q9}Y`1mwy{S~F(izF6tE%~u|;fq=4>jSU!YIv^k(h*6& zS>e_{YXirr=c>;qaHOtjm1^bPC?mVZ#4hU0d515LY#wj!S<0~L#|A!y&U%X%n^q-M zZ=L6%d}iN+%ezn8F8H-wKYp*2ef95GZ>?)rv;X?~t)2fzobY*3YnO!i7jJVOdv3qC z=HJ8JAHVDWule!Hb_VzSkRIO9ncb0!6BYS{Js2z(3cGl`;ra8U;Ky_RV?yf3`TiV_ zTCLb+aK+5E+vw>(Lx~h-slD&r4EUbb$eb|xbw&2ukG2CTrfIE~nfx4VcK&-40z7{7 zsx2^OIm$M5qMX$CAC-Kai>K&@bCl=Rf9m?RPfk?Wfbk#adLv~S14o}3TCNj{Zp}E; zc(W%XGA^6^IJ{$vM2( zYrg+pIeG3Wue`0ko_XQ<=IO^jPDfLAu9kXTv7@|<%V@r~iNJk{0@*cx9_rQa;=Z2i zzPj6RvrgL{^@*xE7*uKQ^skL*%Zg7*21gPsermv*!5S)DwLvk^A}8 zAE&7M%Y%P8X3sYNe09d5ZOt#&HKfQ|Wn6i*p+|c2KR(g!xHXHfoIJDOL%3ksl8nGD zMZKo4qr2zx+-uuZ)39*PIsJsL#!EiWR$u*dB;m5;e`cl!bJl&US9lpA=DOv4xjxUG zO`)DFuZj#Jr~O`e?5IHe>}!+GwYNF+OwrtCe5n4|mc;*0CNj3MX=_JK=HQrEGPkwU z^lFstGCMEXLu&+T)i~l-6$EB(SoKD^V(BjNs=7km?kjGyg(?7lkL4R&rb=pEnJBQMR8#m=>0Y0t)t4s~a+Ix~ zlIxu+FOU;E<@@KFDQAabJ0Hl6G5 z_X?i97`1X0_buh%=`Ie+S-kueQ#}F z_h!-LfMm;(xWlPjiHxN)SdV=3(q1MOtuK~tZ18k}2?Uz2h_NjTT~Kq{PeJfRX@HjcY(Lql8=2lN(=c^Bn?6$_?H^0b&H#DlwY_Rd zmp^Ry%5*jLzY%xc{^JpoKm_KZw}ne;0jKP~1;nfAyf+lJmVAU%%yFbx_+&ps86~ zDk$-xsZUI1|4mumZAbSpt(v;>Izx7uW5B{~MwQlAo=yI#77{)4ADhPdY*sbK>Bd`> z4vF?nu;J}$J1gZp*KCgGmDIqgu2NS!rsN%X`n;5J&6Bu{o#I(~9ieNw6_#{_7VAg6 zb5#|8YISX8cbVUB`#+7L(cusN+&joxdod;OXXNF>Z(m!x%qy5;ZM}5o1n3*S@Aw| z?tG>i^I7?KC$v0&CYd|2TUz_orq$b`OUkX^9{XPZ!Rfx3-v5~D|Hn7!USD+$~=u3hvr^3c+NouA80R4320p53*! zvZ(!#>xxaRGR`zTL1P*J$68mPg`BojfVmL{bx- zccgb^=jD0%o?OhW`R&`!+qTO3U7k|QFEHJ{X*uiLj`vDFwHp}KFXu2CXveO*(e1noBJT0#AAT6tg_&pZy_tW8X68)jw-yp1!=RSSD8D2Is727N(p2 zaHQTpoai5W-1xFx>a{%)pXW+fSF=fd$!HZ?*!|N)+W&LX(QtW}&%*oGZ&jZDN#E_l zl^N!&67!|~voh5;vGJbX`DfYJJDl}j|J|7}O``UXN>tZ$?-vUDvyYYCS^E9z6zh_@ zKPnoZ_eAvhDP|U}oDf=cM#S7sf5YzY4g3O$+eGW~S5;PCd?2Xk_vrF1jl^wF-X}?| z54)i2k-EF}?u(ZuGrw~Z+Z7r@Z8Bm~o`*iJS-8tK$#m_-2{AX+F3k+u5q4Iqec`3zisgL% zGS3uzZ1NjK~V-&mF%`WwE?Af(MMyhGbu zukfDkxlezMoNYBOt1X=rtJHUS^8YaZ=9`kY8X2eUytJff58Kxl?NOPfdUs=wtABj6 z>ZoP7&l#?60qzNFo_qGJ`1R20_Q_aA&4#|&ef>rcL|2ycotPf`aJkX_2EmE3>W-X# zOa(7`mMNLnv*rA+m^S}uXmg9To#SQ$?j7q=S^dvX>o|M9>&yy{`=6#PQ>y-c`bf}+ zb1g;(w{bWIC$@JdZ#nmY^%rAy^(L9;>dO;0|FbdKv~$@y%c9T0FD5Ikzg4(c`&Q02 z?2~cjHoH*Kb)D7=5-YJKfqUJ3abU*78LwdCDx8J0{M( zKJ{wl=0!|j1d1$~I6`9$auj}N9t?QbWzO+$ZrZ_mf1j^&U#tH2>wa=SQvGM@(yOka zpYCUi|6L>1wS;@!qTcm9A(zCNRMzia{;H*VRgi*rY{bh)7L)(BUQIc7CSGr)q+n}O zo^@=vO8L>;jWLE^!NH>CrwlCv+<$r4ZsZFeQGkzY`o@21y<(=xH9n~J?y}Nd^u8*$r=-SOzZ~lbKz+K+! z*)xr6p6cm3Y;6Xt-$hDRr_MOJyM3PX)>mE1kL5}iL^;hkc5B-?`wGQM6Qz&wo8$`q zNPc6lsO+#mwMbvSvS{Z!!J{I3SX?W^cIKTr=jXTX$fw2a9)>}eE;%ZvGM_Do_|}tR zH$Ti;N49RcDT(K|9G=R)vr0k>PyDyDUUxi@qY1^%$uk7 z^+jgW`Dx2mho5M!G)wUC5>Y+BX#Pcp-9|c%bF1JX`XzYSXhB&x603Z&+|=v6RmSL)Jh&jmQlw`yyPlo%gN^ z-Mg>j`?;@wrGH)2z8imjr}Ashx}dwv2dc%s_Hf%Adv)@H)BVfc2iO)%S*mmeTF(4r zBPIJo=Ayav@!xH4n>q~xzn4uYU%o|uk+;~biwEZF6?Pr#`x5bjbB}rA7xhT_Rb4ek zMjP%<-|@MLNByMpY(s^%f_aOsb;Y)@Lv3|4iUOV9XhyVJ5c zT-xs2%k=u~DZ3ft96;aPl%W8&#`Q;!`pvO6#R?Rx~b z`enn_88V9b(~omkEb05E`pl`V=tIDq1yYaFxmo`nTx-3+-b!e}@3%Z|3rp$*SZ^w_ zTz&W7{m=Zx`wksdK4r3F?hL=@2DdlF+AK;}X^mXJD6?aR)@L^x)z!Tby8GHWmqto& z>a099+d=DNlF$0DJ*JoEbbTpY^u1;A5eL<0ww#&w1Fk;3*Z8rnZc?$Y<{Yhcne4mP zZ(AIYe7KCwhsR)VZ~eb(@`?o;AKzh;+#Ho4t>O5SXZk=7IrPOB-}7V~h~ zAwkInJBo$R^8`EfCi70TVDl*XSQ00q@HlL;`^OTY$6lh-1@_2IUVLiDh4T4trKII& zn(qFSV)Jk@8#Bu?k;{==qkWguu>P-0Hzuxzb8D3MYw^gl?`K`rWB$wYmZAMZ5ro2%}x{QYb~JhSHeg#sRj z7JO-c5aG=vv%;@9cTwNYpfLS;^Z6^;HXLlY`S8`(1+t=%hUXZ1?#TWK>R!rMnYs1y zrkdi&H~PA>9c_3erOqtfaLZAk<#}~=bM;jo-?-JUKQ2wxDHPi@wK1acGRu{mgQ|YL zQH$1E?Kvbey&zj+gGE46cUq71jMbCE7j)ZqbRH-_t$ zb3kcnGVcmW$)??VgwJ+0oLM4yJbiYHx_(4faPIQTd8Q$kckR7wF*hoUGwy!oEO%?& z$uFdMj!9j3cC&e%=jW-*LPT!yrhb^zR%Vg^&gA@(xzjSY2ww8lDQC{f;@MXGS7s-# z>Miw)=e8QZaLc)3S6Wu^Y{I8hMb1-agG%SO-b&zJ7|I^Xw%7IzATGM;99EcfT!x!&6TR~yB8_EgGD@yK2BGkvZ` zh~oLES3c1zjdKG_l=h!$-7lIOv3Ziw{@(xmbL;=f{j;BTx!}J!$Gdy~cYprB6A8V1 z^ndcDe^(|kl}h_B|Ec=HoagxKljqZaemQvQ2j4QawWVywS6_X3@9}YQaq-2MFF$>; z|NOMmo^@tgV*UH)1iUhDX<2*JgX^Lxv6teT94m#+Jub7@;@?^AJ>Be}G7kq|wW-^d&r>tfe^i(>|MJ+K zRXt;|g8iYe?n!ev)>d?gwAXttI(HytQM9R-Va@!u15TDpXGFCuda?RxNW~8>?{(9} zt_MnGZH$X!dKDn`Pqg6E>C2q^TV3BXtSRH|`L_R1%_F0yvNIOf)J??JG2X*lji8{=aK)P*iic5`-9W+j}$+B(O+~e zu%<}Jx!1TgB7Jpol>!H6hfc|{PUi;(#T{>AnokxTFFKi6yj9QQPVUN#6hBbBtnJQm<(B>4syE*++_*pfUXae>LO#7joAqZ( zgBG2!3~-Y^+Ta-!v^F{}eNRcirVy2>XZ8u*TqTisb55RWu(fl}Yp*anae;#iaCx+LVn>4(oygWVri{>YEPWo?9b@lm#6{2KvI^8rpvaajDPWY!QTFV+1{9IWh)TQ)z z)0L-QYQa3YYF`RpH8c4>aj9A2b0oz=WO|;u#GQ!Tu$g~*-==*nV{hg;czlhaq9~i& z)|))?J=*bSHInCjE?lu^ic8zM7#pWEtjWz{_Z5FYoqmqB$p%QsxKuk3qDp-Km4zxZrhKaId+Es zq*s{Ef8e7WKBM*HR7T%K4T0oe4WW;R&3>Y=@u7QVcjdQE0mbv?F~VvZ3+=f5Y7W?N?$BlYX*=uYOD(pot?!rW zK07J0hHIaP?@uB3%H!`#q|V={`DgKa$+fscP9IhMS|3+L*(^%hu&upS@7Kx314j&= za|ADFD(zR>QR2Jq3Lnp#_RSB~XK3&KQFKMCeSel|7`yiMRdbI_XWlc%_K(RVy9=tZ z87`jpm}Qa`e9yZpZ?esl3Vi%X^;G}ak4aiAasO)CR@dy4Ui58U%@3|iJO4WK$3J`} zpXqWT^K+8n{E1(FoQT%=nBN(p+`Cjlr*}r!#2~fe)wvTKGOCltvq(j(OQcC*8(faofX#41e-#+j$FQ+e5LzFLX4S& zF~9K|)|9T78x21{%xGA8?o?2ExU(t;uYSjmDR~Fjn(u2r_LR=j2+#Z@Kc!7(YI`Y< z<@+LJt4>|jIelQw!)sxZu?-0|x*W@ol~)}}bZFipwS=wBOH=8o^36#> zt8xlIaQ8gW4;KxN;Q9H0Cxg}FEz{kX?Q3={D9>NL{#1}zN@n==m!DWR{?@Ka5!(^4 z^G(a=nCjr^_O8_pIfAWTLK~NN#5XGP-&h~_{@uUt`(ONhKe@u_ckHA6Y<4>|DKM?Y@yvt{)L ze{5~PGP_jrmfhJ>vrdkG|BJ+*mXBqlTD0H&SW{9tTRh%ZY14+|U)|0>4!vXS_5Y#f zt=T{3T9LV;6L&%SXi@f_h#g_HG{P)3X$^H%3Pkf7b*cZEF zN1%9?g_P-=V=vg2Z(ws@c5mfhBd%99t?Qz_?`%oqi+giWuCkUTJ7z_~)a$Rc8uUNN zO*u3_wPv@KW;*9--It#Cl8qx%9mMCYcoYy@{a8(*+RyWd{R81`d}~|2rf##kx43q{ z+XgO%moH8~komarM)Ct~WhF*~@Ao4s^KVWmKlP;N#zX1Jwt{!76yD#?So`>|tmL~{ zn{Jp_he=lJml=A?NcdWWRzFP+>`D1?r@%OR@!PiViV@|Jp2-(1stzY=-;gd&Qr3!2 zI%bvADqp#*Zf}$Egh!g|j);WpE?0cF`i0)c-=ZfKey_fBLg4bO%V85u-w2k}IR@_g z-hIh)D!Wdojb&v0Ouy>cdG3zx!h1z(0$#7Qt4zIq#Nf1fW>t;*(mm!Lvr1Gxh%ZbF zvtMZU*pFc*$FB?1U(aRt-k@5b>v#RRN8{t7$4A@$^9rX=W4u)3-B#b&_DA@y)W;Tm zPVPCL{FUz#eU9osnt9Upv2nyHdA|FKZMJfeOzB~jK^taui#J+sx$08cC?tP7@n!Nf zzsHAy0#r7K*gQ`v{yVS8Hu&D6pHtU$8O7(E5^ggAa!py9$^q#;+|M7U_?3(7>%TnT?fH+7Pb=z-j;lWVle5$P z*{qMO-{T$szOhuZJHzYxvAJAi>*EIdlbjchGwfwtvBHJ--f?}mk`kW$4F}7PzIL_g zT^oM1Yy;c>3gsn{zh%Vw1d{SxdrR1|EFD1oTdh-*E zrrbFC;!=0hs&&;r?;8HR{r(L*bJ6?;gLYFMXWStVR%Wxj`5L>4kiJqkF<&&%%Qz;r2& z?`f_%$D!J_ljJlyJ}i6?zr$=Xqd%yJD z3)|!K>aeur=Ri}jk1{eETDSUnd!v*p6IRhRo$C{1fv=6(_gXb^RZzR`#Fm4nuD=D@MJ~EwO6~Ca> zHYtA1GtU~!w8kf)HY_`ekIqv_2$>qWC!tHKmP_A#p^*z;Y*_RY_octjiqBH1PWx$U ze>b^RkR^Z4pepM>{!UmQ27x6Y-mOWcNs%723EeC40fc#+7!51E=LL>GzT|ocu$;?1CG^>Kg}g zQ#3=T`%T=+BIwJY>r&dwlfn=D(Z znLp89=|tB#C4m6ZRfWG>^XKrU@NG(dx>EFK+Pxh;rIrV@cg`_haBqRw?}CmEH?~cd z$-mii=ijc*iPwFW{Jj+Ke!F(Q=kG87d-ideWb!&nS6=6Re)G-6uga_PjKZv|V%4wi zO4_9LSm~PgRJMp^zu5TO+-@iG_b!h5eJ<^|`>E`!-pK}=%hGkE&Ykm_?i4UDc*#aL zf6lN~a~)1zm=znisXYB!n#M+{?arRAE4FBvD+Wg|y)U#@dcvx;mwGSWTBZ>2{nPam zO?<&men~E>6u5LSZ)e$s+{<&MS9g`H6M4I9+k^8?$JBq?XQl?Ou6g~mmF?s9nB*(G zW{I2cTrgTKk(T{-li21p7qwoeO^MB)eD{pX?ITLN?fE~=v-pU_pV*&Dk*;=+cP4b3O%AQLe)}kL>V-?)e~$f#eZw_-7pMKAdr>N>e|;xD z*{{80U1+hiV6pGp`;1q=mh9!bdUoZhpseNBOBPw*mQ7~()_keBW9RYg_8V4J5tAM- zn-8-GzGnhWVdvQP) zKCLtVN9Iuvg+mgK6OTu2b@#I5Yrk_X?(loT-FvwgAG0%*Z(Ua-v^!_cw(@nWSM1;J zWh$BUwD{?^0-cB2rmCmb#PT&HN_^e!aC*Vwra6aZvYB5rSS58kLGq5U1^>kj2Y5eB zW?OGCo2l(>Mpx{|Ia-AWPpWO}&%fA}=a{k1Fe~`foGa^0yS_iT8L^_q#M{DAvQoph z`_{=g*RV(C^WMJ=)cp3w`n!+UsUOWxb3GmAWHWo{-o9tOV_IcIfkEw`rL*VWuzL7z z4sYUj*B=`%edk!9;qq)@6r(cZ;TEHc%k!Rp=saT7-e&wKy52(hXm#$6mG=QZ3v z+VQF$UN`qfbL6L~u1hrz%-rEq)wssWT43`Auid3nGV)JfiIz03{=6+9lHVd@@g6C5 zr^neP(^u+Gx~6bq?gWLs;c;uV@=r@D`6TqVPCgmbbwKUh-HATlll_fyyyw5(5PE)l zl-l9lGQZ~4T-u`UFPg8gFZ$ctBPX|ia^uZfT)D7)^Ev&@=pR*~iheAPRUCiMIX%8u zvPb{Xzxh^LmbIizWSV^h~P#@ffO;oEWzrvJ>`)1kSc zQ$uTe+0$LIO&JGY&5c@oKY{thvh`W^FV-9GtQ)sDEW|vF|azMH8-`DqML! zT1{HZ@dPZRjncDXcSmdPZcABW8C67`NM-3xr7d3`ghS(g63Z67O{ zB~EQvCYpl@7u^`8&7^XK31*S?-4dtEdk*AInH6;Sh~j`|M~t=Cy~-F8RhI=ia&J=W#A7OmJ~C zUvHy#f3idJ^lBrn`^Bl-cZgiOVf*Dp?4#KdXLd1mm{*;0dbRnPp=$X5kF&SS$JPB7 z-&c0%**kgNM=58R7HzKGa;&(HtF~`v>HS0VG9F%i7<{2@PwSpLp-E!7-!8wnDZ~6= zjoS~Nvon4!Y5aP6=GmYbuWvH-7Q|d!S0FEQ%;Am0RGzCHD*SK!4&QHB9$^!<w2;hwNMJd3McW0rADN_}3Q2dmo%-Z)<+mWy1mHok|x^d(017G%sSm#%A|v?c1W8 zUf5U$I8R@3Vn(%t_J@@|;PTYOVa-|k+o zee>?FKdU;9%`GbBtf={M`F0`e^iNlwN0mhJbe1MPxp~`M{@&i&Q1&}|E&_`R{i`ic ztL$4-wDj8@hUd@A3^m*Z)g}?`;p!0ZtnHuT6O8fvfC@) zyne53HtB|<(CtEAtBogj?zFiknm2htXIbK_cYQC}%1_VqdU>X^%6pENaYb|Ks}Psm zC2yx6n|y0;)h?Gg{tovp1iUFJ3|?LGNbmacS92Nk0<}-9dUj*NZjWno4z1RYx{?vG zuXEu&rQjIt8NydD{V-Y}^H8H--uW^2{-F50mB|VGRedw=-(%m^>#9|3_2b9S^ZxOB zYd#(`aGx)t-nnH>^MuOPha4CGXLA>PW5UQa{pXwO>ppJmFZjLtkAU=Eb35Lf$M%@r zVFaF?su+r^HFFV20C-rx{{`>Rx^m@CRbxXu2d+$0wt#QRxpUJ{ePni7u>k{*C zE&k}QvYz3{@0|DX|E?<@bkTX`cchRpxn%xZw$v_LE%D=RCH*UM{!aZgc^iZO&CdnD zblJ^(mK&_qetVgDThe~Vdks_N94)5q*xq_z>U<9`m8lwn_Vazi9&K6oM6EQ%Qm;B^ zgGAiY+oytdb6O@`JS8FEmR*xpS<~}AY*IvqmTFbo)0a~xpI={J@%7=;@9X(a|I5hf zz52~7XvAgTX*H^3ZJB`w8;;@xhGZ7 z_T1Fu`wI=1PL7{_KRAs4*Vdj>g{Ictt}?A(qY8g#?ay7Tv3W1^W_9_yDo16Fmrc?? z{`sk`Ytch-)+8}w)@$c0=JPZk)~Wp9rWiHN{$N$&!F#bwy)CMb9alg0eEWU*eU3-} z%Y`w{SJ6B=`D}61Sb@{0x&!_fWaZucJVC$(A ze~xy`C0A$gzD_#RJ*7MD7mQJ-0x(b*5r_ z_{K}~59n0?dUo^S>QC?MmKvD1f3dn^`zu^?UBvXZ1mn7->S!*76_@UD1BKUbjKje{RNlI!55<2mfzmz`}B(B z39e4g6BSd#BMn-Y=h<^iyL!a&|4E*-|JQ2+*FU)a{j@8K{1Y$T-oC557QHHtSXyTx zBmb}B$1~=-VlO6xi&?F5yLS66bm4iBB>a7?gtN_)iS;-49*K!r8Y1Fh!|I(IQ=Dka zs3|Z1R8`xkK497o^B4B4+3d`lblfsh&0@LTo3hx#cg3feISD>~y)Pps9V$JPr2Dhi>%|?h`D^>0 zb4S=~7%uGD`){9wO~Se?o+#VRrgFJUXUNS6J2}OEs)SEfs+dFYk;`v3tE=u?@>zJn ziL9O1@9Wg%$A>&mtor_|SFrl*ffsl6e(B|BoH}%oY1Ve0nYVZQPPr4OtM$$|`O&v+ z0!-VtPgPjAH@bb#+q*{Ra@TujL?2}Tyx3Bfsos94&$%waU;ig&y=8vvf9YpVNoCcg z=hvBT+=}mw_}0pQC+@zCt6+QOM0JHd4cmV_ZZbOaD`VG;2e+I4h9#azeHSdk^*8r~ z`<@21b$7B~Z%JJLa#K=n=#|%RH@r0t2#qwF|Nlr?Yi4=b`=jhX&TgO9+Q6(Owq>!; z@9IC^JMJgmWnb|A(c+~Gf8O6%^nGS1kJ#;rH!?cYH~-X1GgP#zt1JESw*BMlwFH0Z0L;pcYUEDhg=>1sZu*8R-3c!^S4OntzCOCr)6ii?q7TR zhP2<`o^D>g;=aq7J)MB$Naz0g4_y3{(dWMP9<>xi6*-^;-)021KU55W{AEu?B3_9{-2jeyK z7O%@}jAoa^p11yu=6!dxW@4{?f?06!`+0Ttb$`EE27L9;zn|FMe!g+feTJEto9ZSh zI)#~NT0{s=%#fMv{qm5(QxU<7V!VMBOj1c3jrIw2=r?eklsDmz*lxe@^W+Pc?tjeW zI<~|jDe1k{fi2FJX;bE{oGfheBq?MOSK6M#I_I>`FKJ7y5MSfIaoNEgvK#gFrg*fO zbp^k9A$0%Dm8V+!*GtcM>U#Hp%&YQ*n}z|?IH!cEhTZt|w`89F2Tj?f#=mu!yk6Y- z_j+VJ4`=TBH;XPR?4G|s;mPg4Hkx*}bK?}*dnRk|TdID9Wp~c$yqi)Yg4{39zFIiL z*|T!@({Q8KjCx zb2KkG|6!$_!MO_s%+<`lPak&c<=MFU@AiMEn;b4E=JIIBzLi>j*@o?L>csiy#FyM; zEMZ$!Wo6G=;k`mvYjW=bhO`-H(l2W(cTP{>6fG{ZF<`FTHtUH9^W>0cMdCT!F?XhA z>u%#*7P_O!X~#}SjWg~|-*;c|J*V`xP;!tazQT>lfR8}_GY($m?^M_z^QDsjkhGxvS;w21GT;j9^#{9AuT z`+f9%cIP!OXK1?2jQnG#MQsDOxtugQU2r!(_4UM$;``=2_+5Xh@15Rl$HRQ5a>c&2 zeNCPbq3^eB%J&+-ytWNDVwDz8zOs|??+HJJnBV80Z)RtCtdV~E%#B;3pJv_Y_xRLw z=#8{tE?>-i-;KDqg7 z(yy=KS}NNZk2fhS@)rHc^Hym-m%p}`T*I{m(&^lfS#DMyi*M~;e&G7e(8~Peh*g?W zj~*UN{6Ez-D7jlh^MJrw;A=jr{0zB zY>t)t7!=nyOaI7P_D>3WdtZticwdy}Bo{w6JKebGc--yXfb{ zA5)DQ!rkXaY%q(??9U56_u9CaZ;IHv(+tlJ6rT`PS^i>uvPB`Bw}Gn&9Xn(C9zxn`2Potw=(Y^>1LmDy!fYwyp2P?td2rarQOfwE~BTJpPP?o zdwIIg*m`uy<`cZ#hVzBC7F7Ptlx47K)YP`E?D^Tt@k^(U6T9gz z!T+P`lfU^diHCs5+c%ry+Nv2|s@`0A6E&@e^<6%U-qy0Wo~oQ&viZ8w^|yHnrqe1@c!{Y z=ioXqu{mo+j;TcMSlD;SFy7TdBz4(Laj8Mf zO(si&6KX3w*8IMbd!gyn`bDf(AE)aE2nudk;H>`Y%{nuax?gg(&w`fx5H=}xbgcdR z> zsweDa&ma7DfPGCt{uqOZql{MgtP1*Iz4hw*0{uL{b#1S2{SL9ZxA0NOvt^6i zkNO-@$@|y4b*1*QrI{Lv43YK>&T$=CkNLLFTJf$om~joOeMbBAn!S@_)%!;u zw&!~tNCu+gW=>0it`(>)ETlU^|sQaH%-f7VF zjN^ZKqKx#OZCbveMlS?KB6sM$jP&<5H}U*`^oUAl4|M%B^rrWF~rvs~sB(s+)9{llr|JMzQS|u|ApMTde zKYx*qS=yTXw->$N+|Kwi!Z$z4haSjXQsM_}lqCn?Aql|F`<5^=CiLKl?3rYon9hhdpLL`~QbNwHNteet7rf z|NpOiJpbu(;k<{j-SGr9@C44_W@Tz{{-)wkm>z2xk(-&^~t-CW}*=e1f?=Ok3Uv=6iY|8VGlTznp zESdGU|G)RsZ|_b2>-VkC(`8sU^Z&d|>tBDi`<~wX?%DtUGe7_LKVBoXZ&{^ZrhMP$ zpO3O8rl)J3%Q#bOYCmhqV;%qHZ&UZ#=brza$i`jx#pF`ghuz3NGzif@ZwRFqm$ot1mUp<GTh(FJRs&DYP)tQShjaGS@*HBHh<^UNhnIg9?psB_sn|4%*t%!%`3)7LrS zt5*llY&@I%irw_%@erdZQ_sx4zd0!$Gr#Jkub*Pz_GImqj}3F?e7=zw_~d2R^8NOa zz7s{Ie|?!3^Qe3Eu`}gQW*v_{rSB~la`|HKW}mc(tjlh`B3~!dI^rJG6Rcs(V&Vq^oh9PAiL5jE>j2(98Sh zo=dKAb)6J+_UQ_v#)Hq?mh#SU|2+AplZ4YGg_@?TGd_G3IZ||3CS~)KUQS+S|6?1E zTv>iPRJZr!hL4>xAF}2t}Ei=}3%oorhzgT2;0%@SOH zi}kjWf3#JAm}P9o%4<<>%lW2Hd+lW~OHz++d`Xb?QC&VC3mSQ1TV5OpSLvh;SZg) zm;0C539g&Ah-=027q&}^AKYzvmG}4f_4=cqo_w2aZ*KA5(0BW;|H2DOEL{sSY1_SPow1Wcevxe*h$2-+>~2gny4Gqr`%bHE)97%a?zSpZQXUDU3%KlJn`+@P1%C%%IY7=x_{=lZdl~McdnAIpZK*KQny!cbQSA;9JMa> z?ddh5#sa6mxSF-{ROj?Pyw2rgx%QG~sL|`I6@1w%nF>Wu+gRtEEDk%9vsz(M!i(00 z@6E3ZMy?i~`S|0U6NXdYCHXCRI!DX0G0y$VNlUH370=daS$>R+?sK@kraAkK;AyK! zxsN*BSrZ%IvV=XciZVUHeS1?_^6~8R#kW6s`M6y3df2_#@c5C^Gg_sGug&o|otfpe zKBdprQPbs6*g?f`m$Q+ZmVT2lU(gm7K55^Cml-p^I*M6Jy=sipoNA+-A+jS(T5R3b zYZJ1!nk{K|_Trdz*d!yf^SQ~EBSlitS**`z`d#7id!kVqONnXDu1dm~35Bq;^Y{%P}DPgi-Y7CXkyi9*gtZwJat_KW2I^`|Bdv&s9@umRqWG z-Q6(rkJ9omb(6gZvQB>V-7Xk4GkAUS&9KcUG>WBOwe($|Cd{g9Iq~K-zVj=uZ`8e< zIZsJx^~Oo}na*u&68rRF&a$?wsa~Gb>WdKeE1$B*3S#hdc}-DVRVC9~DW{n8pu{T*i7MJF0A7zjo* zS*C}7W?7qE$#vq|nhPsuXmee5TQ}wQwp~v$Pi@>f$0YXD8jV%gFX=88SkiMp>1c<| zxwvOHY=w%?ZB^b}`RMbUwwGs%6G|he8)@12#xxXtzB^4*>Q>wXGyjXrbksA>KVr^g zTXuhvs7u<7S*g3%M!NiXw&p_4%xgBQSBAa#Q5HSz{m-?LbE*yY^+Wt+|owZqE~~IGfS2=2+Ccx8~PB6@0v*WVm>R+FoVd z<&}pn{dVoGY(`2|Fq;s!dY)?b&$YQ%H>a$%N}s(pa#Prg&}_@M zk$Kr+oCZ9H%o=zj^RlNgyqLN0CesGZ)46B07;hy?xA{iq*>W$P-YIZ<_0-e>UjlXH0^7ll38kt<=AGIgtsdd}+5^IF-gt5_FaUzL6`YU1Un z)zd<~s!o5trBZ9_y;5|`b*@|4u5Y*A`X$nWmnM%B$AhzIB?u zYUS22+tb-+H6OP6U13{4Pc7cJhl=D@bITn@J{Z3=nS)$7?WCh%%nkAIlhC#+xFRqR=ua&z~a zEtBe|xlg&aTwn_W$?d4t4#ak>L@XGS_T5EOpf@l%`ZSLy7!xpSMJw3W~!>*-e zukEJ&*52L}a`W;nKAmlkx2+94vh`SQ!pr9|(TlEK6kGmTH#79+v%6B(Ki<8)7{vE{ zd$aiG>o>%9&dEJtU#C>4-MMD&%{y$9-o4q#t9!6qeB04C_sS-0%3E8c6?S@CL{|6T z?rq2BUc6?JSbgdy=eD+x9i~n5#-c)>Gws7Zd<;WeqCr`-E$kSKZwqerhoRXZg zMdoL7xg5W2+{L@&^4gahPaXR$mi|pQeZsSxJzM4STzO{QzFV+i?%ItjYpth7e2uwr zOUi1)w(S|amTtWBfPMGYykEB;ck1RPutYPa-n*x;a+g@HYvKgqk7CdIcd{C9C{lj% zZA;Lfx!X^Ces@jd{r!0{-^`Aze5boj*ZIjbtNm5GQ@WKaPS=|K{gJJ``|gvNO>0?~ zXXmf2{&#KH^IU(W-4Cycm4$7v4R~l4u6a%D_l~{3^P}}Rzw8c}~6{ zH*Td(+3fnav^p|s=c01%i1I+Se_!9#pDt&-9L?IeSM6W(xpkt<#rw_w{w`XOu+LS# z>!R`m`RS`yXVx{eq~`zkaSgnD9b?DK7$(()4-Zy3lgzb}!zqWwIL~=okzb2n(;Hv;8J$psPLn0-rEFp_G zad>Z-+JOoD1_upA-=sF37V2Q* z3%oV$ZX#!&dbhyT7^fq8`y&~b|8aY(VU@n|U0W*ev;^(5n?(FF%nmGEvU;tGKxfWm zsZW|mC(ZaFWO`5bSf&t{_k(7^6C&q4kJRu5Ui+51)FIJ6ti|K?%uOCD?#{jeE9EtP zgV|%+=DuO@=1^tcwM|ALTJ6KfM9rR(Mx8@KAzA^ltdYO?o^lxOs!U~!*L0X6^lFmA zL??bJX@9jFMh8RN?yMK+Q7zDkRaKqDv-V6vo4KM~=)RdV3Z}5MzR)}DQ+9T0@tvvn zr@TL%A3c$=M|#bsHc`*Ea3P5v549bBk%zV|DF_mhu#9L@ZWVlNVCFt2i)pq=PFB!; znQ*bdwu9k9B5g%Ao<^&jRhQiPs3H|&7vQ$?&o-6gT238;cY;!P`g{=Cm=fNyTh^;c zle5d9Ag5I^mFcnQ>4}=J?v&5mGI_^lmhiG`r6Pe#Ral;$`7uB9;JU5<^`0#k{%v0O z|8VJ>14UWy>nonk{ri3Q@&CsY{-6Hy<-pD3_gA0%qhJ?(_Iq{hYJDemxi7xEKWy6Z z;m@7EMJhdqZO%S6*mQK!hWa`2$J{?l)=d6;J)JF~etLAhd$&yU%{r$Ii6tu>{F3$c zROY1A?PNP9$}H%zj7zC-vy%Rwvk5o27_>L6IdLv%HAk_1zwP-?cMSS;j7`t#+4ks& z+TQOgDnBe|mGxKUtgm%v_X#d1Z9ZA;?UPQtZke%IDQ#)m3zlLum$Co$@m9&3 z=)gC}{hqbW{qSka$1{fyZC$kD29L2n z>@oTHSMRaJjaxh?&e(9?<#ji{;+UdfG>5lU$&Nw!d4S-rxK}I&t#g$6ne0!`IpBZD zujP8d=D8M|&5rn7bxWMYK5y<4K_8U~4ijG<@;QHbg>c%fH|IW|@LH^}1V9G2(A64}?Ei;#% zExd02*oL`vCC{O=0wG^JlW*p+?NT`}!)`M7{f@9#?9sE%{CtgWozRsD5eshk{k>3T_+`#yvAIVk zm`R(No_5;4+h|iruE_C)@?sjbcTBu%wlj3jZ*0BTc`ItVj4{jZbLZ!#T;7+Nutwsa zw@U%%*T{Th)Ds z>Fp#9gTr}CE~PlWaVvZAO!`znbg&(x!-)$aOiv|T7qWj+ecv+k*oS$^zXIR29@((j*Z(H^>O>W_+J(^BUKT)J^(t8;{L!V$Nw{?;M@0&>gk9-OnP(=*WqqnE#d-6Az^OtX>Lo-OOEye4 ze2{6Z!2gNKrF{>?_is^ zqIZ~yYfw1HL-~z3Etw;-0Y$En$L8f(eeL#=#YZbyveg1AC@}#-goS{tl%;C z(A^s=3VdT_9p|sL@Qt-D{bR#@$?wp?@7t0->{zvfee%_|_|};Z`JB|(H0A27i-~@` zj^o-*xeMCmj&mPgT0fcf*=u({gGu`~FWgfgo4b_ZSnpJkxQDmGvJURr#2wan?B7KG z?pZaL6+=?@$W{nu9KFNHcrnwC?Od+^vl#!|&sY4#7KoRAtR=H{cmQs&7<*`t9{rPAKLPaQw) zsGP-ea9PayQ&sZEFY?5ipExA*J#o{X%T>Bpa%U@Se5>;5F7MgQaM3>=X2$254}7uZ zp0+b=QrV^@Usb2Qyy^MqxpdyA%3F$D5GZ+e=vEAMFzm%Uj zz|ro;tinADQ{S%?x^Hq>rM)yhtF=sOw&RP^TkkGk-yUne*fu=5HYQ)i^;)K$+f~`X zH_zK{WVG47lV85AJK7~sqJ4JbU#%-80Ou z4HA5D=ve2)v$f9m1ws>B5}w}LCwuUfLfL1P7gw~?wWGi9TRL;khI7oq>cz_DUP4gmCNBxQ!s&kZ>G5{X+|;x^nlD2{n;1VVUZNosVVcr9-{OUv;PSZ}E?+mYnF8bA{$8n2y>b&)@CLAjK zbY+uKf{px{n@YYuw{@)^E`dEa;}ef z{B>=GSw#ljZw$)U+B9sHD7nM`SmWLo9*gtA6_N@U2Ezy8shGwH90)!8#TT#k9a>ZH;SwiTOg*c#gS(j`*hc45eq z#>o|}uiF>sS!o(aCm+0UD#>8lq>96`pB%1=mc=zJ^1XYbb63S$t6vwl<+CRArw49W z$-o!mTfZ}K!t6$Il{A)BW~Z5rPi*!Rim-q3Ek@hV$^PD#FRB;5&pudQVC{CA$U@ZGDzdATCkJTTOe z;W3kYOQztjxdE5>MVf4S_FTAgr7r9vr_r5bg}E1&CL}SHH|oA_S$IG7`t^(F7n|F5 zUQ1z>Gl`1h3lf~NK=`+s##KKJ%jlU?7p`K{4iuZpwW5QrM(6(l_CARNHeLy~Os`J9HR1j;`N@T|cV&DWZu6Ll z$SmCU^2u$3;JF;U{TqbC`s#k|TX{bE#mnRG(x%;RxC;+|=lh3s2c<|g}N zX6o!tVYM{5wuM(SpF7zvI=7cskZY^9gWm&|&i75JIm`FW{8{*_GGX77xhmW1!em|j zCLH>8py;o!WO%4f=i}!aR($2Q*9fYad79nwN!49}D`_DT4OZWj1ESw8+c$0EO5NC? zh?z4vJ@T~6chBUkJ8H{$t@c~n?wpCs0uJe%`=ntc91(DHuEC|WhS#lS6I3I&EmZ2< z^3^5dX5ur}yjKjC6@|M@^*&TnjX2_*Eac0Wa~^W-6gVM;gq9k zVhs~xEu^EWCN6UjI^CJ@QA#xJLGw|e=W-|Bp7@e${6=NR*TW?OP8G(5hedOiXidG- zxA)AZI~rb1ey6kkn%w=KyrITP+t2*U?upL~xL2Lvv$?z}Au7u6Rdi)iX%N#vT``Nm z1(udGmrWM2oH1u%c3Lav>$!(~t>4ai(f%s%g^24Us|B|m19rWbKG&*HtZH`FV~?xc zVJYmH53CLxTbF$-?oRLBFWw8Mz1RN% z$mP}yB{#gb_=F0&w7yj<%!sn!@Dur+cdN7Dp{`i!w3VwE)%kU=8}2=_b+S#NwUN&*Z3pLK}-+pS2Av>2dakynlisLKF`IUFR&x?!9y>l=C8iDIL&jDSawQVR`&IAN+&OWB_J$eQ4~CZ zEij3lGvdSCvZy<+u2x@|)+oO8*|Ei|H2Lp{vTPJ;6k-Zyun-X27^(iHDfh0<<}bUS zSgz4|Wb?tu`cUr^za6f(5BrA7=e_w6DKx89R6R_t^iXc}_xD@9pG=#7G%nF{87o_P z*p7s=;&UeyZ)=HJVENagHTXz^tEy*8)x^0s=jvtd_@!7~em~ZG_qo^xM%H5cX4mpr z%jdCL-FcO=bN4U9>Pa`>E!*gz^Eb>~Xa0c)ojI3_7tY?`#~8fDz}h$b?}oo-ZVhEe ztr?5ed6Rbse-H_`KXC8L&vTdF6<@wt|K_IaJXg&N7q|O_w9LIwl((Dda$ebS*T&r~ z+h(R`K4~~OPi3yt*&Pq_ABSaTPT#_O;m5Rimwn>tE5li)%{_dD_4dj4E~lc8_g`F} zp}zBdgrtB;CzE_yy_~3V# zO#0oXwL8y+&H1kTcF|VuMarAj9%`M+;iDuhR-9+vxBIQ)s->};%_fUTEdHRQZvL6U z=hFh=uwCko&vzf1R(9}~r_T9u2aRW*S2$Nj%Pow$wfB|EcG(TS}>IO+mM|zB=*6vGc~d+0W~EgqCnvYwmloz3|lLEwisx3bZFqXidzr4x91B^G&Hx z;jgrcDGMi8XSuDLp4&5TdGF@=EPj)A*2yrWEu7q*nNqrGacNZT!BL+YCr5+!veh%Elmev+&!J z^*jdVx#B&$ef60lZ)$X*p}QY&rcfEvGf^$*&#Kj~*Or z?lfn&KFfAj|FPL?zPE=e9{y%sbCXM*c^Pv@Cg15RE2JMby`7KmU|ZMO*Aw#E99!r8M2nB7YMoYAqmJFTeHzDq`Isb@-M+782+TV~5Ib9Y>N(U9Rv z@6*z#+ppwAw%>YpF|Ye^9|K#3?}znM%WtP#nX3_Vd81jcd`jl@qjxX#7e)LKRXDpQ zZ@0}Zao3G6cOAIO+*INDpj{!pTcIU1FKR(|`SPtZ*7-j=v?Z~3cIwS#FEY2YeC%tI zZ2aKC{J`-1C)tGC3a?Ujutx7>$=bQ=&3Ped+2GjQevdfnTKAw{w zwU3y4$mt6AMeVD-cW!j9U2}QejCUI*sMc|5r>gUP(L_tUt<>WOo2q%n4L@%P+U;uYRLIfXOd zSbxjwCuI+gCRnjqYDn}fmv_&cHgm2RS7WhsKi6BWotcppQZHHJx{5`g7e0KR!j=DlOJ7=sLr4P-a0UpL2}G-EVhF*}Kne*VcKPS1ENvGH!CIuSdV^?#r^N z=4)2mJjAkC8aY~@=1;QlQ;*i$llmg^Zvn7_2tXr`h@P@&Zn>SS{q+m&SXFHEXCmaT7wVWe%E{U~6X2~~}6n|3vIimGpXe{`9elIJ&WPPKxew&@k8D3P)y>Usen_Z59Auw-N zqvX!Ac?~m)nFQX>73kU4yg+Q0*2y6C-nj=%Ya{;r?rYcEyzRc{jhAwa5=)mfxL#fs z<+I!1-7JalBi)Nt4(^U&yivSxe)+D|k6+GXbY)y-Ze(TFuUGLrT za=*$R9Dby;eeNN@=0zTpZMHnlW4Us6l@e3p`@CKKYwzmmHyLb?k%;Zt^{gqXSmwto zk>z(T_y06jH~3$FZJqA%Z8AssmZ>E)GyXQVuTrQxSI@zFacWS(ueOqn%HAv21UA~va5-q~svtwE}@R%+sVV_&;xwqi4SnA_ccN_DA zf*v^q`=)t?XJ@USo7<=2=Up$V}CNp9aO64kGc z-l){yX(T5f^!3~6lS+wU$^xeQ=UL^|{=a>~;HQdd(UtW=$@?ni?y8!-+25q}k;Ic% zt{)!+JUP8%gILVuHGwN)XIdSMUwP2#T*ckHQa8U&db4ZW)p-{$eG8YraeZU_xdoT? z?))k>oO+Qx<%!;!*L!v;e==LcE|Xnz_0;YeRUBQuqVqnf_B2Xq#)aNEd3{5%*j7$i zgI#X!%yY!l-)^gjo4Ri0v+Zs%1$PRwmzWjajae|Wekv0R(7s? zzx#2(aeMX|yWaUtOI<%{Hruc8^tZ0pg6I{qS1_U%8p4HGvZv`;4$a)w95~gXz~$r0+a|LX?M^ac z*zxd~{RVx$?dX zW$(7>vS&p97P)Pb>vCe%w);lwA79BUs=*jzs`BBu&$rk2JPPJ~C`wQ-%;b)<(q&em4?U$`lyH!teU3|SG>dtA?0+WJBqfN&Q=5`lHZ^|Y z)Lv^wj;+_0EH8I+eR$yF;psjCrrX`!n))hdA9!-rs@~g|UB+{d+^Z_pXQHRwIBMEf zo;}<;!&kXnkCi{mI9prU%aPfg*Su6`Cewy%Q)d^>*QD?HdaM6Qt51s`PMiO*c2-`n*^&8TaqC`Ze&VxW`tCL*&2;VT)|!q>@qHaE z$8WLyP1u#1J;|5tW~T_(#~ruS<4gCYx-~23X&=~daiQw`uwA{uVGMOk9Zv82;j?>L zFsDk*u9#aHJeOH*Pw&ciKmYj4(vF~Y*S-s_wYXMx{X_7yBtET`d~0spdRqC}v@Mdo zckAL~r#ElwUO9hLo96Ljzc#i$WU9LST=d-s)%1`(iq-i|Qnn?1XJWrkm-zGYt`L9t z>qGYsPU<@zyMi%_#fmjsZ+ZOLXHWaBHh;bOs`I4wE|cr$R&6Y}exh$l)|BnvA~Nsk z`o;a&{9wnexg0^K+yn$=%$%GGKWlaQtPlG(aq7kIpC-h3{a9h?^<|B3ZvO4)s{8SO z)2eLOC4KL=x&Ag+)O_O-<<%$mzFL-8CEv%2gC zY~7Ttp%(Oc{whmNiQUd|;R<)A&z^nZ=4*+dJ~3e#$z6FqNy>U|j#{nH;==n*h0i-! z(l9}46|=GAs}Dk(uV*|`-5M!tDlU=ysQlsd14^}wRgRr~I~nXfqYv*sIs2%J`cB>z zCS7f{6{-u5{kbroy-%jLKrH0(TIp*S+-CZfriQ=ht#_|tk@1as?3%1p*nI5dzg@+V z`;{&D`;2;*J(&HKU2gBjJqdlQ!`T1H?lZC2R}x>T%bV6;+Hz0Ft4?$JQ;$nwOV(Fw zuDdSa^xyFN)fqC=w!86Y#F<}c`FUK!JJv}!a^>p%`UTf_9Ma$Q?m@@JB?qTS-HdCT zJY$Mlylid!#=EAsdbs*{?^bW}+oE>W&A@T7_PS{`72o17A7K8(2mW9D`7iJ&0>R7Gl+^p=J&2dUM z!{p+QQ)XN4OYY|B6T7>7o_TAo?bKS)(ApmL{_^D(N+s)Vy2U8Sl)ioJ^}prz`v%41 zjdDg;T2`k^T%Pf*EC0ENuVBzV>)f}~FB$c5*nV-)m=@!E>ReT1`QA$#Kes;N?tjH` zVa}Dy2e12{s17cO>cSff7c|Niqo-go#v7d1${csjIj{)X=I*09$GQfr-qUr1L6I)1ym zEB=)Hec>bZJ9YESqF-@c+NajzJIyazYv!ERGhd(A{+w~ELc%gTV_WXA>Kw%>lian{ z=kiAH-F@ueq{W~2-97y*aQD^arqkN}duN+Pt({z4zBhm6t%_?+kDq*dzBbb@XK&7& zbjKa62MwdVvrSZ)ALO(Pb2~-8lKQ`3+V}elXYoz*(%!n>G5h-iGZFhMA@56NWt$5o z{pp+WX_wU`PtAyZ&qM6|>|}yB_wHl6Q}oR4=k7Nb;_KwhFK@p2piujOpz79|j`+zB zPw_uL{C%_d*ME_IQ#ASdHmp`(bMB6pe$AS#%X_EXUSfa6;h(R_?wr3jeL6pvXZ^e{ z_3!`3)}YcEmF?B8EPrmW#3-MC5w*%%R`;gGrkHe-xsR9r++H{9uH`EM`*mmKvd%^E z2?f1K_F|Z}>RQej#YvW{cD$+n7}UBr%}(n9XJ32n-6@MTfQTFM{CQ}TuF!F>O@ z`j48F4uqXB`EIzQ=TZM%7v7!OVf*z0KNa?}nr_IQ2-Z|@-+*kJVlWS+JXiK=AaZ2lkSA}YyrN>r}*xaU!f^a{{4Zc#M zbq0ku#nXzm3#v(RwM$FLn(yITthH`wn&08jJE7+SvX{U9d62s*E_SO}?X~)9S9^Vj zpBJWGTp@Xd-)-Y;rikk<_J^N~K1_V&@y+U`=iT%#)jMLA+%jFcd-gZ?S4(9kv!7nV zQ2O;RbB>Gsru?^i%Vyblo&0$E(JY~35oY2d-=sY4iGvv)2# zaA^_~+umCYb00lvdG-E?*27PUl`Ern+U6%;&zibFYpe>d0pp7nD73#lIm0}5(C z%y{5pnUHK|csa50dCbaN10cwH*}d(qLaDw(F=SKR+^F?(m@x~E$Nw}`$` zwwGfsip)KIF@s^z*{C;XOQ_Z?~>J$g1nn^Y0^-Q71k;|NHfr+0_Dv-w8s0)Uq~g+t7Sy zo2B26DYg7JZk?Ht5ja~TTG7*5a=H#{)aUcFAMEbR>U$)v{(e*cu@ouCtOF&UHe-?HYE1&*Khi8xUF$=>ZFj(7kfC{Jh@UY706w5srk2S?+^R`0)LqQ z|M{(3JJow`i_*rnr7p!RcBhyxmj+wRT;OKB^TF~QkDGzlJN1u=zwTE2RJlcRZ$uuy z_171l-<9`g=mftwD)i~}zK^Hx)@*ctlUT52Vvp@9=}AQ;JG6h#E>1W-Cvd^*xWror zoRzt@P3#NIeq6CJz%_8OM#B|>t>V()oV&Ww<@7pIk9CcKn6 z8#PdolK7>zfiI?kg|SkM+k~{dLd#&-C>L(UZg*?`;sOJ;`11QSqR~ z&KFlX`!_p3u~`^o0%Hd+ol;-0!lA9OqYe9`ym zEmbSI+Qqi~bIy6Wd&-wvDZzKR>xAyd-}Ny{F6VhI{LAVW(~XNPTla66eO2kGuA*%M z!$X#A_-W_`SjIpxNu0kww1A-wiDC?4I7c;_IQAm7sQ%zxREPwd?n7{&yy{EWRk3VRd{e9JpLsBMw-BY}*ZU4ttRX?~f`)k0QsMj%H*?&LCd3&m8 z)uQFLubzFlz$5Q)?q;srcRi)8t(v44-G*V+}&fvT#~Q12RA=WeJQ6euQct& zwaN?Gy&HlS+irbfn>@*YnfK}8qy6g&R=km|?TzN>P`Mo1&m?|7vuC$E^OfmF43%4w zZ5M6G>bu7McVQpXy6Hhry;YmyrPlm7TDW1)ouuWxd=*iNN~Wv1&nr%0KKo;ZeMm?= z%ao(jUs%1dOSz>nXVT#{<|RU}q}JcmnXreASI)-qtoQ5UzmCyQ_OoACHA(nVDBxvy z^X`N460^YM)kfjBb9*NqdwKDGNQ_s&|K>^^!PyJlvp+^{xb#o4?2GnAjl^e}fjJS+ z+w6mMQi=~O=VWxd|M+r2tUb@?u1}tSwm-UNwk~k#GK~P2<>%&w-&|&|D)qE5xBGVH zl?S`GY`q_6pQ>ayUu$nvgs50Xsr;(zIy)-dYeaJuG;>yVjER`HxwgoSt9W zUUObMzvWlkN9XUM|1y>Z^Do-Hscd3e%=Z^rn|Al-uH(#EJ1_Fup}XI5ciqvEpIL)8EE?6X~r%n0%M(^Hdz8AygEI+S`bu;OyYFwcIK>TT{cKofW z+P2aJ6EtQ)jzJ%5mdPOzgO4E$V0^sZB|9Dom+7GT6Zn${R1bX zlN$u(=00VY4d<9|*`8V<;56k}gZ|px8veD}Pn##o9*wu_3RtjIZ?opF!x?us9|&%K z;Vpctd#AFz&icE>Aq|EtTbq8* zw`P-DH~09GUxgWSgyw$l);~M>#o@9QUt*ho>(4$JpSPyGWv@@Co^f+^z^V z=UA;&k>4P0{5{L(X8Z%i90kVms#ywaPH&5OHoK?A_QWh}w>QfoOKu+NDYcz4|8~@C zPv>io&j#J7m+pMf`!2!1 zf6tT8Gcw<*&0iZHxpm#c;Oe>ecDsg6JQDl*?V`t1Lub#mH2R!&N0V`4_?<2FFV*Vh z#nc|FI;W*YrA_HKIL~8YeevD-i1PM@Kc8tW66HC5YHgmL$2-~SIwpNw5F(f4r2)zgox@6|3fU9EFx@+q%; ztIs!%guUPSVKbjd&O5=9ZF3*)`daA&Q|fJv=6ePma|?N?{>NKIJ)|$^YSl;-~aO6H20j9$G`v4&vxE%J-@Aor7H7m zw9Sm%wmaSeaV;0C!tr+M zWEJkCyAR*JY?1$K;?1muf%BG^zh9X5I7o44Zhm>)wi%tX*YYcF+riHGz3}+9yw^ymy_Rb#*~tivO<5NB8JuE?ZsFbmd)%#f+cZ z-YEQZuRk@r_{u&{tNwB^j$7U5iofl77a*oY&p(~8w@&ik`=3vz$N&HL|KFSM@ptzB%l%hW z7rX!e2h+Vh3~%1uxV|l_ba}-a&S@Ie{sz|fybqNxeD2L;`@YvW+OQ~VY0Ta!oez!k z&7_rNEY4Q{-95cu=tf)3q&4c7=6x4RSzqq=_GP9*9fNss-=oKS-{vlNnY#JdTOJ&6_x=`Nt(N-LvS@?+?Nh4%pQ`_Vz5d_t z^ZV!T|M%tj{y%?~f4nVu|KHp1^Z$P-oi8I^esJ*wNsY&r9D7fOm6$IUzx(>E`sd&I z^*`rN_dli(ckb+Gk$ui{U)5~;-L-k{PS2_H%{)0|4wgOd&MA(zoSCvZgTJ)WIlt*> z(AVV;PIgLhu+MSInHzJgt@6CD7}M60-Sb4>KTIimY~|;<<@X(z+RFE*Z!8R`w%ZM`J^*H3R)rYou_Sg7s_FUi)H|bt{+qk8>#tg6lJC{ z=PhLES}B_UPUE(SaW}#ucBC?MtMW!>iOdyQ}W z-K{X$V1e@U*l*vGD`svxG~w0WW+g?2^7r$#^s^2+N2CdJ-P-nhW6s(lzu%cWy{o@3 zlf03;`<|m;_4eRh8*<)%PbzyIa2BUH?2HCZWV!Dn~P;>eXJO zLz|ZF_&-V3)x2t-?z6&YeeY%}C47JV{NUB}b&+-9}`uSJiNKMn-yOU>ZELK?fXGW7h=kwM* zc@qr2KG`H-cjM#7=5Eb|=f6WF%9XhE5?|e$!4`jNNy56R?zh{|FL)HoRBb*>EG!~< zyS7?mxXR|OYE9RF*OfZI%B-+gj_&Gsed6ZdJJCn)tv@ksZ9?O;70=@CZd@Y!X6NQ3 z6HL!uoBq9X&5yrN_88q?k+H!36Wi#Nz6ua@EqcJc%15t#?_!__M=XXzi5zcUyYz{gx== zVm|%y)4Qq;*;`KL8)KeoXfSG``{sP?XjTjG z+?^z~VSf3)+KasNs*LX6JeVn3zI4-7w*_w;XLcJTZRd*FFvI1+tj!rLL3Upjl;uI-lBSH}8T+_dn&r97SU%R9xmv_E&Vb2_ zW9n|bQ?78ucQKAxtJBwdEO6R!Emz0HP3q-^d7tmDmbj#-vZ>Qu@LXZ?RG-6JY_#qr zvA*hW+4uE=#fIz8%KH;Fz1=!<1I-XE8V|Mo@MDN?!&Eoj)b#)qtLprDM!ig;Nb)R4Jo4s7^ zf%#Ma4?#{r%VexR-}Z=lU)+%UZkAB&vwItQo^P`~?>}j7?w;H2IbZ9hKb9$%U8!2W z`%%t}k5l^DX1o^D@42I{cJq~d-EPsFD+6a2PvU3T^_xLA#OLse686S(WuB!|H$*0w z@1A4w`S`54)72|qUYX1q#oSg?a`yhAn=0(->xCM>Ge3^g^u9Cg$gZ_}q$~Kh&2^gi zd_u5(=q``%cAU3*=c#w|SKPT-*jzl(pP^pH>i;K&Z*eYhQ=_IzEUb9C&M9ZgH_h3c z{kKDQ-n(b8{Tk!bH%c|^!l&IAOqsOf-t3cyCf)JKRNK7slZ@}bWGSJ2Hajn9q;jvU z`>wK0A~?=rUfqJ4@_WhsyCk=7D|^m0UBL8aK)TeKDBXHETd`*ZG<7s0JPJM=Xr_XycWe6CEGyDN3+ zhV#l-9_*>+iRM(u`Rpd~H)Xr|jV;SxF;&Sid~b`H+N-LXbGqfV{`rqanJd#WOv{hG z+Zz*jqhyEp2StXH_a`eycsxHG+4u0zG?|;T8Y_2I2uPQF5?eAQZCCX5-?PKl?VBnn z{fi-Ilg^3N`+w);Ok{{DWp4d7dCuLFw!+8mIptfVut$bl7mFL28@TQfdRtn>x1{>< zH_7sQHXJ|h7p|S|sb?_x!xk;;RpHC_%KFspF|U3%_28B;?^JJvD$$qwPC5T>j?uWi zYHvv6{EsE&vR%A;`5kYcpBwtj&ujC-l=Ck#-?LBJp!jW>OYVi+4vX4V)Ze7l|Lk1r z_2}5{)Pt+G2Z-M~y<+*756us3RSsNR@NC{LnVJLacl6WDmxf98mZ>;=)SJE5N%z9j z%if;bEb@b{hAo|lebe{oNmbbe^X(9 zbYsSgp5oh^`f8Im1wXoP6rJjy5iCAW;p2?$wfwiYbj;B>vHYZ7#kTL~Om4>{&wsK` zVZ)=y$;(eHFFgHDs`56c`N1myXhO-zc0BaZP$y_=Ba)-74dZIJj=in zPXu=TdiH2TE$4|;-CGYrm%LK&sul3=JXzyORcuoTdfdud+m3n z^!ItI?;d(kck5r7^6hBL7X7P|(~r-cTD;pf;m1n$`L4Mo`im1+>ukH%wdS|brt-9% zmycJ+rM_u5B*Lkz3`#l6rlsuR%rR$qv!4a-md?na(rvy8~^zK&;LBle}3=5kGI$N|Nq%j`~A-SUe()n zQT0cR>i?hRi#xq&+R^ODt3rFHt(f*^tIF1r-_!ml&YXPP*;n_j+^hT7jgzlz+Nqnr z`dPiry89wmuI$yDaPhtm$a)ngC-}^CPJio7p`rdq2_iw_=L;HW+UGhP{&Rp|P_kG_b z%j(QE+r0Z{6@A{nI%$W~l_`IpXNCO;|IRGlT3@Q~7x*Lm`y&wulV|b#I*qoA@70bP z{JOhD!fpR-k;5;_Co@g_lNV$%asD#RSts5uTa}@-efFwFop{kFMaC!N;1H9anH*ZP{uqjC&H58&daW2x-a7U@9uuhS$|meVIkstZ)Pp3KM~US;`u*cR3a9{MG$*4^3LY3 za`@8D8{7DTUwYS~lk#RIzL`Jlzpl&p3e|R}wW!`tmb`^Wg(haW|<2Bd)VPsj67Wh|?Wkp8d-$I5JS%Jz? zo`KQ(*N1Fh!MN3>wOeX}cSzj|#=S1CEm8tLA+9SJ-#VqXNChZ_xUZ-S zf}4L|@q0R4{(V(`a>KLlJK64q8@^1pTp;;R>St`PzzgPRzq;t7#%$NZKlU_!4Yf&5 zs1-f`Zvsb1+=_oQI6~rAh)nn=dj8)Ej*!F^|2A-hB&`tnF!hmTgQuvZ7JJRo9giB; zi-gO3nEL3H{IUivUQ>bPD=q~v7j}7pnb!_976%+3ga7j~Uum*@x% zu|MFE7#@Dxp*J)L6nIVt9Of*NVq$wFA}VMgkiDX-p)tZamE{a5$eF6waB)g>n1*;B za9Fc2h>0zU_o@&`(F~BHt1LW6q_or%6s`r>GBST`TE!&MAs!-jfFVCTmVtRsY%3$r zhq6#Mg9Eoir9gtYAi<+xL3WU!97wPhB*@AHQpo`lR00Y1GW^|RyV|Xx?%upm|M2?EBT*55G?e>CWZ_ljeL*o_5B%0z_veoFYBz_vcXLCP z7l^D-KcDsbcv}|Bljrv$O_{tH<74?#~|E?0s_~q{aj7qoSSLm6EDjwxR({p{WI4z^upt1nytB(>^b`v z?=;`PQcO7M#+GeA&Oc)B_gQ%?xA;N%{(9#|-A%Q3Mb8yR*Uvo7zfJzny8YaT__uv& z%;moQh<*QQ##d{E{1lXa8};g}H`>LYW68c?VQ&tT`o2|u0v$&C@-}|ika^BD&s#Ug zTeUq`lIis7B#(sFE$jBS`ZhA%pD(AbnKNtQ(cJ962h9HMlC-aQ_OEe0lW)Mjb?!@l z7*FTFwqnbU+^2sUbN`foZ1!igtWA(UZd|)zAB+5-ckK6>F0${x&2;0(u8#s{OC3r+ zrA9yQ_nDaM%zVNj<8$Z{hs4V=5qH{LkAPG>`jge%dyx_2Xn#-ESNj zOn+A|jrn_E+M{hxnQtHHys&>=etp92$J_oNzqea&TcJ$np`Y3|M`zqy!_eAfU>@Uf zxliZfq_R{`_eD=rL}evd+EkPT7BGGgyIr;av)KK`HL;@}7JXm0 ztQV4=qGbq+Z*0~N^I6WCe0FkAkXk#Lifi!lRb^MX?=^-t0Tox%MnuYRvKPB{oHMn*$HD_gXSF?@D_1CGxm^QnL|{ zxX)@q`EAGBdo65&tcyMeUVYXP=JobUYV)sLyPN|P`$}XkH}FayuL(J7TQ}eO>D!x! zrfmyNYyS0g_nO4!Pk)Xbn0DWnC+DZ;riAS;K8scG-HP6F`)1Ofxw^OB=3dO}zn}Nw zbEXl`w#KLD^Cj{arE@Pn*SN)0)@|AK$DBLx#lO>a@}tq*!FXSOh~4B zo>|6$n*m$6R-A6n{hYWsZ#Mt!$NlDc`G&4=syWckSuP)ocnls)0URl5Y`MaO=el6rXD!sw+?>(~(7sWQb)lJx) zbEDz#I+L6YtUB`H3(x19^ZcyfvyMJcwp}8B``)8L4=%f1dHCJ(R??orEBBbD8OBX* z*|z6+%nIeq&yLK;Zh9OpnzrxUexZ+vxBu9++uG$k`FvcuFk&}f+z!?p^IJ^Q?C*UO ztIaD`3C!JeFeCi7&=mI2=hE{pras+#YKEfhy)NEckGD%1l^9xa)NNtadF|yyoaxN%5Fqhu8?S;`} ztBVJWG@K*T%Wo`j?7p9KAmGspJ>xIit$w25hUWy#rm^LHN-Z_nX%Wv{-u=&qc6xNJRl#5uJUI;X62F3eDLdnJ)?Cw)a<{+q{P zHy+u!=RU}7c6_YYtT0t3QtqVIhB@a0{%1tAeG6l6=l;1s)-Gc@|E=WayvAjp5)YeX zOjlg+BCWdT<;Cq=b1tkq&(8Z}!Jmy~+a=b|2czyc0jZi~JUx`Q>g6&q!k z(-3M?F~6`qE8#G>TzL%BdpE7GswSfC)vW`0j?z7+4|-fK?&rO&`F@l1svqCy#`W{w zPF>*^`le=o&5f-AN6&qiyw<(3EKSpYvevtO=O?UB$~BPPka(NtZ26kxUDKaiYK1q* ze@s+9R}q?W^HX4j^VIYM=@G|{T50Jrn}xld_I&cjurz~=ppU(u3U512U3?%tM&!t> z>r?Z$uU+qYYJDw8M8au>3~Sxb4;2efalSF;SrAgkJU?;8+E3Cydc3=~eM?XL68U@c zl=$Y{x95ZEWJ|ZSW>&_meDTxHS^Vb3ZG}$@mnL2O%`-JA{P+8k8ygf4#{|3bewU1L zl{MXS`6g4@?6T^bh+}eD34e7Hnsre^BhN9s=eD`%$$f_}h)UdO;6FW~(NxEI`^rSg zqCUP<`5flkPY)ZV)QLLTKiRU{_tEW~8#5A5UAekb{^#SjM=pwO_z2FQ;H=p2_G6-C z6&v&Ge8%WmW(y3pdnfDE7h3M0u|weUO_Pa=Q~2f{adLGyAx01qMXZ1xjf&zOsZ223cl{AF(`G{j#Sk zxMBS>V=X_XeX}mCu;BfX<+k{di@?gCAHBC+wk=Vr7HJB6d*tX#g@6(P@#W197ae2f z@G-fv7jn8Sc%h)@$KJT8d5488OBdgxN1uf?tU9_cJ1&@37BfehrHk(tSl$(^3TD*`;=dRiuk)5TMzdTcR>J*Q0c<(Dq~x9b))#}!t+*0Opb z8hg%fBM7+rnyrl+MRY>XIol$L$}dcH&fHKN>M{MTT`^kP-E}DU8>i@-Pf->84 z;_KDXNwuY4e!ZF&5ijd2eOGA9#fw`m>N-lhDZQF%`8Dgzbb*q;^NuBQZoK+FGiQo` z)8Bc^ehMiqy&rso!|OzQ<23$IjulA(4;M=RSt$`x^CHbsgYBwiiS6}n$IP4`M>h&) z-c0_}mzFm_=3Pvx9bM zlaNu_f>0Gl&P>Y-T^$Qrbfj9UVp6AEUO4ZmP*AGCtHRdQV@uO_wisDlm=qV_v|T!5 zrmn`qmAqTNh)%h%n=Pu3%PS+0Syzx%wPcawnvH>Ohb6Ofrd$j^CMCUeOTUzKYDwqD zV{VdX6QYwBx70{%F*UoTx?$l`uc_J#C8iv6+s$IOWr=u+SAz5D97oQn@e7u&U(mv& zf1xNOz)98fq!Z_=mb_hyO?%!71w_S5Oqo#4y!J1*m&b<2Yfo8KQ!e(|v9jDXdVFci zMeW7T*KcSjhO$Mi;_>pB+Bi+CStuxV!O~L;T0$f#Fx^SA-VWFVZ z6-!TTXbF+bLXo<*d1b+JP*D95x^ZEb{?uceL5}2HX>=thHNt5X&(;vhX%n=ZbzhdA zzOZoLEiUg23uj&VHq|GG15URma{e^n`C2pef_z()9gp{k_Jz~<4-0)tl#ra=BXr}! zr^E;+JD#mI64NH|qiVW>EOj>1L}#HmFNV6A)ep99+^^{bS@0_CU^`2A4i1hB(>vY^jl$ zI)Pt#ZE25JhAfQI?RHb$(ifOnp$b!$oH7zwy7bfvY^w8S z7G~bkKr(>eTJ?;kvhK^Hsw#UUvY8$W%{ma_T~)~Gsef(OfgLSs22d(b@^R(4zeO=l zm%6vA8R#wK?152B#HUaAlJwXs!0A$VZ?XfYr@mR*KUI~zHzeMIB$AurL3*wk>Mbno zaek~8$Rr(Q*W-Pned9F#$3mYH*KF-8 z5COM9o%uI0#;IQ7d(Y#@PPwd~8)BX8a)DUWI%hxHHjV$b>XXAzs_eAI)u{*C z_G#u#-=UcYRXKb1BO#gHYo8w87SHAdDr;_B`;@r5r3O1?#y1^g-c!3sCh3J`3v?bj zUPe;hb9y(5g;0A*qf&SDUX$PE{eu5?lwHpB352P_5F{r|QQj&S&gr>+t?J&g?LExf z;2fwJ5@p)>R%q4%nBzcp-qGK_HRPtAV(7N5AvZM@L(8_*+{m0-IO}@VMWIiL?%q{% zg(k(JQpY{2_8KV)meers=b3WMjni}eV%5EVAS!j6ALq=q!ZUX8svcVk;Vgzxv;8_x zSjxVwzOAWvyJSnw<<8R%Tlw!A#2j5<^32rs^z zeC(f7HC9O%ZCJSY>y$%n)28h-iJw!o`_{h=(RcoRn0`y%;(yxVgFl~?*zK^`{odS~ zf6~PY%h~o3YTZvC9ei3+b6Mu>wE7#L;=TW5y9?H^1zI1u?8PLhpM%+dADaIt-xlAU%w|AY<{`&NBzIw>6cTDOnY3xb<&UdRK7Hi>L+sW0 zmFs7-y;|z#Q0&52TeXYnb>il1xzq10-&(A1O7lO=;KX74Y@(**%l3(1H)L|S*G|`O z`XgSZK3DwZ&mhwiubjBGPVngRe3-hZHe2z@o*(bd3h#9aS;(_R-+`|5~m|IQ>=HdgV$& zar~%y6SF-lo z{*T}OKmPo)$rsfH7|h=MuT$^1^t;}=YxUp%+kY%KE1Z+Pv0MMxe-FMgtKG5-uFrqg z{Ib3I=mVRZ-|v;|HFtcnSFqc%=V<-fzwvjN++*K+h**5us~q@1BU*uL?}o>%x##mM z9ePWzYOo4;tKYj(jc+0)! z!2G@+%FkSCUUwb*5%Jf*;ZW^?IaT6a{|o$_;>{i6onJIKnAz|~|ElK5b-f|6?N-=* zr>{qkyW1@|cKqMZ21EHm@dx4Y;=LsoH#q-&-x=q6!PHUsk@UHF^0Ts-VtrlyzI?S_ z@Y|-fr`tlr0;Jrebl$u)Q@(HWc9os0ZY(3yLkodt%Nc%&Zh62Tq~UkOzae+QpIT3I z#;aT}xTAKhJHYhh3XH5mQ^hu){%J6g zMfuvL%uQ#O&eQP-kW<;>*yN-TSUKSa8z*<;meb88ITKb0cx<=vSZ_0_`l;cwh9j*G zPpULqjl|WG4v4&&ynbP2`!U!lMD-w@b`=C+2+k_N^+v=&4QL?|c2{e*XVKxcz_jw`JPN z|L^l@{mn1^_dkBo|JZZ}ArS)xPHu??7gipJM@(!AKPA59iv0d*@hw;7w{}iOj>+$z z6?{21>{I70y|g)`YMR&ipqG(aw%$wASANj}3;ub3d9%pYLJf9dg9IlwpD({Ro%|}< z^1ztmV7frlep|&KJl%G#PY%8H)O)gn#UO!+jc0kjAhTN9fi02-GV^=&n3o-&8Qdp) zYW=GKpNC>a*l7?=hE+-{yC?6r(F8MZx-C!jz?~=J=gTMP%Ni^b3*kT*4vMD zZruCEy-mWErDyf6hQd&3gLPTV$3k-t>{!Js5x$l2@hY=~n5%3c$>Px2OpgMZ&MUIc zcjmThm#E=0{UKBI!Sc(4VveS*r<(82oP0#>_x}&!+yCePF1&H_*8lL2^4h=upZd3d z(|`Sp|MRtyA6rH^?&o8C{@Aj>X~wh1mK#3GJRwAG`6v@sCpLAy>(lhWpOGPSVjj(Z zlRlCA$i}$Tn0xF!r++sTR>~Xby=Ol5wD!P`J^T{WzcW7mWcMKE9{ZfrzeNPvMQZqT zf5;?#u)Ol1_{72I7n;v2a?E!Y)VU@gvV@~A)B5ln<%AiE_4;cL9l2D6hJp4pEVMYxr&*b$DiJwG4 zl6@z`4;cRBvQUd>JpM%c!Hk-v4Hl>#WNcSr63c%Oz|vjJ%BtCv$Rc6T!@%4om~g;= ziATb%f$=bhL4pJ$8;|mVhC~*Lf*uCuKEZ?ohDo^2-ia7 z;G<)Xj$H{B!Yn-LO$`ry1PtbIGPM~y9w<=bkT}P}czC7)NKz)fso}AYK*1bNraoiG z1BGfF7Ux(PkIz(iU?I!`l6>lO;qitKa_z0(Ep+xAPkd<0$Nj!AqN4xsp=ueid$(t` zvLDq@O4%{Jh3EUE2@m6hjP7_lwN-nbDA4DWe5a~-c&`dbQs(=l36JB1itczj^;LVG zDAeb)e5a~-e6Pxr9n)J7l0gpOG}nOY6+uvFeLs9ZGHJU1l>e&#wtn8v@+ed${qz1U ztN-YS{+q7#-+Su+rKkRXsy_99l2-C#%QMG|Gag&U9MqHvo7n&S!m;8Rgvb-eil_8H zMC5a4nET+G2!dP1&PqGMOWjs>lAzG(4?Z<+A0Nz5qb zf>RrJ)QJK|Zb`ii#lx(+Pj)P5l@Z@E;c=5#QOpIWKJKU!g^t{odKrqxu}N}uU?f1L z2LUc87IIwU6Bb*-;b*1iXQ$T|oOGhVi$~J0Q}M8-VTy%n8_)716CO^HD4HYW+!vg5 zqR@-S(yvqTxTfI~3)ME63i~pSXTw7$i5^}x4{#)6`V}5nQ!(~!NcS4-o zW@nu!2qKENuVvmU#pAxFPw+{y9zhLE z4oeZiA`PXKTydE$4(=e9!-bY97JBVG$DdAkxI@NBX1a6RU2;Wh7!eY)r z4p&3~T*;t0fWuPc;H|8~O(F+5$_0%M#kTYmh$|}JaXo>_Ejkq2GN(XXQT>kV3C?ms za=DBs z)h8?toaAy-SRGy#nthc^4}Oo8%H6xN{iudgQp=G}3B^JsH;*|TfvlrAk)PWd7BjyLXdP?q@naAfW=#=gDZ$d*(2x($0QNMCKcBn1y4aN zT+T@%g-t51a}+!U)jfiaP|jW25P`)#pu%a|4*}679Bwz(bO@ShC$*gIl1SXFgoP_? zrv0epY?npiW+lHHYdWaI1&0)*{CEN?Dmx~C6O$63>xPuR6$-8fOeIml&u|lSmuGHg#YY%X&xtv&taF>frR|2P2pkr4;%e8Kag(-OdEvS4W z=?KR*2}4ZooP=&c^&3e?IJZd@HtD)ipNmvV$aHmBhzJ&HC_M^rIWkGXLPQXh=6;;* z5Uev!YPsJd@z7k^4U;QeXZ)z;evidNb7j9DXFF)Z4F+XaND>4&Zea%~AibL&1h9Db zb%8RgLiQ1k6H$uk;yvY1f%Zpx`azVk09_QfrXYo$z z1_f(I@ez(&GKNiN?mY|63MylAId91nHkrB4S#VZRJ)`&tO}QJJ%)VPB#q}#c`-+v? zCiZzzl8B)3p^D=@2KNk=d&A{`L1WmW9js=hm z21N)ek9=Pd2`zV(*;zrX*^wl#k~`Ld>|5hN&e8($%AImQsyZ>l@h62yO2fqtn{0@|0`zRmfsGZYV{~>BW zE0dmh(ka{b{OXTSrr1QB3!f^j`h4@tNB8so6}~D|^+{LWs&Z`cox>BO4?Rn%%j2A# z%eqrFM^5zFv<;F$Q=$(&vn$NwoPBjmvGqPJI5i#>VBv2Kd{c05bB&Glq_PS9>Fyi&K7D+1;-aJ7JlTzwCysAcRs}15 zWFUXOk4I)*f{59?!!_2rIr6OV4V zUYa~lOgeaaa?O?7A`!pu2j2|+`}pPmL)XH%4t)K!U*p{t>&(CLPu!>eTYu?)=&$`= z|HEJY*ZLd3^#AHF^_YUczkaRn$yn1fBcq2w+U~H@{q&TkZv`BJFe&ljGw~06M-bSAOogEMViW%;?uhhpMbmU`hr$wE@#Qn8G zQDIRl?`xCs6MsgjHjwxv5@=mIVz_$6~eq( z_a2cr*_3=tO}JQS>am{5RcAb$C5ks~IXY*Huc7*L_cJF01&S~69_g9z(@g30EyC-&Y-dlHyiJfmXv7sr zo+IpeDrEan#z!UV7X%i}Ui>z**lebmyX%!_OUyEgH;L?U5L~`=$AXV$$>~|ePQv99 z-@Rr15_rWm^fDsf8Gp%^?c=g!y^_ozDxzV{c>Ksc##bWB9eyV!JcwN|gZYY{hnt}D z(Q6M^?2B1YX87;cLzV6C3WEH~El$&bf@;oVha!NT>GYAORuconk?}Z8s97uldR_$Y?Sp=2^3!un{)cDQOJr|KN(Z; z6$;w^jD>9>BK&s8b9EAOcIpKj$y~YM-67U4X0`z9Ck#h<7Vs^vp4&88dYZj+ndPlp zdhQ=@J=KVdUC{J<0r!=!mJY1THIrsU?{IJxU&nnVl|l6D_Z~^})0ztNnXe==w9c9K zs7a=0a`&Fop4#`GK6z5w*rms7KG&9gMev5|Idke`&zTlZpZxGFtJaEtg^jml7A)$X zFu7yJX;16RPnXPnSv2WjiKWmQ?kmqq)*sGX8C~$yh-b#G9u`#{^*?&*3^mh*zu#fi z+VS|C#lnTvb1q!a3vdj3$yC~{xaj%x>x$nbzPqn1vv6P)U%)L=d?6rUS6QQ#E?ev0JeWFzTcofd$?rQ?+^=N~yLc9urO(=>v!Kc4h~eV<65>l40?sgK zNxZtn+GV*hj?2r{_MGHealGp&Z>3lfXsrtgYS+$UE5PFW4e<&B*6Ll zV~zE(3!1j;?loiP&+TKm_-xH>v-Zi`Enjat8_>A4p-QG_yM)8uCX;g;HWejyoy%=c z{CexLgwN6jCbod-m-p%|uV(dk&L&=V~WdwJJPU)y(qVC0Kmv@sfpBGAo+0E{cR~Kil+b4ez^f zg@3oVy_7dQQlI^^@X7MW`&koLcl{4LTK{``|Nm)^U!B;nJ}pH-M}N-N)6E4g2R`{l z_M}{^%Z{GG$Gq&jzJ%LWj{p62vH#?c25O)F{}?>ucYnfvqTecSmHh3||%P5s^TLfcL`{-?eBl=uJi1^=6${{QjX z!~f<-|MNF#oO$w}r^)Nz`X~Rj{?&{A-{18={^(4qIt*d)(RdCns4%V`G+oPyYSW=vodHcq(3GeeL0 z*z+S#-x(xu{R;Rk^Im=aLf7NF>!A*s+}7Vx5d8sN8wV z@YQ0+|f=XAEU z3g09IA3B{oX!1nH$JuY+@(Ghqs625A@L&`@BKO$jv{%@1i?h2744IdmZFs2i=CkG8 z&z5_&y-MdyVOCV1?R~<6p}pq`qvB(O*M~%|#J9~6F5u#pF%dZ%eWLTzaqkBwPHqz` z>f5Y%_=a7IOrvv~;vVkHiJ*YqBQx8My~EU1kiElHjqeyU-zjIYyM-IV4R)lQxRBS< z<9%kr!yrMUEgFiCH<>)SQ{5(`%B3%#Q~tVASHh&^_nFPHY&_c0YtLt`JkG#nq02gF z8W-D&4vDU=x0}Be8GR^|G_V7CSk-S;d|XiCITg{f{AW%!3L7dFx$(&Ma|;_KSUlF; zG1q;LkF}usWxpc@_GO7lY(9ZOyb_P*a*Gu03OBi5ctT;}goAG_zHtevhvpvHsMKL` zYF5W&4+GXCGnY0oZdUI5Y_0q<=SaX_7n$w`5drP?s&3{ZC%NQ{qPQ%RwIoVxlUSI4 zuw*{$F0u*JtMprPK_tMjD)op(heV^3a@*CCRr$JX0VgB_4=xVk>S%7C(9Ch|j96?# z4+Ec|bD^l=8{3!}O>KOF$3<*dk2p4;Kj<82cO-C)tIW};BPVCd7K&sGsuyM*IoT*x zSdyZt;P+h#jJVQrJ0)K2=vb)MZIPI)?04;8NAgvX!kk{EzO{i|59dsCI%m>4r?SgJ zccaGogm0TV9?DA=^2}E1J7n3RIG`?r4BKYp2c|Gv?W^T&SJH_9I=wEE|- z{UYRJ{i+}Kp?~IU{qq<7zr5>z@X`M(AN~KM^|3xEH3!tBExW{Y^k+rcrWqjeQ{GW+ zGkfXtg?97ihM0lKDPKY4ntBka5&|OU1cS(w#<#FG?wgb+na>~J^jvi3-0{tmwf60G zIfJo~@v^!7>FSCB*7E0brO&^uv9bR7`qs~ivP)Y^KYe_YvgiGi$2UC>Up{$! z^W@DdCig$@>wWHLH*YS_nYp4&b0O?4hvwGUSnu3q{j;LXs0yS_<-@CIk8gTL-amVM z^W?YErSG~GV^PJ_=>)s&;PFQ`o?egk> zZqo^4r$zO%7F^zGVE1^@<=*Yji<_Q{_Ie-dobs?(Cfv@I#UxBd-;ZPUqH||tqJzwH z0t4$S`WoX76e{yr@Wswo&~rb?{j#B0@h>M6v&dG4{6d`rwZ~!?z5W*UVV}(t3Fc*c z47jayj>xpPnjH?&dip8o!uRy*>m3u4^W}atX_hWb=@c zgR7IwZG8>9GPX-_9=~m;{IKHo!j7_oS0edbw{WYS?~;(5b35n&R)T({f} zb~EhCD3`39dfV15>{Z|F>g5uyC3j9}9MxF#nC*zpjLm0w=LZ^OM;`GoxZ5fDa;NpW z#-fAC%U{>W_9$7sJGmL8`a|GRjYY4k9*HjQSSS5`nS^V}-Gb$;${%+tx^kzb7SA=} zV*613*jVJunP&km+Y|D(@hNjwY~QWOUZFQ(b+5*Zo%g^d`@0$GED&oIY%>StHd$IAAJN6aXe=iNs4}TrsT^aMg&iSj|nNz>(x&HH) z{jJ;ZRBc1&|Lsw8xBOi%zeVd`{KxOOh( zyhZFt zSO0y|Klgw7=CxlOX8)+akhT10z4bS3kR4tB|9`%!H~Sp_>+S7+TW$YjfBwIAtG)Ek z`qhuOU;6dGPb2K(|E~Z4ul@P|{qSD%jAhEwRor~DqW*_JezL3IUcSak>aeNYaqa8- ze@u`1UwEhM|AV7ffBj$kbHC~T4_`TJUh}7aUb6G3+y=#e?$%wGKkdK2>dXKAXZQcw z>;G+i;OhII?Jn9!-i&r_u1?aQ+0*~L`RCg0b1EOdG@8lZ=Ka2EkIiCVx15Mz{*^bS zecTV+RbPIZzcKWt`rDg}ZytSHQ&Y9=%d38=xC>dOdw<_M{LS11c1P^# z{Ql?W;=|(ke6xAx{M{v-@S$gJ>%)0x^;ne7vw1tb-I`!~ukcZ<-lWN=Pp%7|+3;y! zec6{UPs`o!9Tuz$}q`TEzHh(@?Qpp|s^%eEIPk;Y|uF&Tin$j`Ues6~-=|46Nrg zk9^kTsoVJFiZWB%^5@M@Kb(p7S;*seqkCq;uJ8Mg_=`+AT9KIW_2|0m;{Wpxc-L&2 zFg5V^Q!Qar-npmRR&8byeEM4G|NPmzo^4IB3OZ4v^s1_?PSK;ta-Y|%{^Kq|{Qay( ztW&Qs-sBDaksbKs_34i;AD%ti{7X1nXrkZI)6XWWP3V}pv-{)Ok54eu6!CwVS9nqE@OUUgdH%3*_9UpCKc%B$G5 zM}<|(_MGM_Z>FQKstSXORvrCXV`b3^?A60k`FjuK-#biVm$~?=dvkZ}`=swx-`706y70lea?=@K zSTCBJJhbSa*r0Ou3hVqA{9>n{Z5EU}SE%{Mq)gRt<@WrHmAVb9vbuJ6ef@VfM^7pv zu4DUY;r!<*YGy_LJz*w)jvt*r+xlLT{INxf8B0wT?7#PQ-S$=Di`wGX@^|Q6o@l!F zz{^{kn zO-U+!;ZwSlKfr8n_w&aqw~DbHUKpvhXl_)U|38aEK^wl6WWI3yyYt7TIVzVgKb={5 z`GV}>>*||NuCVv?`xJHLoJ03bwugTYWfnSb_PcGVd%f}V`>L1wdqa3lHPbj2<{C=s z2n#)9@o(g7T2NrcCiwoxHQ^@jw{j=6jdhyu6x*;0C_3@j+<41=`LgGth-3huIST_aQ^h?;!X9ZeK~fOzMU(`dnmi{?!Ti)BWzx< z_%1m4^65{*(x9BGlP*0J243B0bj~Ip`M9xUghRR+ZN3*IT!*$g|w9 z`gPTcZ&95se{Xump9;I)wPfLeNWVto-3QLT(>>Ap=ui2j7@Y^q9~Dm2fA3dze6Bt{ z`2DfnM?-Z^nMs*#n32aQWBK(aZ<9gP{*V7ySY;2~_E~v*PLT47H@9|QzheAx!OPB> z8@e5Q)3dwp{8)6Nw|qb6*PFEs&$s{hb4^n|;irA-DfWne{x3hdynHm*_Bg*!yHV`N zg}a5cF3%U$Um1Lm%i~StxzjdouP*JGaZURFgMRfzi9f1^AC&*#j`7=Eb}{{;@x_0+ z3Ol89)xS#Df4`Rh=30K!-P;Qo^#d-s8is%8-_{>~VUNWtlj+8;?VYcl-IANfb0jfB zCh7YZxefyjXYGaIZ?e|2eQu4g{pw!8B0az9&Xc+I3Ylg8^BY{&PfL69EJb)jnwAHU(YQ`{eW`n<92+iUh# zYh!0HPyEs65_Edb-=~!s?(_W0KiDkkTeZ4d{(RmFjd^+D(_XLFU+kCu?PkT4IXrsm zueM~Kw319&Re${C${VQ}OMc!yeQM+F_G10S^Q#X(j#W9_wspsc ztkwF*0+uh|VCSh(WirEOPkGb!ee6FUOZe^Daq#j>kyPm^H(GRzY-|0i9CqGj&Oeq^ ztHs7sRbh9?Ux%IbL$}rHgV85<9eKAx)p_HhzJMu0_xFj^mt6}{74&2I_^j+=i*@LP z2@7^?-BtH3s=9{2X4LCp*?Faw-NKHgjM_<3RB8Cxjo9G-fTK@ zGFH*dv7c@7QJ#czY~h`53Jblw0+&>*Xk_y_F<<~v7Qux^g$oU)Y@PArhKzI@&OsnmngI{Cr9%))dakfOb^*nZK*BIA0G73`Kw9h zwomK}{waC{UJBkUcB1%_+}RlxvTBD@HqJQfIdj(znN{Evm8FH=|{e_qd(@ztj* zFT9=z=zJB{EmjS4&gNbj-SmDJTP)M8aMcI9qn+Noi8!h^_3*^nKP~?qI<=llUd_%w zw!FX3G0@EJYShI#qrIQ99;tWe9G`yrsgJ?E%uC|3(K<)WEkD^t2Aw(iv}8}oY5n!- zPfyK1JGn^L!uC?oR2{voZL@cWab0+utQcV9BBpKS$uj$Ph{%==Sxo%r^`~t&sa_W) zoyZ?@_sIOPvx{`PZ_f%fO8*x&^~~&@qN$sU+gN{J_O-ncVwRp(neb)`X zbn9^IN11%n^n$-^RovOe(&s;Bzpgt!sq#{enP-y}iQP#X! zPxhX*O&90R`PaU`8_` z&AfVCe&4@$FJ3(D{F3##W->*5zL=x6BK;=I;nQ|;d;3{S|9yD&a&vxPN_miaqtb)^ zxP2B?e?RS9r%-*P;o`OYvc0$6q6`++7g?=qPONWv@`C4sThH2wwKd)Sm(?d+S;+NE zzv|129Xn@rcHQ(n$fD=NXMOfii{=cQW3yV7YPY>IHqd^pxq$1O`|o?50?ULKd8Y)m z=}dggn7dB>>|t^D_VvH@_E19l2TxrXr64ozCSUvUdBhh=IQO7xpTQjwJdZsz>JHBFFR(rJYWuKeO z+K(rnZ%Upo%z5qdlN$@9B}FD2cZfY;I7#}Zrj_6WgJ&my`dpeMb8@{E*Ujp}xR`V4 z+e0>Zm>&;5cuh^X^4NOsg9+zzG`}pFX#2MReCPK4hq&LW<*l@A|M_e0oI?i3n@=8{ zd82-MLAa7%G}Gbguh-6=Jh?9YpBY1e%~huZTZ6e1y4RU+2s!)W!(F3KdCsDzf{}z^fcHgsa_qTK3dJUL%iJiP6zNqnNft|3$9Bwm(X;rH^|F56?_GGDZ zt@Y-2=6ZQ2td8V3Q$2E3T1`Dc}${|k2O zN8J+&Ocu<#{P>{KM6Vl5Cmh-rxU1#i%{PnY-_e<@DK#&1$D6qJlHWdC%q6=u=gp5> z$}9-5T7e`eR&Ht@4cHLm$~4|OdI|!{i$Vh#DddP-c(8+^{{ns$ctc6ecNubyau;oMWm@AJd8jw-WKxy*E`$FKpR$bR-)WN2ZJeijP$2sozrKM3MN{L{QV~v-C{mfmapZ{ANg0qcW9!LZp*EytkPTFv^xdNtggM8 z*}aTc@zTG=ZQOSvr~f~7Xz8K0+*wO@Y5q?8Hsx<`*Rs&talL%2>VL#%{@?GR)|B%@ zj^Xv&|IQ!xPTlsO|M02*t2g~$|K>k@D@FGIeq)8HryO3j+!ie0%l+;*TT0-Tr%^=Q zxxlZ#{fy^)Kb7+C?xUPC-M)m$-QP9L7w!F{5y^LKGV7}Hzy*@3$EPosySwpGW{S?V z<9~!o1ib^!?>ug*#XhUOGlK8a-5)OdrtTL%9XOw>>4>J|lOJi1_Smv+Rl%uQf^sQ$1zWLX0L!<>@vHJ>iV zM(_u(DVW~FrGBtl$5^=j8H=Wr^dm{;XC{r>vtmyg2|P~kd}qGKR%bz5twi;H^a?~4_7HGPNA?p!wO z0q>9K>%GDEDrP1LbLugk*jD>h|MqTX54QVBvaedI{vDjGlH7Cq<@U87YuK-Sd;gKo zPiJ!MdO!XL``bcOnr=B=Io)aG(3&S1xpAeNpteZh^#3M%O$tn7ZtDL@EnTg@s-aHv z`ot;!k8P~5y?guha$E0LkB)|zS6IDPZd|c#OX{6f$81-Za`Ok+F1%K|_V%?`-3OB< zo|)dFzGvTu>$<|b78#v>5_ed3-m9jF4;Q#>=C<6M-+1lvkL?O7-43a8COXegxA{0m z_PB0eEH5bH*t2||bJB9-!b@|iNwcr(~pp~=f^No1qSNyZnebENYc7ufIQZ~D@F zVcX6*>dv2}XUZMkSg>x{rnLKio(RlZY;0Z?V6?e{ae0lw&h<-s_FcIBqUhdyvrFG? zlfJ#^l{i0TN5?{ewU61f1XM%g_uG7kiZEOH?hxbE(3QXE-4|G1I=f8zX4dDbKBgHf zxGv~C=kz~4>F|Vn@e6S3 z?fjeSvrBbefB90x^I7fG)y;FKsvTfam1vtVH9z;ygxuC6!e_Qlxcc0wO8o1;WHW2= zsc~o0k1v`VooS}9J@wPVBY)ZCzic!~te)aCjX6c^$8OG!pO5x^WnOb;;hBAUMR&J+ z`TRux!hV4%oN4N80a=$jGDO3c3Tm7!_BB**x;SI|w>?*$_UxL~=*}|BY0=x`+ne@B zis#u!Z+k3vBeNo5#lwY5-G1pwu{(1=R%mVi;<~BGZpTN)%0*rq-s~5YIaA27!TbKC zy|z>K9lf-Dwb%354KdxqqCOTfoP0JL=6*ks@$cB~yZ-mHRc`irT=?ZRJ!gjTN#*K?Xa|XcC43pu1WgbzAI5v-w8@OzvGpa zb#!-srIr=ze^qMfZ({|14Y$>woQu50ugo)(xY%~=b;cdTV-tAi%<|rK^W;gT$WxnE zYXAQ4mp6M+q)G4P?_ce!&^(yR13~&Isfk`L#oSi&RtUY2i1g zq~y-8Tdw{3NAO0gdCl8n;$*+h{=IL-!)*?->jMR+$Df?v750fstWPemt$q8fx`S3K zamJ=s-gjF`&DO5u`XiJTaq`+)t6#rrmb^QBJj**~#_kaP=XNy)e;OtoYOI}`%*lK2 z_)-Cu?`8L9oUJN8+jfoP z%lE$};&11hr6lZK{(gVN-l4mRZcjLB5o(pM)0{?$nn;LJPzii*F`lJ3hTQ<_5$8cmRX?ztc(EyY}AUW5PAtMlIP;kh%tu~M@`I%`hP9>aBU ztva{nJ)MhfZm%f+|F1UxxWdY9ha3fLqkgS0Vv~KM74F#S7{Q!;>7p>t%L!#R zj>X??KX!V_ef(^vvwQAUz7`Wtu7lcYN6Y?3JDQlDzvasKsAeJS6@b)g$r?oQ=l z?Vi5l@!{QbT3?$jI}nz^p(Ad$S-#@ir6odXmFr@@tUhbE`CZ}VC%g3bPR_phbW7pc zUEV9U9SXiSt-Z*@?6_$z>)+W=YyTZwwQbsNC)N2I8m3GVy>}&Sm-usEW8KQuHOKaG zZzy`_nK*A=W&Z1x@z(Y`b++D%IO)N?>D<-JarsaD8CG0g-YeR&aaL7vdY$gX%(qTl z!UewXV~$qEJ9ezUnZ#J-`c`eq|MUB9M_yE&bXl$G;F>QY-#=M!=^pz#RbYPE#V6Nx zB&iy{o*?f0&DA0))i*c$+RVx=`}t~~u5#8szHjT=h@QCxsm6KH#yrP&-mz`qE1Ug| zA$mcJ_{+^tUiCWN)4n|O|HX~r|NR8yt)4DjX7_gS^iO>%8`S>pNx$-Pwv5{A=?oiJ z`^_pcKJjjH){1#qnZZ+gZ@Gz|`I@`?jPd%nQ$y2ko%?KiD&Mxh@cFjAyH2^~PM)2y z>gCIYSkCEm=4X_Iu9c*_#}f^Y4<$QQw%6<<|h5u7T%z=f`ul6VQ-}x_*r%PMut@WyPNJ&zB5 zV3wMppD9sQ)XK46qF=~VezA+6X;$U*bS4Rgc|kgJPv(3(D1BkU66Z51HojN>Zp>C< zI{o+dP0=se2J@3y{9H341m17zWB+_qFUR@%$&^Q)w>>rLbmf- YjGyCoUlzkKn{ z(%|cC;vwJn?{--7sC>_dUlZ==UE2EK=+!i?Q??AT^SV3_aj6KMOMl_^J@W7umi(PA zhbO%dkK{Vhmw5cQ`IiGf|Nj2(VAB|{|G!=SccS{_|H`XA{SW_P&@?!vZh5_b zL)3-4*V>zI*{^8mDaf0Uq-^pr@s*i*oY^d+%^lyF9@*&YPv2}Aux~-D?ZqCRi?xP3 zV@&LM4k*+b;|BdFd7piB zmgDTL;MWuX%-(J6xM0Q-mutoL8QW&BWncA$*{adjU}ivCi?^ZJ!N+O}I?aWGizIbl z+Eh-8x?!hv-2G%yru>A3t1_E{n^IP$u_Jz4C2LUZ5*2gF4#!^&HYtj({w`Z1-GRU zqe}*li22X_%jTPRN_6yj|j``AS#g<}W9!cDe5JHccC*7P3rX@Dmkby4tnCzW2}E_9d%#|2}>+ zHt=jwjj6)zt1EAA-n0In*`*uC^6qQBt`p0jW%zRp_{cVogzsBdgCP#Sm`-qqX zTvF4Y8TZZ6gmwEOeZAxHO>9rOE2?z-W?r~=@NWLm_3PO`?~b2T#(F;~JpFR>Zh=i4 zTr0MJvd!8aI&*rG+&eo1Rx!?$gAIGmW;gun|FN=hUj@VaVrzy^rO&j9k1nC?HYWoW&Vq+Hsx5#=Z~p?ckG{8 zZ`W)SWk_c9opy=Iyz#Pj#gn_)YqEvZu9#@npH!ql1K)YLN0%^x(vrj@K{ zOiR@$XqlpT{lJ>?=Z!HP{AW(Q4bc)?@jc}yBbUj;^Tr?7Sh9GAi2tnF5U};t?@k^L zi3JOfE#U976_{O|V#>t!ciuryU-d5@`U?(BzV@~%IN&trj18|o3g<{qZ1Rus3S;|p z&dRwUW|7&B;1uVllip1Ix_8}&;!hprtD1JYT*=&Ad~&t!qCjSyTl->|=dbzuMehMa zc1|$M-qXoPra3O^e4Z|NY1O>Tr%pZ7a) z;2P;Ciz<2(9$ZPDHmf(+IIeWF=O*qs;crWet1P#Dm)#Y>pi|=?&i$!TXzI0|n4Z`Y zS)KHAEVq9;OkOyT^IWN~zf1D6|KSQ-I*!G4GMaxpemwb$>4FFS)f2xLDhhD@=;6s) z>3`srO3+eeLSJj&DVrfeBAyF8Ib81tq@P5O(>&OkcJi%K5iG z2Tq>0{i&hJ=Bf+7wLhCYm5Se7E57&FO*Nhy5ypokWG!`08O`1<9GJ{-QSm~BbLHx# zYb-iSzG}L6iLtNJTwSJ`wo{NpcSY%(W&0lSsBX*&)exV!%Da`{hco2cz7)rWRTsPJ zJRz8*tcG4+!z#J zyCV4MK~>fntyc|i=1aNUKlferYQwAA(u2S93;uh@^wl%&`S)-8)x4i|zy6tjSpEC{ ztAE>f{a^d89?YCx`rrHG=I5KW4Q>ZB&eB`1;+gf=x-*yisbpT!rIjc8vRkSZ&NiE> zFFbnF;mY0i*C+SN&)a)q;*&QI3YagbzvjqGVmkhvJ;~jv`DnG<%9&hG6wb}N6};ze zR%ZN1j(yMN8gr(<43T4ay8guyW`lNx#hYa2--wi8tY(`3_;T#7Sa$1>nGYh_UoAV~ z^XiB5{*eD!k#pN;2z_`ie@<=s^WZ;L?atvRm$@A;s>*?MF<+eyUi?+H#qnRp z|4H^&_KQe8-zxQZnd3fN7QV^$M^;aA{&H2Ixk>of^*@ULO0Np+Elmzl&j`QV!t~j+ zpz?yMXo%(CzAZk}lmxfQC1m)?DYz%kT)yE-==JcG({j!_Roz_G_VuN7ZuXI7VScF@ zi*`RLe*Y^}aq02(3wHcm`_*h(SimZ^Z@KsNu5Ns_ByR5i@Ol3)n!l_u`gir*|Fssi z|Gq!oVf8=!`Ttjc;^+Qf{kgvMpMK@P>p6$LKl0wVY~#bIR>`)3Yx+!u!20hz##iMv zXXnP4NI3GXS^oYs$KORxii;YP=WlFV*W7&He|~3a^YOam*p9kG`%MI7lJ!oqq&z+t zR5^LkUzI~$`eHA(?+>`1cd$Rmd~5cqCcl4QX0kqza{1S!>TbNj-e%@m!)3COhnFt6 zF!j6mr@KdfOg$ATl$DufT+qX4wx6DguisbZYzUu6lR*)GX+}8+_ly!jkQ@{1jft z{gW;(G~D^Ha*?s*cYU3s+%pszloZZr9dinEGz-aa!(&0Qu$9N3z9=cR zVA$PI<@TH*R>10&SaEao<&?jb^A_aiD=1%jubCb-c?olDd1)Wt(VGjSE@oeyC0u`7 zYUSO1d^PaXWGHs<1c&r@2y!pUtEjsr2D?OKK=aWws`J|TXXbh-Lgxb z7$;(Iyst)hMJnIEl`B&3?A@httBhIk;yaUtsr7R`>J~jpQZ6>h39vfs;JZ!#gyND# z2A20!k6%?OXwY5f!M?v;MES1!7T1nVX<^dZy5Hs%~|1LFqsJ zN&gG~te*3KvBkMN|Bu(LMoU}&*M72(I{q*|fcb-3q2DzLuBYOn$B!4jZkxO=Yraua zb;&28w{rKZ-alB@dgt^;?GGmeb?-;7T=c;t#HL!TYogJdTEBbl>-F>}X-tW3esbha zP4w%mOB3h#luj}C4%?v_IQ`3YVO}1+>6gVm5=W(tZP$4(t(}(P ztM>3vXNZ35gKAAaX)X5YN2H&{#ssyUx_r||=Rly5!R9t$BVnGGRd&;=Bnq03OkHWj zHbcgLK~bZ0R>aZ62bC7`EpS=4jPs8ITgG>WrV1;~nNy>@`yTkDPGe8$*tkglZ;sWG z4PneTJ$D_ASy7YhwQ^BTz?RVNGwGFvl03q<7r9nHot)k-TJ2RTqOY*_-dd}>SLW}r z`Bxphi{*r}OLL#7#})&%H|KKves8&0_;kgFHIow?1*)rqQYVya6+h}-^-jdP@9A@6 zv((k6c=Ddp zSDq=x;fhW^I| zY_g3N*-bB1%te;2{T9AcK6!zeXnfzdNXcz|R@+rBy328fzWyC2EWTDo^Ume&Lb2yE ztFQmxzNl=)`|$Yxb?ScW|M$s<|N4Lb$^Fyr{QGPFyZ|kiR($!h z`*?dk-#h!yv*!KytggGbTmFCGb<>XC@3Yg-^WSeM-xv4&- z`ae+o(A5l!8U1^zAF*`TAM3rfI6wYUbWX4%Grap_y7 zKFqfbFrLjoEkjT|s)?ySw%mO%~N@Uzz<~k2kI3eC32n`!ac+WtVSm zTKJ01<=*1lWeWe7pZ#@k`BOuU$45VU{q+Ci{qg^bx8?sH92Nclf9=zH%m2zxmh@|U z%QCvJ_T%@lpZtfz)IDDQk8+Io`9J)Z{c8n#w&}Nj3YAFdH>R9S`8t33lanw0SAB1u zcK=bR+A8ZB4Xs&o=l6?uAB?%M@caMD$-Dpiui1OK@R4oIxpT+u58b_lz}n_l0QkZFv`< zEi!w*=(!iWCNBMQI_#VEh5vgeYGwybUHGj0ZO=S~)-w;g$~uod*ng2_1)uWc3^RF; zqXi59{n=$(U7`6bXWxzADpMWR=KkL$5^TpReDfvGqute|RhL5i|JnGkot<2{I3U%j zVDEp6nOv{_zK>*@x29gcwn4w%&Q|Cd*a9NsQiw_mzi>;`KI*R+qIraoi1^{%*a}7 z^|SQ%95?QqzjuA}Q%N3c$Tyu+oK!IA1W6AeYfsG<>@DB z*LQPgZaCVW<6RToba6*r@BS3YKYHBzroTI~;-jRNCx3Hj1-t2{1V-VfpIs)rIbnTt z-?zZ^+uWzgtlo9ugPd}lL*{iChNt}tvKQ-hg|AwbRI3;DxyCH|UFD|wn?{dVw%NRH zWoAo zgY^!1uUq`GWo0W$T|c?JS$!hr_sJEh%nMdk@7^V!t;O(L=ZV6*qUqj0wPiOezW3wq z?vRfctbFTvDcpZ*@8oT-9E$L~J{k}Cd@gzG7|PI_l>v_3TgDy=HcicGx7_-*r`|WZACD_gq-~WurjN?68i-{gZE& z8r{z}U3m8LlKm3@l^f%~?JE6w-^_F(XSUaehF=V}MvsIPo$Y?uXfMCQy87*Tzh6%( zv>WW*7f17GPQE{3S}WJKC8yVCd2LmB`N4kEifb*M47HiNqLt$oc$$dI-po9FH_86? zJX_@+wyy@o&%(_!pVbS0cGy(D(|sCOvGziN+w*RD?VVeCW&1j|y{^@-e{I+yvAW0E zpU?e~0SEt;s(&3nZgbD_%h~W|&J$hJyY6M&=VWH6@vNTUBk}IT_d1K3j~44wyG6y> zeT+Z$PB1gGELbXC!g%46!^UH={ZG6P*6gqR`zf0Ly+YuLiHE*jHcxq)^0Zz#^4grP z)UM_7`s@y|Uzv|CJI}`L@%~FljZVM1?~j*r!uPRp>m~g0f3lI8;kCQhrgq)O(E_eA zALF=+W=(Tk!Ca?O{amK{!{1A`e>5b13$&c)o9+Ew=ZkJ@HQRtctLA z`CQg2y+va7+<2a6k33o*>HcF33{N=VX`cUZ@~(u%pO5W6`h1h#&)un;<~&(&qggFz zxk=zLtDuHVkJyBTf#R~_%K07oCTDxEXlk?fsWCWuPT96FTxRmT2`~P(Jjqj%{->EK z`lrizQnAY-`BE!p*$GE3P2e|HU&ve%v2gAITaK6MyEgxDxw^pr?~gAF)MC@8Fmres zc}RjhuYQ@zrt$M{CW5HxHx&R7#`+dLK;mDqG@XIQQU* zxl@j<|E%;d#;;f8b&65r^ZAdeQ}3XW6rIXwn*-G zH+Ejoa6c$Jm-ns6>AU|Y`PFa+@=>Kj=snYv9GqT`Fr=`#na+{!`D0B zzdwC(!=GS<1IbPcSAIG)X}kFiS(!~U7F*8~d7is=N<@Nh`{F|eE6iK+Y`7PwpS${e z@e`jpXVnVqvJ?9E)mDD-`SPOm$B$?0jVxPuO;s&;S$DEAzWe#`@b>oA2aBX%&;F^R zb@54)$Px|yyx?hWd8;E;bD5?Ff0{jE#l!U3oFzX!IYY8jk2{}`oxSkF^9l3Hc)IkO zD;>Aq=(Js&JJDZfR<6m4m+|d6nMGy->*k5PX?}As-+S`yiA#P=say8d)yOhapqusJ z!#|UzIQKm|n^v;qlh9|rlqrnHTo&2dx(rV0GS(emEq{2O6Be-3TUxF<<&W3KKR%)s z#_ZbL9CvTo=e%*s#BbH#W6B?}YJ0tCmJkW7zA`yQGhya=lpiJkD2U$NtT%YY*<^|Kf3fjYQ_NC-&EB&er}rTARN{h~<`x z!o21;i{ls@>*^{End~q8TD7gD{BrM0@%hV4o1balolvRv%E_;4YpU~-FHtYVRK9jd ziM>AH=(1@V_XLl$D!pe@?!2(EoG;0EX+@~P*Z#Y?JVNDj=0pYFd3_`!xVpPEah4~? z>iNP|PwXb|O53_^?dOk4KP+XemYw!_>KD4HC+I@(i7z`PZcnY6&OYn1^#toRi4RLw z<+_NLPx8Mz(RRk^*rS)G+@Clrw|POoX40P*>sWN#qfaV458%z6woJ}9;Su{g+oVlK z>g?60zPxR^C-_BAX`B5mxmQ-9D|TLOz1#ceqj;Qc{H9~QhucKd_t&;^7F7oAa8Qh| zcAR)yWUnCm%+1|1Z}jGWudDcR_u}b%`L5#jy3(z`re4|-b=gj$_sZ+4!wLPjjv71_ z5?s)=;-%gCI61TQV^{XMC`fL+uc+niG5OCe+r5$Pisx6Jnj5`W?7H82$d3UT}gglYi_A~n=Y=J`AYEl`Ir0V*6hlErgSv!Z0okO z-vV0xv3n?dD#%>_r^&uZJe zaCeC6(yt$jY-aTQSDflu8Es!=7`@xmYn$yR!(CGU7k9?*6W>v36Kxlx_nh0CH{(j) z{TM&BZQl$RbMLiTwps3qUsm3y4-UDjDniP$Hi%T22cwuf(ju_$xdJ?mVPHM`C%6w1D( z;1m0}b7qOsDIupECBD>Kxl0dR-Wtz+C(iS4lP}jfo5v>U8awtM@^ilQA?wxGeO?b= zYA?@RqUG!Fr~LD?TSoBN`Bt0C(+*mGn))ug?A7)1OY3~Tg)6?kGGp6=t>+(4cmKBZ z{NtOK9{TF_Z;Wi$(2O|8rKTG9DF1=}5tY&s4wL_Et^T`=_RQY6yl_eQ`~4=;mk##v zuv?kBIR#y4`SLD!W3zdC`pFN@^@Wv1M*9pGSerk3&G)o!Z?baUJRY~&ij}9eCJOd@ z&RjHe(zGs-Ln^CR8`ZY#TYGomy-8QJ?n~d5aDBD*@|w7VeO2z-vob1ANUHC1a4OsN z)JR71lz+eD)m44ghq)KrtSox8^~uV|E{QiJws1JjbM_1>tXJD77%jL%d~2d5&x?Yr z{>_eWtXpYVGvU_Q4g!tDpYt(|>;Tpm#n8Pd}yNmbL+R}E1&fCD)tD}Yqov&EMv@{ zlIFNoE91+5uK)fqvA1{DiFN)LI3{Z^{C}Zr$iMkh|EE9wANjLB48i-Zxx zTlVdp)xZ4o4$;<8BCeCpEbbXzAkI~2dPJw$S{nz@r9+i0iT`YZ8nfk7V zCDl!aOXV9Yc04Z5%-E$}*VM@trFGtROHaf5j2+FH%G<1kJ3F~gH77fn_$2umlhu%0paeJaDb`sKb=Po~^gdwzV;+07qaZzZ~$ z6&ua#E9kRTcj){p%3PAs@cBtiZKb5GQmD+tHHC9@7q@TUwCre2MtEWPaic)9%iXE> zsyjJ$TwKP%cI?n#TJ-wfQ{^AXaD!ly4bJFfwp1g8gJ8#+)c@9r$(Z8-X z%ysFv1q7cfwW%C0(u%72zGUT%8Xvt}^1N}8X4BXo{Mh-6W2Ini#)+Nz|CYYI^v>!0tE_iZ4$tQ^X!=xNhlu5+FFJ+!vM&guqZ@SL_E8*TQ# z@IN`Rto=&-k=ELoI&IyNjaI(A2&<78w&ozB%ZP|;Bx?Wmby~I52`X#o19ybzPQT!LQ7yaHPy0>|G_Sg?aGu<^_WPE}!nf8g zoNstmde-BcCKJ~Qf7e_cv|VfG(wVDrlvZf27d*ZpSh8XFlxfNjZ=M&gmCRhUPI=Wt zw(t;*mX1{6suv5jcRxFHdWuHHtW`RyIn@eEc{8?eS)g%PyW-iEXt$^%zq~nmR(_hD z>c$)pl2f8+=H0ifM)2W9-Mx`@CQs{G1&zWh-ef<#xNvH&ikr-lYfj47f*kTnPOTM{ zEj@YllCoH&qQj~3)YKDa7Da11o>EIm=qPQP|IR1xvS3ZW$Si1HKBpyG*3<0MgP2MCq>@72OYb6&Hl)_%`dMe7|DHQ{~UZK z&ULk?`7-CcyEDG|p8g-s(PQqG6r!YlqJTZ9|7J|ggXP;lA8#%H&!MXD@vZmA^yAG< zyY5Nv4&-|KUCL*fs@762wzYd4&rNRIw9E1I;?1pH3ZE9c&aPaMbluwSo^QTy0?V51 z@72zQ-e2}@U&cWLh2`z#SGL`lVl8@ZU3C532~##N>FbxCCa+z(D}UyZ?AG^uwLN-< zbHpC#?euJ$e&A4LT()z+be@Opn?|0OF`tta$FDoD14vyvAvw-L1jxx`?3i~hP_QO{;v7gMcQT)DSKOD+C!a~>H%WyINNt*bk+P=niw_v?|@AJc)e`;)me|s5S zu|LkN*wue;ccG>F=AE(9lRnx_d}}x1rJdkYJE4dBmh7xm*;MNqyz5lC{hovG64e)K zN7$N8a+B8D6sDN_);l0iSFiu2$L;WiqH_fdw3FAqsGPpKOrvkVnhw9qx9CIpS0=A{ zz+>UMsA&IHBdysklV&CfhJR<$o?-3svF`2^MRT>yH;*T{>Pv9PqzQud1n4fzA4A9{9LG`@`efsIdIPn!MA&)Ga_vGry ziZlL6wcV09<+7Wj#O=%jdP?>Ry}oMtD}Cl}*3EkAnCbsW;#Y*o+tnN5SYA$;_u|9H z$%psYES}nOSW)OoI% zr`gg%-rPr(Vxzh-uCO&ll+sJ7vELqx<1qTuw=oO(1uq$$AUXo`Lsor zYi(##=Pwp-+`Qp?ir&&UTBUNk8#e6fW)7-b6{Tjd_EfEF;hT_0+Nb-x)2D8VlV5uO z^qau4S2`<0Hg&HQ$lN4cz9sMck~hB3PfW_c)Vb;1nsbvh@-}`Qv!~eU z+JI9p=2$&e%}AcIbZU%HS6xY9jo#@Fcac}O{mvTCIs5$Nqog)7{(D7j`Du?LjOKL} z23B(Rhn0C9Z}00AJ7_1`J4sYRmwW5Klua*|yZdHd$_?wSEBAO`H!;m>iuK_ow@PL* zrESZ2b^rJ8Fija<(T4TEf1mpL>g12ECze+lyFbqEF$r$w4l+F}?6{^og{$!LQALN} z6)QDXwk$m9Ay&TY2 zrYC~MRXkZIZhpN|axJwqT$|t)^$cKTY{J^UPu&=Ey(19Whsh)7Qyfn>#lvFr4dTm|)M@ znR)w`En2$ETI}G;gVpUbrkQQ@VOYxCxJF*zb4hcf?Va~$6APcbe6ltmg7wOlPg=}B zlI*6O3SYxk7v;QQ>oVbhc|L5*r(_+ybe>sRWWHy;<>Eg&O&1)j8+Xd+a{FvCzP5>{ z#eZ+ni!hk&-1hRfL)zm4!RE_r%hsenNj%B5 zZ-LwG*EgQl?eWoT%>5((BWKoXuE-~vd@7+coi}Pd=9}^Cb-=GpQ9Ji1PUBs0Nq^rL zjiz0lU32E1zcp8#zjvmM+bq`K9~n1fyizS$X}4jM(3_yYyjfz!lV7+ltFySx+v*qg zmO;+G&{|5py~6p;f@U7GcDXpY?=Pp$miPGZ$Ewt^VAqi=7Yc&T&&a$twaGR9?-U;A zzGTfMdN)}m`Dfl+ebZoP&Xq%#bq>Z}pY`1N=JK{<;qSJDrT$(mzG14Dd#OXzv)!++ zyqbAnx^c?fZ|e>Oxz7J?tsy65u5oMM?L{w|t}4d;=F&8H=wEo>PuEm*iB<3NJEbqz zc-qR89JB~r*~AjP{_f7jnz1$CgRbPUEq&qfp~mym?})h1^Y$|LAKGw#XY$%+>$aO! zQu;rQ`)fB(xAyJ$ED?3<`qT!CFEigUgiX53ySDNmyU?9?=AM;&k~eZrolmG?U9U99 z%Gp5hq;bclZ*|h1ojxL&;jIO!tBfqX9v+u!5!v+R-|oy_<&|si?VQ{7O6y`~l_+PI z#-_sMTAS4ZLnds_-hJmlTi9KVZN;Z;XFF`#@}!J={@w4=MfX%*u4&Wr?%Zm9MD)&H z#iuO_-=FzNZoIqa_j+@=JEgWC{<7D-ww=@c|x$%rSTxr{Etn&{Ea+K61 z7k2IQol?kKGP@`+ zz1G$5Pip*pbf?HzLQj4BuRjef<+WyV^Eh?l7(a_mDJkqU58n3s>(UvfXM|dw_xzEY znd10q!$Xhr-Wv`yJauVynzZ!c?R3tqIXXKfyJyc_x_p+9Zsh$%N0y$;+>sc+)l1Jf zQtV4Z!BgFXmw9YYy$PJy9a;54*(7oEY0d|+p|_&;3-Letsb|`7VuP3U))e!=7D40p z)9!BYGZkBTx5tF%^LyXDUn&y!f7mzSO4r|Q+pN}PzWU2)Za!DwT?tqEfnD7mk?YNF zc?(XT^{Qn30j}fI-mqNll5COHQNC;XA)r-Aw!}+!3U}ba{&_;*CMaw+>0ViEWIHLy z!PdC+=G$xcilpLVm5M8`252?Zib&aen=UeQaMjJ47`swL_R}8=)^Ec3gD;ZX{bo&BRX#t^$_bS3O_fknNPX%oHltg#BB<8x$ z$>I@bJg2lhN@I#|?|037{|ObP|EyOmNsPYfR9rik!Ht#g#*MVRG%d}eqA$97BqyGm z>e|1t-*TbK7t@x@yE=0psx3E<`#)jpuj1F9yXN%SFF1WsSlh)V)%)lBwEvtgZibB8 zj2UCI|G(`1@9uc(zww(RQ~#!?{*Sy_ANFlN5_5m@@AIN|^SV=R%Fq9@d_wV;lsO%f zFI-J%GG8dNt8L!N1XHy@TUGPcNv3mO7cYqCS&_FO|FQL|#N6LP>}4CYe#Bl=$<57) zFa7Yd%s@6i#%}`S;+v7zIP%ZWXlt~+>ved;b1kkZrIP~ndi*jHDiWENSRa?&^gQ6> zlC1K&PeC6&k2;?1n)KY3)mr;X`)xy4!?roHGrQKzepeA^#r8sO-fotEWx?y$d?@9p zn8VA{yNmVG=EoWHUT0KW%(?91bE~NCw!FW8T2#N0)cjxp^_<@+M#8&K*z(&;7n!Vh zI8*nShrnyDlPA91^Q|u{QtAj1IcD_kcJ${m8&k8mQ%!E$OQyctXgF<>Ve;JXzRVE^ z+)m|PbaK3DmU}^H?IEUV9w)NT=Q=-r-Tix>{Pu6fU3X?Ec?s(8;w}sLB($z>@9VG9 zO}2MplBeB0*jwJazvSNA(8F1#OFJ(vKA6Js+GwG{M6TOYW;(p$+q#aQ&vuEZ>C-c| zJo7#;Oupdy$7#yMcJ9-1PnPZ9A;BYDqMN(ylX182Q-+%0cKJ=>CcB(N&V4z&FX}+~ zUtTfQWB(qy=$tc-jA07g^vvlR|EIddNptcI%0KX|^YP2}-d?@*!T%-ecS@T$tdNmp zRb>78s5B>VR^x+)jV@_A6%(iT#Y|rwxNX9+FZ0V%XI^)TJ3G6hcJkxdCuU6fsGV`A z@0#_Fm)d`Hj})!GoG^Vech+r1M&sNodzMHYFLJ%QK;1uVvRQ25a=%3pTVF}7l8M+` zlIgG}Fyz0|Tj$=mzs6FFH(fpWGVso)1C#Uj+M9+yblX!Xe%kI_>ZuTxmw$tJ7=kBH zeifkWy3}LJld$loQYi(ELMM5RCNpnYzM*pQuBW#Tu)I%5`)s`^?ZtcEQsJ=H8tRnRpL*Q8=;`|l8v;LP zTPU2HEU$mO*h==?vx+J=;XB+tMxKm6jxC1yLOi@O>O@Z3nt6#6`A)3jyYBl}?#=Y=5zpW5Z8Hnq`E}odbiR&kLFUH-wujfr zV=%$+_PqIf2)d z8rvpC-bvl`Uz+FPzvXgG#_ClpMtlBneH6RV_{6$D-u}YuMZd_BB4T|YjcN=@im zTJQ~a1u=DtYEHj`X?J+sP8QVY`2}mHvvn0JojT*+ztH_T^OjrkSFV_9iwFy-KbF3< zpf=B9X3sUH)h9Yn{Q4;${dWJGisZMG5}jKPYR!1(!gNym739zhE@mcOkyi_JE*3p= ztf{Ez-u@xuPhK4V7L#OMyW97j`Pt8BoR;)hd!=X7sR-3s_ZGZ8p&Kb+aa_D&O5{B; zZwq6Cu=UrR?k>1`PkBV4@XaWCvN3x5owYjUt4~erdnUc)_%gl^)sG(j|9|IBpzV=& z4ymu=zTZ7x6}6yYlFvs)FPTMasyO!xhKUE=UFsC@{qG#5Pgl>szdm7w>(oaF-^@BO zY1UC0zDM@XOU|YBgv?p!wQ6bIyR(v!4l(%hBoTjW;%hI4}-Ui1$pOn}tr146P*(6M8 z$sC@xB*B;+8-Feh>M}F9;?e2b$+a_U_2io+nNy=8*_da(U71@Ps`=q?T<}H7we~CR zPwOt4bLzT@%8{%NJGHN6t5@&xc=njP&_Qx>`j=I9XD0_6))t3Yb#fRZ(3qnE7YC4;5?Lq5 zlN-Ah)oq;G&^D`cgLvK@w>KRY}|IrXM$+NxdQV%9r0tlE6jrLMHBlRNZo_DS<+VWC~qpM)>IcP>;k z?1IZ`pbe+@?!P~7FYj($W^k7Eli2!) zg4!9rd$)&~XA8d0d!m<8w*5>M%V(ieuNwE%Y@Bm;;(}jSc3GG_n)On6?|rr6U%&3w zIK}^C-`jF!;$FtvKQEp>uK#r1`b`@z%)8HC#`AdFQ--5f*;X35OW&P*x?xw)6_?vr z7koN5QU8*;z^c2hr*1oaem6g>Jmg5g4olX%i=M@wQ=S=ew5rMClE2FQ3;U<)F8`Cc zKKk#4xY}O}qr87LcJ;5SdnDEHV&Nlp!3{5`&C8Z_p5peWyIR(0(|eEKR&Kd(&slFR zUwLBR?{8`g7BRe!=Ba(&yWpH`$OEZ=Z@48RKHdx~j{oTM>2lekJ2#fAQSo#LMHW zoIXS`-2Za(haQ0hgmz9W>1X$Jg=&e<#>!rw^V#UgTaB8^;yNU;nMTO0=zuR>^tIMdo>sD2wDC5rZ zPWB7W@4S#)8GY5cjhzQ~SMimcwy@%Pjv&j&Io2o2wsl z)mHz>m#_2e|7b^?z4u+tu5QmGt~Na@mh3j$Df<$XF1>jf_e$-^FQ1i6UpKObihZlD zSrq5(+V*#z+)Jh<_Y1flD2Fm!kvo^Ymi=Osz;9hU$-|{ncl~7(j-SBF_dls$E=5b? zZ_g*83#TUZoK}t1oVYIOep%SD*!Mdwn645zgf-yU^Dy1z&0o#ZHMx~|+?v^W zILa43J7?+Z#bI=0$;8M==B-ga^UIH^uS(l<=xkPtFlS)++&ij&Jf1Cb4czl;>w*2V z=S^98K;uQp^%p`>25FmKyDT<*GB0!835n)a;q{5UDXF@ds>weMC(b;Ud0%VI{;s|D zd9xOMRf^sEx~PuhWK}*tpSPw?QNapdv2Ct$D{^G#9OT{Q&={w|H!ttOsi$n~BL$`x z>?{?2V65u0lVLl9!*uPIvOQru9~O$Oi4nM1G=JUIBavUzcQEh%D*gM1SjGNkn@YhC*2m{L%GF3*`TNsk2u?_TILLoXNaM=4V~iCWnJe*BVm}PAy+`M>P4g zb=$l2nf`)`7bR{_5eS^S!F?_J+IQ9Y?i_0ai`jiF>-V%g$(V37yK2^g)MuJYSU>k^ zO1!g)jPaZHOYgSSA3>S!_g5}{;H{k7KK0Rr(uM94kD28zZYsX0c>c!w?5$h4?tClP zJf@s5t$Z(M)L|I|%X8OanD_;bb9b0qXjv?^zZrRZdF{$A=e6d2zgx5@Y6Dy2F_-Ax zE4P!qD&nudFMl}u-ntd_RoYCa!tQ0|vHm#y@&C%z4^3qjmfc^-AJ{mD{fEa_Uthtx zQx&SuCVYSKvpm0#FaC7!yuy%XZp}n}v^gh|AN*spr7_HXMIJC?Pfw}h^* z5tfa7Fr)S8oHgm;&n~1^A9$IOa;ceDe^Kb`1?<=7N(Jq*Ozrl|2+BYEjMI+wn!@i_ z+f+(VEq~K(^*-@cQhk2^p(nhh)5<t{vPX6=7>%v_xPcBbu}`spy^ z=9s{Wg2~|)TeyU$`pC>$pjp^(WwrK!|3yvT4yk@)(5a4{^7r(Q_mhPq@~$sgap8P# zh_`CY%4zdfZkpyWds^z!y%savCx-4Ty42EeM|`rO6kGFcCW)=VyT92Sj*$?y*AlqF zdV)zH?cgilRcvo=u3h=?+RBGvR|{6pNqeJLGgIx>{Q9~`5xcuRe{@O%6J!PP77JZrp@=D>1n>Ynccnq>urjBE=_)7R<*ce`52r*Jjy zRETPQcUgS~FWa@{@BjXhyA!*_LH)4GBbLWH2W1}Xt54DMli$1lYo^iN?*^ZjxCky; z@bW;NzO6{YqOUsDaoc{E-kckIbB#sNP5*>m=RaXmdvk8>DV)df<^22H-uSe?-hDYA zC)Gc=dT(9n-sR6&4^MNwXRq>LYSOve9G%ynwj2>%qx4>6O=a^}qtg~e{fAeI>q!S* zR9sv6d!xYBnSZ@-tIJH5Fgp=u5$FEW;}Z%VUQ3H5E@dUj}}H=Nx8pZ zVHwwI&08D2*d2IZd)<#Jy`Q({_qA2O%X06o*fgoNyi|Eb^F@E=zagBRyWW5E{=IVD ziKk*-8Io~&zu%pCa(*)3?o7enm#wAyvcDerf4_Qhq|;2pb?Kk^3u659^jd1HT0eZg z7qo#nf1=8B?w4Da@A+wGyxeAw+448H*e7|OoS(;@8#_hk!_o&STi&j@rgt^>(wgAE zP8<9}?|o8QnYSWcaI28kr&m`d|7P0tkY!8!@(-)l$LM;c=bnviGz~5|YH@u3LaS?? zzfLkPSh#Nbk$L`Qe?N6rKa!p$EdMnp+-$C%Te^OB))p?7R>5%YNw!ivv%7;&$9SAQ zx0ko1W%IUwwT? z;DP2pKkc~CyP4_-6mLr03(UJ0C2ao1ZgQ#VoCO<%Q{LUN^|q==_n#)kYZ1M|c1ARkvu7!H~m1fRQ^mB zZ=v}WHue9{f8V9?AgIx`tHewE&K={}66fza{cXK|(b_7_cG#3OGu+gzXc<@HOkx8DAfr@nn| zId@6C{*1TY@{|7@D~|P@Q$9I&mhI2y{{M^Hh5fHDNMu&rk-F@5S-Py}j_5;e?{Zva zPHC%cmtNQ0^LN7asK4#)4+N^G@wh$t)o9;a&hf8BqwY(v)wD0F%<~Vq&bT4-`r#0*!FPnb#J-bQxp>ybrFts}>moKj4>Ph6140XEuqWQw@j!P*#`p?5V zOY8ry+pyN_(T!DaqP?1Z-IP}=cF){?W4FVyhbdR=+h#A#Oj2w0$hfZXpmN?*_rlx# zD#yPifBwLIuC`Z z?`2hG`)vXRkE#TSPjg(fgtgdt#SBp?lQ~bdN+*eNB`%L^KUDtHWB!^2AHVPXx?cb8 zhHd$lJl50Rw7uQkcg%dnrQ5cL_j~{H>!0=`@so|Hn82r!B`3WuPdZ|%>$%r@^80f| z_jI4`PL-Rp>Wj|$YfGzkZ#fgWMec3q>=n|rUsFC6pH4pACA_LvcI%?trH9X0txwvV z`}FJ#hZV9*PUSM!)bu`fdev)ox1rnTx+DRwQUPYlU~BouqKT+1p?F&K-Z@&v}-Gv6!sN**!0qvUm%>$LdcZx=EyZqz<+ z)wFKW#nh5Xb97PIsrWlFon?%yK24?z+NSK!3-5a{|5E2ZGk(+0+vlt){&a47#Fx7MC;u(4 zJk4ne@?QAkaj5g{fUc#=?~kt)VDr7bKvcd^BG=QR@B3JquI zPx@!_*eN2Nc!+w((fRujW( zr@B)HF`hraO6yc>|BKSOw%f4qLH^V537eNJzSVlpaQ5YGSrH|X$B5WzjBT+o2%?|50>RUHGVm(QBQ1D_BOYOIkT2~Ui(+Cd)v+Lwt>~(ulsgys>oIL zzJ7JxSCzQv&fR(RYablTQ$r&i{*HNHp_H#@df%wy5r3H7?^8+|UV zW}RB%=PEY8?E9lBUVaMY29opr1S`3PL@xEkK?pz?NmF{aktuHS=aGPY6+b{gQ_f~mWVe!7=P`>k;&r+v; zT3__txMD?L!KtlYe@y$Al*%fluT`JQII(JBXpKp_b7|C^B@c={Pp@rpm|`q?Bme2A zFDbJA@#5WceD170lo?&F`a1f^pRHG}NH?anUM@bk;>E13X;B-VZnjCyxqtDPl=GRk z@97hkhA(g{vD~h_ddJO=>+SBn5j|mFe8bJ%-lxAJbf%5!-w9Rc-}WW=M#U|A|8#Yc z>^qSkPbROQdL~Qrz@OgrGd5|raXWV<#jB_`ur;svB*3yiP-Dk`S>J8%e1*dnyq$Da zc5>yd2?u6x6MN|y7vK5j>*sxm&(wQXPTvr@^hFzQZ(iP8?t~DvKsT1(N)>OXwppB9 zzaVP%#nYE|I$yN%-C93GOa1lhIU*~+_(-J$>??rk`r}1ujjjsat!u%W7^u zU#-v7x?cGRGy#4}TUk=HGcwI^jV*tVOsuezN4Mey(( zxgx>EyX+p9yPbMBKd5}A#7y&}R(IOdEBUAIR4snE_NxB11G00U=-K|Z+*AJdj`+UW zk1V?nNKH~_NZbm?tB%|F4){E>ad z+WSn5(7r z&Cc&a9%7tZB3EtlzqQ$YbN6k_Rrg+juYLIXuGw#5_{juo&QCE#Qv<$EI9;j})%+%{`K3^?{;sLD)jxh+3}*cM;dT1?`Lchn z3LF18yLqvAd;YxzyI(nbye<9m=3@DI`F-EwYQO)wdfL35Df_`ZuCL3rnpei!FIM+Z zEG}?ht?zdIY(9(OYGR7a*=Nnq&&$c~t0<0GVZT4`yj)zDTCCG_&Kkc{tN*xpP$ zwp>$rY3a zo3*2nxmx>WQ_g{tMPA1al=E)R@tFKfEBWkHc2=|4o0lp++zVc{&nGkUVM|2-<0if( z`_1-9__1*t2~60v%2qaX3ujth3h&h|wINd$*%os|ONsumzWO`%?&jF5|EiCReoH^*M8#ocH8#mS@Y?~ zEn3XQSSIplgdFJ5Pd>VQIUm=a*w`llVuJIvdB4gW5^LQbYd%}(oxWCs(%A&%@A*8b5)Aw@sMdH_jhyosFm=vC`S2bvempgQ2%fF^jh%;*20>Hg?W?K3Yd`=mHt?75_V82&AG78 z%WWBRUeUan7W;aazgio2|6E`BQR^Jw2-IAhD=7Zc<@ zG0$w9S0OL;t7z5COXXR1UvrDwdZ7uh|J_Y|PirU!C}*mF2Ge4gDv7nPbf}VkYU9a#j0XiBC4T%;LMb zx#dml`Kiqx_M3zrDT{UgwQQNqv&+*JJa?Tu95VSGE93fuS8AUWr1Bh?`Xt&!Zh??w z?n^H(2Mr&a$l1BKD?}rldMbXrnUhz)e$unYhM&5gIcvIIX+3jwgIE3PTGc5JT;G~4 zky*Tyhog5Z`ycnC!iN$fMU1>>eP6w4LiuNhD7TtrjjC!I6`O=N$Fl{fB}TPZyNRhY zu(FwL@vLJjTP#&kyn1;?_1;UdhreE5vG)75ic4o~)~!Bg%4Jn#6FGTHp>JxXoTPu) zt~1f1Ghc7&Uh0zTZO>e7nVk6c-n_3?JJ+d%uNLnPz3t`4P;PnHvLtPP+3~*0H0JF1 z_?HoXXKLI#@MrPM@PN4`?|cfuG&4+fQQ@3iytmpXO!n$a(mTU zWM+_m=Sb&rt->{vr9@+v1peic)X?kSsQ;ZuI67#)q17kNACqp>ez?@b^oe)TX1&{A-$d?OD8DGQVRmofteEF>zZZWmdwP=N^68sLHs9-= z{r!s_U!lq5SuOR?{>63u37$89i-_Grs||Avmu^n1`nl}l+^DmfpEtjeIu&huiS5m) zYtJH1JM6uirYUko;AWV?Ef4inzx1j8x{Nn3D|J5z-}%4Z+Hc+VJ-@Dh|NmAas_?)3 zk+~XW@Bjbx6WFr)_y1S__V4+fF9Q|$OPkGa)c<$`8J^jDvF2ARVbR_Je?V|{+FXv3ac zzc{}gk$tA-QF@#?_GC|)utCh@x4BY(PHo@%X73C2)jfI=->)rR>~r2OGIeIQlabWT zx;wApvd(M!1z)Ricl%YqL^{7!c|F~4B} z|Ev57Tc@pFbxrmAp7j@0!=FCcp>E$Dcur%ZR#fc0u-c`(=Ra&OGhci~d4WaQ+uSLw zLRWlK{$EYl(Ef4Tk+7GxbM%gXXMg0gXFBuuTJ34` z!=1`f*XMn#+&;(0taT#Ow+HVW_nxp@_=EA>;_ib2evH*$)%E-T-xEY38BB7VUvA=|}*6aReml-_js+|~P&T5n%&&!1=a=hx4~ z#dS04K4^SBaPfJRi{8BbuDjiRUp+dxuri6~jGSq%?#s*DuicgYdNSynovqJ)+b#F) zy!O{#nXqriec_p$n`Gk~eT5ZFt#4*+6aRVH*Q-W|bz((O_W8Kvl~-F_TVp&}RxY(O z>2NOI;hwN``>biwn!y%p=DbN?l4Z4YQd!AG^^}I9spq~v%`CU-|5Q2g{L*CQ#K_B6 z#ZNw2vQV${vum`>lH?bTekbQ`JFvuKf6_D?(fgcg%*EOhnabRDZfX3{xL5DVRn8Bt zJziC88>$`R#Q5vH#3mlQd;NWe#-2Ts1KRaOBt50nBe}h9T6i3A*L$GMRFlF~ziOeN z)r!}0`&eyH*j}%B;dDW--a?$?qm}vsq7WIQ3oRce~xh8?g?OcMa=Y7TsJe z{5B%RTlB>26a72BKM1L=p78AZpBl5bhYz<^xckun%O;Wnz`VapTu-O z{B`Aiv310Jw(6g;%hqLFSlR!!>av1${;_R4eVE@ZNoDFlIv-RbG^3zF_iy<~b?SJ~5Wqpvu} zV;=jziAP;mCF%tF``UkbmQ*v@N9-@Ri}>E$K6>Y_$FsenyN`Y-4w~55Dbi@V zsbEW&UT~vT#&(hQE9K@M(&{`QvRtFYl&&T#$D3WzUf)-QeRD zUeo+{iCl@AUixR{%b>%1m%S_6B`5SJEVQJ))V0ian$*U3Mz&WhSKd0$ws?QHWeZQi z{CJ+0D~*BkWE;cXpSv`yKFeVKFV;fieyGCrgBN~R)NU?++}(eBZ?yf~@3LL&Hy<&I z^51!M-9#gzVXqt;|M8DD8LI*gJzL~e;utcIOSNWN+w{k$S27$c(AEyvUa?ZaNUiCN z#~=Bo69MHew{QH2z1m$nH}m-1P>!0%<}ZW!daE*m%2qFV?=o#gG~-?iVpFdt^@5SG}QCv@SHE$ehe^R!wP5#TnTKk=!gpyUge@#+f%-_DiD(_!;(QT2X z0f7Zi*-ZXCh-E(fi{aYS#r%sNJo;91@y-A5tN%$GycRjle{JnShKaxS2|U!F%rw;hmdz-qSf4i9^ zJoz=(u9?28N+{;-*1EPw5uYlTEy;ad(^e4KHe0lOO+$YAJ<*6OuMY)H@UfpJbWhT% zZ(-WeoA1w>9(=X$c59vd-MHGdlb&tev_wiKE3B>gB#V#9+Y5KgCrIt9S}KlGUJ1o4%*n){Pgagd7Judm1^Z>Ryr0tdUZ_U3a%7K{ZrhqAOtF*d z-mka#`%O4lNbXJaO_8H-V&go%ZZr4yTRLyj)~}xH{>i)Dny@DJ+Hb)GmILlL*z=qJ z)@=B5_rR;qho2THNQmd@SZo!uySwYdTBYXmtj+DA8zLh1c;@l`W<8+V$Ft_q%HPw3 zSp?YC=InLZm}9Y9V)g2_;I*pu^Jf$+_{GO4!^hUlyyT(VOzGAusdM%;24BznwXS#F zWf8H7F5gbwUw*SwV9B-LNsmq?9S~_bU@tLYNx!*H(SuLPTv={^Ziz2-NcOT*f9>_` z1@HU|y)ME>e;=$-xb|S{i(WpHc`=jwHc05PuIV&axLu+2tjJQre{!Yph8yy$=35j{6}RqFiy z%I)BT0?U7y?qSVf_CB<@GW&W>t(srfwcGhm_Ivtzbar_+xt=W9#=<*J6)f|zwhrv2;xJ=9e=_2oy5z>|uu@?!!?41E8EcWBtO$ujquH$|#D z)rjRE(ahn9QkqnLR4G!$cjIq$iHYZ|kN1AFI2hvFbXwIr;=$(Amp9i2{OoUhm=qfl za82X2(4GQA#*;sDcJ8@R{o%o{U%M)0&C)+#W_MpNzo+u|6UG}Iy0g+xe?IxVe?j~I zxp(56os6t(CVt~`%Y6Fkrenza1v?ix?yBmXacsKSxvSoWe}8yQZmeo7?q0tp((G-l z+NPb}+YjyQ40Zpe)%IfL>->UeAx#$P3a{>;k7IwOw$RJn^uB(ag@o)v#l0^TwV>k>sP)#^hrI;Nj@Ut9{+ut>VJFwzj*q2 z`ugAN=hx^SIdbMxwuLFjOomNTJEwAdeE4&-c>C;ECyNsp)&4}xGI~@hcuQrGsaB+V zPy~aQZ=Lcj`+vK?3+9>q65nk2!pH8K{9N9WbPX}k27JLYc5rQ7+xVx551Pc^5!?)b&L_dxmDuXhZx{G>kps4>`oSM+V?PwCF}Gd`6V&A$C? za#wn@@~#$-^G`Cqwd}oRdu)Gi z)Vlu0g~vmk88a>zs(1gH*m1A>;E9PT$0y1*yh(N0d#303w4^It+pX>WKivCrB+6|A zQ(JoT%gms8|9)4^ntNRRL&UYr%ePL8yNh`&bLh&L^LxV~KLF{tHCu;AUO zp89wG;$KUxn+_f=nksdp<(kvJA6I+7UtRlMw6=Z8w0q&rF9YWI#XS2fYWTjn{Jr!f zc_-Ti589tkGM$&f%y7#nKjw3Rmde?~`6u+=x%ub%DjmDW81(hAstD7+4rR!`0#!OnMbQw?!+^`*v4}tp5f6khn|OW*Ke5xN?V7PJrtkM zFZTEH&o`eAX_mA+TJuup#qzbC^2^K8J)<5le>(em`u(c@c)7~+^8Z9d_}umPZa>er z|NA^y**fp*j|wIio9*z>S=R8(;l6G|GGqBw6&|KZ8)qH;_+EU|jR z-=KACg;)7J3{B15=3+d<@9ZXp*a=*DJnw%;s5Y3sPJZ7g{^E6%#lwbWXSof2&n%Hr zYfs!-q2X=x;NI%y!;xm{Ti!7HKD^w%o^P+ae*7NGs=s#^FP^^s>l3-4a}Q(Z)=1qr z_3OX|894B(rJPnsLocWA*(mWT#pV_Nv*q{r7~U&PiW98L z^Ndv}W%<-5`6h8`)0L&lky2-;ZS-8+C&6LJuAsApo2|g?@P#*vcDy*URAb+aiB{jO zCVG7mzR&%(DYp2HPOujnjh`fj5Hm5kVM?H5%A}&5LzdGTQPu8!`s~5@zr>@RAxo~so)RT6B zb62jK@QjP$^*RS#mi6U#O+A(^eSC%M`-|Oi=iHOG)+k3b}r-oTg%06C*6#E8I-o{*wQq;-LVfU8x_9oD>-7@$+^_` zm@1as}E54l$-rjLI!Z5ab<7%}ze^+P4ylJh-^qcc7 z`ATz(@5Y18r<8N1g;hN0Yo4;E*j*&Ju43ofCpwkhn>Xctjm`?!+0%NKNlI+#bcr=r zHr(L3dUehX~&E`+_Eg%hk1yrdVrysy};uQ~RC2dmg{4_P*6{XHWN2 zUALNVMUkh@%enTtO-p>gplU6HknI^k=OI6AaF=?#mc`$jdXe>*$<169s z5*pQ$HVICx5?E}wk+pf(P5+0%oMlU{O!!^$E<;z=p;6EK>_NwQS_idEc9ym+wNhw* zx}r3U*PUDZ(Pi1*8&}*nJU=U1Kw_wJTGx3BGcb?0@< zxyltQ6n-9irJ&WX|D0p~=IP!-t*VQQ93NjV_-=M&z4uP}XQkd(SN~4Eq*86Zuw44l zw-sKxvFlrR3A03tu2OcJCLHqmfKt(&bZ;~x7>?eck;TEc9FNP#$Ga&f0CgjEBi$&^}(5_ z9{~@q*X+)SbRc&v{-`Df{E__xAk0jQ!iZfB3GP z`{&_@g;oC#FFq{p-oF0o7Ae~;JsSESI`7-v(!;w z(l?H_2|HZu5)9OfcyucuZ8dZ6N@=OZM%%5J7c1}DylazDRfJkaMBNQT^|%|WPNY0I zy;n&=>d3yRk9kJB{Vp&(iSQ8F{5kaKlE+L(1%5ZhsItUOkvzJ}@Df7}j42x?; zcR97?1WjKuFk$*%==j@7c*GrgrCX z+o%+8HMVs7FVFh+d!YT!m}x$(L3K4N_lL5ux~=})X!`#|GifUnt8~i?mCfB!N!;S7;Y`$c6MoihwRm^cUV}egkZtT<7 zlLA7*&F-b2YA-exE1rF^?)k0N`l0!YCw9y2R2G?S>s>Tu(j(cI67F|Q>>U~fBtNdz zeV}o{n6)ZYs)UiP*<7LN>UvL|+!^I6yASQ&e8$?4sixmld%1t0v_-96!0RgaYVRb; zY$B_A>@C3G*`O}Q)gw(@>#&xHtv{so#B85^f;-FRBn z@#{77(w(bveqP$t=ph@|%f2xuNP5k`HE%D^zTaTD?}qY{w#9lLnb&vU`+BbERGqnP zWTcd5&^F}=w|!z9&f7Ih`)({)@#mDE=3O=!zR$Z7_m|H;AAUOEbBgD#RWH{+eQADm z*_(?Szh28V{C_28$x-Dy9fFf9*4&xuzADx#LMW{>C}HwO{v}fLEuRMl_-dRinHqHP zR^YPrx&Gc#la{sIJJrk zZQ=(e7R<&vwYga zj~a7$*JW<8+T40Fl-tU~n|&d_>Vl*Tu4)cezn_`^3DIJGDw8``?VCo-n%nZv1s>KO z5pL;8$UWxBXdt^I#OKTv4Tq0+vz~p8pLO7boqBCLN2koBSxH|@EImc7qXYF~c?^~Q z?G3M*V6%mxQ0xF#o3N?H#YBDC133m~{`{29n|D7ktFHarpH+1pJ$duqU74_Aw}pXl zHbeHYy>`2QzB?Vh)js6E-NF67|Nft>`OQ=C`tSe03Lm0h{>d+t2>the>i_zu|KorD z4@WTn%l-XdC_ZT+gWuWm+qdt3U3T^7m4l+EUSz+~IrnJ6yy>qZ(HB~E+wQfT zX?hUnJ>$!3r**2aKIB;P@xRa)2ljjZ1=FULOK))awj_POkMG|6z5C?+-3u&#JgNS3 zY03SvPDRr_>U>+)vmNI5t*Y`bUE!%Na&>lF&f;&}yllE_SH!=v@OKPbC@K2-bZ$)K z!rCQo?CUP%R?4T|laKe9{_Ahi9+BkR3%%{UPAuAc$evH_QOw2oIh}>|6OQXul~{>C zKFYp?V?nX?Dos~&{f7^}Jh}Zb>Bf}sE68-8*&Mysp z(9Ql~Ue#}hvhSyFiSr-fD9cEhzGD8=D<1Xss}iy#?m9(f9-h6-Y1-qb8X69}EUr!8 z9k<`{m0_uS?D82~wCtEoZr)!y`Ex>I;{7}}_4A!QUYunQHkut&?NfOBMstH+T3CBu zaKhfS&-s^SckMB}T32{Kr0xBcNmp0CF}%Zk=L=V4e&Pg1hF$hWZy5X^@|W!6IR5ae zMycl!Qocju3{v8q{T|NZW!lJiNn&GSXzQ;U z_bpR2AHLN{+s&NiurdDaL*Yd?Yd98Y21osq;%Wczn)`vk=bKMX&#Y)Gc`#||#)Au| zXfe&s4s%HkRZl6k?m9X9U4;Lo*r-{0f6t$ue*fFim1(})uWfnv_Q1ZxTT}L5diyuy z)^Gd!Yja5fY0+4oY^wiWEH=1-YXE4lXN?sPSqHA4KcGtaE3ILH%Sq&wxyhlB3wmdPpw zN@^09bls{}$>y=l-EJXtbHb_A7T+2^`@Q`q&$iwuS(1`g@|dH=)5$}nQ0(3;)vkh< zbzchoR1XPmR+xU9Kk)LLmm-;)UrRYXn{ua8;px1&ZN}+-n@@>3Y!r7k&@{Tae(kL@ z36~D^g?C5@BxIle{kZeS^*vT68a_A(-jI^p5g)zxe$?LySDLnbdAI-Gg1*;{Kk6Us zU(W1TWV|HeU%^WE@X`lq?DwuOSonG0heONWYk&W-Z^q(Zw&EY+oG+#kt0epQy2K_pkrk?q`Mm`tS8W{^ft|zx7N1umAFY>c9P${{KJs<-dSFcaMGJ z@dnlT?zj5(tY$oI7;sPY%n{GzjV1crM*D`~tu`_;Ilvta@++CQskdN29ZppS_-3TPKQSFni4v z)!M2PCT_ZO<+|RbPqv=@*}l(Lf5qlWWw92F@*C&%hseI*sSCQo68Y42@ge1=PaPgt zm1iAhejnjCccI#+MIq-?zRK0kTDMdqwRV5oO*x+8DuXjG4;G~I=Ughd^~YoKuR_iG zlgqt#yU*%+v(4n0*KrOt?-d|302 zh0*=%rOoF3eDm$=e?0o|wA`uY$GfA-9tXa7?avKduM1iddiQ;4nB0A z|Lb38->pqmvS#Q%aKcEYjeBD^_kwMH6Y6xfNmgCWj$U8l7qk0J^RjiFQ)Ze!xS%^L zyWzP^`^AWBh7Q|=e_y&F~z-AcrU9@b9sPrv!y#% zL&CI6FF6Vn9?z@1{$ifeWv`2@DoK?OY|9FA7NwqBKI5#IZka8Q6q9L8T!-(G!;?1^ z*=$HZG;7h(w@&FvaVma0{soIplxzAn|9)J*eUE&N@sE#!4DyZ+zl6`|tjgopxH0|3 zS)te*m+bc}M)#BJ?+IGnuMRIbV>i#?PY}y5?9+!nr;wfwBOLBSmtyuPf!q-2?!sn%4_bZII zoI2NXDRb!FXsdv&)=Rn92JM#K7dh$XxiuA@v0PyeNym%gmN`FO5&hmJcCylR@dHuI z_sv-;tvEL{;yA;~(@%DDmrhjJ>#g#CvLyevJ@$GEg6|h4E|O!^O4+*dub*7ZZ2sD9=H`r50U| z7N2%&SWmj$erMyFcax8{8@_1SdsNS$dg-k@ufCOO)$yKFuIT^hJGnEKs=dFOS{v3SG|BCNle687Nk0;Q>iT{>bl&f#VX3g) zejtN*^}*3n;u+rY0+A-^istei`aV?7cUXG zmb@X1aT?deRRRCE3B0M_Rj}mb0{)b=&X5GT}#WkG}i5 zPJ>73w;tC!-k$$jvm&3kG_2iyI>Fs!m$C%6r1nzH{fX(GE0brsHrLp^WeX4KU91uD z^XR(J`iZAF&5vg9-zI${!g}7GU)tH~I?Wp=yX@;+%$%;W>VEX?11YuKlYN9k(pM?& z=GVlou14di~Sog-TDA{dt}%sQP6_M*X?Y zz`d<%*7jKQP3O;@D3-O||Bz+bQuCR;kzaoDu^Jp^Zaw^Qj@U-2!*&k-8{HjNti7Qu z5naDvS&jI=^vSbN-fddt#PR+5CYv|?o`M?k?{BTY`>ptk%1z&CcQ}tPzFX&fu|3ss zdg??|*{umvwcG*h!A++sQi|Vfd1o-cfA>+Dn~y(yob2rW zDd5!oR@tCDk7JHmw-5KSHg7w)&PX8LsMJdJ>glr#hy1uEW~aY6dasrz>SgU)*Es8M zO>xrpyJG*m`0`@$)3;YbmehIlxozxXNjp&&UCnSfb*5LUDf8j9iu|{Z5-U5mxc{~G zKWd?%@%xRGQ}d(Qs(US)&P2SE4wCa!n6iT-A<6MVa_chnlan^681iP!3_AbRzqCMp zNm*2M|1%>)n++PKk~0GLZ{8EQb(PNFM>$u!pL%gDl{xLOrmFGbH39LRi8kT+miKn) zzU{lDBfsQ()6r*Z({hh`NyhGZv^hz1{?v69k!v2M{*=qVQ5M?2^xtlm{_fB{cS1Ir zcx_=?A2fwk`^ZG!Fy75l-_{;oVAjn1-uTx~$-iYU>!+`%4Zrklo#NB;Pkx_IX*?g& zd45`$YtG+oXQEr${gOEPq)x^CIA^D8u`BL#h0?vFj|<%Xt9DIf%ej87nRicep@Z|< z#|hsn%6C|2Wf(iH6fD-es8QK`EoaHQ>m~Xx_Pl?=|1pvIsQ5)kt83P*9~NfCirv3@ zeyjfZ?T>6i>zO9LzmwAQ<7u@b1E*BgiYGOvW;Z=Fs2*ld>|%*E{}b}a z;#l*hUxizi$=}yKKKa?@#o@()V!tNWH6>>3GO|Uk*ap- z&&F4YPQBuP<@M7~tGK7#xH+*r;7jqtRRwA%uiUx4;qHTTgvrm@U4sAVzoEww6nOx(+jbI=FCGk%V`+ zW<|mejl8DXr~-@W$xMPjEaLSp6|URh;#ZM2Yro;Y(BB*G)H5zo+&roG#NI5MqB~Qc z+(|lEnmDOMe?fNTUWUFq<~JgiEK;4dzDnoQmo4kA?m3!X)ff@flJ;efb${CQM=th9 zH@EHicVfPp$69MS(@P><9cC_E!c6^H=hiIk^|=(hv$$r@HI{j?YWeFqKo|K3c*choq>Y6+u8IZ|1@{^ z=CAiqTp-Ql-z)Mc#q#E{m-{Z;_2gVEUnHWojJc~(`~R^yww$HbQ37-^={+NX2rF0?*6)(6kfXdq3X-POE>eZf_6;c zn!p@A)6e5vh7yl4TkhUN`s>chuw2(U&GP(G%~!7N3o-)_o1gW#^X_rP`aP?6r+K|O zCu>^T`!ixy{9CREZH`x0{o~5~&lkDP^lIQ;%dXndK}?**%(A8vj1jBSSR1=gUoZlclM-B z-I9H}r+VL%Cx48OO;xLlb?+4X?k0K3e>4A$K%GaESUU?G-Rf3nUVmg19<(rndl6UA z7KUE=Lqdy>EtEf>kzKcZ|NYwe*Jp<0yOi!yk9d%`>_F`DhR8RWKYcs$%MQAPPFd<@ z`^8yi*I{#E%K~?M6T@e=O^q>fm#2k?- z+pG6^>-MHEeI`?iCtO;qba&^zhYAwT{xXc}{fT!XC1)Dh`mETQc-sEmsT-vyRBP8T zX@+_8Iz>rb%skXGf5)a*8?`o?J>GIaadpO|2Z>2;GPe&+R5pC-$nnZy!IXd{b;}(! zreuFhsY+l|Xg&O88djxu4>^)HBR4Q<_8%T;oe3RLxV@g#47NQXhjsCfNlgjtjx1=83u77mCEWg)_bxQ($|1j2g zr802DuH4o1Tk@=_X!GID3xTSipT~4NM!dIa?6F<;ur@Z-SH7KV>U4HX-!|(nhP#${ zM_=rIq9z%~wD#SJ11qLpPZ#{}Z&Ok$B!A)Szxj^V?^-hdpZ62MafbZ6KlYjBlf-9< zmuNao|FUguZ^Z8xa;s`}i~m@@WWBjx_D25_#W|mOj5jX0yKc>dAbXjPqZLdCmE|XH zKXm?HcEi<+^7-nWdz>9Fr+K9_epkP|`ePDLqICT?xqkNL#wXUZT{sZGvE_{I>QASF z=6#rH@xJ5y`h!&ge_CEWUEBRy?VCmR+$A!hz10ivs?Lo{DO0Kq=hXkMVzePcjsN7X zLn~vHHfb1~jNZO!s;WY))~t%udn-~DXNs>ZQJndG#%Jg6vzA@>5~mapsP*t| zl5cL`f0|EF4zvjpN!xoUbJ3$&G6tEmZG%O0JbWklm`swk4*7bzOz2wYz0&ue?j^|` z-y0(Smg$BgOR2TiUY&NQU$0inXedYc+aF}l`x|zg@5te0Uw?~>x_nJ3u#Eh+cH_wv z5%xPTSkJF-{$G|dE7Vr4!gaa$Pp@S^TWW-@t+kds)Rp^me{c9(C!c`T|BecMUOxHf z{;D5GYx7rd&t~(D{Cq~UOLjxnoWLcn!411MD@+%hxDDpB?$rVcmzuFW-k4|G!I`$SD&{?@>0D2 z-pxm+y6Y9~eibAq;*s9DZMRqKIci&wdv)-Bi|Ni8g(T$75&#sm73wmz6 z!;<6n6g2_i#;wtP={F=N-gsKVksTz`9&Ws+f9RUgGKNhFf78FsJj?gy+1Kuy-dB%oo>=y9 zdgAAT_>I4q&(z3Ai>;}f?<4H0xm9y6@3Sfwkp%xK8T%$b%-4VZKJ>=x#9cBWoNFTf z|Csz-`I=4~MP0aWiyM`044A$qH8mC4ZNtJna&?6Mb!gGgH)JQCX?v zTbr(Mzqv8_u=2sCf4?u>(s*!>$L6Q5^4r#j%TH)0-foOb4qvWiuvl`RjJ2EM^mS#A zUF8>fsb!wGD`*j}|G#ZX|I64I_0Ol5EW6$;Y94!~Nv`N+R2g6SgZ!rY_=oqo|NNHu zU)NjT|M9)xzuK1i_8;G8%dUES_S~&);_}DDP1;&p^R`MSwwx<5+q`S$-L|lxgK7<$Xt)*p(TkUt{@sdUtMilIry9 zdQ0A!O%uL*J8ha@KoMijbr#j@r+MWsADNi`uYLE2-U%t|@{4vD>^$=A_zU|rY>KaB z{ijDtpWLncgy~=G`kP{4qaj0nUgwL#dR$CUgFkd!KIkRZZP0!uC7p|VN#A(yw-D=T1 zy(_bKN$g|(wC44V>e$_z4|ZPL)V1Z?nYr%GnrnD=)rdM+>*;UI|JChi9kD?8fmlVu z#I!%(E+zYlYFI_F+)moVbx+dJ?fr$vTUFo8o))vfEa;5~WA?r4`BA$UHSh@~d|es8 zWc7>9ZjQPqWQ&(CTxw<^eye(qkI}15(>K1Et(aXTe(!g$3EAo{WjQF_-fCbY3oeY{R_9ny~>_04@x`0b*D-ST&?T*tlim`Q2I*=K4I zOHY_A@cO!w^V5;5EolaYF&pI0RKM}N7WHXb&MSq}o6m4fkorD#b%S4pp8Q4DH(Smc z#c%F;xPhU(NrY>Q(s{XkH4*-+<6q5G3tp0~$@VqmRr=D^lTSHIZ~ZhaQ8jJJp<>po z0QT5+tFnztF3-B;vg%n+wQJvJ?m&LI4Jrp$m?xJOI_iJ5ZL6{mnlAYz?tboy@5Q?w zEZF{OoAcpEQ`=dNy#K{}uknQWD?66^IuE>B;vT&1sH(G>ed2gQWK!ivi|uONO)l80fjvv!v9rnAKsb0V9j*H&!UmTRHeT%^^1HaRg=Z{w-di0#3j zLbtiKpI%ucUTOMlT20>6lAUw4K5h*?l;~NtYt!6Qy5%WTjn{bYt(~&!Xx!RWXD+;3 zvwK14#QZl|Uz9@g??>dXbxoD8GUHU6#Z|VZ!)aaLio9SiXLH5STi15_-ufQ3rCoE$ z8xfJ!qVhYB?AjlfJ|WO2Gu$+EyPVLv>6JySA75(t|2?JnV$sg3_0NqZxsL6;az&hf z!gc;j1p!|ACvpopIj4v{Vz7{?i|}cfo?yS<|3Y1{ot$Uz%;KKq<)*^?de4jx9zXZA zRxH9uq3qeS8T{KO)UI}W-LdCg%0xiDn zJK^BG&Z@{v=6|ORucNbj7sIT^kMm>RJ5|m*Z5^E4{G08<_OH4o1{Ig1s^3l1`#$YM zMqqmE>zdb+8 zYR{RBQx+ZgR3^^aShD%ktxF;&LO!?^ZM*Htb?r_@SGlG^(A>)(gdGK)IZimG1sQ)# zpSQ_;C0b zT3@=rn$6|oo4;pUd3@V{sVdv||5(nIE&u!^?8=)zEw^^ZsSDH}Dtq%&H@?2B-S6+i zRlh!0)p7);JK29~>U&;(w@WGbqWL^|)0bvW6t?yjVrGF`sn2oBfjj|`;tBDew_baz3_T( z&3S&7Z&tYn67&UplO+vTc3dty{`yGnk4M$9^7FTFoD!dE8T)G84DpMd%TGS>%JDmV z@bC2L-dzzX=lx_3eA$x3->$>)Cc5yBX#1Iuy|nPHOX8 z$scKosl6C+K`fbH`J<}PjSeS?YWF^Ek$5MGl?^X`HLM8e*?V>B3gNq7nE&T*iqHMX zu!?i{Bk%KX*WJIhX}=>+6Do{oB9k|N1xowGqtv^l$&eCaJ5tPULe)o4F%4DQD8jHxX+l&flw?kdPBBUmn`!>I&fPjgK^55u-q%IAH70D z*PM6Fo_9X&w5|U){pd6miNBIrc`V#A6H60*t$n~)ssB{x?MeNxr3*4otd7X6{N!cT z`$YVVr2n=#2_Fv|-_?vgFh!z=P5ksf`?SrUZEI4y9(>*S#rNROdgc~OyHe)6E9I@K zCY;MnJ^G5d>Mpa`ax^8Gh`V%g%yF4u53@`i8eVdeYG^<;!uJ_{%KJhx`uszRr-6t7W(l|TZf_Z)m>8O>w{a)gK z-u{cO&HKty*U#62mr5^tB<8#;xP1D@c`>ukO$z0ouVb%Kaxna$*~Mp3K{_+1pPVJV z)%w@eN1o+2n?9abZH~=9E3#jG^A4GJZ`WmZz13XYvaW-F*K)Bx6>4tvg;znl2 z7ajV){Mi4=;Y_T)MJ79@&*ZI^ZOUFAmp{R>cbI>c z*56id|0gfbFH~XP{e}PLOS~%E_5bY0`lz`YUdR8xJmR?e(*JOb`NRL^;{Tt|`yRk` z{FB3S;{z9;GPL|HT*rBh-M5u%{#@76?!eyb=zVCRboJ5wWS4}Y-JeJx+{X`939*}hB4J))Cdt_{|D;}$kOm%Y^@*7V7$wrkFMdhO0}vl&ii2k(oyn8nvH$7mMY(kb^Clr<8} zL?*c!-MSFBYyFFqvh%;q+IOUMxn&(~`Be7K9$dK1;!(t6i)gq0 zyj0%_N(WXwT6c|kt6QwL9O2%hqU_ZhNn+2UtM%H#sAAy z&u@=HVzUxXFImQrrX?I@I?Hd8+NC=S_t}OE&U}__x-?isxo(Qolc!8BZgcbGO!D7P zdoC_9;is)f>5R9+Q>26TwH`RT`Da4i>QMP2-zBC`?u8%zd~x2DDGh3Fq1m>R4^P;8 zBy;1Ho`#e?Ey44+S7uurnJ|~fA)AN)u94ZowYzpNyAi+n>B@WD9)Fj7Hn2q?5F-)e(C?8eP8TP zUGtq=<6&~W|Doi(>TeIC$}c}WA@oA?z22>PcQ>y8dr;2(*3*=GvSz;9;-+N2{E(Kz zl*`O%8$_UOYXdqcmG#kT-hVWc>5m1`tSd*xMS|Fuzx`s4rN zx6MB*{4#xUjCD`-spv}PrpAJ+);~o>zf3tDvPL=R`uj?a-MiPHW9v5l+GaE3Mdhc* zPaT?d{{R1WZ_Vyp6>o_-;g8SscU-BtsiFBVCKZ>1 zYK&@(UP)nLf3I2IKRu^z)_#NXZeA9RQ(?PS?^+o=b(+BMUTO1pa(ySeFHbuq(zklq z0n-h_=NW#P>DX*m`1`b`{~Qg|6ze({J+qVFGD$EqKB1@hk5PjA z&ksLdoGc7=xpX_g`IygpcAt6M-?#L?T$!YMrY~j998-g1R>z`N9n5;A!_EKs&_0eg zWv8x9QE`^ccs#@T)Tw69PJ_4Wc)XQbqM7Hu-+O3#+(u5xBjP8n?pv4i{dDf}^@ljr zp51*|IZgbF(ze_k8%*P34?4a5xo1P~vDC+%FK^A%mR33&rqlD{T&-ap``eQ#R<6y8 zI}=y4Hbno9(^NTrzjN6w{vQle9`VjOJLQDg%zqMU4ax0Ej#D$akDatXdT7q>W7_ks zvT6I=3AOuS$h(j4@#pKxa&PsnM0X#aTsT9w_IgWSKzZt))h!q5y?@GwpUZQfznp1@ z+rRre@88rq{eSoF+u1+sb^ot_`hV-6{nP$m|MWlVU;OF+|0{mRd#$nK4)L~8DP5W# zILjwZSt(EDx?Y$0zBP^)7awRho0(a5mp^b;(zYLWzrRZ73$A_t%p~FCnaL|3l)ujF zjIZrK?dtfyjzGWsd5+il<-8PK)ZvSufnS zqxIMn?Mv%-tM-Lwn|_FWVPQ8zJNI<%=l|QE{@>p6|Nh?nn-BcYf4}DM|7(B#&-x$# z`G5Am`m_Jn|NL+I|9|&!RRER%gI>?^(N;VQKm(o%^5 zcXpUX^jteVr^qrTXJX{FQ?*+eDx~aoe9nuUWcIbL^RC0^U##4Yx5~C#_-#mfBAb4h z`Ov(Fzh7-qHhoy}Xw!Giz{=3hRW@@j-dn!)=Y1{Xmwy9hmgdiNi8AxN*;}gc?FE~| zp&NR_v)?j%d9OWxLu#9qhL-9LR?YXzCS2s4yh`=JsvzTSQ>He4wfrQ%bmpHwU+k|R zso!cHJ=f3j|M_q4tp5Lx`WJn=KKp0B?*Fw<_iz2PecJzj_nz3NI8Ag+dZ~QQ`J8s4 z%-8d(+$Kd$lQdlSGPmi>njGG_0fdSp=}_px{PZ9O-;2UZC_O`QL)^1S9uzx2tTY&M+F?jK)R zp#J%v3A3A#>^+6|lTzxo=NqeNzR{4G_i2aUvwA`Ob@gi(`neoc{lAoXiFCQqf9-?E zycLy|YFyLgydKO_cp&!aRz+s8nPdoCxv)o(xUoAym| zuAtG>^~-kepmx`^a-D-8{ z*Uj}k-~amVT48(U=a&8JwaSt?H%dG?+U2X0@-KhcM%4s`r*G%EE-||u{w1Jxr^q`m z%}5u`RTGx1`clyqf9~hzRoXYcho1`lb3JawVo#F;EeYM5AG*#vw6%G<##gn{pS#!- zU(EFhy}@d`@%zF9&I`UQ{yfQzGvu$1@58E>yZUoW0?RbA((_g&1*z3MoPKZf&37x- zKfRyLx9-UetNu%h#!vqEZ0Kk^%)%<3*{6H>!8zl7Zy#=Zef*1;x?Zio?9Ky6tDisd z*}J$;L-G3VlO~exmn*gV6I+>o@cz)QOOFx{v}IB`-Q=}n>c1Q-*Rsy^r(asPU4D^={oPMn zt$eyujHOfsQ>}jQ%A6Owf#+4-;q$Y@*Eug){P5X*?dua(zA>M(`tJJcrqm8q_fU%^>_>14-prlP~v zUq3&dyxf0xf1FM2$5p>yojmLuW2(t{%D>^?vO2b?Z(pALEKGfCz3tX~|Gv2YH)=os zdGb|r+UBz3n)XZ=kBh8W|1@5uuK4S{+DOTDOIA0jz0SOuy;X+Wt8db$^qq0c?A%xD zg?-(=p30sg&ga2iIQLY~l25ZX1(tR8&rQ1<7be1;FEu?ha?RZz)ASrdF220}<(u@i zyr%ZaTVvMoG3`A&!NF~@fuzg^&R0Ea1(zau3jw=W5+x10-^E+r%Om(S|-+s)e!&fM^A@#ic3zn?8xG=2Ge<|p43+}0bo~t7HJRsJ#lH2Tn?6XMjM*2Tm*ps~bJJ{1 z=0XIrBa1)tu%>#?_d%jOPUjsMoSoPtuKwrWl)ezbApuI#9A%@eY! zmw)lQt@rYZ5Vz_{p6Rx8{nX~FhKkrDn`%p9>}I)5SG>354X@vg<$(bgO}-@xp8iPZ|>ICH&55B+bOX%@;RG$ z(oXp*rNi=V*Tj6)7Vm7T>-Fw982I0C!P9U{*@W5AoX@7EvF_vS_IkbUp!nNI>)%S| z%=_T~d{VL6vB=j41vDyoQ|cdX6w#Vuc_?3WnTIjwrusEDoU7K>DtQSP#4~C6FG$JX zdN}*>sZ+)mcxBwXFWGplXPvry(~Bt^ug(7d{o4O{#jra~&;Mur`hTwJ|Npr3>bICF zI{WYc`-}hm50&99`g|aP>xXGt;oLjNUiuz9eEIrLt>@iJYpvwMKU*oT3M^Xu^p#8_ z$24DdPcOrDQTOdm7JZ$&{@t@*n>jfWXD|NIGq)<@$*m`^SI+khuF(uDe`Fi{OZMwe z(|^;eoFu=!JXBQFdPRKQ{g~<_v(?1{r!SWJ_SRcz-><(ukuj5x)TAzaly+d6v>Mm1XHj=TWkTLhh&^LjRV$h$ z;%@06uQ*eHD`ES@MzcRfqO)uZSkJ$|5}#nFxtBF7Zh_4Tx1`^{a{8NRZd82tz^<=4 zp#ArfDG6sAXU;Qurzp1KQt?*yr^oo`hQ64#L;cDox9HLZYu^lwUV|GwLt)%x-Gulbx?zdmTqh0|QhqS{wJ%7wcv*wd07T>bY^@ZlfU-wxF6 zcVq3k`Y74LYu+PaYm3CkPDz(z7fk=~w35kuf}iN2OpA&edum+kpJm^@^yT>W->;5q z*y~p3XrDyT)EFSXI9B}94JgQuH1V( z{7HOYwB}^T{{r8yW__-+m|niwxN2V2{8c3zPd%FbuujQC?j`R-*^OqqvR$0cs%~Xj z@aaj*Jf^VDuQHRJHg8Y7x+NoQ>GxgXa~Gd|awzKmojDU^+-9oXT+_9Ao6V-&XCF>I z{eE=f+0Unp#irimTd660OLkYt$ri52!!a}OA7i_Bj`>nW=&WrMe|O(Lw$D25)yYF= zR=?wr-r|1G@w#-+pXI-o>@44|=v20l?Y7M%#-$S{`U}cbJeGWL&v}`4e_r_Z;+OL> z!}l#%HGA5+Nn8E?y?6faAAV=;4Tg1<|7-K}tGCbjpZ@yaH7qp`D4#C;H@~Iq;Ysn* zE7uz3K77=#zxkiV_iOyh=WFZ_doaEFx;}K)>t72mN>BIUuHUM+#jRn-%!v;*8asU4fLs(RlO)sZ2a`gb?rT_OYQ}> zg!BKOCEEI@YF4k%zqg5Ill(1iXm)3*rk)La8g@Zs?Y0wh6V2JS6*C&{nfe3EFlQg4D|b?MVBPt&gLxm@;* z$?@*RCT0a+EkEu3_UA4g>SZeIl89ch>mc8$;x+wkt7l(s=japNVDW9o3CZiP1Y^%W zPzZJDoc<g3JD|$WsP;c&6 zos$<$XV&i0wb~$dtjhFs-egAi>?I9O{_VD3?EEh9ar{56;VPZI@k>kapX`=E4!aeF zYE4Jti_3M3D510U05`O^V8CZ-IMN_%sS_}s`?|xtGf}Yn>Ta*-}%4O=vhrk zE4Fa!d@->Lz8(GLd&;b@UzV>en7;3+VTawPx0Tb5G1m4jJFJ&vD#Bp>J1_Zj z(&D9j%MX8Gx$*qiO`T9q$veBU zLsgZJj>Xr~w%U(R7VI{@ExYmM{osUb{a31sSp=9RLJpk#Ct}-hBiy;X&s)=f@{P1O ztlpCC&|iN^iJ76My#c#hTdx3ele( z>W{1`>fI*wRQc-9WtvR(ItI&4Z>QR*U9+7daBl^#!p1{tlAM4I>8f5 z?`~VMzE97r(2=p;W6eI}{hkLarz~!AueQH1KS<=iQTGScDaXove=14Ndw6@Ab)))+ zhbd<+U2{FNPwnBtCpVS(w^dwtP-^<|{<1mVO$kd1vo&7MWUN_fDcqNRT3dqkyF!hp zyPZv@%|l_EJBNhAcCOqX>uab}y8q(Mth@Cau7=dlzRkb;OXCHdr3Yo(joxH-ol>&M zysycS=5=$sbo#6L&MGW1$&(x&`t4Y{k1sUjz|E}o=yk92FO?T?*`H>%l74mY+O@0q zu1#C8cgKzcjJ|0r`ffixuX3#@At5@p#ABk%-Pp5HpCg0+6x@*H%TigXxj*BqzSmP( zz2je&)O@R2yyE{yhxbpXUSx90-nw$#g8Iu36Y{*DM_846zbsuAzbt@lFN4a1{R}D@ z&HK;a&GXU!*R=3kS;p$vr@E%wqfV}tELFF?&n^1OX+_GrDQ8w5d6~j6_XcC3ujyP1 z)jajbZ$-AvHgaccIj>y`IZRvcXWa0-9U&jl}Y=JV;4nyok0&-JZLZwR#(DBqc9 zKl2;o-St=QuuJhfetj!(C#Ii;Sy#UOU$w%)57&EKCMUj8%~6|wz+%>{eD+Z91NS}(} zMo6aeuisz8dC7XOWo%#FH{U7Qd+R{pC#ANJvqi4>t4Pnt-Y&xX(0M_q3vd5=iw(OT z>Sb+swWx33iA8Uf%yHuZGHW$9)=eBJA@xu*fJb4b>6Aww)G|BWW%qw ztB>#eRQZh~+|}f7fytRGo-5@10^cz{+$i7vj`cUkCYRCO(imf9v3_6`EwsP;g`N5`|c>~2G@?eY1`Cg-W7N%F%?)} z?q8DfR-mZhG!2~p11VsZRX_; zr`T4OxkSahnrpIg_w4WAWv8Yy>t8VuZaCr)-WYkYmGfTZLq7+F)OEZ+dfqkbo&D7H zpiRhH=~1oe3BBNm6Jmc3d6cm|5!hj5C;dcvKoH zsJqM5%RH5DQh0t+<~fPY{U;>)CmHSz zm8$FEd#`cqh{5v%|K4bv`NvmWzMJ8~*Ws7mDr{ESu-?_u_urCpb{{J~Hm>Bjqn)K^ z@^gtf)5AkH1yUDW_{9`CcAwIotB@7*;nP!3v2ziRV;e5*zbj-RB4$2uXW0KQ{#>>N z?1n-PDyHJEq8m)-3eC(2{(g9N`o<{_zqcQ>TO%DQ_2=#z`2`z(b!FFF72nnWdWrv^ z?c6VFMb6FHZ@zHq9M?xmb2ckT9C;b4!_~RM?+WWPVbzrqp_h4UMwXd1m`55D| zr?zkSpDl7`zb~`7B$Me2U$;^3_xF1DqW65Z5@;`~*`4lX^kBP!pkj*fpWNk{+v|7? z%FP_ie9dKqciuW$JJHPJ$T4o0obK)EQmPwlixd-Cx{Y&Pf~wmxZ~gjpZ0@9;@lxRx z88*ktwR8D5U)koa_50nYz3-MM=}xcGHA&w);eG0=gL6L#?f)wm-V)7t*G;+PVn9;A8(f z?Hq4~X~M_T3SO%2I6UP~U%AHWesRAACP}i+{<%->7z}*ozCIAg*0z1a^kD9pr!#$$ z<}CWIJmbZOr(MnL|BkKRhN#idIj!ON0#XomLahq1^v+2(o1I4o5 z_OFgP_&8Zqg1s%UNQB|j#kq@=kG?C=H=q6{Ri)nTtMb>BL-Ut7z3AU$W44$@LzLZr zbDc?0{>4B!i^iIG))m{>?COJkEPiJ-TP!~7uEpc%;CFPs;%pJ=gND-&N`L=gu|#KYlJR{q6sa-~LDZu3z)l{@OqJ?En4JKk6frvwsLZZCc!N zg4Iv*N2O5UX}6!#UU_dyy2dkYcLKlQ+6&9x?7g44Z+1-I?!(-A(pkz|B4+Dmn% z+eguwTkdPqQh&3h%{uTs{qeq&@h0A?p#tCgK25rK?bGtU@142VbE}H|_HFwaef;mW zhxxbPZO{F;?Qz}hhxxnTnSa}{^G5Ohw;#9vez*O%+UM8T+SA|M*4e zlw+U6?>@8F)>&CkcO3q)?t4Y;qt!w$_D^|O?|ALhW5G=`kEW){dPu!E)0&fFHv8LS zvE3C5cZfb`z17@cv|!%PWE=JQ%Nr*1{;}D6dVBM^ZxZoUb%%G|da!QRxl1v!wsu$N zSABZ9@UO|mt&{lWFM9vX>x+3S^7U1gkm$1Q@$VjK)y+J4TVFbLKKnPtIO~S#G6!6h z;?J_yT$SMItyR0{pcAZpEOtd`lKz$6$NE>!CL4&f`CI5Y#9n7x;j^RV@ciA5!rDiC zYF3Hw&UxltV|4bxWVhv=HBWUWv;_Y3{ure0IDc8aNdKZpsk4RJE9ToA$>M#z`CiGt z7dz^6vSqx3-pPkjHYvg~tS{P(}cd0DTm zJg)n8$I_qr!HX`1T&`OFc&p>S&*9e&tTXS9eZ4X9@v7c=KMl%n*!?m%&i~m@_`^}l zhV_pB{Mt89Trz({!J?W4ESfv*G;-xXUr#^QylH*2=!DCgwqN$>d$9ZapS3g2WiESD z=-#DP_+^8_W z@^W0fW%zx^rZ<8wnJHkHLPOn(jS+PH*OMWYtPYq2soiZ2aZ@}le1x-;$Ca}@2Kr~K*KbI-j) z;)Np1{`i%Kzc<8etUqz%>v4q%PM5>3zin#ZXn4WY6o2<6KwRiDqQLvQ!#F&ofEswQWHu-#&n!8ru{HedT zKg9jQA9LN*XbBcpww2nE@pE*5!xnHL9?w+u^Qux~0tBk6gO7Xp7ZW95dK>BX;h7t$9+Gn=Z_# z*s>>5#-hHw0t1lIjiFnf{AX_eq)Yi$w-qJ}&Tbk@F|>u8&XRF8>CsVDs(Wshc=JoM*c|HYS|!kKEUn0=MeYpI3OulKnv>s%L~tYi_L@b+cG-Gf)v zk8Jf_JnMkjiW_|8{~ehhMEEf@wtl)VGVwy#!oF~38L2S7v%e%ciVnCQVrSF%Fo4M}<9KL(j zmNn%5o@7`v$E;VSVD{uUm2Us{JP?VqTKPNwm1)O|U(6meViW{#EMxDiFX!8>t1>C^ z(3Y>^>LIs(w0(Nva6S^GGF|ww~b-l>&7~L&3PzJo zpKz(q|2u0ghwN;67x;;hE6(j`<%+502d0|-%egRpf2@0-*OR3xsZ9!gfnHTD20Wpf zpU(3h*I2VE>$F_OJxP(7njXsxGka&PJ+vZS`anx|?iSj)^nfU@lleTHT zV-hqJb1`x9jV`m8|4sDh3(HhlP3b4C(a!=F@Bi5RNW%7u`JxrSZ(k48c#+IhymzMh z$HpoP?Jk|SNjo%mir)V?!Mm@b}C^Z9V{#65qEy3=#kRe$dmcKX46=81nqi0HPgMQ@~|-a9y6FW9xyb5i-^ zk4t8(j-S3d*W7u(nP#=^{PE^)`r}i2rwdc3?|9HP!DvYr zdzDUTsefXCzHiXq%l52KS-6^Lw*8cXllAp!a@lT!1)L{Q&?xnqQGqO*!G#K9x zn|;vX@3*?2E?(_>6+ceN`_*vU^7Fj;v#!09Vr@9@#J%d;tGbU_zn4T-1eO&j*Y-TO za%h>*m|v*(K>E+Q{8#Vv%LRkP0$)6yVmIm1;j61;e%!hJdCd{&z}uW#OC>mdSv^?q zviOB_zulK7%mPwBt}V}3wfbUu^}W=_<1RlxYE`o^b;_IAtiKpNUBbxSI``z~<-6}^ z?q9!E{NDeV|NCpqPS~BxQ)hay>wEpS?eFyW{NKE}?|T6 zo&4z8CH{AfrL7=?P^D9x>!YVf^OpzTu`~ELPhTS8WSE3qK=>Db<0G@y7j_@D?+I== zDfna}M`yz~pXAwG3jA|fW_n*PFmtI5f9Tb=$|34~Huu(tCXQ=ko}@kf^X!%M%r1|6 z&Or>87ae(we>O}u@r_#Ytl2+VG$Q9uZul?Uff|DDyTZs z$g(<9?AT|)%38nLWp*9Q&$hmJ`1Q%8X}>OPNz2In=yow^%9kWDci|7_ed06!-|Sm* z_3F7DCfYvL!e({>VzNQ+zoxUURqp$AB)Y@F`@tczd$mz!zq~&QDSLHKUe;4P<2dW) z`@!51hHBqK$Z=B7k4<0Goq-I$}ee-u%deb6w(u`)i z-1ywXe5so|vvtaicIPJ6^9Q81#@p?Pw>T|U^LNLGsV;l^r=)eHTE7-ysJ?h%L(Zx7 z@(-^!2OZ{LZQ^sqJu{=Wfg`c-)$N9Fy)JiyZ~NBieQ*BvqtX7AOX7x>#>i~<^`##U z{(a(cfYZ(AAjkinwHqGue|gAU_u~QQ&Vb1dA8zMIq(61N+j=X^=}OX~zp{d_I-12y zdEcC07CdGD&!tm}uIU>72q>Gl>#ym858rOAIQ8E^p`K;&tPPvyvl)7Z(d``~AZ_Ecn~`-O=T< zmsy90KgiK@Jo9D}_jcdEpY<0qD%@+>SpEO&vscoy_3pm=zk$cf>bCDgcHcU#Z>^zZ#v>uT^g_U3E<*L<}HGm9_(@DIE(A)n!1Y82~{BZpSC&)Ko-`irvU zL$jDpGAS=yWOnIu@nP3|)!ana9WPF;DfB9YXP22fN zbL7mJi~eM^|5%W1KfBPbD0=U$?$)`kZ2u!WDkWUERL-Ale4F8iYI z_=4HJbz2O4J{wCX-C7tSyPALVpXoR6{&yF>oYR)IBr;3M)(E-zkZ z9`m6_bnzAbtKSz2e>MH1JBxGHnJ@OAZ?5Rz>Pg{n$z>`(TfxNg<(-b}!~OMg{=a`D zthv|r#lC&X*^m`aew^p5THvF^WA==%PxPFg{(@$Uy&lUp+$&qBw&C}xy3x5%~)?#ZOf9k(v zh^oU%KIcdtt(9l%HWhuEeDuMLq8y(7|JH6t@9=Edvev)l*eeybpSihnrf&Hvux`WK z9v>Z!&!>(>AFMoZz2N?dyv+)Wm!6oM8l;l;uc4~a$i;Zat{dvl+5VW`Gq2;5$;(Mg zJyyl|ch8I?LQis)stwHCm#3J{WE1L{?DJ{eN3KGpjTgEf9lgl?_nS~9*|zR*Bgst``>oS&D}BO)!Yf@ z!s}mGuio@t!QjO+MbW3;4q+p5?Y@td$|m_2KGW>IcuU!<``K-` zYxfeTuL%0p`?|gE(@y66`bP)6h4N}=n${mXFn@O%?>qfn+v6+j_rH*Wp9jc{P=BtZOpJ|gVn)q@@-TvvDWxapB zi@E=uS7L&60iXWYhjp2KPsNjER~`FjwCC`q(Es<&IR9N$pZ_j#>fV2we*a$j{mbch zkEh?;eZRML$HxcTPdm?1T^Ue+UaQmi^%N0hznncExUG&gANu_9^2XCnJLdn*n6O^A zJ@A>FRrod!MX4rRMN5$a%NQ^QOJQ6D^As!`WXdz53BHBkotu%C%uLMLVox znEq?WUNJP{oGbS4{LY7`GP$%xm|`xh)V{HA+ktx}dKS01mP>8_yP8+=R^V;X`(D6yhg)`=tocS})&Z0VdhqA7s<62>FRqC`@ka^U^O-Q!nSGXIe*l=|@?< zEt|gWHm_C}@6C*aF4ft|TlcnBP72Gr5V$*fQgroI!EM`BRKL9nZW7zQdi#xKu6Gt3 z?0a=5N61tPXuSduv_9|Ik-QMIxR?hpzwFBxlQPk#}8e`&F@O(2u)FH_H75J0d;Pk(tvk#1oGjBy&yM6b5;}Y(jQMrh*U1vv zhf1px*WF$hEdA%}%brew?HONw8>*FcaGgu}dfe&Mgq3RN`eID}zL+*U;i%Q(rAPYW z0|H&I{0Q?sQ1PI^@Qz)<58?l(za5%Bw^e`lQ~iByg-d?UOP&6~;|5c|=l9==*B&M; zbckqa?h-q~B@unSMIWi_`i;0tw_FhPq6J?^@BaVaXb0b z9~GSs;SGEzYpwtNv_JdNy*DRp>b@J?zv-of-n7nJJOB4S{ z|2oyb$apUDH!*tol56s1bIRAeXuh{S{%gDKTifPKXPR)<+r61Z6Q6KeF0TzQ3Ouf8Fh$;5+-CpEz@wYC7By;L&^(m5P}qNKtIq0h z)uzu(%g=kiy7A-7Zr-wr4L>W)esPF5*cARzk>;)XSW*#Pe*5w9*vqMB-dvn{Zm9K?nmGbP=nEG}_{;TSo_Y#YOv~Guf ze_h>jJ9Yg!$r!_PY_?^4ziR#cDrWP|Wv zf4$K!o-;Vb?Gcc}Y4@~3t3`yTzxgkQhI(BQ`%Ijs9H@?$-AF^s13rkkTUq+L2 zjG2L97u7TCO{9;!@}1aoNPK;~-@@XJnH#z`KHp@XMJ5B{p)_@wSB!$`RdB1&9~WRv!>$TzTouAjh}ut z7hXR2zW$$8DZ2p6+2eCB3BJ*p=eV-$tmd1FuK9g(`|IK_QSVYWzpR|b zTPJ_=qWq#~b*a(^ik|D7{cKw(`O--G?2H7#?M`)0o6j_UKECaD`_$eC9uX_qKivPB zeEe_n_1)d`vh8K^Z_W$&Ew;*r|Nf`b{L42!iz}`xn6Ug}g>+Jx^$$Lq^Ld-SR4S!6 z*;hZdR8xPIq^5e@lkYW>x<=|Pxg^D%R#MWtqw7X|Bl3cS5&ugIb2Hrrb4-0#?wZoDhDb!X2< zvvMx0+t$li^410SUd*$%?(5n)ohR`8mucFECh-2vo?XBF?1uMgo1-$hMV|`TEOwqS zw{-Evj58dpM*Mt_wTeo0PM20}t?D{1nWk%Uk2Unfwik!$55AuhCQ|Z>YujtCvR7PX zuerWuacOaUZIWkDeOG?>-`DoHpW0>LJ0I6r^W<>Z&%=H{53dWns-N`puQHcP*fj(1AZDyE9 zT=10*E-&|3Ot;z6Bv?`wpI9JK(zEfk2k#_B+t`CioI8Kp>|V$#e`|5J!B49bTlcT` zxY?BZBJ$E9$>xel!Rb6pL|fN)+@D@qc>YVzg?+ygje5UJzo=oURr*;N7j9&4zhG1L z!f8hJGyNhjvff=6B>rp9woT@-?v2~_TO2(f)Bbtm7Mb#h(&l4(_DOFuJG=H(4~HthX-a`HXYpmnYe_y9(td zS^dz8Fu88JQOLH`Cw_0$mz^=Z|C7^POl|AiYxxhJIkfcSbv;p+mw(P^bZSeR^}Q9^ zbIf_|@4bm>o@V~n>=<90J1&G>osNqzl8vkOupzH9FCs9W8d@p9{( z#oU$=)0ZbKt?n~kzfO4lKl8KynO;;>-;7^(_W#b>|8+nAPQSbN?$_V?um7MRbCIL} zub)i#U%xWQXvWn$r=^x3DVJ>gt+=Zp>bTYCzZ%+pFB%!WmT}a#>MvgDvOHmv=k=r) zFB~;q)+!PM-#0hAQm-Lr-?CW3m*KP2x#lbX z9ZR>AvNqo7<+5b6Jp1HswS95l3c0M+vB7Jq6_vAMmo9BRyyL~Q&2sVj5uao>3++1Z zoqm-2*(KN8RTKY69Xj6T5D;hQ@GVN&!@_Y-!)qn}#V37*(q!N@?a z0O_L@LQMSI4$d+%&N`vgwC5v7uEvJx_iK-oMb6)SY~|yIL;F|rzVOc7H}8p;RoMQO z4_j~D;b_YG$A8}G-Tm|byY-*{ul>2-^#Ar}|F8YIKkNT)-hby;oWB?L zj7g>T`StD7geH_^AI$Qb-@Dy6`uo#EZ;mK@o-2`frswJJ>#G#^FI3z7@{ev*{%dW% zH@$V{-0^!}ANsG+;(2QFp6Y2!A~;mjLps*T9i89%*zix`vfWx~m#3^s^j%lBOz%(V z{Cg#;D{`0J|Dquyp|x{!y5|0dqxn_lewVs4rts`K5OP+-_4_eRBi)Y$eLV`g#@^;< zZhhQXIA@X1mBJ4vA3i=Bn?5CC-n{F6S|>gP1&Ci+B))6q`k15tiVQUwd=+hEc#Xfz zsJWRl$Bduv#X{|`Jr;izKb`;W6{q{WUGC}Dy{CN?xg{Sj?maGO7wJ&HQt6k3u=4zu zSziR?FO@8xoYN)5WqVQMt=@U#yza@zzbOmwxjb;_n|Qx%$@Zuy*)%6VTHG9;SM z316&x&T!D=y_<1~O;%0D$|<}jH^^)5-_>T_xU4looq56{Gy7@#RGj-t+!f`1tiI(U z@8V-{p~3FSMBDtD*v%)U<0IYncKD=z7Cy1W>QmEi-shXMzVfM-@V{$VQ)#U|!Sv6% z&#`;0?6*~DuWnBEDB;e&aPGz~tAioT8KFIMJ@0Z}&7N^y_p4vs{j7cYf-5t=ba*K( zG-a3Nn0b5M?Il{Ah2CfQTnb8;m#iuB-E{6pp|8U_Iyit}<# zw$c>wlMZ}~UY?Lqo!7eTTGieUzUqROJf*XpHS&Ej8d=viy--a(b3-&>$rRP(Xz^p= z5naw(mO9m3ov1I%+df@FxT*Wh3~NJvW2N(#?E5d7$Y~bMJ~^>)CUbM=C#^|E5v6j+ zotiAZ+kfV4^ZK&+W{Sw-`5bGRzFC{EcGX&+yxwqchw#3l=`sl|b&n6PD+u5Apg8#L z`_+L7LftwsdL^HGn1ok+Qn5Mhb}al6Pp#Pf>=zrJ@;yJcnI)tl+9;E`=H+z1$)2~| zm`yc!qh;T&4&XIa*9{H5ws6z3TNj)aHBKGgSXz=Y#asEe#?#&3ckl$A`qQ?);J~c+ zlOl@}PZeI4zxVo=ULxnwKP8uc2)$p=R`*ChX-7_u4cnY`5w54SuZVkg=W$s{eSLn& zUc^4<#>H31w=WjTzHZUX_rktm@7ZTge|fj=-03-C?dxN$j*EL5o&@*Wc9(CJT~V~| z)#QcOf9ki#rGGVD`}Xkv8QV+qZY~r+=-FwvNvJdq3*`_G|yweys;H zzjwa3kNYgvp|yA4!dD^ntKz;d7n@qY>XD;>;1Q#T>-8%5_>#*X-jd9p!+dlHTUhFH zqnV2e_B|5KZao~t#yPDZW8*om(nXur>YkjmV*aMvPKmmAa~|)m+hvq>_1wZO57Xvm z%sT$6)U-%0Z$sRBrlS*zg1VMj*%wR-cv1FZY2V*)pT*6WKWya^w=ns$ec~VEeNhY5 zA1?h}@pk!_1D}f2c_Wf1TRnP_eD`0eW_J7hgC`j)c5|=c+Zp{Yuj9q94kb3*c}o|b za|>xSdb)>UUzpprg=^amF50zBdZ}OUw`s3pqI)l$$XS2k_P1%bA~P@OZmrI>^|C0g zHT4qMu-9p;?K|BS-jREgxqffm8;~Z!e7#QcQT2zlkKQVL_3UR~dA`c_#Oa>p#lA1o z^(3eM)9EnDj15~p^Y!7N@~w($E~WzDVcmFYyz1J1&ceAwpDr@ys*11wmjVsGv zbFI=8RGqq3=f+CubomrdBm=6y|r$(%oLr>E9+)jK8W9)c7Fk9;&MfC1-rPA{Yq~pdcMhW`Fe>v zw2T}&`NC&EUhgT{`)xTZlU#_sQ;=_|hI`@H%_>`YtsK8Pt8V4p z)_khx$XDL7rc)sxs`*vP%F?eppFG+Z|GzG`R&Qs;gX{GH(eu6a_I-R^9~}K(`sS9k zm)7N8eSa(LYHZ-t?Cka;rS)Ok?=HJ@cy(x*CL{Ij&f?y=@XZPi=W7$aIy&GGX0 zS<%<;*4lL2w)XSnuC?g?J!enFq%uB_vjYbG_eJkFg)b=Q z&Ptt8E_y0hGK9r^^8Mx?Z?1n=xIX7!THZ1SmFFY?qK zeO}OHyj`pIgVz7U8@sMoriFFC&wls5p6k2#6}#8p7c6_hn794v@$|_$=a+TN{_$Ev zTCKMF{LKv6*z-I0=skG%s9V3}s7XjSfBwadi&FmAm)2B#dGljh?wRXH>fgW3c{}yZ zf9tth|NcMy=gz#hx;t!VClpjK`@i7a2mUD!gwsmB)BZ=dUDciWr}?(=5BAV!|2F*P zWUGJmYFf|V{pL69&t8zfGjFE-4qN5_YY)Bp*5M-%ap=IgE21il*)6Y@oM_zWQ|T^n z@I<(f-!V0-_wU#prC&?hjnDv#_9&&wrTjV#NT-g=;DE)VdmWCGlHYK^FBb=#BzYTXe zm|qH-MG~< zMIrQ2Vrks%Je9|hjWhdav8YM$Ru?DSyI?v;j^~1}@-Lp^1#g#BJ?98)vN#{|-kqC& z>F2rI+U&k9SRU|G*5%h%dq^XGKQ%y4@NF=L)iw>BVa(X~ZzSbDpks%Fu67|IYI7FU1c1P}&!qq1#}3W8%T! zHqY+OqBHChI!(-9F&y3fxiy)A`J#23j6TEV+k6kT{0vVfWos6FRb`KP`*Z2x+_@bTbBnVS6qaZFMN*iWrzH|TUJKQx=?$lv2{gpNDgHSlk^ zyE|d?KXneH_hAR7%)ThVuRbZ{T+ph_o9A5`-nSi?e?XxkTe$H+v#C_-bjui?*{jU; zAJv(4G(X_`sxv43hP?Z$XuG#3+Me7`emdoRSG4_Xk!44(I!%7?L+eoRWcD&f`_#?5 zmCqgIv=J0n?wHg1&`hm^)x|FQi+8zE*QE@u`pa$K9gi)sZ)$UsI{B>aLi@K3lP^f- z*f~xY-W}L(kj!IkC|`2?hwTC#p^ziY58Q3Cg==p9P?9@4dq*XIy7LbUMoTmPJ!cEK zGQ18jJr#P<+_L0I$m;y!e*)ir9^T)x%(KGmD9`M#Z@z7hYADX0e&c<<{e^ae>HPmM z^((L1_3gj-&;K7E&d;mwdHv-7@40@S|L*U*e=qLz|M*AGci)=-;N$AY_IoYs{{4FC z|LVh+{^Rak|Ey|jKRx=HxnarFV6i`$@pETbv-rIcX}x49w9&Zeg6cAxR-@^GdzVWp zCAsd{xo@q#QYp(KjXjfF#ENp4nYRCa<$KO%{+*pgy3;KycV6-cD6UXg@nVK`23Pu< zv{^|k$@BB#C+uCY%Al3|jd@_$qRAi5#x&j#HIsEO-ck5qonsPy+1FLVMg@{pGTn+0$H9-h%{X1e)?3}V#Ziw z`{`9PkENG$vJ|r1wTyoAep}3ahb@L;d&I@3?^v*J#pRisFWp&lv$*A5#k!KVOPAdK zCYXzrF{M|wtzli*yZdxWr80Aq;-&+I0_TI}x`iI(Wz}&#Wj%W{BCMRW{3I@sn^t&LZ}0pS(0bZQUiNy#07QllXr| z4z)9)+aAcu%;ugU+xEdbZB;ji!FStq?F6%_mebihEzevviL9uw(0=pp#K}aq_LQJd z7iTZU2@34JTAIw2%E?Zm=a%vPR^OwuCTGgmh9HJRkJt`W)_yOT^40!XV*R4CmG7M= z#x2u1^{~(PaiB}qY@7KRZ67ZL~hjSn1p`RsMZFGj`{sd|eVY7WUhGTw0f!&8nl z;pnZQJv%KL!sQK~V)wom#p^JP-{N$yXdlVzv&=+E+t&N}3s#&k~PQkIs5Jg1EDK4#DJ6M1sg z3o^LhupBKA?2%1a{6YPC{pp>GTPj?q`(~Lc1{U61arj)>}xnu1pkYMhvFR6B??GZihmU^@R>%jVT8miJ4-dLK96d3U4RScbKj z_gtWU%af@h=FJvOjpsWHKc%ERWG_mN?&MH-wlBlw<(){kx^>qXmba{9t8y%ki`so* zw*CC>ZM%g0*PJRfSm0v2qN7tSP+#)k{5^)eYojEJAJyM$Up7bXd)VevorXm-o~gw@ zQI(kHGV|ykhACMK0$W0-{FA=gvaCn_&_7eX&V4ercBzfC7ge)4M9i3?c#-X;g=F#h zGv!>T+y0*LZEs02x)|jZlXNe}EhIuPV(sK*dTKW__)gECbJ$Jq73b8`!NzHfhL#7F z>%`YRLl)EJiAEi3q@Z+b~$n(g*qrk-XlC!Lb&?(pC6iICA12`iQq^mBLk zbbLko)5w_{1D5hmu?gWdx_#h(1J4)kIE$r6w&wx|^o+KHIXVhV6S!(3zGAf)Drj zc>h^`J7~H3$C(GtPx>#v*UHYSvi6tj)BkJFee=8dZ-4Fnz0>~hKjQzvUn!I(nlWX|$&foW0pPsC?>Am#dyjl61k#@s8fAP@54^MNMo`~$Ya+!s} z`+T%*^XWe}o$0Skew+5Cy}qLuANRlf)1NP2A6{M_|LxEFyZ3eH|DU_{-+S)4|KCr0 z@o9@yyQ}M??MFSn9KKYRaVEj?h3k9f*&HG}U)KDedyDUObYlB1(>6}+CWh}nI3Aa^ zolp}>7G^0wR9*X*w|l2(>Q=6I3j&om{3cj4cWz>|Ibd?yL+aSakEy21m5K`&2MR2h z$=c=;C$@7!#<^=YL1%WFnlDY-kh6E|1*w$3GoN0ri&)t25VcrxpFcnIPTL*cjguaH zJO6*NxPHA=<-aH0^Xe_Wy>0!xe{0?Ur`>o?$5;viIaG~8v4Bqv97jtTV|Iu_w=DR`7hYSYUX_o|Deei z?^vKEDK`Db=ghD^#93ywVuEBZ{L0W zUi6gzW!Jy__x_V`?8Wk{OR`Ioq;wP|csV~iU45vrJE!fy#fe=h7a1eI%()({a%maM ziLDD42XKoTva*FOSbQ~v_gSXNGyBFVt9h>+GI-0{bXu$AWu3A>u36x3JCpM3>%$da zUkgs^eVlOZ_->t!^^f-5Xzcv3@KDU8w8i_mU*`Vdiz;Eg)yOm}YNtHoJ~o@oZISn{ z8f|CFir@MEK;V+DiA^HTQ-tSv7T1d`tW3`Tn#*(b@XlL11Pja(iV6+-E>4|xmNmk{ z`(@j)YVUrD$`x+w`U4ZPt~$2`>Jr z)GL*@?FZ-HHCx$lcj#o;a@LYLa}EmD+MK%3_St~BPH2^#bx79g%X#^^+qQ4N<+az+ zmgkD$fzm!b#tiv}=H{+sv(iPUuG*J$B-u)o_q3)ID*REf>&u)mZBNvb+5Yc@Qdmun z?dCY^nZeC-FSB=(?>6h+ldHCNoHA773-*t*<30Iw_L6gU3=11HU3R`#ifrAS>h$7C zkd1qBxr6SP@QZs7^R>QjPMA6QpZ9_Lh6>u(s(hR5coptRGL%WbaJYBgQ0k?`o*$g+!b(fqxCsCm}N8iZlvz>VmbaMNW6Oo1jMkYF8TlV;_**W{doJmJgdK`j- z6~twQF3j+q{o>*hcJc75GHMp{PpBT-7(sX7EVinp$qt zFaLt%MLb947ic7(+2_*1lgRWY?aYhr_vh+aCT4drartPxdRSXr>9>);vE1*7+C*P= z&s{EU6E0uuz8EJxL*!~zTaMQpmyC6@dKax!+4cUST~Y`YKLJMH~wkBuE4==DpJPFq%>NapEe572=zBtvxFqaNl*s3XV12EJ94( zv-s{N7Hu~0-Lg&Sk)L28=Q4@tmV=@%*z3~v^vq(vrdlKQJvn6U(*mJikHjbVdIrfI zbDbcuT;LO%XBYGR*>?&VH>X>t{@0(OGL!fGis@7CxMUo$iYNS%TV_Y>UlA^`a5@hYbAU?)OTiqWuY&67 z@A?CTd7I>SY8;+B>)5Qs6OS8Sw^~g)D9c>YmKM>Ut@3>OVUZoTcW`E~Rn@5d`U4$nL~ z<7b!c{CSG<3y=G`d8K@tcipKemV3khnR92o=*+MvdCGZ;xzk*5P1hXOmpn7#d}R;h zN;HO?4bWBKs?t!@Fgf{W&fL&rO+{x`UiL{4N;%hdU#R!C&&o$yTdvEQ9!=fGdFGc( zZ({J~gZr|!%-*41d)V`#t3gp~hg*AA%8MM07w_+dPJhn1&$5NDY7hHIff?ROy`N%O z^xo`!x@cC#1FkA72hI6+B;+-V_>^ShzgbUyJbS`&nH1>N1QkXvoA*R4gFz^T#nZ!?W`rS@YzkH1@4g6WRaxo1gcK%#Y?=Jhpoc{;2HsciAL1Va1Eo z*uq=PHV=MVd0v#AZP@mcX;p3npOo{R>_tZ1YYkmvyaV*EoV(j5rVt*S#1tX#STS|U zJx8S@^=&!^MysZ6OgP&1@vDiCwC$;f-j$81{bCid?q{M?Ogq1-ml;Pi-o0{t%HedY z%}tL59sch>b0PFxm4@{Bo7oW-$7CC(od5q&?nU9*gt!$Nr<2sS%|2{;ch!vDmfq&J z{|;>`o9L)7W%_r;-err9c3%i*IeVeev?Ibu;>N8vE|%|9R~BAZ*1ewU=BzNag|B0N zip#T87I|iWJFHYAB8v_N#$UQIfyaA)oVCH)o3>?oZhOQvJYD9tiLyR4WaYWQTlLES z50CVN|G!`Sv+z|q8_pDUnx!Uk>6#Unnxi9`*_QZO=T-0&f!|kJ zk7P4+Pdp<2M(IKni`~T^3&gWydmbNt`$@3pUV1RsYF&>lCJVRLG-qz>Dy>!XdhC47 zc`462UU?1YV~5Thyen5ZS2tnd)eja5$|7$TS-Eh0dGU5=V|K_CHWm zkiPO!ayhEqqNsQAG~~^`!(G$gF}Y3RLo<7(YGEI`=vt&aD)QxVe3I2~r43wl;ly5G3(L%?;7 zd(LY`<|tU_w#fFGn|YNdu{g|9h|g6P@96WI@onFo=qFwL9UqNmeg6HG>+g@?>s(7D zr|j!h?q=Hdv?5B;@gXmt-s&yiUTFEOX6CcGFm2WxeY0H`Coa8mXTs@d1<~?DygWBI z);LCXv{3Vt3wSQjSTxnHPw?uAlMO}&0$LT58#lz=Lv$C?R{rl?4Lus8w zUFYLu=Gxd*mUPG$yxw+X$-=-d0_Tixw#VEP1f0dQO4trXiC9 zuWUEt)!t;(+`qAC-K0r1k0l^;)1Y!7kQYg zqQl?$)%6t{%s8fEa!4(|Va}d|?s2&iSDc!|{5}bOxq01YapSbF7sMV)9+qWD`PlN~ zoK5gVzU>SrVvl4V@>H}*6Dwbo?-bnmh?SSk+*4h|uk6^J&Gt&X*Oy4M7~D3rdHU=@ zUc_%1O~2?hd|RdaebTSKdz{HtA?A@%Rl%cO?h(woD_^`n^TU<)rOC22S?-5dTC6es z>ZHsfw%G0B(|sFRlnx6_oI3rL)v@bE=NluE1=~0UYG*bWGQYf_I^A#PUz1%27&F%u z$}wa$TxGcVc}l~HAGTeW9`aNuF*q|nR&BUyy_iAuF6(neuAab{+eNuITD~oIELg=` zZYQni`YCTtRPFn=69=}`u;m_Xk=lA!N2%Y`a=F)vjUrE{?+@$Qs`F%1nTz(~*5a*a zOoA3n?a1rgw(!M*RZ9%6Fgfo{v&=1;@?6qjGDpDdO~>}#KD)|prN44Rj8Wq1o`^32 z`9@q3&gr^}kG8(-EM2#xs6*T+JI~nBf%D{wJzH%!UVgD_RKFGdsOZ2hl}C5eT>HL> zPkO%Kdqj(2&q5X{HgTqG4=?e;hrg2+h>V)ko_B@NuY!i;wncttaH&r&~H!C?MPT`yUG0h`sH=Ex4OD}oK z#jTgls9jrOJXcZL#nR2E^Z3sxcgFO3RLI2g+iZl8#Ki z`mONtWsPRu>plJtHg%8^_`&bLX5d4!L+DG2ze(-(s6E?F%>OoiL2v@^oej zr%LMfi?Z2fvtOpwsJiJYIWzX0o)dojQK!bXn+w~-%+|W`*D9VoDtO|kUzx7;?AU5{>!$H`TcymlxeId{85B7Mmn^aK zuyt?oljg|W&gK^$RigM_%FTDB>gN~X=bE3|eV>TrBcd(*5|WISj&OAKsqz z&!00`Xy|i&Vzi}tLj&X7sokI6^a_iv4Y2TIR})jx&97@P&In9g8MEca3a10Y zGcMOU>P7Botk`g>`60Ir20Jr9NSn8-shN2vdyWm;!Ll8kyO0JsKWKa%D<^@ zc`T7^cjp(cF{$MHs`+|4wWSx-DY&n;)@Y&B2wp)w+v)5dz z-1%{tqqO*GiTxd^m)3M?s&P*1E7fT+m3o^UeS1@_w@c!o2MhEx9vpieX||TDN|UAy~wIZvG}U_DKRN3$Jocd9q|tVE-(G<=Zr_WZ&`;?@3WA7RsBn zGQ&Y<%I;*5Io*e3E~&^c^mAt&Jnmqs|0ss9*IP4c(o4m3r%RV2ZReCO56F(!<^poupKo(!tNFZ1PD@-A6);t5ZshQ;$$t;$bc%T{LRy}W7SE05d>xr=O;r35ca^?j^(Dq%(5 z;y;UL^ae-p!b`~s|;gzskOiiRd@?*imkL$Z0a~SfSTN0AN zc-Fan-a~{98355>FPFR<$k+o zi*<8f`fmO4_)H&b{j`4uRm)!K-P=|pn-+7V``Qzu4|A?fzY*`tF=5H}s0Sr4e?4=2AWx=s$T8Yc` z)3aa3_*jO6&tu;mkJ-=YM_9)HSOu zU7We7x3%Jaq<(TpiRB_5nZrgG%MUKwC|R2o@I z=4ztkckFco-_GTGF4qVZ3SOD%xngd&?QMhHiuF@x@{8{h+N_ag9DZt3*OreeYPx%k z74LSgk1ud^zHpoO>cak4$22CUss872@4CL^tbx@Frd~zWzF__PAD?P(Xurl;B>9Bl z3*$Vt@Miz2MKQN!ryZANl(bWQ8+$-bm2=*|9F<0aXBVcGJ``^%?Dpl+m*;5lOF9S1tmogHZn`n(?6eOdN|(cYjXs>Mephni zWz2!##oKt9eRqBHuovV$tvB=QUuLhM?3)La;=H^cy2l?A{CTZsi|`%G0M(ORvKc3K zy4-twEcVud(#$mn1lfBNEVoTLw|M=hlpb#8)jOv)h+Vm}C?q>s;=`N?&$M*6>^ZSb zeA2Qz!V}MO)l0tllM|(~^P08mzUv_ka=n(b_@)-Nrho02$N&5FWW!m9v?5Nqv3I`+ z5)KdRU%u|UK|XW38M|7kSCz-?-c?82tYUBGp z_jB+R)gBkiuC@A)g!)vbS6}$M&vkHSE?F-^(d^0zTFO-_XyI9+8X_N-*X{W&2e`oU8ti^uC z$*XFse9k>$G_hU&nbqvh&L+#!5Oy9$fiuShZ2PJ=D;|BQt95bh%Y!VoQ?_2<(aLW4 z_~q!Ph65W9oK;!NxO~=z?3!0CoE{q_6x;VEHBGvZ`b;%zOV(npcJCLOtj&_2^IMKB z>3O_e>@#cdMD2=K>86%y+fsrq6_{&Fr0Z1v{uem$?0jj1RoRSl=S*hl%$|0j?su9U z^Qp@+5}R3$Ge%B6vM}w%+qjs+*Md){uK9b&Xzl84*Ceuo8C>gQ7A;G8_GH6?$d2!> zYik^0L%LagH!ae=WZxf|6y&sbN`Jv>CKhh)Z7z+!A{2PGEY|xelF!!fUCtz3qAzpy zF-yaa7k=W?`qme|=n1?Pq<>D!+fFi7np0DSYu|H*We&WX8YRqP$}O(Eof$Fr^Npyj zo}tVBvK1LBebfswzjwBEip|jj+vc>IsLSu_`__3{s$gEvR|6C7g0`pC{W&T5CuEK0 ztL~|~|23vJImTsDzwQ65WS3GkpE{Fe(zp5YUx%zPX5+ZHZn0k`TejbaT%}_S8S_~ZC+9qlUke}uVU!ZIgEwxBr3!U&z$eDY)%PYUGYd{&!u_u z*ITB`C2H-JSYOqDZhOqp&i4~SRnJDbTYfiEKW||o9Ndt1a9QAE$+Iipd91YTovD&t z^?KDkfutvoQkVQ+VI=6S{o!MOs{Z$XizOJAEIaq-MV$G%Q<`=k47F5wGgZ{|J7Sz> z{GS%Oj$`^V+lh}~FyFK-k;=O&@QY{jKMDWK6)Hs%MdH57R#WHfTj;Y#+i7vx4?%y#~uHB^q8VlbzV<&b7xO`O0rW zj~l`odIC~rHeFR>uNSgq2~?`A*psz5wn*(jn)ny~E&cHe+^zOns4sIX+`A#EWlyQc zJ%8>jx%)p(FrBYm9hvra;ZB_!bMnPpHa=T*%{OErSN3M}`zhwTuGl>?)$;F)=M-M7 z^m^Hxg92HmUGrHx)vp^QFVB%wSdkm+;e zeWIhZ-3gQM+L^J3Bc;>7PE73VDxUw(P*?S4^NpEa+tqe_v)x{vz3$=%^;7v_OCC#w zU)h{(cVha4wZfMsR~=keH1$`lM9CE6nx)q^sk+`2ihFs~b*6epdumx5Q_Y3@Ruh$z z&neqpPGEc@RLvY6b(*<4NW%Rh&rzFlZsW$;8Ude0;!YbcJ|>rRQd&W9*5!$Noz-2M zb)-)0n=p+@l<|y|vvG62nZlo2Gg(a8lqH@hd9%cKzVA-U5V@E*bH{m!eHxbMj&6#x zbS?JI+|9_vSi(K~_H5rg-7_@{iajpqw!0^9^w(y2p(5M)(S<>3eY)H9u4kH^8ZS6E zm<#T8v=RP4EwG8Pbj#BFAEsqJ7cPFhICP!=@8C_})qYuO&f*hFF?9Md-DK7qPkw_( z;h7)Jj)c`IOg)kP)w=oCb)|R%-&qXDR^;D%f25%Q^OETzZY#5jf;yy6KdP!>Uv@8M zQ&G^L6{|h;e_EO!IlbwdR>meRMn5U8lwZC4QuadMuWs5}*U(vh!)npxpLbM}I@5EO z$xmsBC^|5KMegm|fWQn+&crwNd(JGYIy-6a9oD7FDmUg&zICT_Rr=(;oX*FD&NT#` z`*@+~{`EOw9=|fKs%>?gSou=7=11!(<;0USgoP7MHQt=EsIA6MT{ksl$LgNwo(Ucc z*;*bmOfBYGz`^`K#FI^Io9b$b$>+XojqUSaeCJEw(ZEB~VpsET($1}6{N-~a;rqkT zz8F>??JMm!6D+1pe|TX_dTpkKw&R2)=^Foz?7B2FXZ>t3KhuJDB99gMSGhfsZCUSY z8lCsaYLlq24*RDrvAvc~d%r$2(&o}@?wswRC!5%svL};w(V0J)Q#<7rm83-7nqX?6Zq2W)%0V zD!!)uNsP%b#a_WizM}Kx1*VS@hR0Z{(k}c7o#THpg8lUaRklB~Ol{vEecAUTR*^R@ z>1pq}TYJBMxoqpomi{THYx<1BxW&G4Mztl{t2ZpPepmeAb)}8ei#;7vsuZ6#pVVjF zxNFOtho?C`(wnY#yG>hiJny?7+l~gCJyG8rCH{WsD-_l>6_~!kMQL$!k;0$O=ZY)- zR%*wvBxa`-C0>rNd2>=ee0iGTzuq-Zm?YX=3w&Ln`p;Hfi<_fGnXv+WR zU};T$-|FJD70vQL{FVl+dKgk=BKXYgYUA$XO7hwH7Y^*vRC$?o&+oRd0`dV{s zZ_N$3J@u4e-ggb(Q%NP^?_B0BycU>VxFBTelIa4re);QUp1eQ1HnU5r>(bQBEl>T# zm|7-kO*(df|4Y=9hnVO(hX|W`?kBNuMv7@x{-0?`>l~(rcD*T zdvzAc1Rg&qonf?jZEMk)B1r|g0w)f;vy%i4Ej)VQOL{?r<}62}l`}Mx(wdAHyNX3m zQ3+jf<63T2&pxxoTB{RPKIBNntB9~4uAX;ndZWhP&qaBcX6;cq!mUu;eVpqbFLRL5 zN#;p+CZEgU7q4wHv2)bFkTPq=n~+=I76@ktzN@Yhnttf-&&pyS9sicu%9}GeCfj${ zZf2A}`N&&md+68h+vzUWoYA(;OCR_B{u!`#=G70o7bTpVTM~3`cj~=ZFOkb1nVxc+ z-*7l&u*gL6(qT96N=`*zhS{G*7KYX)$n(usJ?`CZDslTni1n6A=gRYVD+cBmHzYY4Dp$)7(8_%pZc2LmH!Ue)H|Bw znTPQA%ggSwv<+KdZxiP4FSpOC=IdlD%d3_~eODfbA3y%;X!6$=#}9}5_eDp%ziN1` z;-Aum+Q4Hx%b8bvZTe^TZ~OJ*=i^sTKfZq6+&y)?du{)C%I>S-oGWiv!*!MazYN>) z|KDExc$)q7xqScp)#5jP&-YKTTE3otgess%Jsg|?aK{b^L`fTm}$M{?T4TK2j%_e$#1># zk+ZbqPriP9;;RYDtlZX>Y{GVJhbBMopSRC)(HaH*h3(JvJ7ptS%gk8JJ z=kR=quXAR(+;PQLN$7>Ui-@y;6=TJIE6cx&n?yNc{(pIPp@ii?tKB?VyLy-3Et?Cz z2~J;KSM`x?t=NWl%iZMy1Okq~dhz4q$Hmvx^ApP#s__*6dUmt$zz4fpUxun*A-48) zET4~tEkC~g-aH#6i#=9#l@*`70uN0IU%z3x`1zl|?r;}=W_Z|lUx{l^W#7&S5xXk> z*DD=Z-aP)msUXcHJd3UB{{I@L=EsM1pPtPR6xP@<`@isli`-w|d{94k=~M857Yje! zb@hDwD4Dh4iqi9khs8OX+ar7~H+3>NFx^?S_;7l=f1kgs%7TTen|-|J?z5>YY1;2# zxj^pC*Wej(A6~G^EVAEwFt&yNQm0kR+aq!U{FSFgpU@Csj?tUY_h#X_r^FE7q&TSP@LM<2-XyMG|jy7JuYCJu-8 zpHHq%wDjkA{@~-olb6lcoAgO?96F)T&~iid;jFt8E{pfaAGWl}+s46u<>ccBU(PO; zPyN0jxcqTl%i4+xo~wNQ_vT$V`MB_b&YXE1J`aSy32?}~?vPzGEh_xUw~xlGCub+M zs~p-i@0;mH?hg~=e8I^r`B`g{NF3XHPa{5g)q7Byj6Lep0i-x3Vy#5=?(jv zEaq+4-Iy3`c0x7M<+`U^kyNYQhE#8(C2UDChYuvC_%JxN%)b9y zL#v)Bd^{_(^a<}hc58vKc~%AT#|(SczDQ_Xoc&{`-mLDPx(MFR+50Tqwp}@2UCOij z$CT;ErxeA>C9lw%ZtczA$H_7w%fl`GzRC;fE#Y_k&99ws`qnUS;+Zb4X?Ne4d=0KU zx@4){PtnN?d(%A+9(?)5_2|@9#g(x}i|6RKylJR3Y-9D`EHXcT`J3y)r*h{d%wlGD zc@oz5^Csu+q#NgQ_(Y|xxGo>L*==Fkx7_#W%D0Yp91HW0WPO}cv_DvYW7pDX+rG2G zn-llse_bnlA$!i7vd+F^Y4PLDp%1}k=h=!&J|<64%6xV9 ztiznc_xu_%B7F3MA2}~LfBby^^2qmkGJ5YF4?haJ^t;YybKE_XC~=8L@r8UB4r()G znuXcB{q6ra<-@z^Z^?&m2smuGUaSxw`K#7@>%+ErYRWYa)41~m^)eo=)~Z~z*=`SO zjQ{=P4`r z(lTGZbXM}*I5d^L`fc(d&|0@gDP>b8e^1 zCQ8Q%t^7WJ=i}=035%vTGWYMDX2rD1HR^!b;pA-AiWg5OB$+HU_-$Bq-(1D$%X6l8 z{kwew<>sdTjXXC~SYyhb0%eB6Djw4s&DfybGaq~tsXEG-xu^Tdbyg0h=bAAW&i5Pq zl)m-1;k?uKwCBth_8n8vO38S-$P(!*vyTE;D*0xeJ4&uWnh@0|SrQi~MRm{YzOh?(=Q^wVG5uG))pyQ22KxhtMphx5Ek4!fgr2Rbc z;k9~$u&cP?D(izSY8uJQUUlrM=T6r;(%h;W@2}h?!rg!F(+8VVyZ=_oKkqDJNQ(D= zRQ2P4@Qa7~uhg$I`XAv7)(H2@J@JRZG@W66_l>#o9c!8e?ReeI6fk% zqDa`Sn~}VmzO0+%H}^|lPTl)XTgE9$%kOnZq(wJpt1r9PC9(R#WUH?|fB#Fl3R`^p zVkGpQ{rzH2bK#1)jS45HgfpwSOUhSdIdsqYxMR1kKj#X%yQ3LR@lhcDuv9Uurx0RQ5ASv_4L;I=k$5XobQ)*C&0B@6 zmCZ_aA9Q~evBjkC#+(ONSKeB2FQRZY1w3Gt5)7pK!J)nBDxrpE(CC zTGmN?X??b@q+-FDtzUKQ~xrrhmQCv9Qm4l6x;7nC=umW4{sKr^C@bw`N!TZ8~#$FUQ=1 zD~U@5RTsDm^H~3%K0}uA$OG>Q(~I*rZ`aYyyWG3|tHO?Hj$*Gr?W_9rE`uYDKd19xnm7wv;YeJO-j@UPW_aAHb zOHcB?AkKX{-i=kDw?+RE<1-82Uj-?@OJrqKbQSKO<@|}#fvMdbUSn(#!qP5 zc5c(f2kVy!{c%*k@oC2Fw&Nws{_(UN;^4Ud_-4r~nXPL-%+CKcEBF39zA($|k{inm ztxru%3)xW~bLH@o9S%>f$F2PnChH@gP=9rjjUkJ5+`WsBgMF^{eC{+j+j+k7KdbOL zXX}5(>lA!7wo_>AaoGm!);}TlemoCv&`c$qAXF z8b0q?-;A#O;ZH89o_UU+sc%pEr{#ZVc^>7qzO-DsdH2rat{kE&l@`BtyQ`I$9Eq(s zuhRdcLOK8G-+$HDs=K=---<@AW7;I<`*ybZBc)}VzuJ9gF@Le5d)vgHzb`y$*!iS0 z?HH@_%e!~>6sCT;IOkve;m0SDF`cgaKNNLcNVj5hQoSy{W$Gy5(%ekj`SV3 zYF;E=-(@4Kzs`P)kOs^XHYYMkm+^d=O;MMVKmXDjdEBT{di9}>JS5zPTD$?K6UNVnQFy+f_<3zKw zwT?3*3?^@7cD1rmNnKF1K>uZZZKJb~8i(0#JNF$;hAuG;r`dD$VvUo;Z`^!7gZt>S zQ)WMRCNh_lE9RLt9j~e2V^R2=d8O87;$q8&6x9PcyD~B*E|&~HEVS`Pg~)P; z4Gq<pIM(`hirr~Vp;}F?{)gv{{@G1>f5gpHWv^>~msJo~c*e9_^~C?Zpy#N19RJ!)K-)_>|UEdev+|Ju@N;hKRjl%UA`Ti4ra>>s< zUVBR8^78l-?}hd~zgJVn^71>&^YZnoZ08L8k12aQSk98t_fM1)%$#qV%FgBMTI=@c z(hx(-(f;EVw~?#%n>vfZ=r2DhA9nkvci^o8y$<3@;e6Ts3d*<8j_4wd(T| z6J8bB)^gL==GAZXLZTu(mL|{Iu=)qL$UcS&{dM{0HVeqdTsyvK8{1vRuq@5lGrsMb zCZ(I3F$q!Y#|qXSMTQM%=d2hvTo)^%4;5ra5iE|HI-93CbZsD`EtCzd!Ur>&*bJ` zO#i|pF7C;U5LzpLF81<8&C&O2uJ31Y7)vMvPI}M^v%m273|2x>kTlbJxS|(=o z+nZGad7%&P8}A5y+&QoB@E2uoJ0Vxyl^^FHKOp#h)6Fk3^2UxkXDrj5|5Dp{c$i@hc8SuEeM{TWVNP*o#+mH zlD$#m+~kU7ew*VTXSi*ynfZXZYPSF8|LfP!bGgj(L+H`GdD4ANeyo{|W>+^Kv|E&9 zG_SXDo8o>}@$&*FatrOAN%gy()ZZ+T`~SC0kZ-;Ap92q{xh3-N{rXvN!|wBoR;Ta? z)QC)ct(E&E)8~50)k!bHkJJ2d>|Xae ziKzX@_X-Hf&Rib#UA9!F{j}8o6B3W_ylH-2T5ISOr7~rst&U2;p@Vm>Pl=dhQE+m$ zl4PrUpy1xtIG55z)rz8wb6NeCxvtx}rpAv$_Tf6Qx=Q&KwN0Ko#U#WhFzCC~FK(N+ z>1kzH$;setC%s%3a3u9hq$w+0Ib2<^mTy=3EU^cZy%bL8cx=mmzv=FW34i~ISw4@j ztWb}*s?R>-TJ2K#&5B3YT;-nZ&f;4(?UuQStD)C4!IXx~WIyLfLId7^O^|t_mm3`CK(O&utK0x9X$5dwS*Thmrrn*SzQ7#P9yQOTurT?E|Z& z>d`MJ*NSp3zS429uyMEgfn56t$sOJtHZK)s1kSkdb^XRE2`@LWt`QO6JUglTwomku z4eRu>PwjnPwEodU;~xyyMZB7mL+(gz-F?_}gWL376KoPE^)Np@98nY%zPb8HTi?fx z_gKTbtyT}gZ<3J! literal 0 HcmV?d00001 diff --git a/vendors/ott/ocamlgraph-safe-string.patch b/vendors/ott/ocamlgraph-safe-string.patch new file mode 100644 index 000000000000..8290f72bdb5a --- /dev/null +++ b/vendors/ott/ocamlgraph-safe-string.patch @@ -0,0 +1,19 @@ +diff --git a/lib/bitv.ml b/lib/bitv.ml +index 28d0ac5..23f5325 100644 +--- a/lib/bitv.ml ++++ b/lib/bitv.ml +@@ -449,11 +449,11 @@ let all_ones v = + + let to_string v = + let n = v.length in +- let s = String.make n '0' in ++ let s = Buffer.create n in + for i = 0 to n - 1 do +- if unsafe_get v i then s.[i] <- '1' ++ Buffer.add_char s (if unsafe_get v i then '1' else '0') + done; +- s ++ Buffer.contents s + + let print fmt v = Format.pp_print_string fmt (to_string v) + diff --git a/vendors/ott/ott.opam b/vendors/ott/ott.opam new file mode 100644 index 000000000000..5265f965b0e2 --- /dev/null +++ b/vendors/ott/ott.opam @@ -0,0 +1,14 @@ +opam-version: "1.2" +synopsis: "Ott is a tool for writing definitions of programming languages and calculi" +maintainer: "Hannes Mehnert " +authors: [ "Peter Sewell" "Francesco Zappa Nardelli" "Scott Owens"] +homepage: "http://www.cl.cam.ac.uk/~pes20/ott/" +dev-repo: "https://github.com/ott-lang/ott.git" +bug-reports: "https://github.com/ott-lang/ott/issues" +license: "part BSD3, part LGPL 2.1" +available: [ ocaml-version >= "4.00.0" ] +depends: [ "yojson" ] + +build: [ + [ make "world" ] +] diff --git a/vendors/ott/regression/Makefile b/vendors/ott/regression/Makefile new file mode 100644 index 000000000000..dc26d697204b --- /dev/null +++ b/vendors/ott/regression/Makefile @@ -0,0 +1,81 @@ +########################################################################## +# Ott # +# # +# Peter Sewell, Computer Laboratory, University of Cambridge # +# Francesco Zappa Nardelli, Moscova project, INRIA Rocquencourt # +# # +# Copyright 2005-2008 # +# # +# Redistribution and use in source and binary forms, with or without # +# modification, are permitted provided that the following conditions # +# are met: # +# 1. Redistributions of source code must retain the above copyright # +# notice, this list of conditions and the following disclaimer. # +# 2. Redistributions in binary form must reproduce the above copyright # +# notice, this list of conditions and the following disclaimer in the # +# documentation and/or other materials provided with the distribution. # +# 3. The names of the authors may not be used to endorse or promote # +# products derived from this software without specific prior written # +# permission. # +# # +# THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS # +# OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED # +# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE # +# ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY # +# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL # +# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE # +# GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS # +# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER # +# IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR # +# OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN # +# IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. # +########################################################################## + +# REGRESSION ########################################################## + +all: regression + +regression: regression.ml + ocamlc unix.cma str.cma -o regression -dtypes regression.ml + +regression_p: regression_p_client.ml regression_p_master.ml + ocamlc unix.cma str.cma -o regression_p_client regression_p_client.ml + ocamlc unix.cma str.cma -o regression_p_master regression_p_master.ml + +regression_para: regression_para.ml + ocamlp3lopt -par unix.cmxa str.cmxa -o regression_para regression_para.ml + +reg: regression ott + ./regression -no_hol -report ../tests/test*.ott + +regb: regression ott + ./regression -no_hol -baseline ../tests/test*.ott + +regh: regression ott + ./regression -report ../tests/test*.ott + +regbh: regression ott + ./regression -baseline ../tests/test*.ott + +simple: regression + $(MAKE) clean-regr + -make -C ../coq + ./regression -todo_list -todo_list_file regression-small.otl -keep_temp + +clean: + rm -rf *~ + rm -rf regression + rm -rf testRegr* + +clean-regr: + rm -rf testRegr* + rm -rf *~ + rm -f regression-jenkins tests.xml + +# Jenkins + +# regression-jenkins: +# ocamlc unix.cma str.cma -o regression-jenkins -dtypes regression-jenkins.ml + +run-jenkins: regression + ./regression -baseline_file baseline-jenkins.bl -todo_list -jenkins diff --git a/vendors/ott/regression/README b/vendors/ott/regression/README new file mode 100644 index 000000000000..29720af08ece --- /dev/null +++ b/vendors/ott/regression/README @@ -0,0 +1,10 @@ + +$ ./regression -baseline -todo_list + +computes a new baseline for all packages. + +$ ./regression -dump_baseline + +dumps the baseline + +$ ./regression -baseline diff --git a/vendors/ott/regression/_ott_coqrc.v b/vendors/ott/regression/_ott_coqrc.v new file mode 100644 index 000000000000..01f9979800eb --- /dev/null +++ b/vendors/ott/regression/_ott_coqrc.v @@ -0,0 +1,7 @@ +(*This file is used by the regression tests.*) +(* Add LoadPath "../coq/metatheory".*) +Add LoadPath "../coq". +(* Add LoadPath "". *) +(* Add LoadPath "../coq/ln_sets". *) +(* Add LoadPath "../examples/tapl". *) +(* Load "../examples/tapl/_ott_coqrc". *) diff --git a/vendors/ott/regression/baseline-jenkins.bl b/vendors/ott/regression/baseline-jenkins.bl new file mode 100644 index 0000000000000000000000000000000000000000..c84182903608016b9d926ccd4564a96ceae614b9 GIT binary patch literal 5195 zcmZpfx@;c!Gd(QyKc^aMClYQX|)RL!|r1-d0giFw5^O%4-4Hc3rjQJ=t~ z2GY4;fhmR-h+-D02`rKmSd1sINK9Z6pTJ_UV1X5?(t`YwlFZa1L#TSO2`tJJ7C1V< zDVqfgj8JsIR4Pqi(VxJ=Gl4~K0*meh7B}?pF*JZ0sWXAaasrFk1Qv@4ETR)w0+0hA z6p)4n@frEKP~WkbO<-}Jz@jjL#c2Xd^aPeDbO#$6#Ag;K7FXs$O?Q~U;yZyQasrFb z1eVkZEGg(=VQ5fX0#)iYfhBwbi^&9*un8>r6Ik*v9a3BppOy+$oiu?ZaRN*31eSye zER_>jDi$o@R6q>~1Ca8}qT-VHjKrKYsJ6HXEZGxSJSMPYO<-xBz|w>fEU@s)n7~px zfhA}HOUVS5zzHlp7z&M`CKgR#sh_|SGl8WJ93s;&6dFSn)=XgOoWPPcfu#c+6blwC zFhO;&aS~MJlnE@8C$OxYz%mIO600zbG=VCdFo9+61eU4^EOWqtumvM@P4!^WJZl2W z@(C<06IhmkJ-!c%Qkd75OkmkKfu(N(%Z3Roy%ShYU{MP5{JIG&yC<;Bn831Y0?YIX zESIn-g?WF+1eT){SQbrSIWmD|;RKdDSd_xNb!Y<1`3Wp*Ca|2Fz_NM*%d-Uw%uqwh zRL=w!R%a%#+?>F&Z34@U2`pPDuzbL#HW?aR*Cwz$p1^Wo0?VTbEc++0{KBR-1*-PJ z1eUiGSWZn~c{73KHg{pluf#v%ImMarjzD;1cJb{&w4~tr8>BaJ80xKiq z1eSXfSQ!~6u-u)%$|!+FwK>$}e-l_4xhJr^n83=&HG$>%1Xe~R4Ao|^IA&$!n83;? zI)UZW1Xf0o2`nEcurlgkQ4Wn~Rz{%-tc>y#SpH04Wt5x1@_Pa+qZtej7Ae!8Tlu$GJ0Xr0F8H6 zMuQ2gjJ6Y48Kow$GTKaFWt5!2${2!012o`S8LcL;GP+M-WmK8K%IG$Ml~H*DD`OlM z4baeMWptUq${09-l~Hd3D`UU}Rz}?ktc)2L8q5(v>NkOvF?s?kqs0VP#;6IbjOG(q z8H=!JfCp;C1Xjk>39O7x6IdBjCa^L(PGDuM!ANQ5daweRl`&}oD`WlyRz{x*tc-aR zSQ*JSzUa3`&pz{q|hSQ#H+(E!cStc=Gdurh)Qi47B2881y>Wn4djmGKo8 z4Hl3hfR*vW1Xe~+Ik9U3E90FBtc*J+urhwZqQMfT;noCJMo>|4WCAPWvk9z>hbOQy z{=?8TYXU3d^$Dy@ zLRd7wWBSJgRwht!@n`}o6Uziv#)lJFnPf0DSi+se#594G2~=FXnZU}#H-VK&eF7_! z8hTp?W;_$m1Xd==39L-U6IhufCa^MooxsXufUX*rikR#turk?AU}e&uz{+GZftAU6 z0xOdhx@uSwVp5pE%A`AimC1bqE0fLyRwnHUtV}NGs$uDeDR=@aQ_uufCg%yPOaT*E znfxcPGWntB8Z+IJ)Cy>9F~v?`Wr~@=%H%tNl__chD^uhIR;CDa^I^%2DSZMfQ`!Vp zrtk@@OeqssnUW{4G9{s_h9w=QunDY8p%Yk{j3%%$g-l>&GMvE5l(PV>rEF0Eb4v9D zR;H>6tW4PxSeYs&urifTU}Y-9XjsK(CFaE&85o%98d&NY!0l?Cz{=Dzft9Ir0xMI~ z1XiZT39L*F3l>`4Hzu$$ zfin7*39L-lCa^NSpTNp=63O#L$tlGUqd~bGl*9K;U}XYX^>YF%(+|v8P0GwmiBBx8 zh)>NeD5-=e3TE~Rtjuf^Sed?0U}a{Rz{<=F>b@;lV2he2z`9fNOAyI{S!e<)v)}|) zW~K?O%={BrnfWHLa4%S3gGFCvaU$G4rq2^tnHeUqGD}ThW%@sXmFeFER%UTb=O*VD z#-|pRCgx<8RK`~zwEvyJ%FH!^m04v1D>LT=R;FhYSeX?UEa22dwKpX-Eib+(wIDUI zBsC>IFF&s&wJ0|;FEIyh64>J+6Ihw`Ca^LKPhe&GFoBg>8^hzNxk;%h@g?~M2#p|5 z%S~Wq`aOY_S#|;|)2|7v%%&JVhXgao9ncKVtT};|Sz`h#v(p4tW_4(2+Y`vM%*GQ~ znT;l}GW$$mWj36^%Ir0PmDv+BxF9(l6lma>f@OJT{RynhHWOHx!zQpYTTftRmYBfG z9K2uwrxt2(A+&=W9A8|TR8*Riitw`g1XgCZ39QV@6IhvDC$KUrO<-k?CE6HR&B5$E zft5L60xPrb1XgDM39QUI6Ihwki8cmSr7-(WU}cV)z{+esft5LO0xPrG1Xkw41q(Pe z@OlcIWf5LVoxsYRGJ%!3ZUQTF@&s09hY76A)kGQs_fX;lR_443tjrw~SebL7vD3O> z0jCZwmw*B~KCLt_xg;|`4=FQMPGDuOn83L;)=_e@}AUN(W1xqAXDbH)T#=EWqq z1|Cz>C$KV4o50FkJb{&Y>I7EibrV>b*OFimtX;soZ~`myf(fk5wG&vG=TBf|u9?8f zyd5LYLDMZ#xXzux%DidFtjsGXurjwzU}ZjtEBj!U5f>(~GM}Ho%6wn~EA!b2 ztjuR7u$;uy4JjjX@{P=4%sJnXeL4!t9>F%6wu1 zEA!F`tjxzJure>1z{-3dGoR$97Nw`gquZ_v&-_Oxurgnoz{!Gd(QyKc^aMClYQX|)RL!|r1-d0giFw5^O%4-4Hc3rjQJ=t~ z2GY4;fhmR-h+-D02`rKmSd1sINK9Z6pTJ_UV1X5?(t`YwlFZa1L#TSO2`tJJSZpUO zaC87;7MleNj8JsIR4Pqi(VxKLIe~>|0*meh7B}?pF*JZ0sWXAaaso^61QxLgETR)w z0+0hA6p)4n@frEKP~WkbO<-}Jz!E!wMPUL<^aPeDbO#$6#Ag;K7FXs$O?Q~U;yZyQ zasrFi1eVkZEGg(=VQ5fX0#)iYfhBwbOW_0-lL;*O6Ik*v9a3BppOy+$oiu?ZaRN*3 z1eSyeER_>jDi$o@R6q>~1Ca8}qT-VHjKrKYsJ6HXEZGxSS|_l0OkioAz|w>fEU@s) zn7~pxfu(-}OV9+CzzHlp7z&M`CKgR#sh_|ya{@~YI7FslC^UvDteL>lIe}&I1eOkP zP%K!mzy#I7#z|0>Qzo!Xp1`tp0?Q7BrG0*g|Z=hsbO**$^f>I9Y< z6IiBCV7Y`vDa`vjCa@fxz;b^A%c2P^3n#GL!J-uAtwR%7&QD-@If3Qe1eVnkSe`9d zV1^n}rg|o@usSn=<>myI&l6Z~OkmkMf#m}>waL)nx;BC3@dTE?6IdQiVA(%`urhK_U}aRD!17`O%kv4Wj7k`)&0w+2 z%E&Q+l~Hs8E2I7dmQNE{K2Bg|)WM=08q=(dLK9dSu1Xf1l39O916IdAqCa^N{Phe&A z!lD5h^Q?>p6IdB-C$KVxPhe$~n!w5^If0ci1d9e}$g?t9O<-kopTNqPIDwVXZ2~K! z@&s1KI4l~Vq0h?bGJ%ybZ~`l1_5@bOfC;ROx)WF#GcYumBZAa#0xM(m1Xjk<39O7! z6IdC|C$KUWVbK5&)QAbJjHwe?8S5voGNw#mWptdt%2sN+tc;Tl5^Or)vDY<$m2vt6 zR>qAJSQ)2HU}Y?xz{m#RfI5Rk13W=(n!w7qe*!Dx%?YfG z`=H@;4T}bNg4#2Il@U}xJf6VHcwz!8CJft7Ln z1XjjZSTtBbiU3x|3lmrwLFELfjJY#`m2u|;R>m(_G+4qk+?v43_?l}UaAD-+8ER>p@DSeaxnG+4r&#Kbg#m5F}>E0g8~Rwlj) ztW4??Seew&TRSl0nRq6!GD%KgWdap8-zKm!ex1O|WPq+3mWr6{C$KWvO<-lxpTNpw zGl7-KdIBqx6}oCz5@J%Az{;dMftAU90xOfw1Xd>P39L*m=&E7qhbedhD^t(}Rwm~O ztV{tDSeg7Murm3f=NdEJlGF-lY%#@7U}cJ#z{=!1ft4w00xMJG1XiX9bn{`!jVXNs zD^uD8R;KU?tV}5rSecS1urei~tA-^VrmzXDOraB4ner#FGKEZFWip(=%9OJJt*vZP z0CP(91XiZ139L-n6IhulCa^Myv8yOgw=^9w-8o=#poxsY}GJ%z; zbOI|=(*#zg#tE!U4GR`nqSW2-pq6%VJS-tGl}un|DxSc~)H{Kdsb~T#Q}+Z`rmh7G zIF+#JN-IiDElVsy(q1rum8o_DE7SA|tV}f%AYnIU!2*rq%3|H5{QR5;6Ihu#Ca^NK zPhe$Q2o16M6Ihw%Em)ulQj=JeS&{)#G-(1W)5Hm^OsglbGUZKRWm-9bm1)I-1==7* zrFkWl1*s_@WpgI5GR>aA%Cr?4K$|D9GHqJ0Ko6v>ptLBpI5W2(Cl#b}*#uUmr4v}0 z_D^7CS~7u^Y3~G9racQ5Xn|CgRKnc0VFD}D`U$K|CnvBn^-N%8IzEAw>DYn=CLmSC z`9&r9X=$Z7IS5mCO<-l(If0ew@&s0<9TQlYE`pp4^-D=9)aoM>SeXt_U}d^HftBgd z1XiZo6IhvULHz=DWN8w}h36))GJ!HWsH9jmftBg$1XiXe3l^Ay>@LbLP0z@wM78|J z1Xdm6;jTfm^V^7Bx+Pb*JQ)Ad&;K&;(Xy!3nI) zOcPj{`6sY4^G#skUa-Ihi@wa_M7VuSpC_;~GfZG*mYTrI^nU^?)4vI<%;K2NP0lZj zPc1A>%*iaNjITgw|2u(|nQHpLscCufMX3d;i6yBi z@p<`qC8MG?NHBxk0nPBtniE)=H72k!J569^R)>bRJ%K#SY&?OL*=PbQ zv(E%pX2S`r%w7{%nLROs3zE}8fd-B#Se9qjpTNp&Gl7*kYyvB@^#oRCi3zOC!3!2} zYM}-fLOaO8@x`S{MWs2Z2rs)&U}bijz{;F3ftA^H0xPr91Xku)qK$#o9L&xWSeXMR zurg;&U}g57z{;#Mft5L(Xk%bi3bXG7R_3S)tjr}7SeYXyurixXU}Y{`uz*toucyFS z7U8AT39QU16Ihw+Ca^LmPhe$sn83AaO&W4 z2`HfB(@OJ_OEUBGkTO%{1XkvX39QVMCa^M>Phe%90171%41&9;bOI}L(*#!LITKi! z8z-3z{=b`ft5L90xR=k5?lk1sp%6~ znWs%)W!^A>m3is}R_1jRSee(7U=XZbz`Sq*EAxU0tjxP6urkk|z{*@Rft7hXMxKMF zTcmKEJAsvX)dW`NBNJGeS59DMZkxc$d=OXm!7L*#Okia`KY^9`zywz2vlCdE&rD!B ziK!b>M&#rtCxT)X5sVururlwPz{-4M0xR?039QW5Ca^MJC8mVgJ%N?^!~|C6M-y0? zmrh`1UNV7|`95Yo$xSUvPmM>nT^FADk4|7^zBGZA`OO4Y=Jn9fe@V14@FWEafIAad UnZHe7WxhRumHEpAR_4zR02s^-j{pDw literal 0 HcmV?d00001 diff --git a/vendors/ott/regression/baseline.bl b/vendors/ott/regression/baseline.bl new file mode 100644 index 0000000000000000000000000000000000000000..e97bc3bb052b972f72f5cfde341171214ea1a8c6 GIT binary patch literal 67 zcmZpfx@;c<1A{&T1A_nq1A`%my+1n6%K#FDZF2VS%F~8g`hlz|p}0 E0E\n"; + output_string fd " \n"; + output_string fd " \n"; + output_string fd " \n"; + output_string fd " details about failure \n"; + output_string fd " \n"; + output_string fd "\n"; + close_out fd; diff --git a/vendors/ott/regression/regression-small.otl b/vendors/ott/regression/regression-small.otl new file mode 100644 index 000000000000..31358bb2a90f --- /dev/null +++ b/vendors/ott/regression/regression-small.otl @@ -0,0 +1 @@ +../tests/test10st.ott diff --git a/vendors/ott/regression/regression.ml b/vendors/ott/regression/regression.ml new file mode 100644 index 000000000000..3cd122c36fb8 --- /dev/null +++ b/vendors/ott/regression/regression.ml @@ -0,0 +1,842 @@ +(**************************************************************************) +(* Ott *) +(* *) +(* Peter Sewell, Computer Laboratory, University of Cambridge *) +(* Francesco Zappa Nardelli, Moscova project, INRIA Rocquencourt *) +(* *) +(* Copyright 2005-2010 *) +(* *) +(* Redistribution and use in source and binary forms, with or without *) +(* modification, are permitted provided that the following conditions *) +(* are met: *) +(* 1. Redistributions of source code must retain the above copyright *) +(* notice, this list of conditions and the following disclaimer. *) +(* 2. Redistributions in binary form must reproduce the above copyright *) +(* notice, this list of conditions and the following disclaimer in the *) +(* documentation and/or other materials provided with the distribution. *) +(* 3. The names of the authors may not be used to endorse or promote *) +(* products derived from this software without specific prior written *) +(* permission. *) +(* *) +(* THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS *) +(* OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED *) +(* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE *) +(* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY *) +(* DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL *) +(* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE *) +(* GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS *) +(* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER *) +(* IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR *) +(* OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN *) +(* IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. *) +(**************************************************************************) + +open Unix +open Sys + +type outcome = Success | Failure | Undone | Skipped + +type tp_result = { ott : bool; tp : outcome } + +type result = + { coq_t : tp_result ref; + coq_no_list_t : tp_result ref; + hol_t : tp_result ref; + isa_t : tp_result ref; +(* isa07_t : tp_result ref; *) +(* twelf_t : tp_result ref; *) + caml_t : tp_result ref; + latex_t : tp_result ref } + +(* ** options *) +let compute_baseline = ref false +let baseline_file_name = ref "baseline.bl" +let use_config = ref false +let config_file_name = ref "config.otr" +let todo_list_file = ref "regression.otl" +let todo_list = ref false +let tests = ref [] +let isa_test = ref true +let caml_test = ref true +let coq_test = ref true +let hol_test = ref true +(* let twelf_test = ref true *) +let latex_test = ref true +let dump_baseline = ref false +let night = ref false +let jenkins = ref false +let emails = ref [] +let dump_report = ref false +let keep_temporary_files = ref false +let colour_output = ref true + +(* ** state *) +let progressions = ref 0 +let regressions = ref 0 +let ott_progressions = ref 0 +let ott_regressions = ref 0 +let coq_progressions = ref 0 +let coq_regressions = ref 0 +let coq_no_list_progressions = ref 0 +let coq_no_list_regressions = ref 0 +let caml_progressions = ref 0 +let caml_regressions = ref 0 +let isa_progressions = ref 0 +let isa_regressions = ref 0 +(* let isa07_progressions = ref 0 *) +(* let isa07_regressions = ref 0 *) +let hol_progressions = ref 0 +let hol_regressions = ref 0 +let latex_progressions = ref 0 +let latex_regressions = ref 0 +(* let twelf_progressions = ref 0 *) +(* let twelf_regressions = ref 0 *) +let summary = ref [] +let report_fd = ref Pervasives.stdout +let config_state = ref [] + +let _ = + if !night then begin + putenv "CVSROOT" ":pserver:zappa@localhost:/usr/groups/netsem/dynsem/cvs"; + putenv "CVS_RSH" "ssh"; + putenv "PATH" "/home/yquem/moscova/zappa/bin:/home/yquem/moscova/zappa/source/godi/bin:/usr/bin:/bin"; + putenv "TWELFSERVER" "/home/yquem/moscova/zappa/lib/twelf/bin/twelf-server"; + end + + +(** ******************* *) +(** colour highlighting *) +(** ******************* *) + +(* vt220 colour definitions *) + +let black = 0 +let red = 1 +let green = 2 +let yellow = 3 +let blue = 4 +let magenta = 5 +let cyan = 6 +let white = 7 +let dark_gray = 60 + +let _reset = "\x1b[0m" +let _color fg br = Printf.sprintf "\x1b[%u;%um" br (fg+30) +let _bold = Printf.sprintf "\x1b[%u;%um" 0 (1) +let _w = "\x1b[0;1;4m" +let _r = _color red 0 +let _b = _color blue 0 (* was blue 1 *) +let _g = _color green 0 + +let col_wrap col s = col ^ s ^ _reset + +let col_bold s = col_wrap _bold s +let col_red s = col_wrap _r s +let col_black s = col_wrap _b s +let col_green s = col_wrap _g s +let col_yellow s = col_wrap (_color yellow 0) s +let col_blue s = col_wrap (_color blue 0) s +let col_magenta s = col_wrap (_color magenta 0) s +let col_cyan s = col_wrap (_color cyan 0) s +let col_white s = col_wrap (_color white 0) s +let col_dark_gray s = col_wrap (_color dark_gray 0) s + +(* ******************************************* *) + +let pp_fn s = + Filename.basename s + +let error s = + print_endline ("regression: " ^ s); + exit 1 + +let pp s = + print_endline s +(* if not !night then print_endline s *) + + +let pp_coloured c s = + if !colour_output then pp (col_wrap (_color c black) s) else pp s + +let pp_bold s = + if !colour_output then pp (_bold ^ s ^ _reset) else pp s + +let pp_tgt i_of_n s cmd = + pp ("*** " ^ i_of_n ^ " " ^ s ^ ": " ^ cmd) + +let pp_success s name = + pp_coloured green (" * " ^ name ^ " " ^ s ^ ": " ^ "success") + +let pp_failure s name = + pp_coloured red (" * " ^ name ^ " " ^ s ^ ": " ^ "failure") + +let pp_report s = + output_string !report_fd s; + output_char !report_fd '\n' + +let maybe_remove filename = + if not !keep_temporary_files && Sys.file_exists filename + then Sys.remove filename; + () + +let execute_cmd_list l = + List.iter + (fun c -> + print_endline ("*** executing "^c); + let status = system c in + match status with + | WEXITED n -> if not (n= 0) then error ("error while executing "^c) + | _ -> error ("error2 while executing "^c) ) + l + +let parse_todo_list () = + let rec parse_lines fd = + try + let l = input_line fd in + let pl = Str.split (Str.regexp "[ \t]+") l in + ( match pl with + | t::[] -> tests := (t,[t]) :: !tests + | n::":"::tl -> tests := (n,tl) :: !tests + | _ -> error ("malformed line in todo_list: "^l^"\n") ); + print_endline ("todolist"^String.concat " " pl); + parse_lines fd + with End_of_file -> () + in + if not (file_exists !todo_list_file) + then error ("todo_list file does not exists"); + let todo_fd = open_in !todo_list_file in + parse_lines todo_fd; + close_in todo_fd + +let parse_config_file () = + let convert c = + match c with + | "+" -> true + | "." -> false + | _ -> error "malformed entry in config file" in + let rec parse_lines fd = + try + let l = input_line fd in + let pl = Str.split (Str.regexp "[ \t]+") l in + match pl with + | c::cl::i::h::o::l::n::[] -> + let c = convert c in + let cl = convert cl in + let i = convert i in +(* let i07 = convert i07 in *) + let h = convert h in +(* let t = convert t in *) + let o = convert o in + let l = convert l in + config_state := (n,(c,cl,i,h,o,l))::!config_state; + Printf.printf "config: %s %b %b %b %b %b %b\n" n c cl i h o l; + parse_lines fd + | _ -> error ("malformed line in config file: "^l) + with End_of_file -> () in + if not (file_exists !config_file_name) + then error ("config file does not exists"); + let config_fd = open_in !config_file_name in + parse_lines config_fd; + close_in config_fd + +let options = + Arg.align + [ ("-baseline", + Arg.Unit (fun () -> compute_baseline := true), + " compute and save the baseline"); + ("-baseline_file", + Arg.String (fun s -> baseline_file_name := s), + "<"^ !baseline_file_name^"> name of baseline file"); + ("-todo_list", + Arg.Unit (fun () -> todo_list := true), + " use todo_list"); + ("-todo_list_file", + Arg.String (fun s -> todo_list_file := s), + "<"^ !todo_list_file^"> name of todo_list file"); + ("-use_config", + Arg.Unit (fun () -> use_config := true), + " use a configuration file"); + ("-config_file", + Arg.String (fun s -> config_file_name := s), + "<"^ !config_file_name^"> name of config file"); + ("-no_isa", + Arg.Unit (fun () -> isa_test := false), + " do not run the Isabelle test"); + ("-no_coq", + Arg.Unit (fun () -> coq_test := false), + " do not run the Coq test"); + ("-no_hol", + Arg.Unit (fun () -> hol_test := false), + " do not run the HOL test"); +(* ("-no_twelf", *) +(* Arg.Unit (fun () -> twelf_test := false), *) +(* " do not run the Twelf test"); *) + ("-no_caml", + Arg.Unit (fun () -> caml_test := false), + " do not run the OCaml test"); + ("-no_latex", + Arg.Unit (fun () -> latex_test := false), + " do not run the LaTeX test"); + ("-dump_baseline", + Arg.Unit (fun () -> dump_baseline := true), + " dump the baseline"); + ("-night", + Arg.Unit (fun () -> night := true), + " perform the nightly regression test"); + ("-jenkins", + Arg.Unit (fun () -> jenkins := true), + " output result in XML format for Jenkins"); + ("-email", + Arg.String (fun s -> emails := s::!emails), + " send the night report to"); + ("-report", + Arg.Unit (fun () -> dump_report := true), + " dump a report of the outcome of the tests"); + ("-keep_temp", + Arg.Unit (fun () -> keep_temporary_files := true), + " do not clean up temporary files"); + ("-no_colour", + Arg.Unit (fun () -> colour_output := false), + " do not use colour in output"); + ] + +let rec search t state = + match state with + | [] -> raise Not_found + | (x,e)::tl -> if (String.compare x t = 0) then e else search t tl + +let check_config t tp = + try + if !use_config + then + let entry = search t !config_state in + ( match tp, entry with + | "Coq", (c,_,_,_,_,_) -> c + | "CoqNL", (_,cl,_,_,_,_) -> cl + | "Isa", (_,_,i,_,_,_) -> i +(* | "Isa07", (_,_,_,i07,_,_,_,_) -> i07 *) + | "HOL", (_,_,_,h,_,_) -> h +(* | "Twelf", (_,_,_,_,_,t,_,_) -> t *) + | "OCaml", (_,_,_,_,o,_) -> o + | "LaTeX", (_,_,_,_,_,l) -> l + | _,_ -> failwith "Never happen" ) + else true + with Not_found -> print_endline ("*** test "^t^" not found in config file"); true + +let run_test i n (tn,tl) = + let i_of_n = Printf.sprintf "(%d/%d)" i n in + + let t = + if List.length tl = 1 + then "-i "^(List.hd tl) + else "-merge true -i "^String.concat " -i " tl in + + let result = { coq_t = ref { ott = false; tp = Undone }; + coq_no_list_t = ref { ott = false; tp = Undone }; + hol_t = ref { ott = false; tp = Undone }; + isa_t = ref { ott = false; tp = Undone }; +(* isa07_t = ref { ott = false; tp = Undone }; *) +(* twelf_t = ref { ott = false; tp = Undone }; *) + caml_t = ref { ott = false; tp = Undone }; + latex_t = ref { ott = false; tp = Undone }; } in + pp ("\n*** " ^ i_of_n ^ " " ^ tn ^ "\n"); + + (* ** preliminary *) + let name = "testRegr"^(string_of_int (Random.int 1000)) in + + (* ** run Coq *) + if (not !coq_test) || (not (check_config tn "Coq")) + then result.coq_t := { ott = false; tp = Skipped } + else begin + let cmd = "../bin/ott -show_sort false -show_defns false "^t ^" -o "^name^".v " (* ^" > /dev/null" *) in + let tgt = "Ott-Coq" in + pp_tgt i_of_n tgt cmd; + if (command cmd) = 0 + then begin + pp_success tgt name; + let cmd = "coqc -init-file _ott_coqrc.v "^name^".v > " ^ name ^ ".coq.out" (* was "/dev/null"*) in + let tgt = "Coq" in + pp_tgt i_of_n tgt cmd; + if (command cmd) = 0 then begin + result.coq_t := { ott = true; tp = Success }; + pp_success tgt name; + maybe_remove (name^".vo"); + maybe_remove (name^".glob"); + maybe_remove (name^".coq.out"); + end else begin + result.coq_t := { ott = true; tp = Failure }; + pp_failure tgt name; + maybe_remove (name^".coq.out"); + end; + maybe_remove (name^".v") + end else + pp_failure tgt name; + end; + (* Coq with native lists *) + if (not !coq_test) || (not (check_config tn "CoqNL")) + then result.coq_no_list_t := { ott = false; tp = Skipped } + else begin + let cmd = "../bin/ott -coq_expand_list_types false "^t^" -o "^name^".v " (*^" > /dev/null"*) in + let tgt = "Ott-Coq" in + pp_tgt i_of_n tgt cmd; + if (command cmd) = 0 + then begin + pp_success tgt name; + let cmd = "coqc -init-file _ott_coqrc.v "^name^".v" in + let tgt = "Coq" in + pp_tgt i_of_n tgt cmd; + if (command cmd) = 0 then begin + result.coq_no_list_t := { ott = true; tp = Success }; + pp_success tgt name; + maybe_remove (name^".vo"); + maybe_remove (name^".glob") + end else begin + result.coq_no_list_t := { ott = true; tp = Failure }; + pp_failure tgt name; + end; + maybe_remove (name^".v") + end else + pp_failure tgt name; + end; + + (* ** run Isa *) + if (not !isa_test) || (not (check_config tn "Isa")) + then result.isa_t := { ott = false; tp = Skipped } + else begin + let cmd = "../bin/ott "^t^" -o "^name^".thy" (* ^" > /dev/null"*) in + let tgt = "Ott-Isa" in + pp_tgt i_of_n tgt cmd; + if (command cmd) = 0 + then begin + pp_success tgt name; + let cmd = + (* Victor's suggestion *) + "echo '(use_thy \"" ^ name ^ "\"; OS.Process.exit OS.Process.success) handle _ => (OS.Process.exit OS.Process.failure);' | isabelle console" in +(* + "echo 'ML_command {* (use_thy \"" ^ name + ^ "\"; OS.Process.exit OS.Process.success) handle e => (OS.Process.exit OS.Process.failure); *}'" + ^ " | isabelle console \"\"" (*^ " > /dev/null"*) in (* was isabelle tty -p *) +*) + let tgt = "Isa" in + pp_tgt i_of_n tgt cmd; + if (command cmd) = 0 then begin + result.isa_t := { ott = true; tp = Success }; + pp_success tgt name + end else begin + result.isa_t := { ott = true; tp = Failure }; + pp_failure tgt name; + end; + maybe_remove (name^".thy") + end else + pp_failure tgt name; + end; + (* ** run Isa07 *) +(* if (not !isa_test) || (not (check_config tn "Isa07")) *) +(* result.isa07_t := { ott = false; tp = Skipped } ; *) +(* else begin *) +(* let cmd = "../bin/ott -isabelle "^name^".thy -isabelle2007_syntax " ^t ^" > /dev/null" in *) +(* pp ("*** Ott-Isa07: " ^ cmd); *) +(* if (command cmd) = 0 *) +(* then begin *) +(* pp_success ""; *) +(* let cmd = *) +(* "echo 'use_thy \"" ^ name *) +(* ^ "\" handle e => (OS.Process.exit OS.Process.failure);'" *) +(* ^ " | isabelle > /dev/null" in (\* FZ PUT HERE ISABELLE07 *\) *) +(* pp ("*** Isa07: " ^ cmd); *) +(* if (command cmd) = 0 then begin *) +(* result.isa07_t := { ott = true; tp = Success }; *) +(* pp_success "" *) +(* end else begin *) +(* result.isa07_t := { ott = true; tp = Failure }; *) +(* pp_failure s; *) +(* end; *) +(* maybe_remove (name^".thy") *) +(* end else *) +(* pp_failure s; *) +(* end; *) + + (* ** run HOL *) + if (not !hol_test) || (not (check_config tn "HOL")) + then result.hol_t := { ott = false; tp = Skipped } + else begin + let cmd = "../bin/ott "^t^" -o "^name^"Script.sml" (* ^" > /dev/null"*) in + let tgt = "Ott-Hol" in + pp_tgt i_of_n tgt cmd; + if (command cmd) = 0 + then begin + pp_success tgt name; + let cmd = "Holmake -I ../hol/ "^name^"Theory.uo" (* ^ " &> /dev/null"*) in + let tgt = "HOL" in + pp_tgt i_of_n tgt cmd; + if (command cmd) = 0 then begin + result.hol_t := { ott = true; tp = Success }; + pp_success tgt name; + end else begin + result.hol_t := { ott = true; tp = Failure }; + pp_failure tgt name; + end; + maybe_remove (name^"Theory.sml"); + maybe_remove (name^"Theory.sig"); + maybe_remove (name^"Theory.ui"); + maybe_remove (name^"Script.sml"); + maybe_remove (name^"Theory.uo"); + end else + pp_failure tgt name; + end; + + (* ** run Twelf *) +(* if (not !twelf_test) || (not (check_config tn "Twelf")) *) +(* then result.twelf_t := { ott = false; tp = Skipped } *) +(* else begin *) +(* let cmd = "../bin/ott -twelf "^name^".elf " ^t ^" > /dev/null" in *) +(* pp ("*** Ott-Twelf: " ^ cmd); *) +(* if (command cmd) = 0 *) +(* then begin *) +(* pp_success ""; *) +(* let cmd = "./run_twelf "^name^".elf &> /dev/null" in *) +(* pp ("*** Twelf: " ^ cmd); *) +(* if (command cmd) = 0 then begin *) +(* result.twelf_t := { ott = true; tp = Success }; *) +(* pp_success "" *) +(* end else begin *) +(* result.twelf_t := { ott = true; tp = Failure }; *) +(* pp_failure s *) +(* end; *) +(* maybe_remove (name^".elf"); *) +(* end else *) +(* pp_failure s; *) +(* end; *) + + (* ** run OCaml *) + if (not !caml_test) || (not (check_config tn "OCaml")) + then result.caml_t := { ott = false; tp = Skipped } + else begin + let cmd = "../bin/ott "^t^" -o "^name^".ml" (* ^" > /dev/null"*) in + let tgt = "Ott-OCaml" in + pp_tgt i_of_n tgt cmd; + if (command cmd) = 0 + then begin + pp_success tgt name; + let cmd = "ocamlc "^name^".ml" (* " > /dev/null"*) in + let tgt = "OCaml" in + pp_tgt i_of_n tgt cmd; + if (command cmd) = 0 then begin + result.caml_t := { ott = true; tp = Success }; + pp_success tgt name; + maybe_remove (name^".cmi"); + maybe_remove (name^".cmo") + end else begin + result.caml_t := { ott = true; tp = Failure }; + pp_failure tgt name + end; + maybe_remove (name^".ml") + end else + pp_failure tgt name; + end; + + (* ** run LaTeX *) + if (not !latex_test) || (not (check_config tn "LaTeX")) + then result.latex_t := { ott = false; tp = Skipped } + else begin + let cmd = "../bin/ott "^t^" -o "^name^".tex" (* ^ " > /dev/null"*) in + let tgt = "Ott-LaTeX" in + pp_tgt i_of_n tgt cmd; + if (command cmd) = 0 + then begin + pp_success tgt name; + let cmd = "latex -interaction=batchmode "^name^".tex" (* ^ " > /dev/null"*) in + let tgt = "LaTeX" in + pp_tgt i_of_n tgt cmd; + if (command cmd) = 0 then begin + result.latex_t := { ott = true; tp = Success }; + pp_success tgt name ; + maybe_remove (name^".dvi"); + maybe_remove (name^".aux"); + maybe_remove (name^".log"); + end else begin + result.latex_t := { ott = true; tp = Failure }; + pp_failure tgt name; + maybe_remove (name^".dvi"); + maybe_remove (name^".log"); + maybe_remove (name^".aux"); + end; + maybe_remove (name^".tex") + end else + pp_failure tgt name; + end; + + (* ** return the result *) + result + +let report tp a b = + if a.ott && not b.ott + then begin + progressions := !progressions + 1; + ott_progressions := !ott_progressions + 1 + end else + if not a.ott && b.ott + then begin + regressions := !regressions + 1; + ott_regressions := !ott_regressions + 1 + end; + + if (a.tp = Success) && (b.tp = Failure) + then begin + progressions := !progressions + 1; + ( match tp with + | "Coq" -> coq_progressions := !coq_progressions + 1 + | "CoqNL" -> coq_no_list_progressions := !coq_no_list_progressions + 1 + | "Isa" -> isa_progressions := !isa_progressions + 1 +(* | "Isa07" -> isa07_progressions := !isa07_progressions + 1 *) + | "HOL" -> hol_progressions := !hol_progressions + 1 +(* | "Twelf" -> twelf_progressions := !twelf_progressions + 1 *) + | "OCaml" -> caml_progressions := !caml_progressions + 1 + | "LaTeX" -> latex_progressions := !latex_progressions + 1 + | _ -> failwith "never happens" ); + pp ("*** progression:" ^ tp) end + else if (b.tp = Success) && (a.tp = Failure) + then begin + regressions := !regressions + 1; + ( match tp with + | "Coq" -> coq_regressions := !coq_regressions + 1 + | "CoqNL" -> coq_no_list_regressions := !coq_no_list_regressions + 1 + | "Isa" -> isa_regressions := !isa_regressions + 1 +(* | "Isa07" -> isa07_regressions := !isa07_regressions + 1 *) + | "HOL" -> hol_regressions := !hol_regressions + 1 +(* | "Twelf" -> twelf_regressions := !twelf_regressions + 1 *) + | "OCaml" -> caml_regressions := !caml_regressions + 1 + | "LaTeX" -> latex_regressions := !latex_regressions + 1 + | _ -> failwith "never happens" ); + pp ("*** regression:" ^ tp) end + else () + +let print_result r = + ( match r.ott, r.tp with + | true, _ -> " + " + | false, Skipped -> " ? " + | false, _ -> " - " ) + ^ ( match r.tp with + | Success -> "+ " + | Failure -> "- " + | Skipped -> " " + | Undone -> " " ) + + +let dump_baseline_fc () = + if not (file_exists !baseline_file_name) + then error ("baseline file does not exists"); + let baseline_fd = open_in !baseline_file_name in + let baseline = Marshal.from_channel baseline_fd in + pp " Coq CoqNL Isa HOL OCaml LaTeX"; + List.iter + ( fun (t,r) -> + pp + ( print_result !(r.coq_t) + ^ print_result !(r.coq_no_list_t) + ^ print_result !(r.isa_t) +(* ^ print_result !(r.isa07_t) *) + ^ print_result !(r.hol_t) +(* ^ print_result !(r.twelf_t) *) + ^ print_result !(r.caml_t) + ^ print_result !(r.latex_t) + ^ t) ) + baseline; + close_in baseline_fd + +let compute_baseline_fc () = + let baseline = ref [] in + let n_tests = List.length !tests in + List.iteri + ( fun i -> + fun t -> + let result_t = run_test i n_tests t in + baseline := ((fst t),result_t)::!baseline ) + (List.rev !tests); + if file_exists !baseline_file_name then remove !baseline_file_name; + let baseline_fd = open_out_bin !baseline_file_name in + Marshal.to_channel baseline_fd (List.rev !baseline) []; + close_out baseline_fd; + pp "\n*** baseline built succesfully" + +let test_fc auto = + (* ** open the baseline file *) + if not (file_exists !baseline_file_name) + then error ("baseline file does not exists"); + let baseline_fd = open_in_bin !baseline_file_name in + let baseline = (Marshal.from_channel baseline_fd : (string * result) list) in + print_endline "content of baseline"; + List.iter (fun (n,_) -> print_endline n) baseline; + print_endline "end content of baseline"; + + (* ** for each test *) + let n_tests = List.length !tests in + List.iteri + ( fun i -> + fun (tn,tl) -> + let result_t = run_test i n_tests (tn,tl) in + summary := (tn,result_t)::!summary; + try + let result_baseline = List.assoc tn baseline in + report "Coq" !(result_t.coq_t) !(result_baseline.coq_t); + report "CoqNL" !(result_t.coq_no_list_t) !(result_baseline.coq_no_list_t); + report "Isa" !(result_t.isa_t) !(result_baseline.isa_t); +(* report "Isa07" !(result_t.isa07_t) !(result_baseline.isa07_t); *) + report "HOL" !(result_t.hol_t) !(result_baseline.hol_t); +(* report "Twelf" !(result_t.twelf_t) !(result_baseline.twelf_t); *) + report "OCaml" !(result_t.caml_t) !(result_baseline.caml_t); + report "LaTeX" !(result_t.latex_t) !(result_baseline.latex_t); + with Not_found -> pp ("*** test " ^ tn ^ " not in the baseline") ) + (List.rev !tests); + (* ** print summary *) + pp_report ("\n*** final report"); + + if !dump_report then begin + pp_report "\n*** results"; + pp_report "\n Coq CoqNL Isa HOL OCaml LaTeX"; + List.iter + ( fun (t,r) -> + pp_report + ( print_result !(r.coq_t) + ^ print_result !(r.coq_no_list_t) + ^ print_result !(r.isa_t) +(* ^ print_result !(r.isa07_t) *) + ^ print_result !(r.hol_t) +(* ^ print_result !(r.twelf_t) *) + ^ print_result !(r.caml_t) + ^ print_result !(r.latex_t) + ^ pp_fn t ) ) + !summary; + end; + + pp_report + ( "\n*** progressions: " ^ (string_of_int !progressions) + ^ " (Ott : " ^ (string_of_int !ott_progressions)^")" + ^ " (Coq : " ^ (string_of_int !coq_progressions)^")" + ^ " (CoqNL : " ^ (string_of_int !coq_no_list_progressions)^")" + ^ " (Isa : " ^ (string_of_int !isa_progressions)^")" +(* ^ " (Isa07 : " ^ (string_of_int !isa07_progressions)^")" *) + ^ " (Hol : " ^ (string_of_int !hol_progressions)^")" +(* ^ " (Twelf : " ^ (string_of_int !twelf_progressions)^")" *) + ^ " (OCaml : " ^ (string_of_int !caml_progressions)^")" + ^ " (LaTeX : " ^ (string_of_int !latex_progressions)^")" ); + pp_report + ("*** regressions: " ^ (string_of_int !regressions) + ^ " (Ott : " ^ (string_of_int !ott_regressions)^")" + ^ " (Coq : " ^ (string_of_int !coq_regressions)^")" + ^ " (CoqNL : " ^ (string_of_int !coq_no_list_regressions)^")" + ^ " (Isa : " ^ (string_of_int !isa_regressions)^")" +(* ^ " (Isa07 : " ^ (string_of_int !isa07_regressions)^")" *) + ^ " (Hol : " ^ (string_of_int !hol_regressions)^")" +(* ^ " (Twelf : " ^ (string_of_int !twelf_regressions)^")" *) + ^ " (OCaml : " ^ (string_of_int !caml_regressions)^")" + ^ " (LaTeX : " ^ (string_of_int !latex_progressions)^")" ); + + let p_out n b = + let s_ott = + if n.tp = Skipped then " S " else + if n.ott && not b.ott then " + " else + if b.ott && not n.ott then " - " else " " in + let s_tp = + if (b.tp = Success) && (n.tp = Failure) then "- " + else if (b.tp = Failure) && (n.tp = Success) then "+ " + else if (n.tp = Skipped) || (b.tp = Skipped) then " " + else " " in + s_ott ^ s_tp in + + pp_report "\n Coq CoqNL Isa HOL OCaml LaTeX"; + List.iter + ( fun (t,r) -> + try + let b = List.assoc t baseline in + pp_report + ( p_out !(r.coq_t) !(b.coq_t) + ^ p_out !(r.coq_no_list_t) !(b.coq_no_list_t) + ^ p_out !(r.isa_t) !(b.isa_t) +(* ^ p_out !(r.isa07_t) !(b.isa07_t) *) + ^ p_out !(r.hol_t) !(b.hol_t) +(* ^ p_out !(r.twelf_t) !(b.twelf_t) *) + ^ p_out !(r.caml_t) !(b.caml_t) + ^ p_out !(r.latex_t) !(b.latex_t) + ^ pp_fn t ) + with Not_found -> pp_report (" ? ? ? ? ? ? " ^ t) ) + !summary; + close_in baseline_fd; + + if auto && (!regressions = 0) && (!progressions > 0) + then begin + if file_exists !baseline_file_name then remove !baseline_file_name; + let baseline_fd = open_out_bin !baseline_file_name in + Marshal.to_channel baseline_fd !summary []; + close_out baseline_fd; + end + +let main () = + match !dump_baseline, !compute_baseline with + | true, _ -> dump_baseline_fc () + | false, true -> compute_baseline_fc () + | false, false -> test_fc !night + +let _ = + Random.self_init (); + Arg.parse options + (fun s -> tests := (s,[s]) :: !tests) + ("\n" ^ "regression .. \n"); + tests := List.rev !tests; + if ((List.length !tests) = 0) && not (!dump_baseline) && not (!todo_list) + then error "specify at least one test"; + if !night + then begin + putenv "PATH" "/home/yquem/moscova/zappa/bin:/home/yquem/moscova/zappa/source/godi/bin:/usr/bin:/bin"; + putenv "TWELFSERVER" "/home/yquem/moscova/zappa/lib/twelf/bin/twelf-server"; + chdir "/home/yquem/moscova/zappa/repo/update/Ott2/src"; + execute_cmd_list [ "./regression_night_script.sh" ]; +(* chdir "/home/yquem/moscova/zappa/repo/update/Ott2/tests/"; *) +(* execute_cmd_list [ "cvs update" ]; *) +(* chdir "/home/yquem/moscova/zappa/repo/update/Ott2/examples/tapl/"; *) +(* execute_cmd_list [ "cvs update" ]; *) +(* chdir "/home/yquem/moscova/zappa/repo/update/Ott2/src"; *) +(* let cmd_list = *) +(* [ "env"; *) +(* "cvs update"; *) +(* "make > /dev/null"; *) +(* "make tmp_test7a.ott"; *) +(* "make tmp_test7.ott" ] in *) +(* execute_cmd_list cmd_list; *) + chdir "/home/yquem/moscova/zappa/repo/update/Ott2/src"; + report_fd := open_out "report.txt"; + end; + if !use_config then parse_config_file (); + if !todo_list then parse_todo_list (); + main (); + if !night then begin + close_out !report_fd; + let date = Unix.localtime (Unix.time ()) in + let subject = + Printf.sprintf ("[Ott regression report] %d/%d/%d") + date.tm_mday + date.tm_mon + (1900 + date.tm_year) in + let cmd_list = + List.map + (fun e -> "mail -s '" ^ subject ^ "' " ^ e ^ " < report.txt" ) + !emails in + execute_cmd_list cmd_list + end; + + if !jenkins then begin + let fd = open_out "tests.xml" in + output_string fd "\n"; + if !regressions == 0 + then begin + output_string fd " \n"; + end else begin + output_string fd " \n"; + output_string fd " \n"; + output_string fd " todo\n"; + output_string fd " \n"; + output_string fd " \n"; + end; + output_string fd "\n"; + close_out fd + end diff --git a/vendors/ott/regression/regression.otl b/vendors/ott/regression/regression.otl new file mode 100644 index 000000000000..04d939d31971 --- /dev/null +++ b/vendors/ott/regression/regression.otl @@ -0,0 +1,101 @@ +../tests/leroy-jfp96.ott +../tests/test-j.ott +../tests/test-lj-list_ambiguity.ott +../tests/test-mjp-trans.ott +../tests/test-mjp.ott +../tests/test-pottier1.ott +../tests/test1.ott +../tests/test10.ott +../tests/test10_homs.ott +../tests/test10_isasyn.ott +../tests/test10st.ott +../tests/test10st_fe.ott +../tests/test10st_first_half.ott +../tests/test11.ott +../tests/test12.ott +../tests/test13.ott +../tests/test13b.ott +../tests/test14.ott +../tests/test15.0.ott +../tests/test15.1.ott +../tests/test15.2.ott +../tests/test15.3.ott +../tests/test15.4.ott +../tests/test15.4b.ott +../tests/test15.4c.ott +../tests/test15.4d.ott +../tests/test15.5.ott +../tests/test15.6.ott +../tests/test15.7.ott +../tests/test16.0.ott +../tests/test16.1.ott +../tests/test16.2.ott +../tests/test16.3.ott +../tests/test16.4.ott +../tests/test16.5.ott +../tests/test16.6.ott +../tests/test17.0.ott +../tests/test17.1.ott +../tests/test17.10.ott +../tests/test17.11.ott +../tests/test17.12.ott +../tests/test17.13.ott +../tests/test17.14.ott +../tests/test17.2.ott +../tests/test17.3.ott +../tests/test17.4.ott +../tests/test17.5.ott +../tests/test17.6.ott +../tests/test17.7.ott +../tests/test17.8.ott +../tests/test17.9.ott +../tests/test18.0.ott +../tests/test18.1.ott +../tests/test18.2.ott +../tests/test19.0.ott +../tests/test2.ott +../tests/test3.ott +../tests/test4.ott +../tests/test5.ott +../tests/test6-tex.ott +../tests/test6.ott +../tests/test8.ott +../tests/test8p.ott +../tests/test_jan_2006-09-08.ott +../tests/test_lists_1.ott +../tests/test_lists_freevars_1.ott +sys-bool : ../examples/tapl/common.ott ../examples/tapl/bool.ott +sys-arith : ../examples/tapl/nat.ott ../examples/tapl/common.ott ../examples/tapl/bool.ott +sys-untyped : ../examples/tapl/common.ott ../examples/tapl/bool.ott +sys-puresimple : ../examples/tapl/common.ott ../examples/tapl/common_typing.ott ../examples/tapl/arrow_typing.ott +sys-tybool : ../examples/tapl/common.ott ../examples/tapl/common_typing.ott ../examples/tapl/bool.ott ../examples/tapl/bool_typing.ott ../examples/tapl/arrow_typing.ott +sys-sortoffullsimple : ../examples/tapl/common.ott ../examples/tapl/common_typing.ott ../examples/tapl/common_labels.ott ../examples/tapl/common_index.ott ../examples/tapl/arrow_typing.ott ../examples/tapl/basety.ott ../examples/tapl/bool.ott ../examples/tapl/bool_typing.ott ../examples/tapl/nat.ott ../examples/tapl/nat_typing.ott ../examples/tapl/unit.ott ../examples/tapl/seq.ott ../examples/tapl/ascribe.ott ../examples/tapl/inert.ott ../examples/tapl/let.ott ../examples/tapl/sum.ott ../examples/tapl/variant.ott ../examples/tapl/product.ott ../examples/tapl/tuple.ott ../examples/tapl/record.ott ../examples/tapl/fix.ott +sys-tuple : ../examples/tapl/common.ott ../examples/tapl/common_typing.ott ../examples/tapl/common_index.ott ../examples/tapl/unit.ott ../examples/tapl/tuple.ott +sys-puresub : ../examples/tapl/common.ott ../examples/tapl/common_typing.ott ../examples/tapl/arrow_typing.ott ../examples/tapl/sub_arrow.ott ../examples/tapl/top.ott +sys-roughlyfullsimple : ../examples/tapl/common.ott ../examples/tapl/common_index.ott ../examples/tapl/common_labels.ott ../examples/tapl/common_typing.ott ../examples/tapl/bool.ott ../examples/tapl/bool_typing.ott ../examples/tapl/nat.ott ../examples/tapl/nat_typing.ott ../examples/tapl/arrow_typing.ott ../examples/tapl/basety.ott ../examples/tapl/unit.ott ../examples/tapl/seq.ott ../examples/tapl/ascribe.ott ../examples/tapl/let.ott ../examples/tapl/product.ott ../examples/tapl/sum.ott ../examples/tapl/fix.ott ../examples/tapl/tuple.ott ../examples/tapl/variant.ott +sys-purercdsub : ../examples/tapl/common.ott ../examples/tapl/common_typing.ott ../examples/tapl/arrow_typing.ott ../examples/tapl/sub_arrow.ott ../examples/tapl/top.ott ../examples/tapl/common_labels.ott ../examples/tapl/common_index.ott ../examples/tapl/record.ott ../examples/tapl/sub_record.ott +../tests/test_bind_aux_empty_1.ott +../tests/test_bind_dots_1.ott +../tests/test_bind_isa_1.ott +../tests/test_coq_equality_x_1.ott +../tests/test_defn_repeated_nonterminal_1.ott +../tests/test_embed_top_1.ott +../tests/test_empty_defn.ott +../tests/test_lists_1.ott +../tests/test_lists_coq_bind_1.ott +../tests/test_lists_coq_defn_subrule_1.ott +../tests/test_lists_coq_defn_subrule_2.ott +../tests/test_lists_coq_defn_subrule_3.ott +../tests/test_lists_coq_defn_tuple_1.ott +../tests/test_lists_coq_defn_tuple_2.ott +../tests/test_lists_coq_list_functions_1.ott +../tests/test_lists_coq_list_functions_2.ott +../tests/test_lists_defn_list_form_1.ott +../tests/test_lists_coq_list_functions_3.ott +../tests/test_lists_coq_list_functions_4.ott +../tests/test_subrules_1.ott +../tests/test_lists_terminal_1.ott +../tests/test_embed_location_1.ott +../tests/test_embed_top_1.ott +../tests/test_merge_embed_location_1-1.ott +../tests/test_merge_embed_location_1-2.ott diff --git a/vendors/ott/regression/regression_night_script.sh b/vendors/ott/regression/regression_night_script.sh new file mode 100755 index 000000000000..183bc01e1594 --- /dev/null +++ b/vendors/ott/regression/regression_night_script.sh @@ -0,0 +1,21 @@ +#!/bin/sh + +# this script is invoked by regression -night before running the tests +# defined in regression.otl + +cd /home/yquem/moscova/zappa/repo/update/Ott2/tests/ +cvs update +cd /home/yquem/moscova/zappa/repo/update/Ott2/src/ +cvs update -d +make coq-lib +ln -sf coq/*.vo . +make > /dev/null +make tmp_test7a.ott +make tmp_test7.ott +#make tmp_lj.ott + +cd ../examples/tapl/ +cvs update +make stlc_coq_prelude +cd ../../src + diff --git a/vendors/ott/regression/regression_p_client.ml b/vendors/ott/regression/regression_p_client.ml new file mode 100644 index 000000000000..4246cbf5a426 --- /dev/null +++ b/vendors/ott/regression/regression_p_client.ml @@ -0,0 +1,303 @@ +(**************************************************************************) +(* Ott *) +(* *) +(* Peter Sewell, Computer Laboratory, University of Cambridge *) +(* Francesco Zappa Nardelli, Moscova project, INRIA Rocquencourt *) +(* *) +(* Copyright 2005-2006 *) +(* *) +(* Redistribution and use in source and binary forms, with or without *) +(* modification, are permitted provided that the following conditions *) +(* are met: *) +(* 1. Redistributions of source code must retain the above copyright *) +(* notice, this list of conditions and the following disclaimer. *) +(* 2. Redistributions in binary form must reproduce the above copyright *) +(* notice, this list of conditions and the following disclaimer in the *) +(* documentation and/or other materials provided with the distribution. *) +(* 3. The names of the authors may not be used to endorse or promote *) +(* products derived from this software without specific prior written *) +(* permission. *) +(* *) +(* THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS *) +(* OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED *) +(* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE *) +(* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY *) +(* DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL *) +(* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE *) +(* GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS *) +(* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER *) +(* IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR *) +(* OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN *) +(* IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. *) +(**************************************************************************) + +open Unix +open Sys + +type outcome = Success | Failure | Undone | Skipped + +type tp_result = { ott : bool; tp : outcome } + +type result = + { coq_t : tp_result ref; + hol_t : tp_result ref; + isa_t : tp_result ref; + twelf_t : tp_result ref; + caml_t : tp_result ref; + latex_t : tp_result ref } + +let hostname = gethostname () + +(* ** options *) +let todo_list_file = ref ("regr_todo_"^hostname^".otl") +let todo_list = ref false +let tests = ref [] + +(* ** state *) +let progressions = ref 0 +let regressions = ref 0 +let ott_progressions = ref 0 +let ott_regressions = ref 0 +let coq_progressions = ref 0 +let coq_regressions = ref 0 +let caml_progressions = ref 0 +let caml_regressions = ref 0 +let isa_progressions = ref 0 +let isa_regressions = ref 0 +let hol_progressions = ref 0 +let hol_regressions = ref 0 +let latex_progressions = ref 0 +let latex_regressions = ref 0 +let twelf_progressions = ref 0 +let twelf_regressions = ref 0 +let summary = ref [] +let report_fd = ref Pervasives.stdout + +(* let _ = *) +(* putenv "CVSROOT" ":pserver:zappa@localhost:/usr/groups/netsem/dynsem/cvs"; *) +(* putenv "CVS_RSH" "ssh"; *) +(* putenv "PATH" "/home/nis/zappanar/source/coq/bin:/home/nis/zappanar/source/Isabelle/bin:/home/nis/zappanar/source/hol98/bin:/home/nis/zappanar/source/ocaml/bin:/usr/bin:/bin"; *) +(* putenv "TWELFSERVER" "/home/nis/zappanar/source/twelf/bin/twelf-server"; *) +(* print_endline "CIAO" *) + +let pp_fn s = + Filename.basename s + +let error s = + print_endline ("regression: " ^ s); + exit 1 + +let pp_report s = + output_string !report_fd s; + output_char !report_fd '\n' + +let pp s = + print_endline s + +let execute_cmd_list l = + List.iter + (fun c -> + pp ("*** executing "^c); + let status = system c in + match status with + | WEXITED n -> if not (n= 0) then error ("error while executing "^c) + | _ -> error ("error2 while executing "^c) ) + l + +let parse_todo_list () = + let rec parse_lines fd = + try + let l = input_line fd in + let pl = Str.split (Str.regexp "[ \t]+") l in + ( match pl with + | t::[] -> tests := (t,[t]) :: !tests + | n::":"::tl -> tests := (n,tl) :: !tests + | _ -> error ("malformed line in todo_list: "^l^"\n") ); + pp ("todolist"^String.concat " " pl); + parse_lines fd + with End_of_file -> () + in + if not (file_exists !todo_list_file) + then error ("todo_list file "^(!todo_list_file)^" does not exists"); + let todo_fd = open_in !todo_list_file in + parse_lines todo_fd; + close_in todo_fd + +let run_test (tn,tl) = + let t = + if List.length tl = 1 + then List.hd tl + else "-merge true "^String.concat " " tl in + + let result = { coq_t = ref { ott = false; tp = Undone }; + hol_t = ref { ott = false; tp = Undone }; + isa_t = ref { ott = false; tp = Undone }; + twelf_t = ref { ott = false; tp = Undone }; + caml_t = ref { ott = false; tp = Undone }; + latex_t = ref { ott = false; tp = Undone }; } in + pp ("\n*** " ^ tn ^ "\n"); + + (* ** preliminary *) + let name = "testRegr"^(string_of_int (Random.int 1000)) in + + (* ** run Coq *) + let cmd = "/home/nis/zappanar/source/update/Ott2/src/ott -coq "^name^".v " ^t ^" > /dev/null" in + pp ("*** Ott-Coq: " ^ cmd); + if (command cmd) = 0 + then begin + pp (" * success"); + let cmd = "coqc "^name^".v > /dev/null" in + pp ("*** Coq: " ^ cmd); + if (command cmd) = 0 then begin + result.coq_t := { ott = true; tp = Success }; + pp (" * success"); + remove (name^".vo") + end else begin + result.coq_t := { ott = true; tp = Failure }; + pp (" * failure"); + end; + remove (name^".v") + end else + pp (" * failure"); + + (* ** run Isa *) + let cmd = "/home/nis/zappanar/source/update/Ott2/src/ott -isabelle "^name^".thy " ^t ^" > /dev/null" in + pp ("*** Ott-Isa: " ^ cmd); + if (command cmd) = 0 + then begin + pp (" * success"); + let cmd = + "echo 'use_thy \"" ^ name + ^ "\" handle e => (OS.Process.exit OS.Process.failure);'" + ^ " | isabelle > /dev/null" in + pp ("*** Isa: " ^ cmd); + if (command cmd) = 0 then begin + result.isa_t := { ott = true; tp = Success }; + pp (" * success") + end else begin + result.isa_t := { ott = true; tp = Failure }; + pp (" * failure"); + end; + remove (name^".thy") + end else + pp (" * failure"); + + (* ** run HOL *) + let cmd = "/home/nis/zappanar/source/update/Ott2/src/ott -hol "^name^"Script.sml " ^t ^" > /dev/null" in + pp ("*** Ott-Hol: " ^ cmd); + if (command cmd) = 0 + then begin + pp (" * success"); + let cmd = "Holmake "^name^"Theory.uo &> /dev/null" in + pp ("*** HOL: " ^ cmd); + if (command cmd) = 0 then begin + result.hol_t := { ott = true; tp = Success }; + pp (" * success") + end else begin + result.hol_t := { ott = true; tp = Failure }; + pp (" * failure") + end; + if file_exists (name^"Theory.sml") then remove (name^"Theory.sml"); + if file_exists (name^"Theory.sig") then remove (name^"Theory.sig"); + if file_exists (name^"Theory.ui") then remove (name^"Theory.ui"); + if file_exists (name^"Script.sml") then remove (name^"Script.sml"); + if file_exists (name^"Theory.uo") then remove (name^"Theory.uo"); + end else + pp (" * failure"); + + (* ** run Twelf *) + let cmd = "/home/nis/zappanar/source/update/Ott2/src/ott -twelf "^name^".elf " ^t ^" > /dev/null" in + pp ("*** Ott-Twelf: " ^ cmd); + if (command cmd) = 0 + then begin + pp (" * success"); + let cmd = "./run_twelf "^name^".elf &> /dev/null" in + pp ("*** Twelf: " ^ cmd); + if (command cmd) = 0 then begin + result.twelf_t := { ott = true; tp = Success }; + pp (" * success") + end else begin + result.twelf_t := { ott = true; tp = Failure }; + pp (" * failure") + end; + if file_exists (name^".elf") then remove (name^".elf"); + end else + pp (" * failure"); + + (* ** run OCaml *) + let cmd = "/home/nis/zappanar/source/update/Ott2/src/ott -caml "^name^".ml " ^t ^" > /dev/null" in + pp ("*** Ott-Ocaml: " ^ cmd); + if (command cmd) = 0 + then begin + pp (" * success"); + let cmd = "ocamlc "^name^".ml > /dev/null" in + pp ("*** OCaml: " ^ cmd); + if (command cmd) = 0 then begin + result.caml_t := { ott = true; tp = Success }; + pp (" * success"); + remove (name^".cmi"); + remove (name^".cmo") + end else begin + result.caml_t := { ott = true; tp = Failure }; + pp (" * failure") + end; + remove (name^".ml") + end else + pp (" * failure"); + + (* ** run LaTeX *) + let cmd = "/home/nis/zappanar/source/update/Ott2/src/ott -tex "^name^".tex " ^t ^" > /dev/null" in + pp ("*** Ott-LaTeX: " ^ cmd); + if (command cmd) = 0 + then begin + pp (" * success"); + result.latex_t := { ott = true; tp = Skipped }; + remove (name^".tex") + end else + pp (" * failure"); + + (* ** return the result *) + result + +let print_result r = + ( match r.ott, r.tp with + | true, _ -> " + " + | false, Skipped -> " ? " + | false, _ -> " - " ) + ^ ( match r.tp with + | Success -> "+ " + | Failure -> "- " + | Skipped -> " " + | Undone -> " " ) + +let _ = + Random.self_init (); + putenv "PATH" "/home/nis/zappanar/source/coq/bin:/home/nis/zappanar/source/Isabelle/bin:/home/nis/zappanar/source/hol98/bin:/home/nis/zappanar/source/ocaml/bin:/usr/bin:/bin"; + putenv "TWELFSERVER" "/home/nis/zappanar/source/twelf/bin/twelf-server"; + report_fd := open_out ("report_"^hostname^".txt"); + parse_todo_list (); + + let elaborate_result (tn,result_t) = + summary := (tn,result_t) :: !summary in + + List.iter + ( fun (tn,tl) -> + let result_t = run_test (tn,tl) in + elaborate_result (tn,result_t) ) + !tests; + + (* ** print summary *) + List.iter + ( fun (t,r) -> + pp_report + ( print_result !(r.coq_t) + ^ print_result !(r.isa_t) + ^ print_result !(r.hol_t) + ^ print_result !(r.twelf_t) + ^ print_result !(r.caml_t) + ^ print_result !(r.latex_t) + ^ pp_fn t ) ) + !summary; + + close_out !report_fd + diff --git a/vendors/ott/regression/regression_p_master.ml b/vendors/ott/regression/regression_p_master.ml new file mode 100644 index 000000000000..5d21ab1cf460 --- /dev/null +++ b/vendors/ott/regression/regression_p_master.ml @@ -0,0 +1,207 @@ +(**************************************************************************) +(* Ott *) +(* *) +(* Peter Sewell, Computer Laboratory, University of Cambridge *) +(* Francesco Zappa Nardelli, Moscova project, INRIA Rocquencourt *) +(* *) +(* Copyright 2005-2007 *) +(* *) +(* Redistribution and use in source and binary forms, with or without *) +(* modification, are permitted provided that the following conditions *) +(* are met: *) +(* 1. Redistributions of source code must retain the above copyright *) +(* notice, this list of conditions and the following disclaimer. *) +(* 2. Redistributions in binary form must reproduce the above copyright *) +(* notice, this list of conditions and the following disclaimer in the *) +(* documentation and/or other materials provided with the distribution. *) +(* 3. The names of the authors may not be used to endorse or promote *) +(* products derived from this software without specific prior written *) +(* permission. *) +(* *) +(* THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS *) +(* OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED *) +(* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE *) +(* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY *) +(* DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL *) +(* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE *) +(* GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS *) +(* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER *) +(* IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR *) +(* OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN *) +(* IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. *) +(**************************************************************************) + +open Unix +open Sys + +let machines = + List.map (fun n -> "clus64a"^(string_of_int n)^".mdkclus64a.lan") + [ 1;2;3;4;5;6;7;8;9;10;11;12 ] +let no_machines = List.length machines + +(* ** options *) +let compute_baseline = ref false +let baseline_file_name = ref "baseline.bl" +let todo_list_file = ref "regression.otl" +let todo_list = ref false +let tests = ref [] +let dump_baseline = ref false +let night = ref false +let emails = ref [] +let dump_report = ref false + +(* ** state *) +let progressions = ref 0 +let regressions = ref 0 +let ott_progressions = ref 0 +let ott_regressions = ref 0 +let coq_progressions = ref 0 +let coq_regressions = ref 0 +let caml_progressions = ref 0 +let caml_regressions = ref 0 +let isa_progressions = ref 0 +let isa_regressions = ref 0 +let hol_progressions = ref 0 +let hol_regressions = ref 0 +let latex_progressions = ref 0 +let latex_regressions = ref 0 +let twelf_progressions = ref 0 +let twelf_regressions = ref 0 +let report_fd = ref Pervasives.stdout + +(* let _ = *) +(* if !night then begin *) +(* putenv "CVSROOT" ":pserver:zappa@localhost:/usr/groups/netsem/dynsem/cvs"; *) +(* putenv "CVS_RSH" "ssh"; *) +(* putenv "PATH" "/home/yquem/moscova/zappa/bin:/home/yquem/moscova/zappa/source/godi/bin:/usr/bin:/bin"; *) +(* putenv "TWELFSERVER" "/home/yquem/moscova/zappa/lib/twelf/bin/twelf-server"; *) +(* end *) + +let pp_fn s = + Filename.basename s + +let error s = + print_endline ("regression: " ^ s); + exit 1 + +let pp s = + if not !night then print_endline s + +let pp_report s = + output_string !report_fd s; + output_char !report_fd '\n' + +let execute_cmd_list l = + List.iter + (fun c -> + print_endline ("*** executing "^c); + let status = system c in + match status with + | WEXITED n -> if not (n= 0) then error ("error while executing "^c) + | _ -> error ("error2 while executing "^c) ) + l + +let parse_todo_list () = + let rec parse_lines fd = + try + let l = input_line fd in + let pl = Str.split (Str.regexp "[ \t]+") l in + ( match pl with + | t::[] -> tests := (t,[t]) :: !tests + | n::":"::tl -> tests := (n,tl) :: !tests + | _ -> error ("malformed line in todo_list: "^l^"\n") ); + print_endline ("todolist"^String.concat " " pl); + parse_lines fd + with End_of_file -> () + in + if not (file_exists !todo_list_file) + then error ("todo_list file does not exists"); + let todo_fd = open_in !todo_list_file in + parse_lines todo_fd; + close_in todo_fd + +let dump_todo_list m l = + let fd = open_out ("regr_todo_"^m^".otl") in + let rec dump_lines f = + match f with + (n,tl)::tail -> + if List.length tl = 1 + then output_string fd ((List.hd tl)^"\n") + else output_string fd (n^" : "^(String.concat " " tl)^"\n"); + dump_lines tail + | [] -> close_out fd + in dump_lines l + +let generate_tasks () = + let rec gen_buf n buf = + if n = 0 then buf else gen_buf (n-1) ([]::buf) in + let rec gen tests buf = + match tests with + | [] -> buf + | h::t -> + ( match buf with + | bh::bt -> gen t (bt @ [(h::bh)]) ) + in gen !tests (gen_buf no_machines []) + +let options = + Arg.align + [ ("-email", + Arg.String (fun s -> emails := s::!emails), + " send the night report to"); + ("-report", + Arg.Unit (fun () -> dump_report := true), + " dump a report of the outcome of the tests"); + ] + +let collect_results () = + let result_files = + List.map (fun x -> "report_"^x^".txt") machines in + execute_cmd_list [ "cat " ^ (String.concat " " result_files) ^ " > report.txt" ]; + execute_cmd_list [ "rm " ^ (String.concat " " result_files) ] + +let _ = + Random.self_init (); + Arg.parse options + (fun s -> tests := (s,[s]) :: !tests) + ("\n" ^ "regression .. \n"); + tests := List.rev !tests; + putenv "PATH" "/home/nis/zappanar/source/ocaml/bin:/usr/bin:/bin"; + chdir "/home/nis/zappanar/source/update/Ott2/tests/"; + execute_cmd_list [ "cvs update" ]; + chdir "/home/nis/zappanar/source/update/Ott2/examples/tapl/"; + execute_cmd_list [ "cvs update" ]; + chdir "/home/nis/zappanar/source/update/Ott2/src"; + let cmd_list = + [ "env"; + "cvs update"; + "make > /dev/null"; + "make tmp_test7a.ott"; + "make tmp_test7.ott" ] in + execute_cmd_list cmd_list; + parse_todo_list (); + let tasks = generate_tasks () in + List.iter2 dump_todo_list machines tasks; + putenv "GEXEC_SVRS" (String.concat " " machines); + +(* execute_cmd_list [ "echo $GEXEC_SVRS"; "gexec -n 12 hostname" ] *) + execute_cmd_list [ "gexec -n 0 /home/nis/zappanar/source/update/Ott2/src/regression_p_client" ]; + + collect_results () + + + +(* main (); *) +(* if !night then begin *) +(* close_out !report_fd; *) +(* let date = Unix.localtime (Unix.time ()) in *) +(* let subject = *) +(* Printf.sprintf ("[Ott regression report] %d/%d/%d") *) +(* date.tm_mday *) +(* date.tm_mon *) +(* (1900 + date.tm_year) in *) +(* let cmd_list = *) +(* List.map *) +(* (fun e -> "mail -s '" ^ subject ^ "' " ^ e ^ " < report.txt" ) *) +(* !emails in *) +(* execute_cmd_list cmd_list *) +(* end *) diff --git a/vendors/ott/regression/regression_para.ml b/vendors/ott/regression/regression_para.ml new file mode 100644 index 000000000000..7645a8f6ac13 --- /dev/null +++ b/vendors/ott/regression/regression_para.ml @@ -0,0 +1,586 @@ +(**************************************************************************) +(* Ott *) +(* *) +(* Peter Sewell, Computer Laboratory, University of Cambridge *) +(* Francesco Zappa Nardelli, Moscova project, INRIA Rocquencourt *) +(* *) +(* Copyright 2005-2006 *) +(* *) +(* Redistribution and use in source and binary forms, with or without *) +(* modification, are permitted provided that the following conditions *) +(* are met: *) +(* 1. Redistributions of source code must retain the above copyright *) +(* notice, this list of conditions and the following disclaimer. *) +(* 2. Redistributions in binary form must reproduce the above copyright *) +(* notice, this list of conditions and the following disclaimer in the *) +(* documentation and/or other materials provided with the distribution. *) +(* 3. The names of the authors may not be used to endorse or promote *) +(* products derived from this software without specific prior written *) +(* permission. *) +(* *) +(* THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS *) +(* OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED *) +(* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE *) +(* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY *) +(* DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL *) +(* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE *) +(* GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS *) +(* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER *) +(* IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR *) +(* OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN *) +(* IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. *) +(**************************************************************************) + +open Unix +open Sys + +type outcome = Success | Failure | Undone | Skipped + +type tp_result = { ott : bool; tp : outcome } + +type result = + { coq_t : tp_result ref; + hol_t : tp_result ref; + isa_t : tp_result ref; + twelf_t : tp_result ref; + caml_t : tp_result ref; + latex_t : tp_result ref } + +(* ** options *) +let compute_baseline = ref false +let baseline_file_name = ref "baseline.bl" +let use_config = ref false +let config_file_name = ref "config.otr" +let todo_list_file = ref "regression.otl" +let todo_list = ref false +let tests = ref [] +let isa_test = ref true +let caml_test = ref true +let coq_test = ref true +let hol_test = ref true +let twelf_test = ref true +let latex_test = ref true +let dump_baseline = ref false +let night = ref false +let emails = ref [] +let dump_report = ref false + +(* ** state *) +let progressions = ref 0 +let regressions = ref 0 +let ott_progressions = ref 0 +let ott_regressions = ref 0 +let coq_progressions = ref 0 +let coq_regressions = ref 0 +let caml_progressions = ref 0 +let caml_regressions = ref 0 +let isa_progressions = ref 0 +let isa_regressions = ref 0 +let hol_progressions = ref 0 +let hol_regressions = ref 0 +let latex_progressions = ref 0 +let latex_regressions = ref 0 +let twelf_progressions = ref 0 +let twelf_regressions = ref 0 +let summary = ref [] +let report_fd = ref Pervasives.stdout +let config_state = ref [] + +let _ = + putenv "CVSROOT" ":pserver:zappa@localhost:/usr/groups/netsem/dynsem/cvs"; + putenv "CVS_RSH" "ssh"; + putenv "PATH" "/home/nis/zappanar/source/coq/bin:/home/nis/zappanar/source/Isabelle/bin:/home/nis/zappanar/source/hol98/bin:/home/nis/zappanar/source/ocaml/bin:/usr/bin:/bin"; + putenv "TWELFSERVER" "/home/nis/zappanar/source/twelf/bin/twelf-server"; + print_endline "CIAO" + + + +let pp_fn s = + Filename.basename s + +let error s = + print_endline ("regression: " ^ s); + exit 1 + +let pp s = + if not !night then print_endline s + +let pp_report s = + output_string !report_fd s; + output_char !report_fd '\n' + +let execute_cmd_list l = + List.iter + (fun c -> + print_endline ("*** executing "^c); + let status = system c in + match status with + | WEXITED n -> if not (n= 0) then error ("error while executing "^c) + | _ -> error ("error2 while executing "^c) ) + l + +let parse_todo_list () = + let rec parse_lines fd = + try + let l = input_line fd in + let pl = Str.split (Str.regexp "[ \t]+") l in + ( match pl with + | t::[] -> tests := (t,[t]) :: !tests + | n::":"::tl -> tests := (n,tl) :: !tests + | _ -> error ("malformed line in todo_list: "^l^"\n") ); + print_endline ("todolist"^String.concat " " pl); + parse_lines fd + with End_of_file -> () + in + if not (file_exists !todo_list_file) + then error ("todo_list file does not exists"); + let todo_fd = open_in !todo_list_file in + parse_lines todo_fd; + close_in todo_fd + +let parse_config_file () = + let convert c = + match c with + | "+" -> true + | "." -> false + | _ -> error "malformed entry in config file" in + let rec parse_lines fd = + try + let l = input_line fd in + let pl = Str.split (Str.regexp "[ \t]+") l in + match pl with + | c::i::h::t::o::l::n::[] -> + let c = convert c in + let i = convert i in + let h = convert h in + let t = convert t in + let o = convert o in + let l = convert l in + config_state := (n,(c,i,h,t,o,l))::!config_state; + Printf.printf "config: %s %b %b %b %b %b %b\n" n c i h t o l; + parse_lines fd + | _ -> error "malformed line in config file" + with End_of_file -> () in + if not (file_exists !config_file_name) + then error ("config file does not exists"); + let config_fd = open_in !config_file_name in + parse_lines config_fd; + close_in config_fd + + +let rec search t state = + match state with + | [] -> raise Not_found + | (x,e)::tl -> if (String.compare x t = 0) then e else search t tl + +let check_config t tp = + try + if !use_config + then + let entry = search t !config_state in + ( match tp, entry with + | "Coq", (c,_,_,_,_,_) -> c + | "Isa", (_,i,_,_,_,_) -> i + | "HOL", (_,_,h,_,_,_) -> h + | "Twelf", (_,_,_,t,_,_) -> t + | "OCaml", (_,_,_,_,o,_) -> o + | "LaTeX", (_,_,_,_,_,l) -> l + | _,_ -> failwith "Never happen" ) + else true + with Not_found -> print_endline ("*** test "^t^" not found in config file"); true + +let run_test (tn,tl) = + let t = + if List.length tl = 1 + then List.hd tl + else "-merge true "^String.concat " " tl in + + let result = { coq_t = ref { ott = false; tp = Undone }; + hol_t = ref { ott = false; tp = Undone }; + isa_t = ref { ott = false; tp = Undone }; + twelf_t = ref { ott = false; tp = Undone }; + caml_t = ref { ott = false; tp = Undone }; + latex_t = ref { ott = false; tp = Undone }; } in + pp ("\n*** " ^ tn ^ "\n"); + + (* ** preliminary *) + let name = "testRegr"^(string_of_int (Random.int 1000)) in + + (* ** run Coq *) + if (not !coq_test) || (not (check_config tn "Coq")) + then result.coq_t := { ott = false; tp = Skipped } + else begin + let cmd = "/home/nis/zappanar/source/update/Ott2/src/ott -coq "^name^".v " ^t ^" > /dev/null" in + pp ("*** Ott-Coq: " ^ cmd); + if (command cmd) = 0 + then begin + pp (" * success"); + let cmd = "coqc "^name^".v > /dev/null" in + pp ("*** Coq: " ^ cmd); + if (command cmd) = 0 then begin + result.coq_t := { ott = true; tp = Success }; + pp (" * success"); + remove (name^".vo") + end else begin + result.coq_t := { ott = true; tp = Failure }; + pp (" * failure"); + end; + remove (name^".v") + end else + pp (" * failure"); + end; + + (* ** run Isa *) + if (not !isa_test) || (not (check_config tn "Isa")) + then result.isa_t := { ott = false; tp = Skipped } + else begin + let cmd = "/home/nis/zappanar/source/update/Ott2/src/ott -isabelle "^name^".thy " ^t ^" > /dev/null" in + pp ("*** Ott-Isa: " ^ cmd); + if (command cmd) = 0 + then begin + pp (" * success"); + let cmd = + "echo 'use_thy \"" ^ name + ^ "\" handle e => (OS.Process.exit OS.Process.failure);'" + ^ " | isabelle > /dev/null" in + pp ("*** Isa: " ^ cmd); + if (command cmd) = 0 then begin + result.isa_t := { ott = true; tp = Success }; + pp (" * success") + end else begin + result.isa_t := { ott = true; tp = Failure }; + pp (" * failure"); + end; + remove (name^".thy") + end else + pp (" * failure"); + end; + + (* ** run HOL *) + if (not !hol_test) || (not (check_config tn "HOL")) + then result.hol_t := { ott = false; tp = Skipped } + else begin + let cmd = "/home/nis/zappanar/source/update/Ott2/src/ott -hol "^name^"Script.sml " ^t ^" > /dev/null" in + pp ("*** Ott-Hol: " ^ cmd); + if (command cmd) = 0 + then begin + pp (" * success"); + let cmd = "Holmake "^name^"Theory.uo &> /dev/null" in + pp ("*** HOL: " ^ cmd); + if (command cmd) = 0 then begin + result.hol_t := { ott = true; tp = Success }; + pp (" * success") + end else begin + result.hol_t := { ott = true; tp = Failure }; + pp (" * failure") + end; + if file_exists (name^"Theory.sml") then remove (name^"Theory.sml"); + if file_exists (name^"Theory.sig") then remove (name^"Theory.sig"); + if file_exists (name^"Theory.ui") then remove (name^"Theory.ui"); + if file_exists (name^"Script.sml") then remove (name^"Script.sml"); + if file_exists (name^"Theory.uo") then remove (name^"Theory.uo"); + end else + pp (" * failure"); + end; + + (* ** run Twelf *) + if (not !twelf_test) || (not (check_config tn "Twelf")) + then result.twelf_t := { ott = false; tp = Skipped } + else begin + let cmd = "/home/nis/zappanar/source/update/Ott2/src/ott -twelf "^name^".elf " ^t ^" > /dev/null" in + pp ("*** Ott-Twelf: " ^ cmd); + if (command cmd) = 0 + then begin + pp (" * success"); + let cmd = "./run_twelf "^name^".elf &> /dev/null" in + pp ("*** Twelf: " ^ cmd); + if (command cmd) = 0 then begin + result.twelf_t := { ott = true; tp = Success }; + pp (" * success") + end else begin + result.twelf_t := { ott = true; tp = Failure }; + pp (" * failure") + end; + if file_exists (name^".elf") then remove (name^".elf"); + end else + pp (" * failure"); + end; + + (* ** run OCaml *) + if (not !caml_test) || (not (check_config tn "OCaml")) + then result.caml_t := { ott = false; tp = Skipped } + else begin + let cmd = "/home/nis/zappanar/source/update/Ott2/src/ott -caml "^name^".ml " ^t ^" > /dev/null" in + pp ("*** Ott-Ocaml: " ^ cmd); + if (command cmd) = 0 + then begin + pp (" * success"); + let cmd = "ocamlc "^name^".ml > /dev/null" in + pp ("*** OCaml: " ^ cmd); + if (command cmd) = 0 then begin + result.caml_t := { ott = true; tp = Success }; + pp (" * success"); + remove (name^".cmo") + end else begin + result.caml_t := { ott = true; tp = Failure }; + pp (" * failure") + end; + remove (name^".ml") + end else + pp (" * failure"); + end; + + (* ** run LaTeX *) + if (not !latex_test) || (not (check_config tn "LaTeX")) + then result.latex_t := { ott = false; tp = Skipped } + else begin + let cmd = "/home/nis/zappanar/source/update/Ott2/src/ott -tex "^name^".tex " ^t ^" > /dev/null" in + pp ("*** Ott-LaTeX: " ^ cmd); + if (command cmd) = 0 + then begin + pp (" * success"); + let cmd = "latex -interaction=batchmode "^name^".tex > /dev/null" in + pp ("*** LaTeX: " ^ cmd); + if (command cmd) = 0 then begin + result.latex_t := { ott = true; tp = Success }; + pp (" * success"); + remove (name^".dvi"); + remove (name^".aux"); + remove (name^".log"); + end else begin + result.latex_t := { ott = true; tp = Failure }; + pp (" * failure"); + if file_exists (name^".log") then remove (name^".log"); + if file_exists (name^".aux") then remove (name^".aux"); + end; + remove (name^".tex") + end else + pp (" * failure"); + end; + + (* ** return the result *) + result + +let run_test_p (tn,tl) = + (tn, run_test(tn,tl)) + +let report tp a b = + if a.ott && not b.ott + then begin + progressions := !progressions + 1; + ott_progressions := !ott_progressions + 1 + end else + if not a.ott && b.ott + then begin + regressions := !regressions + 1; + ott_regressions := !ott_regressions + 1 + end; + + if (a.tp = Success) && (b.tp = Failure) + then begin + progressions := !progressions + 1; + ( match tp with + | "Coq" -> coq_progressions := !coq_progressions + 1 + | "Isa" -> isa_progressions := !isa_progressions + 1 + | "HOL" -> hol_progressions := !hol_progressions + 1 + | "Twelf" -> twelf_progressions := !twelf_progressions + 1 + | "OCaml" -> caml_progressions := !caml_progressions + 1 + | "LaTeX" -> latex_progressions := !latex_progressions + 1 + | _ -> failwith "never happens" ); + pp ("*** progression:" ^ tp) end + else if (b.tp = Success) && (a.tp = Failure) + then begin + regressions := !regressions + 1; + ( match tp with + | "Coq" -> coq_regressions := !coq_regressions + 1 + | "Isa" -> isa_regressions := !isa_regressions + 1 + | "HOL" -> hol_regressions := !hol_regressions + 1 + | "Twelf" -> twelf_regressions := !twelf_regressions + 1 + | "OCaml" -> caml_regressions := !caml_regressions + 1 + | "LaTeX" -> latex_regressions := !latex_regressions + 1 + | _ -> failwith "never happens" ); + pp ("*** regression:" ^ tp) end + else () + +let print_result r = + ( match r.ott, r.tp with + | true, _ -> " + " + | false, Skipped -> " ? " + | false, _ -> " - " ) + ^ ( match r.tp with + | Success -> "+ " + | Failure -> "- " + | Skipped -> " " + | Undone -> " " ) + +let dump_baseline_fc () = + if not (file_exists !baseline_file_name) + then error ("baseline file does not exists"); + let baseline_fd = open_in !baseline_file_name in + let baseline = Marshal.from_channel baseline_fd in + pp " Coq Isa HOL Twelf OCaml LaTeX"; + List.iter + ( fun (t,r) -> + pp + ( print_result !(r.coq_t) + ^ print_result !(r.isa_t) + ^ print_result !(r.hol_t) + ^ print_result !(r.twelf_t) + ^ print_result !(r.caml_t) + ^ print_result !(r.latex_t) + ^ t) ) + baseline; + close_in baseline_fd + +let compute_baseline_fc () = + let baseline = ref [] in + List.iter + ( fun t -> + let result_t = run_test t in + baseline := ((fst t),result_t)::!baseline ) + !tests; + if file_exists !baseline_file_name then remove !baseline_file_name; + let baseline_fd = open_out_bin !baseline_file_name in + Marshal.to_channel baseline_fd !baseline []; + close_out baseline_fd; + pp "\n*** baseline built succesfully" + +(* the skeleton expression to compute a test *) +let run_test_para = parfun(fun()->farm(seq(fun()->run_test_p),2));; (* FZ fix 2 *) + +pardo (fun () -> + Random.self_init (); + putenv "PATH" "/home/nis/zappanar/source/coq/bin:/home/nis/zappanar/source/Isabelle/bin:/home/nis/zappanar/source/hol98/bin:/home/nis/zappanar/source/ocaml/bin:/usr/bin:/bin"; + putenv "TWELFSERVER" "/home/nis/zappanar/source/twelf/bin/twelf-server"; + chdir "/home/nis/zappanar/source/update/Ott2/tests/"; + execute_cmd_list [ "cvs update" ]; + chdir "/home/nis/zappanar/source/update/Ott2/examples/tapl/"; + execute_cmd_list [ "cvs update" ]; + chdir "/home/nis/zappanar/source/update/Ott2/src"; + let cmd_list = + [ "env"; + "cvs update"; + "make > /dev/null"; + "make tmp_test7a.ott"; + "make tmp_test7.ott" ] in + execute_cmd_list cmd_list; + report_fd := open_out "report.txt"; + + (* if !use_config then parse_config_file (); *) + parse_todo_list (); + + (* ** open the baseline file *) + if not (file_exists !baseline_file_name) + then error ("baseline file does not exists"); + let baseline_fd = open_in_bin !baseline_file_name in + let baseline = (Marshal.from_channel baseline_fd : (string * result) list) in + print_endline "content of baseline"; + List.iter (fun (n,_) -> print_endline n) baseline; + print_endline "end content of baseline"; + + let elaborate_result (tn,result_t) = + summary := (tn,result_t) :: !summary; + try + let result_baseline = List.assoc tn baseline in + report "Coq" !(result_t.coq_t) !(result_baseline.coq_t); + report "Isa" !(result_t.isa_t) !(result_baseline.isa_t); + report "HOL" !(result_t.hol_t) !(result_baseline.hol_t); + report "Twelf" !(result_t.twelf_t) !(result_baseline.twelf_t); + report "OCaml" !(result_t.caml_t) !(result_baseline.caml_t); + report "LaTeX" !(result_t.latex_t) !(result_baseline.latex_t); + with Not_found -> pp ("*** test " ^ tn ^ " not in the baseline") in + + (* ** here we do the parallel stuff *) + P3lstream.iter elaborate_result (run_test_para (P3lstream.of_list !tests)); +(* List.iter *) +(* ( fun (tn,tl) -> *) +(* let result_t = run_test (tn,tl) in *) +(* elaborate_result (tn,result_t) ) *) +(* !tests; *) + + (* ** print summary *) + pp_report ("\n*** final report"); + + pp_report "\n*** results"; + pp_report "\n Coq Isa HOL Twelf OCaml LaTeX"; + List.iter + ( fun (t,r) -> + pp_report + ( print_result !(r.coq_t) + ^ print_result !(r.isa_t) + ^ print_result !(r.hol_t) + ^ print_result !(r.twelf_t) + ^ print_result !(r.caml_t) + ^ print_result !(r.latex_t) + ^ pp_fn t ) ) + !summary; + + pp_report + ( "\n*** progressions: " ^ (string_of_int !progressions) + ^ " (Ott : " ^ (string_of_int !ott_progressions)^")" + ^ " (Coq : " ^ (string_of_int !coq_progressions)^")" + ^ " (Isa : " ^ (string_of_int !isa_progressions)^")" + ^ " (Hol : " ^ (string_of_int !hol_progressions)^")" + ^ " (Twelf : " ^ (string_of_int !twelf_progressions)^")" + ^ " (OCaml : " ^ (string_of_int !caml_progressions)^")" + ^ " (LaTeX : " ^ (string_of_int !latex_progressions)^")" ); + pp_report + ("*** regressions: " ^ (string_of_int !regressions) + ^ " (Ott : " ^ (string_of_int !ott_regressions)^")" + ^ " (Coq : " ^ (string_of_int !coq_regressions)^")" + ^ " (Isa : " ^ (string_of_int !isa_regressions)^")" + ^ " (Hol : " ^ (string_of_int !hol_regressions)^")" + ^ " (Twelf : " ^ (string_of_int !twelf_regressions)^")" + ^ " (OCaml : " ^ (string_of_int !caml_regressions)^")" + ^ " (LaTeX : " ^ (string_of_int !latex_progressions)^")" ); + + let p_out n b = + let s_ott = + if n.tp = Skipped then " S " else + if n.ott && not b.ott then " + " else + if b.ott && not n.ott then " - " else " " in + let s_tp = + if (b.tp = Success) && (n.tp = Failure) then "- " + else if (b.tp = Failure) && (n.tp = Success) then "+ " + else if (n.tp = Skipped) || (b.tp = Skipped) then " " + else " " in + s_ott ^ s_tp in + + pp_report "\n Coq Isa HOL Twelf OCaml LaTeX"; + List.iter + ( fun (t,r) -> + try + let b = List.assoc t baseline in + pp_report + ( p_out !(r.coq_t) !(b.coq_t) + ^ p_out !(r.isa_t) !(b.isa_t) + ^ p_out !(r.hol_t) !(b.hol_t) + ^ p_out !(r.twelf_t) !(b.twelf_t) + ^ p_out !(r.caml_t) !(b.caml_t) + ^ p_out !(r.latex_t) !(b.latex_t) + ^ pp_fn t ) + with Not_found -> pp_report (" ? ? ? ? ? ? " ^ t) ) + !summary; + close_in baseline_fd; + + if (!regressions = 0) && (!progressions > 0) + then begin + if file_exists !baseline_file_name then remove !baseline_file_name; + let baseline_fd = open_out_bin !baseline_file_name in + Marshal.to_channel baseline_fd !summary []; + close_out baseline_fd; + end; + + close_out !report_fd; + let date = Unix.localtime (Unix.time ()) in + let subject = + Printf.sprintf ("[Ott regression report] %d/%d/%d") + date.tm_mday + date.tm_mon + (1900 + date.tm_year) in + let cmd_list = + List.map + (fun e -> "mail -s '" ^ subject ^ "' " ^ e ^ " < report.txt" ) + !emails in + execute_cmd_list cmd_list + ) diff --git a/vendors/ott/regression/tests_not_in_regression.otl b/vendors/ott/regression/tests_not_in_regression.otl new file mode 100644 index 000000000000..b9fced537769 --- /dev/null +++ b/vendors/ott/regression/tests_not_in_regression.otl @@ -0,0 +1,27 @@ +in github ott/tests but not in regression.otl: + +binding.1.ott +binding.2.ott +binding.3.ott +binding.4.ott +binding.5.ott +binding.6b.ott +binding.6.ott +menhir_tests +non_super_tabular.ott +squishtex.ott +test10_homs.ott +test10literate +test10menhir +test10.ott +test10rdx.ott +test10typing_minimal.ott +test13d.ott +test17.10.ott +test21.1.ott +test7a.ott +test7b.ott +test7.ott +test7t.mng +test7tt.mng + diff --git a/vendors/ott/regression/tp_check.sh b/vendors/ott/regression/tp_check.sh new file mode 100755 index 000000000000..95b8b0202c66 --- /dev/null +++ b/vendors/ott/regression/tp_check.sh @@ -0,0 +1,80 @@ +#!/bin/sh + +# simple regression test + +# Usage: +# tp_check.sh file_name file_name is processed by Ott, Coq, Isabelle, and HOL +# tp_check.sh runs Ott, Coq, Isabelle, and HOL over all files in TEST_FILES + +TEST_DIR="../tests/" +TEST_FILES="test1.txt test2.txt test3.txt test4.txt test5.txt test6.txt test8.txt test9.txt test10.ott test10st.ott test11.ott test12.ott test13.ott test13b.ott test14.ott" + +# do not edit below this line + +no_tests=0 +succ_isa=0 +succ_coq=0 +succ_ott=0 +succ_hol=0 + +function test { + no_tests=`expr $no_tests + 1` + echo "*** processing "$1 + rm -f outTheory.* # just in case Holmake is wierd + + ./ott -colour true -showraw false -coq out.v -isabelle out.thy $1 > /dev/null + + if [ $? = 0 ] + then + succ_ott=`expr $succ_ott + 1` + # running coqc + coqc out.v > /dev/null + if [ $? = 0 ] + then + echo " * Coq: SUCCESS" + succ_coq=`expr $succ_coq + 1` + rm out.vo + else + echo " * Coq: FAILURE" + fi + # running isabelle + echo 'use_thy "out" handle e => (OS.Process.exit OS.Process.failure);' | isabelle > /dev/null + if [ $? = 0 ] + then + echo " * Isa: SUCCESS" + succ_isa=`expr $succ_isa + 1` + else + echo " * Isa: FAILURE" + fi + # running hol + Holmake outTheory.uo &> /dev/null + if [ $? = 0 ] + then + echo " * HOL: SUCCESS" + succ_hol=`expr $succ_hol + 1` + rm outTheory.* + else + echo " * HOL: FAILURE" + rm -f outTheory.* + fi + + else + echo " * Ott: FAILURE" + fi + } + +if [ -n "$1" ] +then test $1 +else + for file in $TEST_DIR*.ott + do + test $file + done + echo "*** No test: "$no_tests + echo " * Ott : "$succ_ott + echo " * Coq : "$succ_coq + echo " * Isa : "$succ_isa + echo " * HOL : "$succ_hol +fi + +exit diff --git a/vendors/ott/revision_history.txt b/vendors/ott/revision_history.txt new file mode 100644 index 000000000000..8de74c3a0274 --- /dev/null +++ b/vendors/ott/revision_history.txt @@ -0,0 +1,505 @@ +2006.09.13 Version 0.04 +2006.11.01 Version 0.04.2 +2006.12.20 Version 0.10 initial public release + +2006.12.20 Version 0.10.1 +- include missing HOL file ottDefine.sml + +2006.12.22 Version 0.10.2 +- include missing ottmode.el + +2007.01.19 Version 0.10.3 +- bugfixes +- new examples: various TAPL fragments, and an OCaml fragment with + concurrency (peterson_caml.ott) +- generation of OCaml code for type definitions and generated + functions (substitution etc) +- merge option to merge ott source files +- improved HOL support infrastructure + +2007.01.24 Version 0.10.4 +- bugfix: allow "-" in bindspec lexing + +2007.02.07 Version 0.10.5 +- various bugfixes (mostly w.r.t. Coq list support) +- various improvements to examples +- document generation of OCaml code +- (breaking) source syntax changes: keyword "rules" is now replaced by + "grammar", and hom "caml" is replaced by "ocaml" + +2007.04.06 Version 0.10.6 +- fixes and additional examples + +2007.07.18 Version 0.10.7 +- bug fixes + +2007.08.13 Version 0.10.8 +- rename module Aux to Auxl, to work around a Windows problem + +2007.08.28 Version 0.10.9 +- add Windows binary-only release + +2007.09.04 Version 0.10.10 +- new manual, in browsable html, pdf and postscript +- new tex style for typesetting rules (in the tex/ directory) +- move emacs mode and hol auxiliaries into new emacs/ and hol/ directories + +2007.09.28 Version 0.10.11 +- fix bug in Windows version: properly open files in binary mode when writesys and readsys + +2007.10.05 Version 0.10.12 +- add missing file from Coq proof support: ott_list_eq_dec.v + +2007.10.18 Version 0.10.13 +- new (experimental!) switch -picky_multiple_parses , + to allow multiple parses if the generated code is + identical - at present only for filtered LaTeX +- some source documentation + +2008.02.15 Version 0.10.14 +- new parser, with better performance and better support for disambiguation + (see Section 14 "Parsing Priorities" in the manual, and changes to + Section 20 "Reference: The language of symbolic terms") +- new support for context grammars, with automatically generated + hole-filling functions (see Section 13 "Context rules" in the manual) +- new syntactic sugar flavour of metaproductions: writing "S" instead + of "M" gives metaproductions that can be used in concrete terms +- various bugfixes + +2008.12.16 Version 0.10.15 +- support for Isabelle 2008 (Isabelle 2005 syntax no longer produced) +- new option -isabelle_primrec : if set to false then ott + generates "fun"s instead of "primrec"s (though Isabelle can only + sometimes automatically prove termination of these "fun"s). +- new declaration "phantom" to turn off type generation for metavariables. + +2009.3.9 Version 0.10.16 +- release of the experimental Coq locally-nameless backend +- aesthetic improvements of the Coq output +- -show-post-sort and -show-defns are now by default to make + output less noisy + +2009.7.19 Version 0.10.17 + +- fix ocamlvar hom bug +- fix bug in Coq backend when dealing with some kinds of dot forms +- suppress printing of number of good/bad definition rules if + there are no rules +- change -tex_show_meta false behaviour to not suppress sugar + productions +- add % at line ends in rules, to prevent extra spaces (per BCP patch) +- remove doc references to the Windows binary distribution. It should + be easy to build from source, but we don't have access to a + suitable machine. + + +2010.3.24 Version 0.10.18alpha + +- The previous command-line options -coq, -hol, etc., are no longer + supported; they should be replaced by -o. + +- By default (unless -merge true is set) the order of the input file + is preserved, so one can have mixed sequences of definitions of + grammar, of inductive relations, and of embed blocks. + +- New command-line options -i and -o for + specifying multiple input and output files. Input files with + non-.ott extensions (.v, .thy, .sml, .ml, .tex) are copied verbatim + into the respective outputs. The command-line order of these + options is significant: the prover output can be split into + multiple output files; each prover output file specified with -o + will contain the material from the previous input files specified + with -i (since the last -o for this prover). + +- Better tex default spacing, distinguishing alphabetic and other + ("symbolic") terminals based on their ott source strings and + wrapping them in \ottkw{} and \ottsym{} respectively. + +- Support for in-line prover code in premises, e.g. + + {{ prover code mentioning [[x]] and [[\y.z]] }} + ----------------------------------------------- :: rulename + conclusion + +- The {{ phantom }} hom can now be applied to metavariables and to + nonterminal rules. In both cases it suppresses generation of a prover + or OCaml definition, but any type homs are taken into account when + the metavariable or nonterminal root is output as a type. + +- There is a new hom {{ order ... }} that can be applied to + productions which lets one specify the order of arguments of a + prover or OCaml constructor independently of the order in which they + appear in the production. For example, one might say: + + | e1 e2 :: :: ReversedApp {{ order [[e2]] [[e1]] }} + +- There is a new hom {{ coq-universe UniverseName }} that can be + applied to metavariable or nonterminal rules, eg to force Ott to + generate definitions in Type instead of in Set. + +- Changed some debug options (eg show-pre-sort) + +- Ocaml list homs on productions are now permitted + +- add coq_lngen option for compatibility with the lngen tool + +- Bug fixes: + - problem with comment line in defns terminated with EOF [Jianzhou Zhao] + - freshness of identifier in Ott generated functions [Jianzhou Zhao] + - processing of parse tree for some cases of dot forms [Scott Owens] + - processing of picky_multiple_parses [Scott Owens] + - added some error checks + - several fixes in the Coq locally-nameless backend [Stephanie Weirich] + - performance issue when using contextrules [Nicolas Pouillard] + - parens in OCaml substitutions for multiple binders [Vilhelm Sjoberg] + + +2010.03.29 Version 0.20 + +- The order among mutually recursive nonterminal definitions in + grammar blocks is now preserved in prover output. + +2010.04.04 Version 0.20.1 + +- Support coq-universe hom on blocks of definitions, eg: + + defns + Jop :: '' ::= {{ coq-universe Type }} + + defn + t1 --> t2 :: ::reduce::'' by + + + -------------------------- :: ax_app + (\x.t1) v2 --> {v2/x}t1 + + +2010.06.29 + +- refactor the generated latex for grammars so that condensed grammars + can be produced by redefining a couple of latex commands, eg + + \renewcommand{\ottgrammartabular}[1]{{\raggedright #1}} + \renewcommand{\ottrulehead}[3]{$#1$ $#2$ } + \renewcommand{\ottprodline}[6]{{}\ ${}#1$\mbox{\ {}$#2$}{}} + \renewcommand{\ottfirstprodline}[6]{{}\ ${}$\mbox{\ {}$#2$}{}} + \renewcommand{\ottprodnewline}{} + \renewcommand{\ottinterrule}{\\[1mm]} + +- add experimental option (-ocaml_include_terminals true) to include, in + generated OCaml types, an instance of "terminal" in all the places + where there's a terminal in the AST + +- gforge bugtracker now in use:https://gforge.inria.fr/tracker/?group_id=2980 + +2010.11.28 Version 0.20.3 + +- fixes to bugs: + + 11367 coq-universe Type problem with non-native lists + 11368 generation of induction principles in Ott 0.20 + 11369 0 and O in generated Ott lists + 11377 {{}} hypothesis and ln backend + 11378 context rules and ln backend + +- (feature request 11373) Support for explicit naming of premises in + inductive rules for the Coq backend. For instance, adding the + [[:RED]] annotation below + + t1 --> t1' [[:RED]] + -------------------- :: ctx_app_arg + v t1 --> v t1' + + results in: + + | ctx_app_arg : forall (v t1 t1':term) + (RED: reduce t1 t1'), + is_val_of_term v -> + reduce (t_app v t1) (t_app v t1'). + + Names of rules cannot contain spaces or other non alpha-numerical + characters, and must begin with a letter. The name annotation must + at the rightmost place on the hypothesis line, and must be enclosed + (without spaces) between the [[: and ]] parentheses. + +- (feature request 11372) The Coq backend now tries to preserve the + names the user specified in the definition of grammar rules. For + instance the grammar definition below + + grammar + term, t :: 't_' ::= + | x :: :: Var + | \ x . t :: :: Lam (+ bind x in t +) + | t t' :: :: App + | ( t ) :: S:: Paren {{ icho [[t]] }} + | { t / x } t' :: M:: Tsub {{ icho (tsubst_t [[t]] [[x]] [[t']])}} + + generates + + Inductive term : Set := + | t_var (x:var) + | t_lam (x:var) (t:term) + | t_app (t:term) (t':term). + + instead of + + Inductive term : Set := + | t_var : var -> term + | t_lam : var -> term -> term + | t_app : term -> term -> term. + + The old behaviour can be obtained via the top-level option + -coq_names_in_rules false. + +2011.11.17 Version 0.21 + +- Bump ocamlgraph version to 1.7, to avoid compilation issues with + OCaml 3.12.1. + +- Ported the Isabelle backend to Isabelle2011 (*). + +- Experimental support for function definitions. As a simple example, + in the Ott file below: + + grammar + n :: 'n_' ::= + | 0 :: :: Zero + | S n :: :: Succ + + funs + Add ::= {{ hol-proof ... }} + fun + n1 + n2 :: n :: add {{ com a function of type num \to num \to num }} + by + 0 + n2 === n2 + S n1 + n2 === n1 + S n2 + + the add function is compiled into the following coq code: + + Fixpoint add (x1:num) (x2:num) : num:= + match x1,x2 with + | n_zero , n2 => n2 + | (n_succ n1) , n2 => (add n1 (n_succ n2) ) + end. + + The "fun n1 + n2 :: n :: add by" declaration specifies: + + - the name of the function: add + - the symbolic term that defines the lhs: n1 + n2 + - the symbolic term that defines the rhs: n + + The type of the arguments of the function is defined by the + non-terminals appearing in the lhs, the return type by the rhs + non-terminal (so num -> num -> num in the above example). Functions + are then defined by case analysis, where the lhs and the rhs are + separated by the reserved symbol "===". + + The {{ hol-proof }} hom allows the specification of a termination + proof. + +- A new option -fast_parse generates a faster parser but + removes the possibility of disambiguating ambiguous terms using the + :non_terminal: syntax. + +- The generated Coq substitution functions now use the list_minus2 + auxiliary function rather than list_filter, as it is easier to + reason about (since rewriting under quantifiers does not work in + Coq). Added the -coq_use_filter_fn option for backwards + compatibility (*). + +- Introduced a new embed hom + + embed {{ coq-lib foo1 foo2 foo3 }} + + to avoid generation of functions foo1, foo2, foo3 (*) + +- No longer generate auxiliary list types for formula_dots in Coq + backend with -coq_expand_list_types true because today Coq now knows + how to generate the right induction principle. + +- Parsing of defns or embed is more robust wrt newlines (*). + +- Various bug-fixes (including #13487), improvements to error reports, + and performance optimisations. + +Entries labelled with (*) were contributed by Viktor Vafeiadis. + +2011.11.18 Version 0.21.1 + +This version fixes a packaging problem of the version 0.21. + +2011.12.9 Version 0.21.2 + +- fix bug 13645: forced use of :nonterm: syntax in conclusions of defn + rules in 0.21.1 (thanks to Karl Palmskog for reporting the bug). + +- Added new hom syntax {{* ... *}} that permits {{ and }} appearing + inside. The existing syntax {{ ... }} is also valid. + +- Added embed tex-wrap-pre/tex-wrap-post homs to customize tex + wrapping: the default LaTeX header can be changed by writing + + embed {{ tex-wrap-pre ... }} + + and the default footer by writing + + embed {{ tex-wrap-post ... }}. + + In addition, the program option -tex_wrap false can be used to omit + wraping the tex output (-tex_wrap false overrides any + tex-wrap-pre/tex-wrap-post embeds). + +- minor updates to the Hol backend to target the new Hol syntax. + + +2012.01.04 fix for HOL multiple definitions bug + +2012.06.12 fix for HOL syntax change + +2012.11.29 bugfix 14175 + +2012.12.04 bugfix 15158 + + +2013.04.20 + +- experimental support for generating Lem definitions, including new + homs lem, lemvar, ichlo + + +2013.06.22 + +- New aux-hom feature: + +We permit an aux hom on grammar rules. For any rule with such a hom, +we transform that rule by appending an "_aux" to its primary nonterminal +root name. We then add a synthesised rule with the original nonterminal +root name and a single production, with a shape described by the body of +the aux hom, which must be of the form + + {{ aux foo1 foo2 _ bar1 bar2 bar3 }} + +with a single _ and any number of strings fooi and barj before and +after, and no Raw_hom_ident's. The _ is replaced by the original +nonterminal root name. + +For example, given a grammar or metavariable l of source locations, one +might say + +ntr :: 'NTR_' ::= {{ aux _ l }} + | ... + +to synthesise grammars ntr_aux and ntr of unannotated and location-annotated +terms, the first with all the original productions and the second with a +single production + | ntr l :: :: NTR_aux. + +If the rule has an empty production name wrapper (eg with '' in place +of 'NTR_') then the production name is based on the original +nonterminal root, capitalised and with _aux appended (eg Ntr_aux), to +avoid spurious conflicts. + +Generation of aux rules is controlled by a command-line option +-generate_aux_rules {true|false}, which one might (eg) set to false +for latex output and true for OCaml output. + +- New {{ texlong }} hom on productions, letting long productions +be typeset with the production extending into the space usually used +for comment, pushing that onto the next line. + +2013.07.04 + +- replace "make" by "$(MAKE)" in Makefile. Should fix 15719, reported + by peterbb@ifi.uio.no for OpenBSD + +2013.07.04 Version 0.22 + +- add auxparam hom + +2013.10.24 Version 0.23 + +2013.11.17 + +- add command-line option -output_source_locations to include + comments in the output giving the source locations: + i=0 adds no locations + i=1 adds a location for each inductive definition rule + i=2 also adds a location for other components of the output + Location annotations are lines of the form + + (* #source file FILENAME1 lines M1 - N1 and ... and FILENAMEk lines Mk - Nk *) + + (or with % instead of (* *) for the Latex output). + +2014.01.30 fix bug in {{ order }} hom for Lem backend + +2014.01.30 Version 0.24 + +2014-08-28 Version 0.25 + +- fix incompatibility with OCaml 4.02.0 comment syntax, from Damien + Doligez/Anil Madhavapeddy + +2016-10-27 Snapshot of 0.25 release moved to github at + https://github.com/ott-lang/ott + +2017-02-10 Add command-line option -tex_suppress_category to + suppress productions or rules with the specified category string. + +2017-02-13 Add command-line option -tex_suppress_ntr to + suppress the grammar rule with that principal nonterminal root. + +2017-05-28 fixes for Coq 8.5 and 8.6, contributed by palmskog + +2017-05-29 - 2017-06-14 Add experimental support for generating a +standalone lexer, menhir parser, and pretty printer, as illustrated in +tests/menhir_tests/test10menhir + +2017-07-17 fixes for OCaml safe string, contributed by jpdeplaix + +2017-09-07 example of "literate" ott spec, in tests/test10literate + +2017-09-21 use Type instead of Set in Coq list functions, contributed by palmskog + +2017-09-21 Version 0.26 + +2017-09-26 [palmskog] fixes for Coq 8.7 + +2017-10-03 For the generated lexer, metavar definitions should either have an ocamllex hom (specifying how they should be lexed) or an ocamllex-remove hom (specifying that a constructor of the token type should be generated, but without a lexer rule). + +2017-10-09 + +- improve menhir parser and pp generation for combinations of + {{ aux _ l }} rules (recording source location info) and quotient + rules. As in test/menhir/test10menhir_with_aux/. Probably fragile. + +- improve menhir parser and pp generation for {{ phantom }} rules + +2017-10-11 + +- add highly experimental -aux_style_rules false option, + adding aux info as extra constructor arguments rather than additional + rules + +- use PPrint instead of OCaml string concatenation in raw and cooked + generated pp + +2017-10-16 [hannesm] use ocamlc/ocamlopt (not .opt) + +2017-10-29 add tex file for macros used in -alltt output + +2017-11-26 fixes for Isabelle and for regression testing (in progress) + +2017-11-27 Version 0.27 + +2017-12-05 [Brian Campbell] Bugfix: add missing case of Lem auxparam type name +hack when it's hom + +2018-01 [Peter Sewell, + palmskog for Coq] copy ocaml_light example + sources from svn (rsem/ott/old_pre_github/examples/caml) and + partially de-bitrot + +2018-02 [JoeyEremondi] add pointer to VSCode plugin + [hannesm, Blaisorblade] clean opam install of Emacs ott-mode + +2018-04-24 Version 0.28 diff --git a/vendors/ott/src/Makefile b/vendors/ott/src/Makefile new file mode 100644 index 000000000000..a933f534689d --- /dev/null +++ b/vendors/ott/src/Makefile @@ -0,0 +1,381 @@ +######################################################################### +# Ott # +# # +# Peter Sewell, Computer Laboratory, University of Cambridge # +# Francesco Zappa Nardelli, Moscova project, INRIA Rocquencourt # +# # +# Copyright 2005-2017 # +# # +# Redistribution and use in source and binary forms, with or without # +# modification, are permitted provided that the following conditions # +# are met: # +# 1. Redistributions of source code must retain the above copyright # +# notice, this list of conditions and the following disclaimer. # +# 2. Redistributions in binary form must reproduce the above copyright # +# notice, this list of conditions and the following disclaimer in the # +# documentation and/or other materials provided with the distribution. # +# 3. The names of the authors may not be used to endorse or promote # +# products derived from this software without specific prior written # +# permission. # +# # +# THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS # +# OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED # +# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE # +# ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY # +# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL # +# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE # +# GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS # +# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER # +# IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR # +# OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN # +# IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. # +########################################################################## + +topdir = .. + +OTTVER=0.28 + +# for us +OCAMLC = ocamlfind ocamlc -linkpkg -g -dtypes -package yojson +# OCAMLC = ocamlc -g -dtypes # -w p disables partial match warnings +OCAMLOPT = ocamlfind ocamlopt -linkpkg -w y -g -dtypes -unsafe -inline 9 -package yojson +# OCAMLOPT = ocamlopt -w y -g -dtypes -unsafe -inline 9 + +# for releases +#OCAMLC = ocamlc -g -w p -w y +#OCAMLOPT = ocamlopt -w p -w y -unsafe -inline 9 + +OCAMLDEP = ocamldep +OCAMLLEX = ocamllex +OCAMLYACC = ocamlyacc + +LATEX = latex +DVIPS = dvips +DVIPDFM = dvipdfm + +COQC = coqc +COQ_INCLUDE = -I $(topdir)/coq +COQ_FLAGS = +OCAMLGRAPHDIRBODY = ocamlgraph-1.7 +OCAMLGRAPHDIR = $(topdir)/$(OCAMLGRAPHDIRBODY) +OCAMLGRAPHTARGZ = ocamlgraph-1.7.tar.gz +LIBRARIES = str $(OCAMLGRAPHDIR)/graph + +# DO NOT EDIT BELOW THIS LINE ########################################### + +SOURCES_LEXER_PARSER = grammar_lexer.mll grammar_parser.mly + +SOURCES_NON_LEXER_PARSER1 = location.ml types.ml auxl.ml merge.ml global_option.ml michelson_specific.ml + +SOURCES_NON_LEXER_PARSER2 = grammar_pp.ml parse_table.ml glr.ml new_term_parser.ml term_parser.ml \ + dependency.ml bounds.ml context_pp.ml \ + quotient_rules.ml grammar_typecheck.ml \ + transform.ml substs_pp.ml subrules_pp.ml \ + embed_pp.ml defns.ml ln_transform.ml coq_induct.ml \ + system_pp.ml lex_menhir_pp.ml align.ml main.ml + + + + +SOURCES_MLI = \ + align.mli \ + bounds.mli \ + coq_induct.mli \ + defns.mli \ + dependency.mli \ + embed_pp.mli \ + grammar_typecheck.mli \ + merge.mli \ + subrules_pp.mli \ + substs_pp.mli \ + system_pp.mli \ + lex_menhir_pp.mli \ + transform.mli \ + term_parser.mli + +SOURCES= $(SOURCES_NON_LEXER_PARSER1) \ + grammar_lexer.ml grammar_parser.mli grammar_parser.ml \ + version.ml \ + $(SOURCES_NON_LEXER_PARSER2) + +MLI = $(filter %.mli, $(SOURCES)) +ML = $(filter %.ml, $(SOURCES)) + +CMO = $(patsubst %.ml, %.cmo, $(ML)) +CMX = $(patsubst %.cmo, %.cmx, $(CMO)) + +CMI_FROM_MLI = $(patsubst %.mli, %.cmi, $(SOURCES_MLI)) + + +#default: ott.opt +default: ott.byt + +all: default +ott: default + + +# compile and link Ott + +byt: ott.byt + +ott.byt: Makefile $(CMO) $(CMI_FROM_MLI) version.tex + echo $^ + $(OCAMLC) -v + $(OCAMLC) -o ott.byt $(addsuffix .cma, $(LIBRARIES)) $(CMO) + ln -s -f $@ ott + +.FORCE: opt +opt: ott.opt + +ott.opt: Makefile $(CMX) $(CMI_FROM_MLI) version.tex + echo $^ + $(OCAMLOPT) -v + $(OCAMLOPT) -o ott.opt $(addsuffix .cmxa, $(LIBRARIES)) $(CMX) + ln -s -f $@ ott + +interfaces: $(ML:.ml=.interface) + +mlis: $(ML:.ml=.mli) + +# files that require a special treatment + +grammar_lexer.ml: grammar_lexer.mll + $(OCAMLLEX) grammar_lexer.mll + +grammar_parser.ml grammar_parser.mli: grammar_parser.mly + $(OCAMLYACC) -v grammar_parser.mly + +grammar_typecheck.cmo: grammar_typecheck.ml + $(OCAMLC) -c -I $(OCAMLGRAPHDIR) grammar_typecheck.ml + +grammar_typecheck.cmx: grammar_typecheck.ml + $(OCAMLOPT) -c -I $(OCAMLGRAPHDIR) grammar_typecheck.ml + +glr.cmo: glr.ml + $(OCAMLC) -c -I $(OCAMLGRAPHDIR) glr.ml + +glr.cmx: glr.ml + $(OCAMLOPT) -c -I $(OCAMLGRAPHDIR) glr.ml + +parse_table.cmo: parse_table.ml + $(OCAMLC) -c -I $(OCAMLGRAPHDIR) parse_table.ml + +parse_table.cmx: parse_table.ml + $(OCAMLOPT) -c -I $(OCAMLGRAPHDIR) parse_table.ml + +new_term_parser.cmo: new_term_parser.ml + $(OCAMLC) -c -I $(OCAMLGRAPHDIR) new_term_parser.ml + +new_term_parser.cmx: new_term_parser.ml + $(OCAMLOPT) -c -I $(OCAMLGRAPHDIR) new_term_parser.ml + +dependency.cmo: dependency.ml + $(OCAMLC) -c -I $(OCAMLGRAPHDIR) dependency.ml + +dependency.cmx: dependency.ml + $(OCAMLOPT) -c -I $(OCAMLGRAPHDIR) dependency.ml + +#version.ml: Makefile tmp_date.txt +# echo let n=\"$(OTTVER)\" > tmp_version1.ml +# echo -n let d=\" > tmp_version2.ml +# echo \" > tmp_version3.ml +# cat tmp_version1.ml tmp_version2.ml tmp_date.txt tmp_version3.ml > version.ml +# rm tmp_version1.ml tmp_version2.ml tmp_version3.ml + +version.ml: tmp_date.txt Makefile #Makefile-core + echo 'let n="$(OTTVER)"' >version.ml + echo let d=\"$$(cat tmp_date.txt)\" >>version.ml + +version.tex: tmp_date.txt version_src.tex Makefile + sed -e 's/__VERSION__/$(OTTVER)/' \ + -e '/__DATE__/r tmp_date.txt' \ + -e '/__DATE__/d' version.tex +# sed -e 's/__VERSION__/$(OTTVER)/' \ +# -e "s/__DATE__/$$(cat tmp_date.txt)/" version.tex + +# common rules + +%.cmi: %.mli + $(OCAMLC) -I $(OCAMLGRAPHDIR) -c $< + +%.interface: %.ml + $(OCAMLC) -I $(OCAMLGRAPHDIR) -i $< >$@ + +#%.mli: %.ml +# $(OCAMLC) -I $(OCAMLGRAPHDIR) -i $< >$@ + +%.cmo: %.ml + $(OCAMLC) -c $< + +%.cmx: %.ml + $(OCAMLOPT) -I $(OCAMLGRAPHDIR) -c $< + +%.ps : %.dot + dot -Tps $< > $@ + +%.png : %.dot + dot -Tpng -Gsize="2,2" $< > $@ + +%.vo: %.v + $(COQC) $(COQ_INCLUDE) $(COQ_FLAGS) $< + +# INSTALL ############################################################## + +## Rules to unpack and build our copy of ocamlgraph. +$(OCAMLGRAPHDIR)/Makefile: + cd $(topdir) && tar -zxvf $(OCAMLGRAPHTARGZ) + cd $(OCAMLGRAPHDIR) && patch -p1 < $(topdir)/ocamlgraph-safe-string.patch + cd $(OCAMLGRAPHDIR) && ./configure +$(OCAMLGRAPHDIR)/graph.cma: $(OCAMLGRAPHDIR)/Makefile + cd $(OCAMLGRAPHDIR) && $(MAKE) graph.cma +$(OCAMLGRAPHDIR)/graph.cmxa: $(OCAMLGRAPHDIR)/Makefile +# cd $(OCAMLGRAPHDIR) && $(MAKE) OCAMLOPT='$(OCAMLOPT) -I src -I lib' graph.cmxa + cd $(OCAMLGRAPHDIR) && $(MAKE) graph.cmxa + +# The extra `-I' options when building graph.cmxa work around OCaml +# PR#4124 (present in OCaml 3.09.*). +ocamlgraph: $(OCAMLGRAPHDIR)/graph.cma $(OCAMLGRAPHDIR)/graph.cmxa + +$(topdir)/bin: + mkdir $(topdir)/bin + +install.byt: $(topdir)/bin $(OCAMLGRAPHDIR)/graph.cma + $(MAKE) byt + cp ./ott $(topdir)/bin/ott + +install: $(topdir)/bin $(OCAMLGRAPHDIR)/graph.cmxa + $(MAKE) opt + cp ./ott $(topdir)/bin/ott + + + +# LIBRARY ############################################################## + +coq-lib: + cd $(topdir)/coq && $(MAKE) all + + +# GRAMMAR DOCS ########################################################## + +# magic to tex-ify our yacc parser + +Y2L=../aux/y2l/y2l + +%.mly-y2l : %.mly + cat $< | tr -d \' | grep -v '%start' | grep -v '%type' | sed -e 's/%prec [^ ]*//' > $@ + +grammar_parser.tex : grammar_parser.mly-y2l $(Y2L) + $(Y2L) $< -O2 > $@ +# +# not sure if the parser-tokens.y2l can be autogenerated or if we +# have to write it by hand (hacking grammar_parser.mli +# (cf ../../Impl/acute/parser-tokens.y2l). If omitting it, use +# the grammar_parser.tex rule above instead of this below +# +#%.tex : %.mly-y2l parser-tokens.y2l $(Y2L) +# $(Y2L) $< -O2 -tparser-tokens.y2l > $@ + +grammar.ps : grammar.tex grammar_parser.tex + $(LATEX) grammar.tex + $(DVIPS) $(DVIPSOPTS) grammar.dvi + + +# EXAMPLES USED IN MANUAL ############################################## + +tmp_test7_clean.ott: ../tests/test7.ott + rm -f tmp_test7_clean.ott + (grep -v ^a | sed -e 's/^r//g' | grep -v ^% ) < ../tests/test7.ott > tmp_test7_clean.ott + chmod ugo-w tmp_test7_clean.ott + + +# DOT IMAGES FOR WEB PAGE ############################################### + +tmp_test7.ott: ../tests/test7.ott + rm -f tmp_test7.ott + (sed -e 's/^r//g') < ../tests/test7.ott > tmp_test7.ott + chmod ugo-w tmp_test7.ott + + +test7: ott tmp_test7.ott + ./ott -o out.tex \ + -dot tmp_test7_dot.dot \ + -o out.thy -o outScript.sml -o out.v \ + -parse ":user_syntax: \x1':X.x1'" \ + -parse ":user_syntax: :user_syntax__t: \x1':X.x1'" \ + -parse ":user_syntax: :user_syntax__t: :concrete: \x1':X.x1'" \ + -parse ":user_syntax: :concrete: \x1':X.x1'" \ + -parse ":concrete_t:\x1':X.x1'" \ + -parse ":Jop: match({l1=p1,..,lm=pm},{k1=v1,..,kn=vn}) = s1,..,sm" \ + tmp_test7.ott \ + && ($(LATEX) out; $(DVIPS) out -o; $(DVIPDFM) out) + + +%.ps : %.dot + dot -Tps $< > $@ + +%.png : %.dot + dot -Tpng -Gsize="2,2" $< > $@ + + + +#%.gif : %.dot +# dot -Tgif -Gsize="2,2" $< > $@ + + +# WEB PAGE INSTALL ################################################### + + +tmp_index.html: ../doc/index.html.p + cat ../doc/index.html.p | \ + sed -e "s/OTTVERSION/$(OTTVER)/g" > tmp_index.html + +install-www-index: tmp_index.html + $(MAKE) test7 + $(MAKE) tmp_test7_dot.ps + $(MAKE) tmp_test7_dot.png + cp -f tmp_index.html ~/public_html/ott/index.html + cp -f ../doc/style.css ~/public_html/ott + cp -f ../doc/favicon.ico ~/public_html/ott + cp -f ../revision_history.txt ~/public_html/ott + cp -f ../README ~/public_html/ott/README.txt + cp -f tmp_test7_dot.ps ~/public_html/ott/test7.dot.ps + cp -f tmp_test7_dot.png ~/public_html/ott/test7.dot.png + chmod ugo-w ~/public_html/ott/index.html + chmod ugo-w ~/public_html/ott/style.css + chmod ugo-w ~/public_html/ott/revision_history.txt + + + +# CLEANUP ############################################################## + +clean: + rm -f *~ *.cmi *.cmo *.cmx *.o + rm -f grammar_lexer.ml grammar_parser.ml \ + grammar_parser.mli grammar_parser.output + rm -f version.ml + rm -rf ott ott.byt ott.opt $(topdir)/bin/ott + rm -f grammar_parser.tex *.mly-y2l + rm -f *.aux *.log *.dvi *.ps *.pdf *.annot + rm -f out.thy out.v outScript.sml outTheory.uo outTheory.ui outTheory.sig outTheory.sml out.tex out.sty + rm -f tmp_*.dot tmp.dot + rm -f tmp_*.ott + rm -f testRegr* + rm -f *Theory.* *.ui *.uo + rm -rf $(OCAMLGRAPHDIR) + +realclean: + rm -f .depend + cd $(topdir)/coq && $(MAKE) clean + + +# DEPENDENCIES ######################################################## + +foob: + echo $(SOURCES) + +depend: + $(OCAMLDEP) $(SOURCES) $(SOURCES_MLI) > .depend +.depend: Makefile $(SOURCES) $(SOURCES_MLI) + $(OCAMLDEP) $(SOURCES) $(SOURCES_MLI) > .depend + +include .depend diff --git a/vendors/ott/src/README-src.txt b/vendors/ott/src/README-src.txt new file mode 100644 index 000000000000..73491a5d0302 --- /dev/null +++ b/vendors/ott/src/README-src.txt @@ -0,0 +1,77 @@ +Wed Oct 3 16:27:40 BST 2007 + +The basic structure of a simple Ott execution is to read in a .ott +file, convert it to an internal representation (a value of type +systemdefn) and then pretty print it into the various targets that +were requested on the command line. The pretty printing functions +are each parameterised by (and often do a case split on) a pp_mode +telling them which target is being generated. + +location.ml locations in ott source files + +types.ml type definitions, especially of syntaxdefn, + relationsdefn, and (roughly their combination) systemdefn + +auxl.ml many assorted auxiliary functions + +merge.ml merging of symbolic terms, eg to take the two + endpoints of a putative ... form and form a + list, and code to abstract an indexvar from an entity + +grammar_lexer.mll the lexer for .ott source files + +grammar_parser.mly the parser for .ott source files + +grammar_pp.ml pretty printing of the syntaxdefn types, for + ascii, latex, coq, hol, isabelle, and ocaml + +term_parser.ml the current(old) parser for user-language concrete and + symbolic terms, implemented with memoized + parser combinators + +glr.ml a general glr parser + +new_term_parser.ml a putative replacement parser for the user languages, + using glr.ml + +dependency.ml computing the dependencies of a syntaxdefn + +grammar_typecheck.ml the check_and_disambiguate function, taking a + raw syntaxdefn and producing a syntaxdefn (together with a + raw_defnclass list) + +transform.ml takes a grammar and returns a grammar in which + the dot forms have been expanded using + auxiliary list-like constructors (for Coq) + +bounds.ml bounds extraction - calculuting a dot + environment from a set of symbolic terms, identifying which are + indexed with the same bounds + +substs_pp.ml pretty print substitution and free variable + proof assistant functions + +subrules_pp.ml pretty print is_value predicates for subrules + +embed_pp.ml pretty print of an embedded part of an .ott file + +defns.ml process inductive definitions, parsing the + rules using term_parser, doing bounds + analysis, and pretty-printing the rules + +coq_induct.ml generates induction principles for Coq native lists + +system_pp.ml pretty prints an entire systemdefn, in any of + the targets + +align.ml a long identity function + +main.ml the driver, reading .ott files (and files to be filtered), + parsing them with grammar_parser, converting + them to syntaxdefns with grammar_typecheck, + processing their defns with defns, and pretty + printing the resulting systemdefns with + system_pp + + + diff --git a/vendors/ott/src/align.ml b/vendors/ott/src/align.ml new file mode 100644 index 000000000000..b58619a201b8 --- /dev/null +++ b/vendors/ott/src/align.ml @@ -0,0 +1,75 @@ +(**************************************************************************) +(* Ott *) +(* *) +(* Peter Sewell, Computer Laboratory, University of Cambridge *) +(* Francesco Zappa Nardelli, Moscova project, INRIA Rocquencourt *) +(* *) +(* Copyright 2005-2006 *) +(* *) +(* Redistribution and use in source and binary forms, with or without *) +(* modification, are permitted provided that the following conditions *) +(* are met: *) +(* 1. Redistributions of source code must retain the above copyright *) +(* notice, this list of conditions and the following disclaimer. *) +(* 2. Redistributions in binary form must reproduce the above copyright *) +(* notice, this list of conditions and the following disclaimer in the *) +(* documentation and/or other materials provided with the distribution. *) +(* 3. The names of the authors may not be used to endorse or promote *) +(* products derived from this software without specific prior written *) +(* permission. *) +(* *) +(* THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS *) +(* OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED *) +(* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE *) +(* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY *) +(* DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL *) +(* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE *) +(* GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS *) +(* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER *) +(* IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR *) +(* OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN *) +(* IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. *) +(**************************************************************************) + +open Types + +let split_line (s:string) : string * int * string option = + try + let l = String.length s in + let idx = (String.index s '\n') + 1 in + let line = String.sub s 0 idx in + let rest = String.sub s idx (l - idx) in + (line, idx, Some rest) + with Not_found -> (s, (String.length s), None) + +let rec insert_spaces n = + if n = 0 then "" else " "^(insert_spaces (n-1)) + +let align_line (m:pp_mode) (s:string) (l:int) : string = + match m with + | Coq _ -> + if l > 80 + then + (* rule 1: in a pattern-matching, insert a newline after the pattern *) + let rgx = Str.regexp "[ \t]*|.*=>" in + if (Str.string_match rgx s 0) + then begin + let pos = (Str.search_forward (Str.regexp "=>") s 0) + 2 in + let first_line = String.sub s 0 pos in + let second_line = String.sub s pos (l - pos) in + first_line ^"\n" ^ (insert_spaces 5) ^ second_line + end + else s + else s + | _ -> s + +let rec align_doc m s = + match split_line s with + | (s,l,None) -> align_line m s l + | (s,l,Some r) -> (align_line m s l) ^ (align_doc m r) + +(* FZ rename align_doc into align *) +let align (m:pp_mode) (s:string) : string = + match m with + | Coq _ -> (* align_doc m *) s + | _ -> s diff --git a/vendors/ott/src/align.mli b/vendors/ott/src/align.mli new file mode 100644 index 000000000000..d34de0bf6ba0 --- /dev/null +++ b/vendors/ott/src/align.mli @@ -0,0 +1,34 @@ +(**************************************************************************) +(* Ott *) +(* *) +(* Peter Sewell, Computer Laboratory, University of Cambridge *) +(* Francesco Zappa Nardelli, Moscova project, INRIA Rocquencourt *) +(* *) +(* Copyright 2005-2008 *) +(* *) +(* Redistribution and use in source and binary forms, with or without *) +(* modification, are permitted provided that the following conditions *) +(* are met: *) +(* 1. Redistributions of source code must retain the above copyright *) +(* notice, this list of conditions and the following disclaimer. *) +(* 2. Redistributions in binary form must reproduce the above copyright *) +(* notice, this list of conditions and the following disclaimer in the *) +(* documentation and/or other materials provided with the distribution. *) +(* 3. The names of the authors may not be used to endorse or promote *) +(* products derived from this software without specific prior written *) +(* permission. *) +(* *) +(* THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS *) +(* OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED *) +(* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE *) +(* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY *) +(* DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL *) +(* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE *) +(* GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS *) +(* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER *) +(* IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR *) +(* OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN *) +(* IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. *) +(**************************************************************************) + +val align : Types.pp_mode -> string -> string diff --git a/vendors/ott/src/auxl.ml b/vendors/ott/src/auxl.ml new file mode 100644 index 000000000000..91c94770e543 --- /dev/null +++ b/vendors/ott/src/auxl.ml @@ -0,0 +1,1846 @@ +(**************************************************************************) +(* Ott *) +(* *) +(* Peter Sewell, Computer Laboratory, University of Cambridge *) +(* Francesco Zappa Nardelli, Moscova project, INRIA Rocquencourt *) +(* *) +(* Copyright 2005-2010 *) +(* *) +(* Redistribution and use in source and binary forms, with or without *) +(* modification, are permitted provided that the following conditions *) +(* are met: *) +(* 1. Redistributions of source code must retain the above copyright *) +(* notice, this list of conditions and the following disclaimer. *) +(* 2. Redistributions in binary form must reproduce the above copyright *) +(* notice, this list of conditions and the following disclaimer in the *) +(* documentation and/or other materials provided with the distribution. *) +(* 3. The names of the authors may not be used to endorse or promote *) +(* products derived from this software without specific prior written *) +(* permission. *) +(* *) +(* THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS *) +(* OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED *) +(* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE *) +(* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY *) +(* DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL *) +(* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE *) +(* GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS *) +(* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER *) +(* IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR *) +(* OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN *) +(* IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. *) +(**************************************************************************) + +open Types + +(* exceptions ************************************************************ *) + +exception ThisCannotHappen + +(* debug, warning and error report *************************************** *) + +let mode_name m = match m with + | Ascii _ -> "Ascii" + | Tex _ -> "Tex" + | Isa _ -> "Isabelle" + | Hol _ -> "HOL" + | Lem _ -> "Lem" + | Coq _ -> "Coq" + | Twf _ -> "Twelf" + | Caml _ -> "OCaml" + | Rdx _ -> "Redex" + | Lex _ -> "Lex" + | Menhir _ -> "Menhir" + | Json _ -> "Json" + +let debug_on = false + +let debug s = if debug_on then begin print_string s; flush stdout end + +let warning s = print_endline ("warning: " ^ s); flush stdout + +let error s = print_endline ("error: " ^ s); flush stdout; exit 2 + +let int_error s = print_endline("internal: " ^ s); flush stdout; exit 2 + +let errorm m s = print_endline ("internal (" ^ mode_name m ^ "): " ^ s); flush stdout; exit 2 + + +(* ***************** *) +(* naming convention *) +(* ***************** *) + +(* let var_name m xd ntrp = ntrp *) + +(* turned off version *) +(* let hide_isa_trailing_underscore m s = *) +(* s *) + +(* turned on version *) +let hide_isa_trailing_underscore m s = + let debug = false in + if debug then + match m with + | Isa _ -> + if s="" then "E" (* empty *) + else if s.[String.length s - 1] = '_' then s^"U" (* underscore *) + else s^"N" (* no underscore *) + | _ -> s + else + match m with + | Isa _ -> + if s="" then "" (* empty *) + else if s.[String.length s - 1] = '_' then s^"XXX" (* underscore *) + else s (* no underscore *) + | _ -> s + + +let psuedo_terminal_of_prod_name pn = ":" ^ pn ^ ":" + +let fake_concrete_ntr_of_ntr ntr = "concrete_"^ntr + +let parse_as_concrete = ":concrete:" + +let subst_name : string -> nontermroot -> string = + fun s ntr -> s^"_"^ntr + +let auxfn_name : auxfn -> nontermroot -> nontermroot -> string = + fun s ntr typ -> +(* print_string ("==="^s^"=="^ntr^"=="^typ^"===\n");flush stdout; *) +(* if ntr="av" then failwith "auxfn_name called with ntr=av";*) + "aux_"^s^"_"^ntr^"_of_"^typ + +let fv_name : string -> nontermroot -> string = + fun s ntr -> s^"_"^ntr + +let context_name = + fun ntr hole -> "appctx_"^ntr^"_"^hole + +(* generate a predicate name for a sub-ntr *) +let pp_is : nontermroot -> string -> string = fun ntr typ -> "is_"^ntr^"_of_"^typ +let pp_is_list : nontermroot -> string -> string = fun ntr typ -> (pp_is ntr typ)^"_list" + + +(* **************************** *) +(* lexical character categories *) +(* **************************** *) +let isalphanum c = (c>='A' && c<= 'Z') || (c>='a' && c<= 'z') || (c>='0' && c<= '9') + +let iswhitespace c = c=' ' || c = '\010' || c='\009' || c='\013' || c='\012' + +let issuffixpunct c = c='\'' || c='_' (* || c='^' *) + + + +(* simple auto-insert parentheses *) +let paren s = + if String.contains s ' ' + then "("^s^")" + else s + +let string_begins s1 s2 = + try + let len = String.length s2 in + if String.sub s1 0 len = s2 + then true + else false + with _ -> false + +(* equality testing up-to location data ********************************** *) + +let rec eq_raw_element (red,red') = + match red,red' with + | Raw_ident (_,(_,ri)), Raw_ident (_,(_,ri')) -> + (* (List.for_all (fun (a,b) -> a = b) (List.combine rv rv')) && FZ *) (ri = ri') + | Raw_option (_,res), Raw_option (_,res') -> eq_raw_elements res res' + | Raw_list (_,res), Raw_list (_,res') -> eq_raw_elements res res' + | Raw_nelist (_,res), Raw_nelist (_,res') -> eq_raw_elements res res' + | Raw_sugaroption (_,res), Raw_sugaroption (_,res') -> + eq_raw_element (res,res') + | Raw_dots (_,n), Raw_dots (_,n') -> n=n' + | _,_ -> false + +and eq_raw_elements res res' = + try List.for_all eq_raw_element (List.combine res res') + with Invalid_argument _ -> false + +(* utilities *********************************************************** *) + +exception TheOfNone + +let the x = + match x with + | Some x -> x + | None -> raise TheOfNone + +let rec option_map f xs = + match xs with + | [] -> [] + | x::xs -> + ( match f x with + | None -> option_map f xs + | Some x -> x :: (option_map f xs) ) + +let rec list_concat (xs_sep : 'a list) (xss : 'a list list) : 'a list = + match xss with + | [] -> [] + | [xs1] -> xs1 + | xs1::xs2::xss' -> xs1 @ xs_sep @ list_concat xs_sep (xs2::xss') + +let fold_left1 f lst = match lst with + | [] -> raise ThisCannotHappen + | x::xs -> List.fold_left f x xs + +let string_iter f s = + for i = 0 to String.length s - 1 do f (String.get s i) done + +(* we use char lists a lot *) + +let char_list_of_string s = + let n = String.length s in + let rec f i = if i=n then [] else String.get s i :: f (i+1) in + f 0 + +let string_of_char_list ts = + let n = List.length ts in + let s = Buffer.create n in + List.iter (Buffer.add_char s) ts; + Buffer.contents s + +(* tests to identify strings *) + +exception Not_alpha + +let is_char_alpha c = + ((c >= 'A' && c <= 'Z') + || (c >= '\192' && c <= '\214') + || (c >= '\216' && c <= '\222') + || (c >= 'a' && c <= 'z') + || (c >= '\224' && c <= '\246') + || (c >= '\248' && c <= '\254')) + +let is_alpha s = (* FZ this should work for iso-8859-1 *) + try + String.iter (fun c -> + if not ((c >= 'A' && c <= 'Z') + || (c >= '\192' && c <= '\214') + || (c >= '\216' && c <= '\222') + || (c >= 'a' && c <= 'z') + || (c >= '\224' && c <= '\246') + || (c >= '\248' && c <= '\254') + || (c = '_') + ) then raise Not_alpha else ()) s; + true + with Not_alpha -> false + +(* pretty-printing library definitions/lemmas ********************** *) + +let add_to_lib r name def = + let (s, l) = !r in + if not (List.mem name l) then r := (s ^ def, name :: l) + +(* manipulation of a syntaxdefn ************************************ *) + +(* Similar function already in Grammar_pp +let pp_type_name m xd (s: string) = + let homname = match m with + | Coq _ -> "coq" + | Hol _ -> "hol" + | Isa _ -> "isa" + | Twf _ -> "twf" + | Caml _ | Lex _ -> "ocaml" + | Ascii _ | Tex _ -> errorm m "pp_type_name" in + let rec search_hom homs = match homs with + | [] -> None (* should never happen in type-checked specs *) + | (hn,hs)::_ when hn = homname -> + Some (String.concat " " (option_map (function Hom_string s -> Some s | _ -> None) hs)) + | _::homs -> search_hom homs in + let rec search_ntr rs = match rs with + | [] -> None + | r::rs when r.rule_ntr_name = s || List.exists (fun (s',_) -> s'=s) r.rule_ntr_names -> + if r.rule_phantom then search_hom r.rule_homs + else Some s + | _::rs -> search_ntr rs in + let rec search_mvr mds = match mds with + | [] -> None + | mvd::_ when mvd.mvd_name = s || List.exists (fun (s',_) -> s'=s) mvd.mvd_names -> + if mvd.mvd_phantom then search_hom mvd.mvd_rep + else Some s + | _::rs -> search_mvr rs in + match search_mvr xd.xd_mds with Some s -> s | None -> + match search_ntr xd.xd_rs with Some s -> s | None -> + s (* should never happen in type-checked specs *) +*) + +let rec has_assoc (s:string) l = match l with + | [] -> false + | (t,_)::l -> s = t || has_assoc s l + +let mvd_of_mvr (xd:syntaxdefn) (mvr:metavarroot) : metavardefn = + List.find (fun mvd -> mvd.mvd_name = mvr) xd.xd_mds + +let mvd_of_mvr_nonprimary (xd:syntaxdefn) (mvr:metavarroot) : metavardefn = + List.find (fun mvd -> has_assoc mvr mvd.mvd_names) xd.xd_mds + +let rule_of_ntr (xd:syntaxdefn) (ntr:nontermroot) : rule = + let rec search_ntr ntr rs = match rs with + | [] -> raise Not_found + | r::_ when r.rule_ntr_name = ntr -> r + | _::rs -> search_ntr ntr rs in + search_ntr ntr xd.xd_rs + +let rule_of_ntr_nonprimary (xd:syntaxdefn) (ntr:nontermroot) : rule = + let rec search_ntr2 ntr rs = match rs with + | [] -> raise Not_found + | r::_ when has_assoc ntr r.rule_ntr_names -> r + | _::rs -> search_ntr2 ntr rs in + search_ntr2 ntr xd.xd_rs + +let prod_of_prodname ?(warn=true) (xd:syntaxdefn) (pn:prodname) : prod = + let r = + try + List.find + (fun r -> List.exists (fun p -> p.prod_name=pn) r.rule_ps) + xd.xd_rs + with Not_found -> if warn then warning ("internal: prod_of_prodname: searching pn = "^pn^"\n"); raise Not_found in + List.find (fun p -> p.prod_name=pn) r.rule_ps +(* let prod_of_prod_name : prodname -> prod *) +(* = fun prod_name' -> *) +(* let rec q prods = *) +(* match prods with *) +(* [] -> raise Not_found *) +(* | prod::prods' -> *) +(* if prod.prod_name=prod_name' then prod else q prods' in *) +(* let rec p rules = *) +(* match rules with *) +(* [] -> raise Not_found *) +(* | r::rules' -> *) +(* try q (r.rule_ps) with Not_found -> p rules' in *) +(* p (List.concat l.rs) in *) + + +(* auxiliary to promote a primary ntr to its super-ntr, if any *) +let promote_ntr xd ntrp = + (* prerr_string (""^ntrp^"\n");flush stderr; *) + let d = List.map (function sr -> sr.sr_lower,sr.sr_top) xd.xd_srs in + try + List.assoc ntrp d + with Not_found -> + ntrp + +let promote_ntr' xd ntrp = + (* prerr_string (""^ntrp^"\n");flush stderr; *) + let d = List.map (function sr -> sr.sr_lower,(sr.sr_upper,sr.sr_top)) xd.xd_srs in + List.assoc ntrp d + +let promote_ntmvr xd ntmvr = + match ntmvr with + | Ntr ntrp -> (* print_endline ("promoting: " ^ ntrp); *) + Ntr (promote_ntr xd ntrp) + | Mvr mvr -> Mvr mvr + +(* extract the set of nonterminalroots defined by a syntax (including synonyms) + reverse-sorted *) +let all_ntrs_defined_by_syntaxdefn xd = + List.sort + (function a -> function b -> compare b a) + (List.concat (List.map (function r -> List.map fst r.rule_ntr_names) xd.xd_rs )) + +(* extract the set of metavarroots defined by a syntax (including synonms), + reverse-sorted *) +let all_mvrs_defined_by_syntaxdefn xd = + List.sort + (function a -> function b -> compare b a) + (List.concat (List.map (function mvd -> List.map fst mvd.mvd_names) xd.xd_mds )) +let all_nonindex_mvrs_defined_by_syntaxdefn xd = + List.sort + (function a -> function b -> compare b a) + (List.concat + (List.map (function mvd -> List.map fst mvd.mvd_names) + (List.filter (function md->not md.mvd_indexvar) xd.xd_mds ))) +let all_index_mvrs_defined_by_syntaxdefn xd = + List.sort + (function a -> function b -> compare b a) + (List.concat + (List.map (function mvd -> List.map fst mvd.mvd_names) + (List.filter (function md-> md.mvd_indexvar) xd.xd_mds ))) + +(* extract the set of prodnames defined by a syntax *) +let all_prodnames_defined_by_syntaxdefn xd = + List.sort + (function a -> function b -> compare b a) + (List.concat (List.map (function r -> List.map (function p->p.prod_name) r.rule_ps) xd.xd_rs )) + + +(* auxiliary to find the primary ntrs used in an element, prod, and rule *) +let rec primary_ntrs_used_in_element xd promote e = + match e with + | Lang_nonterm (ntr_primary,nt_as_written) -> + NtrSet.singleton + (if promote + then promote_ntr xd ntr_primary + else ntr_primary) + | Lang_metavar _ -> NtrSet.empty + | Lang_terminal _ -> NtrSet.empty + | Lang_option es -> ntrlistunion (List.map (primary_ntrs_used_in_element xd promote) es) + | Lang_sugaroption es -> NtrSet.empty + | Lang_list elb -> ntrlistunion(List.map (primary_ntrs_used_in_element xd promote) elb.elb_es) + +let primary_ntrs_used_in_hom xd m promote homs = + try + let hom = List.assoc m homs in + let defined_ntrs = all_ntrs_defined_by_syntaxdefn xd in + ntrsetoflist + (List.concat + (List.map + (fun hse -> + ( match hse with + | Hom_index _ | Hom_terminal _ -> [] + | Hom_string s -> + let strs = Str.split (Str.regexp "[ \t]+") s in + let ntrs_hom = List.filter (fun st -> List.mem st defined_ntrs) strs in + if promote + then List.map (promote_ntr xd) ntrs_hom + else ntrs_hom )) + hom )) + with Not_found -> NtrSet.empty + +let primary_ntrs_used_in_prod xd promote p = + ntrlistunion (List.map (primary_ntrs_used_in_element xd promote) p.prod_es) + +let primary_ntrs_used_in_rule xd scan_meta scan_homs promote r = + let prods = + if scan_meta + then r.rule_ps + else List.filter (fun p -> not p.prod_meta) r.rule_ps in + let in_rule = ntrlistunion (List.map (primary_ntrs_used_in_prod xd promote) prods) in + match scan_homs with + | None -> in_rule + | Some m -> NtrSet.union in_rule (primary_ntrs_used_in_hom xd m promote r.rule_homs) + + + +(* auxiliary to find the nts used in an element, prod, and rule *) +let rec nts_used_in_element pe e = match e with +| Lang_nonterm (ntr_primary,nt_as_written) -> + [(ntr_primary,nt_as_written,pe)] +| Lang_metavar _ -> [] +| Lang_terminal _ -> [] +| Lang_option es -> List.flatten (List.map (nts_used_in_element pe) es) +| Lang_sugaroption es -> [] +| Lang_list elb -> List.flatten (List.map (nts_used_in_element (elb.elb_boundo::pe)) elb.elb_es) + +let nts_list_used_in_es es = List.flatten (List.map (nts_used_in_element []) es) + +let nts_set_used_in_es es = ntsetoflist (nts_list_used_in_es es) + +let nts_used_in_prod p = nts_set_used_in_es p.prod_es + +let nts_used_in_rule r = ntlistunion (List.map nts_used_in_prod r.rule_ps) + +(* auxiliary to find the primary mvrs used in an element, prod, and rule *) +let rec primary_mvrs_used_in_element e = match e with +| Lang_nonterm _ -> MvrSet.empty +| Lang_metavar (mvr_primary,mv_as_written) -> + MvrSet.singleton mvr_primary +| Lang_terminal _ -> MvrSet.empty +| Lang_option es -> mvrlistunion (List.map primary_mvrs_used_in_element es) +| Lang_sugaroption es -> MvrSet.empty +| Lang_list elb -> mvrlistunion (List.map primary_mvrs_used_in_element elb.elb_es) + +let primary_mvrs_used_in_hom xd m homs = + try + let hom = List.assoc m homs in + let defined_mvrs = all_mvrs_defined_by_syntaxdefn xd in + mvrsetoflist + (List.concat + (List.map + (fun hse -> + ( match hse with + | Hom_index _ | Hom_terminal _ -> [] + | Hom_string s -> + let strs = Str.split (Str.regexp "[ \t]+") s in + List.filter (fun st -> List.mem st defined_mvrs) strs )) + hom )) + with Not_found -> MvrSet.empty + +let primary_mvrs_used_in_prod p = + mvrlistunion (List.map primary_mvrs_used_in_element p.prod_es) + +let primary_mvrs_used_in_rule xd scan_meta scan_homs r = + let rules = + if scan_meta + then r.rule_ps + else List.filter (fun p -> not p.prod_meta) r.rule_ps in + let in_rule = mvrlistunion (List.map primary_mvrs_used_in_prod rules) in + match scan_homs with + | None -> in_rule + | Some m -> MvrSet.union in_rule (primary_mvrs_used_in_hom xd m r.rule_homs) + +(* auxiliary to find the mvs used in an element, prod, and rule *) +let rec mvs_used_in_element pe e = match e with +| Lang_nonterm _ -> [] +| Lang_metavar (mvr_primary,mv_as_written) -> + [(mvr_primary,mv_as_written,pe)] +| Lang_terminal _ -> [] +| Lang_option es -> List.flatten (List.map (mvs_used_in_element pe) es) +| Lang_sugaroption es -> [] +| Lang_list elb -> List.flatten (List.map (mvs_used_in_element (elb.elb_boundo::pe)) elb.elb_es) + +let mvs_list_used_in_es es = List.flatten (List.map (mvs_used_in_element []) es) + +let mvs_set_used_in_es es = mvsetoflist (mvs_list_used_in_es es) + +let mvs_used_in_prod p = mvs_set_used_in_es p.prod_es + +let mvs_used_in_rule r = mvlistunion (List.map mvs_used_in_prod r.rule_ps) + +(* auxiliary to find the terminals used in a systemdefn, reverse-sorted *) +(* including pseudo-terminals :Expr_tuple: made up from production names *) +(* Expr_tuple *) +let rec terminals_of_element e = match e with + Lang_nonterm (_,_) -> TerminalSet.empty +| Lang_metavar (_,_) -> TerminalSet.empty +| Lang_terminal tm -> TerminalSet.singleton tm +| Lang_option es -> terminallistunion (List.map terminals_of_element es) +| Lang_sugaroption tm -> TerminalSet.singleton tm +| Lang_list elb -> + terminallistunion + ((match elb.elb_tmo with + | None -> TerminalSet.empty + | Some tm -> TerminalSet.singleton tm) + ::(List.map terminals_of_element elb.elb_es) ) +let terminals_of_prod p = + let ts = List.map terminals_of_element p.prod_es in + (*let ts = TerminalSet.singleton(psuedo_terminal_of_prod_name p.prod_name) :: ts in*) + terminallistunion ts +let terminals_of_rule r = terminallistunion + (List.map terminals_of_prod r.rule_ps) +let terminals_of_syntaxdefn0 xd = (* as a set *) + terminallistunion + (* ((terminalsetoflist extra_pseudo_terminals) *) + (* ::*) (List.map terminals_of_rule xd.xd_rs) +let terminals_of_syntaxdefn xd = (* as a reverse-ordered list *) + List.rev_append (TerminalSet.elements (terminals_of_syntaxdefn0 xd)) [] +let terminals_of_systemdefn sd = terminals_of_syntaxdefn sd.syntax + +let last_char_isalphanum s = s="" || (isalphanum s.[String.length s -1]) + +let terminals_of_syntaxdefn_alpha xd = + List.filter last_char_isalphanum (terminals_of_syntaxdefn xd) + +let terminals_of_syntaxdefn_nonalpha xd = + List.filter (function c -> not (last_char_isalphanum c)) (terminals_of_syntaxdefn xd) + + +(* auxiliaries to find the synonyms of a primary mvr or ntr *) +let mvr_synonyms : syntaxdefn -> metavarroot -> metavarroot list = + function xd -> + let assoc = List.map (function mvd -> (mvd.mvd_name, List.map fst mvd.mvd_names)) xd.xd_mds in + function mvrp -> List.assoc mvrp assoc + +let ntr_synonyms : syntaxdefn -> nontermroot -> nontermroot list = + function xd -> + let assoc = List.map (function r -> (r.rule_ntr_name, List.map fst r.rule_ntr_names)) xd.xd_rs in + function ntrp -> List.assoc ntrp assoc + +let all_indexvar_synonyms : syntaxdefn -> metavarroot list = + function xd -> + List.flatten (option_map (function mvd -> if mvd.mvd_indexvar then Some(List.map fst mvd.mvd_names) else None) xd.xd_mds) + +(* auxiliaries to take an ntr or mvr and find its primary one *) +let primary_ntr_of_ntr : syntaxdefn -> nontermroot -> nontermroot = + function xd -> + let assoc = List.map (function r -> (r.rule_ntr_name, List.map fst r.rule_ntr_names)) xd.xd_rs in + (* and one in the other direction *) + let assoc_op : (nontermroot * nontermroot) list + = List.concat + (List.map + (function (ntrp,ntrs)->List.map (function ntr'->(ntr',ntrp)) ntrs) + assoc) in + function ntr -> List.assoc ntr assoc_op + +let primary_mvr_of_mvr : syntaxdefn -> metavarroot -> metavarroot = + function xd -> + let assoc = List.map (function mvd -> (mvd.mvd_name, List.map fst mvd.mvd_names)) xd.xd_mds in + (* and one in the other direction *) + let assoc_op : (metavarroot * metavarroot) list + = List.concat + (List.map + (function (mvrp,mvrs)->List.map (function mvr'->(mvr',mvrp)) mvrs) + assoc) in + function mvr -> List.assoc mvr assoc_op + +let primary_nt_or_mv_of_nt_or_mv : syntaxdefn -> nt_or_mv_root -> nt_or_mv_root = + fun xd ntmvr -> + match ntmvr with + | Ntr ntr -> Ntr (primary_ntr_of_ntr xd ntr) + | Mvr mvr -> Mvr (primary_mvr_of_mvr xd mvr) + +(* auxiliary to take a primary ntr and give all its proper sub- (primary) ntrs *) +(* TODO WHAT EXACTLY IS THIS SUPPOSED TO DO??? *) +let ntr_proper_subs : syntaxdefn -> nontermroot -> nontermroot list = + fun xd ntrp -> + try List.assoc ntrp (xd.xd_srd.srd_proper_subntr_data) with Not_found -> [] +(* let x1 = List.map (function r -> r.rule_ntr_name) xd.xd_rs in *) +(* let x2 = List.map (function sr -> (sr.sr_upper,sr.sr_lower)) xd.xd_srs in *) +(* let x3 = List.map (function ntr -> try (ntr,[List.assoc ntr x2]) with Not_found -> (ntr,[])) x1 in *) +(* function ntrp -> List.assoc ntrp x3 *) + +let hom_name_for_pp_mode m + = match m with + | Ascii _ -> "ascii" + | Tex _ -> "tex" + | Isa _ -> "isa" + | Hol _ -> "hol" + | Lem _ -> "lem" + | Coq _ -> "coq" + | Twf _ -> "twf" + | Rdx _ -> "rdx" + | Caml _ -> "ocaml" + | Lex _ -> "lex" + | Menhir _ -> "menhir" + | Json _ -> "json" + +(* select dependencies *) + +let select_dep_ts m xddep = + try ( List.assoc (hom_name_for_pp_mode m) xddep ).xd_dep_ts + with Not_found -> int_error "cannot select dependencies\n" + +let select_dep_graph m xddep = + try ( List.assoc (hom_name_for_pp_mode m) xddep ).xd_dep_graph + with Not_found -> int_error "cannot select dependencies\n" + +let select_dep_graph_nontran m xddep = + try ( List.assoc (hom_name_for_pp_mode m) xddep ).xd_dep_graph_nontran + with Not_found -> int_error "cannot select dependencies\n" + +let hom_spec_for_hom_name hn homs = + try Some (List.assoc hn homs) + with Not_found -> None + +let hom_spec_for_pp_mode m homs = + hom_spec_for_hom_name (hom_name_for_pp_mode m) homs + +let loc_of_raw_element e = + match e with + | Raw_ident (l,_) + | Raw_option (l,_) + | Raw_list (l,_) + | Raw_nelist (l,_) + | Raw_sugaroption (l,_) + | Raw_dots (l,_) + | Raw_comp (l,_,_,_) + -> l + +let loc_of_raw_mse raw_mse = + match raw_mse with + | Raw_MVorNTExp (l,_) + | Raw_MVorNTListExp_dotform (l,_,_,_) + | Raw_MVorNTListExp_comp (l,_,_) + | Raw_Aux (l,_,_) + | Raw_AuxList_dotform (l,_,_,_,_) + | Raw_AuxList_comp (l,_,_,_) + | Raw_Union (l,_,_) + | Raw_Empty (l) + -> l + +let loc_of_raw_bindspec bs = + match bs with + | Raw_Bind (l,_,_) + | Raw_AuxFnDef(l,_,_) + | Raw_NamesEqual(l,_,_) + | Raw_NamesDistinct(l,_,_) + | Raw_AllNamesDistinct(l,_) + -> l + +let loc_of_raw_subrule sr = + sr.raw_sr_loc + +let loc_of_raw_contextrule cr = + cr.raw_cr_loc + +let loc_of_raw_subst sb = + sb.raw_sb_loc + +let loc_of_raw_freevar fv = + fv.raw_fv_loc + +let loc_of_raw_parsing_annotation pa = + pa.raw_pa_loc + +let loc_of_mytoken t = + match t with + | Tok_nonterm(l,_) + | Tok_metavar(l,_) +(* | Tok_terminal(l,_) *) +(* | Tok_dots(l,_) *) +(* | Tok_otherident(l,_) *) +(* | Tok_listform(l,_) *) + -> l + +(* *) +let rec remove_duplicates l = + match l with + | x::xs -> + if (List.mem x xs) then remove_duplicates xs else x::(remove_duplicates xs) + | [] -> [] + +let rec remove_duplicates2 f l = + match l with + | x::xs -> + if (List.exists (f x) xs) then remove_duplicates xs else x::(remove_duplicates xs) + | [] -> [] +(* PS: the above looks suspicious - should the recursive calls be to remove_duplicates2 f ?*) + +let rec find_first_duplicate l = + match l with + | x::xs -> + if (List.mem x xs) then Some x else find_first_duplicate xs + | [] -> None + +let rec find_first_duplicate2 f l = + match l with + | x::xs -> + if (List.exists (f x) xs) then Some x else find_first_duplicate xs + | [] -> None + +let rec setlist_union xs ys = + ( match xs with + | [] -> ys + | x::xs -> + if List.mem x ys then setlist_union xs ys + else x::setlist_union xs ys ) + +let rec setlist_list_union xss = + ( match xss with + | [] -> [] + | xs::xss -> setlist_union xs (setlist_list_union xss) ) + + + +let result_type_of_mse xd mse : nt_or_mv_root = + let rec f mse = match mse with + | MetaVarExp (mv) | MetaVarListExp (mv,_) -> + Some(Mvr(primary_mvr_of_mvr xd (fst mv))) + | NonTermExp (nt) | NonTermListExp (nt,_) -> + Some(Ntr(primary_ntr_of_ntr xd (fst nt))) + | Aux (f,(ntr',suffix)) | AuxList (f,(ntr',suffix),_) -> + Some(snd (List.assoc f xd.xd_axs)) + | Union(mse,mse') -> (match f mse, f mse' with + | Some ntmv, None | None,Some ntmv -> Some ntmv + | Some ntmv, Some ntmv' when ntmv=ntmv' -> Some ntmv + | None, None -> None + | _ -> failwith "result_type_of_mse applied to an mse with inconsistent type constraints") + | Empty -> None in + match f mse with + | Some ntmv -> ntmv + | None -> failwith "result_type_of_mse applied to an mse with unconstained type" + +let min_length_of_stli stli = match stli with + | Stli_single (_,_) -> 1 + | Stli_listform stlb -> match stlb.stl_bound with + | Bound_dotform bd -> 2 (* bd.bd_length *) + | Bound_comp _ -> 2 (* 0 *) + | Bound_comp_u _ -> 2 (* 0 *) + | Bound_comp_lu bclu -> 2 (* bclu.bclu_length *) + +let min_length_of_stlis stlis + = List.fold_left (+) 0 (List.map min_length_of_stli stlis) + + +let string_remove_suffix s s' = + let l = String.length s in + let l' = String.length s' in + if l<(String.length s') then None + else + let s1=String.sub s 0 (l-l') in + let s2=String.sub s (l-l') l' in + if s2<>s' then + None + else + Some s1 + +let string_is_prefix s s' = + let l = String.length s in + let l' = String.length s' in + if l' [] + | fst::_ -> + List.fold_left + (fun r xs -> List.map2 (fun x r -> x::r) xs r) + (List.map (fun _ -> []) fst) + (List.rev m) + +let split3 (l : ('a * 'b * 'c) list) : 'a list * 'b list * 'c list = + let rec internal l ba bb bc = + match l with + | [] -> (List.rev ba, List.rev bb, List.rev bc) + | (a,b,c)::tl -> internal tl (a::ba) (b::bb) (c::bc) + in internal l [] [] [] + +let big_line_comment m s = + match m with + | Coq _ | Hol _ | Lem _ | Isa _ | Caml _ -> "(** "^s^" *)\n" + | Twf _ -> "%%% "^s^" %%%\n\n" + | Tex _ -> "% "^s^"\n" + | Json _ -> "" + | Menhir _ | Lex _ | Ascii _ -> errorm m "big_line_comment" + +(* print only if not empty *) + +let rec print_with_comment m s0 c s = + match s with + | "" -> "" + | _ -> s0 ^ big_line_comment m c ^ s + + + + +(* extract nonterms from a symterm - used when building types in coq list treatment *) + +(* let rec extract_nonterms s = *) +(* match s with *) +(* | [] -> [] *) +(* | (Ste_st (_,St_nonterm (_,nt,_)))::t -> nt :: (extract_nonterms t) *) +(* | h::t -> *) +(* warning *) +(* ("internal: extract_nonterms case failure\n " *) +(* ^ (Grammar_pp.pp_plain_symterm_element h) ^ "***\n\n"); [] *) + + + +(* collect all the nonterms/metavars in a symterm *) +let rec nts_of_symterm st +: nonterm list = + match st with + | St_node (_,stnb) -> nts_of_symterm_node_body stnb + | St_nonterm (_,_,nt) -> [ nt ] + | St_nontermsub (_,ntrl,ntrt,nt) -> [nt] + | St_uninterpreted (_,_)-> [] +and nts_of_symterm_element ste = + match ste with + | Ste_st (_,st) -> nts_of_symterm st + | Ste_metavar (_,_,mv) -> [ ] + | Ste_var _ -> [] + | Ste_list (_,stlis) -> + List.concat (List.map nts_of_symterm_list_item stlis) +and nts_of_symterm_list_item stli = + match stli with + | Stli_single(_,stes) -> + List.concat (List.map nts_of_symterm_element stes) + | Stli_listform stlb -> + nts_of_symterm_list_body stlb +and nts_of_symterm_node_body stnb = + List.concat (List.map nts_of_symterm_element stnb.st_es) +and nts_of_symterm_list_body stlb = + List.concat (List.map nts_of_symterm_element stlb.stl_elements) +and nts_of_symterms sts = + List.concat (List.map nts_of_symterm sts) + +let rec mvs_of_symterm st +: metavar list = + match st with + | St_node (_,stnb) -> mvs_of_symterm_node_body stnb + | St_nonterm (_,_,nt) -> [ ] + | St_nontermsub (_,ntrl,ntrt,nt) -> [] + | St_uninterpreted (_,_)-> [] +and mvs_of_symterm_element ste = + match ste with + | Ste_st (_,st) -> mvs_of_symterm st + | Ste_metavar (_,_,mv) -> [ mv ] + | Ste_var _ -> [] + | Ste_list (_,stlis) -> + List.concat (List.map mvs_of_symterm_list_item stlis) +and mvs_of_symterm_list_item stli = + match stli with + | Stli_single(_,stes) -> + List.concat (List.map mvs_of_symterm_element stes) + | Stli_listform stlb -> + mvs_of_symterm_list_body stlb +and mvs_of_symterm_node_body stnb = + List.concat (List.map mvs_of_symterm_element stnb.st_es) +and mvs_of_symterm_list_body stlb = + List.concat (List.map mvs_of_symterm_element stlb.stl_elements) +and mvs_of_symterms sts = + List.concat (List.map mvs_of_symterm sts) + +let rec ntmvr_of_symterm st +: nt_or_mv_root list = + match st with + | St_node (_,stnb) -> ntmvr_of_symterm_node_body stnb + | St_nonterm (_,_,(ntr,_)) -> [ Ntr ntr ] + | St_nontermsub (_,ntrl,ntrt,(ntr,_)) -> [Ntr ntr] + | St_uninterpreted (_,_)-> [] +and ntmvr_of_symterm_element ste = + match ste with + | Ste_st (_,st) -> ntmvr_of_symterm st + | Ste_metavar (_,_,(mvr,_)) -> [ Mvr mvr ] + | Ste_var _ -> [] + | Ste_list (_,stlis) -> + List.concat (List.map ntmvr_of_symterm_list_item stlis) +and ntmvr_of_symterm_list_item stli = + match stli with + | Stli_single(_,stes) -> + List.concat (List.map ntmvr_of_symterm_element stes) + | Stli_listform stlb -> + ntmvr_of_symterm_list_body stlb +and ntmvr_of_symterm_node_body stnb = + List.concat (List.map ntmvr_of_symterm_element stnb.st_es) +and ntmvr_of_symterm_list_body stlb = + List.concat (List.map ntmvr_of_symterm_element stlb.stl_elements) +and ntmvr_of_symterms sts = + List.concat (List.map ntmvr_of_symterm sts) + +(** ******************************** *) +(** ******************************** *) +(** freshening *) +(** ******************************** *) +(** ******************************** *) + +let fresh_suffix : suffix list -> suffix -> suffix = + fun suffs suff0 -> + let suffix_nums suffs = + option_map + (function suffi -> + match suffi with + Si_num n -> Some(int_of_string n) + | _ -> None) + (List.concat suffs) in + let rec next ns n = if not (List.mem n ns) then n else next ns (n+1) in + (* TODO: do something better than this to avoid the less-trivial clashes *) + let index_suffis suff = List.filter (function suffi -> match suffi with Si_index _ -> true | _ -> false) suff in + let max_non_primes_suffix_length suffs = + List.fold_left max 0 (List.map (function suff -> if List.exists + (fun suffi -> match suffi with Si_punct "'" -> true | _ -> false) suff then 0 else List.length suff) suffs) in + let rec initial_underscores n = if n=0 then [] else (Si_punct "_")::initial_underscores (n-1) in + initial_underscores (max_non_primes_suffix_length suffs) + @ [Si_num (string_of_int (next (suffix_nums suffs) 5 (* 0 *)))] @ index_suffis suff0 + + + +(* find a suffix for a nontermroot that is distinct from all the +suffixes for that root that occur in an NtSet, and similarly for a +metavarroot *) + +(* let fresh_ntr_suffix : NtSet.t -> nontermroot -> suffix = *) +(* fun nts ntr0 -> *) +(* let suffs : suffix list = *) +(* NtSet.fold *) +(* (function (ntrp,(ntr,suff),pe) -> *) +(* function suffs' -> *) +(* if ntr=ntr0 then suff::suffs' else suffs') *) +(* nts *) +(* [] in *) +(* fresh_suffix suffs *) + +(* let fresh_mvr_suffix : MvSet.t -> metavarroot -> suffix = *) +(* fun mvs mvr0 -> *) +(* let suffs : suffix list = *) +(* MvSet.fold *) +(* (function (mvrp,(mvr,suff),pe) -> *) +(* function suffs' -> *) +(* if mvr=mvr0 then suff::suffs' else suffs') *) +(* mvs *) +(* [] in *) +(* fresh_suffix suffs *) + +let fresh_nt : nonterm list -> nonterm -> nonterm = + fun nts (ntr0,suff0) -> + let suffs : suffix list = + List.fold_right + (function (ntr,suff) -> + function suffs' -> + if ntr=ntr0 then suff::suffs' else suffs') + nts + [] in + let fresh_suff = fresh_suffix suffs suff0 in + (ntr0,fresh_suff) + +let fresh_mv : metavar list -> metavar -> metavar = + fun mvs (mvr0,suff0) -> + let suffs : suffix list = + List.fold_right + (function (mvr,suff) -> + function suffs' -> + if mvr=mvr0 then suff::suffs' else suffs') + mvs + [] in + let fresh_suff = fresh_suffix suffs suff0 in + (mvr0,fresh_suff) + + +(** ******************************** *) +(** ******************************** *) +(** nt and mv renaming *) +(** ******************************** *) +(** ******************************** *) + +(* to apply a simultaneous renaming to the nonterms (and roots), metavars (and roots) and prodnames of a system *) +(* NB: the renaming should be consistent in many ways... *) + +let rename_metavarroot (map_mvr,map_mv,map_ntr,map_nt,map_pn) mvr = + try List.assoc mvr map_mvr with Not_found -> mvr +let rename_metavar (map_mvr,map_mv,map_ntr,map_nt,map_pn) (mvr,suff) = + let mv = (mvr,suff) in + match map_mv with + | Some map_mv -> (try List.assoc mv map_mv with Not_found -> mv) + | None -> (try (List.assoc mvr map_mvr, suff) with Not_found -> mv) +let rename_nontermroot (map_mvr,map_mv,map_ntr,map_nt,map_pn) ntr = + try List.assoc ntr map_ntr with Not_found -> ntr +let rename_nonterm (map_mvr,map_mv,map_ntr,map_nt,map_pn) (ntr,suff) = + let nt = (ntr,suff) in + match map_nt with + | Some map_nt -> (try List.assoc nt map_nt with Not_found -> nt) + | None -> (try (List.assoc ntr map_ntr, suff) with Not_found -> nt) +let rename_prodname (map_mvr,map_mv,map_ntr,map_nt,map_pn) pn = + try List.assoc pn map_pn with Not_found -> pn + +let rec rename_nt_or_mv_root map ntmvr = match ntmvr with +| Mvr mvr -> Mvr (rename_metavarroot map mvr) +| Ntr ntr -> Ntr (rename_nontermroot map ntr) + +and rename_nt_or_mv map (ntmv,suff) = + (rename_nt_or_mv_root map ntmv,suff) + +and rename_metavardefn map mvd = + { mvd_name = rename_metavarroot map mvd.mvd_name; + mvd_names = List.map (function mvr,homs -> rename_metavarroot map mvr,homs) mvd.mvd_names; + mvd_rep = mvd.mvd_rep; + mvd_indexvar = mvd.mvd_indexvar; + mvd_locally_nameless = mvd.mvd_locally_nameless; + mvd_phantom = mvd.mvd_phantom; + mvd_loc = mvd.mvd_loc } + +and rename_suffix map suff = List.map (rename_suffix_item map) suff + +and rename_suffix_item map suffi = match suffi with +| Si_var (suffv,n) -> Si_var(rename_metavarroot map suffv,n) +| _ -> suffi + +and rename_bound map b = match b with +| Bound_dotform bd -> Bound_dotform { bd with + bd_lower = rename_suffix_item map bd.bd_lower; + bd_upper = rename_suffix_item map bd.bd_upper } +| Bound_comp bc -> Bound_comp { (* bc with *) + bc_variable = rename_metavarroot map bc.bc_variable} +| Bound_comp_u bcu -> Bound_comp_u { (* bcu with *) + bcu_variable = rename_metavarroot map bcu.bcu_variable; + bcu_upper = rename_suffix_item map bcu.bcu_upper } +| Bound_comp_lu bclu -> Bound_comp_lu { bclu with + bclu_variable = rename_metavarroot map bclu.bclu_variable; + bclu_lower = rename_suffix_item map bclu.bclu_lower; + bclu_upper = rename_suffix_item map bclu.bclu_upper } + +and rename_bindspec map bs = match bs with +| Bind(mse,nt)->Bind(rename_mse map mse,rename_nonterm map nt) +| AuxFnDef(auxfn,mse)->AuxFnDef(auxfn, rename_mse map mse) +| NamesEqual(mse,mse')->NamesEqual(rename_mse map mse,rename_mse map mse') +| NamesDistinct(mse,mse')->NamesDistinct(rename_mse map mse,rename_mse map mse') +| AllNamesDistinct(mse)->AllNamesDistinct(rename_mse map mse) + +and rename_mse map mse = match mse with +| MetaVarExp(mv)->MetaVarExp(rename_metavar map mv) +| NonTermExp(nt)->NonTermExp(rename_nonterm map nt) +| MetaVarListExp(mv,b)->MetaVarListExp(rename_metavar map mv,rename_bound map b) +| NonTermListExp(nt,b)->NonTermListExp(rename_nonterm map nt,rename_bound map b) +| Aux(f,nt)->Aux(f,rename_nonterm map nt) +| AuxList(f,nt,b)->AuxList(f,rename_nonterm map nt,rename_bound map b) +| Union(mse,mse')->Union(rename_mse map mse,rename_mse map mse') +| Empty->Empty + +and rename_auxfn_type map (ntrs,ntmvr) = List.map (rename_nontermroot map) ntrs,rename_nt_or_mv_root map ntmvr + +and rename_element map e = match e with +| Lang_nonterm(ntr,nt)->Lang_nonterm(rename_nontermroot map ntr,rename_nonterm map nt) +| Lang_metavar(mvr,mv)->Lang_metavar(rename_metavarroot map mvr,rename_metavar map mv) +| Lang_terminal(tm)->Lang_terminal(tm) +| Lang_option(es)->Lang_option(List.map (rename_element map) es) +| Lang_sugaroption(tm)->Lang_sugaroption(tm) +| Lang_list(elb)->Lang_list(rename_element_list_body map elb) + +and rename_element_list_body map elb = + { elb_boundo = (match elb.elb_boundo with None->None | Some b -> Some (rename_bound map b)); + elb_tmo = elb.elb_tmo; + elb_es = List.map (rename_element map) elb.elb_es } + +and rename_prod map p = + { p with + prod_name = rename_prodname map p.prod_name; + prod_es = List.map (rename_element map) p.prod_es; + prod_bs = List.map (rename_bindspec map) p.prod_bs; } + +and rename_rule map r = + { r with + rule_ntr_name = rename_nontermroot map r.rule_ntr_name; + rule_ntr_names = List.map (function ntr,homs -> rename_nontermroot map ntr,homs) r.rule_ntr_names; + rule_ps = List.map (rename_prod map) r.rule_ps } + +and rename_subrule map sr = + { sr with + sr_lower = rename_nontermroot map sr.sr_lower; + sr_upper = rename_nontermroot map sr.sr_upper; + sr_top = rename_nontermroot map sr.sr_top } + +and rename_proper_subntr_data map psd = + List.map (function ntr,ntrs -> (rename_nontermroot map ntr,List.map (rename_nontermroot map) ntrs)) psd + +and rename_subrule_graph map sg = + List.map (function ntr,ntr' -> (rename_nontermroot map ntr,rename_nontermroot map ntr')) sg + +and rename_subrule_pn_promotion map spp = + List.map (function ntr,(ntr',pps) -> (rename_nontermroot map ntr,(rename_nontermroot map ntr',List.map (function pn,pn'->rename_prodname map pn,rename_prodname map pn') pps))) spp + +and rename_subrule_data map srd = + {srd_proper_subntr_data = rename_proper_subntr_data map srd.srd_proper_subntr_data; + srd_subrule_graph = rename_subrule_graph map srd.srd_subrule_graph; + srd_subrule_pn_promotion = rename_subrule_pn_promotion map srd.srd_subrule_pn_promotion } + +and rename_contextrule map cr = + { cr with + cr_ntr = rename_nontermroot map cr.cr_ntr; + cr_target = rename_nontermroot map cr.cr_target; + cr_hole = rename_nontermroot map cr.cr_hole } + +and rename_subst map subst = + { subst with + sb_this = rename_nontermroot map subst.sb_this; + sb_that = rename_nt_or_mv_root map subst.sb_that; } + +and rename_freevar map fv = + { fv with + fv_that = rename_nt_or_mv_root map fv.fv_that; } + +and rename_parsing_annotations map pas = + { pa_data = List.map (fun (ntr1,pa_type,ntr2)-> + (rename_nontermroot map ntr1,pa_type,rename_nontermroot map ntr2)) pas.pa_data } + +and rename_dependencies map xddep = + { xd_dep_ts = List.map (List.map (rename_nt_or_mv_root map)) xddep.xd_dep_ts; + xd_dep_graph = List.map (function ntmvr,ntmvrs -> rename_nt_or_mv_root map ntmvr, List.map (rename_nt_or_mv_root map) ntmvrs) xddep.xd_dep_graph; + xd_dep_graph_nontran = List.map (function ntmvr,ntmvrs -> rename_nt_or_mv_root map ntmvr, List.map (rename_nt_or_mv_root map) ntmvrs) xddep.xd_dep_graph; } + +and rename_syntaxdefn map xd = + { xd_mds = List.map (rename_metavardefn map) xd.xd_mds; + xd_rs = List.map (rename_rule map) xd.xd_rs; + xd_dep = List.map (function be,xddep -> (be, rename_dependencies map xddep)) xd.xd_dep; + xd_srs = List.map (rename_subrule map) xd.xd_srs; + xd_srd = rename_subrule_data map xd.xd_srd; + xd_crs = List.map (rename_contextrule map) xd.xd_crs; + xd_axs = List.map (function f,ftype -> (f,rename_auxfn_type map ftype)) xd.xd_axs; + xd_sbs = List.map (rename_subst map) xd.xd_sbs; + xd_fvs = List.map (rename_freevar map) xd.xd_fvs; + xd_embed_preamble = xd.xd_embed_preamble; + (* xd_embed_postamble = xd.xd_embed_postamble; *) + xd_embed = xd.xd_embed; + xd_isa_imports = xd.xd_isa_imports; + xd_pas = rename_parsing_annotations map xd.xd_pas; +} + +and rename_defnclass map dc = + { dc with dc_defns = List.map (rename_defn map) dc.dc_defns } + +and rename_defn map d = + { d with +(* TODO: do we need to rename d_names? d_name = rename_nontermroot d.d_name *) + d_rules = List.map (rename_processed_semiraw_rule map) d.d_rules } + +and rename_drule map dr = + { dr with + drule_premises = List.map (fun (hn,st) -> (hn,rename_symterm map st)) dr.drule_premises; + drule_conclusion = rename_symterm map dr.drule_conclusion; } + +and rename_processed_semiraw_rule map psr = + match psr with + | PSR_Rule dr -> PSR_Rule (rename_drule map dr) + | PSR_Defncom es -> psr + +and rename_funclause map fc = + { fc with + fc_lhs = rename_symterm map fc.fc_lhs; + fc_rhs = rename_symterm map fc.fc_rhs; } + +and rename_fundefn map fd = + { fd with + fd_clauses = List.map (rename_funclause map) fd.fd_clauses } + +and rename_fundefnclass map fdc = + { fdc with + fdc_fundefns = List.map (rename_fundefn map) fdc.fdc_fundefns } + +and rename_fun_or_reln_defnclass map frdc = + match frdc with + | FDC fdc -> FDC (rename_fundefnclass map fdc) + | RDC dc -> RDC (rename_defnclass map dc) + +and rename_relationsdefn map rd = + List.map (rename_fun_or_reln_defnclass map) rd + +and rename_structure_entry map stre = + match stre with + | Struct_md mvr -> Struct_md (rename_metavarroot map mvr) + | Struct_rs ntrs -> Struct_rs (List.map (rename_nontermroot map) ntrs) + | Struct_srs xs -> + Struct_srs (List.map + (fun (ntr1,ntr2) -> + (rename_nontermroot map ntr1, + rename_nontermroot map ntr2)) xs) + | Struct_crs xs -> + Struct_crs (List.map + (fun (ntr1,ntr2,ntr3) -> + (rename_nontermroot map ntr1, + rename_nontermroot map ntr2, + rename_nontermroot map ntr3)) xs) + | Struct_axs f -> Struct_axs f + | Struct_sbs xs -> Struct_sbs xs + | Struct_fvs xs -> Struct_fvs xs + | Struct_embed embeds -> Struct_embed embeds + | Struct_fun_or_defnclass dcns -> Struct_fun_or_defnclass dcns + +and rename_structure map str = + List.map (fun (fn,stre) -> (fn, rename_structure_entry map stre)) str + +and rename_systemdefn map sd = + { syntax = rename_syntaxdefn map sd.syntax; + relations = rename_relationsdefn map sd.relations; + structure = rename_structure map sd.structure; + sources = sd.sources } + +and rename_symterm map st = + match st with + | St_node(l,stnb)->St_node(l,rename_symterm_node_body map stnb) + | St_nonterm(l,ntrp,nt) -> St_nonterm(l,rename_nontermroot map ntrp,rename_nonterm map nt) + | St_nontermsub(l,ntrpl,ntrpt,nt) -> St_nontermsub(l,rename_nontermroot map ntrpl,rename_nontermroot map ntrpt,rename_nonterm map nt) + | St_uninterpreted(l,s) -> st + +and rename_symterm_node_body map stnb = + { stnb with st_es = List.map (rename_symterm_element map) stnb.st_es } + +and rename_symterm_element map ste = + match ste with + | Ste_st(l,st) -> Ste_st(l,rename_symterm map st) + | Ste_metavar(l,mvrp,mv) -> Ste_metavar(l,rename_metavarroot map mvrp,rename_metavar map mv) + | Ste_var(l,mvr,var) -> Ste_var(l,rename_metavarroot map mvr,var) + | Ste_list(l,stlis) -> Ste_list(l,List.map (rename_symterm_list_item map) stlis) + +and rename_symterm_list_item map stli = + match stli with + | Stli_single(l,stes) -> Stli_single(l,List.map (rename_symterm_element map) stes) + | Stli_listform(stlb) -> Stli_listform(rename_symterm_list_body map stlb) + +and rename_symterm_list_body map stlb = + { stlb with + stl_bound = rename_bound map stlb.stl_bound; + stl_elements = List.map (rename_symterm_element map) stlb.stl_elements } + + +(** ******************************** *) +(** ******************************** *) +(** avoidance of primary ntrs etc *) +(** ******************************** *) +(** ******************************** *) + +(* build renamings for metavars and nonterms, to avoid non-suffixed primary ones, *) +(* report an error if there is a primary indexvar *) + +let avoid xd mvs0 nts0 = + + (* first for metavariables *) + + (* remove duplicates, as we didn't bother before *) + let mvs1 = remove_duplicates mvs0 in + + (* consider only mvs with primary mvrs, and raise an error *) + (* if there is one with a primary indexvar, as they cannot be freshened *) + let mvs2 = option_map + (function ((mvr,suff) as mv) -> + let mvd = mvd_of_mvr_nonprimary xd mvr in + match mvd.mvd_indexvar with + | true -> + if mvr=mvd.mvd_name then + warning ("warning: indexvar \""^mvr^"\" is primary so may give a name-clash\n") ; + None + | false -> + if mvr=mvd.mvd_name then Some mv else None + ) mvs1 in + + (* for each such, if there is one with an empty suffix, generate a new suffix that is *) + (* fresh amongst all the suffixes of mvs with the same root *) + let mv_map = option_map + (function ((mvr,suff) as mv) -> + match suff with + | [] -> + let suffs = + option_map + (function (mvr',suff') -> if mvr'=mvr then Some suff' else None) + mvs2 in + let suff'' = fresh_suffix suffs suff in + let mv'' = (mvr,suff'') in + Some (mv,mv'') + | _ -> None) + mvs2 in + + (* and now for nonterminals *) + (* remove duplicates, as we didn't bother before *) + let nts1 = remove_duplicates nts0 in + + (* consider only nts with primary ntrs *) + let primary_ntrs = List.map (function r -> r.rule_ntr_name) xd.xd_rs in + let nts2 = List.filter + (function (ntr,suff) -> List.mem ntr primary_ntrs) nts1 in + + (* for each such, if there is one with an empty suffix, generate a new suffix that is *) + (* fresh amongst all the suffixes of nts with the same root *) + let nt_map = option_map + (function ((ntr,suff) as nt) -> + match suff with + | [] -> + let suffs = option_map (function (ntr',suff') -> if ntr'=ntr then Some suff' else None) nts2 in + let suff'' = fresh_suffix suffs suff in + let nt'' = (ntr,suff'') in + Some (nt,nt'') + | _ -> None) + nts2 in + + ([],Some mv_map,[],Some nt_map,[]) + +(* alternatively...*) +(* build renamings for metavars and nonterms, to rename them all *) +(* (except indexvars) to freshly-renamed secondary ones. *) +(* report an error if there is a primary indexvar *) +(* report an error if there is a (non-index) metavar or nonterm without a secondary name *) + +let secondary_mvr xd mvr = + let mvd = mvd_of_mvr_nonprimary xd mvr in + (match mvd.mvd_names with + | [] -> int_error "secondary_mvr, empty list of rule names" + | [_] ->mvr + | mvrp::mvrq::_ -> fst mvrq) + +let secondary_ntr xd ntr = + let r = rule_of_ntr_nonprimary xd ntr in + (match r.rule_ntr_names with + | [] -> int_error "secondary_ntr, empty list of rule names" + | [_] ->ntr + | ntrp::ntrq::_ -> fst ntrq) + +let secondary_ntmvr xd ntmvr = + match ntmvr with + | Ntr ntr -> Ntr (secondary_ntr xd ntr) + | Mvr mvr -> Mvr (secondary_mvr xd mvr) + +let secondaryify xd mvs0 nts0 = + + (* first for metavariables *) + (* remove duplicates, as we didn't bother before *) + let mvs1 = remove_duplicates mvs0 in + + (* consider only nonindex mvs, and raise an error *) + (* if there is one with a primary indexvar, as they cannot be freshened *) + let mvs2 = option_map + (function ((mvr,suff) as mv) -> + let mvd = mvd_of_mvr_nonprimary xd mvr in + match mvd.mvd_indexvar with + | true -> + if mvr=mvd.mvd_name then + warning ("indexvar \""^mvr^"\" is primary so may give a name-clash\n") ; + Some mv + | false -> + Some mv + ) mvs1 in + + let rec mv_map acc mvs = match mvs with + | [] -> acc + | ((mvr,suff) as mv)::mvs' -> + let mvr' = secondary_mvr xd mvr in + (*if mvr'=mvr then error ("no secondary metavar root defined for \""^mvr^"\"");*) + let suffs = option_map (function (_,(mvr'',suff'')) -> if mvr''=mvr' then Some suff'' else None) acc in + let suff'' = fresh_suffix suffs suff in + let mv'' = (mvr',suff'') in + mv_map ((mv,mv'')::acc) mvs' in + + (* and now for nonterminals *) + let nts2 = remove_duplicates nts0 in + + let rec nt_map acc nts = match nts with + | [] -> acc + | ((ntr,suff) as nt)::nts' -> + let ntr' = secondary_ntr xd ntr in + (*if ntr'=ntr then error ("no secondary nonterminal root defined for \""^ntr^"\"");*) + let suffs = option_map (function (_,(ntr'',suff'')) -> if ntr''=ntr' then Some suff'' else None) acc in + let suff'' = fresh_suffix suffs suff in + let nt'' = (ntr',suff'') in + nt_map ((nt,nt'')::acc) nts' in + + ( [], Some(mv_map [] mvs2), [], Some(nt_map [] nts2), [] ) + +(* apply suitable renamings across a systemdefn *) + +(* this renames the syntaxdefn and the relations. Such renaming *) +(* should have no effect on the parsing of symterms, so it doesn't *) +(* matter whether we parse (in embed sections) with respect to a *) +(* renamed or original syntaxdefn. *) + +(* We don't rename any embedded symterms within embed sections. Should we? Perhaps not.*) + +(* let avoid = secondaryify *) + +let rec avoid_primaries_prod xd s p = + let mvs = + List.map (function(mvrp,mv,pe)->mv) (mvs_list_used_in_es p.prod_es) in + let nts = + List.map (function(ntrp,nt,pe)->nt) (nts_list_used_in_es p.prod_es) in + let map = if s then secondaryify xd mvs nts else avoid xd mvs nts in + { p with + prod_es = List.map (rename_element map) p.prod_es; + prod_bs = List.map (rename_bindspec map) p.prod_bs; } + +and avoid_primaries_rule xd s r = + { r with + rule_ps = List.map (avoid_primaries_prod xd s) r.rule_ps } + +and avoid_primaries_syntaxdefn xd s xd = + { xd with + xd_rs = List.map (avoid_primaries_rule xd s) xd.xd_rs; } + +and avoid_primaries_defnclass xd s dc = + { dc with dc_defns = List.map (avoid_primaries_defn xd s) dc.dc_defns } + +and avoid_primaries_defn xd s d = + {d with d_rules = List.map (avoid_primaries_processed_semiraw_rule xd s) d.d_rules } + +and avoid_primaries_drule xd s dr = + let sts = dr.drule_conclusion :: (List.map snd dr.drule_premises) in + let nts = nts_of_symterms sts in + let mvs = mvs_of_symterms sts in + let map = if s then secondaryify xd mvs nts else avoid xd mvs nts in + {dr with + drule_premises = List.map (fun (hn,st) -> (hn,rename_symterm map st)) dr.drule_premises; + drule_conclusion = rename_symterm map dr.drule_conclusion;} + +and avoid_primaries_processed_semiraw_rule xd s psr = + match psr with + | PSR_Rule dr -> PSR_Rule (avoid_primaries_drule xd s dr) + | PSR_Defncom es -> psr + +and avoid_primaries_funclause xd s fc = + let sts = [fc.fc_lhs;fc.fc_rhs] in + let nts = nts_of_symterms sts in + let mvs = mvs_of_symterms sts in + let map = if s then secondaryify xd mvs nts else avoid xd mvs nts in + { fc with + fc_lhs = rename_symterm map fc.fc_lhs; + fc_rhs = rename_symterm map fc.fc_rhs; } + +and avoid_primaries_fundefn xd s fd = + { fd with fd_clauses = List.map (avoid_primaries_funclause xd s) fd.fd_clauses } + +and avoid_primaries_fundefnclass xd s fdc = + { fdc with + fdc_fundefns = List.map (avoid_primaries_fundefn xd s) fdc.fdc_fundefns } + +and avoid_primaries_fun_or_reln_defnclass xd s fdrc = + match fdrc with + | FDC fdc -> FDC (avoid_primaries_fundefnclass xd s fdc) + | RDC dc -> RDC (avoid_primaries_defnclass xd s dc) + +and avoid_primaries_relationsdefn xd s rd = + List.map (avoid_primaries_fun_or_reln_defnclass xd s) rd + +and avoid_structure_entry xd s stre = + stre (* FZ BROKEN BROKEN BROKEN *) + +and avoid_primaries_structure xd s str = + List.map (avoid_structure_entry xd s) str + +and avoid_primaries_systemdefn s sd = + { syntax = avoid_primaries_syntaxdefn sd.syntax s sd.syntax; + relations = avoid_primaries_relationsdefn sd.syntax s sd.relations; + structure = avoid_primaries_structure sd.syntax s sd.structure; + sources = sd.sources } + + +(** ******************************** *) +(** ******************************** *) +(** caml renaming *) +(** ******************************** *) +(** ******************************** *) + +(* build renamings for metavars and nonterms, to map nonterminals and +metavariables (and their roots) to lowercase, and production names to +uppercase *) + +let rec detect_conflicts l = + match l with + | [] -> (false,"") + | (_,x)::tl -> + if List.mem x (List.map (fun x -> snd x) tl) + then (true,x) + else detect_conflicts tl + +let capitalize_prodnames sd = + let rule_list = sd.syntax.xd_rs in + let prod_list = List.flatten (List.map (fun r -> r.rule_ps) rule_list) in + let prod_name_list = List.map (fun p -> p.prod_name) prod_list in + let map_prod_names = List.map (fun pn -> (pn,String.capitalize pn)) prod_name_list in + let (conflict,err_msg) = detect_conflicts map_prod_names in + if conflict + then error ("Renaming of production name \""^err_msg^"\" generates a conflict\n") + else map_prod_names + +let uncapitalize_prodnames sd = + let rule_list = sd.syntax.xd_rs in + let prod_list = List.flatten (List.map (fun r -> r.rule_ps) rule_list) in + let prod_name_list = List.map (fun p -> p.prod_name) prod_list in + let map_prod_names = List.map (fun pn -> (pn,String.uncapitalize pn)) prod_name_list in + let (conflict,err_msg) = detect_conflicts map_prod_names in + if conflict + then error ("Renaming of production name \""^err_msg^"\" generates a conflict\n") + else map_prod_names + +let uncapitalize_primary_nontermroots sd = + let rule_list = sd.syntax.xd_rs in + let nontermroots_list = List.map (fun r -> r.rule_ntr_name) rule_list in + let map_nontermroots = List.map (fun ntr -> (ntr,String.uncapitalize ntr)) nontermroots_list in + let (conflict,err_msg) = detect_conflicts map_nontermroots in + if conflict + then error ("Renaming of primary nontermroot \""^err_msg^"\" generates a conflict\n") + else map_nontermroots + +let uncapitalize_primary_metavarroots sd = + let metavardefn_list = sd.syntax.xd_mds in + let metavarroots_list = List.map (fun mvd -> mvd.mvd_name) metavardefn_list in + let map_metavarroots = List.map (fun mvr -> (mvr,String.uncapitalize mvr)) metavarroots_list in + let (conflict,err_msg) = detect_conflicts map_metavarroots in + if conflict + then error ("Renaming of primary metavar \""^err_msg^"\" generates a conflict\n") + else map_metavarroots + +let caml_rename sd = + let map_prod_names = capitalize_prodnames sd in + let map_nontermroots = uncapitalize_primary_nontermroots sd in + let map_metavarroots = uncapitalize_primary_metavarroots sd in + rename_systemdefn (map_metavarroots,None,map_nontermroots,None,map_prod_names) sd + +let twelf_rename sd = + let map_prod_names = uncapitalize_prodnames sd in + let map_nontermroots = uncapitalize_primary_nontermroots sd in + let map_metavarroots = uncapitalize_primary_metavarroots sd in + rename_systemdefn (map_metavarroots,None,map_nontermroots,None,map_prod_names) sd + +let rec capitalize_prodnames_in_symterm st = + match st with + | St_node (l,stnb) -> St_node (l,capitalize_prodnames_in_symterm_node_body stnb) + | _ -> st +and capitalize_prodnames_in_symterm_node_body stnb = + { st_rule_ntr_name = stnb.st_rule_ntr_name; + st_prod_name = String.capitalize stnb.st_prod_name; + st_es = List.map capitalize_prodnames_in_symterm_element stnb.st_es; + st_loc = stnb.st_loc } +and capitalize_prodnames_in_symterm_element ste = + match ste with + | Ste_st (l,st) -> Ste_st (l,capitalize_prodnames_in_symterm st) + | Ste_list (l,stlis) -> Ste_list (l,List.map capitalize_prodnames_in_symterm_list_item stlis) + | _ -> ste +and capitalize_prodnames_in_symterm_list_item stli = + match stli with + | Stli_single (l,stes) -> Stli_single (l,List.map capitalize_prodnames_in_symterm_element stes) + | Stli_listform stlb -> Stli_listform (capitalize_prodnames_in_symterm_list_body stlb) +and capitalize_prodnames_in_symterm_list_body stlb = + { stl_bound = stlb.stl_bound ; + stl_elements = List.map capitalize_prodnames_in_symterm_element stlb.stl_elements; + stl_loc = stlb.stl_loc } + +(** ******************************** *) +(** ******************************** *) +(** ******************************** *) +(** ******************************** *) + +(* some useful conversions *) + +let pp_true m in_prop = + match m with + | Isa _ -> "True" + | Coq co -> + if co.coq_expand_lists || in_prop + then "True" + else "true" + | Hol _ -> "T" + | Caml _ -> "true" + | Lem _ -> "true" + | Ascii _ | Tex _ | Twf _ | Lex _ | Menhir _ -> errorm m "pp_true" + +let pp_false m in_prop = + match m with + | Isa _ -> "False" + | Coq co -> + if co.coq_expand_lists || in_prop + then "False" + else "false" + | Hol _ -> "F" + | Caml _ -> "false" + | Lem _ -> "false" + | Ascii _ | Tex _ | Twf _ | Lex _ | Menhir _ -> errorm m "pp_false" + +let pp_and m in_prop = + match m with + | Isa _ -> " & " + | Caml _ -> " && " + | Lem _ -> " && " + | Coq co -> + if co.coq_expand_lists || in_prop + then " /\\ " + else " && " + | Hol _ -> " /\\ " + | Ascii _ | Tex _ | Twf _ | Lex _ | Menhir _ -> errorm m "pp_and" + +let pp_or m in_prop = + match m with + | Isa _ -> " | " + | Coq co -> + if co.coq_expand_lists || in_prop + then " \\/ " + else " || " + | Hol _ -> " \\/ " + | Caml _ -> " || " + | Lem _ -> " || " + | Ascii _ | Tex _ | Twf _ | Lex _ | Menhir _ -> errorm m "pp_or" + +(* coq/twelf support *) +let fresh_nl = + let counter = ref 0 in + fun () -> counter := !counter+1; "NL"^(string_of_int !counter) + +let insert_append m l = + match m with + | Coq _ -> + ( match l with + | [] -> "nil" + | x::[] -> "("^x^")" + | _ -> + let rec last l = + ( match l with + | [] -> errorm m "never happen in insert_append" + | x::[] -> errorm m "never happen in insert_append" + | x::y::[] -> ([x],y) + | h::t -> let (x,y) = last t in (h::x,y) ) in + let els,el_last = last l in + List.fold_right (fun x s -> "(app "^x^" "^s^")") els el_last ) + | Twf _ -> + ( match l with + | [] -> "natlist/nil" + | x::[] -> x + | _ -> + let result_nl = List.map (fun x -> fresh_nl()) (List.tl l) in + let list_nl = List.map (fun x -> fresh_nl()) l in + let final_append = + let rec internal current_result result_nl list_nl = + ( match result_nl with + | [] -> " <- append/natlist " ^ String.concat " " list_nl ^ " " ^ current_result + | r::rt -> + " <- append/natlist " ^ (List.hd list_nl) ^ " " ^ current_result ^ " " ^ (List.hd result_nl) + ^ (internal (List.hd result_nl) (List.tl result_nl) (List.tl list_nl)) ) + + in internal (List.hd result_nl) (List.tl result_nl) list_nl in + + List.hd (List.rev result_nl) ^ " <- " + ^ ( String.concat " <- " + (List.map2 (fun s nl -> s ^ " " ^ nl) l list_nl) ) + ^ final_append ) + | Caml _ | Tex _ | Ascii _ | Hol _ | Lem _ | Isa _ | Lex _ | Menhir _ -> raise ThisCannotHappen + +(* skip a nonterm or a metavar in a list of elements *) +let rec skip_nt_mv (es:element list) = + match es with + | [] -> [] + | (Lang_nonterm (_,_))::tl | (Lang_metavar (_,_))::tl -> tl + | _::tl -> skip_nt_mv tl + +let rec head_nt_mv (es:element list) = + match es with + | [] -> raise Not_found + | (Lang_nonterm (ntr,nt))::tl -> Lang_nonterm (ntr,nt) + | (Lang_metavar (mvr,mv))::tl -> Lang_metavar (mvr,mv) + | _::tl -> head_nt_mv tl + +(* analyze the productions and decide if it relies on polymorphic lists or not - isa output *) +let compute_isa_list_name_flag r = + let prods = List.filter (fun p -> not (p.prod_meta)) r.rule_ps in + let ess = List.concat (List.map (fun p -> p.prod_es) prods) in + let rec scan ess = + match ess with + | [] -> false + | x::xs -> + ( match x with + | Lang_list elb -> (scan_int elb.elb_es xs) || (scan xs) + | _ -> scan xs ) + and scan_int x xs = + match xs with + | [] -> false + | (Lang_list elb)::ys -> + if x = elb.elb_es then true + else scan_int x ys + | _::ys -> scan_int x ys + in + scan ess + +let collapse_embed_spec_el_list es = + + let rec collapse_embed_spec_el_list1 acc es + = match es with + | (Embed_string(l,s))::es' -> collapse_embed_spec_el_list2 acc (l,s) es' + | (Embed_inner(_,_) as ese)::es' -> collapse_embed_spec_el_list1 (ese::acc) es' + | [] -> acc + and collapse_embed_spec_el_list2 acc (l0,s0) es + = match es with + | (Embed_string(l,s))::es' -> collapse_embed_spec_el_list2 acc (dummy_loc,s0^s) es' + | (Embed_inner(_,_) as ese)::es' -> collapse_embed_spec_el_list1 (ese::Embed_string(l0,s0)::acc) es' + | [] -> Embed_string(l0,s0)::acc + in + List.rev (collapse_embed_spec_el_list1 [] es) + +let collapse_embed (l,hn,es) = (l,hn,collapse_embed_spec_el_list es) + +let rec pp_tex_escape s = + String.concat "" + (List.map + (fun c -> + if c='_' then "\\_" else + if c='%' then "\\%" else + if c='$' then "\\$" else + if c='#' then "\\#" else + if c='?' then "\\mbox{?}" else + if c='^' then "\\mbox{$\\uparrow$}" else + if c='{' then "\\{" else + if c='}' then "\\}" else + if c='&' then "\\&" else + if c='\\' then "\\mbox{$\\backslash{}$}" else + if c='|' then "\\mbox{$\\mid$}" else + String.make 1 c) + (char_list_of_string s)) + +let rec pp_tex_escape_alltt s = + String.concat "" + (List.map + (fun c -> +(* if c='_' then "\\_" else *) + if c='{' then "\\mylb{}" else + if c='}' then "\\myrb{}" else + if c='\\' then "\\mybackslash{}" else + String.make 1 c) + (char_list_of_string s)) + +(* file name manipulation *) + +let isa_filename_check s = + match string_remove_suffix s ".thy" with + | None -> error ("Isabelle filenames must end with .thy\n") + | Some s1 -> s1 + +let hol_filename_check s = + match string_remove_suffix s "Script.sml" with + | None -> failwith ("HOL filenames must end with Script.sml\n") + | Some s1 -> s1 + +let filename_check m s = + match m with + | Hol _ -> hol_filename_check s + | Isa _ -> isa_filename_check s + | _ -> s + +(* locally nameless *) + +let is_lngen m = + let co = match m with Coq co -> co + | _ -> errorm m "ln_transform_syntaxdefn of non-coq target" in + co.coq_lngen + +let require_locally_nameless xd = + List.exists + ( fun mvd -> + try let _ = List.assoc "repr-locally-nameless" mvd.mvd_rep in true + with Not_found -> false ) + xd.xd_mds + +(* nominal *) + +let is_nominal_atom m xd mvd = + List.exists + (fun (hn,_) -> String.compare hn "repr-nominal" = 0) + mvd.mvd_rep + +let prod_require_nominal m xd p = + (* true if p contains binders with nominal repr *) + List.exists + ( fun bs -> + match bs with + | Bind (MetaVarExp (mvr,_), nt) -> + is_nominal_atom m xd (mvd_of_mvr xd (primary_mvr_of_mvr xd mvr) ) + | _ -> false ) + p.prod_bs + +let rule_require_nominal m xd r = + List.exists (prod_require_nominal m xd) r.rule_ps + +let rules_require_nominal m xd rs = + List.exists (rule_require_nominal m xd) rs + +let require_nominal xd = + List.exists + ( fun mvd -> + try let _ = List.assoc "repr-nominal" mvd.mvd_rep in true + with Not_found -> false ) + xd.xd_mds + +(* debug code for the structure data type *) + +let dump_structure_entry (l,stre) = + ( match l with + | [] -> "" + | h::_ -> (Location.pp_t h)^" : " ) + ^ + ( match stre with + | Struct_md mvr -> "metavar def: "^mvr + | Struct_rs ntrs -> "rule def: "^(String.concat " " ntrs) + | Struct_srs xs -> "subrule def: "^ + (String.concat " " + (List.map (fun (ntr1,ntr2) -> "("^ntr1^","^ntr2^")") xs)) + | Struct_fvs xs -> "freevar def: "^ + (String.concat " " + (List.map (fun (name,ntr1,ntmvr2) -> "("^name^","^ntr1^","^(match ntmvr2 with Ntr s | Mvr s -> s)^")") xs)) + | Struct_sbs xs -> "substs def: "^ + (String.concat " " + (List.map (fun (name,ntr1,ntmvr2) -> "("^name^","^ntr1^","^(match ntmvr2 with Ntr s | Mvr s -> s)^")") xs)) + | Struct_axs xs -> "aux def: "^ + (String.concat " " xs) + | Struct_fun_or_defnclass s -> "fundefn_class def: "^s + | Struct_embed (_,h,_) -> "embed: "^h) + +let dump_structure str = + "*** dump structure ***\n"^ + (String.concat "\n" (List.map dump_structure_entry str)) + +let dump_structure_fn str = + "*** dump structure ***\n"^ + (String.concat "\n" (List.map (fun (fn,s) -> fn ^" : "^ (dump_structure_entry (dummy_loc,s))) str)) + + +(* reading a whole file in as a string *) + +let string_of_filename filename = + let ic = open_in filename in + let _ = set_binary_mode_in ic true in + let len = in_channel_length ic in + let buff = Buffer.create len in + Buffer.add_channel buff ic len; + Buffer.contents buff diff --git a/vendors/ott/src/bounds.ml b/vendors/ott/src/bounds.ml new file mode 100644 index 000000000000..90ae2e61001c --- /dev/null +++ b/vendors/ott/src/bounds.ml @@ -0,0 +1,353 @@ +(**************************************************************************) +(* Ott *) +(* *) +(* Peter Sewell, Computer Laboratory, University of Cambridge *) +(* Francesco Zappa Nardelli, Moscova project, INRIA Rocquencourt *) +(* *) +(* Copyright 2005-2017 *) +(* *) +(* Redistribution and use in source and binary forms, with or without *) +(* modification, are permitted provided that the following conditions *) +(* are met: *) +(* 1. Redistributions of source code must retain the above copyright *) +(* notice, this list of conditions and the following disclaimer. *) +(* 2. Redistributions in binary form must reproduce the above copyright *) +(* notice, this list of conditions and the following disclaimer in the *) +(* documentation and/or other materials provided with the distribution. *) +(* 3. The names of the authors may not be used to endorse or promote *) +(* products derived from this software without specific prior written *) +(* permission. *) +(* *) +(* THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS *) +(* OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED *) +(* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE *) +(* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY *) +(* DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL *) +(* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE *) +(* GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS *) +(* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER *) +(* IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR *) +(* OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN *) +(* IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. *) +(**************************************************************************) + +exception NotImplementedYet;; + +open Types;; +open Location;; + +exception Bounds of string + + +(** ******************************** *) +(** bounds extraction *) +(** ******************************** *) + +(* let pp_plain_b (suffil,suffiu) = *) +(* "(" *) +(* ^ Grammar_pp.pp_plain_suffix_item suffil ^"," *) +(* ^ Grammar_pp.pp_plain_suffix_item suffiu *) +(* ^ ")" *) + +(*let sie_project = [Si_var ("_",0)] *) +let sie_project = [Si_punct "_"] +let sie_null = [Si_punct ""] + +(* given a bounds environment be and a suffix suff, return at most one bound *) +(* referenced in the suffix. fail if the suffix references >1 bound*) +let findbounds (be : bound list) (suff : suffix) : bound option + = let rec indices suff = + match suff with + | [] -> [] + | (Si_num _ | Si_punct _ | Si_var (_,_))::suff' -> indices suff' + | Si_index i :: suff' -> i :: indices suff' in + (*print_string (String.concat " " (List.map pp_plain_bound be) ^"\n");flush stdout;*) + match indices suff with + | [] -> None + | [i] -> (*print_string ("<<<< "^string_of_int i^" >>>>");flush stdout;*) + Some(List.nth be i) + | _ -> raise (Bounds "findbounds: multiple suffix indices in a suffix") + +(* collect all the nonterms/metavars in a symterm *) +(* (and their nontermsub-lower-and-top data if they have it), *) +(* together with their bounds and length constraints if they have them *) +let rec nt_or_mv_of_symterm (be : bound list) st +: ((nt_or_mv * subntr_data) * bound option ) list = + match st with + | St_node (_,stnb) -> nt_or_mv_of_symterm_node_body be stnb + | St_nonterm (_,_,(ntr,sf)) -> [ (((Ntr ntr),sf),None),findbounds be sf ] + | St_nontermsub (_,ntrl,ntrt,(ntr,sf)) -> [(((Ntr ntr),sf),Some(ntrl,ntrt(*ntru*))),findbounds be sf ] + | St_uninterpreted (_,_)-> [] +and nt_or_mv_of_symterm_element be ste = + match ste with + | Ste_st (_,st) -> nt_or_mv_of_symterm be st + | Ste_metavar (_,_,(mvr,sf)) -> [ (((Mvr mvr),sf),None),findbounds be sf ] + | Ste_var _ -> [] + | Ste_list (_,stlis) -> + List.concat (List.map (nt_or_mv_of_symterm_list_item be) stlis) +and nt_or_mv_of_symterm_list_item be stli = + match stli with + | Stli_single(_,stes) -> + List.concat (List.map (nt_or_mv_of_symterm_element be) stes) + | Stli_listform stlb -> + nt_or_mv_of_symterm_list_body be stlb +and nt_or_mv_of_symterm_node_body be stnb = + List.concat (List.map (nt_or_mv_of_symterm_element be) stnb.st_es) +and nt_or_mv_of_symterm_list_body be stlb = + let be' = stlb.stl_bound :: be in + List.concat (List.map (nt_or_mv_of_symterm_element be') stlb.stl_elements) + +let nt_or_mv_of_symterms sts = + List.concat (List.map (nt_or_mv_of_symterm []) sts) + + +(* check for each Bound_dotform bound that it occurs with only one length constraint. Return the bounds without duplicates *) +let check_length_consistency : + ((nt_or_mv* subntr_data) * bound option ) list -> bound list + = + function xys -> + let bounds = Auxl.remove_duplicates + (Auxl.option_map (function (_,bo)->bo) xys) in + let rec f acc bounds = + match bounds with + | [] -> acc + | ((Bound_dotform bd) as b)::bounds' -> + (try ( + let i=List.assoc (bd.bd_lower,bd.bd_upper) acc in + if i=bd.bd_length then f acc bounds' + else raise (Bounds ("bound "^Grammar_pp.pp_plain_bound b^" has inconsistent length constraints, \""^Grammar_pp.pp_plain_dots i ^"\" and \""^ Grammar_pp.pp_plain_dots bd.bd_length ^ "\""))) + with + Not_found -> f (((bd.bd_lower,bd.bd_upper),bd.bd_length)::acc) bounds' ) + | b::bounds' -> f acc bounds' in + ignore(f [] bounds); + bounds + + + +(* function xys -> *) +(* let rec f acc xys = *) +(* match xys with *) +(* | [] -> acc *) +(* | (x,None)::xys' -> f acc xys' *) +(* | (x,Some(b,i))::xys' -> *) +(* try ( *) +(* let i'=List.assoc b acc in *) +(* if i=i' then f acc xys' *) +(* else raise (Bounds ("bound "^Grammar_pp.pp_plain_bound b^" has multiple distinct length constraints, \""^Grammar_pp.pp_plain_dots i ^"\" and \""^ Grammar_pp.pp_plain_dots i' ^ "\""))) *) +(* with *) +(* Not_found -> f ((b,i)::acc) xys' in *) +(* f [] xys *) + + + +(* check for each nt_or_mv (and subntr data) that it doesn't appear with *) +(* multiple different bounds, and return a list without duplicates *) +let check_bounds_consistency : + ((nt_or_mv*subntr_data) * bound option) list -> + ((nt_or_mv*subntr_data) * bound option) list + = function xbos -> + let rec f acc xbos = + (match xbos with + | [] -> acc + | (x,bo)::xbos' -> + match (try(Some(List.assoc x acc)) with Not_found -> None) with + | None -> f ((x,bo)::acc) xbos' + | Some bo' -> + (if bo=bo' then f acc xbos' + else + raise (Bounds ("inconsistent bounds for "^Grammar_pp.pp_plain_nt_or_mv (fst x)^": "^Grammar_pp.pp_plain_bound_option bo ^" and "^Grammar_pp.pp_plain_bound_option bo' )))) in + f [] xbos + +(* split into those without a bound and those with one *) +let split_bounded : + ((nt_or_mv*subntr_data) * bound option) list -> ((nt_or_mv*subntr_data) list) * ((nt_or_mv*subntr_data) * bound) list + = function xbos -> + let rec f acc1 acc2 xbos = match xbos with + | [] -> (acc1,acc2) + | (x,None)::xbos' -> f (x::acc1) acc2 xbos' + | (x,Some b)::xbos' -> f acc1 ((x,b)::acc2) xbos' in + f [] [] xbos + + +(*invert, calculating, for each bound, the nt_or_mv that have that bound*) +let nt_or_mv_per_bound : + ((nt_or_mv*subntr_data) * bound ) list -> (bound * (nt_or_mv*subntr_data) list) list + = function xys -> + let rec f acc xys = + match xys with + | [] -> acc + | (x,y)::xys' -> + try + let xs0 = List.assoc y acc in + let acc0 = List.remove_assoc y acc in + f ((y,xs0@[x])::acc0) xys' + with + Not_found -> + f ((y,[x])::acc) xys' in + f [] xys + +let pp_plain_foo m xd x = + String.concat "\n " + (List.map + (function (bound,ntmvsns) -> + Grammar_pp.pp_plain_bound bound + ^ ": " + ^ String.concat "," + (List.map (function (ntmv,subntr_data)->Grammar_pp.pp_plain_nt_or_mv ntmv) ntmvsns)) + x) + ^ "\n" + +let pp_plain_bar m xd x = + String.concat "," + (List.map (function (ntmv,subntr_data)->Grammar_pp.pp_plain_nt_or_mv ntmv) x) + ^ "\n" + + + + +(* for an nt_or_mv with no bound, try to merge it with each of those *) +(* that do have bounds - eg to find xj in x1..xn *) +let rec merge_nobound : ((nt_or_mv*subntr_data) * bound) list -> (nt_or_mv*subntr_data) -> (nt_or_mv*subntr_data) * (suffix*suffix_item * bound) option = + function xbs -> function ((ntmvr,suff),subntr_data) -> + match xbs with + | [] -> ((ntmvr,suff),subntr_data),None + | (((ntmvr',suff'),subntr_data'),bound)::xbs' -> + if ntmvr=ntmvr' && subntr_data=subntr_data' then + try + let(pbo'',suff'')=Merge.merge_suffix_against_index 0 (suff,suff')in + let foo_b'' = + (match pbo'' with + | Some (suffi,suffi') -> suffi (* TODO: CHECK? *) + | None -> failwith "cannot happen") in + (((ntmvr,suff),subntr_data),Some(suff'',foo_b'',bound)) + with + Merge.Merge _ -> merge_nobound xbs' ((ntmvr,suff),subntr_data) + else + merge_nobound xbs' ((ntmvr,suff),subntr_data) + + +(* de1 gives, for each bound (eg (1,m)) *) +(* - the list of ntmv (with subntr data) for that bound, *) +(* eg [ l[0],None; p[0],None; s[0],None ] *) +(* - a string for the compound isa/coq/hol identifier, *) +(* eg "l_p_s_list" *) +(* - a string for the isa/coq pattern to deconstruct an element, *) +(* eg "(l_,p_,s_)" *) +(* - a string for the coq type of the pattern *) +(* - a string for the hol type of the compound identifier *) +(* todo: perhaps refactor. The second two components are derived from the first, so *) +(* we could do that on-the-fly in grammar_pp *) + +let dotenv1 m xd x : dotenv1 = + List.map + (function (bound,ntmvsns) -> + let pp1 = + (List.map + (function (ntmv,subntr_data) -> + Grammar_pp.pp_nt_or_mv_with_sie m xd sie_project ntmv) ntmvsns) in + let pp1_null = + (List.map + (function (ntmv,subntr_data) -> + Grammar_pp.pp_nt_or_mv_with_sie m xd sie_null ntmv) ntmvsns) in +(* (\* horrible hack to get a Hol and Coq pp_mode - here our "clean" passing of mode-specific parameters as arguments to the mode constructor hurts us *\) *) + +(* let m_hol = Hol { pph_theory_name="dummy"; hol_library = None } in *) +(* let m_coq = Coq { coq_expand_lists = false ; (\* ARGH - DOES THIS MATTER HERE, WHERE ALL WE'RE DOING IS PRINTING A TYPE? *\) *) +(* coq_quantified_vars_from_de = ref []; *) +(* coq_non_local_hyp_defn = ref ""; *) +(* coq_non_local_hyp_defn_vars = ref []; *) +(* coq_list_types = ref []; *) +(* coq_list_aux_funcs = Some (ref ""); *) +(* coq_list_aux_defns = { defined = ref []; newly_defined = ref [] }; *) +(* coq_library = Some (ref ("",[])); *) +(* coq_locally_nameless = ref false } in *) + let coq_type_pp1 = (match m with + | Coq _ -> + (List.map (function ((ntmv_root,_),subntr_data) -> + (Grammar_pp.pp_nt_or_mv_root_ty m xd + (Auxl.promote_ntmvr xd + (Auxl.primary_nt_or_mv_of_nt_or_mv xd ntmv_root))) + (*^"ZZZ"*)) + ntmvsns) + | _ -> ["dummy"]) in + let hol_type_pp1 = (match m with + | Hol _ | Lem _ -> + (List.map (function ((ntmv_root,_),subntr_data) -> +(* new *) + Grammar_pp.pp_nt_or_mv_root_ty m xd + (Auxl.promote_ntmvr xd + (Auxl.primary_nt_or_mv_of_nt_or_mv xd ntmv_root)) +(* old *) +(* Auxl.pp_hol_type_name *) +(* (Grammar_pp.pp_nt_or_mv_root m xd *) +(* (Auxl.promote_ntmvr xd *) +(* (Auxl.primary_nt_or_mv_of_nt_or_mv xd ntmv_root))) *) +(* end *) + (*^"ZZZ"*)) + ntmvsns) + | _ -> ["dummy"]) in + let pp_squished_vars = + match m with + | Rdx _ -> String.concat "_" pp1_null + | _ -> String.concat "_" pp1_null ^"_list" in + + let pp_pattern = + let tmp = String.concat "," pp1 in + if (List.length pp1) > 1 then "("^tmp^")" else tmp in + let pp_coq_type = (* the coq type of the pattern *) + let tmp = String.concat "*" coq_type_pp1 in + if (List.length pp1) > 1 then "("^tmp^")" else tmp in + let pp_hol_type_var = (* the hol type of the whole variable *) + let tmp = String.concat "#" hol_type_pp1 in + (if (List.length pp1) > 1 then "("^tmp^")" else tmp) + ^ " list" in + ( bound, + { de1_ntmvsns = ntmvsns; + de1_compound_id = pp_squished_vars; + de1_pattern = pp_pattern; + de1_coq_type_of_pattern = pp_coq_type; + de1_hol_type_of_compound_id = pp_hol_type_var }) ) + x + +(* de2 gives a list of ntmv (without subntr data) that are projections *) +(* from a list form. For example, if there is a list l'1..l'n, a use of *) +(* l'j will be indicated here as l'j, ('[0] , j , (1,n) ) *) + +(* de3 gives a list of ntmv (with subntr data) that are not *) +(* projections from list forms. This is not part of a dot environment *) +(* (which just contains de1 and de2) *) + +let dotenv23 ntmvsn_without_bounds ntmvsn_with_bounds = + let y = List.map (merge_nobound ntmvsn_with_bounds) ntmvsn_without_bounds in + let de2 = Auxl.option_map (function ((ntmv,subntr_data),zo)->match zo with None->None|Some z -> Some(ntmv,z)) y in + let de3 = Auxl.option_map (function ((ntmv,subntr_data),zo)->match zo with None->Some(ntmv,subntr_data)|Some z -> None) y in + de2,de3 + + + +let bound_extraction m xd loc sts : dotenv * dotenv3 * string = + try + let x = nt_or_mv_of_symterms sts in + let bounds = check_length_consistency x in + let pp_bounds = String.concat " " + (List.map Grammar_pp.pp_plain_bound bounds) in + let ntmvsn_with_boundopts = check_bounds_consistency x in + let ntmvsn_without_bounds,ntmvsn_with_bounds = split_bounded ntmvsn_with_boundopts in + let bound_with_ntmvsnss = nt_or_mv_per_bound ntmvsn_with_bounds in + let de1 = dotenv1 m xd bound_with_ntmvsnss in + let de2,de3 = dotenv23 ntmvsn_without_bounds ntmvsn_with_bounds in + let de = de1,de2 in + let all_null = (bounds=[] && de1=[] && de2=[] && bound_with_ntmvsnss=[]) in + let s = + (* Grammar_pp.pp_plain_dotenv3 de3 ^"\n" ^ *) + if all_null then "" + else (* pp_plain_bar m xd x'' ^ *) + "bounds: "^pp_bounds ^ "\n" + ^ "bound_with_ntmvss: "^pp_plain_foo m xd bound_with_ntmvsnss + ^ Grammar_pp.pp_plain_dotenv de in + de, de3, s + with + Bounds s' -> raise (Bounds (s'^" at "^Location.pp_loc loc)) +(* with e -> *) + (* "exception in bound_extraction" *) + diff --git a/vendors/ott/src/bounds.mli b/vendors/ott/src/bounds.mli new file mode 100644 index 000000000000..ab25c19b144d --- /dev/null +++ b/vendors/ott/src/bounds.mli @@ -0,0 +1,44 @@ +(**************************************************************************) +(* Ott *) +(* *) +(* Peter Sewell, Computer Laboratory, University of Cambridge *) +(* Francesco Zappa Nardelli, Moscova project, INRIA Rocquencourt *) +(* *) +(* Copyright 2005-2010 *) +(* *) +(* Redistribution and use in source and binary forms, with or without *) +(* modification, are permitted provided that the following conditions *) +(* are met: *) +(* 1. Redistributions of source code must retain the above copyright *) +(* notice, this list of conditions and the following disclaimer. *) +(* 2. Redistributions in binary form must reproduce the above copyright *) +(* notice, this list of conditions and the following disclaimer in the *) +(* documentation and/or other materials provided with the distribution. *) +(* 3. The names of the authors may not be used to endorse or promote *) +(* products derived from this software without specific prior written *) +(* permission. *) +(* *) +(* THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS *) +(* OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED *) +(* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE *) +(* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY *) +(* DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL *) +(* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE *) +(* GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS *) +(* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER *) +(* IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR *) +(* OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN *) +(* IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. *) +(**************************************************************************) + +exception Bounds of string +val nt_or_mv_of_symterms : + Types.symterm list -> + ((Types.nt_or_mv * Types.subntr_data) * Types.bound option) list + +val sie_project : Types.suffix_item list +val bound_extraction : + Types.pp_mode -> + Types.syntaxdefn -> + Location.t list -> + Types.symterm list -> Types.dotenv * Types.dotenv3 * string diff --git a/vendors/ott/src/context_pp.ml b/vendors/ott/src/context_pp.ml new file mode 100644 index 000000000000..c21468e694d4 --- /dev/null +++ b/vendors/ott/src/context_pp.ml @@ -0,0 +1,163 @@ +(**************************************************************************) +(* Ott *) +(* *) +(* Peter Sewell, Computer Laboratory, University of Cambridge *) +(* Francesco Zappa Nardelli, Moscova project, INRIA Rocquencourt *) +(* *) +(* Copyright 2005-2010 *) +(* *) +(* Redistribution and use in source and binary forms, with or without *) +(* modification, are permitted provided that the following conditions *) +(* are met: *) +(* 1. Redistributions of source code must retain the above copyright *) +(* notice, this list of conditions and the following disclaimer. *) +(* 2. Redistributions in binary form must reproduce the above copyright *) +(* notice, this list of conditions and the following disclaimer in the *) +(* documentation and/or other materials provided with the distribution. *) +(* 3. The names of the authors may not be used to endorse or promote *) +(* products derived from this software without specific prior written *) +(* permission. *) +(* *) +(* THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS *) +(* OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED *) +(* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE *) +(* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY *) +(* DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL *) +(* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE *) +(* GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS *) +(* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER *) +(* IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR *) +(* OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN *) +(* IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. *) +(**************************************************************************) + +open Types + +exception Cannot_parse_fake_rhs + +(* *** compute the nts and mvs used in the symterms used for the lhs's of a rule *** *) + +(* this is called also from substs_pp and subrules_pp - should be moved to auxl if we had recursive modules *) +let sts_for_lhss m xd r = + List.map + (function p -> + let lhs_stnb = + Grammar_pp.canonical_symterm_node_body_of_prod r.rule_ntr_name p in + let lhs_st = St_node(dummy_loc,lhs_stnb) in + lhs_st) + r.rule_ps + +let nts_used_in_lhss m xd r = + Auxl.nts_of_symterms (sts_for_lhss m xd r) + +let mvs_used_in_lhss m xd r = + Auxl.mvs_of_symterms (sts_for_lhss m xd r) + +(* *** pp of the fake rhs *** *) + +(* this function builds the string containing the fake rhs *) +let fake_rhs m xd (hole:nonterm) (r:rule) (p:prod) = + let rhs_stnb = Grammar_pp.canonical_symterm_node_body_of_prod r.rule_ntr_name p in + let rhs_st = St_node(dummy_loc,rhs_stnb) in + let fake_rhs_with_hole = Grammar_pp.pp_symterm error_opts xd [] de_empty rhs_st in + + (* FZ instead of regexp we should directly print the string with the fake_hole_var in it *) + let rgx = Str.regexp_string (Str.quote "__") in + let fake_hole_var = Grammar_pp.pp_nonterm m xd hole in + Str.replace_first rgx fake_hole_var fake_rhs_with_hole + +(* this function does the fake_rhs pretty printing and subsequent parsing *) +(* it is used both by grammar typecheck, to verify the subgrammar inclusion *) +(* and by pp_prod_context below, to build the rhs *) + +let context_app_rhs m xd lookup (hole:nonterm) (target:nontermroot) (r:rule) (p:prod) : bool * string option = + try + let fake_rhs = fake_rhs m xd hole r p in +(* print_endline ("*** fr:"^fake_rhs); *) + (*parse the fake rhs*) + let sts = Term_parser.parse_complete lookup target false fake_rhs in + let sts_e = + match List.length sts with + | 0 -> raise Cannot_parse_fake_rhs + (* Auxl.error ("internal: cannot parse context fake rhs: "^ fake_rhs ^"\n") *) + | 1 -> + ( match m with + | Caml _ -> Auxl.capitalize_prodnames_in_symterm (List.hd sts) + | _ -> List.hd sts ) + | _ -> Auxl.warning ("internal: multiple parses context fake rhs: "^fake_rhs^"\n"); List.hd sts in + let sie = [] in + let ((de1,de2) as de,de3,pptbe) = Bounds.bound_extraction m xd dummy_loc [sts_e] in + (true, Some (Grammar_pp.pp_symterm m xd sie de sts_e)) + with Cannot_parse_fake_rhs -> (false, None) + +(* *** all together *** *) + +let pp_prod_context m xd lookup (hole:nonterm) (target:nontermroot) (r:rule) (p:prod) = + (* compute the lhs *) + let lhs_stnb = Grammar_pp.canonical_symterm_node_body_of_prod r.rule_ntr_name p in + let lhs_st = St_node(dummy_loc,lhs_stnb) in + let sie = [] in + let ((de1,de2) as de,de3,pptbe) = Bounds.bound_extraction m xd dummy_loc [lhs_st] in + let lhs_pat = Grammar_pp.pp_symterm m xd sie de lhs_st in + let lhs = + ( match m with + | Coq _ | Caml _ -> lhs_pat + | Isa _ | Hol _ | Lem _ | Twf _ -> lhs_pat ^ " " ^ Grammar_pp.pp_nonterm m xd hole + | Lex _ | Menhir _ | Tex _ | Ascii _ -> assert false) in + (* compute the rhs *) + let rhs = Auxl.the (snd (context_app_rhs m xd lookup hole target r p)) in + (* all together *) + (p.prod_name, lhs, rhs) + +let pp_rule_context m xd lookup cr : int_func = + let e_rule = Auxl.rule_of_ntr xd cr.cr_ntr in + let nts_used = ref (nts_used_in_lhss m xd e_rule) in + let ctx = Auxl.fresh_nt !nts_used (cr.cr_ntr,[]) in + let ctx_var = Grammar_pp.pp_nonterm m xd ctx in + nts_used := ctx::!nts_used; + + let fake_hole = (Auxl.fresh_nt !nts_used (cr.cr_hole,[])) in + let fake_hole_var = Grammar_pp.pp_nonterm m xd fake_hole in + + let clauses = List.map (pp_prod_context m xd lookup fake_hole cr.cr_target e_rule) e_rule.rule_ps in + + let id = Auxl.context_name cr.cr_ntr cr.cr_hole in + let header = + ( match m with + | Coq _ -> + ( id + ^ " ("^ctx_var^":"^ Grammar_pp.pp_nontermroot_ty m xd cr.cr_ntr + ^ ") ("^fake_hole_var^":"^ Grammar_pp.pp_nontermroot_ty m xd cr.cr_hole ^")", + "", + " : " ^ (Grammar_pp.pp_nontermroot_ty m xd cr.cr_target) ^ " :=\n match "^ctx_var^" with\n") + | Isa _ -> + ( id ^ " :: \"" + ^ Grammar_pp.pp_nontermroot_ty m xd cr.cr_ntr ^ " => " + ^ Grammar_pp.pp_nontermroot_ty m xd cr.cr_hole ^ " => " + ^ Grammar_pp.pp_nontermroot_ty m xd cr.cr_target ^ "\"\n", "", "") + | Hol _ -> ("","","") + | Lem _ -> raise LemTODO (* LemTODO23*) + | Caml _ -> + ( id + ^ " ("^ctx_var^":"^ Grammar_pp.pp_nontermroot_ty m xd cr.cr_ntr + ^ ") ("^fake_hole_var^":"^ Grammar_pp.pp_nontermroot_ty m xd cr.cr_hole ^")", + "", + " : " ^ (Grammar_pp.pp_nontermroot_ty m xd cr.cr_target) ^ " =\n match "^ctx_var^" with\n") + | Twf _ -> Auxl.errorm m "pp_rule_context" + | Lex _ | Menhir _ | Tex _ | Ascii _ -> assert false + ) in + + { r_fun_id = id; + r_fun_dep = []; + r_fun_type = cr.cr_ntr; + r_fun_header = header; + r_fun_clauses = clauses } + +let pp_context m xd lookup crs = + Dependency.collapse m xd + { i_funcs = (List.map (pp_rule_context m xd lookup) crs); + i_funcs_proof = None } + + + + diff --git a/vendors/ott/src/coq_induct.ml b/vendors/ott/src/coq_induct.ml new file mode 100644 index 000000000000..6ade4ff960a6 --- /dev/null +++ b/vendors/ott/src/coq_induct.ml @@ -0,0 +1,371 @@ +(**************************************************************************) +(* Ott *) +(* *) +(* Peter Sewell, Computer Laboratory, University of Cambridge *) +(* Francesco Zappa Nardelli, Moscova project, INRIA Rocquencourt *) +(* *) +(* Copyright 2005-2010 *) +(* *) +(* Redistribution and use in source and binary forms, with or without *) +(* modification, are permitted provided that the following conditions *) +(* are met: *) +(* 1. Redistributions of source code must retain the above copyright *) +(* notice, this list of conditions and the following disclaimer. *) +(* 2. Redistributions in binary form must reproduce the above copyright *) +(* notice, this list of conditions and the following disclaimer in the *) +(* documentation and/or other materials provided with the distribution. *) +(* 3. The names of the authors may not be used to endorse or promote *) +(* products derived from this software without specific prior written *) +(* permission. *) +(* *) +(* THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS *) +(* OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED *) +(* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE *) +(* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY *) +(* DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL *) +(* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE *) +(* GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS *) +(* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER *) +(* IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR *) +(* OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN *) +(* IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. *) +(**************************************************************************) + +open Types;; + +(* identify the nontermroots that include list types *) +let need_induction m xd r = + let rec_rules = + List.find + (fun l -> List.mem (Ntr r.rule_ntr_name) l) + (Auxl.select_dep_ts m xd.xd_dep) in + let rec uses_list_nt p = + let element_uses_list_nt e = + match e with + | Lang_list elb -> + List.exists + (fun e -> + match e with + | Lang_nonterm (ntr,_) -> List.mem (Ntr ntr) rec_rules + | _ -> false) + elb.elb_es + | Lang_option _ | Lang_sugaroption _ -> + Auxl.error "interal: option types not implemented in pp_induction\n" + | Lang_nonterm (_,_) | Lang_metavar (_,_) | Lang_terminal _ -> false + in List.exists element_uses_list_nt p.prod_es in + (not r.rule_meta) && (List.exists uses_list_nt r.rule_ps) + +let rules_needing_induction m xd rs : nontermroot list list = + (* ** returns the groups of mutually recursive rules that need + an ott-generated induction principle *) + + let rules = List.filter (need_induction m xd) rs in + + let groups = + Auxl.remove_duplicates + (List.map + (fun r -> + Auxl.option_map + (fun ntmvr -> + ( match ntmvr with + | Ntr ntr -> Some ntr + | Mvr _ -> None )) + (List.find + (fun l -> List.mem (Ntr r.rule_ntr_name) l) + (Auxl.select_dep_ts m xd.xd_dep))) + rules) in + + (* remove groups for which a nonterm has a rule hom *) + List.filter + (fun g -> List.for_all + (fun ntr -> + let r = Auxl.rule_of_ntr xd ntr in + match (Auxl.hom_spec_for_hom_name "coq" r.rule_homs) with + Some _ -> false | None -> true) + g) + groups + +(* ** generate the induction principle for a set of rules *) +let generate_induction m xd ntr_set = + let rule_set = + List.map (fun ntr -> Auxl.rule_of_ntr xd ntr) ntr_set in + + (* ** Name for the induction principle ** *) + let ip_name = (String.concat "_" ntr_set) ^ "_rect" + in + + (* ** Variables ** *) + (* need a Variable decl for each inductive type appearing in any rule *) + + let rec used_in_tuple e : (string*string*string option) list = + ( match e with + | Lang_nonterm (ntr_primary,_) -> + let ntr = Auxl.promote_ntr xd ntr_primary in + [ (ntr, ntr, None) ] + | Lang_metavar (mvr_primary,_) -> + [ (mvr_primary,mvr_primary,None) ] + | _ -> [] ) in + + let rec inductive_types_used_in_element e : (string*string*(string option)) list = + ( match e with + | Lang_nonterm (ntr_primary,_) -> + let ntr = Auxl.promote_ntr xd ntr_primary in + if List.mem ntr (List.map (fun r -> r.rule_ntr_name) rule_set) + then [ (ntr, ntr, None) ] + else [] + | Lang_metavar (mvr_primary,_) -> + [] + | Lang_terminal _ -> [] + | Lang_option es -> [ "","<<

{{instr.op_args}}: {{instr.documentation_short}}

+ +
Semantics
+ +{% for r in instr.semantics %} +{{ macros.pp_rule(r) }} +{# #} +{% endfor %} + +
Typing
+ +{% for r in instr.ty %} +{{ macros.pp_rule(r) }} +{# #} +{% endfor %} + +
Description
+ +{% if 'documentation' in instr %} + +{{ instr.documentation | rst }} + +{% endif %} + +{% if 'examples' in instr %} + {% for ex in instr.examples %} +
Example: {{ex.name}}
+ + {{ex.description | rst}} + + {{ex.code|pp_michelson}} + + +

Expected final value on the stack: {{ex.final_storage}}

+ +

Run example in try-michelson.

+ {% endfor %} +{% endif %} diff --git a/docs/doc_gen/michelson_reference/templates/macros.html b/docs/doc_gen/michelson_reference/templates/macros.html new file mode 100644 index 000000000000..6b8dc2b4c4a5 --- /dev/null +++ b/docs/doc_gen/michelson_reference/templates/macros.html @@ -0,0 +1,39 @@ +{% macro pp_rule(rule) %} +{# #} +
+	{% for p in rule.premises %}{{ p }}
+	{% endfor %}------------------ {{ rule.name }}
+	{{ rule.conclusion }}
+
+{%- endmacro %} + + +{% macro url_instr(instruction) %}instr-{{instruction.op}}{%- endmacro %} + +{% macro quick_ref_tbl(instructions) %} + + + + + + + + + + {% for instr in instructions %} + + + + {% if instr.stack_effect %} + + + + {% else %} + + {% endif %} + {# #} + + {% endfor %} + +
InstructionDescriptionStack effect
{{instr.op_args}}{{instr.documentation_short}} {{ instr.stack_effect[0] }}—{{ instr.stack_effect[1] }} {{instr|pprint}}
+{%- endmacro %} diff --git a/docs/doc_gen/michelson_reference/test-lexer.sh b/docs/doc_gen/michelson_reference/test-lexer.sh new file mode 100755 index 000000000000..08f46b759bd2 --- /dev/null +++ b/docs/doc_gen/michelson_reference/test-lexer.sh @@ -0,0 +1,17 @@ +#!/bin/bash + +TEZOS_ROOT=../../.. +CONTRACTS_DIR=${TEZOS_ROOT}/src/bin_client/test/contracts +TEST_CONTRACTS_DIR=test/test-contracts + +for i in `ls $CONTRACTS_DIR/*/*.tz $TEST_CONTRACTS_DIR/*/*.tz`; do + if x=$( pygmentize -l MichelsonLexer.py:MichelsonLexer -f raw -x $i | grep Error ); then + echo "Unlexed parser token in error in $i: $x" + exit 1 + else + echo "$i OK" + fi +done + + +echo "All contracts successfully lexed." diff --git a/docs/doc_gen/michelson_reference/test/test-contracts/comments/example_comment.tz b/docs/doc_gen/michelson_reference/test/test-contracts/comments/example_comment.tz new file mode 100644 index 000000000000..cdd872632634 --- /dev/null +++ b/docs/doc_gen/michelson_reference/test/test-contracts/comments/example_comment.tz @@ -0,0 +1,26 @@ +parameter unit; +storage nat; +code + { + DROP; + + /* C style multiline comment + + + */ + PUSH nat 2; + PUSH nat 2; + ADD; + /* c style single line comment */ + + /** FOO BAR + * + */ + + NIL operation; + + /** nested /* comment + + */ */ + PAIR; + } -- GitLab From 751e8ae772a80d8c1837dd6bc8d7c25f5ff72bb3 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Fri, 6 Sep 2019 14:43:31 +0200 Subject: [PATCH 156/252] Include michelson reference in developer documentation --- docs/Makefile | 7 ++++++- docs/README.rst | 28 +++++++++++++++++++++++++++ docs/index.rst | 1 + docs/whitedoc/michelson_reference.rst | 5 +++++ 4 files changed, 40 insertions(+), 1 deletion(-) create mode 100644 docs/whitedoc/michelson_reference.rst diff --git a/docs/Makefile b/docs/Makefile index 5309877c7170..ccef84414239 100644 --- a/docs/Makefile +++ b/docs/Makefile @@ -30,11 +30,16 @@ $(DOCGENDIR)/p2p_doc.exe: api/p2p.rst: $(DOCGENDIR)/p2p_doc.exe api/p2p_usage.rst.inc @dune exec $(DOCGENDIR)/p2p_doc.exe < api/p2p_usage.rst.inc > api/p2p.rst +.PHONY: whitedoc/michelson_reference.html +whitedoc/michelson_reference.html: + @cd doc_gen/michelson_reference/ && make docs/michelson_reference.html + cp doc_gen/michelson_reference/docs/michelson_reference.html $@ + .PHONY: help Makefile # Catch-all target: route all unknown targets to Sphinx using the new # "make mode" option. $(O) is meant as a shortcut for $(SPHINXOPTS). -html: Makefile api/errors.rst api/rpc.rst api/p2p.rst +html: Makefile api/errors.rst api/rpc.rst api/p2p.rst whitedoc/michelson_reference.html @$(SPHINXBUILD) -b html "$(SOURCEDIR)" "$(BUILDDIR)" $(SPHINXOPTS) clean: diff --git a/docs/README.rst b/docs/README.rst index 8c1463d42285..8575e1e527b4 100644 --- a/docs/README.rst +++ b/docs/README.rst @@ -62,3 +62,31 @@ per public library and generates an ``index.html`` file in each sub-directory. The documentation is not installed on the system by Tezos. It is meant to be read locally while developing and then published on the www when releasing packages. + +Michelson reference +------------------- + +A michelson reference is generated automatically from its +formalization in ott. The dependencies necessary to generate this +reference can be installed thus: + +.. code:: bash + + sudo apt install python3-jinja2 python3-docutils python3-pygments + +or, using pip: + +.. code:: bash + + pip3 install -r < requirements.txt + +The michelson reference also require a patched version of ott that is +available in `tezos/src/vendors/ott/`. To build it: + +.. code:: bash + + cd ../ + opam install vendors/ott + +TODO: I suppose this is not the correct way to wire up this +dependency. Advice welcome. diff --git a/docs/index.rst b/docs/index.rst index 51977bf2a532..e04c28fc5088 100644 --- a/docs/index.rst +++ b/docs/index.rst @@ -123,6 +123,7 @@ in the :ref:`introduction `. whitedoc/p2p whitedoc/validation whitedoc/michelson + whitedoc/michelson_reference whitedoc/proof_of_stake whitedoc/voting diff --git a/docs/whitedoc/michelson_reference.rst b/docs/whitedoc/michelson_reference.rst new file mode 100644 index 000000000000..9bc9f29cf114 --- /dev/null +++ b/docs/whitedoc/michelson_reference.rst @@ -0,0 +1,5 @@ +Michelson Instruction Reference +======================================================= + +.. raw:: html + :file: michelson_reference.html -- GitLab From 8e0183fdf4eada2995a948e8b9445117231f760f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Rapha=C3=ABl=20Cauderlier?= Date: Mon, 9 Sep 2019 13:30:20 +0200 Subject: [PATCH 157/252] Use Michocott's file instead of a small fragment --- .../doc_gen/michelson_reference/michelson.ott | 1353 ++++++++++++++++- 1 file changed, 1280 insertions(+), 73 deletions(-) diff --git a/docs/doc_gen/michelson_reference/michelson.ott b/docs/doc_gen/michelson_reference/michelson.ott index fa101e0814ca..7955d4982516 100644 --- a/docs/doc_gen/michelson_reference/michelson.ott +++ b/docs/doc_gen/michelson_reference/michelson.ott @@ -1,35 +1,79 @@ embed {{ coq Require Import String. -Open Scope string_scope. Require Import ZArith. +Open Scope string_scope. Module Mutez. Inductive mutez :=. End Mutez. }} -% metavar nat_litteral ::= {{ coq N }} +metavar nat_litteral ::= {{ coq N }} +metavar int_litteral ::= {{ coq Z }} +metavar string_litteral ::= {{ coq String.string }} +metavar timestamp_litteral ::= {{ coq Z }} +metavar signature_litteral ::= {{ coq String.string }} +metavar key_litteral ::= {{ coq String.string }} +metavar key_hash_litteral ::= {{ coq String.string }} +metavar mutez_litteral ::= {{ coq Mutez.mutez }} +metavar contract_litteral ::= {{ coq String.string }} -indexvar K ::= {{ coq nat }} +indexvar N ::= {{ coq nat }} grammar %% Operators +bop :: 'bop_' ::= {{ coq bool -> bool -> bool }} {{ phantom }} + | || :: :: Or {{ coq orb }} + | && :: :: And {{ coq andb }} + | xor :: :: Xor {{ coq xorb }} + aop :: 'aop_' ::= | + :: :: Add + | - :: :: Sub + | * :: :: Mul + | / :: :: Div + | % :: :: Mod + | << :: :: Lsl + | >> :: :: Lsr + +bitop :: 'bitop_' ::= + | | :: :: Or + | & :: :: And + | ^ :: :: Xor %% Data litterals -nat_lit, n :: 'n_' ::= {{ coq N }} {{ phantom }} +nat_lit, n :: 'n_' ::= {{ coq nat }} {{ phantom }} + | 0 :: M :: NatZero {{ coq 0 }} + | 1 :: M :: NatOne {{ coq 1 }} + | 256 :: M :: NatMaxByte {{ coq 256 }} + | length s :: M :: StringLength {{ coq (String.length s) }} + | abs z :: M :: Abs {{ coq (Z.abs_nat [[z]]) }} + +int_lit, z :: 'z_' ::= {{ coq Z }} {{ phantom }} + | 0 :: M :: IntZero {{ coq 0 }} + | 1 :: M :: IntOne {{ coq 1 }} num, nz :: 'num_' ::= + | int_lit :: :: IntConstant | nat_lit :: :: NatConstant | nz1 aop nz2 :: M :: Aop {{ coq ( num_apply_aop [[aop]] [[nz1]] [[nz2]] ) }} + | nz1 bitop nz2 :: M :: Bitop {{ coq ( num_apply_bitop [[bitop]] [[nz1]] [[nz2]] ) }} + | - nz :: M :: NumNeg {{ coq ( num_neg [[nz]] ) }} + | ~ nz :: M :: BitNeg {{ coq ( num_bit_neg [[nz]] ) }} + +string_lit, s , t :: 's_' ::= {{ coq String.string }} {{ phantom }} + | "" :: M :: StringEmpty {{ coq ("") }} + | ( s ^ s' ) :: M :: Concat {{ coq (String.append [[s]] [[s']]) }} + | slice s n1 n2 :: M :: StringSlice {{ coq (String.substring [[n1]] [[n2]] [[s]]) }} bool_lit, b :: 'b_' ::= {{ coq bool }} {{ phantom }} | True :: M :: True {{ coq true }} | False :: M :: False {{ coq false }} + | ( b1 bop b2 ) :: M :: Bop {{ coq ( [[bop]] [[b1]] [[b2]] ) }} + | ! b2 :: M :: Neg {{ coq ( negb [[b2]] ) }} set_or_list, tl :: 'setlist_' ::= {{ coq list data }} {{ phantom }} | {} :: M :: Nil {{ coq nil }} @@ -38,56 +82,180 @@ set_or_list, tl :: 'setlist_' ::= {{ coq list data }} {{ phantom }} | { d } :: M :: Singleton {{ coq ([[d]] :: nil) }} | < tl > :: M :: Chevron {{ coq [[tl]] }} +map_elt :: '' ::= + | Elt k v :: :: Elt + +map_lit, m :: 'map_' ::= {{ coq list (data * data) }} {{ phantom }} + | {} :: M :: Nil {{ coq nil }} + | { Elt d d' ; m } :: M :: Cons {{ coq (([[d]], [[d']])::[[m]]) }} + % meta-productions + | { Elt d d' } :: M :: Singleton {{ coq (([[d]], [[d']])::nil) }} + | < m > :: M :: Chevron {{ coq [[m]] }} + %| { Elt d1 d1' ; .. ; Elt dN dN' } :: :: Map + %% Data -concrete_data, x, y, k, v, d, opt_y :: '' ::= +data, x, y, k, v, d, opt_y :: d_ ::= | num :: :: Num + | string_lit :: :: StringConstant + | bool_lit :: :: Bool + | timestamp_litteral :: :: Timestamp + | signature_litteral :: :: Signature + | key_litteral :: :: Key + | key_hash_litteral :: :: Key_hash + | mutez_litteral :: :: Mutez + | contract_litteral :: :: Contract | Unit :: :: Unit | Pair x y :: :: Pair | Left x :: :: Left | Right y :: :: Right + | Some x :: :: Some + | None :: :: None + | set_or_list :: :: SetList + | map_lit :: :: Map + | code :: :: instruction | 0 :: M :: zero {{ coq data_int 0%Z}} - | ( concrete_data ) :: M :: Paren {{ coq ( [[concrete_data]] ) }} + | ( data ) :: M :: Paren {{ coq ( [[data]] ) }} %% Types -comparable_type, kty, cty :: '' ::= +comparable_type, kty, cty :: cty_ ::= + | string :: :: string | nat :: :: nat - -type, ty, vty :: '' ::= + | int :: :: int + | bytes :: :: bytes + | bool :: :: bool + | mutez :: :: mutez + | key_hash :: :: key_hash + | timestamp :: :: timestamp + +type, ty, vty :: ty_ ::= | cty :: :: Comparable_type + | key :: :: key | unit :: :: unit - % | list type :: :: list - % | operation :: :: operation + | signature :: :: signature + | option type :: :: option + | list type :: :: list + | set cty :: :: set + | contract type :: :: contract + | address :: :: address + | operation :: :: operation | pair ty1 ty2 :: :: pair | or ty1 ty2 :: :: or + | lambda ty1 ty2 :: :: lambda + | map kty vty :: :: map + | big_map kty vty :: :: big_map + | self_ty :: M :: self_ty {{coq self_ty}} | ( ty1 ) :: M :: parens {{coq ([[ty1]])}} -%% Code +%% Operations + +comparison :: 'i_' ::= + | EQ :: :: EQ + | NEQ :: :: NEQ + | LT :: :: LT + | GT :: :: GT + | LE :: :: LE + | GE :: :: GE + +binary_bitwise :: 'i_' ::= + | OR :: :: OR + | AND :: :: AND + | XOR :: :: XOR + +hash_function :: 'i_' ::= + | HASH_KEY :: :: HASH_KEY + | BLAKE2B :: :: BLAKE2B + | SHA256 :: :: SHA256 + | SHA512 :: :: SHA512 -code, i, body, instruction, bt, bf :: '' ::= +%% Instructions + + +function :: 'i_' ::= | PUSH ty1 x :: :: PUSH + | UNIT :: :: UNIT + | LAMBDA ty1 ty2 code :: :: LAMBDA + | EMPTY_SET cty :: :: EMPTY_SET + | EMPTY_MAP kty vty :: :: EMPTY_MAP + | NONE ty1 :: :: NONE + | NIL ty1 :: :: NIL + | BALANCE :: :: BALANCE + | SOURCE :: :: SOURCE + | SENDER :: :: SENDER + | SELF :: :: SELF + | AMOUNT :: :: AMOUNT + | STEPS_TO_QUOTA :: :: STEPS_TO_QUOTA + | NOW :: :: NOW + + | comparison :: :: unary_comparison + | hash_function :: :: unary_hash + | NOT :: :: NOT + | NEG :: :: NEG + | ABS :: :: ABS + | SIZE :: :: SIZE | CAR :: :: CAR | CDR :: :: CDR + | SOME :: :: SOME | LEFT ty2 :: :: LEFT | RIGHT ty1 :: :: RIGHT + | ADDRESS :: :: ADDRESS + | CONTRACT ty :: :: CONTRACT + | SET_DELEGATE :: :: SET_DELEGATE + | IMPLICIT_ACCOUNT :: :: IMPLICIT_ACCOUNT + | PACK :: :: PACK + | UNPACK ty1 :: :: UNPACK + + | binary_bitwise :: :: b_bitwise + | EXEC :: :: EXEC + | LSL :: :: LSL + | LSR :: :: LSR + | COMPARE :: :: COMPARE + | CONCAT :: :: CONCAT | PAIR :: :: PAIR + | MEM :: :: MEM + | GET :: :: GET + | CONS :: :: CONS + | DROP :: :: DROP | DUP :: :: DUP | SWAP :: :: SWAP + + | SLICE :: :: SLICE + | UPDATE :: :: UPDATE + | CREATE_ACCOUNT :: :: CREATE_ACCOUNT + | TRANSFER_TOKENS :: :: TRANSFER_TOKENS + | CHECK_SIGNATURE :: :: CHECK_SIGNATURE + | ADD :: :: ADD + | SUB :: :: SUB + | MUL :: :: MUL + | EDIV :: :: EDIV + +%% Code + +code, i, body :: 'i_' ::= + | function :: :: Fun | FAILWITH :: :: FAILWITH | {} :: :: NOOP - | i1 ; i2 :: :: SEQ - | LOOP_LEFT body :: :: LOOP_LEFT + | code1 ; code2 :: :: SEQ + | IF code1 code2 :: :: IF_ + | LOOP code :: :: LOOP + | LOOP_LEFT code :: :: LOOP_LEFT | DIP code :: :: DIP - | IF_LEFT bt bf :: :: IF_LEFT + | ITER code :: :: ITER + | MAP code :: :: MAP + | IF_NONE code1 code2 :: :: IF_NONE + | IF_LEFT code1 code2 :: :: IF_LEFT + | IF_RIGHT code1 code2 :: :: IF_RIGHT + | IF_CONS code1 code2 :: :: IF_CONS + | CREATE_CONTRACT code :: :: CREATE_CONTRACT %% Stack -stack, st, S :: Stack_ ::= {{coq Datatypes.list concrete_data }} {{ phantom }} +stack, st, S :: Stack_ ::= {{coq list data }} {{ phantom }} | [] :: M :: empty {{ coq nil }} | d : S :: M :: cons {{ coq ([[d]] :: [[S]]) }} @@ -105,15 +273,15 @@ stackerr, SE :: 'SE_' ::= formula :: formula_ ::= | judgement :: :: judgement - | formula1 .. formulaK :: :: dots - | get_contract_type contract_litteral ty :: K :: get_contract_rel + | formula1 .. formulaN :: :: dots + | get_contract_type contract_litteral ty :: M :: get_contract_rel {{ coq get_contract_rel [[contract_litteral]] [[ty]] }} - | x = y :: M :: eq {{coq (compare [[x]] EQ [[y]])}} - | x <> y :: M :: neq {{coq (compare [[x]] NEQ [[y]])}} - | x < y :: M :: lt {{coq (compare [[x]] LT [[y]])}} - | x > y :: M :: gt {{coq (compare [[x]] GT [[y]])}} - | x <= y :: M :: le {{coq (compare [[x]] LE [[y]])}} - | x >= y :: M :: ge {{coq (compare [[x]] GE [[y]])}} + | x = y :: M :: eq {{coq (compare [[x]] i_EQ [[y]])}} + | x <> y :: M :: neq {{coq (compare [[x]] i_NEQ [[y]])}} + | x < y :: M :: lt {{coq (compare [[x]] i_LT [[y]])}} + | x > y :: M :: gt {{coq (compare [[x]] i_GT [[y]])}} + | x <= y :: M :: le {{coq (compare [[x]] i_LE [[y]])}} + | x >= y :: M :: ge {{coq (compare [[x]] i_GE [[y]])}} embed {{coq Section syntax. @@ -132,12 +300,40 @@ Typing :: 't_' ::= defn x '::' ty :: :: data_has_type :: 'data_' by + ------------------ :: int + int_lit :: int + ------------------ :: nat nat_lit :: nat + ------------------------ :: string + string_lit :: string + + ------------------------------ :: timestamp + timestamp_litteral :: timestamp + + ------------------------------ :: signature + signature_litteral :: signature + + ------------------ :: key + key_litteral :: key + + ---------------------------- :: key_hash + key_hash_litteral :: key_hash + + ---------------------- :: mutez + mutez_litteral :: mutez + + get_contract_type contract_litteral ty1 + ------------------------------------- :: contract + contract_litteral :: contract ty1 + ----------- :: Unit Unit :: unit + ----------- :: bool + bool_lit :: bool + x :: ty1 y :: ty2 ------------------- :: Pair @@ -151,51 +347,339 @@ Typing :: 't_' ::= ---------------- :: Right Right y :: or ty1 ty2 + x :: ty1 + ----------------- :: Some + Some x :: option ty1 + + --------------- :: None + None :: option ty1 + + ------------------------ :: set_empty + :setlist_Nil: {} :: set cty + + x :: cty + tl :: set cty + ------------------------ :: set_cons + { x ; } :: set cty + + ------------------------ :: list_empty + :setlist_Nil: {} :: list cty + + x :: cty + tl :: list cty + ------------------------ :: list_cons + { x ; } :: list cty + + ------------------------ :: map_empty + :map_Nil: {} :: map kty vty + + x :: kty + y :: vty + m :: map kty vty + ------------------------ :: map_cons + { Elt x y ; } :: map kty vty + + code :: ty1 : [] => ty2 : [] + ------------------------- :: instruction + code :: lambda ty1 ty2 + defn - instruction '::' A => B :: :: instruction_has_type :: 'instr_' by + map_elt '::' kty, vty :: :: map_elt_has_type :: 'map_elt_' by + + k :: kty + v :: vty + ------------------ :: map_elt + Elt k v :: kty, vty - %% Nullary + defn + function '::' A -> B :: :: fun_has_type :: 'instr_' by x :: ty1 - --------------- :: PUSH - PUSH ty1 x :: A => ty1 : A + ---------------------------- :: PUSH + PUSH ty1 x :: [] -> ty1 : [] + + ----------------------- :: UNIT + UNIT :: [] -> unit : [] + + code :: ty1 : [] => ty2 : [] + ------------------------------------------------ :: LAMBDA + LAMBDA ty1 ty2 code :: [] -> lambda ty1 ty2 : [] + + ----------------------------------- :: EMPTY_SET + EMPTY_SET cty :: [] -> set cty : [] + + ------------------------------------------- :: EMPTY_MAP + EMPTY_MAP kty vty :: [] -> map kty vty : [] + + --------------------------------- :: NONE + NONE ty1 :: [] -> option ty1 : [] + + ------------------------------ :: NIL + NIL ty1 :: [] -> list ty1 : [] + + --------------------------- :: BALANCE + BALANCE :: [] -> mutez : [] + + ---------------------------- :: SOURCE + SOURCE :: [] -> address : [] + ---------------------------- :: SENDER + SENDER :: [] -> address : [] - %% Unary + -------------------------- :: SELF + SELF :: [] -> self_ty : [] - ------------------- :: CAR - CAR :: pair ty1 ty2 : A => ty1 : A + -------------------------- :: AMOUNT + AMOUNT :: [] -> mutez : [] - ------------------- :: CDR - CDR :: pair ty1 ty2 : A => ty2 : A + -------------------------------- :: STEPS_TO_QUOTA + STEPS_TO_QUOTA :: [] -> nat : [] - -------------------- :: LEFT - LEFT ty2 :: ty1 : A => or ty1 ty2 : A + --------------------------- :: NOW + NOW :: [] -> timestamp : [] - --------------------- :: RIGHT - RIGHT ty1 :: ty2 : A => or ty1 ty2 : A + ----------------------------------- :: comparison + comparison :: int : [] -> bool : [] - %% Binary + ----------------------------- :: NOT_bool + NOT :: bool : [] -> bool : [] - ------------------------- :: PAIR - PAIR :: ty1 : ty2 : A => pair ty1 ty2 :A + --------------------------- :: NOT_nat + NOT :: nat : [] -> int : [] - %% Function + --------------------------- :: NOT_int + NOT :: int : [] -> int : [] - -------------------- :: DROP - DROP :: ty1 : A => A + --------------------------- :: NEG_nat + NEG :: nat : [] -> int : [] - ----------------------------- :: DUP - DUP :: ty1 : A => ty1 : ty1 : A + --------------------------- :: NEG_int + NEG :: int : [] -> int : [] + + --------------------------- :: ABS + ABS :: int : [] -> nat : [] + + -------------------------------- :: SIZE_set + SIZE :: set cty : [] -> nat : [] + + ------------------------------------ :: SIZE_map + SIZE :: map kty vty : [] -> nat : [] + + ------------------------------- :: SIZE_list + SIZE :: list ty1 : [] -> nat : [] + + ------------------------------- :: SIZE_string + SIZE :: string : [] -> nat : [] + + ------------------------------ :: SIZE_bytes + SIZE :: bytes : [] -> nat : [] + + ------------------------------ :: CAR + CAR :: pair ty1 ty2 : [] -> ty1 : [] + + ------------------------------ :: CDR + CDR :: pair ty1 ty2 : [] -> ty2 : [] + + ------------------------------- :: SOME + SOME :: ty1 : [] -> option ty1 : [] + + ------------------------------- :: LEFT + LEFT ty2 :: ty1 : [] -> or ty1 ty2 : [] + + -------------------------------- :: RIGHT + RIGHT ty1 :: ty2 : [] -> or ty1 ty2 : [] + + ------------------------------------------ :: ADDRESS + ADDRESS :: contract ty1 : [] -> address : [] + + --------------------------------------------- :: CONTRACT + CONTRACT ty1 :: address : [] -> contract ty1 : [] + + ------------------------------------------------------ :: SET_DELEGATE + SET_DELEGATE :: option key_hash : [] -> operation : [] + + ------------------------------------------------------- :: IMPLICIT_ACCOUNT + IMPLICIT_ACCOUNT :: key_hash : [] -> contract unit : [] + + ---------------------------- :: PACK + PACK :: ty1 : [] -> bytes : [] + + -------------------------------- :: UNPACK + UNPACK ty1 :: bytes : [] -> ty1 : [] + + ------------------------------------- :: HASH_KEY + HASH_KEY :: key : [] -> key_hash : [] + + ----------------------------------------- :: HASH + hash_function :: bytes : [] -> bytes : [] + + ----------------------------------------------- :: bitwise_bool + binary_bitwise :: bool : bool : [] -> bool : [] + + -------------------------------------------- :: bitwise_nat + binary_bitwise :: nat : nat : [] -> nat : [] + + --------------------------------------------- :: EXEC + EXEC :: ty1 : lambda ty1 ty2 : [] -> ty2 : [] + + --------------------------------- :: LSL + LSL :: nat : nat : [] -> nat : [] + + --------------------------------- :: LSR + LSR :: nat : nat : [] -> nat : [] + + --------------------------------- :: COMPARE + COMPARE :: cty : cty : [] -> int : [] + + --------------------------------------------- :: CONCAT_string + CONCAT :: string : string : [] -> string : [] + + ------------------------------------------ :: CONCAT_bytes + CONCAT :: bytes : bytes : [] -> bytes : [] + + ----------------------------------- :: PAIR + PAIR :: ty1 : ty2 : [] -> pair ty1 ty2 : [] + + ---------------------------------- :: MEM_set + MEM :: cty : set cty : [] -> bool : [] + + ------------------------------------------ :: MEM_map + MEM :: kty : map kty vty : [] -> bool : [] + + ---------------------------------------------- :: MEM_big_map + MEM :: kty : big_map kty vty : [] -> bool : [] + + ------------------------------------------------ :: GET_map + GET :: kty : map kty vty : [] -> option vty : [] + + ---------------------------------------------------- :: GET_big_map + GET :: kty : big_map kty vty : [] -> option vty : [] + + -------------------------------------------- :: CONS + CONS :: ty1 : list ty1 : [] -> list ty1 : [] + + ---------------------- :: DROP + DROP :: ty1 : [] -> [] + + --------------------------------- :: DUP + DUP :: ty1 : [] -> ty1 : ty1 : [] + + ---------------------------------------- :: SWAP + SWAP :: ty1 : ty2 : [] -> ty2 : ty1 : [] + + ------------------------------------------------------ :: SLICE_string + SLICE :: nat : nat : string : [] -> option string : [] + + ---------------------------------------------------- :: SLICE_bytes + SLICE :: nat : nat : bytes : [] -> option bytes : [] + + --------------------------------------------------- :: UPDATE_set + UPDATE :: cty : bool : set cty : [] -> set cty : [] + + ---------------------------------------------------------- :: UPDATE_map + UPDATE :: kty : vty : map kty vty : [] -> map kty vty : [] + + ------------------------------------------------------------------ :: UPDATE_big_map + UPDATE :: kty : vty : big_map kty vty : [] -> big_map kty vty : [] + + +------------------------------------------------------------------------------------------------------- :: CREATE_ACCOUNT + CREATE_ACCOUNT :: key_hash : option key_hash : bool : mutez : [] -> operation : contract unit : [] + + + ------------------------------------------------------------------- :: TRANSFER_TOKENS + TRANSFER_TOKENS :: ty1 : mutez : contract ty1 : [] -> operation : [] + + + --------------------------------------------------------------- :: CHECK_SIGNATURE + CHECK_SIGNATURE :: key : signature : bytes : [] -> bool : [] - ----------------------------------- :: SWAP - SWAP :: ty1 : ty2 : A => ty2 : ty1 : A ----------------------------------- :: ADD_nat_nat - ADD :: nat : nat : A => nat : A + ADD :: nat : nat : [] -> nat : [] + + ----------------------------------- :: ADD_nat_int + ADD :: nat : int : [] -> int : [] - %% Code + ----------------------------------- :: ADD_int_nat + ADD :: int : nat : [] -> int : [] + + ----------------------------------- :: ADD_int_int + ADD :: int : int : [] -> int : [] + + ----------------------------------------------- :: ADD_timestamp_int + ADD :: timestamp : int : [] -> timestamp : [] + + ----------------------------------------------- :: ADD_int_timestamp + ADD :: int : timestamp : [] -> timestamp : [] + + ----------------------------------------- :: ADD_mutez_mutez_mutez + ADD :: mutez : mutez : [] -> mutez : [] + + ----------------------------------- :: SUB_nat_nat + SUB :: nat : nat : [] -> int : [] + + ----------------------------------- :: SUB_nat_int + SUB :: nat : int : [] -> int : [] + + ----------------------------------- :: SUB_int_nat + SUB :: int : nat : [] -> int : [] + + ----------------------------------- :: SUB_int_int + SUB :: int : int : [] -> int : [] + + ----------------------------------------------- :: SUB_timestamp_int + SUB :: timestamp : int : [] -> timestamp : [] + + ----------------------------------------------- :: SUB_timestamp_timestamp + SUB :: timestamp : timestamp : [] -> int : [] + + ----------------------------------------- :: SUB_mutez_mutez + SUB :: mutez : mutez : [] -> mutez : [] + + ----------------------------------- :: MUL_nat_nat + MUL :: nat : nat : [] -> nat : [] + + ----------------------------------- :: MUL_nat_int + MUL :: nat : int : [] -> int : [] + + ----------------------------------- :: MUL_int_nat + MUL :: int : nat : [] -> int : [] + + ----------------------------------- :: MUL_int_int + MUL :: int : int : [] -> int : [] + + --------------------------------------- :: MUL_mutez_nat + MUL :: mutez : nat : [] -> mutez : [] + + --------------------------------------- :: MUL_nat_mutez + MUL :: nat : mutez : [] -> mutez : [] + + ------------------------------------------- :: EDIV_nat_nat + EDIV :: nat : nat : [] -> nat : nat : [] + + ------------------------------------------- :: EDIV_nat_int + EDIV :: nat : int : [] -> int : nat : [] + + ------------------------------------------- :: EDIV_int_nat + EDIV :: int : nat : [] -> int : nat : [] + + ------------------------------------------- :: EDIV_int_int + EDIV :: int : int : [] -> int : nat : [] + + ------------------------------------------------- :: EDIV_mutez_nat + EDIV :: mutez : nat : [] -> mutez : mutez : [] + + ------------------------------------------------- :: EDIV_mutez_mutez + EDIV :: mutez : mutez : [] -> nat : mutez : [] + + defn + code '::' A => B :: :: code_has_type :: 'instr_' by + + function :: A -> B + ------------------------- :: function + function :: A @ C => B @ C ---------------------- :: FAILWITH FAILWITH :: ty1 : A => B @@ -203,24 +687,70 @@ Typing :: 't_' ::= ------------- :: NOOP {} :: A => A - instruction1 :: A => B - instruction2 :: B => C + code1 :: A => B + code2 :: B => C ------------------------ :: SEQ - instruction1; instruction2 :: A => C + code1; code2 :: A => C + + code1 :: A => B + code2 :: A => B + ------------------------------- :: IF + IF code1 code2 :: bool : A => B + code :: A => bool : A + -------------------------- :: LOOP + LOOP code :: bool : A => A - instruction :: ty1 : A => or ty1 ty2 : A + code :: ty1 : A => or ty1 ty2 : A --------------------------------- :: LOOP_LEFT - LOOP_LEFT instruction :: or ty1 ty2 : A => ty2 : A + LOOP_LEFT code :: or ty1 ty2 : A => A - instruction :: A => B + code :: A => B --------------------------- :: DIP - DIP instruction :: ty1 : A => ty1 : B + DIP code :: ty1 : A => ty1 : B + + code :: ty1 : A => A + ---------------------------- :: ITER_list + ITER code :: list ty1 : A => A + + code :: cty : A => A + ---------------------------- :: ITER_set + ITER code :: set cty : A => A + + code :: (pair kty vty) : A => A + --------------------------------- :: ITER_map + ITER code :: map kty vty : A => A + + code :: ty1 : A => ty2 : A + ------------------------------------- :: MAP_list + MAP code :: list ty1 : A => list ty2 : A - instruction1 :: ty1 : A => B - instruction2 :: ty2 : A => B + code :: (pair kty ty1) : A => ty2 : A + ------------------------------------------- :: MAP_map + MAP code :: map kty ty1 : A => map kty ty2 : A + + code1 :: A => B + code2 :: ty1 : A => B + ---------------------------------------- :: IF_NONE + IF_NONE code1 code2 :: option ty1 : A => B + + code1 :: ty1 : A => B + code2 :: ty2 : A => B -------------------------------------- :: IF_LEFT - IF_LEFT instruction1 instruction2 :: or ty1 ty2 : A => B + IF_LEFT code1 code2 :: or ty1 ty2 : A => B + + code1 :: ty2 : A => B + code2 :: ty1 : A => B + -------------------------------------- :: IF_RIGHT + IF_RIGHT code1 code2 :: or ty1 ty2 : A => B + + code1 :: ty1 : list ty1 : A => B + code2 :: A => B + -------------------------------------- :: IF_CONS + IF_CONS code1 code2 :: list ty1 : A => B + +-------------------------------------------------------------------------------------------------------------------- :: CREATE_CONTRACT + CREATE_CONTRACT code :: key_hash : option key_hash : bool : bool : mutez : ty2 : A => operation : address : A defns BigStep :: '' ::= @@ -254,32 +784,46 @@ by %% ------ :: FAILWITH -FAILWITH / d : S => [FAILED] +FAILWITH / d : stack => [FAILED] ------- :: FAILED +------ :: failed i / [FAILED] => [FAILED] i1 / S => SE'' i2 / SE'' => SE' ------- :: SEQUENCE +------ :: SEQ i1; i2 / S => SE' ------ :: NOOP {} / S => S -i1 ; LOOP_LEFT i1 / d : S => S' ------- :: LOOP_LEFT_left -LOOP_LEFT i1 / Left d : S => S' +i1 / S => S' +------ :: IF_tt +IF i1 i2 / True : S => S' + +i2 / S => S' +------ :: IF_ff +IF i1 i2 / False : S => S' +i1; LOOP i1 / S => S' +------ :: LOOP_tt +LOOP i1 / True : S => S' ------- :: LOOP_LEFT_right -LOOP_LEFT i1 / Right d : S => d : S +------ :: LOOP_ff +LOOP i1 / False : S => S +i1 ; LOOP_LEFT i1 / d : S => S' +------ :: LOOP_LEFT_tt +LOOP_LEFT i1 / Left d : S => S' i1 / S => S' ------ :: DIP DIP i1 / d : S => d : S' +i / d2 : [] => d3 : [] +------ :: EXEC +EXEC / i : d2 : S => d3 : S + %% %% Stack operations @@ -313,7 +857,172 @@ SWAP / d1 : d2 : S => d2 : d1 : S ----- :: PUSH PUSH ty d / S => d : S +% UNIT: Push a unit value onto the stack. + +% :: 'A -> unit : 'A + +----- :: UNIT +UNIT / S => Unit : S + +% LAMBDA 'ty1 'ty2 code: Push a lambda with given parameter and return types onto the stack. + +% :: 'A -> (lambda 'ty1 'ty2) : 'A + +----- :: LAMBDA +LAMBDA ty ty' i / S => i : S + + +%% +%% Generic comparison +%% + +% EQ: Checks that the top of the stack EQuals zero. + +% :: int : 'S -> bool : 'S + +------------------------------------- :: EQ_tt +EQ / :z_IntZero: 0 : S => True : S + +z <> :z_IntZero: 0 +-------------------------- :: EQ_ff +EQ / z : S => False : S + +% NEQ: Checks that the top of the stack does Not EQual zero. + +% :: int : 'S -> bool : 'S + +-------------------------------------- :: NEQ_ff +NEQ / :z_IntZero: 0 : S => False : S + +z <> :z_IntZero: 0 +------------------------- :: NEQ_tt +NEQ / z : S => True : S + +% LT: Checks that the top of the stack is Less Than zero. + +% :: int : 'S -> bool : 'S + +z < :z_IntZero: 0 +----------------- :: LT_tt +LT / z : S => True : S + +z >= :z_IntZero: 0 +----- :: LT_ff +LT / z : S => False : S + +% GT: Checks that the top of the stack is Greater Than zero. + +% :: int : 'S -> bool : 'S + + +z > :z_IntZero: 0 +----------------- :: GT_tt +GT / z : S => True : S + +z <= :z_IntZero: 0 +------------------ :: GT_ff +GT / z : S => False : S + +% LE: Checks that the top of the stack is Less Than of Equal to zero. + +% :: int : 'S -> bool : 'S + +z <= :z_IntZero: 0 +------------------ :: LE_tt +LE / z : S => True : S + +z > :z_IntZero: 0 +----------------- :: LE_ff +LE / z : S => False : S + +% GE: Checks that the top of the stack is Greater Than of Equal to zero. + +% :: int : 'S -> bool : 'S + + +z >= :z_IntZero: 0 +------------------ :: GE_tt +GE / z : S => True : S + +z < :z_IntZero: 0 +----------------- :: GE_ff +GE / z : S => False : S + + +% V - Operations +% Operations on booleans + +% OR + +% :: bool : bool : 'S -> bool : 'S + +----- :: OR1 +OR / True : x : S => True : S + +----- :: OR2 +OR / x : True : S => True : S + +----- :: OR3 +OR / False : False : S => False : S + +% AND + +% :: bool : bool : 'S -> bool : 'S + + +----- :: AND1 +AND / True : True : S => True : S + +----- :: AND2 +AND / False : x : S => False : S + +----- :: AND3 +AND / x : False : S => False : S + +% XOR + +% :: bool : bool : 'S -> bool : 'S + +----- :: XOR1 +XOR / True : True : S => False : S + +----- :: XOR2 +XOR / False : True : S => True : S + +----- :: XOR3 +XOR / True : False : S => True : S + +----- :: XOR4 +XOR / False : False : S => False : S + +% NOT +% :: bool : 'S -> bool : 'S + +----- :: NOT1 +NOT / True : S => False : S + +----- :: NOT2 +NOT / False : S => True : S + +% Operations on integers and natural numbers + +% Integers and naturals are arbitrary-precision, meaning the only size limit is fuel. + +% NEG + +% :: int : 'S -> int : 'S +% :: nat : 'S -> int : 'S + +----- :: NEG +NEG / n : S => - n : S + +% ABS + +% :: int : 'S -> nat : 'S + +----- :: ABS +ABS / z : S => abs z : S % ADD @@ -325,6 +1034,176 @@ PUSH ty d / S => d : S ----- :: ADD ADD / nz1 : nz2 : S => (nz1 + nz2) : S +% SUB + +% :: int : int : 'S -> int : 'S +% :: int : nat : 'S -> int : 'S +% :: nat : int : 'S -> int : 'S +% :: nat : nat : 'S -> int : 'S + +----- :: SUB +SUB / nz1 : nz2 : S => ( nz1 - nz2 ) : S + +% MUL + +% :: int : int : 'S -> int : 'S +% :: int : nat : 'S -> int : 'S +% :: nat : int : 'S -> int : 'S +% :: nat : nat : 'S -> nat : 'S + +----- :: MUL +MUL / nz1 : nz2 : S => ( nz1 * nz2 ) : S + +% EDIV Perform Euclidian division + +% :: int : int : 'S -> option (pair int nat) : 'S +% :: int : nat : 'S -> option (pair int nat) : 'S +% :: nat : int : 'S -> option (pair int nat) : 'S +% :: nat : nat : 'S -> option (pair nat nat) : 'S + +----- :: EDIV_0 +EDIV / n : :n_NatZero: 0 : S => None : S + +nz2 <> :n_NatZero: 0 +----- :: EDIV +EDIV / nz1 : nz2 : S => Some ( Pair ( nz1 / nz2 ) ( nz1 % nz2 )) : S + +% Bitwise logical operators are also available on unsigned integers. + +% OR + +% :: nat : nat : 'S -> nat : 'S + +----- :: OR_bit +OR / nz1 : nz2 : S => ( nz1 | nz2 ) : S + +% AND (also available when the top operand is signed) + +% :: nat : nat : 'S -> nat : 'S +% :: int : nat : 'S -> nat : 'S + +----- :: AND_bit +AND / nz1 : nz2 : S => ( nz1 & nz2 ) : S + +% XOR + +% :: nat : nat : 'S -> nat : 'S + +----- :: XOR_bit +XOR / nz1 : nz2 : S => ( nz1 ^ nz2 ) : S + +% Michelson Documentation: NOT The return type of NOT is an int and not a nat. This is because the sign is also negated. The resulting integer is computed using two’s complement. For instance, the boolean negation of 0 is -1. To get a natural back, a possibility is to use AND with an unsigned mask afterwards. + +% :: nat : 'S -> int : 'S +% :: int : 'S -> int : 'S + +----- :: NOT_bit +NOT / n : S => ~ n : S + +% LSL + +% :: nat : nat : 'S -> nat : 'S + +nz2 <= 256 +----- :: LSL +LSL / nz1 : nz2 : S => ( nz1 << nz2 ) : S + +nz2 > 256 +----- :: LSL_fail +LSL / nz1 : nz2 : S => [FAILED] + +% LSR + +% :: Nat : nat : 'S -> nat : 'S + +----- :: LSR +LSR / nz1 : nz2 : S => ( nz1 >> nz2 ) : S + +% COMPARE: Integer/natural comparison + +% :: int : int : 'S -> int : 'S +% :: nat : nat : 'S -> int : 'S + +nz1 < nz2 +----- :: COMPARE_num_lt +COMPARE / nz1 : nz2 : S => - :z_IntOne: 1 : S + +nz1 = nz2 +----- :: COMPARE_num_eq +COMPARE / nz1 : nz2 : S => :z_IntZero: 0 : S + +nz1 > nz2 +----- :: COMPARE_num_gt +COMPARE / nz1 : nz2 : S => :z_IntOne: 1 : S + +% Operations on strings + +% Michelson Documentation: Strings are mostly used for naming things without having to rely on external ID databases. They are restricted to the printable subset of 7-bit ASCII, plus some escaped characters (see section on constants). So what can be done is basically use string constants as is, concatenate or splice them, and use them as keys. + +% CONCAT: String concatenation. + +% :: string : string : 'S -> string : 'S + +----- :: CONCAT_string +CONCAT / s : t : S => ( s ^ t ) : S + +% :: string list : 'S -> string : 'S + +----- :: CONCAT_list_nil +CONCAT / :setlist_Nil: {} : S => "" : S + +CONCAT / tl : S => t : S +----- :: CONCAT_list_cons +CONCAT / { s ; < tl > } : S => ( s ^ t ) : S + +% SIZE: number of characters in a string. + +% :: string : 'S -> nat : 'S + +----- :: SIZE_string +SIZE / s : S => ( length s ) : S + +% SLICE: String access. + +% :: nat : nat : string : ‘S -> option string : ‘S + + + + +% n: length +% n': offset +n1 + n2 < length s +----- :: SLICE_some +SLICE / n1 : n2 : s : S => Some ( slice s n1 n2 ) : S + +% where ss is the substring of s at the given offset and of the given length + +% iff offset and (offset + length) are in bounds + +% n: length +% n': offset +nz1 + nz2 >= length s +----- :: SLICE +SLICE / nz1 : nz2 : s : S => None : S + +% iff offset or (offset + length) are out of bounds + +% COMPARE: Lexicographic comparison. + +% :: string : string : 'S -> int : 'S + +s < t +----- :: COMPARE_string_lt +COMPARE / s : t : S => - :z_IntOne: 1 : S + +s = t +----- :: COMPARE_string_eq +COMPARE / s : t : S => :z_IntZero: 0 : S + +s > t +----- :: COMPARE_string_gt +COMPARE / s : t : S => :z_IntOne: 1 : S + % Operations on pairs % PAIR: Build a pair from the stack’s top two elements. @@ -348,23 +1227,285 @@ CAR / ( Pair d d' ) : S => d : S ----- :: CDR CDR / ( Pair d d' ) : S => d' : S +% Operations on sets + +% EMPTY_SET 'elt: Build a new, empty set for elements of a given type. + +% The 'elt type must be comparable (the COMPARE primitive must be defined over it). + +% :: 'S -> set 'elt : 'S + +----- :: EMPTY_SET +EMPTY_SET cty / S => :setlist_Nil: {} : S + +% MEM: Check for the presence of an element in a set. + +% :: 'elt : set 'elt : 'S -> bool : 'S + +----- :: MEM_set_empty +MEM / x : :setlist_Nil: {} : S => False : S + +COMPARE / x : y : [] => :z_IntOne: 1 : [] +MEM / x : tl : S => b : S +----- :: MEM_set_later +MEM / x : { y ; } : S => b : S + +COMPARE / x : y : [] => :z_IntZero: 0 : [] +----- :: MEM_set_found +MEM / x : { y ; } : S => True : S + +COMPARE / x : y : [] => - :z_IntOne: 1 : [] +----- :: MEM_set_nexists +MEM / x : { y ; } : S => False : S + +% UPDATE: Inserts or removes an element in a set, replacing a previous value. + +% :: 'elt : bool : set 'elt : 'S -> set 'elt : 'S + +----- :: UPDATE_set_false +UPDATE / x : False : :setlist_Nil: {} : S => :setlist_Nil: {} : S + +----- :: UPDATE_set_add_nexists +UPDATE / x : True : :setlist_Nil: {} : S => { x } : S + +COMPARE / x : d : [] => :z_IntOne: 1 : [] +UPDATE / x : b : tl : S => tl' : S +----- :: UPDATE_set_cont +UPDATE / x : b : { y ; } : S => { y ; } : S -% % Operations on unions +COMPARE / x : y : [] => :z_IntZero: 0 : [] +----- :: UPDATE_set_remove +UPDATE / x : False : { y ; < tl > } : S => tl : S -% % LEFT 'ty2: Pack a value in a union (left case). +COMPARE / x : y : [] => :z_IntZero: 0 : [] +----- :: UPDATE_set_exists +UPDATE / x : True : { y ; < tl > } : S => { y ; < tl > } : S -% % :: 'ty1 : 'S -> or 'ty1 'ty2 : 'S +COMPARE / x : y : [] => - :z_IntOne: 1 : [] +----- :: UPDATE_set_remove_nexists +UPDATE / x : False : { y ; < tl > } : S => { y ; < tl > } : S ------ :: LEFT_pack +COMPARE / x : y : [] => - :z_IntOne: 1 : [] +----- :: UPDATE_set_add +%% AJ: not sure how to get around the ugliness of the conclusion here +UPDATE / x : True : { y ; < tl > } : S => { x ; { y ; < tl > } } : S + +% ITER body: Apply the body expression to each element of a set. The body sequence has access to the stack. + +% :: (set 'elt) : 'A -> 'A +% iff body :: [ 'elt : 'A -> 'A ] + +----- :: ITER_set_nil +ITER body / :setlist_Nil: {} : S => S + +body ; ITER body / x : < tl > : S => S' +----- :: ITER_set_cons +ITER body / { x ; < tl > } : S => S' + +% SIZE: Get the cardinality of the set. + +% :: set 'elt : 'S -> nat : 'S + +----- :: SIZE_set_nil +SIZE / :setlist_Nil: {} : S => :n_NatZero: 0 : S + +SIZE / tl : S => n : S +----- :: SIZE_set_cons +SIZE / { d ; < tl > } : S => :n_NatOne: 1 + n : S + +% Operations on maps + +% EMPTY_MAP 'key 'val: Build a new, empty map from keys of a given type to values of another given type. + +% The 'key type must be comparable (the COMPARE primitive must be defined over it). + +% :: 'S -> map 'key 'val : 'S + +----- :: EMPTY_MAP +EMPTY_MAP cty ty / S => :map_Nil: {} : S + +% GET: Access an element in a map, returns an optional value to be checked with IF_SOME. + +% :: 'key : map 'key 'val : 'S -> option 'val : 'S + +----- :: GET_empty +GET / x : :map_Nil: {} : S => None : S + +COMPARE / x : k : [] => :z_IntOne: 1 : [] +GET / x : m : S => opt_y : S +----- :: GET_later +GET / x : { Elt k v ; < m > } : S => opt_y : S + +COMPARE / x : k : [] => :z_IntZero: 0 : [] +----- :: GET_now +GET / x : { Elt k v ; < m > } : S => Some v : S + +COMPARE / x : k : [] => - :z_IntOne: 1 : [] +----- :: GET_nexists +GET / x : { Elt k v ; < m > } : S => None : S + +% MEM: Check for the presence of a binding for a key in a map. + +% :: 'key : map 'key 'val : 'S -> bool : 'S + +----- :: MEM_map_empty +MEM / x : :map_Nil: {} : S => False : S + +COMPARE / x : k : [] => :z_IntOne: 1 : [] +MEM / x : m : S => b : S +----- :: MEM_map_later +MEM / x : { Elt k v ; < m > } : S => b : S + +COMPARE / x : k : [] => :z_IntZero: 0 : [] +----- :: MEM_map_now +MEM / x : { Elt k v ; < m > } : S => True : S + +COMPARE / x : k : [] => - :z_IntOne: 1 : [] +----- :: MEM_map_nexists +MEM / x : { Elt k v ; < m > } : S => False : S + +% UPDATE: Assign or remove an element in a map. + +% :: 'key : option 'val : map 'key 'val : 'S -> map 'key 'val : 'S + +----- :: UPDATE_map_false +UPDATE / x : None : :map_Nil: {} : S => :map_Nil: {} : S + +----- :: UPDATE_map_add_nexists +UPDATE / x : Some y : :map_Nil: {} : S => { Elt x y } : S + +COMPARE / x : k : [] => :z_IntOne: 1 : [] +UPDATE / x : opt_y : m : S => m' : S +----- :: UPDATE_map_cont +UPDATE / x : opt_y : { Elt k v ; < m > } : S => { Elt k v ; < m' > } : S + +COMPARE / x : k : [] => :z_IntZero: 0 : [] +----- :: UPDATE_map_remove +UPDATE / x : None : { Elt k v ; < m > } : S => < m > : S + +COMPARE / x : k : [] => :z_IntZero: 0 : [] +----- :: UPDATE_map_exists +UPDATE / x : Some y : { Elt k v ; < m > } : S => { Elt k y ; < m > } : S + +COMPARE / x : k : [] => - :z_IntOne: 1 : [] +----- :: UPDATE_map_remove_nexists +UPDATE / x : None : { Elt k v ; < m > } : S => { Elt k v ; < m > } : S + +COMPARE / x : k : [] => - :z_IntOne: 1 : [] +----- :: UPDATE_map_add +UPDATE / x : Some y : { Elt k v ; < m > } : S => { Elt x y ; { Elt k v ; < m > } } : S + +% MAP body: Apply the body expression to each element of a map. The body sequence has access to the stack. + +% :: (map 'key 'val) : 'A -> (map 'key 'ty2) : 'A +% iff body :: [ (pair 'key 'val) : 'A -> 'ty2 : 'A ] + +----- :: MAP_map_nil +MAP body / :map_Nil: {} : S => :map_Nil: {} : S + +%% AJ: I'm unsure how to read the conclusion of the original version +%% of this rule. what is the meaning of applying body to (Pair k v) ? +%% This is how I interpret it. +body / k : v : S => v' : S +MAP body / m : S => m' : S +----- :: MAP_map_cons +MAP body / { Elt k v ; < m > } : S => { Elt k v' ; < m' > } : S + +% ITER body: Apply the body expression to each element of a map. The body sequence has access to the stack. + +% :: (map 'elt 'val) : 'A -> 'A +% iff body :: [ (pair 'elt 'val) : 'A -> 'A ] + +----- :: ITER_map_nil +ITER body / :map_Nil: {} : S => S + +body ; ITER body / (Pair k v) : m : S => S' +----- :: ITER_map_cons +ITER body / { Elt k v ; < m > } : S => S' + +% SIZE: Get the cardinality of the map. + +% :: map 'key 'val : 'S -> nat : 'S + +----- :: SIZE_map_nil +SIZE / :map_Nil: {} : S => :n_NatZero: 0 : S + +SIZE / m : S => n : S +----- :: SIZE_map_cons +SIZE / { Elt d d' ; < m > } : S => :n_NatOne: 1 + n : S + +% Operations on big_maps + +% AJ: I ignore these. + +% The behavior of these operations is the same as if they were normal maps, except that under the hood, the elements are loaded and deserialized on demand. + +% GET: Access an element in a big_map, returns an optional value to be checked with IF_SOME. + +% :: 'key : big_map 'key 'val : 'S -> option 'val : 'S + +% MEM: Check for the presence of an element in a big_map. + +% :: 'key : big_map 'key 'val : 'S -> bool : 'S + +% UPDATE: Assign or remove an element in a big_map. + +% :: 'key : option 'val : big_map 'key 'val : 'S -> big_map 'key 'val : 'S + +%% +%% Operations on optional values +%% + +% SOME: Pack a present optional value. + +% :: 'ty1 : 'S -> option 'ty1 : 'S + +----- :: SOME +SOME / v : S => (Some v) : S + +% NONE 'ty1: The absent optional value. + +% :: 'S -> option 'ty1 : 'S + +----- :: NONE +NONE ty / v : S => None : S + +% IF_NONE body1 body2: Inspect an optional value. + +% :: option 'ty1 : 'S -> 'ty2 : 'S +% iff body1 :: [ 'S -> 'ty2 : 'S] +% body2 :: [ 'ty1 : 'S -> 'ty2 : 'S] + +body1 / S => S' +----- :: IF_NONE_none +IF_NONE body1 body2 / None : S => S' + +body2 / d : S => S' +----- :: IF_NONE_some +IF_NONE body1 body2 / (Some d) : S => S' + +% Operations on unions + +% LEFT 'ty2: Pack a value in a union (left case). + +% :: 'ty1 : 'S -> or 'ty1 'ty2 : 'S + +----- :: LEFT LEFT ty / v : S => (Left v) : S % RIGHT 'ty1: Pack a value in a union (right case). % :: 'ty2 : 'S -> or 'ty1 'ty2 : 'S ------ :: RIGHT_pack +----- :: RIGHT RIGHT ty / v : S => (Right v) : S +% IF_LEFT body1 body2: Inspect a value of a variant type. + +% :: or 'ty1 'ty2 : 'S -> 'cty : 'S +% iff body1 :: [ 'ty1 : 'S -> 'cty : 'S] +% body2 :: [ 'ty2 : 'S -> 'cty : 'S] + body1 / d : S => S' ----- :: IF_LEFT_left IF_LEFT body1 body2 / (Left d) : S => S' @@ -373,6 +1514,72 @@ body2 / d : S => S' ----- :: IF_LEFT_right IF_LEFT body1 body2 / (Right d) : S => S' +% Operations on lists + +% CONS: Prepend an element to a list. + +% :: 'ty1 : list 'ty1 : 'S -> list 'ty1 : 'S + +----- :: CONS +CONS / d : tl : S => { d ; < tl > } : S + +% NIL 'ty1: The empty list. + +% :: 'S -> list 'ty1 : 'S + +----- :: NIL +NIL ty / S => :setlist_Nil: {} : S + +% IF_CONS body1 body2: Inspect an optional value. + +% :: list 'ty1 : 'S -> 'ty2 : 'S +% iff body1 :: [ 'ty1 : list 'ty1 : 'S -> 'ty2 : 'S] +% body2 :: [ 'S -> 'ty2 : 'S] + +body2 / S => S' +----- :: IF_CONS_nil +IF_CONS body1 body2 / :setlist_Nil: {} : S => S' + +body1 / d : tl : S => S' +----- :: IF_CONS_cons +IF_CONS body1 body2 / { d ; < tl > } : S => S' + +% MAP body: Apply the body expression to each element of the list. The body sequence has access to the stack. + +% :: (list 'elt) : 'A -> (list 'ty2) : 'A +% iff body :: [ 'elt : 'A -> 'ty2 : 'A ] + +body / d : S => d' : S +MAP body / tl : S => tl' : S +----- :: MAP_list_cons +MAP body / { d ; < tl > } : S => { d' ; < tl' > } : S + +----- :: MAP_list_nil +MAP body / :setlist_Nil: {} : S => :setlist_Nil: {} : S + +% SIZE: Get the number of elements in the list. + +% :: list 'elt : 'S -> nat : 'S + +----- :: SIZE_list_nil +SIZE / :setlist_Nil: {} : S => :n_NatZero: 0 : S + +SIZE / tl : S => n : S +----- :: SIZE_list_cons +SIZE / { d ; } : S => :n_NatOne: 1 + n : S + +% ITER body: Apply the body expression to each element of a list. The body sequence has access to the stack. + +% :: (list 'elt) : 'A -> 'A +% iff body :: [ 'elt : 'A -> 'A ] + +body ; ITER body / d : tl : S => S' +----- :: ITER_list_cons +ITER body / { d ; } : S => S' + +----- :: ITER_list_nil +ITER body / :setlist_Nil: {} : S => S + embed {{coq End syntax. }} -- GitLab From 3fab0bed3a07ff4b6a4d276cc7dbb9ad6f0ac878 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Rapha=C3=ABl=20Cauderlier?= Date: Mon, 9 Sep 2019 13:35:49 +0200 Subject: [PATCH 158/252] Adapt our custom OTT Json export to the new version of michelson.ott --- vendors/ott/src/michelson_specific.ml | 39 ++++++++++----------------- vendors/ott/src/system_pp.ml | 2 +- 2 files changed, 15 insertions(+), 26 deletions(-) diff --git a/vendors/ott/src/michelson_specific.ml b/vendors/ott/src/michelson_specific.ml index ad89b97eb49e..1ccc1a458265 100644 --- a/vendors/ott/src/michelson_specific.ml +++ b/vendors/ott/src/michelson_specific.ml @@ -9,33 +9,22 @@ open Types (** Retrieve all instruction names from the grammar definition (productions that begins with i_ and have the following character fully uppercase) *) -let rec get_all_instruction_names xd = function +let rec get_all_instruction xd = function | [] -> [] | s::q -> (match s with - | Struct_rs ntrs -> - let rs = List.map (fun ntr -> Auxl.rule_of_ntr xd ntr) ntrs in - (* select all rules form the non-terminal `code`, no map *) - (List.flatten - (List.map (fun r -> r.rule_ps) - (List.filter (fun r -> r.rule_ntr_name = "code") rs))) - (* select all rules form the non-terminal `code` *) - (* - * (List.flatten (List.map - * (fun r -> List.map (fun p -> p.prod_name) r.rule_ps) - * (List.filter (fun r -> r.rule_ntr_name = "code") rs))) - *) - (* basile's version (below) would select all non-terminals with the prefix `i_` *) - (* - * (List.map (fun s -> String.sub s 2 (String.length s - 2)) - * (List.filter (fun s -> try (String.sub s 0 2) = "i_" && - * (String.sub s 2 (String.length s - 2) = - * (String.uppercase_ascii (String.sub s 2 (String.length s - 2)))) - * with _ -> false) - * (List.map (fun p -> p.prod_name) - * (List.flatten (List.map (fun r -> r.rule_ps) rs))))) - *) - @(get_all_instruction_names xd q) - | _ -> get_all_instruction_names xd q) + | Struct_rs ntrs -> + let rs = List.map (fun ntr -> Auxl.rule_of_ntr xd ntr) ntrs in + (List.map (fun s -> + {s with prod_name = String.sub s.prod_name 2 (String.length s.prod_name - 2)}) + (List.filter (fun p -> + let s = p.prod_name in + try (String.sub s 0 2) = "i_" && + (String.sub s 2 (String.length s - 2) = + (String.uppercase_ascii (String.sub s 2 (String.length s - 2)))) + with _ -> false) + (List.flatten (List.map (fun r -> r.rule_ps) rs)))) + @(get_all_instruction xd q) + | _ -> get_all_instruction xd q) (** Retrieve all relations (that begins with t_) *) let rec get_all_relations = function diff --git a/vendors/ott/src/system_pp.ml b/vendors/ott/src/system_pp.ml index 57e6f872f225..aa05da380f66 100644 --- a/vendors/ott/src/system_pp.ml +++ b/vendors/ott/src/system_pp.ml @@ -631,7 +631,7 @@ let pp_systemdefn_core_json m sd lookup oi = | (o, _)::[] -> ( let fd = open_out o in let structure = List.map (fun (_, st) -> st) sd.structure in - let instructions = Michelson_specific.get_all_instruction_names sd.syntax structure in + let instructions = Michelson_specific.get_all_instruction sd.syntax structure in let typingrules = Michelson_specific.get_all_typingrules sd.relations in (* List.iter (fun r -> print_endline r.drule_name) typingrules; *) -- GitLab From c12f2f7ccb720607a5111871a1e1074180354e17 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Mon, 9 Sep 2019 12:59:21 +0200 Subject: [PATCH 159/252] docs: examples-verify.py can take example specific inputs --- .../michelson_reference/examples-verify.py | 29 +++++++++++-------- 1 file changed, 17 insertions(+), 12 deletions(-) diff --git a/docs/doc_gen/michelson_reference/examples-verify.py b/docs/doc_gen/michelson_reference/examples-verify.py index 517387aa1a13..2ba6e7da57c9 100644 --- a/docs/doc_gen/michelson_reference/examples-verify.py +++ b/docs/doc_gen/michelson_reference/examples-verify.py @@ -16,31 +16,36 @@ def main(): if not 'path' in ex: continue - script_input = "Unit" + cmd = ['tezos-client', + 'run', 'script', str(ex['path']), + 'on', 'storage', str(ex['initial_storage']), + 'and', 'input', str(ex['input'])] out = subprocess.Popen( - ['tezos-client', - 'run', 'script', str(ex['path']), - 'on', 'storage', str(ex['initial_storage']), - 'and', 'input', str(script_input)], + cmd, stdout = subprocess.PIPE, stderr = subprocess.STDOUT) stdout,stderr = out.communicate() - stdout = stdout.decode("utf-8").split() - idx = list(map(lambda s: s.strip(), stdout)).index("storage") + stdout = stdout.decode("utf-8").split("\n") error = None - if idx == None: - error = " => ERROR: Could not find final storage" - else: + try: + # print(stdout) + idx = list(map(lambda s: s.strip(), stdout)).index("storage") expected = ex['final_storage'] - obtained = stdout[idx+1] + # print(stdout[idx]) + # print(stdout[idx+1]) + obtained = stdout[idx+1].strip() if expected != obtained: - error = "Final storage is `{}`, expected `{}`".format(expected, obtained) + error = f"Final storage is `{obtained}`, expected `{expected}` " + except ValueError: + cmd = " ".join(cmd) + error = f'Could not find final storage, script error?' if error != None: print(" ✗ " + ex['path']) print(" => " + error) + print(" => command: " + " ".join(cmd)) else: print(" ✔ " + ex['path']) -- GitLab From 37954bdd119ac9edf16a30d2f5f15366ed1991d0 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Mon, 9 Sep 2019 12:59:57 +0200 Subject: [PATCH 160/252] docs: allow inline rst in documentation_short and example title --- docs/doc_gen/michelson_reference/generate.py | 7 +++++++ .../doc_gen/michelson_reference/templates/instruction.html | 4 ++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/docs/doc_gen/michelson_reference/generate.py b/docs/doc_gen/michelson_reference/generate.py index 52cc93f5dc77..c0411a20b5bb 100644 --- a/docs/doc_gen/michelson_reference/generate.py +++ b/docs/doc_gen/michelson_reference/generate.py @@ -3,6 +3,7 @@ from jinja2 import Environment, FileSystemLoader, select_autoescape, Markup, StrictUndefined from docutils.core import publish_parts from language_def import load_language_def +import re import argparse @@ -17,6 +18,11 @@ try_michelson_url = "http://localhost:8000" def rst_filter(s): return Markup(publish_parts(source=s, writer_name='html')['body']) +def rst_inline_filter(s): + s = publish_parts(source=s, writer_name='html')['body'] + m = re.match(r'

(.*)

', s) + return Markup(m.group(1)) + def pp_michelson_filter(code): return Markup(highlight(code, MichelsonLexer(), HtmlFormatter())) @@ -27,6 +33,7 @@ env = Environment( undefined=StrictUndefined ) env.filters['rst'] = rst_filter +env.filters['rst_inline'] = rst_inline_filter env.filters['pp_michelson'] = pp_michelson_filter def main(): diff --git a/docs/doc_gen/michelson_reference/templates/instruction.html b/docs/doc_gen/michelson_reference/templates/instruction.html index a48d0dff01d8..5a7c0ee6cfed 100644 --- a/docs/doc_gen/michelson_reference/templates/instruction.html +++ b/docs/doc_gen/michelson_reference/templates/instruction.html @@ -1,4 +1,4 @@ -

{{instr.op_args}}: {{instr.documentation_short}}

+

{{instr.op_args}}: {{instr.documentation_short|rst}}

Semantics
@@ -24,7 +24,7 @@ {% if 'examples' in instr %} {% for ex in instr.examples %} -
Example: {{ex.name}}
+
Example: {{ex.name|rst_inline}}
{{ex.description | rst}} -- GitLab From 83f21f2f5d73243c9cbebd616466237e7e38b3aa Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Mon, 9 Sep 2019 13:01:59 +0200 Subject: [PATCH 161/252] docs: add PACK --- .../michelson_reference/michelson-meta.yaml | 18 ++++++++++++++++-- 1 file changed, 16 insertions(+), 2 deletions(-) diff --git a/docs/doc_gen/michelson_reference/michelson-meta.yaml b/docs/doc_gen/michelson_reference/michelson-meta.yaml index 2dfcabaec810..84d3a2fc11e6 100644 --- a/docs/doc_gen/michelson_reference/michelson-meta.yaml +++ b/docs/doc_gen/michelson_reference/michelson-meta.yaml @@ -80,7 +80,21 @@ instructions: SWAP: category: core documentation_short: Exchange the top two elements of the stack. + PACK: + category: core + documentation_short: Serialize data. + documentation: | + Serializes any type of michelson data to its optimized binary representation, of type ``bytes``. + examples: + - name: "``PACK`` -- ``UNPACK``" + description: | + This example packs the left part of the parameter, and + asserts that it is equal to the right part of the parameter. + It then verifies that the right part unpacks to a valid + michelson value. - - + path: ../../../src/bin_client/test/contracts/opcodes/packunpack.tz + input: '(Pair (Pair (Pair "toto" {3;7;9;1}) {1;2;3}) 0x05070707070100000004746f746f020000000800030007000900010200000006000100020003)' + initial_storage: Unit + final_storage: Unit -- GitLab From 91879093ac9c06b7d974fc159a44f73eb4530c3b Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Mon, 9 Sep 2019 13:58:55 +0200 Subject: [PATCH 162/252] docs: add UNPACK --- .../michelson_reference/michelson-meta.yaml | 20 +++++++++++++++++++ 1 file changed, 20 insertions(+) diff --git a/docs/doc_gen/michelson_reference/michelson-meta.yaml b/docs/doc_gen/michelson_reference/michelson-meta.yaml index 84d3a2fc11e6..7d86a654f91d 100644 --- a/docs/doc_gen/michelson_reference/michelson-meta.yaml +++ b/docs/doc_gen/michelson_reference/michelson-meta.yaml @@ -98,3 +98,23 @@ instructions: input: '(Pair (Pair (Pair "toto" {3;7;9;1}) {1;2;3}) 0x05070707070100000004746f746f020000000800030007000900010200000006000100020003)' initial_storage: Unit final_storage: Unit + UNPACK: + category: core + documentation_short: Deserializes a piece of data, if valid. + documentation: | + Serialize a value of type ``bytes`` into the corresponding michelson value of type ``ty1``. + If the head of the stack does not correspond to a michelson value of type ``ty1``, then ``None`` is pushed. + + examples: [] + examples: + - name: "``UNPACK`` reverses ``PACK``" + description: | + This example takes a tuple with a member of each comparable + type, packs and unpacks each member and asserts that the + resulting value is unchanged. + + path: ../../../src/bin_client/test/contracts/opcodes/packunpack_rev.tz + input: '(Pair -1 (Pair 1 (Pair "foobar" (Pair 0x00AABBCC (Pair 1000 (Pair False (Pair "tz1cxcwwnzENRdhe2Kb8ZdTrdNy4bFNyScx5" (Pair "2019-09-09T08:35:33Z" "tz1cxcwwnzENRdhe2Kb8ZdTrdNy4bFNyScx5"))))))))' + initial_storage: Unit + final_storage: Unit + -- GitLab From 46193e760834ff19bfa61f22acf24d5014681af8 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Mon, 9 Sep 2019 14:26:44 +0200 Subject: [PATCH 163/252] docs: read stack effect from typing rules --- .../michelson_reference/language_def.py | 16 +++++++++++----- .../michelson_reference/templates/macros.html | 19 ++++++++++++++----- 2 files changed, 25 insertions(+), 10 deletions(-) diff --git a/docs/doc_gen/michelson_reference/language_def.py b/docs/doc_gen/michelson_reference/language_def.py index 17f48ab474f7..01b5e6d3c3cd 100644 --- a/docs/doc_gen/michelson_reference/language_def.py +++ b/docs/doc_gen/michelson_reference/language_def.py @@ -1,6 +1,7 @@ import yaml import json import sys +import re language_meta_file = 'michelson-meta.yaml' language_definition_file = 'michelson.json' @@ -32,13 +33,18 @@ def load_language_def(strict=False): meta = lang_meta['instructions'][instr['op']] instr = {**instr, **meta} - # Synthesize stack effet - if not 'stack_effect' in instr and len(instr['semantics']): - instr['stack_effect'] = instr['semantics'][0]['conclusion'].split("/")[1].strip().split("=>") + # Synthesize stack effet from typing rule + if not 'stack_effect' in instr and len(instr['ty']): + def ty_rule_to_stack_effect(r): + se = list(map(lambda s: s.strip(), + re.split(r'[-=]>', r['conclusion'].split("::")[1]))) + assert len(se) == 2 + return se + instr['stack_effect'] = list(map(ty_rule_to_stack_effect, instr['ty'])) else: - instr['stack_effect'] = False - print("Warning: The instruction {} has no stack effect, nor could it be inferred from semantics" + print("Warning: The instruction {} has no stack effect, nor could it be inferred from typing rules" .format(instr['op']), file=sys.stderr) + instr['stack_effect'] = False # Load program if 'examples' in instr: diff --git a/docs/doc_gen/michelson_reference/templates/macros.html b/docs/doc_gen/michelson_reference/templates/macros.html index 6b8dc2b4c4a5..26b7e3b9963f 100644 --- a/docs/doc_gen/michelson_reference/templates/macros.html +++ b/docs/doc_gen/michelson_reference/templates/macros.html @@ -22,14 +22,23 @@ {% for instr in instructions %} - {{instr.op_args}} + {{instr.op_args}} {{instr.documentation_short}} {% if instr.stack_effect %} - {{ instr.stack_effect[0] }} - — - {{ instr.stack_effect[1] }} + {# + + {% for se in instr.stack_effect %} + + {% endfor %} +
{{ se[0] }}—{{ se[1] }}
+ #} + + {% for se in instr.stack_effect %} + {{ se[0] }} — {{ se[1] }}
+ {% endfor %} + {% else %} - + {% endif %} {# {{instr|pprint}} #} -- GitLab From d1a0de5ba728290fb1a8762072f2778781a9bdba Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Mon, 9 Sep 2019 14:45:31 +0200 Subject: [PATCH 164/252] docs: add missing inputs for some examples, give meaningful error --- docs/doc_gen/michelson_reference/examples-verify.py | 3 +++ docs/doc_gen/michelson_reference/michelson-meta.yaml | 2 ++ 2 files changed, 5 insertions(+) diff --git a/docs/doc_gen/michelson_reference/examples-verify.py b/docs/doc_gen/michelson_reference/examples-verify.py index 2ba6e7da57c9..3f92bb73b46e 100644 --- a/docs/doc_gen/michelson_reference/examples-verify.py +++ b/docs/doc_gen/michelson_reference/examples-verify.py @@ -15,6 +15,9 @@ def main(): for ex in instr['examples']: if not 'path' in ex: continue + if not 'input' in ex: + print(f"Missing initial input for example: {ex}") + sys.exit(1) cmd = ['tezos-client', 'run', 'script', str(ex['path']), diff --git a/docs/doc_gen/michelson_reference/michelson-meta.yaml b/docs/doc_gen/michelson_reference/michelson-meta.yaml index 7d86a654f91d..e4fa567e66dc 100644 --- a/docs/doc_gen/michelson_reference/michelson-meta.yaml +++ b/docs/doc_gen/michelson_reference/michelson-meta.yaml @@ -10,6 +10,7 @@ instructions: - name: Sum description: This example computes the sum of two naturals. path: example-contracts/ADD.tz + input: Unit initial_storage: "0" final_storage: "4" LOOP_LEFT: @@ -32,6 +33,7 @@ instructions: # value before creating the list of operations and storage. this # last value is put into storage. path: example-contracts/LOOP_LEFT.tz + input: 'Unit' initial_storage: "10" final_storage: "10" CDR: -- GitLab From fa3551710dfe5f2bf6f661b4614780a719b2eaa1 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Mon, 9 Sep 2019 14:46:05 +0200 Subject: [PATCH 165/252] docs: inline rst for op titles --- docs/doc_gen/michelson_reference/templates/instruction.html | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/docs/doc_gen/michelson_reference/templates/instruction.html b/docs/doc_gen/michelson_reference/templates/instruction.html index 5a7c0ee6cfed..d86529f87141 100644 --- a/docs/doc_gen/michelson_reference/templates/instruction.html +++ b/docs/doc_gen/michelson_reference/templates/instruction.html @@ -1,4 +1,4 @@ -

{{instr.op_args}}: {{instr.documentation_short|rst}}

+

{{instr.op_args}}: {{instr.documentation_short|rst_inline}}

Semantics
-- GitLab From f5f1f8e3440153bb774cedf78660f8e11c354162 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Mon, 9 Sep 2019 14:46:20 +0200 Subject: [PATCH 166/252] docs: add BLAKE2B --- docs/doc_gen/michelson_reference/michelson-meta.yaml | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/docs/doc_gen/michelson_reference/michelson-meta.yaml b/docs/doc_gen/michelson_reference/michelson-meta.yaml index e4fa567e66dc..811fca3bf20a 100644 --- a/docs/doc_gen/michelson_reference/michelson-meta.yaml +++ b/docs/doc_gen/michelson_reference/michelson-meta.yaml @@ -119,4 +119,16 @@ instructions: input: '(Pair -1 (Pair 1 (Pair "foobar" (Pair 0x00AABBCC (Pair 1000 (Pair False (Pair "tz1cxcwwnzENRdhe2Kb8ZdTrdNy4bFNyScx5" (Pair "2019-09-09T08:35:33Z" "tz1cxcwwnzENRdhe2Kb8ZdTrdNy4bFNyScx5"))))))))' initial_storage: Unit final_storage: Unit + BLAKE2B: + category: core + documentation_short: Compute a Blake2B cryptographic hash. + documentation: | + Compute a cryptographic hash of the value contents using the BLAKE2B cryptographic hash function. + examples: + - name: Hash and store + description: This example computes the BLAKE2B hash of the string passed as parameter and puts it in storage. + path: ../../../src/bin_client/test/contracts/opcodes/hash_string.tz + input: '"foobar"' + initial_storage: 0x + final_storage: '0xc5b7e76c15ce98128a840b54c38f462125766d2ed3a6bff0e76f7f3eb415df04' -- GitLab From bc7341d8b40990444e4b8ace23b9de493872c065 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Mon, 9 Sep 2019 14:53:05 +0200 Subject: [PATCH 167/252] docs: add SHA256 & SHA512 --- docs/doc_gen/michelson_reference/michelson-meta.yaml | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/docs/doc_gen/michelson_reference/michelson-meta.yaml b/docs/doc_gen/michelson_reference/michelson-meta.yaml index 811fca3bf20a..cf7e57cc3043 100644 --- a/docs/doc_gen/michelson_reference/michelson-meta.yaml +++ b/docs/doc_gen/michelson_reference/michelson-meta.yaml @@ -132,3 +132,14 @@ instructions: input: '"foobar"' initial_storage: 0x final_storage: '0xc5b7e76c15ce98128a840b54c38f462125766d2ed3a6bff0e76f7f3eb415df04' + SHA256: + category: core + documentation_short: Compute a SHA-256 cryptographic hash. + documentation: | + Compute a cryptographic hash of the value contents using the SHA-256 cryptographic hash function. + SHA512: + category: core + documentation_short: Compute a SHA-512 cryptographic hash. + documentation: | + Compute a cryptographic hash of the value contents using the SHA512 cryptographic hash function. + -- GitLab From 898a1a762651a8b2bafd4abcdb5fb2b3f569226a Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Mon, 9 Sep 2019 15:10:40 +0200 Subject: [PATCH 168/252] docs: add ABS and a unit test --- .../michelson_reference/michelson-meta.yaml | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) diff --git a/docs/doc_gen/michelson_reference/michelson-meta.yaml b/docs/doc_gen/michelson_reference/michelson-meta.yaml index cf7e57cc3043..5158f1a9b4e0 100644 --- a/docs/doc_gen/michelson_reference/michelson-meta.yaml +++ b/docs/doc_gen/michelson_reference/michelson-meta.yaml @@ -142,4 +142,23 @@ instructions: documentation_short: Compute a SHA-512 cryptographic hash. documentation: | Compute a cryptographic hash of the value contents using the SHA512 cryptographic hash function. + ABS: + category: core + documentation_short: Obtain the absolute value of an integer. + documentation: | + ``ABS`` consumes an integer and pushes its absolute value on the stack, of type ``nat``. + + examples: + - name: '``ABS`` is the reverse of ``NEG`` on naturals.' + description: | + This examples negates a natural number, takes the absolute + value and asserts that the final value equals the initial + parameter. + + Note that this is true for any natural, since michelson + numbers are arbitrary-precision. + path: ../../../src/bin_client/test/contracts/opcodes/abs.tz + input: 12039123919239192312931 + initial_storage: Unit + final_storage: Unit -- GitLab From d9815d56ff9c2ea24510c1180930237b6fecfa5e Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Mon, 9 Sep 2019 15:36:43 +0200 Subject: [PATCH 169/252] docs: add ADD and unit test --- .../michelson_reference/michelson-meta.yaml | 22 ++++++++++++++----- 1 file changed, 16 insertions(+), 6 deletions(-) diff --git a/docs/doc_gen/michelson_reference/michelson-meta.yaml b/docs/doc_gen/michelson_reference/michelson-meta.yaml index 5158f1a9b4e0..ecd5b3d4a613 100644 --- a/docs/doc_gen/michelson_reference/michelson-meta.yaml +++ b/docs/doc_gen/michelson_reference/michelson-meta.yaml @@ -5,14 +5,24 @@ instructions: ADD: category: domain documentation_short: Adds two numbers. - documentation: Sums two numbers. + documentation: | + Sums two numerical values. + This instruction is polymorphic and accepts any combination of naturals and integers as operands. + The return value is a natural number if both operands are natural. Otherwise, it is an integer. + + Furthermore, integers can be added to timestamps in which case + the return value is a timestamp offset with the integer number + of seconds. + + Finally, ``mutez`` can be added to ``mutez``, in which case the return value is a ``mutez``. + examples: - - name: Sum - description: This example computes the sum of two naturals. - path: example-contracts/ADD.tz + - name: Various additions + description: This example the addition of numbers of different types. + path: ../../../src/bin_client/test/contracts/opcodes/add.tz input: Unit - initial_storage: "0" - final_storage: "4" + initial_storage: Unit + final_storage: Unit LOOP_LEFT: category: core documentation_short: Loop with accumulator. -- GitLab From b555c0cb9d0dc81545d042d932135c93b89af6c8 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Mon, 9 Sep 2019 15:46:29 +0200 Subject: [PATCH 170/252] docs: add option that hides the expected final value of an example --- docs/doc_gen/michelson_reference/templates/instruction.html | 2 ++ 1 file changed, 2 insertions(+) diff --git a/docs/doc_gen/michelson_reference/templates/instruction.html b/docs/doc_gen/michelson_reference/templates/instruction.html index d86529f87141..c22924c79adf 100644 --- a/docs/doc_gen/michelson_reference/templates/instruction.html +++ b/docs/doc_gen/michelson_reference/templates/instruction.html @@ -31,7 +31,9 @@ {{ex.code|pp_michelson}} + {% if not ('hide_final_storage' in ex and ex['hide_final_storage']) %}

Expected final value on the stack: {{ex.final_storage}}

+ {% endif %}

Run example in try-michelson.

{% endfor %} -- GitLab From f2e49145e6a954f8c376349aa66ed857e6015ad4 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Mon, 9 Sep 2019 15:46:56 +0200 Subject: [PATCH 171/252] docs: add AMOUNT --- .../michelson_reference/michelson-meta.yaml | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/docs/doc_gen/michelson_reference/michelson-meta.yaml b/docs/doc_gen/michelson_reference/michelson-meta.yaml index ecd5b3d4a613..2da551b35bf1 100644 --- a/docs/doc_gen/michelson_reference/michelson-meta.yaml +++ b/docs/doc_gen/michelson_reference/michelson-meta.yaml @@ -172,3 +172,17 @@ instructions: input: 12039123919239192312931 initial_storage: Unit final_storage: Unit + AMOUNT: + category: core + documentation_short: Push the amount of the current transaction. + documentation: | + Push the amount of the current transaction, in ``mutez``. + + examples: + - name: Store ``AMOUNT`` + description: This contract stores the amount of its latest received transaction. + path: ../../../src/bin_client/test/contracts/opcodes/transfer_amount.tz + input: Unit + initial_storage: 0 + final_storage: 50000 + hide_final_storage: True -- GitLab From 8294fc1e1be9e09b4429397c61603492668f80fe Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Mon, 9 Sep 2019 15:47:09 +0200 Subject: [PATCH 172/252] docs: when verifying final output, compare as strings --- docs/doc_gen/michelson_reference/examples-verify.py | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/docs/doc_gen/michelson_reference/examples-verify.py b/docs/doc_gen/michelson_reference/examples-verify.py index 3f92bb73b46e..fbe85022474a 100644 --- a/docs/doc_gen/michelson_reference/examples-verify.py +++ b/docs/doc_gen/michelson_reference/examples-verify.py @@ -35,7 +35,7 @@ def main(): try: # print(stdout) idx = list(map(lambda s: s.strip(), stdout)).index("storage") - expected = ex['final_storage'] + expected = str(ex['final_storage']) # print(stdout[idx]) # print(stdout[idx+1]) obtained = stdout[idx+1].strip() -- GitLab From 60418a49c2129066af0eff06be3dcbfad05c2995 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Mon, 9 Sep 2019 16:47:36 +0200 Subject: [PATCH 173/252] docs: add ADD and unit test I added a separate unit test from the existing as the existing has some annotations that are not relevant to the test. --- .../michelson_reference/michelson-meta.yaml | 27 +++++++++++++++++++ 1 file changed, 27 insertions(+) diff --git a/docs/doc_gen/michelson_reference/michelson-meta.yaml b/docs/doc_gen/michelson_reference/michelson-meta.yaml index 2da551b35bf1..0cc34fa5e0b0 100644 --- a/docs/doc_gen/michelson_reference/michelson-meta.yaml +++ b/docs/doc_gen/michelson_reference/michelson-meta.yaml @@ -186,3 +186,30 @@ instructions: initial_storage: 0 final_storage: 50000 hide_final_storage: True + AND: + category: core + documentation_short: Logical and binary AND. + documentation: | + The instruction ``AND`` is defined on operands of booleans and natural numbers. + In the former case, the result is the logical AND of the operands. + In the latter case, the result is the binary AND of the operands. + + ``AND`` is also defined for integer top operands. Negative + numbers are considered in 2's complement representation, + starting with a virtual infinite number of 1s. + + examples: + - name: Logical AND + description: This contracts takes a pair of booleans, and computes and stores their conjunction. + path: ../../../src/bin_client/test/contracts/opcodes/and_logical_1.tz + initial_storage: False + input: (Pair True False) + final_storage: False + + - name: Binary AND + description: This contract demonstrates binary AND on numerical values. + path: ../../../src/bin_client/test/contracts/opcodes/and_binary.tz + initial_storage: Unit + input: Unit + final_storage: Unit + hide_final_storage: True -- GitLab From 7ded91ba8456414334ef71552a1df96aaf3f9bfa Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Mon, 9 Sep 2019 16:48:27 +0200 Subject: [PATCH 174/252] docs: fix ott typing rule for binary AND disallow AND of two natural numbers. --- docs/doc_gen/michelson_reference/michelson.ott | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/docs/doc_gen/michelson_reference/michelson.ott b/docs/doc_gen/michelson_reference/michelson.ott index 7955d4982516..e0740cebb1f0 100644 --- a/docs/doc_gen/michelson_reference/michelson.ott +++ b/docs/doc_gen/michelson_reference/michelson.ott @@ -1082,8 +1082,11 @@ OR / nz1 : nz2 : S => ( nz1 | nz2 ) : S % :: nat : nat : 'S -> nat : 'S % :: int : nat : 'S -> nat : 'S ------ :: AND_bit -AND / nz1 : nz2 : S => ( nz1 & nz2 ) : S +----- :: AND_bit_nat +AND / n1 : n2 : S => ( n1 & n2 ) : S + +----- :: AND_bit_int_nat +AND / z1 : n2 : S => ( z1 & n2 ) : S % XOR -- GitLab From 9033dded04a02c15a94dd4319ea8cf2afef33ad0 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Mon, 9 Sep 2019 16:48:49 +0200 Subject: [PATCH 175/252] docs: show the input needed to obtain the expected final storage --- docs/doc_gen/michelson_reference/templates/instruction.html | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/docs/doc_gen/michelson_reference/templates/instruction.html b/docs/doc_gen/michelson_reference/templates/instruction.html index c22924c79adf..5b11b6067b91 100644 --- a/docs/doc_gen/michelson_reference/templates/instruction.html +++ b/docs/doc_gen/michelson_reference/templates/instruction.html @@ -32,7 +32,7 @@ {% if not ('hide_final_storage' in ex and ex['hide_final_storage']) %} -

Expected final value on the stack: {{ex.final_storage}}

+

Expected final value on the stack if called with the input {{ex.input}}: {{ex.final_storage}}

{% endif %}

Run example in try-michelson.

-- GitLab From 12b6ccae395cb1b2985bee22aed73bd784a55001 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Mon, 9 Sep 2019 16:49:05 +0200 Subject: [PATCH 176/252] docs: fix the output of the command run on failing examples --- docs/doc_gen/michelson_reference/examples-verify.py | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/docs/doc_gen/michelson_reference/examples-verify.py b/docs/doc_gen/michelson_reference/examples-verify.py index fbe85022474a..d4e3ff9ed4e3 100644 --- a/docs/doc_gen/michelson_reference/examples-verify.py +++ b/docs/doc_gen/michelson_reference/examples-verify.py @@ -42,13 +42,12 @@ def main(): if expected != obtained: error = f"Final storage is `{obtained}`, expected `{expected}` " except ValueError: - cmd = " ".join(cmd) error = f'Could not find final storage, script error?' if error != None: print(" ✗ " + ex['path']) print(" => " + error) - print(" => command: " + " ".join(cmd)) + print(" => command: " + (" ".join(cmd))) else: print(" ✔ " + ex['path']) -- GitLab From 2a4a6ced7d831fed990f683c8aed2147899d017f Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Mon, 9 Sep 2019 16:59:35 +0200 Subject: [PATCH 177/252] docs: add BALANCE --- .../michelson_reference/michelson-meta.yaml | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/docs/doc_gen/michelson_reference/michelson-meta.yaml b/docs/doc_gen/michelson_reference/michelson-meta.yaml index 0cc34fa5e0b0..99b804c4a5e9 100644 --- a/docs/doc_gen/michelson_reference/michelson-meta.yaml +++ b/docs/doc_gen/michelson_reference/michelson-meta.yaml @@ -213,3 +213,18 @@ instructions: input: Unit final_storage: Unit hide_final_storage: True + BALANCE: + category: core + documentation_short: Push the current amount of mutez of the current contract. + documentation: | + Push the current amount of mutez of the current contract, + including any mutez added by the transaction. + + examples: + - name: Store ``BALANCE`` + description: This contract stores its balance after its latest received transaction. + path: ../../../src/bin_client/test/contracts/opcodes/balance.tz + input: Unit + initial_storage: 0 + final_storage: 4000000000000 + hide_final_storage: True -- GitLab From e94b2dc6612505fd2e11b95af5a854cea09b5da0 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Mon, 9 Sep 2019 17:13:40 +0200 Subject: [PATCH 178/252] docs: add CAR, CDR and unit tests --- .../michelson_reference/michelson-meta.yaml | 22 ++++++++++++++++++- 1 file changed, 21 insertions(+), 1 deletion(-) diff --git a/docs/doc_gen/michelson_reference/michelson-meta.yaml b/docs/doc_gen/michelson_reference/michelson-meta.yaml index 99b804c4a5e9..02304760b233 100644 --- a/docs/doc_gen/michelson_reference/michelson-meta.yaml +++ b/docs/doc_gen/michelson_reference/michelson-meta.yaml @@ -49,9 +49,29 @@ instructions: CDR: category: core documentation_short: Access the right part of a pair. + examples: + - name: Store right parameter + description: | + This contract takes a pair as parameter. It selects the right + part of the parameter and stores it. + + path: ../../../src/bin_client/test/contracts/opcodes/cdr.tz + input: (Pair 15 9) + initial_storage: 0 + final_storage: 9 CAR: category: core documentation_short: Access the left part of a pair. + examples: + - name: Store left parameter + description: | + This contract takes a pair as parameter. It selects the left + part of the parameter and stores it. + + path: ../../../src/bin_client/test/contracts/opcodes/car.tz + input: (Pair 15 9) + initial_storage: 0 + final_storage: 15 PAIR: category: core documentation_short: Build a pair from the stack’s top two elements. @@ -79,7 +99,7 @@ instructions: documentation_short: Empty sequence. PAIR: category: core - documentation_short: Build a pair from the stack's top two elements. + documentation_short: "Build a pair from the stack's top two elements." PUSH: category: core documentation_short: Push a constant value of a given type onto the stack. -- GitLab From af48434dba5f8d3bdfb980cb2790b58ed8d0055a Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Mon, 9 Sep 2019 17:37:04 +0200 Subject: [PATCH 179/252] docs: update examples verifies to handle multi-line storage output --- docs/doc_gen/michelson_reference/examples-verify.py | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/docs/doc_gen/michelson_reference/examples-verify.py b/docs/doc_gen/michelson_reference/examples-verify.py index d4e3ff9ed4e3..f4b975946c5a 100644 --- a/docs/doc_gen/michelson_reference/examples-verify.py +++ b/docs/doc_gen/michelson_reference/examples-verify.py @@ -34,11 +34,12 @@ def main(): error = None try: # print(stdout) - idx = list(map(lambda s: s.strip(), stdout)).index("storage") + idx1 = list(map(lambda s: s.strip(), stdout)).index("storage") + idx2 = list(map(lambda s: s.strip(), stdout)).index("emitted operations") expected = str(ex['final_storage']) # print(stdout[idx]) # print(stdout[idx+1]) - obtained = stdout[idx+1].strip() + obtained = ("".join(stdout[(idx1+1):idx2])).strip() if expected != obtained: error = f"Final storage is `{obtained}`, expected `{expected}` " except ValueError: -- GitLab From f57523c12d1b25b3da1811af70defc706a5ed6cf Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Mon, 9 Sep 2019 17:37:26 +0200 Subject: [PATCH 180/252] docs: add CHECK_SIGNATURE --- .../michelson_reference/michelson-meta.yaml | 22 +++++++++++++++++++ 1 file changed, 22 insertions(+) diff --git a/docs/doc_gen/michelson_reference/michelson-meta.yaml b/docs/doc_gen/michelson_reference/michelson-meta.yaml index 02304760b233..49b556479d14 100644 --- a/docs/doc_gen/michelson_reference/michelson-meta.yaml +++ b/docs/doc_gen/michelson_reference/michelson-meta.yaml @@ -248,3 +248,25 @@ instructions: initial_storage: 0 final_storage: 4000000000000 hide_final_storage: True + CHECK_SIGNATURE: + category: core + documentation_short: 'Verifies ``signature`` of ``bytes`` by ``key``.' + documentation: | + Checks that a sequence of bytes has been signed with a given key. + This instructions consumes three parameters: a ``key``, a ``signature`` and a + sequence of bytes. It pushes ``True`` if and only if the signature is a + valid signature of the byte sequence by the given key. + + examples: + - name: Check signature + description: | + This contract stores a ``signature`` and a ``string``. It + takes a ``key`` as parameter and runs successfully if the + stored ``signature`` is a valid signature of the BLAKE2B + hash of the stored string by that ``key``. + + path: ../../../src/bin_client/test/contracts/opcodes/check_signature.tz + input: '"edpkuBknW28nW72KG6RoHtYW7p12T6GKc7nAbwYX5m8Wd9sDVC9yav"' + initial_storage: '(Pair "edsigthTzJ8X7MPmNeEwybRAvdxS1pupqcM5Mk4uCuyZAe7uEk68YpuGDeViW8wSXMrCi5CwoNgqs8V2w8ayB5dMJzrYCHhD8C7" "hello")' + final_storage: '(Pair "edsigthTzJ8X7MPmNeEwybRAvdxS1pupqcM5Mk4uCuyZAe7uEk68YpuGDeViW8wSXMrCi5CwoNgqs8V2w8ayB5dMJzrYCHhD8C7" "hello")' + -- GitLab From dd314869c2bab2a29a69e43285744fc270881514 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Mon, 9 Sep 2019 18:38:04 +0200 Subject: [PATCH 181/252] docs: add CONCAT and the concat byte pairs unit test --- .../michelson_reference/michelson-meta.yaml | 35 +++++++++++++++++++ 1 file changed, 35 insertions(+) diff --git a/docs/doc_gen/michelson_reference/michelson-meta.yaml b/docs/doc_gen/michelson_reference/michelson-meta.yaml index 49b556479d14..014564e4caae 100644 --- a/docs/doc_gen/michelson_reference/michelson-meta.yaml +++ b/docs/doc_gen/michelson_reference/michelson-meta.yaml @@ -269,4 +269,39 @@ instructions: input: '"edpkuBknW28nW72KG6RoHtYW7p12T6GKc7nAbwYX5m8Wd9sDVC9yav"' initial_storage: '(Pair "edsigthTzJ8X7MPmNeEwybRAvdxS1pupqcM5Mk4uCuyZAe7uEk68YpuGDeViW8wSXMrCi5CwoNgqs8V2w8ayB5dMJzrYCHhD8C7" "hello")' final_storage: '(Pair "edsigthTzJ8X7MPmNeEwybRAvdxS1pupqcM5Mk4uCuyZAe7uEk68YpuGDeViW8wSXMrCi5CwoNgqs8V2w8ayB5dMJzrYCHhD8C7" "hello")' + CONCAT: + category: core + documentation_short: String, string list and byte sequence concatenation. + documentation: | + The ``CONCAT`` operator is overloaded four times: + - The first version takes two string operands and pushes their concatenation, as a string. + - The second takes a list of strings and pushes the concatenation of all strings in the list, as a string. + - The third version takes two byte sequences and pushes their concatenation, as a byte sequence. + - The fourth version takes a list of byte sequences and pushes the concatenation of all byte sequences in the list, as a byte sequence. + + examples: + - name: Concatenation of two strings + description: This example takes a list of strings as parameter. It prepends ``"Hello "`` to each of them and stores the result. + path: ../../../src/bin_client/test/contracts/opcodes/concat_hello.tz + input: '{ "John" ; "Jane" }' + initial_storage: "{}" + final_storage: '{ "Hello John" ; "Hello Jane" }' + - name: Concatenation of list of strings + description: This example takes a list of strings as parameter and concatenates them, and prepends the stored value and stores the result. + path: ../../../src/bin_client/test/contracts/opcodes/list_concat.tz + input: '{ " " ; "World" ; "!" }' + initial_storage: '"Hello"' + final_storage: '"Hello World!"' + - name: Concatenation of two byte sequences + description: This example takes a list of byte sequences as parameter. It prepends ``0xff`` to each of them and stores the result. + path: ../../../src/bin_client/test/contracts/opcodes/concat_hello_bytes.tz + input: '{ 0xab ; 0xcd }' + initial_storage: "{}" + final_storage: '{ 0xffab ; 0xffcd }' + - name: Concatenation of list of byte sequences + description: This example takes a list of byte sequences as parameter and concatenates them, and prepends the stored value and stores the result. + path: ../../../src/bin_client/test/contracts/opcodes/list_concat_bytes.tz + input: '{ 0xbe ; 0xef }' + initial_storage: '0xdead' + final_storage: '0xdeadbeef' -- GitLab From 82aff0490e57c7d3b6f44da208e53b3e7bd6c26b Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Mon, 9 Sep 2019 18:38:32 +0200 Subject: [PATCH 182/252] docs: show initial storage for examples --- docs/doc_gen/michelson_reference/templates/instruction.html | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/docs/doc_gen/michelson_reference/templates/instruction.html b/docs/doc_gen/michelson_reference/templates/instruction.html index 5b11b6067b91..6c8af01e7ffe 100644 --- a/docs/doc_gen/michelson_reference/templates/instruction.html +++ b/docs/doc_gen/michelson_reference/templates/instruction.html @@ -32,7 +32,9 @@ {% if not ('hide_final_storage' in ex and ex['hide_final_storage']) %} -

Expected final value on the stack if called with the input {{ex.input}}: {{ex.final_storage}}

+

Expected final storage if called with + the initial storage {{ex.initial_storage}} + and the input {{ex.input}}: {{ex.final_storage}}

{% endif %}

Run example in try-michelson.

-- GitLab From b87461293171f34be565af36002dc41db9703392 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Mon, 9 Sep 2019 18:38:46 +0200 Subject: [PATCH 183/252] docs: ott: add typing rules for CONCAT bytes lists --- .../doc_gen/michelson_reference/michelson.ott | 25 ++++++++++++++++--- 1 file changed, 22 insertions(+), 3 deletions(-) diff --git a/docs/doc_gen/michelson_reference/michelson.ott b/docs/doc_gen/michelson_reference/michelson.ott index e0740cebb1f0..c64fe8c789f6 100644 --- a/docs/doc_gen/michelson_reference/michelson.ott +++ b/docs/doc_gen/michelson_reference/michelson.ott @@ -532,12 +532,18 @@ Typing :: 't_' ::= --------------------------------- :: COMPARE COMPARE :: cty : cty : [] -> int : [] + --------------------------------------------- :: CONCAT_string_list + CONCAT :: list string : [] -> string : [] + --------------------------------------------- :: CONCAT_string CONCAT :: string : string : [] -> string : [] - ------------------------------------------ :: CONCAT_bytes + ------------------------------------------ :: CONCAT_bytes_list CONCAT :: bytes : bytes : [] -> bytes : [] + ------------------------------------------ :: CONCAT_bytes + CONCAT :: list bytes : [] -> bytes : [] + ----------------------------------- :: PAIR PAIR :: ty1 : ty2 : [] -> pair ty1 ty2 : [] @@ -1152,13 +1158,26 @@ CONCAT / s : t : S => ( s ^ t ) : S % :: string list : 'S -> string : 'S ------ :: CONCAT_list_nil +----- :: CONCAT_string_list_nil CONCAT / :setlist_Nil: {} : S => "" : S CONCAT / tl : S => t : S ------ :: CONCAT_list_cons +----- :: CONCAT_string_list_cons CONCAT / { s ; < tl > } : S => ( s ^ t ) : S +% :: bytes list : 'S -> bytes : 'S + +% TODO: add semantics for the concatenation of byte sequences, +% requires adding a literal for bytes sequences + +% ----- :: CONCAT_bytes_list_nil +% CONCAT / :setlist_Nil: {} : S => "" : S + +% CONCAT / tl : S => t : S +% ----- :: CONCAT_bytes_list_cons +% CONCAT / { s ; < tl > } : S => ( s ^ t ) : S + + % SIZE: number of characters in a string. % :: string : 'S -> nat : 'S -- GitLab From 643b6899aa99c6108440f0bf2f488af1b9339c3f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Rapha=C3=ABl=20Cauderlier?= Date: Tue, 10 Sep 2019 10:22:56 +0200 Subject: [PATCH 184/252] Doc: Restrict the filtering of rule names to avoid `LOOP_LEFT` rules to show up in the documentation of `LOOP`. --- vendors/ott/src/michelson_specific.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/vendors/ott/src/michelson_specific.ml b/vendors/ott/src/michelson_specific.ml index 1ccc1a458265..a7b5f032a364 100644 --- a/vendors/ott/src/michelson_specific.ml +++ b/vendors/ott/src/michelson_specific.ml @@ -47,5 +47,5 @@ let get_all_bigsteprules rels = (** Filter rules according to their names *) let filter_rules prefix name rules = List.filter (fun r -> - try ignore (Str.search_forward (Str.regexp (prefix^"_"^name^"\\(_.*\\)?$")) r.drule_name 0); true + try ignore (Str.search_forward (Str.regexp (prefix^"_"^name^"\\(__.*\\)?$")) r.drule_name 0); true with _ -> false) rules -- GitLab From 1c559e67588c9d2ad42d33fe51bd4df37be97c6f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Rapha=C3=ABl=20Cauderlier?= Date: Tue, 10 Sep 2019 13:58:17 +0200 Subject: [PATCH 185/252] Doc: Adapt rule names in michelson.ott to be easy to filter --- .../doc_gen/michelson_reference/michelson.ott | 302 +++++++++--------- 1 file changed, 151 insertions(+), 151 deletions(-) diff --git a/docs/doc_gen/michelson_reference/michelson.ott b/docs/doc_gen/michelson_reference/michelson.ott index c64fe8c789f6..1352e39df570 100644 --- a/docs/doc_gen/michelson_reference/michelson.ott +++ b/docs/doc_gen/michelson_reference/michelson.ott @@ -241,7 +241,7 @@ code, i, body :: 'i_' ::= | FAILWITH :: :: FAILWITH | {} :: :: NOOP | code1 ; code2 :: :: SEQ - | IF code1 code2 :: :: IF_ + | IF code1 code2 :: :: IF | LOOP code :: :: LOOP | LOOP_LEFT code :: :: LOOP_LEFT | DIP code :: :: DIP @@ -442,37 +442,37 @@ Typing :: 't_' ::= ----------------------------------- :: comparison comparison :: int : [] -> bool : [] - ----------------------------- :: NOT_bool + ----------------------------- :: NOT__bool NOT :: bool : [] -> bool : [] - --------------------------- :: NOT_nat + --------------------------- :: NOT__nat NOT :: nat : [] -> int : [] - --------------------------- :: NOT_int + --------------------------- :: NOT__int NOT :: int : [] -> int : [] - --------------------------- :: NEG_nat + --------------------------- :: NEG__nat NEG :: nat : [] -> int : [] - --------------------------- :: NEG_int + --------------------------- :: NEG__int NEG :: int : [] -> int : [] --------------------------- :: ABS ABS :: int : [] -> nat : [] - -------------------------------- :: SIZE_set + -------------------------------- :: SIZE__set SIZE :: set cty : [] -> nat : [] - ------------------------------------ :: SIZE_map + ------------------------------------ :: SIZE__map SIZE :: map kty vty : [] -> nat : [] - ------------------------------- :: SIZE_list + ------------------------------- :: SIZE__list SIZE :: list ty1 : [] -> nat : [] - ------------------------------- :: SIZE_string + ------------------------------- :: SIZE__string SIZE :: string : [] -> nat : [] - ------------------------------ :: SIZE_bytes + ------------------------------ :: SIZE__bytes SIZE :: bytes : [] -> nat : [] ------------------------------ :: CAR @@ -532,34 +532,34 @@ Typing :: 't_' ::= --------------------------------- :: COMPARE COMPARE :: cty : cty : [] -> int : [] - --------------------------------------------- :: CONCAT_string_list + --------------------------------------------- :: CONCAT__string_list CONCAT :: list string : [] -> string : [] - --------------------------------------------- :: CONCAT_string + --------------------------------------------- :: CONCAT__string CONCAT :: string : string : [] -> string : [] - ------------------------------------------ :: CONCAT_bytes_list + ------------------------------------------ :: CONCAT__bytes_list CONCAT :: bytes : bytes : [] -> bytes : [] - ------------------------------------------ :: CONCAT_bytes + ------------------------------------------ :: CONCAT__bytes CONCAT :: list bytes : [] -> bytes : [] ----------------------------------- :: PAIR PAIR :: ty1 : ty2 : [] -> pair ty1 ty2 : [] - ---------------------------------- :: MEM_set + ---------------------------------- :: MEM__set MEM :: cty : set cty : [] -> bool : [] - ------------------------------------------ :: MEM_map + ------------------------------------------ :: MEM__map MEM :: kty : map kty vty : [] -> bool : [] - ---------------------------------------------- :: MEM_big_map + ---------------------------------------------- :: MEM__big_map MEM :: kty : big_map kty vty : [] -> bool : [] - ------------------------------------------------ :: GET_map + ------------------------------------------------ :: GET__map GET :: kty : map kty vty : [] -> option vty : [] - ---------------------------------------------------- :: GET_big_map + ---------------------------------------------------- :: GET__big_map GET :: kty : big_map kty vty : [] -> option vty : [] -------------------------------------------- :: CONS @@ -574,19 +574,19 @@ Typing :: 't_' ::= ---------------------------------------- :: SWAP SWAP :: ty1 : ty2 : [] -> ty2 : ty1 : [] - ------------------------------------------------------ :: SLICE_string + ------------------------------------------------------ :: SLICE__string SLICE :: nat : nat : string : [] -> option string : [] - ---------------------------------------------------- :: SLICE_bytes + ---------------------------------------------------- :: SLICE__bytes SLICE :: nat : nat : bytes : [] -> option bytes : [] - --------------------------------------------------- :: UPDATE_set + --------------------------------------------------- :: UPDATE__set UPDATE :: cty : bool : set cty : [] -> set cty : [] - ---------------------------------------------------------- :: UPDATE_map + ---------------------------------------------------------- :: UPDATE__map UPDATE :: kty : vty : map kty vty : [] -> map kty vty : [] - ------------------------------------------------------------------ :: UPDATE_big_map + ------------------------------------------------------------------ :: UPDATE__big_map UPDATE :: kty : vty : big_map kty vty : [] -> big_map kty vty : [] @@ -602,82 +602,82 @@ Typing :: 't_' ::= CHECK_SIGNATURE :: key : signature : bytes : [] -> bool : [] - ----------------------------------- :: ADD_nat_nat + ----------------------------------- :: ADD__nat_nat ADD :: nat : nat : [] -> nat : [] - ----------------------------------- :: ADD_nat_int + ----------------------------------- :: ADD__nat_int ADD :: nat : int : [] -> int : [] - ----------------------------------- :: ADD_int_nat + ----------------------------------- :: ADD__int_nat ADD :: int : nat : [] -> int : [] - ----------------------------------- :: ADD_int_int + ----------------------------------- :: ADD__int_int ADD :: int : int : [] -> int : [] - ----------------------------------------------- :: ADD_timestamp_int + ----------------------------------------------- :: ADD__timestamp_int ADD :: timestamp : int : [] -> timestamp : [] - ----------------------------------------------- :: ADD_int_timestamp + ----------------------------------------------- :: ADD__int_timestamp ADD :: int : timestamp : [] -> timestamp : [] - ----------------------------------------- :: ADD_mutez_mutez_mutez + ----------------------------------------- :: ADD__mutez_mutez_mutez ADD :: mutez : mutez : [] -> mutez : [] - ----------------------------------- :: SUB_nat_nat + ----------------------------------- :: SUB__nat_nat SUB :: nat : nat : [] -> int : [] - ----------------------------------- :: SUB_nat_int + ----------------------------------- :: SUB__nat_int SUB :: nat : int : [] -> int : [] - ----------------------------------- :: SUB_int_nat + ----------------------------------- :: SUB__int_nat SUB :: int : nat : [] -> int : [] - ----------------------------------- :: SUB_int_int + ----------------------------------- :: SUB__int_int SUB :: int : int : [] -> int : [] - ----------------------------------------------- :: SUB_timestamp_int + ----------------------------------------------- :: SUB__timestamp_int SUB :: timestamp : int : [] -> timestamp : [] - ----------------------------------------------- :: SUB_timestamp_timestamp + ----------------------------------------------- :: SUB__timestamp_timestamp SUB :: timestamp : timestamp : [] -> int : [] - ----------------------------------------- :: SUB_mutez_mutez + ----------------------------------------- :: SUB__mutez_mutez SUB :: mutez : mutez : [] -> mutez : [] - ----------------------------------- :: MUL_nat_nat + ----------------------------------- :: MUL__nat_nat MUL :: nat : nat : [] -> nat : [] - ----------------------------------- :: MUL_nat_int + ----------------------------------- :: MUL__nat_int MUL :: nat : int : [] -> int : [] - ----------------------------------- :: MUL_int_nat + ----------------------------------- :: MUL__int_nat MUL :: int : nat : [] -> int : [] - ----------------------------------- :: MUL_int_int + ----------------------------------- :: MUL__int_int MUL :: int : int : [] -> int : [] - --------------------------------------- :: MUL_mutez_nat + --------------------------------------- :: MUL__mutez_nat MUL :: mutez : nat : [] -> mutez : [] - --------------------------------------- :: MUL_nat_mutez + --------------------------------------- :: MUL__nat_mutez MUL :: nat : mutez : [] -> mutez : [] - ------------------------------------------- :: EDIV_nat_nat + ------------------------------------------- :: EDIV__nat_nat EDIV :: nat : nat : [] -> nat : nat : [] - ------------------------------------------- :: EDIV_nat_int + ------------------------------------------- :: EDIV__nat_int EDIV :: nat : int : [] -> int : nat : [] - ------------------------------------------- :: EDIV_int_nat + ------------------------------------------- :: EDIV__int_nat EDIV :: int : nat : [] -> int : nat : [] - ------------------------------------------- :: EDIV_int_int + ------------------------------------------- :: EDIV__int_int EDIV :: int : int : [] -> int : nat : [] - ------------------------------------------------- :: EDIV_mutez_nat + ------------------------------------------------- :: EDIV__mutez_nat EDIV :: mutez : nat : [] -> mutez : mutez : [] - ------------------------------------------------- :: EDIV_mutez_mutez + ------------------------------------------------- :: EDIV__mutez_mutez EDIV :: mutez : mutez : [] -> nat : mutez : [] defn @@ -716,23 +716,23 @@ Typing :: 't_' ::= DIP code :: ty1 : A => ty1 : B code :: ty1 : A => A - ---------------------------- :: ITER_list + ---------------------------- :: ITER__list ITER code :: list ty1 : A => A code :: cty : A => A - ---------------------------- :: ITER_set + ---------------------------- :: ITER__set ITER code :: set cty : A => A code :: (pair kty vty) : A => A - --------------------------------- :: ITER_map + --------------------------------- :: ITER__map ITER code :: map kty vty : A => A code :: ty1 : A => ty2 : A - ------------------------------------- :: MAP_list + ------------------------------------- :: MAP__list MAP code :: list ty1 : A => list ty2 : A code :: (pair kty ty1) : A => ty2 : A - ------------------------------------------- :: MAP_map + ------------------------------------------- :: MAP__map MAP code :: map kty ty1 : A => map kty ty2 : A code1 :: A => B @@ -804,22 +804,22 @@ i1; i2 / S => SE' {} / S => S i1 / S => S' ------- :: IF_tt +------ :: IF__tt IF i1 i2 / True : S => S' i2 / S => S' ------- :: IF_ff +------ :: IF__ff IF i1 i2 / False : S => S' i1; LOOP i1 / S => S' ------- :: LOOP_tt +------ :: LOOP__tt LOOP i1 / True : S => S' ------- :: LOOP_ff +------ :: LOOP__ff LOOP i1 / False : S => S i1 ; LOOP_LEFT i1 / d : S => S' ------- :: LOOP_LEFT_tt +------ :: LOOP_LEFT__tt LOOP_LEFT i1 / Left d : S => S' i1 / S => S' @@ -886,22 +886,22 @@ LAMBDA ty ty' i / S => i : S % :: int : 'S -> bool : 'S -------------------------------------- :: EQ_tt +------------------------------------- :: EQ__tt EQ / :z_IntZero: 0 : S => True : S z <> :z_IntZero: 0 --------------------------- :: EQ_ff +-------------------------- :: EQ__ff EQ / z : S => False : S % NEQ: Checks that the top of the stack does Not EQual zero. % :: int : 'S -> bool : 'S --------------------------------------- :: NEQ_ff +-------------------------------------- :: NEQ__ff NEQ / :z_IntZero: 0 : S => False : S z <> :z_IntZero: 0 -------------------------- :: NEQ_tt +------------------------- :: NEQ__tt NEQ / z : S => True : S % LT: Checks that the top of the stack is Less Than zero. @@ -909,11 +909,11 @@ NEQ / z : S => True : S % :: int : 'S -> bool : 'S z < :z_IntZero: 0 ------------------ :: LT_tt +----------------- :: LT__tt LT / z : S => True : S z >= :z_IntZero: 0 ------ :: LT_ff +----- :: LT__ff LT / z : S => False : S % GT: Checks that the top of the stack is Greater Than zero. @@ -922,11 +922,11 @@ LT / z : S => False : S z > :z_IntZero: 0 ------------------ :: GT_tt +----------------- :: GT__tt GT / z : S => True : S z <= :z_IntZero: 0 ------------------- :: GT_ff +------------------ :: GT__ff GT / z : S => False : S % LE: Checks that the top of the stack is Less Than of Equal to zero. @@ -934,11 +934,11 @@ GT / z : S => False : S % :: int : 'S -> bool : 'S z <= :z_IntZero: 0 ------------------- :: LE_tt +------------------ :: LE__tt LE / z : S => True : S z > :z_IntZero: 0 ------------------ :: LE_ff +----------------- :: LE__ff LE / z : S => False : S % GE: Checks that the top of the stack is Greater Than of Equal to zero. @@ -947,11 +947,11 @@ LE / z : S => False : S z >= :z_IntZero: 0 ------------------- :: GE_tt +------------------ :: GE__tt GE / z : S => True : S z < :z_IntZero: 0 ------------------ :: GE_ff +----------------- :: GE__ff GE / z : S => False : S @@ -962,13 +962,13 @@ GE / z : S => False : S % :: bool : bool : 'S -> bool : 'S ------ :: OR1 +----- :: OR__1 OR / True : x : S => True : S ------ :: OR2 +----- :: OR__2 OR / x : True : S => True : S ------ :: OR3 +----- :: OR__3 OR / False : False : S => False : S % AND @@ -976,39 +976,39 @@ OR / False : False : S => False : S % :: bool : bool : 'S -> bool : 'S ------ :: AND1 +----- :: AND__1 AND / True : True : S => True : S ------ :: AND2 +----- :: AND__2 AND / False : x : S => False : S ------ :: AND3 +----- :: AND__3 AND / x : False : S => False : S % XOR % :: bool : bool : 'S -> bool : 'S ------ :: XOR1 +----- :: XOR__1 XOR / True : True : S => False : S ------ :: XOR2 +----- :: XOR__2 XOR / False : True : S => True : S ------ :: XOR3 +----- :: XOR__3 XOR / True : False : S => True : S ------ :: XOR4 +----- :: XOR__4 XOR / False : False : S => False : S % NOT % :: bool : 'S -> bool : 'S ------ :: NOT1 +----- :: NOT__1 NOT / True : S => False : S ------ :: NOT2 +----- :: NOT__2 NOT / False : S => True : S % Operations on integers and natural numbers @@ -1067,7 +1067,7 @@ MUL / nz1 : nz2 : S => ( nz1 * nz2 ) : S % :: nat : int : 'S -> option (pair int nat) : 'S % :: nat : nat : 'S -> option (pair nat nat) : 'S ------ :: EDIV_0 +----- :: EDIV__0 EDIV / n : :n_NatZero: 0 : S => None : S nz2 <> :n_NatZero: 0 @@ -1080,7 +1080,7 @@ EDIV / nz1 : nz2 : S => Some ( Pair ( nz1 / nz2 ) ( nz1 % nz2 )) : S % :: nat : nat : 'S -> nat : 'S ------ :: OR_bit +----- :: OR__bit OR / nz1 : nz2 : S => ( nz1 | nz2 ) : S % AND (also available when the top operand is signed) @@ -1088,17 +1088,17 @@ OR / nz1 : nz2 : S => ( nz1 | nz2 ) : S % :: nat : nat : 'S -> nat : 'S % :: int : nat : 'S -> nat : 'S ------ :: AND_bit_nat +----- :: AND__bit_nat AND / n1 : n2 : S => ( n1 & n2 ) : S ------ :: AND_bit_int_nat +----- :: AND__bit_int_nat AND / z1 : n2 : S => ( z1 & n2 ) : S % XOR % :: nat : nat : 'S -> nat : 'S ------ :: XOR_bit +----- :: XOR__bit XOR / nz1 : nz2 : S => ( nz1 ^ nz2 ) : S % Michelson Documentation: NOT The return type of NOT is an int and not a nat. This is because the sign is also negated. The resulting integer is computed using two’s complement. For instance, the boolean negation of 0 is -1. To get a natural back, a possibility is to use AND with an unsigned mask afterwards. @@ -1106,7 +1106,7 @@ XOR / nz1 : nz2 : S => ( nz1 ^ nz2 ) : S % :: nat : 'S -> int : 'S % :: int : 'S -> int : 'S ------ :: NOT_bit +----- :: NOT__bit NOT / n : S => ~ n : S % LSL @@ -1118,7 +1118,7 @@ nz2 <= 256 LSL / nz1 : nz2 : S => ( nz1 << nz2 ) : S nz2 > 256 ------ :: LSL_fail +----- :: LSL__fail LSL / nz1 : nz2 : S => [FAILED] % LSR @@ -1134,15 +1134,15 @@ LSR / nz1 : nz2 : S => ( nz1 >> nz2 ) : S % :: nat : nat : 'S -> int : 'S nz1 < nz2 ------ :: COMPARE_num_lt +----- :: COMPARE__num_lt COMPARE / nz1 : nz2 : S => - :z_IntOne: 1 : S nz1 = nz2 ------ :: COMPARE_num_eq +----- :: COMPARE__num_eq COMPARE / nz1 : nz2 : S => :z_IntZero: 0 : S nz1 > nz2 ------ :: COMPARE_num_gt +----- :: COMPARE__num_gt COMPARE / nz1 : nz2 : S => :z_IntOne: 1 : S % Operations on strings @@ -1153,16 +1153,16 @@ COMPARE / nz1 : nz2 : S => :z_IntOne: 1 : S % :: string : string : 'S -> string : 'S ------ :: CONCAT_string +----- :: CONCAT__string CONCAT / s : t : S => ( s ^ t ) : S % :: string list : 'S -> string : 'S ------ :: CONCAT_string_list_nil +----- :: CONCAT__string_list_nil CONCAT / :setlist_Nil: {} : S => "" : S CONCAT / tl : S => t : S ------ :: CONCAT_string_list_cons +----- :: CONCAT__string_list_cons CONCAT / { s ; < tl > } : S => ( s ^ t ) : S % :: bytes list : 'S -> bytes : 'S @@ -1182,7 +1182,7 @@ CONCAT / { s ; < tl > } : S => ( s ^ t ) : S % :: string : 'S -> nat : 'S ------ :: SIZE_string +----- :: SIZE__string SIZE / s : S => ( length s ) : S % SLICE: String access. @@ -1195,7 +1195,7 @@ SIZE / s : S => ( length s ) : S % n: length % n': offset n1 + n2 < length s ------ :: SLICE_some +----- :: SLICE__some SLICE / n1 : n2 : s : S => Some ( slice s n1 n2 ) : S % where ss is the substring of s at the given offset and of the given length @@ -1215,15 +1215,15 @@ SLICE / nz1 : nz2 : s : S => None : S % :: string : string : 'S -> int : 'S s < t ------ :: COMPARE_string_lt +----- :: COMPARE__string_lt COMPARE / s : t : S => - :z_IntOne: 1 : S s = t ------ :: COMPARE_string_eq +----- :: COMPARE__string_eq COMPARE / s : t : S => :z_IntZero: 0 : S s > t ------ :: COMPARE_string_gt +----- :: COMPARE__string_gt COMPARE / s : t : S => :z_IntOne: 1 : S % Operations on pairs @@ -1264,51 +1264,51 @@ EMPTY_SET cty / S => :setlist_Nil: {} : S % :: 'elt : set 'elt : 'S -> bool : 'S ------ :: MEM_set_empty +----- :: MEM__set_empty MEM / x : :setlist_Nil: {} : S => False : S COMPARE / x : y : [] => :z_IntOne: 1 : [] MEM / x : tl : S => b : S ------ :: MEM_set_later +----- :: MEM__set_later MEM / x : { y ; } : S => b : S COMPARE / x : y : [] => :z_IntZero: 0 : [] ------ :: MEM_set_found +----- :: MEM__set_found MEM / x : { y ; } : S => True : S COMPARE / x : y : [] => - :z_IntOne: 1 : [] ------ :: MEM_set_nexists +----- :: MEM__set_nexists MEM / x : { y ; } : S => False : S % UPDATE: Inserts or removes an element in a set, replacing a previous value. % :: 'elt : bool : set 'elt : 'S -> set 'elt : 'S ------ :: UPDATE_set_false +----- :: UPDATE__set_false UPDATE / x : False : :setlist_Nil: {} : S => :setlist_Nil: {} : S ------ :: UPDATE_set_add_nexists +----- :: UPDATE__set_add_nexists UPDATE / x : True : :setlist_Nil: {} : S => { x } : S COMPARE / x : d : [] => :z_IntOne: 1 : [] UPDATE / x : b : tl : S => tl' : S ------ :: UPDATE_set_cont +----- :: UPDATE__set_cont UPDATE / x : b : { y ; } : S => { y ; } : S COMPARE / x : y : [] => :z_IntZero: 0 : [] ------ :: UPDATE_set_remove +----- :: UPDATE__set_remove UPDATE / x : False : { y ; < tl > } : S => tl : S COMPARE / x : y : [] => :z_IntZero: 0 : [] ------ :: UPDATE_set_exists +----- :: UPDATE__set_exists UPDATE / x : True : { y ; < tl > } : S => { y ; < tl > } : S COMPARE / x : y : [] => - :z_IntOne: 1 : [] ------ :: UPDATE_set_remove_nexists +----- :: UPDATE__set_remove_nexists UPDATE / x : False : { y ; < tl > } : S => { y ; < tl > } : S COMPARE / x : y : [] => - :z_IntOne: 1 : [] ------ :: UPDATE_set_add +----- :: UPDATE__set_add %% AJ: not sure how to get around the ugliness of the conclusion here UPDATE / x : True : { y ; < tl > } : S => { x ; { y ; < tl > } } : S @@ -1317,22 +1317,22 @@ UPDATE / x : True : { y ; < tl > } : S => { x ; { y ; < tl > } } : S % :: (set 'elt) : 'A -> 'A % iff body :: [ 'elt : 'A -> 'A ] ------ :: ITER_set_nil +----- :: ITER__set_nil ITER body / :setlist_Nil: {} : S => S body ; ITER body / x : < tl > : S => S' ------ :: ITER_set_cons +----- :: ITER__set_cons ITER body / { x ; < tl > } : S => S' % SIZE: Get the cardinality of the set. % :: set 'elt : 'S -> nat : 'S ------ :: SIZE_set_nil +----- :: SIZE__set_nil SIZE / :setlist_Nil: {} : S => :n_NatZero: 0 : S SIZE / tl : S => n : S ------ :: SIZE_set_cons +----- :: SIZE__set_cons SIZE / { d ; < tl > } : S => :n_NatOne: 1 + n : S % Operations on maps @@ -1350,71 +1350,71 @@ EMPTY_MAP cty ty / S => :map_Nil: {} : S % :: 'key : map 'key 'val : 'S -> option 'val : 'S ------ :: GET_empty +----- :: GET__empty GET / x : :map_Nil: {} : S => None : S COMPARE / x : k : [] => :z_IntOne: 1 : [] GET / x : m : S => opt_y : S ------ :: GET_later +----- :: GET__later GET / x : { Elt k v ; < m > } : S => opt_y : S COMPARE / x : k : [] => :z_IntZero: 0 : [] ------ :: GET_now +----- :: GET__now GET / x : { Elt k v ; < m > } : S => Some v : S COMPARE / x : k : [] => - :z_IntOne: 1 : [] ------ :: GET_nexists +----- :: GET__nexists GET / x : { Elt k v ; < m > } : S => None : S % MEM: Check for the presence of a binding for a key in a map. % :: 'key : map 'key 'val : 'S -> bool : 'S ------ :: MEM_map_empty +----- :: MEM__map_empty MEM / x : :map_Nil: {} : S => False : S COMPARE / x : k : [] => :z_IntOne: 1 : [] MEM / x : m : S => b : S ------ :: MEM_map_later +----- :: MEM__map_later MEM / x : { Elt k v ; < m > } : S => b : S COMPARE / x : k : [] => :z_IntZero: 0 : [] ------ :: MEM_map_now +----- :: MEM__map_now MEM / x : { Elt k v ; < m > } : S => True : S COMPARE / x : k : [] => - :z_IntOne: 1 : [] ------ :: MEM_map_nexists +----- :: MEM__map_nexists MEM / x : { Elt k v ; < m > } : S => False : S % UPDATE: Assign or remove an element in a map. % :: 'key : option 'val : map 'key 'val : 'S -> map 'key 'val : 'S ------ :: UPDATE_map_false +----- :: UPDATE__map_false UPDATE / x : None : :map_Nil: {} : S => :map_Nil: {} : S ------ :: UPDATE_map_add_nexists +----- :: UPDATE__map_add_nexists UPDATE / x : Some y : :map_Nil: {} : S => { Elt x y } : S COMPARE / x : k : [] => :z_IntOne: 1 : [] UPDATE / x : opt_y : m : S => m' : S ------ :: UPDATE_map_cont +----- :: UPDATE__map_cont UPDATE / x : opt_y : { Elt k v ; < m > } : S => { Elt k v ; < m' > } : S COMPARE / x : k : [] => :z_IntZero: 0 : [] ------ :: UPDATE_map_remove +----- :: UPDATE__map_remove UPDATE / x : None : { Elt k v ; < m > } : S => < m > : S COMPARE / x : k : [] => :z_IntZero: 0 : [] ------ :: UPDATE_map_exists +----- :: UPDATE__map_exists UPDATE / x : Some y : { Elt k v ; < m > } : S => { Elt k y ; < m > } : S COMPARE / x : k : [] => - :z_IntOne: 1 : [] ------ :: UPDATE_map_remove_nexists +----- :: UPDATE__map_remove_nexists UPDATE / x : None : { Elt k v ; < m > } : S => { Elt k v ; < m > } : S COMPARE / x : k : [] => - :z_IntOne: 1 : [] ------ :: UPDATE_map_add +----- :: UPDATE__map_add UPDATE / x : Some y : { Elt k v ; < m > } : S => { Elt x y ; { Elt k v ; < m > } } : S % MAP body: Apply the body expression to each element of a map. The body sequence has access to the stack. @@ -1422,7 +1422,7 @@ UPDATE / x : Some y : { Elt k v ; < m > } : S => { Elt x y ; { Elt k v ; < m > % :: (map 'key 'val) : 'A -> (map 'key 'ty2) : 'A % iff body :: [ (pair 'key 'val) : 'A -> 'ty2 : 'A ] ------ :: MAP_map_nil +----- :: MAP__map_nil MAP body / :map_Nil: {} : S => :map_Nil: {} : S %% AJ: I'm unsure how to read the conclusion of the original version @@ -1430,7 +1430,7 @@ MAP body / :map_Nil: {} : S => :map_Nil: {} : S %% This is how I interpret it. body / k : v : S => v' : S MAP body / m : S => m' : S ------ :: MAP_map_cons +----- :: MAP__map_cons MAP body / { Elt k v ; < m > } : S => { Elt k v' ; < m' > } : S % ITER body: Apply the body expression to each element of a map. The body sequence has access to the stack. @@ -1438,22 +1438,22 @@ MAP body / { Elt k v ; < m > } : S => { Elt k v' ; < m' > } : S % :: (map 'elt 'val) : 'A -> 'A % iff body :: [ (pair 'elt 'val) : 'A -> 'A ] ------ :: ITER_map_nil +----- :: ITER__map_nil ITER body / :map_Nil: {} : S => S body ; ITER body / (Pair k v) : m : S => S' ------ :: ITER_map_cons +----- :: ITER__map_cons ITER body / { Elt k v ; < m > } : S => S' % SIZE: Get the cardinality of the map. % :: map 'key 'val : 'S -> nat : 'S ------ :: SIZE_map_nil +----- :: SIZE__map_nil SIZE / :map_Nil: {} : S => :n_NatZero: 0 : S SIZE / m : S => n : S ------ :: SIZE_map_cons +----- :: SIZE__map_cons SIZE / { Elt d d' ; < m > } : S => :n_NatOne: 1 + n : S % Operations on big_maps @@ -1499,11 +1499,11 @@ NONE ty / v : S => None : S % body2 :: [ 'ty1 : 'S -> 'ty2 : 'S] body1 / S => S' ------ :: IF_NONE_none +----- :: IF_NONE__none IF_NONE body1 body2 / None : S => S' body2 / d : S => S' ------ :: IF_NONE_some +----- :: IF_NONE__some IF_NONE body1 body2 / (Some d) : S => S' % Operations on unions @@ -1529,11 +1529,11 @@ RIGHT ty / v : S => (Right v) : S % body2 :: [ 'ty2 : 'S -> 'cty : 'S] body1 / d : S => S' ------ :: IF_LEFT_left +----- :: IF_LEFT__left IF_LEFT body1 body2 / (Left d) : S => S' body2 / d : S => S' ------ :: IF_LEFT_right +----- :: IF_LEFT__right IF_LEFT body1 body2 / (Right d) : S => S' % Operations on lists @@ -1559,11 +1559,11 @@ NIL ty / S => :setlist_Nil: {} : S % body2 :: [ 'S -> 'ty2 : 'S] body2 / S => S' ------ :: IF_CONS_nil +----- :: IF_CONS__nil IF_CONS body1 body2 / :setlist_Nil: {} : S => S' body1 / d : tl : S => S' ------ :: IF_CONS_cons +----- :: IF_CONS__cons IF_CONS body1 body2 / { d ; < tl > } : S => S' % MAP body: Apply the body expression to each element of the list. The body sequence has access to the stack. @@ -1573,21 +1573,21 @@ IF_CONS body1 body2 / { d ; < tl > } : S => S' body / d : S => d' : S MAP body / tl : S => tl' : S ------ :: MAP_list_cons +----- :: MAP__list_cons MAP body / { d ; < tl > } : S => { d' ; < tl' > } : S ------ :: MAP_list_nil +----- :: MAP__list_nil MAP body / :setlist_Nil: {} : S => :setlist_Nil: {} : S % SIZE: Get the number of elements in the list. % :: list 'elt : 'S -> nat : 'S ------ :: SIZE_list_nil +----- :: SIZE__list_nil SIZE / :setlist_Nil: {} : S => :n_NatZero: 0 : S SIZE / tl : S => n : S ------ :: SIZE_list_cons +----- :: SIZE__list_cons SIZE / { d ; } : S => :n_NatOne: 1 + n : S % ITER body: Apply the body expression to each element of a list. The body sequence has access to the stack. @@ -1596,10 +1596,10 @@ SIZE / { d ; } : S => :n_NatOne: 1 + n : S % iff body :: [ 'elt : 'A -> 'A ] body ; ITER body / d : tl : S => S' ------ :: ITER_list_cons +----- :: ITER__list_cons ITER body / { d ; } : S => S' ------ :: ITER_list_nil +----- :: ITER__list_nil ITER body / :setlist_Nil: {} : S => S embed {{coq -- GitLab From 3ea8947a3dc3653fb75b5f2dbec47964d1752a42 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Mon, 9 Sep 2019 18:56:50 +0200 Subject: [PATCH 186/252] docs: add CONS and unit test --- .../michelson_reference/michelson-meta.yaml | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/docs/doc_gen/michelson_reference/michelson-meta.yaml b/docs/doc_gen/michelson_reference/michelson-meta.yaml index 014564e4caae..4559029e0796 100644 --- a/docs/doc_gen/michelson_reference/michelson-meta.yaml +++ b/docs/doc_gen/michelson_reference/michelson-meta.yaml @@ -305,3 +305,17 @@ instructions: input: '{ 0xbe ; 0xef }' initial_storage: '0xdead' final_storage: '0xdeadbeef' + CONS: + category: core + documentation_short: Prepend an element to a list. + documentation: | + Prepends the element at the top of the stack to the list that is + the second element of the stack. + + examples: + - name: Prepend to storage. + description: This contracts keeps a list of integers and takes an integer as parameter. It prepends the parameter to the stored list. + path: ../../../src/bin_client/test/contracts/opcodes/cons.tz + input: '5' + initial_storage: "{ 99 }" + final_storage: "{ 5 ; 99 }" -- GitLab From ff2902c8340916577ffd5815a1b08e9ea5ebd99a Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Tue, 10 Sep 2019 14:00:41 +0200 Subject: [PATCH 187/252] docs: let client contract test dir be default for example contracts --- .../example-contracts/ADD.tz | 13 ---- .../example-contracts/LOOP_LEFT.tz | 34 ----------- .../michelson_reference/language_def.py | 12 +++- .../michelson_reference/michelson-meta.yaml | 59 +++++++++---------- 4 files changed, 38 insertions(+), 80 deletions(-) delete mode 100644 docs/doc_gen/michelson_reference/example-contracts/ADD.tz delete mode 100644 docs/doc_gen/michelson_reference/example-contracts/LOOP_LEFT.tz diff --git a/docs/doc_gen/michelson_reference/example-contracts/ADD.tz b/docs/doc_gen/michelson_reference/example-contracts/ADD.tz deleted file mode 100644 index 0490f7c59fe9..000000000000 --- a/docs/doc_gen/michelson_reference/example-contracts/ADD.tz +++ /dev/null @@ -1,13 +0,0 @@ -parameter unit; -storage nat; -code - { - DROP; - - PUSH nat 2; - PUSH nat 2; - ADD; - - NIL operation; - PAIR; - } diff --git a/docs/doc_gen/michelson_reference/example-contracts/LOOP_LEFT.tz b/docs/doc_gen/michelson_reference/example-contracts/LOOP_LEFT.tz deleted file mode 100644 index a5ad50f6361c..000000000000 --- a/docs/doc_gen/michelson_reference/example-contracts/LOOP_LEFT.tz +++ /dev/null @@ -1,34 +0,0 @@ -parameter unit; -storage nat; -code - { - DROP; - - PUSH nat 0; - # list to sum - PUSH (list nat) { 1 ; 2 ; 3 ; 4 } ; - PAIR ; LEFT nat; - # (Left (list, sum)) - LOOP_LEFT - { - # (list, sum) - UNPAIR; - # list : sum - IF_CONS - { - # hd : tail : sum - SWAP; DIP { ADD }; - # tail : (hd + sum) - PAIR; LEFT nat; - } - { - # sum - RIGHT (pair (list nat) nat); - } - # (or (tail, sum) sum) - }; - # sum - - NIL operation; - PAIR; - } diff --git a/docs/doc_gen/michelson_reference/language_def.py b/docs/doc_gen/michelson_reference/language_def.py index 01b5e6d3c3cd..9c673795ad30 100644 --- a/docs/doc_gen/michelson_reference/language_def.py +++ b/docs/doc_gen/michelson_reference/language_def.py @@ -2,9 +2,11 @@ import yaml import json import sys import re +import os.path language_meta_file = 'michelson-meta.yaml' language_definition_file = 'michelson.json' +example_path = '../../../src/bin_client/test/contracts/' def load_language_def(strict=False): """Loads the michelson language definition. @@ -50,10 +52,16 @@ def load_language_def(strict=False): if 'examples' in instr: for idxe, ex in enumerate(instr['examples']): # Load from file if path is given - if 'path' in ex: - f = open(ex['path']) + assert 'path' in ex, f'missing path in example {ex}' + + instr['examples'][idxe]['path'] = os.path.join(example_path, ex['path']) + if os.path.exists(instr['examples'][idxe]['path']): + f = open(instr['examples'][idxe]['path']) instr['examples'][idxe]['code'] = f.read() f.close() + else: + print(f"Error: Could not find the file {p}") + sys.exit(1) # Verify category assert ('category' in instr) and (instr['category'] in lang_meta['categories']),\ diff --git a/docs/doc_gen/michelson_reference/michelson-meta.yaml b/docs/doc_gen/michelson_reference/michelson-meta.yaml index 4559029e0796..7f8aa91f9544 100644 --- a/docs/doc_gen/michelson_reference/michelson-meta.yaml +++ b/docs/doc_gen/michelson_reference/michelson-meta.yaml @@ -18,8 +18,8 @@ instructions: examples: - name: Various additions - description: This example the addition of numbers of different types. - path: ../../../src/bin_client/test/contracts/opcodes/add.tz + description: This example demonstrates the addition of different types of numbers and domain specific types. + path: opcodes/add.tz input: Unit initial_storage: Unit final_storage: Unit @@ -27,25 +27,22 @@ instructions: category: core documentation_short: Loop with accumulator. documentation: | - The ``LOOP_LEFT body`` instructions executes ``body`` as long as the top - element of the stack is ``(Left a)`` (see ``[loop_left_tt]``). The ``body`` of - the loop must consume a value of type ``a`` and produce a value of type - ``(or a b)``. + The ``LOOP_LEFT body`` instructions executes ``body`` as long + as the top element of the stack is ``(Left a)``. The ``body`` + of the loop must consume a value of type ``a`` and produce a + value of type ``(or a b)``. If the top element is ``(Right b)``, at the beginning of the loop or at the end of an iteration, then the loop is terminated and this value is - left on the top of the stack (see ``[loop_left_ff]``). + left on the top of the stack. examples: - name: Sum list - description: This contract sums a list of naturals. - # current convention: we only check the value of the last stack - # value before creating the list of operations and storage. this - # last value is put into storage. - path: example-contracts/LOOP_LEFT.tz - input: 'Unit' - initial_storage: "10" - final_storage: "10" + description: This contract reverses the list of strings passed by parameter and stores it. + path: opcodes/loop_left.tz + input: '{ "a" ; "b" ; "c" }' + initial_storage: '{}' + final_storage: '{ "c" ; "b" ; "a" }' CDR: category: core documentation_short: Access the right part of a pair. @@ -55,7 +52,7 @@ instructions: This contract takes a pair as parameter. It selects the right part of the parameter and stores it. - path: ../../../src/bin_client/test/contracts/opcodes/cdr.tz + path: opcodes/cdr.tz input: (Pair 15 9) initial_storage: 0 final_storage: 9 @@ -68,7 +65,7 @@ instructions: This contract takes a pair as parameter. It selects the left part of the parameter and stores it. - path: ../../../src/bin_client/test/contracts/opcodes/car.tz + path: opcodes/car.tz input: (Pair 15 9) initial_storage: 0 final_storage: 15 @@ -126,7 +123,7 @@ instructions: It then verifies that the right part unpacks to a valid michelson value. - path: ../../../src/bin_client/test/contracts/opcodes/packunpack.tz + path: opcodes/packunpack.tz input: '(Pair (Pair (Pair "toto" {3;7;9;1}) {1;2;3}) 0x05070707070100000004746f746f020000000800030007000900010200000006000100020003)' initial_storage: Unit final_storage: Unit @@ -145,7 +142,7 @@ instructions: type, packs and unpacks each member and asserts that the resulting value is unchanged. - path: ../../../src/bin_client/test/contracts/opcodes/packunpack_rev.tz + path: opcodes/packunpack_rev.tz input: '(Pair -1 (Pair 1 (Pair "foobar" (Pair 0x00AABBCC (Pair 1000 (Pair False (Pair "tz1cxcwwnzENRdhe2Kb8ZdTrdNy4bFNyScx5" (Pair "2019-09-09T08:35:33Z" "tz1cxcwwnzENRdhe2Kb8ZdTrdNy4bFNyScx5"))))))))' initial_storage: Unit final_storage: Unit @@ -158,7 +155,7 @@ instructions: examples: - name: Hash and store description: This example computes the BLAKE2B hash of the string passed as parameter and puts it in storage. - path: ../../../src/bin_client/test/contracts/opcodes/hash_string.tz + path: opcodes/hash_string.tz input: '"foobar"' initial_storage: 0x final_storage: '0xc5b7e76c15ce98128a840b54c38f462125766d2ed3a6bff0e76f7f3eb415df04' @@ -188,7 +185,7 @@ instructions: Note that this is true for any natural, since michelson numbers are arbitrary-precision. - path: ../../../src/bin_client/test/contracts/opcodes/abs.tz + path: opcodes/abs.tz input: 12039123919239192312931 initial_storage: Unit final_storage: Unit @@ -201,7 +198,7 @@ instructions: examples: - name: Store ``AMOUNT`` description: This contract stores the amount of its latest received transaction. - path: ../../../src/bin_client/test/contracts/opcodes/transfer_amount.tz + path: opcodes/transfer_amount.tz input: Unit initial_storage: 0 final_storage: 50000 @@ -221,14 +218,14 @@ instructions: examples: - name: Logical AND description: This contracts takes a pair of booleans, and computes and stores their conjunction. - path: ../../../src/bin_client/test/contracts/opcodes/and_logical_1.tz + path: opcodes/and_logical_1.tz initial_storage: False input: (Pair True False) final_storage: False - name: Binary AND description: This contract demonstrates binary AND on numerical values. - path: ../../../src/bin_client/test/contracts/opcodes/and_binary.tz + path: opcodes/and_binary.tz initial_storage: Unit input: Unit final_storage: Unit @@ -243,7 +240,7 @@ instructions: examples: - name: Store ``BALANCE`` description: This contract stores its balance after its latest received transaction. - path: ../../../src/bin_client/test/contracts/opcodes/balance.tz + path: opcodes/balance.tz input: Unit initial_storage: 0 final_storage: 4000000000000 @@ -265,7 +262,7 @@ instructions: stored ``signature`` is a valid signature of the BLAKE2B hash of the stored string by that ``key``. - path: ../../../src/bin_client/test/contracts/opcodes/check_signature.tz + path: opcodes/check_signature.tz input: '"edpkuBknW28nW72KG6RoHtYW7p12T6GKc7nAbwYX5m8Wd9sDVC9yav"' initial_storage: '(Pair "edsigthTzJ8X7MPmNeEwybRAvdxS1pupqcM5Mk4uCuyZAe7uEk68YpuGDeViW8wSXMrCi5CwoNgqs8V2w8ayB5dMJzrYCHhD8C7" "hello")' final_storage: '(Pair "edsigthTzJ8X7MPmNeEwybRAvdxS1pupqcM5Mk4uCuyZAe7uEk68YpuGDeViW8wSXMrCi5CwoNgqs8V2w8ayB5dMJzrYCHhD8C7" "hello")' @@ -283,25 +280,25 @@ instructions: examples: - name: Concatenation of two strings description: This example takes a list of strings as parameter. It prepends ``"Hello "`` to each of them and stores the result. - path: ../../../src/bin_client/test/contracts/opcodes/concat_hello.tz + path: opcodes/concat_hello.tz input: '{ "John" ; "Jane" }' initial_storage: "{}" final_storage: '{ "Hello John" ; "Hello Jane" }' - name: Concatenation of list of strings description: This example takes a list of strings as parameter and concatenates them, and prepends the stored value and stores the result. - path: ../../../src/bin_client/test/contracts/opcodes/list_concat.tz + path: opcodes/list_concat.tz input: '{ " " ; "World" ; "!" }' initial_storage: '"Hello"' final_storage: '"Hello World!"' - name: Concatenation of two byte sequences description: This example takes a list of byte sequences as parameter. It prepends ``0xff`` to each of them and stores the result. - path: ../../../src/bin_client/test/contracts/opcodes/concat_hello_bytes.tz + path: opcodes/concat_hello_bytes.tz input: '{ 0xab ; 0xcd }' initial_storage: "{}" final_storage: '{ 0xffab ; 0xffcd }' - name: Concatenation of list of byte sequences description: This example takes a list of byte sequences as parameter and concatenates them, and prepends the stored value and stores the result. - path: ../../../src/bin_client/test/contracts/opcodes/list_concat_bytes.tz + path: opcodes/list_concat_bytes.tz input: '{ 0xbe ; 0xef }' initial_storage: '0xdead' final_storage: '0xdeadbeef' @@ -315,7 +312,7 @@ instructions: examples: - name: Prepend to storage. description: This contracts keeps a list of integers and takes an integer as parameter. It prepends the parameter to the stored list. - path: ../../../src/bin_client/test/contracts/opcodes/cons.tz + path: opcodes/cons.tz input: '5' initial_storage: "{ 99 }" final_storage: "{ 5 ; 99 }" -- GitLab From 23e8ff7bd77c86c3404359cb29ff6f2e05843d4e Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Tue, 10 Sep 2019 14:01:18 +0200 Subject: [PATCH 188/252] docs: clarify phrase on example expected behavior --- .../michelson_reference/templates/instruction.html | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/docs/doc_gen/michelson_reference/templates/instruction.html b/docs/doc_gen/michelson_reference/templates/instruction.html index 6c8af01e7ffe..5b9b39ccc320 100644 --- a/docs/doc_gen/michelson_reference/templates/instruction.html +++ b/docs/doc_gen/michelson_reference/templates/instruction.html @@ -32,9 +32,12 @@ {% if not ('hide_final_storage' in ex and ex['hide_final_storage']) %} -

Expected final storage if called with - the initial storage {{ex.initial_storage}} - and the input {{ex.input}}: {{ex.final_storage}}

+

+ If called with the initial + storage {{ex.initial_storage}} and the + parameter {{ex.input}} then the final storage + will be {{ex.final_storage}}. +

{% endif %}

Run example in try-michelson.

-- GitLab From aed6d56cbbb4a1049244843013e2195d674feecc Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Tue, 10 Sep 2019 14:01:38 +0200 Subject: [PATCH 189/252] docs: examples names are not necessary --- docs/doc_gen/michelson_reference/templates/instruction.html | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/docs/doc_gen/michelson_reference/templates/instruction.html b/docs/doc_gen/michelson_reference/templates/instruction.html index 5b9b39ccc320..34848c530604 100644 --- a/docs/doc_gen/michelson_reference/templates/instruction.html +++ b/docs/doc_gen/michelson_reference/templates/instruction.html @@ -24,7 +24,7 @@ {% if 'examples' in instr %} {% for ex in instr.examples %} -
Example: {{ex.name|rst_inline}}
+
Example: {{ex.name|rst_inline if 'name' in ex else ''}}
{{ex.description | rst}} -- GitLab From 708001e3259b829d903e9aac5763540201d227f1 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Tue, 10 Sep 2019 14:02:04 +0200 Subject: [PATCH 190/252] docs: add DIP --- .../doc_gen/michelson_reference/michelson-meta.yaml | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/docs/doc_gen/michelson_reference/michelson-meta.yaml b/docs/doc_gen/michelson_reference/michelson-meta.yaml index 7f8aa91f9544..be267f599afc 100644 --- a/docs/doc_gen/michelson_reference/michelson-meta.yaml +++ b/docs/doc_gen/michelson_reference/michelson-meta.yaml @@ -75,6 +75,19 @@ instructions: DIP: category: core documentation_short: Runs code protecting the top of the stack. + documentation: | + ``DIP code`` stores and removes the top element of the stacks, runs ``code``, and + then restores the previous top element. + + examples: + - description: | + This examples takes a pair of integers ``(a, b)`` as parameter, + and stores ``(a, a + b)`` + + path: opcodes/dip.tz + input: (Pair 15 9) + initial_storage: (Pair 0 0) + final_storage: (Pair 15 24) DUP: category: core documentation_short: Duplicate the top of the stack. -- GitLab From 4264934bd6225339da0163f55d4fe9bc62bd9bf2 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Tue, 10 Sep 2019 14:04:14 +0200 Subject: [PATCH 191/252] docs: sort instruction alphabetically --- docs/doc_gen/michelson_reference/language_def.py | 2 ++ 1 file changed, 2 insertions(+) diff --git a/docs/doc_gen/michelson_reference/language_def.py b/docs/doc_gen/michelson_reference/language_def.py index 9c673795ad30..547df5aa7ce7 100644 --- a/docs/doc_gen/michelson_reference/language_def.py +++ b/docs/doc_gen/michelson_reference/language_def.py @@ -74,4 +74,6 @@ def load_language_def(strict=False): for cat in lang_meta['categories']: instructions_by_category[cat] =[ i for i in lang_def if i['category'] == cat ] + lang_def.sort(key= lambda i: i['op']) + return (lang_def, lang_meta, instructions_by_category) -- GitLab From 94a44915068e3521d411e5d66173c080bf29474b Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Tue, 10 Sep 2019 14:36:34 +0200 Subject: [PATCH 192/252] docs: language fixes --- .../michelson_reference/michelson-meta.yaml | 39 ++++++++++--------- 1 file changed, 21 insertions(+), 18 deletions(-) diff --git a/docs/doc_gen/michelson_reference/michelson-meta.yaml b/docs/doc_gen/michelson_reference/michelson-meta.yaml index be267f599afc..4149c3569f56 100644 --- a/docs/doc_gen/michelson_reference/michelson-meta.yaml +++ b/docs/doc_gen/michelson_reference/michelson-meta.yaml @@ -4,17 +4,17 @@ categories: instructions: ADD: category: domain - documentation_short: Adds two numbers. + documentation_short: Adds two numerical values. documentation: | - Sums two numerical values. - This instruction is polymorphic and accepts any combination of naturals and integers as operands. + Adds numerical values. + This instruction is polymorphic and accepts any combination of natural numbers and integers as operands. The return value is a natural number if both operands are natural. Otherwise, it is an integer. Furthermore, integers can be added to timestamps in which case the return value is a timestamp offset with the integer number of seconds. - Finally, ``mutez`` can be added to ``mutez``, in which case the return value is a ``mutez``. + Finally, a ``mutez`` can be added to a ``mutez``, in which case the return value is a ``mutez``. examples: - name: Various additions @@ -23,6 +23,7 @@ instructions: input: Unit initial_storage: Unit final_storage: Unit + hide_final_storage: True LOOP_LEFT: category: core documentation_short: Loop with accumulator. @@ -145,7 +146,8 @@ instructions: documentation_short: Deserializes a piece of data, if valid. documentation: | Serialize a value of type ``bytes`` into the corresponding michelson value of type ``ty1``. - If the head of the stack does not correspond to a michelson value of type ``ty1``, then ``None`` is pushed. + If the top of the stack is not the serialization of a michelson value of type ``ty1``, then ``None`` is pushed. + Otherwise, ``Some v`` is pushed, where ``v`` is the unserialized value. examples: [] examples: @@ -163,7 +165,7 @@ instructions: category: core documentation_short: Compute a Blake2B cryptographic hash. documentation: | - Compute a cryptographic hash of the value contents using the BLAKE2B cryptographic hash function. + Compute the cryptographic hash of the top of the stack using the BLAKE2B cryptographic hash function. examples: - name: Hash and store @@ -176,32 +178,33 @@ instructions: category: core documentation_short: Compute a SHA-256 cryptographic hash. documentation: | - Compute a cryptographic hash of the value contents using the SHA-256 cryptographic hash function. + Compute the cryptographic hash of the top of the stack using the SHA-256 cryptographic hash function. SHA512: category: core documentation_short: Compute a SHA-512 cryptographic hash. documentation: | - Compute a cryptographic hash of the value contents using the SHA512 cryptographic hash function. + Compute the cryptographic hash of the top of the stack using the SHA-512 cryptographic hash function. ABS: category: core documentation_short: Obtain the absolute value of an integer. documentation: | - ``ABS`` consumes an integer and pushes its absolute value on the stack, of type ``nat``. + ``ABS`` consumes an integer and pushes its absolute value, with type ``nat``, on the stack. examples: - - name: '``ABS`` is the reverse of ``NEG`` on naturals.' + - name: '``ABS`` is the reverse of ``NEG`` on natural numbers.' description: | This examples negates a natural number, takes the absolute value and asserts that the final value equals the initial parameter. - Note that this is true for any natural, since michelson - numbers are arbitrary-precision. + Note that this is true for any natural number, since + michelson numbers are arbitrary-precision. path: opcodes/abs.tz input: 12039123919239192312931 initial_storage: Unit final_storage: Unit + hide_final_storage: True AMOUNT: category: core documentation_short: Push the amount of the current transaction. @@ -210,7 +213,7 @@ instructions: examples: - name: Store ``AMOUNT`` - description: This contract stores the amount of its latest received transaction. + description: This contract stores the amount of its last received transaction. path: opcodes/transfer_amount.tz input: Unit initial_storage: 0 @@ -262,8 +265,8 @@ instructions: category: core documentation_short: 'Verifies ``signature`` of ``bytes`` by ``key``.' documentation: | - Checks that a sequence of bytes has been signed with a given key. - This instructions consumes three parameters: a ``key``, a ``signature`` and a + Verifies that a sequence of bytes has been signed with a given key. + This instruction consumes three parameters: a ``key``, a ``signature`` and a sequence of bytes. It pushes ``True`` if and only if the signature is a valid signature of the byte sequence by the given key. @@ -298,7 +301,7 @@ instructions: initial_storage: "{}" final_storage: '{ "Hello John" ; "Hello Jane" }' - name: Concatenation of list of strings - description: This example takes a list of strings as parameter and concatenates them, and prepends the stored value and stores the result. + description: This example takes a list of strings as parameter and concatenates them, and prepends value in storage and stores the resulting string. path: opcodes/list_concat.tz input: '{ " " ; "World" ; "!" }' initial_storage: '"Hello"' @@ -310,7 +313,7 @@ instructions: initial_storage: "{}" final_storage: '{ 0xffab ; 0xffcd }' - name: Concatenation of list of byte sequences - description: This example takes a list of byte sequences as parameter and concatenates them, and prepends the stored value and stores the result. + description: This example takes a list of byte sequences as parameter and concatenates them, and prepends the value in storage and storess the resulting byte sequence. path: opcodes/list_concat_bytes.tz input: '{ 0xbe ; 0xef }' initial_storage: '0xdead' @@ -324,7 +327,7 @@ instructions: examples: - name: Prepend to storage. - description: This contracts keeps a list of integers and takes an integer as parameter. It prepends the parameter to the stored list. + description: This contracts keeps a list of integers in storage and takes an integer as parameter. It prepends the parameter to the stored list. path: opcodes/cons.tz input: '5' initial_storage: "{ 99 }" -- GitLab From 3daba9515a89c00986da0d90d27f27cb180cd369 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Tue, 10 Sep 2019 15:55:44 +0200 Subject: [PATCH 193/252] docs: define and verify schema of michelson-meta.yaml --- .../michelson_reference/language_def.py | 18 ++++- .../michelson-meta-schema.json | 81 +++++++++++++++++++ .../michelson_reference/michelson-meta.yaml | 62 +++++++------- .../michelson_reference/requirements.txt | 1 + .../templates/instruction.html | 32 ++++---- .../michelson_reference/test-schema.py | 16 ++++ 6 files changed, 160 insertions(+), 50 deletions(-) create mode 100644 docs/doc_gen/michelson_reference/michelson-meta-schema.json create mode 100644 docs/doc_gen/michelson_reference/test-schema.py diff --git a/docs/doc_gen/michelson_reference/language_def.py b/docs/doc_gen/michelson_reference/language_def.py index 547df5aa7ce7..8085a5f86df5 100644 --- a/docs/doc_gen/michelson_reference/language_def.py +++ b/docs/doc_gen/michelson_reference/language_def.py @@ -3,8 +3,10 @@ import json import sys import re import os.path +from jsonschema import validate language_meta_file = 'michelson-meta.yaml' +language_meta_schema_file = 'michelson-meta-schema.json' language_definition_file = 'michelson.json' example_path = '../../../src/bin_client/test/contracts/' @@ -21,10 +23,12 @@ def load_language_def(strict=False): if strict: sys.exit(1) - # lang = json lang_meta = yaml.safe_load(open(language_meta_file, 'r')) lang_def = json.load(open(language_definition_file)) + lang_meta_schema = json.load(open(language_meta_schema_file, 'r')) + validate(lang_meta, schema=lang_meta_schema) + # collate meta and language definition for idx, instr in enumerate(lang_def): # Load meta information @@ -63,8 +67,18 @@ def load_language_def(strict=False): print(f"Error: Could not find the file {p}") sys.exit(1) + if not 'hide_final_storage' in ex: + instr['examples'][idxe]['hide_final_storage'] = False + + else: + instr['examples'] = [] + + # Fill out optional properties + if not 'documentation' in instr: + instr['documentation'] = False + # Verify category - assert ('category' in instr) and (instr['category'] in lang_meta['categories']),\ + assert (instr['category'] in lang_meta['categories']),\ f"Ill-formed michelson-meta.yaml: instruction {instr['op']} has non-existant category {instr['category']}" lang_def[idx] = instr diff --git a/docs/doc_gen/michelson_reference/michelson-meta-schema.json b/docs/doc_gen/michelson_reference/michelson-meta-schema.json new file mode 100644 index 000000000000..c2734ed69f14 --- /dev/null +++ b/docs/doc_gen/michelson_reference/michelson-meta-schema.json @@ -0,0 +1,81 @@ +{ + "$schema": "http://json-schema.org/draft-06/schema#", + "$ref": "#/definitions/MichelsonLanguage", + "definitions": { + "MichelsonLanguage": { + "type": "object", + "additionalProperties": false, + "properties": { + "categories": { + "$ref": "#/definitions/Categories" + }, + "instructions": { + "$ref": "#/definitions/Instructions" + } + }, + "required": [ + "categories", + "instructions" + ], + "title": "MichelsonLanguage" + }, + "Categories": { + "type": "object", + "additionalProperties": true, + "title": "Categories", + "patternProperties": { + ".*": { + "type": "string" + } + } + }, + "Instructions": { + "type": "object", + "additionalProperties": true, + "title": "Instruction", + "patternProperties": { + ".*": { "$ref": "#/definitions/Instruction" } + } + }, + "Instruction": { + "type": "object", + "additionalProperties": false, + "properties" : { + "category": { "type" : "string" }, + "documentation_short": { "type" : "string" }, + "documentation": { "type": "string" }, + "stack_effect": { "type": "string" }, + "examples": { + "type": "array", + "items": { + "$ref": "#/definitions/Example" + } + } + }, + "required": [ + "category", + "documentation_short" + ] + }, + "Example": { + "type": "object", + "additionalProperties": false, + "properties": { + "name": {"type": "string"}, + "description": {"type": "string"}, + "path": {"type": "string"}, + "input": {"type": "string"}, + "initial_storage": {"type": "string"}, + "final_storage": {"type": "string"}, + "hide_final_storage": {"type": "boolean"} + }, + "required": [ + "description", + "final_storage", + "initial_storage", + "input", + "path" + ] + } + } +} diff --git a/docs/doc_gen/michelson_reference/michelson-meta.yaml b/docs/doc_gen/michelson_reference/michelson-meta.yaml index 4149c3569f56..7108dff42f06 100644 --- a/docs/doc_gen/michelson_reference/michelson-meta.yaml +++ b/docs/doc_gen/michelson_reference/michelson-meta.yaml @@ -20,9 +20,9 @@ instructions: - name: Various additions description: This example demonstrates the addition of different types of numbers and domain specific types. path: opcodes/add.tz - input: Unit - initial_storage: Unit - final_storage: Unit + input: 'Unit' + initial_storage: 'Unit' + final_storage: 'Unit' hide_final_storage: True LOOP_LEFT: category: core @@ -54,9 +54,9 @@ instructions: part of the parameter and stores it. path: opcodes/cdr.tz - input: (Pair 15 9) - initial_storage: 0 - final_storage: 9 + input: '(Pair 15 9)' + initial_storage: '0' + final_storage: '9' CAR: category: core documentation_short: Access the left part of a pair. @@ -67,9 +67,9 @@ instructions: part of the parameter and stores it. path: opcodes/car.tz - input: (Pair 15 9) - initial_storage: 0 - final_storage: 15 + input: '(Pair 15 9)' + initial_storage: '0' + final_storage: '15' PAIR: category: core documentation_short: Build a pair from the stack’s top two elements. @@ -86,9 +86,9 @@ instructions: and stores ``(a, a + b)`` path: opcodes/dip.tz - input: (Pair 15 9) - initial_storage: (Pair 0 0) - final_storage: (Pair 15 24) + input: '(Pair 15 9)' + initial_storage: '(Pair 0 0)' + final_storage: '(Pair 15 24)' DUP: category: core documentation_short: Duplicate the top of the stack. @@ -139,8 +139,8 @@ instructions: path: opcodes/packunpack.tz input: '(Pair (Pair (Pair "toto" {3;7;9;1}) {1;2;3}) 0x05070707070100000004746f746f020000000800030007000900010200000006000100020003)' - initial_storage: Unit - final_storage: Unit + initial_storage: 'Unit' + final_storage: 'Unit' UNPACK: category: core documentation_short: Deserializes a piece of data, if valid. @@ -159,8 +159,8 @@ instructions: path: opcodes/packunpack_rev.tz input: '(Pair -1 (Pair 1 (Pair "foobar" (Pair 0x00AABBCC (Pair 1000 (Pair False (Pair "tz1cxcwwnzENRdhe2Kb8ZdTrdNy4bFNyScx5" (Pair "2019-09-09T08:35:33Z" "tz1cxcwwnzENRdhe2Kb8ZdTrdNy4bFNyScx5"))))))))' - initial_storage: Unit - final_storage: Unit + initial_storage: 'Unit' + final_storage: 'Unit' BLAKE2B: category: core documentation_short: Compute a Blake2B cryptographic hash. @@ -201,9 +201,9 @@ instructions: michelson numbers are arbitrary-precision. path: opcodes/abs.tz - input: 12039123919239192312931 - initial_storage: Unit - final_storage: Unit + input: '12039123919239192312931' + initial_storage: 'Unit' + final_storage: 'Unit' hide_final_storage: True AMOUNT: category: core @@ -215,9 +215,9 @@ instructions: - name: Store ``AMOUNT`` description: This contract stores the amount of its last received transaction. path: opcodes/transfer_amount.tz - input: Unit - initial_storage: 0 - final_storage: 50000 + input: 'Unit' + initial_storage: '0' + final_storage: '50000' hide_final_storage: True AND: category: core @@ -235,16 +235,16 @@ instructions: - name: Logical AND description: This contracts takes a pair of booleans, and computes and stores their conjunction. path: opcodes/and_logical_1.tz - initial_storage: False - input: (Pair True False) - final_storage: False + initial_storage: 'False' + input: '(Pair True False)' + final_storage: 'False' - name: Binary AND description: This contract demonstrates binary AND on numerical values. path: opcodes/and_binary.tz - initial_storage: Unit - input: Unit - final_storage: Unit + initial_storage: 'Unit' + input: 'Unit' + final_storage: 'Unit' hide_final_storage: True BALANCE: category: core @@ -257,9 +257,9 @@ instructions: - name: Store ``BALANCE`` description: This contract stores its balance after its latest received transaction. path: opcodes/balance.tz - input: Unit - initial_storage: 0 - final_storage: 4000000000000 + input: 'Unit' + initial_storage: '0' + final_storage: '4000000000000' hide_final_storage: True CHECK_SIGNATURE: category: core diff --git a/docs/doc_gen/michelson_reference/requirements.txt b/docs/doc_gen/michelson_reference/requirements.txt index ed75afb68d59..ef8e9b950582 100644 --- a/docs/doc_gen/michelson_reference/requirements.txt +++ b/docs/doc_gen/michelson_reference/requirements.txt @@ -1,3 +1,4 @@ jinja2 docutils pygments +jsonschema diff --git a/docs/doc_gen/michelson_reference/templates/instruction.html b/docs/doc_gen/michelson_reference/templates/instruction.html index 34848c530604..7096b0723313 100644 --- a/docs/doc_gen/michelson_reference/templates/instruction.html +++ b/docs/doc_gen/michelson_reference/templates/instruction.html @@ -16,30 +16,28 @@
Description
-{% if 'documentation' in instr %} +{% if instr['documentation'] %} {{ instr.documentation | rst }} {% endif %} -{% if 'examples' in instr %} - {% for ex in instr.examples %} -
Example: {{ex.name|rst_inline if 'name' in ex else ''}}
+{% for ex in instr.examples %} +
Example: {{ex.name|rst_inline if 'name' in ex else ''}}
- {{ex.description | rst}} +{{ex.description | rst}} - {{ex.code|pp_michelson}} +{{ex.code|pp_michelson}} - {% if not ('hide_final_storage' in ex and ex['hide_final_storage']) %} -

- If called with the initial - storage {{ex.initial_storage}} and the - parameter {{ex.input}} then the final storage - will be {{ex.final_storage}}. -

- {% endif %} - -

Run example in try-michelson.

- {% endfor %} +{% if not (ex['hide_final_storage']) %} +

+ If called with the initial + storage {{ex.initial_storage}} and the + parameter {{ex.input}} then the final storage + will be {{ex.final_storage}}. +

{% endif %} + +

Run example in try-michelson.

+{% endfor %} diff --git a/docs/doc_gen/michelson_reference/test-schema.py b/docs/doc_gen/michelson_reference/test-schema.py new file mode 100644 index 000000000000..6e2fcd59de04 --- /dev/null +++ b/docs/doc_gen/michelson_reference/test-schema.py @@ -0,0 +1,16 @@ +import yaml +import json +import sys +import re +import os.path +from jsonschema import validate + +language_meta_file = 'michelson-meta.yaml' +language_meta_schema_file = 'michelson-meta-schema.json' + +lang_meta = yaml.safe_load(open(language_meta_file, 'r')) +lang_meta_schema = json.load(open(language_meta_schema_file, 'r')) + +validate(lang_meta, schema=lang_meta_schema) + +print("michelson-meta.yaml is valid") -- GitLab From 622e2d39532afa53125168911c8be92b8fdced27 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Rapha=C3=ABl=20Cauderlier?= Date: Tue, 10 Sep 2019 16:49:28 +0200 Subject: [PATCH 194/252] Ott: Remove useless dependency to coq and fix opam linting --- vendors/ott/coq-ott.opam | 18 ------------------ vendors/ott/ott.opam | 8 +++----- 2 files changed, 3 insertions(+), 23 deletions(-) delete mode 100644 vendors/ott/coq-ott.opam diff --git a/vendors/ott/coq-ott.opam b/vendors/ott/coq-ott.opam deleted file mode 100644 index df50d1fc93f0..000000000000 --- a/vendors/ott/coq-ott.opam +++ /dev/null @@ -1,18 +0,0 @@ -opam-version: "1.2" -maintainer: "palmskog@gmail.com" -authors: [ "Peter Sewell" "Francesco Zappa Nardelli" "Scott Owens" ] - -homepage: "http://www.cl.cam.ac.uk/~pes20/ott/" -dev-repo: "https://github.com/ott-lang/ott.git" -bug-reports: "https://github.com/ott-lang/ott/issues" -license: "part BSD3, part LGPL 2.1" - -build: [ make "-j%{jobs}%" "-C" "coq" ] -install: [ make "-C" "coq" "install" ] -remove: [ "sh" "-c" "rm -rf '%{lib}%/coq/user-contrib/Ott'" ] -depends: [ "coq" {(>= "8.5" & < "8.6~") | (>= "8.6" & < "8.7~") | (>= "8.7" & < "8.8~") | (>= "8.8" & < "8.9~") | (>= "8.9" & < "8.10~")} ] - -tags: [ - "category:Computer Science/Semantics and Compilation/Semantics" - "keyword:abstract syntax" -] diff --git a/vendors/ott/ott.opam b/vendors/ott/ott.opam index 5265f965b0e2..cc444812d660 100644 --- a/vendors/ott/ott.opam +++ b/vendors/ott/ott.opam @@ -1,14 +1,12 @@ -opam-version: "1.2" +opam-version: "2.0" synopsis: "Ott is a tool for writing definitions of programming languages and calculi" maintainer: "Hannes Mehnert " authors: [ "Peter Sewell" "Francesco Zappa Nardelli" "Scott Owens"] homepage: "http://www.cl.cam.ac.uk/~pes20/ott/" -dev-repo: "https://github.com/ott-lang/ott.git" +dev-repo: "git+https://github.com/ott-lang/ott.git" bug-reports: "https://github.com/ott-lang/ott/issues" license: "part BSD3, part LGPL 2.1" -available: [ ocaml-version >= "4.00.0" ] -depends: [ "yojson" ] - +depends: [ "yojson" "ocaml" {>= "4.00.0"} ] build: [ [ make "world" ] ] -- GitLab From eb03330aaf2baca300aeef533fff55ec279ceba1 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Tue, 10 Sep 2019 16:54:14 +0200 Subject: [PATCH 195/252] docs: update readme to describe the michelson-meta.yaml format --- docs/doc_gen/michelson_reference/README.org | 77 ++++++++++++++++++++- 1 file changed, 76 insertions(+), 1 deletion(-) diff --git a/docs/doc_gen/michelson_reference/README.org b/docs/doc_gen/michelson_reference/README.org index 66ee620cb14d..b33d7356a5a2 100644 --- a/docs/doc_gen/michelson_reference/README.org +++ b/docs/doc_gen/michelson_reference/README.org @@ -3,7 +3,7 @@ Install dependencies #+BEGIN_SRC bash -sudo apt install python3-jinja2 python3-docutils python3-pygments +sudo apt install python3-jinja2 python3-docutils python3-pygments python3-jsonschema #+END_SRC or, using pip: @@ -40,3 +40,78 @@ make docs/michelson_reference.html #+END_SRC +* Format of =michelson-meta.yaml= + + +The format of =michelson-meta.yaml= is verified against the schema +described in =michelson-meta-schema.yaml=. All fields are required +unless marked (optional) + +#+BEGIN_VERBATIM +# A dictionary of categories +categories: + # format [category]: [category_description] + # e.g. + core: Set of core operations + +# A dictionary where each entry is the meta data for one michelson +# instruction. The key must be the constructor of that instruction as +# defined in michelson.ott. Typically, this is simply the name of the +# instruction. +instructions: + # instruction opcode: + ADD: + # the category of the instruction. a string that must be the key of one of the + # string: categories defined above, e.g. core / domain / etc. + category: core + # string: a short documentation, one phrase. can use rst markup. + documentation_short: Adds two numerical values. + # (optional), string: longer documentation, focus on intuitions. can use rst markup. + documentation: "Adds numerical values. This instruction is polymorphic and accepts..." + # (optional), string: if omitted, will be synthesized as described below. + stack_effect: 'int : int : [] — int : []' + # (optional) a list of examples, each of which is a dictionary with the following properties + examples: + - # (optional), string: name of the example + name: Sum of integers + # string: description of the example. can use rst markup. + description: Sums up the integers. + # string: path to the example, relative to src/bin_client/test/contracts/ + path: opcodes/add.tz + # by supplying an example input / initial_storage and + # final_storage, the coherency of the example can be verified by + # running ``make examples_verify``. i.e, if the example is run + # with ``initial_storage`` and ``input`` then the final storage + # is ``final_storage`` + # string: the example parameter + input: '(pair 2 2)' + # string: the example initial storage + initial_storage: 'None' + # string: the example final storage + final_storage: 'Some 4' + # (optional) boolean. if True, then the information about input/initial_storage/final_storage + is not visible in the generated doc. this is useful for examples whose input/output is not interesting. + hide_final_storage: False +#+END_VERBATIM + +* Stack effect + +The stack effect is an intuitive (non-formal) summary of the effect of +a primitive on the stack, giving the state of the stack before and +after executing the primitive. For instance, for `ADD` the stack +effect could be `nz1 : nz2 : S` -- `(nz1 + nz2) : S`. + +Currently, the stack effect of the operations is synthesized by +taking the conclusion of the first rule (in order of appearance) of +the semantics of the operation. For `ADD`, the rule is: + + ----- :: ADD + ADD / nz1 : nz2 : S => (nz1 + nz2) : S + +From which we extract the stack effect given above. + +For some instructions , this procedure generates unhelpful stack +effects (e.g. `Right d : S` -- `d : S` for `LOOP_LEFT`). For others, +it is hard to conceive of any helpful stack effect (e.g. `SEQ`). In +such cases, a stack effect can be given manually by filling out the +`stack_effect` field of the instruction in `michelson-meta.yaml`. -- GitLab From 30f8a7f3f4aefb77211af0393dc144da79fc25fa Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Tue, 10 Sep 2019 18:23:26 +0200 Subject: [PATCH 196/252] docs: add ott.install file --- vendors/ott/.gitignore | 2 ++ vendors/ott/ott.install | 3 +++ 2 files changed, 5 insertions(+) create mode 100644 vendors/ott/ott.install diff --git a/vendors/ott/.gitignore b/vendors/ott/.gitignore index 00b97d19723e..2d383ffd2e41 100644 --- a/vendors/ott/.gitignore +++ b/vendors/ott/.gitignore @@ -15,3 +15,5 @@ version.tex bin/ .depend ocamlgraph-1.7 + +!ott.install diff --git a/vendors/ott/ott.install b/vendors/ott/ott.install new file mode 100644 index 000000000000..55d36bde3d86 --- /dev/null +++ b/vendors/ott/ott.install @@ -0,0 +1,3 @@ +bin: ["src/ott"] +doc: ["built_doc/top2.pdf" { "doc/ott_manual.pdf" } "built_doc/top2.html" { "doc/ott_manual.html" }] +share_root: ["emacs/ott-mode.el" {"emacs/site-lisp/ott-mode.el"} "tex/ottlayout.sty" {"tex/ottlayout.sty"}] -- GitLab From 2e0ead5e2b9028ded37ae1613bdcc2c327ca3aed Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Rapha=C3=ABl=20Cauderlier?= Date: Wed, 11 Sep 2019 09:50:35 +0200 Subject: [PATCH 197/252] Opam: Add ott as a dependency This is now required to build the doc. Do we have doc-specific build deps? --- scripts/install_build_deps.raw.sh | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scripts/install_build_deps.raw.sh b/scripts/install_build_deps.raw.sh index 9ba20aef3230..5e6d4fad5808 100755 --- a/scripts/install_build_deps.raw.sh +++ b/scripts/install_build_deps.raw.sh @@ -12,7 +12,7 @@ export OPAMYES=${OPAMYES:=true} ## In another ideal world, this list should be extracted from the pinned ## packages and filter only conf-* packages -opam depext conf-gmp conf-libev conf-m4 conf-perl conf-pkg-config conf-which conf-hidapi +opam depext conf-gmp conf-libev conf-m4 conf-perl conf-pkg-config conf-which conf-hidapi ott ## In an ideal world, `--with-test` should be present only when using ## `--dev`. But this would probably break the CI, so we postponed this -- GitLab From 320225a25559ac0fab5436111bfc03fcea397aec Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Rapha=C3=ABl=20Cauderlier?= Date: Wed, 11 Sep 2019 11:50:54 +0200 Subject: [PATCH 198/252] Revert "Opam: Add ott as a dependency" This reverts commit 0a117dec9a50fce22408dffe9e3589be8d7d58a8. --- scripts/install_build_deps.raw.sh | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scripts/install_build_deps.raw.sh b/scripts/install_build_deps.raw.sh index 5e6d4fad5808..9ba20aef3230 100755 --- a/scripts/install_build_deps.raw.sh +++ b/scripts/install_build_deps.raw.sh @@ -12,7 +12,7 @@ export OPAMYES=${OPAMYES:=true} ## In another ideal world, this list should be extracted from the pinned ## packages and filter only conf-* packages -opam depext conf-gmp conf-libev conf-m4 conf-perl conf-pkg-config conf-which conf-hidapi ott +opam depext conf-gmp conf-libev conf-m4 conf-perl conf-pkg-config conf-which conf-hidapi ## In an ideal world, `--with-test` should be present only when using ## `--dev`. But this would probably break the CI, so we postponed this -- GitLab From 453e0c79fc9ba621bd28f446e9be806731589d22 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Rapha=C3=ABl=20Cauderlier?= Date: Wed, 11 Sep 2019 12:32:16 +0200 Subject: [PATCH 199/252] Use a remote version of Ott instead of the one in vendors --- docs/Makefile | 5 ++++- docs/doc_gen/michelson_reference/Makefile | 2 +- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/docs/Makefile b/docs/Makefile index ccef84414239..76cc6cf08c89 100644 --- a/docs/Makefile +++ b/docs/Makefile @@ -30,8 +30,11 @@ $(DOCGENDIR)/p2p_doc.exe: api/p2p.rst: $(DOCGENDIR)/p2p_doc.exe api/p2p_usage.rst.inc @dune exec $(DOCGENDIR)/p2p_doc.exe < api/p2p_usage.rst.inc > api/p2p.rst +../_opam/bin/ott: + opam pin --yes add ott https://gitlab.com/nomadic-labs/ott.git#json + .PHONY: whitedoc/michelson_reference.html -whitedoc/michelson_reference.html: +whitedoc/michelson_reference.html: ../_opam/bin/ott @cd doc_gen/michelson_reference/ && make docs/michelson_reference.html cp doc_gen/michelson_reference/docs/michelson_reference.html $@ diff --git a/docs/doc_gen/michelson_reference/Makefile b/docs/doc_gen/michelson_reference/Makefile index 2c7a4ac03373..7315958d2402 100644 --- a/docs/doc_gen/michelson_reference/Makefile +++ b/docs/doc_gen/michelson_reference/Makefile @@ -9,7 +9,7 @@ rule_images: michelson.ott $(python) pp-latex-rules.py cd rules; ./convert_all.sh -%.json: %.ott +%.json: %.ott ../../../_opam/bin/ott $(ott) -i $< -o $@ michelson_embed.tex: michelson.ott -- GitLab From 901681542900fb5ca2cc50afa952c0c7deed305b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Rapha=C3=ABl=20Cauderlier?= Date: Wed, 11 Sep 2019 12:33:21 +0200 Subject: [PATCH 200/252] Remove vendors/ott since our patched version of Ott is now hosted on Gitlab --- vendors/ott/.gitignore | 19 - vendors/ott/LICENCE | 30 - vendors/ott/Makefile | 265 - vendors/ott/README.md | 143 - vendors/ott/aux/y2l/0README_FIRST | 11 - vendors/ott/aux/y2l/Artistic | 125 - vendors/ott/aux/y2l/README | 82 - vendors/ott/aux/y2l/y2l | 1151 - vendors/ott/aux/y2l/y2l.man | 75 - vendors/ott/aux/y2l/y2lman.html | 103 - vendors/ott/built_doc/top2.html | 3297 -- vendors/ott/built_doc/top2.pdf | Bin 450300 -> 0 bytes vendors/ott/built_doc/top2.ps | 35284 ---------------- vendors/ott/built_doc/top2001.png | Bin 2857 -> 0 bytes vendors/ott/built_doc/top2002.png | Bin 385 -> 0 bytes vendors/ott/built_doc/top2003.png | Bin 416 -> 0 bytes vendors/ott/built_doc/top2004.png | Bin 214 -> 0 bytes vendors/ott/built_doc/top2005.png | Bin 1202 -> 0 bytes vendors/ott/built_doc/top2006.png | Bin 621 -> 0 bytes vendors/ott/built_doc/top2007.png | Bin 11523 -> 0 bytes vendors/ott/built_doc/top2008.png | Bin 421 -> 0 bytes vendors/ott/built_doc/top2009.png | Bin 347 -> 0 bytes vendors/ott/built_doc/top2010.png | Bin 149 -> 0 bytes vendors/ott/built_doc/top2011.png | Bin 126 -> 0 bytes vendors/ott/built_doc/top2012.png | Bin 526 -> 0 bytes vendors/ott/built_doc/top2013.png | Bin 264 -> 0 bytes vendors/ott/built_doc/top2014.png | Bin 135 -> 0 bytes vendors/ott/built_doc/top2015.png | Bin 143 -> 0 bytes vendors/ott/built_doc/top2016.png | Bin 1630 -> 0 bytes vendors/ott/built_doc/top2017.png | Bin 135 -> 0 bytes vendors/ott/built_doc/top2018.png | Bin 150 -> 0 bytes vendors/ott/built_doc/top2019.png | Bin 5801 -> 0 bytes vendors/ott/built_doc/top2020.png | Bin 593 -> 0 bytes vendors/ott/built_doc/top2021.png | Bin 199 -> 0 bytes vendors/ott/built_doc/top2022.png | Bin 197 -> 0 bytes vendors/ott/built_doc/top2023.png | Bin 3315 -> 0 bytes vendors/ott/built_doc/top2024.png | Bin 2314 -> 0 bytes vendors/ott/built_doc/top2025.png | Bin 864 -> 0 bytes vendors/ott/built_doc/top2026.png | Bin 629 -> 0 bytes vendors/ott/built_doc/top2027.png | Bin 1282 -> 0 bytes vendors/ott/built_doc/top2028.png | Bin 1325 -> 0 bytes vendors/ott/built_doc/top2029.png | Bin 2152 -> 0 bytes vendors/ott/built_doc/top2030.png | Bin 1611 -> 0 bytes vendors/ott/built_doc/top2031.png | Bin 260 -> 0 bytes vendors/ott/built_doc/top2032.png | Bin 144 -> 0 bytes vendors/ott/built_doc/top2033.png | Bin 153 -> 0 bytes vendors/ott/built_doc/top2034.png | Bin 991 -> 0 bytes vendors/ott/built_doc/top2035.png | Bin 1116 -> 0 bytes vendors/ott/built_doc/top2036.png | Bin 578 -> 0 bytes vendors/ott/built_doc/top2037.png | Bin 1773 -> 0 bytes vendors/ott/coq/.gitignore | 7 - vendors/ott/coq/Makefile | 14 - vendors/ott/coq/_CoqProject | 14 - vendors/ott/coq/ott_list.v | 36 - vendors/ott/coq/ott_list_base.v | 236 - vendors/ott/coq/ott_list_core.v | 81 - vendors/ott/coq/ott_list_distinct.v | 197 - vendors/ott/coq/ott_list_eq_dec.v | 44 - vendors/ott/coq/ott_list_flat_map.v | 96 - vendors/ott/coq/ott_list_mem.v | 205 - vendors/ott/coq/ott_list_nth.v | 194 - vendors/ott/coq/ott_list_predicate.v | 426 - vendors/ott/coq/ott_list_repeat.v | 83 - vendors/ott/coq/ott_list_support.v | 53 - vendors/ott/coq/ott_list_takedrop.v | 317 - vendors/ott/doc/Makefile | 459 - vendors/ott/doc/favicon.ico | Bin 1406 -> 0 bytes vendors/ott/doc/index.html.p | 367 - vendors/ott/doc/let.alltt.tex | 31 - vendors/ott/doc/shorter.bib | 1141 - vendors/ott/doc/squishtex.hand.ott | 11 - vendors/ott/doc/style.css | 50 - vendors/ott/doc/test10.hand.edited.thy | 51 - vendors/ott/doc/test10.hand.edited.v | 60 - vendors/ott/doc/top2.mng | 5570 --- vendors/ott/emacs/ott-mode.el | 32 - vendors/ott/examples/1Bsemantics/Makefile | 23 - vendors/ott/examples/1Bsemantics/l1.ott | 204 - vendors/ott/examples/1Bsemantics/l2.ott | 85 - .../ott/examples/1Bsemantics/svn-log-2018-01 | 38 - vendors/ott/examples/ocaml_light/.gitignore | 19 - vendors/ott/examples/ocaml_light/Makefile | 228 - .../ott/examples/ocaml_light/Makefile-distrib | 58 - vendors/ott/examples/ocaml_light/README | 88 - .../ott/examples/ocaml_light/README.internal | 58 - .../ott/examples/ocaml_light/caml_lib_misc.v | 110 - vendors/ott/examples/ocaml_light/doc/Makefile | 14 - .../ott/examples/ocaml_light/doc/abstract.tex | 78 - vendors/ott/examples/ocaml_light/doc/bib.bib | 19 - .../ocaml_light/doc/built_doc/poster.pdf | Bin 41167 -> 0 bytes .../doc/built_doc/poster_rules.pdf | Bin 153504 -> 0 bytes .../ott/examples/ocaml_light/doc/llncs.cls | 1189 - .../ott/examples/ocaml_light/doc/ott-spec.ltx | 77 - .../ott/examples/ocaml_light/doc/poster.sty | 44 - .../ott/examples/ocaml_light/doc/poster.tex | 409 - .../examples/ocaml_light/doc/poster_rules.tex | 3604 -- .../examples/ocaml_light/doc/postercore.sty | 41 - .../ott/examples/ocaml_light/doc/splncs.bst | 1098 - vendors/ott/examples/ocaml_light/funex.ott | 190 - .../examples/ocaml_light/hol/basicScript.sml | 872 - .../ocaml_light/hol/definitionsScript.sml | 833 - .../ocaml_light/hol/defs_red_funScript.sml | 219 - .../ocaml_light/hol/env_permScript.sml | 579 - .../ocaml_light/hol/environmentScript.sml | 639 - .../ocaml_light/hol/matching_funScript.sml | 331 - .../ocaml_light/hol/ocamlpp/.cvsignore | 8 - .../examples/ocaml_light/hol/ocamlpp/Makefile | 71 - .../examples/ocaml_light/hol/ocamlpp/README | 7 - .../examples/ocaml_light/hol/ocamlpp/main.ml | 13 - .../hol/ocamlpp/parsing/.cvsignore | 11 - .../hol/ocamlpp/parsing/asttypes.mli | 36 - .../ocaml_light/hol/ocamlpp/parsing/lexer.mll | 500 - .../hol/ocamlpp/parsing/linenum.ml | 179 - .../hol/ocamlpp/parsing/linenum.mli | 23 - .../hol/ocamlpp/parsing/linenum.mll | 74 - .../hol/ocamlpp/parsing/location.ml | 250 - .../hol/ocamlpp/parsing/location.mli | 56 - .../hol/ocamlpp/parsing/longident.ml | 38 - .../hol/ocamlpp/parsing/longident.mli | 23 - .../ocaml_light/hol/ocamlpp/parsing/parse.ml | 64 - .../ocaml_light/hol/ocamlpp/parsing/parse.mli | 21 - .../hol/ocamlpp/parsing/parser.mly | 1537 - .../hol/ocamlpp/parsing/parsetree.mli | 275 - .../hol/ocamlpp/parsing/printast.ml | 959 - .../hol/ocamlpp/parsing/printast.mli | 20 - .../hol/ocamlpp/parsing/syntaxerr.ml | 41 - .../hol/ocamlpp/parsing/syntaxerr.mli | 26 - .../ocaml_light/hol/ocamlpp/utils/.cvsignore | 7 - .../ocaml_light/hol/ocamlpp/utils/ccomp.ml | 112 - .../ocaml_light/hol/ocamlpp/utils/ccomp.mli | 24 - .../ocaml_light/hol/ocamlpp/utils/clflags.ml | 90 - .../ocaml_light/hol/ocamlpp/utils/clflags.mli | 75 - .../ocaml_light/hol/ocamlpp/utils/config.ml | 109 - .../hol/ocamlpp/utils/config.mlbuild | 124 - .../ocaml_light/hol/ocamlpp/utils/config.mli | 112 - .../ocaml_light/hol/ocamlpp/utils/config.mlp | 109 - .../hol/ocamlpp/utils/consistbl.ml | 57 - .../hol/ocamlpp/utils/consistbl.mli | 60 - .../ocaml_light/hol/ocamlpp/utils/misc.ml | 197 - .../ocaml_light/hol/ocamlpp/utils/misc.mli | 104 - .../ocaml_light/hol/ocamlpp/utils/tbl.ml | 104 - .../ocaml_light/hol/ocamlpp/utils/tbl.mli | 30 - .../ocaml_light/hol/ocamlpp/utils/terminfo.ml | 25 - .../hol/ocamlpp/utils/terminfo.mli | 25 - .../ocaml_light/hol/ocamlpp/utils/warnings.ml | 191 - .../hol/ocamlpp/utils/warnings.mli | 56 - .../ocaml_light/hol/preservationScript.sml | 1270 - .../ocaml_light/hol/progressScript.sml | 616 - .../ocaml_light/hol/reduction_funScript.sml | 1046 - .../ocaml_light/hol/remv_tyvarScript.sml | 223 - .../examples/ocaml_light/hol/shiftScript.sml | 206 - .../examples/ocaml_light/hol/storeScript.sml | 170 - .../ocaml_light/hol/strengthenScript.sml | 128 - .../examples/ocaml_light/hol/substsScript.sml | 957 - .../examples/ocaml_light/hol/teqScript.sml | 939 - .../examples/ocaml_light/hol/testing/Makefile | 8 - .../examples/ocaml_light/hol/testing/README | 39 - .../ocaml_light/hol/testing/make_ml.sml | 453 - .../ocaml_light/hol/testing/process-tests.scm | 184 - .../hol/testing/reduction_funML.BUGFIX.sml | 1042 - .../ocaml_light/hol/testing/sources1.cm | 14 - .../ocaml_light/hol/testing/sources2.cm | 19 - .../examples/ocaml_light/hol/testing/tests | 985 - .../ocaml_light/hol/testing/theoryML.cm | 30 - .../ocaml_light/hol/type_substScript.sml | 592 - .../ocaml_light/hol/type_substsScript.sml | 31 - .../examples/ocaml_light/hol/utilScript.sml | 378 - .../examples/ocaml_light/hol/validScript.sml | 229 - .../examples/ocaml_light/hol/weakenScript.sml | 830 - vendors/ott/examples/ocaml_light/library.ott | 15902 ------- vendors/ott/examples/ocaml_light/opsem.ott | 168 - .../ott/examples/ocaml_light/ott-preamble.sed | 4 - vendors/ott/examples/ocaml_light/ott-spec.ltx | 96 - .../ott/examples/ocaml_light/reduction.ott | 805 - vendors/ott/examples/ocaml_light/syntax.ott | 1966 - vendors/ott/examples/ocaml_light/typing.ott | 1547 - vendors/ott/examples/peterson_caml.ott | 334 - vendors/ott/examples/tapl/.gitignore | 13 - vendors/ott/examples/tapl/Makefile | 200 - vendors/ott/examples/tapl/arrow.ott | 41 - vendors/ott/examples/tapl/arrow_typing.ott | 79 - vendors/ott/examples/tapl/ascribe.ott | 29 - vendors/ott/examples/tapl/basety.ott | 8 - vendors/ott/examples/tapl/bool.ott | 31 - vendors/ott/examples/tapl/bool_typing.ott | 27 - vendors/ott/examples/tapl/bot.ott | 12 - vendors/ott/examples/tapl/common.ott | 32 - vendors/ott/examples/tapl/common_index.ott | 32 - vendors/ott/examples/tapl/common_labels.ott | 27 - vendors/ott/examples/tapl/common_typing.ott | 37 - vendors/ott/examples/tapl/fix.ott | 31 - vendors/ott/examples/tapl/inert.ott | 14 - vendors/ott/examples/tapl/let.ott | 30 - vendors/ott/examples/tapl/let_alltt.ott | 29 - vendors/ott/examples/tapl/nat.ott | 52 - vendors/ott/examples/tapl/nat_typing.ott | 24 - vendors/ott/examples/tapl/product.ott | 69 - vendors/ott/examples/tapl/record.ott | 52 - .../tapl/record_with_explicit_types.ott | 66 - vendors/ott/examples/tapl/seq.ott | 29 - vendors/ott/examples/tapl/sub_arrow.ott | 27 - vendors/ott/examples/tapl/sub_record.ott | 27 - vendors/ott/examples/tapl/sum.ott | 65 - vendors/ott/examples/tapl/top.ott | 12 - vendors/ott/examples/tapl/tuple.ott | 52 - vendors/ott/examples/tapl/tuples.ott | 1 - vendors/ott/examples/tapl/unit.ott | 23 - vendors/ott/examples/tapl/variant.ott | 58 - vendors/ott/hol/Makefile | 5 - vendors/ott/hol/ottLib.sig | 10 - vendors/ott/hol/ottLib.sml | 167 - vendors/ott/hol/ottScript.sml | 80 - vendors/ott/menhir/menhir_library_extra.mly | 73 - vendors/ott/ocamlgraph-1.7.tar.gz | Bin 236906 -> 0 bytes vendors/ott/ocamlgraph-safe-string.patch | 19 - vendors/ott/ott.install | 3 - vendors/ott/ott.opam | 12 - vendors/ott/regression/Makefile | 81 - vendors/ott/regression/README | 10 - vendors/ott/regression/_ott_coqrc.v | 7 - vendors/ott/regression/baseline-jenkins.bl | Bin 5195 -> 0 bytes vendors/ott/regression/baseline-ps.bl | Bin 5197 -> 0 bytes vendors/ott/regression/baseline.bl | Bin 67 -> 0 bytes vendors/ott/regression/baseline.fzn.txt | 102 - vendors/ott/regression/baseline.ps.txt | 102 - vendors/ott/regression/config.otr | 27 - vendors/ott/regression/ln.otl | 6 - vendors/ott/regression/ln_check.sh | 2 - vendors/ott/regression/loops | 16 - vendors/ott/regression/regression-jenkins.ml | 48 - vendors/ott/regression/regression-small.otl | 1 - vendors/ott/regression/regression.ml | 842 - vendors/ott/regression/regression.otl | 101 - .../ott/regression/regression_night_script.sh | 21 - vendors/ott/regression/regression_p_client.ml | 303 - vendors/ott/regression/regression_p_master.ml | 207 - vendors/ott/regression/regression_para.ml | 586 - .../regression/tests_not_in_regression.otl | 27 - vendors/ott/regression/tp_check.sh | 80 - vendors/ott/revision_history.txt | 505 - vendors/ott/src/Makefile | 381 - vendors/ott/src/README-src.txt | 77 - vendors/ott/src/align.ml | 75 - vendors/ott/src/align.mli | 34 - vendors/ott/src/auxl.ml | 1846 - vendors/ott/src/bounds.ml | 353 - vendors/ott/src/bounds.mli | 44 - vendors/ott/src/context_pp.ml | 163 - vendors/ott/src/coq_induct.ml | 371 - vendors/ott/src/coq_induct.mli | 35 - vendors/ott/src/defns.ml | 1396 - vendors/ott/src/defns.mli | 47 - vendors/ott/src/dependency.ml | 720 - vendors/ott/src/dependency.mli | 43 - vendors/ott/src/embed_pp.ml | 101 - vendors/ott/src/embed_pp.mli | 44 - vendors/ott/src/global_option.ml | 42 - vendors/ott/src/glr.ml | 645 - vendors/ott/src/grammar_lexer.mll | 496 - vendors/ott/src/grammar_parser.mly | 604 - vendors/ott/src/grammar_pp.ml | 4374 -- vendors/ott/src/grammar_typecheck.ml | 2843 -- vendors/ott/src/grammar_typecheck.mli | 53 - vendors/ott/src/lex_menhir_pp.ml | 942 - vendors/ott/src/lex_menhir_pp.mli | 41 - vendors/ott/src/ln_transform.ml | 1838 - vendors/ott/src/location.ml | 200 - vendors/ott/src/main.ml | 866 - vendors/ott/src/merge.ml | 435 - vendors/ott/src/merge.mli | 58 - vendors/ott/src/michelson_specific.ml | 51 - vendors/ott/src/new_term_parser.ml | 946 - vendors/ott/src/parse_table.ml | 1062 - vendors/ott/src/quotient_rules.ml | 263 - vendors/ott/src/subrules_pp.ml | 520 - vendors/ott/src/subrules_pp.mli | 38 - vendors/ott/src/substs_pp.ml | 2079 - vendors/ott/src/substs_pp.mli | 56 - vendors/ott/src/system_pp.ml | 683 - vendors/ott/src/system_pp.mli | 41 - vendors/ott/src/term_parser.ml | 1233 - vendors/ott/src/term_parser.mli | 67 - vendors/ott/src/tmp_date.txt | 1 - vendors/ott/src/transform.ml | 416 - vendors/ott/src/transform.mli | 37 - vendors/ott/src/types.ml | 983 - vendors/ott/src/version_src.tex | 4 - vendors/ott/tests/binding.1.ott | 17 - vendors/ott/tests/binding.2.ott | 24 - vendors/ott/tests/binding.3.ott | 32 - vendors/ott/tests/binding.4.ott | 40 - vendors/ott/tests/binding.5.ott | 82 - vendors/ott/tests/binding.6.ott | 5 - vendors/ott/tests/binding.6b.ott | 36 - vendors/ott/tests/leroy-jfp96.ott | 680 - .../tests/menhir_tests/test10menhir/Makefile | 44 - .../tests/menhir_tests/test10menhir/main.ml | 58 - .../test10menhir/test10menhir.ott | 86 - .../test10menhir_with_aux/Makefile | 44 - .../PPrintCombinators.ml | 311 - .../PPrintCombinators.mli | 236 - .../test10menhir_with_aux/PPrintEngine.ml | 642 - .../test10menhir_with_aux/PPrintEngine.mli | 226 - .../test10menhir_with_aux/PPrintRenderer.ml | 37 - .../test10menhir_with_aux/main.ml | 58 - .../test10menhir_with_aux/pprint-master.zip | Bin 51643 -> 0 bytes .../test10menhir_with_aux.ott | 138 - .../ott/tests/menhir_tests/test_if/Makefile | 48 - .../ott/tests/menhir_tests/test_if/main.ml | 32 - .../tests/menhir_tests/test_if/test_if.ott | 58 - .../tests/menhir_tests/test_lists/Makefile | 48 - .../ott/tests/menhir_tests/test_lists/main.ml | 57 - .../menhir_tests/test_lists/test_lists.ott | 31 - .../tests/menhir_tests/test_phantom/Makefile | 48 - .../tests/menhir_tests/test_phantom/main.ml | 57 - .../test_phantom/test_phantom.ott | 53 - vendors/ott/tests/non_super_tabular.ott | 6 - vendors/ott/tests/squishtex.ott | 9 - vendors/ott/tests/test-j.ott | 278 - vendors/ott/tests/test-lj-list_ambiguity.ott | 41 - vendors/ott/tests/test-mjp-trans.ott | 428 - vendors/ott/tests/test-mjp.ott | 15 - vendors/ott/tests/test-pottier1.ott | 13 - vendors/ott/tests/test1.ott | 181 - vendors/ott/tests/test10.0.ott | 34 - vendors/ott/tests/test10.2.ott | 39 - vendors/ott/tests/test10.4.ott | 38 - vendors/ott/tests/test10.7.ott | 44 - vendors/ott/tests/test10.ott | 45 - vendors/ott/tests/test10_homs.ott | 58 - vendors/ott/tests/test10_isasyn.ott | 59 - vendors/ott/tests/test10_twf.ott | 100 - vendors/ott/tests/test10literate/Makefile | 20 - vendors/ott/tests/test10literate/README | 16 - .../tests/test10literate/test10-wrapper.tex | 52 - vendors/ott/tests/test10literate/test10.ott | 90 - vendors/ott/tests/test10rdx.ott | 120 - vendors/ott/tests/test10st.ott | 126 - vendors/ott/tests/test10st_codegen.thy | 41 - vendors/ott/tests/test10st_fe.ott | 97 - vendors/ott/tests/test10st_first_half.ott | 66 - .../ott/tests/test10st_metatheoryScript.sml | 110 - .../ott/tests/test10st_metatheory_autoed.thy | 135 - vendors/ott/tests/test10st_snapshot_out.thy | 91 - vendors/ott/tests/test10typing_minimal.ott | 41 - vendors/ott/tests/test11.ott | 25 - vendors/ott/tests/test12.ott | 15 - vendors/ott/tests/test13.ott | 61 - vendors/ott/tests/test13b.ott | 200 - vendors/ott/tests/test13d.ott | 474 - vendors/ott/tests/test14.ott | 27 - vendors/ott/tests/test15.0.ott | 16 - vendors/ott/tests/test15.1.ott | 37 - vendors/ott/tests/test15.2.ott | 20 - vendors/ott/tests/test15.3.ott | 31 - vendors/ott/tests/test15.4.ott | 30 - vendors/ott/tests/test15.4b.ott | 31 - vendors/ott/tests/test15.4c.ott | 32 - vendors/ott/tests/test15.4d.ott | 33 - vendors/ott/tests/test15.5.ott | 27 - vendors/ott/tests/test15.6.ott | 42 - vendors/ott/tests/test15.7.ott | 44 - vendors/ott/tests/test16.0.ott | 18 - vendors/ott/tests/test16.1.ott | 29 - vendors/ott/tests/test16.2.ott | 18 - vendors/ott/tests/test16.3.ott | 18 - vendors/ott/tests/test16.4.ott | 24 - vendors/ott/tests/test16.5.ott | 21 - vendors/ott/tests/test16.6.ott | 20 - vendors/ott/tests/test17.0.ott | 22 - vendors/ott/tests/test17.1.ott | 24 - vendors/ott/tests/test17.10.ott | 104 - vendors/ott/tests/test17.11.ott | 438 - vendors/ott/tests/test17.12.ott | 136 - vendors/ott/tests/test17.13.ott | 36 - vendors/ott/tests/test17.14.ott | 27 - vendors/ott/tests/test17.2.ott | 23 - vendors/ott/tests/test17.3.ott | 26 - vendors/ott/tests/test17.4.ott | 23 - vendors/ott/tests/test17.5.ott | 20 - vendors/ott/tests/test17.6.ott | 16 - vendors/ott/tests/test17.7.ott | 31 - vendors/ott/tests/test17.8.ott | 49 - vendors/ott/tests/test17.9.ott | 52 - vendors/ott/tests/test18.0.ott | 10 - vendors/ott/tests/test18.1.ott | 45 - vendors/ott/tests/test18.2.ott | 30 - vendors/ott/tests/test19.0.ott | 322 - vendors/ott/tests/test2.ott | 33 - vendors/ott/tests/test21.1.ott | 42 - vendors/ott/tests/test3.ott | 344 - vendors/ott/tests/test4.ott | 99 - vendors/ott/tests/test5.ott | 165 - vendors/ott/tests/test6-tex.ott | 299 - vendors/ott/tests/test6.ott | 218 - vendors/ott/tests/test7.ott | 499 - vendors/ott/tests/test7a.ott | 362 - vendors/ott/tests/test7b.ott | 499 - vendors/ott/tests/test7t.mng | 156 - vendors/ott/tests/test7tt.mng | 27 - vendors/ott/tests/test8.ott | 240 - vendors/ott/tests/test8p.ott | 294 - vendors/ott/tests/test_bind_aux_empty_1.ott | 8 - vendors/ott/tests/test_bind_dots_1.ott | 8 - vendors/ott/tests/test_bind_isa_1.ott | 22 - vendors/ott/tests/test_coq_equality_x_1.ott | 1 - .../test_defn_repeated_nonterminal_1.ott | 20 - vendors/ott/tests/test_embed_location_1.ott | 53 - vendors/ott/tests/test_embed_top_1.ott | 7 - vendors/ott/tests/test_empty_defn.ott | 17 - vendors/ott/tests/test_jan_2006-09-08.ott | 185 - vendors/ott/tests/test_lists_1.ott | 54 - vendors/ott/tests/test_lists_coq_bind_1.ott | 17 - .../tests/test_lists_coq_defn_subrule_1.ott | 22 - .../tests/test_lists_coq_defn_subrule_2.ott | 24 - .../tests/test_lists_coq_defn_subrule_3.ott | 34 - .../ott/tests/test_lists_coq_defn_tuple_1.ott | 11 - .../ott/tests/test_lists_coq_defn_tuple_2.ott | 23 - .../tests/test_lists_coq_list_functions_1.ott | 49 - .../tests/test_lists_coq_list_functions_2.ott | 29 - .../tests/test_lists_coq_list_functions_3.ott | 27 - .../tests/test_lists_coq_list_functions_4.ott | 26 - .../ott/tests/test_lists_defn_list_form_1.ott | 27 - vendors/ott/tests/test_lists_freevars_1.ott | 18 - vendors/ott/tests/test_lists_terminal_1.ott | 5 - .../tests/test_merge_embed_location_1-1.ott | 17 - .../tests/test_merge_embed_location_1-2.ott | 53 - vendors/ott/tests/test_subrules_1.ott | 12 - vendors/ott/tex/Makefile | 27 - vendors/ott/tex/README | 33 - vendors/ott/tex/empty.ott | 0 vendors/ott/tex/lj.ott | 183 - vendors/ott/tex/lj_base.ott | 136 - vendors/ott/tex/lj_common.ott | 1018 - vendors/ott/tex/manual.bib | 7 - vendors/ott/tex/manual.tex | 227 - vendors/ott/tex/ott_alltt.tex | 6 - vendors/ott/tex/ottlayout.sty | 339 - vendors/ott/tex/override.tex | 4 - 439 files changed, 145254 deletions(-) delete mode 100644 vendors/ott/.gitignore delete mode 100644 vendors/ott/LICENCE delete mode 100644 vendors/ott/Makefile delete mode 100644 vendors/ott/README.md delete mode 100644 vendors/ott/aux/y2l/0README_FIRST delete mode 100644 vendors/ott/aux/y2l/Artistic delete mode 100644 vendors/ott/aux/y2l/README delete mode 100755 vendors/ott/aux/y2l/y2l delete mode 100644 vendors/ott/aux/y2l/y2l.man delete mode 100644 vendors/ott/aux/y2l/y2lman.html delete mode 100644 vendors/ott/built_doc/top2.html delete mode 100644 vendors/ott/built_doc/top2.pdf delete mode 100644 vendors/ott/built_doc/top2.ps delete mode 100644 vendors/ott/built_doc/top2001.png delete mode 100644 vendors/ott/built_doc/top2002.png delete mode 100644 vendors/ott/built_doc/top2003.png delete mode 100644 vendors/ott/built_doc/top2004.png delete mode 100644 vendors/ott/built_doc/top2005.png delete mode 100644 vendors/ott/built_doc/top2006.png delete mode 100644 vendors/ott/built_doc/top2007.png delete mode 100644 vendors/ott/built_doc/top2008.png delete mode 100644 vendors/ott/built_doc/top2009.png delete mode 100644 vendors/ott/built_doc/top2010.png delete mode 100644 vendors/ott/built_doc/top2011.png delete mode 100644 vendors/ott/built_doc/top2012.png delete mode 100644 vendors/ott/built_doc/top2013.png delete mode 100644 vendors/ott/built_doc/top2014.png delete mode 100644 vendors/ott/built_doc/top2015.png delete mode 100644 vendors/ott/built_doc/top2016.png delete mode 100644 vendors/ott/built_doc/top2017.png delete mode 100644 vendors/ott/built_doc/top2018.png delete mode 100644 vendors/ott/built_doc/top2019.png delete mode 100644 vendors/ott/built_doc/top2020.png delete mode 100644 vendors/ott/built_doc/top2021.png delete mode 100644 vendors/ott/built_doc/top2022.png delete mode 100644 vendors/ott/built_doc/top2023.png delete mode 100644 vendors/ott/built_doc/top2024.png delete mode 100644 vendors/ott/built_doc/top2025.png delete mode 100644 vendors/ott/built_doc/top2026.png delete mode 100644 vendors/ott/built_doc/top2027.png delete mode 100644 vendors/ott/built_doc/top2028.png delete mode 100644 vendors/ott/built_doc/top2029.png delete mode 100644 vendors/ott/built_doc/top2030.png delete mode 100644 vendors/ott/built_doc/top2031.png delete mode 100644 vendors/ott/built_doc/top2032.png delete mode 100644 vendors/ott/built_doc/top2033.png delete mode 100644 vendors/ott/built_doc/top2034.png delete mode 100644 vendors/ott/built_doc/top2035.png delete mode 100644 vendors/ott/built_doc/top2036.png delete mode 100644 vendors/ott/built_doc/top2037.png delete mode 100644 vendors/ott/coq/.gitignore delete mode 100644 vendors/ott/coq/Makefile delete mode 100644 vendors/ott/coq/_CoqProject delete mode 100644 vendors/ott/coq/ott_list.v delete mode 100644 vendors/ott/coq/ott_list_base.v delete mode 100644 vendors/ott/coq/ott_list_core.v delete mode 100644 vendors/ott/coq/ott_list_distinct.v delete mode 100644 vendors/ott/coq/ott_list_eq_dec.v delete mode 100644 vendors/ott/coq/ott_list_flat_map.v delete mode 100644 vendors/ott/coq/ott_list_mem.v delete mode 100644 vendors/ott/coq/ott_list_nth.v delete mode 100644 vendors/ott/coq/ott_list_predicate.v delete mode 100644 vendors/ott/coq/ott_list_repeat.v delete mode 100644 vendors/ott/coq/ott_list_support.v delete mode 100644 vendors/ott/coq/ott_list_takedrop.v delete mode 100644 vendors/ott/doc/Makefile delete mode 100644 vendors/ott/doc/favicon.ico delete mode 100644 vendors/ott/doc/index.html.p delete mode 100644 vendors/ott/doc/let.alltt.tex delete mode 100644 vendors/ott/doc/shorter.bib delete mode 100644 vendors/ott/doc/squishtex.hand.ott delete mode 100644 vendors/ott/doc/style.css delete mode 100644 vendors/ott/doc/test10.hand.edited.thy delete mode 100644 vendors/ott/doc/test10.hand.edited.v delete mode 100644 vendors/ott/doc/top2.mng delete mode 100644 vendors/ott/emacs/ott-mode.el delete mode 100644 vendors/ott/examples/1Bsemantics/Makefile delete mode 100644 vendors/ott/examples/1Bsemantics/l1.ott delete mode 100644 vendors/ott/examples/1Bsemantics/l2.ott delete mode 100644 vendors/ott/examples/1Bsemantics/svn-log-2018-01 delete mode 100644 vendors/ott/examples/ocaml_light/.gitignore delete mode 100644 vendors/ott/examples/ocaml_light/Makefile delete mode 100644 vendors/ott/examples/ocaml_light/Makefile-distrib delete mode 100644 vendors/ott/examples/ocaml_light/README delete mode 100644 vendors/ott/examples/ocaml_light/README.internal delete mode 100644 vendors/ott/examples/ocaml_light/caml_lib_misc.v delete mode 100644 vendors/ott/examples/ocaml_light/doc/Makefile delete mode 100644 vendors/ott/examples/ocaml_light/doc/abstract.tex delete mode 100644 vendors/ott/examples/ocaml_light/doc/bib.bib delete mode 100644 vendors/ott/examples/ocaml_light/doc/built_doc/poster.pdf delete mode 100644 vendors/ott/examples/ocaml_light/doc/built_doc/poster_rules.pdf delete mode 100644 vendors/ott/examples/ocaml_light/doc/llncs.cls delete mode 100644 vendors/ott/examples/ocaml_light/doc/ott-spec.ltx delete mode 100644 vendors/ott/examples/ocaml_light/doc/poster.sty delete mode 100644 vendors/ott/examples/ocaml_light/doc/poster.tex delete mode 100644 vendors/ott/examples/ocaml_light/doc/poster_rules.tex delete mode 100644 vendors/ott/examples/ocaml_light/doc/postercore.sty delete mode 100644 vendors/ott/examples/ocaml_light/doc/splncs.bst delete mode 100644 vendors/ott/examples/ocaml_light/funex.ott delete mode 100644 vendors/ott/examples/ocaml_light/hol/basicScript.sml delete mode 100644 vendors/ott/examples/ocaml_light/hol/definitionsScript.sml delete mode 100644 vendors/ott/examples/ocaml_light/hol/defs_red_funScript.sml delete mode 100644 vendors/ott/examples/ocaml_light/hol/env_permScript.sml delete mode 100644 vendors/ott/examples/ocaml_light/hol/environmentScript.sml delete mode 100644 vendors/ott/examples/ocaml_light/hol/matching_funScript.sml delete mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/.cvsignore delete mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/Makefile delete mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/README delete mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/main.ml delete mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/.cvsignore delete mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/asttypes.mli delete mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/lexer.mll delete mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/linenum.ml delete mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/linenum.mli delete mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/linenum.mll delete mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/location.ml delete mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/location.mli delete mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/longident.ml delete mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/longident.mli delete mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/parse.ml delete mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/parse.mli delete mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/parser.mly delete mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/parsetree.mli delete mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/printast.ml delete mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/printast.mli delete mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/syntaxerr.ml delete mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/syntaxerr.mli delete mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/.cvsignore delete mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/ccomp.ml delete mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/ccomp.mli delete mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/clflags.ml delete mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/clflags.mli delete mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/config.ml delete mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/config.mlbuild delete mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/config.mli delete mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/config.mlp delete mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/consistbl.ml delete mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/consistbl.mli delete mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/misc.ml delete mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/misc.mli delete mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/tbl.ml delete mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/tbl.mli delete mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/terminfo.ml delete mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/terminfo.mli delete mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/warnings.ml delete mode 100644 vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/warnings.mli delete mode 100644 vendors/ott/examples/ocaml_light/hol/preservationScript.sml delete mode 100644 vendors/ott/examples/ocaml_light/hol/progressScript.sml delete mode 100644 vendors/ott/examples/ocaml_light/hol/reduction_funScript.sml delete mode 100644 vendors/ott/examples/ocaml_light/hol/remv_tyvarScript.sml delete mode 100644 vendors/ott/examples/ocaml_light/hol/shiftScript.sml delete mode 100644 vendors/ott/examples/ocaml_light/hol/storeScript.sml delete mode 100644 vendors/ott/examples/ocaml_light/hol/strengthenScript.sml delete mode 100644 vendors/ott/examples/ocaml_light/hol/substsScript.sml delete mode 100644 vendors/ott/examples/ocaml_light/hol/teqScript.sml delete mode 100644 vendors/ott/examples/ocaml_light/hol/testing/Makefile delete mode 100644 vendors/ott/examples/ocaml_light/hol/testing/README delete mode 100644 vendors/ott/examples/ocaml_light/hol/testing/make_ml.sml delete mode 100755 vendors/ott/examples/ocaml_light/hol/testing/process-tests.scm delete mode 100644 vendors/ott/examples/ocaml_light/hol/testing/reduction_funML.BUGFIX.sml delete mode 100644 vendors/ott/examples/ocaml_light/hol/testing/sources1.cm delete mode 100644 vendors/ott/examples/ocaml_light/hol/testing/sources2.cm delete mode 100644 vendors/ott/examples/ocaml_light/hol/testing/tests delete mode 100644 vendors/ott/examples/ocaml_light/hol/testing/theoryML.cm delete mode 100644 vendors/ott/examples/ocaml_light/hol/type_substScript.sml delete mode 100644 vendors/ott/examples/ocaml_light/hol/type_substsScript.sml delete mode 100644 vendors/ott/examples/ocaml_light/hol/utilScript.sml delete mode 100644 vendors/ott/examples/ocaml_light/hol/validScript.sml delete mode 100644 vendors/ott/examples/ocaml_light/hol/weakenScript.sml delete mode 100644 vendors/ott/examples/ocaml_light/library.ott delete mode 100644 vendors/ott/examples/ocaml_light/opsem.ott delete mode 100644 vendors/ott/examples/ocaml_light/ott-preamble.sed delete mode 100644 vendors/ott/examples/ocaml_light/ott-spec.ltx delete mode 100644 vendors/ott/examples/ocaml_light/reduction.ott delete mode 100644 vendors/ott/examples/ocaml_light/syntax.ott delete mode 100644 vendors/ott/examples/ocaml_light/typing.ott delete mode 100644 vendors/ott/examples/peterson_caml.ott delete mode 100644 vendors/ott/examples/tapl/.gitignore delete mode 100644 vendors/ott/examples/tapl/Makefile delete mode 100644 vendors/ott/examples/tapl/arrow.ott delete mode 100644 vendors/ott/examples/tapl/arrow_typing.ott delete mode 100644 vendors/ott/examples/tapl/ascribe.ott delete mode 100644 vendors/ott/examples/tapl/basety.ott delete mode 100644 vendors/ott/examples/tapl/bool.ott delete mode 100644 vendors/ott/examples/tapl/bool_typing.ott delete mode 100644 vendors/ott/examples/tapl/bot.ott delete mode 100644 vendors/ott/examples/tapl/common.ott delete mode 100644 vendors/ott/examples/tapl/common_index.ott delete mode 100644 vendors/ott/examples/tapl/common_labels.ott delete mode 100644 vendors/ott/examples/tapl/common_typing.ott delete mode 100644 vendors/ott/examples/tapl/fix.ott delete mode 100644 vendors/ott/examples/tapl/inert.ott delete mode 100644 vendors/ott/examples/tapl/let.ott delete mode 100644 vendors/ott/examples/tapl/let_alltt.ott delete mode 100644 vendors/ott/examples/tapl/nat.ott delete mode 100644 vendors/ott/examples/tapl/nat_typing.ott delete mode 100644 vendors/ott/examples/tapl/product.ott delete mode 100644 vendors/ott/examples/tapl/record.ott delete mode 100644 vendors/ott/examples/tapl/record_with_explicit_types.ott delete mode 100644 vendors/ott/examples/tapl/seq.ott delete mode 100644 vendors/ott/examples/tapl/sub_arrow.ott delete mode 100644 vendors/ott/examples/tapl/sub_record.ott delete mode 100644 vendors/ott/examples/tapl/sum.ott delete mode 100644 vendors/ott/examples/tapl/top.ott delete mode 100644 vendors/ott/examples/tapl/tuple.ott delete mode 100644 vendors/ott/examples/tapl/tuples.ott delete mode 100644 vendors/ott/examples/tapl/unit.ott delete mode 100644 vendors/ott/examples/tapl/variant.ott delete mode 100644 vendors/ott/hol/Makefile delete mode 100644 vendors/ott/hol/ottLib.sig delete mode 100644 vendors/ott/hol/ottLib.sml delete mode 100644 vendors/ott/hol/ottScript.sml delete mode 100644 vendors/ott/menhir/menhir_library_extra.mly delete mode 100644 vendors/ott/ocamlgraph-1.7.tar.gz delete mode 100644 vendors/ott/ocamlgraph-safe-string.patch delete mode 100644 vendors/ott/ott.install delete mode 100644 vendors/ott/ott.opam delete mode 100644 vendors/ott/regression/Makefile delete mode 100644 vendors/ott/regression/README delete mode 100644 vendors/ott/regression/_ott_coqrc.v delete mode 100644 vendors/ott/regression/baseline-jenkins.bl delete mode 100644 vendors/ott/regression/baseline-ps.bl delete mode 100644 vendors/ott/regression/baseline.bl delete mode 100644 vendors/ott/regression/baseline.fzn.txt delete mode 100644 vendors/ott/regression/baseline.ps.txt delete mode 100644 vendors/ott/regression/config.otr delete mode 100644 vendors/ott/regression/ln.otl delete mode 100755 vendors/ott/regression/ln_check.sh delete mode 100644 vendors/ott/regression/loops delete mode 100644 vendors/ott/regression/regression-jenkins.ml delete mode 100644 vendors/ott/regression/regression-small.otl delete mode 100644 vendors/ott/regression/regression.ml delete mode 100644 vendors/ott/regression/regression.otl delete mode 100755 vendors/ott/regression/regression_night_script.sh delete mode 100644 vendors/ott/regression/regression_p_client.ml delete mode 100644 vendors/ott/regression/regression_p_master.ml delete mode 100644 vendors/ott/regression/regression_para.ml delete mode 100644 vendors/ott/regression/tests_not_in_regression.otl delete mode 100755 vendors/ott/regression/tp_check.sh delete mode 100644 vendors/ott/revision_history.txt delete mode 100644 vendors/ott/src/Makefile delete mode 100644 vendors/ott/src/README-src.txt delete mode 100644 vendors/ott/src/align.ml delete mode 100644 vendors/ott/src/align.mli delete mode 100644 vendors/ott/src/auxl.ml delete mode 100644 vendors/ott/src/bounds.ml delete mode 100644 vendors/ott/src/bounds.mli delete mode 100644 vendors/ott/src/context_pp.ml delete mode 100644 vendors/ott/src/coq_induct.ml delete mode 100644 vendors/ott/src/coq_induct.mli delete mode 100644 vendors/ott/src/defns.ml delete mode 100644 vendors/ott/src/defns.mli delete mode 100644 vendors/ott/src/dependency.ml delete mode 100644 vendors/ott/src/dependency.mli delete mode 100644 vendors/ott/src/embed_pp.ml delete mode 100644 vendors/ott/src/embed_pp.mli delete mode 100644 vendors/ott/src/global_option.ml delete mode 100644 vendors/ott/src/glr.ml delete mode 100644 vendors/ott/src/grammar_lexer.mll delete mode 100644 vendors/ott/src/grammar_parser.mly delete mode 100644 vendors/ott/src/grammar_pp.ml delete mode 100644 vendors/ott/src/grammar_typecheck.ml delete mode 100644 vendors/ott/src/grammar_typecheck.mli delete mode 100644 vendors/ott/src/lex_menhir_pp.ml delete mode 100644 vendors/ott/src/lex_menhir_pp.mli delete mode 100644 vendors/ott/src/ln_transform.ml delete mode 100644 vendors/ott/src/location.ml delete mode 100644 vendors/ott/src/main.ml delete mode 100644 vendors/ott/src/merge.ml delete mode 100644 vendors/ott/src/merge.mli delete mode 100644 vendors/ott/src/michelson_specific.ml delete mode 100644 vendors/ott/src/new_term_parser.ml delete mode 100644 vendors/ott/src/parse_table.ml delete mode 100644 vendors/ott/src/quotient_rules.ml delete mode 100644 vendors/ott/src/subrules_pp.ml delete mode 100644 vendors/ott/src/subrules_pp.mli delete mode 100644 vendors/ott/src/substs_pp.ml delete mode 100644 vendors/ott/src/substs_pp.mli delete mode 100644 vendors/ott/src/system_pp.ml delete mode 100644 vendors/ott/src/system_pp.mli delete mode 100644 vendors/ott/src/term_parser.ml delete mode 100644 vendors/ott/src/term_parser.mli delete mode 100644 vendors/ott/src/tmp_date.txt delete mode 100644 vendors/ott/src/transform.ml delete mode 100644 vendors/ott/src/transform.mli delete mode 100644 vendors/ott/src/types.ml delete mode 100644 vendors/ott/src/version_src.tex delete mode 100644 vendors/ott/tests/binding.1.ott delete mode 100644 vendors/ott/tests/binding.2.ott delete mode 100644 vendors/ott/tests/binding.3.ott delete mode 100644 vendors/ott/tests/binding.4.ott delete mode 100644 vendors/ott/tests/binding.5.ott delete mode 100644 vendors/ott/tests/binding.6.ott delete mode 100644 vendors/ott/tests/binding.6b.ott delete mode 100644 vendors/ott/tests/leroy-jfp96.ott delete mode 100644 vendors/ott/tests/menhir_tests/test10menhir/Makefile delete mode 100644 vendors/ott/tests/menhir_tests/test10menhir/main.ml delete mode 100644 vendors/ott/tests/menhir_tests/test10menhir/test10menhir.ott delete mode 100644 vendors/ott/tests/menhir_tests/test10menhir_with_aux/Makefile delete mode 100644 vendors/ott/tests/menhir_tests/test10menhir_with_aux/PPrintCombinators.ml delete mode 100644 vendors/ott/tests/menhir_tests/test10menhir_with_aux/PPrintCombinators.mli delete mode 100644 vendors/ott/tests/menhir_tests/test10menhir_with_aux/PPrintEngine.ml delete mode 100644 vendors/ott/tests/menhir_tests/test10menhir_with_aux/PPrintEngine.mli delete mode 100644 vendors/ott/tests/menhir_tests/test10menhir_with_aux/PPrintRenderer.ml delete mode 100644 vendors/ott/tests/menhir_tests/test10menhir_with_aux/main.ml delete mode 100644 vendors/ott/tests/menhir_tests/test10menhir_with_aux/pprint-master.zip delete mode 100644 vendors/ott/tests/menhir_tests/test10menhir_with_aux/test10menhir_with_aux.ott delete mode 100644 vendors/ott/tests/menhir_tests/test_if/Makefile delete mode 100644 vendors/ott/tests/menhir_tests/test_if/main.ml delete mode 100644 vendors/ott/tests/menhir_tests/test_if/test_if.ott delete mode 100644 vendors/ott/tests/menhir_tests/test_lists/Makefile delete mode 100644 vendors/ott/tests/menhir_tests/test_lists/main.ml delete mode 100644 vendors/ott/tests/menhir_tests/test_lists/test_lists.ott delete mode 100644 vendors/ott/tests/menhir_tests/test_phantom/Makefile delete mode 100644 vendors/ott/tests/menhir_tests/test_phantom/main.ml delete mode 100644 vendors/ott/tests/menhir_tests/test_phantom/test_phantom.ott delete mode 100644 vendors/ott/tests/non_super_tabular.ott delete mode 100644 vendors/ott/tests/squishtex.ott delete mode 100644 vendors/ott/tests/test-j.ott delete mode 100644 vendors/ott/tests/test-lj-list_ambiguity.ott delete mode 100644 vendors/ott/tests/test-mjp-trans.ott delete mode 100755 vendors/ott/tests/test-mjp.ott delete mode 100644 vendors/ott/tests/test-pottier1.ott delete mode 100644 vendors/ott/tests/test1.ott delete mode 100644 vendors/ott/tests/test10.0.ott delete mode 100644 vendors/ott/tests/test10.2.ott delete mode 100644 vendors/ott/tests/test10.4.ott delete mode 100644 vendors/ott/tests/test10.7.ott delete mode 100644 vendors/ott/tests/test10.ott delete mode 100644 vendors/ott/tests/test10_homs.ott delete mode 100644 vendors/ott/tests/test10_isasyn.ott delete mode 100644 vendors/ott/tests/test10_twf.ott delete mode 100644 vendors/ott/tests/test10literate/Makefile delete mode 100644 vendors/ott/tests/test10literate/README delete mode 100644 vendors/ott/tests/test10literate/test10-wrapper.tex delete mode 100644 vendors/ott/tests/test10literate/test10.ott delete mode 100644 vendors/ott/tests/test10rdx.ott delete mode 100644 vendors/ott/tests/test10st.ott delete mode 100644 vendors/ott/tests/test10st_codegen.thy delete mode 100644 vendors/ott/tests/test10st_fe.ott delete mode 100644 vendors/ott/tests/test10st_first_half.ott delete mode 100644 vendors/ott/tests/test10st_metatheoryScript.sml delete mode 100644 vendors/ott/tests/test10st_metatheory_autoed.thy delete mode 100644 vendors/ott/tests/test10st_snapshot_out.thy delete mode 100644 vendors/ott/tests/test10typing_minimal.ott delete mode 100644 vendors/ott/tests/test11.ott delete mode 100644 vendors/ott/tests/test12.ott delete mode 100644 vendors/ott/tests/test13.ott delete mode 100644 vendors/ott/tests/test13b.ott delete mode 100644 vendors/ott/tests/test13d.ott delete mode 100644 vendors/ott/tests/test14.ott delete mode 100644 vendors/ott/tests/test15.0.ott delete mode 100644 vendors/ott/tests/test15.1.ott delete mode 100644 vendors/ott/tests/test15.2.ott delete mode 100644 vendors/ott/tests/test15.3.ott delete mode 100644 vendors/ott/tests/test15.4.ott delete mode 100644 vendors/ott/tests/test15.4b.ott delete mode 100644 vendors/ott/tests/test15.4c.ott delete mode 100644 vendors/ott/tests/test15.4d.ott delete mode 100644 vendors/ott/tests/test15.5.ott delete mode 100644 vendors/ott/tests/test15.6.ott delete mode 100644 vendors/ott/tests/test15.7.ott delete mode 100644 vendors/ott/tests/test16.0.ott delete mode 100644 vendors/ott/tests/test16.1.ott delete mode 100644 vendors/ott/tests/test16.2.ott delete mode 100644 vendors/ott/tests/test16.3.ott delete mode 100644 vendors/ott/tests/test16.4.ott delete mode 100644 vendors/ott/tests/test16.5.ott delete mode 100644 vendors/ott/tests/test16.6.ott delete mode 100644 vendors/ott/tests/test17.0.ott delete mode 100644 vendors/ott/tests/test17.1.ott delete mode 100644 vendors/ott/tests/test17.10.ott delete mode 100644 vendors/ott/tests/test17.11.ott delete mode 100644 vendors/ott/tests/test17.12.ott delete mode 100644 vendors/ott/tests/test17.13.ott delete mode 100644 vendors/ott/tests/test17.14.ott delete mode 100644 vendors/ott/tests/test17.2.ott delete mode 100644 vendors/ott/tests/test17.3.ott delete mode 100644 vendors/ott/tests/test17.4.ott delete mode 100644 vendors/ott/tests/test17.5.ott delete mode 100644 vendors/ott/tests/test17.6.ott delete mode 100644 vendors/ott/tests/test17.7.ott delete mode 100644 vendors/ott/tests/test17.8.ott delete mode 100644 vendors/ott/tests/test17.9.ott delete mode 100644 vendors/ott/tests/test18.0.ott delete mode 100644 vendors/ott/tests/test18.1.ott delete mode 100644 vendors/ott/tests/test18.2.ott delete mode 100644 vendors/ott/tests/test19.0.ott delete mode 100644 vendors/ott/tests/test2.ott delete mode 100644 vendors/ott/tests/test21.1.ott delete mode 100644 vendors/ott/tests/test3.ott delete mode 100644 vendors/ott/tests/test4.ott delete mode 100644 vendors/ott/tests/test5.ott delete mode 100644 vendors/ott/tests/test6-tex.ott delete mode 100644 vendors/ott/tests/test6.ott delete mode 100644 vendors/ott/tests/test7.ott delete mode 100644 vendors/ott/tests/test7a.ott delete mode 100644 vendors/ott/tests/test7b.ott delete mode 100644 vendors/ott/tests/test7t.mng delete mode 100644 vendors/ott/tests/test7tt.mng delete mode 100644 vendors/ott/tests/test8.ott delete mode 100644 vendors/ott/tests/test8p.ott delete mode 100644 vendors/ott/tests/test_bind_aux_empty_1.ott delete mode 100644 vendors/ott/tests/test_bind_dots_1.ott delete mode 100644 vendors/ott/tests/test_bind_isa_1.ott delete mode 100644 vendors/ott/tests/test_coq_equality_x_1.ott delete mode 100644 vendors/ott/tests/test_defn_repeated_nonterminal_1.ott delete mode 100644 vendors/ott/tests/test_embed_location_1.ott delete mode 100644 vendors/ott/tests/test_embed_top_1.ott delete mode 100644 vendors/ott/tests/test_empty_defn.ott delete mode 100644 vendors/ott/tests/test_jan_2006-09-08.ott delete mode 100644 vendors/ott/tests/test_lists_1.ott delete mode 100644 vendors/ott/tests/test_lists_coq_bind_1.ott delete mode 100644 vendors/ott/tests/test_lists_coq_defn_subrule_1.ott delete mode 100644 vendors/ott/tests/test_lists_coq_defn_subrule_2.ott delete mode 100644 vendors/ott/tests/test_lists_coq_defn_subrule_3.ott delete mode 100644 vendors/ott/tests/test_lists_coq_defn_tuple_1.ott delete mode 100644 vendors/ott/tests/test_lists_coq_defn_tuple_2.ott delete mode 100644 vendors/ott/tests/test_lists_coq_list_functions_1.ott delete mode 100644 vendors/ott/tests/test_lists_coq_list_functions_2.ott delete mode 100644 vendors/ott/tests/test_lists_coq_list_functions_3.ott delete mode 100644 vendors/ott/tests/test_lists_coq_list_functions_4.ott delete mode 100644 vendors/ott/tests/test_lists_defn_list_form_1.ott delete mode 100644 vendors/ott/tests/test_lists_freevars_1.ott delete mode 100644 vendors/ott/tests/test_lists_terminal_1.ott delete mode 100644 vendors/ott/tests/test_merge_embed_location_1-1.ott delete mode 100644 vendors/ott/tests/test_merge_embed_location_1-2.ott delete mode 100644 vendors/ott/tests/test_subrules_1.ott delete mode 100644 vendors/ott/tex/Makefile delete mode 100644 vendors/ott/tex/README delete mode 100644 vendors/ott/tex/empty.ott delete mode 100644 vendors/ott/tex/lj.ott delete mode 100644 vendors/ott/tex/lj_base.ott delete mode 100644 vendors/ott/tex/lj_common.ott delete mode 100644 vendors/ott/tex/manual.bib delete mode 100644 vendors/ott/tex/manual.tex delete mode 100644 vendors/ott/tex/ott_alltt.tex delete mode 100644 vendors/ott/tex/ottlayout.sty delete mode 100644 vendors/ott/tex/override.tex diff --git a/vendors/ott/.gitignore b/vendors/ott/.gitignore deleted file mode 100644 index 2d383ffd2e41..000000000000 --- a/vendors/ott/.gitignore +++ /dev/null @@ -1,19 +0,0 @@ -*.cmi -*.cmo -*.cmx -*.o -*.annot -src/ott -grammar_lexer.ml -grammar_lexer.o -grammar_parser.ml -grammar_parser.mli -grammar_parser.output -version.tex -*byte -*opt -bin/ -.depend -ocamlgraph-1.7 - -!ott.install diff --git a/vendors/ott/LICENCE b/vendors/ott/LICENCE deleted file mode 100644 index 096b97c0c252..000000000000 --- a/vendors/ott/LICENCE +++ /dev/null @@ -1,30 +0,0 @@ - Ott - - Peter Sewell, Computer Laboratory, University of Cambridge - Francesco Zappa Nardelli, Moscova project, INRIA Rocquencourt - -Copyright 2005-2011 - -Redistribution and use in source and binary forms, with or without -modification, are permitted provided that the following conditions -are met: -1. Redistributions of source code must retain the above copyright -notice, this list of conditions and the following disclaimer. -2. Redistributions in binary form must reproduce the above copyright -notice, this list of conditions and the following disclaimer in the -documentation and/or other materials provided with the distribution. -3. The names of the authors may not be used to endorse or promote -products derived from this software without specific prior written -permission. - -THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS -OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED -WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY -DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE -GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS -INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER -IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR -OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN -IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. diff --git a/vendors/ott/Makefile b/vendors/ott/Makefile deleted file mode 100644 index ecf2b11b99e4..000000000000 --- a/vendors/ott/Makefile +++ /dev/null @@ -1,265 +0,0 @@ -######################################################################### -# Ott # -# # -# Peter Sewell, Computer Laboratory, University of Cambridge # -# Francesco Zappa Nardelli, Moscova project, INRIA Rocquencourt # -# # -# Copyright 2005-2011 # -# # -# Redistribution and use in source and binary forms, with or without # -# modification, are permitted provided that the following conditions # -# are met: # -# 1. Redistributions of source code must retain the above copyright # -# notice, this list of conditions and the following disclaimer. # -# 2. Redistributions in binary form must reproduce the above copyright # -# notice, this list of conditions and the following disclaimer in the # -# documentation and/or other materials provided with the distribution. # -# 3. The names of the authors may not be used to endorse or promote # -# products derived from this software without specific prior written # -# permission. # -# # -# THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS # -# OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED # -# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE # -# ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY # -# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL # -# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE # -# GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS # -# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER # -# IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR # -# OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN # -# IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. # -########################################################################## - -# make world ############################################################# - - - -world: - cd src; $(MAKE) install - -world.byt: - cd src; $(MAKE) install.byt - -# cleanup ################################################################ - -clean: - cd src; $(MAKE) clean - rm -f *~ - -# tests ################################################################## - -LATEX = latex -DVIPS = dvips - -# normal case, e.g. "make tests/test8.out" - -%.out: %.ott - bin/ott \ - -o out.thy -o out.v -o outScript.sml \ - -o out.tex \ - $< \ - && ($(LATEX) out; $(DVIPS) out -o) - -%.tex.out: %.ott - bin/ott \ - -o out.tex \ - $< \ - && ($(LATEX) out; $(DVIPS) out -o) - -%.coq.out: %.ott - bin/ott \ - -o out.v \ - -o out.tex \ - $< \ - && ($(LATEX) out; $(DVIPS) out -o) - -%.hol.out: %.ott - bin/ott \ - -o outScript.sml \ - -o out.tex \ - $< \ - && ($(LATEX) out; $(DVIPS) out -o) - -%.isa.out: %.ott - bin/ott \ - -o out.thy \ - -o out.tex \ - $< \ - && ($(LATEX) out; $(DVIPS) out -o) - -# test10 special cases - -test10: tests/test10.ott - bin/ott \ - -o out.thy -o out.v -o outScript.sml \ - -o out.tex \ - -parse ":user_syntax: :user_syntax__t: :concrete: \x1'.x1'" \ - -parse ":user_syntax: :concrete: \x1'.x1'" \ - -parse ":user_syntax: \x1'.x1'" \ - -parse ":concrete_t:\x1'.x1'" \ - tests/test10.ott \ - && ($(LATEX) out; $(DVIPS) out -o) - -test10st_halves: tests/test10st_first_half.ott tests/test10st_second_half.ott - bin/ott -o out.thy -o out.v -o out.tex \ - -o outScript.sml \ - tests/test10st_first_half.ott \ - tests/test10st_second_half.ott \ - && ($(LATEX) out; $(DVIPS) out -o) - -test10_isasyn: tests/test10_isasyn.ott - bin/ott -colour true -showraw false \ - -o out.thy -o out.v -o out.tex \ - -isa_syntax true \ - -tex_show_meta true \ - tests/test10_isasyn.ott \ - && ($(LATEX) out; $(DVIPS) out -o) - -# test 7 special case - ott as a munger - -test7afilter: tests/test7b.ott tests/test7t.mng - bin/ott -o out.sty \ - -tex_show_meta false \ - -tex_wrap false \ - -tex_name_prefix ott \ - -tex_filter tests/test7t.mng out.tex \ - tests/test7b.ott \ - && ($(LATEX) out; $(DVIPS) out -o) - -# TAPL examples - -SYS_BOOL = \ - examples/tapl/common.ott \ - examples/tapl/bool.ott - -SYS_ARITH = \ - examples/tapl/nat.ott \ - $(SYS_BOOL) - -SYS_UNTYPED = \ - examples/tapl/common.ott \ - examples/tapl/bool.ott - -SYS_PURESIMPLE = \ - examples/tapl/common.ott \ - examples/tapl/common_typing.ott \ - examples/tapl/arrow_typing.ott - -SYS_TYBOOL = \ - examples/tapl/bool.ott \ - examples/tapl/bool_typing.ott \ - $(SYS_PURESIMPLE) - -SYS_SORTOFFULLSIMPLE = \ - examples/tapl/common.ott \ - examples/tapl/common_typing.ott \ - examples/tapl/common_labels.ott \ - examples/tapl/common_index.ott \ - examples/tapl/arrow_typing.ott \ - examples/tapl/basety.ott \ - examples/tapl/bool.ott \ - examples/tapl/bool_typing.ott \ - examples/tapl/nat.ott \ - examples/tapl/nat_typing.ott \ - examples/tapl/unit.ott \ - examples/tapl/seq.ott \ - examples/tapl/ascribe.ott \ - examples/tapl/inert.ott \ - examples/tapl/let.ott \ - examples/tapl/sum.ott \ - examples/tapl/variant.ott \ - examples/tapl/product.ott \ - examples/tapl/tuple.ott \ - examples/tapl/record.ott \ - examples/tapl/fix.ott -# examples/tapl/arrow.ott \ - -SYS_ROUGHLYFULLSIMPLE = \ - examples/tapl/common.ott \ - examples/tapl/common_index.ott \ - examples/tapl/common_labels.ott \ - examples/tapl/common_typing.ott \ - examples/tapl/bool.ott \ - examples/tapl/bool_typing.ott \ - examples/tapl/nat.ott \ - examples/tapl/nat_typing.ott \ - examples/tapl/arrow_typing.ott \ - examples/tapl/basety.ott \ - examples/tapl/unit.ott \ - examples/tapl/seq.ott \ - examples/tapl/ascribe.ott \ - examples/tapl/let.ott \ - examples/tapl/product.ott \ - examples/tapl/sum.ott \ - examples/tapl/fix.ott \ - examples/tapl/tuple.ott \ - examples/tapl/variant.ott -# examples/tapl/record.ott - -SYS_TUPLE = \ - examples/tapl/common.ott \ - examples/tapl/common_typing.ott \ - examples/tapl/common_index.ott \ - examples/tapl/unit.ott \ - examples/tapl/tuple.ott -# examples/tapl/arrow.ott \ - -SYS_PURESUB = \ - examples/tapl/common.ott \ - examples/tapl/common_typing.ott \ - examples/tapl/arrow_typing.ott \ - examples/tapl/sub_arrow.ott \ - examples/tapl/top.ott - -SYS_PURERCDSUB = $(SYS_PURESUB) \ - examples/tapl/common_labels.ott \ - examples/tapl/common_index.ott \ - examples/tapl/record.ott \ - examples/tapl/sub_record.ott - -sys-bool: $(SYS_BOOL) - bin/ott -merge true -tex_show_meta false -o out.tex -o out.v -o out.thy -o outScript.sml $(SYS_BOOL) \ - && ($(LATEX) out; $(DVIPS) out -o) - -sys-arith: $(SYS_ARITH) - bin/ott -merge true -tex_show_meta false -o out.tex -o out.v -o out.thy -o outScript.sml $(SYS_ARITH) \ - && ($(LATEX) out; $(DVIPS) out -o) - -sys-untyped: $(SYS_UNTYPED) - bin/ott -merge true -tex_show_meta false -o out.tex -o out.v -o out.thy -o outScript.sml $(SYS_UNTYPED) \ - && ($(LATEX) out; $(DVIPS) out -o) - -sys-puresimple: $(SYS_PURESIMPLE) - bin/ott -merge true -tex_show_meta false -o out.tex -o out.v -o out.thy -o outScript.sml $(SYS_PURESIMPLE) \ - && ($(LATEX) out; $(DVIPS) out -o) - -sys-tuple: $(SYS_TUPLE) - bin/ott -merge true -tex_show_meta false -o out.tex -o out.v -o out.thy -o outScript.sml $(SYS_TUPLE) \ - && ($(LATEX) out; $(DVIPS) out -o) - -sys-tybool: $(SYS_TYBOOL) - bin/ott -merge true -tex_show_meta false -o out.tex -o out.v -o out.thy -o outScript.sml $(SYS_TYBOOL) \ - && ($(LATEX) out; $(DVIPS) out -o) - -sys-sortoffullsimple: $(SYS_SORTOFFULLSIMPLE) - bin/ott -merge true -tex_show_meta false -o out.tex -o out.v -o out.thy -o outScript.sml $(SYS_SORTOFFULLSIMPLE) \ - && ($(LATEX) out; $(DVIPS) out -o) - -sys-roughlyfullsimple: $(SYS_ROUGHLYFULLSIMPLE) - bin/ott -merge true -tex_show_meta false -o out.tex -o out.v -o out.thy -o outScript.sml $(SYS_ROUGHLYFULLSIMPLE) \ - && ($(LATEX) out; $(DVIPS) out -o) - -sys-puresub: $(SYS_PURESUB) - bin/ott -merge true -tex_show_meta false -o out.tex -o out.v -o out.thy -o outScript.sml $(SYS_PURESUB) \ - && ($(LATEX) out; $(DVIPS) out -o) - -sys-purercdsub: $(SYS_PURERCDSUB) - bin/ott -merge true -tex_show_meta false -o out.tex -o out.v -o out.thy -o outScript.sml $(SYS_PURERCDSUB) \ - && ($(LATEX) out; $(DVIPS) out -o) - -# Jenksin regression - -jenkins: - cd regression; \ - make run-jenkins diff --git a/vendors/ott/README.md b/vendors/ott/README.md deleted file mode 100644 index f6f738aa1e18..000000000000 --- a/vendors/ott/README.md +++ /dev/null @@ -1,143 +0,0 @@ -# Ott - -A tool for writing definitions of programming languages and calculi - -by Peter Sewell, Francesco Zappa Nardelli, and Scott Owens. - -## Repository and Package - -Ott is now [available from github](https://github.com/ott-lang/ott), and as -an [opam](https://opam.ocaml.org) package. - -We no longer provide non-github tarballs or a Windows distribution. - - -## Directory contents - -directory | description ------------------------ | ------------------------------------------------- -`aux/` | auxiliary code (y2l) used to build the user guide -`bin/` | the Ott binary -`built_doc/` | the user guide, in html, pdf, and ps -`coq/` | auxiliary files for Coq -`doc/` | the user guide sources -`emacs/` | an Ott Emacs mode -`examples/` | some larger example Ott files -`tex/` | auxiliary files for LaTeX -`hol/` | auxiliary files for HOL -`menhir/` | auxiliary files for menhir -`ocamlgraph-1.7.tar.gz` | a copy of the ocamlgraph library -`regression/` | regression-test machinery -`tests/` | various small example Ott files -`src/` | the (OCaml) Ott sources -`Makefile` | a Makefile for the examples -`LICENCE` | the BSD-style licence terms -`README.md` | this file (Section 2 of the user guide) -`revisionhistory.txt` | the revision history - - - -## To build - -### With OPAM - -If you have [OPAM](https://opam.ocaml.org) installed on your system, -`opam install ott` will install the latest Ott version. The Emacs mode -will be in `` `opam config var prefix`/share/emacs/site-lisp ``, and -documentation in `` `opam config var prefix`/doc/ott ``. - -To install the Ott auxiliary files for Coq, first activate the -`coq-released` OPAM repository: - -`opam repo add coq-released https://coq.inria.fr/opam/released` - -and then run `opam install coq-ott`. - -### Without OPAM - -Ott depends on OCaml version 4.00.0 or later. It builds with (at -least) OCaml 4.02.3. - -The command `make` (`make world`) builds the `ott` binary in the `bin/` subdirectory. - -This will compile Ott using `ocamlopt`. To force it to -compile with `ocamlc` (which may give significantly slower execution -of Ott), do `make world.byt`. - -To build the Ott auxiliary files for Coq, go to the `coq/` subdirectory -and run `make`. To install the resulting files in Coq's `user-contrib`, -run `make install`. - -## To run - -Ott runs as a command-line tool. Executing `bin/ott` shows the -usage and options. To run Ott on the test file -`tests/test10.ott`, generating LaTeX in `test10.tex` and -Coq in `test10.v`, type: - - `bin/ott -i tests/test10.ott -o test10.tex -o test10.v` - -Isabelle, HOL, and Lem can be generated with options `-o test10.thy`, -`-o test10Script.sml`, and `-o test10.lem`, respectively. - -The Makefile has various sample targets, `make tests/test10.out`, -`make test7`, etc. Typically they generate: - -filename | description ----------------- | ---------------------------------- -`out.tex` | LaTeX source for a definition -`out.ps` | the postscript built from that -`out.v` | Coq source -`outScript.sml` | HOL source -`out.thy` | Isabelle source - -from files `test10.ott`, `test8.ott`, etc., in `tests/`. - -## Manual - -* in the [Ott github](https://github.com/ott-lang/ott) built_doc directory, or -* [here (html)](http://www.cl.cam.ac.uk/~pes20/ott/top2.html) - -## Editor Plugins - -### Emacs mode - -The file `emacs/ott-mode.el` defines a very simple Emacs mode for syntax -highlighting of Ott source files. It can be used by, for example, -adding the following to your `.emacs` file, replacing `PATH` by a path to your -Ott Emacs directory. - -```ELisp -(setq load-path (cons (expand-file-name "PATH") load-path)) -(require 'ott-mode) -``` - -For installations using OPAM on \*nix systems, it is sufficient to use the following code, which will call `opam config var prefix` at load-time. - -```ELisp -(setq opam-share (substring (shell-command-to-string "opam config var share") 0 -1)) -(add-to-list 'load-path (concat opam-share "/emacs/site-lisp")) -(require 'ott-mode) -``` - -### Visual Studio Code - -There is a [plugin for VSCode](https://marketplace.visualstudio.com/items?itemName=JoeyEremondi.ott), which features syntax highlighting and inline error reporting. - -## Mailing lists - -* [cl-ott-announce announcement mailing list](https://lists.cam.ac.uk/mailman/listinfo/cl-ott-announce) -* [cl-ott-discuss discussion mailing list](https://lists.cam.ac.uk/mailman/listinfo/cl-ott-discuss) - -## Web page with examples - -* [here](http://www.cl.cam.ac.uk/users/pes20/ott) - -## Copyright information - -The ocamlgraph library is distributed under the LGPL (from -http://www.lri.fr/~filliatr/ftp/ocamlgraph/); we include a snapshot -for convenience. For its authorship and copyright information see the -files therein. - -All other files are distributed under the BSD-style licence in LICENCE. diff --git a/vendors/ott/aux/y2l/0README_FIRST b/vendors/ott/aux/y2l/0README_FIRST deleted file mode 100644 index 327ac24fda50..000000000000 --- a/vendors/ott/aux/y2l/0README_FIRST +++ /dev/null @@ -1,11 +0,0 @@ -This is y2l 1.0, downloaded from - -http://www.alchar.org/~aedil/Projects/y2l.html#download -http://y2l.sourceforge.net/download/y2l.tar.gz - -by Keith Wansbrough on 2004-08-06. - -It is an external program; don't modify it, just use it. It's here -for our convenience. - - diff --git a/vendors/ott/aux/y2l/Artistic b/vendors/ott/aux/y2l/Artistic deleted file mode 100644 index 4ffc78e97079..000000000000 --- a/vendors/ott/aux/y2l/Artistic +++ /dev/null @@ -1,125 +0,0 @@ - The "Artistic License" - - Preamble - -The intent of this document is to state the conditions under which a -Package may be copied, such that the Copyright Holder maintains some -semblance of artistic control over the development of the Package, -while giving the users of the package the right to use and distribute -the Package in a more-or-less customary fashion, plus the right to make -reasonable modifications. - -It also grants you the rights to reuse parts of a Package in your own -programs without transferring this License to those programs, provided -that you meet some reasonable requirements. - -Definitions: - - "Package" refers to the collection of files distributed by the - Copyright Holder, and derivatives of that collection of files - created through textual modification. - - "Standard Version" refers to such a Package if it has not been - modified, or has been modified in accordance with the wishes - of the Copyright Holder as specified below. - - "Copyright Holder" is whoever is named in the copyright or - copyrights for the package. - - "You" is you, if you're thinking about copying or distributing - this Package. - - "Reasonable copying fee" is whatever you can justify on the - basis of media cost, duplication charges, time of people involved, - and so on. (You will not be required to justify it to the - Copyright Holder, but only to the computing community at large - as a market that must bear the fee.) - - "Freely Available" means that no fee is charged for the item - itself, though there may be fees involved in handling the item. - It also means that recipients of the item may redistribute it - under the same conditions they received it. - -1. You may make and give away verbatim copies of the source form of the -Standard Version of this Package without restriction, provided that you -duplicate all of the original copyright notices and associated disclaimers. - -2. You may apply bug fixes, portability fixes and other modifications -derived from the Public Domain or from the Copyright Holder. A Package -modified in such a way shall still be considered the Standard Version. - -3. You may otherwise modify your copy of this Package in any way, provided -that you insert a prominent notice in each changed file stating how and -when you changed that file, and provided that you do at least ONE of the -following: - - a) place your modifications in the Public Domain or otherwise make them - Freely Available, such as by posting said modifications to Usenet or - an equivalent medium, or placing the modifications on a major archive - site such as uunet.uu.net, or by allowing the Copyright Holder to include - your modifications in the Standard Version of the Package. - - b) use the modified Package only within your corporation or organization. - - c) rename any non-standard executables so the names do not conflict - with standard executables, which must also be provided, and provide - a separate manual page for each non-standard executable that clearly - documents how it differs from the Standard Version. - - d) make other distribution arrangements with the Copyright Holder. - -4. You may distribute the programs of this Package in object code or -executable form, provided that you do at least ONE of the following: - - a) distribute a Standard Version of the executables and library files, - together with instructions (in the manual page or equivalent) on where - to get the Standard Version. - - b) accompany the distribution with the machine-readable source of - the Package with your modifications. - - c) give non-standard executables non-standard names, and clearly - document the differences in manual pages (or equivalent), together - with instructions on where to get the Standard Version. - - d) make other distribution arrangements with the Copyright Holder. - -5. You may charge a reasonable copying fee for any distribution of this -Package. You may charge any fee you choose for support of this -Package. You may not charge a fee for this Package itself. However, -you may distribute this Package in aggregate with other (possibly -commercial) programs as part of a larger (possibly commercial) software -distribution provided that you do not advertise this Package as a -product of your own. - -6. The scripts and library files supplied as input to or produced as -output from the programs of this Package do not automatically fall -under the copyright of this Package, but belong to whomever generated -them, and may be sold commercially, and may be aggregated with this -Package. If such scripts or library files are aggregated with this -Package via the so-called "undump" or "unexec" methods of producing a -binary executable image, then distribution of such an image shall -neither be construed as a distribution of this Package nor shall it -fall under the restrictions of Paragraphs 3 and 4, provided that you do -not represent such an executable image as a Standard Version of this -Package. - -7. You may reuse parts of this Package in your own programs, provided that -you explicitly state where you got them from, in the source code (and, left -to your courtesy, in the documentation), duplicating all the associated -copyright notices and disclaimers. Besides your changes, if any, must be -clearly marked as such. Parts reused that way will no longer fall under this -license if, and only if, the name of your program(s) have no immediate -connection with the name of the Package itself or its associated programs. -You may then apply whatever restrictions you wish on the reused parts or -choose to place them in the Public Domain--this will apply only within the -context of your package. - -8. The name of the Copyright Holder may not be used to endorse or promote -products derived from this software without specific prior written permission. - -9. THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR -IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED -WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. - - The End diff --git a/vendors/ott/aux/y2l/README b/vendors/ott/aux/y2l/README deleted file mode 100644 index 159a99523e52..000000000000 --- a/vendors/ott/aux/y2l/README +++ /dev/null @@ -1,82 +0,0 @@ - - Yacc to LaTeX - _________________________________________________________________ - -Contents - - * What is y2l? - * What is the purpose of y2l? - * What about portability? - * Where to download y2l? - * How to use y2l? - - The master copy of this document is available at the following URL: - http://www.alchar.org/~aedil/Projects/y2l.html. - -What is y2l? - - The Yacc to LaTeX utility takes (hopefully) any yacc source file, and - derives an Extended Backus-Naur Form (EBNF) description from it. This - EBNF is written out as LaTeX source. The output is a LaTeX "longtable" - environment, that can be included in any LaTeX document, typically - using an \input{} statement. - -What is the purpose of y2l? - - Questions about the purpose of things are so common, so here is the - answer to this very frequently asked question. When designing Abyss, I - found that I was continuously updating the grammar in two places. The - yacc description was of course the final authority. But I made it a - point to ensure that I would have decent and up-to-date documentation - for the language. Which led to the first incarnation of y2l. - - Then came the well known moment of truth when that first version was - used to try and generate an EBNF description for someone else's - grammar. That failed quite miserably because of implicit dependencies - on the format of the Abyss grammar description. A new y2l was written, - based around a strict yacc source file parser. It is designed to be - able to turn any yacc source file into an EBNF description, yet it - might choke on some Bison source files, because of large liberties the - authors of Bison have taken compared to the "original" yacc. This is - considered to be a "known bug" and might be solved in the future. - -What about portability? - - How portable is this little utility? Well, it's pretty portable in the - sense that is has been written in good ol' AWK! As long as you have a - machine with a sensible AWK (such as Gawk, or the one true AWK on - Brian Kernighan's homepage (http://plan9.bell-labs.com/cm/cs/who/bwk), - it will work. - - You may have to manually update the first line of the y2l script to - point to the proper AWK executable on your system. Not every system - has a sensible AWK as /usr/bin/awk! - -Where to download y2l? - - The latest release of y2l is available here for download - (http://y2l.sourceforge.net/download/y2l.tar.gz). - - The PGP signature for y2l is available at - http://y2l.sourceforge.net/download/y2l.tar.gz.asc. The signing key - can be found at the author's homepage (http://www.alchar.org/~aedil/). - - Anonymous read-only CVS access is available from SourceForge. Follow - these easy steps: - * cvs -d:pserver:anonymous@cvs.y2l.sourceforge.net:/cvsroot/y2l - login - * cvs -d:pserver:anonymous@cvs.y2l.sourceforge.net:/cvsroot/y2l co - y2l - * cvs update - You can use this in the y2l directory any time you wish to update - your local copy against the CVS repository. - -How to use y2l? - - The y2l manual is included in the distribution in Unix manpage format - and as an HTML file. The link in this section will bring you to the - most current HTML version of the y2l manual. - _________________________________________________________________ - - Last modified: Mar 7th, 2000 - ©1995-2000 by Aedil diff --git a/vendors/ott/aux/y2l/y2l b/vendors/ott/aux/y2l/y2l deleted file mode 100755 index 1c24dab2b755..000000000000 --- a/vendors/ott/aux/y2l/y2l +++ /dev/null @@ -1,1151 +0,0 @@ -#!/usr/bin/awk -f - -############################################################################### -# -# FILE: y2l -# DESCRIPTION: Yacc-to-LaTeX grammar processor -# -# Copyright (c) 1994-2000 by Kris Van Hees, Belgium. All rights reserved. -# See the "Artistic License" included in this package (file: "Artistic") for -# terms and conditions. -# -# $Id: y2l,v 1.4 2004/08/06 18:02:51 fz212 Exp $ -# -############################################################################### - -# -# Reserved variables: -# _debug Debug level -# _exit Exiting due to an error -# _line Current line being processed -# _spclen Length of string holding padding spaces -# _spcstr String to hold padding spaces -# - -############################################################################### -# Support functions -############################################################################### - -# -# NAME: SPACES() -# DESCRIPTION: return a given number of spaces -# -function SPACES(snum) { - if (!_spclen) { # uninitialized (first use) - _spcstr = " "; - _spclen = 1; - } - - while (_spclen < snum) { # extend the string of spaces - _spcstr = _spcstr _spcstr; # double the spaces - _spclen *= 2; # update the string length - } - - return substr(_spcstr, 1, snum); # requested number of spaces -} - -# -# NAME: DBG() -# DESCRIPTION: write debug output to standard error (if debugging is enabled) -# -function DBG(dlvl, dmsg) { - if (!_debug) # debugging is disabled - return; - - print "DBG:" SPACES(dlvl * 2 + 1) dmsg >"/dev/stderr"; -} - -# -# NAME: error() -# DESCRIPTION: write an error message to standard error -# -function error(emsg) { - print "ERROR: " emsg >"/dev/stderr"; - - if (_line) - print " Line is (on or about) " _line >"/dev/stderr"; - - _exit = 1; # mark program as exiting - exit; -} - -# -# NAME: exiting() -# DESCRIPTION: return whether the program is exiting -# -function exiting() { - return _exit; # exit status -} - -# -# NAME: exists() -# DESCRIPTION: return whether a file exists -# -function exists(fname) { - return !system("ls " fname " >/dev/null 2>&1"); -} - -############################################################################### -# Yacc-to-LaTeX initialization -############################################################################### - -# -# NAME: init() -# DESCRIPTION: initialization -# -function init() { - PERC_PERC = 257; - PERC_LACC = 258; - PERC_RACC = 259; - PERC_LEFT = 260; - PERC_ASSC = 261; - PERC_RGHT = 262; - PERC_STRT = 263; - PERC_TOKN = 264; - PERC_TYPE = 265; - PERC_UNIO = 266; - PERC_PREC = 267; - - CHAR = 268; - IDENT = 269; - STRING = 270; - TYPE = 271; - - EOF = -1; - BAD = -2; - - reserved["%%"] = PERC_PERC; - reserved["%{"] = PERC_LACC; - reserved["%}"] = PERC_RACC; - reserved["%left"] = PERC_LEFT; - reserved["%nonassoc"] = PERC_ASSC; - reserved["%right"] = PERC_RGHT; - reserved["%start"] = PERC_STRT; - reserved["%token"] = PERC_TOKN; - reserved["%type"] = PERC_TYPE; - reserved["%union"] = PERC_UNIO; - reserved["%prec"] = PERC_PREC; -} - -############################################################################### -# Yacc-to-LaTeX processor functions -############################################################################### - -# -# NAME: token() -# DESCRIPTION: verify whether something is a valid token -# -function token(tokname) { - return tokname ~ /^[_\.A-Za-z][_\.A-Za-z0-9]*$/; -} - -# -# NAME: read() -# DESCRIPTION: read another (non-blank) line from the input file -# -function read() { - while (getline < grammar_file == 1) { - _line++; - - if ($1 != "") - return; - } - - return grammar_eof = 1; -} - -# -# NAME: skip_ws() -# DESCRIPTION: skip a continuous block of whitespace -# -function skip_ws() { - in_comment = 0; - - while (!grammar_eof) { - sub(/^[ \t]+/, ""); # remove leading whitespace - - if ($1 != "") { - if (/^\/\//) { # C++ comment - $0 = ""; - } else if (in_comment) { # in a comment - if (match($0, /\*\//)) { # end of a comment - $0 = substr($0, RSTART + RLENGTH); - in_comment = 0; - } else - $0 = ""; - } else if (/^\/\*"[^"]+"\*\//) { # special marker - sub(/\/\*"/, "\""); - sub(/"\*\//, "\""); - - return; - } else if (/^\/\*/) { # regular comment - $0 = substr($0, 3); - in_comment = 1; - } else - return; - - sub(/[ \t]+$/, ""); # remove trailing whitespace - } - - if ($1 == "") - read(); - } -} - -# -# NAME: lex() -# DESCRIPTION: read the next token from the input -# -function lex() { - if (tok_prev) { - tok = tok_prev; - tok_str = tok_pstr; - tok_prev = 0; - - return tok; - } - - skip_ws(); - - if (grammar_eof) - return EOF; - - if (/^%/) - if (match($0, /^%(%|{|}|left|nonassoc|right|start|token|type|union)/)) { - tok_str = substr($0, 1, RLENGTH); - $0 = substr($0, RLENGTH + 1); - - return reserved[tok_str]; - } else if (match($0, /^%[_A-Za-z][_A-Za-z0-9]*/)) { - tok_str = substr($0, 1, RLENGTH); - $0 = substr($0, RLENGTH + 1); - - return BAD; - } - - if (match($0, /^[_\.A-Za-z][_\.A-zA-z0-9]*/)) { - tok_str = substr($0, 1, RLENGTH); - $0 = substr($0, RLENGTH + 1); - - return IDENT; - } - - if (match($0, /^<[_\.A-Za-z][_\.A-zA-z0-9]*>/)) { - tok_str = substr($0, 1, RLENGTH); - $0 = substr($0, RLENGTH + 1); - - return TYPE; - } - - if (/^'/) - if (match($0, /^'(.|\\([tnarfbv\\'"]|[0-7][0-7]*))'/)) { - tok_str = "@C" (consts++); - transtab[tok_str] = "\"" substr($0, 2, RLENGTH - 2) "\""; - $0 = substr($0, RLENGTH + 1); - - return CHAR; - } else - error("Excuse me, but this character constant is a bit weird."); - - if (/^"/) - if (match($0, /([^\\]|[ \t]+)(\\\\)*"/)) { - tok_str = "@S" (strings++); - transtab[tok_str] = substr($0, 1, RSTART + RLENGTH - 1); - $0 = substr($0, RSTART + RLENGTH); - - return STRING; - } else - error("Newlines in strings are interesting, but not allowed."); - - tok_str = substr($0, 1, 1); - $0 = substr($0, 2); - - return tok_str; -} - -# -# NAME: unlex() -# DESCRIPTION: return a token to the input stream -# -function unlex(tok) { - tok_prev = tok; - tok_pstr = tok_str; -} - -# -# NAME: skip_definition() -# DESCRIPTION: skip the contents of a %{ ... %} block -# -function skip_definition() { - do { - skip = lex(); - } while (skip != PERC_RACC && skip != EOF); -} - -# -# NAME: decl_token() -# DESCRIPTION: read a token declaration -# -function decl_token() { - first = 1; - - do { - tok = lex(); - - if (tok == ",") { - symbol = 0; - } else if (tok == CHAR) { - DBG(1, transtab[tok_str] ": No need to remember this token."); - } else if (tok == IDENT) { - if (_tkpat && tok_str !~ _tkpat) { - if (transtab[tok_str]) - DBG(2, "WARNING: Redefining '" tok_str "'."); - - transtab[tok_str] = "\"" tolower(tok_str) "\""; - DBG(1, tok_str ": Defined as " transtab[tok_str] "."); - } - - symbol = tok_str; - } else if (tok == NUMBER) { - if (!symbol) - error("How about giving a token first?"); - - symbol = 0; - } else if (tok == STRING) { - if (!symbol) - error("How about giving a token first?"); - - str = transtab[tok_str]; - transtab[symbol] = "\"" substr(str, 2, length(str) - 2) "\""; - DBG(1, SPACES(length(symbol) + 2) \ - "Defined as " transtab[symbol] "."); - - symbol = 0; - } else if (tok == TYPE) { - if (!first) - error("This is no place for a type name."); - } else { - unlex(tok); - return; - } - - first = 0; - } while (tok != EOF); -} - -# -# NAME: decl_start() -# DESCRIPTION: read a start rule declaration -# -function decl_start() { - if (grammar_start) - error("Hm, you want the grammar to start with two rules?"); - else if (lex() == IDENT) { - grammar_start = tok_str; - DBG(2, "The grammar start rule is '" grammar_start "'."); - } else - error("How about a nice juicy identifier?"); -} - -# -# NAME: decl_type() -# DESCRIPTION: read a type declaration -# -function decl_type() { - if (lex() != TYPE) - error("So where is the typename?"); - - do { - tok = lex(); - - if (tok == ",") { - symbol = 0; - } else if (tok == CHAR) { - error("Bison etc may accept literals in a %type declaration, " \ - "but the Unix 7th\n Ed manual clearly indicates " \ - "that it is NOT legal. And I think that the\n Bell " \ - "Labs guys know what they are talking about; but anyway, " \ - "do you\n really spend the time reading this long " \ - "error message?"); - } else if (tok == IDENT) { - if (_tkpat && tok_str !~ _tkpat) { - if (transtab[tok_str]) - DBG(2, "WARNING: Redefining '" tok_str "'."); - - transtab[tok_str] = "\"" tolower(tok_str) "\""; - DBG(1, tok_str ": Defined as " transtab[tok_str] "."); - } - - symbol = tok_str; - } else if (tok == NUMBER) { - if (!symbol) - error("How about giving a token first?"); - - symbol = 0; - } else if (tok == STRING) { - if (!symbol) - error("How about giving a token first?"); - - str = transtab[tok_str]; - transtab[symbol] = "\"" substr(str, 2, length(str) - 2) "\""; - DBG(1, SPACES(length(symbol) + 2) \ - "Defined as " transtab[symbol] "."); - - symbol = 0; - } else { - unlex(tok); - return; - } - } while (tok != EOF); -} - -# -# NAME: decl_union() -# DESCRIPTION: read a union declaration -# -function decl_union() { - if (grammar_union) - error("How about sticking to one single union declaration?"); - - grammar_union = 1; - DBG(2, "Extended types have been registered with a union declaration."); - - do { - tok = lex(); - - if (tok == "{") - block++; - else if (tok == "}") { - if (!block) - error("Why close an unopened block?"); - if (--block <= 0) - return; - } else if (tok == EOF) - error("The file ends before the union is finished. How rude!"); - } while (1); -} - -# -# NAME: read_declarations() -# DESCRIPTION: read the yacc declarations -# -function read_declarations() { - do { - tok = lex(); # next token - - if (tok == PERC_PERC || tok == EOF) # end of the declarations - return; - if (tok == PERC_LACC) { # definition block - skip_definition(); - } else if (tok == PERC_LEFT) { # left associative declaration - decl_token(); - } else if (tok == PERC_ASSC) { # non-associative declaration - decl_token(); - } else if (tok == PERC_RGHT) { # right associative declaration - decl_token(); - } else if (tok == PERC_STRT) { # start rule declaration - decl_start(); - } else if (tok == PERC_TOKN) { # token declaration(s) - decl_token(); - } else if (tok == PERC_TYPE) { # type declaration - decl_type(); - } else if (tok == PERC_UNIO) { # union declaration - decl_union(); - } else - DBG(2, "WARNING: Ignoring the unknown token '" tok_str "'."); - } while (1); -} - -# -# NAME: skip_action() -# DESCRIPTION: skip the contents of an action block -# -function skip_action() { - block = 1; - - do { - tok = lex(); - - if (tok == "{") - block++; - else if (tok == "}") { - if (!block) - error("Why close an unopened block?"); - if (--block <= 0) - return; - } else if (tok == EOF) - error("The file ends before the action is finished. How rude!"); - } while (tok != EOF); -} - -# -# NAME: read_grammar() -# DESCRIPTION: read the yacc grammar -# -function read_grammar() { - tok = lex(); - - do { - if (tok == PERC_PERC || tok == EOF) # end of the grammar - return; - - if (tok == IDENT) { # rule begins here - if (!(rule_idx = rule_ref[tok_str])) { - rule_idx = ++rule_cnt; # new rule - rule_lhs[rule_idx] = tok_str; - rule_ref[tok_str] = rule_idx; - rule_sub = ++rule_len[rule_idx]; - - if (!grammar_start) - grammar_start = tok_str; - } - - if (lex() != ":") - error("The LHS and RHS would like to be separated by a colon."); - } else if (tok == "|") { # alternative RHS for a rule - if (!rule_cnt) - error("The grammar shouldn't start with a |."); - - rule_sub = ++rule_len[rule_idx]; - } else - error("You could at least give a valid token."); - - rule_rhs[rule_cnt] = ""; # empty RHS - - do { # read the RHS - tok = lex(); - - if (tok == PERC_PREC) { # %prec - tok = lex(); - - if (tok != IDENT && tok != CHAR) - error("What precedence are you talking about?"); - - tok = lex(); # continue with the rest - } - - if (tok == IDENT) { # might be a new rule - old_str = tok_str; - nxt = lex(); # look ahead - unlex(nxt); - tok_str = old_str; - - if (nxt == ":") # yup, a new rule started - break; - - rule_rhs[rule_idx, rule_sub] = rule_rhs[rule_idx, rule_sub] \ - " " tok_str; - } else if (tok == CHAR) { - if (tok_str ~ /^@/) - tok_str = transtab[tok_str]; - - rule_rhs[rule_idx, rule_sub] = rule_rhs[rule_idx, rule_sub] \ - " " tok_str; - } else if (tok == "{") { # an action block - skip_action(); - } else # can't be part of a rule - break; - } while (1); - - sub(/^ /, "", rule_rhs[rule_idx, rule_sub]); - - if (rule_rhs[rule_idx, rule_sub] ~ \ - /(^|[^_\.A-Za-z0-9])error($|[^_\.A-Za-z0-9])/) { - DBG(1, rule_lhs[rule_idx] ": " rule_rhs[rule_idx, rule_sub] \ - " [IGNORED]"); - - rule_rhs[rule_idx, rule_sub] = ""; - rule_len[rule_idx]--; - } else - DBG(1, rule_lhs[rule_idx] ": " rule_rhs[rule_idx, rule_sub]); - - if (tok == ";") - tok = lex(); - } while (1); -} - -# -# NAME: is_optional() -# DESCRIPTION: check whether the given non-terminal is optional -# -function is_optional(idx) { - if ((len = rule_len[idx]) <= 1) - return 0; - - # - # One or more empty rules for a non-terminal indicate that the other rules - # are in fact optional. There shouldn't be multiple empty rules, but it is - # is technically possible. - # - for (rule_sub = 1; rule_sub <= len; rule_sub++) - if (rule_rhs[idx, rule_sub] == "") { - while (++rule_sub <= len) - rule_rhs[idx, rule_sub - 1] = rule_rhs[idx, rule_sub]; - - rule_len[idx]--; - } - - return rule_len[idx] < len; -} - -# -# NAME: get_prefix() -# DESCRIPTION: check whether the given non-terminal has a common prefix -# -function get_prefix(idx) { - if ((len = rule_len[idx]) <= 1) - return 0; - - # - # Split up the first rule into tokens. These will be compared with all the - # other rules for this non-terminal. - # - gp_last = split(rule_rhs[idx, 1], arr); - gp_pref = gp_last; - - # - # Look for the longest common prefix. - # - for (rule_sub = 2; rule_sub <= len; rule_sub++) { - $0 = rule_rhs[idx, rule_sub]; - gp_tokc = NF; - - if (gp_tokc < gp_pref) - gp_pref = gp_tokc; - - for (j = 1; j <= gp_pref; j++) - if (arr[j] != $j) { - if (!(gp_pref = j - 1)) - return 0; - - break; - } - } - - # - # Construct the prefix string. - # - gp_pstr = arr[1]; - for (j = 2; j <= gp_pref; j++) - gp_pstr = gp_pstr " " arr[j]; - - # - # Remove the common prefix from all rules for this non-terminal. - # - for (rule_sub = 1; rule_sub <= len; rule_sub++) { - $0 = rule_rhs[idx, rule_sub]; - - for (j = 1; j <= gp_pref; j++) - $j = ""; - - sub(/^ +/, ""); - rule_rhs[idx, rule_sub] = $0; - } - - return gp_pstr; -} - -# -# NAME: get_suffix() -# DESCRIPTION: check whether the given non-terminal has a common suffix -# -function get_suffix(idx) { - if ((len = rule_len[idx]) <= 1) - return 0; - - # - # Split up the first rule into tokens. These will be compared with all the - # other rules for this non-terminal. - # - gs_last = split(rule_rhs[idx, 1], arr); - gs_suff = gs_last; - - # - # Look for the longest common suffix. - # - for (rule_sub = 2; rule_sub <= len; rule_sub++) { - $0 = rule_rhs[idx, rule_sub]; - gs_tokc = NF; - - if (gs_tokc < gs_suff) - gs_suff = gs_tokc; - - for (j = 0; j < gs_suff; j++) - if (arr[gs_last - j] != $(gs_tokc - j)) { - if (!(gs_suff = j)) - return 0; - - break; - } - } - - # - # Construct the suffix string. - # - gs_sstr = arr[gs_last]; - for (j = 1; j < gs_suff; j++) - gs_sstr = arr[gs_last - j] " " gs_sstr; - - # - # Remove the common suffix from all rules for this non-terminal. - # - for (rule_sub = 1; rule_sub <= len; rule_sub++) { - $0 = rule_rhs[idx, rule_sub]; - - for (j = 0; j < gs_suff; j++) - $(NF - j) = ""; - - sub(/ +$/, ""); - rule_rhs[idx, rule_sub] = $0; - } - - return gs_sstr; -} - -# -# NAME: optimize1() -# DESCRIPTION: first pass of the optimizer -# -function optimize1() { - DBG(0, "Optimization pass 1..."); - - for (rule_idx = 1; rule_idx <= rule_cnt; rule_idx++) { - # - # Non-terminals with only a single rule can't be optimized here. - # - if ((len = rule_len[rule_idx]) <= 1) - continue; - - # - # First record whether the entire non-terminal might be optional. - # - rule_opt[rule_idx] = is_optional(rule_idx); - - # - # The actual optimization takes place in this endless loop. It will in - # fact end when an iteration does not yield an optional ruleset. This - # is a proper and correct stop criteria, since a non-optional ruleset - # cannot have any common prefix or suffix. If it did, those would have - # been added to the already present prefix or suffix. - # - pref = ""; - suff = ""; - do { - if (pstr = get_prefix(rule_idx)) - pref = pref " " pstr; - else if (sstr = get_suffix(rule_idx)) - suff = sstr " " suff; - - if (is_optional(rule_idx)) { - pref = pref " ["; - suff = "] " suff; - } else { - if (pstr || sstr) { - pref = pref " ("; - suff = ") " suff; - } - - break; - } - } while (1); - - # - # Compose the single composite rule for this non-terminal, if a common - # prefix or suffix was found. - # - if (pref != "" || suff != "") { - sub(/^ /, "", pref); - sub(/ $/, "", suff); - - DBG(2, "Rules for '" rule_lhs[rule_idx] "' have:"); - - if (pref != "") - DBG(3, "Prefix '" pref "'"); - if (suff != "") - DBG(3, "Suffix '" suff "'"); - - len = rule_len[rule_idx]; - pref = pref " " rule_rhs[rule_idx, 1]; - - for (rule_sub = 2; rule_sub <= len; rule_sub++) - pref = pref " | " rule_rhs[rule_idx, rule_sub]; - - rule_rhs[rule_idx, 1] = pref " " suff; - rule_len[rule_idx] = 1; - - DBG(3, "Combined rule '" rule_rhs[rule_idx, 1] "'"); - - if (rule_opt[rule_idx]) - DBG(3, "(The non-terminal is optional.)"); - } - } -} - -# -# NAME: optimize2() -# DESCRIPTION: second pass of the optimizer -# -function optimize2() { - DBG(0, "Optimization pass 2..."); - - for (rule_idx = 1; rule_idx <= rule_cnt; rule_idx++) { - $0 = rule_rhs[rule_idx, 1]; - - if ((len = rule_len[rule_idx]) > 1) - for (rule_sub = 2; rule_sub <= len; rule_sub++) - $0 = $0 " | " rule_rhs[rule_idx, rule_sub]; - - if ($1 != "[" && rule_opt[rule_idx]) { - $0 = "[ " $0 " ]"; - rule_opt[rule_idx] = 0; - } - - if ($1 == "[") - if ($2 == rule_lhs[rule_idx]) { - for (i = NF; i > 0; i--) - if ($i == "]") - break; - - if ((NF - i) < 3) { - $1 = ""; - subst = "{"; - $i = "}"; - - while (++i <= NF) - subst = subst " " $i; - - $2 = subst; - - sub(/^ +/, ""); - } - } - - if ($NF == "]") - if ($(NF - 1) == rule_lhs[rule_idx]) { - for (i = 1; i <= NF; i++) - if ($i == "[") - break; - - if (i < 3) { - $i = "{"; - subst = "}"; - $NF = ""; - - while (--i > 0) - subst = $i " " subst; - - $(NF - 1) = subst; - - sub(/ +$/, ""); - } - } - - if (rule_opt[rule_idx]) { - $0 = "[ " $0 " ]"; - rule_opt[rule_idx] = 0; - } - - rule_rhs[rule_idx, 1] = $0; - rule_len[rule_idx] = 1; - } -} - -# -# NAME: latexify() -# DESCRIPTION: make substitutions to ensure that the string is LaTeX ok -# -function latexify(txt) { - gsub(/[{&%}]/, "\\\\&", txt); - gsub(/!/, "!\\@", txt); - gsub(/\|/, "\\textbar{}", txt); - gsub(/\*/, "\\textasteriskcentered{}", txt); - gsub(//, "\\textgreater{}", txt); - gsub(/"[^"]+"/, "\\token{&}", txt); - gsub(/_/, "\\textunderscore{}", txt); - gsub(/\^/, "\\textasciicircum{}", txt); - gsub(/"/, "", txt); - - return txt; -} - -# -# NAME: break_string() -# DESCRIPTION: possibly break up a string in multiple lines -# -function break_string(str) { - match(str, /^([_A-Za-z][_A-Za-z0-9]* +| +)(::=|\|)/); - bs_len = RLENGTH; - bs_str = substr(str, 1, RLENGTH); - bs_pln = RLENGTH; - bs_pre = SPACES(RLENGTH); - - $0 = substr(str, RLENGTH + 2); - for (i = 1; i <= NF; i++) { - if (bs_len + 1 + length($i) > 79) { - bs_str = bs_str "\n" bs_pre; - bs_len = bs_pln; - } - - bs_str = bs_str " " $i; - bs_len += 1 + length($i); - } - - return bs_str; -} - -# -# NAME: output() -# DESCRIPTION: write out the rewritten rules -# -function output(LaTeX) { - rule_use[grammar_start] = 1; - - for (rule_idx = 1; rule_idx <= rule_cnt; rule_idx++) { - len = rule_len[rule_idx]; - - if (rule_opt[rule_idx]) { - rule_rhs[rule_idx, 1] = "[ " rule_rhs[rule_idx, 1]; - rule_rhs[rule_idx, len] = rule_rhs[rule_idx, len] " ]"; - } - - str = LaTeX ? latexify(rule_lhs[rule_idx]) \ - : rule_lhs[rule_idx]; - - if (length(str) > rule_max) { - rule_max = length(str); - rule_mls = str; - } - - for (rule_sub = 1; rule_sub <= len; rule_sub++) { - $0 = rule_rhs[rule_idx, rule_sub]; - - for (j = 1; j <= NF; j++) { - # - # A couple of notes here... Non-terminals that merely have a - # single terminal as definition are substituted anywhere they - # are used. And some special casing is needed for situations - # where someone actually defines the non-terminals as tokens. - # Those should definitely not be quotated. - # - if ((idx = rule_ref[$j]) && - rule_len[$j] == 1 && rule_rhs[idx, 1] ~ /^[^ ]+$/) - $j = rule_rhs[idx, 1]; - else if ((str = transtab[$j]) && !rule_ref[$j]) - $j = str; - - rule_use[$j] = 1; - } - - rule_rhs[rule_idx, rule_sub] = $0; - } - } - - if (LaTeX) - # - # Some LaTeX magic... We calculate the available size for the RHS of - # the rules. This will be provided as argument to the minipages used - # for each independent rule. - # - # The formula is fairly easy: - # textwidth - width(LHS) - width("::=") - 6 * tabcolsep - # - print "\\settowidth\\rulelhs{" rule_mls "}\n" \ - "\\settowidth\\rulemid{::=}\n" \ - "\\setlength\\rulerhs{\\textwidth}\n" \ - "\\addtolength\\rulerhs{-\\rulelhs}\n" \ - "\\addtolength\\rulerhs{-\\rulemid}\n" \ - "\\addtolength\\rulerhs{-6\\tabcolsep}\n\n" \ - "\\addtolength\\rulerhs{-5.5em}\n\n" \ - "\\begin{longtable}{lrl}"; - - for (rule_idx = 1; rule_idx <= rule_cnt; rule_idx++) { - if (!rule_use[rule_lhs[rule_idx]]) - continue; - - len = rule_len[rule_idx]; - - for (rule_sub = 1; rule_sub <= len; rule_sub++) { - if (LaTeX) { - str = latexify(rule_lhs[rule_idx]); - out = str SPACES(rule_max - length(str)) " & ::= &\n" \ - " \\begin{minipage}[t]{\\rulerhs}\n" \ - " \\raggedright\n "; - } else { - str = rule_lhs[rule_idx]; - out = str SPACES(rule_max - length(str)) " ::= "; - } - - rhs = rule_rhs[rule_idx, rule_sub]; - lvl = 0; - - while (match(rhs, /(^[\(\{\[] | [\(\{\[\|\]\}\)] | [\]\}\)]$)/)) { - o_beg = RSTART; - o_len = RLENGTH; - - if (substr(rhs, o_beg) ~ /(^[\(\{\[] | [\(\{\[] )/) { - lvl++; - - str = LaTeX ? latexify(substr(rhs, 1, o_beg + o_len - 1)) \ - : substr(rhs, 1, o_beg + o_len - 1); - - out = out str; - rhs = substr(rhs, o_beg + o_len); - } else if (substr(rhs, o_beg) ~ /( [\]\}\)] | [\]\}\)]$)/) { - lvl--; - - str = LaTeX ? latexify(substr(rhs, 1, o_beg + o_len - 1)) \ - : substr(rhs, 1, o_beg + o_len - 1); - - out = out str; - rhs = substr(rhs, o_beg + o_len); - } else if (substr(rhs, o_beg + 1, 1) == "|") { - if (lvl) { - out = out substr(rhs, 1, o_beg + o_len - 1); - rhs = substr(rhs, o_beg + o_len); - } else { - if (LaTeX) { - str = latexify(substr(rhs, 1, o_beg - 1)); - - print out str \ - SPACES(64 - rule_max - length(str)) "\n" \ - " \\end{minipage}" SPACES(60) " \\\\"; - - out = SPACES(rule_max) " & $|$ &\n" \ - " \\begin{minipage}[t]{\\rulerhs}\n" \ - " \\raggedright\n "; - } else { - print break_string(out substr(rhs, 1, o_beg - 1)); - - out = SPACES(rule_max + 1) " | "; - } - - rhs = substr(rhs, o_beg + o_len); - } - } - } - - if (LaTeX) { - str = latexify(rhs); - - print out str SPACES(76 - length(out) - length(str)) "\n" \ - " \\end{minipage}" SPACES(60) " \\\\"; - } else - print break_string(out rhs); - } - } - - if (LaTeX) - print "\\end{longtable}"; -} - -# -# NAME: process() -# DESCRIPTION: process a given yacc grammar definition file -# -function process(grammar_file) { - if (!exists(grammar_file)) - error("So where exactly is this file?"); - - DBG(0, "Reading grammar from '" grammar_file "'."); - - read_declarations(); - read_grammar(); - - if (_optim >= 1) - optimize1(); - if (_optim >= 2) - optimize2(); - - output(!_plain); -} - -# -# NAME: load_tokens() -# DESCRIPTION: load a list of literal tokens from a file -# -function load_tokens(file) { - while (getline < file == 1) - transtab[$1] = "\"" $2 "\""; - - close(file); -} - -# -# NAME: give_help() -# DISCRIPTION: offer some help to the poor user -# -function give_help() { - print "Usage: y2l -- [options] yacc-file\n" \ - "Options:\n" \ - " -d\n" \ - "\tWrite debugging output to the standard error stream. One can\n"\ - "\tsupply a numeric argument to this option to set an indentation\n"\ - "\tlevel for the messages.\n" \ - " -h\n" \ - "\tDisplay this help information.\n" \ - " -O, -O[012]\n"u \ - "\tOptimize the grammar to get more typical EBNF. If no argument\n"\ - "\tis provided, the highest optimization level is selected.\n" \ - " -p\n" \ - "\tGive basic ASCII output rather than LaTeX output.\n" \ - " -t/regexp/, -tfile\n" \ - "\tIn the first form, the regular expression is used to decide\n" \ - "\twhether a terminal in the grammar is a real token or rather a\n" \ - "\tliteral. The second variant specifies a file which contains\n" \ - "\tlines listing a token and the literal it represents.\n" \ - " -v\n" \ - "\tPrint out version information."; - exit; -} - -# -# All processing is done from the BEGIN block. The one and only mandatory -# argument to the program is passed on to the grammar processor. -# -BEGIN { - _debug = 0; # no debugging - _optim = 0; # no optimization - _plain = 0; # no plain output - _tkpat = 0; # no token pattern - - _bannr = "Yacc-to-LaTeX grammar processor v1.0"; - - for (i = 1; i < ARGC; i++) # loop over all arguments - if (ARGV[i] ~ /^-d$/) # debugging - _debug = 1; - else if (ARGV[i] ~ /^-h$/) # help the user - give_help(); - else if (ARGV[i] ~ /^-O([012]|$)/) # optimization level - if (length(ARGV[i]) > 2) - _optim = substr(ARGV[i], 3, 1); - else - _optim = 1; # default optimization level - else if (ARGV[i] ~ /^-p$/) # non-LaTeX output - _plain = 1; - else if (ARGV[i] ~ /^-t/) # regexp or file for tokens - if (ARGV[i] ~ /^-t(\/\^|\/)[_\.A-Za-z][_\.A-zA-z0-9]*(\/|\$\/)$/) { - l = length(ARGV[i]); - _tkpat = substr(ARGV[i], 4, l - 4); - } else if (exists(file = substr(ARGV[i], 3))) - load_tokens(file); - else - error("So where is the token regexp pattern or file?"); - else if (ARGV[i] ~ /^-v$/) # version - print _bannr >"/dev/stderr"; - else if (ARGV[i] ~ /^-/) # unknown option - error("Am I supposed to do something with '" ARGV[i] "'?"); - else if (grammar_file) # more than one grammar - error("How about just processing one grammar at a time?"); - else - grammar_file = ARGV[i]; # name of the grammar file - - if (!grammar_file) # no grammar file provided - error("Any particular grammar you have in mind?"); - - init(); # initialization - - process(grammar_file) # process the given grammar - - exit; -} diff --git a/vendors/ott/aux/y2l/y2l.man b/vendors/ott/aux/y2l/y2l.man deleted file mode 100644 index d5702dafe523..000000000000 --- a/vendors/ott/aux/y2l/y2l.man +++ /dev/null @@ -1,75 +0,0 @@ -.\" -.\" Copyright (c) 1994-2000 by Kris Van Hees, Belgium. All rights reserved. -.\" See the "Artistic License" included in this package (file: "Artistic") for -.\" terms and conditions. -.\" -.\" $Id: y2l.man,v 1.1 2004/08/06 10:59:29 kw217 Exp $ -.\" -.TH y2l 1 "Aedil's Utilities" "ASI" -.SH NAME -y2l \- Yacc to LaTeX grammar pretty printer -.SH SYNOPSIS -\fBy2l\fP [\fB\-\-\fP options] \fIfile\fP -.br -Options: -.br -[-d] [-h] [-O] [-O{0,1,2}] [-p] [-t{regexp,file}] [-v] -.SH DESCRIPTION -This utility takes a -.IR yacc (1) -grammar description file and generates an EBNF (Extended Backus-Naur Form) -grammar from it. By default, the output will be a -.IR LaTeX (1) -longtable environment, that can be \\input{} into any LaTeX document. Automatic -substitution of symbolic terminals can also be taken care of. Options control -whether any optimization should be done on the grammar, and whether plain ASCII -output should be generated instead. -.SH OPTIONS -.TP -.I \-d -Write out debugging information to standard error. -.TP -.I \-h -Display a short usage summary on standard output and exit. -.TP -.I \-O -Optimize the yacc grammar. This basic optimization will look for empty rules to -make non-terminals optional. It also recursively generates choice groups and -optional groups and elements based on common prefix and suffix token lists. -.TP -.I \-O0 -Turn off optimization. -.TP -.I \-O1 -This gives the same optimization as the regular -.I \-O -option. -.TP -.I \-O2 -Do basic optimization. In addition, multiple rules for the same non-terminal -are combined as a choice group. Rules that were optimized by the first phase -as optional non-terminals are converted into repetitive rules if possible. -.TP -.I \-p -Generate plain ASCII output rather than LaTeX output. -.TP -.IR \-t regexp -Use the provided regular expression to determine whether a terminal is a lexical -token rather than a literal. This is useful for grammars where literal tokens -represent string literals that differ only in that the string literals are all -lowercase versions of the token. Since this is a fairly common practise in yacc -grammars, this option ha sbeen provided. -.TP -.IR \-t file -Use the provided file as a mapping between literal tokens and the literal -strings they represent. Each line in the file should contain two identifiers: -the first one is the lexical token, and the second one is the literal string it -represents. -.TP -.I \-v -Display the program version information on standard error prior to doing any -processing. -.SH BUGS -While no known bugs seem to exist, there are probably quite a few unknown bugs. -.SH AUTHOR -Kris Van Hees diff --git a/vendors/ott/aux/y2l/y2lman.html b/vendors/ott/aux/y2l/y2lman.html deleted file mode 100644 index a0301a6ceaba..000000000000 --- a/vendors/ott/aux/y2l/y2lman.html +++ /dev/null @@ -1,103 +0,0 @@ - - - - - - y2l (1) - - -

NAME

-y2l - Yacc to LaTeX grammar pretty printer - -

SYNOPSIS

- -y2l [-- options] file
-Options:
-[-d] [-h] [-O] [-O{0,1,2}] [-p] [-t{regexp,file}] [-v] - - -

DESCRIPTION

-This utility takes a -yacc(1) -grammar description file and generates an EBNF (Extended Backus-Naur Form) -grammar from it. By default, the output will be a -LaTeX(1) -longtable environment, that can be \input{} into any LaTeX document. Automatic -substitution of symbolic terminals can also be taken care of. Options control -whether any optimization should be done on the grammar, and whether plain ASCII -output should be generated instead. - -

OPTIONS

-
-
--d -
-Write out debugging information to standard error. -
--h -
-Display a short usage summary on standard output and exit. -
--O -
-Optimize the yacc grammar. This basic optimization will look for empty rules to -make non-terminals optional. It also recursively generates choice groups and -optional groups and elements based on common prefix and suffix token lists. -
--O0 -
-Turn off optimization. -
--O1 -
-This gives the same optimization as the regular --O -option. -
--O2 -
-Do basic optimization. In addition, multiple rules for the same non-terminal -are combined as a choice group. Rules that were optimized by the first phase -as optional non-terminals are converted into repetitive rules if possible. -
--p -
-Generate plain ASCII output rather than LaTeX output. -
--tregexp -
-Use the provided regular expression to determine whether a terminal is a lexical -token rather than a literal. This is useful for grammars where literal tokens -represent string literals that differ only in that the string literals are all -lowercase versions of the token. Since this is a fairly common practise in yacc -grammars, this option ha sbeen provided. -
--tfile -
-Use the provided file as a mapping between literal tokens and the literal -strings they represent. Each line in the file should contain two identifiers: -the first one is the lexical token, and the second one is the literal string it -represents. -
--v -
-Display the program version information on standard error prior to doing any -processing. -
- -

BUGS

-While no known bugs seem to exist, there are probably quite a few unknown bugs. - -

AUTHOR

-Kris Van Hees <aedil@alchar.org> - -

- Copyright © 19994-2000 Kris Van Hees. All rights reserved. - - diff --git a/vendors/ott/built_doc/top2.html b/vendors/ott/built_doc/top2.html deleted file mode 100644 index 269633e5bf01..000000000000 --- a/vendors/ott/built_doc/top2.html +++ /dev/null @@ -1,3297 +0,0 @@ - - - -Ott: Tool Support for -Semantics -User Guide - version 0.28 - - - - - - - - - - -

Ott: Tool Support for -Semantics
-User Guide
- version 0.28 -

Peter Sewell*     Francesco Zappa Nardelli**     Scott Owens *
-with Gilles Peskine*, Tom -Ridge*,
-Susmit Sarkar*, and Rok Strniša*
- *University of Cambridge     **INRIA

-

Contents

-

1  Introduction

Ott is a tool for writing definitions of programming languages and -calculi. -It takes as input a definition of a language syntax and semantics, in -a concise and readable ASCII notation that is close to what one would -write in informal mathematics. It generates output: -

  1. -a LaTeX source file that defines commands to build a typeset version of -the definition; -
  2. a Coq version of the definition; -
  3. a HOL version of the definition; -
  4. an Isabelle/HOL version of the definition; -
  5. a Lem version of the definition; -
  6. an OCaml version of the syntax of the definition. -

-Additionally, it can be run as a filter, taking a -LaTeX/Coq/Isabelle/HOL/Lem/OCaml source file -with embedded (symbolic) terms of the defined language, parsing them and replacing -them by typeset terms.

This document is a user guide for the tool. The papers -

-give an overview of the project, including discussion of motivation, -design decisions, and related work, and one should look at that together -with this manual. The project web page -

-http://www.cl.cam.ac.uk/users/pes20/ott/ -

-links to the github source repository, with a -BSD-style licence. It also has a range of examples, including -untyped and simply typed CBV lambda calculus, ML polymorphism, various -first-order systems from Pierce’s TAPL [Pie02], the -POPLmark F<: language [ABF+05], a module system by -Leroy [Ler96, §4] (extended with a term language and an -operational semantics), the LJ Java fragment and LJAM Java module -system [SSP07], and a substantial fragment of OCaml.

Our main goal is to support work on large programming language -definitions, where the scale makes it hard to keep a definition -internally consistent, and hard to keep a tight correspondence between a -definition and implementations. -We also wish to ease rapid prototyping work with smaller calculi, -and to make it easier to exchange definitions and definition fragments -between groups. -Most simply, the tool can be used to aid completely informal LaTeX mathematics. -Here it permits the definition, and terms within proofs and -exposition, to be written in a clear, editable, ASCII notation, without LaTeX -noise. It generates good-quality typeset output. -By parsing (and so sort-checking) this input, it quickly catches a -range of simple errors, e.g. inconsistent use of judgement forms or -metavariable naming conventions. -That same input, extended with some additional data, can be used to generate formal definitions for -Coq, HOL, Isabelle, and Lem. It should thereby enable a smooth transition -between use of informal and formal mathematics. Further, the -tool can automatically generate definitions of functions for free -variables, single and multiple substitutions, subgrammar checks -(e.g. for value subgrammars), and binding auxiliary functions. -Ott supports a ‘fully concrete’ representation, sufficient -for many examples but not dealing with general alpha equivalence. -An experimental Coq backend generates definitions in locally-nameless style for a subset of the Ott metalanguage. -The OCaml backend -generates type definitions that may be useful for developing a complete -implementation of the language, together with the functions listed -above. It does not generate anything for inductively defined relations -(the various proof-assistant code extraction facilities can -sometimes be used for that). -Our focus here is on the problem of writing and editing language -definitions, not (directly) on aiding mechanized proof of metatheory. If one -is involved in hard proofs about a relatively stable small calculus -then it will aid only a small part of the work (and one might choose -instead to work just within a single proof assistant), but for larger -languages the definition is a more substantial problem — so much so -that only a handful of full-scale languages have been given complete definitions. We -aim to make this more commonplace, less of a heroic task.

-

2  Getting started with Ott (the README)

A tool for writing definitions of programming languages and calculi

by Peter Sewell, Francesco Zappa Nardelli, and Scott Owens.

-

2.1  Repository and Package

Ott is now available from -github, and as an opam package.

We no longer provide non-github tarballs or a Windows distribution.

-

2.2  Directory contents

ll - -

- - - - - - - - - - - - - - - - - - - -
directorydescription
aux/auxiliary code (y2l) used to build the user guide
bin/the Ott binary
built_doc/the user guide, in html, pdf, and ps
coq/auxiliary files for Coq
doc/the user guide sources
emacs/an Ott Emacs mode
examples/some larger example Ott files
tex/auxiliary files for LaTeX
hol/auxiliary files for HOL
menhir/auxiliary files for menhir
ocamlgraph-1.7.tar.gza copy of the ocamlgraph library
regression/regression-test machinery
tests/various small example Ott files
src/the (OCaml) Ott sources
Makefilea Makefile for the examples
LICENCEthe BSD-style licence terms
README.mdthis file (Section 2 of the user guide)
revisionhistory.txtthe revision history
-

2.3  To build

-

2.3.1  With OPAM

If you have OPAM installed on your -system, opam install ott will install the latest Ott version. -The Emacs mode will be in -‘opam config var prefix‘/share/emacs/site-lisp, and -documentation in ‘opam config var prefix‘/doc/ott.

To install the Ott auxiliary files for Coq, first activate the -coq-released OPAM repository:

opam repo add coq-released https://coq.inria.fr/opam/released

and then run opam install coq-ott.

-

2.3.2  Without OPAM

Ott depends on OCaml version 4.00.0 or later. It builds with (at least) -OCaml 4.02.3.

The command make (make world) builds the ott -binary in the bin/ subdirectory.

This will compile Ott using ocamlopt. To force it to compile -with ocamlc (which may give significantly slower execution of -Ott), do make world.byt.

To build the Ott auxiliary files for Coq, go to the coq/ -subdirectory and run make. To install the resulting files in -Coq’s user-contrib, run make install.

-

2.4  To run

Ott runs as a command-line tool. Executing bin/ott shows the -usage and options. To run Ott on the test file -tests/test10.ott, generating LaTeX in test10.tex and -Coq in test10.v, type:

bin/ott -i tests/test10.ott -o test10.tex -o test10.v

Isabelle, HOL, and Lem can be generated with options --o test10.thy, -o test10Script.sml, and --o test10.lem, respectively.

The Makefile has various sample targets, make tests/test10.out, -make test7, etc. Typically they generate:

ll - -

- - - - - - -
filenamedescription
out.texLaTeX source for a definition
out.psthe postscript built from that
out.vCoq source
outScript.smlHOL source
out.thyIsabelle source

from files test10.ott, test8.ott, etc., in -tests/.

-

2.5  Manual

-

2.6  Editor Plugins

-

2.6.1  Emacs mode

The file emacs/ott-mode.el defines a very simple Emacs mode for -syntax highlighting of Ott source files. It can be used by, for example, -adding the following to your .emacs file, replacing -PATH by a path to your Ott Emacs directory.

(setq load-path (cons (expand-file-name "PATH") load-path))
-(require 'ott-mode)
-

For installations using OPAM on *nix systems, it is sufficient to use -the following code, which will call opam config var prefix at -load-time.

(setq opam-share (substring (shell-command-to-string "opam config var share") 0 -1))
-(add-to-list 'load-path (concat opam-share "/emacs/site-lisp"))
-(require 'ott-mode)
-
-

2.6.2  Visual Studio Code

There is a -plugin -for VSCode, which features syntax highlighting and inline error -reporting.

-

2.7  Mailing lists

-

2.8  Web page with examples

-

2.9  Copyright information

The ocamlgraph library is distributed under the LGPL (from -http://www.lri.fr/∼filliatr/ftp/ocamlgraph/); we include -a snapshot for convenience. For its authorship and copyright information -see the files therein.

All other files are distributed under the BSD-style licence in LICENCE. -

-

3  A minimal Ott source file: the untyped CBV lambda calculus

Fig. 1 shows an Ott source file for an untyped call-by-value -(CBV) lambda calculus. This section explains the basic features that -appear there, while in the following sections we show what must be -added to generate typeset output, proof assistant definitions, and -other things. -

-
-

-% minimal
-metavar termvar, x ::=  
-
-grammar
-t :: ’t_’ ::=              
-  | x            ::  :: Var
-  | \ x . t      ::  :: Lam
-  | t t’         ::  :: App 
-  | ( t )        :: S:: Paren
-  | { t / x } t’ :: M:: Tsub  
-
-v :: ’v_’ ::=              
-  | \ x . t      ::  :: Lam 
-
-subrules
-  v <:: t
-
-defns
-Jop :: ” ::=
-
- defn
- t1 –> t2 :: ::reduce::”  by
-
-
-    --------------------------  :: ax_app
-    (\x.t12) v2 –>  {v2/x}t12
-
-    t1 –> t1’
-    -------------- :: ctx_app_fun
-    t1 t –> t1’ t
-
-    t1 –> t1’
-    -------------- :: ctx_app_arg
-    v t1 –> v t1’
-
- -
-
-
Figure 1: Source: test10.0.ott
-

-The figure is colourised, with Ott keywords like this and Ott -symbols such as | and ::. Other user-specific input -appears like this.

At the top of the figure, the metavar declaration introduces -a sort of metavariables termvar (with synonym x), for term -variables. -The following grammar introduces two grammar rules, one for terms, with -nonterminal root -t, and one for values v. -This specifies the concrete syntax of object-language terms, -the abstract syntax representations for proof-assistant mathematics, -and the syntax of symbolic terms to be used in semantic rules.

Each rule has a rule name prefix (e.g. ’t_’) and then a list -of productions. Each production, e.g. -

-  | \ x . t      ::  :: Lam
-

-specifies a syntactic form as a list of elements, here ‘\’, -‘x’, ‘.’, and ‘t’, each of which is either a -metavariable (the ‘x’), a nonterminal (the ‘t’), or a -terminal -(\ . ( ) { } / -->). -Within productions all elements must be whitespace-separated, so that -the tool can deduce which are terminals. In the symbolic terms in -the semantic rules below, however, whitespace is required only where necessary. -A few terminals have to be quoted (with '') if they appear in a grammar, e.g. to -use | as an object-language token, as they are part of the Ott syntax, but they -do not have to be quoted at usage points. -(If one accidentally omits inter-token whitespace in the grammar, the -output of Ott can be surprising. This is best diagnosed by looking at -the colourised ASCII or LaTeX output from Ott.)

Metavariables and nonterminals can be formed from the specified -metavariable and nonterminal roots by appending a suffix, e.g. the -nonterminal t' in the App and Tsub productions.

Between the ::’s is an optional meta flag M or S. Non-meta -productions give rise to clauses of datatype definitions in the -Isabelle/Coq/HOL output, whereas meta productions do not. Later, we -will see how the user can specify how meta syntax should be translated -away when generating proof assistant output. The two flags M -and S are identical except that productions with the latter are -admitted when parsing example concrete terms; the S tag is thus -appropriate for lightweight syntactic sugar, such as productions for -parentheses. One can also use an X flag here to suppress a -production in the generated LaTeX.

Each production has a production name (e.g. t_Lam), composed of -the rule name prefix (here t_) and the production name kernel -that follows the ::’s (here Lam). The production name is -used as a constructor name in the generated Isabelle/Coq/HOL.

The tool supports arbitrary context-free grammars, extended with -special constructs for list forms (c.f. §12).

Following the grammar in this example is a subrule -declaration -

-  subrules
-    v <:: t
-

-declaring that the v grammar rule (of values) is a -subgrammar of the t rule (of terms). The tool checks that -there is in fact a subgrammar relationship, i.e. that for each -production of the lower rule there exists a production of the higher -rule with corresponding elements (up to the subrule relation). -The subrule declaration means that, in the semantic rules below, we -will be able to use v’s in places where the grammar specifies t’s. -In the generated Isabelle/Coq/HOL for this example only one free -datatype will be generated, for the t rule, while for the v -rule we generate an is_v predicate over the t type. Usages of -v nonterminals in the semantic rules will have instances of this -predicate automatically inserted.

Finally, we give a collection of definitions of inductive relations. -In this example there is just one family of definitions (of -operational judgements), introduced by the defns Jop; it contains just one -definition of a relation, called reduce. -In general there may be many defns blocks, each of which introduces a -mutually recursive collection of defns. -The relation definition -defn ... -also includes a grammar production specifying how elements of the -relation can be written and typeset, here -

  t1 --> t2
-

As in the main grammar, the tokens of this syntax definition in the -header must be space-separated, but usages of the syntax generally -need not be. -Syntax rules for each family of -judgements, and for their union, are implicitly generated. -The relation definition is given by a sequence of inference rules, -each with a horizontal line separating a number of premises from a -conclusion, for example as below. -

-    t1 –> t1’
-    -------------- :: ctx_app_arg
-    v t1 –> v t1’
-

-The conclusion must be a symbolic term of the form of the judgement being -defined. -In simple cases (as here) the premises can be symbolic terms of the -form of any of the defined judgements. More generally (see -§6) they can be symbolic terms of a user-defined -formula grammar, or in-line embedded prover code. -Each rule -has a name, composed of a definition family prefix -(here empty), a definition prefix (here also empty) and a kernel -(the ctx_app_arg). -

The symbolic terms in semantic rules are parsed with a scannerless parser, built -using parser combinators over character-list inputs. The parser -searches for all parses of the input. If none are found, the ASCII -and TeX output are annotated no parses, with a copy of the -input with *** inserted at the point where the last token was -read. This is often at the point of the error (though if, for -example, a putative dot form is read but the two element lists cannot -be anti-unified, it will be after the point of the error). -If multiple parses are found, the TeX output is annotated -multiple parses and the different parses are output to the -console in detail during the Ott run. -If the option picky_multiple_parses is set to -true, multiple parses are always reported. If it set to -false, a symbolic term is considered ambiguous only if two -different parses compile to different strings (for a target). -The parser combinators use memoization and continuation-passing to -achieve reasonable performance on the small symbolic terms that are -typical in semantic rules. Their performance on large (whole-program -size) examples is untested. -To resolve ambiguity one can add metaproductions for parentheses (as -in Fig. 1), or -production-name annotations in particular symbolic terms, -e.g. the :t_tsub: in the AppAbs rule of the POPLmark -example, -test7.ott. There is currently no support for precedence -or associativity.

This file is included in the distribution as -tests/test10.0.ott. It can be processed by executing -

-   bin/ott -i tests/test10.0.ott
-

-from the main directory. This simply reads in the file, checking that -it is well-formed. Adding options: -

-   bin/ott -show_sort true -show_defns true -i tests/test10.0.ott
-

-it echos a colourised version to the screen, -with metavariables in red, nonterminals -in yellow, terminals in green, and object variables in white. -The colourisation uses vt220 control codes; if they do not work on -your screen add -colour false to the middle of the command -line. To suppress the echo of the definition, add --show_post_sort false and -show_defns false.

-

3.1  Index variables

-In addition to the metavar declarations above, the user can declare any number of distinguished index -metavariables, e.g. by: -

-  indexvar index, i, j, n, m ::= {{ isa num }} {{ coq nat }} {{ hol num }} 
-

-Given such a declaration, index, i, j, n -and m can be used in suffixes, e.g. in the production -

-   |  ( t1 , .... , tn )           :: :: Tuple
-

-There is a fixed ad-hoc language of suffixes, including numbers, primes, and index variables (see §23). -Index metavariables cannot themselves be suffixed.

-

4  Generating LaTeX

The example from the previous section can already be used to generate -LaTeX, for example by executing -

-   bin/ott -i tests/test10.0.ott -o out.tex 
-

-to produce a LaTeX file out.tex. One often needs to -fine-tune the default typesetting, as illustrated in -Figure 2 (the Ott source) and Figure 3 -(the resulting LaTeX). -(The latter was built using the additional option -tex_show_meta false, to -suppress display of the metaproductions.) -

-
-

-% minimal + latex + comments
-metavar termvar, x ::=   
-  {{ tex \mathit{[[termvar]]} }}
-
-grammar
-t :: ’t_’ ::=                               {{ com term    }}
-  | x            ::  :: Var                   {{ com variable}}
-  | \ x . t      ::  :: Lam                   {{ com lambda  }}
-  | t t’         ::  :: App                   {{ com app     }}
-  | ( t )        :: S:: Paren      
-  | { t / x } t’ :: M:: Tsub  
-
-v :: ’v_’ ::=                               {{ com value   }}
-  | \ x . t      ::  :: Lam                   {{ com lambda  }}
-
-terminals :: ’terminals_’ ::=
-  | \            ::  :: lambda  {{ tex \lambda }}
-  | –>          ::  :: red     {{ tex \longrightarrow }}
-
-subrules
-  v <:: t
-
-defns
-Jop :: ” ::=
-
- defn
- t1 –> t2 :: ::reduce::” {{ com $[[t1]]$ reduces to $[[t2]]$}} by
-
-
-    --------------------------  :: ax_app
-    (\x.t12) v2 –>  {v2/x}t12
-
-    t1 –> t1’
-    -------------- :: ctx_app_fun
-    t1 t –> t1’ t
-
-    t1 –> t1’
-    -------------- :: ctx_app_arg
-    v t1 –> v t1’
-
- -
-
-
Figure 2: Source: test10.2.ott
-
- -
-
Figure 3: Generated LaTeX: test10.2.tex
-

-The source file has three additions to the previous file. -Firstly, the metavar declaration is annotated with a -specification of how metavariables should be translated to LaTeX: -

-  metavar termvar, x ::=   
-    {{ tex \mathit{[[termvar]]} }}
-

-Inside the {{ tex … }} -is some LaTeX code -\mathit{$[[termvar]]$} -giving the translation of a termvar or x. Here they -are typeset in math italic (which in fact is also the default). -Within the translation, the metavariable itself can be mentioned -inside double square brackets [[ … ]].

Secondly, there is a grammar for a distinguished nonterminal root -terminals, with a -{{ tex … }} -translation for each, overriding the default typesetting of some -terminals. Note that the other terminals -(. ( ) { } /) -are still given their default typesetting. -

-  terminals :: ’terminals_’ ::=
-    | \            ::  :: lambda  {{ tex \lambda }}
-    | –>          ::  :: red     {{ tex \longrightarrow }}
-

-Thirdly, the file has com comments, including -the -{{ com term }} -attached to a grammar rule, -the -{{ com variable}} -attached to a production, and the -{{ com [[t1]] reduces to [[t2]]}} -attached to a semantic relation. These appear in the LaTeX output -as shown in Figure 3.

-

4.1  Specifying LaTeX for productions

-One can also specify tex translations for productions, overriding the default -LaTeX typesetting, e.g. as in this example of -a type abstraction production. -

-    |  X <: T . t   :: :: TLam   {{ tex \Lambda [[X]] [[<:]] [[T]]. \, [[t]] }}
-

-These homomorphisms, or homs1, can refer to the metavariables and -nonterminals that occur in the production, e.g. the [[X]], -[[T]], and [[t]] in the tex hom above, -interleaved with arbitrary strings and with typeset elements of the -terminals grammar, e.g. the [[<:]].

Homomorphisms are applied recursively down the structure of symbolic -terms. For example, an F<: term -

  (\X<:T11.t12) [T2]
-

would be LaTeX-pretty-printed, using the tex clause above, as -

( \, \Lambda  \mathit{X} <: \mathit{T_{\mathrm{11}}} . \, \mathit{t_{\mathrm{12}}} \, )
- \, \, [ \, \mathit{T_{\mathrm{2}}} \, ]
-

which is typeset as below. -

-
-

-Note the X, T11 and t12 of the symbolic term are -used to instantiate the formal parameters X, T and -t of the homomorphism definition clause. -If the t itself had compound term structure, e.g. as below -

  (\X<:T. \X'<:T'.x)
-

the homomorphism would be applied recursively, producing -

( \, \Lambda  \mathit{X} <: \mathit{T} . \,  \Lambda  \mathit{X'} <: \mathit{T'} 
-. \,  \mathit{x} \,  \, )
-

typeset as follows. -

-
-

-Where there is no user-supplied homomorphism clause the LaTeX -pretty-printing defaults to a sequence of the individual items -separated by thin spaces (\,), -with reasonable default fonts and making use of the terminals grammar where appropriate.

-

4.2  Specifying LaTeX for grammar rules

-Grammar rules can include a tex hom specifying how all the -nonterminal roots should be typeset, e.g. -

-  type, t, s :: Typ_ ::=  {{ tex \mathsf{[[type]]} }} 
-        | unit                  ::   :: unit   
-        | type * type’          ::   :: pair   
-        | type -> type’         ::   :: fun    
-

Alternatively, the individual nonterminal roots can have tex -homs specifying how they should be typeset: -

-  G {{ tex \Gamma }} , D {{ tex \Delta }} :: ’G_’ ::= 
-        | empty                 ::   :: empty       
-        | G , x : T             ::   :: term        
-

-permitting the user to write G', D12 etc. in symbolic -terms, to be typeset as - -etc.

-

4.3  Using the LaTeX code

The generated LaTeX code can be used in two main ways. -By default, Ott generates a stand-alone LaTeX file, -with a standard wrapper (including a \documentclass, various -macro definitions, and a main body), -that gives the complete system definition.

The default header can be overridden by writing - embed {{ tex-wrap-pre ... }} and the default footer by -writing embed {{ tex-wrap-post ... }} . Alternatively, the -program option -tex_wrap false with the -tex_wrap false -command-line argument, one can generate a file that can be included in -other LaTeX files, that just defines macros to typeset various -parts of the system (-tex_wrap false overrides any -tex-wrap-pre/tex-wrap-post embeds).

The generated LaTeX output is factored into individual LaTeX -commands: for the metavariable declarations, each rule of the syntax -definition, the collected syntax (\ottgrammar), each rule of the inductive relation -definitions, the collected rules for each relation, the collected -rules for each defns block, the union of those -(\ottdefns) and the whole (\ottall). -This makes it possible to quote individual parts of the definition, -possibly out-of-order, in a paper or technical report.

If one needs to include more than one system in a single LaTeX -document, the ott prefix can be replaced using the --tex_name_prefix command-line argument.

The generated LaTeX is factored through some common style macros, -e.g. to typeset a comment, a production, and a grammar. If necessary -these can be redefined in an embed block (see Section 8.1). -For example, the file tests/squishtex.ott -

-embed 
- {{ tex-preamble
-\renewcommand{\[[TEX_NAME_PREFIX]]grammartabular}[1]
-  {\begin{minipage}{\columnwidth}\begin{tabular}{ll}#1\end{tabular}\end{minipage} }
-\renewcommand{\[[TEX_NAME_PREFIX]]rulehead}[3]
-  {$#1$  $#2$ & $#3$}
-\renewcommand{\[[TEX_NAME_PREFIX]]prodline}[6]
-  { \quad $#1$ \ $#2$ & \quad $#3 #4$  $#5$  $#6$}
-\renewcommand{\[[TEX_NAME_PREFIX]]interrule}
-  {\\[2.0mm]}
- }}
-

- -defines a more compact style for grammars. Note that the -[[TEX_NAME_PREFIX]] is replaced by whatever prefix is in force, -so such style files can be reused in different contexts.

A more sophisticated LaTeX package ottlayout.sty, providing fine control of how -inference rules and grammars should be typeset, is contained in the -tex directory of the distribution. It is described in the -manual therein.

-

5  Generating proof assistant definitions

To generate proof assistant definitions, for Coq, Isabelle, and HOL, -the minimal Ott source file of Section 3/Figure 1 must -be extended with a modest amount of additional data, as shown in Figure 4. -Executing -

-   bin/ott  -i tests/test10.4.ott  -o out.v  -o out.thy  -o outScript.sml 
-

-generates Coq out.v, Isabelle out.thy, and HOL -outScript.sml, shown in Figures 5, 6, and 7. -The additional data can be combined with the annotations for -LaTeX of the previous section, but those are omitted here. -

-
-

-% minimal                    + binding + subst + coq/hol/isa
-metavar termvar, x ::=  
-{{ isa string}} {{ coq nat}} {{ hol string}} {{ coq-equality }}
-
-grammar
-t :: ’t_’ ::=                               
-  | x            ::  :: Var                  
-  | \ x . t      ::  :: Lam     (+ bind x in t +)
-  | t t’         ::  :: App                  
-  | ( t )        :: S:: Paren   {{ icho [[t]]  }} 
-  | { t / x } t’ :: M:: Tsub    {{ icho (tsubst_t [[t]] [[x]] [[t’]])}}
-
-v :: ’v_’ ::=                              
-  | \ x . t      ::  :: Lam                
-
-subrules
-  v <:: t
-
-substitutions
-  single t x :: tsubst 
-
-defns
-Jop :: ” ::=
-
- defn
- t1 –> t2 :: ::reduce::”  by
-
-
-    --------------------------  :: ax_app
-    (\x.t12) v2 –>  {v2/x}t12
-
-    t1 –> t1’
-    -------------- :: ctx_app_fun
-    t1 t –> t1’ t
-
-    t1 –> t1’
-    -------------- :: ctx_app_arg
-    v t1 –> v t1’
-
- -
-
-
Figure 4: Source: test10.4.ott
-

-We add four things. -First, we specify proof assistant types to represent object-language -variables — in this example, choosing the string type of -Isabelle and HOL, and the nat type for Coq: -

-  metavar termvar, x ::=  
-  {{ isa string}} {{ coq nat}} {{ hol string}} {{ coq-equality }}
-

-For Coq output, one can specify {{ coq-equality proof-script }} -to build a decidable equality over the Coq representation type using -the proof proof-script. If the script is omitted, as in this -example, it defaults -to -

Proof.
-  decide equality; auto with ott_coq_equality arith.
-Defined.
-

where the ott_coq_equality database contains the decidable -equalities of the representation types defined in the source. It is -possible to suppress type generation for specific metavariables or nonterminals, by adding the -declaration {{ phantom }}. This is useful in some cases, for -instance to avoid duplicate definitions of types already defined in an -imported library. Any type homs are taken into account when -the metavariable or nonterminal root is output as a type.

Second, we specify what the binding is in the object language, with -the (+ bind x in t +) -annotation on the Lam production: -

-  | \ x . t      ::  :: Lam     (+ bind x in t +)
-

-Section 9 describes the full language of binding specifications.

Third, we add a block -

-  substitutions
-    single t x :: tsubst 
-

-to cause Ott to generate Coq/Isabelle/HOL definitions of a substitution -function, with name root tsubst, replacing metavariables x by terms t. This is for single -substitutions; multiple substitution functions (taking lists of -substitutand/substitutee pairs) can also be generated with the keyword -multiple. -Substitution functions are generated for all rules of the grammar for -which they might be required — here, just over t, with a -function named tsubst_t.

Finally, we specify translations for the metaproductions: -

-  | ( t )        :: S:: Paren   {{ icho [[t]]  }} 
-  | { t / x } t’ :: M:: Tsub    {{ icho (tsubst_t [[t]] [[x]] [[t’]])}}
-

-These specify that (t) should be translated into just the -translation of t, whereas -{t/x}t’ should be translated into the -proof-assistant application of tsubst_t to the translations -of t, x, and t’. -The (admittedly terse) icho specifies that these translations should be -done uniformly for Isabelle, Coq, HOL, and OCaml output. One can also -specify just one of these, writing -{{ coq …}}, -{{ hol …}}, -{{ isa …}}, or -{{ ocaml …}}, -or include several, with different translations for each. -There are also abbreviated forms ich, ic, ch, and ih. -The body of a proof assistant hom should normally include outer -parentheses, as in the Tsub hom above, so that it is -parsed correctly by the proof assistant in all contexts.

-
-
(* generated by Ott 0.28 from: ../tests/test10.ott ../tests/non_super_tabular.ott *)
-
-Require Import Arith.
-Require Import Bool.
-Require Import List.
-
-
-Definition var := nat. (*r term variable *)
-Lemma eq_var: forall (x y : var), {x = y} + {x <> y}.
-Proof.
-  decide equality; auto with ott_coq_equality arith.
-Defined.
-Hint Resolve eq_var : ott_coq_equality.
-
-Inductive term : Set :=  (*r term *)
- | t_var (x:var) (*r variable *)
- | t_lam (x:var) (t:term) (*r lambda *)
- | t_app (t:term) (t':term) (*r app *).
-
-(** subrules *)
-Definition is_val_of_term (t5:term) : Prop :=
-  match t5 with
-  | (t_var x) => False
-  | (t_lam x t) => (True)
-  | (t_app t t') => False
-end.
-
-(** library functions *)
-Fixpoint list_mem A (eq:forall a b:A,{a=b}+{a<>b}) (x:A) (l:list A) {struct l} : bool :=
-  match l with
-  | nil => false
-  | cons h t => if eq h x then true else list_mem A eq x t
-end.
-Implicit Arguments list_mem.
-
-
-(** substitutions *)
-Fixpoint tsubst_term (t5:term) (x5:var) (t_6:term) {struct t_6} : term :=
-  match t_6 with
-  | (t_var x) => (if eq_var x x5 then t5 else (t_var x))
-  | (t_lam x t) => t_lam x (if list_mem eq_var x5 (cons x nil) then t else (tsubst_term t5 x5 t))
-  | (t_app t t') => t_app (tsubst_term t5 x5 t) (tsubst_term t5 x5 t')
-end.
-
-(** definitions *)
-
-(* defns Jop *)
-Inductive reduce : term -> term -> Prop :=    (* defn reduce *)
- | ax_app : forall (x:var) (t1 v2:term),
-     is_val_of_term v2 ->
-     reduce (t_app  (t_lam x t1)  v2)  (tsubst_term  v2   x   t1 ) 
- | ctx_app_fun : forall (t1 t t1':term),
-     reduce t1 t1' ->
-     reduce (t_app t1 t) (t_app t1' t)
- | ctx_app_arg : forall (v t1 t1':term),
-     is_val_of_term v ->
-     reduce t1 t1' ->
-     reduce (t_app v t1) (t_app v t1').
-
-
-
-
-
-
Figure 5: Generated Coq:test10.v
-
-
-
(* generated by Ott 0.28 from: ../tests/test10.ott ../tests/non_super_tabular.ott *)
-theory test10
-imports Main
-begin
-
-type_synonym "var" = "string" -- {* term variable *}
-datatype "term" =  -- {* term *}
-   t_var "var"   -- {* variable *}
- | t_lam "var" "term"   -- {* lambda *}
- | t_app "term" "term"   -- {* app *}
-
-
-(** subrules *)
-primrec
-is_val_of_term :: "term => bool"
-where
-"is_val_of_term (t_var x) = (False)"
-| "is_val_of_term (t_lam x t) = ((True))"
-| "is_val_of_term (t_app t t') = (False)"
-
-
-(** substitutions *)
-primrec
-tsubst_term :: "term => var => term => term"
-where
-"tsubst_term t5 x5 (t_var x) = ((if x=x5 then t5 else (t_var x)))"
-| "tsubst_term t5 x5 (t_lam x t) = (t_lam x (if x5 : set [x] then t else (tsubst_term t5 x5 t)))"
-| "tsubst_term t5 x5 (t_app t t') = (t_app (tsubst_term t5 x5 t) (tsubst_term t5 x5 t'))"
-
-(** definitions *)
-(* defns Jop *)
-inductive reduce :: "term \<Rightarrow> term \<Rightarrow> bool"
-where
-(* defn reduce *)
-
-ax_appI: "\<lbrakk>is_val_of_term v2\<rbrakk> \<Longrightarrow>
-reduce ((t_app  (t_lam x t1)  v2)) ( (tsubst_term  v2   x   t1 ) )"
-
-| ctx_app_funI: "\<lbrakk>reduce (t1) (t1')\<rbrakk> \<Longrightarrow>
-reduce ((t_app t1 t)) ((t_app t1' t))"
-
-| ctx_app_argI: "\<lbrakk>is_val_of_term v ;
-reduce (t1) (t1')\<rbrakk> \<Longrightarrow>
-reduce ((t_app v t1)) ((t_app v t1'))"
-
-end
-
-
-
-
-
-
-
Figure 6: Generated Isabelle:test10.thy
-
-
-
(* generated by Ott 0.28 from: ../tests/test10.ott ../tests/non_super_tabular.ott *)
-(* to compile: Holmake test10Theory.uo   *)
-(* for interactive use:
-  app load ["pred_setTheory","finite_mapTheory","stringTheory","containerTheory","ottLib"];
-*)
-
-open HolKernel boolLib Parse bossLib ottLib;
-infix THEN THENC |-> ## ;
-local open arithmeticTheory stringTheory containerTheory pred_setTheory listTheory 
-  finite_mapTheory in end;
-
-val _ = new_theory "test10";
-
-
-val _ = type_abbrev("var", ``:string``); (* term variable *)
-val _ = Hol_datatype ` 
-term =  (* term *)
-   t_var of var (* variable *)
- | t_lam of var => term (* lambda *)
- | t_app of term => term (* app *)
-`;
-
-(** subrules *)
-val _ = ottDefine "is_val_of_term" `
-    ( is_val_of_term (t_var x) = F)
-/\  ( is_val_of_term (t_lam x t) = (T))
-/\  ( is_val_of_term (t_app t t') = F)
-`;
-
-(** substitutions *)
-val _ = ottDefine "tsubst_term" `
-    ( tsubst_term t5 x5 (t_var x) = (if x=x5 then t5 else (t_var x)))
-/\  ( tsubst_term t5 x5 (t_lam x t) = t_lam x (if MEM x5 [x] then t else (tsubst_term t5 x5 t)))
-/\  ( tsubst_term t5 x5 (t_app t t') = t_app (tsubst_term t5 x5 t) (tsubst_term t5 x5 t'))
-`;
-(** definitions *)
-(* defns Jop *)
-
-val (Jop_rules, Jop_ind, Jop_cases) = Hol_reln`
-(* defn reduce *)
-
-( (* ax_app *) ! (x:var) (t1:term) (v2:term) . (clause_name "ax_app") /\
-((is_val_of_term v2))
- ==> 
-( ( reduce (t_app  (t_lam x t1)  v2)  (tsubst_term  v2   x   t1 )  )))
-
-/\ ( (* ctx_app_fun *) ! (t1:term) (t:term) (t1':term) . (clause_name "ctx_app_fun") /\
-(( ( reduce t1 t1' )))
- ==> 
-( ( reduce (t_app t1 t) (t_app t1' t) )))
-
-/\ ( (* ctx_app_arg *) ! (v:term) (t1:term) (t1':term) . (clause_name "ctx_app_arg") /\
-((is_val_of_term v) /\
-( ( reduce t1 t1' )))
- ==> 
-( ( reduce (t_app v t1) (t_app v t1') )))
-
-`;
-
-val _ = export_theory ();
-
-
-
-
-
-
-
Figure 7: Generated HOL:test10Script.sml
-
-

5.1  Proof assistant code for grammar rules

-The normal behaviour is to generate a free proof assistant type for -each (non-subrule, non-phantom) grammar rule. -For example, the Coq compilation for t here generates a free type with three -constructors: -

  Inductive term : Set := 
-   | t_var (x:var)
-   | t_lam (x:var) (t:term)
-   | t_app (t:term) (t':term).
-

(note that the metaproductions do not give rise to constructors).

Remark: prior to version 0.20.2, the free type generated for Coq was -

  Inductive term : Set := 
-   | t_var : var -> term
-   | t_lam : var -> term -> term
-   | t_app : term -> term -> term.
-

but we found that trying to preserve the names specified by the user -is helpful later, when doing proofs. Whenever a clash is detected, or -for list forms, the wildcard _ is used. The old behaviour -can be obtained via the top-level option --coq_names_in_rules false.

By default the order of the arguments to those constructors follows -the order in which they appear in the production. That can be -overridden with an order hom. For example, if for some -reason (perhaps compatibility with other Coq code) one wished the -arguments to t_Lam to be reversed: -

   | t_Lam : t -> termvar -> t
-

one could add an order hom as below. -

-  | \ x . t      ::  :: Lam  {{ order [[t]] [[x]] }}
-

Instead of using the generated free type, one can specify an arbitrary proof assistant representation type, -annotating the grammar rule with a coq, isa, hol, or ocaml hom — -for example, in the following grammar for substitutions. -

-  s {{ tex \sigma }} :: ’S_’ ::= {{ com multiple subst }} {{ isa (termvar*t) list }}
-       | [ x |-> t ]            ::   :: singleton   {{ isa [ ([[x]],[[t]]) ]  }}
-       | s1 , .. , sn           ::   :: list        {{ isa List.concat [[s1 .. sn]] }}
-

-Here the {{ isa (termvar*t) list }} hom specifies that in -Isabelle output this type be represented as an Isabelle -(termvar*t) list instead of the default free inductive type; -all the productions are metaproductions (tagged M); and isa homs for each production specify how they should be translated into that Isabelle type. -This feature must be used with care, as any Ott-generated functions, e.g. substitution functions, cannot recurse through such user-defined types.

Grammar rules (whether free or non-free) can also include a coq equality hom, instructing -the Coq code generator to derive a decidable equality for the Coq -representation type. For example, the ML polymorphism Ott source of -test8.ott includes the following. -

-  typvar :: TV_ ::= {{ coq-equality decide equality. apply eq_value_name_t. }}
-       | ’ ident                ::   :: ident
-

The Coq/HOL/Isabelle/OCaml type name for a grammar rule, or for a -metavariable declaration, is normally -taken to be just its primary nonterminal root. -Occasionally it is useful to work around a clash between a -metavar or nonterminal primary root and a proof assistant symbol, -e.g. T in HOL or value in Isabelle. -For this, one can add a coq, hol, isa, or -ocaml hom to the primary nonterminal root. In the example -below, the user can write T, T’ etc. in their Ott -source, but the generated HOL type is Typ. -

-T {{ hol Typ }}, S, U :: ’T_’ ::=                    {{ com type  }}
-  | T -> T’                          :: :: Fun          {{ com type of functions }}
-

The grammar rules within each grammar block of a syntax definition may depend on each other arbitrarily. -When generating Isabelle/Coq/HOL/OCaml representation types, however, they are -topologically sorted, to simplify the resulting induction -principles.

-

5.2  Proof assistant code for inductive definitions

-The semantic relations are defined -with the proof-assistant inductive relations packages, -Inductive, Hol_reln, and inductive_set or inductive, respectively. -Each defns block gives rise to a potentially mutually -recursive definition of each defn inside it -(it seems clearer not to do a topological sort here). -Definition rules are expressed internally with symbolic terms. -We give a simplified grammar thereof in Fig. 17, omitting the -symbolic terms for list forms. -A symbolic term st for a nonterminal root is either an explicit nonterminal or a -node, the latter labelled with a production name and containing a list of -symterm_elements, which in turn are either symbolic terms, -metavariables, or variables. -Each definition rule -gives rise to an implicational clause, essentially -that the premises (Ott symbolic terms of the formula grammar) -imply the conclusion (an Ott symbolic term of whichever judgement is -being defined). -Symbolic terms are compiled in several different ways: -

  • -Nodes of non-meta productions are output as applications of the appropriate proof-assistant constructor (and, for a subrule, promoted to the corresponding constructor of a maximal rule). -
  • Nodes of meta productions are transformed with the user-specified homomorphism. -
  • Nodes of judgement forms are represented as applications of the defined relation in Coq and HOL, and as set-membership assertions in Isabelle. -
  • Lists of formulae (the formula_dots production, c.f.§12) are -special-cased to proof-assistant conjunctions. -

-Further, for each nonterminal of a non-free grammar rule, -e.g. a usage of v' where v<::t, an additional premise -invoking the generated subrule predicate for the non-free rule is added, e.g. is_v v'. -For Coq and HOL, explicit quantifiers are introduced for all variables -mentioned in the rule. -For HOL, rules are tagged with their rule name (using clause_name).

-

5.3  Representation of binding

-At present the generated Isabelle/Coq/HOL uses fully concrete -representations of variables in terms, without any notion of alpha -equivalence, as one can see in Fig. 6: -see the t datatype of terms and the tsubst_t -substitution function there. -An experimental Coq backend generates definitions in locally-nameless style for a subset of the Ott metalanguage. This is work-in-progress, and it is extensively documented in http://moscova.inria.fr/ zappa/projects/ln_ott/. -We intend in future to generate other representations, and in some -circumstances homs can be used to implement other representations directly. -For a reasonably wide variety of -languages, however, one can capture the intended semantics of whole programs in -this idiom, subject only to the condition that standard library -identifiers are not shadowed within the program, as the operational -semantics does not involve reduction under binders — so any -substitutions are of terms which (except for standard library -identifiers) are closed. This includes the ML polymorphism example of -test8.ott. For languages which require a type -environment with internal dependencies, however, for example F<:, this is -no longer the case. The POPLmark F<: example given in test7.ott -has a type system which disallows all shadowing, a property that is -not preserved by reduction. However, a correct translation of F<: is generated by the Coq locally-nameless backend, and can be found in http://moscova.inria.fr/ zappa/projects/ln_ott/.

Further discussion of binding representations is in the Ott ICFP 2007 -paper and in a working draft -

Binding and Substitition. Susmit Sarkar, Peter Sewell, and Francesco -Zappa Nardelli. August 2007. -

-available from the Ott web page.

-

5.4  Helper functions for free variable and substitution functions

The generated free variable and substitution functions in the Coq output -(e.g., in Figure 5) often rely on a few standard library functions: -list_mem, list_assoc, list_minus, list_minus2. -In order to avoid dependencies on external libraries for defining those -functions, by default Ott generates the definitions for any such functions it -uses. It is possible to turn off the generation of definitions for -these such functions by writing the following directive early on in the source file: 

-embed {{ coq-lib list_mem list_minus }}
-

This instructs Ott to avoid generating definition for list_mem and -list_minus, but to continue generating definitions for other functions -such as list_assoc and list_minus2.

Note about list_minus2: -Instead of using the function list_minus2, earlier versions of Ott -generated equivalent code based on list_filter, which was more -difficult to reason about. For backwards compatibility, however, we provide the -command-line option -coq_use_filter_fn for generating a definition using -the older code pattern.

-

5.5  Correctness of the generated proof assistant code

-We have attempted to ensure that the proof assistant definitions -generated by Ott are well-formed and what the user would intend. This -is not guaranteed, however, for several reasons: (1) There may be name -clashes between Ott-generated identifiers and proof assistant built-in -identifiers (or, in pathological cases, even among different -Ott-generated identifiers). (2) In some cases we depend on automatic -proof procedures, e.g. for HOL definitions. These work in our test -cases, but it is hard to ensure that they will in all cases. More -importantly, (3) the generation process is complex, so it is quite -possible that there is either a bug in Ott or a mismatch between the -user expectation and what the tool actually does. Ultimately one has -to read the generated proof assistant definitions to check that they -are as intended — but typically one would do this in any case, many -times over, in the process of proving metatheoretic results, so we do -not consider it a major issue.

-

5.6  Using the generated proof assistant code

-Note added 2017-11-30: the following is out of date.

Ott builds code for

- - -
Coq 8.3http://coq.inria.fr/
HOL 4 (the current svn version)http://hol.sourceforge.net/
Isabelle/HOL (Isabelle 2011)http://isabelle.in.tum.de/

Given proof assistant files in the top-level directory of the -distribution, as produced at the start of this section -(Coq out.v, Isabelle out.thy, and HOL -outScript.sml), the various proof assistants can be invoked as follows.

-

5.6.1  Coq

-First run -

  make
-

in the coq directory of the distribution, to build the auxiliary files. -These include a core file (ott_list_core) of definitions that -are used in Ott-generated output. -At present these are only required when Coq native lists are used. -There are also various lemmas (in -ott_list.v) which may be useful; they can be made available with -Require Import ott_list.

For batch mode run -

  coqc -I coq  out.v
-

where coq is the path to the coq directory of the distribution.

The experimental locally-nameless backend requires the Metatheory library by Arthur Chargueraud, available from the project web page.

-

5.6.2  HOL

-First run -

  Holmake
-

in the hol directory of the distribution, to build the auxiliary files.

For -batch mode run -

  Holmake -I hol  outTheory.uo
-

where hol is the path to the hol directory of the distribution. -For interactive mode, run -

  hol -I hol
-

inside an editor window (where the second hol is again the path -to the hol directory of the distribution), and in -another window view the outScript.sml file. First -paste in the app load command from a comment at the top of the -file, then paste in the remainder.

-

5.6.3  Isabelle

-For batch mode: -

  echo 'ML_command {* (use_thy "Tmp"; OS.Process.exit OS.Process.success) handle e => (OS.Process.exit OS.Process.failure); *}' | /usr/local/Isabelle/bin/isabelle tty 
-

Interactively, using Proof General: -

  isabelle emacs out.thy
-
-

6  Judgments and formulae

In a semantic rule, for example -

-    t1 –> t1’
-    -------------- :: ctx_app_arg
-    v t1 –> v t1’
-

-the conclusion must be a symbolic term of the form of the judgement being -defined, but in general the premises may be symbolic terms -of a formula grammar or in-line embedded prover code. -By default the formula grammar includes all the defined judgement forms: for the -running example Ott will synthesise grammars as below.

The user can also define an explicit formula grammar, to let other -forms (not just judgements) appear as rule premises. Below is a -fragment of the formula grammar from the LJ example on the Ott web page. -

-  formula :: formula_ ::=  
-   |  judgement                       ::   :: judgement
-   |  formula1 .. formulan            ::   :: dots
-   |  not formula                     :: M :: not
-          {{ tex \neg [[formula]] }} 
-          {{ isa \<not> ([[formula]]) }}
-   |  ( formula )                     :: M :: brackets
-          {{ tex ([[formula]]\!) }}  
-          {{ isa [[formula]] }}
-   |  formula \/ formula’             :: M :: or
-          {{ tex [[formula]] \vee [[formula’]] }}
-          {{ isa [[formula]] \<or> [[formula’]] }}
-   |  formula /\ formula’             :: M :: and
-          {{ tex [[formula]] \wedge [[formula’]] }}
-          {{ isa [[formula]] \<and> [[formula’]] }}
-   |  x = x’                          :: M :: xali
-          {{ isa [[x]] = [[x’]] }}
-   |  X = X’                          :: M :: Xali
-          {{ isa [[X]] = [[X’]] }}
-

-This example adds (to the judgement forms) syntax for parenthesised -formulae, negation, and, or, and equality testing on two sorts. For -each, tex and isa homs specify how they should be -typeset and be translated into Isabelle.

If the user defines a formula grammar then (as here) the production -name prefix must be formula_ and the name for the -judgement production must be judgement.

-

6.1  Naming of premises for the Coq backend

-It is possible to specify the names of premises of inductive -predicates; these names are then used by the Coq backend, and are -often useful in proofs. For instance, we can call RED the hypothesis in the rule below -

-    t1 –> t1’  [[:RED]]
-    -------------- :: ctx_app_arg
-    v t1 –> v t1’
-

-which will then generate the following Coq code: -

-| ctx_app_arg : forall (v t1 t1’:term)
-    (RED: reduce t1 t1’),
-    is_val_of_term v ->
-    reduce (t_app v t1) (t_app v t1’).
-

-Names of rules cannot contain spaces or other non alpha-numerical -characters, and must begin with a letter. The name annotation must at -the rightmost place on the hypothesis line, and must be enclosed -(without spaces) between the [[: and ]] parentheses.

-

6.2  In-line embedded prover code in premises

-Instead of adding a formula production, one can directly embed prover -code as a premise, delimited as below by {{ and -}}. Within that, text will be echoed -directly to a prover (or given a default LATEX typesetting) except that symbolic terms enclosed within -[[ and ]] will be processed as in an -embed section. -

-  {{ type_to_chunk ([[typeof e1]]) = Some [[c]] }}
-  ----------------------------------------------------------- :: Assign1
-  e1=e2 . k |env   –tau–>    lval(e1) . [__=c e2] . k |env
-
-

6.3  User syntax

-The tool also synthesises a user_syntax grammar of all the -user syntax, for example:

This is used for parsing top-level strings, for example when filtering -embedded code (§8).

-

7  Concrete terms and OCaml generation

In semantic definitions, one typically never uses concrete variables, -only metavariables that range over them. -In examples, however, one may need either a mix of concrete variables -and metavariables, or, for strictly concrete terms, to restrict to -just the former (and also to prohibit symbolic nonterminals).

Figure 2 combines the LaTeX and proof assistant -annotations of Sections 3 and 4, adding a -{{ lex alphanum}} -hom -to the metavar declaration to specify the lexical form of -concrete variables of this sort. -At present a lex homomorphism must have body either -Alphanum (standing for [A-Z]([A-Z]|[a-z]|[0-9]|'|_)*), -alphanum (for ([A-Z]|[a-z])([A-Z]|[a-z]|[0-9]|'|_)*), -alphanum0 (for [a-z]([A-Z]|[a-z]|[0-9]|'|_)*), or -numeral (for [0-9][0-9]*); more general regular expressions are not supported. -An identifier that can be ambiguously lexed as either a concrete or -symbolic metavariable, e.g. x in the scope of the above -declaration, will be taken to be symbolic. -To restrict the parser to strictly concrete terms only, one can add a -:concrete: prefix, as shown in Figure 10.

One can also specify how concrete variables should be LaTeX’d or -translated into a proof assistant, e.g. with -homomorphisms -{{ texvar \mathrm{[[termvar]]}} -and -{{ isavar ’’[[termvar]]’’}} -(and similarly coqvar, holvar, and ocamlvar).

Figure 2 also specifies an OCaml representation type for -variables, with the metavar hom -{{ ocaml int}}. -Executing -

-   bin/ott -i tests/test10.ott -o test10.ml  
-

-produces the OCaml code shown in Figure 9, including OCaml -types to represent the abstract syntax, and auxiliary functions for -subrules and substitutions. This does not implement the semantic -rules. In some cases the various proof assistant code extraction -facilities can be used — see Section 21.

-
-

-% all
-metavar termvar, x ::=   {{ com  term variable }} 
-{{ isa string}} {{ coq nat}} {{ hol string}} {{ coq-equality }}
-{{ ocaml int}} {{ lex alphanum}} {{ tex \mathit{[[termvar]]} }}
-
-grammar
-t :: ’t_’ ::=                               {{ com term    }}
-  | x            ::  :: Var                   {{ com variable}}
-  | \ x . t      ::  :: Lam (+ bind x in t +) {{ com lambda  }}
-  | t t’         ::  :: App                   {{ com app     }}
-  | ( t )        :: S:: Paren                 {{ icho [[t]]  }} 
-  | { t / x } t’ :: M:: Tsub  
-                        {{ icho (tsubst_t [[t]] [[x]] [[t’]])}}
-
-v :: ’v_’ ::=                               {{ com value   }}
-  | \ x . t      ::  :: Lam                   {{ com lambda  }}
-
-terminals :: ’terminals_’ ::=
-  | \            ::  :: lambda  {{ tex \lambda }}
-  | –>          ::  :: red     {{ tex \longrightarrow }}
-
-subrules
-  v <:: t
-
-substitutions
-  single t x :: tsubst 
-
-defns
-Jop :: ” ::=
-
- defn
- t1 –> t2 :: ::reduce::” {{ com $[[t1]]$ reduces to $[[t2]]$}} by
-
-
-    --------------------------  :: ax_app
-    (\x.t12) v2 –>  {v2/x}t12
-
-    t1 –> t1’
-    -------------- :: ctx_app_fun
-    t1 t –> t1’ t
-
-    t1 –> t1’
-    -------------- :: ctx_app_arg
-    v t1 –> v t1’
-
- -
-
-
Figure 8: Source: test10.7.ott
-
-
-
(* generated by Ott 0.28 from: ../tests/test10.ott ../tests/non_super_tabular.ott *)
-
-type var = int (* term variable *)
-
-type 
-term =  (* term *)
-   T_var of var (* variable *)
- | T_lam of var * term (* lambda *)
- | T_app of term * term (* app *)
-
-
-(** subrules *)
-let is_val_of_term (t5:term) : bool =
-  match t5 with
-  | (T_var x) -> false
-  | (T_lam (x,t)) -> (true)
-  | (T_app (t,t')) -> false
-
-
-
-(** substitutions *)
-let rec tsubst_term (t5:term) (x5:var) (t_6:term) : term =
-  match t_6 with
-  | (T_var x) -> (if x=x5 then t5 else (T_var x))
-  | (T_lam (x,t)) -> T_lam (x,(if List.mem x5 ([x]) then t else (tsubst_term t5 x5 t)))
-  | (T_app (t,t')) -> T_app ((tsubst_term t5 x5 t),(tsubst_term t5 x5 t'))
-
-
-(** definitions *)
-
-
-
-
-
-
Figure 9: Generated OCaml code: test10.ml
-
-

8  Filtering: Using Ott syntax within LaTeX, Coq, Isabelle, -HOL, or OCaml

-

8.1  Filtering embedded code

It is possible to embed arbitrary code in -the Ott source using an embed block, which can contain -tex, -coq, -hol, -isa, or -ocaml homomorphisms, the -bodies of which will appear in the respective output. -The embed keyword should be on a line by itself). For -example, -test8.ott contains the following to -define Coq and HOL remove_duplicates functions. -

-embed
-{{ coq
-Fixpoint remove_duplicates (l:list typvar_t) : list typvar_t :=
-  match l with
-  | nil => nil
-  | cons h t => if (list_mem eq_typvar_t h t)  then remove_duplicates t
-                else cons h (remove_duplicates t)
-end. }}
-
-{{ hol
-val _ = Define ‘
-  (remove_duplicates [] = []) /\
-  (remove_duplicates (x::xs) = if (MEM x xs) then remove_duplicates xs 
-                               else x::(remove_duplicates xs))
-‘; }}
-

-Within the body of an embed homomorphism, any text between -[[ and ]] will be parsed as a symbolic term (of the -user_syntax grammar) and pretty printed, so one can use user -syntax within LaTeX or proof assistant code. An Isabelle example -is below, defining an Isabelle function to calculate the order of a -type with productions unit, t*t', and t->t'. -

-{{ isa
-consts
-order :: "type => nat"
-primrec
-"order [[unit]] = 0"
-"order [[t*t’]] = max (order [[t]]) (order [[t’]])"
-"order [[t->t’]] = max (1+order [[t]]) (order [[t’]])"
-
-}}
-

-It is often useful to define a proof assistant function, in an -embed section, together with a production of the formula -grammar with a proof assistant hom that uses that function, thereby -introducing syntax that lets the function be used in semantic rules.

Ott also permits embed blocks with tex-preamble, -homs, whose -contents appear in the generated LATEX preamble. -Any definitions of LATEX commands must appear in such a -tex-preamble section. -

-

8.2  Filtering files

-Similar processing can be carried out on separate files, using the -command-line options tex_filter, isa_filter, etc. -Each of these takes two arguments, a source filename and a destination -filename. In processing the source file, -any text between -[[ and ]] will be parsed as a symbolic term (of the -user_syntax grammar) and pretty printed in the appropriate -style. All other text is simply echoed. -

Typical usage for LaTeX would be something like this (from the Makefile -used to produce this document): -

test7.tex: ../src/ott ../tests/test7.ott ../tests/test7tt.mng
-         cd ../src; make tmp_test7_clean.ott
-         ../src/ott                                        \
-                -i ../src/tmp_test7_clean.ott              \
-                -o test7.tex                               \
-                -tex_show_meta false                       \
-                -tex_wrap false                            \
-                -tex_name_prefix testSeven                 \
-                -tex_filter ../tests/test7tt.mng test7tt.tex 
-

The -tex_wrap false turns off output of the default LaTeX -document preamble, so the generated file test7.tex just contains -LaTeX definitions. -The -tex_name_prefix testSeven sets a prefix for the generated -LaTeX commands -(so the LaTeX definitions from multiple Ott source files can be -included in a single LaTeX document). -The -tex_filter argument takes two -filenames, a source and a destination. It filters the source file, -(roughly) replacing any string found within [[ ]] by -the tex pretty-print of its parse. This parsing is done w.r.t. the generated nonterminal -user_syntax which is a union of all the user’s grammar.

At present munged strings are not automatically -put within $ $, and there is no analogue of the -<[ ]> of our previous munger.

The lexing -turns any sequence of [ (resp. of ]) of -length n+1 for n>2 into a literal sequence of length n.

Figures 10 and 11 show a source file (test7tt.mng) that uses terms of the F<: -definition of test7.ott, and the result of filtering it.

Similar filtering can be performed on Coq, Isabelle, HOL, and OCaml files.

To filter files with respect to a relatively stable -system definition, without having to re-process the Ott source files of -that system definition each time, there are command-line options -

  -writesys <filename>                Output system definition
-  -readsys <filename>                 Input system definition
-

to first write the system definition (generated from some source files) to a file, and -then to read one back in (instead of re-reading the Ott source files). -The saved system definitions are in an internal format, produced using -the OCaml marshaller, and contain OCaml closures. They therefore will -not be compatible between different Ott versions. They may also be -quite large.

-
-We can TeX-typeset symbolic terms of the language, e.g.
-\[ [[ (\X<:Top. \x:X.x) [Top->Top] ]]\]
-and concrete terms
-\[ [[ :concrete: \Z1<:Top. \x:Z1.x ]]\]
-and similarly judgements etc, e.g.
-\[ [[G |- t : T ]] \]
-   
-Here is an extract of the syntax:
-
-\testSevengrammartabular{\testSevent\testSevenafterlastrule}
-
-and a single semantic rule:
-
-\[\testSevendruletinXXTwo{}\]
-
-and a judgement definition:
-
-\testSevendefnSA
-
-One can also include a ‘defns’ collection of judgements, or the complete definition.
-% \section{Full Definition}
-% \testSevenmetavars\\[0pt]
-% \testSevengrammar\\[0pt]
-% \testSevendefnss
-%
-% \testSevenall
-
-
-
-
-
Figure 10: F<: Extracts: LaTeX source file to be filtered (test7tt.mng)
-
-
-
Figure 11: F<: Extracts: the filtered output (test7tt.tex)
-
-

9  Binding specifications

Our first example involved a production with a single binder: - -

specified by the source shown in Figure 4: -

-  | \ x . t      ::  :: Lam     (+ bind x in t +)
-

-in which a single variable binds in a single subterm. -Realistic programming languages often have much more complex binding -structures, e.g. structured patterns, multiple mutually recursive let definitions, -comprehensions, or-patterns, and dependent record patterns.

Ott has a flexible metalanguage for specifying binding structures, -expressive enough to cover these. -It comprises two forms of annotation on productions. -The first, - -lets one specify that variables bind in nonterminals of the -production, as in the Lam production above. -Here - -is a metavariable set expression, -e.g. in that lambda production just the singleton -metavariable - -of the production. -A variable can bind in multiple nonterminals, as in the example of -a simple recursive let below.

More complex examples require one to collect together sets of -variables. For example, the grammar below (shown in Ott source and the -generated LaTeX) has structured patterns, -with a -production in which all the binders of the pattern - -bind in the continuation - -

-t :: E_ ::=
-  | x                        ::   :: ident
-  | ( t1 , t2 )              ::   :: pair
-  | let p = t in t’          ::   :: letrec      (+ bind binders(p) in t’ +)
-
-
-p :: P_ ::=
-  | _                        ::   :: wildcard    (+ binders = {} +)
-  | x                        ::   :: ident       (+ binders = x +)
-  | ( p1 , p2 )              ::   :: pair        (+ binders = binders(p1) union binders(p2) +)
-

This is expressed with the second form of annotation: user-defined -auxiliary functions such as the -binders above. This is an auxiliary function defined over the - -grammar that identifies a set of variables to be -used in the bind annotation on the -production. There can be any number of such auxiliary functions; -binders is not a distinguished keyword.

The syntax of a precise fragment of the binding metalanguage is given in -Fig. 12, - -

-
-
Figure 12: Mini-Ott in Ott: the binding specification metalanguage
-

where we have used Ott to define part of the Ott -metalanguage. A simple type system (not shown) enforces sanity properties, -e.g. that each auxiliary function is only applied to nonterminals that -it is defined over, and that metavariable set expressions are -well-sorted.

Further to that fragment, the tool supports binding for the list forms -of §12. -Metavariable set expressions can include lists of metavariables -and auxiliary functions applied to lists of nonterminals, e.g. as in -the record patterns below. -

This suffices to express the binding structure of almost all the -natural examples we have come across, including definitions of -mutually recursive functions with multiple clauses for each, Join -calculus definitions [FGL+96], dependent record patterns, and many others.

-

10  Generating substitution and free variable functions

The tool can generate Isabelle/Coq/HOL/OCaml code for both single and multiple -substitution functions. For example, the ML polymorphism Ott source -of test8.ott includes the following. -

-  substitutions
-    single   expr value_name :: subst  
-    multiple typexpr typvar  :: tsubst 
-

-This causes the generation of two families of substitution -functions, one replacing a single value_name by a expr, -the other replacing multiple typvars by typexprs.

Each family contains a function for each datatype for which it is -required, so in that example there are functions -subst_expr for the first and tsubst_typexpr, -tsubst_typscheme and tsubst_G for the second.

The functions for substitutions declared by -

-  substitutions
-    single   this that :: name1 
-    multiple this that :: name2 
-

-replaces terms of productions consisting just of a single that by a -this. -Here this must be a nonterminal root, while that can be -either a metavariable root or a nonterminal root (the latter -possibility allows substitution for compound identifiers, though it is -not clear that this is generally useful enough to be included). -Substitution functions are generated for each member of each (mutually recursive) -block of grammar rules which either contain such a production or (indirectly) -refer to one that does.

At present multiple substitutions are represented by Isabelle/Coq/HOL/OCaml -lists, so for the example above we have Isabelle -

  tsubst_typexpr :: "(typvar*typexpr) list => typexpr => typexpr"
-  tsubst_typscheme :: "(typvar*typexpr) list => typscheme => typscheme"
-  tsubst_G :: "(typvar*typexpr) list => G => G"
-

The generated functions do not substitute bound things, and recursive -calls under binders are filtered to remove the bound things.

Similarly, the tool can generate Isabelle/Coq/HOL/OCaml to calculate the free -variables of terms. For example, the ML polymorphism Ott source -of test8.ott includes the following. -

-  freevars
-    typexpr typvar :: ftv
-

-This causes Isabelle functions as below to be generated, calculating -the free typvars that occur in singleton productions in the -typexpr grammar, within terms of all types. -

  ftv_typexpr :: "typexpr => typvar list"
-  ftv_typscheme :: "typscheme => typvar list"
-  ftv_G :: "G => typvar list"
-
-

11  Locally-nameless representation

The Coq backend of Ott includes experimental support for a -locally-nameless representation (and co-finite quantification).

The user must specify which metavariables require a locally-nameless -representation via the repr-locally-nameless hom, -e.g.:

-metavar x ::= {{ repr-locally-nameless }} {{ com  term variable  }} 
-

As usual, metavariables can be bound in productions, using the -bindspec language, as in the lam production below: -

-grammar
-  t :: ’t_’ ::=                                         {{ com term }}
-    | x                   ::   :: Var                     {{ com variable }}         
-    | \ x . t             ::   :: Lam  (+ bind x in t +)  {{ com abstraction }}      
-    | t t’                ::   :: App                     {{ com application }}      
-    | ( t )               :: S :: paren   {{ coq [[t]] }} 
-    | { t / x } t’        :: M :: tsub    {{ coq (t_subst_t [[t]][[x  t’]]) }}
-

This definition gives rise to the datatype term below (here with option -coq_names_in_rules false): -

-Inductive term : Set := 
-| term_var_b : nat -> term 
-| term_var_f : var -> term 
-| term_lam : term -> term 
-| term_app : term -> term -> term.
-

Remarks: -

  1. -Productions containing metavariables susceptible to be bound -(e.g., term_var) give rise to two distinct constructors, one -(term_var_b) for de Bruijn indices to be used when the metavariable -is bound, one (term_var_f) for "free" variables. The type var, -together with decidable equality and several useful lemmas and -functions, is defined in the Metatheory library.

    In the current implementation, metavariables susceptible to be bound -in a symbolic term (eg. the x in the term_var -production) must be the only element of the production.

  2. Binder metavariables are erased from productions -(eg. term_lam), as in de Bruijn representation. -

Ott automatically generates the appropriate open functions -and lc predicates to test if terms are locally-closed. The -other support functions for substitutions and free-variables -(subst and fv) are generated once the user declares -the relevant substitutions and freevars sections.

Ott automatically compiles the symbolic terms that appear in rule -definitions into the appropriate terms in locally-nameless style. For -instance, the typing rule for the simply-typed lambda-calculus:

-    E,x:S |- t : T
-    ------------------ :: lambda
-    E |- \x.t : S->T
-

-is compiled into its locally-nameless representation: -

-Inductive typing : env -> term -> type -> Prop := (* defn typing *) 
-| ... 
-| typing_lambda : forall (L:vars) (E:env) (t:term) (S T:type), 
-   (forall x, x \notin L -> typing (E & x ~ S) (open_term_wrt_term t (term_var_f x)) T) -> 
-   typing E (term_lam t) (type_arrow S T).
-

For that, Ott follows the algorithm below. For each rule, -

  1. -for each nonterminal that appears in the rule, compute the -maximal set of binders under which it appears: for example, in the -rule lambda above, the maximal set of binders for the nonterminal t -is the singleton x, and it is empty for all the other nonterminals; -
  2. for each pair nonterminal / maximal binder set collected in -phase 1., go over all the occurrences of the nonterminal in the rule -and open them with respect to all the variables in the maximal -binding set except those under which this particular occurrence is -bound. In the example, this amounts to opening the occurrence of t -in the premise with respect to the metavariable x; -
  3. quantify using cofinite-quantification each metavariable that -has been used to open a nonterminal; -
  4. add hypothesis about local-closure to guarantee the invariant -that if a derivation holds, then the top-level terms involved are -locally-closed. -

-In some cases the user may want a finer control on which nonterminals -are opened and with respect to which metavariables. Consider for -instance the CBV beta-reduction rule: -

-    --------------------------  :: ax_app
-    (\x.t1) v2 –>  {v2/x}t1
-

-A naive application of the algorithm described above would open the -right hand side occurrence of t1 with respect to a -cofinitely-quantified x. Substitution should then be used to replace -the occurrences of x with v2, resulting in the awkward term -

-reduce (term_app (term_lam t1) v2) (subst_term v2 x (open_term_wrt_term t1 (term_var_f x)))
-

Instead, an idiomatic translation of CBV beta-reduction rule would -directly rely on the open function to substitute v2 for the -bound occurrences of x in t1, as in: -

-reduce (term_app (term_lam t1) v2) (open_term_wrt_term t1 v2)
-

A special syntax for production homomorphisms allow the user to specify this translation: -

-    | { t / x } t’        :: M :: tsub    {{ coq (t_subst_t [[t]][[x t’]]) }}
-

-In the homomorphism the nonterminal t’ is referred to with -[[x t’]] instead of the usual -[[t’]]: the prefixed x specifies -that occurrences of t’ should not be opened with respect to -the metavariable x. If this homomorphism is specified, then -the translation of the ax_app rule is exactly idiomatic Coq -shown above.

Current limitations: support for single binders only, no auxfn, Coq only.

Disclaimer: to compile rule definitions, Ott applies blindly the algorithm described above. Although in most of the cases, this generates a correct and idiomatic representation of the language, some language constructs might not be faithfully translated. Please, let us know if you find one of these cases. -

If Ott is invoked with the -coq_lngen option, then the -generated locally-nameless Coq code is compatible with Aydemir’s -lngen tool (http://www.cis.upenn.edu/ baydemir/papers/lngen/).

-

12  List forms

Ott has direct support for lists, both as dot forms such as - -and as list comprehensions such as - -. -Figure 13 shows an example semantic rule taken from our OCaml -fragment semantics, as both the generated LaTeX and its Ott -source, that involves several dot forms. -Other types commonly used in semantics, e.g. finite maps or sets, can -often be described with this list syntax in conjunction with type and -metaproduction homs to specify the proof assistant representation. -When using list forms, one usually also wants to add a list-of-formula -production to the formula grammar, e.g. (as in -test17.10.ott): -

-  formula :: formula_ ::=  
-   |  judgement                       ::   :: judgement
-   |  formula1 .. formulan            ::   :: dots
-

-The proof assistant code generation for such a production (which must -be named formula_dots) is special-cased to a list conjunction.

-
- E |- e1 : t1 ... E |- en : tn
- E |- field_name1 : t->t1 ... E |- field_namen : t->tn
- t = (t1’, ..., tl’) typeconstr_name
- E |- typeconstr_name gives typeconstr_name:kind {field_name1’; ...; field_namem’}
- field_name1...field_namen PERMUTES field_name1’...field_namem’
- length (e1)...(en)>=1
- ————————————————————————– :: record_constr
- E |- {field_name1=e1; ...; field_namen=en} : t
-
-
Figure 13: A sample OCaml semantic rule, in LaTeX and Ott -source forms
-

12.1  List dot forms

Example productions for -record types, record terms, and record -patterns are shown below, in both Ott source and LaTeX, taken -from our F<: example. -

-T, S, U :: ’T_’ ::=                                               {{ com type  }}
-  | { l1 : T1 , .. , ln : Tn }      :: :: Rec                       {{ com record }}           
-
-t :: ’t_’ ::=                                                     {{ com  term  }}
-  | { l1 = t1 ,  .. , ln = tn }     :: :: Rec                       {{ com record }}
-  | let p = t in t’                 :: :: Let (+ bind b(p) in t’ +) {{ com pattern binding}}
-
-p :: ’P_’ ::=                                                     {{ com  pattern }}
-  | x : T                           :: :: Var (+ b = x  +)          {{ com variable pattern }}
-  | { l1 = p1 , .. , ln = pn }      :: :: Rec (+ b = b(p1 .. pn) +) {{ com  record pattern  }}
-
-

-

Dot forms can be used in symbolic terms in semantic rules:

-

Individually indexed projections from dot forms can be mentioned, eg -the lj below:

-

Symbolic terms can also include concatenations of two dot forms with a -singleton in between:

-

Multiple dot forms within the same semantic rule can share bounds (e.g. 1..m):

-

In more detail, productions can have dot tokens interspersed between the elements. -Dot tokens consist of two, three or four consecutive dots (.., -..., or ....), indicating lists with minimum lengths 0, -1, and 2 respectively (these length minimums are respected -only when parsing concrete lists; they are not present in Isabelle/Coq/HOL -output). -The tool identifies the maximal sequence of elements on either side of -the dots that are identical modulo anti-unification of some -index. Optionally, there may also be a single terminal on either side -of the dot token, separating instances of the repeated unit. -For example, in the test7.ott production -

-  | { l1 = t1 ,  .. , ln = tn }  :: :: Rec                     
-

-there is such a terminal (the ‘,’). The tool identifies -that l1 = t1 and ln = tn can be anti-unified as -(roughly) l_ = t_, taking _ to be the bounds 1 and n. -A single production may contain multiple dot forms, but they must not overlap; -nested dot forms (including those with multiple changing indices) are not currently -supported.

Homomorphisms and binding specifications are generalised to match: an mse can -involve a dot form of metavariables; -a dot form of nonterminals; or an auxiliary function applied to a dot -form -of nonterminals (e.g. the -b(p1..pn) above). -Dot forms on the right of a bind are not currently supported.

LaTeX homomorphisms should not refer to dot forms, as either an error -or bad output will be generated. (For LaTeX, there should really be -some means to specify -a homomorphism for the repeated expression, and also data on how any -list separators should be typeset. This would require more -special-case treatment, which is not currently supported.)

-

12.2  List comprehension forms

Lists can also be expressed as explicit list comprehensions, -for more concise typesetting. -Three different styles are supported, with no bounds, an upper bound, -or a lower and upper bound. For example, in a symbolic -term, instead of the dot form -

-  G |- t1:T1  ..  G |- tn:Tn
-

- -one can write any of the following -

-   </ G |- ti:Ti // i           />
-   </ G |- ti:Ti // i IN n      />
-   </ G |- ti:Ti // i IN 1 .. n />
-

- -Similar comprehensions can be used in productions, for example lines -2–4 below. In addition, comprehensions in productions can specify a -terminal to be used as a separator in concrete lists, as in lines 5–7 below. -(These examples are taken from test17.10.ott.) -

-  |  l1 = t1 ,  .. , ln = tn            :: :: Rec              {{ com dots }}
-  |  </ li = ti // i           />       :: :: Rec_comp_none    {{ com comp }}
-  |  </ li = ti // i IN n      />       :: :: Rec_comp_u_none  {{ com compu }} 
-  |  </ li = ti // i IN 1 .. n />       :: :: Rec_comp_lu_none {{ com complu }}  
-  |  </ li = ti // , // i           />  :: :: Rec_comp_some    {{ com comp with terminal }}
-  |  </ li = ti // , // i IN n      />  :: :: Rec_comp_u_some  {{ com compu with terminal }} 
-  |  </ li = ti // , // i IN 1 .. n />  :: :: Rec_comp_lu_some {{ com complu with terminal }}  
-

- -In Coq, HOL or Isabelle output, list dot forms and the -various list comprehension forms are treated almost identically. -In LaTeX output, comprension forms are default-typeset with overbars. -For example, the rules below -

- G|- t:l1:T1,..,ln:Tn
- ----------------------- :: Proj_dotform
- G|- t.lj : Tj
-
- G|- t:  </ li:Ti // i/> 
- ---------------------------------- :: Proj_comp
- G|- t.lj : Tj
-
- G|- t:  </ li:Ti // i IN n/> 
- ---------------------------------- :: Proj_comp_u
- G|- t.lj : Tj
-
- G|- t:  </ li:Ti // i IN 1..n/> 
- ---------------------------------- :: Proj_comp_lu
- G|- t.lj : Tj
-

- -are typeset as follows.

-

Upper bounds of the form n−1 are also permitted, e.g. with -

- G|- t:l0:T0,..,ln-1:Tn-1
- ----------------------- :: Proj_dotform_minus
- G|- t.lj : Tj
-
- G|- t:  </ li:Ti // i IN 0..n-1/> 
- ---------------------------------- :: Proj_comp_lu_minus
- G|- t.lj : Tj
-

- -typeset as below. More complex arithmetic expressions are not -currently supported.

-

A list form used in a symbolic term does not have to be in the same -style as that in the corresponding production. -However, if a metavariable or nonterminal occurs in multiple different -list forms in the same inference rule, they must all be in the same style and -with the same bounds. Moreover, in a production, a list form in a bindspec or -homomorphism must be in the same style and with the same bounds as the -corresponding list form in the elements of the production.

The comprehension form without an upper bound, -e.g. </ G |- ti:Ti // i />, -typeset as -is not standard -notation, but is often very useful. Many semantic rules involve lists -of matched length, e.g. of the -and -here, but do not need to introduce an -identifier for that length; omitting it keeps them concise.

The default visual style for typesetting list comprehensions can be -overridden by redefining the LaTeX commands \ottcomp, -\ottcompu, and \ottcomplu in an embed section, as -in Section 4.3.

In some cases one could make the typeset notation even less noisy, by -either omitting the superscript i or omitting both the superscript i and -the subscript i’s on t and T. The first is unambiguous if there -is at most one index on each element in the comprehension; the second -if all the elements are indexed by the same thing (not the case for -this example, but common for comprehensions of single elements, -e.g. << Ti // i>> for T). It is arguable that that -should be automated in future Ott releases, though it would bring the typeset and ASCII -versions out of step.

List comprehension forms can also be used in bindspecs and in -homomorphisms.

-

12.3  Proof assistant code for list forms

-

12.3.1  Types

-We have to choose proof assistant representations for productions involving list -forms. For example, for a language with records one might write -

-  metavar label, l ::= {{ hol string }} {{ coq nat }}
-  indexvar index, n ::=  {{ hol num }} {{ coq nat }} 
-  grammar
-  term, t :: ’t_’ ::=
-    | { l1 = t1 ,  .. , ln = tn }      :: :: record
-

- -In HOL and Isabelle we represent these simply with contructors whose -argument types involve proof-assistant native list types, e.g. -the HOL list of pairs of a label and a t: -

  val _ = Hol_datatype ` 
-  t = E_record of (label#t) list  `;
-

For Coq we provide two alternatives: one can either use -native lists, or lists can be translated away, depending on taste. -The choice is determined by the -coq_expand_list_types -command-line option. -In the former case we generate an appropriate induction principle -using nested fixpoints, as -the default principle produced by Coq is too weak to be useful. -In the latter case we -synthesise an additional type for each type of lists-of-tuples that -arises in the grammar. -In the example, we need a type of lists of -pairs of a label and a t: -

Inductive 
-list_label_t : Set := 
-   Nil_list_label_t : list_label_t
- | Cons_list_label_t : label -> t -> list_label_t 
-     -> list_label_t
-
-with t : Set := 
-   E_record : list_label_t -> t .
-

These are included in the grammar topological sort, and utility functions, e.g. to -make and unmake lists, are synthesised. -

-

12.3.2  Terms (in inductive definition rules)

-Supporting list forms in the rules of an inductive definition requires some additional analysis. For example, -consider the record typing rule below.

We analyse the symbolic terms in the premises and conclusion to -identify lists of nonterminals and metavariables with the same bounds — here t0 .. tn−1, T0 .. Tn−1, and l0 .. ln−1 -all have bounds 0..n−1. -To make the fact that they have the same length immediate in the -generated code, we introduce a single proof assistant -variable for each such collection, with appropriate projections and -list maps/foralls at the usage points. -For example, the HOL for the above is essentially as follows, with -an l_t_Typ_list : (label#t#Typ) list. -

(* Ty_Rcd *)  !(l_t_Typ_list:(label#t#Typ) list) (G:G) . 
-(EVERY (\b.b) 
-  (MAP (\(l_,t_,Typ_). (Ty G t_ Typ_)) l_t_Typ_list))
- ==> 
-(Ty 
-  G 
-  (E_record (MAP (\(l_,t_,Typ_). (l_,t_)) l_t_Typ_list))
-  (T_Rec    (MAP (\(l_,t_,Typ_). (l_,Typ_)) l_t_Typ_list)))
-

This seems to be a better idiom for later proof development than the -alternative of three different list variables coupled with assertions -that they have the same length.

With direct support for lists, we need also direct support for -symbolic terms involving list projection and concatenation. -For example, the rule -

gives rise to HOL code as below — note the list-lifted usage of the -is_v_of_t predicate, and the list appends (++) in the conclusion. -

(* reduce_Rec *)  !(l'_t'_list:(label#t) list) 
-       (l_v_list:(label#t) list) (l:label) (t:t) (t':t) . 
-((EVERY (\(l_,v_). is_v_of_t v_) l_v_list) /\
-(( reduce t t' )))
- ==> 
-(( reduce (t_Rec (l_v_list ++ [(l,t)] ++ l'_t'_list)) 
-          (t_Rec (l_v_list ++ [(l,t')] ++ l'_t'_list))))
-

For the Proj typing rule

we need a specific projection (the -HOL EL) to -pick out the j’th element: -

(* Ty_Proj *)  !(l_Typ_list:(label#Typ) list) 
-       (j:index) (G:G) (t:t) . 
-((( Ty G t (T_Rec (l_Typ_list)) )))
- ==> 
-(( Ty 
-     G 
-     (t_Proj t  ((\ (l_,Typ_) . l_) (EL j l_Typ_list)))  
-     ((\ (l_,Typ_) . Typ_) (EL  j l_Typ_list))))
-

For Coq, when translating away lists, we have to introduce -yet more list types for -these proof assistant variables, in addition to the obvious -translation of symbolic terms, and, more substantially, to introduce additional inductive relation -definitions to induct over them.

For similar examples in Isabelle, the generated Isabelle for the first -three rules of §12.1 is -shown below (lightly hand-edited for format). The first involves an -Isabelle variable l_t_T_list, and list maps and projections -thereof. -

Ty_RcdI: "
-  [|(formula_formuladots ((List.map (%(l_,t_,T_).( ( G , t_ , T_ ) : Ty)) l_t_T_list)))|] 
-  ==> 
-  ( G , 
-    (t_Rec ((List.map (%(l_,t_,T_).(l_,t_)) l_t_T_list))) , 
-    (T_Rec ((List.map (%(l_,t_,T_).(l_,T_)) l_t_T_list))) 
-  ) : Ty"
-
-Ty_ProjI: "
-  [| ( G , t , (T_Rec (l_T_list)) ) : Ty|] ==> 
-  ( G , 
-    (t_Proj t (%(l_,T_).l_) (List.nth l_T_list (j - 1))) , 
-    (%(l_,T_).T_) (List.nth l_T_list (j - 1)) 
-  ) : Ty"
-
-E_Ctx_recordI: "
-[| List.list_all (%(l_,v_).is_v v_) l_v_list ;
-   ( t , t' ) : E|] 
-==> 
- ( (t_Rec (l_v_list @ [(l,t)] @ l_'t_'list)) , 
-   (t_Rec (l_v_list @ [(l,t')] @ l_'t_'list)) 
- ) : E"
-

-The generated code for substitutions and free variables takes account of such list structure.

Note that at present the generated Isabelle code for these functions -does not always build without change, in particular if tuples of size -3 or more are required in patterns.

-

12.3.3  List forms in homomorphisms

Proof assistant homomorphisms in productions can refer to dot-form -metavariables and nonterminals. For example, the second production -below (taken from test17.9) mentions [[x1 t1 ... xn tn]] in the isa -homomorphism. This must exactly match the dot form in the production -except that all terminals must be omitted — the metavariables and -nonterminals must occur in the same order as in the production, and -the bounds must be the same. 

-    E :: ’E_’ ::= {{ isa ( ident * t ) list  }}
-      | < x1 : t1 , .. , xn : tn > :: :: 2  {{ isa  List.rev [[x1 t1 .. xn tn]] }}
-    formula :: formula_ ::=          
-      | judgement              :: :: judgement
-      | formula1 .. formulan   :: :: dots
-

-The generated Isabelle code for symbolic -terms mentioning this production will involve a list of pairs. For -example, the rules -

-defn
-|- E  :: :: Eok :: Eok_ by
-
----------------------------- :: 2
-|- <x1:t1,..,xn:tn> 
-
-|- t1:K1  .. |- tn:Kn
----------------------------- :: 3
-|- <x1:t1,..,xn:tn> 
-

-generate -

consts
-  Eok :: "E set"
-inductive Eok tK
-intros
-
-(* defn Eok *)
-
-Eok_2I: " ( List.rev  (x_t_list) ) : Eok"
-
-Eok_3I: "[|
-(List.list_all (\<lambda> b . b) (  ((List.map (%(x_,t_,K_). ( t_ , K_ ) : tK) x_t_K_list))  ) )|]
- ==> 
- ( List.rev  ((List.map (%(x_,t_,K_).(x_,t_)) x_t_K_list)) ) : Eok"
-

-Note that in the second the list of pairs is projected out from the -x_t_K_list list of triples that is quantified over in the rule.

-

13  Subrules

Subrule declarations have the form -

-  subrules
-    nt1 <:: nt2
-

-where nt1 and nt2 are nonterminal roots.

Subrules can be chained, i.e. there can be a pair of -subrule declarations nt1 <:: nt2 and nt2 <:: nt3, -and they can form a directed acyclic graph, e.g. with -nt0 <:: nt1, nt0 <:: nt2, -nt1 <:: nt3, and nt2 <:: nt3. However, there cannot be -cycles, or nonterminal roots for which there are multiple upper bounds. -Subrule declarations should not involve nonterminal roots for which -proof-assistant type homs are specified.

We support the case in which the upper rule is also -non-free, i.e. it contains productions that mention nonterminals that -occur on the left of a subrule declaration. In the example below -(test11.ott) the -t rule contains a production Foo v. -

-  metavar termvar , x ::=
-    {{ isa string }} {{ coq nat }} {{ coq-equality }} {{ hol string }} {{ ocaml int }}
-
-  grammar
-    t :: ’t_’ ::=                                         
-      | x                   ::   :: Var                   
-      | \ x . t             ::   :: Lam  (+ bind x in t +)
-      | t t’                ::   :: App                   
-      | Foo v               ::   :: Foo
-
-    v :: ’v_’ ::=                        
-      | \ x . t             ::   :: Lam   
-
-  subrules
-    v <:: t
-
-  defns
-    Jb :: ” ::=
-
-      defn
-      Baz t , v ::  :: Baz :: ”       by 
-
-      
-      --------- :: ax
-      Baz t , v
-

- -In this case generated Isabelle/Coq/HOL/OCaml will define a single type and both is_v -and is_t predicates, and the generated inductive definition -clause for ax uses both predicates. The Isabelle clause is below. -

  axI: "[|is_t t ; is_v v|] ==>  ( t , v ) : Baz"
-
-

14  Context rules

The system supports the definition of single-hole contexts, e.g. for -evaluation contexts. For example, suppose one has a term grammar as below: -

-t :: ’t_’ ::=                               {{ com term    }}
-  | x                  ::  :: Var                   {{ com variable}}
-  | \ x . t            ::  :: Lam (+ bind x in t +) {{ com lambda  }}
-  | t t’               ::  :: App                   {{ com app     }}
-  | ( t1 , .... , tn ) ::  :: Tuple                 {{ com tuple }}
-  | ( t )              :: S:: Paren                 {{ icho [[t]]  }} 
-  | { t / x } t’       :: M:: Tsub  
-                        {{ icho (tsubst_t [[t]] [[x]] [[t’]])}}
-
-  | E . t              :: M:: Ctx  
-                        {{ icho (appctx_E_t [[E]] [[t]])}}
-                        {{ tex [[E]] \cdot [[t]] }}
-

-A context grammar is declared as a normal grammar but with a single -occurrence of the terminal __ in each production, e.g. as in -the grammar for E below (a rather strange evaluation -strategy, admittedly). -

-E :: ’E_’ ::=                               {{ com evaluation context }}
-  | __ t         ::  :: AppL                   {{ com app L    }}
-  | v __         ::  :: AppR                   {{ com app R    }}
-  | \ x . __     ::  :: Lam                    {{ com reduce under lambda }}
-  | ( t1 ( __  t2 ) ) :: :: Nested              {{ com hole nested }}
-  | ( v1 , .. , vm , __ , t1 , .. , tn ) :: :: Tuple {{ com tuple }}
-

-A contextrules declaration: -

-contextrules
-  E _:: t :: t
-

-causes Ott to (a) check that each production of the E grammar -is indeed a context for the t grammar, and (b) generates -proof assistant functions, e.g. appctx_E_t, to apply a context -to a term: -

(** context application *)
-Definition appctx_E_t (E5:E) (t_6:t) : t :=
-  match E5 with
-  | (E_AppL t5) => (t_App t_6 t5)
-  | (E_AppR v5) => (t_App v5 t_6)
-  | (E_Lam x) => (t_Lam x t_6)
-  | (E_Nested t1 t2) =>  (t_App t1  (t_App t_6 t2) )
-  | (E_Tuple v_list t_list) => (t_Tuple ((app_list_t v_list
-     (app_list_t (Cons_list_t t_6 Nil_list_t) (app_list_t t_list Nil_list_t)))))
-

As the Nested production shows, context productions can -involve nested term structure.

Note also that here the E grammar is not free (it mentions the -subrule nonterminal v) so an isvalue predicate -is_E_of_E is also generated.

In general, context rule declarations have the form -

-  contextrules
-    ntE _:: nt1 :: nt2
-

-where ntE, nt1, and nt2 are nonterminal -roots. This declares contexts ntE for the nt1 -grammar, with holes in nt2 positions.

Just as for substitutions, the context application function is -typically used by adding a metaproduction to the term grammar. -Here we add a production E.t to the t grammar with -an icho hom that uses appctx_E_t. -

-t :: ’t_’ ::=                               {{ com term    }}
-  ...
-  | E . t              :: M:: Ctx  
-                        {{ icho (appctx_E_t [[E]] [[t]])}}
-                        {{ tex [[E]] \cdot [[t]] }}
-

-That can then be used in relations: -

-    t –> t’
-    -------------- :: ctx
-    E.t –> E.t’
-

One would typically also define a terminals production for -the hole terminal __, e.g. here we typeset the hole as [·]. -

-terminals :: ’terminals_’ ::=
-  | __           ::  :: hole    {{ tex [\cdot] }}
-
-

15  Auxiliary Rules

-We permit an aux hom on grammar rules. For any rule with such a hom, -we transform that rule by appending an _aux to its primary nonterminal -root name. We then add a synthesised rule with the original nonterminal -root name and a single production, with a shape described by the body of -the aux hom, which must be of the form -

  {{ aux  foo1 foo2 _ bar1 bar2 bar3 }}
-

with a single _ and any number of strings fooi and barj before and -after. The _ is replaced by the original -nonterminal root name.

For example, given a grammar or metavariable l of source locations, one -might say -

ntr :: 'NTR_'  ::=  {{ aux _ l }}
- | ...
-

to synthesise grammars ntr_aux and ntr of unannotated and location-annotated -terms, the first with all the original productions and the second with a -single production -

 | ntr l :: :: NTR_aux. 
-

If the rule has an empty production name wrapper (eg with ’’ in place -of ’NTR_’) then the production name is based on the original -nonterminal root, capitalised and with _aux appended (eg Ntr_aux), to -avoid spurious conflicts.

An additional auxparams hom on rules lets the user add type -parameters to the generated OCaml output.

Generation of aux rules is controlled by a command-line option --generate_aux_rules, which one might (eg) set to false -for latex output and true for OCaml output.

-

16  Functions

Ott includes experimental support for writing function definitions. -As a simple example, consider the Ott file below:

-    grammar
-     n :: ’n_’ ::=
-       | 0       :: :: Zero
-       | S n     :: :: Succ
-
-    funs
-      Add ::=   {{ hol-proof ...  }}
-    fun
-      n1 + n2 :: n :: add    {{ com a function of type num -> num -> num }}
-    by
-      0 + n2 === n2
-      S n1 + n2 === n1 + S n2
-

Here the add function is compiled into the following Coq code:

-    Fixpoint add (x1:num) (x2:num) : num:=
-      match x1,x2 with
-      | n_zero , n2 => n2
-      | (n_succ n1) , n2 =>  (add n1 (n_succ n2) ) 
-    end.
-

More in detail, the -fun -n1 + n2 :: n :: add -by -declaration specifies: -

  • -the name of the function: add -
  • the symbolic term that defines the lhs: n1 + n2 -
  • the non-terminal that defines the rhs: n -

The type of the arguments of the function is defined by the -non-terminals appearing in the lhs, the return type by the rhs -non-terminal (so num → num → num in the -above example). As side-effect, whenever a function of type -symb_term → nt is defined, a production -nt ::= symb_term is added to the definition of the -non-terminal nt (in the above example, the production -n1 + n2 is added to the grammar of num).

Functions are then defined by case analysis, where the lhs and the rhs -are separated by the reserved symbol ===.

The {{ hol-proof }} hom -allows the specification of a termination proof, which is required by -Hol. Mutually recursive functions can be defined in the same -funs block, analogously to mutually recursive rule -definitions.

Disclaimer: the different treatment of partial functions by the -different provers can result in a function definition being compiled -correctly to one prover but not to others.

-

17  Parsing Priorities

Symbolic terms that can have more than one parse tree are typically considered -erroneous; however, certain classes of parse trees are ignored in order to -support common idioms that are ambiguous. For example, the production -

-
Γ ::= Γ1, .., Γn

-might be used to allow a list of typing contexts to be appended together, but -it is highly ambiguous. The following restrictions forbid many unwanted parses -that could otherwise occur. -

  • -All parses in which a nonterminal derives itself without consuming any input -are ignored. For example, in the production above, the list could otherwise be -of length one so that Γ directly derives Γ giving rise to a -vacuous cycle, and an infinite forest of parse trees. This restriction -ensures that only the tree without the vacuous cycle is considered. -
  • The parser for a list form ignores parses that unnecessarily break up the list -due to (direct or indirect) self reference. For example, -Γ1,Γ2,Γ3,Γ4 will not parse as a two element sequence -of two element sequences (Γ1,Γ2),(Γ3,Γ4) given the -production above. -
  • User supplied priority annotations in a parsing section rule out certain -trees as follows: -
    • -prodname1 <= prodname2: Parse trees where a -prodname1 node is a child of a prodname2 node are -ignored. -
    • prodname1 right prodname2: Parse trees where a -prodname1 node is the leftmost child of a prodname1 -node are ignored. -
    • prodname1 left prodname2: Parse trees where a -prodname2 node is the rightmost child of a prodname1 -node are ignored. -
    -In addition to immediate children, these priority annotations also prohibit -parse trees where the forbidden child node occurs underneath a chain of -derivations from the specified parent when the chain does not consume any -input. -Figure 17 demonstrates a typical use of a parsing -section; the declarations have effect as follows: -
    • -Line #1: n + n + n parses as (n + n) + n, but not n + (n + n); -
    • Line #3: n + n - n parses as (n + n) - n, but not n + (n - n); -
    • Line #9: -n + n parses as (-n) + n, but not -(n + n); -
    • Line #15: n + n n parses as n + (n n), but not (n + n) n; -n n + n parses as (n n) + n, but not n (n + n); -
    • Line #20: n, n n, n parses as n, (n n), n, but not (n, n) (n, n). -
    -Currently, the parsing section supports only these relatively low level -and verbose declarations. -
-
-metavar n ::=
-
-grammar
-
-e :: e_ ::= 
-| n             ::   :: num
-| - e           ::   :: neg
-| e1 + e2       ::   :: add
-| e1 - e2       ::   :: sub
-| e1 e2         ::   :: mul
-| e1 / e2       ::   :: div
-| e1 , .. , e2  ::   :: tup
-| ( e )         :: M :: par {{ icho [[e]] }}
-
-parsing
-
-e_add left e_add   % #1
-e_sub left e_sub
-e_add left e_sub   % #3
-e_sub left e_add
-
-e_mul left e_mul
-e_div left e_div
-e_mul left e_div
-e_div left e_mul
-
-e_neg <= e_add     % #9
-e_neg <= e_sub
-e_neg <= e_mul
-e_neg <= e_div
-e_neg <= e_tup
-
-e_add <= e_div
-e_add <= e_mul     % #15
-e_add <= e_tup
-e_sub <= e_div
-e_sub <= e_mul
-e_sub <= e_tup
-
-e_mul <= e_tup     % #20
-e_div <= e_tup
-
-

-
-
-
-
Figure 14: An Ott source file for basic arithmetic using the typical parsing priorities
-

18  Combining multiple source files

-Ott can be invoked with multiple source files. -Input filenames with extensions .tex, .v, -.thy, .sml, or ml are simply copied into -the relevant output (LATEX, Coq, Isabelle, HOL, or OCaml). -By default the source-file and command-line order of blocks is preserved, for grammar, -embeds, and inductive definitions.

The prover output can be split into multiple output files: each prover -output file specified with -o <filename> will contain the material -from the previous input files specified with -i (since the last -o -for the same prover).

Alternatively, one can add a -merge true command-line option, -in which case -the productions of multiple grammars that share the same header -are merged into a single grammar, and the rules of multiple -inductive definitions that share the same header are merged into a -single inductive definition. -This rudimentary form of modularity can be very useful, either to -split a language definition into separate features, or to define -reusable Ott components to define standard formulae, LaTeX pretty -printing of terminals, or LaTeX styles. -For example, Figure 15 shows the Ott source file for a -let feature in isolation, taken from our Ott development of -some languages from Pierce’s TAPL [Pie02]. -

-
-

-grammar
-t :: Tm ::=                                        {{ com terms: }}
-  | let x = t in t’                   ::   :: Let (+ bind x in t’ +)     {{ com let binding }}
-
-
-defns 
-Jop :: ” ::= 
-
-defn 
-t –> t’ :: :: red :: E_ {{ com Evaluation }} by
-
------------------------------ :: LetV
-let x=v1 in t2 –> [x|->v1]t2 
-
-t1 –> t1’
----------------------------------- :: Let
-let x=t1 in t2 –> let x=t1’ in t2
-
-
-defns
-Jtype :: ” ::= 
-
-defn
-G |- t : T :: :: typing :: T_ {{ com Typing }} by
-
-G |- t1:T1
-G,x:T1 |- t2:T2
------------------------- :: Let
-G |- let x=t1 in t2 : T2
-
-
-
-
Figure 15: An ott source file for the let fragment of TAPL
-

-The original TAPL languages were produced using -TinkerType [LP03] to compose features and check for -conflicts. -In examples/tapl we build a system, similar to the TinkerType -sys-fullsimple, from ott source files that -correspond roughly to the various TinkerType components, each with -syntax and semantic rules for a single feature.

-

19  Hom blocks

-Bindspecs and homomorphisms for productions, and any homomorphisms -for definitions, can appear in an Ott source file either -attached to the production or definition, as we have shown earlier, or -in separate hom blocks. -For example, one can write -

-homs ’t_’
-  :: Lam  (+ bind x in t +)  
-
-homs ’t_’
-  :: Var     {{ com variable }}         
-  :: Lam     {{ com abstraction }}      
-  :: App     {{ com application }}      
-  :: paren   {{ ich [[t]] }} 
-  :: tsub    {{ ich ( tsubst_t [[t]] [[x]] [[t’]] ) }}
-
-homs ”
-  :: reduce  {{ com [[t1]] reduces to [[t2]] }} 
-

-Each of these begins with a prefix and then has a sequence of -production name or definition name kernels, each followed by a -sequence of bindspecs and then a sequence of homomorphisms.

The test10_homs.ott example, in Fig. 16, shows this. It -is semantically equivalent to the test10.ott example of -Fig. 8, but the homs have been moved into hom -blocks. -

-
-

-metavar termvar , x ::= 
-  {{ isa string }} {{ coq nat }} {{ coq-equality }} {{ hol string }} {{ lex alphanum }}
-  {{ tex \mathit{[[termvar]]} }} {{ com  term variable  }} 
-
-grammar
-  t :: ’t_’ ::=    {{ com term }}
-    | x                   ::   :: Var   
-    | \ x . t             ::   :: Lam  
-    | t t’                ::   :: App  
-    | ( t )               :: S :: paren 
-    | { t / x } t’        :: M :: tsub  
-
-  v :: ’v_’ ::=    {{ com  value }}
-    | \ x . t             ::   :: Lam   
-
-  terminals :: ’terminals_’ ::=
-    | \                   ::   :: lambda  {{ tex \lambda }}
-    | –>                 ::   :: red     {{ tex \longrightarrow }}
-
-
-homs ’t_’
-  :: Lam  (+ bind x in t +)  
-
-homs ’t_’
-  :: Var     {{ com variable }}         
-  :: Lam     {{ com abstraction }}      
-  :: App     {{ com application }}      
-  :: paren   {{ ich [[t]] }} 
-  :: tsub    {{ ich ( tsubst_t [[t]] [[x]] [[t’]] ) }}
-
-homs ”
-  :: reduce  {{ com $[[t1]]$ reduces to $[[t2]]$ }} 
-
-
-subrules
-  v <:: t
-
-substitutions
-  single t x :: tsubst 
-
-defns
-  Jop :: ” ::=
-
-    defn
-    t1 –> t2 ::  :: reduce :: ” by 
-
-
-    --------------------------  :: ax_app
-    (\x.t12) v2 –>  {v2/x}t12
-
-    t1 –> t1’
-    -------------- :: ctx_app_fun
-    t1 t –> t1’ t
-
-    t1 –> t1’
-    -------------- :: ctx_app_arg
-    v t1 –> v t1’
-
-
- -
-
-
Figure 16: Hom Sections: test10_homs.ott
-
-

20  Isabelle syntax support

Ott has limited facilities to allow the Isabelle mixfix syntax support -and xsymbol to be used. The example test10_isasyn.ott shows -this in use. -

Non-meta productions can be annotated with -isasyn and/or isaprec homomorphisms. -For example, test10_isasyn.ott contains the production -

-  | t t’      :: :: App   {{ isasyn [[t]]\<bullet>[[t’]] }}  {{ isaprec 50 }}
-

-The two homs are used to output the Isabelle syntax annotation in the -t_App clause of the datatype definition below. -

t = 
-   t_Var "termvar"  
- | t_Lam "termvar" "t"  ("\<lambda> _ . _" 60)
- | t_App "t" "t"  ("_\<bullet>_" 50)
-

-Definitions can be annotated with -isasyn and/or isaprec homomorphisms similarly, e.g. as below. -

-    defn
-    t1 –> t2 ::  :: reduce :: ” {{ isasyn [[t1]] —> [[t2]] }}  by 
-

-This generates syntax and translations blocks as below. -

inductive_set reduce :: "(t*t) set"
-and  "reduce'" :: "t => t =>  bool" ("_ ---> _" 50)
-where "(t1 ---> t2) ==  ( t1 , t2 ) : reduce"
-

-Symbolic terms in definitions are printed using any production or -definition syntax. This (especially with xsymbol turned on) makes the -current goal state during Isabelle proof development much more -readable.

Further, there is a command line option -isa_syntax true. If -this is set then the tool generates Isabelle syntax annotations from -the source syntax. For example, the source file production for the -t_Lam clause is -

-    | \ x . t             ::   :: Lam   {{ isaprec 60 }}
-

-and the terminals grammar contains a mapping from \ to \<lambda>: -

-  terminals :: ’terminals_’ ::=
-    | \                   ::   :: lambda  {{ tex \lambda }}  {{ isa \<lambda> }}
-    | –>                 ::   :: red     {{ tex \longrightarrow }} {{ isa —> }}
-

-This is used (just as for LaTeX homs) to generate the ("\<lambda> _ . _" 60) -in the datatype definition above.

This functionality is limited in various ways: -(1) the full range of Isabelle precedence and associativity -specifications are not supported; -(2) the automatically generated syntax annotations are somewhat crude, -especially w.r.t. spacing and parenthesisation; -(3) syntax annotation on meta productions is not propertly supported; -and -(4) it would be desirable to have more fine-grain control of whether -to automatically generate annotations: per-production, per-rule, and -per-file.

-

21  Isabelle code generation example

The Isabelle/Coq/HOL code generation facilities can be sometimes used to -generate (variously) OCaml and SML code from the Isabelle/Coq/HOL -definitions produced by Ott.

For example, the test10st_codegen.thy file uses Isabelle -code generation to produce SML code to calculate the possible -reductions of terms in the test10st.ott simply typed lambda -calculus.

theory test10st_codegen 
-imports test10st_snapshot_out Executable_Set
-begin
-
-ML "reset Codegen.quiet_mode"
-
-(* Code generation for the test10st simply typed lambda calculus. *)
-
-constdefs
- ta :: t
-"ta == (t_App (t_Lam ''z'' (t_Var ''z''))) (t_Lam ''y'' (t_Var ''y''))"
-;
-
-code_module Test10st_codegen file "test10st_codegen.ml" contains 
-(*is_v
-tsubst_T
-tsubst_t*)
-reduce_ta  = "(ta,_):reduce"
-
-
-(* ...to build and demo the resulting test10st_codegen.ml code...
-
-Isabelle test10st_codegen.thy
-...`use' that...
-
-...in a shell...
-isabelle
-use "test10st_codegen.ml";
-open Test10st_codegen;
-
-...a test term...
-ta;
-val it = t_App (t_Lam (["z"], t_Var ["z"]), t_Lam (["y"], t_Var ["y"]))
-
-...a sample reduction...
-DSeq.hd(reducep__1 ta);
-val it = t_Lam (["y"], t_Var ["y"]) : Test10st_codegen.t 
-
-*)
-
-end
-
-

22  Reference: Command-line usage

A good place to get started is one of the test -make targets in the ott directory, e.g. -

test10: tests/test10.ott
-           bin/ott                                                \
-                  -i tests/test10.ott                             \ 
-                  -o out.thy -o out.v -o outScript.sml            \
-                  -o out.tex                                      \
-                  -parse ":t:  (\z.z z) y"                        \                  
-           && ($(LATEX) out; $(DVIPS) out -o)
-

When make test10 is executed, ott: -

  • -reads the source file tests/test10.ott -
  • (if one also specifies -show_post_sort true and -show_defns -true) prints on standard output various diagnostic information, -including ASCII versions of the grammar and -inductive definitions. -By default these are coloured (using -vt220 control codes) with metavariables in red, nonterminals -in yellow, terminals in green, and object variables in white. -Scanning over this output quickly picks up some common errors. -
  • parses the symbolic term (\z.z z) y using the t -grammar and prints the result to standard output -
  • generates Isabelle definitions in the file out.thy -
  • generates Coq definitions in the file out.v -
  • generates HOL definitions in the file outScript.sml -
  • generates a LaTeX document in the file out.tex, with a -standard document preamble to make it self-contained. -

-That LaTeX document is then compiled and converted to postscript.

For convenience, input files can also be listed at the end of the command line: -

  ott [options] <file1> ... <filen>
-

is equivalent to -

  ott -i <file1> ... -i <filen> [options]
-

The %.out Makefile target runs ott with common -defaults on the file %.ott, so for example executing make tests/test10.out -runs ott on tests/test10.ott, generating all outputs. There are -also targets  %.coq.out,  %.hol.out, and - %.isa.out, to generate just LaTeX and the code for one proof -assistant, and  %.tex.out, to generate just LaTeX.

The ott command-line options (with default values where applicable) are -shown below. -

Ott version 0.28   distribution of Mon 27 Nov 2017 17:18:55 GMT
-
-usage: ott <options> <filename1> .. <filenamen> 
-  (use "OCAMLRUNPARAM=p  ott ..." to show the ocamlyacc trace)
-  (ott <options> <filename1> .. <filenamen>    is equivalent to
-   ott -i <filename1> .. -i <filenamen> <options>)
-
-  -i <filename>                      Input file (can be used multiple times)
-  -o <filename>                      Output file (can be used multiple times)
-  -writesys <filename>               Output system definition
-  -readsys <filename>                Input system definition
-  -tex_filter <src><dst>             Files to TeX filter
-  -coq_filter <src><dst>             Files to Coq filter
-  -hol_filter <src><dst>             Files to HOL filter
-  -lem_filter <src><dst>             Files to HOL filter
-  -isa_filter <src><dst>             Files to Isabelle filter
-  -ocaml_filter <src><dst>           Files to OCaml filter
-  -merge <false>                     merge grammar and definition rules
-  -parse <string>                    Test parse symterm,eg ":nontermroot: term"
-  -fast_parse <false>                do not parse :rulename: pseudoterminals
-  -signal_parse_errors <false>       return >0 if there are bad defns
-  -picky_multiple_parses <false>     Picky about multiple parses
-  -quotient_rules <true>             Quotient rules, as per {{ quotient-with ntr }} homs
-  -generate_aux_rules <true>         Generate auxiliary rules or constructor arguments from {{ aux ... }} homs
-  -aux_style_rules <true>            Auxiliary rules (true) vs constructor arguments (false)
-  -output_source_locations <0>       Include source location info in output (0=none, 1=drules, 2=grammar+drules)
-  -colour <true>                     Use (vt220) colour for ASCII pretty print
-  -show_sort <false>                 Show ASCII pretty print of syntax
-  -show_defns <false>                Show ASCII pretty print defns
-  -tex_show_meta <true>              Include meta prods and rules in TeX output
-  -tex_show_categories <false>       Signal production flags in TeX output
-  -tex_suppress_category <[]>        Suppress productions and rules with this category in TeX output
-  -tex_suppress_ntr <[]>             Suppress nonterminal root in TeX output
-  -tex_colour <true>                 Colour parse errors in TeX output
-  -tex_wrap <true>                   Wrap TeX output in document pre/postamble
-  -tex_name_prefix <string>          Prefix for tex commands (default "ott")
-  -isabelle_primrec <true>           Use "primrec" instead of "fun"
-                                       for functions
-  -isabelle_inductive <true>         Use "inductive" instead of "inductive_set"
-                                       for relations
-  -isa_syntax <false>                Use fancy syntax in Isabelle output
-  -isa_generate_lemmas <false>       Lemmas for collapsed functions in Isabelle
-  -coq_avoid <1>                     coq type-name avoidance
-                                       (0=nothing, 1=avoid, 2=secondaryify)
-  -coq_expand_list_types <true>      Expand list types in Coq output
-  -coq_lngen <false>                 lngen compatibility
-  -coq_names_in_rules <true>         Copy user names in rule definitions
-  -coq_use_filter_fn <false>         Use list_filter instead of list_minus2 in substitutions
-  -ocaml_include_terminals <false>   Include terminals in OCaml output (experimental!)
-  -pp_grammar                        (debug) print term grammar
-  -dot <filename>                    (debug) dot graph of syntax dependencies
-  -alltt <filename>                  (debug) alltt output of single source file
-  -sort <true>                       (debug) do topological sort
-  -process_defns <true>              (debug) process inductive reln definitions
-  -showraw <false>                   (debug) show raw grammar
-  -ugly <false>                      (debug) use ugly ASCII output
-  -no_rbcatn <true>                  (debug) remove relevant bind clauses
-  -lem_debug                         (debug) print lem debug locations
-  -help                              Display this list of options
-  --help                             Display this list of options
-
-

23  Reference: The language of symbolic terms

A syntax definition conceptually defines two different languages: that -of concrete terms of the object language, and that of symbolic terms -over the object language. -The former includes concrete variables (if nontrivial lex homs -have been specified for metavariables). -The latter includes the former but also -allows symbolic metavariables and nonterminals. -Symbolic terms may also include the production-name -annotations mentioned in §3. -For a syntax definition with list forms (c.f. §12) symbolic -terms also include various list constructs. -A simplified abstract syntax of symbolic terms is shown in -Figure 17, omitting list forms. In this section we give an -informal definition of the full concrete syntax of symbolic terms. -

-
-
Figure 17: Mini-Ott in Ott: symbolic terms
-

The premises and conclusions of inductive definition rules are -symbolic terms. -The language of symbolic terms is defined informally below, with interpretation functions [[_]] that map defined entities into grammar clauses.

For a rule rule   = -

-
nontermroot1   ,   ..   ,   nontermrootn ::   ’’   ::=   prod1   ..   prodm 

-we have -

-
- - - - -
 [[rule]]::= 
 |nontermroot suffix(1) 
 |[[prod1]] 
 |..  
 |[[prodm]] 

(1) for each nontermroot in the set -{nontermroot1   ,   ..   ,   -nontermrootn } -and for each nontermroot defined by any rule′ -which is declared as a subrule of this rule.

For a production prod   = -

-
|   element1   ..   elementm   ::   ::   prodname

-we have -

-
- - -
 [[prod]]::= 
 |[[element1]]   ..   [[elementm]] 
 |:prodname:  [[element1]]   ..   [[elementm]] 

For an element there are various cases. -

  1. -For a terminal terminal - -
    -
     [[terminal]]::=terminal
    -
  2. For a nonterminal nontermroot   suffix - -
    -
     [[nontermroot   suffix]]::=[[rule]] 
    -where rule includes nontermroot among the -nonterminal roots it defines. (Note that this does not depend on what suffix was used in the grammar, and similarly for the metavar case below.)
  3. For an index variable indexvarroot - -
    -
     [[indexvarroot]]::=indexvarroot′
    -for each indexvarroot′ defined by the indexvar -definition that defines indexvarroot.
  4. For a metavariable metavarroot   suffix - -
    - - -
     [[metavarroot   suffix]]::= 
     |metavarroot′ suffix(1) 
     |variable 
    -(1) for each metavarroot′ defined by the metavar -definition that defines metavarroot. -(2) where variable ranges over all the strings defined by -the lex regexp of the metavar -definition that defines metavarroot, except for any string -which can be parsed as a nonterminal, metavariable or terminal of the syntax -definition. -
  5. A list form element element could be any of the following, either without a separating terminal: - -
    - - - - -
    element1 .. elementn  -  dots   -element′1 .. element′n 
    </  element1 .. elementn   //   indexvar   /> 
    </  element1 .. elementn   //   indexvar   IN   indexvar′   /> 
    </  element1 .. elementn   //   indexvar   IN   number   dots   indexvar′   /> 
    </  element1 .. elementn   //   indexvar   IN   number   dots   indexvar′-1   /> 
    -or with a separating terminal: - -
    - - - - -
    element1 .. elementn  -  terminal   dots   terminal   -element′1 .. element′n 
    </  element1 .. elementn   //  terminal //  indexvar   /> 
    </  element1 .. elementn   //  terminal //  indexvar   IN   indexvar′   /> 
    </  element1 .. elementn   //  terminal //   indexvar   IN   number   dots   indexvar′   /> 
    </  element1 .. elementn   //  terminal //   indexvar   IN   number   dots   indexvar′-1   /> 
    -In any of these cases the interpretation [[element]] is the lists (separated by the terminal if one was specified) of concrete list entries and of list forms. -Without a separating terminal, this is: - -
    - - - - - - - - - -
     [[element]]::=(concrete_list_entry | list_form)*(2), (3)
     
    concrete_list_entry::=[[element1]]   ..   [[elementn]] 
     
    list_form::= 
     |[[element1]]   ..   [[elementn]]  - dots′  -[[element′1]]   ..   [[element′n]](1) 
     |</  [[element1]] .. [[elementn]]   //  indexvar″   /> 
     |</  [[element1]] .. [[elementn]] //  indexvar″   IN   indexvar‴   /> 
     |</  [[element1]] .. [[elementn]] //   indexvar″   IN   number′   dots′   indexvar‴   /> 
     |</  [[element1]] .. [[elementn]] //   indexvar″   IN   number′   dots′   indexvar‴-1   /> 
    -This is subject to constraints: (1) that -[[element1]]   ..   [[elementn]] -and -[[element′1]]   ..   [[element′n]] can be -anti-unified with exactly one varying index; (2) if the list has only -concrete entries (i.e., no list forms), its length must meet -the constraint of any dots in the -element.

    With a separating terminal, we have: -

    -
    -
     [[element]]::=є | (concrete_list_entry | list_form) -(terminal (concrete_list_entry | list_form))*

In the above -

-
- - - - - - - - -
dots::=.. | ... | .... 
number::=0 | 1  
suffix::=suffix_item* 
suffix_item::= 
 |(0 | 1 |2 | 3 |4 | 5 |6 | 7 |8 | 9)+(longest match) 
 |_ 
 |’ 
 |indexvar 
 |indexvar-1 

Further, whitespace (' '|'\010'|'\009'|'\013'|'\012') is allowed before any token except a those in a suffix, and nonterminals, metavariables, index variables, and terminals that end with an alphanumeric character, must not be followed by an alphanumeric character.

The tool also builds a parser -for concrete terms, with fake nonterminal roots concrete_ntr -for each primary ntr of the syntax definition. One can -switch to concrete-term parsing with a :concrete: annotation, -as in the example -

\[ [[ :concrete: \Z1<:Top. \x:Z1.x ]]\]
-

-shown in Figure 10. Below such an annotation, only concrete terms -are permitted, with no further annotation, no symbolic nonterminals or -metavariables, no list dot forms or comprehensions, etc.

Parsing of terms is done with a scannerless GLR parser over character-list -inputs. The parser -searches for all parses of the input. If none are found, the ASCII -and TeX output are annotated no parses, with a copy of the -input with *** inserted at the point where the last token was -read. This is often at the point of the error (though if, for -example, a putative dot form is read but the two element lists cannot -be anti-unified, it will be after the point of the error). -If multiple parses are found, the TeX output is annotated -multiple parses and the different parses are output to the -console in detail during the Ott run.

The GLR parser -achieves reasonable performance on the small symbolic terms that are -typical in semantic rules. Its performance on large (whole-program -size) examples is untested.

-

24  Reference: Generation of proof assistant definitions

This section briefly summarises the steps involved in the generation -of proof assistant definitions from an Ott source file. For a description of the locally-nameless backend, refer to http://moscova.inria.fr/ zappa/projects/ln_ott/. -

-

24.1  Generation of types

  • -The primary metavariable roots and primary nonterminal roots are used -directly as the names of proof assistant types, except where they -have a hom specifying a root-overriding string. -
  • Type abbreviation declarations are produced for metavars, in the -source-file order, skipping metavars or nonterminals defined with phantom. -
  • Type generation considers each rule of the user’s source grammar -except those for formula and terminals (or the -synthesized rules for the syntax of judgements or user_syntax). -
  • The subrule order is analysed to identify the top elements. For -each of those, a proof assistant type will be generated — either a -free type (coq: inductive, isa: -datatype, hol: Hol_datatype), or if there is a -type hom for the proof assistant in question, a type abbreviation. -No types are generated for the non-top elements, as they will be -represented as predicates over the top free type above them. -
  • For the former, each non-meta production of the rule -gives rise to a constructor. The production name (with any per-rule -prefix already applied) is used directly as the constructor name. -The (curried) constructor argument types are taken from the -types associated with the metavariables and nonterminals mentioned -in the production body. -
  • Rules (within each grammar block, if -merge -false, or all rules, if -merge true) are topologically sorted according to the dependency order -(a free-type rule directly depends on another if one of its non-meta -productions includes a nonterminal of the other; dependencies for rules with a type-hom -for the proof assistant in question -are obtained from a crude lexing of the body of the type hom). -We then generate mutually recursive type -definitions for connected components, in an order consistent with -the dependencies. -
  • For productions that involve list dot forms or list comprehension -forms, for HOL and Isabelle we produce constructors with argument -types that involve native list types. For Coq, however, we -synthesise an additional inductive type for each list-of-tuples that arises -(both for those that occur in the grammar and for others required in -the translations of inductive definitions) and include them in the -topological sort. -
-

24.2  Generation of functions

-A small number of library functions (list_mem, -list_minus,...) are included in the output if they are -required.

Several Coq list functions (map, make, unmake, nth, app) are generated -for each synthesized list type.

The definitions of the more interesting functions (subrule predicates, -binding auxiliaries, free variable functions, and substitutions) are -generated over the free types generated for the maximal elements of the -subrule order (generation of these functions for rules with type homs -is not supported). The definitions are by pattern-matching and -recursion. -The patterns are generated by building canonical symbolic terms from -the productions of each relevant rule. -The recursion is essentially primitive recursion: -for Coq we produce Fixpoints or Definitions -(the latter is sometimes needed as the former gives an error in the case where there is no -recursion); -for Isabelle we produce primrecs (or, experimentally, funs); -for HOL we use an ottDefine variant of the Define -package. -In general we have to deal both with the type dependency -(the topologically sorted mutually recursive types described above) -and with function dependency — for example, for subrule predicates -and binding auxiliaries we may have multiple mutually recursive -functions over the same type.

For Coq the function generation over productions that involve list -types must mirror that, so we generate auxiliary functions -that recurse over those list types.

For Isabelle the primrec package does not support -definitions involving several mutually recursive functions over the -same type, so for these we generate single functions calculating -tuples of results, define the intended functions as projections of -these, and generate lemmas (and simple proof scripts) characterising -them in terms of the intended definitions. -Further, it does not support pattern matching involving nested -constructors. We therefore generate auxiliary functions for -productions with embedded list types. Isabelle tuples are treated as -iterated pairs, so we do the same for productions with tuples of size -3 or more. -Isabelle also requires a function definition for each recursive type. -In the case where there are multiple uses of the same type -(e.g. several uses of t list in different productions) all the -functions we wish to generate need identical auxiliaries. As yet, the -tool does not generate the identical copies required.

If the option -isabelle_primrec is set to false, then -Ott uses the fun package instead of the primrec package. -Since at the time of writing Isabelle 2008 is not capable of proving -automatically termination of all the funs that Ott generates, -this feature should be considered experimental.

For HOL the standard Define package tries an automatic -termination proof. For productions that involve list types -our generated functions involve various list functions which prevent -those proofs working in all cases. -We therefore use an ottDefine variant (due to Scott Owens), -with slightly stronger support for proving termination of -definitions involving list operators.

-

24.2.1  Subrule predicates

We generate subrule predicates to carve out the subsets of each free -proof assistant type (from the maximal elements of the subrule order) -that represent the rules of the grammar. -The non-free rules are the least subset of the rules that either -(1) occur on the left of a subrule (<::) declaration, or -(2) have a (non-meta) production that mentions a non-free rule. -Note that these can include rules that are maximal elements of the -subrule order, e.g. if an expression grammar included a production -involving packaged values. -The subrule predicate for a type is defined by pattern matching over -constructors of the maximal type above it — for each non-meta -production of the maximal type it calculates a disjunction -over all the productions of the lower type that are subproductions of -it, invoking other subrule predicates as appropriate.

-

24.2.2  Binding auxiliaries

-The binding auxiliary functions calculate the intuitive semantics of auxiliary functions defined in bindspecs of the Ott source file. Currently these are represented as proof assistant lists of metavariables or nonterminals (arguably set types should be used instead, at least in Isabelle).

-

24.2.3  Free variables

-The free variable functions simply walk over the structure of the free proof assistant types, using any bind specifications (and binding auxiliaries) as appropriate. -For these, and for substitutions, we simplify the generated functions by using the dependency analysis of the syntax to exclude recursive calls where there is no dependency.

-

24.2.4  Substitutions

-The generated substitution functions also walk over the structure of the free proof assistant types. -For each production, for each occurrence of a nonterminal nt within it, we first calculate the things (of whatever type is in question) binding in that nt, i.e. those that should be removed from the domain of any substitution pushed down into it. There are two cases: -(1) the mse' from any bind mse' in nt; -(2) nt itself if it occurs in the mse'' of any bind mse'' in nt'', i.e.  -nt itself if it is directly used to bind elsewhere. -List forms within bindspecs are dealt with analogously. -

The substitution function clause for a production is then of one of two forms: -either (1) the production comprises a single element, of the nonterminal or metavariable that we are substituting for, and this is within the rule of the nonterminal that it is being replaced by, or (2) all other cases. -For (1) the element is compared with the domain of the substitution, and replaced by the corresponding value from the range if it is found. -For (2) the substitution functions are mapped over the subelements, having first removed any bound things from the domain of the substitution.

This is all done similarly, but with differences in detail, for single and for multiple substitutions.

-

24.3  Generation of relations

-The semantic relations are defined -with the proof-assistant inductive relations packages -(coq: Inductive, -isa: inductive, -hol: Hol_reln). -They use the mutual recursion structure that is given by the user, -with each defns block giving rise to a potentially mutually -recursive definition of each defn inside it. -(It is debatable whether it would be preferable to do an automatic dependency analysis and topological sort, as for the syntax.) -Each definition rule gives rise to an implicational clause, essentially -that the premises (Ott formulas) imply the conclusion (an Ott symbolic term of whichever judgement is being defined). -In addition: -

  • -Symbolic terms are transformed in various different ways: -
    • -Nodes of non-meta productions are output as applications of the appropriate proof-assistant constructor (and, for a subrule, promoted to the corresponding constructor of a maximal rule). -
    • Nodes of meta productions are transformed with the user-specified homomorphism. -
    • Nodes of judgement forms are represented as applications of the defined relation in Coq and HOL, and as set-membership assertions in Isabelle. -
    • Lists of formulae (the formula_dots production) are special-cased. -
    -
  • For each nonterminal of a non-free syntax rule (as in §24.2.1) that occurs, -e.g. a usage of v' where v<::t, an additional premise invoking the subrule predicate for the non-free rule is added, e.g. is_v v'. -
  • The set of symbolic terms of the definition rule are analysed together to identify list forms with the same bounds. A single proof assistant variable is introduced for each such, with appropriate projections and list maps/foralls at the usage points. -
  • For Coq, auxiliary defined relations are introduced for list forms. -
  • For Coq, as the projections from list forms involve (Ott-generated) nth functions that return option types, for any such projection a pattern-match against Some is introduced as an additional premise. -
  • For Coq and HOL, explicit quantifiers are introduced for all variables mentioned in the rule. -
-

25  Reference: Summary of homomorphisms

Homomorphisms can appear in various positions in an Ott source -file. The table below summarises their meanings. A * indicates that arguments are meaningful for that usage (e.g. [[e1]] in a production mentioning a nonterminal or metavariable -e1).

- - - - - - -
a metavar or indexvar declaration, after one of the defined metavar/indexvar roots, or
a rule, after one of the defined nonterminal -roots
tex*LaTeX typesetting for symbolic variables with that root
isa/coq/hol/ocaml Isabelle/Coq/HOL/OCaml root overriding string (1)
repr-locally-nameless use a locally-nameless representation (Coq backend only)
 
- - - - - - - - - - - - - - - - -
a metavar or indexvar declaration, after the ::=
isa Isabelle representation type
coq Coq representation type
hol HOL representation type
ocaml OCaml representation type
tex*LaTeX typesetting for symbolic variables
com comment to appear in LaTeX syntax definition
coq-equality Coq proof script to decide equality over the representation type
repr-locally-nameless (Coq only) use a locally-nameless representation
phantom suppress the representation type definition in theorem prover output
lex regular expression for lexing concrete variables
texvar*LaTeX typesetting for concrete variables
isavar*Isabelle output for concrete variables
holvar*HOL output for concrete variables
ocamlvar*OCaml output for concrete variables
 
- - - - - - - - - - - - - - - - - - -
a rule, after the ::=
isa Isabelle representation type, if a non-free type is required
coq Coq representation type, if a non-free type is required
hol HOL representation type, if a non-free type is required
ocaml OCaml representation type, if a non-free type is required
tex*LaTeX typesetting for symbolic variables
com*comment to appear in LaTeX syntax definition
coq-equality Coq proof script to decide equality over the representation type
coq-universe Coq universe (e.g. Type) for the representation type
phantom suppress the representation type definition in theorem prover output
aux(*)construct an auxiliary grammar rule with a single production
icho*shorthand for identical coq, isa, hol, and ocaml homs
ichlo*shorthand for identical coq, -isa, hol, lem, and ocaml homs
ich*shorthand for identical coq, isa and hol homs
ic*shorthand for identical coq and isa homs
ch*shorthand for identical coq and hol homs
ih*shorthand for identical isa and hol homs
 
- - - - - - - - - - - - - - - - -
a production
isa*Isabelle output, for a non-free (meta) production
coq*Coq output, for a non-free (meta) production
hol*HOL output, for a non-free (meta) production
ocaml*OCaml output, for a non-free (meta) production
tex*LaTeX typesetting for symbolic terms
texlong typeset as long production
com*comment to appear in LaTeX syntax definition
order*specify order of arguments to prover or Ocaml constructor
isasyn*Isabelle mixfix syntax output
isaprec Isabelle mixfix syntax precedence string
ich*shorthand for identical coq, isa and holhoms
ic*shorthand for identical coq and isa homs
ch*shorthand for identical coq and hol homs
ih*shorthand for identical isa and hol homs
 
- - - - - -
a production of the terminals grammar
isa Isabelle output, for terminals in default generated Isabelle mixfix declarations
tex LaTeX default typesetting for terms
com*comment to appear in LaTeX syntax definition
 
- - - - - - - - - - - -
a defn, before the by
tex*LaTeX typesetting for symbolic terms
com*comment to appear in LaTeX syntax definition
isasyn*Isabelle mixfix syntax output
isaprec Isabelle mixfix syntax precedence string
lemwcf Lem witness, check, and functions spec for indrelns
 
a homs section clause (for a production or a definition)
as in the above production and defn forms
 
- - - -
a group of defns, after the ::=
coq-universe Coq universe (e.g. Type) for the representation type
 
- - - - - - - - - - -
an embed section
isa embedded Isabelle output
coq embedded Coq output
hol embedded HOL output
ocaml embedded OCaml output
tex embedded LaTeX output
tex-preamble embedded LaTeX output, appearing in the LaTeX preamble
coq-lib do not generate definitions for the listed helper functions
isa-auxfn-proof Isabelle proof script
isa-subrule-proof Isabelle proof script
- - -
in a subrule, substitution or function definition
isa-proof Isabelle proof script

(1) This is occasionally useful to work around a clash between a -metavar or nonterminal primary root and a proof assistant symbol, -e.g. value in Isabelle or T in HOL.

-

26  Reference: The Ott source grammar

-This is automatically generated (by mly-y2l) from the -ocamlyacc grammar for Ott. -

The lexing of Ott source files is context-dependent; this does not -show that.

Not everything in the grammar is fully supported — in particular, -option element forms, non-dotted element list forms, the three names distinctness forms of -bindspecs, and context rules.

-

27  Reference: Examples

The project web page -

-http://www.cl.cam.ac.uk/users/pes20/ott/ -

-gives a variety of examples. Some of these, and additional -small examples, are included in the distribution in the tests -directory. Typically they can be built using the Makefile in -the ott directory, e.g. typing make test10 or (more generally) make tests/test10.out) there.

- - - - - - - - - - - - - - - - - - -
test10.ottuntyped CBV lambda
test10st.ottsimply typed CBV lambda
test8.ottML polymorphism example
test7a.ottPOPLmark Fsub example (without records)
test7b.ottPOPLmark Fsub example (with records)
leroy-jfp96.ottLeroy module system
lj.ottLJ: Lightweight Java
test7t.mngwhole-document tex mng source
 (make test7afilter to build)
test7tt.mngfragment tex mng source
test11.ottsubrule example
test12.otttopological sort example
test13.ottsmall bindspec fragment
test10st_snapshot_out.thysnapshot of generated Isabelle from test10st.ott
test10st_metatheory_autoed.thyIsabelle proof script for type -preservation and progress
test10st_codegen.thyIsabelle code generation script for reduction
test10_isasyn.ottIsabelle mixfix syntax example
test10st_metatheoryScript.smlHOL proof script for type preservation and progress
test17.10.ottlist comprehension examples

The examples/tapl directory contains several examples taken from the book ‘Types and Programming Languages’ by Benjamin Pierce. The make targets, listed below, combine Ott source files -following roughly the TinkerType component structure used in TAPL.

- - - - - - - - -
sys-boolbooleans (p34)
sys-aritharithmetic expressions (p41)
sys-untypeduntyped lambda-calculus with booleans
sys-puresimplesimply-typed lambda-calculus
sys-tybooltyped booleans
sys-sortoffullsimple 
sys-roughlyfullsimple 
sys-puresub 
sys-purercdsub 

Other examples can be found on the locally-nameless backend web page.

-

Acknowledgements

-We thank -the Ott users for their feedback, especially Matthew Parkinson; -the other members of the POPLmark team, especially Benjamin -Pierce, Stephanie Weirich, and Steve Zdancewic, for -discussions; -and Keith Wansbrough, Matthew Fairbairn, and Tom Wilkie, for their work -on various Ott predecessors.

We acknowledge the support of EPSRC grants -GR/T11715, EP/C510712, and EP/F036345, a Royal Society -University Research Fellowship (Sewell), an EPSRC Leadership -Fellowship (Sewell), -EPSRC Programme Grant, EP/K008528/1 REMS Rigorous Engineering of -Mainstrem Systems, -and ANR grant ANR-06-SETI-010-02 (Zappa Nardelli).

-

References

-[ABF+05]
-Brian E. Aydemir, Aaron Bohannon, Matthew Fairbairn, J. Nathan Foster, -Benjamin C. Pierce, Peter Sewell, Dimitrios Vytiniotis, Geoffrey Washburn, -Stephanie Weirich, and Steve Zdancewic. -Mechanized metatheory for the masses: The POPLmark Challenge. -In Proc. TPHOLs, LNCS 3603, 2005.
[FGL+96]
-Cédric Fournet, Georges Gonthier, Jean-Jacques Lévy, Luc Maranget, and -Didier Rémy. -A calculus of mobile agents. -In Proc. CONCUR ’96, LNCS 1119, 1996.
[Ler96]
-Xavier Leroy. -A syntactic theory of type generativity and sharing. -Journal of Functional Programming, 6(5):667–698, 1996.
[LP03]
-Michael Y. Levin and Benjamin C. Pierce. -Tinkertype: A language for playing with formal systems. -Journal of Functional Programming, 13(2), March 2003.
[Pie02]
-Benjamin C. Pierce. -Types and Programming Languages. -MIT Press, 2002.
[SSP07]
-Rok Strniša, Peter Sewell, and Matthew Parkinson. -The Java Module System: core design and semantic definition. -In Proceedings of OOPSLA 2007, the 22nd ACM SIGPLAN -International Conference on Object-Oriented Programming, Systems, Languages -and Applications (Montreál), October 2007. -15pp.
[SZNO+07]
-Peter Sewell, Francesco Zappa Nardelli, Scott Owens, Gilles Peskine, Thomas -Ridge, Susmit Sarkar, and Rok Strniša. -Ott: Effective tool support for the working semanticist. -In Proceedings of ICFP 2007: the 12th ACM SIGPLAN International -Conference on Functional Programming (Freiburg), October 2007. -12pp.
[SZNO+10]
-Peter Sewell, Francesco Zappa Nardelli, Scott Owens, Gilles Peskine, Thomas -Ridge, Susmit Sarkar, and Rok Strniša. -Ott: Effective tool support for the working semanticist. -Journal of Functional Programming, 20(1):70–122, January 2010. -Invited submission from ICFP 2007.
-
-1
Strictly, clauses -of primitive recursive function definitions from symbolic terms to strings, here of LaTeX code. -
- - - - - -
This document was translated from LATEX by -HEVEA.
- diff --git a/vendors/ott/built_doc/top2.pdf b/vendors/ott/built_doc/top2.pdf deleted file mode 100644 index 217435caddf5e6d46bfa32374ef5575ee8dc6be4..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 450300 zcmY!laBC%lmg1t89dnMlf zEC2I!qIvEHwRL6-ZgX&~e!P3jr2ET1Nv(Vput&rwXIxi^uBoOy;$r`?@D{l=B8X0ZbH}6gGPNPiWi%E;ywy)LTIsAHpd@pa~@vj$s znHDWmj9e{QCC$qs?&_Vof%n|g#Cs8+w^_4R&XAh3IC0;D=NxVeSKs@*N_EB(+iSWk z%?q_Y9+#4MySS?V^QW5*e>{aLNuRC7;)bup)bIuwr#lz}t6w*FztlZ##Bc+3|VUO7Y~+y*fJX73C{-92ZJ^5^}n;$kNm$NRqB@Q25S0`=}Ft#fBVtVU{-ITA_F23|EXbEea z$Kt+)Pc4yOBFbSF-$547n@_#!160>CNhpVJnC*P4quqx6ok2DSyFkv?dz-6`oCMah zc%Ip^qEphmUuarS($7hM=X}Z5&+=RAza(9jUr26~^RXiax8CwsUfFlFBPGqFPhi#B zx=Hol?99wB&j@@i)h*kTd4}KRsO;nNWn0f3ZtaQpI_kFjhLB5`bnc305*PKiGt6N5 z$GJbuL#(K0;+DlBkE}IsCTIFJeaOh=mF6=JZAvuT$}=x_=6CTey?ry-d^GK(zTMq3 z(WZFk#G>``Pn9Od@n4?0NpI@)3!m0!d%v3Qb36We#)%Ih4&u!-TMW;duoU0=V{SFU zL(4hLd`r~s&Fe3IFFJErZ+}u|DdRSt1p9Eyg;Me%!JjX`-cxexSeEPi=dl})@Y=~< zxvH&0%nbvH0@%C|=)o~z$Bsaji`ZMJ^Hbn)DYTifII>+hIUB$&DC ztU0Tz+vO9h;_c#|=LWZMEy|SMw#+_9p8 zk0QIDZ(w!We#yktNNA>ht4FTjAs>aUYis3REzfLCs+?;0MGJD4|wMlY0kF?v;+&a8{#MTDiOW)>Q!{&P;Y_3hCfKz76j%-2B z2A7-j)0CtY)EwW>dYGsjB{a=rpKp}P8P!;m&L#P~=9}Bd%AZ^(T{V zsV2XE;_zwlLeA3UPe)3gT1fm;n{;8)SD)2hpOxmEnzh~NYX6hulTQUzy`IneHnB8$ zON*;}j$-GoMX4*Q#6{(&U9vKi^F5%Xt;D_O1Z%^FKi#;vpYG<`d3%Ze8Y7i9&-;rO%5~Z5<*Ko+=PkUoWqAnG z$`8EH7D-H5dFtN7?Z=L%?6iGv9Jb$HAoj9ck&&$r!TK63HtS(*bd!u|od4fFKoBCt#?DmE{VHY(K zW-Q$3ocl=7Nn?`Gw^N&};~D&gvb8y9ve<-#F0GkkFm-`lsjA~n{|6qydJnd&=9(bG zcGz&~(gSIU8vEG(oBTM-P*)@~(Lzn-QG&n>?R2}R)ot3ytU7dW{u*-$rsGqmZC-Hw#@-28lKopQ7V_6s>-~Or?84c-X`l1T6tDB0_-oZJ z(-dyNCA}dzMV7<2(tC@$i)q#Ms?7&-ceK5$T(J5+PZ_uQTj#TzACxjz1h<^e47oco zy6NSLi;pP$P=J+Ss)@5}<`iZxSRzvr z7cH+Kx9Y4!<8n&{Myb!7%f7$JVXt}Xe!%?HfL*NC+EfMuBiq^d_r$d zoBYX}Wh1|5ZJnj$9ecawu6CS9gHN4qcIYgr>Tg&ZcKY6r?<`+u<~w8`j4R0a9<$=R z@Wyz#NAnVU4Ho=6Ub`Dt%VnBcqr5+d()9P1-yO}qP7 z^QiBqX$!v}4=OqGP)=CxoZ98rL(j1zPZ+&hGm-FnK|2wq|Z4_-Dq*EW8d4L zV^1Hi+b0_7vTym^i+;(C*K4d~9vU*(UaL8DW@Yq5-tVqWZXD;hS~Y6d-z)h)v(`>Q z^iP(NsP8j@&{Y9qyKFDK3$|clTx*)=DD!ac)itM|p1WmL#cS!hYeB@@OPikfPAWVf zWwumv`kVW*m3!5lsylmbulcfu`3;NJgbngje!ZT(KFH@n(t$}w_%>{E@!iAwG_SRL zMR-lRPkFfGr9ktIVplt>ZT;#dpSoK(ulRpu@d=wj9H8k|uav9Uh8LKP%E*T2n?G4+J9Ar9O zLV9i2h0o4=^7Nh-%j^~Aocn0c(aC3Kd3&C!SRL|GNNv80_{@7PUM0&zH9J>5H`x+s zb!*LvLrt!xv8$|nLfW-HFUra(Uz;5l(r(n=`KtL>ss0+HF6Gz@oaI+Or%rgsb9Lv+ znCXfJlcz`K2(hR2JUi`sooTmEW9wy>vhBH|oflqavpju}{;lq`2aE5=+h)O$HMKs5 zZ$yG_D|v<(t?;qtGg(nPb+f0YcQilF{jK^hG3jb5C%a9JVf6>>{ z@R@-6vUE44;L>ZI6El4-$%y}LTDOS#`{uXD0*|<4y@<@UEwq|BWy=%(r_ZKtw^Z@d zQGB=b>!z&xj>$Vr0=TXI4oT|nvWjdxT2ZVzkh zE8e-A^Lk5aSluIbhfWo6teCo|Mu*spVUlX3X1MU2ta zZ3`G~Zol@+*yG8&3RR1L)BJZdWyj<<9yq%3z|^BRgCDfC8`Qh+Tl^=8C;RX1)90_v zy{BX}*-7=j|AJNa?!Mb^^vo3g@zCnIpWv+TWj5*_2bbpEk8Zp4WL8#M_OmmY$@xxJ zDTfYPJh*x`-9Jiwo!H;#ALp5Vi>hlbGrI>z>eE)}`|evppFz&3D(I)S7u>)_UQovT9bduSUMk{MmBi;q66Qdci5X zOYdG@&}kiN9O-Iw#j5$QrKOGJ#^vu`L=~NxbKCy3U%C6`S4V6U{nTgNF1umzJ4mQ- z(T}_D+$!$asZV+mwNq;L_s!XD>--GoBwY9O((XAe|763Hg4OSvQ&M++HJs>K$BoJ*Iz_?{>KUJ@@jEzSW%c9t=f5-wmdP*3<7_Lj)(mdGVTSz6*~1L$Sn>1ppUx!VUn!NxZ$A4}y{l7o`r)`jZ-+Tnr?33_ zSMjydZau59-G#efmamR2vTc#!P_%My3ZARi{rUME*ZkVj#SZs`CfwyYen|NFwh7iA z&$s=oy#M6#xu#C;6?4^YSZ)97Cb4Sg?!4udhBuhbSpL0i*Lp!scy7*p2ie$_%Fa?- z?x|n&sS@Yk?!VmWxZ2!HyOvLWG1GsUes!2(*~{lk_^&Q9`?D}gZQfRXGaUhC^$(R7 zT2*JomTg_4Ao72|-t?vN>n%T7;!@So#Qg^&EE z|9^hGu>bP>f5iR!7gO_6pd$dOc`2Y#1JGCjh&C~>u;7A<85?2@DHt0OHKq^~nJ;r( zuulDp^0z{<4}HJw{-m)^d#vCfGLw<%NM(nLSD8+b_)L%gcA>RrLe7_*ms_;ubjOEg z_szAT*S}shtl6Dp8*lhW|L^~sPj7DbfAi|;@68{|j)w1_zt{HhOL?8%NL!os#HO_| z?|UcamHvCwv;5<^FLONiZ3_GDH1q1ur#J1bHs9NDk6W$vMO96jn`E-D`ZeiuChzCI zs%ttPXO&)3-r66-bvw6U!-i|8-i6LtzO-o5Z{2^+Rp~Wy>t?*wyC%Idm)f>aOLldp{KDtbFnQ{PCaX+vlFXUl_=`dY@!neY^SvALHk{uJ2&{KB@eF zB=_~=g}ihB^F9B3&+4x2;mB#32X)UJI&7eMIyZ668_CNvk9m9uwQ3IdZ0r#|@4HZZ z@%uG}PnF&uuGqox?nOn#TOAp0H-=)9>3hE`*=bdTY~CKtUh`;6{k;D#eJt*0D>^JY zH@}%>?y-Y>bB}FpOmBQ-_o7i|{=|E}Y7!z$Tf9Dalm{0-Sz%d!`1`r4)Y|T&jx4VH z$z6i->#rU9a?kR9?Bi_KsHD*E`kP+1e?7)=&AYOP+a|Pbp3X-N&!A>Tk!2U=Ebjce z-G9g8yd>q`w{zoi9hU9*=y~dG)nn5Lg`>OeT^=9Z@;yV*v1#V#YYQ1!eqL#dlwP~S zJW7Lq67S))9}{BqFBlj-Jm?m;_=Pp6Jxlj1-4)a3?m3%$l56@04ts9B0N*9%dmq@X zVrFN4RchB3dWm)agO5xx-={y=ldwUH!^3#*RkO8kOG;8Vgypxsi*pldl<+@4Wn191 z^i3+?+vH4jb7$(T;QbcIk^ZxwHZgaT!X{VEwtZ%&J35qmr>hwWohnEvU)0mBbR z3frVDziIq1d95=?C6|B8>=zp@7uzV7Gg~qp3og3kqFs9ORf)Y{#r0bDL+o;snWdXf zPL9($yV!BF*FmeJ|0bt?IL5nx^^jIk{`JC!1f})r7Y*xqejmuNczZRf>z;+;OPf;< z`3refKJ5?WP{}%yzqy*jxL#Ffo{V(($5W;C$F5&2caLTI&aj_hOV@8%RWNgc z(7knChV}f@xw{tc%3oA=pfz}0rf<*oZ31s!A7O*x6VS2SC- z9_P#EWHa0@Qs1zKLFDk=yT1JYS(mdW98ffq?ERN1lOsJZKzPQSP7bbxPt95djt6$I zH}{Bj`#0(79gvzmnQh8{^UG3+Y7sdNZB^`ZExNwk&drFDEcjN(bnXwwIXO1R5T_Gr zW>tO)xv4%C^FIjx*m6jHe`no|EZ0QY*5@MEZ8IDyy4F7rF!MP(k>QX-Rawytt~FDS zT->A@Va=j6$3@1#IjiI3(ie3+(NPP3IIOt*RQFuMS~I7&PPcfLNfrEHO})$e@W^GW zuWPTKd@XG>`9a~SPbW>2?>u2l4t(LNJXw)p)7@?k>$!T&T0*;HTm&!8P~mRUE8Y0P zMuNkA)`5MA`CQ-h9&OFsaQTbOms>A3PJYAqJ@)CX7p@mBXzFa1)0} zLH4!si=ro`T)Wm}v&QZ=-q2H<+nc%Ql!>+B`YD-<&Y4tA@sWJ2*FN*kXPuSzb_Ttl z^|C{jH9y*AAxlPApfJPH&dZ&A93^6Zj+^YdAarqW?-8wIEpaCd8nsv|f+tG)c z>^qa&_fE2i?qDwpWIx>D7WzCq>Z#PdINmB(bA3P8tuM8vPE0t%$d!KZWYg=N) z4x6dy?)~uM@01Ki-@lgxmF?e8oM;v2{OYV>BjBQly6SnBiR_Ic7isvtOOIhF0 z7`wI3Fs<(LwkY0z3_g3WRSI)NmGZ7g?Vs8(OGoC=S-r}q2XFt`#I~1x_39@pGyFd= zhdq{^?{wyarEcA#O>B$#uF6?vo!@78!ttT0((EXCsaG>jFm|qBGfkYhW#ZAWj-S6R z??_tTKDKrC5nsR6J6_J*XKhq6!=2NwLGysnuOn8EH~CGdiaoPaKU9Co`<=numKB!E zuGjTN+BAFam;U4<{79wTZSwxfF@x9`*DiQ9#yF~9)}-q zonq_mc{(P+Z2N4>l|B>a#p?)39SOSo*eyF;`J!$9#96Ty9BV?o%Y&w7ZI8{@|F~|- zgJlM`YbV`HT6uoazvZk;r~6LL6Zw8`i!Q@DUWv^bf|pJ&w-$6$@icAgcQu{Iy?yJh z=ymVjo)g}?ea^3m>MOIo4Oem(=>^BSer(eG64YiTwXE*Iry`f5`-P>ey;XSXd<29% zbS<}Tw_IAgbw97D{`c)uOP_kp%ug{-OFP~5Vd38HwWo}yZj1O~-gA1ISO4#voj$uY z_;)^Y)1O?w@br?W*Y0e4QSxs3iO~N6SJ*Zk&Rqjg8MVSrkKB*^ee>3@C(P|;}+|(_Ag#5 zv1-+m!i6WRADFFOxIN%Z%l!y3_5*W7HD_EWdt4+7g-hg^PfnKpQzZI z&uzDNYG>E2L|N6(YWJS@O_E<7`qqtGZ>><+rcIadHB@s^%>|u8|EJUVUac&dnDzbqWi7dHF1Bmy zMDMSe-m3qpwx>%g{>yp$h*{H=GJbn_E31oEG_Uxyul7~LKP}BaE3I0hev8PNHz_9O zJAd=M`X^DqdV@fNQ`CJ$QA9^OJzGh{~X|@9;f(Lu~_e$SNTCsvFarw1RTnJ~?_xk%}*?-@% z`f5Twwdw9>H-Ff8$Laqs-m?MyODFui z9dK0VzsTtg%4c7N|J&sE!`i?kbN|vOL1&xw!&a^S>R$biBBrY-jRldRey8Bex z;t#$SHk;bQ+>cjA@7NNtbe-6-H-{9852;H%QVFT3BgPMd#p+5XsdTs~7H3v+&% zD~XkTy6UNu(&Wphz2yBI$zn}b#(TLp#PtGC{777Hy7%PWV`3_&Pb4tt{Clf%-*!=O z{3Jv3ij{2Jyd_x=^76}bKB#3V*-&-kWJb8QN8`#eCq;qp3E5lZt-2icN&InHVDj}w z^12C3OtXHeSv<9V^!>5qk|pUExWqjkR+ZO&{3oR#^g2F1e*O9Xw$>XhWuDDlm2JZ) zQoAR!DYCuE?5{=xGv5`Tv(877y_fBnerCP1k#W+}`=37rc{#G2IkmV(s#WQMWf|Wh z@d8^%%Y;3QA}bV3qI`=* z%mw!5KXpG-xJ_%d$J%L8i;5IAKg})Ts9wNT#BlqDO5E)Sst5nut(|%E=CztPNd{@T z8hmH^qGwI}68HV}yvopwRIa)IO#i>vSG)hm^XSE+OLj%icr^dy>dwr%7srlW2|9Ss>{4hkjV}`)=62@WdtblU^1^qg&vgmKi102;zGcSUD*|SJ+J4F@yWrvapZX`Ab>?)v z@qD_FpKDJu(-gOkkTd)@HvhJnTzKtAn#(q|)6LC|Nz-^|EMU%Q<&3h|Gjf#`tv>ai7!vXiY*_Xu4cP@E@^}F z489d7q)!?CeJ?O?V#Pd(^=z-^S{>YN^yb!s*SkM#bz|lBonY$g_1&E5{`|`&W-M** zT}?Y3^PS92e&)KyknvPTo$29f`B0AOb-CPc4K?z&p3dB0vrk5eX*uJi0_B6X#~aGM z6a8XmSg+3E{ycTs0_nz|{!TaEar*8PUD(LFi&N4;{_Xy{%6%c?-IEn(1ckg<$8q^K z+r((D6BmTHFR>{NasKh;*0g;Yx1-J9G&^XmTDK(X_|{x)zDK<-XKfYpo}O^sWo9^m zU-N79lLLJ_9yKsKYwPCZnkL>~x%MtAL)k*-o`)UXevQ|!uboiN6Te;LtnEr|r#x-O zl%8ug{afRXerlK6=GVTgxGk#eTtmp!$B!odsS$p?a-VNRvEdPmE4jrnC54sSoKEfa z`YmOYxZ>ioDbIIx8&`f~xag{V-;1qxqmNqKv3m-M%eLJVELo!QU|U_{S(Do3{8&_}ap-_zT_AG#HzdP7|(@?FWr>lAJ4xiHT(9lMcK?s>tAQ?l(UrB+7mcs>enqX ztB$_BnBaJLn~S!A-CU!Y6`UswzZ&z1#OAW;Y01~P&pGLlcuzg3h2i01x2~_uc4bQ@ zs2w*w7kHWL@2uiCX2q1y9sjfYZ#`T^!yz~5` z^V-3iXX=@MTR0CitgU5@vn+Gv;g{}AoGB5yN#axX+jj@enitr{ zB>N;MqwA@k*K%t4&g=A@=6$BkOmbRG&)0uDyf%8L>e)=VY$L3^d56OM*=tK0z7z>% z7S3p3llhh*QpXwRuttrk&-2@E7o*wB*UU*dYxZR8T$P!*o@MnBnY~j}pG&t)*_)N9 zF0T=wy0-WOL-iX2o`d2x7Slh>Q|o^->5O&$u|0Y7f0jNLJ#tZEqpOqj`>D^GsvMj) z*GT((kTx}W&9XVvrTO?C&%0<82W9^@p zDqs8IF~7X2cCXRP1h)f!L#tZP#9a%SxtHZr;qMjYC*uEFOga~+5L={ZoG0dt0|jNe!lyxb=cR3Xi;XHxeyz+}{{7;aQ^p$7hG!>iN&OYF)y6J5rf09v zlU@DWUz|>#y4!c=zuD;@BcCp4S`zzqorhJd-Xt@wijIQlGq* zH51#@N=56UC)Nf!2T$F)Vq8Bxe~rD~r=!|$-mxE**;gYtneX$AL*mUg3s=r4Jmx2` z!gf0k)0Sx)xGsf$sI~Yhe`3xS9n6XrRDpsjT0;v16IexSg1JD-1T^YNc!iYh%}Fvl z3*T=!T=$Xv%&A9VW@pH_%H;(Q0_hxb~&}wuF zD=+rY64`i={aeU_0+mnuUd`^V3=%i~r~SYF@1uL^@h#oz=HFkuY~58+_I`Htsy~L) z4aM#E^B=pP}beFnQa*NB_F3q@S5Kyn)qeTS zYEeFY{oYw~yxtX5SDO0YQeFP_A@AR?xXk*B(#q5?ChF3B*QalA&o}M)QTF$zY5iya zAGfvU^X#?scXWTuyC(Q}ed+(}8w%g*Uz)P#o0$2!!y@Ud=|BG5`@8@Drw{o*lIF~9 z=gcg6JtbJKURqZD@o6izv~BIuHB!q24nK7K_cAT~{_M*+1!@t~5Nj?C@tB z>70ijW~6Q2e0^ij22Bf==8KuLu0E`;SdpF_bfBHXM%w9a3%8ZY>yOX%KW^uCJp1s& zk~j8DDlav2Jmuvs&aUIzZ2!l!`ro9#cAJ7i6hAGV8s2NF)vWH9n8){jhupspvvh;c zrNtP3JNaufPk|=mn(52+A3W!I|2ooqKYPJ~R4o~X*Yh?j@|&@1ES`S+{-$DEiM$UN zRUb|N*6>{LUUvWf zru*A}hDty3a^UW|)WO(wso2gszO-S{mp@l`#edVfcO!JKQ9_V#!K9i(R?exMEgRC< zrakgA$VmNjCkJ18@L&A!wd!+A3 z`hItw$85Q(;r#WVDsC&&MER2aT+Zt3_%UbB31*|TT`T6Up8T7`=k4V^t7n+GbVgq^ z)ODB}+z7#4(kxKvynh$NK9`>hDrh_SMI>$a>V&rv!67c{5|l zPt~+fdf|>w-aem_|KztfgL#8Rk=Oc?Rke>;{7yV-csp0K=jEQVPa6*MzGC(_a})`V zUfXcmAtrdi<>!^F#VmFkBo%y&5jQy1JHw&9tmeK9r^Um`FBseIamzUzn2@Axd0oRWoyfY)f#~Q5B0l zvqe`dh)ipcn(grPuZ()&vGbCq_P-CcaoaCVSfm_##mDZNR^l7cx;9`zi4vCDu*G(5%0m;I_Ldq(J%7E9OG9Xvf}S(jEdMQ}`Z zeq`n^>+t%Q-fM9~&ywR89j^WRIDymU=V~2xWuESRrw$&kw6s{S(V%ti%q!(rjqUT- zIeTPCunO^Ua&zAK;S}*pqS3f9PRD-6{|~-bUM z&RdpZWEx{pY_PRUuSg_6>PHdVRl_f*{@F*X-`wpwAyNLhSgPRWJCA-AJ+%#H(-3_s zc31KiOZ%_xnwSX!?|GLrXes#r`^0&8zN3VUuVi%nhFfnU^%>sQUEO{6kKDpK_p&3d zb=L%HN}joxJC#ZPRTa2+<=&600mkXy%I`|us`z7G{JQA4e)XQa4(sQ6*?fGPdSyY9 zyZ1eT4eoP4{+-#&p3~!2#I)~>@}yONEYj}YJijE<=!=$=>dxBJ(VKJUOk1(A>dM#7 z*#~$Eu1>1ci;VEmKVtlo3t^tV}4mEBa~9p~pELSs8|nzUy;st|wj6 zk~N*_P^dil}Ge`8Tl}m>1bNO7CbqxB84}N*hubTcaeRWdov*z5}MJ1nJ80hoW3q~&gJ~^x^A>&fUJHvAo z>>oBy4U&12s>pgEGf&ngeb)cQKHLsTXHIW1m3)w~Vde7IDmOcq{1pj#?!0QjjDr=m zj{la-jP2ikmf@U`YGX&+JsEZW?;nmcD=%ddw^*6kV;fcCmVfG$NL=sDi`SB!PaTri zPxMq-6gk)F)t`G4y3aH^+&kH6$@ur}X$^~|yB7=A&%Mt7irJ;;+F|A5;5;U!2Nzcz z)!b&U$cFC@*(|}pGy4hSrs0$*f;nbdAKJsdas1Sf_s}JSBW3~@r4Uqv zkGy#IdP2p_!l+8ePVT3>GebK=gG{y`&EHccAG$hGy9s+9>che z+3VkR)nn<(QFC&N=6N2dw?FZG?!%t_s%NjAzxGjl<|B&_+Ls^2L_gWTbJCBOT$7bl zK8a3w!Z*(U27GXGhOAq@HYy-LAOWZ|0^`ld~Nk+;ZYrW*S%6%=zvS_oH^d+m>BPS&Ofw z-dTUZtLn)4tZ$c`W(Q>j?zIq~mFf2C;b!l2!Cv zES2l8M?U+Sp3JB9?aw6Jbi-H95yv+?43E5KwS4yRsvnb$$~zc2X9xYsyvTO+ z_oDl>r!si1`5E~5Hw-;idR)`me`D#c#fRJ#XO@Jw_RkRwtCeW&-=-1uQvGGMC4IhDAs0R%2;>#8b1WtuJzc!RhF!n|Im1Ii};;ZF+*o#wD3e z`+~KNt>W*8yLoI*u{@VJ8PfRv^PU-3?^`}Gv|3&kY+uOHwb{{=O-b7zvpsLuO}T&V zobQFd2yj)jaUPDG^vU{!(lW!Ct2^=pqQe$3-r6kaUi?LVM}m3IgCjlWyUzG7k(+mJ zRjO*Q$%#iYuV;(Bov{9+>_>j}XYca9KfWEo>1gMBP{r_!5l7^O8vh$LC05$kc?%=& zE$#fi;r8Z>RR_f;oSCyEC1!f<&tn_yFJwiu9Nr$YxqtUX!@rZn*Zp+6DRo|ARn4uB z9aXb?(+pPdX|80Sx&HH?V!H*u)=Qt@SQNa9WmWf?wLjLsE4?kTHT2S%+P2bf7py1N z_IxgmuK#zUByVfCylK5r`y%|R#ooF`>-}` zAM-PDZBml=6 zPFIxciSO;h=QkgdyR*mQiAT*}W4#rz0oy)u7g_XX^H>E3x!b!gc6+IIMl{Hl>BzM? zO}=`ej6s$1?1rC0oOfKiDtz%(l+KK&(?6{0Da%sWzvtWvDK%HG>rDF!p9anr+L*y5 zDznWqp=!?jUsvY6WG~B8wCu9B*_E=)_4TU|^|=pD?TP8u7JXZ&I^(zZlFDnr=}(v6 z$(*fpRQuH?ma9`7cZKg-6#jILir>tX4U>}AubJw$W8yW>41Od$-;RI!!*y}z&7X(sA8_>Eo)k2-NGaT?%JWIl+GBqe^plSMxlr7FWa$$D9_PfY zzVP<@4<0YEy<@2QO5OGArsTBij72*`4*p4WIr@20)Z3m2Rt7)qv#(yZ`$^p@Yw|WY zT3~dGt500<>8#^(^Nh9>vYb~-c_pcz{ZwX$L6C8~iiAK=;N{spDz~-CuR~LbGP_Tce3DYc6LlOt+djhx?9u<3`B`=Uw+d*t8;}!{rR;ugPD1Pq{4n zqc7Hf;^eIm?L$h1^Pihs6*uj5uHlM@(_lle|{+t$n zvhMaLiOJ2gOCk@>%Fy+ibGzZi**r6Dt?G;0eINhplCV3dJu~OfndDuQ>(9i!i{y_@ ztGl#dyDr-iec_^`D!sSf8xf-0o3sWng;ooxzJc zYgXPlzPOp|v&p(y()ygg`&dKbR2pN&|E!8->B(oV%00a+i(zgL|GD0}ghQ{wBraR# zwbgBS9kXA+G5Jo`E9Pv~>BUpJ)&;#S2x2qayCSy2{E*Cdg-Fg||Hm(s8!UblKe_T_=CjP-joCUM zJbgX6pIv*9>|i-B?X$w=#i6}=n-e+}&dg-}n4)o=UGiv#-u-9U-&c0-%G0bAnRfpqZgVMPFpS{AY7R;n6cW~+2M~;Cf@3z@S)Jj$+nY)+j#Z<&M9=!Og&5)IK zjaX;Gg$R}C&E4WfIWoq}ic}Ww-4doef8#r44b_C*(VaUZmy{mi(>hn#ZJsx8-^r7m z3VA9^*K*rL&X6enb2IZMW5mK2pKXdeR+d{nPTrg=(%Ap}oPdPNy@1Ym-#wnn=|Za> zZnxZ6(5C&WS-N@7%o>gBALH&!xa1~enbQ?E?}B5(Hhcf&<~H8%XY6Wbn|(Hr^^W$Y zKhjYywQDAYi)o)erY^OQZD-PiS?Zi#_ZRnwdGRw_fA!tva5w4EHRg-U!>*Z6-pCx4 z#QQA3hhwMOQLeKO@>-puSIyQ>(7dS}mF8&f#(AA}uesfg)XnGH5-ZYt_N^0fl9hjH zy4q##2if;^3;sMySZgfWw*E51y=velWLZ`md0#vl)J>K zc<7bKUE7qo1ru2Bo6Vt0{54WFh(=D*_uiwWN|GwU=C}v*a)aBlM zY72Ab{4(0GaeIdJ-88-XXBamzd?=ng@9xTc=l;un*W_e#;`UD5SZn;--FK5y$He@p ziuvn5KF!WJW3ui>uZHIDiP!J{4*k7&8<*asBXeHkf_VeQH zDf^a%D(kLf-Fg1*;TrX?%R*jk>CRa#nX~(P+U4A!j9JH1qAG5?tF&c*_dLS4+3c+5 ztI&HzRvTIN_B~?|ezJ1P$y=WFceJM6e{=eS?~Oj|@HPKxzc9q(JSzx(9${FM(G zYA0A!`gqE&e4=qzx^b;=Te_KI5>Lm^2mS}$4z~VL^G{mz)^KlLzQ8qQo?ljvr}70I z>sioZr*-?^inSqmMjV%IvJ|41>dmvLn^OBQ&cOYlPqndkMR$sc*W`Sj^Qq!bUkJ_+ z>prlz`ONA`qWSBuGR!JDb??@Ln{TDh>mS|6yNc1*C+~7<>BeuI+Rc&+%_hFm6nr+R zIbrkkBsON-cV=%Fn?9as^{$XNZ0DLaPgVyxom}i5`zdFO#QYahxid0WXdcuIeSbZ* z;+EICj=za2i~n2k7kFLj^1m+JvA!Vlyxe!kmmHT$7XMy9`Mr7f+uLO&c5^w@7Vsbc z^=8EcHBpnVHyLwZ-#NGBwD$6HwWqOVZfiZ2+tQCtmdz~Ewr;z>@Z?(W8wc)uYO`wM z4cj2%{>7EGfcM7#Utec@=Lpx_cxCn;KB=SCv1Wo-?b9}wCaG}h%I{ySnDS~G@3F_d zHbv4KQq=E>t4YFzZSEdXEm(P=Dj$jCHZOV-SpQ-k7!QP-Oe<-uaVJ1?reG|7CD@|DeVL(+e2h*Hx0rlWFe&NTs9KL)N@`G-Zr zO)vI}G8Uhmr`|TLtyIKPc+ttA;~Ui$o;y>ui0@6h%1zG)`_4W;)YAI>%8R*r7n(YS zXC1k@y;4#9vPJH{KW+&rYt^n!`*wN~WBB*Yul|~*s2&SQz9MHPbLGJMgGZhz#Pb%K z%wDC}`Bl7*qVx`1(FeOSt2B?Tpoa!H_m>qXxeJmY;@vL#gp$=CfVD5Z{GJt z|H5=xx%733cbC*o*?DZiSLJtCDzEcii&&Z4yrVO0wp8lQo@vj_Z+&x|DrmSUVd|~} zJUuHMtE%17t$%3+UR=0J{pIdNgUy~BEsy&>x+p8+o>9qi^vayM{f|wu-1gpZJHMhs zqy4)4({7V<PkPz8*3>$x&{N(|;?-e^m_G^3E@BosRUM<0WMwaxar6Z@Au8*%_a8JX$xz)yDLf z=hU{1W_j;^tA04MC-?ZIns{DmjccAsoT;+j5q5tTNHw=i{l9Vk+?}(fCEiwAWqsNA zruw&N^H;r%l95e^U;k5XoAPU6wEg#=s+TM+6U@ttpVVe$XJv~WzFlOrxs#*kl75+s z#N6C%HfLS5>Q?4``zFnMw=hef?t*1X%&l#!1x4Ki8aA)Eu~lDU+4=^r-HWcsCTp8A zFV?>Ka8I{`nYpP&|L5)*&$Uk0%nWeXJ8qWOWhoo?*1}Bt(EZejW_dvi^wZB6bw7|O zdM@|OeeO&5nn$KFq6WdDY3F+vI|-f6IlsVii^7D>7Oq;K&dnCH_s{q(#^U6ixJv8l zqvPT6&tBHtu8b}+kjYOk;WA)t=i)!N|E!{;?2@Lx)+g`W$~^OW>77T9+ZKKda>|ai zIVYYdUU@6R{r%?HC%$o<(mAKLbSXQm^E&xM_WPz83!fe`_&s<3vGU_?HYvNMRmyWT z3a)J8c^|Zixy9(8y0neXBsmt@ObzRMS`rVPb#r(xb}~gMam;%hbL{q`E!WMK&-8eC zk^koENiXdV_!~K^Y=6M{%4Yi173(WYinsZeEy?+tJIi7Di}@dH51C88+GVwN1J7HV z@O!@V7`=6*moIr!fASvlsRJu}l1@#I*epI{S?{rp5A{Pe!}n}{ncT2txlf<_(l6;B zjk9zf23Bv1Pu7o}5I<*vs_K(1x2k7dYHyoZ5O<=Q`$OcCH)}txjMPmk)OfNxZ+9&J zkHX0-PVUYB{A=NP;r;8ctQ2#&KKZp>)aC7AJO_#wosc`Xc3woqVc&P&t@77vC)BUX z;QN2}Ln%w=yoXB_C@Slw#@>_3%7+9_+82D8oTRSFFm?Km zN<$5eM251dJszLx4{L<~GO>7GlY3WMsq22R?gI|}dY{T%uCHeOZ|!${`4?5AFfW6F zC0()hifI4iDBF%q-BOnc!G~H~f-Jvp<%{3ZJiog6$&w}9%{@nd1`2G+Z@l#^m9Hey zCwtRQt7rl3JGD2TrCyqCP`TOaf6(+VnNt?sWL00g^J~5kbJlO3hm*dr=9T%;k!=lxi){MsKD$cv%05u z^Db&iG~F0*Tx&|C!#jHSD&@$;o6|a*CJH?a`h4I~MCEiwlWfZa9^Fj$xhf_WLT) z4YQLsnVpJXoA$YIa>Dk#24$Y-Iy>$$cAPuGEWfpW;+3*j{fpTr-C|7Ubx*rfwhsj#3!&>am@-6&EZW4i^_!i!X|>X} z*h4Gk82TBu=)GuH&C%MH+4bgf*IuRP7t}IYlciOR^#Y4qYEKr>uA zUyZYUTM)l@Rr9PxlVVklW;(1*C~BQ{aNYN*pTwUZdf>+~_y2Ukiu3mhUWzF>1*dYaqZDsnRi9|q+i7p_k<&> zgM~j7b}TFoos_#W((cQSH@oW;Gb5U|f9fpi&5f<_{y8H;@X^Y%^Aj#gv`?=r;#|J8 zrp<9y$`#*lvD4ir2s;#AR_G1#`nY%RY@z5!d@QdX9?zfV=cn4}`Re!u0`KB$OyM~mT zOda#n?WraI>YUxCm~H*I<(hH*`~y$bN{fD{}(y);7L|jS?>ii-FbW5=Sxj=F?SL=92&BY_t)~=#oyIM zc)sPvy!85Q=l^&4B&IrU6P~Uaa?`u=FB^pHTiR%;bG3FO7thB256et9oU2_}c_ca5 z;O)xbwQ~wO94=flU1GQF<+oxL?)R&UJA$`xx;ejRk=9*PH2J;#j)e!WYwLMGkKeQN zTJ{e?tAmZlR-HXoQCxTE)noSQ-pQN(=0}Jy_Vu|LZ||)>=j(On2j|vFo5iBP_4_Rr z@qf9c%Ik2GI4fVl)Bn@!-8O65E<0BArL#G(FFo+o-%IM}RQAq2IC*W^tZaqq;LDj! zCiS+wmX$GY8=ktg>nf|>f1%(LDt<)w?7r_u9%g?0yke4Y{Hv?SWXqe|Rxf$U?Nndr zbd2Bcu7lZ+*2d*$yED`lN}8-`ITI46m#kj0!-B!;|L%igH{3oyS+JIC&6>OWo_9>K z_t?Db&);YE?Zykt$KSS?mdN1fBAJR-MQn(!AWW|{(pC!HOMj4 zdL~~JQMhJ7F@TQd;P{d zZH9)u@zOiD?+sz|;{_pZ1-~antvBspLZ)5|n=>V<$urM<)hpqiE#av`*3R)vVaP7y_n8<#a?Sggj zKitnG`#;G1Z1*QE+V9bgq8gnC3S|uI%Ss)qJ#Jl{8b4oa(p{ZRCvVQ1Dx+?ob3k|1 zEcdzbqN|@DZR@Q${9*r>|ChTL``2xlef+w6V##6i^L=qLAHRrC%P^ZS&n#&!z0PfA z&kY%St4E#px_Y-}g?Q!n>G##i9Vt7$^TOh7hvTl-XXIYQ|>*|C^(^!t!$qtr2S@#!siXSR&|mpS-RxG36OS+}hbfo7_P55~{J>kt0(_QC-HyzX76zDa%@7<14i;sD;Dv#^tocOfk zK(p?OWkCxB-!EI+@z7ePMe=Qp1e^N;EnohhMsh(-cmLnGxXL{Gp+o&ah8G%lb!-1s zY~r!}Q~BEB7pwo(eafn*rg(AWu!w7|)y`N~AZci2amzl@?W8P6tDoQ3Np|yH{44|h z=U;qYv3$=$eIZ#}q7L_6YphZ~B0% zf-5=i+l6~Cx9G5!zn$=O(qTCV#r2m|m~66dG$x7t^I=r=shIp{Tll60^B+w$GJ9d+ zW_3l;MtDcq^B|2YU8f~>1bo$za5VVnpvG#^6)YjKmZ|+~PWF!#tl>xZ+pBd?DmHn{ z)>5hb^vGfrrrc!}bJyfdn>6doArH~HT~a%BuKwprUB2aLf*{9?V}Bni9O-@dHB7tX z&7OkjE4F2S9yIq=9~96&yTZ{v?*CQ(Z9w$bN;mGS+Rz;`j$^FcWCy=n^vTl zwf?b@Z#CwP5dXGUBvL`%yC$%`@$QyadMqp_k`6uETcGf)prGIC>ytfT6lF6cvx&VvuEDvTdhD&@tyEOa3|Xe{Y;!-ZNm94(shK7CL3UN&KRpk-^Vi&q-Q$bdFv&X*;X9J#7CIiOTDr zzsxW^82wJ`eSE^JihY(M7C)-X`}LJAZ`5!Z$5h1cnfXnrb*^o`g!*O|UX88U<|_~A z{ctecc`LGUUfR}OdlpBTRyd^QC~_`Lm^VpykALe0@BZDh%wL|75<9`l-;rs1cJcF{ zAJf!k#4=r};d zK0nH14XMBP?Bv^9X%SpAm-`y-`ypTcWXr2C)yPy`P9gq_tHi}JLOwj~?okO&xFENq zV8UNNi6?vCJSq_XHv6_~LCcyJ^YFKk9G4;kW24SrX`fjuK652Yi@?9Q^rqdf-lc9b z;FzS%6Tj_Z!Ry+~1$tjiVe+t?$`?HUvS!WYF4nKtJ)ieZ&pxvMlDO}hi1lC0x0?LZ zH~7Y0e)hfs>-1C8nr!Y_bsn8w^sN5O*QZ}=>Mnh`@x0!|?!W2uXDhD>e_LPRVAFV` zd)Yf71^*d-6aJmHm%6N-eq)c*g2MUl%<>EOu8Y5_SnQu*ah|3BvxeYBPqm6TZ?m3v zpES<*C#!8ZdvSJEx{LXt#}RLRTD51?i=Vu(R!W%b@Qj-2p^QQ2-FozU`?wl1O9Q2= zrfhBz)yQ?4x-4eB@XQr?cdMrV-g9N@g4JH7Q|CO}>~i|H;r9a~W}l|5IC1!PNrynp z^$Cl=@wrs$zwhuAn|eT_?L@M2)qlT*JV$S6pW3%2$Uk4C+I*e4XZoD?%_liE%xn%X zGI12Xy_>7-*wkDPrzNGqr#}=3?#+v3F7;Y*+C-&1;6d+v4VCK;(@WRN_1x;_=Tb90 zv!XuSpfWc4e*WBPVpoH!iY8^f|6bQvyKzO=_hogw|Lcy+e62G!u*+T+(r@Ird&Bg# zuQx=9Np0R^Fln;(we-(_3lxXVSk&m$Ve$cNP_u`Yn<1L*uYZgYX?ObK&l`=7^my9UJHU zyZj^c;t}mvpAM}$bxi&Bq9EG~i-N>HI-mWeFyZ{C7kmFy*b56-_L*+tWl5KJ>brWi zh{K|0K65|YLhti8UNbDV^%ODtqR+m3w){l>Ywvr){#S4PcEeDr{PRAJ&!xRm*)mRU zw<9*qox1HK?@G}LZ}()UX{s!)ye;+D;N24Dxa7~Bg}ZWsBifUbcgM(QeVe7VYx;{! z?XzMW?|z(cJZ7D9Gx5~B{Kg5z+($lMdtBSWqsz7My=Bb2O)I^1?<|&7{d?zyj3=PZ=44Kw=^4`z2m6@t-TO-!AXTvf7*>`U{e+=zWkdt-#!1Q2hFLPkamuqJi z9g=$;F6il?qsdZdwEfiHzWkd{E;y`P=Td$@@%2>W9llRid>0Ei^w(qc)K|+iL%CXd zL?WDCKK`<^Gplg9p3~u|wZ|7kB`9Cs_*br?W6QMDPTMy>D+`_XuKC!${>_D3ZDhWe zv8Wr|v@FzKVpKorw2b)exom6A@94Zgv3YmbmbYG~ENgovb2^LfTPb%qMK`oK?Tf(-%CiI+g-c65 z8myW&lf%l|II`=aZbggUqKEZ|*RA`sPAJ^Tp0z?`DMNMROIda^V}8D+R;ue3Coa8l z;9b-8RRION)+QaezhtRcoPqQIZCn}d51*X6t#v{y!SwotR@duqEQ5AmoN*yVQ194V z6V}hRe=}|g>`^Q-Ke+y^hHuss*Mq`342hc-iC$cNYSSW1-Amg-ZgiQc_&O<^K9y=@ zOQ-jB$R8_BP_DjT9yS#MSd%X+7}9ne>`^3yuhv)tf&rJU`_{$P{DZI`*6 z-sQ-dUi`S`-!!HV(|$>3HF3Az+03%@v&u5xDc{#*?sQ4E&lFnISA6Hj1?HJk*1WR2 z@B3fIPE<&*R!bybqt$5V()_Zl8yCH#FD*|9XkApR=-%KpKNTv7p z=2qe5kMCNuta%{0)!cgD?Y}p3Ypsi|MO{>O{V?M5FHjb{U#TzmO{z5cYE^OULkXtGJQ>?M7RP zj#VPDCVSOgEmGF`&t5mfX5KSNG56K0HQ#P|o+|7<$0WVtO3hkXl~+1Cc5xxgJB&qq z_~%cu;GS4$)^4k|{XpSr-#l|&p~L-KUHw^>eKol>;a%Xbmv@Anf~GblU)KH`qG~ zdp1af9LWB0blGO%B#SlcRQT3uZ@g&XaWg1a<=l@hp5!0ROA2>oS?~C?<{z-6P`Eu-c$9koJ3#k)V``r!vFMV)%^n~fn zrxv^DvQ2Bh*`##EH=>EhY3l`k?e*2uHZ*UM)LHl6+0?Pw#Ag+M)-ofdJ*V5%PoFNo zy_!Arhq_rf=N|FS_%F;d0(&mrn!2rh{+llcl7GI<+T3GOzwGeQhu<$v?pnd4>(*o! zAt#p0wNpaP-a>#suBrF&p0#ZI%5}aAKg{Qw5S8~{U9RKb<@>u7lyZI*{@FWONA!|f z+3nQwf^5`*ZO;I&)og~>)zlNv2LUPU+$ifJ;T^i8^8vrgzePyq8cKN7SkNB%-iL*+?exdr>w%&?|&QHckQd_ zz0!R?_WQ}=_4{W%T^Y{yW$)A~59QYEpR1!Bx}&~Sc5hSVlGHX_`@+e8LfNh#U8di{ zUsVX7j{PCBo@YUYv{q2Efslsl{=TKft{Nv@(~`CqIi~G+^X84R(Y`lIe(N7KotZX0 z@yoUDEB1?KGq%5Ip1tt8%Mt}oyF>lOP1?$ASzUjw2Q4Md@KU;e;T55^MZI;q3MU4qx4o*w; z++gOtDf$2Ja}#WyOlW@|alNd0(T8TuuGaHizdvEdme~iIriSJB#mRNp-1AhM%P;+$XY#GQK0W@rn{u*M zM@9bZ*lTwu^YqL|dB6V@9G_X}c56fJnu3;>Ftj zWJ;f;@V50QSIQr}v0%o=+n0AaEZmdvV&d-9h^4PeF4W8a<&C??@#|BN=CbD2>-JTQ z`L#UJT%tNYd)A%3e&b4z#@5=Hs>@lr@}7rz%oC&D@_jGkWBdJb;*>C^neJ6-doG<2 zcfP0C@90@OC-3D_%^pVK68G#moqOLKU#(g2zQ)z>lag)Eqj~2}r+?+r^Kt8cAa9lCTr>vL%CyeZEn)XiZHlxvoKw`WU_cXY}IBc~ZBmM+Q6-IPmb7=PObC=~8s*tXcFwDoQmYpQz? z$C49C8menPrq1GcGU2jp14Gsk=BC3Q&zGfF3(voi{Wu|M;=;+ds-tJ`wtBGRo6yDG ztIqz`YTdr|`yR9T>rbg=#4rC_a>Ct%`|y_QAy-yR5c1-+YB^i$zOe9!%B(EQ+P59s^wZ$@t`AdSFiT5nk z$2!Un{$;Z2&JoR9-5A02?xCZKqc?kn;S+_YI>lj1x{0P6{I99nZE)kBx=wPo^Gfz0 zE5@WRhYwy1-|utme1xX-%?2}>j-RU@2V7eb5IAwC_u^2&KP!G0tuI+2xbWn~W3s{* z6}v>{PdOYUG;P7#EpzzJ`AAzGj9q-P{3MT*^5I2Km$us;+^mr{_w8Bfu4UhQo0fAM znM|9qP*!Q57T*Th*}S-tI641No@&Y1D;XMn?cx3Vc- zzyGeVOp@f?|0F9TW974bb}ZJb9p~oNujbPK)R2-SYOIjm!go9Huv10Xfhn1fRvmO@ z<5^gFNjhoYij#}-3uDiU$4-!2Rp6X$AUylDD0jd6qk_XaRU4+gD@+%%y)LWlSHf>T zH;D1w#hWFw)?}}kpg-f>@05#cwjX6E3;V)sq5rBXddj0(Q#19sTz-2~7z~s8+nKM0 zb?jaA?bEH4y&PX&uj^*mvwmynqb|o_S!c1v{j>Iazfu3zZ}8SZ^~{xPEZz-&>=U*J z+^Td8_sr4A>GuCO^%SOUd>*7`|Xs{GwiHchZti@7a3~ZY0C*&G$rQhz2jReV`ule zFmi0>Is0kdw|U9>n>PNMf1P_~3 zsw->2;Bsh>F!LK>e`sZjYOJ;5{WO02)obQl6}`8fx$NNF-&uYh3Xj*B8*S9gDqeOq z`SYUsc{i$eo>EQtaPZ#w!{S*Y<);i6JQ7dQ&WT-pu5b0clTGT4YkD8-bzRMOCGV{H zSBLxZRh(>BJM1oOnB6DSyQ4&J?w=K}I_-X}O<+=3B)`$x<8ZC;ygJc-C2NhHLVUBY zExx^FA;S&{=S6#LO&SuX2s9U1Tq<=GE!~$G!z;6#)qG-`z>0H=H=cNTW!u*k#~gpL zp7m3|wAd!Zip;-;AJ^1|yx=k6H9V%SnJDC6VH}m%p;*Dd@lJk4OJfidbJ+am zFzr=0*JgQ$=nFL*+0yBlvHJv%h(p5~tAeA3X5}r0LX4-s9oV}fOe$mk;t7EcdwGuY zu(&PS`*z|14HpOh2}*AZl%M|*(F=IFYUamA6W+Sn6B@T9vSbEKkY~u;mp9+eO5vLC zgQ5<>#}+=Z5f&>B?ufU0;hgkUq(e7@`wCZ7gqn|V%92J~DF*9#_hqlLh9;T6-nd`% zOl$eycP}0+XD+yZ_SyDHnSZUd1UO$LH~SpE^6ZmCamI&Bg@qqV45e?cT(oByN0+Cl z*)g_fA9xLmm(>^dF*;dkr+j{wa#_uMqEU^XZe0DE z*LHu(f`<+ckt$%sUtqGg`TCd2xLFA!f%<5;$nmPIdy6e2zcdP6E zy6LffvW=+mg5S;0l;_qe-1?DpUG$Q`MY$zbZae>NmFNh2arRXI$?7u=W$%xl6DsFF z5q0M8jjtK)50qx~TkicoA^*a2sl_Y!l<)D$b+*rZy;i$XJ!dgZig#p`LsFLoQZnr@4BpwQ7z{hk5_bs@zj%RoVd^GtZ0}T zw0DNIurEg$XUW{D57>CMY|igg%yi30+InvSO9@ws_(9Hsqh?XjON1RtE(Bgk_Bt=+ zCLivzXqs@)W3Gm)p@&|GbfpQucM<94=&SjWKYeea2Uk^gl^1W@AvNVRr?^zR8+t#t zh@0z*D3ooqx^S8&CGq#`vSXZ0+b2xf)%;~7oRq4aNjeF`xXmxxO5r!o{b0DPqCT=HGFkf=Bb_MzFfxE zVTbRDu2{y-l$MoTa~zaKWP6{AX$0-ubh%1<)7GZz&(b7L9t>XJ;=1$bqa*z~)d!w1 z>2FJx$UEn_`i6Jchhs0#F6~KqsVdod`r#Jwy?0Us|qFVw8BHW@oMJ1HHPY zl4~~CS~K$`9vzbT`|WVWr4aSAjB-1~I)i%6IDYdrU;Q{WHTbBhzE$_D?nT|ZOBh~8 zi%y)nZmxUJBfEsOFs`kZ)8=edTq-hs^Sy*Ax|fb@yVfW3URLj+Z^8X4FTr*Yvn296fCMn$|UOkC> zu3nZtx*+YnL`Gu4_jB#PHq@N=+G}!v`vQ;2L)pOgj++mr))@92;1|4Av+^F> zE~!P4sXm9>->qO!jhKANpU->Mv)Q+7R-JwCUA*v(Zh%Hln<}O;u5fxoKyCz&!?#ZVV00SBL4S z&3}LCQVbt!@f-0YogqiJPBJ_-J#2fzvwP=K6dwL#(O{hSS#zO(60iE!=_>!@pNGho zv+TLBftfK{ziq|KW#1-k^u3`oHICCzw%1|%zMMB*OuK4KZl9T*>X!80xBk%$mHFBN z67GEeH)XL2iOv|z;TYQde z_*-;h_GXQH%N2gTYf@hRT)$n;e$T3vydhRAGI&L^=27bckzb|me=-g*CSC02$P~EL9qj-4xa>jmS)VyqDIe%k`TsKzZhO1W`|iE%vx6)? zxo;A@`uvNR$eq}!9+A_`)L)u6+d3R_X5HA9_4szlyEAW+1^$>FuhBa3*zvY$I;$kl znyT-%L0t1S-L>zeJvh;@)O_B%;%x`yjxY85t@BZ8Qu@Oh@my(l?fvPTCk%Q`Y;P$D zihsR+hV9tB(@}1lzimu-QyV$^h`?Mw(@A>EbzX{TuAa{3;eEcqI;7yS?kZl{Ym%Jj zL$>m+wewO;z5Fpi((rp~+WlF&Pe1O?niN=+^uzCRVfoTyyS97%W>88pO8YkX$danX z&f6@aE4Iw+yv%zuOIHMwpvr0d;2ou)=i5IUR$|`9LT!HzdrBPrt>dqxlCm18~yjm)L7d1 zPR#M%7r*fS0^yTtSIg45lf5U4ysW**uyc=WnD6p_xgEIe&w+ z$NgJ@1#D{Z~JCirLmBET7laMQw@C^1OEC()s5r?|aN!U0h-i z^CTnNPw1k{Wmhk~%GRgur5;<}A1XB6skn3gvso{~IvQ;2V%KlKf2_mjP=%%E)5;sl z-dC62oF*Jrqjlo#=DA$^U(Nr?F7flCC!k}Tjsv0S-*|< z)qdJNZ_?7|Uo)@0axCj?Q9F3Dz+{rQrc?j*rhFTX{NyJkPg|2xy;>_Ha!#eWZu;~= zGjdLe-Np*ZPb}%&`r9mQvh=cNE?(-H{Kl%gWpQOzSE0Dw_Sj!pGp)3;>nAXF8$LDo z+CIr|mWpi2>}|)H_1IS>Us~$xHSwVL{r~6xi#g9Z`D%j5mr#iV>?h6vD~D#{Iml@kqfli8o2QQ2y1Q&alB-@UTP%KsEc`k%r>>AG`7-@WkjYn_nx>G=H% zw+*-#_Vs_bnW4GIeqX}k_)Y2m{{3Mo%iGHJ>BpNVA(qx>m3Z9aFMWRV;Qr(2Thp&Q zYXAGUU+y2bjBmU1jHan!moI)13Hi_-yi)zCi-nC%bMs$aowZYiwEnt9{gbZx!sy`C zEPt7+Y+iHM?%-2w%Kgi~tm&QjutHG1#Olb|Oyl;*(DRu)O5K=Oocd7QB;|19^sAX? ze;iKmxHn_=+mD**UXcL80==`zIJU{ zRCp=1qv~PJ*Lm-sM$QX-{?OzJ>u=44jm6iz&o8{^+J*lxIV6UGOqZ%{>i0mvGyEuE;lKY>R&ah>FT9OAf2w_5H;=c!->S#iNy%>JG9M!6M0!bgSWMg-S@=gV z-aEgBL$vy_&Ra`9^U2@7&U*jRaz~|@+4?0I47Ku-r>;_I5Y#wLfs(Df7Uo z$M&vMgb$?rYYyO6G4T1J(8tDPS67^3Y}flKjjiaZL2AvP&?e=Dc8_Lm5wmDNeZ+QB z%AZsA=>dOoX3nzx=W)Z5J@>M*qE_`BiRsTX4x62Q-^DLK$8a6rciE~O{)(N~?BqYa zFW|CgUi3n4rR4PhFq&c|fA?rB^7@PoH?=mHKMYv1%v`_~S$ zCv@@ptGu1E`pB=vsV?nHGC!rCp0Gps@!DthHD~#L&avHmb-!hz^`E0f6)X=|UaH#^ z)O@Zr$IkPFXYfZn1rn|IC$X!*Ly1s%T z+>Gr^x3=RPsqCwL*CuW{w5PkP(vyD|lSf%yhgYT3-AKvO8u9sAf{`Bu`aBmKD&Lho z;iCOxYv}R#`4u}jp0BRm)7ilEWyK2Z#Cc9n_VgSNJytZM^oMe9-MM?$U#Dz(qIKu< zLBsgtrmcosbA@kS=FwVoa!Z9+qV86SgTG2!Hu$b;C@f~MJ9VOe{hyqlcZ+|`{ib)n zVnWr5-Rle&+J2AnRFit-@~`P*e|PE$OTGNYj-1xB{;#avH9Bs7f5LgtoS%`k?8yEf zJ<|(!m?dSq$?$D?WMT1B=a0+toU1Dn#eN2zbYNa>d+)9IivKJD6SLVq2)$*oRqTut zF)j7(E85sC*4EVhM^gHbdVWF!H|I-BscTWXw;bfY?A(3X@x{#lTP`{lbjR)Nzvx)- zdBykK1APjze?CqRyjj4e_dDC{xBVl_C52Am%L;09f~*}&pRwFvussyWtGi#Y{q}>V z9i{GbdVjPPI@Fte?)}VK5VQAJ*EAF34e#{DpFRoqx%_K8t0uehjJ!=Ztfbb~N#@So zGCBBZX*NUc-0rL&%1#Ck;-4fQ z<~(@7>R)w;e5%I{4c-%JPWm#6kM=fhP4YF$lsUmZLC*d{lLNz|2y>@fj~}alY(K!# zu;@h8%-D@CCp(s&7P^+5z_>vD&{rS38GEcGo-qZi`(t$0oZ0H{hCR0Kvw6OC?%|ks zBq!yF>V^%ARx#x_nw7+zZQ@YB*l?Wf%nzeHkBSO4AGXxvXP*7o&5{-WEoaH9gzs8< z8jIK&!VdnOqkExZN+LIxH}5B-+sSM;|K{!WOPJqyyxi9|z@hoW%`3l6*C~I|QMo>M z#tSB%DQpWkuFXB*&iZZtii}Oyavd};SDf~d-`^7~v7rCfUX5P2_3}wVtImk|U%J8Z z!&xv(&7i=+h*5Iobr#vF&bPMQd31S4k4U2Pw?}b@b9Sj4@E%r4PZMCybCu%!(=VVc zEKs&^%exo%x5O#$;Ie;w=F{y(nIBYtc9g4cNZ-M2I&0SaR)=JD#hhI3x|v_pEovvs zc7?T>WkFH|QG6x0HoJ zWfSKxF7Yl(3gnjNS6J6s{F?Xb;(0Re=aX0K2C4_~#xD!IRlv9WN}TJ)<>&6X7jsQ% zJJoscxx~&rFQpo0rCp8^*r6@3EP8jBc!pa|-}=LxTANCFotkpXT2jvorRaCIZ%<`@>`Bkz`gi99+parSAqRPOyPOkzGIjQon@;m8-KIRfV{Ptv&Rw!c>&}(* zrX}uLPX$&t zHVHch9{dowkJWF@nZQT^s}Q@k(-zWFqS^TZf$vU>K6q*RJ$-GgbLG2fVjlJu$@XWz zr)WJplK$}4k#nOu^g{OBdB3Rp^y;qIf>a~J=<~K}J-G#2 z{2o4u~@^+1a35Up*m5IvIoLX)nfhVUdP`co( zc*e1s_mXky$~~^Op_REYCbFR$T4p_cn_Br~_bw&pWoA21u^osg54$2Qp%OD^=>&@v z3#G3K?o@S{Q(W^X+_lN8BeHmJmG1k^<(==mu1=bq{5kp2_XQ7ycLg4~$5)ZcC>A$E zks;>$z9nBBYS*z{k3Xe)_lMPzVuirFq1P{3?aO9b68O7_%ZU-;ck$yIz3(JhPc@%yaIh{Nps0$_lqbEz#a{ z{_j8g&cl=|Bv*<_=SFI9O7orF3#ODSm4A`3oV()d+7}BmHyqL2aLTL2ph)AwvPs3- zcKaga^iL;Wzi-Sethw&gwa9g;9$Ly)r`Mi7S7fnsPI6l3wlX8{l7-n~QOpyz$lf)X z9d6OdEVBBl?w`3E6E7z$yjsmvd;0%j9q%ohnG6nA7SG&0)kfjo10lYOX*b(En%9dJ z)o-%7l$y=Cs7pY1Z|!!QP22PHCW>Y?Oep-y=l&~Gea0!L%Qov4zREdT>$RFq`m78?r3SO?c^5)>F&Ip0_57(bKx2v0~&+xQ8 zp7Gr1+3lyxOOhAlS}FfnG+m^+(Xysrl`+6z|BAzt=IQk3Pdgrd`tk0kA1^lD$v3N< zCN{$@X4-0-{y=fFxZQnvF&E8>J|1~u@Y3mOS>dz@L+uqAK6muee&zZFi1t>6KH6Zr zqH!xzTS8&up7katznw|B+itYuRJ((m+7p$%cRhpy4hDRvostxCv_I1%&0Q^jgMjR( zT;{GEmVVv578`EP#ycAovY6&19IjyA>XA`@{M<^L`?4FW`Y$eRW?RAaP)WJ=+T)vZ zq-N+;lolOd6X)3(5%B(l@TaIfDX~BM#Gc=EJ;Zq0wZ`6i!g2?mON#f7+?=zfX2ar& z11CaVx2UUaJ+=5jpVbmIAL)mh;o`67-Y8^JxUFdKw|TPF#e-)`CSR=95Ao~H%4A@! zVt%?-eThoM$vVBBjzfnx&!|18F3Qxr{NvX(vEQ^aRxa@sa&4+OS;X0wuI)KJWy+x+ znzNq@&i55DQ*n2X3Uvm-5wC)7q#bjQ|yei3757$xOKAWy}EYh zVVCPODl)&Ec-!`C^_3lu+!6$ze>j%vr=vYJQ(5o&;cIdnOgVukidL12YVTxXIk0VR zK!L0Cw!2T3KPX&$Jtg%)r1tvU2V1M8)Hc4#iwoK)uJY{F$-+%B^F7z*v_G2t?26a) z%#ibUos8#A|6=gZ`Pig;$1RtvnsM^-j@**V8@4MX@t(+Nc=+*r&)S0WhmQ}2Ofe25^xc9F9S~Y&V}E<1XqBI3n3Qw%Q8tN?*H`w;6rU*BdhT$b?M1op>%W$J z-}9A4j z+4V~)$0W6agr`=WjVuuU{(e)tn(Ky?y~qBno8n`!SR!$z)Wyl`A8a^(nelm-eNo5P zP1>#UsS#6L!aoH)Irw^|W{&lYstGaoL;8=I_-{Vzcar@?XxDekBE_uzPLp57Z3|s~ z=<3NCy__8nzc0P<^m%Xidb9gqOlBYMKic*Cdi8>{$B9k#y4vjURmfwJs*PDD3QB`7Fpk)3WN#nu}*RkN94Y zyLTvVotS_1nyb<**NQ_}&rM#Lx6(=>Z04i%gJP>zU*5T`Y;RXW%*NM#&+31^{L5o< z+4=XjWy?Dy?-+c0dQtP)AI6-6o|WOQU(=-5J-q+oyu6C4Q~2fj&%7@#Ehx8UIRE=; zVU%3<;SX)@B4us1SE7H^bZXS|ZMS*N;Iyjlx1ipe%A4k7VzQM3<{oy<}x9;6xiO04t@)VY_4Bu|8*)dDfoJ;e-{7W~k z*;uhvWGQ;NGf#cLfBM`nOXgph!WPYP-2A$rv3>gTCA?N=BzGpcE@UvDzTn7j|Gf`N z7PIQMsvI{Goya)(+WH%l7kxQ;Yk#S-1W(f4z>=2^Gu>PkE-XzH_;xB#Ej6~md6RFq z#mxB|dc7yhyYei&R`pZF_g%1g_9x#tH6KN$_;|LaoA&A&DXpA!K4A^xWYwYvOFpUI z(I{A?!w@h#O84o%?rYpkzm~DAt72`dVAWXo$T5oA5S+p^>W4E#T;f6e#CAlo$G$>(2{VWX)_K!xMse54UgF;34;x$dSW+1 zF0?UzK9^v6_>oLl>~_luOCsm!udsi(ZH~fR&%>Ma%-B8hPx^H9|8Mrs@c;Gr|Fr4z zr!K#&Dsx8ef18zxP~y(cts*|*4u_U-R~nvr;|n(1(^rDhz%D>wUAE4ibad99}J zZoau}NyaIo8DHnkX49POtlG5l)1I{xF3GM{Y?zr;73CcKsan!F@1ptUQx)$mqf8ar z*qZlzI{3hwb=Ji`t#-jvpHt)37g%>LcddPBFRMDY^v=dJ&-V(J-^q9o_^q{3Sz1jn zW$QE6uo?!f^N+cDmj$uvg?0Mwp4GNyZ(_&ld*OvEr(azCisjjqv?!@7L35Y?m~C=c zWkH|rS*!Y~-3OSHCGu;3hikBI`J-@CFY)SCpH02X`n*ouG`chUX2nezEI6KxMZUSOKvu~xIj^!o~hVwJQX#q&99Ej}tp zg{~22J;N0D(=|rgJA3{*!%5eoH(d|na^JIa_7N90-F!ArmYcTgeUvLW=4+mwU^?;O zo2>WN2gNMUZq9DjEno`}Q0j6?=RGd?Eav7LhlMK`_D%l0{nTqIgT?F2`WNa~M(lpJ zeec7hzH_HeN%JXin(nWi6_+n9_jHDQ&RiWc$LkF*+Vwlr66B4NOogdnx^6x-a*k#f*m2r&PIJoGzHO ziErAx<8M3vxBrxwVVl^Lzv+;Lf8rbSYbrB#rkUKSJ93)uM!@n*y@FW@Q$4q@&v@c2 zqqj?A>g@X#CI)Xjsx}_XfBYcfb`euechsS2AN}p`ys>a}u35XQKH|u|d4KvB9Z-GI zcx&TTL4&+kRukqp%bs;AD&lL&eqoWAbdBlXnd*y=f5oM*d+*FR$#1s z@l*3lw5qZIdRo8`?zJ~ zvnN>%XJ2j;Wiw{y;yX2Q<$Z&#mwE1ZF|K&@g*)<7y4sg&+nGwD!Ri90XQsd0BE0Z9 zzoB{x-_^Ojb9{MsOljP|G1oRse{qHT%o_{lX%wyvjk%d{dg8pbmAti83xC#TnP`|y zE+|uNeYkbYY?EGJUPqg|`%2EKHNG;xCzF#LTeCmw#BtLp%N*j5#ypv(m>fBgYxW(n zhu3o}gINrlF8y9MkxAgr5}&zKj90vu+wsNi>kVafM_Iw^b_pzr>HQKcEg!SCq-|vV za7ruez?(Y1+h^iGn5k#z$m#_CP3LKP$a#2cz)N-q*+-2RLCcJ4` zUi?K@E$02dvo?y&QeY6h#&yp{Z|m$*cJ83SN@3wIvVU&KI@De>nlj1vO{{Hm+ZEjv zvqXN*Sv6lr^6n4eH=A-=4;vn8DCtiQQsVx$$h+CZ;FGiIGk(EuPVKXe1RIud=EW~g zymV{sokzM)XR2>o@`2HnPx!88&g=_MEG}%aShUh$!L0&sDs6(ov_cU*fpALi6;SnVe2Vsy5k88sVGMkG%~0`$Xhs zs8w~7UfX#`DVD_QT|B)1q?@MlE=-PHqe zeWGd3fhSsir`k{7ntu8*f2#CGi5d@`mid) z{=55XGlePf=1DT5@v%3nWrE!n?kRn;ocBqvbKVZk_hnp1BAggGzMq|awI}Re?cVK% zfs)TB{5|{juFSRbE)QL7Z8d*$M)CF6^|js4KQm3)##R@s;`(&8*iGgq5BV0~ z)kxOleXPDpLSfRX$3}BJ?unM)oV?{~ZC|%~r&w6u=8)77>&R6@$O3fouQjLhR+8aDT#-%}ZmbS>3BYx^HpKhG(alb01a{{BH& zMUD5}-QllVSW~9XzRw@PwmX64o=n}_ljl}h&6HZTjl(@II_%w%eNzwH2uQBZeY+^V z`G4g?)4Wjoj^{`3+@F2(JFD9FV6{aOYW6&9+8hnO7&XOt?w`$kpx{qJ%2~#uwkeTL zt>x#q3+``@a4lx=-O!S^wr#ye=c))1(-j_l$~TpF`)0qXJEL}N-S<#C?ncj3fy}3# zHM@4GnypyKZ@6&3z_L?Ee0G|&Ew7pqqPeGQm*Z16c_T03NlTBj?@e2G>DdRN%{PwU zz4m!|P>Jlcb8-yv+j$aYpU*zi@Tl9vQrGcioYus}=YKz(XOOT}xcB7&-#d?HZS;!S zxb}ctO=WtBNY%8oz_ros+pb4+|CKntVp*Q<(pge(jwwoiPn^8iW#xenKLZ!Nmy|46 zmcMI?LFC%+8y58lZxgyF>(1aGn8o|}ZPs7EJB@x%*X*>i+$nbahq18MN4rynQZGfA zC(fPpZAGvDow;jb41AX#H9G2M?so2cR=0j^#9ZFJ7hSnja|(`!HY={G@t?ClU3ZJ% zBsGU(ao$YBGNIRB)1L2mTVVY+Z7Wl5z_ri)cTe0oTEO1EHEYr`%Qx4zS460Krx_X=6UMu(Jopbbq+vKW4bCYHKXPVDpZm2$X zTmMyrap$w>NzBb%Fa3W1GFTYwGE3X^wqH@TV9x%IqSL2hC3DJ;2r65SCGFqZ$aNIp!_Dt57 z10AA!#b!n_JmBzIDiNBwe%}oVXW7?otui-%Ji9i(X3IzIu!NYO%bs2={qn_D=4aue zoy+Vc!#788o$l%l=;I7iwb+v9W9#CKvLilEWt~z$( zX~vJlH8RhH*5)1RoKqXEYnD1OOWV+zFVntln&y+}xhz>V8ZiuDtUE^N;Fva|Ks<`CO+Hyl^o@#kH9$}2)H;a`hX;+Y<<>l{0# z`K7byTs&F$oXza~vQ$%tx6_wzH|kxvcDkg+S-E)?BJ*}Fi*zzSke(Yh_Y14l>XO-R zQ$8&>yPf~ATyGDj=;oL8Ych7fDBAthv(|RYGcD;kv-fFiO8KRs>ZSks_^02?q~AQ? zUne=|Z3}1axhB&C_a?7;sh%)n`@Qqp5iJhtPapW7e%!3O?%uYmlI=G(p8Yy0@V;5t zgt(x$9~_GFzPyi7-*WEZ8&w^lh}ZAS?0Xru+&&o)*t|02buX7s=Ubi}{p*KMUE401 zf4+Z9i=R$=+n)aFL+7`LeXrZQ-s}7R{emB|8NTifp50_W_4wSQNhM})v#;MQYO7KF z>z`0^x_zT~>5SC1$4e~OU#Vs9>tn7ekt|mIX3%$IPi}p;oq&zO{qno|mp899)AE)4 zWV9~ht;LFKYFvxINYuIfjk0}m`ugfJb&k7Vb~{)FSZY|kGw^=Px1YNuj@Kf8?-ea& zmVfKKW37`*?zXumeExNG?xzIHyYIH8Flql6J9fv6rBiG3ts+6;sJbBj$h@i@?aFR4 z+tvolmFt?XT3|JGOYuq1xGq`Mqte}B5>`cN3BIASQzH%9r>yI{yY1JL+`B^djn-B_ zLuafp=$*Vj`23x!1@m-7nM)PF^j+CE=k*TRQxA95K3;U|y10tgtVipd{uQ2id;HJo z@;5WTO_4t16)$zBZ{?YU{U+h{7Fkzjv#@11oHbxI3)C|0J?rJ4@mf8i@x`3er}Yc7 z4tx%fT%BWZ{?Pj=9l0ia>G}3YE`QrEdUEmyY4P(KIu|tMmi<}gm{l#D;vVrxT{Lg! zrZsPsG7hmUxLev5*kV$BV`Y)a=g)0592@Sv?NNVlGxzeR53}SIDy}FjYjXT0Ty*mE zjuqeQ9#<<_IQ7lWH;?X=*!Z<}lD3`Qq<#7_?^mW>inLew^^EK3mJi8&+fTm^xg#>` z{MC~;H{`2L{rRiZS1KaVbG}%2&xF&e+kQD7J<~K_MC^aU*8giJU43_|zkA--+tvTs zXU^|q!kC{2&%1->=Pe8jjA45h%*`?9=Pii280%={-F#(Jf%^OVli~wpj_msOV>gq^ zga;2Tmh8?x;@z|=W_DO>UiI`mrwfJufA@Yb7MnCVLncH1Rq5ONXa1zw%)41TpIfh3 zu>SV`@YJ$z$DVHYpZV<2llqje_Qf;*PqAcpS94-5*Ch7&(`N=c73BV&`TGr1c;>sM zXAer9+H3@G({8@j=%|)m!%>*fe1+raR6(Y%wcAQw zUQ`lay16J+cl+tDCEud;KSWORT)BhE{?NLx*OQXmulnx&7r!|B^ue8izrv5d&Y3Vl z!F|PUky}xRRo&!|+S>nbdo}ysO0@_%mMe$yuAkoI^WciyZE3lZ$Cp|DD9rkh#!_8Z zw`G%Jfk0oA->TD|T;<1(EKFRJ_x7xlWnORVo(W9fUBlzk->iS^dvV38!WqJI{Kco{ zZV|py`9!wVe8t|rP zcRk_pZKa;GQc6gRitVJ>8e(Xn8@%}2STmG>+*>B#5+~!P|G0daN&C#*u4|g3A8J$5H*R$G%+a z^qF)oY1x-qClX#?{rW6x>JovD@(GJ?oXqm^4D_6##;dkxv7vH>)~mPkSN5&nG;Q~` z-CBJAWPHUL;#8AV`rIZaoxb~2X!dRi&(O zn$DhXKD)gwP<@A}TVK{XL;fWvf3T|_c0RB6;{P z+0mCa$}URr&hkISXQm~$TlCYxC9@aG`|Rr1Zg~ss3n|^S0)*&LL)M6FzP< znNjW-eP;iK8~>E$lymY@HoVD;O1KqttTB0e@RX%fE;r^r+ERF|I^p$>sEAaPXkYH7 zChm)$ZV>CdVik5`TI__}{;yozzc=`BywUQ@)}FILQ2h9@WP0aERRE~klJ3~Wr_+BjwBaHIS!kC!y?yhZgzuflH_g-~J z_N8wB;MZ1eq{+3!wM)(S;Cad`3eKnP(y!O$1`li4CxV1Dp z>g?0_8xzF8+*_ac_5bIm`Sbt$I<3C{c&+Y5wf$-}A3P%?ekR@7wX9-8_gliOFD7QKl3H=~`IM>Ln^oaGId+tG)&-M_KE0hU+jZuD zDD(@g-n(K#l*HXP>Yoq)`@ti>wypSi`f0X3x8&om9A}@uC^E5i)#5eJnV0QeF?aW$ zuDRUoCf3u-!>?yW?k$|Q|LODpyuTmLu08SkuYmk>okeY;EDJQm#h8shZH}nD<=`9g zDW`t7@R88ovuMGK zSv=EO{mVHwCa&OJ_<a;X+kpvyf$Y_ZQr2}HV66MF+9k)+gROs?P7j#&`ZDQ*~5F(W-S*fAA)&8L-S_cz-Bo%U2ZzwjB={_a2C6 z%I@BHJaf*4GON?CZEm?($yMZrhxmW?%Hdj@qqkaVs%E{~mgR?6<|+3qXxJ0?PI%MS zZ!L^Q8V$45gxTtBm(=aw`_937_x5QQ1gzXu{{^p;s$+az#JOdT*cNYZ+0u#L_l~{# z>!~ee9L$-r5#wfAy; zyA->D+AF0P=D!xd`m`T7O_}et)9ElvbBOA_GVYlT3cd-y{h2)DS$&ZSrq}(*A zm~PL{cE(e)<+Ru8c{d)LEQ;1$XV6&i+@aD~^bynPhi911v3$7ja3j~6r$0G3qD19C z7u{~&D4Ty;q~GCt>!Y6x=S+Y8zV7kaL$&6$=*pumnSv}4>V**~0lgr#?x21pnrsPAQ%>v6Bx#({mq>q$Zz-@I)2 zu;q~SpQTJ2PE@VlFhzgDj5m|2N?Df|AJ1WLk4TrkHAQ3TBQLedqF0E}| zZKpMZHz-%C<*)CN`;t}hHoE9}&I2)P)ul%pwq2H5>zMxDH-9-pLW$2+zn_weKhE|s zDh#i9S$b3<-sQ!CoO$o=GzyDO|0lY(dyZuipX}*VA7(0jn6g&lg6`t5wN@XCUX}0I zy)ZK%G&A&vZ`aQk>VJ-^-o7PjFM8vmnev-M9P>D3ld{$Zo-{SIf0}gdO6z39jvK;y z_0GO$YxsEuV0~uf#VIu>YD zv+4Vy%2=Mw{W;yznrx3x^UeJ@=W)TgZ(0BLd=#*lyCPaHsAB*2%CaB9C37|x%wEdz z^`3rJI@bz`kFIT^9`giOcP(bvw!xy*V`uv&mcw?>RHk>n@Vg_MvN*`CkH@cGziiqM z*SOXFZKvZq8Q89v9(Z_GvDB7>?*+S`=XRseZ+{u3*8S?+XKye!{8GdWwIlT;A(UoX5x^=#jAY#D}wT9SMz_?cZPAl&q0>ps~_}Rlcj`w~XYDzQR5CSBM1j z*-to>wdZx?^ogmf3eJo4aBiv)kD4{{%X+@>a|IiZ@uxXTHHrMt7qU5!d{>RPcGFs= zZ$+qMJSjsTSGl(~f!MY%BjUbE9Ed%O=-jYO~8zRnq%=AG)M3*>gfr za#OLRy6c1)$UkT(N_+Bi&Sj*D9oomdeT~)EM42g-3&a0!o-6M7bdz=St8?Nl zGk?kSuzeM`YmhFAsZEr++@a)iQ}VC=V=u2COYQIb#y5v9`pG58v8|ED^B0d zB~`*VG`u5x`vhMLd^-8Z*l*RFRVL;4i^L3$sYE^!u&dkCB~`JUcZp@d8BMW=lAG+7 z9hmYlrtH(^GZJfc5e=6kgyiqvvLL_h}ufeik=61d_x>7VV5)M4Hx-2em z=)AL3@aCQe*Hww^6q6HAmi7feW|AHqY*Cj{O?^?H}J4Lq&hRn+c&S z?#QY|JUA3~`hFf)%#~oAJ5sZCc-diaf>;WAIQU`sH0`h8p+0$fz}nR~Aj@yFPa-%l;L2rT;`ucJB>! zsQz~-n|)T7mS^qcKaK~MWO?kJ7a7Ix_tWUb(X9((Pv?L4-+NR3{NZXwK-!aVs)Sh3!rzrN3dE&FzGFH39SS{^!S%Y9=l zLFFear*pEb-?)4K67Pp9A~pN=r~X_J|8+217VyLO)(R(|4)l=}5jwqU#29~b+eq&<&J)4N<%D|Ou1g=|)F zuQ!Oct5tJTPYGh*U>mesWM1)&Ha^c^6;HQ?$k+Uurdcp&xo1Yy92g+*-C#{_Dv1`v2*KNnHWjx;V>3~eWtm|s$1$k>u ziNyYqYHR-19Lgv4QhS%0()r6pJED{-QhyjL?KOYVH?MHdy$_EjZ+@t=!fZ2JagahD zqtDgz+02jb864kqRdwg;w}M>?CRKYJq$95i1@ADPXg9-X>(?3DxAYbmpI-Fs^sZyN z?I|5x7b-Qqa;tmhxOJB*ove4${xk81;R+AKUFQq09AcWpsCd7w{-*sc`>s>V*mOG9 zu_?Me4>v5((c?ws(>X5-H&2n46^`9daiOrv;@;f9rtiKf_SbIcVts!9-{CWb z2g?}#?lA7^w%+XBELH5k)&H{2v8~>$Rt3Qm)&DTA9kZZctJbmr;GbAhwB`Zk;q zlo1y>;S&{76t|>8ENM@6o&3)E*AMEq2cByFHTji7fB&Hg8vheTYcH<<%+wfJvP$u& zhQq!M83%UH637hY4fk9*Z_?-O4_c@F`F;L%gYJ%{PQ^b|cU;vBOnw!awj;Lfwiv_o zES@JSkLUTvCQpheTKPF-|9ZwX-le5)9TE&Ly7~i*Wt>xv1hT(4tnp%N zRPo2?XqT_6SI_cjni<6T=1|1V>(8{0Z|6AB{E5x?qRmN}7oVAgyEs0tG-cZaYeB0!*>~Flg$?-`LDMy)~HFB-C^Qc#QX20HH};X99YA-_WY#<1u!^6Ax+jneNwwYA<9ZoResS;NA^ zW($i}WPEGA5x4J5QG<%|Q!8$X4fdCG7Px+@nsX`J(QQ6wh3FTy(@$q61Z|vfUrhLP z`sE#!JEk5nniuIh`N3odN7h}T8=QAa?{W2h;}O7kqH(^-hFcZJ0bA@_-&(Yrz7(6z z>8?HH=%V8;oBqBqzIOJRvdP=O2R2mpJpTCb>h&LX|L?Bb`+v!~hMlji(v|-=-uIw&aDk4qRXA!)V3HZZEg!Q%i2( zmxD#KB#Q%=9AFN76Zk;!`OXE(Y^*EuPkb-^UFpR6e3pS|@zIb4ey&FavK}vUS-xWW zWr3H`Nx#lqJ)Qh;$8J-`Nvk?L?#@wYIbUt3>}$?x!1qs2bFbqhS7yB*tR^%4o&Ibu zh_+%}m9H zN(vmPiV0tPHvLE4^TwdoA1Zs>GnUQim0LCI;p?iYlY=cz_I-Reso}K5v45BSLKnQ( zKFs>h@nlGTZ^-)hQU}>=o_@(?vU&RC)|*|Pk7w^STeITp%^%A)J)CoLhSltfV-gm2 zfApi@Oh~w{zOd9W^|4`P-hjLd!p${{dC`)#jKnEyZoA=;;ve8<<6EcBXh$-wI!b)G*qA6bYJJx^%K(` zY?)^CP9{QLHihAmf^9lsL}FsPZd~>$X~*TJ`+i zlTNAK)^j`=r`$T@@o=Y~@u3TgyCw@L&t9xny=KbYpqY->oWcZ_c~0KaaD2(s45swT zg(1N&E!~)R`m9-bd$oG_+m&ZZqd1~&&Ark1^tVFw`nWgNQzY|0i~1N!*4#?p*QDTG z?ysXPDH_g`Cni~{by&ywyl2rb5Ahq*s;$}0R zmJhaCm5)RE<2jQRUH_e$p(t`V&PYK|S9n|0qquj*YXlkgt+JLrU32F1TZ7y=8|NJ_ z*H!#z-Scb4>H5RhJ*&@H<;l9+yqq<`$CG>JhuQZg*@mA#c$szGX+x8e*cnbQ8;!Tx zN~ETj9$2P#ORjm<%DML67Dqol$h6BPwEO0tb?ge488+8n{1w8fruzFp!Q=jpIc__q z9n;-5_jS(sWGVjb6DkUOBLg;s?c{J%D~y@6ebr*+7@K1|=I3RXMO{g1IiGWo@A;Rz z-7Z#Kk5A6*pHRIhVBb>iH?gd{GOz93f6p{%TE?He>vJM!->F=GHCDO4qHV!qmPci+ z$ucF^3g3pvh*UD~>eZ=nE6tJew=dm!c#ijn8Dh^FgT5;(F?DOz9cQ%O?>8Qb>G!=G)T;ytj2gF z;!M#xGg$$_xr?0E&z)_f5O797E?g+cDYI?KC!w&0onl8z4*PY^`Eq_#$m0XI?)G`pWmfH|zWsPwQ_`U=`5Jj?Q`TR- z?{O|!K6=USbZxGuhlH|k+Gsbth>eKsv0KEQ{lZ9O!%??TvEOM0tt*UwHTWesJ$IUV z*XPzk>r;~ce(lJ{@C4GQ^CInODxd{cf(o3N0?zr3vrXI6#$s?~0cO1dp=eXU1*+cQDE z$Xy@#jU?`hv#ed`{`R59sa@xf@q14ydT*TJrewAN>RePlpGaq~shs zXS2&L{lwe&IbUm+duYHT)4kERo>_&S?EP8hB7OXmvZlT(!*4WA}~g zmo4`{c)I6f0&|kNN9*EZ)v^Q2b<$VPHmmvidELVG%}QZ0U4=}4uQLYOi9EN9RSS(Z zZL2-F%=Gi`imcxifBNnh&06VxQT|55orHd-_4^ec=FUm1`?glz!ET$|&6JfBZKAnU z15I51#>YKu-qt(&^{0Ldhu}36=e}z>k)c1CSvmM)ZJyGqDdIOycJJY{&8{)-FxV!b z$otsEdB@6a9hHLB##&(sKbNtHiiR`J>^o6oxMsh&wn&z@346K%Tg>;oL=7QfjjK^P z9#^zE7-D@TJu9LZSWY_BMceYqZ;zjOZ+;*9#$|_R@mgt@s<*{(m_K&3*}497{RG=R6nQ@>`K9c%|?=$(Hum7nvRFT;*T1Buagw`e_0L>W=U_$)maD7YCo>+N&@Fx~HQ!lg)@;ALPxH5O z%SO-Kd3Yx~`;+#=j}k0BH|0k)&;NM1RD6f({t>!Usz|~v5hAyYB)2s_e<|i*ZCcI=gY%S`=9Jpxo@U`3?&v-xf|>Q<7ca@%EhG7t`!L$4XXJ zughKkjwe<0cITF_6NOthz5dzrG0?rYY4>iG7i;Z2Yb_+cF6i7FUcx1_=un|}s*I4V z_SD;v%)9o-NUeKV?XXeVk3IRwfo)e#zE}Id<-Dp07elJ8di{R?qb?E|Pu<^l^lsWd zll^d=fL-0P*JZ2kKKtY4>iS8zF>0HD%gy`I8aFy^zS_Qdc)pvjm-`FP{MzZyxsS7Q zOD?_?tEzWyPSWA9edi{x{T#LHUv*QE;f5>s^j_|5>w72u(dKiTq)zl+SG$F7>(2l7 zHwZk(YQOmR_Qx-rqSP`B_MdyAFTZ46j!~%I6NhEbw_dq4bGAYd`@Ta94{v;4LP_jW}j%O1gVcjqS8IGy&0PBHF!zJ&APvm9o_ z?^dsC{(Q?4n^m{*X|mRTi*2G3E~l=!-BuRKJ}LYvu}-T{Yp;;hmPYk+qIFL17hk-a zYvpueMXHj@0r^M0IwHxF-yC~UQuAec#LnUcS9;qn*P0(&qwxCL!&!XIiRra>I2hX3 zEP877a@KCvUCZ>=89j`sZPY&UU~|XkRGB?9AMMKrLeT zXG!y)S?S#O-{sqz?P(B-)#-THz5i;>^!i#Rp7_R<6^RW?53Y=_`F_OZjP<9lXIHD& z@5sLAcSJg`fNg`vn`xq-1?*C0Pp z&tG`|gq`!j*{0$}L-;vxn|IXZI2-ohs;k{^T>InA%;f zvw|i&ADDHNd)vc1^#^C%Jed@JN`SHFg@p9gMZB)NqT|anSA5*35`9L1=eqgTNdana zuBPf_zkfO9*YaCuM6TQXIa2h!An)m=DIYj}Ew&Z>&w4+3#oYCaEF&j3W;{_ZfB(e$ zmH(Ano`unx=hH)SJ@~aWHFv#U({n_;S5$eU4)@IJ)D{E(qp$y6ySOs=MY5c1Nc48= zi1fByYrn-^Kezv3aaI4h7w0DbmAHJPBrw4|Nu%tF>({nl60bY>leK0XkU5$>{nG?1 z-PMVu5ueTO@O9qr%&fYu`uBtS@g0}1@6JyMnAqs}>CK#=k5c@m%VsUR_P0{tFzezI zOJdUcW|u4qJT7JwCY-pavs--fJ+r;v4@5ba&y+iIgj2!zh=siH@zck4ch8gFqmZ}t zH=BLtK9)rRHW}NUqgnD^t$iW%r?$#D&i88 z4&OLw`=;!RymX&euY8}^+?~q{oo7uD{<(T`+vW+K3^O8qBMv5heWG>Z!q%|cdA|Ig z<{tQyVSnXp@&{d&3AK}r*65WsFaGt`_c{Oj?JP%a%`VC`#?M`uG%L8ggw_QD+SM0yg!urcInrXev|&3o~vKdGW*45(TCIB z*XHi>&|}i|I5&&y>a1rr_rgt|7H_{F6};ItCOv)2+V?uwY~T6b%E>bBk)M>zX~FT$ z=d#IUw7y=hv>-Zu6z@c9Bm|*Y$+gUyd>EE}P8#>zbQhXU7c9Cn6E2H+Mf<&9Z@^ zDSdd4-~M*T{Fk*yN6~)?vv1FS9IQA#iG6WT z@bBCInxwz5F}tt}Tuki^ntJKRteJBkUfBF9Ppd3g_r&=yj~@%p{1<((;N-an!hJiJ z#rbdeCil$Y;Pxd)r+hn`bmF+i_q}O3O`Rt@pBH8nAGbWJ@$8lAt|KM4TVDGIhxDv< zet+4l!Cd)pKxbt1%$+)L99Ch%YL?(AhbQ6ll$@|M^sRgJZCxO{eARh%5B(2?cmcNDjlM=M;-XE8Xzjb@5S^3{XMGI2i?ph-=i#aGUCFZtQ z)1zuL&nHPalPY&l^^JbBh@m##|CQN|vfH(j|9&#u>c{)9@EyPA)>9{adZzT+KVSBx zUH9>ZX7>7~!qjw*(=GpZ^pu6*)gR*8a4 zRio!lp5L`hdpQm;bXxL#4{p)vocHyjpH)e>_tsi<={-RoTpX5bzV8;>5`O*DzRX7# zCcgRmGbH7{74vI_?eF@#|4iF_{a^O)$31(K(rwmSR3EKA`=KaHjBV}3Gm#r#@FjWA z-TG^_fk~`;!Rk7@M9sfTUoP6Y$@R^Le-qNThWpAJgllwD2R7?x8eRVU}Fyq?Q z=dwC`+w7<9)_ZhJ)XX@sH$6imBkXLc@by0?Mx;;)Hk?DF%TC)V}eI{$UU?5KT-|L*w89f|BY^Xyqy zV@m0{*q+EI2X6b!|8Vef5Nmd2%Jkba*F6n&7MxuZKAolA@#n66``>isilT6aFUb{`4wv-9^vL)v>WPd5-^hxq-2(gFw1T`?~|zauz8 zZc@6#6Fu?YXTN<}cRSc`cA9nSU-uhl*Xx@tWD1&Udg$$UdxI}0|84EeyV&?PKKg0n zZ2N@&2FzwPncwTTzxFrQ2s@t|z~A-9cv|i`hmXEH*PZ(F|EkD((Q7+@{`>NnxAmd>@@)_68SUKf_2?-Cr-3^6=LwuLuazix6iuW{$DQ-D45ms_VVhkXV(|aFA$o4 zLjRTCnIoaik8b^+WF~BIz&`thda1@)+o%oaCS1+AoF-fIBy4*5dWAc+=DG4S-@5Pz zaeXNB-Fm!#cLdXO**`nob8;>$3{7t>n$A|c?5#h;F-@}>N7pItIlOkwOlj_KtJis~ zTaslYcrrgcA^%hOmm}K_@LFijvCrhmC_6U6G%nQ9Sye(kETpUT|mLd0&e> zy}LIiPAT4)rLv_|&WQUc_YuSScG}NF9^czKX=dEJ#6q#_KR#Rhd;M4YP2t^!1XqPK z`RTKlyY4x~E)_C=->lo&vlP-)KKK6pq-B0Hkk_$pZn)Id#D$Sxvue(GN9NvM_}7_|2hmUZj|y^WB9~?PoX=Y#C=h`=7O{*0}dq>`oV@nnNc47d-5* z_Vig^tH5%pFpfcv+sJyQ^NS-Aa|*ZF_}05B?fZH>&^apUdUl-0FR{z#W{E1jOW^ii z>EW1lxyRD7V&jV3;G%-cGO3A*pB~Vf;2CPk-_A65L{_%`-L$)fVWp!%f82*VkFI&F=-VzVdEj=cdxq_u{*sr+o=#C) zQmy~{Zn9A8?f|dGX^St`eeY1%w{K_r-*=x~Qw^9iUhPR*m#z?e|LwkQGX!q`yfuk& zX1?4evpt@6=L4>nJ&C&U=0uiqz16d}ENN@^na}zsFdh_e>gN9bJyk_IDu%&S+m=T> zfh}wOfrqvJ;m6cjY*i12Z}^(%-~VL2!@cH3i9xqm>Q=FbFn;^3{-6EEa!(zM1wG(} zI-mtTmImf#umy}3=9mk5Kns5e9x!y)HnU&GyzG9fYn^jF#|GQRUE3-qA5%NPb|a_H zwdt;?0OK~n6ULLC-o2REtKwbo=l`Q$HfmBe+{#U#|1Y{gaMX z@@3~{I%e&z{`BhN_3F|>3HH<$<2w5X+r`dtZ5J13S6m|b=imJY*#U<*_t)1luHNXz zy>-xFH*|K+0v2^IW{YxitOG6;I{*Z57s7Lj}J??2ow5*EGvf8*KXziZr+ zvqhi$n^pSo^PLOdIp#mRt^S`cdRm!yTf)+-J5pD&KXtib`}6T)_5UAC^BB!mHZQl8 znX<8&kLg*9;S`}$2g?eo(wFcaHP;Q)e7xlL{^gcuCEP-{?C(5mA^Ye-T|nr2^BXw{ zexWA&eS|CZFF$+p!mV5S*WbzR^@qCU_VAVQ{77uRP%yP1^0CC9Q*RHi-Mn~4Uc7{@ z$B)Uz2GcHo{1*SvQ+qw{JiR(L?(E9>(et04@88LsU29(dDfK?n{HLjBwRxo0nM~2% zlQsY1ze%<6$4`Ga^z)_PN27a+512Y6&PGdb_psN=7knNP#mQo_C-89lk9Ut07M|>9 ztYeM8AoHMNNwdCuSE^mx{AkM=8_GU1xHY$&=U+3E;g03ngv^=)<$_aO3XTfetWFSM zykpLHz9RFCEdTpT8G(ScbJ)JG-g~>g&pKekk}Dh>r@nvU;`cnTZ+Y|QtexuSJuR9R zjT02##2?9A8hF`mPtfPNj9oV$O?dS4P{-mHJB}WPxMl&agx4oU9fbB@egD}+zE9$} z>g&Ve=dOvaoG@8t!&Zry4M|Z9y?S3Y9ny*ejX#Bl!qd^c{h zUX4>-O$Q4XLprU(7!jJR!rr+xyy-zUzWV7Vb>4TZw zJjF6j9xX50J^r~#D@pe}d9StI?)=*MMl1i^ShDo}GrsZ#vt)Pa9e&XG&|J(rc<;IF zovT*XZoN^dTT#|_Y`^t%L+2I!?>^R6xTM!`Px1YAFK_#eM&V}DcQw`wFNA`oKmK2O zS++vqnA_ZZ_JfQ^Ld*YDot8Zj$h$Z%H$iyHL?_;~HS2y{otB}nw8<^_+=tL(F5iCk zi?cI7(weaC?|B#F#%Y(!vv=RVXpuQ_-Y&J?%_{X%F3EX3n|N|=*{8S#B6pZ%XT5U% zSF?4_*MHv^x^>QSwtTN&xhejVYD30{3DX&h4hQJIGSYwL`|nTTZf%B6zJ{|U>mNie zWzQ*NT_6^vdu=_#u7-}O{eRz>FL0k={rYl+=VU9+3m??#1iw<{~{I_Vn?6%UKH?K8Jk=dc?`;~o?&eS=qxvRe{F=w?t-KMHjQbj?cSyx`T?db!J&fX~R&fLV`8ydD)`7qz##KWD{!Lu&LEkDE9<7M-X`xokM z?_XFS-pJnymCa&v#O)uZJ%_?853xnln7?c*&QqNkYOx+So@{cVZZRfFaW zi!Qx$ynT0n>Mb*4=RJ*!nOe*j8n739ohx6?9O=0>ovrQq(ruH zkN5w|!}$EC?`-Ug((Zn^|EBu1m8Rx5J3Xfb>Ms1xvel{I;d1H57Da#SlwVsi?uLAQ z{Mp{GT2|D)@%m(qh2QVTO( zHERC)pmoh6QUPx7_?QwRn~EGMGVm3}8|{6Qr+^+L+QBlmX(2n3wF#eZ>Ieh<&lUus1QSue3lrRbau^^S9}Pr1@_ zIq}-;uM6HTGK-X$5PyWT_xfz1hYQ#w#imTw?pSnF==8Tw(|Av3*qWdD?lWs^tDsxR;`oOj1Sfcv9jI_P81}PkX&=VPyaN8z-)>@!l%?^r^uiu?ZW_pV7{{%r^J8^bgm!2EWeEcYN|# zT9^SWoS@&AI ztSL`gcXz8w2h?mz>E0Z%>0;GeM$TWK?$~hsPZN1qJEcKjdEQ3`t;C#-Kj$%=kTv)0 z6!M-B#P%in_C#ZUMZfSh^{hM>8F@b}a7KT-TN3gVTq;njKA_9-(N8M^(1s-^2#ZU zY*o9NcUEoL@np68@B6VfKVK(#i`l+Nz9AdopE7mFBnB%p&nX2DxGdDmgzhak)H}D% zzy0aM=fUa+@-}P#vRRtz!61A0$rYw`q1hXq#hxb`Z!gSZeY9A@_u!VFM~xDmE%?5z zU(O<_Au!H`r``C2%>8>G82K~mniofWZCtdFLF`@v#|ift9v>!pa><(RximkcD$wEg zB?ST7#hI;Lf}f}L*I(Ii!}Kd(8S^3W{HM>i-?)*)(-%Aca>Zk&-o*Grw-;Y^eX*`3 z&PB~(Gt0WqwMkcBRLwTcwqr?OE?ahgmUX#vHd4^H0)>0Qf~a8BtNB#`LN5%rM*6aR*ZfxV=q3} z6q?xZ%}vPY7=yMU=c~#G2UIv8WLiDXT4yFNGnq?j#b>GV)mf2rKXrP>?G;~V-#O)T$EUt}{ulEDQ=Ieu zDrT3i(KqhC`$6#8`Pt8oxc51%RodRSb&~h|((Eg{#j3sMZ{Y5p=$Dy)@`}Cm{+s9R zLX?jbwm;k9KAWAN>6xQ=?#idC2@D%A9xG5~NS^<+SmX-Vr?{I*9p9#0yU9}`;$U=0 zXi=@0N-+N%!2?3uek$Y%^-z@yq6Jujo`gYvUhX%Zkr6Ff^aN z+F+cV+tFuSZFZvJOq2e@sD|AiFTdNUkjL`iaLtSVW_h9OPpNdU_>~@Bap~fUi=uP- zy)VUhxXT_`aj@!+*24aR-~?{Z#C+xQ@+`$;*LCK;u`>aUD>@{)-&+ttQX4-R)(?`?bWaMa?T3BlkT38s&qAV zT8(AE0wX`>RqM2>M8j1ZuPrkcTqrWrdf7UyZ~Ajvn*2*zW;~l|@=<-Rr~93^mftKq z-@0aB`=%AMSa`eV^nwV38OrmR5(?Aj8U0^&KG@;z7u%OY9({L3YiE?qT%%pMT7;S1 zm?=?{uiEvnxB3Ocf}*|4+>ZuUO)X-0TKZo&^2Y;#9}?z;VmC4qFT7$6DBAVWj*nOU z#sV=xre7i2jj_SCb5>gB?pM&eGv_+Df^M_hY$Mxr>6{X`8=Yc|Hzk@nmT>Sg8~6J& zK8u;~Xp@+7Ag}$Vo^^|(CIu+?%*6Q8 z9r2ya-P$|XE&c4pm;Z1f!_?a>=Y3C9aOG*5E%4lsee=o66a9x&zf`SM11UTz7&RCJM;7=uIP}4q&$%`)!LbUKF8G< zLGtZ`l3DwHO5WQdzr^&p;rWAKuI)^|qLtJm_eG=ON}o@##eAa&ANPJdXdhp}x#ZMI z4dL#ClDo?U{_vd_n3^f$v89OJoNLuBC8N@bON4cqdba3IDtYla?%}hy2lN6~J34Ya z<=TGIcxUmXzDta6|8cu-c2iyToa2pkMik3tb?w-tHyLNvom#S5J!+57UfrjM1b6)m z;`dlJ|Lf9M$4^Sg&k^3VRCLzMu-m#1K_sO828xOfYb?3MqTK7P$+*N+rpPEpw z%g?=EUc47{MOA%G=%;hP?^Mlub39J2UoE+6?F9>1C}?MnCo_tl(o@yPb9BZ_DOWJDIN@<>0=N$-X6QwdsS5 zIoJO>8ZDb9y1DMNFK?~siH)Uu&&bwglx4`=ez`LGXx096lWS|`4Kr9Lv{*iK>N|36 z-hwixEsH)J(5~5eEdO)L{k(D+A=9vM$5Z;V^V}LQu~uB4xzO}xt?M1la>ro5qE(YG zbf?UkQK@0FS!Y+c*@#pp{Zv3>+ay29G z)zw8|6SNI-Zde4?etOb0d1W7?>zX;=r|-GV%NWcck$J?(E_CT1g%yTRn@a90Nh}vQ zv(fyR*c~N{ED5idyJwx9{9s3#>3kOVGiP77rf8&>?KvH6!pJgZ3is9YO^HAAZZ
P))pxm{h5deFo|@++Wf2@4_wWAmll#`$nV%B7vfxa`%|lOb zDSXtM&ttud{Xy|5%aT>ovU5J|tca7I%X3WH`sShE`*>%!oM*{7^Yhr(&;4h@Ha-%* z$f)OLcK7<^rzT3}&X%g&n#Q6Z7D}JWls#KBC)JUiCyj4vD&zGh>5qA~ZBy=^BB64L zUoY4AXwS;*_eI*5pWB&D-4P@ibwS5O{hS<|o5^O)MKfjE%I?hB`7N`wPwQ;%4vU6+ zevKyoy>1m0Y?6$bE_3Bp!>|2uK574+KEEM*BKr6mqh9y4bz3V~F8X^vc-HydVxDZm z8>_7f>lX85zmvEbmz00x`K8T=e3j-d@XAx))3aEj;q#&TUzc4k*GK&;DQZ3A&AIpQ zhZ_>xR-FoWYEQb`6zu#t;@G{o>9!Kg{pP9J<<>h5Y-T+xzuD~g`DskQs~t0cTuR1S zTg|EO%jRt?3#wLR=jHzYe#T8{x4Rn}#S(TE9NgE(UH10G533myOA1Z=lY$Cg<~+S8 z!1naG^uvIHbiNt8m;crhsX4mqKA-aY!_&{_IV@fwS;~Dp;@ZioO9#6xuYZ15x$a`# zE$h}9Wh%M${}w;aicvYSXzP^{vEv~2aSZyU;-F8)e0x>a=hP-J`1iK~YLs=Y>+6HW*9|n-s=-^knKQ(@QpMH})J1)Vs{p<;cS>6TiuoQ%Fh3 z{#R4xjs<-_Yap#KPK?LGrwpO zqtbKbLvqwi4)te^YgsCN%MbLg+WszGQ~TYtBAcVI8RV z_PNi^y1aRZ+FUE=FeYBwzHZ91`g!*DxhLG1rmYKpy5@PhGMh_=&tBbSe^qZSG;y0h zf1y@?-%aPs2kSU@Mlw#{bjxgop=jfgh>%9hzFiCAS|^z<{a#%5*}|>cYu0+Lvr(z3 z8}}M%9Sg6?*<_=0MRUK_H*S&U!_#K6n7mBu`n@Jb{`i?^w);JUj4$YzzFwgJ=)R+b z?Ij-HD!}lrtwtCtF{fo^_^8c zGRX=rzWgl?nRw*IL=L~Tmc{EccW_7aCW-kkdl-}9I?H#ZTu6?F$d{hwFp0( zeZ|j|XU7%gAnCwBy|4>!W-u{?x+wdtblJb)v+WD^R|^;a4`NA)Q{v{Z%YV{elob#p z{^?=vvL{o@qfWM$8pekuJYUvuIaszkVz=Y$qNisQrd~cQ$#ZA*I=+|JD_5089aP%1 zknc;xoN((u^P?i$4zAz+g)dNqMPS`AO+D|8Mei>(c7xSakQr^2t$g%BuWg+|>t8 zExsgmMp);0yyus@s~GavC|qN*Y@73Qhxn^c%rU)6_ktg~nqPaaFwyeXsmKaG6IM%S zZo%n?i`GTR{kNaXTK;oSJWKgcrhBH2U$QtCNiR^F|J{3m+Wh|y116up<#^Uy(sbt8 zSHDkP*}5TrBcJ|fj`z_SXWT2oea~!S-oBcTw}3}y+l@b!hkqL!bMQZZrbH-Py3=)q zy@}4_43^HeLQ&&Rl}GQYyrw$8+BWT*$mVq^A5R-8mOtEhQ$(=EwRwkL|0|=*Qf$1D z33j$;&T{LNg`A&tbwZzF;@#OAB`arNIV$?`kXR%4=au=9(SrJ=l3xp!B?L&aWHmfZ zv{TS!ohsrGvBhD9nnrKe|L;qeYB+MlH(rpP!xSB0vY3(Kl&H#Py;ku&kBbgJBvX2q z&HXXUZ(j74Wm&JK7tEO4uhG8ti|)oRfzxgs^XlCqd-=8A?wvEl#MYR%7Vj2cdPuPD z+!LEq%eF1#-S4z1=dk_u<0;QFm3Z7vF`d3J=U^A_Q-z(AH}YifSaf&oj8ehMaCJw6 z-wdxm#OC^EUSYX$XkODahJANhCUMQ(Ynk=CM6S(p#nqE*l2syQlf^$ZtVvAaD`1?; z?oit}G5Nq5uR|Ua9`?QwyA`YZq%`Z%|Hn_*H9UP|r;1<8diPE5k>;HX{8=VX_u8nK zi$t9EH~aXdEU$veIB3S=*QY99cYMs9;86bLrDCxsQbxl*M+Kms(DoA{F;! zh*toiwdu%uJvwLyyRQ+=*N%aKBpYwtFyiKu}ga0-+JQdl*p|?kBj_H#;n3ogHyKQBSwE=$&u zW$%`=^N-aDHoxA;{xhRl`uNI6{;v+nJzEy^ob8L_saJ&Z=FnRM~iZbxtNKhFaGbex*Uozama=6$0l;wFc0LfVrD=|?iA_|09> zP<8QnW{mZV*_W5~E;?gp6}fWd5sPmEi~IcN9I;(~=)=8$eS&hi2ObE2bNku;N77&N z%jA~*4V?#Hy|j3#^rPoZMt)_9%)6OJhJ0Us{RrtZ5^XUFJEgQsEb)Alg@53YM{X?> z-LjerYCazmFakft_o*ORidT*2wfFeztiy zuk>QTtZ>t8wI|Zz1(r?66;rp&Yr6aE;7Jay#Ub%76IbUh^@xA6Hh=!+<~KHP53Rmq zzN&iJ@?FaF?j-rBhuktbaL!6Wvnc67QPrc}t2DYcl^R5cip=fO5)ECo`c6iT{T?li zQ^kuXazq%rvt=17ehT^jfzg}Cx?4S5ykNHf%&&5f8o2}atO;gc_)z;}RETRt#Ld>F z8E%1Vh1Y~U{jAowM1;Y=My&bCJXc3|pUFj&_WSMZ*uAK!^72=YsqC*)OTH>yza@G# z@8G|%7Cklp%)hQ2eqR@y>Fj!xvV4j}QT`E0x#x#(*&Kc0|M_sq{q`@+SXa>}I`ky0tcRt(x76f_pz2lNjIZ-DUsmeA=3mVr=%jPY!e!amGKI`!-9*t@9~Ud-A)ldF*s$)7{VXO?l) z#8<@XJ=k8kiY;!w&^kf+&;OEks}_r&ip{;WskL-s9NYD^y7%n&ZZ@9Eu<_XGqE(4W z0%crGi!$Z&vmHYV+_$wh%#Lp3wVSy#x};$B*@SDea*`5uZD5)F?M(hW?*?DxYs}p{ zc(>)w>Rr`5`6#y$Ao@yTj6#-m+Pvs!{*s+1eh>tvi&S z-`XYJ(JC}U(1TN9~YUg>PlX1b7)6w`swYR@8&(M zsrq+$%caLf`wFf`{8D@EDkD;%_Fq4?cB zF&b(sy(9g;mPDuapW%GUbN|`dJEw*3ZC+6I<Mh{%sbqy85%xGfQ18Tv%{*wDA1M0<()d8)sGC+_h)zRfbHR6|bK9 zyf@!#-P5q`q2s%Aky=|Ld_t>j68FDtpCI?FmdjMCYyK;lA1AN%_|<4nb7Mcbenx5J zq5ED{**5~DTvcZVeAN8Jx9+!&+BDHu0`I~&Dv#g1C|q~xw7rvG@$I9VJAP=$Py1>0 z$(Pfp{rkN|&+|*ZvSqSA-*oM~@R_Y|&UPFAvYWHcGd}5~n((SUpOi#YPpe+G=9zSy zT}S@N%nwSxn2rQ)`(_$`Lgn|7IWL1|M8=s}hUTAimGI82T`RB`rUiX<>`CjpT$%r4qyIo*(ReiS3k+Q?ON)y zD&e%S#pIV49Ts1F8uHxOHfe@i>E`DTPn=pDxn#~tF21ghR}-szZ!S0AkZgE;*D?-v z&9LIN7h|rjexSF5#n7*(`%jr%aW4$*8=3^@B|}%0pkyd84s+ResLR z;}#CTFJ^pH`Vtbx{yJgi&9rYy|L)E-s?_~tvP$k}*Sxn!9%zK+Pj0*twewEOz8%S& za&_JfQhsjpKkkpIXxzASa%H}dw#i=Zo1eB{7n|C)fA93q&TgVc2R&U5uG(bkC%MPh zu}N$H*|n#ZPkbOBahEMa&F-%+`@h=}y46#5rP^)Dcr8-=wqg~Rn97Fr-!{LVb?Kjh zgZOnDSKdzsta-v|KTi5B3QcNnJ3L`e6GQFh`FC$0?bh`#E`B(D-pS{a?`Xa9e|4d5 z+MKUbe+p}Vyb!#=sp#$8oeh!CbJon@+}?Ki{$G>J@Bde@Op>-s+$St#c89?oxLMmq~oB~y9J>fjTf~#&rFt#sM_&LlP%=)4bNW1l(@v2KKZ*P zFE(CVCLW}orPM69w)_m3nx95%abpxE|As#S4~Jy zaPxS$Rk3Tn%F~ATR<10|7}tHSx^YSGa%lh4NAo|2F5zZ-X`v^{w|m!pbKx65|N3T? zJ9VBp3;1_ z%_Yfk<2LIv{U84LS|^_IG046nYulzL-*rEL$5>4J@{{k5uIGEXtStrA+8hKc#GY6Q z{yv~Ca<+`7O;bCiyKv^Zo=U`Hx0<=ihb{*!Ma7!-PX2(QCi| zHJHVudqM7!NQTftacho@=)yZ*Wl9&jxUc`;yZOqbIi*jSdfR+!I9%86n>qLIv#q=3 zz0SFud>sGle@>*#zLKX$cU|b2{VDlkU1Zm%>4!YyqOy6pSH+0Au^nIY`o2zAxPgt9u&*yI3#wy%PAZV<)0i`@pl}=VP8H+M!iq57hU~*{ka!^`0jeq zzCQhY*Zj1j-7DliTSdq{YUXunX7Z6d*Zevx3(=tvP z$4XCZnEf-WbK~M?%Vhu0zi28UsMd3F|K0fXDhw*zIkp>Rz5%A z@ch)u2Opdtp1N5Xc=ztZofp=YHY`0+W|vPtE8EJr zyVdc>@#DW&-(BmS#%I*$#8M={Y4Gdy^=fThOBM-vqZ`#srAs%QDVqBDUjO04dhZ;1 z0#0pPq!;$J$Wx%)DnoB(QPu7xEZ08H+9{DQ@aE#hd#Aqr>qy|AWzH`0ruoXUwTCVo z&%H2{OI!AX9ox*pOk(Lk3qcAe)!p@+vx+f&C2y+s?HSrp=Z=DP?4L^c3XGxta+!;GHT{-oNzJ2nqy^M#s7JewsBOJ+)|2Mvc+|W zX=iEGIi)9a87)eSTjrR~lbqYNb8?o#TY*x4wIzRKS?pGnzvNI@B>7NV=e4M-DobeI zlMjo7Z=8QA@FxFjR-Nnh6p6PpK5lANdvdO!D(3FnMdu!V=rHZ53ft_UazHd!<`?Qk$abc8TinVr!?v3JpSI?JF-v7$?4kP5!=r|vE%*wsScBZulryUQYOmn}e{*q@tFJi=wzMR++WaZ+NdfGdE z(UeVwHPipG>}iVc-Ewq+tVC_KSd8!T`@uqG4ssJWc>KNkXU?Rx9F-;8lp>epxb8S` z?e*&Jt51*aUKY1@oqf;~OIDRncEZMG^Dcjgwffn-EV*>^jP>8m!n5?Y6uoV%jlM24 zV|lq@%WqlNUq08x4DyWEU1j~@VpU`{fB)WF_n*ibnENdG+?ak{L^^)&MM0z1vzAAs zb&YQ@pRzN&{{5xJX-WMemJiYVXTu8q7QK7#zYVp_|JNz8$JPc^uo?tW{_ zKlkLK7r&M?U2=JPtkNlQ_Kf49Cki;<{qtBcz2~GaU!LoN{5AYJ&umq$*FEyj8(^SY3xNx;chqzNFYoo$*-WJ1Ex%%FF1>Ul?C@tT)sn2t2 zborVp{t6cRv$3zf=pSNoT*=UQY3Z@&8|#1ncF9toutP8KXi3JZU*CLfK6O8t&&9e| zPDN&qxgh_=N86Sp%&FF26@87P(&*(Jk5K8K3Kz?2uibT%yLa#K3$Z=-C)UTE+4t^J zafoC2OG~E)f38WwQ_h_+l1K}3_s+TXE=xsd;&p~}-|XAw`T6U%eQUKl>K69w+tFnX z?!NOQQh$7K<;`N*Y}b=@!SP65^R?C8vTVMyg^ypb`Kn$%U#u~Dan6NlR@?eJyI+3z z`~4m7zW;LXFCONIC~JOqu{{4#$8j~j&D@1A*VesQ!u7|G%VUS0<;(LIpC=R@44Xb# zlf@`?PRZ4yEzZ0P=kQ(it;wD9F)nQNHRrWPyJq<>^U{3Qy8elQ#F-Ua6U83HExaGQ zU3twN)-CzZZ*?8aI-Kl3 zQT(WVHv{)3j9L?18-i+0LvvGOSgmPj0J>=pBx+-$?~|IBUXr0;XaG6@i(tL^Hui46 zjCm1%L4Nn1d%vHY+|2IVeqX*z-+`~(aFPt)j*3Q(4ZMe^ZP`?OYwDV*C1Nsv-+$LO z+Z~y*IlXMlW+8z&e-maUO%6T!Yu%$4%X=lBxLw%)bASK(bN_zs|NHFb*~nRUPn?ZE zS7$Z(XT3|@=AU<2b%SSHxGbM@GbU!<$vyYl8I6CeFL%CBSX@~8?drF$KmB-)dFY@0 z_R^A%+bC*tt?T83)(`J~>pFH#DtTM}Wv>`PnU-YLk> zHmz8`p>f3y_spkNEoNl}tryP!ZrNiMo+xm!N=dWL?8b)LLo2M;mBz-cJoz*643o-~ z$<3m5o&6$JkJ~tQZhYy@v9Y^wF}r&0m&f0m?1Tg9hX}1OU%7ZPHpY@|_vIEKv z^0{$sJt)c>^wTp%y|h|t?$uDnIkERQNLwj9*nT;#Ui|&KivJHEy*Zztap3p$n-Tx7 z&tyMc;lNtjBYfuBD<3b893A8H=l31aVm`E^*EozfD)FjKb8%bY#ffF|995mk3Wp3P zaPOY~{(iCOLU!G$Dy=3nGF~Vv^)2aNqSW@LLddsef2tK5`LQ`NsDiFMoym9pQlVO{=o4ey%zA8Mli z8u@uT+m4GDxJS88xOUd~_q!Dv6@K<*xVP#atVubsZr8OX9}}~)jkL^HnANrvZQk}; zZobn_Pt7Ne=PupTvskTK>AlHecDwJ_pO-AQ-H6_ybjH-T%uo7i^Mwh$9P1hj7_T~A zmT11cVxOX~bD5dL)i+bVGjr_Qd*}2fFXxUqHkwPmK9wpGeh?mV|4-R|nTH2tO zY1@@FFa7wNnyPyf51Gp`{>u?w(D3$&zEH8ds?x*O#1234$m`blbEc+j>~60 zeiN4B<>-X1=AReNxpUsx<3(ho_q$IEo?U853463}-RTu8{HvmE?-aH)rRT)N zu&x&~e-UT#dv=NLBcYNNiMy5@F5E7%XRl^eVRfuv*1}#T8$H&i z9=AALu5Z8Qw)y#1J)YOMRv7L0zPPuk%>9G8P26dh){1W4>&J z_G)Y8?V%f9ObqDJyO<+)@4^L*m8S6urvs)u3}{<5Gxp7az8{rx-!iraUpsh`QSrcR zC;y)h_Xi2_$%rm4|I;m%?CONqvhd)$O}m78lBG`c$Opl>4mR_}A;=rw47L^6vM_Yqg42I%kK* z+@9e5!8A9?pepBxYF zT{W@Z!QQ+|BS!@$7NK{%$yjEOp+_+zRb9m~H z+Q<(}&K#2Qn!{Ti^S12j-M6KZ{{qDR+=%_)9rYPqLW3(q;vPmdG=fi7**m~b7KYyh% z8*UW)@`vGgmQj>@aBhtCp?9Kv6|rsirzu8HNc4ET+UU=^-ADOTf2{hMQ@BaTIkfG4 zc-sQch6UF@oLOQtrDN{0;NliBm5aO9-FiEHlacS7tZng6MHfvwEc(%Ar9fF zZ|+r}9&I^qdg#v_e&)-eM@-lKP22CxT+g)8QDUlM&F7N~XYOe}wWhH6x5dqz>`Ps5 zE`G4zFFDn^@7%MyUhy-(PhUKbz48_pzq!Djc#mUDhoi194>pM285}!#%Gu5$nf(jb zWd&>z6F7d2mmx()V+yPHzpiV$GZw#Y+rpK&dj9IK{X#1D+Vg5z-78k7&;MQ=CDY=p zus0~oSn*7>{EA~f_h!wwvzMi#%k0Y?FaM+U>%XU55qB)=^)kBbd-E|vOUD;MhuO+S z|EecDx4&||63tYl^UC$)$G*ldr|&Hjv$V*XvV+@}-{FNv>xyMdzWVZB>x(gXUNS9w z{@$PVQ!Q3caZ-OD(!@V$eQLwXPghH(zID~N**!~y!XCcyeEc<_G0ao*)t(=Y z-nXmL75EOlbh;fm(}-E`yPU>j1+Q$mU;&$7Y5(fYS$Y?A@t1PkYFfzG=y-DC9_HO$ z-b(u)J$ZkWXNyY2aoZbfjAA!bz4_YEAaU>YLB5B(`q=gRGt;})UwwOvU0B9q*ZmFV z2UlKGUT#*Hs1dP_zkXtQ;X=+wV%BO}AN*I}_DyVDbJ(-*cU2baMAe>4_ayT6@Y|*x zG);01y}0{+@yz}yTFayrPdT6T7t|4b_LFN`Lel2N)hqYNq?N^V&$Zs}F?-|d7awF>%JDEA0ee*%fwvBAh+YevXS$t4fHhW$8zUbF2ewVnOdshT6 zHMa==qda?m+|5nOb~jTWiBGy?^W#x@_s{44?S|#ATyOkyzjc&rvHP#XCo0Qte>v5( zvvpa_6Qk)jo;z57mo3p)B%S!ma=Pcmm}fCA#reU%@6I_eb)nLIuHuyE7HlWO_asKH zIJQC1o-H?j^@Ee?Woe;Dja)yqom6C>qyIenRZr#IRSTo9>T;hEsR^sdow4cF)OB;_ z)>=y+SP-tSQvLf`~smHtBQ-6In`n^F~*UysmX?664 zN9RwyIe6FZvGnzqdu7_@z3>0JMB;18+#gm>Coh^@o-*I*`?X%|Z`t-d> z#AsFN%eX^xTt2a0jhKA<^2$*^B<;ZKFBdmxF`j)pXI}cuN{=PQA9`-FXz7W5k_rF3>Uni?+@z1L zZT=IUUpo1LGvbTqWkXrd%k086r!~&F#@RQ6l*Q37kq#D~+AeBJ#e4j7&anmm;w*!aPw#mjR8w(D*64~wr2 zDbl+j@v>4xs!M1>i0sOJR(iF!%#yEL9Cut6cY3OOia@YO#feacs{hlb{q_GO%~P}U znqki2u9!Q^H|?14(5x_ecHpHiyOst!UYK%y&76Mm$5{fe!W`AC+s#EjJgu31F4n&x{|N1`yiyO=d$y$vZAxmY8$NY6@9w0WBQ4UGap&6e;+d^T;*`Jamvek zR~F7wsbbK2bTL=kNajt{!sjw~*NNVn=5q7PvRqZg}Luj1~te##2{mi^A$&_*!KvErmzI-_y_>G_-Q{#-e^aqaq_u3~8uZC(ei z`@5>=?~#DI%}h$iH8!gz?RLG&_>eP3>jtw9}!i=D#<|PI;4XRVMFK(4056 zr5B3sPw>ug=H3;tGk2|Gg*6=Dfkj^*wXvyqn>2V&4WayRs>k z_X~w8oE)863qk`^%Y)^6K65{PaH9KLbB z=8P}ZYo=WNvS4=qXDQ9O^4nX^7H+%s%vVX%LUpwj^RHtk&mE{sUw(swx$O1x!>WHj z1XL|q;(0;1YiD=-%f6Pap6{2oEbTe6+VJg~)`!)5B0JS)Y&pAc##*2ByXOqTCcasf zz4_Va;_XWfwUfp5^rzhqzHVg7XT3LYNz~q-5wWMc;HMQBzwNiwWNVw(KI>OY`_p&cKYzSC5#hbxC1~yuuS@T{4%J1b z?YGt3)M%8o-Emr7QP!&Ee&04>voQd1rKP}Te%f?o9lhi!bh>dIuOCFi~ z{wzNfrha`%;EDJCT|IpqL62^6o=xmHcvj%`m%IPx2JH^2XEq7?(9HFd_txx1eCznH zxcMJExuBgnOO(Th*S1BfiJwJ$!#rEr=JqQ}_ZBmHTZ%|+Vf{H-;$qG+PXD#;0`DHr z`uT6op}Xcb{>5`;{odrCDqa{}W5#c9z4Fv-iB{#0o)WFhA2wx+ODx{AOWdun>O$OI z`Nbdp_9sq>o%#3rrOzK;R<=F<>{-#qd|*yf*!eT}&U{+Cr(y4eWiMARSruQm>X7n{ zXKPO_I-qkms$l1}U32F1Twl89>ORY-qCL0oeTaKD}7`zSjQT?rGC@DGP)u2AIohYr5`~ zc>Btk-;CF%MYQ|XZQJL|Uu+TxHJLfRByw6-MkZsbm(`=m-yU#IDpwX$d0Bq?)sond z+dO=Ya&s)KR&UPcUf-Q^t}))=;6Wy_qb4tB>OXTi!@0)!O33;~Q`IXjWk>5ZSI+y* zSGttLx%k)XYiee>?aNOu{}5cc`jPlr=gVb0<xra*uPgW4XErFC{9TmVe=_V6lX~i=kWbgw9Z&l{(|@MSdcN69H`m>FFt9qkX2S1X zshfj$w%ogTzyD(L=3S~$_a}R=XqBJy(Uf70`fSbz+gpv)OS_LVb*^!IkuY_ZTvE`{DtgvPF}PVOE|ebuk78Fi|V1eM{JjA z{`eO^<;vmaOF#Y>&#aAT6ZejISM_sK+q1{<`&Kc&$bJ|8^wWAR1~IPE-E$AOCB zxV>x3_U~oC+j8^gQR&1h@9r%Yp7$$ydNN4uWwk& zt+sS~iE~Nom-du5`S1Q}I|O{@YI4$_mD%uUuQ9_N`Gg$3xtGfR`!9UiEBvvX_emks z>re0BO}pv7S)yUH@Y0e9wK}%Bz@M;(Ne<*ei4DeS77_ODD><2iJ5czdmYUYTZy1 zCsoj>q;Rx#cjd*&m({bmW~hoi|8S%=cFQxf+#^QsE7X{|?H8|J@VoE+R^h0}J%Tgu z{;RvG_r>hkq5Px&-fu9Tt~6gDy(nEQf9d6i9dn|l+&Fo(;B~HzdYgUXJmZ6ZUPK&C z+FM*y9`*NC-ktS~6@O|Qga7Q^bahVFM87u-Yffpedvv}sV!44&#er2@ZD-xr^(x%H zx~|Ur-3{+romr_e9tnol=fwGsHyY3JIxT*VCr8ll0s~jOXUGrHITA7{5{`x30yn%J z1XaAY|JVPc)v~?oxN`8BL;nSz2fgQBBDr`;|C$p_3sb{bLf(jOQhKvclz)aqmBr5g zHVTUx6dz5p{Sd&Q^*HgQT*S(2b?oiRTm1umswhn>xYNIFB_m5i#_r3n+`lt@dFcE^ zN$e$89sAq_&tu2^=C@6>yd1RD??6;p=yd(UmsN>kj{O!VcsAIpa7Q#=Osfye6@H*R zqi``Z`-@eq4$RpMS2o^x-n!0bYvR2_+BZ}h%mY}aZxhlKFHLt5STCbm;^bw#t)Ojl zM#KJN%?IBee2~`iu3=gjcLQ&*lJIHu9VP7c0gL}0Qrr7rN9?cJn_~a)b}%%ak@=;- zyzICV!y>(}fgXyX)Af}rSQf}H<**P>aX)5xCyL$Y>8g7y4&s6WKEK<}x89E|oWf$; zeb@5Oro=ytC;Ei*emXz+%CKfb+8mZyQ%olxEp3)e*gJ`*P(J#?&2XO?dcqvC|77`` z-quSm%r@n=vCg^uODs-1zfMFgTz(ROAEV|01efB7Fb4V9Oy z+qI{QyMW>Q@zesYE8Iqbzt%mB7h1&btF70~ZSVeNwMG91jYNUfEuRmZN}2XbB&?7} z#n`dkkGoJo-e`lcaXL0lA?&RWkYOnNu-sCpA z)!mgHu$Q~tc)`t@z3;F7axfA(tXaJ%#r0%wUeaNk1C@J&QVu$s-r0C`P0EL_*Il*k zw9lRnb@X#GsHu&eb>92)9us}9&sPgt(wA25H(Bp?RdImstmU4M17>W4_!6#f9| z-W91+%;%~X^YY}L+9$Ll!NoW!d#*>doUiDD*4GarkDIbph*|L6)J_fPJ$vwC)W!wv z^>sz>=Wm}9dDQX0cq{Ycz)N>sOr5J(Prta@!?$I9fy5V`mk_rn3=d_bdeKBfK~Sb3;9p~*jrCe=G&lq;S=MTwExLJe<|0oKALL7)$Uid zN3(hEwDtB=o}FI!r6O?F^3)db!}I4pmf~5V*KqB}#jb{jOC-bf&isr088yqfTu>vs zZ>`*NOXfazt0c$B>%At*TFa~!%q%#RGVl5l>#I&DeH!0-u}{;xkax6f@-F^ayH4la zm72KI@zE}0@yQL$PtT?6ux?n`sCeP(qIEBAWfC$kJdj)8b(h22QQ5$4r<8Yd@W!K; zeoQTSvB9L~uVF3ksf^E?o0hWNwG){Z$My|+vN{iv)ooOt*H#(H|?23^1&+) zR;!Eoy0Trfd%-rJ#q_>r{xY+B4Yw7$7x$z-YG3e2v(P{I_g;;|_0{YfMEjc9-@5HQ z`bzQbns56A4tBez8b``c%scWVY*$$LqH2>j zAJ)|Dl``yH_*-1icg?obf>F#XpXuDU~>_4cxUR zDw9)XZB+k+4F`SZy_}vX$<&c~I+$H{%e3nsB(|QqamTbvLNjzj7f*Yn&r%ojTeT4{ zz5d(EcU_)wVEf|(%D%>*+jr=?^R6!CyBC$H{k~G-ZsfGX3(OW@X1vaLRi(-Jt>oX#q$Xh-Fy!lC-8V)Hqf!0IO)81^CkPDD#rhOb$_$1_U^ELQ8@4S zo;8KicI$&1xHQ(}ajV{nxGohXT=y`IV{hYxDMGC4@BQ!1NH*p-DPymh=xlAUE;WsP zTbNN=Ur}; ze;O=yR+F8{l+T1?(adAc%x)H(Y?seR>oGKFmMy<`bmE#22CcJFk&!XQ@*xKuA~o$7 zG%;?v#I^m@sg#mp(?ID?vFp-z8#kW4p-{NUb-x+=z0=aiMG75UC6_aFbGr5KUDN$I z&-U+Fb@@iQ>SJQDz|Aidi&Ue~BC1<{UEXI6`FZ#6NEuoD$Cyp%iobZO@ zbX)Gz1dshE7QMV`(hz8{tWVKx9X}VlX^m~?%3+Lv&~Uersi9IZhO|l=^OS% z_g{Tv;`OU}V^o6gnSWE7K0B-sE2-ab{Yww`W!Ye}KeKN9b<|+GpT6qR>x0v~kF8p1 zBQCr$w0r5qGcOqUD%5Xr&sc4b8qG|GBT zG8{UP|J+bA>B{$IG0T@MVq0_bk(BDrMVA-IHvRm`vOUv4#7VYwilm8^dBjfce;Y0y zof6w(678on$4%0Z_i)UbU#_+LUYq1UGC4J4z7gBx#+7d$o;`b_yJ9o1>uHB!gYw`mZ0j!oD@KZ$*%alhn3-GA~80D1O;-wI}NSo6pN6 z-FMjky4jJR6(Rk7^}3*yk`JFa%+9qDYvEIt)Yxz+%xJ=tl=O3dYaXoX60q-ze|p1x zgxZ9PFpV40bd|N%o*A=b}Ognwoez?8!aAKJh@76~?LNinYtI~GH z^xE=8-AmebM5C;5k7(E z-^^{3i!GmaS=Rl})nz?Av+UipuI;J08n-^5Io9&xK|9NDJspMFN;4)IBr}+LJIbBg zlPStKi>qg8y61QP%^hWo`3Yz;YxjH8_u${c771*;d zF@Z64=5i*#tj0z4&X&h@KlzGDG$gFrvYYcu)K`AL!;NfZ993dV=Hxe)&pCI2wR+Yw zfwP92UHZN<^lYr^jeKCd+$sCXA-UG+#@;V(uSl`Hzp49&^>r@e7E?98$!m_vSvRY> zhbEsYls|Jb)WSp8`m=??&Kvdab)H*0^^OQUUiq`3R(!U^EA_4K0@G&g{QrXM)tkEu zR!By&Rvk|hiPdWi-?F&L{m%6$zK3f4Ny{XqtT*>;|2*SG>fXPar89OLdiz>#PU@6Z z@O0>5oYb;Vcv8S@-4zD;kC(;j#;5BoOqnGWef;f8Ij82i$;bJ=GWj(%RUY>Zza9Uoz#bdR|(>Z?j9?h?|ELiCTng#xm-wMujCy)p##5PUAZ`i z|9JN0?@~7fdet>!CUADzM|TNson<|j%{()gv$ywCn^&JbUGOVa(B{Ig&408UlfRe*9Q$HX z_;2A9JGF36MwXVniK{NT{`6AHyZf~JTe^zM^`lJA>`AOPxz`PR6PUCc7M%Ux$)YBb zKkIH9Q?R(YOS0Kf&WU{dM>wa7R?MssQCFGiZQdvR$V5Y#?+B;v4K~fgZjV%dzTSBE z(`3urSLfW0Twrjt#cR5L;lrAVx3*v7uM6uv<(^k@SL4WXon>WwwH(r(i$g3GD!!^5 zoOivb*hxTAahcq5$*)&#F}^$CeYNAC&dQ8+zRGiy&0a}A`Mu_IqsrwMF%M0hgk>i- zWp)-PuM1qf=Amct#<(e=dv>`_DQ-w7TRcT#B2m_E$GrKqIc>*p0hOxnwo=J#Af_{KvM(sx8yK z>_Fq@W!jQ|db?M!RBdSgq2Ru2Cs!rQe02?xJmuFDlH}eppG~R}dp>#De@ptq-KEc$bpk#rCG_tNF=~fzTbv5`xVm)=?^b-Zv@Z*#`_JA5og z8sE*X9p8Cxui~ouCtvr5&y+iQrRm?jEZyrRHqV3CzWaD7d-@dTIqn_JHUFE=7$zW^IsN?Hb%~C%@9lR#wz#IaLeFT+&Rsz)0ik@_Qr*?gEL@z& zdi7i;?Yv7x@VM)^4gzGjM`(qdUaJzYx|QollfH4-#-49olzHVwI}cE z^RheYYs>2%Z<5}5_Oj*I+0WiySSxBRGBIvPSK8*o%DFEce|lNXS$noLcZZN{+rDp3 zIvgd>%NMXVUz(+r^EX0G`}>x42NjM5H*S63x-R|ICX=dpCb*vZ!$t& zF+X6qenRSrpQg{nppPm0w6cG^n%3DU-C%da2Vb${W{_e&3}KYcyF zO<7>}UwiM*`b#~3)rHNf&$+f?*~NPT-c^##XS~GiVi{Nl47Pe@qFV;(Ym&i$udk}!n7&Bmszz3=jAk{$X2MW z;pt!#-yU zo1uK`OJ#_TH91uczLc+ts%?9_FHk~qEBQmwqG{fqN%Ln z-|}S25z$NoZR5!H^ZxDomE+^5s6}3U{P4{CQ*W>T;M8fs&y0jXZ*EaR>hf6*;lXj@_dKPlI2CSvM*iZ+ZQkQKY{18 z>z|rG&FB7mKb9|fzx|B;i;%~Mtd=CmI65q{?b)h#DD>E$!!gtAU7W&KDIMGRyzRpI z$Y)$xheWgXO`gfA^|5l_;~4^H4u+;UT{UXwTlP-QY5SQETa)5e)=gXzADWrAY~`C2 zmRL2r8`m%Fd!q1ve(1L~LZ=nEdk+2cS+i-@fAM2ltM}g5TfJtP)MuMX1wJ?KpH3{! z=@i_(O?4ZySLoBy1tuO5dWn(VnVWcpxP6(fm&;FT*yJx^d~T_?*PGp&J{?SH=P&%V z&DrBZ$VpjK?N|@(yKz3h5~`GDyxZ_9BI;NI%ZC$x9ACUSs}Z+1vSSnXljl}bB03MP zvhtgCiFMWKev?FVedq4p*Y<}JuH=LStUeiIX&2EGDQ>c@d!x>Tii(Gp28$wQ_vkEM z{Vdrz_vPbN>yF%;&7XB4;WDpbB-c)c#w!+X9PhWeI-W?sylUS6dlM}AZy3ll-TS*? z@1lC^i4q09B`x7R<>w!A`<#CI>*>vt;@4xh^KIYqsw)8v1M#pC6+CJ%2IM$Xnd zXH_M z((BijTTa{i6gjAMcfL$*+Fg@+FClT_*Hy<|1SOWwxLla|%q{p_m)DJ7VeYebuWR|t zxv#5f$q{!eo@LEfX7tUyeMe_g$*S!+F-_6yea>yVSG9yg<$}olb$nMo9gVEi2o}41 zsbTY9AJx*ftHA<)id*&XfBah(qMRFJUN~cGUpceK!?m}vUh>Q+{PH?CbCO^jzq`Uo z{oKM8Wg7%9eEhhiNSaA<_F<*IsyMc7Q-rj)7_L6F`Ky?;(vF*_u64&Q*(LY0taAHn zUpe}R?|&o{R#3Io`fXslyV;@h7kp;LE?si{RHmJDW$seH7G3+?CEhAOy(ZsZ z5gWL%!X6)9|udS)kQwCMY}aNeT!_MZ4t2i2}mPB(ph{*lHaJym%x z+c1CTz{Hux^IX5rIs1Wi(YKhAzK2GwBV7i>te0mB)^Y?up zSbS;Rt1cf{Wl=bli(T)o>W@Boi} z?1ML}?k{0^#%#nBTE6b*1&&z{y!0!!D%^d$W#a?&catmcY5kVGnI^hgLyJF8X3Klk zlv|negsi%^ng`y^kBD~Je)gC7%(-jd9NA{|r@?i?ul}Hr?I%6j(=AVyZVvkyBhT~e zr_URcRZ%tK{N1}HCay|OzLiil(|P&zzYdcBoh6*5pI-7TNbbGx($l`z|L(=}`ptHS zc*P&aX&j%P8)G!3g-xLIYofzz9oeUaHP+`NMGw2Mg=hr!if0{Wy7uCN%gv`LI)=jU zd{$%~YtUS9dPa?Q=wZfZr=7a2m1D1}ue~67`lW$*`GXeI3yBU<*M1jSdVxO2@FROL^A^c=M z*G$cqua7VNDfy1~%7SGN9P7VN75bUAbajA3V{)+5{E*n`kvHCl{VaU5X14mIL++v4 z-;LRiJm7ottl1--lPipG-pm*CG%6=0K67H^@6K2vwcmBm$HQNz95*=?#&-3{k{4?m zH_TrWd0c&8;GvU#x-EsNu}{A01R2FG)PHKnX7%uyv;XAZ4ZfuU*@q?<{MGJ^4VC+3 z8F5pJMdojXs33#O!xKqLWtyklA5A^`BR6LG@rSqV4ipPD-45ELl=G+1{T1V*t=*On zmV8lUUbNp)G}HXx&U5}Ac9J#n3!ENFDxUYcx##}v=oo#qPr`dr-&L%ey^YQG_|FGV zZe3bqC6QM0V5w2n)TfzsGrZsB*Tug&A?Ok0n=$Ew(MOJz&$3G-&+ZA@VZJe>zdiQZ z^*K+r+63NTzq0jh#K*szUiX;##nsO)&c5?o?|b(r)3ie^2hN>7V0~yc&r{D$h2Kn8 ziaW(QD4YKB3@g)oWM9Y6@y1!sN8^>T-Gc4giVELspXtf_#9VJ*uzkS62747*p1E3w zPgO~AU)XW$vZTNk*7E6GAO9|M4^r?B{n8usLMpEG_0|2~P8EgypQRn6jTY2DJCXF|>Qbv?FBck)sY{9Ca`;rH1O zukWeqW5R7@T|JYEqlbi%AxPV=R9@3Lkr*H zz3nxJa!+v>d5dn_^*_HxN_g5lKAHGA1zQ;--R!z!xaDnUJn6nrE*5v}p7g!f%34f8 zH`+r#yWV`WBH+&TrqzABcppobFIHqvVVlE!Q{JoR^NtXQo3F|>>(Y88Ze_V>wB6M7 zxu+J8%hJEOdA+Ll0r7Qgae>0c3ZI&5{chb|Q1kr3$Nb2+*Bncn<}4PPyz<7^_;Bts zn+kj4)D*7ir=Km_tQO05r$NNmE78>@_^IyFzy&3|$M|O5s8_zQ!1)YU?Zo5WX_CoP z_WFd#Uz+{pMM+;t!PaJly{^Y~L+#bh%S@Jw%$V$?>DCv&nw|GYeG=28kX4tz2Jzi6 zOqs>L#xN=1YO40`A04ao3^`eAvr6aGtX*ii(qiw_RKZgU{P$m4s+FCY>$W|A+0MeI zlcyIw=okKW`tHYt4~6xFCv_ROuQXb|Y%AlV7Z3LIYB-+Qd0Xp{MDdF|6CXD0xT2eC z&s(0tv+aBR!neDQ{W?ysr*_w(xixwE^bpU0dx2G0hAW{AzrObih7 z#^x9sLk$f;HbwnkQSo>E~Ii;3+Tv ztY7oT==smzXSf{Ke%@&~Cs^-ODv{k?Yg1!%<`it){(q!^>0}Ab?Bc{oq9<1 z#?cbf{*BGAcE$YPe{t%l>Pln z=R^pec%^Prc3W&FtK-eNdg_YYOKxwNAtDh|={_^?e4*;^$6g%Hs>YqZ6ZTjYtBSm7 z4Eeib+J*^>*Hp6ZQfbyYba!7i@AB`nPrhCAL;9daCX2}a5SAO)yyI?)3Z<>QylYD7 z=2>T+bF?lwc(yE_d;|Ksx|Mq#@WoCLs^$t0b&1N_ zA{Z*lxzZwJV*M`Z#SY=TKB2t)euithbGWO;D)fJ=&ER-!@home;z9*Y`PKidz3y); zmXa1~(Vn<5BTw=CiHbYl8u`y&5WdCNJx#S`Z%69)ZIXiN@@mCBe`3YvwpbapiS3#$ zqrRXr_>jsWr{w#4k4R>)`)uM2T=4K#fY_cX8*VPz&3Y~+St9eGB(`+=1 z=QT9X7q)skd!y6E1A-whv}C%>gu0clEa+bPMXY44z^BJ|Wz)E>2vzxZ&SHx8@Mu&~ z+IO~k!`~Uz0+JKO>dz#%u>1R_&P@^t>fqv4KmI)T#WPF6H~EvVmNd@Xp!{avxm~+! zWKYhDt&L2YaWUl$$FDbQs-pwOsGEbckH6}ZDtW^BoRCVHU zsQ5|UEWc1DzRP=r{#6)k>A#(L<+F{eEq~s>T+>(f-;^WwFFLyKe;2QQ|KF7LCo=Z# zJks-rW7qu?+dJ2&e2SM@kb0+^rNXD{6W4bp8nL|fNN=TqU+?KMtCzeq@xTF!bbwV_17U-PTu z&vWx0nQm26-JP|=`qk<~pQUDR*jq0BRjIaoy7PmFcV-Heb>DpAwxeUZv*4?XV&982 z0)Je1Do_-eo-iq3eQ~zn>344#u5x+i=>}+rJwC?8cWKhq?RRFMzWS_e*SkIbz53cG zT!SLFNN9eyXZtI+n0ckV^sybT=a*!Q${jRavc5ZVqh{J^*OPmecWI|x>c09lr?A-C zb%W@yB2F2t6)t7(w<&%(Ah9vX-ZndR!Iw_Ob91@^SL>~KK38bYt6v`vef{!zQFYFn z35nHP*Z0M|pC)l#CA7q4gT$8W=OdGED4%&X@zw8b%iAw}IQ_w_okw!pzN_53Z`xio zJ#Z~(_wId<-%ft?@I(8vX2n*APW{A%TklPl%nDQ%UMhC=p%|y)>X%=iWp!=*ZYE+e zyJ2yx@<$f4PoW|GP4l=eP4G^MO|o&;ZH~}lT@_YmRr4+W`{C4Dr@kXc=c$~0@-V5W zJpBF@4?o$RWk(Hr!3Cj zFJ>z9ly8~Rw1b)3-<3@`nG<)n!^I?}ZSqQ`aMzR1jy^xTDCvq(){JM>J;!WZmj1M# zvPC|w*LR`r({27n(VXo&=d8)&D_GgOcE=sJ>2>D?H}&>$8Jb5`xNq&a_clB2QTgv# z-&qnxp9l%>RljkjCG@(k2zxklkV{LbPNuc`SSDw&{dR6moc1`>#8+ z#psNYa6#glxfiSsu=dJq*ZWZZhqFw{i09H?L7|-0GBPa%oYhJU$>uTbiY3uO$G9u3 zQ{GP4=DgKBT2bfr%|{nD1R15u3(1(=)0q?ba6`JZ_#@p+-Fj>FpELe)Pj#Pl3rhtD zsRh^U28XKiDPWwuXzZ}XpHUuC7Bdvm_SN}D@R&rQ8!DSG_c z?59PZN~%A70;hSL4!ZgC{q^4dnRz@0yPv!}rDF*R8(%@!OXc9hU|FpZ;I} z@7I%u*WZ14dX{tFXR8~A51M(M4vRM%J(l?MvR^&l-{sHU%zyVkUtj+Jr$k-$kxYrE zsbTZ&>Ix^Zi7t=hyJb=TYL4WRZOi-P=hy76tYzE0%HY<9ojv_>`)=Mjmp}hp{{7|K zuX+FacK6GVyN~}{{(OI2{lCRYhr5zaieD9+9|+t#7aV(z;mqb|s&{yuTo!k3z9;Es z&6hYu<`_Hskw)R>Rpl=aJBB|v`e5o)W1CqQzh<~Sntx-@b47)WM_*z(6osBX=Kk?= zz469Bw~ics=wb20QG%5v>8iqB&jtStn(Hp#`u}&kOG{!&&868#6IZU7C9t}*=HGlKfn3Y!eVjHw;wr6B-dO^Nk3J`XmR}JlFoe^5$B)(ynp6JMfDEfNsDFX zh}K+tJxlIU@*M-+)*$v9ESfesP3z4QXRUeD7{v0?{XX+b<~NS5z2Tq#r0}nsc4NnP zISUor+g6&!k4}1aZhkgd=)RsG*Wn9)%{>_lIj-7h1fAUDSyiz3&y?9qrbzklUiWvpKD-b6?bx35XSY4vC6vr=;0|zpVKR}-Ip?LT2%a!Et%4`DTNS8|wwRSVbd)ZaD7UdTS+9^&KVCsv8nFY9>qxi@3wd>>}{suJotx9g3X4 z({vd6JHiyan3Q69f~=;CziqvAV%G!iA9JN#4;BAYooguA6n5-{*t}l39+8CyP90&5 zPj>wzbjC1{^{gYtWRQkk^l1o^Cr>S+PPxPHO)Z`52b%@W$6)BIq1IW zku#^w)WGx>?K_UASY(YPA6&Q`#GBqRMfKv^9csIO2-UxGWMN@@t!>2Pn8K{Q!JK7f z3S-Oatveby#7fHk>Yw8Mv9j&zYK5A{QU<1PKhpRA%$7OQ6Qvl^u`KX*tijChY&Sa6 ziy9NA=H2v9Ih}VpFI&wu?~-5IU)y}9S@)EEcu$%Cp5Zh@JpXv0*r)zG%|$)z9=!^O z)-Fi@tLC_9ZsM9}R(p>*-#Boj>FUJ57cYN1*r^v^68-CiO*`@Z)7l0YjLWgN$9k^+4t-0_s3q` zc9nm{Gcht{JEj?=W_@#97sw1X<_%}SfHY3k+``XQ{I+s^_^6XuC za)a91_u|Ww)EJ$3LXlW~xS5&CHdYU`y z=($~C7k{a|II(yJ57T)O2d=>LauFLDA5S?Lvg?#(mHyo4QE$%I2rp+1zFL~-y76r9 z;X6w%x@O$4{rEtXNl=MVgH7e~^v{!Co|tmbgvXnuWoByUHAmSGi!N9lHQRo^AWwb9 zQs?~@)Avm{xS3V#`GnL(D__g}>RIsV=N`on-ereBOzyn4mE}@Jy_l@j<*dhnF|(vT zZqS>{Z2NcDo4F=Jd>spq|A}o1IXrWRTC;(hz|)oo3fp`CPm>JR>CLs{@cP34?7Qd7 z^VVl)oY>4UBkaXFud*{LR*M%;GLrliQ`nn%IWDdEY_}=jq&H621#-MUojBbs*Sx&v z-Yk>70yexsdc|gI`4icG^!%17UZA!5uhfcNOSA0emIex0D$EkSI5+q$%IbT8*MS4b3{ zDs8;$sLuC{pmY^c3*J&4zRfP_VF`;EHXJz5&C&kb6ThP6c`xJYU7h$_+p3K$?H>+6_2wd->SZ!ni4WER)3#o z)F0O}uHm9Mo*|Ia4%CcRHL{0x_vOj&+Q_13e~ z^5^%kSiYGwX}N07;+ucm)vRt@DeQWq@=?RcEAgV^nE|67$}7<8KYWPuHgN zEK*%FJu@jk#sBVq!$TP@YeMx{n63qNzS^^37Q4cM#$IoJ^;DG>)eE2f+>fb7&Y#PX zd|{i}l#W>A-U%g*J^$w>b941Y7nBDcX<$@$_2IneU^UOs>)`I2D-XD^83<&Rt^2aT z{h;5COCI;v)y%x`UGefp%kK^|9+X^gEb2JG?f7tq?}SB8(WetCbhl(g1RiC#t2EHq zzy8s|)B-)j$2XLfEZ!{=uUo#@m3IqM)|Vwk@86iq1_rEUH<#Xh!Qo0h!|{*x?w;uqNRCL8CfRHi?kd-~JlC z2ijVN4?d6QSZq1p%<_aDUwg#`H+D@E_6LVIip#RB@Ne?J&=6CShtvP*cT=&@PKD{h`F3oG3r`jFYlZUrNAc0rJw z0pFERM+z%vIYkypJU_B^pLgM{KZ$WJd=r-lo?ATib&OO7`**8_b8f9U%F8=7RGRne zyy%Zgs~rvn&))l7z;Be zQvPj-`k@3*p;KS~R2-HNRr?*0U~%TO>w%aLuPu(nh`3G;el}+s^A*u1sYM5>q#D;T zbk1BToceM?*2K-bgqvNz!}C6?H&x4=nDUyjN{Y#${_3}g zG?r5he+<@s$$OBJ|6F)~rNr?I2PJ0(IsTL@-{$skSw)kN>a6|25qfov_zn zN$t!7d_kqfGpYn9#a`;1CbREJnCFzzu+U9>rpz#^jyIa!(Qkjg|NJcZ506gG>etZ8nY zRS#$HR;EQ>V!1~+CTyVei8{RIEy?x*I%B4%wX8&gSU}ZRWI{)e( z>t`pMr`m0LBYfeO{jyf><=OkT>w0WvwOQL1`0K#Q71I+FA3XVOa8YJO`?aRI>Sy~j z#iV>pBU{t*FP-|bB3wx51NUpuWcOOBg%{PQ9pzknAZk}<*8EA+uL`>+{F~7&!2HXh zp~Rgh==++5_jI&N1v={A?`(8$UT*SzePctb`sPLksR_3q{k*cce<{EIrqZTPnc!7M z{V&g*kN)witGRTd=_=MXSKp^OwVM>9f|Ro*Ll@`R_o%2d&XnxECu+TZrgi|wezyW0 z#?xh+IZ7Erja;K=i)Sk5$F0e^yQy+Y-J?0SuinnM780o#bx!OAU)4H|=evDUO~NeH z(w6a*S6OjPU$Vf)^046(0k^xxE4p9DzR)@l`#!_(QI`wva!U>GDN9%QNX<`R+x7YO zl!tRShu+?yd2Q1j%di>y@4ec*(emkHy~|5}-oCkJ`=oiEi+)a6vsRh)sKcAZr}?&I z2C&$?T@laLX>~`~8<)npK zC5ncYXKroWwe92iZp-Tr_)6uZOj*jyO`D8%yZYZZXECvq@O59gTPOXN{NV>{`fq5w zjq*}uXyRFQ*lL|o_4YS4!831dHp;(rqwD#lJs$b7yI&RAoe-MB>$~xCoK>hse0m}8 zsyXuxb@;D7+LUsaQ+BS6@UGwIm!Fz&XzsDAi=s|-T-s-{dD^07ABvuNtdXCOww$WDZq+pZ)F_ejA5xlwH*O6OiW8luyu$m3#T#`$ zlOn$@7Mhx?H=Rn-oxgppi@{R&?IwrC;tr}b%rmuDu>Za9>$b>qeQ)Qh7{1Ji_$$Nx z`D%o<(EbCp;#DG>mjBbcDO2Yt7yLe(4S?0b| z-e&MPWvZu#8boMjX0}k?Us6Kw` zdcxtwi5BT;KK+(Is&DA zzDoOHzz5mFES9=H~0D9Zw1lu zm;7&pu%G3es35^C|9^L-=KVx7Q8%&L{WWi67X9~Jed>P+i{3L`uP&!TUA1o;yj;Cw zHU8i9a=l$s=V2mN=kEB&_J{1;|M~6@%gdu4*8S=8`?^EYE-!0RdrHxqCw7*T7hk^L ze)8_@_ab8Mj0;Y-ZB3f5pm0;BJnRksRQ1SP(MA{g56=~?a$W6QexqgY4P%85k`~o^ zZw33eIJL{_X{VSK>3!GS)DU0w^S7>GbLP6VoFj$5eqPewPMn!D*ET#dz1NHFsoHw(*r%IPwq3unw&bag_vX?G>;e{A z+jn12Of(2Sp1(OWI9BJa!{ZI5iZLa5uXde}xfTCo$5Zh&i!X1_?49AV=h^fFf?os0 z_dJ?&cJNhKzG$!Wj7cvK zm-RFhx~jP5&-*BAo@?(*GCthiH8uI}ET7vqcr&VVuQY{)URbPEX!E+_cZ06%9I?a~ zc?R}nyjuiSXB=ZKi#zPSBjf&+?2K)}d{yr+Wa(H(sVJ|T7uC6U+L=#R?p=x|@; z`SWGE=dFM5I}d4eG5B6$;Pfv1C3UZ2!_Vd7;p+GAgcdg|KPY7A4(yutZTA^2W+RK- zlIZHmoW5(nDSK~uVXy0+mwI1eVdb=WpPP=anHDJcCtK9&L^g?brBDi}5_YU$QYY?r>AxU4fbpr%Q7mo?L4ETxLz9=7TpU*4$X@xj<9e;ns#} zpRTOjmEjVQEw})IHXC_j-Gd|p%U$&|Ah5C%0!FAOt>Vk7ZxYa`&Ileu;#S}Cx zuv#>O{hqa$%a*AX4^>}Gn8jRBKlP9CIk^nA#$#q|`{mxR+FFMg1y_b zTa&&Vj&PYYA$Q~Vm@|(L@+~~|Rii!VkDmDCBW7i4&)kCpv_5Id{tqt_FSOk^yWvQ& z`0{z5s;_8Vn^r%kKHXWk`bg$&ZjI@BMeD9fUEa2Cm9yf~*aX?VU_?{ivRO|^W#SVXh$bIA|- zU(R2Q+*r+6u<6e6gsMenlH%vjJ@#%v&9$5Uh!J+?>m2E#VBxtXT> z&BBWvP8IUyEbl6cGu3?ls$oj=cfqWWD>d0In7-w$(s=$y;$EDx`<_ovW-MvuOP!&b zaki;?{v#{T_iV2XSNK0y59goo>*aFaYvuZ@4xX{mUKQ%UMQN4$ESv55PbAEPLr*{b z?kacgP(U(|>xP|4vkgOyvTd#ddanuQ8&BKEO9uVIs1%Lgo?d4_47D|Z0#mVicE181+%Vx zxqC=I>&Ub%d;fi(F4^6*^Lth9ljo+YlSQT!tzJDVL#Rn(YrzZ^-}%;Sr`})ge{9$9 zk9nz@E3~y0PNyy^G>Iu+En(N@eD*=_{N*>M39X)6UbNz^{^L0Zeo5KAZe~-reG?^n z=Gj%gY}8Hk3UmkHp zrbh@R&908Q+ql7=>%*&<$hU^a7(+VByT1tA7`$|u>t)%fG zT5#L$BSj|hA&P=T}U$a>9yVtZAD}T;#`0D3B{jblz zR~Pnil$SXsZwvhHv~?Emw2ty!^-HJ!zMRy|y>xQ?u1QRm3exH2rD>fn&2DcgT$QGg zd9#dt-IUv@3Exi#ty2h@wc_@PeY?I?9CWl3I6Ljpj*ImhH1zrRi+wXO(zTd;V;+b8 zk^^p8E3fbCjF)EIGOdo&ojbdSHK+4H-<{d(KdhZ9w0>iUIit6LyO|l+;ahRjQ<7v{ zUPU-`b?$LIIxT`hS1PiynPK}blUpaw+fT53`Fn@e13`)D3m(VJKe*(ay54FTwfD2v zSaP1Zej;GuO5xiFqngb#V$~KnFgpBTVM|E9d`j|7`AhCSIuBIqZFMc08OtnI{rhoG zW6k2_=YL8!iU%H5G~`-$!(ih1$kvaSS8u7XXiA;^G($b6@!-WAgVr-wIs?iIT&o48 zcK2}WOBeW z^HLX^p6s(6B|c2NyzVY}K5kM154L-~(o9!Ns;=DF_4H!(rK!o$pH-Dyd)QNF)@>?U zYpT`j*genb7IT~0uRz@yPfd@SoLDuPMRNAM9dmkxRfDyPx}_(Fp4BmqJ6E)5?$wjG zeNE0A-_y+4xRY7BneF2Azqb~>>)=z-OqzdK|C~+H-+;|RnMV~?hp=g_vzlNgq$+;) z(T42`1yyf8Z(P*yXl}BD^V+y+hKfv#TS8CoIk&d3r1|B>+k2<&4ZP8NUD@+>cwb1G z?%OB6_BS>pAGb8GFzws7RN?ZL@^fbdY%5~=Z$-RRJNx)?VxxP2&Z=uuYWZd}T$%l~ zyY0%KwLH7GEow1d7;CKBeQ&4Nr3zTgo!^O6Q%qho044sh{iIv?SMX=b3pW*HzaYbCrMk<44`U2Sxiz=GAz=I(q-2 zz{Qf6e-`iT`ZoL7c`sQ#578irU+QIg2F#`!d7J*5g}>5!r_#^7e?9Y}j~`?INj~$N zv}oo|t6ry#5{u$8LKBQ{vUx7N&Gjf$_{jBkHp6(eS5>J_{javKj*bo&_x-!&^RqWQ z$~HZi|022gZ8hWRiwe6ke$>?Mp3zeBQ*H8u+esX5lU^rBJbm;0(2@eXe6{mM6Qys} zE$&hNdfEKUr874CJN$I-B`rVjl`p7#_t|`@n!VQ!dtJ|3TQor}BVjRD=+c?X%sf^t zo^vm43+FZcspr1et*V<@{ZYsGzSz!Y$=W!*_vO90GhO^MU$!b+H=e0WpLJ=8l(Nt1 z)qGa-)MvTw%V-L5d+a-5pWn7m89UmpUk~q|Z!p?zu(H66%vzo=bLPv zv#(3dpR(CEI@he1R{u3+V};e_bpP}EH|F2Y*w*_x=62)R9bYx?#k@$);b<58%zx&K zMeD+Ug`fVf3zuh3%}XgRDN0SuMNE%^rb0oJrsl>Lh6qtCtAdO`)2l)HZkahHsYMF< zZaIl1sV=F>`6;P(c3e-|12_P!fGx5H5AXs7g16QwCTv)v2st2<_-aXmMVU{zVR&|9*bqx+!O`G%1 zZ){NTJhJC?&g9UQXTt7Id2sKMT>U>^udfOZ6u;G+@c%DT9Ui)KUP-^dVIWK>TzYpGa z_i5-gR&J;FcYkeLv!w3Xz0|3vr7!8UUhwo-JbC&)&C^WbTz>v>KNZ)f?w({Uf0}G`?~tN#lHHSi=XS(pZe6*b8b!xi^&J)@;h6a7#C?jc&!!vY&B0|`@SWvdhhqU zpIT-eDJ8O>NnF7E!S$NRyysP-|0XGA9@~3@cZT-z+>~ufi(k&?-L(IS^xc0NjCEI1 zH*WuNQK|Pp6a(L6g%h6?uJu-Lk9<4L$XsvXIy+XK_W8!y@mh9)_8tna%r%#A3QsuE zUvp3UTlaVKGM{r3*E=XCoLI7u;o7Rh9l|>@->!`7QHr$}cJ>Qld^;zgM`8-QoY-oS znHO&hu3+4|;^o`5vRC;Q8iWU@H*ZK15Q{y)eB_NqN`mRDtyx#U$*g^SchN1;$lOCO zr}T5W$2seFRaTl_-z##~t<~hH!dC`Pq1Cpf*@n*-abCI~zbE^T)zs6{M_jn3G^c65 z{Gua~ZrjE1sa%aWqV%KG@%+n+&h_ndVABvkkym-<_LVI%AU^F8eyrerX`Wq zYu_ATe`OO>>Y=-_5(~|zbnju6St9XR;Bn6t9*OXTa-N50I6o}eIeU-9xAm&Wr@p+; z5Rv_HQ?|=)-8`MB2N%B0jDKixTPb|aRI~j2O}tg?7mR97g%mx@ybyID*MqfR1CM{R= zXcMyvLvd$&$AY=69*c|EB_tv_q8^5Byms=>{`1q8fA6c)%G&$Fbo2G1=-&Cd$s4|{ zS)E+-;>&y4tR8vGD`C%)lD65}ep`2~dUs1}8t0V1``*OQ;hXsJfbNb{38$(UH@rJ2 z#I*-;WLFU={4M%kH%H!yc~(oDoz(A^V!@3kcFQ>$ zoLj8$u`DafMTza{+9_M*i+02?`pqd8x_m=8gU5%1$`j&7P?8;a}pPlh+RU*WCNODQmHM-Gjdj*Umhb@w+YLVxh#OS905|Ydzl^ z&TC6&efTtafo+9`@*Gu$z{3`t?=;$vt^9IkL)hVlz;n6GUC#3DEbZ0CIm+LqjrkOc z-5Nj3{5q#}FU?`&p9?&^wRTqj87`(IxM8XEKvfy2(la!(K&%upHo{yAYYeI$30HdI zxAPvG3DjN>=cwb9JeQ)HFdqp^QLY8?=95mnxdO7 ztixm>Vri59?97L6wmk-%%73r_+kclu{CeSzRZM-#f_7|Y6Fd(2JNhg(SmyE|qGh(j z1(jn)@2ajHyr1A$=o0B6qC6v8`!;hJkM^aA$Rqg&zc*}=5A>G%XU1B0%&Apab0*jF za>mTJ$&E7~CHiQn1+`rEEoe@AQDY-G<*~}LjH#lLGq2qYD(9TT(I|F4@5lOG+vJ5@ zXK4LidLee_-I#6jyA*o#U#(fS`q^}sitIEdmGHa`H^e???LU30a<1OD*IT~45pjOL z`Qwk*UzA%o7EZ93Q^&XLx%rBH=eIrG+$ww`z+_sL#r-$iQe!Q5*_W3EWT<*5-2l zKWDqd#&4VMSnOml@E3o5=B)Mq_ZQsXo;O+>{C4tLc2{NID<2Kt@^n@-2|o+GJnhz& z-&dw}Bs+0(s?Xi!y`rs(Z{AIw0%;3D!{b_Zo&`p;Jew>ZPRxnaFx2@U#V9JU?($i| zg`v0Des5ytVLX;JbJwJdms^``*OhGlyn}B_jqXh5!Yn_FzQq7N4kYRc~V}_5DL~NwQ(s>8o_Z^PrHU4538-6p#MrzW3*FW31qH5S9 zt+k%55IHk*VdhSDz0=oRJa)%E+Il3{jJNQu;C#!po9XXZGe74>^c%%pt=zl*b8g~g zz6kR?G64m+ImzzuK6TniMQ~cv4I918;oI8dY+l>*Sq+|u1z*yuD6vd zmXk zV{^?-@b-av9Y}JxsE0uj&lnn9QHNLt^jOifHp+ zXWxHwUA}PN3@hI1N`u`hFL%ZW$9}W5oqhGgG;|>f3fvW1$GmU z(^olp+432LEdDR=FaYZFtNlqd8XzFqBfNz(a~rFaC>9r<2e zTwR zPn&g)39s5PVM+hSZ;x_scRAG6&h}1U{JFAF*TX+b>aYfD<=Mx)7M#sm7Z#SD^)k0q znf8V4_KsJ zd8E@4T6B#6&Vfa1;#8OZGyP$;;BE6=DT6ANqbLxVCH@v#jcWpDD!%=Lx`0z`v2ff>(MJ7DE$fdYjHn+RNRR8fR z!;CLETl_XH>3TjpWA(CAt2{PUf8B9rvzC{FR~DN>^=uut`RlW_)!HOYvsOF4z5nHW zqx0GcMea;9^B?=n66V@)?})3|@~AhTZCG!1+?NjwJSOqfHE!D5>KO&Lmu?jG1{SXf znU?bUiNbcPlwYrozUOGI_{AFkZ-$NgJlo2qhdaUoy*{T-dBk^jYJ-bwQ0>hlp__67 zCQVVYnqky3r^I0DDoex1%17Zd$$`#a0+nZ5hCTT0Z;en!@!qJ5Shj!bY zdTG|;#J2VB1+K{DO%l_z4##v`P1%1S652q`UO;c{`@=Bu)M5?Q@cD{9Jh z?|;ipQ}B7WE_7}Y^V$dT3mS^HYm{ZitkTMt5tjHXyo2TGtLqX%q0>w>Di<$lky!q@ z##UUeS7d_jVJ7VYrdub!N;-agR@d3joL%yX;Rm}x^wQJ3Tosy(MkQOP{+SkYE^X3@ zcPG0hx;SkVd#P-8=0u6vwcsh55&x&wr7*l$Z}QjwBEx!q7Tsk{(*FM^N~KN>*{yYQ zvry~b{VXf9blI#EQu%E|PLxd9a`%RFh|K2~2Mi1So}KAY$^P=RpxMdcvH0H%m(V#! zR$85TJ*9Sq&%}gF{(lyySlm8aESV+Zw(7mX#)|KcWVZ>em@@J9;q;iR2RT|Z1sbPC zUe_0_-v4!V9&bSNhM0rjGak+9y?XOzipUq?I|*z-ZX9xNa-%d%t{WOutWwChw7vM= z?3cT{UN7_XkE_zD>}6&%Tcul&u=iZ`x!HaX4JOsAZ9DTi_^D);Sh44}Nptzvv!0(G zC^?-=@Wob>Ij;FZM>4P7?zPzW_pZIudG=;$`W9Wi3bC(ibIup8n)~6P;4>5Ux1GFsH8-BQF1;)NVVc^b({UVi zhO#vh1?oIH6Z)=CDstODZA$o@g~Czu&TiHAvs4a~-My(KVWz{~;;-7?Qoq77E-Qwd zKk)o)?^Ev;vlkdYnWFNzGuQA~?Q!+*$rp~!c;A+yzHH}t<_tEjjkmr@6i7WfD6yGI zN8+^I4`bQ(+`#W%mtpEUe%o83RceO{eohQ#mVXtw?L5QcXK_v(DFV@n z3#6tcy|9{MSj%{HVeesoiCFkN3uR2{8XV5G$}Or3b$(HtQ-IL?q+zmp_{qS z{gYhQpMw_!`8P0#{odET{rF>rKKDQR|NpaqLzewTOepDyVAeEi%@$E@lEY`I@^ z=1gBNf9m??FITH7KkcijjhrR#-JZ_x*Sn=zu<2WEnAINb`1r(lVg6^8sNjZu`pWe>@$;uV z+x=(r#Dm*j%$`2wmsfRBl+~Z$e=~!k%aXDlSqaoB_siGTetBUoEmm+b=D_OexC1p) zmM=YQbEt(!()9;N6xWPLqSmK;xz$(KI?rC)dcTG>zJ%Y8ZJTWTU*D*zt^TZM9?xZn zDR&OIrW#ZK>p_W3PcwJNck`{ayKKBxC>~h)=VjxU=7z$L%Z~M1&9OPY&#OP|*W~L4 z8^f$DjCmg(dC}l8<>9%H)2k$=9-O#vwHW8M4Ow!5j&V*`Mk!^@%2rO^_SB#_A1UjdEd-bcE-|xgq@_u*T z<(O@ne||-5`NUxHM2QudZ^Mo~mf2fqw!>!r$4e3|%-{W^jyg1n9=Iuyt=jyqXUofX zf4ZEFzFYbSa7ui9xo6h-%M(vdy{fRxQ=CnCVyR2dqKGMpS5N6~^XHU&&(Zo`>)^sQ zE6j86b#!03%l&-$=U^#4uVe0}yCnM`fA8MHC4J;eupGf$I5OJ( zW3iv|SYpduhn~w%rW#42Ly`_{iWP?gJ~hewoa|(6^kPH1;OPPZd7oZ|ACY}^w{EfOeee66<1BCW%y~~#;)Tk^ z%CV=so8`@3$iH1!o3OfOr_I8O`uopQ`_fVmbn2i-2RrrD7NTHr3zDhP05$*$}Ybi&re(V*}h-oUeW5l#(-#tosYvmxH{|G z*6+0VwM=_<5u4e`Wef)tdJYRFoHaVROjkv4wufM>PK*Tan;VB!>q53=Zk$;5q3@yV z)=G9gasg**?Yz3lZ-Up~Wqm+-rJ zOE!94l=}K$@7xMCLHW*SUv|~ho?h~|;-_EU~iIA21~Hl`UbfmgNfF^3d9YjItZOUP!qXeM~*|| z_gj`+tZ$ww{E1y~!5~E{vF%Z8<0I##d8TIB*R1B5f1mMZO^%M_Le*!77xBdW=G@rU zH20<3p>qqJ&QEQyPtgCN^U!V44R#hM@t3KJ`~hLE6--OFec89rguhzn&MXB<_0Y{R z&NF+;)}4NPf2n+*@xmVan!fnA3R7+wJ)X4oVUNC8iTNb!Q!P7tTBf*Unmr6{I(%a( zTT}7+9F9nzqdN*5o^VfjrT@~eW$Pr9s49`zD1WCcZ{_ez!3%9~{jwNhydJ!f{5Z%V*WB#VX0fGcylA3@;MwI_0RZxc80i zk)88Q-8!`uaye`}R~vCl7*@QkN_v_4s`1nrmCrjWTf@?Nnk|iD&q8GHh>{(n2byw5U!b#~|MeA($6?F1z!teF)QzUpo;m(yCt6*Jt;)=6%%^`Bhz zbVlBvS@%^el!SLAIaGzT*eT6R4{JQ9`nIQhW`fYeCm%U2|JJ;eU2#J8F>|>1tSQYt zGdUPM)D~2wZr*mH=zB?eK? zc%ds5o-#@5hA89C`^;*4(w;0hE-!JCJu=R-_LF|x?q#Otp=by-$*r z1aci0uKeVo@Oj;zJT;FaHvdZ(Mr>WT(QV@vD3Iu=~tR^BeD` z=G+ik@lSgDx9v}-MDH$K+Ki6ekpz18~O3h9{sbo>=|oCXFsx17cRYF zS`$~0xV|_cr@+gh`Ba}rmDcTKoAYw2uQe5(|LpTt^Sw}Q`#odB1JBm}Diy29y?yJP zGHxiCZ156z#UN6jtiPI}&frk!CZz*c)G{ZmfBCE^%+G(-D+k6s#~$C_wu*BLFZbER zml-PSFXeHbRhhQ>Pie{3-0WMmn^o9SrUx8rygxJLS;Jpb!4tQwHooOpW4&X`lKJvJ z?_NpgL{|S{aFTu_BK_~<)nKkR1{uhl;w^`&i zWM*G3J#HfN!?59j>#vs?UuHe%j%^AKIg)Fs-}$3&TD_8VF}L%1!wzrmY0~!Aj?9uP z0@GWMa~x+9Q=98w;LNYF`BwIV<=U@YV%9`$u0Nt|P~IuDK>N=e_81ShmrEuda$m}D z@{msR0Rr#(lRJ zHXfH{a~C~6neQ@F=S%15NWq1_w|2yOJSd&h#{D?KYSk&T9c{~w*tRj5-->DYYqj*{ z)8*HDwpstGdVX$g0Mmko4aG^JtkV=ct-LroBsV9gF3MeJrLDe7i{eWy6og2WQi2Bl^BMWV7RZvJ<{=34jPX{%T~(t`A^Nv&)Y%}qbkXvQGo zo2$*EyxJ~%u4(VoJvaQP1%)LZ@u-#X-TiYV)7M*!bN^bJ-;Gicyd;uuarvK%hd?3= zuX0|Bg~_wtqG=U5QcE&+7qlK+a{b2^p}ALWZ(Gg%+*JDT-M$y;uiFp#K2}{P>T)L~ z?_yoxkMnaiYPSfKCr3S(J9FXOlAFt0!gY_ftLC4+uexS^->$u#-`5DfF&CVhdcf1D zt)Tev)k{)E)mznWJNHa$7HE9=WQJ@(#@v{mx(!aBe%=;4=kG0jX05J*QNxjUKi2fi zPtWAMt@x5(KTA40HRA43vy{dUtb8~1Q}4xl&H0ts>&(*-KYiuCl`#yR9{;PtlbyB+ z8w#8f%KZF&vTF3*)ru#XRKHwR+{(J8jq&X^^~q~2W}Wx?ut9d$mwm^c+^D&nv`TZi zx~f@>>G9gAW2&-cTU9iL*|K9_GaWfur#Wp&wN0VGaYL_Zj9V8^xiv3D`F6?GHU0jN zViw%@&6{hinV!IAZqaF~ zb(!poW3$&;>zsLbJS$QA%>~Y$sI?*QnLju`WVej+dZqkaST*kH!*#zV9($61_POk- zJ%{T;RCd3->BGGiQbz7M_=xVZ|M$Z;7DKhGiYu4n-hJSEb&dUmw&$Rm%SXh z|K7g$EZ-*^&9d5~XYy#1$$78IE0}*zP70p;sPP8ZFP_%iz{M6*Z!JpROAb{XvoiMFUc0aO`Hwci-YYj{{;SJaJy@Hz&L_#lZL?WW zrlE9V=CYP;#{!N2$h~o2;V5q_X?` zrWLn(?bgoyZm>;U=Uv;bU&eR14x43!ah*LrkKy~-RJ}*>>psm}ZNM6zVaOVP_SKyHwT4sI>8*58a!v5deJkJ=ezgBV zxJdhSb(x3Rb2b!RpIb2X!`)9k2iGj-{9LtJ*|WNH!xyIKx70QF3YdGa7j7=tfB)b?ZCj7CLQdMxE&JBw7=KLX<81NWHud&? zNg4OzPewEMKF-m%YDo2~Fu5@rgH-PyZ$dhZnu8RtnCPlUUw%m~`P z%1O;ybxl&CV8H5!^FG?xy}GErVvdqXl7yqW-P8jW3YO>V9!{X1JTCw3b0>#$J@aOtU=j}=TctVtSuHwsUTHY#>`bT^w zX=gP(;WS&@wZKWR=A&5}M>vw1r>@+$yU=&%rEsf^bzd*uHd(lFOU!~rJNHbv zG2v8#^dforXR~7C)+{-e;}PHy`DNLzv%Ybz?^R#=t(JHe^7%seq#1Xjv>kSKz5G+D z)ok!dscBBI@>G|(kJ^Jw6OvueaSBwut(tXvz142d-%ob2KKA{*;Ki*r54UGCu7=$E zabJ0jME~xdUu(6abQae=pK*_Y$7!>nhVA>19_Pcp3^ImYr~lh;z3JoM8@W2Xv0&!3 zuIS{)n_0Rql}Kg_q@G{@>L6RwYb!@Dzr_1NtL>oaE^(wn*R&!)#Zj@51YEABX%*ZL$|T+i~jPsRUlxyg=RVY{t(9qI0hXE!^7F`)}HZ9{#t2E2FNh zwOFD$>-IIHyhm}f>Uux@42ZtkqV!7PkJoNF)>`B17e3~Rbzjf!*N^xb6_%mDc+K^MKpFMT$kY>Sg#$zX*?%S|~Z~f|4X_K&Noqsn?E793?bIofDX_v>GGbitV@SNd~ zOTx`L!76=4>n2R+YnUnjc~YRWx@)RlmyFl<_NII5oIKX*YR`IJb7cJ_4r{Be%VdsL z1s&QDU#8;DbUIQ|KUh#UF#V-+fMfrv*xj68s-3%Z&aUg(_2aeDlq1vCI<+eAK1p~# z^JQ+}Es+I#&+RPa=1iOxzMRRdXzQH=A?d4~UGhR+Zwe2ddE!r~=Nwl_%`=}07oK~4 zs=6yPeE#Xky_)gW{Z(%y>TOb4_xOWm;f#|4ChQ;9oQYpvzg*4JG-9HEW{SsL%`J;-cFi+8Dpq!{<@Xv+ zvDen@%Ca6Z{!iz>NpSObuLw51EFxagvU63mw9zE9?HcF9=6hOgu{!+x_azm@T9v-{ zS4-`cCGC0(w(dTDY@>2qXOP?MiWS~*@8p;EES&0hN^@r6xm${j!Q3_~6ZcO2U4L95 zp6$kTj!&r!U)J5~>07eukEtrtQ;A1E<{bWdKmEkg@+ziZZ>)Z-ifHzzP!Qd_>B5SO z&whm_p1l1ySZ4eDc=`EG%NI_VaI|F8ZNsnw2`)`{Q*ydXTO2Oj{lpRYX7%+gYA+Ic zJFAk`Twfw(8lhEN7M*4{?V922>xzMG3%!Lodce+Y0+_LwF3&ZwL zS3*0M&wXac7!}{MBJzmLMF;jp9lCkvpMSBKY`AVY|9=V5v|!DP%Ol#(Zj)o*9Kp0( zOQBCcTcYw)JxgquO;sU}u2!(i%x7AqoVCksLV16EPk!~+a{aL#^Uj*j;&J)^a`8E9 zXItCu*>R5^N7PL4DekUJNSx^)zqW7V%APB8bp@?%Po3<1kvHgUXp6M!9;s=4uX)^b zbE0lce8eW5oc-5!-r~2(%y*y6EB>g&8+=oTQ_s);!^u_=fE@bxn;YgbGAvri!rB!woSNie> zYmV@*JI&(FE=mMW1A@ZYPM^yXYL3VH@p607N73b+7$xcJci7!AxzFwRxi!@w#IbD z6@?#j+Si+OXqnd}ZI;{fXCBMLdXw+_!n6anJl-s4S73H*`O2eFA4SD>*nN-83Set4 zoGUX$KQt>KNoe_c!S#wC_IrKb_if5TkCleG$ybkdny{{({7x-bfz_z( z^P7aOplfyG>QKIukB&)|*qq<>aB=8nB{$ZeN@qh#N+v3s^%UHfat?p`N=!WbpxDo! z8|Tamax%}FQFG@s&xs!_mtHCF|E%$4`TI-$TQ`^&=scgW=GI1;!kUK>ac=FlKIu7o zlMc#-PRTs9Iy*prn%hpbf8`%<#aZ8~Q~hV2`)<_%o(T&ovx4`f#og$t%=x%TT4vY8 zhZTx{(%pk{_C<;=S$@3a$L;yHxsOG(Uoe>FNL)J_r|P&|J>tQ;2aC_YowT6cyO4jz z_eD&z|Fu7AU-@)PtgLH^-=l7|xP#`WE#E)rW}9ika(G$lQM>1v(yk?Wd#{9CZ#(z% z?7Hq#sy;7Ss+-;$6i<@B`u`2r{_>2=X~HsUEKZ9qp5ihKPV}9UD7)^;s^jK5(%EZe z`Xsm&-E_PkyxS_&f7E@sZu9#Gtzn`kCd7S8&TQwHz|oLiE!WNVsPE-&?_C$ZELtqE z;C00HzxU5fl4HJm$VGPd`72959cig~*S$$Ba^2$#1=oLm;XB_L^PDkw87upP`=>%w zE~MR;ntC~Q!RLF=W6ykDdE*cJ{vIj$?eezsOADp7EwlOfg{EEGUlrHXHqYF5-dms`pi&b5CNwobqBR+(W!xI@4xEya zITROmAmoDMj6IzoABtJlRD-Mphv!f2 zsho527T5m8n~l`;eOAA9G}2tKZK=Hb<{Oo_1k;(f?>nly`6_?swK-<7?Gnf49k^h- zJMy^5v~|xVnlo<6Wl4SAbS5x%3CBjqpah0RH)Z7K3E$qZ$)`+a=fPX6?s0e;rUw37 zuyvM5m8|?p;ZINA7pC>TKc%m$H?e0yE!*o=Roj0%m)MFMF0-oK5-`Jgn$Ic4%)-^u zhNaV%KcDbp>ulDmcP(!5J~`<4YpToaWqY%h|CyyJ;=1+j#Xo7soj;kc;d99ple)}w zN^hOfx9P9MgDW^>m6jGU&ajQHk_qSa$}viJ_qNkXl_`DBXYXCEuy$*Yy9evWNu_c; zO7lA(&k16YdU{QNj>-1UiFtgU2a_Lb@qLumuk}9pN?cqd`0~oH^Cmsc@!7sO&LZ}c z@sqvb`q9V!&Ej2m#m!Njfv0M(>{h+ti+i|j7iMbv9@^Ts=yvLUCF8=IS(E3#+GH&F z*4fidf76zakAghU3VyTLBrcLMPyV4<#OvitN+)}4VKBI??`XW;fm?+^XG7S@ll70o zwN>qYe&xFz6ph+Ls?g=;y!Y@4oynn+jpsUfMDH9Hd6?_C#aEQy;6_c)hs0_7I?MMq z{MGyV;hw)jk)k{t78flgJ9u+bXV^~(=fJ5A8o`7*;^XV1z? z&+`Qt@^?4L3OTI*#pbyrehTw*##a|Vus_#)EY8+PD5>$DQ>j79N!OzRqN;Y%PbX z{!@)-T1|qL5oQI!qCYo^#`vqW$z80AaA{t~FPSk*?z!*Z;>$+G_qP1Fk|sB+IP9M9 zEg^yB7qbHzcCe*f$lY*i+j^B*_GjI0=frn?yWIWh>+ef7;j_-a+Si-TDfXf3ptk3M zP>D;=qZAjLdYRcSWc%2`agEpDljM>0@?Mi~2zd4xNj5GyIdN)T{Ju%sB|O@{im0ly zt^E3?{4JZh?&ekOilXu9hTkTYUgFtj^+6l< z$1PthcXyd2*Vk&3*JgF`{B2nsGhR3Ej=H*RE%#4P=^0@j`}2LG4|(0HzA6UK36X?)av{u#rs4>k|{^zZI6Jlk)xF$Z>6>;N0LS9X2Imbg+ z=he>{a#mjU{e6XX-G_?SmHpXPrD03f2=#y5lU8bQev8icsZVlORm3cv-xsvyQ*+1P z4dD@+o@u@p+M`gh_40MKh~vBXf>zy$U#0QYPH5?kWwSOcb?_GbHPyu>^6KuN;W7f}w)r$mJ#*oEW!1}D;$7u z`G-q)@5nFzxHWfSn25)V0M}iYG;X#1+opDOjY#Ox&SMK!TT6AWz81UA<=LLfZ;EbD z7fwuG9JX3#n(Yncsh#JFrup%AKmRT+dGXu=A*=3vqEi zwjN({@Yu3_3d>qTdU)!e#dJFzotDp9EPycE2_```wJ8s3TC>8%2BhAeh zzRpH)6Hj97opL98539^RQ~&mZ$!9yKzc!lcDz>poyhrbghRWLm-291qO=^}oPg%dt zB-v0;e)Aa)x35Lg(x!FEYyaF~|7YYaKhbK>ftMRsl-O^66&ZDQ#gEcuPZt{h(?LNOW$VAw4BhETmJ2o#1yg2uw$wJD zQAN>4?9_jwPOXmjemB}q7S3ETsUT_ZpC-4RSBvKPTiWjYzE|u0)(Ovoy#lA6dB_-_ za^px}HQ(BM$_(!>e^?m3`KLqY^^H1bTxZ?s@BX!G2fvZ(Dd*sxRZRLxj*n9P{#t(_G^eM}8*-QTKTyx~RY{0*tWr<9!{1Zj;Cr2xt z>)6vQR(D~_t#5U6lej8oroF#&bX6aNTp`CAchNB6;Mlg^p^9vd;6< zE%ejxysEPAb*#4LOKtHzQfVrClBTcRw?0sJs&=;DMh1iFF58cIge}pyc75tAfmdE@ zq~GKzuDhx((6Ua`Ve%dwtXoot`S2PE)eW0|t}vHU z{nGKi^p-D|)?G#0Br~ziSHHb-I1=e_@(cIvusL(wKgKRwXxqPT;n!PLjykr9ufNT! z%R6_$!LyY+w)w%Q%KcY$l8%(ljFWxidi3kz?~@u9wQYRj^zBL0x!o)!&+XEe2>#u4 zphkG(_MK{%5?nTJidJjaTfW@=%e;4IZnRtJZ~l8J=bD$~@qgF0PI=McHdE{HH2Yku z^s2O}o41I5d-m&+(^SV;K3-{w!Y8@k3WPVi%$U9T!iVdN|FfGsogSWwvCj>>A_lZx z#=;VL?F^Q6r6!Xt>e1 z@yR41-6GGz@F^n4|J#OMJsuMO`JP_+Qk4k|y=lL{2F89jy+3Ddw?*{F`Cslo&zH0P zd1!8J<=>8b^Ex-Lm#_WovE+Z`GT;nT;Rmx>B6$>+(V_%!1k$E%BZCv~-(2jtD0g(1-oX`B{rZXhPL;Vbx#24k_S)>Z ze{bJSx&3$9_T0M{H^qJ5TWiO_j5`b0m;Xp@S#+6kTdCf(t6AdVzWIgitG@@W+f=ph zMO}uI#h;Icaji|OFSLhq6fNzUyzbZ2-6gv7{JfI)6#V<({AcC%r()MPtSaiZ_`}L4 zSin_SF;DNxTC>GW@1AP)wROHytXY_Ub4GSe8Q+3;t9h>nU)ndv>d(gmW@Q(7CT>|@ ze^{_?YtYPB66Tq&jY6{jIaF`Fr_nI+OSiykJDchnzW!s<=f8iPmHS@Q`rK!hqUg2X zn`Gz3UYNZjIP&ZtqjzV$tAFs_I~BU}f!2ZRuRXU*EN1O-Si*8CW=>&4vcEp#;va|P z3szj)cAGCRLc97$alLMwX6cTU^MbCeJPT*FE)J>6f1qC=UU_yli$nrz=6^4yDeHte zdNdopeP#QZY3Y<}eX#hj&V~s^>Cc(oiSFc>`@iTwX~8A`8^2edoZ-z@q_VVV_UXsP zYtKGZxnCUOspWJEtkaNxI^=<3F8@H{T z{PM@^j=4bs{fB$46fBoiCtTm4cX9I8hRtf1gLfrQ@NA7{y!7*Mx^&NnaQ}T58jJrH zXR>@?;lA;*;dO;z`tRFHrjPrx0v-DmGA>{G-*rfxMV&R~mSxc1@4K2SFjb5`= zHovetWLtvmzYXa(zxyxrm`%$fl8?(Z9Ft2#!e6BAz_G3YbRAa%@H~*7_)p-vGTj@C6 zw&9#;GFv4%C~m^CijxawO$cAB_aW5c;-}|sYE!=#hOb!dW#@a=l0*7S!}?_#Z*$&Q z=aKdFw!+HPls%L8)G>=3JL9i7W4kD)LV5GwcbdMbZho`oADe$GROLn1g=I#puO9f! zxufId#+2AZ%tXP{;gKWea6F)ov5 zSsmR!FSB&U?c!BsGbPt-lH>lSWW3K}s%ecv-@WI2vns^e6`uDA+fLPvXa4tqp-Eq8 z;%`?@bETp>#rZxLUKw4Q&+zMsbp7nD@8(UswA3%oxa;wy|JrV~#-69sZTxB!3jg-6 z_Fd0*apBUvR}cNjv2yQuEPhr!<=$MCYfayReSD^ERy^5!+G5ATogDLSwtR3_Oy^r9 z{xKqM#mp3`6$Qc%uRbiYY1ot&{$kyMi!RGO9NcthY$ZU7k!9Qmqlvs%9Rm{k4e^0$heXAeBvdsA-x>Blen*082V zPKot6|Bn#)g&Et*yqC~$=y{akbZUSMsN$= z*Z$uB@PNVb)D#?`z&U$Z~CCM6UAv3A2`{oXt3{ufo)pxY|-ef`7+X-`|` zHLkhVzc!p)IRE`A#f4(4OMl)ipPlwwlv$`hp>ONki}M<|qnFq0RaZ~k7oXEVpI1Kr z)Z>iHmz2cB5+|=ewZrYRn}JsN-lq$r|DBnsnm%E#%-a}?t*h4t-E!p6QCs1bS$}+o zr|bls3^Rp@)g`O{E&5S*&_t!ThOyIxP3Yqvp5A?Z*};4Aj&bfgGLuoiZ%1K4p}^j` zqVw0@4NF$;PV_lh&1R@0eBjb^p?R0zZ;mUra(Z;C<7l+?<(+AQ@1vzI>l+EUe_HTC zO`@^xW~{;Cytx??xoJ+vZu+pwpDg)k_BU4{qa@q+L8jT=mU9&+)n@*jWFa}p@0Hla z7a`oy^HpO?;x?-N%;Z&Y>{kA8^;q1x?Z@qN`{m{4OJ|B{>pTy&zn|*LbtP`2rF5cu z8mmofbUzoHn^#u3f>YG)ox+NTyCpi}8e8VBJeduS?b~b^f!qQLZzOj^Gtm;dxv0n zI;u2lrForY;rivL3mM)9_iUJ`9rEi*!`CwpgYf z+G957#hmUd$$7gwU;psl8>V(AX1Ue*=~FElR?S(RGUrRwk{esnYf^45Rb985{ox#+ zo!O%28V_cL3rZL@$RvtSoj66orEkAlu~ysEzXw!ami!fQUc{kVE^+qCo4+lVbLuo~ z89r=yB<42jSKA`-4$FSC>-=v@pV;h@I`<*%%jSs}7&$YKEPK;`XiM~?sT!uZVvASfs5km4!k7+=5o;bxR(+V>#hc|D(yRLVAzqbiF;HFLE2_Ms0}f z%w+Q7T)lR6+lAN$mFD`@-^2SGg=BmrH+nbjxs+mdkawZ-q37SVPAsWk8o$r?_S9K< zA(q@<-mJQwvDRucOKatn)b91Go}PYvda?4pJImyvRHS%#8GrqK-aqf(U3tF!F8`Ou zuuhyj?L@#+&8+%EQ5!akgwLA1cKzd=1GZ%^4cDp5MHwDXHSpe8-oJfYZdw28UmKS1 zI6gmT^Pj56;gRu7s{f>yZP;*dFO!Sr`T56l*-g{M&X#5vDDGX!`s2*HOKh&R6Qmo!0P_^pz{ptfn_7xT!%S2~Z$S%xZn`JZShnQsbm4cKR zCy#k9y0iK6lf0PS-@4;me@K>}>0UNVL8ATU^4l$eDa&`Sb}iG-UwbK7UwO6s!+)Mv zRv&!xId`3u=7j}b$y1wR4OPrPOV4{2an$vi9q;{$fIWwN!k@A+Klc&tfT$TM6NU3~0jnwDi&o*2)WsBX2#raBY1pP3Ravysiv_}_Y?7uoTy>FJ9TUQ9mp zak@~i+X1tMj=$HqEqPyx7jZeQA}{bhG=>;SSC( zQROc=s+NRQbG9ME8;<*;A-)zQ#PEwh-qk4<#i zDd^QdEz|dV?QZGd8|s&Sl-j6Pm9y;{>bCZJq3vU>e+S)b4&5s*dMo>T`{nS2z}%|2jI|Y;E}2DK zi_urS^}^w+_qkiQGFA!6J#iFvco1j*j7KJs@7AC7=B3GLIS&Fa>Sy{mzkKp*mDbKn zISj`#au-}KH`jETynV(MhMFl>cV;~{d8O~W*k|$F2aMO0mkIt8$jDjFGwIys$!!+u z`zC%~%eQ*U^_aUe*%&P!e|!-l_VB}(k8zACWk-&$mf5d%o-W^;O>^||5rLOEm<=>ergjO8Tu-*M~ zVpy`F`6d>peNr!#Vj?TI+tzL4t=P0Twf~Iax3cQfdveZi-=4$3-LzR|U25@;y;4bVU-%!t&;Q4)4n|J3^ zb}kMNna5dSNA?IG7s*QTe!sZ-{)w6Qi-W2T-ZaOB3cRhNa-w^rysQhA-V>|h9+pk2#ipE(yBYUa$&njCz_M%8k`u5i|1 zu_X%@hE(qpWa)Ge)qke9<7n2&Gps#bYyX+-&td$tz(UaRB^z7l9j)tLX{l3xHyN*+ zsV#HAuQNlvyocFhUXo@SYCEav%eV@Bq4lNb4Q+w$W593IRrXw3XlGWslCh+izg+t-dF32zb(7sL!`X*#RDn67yq695yrqGe@X1246o#p@&#YF+Bj7$ zQ9WDb{z21j${SVbHct*7sZ36uE$=PT72$bp~k=Z&CM>e#JPp*98*)Pt@_ob zFIL;|0(OLkeJGt1SsHo%=6$=%aktKx%}H^&d-p-usrIY8Oeb}HEjY5P zZG~rw30rmP53R_$Bes*}neJXt^wC`WHqP}R=T%Ri87cc`$cKOYH^tx?kH(y3SqV?8 zVs}pMTk;|}qei#Xq4RaQAkQYIH~a2g&MiCBrEfehj*sgkGypj^AWz{7%dIX2`O=p<#QLU(WW(_Q+9)yS~Pmy+6t5dCJ?p4xEf(!P5lR zdG8K&(x1Uw6gBOVz-xhtEHfsjt(YzPMQp`%Ki>(vi{|+!f7(A~;YHg5Th-?~=57;l zIqF@+ktlm@eoxE`<|ON7ulMvZY%Y>J_=c5xYW0K&&a{@5J2_(l*ROx9)npV_?5?@H zvTswicZnba(_A^%ZI3q!rtg`xw7gEkvDfqdM*h?n-8)><`&8S6*B0nL^hn4G$>NzE zXKuQtJKiKKCDkk7W81170gsz3R{5ChX_^o$|L=F9($@;(Qcdy2rF&K<7`CtW^HQr{ zzI=i1KUvQY_3jfU&YouUG_enT_-rrxhw0fD+;>SV+mjW> z*|z_%QNPyBLb04TXMcK>z0ZnxIHzpAAqOAB)TfF|vQ(-#qg4hA%~F=H$Xz_+wco_~1_`Bnm-2Sp z|6f(yznO7gXZ?qSQ+E#9oso59xwWPAfP=SeSaFo?sV1ox1uMHnE`R#}yU06ZN?Y;m z;#097rOq69duH+#4TfKDQ?~t@UU6&2RR0s%O*WdHopskNnT^_iT?jUrn0Niv+TurZ zADwYI;kmrx;ywTEJ{d1oq#X`c{(MQK)ZlprCh1y1ifLSK0OLVL>(jWEySF$=DwlX-I<9L1ZTD?6Q z>-L>jYG&s%=DU4RuVg~{RVK-6iFp>Ld!+l7ceSZ=m`O@;H+_j=k$N5=ytnXB{k`L? zTkoDVSX{bg=1#@*dwW!$DRw6QbHC=7k@w)x{-f7})*rfZ)%#EFs+2{aj&-h{P&jS< z{@LFyTP{7)%IhB)mGtUG z=SzVbj@NERJ**U~UzPIZW7ET&n8)54a}oobd3uiDRb0B$r+H#f?g}%-Yqm@E`Z}~% zJi6=1e^NGg&f+Ovs~&9Vo>U~pmayMi=-1hU+*6Lc-mvgA;f9}%Q;Jq_-Q7LqaNJ%;H{KOG7hIPZgx{9e{A4|^xOU55wxrFMSdac~ zd-U5bXHVP%uFXCrJ#C(k<;|LRJ(3lknlNF~%~dQ@wVzof@jtr0`Qw{dxxJ=~cfY)| zDOPf3RA8gUy^kAB>JPm44bc?)`rwApr7L@-G$$WzkNju0{>Hna`3ZaNzGwO$=JePT z?Y@BBSE$!+f}ZD=(waY8JQvATWc~O*L1h&~tN7D%4qqA9e3&8pN;j+H=~>w#C&$!_ z3tEFWu^L@!_uyLV!NJ9Lr`oMu-IfzRuXBp=lvMdu%GuRi^LgSLXQSBPaxYh` z3g!D28TLPCckXG8oRbR6`?kpMWMW5f&hu4kdZQQApUq1YYdW!FNs6lM@t2}DTX%Vf956G~GLcvLA=)>oK>JwVhM6pP zJ0iBrDJT@*iY!bXwZBBuEZ`yZ>F@!MD0XmNhJ!&(W>kk-TX2YR>? zLhM$iWKS2X-{g<%isj54~fTS=oF^XZfqhXOD^$_UC$OiKD-@@(mFa~?0v`}0b&T9zK#9-<__`^$zl+rX`&epB?EuEf3& zjb8drDWqYtpAlGl086ddjN=B7sLx!69DT@DrZRqoYk z^a?hKY~8f~`rA7@u4f%uwK=e)>RFjULuc2mP16O>ubMnvkTXLqA~v^cdrH@4jj6(2 z{x7dQnO3@%;k4RLrF&hr`+GGK-&IW14$J2eWAw{r7k}xcx;bv|w8Qg!pI0vYd}%M| z_1RNy1bt!)n{p~Ld+YD4H7dj7d$k7?iJY$Nr^l7-yGhv z_#T5p#K|9d`PUftzn@dm+_WPyPyF)x zw--+7@$~ZDn`|{om(@1I}b9HiE)bHMW1{j+mRT+_U-brze<58=O3lbR7)65o+K z$Kl7%B*|?&2Pf{&o%801lrCSi)~4-;dDP$N1b7MCuMIu9?p3WI+msjmcb>T#Z>vt3 zx99op+3qD@qm!O~yc_-Y>tDvoH#&dIp7igXez#ucjW?6a(^pHkhu?m@{kHOJY2DM0 zIc2RbdL8P^QZQX~zWr84jH}#2@2;2 zWRZtF4ga@!{+d^7ZsY!4a&d0y!s;`74;@n2vC?t#t_vp9pX>~n^RiEL^V}v5ovQBn zM|RjQw%xjIvR~WRGu5?=E*1$amf7()f7#p0oQ+ZXXSy?Qu-)S458!vIXHV6(_P@6E z!rRQK@X*pM+gTrT1A+oX|MEEeiFSKam6rQ1|Iu8FhLiKo`ZjFfzty&ILHiwDqyFud z=~Dcc6||4LcHd{y-xf5DO`~_3uxZ;NrmVshi>9n8Vfmlue0Soie{Zz1&ICotjh=_+G_o&z+vfcI(D`Mzy+mhy<@%RX9bY7I&3M9sSwXoE4ze|#>^?EUvD@bN zuW2W_`FtdwAD+o@%JA0FC#@;XN%ya1m;^rK%6@Z-EoR#BO^$c^7XHlNExl3e!JAF@ z&c<`xa7&cC8Gouwj!mX%U(2&syd}A}Pni8qtFGQ>TXs#BId*q$)W>VqETMh}POg&O zcW+u&?kPRa-J3fi-<6#T@VYN9HRstv-M9Tm}vmFO1*LUsqHVNf82~(zq3HnDra`m%h8a{rkM?-OaWgwZ8+eJW=~)6<(~ZA?`EZurTfhPoSB{dDQ5P+)|T_j%AHkB=GWPkeR+FnU!ahg{X_13 z9WRtlhqJ#=D#)+RS-hM3@0mRH(`6fuPTQEG8+2xFY`Mw|2jfKa%5lHF?sashp)SikJPh0XytNdW681KSq1*^TvdJY&Y>|M!! zsM>p*(wUAsk)P#-%p&t$|6TB&lky{z`_B*Oj3zGm#SBKdTU&FkACCxomBYQ7ZBxo2 ziw(!FC#uSycz^Y0;JTNBb60$}zjid^N2#>*t(v5lEULP9{z>ONzrB6S3{I3h&Cnc>uoPYo7JAJwLQZ=VLy1z%L`^-1`6v~$PeqKUu@8qPV zJZ9A)y+)<;Za11qwI2%o^FmmDx9PL#AE%#iI{xa|1d9*RP5-8?*`(Sx-T6_%lw(=e zGur?){r5QhB`p`<#>I!e6c&{BE8zDUy-n_>3Nzb>Rm- zUcUVH6L0W_qGx%#Po221tm|n~g4@v6Q7_}u!dtK?HX zp+oCG>#g}N|HM0vogwbFdFSy95tENLUS@Q!iCndg?P>d!AcgSnZJF1%%-p_c#{cD7 zvO6XwK8$=`xFgocFWHvqX>-i?FCUW@Z&|11{HkilqxOGy7yoBGdFGfBmUR}O)f3=# z7AB@<@H0wGv7Aw2O4J!8Z*8LU<#v|7fA^2WwoYr!#}9sa^DntxzMF7aA)2+;qw9e7 z$?3n8yf>MfUXZ_E%y;tP!`vn3H{Mm^NI9U~*hlbcL-e4`S(G#&nv%%qy4o>bXNV2rG<%GORs(ojX4_qlwW)~ z!_G;5t%s|tuD)Jy^`S0b^y1c4Y4Ih+fh|p zaW3x3?;~%g7A=x`)?U$d-c5UF-h|l+rKbOl4lQClQl9#MOP9I!LT^S+9S3Vmmiy|m z^3%+IMrvE!IW6aE(tddAH9@9?`f9G(Ruac0PgN?!EjyCce0zbBSlC5otxLxVG_XoGxZaW#-$d;FH z_AFT0H?1thP5DlPWAcQ#+gj%z-M(i{!ORES<9@x;IpXM5`S8_8mdS^59~p%)IZa5& zHV~}ZYT;<{RN!%RoK*3Tw%%f&WwO1@IiDx*w{d+pNoQh=vSu>e zh_&Es+H+Q7LSNeFLbr9Ci$C7%j19}>v%h@N^u*2MCM)>%A6{9I+ubuEW2M%=ZXR8!QiIEkb1olLh}u8t&D{Qv2fpv@US8t$^{~RK z1%^NDu1DUxcl>(5V*B^!JocQOV4L=~#K}7SQ=9R&rSgZLdFg7;I3zAwuw-B3)8lKT zr|#O4r&iv-cusY~(g&LsxTmqbR<%`sp6lYku`MX!Z{4j`wU*nD@b8$x(|hS&T+*Qf zKi^mBDA%0Yet=h7=jGvt{_Jh(fpLE?XDX>>oIhchePOmvfom$mEVt+h9VfgNES8*_ z;AWq8k8i=!a|t3ZLK2m`3Y;n?J?!{)ru3qo@U7OOwT~E*^yEx_xkeT7YH?3*U3zJ@ zmBr+VOztmyZniz!9ehdsMSn^~c3Ne>im6tH+GE?}lN{@%7jhry^OTOBDSM#t`Ghaa z4L{t8?AxQj^!A8V%7Y}n_r@{}K?Q-%s_*x%JmaNy+9y|_yXpV4y6R~cvubqzKRtT7 zMMvS=L_XGi&z7u^PkemQ@w9NwFP_-To@^NgaP|_PtmX!PEQA{=$yt`xU)XrEF>>B-^%k#zUS=&N42&`^zeC=tRSJ0rvv3o%qO1y zbf2>@v3DnrtUU94Q^UI&-|kk(HVa6KG3NU5$H!5~;Pz zHdkKxxUt9mp`Xc$C9{wI<#ZNnsEoCJ6*^h{l-i!7fgHh3sjGJWpLU;lalxLxd&dGb zdLq_rZ@>SjU_#p0yaRVVXDbA(ns`!et%u<$DYfi^BV`k}Z`%6s`OLZfGqg-^c|Ho` zT(~mB#wB#7^P#>gX)dR9-j+x$wyTfpS-d>Vmt!gye~0FznCODtcf^d&oaop&G4xS> z>?xM^=Cu_mNnh`8d|Y(qv+w`e&m#CePNxKH@?^L$@79e|4g36WT-zFZSK&&#^fue+ z&(fxzoe{4pba>|dsUGtr@3T4Pu5so5cgF0|zq+)(w&dqs%Kn~`2RydkIw_y>^+Z|m z^?lRKULHR@(G(-zwyodH27?(#=^M3tE-mRJ_~K ze=T!)#NEYVb6OAYy?(9p9_v$Q9}`<6jx)~rD}{rLi>F&>UMlW2I+4Rkhg=L&vH1~VOi#7aus}A#+zCL_KNb%Iky(t`%ZkodrdQDKmQf7MLrb%`FE>k!w&gjSYG}WebUYCpEJHpb-$?X2Bcp5X~Hi5ELjTgUJ zs}xN8dR|=U;kyK@^p-xUD^1l`XZLf&&spf86t8Nt{!wGuq!sedHcPY57Ms5L!oyVz zvD1|cLfEf9VOhCDdAW`8%9p)Kd10@+O;&Z+{%00gBf!(J>x|h}-b?q7Yqo80>e1NN z;dE+-kmRJ_i&ivLrUYcN^}P9Fvb|iCapP+HT^=h8S}%xfo!B3?dxxQOPgd=YuJ?~q z8&0lW)-SlFfBB)kPcLrdf9Ac>ZQHi53(Ka5?DpGzCM74#MDKW)s6)s9BIb5}#? zwPE=|_Kv6L)v0E^YIl)H_Fw*ScH!R8TWV`t7iVxSyJ=vx?LxsDr8~Y|b=4m$o1#iG zPsqMscKZ6+D<^i`vyZNsaC!ZyCXd;-*2_yAQ}dpm$}yFJ`|nQq3n|YvR=$ssj%1AJ z=HI9H_3F;6zFe8Bq^_LW-Y4brlG~7*H=Wm(-?RPxv8!9Z#O~5y`fZXr!}ay$`I0|& zH@^MfeNS3+Cu8N5pIKi#vKPJl>3m+;=JHJ8&AHR%o6^>v&yCvr%x<^o_rHwpOIf-) zR{edaI$QSk(=A*Z7c`wMjr4xE<^Ia*Tkm(h+wb^$uE@@nPu{;Rf6$%#w)}tCpUV9~;2X9)^7LYjm&M_3!L_HY0s?c|UZe%E`tXMT6FcpC z<^6_i^%bw4rD^_k3=i#+4&1z0{_1kG;)@l+JD&$eomH^!2~`r9=4n?G?7yk>e4@y+ zkc|5^Iqxd`UrC)1J;Zp~YT`}>RsEi+n-=|LYo1qC_$Q#Z_(-X`Y}ih>%adfc?aSus z;Ylyg(mk1cU~|Ktg++{$TfVYR_PJEvYI5}6eU-kJ&p(=i<34M?5ou+gq9`nvD6(Tq z^t;9>Q@N(ix%o>_gfHT2dFq$jpMIqLs0fr>f11lYwM4UD|McVApDJ$qbZFbiuKSSl zG`?yYj(xaFo=Q=O0KN+asCiAuG1b_M2 zJ3oFbd^l+b)8i|v72RX`wG~Z!j@zi>-J!VN-?rQa9b= z3Ad)1uDdBQ-Bz>vjYzF%*&g$`b!!Y8zaQ9mZ3j!JL1~5&ck$+HQ@-DhO7k?XUc^zC z`>p0?LHzP{b#k8$zkc{QH1c7b?M@!Y^gaL5EWQ_UoZG8qtkV>=P&1-Lu>Zf;FPEwB zl6qPvz2e;V$mxo&)C;NLhijQkKC1D~+-~*otBzT2^J;T%t}`Z*&yU}YdV1|fz8Evt zd~^LTpMo|q70e3#t+(blU-4%7YuP+KuS(>t4c+;_3#4yY!e@AQ>!rtyC6|{TTsU_N z^YSesOWAiyUkh(6{F1zA_1inv5~g176qL4EKI~n#R=$cY>$2fS-4lHWmcQR(Co?(W z=!@9))VCG=8ToJjc1q5xdGfU<@=#ih>%-b-GZoE>U3|oY-ze0|cCUH7M>~4gNiM~o zPi%BAr=Q8a5S^Z)lJz#;H%g(>|H_g%MX`@eSM5%o-n`~*z*)MbQZ%fy~~tiM|=Ch2wOyM0=c-s$wDQjQ!z2*Cyq!M`fWaIa_fBEhR?#VY?vf#*Pz;WyHTv;;^21mrcKXmGZVjN!M(ra=wTX|8T$YKhMhRs~F1` z@%}zw^F2oK)86UF&7713+{{{MRZE-5EtoOMwruONa}83aD+Hf-sD8fqE>vK*$71RI zyRxn>+I6YSxj5TN@#<%-slq8s_Z1ay3|ZTIz~`XNxA`YO8)zD9gg@swF?s%*sFMl` zr>ep~&7J*snRqNiY$9KojgA3#)`y&zeZ_D1I(}LTy~wmWN-Y`i>q@>-hBTQ zs(Ja!$1^jhRLtL+$2OycwU>cCIdP4Ct%CFvpSgG6ICXAdobe$`Gfo}@$yk5a*6Dj_#_*2Ehxj|Yz^80!wt8ZmZ`St9F;5~)@ef`BV3%2xg zv+fVAQ;nZh&Ubd(!^e9CJ@)NnnRsN=bLM8LYe~NMb~ddz|N2bCar0Ad)JJ~K8qaq$E-ZITw*%f{-&a->oD(0X0d*rtiLudm#TxEP^x{Hh;&hV8_f zW#2xYfBLbsGG*r3-M`~@YxL)Azx}CVtF7Ggk_nMlZfL8_u2WC@9cuTS;2n^uagl)G}iTr$16;A`%rs)NT^6HJ(k5HA!Ua58eULX77asS<;gWJA4Tg_HqpEj>4*iTBoa=CMw zX~5n4bBo;9gfu9vDE)o(NtBAY=;7|iE19)~R`cDCobG&g&z)PZ?)+K6v*U2wXRU1A z4hzQER(7vPX6!pIt*Ll^>3y_PQT8nUDG6JioQ<(enW5Gjk^7l#o7tLQ>w6Auo2B%o zcj=y)vCncvCx@v=u~u&_nJYFkq_{m#qhexEZxQQbk)QM1f4(-8ytj746wzIfcx%7rxrZivnwX8df^!*1wzS5^A}x@pa00*FoxsK>D|7m?*vwf zb$WiU64H0KeetnqYsR|y^PgUOyiT2Iz4C0wDgN^FE!0lkfAq0i=)AGlohcW)T{s)> z3*A!t)3A7!oxd^n?(;{wehU1ToP0R_vCmPLm1ozBynQBOvrYSNsAcPhHLE`_es*=Y z$EVQq(#?^l@uT z7e_jOy1h0$ElBMc_bx7-1;M_n%*1AGnf-O$@|#kVfBEYFzqaM@Vi!3+zkRO_S96{f zvYcTP&e*czTyk!2S>WWwuYYIVxO#6|HUocN?*9MRkGPktEV&kAUOD*z%lj9>uCYm) z9{F3B-xvES_x*uQ?$nCtSG%ONxUaEqiRWgXekqCjQY zXslZ4!mvF_Df{=CpXxTdI^AZ5&oQp^wNX3Gn@Ue}yG^RN-EV&K{N~Ra7hdtP6ZrP| z<+soU_g>w4>8`w+@7KOXPxk!S(ltp(RCUb{8Ds)G9iy`M}1nW8@QOR(tP% zx$4rhQML9ZX7ST6nx{_5oEe_$@M*)W%g?r6H(maNQ8xH#T;EE|Mlt>S5|xHu_~Ydt z%hx@e75rv@xbyam>nSO07K@&JnJU%oaQQ{)s}FTfXEk?S_$^+>DLu9Olj|x!5y4d- zIzyKm^ZLmzt6Ov@^1Hd%wmhZ3mL?~sEzWoxb;kO|$_#s(b+-EbbIZ3({{16DM)jKU z;cXfZWCAPxH#vSv4``|vb}YJ`d;Y_R?+QP?SxBBf7%3&a>D zmc3x6pwUc%d%@1e-p!ZUF8F@)1^Y+0rr%+`*mhq&b8ISV$ZM*3=b z_o-T&-TL!>uHy95iqot2O)e|-k~{Qa$DD@+c6G*2*40IB>{~DK@Am)iU!GoE{(sBr z?%9hk?0&TRzs%pFBftMA{+)3(-Y;Q>f%g4M<({aydn_LPtvZXBnwp6Qeu@n}X)^Wg zd53k34;P>7G?}~Y(7OD?5@&5DzkY3V`n5&(_L{%iU%1qkZa>-_p5kQn^Q)W141xLF zcQW&?*{|UgHM+n5Wbu^91?Q~Orfe3l&h~!TDYjslw>zrC_L|&``in&)@|Cz zwo>K)$0wX`7Cbx3XLZ%`b%MD6xrFoocqbRU^o{s%Vb76eLNTW-T$i%&RhZcLI<{6e zdq0@lx>qf_a^mbI+i$TXie@z2a~kzKLDo;Hbq{7GxrwM&Ce z9hoO`jmJ!Pt@aOvBflT^9iH$!<(+wom)Cqh{~ddk4%goh2%7)oXW+TxK@I;Zwp%@u zS#q{!O8)x%m|KU`5AK>$GFNodr>G5!)|ELQQRTU7ts%hW?0LU1;;3y6|EHHM@%wxC zb2A!$FV?sd>GkpY4u>ZfCFbB&7iSE3`aa&Vv5!Vm4f`wgHtru2XF>lN`eed8ehj6upCs$i^PHy|Q zuVe25h21`TyLZ)JGTuG;{I0Iz>cnqhg(^uq*M-{nsBaJI-&7Lpn7_tN_s<0;2VH}< z&E-EYu6WrN=sSH+@v+ZWPlmgz%iG7kKFgqUsQH>UuXX;dyFw=xh_lN7`R?H6VDc!i z;1u(msT(*lirGz6+T1wxdW`Rwq<9&8@Sa}iq`P4Dw#Nd`S~4RwZtUE0M}6P^I~E(* zjwHGKj(0EAPIzg_*`eZhsn^QY`a;6$9jT7dk(rMegGz55*f-yI#g+7}8?yD;n006A zvFJUl*mC#ti!%}%#2$AA-%>l!y7&5v>m}(7Q|qU&|55&ZV13d1{Y8^mR=&RTdsAK; z*8bDsWM|M|WAa=%u~Ll=CLp83ABJ-_$=DyO6zp_rd``k(uEeqX{h#cLrr7XLg>X!~xP!{%oN{2Ukr?^kZ!W^vfp^nJ#g-D)N~T-6Rf_S&dEc|~Bu zFDtzg=FM-;=XErj@BFD|?mzqN=V!?+EKS#TnBC9Mku6&vB{;+F_2)gU&ucB(E5209 zeQ>=$`>K9P{oL92pQ=T^FyHyps<>wFdnfnLlQzCD`n>$kp1WNpeFqPh-uiCG7!!5p z#tXlx<#)a^N_|~g9xn6w^OG`zN0aZ&wlMFClDg^6p_ZTgp*;1+f`?!K9&?ORJrGzg z^s%wTO4aP(|BHWC2rk#z^}Aa_TK4+}{tLPyKiE%|y^l_u#o6#-yMY)J&-&ya+p=2p zCKvBocmC9ztlg`(nLYjA9IWQ|F7jRNy^`ALJHJojd+|3`YWGpi$p;E9+h0q*xbgSi zvwLIn`fBoC)Y_XY7T6J4*sh2k&eS4Hxd~%V#kyXyvF- z6PfaXwe#3(LNtEH`}gfT`Y3O?b7T1~nHbBKeKK!U!_5D9X)}ECJ6iOiFm1YlSQbRgYmOf) z@SSkWb>pn$^$9)eH$B?U>3AZ@xGa3d_P-HZXXo`UvJQQxxZ|?Hyi14wUri4>$73LYu5_S+PdLnH$Lg~l~-O~SjlwQb^qdJYx*y{ z*ZcokuXgN0x*<#EMajj%VRE}xM^#SfH*;P2N2_e{N|%W(UXjdvLBAgUQOKKB=63PX zoz(roNv~fz%u?AgQ|0HOvr7)N_e?#WaCR5p%0t203lD$H;biK)wCWH?gf@HG$1TjZ za)06^7JXnkvbq23O@4{^CTWkpm9oA1#dE}hE>#Lv&r}O&I=1B8%7QfqopQYrH?VzW zeY3HAfe>TE$Ej%>^1Y5Zd{x?=KgnV8nh6O7O{?|Idp~S-*T|LEfBbXG6xC*N-*RKd z-D(a`UhhahcI6(oYQE@vlb?@YOxz;Y?8L%vWBPATINwXHUiZ-CDF2-@uO2RYm6<*< zw!~f}R!p_ng!5$R{8L_wv-k3FU)#6p(eWDLq*qhoUvFSK-}vp9zG3QBoB-yV1-%&c4$WelTk*YNo^{V@ z-oi7HbJ!*?-pgEN?csC0@Q%WEVJpo$9}1>?lzg$3sdif_m&AnD)EUa^DIcva1*iSy zP}{B z$&r7jyMeR0@y&K_|DsFvb4AswX6@j-%v3X}+bJYE{^_@7%>{c--*TV5A zpETrB2svT>bm`mf!!q)Zn2M6_KjJW4r+HC*Zphvovhn#dS%wyC3|$Y zu{;-zUX-?4Wud{^qJ1f^{aV~!uV43}#H>em-pn1`4uZ_CLLw%C0!6~F&nA6p%P4-j zjXA_%ea>sC8IwBxJzNCN7UC(~Yett^n*)XB8i?A3G5JI+ph?kpi1SI$T0}DSM44vCI?>Y09-BWL@Xlz%qu;g5P zcg8F2-o6bdzHV2JNKS({)2|Dx4^ux49fqkk5vUwFpeMHy4TN%ULfAGC?Ip^cI zyVpCNm~^Ts&A!uL%l7T!*P<0X%|+S!I<156zU_N{=xp?VO+}ujmUp?CSr*?#7gR;W zH)})}{I$88sk2jgo8?3IU1$CqO^xWdEasD@`uJ|^A|YwTPYqk*pT`wN=Z18umg}ck z-G0i{e=PUpV<+_$3t1LNJ$kXZcawqbu07us3nvI)u~fM%|D!I#=x^-WEy~C5l`l9p z_5J_*8xDULSD8H5FiCai5f=NRZ^glW={vtGnV+;uNr_imO5>|vPZ8?|WldAoC;9(veS$ak-Mx7O8sk5-BQ#YVF#4||oz5A+`t%qTO!JK0 z&eIZeb?*7Fmd}o!(>6^_`nP(So5`N%YXp>A-#1OQoLcPGt5fl3!Mn2+3h#JQviB_c z-yfNK?slK`{^wlpQ)7AW&fd08vT)IcZHL1TGsk}FI#Mrw?+A+=_pc{)w_eD$+7ST*@%P^<-who0>^rUf z_J^VH?~VIqwZ8t^e&=`e!9#}W`-%@u+wfOFE3f4F65se(i5K^;9GV?|R5Ntdqxy9l zb#H$C_3X9y%Xur8>U*8tcu=4yQgzmvAKkYZR+KD%u(Ro(Qu(TPib{JfpQ<>SoXEVH zRWb3yhRxSzo)t3Krm*p7ne2=9mFH}yH`G|&ne#IIPQb@XTc&VX@qJ5naqQZ?Ic5vn zirCK7%^X!rRQMX@H2FG6fY z_VKe>Y5r|zo;&5$o`)t^O}K>kJ2lt7oMWu|x7um$u$HQ~93oj!`_2d(lt&)6(m ztP@nU^PjVtb@7Z)F0-cTQ|h^&w?ugu_HAa;IkfuKq_c`XK?nN7-f&KOpKQ1{FlZNl zmf;HSZA^rpd8v(-5v(5qfjXV-PE_gi9_#g;B{i!w2vl(H=O zSHn|puljTqOXnMlO85o0Y5aAU+NROX{m5pqchFv8{w?>yUWT68e=a>%cUosfu(I5; zDQSn;rK6+_i#6Y#+bvR)aPonBab9Bz)Be(pu8)6dt-8Z?RJX-ikuPrDvmar4x3|aC z)=v++VB6rW{leaFdf0{?YrM5R0;hj_erk(*{MH{yaqrvArDMD;pQ0y{@l57p3R#1(yvb@e=eSKIQ7q+B}(rm88Iy=epx-E?etN-Mnt4^Q{bxf0ei-Vf9Wyw!m!Vcrb>;czF+TN|cWpF` zUi5J8wMlxR=4NUWW?e5-`gdX1R`+ys@3XG9x8LT{Ah>AqF;}(y`D`=ZPvhs{@Qpn9NeFM;Os*to~8dMFt%NawKxzEbYEX6L8G;mnMZZ2 zM}uVknIy)vJ%-$DGd{|_l}RXzd3z*$YU1-X+qEBm%Mk=Z%i_$4S{8TKHakCd`^5XLe+9qajuYLtygmO? zx5$gM;03!~#eKKlV4bA2K{dKC=X7W8PNP}>zR#7M)b1?z>BXr@mk+V|T(o&oVDVlu z$o}m!&o^m*CjYaoul@9T{oQw;?s9&8cjVpElm6;Te+`x!?yk3QPQ3K)kjR=XRpsCQ zxGeeT_im2y_4zA=$PmB`tquPWBzH| zey879`__hi>;BHe&mSE9$9ZPa)FP`l@y^9L!7oFY@Y5$oU7o}_e{a3Yj#U-yd`rI*< zm-z$^lpp`S-f!vbE!$W^@65h$pZYg z2t?(FL$9|z?@>}9W1Hv zXs_{NS9H)gqbMi#{P}zd`}p-I8V%+NWIcQnKjm5V687X!hfghq9~Q3pV64P^?m*0g zn2lHU3%yJwg@0U(Ph3A|4rgYm@|}O{Jy;4R&04}(_vF>rUt10+{LO3mwkZOM zow^h_X^V*w*Xb7R#Fn$4oUN}be#+UZqhPdirW^OuHYFj)5VndPf?X?0Td!R$*LW!s z&@b@&{^bPY*HJx&A1<}6ExKBD$0&P^NsM~Nq}G@WP6MeW;=4E7&zbZ0)$A>s*p50b zYnydcg`ui%y-&1)+KUT`9W1dGwhj{P{H$+nn*Xe2aW{PuAMyWc!kOJWw5DH}@BV|s zVAmR!hs@6xJy&6yH~Gj%DUQ#+f_C}d?_XcqqsJUK^`5%-=X*_FEC$?DS1Im!qjkJ7 z@%(N7thpA<{nfQo5_WbSR^?gGQ*D-PWh$JLF7|k-p|bW=p9~daee+r-28V{Phj|my zG8pS8My%Q^toL|_%R7lymETgQRo~7Gel>YsR)mCV&wA! z0c)|9*A7i9Tffk~)pO_4=T}e8e}97W!DT;3^Em}eTzTaLYNMmCL_6_|6&}5~Aa5C; z)b*f)Un){>lk)v?47>!q|b@#x%#H-Pc?j> zdMAtj(1CkRCk*~f^5J;lYQ6fsAnu*=htlxAna^5;PGbg@z^O2v; zlk3&`jw9%PPdx!`F3L+4O&AecN~Oc+Itue~&IDUx6KL-CmI-qX*; zbn^NhRf(;6xnBiT~ zqtF!_?wRPfT%9aUyu=sNGJm#uT%IAM5>A#h_uULJhfg2FHOzL>vrWq9VZrZ2wdCv{I&%jmq-hL!~^w%eSa4Wxwa@ zvysE9RDa3Se#U8mGShW!?p|cua>1Fa;rXq|%BU^&=UFxsgz`vfH98*FaoxrD(1tZL z;g^i$E)B=$k}TX2-E1AQf7bk6xP!C3XuSAZ<99GHJpBT#~YNlsiMk2h@d$+)SE>xHs4+8^FYJ<@(>t>tU|9<^8ZW>qSs zi$63uk-SNE?_iMcxJI+4dl(BNc!uhU`Q&V~^ zo38Y0wq|TN<9Pd&d5^U7^`3J*FN`?YN>{z_S{|^{{Mm`Z|9#I_RLt&Aw6U2hS5m+* zOE$DSC|5Oy>BiF?4%srb<#O*o=BjU*sdG@vE^&jGlibYrjvwY^ge{D#_HNbe2$#0< zaZoU{{`EV^B{J=CL{$6Z;u-FeI>$HD|1fo za{FQSc6*K2Q3=hzb2o;!Pfq?hoom+ALc8d*dt53nY6m})xb$jQJeOar&PrY}m#oL0 zhXs^x1UiXavsibjkkx%g$i+FTLRVRqhCTFkSW>=ly6JxBx8Ls0D4Mcnr|wFfJ;#!! zD^EUEoT;{DkYv<^!rmn z-M(IkCy~Qh-Sgb!k7BD=9rOHj$JWcz`l7Gp=U3Bw91`dJNM<#Nl(D}4OZ39)lGH1G z@49lPPMmzUQG3#fdDRP-#zYlg+1s=v=kbw)|0iA5KE1sEktko_^Y=eH)+}_GmzR=% zf#pMD$EijW&&;Z>3e^Lmc{7z?B+uJ>wr}y2`73RdW=VM*nlw`?hWirF0_ir5bCF#$ z&WG)5`p z3(jT#_q)7~GD(~~G4P^C>W{pj$D8Ih=C?;?nf#t3CuFjJ(hs|J&2g_4gfBdCD=?{x z5dW#jc4dw9#`YxV_HT8pp2F&3K5fMd&VH?2qMaCgE#{vZqn_v8Ohxsrp^s};e>q}$ zp=|xBEw5K+?ueV=tA5VW=!Ns7PxD@^QhsV2n<3~JHkl_+gK7Te;*?FzH%>qTa5-E6k;MMSg0)VF)5)G)7m-t8Ug znUOZB)XC{j+*_>$lT@US7U_5IY}q&0t@~EDqH$l1i{HcwH!kJa#~qHkk{Mf8HkF7BN7Zc6#zm%roJUw$EQt7@h79fLi`)i$p3`&spL;r6=yzD>a^V)kB| z_=@|luX6NP)?AetjSHh{CiAtgST5N3eL3;?^3~T4Cm*Uh-28Cwr*od$ zS-vCN?^|4S3F+FosW-fOg3z8V%X&&f6Hj)3`?Yue_Cueh%O9xnHWqqvtRZ^#e2c^O zIS=1TK3Xd#utT-{(*XsUo=FL-J>oWfYgoEf>ZF{FOU?D;?I}n9Y?IJ@zw4~{(#ptL z;i>(LHs$hhy)kY+r&Vq=Uo=ms^~XMqy*}KhkDN%5@>`nqDphPz)&Jt~{RXwa8GS;U zE%~h#N|$YqczUh0T4(O7Sj`WWOb5Be?Wd@%R!?Itnwbz>c0>E0P|o>KtB<>vNs9k$ zx~E3&E&d%Q*u&G&3`t9>q&oW-hPG24Dz3yGTMxSEyWhM1KnLn}W zdwBe!c@^tzcT|eKkb2PSF}*wJ!H1@}bv~DRFU>ak)zLjc`l!~9gFE%=Jl9S5zN=F( z;p~=m@|Pa03;%l{U{2Jk#DGQrbFS-3MtnFjEr2I>)04lxnzA!}ZNjhl+Hmh#n7Uac z#qIrWJ>I=*IoeZZEK%8Y$5Z|gOUoCjDxDo%Subzy>a#Z}Z<(7ir*WQv*Sm{M$ByfT z?$5trZk8_-5(}Y;vzYa@Ux-t$UZRRU_ox%kd&qD)IQo*-K^a$^T8_ny^rC zm)F(%A3yF;t@y6NC~@YRbJ0t~CO?)5Q@z)%OZc?I<@rCMRt34~|0<>^%&hQSeIO~s zDnB77u|Rd~#C{GKN+N_VmpxdcWpto#Lwpf0q39Ytmy`(Xi~O&Ev(M z-si=9uP5l{UAGB-!kEVJeA|vcEP)=K28t~+C;QDy-)nPbNh;SvW+sOlUX2!_8mzxU zHQDalopSj*Lr^lm-ch>UI7D+hf6amCGnN?MyY}jTyVa5nw{*7r-E-%rvhCwkopm}J z(tFPTRCwLWUpej8uKl+!$>g8slE`@(!Ijv<_-Kc054$Tv;11I$+0E;I{kh$5<(if0 zX{>uhJaL|_#$%q%N6n>#ZdzSewc8;7h9!#6?7_#-)&s_h+xHo8eM%NiM6Onwu_5-NkUIs5c{C{Hakrn_|I~xGuV}@55jHU8_7eL!XP*DT@+6zPstb3fACO;)5 z)P3q6tN!GVSk-Vo%YZ@e(b;B(PapO_RyGjo(dM)Kt#|$0L)M?+f*Q#i7wvze%b5Cc z8$v|47usWrJCdU*R55mYHyduxQPAGUm0S;j7Rvv_gH1b+LPMU@3S6Gehm@11yMlf(UKbA73TWazSPIg_t)uC>|6 zQ@5Re#OHdU_khZwF8+Atl%z6e#tla7EVpb!zZ)(s(YBBGxt6`kGjv7Vkq>uQ&SrV6 zWz~2+{LNifu1=2r+1Gaa*0D|CJBA_jYZvjN|4`3jB&J*d^m z-FVGRZjR20(9nAgO^fQSe%60d_kWE!W^D!$iO!BR5 zcE1d0%=%A9XYcH<=JJ~{1^&ub&1BBv$&-oLyn#k_m{ zyqk9;k6Os^+;|(u7pWumI`*o*dCnv0w*O21+ga}a{xSZ|v!7S@ekeO^e*bQDW&iU3 ziJ51f-IqILkZ4x-$xUKw<&QUV{*TwrXeq5rUOTVFXm$57=w(FmI$S9P)z5c-U z7^!1tuJixr7FhV^n9n`0<;+Sm=57&@HZ)Y-bJwPZi{ppL0TI5sg^&Eb?yU5zI`}s& z{LeGRe{G&Gb^p2fM`gS&;0d>|==sT$DA?sa{g}tuv&$qtxw_1mnD$#kS$mlOd!4F@2I19eW$bXFw?$G-^nf=fNM&rM||FT z$?(?N9`2K=-(!BHZkQZ&Y;p5`gWaK(M`|lxA5H05xW78;UtXo3foGzx;rGwNOEe$q z2sF0smR+HFzPn}>VtAD^9Hvg2=Z+``KKaE1Q7gR;(+iTq*ha-L2Qzdsg{Pdp-Z@SO3qCZ|iAPTcp%qZFOc!<$NOfoO69l726+u zrUz5D706ECuK!6{vU=k2e-q@-KW5m`>~5iQPP8C2uIV@TC$`0ncMm+?^Ul=Z@^o35 znLOf8gYvSE1q>04l3 z&180)Q~m321@F~d#JauUv9^o7ZNv1rg8y7^XbFm5Puq4VTVP&RNmt0ch7u;h^}U)$ z%~>aO{Z4-vX~=9}E1v%3+}ew*d>^l!zs|)k;*Q@vY?5=+P)26LoUjFnKb$U2 zNM7pH)KlT}PxZ(J4%)XDC_MGxO~>H zlAYr@pTrB5p1W@>=I;^PJdcegkj`UPnfr(?8!;Je?$`96EZ(hHg)qKi77%G^q0(;I>{>__Q`Si zPs#3@J2kf+ygH9zrRs+GTu!N#S0rXIO=S%U4o)yDIrI65fYRxx^k)}OXdA9|d~(aR z|DVz7Y4e{QkFEO?UH8Yz{*apZllui-^FJ%kd>B~XR^OAJk&tj#@{gT_-J5-X+j4%Y z*w=4abH{kG<%H&g-U5L<_Gj4Z_doe}e7{3?n7%EC`oFp@zoa*3^Eo-46uR+>ZxJlZpP}5~826W3Eh5nvmDsA5y$3tZ~ZkygVJZRZ2|$SMOOU2Kd0bhQ&K3hVQvErj^BHaHS5|**0e$suo z?b~mm70#`@E-jxt_gdAb7%`Ny}cp<*HWqlQB}MbdxF253O=bdoTRCTeS5I|97@iOG0Zlwk|&GSyWQP zSyge7qr6CF!D|;5?dJzi)GU|VUB1K0p=g0}|GxTJ+mgA1KWgnu{kBbQ&y%t)yF(rF zs_P$KUH#s6?(B8-QVUI2J+t}|7Iyt%Y{YR3-P1oZzhwnH+w^98QQf0`TQq7dR4W>< zFlR^INGn;(v0%=Nnki1a>#UBNNII^}D7m0;b}56A-pm_UmhW77r8v7Y<;WAGAE_=Y z#02^D=6~=0vMMR3@tBYKEt}$B1uZuhigxT-I<=r)__fpfYegSRo+cfAxh3Sa_96b( zb$50*3aI>A@^OnwyiB6o^@&sFh9qs;@Up4!%s$aXuSrXJROia6u?pOCim87c*jmu{ z_9`9KkkU2&yG|7Rw)N+T5&FRyqdwlcUmmbFo{InnD#N6Y) zXvvyuImbz&VP-sZ($Ac|_S3HWK7X8-Z#Ms-S=#4=5wp&y`-CjdFuQN_q&p#0>HqCI50wjhJdbKm zmA{|0&V5pz0N>&l?|!jmT#8GzdpObZ0GuhJjq3ac-Q{@t-Mih0A7V=lXe)~w%mDtm6YfXfb!2l`b77w4B6RDVuBQWIz~ zNhnU}@Q+U&D?Tcm-fH#aNL=cf3BB?)73S{juk5343%NbYQ0v!R9@MD$?exbl&Y2JT zR&h1_%@jC(!%9NL=l8ud#Mb%{alec~Bw=aug6;a%( zeNbuR+CLRNJlUF$H&i`ZXpYTw2h!#4TF1F^TwbzCzX+jzgG??b4*giGdJazidx3mA; z=$Q4GC9!vIkM6=<@lprNC%)u+wSD5#Rr=)}F$6Z(^6` zO_pP^oZ<%sKdK4xRm3TOtlD+DcOr**tY>&^iPWoghg7W(N{G3J+D*HC<)3GYna!1d z3)L^ny~^fn{;FG}d&NHNx5@(n!?Iu@!6vSX`LJ z>E@QLUymdo{`;gw@5~&nnLoaM`o@vYP_~afbaTYF=>?CsTsh!ZpDDgub73WqE=Tw} z(M2<>HZ5VRnsLqX@9isrHeIU0driGp#rYlRd(09sJ(gqdamoMp)Ba4pbESW`*QM;L zFl*fs4@L#gy!*?xD^7|(I=ds#+t1o2u2kHvpzXu7=i62O=AG*Qs+VRiav)nxSLN)^ z-E+zn+274ty-vCN`Efg*t;7ca*L^Nt4xwS2ZJ+N^14KOWus zA%X9F@~eEQo~T`p&u;15a5WSCTQb+r(f@gpI>VK(Tg_a$bVC+JXup5xFm1{FAakwG zCjZj7`>8DKhXvYSHBPTb(WROWMzg!%e1P#N9w+^1wT@!ItxxX zcgo?c^`<|w?nyoCj4OJWGsXH+mRfm~k{f#Uv-u+ z|4~%f`cVw;HMY-d-d5mvh?jl!(a);U+q)(y zX6?Mr`rVV~X3lzlHh-=$#9U2so;(SXgpS#S!YGR<1TJH&^LaE*JdN`JM znf_7^o~*aoyv>VwqrcK6oeu3o)^!SN+Ma3jTEtoya;q=h_FwYly|g{gWR{ea8HSxs zwQ+jXEyLpHzxXl7%^wPqDJ|11^V`;+t~c1QcKc?}GnMWA3#5z^7((4l)U1;hR7_wt zd2O`qU50S*zIWRu^B+o^VG)vekY&Es)!w2fSLd*8o<6ZGMwVl~ZnddE&6Hdv%cSX%Es7ip+m-e|`MELc(ua@n5B3$YI!FnA`6l_;`sJZmzKZgK9}&$g z+fF`Dj6J%x)YC^h&)}`r0X35sES-Wy$-Nv*g7=CKyIzXFoZq}M&1CZpcFv8;GOLd9 zUod>~@L$e-~LIcY=292ZW(DZY$<<}^;C4p|hil>FTHB9PH)A|9gZ4A5K3Q%pW!*w#`DB z`LT<~gJ;K|XgDy>p1hc6ahb@n{T0W|9RdrYP2`S$yF9u5|7{tWYo3cRfE z<`OsWXR3~wQfKG7U2L>D5@{&UutC@P;%|w`Pa311ISJ%R&d>H2xt?KrA>B%CO|p~e z)%TB|9Eg1C!=2^0)rc+P@823J?^%Mu%Z$SHITPEuc@KW&RL>#xW^&&?J ztCDA3=6gjJC&v9qRi5BJGuLsM%G;Yty_Yt;h|yJ_tzy$ze&d7J{KHwy%Ss~`2XqLo z$=IBMJN&ULxrw31a!s<0gf4#UJQ9i{dnI&#{Z_tU(pq17iZwOw${rJru zW#)Nu`bL_zH+CHO#U0_sxNv5ag_)6e-k$dyX%`-2hs<(X_@<{M z^@kU)%N`ZepJCqwPwbhvJo&<`kLz|RCY816U%ci2U}vEDk$;IRkKi@)(-R&+v*JrA3iD$`VFPzh* z^4ck2%aWb3Paof!y^W70>*k8cB=y|A*EI_!uAaN)tEDc(8J#O0VOyCMn|^24Z{KeE zIWEC*-`cx+3oUkfcu6dMIDM15M+r;cB*|B^!X$cCf4L+txaWN7_k%4HQ@y`hnAu)J~8 zayq8pIQvLCZwsqX>C0o?iPIf!@9PPelQzxgoeHPYWJZ7P#w!uB2daw2mq$$3S)Df3 zr2hHw1uv`9f1S~?dUG{pb;a2ScI!nFAL>-BNxf+NtIjuenppd(3#yFl6}CG0>#TOQ z#~bx1KG-+4#QVche%m7D=i;R+54#>sp1g5kgj$Kt+CKSC$Zn$Wc^dAHw^yRssW)-V2hH_Vdf=P91U8$=5IkK|uj^hZl>=juHN zeZMfxZ9BQv`|rNQJgEc=?Y0CPnPinCdJ^Bg+Cv@swxmAaQFgO>ZV*%MgQAP_!q(aa zrkvqMyh1C^Npk5w*U7%hU46+WXX9Vnd2`s6_nooL*q0wrdho)5_iOL!xc=O$B6R3z zhuEiOY6m}joBd}-ugk4#uYS*)<~4P<+wPT@17>}h7I|^yNl{(zoh%=|w`9-0bn|uj zujP*JRny;}do=MzW8|+x4f`AK>`eW1gQ@p0+mkZC2e)-^Cfk>uU8igox_QOLnL-Vr z+#e)FvrlhxoXohl_@9NBe)yZ*y5F_DVfO2FmiJ2L_l*-ckybr7fV_biW45{t}LmXxV_#i-#)Ehv?U@&nV8Cv|(utUs#T&myp^Pd`6C%-EzV-nY5h z+xHQV?5W9;)@SEF^r_syz-D@CdF8$Cp4Z{cxq8X^yFbjkX0f{F;>4LpC8g5B;vZ(T zdNuZHif^6ur2KpB(w4PP88sDIeb^UQFH7(hY~k@U4*C_EZn`n)RacbW>Pf8SYd_wa zA`>gUzL4!w^>>Cn)4p7tkgBWFurI_nlr{VCw6*j2b90&&uDN<<+POlJIhLuhMRKq9 z2Uq>slo$DMZ?kS;j>{I|84neM{xl7I~&#ylUfcJu70W+TECWyKF-a zPw}{1UR1fNZ|~cuEB7m0$+tG$th6*U{?7W%HosJqr)|kmu;mh)>V6``Qy{)Rbi$FE zw~I>t+BX?$t-k;4;F9PY&F>mk%YE~4D?P|H|LG}?Q%nEPkhecA^QnL4?)_)))aGW2 zTAlkd>uKJE4Lp-;#6-(og97drxxU-CG@o0r=kDb>+kOAfn|DM>%4Xt0Ud=1hPR-h~ zR4p?6mf5>*(VTBfbLTvCkh#{f;Xy&`qR(#Hif4Gs)~&k5@!$6Tulr(mzHwa52+L=2 zcwNNYlDby8Zb_bCB+oyM;F{OAFX6_fdBb&e%}rr_K;6L)KuAAiSiW7moUB8lrt&v_hv-9N)vX$A|=Dxqm+ zU5PFelj8TrWIwH&-SOn_mC|b~Kh-onDcrcQRAJIG-uoJcRqxcI)3}7)RfYP$WcB?I ziN7LUvcTRgSYho057$b*?YaD>uWDHK90+^zeV&zkqG6M6_&c-OUA4SshmU=F>h;?2 zq2+}}l}8?J^Sf(f5AG6O$J6$0KZiu;&5Ehq#?R`0oXBa>_i|kKC|Y#Yt3z55FATI8 zz3=w5F22B`D`a)WDGCE6;=3;G+L zbtf>$Z1yhb`4QULl56)QF#F&U(+_&~Ld?s59?PhRuKTlIO@EC}?7q-%dlD-w(>LqA zdq0KgYCMN)sK^$h19PHx_H{%HOkAuV)E_n3?cA~lckV5_`3$Tq2Y-r_404hI=_ z-&HYa3;QS0alVqnAs~Ye1^lZ^R8g=&1vRJG3`8G?AM(pUh z&b};6-+5Vv(2p;gD<$mwQXj>=n(}sTq1o=xoJ-owD-UHrLND zJaG1UYE<|~(|Ly+a>6z{EWS$t{#&wU41Y&KY-xvvv9CwrwMDaCEZn%auKw~^Z8_`O z?EO!+2&A8IzgqRRT%14ZS5@uvSvGpMt+#fHSzHQwS}ti}l)yiS?XU6aBcZ4ND5q8| zXy>i|`1iDt4Htt)yvibTd#jy|w%gKgbJ?4%zxK&XFDv5EIWKk?*G? ziBU5k-@E*)(A<9t`*Rl^RJpjg!+sMp(}&(>!##f&+zjUvtGRzy%yQf3Du=&2533)2 zWAU6l_RHk>{taa=|5eiSK0UlYsruDdjtw#!HOn3>x;52%?Z-=6%FiXLLv>1+^c)oK zKiNC+ck%|2y4>^Av?nTvt?tY_!nJYbYGJc$Q>~{b)hd0?-fE*~@c-vMd&brJ_ZYEE z{(+|SK$Cyw248Nz~s=Bh#S6QSnz#KYdd3?d}Wt%@_SAvVFFSkbBh3>%`0z-1hlFyw43yF~-J% zt+UL(=I)()=3niC?@BXU0(xEtB$$7G%a!bY&Ug2}|8CdYSOp{&*H_z|KW3nt(pcqw zaP8GI-ra@%tIOZt^Ivwz;zn}d-TVAo4o|XHtJ%prefHIht0r|BtCwm9-MOE!ZG-u~ zrrx+K;-@S1Z=4p@Xig35bn0qv*Eka5b#O`9J*P@Gm+!W?8Wi006vV2y-vFcWt;c>3-R))tp(wg&r-iW!j`mwJwhe6o{ z9%cP&DtSv-KA%f`63%TI@cyLJlBa*(RfJkrtgLN}*0;ZZ<@MjLL;WmI%-7Aoe0@Tq zdON#Hg!2M}OhuRK&4we^I@4V5V zaHITvUz*tg>zA&K)t72)7IvJxupw);K}nv|nijny{1PceKl_#}%5a*}PGj-4cX`ORPmMkP@%P8*^)p2p(iSFn3(j2g^Neq9zw~$6ZL+tDJ+eMZ z=Kt=VAud;vsFn2bF~Wi-x>zanYOUu{I*vM zjxe9s-j!?>ZTjE_qfk_KaC-X6@8t>GGb=>3uGyQ3EN;j-$NF;N8A-vFbt^oz_L}q` zJdu9Y{P2z9IlUTzU4gat#&ud)8SoKH|A~ z`sDDJ9myXywR)5sTrIFN>e}k=)w9+eIda4G$t360$j6ESOWjsm9$EXW#l%HXs@Zh~ zbMLGC`S!xkqFHQ8cDXLm*sR;M)-z=CXC01r}~R=FIdwc-Gpg;g;LQAcpI*k_?la$y{-5xWaTy(L-_N;*W(_@U@raG?v z@OS#F<<`54SU*HwZD=by>pp9f)jZ>yO$?4X6Xk@eR#pq;?Pb2NcjaR1v^&fUuieEP z?k?GN$ET|>aNbJZ(=~jrB0h^a`z^J-yywBZv_pKkb3>Lk`g8o2Z;9@^5q~64s?vE= zl2f_n=V^IQdJ{R_?@4@nGOgrE?}GU1C%sD-$yAD0N9%uADL!KI`Phy1#-Gh589#g* zK2tgAQgi7`TftS9N$(^DK0UByUgUafg>uZTlR-Jx1b-Y@K3&Rb=9_o<+l~ixm+rkI z*k;({A9!_Hb)v+#CkM=Z8S>T#&vc)&Ki|1aKq#hW!-Pc(If7rVQg9L3Rcyjy6La9e zoyj|0^e!9zNZ8xPw*9iI?xbqfjne&Mp*i| zT0ArCZYS@TpSS-O?X!-GU3u_A)J7Fn*V{!OHpqR`7kO!1dyw&<+2K_&Txpj+)>%hI zn*2`N7`eTQ|G}$Sw~egcioMP*IsD-1q_XcWrU|nbTv!-6&nxK4)ffFKK{_&XyHmFbWtv&hv zccWf>@iFH&J-nY|WVU_&;W547v2B;lj0~50d#f;pm7L!~l|5yAtk_;|QIK5S=rd`F zl*hfcjw4wK^`3_FPLyvjw0Kw`e|VBamU&({>xTqZpIr`pnHOu$p5Brv_jupJ3%)u# zLNp3A*?tAwkP2QUbEm7}e#D8JhpIK6oq8K_*1n55f6{a3w6`_s)8~ZTUUliZ>|#$aonfE^@!wN`&JAL%Ye5 znRdV1-xvr^Jl(0a%sKdKx%}hWdEW~5{aqxeA`|oNn6^=2n~ucud)=@4Or7M`J;)5b zd&<4j%>2mr?VsM>WnPnaaN!-kw-SHaFTOc%Y3nXl;&)z$fc0}iYO;!(mP_E>mR#SAT-fcef!=|-jlQmh4Qs@An}d?sVXkm(<{Zo5+`-T3fkMW#TR2`v2>{zi-)h$LIRFY6cU3K7X@i#^pcf zeT>_-Zrqu4CL!sw+T=L`I#&`_Zr*>uJHa{h+yi!QuDF9taa_TbpSV`kr_VRK`MK4p-8jobP#huFCsUP$6&TJL; z*ZPG&=N8u~B_;_RJkz4uZ1y|W`2F%WrJnaOH+Oye;>~%F*SfW{`}WIkSC6+U5V*X4t?9vq#IO)7?hMm&)r)znRi2V(IbJ%6!@46K_tG4Oga(CQS zbe~0N|6Z+Yr3@^kjawh@Y-C}UTg+U&e|IvwlUK{pY4OiqOcGXDd0*t+Pg<|>n(=E>zeKlPoc=|L?Blnt4HJkZ`ZN2Xvx7A*Laa-=%Z|B%;3-`Mh zy*A36xvF*3mDP9CroLjfP=9`p>G!WI+9v&l>&kaqu@%=Jk`r(Fo|@0~{fm_GqZFR^ z#ZTk(RSPX&iF$n77<}>VtiK}1XD`Y-oh`8O*P-oiKVH*SXBL=YrBHvWwZFVx!}&kk zU;gO{$$@?w-d(%9WJgwuH0!ZCQ5osHms59bU01{&{&rjLlDTS!M6NpCSTW)ECr!UQ zoEcL~ragLY`nC2Uv;8Sc6>GK!i%YaipRL^e>U7}oy6UgtT3vtsebNuy+G+mv<3EkX zTHmAcCg0p}DDb7X(VCbf@81nCwQE1=Z*kpsq(;KECvK*ImEaO+F)~6Zt8QbJ~}^Lig+*s2bFqczjzuV$b!h z+j)X_e)SAjsy!XBdgC+8;15#**HoYW!xo?HvvaCQ=w!)*bG*-*RLx`%e;yT4@*!>I z(#Dqed(8u7_^h|EJumnj(414!)~w57Gjom8{`obQt;TUx919T}I0e`y#Z9e;W^|D?W2I+kh$2RyHf@>wXZeZ^wL6KyZjQ#8-&f`v+9 z$Kws1hpQZ3xb$e-PL@(@Ie0d+)xS=??P$!3L<^HAzu(xuY1_OAOSu9nEkNapp#jo@ zOA9Q0E(@aiTvu&x=E)wP`o72hkrIc1*2Ubb`_8DaO>%6S*~soFV=J+N*I7t2TDfbI z>#1pSpWYYy>BcT!wfdLYN$+FL5+17~V{hNQ{`+yCZ_V)!^)LU&@3E}>wDfLmeW}pB zcR${JJ=w2r^S61a;ck2T*2G!w|2*k6$ol@}DX0JAwKpPHt1mqB?&a*s>;3Ehay*+h zPqO}(nT^%bw=aKx`nJYq-t^<&Ki|lo|L^so3BCjHCwJT z-P11pwQS9=H8Ovc`2r@3zWOrzveBbl$-svB8=3FV+s?eo_|CsWEfXeh+}19exKTN& zeFE3AOSWGut|c=35{fHbAkSCq@`C%Ry1LYh`p+88@o6vGN~2$B9b8%?@S@7N@|Zl+ zu1PmNv+SGlls+rZ^)9lu%#&xj5VXTHVlTs&J=fN+-ulgHwn5!_OP^zZ-o3o3?<*i- z$+=wKN#Md%j??$2-~PR4Pwa^nWkv3A2FrD?@7|g0W03RdEbo8A!Wy-FHK7X0kG~DI zJNx+$dQI3Kb@TAN#oSy^)^2LIJ#NL_k=M2-t5eW@y0Dx7Eb}EFx+e=y>h`SuEO21z zf&zoJZWnAf&6yyS7jMI|VCkgE@rNoE)ZSI-Z84r8C)>~ccXLNiy`Jl_hsvDBQLZ06 zHATaJu6M6C^L#2>&aiQ>h$Ew2t!SLL^3|82HLvG#?O3zq$)$PwdhQ!4A1eP4XUzZR zgNleG&hi=81troh6}(+M+cTX>=jn3&6FXm;Uc7oz@Wt}} zLRI_1x$N26Ic;(^-`4z=JbL8h$^~Kvn?J@V@_L+|QNI1snF;BEBC0%}d@F0>W@t(l zlu18&AKZ0?PcQa*^+JbbE5z2vTTgHjO?cV6F4q3lV&1Cr&HMHHpEGOxcX;NVY|`W8 zGp!-u&Wp?Q6U7(}0@d=l{!L16)SP)BvS5o~%`)za*&2rrvd=X7kkV>&?nDFslb;M; zZBHK??)+eRwtt|#mcg>joy?Nca=7qTp zOO5O`1B96S_QY)F<`Qe)E`REFci2Q5uKmx2mOuK+$LXfpp_Q#U_c5R328n|%U;nK6 z6=22vK!|hek}um1eP?r2b?S4U_S&JE{XyA`yxu6@%dL_T3AetVEO{7k@18Rvo3CYC-Gn@_%vx6@$z&(*Eu#Kj$+BKjbF!9LMvlNG)C zf7;yH#!&k>m}R9#g>Z!v3%mGLyT>WFW=h)X%&Fmiy>hu;@;?97%w9nqHA>4nttYyL zM^}dJxP08;hK1~p({duqIycX>JX!kg%bJW}4j;+4C%YF_3VsXCWe{|2+Isj{M28mN zi<8%GJKqqT$DiQtUh|MmC!_2g94_#?ky{k=umA~#-!nWsI zjr;_ZE-Yl^*jF)Se%$ec8&rj-9}D$ycWKF%Tk!rbM|Pw7wzBj!?rOU?1a(UN+^8}A z$ojAAUN2XiFUWpjw$b6wVaLqp-;F%R-7lvVEC0r@Ni@Z7MKE(<+m6L+KW=l{|I^y9 zaoe1xuKPZB4kW2R&rS^9*ehqfG-A4&#r;pa8{A_88GrOm$Xg_`A!+qXj^%aoA0tI? zn{l@^JgW_xQ#)D0g6x@#H`Se} ze$jql^1+6gJl`LR?f9OsDOI=0)s$JK_xYn^^O`1F?asTFy0hKrQt|DqjY5lyC6Ar5 zy2otv>g^$U-V+{2Bu_M~WIQpeIGQn1Vw#~Nt%$0;wo|7e zy1{nyg2w(W9ZPg1-{&3WOMA`wEFea2D}Sfa-b;2XrU|&t4QNzvJ9zcX_a|bGy|X{d zO2|#V_-Dl;?Y`bcr@2l}u9T9SKmB<3rwTj!dyyrI>pz^k&Mv*ON1r2qXCGxr_N@EXpl-A@z68T=Wh`r4dsU2nq9(_^fW*XTHp>p{GX?CjThX{wQ=TAjjSI zVFl)8f$yYdoA3lWvwq|gN|86?_`%_Im^JW&+qM6dE^$v+Zl1Wy>bj)Qw}^Aqiql0; zu1|czH237sP3x-nm=wMH@gugfCQ>e5w9I!$Vg07>qWyV086Bjj)J*^WdB@ZKug@I! z7Ax_WQ< z5xZx@fk;P=KQdENcZjBJ_exd?RlvVGPjjA zV&gPF1D5Z-5}zbzwiIof$m%8bios07zt?UH`&yBZyvWPuy*!W0maq$Z_v-9?wAp^q zlIb((xKE36Ufay`vE0r1RN%4Whm%o!?oJ0S?T+eZ8k&4w zeENowiQl@%8JyF6!os#>?+8zDiW4-lkB|A#B-1z1|M3@=N6GBbvrLMQd&*0?L>cZ{ zP`dX@;>`M<7@>m(H-gvKT#uP_Q1Rft(htkCRyIaYNxIMah=W}>+QdTW!nN66-{;+Z z$a2$t*0ab(nPHVz*C~13dXU{MqLKA!5#yv6D;S@q-J3mmN^h^pM)8jUlWr@{6)^qd zduQcl8RONbK3Mt4{$xm&nz~^xNLLlTR5TN&|Frv1a0`gwx@3mlr>!fFtdI<> z{9nt|X>xVjix1a}`<&b6%dlB%=M{>!H|IrlTXFri)2>zHu~;N<^XtVMW?Z(g z*8I2pgsRe_IB|KFLaY5c{p(LXHn_FZ!I(89T<2%+OXiB0%vX>1`9>`GTlnePIpw}n z`zG#pm@HYdYu4NXB`eF=l9W|nlb30%Nf-WfKTB=fg&dXX2VVH5WL+wH)vR<>(@}D# zR{lwbXu0Lr(w#*YMYSL7&GbnO{jz!`Pwl03x7AMV)yO{?F)6U#w_N!0`=!=Y7jSJ+6}?+k-8K9D!)wbqW;F>PIAc_LE3NTpNXmAV z_~{z^@1LK4bc&zK2DQbL9scPsf0M}g@;=ijk-gP=y=KtyjR%=8T3^~-^ymGq?fZC5 z#f|6*O>+T-bn~l32-ev&3)LhaK^@0v-4N&f7cq2kYOTP{@dv0 z>g1%Oli!t26p<6M+iSSwG0!&Z!(2-;Betn7;GJ+UdS&C=)!&i?uT^uc{3-SO&73>3 zk{32@G2O;>jnRC?9&_uNZ{O(O^8MP(=(3^a`rZ5du`GXf{=PZ;UD(M(=Z%!tO_65m z>tgVVld)i>W6*y!c$ z`}-zgTI}kaW0z}u7=){O^~4XolE1srzVv>R;DbE}WWMO>8P~hN*tg_OZkTr;BcGPThWF@?u@-bvJVgRo1Jvt#fmgKhDMf z{#D20+Z6_>75uzK8x;6=zMm8C!l$r7H}PKG9jD!%JGaT@r73++xn2I*@JC9>#TWml z?^qKSWI6TNKfU&%V_yw|lSJ%~IZSJ;uPi*FpJmW)yu-CI1*;`qRuCs zT6OzR*+RQ*zp_``>GeFXU;9gf-R0{>-;=xM$X8n&HOzH5FR7utKYemn^Oahw6c;*KS?9@#^=E9`o5*eaSMcJ=OEF8PY!6wwhXSo=C`yc1w)f zcw5A(w^&X)ENg?oA^An+PaA69n{KWPwA;wjeBl-64U1nrXWw2@au(3IyO8zf4v#hF zClX3!{TJM{(BSW#ea%Vad7;#@FN&(iZhKmlC9A3xUfz0I_S!N5Rkm%Z*4tk@b)7xD z>2k$eX=U>ru20>L@{3EGIhj6OHX$&|!08! z9S`jHUbu5T)1fJQCmzU)ecpXmETNy>Vmgn^KgG<~0*{4eG-vN-Yr0^|tjKdSMPbXq zbrI*Jg5*?YoY{WW_rfB>cYV7~9;`^ezk0*G^E|g!T~%e?I(-m1}*=X2#B~5L6+^O^j(k3gsdJLniOYF`EewLmjyyy6|FuRn> zXB+=-a(R%rjqCdX$J*P|HoSeY1K%v0ZX z?od!|wAprby@D5m`~j^MUK?L_N9?j$xKN&r`=ZJG3F7SSpBF7U5_pzxszs=w<3;nZ zPhN+db}j1H+Ai_`oU5(sh>2OfhFJ{P-~= zZDLXP&#NbUzAQSmdg)c4W=?C_;GXj={aeqKmg(#(UG#5F@U@Arr#q?1s2$*4z2mjh zft(e+XTlO<9aa@AS$HRJ(*lRw#!~B(XLAo}Z%w&YAot9gX8Um#hx^<5CLY-kcce2T`^e+X9fIx0{bTxl*%)Q)*D}5VYK0rE3ewd;wQ;z40gM| zbo_Gc-P~>AWOnXVsCs{hgLUrq#X4E7AFn99dLibqcfane6QMpg#TJ?d_g~7Ndu!eb z!9Eo$-|BxYuht}NEMd@IxJNYlS7^X7=T~#I=0-2neaV(qdv@WjC4DZd5(|%4XQdf* zoOpNaP5!(;T5^HA;z|px5^rq%TDxt+dykiaAG(h{XY*UbSiR`C{PMudr)JFD5zv$E z^K5wOl*UsryImo?6_S{IH#z(-psjdqsXUIkjf0-Q&cH=~2~| ze_Z%Gw?7bDWRSDvkzxMn2aQWj9;mf^o$y04HTAjR=DCL4uB?j}Y}bAK@YDjaY5Je| zkN*DmwdPR%>C@-KV?R~5W{O&J>uNie3df{0?fSxaVEYv2b615A%W<}p{tNKl)kv`bCPJ#gx}qnsU6pUKF~``+2G1<+H11qy*}? z9eaC%*>NLJZEA#2!cX39U9DyJ&K%rby4j2QhsP(c4O0b|#h7Y8ihlM+@p(Y^D($}y z=heKdN!7P{GyO@|UasHQ;&$Y%kXqx|SZbH~;k`WT{dMe*=RA%p>`qFN6Ib}MP4VcG zlf5y=uBGy5d@i1&x9k3Hp#%PhHbfeVrOKN!e&u>}Pb{cv+WufsXStcR%$k9lODil~ zJWZI>A1c1Cc%E)A^KR=@2FCCZ{jv#ON~b2d>?$c>4S&O!*>9h7C?ff;+mym%WwtL9 zwk4dO%QHVSt;SLOT>aW?oqt{Cr$irzn$KM-{Jmk8=1%Ut%9TGSJdEz2JK=hlX=2Nz zFUE4}hrKMhF6`PZ-yx*hJWV96LAo=d_5RLi%O70NeI~D|_;G0Ctb)|(OQkyJw!WIC zb=;p{#q&Wf>){#NO>>V+uhY0-ZK8KJOX@e*gxy7V7}vJTYwNPJwN?GQG;3NUx6S7) z*~pejXC=s>sljB~)Kl1|Pa^ZFDJZ)+ZWN&kIi+N9eX8TB0dPSnI z>Cv!)J!X@n{N=7rd+zdJ@wV{E3m1Id*Kd)xL`?g2?*5aX557C{`d9Gn{WH>1p4_{z zsPtGHuV&#d`J)D!U+35hEq+{hh<`&&vW<^%=yLN3lb1b~jJyBn#Pthp3kzf~y#FWc zsXy((WgqTI`o{h5OqIRTYTvA1cj$bts?pNT6Px+(Brbd+AKjDldf^q7e}QxEJ+FO} z-XD2Jt{}pHl}~{6#MBA*ETtE9?_9|s@%YA}+Q(|mZ`V~bE`OKLn;~;_`-izL#}<4I zb@oX4WF@=#q~qD;+YLQr^bYm-m{e^leIM?yasD%xj*BYu7yUo7d)L9!3cLQ#c@QyM zR%B0YDO(1QYhv{8hfhl4^B;W_d~myHO_G9xAH$5EC*>a7X6;RVwXARN&DA%r@v-oy zuU@z?uE+lPXW_`|x5rs86kk(`5tt)+gw5RLU(x;2>#tWy`l@t2XspONAr#wN;AY}+ zhRtrxSNl&gmCj7@Z~v(C{V%=kP`G&mZcaE%X-O$(nfP#8#QQ;zidZ zO%0DQq&zz|bKOMKgn74f?C-7+++0 zt6w-x+{$*xv!j#ml!3$z`HR79A8&8lYW#hn;Qc6VpE=Phc6%Aea5`Ij*FQTYVX~pG z|NgIYrnkmbKAt0P6DQ0nx%_GSZiB6PHhCJN2_|{=q3Rdit+@*7leNM9X4YLNhg$r)S+srZF5yc@j?Y#G? zV}{p1|5lB@rgKW=bAPwV%N)<%B(C~19Jd(`bIxk{_u-n!%H`TqJBk;b;4tR=G;e9% zkC7A>;IzT)@gKf_1|jul?U(-OF!Uxpfbkn7X9)$O_l`y*(u7eunR`jqD*FmhN+`e=_e)mG82t zpTcGLL-$Vm!YfXB9&4nJ3Ye?p@H)t?lUcp5s_?AkXU_VX)=p;C$9Lm%m#99zDa5nC zlG`h?HZanm+35Dllaeu!%fGGJD(b#pd&|7r6aQ}Z>ike$^>q2}wj?pz7AEd%W~n88 zDercu&6xG~W%~~H{f2j*&3u%)@>aatvVDEO*&MHl{L_76*|aS0`keRjq7hEt=3d)0 zH~zsJu1{0t6%N1P$>RJg9}rWLmoIasbXDNHEbpBhcaN<!Q-?3j8C=_sD(N1*zh`Yj(21?rQr_=Ld-vsZlwC`aM2O5K_o@TAS-Hwp^ICGE zjy+4b*57&WtBR!l%V$qjl*>O=?z1uc^zr-Y@3S6tXuVssQ7q)t-FqKSM$Q#(dY1q8 zk45>?|G!WEXS@`Zx(RbK4m`yMnv65EG)0`)ZDFoppa2rJvC;QQ%}X!IP%yLrP1_Ni zjs zzEeDSP4SV;b*bj@J`t15=M*HzE|*ky+nrZub92_eZ4X5`+_%n_%Q+(w?!s+)m-$_u z%G!{$s!1$6W}R!SzHmD0^m6@1YvxZ(Ecckdui1Hc)ycgQI*0$)^Z&PJd#A17@0h@O zNBP0K)?CxTGfC1D?|pXgI@jW%HK}*6X-KkY_kpQLINHpA3%{SeM}3mz#NFIaI5VtS z-rZjICh_vU-wBeBCM89#XWC)?IbN+taCwD!z17V6?WT9{-J21ZG$r7Y-}Yk>98LYt zCZ{Vd>gWpmy3sI$x6tjCU$B>saV<|%n@d}_)YQ9XcO*q!vgfV7HP1<9NpRG=DTfyR z7WlK3^G>Dlh5(Vt59=PEQ~tea=WXvjc_KSpj^!RGi(V=k_(SB~C!QU~3j5hN#kBRj zFTZhe(L-VVncA)`TXsHoboRcPt3NZ_RY&)c=Fa^KvyaVD=$f4;#uR6K@$C1%O|cvY zgg<<>J0N?=`H8*CZuTdYGiPzI2ygiMdsEZw!+z&oPi)(Dxh2$1*!?N5@U)1RCZ&xR z`c5v0)9{+Rw^S_sm$~=x#V7oxu2L~y?@9T-^}oeyy&*TFLAi-(%AYyn9TUJL_BEGDYcC`w9yZ3uGR@b=j5i zOYoqGP{qYH)$eB&G(F(=m7DrG;B?TUfY!>Vz6y=u3Lmx|IsR$Y1YUWwv^fDZZQv+r5e?6G&EBevye{Wkai?U?OTz5i7kYnk{0A>V)Qt=g-cX3U&obahQ-bjINCwC2IU_ zk?Bl}b6IrpOa23;HE%E9x-RjuS?gCj_qp{M&$t@?%ux7Ubobhg3vbQKBVwN099b)K zcV3;;$1?G+N&9!^T-+kY`i5WGQsQ6sXF2{^&Q;%5O=B@Rm)|15A?6pXVzBd>*tb)% z>o}%1mps4okmL7buJcn2>Vl*sPv$>#xcY(nM6syZ;#7{irz50R#nf}{e75#;X{W%0 zwpW^)Pt8b6bZ!e>`m1h}TSE4^kEgRc#16_V%vw?KR{h33_O{=y%N^vHE7_h1d4&Ae zH!y!|y~O;)wgW7@T4K+1J^wXqJLdiMcg(}xtD3dD9j+dn8n!jt-Bfr= z!tK1qiK&dwYwvEE^l?q&jiy$S9qGPTt*0Kpz*1kX=j^(}cE95Mu(z=|ogM#(Lzdph8RgrhV5ZJ4w8>nN+#W=+w8TZGx+&cCQz5>iFJ*0h5w!JwJGH@o7@w7Z<&O`R{3&>) z>DwFMo*Hgg-}8O1Y~Q-t)&ER3%$#s+(>2FEQ?Bldf8OHt?$X?rfBn&3TXW{R2|ctZ zuA6ft`;f-Ll>&O-dQNSRJ9R@rSZnp_zBw%|NxM#`#C^MdYRPH8lBlE26ZWwwvnTHF z*_gQe{(={gix|3_I>ig+50|8~FYq$1G7edQag)-9z=OLTo_FHvorR)4-Y z=lq(tAK$!tvwQXujnG{iZRR~Lp7;6Xvg`L`c}HG}eg&q;rAaPsYY@ApVeG5NUB;yUNSxxU(5iClr7<6G@^K4I zyjwTv+A+U4l~;55Zm(Bz<(ho=Tlb^y$#FM%!ZPYOmq`n{_+HsxR?RfohohoXqUC$V z!W5?&YC>15?YtKsTbZ@DUd@Ylp6{BlX6|i^UR_L_`26Ub^ZbYZ`yKYu)=C#Q_S$s+ z;q@Di+^gE!A5A?vxl-cNSNZ$@ANKVyc$rl?sof9R z#T@UAw{6!pu2|U;c_(zQN!imAzq@Z#CuQ1Za4pea^lNc!V?Tek!`7ya%xn6Vmo{Cz zdaS`$K4;q7Z|b{$FWO2Quf-|_5T9Gg8yQDop2|IJyeB|{@`ZK$0j zVn1Ph&YSL^IbnZHjO+^|2%CvuC-xmIzz)GS(D!i+S~nuT^N4; zzS!?N#s1~)UH<$J^fyKw`e}JwbV0w?f&D)JVmLOh(CY90SiWgD-#;ex&JE1f*E~br z)PFM1bN1S;GVNN1?~K34TPDnt{MLN^Tf#%(pR+sy;wxFUG@dj0$aZmtVs*g07q%$| z`?i0JD-w9@gg>}gn2D_pS*PRZ zX*4BYQ>-%P^z8WLz3S4_29~rD0Byj0Q%i~QP=QjOkXqghQP;9&M zU13i4T?!kN-@W?2KC9b%-rv;T6~%L1_)i{Sw*JWW&%gh@IGcWjqi@ARai6tcInJmr z_?MopV6FPK>7nM?5W~llopvq#s#SLP{=DZZhvwb5cV^!7+urMra9d2?_rdn%;eUO` z$)zn3)+gMK-xd%|n=N#`UpmNi{Ipu` ztXQYNuBmSBE9SR-5xKoKIC6rbF0b2;c~7n$JG4kM-{}9Mxk1c6F$FIx5At*Vu$BJx zaofk781vt+RyL`}i{JTEweI$tIk$Q0A0=))v-RfA48^pUE+@~*glFe0KVEGRJZXl( zRAJlf<2SeaEV&=myomSG9OmG4`2n|Tc2(LhdCTRxf3Bn8gyotxX4fzB__l75i0^4N zS>*iU)3@7l%2!*rEq8O9t>9UZ>hz_Z-??OOS@VnjgGL*e6<@a&RaUQ&*rb}{du}e1 zRJA1SQ&~G<;qh|O*Zo<+ zwwGPD>H6kP=Ua}NX--%b&gey$HQW(V<&&9WZt&z8mS^-kUhtW!tJVXKwDu z_`kSy)@(_$4E|2r*}rnnUfEH|-pS#2|A(XIv0wa?QWx)1>sm0)E%2zIsuKsdX|Bea z85909$gbR;v}0G{iiU`?{i)Qaf#%6)f4hXXFYh_NBP#5WMsxcokw>0_%csnWU-A1)M!dbR6|1Oe zh03hct13+VY&b>JD}Q#*_#XZKqKJ>@YsaU;BFay8mi};WugZ+9j1lq)oR+sL>Z44? zM~%HY%fm$@^s>4V#GFrkTry{sR{pxD)^=?3!>=bX{%hsm=Y4+@Gr-Z$5P;KSV#=?_Z!{T-2XS66;U@ zj;?W?XsKx?C07(MLCjN}t-y$X!v+}%jRi;6I7A3fUMASOCSKM&nEP)!+kr-hjT08; zEZwwEx#Bv%wSlSYt}!|S zTslz2-pJClb;F~Yq)8X@R$gr6`>o*^HuvGNZI0)ZPd6;SGRwb2E7vLGclbg3k5LVmr4m z3EkA$QeCDVW_f9vw%LNiM?b%x!gcuUkGj)t6Po*;T0{sh5|Fz#)5zWYWbwtdEK7Jb zqIkD2I;goqPWypL5#yfFH7N>K4I5f*x$jN4ocOqQ>RH1Jx^qw1?_$sB@Q3CJE=-)C(99;@6lrBKGRPr)V&wbTV|lnXf9dW&Tuv8l#F2c zEhRg~atk?q%@77N+YW~n%a_dB7j*L9CS|7gw%b1&EOqRPu;@#DuCROUx!*_3MV0-U zC4TBM`_I-rV`Tcyf2Y@~ZS7v(E*fVg@AJm`@7^vs`Sjks?+pCCyyBdcmR%F+m4EE- zt1K>I|3mT!`-LqPPl}4~*GV1ic$RlGAv4o*Rd%kz^|uFuwlx}Prr$ciP}ndtNJAz5 zBHJNe<$rSSdYc-#l={36XszDa>-p@+fqyr0QYYos)NQcPU#u=Fp(m8nD;wmg{bcTe z63ex>3b}6?t$lv;@V0-N0?d}zZyc6xDv9e^#aDUPp~LEv;(E2(Yl`~IlVe;~&fB?^ zHFNQcD*m?UDXo@U+uelNG@N`mI~ClD|2=Ekk;4B;ck*G^ge7i4!TNp6{=zoS3G^vw!EBlj)KAWfvm6tA6LMDq~)8_tcGf6B=$LJbbw0l2D%f z^L2(^&$k)wE&CFGbcW35g1VPn=Xm`m#AQ3wtehW}=>2TMj-7{p$VI)hOy4cou;E1W z&m6IQgNqvuCP>V3)8k+euoRd!h2!tj%B|~X-o5!b(OIDEHGk-@cL(>#U75Y}aP5}g zZ+SXCe!M>`LEh@!k38S6XLc?7dO5^0JG_0L+v?SB`*PXST7L@{SOiY4sa~ff!-H_SoC}G~e zzR33agw46R+i%M)+c9%yv!=CN*c#?!o4He>e%5_{86je|`$S~iY3sU^v7cGbUD!R% z{GVM7n)mlda8yW{-P?ocsHwA>m0U5_uM(> z-Ur7OZcT{#o9P^|I<6>B_kW#?xbK~c$Ro$A-Q*udKsgy!Pfx zE|h1ler)T1@91N*$y+1lr$5SH#Po~pz`q9WO0Tm0j~=oMD=*G2+Wc7N*_)h`v*J(B zj@^-Cy5KCg&h5NuORgu`e6yc8BV*x=G7F)1J}v2vEDJ5u-+U`9=?Z(0p0jtVm&RrN4@K3=>yKD=KCv--_rl+EE2CUwsi41a_uhPUuRYbj z_VLdAbk4Ohe$ktGH4~#JE{)prH!$v;_VmcCaJluZCl+12xmkYhyqH&RetV~DIm9Wm zZk)PV<;U{J<)uEZHx4})KdpVv`@7j`Z{O2@&))HTd*#x1asMra=Hb)D^iP)j+L8OW z@c5^=zt){vvN6Tqr>uOGZ@BN4;iH5zNnGhMOwHdx>F0mMgjoJb z`4g5?%DnqeUFOOMs%_q!{qi5VmQ5~|Ud3E{Xpd%gmw9-|hQi{@=cn(!q2cK@Rrt=s z=d0hHUnuFTy`*$5%h~(B_SHh>c?Kmb7H_Y-HqVp2-mF^wQoBS^WNK3MiaGfu^WNY4 z%dh5Jl!ZB303HJXjTV>~m>~AkSz0Qf549T^7!WmD5PP~eB6~%CvIAL>q)(TIkWNQ0}S%*PXhdMe=c|^aXG`} z*GJ|HFWw)YEAhndLH*DBo6Ft*e-qzdU0myuUtaY6`eOP1lz+}o%y!?mYfroMc8TPc z!mRIqzD_*zcCXYF{=(;bWv3MGe*V61-|gd%g*B(juDSpJ+Yc9>gOb{B{xQw(EeYKH z_o?BB2R%Vq^>+4UQF|=yF5cq}d-2zF+lDAh>2L2JZk0*t$@|Y0@BMu4rr*YXPs5F; zZVpb!7C6?jWB)<5Q*6&uFTNDDs}|jIc_!o9g`BUy*3bLT&f&Z>R%TJ~xdjGOtO=w}<)^+{BG~;{A>l~)=xm7i<{raHU zXR)zg#lvs&FHKiE^gH;$1%_s|clQr2=5W+p7@+4O^Y707qv>nchRdBy_^&t1mUz+jP|I3obiK}NCE&p)&%9PC|eI<7rHrXF_H+6Z*rT0l-tEoofg2db-=a;cX z`rOLcX`j3#bDl$`5{JrXnI-&l_MbLcwcyad^orFj*Di|pT26ewajWc}usPRt%G+JM zE}qfZm)Whtef53(rfs%T&vRzPG)3B(9s7Iv@sh;2Lf*+z>S^tZf-fGu`?=U)vx%Pa z(h0t6c^2$bYML4JdU?M@z-23h> zNRf!X+)|}G<@BqRMGV`gshRAzpFcnPueL;a$lZmZciRuLNvr2s*P2~*UJ!NSorQFl zp!(4t(`uHR?RyCsn!)hJ%x&l2=Q)orT{&hm^V;e+dXJyD9-JuJ_eeSWERWtt_9A}eUWH`G=JMiF zo@5gVxfz=!V<)WPo$tn!__X}ST$b1p*KTw6na=r^g(Bb5@?tXonxF6g*TY!3L1fBr z#XF~*GK)C)vp%p*Id0h=sNMQuf8vMBfjca|7FfGvT<({8D&qZ1KTc+T1Z$n}vX8=c zw+=c+NIu(ce#FtBtlQAb-C^OAhcB-%dx`W2o?Tnx?bNX0LxSQ74hhFFr+;PdUX{G+ z;_;VKoxHu~!GWoL%s<|H{rJ6e`}$eQGEJQ#)(pEFnUDV4%3914_iJYSnhlCD$Vo%KdmLIN4OWn zd@)#k_TSNuwQj*}OR6j%`ZQQ_EPk+TMWfx-2Kz13e#gICu(RIQT5Uz9%0at7=PH|O z-FO*3a;w+#-(Y9i>l%>5tHYNfXe+tm`IJcRK5^?Q?-?{-{w5Y!-WbzE)Gc&??%)GH{C4v5lrmFYegx{dXd6 z^R+ds;@?Z9QcU#v+oJZo)0y&P`t+CH`R?AQZIwh0O^t~&XZk-m?ZAPD|GDII4yJDM zNH$qM`X=8UKh{tF8vUW+@~n21q=XMeD_3y8eUa<5 zC*ApZUPp+?hJ|j4}YR^o$=z#4$ zT~}t`d1su|y0i7uhr2DxPt(FT|D3#KZR#me z{l`yRUPwMq{574;ZS78ld_%(}Ga^3*{ZQ3TIJron?xaa!)T8!8wVxQ~e;3-5&6%xo zNl@dJ!Mn3P(kl!L>bIIqz4ACH=SEdZXnXsPr5FD<)b&W+pW*Ro(;4;U8)n#BPn6s7 z!Kn6Z`HbT2m%KKymVDt;I<=x;#pLCiZz*wn*dX?;ZNmcR$vwZt<*hC~*?l%fmA^4O z<-n^$4i=tz%a$Hq9azNPTNmTw#(OqSl|O&YX@TP$%d=iP1kT{%?!O)3xAl(J{bNdT zmLJc1XHH~(UiDk;E7zL)mB)W5cwS&%|6Xo`uz^|gmdROmA{j0P>({MzwaF+uGpTy= zF|F2P@lJj+dnf9~JKFtU#XD2d@1NaSuMJCYtoxMWXkPR0vYLY4W-hZG(|u+wjk-Ox z=KK6bCi3~M=hu8~W)G{MzlEn(a`BAD;#qrpo5Z4XzW-?YZjcgDlYC}@=(aB#WRB-P zeets8xPuOtote&gmk8++u{!10mpf+e^LtWrUH8ND)nyj1U3UKK6zY*=YLDGh+AQ$N zTQ1jkewgE-Xs7Vs&)>#Q2=~k=JQiTO+1CH#lO2_23!7Reyfd?rW@O1|n(OeyI_dJO z3D@2g1w@^gz>qrO){1YPzAUANiRIswCv&7cwo$k>QCLfB^0|hs91OWXvddN++HouR z3D3L@cD)SqX15=?C7y2bKx^?L{o@zhS4{ogdPh0pV~+HpZw9JtYhRyzB;B*4Zjj5w6N#>d??MY=+N z@?EyvW1rnJtpb>x8kxDA+Wh3WPy)L&Z?Za1}El*y?=83m>L|_ zbT1365lKqyc)@3*nSc7lCiinsMIRfnYA4o2A53Lv7y7|BgYih3*o@8F)iY!qEcX`7 z_;AbW=GHqxRf*X)7v8V=cBw3q<&Mp)2Ho!*Fa8`lG^hUNA0-*(GiUgD&V8C1*t)dC z`7OUyrj$#LZvMLhj>|G`Ph)%BXKXDp?c2xpu)OO^men#lzDc6 zC-dDeG82qslGB_Se`l;Rt~e{8UaIGB60pb3eCnpSTGeotywlVBR&2J3S|x54u{nKz zl6${cP17ft{eHjq?5O?7@w{7)?|~Xu*y*F9+a{b_!xnra=5}j7!+Z9+R};70D7?5n zm3furSJlR-oj(QJ5)9v{{NB*~WwKqox@G3;sv@f=1{tSLo!Dn5x~0~I@mfkquH^x* zDKDqYIcHFl9X+dO=SBb14>~`~@%&U;F1kP?=x6(!unS31+_Ad##}uBP>e;Tt5PraX z+ByTD|NA=+@$kg-?3@?3-s>gv^d}LE9@`e%US;q$&CfsiwPaC@yL6)KjHTU^MdvOQ z)wEwSu_8yc=1}y4Xfug>k8+MV>8{LRu)p_BNYgtpq;g8PqkfV4+K|6@P8RJb>+otT zI;_Y){SNDztxI#?mwUwQ{r=nW$y>G=9}Ro>->F?p{ldjd6DLG21(0~jSCsy`IYCa-1O&~*P`NcA?j8W zU4HEC<~e3l{*~*wu+vVaJL`{m{4@2k;rNiN>)tOE@Zg?*SN=0)r9W(HQZaQ0%yvl5 zN4RZQ-7*oNqg(bk6eY*;l|9d7!piH~2)v zr3-WJ3n_LTyk+!q|AC%Uscu15+ke{KZY?>}5`7@Z%I5I8LX$5`guKESCsZow&Mmgu za-FZDMXfvbP06IIcbpnO*uP(pGK0rCN8kI4!mHX}&Ki-cEN{PS;(gY=@QFsN(8j&9 zj5pk4Ywt7P_cZQziV*m-!5C0F8s`=8~n-EY&>^xOVag~4(wb0d!c|A(ei|6X41 zeE0Ty+^vwstg;tbujchbx=QqIT!KD^3lo_WdX z;;Ihe`i=j){IAvK6_!~|mMd^sDXy=tcV2#t)U5+Q7RL+JeSKKPEm_I?+C2Q^i-$hd z91>yTDfjaa<^@!QZ+r0V$3!&~rZ~>00tZgWX-O(?u;|r1(X`ht#zdlH&L-A}>%AV{ z>3;ZemTsJPw_={z)W!0tDchOd=e(M~jm2GccRZ6!W_IS?M%z5YNhjByFOlb!DZE#| zucErH?AOB@;L@vJ4bBi2PdQGs;KVgx%;O4-W+m{iTTI>zqLFMX1y`Xzwye^ zV|K`Ct^FIbBqJ_WZMJ-uRwD1eRpNd0!*_w}C0_b|?YdaYvN!3I9BZ{-Pv}2d%+jgwNK0ieVjUi-C?SHWIuKU<0-$_VsX3G1nZl1ic zRNFf5)dD+14J(QM>mT=p7@y?z&Gb_~6%-t`^BUtuxh*cjwg-QORYZBqds-=m_^r6H zYJLXW6c~^yQT$;7*)#TS~(JN*>-sx8Cw#9E(S%KTNCE8Nb zxqfa(E+4Ns^J?kU!oP;v_YP((SDy9Y>6Kq`FFQ7GxV}U=O7+iQzNqJQQtsw_`*Kw0 zMZRCO-&D5n-Ji%8t+|PC~LES z$CfK^ybAIPrc`XK)x7XqRb*Q2oD&NY_Hv&KySR44iByHwZ22dl$CrQq^l8S17mH+t zH!jV)X>(LRqWi|(^T86o&o7qvuqNnjLp=NIDR->}MCIbo<=>P0dtLVQRnPbAq8&`r zO69tx*M%K(-P;=^DasQ3Vd?gzxygb0n#(qP+%;9y!8s*(`40!ST(!(0oXwL9l!E?S1TW9YIemVK; zDaZb>|3ViXvRdVKOY>ekQDS&i+Ck+*w&Qurxch=?4BDC3Hy%IjZMLKS(TZKiQu40* zrngw@92aJ-l5$=!rIKTQsamSJF}LX@EiJ3iu%N)Oprfm!Up>0wxo-QFqmftAERWA) znI@GNayUL_>+gRvxO@^54=`7HoUl4@B5(fPKTDi^Cv=Iwaxh)?(=Kk(w9wE`5?*2M zH&1`8?Qt>?{3j7dL!^yql^YdxNPt=VXrX_&io z=-KKSi<`Z-1>7rmwsXHt_KxtY8)~;3PK{jHl(Q>bIPui$>193-*l+DLa=GBT&VJg( zqt#0{Myss&6dfTNnYp({cjFT0T1N>fXOV~bJ0rimI`;9%m2+SD(=6u)+ech!tmeHZ zXnyf`%$ws^nC~`7m2YwrnYiWi6d%z-=QZkbv#n}Bta^WAPv-3i<`b<`SD))RkrC&5 zZ+AhVrL~4h_AkN3>wYYF!7lnEXZ@=U`*d!s1+B~QGEA8{GwIDZbGRiyM8}?7IpD$sL;Z7r_|@^weV<5$9+uw zqZeZOpQD>ytI229>*G%R5wSh)tXdX|uD(+~cgP;eJhPbDVbi6fQx%%7EM^egqq{%h zge=>49$EK8DIUp3ojff4|Q{D$?8m;!}fpn%!47CtnWL2xGA=r zWS=URR(1E&&qaGypVsTWBEb^>y5hixm*zWGxSaaZY`OQ+o4rzRv|qjdlE?eKPItw= zxozQ&J$L?Z?c}TYdLzcyc*i-RPW|2Ok-7z48v-^Qdh+#4atS+^%On3+n#Y^j(ihh5 zZMpe)xyvElRi#yXk~=O4$R&ntvE8#{sq~z^pLT_Es5dQ(aWUe}n$Gm@s-0HXkps^o zey^~cR-wU^ARM8e8+mrR$1A(X(bEFfai15T9)B{OWzB`~Yi2Xl*&}=V>W@lqsn`Et zq}>;HLni1m!;;JIQ!|(GsHl}yS4li~d;9cH*x7#n58`u04prCrZVqqS&J(pH)vG`3 zMOyL3qO<-9Qx@o+UjJpr>j3Fgw;9dl%N^6%H)}AKC8ek^eqZpdaVl@wt@T3Z*SuBR z9?H$nV8eLCI>Yo!VvO;o_&Z$B^fq2$_;*jp<@Nf>JsVFIuJ5>gic8GI@35C$+bu;O7mE{`-4;D;r@Y;+vN{wvY;!S~JO84le$L_-d%tyW+Fr5ff$5qZ zJafgKs!pG`)mcP6r{vR*=ZotZbpPCKz!*e_42^>Z(M>JP3}FZM8X1^i8ALZ#AY#eg z*_h~j+3kXL;!S_rK2KYGENNPKkYikwN#;7$f zes#mAgGtMxW8XzCUDQ!1we!Yr^)wAbjlD+4A`@-XdX?>FC@k^Yd`$HJ=I^KH>Dcq6 ze!eQ-zhOVmYK29`R%`m=-kvnN@BWbI-}BxHZ2NcK`CVAM)1E_j@1(51MgJX=)+gNk z72dOIfzOuLk89U%2nl$-{r90hy^l{`^+k_u_r9fx{I`;SynGQoVIkY` zmm8uo|Yu);xu+iM?ie5{@Uc)teWZCAMclmjxZ~SZ0%D;bEy87JkFFC45 zmYw}IYu=P1DgV!RHf_1A*T)jp)YNg;f3;+z z)2gDjYZepOSorEn6*{$4KcD{7`Zh_eCpu3+}yN z6*M7pPut{Oryku?v1eq>`>PkZ=Qw}fU#(!tq$h`7PI}7pal_`7XRT8uy?=aOu&HP5 zr^-vdPnA#lElI8`+?ClR9d!3gKo@7Nr~8j>cc(6%Jxd~Yji~dDl1gbGqu)3E&ZVy` zmYsVhKkkg!wWW8oA8HV$+OT`6M7arXbETYn!LnhuDG>#pJB@jXU;YEEX|MI zwx|eaDs!0fcw_aPhilUXcY52Kg_u3-y(=(ZL+pDm3ui*d_i0<$rK>jFR(|s%?dT#= zyIGlwowr^5!EEy4(XZ8pIVWD#?yz0Pv#~`tGUnCu-5h)yRCKSp`xczCY~p8hPxR_Fh7_kmcMXGb-2PM*@o1g6>+4Yc@L0|6&73xhY*{B{&Hv41-CQk@{q_B^ z{bqX|R;!Dgncx3ypZgLgxuQDOcJ4zNA!d4DX@ywNtas1~V z?caCQ(tlNRiO;vUfmV78wt1H^Z9K`q`mBlP+Ty9Ny52CX(=wJwIPfBc&3SgEwc@j2 zu_lY%=E7ywJM*U+n0!C_?U$(Q)Ih(tQVacdE!-?UO@K>%{S8j5Y{kQOEtYIseoEuI z`t$JRwZ%*&t<1K|-p>2ZTh5~9|K|JJ4>}o(|J`n9T+Giid8^}rR@J4ib=Ixlb*byn zX$koi)0t<~G2Ar0@Tz3Xly~J@cJ(>EID3Ep`O7~}o_+Re>zu8D7vH~=Id#D4%Us3k z*~Ndp+f{a@e&SB+wieB8Yfs|kKE$srBz&latI~evJua!Knc>=EPnPa0`g(2ApIxh( zCPrxf72crnxVB=C&pemj9rGs5`CwZ8+WF7reqF~8m$oE-blaR(zr20+ChmNfPoJCK zUhI$BksK_w;Q43Pdb6zTZw0qj&8s}{b3(BAn#0rL%8pyb%&OU5s$*@m<}mN2yX{Zh z?$*v)?{RyB(rwoaw*GlcjNw0?3kPLCU}jnuaO~=b#53H@hBhAYcP=&^7jm9-HIH%K zSzZHjh&&)3+Qt`W_1+#jN>VsG>3&E~_0>-3g1hY0U#mn)xh z;fst{P`}ho^T_lNqkFd(2S}X={d=w1w(Iz9_Li0FX6qINEqZ0}#eXv6{k<1vt&*{t zB)Ru<&arz-qu;%1nzDMH{pYZ#;;P_Xh6gz$lwRqpuUUGoolS)=P3q>-&kH%TBcq%o zRu?~Smd^TE&%ZV1%Wj#!5dy9W5q}qMe2|mPY}&z}F)xTes^48Zy5No3g5qz#eti1$ zqxAmC07Z6r>%d&cX|eYg=|xAJ3X9&*(;fHo_z|P;OZS(qv|~06@J!2nxah{*SW8Lw zA5(>Q?P`*|GA}ti{Mf{`ZSTWMn${Wg-nMo1T@bUF$tinh_ovcTHYHnD-tBGji}o;< zTzv7Ca?5_tG=4c}tHh})*E}5mIV|SkyX5S8ImOi8>D7YJ8!N8WpBLTRY#O>dX5-SI zKOC#f7{Utw_Fsu)h`Fk&En$7c@$%+ntJyAY^S)GYq3-tV%f(8Q9u%x-`+t^0yXV&n zhU8ygitPM8Z#Ju%q>&sxx_TtYF1X)jRM(SVh)FI1~0#l+TEJDB-8abkIs5s|4Bmq|#^RfdxtFJAMzZ(5 z_L<+a@zWol)yka?zBhJEV~n41H1J)Cw_)nRmwB6u7!FrGn;Mb+&vfSX6#iKak1XEA zn$9VC@bcSDiHno=7pd7LJ`U$D_S?MTL7zbXqRm>F*YY>l%z1mVWsP3tOxJ7cB_328 z%nE9em>O|^gJ#e~u~iat`xYJjD5K;h#dv9F`VVEbDGP5KT;oX4y!lb4ODAS}&asor zbeCyrp0?;J3f+_W;zZ{PwSH@>?O&|I%NI-5$NBMJ?%Ez1w&~f5X3hz|^~#P1H)cm! z9={`8dFZ+1$6eA>rtNt(<>DzNBT0_0iYreRf4O__qCCe}mK&Y(CkM`UnWnScFd}uO zx$^B74u|jEsAj8u8elk6YoC$VjTp95X1P}vozb1>esq@7j>(Hw=SLg%IjIy@DPLGx z{48OInx4@~w^?4{`C>|Wo`+KA&3?6IBb(;-$cjt9jylGb z`BUe1e2&%FXDNPa{pae_v%d!&%&il=DmDMiwG*lxoiZ<(A4I=g?({L1ck!)V3=zC~ zhNYFiH00`7n8l?&J<6O;*=Tc^mTaNzVHhY>{C@j0Z^|;C_8K2u9 zPMkGbdoH8Wq2kKVedXrr8(&Ip4O)Ka)W=`@f;Ar1uGG)R9mAC!YmJQb~UeWwi zka6^|Mtjootw*zFOBvXnFn`qEY0uY^Z*0iLv2B~J)Y2W_HX5s5pSCUPL{;v)zsnqn~;|}#%aubc> zKg>9Pl3_;^hf&Xz!0)TJbI*-Br7=5pO{uLJpTmR`>AzEag3e#hmuc9z>`|SM>)o>} z9vi-$y5;2>P2c3l;eC8Rn|;3vGo;FzIx-3<|1CXr=g3r#^Q%^CWr&)thzxyyN0nj5 z{7GLou9Xwm71OWNz3cjtUj^Ecie?O&cgxq``)On?)O18~bC!*F`=_%{xBcIwxmcj^ z;40S0Aorc3%Q9PMo^v|6ZTF^@@4RIk{aUBn*6cHg-XxXLC3L&ZZCbJ8<;O09hvt3E zd@KD$gR#%jt76|g=ZJpaSJlDaH>4R?=uh`))2Ll>a*6TWS96aA9Lu@XU&2s*R#RSm zL`sa7cZTs2xE%COk zwq?~TIBu5ynwJ;Ur?zZ|&5RjYS|`}%UhOVBlvbQ(S&?_@yx<&PF}d8kPfqcyxLCpU z%IE2Z-qQ1v@9{hHZ&MYxIVC*v;Vz$N`bM?!;SO7(kK4`OdCFk3#v&$*{(z=Sf6f`1 zsLrj^G*p;i&YFEY>RIXKw(ED_=d5O1*>Gi3DXXumk*J_nW!KspFD+(HKb-OT<%D+e zuo$iP+>hjLiM>3M+F9oqxx3`ltxU%yy_+mO!>iVb6g<5gJ}{3%R_ zYZc>ju4hHl*bf0NNR{VSu})A?7-UB3ppHmCpG zEAZ&o?IlSm#b@Vk)0I3p3i4%IacSK1B2 zdgd>mD`Vs(USRcb31`WfGx1%6lW<4m@@?0$YV8h3>%$L#D z^Z&QRNiW!|c_H7>KeypRCbLQBH@Ugf-AaY6X0R;U{`F~xfaI!@@Uwmwf}ab=?OLR; zI_`(qfosZBCvU%)H$lTE;IY*5PkZZ|r;Dtr5SJc~a(I%%`>jDg1L<6E0Q7scFmeY@)89xfK`>dOzS6ywi-(R%U6o$J{C+t%>BhmOKb0sMTd7UeeG=e{_-ECr;4}UF>=2#=g~NNdf{WIuTwrO5aX~3T@zzd zefeO6%jS}&?IFTb3IacUKD2bj<@|TLC9LjV3peanksn+r6Gyep3JzXfebZ&pigh^k7w%NtwD-c@svX~Sk`0BoKfA@_`KQ7v zhdpKOd#>2aQ;$8Et#EAhlFn&zbWsJfB9>^@^bk7xO4s6zhq4DF*jaz(ZIgz=f|qLKU*t( zv`cn3F4(s7$Ob{zGK;Et37<;LQmWic=GF9uZ`i?XB>wc^<3+Qa-ij)RYI?M1+gr4G zk4yGm%@Mt`&Mz%5KRP=*v(n~zr`FV%qK+xwpYf-K&Aa?+^Lr-qwF}L->TR5#9x;l# zSDv|ZyQ+5m_oUk3`oAjIPVTHpdVNRa#T?$53)5cPy!2baTdMq?v0A!W=>COxammTa z^XE>APj-l%y6Z z=)2`4mZZ9*Cg-Q5+SzdxmlUNY=5kfcxoR7mAG>|xd#C!A3)5q^UiHuI{{B zu3d{(Zq)Y_@Ys}8o$T4CvfFIe&-Zg59)CEY-DX$#_n4jCHZ994PCP8wmww{+=Z_W} z9t-~O{=a{RRn@;<%evC?C)NEoKl;1d%WwSAZ`fz~uV37t=XJ8V#o4VkbsrxKc0cBo z-?8!C4GGhNmHqKCvbDP_3yt_{L=Me7`+D-_!T`6()8_dbbX$z>jl5}0%4PB8Gk`EPZBS(xp>uYX7DDN8njcdKO|KSNYXMViN+-l;)#7JJxnGrhJTp5JeNG^Gk*1d z92PkbbXn>>M;U!{79C4x z3d`PY(^q}od1;BEuGi=Ipm*wrnm(~U_1AhG*V@{1p}JzTE->IH9dwcNa(zGVtLmiz=0c>2R zJr0(gb95#NH`!aAp5?;wqWn}2@3Yi*a|3Uh3A}dfpDDevMe0-JgXzm-xUaAsP){qk zv+2W8`9hKD$~De6m{%~0_9bw2@@=z~I948DJdZ)cu*Pfii>3=)7ds`yyhK`@r@a(> z8av}w?~2leE7_T2+!AwFFx{_n5H;CS!Y!O~M7Pg?`9w?8Z!W#hT``*)!kLpYKTm2f z>8x9&$DOQH>;FO^l50nxN#zD>)0nPxFWbCE z_C52lFA*B<53WDUIK}tAW7pb}oEa0#ukTmcW&ch-bK#^(%U_D@`4((5hc)p@kRn4W zFGp3k^^UUYBKOnpvQK(!xfLSzv^;X@zVk)zZN5)pbeZ>WLbZNzv1jP_mK8w@R`L3O zIP=rZYVn?Ftb$rIVnZHwByO;(bKQ0FV<2O#yid+)E>1^Z52pvZHd2Njt1FzZ-+B7% z_nPc;vzgO0)>hj;mF$SS6 z%XkGpI_iFzzVoh0=bZ(ixk5j;zMu8&du8!~+IwI4cYa^(`eG^5C;gwTRep8K!uwa` zrpysfV>r5C=L(;nD!v_G+>g&^W6axhV7J<%9<7d3GP8OXtnZKevrM|a!))iunm30# zeDbr4wyV_dnR=d!*S$3D%U)h--_zgc9TfU)Ip@0bzVBiitOFHn*xYo&S2>)ybJ;h| z)A{(ro_p1weeP~N`2WYF7x@x>Qft11F!L60s1{sT5V_DE+YuNlBbpo{*0STu8;LbS z5yx94uEv&e+)uw+G_U%0)hpk-(b-m)eye@I_vGH|C{eYArvwfjn|5k`gXc2k;ytI% zZr>{4eJ{u9C9~i@vu_422YPL;DLgSXXRJ<{zJB%zMy;S2-dpa^qLR-?bY3XcPwt!Cwi64iWJIR(z1Y~(6gqMJ6N#Yh+O;QhME5)s`crPKli9agMH|07&`~|6X7R)QH-kmK zkwy9G2O^D$2HvU#fOfHKx za@Ca%Ez;Sr=YyU`j6{)?WBjMJOqs=>+!e1|xg9Ntd3r5(?UJ-ZLOWnXOKj&}ML)_O-d@|3RUu4{?5omF8T zAxCmdPad*!xY79OXP&b{=9~r3=bW~f_s~f34!7ClDZL#>|K?a-`BM|@YQQY`L1c~F zLx+g@UX$WJeVTK?{dZ={)NkzxmM5y_Gq*gQ`=+yHQSIZGeVM{Pt4f007i^h4`Am16<{%b%O}%64AOV|M8IS{^!W_JgK^D|as%|FE=} zuxk6-r&2Tg);UG$O0RJ{?QgTXw(G>SUD@FmTr*cp?5mePu=esjS>xt9&n|^H^+&p{ zw|r+vr^KgTpHexaAf?sxqgu7KiPp`<%%?*1PyUEI^?J83lj@C$UfMpax&Qo*nJj9) z@}yl@ICkZw6=yz9JgU2N!o}tbuN*ofUa2|CTa>O#mRg`>?2uR`?zOJfXZf7fd?8Y6 zK5XFb43|0BvpQm)#UYiOuhK6^WD0i8zT=QnZPjRg_NGPJ?&zB{S)Ykto9f@bchRj< zc^SrUn{?K;KM;)w{Ul<_l<|MltFJ!2pAJa$y!yg)Xp35x*N4hUxoP$_AAYq>_2Srh zLYSkxwJ}hN<=zsflLCd0%p@sj`eVH?Jk2X!{2+}#R)yc7cjmj5}IozyAjz`>ly0_rm=?n#n85*3;x?ZYP z8^TPjf?YeGb2+Sew#Qs`YEiE+n|bLnH``;8FF&UD?e06=QHj!3NE<%?7qHh$ArSezp`#UUaGVBUFhkuwl8OnZSz>U#a!>a=xU~x zf=@h4?$7@#Cd%fqVvc4q?~3ZJ{nJ=_Z7==Os9HC7)A6&PZSK~m-JGK`(Qj)|qwC28 zAV~VvG$xB~E$zVRprv zvV~m?>=IXXT7Au=<%H**t$G@H@>oYyO^nVauQKsq!!m^$##QQ8(yY=QS_~@F-b>Fs zU90WRXCL0S^nCK&FbT`$PW?yNM8h7fcdUtKQ8L`S##dMJeX&_V+)mS93GT|VzK3Tl zDasC$e_frP>b7LdYPo{$mo~g|D*DBl7rLjOO8Wfz4!6`cR{!d!?OYw^`!iJ)(o*;F zhk3V3p4hXZdg}HNQQr%b&%Bb2tvr?XPmljc?Jc|LrA(Fy5>M{tc`NvK1~MEy^?1{Y zy4kBX78J-G6Da657WMhD<%q|$9VgC4s?K=7_te?bEe?jtfm67OvW3=8{5sQ9WZM(b zBab~rw(sYNni~+k=D_KnZ>~sBlPFAFKWXmKZlg|#a`uDE&w}dhvu=Nt4pf}byj?ac zLG$tP)t5epbAC+o-<93%cHjF`fa%@0Di7yRd)IWw>jz`$E$INR#jQ;otF)GPb+oQJ zBxtvwks-?P<8c+5JwG{Z8xRO@4v5_w#7}s?C}? z$;Vhfpq@G@PnjKO%H%KhTdX{PClfxUU<6Og9gHErQc67~L-ZN^v_blU& zOg}PN@Tz3nlwG=dzmqO`a;^6eKc%H&vG;Yn%6=Z>FqJTrPoI)$}pJ<8g`OwLb_0iQ; zS@NQH!WHx1j9JSnrtWa?;Jv@|+bXWLUcHk1+kdVX=1vc2t^O<$DACs3eJNndPTeVu z@|=}|arrETd)~ZQdUbwlPG?U0wCup2;%~}g9&!uBx94Rp-z6G+vLWryo+)?NHmLhr z>!>_ezY=$pTggr2O_1pQ7J+I_POE9WjZ3u-_|BYY6ggwX_E<$tM%T5cZywpD@AG-( z^=Ho}%r@U@K52HaOF~(1{u0)1Tko9dZ>np1Q+F-dyvET+@@1UVjzBKKwb>ybXUtQn z-03E@LN9v7CCT>PJj#wQyo9??)}PVKtYc4fzUQN`a6;saMOAhSwPxI1{mC{qVZx7F zOw+&kHLz!k{l4*yDYHOy=gjKkUvJDT_gQ3=9jj`PbK%sK-8N@JnbLR#`ZT8h+W7K* zy~Z|+?-M1v^dnm*Z?FEz{%4|N#O9mtpUT^F|EOy3Sp4|T;+*@!G1qVM?bcW`=}Pu4 zQ-xwr`_T6FOJ=4q9$h=*tK`{ry5g&XE$8K|K2zzw zIPakx>!MRDk6N+&vxZ&`zJF`6=dznm^KO{ldpkS+-QOv*-xqEED{%hpqGNORmkX^} zF+Y2CoU20%hhLVe#v|#eR&nKb*{qn#H$H#ZUSa<$_uAFz(*D68bC&PQt9#7i{>AIe z>t8%Ns)_U8Rs~e#E;EZg^!NJOQ`xg3Z7xJ-g&hC{T^VQ0WA=ft6-#yvU>M&D&;aj!+Pp{Pt`Ix`J24?D!a|b*z+$}&xxxMm>>Ui$?f+= z@85sE;a)9Tc<)i)*FNd`f4rBE`!wxcR5|nPq4KRexF)q!1|H!(A(msjK0JlvW#$JR z-Om%v?Rxm0JUBX2d_mAH4GvY~W3#SYtJwS?SfGS0<&CD<%%q^51^$uV=l)JTXmV1t zk0JTKfvAegWw+u`ABo>I}@zvtA9k=4Y7Bpa?7G1G~%O2N$Npf`hUq8eW zVRP_Oaf~8QVEE069TJiSvu5XScC49P?dco;TQd97pDT09+tb%*@+|qj?&=-Iy8VCd z*s)6d0cYYno>=H*FU})`xri19CO`okDvIC)UVGba=s6I6C?d5|HSIb zWsKs1yQYR%U9o-q^71cn?+;UYUhlHv-s#^j`kuG7MEmf8*iDOGD~P;_SY>qT3isDN zZybKFo7=FzV{`Vk(@)D*rC7Zem>^iXcgEER;$l}zg*TtDDwI4|k0eY zNm*vPC&L;hSk~M~&^qwyh^v?qZ-cFX=ek{ePV*Hrms(y_%dtsX;`(>Bh2q^~-hSD? zf;L((>WDp(v7Z@uQb#AxWy0k3o0fX45l-@oGo9VOQ7c$f%z5Rp$k-cOn!>!61|Q{$ ze^$FTGQ{N8!l)PBGw=3gOyM>dZp3``e1Bloww8x4E4MN|c&)bC>_pjpjn)+t{ND-u|90TbsgI>j z8^XC6I$p>9|Kj+dXZq{JID?uJ-)RgrHd`ienI=75v^l;qBE3GSs(nGkt2(>?a!m4b z>Y4L=Haabno-fM6^H}!T`9&NW5&p|LU#!|%k^jH!ypQ9Aj%TjLIu{jG*e4lFWWV5Q z{+@E`t|V8V zm#O>pzcMjC*XynHmaP`jtGk}FFSqEK>$69j&!0V7VjW%d(J@xP&;I9XwbjiVKBhcx z{ASVO?-pJ+AvxTnd`E*{=(_*kLsh5NPYr&vWVvos*Mx_YRtV zpr-9g)W*8#fWLcIHGEr^a@70&v!nZB-|uNHI2;jpZP&DvO`$Kj?mypKGk@|jSFNc{ z1zl4e7YDU}51%R5Bhq;xYSZh=yt*^Yb(xkM+YQ2VI3G{$wv1f&fBM&>GWQGHt2=gb z&9weg@-k`@ujJw-JJrSVcE!|ZKm3+aIeAaYu2+8=H_u6!vDe7_x9p=|2W}a!(Y~@q zZk4T!hmCdbbgAl+U2T$`o-EN59Tn%RPyTc}thj!+%lsDd;-_Oy2Y?6p^OLf;%nZzo;nM*|m`6<-84-8XWNdW5ta(wL{F{D@8|@Ez z7G|2iUm}*RAZ_6w#C~%tTV*6`o1Sv?>zNlLq)rNLI+^b;y5807=JNABdTtNcw^vo1 zP>Njh>(#M;spkGU=8x+?{y)FYZ{NRrZ|Z7_AKia<3x0o=hc(-zdv8De6(5M+?#qU+u7==Q?}Op7nOo9}miM{E6oihc362l-bo zd@1sH&y?cds~uR|8Rxgzt=Sa%_;gm~!d4NVclErht+n^o?~y;hK~_k8viiD()6W>_ z`~QFaC*FU@w#fy2J6`{>Gzi&TwnN{oVApB$L>oqzP;IlcE*Ckz?_a-n1sO2uk&)vJ5 z%&+;yJT;%L-rvT)ewn_k%?ri|zw682-x5x?SaW3Zr;1QH{Zo%;|B2ub_X<{OJ$krM zUa7V9YL3g1(@uv=+u2?wq{^r|7n;xf9kB4n6Q0#8D`HnvM9b;3dzUWTG0Vi@WA{6* z_;1suei4vZJ8c2iIRkSw!&{Go553@Le$ACv((iu0AU1JsS^60tzXMll#QzIL6kgNQ zTQl`kL(0kg`_qo6KmE9EOKqgwebK!A9+%hOikrf={`BqDH>PFIX{l#<_-n=Q&Cxju z>W5XgoaOx&A**prZTXLPe|As)y#C*=|J8qv>L{t!F^NAt4$}1LTf5P--Jiale3X9U zLHnm~ntg0ZA#E#L3fJG}I~9_!F2=p{p>&OKz1op!t&1=J`!l)r;_NqznmxWApR4oE z(BS&<+fPov+q3==4`aDaPWz2x7r)QawX5UmQ#0PPus=R$lP~{1$9IiOGuaLXeHSpv zO6>a^^6?~7v)V)PX`iY^X2qPHw}r`igY|`NbI#9c(qMX1$JfCS^@8Qi5(6{OL>7U% z$3KoZ#8uBcojYZx&KHg(xenXl&u3iQ_QBM2 zcY#Tl7(Kg}r{r{bO25%leNlPzavan58(U7usa*PAvNFS5Ho(*TkkNzwlZfDiNR8UUxJnOU7@x@x-f2%PzRAs0%2r z?zWu58sZ&L$*(Tx6Kas|SQcZPaDJ{?LmUf}^*f7>mM@R^4)8T7^2;`u88P12`&wzs zbx~VxPbQ|*Qf?b(+;`lt^iY;z+zz3@NF$lb8#xxto0qcj<$AfEa=oGb>`sSiSK)VU zIdL`QxNu3$$YQ&qzuNd>a?Y`YsXJF$R!^=vHRo(A+v<>aTiW)S z+|rSGbF*{hpJx^K+T;WzlldoKoAt>o@HcN^t5Srz$z2ZDQ-&9Ozc2LI+1V<`)^$(x^TyIJ_e;$_Lv3zha~|M@#^mok;EdUTKP#{c|8nF)Od zpIW zTW)8*d=QXnF`q%VvG-H=<9_uLgTiOK=kQDpNzmclq3Ypnx=`h9mf>IS%zxYND~r}$Y2uJx zz4mCY>vY=_qQ7=$Uy@b4*6q$GHE*|@jhf`G4^7U~ns zzUZCyE-<5en`d!Tp46O2@!eOGr$l_Y|8eW%s13V5rv|L-H2Eu{8^kQO(uaNCyW2tw z7AO3fa4vD{ec9@p!d?ds2c3I#n}7K<<|hF?GDuZuQY!=u&RLUi;$XzjG%&ikeeoq8=!4>_m}jt^I_5>-O|F z6wW@rt!W2$Ro8KQ`)U#Z%NLJ|~-lYuYu5Lj5D_r!bzo$;j6{H-uwDV@$*DpJ!zmwrx^)xRL#Z z)QQ_XKgD01^EEcMIop3qt7zBa|564gV*g&xcG66!6*$?rGClb?gUadKt(Cp`Zy7hr z*I6hubG7h))G#vjX}55y`RuT5j@Iq3u1(QN+!yE0J;*$(?ATYcXC8MpGt682uhgOI z*{X~C_egVeo|9_zRFa+Eow)g>qUx1(H#bWcSFX_ZTevz~Hofn(Ezy>Dh+2tPjKLg*p)P0J6y$XY9ZVfW`l z@sbVAnYwWnOD4}wEqyc1F6jQOMUDF>&h?w??OK1cF=F3z$H{#gC2FVGF|7<`KT);Q znYY^Oq1#23wAR3R5{pgM)_kc?(B{rQxOw4WkD0qrycZ`pU*8() z{xPa*UzWAC`NH$^6SOQ3PL$sfU=@};W%|~hNP(+w1k5*Rz1}4>TO;)BB&IitelND! z<){Z}PnoeMcDh)GV%nxP6`_0&eU;6c*6fJu4K8Tp-n(slL;r6Y}M9SZ+kp?k>c%{xq_d+yjgno)_aX7pU+A=KXbJ>tgv{y zq|wtSN`X>g$0M~GUbT9#1Q}~-g>YXxTO_&S;?v58f0Ly0(i@K(=!njd;=6X-Eq`8` zQcj>$LfOsLi&}kpS|6=?{NeC1lZ{d>OXmGdVYFMfW7gVvGuEDa#}<6D*@Qdncg*pb zFIVnV4A9@TX0EhrrJ!Q8Y3Iz^wqS`%(c#V$>+-5zOk6NyqwwFjC5pjPFXvp#yuNk0 zLGZcoC+yoA=C?=M1)e2b;a$d{mN@IsY^5*vrX62y zdAj-8!)Yl~*S&F<3|R8g?EUW`*@M5tE_!Whxxbe0T*0wpVITEuI@3fleci8mzAAiq zfLV&=;|=W+rXNvyjMsxQwq0aPd}>l0Zk^I0m zGU59+o?FRQKkc{3H^G}<-F`@32|RI3=+l8?*Xrian!Ax-J7ryQlEM+A=ke@aD#26I zs{YLmFxmEO-D|sOUK6<$3$0UjK1iG1(RzIAmHm+it7D8WruK-iteAc^Tjf<;#4f2l z|EjL$*IFp9d^pKr!M^6F0jgR{=dRgUt-|=Rs?UCf)KPY4r;}dELKim{Eh@ZZmpGSc z>ubB;eRr0#e+t=CR*50)Z)z_b=W(uJhQ0ORBU8h$XVon(@#2x z;l(Cd>FLXgm)VGgx#oDfa@}w^XmuraGP9(UtzUuEewigt1t$M&cskc?9~P~@tWC>Cm+bXsa6^PsBp=tw}D!xCjQ<(eS7-G3bzw6 zGUBTkgB9;qs&ClQtXUEMbw}Cm_czL9I>N0p->O8MnP;zEtnk!2eaew%ANzRiLib<2 zC9^I|K2>i~-qf#`Y?esR{QfdPr6I**dC-|%xg9HadS)EY`uytlAtv4amZUYu`%l0A zzV!XdJ$r4}o;GyO@89M9)3-8ub7c0Gc^_{Y`^hq>{L-5pxK-EV%+YFvb1ES&vt_QH zo>(cWYAF49o==YMl1XLL+COZ&UOqqGx_aTft;NR|#6COBGpmQ^?bd{|v77q%IIhNo ziLd%;mv8vF-K_4yw}40NEAG~2E?wcJt-mYx{#2po+vXW{{%m$U_x9_Qw>nPz;_X#G zij6-!>T8zPaxH4MpC%{w{`Bkhm!7apEl(-Z_d0%k>Eq_h6_NMCW;gC>xtVh=<@tl~ zqkq5s*z#%r+@;f|E>Lyd5uB*1GmZ`)e9qMU3$49^2E*# zPy3CZrUyR=xb!Y_%^TCdk@*i!Z<)F5*5mi59v|N1tX=u^;Y5qviQc?)LOU zwpSlUl^uWmE^qhUwK7(V_GO;mF>l+epMekmeNGcFDv?;9lyQE&vD4k0-|-=bpFU?& zO71wpUYK>wS4FWn_s-*OF8_@D1VTg(uHxr9QxPvABfzf3&8oI>Y0=Nn-A}xK&iweU zyjAMbyjMcZu#-=f3+$h1Et^lMDlZ&RQ5X7XN0FlU$y>ubA9Z$ zJ-N5!p1d+~nK0Er)AMumU+ZN{kXXMTKAahOl#?_T}`SFjh zsqlSTzduv8c1C(>Oc?8yZwy=X7i^aJv#lUMW@XV6B-oQ^; z9F~&`df({KH(`E9<)%gjzgw7Xy+milt%?YXwhJB#eGC2G zoUpz!J>$xCGj(_VhKn!OT;J3Aa!CPq@Z2BkSvm~9>}!?YaN)k^yLDb3b7qzv_vw(~ z-SbW5VfzKcjxEO)%TIrX&d+5mJ?jONVL5B#530yg32$G zi}to(Ug?za2 zZdvo*^?T>ejS~}nx}I6tLfP%>^HPI#R-ZQeKZ+E~efEbh{(#2LoOK%&9`e7ExOL{> zlXV>>o&7HIzYgv8dz!6bzV`Zryq^bRH!ofG+A)Bq=-ri13&meMXee2H+U_QJ;qryT zt?q}S!*^$`pUd-Ad{NZ3D-~s);T+7XQmUJY6~QQvc$T z*ir_*G`;ff(+#^i{EIH^T%{S3xA*9Vn4-h3E5F{9yYGFqHGJ`eqR#m}_e##apAaae zJjeUN)5(+VINwD1OnUX!{))#Jo?`8(S-CUnSg)MYI?on%Gw1N4&EIx>UFL5wH~Q7g zPW{%H^cK^y|6fP6p%I-?I}c%vQ6t znO8P^UZR>`>zTgRU+L*)rr-V*5B8s7JQBsEQ=b#n9BCH0ch=2WFVrG-?YzABoWtR& z+RGO+G>xzDYib`X5B`ucd23Je?9fjg^FFUl*M9Z;Fn6V|{=)Z(Q>HX^c`Ug0c+R8S z7UkP^e6-a$+4ac9DPjJDa>g~AI4ewLzrD+w(LbYpe%}2>!p8&Wzxr-X;rUt6^*Aekr{Qz66UWpRc51C*HV;r~XL<23 zGc9?^mn_A-pWRtMOz&+^F4-NaJuR^_RGGXf5KcN zXZJs4`^ASv*O#zQk$<-_aPyZByzCG6RQJ0byE)Hy_daeW{-kYp581r9dv?0$3U-cb z%1b9oEVw<>(y5P4Rcl+B+t)9Nul%-Ne{rqdO0VXvt5RUgk^+m@xj(d;d@ASU)G{wh z-F0fRU8&}|o6`^J=8I>&_HdiN>6umjwH=0&=3dlpv zo$5Wii)V+$wdEF*nDP%zSaIG;kpG;Of!^V&wKXR%&kbs;&DN5zVqN{VQFiL}>sfje zuI}3YaO;PgD)xHME>}(XwY}rWlPueH;(p2UE9P9);J>w_$m`CsM@pe5IA{3#Fn-=Yy zlGj(dxlr`ut-x2=_Y@pwNd`D?=_)DUENkH9PhE|wO)zy;8C+( z^wC%1=(^wRwa=yXuh+}YO78V~JK@s<)tL0|(C!2LADv~=mKMnOF&Go}1&;9^8ZYQNbm>*a(g#b5Bqv_vc>Q-@(zK$5 zeLm7T`!0Mde3dv;H29a-i~rq4H>^!8zC_gLzF3#K?MJV2qRZAtOPZb~t~{V{^3{?H zQ$^$^u$k{Y{=rr92>Ycz?TjSH-01DGqF0`=t=Xg7%GGvn{~2#y-};UF8O!F2ZrFVH ze|e_Et63G5ze_7syg%5-o%0Z=%JIB?Vt=&ghcy4Y_G~}$Ljr%Q9F;p;I%&&PBL?Rs zT)w&&cdJdh$FP0EJNJ7UJCtmr{$CUkAl-<5#{0~<= z4AouS{gz$X_HFa5=SNd)wCauD#{J&AvvqcZ*Td%z%j+%%tIS@qwrBC5&LhsdmD;#{ z%Tz784&`#5ytn+>C$0`>BbV!@TQ;oN9DlU#oXFG%6IaY(@{Ky>wC0iFg`}C&B#$1n za1K7lach>uEu&jP@0Xr9_Saugs8#T>BhTvg{N6VYqVqrfPT+p_Mt| zzl~!JuD8~d{*#?LlX<`PUHSLri3;n(CI@JrWIk&dUt_>?Z?EMtFZecT zKAfI+W^!^`(O=6g95=4{g%n3VZ%$~*-0k|~;syKE#}^|bmnc4H=X@{KZGO?oeW{n& z`*fvKdpJebm?VJLJivY5^^0 zr8uSocF9-so1b(}Rh(w#6uX75sBap__U%vg^3;@gZ$0`{_qXcB!&2wH`hx2`PK(|7 z9hCY%@YKue>jN$JZP>TA>i@#u+t#+Kmv2!JC^da?D)iO_}7ci238 zGW~qQ454=_J{K)z{pRhhQTfbn=i@i4;8E<1mh0;0*U8mx{rTyOkB?u5=Kn8m!hh(V zIl6!9#-FV6I~TdB)2I(S#bE3L-XZD56hdb=@h9gWiRSgPZx}P_33J}(UEkE zn5gu*i9hbe%zOO%#gY=S7E=y@R*C{QPe3u+NXy{mS?xiP7@) z9^KucEeVJJ3%0Y%CZ06pXA1Tf{QuvxPveT*Bxm=_!KE9r{ob!pyo`}Xg<_3m7}Omm#88~5#YiJD;MW@{C~ozPs!c$+_Tb6xGM zbHPo1a(T!7f_hh$eAaASIWhD8oG4DW1)mS>3-e`@{B!hA$>E5(uQ!(e$eH^+X!^{? zosXaCcDiMjZkpubagssJs7vLs$sb(g_bi+IONw=rn&e)#>4{# z39mh5);#e~*z!mA{6U5%2@5NEndEkGoI98yu%W1~_=KZG3d^jdNf%`kKQg4uk$iab zv}E@FC6NuhM^;5XoD%%KFXd9XmQ~eG`K8$WNrIae= zd+&6KK2>X$TVvs~vMxM#a=vHHPl06S(DaQulA4R=ns~36ZW6<}_Lv@9!LBw_zKxSj zA_N`$--K-GP;h)?xST2Y!0C!VE4OsHYHrXwkmG*zQEQ%vchBaNH(!gguj1aC74UTS znowPt(-Et8G`wJ0$~9kX>Mn)GIKk|Y1I&{o|1n2gx^?kUVbG<}?q7a)dAPN!FPvN~ z%DqnBx^lvm$=}`Q+I-mI8GPsW$>wAC>OOf-POAJ8eqw^baUI?2YH>cc7H#Wa;pGPR zXND~}QRTby%YnV6+Hw^oWloaIdS-5EZ)V75x8wLco0*TPA|hD8FVW%Xoz?sImV}lW z1TVh*YR#LMWo0p&{P!?#2~xOfw^-VK&K^6qy9TT;9E)vsxvzU@wC`g3oRo~KjlL%` z_x*f3{bUdWllkoXlQY$}hSYtQW@6u?n{8IVlbeNf8zW%eo!}dZRgNn8D{nsDSEBjh1uM`|~ zX6d)Z6UF7WIc%G6bYl^BpX*5@`Gpsz?R93_uF%NhXHzEb74`Zs^Vgj-*6uuOKgaI( z>7=xhkh?i)mrlCyNS!#fB>026yjT^YW!oV8Z2HG1=Tw)2%a$0QG|5?G*G zk`q*2y`-BbYMxvA{xr7wooiUr*6y}dSgqLHnev1y@!;~s9Npz9Po9~xw?=$eP}AMI z*I6ezSTgYBj>+o}1xr3%d{(@*D8}FFn}FvAV}lr>EB*icfBV%u+{+`%UuP^;W1Ohj zZ?@gKZ9@Xr2a{thr8#wpo{{Cx#YGMjnIz^;ULM^raj(N%-&?;f9x%iqi=~VypOtRP>t#)6s*w=fuuIZ!$$HZ_$HNaa zn+7wNb0qvZy7&QKqR}qaYF@h}4$x*q6S) z?#r9`VUCqQ-?DZresx;wvD#X{In()^IcBW-KIN%S{CsuO44_VD6u9GF$(@)9inr45Mm3+uQHmSy5R0_uV($+g7uL z+-CLY+Ef>j^Z9%?tU9V^r_JD*(X^rTmSxvFW6r!;!fJ2%c-q&N*f&MYVz|Z9 zcg!Vzk-Eg&tDk2xYn)pYv0PHky1IemQ_r68`~M0)u2ZV&@YZgaZkduG*(hAWlQQE& zcooCV%kTH?wLAYIV)M^z_e)W(SD1Lj)*3F8?`vR9V=!q~)%o=CxunqJ2`u*OGhQDs zn(?vKd3}PU>V^3>Ogb|dd2-GlR9dl4?!Sjf`^*fV^y0cx1qbH~`*Qw~_E|VlI$*H} zV;|d##!t@}W(i5za5ozt_;-b88VgJ5YU?%30X3!KJRcuCTx}hYp4qmkO1Mn!LCh=|6(4!Siz~;S5)}-)wj}x`MgTso$6}2J{&sy_4;!A|4!#_O+FHN zXOig#j1cN~1eC9&`6S;m^DZ=YP|SXFHii-)wOa=2k-IbclV!hw8;mO3PwTC6udJ;oEemUCu zXOF*Eg@faJxbDf^W@aF_w$k!3sgy z5vof>4<4OR_E}zpll9=5x6kHZOcs7n@M|ll{zqr)#%21acQ44WlX%B6t-I_$W+Y{jw;Cvg)&5B*DL{LEHV?%&r~c~G5GRqqAc`|Fwgj=#^Y&z`3`SAEu$ zj7GNEt7g4f(qkK_ARKz;(=&0A4$(t11vwYYR%RAp`2XZ)kKG@Z;7X0X=K?Cu&(k`3 zVoG4b)u)a#!Ynh7{V8vXVNl$dyd!Oeg?}`gz^u=YckEs3e#ZY*n;Of$`GwL6%X*5W z=XlhPV*f-Oxr>PhcE>9d@_1iww( z&TcW=^Yno~HQs+N7$>RBc~|*M$l;p{_XEdY3#_gr+DTmwpW}2+()!bP^WutCQ3(Jkvifd9&!}_oUQsZ=;zv-tJ;wqL*NN>Kezi z!o()NGBroD8jIFm&j$&1Z)eq5o)=;EdnGk>%^UN#r`b}|>#m%T{S#up^eo4F%l{uD zEp+Bzl5_Y}aBR0;e)Oq|vt}g|%@kt}Z_NM1`MT_=QG7<^T<*^7Z#Bn1WITO50gThHxtPCt?CrVuTaFPwA8wQEzll+F75``3?)*XURphPnInox8u$ zck|7A*N(5YdT{>h+t0s#EaR(~tW%@@F17b`ouyR4)bEN|U+(@jNwM3DkMrNXaWtiVopDZNQ{vIZ2ALb1 zN|v(T`+jll1E~i~)|i!4pHgw@zI8fDBRzZS>6dF#=B)Q}I}(;%(3fCS9J%J_4GGuz zLgyP4pKUT;I5*bV+fFV1(DXB(!UBJ%y_q6vIJ2j*^2kIr9!r&8m;IW0K}M!)%P)S{ zpZxdavZR8d4?90S-zVyxlD<@V-l9o&InO*Owtm9Kt8rik^QNWmn`Cdvg$6cW>t5$5 z+5SXHGGDGnK9wtVpYQ$1%vmd^Ut_2=Zap(c>PCXM(c>c@H0QT*tge1AUo23Mz0G!~ z@A>v)=T2-;zum!m|9p*>6m$C(i*uZRW*(AxJ$;My-s#Os5eZr)HinEZ7O=SfGh5wL z*=qCj-sj{WqJ7Kf{$C&YO)B`4rrfuGn}7Y-$oFI8zP)QtJt$l}r~gQ!P-9l6l*Ih7 zoj*!;O4L}e3d@G^FWjyEQSb2*U5}j`{{Q0AF|N3}=Kt*KyNV~Rwm#?Mw<<_Y)VirS z`Q_sBuODke^X}hyou_=m$LyPl`TF12+3oywZ6>VCzFu#*#c*G~$-BUg>l&PUbHbl4 zJ9}fzi}T91b;dRucJoZGwy>7HbLH*B)w^DWe|KMQz@7Eo)M{`0S_#F2(Qi&X@Gmuf zd9k^5{`af4a(i7LROobOF#ed4n;x7~6!rCE(N$%$Jd-#+iQGA2zc1V7U2J+PX?=0# zn;X@)dk;@zm-YP@QU3X{;_jDoPTI)%D7GdtHS-3antE2xV-;&z=tti*OC)r)epXbx zKGpDltBJ9=;o05s>A{yP?2Sy_%Pz@uFt)oi&wtZ&J4@|Qn*m3qZJU|&?@McsX6`UN z^L@j!!hYSmi8%+n9|)J(R;1m%_D8~{dd;lW$E&o15~M{oi}^fMdzCO*LOq6m%c4gg zwe)n-j~LweA)obSdNsRtda?YW7jW*!C%yAnsGvMYeb<&_Me84@R;@l{AZOV=W8$tQIZ8+GyncAl z<=Iz*^PlWmwulG6Isdn8zjD2eYCcD`lpML0!@sGPs zvvXAfKDCP6GM7r-;I*)Jby3Ft7kp2prXG6v(b()sa+R3j3AKijd#9GmrJHt%lhc@t$lJ#5aFFd=Chht^4_cb#l8Fi@D|6|r@4 z=PvKuOVRh&1R5nL$yV<@)asdYCv>yYf(1I){4!k{qM4#o)AJ-XnHM>)*v6ULy*4K& z*^JklYt=NepHV z(eu3*7OPc-CA~f^G=FX2Pw`Hdgy}11xFu{X4ZKnKxwg%D+soD0dHSZfGg?l%%69gE zhNY;-gSiWW6cR&K=jg?mJ-^Vj-JO+w zdTK<1e8t;Ur`T8+W=Dr#xZ3<*MN#BOukbxySr>!OxdP&9@7RBbO!s~>g)uw$`hTaz zA~HXH!hhWN(Z020L+zpudnRoy*fP_Kb($rQhV-?wk-rwK`OM3kSh?|V_oQtLvv15h z_@VcRmQ(lDzY?6xoqzb54cn6+=G5hO`5xzl7Zki{6`egR?C`TEv*TjcmIpSk$wG4@NP8`r+(Ny}(G?lUuMc8u4Q zOewaQq&U|JygnX_O5%aZ0*Zp{)mK4H0D-1_#>a}JM1e7~(Sk2LumG9f%iEAL2A zTDQ3l$$;K;jFrKH@#hE%y4PjaO`Q1->Z~to7pO!9s4FS1s5^0 zR7}}F*OY5}?T5uHqUxdzv=r^5j|6TJ-jJ;7n6N>rXdAah-ls_A)EaY zY|ees-yA8Ill<|M{{7{Ow_b@Je!EBFqw?liKVB*Y^0h6fPIT(#PdRC(tlTbh*WqjK zLGx7vFNYZFw$rrSf;9v@`jdQ#gbVB|q`oxV5m-n$?_3civgfiK(_i zd;jh`Ib+G{85OM3v)4uiM+qOuO89j)|69NNL7svr6X#6d525S6zUy8SfA-^wLeXy> zQX&Pt*FUejE%0Av=`CHk6U=i@HCtzIyLawEqu&y#-Angdr-gg-J~iBcjxOu zd!M)V+`8h)7u9OEc7wBG!K$NWj7PlpF|-{l<$HbV?Ztz<>a*r76)3)P#`SURBbz-+ zJEgK0*Jj>-qrm^+YnDRmU88NK9KJUFh2_?q+yZL(=YyLwFFrBOd?vf7&3c)`0l{e* zu_cn7OIH+_Dn@@25ed8ArMK>sM4|JZjDLGn_f#&|9;oT%(m~&1;@lg*1b-@T=1r{w&r{}qnJ$F4(0XC zsV|%SOYePtxF`HD@7}ipQ`0JpW0Ll4-!5BriHGxb2!COu{LN?aSGSAbZTJ$AE+I63 z>AJbCK1JV;xikf*KD#4*X0AtpH}Ag!_Ioowa+%1))vy(F{|npwoYCC1SDd}^x+sU` zYUlds#P9dC%bzH~F?y|j*nW53U-`}QXjId5N)Hkk2i7DLX@wbENp z3(b7o!W&_}Ra~vSbjQ*@>0?o^X03`~;i<4`+dc2<8@X+E4TrZMzQj9^siyJS`p{$N zXPYFxRy)|2!(Dko@VQfbbmEs4_07kc%U75f&I`9v7M{$=-(YVXbueMmLB`FW^6lE^ zTL1A?+%;q8H;ID_zt!aM%l%N?vzO&l(P`S>%wlo;NXr{cHf!YX2DmYYWm&t@0pai#qI06vpxEwE?@^J9?>GXqY+HL6WULnS8CcP z@lJGe&6Gl8!c8Z%ulu#u~mR z=9-wK&4zEc@{3naS8Ng6xc2>pQo93!j0bMqQt7nrj93@Fn<-{lbN3~4ThoZ6GP56w z&d+&ctnQ*c{fwl`iX4s1-=0rrFDVI&TeoY~9j@29(#`vYuTLrb-dnfDG57hdfGWe* zXJTq9M%BR@O-kzvCFAPd_txrN64-NppKZ*cnwU-6-}|NssARp9e(J)xZflS(m&l5V zzuXcJ?~?uPmN%*ySE8(XZRUyxb!$KU@btSri`8|_RL{qs(y9&2j_9cv@c&JeyEWbZ z@RoBgLvK#EGs*k%D*>b9sU_Q$#F6#jn>e0bih zHz49ryi8h5{H4FIOE~A7*lVZG;5Voai_<@SbYehG4FBxV9n(|ScW1w~(K>d`-$^y& z&7Ui2uPU__u2nADtvi7u?(>eDrGlna{0~pQTeMbV*CmD=--@8UE!ivcq9R0}bo+5E zJeqyQms9Wg)2+wcHc#Nmp8bIJnDN!yeLp&EwnRT=-S_{f9kZ2Cw&T;LzxxiAJ!>-E zSu;1`Xw~<1ljOg1Z@Xx8Xy&ehkG2I1?w$Lqp74M1?W)w7>w>RUD%G+-DmuQao+bM2 zy>zB;&8@HJDDUbp<#(Q7a%EfPS;>m%?IMp3^-DV4WjnV1^=nbS=Wl+CZ~NQ+N^+Y2 ztA-mpK2FT?%saV%^Ck0zAC(@3tZMl@!}9HK_9E3Tzx$k5OI%PsSZ$R0 zzgyvA;Ed4K53C;EZ@apB&fJO_$M>94Pye#csarku+$m0zSG5Te3(p^L+NFG$L%>1s zhDGJxStniRK2(ZZ7W>xs$ouQI>$@r^2(IOo-T3)Sma?kdPv5xs^S+vUBWFqeEfrq1 zc<*JgYvE_bpL@kVmpUzvS}gXB zS8Z0*-W%U-a>Z-b?q2GsZ60hWr{QXP{P#P71#4F3=9+P7yso*@lU0yiu6w+q;hs^6 z;*B{PnadPDzhAX)O{U?s=(LNqeL=DBcc(;3ec0pKAY0mhBjNx17ttJ%1<5jhBR-2A z6X)gbzrE1X_xQ=MBc~g}e4}2dDc)%{{BUGyVYXA=jk$uS->={|nI2=Ac*iuoCj9;; z#!Ys=tjbpPuUWb91^bty*4zI+j;ihX{KMGiaLu#Jr<(Yk4>&F??A|{&?S=X}3&!r6 z_DwJOJoDGTik`M2uB1JOYdYWlQhm{FpT6k!_`gp2enZb&>QAPou@k%Q)z8NH({>75 zMeIKL`+(1f8Mp5+8qe0BC2ZOKGTbmatg^wa_{V9rio!mH-=_uqpMQP3`qvJP_=NnI z6Gg-B+*9A07&`O9w$?qF=gQP{#SYJA&$`K`B=CBw`-<1z&gWL2stCQ`r)_`CRCD`h zp6?A-KJAPLE(PX2JUC0-?DKu?;!{sG$8(oGsYAfosFmS?PP)UhnqqHJ!QP!@7;0lcp_>(}_KP``li$c~TiY z-P~?+j~00!^zvBpb+w>Ps@v8%dM$Q)+8q{N-&m}basAXyT}RPBsoL9h)B2+WVtv#R2h^`=9*WWMyyu^P~_Rwsu|V%YJu3Db-Z(9uWi4xG`{os`lFj(h_my= z-jB+B@@J0?-(tbVUAsSBWJ!Li0eDdpd8 z!NPX^ndpM|Es5m%m2TZKX2deMcbu! z{`~f8xAx5cil1hjwZC(~;H6nm*~O@xJ1dJ+KUb_byLa19a{JE8%CASm;@-O~U;D)@ zN3{Cghnpu9LJt@QY29Ys`Ikq|df}Wex6?CQjz2H|qGR(Xzq)$w<$I-0`TO^=?U-vC zlpp_mt!29y^FKy>IAj=N#14x}2&1 z_}R0~t7q^3oAlfJm(a0Y8~zH;Un?%S?E}XGqbTp*$=!Y}43k&Coo#aDko|Uj4vE~o zpKc##SZg@<@;Zr6(;Ujp+*o3No{N%CIR3c9e&h4?97XDT3U<_1Y*S)lnzykvPJPFo z&fDQ{E|>4v$7W;YBHm+mXypX=*)MdPngp_xt5@`>?`T*3`6*|nO;mJqL-t}T#{TWs zw@5E|Ro!NKV>j0ae$DQgohotxJPNi4EOmU|S(Gg+xUpbO?t#X|#xfVDRXm!!;o_V+ zNukAmIXb0QoZY~6W6EKx11y_2DD^XDm)?^Qm^*vDW0Y8<+mk{uPjBn1?_IJFy?eB- z;6%%>Wx{SB=T1?0e9Lhs6Z8EgmQB|*svRsDT=MH1G^Yq$w1{aDV95EJs+7y2>JrJ( z^kw0ECn-DD#G8!wd27~8J#YM4uR$o$SpAGAt3t6z&E?C{dG*cfn;Bks>ugM4a$=qO z$-XVKFLfIIeda00?oufECe?Y`rv{EI4C{J$;}-Jo_fuZPv*Mq_(oFRhZ>bYMdS5TP zesB@nrd6AxT6>+ET<0tNu09gcpzq_I*?7l|)hj!^rr0^+n$@I5o9DXrb|cw(Zm z+I*$698<}5X}d@F1OFa-;m9SoMAu?H*Og7Y_1!`FIR_a%Jaetrmn^KBF)49HU1zhe z`rbT&hLm@?Qj8yR>sx~vmKZL+nALZTVb3$>2QFo5kJe>a*SnvNTIj?5bzQKQ$6fAM z&N1d%7Z_HxmTs^+$GKHg>_K$CM9-F!od*}JEsU%@GbP4+-+Ae&GCgxk7BWBOwEoJl zHvP(UD=zVmi{tOb{N+1ao_@0By!4-DXJhw1SXL#dx^v3qbLGOn7KlJdiyCv^$Q&K7F8-|uZJC-1rFp!$U>-iwUw zCoMxizqyBWO_KMIKc8MCIOq712#X7@KT1jj z^WGnDEs&_0rVw|^xj@!s&C{T2+ZO-dj9uM7m)f>49sB)3fQ#YX1?LqJU(eaLB>lDi zEYKBdufo5OA;+=zB!icJTui^?h1Dr`y_JShRmY}mk2DZ{I=%X$UdXKv-y(w_%slt| zh0>z4=7su;&NBX3qj_t4_NPhHR&7pr(pCC@hiv%o%HsalC%1($8svL1?31}(f9z}3 z{*NmDuM^^;FH6ckV~Air{@}ZXdH>_j+ZkqQxrFO|NV}?AF=LI`C;PbgS>{X!q_r2W zkW5k)abrKVFNopH@`%ve5?7AwJM`?lJ1bwuS-GB_)yB~eAM~ABlWVB2`!%CxPp;jy zLgz~Y%@-#`&d5Bl`QyjX)Va5rFQxcj=W$vSC@c3~T>2j;f9sr5vo*30vhQauC(6a2`b)mIsf-I|spg+`c*pr>KJo7h9OEv!LOnfEN>%Rk-t?AY%? z?dJ~9?-I3(Eo4_K^Exui_WB*i_xnGIx=E$fpHSL<&-+$mb7^@d`@UD-egB>m;yFKy zd7sSJ=iKWO7-z5B>{VY-b@P?qv8?ypRg#N@*2mf%o%$=OE0Rh1$YbLz`LmeyiaJg^ z?s+4r7yt4D%i6S$FP;i-;W<*hF+Jz6wa0nBXFa;rnc2st?P@U84y@peE;Ib`J11zi zn0CtQBE8PD=T*Gd&Hlou`=-Qs`-Ld&S7Ndom5TC$dri(u?i5$F*4AQ*{caUq?~y6N z_E5G$R`5a)*SC}DvXN(Z@n7Dn@$=1{Q(UTd)DnJLa@0nymD(FDEgkbb(KG6GTh{L0 zt9H+l;u2iGZG6Ay@R_3@Hq#nj{Vey(?~-CXFjd(OR5uWHTy znfG2B7Jp=4mCb%rvf+92)>kPK@5F6^;ui*IoTL0vUq=R#LBC>l-Ynb-#k1781N9z9rtB1jB%clrLo_O|8eF6O+F*H2{SzPVxxPrGToNT}r&Pf%WaOzPbu<-W;kHtUMR z4%xZH+xp&Nnlv+eo%e+Ujr<`o`^2|2abAc$a{knMJI`|2EgOX|Exg~ZUN-*?v%L5I z)G4Y~7iX{kAlbC8v99%||KsMVx+TZ>PJhjw!0)(R_)_SLD^cl3LKd8TP|Or{vUQ!Y z;es9!d0XGm-%i?B?@VBIIQA=Hms(n@-}Wt4%lxNX@7dt>t7Nr~?+yOxP8UkmIjy{Z zsXvY>+YfCger?@8tyyCC1L>xKK!33uMP-+l z%q1oB-8I+i-hF;hd%fL~Ssn?xmdQU3+8QMW_?OsowD?-x4iVpws`=?f@XE--ZH5Z- z{=P`h;a`7guFB)3xz2h&-YsuZ4?SrrsMCG-!dupfpMN#okzt>6>$l~u2&Nj3_G7i- zHD6T~H6xyDimEpmDy3R|Fg0-97wqjkE2s79zOox%rrYKxe6e_O<=H&uW#La2K4EHp z@NrUrT(6;@>F#xFG^m|er!V)!)HLZG_A;(KAEtd5TzrEk&G4bWsO~+U9o0uv z`e!fuqq8KWI8E#RKa&Lp?ol?6wZ2~c@auIgvy@iq$$;>rt*y0u98K<+E1hI0O8e|=VHbHCOPF#WNBjXCsx+onwCtSbra=Y;pY zf6uTl;v#R8`RNDZ|J&2}_hp>B~*!Xg5dD*iq)`_TJ&nbG-({SE7b zrn7Rq@z1Dqk`Vlzu=JZwjg#H!3(KB}Zfy{_m?y29#TAfx@qgR*iWz238o!PRT#}pS zE4UTyMadGTbjxij3=Y>H1m$<-%k{ZrHnN6A-`2XAwx`Q% z%Yjc%9=xheXl3%f6!3U@J1h-wBeA{`-4nE5jlNK&%SNYzN-}Gf7gZ{Rg zp{-IKCw|t>ck1I>V`l5M;f2nT2ZDF`4^KR?Kj!2D2eA!j1eCgWR8}sPHR~%pJX<_` z{`vW{cce{p40xcC*K;V$>g5HM%UxSn&0H+XA@{@nN&2@_t6JsXBsQMSt>`)uxj6a^ z*KNitKOd)XY+c7Wm8aHgqRxztdkZxhnRZ5pukrrL_;KOnMUQ6tPr9{rue@Q`q>={- zjcR{WW?nwvu`A;VkD9ifb4b(uYLVaS`)hS=%$^i>ose2E>2}WZlUx14q{2$zQbXBsmqy2C z!Gl}bRlep=<8k9X7+{rTHFp`q{fKX_;V-r`yGQpVVbM;|^!^(4;SQ1KlFs&r(!!5- zMI2ryuM%gl^6q_uCz|_?1zipJu9CCS)qC+Rj!A-EciA1cgrD74b|cU5R@7;m^KbNO zjJJK8JN3rX4L_b;nbsSboiyJqCR<(kn$OPap1rTma!DRnUh~`Jm;3JZ8DBpBc>BNi z-~YnJ_7jg?dNKKIm{Jl~A@eFR;r5Kp8(qXhT>n4&q2MohUGqY_)FRjW-}QIQp0FoP zGqtv~%EVukC9GF{;qS=Q340bAKQI2|rc@Bv9V)X-&RJu2<+}4)j;m}FLf1{38j-GU z&S;v)!){e=*0k_YRjQ9#P!WT*)vAYQHTTV9KAl{m)g(5vu+F=LA)Hm`-tFuU4_OKV z{nV>}_!Ta*9p_wUTBVrBfDaXQkNNugkESJ{z+)1|fs ztyfrC;>r@BkhDhqyHx(FqrF^Q-P;{?lh)^4usS?jb!$XkriSV9MP+j?C;z^`Msz+8 z*Gmq0A*D@wU1uNm+3hmRxbW;J+y%dq=wZ+r#Zi>W3d5_IXnF?56YVtX15O9g?iJ z6DLp16Jt0y+qhjeQXpxCW!Hu0@=;q(mOb&CP_QyDt5AEg#6&Hl?zJ|)$8+ph@?0Lu z##I$o7l|kQ)j3dD^Dc>Zb@7HrEk7LBW|qz=+m~4S?)j74^>-P?YjwYvzTuM-lSwJp zQTuEka=3V1#kAc=Hy2Gh`)KvnwPL&McvH_W$coT?^S)%wRi!iY(zkwl^nFEdRb z)ujh(l4s|r&(Kx6u{rGlFg| z;0%145X!Fa{Di$zQ*n{<8wGjOM|;iesyP1k9KV0UP~ZjU<;_j)c>S=K7X&+zhw(J!S~lh3mQYVG{* zRXVwn;m# zaqLoItWzhW+Qg~fV`MKqsytosxnS8J!`Ka?3pS_j7P)kRcf%{Dh^DehRobSn`FyMo zJYSuB&EV0)2Ia1jx#t@uU+}q-=*p=*ebM|+B?-zo#m0hr6s|EQO4f&7Tiv+7HCT*` z<@0oXciyW}>I~MKx}R6`)vr!oS|MUIUp*x%aW>26AI-Io3vbk=Tnc>ZbwVb)P<*1N ztX+%2-^REVHyn%K_!LC`Ez0Wj*6Tc5FlC+CywV@Pb3VHGmw$Tl>1cjG$Fc}sH%>p@ z=&Y)ifAdX)EjAV`@>;`R$Nn<(%Y5bq2LHD${c>Z8sEMgWs;;BvB(buCp0}4w3!D4x zmrK&bwbvf7|K28^b5Q<(t={C-DP|>a1ecd~9uzFRVW{{)=jyBYYa)DS$~Z+=?g%?=a&DAF*7Y}^wkeJUF>4lbLgY6u$8dl>N>S) zr*9Z?ZrmqQTg6lSz0~HnP}1Sj8Kxh$FIl4HkmddErCtJ~N9>Z_84J}pOiUwp$XR#g zX9t`5&c2qp-&x{%g7w^P)gu0e7ji$oNi4Q!D2zyZ{;p`(@hkJrek#gk=5C8V|LZDO zujKyElF9LH^X2y5%APEGuYRhpZs7Aog>MJ$H7>k-itnUAXXGM-ZL>`!jyD!)a-e=`Pu*MJQ`fI- zmr8T9KX)|ZhGa$u&&x1N4$jq&Hb0#5YU#u8Pj%Psol&Q3(jK<(_Y#rSg_{+wdkUTl z+30s`ZTGR@KF-*j4Vr(~mOfTm|7@2mIqP?{@NeSkW3fp5JoAc?_6f}%dtu+3ne!Zvw6e;U zzK`m>r}J1YfAjN;7q;N8@^RKvuoz>F_gDf zf0~l)#<*}vPJDS(@^*n>>DPU?-_8=b$|c&U#i&tq%~tH!Kac8n$3sAH*9|RzH~C_W5&%SM1~^M>oWLwki*3aj@dU(O4j3cL6 zETkrj=M*fKFn>Qex-Y8s+poFbnEy?ca5vs`;!$p4zV|}GW%D?E&f80EEiZi>B>n1c zQ)iBY)QbNRmQ~D_(*K%1r}?dYwpO!Y<3g{kC7a!(^V6lScD}mN?r%}dyFToDg6D^S zr`LEJ1fPiwZ&x-rw|z$Hp~HV_lf*u(*wGy&A0l-oU4PEu(yd=`3(cSHKahy3hwgX4?+Kh`?=UFM%*;S+Bd z>BD_dR#!#lcMb)jZ1fjiJtx18~*b4c|`WT zP3O#d-Bo?*&xBdOOY?73>)oDnqSdyQ<51F9wiTaeM>;Cz{IXJ8!rPi)5u-1(<=&Ko z_hVGft@qo$_QUyQGB=AE^;*PsraV}}vtdaA$Nx`!N*@ky>1#ajEd06U9pl4=(;3$< zY`xjk>5{^6ro^#*r$o1Qquj%76XvVG%*`-$`4?*BV~nDWU-`CzEgG zsTdX9ZTu<0e`I2sLVa(8Zhe*XRX=2tp-Ou|#!X8n*!xsv_4cgppt zrw;QhV%q!D?xFgR$O*5sms`lrxc)8o;1W)uy_=LS)S7I#EU>|4Y1$N~e!*qiWeQpH z*t}(1=YG{nKlS;U$N!8imoze&o-8z}KGA(B$b3`Vsu-O&s}CGH8CtT|B+9$=!K$TZ z)sy0^-iw7Q)u}(J5t9&jQKOw%ksu~f8Tg3*(zz&)cdNEE_b`8Pd|CEA%HgOZ?-|~C z+}BTUsrt-U{I-q5Juu6c+2&28nfFXKW5z49zu88s)p;8V7cJ&;)l1MTKG18SWsqaf zqV^#CIwOlQ&&y@^o*rMhHe;Jy(v~F`W47JfaP@hR;N%*|WvPHO_;?fYZfa~jrvPWtk#)OH$M&wSJKIj+Zl_1!-% zDeRlO`qc-~-#dt@0*PiBb;nb|vOg7WR2Jj+pcO_pjf# z%ckOE@7+CnEgSaxTkZLM`d~l1jmfPg_HnU!|9*-{W$pVo+5FIovoB{idonP5?_2W!>4ykz(@3@L z;tRExZ@F7kvszvG>bLFQ&9~E<7yo=~bLjZz25Gy(_};>(U%mbJEIy``6=bVD_qlmB zaMtvoDYD_6>_Kj23C(BtWKLgd$ghv>|M2mRfY(6@SIc9Qm)@VO!xp(u_LvHzkC5AR z<{xPei1A;`gPG?YUEDWAjYd_*7JlE-&-6A8)I36jiex_||AQ{x<({ElPFm?K-b7F%ok& z2zQ)F(ifW2v+}K^O{RU}vrh&y*mcjxMyC~BzxDgAs!u$?u->+|pRN z=jsC63%w2X6K>n*bAG)t`N5&{!exyU6Zzsky#23xMOj_@qK94PQU{yHX7|<&+1r}0 zw0yQP|5t7F!CwB@!UOT5H$*ii&6M!@BEr$MVafKjj8++rJ4UzS&!ToQiug}^)?skx#b zzGcGL~l^{H!vd7ns$X^+VbUh&)S9iQ=~>TM1)P&~Cw!#_2}d!CR%YPHO~sVUde ztxG@nv)aF#u)j@F>3qPyhD%%Oo0u#T4T_B&vk%DGRq8&n*&NCCMp44~$_%9wx1XA_ zuIgrSb}0L8xi9_R$D6w@T!_BJk`NvgvP(>C_Vn_#d-cm-&1zZMWU2F^Kxgi}gjn4a z$B+;Dg;yAImT~8teiB_gv24?wv&EH>7A#+X$apyDyM-lkmKZX6r1M_Z%a}2>p<-F~ z!{;xpb6>P)Te7`fczIDp$V(qvcW&<1Ynvy&+4eoFuYX&4cIvXiuL3jNP0ZOC4(8X3 z-+X=}N7UiaUFQpto1G^gNVN6b{MSKBeeuDs%DT+A#BG+=EZ=a+`RD7Vz#EH;wnbE) z=X2b%At=LS+XaSeQC`1xxhbCXb^h$k%;mAr-uUDN`7a08TxKjL)TQ+k`K|I~FE?-}EqF_^q zeP?SR>tFXdJLWvlcfCGwL7CI*LmE|a4_=!@hgKOBvZW=;_3TnqmI*oDzo%3F(W_94 z&MRsfNdd0=6>?Y1y(l;>tgnl;g0ZgVSm*Z42VLb${nQ*=tM=9W{QOA&QeimD#;q55 zA9L*uh_pMlgF$=gxww7v!e3n2_9gMz_596Wq|W&9J`!2GrZFkcsdwhKg++_*aXnSA z;)u*XA;7szNVI2$K&rUGL4*0%TaSt>E@;rwJXrjo`%;32Yo(u0=Zf@Ayz67WovK|a z6B05%S>Nwf-h-)2(ky-cJIBn~JDvCTfx-(9I(S-Eec4jd?{hFA$bv&{zn#V3_V?TV z_pM%1eoFclv#I5w#m8P}*@$@Go7fq!dy(+^-00H+vFon?e^cwh8(SH8peR4{owQl( zzD5<7iE*L_rb*=cbUq64)jWD%pzC$Ug1#kP{_AfC@9hkBy={@b=uxFq#mlBChL5zE zRycpzyzR3S@18>&m>va+t!S21mz}-$#cLaz&`M?Bwk0Xe=B$(E$;fGcQEGi*(W0v^ zz$CtW+Ko3woWJs3srcycVa{op`MbKM+*8tfi!)Ed41L|>4=M!Lw;uZ7zcW=}DZ~8( zM|rrpU4Ga3C#><(R{zSJZL_B*H}vJxiSLuvxZ5n3R9$&t#SQP{20NxTq}t17vFl`U4w&Kuau`3K$ReaL08!w-Xkkc5WGG zLMKkCY|gjcab?r2J5=jqzRjl3-OYeKaID(?rb zzuviMOKC#yD^V69(X*dr#X40Er0$#UI<0D&uF(Bgm*(y=HppHP`6hX3nzsF$HN2js zQX1YH=d&%!eEuXeLGIbxM$kiRml;AqcvGZh8 z@|;qgjyR+Ddpp-oy*uM%^vjZ-A2Y*c_8#S#V_P8w5&7K>H3ghrCU$V~3_c`Yxa|^_^a9ILFq|4KCje zvH}(__-n~`m|0%xVi3b7uHTNUc_+($P}N*)rD}J1wwTErXOCqrTRFd%I`DRc?a6ZN zJy6Sj&Ya2qt6AM=>z-e-%j5ug1>&Rt1_`MSc^ zKn|uYC%3;abyQeWsqcTW^R=AlyS0nfs#x|Gtz0|*W@l#+|0d%jaqpN93$Sh2=^dQ- z>D;P$QbA`{g@ybH`aLzhVSQov^4YhV7#r7rD=?W8Yjei_(4^B|?H|<2bR#VTPQCfP zM9Kb`pjLc)=){SuvSjvHerUKcDN6s+jgq*=#C7v@FI{z*zV2=M%=pNLrr^~})%?y* zTefADS>x*sN=M#Et@*m_L!I8K^qkzDHRaC=PTzgrVb!xlFtA-tv%#eMsL&fJS^QjX#8o767IcT~?8p2hN=)vR#lLQkf&oG!KdZC@sD zSNOZwg1tIlRZmRYMC^ZvLgPEj$083hrq8{QGxZ*`(xQ9)+>a->_Let%vze6OQ=a_c z+`AjTe>R2feSO0={gER^CS{wb}WWJQmqvdheQk^=q!KEgRRZG24+Z zWK_AqX6usbrsE1Z+Aq%kW9Yk4bo0{YIXZ{c7EGJ_q$n-UsW+@F5_$Gznyi(?AUr}xaUj8NCUk|--jlSc>IluC$_iB!-B4%$Y+XRhodu6N%(%!yt zr{?xL?UU!5vVNbN%ehWewzW#w`pFs}`{3L?@@1`&r*`o%%uJWfb8pF&%j@pyUUGED z(~ALmMqhV)oSrs$_53{y=Hg%0tf=EsdzrX5v6yY!BU6@@4{S6i$b31QIPv9F*$WN| z{u|Qy?I*oo5$*7H;UANNW4qbJOwFb)N)x*^_u=K4Vl`~*8_MpT+BcFE%i1FJuU@>@ba|a07q?l<6oU=(`Dcq3gnY?d9(a7OFVBaW>r0hW zn3ud)jh2osQF$e^!F4;!+#Rmrde=itUw)dh{e{f?HL2x08XF(D{93+p`V^C{yw=G=uBGA?Yqyg;4n8NYAOBs&B7xZ)0n&4C5!DvNI3c{1lq<<>oZ zcb${xwu|mtGIv>(@Ez`2VKqj(b(&F2{>g68;}7IosQGnTy>v`ciHEXtCv)u7GtXWL zWF?qyywvzI>AJxE?De(I{idI+-(Qh=ih4D zLhrUQg>Ejrb8@57x|f?T{0l!2tK@Kd>zvcEM`CABsO)uXlTwsQ_0cY$#kc10jM5Il z>$|h8w?%SZySulyT0!RETrn{&pEqx{st&I7T>Ac@a{5{ZH9=WIWdCUQpPZu^_dZ~2JD0bq-Vyzn@(fGZ$lH z+F`4cJKPMzza>mzKEZTfCv}Cz`onoCn=^G4Rc3MZN;BNkN}9da?t^?-Nn%z`riEwc*FXMJlKqUo-_M85d_7b5o^8LiR#wn;n- z+LWTVZ_eqfCo^@-V&^gzS9q{q6T4#leD3L^p=ZDN+;ZFAV?O8N9jlxbQzzWhys~nN z+4~FMKj}CgtcbP$%)t6Ozv0rR*%C;G&x*3BF*^=Khz4<-!)#G;UmII&bo)+wPI&?hd z(5>Tz^QSHR*;0FJVvu3N)K7fIa(YvjUS1fanBwly8qLd?eQ@zx`Tw6^9xml*S*1{I z8q}##{(Z5F)W5U0Y_%_5dKsXql+vyxxX?PNlOxhDX~(_fN1GQ|AIKJn@q17wmU8^% z9*wCFSF`hMj}1&YsYXb>H|nH3Enl*=A$Zf?=aNZljJ0k`a6guOxv5~&#CV=NJWHS7z4NfIILEP0=JVs? z_wm!*r>Yz+*}B^7{DVagLRPHcv5qc2#??Qyshm6LS8@t(p5@ZwhjF5*J4|A)ddFUD zxfSJAvfA80%fl_fHRAn&bo~qOo*e3X?zu$6>eLF4hOO_GESRP??QG~%?v@*g=@Npo zwz9S`PxbwMyudiRp;T8mV(!(-BaE^#(?WNju}}T?et&UA`a{@BJA+o~O{vUSBqb0eF?C#6Or+eJ>DR!K`+w<+;Nh4Sv$Z?A3}IZl`vx9jI7 zn_E_U#ahFcUHACbleVvuJs>%QL#i4RP-`?MK>Gq5cNuJXEt}EWgy|Gx@veQoO zPv4ilJ=?iT@~0k1>3XKk&dM1bsCI*EMt1M6N_(asH_lAxR*9M})EZp0@!OutXzvN7 zRdZ(X-f(I(*%2p~AKkz9%k+&0qhsG?%&7EV|44G;#fKHPXWg8(Fc=8jc^p6Q&6#Qg zGeymd@3)E9aDJ`Z?b5LQ$=8b$UijZUDe_rz;$@cgN1Z}q&b-K&dGu&#by2u-nu<@u zvQ3{SPrkGG$a8j?i7!eX$(&g8;I{em^=vE&mlzU5d+L5a<(_&XnQvCfuOgOdD|BJ{`Koy8bkGz3kf$>AJ_jieUg$;I=9D1Q*z#_{(8nA$vYk^8`^$O z*;vfBWXi1rR)(C@{f@=#$v~uQ%w~$W>Ki zW~}m=!MKLg>(9fdSHE8U>CvoGYqQ&N(!MsS6wmL6J(^XPM6+rB_$;MT!BCNso6olM zi}@7=&YOlOgZSctE$=9v46^0S<=*7HsbA85g~|6u`4lCCa@{lEarn+ z(f~-)5W$maJdM;q+99X}t#T@$L5e_t$R!^Y+`H$4`H+-rOztZJEt{gVi3- zrZBiQzRiC4eTo+2g5VF&?=hsk%-1*|u*sP*?L&bvh%x8Dn^3`B%ySOhT&dDw z+RBUllRWnQ!R-qLaohIYNL{(3YOc!i-{BwUpKtaS7va9TQs}kFpQ)_53-x$Ev{ZhY z?ZlsW@xtdBd((GJS3C3-&GEPR8#&cz*gwDL7*%ci- zbIa$dV-c~_TrTY1*da2d)bHZ-a!U?%b;Xc{%;kUHT`Q74w<=~!Fwd?1hCB~q9{<>I z&Ue#Fmd@2B>o*DfjN?l1cl`0?LSp7t-O?wwf6SeFck`JqX7Z~_tP30~&Lotrm#$bK zbw9A`{;pq=5lf#i`_EF!O=+FHDEasEm;b69xzAna5?FmK`2NFV^Un3&+M+e5$RN}| zTldplhOXc0aVJDdufO@{IWZ&X{RY$HyL^Jucg6(W-^ul`I!Nf&wsI}&D~WR&U&%2Y zS1h=<=AcXg*PdOwLN9zOseJxk{n)Pn_tR$f6UBOGOFz5hzvpPg^yN0QyvrZeC~mwK znPC%@JEJ3g;Yaf~k0M_@T{7e5y?HSYBwrXlZ4%m}_rf*f&)fNlUz@yq&Ut%%eW5g` zv~JgN**vBogQQmTIZJuBJ^ohTnf~A`Z>PqGZ{f=`&fot3uj23F)7P(W&tGRBcWiP? zLfDz5F>A!OsqTOIsQr)mcH77xmgV*?4oquX?LKXFnfj*PWA5XlG8W1o=KS2zd}hI; zYh6umTrI9yC|LL(f2H|WaA(VuMGI2g=Vj@%NuQrp)g!TXt;v$b2d5fk|2WhWn8wSz zMf%-G_8%R3&y6-E_wAPx%v-X2_cZ>nly%=1o~W>xy7OU|&&j^96tC(9O2M0)+qmVX zTw}c{cvMOAs@uuF2$@eW?=R_Au2|jZhr|KmS1ve@4_D_(_tY~?2BKhN#cL%g|y~=#1hS}uBzhK(Q)pYf$RlW9{ z1`fB7)t^syv-zE|j^RJld9`&$g^xfpf2Vyslk`Xghce z9kkiS)Y8C+D>W|##5OW9!!p_qI!Bb?X#3mP?Ebjzh3B5Htv~X6?R&9X%J=lU5*O$; zUCF(r_EAhDKz!ZWttpnfEaFafHvaix=lp4o@e{@Sr{A3te5K~_sq2wq`{9Q%^CW}n z?{s>;WBI%N&;QHe;{EmS%g^WQ2fg-t_pjjNaqh@}3SRT?+Q%%OU9{W6b@`l|vG%(s zEZrY&o&R@<>z&yByMC5PI_8A{`>FsY3;RNMO^Oe-y2f5DeTwZ z{^{XKo8pcre7_$Xx3a-r!?)J3ML2H9U){go?q$fY`nKI<-pm*2GcU~c*t;@x(O1dR zYi<^z-|~a_h4k0X7zi_iqlzY6d-P*bTfB%}Vzl0}vLt1(3 z))g-{e3M@DSNw`+mU_!#zyA7srS!-dNmHB}b60-VRU70t6Ny}cuZYh3##5CPk@z#&I&g`-} zUqdIG&M0oLHNWUF*?wZD?kP^u-&?ek9jd>cO=C3;Jj=CCxO`8S*_RWaX56i=?O7x6 zx>TC|=gO16Ql}Y6n=GGD=lxvmwa8ZsmmOawA1+|dJCzYtwo5>2SN!ti)GbD~c}_ix z4=2`my?Jxe)vh_y!(Pr>^L*-qzps8hDu1wR!)|-sTQB1E3LFkSVfxZ@ROr#W ztF6Z*7sVH!KHYu(+?7bL#?5u?T@F*vRIQ#9`?$I0efoA$6IRs~?djX)qJ8D8bm!?g zoUXib?^*sn){hs&Caj&uuv0TbaMK}^B0Q$~c% zpWX(Mg9{dzR{c4ikeKqkDeTsoC6>Hx1*hg5Pr9qs4ImhOk7b~mugJ*5d(N{D6M=~Bvo+Kf-j6s{ba{0R??l>9CQ^&G? zZkYB}B|2boYND7^LyVur8^v#$`R1(A3|DJhy#wO--?mONV7ielp4713Z8r1HL)X1e z%bsB_yQ-;UyoC8f@kajB?_{_03$_1M7hk3Pt+8)WXo}o|C5JoNoFw0{o=f~NZ3#z~ zL|dj(me=XnD+W%SGusc;Jd6uFq-D)|_+|5hgj3ZQ(+$;Lta?#BYlimH$c{}3=hpma zUCPjVV|fUNvvk7W_7rA0ErnB6$1H3e#VvxkUU1qzR*l@d^eJB$gU)3WwLKzT8~nB~ zMYq3OAzHw->x->*$>~Pf39exdD^ge|DZUQMGnEhXpVU52UOjP3QlEj8(jAtEQ@ZEb z$n-mWu|4`Wd~>gilmw4qzt&7M~CN3;=j8^ zgY#m=`DLk`wti;1A5Pfb*;4Gp&#L=+!E)Ug*Qc9P8|{UrO|y=gHle*?&F$ZjVrwoi6^g2Y|hns=lEb_TlGY7fp@oO?JCdww8BMv=B`PO2T%OU zxzhC0KK;rA4OK;jgH7*Q?z-JscwotvI|o-NI`NsPwR*VC%e~^qpDVWbTR2~CS77rQ zzMfek?Q3Q&nw*eew!1@%r{#Lm%RL8mqMJEqvw7`okPy^7aen_&v0|S4Yp(g&{XCl< z?O)7sZt}(U&M+0_9rG_(D?VJYd+AfXYnKBW`UN>|Sn%$%zFVbs|HUaEBqzHJOp1Z(WNLrYY$qgEEB{MJ zbK8hm9IokCSeZ8b*}HI`e0;7bKO$vY9qv8!N zKAo!2aOB$glLtCd&wJVnW;O>2O$=&}e=2uy`ja@X|9iEaTNZfK>+a9L@!rx^L-+ru zNYB?5q38CnmVf;x{Vnli!mk(ZJC9C!x5Y52S>eGCFV3sMGD1F6;@0gFi`fv^x=vEv zpz(t7!9D#AJ4?m8kNU3;e-k`y&uShU|5F;VLYqU`=Sk^C28dtED$ZZ}+?H#b-rd6)Esj#NV@Iy%6OnVP`H|se&SAOmLAiCVS zjA5aPjAet!>%-4d*ZupYA3i<&NrxN9zuW5iM<-{0d{JatW!*FL+*ym6ap#Ta8*x5+ zwCDYr=G;QgSvUPJKmEGB^1)-vUk5j^?XxpslK*z`^!4yhCr$sQOa6OTQf*%Of;ao? zlGf9w9wW;pvhDVAgdIf`|R~O1VC~Gj@)y=l7mI!s&S-Lzsu=Zx3BW+U2*;Ug;O7L=5L&t;JxtJO|9g| z9Dx^wSb0-yooCoSn%uqU1plnplakiV>c8f))=zl*;@d_VJMP~pQ|o?};PB;N{AA%( zYgWjv-*&+}F_rDyYb(yzXYMw=pE2`!Nx`pwbI$H>-+sG1(QO~=_j^B<_{!eAG{66| ziT^8?oXm%_o%e6OxT$c(uB+L1dLP~Mc-FJp_FCm-hm(QZ-)3l}L>x ztG+#so&V#YRovu~McHT9PtOsxPpeXDd(8dx@`t_iWNS7U25VilvR<^>@>5%a{_j-B z({IGte9WvHqJD~$KiVQywAkBs-umEx#k2NQGct3jKeZKCu!%6eC$zR(%;{FhiDEMW&!G(WcD$e`weDZBYj@TV$+1w6^Que*8IZc! zTfY2{7dC2m_(O)`f0L$0(VgkG9EW%o zOO*EgaVwU8C9{OtebJ(Kwj#XGUd27sDBW-=f60M$$Ez>&3ohtR@%?XA`fck0)m)#l zjY4iGA9xi-T#!8I8Gbr0&^AqE;cVub{;B`iYr5OdGM>`VWY1Wl$`-^o;e+vw=R2SB zSvp9ndnR+uiAt}tvple+<@;RbI~88`p?n`~tmD@wCO?~PdL`-g3D=%a6{US&;)3b~ zr4@=B=X5oFSh4h}-m-Z~2^q&aEUvwr-@Vda`LxD=skrAGbryTiJ#X~&f^YDx7c;W7 zUS@eNaVXE+*=^hU?sFx_u9wC7+58I^c%`|`ckIc2v-gGZ7N_vb<=br*FVAs3YS+KP z`)+^jJzu_CtCjNSr0Z~=Pgs#QT~J8%PD#1GQ-T=tzg0>psUBt8TY`>>ZC5&ZO|p)a zlgl?C-Q~ZWqHfuVldLm}CrlB4?cb*0TT&lC{$VeQ#_ zZgGZtM$D^)&b}dx2BJ!8XFRuF2-;P5Xqt1K?yoeZr5^2^ht3@;nftO;VRHVPr_bCn zlM1GYJ_=(@Gub{-wBbjplbi0fU(RfYi_DBR-oLiv@$5@)9&dUzN5%Kfrm`dFoo7DZ za(daJYx|x|$ZBF(ymbHUt#AI!EWesAnW?s}V98F#c;oM--OAETi+8uEwY)zqda8Q& zy9eE(%c8??yJlThIGvTu?vR)0^lkFumdd>rTknakxVW@7vaRB5f(xIf*%rOG=coG% zU$Q9v<#p)j41YcSgoK6)L1$_4hfDbWu$()sBT*;bpVr>yt?T$X>Y)C_-}R@SUDS?@ zP4g=k+_SRJVOj#K=bJeii)I?Vb6VQNrp{#L=ISe_IJcJdyGLZX(3W}r{fB1$dMM=R zYNU7kV9mA1+S^{Zg@vj-T|cXaMexnp0(VmuBYQRhkg_cZp{2 z8jZwNxeD(i4X4cY>1xbNoE}lI@!sYO6ZjseRTl_UR`u7PO6?F)dz9mH=+9{-Ub%a| z>YLjV43-4zX||{E&77Ai=k<}}(vmcVlC|khn$N7nZ|>RWV0$6%xoW1aS>6*{-`qQn z%8_a^QYW+S2jxq?OOP&pHHZK2EY1tQaZIIlYyWXv{E@<+>lh@+QT$ly+T86f&suX< zKNY&jzUt`@Zi%)}8v@c*dEXQ$u(eO*_A_($I@i`-Gq>@YhSJM$=M6h}GygjmSxw$@ zJhD+$_sFpu5_hgVl>L3y-{0MOnI`+WLyNb1+kHrl*Ya=32$`}mO#Rmft=~7J<@asv zd-6)FeSuQWIrdqxn_N!cxs%q%6P~_V_otVt-<;^y zoWXj~dP(=Co{tmsfD_GCW?X%6<|xl=fwi;kJ}s`8|9oeG zT32Djov!s}9LbM67urvqT(Ngz)~Q)93h(l)u9CaT^YL4tPJqpUUtjJ#laf|k^&w63 z=(XdWMN_*hQka9-^FH?7V0f0E=XZ5Wnc~SwgEjz6ffSjqK`r7 zqO$o~P30(-G#Otl);Om!ze&okbRLA|e?58d*J{V9c9uU%F6+;7YfYWyb9E-WPH}3? zjU7TqQf1#i{&L`$_Nj)M!LQHmG?^1)o0%$JDq^tY(EE^b*!X1Tgx*S(|%dr$mTKYiX#UTEK#mh8yHGhesfFRdihV5JC%-?W$#uUR< z(<6k+yvn&dRZ@?>={#EhB4=sTsh?&)cd6AbH5Bo4`fkYLa{g|%bwtC0qz7?fxqN0( zn+|MMTdcOm;`za~vs5CIUiebYg#)l=g(UJGY2R$2-cL zG18k*^O|wu%0PjwN+l;_rWy);IJotfSe{CE)#Uat!;%SyuIy|x+#& zhYoK#Cblfp>ZVn#WO@FaB}YU06?{Iu%h?qdzFenD;(327uid;U(vL3pC%89pGo9>O z_n=9CyTlutN@2_1Kd1D?9b8_ix}93wnbCgk&gCD97d?BCID;6&B@v9f+~s`c6}FTG z&vaP5b$8&)Q1{Kj2Lsnjo%sFlaYgaou&*c0;_~-i$jfDqy=S`Hc$LOB{kbx#W>@cq z%BOUQ0{RxbJySe+da9vN*2btOP(*6l*uXl`!Y~jx% zQ)b_oci#B@nUbS({IC66vf$HerP&)@(}jGGg-*WD6EUYVC~wZupB=vUbNFN>I$kqI z7=D*%ezkS);(KhrKIdGW@P2uV=gFm8dR}*g9F^C2^KjSN$z|TgdHMY5U%HH!E>r2{ zv%SeTdAs}D{})`B{yb%I=}ggS&&3a|S6y4Ncec|KmB6`@UVgmcCB_=eEAJ{XaeWL^ zeX`U0)a??5g)KKXUGe)JRr=}Wlfn)sb}8MEm9N%5yngY@xeJX~7V~M%JSSf?Jw!A} ztigAUW4fKsT+>6_{I;3)y)+4Xs-}PQ!0D{E{KoqE$FFL>y%)3J`|w%E2~+kebXaOe zexKrdeb>onGERS*d?p02e|-F+>|k4QdHu1YyPT(A-j-#nznEF!qj&bv(`PHQXU_W( zdD``7yNk}kZF6q92`AM%73lu!bFjZ*ao_dI#~r^^1T(b574*$aYCOVv4B#_t1LRDH_TP_Ik-XC#t^xG(Yr3 zMXJEv=+MbvcMs-W5UyPlQ8ih5A@|y~mu88d zZrrK)#QgimX0P|0;x00-{l0VfPX(Rbd0W%BA!Mc1-(9;OtiKkziO;;e(ed|&S=+eo z1eoeB=J@;afPmaFw@FvNJk8p|wuOOD>+EyxP(!CGYd}s^0$FH;RtQ z?UDP*udJ`PkSXNb8uwc}DlR^L@jkdH$+7X- zSAOq+Ypu82P6qC4sN6p%zvJ8uu}7j0rMGS=OTF7kG=HO-VU-J_})=uVS2%9d~aN^`ngQ8A}l6#e2+7BPv9D20w(&tAvx(;$@ zB6Oq->U~4%)T$OIu{S+RPVQWDdApXr6Mx zeNE+p#Cu|#5eH{U-d>&-^lR~{<*O!jdEHnP$Mw^!QHA;DkBVld)wgTDO0DBDmw>8Wo8@6Xs8z$7j9v#m3sq z6PLaHH-2R@NZqj2G(G57iRZ%lV7C=h@7AtbdMWGew!H4Nn_6#p#eIG#Tv+tZPw<^I z>qEQaUGtr*y!HnFw&`*>R$9?nxUZ~v-qSSwWM=EIqpxmosPo6koG4meUA_OLR@t|G z4KJF#EZ09+9`aQ5YoO2M-G-M;oYwrav3S8_qrK4YR?DsYnR|VwDjFLt?2diYczjyZo^XHNklni_+u_#aNuQT)ZT~efIql4&nNyS87+XISYMNcy7Q(Bx2Iyu#1ubYXYJi^?mJ7){0cjIF(~}o0hXy6tLJ_Rk@7#k_=LmyStpi0 z4cHs?c#&8FZ}Oz|I~PA^&#BbiZn4Iy?ci#C?zi*fH{D&LHM`^D9PJgtKW`YTD49Kd z%vt!O%t`sKQL&J;MTLJF(de4iS@}c(pQ^)?9(cM<~rv=_xI=e|4E`ATBrH?NXixyt-$Pc)yZzSZE7 z`V-91>*Skby>`Nvw0W0uMUp-D%`NPl_`9I<$WNig>&lz-|C^m(Qu5wJw;|rn_v@F) z-b=AhRgLb(RYb0{jH-y)ms@jVcmLI}?f>)sPTIKX%lUGL&+(Stn}SPL#ASXsef}u> zue(S8GfgTuosVS}1~j(>&s4?({Tr`m9DVvtg-JEC zq2J#pD^qKOzVHp7Tz_G?o)Sr$#d}XaaNOS4J-btLpONCCQ<=}Ur!QQ)RAAP*PxZh5 zvrRG1dCZuQC=%qi!ZYff`S1E0H~-6IvNms>62-XkS=xdrU%je%r@SgFR$1_j;cS_F zpxTpfY7AL(f^M5L?3=NKVafah--Ec8RWhB;K9M!B|Efb8q&Ue`@3$#z?nNBW%I2 zTUX%&lex~)P&=j^-7{~}6m0VH{=GAL7g;@j`Gsp2HTQKhc;+(Rdv|1uY#;N3TU@h$ zZ)N=PGVYOy+kwENbB*Nvxwp+-$S}91pJ(%#lo?AW)tD@~`R0!N^oefe3pi#kyqn3~ zcRj*F{dBx*LhcSN1Br91RDLl3E>B;v#W;yOU@Zx;1Ht+ZCSoSw(3h(&{YB1PLo7W=Gd80kmBvw`MjHhKj zdzw+Dl*O5{-z@3hg~NY+(^YW&ZshsBiA8AQh67s?-<|v@`P6Myjn2+3k|!HO_vn17 zbob-2JW|-gR4AOc>xyvEPWc7l2AZ>#9r!P;wzzeuP56e^r-hQaUpTHEx9MND{D;;% zZj0*YF>QkCna@QZy{xR9X?bMz&lPd*8oWI!)kioC6n>B6uQB?oje}%4(f+g?g z8wT^VFR(WpHMDr4t;Mo}ujO{SDASBRp>6p+<||lTL?7vJ#PAE5pWx?fic-Gy{NCY9 zzwN%wayfsc+R|L}#&!+MS`NoMez$H)9lE^fN+RO}*O#gV^UpD-MF=EXovF{yFo{Xl z%*vQ&^C*vZ{*Ld9@7f*X)0y9s_u=Q31+Oy?KHq%TR`YAuk(zpGv}yTG$dVyKd_o z$h)h{A+hV-JXYmMjlgQwx_SLq4^N!zKdGqTb!p3+-hJsvKe|vn_?ow^=5Ey&7Uy@XzF6^Q`e&t;Rz9B@nS`c@zFC!^ zqW&V2am}k*6BW<2hdCx+G*;y%H7u+Q$+1vUIeFtT*P3gQ`_z}rTT)o?=k1fFPe1%Z&WSzBs_!l&QKt9J;u`yO_7?xDUrnatm-Wftu%D*v4Fc-xdK zYxVo9Zn~}e_+jOY>x^7i=l$+;Hu3Q^uNVH#c_QYQgt(u@7sD!*?ednwzx}G3=9M2Q zxBk=_@4~)ot8jACWSJK!eXBV(H)?WRD3wT+u;z4G8?!Fu+0uHmiV2!Z)-6xego6B? zl8leAh`8T5S6wT7US$S{uIt3EYiIg?K3L|ruXbYWZ@1v>CZ!qs&nq9kcc$h046FUS zFLD`)f310c)SLUvVfXs-MGlYO&$GR~_eEgg!$lJ^mDoHI*PYhwe^)4F>$NYj>g#o7 z8_j)<#Ru-(Oz(4FEPQmq$2FE+iVsyP=bt>5t0o(QH9|ABbFs!Zk%^k+oV$X zs(k`G!wd0yzi+MYbJ)qZ-{e3(^L`d-2Fpvj8)qF5UU$01*F`|ha9a48M84M-Z_YZ+ zE|FGb61gyZiul$RA+CSzCu>%BdsjW&*Jsq}vFdWDql(P~=jWBvlT_{;dd#ux`8zWM z$GTaT73F((8O2mTv^n2AU##oM#h^Ty9O72PhQ-8`tcQJ zou|9^EW2TMf1cbv3(LQ6e*Mh*CtI@edieE|vzZR>|NAvBoSESW_sNng3@zSL4m>X+ z?b%g7ZaQokWK+SneZS_M-3H6H|JZ$0r#VXGvHQI4!V}WUAA)AcyyPi2mrdA_sN}v) zC%tT*{)?ucm!?0}Q{wRpJ(yZ`o~=-Gl}3#Kv$Nx+hei+i4zDyi(RNkCYfiaph-&!j z?gr%@Yb39FIc!|r665wKLvNKtnsR!f>anU010{XoNtRhAE(hN`RDS(wH&>t^-s2_6RO{&sH3Jz~o`ax;;*pSd{{s^cw1xILwwY5KEi* zOz_Auy~gTisjDxZe`~dN;g@8;CfD<#`F^%HBo8>h{%qxu?di;-uwv@@sM(wvo9|w z&QqUjh32jJUgEBQIg{yjd~>*v0xvSz&T8KWC~_%F-!j;+_#7+iDnE zRvKOCc;E2sZ0U(U=SwQ5UMzL@Z#7Zhx8jlsnX6Vdb&gHi>^O>`dr;&@R?edhv#a&6BA5`3nNNmn6?QcrI&&pE$Es zWA56Fk7ortcxLu3k8r=AFLLz6POn@hTPM8Ei+{qk77mftQV;#TE4KJ9-?!XB zee?WBvpQnS_2biwgq0$*j2BK$n7fy;$N!L+tLR#mM>0LLwoh~Xd~Bmy%#_==6vuwBKo9M4?%}<+O?$LhXu;cr)CuHx>_}|revdVammLt@Z*bw zFUt-;xk`_2`G)O_!p}r8REbq2tTtumd=juK^hoqVA&Db}_gc6)pI+GV&2PK@J8u)c z+L$O#!!5j4>b2i84NAU!bnH>!{NmBQ&_UgNhDWy2v*~^*GS=1;^9#>0Ij0=G|LdXT zh3}<`=O>=vFH?M8@S8dI#GIL&pQ9J?-}L;G_51hd$K~$V*WaK2=G}i)i)HP_{z%#T?k&=*S6;R*Qw}NOx4`q9&&1HIWDDuLxKNn^!v62+6egDe)+E-io<6qb2 zrStDi3$y}kxqQFG3f=AGJgX4k6>rc?ToUrcp4BF zh**24XVQj5c41wa{k{oiXN-;tFPh#aF;CjGkA7soF2Nm@-1AdEtUAhH#%saS!VO;o7}v^pr_Sbk!dCOOru*)lqPag8v8o(@ zA<@UUW$WDqS1k{ht~%-cwtR`KUT4a^^v?^7|Nf3Wd7-9jB8U2e+f|2la6W74Jh$?S z?{)vrl2hj%`D%6Pd4R`}=o=G{Nd&oZ2gIbFn473sF?C-L!<1y{)tk0Uw6sm_Nk7N$ zz2#_(?LXd&w$))`-_+aQOwIDSP_u63(d|MLf@ai5I2CM{oOmknrQQDJ?$Tci(wkmh zzm>?h`jmKPE;xH$8e8Iwm`Z*d9rr^QkhX=c+PW zuD^Q6v+MfPf>H!S_DmKznWvgsss6HO(W~4DwI7Z5c*A7Gw`=c^Ti2-_|7B~xkI#S4 zx%OO7y0!$~nX>F`(ytr>m-HeK=mTb$rx|bi)s}HwVg7T2x9X5%;nayw{)@0Qvxv=5T7N3|AVb)u z=c<`sqDA!YFzzYbAo?|7`Br7MsvRbCHrs5yD`B#34&N=7Gb$ExjuV0wFdgZSXkfph zeo-{!g~kP^yjA&P&uV$6&2TZ88oBL)fR6T_GTRM0Yw{Saw>Lc1GATUs<7yp8SYCRR z4%3|%&*qo@^Y@$_FtbKF@Z90b(4ZAx1jE)$>o-xjQSEr(_ynEV?$^B~zMTDFnLN?_ z!S+5GwxE}RC+{{~UjBXg?ZOq_0Uy3TYu{<}@P4_47)$Y1#@jBB^3$yk2pxTL=T7mi z&u2GuEVPU%_UxO_b1pMbZmIj+OOed;@~hI%P7fBlG~L#Dd(zuwt1q5!%=CQNWiBWh zx;Ewgx=v5#)SM%GnJ&CL#WW>&_N&?HKYY(Td&|fw^WJ&KC5a`!ejR>mUh!mAe%;(X z>n}cZvt+#HmZ@BDpOO zvo2qJ@7?KVi>^p;WpRr;%a`tTIDGZm`-BgDRkhEpci33S7qQ#Vlh}9McFPRQy?fdt zsx;*b`1d~gzvFvA@#hs&q9!l+uTehHIQpW*=N$*-4zYx>y}I<~H2dU}MN{7xzT7i$ zDO0E+Yps~erq)KemMuwPhgKDzpEV&*(IZG|*#Q~*8B7U@D+|75UwOYZz)G#L>FBbc zb*m@*Xh|@45L9Yf@&55|W3{8|tFC`{$a*-tWAXK^Y%hOZ`H(rMtMJg*726JG&AnBz zw30nt@yY3(GvCTtfBIpbdC21P+M_JC=O=W&H{Ui-vFB9P)_vlwecJ=S$;Q@AiM8<( z*wwX}d!JCu0mga!yf*?l8fMMB@<(Q>t=?R#a}Q^?Y+W<&?{CKZH+kQxzvOTmf71xG zzt8KJr*_(2M}R*i?cTPDwat~erDgd~uPTamWlsepyZ1h8LU+XS+x&KXlValqlGZ)Fb)asBNO?`R{+y>@yChQ& zZ253l>*=+N?2BzLU#WKDGqU}ztp7T64vT#KU&+}Dx0b$di4~j5(#`Wf%9~Nod}GvQ z-kIjL#Vl$fkLvDmWcA&7)*G>Ay|y9mBIk_PV%H28+=@E3_AOVrit4LG=7(|lg^IVs zP5p1oZoVAy{;lWg^H+Xw{EEJ4y2$SFgIlG#4z@c(>dNh>oS*f4twuaUz+)M`Eg|pT zb3Z?QHgVdt_R2e54X4DHR&&QxJZsRpD)Yr7vFbz8KJBb-`F=HShOAi($9eKT?U$Za z@u1W$GQrq}`C-wlqcZ33Xm>99aBkDLC0cfyBhxc_Wd%DHJNzzO>ydKo$YS6;LEaNpE(ndOJl=$B^gs%?3imbuqtU`hwmarSZ$oeU$TlVQ}l?LcT!uu9s>rf9+s?`)WsCj7M~hXu?V%*Gk(} z(`CZHX2`{*WxiptNnIfSNLj+RwW49+^rvp6+kAqfovpI>&njK&qIT)3=`zO}?$}$2 zsa*ShFU~zNe??IKW67M?4=;I3HgAePWOA$Bz-ZsGqwDt`672C(s^4U^Bt$kzn59{! zotIsGg=N91q;J04+p@m?EoV8>rS<#u!}t3qhsR%%mXqAGWNr8ECyVdzP^;^^pBtFAnUIuKM}fg;kL2aIV~$FCT8sK6lxv`%jm0(ad1pZcbLmy;pWR z?vXrieSG=0cfVrzm5yloPW3(_g=#4R^+|SBcguh zl?kt(Zj|8^PCc%cWx?|4-p&%ubiGOW85f1jMSX1*B8&I0(tGhBpgbtV-9NIm$S9;K zL|J^vrpYn76Anz0-yqq3HKE)5RdHy}kASIK$6kFX`Eyx7^yi)n1EnOTsEuw=;H!c37><^zPQZZ+6(~ z{1g|(+O^+Vg39A$7&gpVIse~+9q%o^9pZg6eIDPt`o%{tzfrK6ekm-|)i|W=3%i8X z=cS4}N=2Sc7tPDx|L48_{(tvPd=;*Ley+bv{DWej-g&KyT{EBG{{LgT{j*K{ z@^+3I^JC;~94+R*_xtHSC;$I4k@+>Dr##p3d)@T;lf@=h;P73hj`I?q{P`_D%NB`B z9=K^&{f#wD`eDCKl2yK79na~*>-Y9DnC$fOENYstjLq%Z@6yG8kF8xI{~|A@-u!HJ zB*V*t*VPwfbF{fuy!yA=EaJ%TYinkQ#ibZA|7JK^$;`tMzopYDYT6_|RD(Y|j ztXDqF@CtLP06YNzo+>b~G(=1lVA-%?3Yt_PykW!UcAkuTSzX#E!OhYVS+|mQzY~`_ z=PcH>sk7mYRx?XuhL1+jlod-|X3CsYThM>rvh<}@XsoTwNuy2NEL91cBV$Y7eZSD$d8%8rKDTmE?2usl8@YV)tpfOBNsG7LvNVi&w0X)cF6%pTa-Q05X{>geE=E25 z`+-S*YT~q+uYU68oJin4=<@Rt&+QE^#^;|D^sfJz(JMDkUXIf|E4`3E^X3Z?dB4l| zA0Bx1{<36=@h_k2caCgcy0*YF{=i461z|xmDq(uD578KPBr$ z$<^Z%=K0=qwXc;nd*Y>N#Ifa?>D_qQe>?tNXHLAUF_-;f)cj@>L8(2xAx>)7=ZA7U z5Mq9!ARn}#TtG;3S*=C-ErWN5TF>h+q}(`?aeS?J%cMI;E;H&+&6M4@yTc&!B5U*^ ztyAk<40%nue>Yz7^C=2CRkKZG0du|hJ!{P+S*}}ePS|wd$BCv5Uqx^B<;@ihX6j3==3MDE;) zY^8?xoaa{<1YJ`vtA09RUeKzGg@%7(&Rl&O<7c$`P}a$nA%RR6pYzFoQL!sL%xdk( z`rd5b$))ik-)`9`H1Y)R4oPNut*3k?k7JtP7su3@Wd}7L2W{qYi%@ibtv=I`@62t@ zt@Tq~5B$~1j}Q*I-w|jyHFW-@$4}3QoO>W~x-QV;a-RF0zBmgx^S|p42(ms%(Oa-# zsqIcS-8S2U4$VG0TyOi`@M`JmdM0LmQJI}}@urJ{!KWQB-*;X9WN*$Lr)zWf%zwQ@ z;A!rLc#f@wo0M`Mmqz!BB`jR^oj*}};ek-g03L?U=H2cxh52FL8e8Xu>^P^qV#PUb zvl(3{OWl0l`M<3=CuvzfTR~@)gjv0R&YRt{zBJzHD?c%Jis`2HOUp%qt*z!R{i3F~ zb%VI=FFl#`InxyWd3f;cnwiWWTlt@Fe^at$x5v+8_jPYfSMze3VIt${TV?cLX|;Kd z&mWOe7I}_`uVlOAt2)~ovJCgF=jYU6x^sVG>?;q~#Y-7wYkW^Q*d{GbTI z$4M2IbFAB!x{4+&P(O94cTu(6+F8$C*GFFT+a<;NYE49Atofen!`T+bSiR!NAEE6D8o#;Kc0IP|R9rYVBjryclOWA|E4xYsz(M}HmPzhp!9)rMy*CE9J=i?=cf^(J^EDU}&+ z+}^JDgG=>?NIH9*#M%_4B}-2@eOc90yuf1dCxJu9{VnPawI(Xb20U+9kUdbnf7QO9 zjQa}{e3rgreClAkb+*MfMuP_m`NzI3Xi5-fvZ$30Id?sy_@TpuRr&k+7iBr9_jMY! zrB9LI)%)<aTS?zH>F^Ku&P-zZck zc3-NLv!|J#X`SS|?S_jdIDOrb=2oz3!P|xmg?ImD??=UG9n)0|-YxxM?=;gLd)DkZ zBRI#%E3Q4_MTIHLJU$zJ7F~fU5{3QcOy>NDlE~nQ!DqUz85)jb>BVC-1pNz`psXy-}Kl5mndcz_p9Ocvg>rCPy8>>txsO3 zdtAlQ<6BAI9oBu43diGD7e~9Lzq@xqJ>=xVCesJcP=~pQ=<0Y$i=KdCe z1BtSYiMG9(cNeFgSRRo%)-)7J@K(@th=pMFUCn%ahxH;z+#qE_u%Ue#l^ zu}5Vu%kGoub4^Mfp5p&6^x&&l*q`c$FF&ZPOSofp^v8vCCigqrraY?Kv~up_=*3^0 z?AN_BPK=ByGW{cCe>sX@Uirtlm8-ObxE0b?c|Eb?7jips_b3-j@T;RmGHc&m%^$*>c!sYWE$E#_iUra>{;PX zdG6V2Q}?>;WC&m`xcrz+-f`BFp1iqxdi$?G{kUjNFZY@W8f`x}zE*ZvdT@KXf>>4u zuj6jt&Bj3iHn~qykBRDZ6#w9T(({EWQ}&BZ7hlVf?!S9IIqg>8R@*AW>YeI+`01Lw zncQU&+s`b`U9EN7q4dd~Y3nYeJxa5Xd{rE+$gugz)hEsSc+V7deBCabTwUY*XkonP z{kbyB*aA{#+*_8lI>-8uuchGW!*wg!cLYpWYIQSkO#;vNj1#7Bm%g9pwX>*Und55y zXVNp4Y%t)|ll`z^rBkI*O>xDNR;KGJZL`Inzds+BGjE@T_xpy5`wEU0&M(6bzxQif z%|82W^VzFU-+q&*v#kC1=#~7o9V+XO??3RKqlt&-;GXuxb*Y~_!)No~nALU z)jtx8i!7GS-72q_&v@r`_gS;~eBY9dWm#5Dytwc~ZF!MU-+aE>q7DDldqE{BM2hpd-m9J#mqdg7KdZhwYP26^8s3biTuR`KfYa&dj?WwZ1!oFZ}&> zdrzaxyn{{c4X^rJ3%;Cpwc<}?4hF<{dwI`Q>JfWev`|*KOu=mEv_+ z8otzW-tYC3O?MyHZ=K0tytJTR%k1T{uhtLWzJ9rp-8w-_fk9`V(V4Ri;k|opv{`OQ z-;&AHk;n{l7gp!tJu>Mn=iht(BAA$-Zk)is?5RhEQPjs!56dN+*4=*bU zH!OR?H^<+6`T=26mL+^r}&vUeHUoo9`fmd+C_MWhHCN0{FWA<7K z%-borMRV_stG_coc{#iv45Yr@^cQ;NFQNDF$%|XV;(eKqy{?b}= zEywGLmW)Cd+hyg?k0KAPd&aq&Z)H+Sq5AvoO{aUC_oOeCbh&C|@@~mTfk{63WuE!< zRY4jSp=%Cs^v&6+u_r$2Hf#K~Z*%8Psy-s!6z4bN|I5~+=@*ssU&$<~75IE5bZ>P+ zmd*t`t>+C-cQ4E;s$+E%OtRN3`DWd*<6}>vo)XK64xYz64<;&3Y!9$GV|>JN@4D+E z*ZL!jttJ&1Tt1ooj8n#a*@k=H_9lzId47}i+2IG;Z5ey~41=a6%z4>+Wx@O9``*5P zeL(7a*`4ofex)Bi6!tW$ZVA4%+eTyS@d%k~ZaPceo4D_^5B3n{S-vMzTViY7)|+}^ z=4#wORkOaukv%;*z#zSx>{@WnpZl$73I%Dv+wkI$1a`S!MG$Nu>48l z>)mJP=dFvME?}*icMUZ^HJlzh8d( z6YmQ)+WTIlhH46S?sPk8#`7Sspvq^`>`xU&Yo2F19Mfg_n7K0Ar#WcZ<_T;UTl$48 z#OA9UvtQ)5T<)>n$Pa-m68igvl)YCF=6+Q~$3O%tcoNKAej3xh_XC~_@|F@rbhShzWg7sl9 z>6w-DqPuJsw@Lp_bD2Nm=jFPYEmbq`mP@9o?e|?MA~oA&3eSeL@(j_+a`EdAkM{Ym zy=|7fUWmz%WAUqv;TtwCW-WSStU7nvwqtTDUi4%OsG2KQZSm#VvT0wO6R-W(g+EI? zUcTq>aAf_+)H7M-54Uz|YSC}w4VB?H=W4v0Xr}W#ZJuR&=3$ZIh&X8XT)OaWUZE^=@u@F9nIF#FRqRa> zc_S%p#fz|Br8tdLz0c)-QB{R0Z)oPjXLQadr&P03*gL8P^ ziP~Qwl^5ziEZnu^-`NUFxi_;EYW9Ep6jg9wcELs$6)nX~)BJUvy3z^)EoSAF{vtnr z&XLUJPF+{kw0m9!+h5i0%++mn_hqd<>@a%7wC(8mT)Tq4?aiO(dYC<0HFxHj38kgC zyB^(&sFAuXpK5kpd{c+z2_KKeZ!dp7BrEZ$YN2dU{M&}56^c0*=a%o0$h`dK9Lr@_ z7vbn@6{lC;nc>X5V@kps!NQVBKKFJCNPb@yX>jzd+-mndk>~3kESz`VRpV*Le1{8> z5gUAO8%&RWAz%<{$Q@e3l5$OfU(Ll*;M2(#ou|2*Ux&ZkY`Zuj_uyC2=Wn$y_B^jx zs_~uFVf~t^E+&v_AW=N!ws(VMs@{8N%lqsH_Zk+y zymR1ELgU+z@co_HvbSqJ4JWp|GUQ~r9U;aNG$YS@|KClThgHo~zb)Lt)S?e!#V~yCS2al$Ty>qRbF|EvZV^)OnR>`Ti&+E80H~rl* zulsi9{11AwPD#!R=;c3k<$X%VNrijQv#YLVE?69vBC^FiYisWF)rW4EN^Vs;92Nfb zZEEG7yVW}04I8y%_dJ-Z5Wc$U&<)qYXRX4zPA{>`Nj&Hk%5zTSQI z^5#$Z{^HWoAGH@IE=WIPV)`;&-oLH;^=$L^>;24MKL7dkn_0M5uEuh^oqO)~<@?>A zYPf9j!`A`fck|@d70PLZ^_R+=kn}qHrLeLlLT>wPqZv+d>rZA!-Lg~je&=yj`q6>a zXUjILncnQT-&X9p@WWq)&^B>~Xf^(shffMSnp!>*xH3oPp*Yj(d53517PNB|aEz({ zR{8q(Ic}-ohmo)Tdq4SC`*|vZ?PIO8x=Y-A1Wj*F-uiMvy8Ov2Vg2I!Je;qxDdzu{ zow!ZDNhRvgi{yC|m|nMRn)p=J=Yj1{7sr)s+tPF=Fnzf$+apbybVkv)>n=@!yU& zGuJ=2F2753v*#wYw>>)oCvvS&cryF)YVEGa*HiNZmy0f!{axI}`u_dyzp@|V7eA{g zKHf5~z9CZV@Z0Cj>h*R%;=`spYG4@@0uA+m28B#ajS**Nn;BxB;$cSA`q8&C+4(Zt zKkmLDUuY0eq5mOwdj2JkrbP{0ON_eIE|{MdNU@bUUUg&N=E)}K>fiIopH}SGp1U|y zSftf{#-qaYHsd+Z&waX^^x|gHf%=dCFR$Lazb0L5{k7`4vV&sz-|oHL_~W?1b)A1@ z9H(0%Zrsb%ee>u;QvcDfVc&}ixRXQ9FO8Fldu#i?Z`V_=LeB2o?I#bbXTI2V_OXT8 z9_y%QKbKeT`2X_gr=t(;zlHgH^Wn+an8f_&z|BV=a@PNTwR-*ZcKbIc?-|&B_%K`O z-*%z@f!i(rz58S0=fNmE{kVL;e*AjjRIifyvl;UbzxOwDKP~=}Q?@Sj-}TdvkI#O5 z{KtojMwiznWP7Z7tvb26Z;H|66+d-FZ2D9f;-=PbHD#UWtQt3O$A&Zhwr3Cjb^o_; zf6ei)haMK`2F_c3#_O_mp7MmlPcM9S}%(|_B+(Lx?rQ#O44eECeWgStT8`vTH(DU3b({%=JT*2WM+8OEn#qVu>pmUA$EIXu7ceEI>g?YcWIc6!&v$a2~E-@17$ z($V!n=XIx(Eti-UB*phCKe;}^UGwrUpPuXgj>NCu;pD#hv;PBz;;>y!`GTUsXXXp( z<>u>ZFIzmzd#%sXMF$iNZWLvUC1hOQtLmQiI;QGwzfMrql_GoDC+aCqhA)C{YwZ@E zHY25c0@tazJKyl-b(h|+h+ECL#?01c>9PXuZ5>kuR$Ph^`r0pDkmuekR&mcL!*g!h)Z?|>c-jtZ_^5Vj5k=Z@f=Az8k8*Lt@ zC|#Ip`{o zr4q({{{Dm1%|gYtuQ;u~t+2f`<4{Pz^TJuBZXR2qC!e0kF|S>2TA@N7>!X=7+CHz7ka+)2($9LeM8EsB2B{?<{H#n3 z);Apb6t^KGOL1O7;4H>()&Be3@++T;-%z|EkoZt!1Jj4n8COpVWv`a32xjVS;MjbM zuQ#&kCJ%GYQ(Z=J$7tIdEwMX}l)T(=X_1oY+ijx%oy!=4%DWGzSGUL8y#Lp_dZ&y- zS;+6n8|6Y7*D_~K3$|sBRa`zh>*kbW7dsM^+ITJ=e6YvW!6atKq5XorvjdLY{wloP zRkY#IyhT@?TNDI8&o5Q*Zgk1|T2x>(>B6ZK98aYxIj7Crb=XL6Z~tc3FH&a|TZ5K~ z&vUrSas5z|l*EOf-yfcIoZ__mU?!stD zp{*_G;%Y+4qvC@x{Fi+o`)$SWU~^czG>yPf4%YG`aHd zS&41`B+Pn}4&1udk!JM%o8(5}(zGXyJUOe{E^M25Fj^z5g8OLoQJ0{%ylS%-u*R7^ zF6ebWIdi-4W1Z8^liO?Mb`{?E6fCre`Jiypn!=xp6@D&prWo(S5q})^xmdi znDF=T-u#VkZfeK>nxi*m+8VFcpp!aciee9TE3P(N81(DT`>O>OUX>O~yLYQuH+Joo zE7|YzHQ4Q_Q)1xnQ@k_pDm{?fef5LNV^z*tw`(%@>K})Fk9vKwH@@9y#mA#;M%Isy zC0?FkIz?sAi4$>urrn*UH6ft!;Im^*GuRvZOc!WA4?kr3XXJbN^_MO_ z_|U;xZKAZ(L8ad}-y|?^a=vb&#IIv@r1aYF$%WtU%}Lyl8}L`?wY*YBkHEp7QWhFB zbbLZ?XlrPAtQFw+(Q?p%!DaJ-RX;kqT{Hiv*A$<*r5nDAOA?1}TR+T(mj;oVHIQn$Q)MK3~Z<3uAW8cT~ z{=8uD^G{AthKPsB62X;jyFu#i&+@DbhE>xlvTe)68QgIn>;sTSNt-g&)m}IuUPTx#2F`A9==(2vGlo(sz%D} z>(?FU>O@o*@C43%XT|>Q^EpSZyIbeg%nsR`c~G7G^s64Or)yUK4ch8eq!%o>C~WE% zLAez3D=Y%u&b?l93zcivU3gr|z`kMmrvnpixcXJUbzQ%2>Ap~x32~VhlRlL3u87_K z;jwj2f=}M8$eWV`c28Y8d)23HU$nlMJ#AJ!CYdC#?Y`Wvt)eeJOy<`pcFzuqz2c?5>3Q*^wZG@=Hxb^luskMI|MPd}4W=39&I?W}Y`Zi|e@fZ|@z9Qq z^PZh}mpSp+UF|jLXB_`zdWZBIulg(FBKQ2}o`k-;UQa*I++BXVR&+9t!NdJeSofRU zG)!KQYx$&RlS;uchuyuROxNpHOlW&2ZE!2dg~{gH=2dP2T+G)i&B_kXa4d^Y;dq>r zCvxaxYF*!hj4+wB3Hu~?1QwsJ{Wt65zbJ)h#qc>(Q}=wyv|DGK)7kVV&M|_`hU-bq z%o)l_$6g;j7j#V9iC@6TRCWK?CiTr)Js0O`pMK!!hxO=^Lo`S*63HxqLa!WFqm$v8Vn;f4T&Zk*UQa!dxdpt_T`5K+Mm->KCY0lBIS#Xa<$$4 z#>vcwcPw*p4Vh?~UHDl{QE^Msw$!FHeVaD571z>=9~Q2DWR?9eP%39hvMQ(R!@?)u z*V|nQ5jfNRVpo>hndMXc5=y!K<}iqJx!syvYRI<8PDlUT{_lL@l|K~qcbwVWEAdQj zAJ=ZzC0dy^3j)FzpEu6uEvpFmp61@ukiJR$jAZ=TeY1@Pz6H(RRV1*;VbSjoh5{?5 zb}s+ht~UGJr#Gu@RK&imnz!{~sBWiEx=qd0|o1 z>2TH665sH%H)jr@xK+Fg0^m%enndbEJIP9eCEx5sPLQ-zZdn+S}vF z{D-P934-6>?pm0_zr5f& zztgdB0p&^E2B+6*#@(72WY_9$QI)+vOe9(`!FOx+(y*uPnb$vwR&RHny8DI7{4C-8 zdc#i!H$Af!PKaVv6Y{qGv0ZU7zp~}&uNHf@ua@8pn8aoxcUJ4C=2wHMzXj6;FSyV7 zv`}cljO^YM-)9#dnH~Arn)Q;Y@b9^XUP*hy(!S4~I9-(gi=RSTzOt*n@w@rYdv+WP z*11r2WZ802+mp)o*53R!Va?KhMdtE3e;@13kh^F9=?T+*cRkjNddAbY-WRRYUbr^z z>FceAzl_d{lQ}j&OonB@b}ihy z-gjQAuMd04c5O3_3)79BO5I;tv*?q&?<=vDrn~u~xYI%c{v2!lA8%h@{&z`H#_Hue zTy2l5_5GLpdnfCOPcFA({QDir4P~1q<#0Ej***D2!@ga2oRYiV+PA&(%U^eW_Sa8_ z_ud^ix?okb*th(9OIGWYd^fqfIiccvhJF9_=d;}(hw@5xJo>1;{rdHEc|Y^@_VboY z%ZG557eAOUC&(PRe!cno{0TaI>`k7tBTA>l&3iokR{C@C>zrM>j&*|i{RfWkeDbm| zqWH}I&On8>2mPOpiu{b?y>45*_uiNH=j|6sPEoL6+yAd*k0qaY@RHmeC%rZD?%7CP z6n-VRSL1^H|B!s!H0j=%{8Lc!<>}LtS5I%Ay#DfAseRlUg7?yu;`&;o zo|=nqYZ5PU`4O(3Z#-e~yYoAatIvL{&VJn8n@OY8=ErQ`KH+}XeIJgLv8Pl$>6DCQ z>Z+Kqd~5pCgN6IjkNlPjx2f9FBfezII|tA2i&^4QjiQonr>_6lU-Gi^Q~9(jF3U~_ zY)g@|Fg{iD>y=<$^=r0&lI9W~ob`s6v(mHgBnX6UUdxu4m@I!F<)2pT=hBYqx`LLD zS+=`O=dFwq){R}t%iFbR4~N5q1JBC$ib!dCuVpSRoqf-uHu|c2;%jMxf9ye(vy;y0 zE_J!XBQtGfwVhdF@}(Vf_r-JhE?brU__&kxoe3ARmL`k+{vs^!iS74}PlXG6ywmt+ zW$S;wbwTz){P}gC4fZSMWp-cMYnHq<@A#q+i?BsnUaiGJr&KlsN9uM@{xpqa(XR7N z-^7(&ZeLpxCcZ2DxaKbB=R4(2O?e`_GHPkrnOEDI0zOWT5(#TGS@6G8qGPT8)6jei z@B8;Sr=My&c14j*PqZ}q^AF#@Z?}FH>i(pY-xbl<7tLv;f5KgH&1Zk##KZg{l)Y-QTNk+s@-M3z`}dW#9`vG z4ErOF54SgaZIadOn|$T}UgIZvmWQ9-o4X{|($#Lp!iqT$_gK!kX+C?O@NBvN(*J6U z>OOt6zw_+qQ_nefJI>bo-J8?#u>M!#*=Lj4H~8G>y)gGuSe~4Xz2M<0b@OvG{jzpf z7Sw(E8aC(MuXCQ_Q*N)iJXhdSiCg}DE7l2N-kRI*Pk;E>!enpo?e`zbgCZ1lV+-3Z zN8MQP=9^?+YiZc5x2k=;ldk>9m#g8s;klbLcEhEtBYwNiePER{C#XMcHEN8 zWX_p)?4I%;BYuvKb=z<4+{3b5naL}1so=h#RmJym=TGugin{e}-S*q+DK>wCX2<2p zAMD%`&9;oIAn zJ20(%U?7-%H!lLPXAed*PU6$da!EB zJe%KZc=SIrRW&hRy6UL8+K`}=-{zuc2%0W<6`MSu7wQ`nhyW1 zwS4%O>H9yCcfS1E4jyy1uD$HG;>ngtj%&9Tr>EY@V3%fn*>K!Hak=~h^G)GeJEE)> zdwq2blvTaV$#Pus%Ynrf%hulZ=-TVib>XY+iH94GF5adjVP?{>~Fwgtys@Qs`Mj$z41rvMv`FBymD zGE4o)4L_hDT6V8Vr^C@@itx)X-8VnhWF2tSDzTY&Gw)n(jGzw-b5UxIiiKZQr<#0! zX6s6w!g~pQO(MLn{NEkC=T>$~>RYgr;G9e+QS*ZHF zo>hK`-R_S+%YzQzG7+izT~$;yd+BlR=YmFg%eF3J`dH%-Z%`;S zB;(|bo2O29+d1i2seoP2tt$oB3;S12Q{4M)_v;^rSMKinF>&$MH7(bEC?7oQvW0i+ z)=NPeTN{`I9m@~C?)~cUOJN1GVq7zitij7`d@LK>y^k-9d-Ava^09>}0qSmoJx$Z^ zsBuXeU9^ojJn^?h-mEnK#=a?YUi`keL-pcT<_Y(<-tQq7gK=*{X+c}HdBhrpCc}$02LrUu=dhaYe$vjVE^P8$w3x5dX34@Cb`PIB zO%PD&XS-3s84>915?I+JJ!@Ti@IH%@`4zrv_)A$|#5jE4J87%%$%GU4Vr`gu&#c%u zyU_e>0Z(&f{eeSYyQ3^LtuNp1-MX+?OJ+-f%sbzyzKudRxLz1O`(qI+y?C)yRm_{i zu|ehzE+yBGTuu1qnjdv#@3P-FvQJ7~X`TGzY@EBISgD9wNz@Cm%J32qshn=ZhZ3LS zt_QkIR({HB`_-@c>j9SF65Sc83zFjA-TauO`uPo0kHos~VvF3^%MG-iag;61HjDcy z!+vX@<*L8t?&sJxJdJX?qJHR`{*T=PbB?T*OzYV)A>m1)O4H--i>J6dt-rEE`;qMH zxKBk3r?;<@|Eep@T*}`4Aj$Oowavn_cV3TssK%t+@vE&Vy7~RCb%)pLwM%TvX8rs< zXoY~&TnXn7hjy?v75tCwFOAmu<#_CtXcBX!LZWA#%sk@<*gGdO}qnHPgdG^C<%DGx^7EY zwf59cf%p%pKPP;fYUwxsV@cDc4IC2Ry*+ZWZ+d1&*fntR{d{_-ao#fKv#Xwl{;Hm^ zF399c*ut+f?7lZTEf%==0#;@QHQretLkH z%Q@*n+JdX9Ma_I0jN_JOuARZ+6K{GTGCl&_xqDIK$YwPOsT+SZw~;t-QuT zy0~QO2d!M|^rLH-J}EG>h&?%%wl7j{vjDf{hYOt|6_5Crt_}X~^*DO@t<`@yE_PW> zI;AjQ_`9jn3fHgS8Vh<39X_Jy(stUm`9KVN%G|b+m)ADGd+ff;?1Am%I0st}mJJWq ze+*y7es-Tn#V@b+=q+Yd~wz=J2QS0Tz zk`XCl%)9hpmQn4ZdH);iZxp}IJjL&pq^Ny9U6t|6DwPHX?GIZ8rX((E6Wi+ZYN1X{ zTgZw(A0)o44L_1R=iM)ZDP41>pOIX7Y^T=d{!=-Yd~@6*{&?=4g~^KQ#GnOCm5{7?Vpu5>qFxnY*i z)(U~fR5=c(A6F|IPDZ51bh9`2XMJGMn_2lSa;pOG{`^ay*Sz_V>-yB>Phr)q=siVR z{O*(Y8#HMv>|pqQZbQ{gl^-{YoYph7IDJ^&mb$9)L+sfl67wcaKO*j()!Me>%&lc% zE(!13B|L978W(Qkxt=Iw_wd`UB%#jR^QSyqY-FQRpiv-tiFDQrl#P)siYI?uw=8|r*{2|YSX*_#SCri zCbhmYaLq9g^ji3KiRj$MYWvgHYZCmE0@S`#JZgI=G3T*Ui9{|(^KZo*4(A8{tXE!V z?by!+o2K*DML_Ut1E zq;h&MmJ2WiJE$HZ<{16apRPOp!tT35O(QO#Tm-yLL>i}%AJ`clz7wc zLR(kZ-vz(+oQcy};jhf(#q7&g`zvMAV`r8+sTiLu2N~J(dmmMZ@t$uv=*M$XFxlr; z=RJoInQKCx0j82)3a3PVIkzy$JLB<#?%!cM)SGWUSkSd<>z2I0m&c`cJ>YHk7h>(+ z=iNJrFKwA{(S={J57jGUW}ms2bnxxdf&i8_^YE50A&WEj%}uv1i#Q>oP?aS9#q~-} z(B>s96C!`TQWjZR;mfX{XNaT`dhWSMu8&-u&B7!t(m#n7KUFDqFcWn@-*G zXx}5hCrgi?+7co4^5MPN)|MG(pU3Q!n%LNNWMiSRnYC*W*Kw)4$COGGjl{w(etNV@ z*qF=NV2i<|D}3j#aBb7N;c)Wzr8Q3Xq`j{uZ`0WI`s}mzoQQvAi*&d3NbN8_xIbaW zdH*ek(`9F;pYz+d>)Utnls`Y%-&{Dk@!(fo=d?@ConKd3eGj;|rap90^~6UOUJ{HS zC#yVXtF!8e%`eQmp*SsWQ}O*JF~w_o*Vt{ooTa-`M}F;Hn?q`$z0w&2`m$ zM#=_<$7!a2SJWHLSa)f$X-?*mBfh%=G&Yrf&CuCq8(=Hd8<=Hv`SAC4rjFL^+OE9) znyaLA_`-|aJAaI&O$dZi}%X;5EJ@7px@Aa>T3$wRgo0wsh(S2-kP=4&b z1tmRQ38{O75>_7i=2((!D`pzL^v*=aw31J^Snn5ny13$u!yH#1-1 zTl3@zHp@6Xwkh!aw}|r(zU?9<%&_Gw{wo6#PRQ^ANkMXJU_qaQ1ODOz|?Ie=@8W+3B?3YSrm*cl+K;3N8JRioL5{`}KXt_Jy?%rhea2@LbR@&))j$gIurue}25>w5im8wq5Pt+KYA9 zew}hD`|>sY3fr}fJAOMH{%WvJM67!8E56J(g|Dvqh+q04n{d5*r`_p`&%HdOm-YQx z=lDyp;>FA5r!UMq6LaC^jPI&RucuAg*BbkNRsKPf!`IS03ifv-8LJ$ynNYg;Xxx^N z;+mO)tB%_+dQY3y&#N0;_A1z1g1Pkg)>((OJs)qm+}=HR!wR$V$YlOG-yW=$ta`hw z?OX8M-XD`*tz&8Tni2SY$VzZo-flLGFpi^&9KYq#uT||#;JD-XP^T=mIn7{0`N~AK5-}gm=KcHHdLQ{N z^s}3FJR<~4=8ce}rAYY3h&wP0Vr-`$4mA)(x?JM8Zq+14d4e)X7KaZKW} zE_L4Ps~&m&T4ljkzJ9%^;JZa)QS1{MyS|l2aOr-mwzyQt@@|tz6x+o}bql7|)18hp zeK^p#E`;0mn2gAkO@6 z6Pb<8xy9@m0Z$Ka_VV;;&dq7?_P1}i^wdrDlR@*ZPfzOeo#Izu87u+~0p%xUahaH! zn!|Vbm}6PcVNTS7j=Q$8`7%2vzW*g!6`i>-an}7MjVvcr*(M#BzWdF~-15W|lm0Y% zY)a0a8=Ld#{(6tH$)P!A=XY5;bKlMQ^!GM{xUJpn0!5q0ae*v#@eZ}Ck)@y<&cpSYcWCy?c5u`zD7MiOg=UR&{+Se?mKOLH}`~#z#yp z0h%s_{>uKWzZP51wwWsS+EVN6%qg3mu9%d$s?;Yq;KUJ=>sMVbTB`ZD{`{|_nRP+A zKxdun!>mL;wy*bDMWUMR#bx!oc;zYz&4V|7lQ_uV_J834ce&@a504#pjeNk9!_UEV zUwp-Vef7#2t(mc!Hy-GQFV-CB|mnhT!@Uy|6|1n3O_iDzReV!PgvE^5g?#Gj-?(1m#b1RzN z*tx-n^Ud=`7T3QOH{MjVIPhTpqi6GU7$59uT)=X;{f44*?V6T}0uCRq&0e;GYQJ+K973PJi^a@}tuGcgGv07JbVx+( zSnq^0?V&YWUo2pre)2cZ#nYR9Y`*qr|C6r%hjPhBkAJux`SG~Ox^0h=1L`yMWbE~K zM)91sIl+{aTf3!n-U0h#PW}Q1v}@-+_LZo~S`^`(x#iM+9pfvn{}-)Ji<-visJ&Jp z#vq-S^=naJ(vIW}%!>v1c6ogJUE6eE)2E<$n$OcbV)|xGun7<~7mt&14oDPbHQa1f zlswa9k{VWWuu+es~k*BKia zz81}0xS;OG!k0byQLm3~+NPcG^~pJTr>?_k8BT%XAGaQy{aVs6Ek3$u$EN49o+8Uy z8$^9>9Pm9n({Sg4y%P@^sPmo>yVGHm@Z58emzSP%t1io2;F@G=Zp{1N+ZP60wq)Ng{N!iX9|NE3k-UN2 z4ikkQMBMnKzGg0)Y0rVJ-S?I#l=jYhf60HUoUh!5OZUF-zY@38U?EG_)~^+B7z8Vd zr^@**clv6`?5|_Y#RvW!}6FSWxyrr0*;b^bsnF?cu2R@xH}xlxhm4XPMP>gOtyuiw;d96Rk9IZf{MZ*T zo3(tlM))~~{br44Zv{j?O!r}Y&=%EWA&tIdJ^FBQ=ey}y@LGa$Sxsn+VK3Ma7T&T|bA~)m6 zg9N8*r+!Tu^G`)D=O2z`2Z%f8Ch1Yo&_Z3I_js-m}?cx284NzD`ux(V1}H z&-&0&>qGStjJsAHNOaj(a_h*aytFf+No+a!>J|pc;Wru%Jz4en$o>cO`_#;nPF=mT z>}Jn(mJ`>D*Uk`=T|cKlO-%ba3*(I`6QnCWluVp>e`wF#n`xlZSj)2Mzh?iZbv!?x z-r;0>{myj}S4(SMee<1DQ(hl5FmSt(eNW-worPZ?O#gAuqJckph7rGYe&!=K2jkPu z@l#UcT4r%w@|e?BUAKJk#D%LoF1s=?K0P*X{%7u0`mC&9eQ%nHdcVGFsP#klTC=E1 zUi6i)m-{#0Z)%cEOiZu15cG3`^#P7`_a_Q(`ZbBkb@qw%p-GunCVmb!O_&n#Dy0WX@{4!{pNZXv-_S8-(Sy`=RW#w55BX8Y;OGe=Bn0Bo1R1KH7vL6^5%Hx z5dJZtb~;1%?$(HQhq+m@eyP$AjxL(h->bLJDRE2pa#`J~ujgzc?#yX;~1%7}%k zufI-;IbqiEQ0^$3Ayahjhuxt$0*eboq>pgOoMSV*ves;e#`Dd*Ng{oD&9|~U+AGg3 zx%6#gh*?^@v2W8kL!ZeCA67N&niYEb`EBLKYMyEp4w*A@oLA1Xig3*gl#^#Ye!U_` zev_olgN2sNT^08HQEPwwu->;uC?5A#> zyx_m>v7x+8(~qv4eJ{!v$!lL0tNU^H(Agj7nle3{*h_Vo`Ls*R8XBWBIsWW76O}a; z+NM3hyqk^5$!MiUJl{@h|KBM*e;NGLP0uGUct6|W{f6TnT!%!BH{Sic}Y_*H?Xun%RKPhozu%$c1OQstjWr~`h8CqwFF&JpTu}$ zt()khr4On$E_uqomz}rHbqDt+?NYWMoOKiTTswS#Z(o6TSAp6YuR?`=cFb|qoX5rcu`J#4 zl*JE)3#BSN-ofTfRddDX#vS_m@x>o8*0$2?p;g^%HS1i(@Ao|syBWVL$}?)7pZll1r);iZ(DkRU4P2^kt@~`aXByA4by32bG~4Iquc*?L zn0zaO=Xz-{dy!V6%Zio%Z5d7C{K}dG<_ldc-ZG=#?TfBS*Kx5~2AenUY*jncc8jG= zOzQrt1)WoW>B^dHZ1Vpbd4{9($mzYl`BTM;dG(p+gx$24S#4mmT{<`0VdJUNo$RSA z*`y|{U13#ORa@kDjn{7GhL5Wj&AqTC_lcV3^taXj7R`%1^y|*&>*k(C#y78jEWX-% zef5*u6AvVnAAj!B_~C4v${knXSr)VQI<^@{S2br`tW>|q(_u0z{F!U;{|`;ucIAdV zpRsvf-mHnoC7y`b9P_(w`n%J%KH7jOaDB3Pix9*F@9(KWC^^#UyYmK<)i?{d0D6CD{vGL`@$bZWJ zMYd-?&9iysdi-uhp;(w&zLoGj!{jFmT5jvr-};{*P!;`ra+KRbMZIEy^Iw0YL><=- zxX;>tg0diPveo(HS`nyj)tkXbrEBe&MExAG20 zT0)d=aE?N+?-^;on$`txZVMf+xxGB0MUH*Xic5?d`!obZ>`et-nZw`)ss)R-=F_?Bj5eU`S+%6mp}E``R}%8?sqr0 ztUK0a>m7Zw@a__^k77@+-rAerFBzf#s%lN1>-q`@t-vK#myd)poG9^?y?H(PbIGA6 zA|YowzV3ALw0_aCqKWs$F3(r{JQCN)#P;ZYzWv=+#9;CCr)%{jPu82Ye(y*>AXsr> zM*TuAzD>)vS)|R9yL3DJXoQ?$oA1BB+j@S;uF{;_dt-yL*xotP_TBwy4L+B)ifrdo zT{rFdx$;))`2OQ_*U$JdXZ5^Ck!HPZk2}5oWYxR*ioP)JI^invJJdhzB;SXqnSbW~ z6lglDzTx5evrC_Q`}*2GSoXbh&SS@ea#(dUh)zP?LJ! zD)!Z!@4IXp&Bc0eD^wly`S4_&{Vk0dpDk;RSQU2fJ+dz%?pJ_Z z;N#1$pWWtXJ*xloZSv>z7rE~h=YP86^Ws_Bi3#Vo{++jW%EnWjmQ@@TCq%fMKkZyw zyYR^w*4b}<{(K@@T5(%R`B}pf`Gg$*OFHFthO#m$oicOW-tu3T?DW6iC#1<`#`EhY zXTv$`DGUPbXAB?91YQxhI(c^6Nj<=^YOMXKTUiO)yZ zyt{JokkxJN)EB%hiWga5Ob|P}e75w?i6uv@CuWsdG2HlEUg9RH+%m<1+STU{`BipZShR5OEIn77m&=$`cNbWC&pj0SkcruS@`arRA7=c!pD}B@ zY^?8u{!Q*?nNjano%`s%P1@OD>CF!nTW4+bH+XHZ{qttl#UA~OzOyFmZ+frcQ1VF8 z!q@5okBhnGj=f(t-BPSgR5-9DDPZyX&E0F#oGj+w_3UWS@)K1y-dNTuQ0dXURz2eJ z{j2G7vj22Ougu9*j@|Kn=`OVuh5PoKhrTiXJV9>bhQIkCP3c_Py63b`vh?mvYf7Gy zt`sItI4-stqL zE4R{p`nuZ-?>ywYu zHfVpfjFelnCRRgaGxyCk$k-?s#!i)XOZykRE|x%gideUI46Ez65p9; z8IKqJI4WjyxaIlW8SE#%vuOB6u&vH(JtX;L@@yTB<6Gv;ch8Iqy3_1ZGB4@Pm1@r= z$2O(AP5)XNAKdGH)igmWB46rdXTTEq{98%|GU4ru7tc+VX^Yt=y5XYuQ}x~RrCuk- zTsyXAb@>u!?)yx#JkCsuT?>MPcNJ`u3!P%c9jVtgH%Me%(emRJp}Mw_Rx*ogv;3#A zxKy6h*rLz-aP#gCuB%V2w@$jscl}6doaCmb2P%8Nr@Bup7mN$3jkR#^$P?Y8y}Nan zu!)YV)8oHK4)0k#;bGDCS!=6zcdgqzbM5?Jzc+f!%3tN3eZH>f&XrcFrAq9F-|EE9 zJ@(Uk3V+M~WjDQVr_Vn0d|r!spQw9drGpSU0KKVxAtax}a*wb$xFgOB6o_Yprz+stO9 zE_c*zwn#iI@|@wKc73hnQ{yhoAyVPem-C#9kL80{r5OIfp88CaQy=uWYgO=IiNa8OQE{ z-fv+hpOu_nutj*hOWevdv9REItH7oH&dc5=tMAuza_$>cnwjawo z!F?}X9<2Z5yPU06BYkg29^d^Er3HLHeAU+_KRHc# zP0hCw-kns3;s&*c^o`;0*X>$dI_vVW7khuy157#q;|j{+yOMzUJR!mNw08MUyYb zoW6SUs9^VF+4(Zz+R0arERCBRBU`)w-(ABq`ghjct>Wsx_37)~k8XvQl6u#r|6lV; zeY9Bq!+Q${-wjT44)U)^JCR>MRleThr?9|rQ`Nk~>Hb&SW}f6c9HyS`aIIcG|JliN zUd8+N9ZOFYVV64JZ+_^5r}xHxzYVtwHy^$BK9NzgWn$i6!@jK!hg9vj7xI|DHvThr z&J;5TN%P4;XV%!aADnZ(>Tlzp53)ZWYT9`}T@t%r@AQS0FF&WpxcMLYc=1JajhP!) zbIIWhL(S6@_U-wzGd}1%+lgPQmG!axA8Rg5(h<3Fd(K{_XVIL`-~X%%_j|F&=H7$F zPkcJQhF1PwXA?L5`1PkBH`&~KCRvrvVbep^xPL-!MrpRpuB66}jzsb9B%jc1{hhu8ix%SN~wum_vJ5A|e?>o6IAq(uaKK__$FMYT%`{~AV zGoF(sW`EyF<{UiLsU1Dhc4F*4T@&BL!xd%|EyXn6n*CeFZ_f4#E%9U&vxA9{ZJyb;VN(PrA)6Brd0 zJ$lLU(~n>4NO6C-z0pP6|7dMy+JpTLF4~9YPfwlyJXQ0w+>@}xStl(+*M`*GyYxgT z@8|K>lV9`2?b`8Z$u^ZrBz-YE~Zp8KopeQ2@e zyat}&1z*hszOCZ8wfgBzJEuOAN0Y18di9y*OyisLBiM7g@x1AxjP}!(-ZMWWc<0AY z#mEDW2M)SjSE@Q z54$&Mvf`D01t%s8GR)G=kN8|1`Q~~13B}9WYK%IW_kJ+&UI_CP3`@NCzleE8?OF%U zJ?Bn;HNUsH$mI;f-GowI%j3--hVer4@v zYKPP2EsIzb?td)wMk4o|i3u--Zg?kHzMXO)XjkU1Kf8V{obxn=v0eCwcVjK{qTLGo z0exXLK?2c#|J`UxHViY5kn3!lvGJLam40SzPFo1aW_7`TcX*G@RH)l5(7>5F=i(9W zqP7LMcDWeN>C1HzKe8=mmVv~#g_2&CQA?$xS?aVFC+0FdOGs2>{2cZ`@_P$+aMdBU zy(=b7-lfJd*XUc4pzY6x=EpTclGubw+U5pE^}J^Dsau|MbhpR6A`_k;9xoIeeQ)rr z;5>1Cc0rcUB@cxImC}>M<)Sjwx~g0n<~4aAc^jBIcV*}_wg{6eGOUUDjRp%H>h6mD z{dz2v>3Vqmd9!cl-F-6HpJgrm=&v3YF0h=@ee215z5cj6;({JFLiWruE*p;VZ{(L* z_R#Xrg5y8!a&8!2yS35giCBBa1gDGK&jYu<&_CX$$a(a+!Ti!SNws0E3ywF*T5R(B zDH*`hQjpR&qj$pr=A@K&Of!$YJeSgYjP21B)*nsBPHXVDO)j1or>5G{b#7Mf&GtP9 zUsq^d3wU(Cp1N7dtjTNLa8&<|SLK%xBpI|JGnx>lrKp z&nIsdcWBf;x9U@8vh;1=>GRZ??p{A5^=!VKxBAIr1_!$LrwN}hYK)r4n{%RV>ESQg z%VVa8&b+zdn31JS57*oeTlB4`+|5^N5Z!due@Q^|!qs>5)~##sjTX`NaGrOg>uF{M zYyakxQVB6F+h=6m*~KQaf3?xVD`hoV9~`YZ8~7Fetl5x1`OM-&e|4U`owE7Mij}(S zPBYcbJ~f&9JwvAP48Co~j~`w%VlkaluDO4O@ns)Bt0?!QACxX7|G0Lg4{ek_3_>C z@msn&K_+sh;3Zdc|1bMa+}yoZh*ij zONc)bT77=;g3r3UU!CBdTfraDdXwe28s}nvu5)*oWSnc*CF+}O#X=_@;yf_FKR{IT zD2v0EOH-s0svSk=m~P#&XDvUoj&IB}O~+5V7T?*Hb?$6F^j1{TCFE>@uz%kw(SrN` zP6wFIX-fUQFe_d>q%AY8*+^m?t z(r1rbzv9jmhkcV~NKAX38n?*wPs)+mclW%Gj&bR|=@yq~x+1~0xNI3akL%MN(|ir$ z0#AlzbQHw#wN9G3q?+)m3rLtli`A+U=SbKP3xT z%T3|^5YgIo=%?1TW&F24-zeBpT+DrD9rqj6S|9V3&pns^lH;q8Gt|5h7xd-tHj4|B zKYiQ%DI#mi2jc_nT;HDlQa$oD|1yI#<4*YxOLc5mo~(4&W=_{%`){pC@}E@>d)FlA z{xxfUzcQy@%iBMCX=Sk5(lyI6#D6bb(^{`1Ab#YV@y3*khny|;`5)5pWAfAD*8bBJ z{yy;8n%O$#?VJ2O@0LAuG+^C)`a$=U-<}&c95H5HYi$srujHkmnzLYwc+43aaeGUWI_rBX(#)l%mAo;06m*S$O0C41ktTsBKc%wTX_Db1o; z;_>!XXYk8?dBwU7R=p5mo5HvaDmUYWipnPErMTc*^Gtd(Jb z)&F#+wEYNkc=a`6$u!UYwv$&9t=^`1C{{Zg@BTaK%)*tdTYMNVt?x$3vN-wrKc^vhd#eaD=M4WAa6Ox{%Dn>TUQk-jA_`Ih&;KJOfB#a+F zHQoCnX1BKA?`+UJePfrjmI~+7N4XAK_or=FKRQdlAaM5e-x2qw&3d+%p`Cwm!Q}s< zI`a=-_La=odtz5;Raa!*>Xk*u78^b|GW{u6bFcJN3-h-N4dj<~XTSZxSrpDZBXEnD zbgHwhzDP`4>W$;CtJbf*6>eT7mJ!L!>&oO8I$=V%xc#RT`CnVRW*f+wUEdeOf9K@w z6W+(ZU-`9G(}*|W^i#7r@qt(N`Tmf|C|$YMeA?m3>0b>P)NL}8w*?fe6!i6~{`z7% zgDT7W3Hvz$YF7U!|G9C=o`%L7EL^)5D#jg|BJTcvQv4nHyhAJu=91?aY6`X_mt9#p zuf#I%$Sv5uf_Xb>orM3ZY-G z=%hu?K6%D@#iQ>g$4=ztX|BEX_M6Czyz_0pZYNE8f9kRCaVutlL-+oiDb4I<i5(S@J~d%wMMh zw3}}9Ds(;Sw_dQ5CGeBoygVy|El!uK&2%5vI9%PZ=2A(}Bc~?bT%CU+=_R*#ti7e; z+YfJDyT|vkMu+l@>-(Qst?}Qo%uVIkp+_@x5=9fv7VPJL_I>3co3g43NEUVhZ;b>LH zQ1~?1JLlUR$$%~H6B8%+te>ITi>s){a)3QYxXg={b%Tj<2)XdajW6L3Eyi^%=r&2)4TKY z%gvf&Y&W(vPh!eSmU}PQrBW=E^vFGc#rT2eRT0r69-6y!`kz1jSf)MevDAr4H>V~U ziZkBR$zYp%>~hEpzt2bC$v2-UwCieV4mhMg^A&5BU7Ommxzida|8o1SE^zw#1H;DR z`A-*5>oZyO<4V){+d@}7jz4?X*INBa^y|(%*HzITx6V5}5mM1RQ8i!FBXcu?% zPcF*ae`%_1O*d@X^kw>${pQI9wNJNATWfIjT$^l(h~-iz`#0&Q+a)*5Z{GYQ(o|fl zDolPh-v&3Gx&xmU_i$N6lXX7*fuB*pVLk`zDINg7gYGS)5>%-}qvyM}8ES46yd+dBWiFNJ9 z#AvmM`aQ3`n{MCUQ2X%o=b1kj--=nDb!m6nlha3w!>w*t_f(&oakw*RU0lY)~K2<&H(^3wb?JszaevXrB2>E3dtpeslh-V3meDbJuYGxW6gH-mf}daKpw!%cr}qZPgE|USzYu z$mO1=@yC+PU-5^my$*Eeg?-ub{l}KDN!^|=ZhS8fT%)4c^+mnR?(&y{uZ^v`8oD0M zDHna}gQqFQ2U}XNFj1*?y)J8hzlohCy;XMmgO#Ezd|L#+fAlekcxGT~7`^X;5t^;s(~ue-RzYksqAhhFf^KmE9U)2+&x4|jRr41EZyBaCWrm`ioXw<;Ym@b??mTpR=+3w`)2{i;qSG>Avx@e!eV_7)VZJ7t_p9|s zZ5K0Mo>6smuHSdpono#f`_tT?>+S#IeKp?eNAk%qUau9JFVDtI&F!p|zCU5p<8KRC zzF3BD&n~N6?5BR^j8C5Nt%=?>4_q4p3JSWtbj;3hZ1=xg{KfEHptWn(*N3^riMwX) z(zudPmA(Eodoz#z+W&f!W23A3Gar4<-67anp6rph_{+?HB9$jy4x89J-2ON{ao%*% z+S>v*#F!60cYFN(z0Vf0O*!sQj<4ygxBaE=CN}p8mJvYExE^=}(7?zHzK+oX%Q{92 zqSi6KwY^;=YhLtw%?_>o2lh;iEVkLfTsCJ_j_Nve{(vNrX~r@VBU& zZ}u+(Ub6k0o6f$n_#!Lgeuizs!ElY!>;A7=5WGw#@u#KByoiwCE$Y3& zcgh35vDU||n0!{@_T)z#t>~iubVP!k4eK_gOHUSMjyib;}qSSwjYz^uikkq zJvW^_<>S10XJr_q^&emHYq#kvY+%a2@p-w$;+X}W|DLY?_oiZB{f>%n)=%zFzRsdt zvB5Fp!G+02pJo0W^of-)_ssUcBcmpplJd$tcFw-F4s*9}a-MSK`^Gh|-l*(d6}~t1 zxfq9(<GarlGX#Li0x;?`NE*MzuC^Yh)D74WLk@_W0x&Gzk+#W%%e zofU4FE!pf-_>jNz$KHZ@hc!3KrJB^Ajy#n8?P08Bk+ft-u+R+So&vtU=Z;UUrq>x= zyLPAZeaq%0{%m)2d{<6YKC7Cq@F`MO%TC*AM$h$$7q!%t7XLlny7$`*W8117zb!20 zhD!(pcCuz=i{-s(TK!_aBUkBs$$KXwk6m2BAHla`_7AbX-A6M&8=03x*dBh@@PDde zO(ox%bH0KJuV+VjB(k1nTi7Vgxv^oX=<~HH@8j7yZq97cJZ1ae<@!OvC(bfVDqq$MJCZ{yOuI2Kp=czv8k`1dlH^+Fzm;NrjzGlVOTc%wVGa^s*du+@uT5$dO z#9KWRxzA5#nkRgRdBygtTg9WEpD<3~%`ea{bKn>ed zGjYjkA?^*28-JTvePpd+xwe;U-QDF|4B{RKE}7lK$ZUDh$|G}PYVYJM$<r6jX` zsg&_UJH1z1Y`WrOk7o9W9q1C&iV|FX%s6}TH_Oknn%3sL5WmQCRbM;iu+%om9}B0% zIJ5IEKj6M6dHaM5LWWcH<=vUfS58^CW!I!U%XRJhneMr2+$dvdJl`t!BjYQN-Q03t z`F%;j#TPl#6ec`OiT!Rji}U6-_i4}hb7altC~8XH`FSj>xmsQ;yklm9O!^e3r?cXI z?c|=^`Z$tN#=q#2pR&xSQ@<^o&OH-XG;7e>I^l)*${8mPO*y@9mrdmE&NnlsK6tn5 zca>5U%Z7=uvmSj}e@^dT@!l>b)A(;!nw!HozkLkP^ii*ymVZlI;ZES}HyV%n9!#Gy z)!Sj0^%aYUr51k;jq2qexp)1^n-f%*lwrF;(L(v5n)LHEFHRlWuc5M*Q^dg3-yv;z zeR~2!(WOA%hGx#C+C|UzJn5RKbw9-^&vbXsg@knG&Ob-1Z1&1?%6>7p$*|$-lTA|- zBC~H7O-r42`(U1uPb;sk_VLG=3nim_=eRyxDV*-O|GntXDc3dy-@0JB>e&LVr;{ol zO1%z0fO^De;xlMR~V>e6ruM}(1K~gX=}5F zldG&nItxk{&U)Cs_==9+pD=+rynnLA8@i`n{km{&U8K#eGxql$xtA<3&cDKC|Kj5= zn{7V~pR9S&y=mW0=On%F6NOCfC|<6%I4!wx{_2X~r>?)7wEIWYuXQKq-sD`TX;yJt z{f+H&i<;MSrI&s$e=74PILXSZ`{eT9L%|%WDTc;tQp|bt zB^_?E$^2XTL2lE%x5+yyUhNKJ43{k^XK`Bbb!Fr3eNTB>#1*&9Xs-k;UH7f)*PS*0!7S1H%;({;)Sd&zXE{zq(FDiqGY% zL;H;;Q+>;Z(lWRMU&FDI* zReWCk+ArftmVMS!iZ1spRCLP!*;d#Qm{xLb^^5$E2K|?9>rZF7_NdR`wO{P!8c=G$ zc3e;5@vYwx4IlbEKkjR9-P>#J`exeHj~gF!oV8#IIAyVD*Sno(!e6u$J&}6(W|mmb z;oj|42@ecd)n=J;KA9RhIlX;yp-*(X!C!>U<@sdw(rKR2yr zlD(~pf=$zY_GGs!-cv<1=Kc7#Y>%ye|NE$;^J}l2E7-j6kg~yXmJN)ldq3MxFa7^V zK%uwDZo-6UiPEiawmV#2@HS(;n_R-Vhl}TFwm#*NzBy}4g4J!`dmV*AsdCy?b`z3+ zA8jw(y?JV{KJ!C|EGZjJi*xffUTn_kt^NM|z@?DgSD*c2=)TO(y1Gqp0Siw}V2sNC zj(yU)1uSusFYMcxmwbcqU4-tb&kig#$HgArE3~`+;PUDUR*OYq-aAwm`~Bbe$>`1so<~nuX7)La1m3`%Rb`q z$*8r8caHlTo<7-$rV~Y#SIx12!=QzAao5lQzCEsy=!xifl?<}h42``jWeY3L-(@%z zWU%V&j+e_PC%g)IyYu0Lu7%3{CvJpFN4*r7tda8M@(icsSzFfJa>@Czk?&lH-Nm;t zyl-XWm-*h=oH0AJ%01?&*S_wF>g&$36-};MlD zb`C2`)$A_E$=RNYsy=roO|oWO%~`o2@%YnsJZ1~JkNujZ{4S~J&RO-`2k-XuO<#Zb zanic=$&piQW=>r6f76m#AA|3I{n}s7eCBb`Oje6^pVl48C^{DZEx_ex?3N;Z(fBQk zrn&S;OiU7U+HApew=k18fb@4`c6iu%D9XQ@r8v zc&+eH+Z)SH9#mh$%Bqm>)BNqO@Y;-X=aN=>{Wf=-sqHW4k+uEy}L>Q#E1-MG8rmZ0*Tf|8@M)lM6JP2i1;_6=ND&*{m-9Z|))6C2yDgI)6SmYukyi}r1cyL0u{ z(aB8{L{|4O*VvYCWfy++p+tLrtis(5qU*N2ot0Ry@vPz*p|;ge7e`DJzVXjT@A8>j z?-vK~Mrg{42TO(aPucnFC=ai8v}0rOnZLgRpZz=0XwI^sc(KCW(#8nUZuiKRWABUI zcEVfA_E- z$?*2@nO@0d9}@X<*$V@)x%<|ZG;QB}!{1Ts`su4PrWXcFG|Ot)E}0x<95UB(sd=c~ z4#&G2g+H34iAs5t7e`2X&g}~W?;a;i;E73>E~v9>sm`-Iva&T)K5)eqtHfPRQ8_)q0!ge3 z*4MN!SLgedys%9VeBnEv$H2w(Q>V!ii*$P}>3b5h`KPGdY&FlmYH6ssndhiQoM{$! z*I@-0_4xjYC6C$H#;#xTy4fryr}69ed%Tf{LT7$=;NBE;@}b0IrH`kN_HwyD{k5P= zH-qg@kM`U?rqpvw+|EyyiMQwSk`zLQ+wufhi z)_1)>#_AKZ2Ki+*;&0ijR zV0UfJ1h<}mnvF#k$rbX#Mt`U63YfE;+pM%_U+C2jY}INovkJnKOB2l`J)Tr&kjpUv3>d<6LUhEi3;hHI{mLMOEq0 z1baajgLRwb=ee+5e|kiU-Gy68^7=U zyxrO-f_rh+q`qp_jZCX;>qXBSiN8*`pJS}oQ912|)xx_~i>DdowIrL1Snk*yR_l|o ztLt=@wwm$@e+GT^d=vA~SCU-HHy*7DW4c_pxYp#6^mO-=w<3yWbsb6eQ?XrSVLZcF ze>I!eTo&_PTTDZBW_}NwFzLYlC)eI`t3_Nl^=RF}{A^vD8p9!7x0b_N>74Oh8$NaE zNxxA!z2?mux8nyi6QA2gFMGZ4thqer72j(Hs?*gzFI(z=rXlN+Q}o>1*|9S-u0IvJ zel9D>ymC)cig=^RXNltst^Xh8q&vN=wP|>F%+<|I{QJV~bCvph6g?iSJu$8OnxCJr z|HO==F^@00YrDzblFUp{+?Kg?#qG|IcdlDX$W;ZraZyU*xnnNWxCcla_$$gh!FyCCf)^b_OE7Td3HJ^Jwh$F15s z+iojs<{iH57%k;)F-wNoX3d1dDLVt7%DeyNTfek+?dCz*Gem9hLmn7KYe@cB4elXr>@_$@V|Z{sQuN>$O_r_%v;;SZXYb2WoBX{a%!Qm zz=GZ-UF9#g@$6^0>}7HF;0M--#UV%cxPBW^h(V$Oew&4<}`dwtt+;MBWUDKnNYb6dGWQQnzH z^2`dKHHS4SgbK}qIuu*IUheNqpP-Un>?m!YBqw=OuPl4!_CL8hcPUAnoO!FPZ10S} zi^R`AzEEss`_<#or3q_|wVu8@8sM@bHSAD@Mf=;tnggp;zHZ*Q_Tsi*Gg-8^ZH-FW zt9ws#QMp*F+`A1KZ`AS_U_J>=Txx`9@FFbPxMaO;ONfcxV=JHR^jMr*D3rr z1Xe8GHgn@v-Bn2vwp=sim)9?MahR}m)+*-HzeCoo+~c!W%26)!rf^u4Uzq2ESvQnt z&YEAcWomMCaYC$dgrrbJgHP$D`r>PuuZkE1O%-CSiWfvi>z2q^v@(QlWA=M`NMO#A zKcNrq1fO2D@25;}3D47&m+#LD)ND7FU9Y$~bd%hgGzO;^RsVk9{Mpig| zdYyk3q&S<{j&-G5+%YNb&Q?;8Wk7_0!bnmA?sC*f?u- zewL$W)Fk0mrGCm9f8T_^D_{`OVw;}X5@IQ>&QmOGxp`MtaK*+=XALxG79YIFTH$M| zB`yBo?=#jD4uWl;tYRC=RTh>RNvZNL?pe$25vlx<>B@#Ojj)|nZ^T~Co;K_7v7(LV zjBL&vzq{+bRbt1Y!)A||T@T9q`S1GivZ+R&2kw z{jG6IU(5SO#Oj{*g3fjh**z>PZ-3x*ywOu!|7rTt1x@>&c$r^cTxoTFmzqxYgV4XN z*Cv~ODhOOIYWgZGW$rQg+zr+#vfM8>T{wUKfNZ!?{`0@q8$#~B`#pVi-?N|J4{c+e zEzmE#$JS*-;=jo%;j-oD{^SehByN)r+#tE~PwQ$uk|j)hSgriO&t-Q#wBl8oc(s^BYSxJ{+aST+W=o?=SVH|a zFfWz*wd<8$w|U|D8?%$AhiuLZTKBi`;eYXLdDk^_AHQEQA!Nmo8}=79WG|#wNoW6X zzPqmbyrq}%&GolXTtK&3)@{<;PR%tqZ;?ui1NKUHh8uhbzvk@H`jK zQDR-#+LkcM<3PZTI?g}3-`x@-EV*)dABi>#mh!Ml%l=4o{+yhou~CNK^3*3`4e5g- z{XBV(-JjmbuXZhH=`GuST4iz1lbjZmtozf}S%D6N&wJc9u z-q&BOa9ZYR&^wPCsr#R9moi!~IsE06kPEH--PDX8xCUWi%(w+%6K(^gA4fpytyL^&1m(OyXdYU8p@Y?^2zpQ$Y z_VZ-2;>xx+M$g}ddO74>lS_FU@@8Azd!sGpg`Dz#!qi2ZJhD|7-lX0C=kxIKZp95{ zx1wG5_dIlY@KWf@X{YH=KmPty5ib`%-Thk4@28)>y(r-{NS@gATDDJ!$^B@@-F+c8 zd%hf%{JUrVoj(_+b=^-WKk9(we@x=W@|^y2og1I5y!B$& z<05@lJGZl1qU9%#6ew@)l;*UaJ)wXrzs^(UOpJl|o0FC+SPFWz)bHwYPd(21z3%&) zdWOlOVf!$r$-t9eplLEQ3sY0XG?^LZLU{|&gc`wx@=s%<^JR}utP}sE%<;yVFL{39 zef@JujOrc}VkK^wdvYHa&zJlAr(?N&L{{;a-@+MbHzv;C zBj_eOcaHs|mA2`5kM77tu2x@o=Hkhti;wS)@4vZZ%akZv%b)r`LT0=QHj6yRQd3vN z)mv|I?{LYI#4~T=9vauAx8B`*FgwYLZbH)WLK)4qpLV}L zHNDX1?8_NmK4H%V7pCieNttr1wzofPlh3j3A3wgn^x&+a-#KaZD({O1b??6F&U}B_ zz)-pDec$(*B)97QyARcG7pp4TA(xRbqm?!G=+>wGhq63wAIxeAGwc8JIB(vQJ!YDx zZ?QxkeRurvm#9yh{3`ESy$`Vov;%i++4dHemp_|3Zd`#Jh|Y&Y-yZ?x?`JD0`MT*Yu@#+{D&|BOsNC71CF z-#Yaniz({Pgr~i4HvO5miP1*uU?Xpu-SaH#J=%7bUlVft#5O(1jpz{g+nRFk-nJF@ zx5`}Jukj_PB89@Km6>2&XdFd*$S~)cY01v ze8POATl#)7?}H=KADUZtR@VpXO`rVrPxsE4oeQ@qsoijhc1_stR`NPj_r{)ilNkFZ z-z(L)tGvrIxqplM6UplzdYES|J^TCwduMioM<;(z__dUE7Y~@XX7l_tDD0h7#(iDo z*P|HjbC*R0gdK9@l`mbd^4!subz*N)%_N6^w$CSDS2BC`A-E#$>2d{)&c!p*H*HT@ zsUE+@bmH4BKYYFNX3u%C_Q1gV@n2Y)5L6Yd==Mk;RX26o358qQ?3abgg1R`lWOrY8>9CWx zHq2a_bBEVf^9Jv&AE~;jGrtyWs<)~965hkpsQ8rk^N)mvm5KH0D(;tmU+cD-|L<81Va=W^_d2++zh5}( zp@+?UcPp!frcbYM9p%`wzw;A=w1f4MM-GKd^IB(bVdrlB;`pQCUD7wbmMpe8yZw9~ z?kGJVQm9lTtR3Jxr%{5n?BJx0rcdpdqDvNpr|8Kub9*mtpIg({lf83oT)Z4}rHD_~ zckh_K>!r-M?iWl^5V{w1_%W|xir?cRTY29pGtAFFYO}m?-#hD=fwHbY^ro`R9V+7q`uGG4F-JQV%;Vbgx6T|0RrYJZ#O_3fCo#7K#afx-L06U!!c z27TG^vF<#kRRm9M}(L7Di{NsJo&7A*5%H4K(@GhLY(WYGd-u}1d$9p%jWlUZZs@r;T zU6g|i#|$eEh7!I7Y*LSYM$QqP(YSkk+uX<1?celY?p^NMa8)Mx-HRvf?&|w%_x#S! zc{{@_$*pSL&V%VkO)AzIedaz;WVT;bL-S77(FE?bbAB3ouE>N+-WWPI8pmuvTaulgYC+OwTG#Jbx!aa~jR zCWfvpEPLinzM69Cz^VOGKC7F15)}mGgcorneV@N@XWFX1{tKPveU1_$DM_anh+O47 z5GSyE$Gl_)1%X(#wC0kXp^Ytj*A|)Xsqb2Be8qdq&y2PyF5Y{0u({hdpFgA}qkQdZ z&a}Py{pn9XUS73UO+sO}q(!;+^PAIGC`tZ!{7OKEGv)3#!ye6ff%TR8ryoCW*2_2e z5?Z-OqksMWniqS6_!2H(&HJ3nxHjqgx3p77pM0^oXran)mp$u}#u3&opQ#l$jVijs z%#wDnAC`Gzxk_B~evo0c^@Ol35qsv#ba1eWGr4{_9nNjZzwK}4I~P8OSzh;5&B`36 zxAKJRnV2=|n@8kr{kTN*m6q$uX)*lb1y*G_ZVBGGk3|KJJiR6HTHD*>B4cW7l1XZR zfXLFziQ$PUKi+dR=N?+VfSJM@Ly!B zQ6Y3o-8XNC%)9u-63@*tW!R?tEuNXVN&kTBwV4l?4*ZzCWAn7|YmayD2u?_P_TIrQ zBueS?s!f3_cLW%V-F;u#A6TlzSN*+YT7yC~BIg?8-^?9GZz%S1b^Q$F`Gt_^v zUp)3g^lqEZx#Iuv6Tj!5D3;=0{8B{p7~{N|lZ9p;sGojw{W->$0>3t!S(m$h-tsF- zvh{^kvBtTM0>_?)27b>!TfPG^IU@UgtS{wgGd3NuuKD(LwqRIg`?@)w&N;O_pZdI2-{e!|GrgOeJU0}? z$mT3?G~{C5^4-jWac^_zB%6B)^DgLTZh4dXa_Q^x41T>YbMD>{kAJc0Q|p1f2QT#b zTsS;A^yB-ZftK+sTe^P>$(=u?%vo%&+b^!lR~L5g-|?!lV?I9XTo_i|oiU#=$RNkS zNOzHkSM2eLoaJUeZQk%Pb7k9gT}}A&t4}YwWuo;giNuM0p8L+MHr#q`?T0BDp&30n zE7#3meK*OmMn&zULv_H39bI#!SGQ?iiiks&$_bz;Ebx1fB82qk1aZ+6xbeR6_(DmJ3-F1)0AIBtZrx4r^gy8 zXNrEzYsuM?P?Vu&-NWQDomXqY^b>5M8n?RGu6{qd@vX-H4J+;`+zI)#b>40++hv~D zC+$14k4rYEZee5o*%NUsdMvZ_A29Zw)yYweV9mY~YwfFR!OQdAIYTBma<0_L)+EJ~ zH$MDmGMn)_=U(~kwh&JpADifKU%3U_JidrqZtCuNt}7d{B(vZ+2T|l}eZA z%6t)LDIwVm^`+Xvg%-shNBU~w|2y(R8T)8*TDKln}D zU}QICNza*Xsk$jgU6Qx1Z9Z0-6E1nfWSf-8u}%*)bEaKJ8~pc#YYUuKU^}s;K=;Cw zY1yCq4);uoT4LHc;X>z}V}VmHM9=k*5fm4YZh)GWG&z7$}D;JYt zYT7tGw_xGZCs!+`+&S_oFl$k3w}D`B^o|36g75A!&#(2~abaVd#!CLz2ll9My`+4H z!})fD^bd>cmi2~t3MX^k%G~wbVPf#fVyjcKR>_~Gm$yZpZ@&3XVp(|b8Don^k=_-S z*Fu=yd~UnK7`v!{*%dqB#28+otq=C5xSmT21zKNa{o$ z=RaQ@wf3CarIiPRh>FXW7t_1>+;-ReT{ywI&epA1 zBGPgBxl2N_TWw6Yhw|)~uFpPR3qLtS?tI#Vmn?eOJuh8(FNP~@@_L&5pw{N??COwN z7v}~S3EeWWS<3t=y2@|WX#uI^+(!;Pj@%24oHO>kY%XG%zAmxj5{o61NN0}M%SUDH zLY69g7jpV$B$^%(TzF~7y~)%&xtNyTylEBfie-% z6*W~43O}5PdArFTt^L&V8oU(ecKgOF7?e@vQHB&>OmD z?ybkI@z*(i|M@dJs=xIf<5IuAxpOvzS)@JWVZQdu+fX5(J2Ci5MStg!3u+;gR%C2a zn#J^7U3Ol0y;GFGp_=9z8CQvOM)Pm7)mNFZeLUbcjkS@Rsq$oMXLZO-;h8pVX_}uO z8LsL0Qdnlh;2nR&Ew|ylYoXAsE&JO!8$v&OYyA5h_SHfm{OI8+7UGX>^3L!@n)Af= z+<0M9rZ+>njn|E{(uV!nfirB^6iiDNUlV+uV*j(d+oH3iKuucxV3r48|I>-(2{!z( zHfqt%T357hDyd&eZ83a1!>R5ltM%p&b%&CkbV-Y8@4b^E5z1QHiCi(2Xrrd%n@8o6T1)sPGXnyT#pZdZvqoz9W-ag%xUyH7_ ziZ#SeWxGFZyNc!iEpK&f_SwaGpNlrA*r{Eb%%XchVP;M6T;H2%A(3q{jg7XVO=&ke z*UU8YT2L6pXZvec-Od+@TPiF*q!jZNl(e-UI%=_pYXjrDGeJp-uX4T$nCe|Ftj}kd zy8m_2JbuZOLa*lBd{kV?lb?K+ZRgCFe|G4-THtfTZj#)I!rG#eH@TH>q&~%}vApko z`RbS4!6vUo9D$-bX966y?RFOv{B*zg`qBkma=W6x>o(j^m|Q9B61ItL?Na`Qa|63~ z89mY5`poC6%#$Z+D>(bp!%LShj#_tXDM$Kxll7Mt7QT8=rkTZ?(=o?wT8rP86S|hZ zFWDBe`LVhRCOrvw`D*Tt%XNy29@^Z`TBI;P?)AK4=_g@fugq+h?SJq8C^_kYUefl9 z7X!X*Nfkae_oAtMeD<0%tNiAM=pS{Nc&mcP^4aZIDu>gJUYmbD%i}F>&T((~mG+|S zG_G?eb@FzPb*r&TnLkcDI>$d)Qti9RxeYuaOe{C2 z?lJk6W^I;oV!^uE6BKm~5A;6E@u`09vM*C9tnAWmwVIvTkIpAbWPV`rs=a#lGmS|N01(vAg5uW0o&GqEugO5EEx_kDz$&$m}4$^j9ESHa%-0ao4v?@GLRzoJQ z;^6IL*Zi20xG#pJ^B#Ec>w3!J6}Qc`{FiKeb3r*`{j{Awv!wFEKdD(1p8on{i&t>% zjuln=m;Gw|!OwjmyMSl?qRsn!`zH4UW*pqPF8axhE6=~YKT}qA@JYgyZO5X28SN@7 z(kgHJD(pRXZp7+2E54cCS7Qr~zs+eVS+_n_amx?8`=@VYY?0b#JbUtXlVq1KcY-9( zzDtgHo^{3St$XXXuUEAqCO2)@SbOJu(@s}|&sJs+zbPNK;AyyhtCBA#>E_zkDlN{f zHad0w=NGcgPno|sFZ>wqZoA&t*~{2|8u`Yod1m zab-({;QBq5SGFvC{YGNX%4MMy87ix+x1>GV{z&TC!Q-xO?b`O9)?wkT!R1{u;>0~4 zuiUApyyZq!j_nhd*&I`Xst&O(y^}6``}{Jw)gSY!-xYsth}dVoL2h%o<@2cA$Q^lp z!OitABXo2AtIaF?@tb3?}uHr`8KICwv) zxZRk4Z0Yx>b+Je7-ak0yy+`fl>nf)6r+)mE*7fIiugv555boUQfA=5%j;w5ljW?<; zgs0Z#?+W?9>1*X4tEj8ad+k;D8H1WCPrVl8y1&I->priKrgh`CYKIw%gew$gFqx`+ zp1Y=;C%9zA|CfiZ>~203;>Kz9Zhh*V`1evvH(a>dS@q|6>Yvl075|bhp4D)4|69Sk zRkLRT+xcBPJ2tD{&1+<4k_o=;^L>8mhWfDPw~5Zn3eHD_el0#;)4lzpL~;Eq)6crH z-xYsM>#MJ?@pe~T8G5Mu$-7sJCclu(++=+Iw6f#X1Mdvyx`ka1T(CVM=Z0%$>fU*x z$F8M)in-o6(fV0--_o5YJ^t+zn3Qtl{yon4%Z2hy>tFu(e*AjL71xsv&bd)tA6A_{ z<1asF{mZI<;U7(xJ#k)^eA)HKl1q;ll$^Q~clH_Mj=fUzS5zMI*5}uH+IfFl2Y$3#@+aF-+PqQ1LU+gi#oxavbgXmQux3`3;ALm8H33}7 zk8Qu%TuBn)incv4dDFDWgr~7<1?txwFg^08H3)LO<^Ae`svx~W~dKLp` zmF$$Is91d|UQ4s}T^Ftb_js%4&e_0;ko3x%qd{?ZljT6?eCJF6qP zSg-8#@8vxm-Y&+sFM9Up-R|E%U68M}MuPvw+FvujFSfid`MvyyG{es>36_^X?;K%V z-6NDc?RuYCYg78hwE}MyHELeB>}t>2dmyGMd@oPk^T#^d+-CfJxl8_RwebuK+s^wj zr!L8C>ZuN%U%5csREH(*w8DplDy=^QHB+7+4|#E(ugK8CT=JE(uf?f*w1t^Fr4Y9?4vnYFuv{&38)bFsJ!7(>70~IhoJ8 zZ+h;wU~IADD2x=qb? z%YEvOt?A#~9!%264r+NUapqFVtxw-P&DMP?%5d-8QuOjv>Jp1jU8WH!XA7T5*j$nF zh_Mf z3@LvXo4Sy7se9)+ZLzNo7SvVM3*M74^Hu1vb3TiV${2K0o(Det92k-|O+xi}uw?)I z@SUrd8Q{gxnqw;8Ha4 z(c-O-b!O$a?YRA2m0S4whb57x7fmTdCTm-A4!#F_58cqWy) z&b9GwVU;TyFA1DdJ@@X9Y-+~d-eX78X4!EG7~&)%v{ zj}x4tK7UbVl(*oA37X~$RcK|Z6^DNuu{_5+G40e< zQR{$3YkqjWi{F*M&}QF@W3qbYn)Xkc);|}ooBHm&!+sa>c`4@;_>(7Do?x2o^mb?T zbEz`*FVVk6rU$+4Fa7tWr2omf6I%*;UR+H~jaeqVg8AD6&WYA$HKsF7`ZA8LGU!~$ zH{C{uOenp2miI842z`*ugu%9BeT2COU*RWl4( z>iX|qxHjvIDboxzK~DUZTy*@F$bR?Cm(#YcyzthG@lvbWnb62tLMz&rzki$_lRSg3 zY~KfWleuLZ*weg|{#(47QSV{6V8db;j?^EYO4o=S@|b^aZvD!2IX~hUtAf|gu@@0AQkW&RYWlmv8QXUKWn?XAP1+OjC}a7p>kA{B z^tI;*96GzHon^oOMTPZF{Aa`8F+MCiD)%9AukvY*U+Y#M4C_l;R`?`ephI6ngvW2^ z_Yw}C@5djr_{>N%3FR^Fh^=YY*z;!Tllvvh#BW>lpXUwaO8Ni&#Bxb4gRT zJa-q$dN*0{iJmcBwB?%bbDqRRwd%ABS1vSLiu5kuyk09ZVKrvu1Flj)m5-sR8DbjW z63aBcC8(MrIE{ZcCNf{fT&Pa|i964iM`4o^E99MW6uQr{%{DDFk5ts3rr5J&e=euz8+FIj_ zJ+oiRPyX>Z#OJ?Z;UxdL<_4Gj&a1nfI^gtT-W=b5%*HB@gM7D^c3JXnzNLOH`+Q5+ z<_R;dANc;d~XS(%Ct z{hvn|r0uG=%Z!UZfByXQ>$`vdpZjNr{m-Sh4>e!k)>o+a_}1yX(3D$8W`2*ouKjH3 z)T_IytNYW;8(6jkU)}Wkx$*~X7LAL)3T} z$a?YXHO8}TwfhYG5`+&q6&RR$_T=RLkx|~l$*ZAiqk1Vu-|tw!?$(OMxm!O;gmqc& zD80JLUas$8eglii74CfPn^W#IXlTdf{=hm6XmA2pl)n?9Hk@%dIzPgBa= z1FcENYMTzYPuj&La8Xxvx6)Ug5^l+v7k9=80k99;fI^TQy8zNEX~oE zl9JvKY*d$)+|w@bG&pPXp50MBjfVr?Mqgl!t?t<|aj|A>*_Z?@I_3S}|1O`cI@_jw^=MFBtQEC5#rBr*FucEgN(8T|sn(k0Ih&3IxfP9_^h$2YFBR zv74$`bK0|A&9j*;u)XorJ2k$&W_tb|&VgzlK7HB1bAJlw^rtU>KG?N}CtPQjdxb~6 zz*3nR`MY^nwcS?X?(k^RnvnH2>uTA-%-XnP6`Wc>#I~~T3dTYXDXbUP;M|iR?BX$OwC%J_L!_?O~)^=6vl5z zNO>FCpyoV}^)zqQv@MCIS`ujo!hdzFm{B@kpg7XaKjOxB84km%X6{FRWH!Vt(==P* z`%vxZ8Yxfx_KS;4xg=NJ{QP3YvFr^yBsgl$aZE5PQa8*s-}?Q^N97_xhu|qOObiNP zy0`b1PGa=@mcaF#Yi+gL?Ys;FqXccgnb#D;FWB&%e=i)i(rblj!)J!-V_eJ@7yACW zuhDMq4bx)^D<)A?Qz0MW(P-v$rTAV+&2VwUT5k#u`T&|&8F;h1&h~N2X`+~U=JwX zxO&5)N0KX-GG3oF<&myl;>_=+{`r9y#HOeoSXq!^p~4s5X)71dw!^u9;zO%-I%_8A zik_Y-eMP|IcCq4ZtLO0+w~Lcg+mjD1S;6$_=;Zcu$1X1A47$HWG9h_t)=I%3?Pcdz zdVceXJf0IC!WpTws@XVH&nrCU_(6v+nGaV)KUWJBUHD$RuznGDwuxQfBEzs$b=H%A zCr&q(-h5l*j)Ss6@A{U6W4zi~fomTt>+`bSoABlFl$J-=q(h&6*xs2xk6~T%({*Rg z{am}Y`Ik+rfA)jkYwsUNacQlp(v@16$yGM>TSs5~bk1D4eLB097VT6xJ$H#@g5~xn znynM9KmC!}%DO2~R_C{v%Kg(b0ouA-2;d|7?!v^^mn0vyvRJ+|f%b4*w;9!)- z@*t!0&D&-dbwp14Jk9CLvRU4&drDrsE>TT;)vqt(#~wa|-)^t=;clbErE?T)zG!tT zhVUdXBSp0<*H)p}&+ff)%pGg_O!9DLe$*514OVbRg-MZeNH zQ+p@AUVUqiCTCw`pm!zbw=C`ds`F+kTi+ZEWw13zf$e+f3>HCD_i=kOQ z9WrbecV=*1k~?(A>cavRj;B&j+2p?q8}hHzFy-sooxSGqM)$<6)2B6OvwKdQsr7DV zcE0}F9g#BUyjdOR-J629M`1E(DKjtNOkDTi!Z zD?;bR@s};@bDy%@|9hM^U%0n~_U3Bmxgs*XC8Y~5+Mb&fI>9JjaOxh#jos63h%B#~ zD&+gv_duOzL(+NYAD^7Qcr?v7I8)BP%W~qMni=o44~53wDBmdj`pCDR0R_!VqMmaf zQQ5H08x`F6>aZ*|GvFN_-7+88zJ9haIi+lvIT1g_T- zu77e&wY;J#WMXZ6#$Ne54?7H_l3uUg{`O-9!QjbA+-3wE;R8#s4d zu;-mI{b8tN-1LWwB(4^I|8jBH<&W~DF+LNt#|BO`}>|f=s%v9PjWB-x)bAKEuW|{ML^)8ci=UY2ndW^G= zs++R@&>b%S1$Q`TR)l4m0_w?A~%TKa*y_zXB>80g&E1-JDW2Vbi|VtxqQfuX`8FTjli5+RHoI zdyS9Buh+4^H|c1s-=+Qj>9=c_OYZv`E4IFfWsH~mXSV-b@WFzz54Z1@e||l;#8Br! zCja)myMM`_x^(*R^Ut3bUcYQxko@4HU*8%>bM~|64j%lT{`vFb$(7apG84XT&^dAH zL&5Sp3fuoAY`=5suyj`DbWv^lnApIuvQws8&#=_p7oTatqStqC-dx>j=eedH+u{<& zcWR?dbCb^Y=-g>{;{|svHC&Z-f`6v>e)T_@-;6@C@?SJ1Sx0_ZskpCoC%9w&R^e3*&YD?# z_8Wz7*)FNQ@J~`DH}ax^D{r;4yojwB|F)MRx13}x*7lyi?sEHxM9QOGvkJF!SF$Ip z^$<_ysq5JF?ukbHy3W%ZZEjn7EwNqAv|#0VYxd$snWZh~^5oAOMcyr!y>C=}o@f8Q zDQfW#Y+ruQUA%GcEA!CRdY7EJ7fsv8_=dk!clNDAD{I;B8EAh=-_qfKc56lP;@Jw@ zFWz5WvF3NRp~NxnQ_(NqSMGV0md&<~TXWHp$)CRDO3LvsJT9?U@!`fLl9PN?%og#e zSWS8->GiUt=k}Kg6XGjXvytZ(*P4S+vrrxq^4#WMh%#&X3YV(-drX8Cl^=`?!fHWc^GX3CG*{mtCFLNtbne zI{oB-dct8xEIofve;(BHH@37ifi2)SHozQqHZ~w?*!gL!cfQO{!F}h~&p6Cv?Pp|i zpI?!419y%<&YZ)?4#nvl+@O0??3(iJNoz_U{Mf(zMBRoH&(3&Am2Gc6z%Hn}Yjwoe ztIbD~UO%2Bv~9`1_}`zerhWVopZ4=vl_F>8>HFdjr+aVvbNo<&Ur(ubvgny>r_VZZ zdUam;JGs1jxq-J3ck*$ai*1M3yzAU}Nl5LGj{gO(|EppMHGJnjLA(rD2$GCPQgOtX#g>`LNmU2PPGS?7mtl5w-Hn zD>b`X!S?MxFB^PcB|lH@|DGQ&D?WPb_xvt8F+-7S+Ps1aVNX*Tt6a-PxAYWw@*lU{ zm8mjZ~U+v$V=~!!(|0 z9cxcpJUpuraipiVw`9Lvlr~?OzRD$^<@yiOR8%d!dNyc=uUGo}Jy1%%dyS2Ur;NeM ztsX1mo>g!hUZ8(+rhsV40ao=>(U$|*8za^;H?r98;@ctiFVT~|v2I8$)0V9+6Ox1n5r+(iRsO3Lub3^!H)Kr<^ zbxo@m^-29Uh}m$=@Tw8lNykOYRxEbVdEwDC{e?_$g;e|F7am%EpB{YFn`GaA_`Iv1 z+!EzXmPED1zmz69@ziu2-d@=8EY3}}uFK!tIZb|@CF`umUT-hRsBN3Z6vVV{R*%ES zpF&IlYYVc%k42nV$mhplaCP!z8`ZO)1CEFn@robiWUViCn8$D`By7nayY3_Nu5usd zDU%G@v|HmzpQg>MXipi%&Or zrMq3m$p2UfXH8{L^P`8$rV3o%eZah9ZpNY0I=h}<$x5-kCA74BWo1n3x1-E?om=)S z{I6zJm2zf9(gsbwdbouVErHM;s&-GtE@`4s!tF2Z&H+M20ok3uBPi zl#`($d4~?mobr{Z2nxwl^j^6j#@mr0%jW5$@Aq9=?>z}zoR;)fwCm-$MFD3H@K3zb zo)ZzfaKh5YK5@ z{+Z`K-y}SnT92_xKVc8GkehYu^#E-q|8@>(s)g!#ARL z9?IIkc5lp~2Q0HKeb*#wUM>2|J~w|M^M+MVW%YC)svSOg?Gs;0;Dc>zn0nc}>_D^_CBuBTrm?x{cA z^P-lIeQnmcMM6POH{EoI`?>P$f=cFav*fwv`Bs&3?WLDR>U$1&JDqX3U-IUQM@+L# zhtQs4kt7rUg=>_id_EW$;p#qN!i>X$Dm)6!npR9T8U(#_TO1taJu}#JsMXNmtW{HXp%?|QY#P1+G*Hw`J?t$t{;nXHKN_c z+obCMS#`Zs+O#=BZ&7_H%ZtdfMFIKKJKpf5b*}JFpW5+4Y;lczZ_x#bnX=y=?_u?= zkiK6KY?Sb)ZFNt9@gG|r?XPD%o?VWgyrwq$^qC6x&0ZDqizeMOp3k;VKE>kS%TnLx zmrNe2@c2~6-Bdp@;eCPT_MDfmP5zgxKDuO{$mAowXH|{z6n>tbRsp<+`>F7vqxaq&zRsR__$5zd>Gvxk&KpEETRUdI zdz0|TOo-J@Pe<*TY)mz9ce-qqypdb_ow<=?ud zB-zaEeM$?fcDvuYG1=#Kz%|)5s&C${u$UI*>DH$Erc=fIGV2Y#Z8P4%tK3H*G*z#)kj2(-whS*+xvcOd*l zmATl3G_TiMF86lEY|9IMFBcp1Z}_rp)ztEe<0bC9o?M)FLv6{bypUaM1Dqb3=sh#J zmvtkNN#t9%lYbV|1U1dG#hpA+@&!3--##_uE`A_)dB5>H{%@aVWZjb79?My|E_R>Q z&pltZBt4EiRJG;OEH>#|+*`B`ZoZauAYkd~E%WcJe8pR~L{-Xt%N9-M`K$FVo+?;b zx=poh*S;Iej_guD*JS+2{_BR?jbEp+mL14pn;WG1s^O}Kvx!SX%MqUK%T<`|mdsxN zZmK~8SA6Kk%hPvg=-gg7?x*=qvFl8UPfuD1RDD0q?m_rjakqP#Qs zPn4KAGl>1;2;9Qy(6j!qujH;PJ!&nAT7nCuj+NS$mV6A>xS=31ZHwCVw+;Rpe=Pei ztdL&rSCV1>ep-O;6y9SO_k4&~F(|)cGppfN&guED9Nr1ox?XjjayK@QnP;(!*6Gdu zt7FA8Se$gYd6AV>wtcD61NEg+v8r#@z3!P{qI%?5mRR1W#W}I%dN+8oSsy#k zu$Hz{6RNQ7R&a=WQCd?K=~Qfb|Hxm5ZDxOp3)Md_Tz34Gl!WjuWyi&>HBMP;_6A*- z-(Mel^SH$8!)v&?Vu}y#yvwxtz^T`h+^r)%*fO7buOu{^hiAhN%fq>QS4ZBHR15Jv zHDk*WtGSPd&y zQeKxsb%KAb=!yAS+`c!^z*8l8N2#?0Yt#P&8b!Z%{BPNKuUh`lcZslHJt5VXW_8%) zM(6K~JMrOS+8R@Hb+)r{lD-l$7K@)r-T0$DSuSMj+PRJ=|Gkn`JyvwXdEu07*RGZ7 z+CS~$19R^#KbY&eC%WgxyAbLAw8Fn!cc(o0`10{0i&@qDK~{%9q|HoS|6=O(`+sUT zS^RVEpFLc7y#BWT($&7s@$D)h8GAIHnC7m0yIH{Id#QIXBv$$xXL z|GuF5QF`uW(d$oFSt#FY`kQOD>XyeJa}JNX^-sRMI^-^l-Z`D(Ds z<2(JeKiL+2UTtvgNHoVkOqP{`rr+VrKf-+eV;FwV}K zaq-Ab-cuj86!>zzoTWB_dzaWg`5X1I(H2g<*B5=5&(fx|vwD+vcXZeOQ}rxYmqh8* z%Shjy@5(9`G^aXP%IuKW#Vy~q%EenmdNVmaUu$@B1?z48YR5mDe&~m!YM;eu`9s?C zpq9UprMUs3<&Qb%XKVoKBM_YPyBd?5AG>|xKfNdJF+aTfxb9CrTz)B&r=(frc5C;d z&H#}P@wmuIsrjmr6H||8&H8^&avxu1#kzG*wA00Z3UobFZ9hCSJTV@}?APpz{Ck{{M>r|fefic6tDD2Cb^6R}QhTI! zURmAzd9Qr?{P_7XbKk5NoxXT;O~sd*9cdr^liR;m{T2Bi^r8Q-Y5l(W|2+Bc*KFRO zHo0W+u{H~v#!T3K53=iiGb7ys4E{}G>X{wvqBYcbyb z`y}TYfxVu+aITFk&Jt{e&NbB(+=PMn>oeF zAhFF@M!Uu64o|+v?~HogMlQ96fH%{!iY80=)kOQJT{G<}JmU^cf+$oco&v4;xe1_$p2?Yw%nz= z4<=obvbkpRm1$-E!;Z5nrmT+mGjC0yi^tl?PNQSIJR&P3*pDyZH1+>`Yu4p^t1o0b z_B~5qr4#;YU;3+=m)GgL^IdX|taRQcCZW1z)idrnDKdS(7R#?$D|C3rezTtbGcz7C zuzkoZ3gTaXGG|Jkip#0hrQdI822OXp*mL3PgcDV)^-FKEvfoe;nK$vBvC{$HWitMm zbNe#S-gqIx-~M&;{dNJp^Xpv2f|t#>A7|k#8Yw8CG>NaIldmX3U|EaI)M;~BGoMag z{lm9)-in(?eQY{*8QhSLzm(8&Y{9}+O_Gb0{&T43$5yL&EC@4g+PhBk;8oS_Q8;UIqJBJZZVW*7*6u zWtUYF|3pIWb1iUFy}H~*&}orMMwqv~sZvOuaQ)S{4X!u7XnBU+TgW8;Ros8yZ93z^ikS0_7LJY#E6cWq*0-t?uyG6HG9$eQ_&p$VO>Cb(CUa5TlCKD{c@MHRxPQw?I zA2%4E5H@YxwTCNRvnOK8$hFlGWKcXQHjtp}qsjnRC|K2pM@g6(ou+ zoLr@7d?Scs^0v0MTc)gb?$40mU7gSpAuM2NsM+8cXT7Jkf8vXaVrfOYZ#ej*wOoy7 z-R3KGr2Rl-tFA%Vqn6n$ob5ZhKD)?>>6ow@+qXK*4)!c5{BLHpvvc`RhJf!aZ2TVT zOSbPSygxC?_G*;Fa*HK88WX$<*Bk!0`I$Xg!NE)7wN`M-%yL_k7k!1c*P8{Z&A(mT zu-LF;N9yY@dy`hYU<_fn+%@OAbkRHUz*CLy!fV-8=Q-aG^j$Iez`|?`hov*m$?!1b zS^W9nnrWwf_V6W}^JnFz6|);oI?Jed*V6Xe;eAtrT{FrAdY!)1e|d6? z);E4@r{%ak-E4N+a$cLE;qk{i;(eH9vh$qgJ&!-w<-1F#pqgu?y)E-f;jk;8?d#=) zEZNR|O3v(4tX@*f$Edj>Xr^q=MCK`$ud}4)iTwV{;v&-`nXvBN(q(@p&p5DDI$F*~ zTU#*vvCVFw-8ak`qZZ+jlwn@Yie6$~+u= zS5mJZ*2)vrxOJ|NHKfF(_r>c?mrUYc{!3^4(OFor_s06vjq&d{uT^^+xoKNeqtwm~ z9G$I`I*(hhD#$QYmYm5GKJ{fm=mKvW(+gc%-uf;5`2$25pa)miqpjyy+dEu3E5NVu1eF)W|NDN5*x68x$p(?pr?&pSa6)G1-UntL_3oAvm)@WJW0}w$Q|9L$g%>T__#du0=v0<;GxGLU{b#R4?e=RQ%VO#{ zR8qS!S}{$$r!ePA#xBjo`4=M(SHx#TueT50JcEC><;w462Ni4{hn1=Jy-0hldXMpM z`NQ3kGkB6!yq>JL<6tg*@?uZx?c9zY`^TM)wer1JOe6EX{`^`eezopXr{{;-Ezj-> zf6o59&*Xew=jy``Ta|6!_0?Lb|M~Y^gSTYXH;KyKIVDyhZaJU+ALgl*%R|3OvWpBoFJn;xxp6OfbJ zZhEcbgxsAUOMjic`)K{_4GR(u7v4$U-fb!H^va8hmY)Hq9(g;M#V$Q~a*EcH8CggD z48*%ly?xKJO_xbHcI~Ude{ZHwODjJ(`FX{&x@}_U)XH7G!tTh`e~-Rt{mI*uRMDn9 z<3h044UY|F5w7V|)A=G~nAs-upWu|%xg|frSgcNQ_rZ@E4efbb*VP5@=-hvB0Sj}K z#9@(SwVt1RnGc1|gvlt2Twa}Z;y&|soz>@5a(tKn=`p%Bvnw#-+at@R>E^u$G&5I8 zO+GhQX|Gv^{_W}7-hb{?tv-DzZ&h-TL7|=!F+CS&`}LET%8<0sTrG5UVraCd9iugniBs?T;t2yee`sSl#uve0q^Zxoe>|5(sB;1+<0l~?U-iijzzn!6m7I%KRZt^)Xz*ncgo@FiQDF}h6l;~=sW3uFmIA#hjlLaNh6rCu_S&)9XVQ z%SX-)d#l6v@Uapjqs60_VUmVig2e(GC*NRmG3#ECf1f3!p`zj1=gFsHSFPVNd){q{ zA4x8)H)ZT)Wg%S-Hfr_FR1hB!P0P(&r!!!V_xjhJ~``C z>6+_P_OO{>Y?3Z;+O&Js8h5_L4RU&l$B&oX`Zam#cfQ}Qt)}bV9yuJG6)62$bhAlL zwDa?=?=EM($U4J#dgbba@0kK)t~#E*Z5fj>?Zh`_txcaFEV=3Q?Sm|P@T$zCZ_WsI zrtb?e^wxf_|GF%BongnU+1W{i4J1PP*r{%<)B;s#r!LK3 zzB4-3e}BU>oik~#qF#h=6t~&4b7J1~O#Unn`#y>rIs=M*2I?l5mT&iAYlDWfD zY7yIl$#-I(yBwV@Il1^sQ_jI&y%ZHaChY)@?DZ#%J+8mMy{g8e!k#(J@syRk;GSiw zpQhcZ@n6+cAN8-wadz6blJjr2so&WudF5Nm`|lrgJ$P5!UYl{D%)7Ir^*~dVaLIIT zHv1*ZK3Z|kkam@CJH5j0o}kj}V6(}R&9?>ob3g7&S=cwX?#1KtH`r8;f36a1Ti}Ed>Qf-Ie(H4CIOf;>x$bk6NQS6*aMTj>_( zzAC}U{oHGo-{1PV^NV+ExX}Bt*W4wu;{7_Qy=4Nwt{!WbUAk!wU&7m7!o|`#od7Sx19q$?U zk9_%c@A11s%X9TBL#C?eKKQ`qMKVE_0^EDKUuel+^p<=5WpC;{4M)(pNGBF1d6sKCMI(^4_eXruQGf~N(_k9ssV(EEaXvY3`Kkc8ts&Wg9T;`xJF4Eeuc16t^odr)? z-LrQcx>47&J=R7dO(E~j+{u~7r?2=gn|nF8EkujG-IRS|e;4;{^@odeu9b(S$8XCp zlM!B%G*2eL!o$J%<2TynXH7xzU;d^TNx0$!!&t|`>CuLr> zTwCy-ke|SZIq#>m#2vXHv{rqIOzH7&*N^{x=(#a4&D%nCxt)ON;qzwqs_tBUvSa46 z)ymw4hYC+$6yu3!-E$J(!Vu{PaynbHO8$ww-^B56$M@ zb^MLY_m6LC{FpD#w#h9yI(^?kSDUx{*embmt+@K~@*^L+khUI)hwZ!KRtOk2%=dp& zb#vwh7sJ_q%I-=&>pOk+6YC6U#!4NHOsFinjN&EW%>hFF#^7!tR1K_)X_X8YIO0t@OB1-Bg3`rua~ z?(dB?XN z>-?HHt2UJHaMLT3Dg&L0f)Cqm&oOd83uiC?&S&>;Vv`eJ?Tj?}r4JLO!k)K3Oe~!w zcG*$!GUfiPX;my(=lW*x zmIi@mhfV&NEEWuUrlMFEHPD=O5b#nvuTsJwh-uqO`!_UjEF1b|f zE5koKMdgz7ms!fLZx>8iwnWiJveLgN{Pvx{VcS+4*(^@YyR~lH!<{~dz3v`*vnFpF z^O5hFJGvk4+|%?>QZw<|c6G0gi`Bw$YU*O;s~<@{+S_?pS!n(bx$+fz%mvqedXRoJ z=T2kA`-P=ZhbPw0acStdy2U_Z(hdXeEH2%dHP6-W7jAx(HQ^Ko&(@{VdoEn&OR7K2 zroDzem@)ZW`CG3<$RN_!}a{~hC7)X3UB_Amf_B`h)A-MUtlyVa)HWR zcQqqBgO%6gA8vVcr_s>1^MXaDN|#>F%B5yj(#@qU{8NkOy^||23yRuzucg=|TQNx+wdBSXu)LEA~wug^KX|1%i{V2&;aOAkdI-!?3JieI+qAZT3@BPoz zH!&;0s-ts~&>xmZ+^4sQ70E?SS-0VeAy0xJ&+6EY`ibg7VJ@QWwrf5qEbI_dvC)|z zx4$QhX}KwL;laI2MHDRStYqwMROILR%kS#gxz#JmJXguV?6~sO?Txn`1Qzc--?vcu zoJCKG{6o9$%L;QH=el|HDNl3A^$S$cp7&^t49|w?^M1^kkpAaF#dX#!7v3p)(ZV~! zRhHaq-dG-d!r_uY(v3JZ-Sfd)y~IS)HrL$hJ>+iTdE!?3P zT4&JZKHV$55)RC25<T+I-B3JNxDTmG`Y`WxJPc%P1(GtHD!zr9@e1x>5aEfyGLN z3mr5b$8Za91ulwOvRB&cn56rm?cHjH?PBJcvTux11EslgdNwyj&r3h8ti;7~e7oii zZFA>}r{B)LTN)`;yVuiMDP{TX1Bx+cy*#Bka&J6{7V+Qs%Uab!aDM!!2l-Q;XLngE zGIIX$^eS;noblO7DC2&fkf4rex)e{^yzJfwQ(2oE&z%!;@RBra>Hjq4=~w9v$wtvV zPBBs*jYl(bnxqt-$*Uf*^RiiZ@~r&Hg(v>F^8hh zyY>B-Yfew);$WLl9jOwUc3yww!h1_SEcs_&y(zY+jn{AagC)XqgIMZ2IgH*{CVNt^>erMisUD0 zulvvye6wPzw$j70h_gK>mMI#G#I!RL(2}FJ;3#2zGDQ}oJ&kTr+gcNs{{($S?)v%?=X+7nPc5zB)7*S zd-~;qjwLFm*D*@5awILD^{$7PiDN>y%gQ(Bg z6O-ah`@Y*n>QYy=FO;acrTMRZzIgrw!$>EEDk1(OCiCW0IPP0~JYb7ec2dsi9}ni} zCf(lt`@#3EPxb_gI<5E8jXKUbZ($_MuNI?%-EW+})rGBei17WE7sAXe|Dvt`@l3s# zxRj|YDvt-4Pvh#@k$t65z`TcB@f6E%RgIQjV`okEyd;-0E|yS*yoB4e;sR2e1N)sb zZz#*$eJ=T^XHrg**~7V?*p$9)d89o<%*Tr(ZXf49udKC?1@xs$c1k((+THEx z)-C#lqCY&B@m@>)z!v#*m5*azmg?S9+$Te3tei0aIPb&e)mPdw3q%fO{JHWaCpdy( zm-=UEPNjNfm4X#FgbppftE(?OLBQ{PVmiYfgBst|g;JAJc13UK+@`;(eqZ28cs2>o$NMYNr#{ypIDRgvz0r~XxBfU7xBf) zt?aX7^_wZ23Su+Ouhv@Gajt26I_2$lxARBdn3+sW=QYum_srwze&QE#LZwDj&*#RK zeaqKqZh7S&%<|yLgSn9$?++WA1=~$9Fm}(vt^19Y`a_(al zhA_s>i?1yF{L;<@C9c`HK!3UGnvMJO9R%-6nZa_d~aR)cG$7xs3%Q+fHZa8JoL zfmh}{%vqUFH=OEYT(SqHh;uxa+yjFrL~Uu)6HnF-Ioc25&^fRn+Wy!oRaXOCK?AkMDdwyLvNkQki@%AT^ z94-mCYppGfOj+Wm(XA1B%{4$|ZouhFT*nKpa(8PuuV7vB?QPAJ%4yTz`agQ+@bdl= zmgef{wEKyi%Ql%hc?5*Sm(;vT$@WMO*LP54Tc#Vxz1RC=o>vkt^i*0$d zV^5Tg#n+h5yhWa`pNq_OTXIqJs>vzQjrE=8zov)mu)9&Eo3gHY>EVOU*2lxYe!X?= zUt1ja(MPr1dPj-(o@n+nn{*^@M1Gtdvt^%p$}#6@y?XXMk}0>#3t6W>Sm>^&vD>J5`=yrxo>^~B zlxlkjPW_dz2p*Si%b~0ZIc#+gKR2J7n{n4$_|g3tkw&{CH0Ey8i)UWYGQ;hdP+6TN zv-x|4s_hCJLk>EI?9}uU4bF+$QXcHNG?u zuIsorS-V_U_}UJ}6RgscyW-mKhUP7JmhwPLb#?Hf@+%2nPOZKyEV^;ZjN_uW-{)+L zdzM$N5xn&B#_V4IUO&I|nIY$oU2OSKC@pk~KPrF0?J3izdO0mRRwKCOU+VqFL$^!J zj~;Hm+%O@jhOME}GrT9{a?zq$Z`&pGwVt&WB*!Ej{3m+0?z7(ZMM00QW}nv!c+<^x zPFCsIm6J0j+la3cSo-PBv;`MGiv6%Ol;^p-_{bm4*QIAyJq!`b=W>m{=f%A2(9|=c zi(as;pR}uC!HG9(&t3i)**Ep*y@z^AZCaB*tGB<2SbT5M!AoVG*NR29Pd=QzPeAAv zuVUVrIjlcFcD||gep4%+Rl^v)uhnvC_H#u~VUO3Al@ZQG&Fqg4D{YXNzm(Pg^ql5B zBKpx0C%G4%zwCVf8UOqRwKH~|wfElqG}F-T%)O=OoiF8o`Td7fv6p{8 z*|0Lso+*m!?w0u=c=MG>n^*RclvDqv zSlq5lDWCW;nv2tLLG*v+v)|^q$FzSvyPL1zQq%iC8m2Cfp59KJ!m0dXt<=>Wi~5Xz zu6TBsoiD^^uhI3Y9}n7o{$9OpYeV;jKULosZEimPX5sB}<1{Ow&s%o|ci&SAXP9?% z@6Pr9Ea|%|tUI;m?5&#_Gt)6EyrbkbqtntQg%*3CuCiLhQ!}YHvDBCJc_br{Tu=hvTtCU&c z+a4r1F-`maPeygN)4X4MeKudOvHn^YFCM?8EJMpk{Dq9v`EEUrANLLPg85xj7yV3_ zlP~(U+)(e-4!3gMPOI6gRM=0t)N=0q%X;De8Rkx_Umr~pcG4|abF<$wV6pe@#TkqX%Xi0=tk>w^+{muf#=~>_;QVqQ z*SL$^4czy3emur{t@(rYt_7F1B~F<(^6hzefg!js>}_mz zzRY&fzw6=`a&c_P+B;eCd9DiMB?aHu9iEd{t!Pv+NI6+$QWcr6e4<`I{lr7tJ$sBd zuZ}&LnfRnxvg>{IyUEixzc;(=lDq6}{k!{nFZcS_uQ20ZZ?@}}@7ABEkL~7t`cJ(y z*X;kE}X*P5=4q+`+b@x7vFnLtPhrE-HRr^7!~o_1kH0)_9&yn^tnvN`KW& zxvTSnKhC}JZBCc@Hpj@|;*#JhjNMkXu{% zuHREhwa&i(OL&&SLeBmpqH_b9x9VFOhdz@@-@Pn;UTWyQGv{vgii8Hve)w&rPOg`^ z=dF;)9hwmt;Wl~QJHsN)b}zaWyYa21=+9-l1gG5$N&PkR>T}myOJ+*m3`zG4JF^i3#v%T(ho7t2f{_IUQx}~{h4$mvDPFsB{XIb9v zva@F^_vEae8kx7Y;KSUvR^CRTVF#V!Zr1tE<-GE0+TQ%=E1|M$-gAgOx*jF*Z^6d1 zFJEYBp4#=!GcJAR?U{aAbIGbik!kK296ZYD&ZayCJ*dYCO+98{@Aq76?w?&tn z4Ncv!bk^COL2Suv;j*jlbgo|W>CeJmj+@IjoshTEeC=lVPvPd_h--7E>ff_hyPWPi zNm`=t-wB?wDYFtL$hqa7S6eUsq+iEh?0H|FtaovH=Itw$!LvSdseIg%!*h?~{Lo88TmZlx&Mo|Qiv@J_{Xb&S3jPpZl?qhF_a1wSpg|7fM=vNYRU z55!J?6Zy1Et12r*Yi)qn`DfpHx}D733V$@eh+Lv=?3ETdQ$&{K50l;k)=5I{mi;XO z{%6GES8Ao(pIz`;cJ2?u6GCb$ZmpZD*Q9H?;p#08UG26{I%}DB+-(rC;dIY;H~BFC zZk~8$P>S0WM|+!v(v0l7vFmhdroOB+?~@7;Uz4G{AMMto@wwZPF`bjVd}BHhg^R>QZ=5O^L93;wnkij_?v6l z5tb`#GPHX?n6mu&U9i4v`pnz@;n9KH^N;3jPuf1Et7}^H&TVcg8gmYb&kv5y2-wWF zEh6D!|8L%_hs?@#lDGUg)1y?sbK~dZ^1qdH8yQ`0F1>Y_!!q~d&e=NLTM86@-0hsQ z`TUM!@1$Zn1SAg09nQS|fZM$Fq1lW_4lEZr&9!B=s&fCC(v|NTRP%7bRK-8Shfbt( zSe*Q1pJ=SJf0l8KZ+y+A&eLss{t@CtkxbD5` zZ)4a0MQrzj-rBGD=DqRubeV&(Z=Z*loN`*)>Q~ac;1Pq#mkU-)f+Dso-|0HLUGQ9W z5Bs`Xg3c>sAD%m#*79@fjc>Z191-v3ly}PVc<^~t>K{tx@9vXtijClGLA-t}goX(N=4{^t9kC(>V5**F-JL8@KSa_8gQ9F7x=M_tvPS|BPq9Q+3q{aww!QI%bXaj5@kM9)K0g_<#@wwwc?hR+aBLe zq`b>gow)A8!7nN2?ke4tvYWBw{nvBp6(1C5e>F*R7n8PXm=`ephG375!(OBJp0{uD zKYKrITk)c|h4o=agD0GmX$^8+I4S3w(;bmHt_h}5mzGxUF=E>PmQ8A-c;jKE-#t?M z53*J-xzq8Sx8&Y(!GzQ1k1pwyYUduaU8a=tvn6Zqqd?}nejC^7#|2(gI_NGFJ(r=x z{(nHpe?J@558QfeQaip*<90fb_4PhKi%#IQHiy?-yo%|O92K`esk$GQo%l*9mH9+% z=b8sqdyWTJDJ{M4yn5AYqm!>p9k@AUay*1CY`7OJl^CB>;Git?Ik!lm{{_RksHD~W z8C8<9xzXIucb+fnXeoJ8+7fdyIC{o}(!3m%zX^9g*n8NzZPw_yclBQI+w5&xCMSQ| zM%&CN)!B2B#bxgywtZ#%D<4ZcY_BbB$$n#IZkif&ZS#Jg?zaIg5sOaEyW8inBK(Ps zpBASi_jJb6HdeJcJ|+6UCk8mIST7;`#qQiMPF1dhFN}7rw*Bd$?zen@knW0$)B6tw zXbE$OzV6@l?Thk4JDG(pZB~8X&aUa|FWFR5)tFl=DARAQB~5ZCzx9q^146rO^?U+F@J7Y zI6XKwKiJ_tPj+L>zh(KE0Z}Wz&dJ}beMt7)tLT_HyB;4pWNh$ZU23< z>1oA58QIbc4(wt2TkbArV+d<_+SnR(O@;TV9+QaWm6*edGua+6ENN{0$sKNR=RvR1 zUu8D^h$9EKO+0Sh`9LD`5{K-+S1PAxH&**?SS)sMz8-JtEQO!U3Y*=VS<{~_RSJ;I z;4kv%II^5Oe%Z&TF3+W3h==Mc-L_t`QfKAXMK&%E=jdFDacc>9$%_@YSYoF51wP`G*J)|_x!hw_)wjJKOFWJjD4jgTe<^UsubvM5 zON-BPy?4En}SDS>7T`PSP5v`@Qe@^7^+)Ok^Q zrMWUAV*mW2Z_-!)xwRLojVw>av7(6IKYrn z%<@pM^7YS!F;nDO1ZRe~DYTur-@$tzctWipLv{h*JoyETYaY%!_Vi=ZV&Gen0JwhQ>NT9^6fRQKJzBQ)iT3|Vc z#i`&A;j6wjsUCMdRP?U1UU-#gH@Bp<;Om|kty7Zs9weXszDL_=zFt_MTjVUY(&nAZ z_ZzDnR1w*?^8_2$XREzu_N6LEpJmb1ZP@+v#_GrC51k20`LZZo&@Ef`+Z#=ZvvcPc zv(yNtiOuz!b9m`d!Sg$K`9J#naqEpe@4ixHPI}6+u6u1o^E!=cc0Ojj(0l0Ho!e7u zCuqco?%=g5kba=sQtEnkV<_`a$p>6>KIB^I^M8AmdPnrWKxwzl*}WAlYkK-y^xeZY zDDwxbxiIbVzH_3cGAmZM&AYfUu1|393ifA=Z47(jc}za+cG2@#`D5pa?=ey?g(uRd z#4I~<@BqI&XQcb%xQ&{(j04}5^3H!0Fo)@e6w|KdNz5<4El-_pH`jvw(V@WV3ry2K zJNhlU)$#H9-`8u}wGaH;#Ck7>gVAd(vn|Un7AKDnTwZkoPeUgq-tqWZkgH+evR}nR zzC*dep3Um-{E$Cg%NRVrG>Pba5Mp5PsMQs_fBDoC!6yb9y$UgFo8H(9T|F)PmSM@B zHAW1)Q_k+6*HO7RTAts(^3%~XUPm5=iM@FBLbfQOE!A1s;nzNaP>$NE%%4IVUf=hh zAg;=PbLwkltC)n(-6u4JuFQ6Sz0c@pJ==jNuJ02ZDlPIeXZD=s5Sz3A{gJ$ju6E%< zyU+EW3h#Uw8aZ*+;n?-L>i7RQAG#^JzNv9V!ybkB$X$gGuKx~ex4Dox`Roqaz`1)C z$+DNlrE6T%S~>N9+BqgMd9G=d_iIlCRxvaO)|ZrRKUI zFaO59Me5q0SU-r0?G^r|vVm9qU7UrVS~Ra`GXK>rVhgw;;@{M<#JBE_S}8q8;>ez| zqlJl<4|W`CY*>8ZwpP?y*ZwufCTjj)bKw1SRYf_`8Tw(?E&Nw4^DBe5y~$IT@8AC9 z&%y^wx0=kDQ*$iYC-A_lBcH|6pL8fIuJ^md@l@g!i|qq_^{>sn;IP-7_G?y6KehF% zYrXdduG-nlv?f{2{u^!Mx?!JQ$3Zb0tG?D$xy41ZZfeh0SZFz9yq7pK$cX-K|@F3O;uf z&PZ54OULl|+nj=@Ml9+x4QI99?&$uRrMx_8zexA$-v$kBnhsoUd|KacKHYON`p9dk z;N8<2cjjESzwmh9Qo)4O=zH1~A#b9M1)n57ILkFNw&3e2;qAxvH5PljZm@_8o|s6Izk^}C$UNwz(`Z-43UMV0v{9AhKb zIlh|u=aF~WuAgSd&%FFa5`LE7czPe0sPV%sLZ=mzU% z={e>C$1WOfU@KJWO~}*v94mU@RqmDEnXG>~+0B{6$`%Tu9CVI9Ym zxyDj%H#ls9`k68cPEQlQdFJ<{9e>`589YDQy{7$wWb>K%=PhUa;5?~+EG3#F=1%&( zNr5?=JVZV(?nt|lemLrVQ1|1eR*|3LHk%mlFthc|X=n3PIS|L5#5^zUSkK2Fh8K_{@S#Y)AOb_YF#p$^4;|6z0IA< z-hLj^9Fx78{kJVkDfp4_z(^?Z)2*^k-JZ@9T_1Ag{`6iXnrd`|rN~9wz)eoI^{va2 zHw!&_?g{vOetBb>%e z(B$;stCI)&4NtePynL^_cf}u?@ViL0?}M96kNe_95>wyo)<5entp6qK|G#N9leegs zG57U6;gv6+^l(uK+q&P%`E~~1zRa=mpDY%2G@U7QUf9DaZ17`2 z#PNX4X(>zV=bQh`-1v2$8I$_|I2k4>m+w}8o{8V`Q@h#R^OIS0@o~#{1#E{`KFE&= z&|P5j>)wryohs~GZ^bXXl)6fM$Ehjx5}eZ-@^j>7yxhl7v^Q}}U;o;#M=!pv{-Dz= zKmEhC^TM?q_iC5roSic1v(ba+Icn!6Gir}S&dk1l_3*<_$zj!pY8w8BwYONBbIS5&}bHT+{@eyu_4k3%X%UsqSh0=jfu=xH7~0RXZy+f zJ$GHxomr3k`W`d*sWJPAu_V7fo6Peh%=>O%)Y{CgZ}SrB{?xRmi1J6S+3k_Fypg4@ z!1U-RVX3n2pC2{uI^UXhw_ulw(eCFh$0=t|! z<}Y&1^Uw8!Trt^xXI^b{T-Apk+rl~(1JCZMXA&<+W8rjP> zA9gwDHF4Qb#ojB|tZu8`;Li(jl2fRt7XO*DW@FXw+7#6puYR}q1iN|ll=LrdS^s0& zzGl%wvsT##XNca|B(kCO(iWzBobIPo9OlTbnRGhVe!kJ)+edH8pJ(xq-Ov|&jDK-k zF2_UDT3_81Y4s?UWfCT5xPp1gL{2JYwMiO!aL!sM@j5Q7$@_`sCcWb)FE5tPsSv7^ z+Lhztd++;mH@>L8qShT}%5&ZBZgmlw6MR0W_Po3U{d& zw#hfGla?@^Teo3K{yU?s-paX4uenaGo*kALaLyV~*>t?t+CubZWbe<*KN&UOu$cJFikExjrqBM+^2pO^%N_1; zh&ZVT8ZP-zQGJ>t=2h{VOCLq<{Jd5d$1`otGvmXjoi1m4I8HE`rM{!4z`Wt;{A17S zy`Jw=GCa4-n=QqDs@|TNKYuEB)SA>^dX*x^9wr}sTLi53mhnFiJKRoa}_THwg#h;!!-%Y&!^z*us18M@h8~k?uU4H3d?aL4Aw)~5* zi=W2#zhIz12Elo0*5nZn{-~8$1I~yimaAOJit}FWSbMDOCgY)++ ztt!vlbbaa9bqkGrkG)9zY~;5=vhESLI$Pg7;h852gE%$r{i&RO(lMhlG%E7`>rX$e ztkhHA9++(Y?fJ|P-+i-x)tsI_*IxeF`5D`uzFfHKNvRmuDU-LM;g0q1UY%5ZKcW21 zj;h${iEG~HhOeK==6uE7@zI5ux55r(qfoidD%4)4kUq4T?e;uf6yLpTK z(cH*)$rI0qFFkDj^mDxTefufb>@OHF)z96!OZ7*sWZC_)4z^G$pG8X6Q68_>ZTOg* znL6XF$v@>X zn*2X89qP`9{S+2BU;A^~BIDVtsBh{TyJ7=-Zr%}R^x4?mx_;lwbEiXIyGkBga?Q$j z-NfH>pRMZM|LRn~=U2HV2Z7!-$-j56W3wx{*p}O!`R%w8TiUzzyOJt2UQ|?PJp8^? zKlxFqS%>9@j?e~R8`C!yuI_FsLQSlhp6*@@;( z%KDp)RF$Tjv}md1>fC6ed1kU<^+Y|5?V(R@Ix25Ex;{DU$;92SrZ6iCZ@(n4_eGz} z>65E$)6NA&FmC(!&10_VV&^I6ZcjWuQ}Cup(B5tflM0nnoo82CKV8l7sbk%Y&6$p- zrmF-KW?ZxTurvRXo{i{5C5?!b>ZbB%wvVnPR9XEz(R)49R@F)Grbec(pYB#(GXWFD zR_8p=4<0w?ELr+fX3mA{FK-8>d7oUm`A7H(SBb}Kg@qUIDchFxVD=Sv$!xW#V+qT$ zyh61n@JW7tp)T=@>*YrdYk}grH51n^`*NfApzyrJ4z*`bOu{8HR9@EmO|ZWpB33QD z^48qTwevXscWqrim8C-H?CnUcI(O}zi98|?rrdlj_xZ`nZq8fbTkdSutMt`OiDgaP zy*pLYUZ1t*%odmS8}DvaWS)7ou5y0+k@^=Z9gK^61*iN8@MKa_j#a#;S-6^xk_HVy={0~*t$FR z-&xjN)wy%cgc~PpZe+H&fAgx4#bQfa6)9)-kVUR#*DM)BJluJf{Jm`XvGLh%onT{^ zht|8-JV=Q9Gp+RHgEt{@_k4v`8z{_|RZsu7i-Bq8w9p8%SI_QCo%uRQ=67P=+g2MU361B$1?&2KK1M}vD~ZsSicvaj z=I7J)Hbz8qmlM~Y9}V4$zwLXm_VJNB()X56yml%y`PrGrg{<%WFJvu@OY1Kb+^Bf( z@Jng&>6y3IUs1|lJ!uwqp6iq8q6uePia4UWxjqF}Ma{k7;_c=3Z6W8k)yG2{PVWv( z39SAw$K>AXuaj3x`3Z4N5_vvb;`k%36{WooO%xqM)Yfih5zgBCR_Tac#SxXoTSTM& zoY;5Y-|O_k*2A3NSEYUp`FUL{j-ewXsnv@op^&9pZ%4?a@F^W#b$XXn<^>4YE)6*U z`h=kGPm9CKA+a5OtFoWZTk$IEjpYN+{EkO~U0&ZW#jTxF5PlA&$3y|wR=ap^31u->t=|zWo6}^)8=##bzZ|_@KZ)ED^gqeaBJUB zfq6?WD4kx576F(}Za}ESe`pCH7~%v;1uO?8;7QaqkQLKZ<=lgBTV$ zi#Bjro+y&~z0l_dcld-G9`RMHokV9YJ`$3A{z>%J#gI;lxXE5%cLf!Wsf z)M>Ln9+}0)@%*OU1re@|uTQe}F{jEtyP}qMymii#eU0ULYt+BS9TnU6@cT-0F)PEz z6&`y^I82sDSn8ec%}rp5G4@V+8(Yfp@y5f#R|nQTI`PSKV(_hW_d6$-Y*wCH=a#kJ zLZ{&W`H7ER=SA*z4{=iB-fE|Ju48Yb-h8FC-W$2^9w@OC?n=*mX&3qFN1yWbuH)$k zOhw&N_Pn1U%(h!MYav1Irhlh-y99^kIFF(<7g&jhD}| zp7LIveeC<{TRX3w>|~ww<(X zJVdTVxlXz26gAoRyn0pL633pYr|T}(XGhGwUed@ic}C#spH7c&tmW00dF8w)Wli?{ z>aGU&BUU97FE)q%d~opWbo;sMz4n%7w&!@gxO4r;s$;3fy1CwKj$K|}`NXPix#-Io z?=Bx#+ahGLl9kQ%YviQ^EeuR*ch(yE&fzINJGt5Hc-tORfzm@OkL?ql&lY-V>btPbrmLUEDQOd9TaAl^@+V?fKC0qj~l{lVrC>l?^`_ct3_tx;@WHc=fX#d=^sLyU{Uv;{w?or;;QcK6KPd${b0%Hv4PE z%<_a=lY^uDJ@>Omol1*vRhF(2a+Uq;zh>*K-5*jV0{B=@-hQzvs_@N1g$T|w*yj_dK}w2&nxTL(P~ZYo=*n{_sNV!0xQ ztn%(Je*HDlx%*t@d-y`5tR=6OO8I`19xga%0K+Pd8WIwtW_1 zd*58vx93^?{AZi(z64e0X>a_SxAgo~liru2thv`6H{>MGOx*Ir|C2=QWGh$IwUQU* zmUFm%-D4%Y^JSW7Pwt#>Z84wY4qOShGH!iZ;KQEsKhkrq#NDi@i=4~VQWqmR$5#d@{AkJiXWHNs6)Q zr3mwh>-Gx1w3}}jW>qEQlE1`lcKlRjYvIag7kB>*o7cwVw>5qH#xG{~XIIqu>2F-h zJkdd|$|i1JKKGJCM*EGwhqg|V`_8g;Wn0Zehjam>{5?^5KR0QHs$Hl zX!(yfjdy=N=>3gJq2)yB=H|BBKdk1d#g(4rmXX}U>u4tN?23jOkMX7U#fCl;+=D;& z&OBv$c*}(EZKjF3g6nN}GCVTf&RK7f@U?)~HS+)WwfmlhZmA0WKf}fEWW}TJ-_IPc z>xenBXp@~p61(vqIq&{nYxRX~Q6`=znUw z$QbWas4ViXF-$x(U7+dd<cLVABHO+Bbv^7rGyHDBlRFP^qg=kG4B zvnyORqO-a7G8P@Y+OsS3%hIqsulgevkFU?G&Rz2S)cf7jw4OYe^7eqE4wH(-1xLSU zjz4R~`Bv1eo~7cN4oAMs(t15q05wAI4#QFQEQ}NowM%}2-N3z(SAM*1) zQ5Mpzl)h%+>WW1Dc{e+r9d%!|k^A4h)vs4PNf2zYvpXr4ymWz~Q>*hrb(vdfS?*G{ zRm>c(tRf>eDdg{5?Y2?q(XGbJZ>nmd!jCV8M$B9BsvSz+ciNzxfA6ly)v|jeYlYVx)lg{9?sMl1fBOEem+%y)Y4`PG zRN_h(GS_9etDuJ-E3e|JLO*REsgT99l%l}jTr>FN}ZlgCwqYEQpW4eEaGH0!9q z`FQ(_>_IpEC&v6c^lX2eM@$IYqMvfpJGVVZWYd^Y;J)-{E?dmOW6zIVtt}|lSlut% z_cS&7$AT3(ChR4f-F9p{vx$G_8HJ~hPhIPGTz9PY)R*Y}+AZ4})1F$`tKY4dayWMT zj^wPu|HpOL6@KvUUd(s=qtL#IbY2`(nqG9-_psrdFN^wIAD`{rI%VNi!`iulZ>_h?i`!gS*jaL$}`p&yw zWoMz?k81)?_6Ho#O4fE|yFX3m0Gp1(HbsYT40ayXFK&K3k$wK~teJP`{{7yk@L4cr z(#*)v*t@39hnRM6z3HPS+4Dn5g8$Qc>x(DnE~x+YzwZ0Dcj5ovmDT^O5TF0<$-DaZ z|Ekn~{}-&Ceb;{PfwYA3h1_Cm?(MCpRsa1huKd!@xy8$vbIbMb-TRxV|K4@^)Jdn_ z?*82@xajkOZ~J$D-^8ug^7r?b^5uvB9scX6c{fw>JO3BqT?%jiUH;1$Eg{%)>woy4 z+*aXfQK$VPnrrtQwQKp#!1V2Yu<+6z=I!1?c?(5OyB2wkHmK`4*wxkw@G5}6pt$= zRVz(+7MF9$e_tFfr+KYkE`5@le(QmaJk7_&pBPlU?pebdzw=y#b0bN%nDKf^X065D_bwYkx<2$>t4Wzl}FdX3YFQZ!L2f zyO`CR{Qnc5aqO5@_un~2R>V;L+y0*Y&5n`3d~^%+j$ONU<_F(#t-u*h>05c9b6)Nd z%G^`z^`KzEp()D)ol3dR+?-Od@bj(tTGMa1lv(UQJLU2s?zA6L(>?8e2(nAA%}SoG z!WkfMBY%X^rbKAr>}j{N@9KZ|zhTL-wCVPLbKwpZZ?%l`uAQC{xp5DyUoT%+pnKuG z5BF;G^E?}-iYPa4P5ExE_RXi_vifhc^=ZN0Z|yJTKi^Wc@6@AxlZ%pif?NK^h{>xg z(>ky&`0@)mwVEdrrXNgO(&Y5y&VN=%v4v3)^Aj@;GIL#L$XW4VL#y|~0-0CRzqY-a zbJEK3)&uq4>684s>;EQ88T%RiKD9h?+p_vUI{#TxN z`_Qftpp*Etag# zpl&Ol1wxw_GknQ-EBiz4f^Npto7eAn{VP0F^KZt>AFsA4EVyfJBy>HUhn;JlV%OuG zIJKRh?AY&__Z)lQX}D4Nu6IDoGCk9P2BDwNe>-iNs>-lYdk zyFF(+_M(^Z<=@O>4QlTMUQJx{^H|>pDYdTC>(%*>u$o^CcV+JM&JMgV#avmi?92MX zm8^T4@}*ZS=3#18EoRvMVps6Xxup_MgH9ZIX}#%h&&5f}+0DzY`MJH?#Nf()Va~E2 zXXh;|eEsJ@PJUkG`HZYX4wr8j8lMZ#$Z9#C(N*SMU^*-6j{JlxGMlzXX>2=sL}rR+ z(6`hr>nDbJew^4g_4d_S6K^^cnm&E9?Z>)-%Fl+Jb3Y#l>TKHnz3OYkyTFPt@{l%c;L!JGt2J zyvPnJE0pA!vw=%m$D;4?p0lT4UR~RFj+tSB;=~qXj{E%;GxnQwOfGUVp0%G#=(qq*laI@9Y?rwwUi^Pf?qbEw%}Hjnrb_LeY#HIiH;q%r=s$nC{P!n@9t!V% zL>u;9P;faN=dkcil@QC~*-YoZH|#lkIIoxLh?@f$4eD=DjChf4R~zIXz>-H^+A6##@cA0+s*P%#f;)n7=LNn9h|` z&bFfc&Nct~{{E}Gb?52?E4%cK^UFJ*`r1ZBbVdmNmcG+0Z@o@=f>ikgky8CNd$bMw zpEay?Temc!Ys1`++fFXH^Eck*f?J$QtcSFy$s}G2`24F}rKq=&ZL$T)E= zUFuQts~blhB7eD^iJiIcV@Tlpz&}c>ANYxef5?@ebv5HlU)>VX^v*4NH?tgj5HI4l z?7_|ro5l2J+I(URyx{r3PPKxMmw7SkPB;EvDXnrF^ZOWcG~RqZ$0jM=$!5{F;;bg-&4;<7gD;fEEHjk4$`>&=L+SYQ&po|Avdm38k4)Hcl8t+> z^SQ5bvcaV%{w7OpJaOsvrv9R&npqiF+NO6NU7Rl!@ zE>-y!cgK&flA-qopZx9FJ+C>;x13op=lz{eZx(LcKSTb3)rq$o#O9mpth#8~lbl<# z@9JreGxi2NoiaUDVMg(vbz0(9T@$L6$a{M2?1P#p1%LVQ53Cw)GRwdCKIU@%W>X?F zX9{!Bxn9*wFJ#QcDB<`e%hBwEZPc7rq?_> z=LtqJ=t$_ z^n>1FS#2gcKY@a%59@sod_Jneczo-bxS7}T4+r_p+sFNE(G|CKOjF z`^v{3Il81nC&JL|oN?bRrmkrwT+8-zzVLO} zU%{Bl{IpZP#x!nH|FvC_HL;)}a(EDJ2yzIdK|9No?-7*Mig>y-Cbj&(-%O$xHe zpZ<#b0ROwRXEo_R=N5~{ofVuRR4RI&E%xJusUIg*?b!dH$0MRAhIi(Eaqh=Cjgr3V zOd0e46gl7g6TI`OUhB%WGP|{w<;_T2Gu2iybn*OW8OLKfSBYB&GR|2NDc|iVF2(IN zFHrnq3F|6PSAkIdtr4FzysXwH>~^1MbK>Gvy(^}x{_k`*eD&Y`yGGESgFiRNbWJ`~ ztCcaU^UbfSXk9tUS^Lt8-*ftP%#^HQFbaw33eQ^_wf7)DmqH8%cQRN!M-Y|_{JzQ)kPtgphluXp{Of;Vl+*ISZjC#OGY z6Y^MMQ&zTZxy;&a7pC9xXV?8_=jY0T?BZq3IXypH^BLVe?3=pHcgD zde7VbIl^so^42zWPkTPs&p=q?i;+(46szyX&ntXhUaRVE-&_9S_?w$Qk^~no0 z=RRhs`d#TEwDaCC@20|uDfgNS--a}W7@3^DzWjKQ&a?1f;jY4vP5;_2Gp*ige|S~* z1o3IxR%QM8boG2;_L_*wU$S*m&S|{K<`1;1^E>0(etN6d`G~(+rK*}22_h2vLztX!kN%tPvomgtK&?O|Jw{9(A>x;ZU9ez@)Fs`TisRcl_&nOE?;v(?uA{@>Y&XSdJ4 zBXypuRMM*;O>dRWg-a7;cZ6I`41B!g{k*Cb=UvUhjCIA$!&;{?Un;s4XmDrCHlIIB z-ukHLy3dGsxQ{of?YT*3eO=-A^!VqRP*WC zJNv#p%1qTSnz*hoXYo$e>$C_e?^kA1zxXV$ror#=2&s~ z3r@ZCX^VgU!NjA$D*{%nl-PDs{A6>BY(~h}c}Ki2NjfH06f`v~ z^!m1v`Ok*zm91XAdl{ded=MwFX6a;3S=qzV*ZPjkmY1}YWh?XTDHXoH-YF(rNkLln z+~3FrUwxeKuS{4K_wd`phOb>+*-p5-^@V?0M^xS9pFRJxu{ZY% zQ%)qa(Dbc84p;q3i(Ry;CEVqQ0#EFll3#@@m-Hyy*czODTKMjcq94B2Q^HJsm3x_Pc~bazX7 zhrrpG)!}Q7N-Nx9c*w>PZ=evPbTv%tb;Ini=W1m-XKW{0E281G654W8CDiUe z2rPVES+@D2%X>$=S?cEmdgchNikl=X+IemB>iyfYC(Zbkd@5${Y`vW?C(YK|$rKy3 z_NA56^q%+eYxN>me2ciC`Z&6Ojd!2q*(Kh`w$BTk9^zg%N3U@1r+d4u3P-aP9r$Kb zqRVq>`n%sEvGuX{yMJE|{#AH(%Yrqgv9&UvdQ9q8e?9%X+0gK=Zstajiz)5(pQrTt zuiXF0>-G09CcAcRe^MUuXnU#`leg}i=gX$M@A>Sa$WrgTQ~t(|M-lSxA6{}2cFNsz zKx3QP!w#L2{!hvKvsi1+Zd{lib|B%fP^f2}!__=1sZSGDvR<8>qu#q@(UjH@>6ed> zda4$l8E@>zHD8RlwyT4`}JYWjqak^ihpowvUWF$!3|Tko;2^R%hAQ?tHr1AZ5?Y zWpgEc-ngnKZQ@R}{~FJ;Ytc#FB{sF5JJ;wYebzSnwREA^s-3RMjhla6Xox+MzDHKO z^igu%Zx?$ABfF6;e~Z*G3n2g`_Ro_4#z`tlIw5*Giu};{D!~yK!CSp%pArM+36A-!G7mOl>>- zAiz{Pm(x{n;?bgN~YbzIlE-(Q!ts*TAopz+NM*;_Z7oQ~wbpWyt`ZS}{KoL|Fcom)TU#tg3+ zPiKBjP!n_i#5k+L|A{5D$--be`TOGW{A~p?Cte!~dU0BPiJ0rCvFn}Dg`Jvnf|g%z zPUVRUPu`I{yU(h!X>r&yhSz6|yB3S-C0x%D6!iUYQZl#-n zw7kWtb2iB}J6_yd=k@r|xd+cr{>k=SJaMVXHW|gzOq+QD*N(pOann#wx_Mi2N|6%d zXCH~5Hx-|%Hr(Ml-&!~=F*Yn~kx7)OwrO&Ju29O-pwA2?pO~dI*)Pp@Ub<{1i(9H# z*pjRA@Bhh9TyK+&Wv~@AgbE&PHMX#XZ*?}tvgFg)NWnmX;9%?7*yv)}3(F=@@SxuYvZrb3#?F~BJik8&XDr-mUikm`Wn)n_=_z;a&p9N#r|&oa@>7Q= zfBzw9QhJE{``6F^TP(XZvvyl|Pc92QB%`0GG`(_)fJn)vlDXd`plmhAt;dk;P9Wj z^G`k4>v-kKTqdLZ-br%3lcLJmw>TuK%cmc>nv|VqIeEjK2T%FrmSu##`ZCMxvc~rR z^WI*LzLTTbP@2ZK!mRqg+`TM8wXcuMe0EgkCKbYZTP#xE;+r|mqxU`oIZ<$dA`n=P)^ zSJ!>IEo{uW`*&g>@Bh+8dxR%5Eo`@)zvu4WR&&8HiD~BH>ic&uXKIvFbF^jP-Q&mg zgf}`wEbPbhlQj%h2csSc&)NG`@7df5PVZ&D3F`1R%u;y6vt_%I%B_F0b^Jl=Ti$P8 z$uz5qRr-;d^4+~=DXw;$zwKVmz3$XFg<)e#&w*`qmBsZ*j{Lz6NtqH+s}whSY`%Kr z)SZMr@mW!P4vx_w@}le4Em=5o+x#TKx#GW#cFueAg0pkwKenWuucCfm`cW6V`uOW8 zdpXB5kI&w+i@W~rBgZ58{A&+CrpcP0^)-GizI?5P)cLQ=-I`?&`T6_(dU4tPzf0A* z%;ibp4`ekCGI%Ze)xrJmU)M?*wv+2-##Y6~6(2r-_J*vK1A~cIs`Z35H!9^H$0}Ud zpryCLm_cPOC&S+EcVP|7x<6c9c1+oIz0Qhc1s0zm|DZ*YTm1aa>E~}VscpWLwwdGC zwT9k;iw!G3cwUx&&=z&~U(V$7=ZYTZmhvqtxM4q2mQ`dMUm5=~p+gKe6i)E|I8)8J zyZwPfmh%s%r0W-cI9FDmliIKT`|-goC!2-Kl>UjN-??F2pp_IM@GtVi3*n7h z8o+em(y5pfyKRPQ)0p-(@AVU&q;>4(_Lh_NUOMTH36{e5r);|)6s`SwW$g3!O>5%n zQ`)qOx3%sM$-QT&T|C`VZqM}3E>_QTO(*9^^yh@dYoV<-IMSsS{8yoKTsf~`^yY`J0Yfb~Bn^a4#s`=A7 z&)0=_9d%K76nb{r4x<}fbC>aYxSU$$Zl^K-Oy#3MWykZ(jBCT%^rxTgKfkgsMECOJ zVyVXIsda~4KkX1Le{7dlbo#^f+1f>73Nl^mI%h84wS#viT3x{j?A1PA@Q&{HA*wPbxWn_74Hc*7y~UrPNYn}RlLMt!&CNe7Rfv_Liz zMBf?C8!P=Yr!}xi8+ruhSw4#7>$^6GE3I(rcT1^T?`kixWP7StS5N%A=-j`s=8fn3 zZ^Z^NooieecfsU!(yG88H}6a`*!@lNfZhAWJ`qzJcZx0cVED$SEB7YfU=HKD4Z1Uo zmYRngJ``Yn_^~^z6BsW_~OS?`ONU;stLc zZa=8FwKL0^?VM45(BefC7YJ>ApWAPl=(r|vwpu{soze$2H(sR1@CPi4GE|OYN;s90 z#^B2{DdIIlk^}!6m1ztQl^wfhUF3P6lI9i3xK(X7O9<2QySwwAF>X%%{70XouX<`? zeBBzXFsKB>s)LRD~e#Mn&I-Q zQDx2{p`26Ydo|1V@>Z~2wZ8l)^r^AVl3168_rlW*C(knuES&7+b;85?r&^UUckW}$ z^tOUqUlw`xn*Ir4D7yZdeI27h;Ea-wF7Lb4ztvUVUfkPs(qjJyOW_)Y$&B_2>sZ!Y zS|;auDNJa#I`8SC&38;*bQ=CYeudp(5ubps^@oK_djyBCa@v@!yVXlq)os(nE20)Tt1fDrXXfbseVp<1 z>EFmp6R)kRn3J?vbn)z6W}cB99+hmin%f;JmaSNIcID#@l_y_$MEH~#%Ut}X!eVyQ zZ7WOJyfV>yg;Itq4^EH$d-$H+-4NGwtEQu!TbCtlvM*N9;{8_>JgeY|QHNvkzG!3K zw~`A}?NEGMGr~0SK{>3xy%0IEUudVx> zH|u_8#rKad<)3^p{Lb{?XnUbxtV&<{5iGBI2Y!`b8ZBX}7jZwE?HqO`d zSwHvwf3ByzCFPGdZFXU0pStzH;bRRJ)?Fu`9$RE{D64jh@S+*<3F4MEXTPt0your8 zAH}aZj0*iiS1jKqa^xo`GYhNH14TV z3CIa7efWBbj-&Dm*10n5{S&9HTUO96Y_hXyZ-9F7bL)($2VX78ci;AK(}M*r$vUDF zj%O8cb6mZ8QE*F*TF{w!hfU-bCIshO#msu58MMa4bo;@XPxR8V{!bApIQvWU&4RN6 z!AlpZYRYo^T&a6)WH$e}YtW;(KU*I!zdKMccFj%&Ty=g#{7ZmE@$;l&l~J*PP&*`LH}n;y!OU3`a2X8Bo<2Rrhf z==(M}e#Kvl=mjSyF#gb5cB!1tdD+_q3k2*gto!p`^Jra@d`0x!n~P>2yUK7N zBzI%n>W@=CER8a`RLdkQrLc;B;iF5puP8R02n@}9yfQ&uP41Iz+66ZKjgNXJnQ}~M zT_aKa_T7$KAG6rrALZO>`PBD^#TGAzsTbe ziLUnwoh#lr{gOPt;nckir^1y}j|3f=s5DDcN<=+y&lC1`v)w!g=Wbx`O74ukonmR# zHQlANTYvl9I|-lk1lgM%OB#gciQhguxm91-n@MM_)%uwIuD%8B>o*?FG=9}^P~pxY zt1}bD7gt9uU(4$urSLvt?z}e|m)0XED^6 zY>2F>^0iyvq~Y;f^y{qd+jn^qi(7xrN~w|MF0s@&Ou4}}lT zbDZ3u!D6ep?t~@hdc&0_+Ku<0|DCdFv)!w%_L_Sezn>L*_-}D`>4YV(B_~T<`LT0B z`?36}qy6j-`=Z~r-hMdSA-Qkv1a@BTW>vlX^SduTxt(|5Ng3z5FEP2yB5ohgDxY5? z_+_G>o9r^y^Kw@*x&NKtvRs(C`;k~+@z)P}Gr7IL%0BoWJZ<^L{~yGP%cCC(${ewC zY1>#FF!Q+N_n(K~nH}1-Hfr0)ZXx}Di;i@kzU`S!`z9L*X3ZQ$8+ti~jRpGpTKhl*z*Qga048aJd}U zePtxv)TZ@W{aIGi_m|eMU+qfEyZ+OF+4{6od&@u3gm+duPV{~~FT7_;T>g)_H#np2 zv>&Ys7c_sTbm7Mgrt^GUE1GVE_TM=sCoR8bg8kd2w+r?cp6-#KtQe}*@U^?!uXc9E zVwafek|L)@i6b21^B)(x|w(Zqavr1-KV_mR&HN%G@APkZ-&%Ar#x-Dpal(e=W70n^ zp4suWIpvRtmr>q@-3Gn(Q`8=`*wz2EFjyj3;9QhT)XBX3XtIicyxo`XL#mw!;M zj{CWJsbl4B=UUv3p(4|?5M=e|Vwr_uFD#YwX&9gV^cO?mCr zy6$t;W0o^YXZK8BeTBQ~#h&Sr?QTbQmqw~fKIz>x!Dars)CduQi|Lxr7)t|wPk%G> z3rmjK0`wX6bS!rHs2%0)oTtT~9p_^XbPswSqM**-x35_s1#BJ|?xRsNQV)k+SBF*CH|J z?Szglv7WGh+s5#Yy;EggtC`#iPImAJS^br%z^y_lM_Z*+J}ds@g9j%vdhe#yB=)ZB zUKS*;`TKR#)#6X#5_KJ!*1xUAv(?qEI0u`Z3w*dM$^Mg5b$IntlRkq#xw7RRUqa6q z{ybv!SYSc%l?A1I1}5u2s%*}kD#`cwtik0C_aw@6oJ`brun9*xu;<0FTCweFc`D+j zE^Qc)Z*U}%^;L8~XT}`aSO2!EetvNKQll;#&n`uIP2Ibv+^r@raG$7WmQ?%9O7&o_ z>_Z8cM{GTITA5F7m53%RjEh^Zwqotd#o|+Z`qxd%TIcjXCOEy)tvosI&fdo=p2`PW zmgL*?#raMB^fzjq6JNyX^pwXdCr#=vTERYR#uKqObGtJuKm9$Oe(CKJNBzj9%Eu}t zA3SZ^x#ja+QHzdGf>)L@o_d_C;qWv4iujDQiL5SG??d#SvB&$I7u@n^UZ1Nr=dB~5 z?=_ttu3^~!v}ylwC5J|}8Aazduy6~6pP$e6SoZ&v{m+!=3a^$B-W0!p;n11ms=X~Y zFINi0#2@%%-xc5F!X3Z2Zfab%q;P|O^0UI4L;2|)wMtXhuC+Uopfj5@clK2-W7nTI zGo)8Xel)9jwr2M0;1;C=6Hh)b63&``TGUrYZexYh`o`MghdEVen4{LLuDF^U=M zt?+rJaQDaNu#3edJIr64cyM=_W2&%et|5=f$3yZYUkPP@rT;$mg?o&Wukh1DoHx~OhaX*g?$gPJ zf9cFi?rO$JwZsHZNo6T7IQM{;_wIi6H@5u}Yd^2gzEX1dxX%1E#$K=R#8sg>`r#{7 z<&4wr^Yf?Mxc!bixbcldRJc-)$isuK+P&L-3;!CNSZq+XL!+rTXBk5#SEOsT`wy0f zvh)74&fk7#Q=qc(8^7hk4Oc#YNa4AE-%rxWI&X`W*eT}y(mp&}J{BGA{c!C_u0O}K zw+UgTwv|>FuQh*~EpBb_U45~&{A-Pa3~s$zx7{~&AoZG%fJO5_l zOnvWW{nNL%Kb?nVnm{x<{ui$N2Lr1}T^G zGcGJI@SfFZl-PDg?aKP}C*CK59v|GfVp3H{T!)BW({+WOeY3bYEj_02-TlpWFq(13 z(icK1Dn*l~*2hd@veohGf7-UW@D2YK(K4$dx1FDCdp_GO{dcBF{i$vDlch30o_yDz zbo|Vo3@-6m%BQt=l+0fCKBjuYrc>$B6<1xOqgjs~H#=C_cbQGq>CZ1kK2>S!wY)FFfLQ5|it&HKBqjAS}{$4IVRgO6J4e?LcxUH|qW;qyM z&dQq=YQ)lS_O!zwV8ao&rR)3tJt>fvi&IM z&b4Ja@#n(ly!hrP8xj*C8Xf*7z@qn6Qvr{p)kVkUK^OR(<4yORzEXU4Z^9gz#fvn` z1mtg>DYZY4v{Yr=hR?5OvRIuJ3C>Lxy%0LZrYrK?#JUK-%lsYoJC>%aypFjMmws<@ z;R`dqDIb1W`3fCc$#Z3Ia$u#xf(-qE}1d@_FRQw(a!|{us@f|LOiN#xGVr2d^J8exxi~JaZSD ze~q$nWAw74KlE0$%QCN-nqsv@J}e4w&kJG|CZWYOWs|+ z7IJk1!=E0ejBxU3PMNj>kHc3cI{1v$I7`+8nLUSx{2R9J*$mRrFk~q@#9~ zzqMA!&3`r1-{#+2eV!#Mlls2zd$Pnee@2S&rxU9uRHO?1?D>%`QxU|*AM$|rg;4&{ zgFMO-+j{3eesTYN^FpBw?bbf~nQp61pLCQzV$H)nKh9pi%W=fFvSzof~gmss2w@%&wUMoz4q^{crpQijf{N?YSw$fLYZ?l-D|6tZyvtrMRc^gl6r*LG|{P*gM3_iDm`S*0I(>|*v zZZ_LzCZ@h%jr7&oVxjl!lid8AcP?2i9-KVUOswY5KF*n{uEB@O?iQyqy7s$5h)O&5(l(Yq}@SRu8`*wj$56c<;Yk zt$kc-)?kh z2Ca*}&UtY59=4@@P69i1PWJK#n>>^deWCN(@aF%6nWxH&HQjTK+&d5Do}9c&bdPJP z&&wpwZqEBV?;X%Do!9%CJJ>8pj&*KO>%mQoh(-97V5 z=k!7WpO3P?WcfVPd#81ralP*NC(ls#F7vAhtJmVv2kRQwm?z9=P-*;|<=uSz#m7xI zjM8{-KAE9>y6VS;8K)h`8VIlWSsV23f%l?EpoPE$=-ErZW=Lb_8`PIcgY+IE?gUt$99?44a@ot zy_H{c8-(1C&G=pJ<6PYTYR0GckKdW7EOFlKT^`M(KGot_;4-EBhgR{mJU2<};%2`06b=3Xaq--r&0Dip=(z6_dX`t@vTMxx7c(Jtb?+ zq?I$C8XcF66F*qPvt*&ty`{IkFP|~hym2UxopFPw^hLQ3e$TbCwES`ytj}iEq`ysP zd{c6A0^^*kX}=3gw$2ocV*45L%&Oz6`HD&FmKwdy4_=uuOKEoC->(Z!p2$AE^!$TB z_T8^T=9TPlbh*6zxC3w5x$ZTuK37JbTy(*VZ<)f>CzFJxr_B*MKJ8fV-vvH*B%-#L zPCU_i_t6TIosLJY%-_mi;C9Jui~Z8AC%!+NuYSH&@OXimc(?P;36>0>l$+ERE2aCI zOXMGa_-U$Tvgno5XG=F6`}5i1+9mzDGE=7?(2h8CEOck>+0vL}#$WZGJU_W!e)_-T z)?r7ilsv`7Wp}u_9q2oz+`RG1t*~;w!pisaKb{CbU{X3!Gpyd6U^RUKVrS^&O-<9+I4lN%LRjT zWDcKDoapk}YOZ02kXcWj!6}_%?H1-t!VC7OFPyb`xyTtd$^TRS>wSH=cwG$N^)t7) zH#I38oL_2xtl{IIKgYi;?MW0dzq{vgXVm9_|9ejCVl{s^_r8Zhqx9S-&-X4q-F`RO zZSmJl2I5LjHZEPfBg1E1PtVVUtKvIPO+B~BETY+FrrM)985jTQxz5TC4?fGp;_Fr( z-T!Xpznn>ZlaD#S|Gp;v==_uelOh+JiyXGG@ziV!4fNpM!@KIwyUJx#BITyP>byVi zk9|oBn=R&qBzT$;G$Cn@e5aK$mfau5ps7oO6Ou=5Pxi@L7L`{r{BP!1GDzi0dF?e~WtU*C4W@+-pj-^Yvo{UJY($NaMS*S`FM@9*Q8UUAjGf4p4n zzUqsAofqhKjDpGA{(Zb$-v6)YGr>XbN(@w*?RXjzuW#pw#ig6 zuI3c??8LJ*j5V<}F8Aj4)-`{=?Roy&qsYrqexrW#6nmO_YqdH#L;yuFt17#_87GC9>d8gw@013;T|Dl|DK;gf6mcW&tiV+CNKUFI^9yX>5Y|q_x6vE>KAOE_dI2~V-Mfg zMF(CKY|8g~Uo+2E;)T+c#|EBzgx?w-To}!J;>*uVH%~s?TeU52W0BOcn`yplj(@f( zZ`mKSCpFgUK-h+df-zT(cLZ@=sPp@&!L?-yCvTr(OV8W~-P_GLJi}vt3QowZD_d^i z^CR%%#?MYUT(?BqXO}xGgeNq(Y=6|2zw-6;(<>H+uI|pf zD{-&meqFwBI%D{c+>#b)AqM%yr_7(^PnVulf8`VJub!1j-@aS4vQ<5Ia&GxKv21$C zagO7!#nqgp&u3)%WLb8Uu-%>ba!CTy?K4MC9O^#p<$Ob8$4+~@+Arx(<^*qPQT*_5 z@}>jQ>W>>dj>wk1y3#Rs6~~&J%+_1^+Bjy;RWc7$i)y&YTdNi?uwcu+*Y=U@zhdf- zO|MmNTOZ1_DdD!Lop|567(@PuNsS%x_C`hjSsMAboZV`&^MjOe`xN~^Ze3yZr_Unv zFJ9dhxb5%sADk|iCHS^p-*b5CWxkFL?LXZDs(1Gl-0t0dU=zErk$Hnxq-3tXuiBSK z%nJ@I>3z1n=kVLycZoq#9-1zU_l$hRS5(ZC&0lBDzQf~N=??3h=5tFn9r||pR@LUZ ze`kJQJ1^)Uo5PUl9m#*Hjzj7}BNKPcOiz{#>l%N!&0Q^!YLox8W}>NaV4v}IaUYus zGr5-f`pEvi8LKxYc5Oa;=IYBm+pEgfh8)#vIAS$X($#q9lBi8vzn!?Rchf>bO7+?y z#->@#CyL@9n^b*TCEk-+CjD6Nyz@Gyih{dl$=^Hn?2zkv|MdLRQ~C8f-yZ({XQ_^P zB;%axO!@myN(Xsv_jwk1(^aH3(T?l?zEgK)@7+>vvYnfzE&Nu&UYDz^GB)M8#o2>l zEf3o@*L-2MZYyeHGwcjjVOqA-*{-zdVsBr2%K7YXy_2F^Zp#O&=RbV5H%w;j4~aF! z>ZSUzX6>2ktPM|p{MI_ptS#YDT`I8a+QP{Dt3|)KdY!wFxAcio@Oq{P({y8W)V)t; z8}BzhK7~a>MvSo}Um-j#RF}I(v5)0+?9*~>+5Rgzx8_XeqfN9{y_4 z+xOimp!0m;pO>LUHc~=Ms#uq7N`Lc^AuC7N-ZMK8e|wh0dwyyE?=Fk!m4kk--G z*@tf!OlM+Svdhao{40-?-`}+2w_?m54X$eU4LbN&ud13{ZLv9DsZsButi$7XT)#}V zZlCJi{AYIjmrH!=IV!gU+*Vi$RvS1rc4V7n>948W_VAJVu`3qmr8rimthIDYE%+jG zWnL+FiraM#zw~{lU`i+U~YUS?nA4_G+P>zvR4T6m&z$&A=l;m$ntJaNpX=j3jsJC@M_bd|I)|`~Mdw|N zr}*>g_;>HKdiZA3ybsdX&MnlMS(`HX2GgqBJdZO34;$Y%y}XFAyvth0pHcAUck2rq zZW}*$xO*yMu3NkD!b4l;b_R6cf6n80KWpb)ozv@*Y-jkHv?jB}a$00L*jae!e8SzKMJCyE`I(HdtkHh-XfOEapbvQ_wT-xL&1wASle z@?LmDJ1X3EC09axZ7`cZvL4AV{~wqN--EYCHhe0ya5CQ<$EqLjls&Ut?| zIJW=E(zYvJFV=qM^K3O=`^5agtI%pCg9+g*bsXGRqEB`z#Llf=)#3NOdA7my*2LK3 zul6l1-xp5y zFOK?9&oD#&hGW>m8!6L^-C`B=)+Oc1aUR_#-{Y*Hh^@2c-?(Y#`1F8}@d6`rgF1zFn=-jY5jXdT1x~1#R`{^&jiTnk zkWYdI8>Z}jc2}{sb@iX8Di6eWWx5*~9gd%rtIMb&wd=|Qj^$i`ez*ASJHF9+@@<}~ zo2wq?efhfngmbTCqPJCdlS2Wu2%jAYf#7w{~fHa9o5e9y(2O6lFLpZYt0S-O^S z=N5|?@z}e*Pi|YXES^!A{pHzB`BGUq z`-`2{s9oWj@kX4R zw#c-6&CLC~-rF!?b-wJ}eW4C^Cf)Jb$_~2&3>#X)Uj3VPvhG{m-#?YI56j9w`Za%; z_bB1(oTd*ut}T<@$y5-W5>(yi)><}?y|ZwKUU?y});gQ^S!V-wM>C%?T(^%i?wONH z`Q-YPx3Thv)=JF&seS70*?k=AMCbFQugR^5TmIx%X4tN&X)`sVelO-vco6;Uku=x- zuhUO`zjXW3ZtiTiVDk&tyx#xY`{jxqZ%EaGS7*Dn85z4B+kdu3!c9|*ZIiX3@h$(> zz|{*wQ=S}H@vo(NLEv(pr^gt3y_RQA=?X6Ko+H`qn5MWzzWigT<&JDe*=1%2bS7o1 zzez5ukI6h*w_qLH)tH}$gU@rO91V?^o4B(4^_9O(eJ*^`t%Zk_AC)G!=1BIO*cTaA zB7Y%YO=e!rG*E#PCLWo8q&MK;%)U+cg8u(@4lL2ma?+){G?=qOAF?@ZhDe( zCQo3-apO0$UYR{9d2nB4)}Q@3inXgIoqQR1NAp0v)e@bLdo))1DX=rjJWi^8Zc(#K zXn&mYJlT%L+Oh9ezLnkkXZe-;lCjy_gw;2ee%pPFElMwgFXoMGwakjmb4y;Rwq!-w z3ry0G+@@MNdGW#5dm?JP0`D01c5rWIIXlhYBuh5DnRQ}~`ihwjd=`pI+K% zqj+l`YiWp8*E#tN(~hZgqY4i>I7wR-x-6(K66`#kxIf4JW{L>M%sMB%1uj7u)nY&P zX02JwRP*{NTT0~)mm^A|&pzk*DlfL~?Uv-U*O*%v%r#k%zd}iqg{{O?w9IFgl@?d# zQ~M_?!pyuaMb$sd5H{%wp6IlvPjFZ2syTYeYHL-NtGT8h%->pBptpK48>f}Xd&v!~ z&nCTLbGxw22=IBSEHPi z>4%wSTNqpx5cB%t`r@D2{e|}?t1ex@`{$ucITwG<`_H-i#9nx1J$5VPwvrQ?)Wy=| zuJzN)a%;u8eUi_g#ok+Yq-jaOgsjEF7W+h&mrkzlXj|ImD%U5Fs~7Nms-=XfuU^{K z+2<2NPx4Q`tmGWVP+`p+tEo{!k6i(4E0&V*e)`HoS}2%{Ow7 z_p@GUs}{b<=Xv4E5YGl(eWn}p5Ifv>>}VW>q8-D$RDjX zfA@sz+Tz!>pG(hee!OjoXbgAlt`dP3CbiYMqKo&Icyqcwjmen9{@748+M|q7GiOR_nq1-c`E+7uSDkhU3hT$wA^)8=L@`(ADLKRuc&6>t)0NK z`*e-HzT`Ij&o&o5{N@FQ2={a87g{?jFL$W^_wUoGpDriV+e=J$sy3OIQtfJ>YQJui<3UCG5G&NKl}CZub-XYdoR8A{q^%# zvKDXu?mheaTU0=8Tin79$-mv=kNKU&zpTC*Z1nBNrfdF(ukpX;cwb(AWoJwN=bu&% z``t8eD?fVr!g5)z~4YsU66CH4&Sr#o&KbK_4TE-G^qao0ykIqYIYY443oy?f0ab#BU9p-LSeEwd^78BtM<%jutV)ozo z9$mdfTf;4J^X#?S^ENw{^`t+0C(4(ex8To?EH+b2#XP0@hSFzr3-=Dm@1{an0{0u9-cAim6q?&!EYNOAyFQ#i^ z!!KXIvqqzumto$t)iN^#xAg9QxwhF#kgMk`uks96bIYxFuJ9`xF0BcAEr0EN+^h$m z1SePC2t9UfVN1i31l#Qk-zlkR=WLPwl2W6!!Ap7f>zXs~tauJwnEWZ*=Yg#1YGFeS zu^0YPn#XtTIQnOk)WSL$M=yifBE^Ywq#ymZyDyoN`u$N@WpvN&b>6j0x^Jcx*hU-e zu+yK?D7oYJue2SfBD>qpOzXSgXsv(4#BApi2Hv;*VcQ$OzAT)&aASDOmelLgZr|Qq zw|ZU|xyK`^=2+gZT>_7HyuBQrZQRNAw@0OT(~7)Tnir+y)%xb{I2mU2c~|0}+D?=1 zkI&QDwtrVL>oUA$@3E6#r>{lj#cE&WhMzrwou&34T(<6XHq4%UV)MRWo*c%4=$Lem z<=RTKe0O;4ExKLu+M|)_$%?RTszRq3L=Li9eO@y+#cnNo)|H39Lc7+4#{@o_7O%

T_~#p+ zKU-r_v!p02DC|v`+iTILv(Jq_peG{2rF zE52LzP{pE4?$hqry!x5DurKHn^YjOgA0|0$VUs>D_U=PDm&L1y18~82(hb*hxg2_pJ$J-1Im!$P%YE~p& z_`IwyfZL1X=F0km+jev=+$^%aY|E3d+4Bm+EM=sUC%kjZFRj^r+UpEYkB=1|_juiXp|`1BM#%ZS#;(Us>G$5rA5UmIP=1(iweN-*+f_d=aGYiF z{>G7t3oJ3ml0<{OwslQ(zqsX9P@=wL?vc_PItyA}-qHOm#ny4*O3^FU_`;ofnyVUP z4_%c~E%^R;MbSfNu?J`Ro>j;>KVI~t?Og9CJ&sS?j`o`sv|e2y5h=Pukb|*b@Ra+K zk7ufs7tDJmS+e|SQBiPKp!T1x2VC!Tj~ct*{=d_$eP6^jM!(rr&4+GAN=W4N{p6U+ zBOU2*{bEqazr1-2%j|nrz3x>hdGf=J|HRsBXV@0q<__BAYA|8bbddrJ(eFK68}{tj z-#l-P{?_)44}M$+@19#E`)~Cn5rG?C+gmfAytu45Pw#nQ&K^_uJaPw(v&5EGcc@y1@^fDL?YJIW6OtkH7Mab@!$f?>y&(@7!81_+CNuQOE?Z68NGS zzT8yyprlHH%!*9630xs*%c_|(DsH8w|6rQzBFjH(Nv7~gkHFchB^POLe*eL8o7wA{ z2a+$D?SJYBi7M!~pPqTy^_=fq)hXGxOQo(=EqSzagTuZFXD`dxY)_8i$XDc8|G9GA zlMImwTXonD?{fsi#XKsc*W&Cs3c0Anq+pMlSS?Ltlv5htoR$@L4wC-QG;Wa6U$iMgZ^)G>Qk=HLY&&@J5ef@t;mT7Eh zf!xu`(EeS5O6N9It!nEqI9xT|`Q65tV;;PVMDa zW@)j1ox9EQ5%;EKvqf8{@NYh=@#1aI^WC0rZ2a$iXI$sqf9{gU-sTrP+DnB`c2zF= zRQmt&ZJQrC%6l{0Z`S===;aWhqy2tg>*s^#ejN!m-0||=mL(>UZ@9QMe>zIo375#E zw%@_H88l{y_d1nJeY*CaJc*P+6z!^K-f3*7e$VZ(eV+c9~QyG3mtI zrR;`oajCtg5mM^SmnC8soL`w`^F{t~u#Z{E!b`7jGnN_YoZGiNwO*OyTvNdJy2|or z!IsvRJ4*iasFw@gvE4IcdZOmhZ?bdZ=W86CJMZT#{>4mUN-pBx8E3!VQ_D|O7;yc6*>q$L*OO;Aby+6e3|?vX{BX*( zCFV|tC8VdHxvj$$IhW6^^Fmki2ZdkDwR~O~zp*&J`0}cP4b%ViGGwftR zD`W}phoi4A*w0Yt5bpiha#_agN2#1)-n>BfIsCgH1{+VtAwT9F%RhzJuGyEKyYY!G zl$R1xWNk8t?oUN7%GWfC0f!+4-HswG4#$w+r zvOM`K7*Y#XFxhGr^nRLMXls}JZ%)?d5?1AvPu^vn75_Sw-*5A__4!4nh0Sli^7dD* z-Sr?zR$BSex7c5^cT7>1`fzRaKAT4_`UP789(v{KW;(AsDD}{4ef~?1%s1bIZZG>@ zFEw?8SYhQ(W?|=|vzCg71-#XnUkiC34`AOKzeD!)`I3c~?y#P;nf$ckgzl;S#5WA7 zwrxfNZGoD1#R7IdPcka_VCPa=FB)PJx>L+{*Pp5qiN5_IwFi_A+0E35jN2g{uHjs+ z!1|f>T=Io2HF-1U97#QY{`ZmQ5A1VR9GZMGxbE-ehFN=$EiH{~ZQ=S>vf$azXIEu5 zt!li<8Yi8Zvt~*0woPA`rrrq=NIU$jpFJyA`%S8rlcw~($L}AT9JX7eoVeiWN*43I zy2%Vb<}^*)aoAT*^7SS=745y}F8_EZ`{6gQMtoCQK=1D^8O>?0z4Ldw7l-ZCX1w%O zXOWQZmfB|qvOnV-!uSqtlF*7Xe4zb!uF;E@N1eJ~v*J?QH~TJHx8ZC0!d-?B&dyYR zR?GiZUwyu$yR6rmr`oQqpP3an0{)(m`fs#u|4-%U3w{UG*JdPtJF#Pe%ERW`=?_-d z9O<3eu>Zl~62@nq58cAA^|)9w8qeDu;CZFx(Lr|ocS2f`&FdSI-luNX*AA2oz9$?t zW!WP~cdsWGpZi7b*sC5Ee!4F}>HN{3b>2@DH#kj?QFJv4eXwoD=Y>r+W?~BO%6@H7 ze6ZDTeW8Ma#pR5o7RjeCPw>vZv4UgkpNvxG#2sdC=`vNJEzkPribgJ)w|@1LA8iU2 z?P2R~z4*Jrq3_7+H5>a+tMoXpt-f*~bi4BWpAS63$`~G9Gzzy~*qUv-yXb}3mb~m+ zg}0TQPsb*o({OJI37mQNzGvQDmdI0g?j@Lp?mc-Ay;Z%3W#lNVyIxC0AktL==-GR zrI%zV7@H8cFWT0-Uv6h%`B8^|O?mS;%dF0t?>u?3aju1dkc!xZW?7a=Zj;P+Ti?2S zF-up$-Y)d0yZFsD|EiW;ymi5Gt(g6$h?KqZfB#-C4fGHH6a264=iABq|DXTxZ^MAt1c=oTdugnHTwUTo7?^W z6)atU{is#)oV}ZFKQ5}>tfv?`T}J+3{OZ@zOXo!O?EYoD@7qOf@pW}6=k;%V=KqmX zQ*f~?dEd!ktG#Wj!>^mG%{rQ0`t|O=<%U`kjQ(!x{bKKK5{%#I8F%T0>Cz|b=RMxs zby2=tzy;b@7{`r5R1s-Bh($ zFzoePp+)1=nl9AfZqH+u`eIG=<*Zv* zHZV5nv1B`)iO~MM_r!U}wF~_+oL{sFBt5*+#3#K$Q+XRt;sOJP{F@!?Z>Z>>zIW&q zze2wAyF%aXD?-bi@1+Gil3L2i9a3@sUi|9~5!p)a-*4w;++4rW?V-|+xPZGw^{@C9 zA72gG^J_)2`AKfGIgjV%_xRV(Uw)+e_<^dqj)e<<-~F7uC&B7a_k%`-`FELq?mZ%F zl`iVkW#6^>@O|cMZ(o((nIAZ>=UdXWEvs&JD!pU4Xi|F1F-`ov_OYpLoj?747F*UX zcCHsTX8SNJ+wQFF+-p*&B7YoR%FtihEH5#SF-`WPe4X{pim%7D+ivx+2#0q3-FB<$ z{xs=l%iaB6i%hX}kW%`;EJ;4%I@6m&Pn>^6Ot8<``+1gw}$YmQ$NY4f-;M=)>C;?xI0vn2R0W(F)O zvHoW$Y!>6X-bwWhW4a7qjOv=QswqZJH*V!G>qwV)ygj=A z9{R7{jSg-7dTU7(%eDiV6Zh{s`R4Q*Mb8kM4Mw|oG(QO1Z{pmaSd-CydP_yZ%+GT- z9-R5-w4~^#^Xj1je7k&ZZ@D}#uRpTUbL~Q=hAZb)Z61q0tzulP=*wK6k!;~w!d}D{ z!0}<$$7KhirTg+T8EgD6Y*}((%Dc~ZR!>XSIBa}ydPC&bqWPb8#lOlt9m{wSM3C#_yeYr1sw5S#Rxlf2Ds~xcSg0e#h8H`rP~GUVgdc zk#F$s%}Z|9btZ+)c3oNWHQysqlkeA^1kY5L+&!#nyelW&6|8gIUGPlgy{rp=?isJL zo3U)1SAFZm-?i*Md{fQ+`~j7W>4CK^FOJ7&+27UBz4CctmsnuniRH6YYG0nuNjulo z@{s4750~f6E;3d!l^m>2)8i{c|VD@yrO;y)Jd{iK|V)m-kjT@28#dlj5HC_xg3dls$RJ zUH|`0tA295`Qd^M4K)$6+!g-9QWL(OnUSz(fn1=Wht%KeyQc?D(_S#)MbJRQaV;MBdI2@eNkVP;mirMbKXUAz0+Ol5hUMew5)0_!&>>OS!(Mi2jxC8 zEm64p{AQDvlH;GIz4LceXkS!Nku%vRezx_e;`z4>b$y$kPj#MBJ9%+z(JG^)-P$q- zn1g0n2R;z1*;O;M^wV9@i4n(VH>q!$A0XLwI`pL8GC?z$Sw8if7GH8bvh}-K+JjI3 zV!o6eGdt1n!0h1dl?M6kH+U=N-hcI?Z%=FG=K22ICzfB0<~Tk*bhhsdt#hhzPZ$MX z)Rmhkevs!?tE{X2TK|DX=cKCfLfzR+mA4Dl81L;!6JK2%Ke^_!aPREZudL@rZ({zT zxbO+%Rk`)oA}=0(D`mBgdr^8)Q$ax9#DXQ%5`nHfAV= zF^6yeHRZ5xz@O8ZEU9u64;S2bwd1=k&n{T`!Fz+T?EGw=_yxl9vBg;vo-WafKHXv# z{V=;xlvj&E@rKsPNJW=BpB73RY<}bOUgcBm#^c{u#Tn)CG>;mb1JMUguWszq9zoJI&KGwtk=Lkr*PNwt!nt+ha%lEsK>KdK6w7``$Px zeU8~s{?oAwTmE+(;8>{Z@#jVJ^yE+0U};M! zm9vk2KKuMI#Va#?-X7N2CpCU-`P)1z)^X0BZ9Vg}mBC`QM<#qGFAm2@Bx~%1WyzpPg3; zw7Yc8N)B>%KC&tB#+hY1S6c7Qymt2O@+CWFpWXKJY-v#fQ?;h_-ev2wuY6_bGJRq9 zch29Oq?s24=IPyEesum;AH5mMClgeXraet?t{2ZRnUUb|)6{9HT1tJww4&*!BqZD{ zdVcpDb6u(yqnTknImEjEbve@k`A;Si+cekd+V4ugePey$nx$vwc1(M4A@rwnZErxT z%Q=N53p^rbXN0;=HS!FUdwN?ewCGr9-$yIvq-)7{h4guJ>hwC7#jS5&rNY{Ge$L*w zk9BI*wW|&-wB|GB@qM*MmUEw>Ts{6 zDc%p2|IQN@2>;;UQhYv8*Qqtp%JaFzAGIx=Db{_;o;N1viS>Q-Dm z_`zUPa`lXo>WgwtuIX17Jh**w>I%-Z4jCP8%M+3w5v;|hbaf>a=G3YCY!g$pz0iHo zvLn)QF5}+H$=2(Qo@n}{-qI5}JNLUzTOn=DTDnX#Oy>wJ*Vb}-lNFB^E??-=n7ZEQ<*!=bs_Lozr`sY~Rr!O8 zXNGK5u;Ny@Fn`@rr}=F6TdkyQc5I&bZf5+VS?5m{vOcxDy;0kv)2_dz>vfXRqqlZT zxD}5U+Amwq-Q%PvZ!7HG{c3V@=C?%Et4AeF7KW{v`YJ6ie%g2KWtJZ*mwe1OKk@FF zcWsi3PvExi&!_S8nY3Izd*pZGX36$e@8KcC}pu)@DX{Ow)$6N(E2JXW{ep1FKZ z^*-J9iGH)T8Wi(rz}TTu}@PD z4B~A3o~UXQ_r$<=+K-%6pSR01b~8Wcf2W{->CxJP=bw~br^&_bvS`_R?6;aB-3h>-WhpGYee$0zGTXCiS-NMM2|YM@j)iA`S-w?UEB8Y;>+`H$M>J6-_A-jD}0dJTXcW( zPYd~^tTO@1{{*JFu&&y`{`8OYpBV8zz5J{1bgu1MUVL+U>4_<`!vEa=P>{83zG>FK zMNd}muq)fPVJ@#GYsZ?e2d*CZU~}vjr@H!gz7x>_X0=HLf*)m%-ALNm#`Io&-Ry=n zD{L8DHy->mH{IxdnuBl9-0kjfRwb=ruYO=~eDZ?N3pdy8_FVQ=AUTXzCP=KusJ&tK zgeh-LIhL7C3u=Pg?LGv5dj@b{Va5{+Y zoi^G3cB9*IiKnr5_eyqDPTSkIt3IZ@d1uSvHFI8w=RayRHP2!Wy?Sit^1S!6beU&& zH5Nbi?b>%%`lBb0hR3`_zvg(RA8I-g?j|NvS4dth%Sdck_ODP`_8sHRkCxkCi0nSH z_t5iq+ueH}KikI@zTf6a-3*QWR!0xz8=p>I5b3b%oi2xAiiuM`uhab%B@>0_2k;C;6_8HzrIhWIp!_poAfpNUC`oMxA!qR zd(PQJ-;8@)F*kDky+A!rrRROUJW;Lc&kgGD)IR)O_e4SbY9sfSg<+e2nAWl6#wZEr z{N22C5AQTvrSnVfEuNd|8eU=4ED@diaz<5^Lc_jWa_`ML%D)tpmH$j%{rfB%R413+) zyl^^s{a)8sCH0!0cYYczo4e@Q)~P}7AJtg9^1gc!uy|MDuRG~%djFzcpP6;FMDLM* zWzMehQ=5xE+a{lCNcBCObnYXoY{H7adV7xsT>T-tFO==tm&Lh9Lk(Ll9A7-^%FM?L z)qZK(8~)|54tzW5mdu5?iVahbZtb7toOtNXp_0zdXBsPSNW7Y?>B`i)BF6j1W%a!Z zCF(xC-;%>Umz(dpw@qWs@gI7xa}-NnKFN5sc}+{iXXI(BANHVDMT>V$u zkjW>n^jD?Q)hP`-+ahO7TKf27&z;CNEkz%BRqqE@eyXePnR0cU`LibV#t!ejk0pQn znzC=+^9vFi=Cm%*j4-^Y_~UH-RP%Y4Zafoh{NUI*jb~BVPv$FJdwQgeX4Zd;z7^SetnHhYT0%}-rkeD2=# z`00;d&uOW?dptkyZtNtl^@ho93;mAgP7P;u-qka$nQwJkYkh02ayY|Br_=X0_1p+~ z`Z-87EvjvEBZJJ^7^$o3x16?E|Ky$hJ#)MdP*!d4YoOci)pqH<`Pu?n6*O zq0-|M4QJoiZaTQ#Crj?9u5trllB7`Hdi zJD*!T*?n-lX?0vi`@m-lm?b`hzv+5K+W@}%`^j$NBJ-S@jpG~sRKs#}+S@L4O z9kFF=7KERPHZZemXun#0T0&VPE#}6$m_U&eS32twq%6XgYW!TjLr6h&zS;5_tCk97 zs=FoRTAWNabh>t{@RL+zcK`=9N8 zm*_psRY6bPeUkRm4aRkLn^*pduhiA_abBLVa?N+erp>|3`!wG5rdVxfdf&N^u{6bA zU{mn*#^mWDQ>U+S5kKO`Ut_L*NsjHhqutu#oh%j6Q*&?Jn_?)V_4C83_PZxSECX{o z|3v((@ol<(c}?&&T`lf^HTMs1+}RZOb;`MH{^;rNXIZ$+`xq-d^BKeL4JChGUy^0h zH~uxvH$YtIM!B4ah4R$0PY3%Nj|c8-zrXRk>YLnMjJ0ffi^Tu>P6|~oaZT#kkblr& zTJOo&?Y+yhr0a~BmleNktBPoGT($4d?6}?;H`l3Oj@ua*@>tvHI+NzAL+j@*@F>1w zR?^G&WzNBM;`_fo|D(v9S}M=}ljFVOv2wmCakm!FdZ{tH?xDl)L+cF~%A+@0Ic9y( ztn6HJ>ri-Q(faeIe}8j_hQG7&)c8N;NK^36$u5>VrI*;9anYHp@*!Mdf9#Q@x!-&? zM~aF*m^sTWgJ0|LRr|}2&fSi9zqM;dpzFb+_uKTJKe>KI$w|9ER&9lT%i+F6R$aAQ zDW}cWa?O)6O6S;e_K)S0fAW96zW!q+dHw9U@V{#I%u|2vT6Hmd)#^jp(cw!C|E}60 zxFck%@lh@zpMQNyYENTU2^^Xfe0Tbi&kciI*8um61g`6c(97r%D&9jyCwoa5c+ zm%CQz)hT;r>io*HJ3sxpuKoMB-+ui48o27-hu#(X?rFF6Ux-`G)%Ab5{ko3tgr_pw zj>~U%XOmef`*e%Ow2U8h)itFYn~v(=Uel@SE!#L}GjFKO-fmrA1NHjESqid#b=7jA z3%t)wYc+kmYw4wpUnBlqeY@>T|Lw=8Un@Fx->chdyYD{Ro~-=y$zG>~KYLtVdG+(3 z%;*nqw>>a#=ROyxqRU~yRK2S4yS}*Co?r9dery+H&3QBJv-+}ak*hc!MIP<_C<`J2-#1XfA>KGpjBkJRsL;)z2#6n^eL( z`~RLm1?An>Z{Obi_T#?^Os00rOEml9MI_h9FiOtfaKbX`kBEi&o*iLEX&@T+x6ebye@t#EnL7pM=D$X z>$;oMj{jMEd40t$)fX$Oe@Sxd$DO~TvGP{R^a*>5pLnUhNd7InXS-(Cv)>8j_Zb%I z6y{Xl63zW%CN1hvV!2iHAn&Zt8d=$oG`yF{8NRm`y0$MZDBzs`H@zb*weOcmg-+Xc zRM@@$(N}|oH)~C&m%aRX+@z%@$}e_%<+cgOyqx~9HTzGBJkI#&+MEZS*4^qc#pkbm zC=F_UZM>f^*8jEdizmy472ca0 zI&FjQ@_WUiF?aa3#!cm(@gPla(HjqzC_hIZCdnIz6*k)+v$mKKrm1&hW7VYn=S@tM zrhD=p)obsr>Qj5O(8ycxrs<@aEX{vQoRiBrA4*5;3|_ZLiRcN`(^af8?&Z>~h0R71EZQ<# zyVuUIvHtajb)jpPfycG}pw&-TUA^5mL%Lwj(tSF@yA`CeVw?0FyXGs;sNElV#j4uQ z^u~kTD_;E$6SG^jh;jd#)VA~QQti01T#R%czIA$bwRO$pAm5yTXa27YKPET&nTH&g z3)(r~vsESBldXTH=w2tqo9z1&-oI}#jCs;`&i2ojsD`y^$*oZjH~(5wd;VW+%A=+l zyGfeX^(%aLAM;pw<$Pctv(lsd*=;6kWsV(R%kb-aj_JBDBJ&*#-mW;rx+r6onOn#8 z?)y8ZuCl3?+>@^*c|C5z*|XCXbFS}ra(LC&V}A<0N(&Y@uSk=%Sz_jzAs1}ye@0m? zSdKxS@l)S)vSNSZx!DztEoQnaDUymC-x7{|7Y%q zFY?Bm2?ft@g62HUjg1l4@tI)RkZl5*GY!&r%giZBEmF{T%SkLrbxBRmPf4}2<0>vG zN=?k=s+jXOHacHs=hQlJwj28|pUX^gmD_aU)ubzHH99A<8=K}#YPXsGKE`A3?Twx9CI0FE{r%_Fo7eYm-+j%W z{_u6*`+fG+<;O1nPh5Ha-Tiq^=7-DbKDkM3t^W0@XZgQ5J3EVaZw~W!ntAu~>dp4= z{uiB7Te|ehtJ}-}v)YR;`=vQsC!MM8-xt=BfB7%Y?A_k<{{Fmp4(rV4SN$V&Fk8CqKW3>5yL7n2%rh^;IYo=b(+F#!qe^zDbt@z3EljOd9X5F^*Qq+&Xq9utR z0yk96n|(=mSC`iJ0 zH0(6UZC%@;ez@eDVu`#=bVS$Op2=S?D))0fPGqwGEF$~U_pE2)@&^kZS?%~RQ$~I1 znp=h4TaC4Rcf9b8P!LpTH7&{6HEDWgyQn;G(2owEA6;*$;dGqYN{HOONl&%29YbYxc#1 zlfGWP)t>cyPq@R(g2~_d`bBPcYwU{hzceedWTn%Rx$)v$*M8<*n^~#oy^mYz@5GJ- zsldZCrsfD}o~conx_M;%rJaY2wpke|#mzs#v@(TnSNx-ftVh=_&0T(apGxzEB9ha*gOq{=zwy!*UzX8#VQU`d(%pn3Kh6`f8bed z_H5#UbmPe5)h}-P#N{%b-*A*6!R^df(TRQ8m*R3nSGWZ$#@}krb5Xg`A-B`?`INwlzk2h8=2Z8#p8ga+rOfH@j(D3xiMo%r{dE^S{QuxT zzKG~ofAcq5RYiZRclcM(Vb%F$m1x z@uo0ABA@e7^8A%wUS^eDxpZdt?+03^tfw5A7;b9ZWx$=XG~s%cS9w`=*QM6K3D;hF zeZTy-BJ5?I%*`LSM7_O*6x`P`%`Dd!T5qX(uepyk)Kd6A*Hh0Xx85{M)BDN7F(DI9 zt^V{iIWunBv(1n}BoY|Sog)k!jC*&TO19Tls_fic zop8nMT<2?XAzx7w-XA~rK0RpI!!$31l_%lCX^)*kTb=(~_GHYN#_Zs-?PGAv3Zv*` zEg_x>BMh}Uj#ubVb|@8ewoF^i7}9X5FMUN6_b zAoy3z{pcAVUie?*F7~?pSHElPk7YHgXJ>~>EAen_JGF`{aiQDVCsGj_TX`Dh)+~*h zvTbF+9U=FtU2$2=?S?!)*A$8tUSje$4e-x0j9f3h)0LHJHp6bIkj~X#zI-n%YCCv% z;-;EjW#%=7$tSBMw+l@8Ah>u(Ns-X+Z2|`R zyIewUU*P!b6U<}s)nI|4en@^#kXu>A6SV??G~KJ(N8YZwHCLDK{`@N|9yt|#c(unT zl3VZbxikCI?2fzfX7n#P+VnBj;kR3S<0O-N(>qGVely7mKjMk6XVKMh2xSaVuzHfd zTFXi5#re(eBG;^7^kJ)UyP|RN=7w@cAOH5QV5z=+z_g8<@t^o-}ihwlAS;&t8+2Wzv+cb0@SF@_(60-9pm=iae&vjJo?XV*Z}RTSpU<)4 zM_y$ZciyYlJ|^cl`bF)hv`5WYo_eT4gjw2U&-*a-2T!@IyeHn;t^LmFURbScO2qn? z*)}BytJ$4<6SdZNzFY2Srg`wUbJFbt3(l_T+iA}E)+(`1B<%PuO+B+syEg1t%G-4y zNp`$}(~+LL|ho|=P8_?P5&QrpDm z$gX>3VRZKRCEdjqeaB8rf69AMc&Fc-b!y9sw$(f+-By_$`ADtMKx_M!xYgnX45AB7 z&;O~u>l?lIWaZktw2O@1x93#^mAF23VE?gZa?SF>M+ef^MCW?kIVUNzFu=oHhhssr z&f~OS$lWPyF$p{hhP*k-Ss7)*#x4mrGc}U+(uKC(zRB{Kb;qM? z-vfO0?6)R;@|Cd&Ie(!3pUnTwuMR&Baqxa%Saxmcr>8GgEld8{;wt*U*>K6z4OgnZ ztqYOqc(~;9TeZz>J0|r-REqDgIr)cS%f$7{`6Uln%OQ`+}+t<+t3cjD=?h=kjxA}uoG zU#*TVEmY{;*zsY>KgIWD8kM~#8h!>dOlgj=QLtVY_Sc+KZr<&fwM(3s=H!X9ew_Ph zYupyI|JyoSmCUX=9I-Zfa{TDTAl-~70fM!zbr$PVxI~?|vi-0=^f)=*eBKmh0}90+W z?R@e5`wg)>34g`@%6*u3@l2EH;`{pe5p9oeWOZ3N^QSyL6yL7{v`|( z(?p&x(tGsQIMHN+(6hkY7VDa8xwg4~R$P~{f5Rjcpj%K-{i*iSN(qiPvHlg3+eK=c zv_6;w&5KA^4!pQ~>YVHtx%FXtLoV&DQINCpnf2LhUG%M4X3|v$1hW1Is~j|oj9X=( z$@UEix?f6z<>T44E^zxWZn4?dvtoliTyszs{cMU9?|GxJsg-K<(^L zgQ}|{s|qbSt+_7kd)Ix*Dr$nMa!to%iH(!)gvGR+IQZ@Gvg_}yw(}H!Z#m{9>od9T zc<-lkYZ%O8rhR|xkWjCkKR21fp5^+st}@=PD-V|&9&I<|y(=>9%(*k`=g<4g_x_u| z)t&e9``Ipp99eRmL8Lq(@i_iBN~sUs$JbRHDC7#6_i1lW>V7`kk{2E*^&C|mS7+fW$J=(q6IMvig<OOVex3VB; zEz2f`Z_Jz9Bl#k#;h3vo$k|=kmk;YRbCLtqlzi%v?E3>aWd1 ziH?B(pC%m1xa|6M@}v8Y{Xaa~&FE3yIDvCJ&+b1`;Yti5u8(^foeQ+ex19d(HtlJn z_N*t5W!m)fHAD1bi-q-HT@L*8R^d#P?niIMR|k7HhP*l}vbSJQ+-uo0cR!n$2dlfd zKJ^sZ`Y+CHr9993)EkL+7Ww6$zxLVe*Zi(ioJ*#i^prBL7LUxb7gb@INK zld39Rf*M!b&Y0G&8v4jR-2d0M3BUGC__d~Huh!Wj`#<-j8Q9X37A3x(ywB31AWNM+ z$7iai>RiuHizmNz)%K{qtd}zDU}z&l)*Y1{cUiKYO}Z^oJ#C&y1#iH$P5Z2JcwC=o zuWvhQ6?0efZpW<}gI`G^hLsnuO#QfM=j89wZ8mFPvCU}Q`Qk+G``rz%+doY$+3_N? z@$jbNn}2UUzohawZu_%lkN6iKHp!Zsc%EpKSa8W^){?O5?Vl!ue(-Nu7O1K<&$xJY z;DlP0(<}l@jnwvVTJGpGPPN%0&kfYOjo#f?w5Yx+T#*e zqxPp*@OA(C;Py}^;@7el8khcDFODjaE)n_lFi2WQg2_H6*>TggpQlg$DOh=6|E711 z0<~c)O0ESv%um>Rba8mn_K&CidH4;kSv>EZCvK-u_U|s|kA`!%8kbGwt3T4-xi#&P z;oM~blMQB7mAuW2oAERsGdOmYM>ij_T2jS!@yNyBX`ic4{Wx|tE6Ab6 zy=R{aYu@W^xznGu8?FA)-nT^0FHmT=`C6Zr_1Bkr-iwZKxcIopKK9{@kC&b~-8i;b zdym5MZ*|Xheft0V+o#2j-_?(_U0s#(SL((x>(w{SzRl-blfU*jb4XdtZ~Oc2yrwsq zzG*!-byKa1gW9s~EGs@-ddXJnr?Z#qxldmdXZ=0v2}KS{FV`^V^=~ikS#ieW`}vs@ zRBkt({u;e>b@Am%8`5e7?S8c7ynPh({^|0IO#EW89TTN}tIH=;dZ+z1DB7^^*}TNQ ztI-cqlKsz|R#@zo!^5@gd9(B6ANlX!C)HhB+{UEr`Ok4t8-r(_bj=C-pXxnQc1fL8 zDvi#3_txK?#$NBxC?u4>{(j^FzZuc;cdC}h?D=Ni9Bg}E>bcUU3Go)+6`pVUpz~>4 z%6sNbde0kXKb;%-y@2WG7nzEnyOQ@S|GGbLcy}~q>t6r5S^qkjg~F@mTg&w7e~efE znfue|zTMv9bHDe!k&@s0Yq{aqA1Mp@>t{3NBzU+!e)rmF+1ayar1x9@)_!pNvJI9| zRnS-|XjIkI*vt&Rzr+;F{t{E7_LsbkjqHE2O|VY>iTjtwJP#5pSO0H~0Li5S*8H;p1nXwy(~1TQTieOx?a+%UmRnZrxq;xSo4q>zAe+I5{Myj%%%G`km5zE%mkPkK?DrEEl`t`1-o6XSU_C&--WZ zkFO~&{@5(f8knf^wop4v+I;ed3nz>2oL_L>Ct{_~_sf|Ie{%nCS+30)I{W@F&;Q3; zAI_0@{h*ksYKhr*@k?2*E8fiCv-8LHeE&5iv#kC*TdVzLXjydS=3e&;>*uspZno)r z@cc$Dm-iP#{%70jZ}mS2*kjZFugH%c(t$Ho?WPZ3+z;N7m2 zy2Eq7ZnJrOg$YN}Oy3{D=S1`ObsrE2+7KpuNA%C1hh5SyriZa!3P}I>cz)ped(YJP z1=me;O#U$|=zwN?^7I7FneXSxuTRW5BiH4TeyRQNh4^C+rB*3DKRVG~;f?#HS>pWb z534T;ve`Ie$t?5bI=)#6hwje(_Ly1ZVO?F1KjT(isrQGUZwXcM zbQ!t67_Uc5SW52Nup8K(f1kKP?|^xiu&Pqid!yTX&gOistJ~&i@}DXGxyX@4jI*vM zIx?iZ7vA(lxWz7mZTYba>^3xpqj-^KOQ{Ij#1@ZZ({ z_Y}8nK3)GSFgn6?q2B)f*UG)t&Hp-^>`whoZjd{+VrJ)$>e-I<;l}-X??0b6-^*$t zt^HtK!XM>OfkIBPCa&6r26N{W<;$|FyqvtPL&UIWe&mxtwTp%kEt!k9cJ25x#qxn` z+C=^K7pyN=omp_;agfXoMxT36D)*j__|DSSb0o2=wQzQ}^NNXc+=D+>+dKMXNZC3m zWSGseP+r5OFZjV+;&ws7;RB()@Bf_KJge0_rMFMzP$64MS9xC5w=eHC7VQYnxWJZn z|CrkSpX&-ZH(xas?0U(Y_i=uQso0H7ezuo0#Et|cMWyb16&YG_CFFyK7LiMe-Y$8UM0L+|Rvs}lcFCFG3yU+H@$LaaU8B&x*e*0T56h7{q9NGI=^67y)r;2R~R^Ofe__K9x zU-*?NI_FEL*j?~A#FE=(*6~tWXKV2Hx|crwrzSZ$T->0+^{-)G^0ecVEqq&-AB~z; zzvVHD&BM%f<}bc9I&nGf{J!(;^NFgNr9`wmz2Z+YKU__pNz{e@GV z#2m8Te7IC1sFdqmTA5IvjhIIb55QTd%aDdjq~Apd-wSFJ(`b8j{fV^dS{$f zXB{N{uv<0luTRE9o5Kxee5YQoz3%v75p$?e#PMn0uC;5-XSpxt;U^n=eOlTb)o7`x z;5doK{Nl;&65_#q0jGju))-42xbVkHY?YhHadh={?EUjm=poyFFM;$ur_MMV zon3MN)X~j6Z0Wg97k%fQUH^0Wb~T9`wN46x(Ob1wd_R2Yc-@|^V56gpY%J4aZfuO5 z!MgSA?y&bp{d?E3naX`S?_YV*{o1QFcUr7Frn7JM+rFu-ar*rWZMyz1l6kl|ww3Px z;Hjv+DsOv}s6>_OlN%iDFV)X%<6OT}y!YxJ|A~|Dd2vj*qW@6^ci8S3af{C$dhak9Q&Rjg26F?SkA1h3#?lfT|^-Ufb&p_QkZj}{!2X`k38Au@a7kM8-a>@u9z zJ^7*e@0j?J;u+de4|@uq96J0pJ4vSfs_`qcs)?C3m{~tS~^SXRxt5j;_ zg4~vieYe&;l;@4%QNCdxbIVxinU2o(V|Huk!?abIZB1`I<$*JCV^E%v6u`B~ku zjadP;IX2f8uXf?)cZ?JJJ8OjyFTY&$ub(e0C!J{wnCvW)*3V_>c|5S|PW7M1TfVFc zn&bbs(0j$@eh)3n)%#~&l|Oc{>J@)*tpDFogZ)c>O?J3CHKbondZ|Lx%1y?nvt7@2 zUQ6=W`cgt;@!ZHjwjlOJsoflN{NEY!7Hgd^dSCKHF6#Huqw^NXblhrsaZ!cw!y?mF zZ2wqO6?g0vvx)HeQu3sssBMGDZdXg;_2L37B0Fw(ZC0?5bPS08^HkN*@#~F63tpVz zT30lMm3fuAGS3<%pWd}itSya2a~d{R^0Ce9GgzVXuPMrqliBC%i$e_MX|{<0L3jNn zVv66V|IjIXxSuUXXa@6CPY>z)`^=cMW*Xf3!KYHl7gGJ$`taU)niu_jSJ^HQ`FdM< z-#3P>7rMUsi>aa~K3K>t9HE zSb8k`_qs;bJ8Dz83~E;AeCa&rDt5fd{YlrEE7u$+x>?2eh+cIGG_&+%Iq$D~J>5y| zw$*dV1TD`l%X1N)3GBig4O?cs_;`IrLi)7Ni5`46=Y*@)G{$r!OLmPpvri~Up^R*`P?74PqWq0_^ zsLHCOixs~otPNeaP`LY&gu?#%35&$L*+a8Aj+*RF;{6k`RqB!9M$N5Kb7Gv<_^-S= z;nn6d@v9vLBMz$vuV&okyF)_qlDyG-8+otDD+yuFQCY4mwJt}Pxi9cNyfy7A*E=I| z-cx~JSAEOAwROeZqA!m3uf20QZ*;VK#TMtiN_X7(SQ(lF6hNo;dUitJ++8&M978kgI`?&_O9m4&e4#cvTWPoA4hF#Hbu+~IL*+#$m{I>kN|eiuYXP++^u+z zN$)00;*Q@D?+-CNox@@KQQ&QjQ?Iqe-G7W-M<**BdThtJ=-Gw#4|2C&{GO}s=;6L# zw<^yxf6nW6meEr~#Qiy+w=tSVxBe;Ol)vNH{x)HayZ4U;eG;mt&gsnma8Pt&kw?ji zEyun7P3ozdUwLuL2bFIU9gQLH9#3F668Yw=&bJS@)+>C|xfn7vq+gY5hpFAC;MV_> zUgqDrzDTQMUY~{lpG~$cpZB?$?6X`Lc?H*R*02x_42b^y)D@OVKZQApure=FSLRxy zmb^ZL(NSSegW!94CtL2Or7QD9h*}kn`3YCN->jHGdb{q}Z{L-86d!l5>3&z~PPj)So*qibHkJ*X>%m2jg z^Wj4w(>r&2J?L4i67_Co*QKt;zNPj19vpo?XX`qZjNC6}vf@`n8gfMo-fVx>&AZ== zqe4V#ov~YX*rdMJmokqPj`V3;BqTL72TTcUQkYsBcr4KL6hp_UGwovWMJcr+ZT#PJ z9y(2&dSK@#bLLVN=bt4ZiL$MCzOUUqFLPb`Z%(&{KW{v%ty!3sRsCVHIXdI!#K!5f z7l`bc_OLyFj;wKfM&C>uL;2Nr-kT{ZXV2SRxlHZr+^kn~6Zq^lM$HmsUFdVLiN(SD zU&rPIcdyM}tQVFqiEKQ4IK=zEjQv@!U&pN19XXj>cRu`4j4|)&H7U;-EGEh{d|(ph zeydv9?^^ucG;)5M{6;&k-CQ!?jO=YSY?mxFT~W@HbF*=ug7oXl9lpUF*B>+gb)2^L zyK_Q+>c5kzvkpy~=KNdJKjYkX$x8k^Uhx64d)N~h#IJqv-}Aj-h5&1Ki@~-suKo6N z&%IGDJJFx-*wYfA+Fq~Ie9rUF@(j-d@(D}UmF8_tUA z2+Ll-Yg3fAa{pPLDYqZq`I@qswVr?G(wJYWmJg2v-8rbXWkO*L&q{J66TsF%HtJD2i^={MVZozQ22VX46T_vh|l# z=kIG}nEZMA4W*clDRv9rPP==k;lihyir0Nd4*PR1i?ETM^T)%z(nNk!Q~QR}JSWz< zVoe)EFCpxXaMdf(4a3O;-D>5F5D z$)CKpPW`SWI5lKe?fL&1kpIc+T9g8 z@?xpcWhR+`Ykn^)rYeS|l!Ta1y;qv8a#O?bu>8k4TjIZ7m=IjMXKTUhkF#YvEHcD% zlD=$QvbKC_-=Z~g8d^So?kR>YUr@clXIABV8@bF3XBPsn%ux>UR9F-=i<=gE`~?9!LNUIhYt4nj(fA zuq@;<1r1IRUdR;_oiDRpv@ZUO`Q}5g{rGyZoEiB(&wHMI*#2%!!Rg1{N6S|~cdu1% zO*pjXp6uG+ev(JG{=WWkdbfU`c>LqIxl{eV^T}^X77Baa@~S#Loo_+JTZX>UX^}JK zABgZBXnDOgI`)UV_SDF|9E)##N^Fv^wd}jZY}X;tv$=12`c6kK3FX#}8+2{F@6L`} z?|0(!+WN4)uaCaswc}pMW4`*dgNO264-fBin!Dq4@An`7d-~7^IWuvCKwW*YAj7+w zwtaK-_ubWh>;5eJrswIywf9wS-B;1Fmv^tXoGLrV=KkbMUmtbc?)&P+xc~Zx6>Cm$ z{x=E;@;La&IB4q}<(4-(;j8Vd>sG{do$wM6l}?q3G=8&q=80<->OC^^bh(`rS{zm` z{j*njxzrKHdsA0y8`Zh{dAmF_=rT15|LE80@O<)-+ozA*p8xG!^rokZk-yn3EZ(;k ztjNsHbMTb8qxQ$X;Iroj_eb;01YVa;wSQjyod53U2|T}q=iN~}8&-cG?llOt0Nk}%dAx{ zSj8M>!&}!BeKm?z>z-PfV8F-3_ge1XZB(AmduSkhDWc8&{}<`ZX;SZW*BlD=yq@{` z#-#EG0Kd8hM z-F=HgBGg?w(Iw9)4#do z`mfRxY8=z<2AW;g&b=A3_ol|2%yaja7Jv1O2uz(eWnYEpi#Ix_Gd$Ab<<~}D&%X1K zmvO1eo`|`vu{_3+2A}jQV%0xYJS{zEJ}2oweEtK`#|;g=_ojx=+1Y!>DP>b4W_}=kC*#+n#JAmLdzjzskquk^O_i}%u}1k> za(|nWwfxoZrxjI%jD(LYFunEKVS+x5&ZTD?N)^)uCCrggs!cD=lIc_;t;!>d&6xDsdh)-){p zn31?QMu2;EQ^6w6^-Z}K+EO3YO!AIDyFBptj|>U_?Ab;2yE)GJh8Dz4ITYZhunbTw z)|+yx_^!QlgXl+{8E+Omn{uh;(yPf2%luMZmaV^Z_2rx}u_}q@3Ei_#Y?-^&%{@Kh z?DnrYlQ(~ua_@nTR$bYRPakD|tTteO1KSZj5M8t<7)+pN|ctA4fTmB_rQlO-p%TWil%kzaREd(wM;r+YacAIkAF zorpi>b3D3r<1}9j{_loL*Zq2AO-@Nf@BO||!Xr8{S84zKHc=Uw6e&UW#uaTZzwFaL zER`@}uk3g0-92l*yb9h`6+kuKt`i@eew@TH-%;(ISBH$Y*3#-n z>n5jNS?2ccwZYef_sdp=t#)I4YQ=50#9wp6x1~DM{ykrRMQ`&_5xJ)!H(D}3JW5!` zSbIP%TaUNvXpyeKzf~J#zkhjntWoHNa?6PsRnfJNuWyR_;vCeQ$zZ4@QI{;bqSUOe z_xzm9W2I*A4yUiJQVvru`LlWP)>o3dA{BV|y;^fkNyPndiOSBvxd}Y_J;8~77dY4H zRMm;p7u>83(cRDywNUDpbY#O9$2BG!x>MC{I=c^lmYnJL+~)giuU@Ms-&szt+VniJ zZA;(22+=6!KS>8#)4LzvuiLI0_u;0xJM)y;3T+A=A=9EO=6Afhvdyn3r=Eu0sxafRh(3_CsrsB-AduMp-T&gLp48KrvefAD>P60nIXPI?Y z&fT3C?KI{7a+xw|SR~jSj69pQ&Fd_0;$A*2#fmfWmooI7T4y|z$x+$iJoDlNyK>GN zmYxR(l8cXUIN0VzM($ZLH87`0YQ=(yx_gCJ^Lxs8FSgTt{DHITfRNDnoZ7x)&UGCi+tB7Vxod6Xa8vFux@uBrBE)ei1nb_qqkgcpj7+9ZFH?zu{Jkwi^(KQ2K7Z#SZ&z*9ahRIh6_Hc ztq}b>>C^1C9VSeQu1~6DY#+NYue|c=exu5!6P^M|alR}bpRcKzoOI$n7(1a(+hDTT z()suH#QkW?aN%08;hf95NqYrV`qnHlJ1AK)ZL`#={u6aF>s=lSbj&>HXCS8{7r-KJ zthYi;J6QT{ew(G~WxkV_KO``*imlJocC)=UH@P~-=*7CM>!it#3QyN;`}9S$=H2BFC4XORyy0WJ=imy7Q&$Z7I=1#j z?)G<`FSjc2^|J4CIJnvw!k$Y`<bVrK7F_68cBn(nl7)~Pcs z*I3rN&u^P)_vk<4dQB5&pY?Srk9?c1I+Zs~G&cO6U1a?;>BOB6UHo5@OgN`Rv$-Y6 zb&5Nle4Ub>H`#Tk@8Ttn4>y}UylmnncYitO`_+qMrBwf3cs^V0inQGBvJgohm6;Bk zn(|LaPZ7>r<@RmY41>tVkn4Vzxl;5vfBb&MHT~sQPW`T(rYmEE+4?)G1^9h@C;#zp zxaO0(PJBy~x8V(wiYE%Wde=A(MEQRdJ!NgW(`+`H^R;106D9JUs=Y8w9YR;Rth~3|babe)%HRV&i@d3|@LHj=tx+^3C&L4*ws)SJoCpe7`ET@5aiGV3n4eC55|AZE<7{ogB^;`)`l_ ziB}?AZ?2`9x4dpV&DF;OhMYH@6dfIRn{wHa{_ z{zh2eTJWpPzTl)u@cW7V=R~h&$b=TKb1how6mW3ya#xn-b1pB_4(`8H{cie^C8`ac zmrv*Fg-_LFYns@V93QH9@b)Ta^|dqeS4F=5`APA{X*nCO)i<7nw%Y%QTA+1kht1o( z9sJB%{aZgLrqA-2k{LP2?euTXjTKh}t_q7Zhc%QWMzFLW_sLlLtp7X@eW zW;l9^m3FADQd_?4n9bVo#ZRId5;tcVm5wCzE8VxFJPn4 zNrk|plCp3h5rRx6G zIT4qk#QJ=@sd#lcITY z#JpNxNwH5?Up}`JR^UDIe|0_2Ri265#cVE#i3hajSUGbkByHN|^|E5A&i9|EIc*Jf zQ!{Mb|4londBR`N^lR+xBaz=X*67VM+V2*>f&1_q9{XFKQ*?iP6uo!QG2yVq-$#G7 z?ryr6kbk*-ef^O@wV9_MA6&FjUUkX)r*b!iE}hnLmwi8Z*|s9ykiJ{<_a&*uJiY&7 zD?_?$N|@01d3v)IPQIOq8~9nPpvZx+_g7W(4t@A7QPfk#vGZ(lQ-?RZy* z^I}}}pYG0sEz4iUGv#b#$mxl_J4-Ho-{b!e!ai@)I;SF`a`oNj*fnY!ReANVtm5Ay zbx11ye89uJ+N6nBi<@^(_HFzpP^$gDWyY2-iHjZYow!`Eaq>BvTg3)yv)mp?|7u^E zxNaKH#;u1xI=8C*<4e&F1Y?_w7wz~;S9-Mt%>ip~enQEWA77jZ+9#xlVJh_qe zX|arcRy+$k+dZO$*IZQi-&mHX=Lg>O1-`2R(3IWmi3>x~ z1^xugEeMxe{-t62Ro!>;T7g??EdNHX^L)Cw(d)6hc(49N{*Rm8C+n=Scyhe=cFimk z>5GP`f7HK3Zf?-8p117y>@OZ_8@}97-w-kX_R{0IU2FEO%idWxr^kL`MbjSt(>qhU zV`3k1I;p+P`eZHe{c3OLy?deCcdW_#Xe3y-sQcf?(yBY2;`|z$<)5af+C1A-v^t*c zc1#v0?}xRsL!_?!St;GQKru976aUBU*}7iwdoN$ym@=Qsv3LE?lUYk*6?_81`ollI ze01#k2l@R;?pIzcSyijQdRK8+-?WF(;qTl^=4M=(_VF&GsaAeX{PDUAkF<9&Bpv;? z_g>q4%}JjwmTaGRbXmfrZ|`mYh=1mjKQ6RV{gbbd$>sTqT5j*nIls!CTFEZ*>XiQU zACijiK1t^O63p>Q`%<~A>B;`r_ZufH?(?=e>G1wKckw>mx5jH~Y8MVq*a{#KX6}iQOo;9|I!t_PP0yt56|NaJk+ziC(vh>H_w}x`tX%j{Jw{Cerj+1 z=$CKjrm@>&`TkOyN4ju{9?9&s;w9Cz&Bp_j>yu z>wm1>`-6XesFE|5p&rlx4tS`?#1e6OsTr2lC1ymfE{UEVYg$xS{w((s^RHY#bvx<1 z`e!D$^GsHB;HW5?ow)W!-t8IRc+HPJesX^KDwW)+TbABke$Zi)SU0B(ngHe75u+}2dRLKOADE_@L{$s_+#S=SUwKX|y|4i4aCry~6V&lm8Cdi5L zy0)jk1o48kn^-Yg+xho#|&E3i{@@H0y5S-SfcZV8X@&`m~l|zdaoY1_uuRGrHZcd^AFRxGODZl7A>9A)>EMK=Fg8Go~!4` z*L<~7%zMePS@+`a&5NfjFjiW&wzkK9!mU>k*DeM9HtKhsXSZ&B{O0R#X2@SZ-e<3| z->v!1pJ#tE4p^|ReAwerBWffa$Mp8qhuufywAZ|LO|^Zte&!mVCDUI2{Jdq6$tDB& zH6F%IEA1!SuDdX2%F{m*Yhs(su1khU*cz?4H2dfZrQq{b$?pBre`HL#vP$7QXh|Qm_-nvs$wq6#M$#Xm@XDGMX^r!xOGv^7}Y!P#Is3}P- z5zb}mY0JHpBD}_H)0Ea@74bXnthSr1s`r1U7Q0jvU(oHN%%Rm`(XWplmNc%NB^&)o zC2H5i^Ugshn@&rdSoPq%$gIyvJE!`+ZoJmuJew=%@&6C)hOe%z4qty`mgW*aw@I>5 zt}9m787!?i`)szW!g@*Z8OaOYu2Ai|(er@mwx&{%wb%8{GvcyK8XcQ8&DyOqDv}H? ziXL7mb7q2V>qh|-ozkv}OE-J-gjoq_?_Z&iGHLZ{DaUL@PlgD2C3J#Y4UliBgZ&9u@#ayaV z_?%(-r&WEmMm?MMN8O)y;K;`4hlflqm#hmnzJK_6Wy71&?x~+wOl@C2yP;0HwjlJ0 z-WylWDdx*pA1u24^W`SxsrSE^%)Mf6fA9L&FY~^qd-dnPW@wv}WxzP?0bBbyUvHx# zEw6~a5|3X=*{5etSo^lGSEoO6Rs90vJSK}Dk_{Ks+#bBhZ8bhF!uTuVL)0O~?`B;- z?WcLQ%(v9=)YnfvqL(38SCIMg$?USF^*oP*o_ssLQGjRe{&mUmysb}HnJa!NWBzJA z`OJcUoJPk)r_OFoDQo_9-hj&ONOrb!t!H|7dXHi=d~t zCgz5X3beeRmH#s1)++)e;PYKz zkjSz7V$nsumQO~$(mWn~u20Tsw7La!A7$Ks@52A-Mk4$3mUOF5&2wI=bh&X3T;1i*yzvSVwEFV(=Sfhl(2tu@#ZK?>9&*3{7h=jhUWjv?6{b(hhrC^0NIgs9mPxR&VTEJN22_xi^A4 z&fN{|d9i$(DRWJQ_~tdi_vE#sg4kHS>Q277of~o7%V6v5D-Twss`_wkll+w6^i$>C z8>NgpF$^l7IrsIQ$~SIb7PmvevBro_I^M zd#%q6wI?0d_a7Bm6?unmW+cPxU8m2zFrB%ZtAEa|6Fq_tB)b1|9R4Nq>7$mf`r2nL zHeOFEwfz@rKFv2ieY?hKr77cfDf2U@6!yG1T)xFt{><9AWiiSvM=rbkKhk~2Z~qrr z{T*)U6Zz&oKL3HU+xWN8+1R*=88N{PWluLv+J4A??%9{AOO>W{if=pFm-pIBTG~`w zN3h@FV}pCVLE*f@Sn3k!!+*e1UP{>frTR^_ebtM1`mKqcU>z0Am%jGOmRunZ!y`2X z3_DmBIA8WKHJ@nnYDT1<5~qmGH^tCTU-JU5>g@4a{k`>yaI^Lu@wQ8*hvdue#-xcI zS$DbZ+O-s|H3v6n6*(XH^Uh_umFW@F3;OS-v=?&hxSrGFe zI_CLxXRk^^OZTyShqD{!2tF!ukg<~um40)2gTkT&HpTX3aiWR~t+cM+k69Mp_x$8` zfr&BZ{jJeDX(CEfVk;G2P074*;H={_yTWxc}^D%X4PArQ5{}KE9u6{(RnF z?qx0WgB4!$$uF6Iv@Co!pUySTX{XdmS4%LR;>gnCulM-HwL##Sz0fIRrGVs^c}-W3 zM{e!3{q-<9I;nz1j7?d|_^xX7+vZ)fR8y}zJ+u@_P1o*t?GeDsDRqd+zW9=O=W<4c z7_~{WmR3BzQvG$hywYWdxW%ezXv_Dl-SV|imCuxM#RnHxD<0v+x@$GBB{{7# z`L?lk!@Zs>*;6g2?ak{u?Y*UWpP71zjrN~pF`a0QoP`!y{w0%35KSYokwy zzV&Hq-l(`O&&4{FkE~bwQ!&#_*g400w+&zJV}=~=Db}{$b9CbVsm|=;yAveOF3J9a zvF}&fH#N)Hy%sygf-0PkwY(Ld{A1bKIcwUtpEk=W@BPhw^l{Id6!yKIchYOO_Rh$h zR1?5(ppAVigM za0nT>1rs%jZ2ESNG^!m8nd zwcIm?UySby(-}iD)~qwT*Dud{-rLaEcc$<9Sy9R?7Z0t`Vrox4xbKKe(KEJSEmzhH zGCipQS`4}sDRV^&nyk$7H6IilS|t#Ccs=vM&dz;zte7@)Chj>WoGl-^Sx)-nhdZZ^ zTF&Oq@9YRa68-+6Mf(2g9_{v{FWa`c|G1{N!ejmtJr@?!?-?yqynL7MK6H`mnzk>m zo7cvo1CoAsH*d*&9>`z7COXx#lr`e8w)t$`vkyfYG)~1uOV?>E2LItuJ4P08M{A( zlw_aD@mk+7llM;72QKdZz3;Eiy1IO-;^UC_XOz!gx_n2|<^@!ni5 zQ_FBpiRfo9#MZ={6&;(OnCr^!eOYk*Q^{Y_^2Y0aS1TQ4EI-r15|FU8+0NR`K55Z` zoNv=N?BYl>^o{>}Y6HeNDi3digth>U)BVppC>_FWge41gJ zuaxRG_&+FL&uksB-kSA|fa;9kj`n(m{=DAo{HBSuNM;pSz{3IV;#IQC2th!OgJQYNF;!?*WM;&Yt1Et7H{Dd+_TPN=qWld#5idWeZ++>XrM21R|E>7@cjvP1 zSvyB&OP0v|UX!DL^)w|IW#)vg-+gUKVqI5%rF_bnhi~mn_uqAw;+T~Ch0DM)>e*MO ze|FC^_gpG+$nAI2n|vdaA@R&%pOV694`x_evo*-^9XTi3aB%jKuAr|0zat_x`c|yb zHRn+OI3Z5q&D4v>u9R~GaR_jST{R0>`a|#Usnr?I#)s{fedlvdP0DY%!0z%tIVD+F zz3Dq+#k{Vq*Mb{o^#3q9+qCf#d(J}rOTQvoE^K+tvP!mE?8}@5Cep_5irn%n_+k#` zCPsEIbvQOtSgfji#WRh)(Oa(XYdP}T$Ql>tu^C7j{b$kkE&OYPhRoNcgt-8XR|Je8H zyC;)2ob&&7c$xg#s`mVdjH5HHZ>@I;UGi?@OTqf%%T7;!og0&~R`$Lh`x>VVqg!{c zdh80}oL9`T*v!*kPT>Mi^x^c^;;h$f3<}L>&DCIbw@77E)W3N*lG&qtfd#i&^|Kfw z8SjU&ujgDondR-U9Q-?2&tHnwe75kl$3D~JzwaJ0m@H+wBqwU+?mVAe ze=8xqG$D^5#4%R(0P!p38eoY7pSmOY-RMrPugt~ymo^_Yx%2#FYhu(_bImq|FH-7!ugc=C zi1&*(NbG+7(dHfF<#(@DZa;tW@x~(O{&W+LS+W&2)0%rir`}N3KKJd0WbxTaUd#7n zH&)u*+hwsbEAOw+wD1G^nzD_NpFX@d6)ery4NUcR)m*9W<5=~yx9H-jB7N(FA6EWi zUFdl+-aXU%fbxR4E&x0vVr z4SV@;t@!d-&Z8R{7d5T43$M2Q*dYAl;yBf_*$LNgB=5?)?*3f6O(JA@$c2TP%C_sL&Z^F_xDjPwbmjj2 zs}p-TA{I1CaL?ZOp#AKX9ILdC6&s&(GTYR=vQ#v%T)?1Re3-=}qr?2LP`~yxkN?pY z;bEN-Urwj0Z&5+3Zib zpMPwa!IpacTDGK5j`r26wKc_iZasYy<>2k}G0N}9GUrBfLmOX5y&tc9zcZ&+r+kdk zGkGhOv#WN!tKv8AZI9X}T+LQgWcyMtFSdbia&P*gnLEr+o%fq6w`a{e50)2G5AaXC za&A(hO5c6e;JnAPWXf6IG@JBJPkOm>U!(5B#B$vi=WGujTYf%?L5Jbfdf#fpCNox( zM>FUCR=5{#`f_H@Eg7l$ln*@X*Yee!&p&r@xyk{Rl4mj-3opEX<6Tm1rNOJ9vD2-u z{JdfNiZxkPWpR_%GzEPQo4;D+{>5!c=eImm>TP&FKaM%!>5c<}bv@k?;&*#Iwwal; z*O*9OdRM>R^kmin-qy9M+Zn=IRVTtzh z?f<;pX($&RF7?b{s*BxB56v6W;m0OgaVqUy+p~Pii`kz_F9>r#F8Eh+xMy`*#TMCQZdAY(kPss$cIgT-zNeCBEF&w7WZY=YbV>=HIr9HP~;Mdp@^jMPT>zMBz0|7RPz)&vQIa zm*>86`u6`t=gxlKRenilhDS(F(Z))@#5L*f^VN6Fx#G+6M^xJHX89hT)LA!w8hbyF zQHk0R|Ki+EriBg%Pu@&pRFI!4!On8ggzqwERq}-Q^$K}y8gsRGtG|4|O~y>`pfR7dsM*eR708 z$%t%>xAU4DT({~bdxu_JXmx~eyrxUj+Tdm4u4WZM9((!{roNg~cx4t_*iykmze_vU z&z>>E#Nno7)u}yS{EnsVi?siJSoDa=#Ms-$e%Z%rBqgWZ`%@Fpz3zZpguCXt374;Z z54q!VdH1ck+xqL4HvjFpb|CHX2I(7-CAh z4BNw!e{h$0c!%MRQxiA8E6I(Su=%gx`XUj%6JkQ!tRuwVG6)8BEZ&*-l)E8ziS1$2 zpSRf#a9mqAd3CFwo`Al%@4SUJeEjQ$JQGez{F^0viIbz}@r2Nr9JYwrWe#l4YBwLP zRyka>H)*=SuQi3KmsBD&G83+T<5uGgJNrsjM{u6-^%=J|SoiMQtS=;(b!D^nv5ba| zwio^P|L=ULeecGXJpEioyNkcGFNr#t&c|prp zH{s7egM4fGnv|sN_7AM%-Z)N+xV(G$m$wHm)D*B3Km2jCcU^Vk^mHp_=lkg#XJcnB zTjFwuE$-b`R_02t{C!96e1B0@@}}_j!vlr+hgFp;*B@|R(`n9d^^MoU4~MI{cKzpe z+Pt3apc-KwfJ}cwQqM*)gL@NvF`pk z?RQ@sc@kf|FZ!U-7bVP6+o|qsx1jRqOd;d9PdCj`U$G!LW&=}Ya81vw)DQYkPQ=#m zY;K;L5w+}x*U#lrNp7oJ4-`m05>pWV^;_kwuk^`>N9Dth^?xw*_{e9~wnM69&CFzJ zHsQkPikv3d1J~Jp`emifW~m9^bJ+KqpUElSC+j&}J08Ayl`YA3f+J!H_iS6HKHk5+ z#azw@PV_j)Cp>i#GL=~K*JrL?>iMVl4c=kli2*sPxrHI((<#V4}v!Y z|GoI*-4Fd6FU8*+vG~ee_G^E~TrZDrehVgd-MG88c}@UB(@pIkmpH8dFM4V1=y$6% zDsZQqrDUt^)@R2Z{VMkP&1IW2Ddbl<+nfnElVvBuIzW6np;ZhgpQfU=1$&!>gt!c-;XZdR9W+| zO6KcE_eCczl+OCNbywBv{`dt_r57HCvUHjkr_GjbPYaPO|8n>0G9y3n#U(HFoI~>W ze12|adM^Fy6|;}}x6a#$eot#oYu|VOYvsK?#lG%uew=?|=dE&RTE(~K*r{ppZGUv4 zP4{!`&-%7CHe{b&-mVn}-A(sJ4SvjIns5K+p<8WO?k#mYUC@Ij>g`g0DxzGac8YCA&0vVAGEkK!@jxMx74nqqp zVQ2wfBmpXcprwrkox{))k~tuyjU~jnD5Z@BdKg-Qyg|n>w1i|1s0$%cj^aW~P>>;~ zLqh{lTA-s74Gkd9g1FJp5M({rL5QSiXaGujU_oe18ybQ{=;=yBNc6&735rLsgOFTl zh@Kt|4MCwxS68Bhr4hEUG(=C6hDP)bOCyx9G{P2^Mi^mfMDMVKw!ok;F~SnucB88+QPQOewy-qD2ul-sr%Mx*utYS(kn%XRfr+RU z4Uv!Br$-~)&;%tcO|gZg2}W3&(mO0oQNj}1>P1bL;GM7FLKIf2gWJROOqZr8VQGdf zEWyoh6jvfI*rZF0gWK1zwwfWLaf_5Lp^bK=bZJKK@)F#}hPx8cz(sZ?M!Gboce+Gr znHyqjnj4y9l$Z2woEw^>q)Tkgb3=2Cu%veb-4LaPZiuakZivxFH>7tX-OvIhEG@C+ zag27lp(VZ3CA1+9ZEaY>BNr+6SYo70aPyvy<)sm{Ar5h+kpbL6$gYG0H=-mmG5~dx z=;=z7wz`oamiDEQ0i=3DawWan>PCi;fP#i4wzj$vMqAy8-feXwl(xDNwzj$vMqAy8 z-feXwaI+g$_ZT4>yohvZgwa+vGNyOBG)C@?8yQ35AEixX1Z~bErAu&QnVz`^I&2C} zm(Vsbsw=@QbL2LW5xB8TS68BhCA3Y9=1Nct2*s7)#xgx!X$neW@N@}n6QjBk+%iXX zC8)rnt1D5$651w4b0tPtf*Z^9bR~2s8k#PlZDLecf?MV&VF_+5)76zIVF_&$qq!0z zEWwRsdb-jaC0#<>#Hg+Wx6Dz(65Lp(t1D5$651w4b0tPtf*Z^9bfpDKSVG&xsICOJ z%u&J;+*qcoD^bD{+9pPGB}Q0+8_V=`CCZ4p5w;<9BXG+cB`oPZsBQ#qcEd|`OKkNx zv^kHc$BpSdu5Ju&cEen0jA-y8+C;|C<~*`1>0I|18z84kW9VD}O1d;QKu?#(;7I~H zrb}Z(N^ma+ zB`m=m54yS%B`l$H0cfto2utuJ0X#`Ny@7@MGkCANN#F?dD-B`oRP?=eQ{_ZVaA_ZVaJ zdyK)81oTXo(1k3J9)&TsevdJDMgk=)>D})!M(Ot$W9#=AWAuAKMJyyF6~HUQ6u@iO ziWT&|GgFEcqPZZWU*O^@hzmON22JtM`3|T(&<+fE06d5b+KvSe;RbPm+g(9ikQD<# zT#z|=5Dh68A@j;XT!!G$pdcWWUWeA?h2;wq? z_DBq&jxmI~1~Q@?#043%1<{Z!0vUG<;xYn{>;-W_#?C-A#C?$QpCB$Ha7hEAL2aKP zE+cSm0nt!CIL3pxjKF=#ATA?tZw*94<-t9UATA?tn?8uk2;6E0(GYn^%P)w_*Z|50 zw_bv{Ank)7E@N;F45Fd(uxJ67(?MLuQ1?N~njkJ?sQV!KC5X!y>b_V7edqkryb=X7 z1Ee)EXye!l`p$_Zi8=Y{uoMAGDM4KNzNsaNDTyVC3MLqJFK8$ll9s?p39(?2OW!}h zSHaNE4my1YUcU%c8D!1{(ieoNcED9AOxDPZ3z91IgN#hLAZ-BsAR{9#$XKF&kdXlw zBv|x=3@x|}!7-{IWN5|(iA?<JHm{`@E*A2 zg2^HUB$7>L23(Nji)0g$@t`yWGXT?gPz1wdi8mgrN5DfMFtadhLLT`DG9eUt=0;qQ zDMTbcVYd|2bHr&WxLAS7Vowq9$Uy`dc>DpT3&SJeA_^vp6l8FNu(}i6D~IXAFcaKM zhsk0O9HcyMX~+fX!RrTESaLzeAy6_lQs^P&apZJDY~loW(_s$7bT)F}6CJ#e)oM5m zg)Co#Nn;NTLj!XzLjzFC4gwWerd)=QiUGti<}!qI+x3G;2`K#0X9zARVUEHG2t(w4 zDz4ORfZb(CIT`K-L|QZicR_Jm3@+he(!@srxVnI8!}JbvR}s1RCYao?`2eNX!n6xq zRl}S@ybr(~HJCOmrh*y*FliD@MNZL}rh+RM(oF?73t`%@n2PLHq!I-wWgz8fY(WgJ zQ*c`VZtcLNapWjOvw)m(!Vug)fmwm+MU7X z0MmvUaO73ekd-rdOhwLA*rNk`X@;%gh7?5L>K3=P;EoGS8oRXwEC3IC!%V;oE%34y zm^6|FhL$E=hTwKY5NeZ@xT+E;)yZw2n248R4(oA*)}oxY)?hfXfKhS28lN;4*@Y#DltCW?V*)F?W=n2(Cy%YTRM( zwGs3zQXyhwXvAd%>&;>5a6neg!2E+5K`2cM>}56FHblmNta8C)Dsp~AG8LOq;870T zMuFF+z@(8<5cT2%rG1GMIflq>I5K0($jFk*2;3$L(htH`7U%~d#UN4ugO|R*yp0)c z;4xvCH0hy&D{0a+D2&axjKHG?LHa?+*%fP9gA^**voXq00A>K8w8D@A2&v$~6$r#< zKcx5q4>Q9e1dDT!>vhtcgAykwX%fkyNX0nzREDi+01sKWicdck>VRU4v0>! z7Wh4m((1(SE+oewy8ufnz&{oRSuz3(A|#Jvi!c1+Lq_0r9WbM?r&uIsW3d3T0t03O zM%scb$$&}YcPnI>1WYX!qX?JBNEQ%qHh8fEZo5z#oCKp29xhmuv@v*OACFzg{zCEr z+*CxBWei?dfZHgPQ6pq$6W0*NRl5?=z#^FGh_2#{@lUZBgIi{>AVBsbV!DNzHLfvu zk_2WSW~xLP=0b7~j?9GIK1E8RNTm}z+Oa1l{EbXwltv~}VnVWufCcy)X^=Gou;9RM z0k+Z&yJzsXz>HBw&5**DQfu)yq99ZGFfU@amOvPSC*5HtV5S*dZ5!P$@wXndFlG$nR$+R#hI=!esF103FuH8&<;jJ zgqMuLv-(g!xn<^*q!#JBK zuUSE$t$bdSIYZ`^84_ZdRa1zsz2L2TEIK4Ax?NpXMKdo1NYdR=r-W{am6tYxht;Q2aL=k^G2ZJosN{Og3R z(>#JEhkB~4Ja#R8vW@Gx;y(YcV#+^6os(D0Ia>MSulEe+b&EJZvHr15-UB)g2I?Ky zY&Ljs1R4X9v_y|xBghg!{gC|7yi8DFDL?`fM}!+0A|l+-zziPa z=9ZvJ4;qi)m<6-B3=|9vz?)dWT!aLI#f4J_qK0C5GjRO_v&GcVSOJ7Vd?O1}q{OCR z3?2v!(#M&|Kua*7VGBxt`tW243TZe8JZtAP>+6Xb^^k?D*mJh21tOwNE#dJDS}%eTY>;U| zoWTZ?hPsQ~U^BJQFGwxQ%umrz&d<$FMDjNB1QFcVfsT>BUO`}Ao1rIo$O0bho;EW; zc-qVW?rBRi&{QuD7|>h2kXaSHt2LZTz&%U!(%Rn`_a@Atslj0 zsL2Ub%i&2*AZZGdld+|KVQGFzDx{pZG=uO!wE_}&9zbe+fX~B$r(kfJ zh4VoDIq>f=U^TwkLR%7mh*(xeP|?N`nFf>~*A|g=|BBih=^! z(hMni6I(<=R`8*_-qqbX*wqizR}99ML_l3293HR$C35IkfFV*P0?M^ew<7rgECMO; zz^kK8!6aBz!3aDi24R~TlH)hB& z##mtvPe9g*Lj4XemYjVe!-HKwNiGtz*#g-DiZna{2|pZBg;YwJ!kaN%7T`l@3=~Yk zD~TcL3XKG(L^Ltv)JjkuGK_6*W{H#&6-*$9&EOhQfJj4w16=IF`fphSVC>ZGH zX6BU^a~bO=7K2)i#o4)uB^g{M7WxH6nYpQ4rUv?{IjOm+c_m2o1M-R!kX4}KUO&L! z-`_I;RB&PRO(6R#uy>kqcTAz-Nigi7>fqsRY-yK)OKUprm19U9_6AURX;(cQ4rp6B)RV ziuOM?kEfQidNDoLa7=x>RBLxc+0|g6H69r3f zLN-${H!)VQG_q8%1dXwP+dv@I=7t6ehLG)T78Vv<7U0&Ng@u^{$TJp3#tN1O77CD( z5<-GBK`|&vo121Fg8I}T9iW5=?i_#`VxZ&=9%ThJ$v{rDgqmw=X~+dq4H7r8uuw2D zGXr}cCI)ggNY2d21hw1*@Abo7Zi1wt$&cJ}6Fo_TavS{QeBAZ2k+B7Gy*$A-@2~++ zYx!I!a|7Aqd|VtclT@9%7rkZu;>;?i#NB25<(uluUC!z7&Y|Mlx@?8!}ypO)SKGj~_Na!=LO zeCI;XFDvYVK0kFk#<<|LB=6KO>yO^Q)H$I%`&jQhCaLTFD-H;Ru!SUaFrPlSn5jTv z;vK;Vw~2zH3ENM!aFuWNaBAIcWGxrS_#o@fm!`Z+XKRv9W~-U{Z+dm)*yLF|Pp$rT ze>%HYNVSofUG(BjS@UL1KVl;Ot9y@L=rWz;I)=PURnA-(7Z4z?k$~ql-$38608lH- z*Aue=30|xlgi@P>Rw?4jen<^3Lqo)5gNcDDQk??oYD3d0X!HoY;S$V8QUm70>lY{w zt30UR3BsTbFR1SbqCpc=P(A2oK=^QzOu@@pu&9NrK*)h+UQNKWFQBtIEX*ww%s~B8 zxJqM`fe!@}=<3#B>{DP6X-e~iseWofab`|_o*`(aA}0~tXEid{FV0NQP2@rwh37Ie z)Gy9SEY3ix7{IM~s4L(}BE-`>!rK*G{2Cge*9?&3;z(;+fJP#~0SON*Fb@(L$Rvim ziLto?2!qrc8yYDXo0}?tXwW>Rk%FliVGLFcvjbEDn^=My85V{{3KnKY3g*TZ3g!mp z3KkY73Kr&;3MPgY3Z~#)zh>s93Wf$|=3rq96B90T@aizo@HWUp<`y6WOcX3kEENn5 zLF3*gpy5Q2OQ9H441>yZ&;Ti@uMDCMjTJzL0DxQ$G6do}Q%hs8uPlwt6+ohXZ}Szs z7zS@bL{C6|p;5t+pq6O}mNEsr7!Fqnf@{(QJTYMbiWX=RF$L#DXh6fF7eYf-z~n$j zyO8-b?RjTFH8!6t#)sGuev*nGGT zKyCmvJU|%62Dt>r2eCmI#5XcERj@ELhhzss(0VpQaIFp6W)1SSv9XbYsWG%BH#1Q% zF*8;$L7htlDKk*OlXO6Chek6+H8^zQ1wN3*g)(A>TrwfG89>Ps+~tXg2=x!~0d;vW zTCCs=hNLDdaQy~q&mjdqBnnVTv?K*nZDC}lU<4kh2a`Bd!BitxOQ2y-xVVCWf*E*0 z3Bo0&mIeyu;44T#s?5Q5fLKrrDp`yT6+o&$GjK547&O8L6$iUW!2s+&3s9o8G*B=# zHsk`SHBc}yGy%`ZnSiF(K{DX&VFn7OW@sa?pdt-VvH(d_BUvCtJY>B))KGZLhx<83 zx`QUhgM%@;1V)g9Ej*H_YL-q z3ZUd!lQ%kTyP{9Y%0Gb>C4WfeF2;xIrWM*Kd0Ag91 zT0m5rn{t62V@f(#+hl1U_B8okX{%zPyn$Y zW*}G)J}5JQmQ8@B;QbBxnhkjF zeCGPEFu_PkY?r~7Rk!LCEci|}2)7!1`L4=nRbt`&eD~z@o8;Fq?`HWVXuD6Nu{1|X zx31U2;L?+bD_lK?OEwr4UUNM0Z`tAB!W?GIH|O5}>htO5mFb&SeHW;5_P*c|_}OLA z+EweeZWBK8%-@P>vF)7RS6ox1LO;&;>U$>i-1mT~+oO%D%t~sH3Lt&rQ zqTndZE;nQ!8#M3`S=+jtpRChBVuO=yRK!o1+$R zpym{wI0i{Wok?ySo0;jC6lEsnrRP8vLm&vCg3&I5E2ps z1_}@!SRNK`XrX2fUf2Os52DQtEum^m4MFW*a|JW-b{mi!3I-K{5IYUb6hLZ0LncPx zQ*sOxV0MCNb8{nzyr~5jNS%QKXazaws5KA`5;3tr90*er(7mqtA(T`dv zf*PxM3Pq4KGy#yCXHmMhpasL=#bRj7!%V<~YEYYSk7XO0q0cdct3uI#%^y}=VcmG4 zb>WJv-^>RK1K8$hv@EQT7h2%lzPV(d^-rDM|E_KBRggdUuvGW&ZR}v%;UsIW5op$fc<<&%?y^qS>)6O%eY+ z-4jgOH{YAX85$UVvtCPcme(9}#_Iwd$$7J8FJYSY@_SFY-O_~SA51!l!RlCQLvTw2 z>Q8ua<>>C@=?_`%jycZ{tNP%}-63IxBa@jRb@oi)B^Z~n8Op+O&=4QK!4Bj(DRSc- zHlK@BRD)K)64Br>LT&I&vz>*5K zc|QeRzaIbma?bR#U-CyX&>jb|Iy!6ZEght~u)Lbt7=z|JFMh> z_GuBP=mv$r?ar(T9cvDB_U?6IcVIp6&c(9uLdv`IyWCq#6KdxLFg7T7t=MpCr?S7v zs}M)4er2s|zdWxjK4jI+77~%Fb-r}pT@R~jImZoV6?acOezi#^@^kWPwR_o1_q>dL zu`czf_p6`Xfb=3T*c41zn7Lq@3w6B`Xa)s@LAp@9$^}}_2NFeK6BFc0Rlx+jMgezW3YLau zeR4AubnOImZ$WZu9%x@i3YVd&eo|>pPHG94k%@kBW^QIqViDR-4O9543NBMK{nEV5 zvecsD#2o$9ip*lrz1NwEIb4>8Ac_1uE=v>roc#36Mh-CX*fC5bti z$&R4rx`F|hesD=@ZkU3hkpY*!Z)S0EW?nkD{Rdk8%B2t5JQkcm%kW*T$Uy@OjnyOz?p08h(T9mH|cD`F?PO7njG5F9Yq!T(J0?>4TS=Di& z&LKO)w}KfMSt4}WQ@;^~F66iYNVOcT>_&NS33eyzeHc3REwuw}{w!L!pOHqD&z zOC>8@btC#BdaIgGwnjrQwtJm|m`qHQBy-@~{Qm%8St{38awI;1eVaBIT*F#!et-ClMr7HCY z2uOFxJgQWhp3u4FNSq7TL#4D6JexZAsA*3*8&o+-+qjNhDI?yc>bASr){k7%B!=|JwEYE@av6+AknsYg?#w$Chz=;>RcA21_eco!*PrEHu75?{e)a`G7F3 zSySQ<&$gYr{MN$a#R1%6e*XTI&ukMr4&_eYt{s`Q{C?}VebWS*(^d4li#`@NH{+@H*xqF9Se9!sSHC)rP zn{Ts*+IxPd0vDEcq2m|k?2&IW)9&EoJO9w~RwnaoQ-<`Z8iFV1CUEyTJkXi0d3Qtm zBcF~r``QnE*H|fkH;M7&9PLtb>3!>W?Gcu^!&4EmmhFx6*%gu#-cJ)Ue_XkZZ`JwR z;j)Git*$?Kr=2_dEBx8t`v-V@uJgZ@UGX-|*>H;U&drzBRV@$X_DK?PSu*j2sC;MD zzXccKKjwVfvpf31w~$r4_*4SfAF`ckoAFg{m)x9ai@9-jS9&-3`5v-ZAanhL@ieO{ z?l18nYP0XUexJX_^~7ucfZMfRpB8+NSbXQ|jbHmVZ(W;gZXt9@`)U96LkoAlNXmJb z{$sYIoh+dOtqgKDY0|jf9jHwtpDS|Gm~f9GD>I^Il7P-Krlk>yOC(aCyyH z(7Yiq=;Y)cy*n-7BF6AMb^MU(|R1N!IP(e0BcYtM5J>GdZ>5c(vf4 zGpx}I90mI1D*gtVo^m)9mJH)5J>@P1yAdSKKG zqaQ_1JH6gdGTZ#x$i^f6R_&x;GDhFO{(2Jec&YMB?em2%HC63gqh9nlZ8TbNLZRb7 z!^4KJrkKqF$ks?`(So;B#n@m8D^@|rGFyUHi=3%slxWe+0imP6FS7Sv%uDQrOk&=4WMu(d$xXShzx z&yX&aIR5_nl{+`n0@*L}Z9lEavAU;>uQ04_QEGBiXrx2Lb-&GDW-WQ*U%oTjXZExF z%gZYDt}og7NAhgd%U##5UhQ2QU9z>yV7Y<7wujQswH*|+Hzw&(IuI-+8(;0kkS>5%pVN_$DF)LiE{@t;i=>?xO zZN8Z#x||UA=$N`R?|(r@v30D?=KB}V?YVTd^an%niw6hwp5^MF-YHuqe>wSi?3(N6 zUU#=|{3)9^joH>Nfr+k4_m8?K2tjKFSft%x;#&9_AIm2uD-ig%!>><_hG6|(*J+r;{K0kUztgldl$mOz7X7z!>2un!jp6h2 zm;X=7cK@IF*sS}<(WUeMojCc(NA6RIrJmZ$#g|rY{qbwdn(DZP8~n;-&HCd0X8hcn z!?PkoMrmV`T6*o2Uw@vw*&uTD=iDjFCjVRz?jw>b?Y#ZCNft-n!Q)fP=CtrP$bVvU z-<$mRWrP~1z+xp=jr_cI_9B^|!+tvQzF(aj<=E?Pk#aFAo;&0G%UK_}L{4oEnD`>~ zPSJbuo@<|OHnFfyP+t-fc6)E#qw+fA+B`2F=BXWrDslp|53g-s+rPYbv7?0Gvxj@G z-if$u_3FpfS-+Z_>arzxdmsM@@3sj(<;n64Q`ei4RPo_v6`>yhNqNO4GPouT>E=72UHr{GtNPPXR%}}SoV39-U_C*WY-e37B z%UT<6zGC`E=hJuo^ckewtz*A$@b9;vqL01W2?Gvp(|}bb`#fhcclT}=>$!DLC^CQL z_Di~F&-1zY`d?eEHaTuL$D{lu%`;DOVJy-z0`KyL=2^U@STOotVOS|tkOJf|3Lt{g{1sQm&FSKorS}cJkM^K6-kO0(+ z#1~7(#^y*(z~q#K#H56jl$7FcU%zf)*%(sqVf=4G;xEP1cm7&`ss2>Xb}ditS)Saq zsrUK0Yx{-&$esLe8`97?bE4t;9VadKFW97EY`fUSQ8_aB;Dt+je*gQ}{e|57tZUK}{=D1T@^km~oQv<)!y9 zm*3s_bMEJqm)}~>d^+^!&(GHE^s}=Ja#zU&WSa-ve*B*2%zb6Pu5}ublO_iTO_{!Z zMaI=tuHIoMK2Fv9^Ux;u)|U4_xo_5~`z6O8Eu9+O*L}3cj{o_jP8%B@9)_*Es~9j7 zB6x=mG?MV9LyXoK+%KP>^|!CNYjftVjgI#Ie6e40sy}S! z{IBj{U^Z4xjw_s8T<4e?m{#T1+2poqS<}L$OLz7)O>Asj+LWA^6_{3(G_NT?$ zFNt%)nmFf13}r_ip`-_lr$+dvotz zopkrB@a*R%|3&`Rx+JBYUh-~UUf;~i%g@ibX0;m zZ`7&#q{bir+5k&(yXxfR*w`3WJD2fcCOJ@{1s@^9o8~aK<%83lu92yNu91PM0%#$f zxq&Gx*&(&z3`~)eoH>XKPjW^e9`-Z`Dm?LYi(U1D^+WVS^%M1z^po{d^i%cIK-&dD z8wb<%Gxf9ebM$ld^Yrue3-pWhi}g$NOZCh2EA%T-)2XF`fdWc81qqOzPEE~BkP_|MDa0SJP;^aL`Xnw`p`~Th5)+jrTR79WTXb)v8Qwc!bgw1XbDPe|XTc;@@Wh=nEaXbzLal`xJd{q@PE+oxfA!+i4^#a;8}eNLY+fC{ zU*NydeDxEyvnp-s(wAwpA3rbh(4OnjcTu^sPdimU`v28&SJ8^vpEWf?CvN6R@pU>P zGQWR*68-onCeZIswvD2Hz^T(+_k${8MD}Y>KHojx=FX{;^Eq4pED{p*7udhqpj+L- zPv8iDzqnYg7>BFs(wV95D(;&rZXPfCuKG+}^h0tIXOj8G_8Z!5U@$U@peBLqlh+dPt>FkION5y5r&Vj{?^88;XuT7Xc zN6!B5rygD7d#TxrlNVQ?sC;sB=IQjfnNy8kci&_-R4pz$^V7)e@x&+Y;pcU^rIQXP zcO_Ir3OuejTio6HsLJvemqAnCl!_^(>Th|c-&on(bB<{^X!A?L&&C=x+!AQ?UV|?AzF^uNIuY zf0=E`cDK-gRk~&`U*0H4cy*%VE8nNRhq?E7!2eQ$QVmdDtY7YUqLxGp)m_>@H1EitSA7asocQTP}<^NB!| zA?vY5>oxxq>J9`x&;AnWuu98u(dHGgCEP7*axXB>Z4;Q&8<|t?yf>P0)8Pjz%6J!T z{l;c>AbWZlW9N+wv#7p#e@tFhIT`8iR+ztT$CP(^f9@II(|Kxfo7uOwaq>blci9Qk z*X*D0UO&O3&`Q_C%ll-D(1cx28b75ut4AD2Dx0-7<;{=P0#4VRRxCEosu7=5ubNwthV?>U- z8J6C>-4l?bvCOwh`Cs}b8>7`bPo*!Mbzz>Q9FLS~;T+w=2To-lsAk>5Wh?RZsmbRb zF4MK#SKnldnaNcDl1X27+D7S*Dt%Qxm(*Mp{_v<}ysZ`cw5YD{s9}rTPmWa!c$uEo zEcN4vGiA%~7aL;~mr9)Dl>2$_fw}>6u=Ro7Hx0+*MT>$qJ}m8e zaI`w(>Fo3kAHrfCxz}wv#C4Ky&RPtyZ(U8`AH$D$6gB|Gx0XL$lOw3kT8d9d9zP z)*LrvpQH48Z@GQe`*mklE=;<}yyoXm#VHpAT9fiN1=Ln>J}=Li&&?gcY4pq0EY8ZO zk2NP|{vB2ApeY_-L&P>$9V^aRnZ%Xy%l4bvGJYQ`&MC#0omPhL-_bJd+Kwj)6K3;> zMy)C+P7C6iz_oJe`dha;w#rD$)$Yj1&I^rCZ`uu%nV%Vka^KEbc**o{l>#8_N|77 z7k8ITkM?7~_vV*!=-nTC`)8i8VRiB;v0PI2$+@-p7sI`eU!PxS4!*x(ab|f$Vrj)S z5jQiVL(O|!Vmov zpWpBi=1nere(U0vU2(gf9((!O*&%Ly-13W!Cl?%f{?LE!^GCHMy!j{RU%V}I|LwUx zKMsezw-$=7&^{XQ?dzlzlch2ztd&+QII`UM_2$NyNhfp!d>s=%-*|CsV{y7$2$6d6v}#v@Z<1b}XI^D=_<3xH~j7 z>O$ki6@h!V71nxcOBr@0Bhya8G@Fp<4W$^={kpTdU&R87$98-`F*!^4IY*+GoBuxm&gxI$u@<}cn7>@5kj}F9@0nKzWfc!R*H5fty8SZZi`cZb_vVS79Bcpd>Px8Z z=zsU<>Z@aFe;!WZeC)8e{@AzwM{g#tT`jpz^5vmLnM~{7%(xW55Eb-h?V9|YqaPfFE4$q#sBii&z*M;{b6$D+qNTV_nkCTcH4p`o+-Oesr=!Jd$!1ufhV5^!TlDXaACSu1aG3O=`9y=eWalcI}kZ4*B7mf3Zz&MVs5 z{D1zN=>f{qO&$s8K0GyeWZ`GA=4x8|QO6vN!)& z8zOy+NzB`H#!fj^kCmMayG69UwQruy>1Lk1PsnGo>G?GF)l)Y;a*DiLBc{t|w&3_d z`H34DMJASsX{HyhlIcz2ogkVsQ)ac;{w6za@iosM$i$e;>D`jF{CA?JX8QEz8!>re zkyq0`H1X<~@mp@)ZvJlPa-Fm%y&He?^Zu_ll@!kS`c!0d%A>g_vz9%d_Bi1CwQE;G z0?n2$E|qw@V~M4519QdtuWej=MXoGRD(89DS7L6y?f1%M_jaw`v90E%IfpunB+>^wppHu2%7<-L^7Hhu{6)rAaTE#e}Xy%LW@&EjF zwrA+_6}M z_j62*c&tHqWX_LYp{oyFS3h>3Z12Om^YyD9ewpxIch1M_3t|@-J_~o!i;P-zzdx|Br%E{J;N~YxK$(1pl4C&31w3!L~!L$+KU)KQ^0n&-57* zvY&(GLce|CId&q?OU*z@M?8D`f-N!x!2ghx-@sx8>9 z%I|WIt^Ioc>Eq#3e>_Ni`BJ*v?OjAl+#*1zjT}3-HEwGfNX#Z`vF_ zj%a3Sg4~-n1C7iedecT0IK~kTjX*|}!6ukNx_lEWpwrD@9?AqXNF)L}k8NUNgfbiL zr0=ZnqVKBjrthxrq3@~hrSGlpqwlNlr|+*HpdSS7mWSy_>PP7(!cSb#Pb|?-(oafE z&Ia#?#69lj@^f+$i}X|V!PD*f;KL&IQ!A2l z5_3UA0hwi~kSX(Y*i?>whJHq6K}Kqxex`mFcz^&jZUr7C$SciFN-ZkROa~1Zfalot z3lfV`^T4hEvmkCLNG$?Q^+QKoAv5uX@bicu46q*Xk~4@N(C9;PYHlWE7QZ;PEHzKR zII{w>FI2w-X(qo^zceo;wWv5bzbI9|Ourm7T!A^g4?cqddCUSV08MhlkFA+mm>D6B zSuBlYuMj@IElx3eYr{*O8vKI?s-3^z zi$7|de{`Bdcz$_e%h4-KId`zF;+S+>d)_Zv)ZG#)dH@8TNCEjz=?>_rZ@!i3N z@AAa5nVDO}q`&{(9sPpO-1~cR=z{$YDkc2eHgJ~|^YbZi94bt02z_uav?+FV^EH;rhpwK>UA%j5d-L+^Y43IIqHAUUZu_Y}Z%@jpOZxV)W~H~d zyqCW`XIyrE&erdnYd0@`*74l!{OtV?KDP?*pYg@e(MRb`XFn%W!ok2T#=Hshti`-hj?wA~{51A4Z|RhC?N5qNa*zv3^KEblXpn?FuIzTW>`QeVFQ+u}y~+}|FyiKkd@ zbGpxLJ;Pcic00lFpwgK~pN7Q%F7jn4|&frTP;+yyDlB@ zafx}ybhRG~9rvcD2`-6XsHx3z;N-SUDb&r#5@Xa4``N>uKJnB{8-2kKAJ?)T{Ttrw zAR_IkBy7>|rhG!`M1I?5BfcP`AiXoilT-tC^**!|eLhplYQ;_|?TRV?a<5->J-1uA z_Rh>*TY|*XEG1<-zF%2a#Zvm-wCBO|lt9^g&J0K1#O;{$=lI-flhwPOWF$l$o$lv5 zu=&-N%{skl6My|>(c0mBv~o$Clj-+GY?qS$PEyVBU9ZvcM*g6Q(4^;eJFCwcj@ZyR+Tw%Cmx-h z6!M{~>+@ErX~~cGER^SMKmUjKqd@+%5EB{R`aDkG1t&j?7g#jMT+F$3>fg1;?$h;R zcGq3ZdnZ$^tsPb#*Xwb#QEATsH(&L&3f-?ZS~lL8)A?)hH3n7bg!KM4@7R?gLAMh5 z-C5==pJKXTr>FgDd2Uutd$;({6G}PkwO-6!-X>)u%CvSX$I+E04o6=G9DZEBV^+c0 z*j*A=esu{Y?_DgB_;X$qyTd}mj&3`r*B7iT7*Va?{Nkb;Pnp^4gs#SKC(e z*Y8}ot9E(u%)N3_5-XalOZQ2ve0T6(1lR3Mi%BKy533C3eV3GZ*Y{ZdU5k+WCixY+ z|D!i3q zYwFU{ryJe(-^h`E^x}xwD|1J+w$%3v->JHtm?o*?dS_ow`Q}?f-nU|MOxU@7b>@~yInxE1?H0P9k|2p?w zvft@Xkvk*gF5cO$kn+=Nw$RZ=!x{WGtF|T0_EBH_F~fFKb@Q1A4>rs8E?t@v5ErwS z&&5{jdB}QE8H?DppEr9LH?)1`Inwj2*8f|ptHkCf-23?AbCv!#9C>owd~e>LlC|!4 zrC1&%*JG`R z*`mw6lpkb;CFEb3eDqhXfl@Qi_p1{oPs}n3`Iy!7PCjMIV--CHer^MOt;R~r6>O}z zQ}#6-S!oeI@6c3$x$%Qj;S7#LYCCaPoxLd6uIgp)Rfo2^A3! zerZ?7{rhtH<#V6^ncgOaF}=oixv`>saj_404Cj0m*(ojiZ0W?4TLaUV@IG2U$=jwu z-9yYhx9f99p&#F}ODE=jFnB*@qN?+kd+V4=-$Z^1-d4?ePXDvtgn8k&f`9JyQPe)< zrE0t3ik^2!)_l2Q4(laMDe?=x+?%(!YSE*brPo5ArEci`ckN$v%EsTq8D^fUJj)c>{hpOd zs9t(do)EVAb=un6Q>$NsYP2zthN zThlY9hZH#M&xlyH^UwE~*Q_Zs<{cG1!|uu=mHH`h;)iyrV-K!gfB53>EsZL1$(+pB zqLor^Qo*&2)lIKGMbkD-C`i-ox+rELvg}gGYKys9wX3E!SxwM9KT$ljnTxBqK&9Ek zNNB!|n)WV>nP+{DZfK4@aY?7ZaZY)V1mEqJUmMmfc-=R_RQs6bG*$gGXU-k(Y&zI` z;huDBt!SLWN#BFtuRWG%6}}*C9GT^&%k%_;rGran|^}5`=yg%wPu~Adl zj3QiD>G-O7eqYzC&ls}SDX_YltH4d$e9_0x7cSKMv>twNym!B-w9>aM{*XrtY!}XS zIKJc94wYYttA$=amVP`dcfsVyn!PI5g#%`P35;Zwx)CRM-+syZWB0BvmTyuHc&zz2 zz3mCx6Sf%Fyfn#;mX5p&7@u585s7K(OLGXTG~V1b>1)-b_j@Cccx6$y`kA}$JJn5^MW*f!%R9Wa&$`x1sTg#D)=PqqCyTmRitW>VL;?RrfC;2u?MT*{^(An~_=w4>Zmy0KaCm#QuvsC|};*9P4S}P;& z>bK3#aAmb%(3~AF*xPn)MpJO{kJ&2=Ok~Qx6izkcS(IELu|aXRd4t6UPMsXiYQK|u z7oUFDm;1vO!`@z&zJ9^4>Nex5#)quuFMTM;klo~5wvg#cC!aR!1-@HhR}LNKDRPwj z!lbaK!&>Y%>$^s|0>L{v7Eu+u_C1I$5H~p{X7%hn+v-N!4Q$!T+mBkec8D>&lKt)w z>|<|cpuZZvyYtuIE)+| z)AH8t2)x9xBK=jgy}9QrrR*DBO-Yp#b+kP+bq_t-v1iSyuq!)!cbFR?(t#VCr3B6e=}3L(|5*ur`S|Jz1FGk8SY*ARvR6*Ysa%`95e2go@~E# z>ay1*k+|Bwtcyx{-CXk$oz05Rgo~C-iF>_zcD{eMifkQwz&AHQvP_vOycy`Ifxx9)j;!Zl-|-U^f7Pfxq=KOlH!|90WpRQ_5& zso(A`$0T~?rEc20RXcSCU0(5MO6HN6vtc#+#By7C87{t2v9*}Gpf$GnR`Ry)H1(Y` zmQP$M%6Yca)YvrnY?RjTtdAEs?Z@3(ih)!lnO=UwBHZ-=kG zX^p=u$}sCpZ#k27?2IctACmhlifWcHI-dNR$naWP{%@nUgLe0>pMUvP<)!CE9J=~P zo=^65fQZ{|LybxLoG-i&O8;N3dFybZT`aSE;R0cqqpkNdca-doU%S5j!1?Qo120^O zyM5!xf_$HU-|TCii=UDc{Zhg5Hq@5u+|AYbA?w#?v0gI#<&fl_GSNF}QV5rm=Kfb2 zsfpg-CU&p0U$pV(8OGT6Z<$#Fd)Va#AMvg}V6RcW7%HZ)cbi zXu7cLfrkCdeWAyn9iF(cqE1A>#JurV(w341 zTFH|%#idTAUyi=$t3AN^rtJ1!MYq?iN35k& zE1%MiD{;P8d9d;Cye5bB6O_IOue4&&J6t$D@l>kCKcnSam+yYg|L5%0HI>#=&YhT= z-k7t>Xpe=Ghm_d#GYf9nhc8uIroz-&nUT3YLG#TW`*P zm-Tk%(KGSx-iNjOWi;2HIjJfB?yj`nluaiB7ca}No_E;zZP@yZ;seI|cP^Zp;u2CS zchtD}w9~h@7tbA8{wgTTMr4lhteY{t&1y~OPV1dw^jZ}aqT$!eTo}l+tNBjS(n3y! zGcqlro<)-$C_l-bHg{69WVcqZNVrx~(c{gLSGd+zR#@)%`t9!RIb~gV|&ZNjyry_WXVOxf(3Vlk8JdCK32)Z|Gjwz{}%3=r7e6rmYJ;B z@nNT0V_3E9t=E#G3SLv*+s{07!eO7!G&TRjYi4q=1kJws`|;#Q!j3GWfm(Vie?1Si znDukD@9YH8*a?&8_e#gQmaH=owr$#%#`!WRQfh(Hp(BSjIC;h~aYs)ywQ7@@6uhKU z;f~D?rDYbz!FuN}9e*3Wu!(tkvQyOlUN+T_k&|*#zFlB7dceD5aY(4l+a1N9E_^)p z=FFOy3I0!2wO9_d&VH7kxUE*uQvCI5m^InIu`MshfyTKjSL>Oi@p& zB=_Rn;QeKXM5iy;%h z|1;`7Sib-Nx9arb3GRZg8`fRk9ee)nzkeR)&$!z~yT4oQ%IK|HbEW67Lu>5wLytfB zN5$y|H%4i(Z>g$e)L-e4rp%wFHoyO*-&F60${7|~HfF}#bmsj{K7Hiup$GxaNoNjs zFBaK3^W{s6Yn|RJ4`!M`&PaSQ8wdh0n)*P}^At|fj+ zR@z!IWg2#$`}5CeaTn;%be-DmeMrSqQ`6Imebv3b<8$N})Gqu`rqFxS=k#FSX?1-YYAzL7@MH#e;i&>f#cQUaU!D6Q8wzuBZA_?^8|%JZ;^r zmv~m{w6=c#7c*NtN$WGeUUCnb|K4%NCZQBhSA>?kR@ z{Nbtj+f^*Mf2WL|al#qf7IJt8xn&VM{{>BSpv_b+FE z4ycTt@5sIJB3t+R34g_2tvV z6knT(Xa!Rv-=%^LuY3NB#m9X6`hlIf+{A2Z*VWbgH@(vSG%NVcO|}A|-TwdM6eC%; zueR7e@0EjI!}1r`-LJjbaQDpyg^bE$ocdxXo){?{E_Kj5Klx;XOiIAj#8V3d7T&17 zxA|-Vi_GT_)1QBTd(J|8W_0Y$=^G!v)7#%uk#XZ!?6rTQf>*D4x%%dL)diVdj#+(( z(I?ja)k7hP$B)F$u(`S|v0T1mXAL~PBuP+of?#b! zIRKrQ3YzS#Q2O==YcD zpBGDc70%lb@l8t3S!2uEHtTM#pNR@9w(1xg>$hiSSVxrz1>Bd7+?;qbs@-+nZEq{r zH9phks!u-6edc$=O3q-GR`z4N^!M$T`t+dVzP$6h)l2m+ILJ>|xoF3B>sxMYy`)}1 zq2J#HwTpS&52cqFn$&-JVEF8RR)Emd854xsPcPgM5)r>zBj4g#bsm>g|Nb^bbrJTR z+V>pJz2|=*aANjviJ3Wf1>e0qB(fmW@(g-&)U*y3}X z)63UbZ{e%SH$vpht|soi%(edL?TZ1LQY>Y`h6gt9^}QB!D8)hW$$_o;anq(RJ?&_? zw6)o>{A9}{4~2`Rvmd^hw~x&ya`oqHtJ%GJS-(wtuC1FIyI}vV>55a|_}|;6EbKeo z+F+B$OzDnEKTj)JIj~QddMfHkddl;Z^psf1y9>Hsoi+a%U7jg3HT~)af#fedb_>o= zi?iff7x-PguH9$i%R@`Muf^T0HS5~Q8NX9hXW25_ne7v0em=R_&3<}!?&%pzeZNTk zKDXY#RDOT)^4pcq!+zIhN0i)4+4y$m>F4`jR{r=b`MdXZ?slDPp{?(y8h9W4DXzHB z@6WHl>+jSHe*fp1k#}J&W9!6=^Msa{EEBLi-CUfk-MEuUMC8OOjUAFzfBdg+J)ogj zE$z35*U%zj^NdUGCl8hB@Za5N^F^imLBpBmgFh!8xWlgUd)d*>iw>J#zW@7vRe9^u z3AX-ji#qr0P3d75o6El8MULv?jsJrjwM3(YA}>w}ygcn-%C=?K)3yZeulsRnZTV5V zwynw+(+iaTuFiY-^2voAHD_1J>`0WVv zDc(n#Rp$8n4EF7j*5;R8?(B#&iF9kqd7Q|yS;x?2TCWHXlX9ZQ(m5h-J1^bay5)=4 z|4+;JFJ9Vu=qrEnQV(WkP9F81i4Xq>&nyg%pJr>ZS>o%#cH4WU?VYl}o^1a3bo%}G zFTel%=O|by*R&|3Zt1drNk6;awp8$l_CN1*HClY-*B;&IS_ToLfD__u_3|6-C`^ZSbC>Z?(!OlNp&1|R?VNa)Zl&)1z+mwaaFq*w>Ke!bw* zd(A=Ucfr!%n=R@iz%b&1qP1=ACOOB9xKO;nCw zJpJPFO7WDfoAQq)rf$12SMaK2$eL;e;e8@5Q{T@%ohiG8$=T9p+PZ&IACmp#jxD#; z6FxZke*Es895<9oc)nQ9-cx0&s(6^s-13QrOo~m_heV%4((!#dN1Q7(PUg1#nX6|c755{rwlwkILB4}bnOw~BN2asnWG6{&(5%}r`(xBz zu~I&dtg{{d-#dH!TmQ+YK9aUvv~ypE{ZR?sZ<^748D)IaOX}x^Zv1-oebxcioD0Ic z%p^S>MP?@^_e@;I`%Cn5xc&cqzq7gi`<~%e-N89SW6$kvaoUPkgC^E0uuWt!m*Rf> zy8h1JA8ZMq6PI0Q-M6rAYtW6-^iAyB10EjWH+s1IO|+JtiBzM&k>AYg8d@siirMBc zZb;DK|0DLpW}o2u4*uzU?|FHmiUWUe>EByyH#=75{+#2%*?+_Z4*lDB!med=?>BFi zgew=Ej4aFMa<7_tKKuW=fNk#^eXjgn^vO6ccAe?}WZ`q>+sw8-oTo1SLrkN2S=6rU z_4^aI{oS8kSYy6VdJaq8%Ztada*8ZBGv9do!aY25{>A&NzeUgKZRS}fGXG%LifF+L zk|8|l{VR4Th&L*jNzF*IZ4|uLI{ECZU7PKmcW5)z&QNAc?mTdGZW zHvKG9H()GKyAr)Yco%c|gU<_fZ-ni!lxq$-!^vkl`+QSxvZa;<$AlBDR#IKbUaxy1 zBt_5M`Qo$hij;1I<(C(#e)~#gbr=YJ_fvisf zFIAyr(F%N}3YN7hpmPjSswI#BGzAe~Em@eFSRk!c*;>V3A$)z?SB}K97i2cfNMM$n zDP+|m<)zSauX_ElyAR@8cI%2qrg|4m-<^81$kA-u!5NPjmN_fj5ny8BP*vG7d%}bX z6O14Ic=p$Ql5f%f>D80J@B97X`^U(6W#8^)uitx3l5@qmxf+cQ3bQuneBH6}+Woc< ze_3k&`~8V_@?TS}x?RQEpI%9k2y!8d!rW%fdSm8H2FIy|! zD!oy%zoTP9=KDRul9HCkYz=CB3TC|jeb{}c+q<3*#j$T?-^p&fefxB2T|q$0>!R-t z`Qf*J9lP;wzOamhQtt=8;#jdaPi4hSu3IY{s%@-JSnxaOy92*|dDkMdvs||w=Bp8xfn>F#U4)^kV5??}8= z{YcWeomYNiYRdOO+ikslvY*fOZQOhOXzzT3!b=Cr)%|B$c{p(HwhX%Bki}{`Rmx@U zl4XI-D?_hTU%7oHD~n@mo0QkurEP()S3JB@mBq5PQOYxSNm}sY6~0$wvP`zloaNoS za9hCV73C{_UWv$JH0_J>&|Rb!(7m$ricpr&)+trfquhL#O$!cQQ5RCLHSdu|+bgHi zrMm(zuY4DxaJ89h(Y@s|D-&Mvu2MJce&wpEsqW?4x$>Tf_g+uepjwUeQ?0MOOT|{O zDqP^$#kDJNwrA_gb5q+II~<@av>+;Z5Xz3QSupq}oc*)w^4Jg47` z)!OyvlIe!mPxDs2JG|@u>%;DTHT^=bc`wlCYe_2XKuJjvnlDC zvFj{XcIvU-KF)rs(xK^{k!X`OyB?M&+{4#0^TQH zkdl&Xuw0))=kq5AI-MET+whwu|Z7!pNVzp<|ETYyASBB*swYCIHL~)yT6ljFkjgl)X|_aRV%d3wW7^9?V{CGJzeQb zu?puSY61?=$h3c&^P!C)V%f)wQR}sq`a5Q3Wg0|vojq5<<=5TMbH|J&#^aR9*;`f_ zEx{KSY*|}3TWuMamxBBBc}v}yC-xgl^#^a^n#(jrZ-Pee&BV37d*4ZUmVAEg;y!Uf zdHNeORZ6U z=cQd9@~$CNW$L~Sey`N-z7yNRIpeyh^LKfUpYcC_=R9sLe!11*liY$&A?*|PtiRNj zm2=f9Ktxn?vbx3-Asf-@4_#jzz7li6sm*()=3j&KWwo9Q_Z*PjmU$<)RcoPrV@_nC z#;1e#EgtihRR3ATb~kj>w!Z~i_xcEa`F-lnU!g61Wm|rDoSk+tZTV&WivPb1g5^J6 zzWhR3ta?%TM~f{ozW?|<1txPxavDugU%6An=0vHM7{g|n{5#!!-bd^ggl$QD&#F>k zA;xc5aH}Ffj3Jn1ml3DeqHaa+WdROJT-!6J`5!)(tbEY*kI4E1lRvQRX(8sxE`}^8%uFkv~<|HZ;e)a#p zoy#s;mbm47-gUmw@owEOzKtF>kE-uPD%F`W-?^)_w1-c8lg6BNmUUa6Sr}Z`^Etq` z;vOB4KOkKdp{P=|Ojnn_L#9|CTp7wG2H({y$?4|1Mn`S6kx)kMRyBg_~ z8gy=&aCn||23O?`i@@35(tcALrGjFTj284fzUzAQ!~+2}uY;3TT&$2ZsOUOzanilG zvUiO7b$V;IpGjfXdcn7*OkwL}4qtZ}skX31S9i!uwWoU(yszJ}$!x=?-*0q3#C#Eq znJ72Ex*+wO$_&N`iLHmqi&IX#3U%h#^P}tAoIV3rsX5>7IlHzjeD}dte?!H={pS_y z-Mp&%O9kv#`+eB)BhLN|k4)qJBYWrZI`XVMu)N^Gf{kq#7cz+PFF0s#6(KcG;Jy4N z(HS>S%PUEh{{C|BtNtwYb?S3W=9YY{G+uRE+u^VLqO)oymzEfF2L6xEai4SD^{j_~ zkVxBcmovxYCy4CaV!q^|;9sBj|JNO9@jB!(IfYSqN1;Y&N`7rvi<|S+TS_{KK8q4m zN;9nQUwq$Jv!5@juJY&8X1hnTU)X+8?Y6oYk#uxoukO+IdgYgYXNl#SnmBTs+^kA6 zxAk6{KVgAk3!hxwyrryLrviXFm;>x?XJYcN2bFXFhi@*u-`i`&Izii(r%joZS z%XHH07NgtD@ARCM4{TY+QLK{SK5w$*&vNg%uY3~a7i9z=X|FxPKT$mDyp(8paw6a6 zi|31vrQA1;cPl(qQ(7ftz&Sxm_u#n_o+Yo0O=evR@>|WC>-kdg`{7qcO|idD+_$q9 z+@WshziIU~?c27q&rCP{)%r92_qA}jiUzCH9_|Z8v!2K}S^C(eO!2DQU|KSZOGwya zsgh>o!Y}K-HCP1My1#GD{?pa8dWq1-!?!ME{Y?L;Vz0K+@@B)KGkrT!8l`IACXcbcq| z3yVG^?b#_OtKPGD<-0%n{l_0J{6DSWPxke>GHiMkmUZI&$KTzM^*thdA*<8kom5TW z&hIiWMbl?;@|rG4FrJkp@TY|JtE$G_qx@+X6^!LtrnPlm31*IM*OquWeMj4|d>h}K z9Z|Jkh04`(bbVFUo_DHp6!VUpp)2KdeuY-tud9Ol#zm<#Sx!8q8}L z>b9-8HCs;oLD&?B|0g5&2QnW#UutCf{UGm(?GM%G)ZJ&h;dG^o`~Mpqr>#bdx6Cv- zk$qL@==a@c`xakJ*xNjF-tnaKUx75ky4>d`dT&Fb1wQI=m)e@~2FAfta! z`Gur`Sns1Ffy*BTl%93(QU2v_z5i>yhD%WPAFIE)>n=&%ED@S6?vvlYX41a3+5JA6 zv(L3gU9XwFro#SCUVO2JZER+AaqF6%_t|1oK7DkmQ>r@fY>K%2o}5q(!Bq;SEG>u4 za(iln%vOCB6kt86)#~)k>|EKgxq)kK<}-x94%#X2#j%6wYIcaA0Moo#4!74V(RbQq zW6!{Q?1ZIp-0W%mKPSwaJkL8|qPFQg*SSCMrX6IwBFS5?;IjOJ!MC}-+1E~sABc=! zXPWPy>byZQVwdr~+-p}w`Rn(5d&#@kWwNi__URA9FR^nyP^w%s`&9JasXos+ALMfH zY5d10^oPUt*Nwwk8&}=<@5Fy|Qu4DuRoM|iLeoT=5_X%Nk_&6TCE;s#+HvYM1F`28 z{LWjuY_^6nhP-8Gu5_DFwOC7rNpXepDmRUwr)nuDzBWb%PA-`BStG^cv@*B%`yGeo zv9qqZ{^Qnq3%1HrHuXI=_xTwfaTdBNE;8b26KE&g{%UrxPdzw=4+xp~q{&qyS@ z{X2Hb{qZ~*Lo3t!cRsQB?kno$Xg?tQ;^6a~UFlP+xeZdqx!!sBwXag)co_LPEi>;x zbDWjiESg+*=onk7GYZ8r?d>Spa4K%~{uS-DZ#PYkW8Zz5nLpBfTWQHm*2+C@9kT+I zcBkLpw^(%Qvo_{d-LQz3RZLeGE;;dfD`#26l$D!=J6?DCdU;INpZ(D0aeK;Yoiink zhYra!zvcR>6sq&4ZS5?9>WTKOy}MG6exFe)*SkA6a%<4m+gkUvx2E~3UUAsG>d-po zCA+TFXs{&v-fcZ^C;w`W?&*Hj2i|^t+#6qgvz>K0N_ish@2k~TOdZ$Ut{9jVDbA2f zaj`oqYoynAVuzg0uPw31Z*nYsyR!3I#wPAnQ4$|7b{u-Np48a z&M^_pcGdZ`V4;Y~uSI{C`=^El<;OFTMQij=q zs?WaUD2o_Q4RjTpc&X*U+q3(Q>&aOZFKa4(5R7)@8%p({1gd=}`ak5`j>3qC8@onwXsI%dB1eJECTFlM~nRL{!;#l_D#Y>zM zUMI|6Y3r4fC@b^!!t~~aOT7-6XJn}ScVFJq!qXHkZu?@><*y#OFCVVS+^zNM#VWVE z>SpUdnP>c|4gV-AJGV2v!-?_A%8M2|-tI9z$uQ%`JvYbAoV6~i?oO|tefDBBXa7n6 z#tgoA<*r(xz&A7Pr0yE7G1n>KkZrIzvcIxW!Nt`@>*+Mk9==fV3D@*$L_=vU2nV# zD%P)@=9oHnqqXmWMU#%Qc~a;n5z*)76*4LZ)jr%2z9{iSF{X`8sI+s-C8M1|4p$c6 z=3aPI+BWebpUtEhmycF3%Jr%z@hiPP_F!X%T~v?TBF+r!_WeiVH!Bz3UmwVL%Gud& z=XX&l6Y=K{g#KK6Qm)eXVoh((#UsCOx-q`0`FS$j$)tV$VWqZzzYg>BzvNQfI>9@{ zMcqL{I8Y=qG&o~L#+Q}R_V4e0Ww!9~=ikwr|8Hjdjz*WXTY1gjLKk(1UH&exb&tRz zkCIkbW0w`yi{9D%&%1H`hc0K`&)vG+_L90@A!im9?dGh}a1u^9@NBJvRAp1?bEfJk zi?61?pRTM?zACSGPh;Bs75Sysx847A^RzDHztQ<&&mOPf=!{7z&!>i)GkzB3>E#Ig zeZ18(NJzQKmUDuHzSyOOdv0v7|Ix5XWXAIFb$4=la(T3;o4mIw!a zuYAv`oMmb)7~Fs5MB=mVeC^*I@e4V=OmeL>nc_SzaQf=CjLZi80qLxD)pb8iYu{ztM2bSFV2*psKa)i`5t?X z|H_pHtmm!r-oPiJn(qYp=gAM|WAj zss7?Ml{;r9Uo}|w<=Yca?@LMw_EWTd%tahTgC%o0`1<;I?iN`6IMds&XRB6x)o59< zZ-r|>Kt)ABfNO=Xud6HX#N~D>uY*rtSmWl{%$aKMa#L+#YEP=x?KYRdZM938Ojd5- z>unKYIvo=_lPN{upn%VtmLH9C(i>hhymPm3s*5|oD6MAmvN2%8bt_rUV_aUBzOr0c z>W~+(V>N^Srd+8TM^(9U#rEvcsrk7p@D)e-)dO-FLFOy#vZsiDSsHB4ZnC~HWBLjS zR}stgQN@1IZYD{+yN=b($$AlD7A~RFT>A2Pm8y?w?=n!)_H|gCKlnT zdwrzyijh=tNU2c@yve*_v9bKe^K+;82wXm{cS9#_bwYRQ#{+`zdvA5^o^>Is z@BP>1i}tYhvMaDnj#l_}F<3?GSqa;TMm4tB#jhW1D4q9n)%F!-P4YPxfBnmwcT?)1 zl7f%Y9vzp@I^8$#pT3&(t8|lJhHrvW@|KU~Ym#CsXQna)woKD?>TcM7TFfNuYR#g| z`=_>geY+mLbM3250ZP+@rW8$;(a*g7w&(hXsLIB(3$M*#oSbW3ZpWF+{pLl)!{cGT zFM1!{inC02P1X3kP-2UuBx{OJ-2dm{0%rF0U+jO1J+ePK>tp=cOZoMGzdbtldb_y$ z+oknW)BO`pt}b}Eno*@uHJ$I-yX{%896}pr-H3{~H1WXxmAtz<4o}w(_F!_~QfcwH zv!=-^cB!k4@SZSs|n!{JP`P#lNRN=Q~tI z&EvmyE3NRF>g!3L8n38p+sgYsHJ)>E%Qm0i^09B~w@!TFE%GPm!-J&)YoE&A{D1Ak zk8AQ17;ZIRpSqBLO}Le9g=Fd*<$n+R*NfTrW(jXvGCfUa=G0kEDGMffo()KOVgH-S z&~(-7*MAl{J2`hdOBrohaIqj#YOk5~=~owi>TC&Wu(?pAc>nCBxo1zFy5=kwEEFpw zt3LUpsLZ=QcX4-Xfx_09Sr=xg9n3tPu`reISCg&|YqKKPBh}pdU5^$k7;O^aQvG9I zVH=%bFQlINd$-29x+Mp0+3Z=8W1c1JpyYUWsoQG4FAwB5JU`6;{zb&xg$m}AFYF0h ze34;sYej4Qt2s+gt8{kmXDxYOd}S&RU-}yD>aE8Ve*9Y_aQFC1okX!*AH#R8bN*b^ za#+lG_FjA1V)KCYHLv^H`c4MDc;fk3Ea9V9p7OgX9jz=S#$R?E*L+hTxBp{8p`O9a zm%DUM=5Ke~_~hPMkK>1QC0}h6vs~kl@AJ!oQ(~u+VtCUklc-O3HyBqiCFCD4uKf^m zN7!2R#&j+J@RVnEzgRlY7ak8>Zlluj`&!Q8^QX!_7k^mH{QTtk(&o#@_b}g!xaa;S zenrFe&Btr<*PIMU({Eb-)`6)CP-D!W!F zZ0U1eXMg13ciBguCV%SwQu%WyXGgGPZpLNPy;4_I9Aam;Xh^@lu}pBin{D=?{J&D} zDp@C|7?teclr`k2XjfCTmpU4uTJ6ZrSD?E}SkxgiMaAW4@eaQ07eC5gb$>EhLv9fd zn}+U#Tk+kqnE8}`B{r7|%jwo8$u2m4!M4tzT1ESybJOYnw(~zZNm;8NUv<*HK=6L> z>JWkZ{N=8Ei{8td)NWa>sCno><%%Z<1x~+N<)fjiuYapJFZc5r!yUKXbRKMYF@MWX zd3&b2OWyKkxaLYa=89Wq-8Ff$^aJxe*#)|%PM>-1fbj z{XW;W{7E_;W~O}q*7hDdOLwvL9$rC3Ki=;@=jW}^!PB!`L9h635^O@G>w|m+w}K)z&BgP{mik+54*SM|5=y+yDV#>^_qs83+0mkJYRmc z;roN;FNN%Ba&yXbKWWTqIe(h3Hn>{#vDlro4f^|zRUPyS{<3}3=MOCB4yx{$Q@cr| zboaz$CB9!pB`-JJF*OjLCiHcq!#0(?E3Xc`O?Z6!kFY!E))H4&rzMZ|H}7~o^@qom z=ebY*B=0%cIL9I3Qih$2ALmXz7u{+1a#%Bzccgl&HP{<4ZfUexy>(KiwhFUmq0ICA zt@ZJO;Wt_0x8Am|ubLBd-{V;7oV5W+*3|3A$)U*0%>;_b$} zz1{hn^y3$7?69sEnzviw;tu@{%4IXYp8H{X+#x(>e)$5UU6=G-S+i8b|9w1pZ1Vvd zJB!>`)w7qak5xOE{ZVgbX|>87*FVPo-K#FOCQC9H}Lipe^qr1XDHp!e$aN=cVb z1zwl8GqN;YeD3|fj(gQcpIzk*mtAoDVqCrb)tlui>&w;W$XTX5>zcW{C(tyldE>Ji zVI7apxa&VRXDEI!r6guiR_Kb^Dg~$gQfFAX%C7Tj6)9aMHA$jyw$C)yqjwZ9-aW>8 zxbXi^$2@C04ZG*+EB%e76Xh=pByn(k?=P4BT_Px?aQt|G{gV@mAHKU3-F!+S`dVPT z@q52Z_lhPjk@Zbgk6L?GCvSVG+jgPfS9sKKrIze2{QqiarN;hN5fx*z$jsW#mh;=+ zsuZ!#^w_NF>T$BXa6@aKRc-q;slfTwe#iISPjU<7?>znN`odhDS7u)=mu-8~@%8i5 z3v9O()_bp2jeFedFaJDU%Q)z2%7i7JN|Vjq^;rCGOxwCu$91{V%(O`gs$ot2mo82S zny~b0>ayZri;hh$Um)spd(-0Xnk{h~ItBMD{VH|cQN3fj{|hsvRblfxESD=!YWuN# zS5mO6YfonQp7>YWJj2}5HY-)_<-y zf9Uz_N8{7)a^`{uY@Fi!#q3`x=Q*Ey!58f)9DRH9!wT2UHOnV zMcogqQw+9e&9~RGVmf^$rjtKM#jJumr|Tnc%*Ngu=F%OffAr^b`OV%}sr1D8$Ml@O zsY$0K)(9lJ2RzmGnrU!R?~P;6%yk;ilj`Eap6Q-Y|N2GbWYY5F#**t6ck;!j9k{)u z;dZ}Fw38}Hs8uV&1HX1;&|P)iY=mg#{S3VOInxQT4Q+e*4wkumbFRAGdgG7 z7hm0^wpQ|5`GJ1!dN;oNcYZH*EW5FLX17-N+1N`*cuLbRN*k|Q9L1El^Yj{iGoQI8 z&lgvxXY1GAO!BWkJo)$2KMC2t#O)p9`qyj_U9@_QeXlTEZnWrTzuo37)>C4GbNKY9 z9Ai_f*0p*0Q8j6zvSHXimER{iUiu$fe^+L2E&KD0wufZx5(?I@Z(n?F&X4Kb1q*im z(P^&UcmCKRGmae+cR7w9IJHSPwKw$mx2M;I??-LlTv0u*{#VeAV?H-6lbALhx&HB& zQOUVg&KE0<+;rlc_HpdopyBi-syHcL(DGeFT2~x*h)rM#w`um4T{a%&8_&&(NNw^t z>3ev&?1xkJwHlAiBfD!{=T-DD&-*!ho~y8{alz)Or9LdJxnZI&KYg`&$7l7nA?)8n z#XIt~r*B=`cB#yKwejyePLeFT)9yOe?M$_tJ!}1`jz)=qrAyTw9REM#*_>%Ux17!{ zNpTWPkJQmR)sn-Tak)q(cio?0G0EFfvbUsMwuwvrS^q6x?9OVTPsi8BYis;`9k2ah z^_$x*`Yss)Q`YJn`nzT}=Ig^=` z_dbhU9yIsc4z>0l|Ae(R$5yVn>=NSGTFP#)n4$N<+W5CwlT(jO&Ir+K)KDT#ccbVBe|enr zpKt3TUp`yw@wiFqdP)m}F_*El!PoFqp-(?ApN&!~jNf#kv94_U&&P|e1}=DbrKCse z(yn&J>n)+G+QJHwLXtk0-)_6DRyhC4R_}dfQ>$Z+{r_S=VQ1W_vt1%L78MBIU;b~^ znYkNo8SBmJUQuqI!<1(7&dKC`ykGPC_<$+hw^*NkUjJ?W>J|Rn>mKb1Ir&h4^U|Ih zlT3~UW<7Z>vRI*ZSzwFpr;Ot3+IM%Xo2xFptK9He$@{va7xuEd{5riS z(h0sHl?AE#Zuxm7prtuQnFS^JMPRNU=>8N}H#dKG&~0*Yj1(-5 zEEUWR&0s5k42=y9L2D!7SE!gFpKfDrXvU=vvIBgDijfhnHI&Ad*jE3*)=+}3VAe-k z3goQsrSGc`JE|s3KM{U@Ea>3aER2I=OUm>0OChJRXo9^7y=Mh-tGb;XD6l|FT8zO0 zAeN1dKJklNj7^P^uiLB*=ZpwWzqZeCLbYH|=<}!<7-K=S+QDP z-k~i_OsAxrCg`$wI8B;7o0X$m$53e738n6^=sT;nE)Ki0=xY71*H_Ax{k8T_cbi+b zZ+2bg{Quksw{8A={;adpygAk9zRxSZ_kFLDRsxf%Q0I&ly@3}4KP%VHPv_h(#Od!N zFi*t!UU|38$3_9Awh0aE)a5Swx*lJ?VA08p)YGc=Q+8(yQ5Qis_SO)q0g5^Rz8fLTs-;dsV7T5m`2X*`rykcdGg`ot7m2F`%j%Z zaV}Wp^kMTfRn^nRnq8Cj&X_4WRrh@8lf9GXZ`iL;m>l$Jo~~x}qy}at#d+Fq*btfM-#l5oR&f9WXcTHi(y{{@Ats3XG*DSl4q1mEj zkWs2N=kZ^yEir*2+Yg*ra+%$?`HzB3>*qGL$0sNJFS?wsaVskKK=kV!|A@gJX&0q zHJz{Uh4rntF1J0eS6xlp;26OivbEsQ<1dO9##+S}y^`lB%6BDB_dGXQ!P1t?kc)5r zlBM%bs^&JW@-2BK_v_)jh#k$VB2A>(7a#v%Twyk^LteRF`GSg#psnvZ&kUum35o3M zQoM#%PV+n|G|-@U#0<(^N` zf`~ml_U+}5D_rhfoSpG=`wLEyoOZ3LQd?5p)-jzwy^sB z_F3FbQ_fjj+QO3)Sm&KeoamzUXX%lJr3+=$PZj!pRlQZ0eSNR=y5q}57x^9v6N}k% zH*c-cc4uP)bNj39>Ms|4D9KyMvUg3=dh>W2zWu4|^nVEWPf9$yf6C?5s_E|={48=a zepg!R|D8Cm>=J9PTluepHYZx|3h=VFU!Kj)*4@us{PTcoyXYIOtsD1Dx}4)>n57_p z>h;#GqP@5Hu0HL$w<&nFmE_6|tB7jU2XKu?YqqP@jgzH>>d8$i$ z>q+;rt9w~}p8VQ+dNKd|wc1a28OcnI*E+xIO`Ee*BFui)J>{(=7zJLQV$nBZIf6mwn^dgl&_z8wU-)h ze$l&Ca`UST>rc*!J5{`|pNVB@bcrDA0@sv>)41x>`>!2NojLnnu7}yX7M2K(lW9fW zU+jLJU*Pq0kM)a=w}!Wq%D2hh)3=Vje)Zb)rzcK%Yu}VDt$lnwzNYM7|JOO427)EV zLFaY9Ix1dQ6}r^IyJp?In#^RY>V>UybPh{oPY@2enS1Kn_3QjwtEvOH?n*RQ)K!+y zI=z9TUZ6{T@ozWpRNfnhtbQ+idEZs8dDp31JXYgZw*w|Kwk}u~BK~7>!<&K@On4Ky`z6!D^KudfTYfPwT6kyGtJDu7M>bV# zexkkPZ|CIJj@N5k)2}(QW|Xi-?rV`<_MJ0#%b^7q-!8xJQ#9vqujNCvzbr z_V$Ys{!&?6n-hPQ=&s97D&Y^^5YblldX-7phIUJ-lWw)g5{+31aMzEoUe=ZBb|P{eSnq-Rhr#q9(>-xp6!` zI(-@Lksf`|w#x1Q`0{l{6!-CLpQzs!=?k82nSYfh)kSFEX}0a|E*wvO@;&_Wzr*(E zyyX#-4KG-GEtlYkf3nQGZ^rsV3_IN(boA@r+4+UbIagkN%ca_yx4Dt4rS+$4IPi=9 zF5LLtOG8i0&E#xUfRjYryn9+Z&#n%(SU>Mv+g#($Ti<83{mgsOmgv0xzQUQ7@>`Y* z=bOz8IQ!jkT2b~+*+Xv<)^5Bq!If7cpGR=w=klW(8B@M0_f}^<>9-**QD z9hW%oy6cG3#(=X`@zqOg9(}yWwflvih_J?Vkw>08tv~2{m}{JjklOOms&=zpz3g)* z>nD>+m;Tg073b!yn!HlpgM)M1(rZbAkCU$)R*6)r{5koo;>n_#lh^(f8|}JX(pElk z*{G*g^~=6yJ?-99s&Q)mOMf8~Myu~P3mfz&FK^hf?Vnjm zXUVsn)h~`YZ~P#%>zI(X=$HHa|BW6S+cbafs(a)2y8rAu)B7rEYvk?P?#(xso+`Xk zK5h5URplw)RWn#0a29@SVE(|x_kUJOvUg0zQf}VgZDMy-gRXpET=r|3&dXj~XTx*3 zDN1RNUmnr1?M`2;8PTOwogZ~y`azc0u1lSZ1kJ1tEOe+kkYw#^mbYH<;tXcZ4^m5h zWyHN(kRN%aQ|6)s>k~DtPa&DJd=kta&b+J9+f(iG`$O;j|ED*2+d5bJF&&juw|YD8 zRr8{!=cDERt^N8jQ$q6McAZs=7tURuX?lIeofgp<=L0kz+lw?o$ zZ*#TZvp$S!p_S%v(}m1IJc&+ zv&$zUyf$a{o2kLSq>srZPn~w%w#do)rPGBgVIQAK&3B}X)JVtrJg}>_s zsvp^S-+V7W{mt>pBetdsQv1wI&_BV z*;Pt^MNGc@@DSv4oO?OvxwWTGS4*=cZ^g|U?{3$>S~S6NUe1$AUH7Nx9(Z_Q&#UKx zjm!My8v2jFxyt6uCU_vi?&$rS^(F@o*?h7oGJC%uo$cm3riY5z8(w4|I8-vPk?&D| z(AU+9l4TBi?5*bR7lN_;u)0uhv$#&0Q5rZ28l9_SZg7UcGeXN0<2G$4kHK&uP_{6fya2 zHm|99y8F3)JI-gz?(JH*t!Z1xUa_94n+N&N$;vW5J8isLEbnaW?i$X*9Xl4R>5*`B zo$;Z?W!7_%Ea?eru05NwL%omfv>KaESqsa~97V;&zKWAIUj1ii)#d~D3X4mMQWJBz zQu9*sld`ysK-blS7&bQgcze*Ej)6gbk=o9_L6FOtq1|T#1q%~H1#?6Asj%qRkD73y zTt8}p=sO$W>Ny)>-F=AES%z$2$w%LAXrh36Z;Clc0O~j5yS}Cd7D(GVl2f49OO<}( zHDWeIy58sR-_P&PTR<BQW#4hGI{wH1K}_hs+vX4hGq zP5%@4=d$mX%DUkC-15ls>fr3N@3+~1S2?AWlk-QT-O55 zntkK2_jH{(H*R0I_pLi$o_Fp2@0)%9!(QgT&wiOVU5De9-URQ&`FB5W%lH01@7-lt z?}JfZH}CF>US_KE_($!(<0%*4Puicq;orRT$G-n9{$4)s{lWW{68np5o+tjh_n|qq z#P{H)HEWuh)~rco&Az4+z0K|2_e?P!!+rAicbos6u|M;7&9V31@<#Rl|4xoCNv$ql zH)r|wta7Up7rl3%FO!cy_i_1j+ts`MT=f)N-v<0Y`|hwq#pd4u)+c;9-)P-6zINg> z_(r1F)&H)XteHu&bZ8vu|)P=4g|NCG|&}%uVnOHkp`$wgJQTodxSB>8I#t>gS;j9Dxb~lwDCE z0g`i%nF;c^5j^*lf8*sdGhr|ct%F~W75i)P-*l#IbN*s;{?oVQ^IP_%bJg`f{x7Eo z&OhQLINVvrz7RA2M0}nUWYjDv@kerwWQ^n<2_K0Y4RuKgi5n6!(s!Kx(7*AA zJNx~9$-CTj1@jX26o0P1;`>bg-Tm*K^VU{=n|zn8Gc9#Dw z?f2ex=lxsrn~hacel_*QkE;LG9NT?;U-`Y1e|bMHdtZ6D{`%RuIo;mdQ|G*XR`LJC z-}063ncm%(ED5fWUi|0j?>{c-`f>Z;1(+Y-_?mOSYhCwD^&d-9&fbkw>Cd@SwIKES zjQSmoJ-_#M>*iE{*s>*$k2m`1{YCqa=C9ZnRh)C`;NedX&2Q%JKiyq+y(~2C`P3=m zrs8GAKdj#V()$qm=;5?v>#%7l`ct0&zQ^)q#;-r`U-?VCk4gTQ_wTaXl@l*Gqfh6T z2DaNXUcd39?v4K550C#w9y`2!U;dt>f0Vy2pOQlzwe<3r zNk3=ojST)G&U$XmyYsQPj122tznAqTv-jKY-*2s*-YgUU@{l}Z@xFHbIeRC(Ex%Oq zO*qDU=hGb#XP$p9nD^rG!=0AB?b90>88pudpTo?-M#e;DVBbhDPxlCIXJ4lXwCc{% z%tFE3z#KMKj8@$ln4?s8ATDgE7-w~7g8v>nN7QTzDuPh5DM*0iY-((de2q3dn-+g7 z?J_{Q#P052?Puv0&|JFgJ%8&ycg{Ng=l|uDz_~R1&J()i(uTRq*wyA@)N&HCpgL}b zgk+k%`RE^rcXxZ*9vz0s7F510mx8DEnUH0!)qh9ac zb;??L*QwpoyDWqL+!XsZ=iTj_dw2f!JbnjM%N;*`Bf4p~`Zu2$m+mUpKiRGD`g?Rv zdcF2Wso$GrU+uqAyW@Ap_nGH%=PFEn^`>5>eoJTF^q+g%zkU}o+jncGJ=3z<{`r>0 zYPa9-IQi!I&VAj5rwcdEIRE_N9rM=q=eutx$=#Eavtwgpu$$X=5i^Av8Xz@V@YXTT zK9S+UE}%Ll(i}Vk0Bw=!nwu$@TbL-An!^(*Vk@($IZ6Trb72Wo*W3(Oi_Fj*TlE5O zktG(Fq!wisXXhrCWay{nq~@mPmFVYY=9L!f7ZhdYqMZt1j^0cI36PwE%?u2YnrWf_ zj{d@d0(JeZrHhv?;^gEgi(e!W5TwljncT_rPO(``D4;w#(O?JACFA^!GCYs@q?|+7gN$covktc`K)=tUS0=|%I8O} zY~Cnb68gTms(yCeOy#~X=l?eyePj%`zJK8^p81D~ckc2c@dt`LD^5<`+7-;_CNlr{ z>V=Nq1$Jd_@8?|{IQwj$oL9uhow1B24=?SBD9Utu>>j-7cKcQisXgznZh3Hb;=}@r zoKnwKp+GIRnz<6gf>wVMgL^g2SL1V zg5y2Zjp}qBHi(7P2(dA2Va~h4c0lfo1JmXOhYhmMtZRP%!Hnm{>1T`etS+~RY@siX7qv8Tr;~f8%oQ)b*krtXCcMJ?o*4k!lm&ySyJmo$_GIpn%5;QOb4 zc#h5Nl*4bNst+AoIW>0SW2Mr6hpj8pl+WzwxyX3Xhu<#uwSM*o?z6>THotqX7q;0o zNZ{MkUGnOGioM0I75~wg?03|2nfXThc%78usZB@MT#N2wJAdTU%x5>B?MyqHVzf!P z!QStx;CsycX@qoy3Eu1(;P3D6835`pS)$}lBNIynLjz+or9YEZcf$gRY&;bLGYb+tXt>paN+(ht|mdICI zr0J(+>O)Qj$S*C@Pe;DaA{#nsnFl%)AYUK<4Hlr201CmEVq&|N0`)=)_}>21qI}fK z5i}i)QaOSINH1EH$C2>89YZu z{Aac1w~8tji*;W(zJC4monz_$3D)blzub8&D)rDJZC-vx#)Ua2Cm%j^NUicmyAM~$ z4;=~XgN8Z&E7mVw9o{iLY5w)R-FVLNJ*$404rd`}?5db;`e&4Du6J>qpSnA|a_zUc$B$p{O21pRpZ8Pm zzuC{u%(YKj^R=aO@-m;fW`EyG8mFHvOPcZUOxCeZ$%AVW-Hftl2KHzh&x$<0=jfXB zV+PVQHlA@yliA!^n0znQ%=p|Hmo)Cra>kvJXMED883ap+r)h1T5_!xgeVTE;vGEMi zGd^jm#@&%e&!ojA$E7bh<9&wV*nG(oHw>C*96Td%Y?|b$4`){Q$R?k+FgQHJbqj+} zy_)Y6g~=zMqbd zvW~1bDtL3C*i1V|k4MT}BkjW9@ECS)_Un8%t)DnYFMZp*kkfho$ICz4!bQu9-#ERo z+a#Z`|MtGq2k$OCu<+u;$%&`iQ}e(y@vTqJlH)~vuyRvmy;-59ax|# zZ2E0iS8M0q_n$RcU%k=jVDc?068ZT0_bt1;{1xw+bk)=OmtA$>HgRnIw&q#OR}SUZ ztGZ2`G@raM{vs)R;&$@BCnl2f<<`A3wUlR^5(7f?N+)ub-}65 z^-oXe+&LgTm4*F*ueS6EtJV#k$qCOV&2aG3-njQ$hw9>x zu%d65=Pc1R3i{SAts8vMaHgf^UZuq=c9l<$u+Y5o@V5TFD^r=>#Oi_3SwNs7L+0Hc&5l~*}W z262ULy4WGib7=Lk6Sox4uS+@_YkfO+2haXT()Jd?*SPL{Ee_^%R?)lsd`EStdFzR! z(;1asmec=TJ=j}q&&U^ltnU6oSw6|%Q+RG{h}?PFJFWTwllQS1300QHmCM(h|GqvU zDz{OSZ@+p^h0?wYuTT8nZp1l^;kBsYX^In&UpY@Q@ z#bn+M!Q1l;e*|TRUz}+sS^56FzuuhC4Yxhb`2{CP$u7C^^5J&D9j@B@T(qC)-QQRC z_r{yACcCbRY0hKAKm8pTX&GmbKXYuz>T^J<1_s@w*5BEFkFaN^2 zOV5HQ^cMHC7l&_@U#-+N*^+6pg-=;-bIZ2Ywr_JaxA6Z<&zSUW%jYfJe21@JNO_lQ zU*?rn*Ue-4{ib_mow07?*^r;Tll_kNJa6Qk_`t=B{9HsRW(%&tN+%$RS7gh$VWi3@X7RGy^2Dp{&}>C2ftO+7u=Vvk>8>-ylB z8?Lvt{i=p`YBk@F6kRQza~0becI|9Cb#48`le5-d@GdQ!;3K_8V3Sv7nAH@w9#bym zv$b!E;_vLAdvDiy7;_wf;_8=$cSj#F(t2`)g13C9lOtV)ycGyPPh&V|IV!$$#aC za{aBn3k!J8IqjBYU-*WJ_o$HABi5iF;r6N_8|pu*oyyR1=E-fiR^K0gQ1JPu%VzuE z+gLAsyG7*vhLk;=Pp&)I`nnz4xIxCI@8`8vSx+k-^@W=^y^~3oUN>9!pkZa0+cj0i z)xm8)YI=7X=CGVBK2)?v|CqV1*(>w~ilyvkO_zG%3^skh;DjRtddu>A96uKVu7 z=HaU*c=s)-<;wl?Q>1SObMS^@)1PNcPCKtEN}LfGqLy)Fhseb6^eiLA?$vp1K~ewa z&I)+T_o0>HgJJ%evVg5YPkI+~-b!~%U0tlezUgb^?~kQ>QseJkopL{A*7bi`qR? zPkVE39a7+EuJGMtm1*R;S-#g)BtCP(vw++y;g^l`!rw1S^7cFbB0cgVL+Y(PGh{*= z)mJ!9Uc|IkIPjMLfu<))R?e4Xv-oBv-}X!XyyQJsgYC4^DQTuZt0$=c-*UdgyIX(J zE=5~?+wJW9H~u^DEjhk?b=QG~9G8kN7h7HqF>5hh*uU^y;^ah++h5o67reWwy|rvx zbm)(_qIQQDpIgprakzES>`j{+Uq_1OeEZn=_-If`+DnDJ68lHB3E3CZ9;E4htB8-2 zi;NA93cI^a*;#w_O1pW%>@nfnub146yS8oC%>|J&HeES?GkhnfjpcH8$LUMH$Zmi5 zVCJDHy@$qicbxvq-Yzql_hZTL;yE)s-Crvj^LKN#+8EX~c-d*PmwdSx|KH5|_Kh16 zUngpwWqhR|wL^Ta!uiWFOEf)}WcGOlELGWWf4=VD>1Ic34D6 zQ0kg>=2z}ZLf1YYlT~N({~vA3Blp>MW7*AT(jrQWKRv!w{4?R*wtehdr&Pz)UM#G*uOYVY zsEu8~A}LwtHUaSm_qO?XE}WL@dH#RYt%NB*RxNK(U)nyk-o?df?hzFZ8=j-(EdjR} z{tG-V`lCKShC_0}^HtId=QtI2tNFZkJosDb`rCk2C;1O$)~?x`)LWF?aJr}(7y?UMA{d}AKKOU4A zmF!WL^!XuwJm|J!_JKyrpIQr?orGuV@WyV^yTQBT`&_@Eqb5(&j_+)`EX6way1jnY zyrY3`3x7`AaeZ(2sn=V=YNyA2c(-$l_mSlXthbR|ge+UBi{fn|Ha!W8&S3m8*Ug zxE>aKteMez_;=QxPm3M6AI98rukl*;d*#m%E}kM8?+T+IFEeU>c7NOUNvLc6_eh!l zO}AR*>$$gyPveyBJ>;}lB6RQNpGRs;x4OynZU`%q;qkP3@N3q8rDIHCGwy%avDRxo zbaJ7@Cht@y_Gsqg)f%hJG8S!(PUJrF>RP131?K4Hl-loj%|S-OkFI*IjJi25@UqFp4WeaNTg=|Q zy)v&k%rE@t^9M_QAKhBOcCPZpiGWx7eA=(8mS3A$;+fIE!<=dV!$S3$K6`Iu{qj-U ze1dNi^YVb^ja_!Z1yb)OOv*ngTW2z{wzG1@F+p=V+e3n%J7zr*y!qv#k@S`uu~(#B zGD?3Q3{SF24HMH}Ec&}Ny*fH?otkO5)O@ed;e&m9 zKfUZdci`9!r<)I-@ttTFDNW*XDOk1U!>L1$?tHo=u{gb9_o?IIQXw06Pl(#hc~0;1 zomaJ8i&Le17wD@lvps5ODwr2I@7{*q>i3=6d`BJa=k6*~`Lm*YYDw(ns2L9J4e~0l zn2io+Yh3C!?keKiF)yS}%4Xe)i{|gvPZFJaRpcsDx%{!#wnIBsZc0vJyx-8gr8q`> zhri736_0%i->H|UPW#PK9NekX<tr!&ZV9{q{+=OSJJODNH_I&#Aa5m$rE{VBvhWI zzbyF~d8ujAj~mSD=hyEOyzhB@%h|Qd&+qy!%e!*=Tbsx8w(mJn66zT280Dhtc4l|~ zPPfUY3m?@dswTQ*hH7iNEZ<}$S+OWxlzTMhm$ zzBy;^-8TgqSth+wE3Q4Avh?|@>;)_@#8MeskDSb5@a^&n>OZ)4QTp_wSFZi~>}2qJ zw}ag(^A}MMIV85c-Ou>x`ut$vnDRSX4Z9RZ069tCi=1mhKf;^x4v{ z?J?W$f16Wjfm|Boo>3``lGU{?C|0wVWCW;PZ@9DocYvJwD73# zpQ)-+2PR##_~1L`QFQr--sM4Wl3y=;-2a@p^3u$_Cv^2;&YO5+te?`tnF`OSRfg}TjC%~eK@$FG(<%Gx&WzSTSL2J@oQ_mO@d zSf4Bv`<3JszrHrDBr3?zwKOWtP0@|J{LN{9SL#gkUFEN8az*?x4>s^DlrueWYW zTctmy#KyCHmF};rwtSWRD>wai=017XXTLg&)4j^{{~7oFoZA0yf87uBmJh zUUzQMx??wZO`nP6En8G>d(}%@_tM60uj6}8%(<~?X~?3Ct5=#Qn*V-wb8@7U$=ATD zSBw8;q?%80Y!t8h^7Ur=krb8Z&Sqb$W-hgeKe6RFYi;JtiNBUO6`W}23HCJOGJo5B zE1O4t)|sZ5x9nX`P` zcCw4Mm-v61vuD2e&7D-^Ayjc9 zV7Y3#pd9;~V@n&(HB5e8$h)ue@TJRNGbbEOUAjd5sBfv-BHl}DA3M7-RZ7k&?s&o@ z`9V?g%Y)ccTO%c3M()2U`S``P*cs;z*B?#X@2e5l+^kkB$R4vtEpYCl@O0Iab~jr7 zo_OuR$0RA}vu#q~6VqNRQ_&!ct#*dy|Nn`K%$+9pf88r~hwOLP-*XpyI9$d2)bx(` z?Vsy5wDe!P6u;nN)(Y0=9lYNr|M{_D)QKQ;!pjNzVoDGPR+UB&BcipQAg`J%2&?(E0XtQzUJ>&NuJ6wE!>Gq zCx5zjxF*8!@541eOn-Nz1nxOh;ylMY`=V2&&6`;gyQ_06o5R*mSXWbTl&kcr*ZZNe zMeNzHqMPo$+Tj^we_7&pm)}g~g8x4SJ}0ZM{2c9bU-W?Qo1YtxYrOg;_;;Tm_wE8i z(>1eh95LM(c#_k5#g4}(gicOww~%hHFX5_^nJ~9tGLO=mKbpa2+m}8Gxgu_U{r&0* z%U3wg)>^x(W@F>7r}LI^db{b)*jqZeXOI836)SEw2e2Q!wj_M&){y=OAF^aVeA$!e zA>CE*x!KjWY}@}s{2$c+IbOb~|G@a&tuw{SZfD{@pS#!fVb`utpLQ*qu*mk(t84wI zUUck_-IFuB{!>`%bf0(cR&!p^Fp=_LIrnWkOYWjDQynwuZ{F4_-}&_BIkfHiv7@#B z^p010*?ucc11?uP1j;S=(En}5w*<~2iysI7%B_66|G~XUs~?}%wLF^WcCh)|Irs3R zr7w=1-dM%vyD)2Ei01SdkKZzzR(S9Fbf-w`W~>cg2?v+CDWY(C-SjWwQkwRPa4bByxy05-ig8knIiTHz!#`6R& zUegV<+h=s=%r$k1;GSixA85ymK2ce|{KAtZDkrwJ=KFtHzHXU_zdf8d<}wmoWmx~TPEy_aHk#MEmN~rm2iMMX zyAR##+p+6I+1p%=XL^zof3Djh9A@U>y>~^!4X^pS5APLSm-Tc^E73mP`q|v|?y+|M zBTj2R^qfDrxOw>;&OG!wI*1X9^F%&`(8on{mTcBBdTqFY?=GkG)5!m;a_j(>;g>c=5Q;GNPto?ki z?)#s&+UnRokWYd@5%Uo41Y5}&F5_X5FB?h=&{zlmr}2$)hR^G(mQ!g z=2Y9^m{OO>goKKg|C@rX-z)peSMyA{^{*%N$gjyOTVzd7e%X4#{P9G!|2M@8euQ{R zyZ`w9Lt|Fb{?8BD7hZm3b&CI5xvW;kvY6n_Dz^JBSl5cad2;Wrb<(0MZjp)>?~ga^ zIm5+ybLx31_L$m8s|Ekp7`>j(GxOTD@b0zjMrZyrM_-j%iaEz;iF6(`-Z?&`RU#J1 zlY9mW7NALZ14CS^L_qf^AkGsvFyw-7C^Wz|!)Hw3Fmcq0FiZ3~c8~zc6Jf^Y#z=GQ zD62#^Fl~p2XcE6_&f1cak)4sjEy}yx> z;pvecHO#bWh!l}{(`KNPbCk0$cm)&M1hlDvf}sH@eVQ7;(kEhp2>JxHfdL|If{w|@ zl|0R`CQrl!G-wMgYyl$X1hkhvXbRdNzW+5;KTJPDAK&ydbtax+GtOnHdHThf75YTZ zGg}y-WiPM*$=S=)!Wj8tlerP>AtC9v_B}pu##QijXvaHQ9geb%-|uZuQhFqzd1W^OE@|dxSFguRxH*K>rq{nvB_<6hDo-G+v8<>#O*)5|9^HtWclR3=jZ)D zlgMXqfA8mM&uiyB->YW~S-EqE}Nii*=^6 zRJH!9+`%5XuAKk-SFRHN<@GEPd3@hKeCF!kxMk*hX*oHg@=s4ztXSdst}$_PlXIX2TM@098<=SmIbUfb?9tGfOBht-eVvM=|A9*9_6 zPh0b{r878Zx!-KN;rF&Wsqwh8$aC>C_l&m59~kVKbXD_ptfRXS(n zq$Hi`WzQOy_r%1hPQQ0iq;cB4Z47qicS=Ned0%|tnf?4@*NLMxn*TQ|2RSz#VxH@9 zLZE_gdP0WdMyt)9$$@K6HaZ`WyX5&yJLrIhh_Wa9M+H&Ok0%9IZ8*VT@5-{lvFK#3uUyQciFYc4 z88dbEUfLfpcjny5D-Tw_$nVqknDjAb=MvA)U16&vMdAs^+V zGGdFHMSiFB_C;yMXX`3&K3U5*`(kTaxm;h>m7h;8RNR;^+^eSx#duS7Vvbvriyuan_gJZZ|QDJl2zCLdn8G}QZGlgK2`6sAJe zqAiNsBKp4F5cj>fMT;{@__1P`s<&d;k)+owH<%uCh2JlH<@1*>k8xI5x!HWH+JAL# z!?(npu(~=SbLL0a0H&O^YMZCk?G-J&w9rR;#+Hr%mxG}mn-5+-(iPqMS|vQjD#3n3 z#_z|*vsV0^^8VzHoqcuHi&N8=q)e5|5e?uv+Vz*qqs3!e^hbA>wL-IYd|Gw+R`h|o zI~(WC5WM**x9nVA=~+di&DU%AFJ+ugIg}yuKku}eN1^qtOESzCr$;<4c%=I}&fl8# zF2BV?M!yMljO9+zveD+x_1aIqu~6t^so1QyxIV4;&;=<)sI9$vvN&4$P52JW{H_O~8j~he{y)cNS-{43 zDAgk0qd-k|c0|=@F4=eW!rx1zzW-SF^G^Pv?TP_OPJ(l{U2YJ{FpF_-OFYW@@^j60 zRoj_5o@LU<^AG;b&^;(wP*BME(%INhc+cf6hZd+^?6jUy<*w5s@a+2mD>GHiw(s|! z&)mv=gTaWmwEgS;b;v^p76q&y36F=^_8M$cIkAE53tgkuto~l*?2?`SJ}=Z>ta)}e&VONS?xnz1$P|C;%3@#NMs(QfxR zl@D%L_icMJxqXJe{p5cijSuU1Nt@bVJebiof8j=UMjo?=&X>MCpC1?zxioWPOqKhZ zUtH2VwnvmqICpzj?!!Ypt3KP07q}^H< za#yS6Ud%f?-*=`7rI!+1HCUVlemDp8FOqHg^W_guD4WLR;111`ChE=~7ZmRHOIqF& zRN2h$(zy5G6H}=)^V#xqr`HJR@HxfR{j0m?^TX6Jy6G`X_1qT>ey-kAI$6!73__30 z?P7hvrRSjX;HvPt)bcqc+uE=HS`i!Bda%Yh@}Qu_fmbzryWf7{y0_~|ar&G7#q-Mc zEqd~8jrx~$J_lP)>z+Nc^N-mV0jY|HTlSX)stjcsx>8cPR*0-r_E=|`xbfbPCcjOw zk}HdvRVFmge%P(=-QDakQ`mfN#q8*$eg95mWkuB}$m}`z^Q_>UOLun{lxvDKy6UEg zKbsaPr)B0YsHu4;mg#6hpbP7Q4QSxz{3 z>ZG2#a=(mi(A}8r%Y7C;xa0A@V>50qm{>U3Z&TpT=%?;5scNVnLsD4lDC>w(_<6T5x%*C@tj?~r?H;;`@cP0N=ry}$n3)!=`CY5AV2uJ;c& z6y6t{UFlaf_3X_vvTN*v>!)fJ)GI72d$+;#lKZyo&uu*#5&Uw;m0w40*86Fle9`pU z0xM1J?-N$0=x&%6qSgM=(Y@zk?cWJseqFyPCiglVBD2O%y)dL|HPgRRHJRP1`-=C7>9BO0cr=IjM%D#d z%B1wOhyVP|?p~2=x%=~}yZn0hEu7|th?WNBKdEBn6XfnZQMB}muY04GT5JEUcS1S- zPm5I^yx8VvD%-Yjr+COqt))&&C#kBZ9XS+N_I%=o#qND!+iX>*J@AwX51Q`Cdt-Y@ zd;iO#EWc0FrMho99-g)L-&5a}YH_b#IWG;_(c^5nNF+-r>s!#O?FtWn?TVS=(BdV! zh9g+xWx~eYPbW#wa-Q-jdZAdJ)U4gJqbgKeGMh}bOhYyv^4u!IUv7Wa>)h>NRxx&k z?Iyb!X1Bzjy?QtPd&Z0JSE4c={(LXvdHc`{j~OOHj}#TB)QW5WvJ!c<{P>FOm+$B7 zbbS@|zwTpMRC}aw4u`wWJih~+*UyDrzjAt;XW`%XHkyB8y?l16Q$>WlL01!?`Qq5l-boG#2?t<&TjddfXp??g;r z?wRSAt#xL(N_aIm$45MNnp6B~`lT)nkM6)_Z+$1X=HC_AGJVBSg>BLo!tRvv&M$c3>h{25lFOt{RY`xFPVQ4DB77F=OWsP6O|w5({5QV)byl1At?DoR*^26OO0qYl9pIWVYmZq%^Y>Fv z?|CWn*;uZe|lsup(gv6&sTfiJHxdVZECLfZ&|*YS}5{ur?2Yz z>oeL@Ca$Tzcw2JvpH7!Y1rHh9g%dA+65TMtXVS&4Im@QK6ui06^|ko+EfOBTKS{*f zi6tLkJ}3X}(7Z=G9!)WNRi#zLedSg1#kDKfP7zhxR$scfXnJ^FLWcrc^Y^%jRzP+JEYW z>qO5yfrEK}GDPzZruJLe<@fwgNVVO+@)&1ML#V>xn}@z$Gu!d+?e-1VuCiXcb!wde z|2vLN8!q0zJ&{NK*}HWAn0A}<_xmq-Kk32B|NqzBvUZeS zb2v)(+AB6Gt4nR$oY{|ZZr8XV7gAp-w=b<;ZSVWZzBSvAzUR%nw8zBciF-!X>-4Op z%_TSdFY#tUATZHJyR^NB;cHKacWw{{Ra=^7q0El%Skd^#&tJl zclFxyeX;ZAy>s7tyDyu6{=<`1i{!tb-kJaQSNqJPuO=^OPP*#4)b0dt)6}@&7n^R} zRonHGX@7;{F|9;l^JQKi72hQL%kTW7>}TsJvD+z5nENIBy^6S)1WqbcUFdW1!Sb+cEe+bzQ_bcTNS|Ef zG-uMG)u$BI-}H*Bm$4boo6h<3XN_Oj)q{VRhR4dQU(|Zo^g829dCIdo(}hh+53QEo zz8&uR!)3kCsdY2&uLk+)x3Www0#lCr4a zH@BwkB=gM;9bdSQN>4qmYg?stEPmy+habX^{$#B*|C026J;x%QebP2p-+y0mweEsO zQP7Jti(@er|M@$1Pm6TozQfe|;i2@AuT$f4FQ+_6NMe2|c5>r{6Q`Gk8)aX0U-|8N z)3>+Dof;k?$1{yKP2$!(9C@kD=6zuN!Dn4NyjB04ahw`e>k+*6rdB7bq;Bwi zXkduQy>MJAQ#ZwF>!S%yYZoP7&(%_`-+0d@G<&O%uHJ{HxAg{(A1^r~Q+;vk75=&M z!K-9XNFPwO+3|%fa^wGJdS5c{Eec*NzFz7o>(lrC6_d1g_pF?Fg`?%P=DAb*nR9mf zZE_X#Yreyi_-d`~*VT<~D?C;9-L-qB62M_vw`lwAYi;aSpATFXxGJnE_x7KA;0e1M z{9?Zo@U095B)xmucpq?uL5&j`M-XdtJtw4_#Ury`I}GoUfz0f`_`o!Hx3D} zy?FcoTZ?V0e})|1n3ffKr(@Ztug|yyzx@i-`O|u&c*5cfDk2x}E||~1j%5y~#d{XL zrD{jF?D1LKCbLZ=aI(zHExLvix6j+r;KTNaL525hN9k@G{jaBP2$UHyd~E4Ll*WD8is;dV$&Z?4a;xL+^w{x%;{ z7KlE6e2I%oGym&KjUPug9yV3K9h)zdY}C^8QDN`TjrpM;`6~{IXXx8b;N53b^!L1- z__0^sesi=6I~P9TKKdg5*wXW#@9ep&ZL1v1sF@QK=;U}(pFi;1#P_Q0xd-RXliND) z?bN50KU=rFu+gj2)H=q0w1Qu}SpQ`EwG#1~DGNm9GF+Dzu(-XD-#_<=|ITnO9|f&N z9?F4Bu50jiI*Do(8L%9+IjOQXhGUIRSN)_Sxqoc31-$#tS;rQ=KkT%3=YFy1Jqr2O zXBgNc7?$|2NpHEMnkN2LPpRu~>&;l0KC2F6!Wpy+qHw1p- z@-&UP5Tld4o11g)?8j1XxO0D{tL?pSXT0&!aUKf^{RcCu=Dy(SbG4RH6?<0Cx?cPNyO^(zy>i%+{}#VbMsH2*{i@EtC0td$ zSoe`M|JKw{hTo~b+isq|^JdPr6CM(ro<1z1E|D(W(mbJA)?Jh9Gj}#F?#pzIf0Qw2 znR^ZIz2_G=j^!0IYM*YII+NErWqB93--WH8zpVQun`h^EPB=bq$?Oxi&d1yROnU5o zWXG)k8$TX#FPQo_=VPhSv@f&M&95)Di?|(BzGSE3u5-%s&!5h6N zmr}WIEcFRFs--9xbaRE1#&h1Se_YkqEZJJqwkD$BrO~5TA~zcoy;5t0{9E2_Jyv96 z-Q@9gb#=dkeck7l>%XQ?x60OxO<7<3#Oma`lW&CXuGZap|A7M6D{YB2^%@584DT|c zG(!$4?%}2lZz)td)925w5!65@6qFwCp=TP z?7ez)=Br0e`+ka)$rS%QzTP}b3y}3|9 zuj*URq&X??jExf8qfh0P-xHABmtog=$8oKPyX`{eyO}R;=a(#Cm$@P~6SA z%9|;L>yC8IXfQHL;Cm_Wtg@ji_ToaF6}tLo&pq?jQk2#UJgawTpLyQqwmYrWCU5gM zzFij~q3^N7Uz&e@WA~fyo6k*jO!>0uXY%$dxw~GTwPw}-)?ip-@2G4UYoBIU(=aLi z*_<+~Gs5O?jxNpKqqT72-pcJ89&bE%H*fX+@8>w?6+GT~Y)19Er=H?Wvlk^=TX)V_ zQt2Ce^UsSb|GxRps`iR+jPW-97pwiNNobF9p8$8*jU$b*uXbg8|8ZB&k6VHDj>3XZ z8Ht6wuE#w8Gw*iV^DQU3^xV8xD|vF|lgoBLQh&aC&-}b#?XUY%zO1Oca*wYfp*uM` zdX=8cM8TE%=5l%aEBL+#mb^XiETwl%hPXwO{BGs889mR>3U#skt|?iop)qNK?9L!r z(Svq1`HLe(m#N*V2@W=~Ot}@Fn{~|KKlkU2g8wlmEi6If<uoSBoKXQ-cEl$uzQ zTBHxT^gIW0J8w>Eaj|}`ex80oY7uB3TXAN3ZlZp1PGWI}ehJFFoCRq2Ao2z^umCh< z+%j`OM!V%CmZZ9*Cg-Q5a_I+`CY6BBH3fy5p|ieEYF>IthJvAmA@Ug|bEi}m2!9tn zUalLhbHvajcxhQ*tmzbyWe*ExPBT<(JmP8GBBhbAZq|`QV$*t5Z%*2fBkBG6>efrq zC$+t!Jg4PEPMg@Da3-+*aPXrkn;XBJ@>yp5MXmMH$uBc_K1XllyZm&<%P&7xZ{ECl zf35NU?{@p&|E`tq6BSRi=sUl9-O8I0J6|3AW-P29r?PObjjKAcmu7Hp~b zv$Jyhe5aZEidBk6x`(D%oe7_=HY8s1?|te zFzYL?)Z$%k$yYOZrB?sByy#wD)`je~b6+ieT@sf4`qotKT(jF;y$3fPO3ABAz3H7b z``)VH{L4{Wo|WY;{O2OS!pI2#UHsft+aP#V7A$|44&W8red{| z9T(?reG%<*%!}u+nAF-|&t!GmO4rw zAi9OU;DBY$#5F8oJ#&vvf4IE+n%G&*SKZ~J&%5pQS8Cl1Jv6=Jl4d)4>y++EAQxSk^t3Dpg@Z&Y*h&GPSax7?MLmg{`B zC^D;{OiJ{i>!amgm#@l#-N={DVsynfb!*9;^me~R-&(#k*T>Wxc+Dg)oRFy>xxZq$E5A#% z|Dz1O8`oz~du=PkY5P~R?(wPWaFG`k3tgtZ^oxv+z8z&f>D!$TKR#IOtXmf%DnEJU z=ZQS?TO1#qIrzAGTJ}=aGmAH~1l!EqUz}AV)Zrn;w{7?BTH7hB-{y9{SoJ=$*u>d7 z(0t|WiC3eA{!Xu&dq4Z$p5Gg*9zOXHy2>X;Gjr2M`>uuU4t=*z{8;GpXO)l1jk((* zc*B}?Z<@|IFMo3KrG5I>R#;v8pK!bE!-2#XJ$>K5$~W>%T*MxI_Sm;&ZNcqnbswMK z+}}50`%$IHjVdi#dRcvMBR9P@ESd6{P5H@*tDD2?d0dJPEZ?|k%XvNJKT>KgFD>-e ziQ9*N?fusFcwxo|4Iaji-;MW8=l?BLn;UZAc{!7Jh10tg0zF^YPuf)VzJ8ii#JkhC ztms|sQdTC$^5bGJzkX`Cf19`N(BbOeNiy@fCd)6F>dtl{NWo9b{owOY8_qF!d!9ez zYrq~6#VhJ7w{t2}%jd<8CxRCn9P4fR!}96F;!8)94c^JKDv3?cZ{famhL2-g;IRqX zESe7*-oI5pb)nKKI>7gF`qSUaBG*=1bXcxgzw=M-5^V?e15WF7ExCKoAA4~y`eVX-mx?EMIcDxrxUExVG-ZbCQV#YM%}vbG>)tWxzel@O2$TFn zMZQ9D|IfwG12^5d_?%sgV^(5D+jo__Q)W!vVfpiIS+(tfkPCrs9IOlV9j7fUTv^7E zyQ6z?ZzO9~dvI-v-OU?0#ZK*~L;prz?`TQ0f75=f)U*v^NR`^mjg}Eh7b0_Uvd*<)ILrbF_d^9d= zTE3XjY_;^umM>?nFMS$xQT_G1xczlr9IPzI-m~*NZ@s~HgP-B!U)#&({jPp3k3w!P zToa+o!I^SGOSRV^Kk49c{|Ve(*HgTn_qTX^8@`!8f9nHY%!Y^|(oqwjDiz$sa7isr zEi_GG$0ACSQ;Z~EKQg;rd`bG! z{KZEcjXr+Odz4@~;mvhjrQ4Hr4@U7_6Kju`w^_X2VgvuQuZOnomE7qgCN}q#&^A*& zr3>~7r|uEnaY&<^_GN zbN3$3ZCJ5lZNBdu32ABTgVriVP7y8tcP~DE^EjIu>ka+y-Cw#pK7QU>&dc4qDgKe{ zqxAfH_gFsbPv0p|}@4l+&e`%YwW_jfMw=XXh@9$mf+jBO3FIRQ+mv!&|I?rEZ z$Nx+1``_^WC;xKA&Hi*tb>7pzKQ{k;{>}eQ{Du9M2VOJRu*GcW-DI1&{nEQv2W~Ro zm;SPBM&{*z0zNM?gv7&69^rj^t|qHBEnLN=LCw~*?}b&}Cf{Cm--tAqG&UDz@#R5p zuEjU7t!U2~m2nN#e0?RNA2zP-rtqha9|ne{<$uG=@N-Qc%(h+Y2D zV%iW8>^5AODRZ z8|9xit)CQA7`oB)*Xj-J>*D9X?`qUB+I~w<&dBAQfXCnYGdIl5>+<(8D(ucU|G1<_ zQ{&t<>CJD-(o=);cidHTo$@S~qd8#)lVH^^RncgcCW&PV$xcH0B z&9|@k^LESWCF%Qw+ONOg$*g-vd3kh7mqXY@|H?H7S>F^N{$g5O8|zW7D(SoL(MQ`a zNgJyz6U}t^YPvUgNq?+~T5NGa<97SCh?Z+b8|4mH$e4W8oar)W8ISVclMU{V3x%xi z)_2viE>b^TaY=r|@3~?X>o)~P);_6d<+N)!w)Saa=)VVyad%7bNLurq40Kd&xpNEhj~_?f5ddte7wYp%FcTmEJuUfENweWu`gTCEC!#A}%gep!fKDfL{S3u6=yR01J zYo=@G?;CMiNPm3zzRu*L&Qp)8fqLtnnQMpnb7#cvu4n9BXz<3@XbMlYnP~3psLy_L z!zS_8cl}F@I9$E|@w^SJJ6yfbKUR?WxqaGa^Zxx?=jGY8Jz9ISB~^Xt-`k6f&tA(q z86)WImOsxgjoDphh3LDS!q#D2b8g|C#lbrUBWJxQn0vieOX+ra|!&;Iir5^9U z^48rsB7Z3x5e+N=$j)`YdFjN*`t&&uy9 z_m*GEny!6fOa1z9(pRRk?cm)y_ngl{)kluo?>NNAM$hxvo^#c1?)!>_x?PJL`?)Mw zaz8NmmDY9MNIWe0t?=Hln`!)M%X4J3*BoJ!S$5!Lfcfs0FH7WZba-FxS@bt9@^ZSw z|CupwG|xTIRxEd)#Wty&Lvm*4%9k?}Q)d_dY2;Q+ZulbKwRiFNrP{AA_h#NKQ2FV> zQc?Wg%Bko1qfP3GPEk|Cw#)92IMEX%H0>_i%B4H2G*%0hh0F0*$ZH*V$Ma3oY4_xZ z$8K;fJ>Pg>PAF?P*L1N%p6@2JCpc7|yTh?}f%l2Y2XY(MNG&~kUPf0>fAWp%F_HNT zbai#_oV#zLsbu<1fWno4Gh7AK{rH9L3SHogCNqC8X7;m@D6 zkKg{ctIJ@@-~X$>UYfo%*L^B`lU>Idrga=#r!u@F9iq9i4@rh@lFzvNHD}u5{T5Bf zAF3J2gjZ;9;fv$rn|Wv2?G$U-~ZZy}NsmYm1cY_{o2-=d6dt_y7ZKA|i=I;Ua7n~MN2z=msUE_nf`l&^aIX4Du z?480r>tz*NZ`v8J@`@RG0+n7-nu~bnN6(u3-LOFITKwXLDqBQNHr(+E`Fi!`%BTy= z)HOZJgB&Vs5-QyuZQglBLu8s`#qyiSbvf`%=pO{Br2O@-^VOw#l>U<_F^5P026a zQ15W$*Ub0|rRMdvR^MYDF?`;3yY}e3n!L)ecb1vA7tUgtr7G|7qG--pdsfbp+mfEA z7A~2w;YP~O#+KyrUD^Jx?#%LA{W&M>)Vh{8Pu6T{^6+5yO)4;D6)f*IFRnXx%2%hd z+2@|elfDy2G9l0P1k-&`2S&^ zS$qGjP)3yIx%y=XDmomF3fvMEd;YwZwM?yy)i+n+>`bmhXAD=FELk3;y6mFH@}9B- z^QN8MUnRq|dRLBJ`o)Pl%ct0S?KL(nmAbL=26vThs2s0|Z}pj5$k2YzWM3Yr&F6& zUAvkt)E{6Z8h3B0SL%l!?I|06@5*(wI~5!E=iub!+OuA6z31>t_XfjhWpnN3z1LJ( z58B+QDM~j@zx?itbowQ!=T@BRS54=&mD&}2n(d@0SN)$_PU;8PnS;@yJQ~qZUANzxbJD)>jv$jgD zH8M6%WOpgJ$G+{l?zENsR-$!lZstl8xv;7YFMd@|7l~AQ zU2&pX|D(@>HC|QB-+oW=I`c~H>Aua+i?beR$aEX$J+Yd3kY~D>;abh_bm=SiHq{>0(#y(`kMqo>?EtKBu- zQz`2e$EE2v?8}dAwD|Vp^ruU*6U5e^_3;R9(~l8&?5gXQQFtLTwYl}*igz0pZY=tL zFiTiD zt+RhwFFERcbM8wDAW6Qxy^+mB>s z$0##}uUZ!Tv9sS=TEy+r#WSCdGJEcC^@v$#Fj4NjsJ@-9vDmAvvt$z8gFcmYJT!aT ze>?VWMAe%W^`B+jmA)&_F-V&B%IfD&{V&mWd#f{rx6M>F-WE{4Ld^R3EFzCTww=D}r|6?gXO>NN<>Se3R}(az|sF4wf;ck|C2Kl8oFp4^}+6WvMtR&W-7J*(C<5&7nXO6xyZrRBRE5=pzHL%F*+(WK+~;+cGtFlJwokOcsx`SJYIwS8Ww+Gi^V9 zVV!l(F%_lR_jjyIS^jCu@p)Us1J5t&Ho0nel#@5{!O4|L_Y}n@cNXdQ`3PweRFi$Rg17czr?(GKh62%x&7S2 zV>)IRycd;N-g8#&udUb6(m1nUN3*ZMS7+&sf{2S(AKh4V>&%p%Ej+6%PB?MIUuna^`R+G0PK zOKoGzsRMaCaK0|OX&2EI=h1Fr}^CEZ(lz9`PYpk zOWo^o_HFZ-^n`Un{(>0uzf+wz_CAxZ{B0ZczrV&`xO?L3XRJrLKYo8URj+B|gNI^| zkN!QrJZ01E<@RLSxqVMl=1JuITr1MZX~J~SVA<(6deu`5QVQ6eV^$utUuv0eayCk! z=QY>GSh30V4~w>?dsfZM`hI7Q(Hz~X+l##0%l&GeFQ2+W+j{$?$(KA6pLpCp5-X#3 zJXh)ZO|_csEWdw9H1p5C?K1nQyxro(+9%Ea?Ahei#A*(KTiL z9ovr+W%3u#V~=^$_4!1=lS8XbC$PlqlDZ2tj*Tt<2mzKFQ}^Sk!Ht^AMV^G&6ew-{7+eoVi9 zlv9V-Ix_b_TDctomzv0_TJyvewQ{Ny*#QT)o%}o@Yv?&Fs6l=dFvkrCo0NPc~i_&dp+iJ4;0N z`G&5v;K;Rf@7mdywJ2oc*E8rEWcVEGzZO_Tx>hH?8O5|2@9B zvLpZGk*bHUfAQNl>F<=*lNVOqSWs4H3T z`sEvOIf->2FR$3T@fMG7l-iP@J9+0BGouzgT=FaMmpOBtBIm4~7M=A;Qp)Fou4Haj zeq^%2S$BfEtha7xMF&%`n(P&urBaU>Y~IdtI(8w^k>~Nr=PYO9>iTL6_I#|4niBMK z-T{M`b5ffkj>&thT%NUF%&x)P{d?#Kd1+i#iT zeP@?uyj3FqoDWYJzq!rM{C@I*Z=9y1R_gO(6D01tueR;oB=+Q@{O^;6X8-v8w|;l8 zzPCOv&-M?eXj|{ht%7xu9}_oB{k*>a*8bZOb#D$W<8Pm2m-4G5$Z58xrrN@{<>o6V zZI>^e`=uk6CD@!(Ls|TXtH8%Pw|jodcbaPWs<+Oy`!8}&?kPh)|LZk;%xgKcHC42i zG+xxOd-j=IBR;71>3R=VqpImq@)Or;UJ)s{*QLv{V$}kHPQN9Z9C|8Mg1Q=J_62wlS?TY1<|Rm-lSZ zJ9aMQ^K0te86nj*R&_3J`72{``2OLR?|~iYpP$Z$(49k&*-bN zG#GQD1o_rbyb~pUp;5t+pkt0hP*-din?hD>7#bKDAy1W<;G8NUcF6`voo{Awab{k6 zcxFmThJq<*k_CPixud?bzKcHMY-2C*)>72D5zyAs#N^VFRQ)9VWPSAWjnnkgz=s;^ zqnu`(rBB9r#)YN%pp((lGfMP}^o#Y2Q%T)uYOG+OfHFM-5+Hec#N5aPc_a7QO3s?# ztJ~_FGAua47P4^^oYy=NAR=&qyJ?Y4(gP>ic`IKYVxP?)Q83%XR&(m;bN2|M%(j_**8w=j^@y>)Q9) zY+1AHCmdq4&&q8rdVH;vTfCxv?$eovzWK;L{K>2?CcS_9m*>9^MDX><-ZUwlRb*;_bxnH2`i){6u5A$8bZyhMjq_61rrRFBb>Nrs>(XmU z*W9kDT@#r$!*!$EX1PSwjdH0!H_0XUCikZQ+&C}6H^n!}H?2Q$ugjwIQYVWxHoLp@ zym)AH{AbaVc@zIXE}p)-`pTI=-VmnJ{4ZDCKgs?f)G9 zCcc;7m8o1ib>R$#V{h!Q{lB#3O6Gstz0XeWH2!2Ob-zw<$3?yE>A9-EbN(-u*&_P$ z!=X67;Nw}TR# zr0h9Ui|1C%^bgx*;-l7@lc^~2vh0OPnS=D3>szYCqq!FD@nBpeD-}I=8t3chuVSng zbNo;W&<-`y5-hH``ePe^-?Lv;=T61UtJE{=dg(0v+d@Np?UR|Y)3i3Peqr(Av{ZL? zRo)$zR}&OXiXX?>xXGOKcx3W(g6G@Z4$Duj+Ov|&G#oS;bLY(p<6tQ^W1hNFTXS9M zm77^JPEC%@P?@vP?#`=QTT99lwzY)G^=5N5OPn|*pqlFL)#TuPQZ_;F((Bl?U4OEU z2AT(yPS6p~+;mmxnP^SW>Pw;xZTg#^hKfy#)L!!?!Q%JLyl)@>3H7-@`}laFs>X&3 zfx*}Bm0mtm{z{hN>6F;akc*lVmUy;V+(_^F?&j*cNOkk;o}SR_D_9vdOg7E&k!gsZ z^+oFzZ`D@jFEty&!nR0jZVrxr79usp$HXOT(FxV0c6~)f#&U;`nv-KPlJ^}uYr%E8 z`5H_1qpg1)rmW)SV!z9fm#n;HQq2|~wapS*vPOHSc^ZjLX=L`PYQLIj@Pa*lGKWHt z-9fIsw;tGPo-i&>+TsQcG*VO@K1}r?OZRr+Ih~iV4v#y6PGbN$mZUV z7EzlsQQ(A1{$0sk+#2`)?R6^uZ(}ZPTRQ)8{hoSD|NKkQ2V5je%yw>LNcs8Ywf3QP zIeNT|c6|ppBRZD;___bQgUPMN8yf#QocUO_R5=Yd3+o?$Y-YoMWm3BT;+M~}FCMy` z!BYJ5^ZDxg?5}qJ^|zlMHGx6uSU1!1!1%O9Cp$lsna{GW(DHv^J;(o}u#M{?C*h@w zKY4OZea566?7wO$?m(Knz-@WOs|=LGp3ntH+#hL;bh&h1q>$7 z-#5B5m$x20qH27}cwuYie#RCp0nOkUnf2-f(#njg}u5-LLvT020Q8>o8l*j70>+C>-E@!7NPd4pO zlxx;6WdEPt%vEmtB+Fs7nDKVC8@Jc|5?k=^$lhXY5q}=9V~ySE#=Ezz;i_j`A$iBe zAWGM*{hpJN{I}#e0;^G3TuB(58Nts=E=OM6s46nz8nf$ z@J-{KnQZami%;2S-r9FBIX0m=E4H%B`H4qc&V?6OqC^`n8adTIzq4ZL)Vurl&At5J zXws)IY>Q>TObO z^UIQAZO8T7rv>brw{(+M$Ws(IjEMs_^d<4h51LmZIJ#t>Bhb*=N!W?uJl^kEHd7-#96F)`BCXqoQJ?vekHeawW2w$Y6dgBI3_$l z6_bD0?X$joaqs?0|4OOe`t0*xJL~Q%J1FjP{v>Cavsj2l|BOJMnY{SL<7W#dDC}_x znlf|ZBpI7IU1r&Le#3#+ME}Sr@c|TDrGvS~6wBinW(A7Ch6d zmHv4C%7XOw3g_&V_t`CxON#twpM2B4&Y0Kt|DUS-YUO1A@}m|9x!Afddj4Eg?ZWXR zZ_B1h0{1NWv_74AaQE>v%XZ~|OxtByXLKEO_!K`id)o4o#+@nd57TSKii_o)ew&r6 zzPqyWs*=EG=O`urKVN@rIN?wSg~bYidN^{Flz$ zzb)k2)49$kD2ApknbS3CjY{e!C-41T)m%jmv-KaQFIQ22%c^DaKfpWw^zyCKC8I?R znMJQ`tSGM*@9by}Ba0p}Fdv&!?4>*ZTUJ zmi*k77s|TDIW)I(_nyTccvdzYyz`>ONmQ5bT%9f7ijWoha_4&6&6jxOS2kJ9>y&d5 zO5PZ+*jdPPY1gdImI7ZE7l#>!hpM9{JvrEwm#cE|s!(0RhbxVGt~L9TbUzq>R&-Ch z8pW=?i+k6C=*yN8O6%P;6ta~g=2mUsY17EDaN+*d<-fSq-BNC6y3TsvSAOR_PM??% zF;z@8c5;@Ff|^k(zuCjU+bPGR&Y9d_zu#@Px321bL#xj2%}j~>TOTBSiu{tK|7*Qf zl1z-#^`-XJNAkWkueY2RcAnwx|#&ExtAXf=`ptItTaPUrW-}r>Ob-T*;mI=iYt(_ElE>LCYsh z-OipLrjir0P4vhA1f3PmTdfam-Nm%FD?vNxnbyAEpnUP&H`L!RN-npYmvTOMkB8+O z<$J#uo|C&DGh>fwUHG;+V)JgNdNXHzGqW*FHaN9F-_-c4{CtZGoFU1sZYjG;!vER1 zi7gC1eNSNR`5Hw5lL>q~kNTQb>rM$MohjxS6_r+VA74>|ni+jMco z_6ZMU`K<2l|G<9QjbYWq*CkR`4vJS#mP|N1ePY<-4oA)F87d1FGqXv|b(3Sf_(zrf zdW^gB#f&c^v)*pqda-aOXW^E#1JkFA#g{&wuy?Isp=36%gqN1IwRMzr-Pv8gzV%Bj zYX3ZMv&?yx^X4|yvyT?CYaE}Dc7nrkg44x4ju+(fdj8~ovCim^d$_B^cGHx*E}WAc z@{5EvyUWaSTXi`_`(=x3;*3Mwd*t3O4>MzLpFU^L-PfPateCR%*#GBypX{4-S@`ch z=f9~U=v(NAQcRuRZdAX>3 zLjk>K|EF~G|Nc=sbxjWs&#X`NOB0jyst(2mhnP(9zEZe4eZ@zv{l`D9`Dk;BJ8)t~ zrsl-pkl6UguPmgl?R%IgFIG@?SN%n2|G%K5FbmPFxqj;wgrA9Ca*j1CI_mt)$zShZ zlTG{KR#`U~A7w9n73C>t6wmiMWes)dIa^9F9OFOn5X1ugsNb~BJ|M^N; zzc&i7b+$dW{A$gWXgux7PS&pvpDeL|IQeh;s=hL#{c~4)>6rQioPD32-saBV9HxG_ zxIMh;XaX(u2aH)WQ$OWx6uj7M`yD`qMTJ*l~m$a>;&6huC z>>qx#ka174Ja^dN{)2n)MY%2gCWo}D622XHy@&On{364>M^F6M`jqNt_v6j4+68ty z#5&aNrJH}=7B_fpm>zgRyJho*NSSx5cDy}VwzyJ0Wao{{@{5(1%1s4V|5n_7#xO?w z^v=yLD@>`uE8$VVT`7o~(~bPAqD9`svcGTc@_Y>v+{+nOWg9XVSSN$~D(2 zgD1EKgdLjme4mv;)UH6eg{PiqKT@$ya^Sn^7U?;8=MFY4&G0_wDbuEjO5d7$^PjKy zt?l=%Cw?m1DO>u2>E%E5nnRB77iimj;Suk35B}HYc0aaQaI<91r|Vgt;tSU=QK+u? z_BZU(@?iPm^>Y4qCrmY0uhJKm7M&#PG3&+0nD;3PcS3*sW1fEey6cfYPht-~?X0`M z=)B)2qv;;bAu}}#|D3R$c;tnLf*{K|ujoY4DS@s(MORvOK3Z|&+nn9^@74THW9_{$ z@9Q$5MNgMG>P}D7m~?f^{pr0)j?OnkY=rs`F;?7qbU3?XT79+5uH9VRE4^3D5bwIK zEo7#v9<|T6`f}wG&faxaXRge%x>C%rqWGI?*L>jvdoMq&-S5v)c;G&G8_oDuVF_QMCV|73sMe^|gd^_PO!_XnI8y*8@F%bYp!ZNPd3`?YHUem}~OEmrrFuQUF0 zxU){KMBMh|Z_g={Sp6q!Xde0XYuBP_i^`rURo%Sku_^3ez45NH`+F>GmOpUU+`9cr zt)a$JR>_x}Qc}$(f7zoF=M`5|xMkKAY0*&O!bgtWRi|8j|8;LvZw{ZGDxA)>Dd>`x z=+UXXqP<5Z&J*4BTij&B#doJO-lzKgSGJdT6?;*##FLM=uPS}2U3b9CsA40-3Ytti`who{9kq}CcorT!UbuLCv$!-n3T0w z{Z8ZJtzL84Olqb^=5Bn&%P0L-XH9mQ$kzPbGs>AXg09M#NcQH3lr1$g&dgg`nCHCB z@?u;x65awRJ|fWS;2%&h0NYIJ2=l@XbzJdEYP6 z4&fI}nd*ZzMS|NW?`me=_W0(h_PVQ1*W+H;_~*rD3q0fDZF$DmGdZU}YM?6|)CimcmZsZ|2}E5h3Z~eOZyK%8Gp`q{X3coqL zH$222HZx9qolXbq(S+TPvNYbWIGxFRS58b$(mg*?UFhhus$RCnzb@v|t@nPEE}rPp z#5dSy+TqfyGk3fA8*R zjGvTM4H$b@s5hv&+&gc5qORaw`LWtN3?D;SBPSfczpwuO#J*F%ZYk|rv-ZcMf(Y)A zfCUSuX6{_Q`EYQ<|Ha9l-`anE%)HvSHskmC`H`}$&WWLqH@-6tZ+O)@w~{G!liB4J+rr_#Qr`tns-}=u(v<>PMGPdwy-}uIO1A`}bMDV2<0m!bnxmP||wfRx2NK(yh3^Fn~AgQ^#rp4cXgvA$OWrH!Pd?wa3Xz zBrImlbzzQ(t8P*$MsJjrGBr?lCs?I&yp7Cs7>CU|L5VR?|p?f zk8KrgEN0g$K99I%otS>aVda%9QAL&2b1b)B*(MRjJWtBRfJ?h@Mud;q+J#fpdXILx z-F3YD{&EIO)N{A!hwod$+j5?LJy`i_@^)$V-e=;^{e)KE^jM>I>+@v8mE!x}hHiZ) z^y|O9)XvU(Qg8fuYnBTYWv+QJtv>K)=tb5i+<(|C)~xisJ)1x9a5Im-@tp(x4pPg) zTpngJS*6cA|4ZI|>+_xKAJ+ZUyQ%k5Z=X@&`jCS|I)$DAux`D*1;KYWVgy179;=vT7R>5IuP0!@~=#!UZUFmdWqzsWOW7Rj^D zORMkEk@+IV^(0h4)j&*2M@&5MiKF8I>kfqsN8O97xHj!QZ( zE?l+m4Eg$k`^6>JzUM9OCtvG02pi--<*qg`pK#CAo@afFYlu<;n{VB3NAX#eo$r1v zV%BZ47O^v2@IFgL&?gU zray9fI5se)}C$4&baa!!d)dtM>9aO(^8kTQZ>@AH2T;8X@XM1qpoDe!YdirCrG9i28RpNVJ)mWSiGJe#tVr#Y{>!KW` z;2zym^Eix@)T8b`_!oQsj$81Z=bg89-H6|{-u!NP?A~Wq&sz^&-xK3Btw?%`A@7|o z<6EhgKN+o=W=`2*e#uFZ#c9@-_ob`5Z!K)mnmRS@%@ww1Yb=E-`e&^Ccz@AG(O0ka zw_m)!W$sU&yrA#b?DmpD=08 z(p4J!zus)N-ztAHQghN{g*_z#9=!8juG7yizqaY(4et{bYZtaQzY&X@@TKPQ+PEpb zKaT2o=qJAksup`$cdz4U@a9E9-&@*QnWy&IJqxXm`ds!t@_XZC_g@ECb+g=gw(eGN z(%km+%GPP-B{H|KOYA6lIBll(%%c@+1njw2Ycf8ljC1!$DYUA3HRFNxo6VW|5*HcX zr>(Nty6$lJ&5Snp6OR6sO_f@jEBPh~&n{0`w|&+N>5OO3Lw|P~8)%;n@|x_;eQJS- zm(S5_krgxjr1$4B#?620|0*a#Pun^nKX2>BJd>J&_#bv(OCSG~+inq-w zCew^7C2`mG<^EPuZqR4(?OYamcVS)^1LK>ZoO@BVJvHI}mGjS^F0tBJq>=P?`~ITJ zv@4tTXRhAe<}=-5-t~)-aj&*)Ik5NO%$2*#b5triHhW3+&*+(ZBuz~FRPf`XNy*#3 zbDgU%{eI56{pJ1znMX5BWfr|+wCz=Y(0QXj!_y%{SFY1-uJx758@`V{UstYvP*vzI zJnK?Hk7h|}e4Y4;$4hq~4r@!a{Kx$G_g?3eP$T{GYV`{)=k$#5{vke~>v2&|&ekE@Po5KI&tl; zGa_(1t`XAhxUTv>`oa1kNXHMu?!5)?mjlfSXX@vGxBKVo7r?gs7vz){gQs{)^h@>2 z^ea(!{e!ObMw!J034nsj#zx!RIhZcQj+Kejz$K~#t8z9H@COUS5=CRn4G||L~&7AKtS}BUE9hQUoG2J zwdM4dTjzXU*M7M*bEiYDt?k@zU*=fqtDm%f{_p#}|Iz>ciwDk=o8qDJi7RrmV!@B| z&4=P$4*iuo#B7pq^TOAKy>SnGo42Q5|7({yIbgc}B_D@{!kSSkK}(;st(bh-^kX5{ z+LEv>`%CHqE6CP?n!!KCrv+I+@$hSYG#;X_{l9#Ts3(^-H)H%`tnj_w@6g( zCt-g3HP>H1KNYgF`0A`3%m1W%fBhKMTGDJ2y3TX*agXUMCvUm5)o5yrRn7LDhvOBq zLO1zoU-!7aBKgTIm99l{9=F!`#jWzZ`sz}Ob=Y$E<0q0Ii+o%tJ#|(4p7ireSCobb ze3jWcuWACEUKa2Q# zBm42PzTIzZ&;D-t-v3x$fXD8TXaT3Ntdhwyp`h4Btvn?`pElMcyjrtj!WEfyU$hP9 zO?*A|z@B}}3%L8GXReTmII3!3E4udrpKJj~70>ZK%XiKQwJez7e%|Q*-?uMrZsxrm zUTpFA`}JQuZ3AgLF*c~xx%_sHT5;>T4TO94ytW{v-^jW{rOmdUL z`G9~K{pycg>ngaoj6#dQU=_1q`&v-;#VYzV_nZJ`(SYFV9nThI*l*!T4}IPw$TL~7Iz6pK zbM}Fns6ak-k15P-Zi|d&Y@HCgHb1?V#eH7zj7I{cajxy_FEue9^`7v)#3j-Gjk#>_ z4e{UizPOhwpZtD(qJDev2RBcN6K|}xKXW}Cxao17#p5>{ck^%kcF_C6;*FZOQd1KJ zcqbm~&5A543HfEF&>nMecFYUK_JaMvEib%JR8Dp4tyq{M@=ak`{^yTP;tj6liv6#j z=-g-DfADegwdbw*&(0g(sGo6QyN|2UziEH!CkW|m@yucGFP+c+?bGW1M8PyCruhLb zW-{JSif1k0iHexNFrr{#u-=uO{w--WeMxh_T;K}P59|sqaJUs*!Mfo_yiDerSC0Z8 zUq8dU`BmV(&Zw!6+&718-oY?M`<>Q$t3wM{CVgRvxMuqJcf@iF&X;@hVm&u>=}&)t z?9+Cs84=0vg6HTt{s?=ctfTO2L6zsO<_@)&>)fnWKdciDjGrn#^@(W1w9sv-Ten3@ zS>NgG%hleV%jx^rYrpX0mHQR1GmEM(;PrF1++%fU-n_`9HFuBy=IDQJ*)p@*^&Mk~ zg@dvq#}pGM-?EL2M#h%OnRWXZy*l~2w2ZSSXD#+<3rhWP?fLG>T0DOor>=dH`6QpDr|2U9hHW!vV)_m#bd9KXF-PiQe;5T&s9O512WHa_@XmqqOOx zp2!U?C%Net{`yI+62s!upuI#ng1ccdB}E?RFEk%zd-!y$9%Eb26T>FspxM-jPDSC7I>5dF35d_AZ{&+2(E$=;-racizrSzo78Z zW-aescQ0PLb#L2h&-6#TzVk6KetL3phC+^rW5T3wPVsmk3}6z%`!z}0`V zO{cO%q|Ot5yZ_oFk)7+6j!xh5K+|X9iqGC#CLC7V{zA6QyZHIer*n%9?Ab3@$n1L^ zzxjfS$~s22FuO81QV)-$`L zbHcaR^e=zV$#~f_e6m88+R10@lFf6cw#|AIlbkqlVn268hDWS{Q-z96MFG#F75`1dQ8vb2AOB9O~m0vziX5YWdZSjSNuO7TTBs^jIk5d;9@9n*+ zx^!wxRb3%l%4SVn>$h*u>VA`pJictXc#Egy8_6jj6y^RLE_!)j6W^9cSHD{Y|}nTer$?iDkeYwl}>8&F|fw|IumHT=VNYb=*&T@fE^R%ugdkk8GGAk+q4r(mcGS4!7Lj#Pt&P3I<#)Xi^{pn6a<43-B(|lB{*-Z zGMm!P3H5DC_D{NP`u5vTsL)v0S$%FN>z~H8yEJEV$4Bn={ni$?@8q);+3erAD?G%b z=WOcES>mVT!@iB*UN_VI`=R*5^Sb7k8vi)au=L}X_CIe=rXM-BU#d>7lgHQRx!1+% zkF0%T|JTo{3;6F*?tHI9Zds4p!$Z2B?b~b>HC<<~c;T^mx2|j%ANzx?E{nuhb$7VT zu3PwA#bm#SsmaOS$Qn{Qj9a>+(nn4U;O&nTY{@{E6B+o9$~h{9Asm$;|k$?D_*4Cv=~PEIdCy;_3!Lwa111XXXpuQO>@3@_l!) zsDjt$mHQ4p2)gp*U2nVYn@zsn&l31`>Lfq9#%SJDe_eK*TmEH5^{G?Yt9G2aJN0Ux z^K<9>C+(cA=Dj~|o)>qspwvxz=AUm9?&QmfEX%cE&umgMTs za?V;T{7oX->(nQQ!}qe1L?)Q_PFC;Otu4T6`$W)Gcyy)K066Bo2}R!5;nbj zLdK?6-{fQdlLV7RUdmUy2lD+5ox5(o@MX1(Rz`~gbzl3QpQ%=UQvWVEhb@}OFS2~Y zi-#w!dd`gbbz3?r+=;G^G5@Y(%BYuLns z`+`vsjbDVWsGCI}OuOtT*8e+T{|%n7wPGcaGVhN6^_j-EB}#inrOUk|kqb88JdpLw z&DTk*`~3AKH~GqUi!?nlKV;;YmuV>BebSk&SnPhY%OmOdlKHRS=-k;k-T0Wu8;>pN zQDhF`e_kV`{zI1M}&o>^2hd$e`;NJWq^I1S>U(a#f{riIi3|nIMoNN-~pPezc z+3mHI%7Uf^57K$qF75BS@#mFN@L%`$itmMgP2Z;WB4|>`G?DFBW5NRu^1g0rsqM>< z%C%N}>9uXuOm(SGvw z@1VusE4qH^iydIC0QHWFQTjAdP67J_1>F%iQ>>C_xiECA_0# zXl!T*>LEE6C#U9>fMk$+OJICf2`*hOh`yeIisCdbWVST&MBYs8i5x)u7wzE*SGrd6@bKtVdTP$(;rYjN zj%OWD9M77b9v!i_<^TV_c<_7Un(Bl6*Nl70-_`c-KK@7f%kQ|0tDk4nfdZ{KlFaiz5dyHb6R6@^o-p#^ZQ?{VSRmF_T@8+I^~bsALIvK zPO*Q#hdKDxlZn02_3x|C=RT7^sPMS%eG>P*r?!^6XFHz_d%68Y{zd6i`Qh_smHgOI z^TW2R`+e76LR=TU$Rr`MIy0$#$9D|J|pu zkL}(*bN}tXB?4Ek)t$ZeC))MOFaHC%X8SI++A}??;g7W_SG@gx$;&tCJKhzZF5Ecd z{PTx4W)s_=-{X;sV`F1zNxq6@fWZuOf*v$A;a!;S8|)hy>;yT%#{ebc7@1fq7#fI%Po(wfpmB#V{cx0vk5cqg^;7dw zKxYYp2O!ci%To2z@=J@r%hNOAtJ3rJ^YcXd1esTU+Z`#vRc+ z2Vx5kvNkp>db68DgXwPVE=My#*D?{ujL24@$3l;-3WZDq)n}e5_PnFsmt3@J?~iA9 z^Gr^AKdXLU{eCt7u7!DbtIyZ}`#k^uw5FFg8Ur;%-sF6bTz%YX=6=4ZzqOv!$v*i$ z#ewIq)hplKYY#+mUXy+O>+8L=Zu_qXzU1xLX1zE>qe z%viBv#l^VWhuzp)fB6>6ycF1~dgp%P%={Vo8B5mpH)jVV>^Q8n{_Q@#x3{J5{xh`B zs4j5Xk-wt3dP0AGhQeWk$LVb6xMs=9JQ8{(C1$6eRJSDjOWJmc{POv(`?~F;9zEZm z`m?JcclEYvAGv24dy~K1D11Cueb0FV<{3xNIHYkJcSN4jNp3SZJ#*n1t~AxhC)Omj z8Oxo~N#ix1EqQcJ>NA7IlHzGRk55?`7SG&x#wN{fb3Ty(}+0Iio&J z-9d-NG3(MiiADLptKUDd@V!*>K*=_A>#xaeUMrgYAMAKG<*P&IRjb2wwNZU>`tuI0 z3yWB?%cCu#cM0?5c@Dx?4%e>O$Rl%Z((xjOeyyNP*F~XbYSFvibr;vUMTcC>7GCw{ z%God7XC|LsH}8$$Usq?{*yl~(I?nysq5W&qiXFGBmhRFh+U4N&ufRj^cUJ1%3xcbs zt>qKEvVCIW$sQGL|FF9?mclhI(wA9xrEC`btQsxTRaPO!E+E!^Yh~)1DZ4++=;yv6 z-o9+j{B7rIcXX_Zkek_LAKP;Kj`Q>NCs`Jry(&C&8@tw5?L!r(?6l_m+5Y?de7_xT zyHdJ^PlV3fk!ZXwNVJLN>g>MCgGC-sgc`o6G_y$mbSv7s#!PF~2KBTg|D`eQjW*vT zKR5ZP$XoELeOvPT@4_F7emlQ2?dDYJ-tp0e_r#s-w*Jqnk2XE-bzOUbqu09YZ}+wX zToK1DnG-vrHW>XXs_&LRlbyx=?TCY$ zp!*}&Jrn8{F^Vr1Epy&h&~Il}XMW_>5!)sFFLz~d__TH|m78vJUcH9({z3K36EQ#E z_|Lz4yL{F=ws}7KYOl6r?A^w)qiFBKIZ0XGVV*bcYiOUVyng$ihwu*Z>RT)KA58e8 z&Cgm@8y8o5_+?MhgLSo=I&Mt*rzgi3(kz@TazdM?~LU=@bE)@O}o-9 zYg@JEv^BTHg!NX<-@56@(K(K@?Bh53{&)9G&wVmIfBS{KcB?LIo2Inqy3exoPa-l0 zoOv=HDeaxU#_tZ_oZpZ9FUqmkXvXd-EjlG-_}=>7{?eZpj~{6Y4Kk1=zRMrx=`#BknQ9HQYygMx)=Y-Y%?l#);)A7Q~ zq%sGE?K`zrEn2i{#lJJBxcD9KzG1qTedw-*^kn(ir7njaZD;J6_`z1nIsdZAzPIx4 zw>f+NV4c$t=D<2^k(Q4M(Id)4qb_CssR;oKYD|7a$)(m;Y zl>PN><^{J;W+;^1YdzSyF==mo?x(kN=lp6k{JHvvYHeCiW5+*5^VvczQ}&45;Ea(_ zY43J9=yv#>^Gr620F@UDe>luqsQSP}gekmpF=M-l>(w9ff>*cKYB3otd-pu&$lpjSFu%#A>u0Vsl<{&xSiXV4>%wms?iuc0DxFWYMvr)te_} ztu9;R=N^5D?Qq)Z4Xbs|&4-zp{~8| zi$9yPJ@jy!YA3#9eb%03-O&+SP28Q0$|oPJbxZg@<2-BWlj{nmBIZRKEvCtz?2{0d z-*s#EGZrHYz4swfSN}|(BB8J9y0Ip(v))~{f9{6s|Mv8p$v+sE^mnV=E)l8kQqBR@ zcPb~WK6`iaES_6eu5>Q0vR29t)nDmUl6Q-NV?km5R-WDG76}(Bm!)LnY>{8XT&>02 zcKO%d0JiyA+`3XnkGZ@*d!gCR*t@2U>y1NI?{NIY{6>4FSyl(rwL@+apKkw}uz!QczU6`crX+ReSkE{5eCgItk!5%P zMcYZvQgocY%X_&nr+3K|f7SnO{@u5KwXg4v5H~32yYZf7t(~T>^9@5`s3hfTIeZkb=cI()|NvpR1U9xBhr&AEGLxy&x_9X(4^-udj( zaepJ17_D)!T@_NR%ZnO3Idyi(^ zko?IzH$LysJ)4`#)77V`I0%R6ntfNQzh`aj$q9^) zJ?k(1e&`|NcCwh$Z(7*2!iuHJp2?4s&DJlln|yJ4Jz@F@uO+X!#jNj~(!0G|e9KIyn4};Rm*Ux3i%$24iJF@HGW9Q2=@H+! z=-XF=x%R6Wqwl|R6y@cRo~YH?-Q~qo-n{Ns;*I(VCzEcslyfck)vV_snE%vMKIiB@ zEg8Pc>E|0WQ(8QF%_H-VO!QwbZMf&)wpSauwF>#P9_~9GYyH)~b4KgwA0G?W?vz}2 zcR&AUvz&&?$F516yYo4JM?|}&=3Llm9q+O5_#?h9cYZO+Z!foM-nu*COzX4bQ>H%` zpEB*pwKe^pul&dtNh;dgm3HX~Z=fdRwT15N zxcWS8f%>jHJ3kz~xJ3K&s@A9OVuv|67WSIB?l&~vD8}dL_p7l-=bcfcXLQ>tp|uC@ zo=;bO>AL3nwk zli$kTsdu6+n)I*J$HKtL^O4G0E7d^@T!?{0ez3;z& zv(2vlFgKN2?SEm-?Mu$5>&dM>~4LvW&HtiLBFY}nGJNb;6gwf`fY17VMv-8Sh zsGd_Ixi+rj)$E2-C+}N`URad9pyB?{kc%1*<-9Jd+}d`?SNNy7aL7cJn_fYwi$l+u zTX5{Som+lF!~g0{6R%C&Ulz%y-}bcf+E?6tv~j}cM83etnxfr~4*kVkuf9&*AzJ?N z)35tq?gooodt7xgq2+PGC*3vcR-|crZ8GBe94B!5-c3&S#SVwx_BB=s`C>B1?+2R9rLxOY#@Tfuko)FY9X zbnO>xd2}Y4%Ut)t|KD}1zNqs)dzF1LY`=BWOdn5IHPNl*%RYMrZ~4=9{>J=ywZc1? zR?XQ}dMn|>vQsaU1O3c?>ra@l%JX8T%ch07vNx65BW=yN-*9BL)+Q+Zh;Fk@+4!he zNn6eKCC3fwI34b6UDwj27os=08%(-%yq1mNJEPqGrC}&eLXJ)c>AX zU0*N%eNSM@8;|>;Y~NBR%$r;&kbZJ?)#EkWLihh%uX_AN%ifEgA9<}b3#Z>{%>T6h z=9hJDv$L{hv0S?FvHbty=c-8>ReRS2G@dbDdZ*XrLu0#m%%?;16ze@JIKDGpujxtN z$gIULbK!NO{`UOvsGv31-8ULC6)Ghk>XiP%e(ABqONH7Gl8O80hcm>4`Q6&LcUH-T z?)|fDf6f%zf80cF!||{;4}QL_NtwIOm3jIW@5wWmZvBx}x;1Iu)g!DYA{4U2CU0EA z9C++#p!f7cs?RbueUk2fE-#cZA=&E!Z{3qy@#cG{*qo1dEp5D5v+Y=GhWQ1ZwB;#{ za=*Nc55%j~|5L6ztsG&bKJ(mK=Cyl&MH_wD`6|DDU2R0*6rp&fBWmo&o6MgF3ntmb z1zsztdK|iI>bsN){4Z5_YHzF7+pF$d()N%oO-Du^9{0F7V?IA zmM)(?tAF9E{BYHZLyFcPyt5wc>MN4p{UjwOGqm>O%FA)=k1w@$UAk54_Tb&NGjkul zvc8_$=W$JV{STH4PE%@oY%cFfNfOTekP%wWe1G-Y&9)RB3dGR~# znxpk`C7*5XJk9gp?{od7QR&0>*;>unvrn(;tKU@=zbbBpWs%Zqp&j{`#qxTu3+`?_ z`6z8|*z`rWmtKCiXl>-(X%dr}+gpUSLK+@t`AgUs98v!J!s=s0S)`;%!CA(s(tH0j zhxgZRlc=0i{ki=;>n?*i+O?pT`}=NoiRbkGsE1U)pTcx@+2IOWp&v4IkyZUR~dups|s!_;&R@ zZv!bUugo{;X0jaJpKt7a@z?r&a=GJQVJrLpe7P>C`93cFs8XhHzTEYI>y5*Vzi+O* zeSvrW2UeX0t5#@!c34?*t)kOvN|vwZj(9I0gPiBvrm$SSI(6FhxNp0Xt}XWzJ`v~m zS87>G{f!4&zWYVLvGTgs{0e{5%;%gpY2Bh-x=hoWua~?N-Fc|mp&<6sLD|p(VZOo} zkJpsE<2)l_#gfJ+m?QN4r1z#m=fHDzqLK4Ydd&^I>iXhNVba3V<-dHgvqNMzzFW0@ zTjGrWOe~9(Utms57#b6~fXhF`C&=F$G%pc}vVzM%!Nd%NO)-~mnV5kl4-yMJQbB`~ z3Schi@O98+g#nInRWnO$!>aJpJ`#&T=W7&a=O&h9piV=8=2uXrAwU8o4`7-YA}_f@ zo`&e#!hkXj@mKkwyB2gB;*k6#r~8*#_b>lY?=O;&kO-QFcvVcFd5FBr81oRFM;*%2 z3e7IG@vyP6xuvlk(_>R}bDOr+-s(r4PW9^}XlfFlU+UREeD?i69H2L>4-NjhJOaUXcho(Z)^RUEfn5 z^%R>Z*gQdEQGT928IhFBmf;oQ=(r|o)2EFSgv2GUzJ*vkD7rj6wr>I z0SSkP-) zD?VA=XK&oyJ-f2)UD`56S4okOp5UIYV-mGphFNU$JEbOPEGzykdvAUHu8T+Zc)be$ z`)j{M*E*~8`NiMjs@HB63~Xi(RGR4VXj|6W#gl)o=R7o9De;ZM!~CQJb<3F5;N6JToXlI~-QgoI56hrk(cP{HLtDr=x2!>#-YayLdQyCI*R^ zzKqRW5td|EJP zrRWu&EVZYeXBUM9#$7SUVp+PxEoiaEG%06aHOVDx!CDs$0;jzA?C99M>*$;a;~SM9 zDpxNIdl;s!x>?2k(#J2#Zs+dEe7ZM5+IenU8c*$~Q)$`auld_j`F@{a%ek<6*Tci@ z>!lKHliqf$R-V^eB6-uu%Oq?2f-Qze8wB4PaC!46JuIE9K09>LsmaYUA*asRT5R~g zacxa{$`>zF<)!)=TQ|r{J+!#8+Am^%>XN@EhM`Z2QeQEZV?I$O>?cg(Io*m{Obi!J4jrgj_BMu=IJIUjyLZcoIvlii0;*6%DcKGLwObEDvsuB?M66|!DA`_?8UT5}}}X8%`C z+wgTtVTFp^-@_>?j?VLI+TDsQcz$nkd=Rbpw)0h3JxBXOUOkg?bGetRGFrwZJHlbnr2+NMCszgFZQl` zZD0SmMP0HY*GR*=L9;oB*?&`)xx~a~#~D$&zg`-xdLgVVI`1@}%JHe!j+U^+FtJ_q zpRXX+JL{LMm}UOgGeMuiGtSK3{KqrySJ^)MH~L1~Jv5RW`DZ=qTJ}z^R@%V)y#Mj$ zkJ|5y#oD~RzjE$bleV5w$}>scd9$ZaobHmYR zVUq(}p9}adhz&i;UMYQ9C% zCEX)^>Vw6yS$kfZwmQyOD*X1no9Er6689PT2i>BQVzR8nOXPiRCkL%s<9*?+Zf~d3YKTjCqK`d&zJ3~`=ojH;!ieSN}pm*Kd`wRQ~HHb=&3LF z^`co@YEG~%lPD@x(QN(bw&lEr&z1!h|716Iy4&Sc`@K^==i$D3nj_1bCP{&%s*w}S zE`Q%Vx%uZ*lW7mGUtSdZ;nm|6b03uYURRI*`=oRFwc=Y-?tknO`EvTMg6)gaG_IFy z{7mKUZ`^ksoLO?XE4w^PPxevi?r-g)48aVQqAbr3dp_Tn=u*tHNM3*O#;ZwBlzb8{ zS}4o4+dNizwGwn@_RJRj0^{DJ<|)gozQ^x5S1Yi6UfJYdtUC@L_UhZhb@JbAS$z(U zT7?~(^cx=eo&OZOsUq*$#$cIWbB;YeBk+oOsc^sg#SL6dvkzr0ww`=n{bWufvs<#S zt2D!759NI)PI>HJ{`C6?j|I6G^b<@XCC>&3E#`Qr{w<*FqVKv}8l9nMRXn>DJiE85 ztev$llQDd;WK8!?3*#O8R32nCtzU4BX`MyY#!W8-D$7?c@~XJ3af#DtqXFyR$+~OS z*%WymmdIS`#rIHvzdCWYs#@saEA&i$BhWme=ewiB|!_t~t1c1v7! z>u54KbT^JU`kYf>n5RV*_y5yo;p@)oG}fHB{49J{}_ArHAiaYEzfK3m8`GvzR73~ z3jMh6PS2zbe_A3VGOZ=ArcRqAYnd!{%Q1iF^R%M#9-9sqCmjF%WZu!;7d(p2&zbV( zOOi&*oi}&7%O?!Ru6z%dc$vO2$wtxtF}w(ooQuCjT>YpGk6JNrw%W}i49 z6!!YYJ-JJdqPNM;*g5Z>_L8bf-`v#H+;oFCPqX>tua`0ue>v>nesBJ<+f%yJ4m%xt zI(r7Ud}+DN^bQ&hfK z$pYPVD{OD1zF}PU@_EXhx}Asg&1U#>eCNN$f zDkt4P-_~*c?nP3P@8_)(+xkuMes$89_@)+LzNWbwr|!+ihQ?Aps*4CE`d_uJ+Pp!El^qwO>Vb8OHSRq*v25BZ z)50fPRtB9ET+!TCvTXm{X@{<9in-dR8oDo!tC*-+aOMQJX^ErM3a-hm=D+rD)18!k z%{{G7?lf<(gXZz?~O?$^*r(u@sa(}}Kd4EU08>0G$zg4g)zIvNsROXU* zLe|&iT!wUe{$utx6*<3kwOq80+^_y(TUD%f?#R-LHHTI1vCUOUvOCi8spGHk*E(O8 z+Kn^!uI-uO=B&csC-+uIBRq9VLFB6$Arp)?b=jJ36&2mu-qagCZC6GA^A8hPFZq9* z`#fxv-%v+v*d+Tx0uI;3Gw;%wMH-P>LwrOue<#1*z_%b^$Kl$ z3%*z?y9k*!-o7jcJAynXeX z+@!oG2j#fmHzXy<#r*sc<{Wi?TdpXa8; zhV1oox>s;&s`6bb-1+;^*0qkVD{DU8Q_*BOFzeckrZc&}x3L~}OS`#v>xivZF2g-GNbwgSK6NK8LOH9AKEl~_nY-G zzkNQ$EAppbc`@@zYT4>v_FLaBYxtoRbaOLXN!o%|CgW!tf!XyrS1Fpsp*YBw|rT> z%0|N{(4o!gZ2G!sZf~1%7g$Uy^O`%q&?RzuoziO6MV3n~b|uzY8gFe;O^ViQl+svv zO7n_IBjXI~43h^Zjkm2kvVJ1l3e}k@Ru@*NKVuV64qrHbZU6etp1$t>t`)v(a<5$t zFP?EYuH~?vXqo`u>ff?&j-Pzm{ZK}x!Y(%T>9)^@5)LuRrd%n=5twV&zHYwoVunPu z-7BwrXNgI&v%LLVb5?L~`r8waPwbcw`sL0o#rW>OL1_o~mFS(xKJD5+>Ftra&gYiB z_k(u+onU`o>cXrl-IbP%x z?|ypba)$S(opYL2IkP@x|6A?6U!}6GMMq2wUSK-Ou$4uFNAIwo*y>m>A-zn;jcJTxi~o8YZ&KUaz@vI| z?{aRgb@Sd|3Yq!Vr%7wpk4+gjST-^CtqqyJhb5x8)|$e*%;5$S$p}Lz&0xAx>)jU% z)JymNZ4}OV!M$B4O+V_X?-pmTm_zSh37R&zOb$KHz$5;@U9<9Kq3yKebAKFuoa2)o zKkwn$mV{5g`JHAk*RB4}aw5Mny!zk%zAyi!mM!o zc<12kTkjvpIJ^Cqexnz$(A#Cvl+PF3XMESYv*O2wPp5vLbzi`H?&KF^@9RQdMeR>F zXdKlRg!x-m4>5q-)99JFnr!@{?BDn;NdHIDEr(noFGM zVn5;2*BaCsyL)fRd@(Z!+SL~F)yMYo`o+ytPo9g}5prokEz|Fl*SB9t@Qko{yGCX5 zTFWb@U)H<3EO)i-54d5w@j++I4U5jA@>^9$=Y6@dm1P1?oNDHZodqlRO|vlBy;=QX zbyDi``-hHH@ARLub0znt)vr!RO9_9SxKb-X+w$-6<^6GN&$=gj%cT9>v%5_7p@2-j zsCGxj>9d0ABHJdfmjCb3^Dp;Nr0tVam#0jabL`>ezX!vDLJa5f1!=~xcho-k?>GPN z#2fqTvgSBca~!_$FVW((jOo6EU$WM&_^e@dOVjQB;`+_%QvV7??9%tms=b%^i0S&v zg{}*G7sh-{A>-*eyW>CM{4?^Yf+R;jD_{yaVJE_YvX#T(|b_=WYhUks+(zuQyv z_mZ3W`nPu3Wre5BHe}53{`+q6!w05m7Z3G*PTv`~=le_cz0+q~%>JQuaIK81m}rRS zhIqqVnW~?nc`qK^WP7dH=9K;VwCJ_N8n5;^DzE5A@P^u={s}(Tz-AL>RO)Mvpl(J zSMQs1*7}S5kvsn1Hmaeqb)w<^EvxQY?q9G;!`ODQi=%R6@WBh0F2%SXJaOPa&_P4< zts2IbhW-c5H>xO`nr~z|aWatOoc}o=-IXC1Hk{PZ)ZB3Cy1u^tb?-B}*G}tuZNGda zP~*JL$p8*7T|ZqdZ{NUz)91AVKX{+<4Q;US<9FIQ?b#BssUoRr&z3SvDx8*-kdT-w zA+cLxhJ<8fOk^J(?`>xG5 z>(qVI@1NN^GrF()XpJ5J^GT65HV$V_A7Eg(qF$PbndVH9wj$$SPwnsS83a1$+tiGrD#F)Ya$8XFpzBbHQ~nHeLeJ1`fX?ur&HTJl zIyF_5^~%{tkBnZeYkc-4s(0e5%O9+6EqLhfZhrMh##fX3{!c?+RLs-W*D{)YwpGg6 zU-58h$TRVPG~4xyrC!R-dcE}aimYQNg1?)v&9W-jwmGkL?7*ywS&LuIFq>t}#E^3A zTvrjpD@WZEtdR;|zwk|Hv|Ym{yrIQnp@&)j5tmRNVQ)L@eGfc7I$GvQK7PQGI7@!! z-1)rcc6fe2^QF!DQQU|9UtDav=ed5LRDau0_I{tO{~I}{r217$*T?BTY?hijRZ_l{ z+2ym}^Vjy)9XzbM1xXo2XRQ1_ZNIuU%HvBP_e9n5f`6@A8}|Jbem%N8p#Z6{CoHN?}~zRC0}f^lby9?waD?C6gV`bt5fi?ev8Txo9 zt9y9y^!MIapvuno>#g1H3Kdm7ZZq)`2d59eTQ6)#zp~WoXUn6NTwj$b_syt3KLuBKnSY8sTt*BxpX&#>{KiRWAI`zQWXHJ+I=wdJX#wBAmchX3<> zjbCAw0!ZaD-a^1D(#b2z8FXrcA!;FDXlbfoZepTfZeRo}1dNRkvm^#aC zLrYT}bAN`QO-h(G4}6xy1Y~MPVo`8viH5$rzCZZfhEV-Peb|})$g?3>4s9sXFV;uQ zf?&*mSc0aGP>KzZ0LjIMk(q@B@(jqd>JZ^_vE%6+DQ*s{wq-88s#FV0%tJgv^b9YB=4_m!^ z^?uL#H|h{mHmwl!|4kDo*Xb zcKXoLPZ3QDaeY&do)o^OB{ccSq=J`iv4M^UXD>?LbJsRL-a|mTgCR*-(1k_VxWo5I zS`zohNfEAV)UFB4I}(*7`_T1_`aP9v!vBt_JhDu(`DpXd%jc1Z;+syBM`oI;zuzdm z{dX+-;OZ^)C-(^Yr|q*FVcw2+dkDwdD4U7lx+EYx=xpr03kZ5hH$$K`bmq zNj@@g$JFEd8qaa<+Pv>bpLf|W?{7x8+-u&hyCZcT}s!j9=@XUwWGDy6?8cnqTMN@7kcKW&Ao->GkhGXZ!xIj=Nc3 zuzr^}?DYKp@&~KU!+SX{N}ul4nlv6%wD8#=tHLh2_S58@wiozvE0^o2Yx8e4D=&U6 zH~G4oSuT5gM_a+!wjH^fWD_-m7VNz9L5zD=ev<9kC(hbN-#!P(#A!*~ea*JY@s3zJ z>#yVP_ZOYaXu4jzo%j9QX(w9d2i|x&eM)=MKVPZr$h{0b0atGYMHKAV$o=BH-Nz#} zXTBH53km)^=x%uEOV)+v&N4@Tchsk*Hm97Q zN9H$1u09=@y|vnSM$FfJYhu36JFK|td*d;ilgD~L%c+|_;m}_azIyePRLQHI0*>9n zW|bAL{57jnih36WGp@aqHM#XhZ_ukPzntc-TQT9H`1I?qytN+p9r@1i_d?Y#{=0== zUoJf~W0^E|HcbPw^?6p`WAI#rr4&( z++|-G&buwjZA$*x`dpHG>Vlgrg$m6}tycD(*4#JomzBP;(+lrJ>pze7Wti{z!evy{ z{{5-^gu@Sfbk-z%GI9v!`NDX@m^)DHtIqYF9JP{z)z8gkV%gSJSbjUO`J+41SC|%BAK5tR)NY>eggGD9Z?Vai`y#kI=ELUn*DF{R zwZnBz{re%(%%*8mcH`{h0DddZ-e%1T=|ei3HhtOkV|9TvU##w`MWyd*o`gI}SjhD4 zrFH8I^;50BfuS2G>!ff>pG#I>Sl#p}>+;8YHn*IXW<0$m;?Z<>!W{E8lA+5D(;RHx zF#GyREswtJ@}^~tW$FZW)^%Ik7u2{s513Hw$cx*V@_kOW(V6F(U14ZkpBW^CBkC3!`T(HCp^i z`}&zD3+q(&opSEKIGgb$h<^`S3B{%D-u8!hCjT*|V7Je6ND71y}Z8_w~4Dv}fJQ+3kL}{v{?_E!Deo z^F8mEE0Xgnl&$&Gns z8$E;0Zaezyq21)#gPYGjU&Yq>vE)hL-j7Ca+H4Co_*^gVm>1DAZL#JF;oS5O4EwYn z+%V<)7$|niW%B;&FD$-unlBgd)y-S2X1y+wuSlSHVYc-h-5Ty? z7bE^n&s}b(qaB_;-9XDX$n3<+A6`>0MntAqiUlfj#_akV%4V(Gx4(1$-+YDBkL?~` zX^NA4Vt2?{?#+Y+QIQKhd;+zE&T5)o6@4bf)_+jivb(D5UuTcJlkAm4oGT<_4ICER zYo+{*5tj_o-L`XUio5!+J(G{G+pH_snB3>K*Z=I1A71Bk)>N~{EZ6%qPb!zgR!3~x z8;eD|W?otG%1b|RzHi1I2FESuucgK=sVOf$-M*(Q zId)(C(o&}06R*qX&+)RHmnqiu+u3XT)U@Z>3MY1)Tw!qHb*gXV*$Y1PRj*FHRcFqB z`0=Ta-S(b`;t^F1N8QXPyf8WLX? zSxc3QjKz&MRn#qC=l$KVh9~xx-`fprMp=pP82wtpxK=H^5)-f_`$5vh7>$12!}qq# ze4q6B>6V8a&2dr=-&a@Ua0hXHI31UN?&hw=`+SeRc^NXlUD?EXqE#h>ULjBC)tqNP z1bJsGmQ7Kd&galk@S>7yw_=ghqKn=0m9Mk&SoghpdCk0lk*jw`bKe~8=%X12d~fK< zf4%waic!+1nA=td*VpgZKhyBl4z0}pZ|@{%|Gs*_s3-QeQ(oH3Ti->?qITCFS5sa5 zG@XZSMsot^n=kjZ7yhqTKJ(w?U4bV5qAtfzs~zP&rNy$Ao?N!%$&!$rdyKZO+H@-9 z_yhNE`>V}_Or?q*eHWBj5$tOgE?l`rUUG+Emf|k82D`WMN6gD(`BvO!x_!Vt@Rf3< z_gg-1#enBmxBPM5{yKB*1;**xel_*GI-5 zeJkg!eckukjxN{K#$DSJ4c9aum1Ojs!Q;^>GjFZag6T{17Z!?rI-)zJr1SVWcR40i z`|PP&&T}`%KV{CmvqSKV{jI8>r`{gicTZdVp<=Jh^SBz`+k0)Z<0=mSyEMt|@5E(4 z9&MQ;v)1iw$enk&ubF?%-kfc-ciTSE9ey3#AG)x!{?ay`lfL%s#x|QPO;-G$17xLy zVlv*nZ+ZRYuKAjK^SWzopZ?kqrWrixs#x%Rp+yzC5*uXSemn5KeR=sh`+cwPtF27m zATOmKAnG;CBJW%5iyc*q%`@iyo^tk%Klc}{XKZzm0rPI|l>YNlRJ%#6V%^U#$9nfQ zdi(Zxuj-7A>`HNU6P9lm4Hk1>E&MoR{S?c7!>Jb5(WmDe7dmpEapF4e*_cg#QzIf5 z`~`Zr`nrMI{vjdAV@|pz3c5x{mI|iE=Ae-$SnJ;$-uMTfJK&rMTlHsVWQ^4KH!{Mx zq1wolOW&~!cE=Zp=bKmoz3~goL%9PCB!azT;Hd9}aV3~H(x&S`{UB(^0krixLLaoO zDlxYpwWv5TFGWAGI5{)3Br_)^RUfw2P(MjODKR;_I0v*RJ1Mb9KdC4&ITgI+8q5L@ zgnbZfbmx(KkffNuh+9Vw2}SbX&Zb?JHq3O0A-^W+>XK2#(IdUhW^wDb^z zef`ASH)8X5`_43dy_YjDSlxf#(`^Pv!X-9jr>~fO+;8Ik{1bkH`#8#?#kXl62v;eU zwmu%O!ZqJEb5exPydB0WMM*O*%huJE?~ z#uuwE^_|?L`DtZW=EnDa^FQ9(F!OMFuR_PeBko6Zl2|s*lJH!kcu(C;FuU{O5vwGg zhn_vE*M#$hr8^3bxFy+a?2K^nQ7{wk?kw-nJtCB(v~g;Lmygmk!O5Nc9hyhlkAxhW zJHt&!{hn%=z~#=VM|ci3SM*1?o>6HN@H-OFq;gN`2a9t6i}x3mD#5*-mM-#1dKah9 zaQ~wGOPITZ@rYBB!p7bLwQa&ohq^18Kd5Cq@=X$W==4P)hLb(X;Gsv((b-+~o}KqA zjqaV6d;fJsk;EH?!X3{n4u70*IYHgja?+aTlWTbY>t{)Z`u@Ebd^x*d{il2R-}PSn z-Qu4jpM3wozVKgX-(SD8KmGrMf97mHGB>gl7JoKKUz{-Iz?Wl>%)flmu$sB=&$HY4 z_oP(hN)D)=c{=H}+4W-wFE;n{{kuLv)S0Wj#@ra-IeVh zQ@Es}?YAclZfA&0X+Eps7Zhw#N;2SHPKPamRg!b}8$0gI)MjgJeqW@X zVKL#)vOCHb)KApPSWjwsefY)dr|#z)%wBz4#eSmE@#2z0Htkvghpv@qcpN-kVBK*= zrDWHgy7ODU-g;wnO;+@R2g71T=epqiC$dk!yZU}p#e)>(KX*>-PG|~MV?W2w_E=E; zUysbh$4541C^Z`ZDxPcHqe+-GBtNbi(U ze!qY-ZvUGDo;#{bI9G5@T&AM3)L>P}f-X_EYkAl658d{AT*tonX$I?&{SRkP__git z$9oqQy^L}!2b_Qpfr!FS$2YZ>+kH`@#5}B@9Fw;U;lrh((Gm}cdOFnCWpp}>Tk><2mS@u zOKrRAEhTe+Yu?qBT{ZvR*7e=`@20nDw#szh0(-Yi{_>V{+H6r1+~0OH39;F#FbfMa z-*m0v?6{RaPor4u+2@PRe3?x$D$Oj{8;Sys9hm;)-kUpa-#GX4Okw}goME_G;_9c} z)%6KYOV!#>%Pg^e9(ZP2xyGUs@3dbyA9CzpAU%ig{#?G}is51(t^F>{dE{CwPeW6$?(N8O&ChYl=S zpj*TJP}^|vgWoBIQ(F%hm2vOnajJSdEpoG%-u{n2PV!!!UfzGUIDO5PUL&Xc(`7tH zvc|cGqdz@2R+degZFxLu`n|m9Uq(xwb6X{d$Q=33xM^AKf;~Nzw|+)EJG{X0g7hl0 z33og0Ju_E%&T1fQo9h^!uP^&SRygKc!Gs4AB8Ni1e4k#|QY-1Z#4m<*MNzG1uid*3 zXMDAnXxl~}eExe)>_WMe?_Td0Z@aloJ0hjq@5u#AuLVD6fA8kxJDOe6@HtVJw|&z3 zxxWJ>IE>?rzc-q>d@IvndRtbui1$TrN_dFXeWODb$r}nMJYcoqEzSsBX5lmZ%xO&lq4jwn*$#R!3NGho9v;3wMEb6Is?Dhj*m5ToR;%7h2{$lj3vq{t@ z*Yl52+2IGa)lBO7(bMbwPb`_T?3p{msXfYXEcWqmye{@OIm_zPeLpf(mv7F>-uSsG ztojG?JIq*81E(dlU+(#!5#}Sj=Gc}f{@Rybo0Xytyvk+%Xdu}xvpwfF!-|`q6&a5o zDBt(zYusf~L8X$Msvfg-yNXXu*m}m&O4ZKc+>h(;weEF3zmu*a)pY0LsrwVO-_$-V zsBN9s%ao*jDXe0hbp6%OXJ*@p=C@5y&a}APra0?o!<)2QYs%N&JfO3?KS0Xz->&;_ zt-tqgnaEwFlxuK;6~oJH`_Tb_pR7jpi3EV?UMa^0raxAS^KPjLTqUccY| z?X>@^_*yTNu~y%X;@rsddvV4>*{5&jM@c@&Oe+ibnsUHiI@5Oo;}oV>W|2Xuj4=nR z4ze$4jjlgEnbAVpZ>Frc3HzJelmyoQ^L2|(eq46qc8^05hs>$$bz7f0Y8)(>XQVE7 zNRN&0MiZZqESJlTSosav?laQoRk7VO{iLKVx8cW%ElXlMJVk@Eij-~M zUP&@_R#JHRZwKR*&C>&`muWcH3G9$#k=(iT*edr~i+YN@oYQi1+-!}7xs$vc88g@< zRcAg8x&F`J(9YayzWLjXcDWhM7i0R}cG>(`@{3_X*6FosDd|pOZc5zEKh3Y#_qx54 zU=?eXNSS(c>&~-MY)>*wetl8$RXo9ZB|W`q`i3Uqj7+Il`z!xENDZI%{}9Kb*^bfQ zI@z@3yq{Iqym`H--1~3R9tWibHZ|XB?|jNNmYI68Z1Up0R~fGzw9m9)tg?D*-Yn8* zX>qn^=hYlV`;ccWr%(Mn8hf+2r_}k(zax{*>{>r>^4;7;3$%ZVd~3!y( zCyqkjoRTjxnB2{r{#NfzW@@4dN80|@zqbSHmv7M9+%~_of8%On3tj=Kg~8j|CnleM z<#hPz|DLUUx|(bkBX)fW?OBleT=9)Z+YL#fFopYEdzLUB6uI@LV)lQ2@#Jowd7NsG zAH=k2-p|_pOmbUC=DUD58)FM=cTLjkQ_yLBlrg7d^4U6O&z?JW%I{Ac{;%vLzPRCr z?a50^62eVq1}!sDnd;l(sTaDQ|2mrxpZj_v;Rdc1v5j69+F=r}UM`=sx=~G=T_h;< zQcz+=k4e(=eX+Xd`yHqM@mY4e?w;Af6J6MYq{PtM{&uf2tB96 z=kM2vR;C?$*1=V~dD50nR!`Oi0wPbJh@@uhZ@ksCdCD^7rkc0yqJP|+)!DBnZl16z z!0krIousCA9nCMIxfimH8rEI*x7+&bX_$2IX3nFPyR(fzxR8vH&Ywd`Gqr?dWH z^PWAQ)gn3@=P+Nt*k*Kr=cK6pLi51)ACosozx$qKvSi`u&f}qJS)Rg|RXlU9Ec<%O zU;~4Wh3fBVmtvN6=fzvqGe6kmHN$$+t92Psz8l!Szv9=w^r4_c_mhL%#fL9Ata3Qo z z{ikyzl0O^k2i(rs9TSsz`siZo+}B>pM_vl8p2C%VJZFVb_>>8|{{DD*xwT(#zN?b8 z{oREdKEIi;tyIjZi0kKmn-}JFU|BRN>ULNr{i+aht{cmE*1CzdK%E!kP zXHR(0U$LUW`^8sl|2caLzPy-O+`c_G;`Q6T6X!niPhY{;5ykNJ$+xxNs#0Tpbh9;9 zoYA?GaaeoOCx)e~HCC*iV6vwF{vy5`=T3e4dwLu5tGTM&X>TsDig`ycDm_X)wPM1- z1N%K@NN>NuUBmEb6RXoHp-P$l)Vt?{(%gtyr3()WO>M@)?uPI*olE zYuR5a81L0E?r++AQMBqzld`*av9$EpoKR1_9lR^bUa%~y*1utREXa0aoBbQh4|Yi} zlVmk6cYQxTeRF5)rCQHccW>|6MenoEH~Jqed^Mj%GlykXjhl3JnNL-gUyPl`!EN7o zceL>-EoUgqJ!JVbvp{wZ^V$cW_e^eme)_AwgY}BulkxL*bLwZ?I_yhwol^7KSv+-P zlrme0&B_T(o?U9X%1eVE={!8U`G+%mo}G=~?0z#l6Zvd|f~(n|COoRQwEbB>XYPb) zJ8s;GDfe?D>uDtIOL?cLV}hHGr3TpH&lSaN7`UuwN_>Ko%LuczwlQp%1t-(D+bnFVfD zSL2bfuV#Isp*>@V)kMdM_hqBM&$o8I|NQiaKl2WmWgwOcsLx%Mqb{Ux^_ z50^Y(U0$@NSBsy!yNiokyMNVMUH$c`yS5zsdB!xN=IA2$*S7m!2BwfB{ zp71u+&1vGBH>-W!uq$M3@N~A)Y2hc12E|X!?v^T^*{tYxGc+bXaJ$^r_^;M7;U|8{ z@SL9)?Zp{)M(=LqgWD{AJLctCRtkU9s#A|Ro#OIT{q^ows^Zzb(}jd5o%mt0R{z7H zBSjGg>BriS-`(GJ#58W%ubC?}dS9LUEYUIfZNUWAuIY1<%|(Jw=1Df@m+f(Gl6WBf zQ2w2CPi=xmhxhd5kEcxG+q5!jqF$7UsIb+4^#YE*Tl~LcQd#_W#>aQ}nX-q>Ua*>T zSIJZ%z4a?w+xI*>b7ZUY#*6R1BtEPcIU08IO|R-^_tiHUo?X~r|HRt#rl^AO+cN^4 zX$v_0J}fOg@O0aj%a<13ND8mKdG%iOyUFqQ4t_E?SyhwSxNQ2`-wB&`|J#w>^zqr1 zzw%$%bC)lBQGMxb?c-y-r_cX6c;Nl(v-5tGuB}rG{NFx#o_+lfmT&3*HuL@d^1eEi z^R9UzqucFR`wiYw`LohzWEkw;9pslccmB~8vyaQB%3fobb))h{&>Oasf0oFmrC*=2 zD%h<5aZK#2e;14FmqoYho!`!Kh4H#n09(=Q-OOh$zo^+J`pv9<_W1`DcQm3x_1S_P zSZ~_(-TF~?aciZnET{P zMZ1l=4@>;qx8ah51Lr&TMgi9pk<^1sas~%Q-Qw()mpwRSAoDZ!TxH)}rHS`m+&&WO zDSb6jV#1Tvw;zaY4U1G{@``!X>Byw_aofUNO}QI(O**BKmv;8fnZ1{PUh-PyEJwZ7 ziut84HviEsG<-g*`)=esJLTUpJ!fq?y!ZO7FZNg!n99A{(X1|xbJHxHj6;nVWci*P z%q>{Jyyv*(rL&4x9rqo2@WA$~U@!YBDJhAPlON^3e^5`C(vy5&!)v=g&p7Uqb^M-P zi~dSKK3^UdBdhY`G(-Pkt6!6ED90rT-*~b$*VSe#*QpGZ=hd0Dr=Bj~IgTr41_Ko}Fvf80{7bSN$;i{tN4Bz1(|y(!U;RJ-ga}Zq~k% z_R4ZjS@o5cRa@39Td+Xq&h2O+x#Nqz-m(34@7=Yv(KXj~X8iuRYqBo8-o35c*4S39 z*s^cK29qPlqlLuM{cfyfI~RRE`>C3B!D>s%x$|RZFrQk%<=N;nb6J>{#21FQL2Ad< zm^!sP&UT*nZo01&KV2!cO-lT|YAUN}>W@6LZa$}S_1A`Xa+PZ?pIB|08NENRRj;D+ zeIobG1m&ko^m;FEeCW-zygk3e^hb=~{OXTFF^8n{d;aB|eD*aixh!S9@tPDN;p=Mx zR;o@ks^2hoR(;aP^mIN`xr_ua6?d~(mMiL|*Ztr1GOXeVb>W)*O1E=rqwRt3J2oA- zu*7~|xa-2H1v0w!i|x3JR&-yz`t)`kDQozZrW56)bztId8a zeX#1Z_Cv3;C;v1Fr=K}-px0dP&I8#8HnJA{Kj!G&;GQ+>+k;0e+KZF;KYYK>%@y%O z$ag{atdEl&8XEsk?%_V-KWn4J3~P)0j<($7f_>lHzi2J~dG+M?7^A;G=cUbe$aG2B z5f?Il?o!5=K57AK-j~GA-#n+bOl3&|pJ!>;qEq*MFU6>}hD}A-uaiOMe z$2_*9o-;2onLK#?_JXK``-eXaDGwjK_xiNixbWw+$&30qT&*W?pK{&X@1J?=%$(Sg za#_8i)tkRqu35YJuZ8NKmgyM`)%o>r>az~NWnDY5K}fAz_~}p2$V{C%ofStjtjv6p zzbT0E&eS=c$n_*-QCLhUd%1)7jO=;0lATSqOW5vZ`W?S>W%<5yI~6{vH?#b2I=*0< z8QYtS_ischd$U_MToRuq_WDs#s8raB-wF9Hf+~7DMN-7mlJBK8?TY1*+F-Fa>NDqx z!%o}H4Fp)UoK4@o6y#A_r%@EDz`3I$ozuKK02Ue|H?^1QoHLr=e=J8b(D^>kKaaN6uHg2|-xandSZ$iN2HI6s|7(FI(QM#A1E;-_x zzjkefN@b2w^S)o%k&}FQ9Tu(LV&N7)FE(a{Y5Cc}^T!XEZM-L${xo!gS#xpkY~Sl0 z+D?;#t~eZB(iD>$d2FqI-)76m%4g2EFU?SLeX=3-L}lFPdCt||tF?FMTD+gaS=SRO zl%;nuytk=2fd7fbu}^)4SM@Ul-Z09}KYUQ&HhX={vh%Thm(NC6-1_o)?rrmXZpjyJ zJY8`;=5$oghbcdIpDufu5x~lq_GF4&#guz28f)XCJ3ZB6yDBzbPKqcsy1{d3g=WnI z_9t~l_CM3Mas-@w^yI_@uTr__wQYO0eEBLe>nywCf!97S5-h;^V`O<5jJmU?%r_j z$%mJ&Q8Q=EVG^10Q)XJD|C%eS-q|EiYBBWijI;Xt_^vYh`Ym$%x%Mqdn18W6(EdvH zxiym2S&vKGxMFi1y%rkH*0ifz^w4I3T+P1PTbFdR@7Tt(n@-ytRgjZ>_u8weGygSo z9aPg_q$7Ge%B}Sw?-BvF%<#esf){rwTs52EwJ^0NX6}!Lfm+;;D*AS{+rM}(zFA7w zf;DU9@tU68kN+n9J*sXx_1fCi{Z~{rOq9B!9DDWFPcH4hn|{XrzWA;GR^pCKalM{- zg?t|r@9x_Fjmg6OZsZruM~m&ex9f4Q33_q%wWilO@6!oVQhBrbFRh>d=`+{F-|g-j z9R;1H&dm0uUoIGx+?I8A8svd-T3Q8?EO3!IsNAgx%IHpBG-v%oQ!mcfce{k~<_~0#os1DTx`a9Q?a4{c)C_Yokzj zzRdLcA0ul`^#)F5Wydb7FrS6rtu>^$9_stO5Z}l8fgUf{r9+| zCl=fBD9@VQE4Ws8s>^BTDZA6__KH{?YP7d+yYz&qVAXk! z(rsStXVY#!4W573{`bQ}FW+U0M=wi#FspaZ;$_?s+kQPNV$pTcW)84$u+?DY$hq|L z)9V>JH+b$hc5hg&@9WR*Iz>`(&GM9@&MSYi)EHbmZ_J(BT0C>>o4S8n8>QQn@BZJ( zJngdCuQmS5f?iJErKrH|>-9a!#4e$HSHIdKDUnAXPMq+xpHb&m>|5+ttoGT)!n;)D z&-BH7GxAz)7cQ7#bN0VWLY?4G9++vF!avpM+NT(ElPkB0~O`TncD`#bx=x=WJkOhrkJEG@^< zE5w!Z#d~d(cZqeEgspT-Uv{bQ|K8S8!_Bu6jGr}UCR_LHP4D|T@y2u21&qbV`;JeY zH(za+im|pgcS*?75P3zB<1H*x^&0aN?q88VU&F1&;^W4*jPpd|7oRf%pDu=UaDIHl zW3kw}tiws!_~lJ$yS<-3q`h9Nyj7`?Gg>xc1E&h})F{><2d`y38k*<7W~WDeJI&C3 zzhQCyfrnLb!rPBFzGl3?*naa*k@8I5+HfL-N@1uX}Ucb>3)Vj6K2$dk^cVbKfLCy&6&G4I^6s9MSjgw_+dNkfAtgw zW^U!=xWeGw#dVIUfoWB4olS0=mNhM0x^!n>)5ONcrA^6sS%GOqN%NZWlRVwB@{%|w zOkON7Xa1a-Q9&ygBu)+t3QAbIK0YpP-SipJYo^Cf$y>g1alpLDNecz0M9ql`nKoE<&gCtxR<|_=H#T7=%?nS=BDPA=%-d>7MG;vm1HL7=;!38XC^1+fL7P! zX6BU^Ll>Zc)}o{qrKac?C8mJn^@~%JOEN*LOfqvbK`UfRN{jM}OEPmHOKnQ?Kysyd znPs4rIytCm9JHwkC5?jwNKWI1rWVMFJalq>fOM+V@$$_R*66yu_NfYZt@d@!za6Vh zgVJ=&uZC^B^L0rSSCuZuq-NGje-5Q6wro=o5OR{6uUw)|F~)hn6jckcL{|0w_VcUx+%lqYn@O2zHsHQ3!mq#S-WeT zHwNeXp4a`e`oxtK<7{au%d6LJ<*qu;%{~9dx>Mn+xkLS>BQ|dfOAe8}P|&-^@o=Z` z-c@HpR;OCd&U*dMtuOo6)#U!jwbx{&np4|P-uZB4+gq*G)3QTklXTbYY+V~HI=g4i ztIFQS&{Tu+ls2Ww3s=reKD&x}nbozN9J8$Gh|R8x)1$YF^_dn$^~S{*OPZ!_KDmqQ z_^Zffi47UNQG0i+TIqfGg)i?*$K*ASXPtH9UVgRv_AARKg?IU?Cw?vdZu&-R&7CRp zZ->M>3w%9dk*F4@wu+-~h1y<~3453Hf0@jd6Z~mdEY*^yJ)qyUn{(c72+^rfB}w zWi0cWb+^aO%iEh~5zCcYvNJP(<5Clw{KRuV?(-bG<-X>4&RpN~`(uBdtpE4%;_`6Q z&FB3zw+0^VY?`?~KjzQvqYsa+%B@}%zb5Qdu;GZ{|Z zzW;h&Zb!%u*$d3PTLKiBd0(X6EN=TQ^Sq&t$3aCW?@j157A>{g`jt)(nm3!Qntrgy zc-8D2Pl?0J8qdeuTQi4e2u8X@X$eR^% z7t9NdI_upYHYb&C|0FIi*3tB*-CXyb%aQHzy7zu9+;@!Snwrtqm#x(z0l!}rGu@o} zaJj4?$KU_;#pYF#D%Z;S)P5T0`}+KJt2X|6SnKCMho_Op=crF&6n{Ot?c}MIx9mmQ zw>p$t9oTq__371jmUk~C)~7GyO{xuL&Yir=<+RIj&2+`<0jx{6$i(OQC7AZ>6bgNa z*R+{k<#KVl-yQe%xrx=gPrrMSR>tXj^U$6W@vI{L-Og_(TvxQSy>PkSsk27g{=N0Z z>y|8)hXp!V4sDsxf0gS?TgVNK2RVlJA3FT^tJJkF-=MxVvhdjB>xQSZ-*Yf~v&J1L zf5yT6XVaH;KcZePxnJ)Va@ePF3xSRzJBiq)l>5%d4ALiv@AG%|MG9IkR9Lkb#A?t{POE|L)oo^_k^`( z{_8c$n~`C&esOr8XRhR*2&vuE#Lq{To|vyu^HH7crmn1u^n^ERw^&Sqyz6;5eg-A> z-#GHssWG78h~V46MSpfb%38UBljWwb^(}|xf2U7(`J^(_$JT4s2T(?6B_USPT0t+(Z@ zzZV~77F@PJUqwjL!F}5Ir)>RS9XZ?%+?SU*ChA>X+`K5{z;-Qz^y$B6O!kb=VY=^e z`?*l7!M})yJ-e9ZUf`Rjcb)U#_Bm%tw^mml@U?cDJMlro`>l*@H$Pfz((iANI+V0+ zkB5fH$Hw!fE2bo~aBexUc>86ig#{wDW#PN$yNEB5bloD89;UMC@r6kn4R$F^jy@Jt z?Y8t#v!LYuw)oR)PDaJ&pWoSTKXbBj-FKlQ->0^PFT$+uO^lE>kcCthr0V;omL#Sm zmLziN2bU(5fJ7pEee``&^U_N)6by~c5!H{4eMLcHa&~HoLQ-maW}dD3``!E16*5z7 z)x%AF4SWlnQ!_F>s)|yBtNcQetFn_VQ`GJ4xNPhbQ}UBibt@7Jbko2W4Hqk<7AM;( zIS2W;DS;GJSXJZ}w(>*mziSUcQ_EEqxdqrmp(3#W8VoiSxdm3f`6-!cl`e@Tsdh#N zh8DU8Cb~u@AqHkv#wJ##7TN|zRt5$(`e-V-z*?Qbi;9WSilh=rYkpBketwQ!N?B$> zu|~G0f~lURg@SW_K_$3>s9iU6HBmbOq$I-~Tu@q+1I{`r$*^X1vA&_6 zp}x98O0rd2eo<~>iLH8KK|xMtav~@{=oh4pOlL^Xb zRym1z>9*<>x+$q?iKRIu>UJgh1x9))WtouJ$jP*WFu?ls5oTeDE3i#d@fMQt#7Jr&{cBy$O zpgvDUQED2Ofr5#V5f`ZVgJ1Ws|L++t#AVQzq-&cMI`U7dlYfeD%&#>N&F7-3*(g6TeEa}y&p ze;8Ys8JnW}!`RFWbRY#N%wXYXY;Iv{g6=+JQwvOWW|k%x=9!vUpvRlJsiC zGBGj6B4&mzW@utyiI!&!3@l9z(fnp$Xkm!y7DH3abZ=^m5$7f*W+rH9&BWNkz!1$| zV-sT|12i!cBMVDov^X+0F)}qYK}|0vMkW@<=;2~yVrq;YenuvyX6RyuCPt>1{x!k~ z10y3-6ZG&iF)%|9KNCY^BP?z)!${9YCT13B>A={~1l$luPHP56My6(HVPIfnW{I9& zjEzjpL4$V4dO>0qXkl+`Xku!C#XR(~#K73pzz{vGj4e$J(8J!q&=@`5jEzhzu;fb% z%zSBLj-Ee2_8Ozdhq0LvmNagOo~MnCObras{AO%uVu|iP17kB|bae(MrY5H7Ws{Mq zfhk&=1leJME@o(IV218y6H^oPa?QZh*vt?;of=yhVdQB`BQuP0(%9SxBfnXgnpvR7 z5h#0L`oqv1UChwb$QVrwOkgUl+PAM<```TBTynot+$Mg%nUL7YiMSQURM}c7@1?_8B0TRj55N= z%n*ychMBGeQp+V?#3w^mGq0 z58ZEu2Bu~hZ2==QW6bW}DE=45N)?Xl{(|7La-7XldNg$k-T5Seaww1tT+a z^nQi0p}8q~84EHGBdm-}&CvT>#ztlq7;PUTGYgFR*U;P?-F=2ere^4Mk0Ho?7q^n7G!Y-xc}jvJd8V6+9y49wB%tO!T zpr#ahd(GI`$P%M%Yhr1H87@Yq7-`qU9J3E$Y-E6uo=wcm4bju2i3vu%WdiCuW5zjV zztPCt45JTbXkm^%9s%+%dSBAe)C^lVTVR%9<`(FA%h=Gu!W^wG1DS^r&Su7@80{+~ zb4!f6+sND!qYZ3mX@H(*49$!&+ApA@6QeveF)~6ghfIu2j4<0=76ur7aU%-@%rLby zLXS6)z36>ELvu?*^t#8`#K6=Lt?g)H2paf7ucs}H(8JW&$if(1ud$(}u{m1W0NINn zW?^cGUT+y2fg1A|_L^Fv#ig;Kr73z}&CtTs&>XEDW@u?>hF<>~8(CncaU%^qm~J+=K<^6~85o&jmTQ&<==};~BTGZf zJ_%@)2Q^GV=ApN#jSS38G0GexOCyZ>&B)Riz5i=$WPmYl0WuFgPa7E;8lsOK8XH*} zqqnn-jVw(t)4hQ)x?4czq4$Z649!f;G1_L9CYXJ3ODug715@<2fRUk@sR3I4FfuYU zLl*-T&**gpNDRG=1RCK%AIAilhu$wUGP1yEs~8(unqjsNEX^?52Sx@MWg^HtjPNry zH9$`X#zvOr7~>^ImKNyci?NZR0eU~#$k@~Xy?!$?HZ#K*^DwfsKrf4pjVvuO+O|f9 zM(F9@$k+^HY}m-ez}y_8&tz$d-X{UsVTsnBG&V9cMjy8TnTI~sXJlfG+5R&&Fu+L9 z#s&uHeMw^@L(phGs0jjZ`+&?dLvxFf36}EN*uW5dtkl@pz!0+yVrY(@XF%qmm%E@L z3XJ}$v4IhKd1`EIV1!w&8CsyX^^8E{IcVj*k*NjdIFhk}F?yY6Y;0hRo_~#vj117* zjv(_e(yp1YIeI=aHa0N9sJo2~Ofc$hBO^ofI>pG$*c^S{z{t$f5MxZ=*uV^Owr36ka_5N+Q`Dh0(5vi zC;`ITz{Uoa7;PzI151pyl#vm}_%6si^nRX^rI8VOdNwx3EF(Z-7~{`IMi%IK6=WWI zxnX2!ZjKqhhKA_vFk@pwL(KBP*Z`wGvNSix7&9^eHDJ)<(%2B2-;6NwkrAk6f~MEN z5VQYgU}lO@PaA_K>d^EW8yaJbTNoJ|WAt4>NfN#MGc-2ED2KoU-xzk7p!c_oO-xPE z+aSg!W|rvvb7K<=%=+BK!W=zs8Jk#|V6+`gjmdKx!2H#Ehl z&&^GZG5l+8W`sV*V{C4YIbUXOZh=uxn_F0-mz~BIrWWY+g0Y1e<~WxnsG>#-XG>Ef z^!~YtfuT8iU);pN(ina2!~~T5(Au^ppyYzqS2HoRutZN+CWe;g=;faYmboz#BU1zP zdf&vz%n-e8VPa%yik@CfjLpr^+X5!W78v~i(8vu&m>L@yW0tX?K?=0+Gd9Mkr;Uw` zK?|%w#TvX`H8wV}L@&pUjmViOYs1LShIq$n{nC$)&n#zsLuII}7h zv=~A`KPW%HL;)YZ+x)Y8Pw$=TV( t&D6xwz}e8))!fC^j), with Reserved Font Name CMSS9. -% This Font Software is licensed under the SIL Open Font License, Version 1.1. -% This license is in the accompanying file OFL.txt, and is also -% available with a FAQ at: http://scripts.sil.org/OFL. -%%EndComments - -FontDirectory/CMSS9 known{/CMSS9 findfont dup/UniqueID known{dup -/UniqueID get 5000802 eq exch/FontType get 1 eq and}{pop false}ifelse -{save true}{false}ifelse}{false}ifelse -11 dict begin -/FontType 1 def -/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def -/FontName /CMSS9 def -/FontBBox {-63 -250 1027 760 }readonly def -/UniqueID 5000802 def -/PaintType 0 def -/FontInfo 9 dict dup begin - /version (003.002) readonly def - /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMSS9.) readonly def - /FullName (CMSS9) readonly def - /FamilyName (Computer Modern) readonly def - /Weight (Medium) readonly def - /ItalicAngle 0 def - /isFixedPitch false def - /UnderlinePosition -100 def - /UnderlineThickness 50 def -end readonly def -/Encoding 256 array - 0 1 255 { 1 index exch /.notdef put} for -dup 0 /Gamma put -dup 1 /Delta put -dup 2 /Theta put -dup 3 /Lambda put -dup 4 /Xi put -dup 5 /Pi put -dup 6 /Sigma put -dup 7 /Upsilon put -dup 8 /Phi put -dup 9 /Psi put -dup 10 /Omega put -dup 11 /ff put -dup 12 /fi put -dup 13 /fl put -dup 14 /ffi put -dup 15 /ffl put -dup 16 /dotlessi put -dup 17 /dotlessj put -dup 18 /grave put -dup 19 /acute put -dup 20 /caron put -dup 21 /breve put -dup 22 /macron put -dup 23 /ring put -dup 24 /cedilla put -dup 25 /germandbls put -dup 26 /ae put -dup 27 /oe put -dup 28 /oslash put -dup 29 /AE put -dup 30 /OE put -dup 31 /Oslash put -dup 32 /suppress put -dup 33 /exclam put -dup 34 /quotedblright put -dup 35 /numbersign put -dup 36 /dollar put -dup 37 /percent put -dup 38 /ampersand put -dup 39 /quoteright put -dup 40 /parenleft put -dup 41 /parenright put -dup 42 /asterisk put -dup 43 /plus put -dup 44 /comma put -dup 45 /hyphen put -dup 46 /period put -dup 47 /slash put -dup 48 /zero put -dup 49 /one put -dup 50 /two put -dup 51 /three put -dup 52 /four put -dup 53 /five put -dup 54 /six put -dup 55 /seven put -dup 56 /eight put -dup 57 /nine put -dup 58 /colon put -dup 59 /semicolon put -dup 60 /exclamdown put -dup 61 /equal put -dup 62 /questiondown put -dup 63 /question put -dup 64 /at put -dup 65 /A put -dup 66 /B put -dup 67 /C put -dup 68 /D put -dup 69 /E put -dup 70 /F put -dup 71 /G put -dup 72 /H put -dup 73 /I put -dup 74 /J put -dup 75 /K put -dup 76 /L put -dup 77 /M put -dup 78 /N put -dup 79 /O put -dup 80 /P put -dup 81 /Q put -dup 82 /R put -dup 83 /S put -dup 84 /T put -dup 85 /U put -dup 86 /V put -dup 87 /W put -dup 88 /X put -dup 89 /Y put -dup 90 /Z put -dup 91 /bracketleft put -dup 92 /quotedblleft put -dup 93 /bracketright put -dup 94 /circumflex put -dup 95 /dotaccent put -dup 96 /quoteleft put -dup 97 /a put -dup 98 /b put -dup 99 /c put -dup 100 /d put -dup 101 /e put -dup 102 /f put -dup 103 /g put -dup 104 /h put -dup 105 /i put -dup 106 /j put -dup 107 /k put -dup 108 /l put -dup 109 /m put -dup 110 /n put -dup 111 /o put -dup 112 /p put -dup 113 /q put -dup 114 /r put -dup 115 /s put -dup 116 /t put -dup 117 /u put -dup 118 /v put -dup 119 /w put -dup 120 /x put -dup 121 /y put -dup 122 /z put -dup 123 /endash put -dup 124 /emdash put -dup 125 /hungarumlaut put -dup 126 /tilde put -dup 127 /dieresis put -dup 128 /suppress put -dup 160 /space put -dup 161 /Gamma put -dup 162 /Delta put -dup 163 /Theta put -dup 164 /Lambda put -dup 165 /Xi put -dup 166 /Pi put -dup 167 /Sigma put -dup 168 /Upsilon put -dup 169 /Phi put -dup 170 /Psi put -dup 171 /sfthyphen put -dup 172 /nbspace put -dup 173 /Omega put -dup 174 /ff put -dup 175 /fi put -dup 176 /fl put -dup 177 /ffi put -dup 178 /ffl put -dup 179 /dotlessi put -dup 180 /dotlessj put -dup 181 /grave put -dup 182 /acute put -dup 183 /caron put -dup 184 /breve put -dup 185 /macron put -dup 186 /ring put -dup 187 /cedilla put -dup 188 /germandbls put -dup 189 /ae put -dup 190 /oe put -dup 191 /oslash put -dup 192 /AE put -dup 193 /OE put -dup 194 /Oslash put -dup 195 /suppress put -dup 196 /dieresis put -readonly def -currentdict end -currentfile eexec - -D9D66F633B846AB284BCF8B0411B772DE5CD06DFE1BE899059C588357426D7A07B684C079A47 -D271426064AD18CB9750D8A986D1D67C1B2AEEF8CE785CC19C81DE96489F740045C5E342F02D -A1C9F9F3C167651E646F1A67CF379789E311EF91511D0F605B045B279357D6FC8537C233E7AE -E6A4FDBE73E75A39EB206D20A6F61021961B748D419EBEEB028B592124E174CA595C108E1272 -5B9875544955CFFD028B698EF742BC8C19F979E35B8E99CADDDDC89CC6C59733F2A24BC3AF36 -AD861319147A4A219ECB92D0D9F6228B51A97C295470093CA270C5165C6545D6DD11633CB01C -F6EE3B37AA823D92F442576C06EA48520F0F737DD7E36EFF1436913D7B55347D27E02EC93D8F -98260A4CA0D41D684DC6D2CCA5746F13A862CA42419FFC585050BB153883D3924F26A261CB59 -E945236BF818D1067BEB62B89F25B57AC81D10844C89A1A648EFABD92B5C8FC1671A9361602E -52B9EAEEB8A603C8945AF8295D0706DA6CF8964B671F90DBB3949ACDDD20530134FBEFE9D1F1 -C429097B2A8AF2818951D34F2798A46FE02C69BCE1A2B4C11DF1D8FE0610BD9FD2016D3AABFB -483773ED4255C1B00B9484918BB10893DB86FABB84B063B0F287AB61C16D6751C62EF5CDC87D -D0A92D85A316BE8C707249B5FDD59C4B5427D80710F7241CDE5C21DCB42CF52503F8FDB41BF4 -84D264BB5CBA25E4CC23CDB884D163D32B34A8209DD4E00225CA040C066AD5845EEC2B7E2054 -B53FD752C0044B3BEE4C222478F96458AE8D804ACC0A2F2F6BF49887D658BC29239F598D69F2 -525756FEA34640A7D49C471AFAFC9E74F61DCDA120756BE6D706721FE72D68E7B68512EC0487 -7560C5EC2AA420518E9BD3A4B99A379BAD8A42AE8594CD2487006FAEC7103CCA1C4DC2706EE4 -61694D0DA1A4CC575D42283F5FBE9D6C83DC44A36B28E4B5A4DAA82DC26A5E7A5E639DD955A2 -688E23D5DB20456A3FC37CF8AB13AB07B6449916527F0C18B29FDE7B500F0181117C77C71610 -2E82DCDA92DAA3480C915B204C1B32D592E53952E23161DBF0329475C707CE9587E609C891E8 -2D224C772A425B90F84989038C3A19B0F228C63E3D96B522A4AA806DB21D2AC737C4B51DDA64 -A8C26A6DFA02EA06D1ABB94BB4436C9AE3DC8C4C86C6FFDF51AA4D698015BC6638E11C139A7F -A791F4945B42838ACBDA6F8BC254DDD17136C5398244476FA89C3EF4517BE1A038AAF06517D1 -DE74D08A57068F96921DD3D0F1CAFA3E7656A6CFA105D616B0A9310BD235936E5F2D814108EE -D94A3FB6C4C6CA8EC24CC88DEE11D8C49E8E9A541304A8F73D0881F86C8C9F8C6B7B9DAD1F5B -110CF977A2BB5DD1FB01D38EFC6FB7D47F285D5476E0A8EE6CB18C660DE50B947C4038F2C0D4 -28EEB74801AAA4F8C69EAF98F3534F2A07F125D955A9819F91DB70698B3CBE43AE7BD21543E0 -4E45B561EA49AF2A9F502BBC4457940198D19057957E97437DB68F543BAE48645DA4A1CA3174 -584909A708ABD1F4D88609312695579F5ACE19B74DABBFB9DDB7D95B2F209D781E940ADDD6D8 -81D4F8E874357C5331195385A57FA05D3FEB409DAB7E68E9410DA635EF7ECC450982B226113B -815518F312DF623976EC7993A1C2A5635AE195F5F3F899D6F3CF7B6EEE7F155BE79B359C7E15 -E8362F23A9DA3F34A63A9CE2635FE978F3D5CD8B82BB6C8744B9422A24E6CF1213D39D11FE06 -C1C7963D3F7CE449E81EE9811FF709AD805FB005A705CE4C104B3CF29C849B8F98C3F29E89EA -03B917EF7C7C3E2302260042E9002B2FAEA12DE813DC69EAAB7F885D836C9C848834BFF7A63E -39846FEE95C41EDCB80B6C0ADA68FC4C6B62B7DFFB39E62ACE498797C093739E9F676D71805E -DCB65EDCA354371D3A4C15FDCB47DC58859E0E0FEA835860FD215F9CF19713B9DA526D62F75F -FAD049B02E363A41F5C59D94E349A4AEE4E70147C4A33B2CE345B721FA4701026AD762DB6199 -5F3597FE83BD9D3BCFDE995DFABDCA93DE3FA056884EB5A6A8B193D940C22708588C79253A13 -70A1E0A2C4BE2C7A58B16CF9FCAE5FB905D15C9A3990E9871098BF64604F89805378009D6BF5 -9D7FF307E09A76D36ABB06CF7FEFACAB0052112C83D5D57CD214C1EC35A637E0EC5A5C77560E -ECF5FF2411BA5DC31FDCEB84E976435BB284C486B4378E82EF848C17F62E80D492F6A298ADE5 -3A0C2B3700DA662856E6008672873ABBDC38161EC955E237FB6E530EF212684044803A52C1C9 -21B9F1C2D270D2748EF96C448C7FF39549E12D616E46B071EE03EE9331CA72A6FD313B12964B -C7125C8EB88915B442ED1A0FC0F48C3508FE224F04A943E92D89111BA63F21303E94FB462DA4 -BA90CD05E8DEC329ABA0D6AF66396DF0C3BAB3CD9788030317DF37278700F23636CAFA3F7D7E -816E174CEEDF2DF4E5B681AABD94A6A249695487DE6D2460A80C6D218428F41C65508EB4E5F6 -E15FBA934E4BDD1065709B77D2908F076A343885A145544B39B53E39A64E0C0606362C7FCF2E -E8CF0C7F5B8533BBFC988F7B28E9AA1F45E49830373EAC501997D875A56AA523455862A4FF1C -313E2D50471DD83CE9C376C5F78AEC48719A568D66DADA4F8C3552BFE938E762340D9543AD1E -603A9E2223634FB84A06CEBF7F768A71CBA2438783EF8E1AB64596ABFCE695D84A3A04C5F8AB -92F4896D704A38E895E9DA72B8DC2A4A4F5D57AB554EB0ABD6FA201B74CD9821E9C80CA44378 -7EEDCE073931C02A040858FB82699FC5D6E6879CC70288FACFED3EA2CC073A1D61E00C6E17E5 -C12D4870F2D1303CAE0E0CD46E473A733A816D452C23B3826CE7DBA860631ED1504008607A82 -BE0A3D02EC135008FD18391153090560495C10E6AB73296E172E87F431BA31E1C5A5BDC81D04 -B0CE0003AA3E14CB8173C9E7BC43E3BE479597B59243F39A69B9A95C7A9EFE777EEC915ADF25 -34CC249AE9827260C30981ACA1DB8D606A10FF89A58A7D2908D7EB8586DFCFDCA41C69CDFD13 -E7B20B81CFDBDEB8BF20DB61EF5BAD0C0BFDDEF3478C287B804F90E133F84ADBD86B834604A0 -91CF2B6B6B0E5DFB4DC854261D5DD9315DF2227FF09837148464C57634029DDDE46428CB51BA -919797A0926B3040B29E547FE627D4B1E352A05A6839B09EE230025F820CE9B4999A3F030C2D -50C155458067CFB67F1FD865EB5E31F7CA4D939B46FB5540C760085042D3B7DD5A968572B780 -E977D671AAFA122547A3C47B3AB133AF9714586A32CE4158C636DE175BD167A4E841D45061BE -BE87FDEE0EACF42F2A0EB0D9FAA621E6AA79BB5940B70A4773EEE5866BE7A2E81B668CBFCFAC -0F3DDE69DD4DB3651F442685ECF5B647B89A43EB6DF40CDA7D6B29E1BE8A050DBD84327C2C2A -12F45F9D550245CFB8F26BA4B81E09C67C10CEAADAF697C9A83BFD6E4845950428278DFA8560 -FD7F38E8CFBB2C04DDCCB8D1DD10229AD4F08D12C1DFA90FFC23260104D124E59C9B2E667CE7 -A9868F2987DB126B299472247A1A69A5E21D0A3BDE5A8BB43A392D442CA40B00B52E4643C512 -1EE272EE0FEB5C70060EB45EC4AE3A7F398B13CF32F68002F2BD3231E96CD8D2E51891314ABF -E65EE88BEED24685604CC89210E6593A23D3F066DD0E3C949E490E85CCFFC8166C2CDC64D879 -FFDC3F44D65F3B066AFF0976664E46D0A9C94C9CDEC0E5533D41D530D1DB570C8AC27C8B790D -6AD35D6453EC945FB86623B81BAD1E065C881CDBAB1EC87A79D943D92B83028D9190D0820E03 -A12106ECCB96DAA50CC4548313929DE2EBD193CDD23B378C0974FF5DF699F5D9BB639C556372 -7828108D3FB2C4AE1226A400575F15FF8E9D5655949DE98F0C0DA25B41CAFE181DDD050BE021 -88E0735A3FB17C9D700701723C89506280308894FD1975C67B47A71502394FF30454E5416612 -7E57DF543F9C7257EDAF871E68494D154BCBB1EB62835A746F5E16B14DF9BABEEFFC52D4006B -0C3212FAB2021DDF8E1B06BCA553853BFA2252DC7C50D2D650290C31E6DA8142047A852863BA -EB8449E2C4FBF0C175ACD477A5587C7356610CF25548DE384E8801CE9DB85F7ACA70E4E65EFD -479523D5988B907AD6EF8DED95FE647D43EBDB42BA1F9D6CD9248E3213A3F9FD3CB95B2EC852 -5BCE59F37A0D682EFA5BF31396F72B201E018D90774B549006852FD141E90F496A7E9D55EE24 -6F7E03A6D7E25E2CC2A38B5AE3A0976B2D8E4801973692139D5E1D001CAA7FE05CAFFED91628 -A88361246828E5A80F87A8A08CEFF029E8EF5E36AEEC4C49F9AA11D4583846D73C8CED51271B -F9228EE65330D6446CE21B9059949D9033AA8AFEED34CD9CDFA46C7FFC5BF5454ADEE41AC210 -3B09DC6DF90CBABE3619870DA5F355668BB3FC86A1718263076785F83A57E25A5632F06EDD2F -E2F5458BDAB29D792DFA45E938C40AA6194C6AED40AAF38AF43907C61F4A57B567326AAD5A2C -E27FAE13E5290EE143209633661B5AE4CB7A3F0D7C9A0D9BE9D593798D0ACED669BF64C82EEC -7A98C31F0A2D5F95A8A0589A1FCFFFA35BBDCE6CC68078DEE928014982E7DE1E650AC69EB797 -95BB0F664E30111F827E138FA21C319138D8C5419D4705F0867A7F2371441509048AD051E9D7 -873EFC9A88F87948749AF2C473B7D803D5CBF2E417860D8B2DEA0AD52BBE6C6915E981451B6F -9CBE7E7144053EE05E3558F2822D8A2ADA6C3B3722759C6A77B6059E74FA4FFF689BC3FD7174 -BF795B23F7ED887E9F9FA95D54E0930E0035CD7E93860B73E7B6CB756FAC75F189C3995470C2 -9DE3AAABC3F15E2158F11FCE6611A3D16D3B91E9FB8264FC8530FD5E9867B4F5AEFBC3DC0ED6 -565AFF2F5966EFC6F1C646BEC9477E32AE76742ECFE3A7B83FB762C7D4161E6AF680A6AC8988 -256723915AA1B19C603A3267C04B3D3AC5E957A20F1CF2E4D838101661F3F176639F22F57E44 -6C24D8D77DE05DF0AB12275205CCFB1D893069B727A3F04A585C75FDE2FBC8EAC3A75CA25128 -D7319212C363F5282AB0F9DFC8E87B6D55638542888DA7F8863A3E04C1DF95FC2532CEC511EA -8CBB2A97CA1158A2E0054781AE62D361F8BD431C22BB964999101C97359C07913BCB06ED0896 -3016F4EE983C2D098C500C453064AC152E312AEBBD326350398B9DC1F43821B65BD53D00D6E5 -3AF12D5DB49C366834BA0106B02AE59EC6229EA201EA4B889EE7C106180451D735F011E3C8AB -E169FB94CEA17ABFDEC0FCBF0194D92E8E2A46B26E21FE04D0470C3F6D8F4B244350D64457F3 -29F81540520F2DBF21BC866C63CAC3709E070AC3B2974AD3593F690C15FF852E1A31C9AE493E -F19F538412C38CC6728FC413C4DE68B9CCB1C08F7D3863E01A673B5C50D64A8FE9CF612D5AC4 -7CCB47453A8942D9F97DFCF6BC2CBCA0C96FAE3B91A318235E822D6B09DBD5A58783826195B7 -CB570B6C21196C9BD83AF1E51585EC473BA01A1583A7B3A474687E4ACFC52D17BBB573F6A7C8 -1B72DDD4EC4F51AC869A4B1FC0E581D253CB20FAFB8A6E34D02735F1A8AA6004E3A7E30CBCB5 -B02D64992EBEEC146B573EF8F7E3C2DCC6FD52D168C9702D1869D1B0551CF0ABC4BCFF2102D9 -AF602CC8D8ECCA99B7493CCA6D8B3CD73ECD82333AEC452826ADB00FAAD0BBA7412FB5F5C2D3 -0E9871A79E8ACB203353C3145462BBE0D72CEFFB9DD3C6BE3F8DDB8019F9BC7350316C12A437 -5A0F72FBCC81236FBC7CEB73892E1E62ABD598BD2EBDE3F78012196F7C2B88BC4C7D1ADCABAE -D824D1C14AA5CE6035643C71774347780F4051855F27655C0309B2272C549FB86FF5E9610024 -769789D6C68C4BE575942A93FAC82E78E9A885DE95739A39E37077EFFD005714976CE2CA8753 -34D7E002A0CB2540914EB2950496FE67DCE6E7FD1E7BD22ED7231CD656F8C2517E2D9CB4968A -46599E647375D4CBF896411BE2C19FFFEB14165069CF4C88772D40AA755E56CCE5839F4C370B -A9C52569E3CEB35D2F6643CC5985DE6DA6884FF76CB6A7D25A91C868E9A3273A4C998D326F41 -1047F90AFB770599D060727E726AA5D56D831CFD1641F2C12C33BD7295173A9D7DDC83F6246E -2F2FFC3B4CA05FB9AB18270DA97FA393675AABC43235ED541B97A8D829E268C27BA8CE33C185 -60129FF95B525CCF77FFBD9CF6D2D1EB185DEF612A0B54E465B93D3237BCE7EB53355C7DB0BD -1F3E57ACECB18EEBABD3488AE6FC078CB2AAA273504E460BF89607DCF6E7C9D4C5FB6FE4B175 -9EFED186307916D5BCEDDDE972B9AADCC5C99A41727BBE9B803BCC7AB528F3B982311069657B -0DA985DBD1BA07CD5EFA77630E51E304C75A6FD8CFA43578FE6D9FB9E2609C24D271CAB5499C -31A23579085042D39D9647ADDDA8DDE0D7A3F9352336761CD938E458181A1869E3878364812B -A70E592B0AF8BBBD91240291CCE7BC8F2991EED02E49173A9175344385840FB5D2EC4CA1FCCD -7ED933804A6B444FB69776358BC64C9E289240842F7759F5440D8500839EC16E6C1B9FC0A3A3 -5CF97640A9C8006484A84DDAE9F0310E8987BEFA5013C7516C0FB2BB0704F89E644A905AA013 -DB97FD31EF20CD5352682373CE65F68AEB8CE44BC4C996917553AAB182155B3DA6F42F10D1C4 -25D1EB57627AB11177BDFEB59279EF8A21DEE5342F54BE1F15ABE84769CA83683C9B6AE769B1 -1C15EFAF1BDA1B25456CBFFA001D15C6956F0E57B5FB13EC0F10D0199E5B1378DB8C4DDF2C7D -74BBC1013DDF485A17B5D2904EFB1945669AFDF68AA15519C3670F290127EEBE708A5FEA73B5 -A6DD95668BA397BFDC573BF7FC44259D56312F04205EE7DE055D8A83813D55BB7BB6E76354CC -AC10FE43699980ED2CB268ADABC9C50E043867798CC9542F3D13AC77A84C6FDAD12146B2E627 -6E52FC092DBDDD95598672DB0D932B7E3B5423E0014A4C7E09C3160B9F61392A832AB12AD450 -DE69404A65CB691585BCB7B1C5BEEF6AE75B715EDDFA5F08C18248EB53AE744DA607DD246218 -85F1D17F9C23C6D7915261701C86670DB85311A1EBD0F3E9FF751A2045018B07C658D675F8E2 -6FE6420CCF8AA6034901B151214DB97FC4A27C8A8D45B46C923FDB9CA03713538EB61F7E1580 -3EDADCC5510223772F352B36EA0CACDDCD1A0F8CCCF1C89934DAB6FCD58A0756E1A9A6A545E8 -30F9BD9907190890E477D05A9E860E1C8D4C96F761428AFC557175A33793241704703A258097 -3A639AAC95F459E7BC046C15EE0F7DA6C4FF99B0BD49CF36D81DA77F2F77C4A7E3997BE37090 -F9DCCE93957BC70B0D435E8851BDF5669580BB30EA17BAE6E6B6FE98ED26EA55BF9C4BF709B3 -1C9F424149BB258AA66A8617CA818D2B2165A4D7824D2DEF339840A38164B9538E2A6B7EF7F5 -9357A6F69DBB861195F852B5E1662AD4E8785DBCC85CEDCC4E72E1E0BA088651F1DD6C31BC2B -81A337F439A105D4AD8DE58F3E7F1468940914B45669008B855AA81BE3EB153FF82FBFE6D0F9 -7FDFFA1B2EF967995D4D8B19ED1BC5C65782F6F61659F406C52B44259FB9B1C39456AC4B57DC -EC123F4E963EBA714DF245F3367D68B50322C627FCB04858CB867DAA25B1B1D8E44360DA9735 -E7DF7C70A358A63046C461FEB66EBC50BD94E01041ACD4EB1F70DB6C25915DFEAC28BA13A412 -E42AA5A4C09EC49AB7904C13E3C202AEE30654C412FA4527211A8EBE9FCACEB05E0702A69E40 -B508E472B890284DB8B37A6647BEAA561799877DD6858FCA71CA6003F2961FA666D909B48662 -D13FF62E75FCBE030AEFE8A27F599B92B6B94EE66F695422D324FB51E3781CBE15E0807F2018 -F45DD4F1D0F9C73AADDEFB5316396EC63E2057EBFAEF4FB44B6550E08E2B7A4501513DE5F48A -8C7813951669916157F91F73CC03092ED02CCA878D0BDB3491FA283F3DB3EE7FC2F84C7BC1A5 -EE078CE7A5169E3A9D36545C5A8F0F05B91C9CD317124FD10F708AA21669FE4F50F213DC0527 -BF0AA0F94054B054F4F1357F07BC9CCB64890C3317000CF73EBA5C70F57C53A8F04B528CD1D6 -8969EFB6C82877DE79FA0642E1A60488C0FCDCEFFFEE5EDCA4D16C84E03F22490D3608BF590B -F047D37F90DADABB7BD6FF3499F108BA1894F24E9568F4F1D5E43CBD0C2C73248DBEFBE0E0F5 -9B67E12C48839EE03EB54DE3215CD1B5C11FFFA38026D15411CD48CCECC43E8AC8432A623DAC -A7F41E4B962E6F7F85C21F704013686A7770BABC5FFD5F430D2CD486E384E2C426789A1CA445 -86CE55BAB4264C11021749BD8689904BBB589CA901E7A5BDF0D081D3B1D67AF95B79602F210C -C643F7E55B9A8D44314BDB787910C531B6E33EAC6A93FC39020072C76108197B6019ADA1F358 -E075B4F8220016D35457E14CE5DB1BFCC5AD4B2ED83B49514CB9194EB0FD85A195A202BC3520 -4D40D96379ADF397D636DE6B2B1CD4681F55A23A3A5ADAD2965D1F8EC170093E0CF57679B692 -AA51AA80A4011140142DD8185C51D692405CCC2BE99110D0BB68B865F3E42C939283341B57F4 -F3607E29A34AA81FE89597394FC627C1D04D7FFED71590A2A0877E06AFD2E5790B0CDBDD2A2F -2A19D8CED93D7CFFF895430533036E261340EFBAA076C19DB786990FA6EA1673CA8E56813028 -D5C2AB944FE5E594D05BADFAFFB545D9E144A976F44BAB92659FB1D64D9FD6B64BF03A46E106 -967EB521BAB229AB7F5BBB852B3C59740680731E9A3B0C85B3BEDF0AD31AD80963EC87A8CC47 -BBE8279638A0E116012646E9B3FF0F84196CDBAE8F16946F6FE647D32496D758AEBFBD492D85 -A922161EB50E11CA7E48C48B67891FF42EA4870FE04CEB24A5FEB30C5D496DCB96A463318E94 -F2E5C65647939C93C159E00FB696006E68273866CD683D9E2833EE0BB55D070706DC36760076 -BD237B64627866E0C8F640D9780A1A1576C6CACA3B299E6A9671052376EA422332F2CE25A8AF -6BF39CEF330FBBB0CBE03CEF685312782B25A0904BCB5EA7C1FA871B1ABB5BD21F93DFAC1319 -D7BC58E323CE25814E3087647010DF7EC77F8B84FD721EE31AC69A9CBE339F97E9818F8EC3C5 -29D90DEC1E78B2E73E121F1720C6294E1591D4D5F7E66C5A13C13C451219BF8224AF528721DB -E521A10DAF6CF1E1837E861FE19271FF057C27CD826976E99843537D6AB8542B34C5E6820CE8 -D2DEF11278932BC15E38CEFB91A9A3842E3F89F20FA4FB1D71E065F124CE4022DF9D30974A40 -872ED83F13FE710C2A486E3ACFB9C872E0AB9E10307D0412FDF18AB6C7F4813993FFB8F8729F -B47BAC611393FCFFDE35F8D351F69DF40D276E20543622618CB1B26CE2F43A9D701770EF670A -F2624EBE83CF25951322D93E47B9FB005A134C5EC2CB9981DF847BCCC688BBE5B7C4932EC371 -0808A2606DFC13823DF3A68243A7F2CF037AFEB8A2C4D7F378B62DB43CA41F49D3E13D751E0A -89DFE313D0E5257A4ECEC85E4720B2EF52728FB5A4C076F9E7F7F94C3321C2834BF03C3D7767 -B61F2AFC251180BAAA721130AC0A1E6DFCC24EEE43516CDF03CBF5BC62A9D16EC09C0A5F8D10 -38ED6E52E6020A3507FD73709C7FADD876778AA28726DBFBB77B064D0A418222CA4873B00788 -390B802A4A79C555B86F35895B7670C38564DDFD1758C69C3F6C4BABF655B971D926D0A7B155 -A13557F1768D2B1369C78790F84FD5F55397480A65F16475EBE5A8B5E847D6B7FEC2EA2AFA2E -8E9F852AD94D3AA0D3796485BA22FA69CD6AF0730E2BD653023C7FBD91CFF63ED6C0D17CD066 -4BCD24671C4FC507EEC3F779F354B447141CD79D8D7F3784FCB98D9322A5B53C43AEDA8AF0A3 -8F58292F103DE3E5A6E1E3712E74A35A9F7A411CFA8D43F60A7F1FC8269DA96F57F99FE039AE -00B0FD20B684C57497BACBB88AA5B68B7AB2F9A6CE7B69D01D3AE489F12489F038E845D669D9 -7263796AEC3D71570D703F283017CEC58F4CFF645AC1B0AD280031E3CCB725F51426708D3674 -B5010A4B996A172764A5D0FAF00DD5B7EAB803F299EC1C19CF17A16A3A4F5C4437A002740DFE -47F67910FA2BE74BD31D3B4C7C79EEF4308B6C88AAF71090A324D263652F07C08D254AB41BE7 -79E008995D55B9075992A492210B5DE04C5ED43D71430E29FE04F85028D690DE362B64DC5F34 -2D5AC8A86018469D7AE2D0C03FEB43E50A07030868355C2007E893339CE1C8B50C233DBAB842 -9B4B3A3725BB25908B6BFE1F003C81F266E89AD6E76C51C9589C8248CA98B3EEA5081FBF7276 -319BE7A5D878003DB29CE9D8F8F287E9D319E9CFD8E0DB31305DAC8E02BBAD1EEE1052DB8FAB -71AD5C29470100258870A092D3914595015403386FC30A0A6AE87FAC2D9E09BDA066C5EA9388 -5A4E1DB4FCAA7888E919C922A07477168E8977CDA919051C480CA3E5948EC551540D55C39111 -03B69E670E9591AA484015173E33190353FB20F1610C64549B493BDAAA8C528C4D11A0DCD8E2 -C9696C9410F7ED8E731980D86E87CA05BCCCA64C449C8880C5465AB30DE89F713BF88678D6B2 -CBD149E54648FB23A6F688CAC130549EE4C514889BBF7483812A7DCE5C36FA7D22005EF3A3F5 -E525C03402B8AFCDAFB28CE290C871672D5526E045F24B3C752D6FCE3011A57B8865C11C51C5 -6A2BCCC47FB8C4BFA8863077D5DE4EAD5259AA99A2CC6583942EC56BD5F108966EF9CE8FD86B -14CD8F8A2D538548ED1BCC081D9AC5C44C596A6D77F39EA609C7C7D856EB95615ED0B06ADB48 -E1D6C05ED7E805E33C57F633F3DD6962E54E37A1C8F86ED87AECABA47B729B819F709479EF60 -7721BE6D8C4388492ABBBC5EC181E3F906B18FA3633CDF874163C8B7D023640EBC0C5EC4F0C8 -563C385B58E784821E2E62D0CDBFF981378212B0CA82A1D10667B68EA71A49C749EAE4DDBA4C -E508EDFF8546749340344821284396E0733E82580DE43C7A69B1228A61668AD8D6C702D005A5 -905AB84F6715C2ADEE42F1294020738E93B8A6E3E4C6A59BC5436416BE0B7844DCD78C6CEF7B -FA88AE0EDF80660A261869A3FA154A7A760873951655921570266955C5FC0D1F0B9F45BECF25 -F8AF243F9B12BBE4CAA8BBC74A2E175C4E0F8BC34BC98F33989CF8E5235965A524EF9AE262D3 -D0248045266C7FE635BB64BFE7BD2C40CD4CB84802E8D40D42515E02D17DE79E40F1D99D2810 -427F709B97B34ABA3CF2E534D325D08B41A50140E6D219EDB873F845C98A35F91228DB1B0888 -4424F04B7A118128BCACB32F4C7DEC701DD7B8AC832D0975B6A7E8E723F1DB920A57F0AEF62C -A59E86F96D2C23786CBB770E00E2D3F74528F79748AD50F1B04E94EA45E98F210DEE3CCA2695 -47B148848A1531FA9400C515F746D06A68B396403ECE8C1745819DE0DDDFCFD94C4749321ACB -67124CB21B41739DA7BED93F247317F22C31D6C64E627F1E41BC24B083A02D8263D4BE4F6F7F -0865FB120EBE302DEE5C8285223592A81FE688956755110AE2338DB0794BE8A1719A3CE37280 -0FE9BD52AE2FD5F03F034E2C7802C35ABCEBC9FA8F9CDD64F25026C4D2B1DCC85EDD0E7B18C2 -F28D4DA5569BC164FBC4F7A8FB8BE197DF05CA5D90183D2997D98498FD6540AD9074B7E88C80 -ADD92F3D8CE61B173D2DE873B6439D9FB485310E0608E611D67C1EB45580B80C4BCFABAAF954 -D3F50471DF48682A2ED9DA5E6412B674B3B9458EB36C82F10914531CE55C492617EBB1791630 -88E673FB94AAA6A60FB1355388BA5C12487BE520DAF9743A8A12DE2920D26BA2EA28196DE06F -D9C84F1A067C2E71BA2E2C1A1CF970CA514550F689A87AB654AC68CF28E0E4C81BECD4FC0637 -33F244EC9B2B59CF52BA59A5535696ADB86A03B2A43162AF51984779E20CC344FDE1DB8B119C -612E00F2E2E7897FC666940ED136F05CD21FB47F481FF7D67519F7CD75843078623981759C54 -FC95E4245943A11A57696A8415CA49700437A1CAB0089189D0A29E77F9419E4E98B69F6B8B9C -6D83910EC17572D7244BB35D16E153DDC343D5179D867A037E5AC96E5EBE7905CE3DF8BA19B2 -C88942AA1B9B5C362748C2D17D10BDC34F34DA91337E821C8C5C10D81A23253681508BAAE66B -B6EFB21D243B08C845850081BBD2A8D47903B0A8C0FD183A4E794629FE4AE7D593705AA510E9 -E4FCDB3EA7B3AE15614E863FBF0500E7DB3DCE9807B35B2C2C0CEB941646F2BCBDE4822C1C36 -BC2E962CBD438A2D1EC4E0B47BB6BA10F3389B81335E9869F44A2714BBF952A4EF77EFEAF1E5 -361F8093388B5AED8280C50BB74256085D87BD32641A0E4D2803C192FEDA29FA1F7D69AB2181 -4BECC447582AB4D53E2A4577795B41108045F63DC1C11CB06C991B99E335EF27782F5AC42802 -CE23943DF74ED3C75BD93DCDF1E51883F88B6BCB38A9F1A6133B3C327B6D4E544D043F01064F -EADB79AE138AFBF35406358D033610721918E64787D84A6D38EF68A34BEC8C10EEC8D502D814 -6E3B845352BCB5DB5B6552522AB67B2AB16E4EE34C3281A6E83940CDD4B9B308CA1582D6378A -D62D641FD12BBE086AB60E21B043B819028C00032576D0C839D1E6A99065F17C22078923F9C3 -39407E5827923F61F5B58684541351A8A6BF1419D8463AB830F5125E9C58D4BC812369540CE5 -F36F6CD5776D5D008A128CC3B8EAF83C94923E781FDBF418FF0790FDD90901F8FDDEDEE4C3A9 -2009B07E69D7C46E312AC9CA616FDA7430409803B7B069A24313FC5739A9778A0E108CA69E0D -BEB7C0C967C1D81796556318B517C7269E1464352E6AC9CE256F9C5DDD97E82D290315C06905 -78FC51244167FFE064E65100D1076E0EEB3BECE7BFA10C4EC405871318A8CC036F98C97BA00D -3F13902BB84D53664B6B783A815E67010C9D86778D20549AB0ECFF66047D5613CCBF5C4A99EF -7845780AE00386E9265A0BE8CAC95A490CF665D9646A58D46DFFC958F7D4805F837B69204CF6 -A6F5AF97422A2A147DC5963298DB02BAE25E5C3C7D02CA0DDDE3CF9FB0CFB2D8B833D569D814 -2B85003507B9C5E2A6EFE659E27B6EAB72E66E6C72CEA027C62B7603F6FED5BC2C9FDC15FB66 -4D110491D3B5D74005FEBBB45240ABA19769838A12A9C15A36D31BDE47EFE101C212154F8C10 -D2B875E7F30127742B0524DB4ED4D318DF4F03530EAC96A906DC1837B50E4354A3E7C3640648 -A919B0FCE9AC09D89C91184B82C61FCB9E7659E210E5D915CDF4EF2103E27FD8A6DAE7ED401C -CF279F593FD0647B1D6C4F5C929ACDAC60589F86C0E953E29D6AD0E79A858D27ADA5A737808E -C23EDE173DA5F824355F9EE44B6D35E7C2B216BB7BAA5EE8552C73A0FED3903346A325F944FF -887B8C09164F75448B0ACB4F6A77C92DB39134C59789340722F3AA9BFF322C39B9CBDC134720 -774B5C89CF5181BC143C3D15DD48296352152C3BA996AAE831C6DE24F6B5588E441299D20EED -D5ECE7B70636B1C36FA0C2735EB03E8DB3EA3EC2184E7E826D1FDEECC32E111A045A21607869 -0F9E680EE43888E4852C1C8C71C68CB2E9131808195DFFC772EAF0F0CB04A3ACF238E857B535 -8B3FF2C7F0EE8DCC058F9FC2E22372388C7D4906A1C45913781D0442279A5B5677B107A435EC -6B9DBCC9A7C400FFD4F4C5981CBBB7B3B73D2B5FA02107FD771284EF8EB5C2E79EEA80691119 -A52EF7F4638DC7254B28311BB06D89DCC1989DA299830B736F62BD7B2B1C3AC49270C1E3A5A2 -551630C982054F179CDF5343F3D3F4BB536010D65465643C700B310B1F95CA5BFAEC4CE8C207 -D324A52B5E8BEA61B69A71F5E00362980F80675143CF372EC5517D3AA1AC0713F4F8B6C0F728 -827112A598E7E950444E7E5CEEA8643BD49AB7F5982BED6332FD3C1DFAE99DA34B3F026DF847 -160DA56F85683176257F5E6F22C3ECBC3F2E5D261D389EA6D77980AD430A5F0F153FD2290618 -E2F70A4D4903B0881672D35A4280E69AFB655F369A42D2B65EC2BDA60FD212BA0A10847DF73C -8493491C6254ECDF0B4D42ADF784291BF7CF02D5BDEA946F6600AC97974E20F9650978AD7457 -F529591416A7B7F1956219D70BC6205224684AEFB4775E1019ECFED107AD9857BCFA4A620386 -B928DE41A49716897A322D943DC88D4AFE9A23B8BB4A46413DE787B3A1F2CE69C1426F6776D4 -1D0B3EE5C185661E6F364000549759B7B4BFDA11C9E570C127CCA36E78FF001BBF7E6F4C3E14 -9C1208CE6576FF78DE646E670985FAAA29AFCFF63A4D316598EDFD8FCDA1D779BBC955E4B1E1 -333A64484AB719E9F4176C34724A1C857C8C8246D54AF15C5B7D1E93BDE7FA56A56DAC25572C -31C291B582ACE639189AC3B99FDC47234F9C8A732ADBD0D33ED60826B7E41ED1F28CAAC6882E -A12F08286206E7A4279139EF644FA49CB8548D2DDD50B7E0A2EA56BE5ECB0086F92A29D809FD -8CD9C60DACE4EAB254D133A571F24B8E171E5A5DDE65E523327BD35DBAE84E1CD09EE78EF367 -BA50669E2AC20F61DD120B8410670990B7DF8D2B897142C076681F4AE45DDCF6B58E60A195D0 -8FD4DAE04F9122EBE43BDCA131C0E57E2013DCB2CA6651C708FFE459541163158B9E877B96F6 -BDA735EA6BB5116E412A1DB915958389AC7E983D056036457B1EB18752EB935DE60ED37421BE -255BBEF808380BF5FE328625138AC11B63FF2EA03A63C3AA9829EEDAE32D09A622C9DE82FDB8 -6E502DAD4EB1E542DC1202C1964BBC23BD85AC2083C17AAF9ED79C692B71A71FB99CC053ED23 -8A42C02C33635ADD8E05B6A9B72A000BAA0814325E62BFC2D35CD0B0F4D0AC75560AF003F9EC -0927F94FEE922B537287898D35A5F08C628A8733BF202957FC85C9D5650F0E7E47E955E7B865 -8AEEC972BB58DA25BCBA981652FF197BA6F28BCBE57C866077B3DB11A8200BF7D6897D882B8F -442F20F873BEAEE91C86AC8E3E53B40523D659F0D05DCF12D8105C7D251A55413DBEA8F40005 -D4A79AB2B4B08413C93B3FD74C6467284AE169D9FC71410C9EDCCF293B2A872B82D0C8ABF3F8 -603ADC711801ACEAB22597D994FEE0FE0A05C5807B3D5DAA6BBD753D9EB6ADAA5251D427D1D0 -23E49FED7C656D9196601C07F69DFC8C643E6C04A9B71A2CFBDD9770A01436C90765AE76F4F2 -A80779D8003D5F97F7C3F21CD960887217FE0E7737C8495A1F452210F4D7ABA5E5FEBF814F88 -971859D6BC6ED965998935167338ABDB4AC2B87C43BAAA4659E1F504CF7DCE499445A23FD40B -C35E45BEBBA1EDFF3DAD4E2BDAA504E478CFE2B4141618E36B3BFDA5424DC56A6685BC2FAF5A -5461E0030B847B8E6A286402E1EF836CEE64E00ADDB073FDCCF1501260D8F19086D39A77BA75 -BEB17CDD4D1C3D2BDF025A5E1279CE83968929E8BB487EA4273625E061DA84FA433F6704E587 -DDEF75B9A891DFA6A7F1ADAD2030F291EFC35D7FAD0A401C211B3B478BE6547BD09951538DCD -44CBFA9C6CEA598DB97DB35B6185AC8F927291A26483E158E6D71A8DA87E008B725FBDEADA05 -E86961260F2789095E000285F5EAAD2163B2871DDB90093B3FB79B4945313EB9329519CE0A1E -8D947AC1929DD9DF850995EB8F851F443E7B05CDF972613614306871E98D74B65BF7415F136E -04DE1BFB0B0AD90D6BD83E681148C6F1AE0A696C5EF8CB7D1541C7BAD732C0FCFF82EA04BADB -B8A02F1FA1CA92A2AC82F8CB174048049A86515BED2834A8CAB56348ACC4E0B5B75DC23C59F6 -F0DA988C6FF0A482562CDA3CD91EAA8DEC7099441FE264AFCD924242AB817130F297C871F6C9 -1C2653538DF0684353D3368170213CAFFC5176AAEF5083F7381FE53037944A44A37886285E01 -50AA77A4B4CD74A7808BB374E222B6426D8AF5B1D99803A0EE69443432967356BEB01E41FC17 -B901FE96C015E996C0BA83E38B2D0581A8AE98D98B1FB93C00BE73E2113312D0425EC8B9A998 -1BAEDDC1E3C173265043C2395893EB4F5A62619F4C0410067BD02111859A449BA33415048ECA -8009EE3F3ADFFEFE560BA93D50444FB5693B9885A215F33B5BA881854D8BCC1D769E8D87E1F2 -10862993F205A48641F87B7C4431DCAF3541134305DA7A7B97A149371AD0CD30AAC23F995AD6 -3B3F00281829F30C715422C5DEBB637C76C9AFAB22DAFC9687418EB438E451CD6C49BB581156 -637C1C6B47A9D0CBC1BFE8F2879B28CCFD09691B16123843E0D8F44BA028820091A2E25D7E02 -2BC3A3BC898FC449AA52482C7A6349435509B59328B068D72838B2A3D338312E2C38517660C2 -167EED603B454011A66C7035A3DFCDFAACD52DD9778135D1ADBA2A8EA7367A87FFCFE5A24D80 -37999482BF45A003B884577DB0D8C1DFE563BD1F43641C741463FB7ACCC96CEFBC7A96DE119C -21B4E2DD4DC8D3AD4F88799EB9D0B6E1818ECCBAEE8E95D67C238582FA576529FF3C6D8BCDC1 -0B9C7D15396CCCDFA63AC29F85F68CC26A4D2587CA028498A904FD2E9BB667A643A1F8B0AFB9 -15545C69635C6E561D8780A7B72000C7B2DAFFAD5EEB131C1ECD8C6A8A2ADEE95CE3C0E613CD -D57B988531F13CEC3320710ED2A2AA38C13D344B6F6FF97F1B8C0FB4E9DD1E46D64A66A65AE4 -539A7BB4DC6268801D3C6AFC097F92D26EA13A7EE53623329DA39C7D667AF33A9B47AE7B0FF0 -550DF27A68F235704BD6C157ED55FC8A6A56433DB9309C25A0FB87B8E8D7E64240786A9E2E99 -E4147B877ABDB7979B3CF0B2698235450E1650EF0DFFEB2406A2E2C9C1401DD0682F80A85F36 -82E07620AA4DE542010321527DACA2D1F13BDA6289FA2D3F1284C85BC9BE72A774A9EC40CD79 -8E6CEEA0B89A186CAE176B24119ACA73404B36AF71C8ED83A3155E40E674FF549D7CCAFB3F8F -7D55788792077F946FF82FE00D00A4875104640C058E1EAFCFF9F825A790514F40F286279FC6 -CABC0106EDC2CE231530645C182B624F2F669375C0EB0DA31233D7314E1854038F09E4BB4DAB -210CE249C4FCBFED2E986BA84DA2662F6EFEAC62AE52DEB481FB2B79C33DBA0F5CF08F18E307 -0813DC2CFF23EF88190F2AE5E0EA20A9F152227AF0DE635AD103BB5ACA286BACE07F71E39CF3 -166B1EC7B09D7444355817EA0AD82AFA691CEE59AD9B49D71AC91B0FEB0A7935295DB7BA2868 -07F974FBEA3C51BBFD1A45E2144DAEC2779AA3D621BA5528B0226F7C8DE261BC1D52ACC4A07B -CC4120D3D1C0EC66BAD1F6DD06C3F425BB3AB8F7BE0787F30E6CC315815DDD3B65B30AC66693 -D38A0EF63D1821CBC546722707F44F2B0A8B770A093439ADEE28CB1F31B3E9334FFAF12ECF72 -AF25FC843C65B0F5F56C58415F9565E574B5716F956DFCC02B36A185615DB3E82EF35ECA8BF4 -C1B592E33F021730936DC0274220F020ED95D9D1DDCD5A4365F42A8046808FF9EDCECE4412CA -F225A85213146176161219AE2FF648421C5BD410CD38093312DF02DA7B8D4D86246B309129F1 -9C14313E4C365FC2F58F7F78AD987755B921B20DD17B106C2F85EAD1023EBA7D94603D219FAE -4611F6A5951BF8878932BF3BE8D0BC9D193F7218B76F768385DD8D22B428CEFBDD05E3324B05 -5FA8C90A3D5F1714AD78F25157787469589724AF73CA7CDDE0B2D57050B21952BF0C3E346E76 -5C56E48BA9397DCF239562DC5EFB17B012ADD8C8DF59844931B148863A2AB9F25C510CD2E437 -23A105B28509E698A18CB4F2BD47C1D71FFBC7B508BDD437EE7C0BFD93520888C71E03D5ABB8 -5BC28F088A64F5438C01E1916A8B0B42062E7230746F06E9D0FE0EC63118B4FD9449EB77DE51 -05BCCC02FC7129B0BE948BAC164787E2EB4BC386A8161BC934D4C491A818D7441F525C0024A7 -E232E80CC618E1F78138255FFF587DD1A25D620A5C0AFBDB5FA0B27EC1ED0E6E74B2C19728AC -9B36FCF7A86CBE707D2461C53E7E408938067E1EE30F3BEA7F9783249B30998E6B15E788E57E -D35B59B962174DA4B0EEA717088D3842D1CE1E7DA6970019912408727F16AB3FEB37E78106CA -B71F93EB0C08CCAC4E26DC53B26D0862DE70CDE5915782FB29179B0E812251AB5329DDF1D950 -14499F03B3672085E3422C79157C5619E11128E5CC1897FCEFE29C6400C630BA82A25D0922F1 -304F9112DA84E2CD8713D85B166407DE22DBEBAD11D55B6789621EDCE77AF71AD6E60B98FE0D -53766E3FAE85EC952CC49CEBB4C48A8C7A7516F9E18A42D2A8A6F4D0152C43F9EBC6E20CCC7D -E48CB1B2BE3103C9A968BBDB85F8A6A31F140AE19DBC7ECFAB23124BE589DCC152BC2B83DE01 -574D404476F80D280E51939EFBA40F08AC53E0FA31285B4A272B19FB5DB0EE278D67B2B9DECC -CD25759068096BB5A722B0115628C9C5D19C3E4D80350F6D4D8AA219EC4A3D607C79A97A06B5 -6F2632A1DAD6829A6CF42991492745095FD15DC118DEA840A4E59C5FE4A02906BFED2D339D9A -9B9602B269DC7A0E7A0C18FF01B5D0792D7443368FD6795CCF6CF6C5CDACE621775FF9F57C00 -05B8609EE6375F20883A8BDDDF66F07309C36B0A362873B6142F7B1E9F26C1EA255B6D6F28C3 -998D7F565DB96E9C2EAEA17555489D90F1E0C87F98202DB2B16509741BD3E65F2F73693DBF91 -7B25934BE1E005BCF74878B845BB11C5D5B6EBD2CEA50DF854B8853CDEDD6ACF0F1F7F03270C -1EA8BBCB799452AF22CF1DDC3BF7182DA41C52F85BDA083D7D57BFC9CC2AB719B5620C313F0B -286F3FCD9681FD6F535FC4F03CFE967B0DA095DA0AEBFEAD38B6CE4A3CD0A74881EB37ED4656 -7AF9E165B01466A0F69759202F08B6128A814A99EF6DDAF2F2AE427401ACDF67AC5EEA2855D0 -2154503788E01F0498F64AD474AC885851F69832D67F021C4151310909AE45C96B4DEB20AC4E -490467B745A98F61C777FBCB70707F4FC03338DBDC2D84843E46A057FF4E29B546EE6671697B -F9E8154C17E0DD4E2312875137C05A28540C01C4E1713E7AFAAE2BFCBCF6E52B222A5DC02040 -05721F4883FA49390F6B79A54D5163CF24B826A2252B81FA4654EE351B21373AE65CE7999E18 -9EF84883E6C61F9E6D3F225FCED94A9A088196A877CFF4EB81192C3E3580AE4FFD0DF85FD60C -6A12E98718F86A1AAEC9AC08FDD0953AEA9168A9ABBA0C7F135CE859A46DE293393649F71FFB -1CC6B2EF9F0808456EE1CF95D54D3861C5697342244BF620E5E6E570CB088362160D35C3AF10 -C394FD98C1F2DE6D328B149F25683F9354597C54E310035EBE97F26B0B5858811EDFB671315A -DEAE3EE54C06320368EDF39D4A436A7518B104E389166F043E76DD7EA9942BB5F8C59EB6023D -6253C23F27A25D87D1C1A48040596C7C6CDAF63979630A00F77FDEB00CD3190B986BC7F8DFB9 -D93A50CD27C5EBE67C7B7B96472B8829BCBF359CB0AB4E2457C5E74626582A0370FF7DADDD8E -8648A721873A9D47AA06139818E5AB9C76CBFFAE6179A7FB33932D95F989D6835274F4FF751F -A43CA94A40E718CA46DC38197B4C4E604934C9775FD29EF78464D88A6E4BAD8DE8582066311D -582374FE62BD6BDDD77CD67ED2E066589D8F55D558D63ECA0C6B283A8F0E8A24244978096824 -4E7E62F1B170BA804BE0A72AAFE7417F64887F56F29C2F4A48A324CE1E4187A190A9813CA5B4 -7D610B67A7EB20B83AB532D4DF16F0B8F1FB3B6F0C3AC88D7FE6AA57D354C49806A308D98409 -ED450E053FA02422B38398F868978A3B486B137CB83776280E69B005C3206FA3DA390D749B70 -38591EE3C313C394C468E66F7EB84D3D5340EAA8125921E0A2D989B34F7236F551E0FCD6E9BD -2489F5A47288F20E4E8CF0BE7F6A365182462602386850C094E544F42771F50DA21168259501 -743343078D49191049836409110CD74F36A98509CFA61C0BD14DCA784C86FBC4A6ABFB69F6CB -7A07458CDBBB1F3D0BE971812A9DEA446ECF2ACA25F1BAAF22AE300683FF1378161E2976FF6A -1B31EC003611C5CADB4F0302B2685F70C14B38BA6FA9AA0B4E6947EFAA5B401CE74A9E89EF2F -EA96E84D8ED3A2119C281F10F2026E280DDB45190FD4B999DE15BB9EC58D0B10DBEC91F8131A -F9787A9E85152D475EDBE6CC8D08D4E7576CF4DBD4BA7D699418F0AD518293968D3D0D2B841C -48E8A24AF29CB15D714AED1137174D114307DDCD0D2260817F140A369EBC39B54B412D5D905F -953ED86396530E6EFCC0BA20BF55D36FEC317C70D813AB64A9BA5334881B24C54967F180A93B -2A5F8F6ADEA00DAA7225F05F8DB099569DC4876E20A447180505410A50399290EC4E790133AA -574AE0269B258F22AED32444A7D2BD9A4F5B02A85B3239463070CC027A8F0707E50C8D1C08FB -27CDBE36C1EF42D13882EE4F7EDC5450FF72CCCFFB14AFFE82D2FFE009F43B7D284996B8E514 -AC564464949381FD62CDA2B12E809F8B1CBB5C1F6D1ED00F0F72B07ECFF9C64C582368F6DDE2 -073E7B7FE30D31721BEB6D6EF787EDE8C7E9600FDC7B38B18D41AA4B611F83B9A637433024A3 -9F9B27BA7D0D5DA857FC3600E405A96E5570D5EAC357AA7A46E4F34E8BF75AE8453D950E89ED -8D29500AAE88859631DF3350F14AD34582F93CC75858D8B12DCABEA8CEB6D7795962781FDE56 -7A63D5C86157FE6AC212A20E02B8D68602791A903D424F616FEA489C907F1D9C7FAE0C4E8516 -74F25EDAE0778EF4237C7BE987A64077F5C1A1A41688F44D7F591C6CC03B4CF4607140C1D8F4 -13EF734ADF4A633D9A2577B58D7276DC8E5AE1E90EA5B24EFBBBC40F49151E9ECEC1B10C89FE -C00F859B696BF072AFCB0C1F52773534FBD196308F224126222131D515F9BD697B670DF51DEC -8EF7370231D9EF10CE8B22198D3D23E92749435F9FBD3F2461CC8BEE181739F5F772AB436906 -195CBA31B3CED100EDCCEF4A207CD819F1C435DA28EF60BFD8062A3915AA5C4FE5200C58F113 -CDCA09399719E3E66AEAFAA4F9640C00188737EA5BCDE1EC460DCFF55BE23FE9F7BBAE77F6CD -995CE16A95606EF801DE3B4F59098A8785B516CDAC7FFDE735A54FFD50030A8959BD23D0C36D -B0A784F70243939778DC7278AEEC2474A275B322015CB0338C7D65D721D31ADA0EB1631C028F -FC9AAF598C88CEF2478C8F22A14D6A29FCEBBC4C3175E3C2F22CDE118661DB7841A220E7A6EF -E968A9A8CB509C10A9288EC2E1E4480AA2882E841BA15AA31B3AC98C7961D5ECFD4855CA704E -07BC12E71813E9BDF4621EBB7854D748B953DA4E23526C2DA66070B713F19D4B5ADAD7C71F0B -DAE0826D6E78BF6AB19822600E21DC276FF2F305C27E02B2602A66B3DB9C3EDEB20C348386DA -93A43A7745C39893720350C72AAE64041ACF8F30B7EE59E9E424AB550C63B0E649BD0CAA0016 -313579C900F935D5615B410E984A5E0F4B182009BB7147C792996269D2CCDCBDAE0CBF856244 -5750B448DABCC8B5ACC7E607C5E6B7DC8D90D5D2D4B2E04D2C5C88F4F3B0D0C63EBC43A3A344 -F9FEB3936B148EC73C80AD6929D97A7DF7D8C4A8328815B45D0A6A642B0BED5E30E693DD4452 -88F5891E30CAE2BCB9A208FD0DFA79202859AEF791AB9DFB71277F0ECB4F356FF2AE6BDA6E21 -8734B2B8BB27509A5D28B7997DBA88E134E5B5B867C5B1D01B8CB55CDFE0BB7A1946BA5C6833 -9BAA6621134AF0204DED9ED6ABB457921450B4568ABBB3C7550A21973E7C99CD438DA8A73C79 -E53AD8140A29D90818FFDFD24E5B9A7AD742294C9F64F18DBDFC2FE9B680812118FE5C2E5C58 -47C7997E9DEC79FBBA92A279654864F7E3FA9F7B9759AAF57F43E7FA50AF59FAF9BD10E81E7B -E40AF39F465632764110CB9B5807AB369A70373A80C43EBCDCF9E3F20E040849BC52077F55E8 -16849FA1B1CC8FB7E3D342F493BDB68972D2818E3910A0FA4C4D6CC6988AA783B8EA5B4EAC93 -4945ADEA6D0696357A5296EAFAE132AC7FBAF47861DE726EB9E9E76D77922A1A3F086B843599 -8484970FDABF227EBF975BD11CD772B880DE86AD584967EF3A6373B4939698516513FE803BE9 -7BEC1E3232EC86E85E5CA74C5F1EC3A4E5A177A21C7376D5A0148BD8EB14658B434F3E07C04F -4B79D05E13C4C85603AE16ADD9B2BD507645D0318316860A239E17F22E4F250B1A694440CE1F -62C384CE68680F1C156A4747EA3F16DD29782C8ECA2E0D817BCD7CDF9388778BAFC8528B1D49 -63DF7043EF6C848A5D3F5FA3BB5B0AE9F3E5B551EEC3CE13B1FEA97B55500D89AADD69E73145 -F145A147B92958C161667104657E6505E7A2D475D80CC09AA9ABAC20E83CE65C975490586673 -81EBC9386873DBA5427AF0778FA61414402371D28B021A85B5303A0CE0D06EB59CD7C0EC05D6 -3A7A93FB1C2F1C7103806FD10D6F5CDB1D95D43F09EBCD8D59959EF9492575D027D566989092 -91228D1969B5B2722AA504D9FA1AC735D8B1F80EA63752D5F8902748231CB4CD1A04523763B7 -12D613A423C69EDB73F3AA86ABD7A602C25157337B51FE060D097EABC22586BF740938A77302 -BF2BDD1BBE9DF1F27126463FFFAAA4477CD19706FB77ED81592D039422B807F91383ABF1EDA9 -956535B0824E84D3191FD32C1E5511230492951B4A87FCBEC538227DCFCBA5513B70222E3E9E -D193826A79F40B954466C7032C6FD34C8FF870B686156A4DCC69BB1B128D7DFC8FDD168C177E -6D5F58C4610CE8235598A0A35E53EA8D52B306359663BAE6085727231EB3802CDFC63A6D155A -5E18796F03957F4CFBE764B49331578ECF6BF0E8726FD7A8C6BDCDAA29445FA22489E5D61A79 -69726F1BE58EC0777E10BCA4FEF164E0FB10B09A21F9E3147C9B56B313F4A5BE68B343ED21BB -861A2D074B541C8581B40AD0AB672FEE52D9D97ED14E0DDB2A4D3FCF991B68C1FA08D6E4EB68 -E8F8D51953641B6F6E8BD7E7DB0C44F57BF525579945012C97B812348C975C26C2093424296B -2EB38838A85F70A89192EC607F81B67CEF2DBA81D8422C20E14598F0BFA34FBD88F8205FD13A -C0CD64707AF88E7ECE3FAAA26E7B3A7942772FD51AB2AFD8A2BEBB558091840854FED6FBD80D -F4B368810007E61B9B44C2ABBCB605357F60A18B6D92390A8A823B64ECA9FE9EF008FA39F548 -CE3A39E3041AD552B2311D6FA91BCE3260C5187B153C2B6C2D2D237F1E12422CF81334BEF5BD -4C077811073FB797DD25F5FBA834FE424851CB825DFB06C7D6F6CD6F7AAB0AE6F20DE5E84994 -4D772705AE240862EB82FC870115973BCE13EDE1F488A58EA3806ED040C9568CC2EF34CD7C9B -416E14E022D4EA4316C849C25795521CB778BF96693EFBE8FA283B356535443DF8C21D3BEA96 -57AD8F532F184594CEFA8EFABA8D5741FF7AE67D07BFD44F02D89F5C4E2C5A184FA611D617BE -003954BDF0AFC74F5F97826BC0D9DEEE696DB691F71A1B3D33AE7ACAE2E9F95ABA6C7CBBF700 -FAB3B925324CCD5DBB0293B545563C0A52E5CC3D60D43F2CA0FF6BE3B8CCB57B0CC4F700C198 -93A7B36F7A8F6D61C18E639FA95146B2A79F15AD3B08D726BF8A0594F1DF5C30A5D1FDC43C7F -9A7960D4E363D981A4E3F42F0DB207B02336A0743E6807C6CDBB7BEB092AAEB8A91BE1636908 -29FC897E5A0CA683445B3331DB8E56F3D1A26DFE931C60475DA69DDD84E23BC2AA688BDF545E -ADED366BD57798F0717B6CE7F6FD336139DCCF95FD800E527E611E43B9DC09459096C2ADE990 -1A1D5D378642463D3D440085317D8BDD05E2863841CDF50C1B0D3C82E86ABFF61E142BCD6DC2 -DB5315BCC9709A437BBE0C74F1C2733B56A3A3CFB92804EA203639C0D12472C12A7355C326F7 -D4869F5BFC7E6DA394B48E5D8B3ACB9D149C0D12C6F74288BF953B2C37AE4AFB9A48C30E6FAD -2FBBE899C98CACD534E2DCC5E90226A6F358843EE6CEC4DB9129F55BDDB703D2AD8745514455 -9F8A3380F5ABEDDF727636CFB35F07C594D02D7F1A024EF4D129D7A128855B8CC3DABAB0E2CF -182CFA6788921FB6B1CB16146ADF2AEF444DC22E6E4291AFA2A193D521E67825B33B888DEA2D -D6E0378E9B7D17A6FCE5B4AF73BE68CA5F50B39F65FADF8278CAAF83BFE0203F64FD6531259C -A0C5948D10481E4B1AC2A4CCB600497A31C70C5F898C5BA515B2D8AC50877396C8A34B4CC581 -CDB4F154F709352897F2C6114BBA2C5B5FD2004D4391ADE6076FF14BAF7B130DEBCD07925C36 -37EFA40C025856A3D03D8DA0F486917C461A78BF982D26412E31843FB8203F9F8B6287A9F44A -7B3E530BEAB6EEF132C59A0938E29AE3642815217C700E4F93DD2E75FAAB717329CEC07B5DCA -B4E98245C0342DB48E8172A080D9061A9BEFF36E9322D76AFCC6566BF78C0BD3E648CCDC23B0 -16C8C4249DC85E9D0BBD5BCD518DC5F97B9201F51FDBA717F4E44AC71D88D94DECD265ABBF53 -907696439E3876BC9388C67AC8E7CD8814C33B98D56B9BB8DC374C96B96CF0D2D90BD9365959 -5E1B16E97DA41BA5E6BD5D73F15B01C45CF8AA71B4C089E5A1A07843C4A517ED3D03349970FF -D1AF3819A4A8CFB7707A5B8DB27598F28D95569EC3353792F57B980C2C8701EC5434F224888B -7B86DB71EA6D910DDB061320F201E061BAC2B8E10B86D7A1B533B62E5B5FA59DDE7FE47C1BEF -7B1F432B9CE28C69BBC82800BC76732448757329FA905601B4A1D37AD006C70CB73210A9876C -7C009AB614C4F736CF293C7226CE158AE15438F54C5A96FEFA27F72798EBBF3FE55FBAA929CB -2E2B7D736DB0F325966C351F598566115022E155404954A0D7B2BFBCF4F59C6974699A1E2AD1 -B60A98B07669D08AD979BE3D9F861A9D9CB91313C31D67DAA681F6886E6D8EF3D44976359052 -B85DACD2F163B853E8C6913F4342D0B05283E639A52B70155619625BE086D5E53C6BB9744E4C -E78E2D172CE064CC84072C22EACEEC8D6F77109C4B0F5503B71479FD9A85FB15B8AA535A8655 -6486A50E5BB74037C261416E9982B0BACDC8DA0CB976FB378537DCA3F81EE6EA06902488363E -951B96A3130E6B6235B6FCDEE21F39B036C8F47F2E7CCE5E460E0991463718D06FFE8F7D87E3 -14D1348D8C871DB4639636BF8E5619AFA408E1C083A421A4C9736052FD8C7C0EBFA59E4698FF -AF225197F9145361590E5FCA66640F91719179D293911241D571577F627EEA5B81FCFBEBC586 -BCB872E6B058306409CA7EADCD0C535320637D735AE4CB540BDD0D3D749B667408795C04C23C -0C7364143001E26243C9396441EE06F20A8A6AC2F05B7931A6E13DCFC68D1BAC6ECE7EBB899B -F65197EB54C36D0A0F880D7090225AA8155E4545EF26CE6CD1FB220FA73C11B5F87DDCA0D3AC -1A923AF6DE5F4B2420C0FB669877A4EE73542E973BEE8CEFA58F6F3056CD13DFDB1557624483 -02721C3E802E0AF95E7F93699675ECC867C958D18B0F134A7907C03264A7CB17488AA088B099 -90F1AC946F56541C74ECE27246ABA8F138251F939DB9B0F68850624C2D55A249DEBF14CBE48E -C2FD3DA660FD4796F1EDE6041ABA326B525AB79207557E658596CC81E361007403B2CDE9BD41 -8C62A6FCA7AD901E1C01AE18953CE6ACAE8F20671E4A4FD9A8D1616C4C9507839AB84315049B -4BDD7824534CB41D6FA018FB7ABD31F8FDCA4ACB4091749F3C6651EFE93AB4AC080E47FBD491 -626C7274E7D0DF7CFE499F7CA24133D4CDED2C626CC5129427357ADAF7450949E1A3CBAC94B4 -620C4C1C93FB26576C2B594D568623C77F2A08F3ADDDE80BBA4201E36F7901146BE6CD10E14A -26F8B427203C230C347B2288D4123EAD72F38BB5B62BC90E36796A4689E8631AFEA19092BBC8 -C597AB67421D92D5D27FCFBE449A63F57BC0E6105B9768D2304079BD8558E472A3E4FEA4FE20 -EB8719C1372F8DC124DAB421970AC2183749DB4E568BDD44112D90B9DA219D5AF383FA5A6ECD -CDBF482F5D48412404B0B30F346F883B8F5EBE4F81E8EFDD72A30A2D1584805688C232D26772 -C9F72EB83EDBC50818C742781A4BC601DDBBB382E8E06F66B93A094E3E8B20E9C267B3708DAC -DB370559EBC302A0C5808333C42D611F6CF4B3081A4B47BBCED186DE1C6CEBD5B6509AF5CDDD -CB95171D3FD6083E9988289D0BF427A13D37571F1558E71295C69C205310FD8800C55823AB59 -F3ACA0628D0F2058705B0FE08CCAD85F0527595EA67F8E3B5D8F85E3437E7EBD99B0577476B8 -1AFBC5C6457C79E4A790612A09A4AB3849A011F384643FD1D6FC03839919F8E59D90D68DAD06 -B7229F32D00F99B504485C0A3BCBD9F659BE7637B80199C3B22C60E20C432D9DEB0A1052574E -C07B2288F3F5D46A113228AEC71AF587461FCE98837D83350029BC15D4FE7FF0158AED53E043 -08F609F83D82BC779FC7B64B29607029A8BF4D6B90799506697631D1D7FE6130F69442677395 -CB8B593EF8E5A1BEF218C124F762F15F1CC24871AA23DF8B4015D02982C6AA9B7A9E1583AF97 -ECE43536D788EBBFC6787CA7D6D4C11FB7CC2BFE3E96EB5261E9AF3C9B374D73679B5C9EA026 -633931CB1EE20F3013585E1AFBA293DB55DF62D145A1C0620D2E3BF35304F47704CA4AB2A320 -FA4160128552331955801885DD2A8EBD843952E32ADE7C08EF02499A9EB93CA78D83C895BF01 -91D3CC4C815978AA5D3C7153A1B221A2303D53098095A33F7410FE00A5E5D8D01620F1A54657 -56313E4A393ADB67599B98442B1E1F0D258851A52E636BBC5C5F96CD3FECCBB36100722407ED -840CC2ACDF40D7EBF33DD484BD325DC893582B1CB937DDB505BF1B83270EFBF84F99203C746A -18621FCEA034C5C72C087F911146C775BEDF31FEB52183E307EFF8AFFBF7E369B85BB33944CD -A5EEAFC975CFA2C3DB2E94A227A4C88E3474E1B4108A0D1F868BF89E94BA97646FD995B1E2BC -76C04CEA127335272E7A0506DCA85ED8C1C4AB2B838B62D9FB32471B723A968A445D337907C6 -9A631349126BB63B8259F5BF5932352BB445A0180F547A456DDAD37D07E41AA680C61C4BFBE4 -49EF8D255A569253848C019A8B727189F11E9E60A5A690895AF50B3AC2B15DB2DC33012F6EAC -8848BF27FC93F240AC736F4F4835D32BE58D3A3DB48E00C61AF279A4E5DF0984C36A7122989D -151CF47105F80AD9937504DAE6EBC5393B03999EF7882F0C91BBABCCD7E797950B2E78B315DB -E2328B3A70965A47AF9F54627258CE248CC69C5CEC682CCE5B697C4CEC698C1F1F9219D9CCEC -14B9561248F4859474D611522E42430E9F9D379837056264C5ED203A6253ED0050BDB15B7FE7 -BC1EB6ED74605554C294336C06B1587D448BE30614ECCADF4981DC0A45B3AC3D9AE882977526 -4BC51AE9934E8E8228C8CAF5D75C57049BC452745268E1E2DB88382793C4FBEBB07738553E37 -485D5ECC2E3EFAD46CF7B20E082A22FA3E1F3CFD2E6D72C10FF61DDB08C18BDC620573E40BA2 -FECC91E6F56BB8A10F9834240262EAE14D1BB3E5E2A056D7A0DD048F88BCB54D02C0CF93C999 -8FF51B3D09BFFB2093C19AF2846F8001A363A1FB32C65594AD2AB3528E7F851C89C4F2428B75 -736A0B10D5E0A43AC4EF1A886DFE6345D5E4C925F9A32CF2489CED46E29BDD42112E8DF58F8D -BE748E7FEA9D6A32FF6D53076BCA828F803B0322A1A3086D125AED413502A65CA2AD5C2BFDC4 -46E8217D424B6BF42ECE04D6EF8F0A76FD324CCEC6AA54D01833F0D04D1B0FA3A8C9727EB15E -04FC32A92E14D21F191CD1FED3165AFE56BF3C26CCE8A082988B8F700570B484D6F9687D4A3D -06FEDDB757DF9C90AD3BA3A1DC3CFA7F1252E4E71AC3B2D7EED7880000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 - -cleartomark -{restore}if - - -%%EndFont -%%BeginFont: CMCSC10 -%!PS-AdobeFont-1.0: CMCSC10 003.002 -%%Title: CMCSC10 -%Version: 003.002 -%%CreationDate: Mon Jul 13 16:17:00 2009 -%%Creator: David M. Jones -%Copyright: Copyright (c) 1997, 2009 American Mathematical Society -%Copyright: (), with Reserved Font Name CMCSC10. -% This Font Software is licensed under the SIL Open Font License, Version 1.1. -% This license is in the accompanying file OFL.txt, and is also -% available with a FAQ at: http://scripts.sil.org/OFL. -%%EndComments - -FontDirectory/CMCSC10 known{/CMCSC10 findfont dup/UniqueID known{dup -/UniqueID get 5087402 eq exch/FontType get 1 eq and}{pop false}ifelse -{save true}{false}ifelse}{false}ifelse -11 dict begin -/FontType 1 def -/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def -/FontName /CMCSC10 def -/FontBBox {14 -250 1077 750 }readonly def -/UniqueID 5087402 def -/PaintType 0 def -/FontInfo 10 dict dup begin - /version (003.002) readonly def - /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMCSC10.) readonly def - /FullName (CMCSC10) readonly def - /FamilyName (Computer Modern) readonly def - /Weight (Medium) readonly def - /ItalicAngle 0 def - /isFixedPitch false def - /UnderlinePosition -100 def - /UnderlineThickness 50 def - /ascent 750 def -end readonly def -/Encoding 256 array - 0 1 255 { 1 index exch /.notdef put} for -dup 0 /Gamma put -dup 1 /Delta put -dup 2 /Theta put -dup 3 /Lambda put -dup 4 /Xi put -dup 5 /Pi put -dup 6 /Sigma put -dup 7 /Upsilon put -dup 8 /Phi put -dup 9 /Psi put -dup 10 /Omega put -dup 11 /arrowup put -dup 12 /arrowdown put -dup 13 /quotesingle put -dup 14 /exclamdown put -dup 15 /questiondown put -dup 16 /dotlessi put -dup 17 /dotlessj put -dup 18 /grave put -dup 19 /acute put -dup 20 /caron put -dup 21 /breve put -dup 22 /macron put -dup 23 /ring put -dup 24 /cedilla put -dup 25 /germandbls put -dup 26 /ae put -dup 27 /oe put -dup 28 /oslash put -dup 29 /AE put -dup 30 /OE put -dup 31 /Oslash put -dup 32 /suppress put -dup 33 /exclam put -dup 34 /quotedblright put -dup 35 /numbersign put -dup 36 /dollar put -dup 37 /percent put -dup 38 /ampersand put -dup 39 /quoteright put -dup 40 /parenleft put -dup 41 /parenright put -dup 42 /asterisk put -dup 43 /plus put -dup 44 /comma put -dup 45 /hyphen put -dup 46 /period put -dup 47 /slash put -dup 48 /zero put -dup 49 /one put -dup 50 /two put -dup 51 /three put -dup 52 /four put -dup 53 /five put -dup 54 /six put -dup 55 /seven put -dup 56 /eight put -dup 57 /nine put -dup 58 /colon put -dup 59 /semicolon put -dup 60 /less put -dup 61 /equal put -dup 62 /greater put -dup 63 /question put -dup 64 /at put -dup 65 /A put -dup 66 /B put -dup 67 /C put -dup 68 /D put -dup 69 /E put -dup 70 /F put -dup 71 /G put -dup 72 /H put -dup 73 /I put -dup 74 /J put -dup 75 /K put -dup 76 /L put -dup 77 /M put -dup 78 /N put -dup 79 /O put -dup 80 /P put -dup 81 /Q put -dup 82 /R put -dup 83 /S put -dup 84 /T put -dup 85 /U put -dup 86 /V put -dup 87 /W put -dup 88 /X put -dup 89 /Y put -dup 90 /Z put -dup 91 /bracketleft put -dup 92 /quotedblleft put -dup 93 /bracketright put -dup 94 /circumflex put -dup 95 /dotaccent put -dup 96 /quoteleft put -dup 97 /a put -dup 98 /b put -dup 99 /c put -dup 100 /d put -dup 101 /e put -dup 102 /f put -dup 103 /g put -dup 104 /h put -dup 105 /i put -dup 106 /j put -dup 107 /k put -dup 108 /l put -dup 109 /m put -dup 110 /n put -dup 111 /o put -dup 112 /p put -dup 113 /q put -dup 114 /r put -dup 115 /s put -dup 116 /t put -dup 117 /u put -dup 118 /v put -dup 119 /w put -dup 120 /x put -dup 121 /y put -dup 122 /z put -dup 123 /endash put -dup 124 /emdash put -dup 125 /hungarumlaut put -dup 126 /tilde put -dup 127 /dieresis put -dup 128 /suppress put -dup 160 /space put -dup 161 /Gamma put -dup 162 /Delta put -dup 163 /Theta put -dup 164 /Lambda put -dup 165 /Xi put -dup 166 /Pi put -dup 167 /Sigma put -dup 168 /Upsilon put -dup 169 /Phi put -dup 170 /Psi put -dup 171 /sfthyphen put -dup 172 /nbspace put -dup 173 /Omega put -dup 174 /arrowup put -dup 175 /arrowdown put -dup 176 /quotesingle put -dup 177 /exclamdown put -dup 178 /questiondown put -dup 179 /dotlessi put -dup 180 /dotlessj put -dup 181 /grave put -dup 182 /acute put -dup 183 /caron put -dup 184 /breve put -dup 185 /macron put -dup 186 /ring put -dup 187 /cedilla put -dup 188 /germandbls put -dup 189 /ae put -dup 190 /oe put -dup 191 /oslash put -dup 192 /AE put -dup 193 /OE put -dup 194 /Oslash put -dup 195 /suppress put -dup 196 /dieresis put -readonly def -currentdict end -currentfile eexec - -D9D66F633B846AB284BCF8B0411B772DE5CE3C05EF98F858322DCEA45E0874C545D25FE19253 -9D9CDA4BAA46D9C431465E6ABF4E4271F89EDED7F37BE4B31FB47934F62D1F46E8671F6290D6 -FFF601D4937BF71C22D60FB800A15796421E3AA772C500501D8B10C0093F6467C553250F7C27 -B2C3D893772614A846374A85BC4EBEC0B0A89C4C161C3956ECE25274B962C854E535F418279F -E26D8F83E38C5C89974E9A224B3CBEF90A9277AF10E0C7CAC8DC11C41DC18B814A7682E5F024 -867411453BC81C443407AF41AF8A831A85A700CFC65E2181BB89566A9BDEC70EB4F2048A6EB6 -31F05C014D372103E37FC3FA317EBC9973565A638403DA02E48B7D31CFF6C241DC5CDB470561 -002FF46437C06EF93BC99352DF04393C661FFFBF4BA20723ABD9B3E9CA9E63BA57EFDBAE6846 -55CBBDBA15ADAE43E1A2C98A3CF060A3D16AF8FE3A49B50A24C20EEED716E49AF6013D4D38CD -9CC41A91C17E4D04D79D567E1EF49110AA9C34464E95D81A730ECEB2C9AF38FBA6B45E253288 -438B4CB3DC75B3A906D4357293BA41E59C35223A6C9CBD6FF5FC90C2D07CBB376C7320FF435A -6251822BFCBB612CE630EDF826C37E95F541C21B93FCE10D8F3CA4218B9A8FE8CE77130C4DC5 -C8AB724A04CD26A3B5ABCF422522BD6D6C4CDA508285E30FD30AA8083552F15B367050B62297 -3DDD1C6BA6E6338B00AE1F998EBBEE6E2AEF1AC1EF1B649AA82538290E0C1251399B2E1A73DB -672EA580B28F76F4A75CA47FE3940832A522A3CCE35ACF62988E63E67DD2408E2C22B0D6A503 -F1F01C1B3AA9BF6EA45DD6AD75F1E02C72ED44A3869543CE54C1F08C769EAED10ABE0BA8E186 -159623D3F35ED06D889C947CD18EE443260ED7A61AA08B09B6E1A246EE8EA6B89685AD1FE94F -7BD87F4F23EE64789BB62814B375861B04B6179673DDC6F438806BECB57C84EF2A3B24A40862 -AABEFDBBF3A70029AA2B0E315629159A8ECE66F23351D410AE2CFC9C53820326B85CE3A41285 -DF0C48600E4F9723D0BBF9F2020B3AF468311496DC38C9165C4E4DFF145F22F8A63A0C30B09A -654A5A9CA43968A524B7F4D204C06F82E2FB03DA74BFE2A9CD06B85644BFC3C4C8AFEB5F1DA1 -2E63B30B00CB96692424239CD18EEA1E599C53C8F4388F550C92F7667C151D9DD13F3A9B7557 -50CE577F5C0D4B222422F5EB76978216AD3C28D3357F7CC822736EDA22A680476B333D94CBF6 -E6E600318255524B8664A01F5E73BC2F4473E0F30FCFC7E92AF98F88317E513A06DC10EBA262 -4084DA48174C2B3510872580CD6E1C2ABE2CF18327E3DC660793DC74A647F063C82B47A628E9 -F042B2B7A1BD410FF4E2203A37FA8CEFEE099369FB143C7A7B217917CA7A24ADD0096DC4B063 -84223FC9C78E8F1C4B9A865EB3712378C72C04C594E91E9803F58C078344F12949E8F85C850D -6C561CCA7896675CF7FE38D4C8C3BB34AFCB9F99B893F6242C3000E8AFC0D9D237C1E271BDFE -691D167760080E304560DB47245C644A2A1154A5FDA041B1BAB29F68CD57DBB69B19AD1BC6F8 -9DEB9278E355B8FC62150C23BB7AC459F710077F199D258EA80DB405A25102A1F9C38E45D206 -784A78395FA7CDC6BFC51876C81B7C189129D7BD16237F605E5C1CFC6BE98A6C2D6BDC125491 -4B571CC03FBF7545BE86E9956C9CF26FCFE4B9A4FB3D0D2B22DC218D475B11D7822C1BA6316D -96B0B1C79A7CCADA5FBC457AE7B81F01E50840B337FFEEE5F7F69D8D060427F86F2495AE1C3F -6EA62725106ADEEE2955EDBB30A1C9F4AAF2F8237F873CF8E858133F415502EF51359C2FF9A0 -058330C2A6DB37F7BEA1C7E7EDC595193FC1F9F943035135FD8EC2B7E8AAB4BE2E3EAFC6DC6A -E2F75EACCD23F6BDE828452FDEDBCBDAB39CCA496219BC5249BE52C39DC98110D11055274548 -C8EC389F138BCE2F260AB6F49E0980CD130593CB2AD990F061476ED0B7525DFEF225DBE5E72A -5E2C0C2C9E29DED782B8A7B6BBCF6E9766124288DECCBAAC20D75A5FADEA15DE29DD60802AB0 -C7900F664F19DCB6154AEA1633376B566061FE6C1080D2BF7B74E3BD59137BF9D8DE51991E84 -7F0DFEB34E51CC2019917D24FD7669D812E163670C7D91372750020D72AA7B0965F62AE668DB -280B3B8C887CDB46EE0B1B129380BF76BFD659ACEB92B5364165B684021C6468BD5862F130A2 -0492AFD424A0AC02A200F59B25FB4D1718F129554C47F379EBFF2BDCC1CB2FAC1CB289DBC3E0 -76B0C56DD99742C1CF0BCFBC39CAE8D741C31E47D6CB2F8668FA01FBF487DCBD903AC144C67E -11C454570DFFBA539C28C0C0AAA9FB8017051830153D0C53BAF826A4B51EA65F72074F111CC5 -982CF377A48888F789D08C7216A364BC9C1CFA1B85E6D025E69C3CE889D50818AADF80BB9639 -C9D506B807EA6C94714EE47254790628F44E3C5D8C20944E4AE6024EDC6FA8219BC3E26C5E17 -08D61ED34D7EFD76DA7D91073EA529CE74650019802BE4EF5CE2C5A543D55EA063282266BB78 -4A42EF0E794564BF784AE786CCE04CF0BC6073F3CC3B52918C2599D584220D21C8B96A07A5C9 -54A7E9E640518ECDABDE6E2EE9B85D53463A0AA07A20932EF29E97AF77F147692EFBDA2EB385 -44738BE9C1652CB6796BC50BF1B3F0A60C7C9469153749D74EB31076BEC5998C3842462F033E -3CB44B6E778BD9E14046234C03A6C18E26F7AB9CE96040D382217169CFD9A29CF4556EDA7BA7 -6B920F6F27307B46C174A7202201169508C735DB19D4D89EB0206F4FD67A8B6C2C27AA0456A2 -CAA4E1CECED0E8B2E6E9553C609D02651A7A5A2448375B1C5213734439D934AEDBB5DF8E8969 -F718F2930B91367D5C726D0574DC22FC5560B8AFC0EFFC77089E62E80E6BAD447656B8BB43AE -029CF91F80D43C3550B378EC68906B09A6454EBC7966B066B7258648E684D4F00E6292F9DE0C -BEA61B866B83DF4E321A301D06DEC171C95524FC2FFB6EBBAC19818DD29094D89DA2637C9E7F -D847390A3855E2313AB217FB6DFD1729CDA6DC8DE85C9DDB20CCE685213623C491E6EB0308CB -9BD480DB516F404FEBF60F2C4432E0E8419BAC78B5280AE90591C9997C9DB935FD64203C5B3E -F93C060284C3274E8242BE629B96EAFFA886D34979146342761007CBBFC78018DFBA38D55636 -34146E94FD94772FDE288CB49634364CBD687423CFD3262F108B9C5D9A71A3BC21F60754C549 -C2C5B95C23DBE0D9B6918EA4D6DBC693107D3101E8D68FD6C8036766DE26DC422A0EFDED57DC -B161D39B12C0C37FFE6004E3A7E37B1E25BCF482F12A93BA85CFA56D56379126E325BDEFE08C -D83AB47F0979DB8939407443F7ABE9D52CAE7600176825E9C0DC22ECBF11A18F21C59823CC45 -770274F9D3E24282A487E1900A6F54B4A6B511809F606AD0BF8440DA8E16FB9280FC0E81ABD3 -487802D38215E0C5C741FA3242D77601251431C671E8B1EEE8197839B845F4D9CDD823ED0A89 -1593BDBFE29488CFB58FE7DB6B65BBBB8F6D747DDAD90C872F48A3DB3F0773F775E29D2A0F2B -CF5778A2533B6AA66AABC7D999355B047104A8A7DABB2ABD31A23EE03A87025ACFCA9C1DDBAC -1EBC02A5E5CFFBA6116538BD6A30523E6494F48F30CDA6AE470B713FF970E905936980AD5CC6 -6DFE433A66AAF0310072B195ABE57AFD5307004E7B2C6A251BBDCAB86D7A1A63B5D3C79AB0EB -787CC4E2F6153E5B77C66FC94D81E804A5A1FB949CC0880F12280B444CA8FA613D36FEFC5387 -39B67B15877BD3079C12133721F5428F148F36667914EA0B91DB3A58843E700B82857E0C57CB -E3970CE645B09692F465BE578CE56EA0EAA6D824102B3001C62C575B0B42742323878960B9CE -F44C5ED4940250447ECC3536BA135EBA8AA278FB3E2F3D65887407107AEB96A5E643CC38BB9B -7C79D7C4DF60C50CD2BA5BB02DCEA78B7E1F538F9EA74035F86E66A104B6B1B1C07F5175D072 -E1C248F3577BECDA8F3D108CBFD037440E1F4B11B92FA2F72FE771C7F27B4501541ED32D21BF -04FADC00B4A7208E61803146CC89306C00E523A03A84CD9EC15F16DB99E343D19B3FB9C6AD52 -E15F40D9F9C01DF22411DBED84FFDFD3CF92FB6165374FCBA541CAE583A9827D214EBD5C717B -C16BD0EE02E4A3F826DA8AA1ADD90189FAF85EAC52F1BED032E2379888B9087C97870DDFA7AA -7F0234CE238E5C99F8B9FFE169571327D4771519AFFA527A2347A7F41654FD492D28AE1E9425 -B239A3CE98116DE83651BF947085B523156B1629FEA828190EA00F46AE25F76BD63F879EEB6D -C4C0ED03887F45C4F2F8CDED6E5079B900FDBBB04C001B7D04B5EFB94C4817C05A4964E68DFA -C0BFB89B19E6D87FE4496D3EB3C086996D50FA1DBDCAA1E794BF728798EF96C7B74EB3853BFC -0C45142066260A85C09B5A5F7F37BCA72C6EC6F63E8E32CB27F30CAEB820A1F7BAB92B5596FE -5B1BA2E3B949065DC4991F098FDB0A8A9E546F5C4844499A86EF260B5EF929948304C6D8E5A1 -A3B9F41C76BE7C5BF0CE931EC8A1367EC167E68B88CEEA21C00FABA4E3CE8C4A117D494D0F82 -B7BBB5C34C5C754F65A1D791DF550005775E7E4476573CAF59DA0D4036135C34A5AE55C11D3D -7FD25FE51BA86CA8864FDB41B7347D0ABA8C70BD7A48C5C72CB114E479BE36FCD3FEB315CD7C -237DD2BC2863FB1B214503A96D7F82A36CE2FFDB728DED7677B2C926579B074434F59FFEA0CB -C99297065A89DAF81127EDD444ACE8D58F17623BADD2FFDB763A053012F4265293874F36B7F5 -B48D68FBA52FEFFB17345CE1A595062B0D6ADDF3B5238D67EE52A211FA990C7E678D4A13BC52 -75804A0B1965DC49A54E2CD96FE179FA334E34B9DA476696ACFFB2160F8AD45604E51494761D -C2184018E99460ADB165110C4DDBF7AF9E76E9AB2A653BE47553550C80295F7AFF008C356DF0 -21D28B8DF95CE859E1B94879824945DEEDE9D1BD90652EE7C1C57E7C444924F3E4A945539C4F -E7B1C1FE7EBD0E005C7188078BE16FD26001708CD98F9D59F638D8E2C21A72DA8AE00E7FB022 -0C51A9312BFF95F716CABE2967A6D8667C14EFDCD30EE04D87E7B0A0A5E83B81FD4A4F0B9C58 -930BDC097736FE8BEB6A7FB6EF88B49CA6A91387D4AD80CBA7C5A9B3BE02352DAA123AC165A6 -9763C37864909BCBBAA2CA81BB34AF52D0F9C203CE748276052159300D851D9FBC73E22A32C6 -C3A47C8478603389BF852C2342D92DAFA82E0EED593E3E666BD8554C610753E0DFBC02BF44E1 -EE8A9B897719882926D860222AA9CC6F04F1A149BD1BE2B14A66421149EBC60AD02CF6D9A65A -C84A41C02EF7DFB70E75C5F51266A7F5ECDD2C412E94623C5E0E95F9CFF6DEC69B5294682E60 -65F39EB434CFE6B0A5EFB913850B8320E4407DAB555EAA51BC92EF34B49ADAE54980DB221A0A -F360EC3F79E59D074D570AE07AC69D4EFC54463B0DD25D6946E9A91F468149032718BB050213 -564D6111E61587EA14AD263564E72A4DA92EB8B1EE3CF064A8B73CDD356552A86DCA02A020A1 -695208B140BC1DAB8DD608D8FC976EF3DAF98CE00D91EFE930074368736B2DC19E45DFCEC94E -1BBDA941925982F544E04E7F6C4F5134F3D203788DA11CBAECA1A0AF3BAA1DDA3D8539F59288 -001B553AFC938A176352113C78FB8BDC18EADF70B1D4CEE71F71743C50527BC9D0A7E9D12BD2 -5EEE940981F167A64BA10DDC002327D8B414EC3937CDDAEDC5FA77ACEC0ABDB4BAFD8DB86E77 -62985BB5F730D9E07E7B01AC234E892531C107C637C0A2C3A8F38756D5E98FD180AA82E95E4C -241B6B55FC8304F9D93E4536A393338550CDFFBEFCED1CAE42CDD8D44C7E4262E0DEFF5B77F4 -0F731390F2C3E16AC846CE67E3F6606ABE1B1E1B439C867A773F82A6DA325F5EBA3469A1FC79 -8213E26DBD8911B15EFEA4AFAE8B9D876C847AEFAC0F6A48C006904F98554782AAE4511ED545 -3EBE75CE983AA949A9A71BFC13A4E732BC67A870D349AA291EA4E775669730B6C2449E629A4A -0297104004F4AC6709EE91C101AD7BCACAC6B06B6EEFD397ADB2C12D8392DFD23611A9A5753E -19C5C856E84F1390D426ED06FA5C525F2F0A83D2F3F30FDE2EA3EC537FF38E5E69CCF1580BE2 -D7EAC0B2C0F41FCAAAE2A3E76416767647E455BF0EBB6E35BA91988D1F0F8C9E81766F40ABF7 -7409F7342B378406734D462FF168537B586D15C1B7EA0BD5C4975E6B51ABA36652F10C57477A -30DABD7E6DA3810DE175A06ABBBE237648DAC40426268958058AE1DAC62A92DE92017FEE410C -CDD282773562DE188704746C01023F589D59D83EB386D4536CE073FC67356960897E4F8BA482 -676711858ADF246E5B34670BC5B85B3D70FAD010BF13FCE42A297E9FC37DDF1E1C5BD4B9B4D0 -10FF6B0B5F7E4984A1CA2FBFB49C4A3B23344B4B4D959C4D981B1DAB33CE0C41C6F474DBB3EA -F06CB7EB42903E486933839C6889E40F0457832257A55817829851A97643F75DE9F136F15381 -8DAA9984F17BC3FE144E5E8C2609C0B248DBE38F27F3CCE5DA5CB990442AFD61F6EFAEE67EE0 -5C225BB539ED42B958B042509DAA707CE96E71CCBB43885888A594785E5D6FBF5C63DDE688F4 -E409CEFC4B54A20667C961644851CD0C9CCB93DCCAA20223E76477DDB35642E03DB6C9FCC324 -C5663FEC81D913CF613B0D10AF6BF103709D786AD6C89A4D9ED96DCF206E04382FD968FF7633 -9D879D0049C40EAA95591DABB317BB593416B056C3782A21FDD0B2B2A8EE3AE58FFE90636AF3 -BD3F082CE2618F6B28D88ECBE209C5EA21D725FE206C538F0727FC1C7020393C950A256063E6 -6FD54A9ECF85D87989DC89DF6E318D512369F47D63381A644E2396867428F6188B8C051970F6 -5C3E612778CEF1FA020C58BAEB685226A3ED939FFE3E86F78AD3C1866D8ADD4FE0519C28E839 -2A7F8ECDE776F92540AE04660AA3F1F90BDF9DFA159A039FB95BDE63DA63EE35680B855DF3C2 -02A99BFCDE92AC0729A55A86D00976FEEC60E7241F3446B19820B951EC272ED01AF7F81CFF7D -F47DC0CADE59E4D633A5F7C1C7BE8535C52D07E75B127FB82199F3349B1FF478F774166CF933 -F49DD0AFC57D1178CE64EA98A4966344FCDA7E8B47BE898A4B42AAB7F3F2BA2E00834D317A78 -8C7DD9E7F7F1D055362E760BA703D544A11A63E5B7A427154E03DE019103367E1885DF3EE934 -8E6EF2AD70635DA71053704AC4038663343AC9BBC4B99A4DFD5F48986DA9CF44B300FBFE6765 -A8B6C3C462D0900CCD091152DD0B76C366B16ADD394B60544411037256C223C4CFDA0D6BB99D -94A8700952A00ED93129924AB8572169E06F9C7EE5CB46F0E4D41F1CE347A15636C89614D036 -55D9D3E1F4FE2FF9B60E97C648ED0A3DF7B208B25FE8BA16A0FF3C36357D7969DA2FE2471430 -18F5202F2AEBC437ADCAD7D64C898491F2315E5E7756A9FB716B66F5F970CDBFD2D67F47E5FB -3094C43B2AC52BC50E9DFC57078CDADD3803F2BB4A72677393FD36807F51A6B4EEFD517D4B94 -3552461504ADE980AD3DA6E7EC13DFCC1844CDCB61A2C10D2A000EB259EA771832C23BF8FFEF -89F43B3199F88833654020DC0B703003E03835F7D6D58049367CD4FE202C46467182F7EF56BF -4B930FB49E5FF2C89E29AC95B2E7445F8125603BE3538C93CEE4707412202DABAA33A0DB32C3 -7A71F03CC63D8C6637ABC4E94B5A8254664055A8394728B0DA3AFDA640399E63DABF4776716A -A0DB3D1CCC9ADB7FEC8D77BDD50A5EDF06BE50D33C5EC29843731AC2F8403C657B7C5B9017E6 -701ED72D9A94F1C83DF199B48A1C20E7B77854DA4B4B05AB928DC1B0DF1E3255C881D652964F -31FD690082FA02D1E2A4260E5270EF79967750DCBF7EEF9B9448984B66D0AE83D7F31DA878D2 -0968D88F8038E776781B0672E18A012390DF6D9D25468C1EC1B6C4D0FA2C6E35B7954447C52E -96937FEABC908746DD48BCAF67335C613727E155AED84989E78792EC3F51E618CD559F65B172 -8DFE59F750EF7F6A7B729380BEF8AAE755BF9736395C609B315ACC4F49566EDF37EE388C76C6 -3C35637CF0AB9DFC59772BA96C4758629650F5FB9B42ACAD3609B12A6FE6231E3C48243AA297 -85E3852553E5211590AF74080F00418761B999C45345ED0B16F9453BBE8FD563B46384274DF5 -FCD8601FA561B0A79B134F530C5CE89BCAE148803B0A0A40046AB9306578E3F6108BA2C364A9 -7378970975561A4D85AF0220FE72240F197CF299DE44663FF5DCC858145157A5465ACD50C269 -F967F3ED0BE266E2D9707B7DCB885D6B72C0B35FA773ED99C2528933F0D4EA88D6AC4187E1B4 -DD119EBE7E37AC81F9DF993A8CE6C799AC0D70D2DA0931390A12B854F1DAE15B0F0201A12FF1 -5BD010771FC32ED7CF56AB06140CA983FF91F8441EF3DADCBD623C583741356BC5A2380B4C95 -188629BDEA477FACAB7056516B9769A31460860E2779C1D86B1AFEA523A21B250F0E798C164A -059D9AEE28C7CF7AD74A0A56416637EB9809308173244D83C443965718E75401AEEC87368C46 -80F8F526ADCA7F96FD1220119DAFB19D6A9DE12A5655014B26DBFA0AC4D2824C807F00A9043B -5FC25BAB9639EC5276C0F1CAB1A1A0765A78592FF9E3010A95AC9261D30DEA8F91CAF5C555ED -069AC7A5CA90C476C6C7BEB4FC61282658AAC0425BB388754AE1816028CA38F9B9A07F8F3CF0 -685454DDE1FE1488DA51896E3066C7385FA9BE55FCCA6FB800183913DB33B4D5BD7CF659C943 -4F7114DD6B7706EC735DF255C2A71183B3DA3C296D592DA11AFBBB0F4755E85DE7D6C89FB41F -115C81E8894F614F2D7FF4DD8DBC0FCDB5AD7AA34F93D1D56C717D3F83DC12698ABCB0A77441 -1823F23F527DA1D587CDADDF9D8CF9752463E3291529FE936CBDA063299642856624131ADFDF -FED6232965624BC8798E3ACFA42954D090C00BB0C1FD12BB7C5F63153094ED462A98F27666D4 -37984B94694784A64D85E062626042894D2B90CCC2CD52521CB0D366148180D040AAB0F28761 -F59D8BD34AB8D7BCC416508A770986B96BE929DAB44D0AD3E58D62041426D9030CE86B3C3D43 -D4B7F9693548FFB34611F3219D5077CB51EE81A9D105B7750E3000AEA0BB7DDBA9A987A77AB1 -DF7CB4B9A74C8B499ADFE24E29655E487EEAB7641CBC6A85944D53B8EFF347467D727EDDC878 -81A72D922116D291C3B026442A481A822DF9B5C2FF7D809AE36CD5767B0E81393AA87B79746D -DBF14D5987499067B5B8C281C21CBE8D589CF50BA27C5A814EB51D2A74E12A72DA5238794D8D -E55F48CC27D379836764AFED41CDD9550DD11F805C58D83420F4B02BD74264A8EDAE2F21FB94 -C2D83DB81AF082DC733CA4DD94B3E1E8BE65922315729DDF37AA7585D1B5855E4A02397475E3 -2C011D0C72816A37A90C81CD3942A7CEFF6928C514C6AFA64961B5AE46E3418DBCA54D391E2B -0875F4818E597F1A5705F4332BDF6B56218E7F536581362A02A633FF668EBB8778FBC2CB5FEC -7C8C36433B281DB32EC5C1F4621DB8827664041EF017494238AFFE3A78426A4303FE1EAA546E -897DEA51417801CE7A208880B7D8908C67C6FB7F80DC5B4613CF17910D9D33AA411597CD25BF -308818D2450B77D907055650B89FDE749D7AE19BF2E13A3F9D6950AC490A265E06B895687A3F -0DEA8BB6634AD0DABDF70A76FD4D2E393B52E5576389ABC00A8BE8A08FCA3EA1EAA65BC6A2A1 -1F3877AB60FBF1A66E12855344246859499FB0720705D18F22D648B395CC827D7BEC5D5306AE -B354581A46B491759F8740E9ECBD31D0634AAE7E45376CAF8BD6EEF476735C7D360D25162581 -CC15E0517D6B6976B9321AC32DA2FC8A11D58781F85731D960259DE496ACFA943537E0407DAA -C0AA2542FC1866ABB7380271ECCD9C4F9A20A97F7E61E7661DA1286D8B5DB86E03138F32EAD3 -966EE3C2BFC5B275729DB0192043F5B716E44F012B89D2F3DB6D1DCFDED8A8B53E1B592E4574 -A37CB9A9B1E72092109E8947E5EC8C2EF8E5F422C3C27FC74F229B1658A300AD4D07E645ADFE -E1A266D1B657EFB78DB2E660F8D7823747DF7CC283F5C5991F29DBFAB7419DE2E36C44DAD5B7 -3BDED61BA7CE912EB54916335FD28AEE1DF6DB88B80C38A8C80FF046F880580C5EC642B758A1 -8C1D4E977146BA3DBE7DD73E3254BD0D12D06B920CCF9ED0C34A9E775741E280311FB6537CD1 -0ED5D98031A290361144079C42C5DF4B0FF314B8C504C507C527FEB4D6CBF363D6AC2E9BCB3D -01544D3127147DA3C4AB4E682D60466512BF8135CFDFACFA9BD61CFB8B45B09FB65B44E838E6 -514C97E3CE79435B7FC3463FC8421A830E97F0AD7CE9282E23178C52AC9AD826E3E26CB7C18B -92DBCF7553EC161A2613B15D9106D63E655610A7BEC0BB9AF57979D22DFFA69CD3C8A706CF21 -D5DF0D64A78486690274BD567E5B2B0C25CF9B6DA99CE82C698D4CF0DDAA8C4536F912FD44B7 -C31669F4C261E06BA90346F5C56D884C62EBEAD83266A1D07A71D7FE7C4F8DAA041FCABB45F7 -F9B1BAAAF4B9AD814D3E051002BA4D1088BEC8B72B46F55524BE4C089FDAC55D07DE76A7D7C1 -4E6275FD8D43A3098CD64D337E206D12F2A0786896B1C0D425D8C33E3999486DF944ADC045B0 -3B642F9FBC56998CC5160847B82E65B42E978F9D6A0FD7F937349B188B96E2DB8848752134B8 -D2806C1663C7EC284F1F7AFB574ADC36677990EA2E0C63A7B8A95933E7854EAD8FE50AA49F25 -B4D6510FE65425738A964B08C7E6760FA87EFB7683D62E18D34135AB9055A9B1E05C177F4878 -F526736F0386CF8E59E28F94D9FA38B86EE391894D0571D5D9D0C6EAC5219B20503119D1CFFF -8B4BF3CD9A00B7B345E789502D29A243C2C0A2857F978944ADCA23CCCE4F5D0B8BDEA5EA9AC1 -2573C88F74509FA0CDBB551C46A5759D88D334E32D2F6292A0E860C33F8A7E38129019BF411E -4B89340F8B2E18E7773F192DF8FE57E1FC14CB9C5327E6E7ED9931B0DB795F88D0ACA24D3C9A -95ADDC5AE805206A48EA14E72D33B6F4A58CF00C2A29F963F92EE4A21D2AB2C0798F32F61344 -25AFB3CEBB64144EDBE038E7905CA2CA4B7C9CBF27E97C249362C3D66798FDC4ACA50BE36FCA -8B51BF53FDF9C75F006E950F7C934576534BCC41B38D69940F56FE08EC9CB9BCEFABC16943A1 -406B027B0E67F03FFF1253AAA6A198F235D26D82F87FEA64D56A52BB620D29CDBB08258FC35A -C43B1C2438BBF457D4426992C9CF082C249EC90BAD5B323A2EE5EF6F46D64F364F92DE349B8E -4D5D5AFAAFF9C812F170CB6A7865AAC72A5ACF02D6B080B6E2379150398C2163F23826E60BBE -DEB5E365AD95D927C826BC666AD0DC1C4DDDC64993C5514A8B854A0E7231A2244A7E1562B950 -093DDF1A8FD787D2DB6C7D78AE6B28EFCAC105078060A4E8F19DAA4543F71F6236A237C34B4E -94ABF3B4AA0574150E8617597C7D32F3FEC01C99C3060334800EB6578812E7CE583FD73A055E -D87B1BAE29EC5B80BB5CED3B587E0D5FB08BD934B7749655AFE53065F759DAF8D47E245A6640 -BB57B55552792947B539313F11DC39FEFAE5E8E68975D223884AB0CFF0241D945684FB716537 -4505C966B799302D4AB83E8437E0FCF395421774AB24D098E46AF6C8D5B3445832E46D1D1EC2 -FF218EB64959D0933CD37AFAEC4384061D2DFB656220F90DDA116BF84A7719AA671FF50094E7 -5049E6F9A3C3718FA1B5447C45B916354F49B430D6BE382736704F46FD54F4F22932FB7393DF -283E2E50AC03D04E4194738B58D8A06756330FF020EC77B00E08AB43F60612EC0FAD787D99F7 -7EE4339403FE25624C075CEC3E62C60ABFA1942F2644D3FEB86D2C8D5DAD9DDFC4A8E8D927EC -D3B5E0ED4C224EA4D2EEA3FD1AB087937D913DA584335305F527D5A6A321CE91E681CC108E1C -391134246274F48DB281811D81DD62B33E903ECEDB150A4E51FE70F014FB717B5625517F2E54 -7A69D2AD8F6F3368E074F781E0266FB0DB8EBCCB1514AF2535FDA7657F73A9CB922ECDC84842 -FC38728B9C7BCA3DE32DC0A7B33A4E22A4457E08808146C53536FA033F465079E95B661673B1 -3E3737A27464A9413DA36C323AEF4C5475C5D508BCC83E3A5BF384D4662B351CF21CDB91D2C8 -960FFDCDF773C7988FF9B8F8FB606A6704799369D9027BDAC6B53CB9101E9C331104B77A77DA -33000A1EFD94148791CB96432980060A3ED24D316AD0CD1A66A911E062FBF963D275254B4DE6 -52AEDDEC86217A11B07DB7CA8A49AAFF46C29661DAA75453B3D87E5BA383785D7623EC291D04 -80C1E154BDDB88FDDC88FCF8B616B69C033C319F733B9155CDA62FF123FEE7ABA42ADC32037F -971DAF70973560B8B14C3ABB5AB3CAD294EB74F8A8F1D18F68B85B288A0E3F3D51A9F7C94F0A -C269C0308DD9817CE43ED8183A4FB11894CB129A06E5943BE8B69210A934151A60D32025D1A7 -05258FD1F469D09363116AED0B4B13605B6ACFE038083B1D76223C54AFB75C16E27430CE1214 -DD70B855A961676BB8D824C6A79DB2BD939A09E0493EEE5D064734F8E130512D4BC5DEE31925 -90F1A0DCA0454228F2D069AF8335949043672949A488A9EB42E63FDAD5AE1659B213B3CAD995 -6B09482BF4A99FC765B98D91B8B16267AFABB442888A04DA07340D750420F926EDE9813D4BE1 -FB6557B150704A6C568A8CF7E4482B3B06F5C52EB3CA89CFDE1B960A57C85B3DB544C84E53B9 -56B9214B99011D617227A4D6D50F9813F80AE568F64AF7971176A0C70B52568AA3D56CDDDC09 -8DAC87AAFAEBC804FDE3C3715EA47559986DF06A16364C762D5C8386EE57CDBA55D3945728BC -0AC1BBF62E8934AF85270A530242BD66EFC4E95ED84873ACDA36EBF62B90D0B09E6A1B6B9A0E -BF6A0E0B9CDE2559410A67A89278AB6651D31F3FCC1BCAB537D4902F5DE80181286B7FCE2573 -20371AE90FF49ECB23959C9D4BE874484D3820D1CAC79708377622DBC65B880BD77936849438 -B46CB5BDAEAC969E4D6CCC5695DC9943A08BBD39B23BF75251C0AF3086C6F0939EE94BB7D9A1 -82A59A1267F5FE09037D981E9E7F23B3F33EE9741F1E6AC620D92C46F5FAB3DFC98082A0B7C9 -F06421A1C39781BBAA9FB959DD9B7C46DE34AADEE496BCF7A087A2467D60BC0C4FF95C24DC0F -29CBF153FD3F7E0023FF7FFB852EE6BD321BB315B382B86A973B0D04A441BD9B4D9B7FBA221D -7BEF8F4DDA9F7F3EABCA77CEDC54A64B6CC314E2EDBF24BF83F75B095B9A96FCE6EAF0CF0D50 -9721DA57B0C98F758915784EF5540B3C693F705DCC3741F60D7887FC1824EB35505F8F393EFA -7EB7C88CDE8E966B5F806744725B308DB34A28F256E4B86B6C92A86248AA4005C84E86C97330 -36477C54DE60E9B659F02DB87520EA16C6AA6653E716413C61389ACC214E61E8D1E091521436 -485C63F4A1B78C56CC9ACCF4890044C5EFFFD5DD88BED43D8C9E6E10F4D591FFD6E91EE125F9 -E7478D6A834FD389407D8F58A64F478FE1ADF148F08B39D7383D27131E5B43D76489655EC271 -F7DF5A5940EC8A05042EDF192587B64D570ECDC629D7B0CA531AD10CC76CA799CB676A552368 -665BD0ED1B9DD5DB1449E29C8BF8E98A4B3C055C017E5BCCA81F4E4B1AC49D050B9A54032E90 -DE3F00DA04AD1F18BAB9BE37A72847A38F07031CD02AC3DE54840233394BF7CF365278661E65 -06EE7EFA0BDED0292E62934DA4A4F1EA7D997579C3C50FAB5812344B0522419922575F0400D5 -C6FE77E2EA92F9C5B59FEEDC87E946489F4A82D3ABFE95EFCB26F2BA42A4C6B74A295CB1A6B3 -B22358FF018B9790210993BDA35B8D4A43234E5DD2775017891991A91797B486A66E189696B2 -33427AC1CEC4BF67CFBF72D17AFBBC17A93D710FCAA0C1B94BC1DB0B1E97989E459CA3BD8565 -B0E63929AC9E9A6E601863ACE1EA2CCBF7F10E9723EC6A46D89FF6C8FC55AC8B140F1ABCBBEF -AAAE337951C65EFE90F9CB8835CBC250A2F9CFDEE17B07389549CA23CEDE0D43F5248CD7CADB -4D4AE03F815855DA701E681EE90DE419172B498DB299064F5A3E57E8245E8089D4AAFDDED5A2 -3E75212130D1A5005493850BEF1C34504E634A4D28AA121A535023391B79812F20E136A32CD1 -7842C373426BE65CD9595C931952C24F4988BCAE07F4E3B8BF310971DF2830713BD32E712DDD -2D355FB141494C72CB4125AAFFD04E304BDFA2C8B371F8A6EF0438D5EF97C7B00A6998D9A1ED -F5C344FE6B56A773378A9712BCB4AA364C93FF33D7D6D6CE0C6C90384BB3A32BD43F1B12BF64 -44B9FD6E547778E27459820A26914A34363C236C867824E62D2DC59A18FEBD2C931628D4EC95 -F2A1A1BC3CF2E5178B37E49EF86C48113F95252227668B2F7B1671CF937F403EB6F5BDD20E7B -E458834BFB36C638CD6651F543DBC4160710461DADF9FDC51E2D9A60BBDD4B4206047EB5A0D7 -B04D3715FB7516FD4BC4BE7CDBB243090FB70FB2730D5FD1FD7B517E3CE78A0C6044B0687305 -E77A61F55248188A6FD0EEA4171D62294A4B313ACE799B200EA0E3BFA3915687A5B2B4FF78CD -7B58213193DF419818F57C5DED5D6542ABAF4FAEB8A969D4068C43C15C730EC917D2DDCA4628 -B290126DC3FBC8E8847E77D0B8D3B9AA8BF363E40FD721FBE3E04E85C8267AB501B2E3D5D879 -337AEB3D85A1482E318D0D6C7B64D4A82C1D4736D22ED418621483C22D9237FA53146B03F96E -A21EEF7804A8E75467FBFBA2E7D95137C3C6220EA136BF161FBA786AF595542161B2A64AE44D -0E416C64E67318F05AF487BD8FDFE8208585F38685A91248F2DA3B490834E7763BF4A3912859 -964B62E8758DDA6B260D7F46558E21A73D5A15E4F97EFDADA03A4EA4828B3709FBCB105461EA -F062CDD3E8B34AFF103CB1008557FD27FBD6DD83C4055D701EE6B5D9A336649297923987BFA6 -76E20008A5872869D3F1523A1B8AC81DD9A3C268994924AAF68008B2B62CE507637915C02647 -67595E031A5FED09109ECCBDB61D006C2B0745AA855BAC7D5B3219B3345DC1D3EEA9381A4DDA -BDE1B6A504AED3C43B012B51BA8221ED83F93325E56D14F17313A7B1D88189BAC87022CCBAA8 -F998AA1B43A01CFC698E68DEAB7E95AEA46E8AB1883BA0BB1A3F83083F9B8A00B876BBE95F2A -AFC5FB24C1EC6D84DC1431E1BD733E39A85ECC542692E628A23EC2AE637CA9487CB03FB67900 -FA4BDA9ECB15E6DAC43CCD9FFCA599247C8AF9A52DD54E83D915939429E91F83B44CA20C77CA -3560B82027FFEF3A2B741D103B12863C927C56E2571380ACA9F0080524A48A9DA3964E9BB325 -95E78A44E81CEEFECDE8138551847F47A003D71B7474022D620FDC21944BB5AB3F543575F324 -4DF4FF6E2CBDC16B6AA5D1DB13CDA777F466D212FF88DD98D0BB4AEAD3FB6AA0B4B2B4BD33CA -349AEFA4003EEF18225ABA664FF2147EF98F0F871F2E73C244D8E2356611A1E99A0AEC503FD7 -5EC69BB41E3ACB1E6ECC0DB13E2796D8273C2F7567551D7B5E57E7537A4557FA4FE79C1E943D -0E243793E0B38B92DDDA01EFD4D68A89B19023663835A8937E5BC26C05E14D941FCE5873C628 -2C0F4FE02373F315A39D1B03C069FEA8C002C0FBB1305B494E09B4A742A65F816B800385966C -ED365F47D575D6DF9378FB7BD8BAA942071068D94AA6E33DCE51E7304B888671D3094316EB23 -AE9E63F8A2DFEE0D2AAEE78EC377839F178CC1B15ED9127C00C877A46674EEBB96FA1AEE3F12 -92E9514564355D6FFC3527DE8B53D881206282765921199DF61E9AB1E0EDAA6C99ABC88CA1A8 -F5DF149CFBB4C9371EC1DD494C7A591D5545D97A528DD96CB802C4B3565BCEEFB50AF105D05E -F39C2F5BFD00D622B935CFD11C641B6CF03961E85A15BD8DADAA68FB5682D9A08D40B748D9E6 -F563CA9D51C12E6DB826F763C31A282C2EC215C69AD81AF1CF072048748D549C122D639EA8B3 -67CE9361BF952C094EA0737A5263ED4820CE2692A1C22806061A186EE97DA27E23C6DF43BF13 -53EDFC673A172F0EBE0FC34AA2BA6DBF9176D2E877C9D142FB48C83A144A7AA2A452D88234BE -D478D910CF7977C7DDF80E99561136E6C9C1F3810B5AABFC33535BCFF00F3D2D00A2029314C9 -BC018EAAAA1B90748C719FF01051B373F8D223FADDEB2E4C4C006723329EF86B326CFB4A17A2 -0599F0AC20F66A8B6B84BB55622C7E913345B8498B1FD7827D903DF01A05A4623D43F2F471EE -034C483BE304657374F412C6AA75065D6F1FAEDC2FDCC8E6AFD13885FD88AC0C591F66241E77 -31CE0587B8B7CBABA989E0EE7DB381676256CCB8264AE6B8DC169D1379DF60CAA58893107663 -EC7BEAF030F2B625D3A4C5717F842F5C9A6FBBE428B254F755252CC1AB980059F2236EFA1A88 -4CD6BE2838E205A5F3AD426C2BC96F2D0C3E3AE533A7EAB2EDED38D0090482D624EF3FDFD716 -174B17A9DEFB69D8CD61A428ED5B3EDA32DE39FFBBE3AA6552D086AB502ACB529E7EBBE29A57 -0A22A98C550FCF60E6E457C259A83CF2E6086F72C1957551FD696EF98A3C360254ACC3359FEA -2457831A92A96C8D3D7ADD11A8F693D3E912EE033600D311147659CABD4EC87383CF4BD22380 -631D0791E2B4D69915524EFD1014C18B5DAE94023DA2464D33B5AD1939C66082F87DC99FCB94 -E7F33A1708817547D979958F88C2B4D7BEE6293B3D5B34CE5F736189C7A002365A57544D4EE0 -C5CE762DBA8D16EB2509FFE6D06B5A6E58E934CF7580A50065526626A224FAFA1F759F2B42B2 -3DD578766C58F4413D2D3CCA41BBC75AC9531283A57648729552849ABF4507E807BA347DE89E -28495E88E9B7C5F81AE29F955A9959615E6E5DFB41852996D85D498165946F8803299AF53D02 -DB04C7E81E2801777A20E2BE7FBF5E0D020CEEAD4EFAE6160CC2B113F5C92CE545131F7C9F99 -452F0761B93E38DBC28EE12C5CC7B9559323DEC2FF7ABEAECD7FAE9F7CD819F960A8AFDED243 -211AC7D8216F83BCA0A8FD16B53CDBF1774BBD35854646632BF18A93EA191BDCA0A31B62275F -62887BB03060145BAB2FE686B24327A632629C2A5F8C8DF68E0FC1698D78908543F878E64A64 -2636181E732DB041979F99911880AE3841C604AA220423E241EC17D0112B719025A017BEC43E -FA26EC2CE2355022594D5881ECB485BF775A277F5507E7CB35EE837EA78D8428E12A0BCCED62 -99EEDA1110C08D06F9AC20AAE45DF9BD8D434351299098EB17E452FD89CBFDC1CB3C45918E92 -417FB433D05613179FCF3AFCB746E08C39013811F8B0512F5CC1F35E43D04F8863E0E64231D9 -CC88D4836BB04C6C1A5D28000A46B3FE13A32E695A81CEA3784869D7F41D201FD4A0BAA0A0AE -4F4F8D03ACF81DD4E365B1A03284D3DFA1D562864B56B4423368E1160D48A23C0E36D4947D1F -D88E92D582D78DAB82F60C29ACFCBD2B3DE9E9BCC47357D85FDCD10FD57A5A05D313D14EB93B -F2B95F69F37897893F8F4CC64B7680EFD9A3A15B086B1D09428F1E96CB1484BBE74E7F6673B6 -E00057898DB8B104D3B9E546AAFC9984D49B751E4CEAA3CF90E289765EA282F8CEE8A6474650 -4643444F53A8F4983617B3601DA09021058905B6682862505C915E38C0517282B111958ECA12 -1D0910DF2EE50897C3F79ADC23489B622B28AE7C48F040DD7AA00995810FFD9782AA0FDE05B9 -28BE428EF8FC03FA257CAFDA83A770C09921E32DDB49D3358C1116C5733104A7CF66A56FBEFA -6AA81BEBF676B7A1FEAE68067659E33C54BFC283F1A5ADFC9B596CD28B2DBE64FC9F5589CFC3 -01BCD92F1DE7B4AD217E0FDE0FFD3A886449DEA5F25CF9C578707F16B84926A64F57E6916473 -4ADF319C834F5A99E09DA7B3C61C0FC0219444C27A1E86CA58A9DDCEFA7597621CF958E94E3E -859023C4781D3552179654FA04C82F9431A50B6C4DEA1DB0A47889526403E2097AE9E932B7AC -F813D4B3A1036F89B82FFB00C9C70FEF8F400C36BDE4DD07CF591DD4935D11DC4062427CD385 -CEC69CF55FBDB237A694718AB9766F01093FE04E1D2048E86E40A32C7737A61EA5617DA2BEB2 -1C7593489F6191FACBE9E91B081159BCAF8749083A29203E65D6CAF4BDBBC7C67C07A569E790 -FB24DF078EB4199E5526FA591CD1D6D486E8985EA7891ADB1CFD2D92B2EB919D28FC1F2180B2 -D6E2199D1A3641B3CDB63586FE3CE6D4D85F69A28CE4ACE048F4687622CE8C4FDCDB0A805112 -128FD7A42E4EDB3343E1B9AD54CD1EA05F5A46D174A1428AC9E26584493742E6A8F231902893 -EE09B75EDF6EF231B71FCE0E63496F718F7FA64EC8A36CDD0E15A7A4F32A439313DDACB068D1 -66D9DA4EA1B25A91B8406D37526A38AC8D54564E9091CC80884575F8E0878F915CF508B9C10A -86E270A3587125CD917B84468B68B16762BFA910EB64CB5635B952F3F006AFCBC0358A239F04 -C8C2FDF77B57F577C37FD3595260798ECAB7CDFCC87CFFC32142DC8A0BBF13E1A1705221A903 -BD0564F726871BE198C0602D859FE48D8809709660224E38EEDC84CB5FEBBFF637B747E62C03 -0C8172E8A330B2FB1997CB72C7AB0CAF8C60F273028B8886C4B1E7B1583179B66D549848676D -A4BCD36159E6D549E8F5BA6735D40304C536CE4FDE740DF0D6F5C235D2F4A35F146919EF655B -1C3F7D5FE468B398322336A2B09FF81F1743F2123036BBBB9F2FC3CC9B9CDBC04317C7E71F5C -43B1BFDBBD3431F1262CDE85CE3CC60B0871AF5508253CC8F5F15C7F78252948A9D03F57C155 -37E001E25308F60C77602CACD23A0A5B704062B6786F0BA5C557B4EF2ED4B20AAA56C4156EAD -7E02B2D49835C34DE75C5129EB5A9B74BF86DC0DF4671C61F434D1231D4F2A09B53492113D89 -3B0140FD03F0A113CD855E63626B707ADA07097C7FE417BE935CF9AEC3F4ABE7DED498945B59 -F92ABDA5DDF60F7FE401E79D57F395C2D48EC8F19465B6D4AE9A5651A1EE7E96B5F13D549681 -2D576979D0E261361DFC4318970C195C3C393D041D4DA27968D3C157A865295A80BC736A2879 -B7EA0AB0C1CBBA6CEE4BFA8614464B900FE76F712446CD40C7BFBBA5DCE13C385CA79EEF3D49 -74B1971EB9A1D7956F83AC0AFA4C09C559A115B684E9A27A44EB697F027389B9EABED14DE232 -9C13637507ADDA9F176962FD4AEDBCFE176510A2131D9C96FA58F357456323638D19869AB506 -549F029BC108205F86EC368F3187049D3B165CD9C87C5DBBC38DBB19AFD942471E709FC38FF6 -72B5E26EF63714E24AE2625E80C939362920A48CCFA0277153F6AFED2E10C79E0D8766A139DE -CA324D0C79BF2CA7B136452FA539E9FFE7532044961C0E2152387825724B344EC93A86C40F71 -AA14DFC9FED630B05EB813AF29BDA57188956F3F8B81400F10CDE102672EAB3681063F3F1E50 -1A02100A9CF06A07DDC889D26242C1CBF381AF54B85A920C7E9B786C398C94E5A0FBBBABADAC -BE25AB650C264621FA8D2131B32CA33B9EAD2B57A35AA33B5BF8BE4EDB3FF2D8CCAEAE65267D -E35A550EC1BD450AA71984278E884A10AF191C8E21173BE554155B4127E2403201917CA67B9D -E2E624C2AEAAC89AEE39FA7DCD39079EB50F16C7C86D8C6DE39BFDFFCFCE611E1F57EFE04F26 -F13AE6CC514CAE778EC6AAD4E01C9001DEBB10C7818646D40223A3609CDF997F69961568AAC0 -604FD17B2A2F43C01421CA6479F844A00D9556D5E375FDDC8065AE5B5A3208AC5F0935FE7498 -E98D12F47C89C2DEB29CD672098C01890B08457D24F19EB26D79553116272A715E9420766A81 -F1F86A3A0C1A514281918EB84B6CA876F47F143BDF209AA884117BFBB2763024440484BE63D2 -458C41D2FEA3CE5D61828F6CF4C2B9527D0F26587708E8DF1CC24310F18834701143DF58A8C8 -9C9D1E6EF571E6544860D688E9CDF290093DBD5628B9EA8148A5552676810C1BF79D962DE02F -25508C9655D9C1A423E69967280BD589A867AC7CA460E7F7BE622FC2FC11F2FBBF5AF67EADED -AABE5EF2EABCFA27245872E40C48DC0309CEFD6CBD9AEA6DFA57766F04C6498253DCE014C158 -5804D0388033C4AEE33B2E97DE27A8619D62C1C951B18B29409FCDC8F8431534902E52FF6F84 -7E11D429AD992DEB56A3892CC34301AC652212077DC16925CAB65CAD01596865383F98DD9ACC -1DA0DB95AD49D2958D1F431E250B36C0F86B428E84F8187A5BE8D40FC056DD1C6AE583052B1A -F77A1FFB698514675BBC655419C044C79957EF73D6F722E27517BCA837D3E33734F4E5151F54 -490CDE88D2FC512DF002EA9720E22BA118539E6CF6500310372834BF5BEB3FB90232FA5E990C -53B9FAA1FD63E56D013A12A95047F1C24438EB56ADDDAF9A8207BE117D94851A619930595239 -52A3B3301CA9B795626F8E79CBA80242E2FD39A60F75DF3C940BEC2E218327C90E65E094674C -1170F33BEC61F872593888E73CA66704037257360D0EF98756DFF142847843F5A3ABD91726CC -F15E46427456FEA929995708D233B9AE72E1C51E39FA16576EAAA14AA659232A5A18DFF2427E -0F0DC58C228FA04AD00061E3751930BA9BA64BC22D6885994A16165922689877782447230E4A -A6606AFBC8951407F465F8527FF9389C592E8EDABEA2ADE36D993109376CD3482C5061F17DC0 -F2BFC2111A2023011F02F232E95B1C3C074ACDB850C080D414F3A61388AB10EDB0FE648DA1AA -5A700EF74FED94093359C38AE7225FC988545D9AB7F55619D54C6DBDB574720B5D5B79535CC4 -920829F6797369D5786497F05A812804531A1DF1B0837A67EA31F41BAD09BF528D7B306F37BD -E400D275820370E44E0561DC97D65559F2B3D2C8A5AC2582612744EA664F4628FEC8747FBA48 -A1E90D0C13E2B9EFB26B915DC22C6DF95A0E6B46CED10C877365AF5FF795D70C0ADA8499A96C -EE812F3CDAAB7083B376ADD72C4C21A39D9FA81C0B0A6BC9DD68A2BA8123CCD2F3109D11CC63 -B0C2D41094691037F24988E8A9A47FC6C0DB30AE5EB78569A34AB0471FE2F31A7E29E7282919 -A7167986F6525559292F9E68871AA5865556493FEF266679DDC1220E3D227763071590A679F8 -594A8DD1A9D3C1C95A3D014C3E8018A951F74F9F335CBB0130925F1020D3DB4915F722CAC04F -BCDB54039B2CFC5EB3EAA9DF6FE67AA4DE878F9D2439D9C6C3907CFA38C6ACB2B2DE3206D402 -C053AB8CC5451DA2961B8B9DDC17C7A492D6667269058D6C4E21368B936F29988B0C276EACA8 -A73F8392EA3CD1B64393401472203693AF11A2528BCA4D37EE437F93056B30CFEF8AB8ACC667 -9763556A93D81A5AD52C0775623840C15DE887C70109C154959DB746B0E95C6057A59839E1E9 -DF389480E616B667887F864FE14B576EE1B57F02D516303A77DD15D4815FB20DC2C1ED0CA0C7 -31326A991A21B04892320190CB035EE4A09BF5ECAF9A2DADE3823E8FE491798DAA0F87CDCE6F -491158199643817178F1BFA3E46D1A4BD1FC28AFF47B728E178EEC6E72E6A089DC8580593BAF -D4390A6B550A7440537E299020F5C8BC1EB1D84009786EC2560CE88E703043C12187C7A892DB -B447C88DB968AA089740F977930DDCD1FF7915292A68A22C133D2E488DE3058AFB6E4A7324C4 -EBAB354F4258DE02CA937D4D9088779546CB7D8F9D9C43AC01B930A5806F4E336687B064B7F4 -E2EBE01D2BEC79F4FAFCBCF953AAFEDEEC6BC123511344B963C2233052BBDE1A4FCE35B1F4F5 -5EBA67F74C2523ECB2B4E78B7B8BADAA0AD1EDE238D56F025FC1F81ECF57862249AE023ADD00 -F34704DFACE6B50D4DFD4B04C1211396CD12DF18964AF0DBAC66C0A979E6B6656FF1F1076974 -6E38FC9D80B27DBA36DB3F517908F58E5E195C1FED78E295031DC76628061DEABDCCB57EBE96 -C9AAE3DA9A08035B88A070DA3FB87015D7F9A3107E39CD5A66AF1062C6DF77C3B288EF212A93 -C15E88F45430E0C5657691FAA62D3BE8B2902B3D81B43260FEC58D69C975336EE35CA96983CE -2566F64058A403CC63CA8DB895DA1EBCD0731D42134A8EDAE605AC8EFEC1D6FE87C17E9301FA -F0C15B4A28414BC0FA33039639F62BA1623328C00BA21DC7C4813893EC88F4ADF15362461385 -9AFE74EB08CEB0352C7110DABA102C9A1EC4DB5E8E8F52B8E80FBFBA2FFF1155166332FEA71D -1EBC5B220AE0DAA5F875E8BFF00B0F1800D12082479358730447890CB0E82C63B0B1BA05344B -CC2C9EA46CDE7428BCAE88FD2DC3C342ADC76D0CB98F6B76B890205F941FE40C0E71A5D67AED -5C7CA0FD3110D3ECB1E2A318314B1BFA17CB981F04D6B0D0E5994481B25021661CC63E8119F4 -C8B18530B97B51122F59459A47FC32D3EF2B6C30459E403E0BE9FC41D7074A5846303FCAA8E7 -6887B0C770E71F58198D7440B180E38420810120EEB7C739EC9DD60CF0DDBA669BBD1C858915 -0B7C4BC3094462D098487A738182E2DE8E5C2293B3CACD0FA13F643B1130AD9BB3BFF783B1C2 -997DCFCA45568B213BDDB41083C4EF1A1239E269D94A92AFA41B6D67A479E541A03EA6614100 -0FFEBB668F44706E0E5A9732EB901928A0BD9D750352D45BE8AB927B3587CB15195D53F69A28 -7D692946A36D92344542CC7CEEA4EF0FDF4D47B00914FCD2EE27BE73E9A8E233DCE083579086 -D91330E8C99B5122862C8456231D68AB110E8BF8256442AA1B2F176327C9EE2553855E2D4155 -99E0767295C1887C1B1919511AD064D5AEA9AC49CFC34315148CAAAA5A7A7D8AAFB591A7C6A1 -61EA6BA15AC8095C178C36836938A60DD06642F52DEF86E30964F79E2438BD67BE36E22D02A8 -DE00C92BBD86AEAFABE6473FB8F6916982C178C8ED89DC6A38AEF60D739716FC6AA95252E9EB -0D2EE7B7CCBA342809DC8EDAB95A703DEA4B951E40F8F1CFC1059C09572A5C7A83A8BC1F2CCC -1257936AD83AD5321E643DD9373C1E6FE96D71366756E0C1C225C08584445123B4F0D36F2A4E -58E8880144D85CC3D5B1977FEA3410B0F0FA6ADFA7731A081D21D5EE11D8BC35F0D2280CA5AA -D1E4C5BB3EA1D1F2B2C2954EF17541E0C416F5156D248CFB3C842EDFD770811E0E5C0CDF3D24 -DFBC2B76E1305DD7C12D277165E272530FF37FBB43405CB48C96F59E9B06C8D9FA3691674C88 -B6A0DDE7E167DBCA1D6162A3ACD6CCE0278E9745777E1E60BDC6523116B292029B671A199342 -63B603E8D47C406D7A7EF6263A06D8E70A13B4009ECC498BD4E7B7C6F109C4712B72F9E89C72 -28ED620593B726DC4CF62CCB235EDEE47109B7E5CE709BA5DA388040D6DAC3360B5FC0D50027 -B0A59EBC58EEA0703CE427901D6A49D144B53D75C96D9B5262B439F379186845F0E0C3AFAEB6 -AABDE72B623BA1C3B179C856F92394BFD700C057BA1B57787450273C8484A3025BCCD6B7A727 -742EEBB6C7C765C050BC2848C0DA99BF2A0EF9E87F75B5BA745ECF46FC97B0B768B505E22575 -B90AE4DD03703365BE82D5D3E9F6EF66983E629BFC6C73D1D51E4DECD619F841ADAA3FECE1AB -A334442C6EEE4C3CF6239318AC667BD186898A75EDFCBEDA77BD3B0AB7AEC7B6A2E9A6962919 -5EE8C1E27D3665A8C5A34996804B42AF0DA575C1CEF56D73A5DD0DF07A843AA41FD2A7DC028B -1BD4BFBC00F983597941ABC2805CBEC54B43320B693ED3B47B436BFFF1296EE8915EADD06845 -9626F795FC76C31A94EB0657B5CD77B5332EC3D139AECB0F4EB12492FC234A064922CC04AD07 -E8960F8C144C3FFA612546D7FB9E6E96A5B06B16CCFFE04BA2FCA18BBA02D0A0275F305DD147 -3B4A2A6C25685E8848EB50B74C89ECDA3A07157E524771FDBBEDDB2352F16401771DFE1F279D -71F856E1FA6ED98DDC907BD9459C2BB736B37411D21201C6C617EAAE51DB03D56AA3D2AC6371 -38F26F1F7BF547AA4269FF73BE1016B8883E123F0FD7800D8E6ACBC77A07AD2A2F219FCAFA12 -E932B7EEE9CC134D09058B5841363C63992D258B9A11EEDA2B5FEBEDBF60EFB4A2CEF1636276 -F71990B339AF758E0458C5EECDEAF82C208F254C2C55368B66F783180F2D62F8DB00F242DDB6 -0147352AA5C95DCD388C03F4C19E324CAF87052FCEC00A906845043144D52CE3393737DF18C4 -7313807435C07E8FF8829A686C14534F4D54FE40DBE30373E481B88C8EB99F8405888BF9E6E8 -BD46030B27293973FAD635446C49FFB7EB409C9CE336C39D857C472D56AF82D0FA2BBE908611 -AD49227103C054E78CCAD256C5A1F36F2197674B2B83DF0E16BA13E4A36F4AE7BD62E514FB5D -D9254F0500D9BA474A7BD55B54E011448444B6AA774067E3BC3DE345295E18755658BAA40EFB -120E4DE1D6B34629C1999E35C39F3AD277F299A6646BA94F007D69EAEECC6D9609B6B058FC7D -8D33B38DB65608A0629612FCF4802644F8B2BD86DEC86F1DF5E7A610F2BA35F7302FACB926A2 -C55FA8565A40BFE716FA8AFB1ACAE951FB5FA46FC62C5F9CAE2E9F1E68B994D5F207406FAD7D -4A0D78E3195E5BD616EB965EF6327FF95C99525F2479D77F2F8A21DAD2C86816746130CD269C -1F499329DD02DEB55C3052048B9E31E09E39135F2851B6158DFAD97F75191B08E2F9AE5912B1 -A54278BB1CB22C8326DF9C78A438AA4268A27866F52BE2920105E04C734CC61C505EA6A96424 -BDFD76BDDFF08A2D60E6AD0CF1CB737D8EFDA7A4744BCAD5DF57C175AC9F89472245AF441CE2 -985C6365F978A672D4C2CD123AFBEB4C33C4650B51881ADE77DB96B71947D2D5B8465B208C56 -69CF121FDB4A506DEA93482976913C3A26EC4D98B24677A87F9990A7184BB98213279F70C199 -AB8AAC5AFEDF54A1000CE3B862A52ACF24CA9F09F189D897B7BBC4686443FFA4EF15B5EA9B79 -FB7F6E5ECECE81F200F321D9D947AB1630D2F5D460DC12A08B0EB74E4167496D71F546C0FE66 -234D697AC0DB95DCE1476368F5B0794800250D10F9F7B674F8D2DD1DBF0B539FCE0D036CDABE -CCDBA6E6B954951CA810BA4009D90648959DBD9A9EBD2EE5F7F9BF42EA170FF25C9D6030968A -27B1B29010ABEDCFFC80105A6E97DE36C7A56FA431C45FC8CB8D202CFDD8C1949498F673AE64 -EF261D905519C54AC3C0BB1FE9A58D38670EC4016EEFA07C128BBD7B92C62FA4AAF056E27445 -8A1D224E5BA7DFB4739D52866E359EA1F6251D8D5B2E8322EC9307CE756270786C4C9B6B0E6D -89FE9A98C71D4840C9CD6D75BDA50720CF1B02202079E599A6982CC555980E5C8A568AC2D39E -FFF50C2257AD918525794D2BAEA1E2AF62C95CA4DB656C6450DC69D4D831FECCA72E7E14A2D6 -D9D0C416D9FF67035E0654D30E8A5D6A9FB547932C07388A96CC33501D478F8982BDF8B684F3 -E50879058AC5AED03BAC3D05218E1E8B5DF16B3BE113B8935A8393BAC4850216022013715CB3 -E6530F8B75EEE04A5AF3A2FBF9D548803DC0AD8E95F247D348D34B9FB01F93260A8039094375 -32A5BE370A5A4FC7C2EA4262A17C8D17CCE0F70DF11D634A25DE5A33828AFDA8DACF1A20819C -63D718398D9B7B4328167AFFD65DB1BB7CC4995D719034F28BCB96D221890EF91C72F9875839 -42FA62D1A260FF1B55884308643C53B2EE1D411F734ECD3F8D651C18AA38DCD70E9A3558F9A3 -A58A64E14CA3E3F2E6577838189A8FAFD31A601D3D63CBA0B54C2CDB23BEEB21AD6DF0509FD9 -D5D1705CEF9688181820F1DA5FB9A54A68233D9907C895567E5A2BC160AC87290306C995FE8E -7481B41A48A3892EA0735F79F67D6A6B4B01F7999590DAFA186EDEE1AD744AF1CF9C4D46E8B4 -1028F9D1739529472A6D40F27AD9083257A58B9805A5E38055AB9336F47D8B4F21B3CB0E2AC4 -7E0F5F4B53060A3EF5088EEFBD8495C9DD0F98AB77464585EFA96B8C193ADBF0E8D5B920CD16 -6C64E06FDB0C649DBE9C10D69BCA92F3C06826D4B4C29718D3F2F9DD1DBF82A76D17F168550C -5C73D8A9AE18F61D907298C1A7663415080BAB670A8A9D271E436134EE2C11D8219B65A145A6 -7C1C14418A5EA1400490D9B31A443D88150AE47DB6937BF667F7C5096C0C79462D4B9F9BEF18 -B4AC8A3CEC5CBA1508872D9C2C00D5389C2755D02B699D9420B7F1EFA0EEF1DA235951F69DF4 -186BE9AEF84698C28B5B32C1DD28723E637D813C61C9C616BA9F1AA22C72B4C9BA364AE10253 -14BD187AB5E76220A5F91F620D70AAECFCB96EDF17D992E42489D23E066BB0A5A493E038CD29 -3293B401C95649047511F8CF275489C0045523D0769F39BA458A3CE956927A82F074311AC982 -F6479EE51F92D0F7359CC8540C3BE4F61E706E2E0DC8173B6257A7AD426618D6FBD34E426AA7 -E4E7BB484745975C7E6F7DF7E88F29343E5BAE399EFFC2F0DF5329FE28D55E912AD2F98880F9 -EBF3B9A3198D67592573237B2AC4767D309365FF02E605C30F734A505341495AD539B3E5A345 -5B6CAFC2DD32678F0083C6BEF65C07E572807D60AE314398DD06ADF6463B66CEC18F41B5EC7B -6DBF0A0F239D36D31E5808B8BE9AC0FF5F48C1F3D96C67492736D1F2E952C7D870517CCBC16B -B49BBAE50476FCB91E8D9AED491495A4128A7296F5BE2AFAD8299B7DE90D28EC48983EA5F50C -DE5FBD2FF42E93089ED9F2D2509FB8867AE8B67FD2E5C14C9CEF8FE46B85BB8652C246C3E2F9 -8918A6814C2922EF1811221A13BB5DF761143E6C6D1191758747B650CBC8C65370E7D7C9627E -2B036F04581D73B6CF02F5CF08E14B13E561F613D19A740EDF7A4A2F9B45BD0D13C93A6636EB -6D4ABC5C2B12C0A39EC19ED12FA0E9024D7CE66487F30B2AA1F3C3D1AE50A44DAD397382339B -2A9BA8EFCF74774EB7FD67A33057B0694E2E3B8D8D2F06F7094BD0E318B38BF2FB19EBE94619 -EDD2A37A180E34F997B5D2CC78A210169162123EF09AD9DA6457DA0DE95BC288FF1D9C3BA73A -8A4AC506381AE8B6FD92EAFAE226AAB6DEA8B9AEC2C9044FB6100C7B3357E4F0EE8BD7005EBF -FD3BF5A2BA18F9F11F936B1F3B1134EE6CCD7966B60223D1EC36EFAB2F5D5AFD49FED88A39E2 -138758FB8D1E4C471AE128FF3AEE6D46EF04C706EB2F97C0520788A2C148F5830664805CDAD9 -5D9701F74ED76F7AAC3886E154460D7D30A1F805EBF1AD3E2CF81D2FA7C5A76A551915A64937 -23CAE057491D2262D16949C9937EA9FFAF8C07A25FC61DCC10F4B60FEC5FB88C86B1BB6709CD -B169380B0E1566DE388EAD0B97F9796E56D2278B989FBB3156D12F5967114C31C495203739D2 -4E0DB10ACDB7956AA2AA9F4E4246AED9EA3AF1BA9427E0D7EC06461E8C088E1E090AE267036D -D628F1D436B1B9ED0B8397A9E41036A87E3A140F01EFE180D4C0D201A9EEF53BF64A8A4E56A1 -516936E81035508218688FD5FCCA4B47EF17979AFE2A259DB227256E5445735A07B1D10B2FB1 -451295153BDEB7935351CF451CB7DDE52729D3CB94D918A4E744FD1F1DA4DDA1A34081972EE2 -3870D8AA84933F48DE88FBF2D6B94F122B4D4000180738ABEF58760C222ECCE43898399EE6B8 -F36C1DF965D621670DE1EC32688F9FAF172A4A42C1BC519795129A66703C376B24737ACC810C -0AFD9672986290D192E7130D1D909FB5C3C0D00206293C0E82E3ED78138BE1C71B75A76BF48D -E81FD4C53CAF1A8B09B0BF878E67AF6371079B07623DFCBDA52D0EAE21A2B4C43567E8989E84 -38986D379BC4BFB4736B908B22405BD7CF27DC42E9DE322F9203C78D7105171D0F5B24A9ED05 -F79745850A9C52BD08095470D8F0A2BFE2625FBDDC2F49C4C27353C40624F233FDF7585BAD27 -4C751EFA1E4DEF66EEB9B11532EB41B392D86720081FEB6EAD9EF3542E06A81E7C7175903003 -784024ACD31BB9699D7B120266564A37AC85FF2F802982233586ACC543102A6621DFAAE59EBC -92DE7EA40982C770C96EED089570EBBAEEDC30377CE561665BB4DE7A4C622A3F1DDB6D34E44C -CF78B99B0D7AA337475DB44F0BDCA82F775C95A000A6D8B01D222387A6C807FF0C16B1950493 -E95F0190CEF799F0766F08C04F39A1A48D4BBAB5A21D40D6170690EF1DD66020B1E79398BAE8 -F6E05EF549337610993D8E8C52898C2082BBC3069C245C54FD4334A3CBB6D8D926B2116124F0 -28836C7322EFBC9CBD3BDEB81C6733046361C84BBDCDADDE43433B6321A268558C0FBD132B79 -590C56B88A81E00407B14A2E17170BCE64130C5E031FA5049ABD066B4830B704268494E4DDAE -CF6E7C204795DDC5A66301953EF6E0D6CB90D09AC5F4FF81E38A47E1F186D3D8D93E686A49F7 -8ADF24F3F0F8950F41D1D5A17C16243D466B6AEA42E45ED5E70084BB67650BE241DAF7FA7545 -54FEC10E3C44013995523D304FE9D2C92DFA6E5D749649B582C06398E1044C9651469323B2DC -03A31907574406B4AE0C9823125222413831E70006E5231B3E6057A933176F161BBA4E231343 -2D2983A0D820E38876CC7A3470A6A4C0CF89AB24A26A328E25CD81A5119A8D1B22D1FD2FEDCB -F99E9DBA54B96F5D8C23645DBB0E377AB4D43F2A10A24AE6F0CF92BA0DAD6CF17326E5D5C951 -F8DEF22ECE9344793E25E46CC77BAFC14511289D88B4F2E81B0F33318BF8ECF9A85527FBDF8A -5D686199319A9E4F2E5D3261720A5F58386768AA3DD6270F6C80FC4080AF57723E6174779CDF -1D7F74150DC241A27A8571D1C5ED78BEB96F5DF810FB1AEB2B787A6D369117298C94E273E0B8 -70998FC1CFBAF6BBC819F78DC9BDF4C3FFB63156D72146BDB04F6DE7A34EA9971FA17CAF13BA -1706BD0713A30DB443F7792DFA56B3F3B4394595E38089089E2D0210928B304E5699ADF723C4 -57E6C86AAEF85CFD66C8B7304416C6D1D663CDA2FB5042376A785D45C8E71D5F1E4613BF8A2C -D7EAB30681441CF31E11122F07D1AFF26BAACE48A4274C90C40BBB27C43518E18C0D47539F45 -5D17F02F397615BA7AA3BCEC0FCD1C1A4F03D12A062791364485FDC009A633472707634B037A -6F6734E94AB4C70ED05BE5DCA450E1A0D26C297A26E42C9F70DD7A8DD12546D07F2C1810B187 -7FD8EA8432EDE171D3EDEA034424D0CDA5D3E775A0CC4299675AB4E99548EC6F273F1E2B8822 -8094A3C197A8A559F2A16A7C6CD1B0B87EE7429BAB25AECC7A792F1409E6A13CECE6C6DB4F22 -6690131478BC9F80F5F93801778192AD28E82B24E5F81C2541A40F4EEA3C63FAC503D958AA8A -37831A5297336CDA31B9D53570F317188090E417ECBB51B259F21695684AF7141CB3DC834FAC -A59BE02F2444EFE40ECF9971D427D4B1C3874DC824E800C335EA70C988F06C17AE56A9092693 -9846B7E23F5AA176DAF5C746B3A4B876156382FC92E35509730CAA7CD5DF9229FBB9FC8705C7 -15AFB61AA9A90D2BF314D9BD9C9082BD80E9B64027C43C08B7B723B9051DEAF77D78DECED20C -3F27BCDC3D54BE3B856B38F7342913D7B6094871654A665256BC3C5EC7EE74145D169487557E -ED4734901B65E15E646347CBE134C7A616AD924DCF6A9D67CE461130F335C6A09DEFF02DB8CA -8DD08236E08F1BA9AA19834AFE25858D520A5CB8B80CAB07A10B7931FE58273322AE0ADE965B -F004D0AD0E44C7B8A0ECF7FAA22B1A2BE0C56B108A50B638AE2F681C4633806789F8698B2B93 -F471852692E7D7F8C516952217CAB6EA346F0DCF9B96E582F453B88517955522B28CD39CEBC1 -0671335313ED6A20417A031FE3A9F0207BDF40B4D2A41160B7B48E15FB1728668116F4E5CB1B -EEF57BD3A1D0CACDA29308A46F568465BCA4AAE866200BF9B7545FA46BF2A288B510CEDE0EE7 -01335876118B36A8BCD6F47EAB1B30AD0BE96EE91F3AB6DC9FA2BD055A60DA8F158104A3F398 -F2B2F6146E3C2ED9428FC25ACACF462F602D5705AD2E6124BDEF9A2A41E310C37AE06BE77056 -B2D23ED8E7836DABE876222FB969DBDA05B027A041759E5F7EF1D7F8553C130C63E35BDD3960 -E5B73B942DA8457C0C01CDF34F615BEB084B59781E8AC2654AD4A3C1DA7E9C7BC7535062C9B6 -04C13F25C7EF01D41EB951CE3FDD7042DD71A28A575ADADF1B5B4AB84BFF2A75B3B82BB90497 -C6F35E72ED5DA402C92A36F28BC2340A3088ED7C8F583E303B463757F0AC29C1777B1D62A6E1 -4B738B9C99ABF35508BB4F3E0FA3FAF8F3C3082E714D76870B3C880C0ABA3539128BDD3F792D -B59DE5547AE84B020B944CA721A5326AE69CA6466AE0789DB02C7231C71DD0A71C884D80602B -E6EAB756AB7BEFD5115F355206375B6BDFCFFB40DEBD8A45262C6D41E1A9337538B092B8444F -B37A7AE4D709E53208AE8A5267B93BBA88A3770013799272428EAD5B467219AE6C5AE87E5E86 -DB3C359FE7457D813EECBEB4ACA526C70A25CA3C4B37C12C787BB31AB99441E557DCF53DDB2C -98D229925ECF2503EDB45B75F1A8C8DBF59D06DE66FE7D9C065C8F11267FE20EA7A111A44349 -B2DA1E7E908F1E87ACB9C8C8A61DA29A6CD6397342418E68B2A9B7A10650CE7EFF2926921A98 -74B7F10293756E9F86BCECF72D8077490F9230BF4E1E34821006ACBDE624A29A16293D562333 -0AA5C8BD15F3EDD9D31A1B4762BB53A3CB44C761372E4B716C24D0A6C09AB0244C483C42A7C7 -B8136E574C38A018A2270622DAB4FEDFDD88E87F7D993C06911C2916547AAF90FE6E559A2B06 -D43A4321B5DCE8B92D4ACCBB7DA9362E095898FB218056EBF6DF9315118C3A3532344E37F91B -322CBE7EEEFA420F945D9028D46D5586F936B415138FDE89B7AA568A6BA1FA24BFB37F0F21F5 -09705605C63D865BD5CC4C121EF7A9762206F94C10897FC6B45D6A20C60658D61E2742531F4A -41EC36899421D5393019C959E0219A9C9F6C321F8F3B74849AADAD188A59CE6BB9D75F9EFF92 -608D3C410992FA5D39365055476E9B42C383FE0E07E73127ECC1AC10CA4E96A5842D6700A828 -03329C4A695E1E42694EF84A1676670339CD8C131732F0B54D688600EBA052B22536B99AC938 -9238F712AAAF98D845F351BA59F086E96679E0855BD9DFD1D1371D90FA8B8063C76F76EC370A -990CCA40526C5245DEE4D0382C26A84EF7583856699FD0D7A2B5C078E7B24AC9F24999A25C34 -9B5DC84EB12A2BE71DE65F5ABC7B8BEB8E98D67F6481C238B94E6D6A138E9BE3A6E23463FDD4 -4C6AFCCB1B6794224FE5F8E12599A6D6ADB66EBA5A8DD856E178463A4BBC2AF51293BCD42AEB -A7EF934D7FDF8053542DD276C82E0E2D136DCFFC31E9C9379F2B34401C3E918AC5203C1DB743 -A62B981C32A4FFB6DF0C0DC60F0344F42E0C6F22DD9EF8B0DC24AA31509C254ABCAEAB8AE611 -DB24A4ECDAEDB8B81C386117DB8EB61BD98E7FDBBCF60A1312FAEC29114E1315EBC88883A016 -36EE4DA190726DCDEBA7B763BB9AF6A756F3ECEE7062BE7D3CB46CD21281582DE2DC96DD9089 -E85B052E5F79D2E1CD9FBFCACC012948A5899FE940A25B9C4B67097D79AE5F3133EB0854F82E -4395FF4D74AD4CA046A9938EC5F730CB3992EBA8DA693E1022828A941A42E1DE65BF9DD8BF93 -10601F114DCF83B648EF5A459957109AA94766B5F2604F3ADBB6975C7D12553E014820E85F75 -BF00561FEC1F81842810C1B82B786BBF503A5AB31D9085D1435CE1E748E33FE29323EE002F0C -28D5D0BB7937856C4D35E275636B41A90652D4EDFAD52E4F29805FE1DD5517E27BAB602EDE76 -FC9A94F6793822A9E0513AAFE3EE166A004B4BDDEB37A4BD482FD6FC665E26C2B053D7191D6F -62FBBCD33526690E23E1CC4CD4A2AD134C4F8553BC53DDCC0F010A8CEA4CE9D5DDF0F6D12FA3 -4A8D576FFED29956AF504274CE05270CD0F9DB9473701FB194A7835F36BEC7D46E30349B657D -42F00492E7DB717ADFDB99CBB6A7DEEA4A3065FB9DC61CD1BFD4A77AB069740B462C4EF3A3A3 -0BA4231B5EB772742413F4A0054FC8777C74981AE144A66D059BA2430B8B48B709CC6BDF9020 -C0A8D865EBB6E21E61BEFF45AF112C98274E8142ADB6C584B4016B3ABE63957E076BD945DE1B -93BE70CD3924408650605B5389897ACB5A7C4EA51C49B6340CD4D79025A29346066A7267D7EC -B7770D0DB871F20895B9DB17974DF6F4BA5753CBF57AB2D98C6637D0DDCE48E0D81CECC10D66 -6D1F9203A72A835A68A1636D75231F3EF67F08FDC370011CD63A193CE7D98BB6D15E5BCE7116 -C7A3B82DF82575598C79F190C1B59B278AE275C2E8E3DBFA44716A08A2F90FDC52BC6CB2BB4F -836D9B94506A3905F0A208437AA5E7CF174EB3D74860DC0876560AFFAB9B15D561F52BA51A88 -7D87A5692579BCFE198DBE67C41B36C0EA6F929F4F35E19A75F08CA2A5780BCBF2543A0BEEE8 -8D618817991A90E9F094C27058CDFC0AFCB0BFE13DB659611303948D4FF51CE92262B446CABD -29A10090C3ABCF279B9349B56FAAF1B1482EC35DE4F6975DD296B569B8910CC4BE8BD3253061 -707D3888673A66005E473796D9FDE63D0CF2703578D0E8DA7C57714EA7A1AC1973F5364503E8 -846BA6A02BFE8DEFA64CA3A285116FCE7CFEBCA4D2760805CD0BBAD590A2843BD06773F14F1E -CED4D98154401430119AC825F068B486B6E47DE94843A8EF2058815BE7BB66C1B7B4483F9FCA -91B63FF1F7CEC3BCF594EC0A35A2D8083EB79DD4DF657F83D2073E2899C0C8D327AACC1460D8 -90B9F86D41D29724DFA78493BFC62EC31B6408B865713DB578AEB48742342EC36C6CEDCA7026 -37A02F23040F8A6707D16AB2E00FCC311ECD907D5575224EC6C76A847386F7502DDF07F315DE -B23DF02DA436A3B9CAE31547ED2E1CA6A2BDD295D452D150235F235CFAE75FBCB6B2E4BFBA25 -8B4FB7769237F026C7A938BC561554E2711DD4CBD9E300783142CB3920294B9430600402F0B7 -21208D21A4AC7DE5FF5B0F676BE9297DAC0CF093A167FFC01F308C8D071D4CE9D9BAECE4AD53 -74668C620B614668C4846D56ED2E62BFBC73120719DF33CF7126E90FE641F1EA38C7BBF83BC9 -099EFAC8828C25C7DDF8501C4C41451450AA51F431D7BAA581CB784398AEC5F9420930068049 -9D073F1762AFC73420ECC8466E6756C8FD17FA249E4A5A54E9C4BF2352505EE4325EF17887DB -A5D058F6BE2ABD889BD8AE9B7921775DE49BC8AE88C5381FCB45675471B023185B78A54166D3 -38D1A0DDCFE1200ADC63AAB89B817C6F5DB9096E2CAA7C60E78DD5BFE6C66E7C1A15D1E0E85C -83D636AC325C8826ADB4D9EEC15B212B0FA509F4754D5A9E21A6B0985F1F52D4041452A6C8FD -CF3DE6A992653A5281FB56A131361309E8B8A9D54812734568781D00CBD72626480E715020FD -3E934BDB5015DC30C631C1D72F308892710833A5DD00502567CE60D21F0D5B629D34AB7EE56C -700BDAEC7C289193B2FDCA80C916933130114CEC0E80BC2E650A896D09E295E49C2E677C1B90 -659D13B1CE3D1B7F25EA3F84A130F494BC05858B9A0DC74A4E89F0EB991F9F236698DF731D74 -350A2143F80CBAF87D30094759075437E3A51E84E9703EBB45C26C3D49B9C4F1883D2C5D5DA2 -B5D52980DD8554DC167FB29A07E5B3B4F4D9575D1B3D32A58D3C67AD8719955E1E424F12693C -EA20FB4D272691C1DD086573BA56CB1696C3D0A80799C2559CDDA74DC54449B47035652AE0D2 -77428AC8DF7ECC281D9BAAEABDC9FD077A3AE220953DF9D738CAF1519429E38186338C515B6B -AC2E0A345FDF5396CBDB0396A21FD7412CDE9DF8B1D6E35257A6077A25497999301EB0E92E6B -1DEB7FCD05662D29F2E23456738B5ACCB31FF2FE20B18F4A8D0FFEE9379931462ED0CE5AEF38 -5501704AC55B57BD5164247B05D7EA293C52DA6E655F06D8805F413F9BDD23163BEE59C6D2E1 -F251ACB84B640DABDCD4B2DEA4CB84649DFE4338A5D86959F2603EC53348E9F5011DB5923CE9 -562405886B9E24269FF43834493A5EE1F460129CC05C4854650840426B66B13C728F23953CD3 -1EC0D443FEC21AFAF10307491777B92C5F2D8BDD84CDDB16C3ABE62F18BCF2592A998E60E61C -E8D63D39CA7334807A185BE00B5E5E0BE7DE6BA590FACF238C8A9D027605795A01CAB9DA6A5F -6FBDAC53FF97238C47812B285C06A78206FFE1FCE8B9838C479C0B13D488C368532D80F76291 -E78F49E31C3F1E2B9F116510E11C6FD1F666D8C7659D28807FB68F8531EB5A7E7760E8FD79C9 -E72CD57854EB002D234C076EF0EB22932DC39DA040BB595E2A7CAA91A294D6455F9D715AA999 -550FE805F23E30E700C17E70FA72A9191255D9818F8D3205F7F1273BAB49F1E8E825AD812B88 -BE8129C5C483F36459F2C1A8CD0BFDBA2171D2891149F7B3C2A435FB3A584022C18113BC143F -63E546693FA308FD715422768A5B342F7865CC9A8836EE7BD15FDD26A95DBB4FA2D09E4D555D -71F01B257D2DB9EF6161D4D5520562419251A13119706655083E4A141D8C7E5861448A019263 -6181744BBC810947304710965786CA3451B0B861663A6479B64E2DAD00AC96D316531F0193A9 -E8B901006952D027447213E6E33A8B55A43AEB180777233E9F12590B6EEA0E1A19CDA0DA1CFF -F8E206E60E71405A4755584B874CC6CD49D89C2B2069367C40D85C68E9DC12283B8268986A9E -16E9E8063058DCFDF617A54815DDAE4F9FD387A9A00D357591632C5CBE78BBBAB5196E91DBB1 -AEAEE46B1C87ECB3FF6D3AEC6FE57420A599AB430227959BD2730981C6F7E4C704F4AEB9CDC7 -70DFAE3A022EE368C9FCF5DA9FFEB2D02F2F05560F379F93A8BF2ACAE9A1A9CAAA2C84245C7A -402067577BEFB8FD1AED7ADA5CFE5BDB742C00440939B2EE69D79A09128369EB810AA1FD22DE -867E699B7FA40DE13F3489C88BF418466440A6D84A8473740880C31545F51E894DBF7F351E1C -9F91932020BC6DD73B220B5C378A92E6CDDF2AB1364445A091FA72622B503C969C13F20E6F7C -B2F5203EC31EC197169CB3F054EB63F1332D64F9B790B6E26381C2336FEA93035A029B064B23 -63AD4C652E059065E526E66BFFB16EC40F2A4FEF61646CFA81D4671A1F91BBB1BCA5CC21361A -CBD49F3EBB81465ED2C9C71635F9AB6DE5A026931E4C7AA7617E2C8E789CD10E6BAEF709FC6F -980EF9777A767D2B75BED041A9790A6687B9118A646065C5C19B71996BED4F18D799282DC821 -042AA17D9632A1C18B6425897F7F51DC0EEB53A1C2D90D6C8A932D0DA4B91FB849794ECD8936 -6E2BCEF81910C28C70A1B56A38BD63E15BF2218677220A21308DA126FE7A806009CC32C0015B -3D5B85F32447D4C7D3B0C716165FCAE59B60FDCABA6A5D14DC4C797FF7EBDD7EB8697CE8349D -CE5F6066B7C34B71C0CD35642F9AD7BCC08D7ACF9420926D659EE27470A3E47B9BDD5A0BE8A7 -3956B259E854A98F77BE04E6CFF0CD1A3A4FE3B11AB2D7B10991407BA9E7821157522B5DE7AE -978112A5712E62EFE2564E274D4E02B9159C6055A35975FF9CF3D5F4DA9A0824C988E36EF9CE -8A1A3765183FF8B02813644EEB7E9A7AA70F94EAD55015829BCDCC2645E41CD253D1F1FFD6E8 -69B495E261C62FD1F944E376B0759F4349A81738E877A005251733F93B0F0896E0B8CEB8B763 -779789F8259AD4A2A34D7E1A9B642E8D3724733FF3CF15F0748FDB6D395C8F70BCB241F9109F -7D64EE4C3B4487BED29A711C80E7A4C22F4B6A96EEE72D2CD5E415EAE1F1D9BA3DB5E42EE117 -75D406051FEC2CA46A2EA2582949DCDEF71AB20E462E64B5340761EF0516E1B36A8C5E871962 -F865E4FF13920E4BC45DC7CA5CB87F75C7E3B917161402EF8EC79F728560444C64CC35204873 -CB9AA77BBC314F9B2584B257FD1C1EB571243827A3065CAFAB27E46127B610143BAD5606B346 -7442691D0EBE3B9D3444EB73CF5930C4EF70848841BA7F5785614E048AF07AD9A7316528F62B -7D8563C077B6E134C93F33F9D56E32C9F5B9F9384707923CADABDC63C89EDAB68AF0B8796606 -66CCF6F02A8F1BBEC1E62BEF0E00739399B9BE486E19F197A7D49BE77C49B60D34612559035B -CC6622342A27EB2050F43986F47173A8C979FB7B492BBAB53655F4B1BD246CD668D937DB7345 -F79D0784EB6073C2589D59139A54DA1F0296BAF6994C44C75DB5C0BE12C536C702021B724886 -DBA0A097B8B529EB829877EF74E77B8620A4AB6ED123B53DE8EB2899033BFA46BBCF7DE00A0F -C2080C203A91367C4B8E0A3AF58CAA34DAB48333A27675E51AEC94E9C05BAEBC208F8F2566B3 -562EBCD1CD7A229418B1FAEF1486157E067B86EB7F69F7AED523FA434714B7C889B886EF320C -F8588F3C6994BC9F241F13292408A43C9EC981F4811BB72CFB6ADBE11C8528E63D55E74B6BE7 -7E26715BD237C888819986FC109448709C1E13CFCDA5A4C4E4492098C19A80C3DBE1F4433EBE -8D24E1994015831C7CDE72E3F596B4DD0538B579816CAC14F37DAF72D7D17869ADDFF2351752 -DCE4E0D80C2FA20FA177CD892C3B2ED0856720CD1669BA16329736115384E32BD16ECBA942D0 -44BB22B16C7A994627CEDCA557B5690F6B6B588EA3D78ABEF15AD6141E24E41069A0F4CBD026 -7F644A4989BF0B41C91AF5861133FEF0798797F9747FC0F8FAA112B14F5B960287FA60921013 -E823F67EC90BCB9848DB30AD059837F4CFEA772D3E3CF66495D5BD4E0A28850A04E0A2E180BA -FD81656F7142D5A95EB7B0FD69980ACF8DBAC0840F9562D8D8BC6EFBF708F887000721ECB471 -8E70CBED9AFD48111B231974045BFD8B819B986A2A9810D5E13DFF526AD2C1514DF3E9A5C345 -1C876CC3964859D4012B8B4D5C30F7678D88BCB85445EFDAE0238F47EC7F315F05874E3E115D -A685E411149BAF96CB2D07E11AF36B701986997AF3656B87034399CBF0DEA055B3DADE2FFBC1 -5CCE1E60A923F7D969923B56DD895FDE7E731E533B54F7C51FCB1262B743B0C73F91712C8167 -92EB70DCB81FB7B8CA522A4384662683D159C003684705B38FD54157C7E39CC4E716834609F5 -D229C3038292FF79812AC85D46B1D323F218B2D24FE0E7CC5B3959456B6CDF0831D9841AF6A0 -7BFFCC7C6A1D5AF5EBC007FB4CD8F2B34B6A2094ED0A4127CC7312E5E316358035979B0E0FB8 -5D6F410E0A9EE6D26839523920CE5070B7D9B7A4B28FF8BEB4A83D723846C712AA8C048D06F0 -F52563ECC9E50ABA5EB4E2491D207057F7B390F0F2C148122CE2721DF837A64E9985C5F1DA59 -6A60D74C17DC8A5C8814031B66B084A5A87AAEED132F3D2BF5C1E7E5D30C2CC5632FA2900A6C -F9C692BF730D6EF09BB22E101C532D8B42CF07B2F8D2612DC05F173C90614DD16510E1ED6E81 -54EBA71B5A53A6A7D8B01903C6D1320921EB39672C0C8DF79C57EA3B27872E5962E06CBA020E -4562DB0B4FD4FECE0D768A6A3DC0AD429D4FC0E81C4B466628C301C0F0F3033C6B73F0E1A65D -F30ED6598178D0856D6068B4655A7E44AE7DA767195C2F64A6E777C965E46595337BF4C4389A -5FE9A246D0BFC54F7A6901B5E6ECB29F14BDF0BC18F332EF3BDE13E79E3D31DFD6AC498D8DBA -B5619E84573A240E45D631D13A802CB7B66C437309C82F0B2B66CC78B07CBBF247814123E4FA -3B46CB699090EC327DB5F8B981523CAE1950B0589CEC2EFDFE9BC0782B799FFF5DC39D81731F -8BCA8EF15B3EFDAF3D55F0429B5AC28B2F63DCAE1DE55EB91A2E8BEBD8BA53BCBB503A76499F -B1C5AECB614108BDB17E13CCBC9CC1FD786962C826DC67FDF6FC2F8E859D581B39EA769E8288 -F6D9AAD0EE3C8F2F8409B716E532544D02465F46538BA5C30C18F181D16380EE99950C348E95 -DA180687C2EE146A057F6B8EFCACCE936EABDFF1EA80030B07A35D366BEE571F1E4DF9EF7A02 -B92E75A56B53A59C8452A276485E984C25363C7128A9E4ABCD25E63750B4E6C198220996ED04 -667D9E810A1CBCC2EE3EACC070A58D5AD92CAE65BFA66AD1793A37A5F801DEECF76F00B33694 -52AC935674DE3381DA560DA38A5FA7D91EC5E2511A36138E9CB18A08BC0FCA1F7357A72C76E7 -406F861FB0BEB1F605ECBF3D56318F657F9C425B13F84C8290BD18FBF657FAF4A21ED9608773 -9E7A658395A8078E716ACFC5623B7B920E955023A65658C238CF96064D1795E7BA944B06BD42 -A2A3188A27D9D1B1B976C5FAAC6E43DADE8638C7B1E556E68752E034D4273BA5A27C28648095 -B94CCE0BED4BBC592A09FBB24EE29F6185CED1820BC8C8CADD424090D8FBAF674F65A3FAB75B -2F955692EB4034FA39274D2E49C555ED63C05A1EA385C5DE6155DBBA265E0F8E5F584655322F -DDB5EEB7D94B979CE0EAE63DB0F54C60D5C6F1DE13BBED71956CE8779CB0863CAC5B9738A817 -7F5EE9C52099FDBAE244AFA7BB2AA3690E0CDFD5C4B65FBD82D7BF2628066F8E7931D50000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 - -cleartomark -{restore}if - - -%%EndFont -%%BeginFont: MSAM10 -%!PS-AdobeFont-1.0: MSAM10 003.002 -%%Title: MSAM10 -%Version: 003.002 -%%CreationDate: Mon Jul 13 16:17:00 2009 -%%Creator: David M. Jones -%Copyright: Copyright (c) 1997, 2009 American Mathematical Society -%Copyright: (), with Reserved Font Name MSAM10. -% This Font Software is licensed under the SIL Open Font License, Version 1.1. -% This license is in the accompanying file OFL.txt, and is also -% available with a FAQ at: http://scripts.sil.org/OFL. -%%EndComments - -FontDirectory/MSAM10 known{/MSAM10 findfont dup/UniqueID known{dup -/UniqueID get 5031981 eq exch/FontType get 1 eq and}{pop false}ifelse -{save true}{false}ifelse}{false}ifelse -11 dict begin -/FontType 1 def -/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def -/FontName /MSAM10 def -/FontBBox {8 -463 1331 1003 }readonly def -/UniqueID 5031981 def -/PaintType 0 def -/FontInfo 7 dict dup begin - /version (003.002) readonly def - /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name MSAM10.) readonly def - /FullName (MSAM10) readonly def - /FamilyName (Euler) readonly def - /Weight (Medium) readonly def - /ItalicAngle 0 def - /isFixedPitch false def -end readonly def -/Encoding 256 array - 0 1 255 { 1 index exch /.notdef put} for -dup 0 /squaredot put -dup 1 /squareplus put -dup 2 /squaremultiply put -dup 3 /square put -dup 4 /squaresolid put -dup 5 /squaresmallsolid put -dup 6 /diamond put -dup 7 /diamondsolid put -dup 8 /clockwise put -dup 9 /anticlockwise put -dup 10 /harpoonleftright put -dup 11 /harpoonrightleft put -dup 12 /squareminus put -dup 13 /forces put -dup 14 /forcesbar put -dup 15 /satisfies put -dup 16 /dblarrowheadright put -dup 17 /dblarrowheadleft put -dup 18 /dblarrowleft put -dup 19 /dblarrowright put -dup 20 /dblarrowup put -dup 21 /dblarrowdwn put -dup 22 /harpoonupright put -dup 23 /harpoondownright put -dup 24 /harpoonupleft put -dup 25 /harpoondownleft put -dup 26 /arrowtailright put -dup 27 /arrowtailleft put -dup 28 /arrowparrleftright put -dup 29 /arrowparrrightleft put -dup 30 /shiftleft put -dup 31 /shiftright put -dup 32 /squiggleright put -dup 33 /squiggleleftright put -dup 34 /curlyleft put -dup 35 /curlyright put -dup 36 /circleequal put -dup 37 /followsorequal put -dup 38 /greaterorsimilar put -dup 39 /greaterorapproxeql put -dup 40 /multimap put -dup 41 /therefore put -dup 42 /because put -dup 43 /equalsdots put -dup 44 /defines put -dup 45 /precedesorequal put -dup 46 /lessorsimilar put -dup 47 /lessorapproxeql put -dup 48 /equalorless put -dup 49 /equalorgreater put -dup 50 /equalorprecedes put -dup 51 /equalorfollows put -dup 52 /precedesorcurly put -dup 53 /lessdblequal put -dup 54 /lessorequalslant put -dup 55 /lessorgreater put -dup 56 /primereverse put -dup 57 /axisshort put -dup 58 /equaldotrightleft put -dup 59 /equaldotleftright put -dup 60 /followsorcurly put -dup 61 /greaterdblequal put -dup 62 /greaterorequalslant put -dup 63 /greaterorless put -dup 64 /squareimage put -dup 65 /squareoriginal put -dup 66 /triangleright put -dup 67 /triangleleft put -dup 68 /trianglerightequal put -dup 69 /triangleleftequal put -dup 70 /star put -dup 71 /between put -dup 72 /triangledownsld put -dup 73 /trianglerightsld put -dup 74 /triangleleftsld put -dup 75 /arrowaxisright put -dup 76 /arrowaxisleft put -dup 77 /triangle put -dup 78 /trianglesolid put -dup 79 /triangleinv put -dup 80 /ringinequal put -dup 81 /lessequalgreater put -dup 82 /greaterlessequal put -dup 83 /lessdbleqlgreater put -dup 84 /greaterdbleqlless put -dup 85 /Yen put -dup 86 /arrowtripleright put -dup 87 /arrowtripleleft put -dup 88 /check put -dup 89 /orunderscore put -dup 90 /nand put -dup 91 /perpcorrespond put -dup 92 /angle put -dup 93 /measuredangle put -dup 94 /sphericalangle put -dup 95 /proportional put -dup 96 /smile put -dup 97 /frown put -dup 98 /subsetdbl put -dup 99 /supersetdbl put -dup 100 /uniondbl put -dup 101 /intersectiondbl put -dup 102 /uprise put -dup 103 /downfall put -dup 104 /multiopenleft put -dup 105 /multiopenright put -dup 106 /subsetdblequal put -dup 107 /supersetdblequal put -dup 108 /difference put -dup 109 /geomequivalent put -dup 110 /muchless put -dup 111 /muchgreater put -dup 112 /rightanglenw put -dup 113 /rightanglene put -dup 114 /circleR put -dup 115 /circleS put -dup 116 /fork put -dup 117 /dotplus put -dup 118 /revsimilar put -dup 119 /revasymptequal put -dup 120 /rightanglesw put -dup 121 /rightanglese put -dup 122 /maltesecross put -dup 123 /complement put -dup 124 /intercal put -dup 125 /circlering put -dup 126 /circleasterisk put -dup 127 /circleminus put -dup 128 /squiggleright put -dup 160 /space put -dup 161 /squaredot put -dup 162 /squareplus put -dup 163 /squaremultiply put -dup 164 /square put -dup 165 /squaresolid put -dup 166 /squaresmallsolid put -dup 167 /diamond put -dup 168 /diamondsolid put -dup 169 /clockwise put -dup 170 /anticlockwise put -dup 173 /harpoonleftright put -dup 174 /harpoonrightleft put -dup 175 /squareminus put -dup 176 /forces put -dup 177 /forcesbar put -dup 178 /satisfies put -dup 179 /dblarrowheadright put -dup 180 /dblarrowheadleft put -dup 181 /dblarrowleft put -dup 182 /dblarrowright put -dup 183 /dblarrowup put -dup 184 /dblarrowdwn put -dup 185 /harpoonupright put -dup 186 /harpoondownright put -dup 187 /harpoonupleft put -dup 188 /harpoondownleft put -dup 189 /arrowtailright put -dup 190 /arrowtailleft put -dup 191 /arrowparrleftright put -dup 192 /arrowparrrightleft put -dup 193 /shiftleft put -dup 194 /shiftright put -dup 195 /squiggleright put -dup 196 /circleminus put -readonly def -currentdict end -currentfile eexec - -D9D66F633B846AB284BCF8B0411B772DE5CE3DD325E55798292D7BD972BD75FA0E079529AF9C -82DF72F64195C9C210DCE34528F540DA1FFD7BEBB9B40787BA9351BBFB7CFC5F9152D1E5BB0A -D8D016C6CFA4EB41B3C51D091C2D5440E67CFD717C56816B03B901BF4A25A07175380E50A213 -F877C44778B3C5AADBCC86D6E551E6AF364B0BFCAAD22D8D558C5C81A7D425A1629DD5182206 -742D1D082A12F0780FD4F5F6D3129FCFFF1F4A912B0A7DEC8D33A57B5AE0328EF9D57ADDAC54 -3273C01924195A181D03F5054A93B71E5065F8D92FE2340939CE40EE9186A0DCC3D3D661293E -C5BB40766B73935EB54125526067D631E1E3D1D6569AB3546CB257C34C12CA4AE98C3F99898F -1448AC0B416B8E5C3EEF3D74B5FD6A1BE3C23B160E7879A9E0AC4FC82364F946003C1B2E0EF3 -CEA944727E7502B65BA1331D36C159E21D107580F28A32E04CB876822CEF478BF4464CE4F7AE -824FC786E099A1BE2A3C7D2BFE2A748AB092AEBC2021DBFD5C40E912BC5856F3EF8615147350 -E75D2BF9E428D7948E2128053FDB1F90CA9C7D6581E25A6645879F50577FE7F0B32B873F13D3 -BFA8EDD1DBC22F7A72A9B2FF9FA56D55DF90F16DF4F4FB35112B654F552FDC3DB70DE3CE41E8 -2FB803DCE223EB75A90166EB7B0716779867D04E559A61BE3E4C937B9335830A304AFA31E2CC -9B678549C18A2AA61D832E11B5B61A70A62A1BFFDF657786124385B399EE436783E586595583 -2D046FE40ED1498536FB796941340200CC19715BA73CAA707D9566A8F262A78A9FDFC8EEFFD5 -598983EA4AAC61C8F04A67C02A9E77DD5AC1DE0CF8F405C7D064CAD4610EB3A4F8862D17301D -B723931EF04659DD93943E24B9F5F4940D211FC5E8D8C9374E2890080595BD03E0504156126C -B73B37D1155F7F639CE26D1E7554B23FB421BE3222383D4909ED0A3B9BC3869DBC431D32C9EC -B2E307131C9D262315414592E475A51839BF04C1A1C790564C3A75123CF8A9BF3BAEBAEE1CCE -A8C591FF050A91940B3854399F706262BAD649221D59C9B2E935DA3B1E3EDABDE118065A6D95 -6D7BBE8038D64E0D30C63ED06F77111E43BA3C28CC21ED4BC4CA6868962EAAE5FEA8E4A62284 -B1DF2544AD1F79DEBC69ADD2A560B752F9CAC2C1962D625F267AF7E04F68B46FBE6D76589A44 -AC876AE1F56651B4BB236F99911D8818046AC4EE60505702DF1BF927DEF1788FA7B8613A736C -EC90D50DB7A2D03E2040B81D3E4456BD98269A4202F7BD4C074C5B03B65BCFD4AB26115CB46D -C5BF66D961ED3EEDA0F5DD6CFB1CB130CA7E0579844A00A2789D0139AD1789F6057A055994DB -311FA6801853495C66E9E422D94CD0EDE32AE5AA2AFE5C951A90ED695ADF23E797DF8E74135C -E0B9D25C4B418BDC10763DFFEFB405AFF6326FCB9552B2FED2764911DCF0D422D117846983F3 -08F00CAA557920687093EE3DE674DE4E21BB33E86EB861991628E90194E00483D5F9F8D96D55 -6A5843F3FCEF66630DB78017222C2C9535E048E696B186944C3386FF48EAB1D1F47B61B33F38 -FA4F5E4BD78A0C754B59973CF53F057091AFD24B0C66F9F90699C106F1397E296867ED95DB6C -9DD7EE327ED0F96C43C583F0494600A4EA981F6025B014B79042B5B5CD7490E9248EBC3B9DA9 -9E6D1A6B200C4C3C303455F8E6CEF0C0FE13F2DA6588AE5B38E422705E46C20C3F8065CFEFB6 -EA26D0C228210E67E1788E69D137B71D4F0E14916A00E72D68B9C59A2FE98B5C0000B977A4D7 -E198A418B61115052ECA0204F3FF794218DCF2914F917B8D579E95D25E274B62B4837BFCDF2E -0C0EB3DB966D60BFBF9978DADEBEDA25000264F7FBADB45EAC7AE4BEA6E5E8B0555AE9FC8937 -2834871858CBE31FE91343F92371D4140DBBCDA498AAEF0246026B244E5E8DB7AB91261C02A6 -5A6A7605CF28E050CDB6C3818A96AF7031E245B1C336BB1227E3DB2D016AEC9655B0FC499575 -4AF4AD62E98140BC09D7A7B3BA96EFBA78502B3AFD3D2F7AEDD22C229C4B5FC47944BC98F4F6 -45D437C05FB3844368ACF89B7C99B2A63A978BB74532E83D215F852A555F9FE4771C63FCBD0D -6C014AB48439C24E8385DD3397AF3A238338EAC6D8BCDE15C639490110BA6EB50DF6B898D182 -2D229AEF0CB3D9A752B0E38E160012977A16FAD1683AFF0FB295BA53197EF81E8C6932941D57 -52FE85CFA133B2065EE182678213182420A61820CC9E5C4215250C00A375949C466DD81F2BCB -1A3C6509E5B48633E0ACD1E81336A0730224AFE4C111CD5BC7410832C627314A85245A317981 -61C069356ED0A5BB49C0AB9B8A181417E2DCAEB7AB65431B7B709C777F3DCBA13F1243B21826 -7B46AB1E51DA7CA16243F0D7EF3B705D7F54F7B6CA8B9C33D90D567AFBDEBCE6A9697357EB7C -4A40EEF26DA520E6C3259C8E2CEF9D78BD464F689D2387F95B0DD97C66FC2DEAA91B347278FA -57607430F8A1BBEEE530811B04C73CA11096AC75A0E8E79BEACD0108F4D9BA81E024D5F5707E -1DEFF74DB99E15F9DB9A13BA1F7B5B57EFD734405C95240FAFF4F02835F5431BAA71528D171D -7AAB4FBD272F6F4AB5560E13AEA772E3F0C8993EDE0D6507051CC11BB9A610BCFAD7849B97D8 -80EC6D51523040C6F9CDAC6E8624F791836B559987894009044BD392604F49F47C23B922F5B0 -82B3F2E5336732B9EBBD8151B5C32424F4B77DE7B3CA90E064D11D60D28C164E46669F7D08B7 -0A615D00714EB9BA1736DDF4EED5904A11BAD5116FBC3F5E5CB59BEA1B2E75CDA118837FEDC8 -2AA993678827C861FF0217D272FC3B7B84D0BBA82C9C538CCC0768F8F811B686ECBA81947567 -95A716D42C8ED0016DE62D9F2E9846E9365D07D8D5BCDA6DC14A2EC0F394911DB28A93BB8A76 -491C5780D7E13620C03EDE3D115186EC0AE82A68819C83BB229898CEF76E2254AFDBFA67A163 -1F06D1E0790A7BB2BEB1A1674AC75D177809CBE96EA08B7BF2EB32C17F33BE7151F1F8BE6F5E -97C5D2095F594985FC7E1D6508EC606C3DA64D34F1FCE5001942043A112BE85418E20C8A706D -12B21E57A77583DC31D8ED788711BC87249125E730F25694B427A4911F8CCD8D5437FB5B7B99 -E1EC23BBD4FD319247EE2F69EE59E8809FFA8DCF49514B4F34A8BC21BD599549A12291070C9C -DEF43B4838D0F8CB7FEEB43B22DBFE784C4A62D6CFA1CCF86673698215BE3A20A26FC171AD02 -A8D41D03F087D0B48189145ACE14876F3CB44592DE66DAE5845F7AE027BFD74592132D1D6943 -C31E1298496D435344224C8BBE01385BB7963C572012A7D7F21287A0284AF56B4C4D96A61404 -491086C89747A8C3F5D31EB0DD689ECFF84375DEBAB29E62FF308212B3CD3AA08E1B2950BF13 -8AD33645CCD0FC084E34D9C11579398D624C4C9C749193B6B39B16A853B3BDF5ED1594926192 -ED52E2862445DE05696C9921EDB94AD53C19352D695D894CF108E529C43F54F76BA6CF5457A2 -C58196D8677435D9CFEDA1E621A402AC560C2053D6F65918B68DFB7D6F58F2A15F1F42A4E38F -2E7AED817803F2DF3629C2626DF8B56EB23B59452CE5B8ED5097C9BF2AE60CEEE9356DA1DD0E -BD42055A40BA20B6A99C4EAE30904135B241AECF74B85512AF0F628CD50C881C2A347382848B -9E0B3FFDC33E9E6016F7AB2CB5D719C81FAFE7D596A0120A9E439B2041955EAEACA649C3A3EF -7A29FF4D172B83E347C911FA8D00CB779ACB34284080D5D78E1A88435E4FCAAE918210BEBB13 -CE8AE19334F2C9CF9CFE9DA144D511FB08FEE27B6B00F22F0A4D24E22F18846340A7D0ABF9A7 -E97131B01172DB2445C1DEE3066BDDB64A8BA1B26FD73BA4FF9435DD09E830BBA8859A4F4108 -DA086ADACD287E6EE7EAED3669B3C12431678EB821F0D4F25334C7E6C7F5D3EC27CE55259506 -56ABF77541827086EABA16E1350EB20B245013CAD5890E059BE8A81D313AEB512F6D8DBAAE94 -3C15301B98435CA7F6D11C8815FA380F2F9C6C36FB1AB250A16179236B561861601F5963CC4F -6545E18E5340FD184239E4AA8E47B2C7D26FCF2CFD284B04245E16D6F9BC1E841668BD26B949 -548EC984C53AF62953DE765C69D4416FF5E684584B115CD89BF6B78C163E4ECA1A8E13060F9A -15CE18808E888CA6EFA5A7214571C284C0FD4169D5F81D5370F4AE775F854EFB8155C58EEADA -24D66B32F5156080830B0D1FADE3AB220E6697A5D848FB41E72127207A9C7AF0AC657883EAD6 -FCFC39F5FD91B2A9E4CDADA20ACD938432ACADA865CA732570B09107569A3D9B296F46526BE1 -575050F09FFE8375370E5CE7AFB7FD54FF0B617D863E79B3D55C77589BA2B227FE8DDED4DED0 -B6601E7E9F73DF51DA79B9AD0A69C2CEA513CB2AB29A3CD62429C2C9A5254FD4C3AD33C0F76B -83B5E471782387CF100F9537FC417744A0D6FE59818D6F0083767EAF2D3E73F25BCA2DB68E4D -70A97E55972B81DDA797AFD8FD42B415A2B0F51D5913DA522CD6023F69E0AC30F0FCE7356A2A -0E75680F7C155E4B988320C67E8C2FA47B336C579DCD90047DEB9586258A3D751799822682F8 -ADF0BFF1263405FD57F8CE1897DB261700E4054632A1DF197C4F088EA497B7D78C54690F5047 -8BC425FE3213683D27AF4921F2CB879F3AC5960E8F546D697A864C98D3E38003860C6BDB7638 -B40C344AC0FDE0BD0131C05418911EE67A72F039375E64CEB3BA6265A94EB8F10068ACF34AC0 -043C59C0FF0A794BD17B59A6B25208DE84EE99E0EAA9053190F996AC5D9167784FCFC2A6B88A -348D23BE715D9344B5DE39A9458EBB42487FCE13235D83EE8D6F486FF37A395F9F7DA80C989B -257325E17C5883100EADAAFF16523C880C1012CF72ED46EE6C7D6A9C267F0E063B29C6CAC051 -5843A439194D27BA23199F980C0D5C139114743C9FE47F530F0F05330B289D65848E69256E03 -C23C534E6176F2A1032DFD7B6757EBF8AD917846F0DEA05E9A8BFD66683309091B44988781A3 -332265C54B16E68029F88E3CFF24D874059D4D8ED885DC1EDA6122F9351F4211D15F8F66E55E -0DF49445BF9AA30D0DAC0085A8502EB402AEDC02767F5A5EF187B3390FF3F9B7E129FBCB6968 -DECEDF2AC7BA3A47543C607E85517ED9122FBFBE3DA556DD0370C42698753B4BC63C4457F996 -53EAC9FCA3A18CCB1DFD083998A442678BEEDC5E98455C27A6E61FBD8AD359C977766FAF8B89 -941C0EF68B2280C9D86662ACF81598B00E3A716B6DADB01120672974DA2C45EA4F68B9DB5A61 -9EEB4F876ED3DE48939AE5BAB91217B733A0F9F41FE1B7B678851A596FBA5CE8EC8E18D1727F -1E23B996EEEB932F201A0938FEBBA83885B60424E8A29C9C62D963C438A17EBD733890FEC1F4 -70FCF962B5481C11650E8100F9D8D78F6615F3E7CEBEA50FB173C46AEFDF9A3C6C0D46B76EC6 -C071BB117524F9691571F9BA4CDCD5AAFDB9A422F3B6DD41BB3CF8BB6F47906DF794738E2749 -B330FA06A06AEA28132B85FFD10138C0DE322253B09EBEC8A6953AB02A84326648888D44729A -2622D0082263D9A626FEED7311A5BD437F18B500CE76FF0A6CE88D33048D491289DF46C05166 -13D268A665678E7E1ACA236B70AD8C5571906C646FB25A803C04A147160783E651ADBD506E3E -FA7B97AA24B6C2FF2B330A16D5A74672B473ED1B6C6977F85B1C386B99E2E2354F20859E67E6 -18D886D437D745E5B6C946FA7CEFAF9B2DD7305DB08378D85FB9F31FDD1900C8B6F75EF0057C -AB5A29C4A4DA4FC525F3C14DAC9A86AD61DB017E26439B38B09D036A8A8F6EE021BDA348257F -0E9DFC951E267AF597AF38A58FE0DBB733F1E4717798D02A7CD6921A4D14AFE7B492CB1D909D -4C409A44F34115884F75B18C239BE97C4A07699CC61B8078F1161B2F79EBC5736DC4B4BEB0CD -59F4C4FF57CE8E4BAECBCD72B5FF95E41286517CA291A5D6CBF8E4B413F5526778F01FE2046F -641065019CF8D7742A799ECD807958EB50168A6FA322FC31AE2D2E39642DB6D69AB883C9C63D -E88E086E4376D7CD736158894971E5F59812113CD74DCE8014999CF2606B35DC2DFEC6704675 -520D40273C367ECD761C574566B9404D78AF4F25FA130C000BCC425A54F80E8A21B4D02BEC1A -B6A4F9A34D107F879C211817875965D276B2293A1DCE716FD7B4E1D84C5A34316F096CCF3DE8 -C796B0863792BA24750BB3EF40A56864EBEB96DAD36864C5B8897C9BD67ACD75099516DBD970 -7907F384E7640A4088A480422AF0CD41C344731D13986123D884E100BD8163FE3921F5FA9468 -1EB4060A2F5E837010BF8652F71A109C1FD985BD0EE41387E51A6357ABF735CEB8B6A82BB4F4 -C4E32C32066872C7DDDB6DCAFD4A29ED482922DD71867B2D57655F444686356D910554A48097 -1C2F212070FE475FF189133135E93CB80DD3667242242635D1C559A2DDB7F2713388723BA47E -28F695627E6B11BB4FAC563BCB03A29BB6D2B2C443C440626BC469B5E93EF14AA241560A12D9 -0F4E9EEF53FF0242E977006CE0CB2CD676FBE54ADE622E4F8E9EFDDC7DFFFDFDE958D6E4ED7C -530E24EC19D6E91583E9A7FA37907B4DD2AF4406766144294A6CC165DC44C82EA61F7BE4DC31 -0326EFAC9B0D9C0B5AECBA5BAA5C63E17B62406D8D0D3D846F68C5EED3640F84E656AD740412 -BF3EF4F566E3B0338BC75E9981214A90E1B59973B565D2DA08A69B0FE8C6113B1B5650E6DA38 -88850018B2332DECB3202DBEB9C505D09C9344B27E8B4DE54343F4A289AE94F530D48B843205 -F0FFDC863EBADD19D914C447862589764F9654F3B4551A0A01C6FF56D8FA71B907C8087A0CC1 -C2B6D3873180DD901A22B428B8C065331B7702990835BC7CD5B97E782AF7174D0BF0AB2A2F68 -5647625942CCACDCCA8DD18B83E891E39A06F7FEA9D301FDB07DD751CF51AF59F4178B52EA1C -CE753E616241B142F96D8B0927F0A0939CA95FF98C85B88676F4C0BD13F6CAA75F7943ED6199 -E332E75F1A9ADA079363E7BAF7CA2C553145218E0F6190EFEBE87068C060904D85C2C01AA830 -6C2B1844C57AE7F33A850F3E733403481F10B6A999064045FD892DD6DE72A4CBD06470758E22 -97F06F8452B106E6CA5DC2FFFEB11F1FC04791A6611650F073263CDA1BB22DC5B44A54E0CF76 -38DF931D4CEC64B48F89D0FFCB26CCC2A8AA7FF5B151E522211796B8381AA6020FF323AA6EEE -F9E47CE1F270D51CB34D733BF9525676155CD2C28EBDD1CF51A30FC6D7AF691F59C168A2D5C4 -629B8827471D46B9802D188E056DB3AAA0F802943327E6EDAEBEE72FC2287842DDB4E042DD38 -E884BCC7697F467D131EBB83FCEA276B81A0DD5F1F1673C8A13EEC22A993867906D155BA3C04 -A58159EE4271ECD8D19008E04BEFC537E6CA18CB71CA8D08FDDAE6571C41CE03053E95BC9A55 -72723C69CEA09E21BEEEB7A0EA3243923C4927B94FF682FFF27D08370980E281912CA9000E98 -AAC5AFF465CDF919064E8FB9EDC5830FD64917524BCCF6024190C03567DC5C2C9D89E59FF3F2 -B657DE3EE78301D067B7C3900A90B95B745C865FDD0E7C53111AF07B5398FD5C7EFBCAB74F57 -56B70C7A271B4D44434BD04829B48D14D70DF345C4CA580E76A801FFC8CF06CAB44C5CFA03DC -7CA8EC1CE830B7782CE987AF02324916C5BA19F01957A7A0E17F31A23B4825949FAB2921C78C -670DDB30E1EDB06BCD11BBDD42DFC24694BD6BA6F64766ABA6CDA382EEB6A4D348F7CB8E53F4 -625C2969CCD2DF60DDAA28B79F52B8940B780410154B02A0600ADBF84D94D7F3CCEFC18B5384 -74BEA0CDB34FFA53E618B9C97F56794B37151858FA0E382F6EA5792B703B536B0150E403F612 -2DDB93E56377904AF99205DB53C5EA22F0074886CA2CB56EF8713E075E43A166E2E533F1C050 -56A1FC42A5545DF3EC7AA3F7E1856530F14650134EABCC3A03996EF52A5B2E0EFB36DC6E6B61 -FCFD3C2BA11CB1857E4DB66CA9AB74085CC1DA905F3F0A400BACA04D67C8A54C2223533E3493 -482391604EC3CD33EF1F056EF4EFDE24761911915BDD95B2C3A4F707FBE37CD7B21CE93BBF43 -1A513BA83C28B188B8B8509B9A8CD54EAB660B8E66A6F37AF8BB91119CB9CDEFEBBBF4A6FA67 -51C6DC19E19CA5DF2F8CDC9D499257AC7312FAC9897FA6D96C2135B6B3605C24BA89CB3E06E1 -CC6E04EABB860C8C54A8C5B98B63008B156E60D02D3472B6B93D28A18CF021F405EA2DE39048 -F92EB1F07E6F4C1374DDFFB192DA7E191A323BB2193023D02D8973137B1A8C44EA659C240980 -88BE525FC691750A4B67B546B3E71F38D42F4E22D5630095CCE622D1972FC808C54FE7930123 -A90BF2C975FF818253E68D04F44D26F4343021DCB2093F494F32AECCB80BE7D8CBBCF371B48E -E1AC7FD01A9E4F3A6364EE78C8092E8140D92815C7C911FE5BAFAD597E3632A7A06B8C05FC5F -8B87A02183087193EB7411D027A29847D9E29367D3932AD0F6BBACFCC966652DB9A010250198 -BED7AAB47399053671A604B1B1CF8BC109543F4B3E7A054A63E9DFEAA15F7A7FC39DC071F8E6 -3B22CBA2129ADAA29CB534581ABDDF50256D1936174E14DB7F6C115EE18499BAEBAC3C8AC124 -FE45D53EDC134D23DCAC1A0B026DE8A806A98D112379384593CB9B5879D4775F7C60F585104D -0725E350FAB563FEBEAA1DFC279CB3AB52753B36705655AF39BB310B9D12A4FB00F76327B6FC -ECEF1BF2F626F6AF38C90035D9256D82E999F4885FFFA89308A78FAA8CFCAE9A895D47D5DDFD -C2214F2C836FE52E18111F2D21A7EB1A181606064BCB916D8A0C70C02D23F2A7C266129C91A2 -A5804EF72D908BE45DAB0A4848457A646FA65C1D857B475CF2E431D8B3C79D1D4AE53608D3AD -60840594A82128268A9907C8AE6BE01CFA0D78BEB1A0F3B4C88D4115BFE21BD172168CB65666 -EF962745033D527E8C92DD5F6A89ACA2C20F6C0C6F56FBDE7E631618F48D633EA6A78601640C -761189151C97F6FCF66C28E1A26669D08B46C941D59CFA44DE816A9E63783F781062577C2373 -1852B69D6D778F5D5CE3ABAD3A3E384B6993EFDAC37CC0AC7674DCF9F304AFA7E8F6F7F0EDB2 -46E85E519BA1BFDF20984C484D7968FBB178F7C8FDA32D54F1694A8C509FD0F9539F3C269C62 -34D9586BF4946C437F4246739881FE4A485A03CD50723B787FE146D93F97A3214A47893366DB -0BF6587DC27269C1904CB05ABC8EC341CBC9247B9FBCE05AA23ACEEB7F6C18864DE253E3CD4F -B898A052A0B1A5AB99C5584C9A64BAE28239DAFA7C6F18D0422E0F87B0B532D1760099BD1396 -BFB715A8E1D4B058DF3A612C3ACC7CEBE1450B9299E68D61EEB26E2EA78E69FAA8E84A910C38 -440C5A599E83D7B9E9C9C34F449CB1D39DB285D7EE1A4D1547007EF813469904235C1C22C0D2 -3A1EDF85BFE22A48979E6EF8DA999626458F3A23155EF921A3F63065FB12B02DDD125CDEA24D -6B3A4AEAD23F9F5B5B1A3A2196B73103F75C3AC0CB1F5D65F73C77833C5717466FA9CDAE757E -052FB41B332BE80B57D096CC40E931BEB0E401C4015CB12CB0EF7889AE9DABE4864CACE4E4C6 -E3D16726D01C4F97C1CFFE327147A0D227FDF029C9D65E0F4A601E95FEAEB30608A512E39374 -BDDD5276D1B08DDCE2E3129F59FC510A6ED78598D4D1456A0B5C8448D0420E1DBF8EF22603F7 -90ABE4416FA55CD4B7FA8FD316C100B42746149857E19E0CF05D6B14AFD121555DF7A6DFEE3C -9726B372B7BC6DE444FB243596B5EB3DDBFCE09F5F8B612FAAE92BBF0645F4CE71F796319F8E -6564460CBE4D5E4B1EE1F843089FC361FE999187F5BFADE3346934A6F5EC6F659AE7FB800BF2 -10A88972623A5AE2B44AFE8BCB2F72C547833C13B82D14C835A659B34B402357AA61502EB2DF -43D92D772B3B2CD4C11AD4C569CB28FDB3EB6ECFC7305AF0A479350411739B53C6A24852F9AA -B1D34FAA4559B04CE8C79BC05DE536B34845B32A3334958009F2A3D16F24E2DCAB8F269D2F06 -F67A68848BAFD7388598F1350965041544498AE3D05966F76DC4A0D8578B61FA58588AF9C975 -8E96D73646A268BB112401FBDA2F289D83B35D2881A720851AF0AAF4C713ABB3BF00C098B593 -80F595CFBECB0DFF2F1F75F4048C63AA0E6CF938598FB53DA57DD646A67BB60089C88800B05E -434B29604C84415B91B7D16318F06B355F49C8CDA724D1790873B44D0CF8E255073C089C28A3 -8E1A05FC21E746A2EDC52B943A33C602DE2CE6163299478F72BC437E77BCA5C8E8425A5A2027 -3AC46C672AB594515E77BDA64A36E92759DA17CF32388072DF0F0C75953AA9A99C68EBAF8737 -0CE6B459F56105D83152D662C6717E289BAA71601D3DD1BA64E896EDB2ACF3F698B6F3D3FF70 -BD7F50DE344C7C8152B11813D15AC0DCE3C52331C1662FAA940B79877E6FECFE23C30E4E7DE3 -65C9956822B22B9CC8A0E124CC0FBB566F77D4DA319B068F0CEC69282F2D0CD5C423F943386A -45621E12995FC7EAB9DCFB274DF368878A8D0D23432D97335F9878A1A3C2B34238F984C1D0D9 -42F0FC6C9B49C8E460E5BBBF067E8DD9617C2D151D863712F94A1F2C4126F62D11AB45A5DE6F -9AB89AE719923C6AE3C96055056C74E7BD336257BDBF3850A455A4BF81D4D49D7DAA3183BA6D -C887A630B160ED283B723D270C77A0A138180ECA88253C2FFF8FB696CD4C8EDAF66967AF202D -14DD6222F636BA37B418643ACEFC18C15E34F70561F4347872D281ABB8022E13C0E26A7F0475 -526C970725B9195CF498915E8FEC749DF377325DC3F06F1EB7E3B6F613767E7B3A27100405CD -30041FEF5A14DF16C10F38588227F335367F60805A230721E5175085922A6B3ADBB549769ED8 -2013B991FB75F58DC627D808FD828A09AB656294A1B17AC0550F1C03587894EB357482871CBC -F410539A5C096960069B863CB6840BB1047C622130045743176D249871734579074B3644D8C1 -AFEAB66655BDB867AAF5765CBC896AC26455A8AD5C23B7D0E944D432AD136F4095B56DC85BC5 -0880868CCC3B4E655BF2A7957D029BB619374954A90606904A115CF19F8371C750EF65E75AF2 -B4A90F479AEB32B0CD39544CB8B090E3434034B8BFEAF4DF93C15B303B85F5EAB5E9BA6317C1 -1E0EE9468C8066E6867CCC22B00C04D04E53320753B2835BE2BE982BBC19FFFEAB444419BF88 -303B539AC24D9675582BB5B9163BCB7348C27BF264CC73DA9A1547FB73853726E3FDCF7D711D -ACAB63E7AAC4169F05F92B521C36EE700EC66FC7446F26D504CBCC908DEA5ACF45B51317FC54 -0A77E489B4AA43FCBCD41EAB3B99BBF8A3BDE9C486573E9141D7CF07CD2050CB9FE39F416FB3 -FC681F6273015D71EBB8954C3A90EE3E3F27A78AA6B57C60EA790148D19AF8F5FFC78281DD52 -7AA5F923A35816CB0348C2AA1654604525E8416562C7BC6DD18E71DF1E5170AE081644B0DA67 -4EB37CC675D69714D8DD0AF6A99947DAF8E845F7E9C450AFEC944B05A93034EE5005B13B9D52 -662BF086A382554DA49A1C002FEFC2813E4036367E1606EB1C7DDD6ECC43AC9E29613BB6ADE9 -03E7078B87BA467289DF60752660F17E5273DF40B4E922D522627CB1638B4246CF61516CD62F -BF7C3E07B82BA5D2F740352A877F875BE5D9B8621E8E4B2921D385E88B8F16AF35960D056111 -E37B91387A9B75AB63C09193C40B7C01D9001401DA0E14BCEF552FE5C7E058C44FD1D4186B68 -DBE770968314BD11C5B308DE4B15BA5F5CA5F0DCD9D8595D23E0F83B9B1D79A5A69E370B2D10 -BD85B59CAD42D64677CB86C13A11EEBFBF48B2DDDA622F64A989CD12FCC3F5BD545772AC1999 -5429EA64D3EBCFCB0308674B6DEB4619884344DC0B70CC8FECD540C8FBFC589B474F33153E29 -0FAE2E7DB3AF0320552BC1558473B1644548821305F52F42804838F417FB587AB53139D4D37B -0960C7D208E73C4F6F80F01B3068934A9D091991B9D8006FAA5EE835C493F3E05460010ED712 -A38461083B567BBC368081F27816580751A36F086B38787FB467B04F6DE50F28DF501986607F -76762EC89C6C59C680C240DB0A3A5481F5184001EA76910EBF9F85CAA5E93A2D9F1121A6F76C -9B6DD93C12E455CD854B22ADA9B7D8666DA8004462E1E5415EF936896D66A1094F8FD525EB1E -B7E7E33870864069CF978E20C71539D64328AF77BAFBB0C2CC97274CA67B4DCFF0E91B330322 -CCB02019EB20AE8908B0EDFF062063E8031788AA0DCD2EC286CD9F007D90FF57C94A7F30D830 -F5BAB2D6F3B11B50A36AD53F03A9ACAD9B487DD5A07448D18E4C7844066EE268EE92284BCBA9 -C22905D3E296058C18C8E83A2615A2BD9E2ACEA4636D69CD37D2D29A2DD40C61C96344FCC440 -CD08E29A2B2DE2E686F66F44171923AAE2B97A36F5D0BA26ECBEA8D32D24588BFED3501BFAB0 -2D8C5CE4C5DF62F66240367C0AB852D2A3BA7FAA1518A14C8153BA95E5FE0C1CA82E401A42DF -13638BAA2BF29ABEDD696D7E7E5DF11B63DF3069B0D1165460549977AED1F15410D0D633FA13 -75853E55AC6689C52B018E46EBE6FE0306D09F91BD79DBAF8F53B7617D89C45CB3465535AE51 -08F46D29F46D54A05161E32994106D3D23E2A2C52367EB48B05E5110C1E6335D1421C258A860 -D1E9624F83EC0DC17ECA198C1A5C5E76A3F4A6C978AB5FA8647D751F3B12477AEF95D75E336E -94DBE20E1A5C684C2F91FA1B7A8D65D3BAC9F0E9D2AEB111BE9C261835E0A67102CAC6D175B3 -AC5281C7136AE7B2AC7F9175DE3AEF5A775CC2DC06E4C98C6C0B4BDD65BCC746D26988BA5025 -8468530DEEC92999DE8CC6C34FBE33BE8F2E137A89877AE16BC30D56A07AD9E9F61C1437EABB -E0FFE8B3F2ECDBA6834F020E6B8470D1DED2ADD8D1ABD4F6BC758432BA6CDC4B8194A75E5D2E -EC2AF7DA5B5A9BE449167991D7705210A18588CCB0A427D22C1B2BE417B8DCCFB90ACD77C949 -17DB4AA2A0B132E5A20E02F4D3943C3F7869E3DDCA3978CB76EC70098DF7416DEA6EFA90A23D -A6162DDF35BFF923E7F780894CD9C3E86949D065A71CFB5E29B767223730D398CA34E8BBA8DD -B5471D747F024F2486E21AF7CA11871ECE63ADEC20CAC82838A7B2747B2C7435A7E198ED3AE4 -F3C861CB90E032ED7320AD709D470181BF9EDF1BAE5C31E42F0B31E58BF31FB12405E4BBC969 -313D197296977F398A16E8B0C4F5FDE81F9EEAD39A99FBA657AA21766D8A7F26E67CE2A42281 -3C24E51D923754BDF27BF531A3F2B843F3F7F3092DAA625C66DBEF56AA0569FA94D2808225B1 -07B93F90EBD44ACD07724C6D3A92EA461238FFF85561B745A69AB4FFD01952F529F0BC5FD425 -0C83EF682AAA481BFC9C4F84861DF9643F8014154E3220D15F3037F29EDFC1484BCF13F78C71 -06B64E437E57006D2EBAAA073F435A9B0C6034DA5CEA22D97C6F4FB4D317696B327296B71F09 -FC3F96A078A457857C627764778F1A68C31EE22779A6FA89D6C59AAEB4941FDE11853B12A9A1 -8D52BF2157E70FF95CBCED7DEA830CB9E6594F39479E764FFE4C35522E3FF4F8EF7819F0E075 -D716ABCC9016565693F995ED85CF4A825162725B88F3F2C3F225A344332069F3CFF2336E82F4 -15D840ACCC738B3E713FE98E10FACC74E46D035DA5476F50D04F7E5FA5282C45433CAD405E4F -B6039A6624F0BD75367FE91CA9D6773194016C83F61D25BF2BFCC69BACFE77E04E44CAB6E917 -A8A9503B60F8ED3E4F0E76289856076D6D31BE6393730E59A1A1FC843CDC61ACA1F224F74479 -8EF64AFAD7D4A61B395D2CF11E2FCDD83BE9855C0BF45BAE999BD650B1D8394BC33744C71030 -CDBB345E209550DC62AD0A81A2DE9D3E320D2F1B4E904A71942568732428BEAA944BE813AC01 -DDC0A314554C18AE286F3A5CA4930533FFBFA7D387F7D1D8E4840D70A56DD9E231335B7D6546 -810C7819EF453D721E6C3E0CAE9F20CAD7AFC80EC74EA28D6706C93CDB7AC5A5F152C72F6DDA -28A23DC436865D5CEA4D15230D0FF652388BECA57E26F5958300D6EC5FB70A9EC2D2ECD52A7A -6A91860ECE4E97A6A3C37EFF8BA1CAE783BFA8E39DF1CDBF47AD2CFB938B0A14C55974A90849 -13CBD4E62B4169C68147E015AFAF1588B78BA96446F7DFD6FF0FA3545A09DDDD7C14A6016F9B -5DC9B680C786314930F392A62484D02E20469A8CF0BC675E30C5AB5A6942F83C726483FB7F94 -EDCA5FC4EC97F7E9A059017F4F50E170828E88AC93E58CEE9BA7A62A4C623144685BD286409F -1073872BEF181EEF8DD8D68969EFB6C82877917DB4483E88AB32744C6E0662E687777B0151EF -7CD58A1136314E9E1A2CCD3D9C0A8A2ADEB21D166AC978E65D4939A819E0EC9109336A55CE2A -A6106B7BFCD573A5E02235A8F89ECF0AAA1C211C0958D95CEC83DB473F7722BFC623264E7324 -8C6701FE9EC21EA2E6DFF6E63059D9723ACEB7C203ED6DCFE6B478FCBC603C4D3C62D2CBD836 -76031BB3E67B9EE77ED4088403CD582FF084EA1D1746EC16C7EE4B2AE4C9948D2D566A04C89B -AA0F84F5F2B822952CE061DB574C7294BA0A31CE01B09E50F05F985D9E49E954A783FB47CFF4 -46BE5ABDC28813017CB1F7F8AF12DCACC23FFE053351DC04B9184D9EDEC2AD6A6DDB3D0F862B -9BB88717BF17C3DE064A8D4E12D9C23890AB6A5473B3DE1F4A38916E9DEFC33C716191DA77C7 -124F36128FDAB6A800152AEF72CE038ABCF7B19664B2A775F7358419F735C2072FB4EA351493 -663AC72D38AFC3F4E041B3CE2C40BF515AC3210BD94685C9D7EC79B363FE246DD208874D7552 -710494A1D3E68E0D1FA534C0799165E1630BEEEA86D1D023E6FFAD6BB9F6689300D5046FA438 -EEFD6F08ABA1055EBD6EFC0CDF28968DB1F9D2167E451579AC2CFF96A0B843C4D9D842972F9D -F0AE686A7E74D8E1DF7CB176D8D6CC65F437D8840031BD68BD0DA0677BCEA9C1120DD054A0F7 -98DC7F59163C0B94B27DAAA423D7C8ABC73340F7FE6D64A55475D8BD014BC01433159EB14FD1 -946A50D39D9DABFB707D6EAA03D55522AE84A24A8161C111EFBB913A32BED3635D99B9D210B9 -EE593F00644D679B9F172AEC8783ABD005E09F603AE981870CAC579EED3D18D4E45C1DDF7E50 -D60592A0E22A90DDF98758A92D5ED004277421FCFCCEACEB100D869C3D58AF4F82FBE3A98374 -DE05853BA4F4F5B20538D5D6B4D35F2E5D1E9261884D0E7BC581E15D4AA89AC25A7518DE1549 -E592111E24C796C8F65DB51133E65872982AB14883C493C3F753C03E3D8E1BF903027B4604E6 -630CE24780821FA17599C04A0D3859F554843337519059EE7A6425BAC5A5D80BBB8220DFEC9E -0016904C0BFC4B83F2F4AC8447A51D6082E4A77DCE02593F3F6C7CCA7AC8345CB64421B66E7D -09E1F194DBA5D2CD6EBA1F424F897AE024E79C6163F85BD3A3B1D7DBAF77BACB6AE53B356E69 -3DE9D2D76D596783AC50B7F24A2961084339202EF6A4614035DFB84BF034E90F95FC8E49A43D -1A222D85B1B9346366E714327B70B1106DF091CBF6B5201B4557418A1528BA56AE5C3472C508 -C524D8E06A18C982E42F5A7DF0CC8239CED29C2259B8744854CD04C24D29C20EE5E9559C24E4 -0F174D9625D0B4E43572EE9CD88E006581A17A18E55CF4C0A451713EA0C0C05F431B4BAC2277 -3DE75726823F7141A315A8A6BD0BBCFFB187327A6B12F5A90FA48DEB89E164D94C09C315B63E -4F91772922A03726C644D2AB8B8DE8D8A200E55902699F17FC0789464BA21A8ADC5AD0F9A09C -74AC6A8A93D59B10E798C85AFDA53319186E3374FEE63D6779940C053BB13A47AEBE765452DA -B1EEEAB401671316E01469072B31295DA0FD4D73F9E3E2F174319B9373E4E72CFCA356B7A08F -E4BFD1398741DB93D57BDDA9EAC85E91F3DA7972FABDD14D21AFEFC2AEF66054A65503A9DC00 -0B40027D0C8EF13FDF81C63900F746D342CDB4DF615E2C79EA227079EDD077FD28910F27F596 -3002CB5E81818D2D84AEF7F56FA678740D8E042CAD26FFC04A6B1F90E5691B2CCFDAA1EE955A -9A1B08702AB47730146247DAD974AB36FDC8E4438FD5A33734A48BB315A2C2F40D45B6C248C4 -8B459CE9F541032EFD139BAC6644DECA869890A345A9802FB81A24B620B5C9593B11A499231E -388C8B55DBCBB6875EDCB41E196D9710F308BD80BEAAFEC0E3124AEAA3DCF2A0E35CB5554552 -852F94A0257A8646DB58F065CC7FC96D2E3F0FBCC99211DAC8021792B42D077B9B4B3EF9C082 -82582BFCF964A17AE5AFF840B7FFEF6D2A75FD69AC4A2A1E3C63FF1E569D6409D33A89BB5A47 -4423D2070003C33DB9913C070CCEF51A5AE7D0E92BDF1F524F5BE82494E2BE19F327216A78E7 -C80CA721D8AE564EADB777817134B5BB112F1D88D1CB32C08F5B82EBE3E26005FE4FE0050ED0 -F12A8DF48C25672274FE808D4E06C02D5649A3ECDDBCE4680975A3247F77067967125096C1E2 -775D190F09355A44D4CCA21E91C86356B77CBBA178A98EE1872D8206EF659A99D5B90317604E -2C39910A49951B615E8EA0E02915903125ECC7CA661A1F877122CBCE3838A9DCE374762E175D -0CBA8B2A39BE10045B1B59683DB5247E4B0316019C918B3EF45CC59322C835FDE19769770C01 -A57285827E0761C9BB28FDB0A0F63F67A0E7074719954318BC080AD2D43F88FCE90F360F76D7 -94A29BC0EAC27A1C35BAF1A602D949F24B36E1FE634A13249362BF1999B6EB81144EC320CC91 -F1002C98D76E7F6FA4B5DD6E79AAB022BF9FA44E2D65CC7E9F264106DFB6D4FF5DC35ABCA8BA -632A5A8EE43C74600A42B1FB801D90F3285A24E57BF33C55F5A6BE4C4277F6B0B92EF65527CB -B2AABFF1F660FDC4774D78C6E1EC8F31EEBFC5129A57F9CF8B20AAC012A9F2D0216F2B072BEA -6152A7E0D05D56401915576C80B5509DFC3E3E66D5121CD45602A3E78A279EDA984DC690665D -12364E253CA187D15CEC758855688EF879CBC1B4C28B0D5DD85F92C12CEEA55E9BCE16CFA688 -03545FA4FE52EB3F39B9E9A69402A6D16F2D030A3B6106BCE83C4678ADADA0EF3B0949740E46 -DAF0A2AF5AD15B829D0BEE5EEF33E38680E86ECF0EBEE3D8BF7B6FE20E77E646A637F2C375AA -5AED9582C386D446E94588E472308F1BAFAB36BD1B1B6B7E1060C48BE5DD99C8857403B2E401 -5F53DD5994514CC8DB253D6F065C016712F2FEC3D922B6BF983EA33A226A29EEFD0AA9EDA472 -407C4C5C6380023C47E4961BB766F96CF532B3FF3E8DB4C7346D19C5758384863248D1F98F1C -9266A34F01595F600CACB90B585A9EBDC76BA70BB1E9AE02865C29E9CCCEE232764FB9B758CB -979219446212758E251D14C343C7F5C3F60247297E530BEAEFAECC42D84C9FE1E1BA90BE2F53 -7F8BE661D2F6DB7C5CF4EDB18C0B0F0B90618F6E464F7D512CF674ED456B0ACDA1AE9E1C8FB2 -63D6B2F04507199CC93D0D4823CCAB354E69C195A2E741587F84D5C715BDE1FCFA6AC6A6C7E3 -4B4E17B44B00B6216053C77C23A5D100A708ED42CBF138FE5ACEBDE51E1EEC580D9CADEFCEBB -C09AC5C0A10E022DB830AEDE96B69E6DB2B1C7BE3DD9151C4845AC2AB8CB3BC8021AA21F2584 -6770653D9A62EF76D442E18EDF565E98033DE444D0484A379FE82CB75EAA4420A940E899423F -9B54696DFB4933993160CFF521A918C733CC3C78AFDF1A7CD2636FFDF8391796547E638CE7E6 -8802BE56B97352A254C761B80B3815EFF555909DD243D50EBDD42DEE4C2C2F9060B5D661A5C1 -25A599B834031EBF6F41307B1522AB987F0846E40447D567163AD3F5EE88212F7FB707950521 -C9E2A09068573389DD5CB8D49CEC9F91A24D742B6836EAF38BB22DF2288438BB856A9FCDAA5B -6264E19D7F4686377C1826A2C85FF2281270AFE943CE62993BF60E5CF33D8EC3F81023995274 -123C636338044D80A7143E2F267FBD573B89FF1E33F55E8F36D81624BC962F97D593C9C4771F -2567921136B70E5227382E806EADD91279354A0C40D3DB426B9B1C1205FCA56F39E1B395F6B7 -1EA6B17D7B9D2EA2A3F5B6227B6920E876A333625AE0D5FC43ED3F6736B7451DA02C1CEA51AA -4D979F4A860DB972071D82C8F54BFD8667D0C8E852EF5154A6B70EADEC60A214FF1AC2AB0D67 -78454D9A36D842BBED27800F5245E10C3DB64FCCBE50012A45764F1DD8A3D379B00C1FC8CC61 -514BB537A92B72A7B5657522470920553BEDC7C472F79E389C5801346C47A155567102C65D16 -5398FB2C69975007C5AF8D2B58FC7B655D8B4AD4285847503F38AA381371BF684A276FCF9981 -A95746844DBF6C0DAD697FE9B271309D1D3782E661DA50F657E2AC951ED4C01CE1296CF589D2 -6505BB351BEFD45443DDFD6A7F1BB81BC5274ECF33152101D304D10B24924EF0B58A3B02154E -19C713FE019616CAA3095E6031AD47E03373AF451EDE21C7E3D7E58D9C61F7C0F8E2884B5462 -857D6F5C0C3FCDFC55ACD2005A2D14A63CB3B1910D655D4DD386B46BDBD8007EFDDB59C77A05 -6F7D9B85DC32CB89929B3C25203169B06194ACC9E4E95B349145DAC334501EA44E728E6ADDA7 -0758B803F791146941345D48B88C7BADA6D97C69FC2C3DD90993D98698C9AE636C3CDD6A7085 -62146CA9A2660614956C901A77A4E401A56FECCACE5A675EB106711890C1AC5997F2D24906B5 -E3DE4478F08CB1BBD5528DBFF18A73D961D1227B92F59D2C9C45D47E1D840A8774C0CCD75FDC -D0E8E56D7AFDB3891378BC46BBC41361BC2CCA02E08B833EED47E08609FAE242793D18EB9F61 -E2AE20881DDCC9E4EA946DE99852DE2B793E222D8BB1516B2A47A3792F0D5051981338848325 -5307D2987B1B0E06D9556CE84D1F6492402229D56C5E9D049A62714A9E996F8BD5A3D5909B99 -B3988BAEA7E0D600ED9494059A6F825D87EC197F07C4D191E8AFBA5C7C93B81E92AF4032B595 -2F9048FDB747147508E25012A0CBDCA3B22AAD6B7E663B212BA370F9236FC7F68AA6CD080F55 -1444C5ADF104AE3BF735DE357816B8A45FE907ABA5D32713DEE7A434EFF8DAEF89446F1691B1 -1FD56AFD1629F35B3FFD18B950D82485CE02BE24BA32B540E7129820BC44864419288ECD19B9 -2955DC80FE931E34B8EB504355E4C104671A065D99FE9FD3B4AEACA7F122E33A8EEC4B37A17D -68906A25E9AF3407A3D070D6A1FD614572723F6CC3A778132982E6938C47589FCC336C77D9A3 -53AAD013892FAF2C546264FD4E812F2E9E20DE480B9F63833B24784F85EFD0471FDEA107DA0C -81013B92A6FFC3FC3FCB41CE192ADF21719759EBAD3CC738076A3981EF93114B2B0CE2A767B5 -A3F5FAC42C138C7414967369F222048B541CA86401D6B9CFEC7947DE6F256F50E5C5C2A42556 -354171D44084A42533C60F2FA61F9C413C53BD204F0C738AB7899D36769D47599DDBB64D567D -7FD04A8C62CA754414F91E61666D6D2C1960F22C91E811D8740C4D8984907EFF42201BCE2C4D -E83AFA917025F48C8D15C7F624F8473332F3F0BFD375F936F425C72C62173DD3FA03CCFB0E9B -2294BD23B719845AB0652288E706F980457E20D7E322809E081D988B45A80AA80991C289A850 -3C957E686D137208EE0E5246C850E55DBE4662D90EF2CAD94D0911A8925B0BEE96BA3C03C45D -BF9327B9796404E186AEF937FAD3FFB9258DF271C45CF26AB23430C8FF9424B3AFB4D9CC2615 -7A8C2EBCD2DBB405F747B3C32C6818AE0DE977BBA598FCF9ED50997421C43BB31179693B46F0 -892E42D4D0358B380B667AA68C6BCDEB833097EC1492E97BF3649C4BF06AA16CA94AB5F10951 -8A8D10F10895AC654311424D03C2EAD2B67CA52AAFF06904DD43CA3660FCD91B724A46F2131F -A50C0C6B82B68A0D7052949BAA79719A19ADFBDF89E7FF6FD334CA673C60195A763F5AA32A82 -A947003872C0AB980C114B422AADD53C74CF167563661DB85D301F54E24F59526221D66CD2A2 -164C2915B28A970702D68D2074018A91B3AEDE1C461CDED052B933F7D652ED92C8CA0229830F -037BCA19F5A036385807C9A2BA11B43F8E7A7DE2F3466E8E98CCDBA15F877797C8F2348F247D -4A82A2101810EEC97A2336EFDFD7C396E4799C6AA8AA2AA9A667758C618CF316E4493FE14103 -7AF3CAB400CAB7AC3C10909F6D1CB2142AC248ACC62B7D907CF2DA64C9A2ADF9F121657FBCD2 -8EEE6B0A04D34120B0DAE8F0B55FF02E5AF8CEBFBE4C23441D3E575B6E8855EB797831883370 -FE70601D46A4F5A99460A0131DE4E7E64B9007893FBEB1EC0D0C4AE8AC11775CE552C02BEA1A -3C2891D3802EC81ACF2A598BE09DC8B0DA351522E9B5CEEC72174BC97D5A0306F29DB5831203 -C3A8178050266243665965D4D80660B47510739B02AA6C963F3D6073DCC7EA263FCE267AD618 -8D0169B7E18F581732316E56AF8C6706A44F1478D3559EE1522A4727FB4F460DA2C340B265B9 -89E1DAB248BE8528160FCED73C305EE0F8A3F9C296D6E3CC1DA790364B19DE32F532FF3487B3 -2609FBCFDEB55786A2B72AA44CAAFB235CAE3B48414DF4C5F132F35E2446BC75D11728D08CD9 -622C8FB25F11AD701A8029BA4B1721E7F8F8C6CB31BCEB50004E770B565A158FDC8BAD0E7EB5 -571439E5AF3F9C52DB0F04A76627DD5E1E9DD93F05EC8FF95A56353BE8A1C223A1AB02C38FF7 -DF862235B7DAF4EE15B202E1017E0AA7710367935678164D5A5984691DB4E8C617A673F89780 -76631044E49DA6F258C56EB8AE56047DF576CF97C6AF569F65CE03AFC76D015BE454BF826673 -A2860AFEE4BE13BBE802F3C8033DBF4891FD7D31E578B40FBBC00C8E3EA73B5FEFD82AC31C56 -3B0C2D376BA9A0B613D34ABC469DD5CFF523EEB43E0826C3940EB6C5572D0A044CA37706C4E7 -BD46F1E30BCA5724AAE06AC81CAB2FB3C066C89564FE27D0A0E242EEF66886F805326153A810 -05A2A136F41361356B7916C70C1C69A6C1D8618EB17488E11B57F2C99A4F95586D37FABFDDC3 -3142C46C764D412B2DAF8712F7DC8517C98E12D2D51CA6F4B172461FDB02A686F0D08D1A40C1 -35FD8F732743D554957E0565B49E85E299B45D2F89A651BA2A8CCDD925F35C90C94D3224E75B -57646C0818C88BF102BECFC00C300490F1A0C0BCFA24CB2D3BD628D7A1E34F6D077B9280DD58 -3B6D402F7F58C364174D5ED15E2E726D929652D881824E533D2F6E60C67DBADE524EAFEC90D0 -AE1BB2DE87B2ACBCE19443C60612781F2873AF161161656F6A877B704E1E7CC7D5E663D71269 -7C4DE0445E50AF4F1A440ABA3D29BCD353C3E0DB9DC295C87F2945F6334BCBAC64584C51D6C1 -BB9B906C8730227D3BD55E8A2D486B4E59B44B4FB4B6A1C147BB46821BA69550DEF264384C98 -9CE80A78078DF7E512F0B7F2CBDE84870E7561E5CD52DF0ECA837E7D82B223C2422E4920031B -B8E5806D834B151B54E644F834021029A87AD8D55EDB8404D937C43633539EF12756EFE4044B -B3BD63B4C48CD4590BB69938BD41920CD46AD8B47C847BAF5F7FC423DB8217ABB02FB3BC3FA7 -19BFF1F3EC038CBDCA249B0E5085B681C8D320FC975A85B7C1D7A1278FB03380567E4E856246 -898BBF0DD7212E5F919A372DE794194F5F71770D27D9C2CC6B085FA277618A83B8F206890B67 -E585AA7308FEB463A6103F0060813F0D40C23F29823E8EF3AB4A788663B3E2A228F471CD472C -A0CF4F146984DE1F623552C2753945C8FA10E08305442652E5334EB7357F1C2A96B370009830 -74F7861E436ADF653CFB5DF462A15DB5D210B8266B4A2BB9CD0D98847BCDF7B674C708E34519 -03EB3F6E4EF36BF436919286962FFD07BBB9D0037A05385234FD13D035F67178F411F334BAA5 -03353EEDA40AEF38BEF1809376BD50274BFDC0CA999F3B4DD29DA2DFB1C8748C5D15C62F5870 -233BF1E8C514080A8180A4D51BF958C4E302829877C3FF76B538180842449B0C562AE2453425 -B259464724352D7D90311C332387396DF801D5D14193ACC650A96A3C8F0E28B14C8F3C1D9FAA -F8F98CC2BD25FE7B9820E4801FFF9CED7682F11E36BC7E38B2AD598AA85D1A40DF532F42EE81 -B2F61402D430BBFF70FB7B82AA1A85CE8131D354C6CB649217A59E2A3991907FF416FD18BE75 -27A001A9EBE5D13DC94B62785A2619966D432A4B3DDE0B5D2468EC29EB8920C7E2A8345FC4B5 -89DB92B21A6815192E015A0A8D1CD1F588B306D9003F9065D51AD0B2F742237031A4333C57AF -DA1CDE3040A03D671563A98F78508ECDA15DA580E648F884DF854A1EA548076497A3131A8FE5 -A55D27800C4B1E1733EF537465D3D9D06BCAF45AA6758F6335B79AA71F7A215F29178FB7C0F1 -989056A453401DD3373FFA7AE8751051B624E8BBAB1F37E0F8CC2CBC14345F7442B25DDF32F8 -48E7D803F21C66E188C134791E6828F03B73D92C1CE0CFEDD8BFC0EE30D34DC6D3A305158A57 -7E1D0C1B2AE335EE7673C65894231454F8209ED24D06BB5A9983C0CBAA6606E892B23104A9B8 -DC8BA2D02299DD571D7893770B9E387CA97F9F1E4E79F123E6307B6BE7002CE74D0E613E4299 -3CE64108536570ACCD1F8065945D780E6883875CB9D033100DDBEE31C81AA870AFB47F59F2E6 -6FAB0BC2EA8C7A871DF8462AF2EB85DFDA6532B37F033F54FBF2405EACAFC6D5CBAD9C0025F9 -54567A95D0F7722EB58CAE8F5CD30AB4884F2EEC7F760B4B5B40144C8710B3FCCAF9F54B4831 -3D7EFEB905CCE3AFB8802521B31D94EB6AA5AE43313D9E1FB8107C182D0D2EA37DD867B10631 -F7EDE22324BD13D116BB81509A1658B2131F4784DF5B723192CA97244F6CFAB2B56573DDDF81 -5A7194F90228B1E05A09D8F256B8BBB1DE7949451578793A004937D762C69A06073614E4257B -D876B57256C62F4D128D97EF7DCF0C644EFC920DD200E7D336B020875ED7010D1A0A5BAEB776 -DE7ADCB45848546953235904777CC75D7F54748E9BE9804772F8DA357ECC18D789E6F686785D -9356B5EF5BE1FF82D4BED55A23639AF5C05AB13D8F18293DC7FAC440AD062377E69C924B501B -E85003A3716CF39598DB6936F3D1FDF1A4889F6343204621E3D39CE84FC6AD3D7D6C57E469C3 -AE1ACBB198BDFDA3C9D2919737B1FBD6D65AEE71AC4E5B051C44B865E8FF6FAF74EA9A7C5F30 -E32004AB11C9591ABCDD9D7D759912AB296D69566F25270A4A8D8C95EB1A152B26423892F4D0 -082AA41F1D78E454C16558D39201DCA0B1D447D8D95B1B9E1276E633971687550DE10F9A66CF -147A1EAD66740DBF17D33547DE1617354F915A9099A326C3D80D4A053166FBB1686F21994BBA -08EA720D815AACA3AD46CAE026D5E19E6C8B67B9B6F75A64B6E330F4448079343EE1D71D781B -D8282F07E6E55E456FFFF959B208EA5F1E9BDA2B581006FAE8694448FF3BC22FEBFA2BD34513 -101EFAF04EA7032230FB6A4757ACC8A8A76292AB5F2A0A5156B81553A147D5AD252B8809B6B0 -3BD93F0FCA454289D5BAD5038739E360E3A6AD36BA94C6E2EEB1E9B6CC65A4FF6C02D73C0CAE -2C384D111884A8C9682CE8550E295283657C458C7EDA46DF04D8F5F60D6C8BF32CAC673747F6 -14FAD42F13401FF97CFF99C3CCD20E7CCA1AE7B5B792197AC48FE4544966E84B035E2AB5D1FD -817F9590EE1295A756995872DB8B2BC3DA1F2ADEDEA75D39781162B11E7949C5C8D53A7DAFDB -9A1E9E07BA067E3C7E05353E61718C93370A812C1B7132FDF0C0D65B62E7B4FC39FDBE64C3D3 -399CDD837EF7AA8062C7ED785FA4C39077874C043A0D063B9B87803A21B7D4EE28EC5B299BC4 -9D3B99E58EA7D26E4706CA932743BE7232B985425AFEB87291ED015A049537F472F4987AEC81 -65D83DFC5DC59E1FE70E52D6E0E7B93F70F4CF5E8D0D2AABF829F4A9BEDE7BBC6FD869276EAC -3B0E8EBEB2DE9ED7D6D1F94024295A7275881C77B4C668BCB1B8B586DA4D2E9957AB8F821B16 -B2B9F008C4EFD0B7BD5BA235C945FE0171D436FB61D0E24CFCDB26D253B98CCE7589953CDA8D -97353DC48BC6BC3F9FA53A567B6E19F9ED72DEFB1C764C5B04C2AFD1E7D7C41BEC57F65B5FAD -1C5807F105E560712C71B3AD984352C9F1142F69A690CCF63EB10EF8764A52093070761A44B5 -E43E1F746C838A6E7DCDDD7F64ADF1C8286FBF3EE57FBBC31CD36C234A7C99D203516D2B0FAF -497BF7EBC97C1FE5735E85966B87BE2AE8CF0A6954421F076F81C2834AA8905813188FFED5D2 -08801A2CE015D85CBE51E28CEF579289B185C074E20EBCE536C8D5FED1955FD6345F8736E0F3 -656BC059B136B8BFE60A9777AB58E146FF14A911D1C4970224D93ADCEF1102BA3BD8F55F2946 -E3AF01B0CB02310F6FBEF93325EDDEEEBAA2EC2D0AFB644FC8CDD185F1A073D143B65C5FC458 -5AAFC1AD2BD1C98E1984A3F99A949792D601B01BB2630B3FD5AC96E770B3D7DB591793D7D9FA -0AF49F819E19270F350A50715FB2166E35F9A26C558DEA1C92D11C15A6AA729D2392855B2647 -89BB07CDA78B4AF56A0ADCD2776FEC77FACCC6F9CAFD321FA66FF9197A19053B56E83DFBE51F -6B5508AF4215246D4C3EB30163EFE5C590EE82294C9C8B58A0CC040857CB6FEB850A07CD20F2 -48CB61C1AD1FE1C6702CC0AEAA484D00FC0408EE60828B96788528B1FEEFB8C1F174F5F594BC -6AAF0E9C5C6B2C461E27B65A8B90412F006053CF4440E285A1D711368AE249AFBB5FF6E7D101 -A2891DC2AA7F5A8E34E761EEABEEE45986BE0515E4C701A20DF191A79CE7051CFACAAAE11A37 -331C1882B21DE6EEFF30B24CDAF8C3081F00043D5D652C24C31F3783357943351EEFB8B8D880 -41C46E7B37695A8C66C0F10AF8B36E8351E955CD58C85C9F84AC03EBFE770C13104C05016336 -91C6937076497AB13BEC0FACBE170CA73E448F8AEE1BB7B72947C698B20D7BD3B300915D5079 -88337730ED37937B7F17761226049C473DFA6B3B2A4DA7019CCAB17BC9A92BCB91A102A76734 -6A7E2908D64BDFC32405079D3ACA9558225A3EB46BFECED598230C2992379B38BDD3833E94DA -6725ED348EE35D6C20F424C405E59D4C376A07453E4A941CD7C31C20E4A9F4B970A594F67A09 -0C60FC3F17176B446BC0412DC3C933A3FDDF7A789BE019C1B9CE6CCBA8061781280B8DBE6E9B -2666183BEC3C7CB7825C927C05DDDF8FB3EBB7C87F52794CFA5D76F661A753EA9967161827C1 -2FBA226CB6C57619BCCB8483378579903E521493F5487ECBFFB4DB7DE68ECDFFFB8D04A7407B -02698C726F4BA72738A9C2683A9565C2D7679A062770F4F49B84EA953A0B2BADA963D58132EC -865112ABDCED3D2FC7ACE2637332E5FBEE005A64574EA9DE6FF801FA0D492B583BC1C0083BCE -481DFA1E43AA6FCED7E9C8821D945DAED72ED19F56C8A86583FAD90AEA8A9DA79DA4550D49D1 -8BD5AFCBACA873BA0642FBC333431CBF7D1C0C722019969171A88D918E487D553C6B63EAF4F5 -BE669D16E61966EB87E5FBDC0F6E2590D66FF0177760500FC4F9D4F56BD0654BDA912D3C59B8 -BE917742E1514E0B33AB439404E3EB943DC26E6E7EBC92F1601A5B1F956AF32A032C8160F3AD -637003ED6C790F1E644FED92AEFF7428B798A433671B9406F2D673F86360DFE2432B12ED0D60 -6B0EF7847C919379C20C13FC63130CBEDF84585EA9F2015807080DEB5C53F709E83F9D6F4097 -8896B8225F1AE868C384D9DE563906961205B2A0E8540F3D3BEFDA46B6728F20B783FB130A74 -AC8701D512764FD90BAC95D05AED5F72E2057DDF1F14A15C6420C822479691D5BC925077EB52 -1ECACDA48D1ABFB1A551512D3F71C2DDFB36FE6F1528E293D0701457E54272D437019516C37E -8E56B616B46DF9E52140123BA64946EEEDAAA08280A89413AC31934C530299C2713D7F0E537E -844180507E99802AABE44EA49BC653B2621B9587999E8046F430A671E978DCB9DDC0CA2A38FD -9ECCD13BC9A12BA0FC119758E1B0D61E56135320BDCA5EB57C81832DF9D2948F7859671F098F -F58F75478F5516369AD6B80F308B026BE9EF7C73FE635A25422BF75885BD0C31F081D51DA8C1 -B8358B209BCBE3C44ABA2AE11C41B6DE2FDE224E11F584DEF5F98CBC9523B8DFD488C4742B20 -E67F337248D306A8C1276CB4084059CCDE4E4FFD6450DB1817AE0A8253C0D3C69806AF4B3EA9 -57E390F2A453EE6D5C83EE2FF1FCA0386952C6D42CDB965E3F04A50B56208B1BC4FDF342B486 -0CD7ACC1BAF991E453462E241B48FA677E17DB225A3A48F00F16A8262AF0F8421E655886C803 -1DAD11FC3560704505F0B9EE3351717B045F9FA954ACC206DC00F5B55F443D1CF77D238A0E54 -D07F129FDA86D7CD6FD9D5D02D8E3E06C9453EA549DFC00F237DFBB98732EA519CBE0CCB8691 -DB8D5D42413A450B58A30407BA72F9580FB6B4BF5B552355EA3D2230E0E45F2A1F02841ECF76 -8265259A3C8D6F235D1CF4B594E00993823BD4603D040FEEE744C4AB1748AFC9F1845E084733 -6B96E87D30BF746220A07756F0249B1571497D49EC0B82853AD786BAF86763DF301FAEDA53E7 -DFB42AC6EC84A50610319CA4F950DCBBC28CD31B0CD1B64B1D8CAC1A239F7C43194F276897C2 -A29814ED3754702D73BDB9D12F8BDE54AAAFBC9BE0614791659F76AFBCEC1DB3208FC8A5151F -9928572B372E85162BD45602DDD0C29C92C3007995F2E96F08065E089B181338B6FC3A0D5F91 -D8BAB4ABB9E53CE9EF4C9162C80C6F5DC2EE035DC4378DA715F996458CF6903672569939A8D5 -24658F8B2E7E1EE94BC420812802552B8FA3F6F1BDCAFA50E3F0D5D89112F381BB543AB71DF5 -3D2792CCF7889A8902CE69109C565BC3F31295AA9A5D58448662648C9A5BA2C795B1A97E3ED8 -B41C6035665416FDDE932D2915ED62672A87B66351342838FB315B9FC922D061FE6C2A0AA535 -D0E2B003DDFB1C58A874B898A74419407AD320F38D1A60C2BAF1AD11A6924ABB913285E021F1 -68C793E121183122308C1354DBCB3F6B7153154C346DE05234A03A28F91099A674C20E74E2F8 -2EE86D47843D3BCA27AA801667034C16C3304B42EBEFF7F36CB2E1A691F9998C5318B29424A1 -53C6AF03C65D2AAEE0D5D87C9C530FD4155570E3FB3DA241606B35EFEEB479CBF2030AA3B607 -24BDA72816489E196F443D40E44F5B1A80852EC05770FBF2400928DDD8554EFC92AD80EF4F0F -10AC52B414DD08B2D96581E9A103352A10270DFBAD134103FAE8F5F752A36C0111EC8918107C -7277F1B236C6B7324A60A5D49BF310DDC43566DF1A18CE50E2E19FA157DE5556BE1FC7CF2E61 -3F4A6E4ECB9882684E80C06D737B11701DD9B890513448DBEB53BCA8D462018EE85C9BAEF288 -46561593B5D98A25266BFD944DCA26CF83F63B69F197FB313FCD8B5B3D1DE5461F86CD98EAFE -96EAE55E2995D74A2232B1995D1AC6352E51C7D75DF409B039E03B34625BCD4C68A59CF05950 -E8DFAD16A52D6188373F0DAB1081304809DF523E2D3BCF7D1EF60A09E9CA9C59925C5D7C56AF -B9503A20C1454AD598B5EFFA59C64D76387F28AA0585CD0BBCF9744E580A8B057CAE9A89DF1A -3E880EBA0909494F14F89F27EC49BCCE1D7CEAD1A3EA64BA8F99C5AE4A88C6CC0E954C110B39 -D3ADF13DE9DF65E47B2812251E888A1FB627E45E25DA286C6964E81C313EB5C47E2953BAF26C -1963BA37A71F009487404FFA1AF7398A7AC55F781E830A5A9B9A6BC8D29F88AEE951C245F990 -361F920C0294A1870CC0EFB03A9EC4B99C875D33E0147273E520D33DA8DE91B3D93B5B34617E -3552B360717A823198A64D633011F9CA3A30CF09106D805ED77D3BCAEF1CA92A774B078471E7 -288C3F9A8774E9B18AD1D1E878480AF7400C008BBEB74821B37AC8EC7EBA533A21DF263A9930 -0891BDEC3D4E9D12B02F557EA16BE1B2AAE75F4010FC280EAB2918C0F02A44D5016CCE9090F1 -C13071751F4E9A1EFDD685023521EA5CC973C6BD87E989DAD31A11A6463B254BFDCFD7C76323 -D5A34E436FF2BCD5792907FD6E1B475B6C9692347973DA7F37F5E6CF4554B6E1182EFD6B0E68 -4D06986F53C9435C590C660681FB27F603FB4413273919D5FD1193C9DE674864EED66C812DD3 -5B82A5C181E4392DE35A0944DAB553727A2084B4724149FF42914B8402B07A2092BE2FC6E34D -6C117F46C7E52050A2C45E39ECC3C39C631EAC47C3D1F11F20E10D41BB6B2BF3153A26D79474 -B3F8A7AA262F14DAF12858B888E72C5822B8444E29B8662A068397BC033C9EF60F0C88E0AD7C -B396E5F511055D695D3B751EEC95350CA6C81291B6EA7E2AF46810E79C08908A0030F9822A2C -FDB9C163505AD8A300EDB53472274558DDD412CCB3B7A6811D23E8E3D17D98B0567D37BF8747 -4110B586C216BD39F70A88DF01437155ECA47213CBAE6CB856B7FFD5D450ABD785628BB99DF3 -34D46466564A6C7C125738EEACA9DB9412F3B6D30A264D308BF111E2C895770905DF62218777 -9FBBE2130BB494D47BC0953FCDE43EA13870C17DC543F4D185C25905E234EBCA14F43D6F39B1 -B5316A3252928DDEB90C1CF6D46DEBE64723550405A0FF23944EEC420C8C52839EBEC4B44D57 -FC41ABB0522429CF89BA4A00102D886B37C84092A0F54083B771094DDABB05A6D6FD74E692EE -74EAAA4B813BDDC2746E8D7BC740D1F0A7648EEA021A8F9C69F0AE1822E3AEB94CBFB2992371 -3842FBB2AF6B35D3C4919D2910835A0BA565FD23EE3D162980F052E973D2086D6C709590ACE4 -375396FF39E939A558A46108646C0A5B9B0878D1BF5FDDB8A222A637441A12187A5F7D8A3FE8 -F5101F0A037897B812B914B9BEF0027788EF6615CF9E2548717A7014E6A7FE4EA5AB98F4EC5A -90CA0CE1EBC92772BD515F9854088285E8B30A95FE7EADDD9079792EB5C1835D1342850F1DB7 -463418E8EE6C106409FA0524F4489A0CCD550F3F6CF0829D307A17066465B7E302C76751C891 -FA2680CEF6A8DC86261230888FD438D03991D3F1AB48BB27692E15225C98461D4E88FBE3D7AC -5C687CA5BF00AD9E8F2B462D4A5D7831B233053FAF4BE96EA2161AA17BACA8ACC71C9BC218C9 -4FE2E9B7C111A981135FFB24FF17C7B9F106077655A717B4CE1D3C2E774786ECF1914E0E0BA6 -9354A740C212353E241C59E0E2B5D56116D884E9BF97810DE9150DAB9629F145C5E9B45AE4FC -32FC54341C8477A01A0DD3A4915E6B28FEB2C67C749B9C31165C6759581ED4C3C4E19DD9DB71 -E3122F45783A39E3E6C550B3144862065C5A226208C78C1E17E25C20280C1983D2E3E64D513E -E048C73790909E26827104208ACE447F94C0C311331156DC39DACAEA70438FC1BE56A4460A10 -8EC50D116F3133AB541771385049350FF428469C824319EA4F764F129179A34B167CE583AA0F -F99B10A17A387C37902CB5896060D282440823D98CBDF900DE81FD29B3AE8B6B158683FDFE64 -856F44A0396BC9556F3F88B809C24AB8AF31CF58EEDF495E11F07BEB646066DC0343316DFC15 -24AEFFD308BE2223BE8BCEB6B21F0F354B70BA28B6F8E0A27FC7EE9A139063201F7EA93085DF -13CAF37620402ECF8D6F2899CDCAE75A2EA83689B764314DEDF8641203AC9ADB72107AC68735 -FF668EBB8778FBC2818C20A6B9E3534FE12DCA170B59C6AC5C0A22C829AE11E335DC023D27E4 -FFECF33AB63A84A6C052E1CC429060474E0520F3ABB4808F4B8686A105B2C1D891E22F123579 -81F94B77EAF42FD253462E926686350207C73D1BC84BEF430FC1B3BF7487B5073C7BB7E5A487 -31FBAE9B07F2A0490259516E1003F32E194AC7C1C0B571AB6F8285E33CC73582DDC9AD134944 -F8689EE23BB77DFAC6F56654615BA73D93448F2D48B9E3A73EFF6ED443B861248A581B5285FD -9F8A01BF7F481B45321705D55C29419B5F5269B17C27CC63FE88A4CFEF3760FCD45C6142C131 -5893BA93527B86B39D2A9CA51DF530CDE04DB3833F0383D57CFC1BACF30321809A1CB1C81D7E -6AE714D0D5C2982ECAD08454CA3B5A4D1579BEEC2D5FB151C32BD98CDB08534895E0B9C7960C -24C55179604028FB0CD044BCF1A2D66E3729EFA0B343BD7A5DE3884782FE884B0825E7C7D462 -00842BB84BBFB23DDE76427DA96BE1FC0D5D5E24CC77750EE2574C02D7DFE3C25494D2079D78 -FA2025AA1BEA4387BD3F41F7171213853C4FD29D086A343364F7228D856692E39F7C4F3D74EB -DBE42893C1D0B6BAA18E4F5FA20016627105BBDF09C8184A149F5C94273C146BB36C930EE8B8 -D8821E96331FBE2A1E585D0561DBF53D3827D2A6AAA294A41E642D2CA6E542F5A25FC5CA2E7E -D6C11863E11169FF37487EB5B5270109CB4E155FB6F6BEBE47EFEB3FF9F54052AFD7DD0182D3 -BB5D17A902EED350D06ED5908F0232C01D9DA6B3F4ADD7B7C7E76BDA8712599C146FD6F6829A -313F33D825838CCF07F964D1962822F45F1C209FADBBA857916D79B4122A05F08CADE37566B9 -47140A176B440CA3E0CEB98C5526D19CADFF1DC7AD838B41942C3FD2B49DF898EDD755AC381C -007931639858394A9D9641C2CDC11AAACDEACA6B08B2E9ED37E8845E94B39DE05EA6E75BDFA9 -016FAD451EA9B7FD01E059CE232B86B12046316E5D779E90009BFA8BF44CE0AB028FE736F8A0 -1BD1057619387FC28A8E08E1F5FCE7AE84A7FAAF5367106FDA990ECB672C301F187155CAD70D -5870C505A1FC2CA7DC031C371DA1CC9E9AD7FB2F745915B2EB1D69AC268A4625B0F0F40F9AC0 -3EDF09C1C6593ACF437A2549799928BA0B68E682BEC15A68165BF75291EF6E745D515A8E42F6 -05910A2ABFB2F9CD93B8A6EF793E8D8960DB2E3D646B5759DC8B8D46546DB7556964DC74119B -AE89158FE3BAEDCD8D8A02748F3E2D2CEAFE444A98B7AFA71FCACFE3C3032433994D074B7A3B -3FCB00AB939EADFFF7069619676E2AE77F6FE44D2245988B56B1914CE9F95E166E1BB8CFBB4D -B2394E67321A7EB0EDC85012ECB0BCA9AA37523F2BA7BDDB595A5C392451C819963D8FA708A9 -E67B5935C4C9A757C8BFE5C1E2ACD92FEC11950327D554B766A416BFAF376D3CD2E3B8BCA2CB -3EAED381AC35FEB0269F48FA2B1001CE8E33FEBAAE14F8F828AB55A4B59FCB86775F8EF472A0 -EE4BD82DD57D23F7233A13FCB43A1F8FCB2E15B1A9FE8AA002A14D8E1D5A61D41545FB26BCB8 -AAEC5C80B96FC62959051A5E9A84AEDB59D2F684F807E87A12DEFCB2FE3A459966CED210F1C4 -F63F6A089AC980B4DDF530330DEE2D2694BE8C661DB563A0E646F2AC651DC6A18378A8A5064F -4F4689886ACCBAC563022F5271C79776629306B0E49CAE20ABADDA4A6010F4FC9985F49E5BFA -A0F8FA506ABBD49F8E69B414FBD50D87BBDED63814F064F4E582D1513E0673A9E9F446B8B2AD -5C23B8A3952A7FD964779825A56D9156ACB95EC23DC7E96ECB6D4EA5F79F50B115C119D6FCC4 -F0584CA9BE5809700E6979BA6AF385703A7CD461510232EEFCA0B1B6EB27AF23BD4D43289D7E -DDCE5C70F4CE3A24175F27FDE7E0283FA3F2C6082BAEA6D5498310F5EEB22E068AEF5F1F895C -2FDBDB80489243930AA66CEA21BEAF643E98D7BEBD19940CF44ECC33F3A5922137A11FCD2D22 -AF9E5DEDF038F2283CCDD20780E9CFC0D5E38BF7209460C648D4F6DCE3B5CA296A22E665533C -51476E922A22DD6E388167735F24074E6BE5872AAEC2F8C22AE779A16CE527CC69E4BDBCB65B -7543D5E73679D70E0F67FF8D8CC19C7769687B18BDA9EFDA3F47E7FECB9C3557D78B487CBBF9 -4B73F1A9D76298B1219ED27062DA265CAB10F8152DD5AF38DE7D780D3F9BD4C761428AFE7570 -619662893784A7826215075934FFC7A90579B12B4BA2ABEA90B540F05672BB1CDFA809676E2B -A187D0BE77579D62FAA1E11A555BAEAC58BFFAF644758200D03D2EF2EF63E3EC056589C2057A -AA69590CD82E7E1AEDDA3A5299EC8C22D488FFA85471874675DA148E0372601041CD55B75177 -988555F273F32B3D13234A18987DB1AA8FE4C7C3B5E5725F22B5003D86D314EE5EA700BDECF3 -C84E9B7DAE522F217ADBC6863C094D6F963CE23BC2AA688E0FEB045DACCCE8E48F4C97227AAC -1F99E5AF42F220B87F2291F2199A3C89D0FF7EF41C2AEEE2EDDEC88927645AD65D08A0296F34 -FD8EDE94B90E61FA6F6AADF68B78627D813F50F81878E19A47974225824760556E3C5D037840 -56C2E1B23E9D5CBE96A79969F9D024F1907A6E56FBC8EC29E004F916647A0CFE83A44E38C998 -8F531A8182852B7B97A03EF386E99DB3E6496862DD1335CDA5A371A51F64CDC4E0A742B3FCEE -8231CDEACDA7D039B38BD688EB42542B483375F8FB7214117FCAAF6E15C591463ADFF15AE5A2 -8D2AAABB043BF0184C2C328A41A01C05F85FBBD9450A51C77C5D7D66DFE43105DCA7AA424F8C -014D5FCE5563A811EF85F0B042D4A574C2A57DB0603D1C66DCE0E3629367C0A6D12A24FCCF5B -A6339517EB5E20F840E9F29C56B3C4C30C89548A307A8328CA3C4210E37A964A8C95F7FB1BCB -1087B1E20529368091F8ADD639EEFC382E807BB0CE4ACF34824E5193E98111C0511EBCE60AAD -5CA507597164AADB45686A8936912BB5945A87E71D388BA87EFB1146C648A4EEB5AC200FFC6C -0086FC7747A8BD64F53A43DDDA309D270A363206253DD0618ECAA0974B5A91161B9903E95AB5 -CAD5A05EA1357FD0A18A7D37251A2E6C8BFC8A5048544A576E3E0D0D3D5E410340E9B4138CE4 -34E2288CE99CA63AF32D1948F4EB1CA763512AED0E3FAF514C82B0D76DA21ADE7E7A457B950F -E7B8C388EAFAE1D986C828157871793F6B1BB297A45C7C71384B08203CBC380E36F26B9C486F -CF770D5CC26C1CAAD70C740F38EF70161E235C803902F6E5F967398DEE4DB3F983E08F0B98DB -1736018D2F566B7C47AA8AC67B40F20C5F766E0D4BBD8351E7287899431A81AB7B3A5F7C936B -DC56E46DE0BFCB1DD78A9C36FA6AE32C2C74FE7C1E929EC2115526D06E3963522B1ECFF0F9D1 -C8622913B3C6BB81ED09F4941409F0BAE3310470F315C711BE73B20E02E9B8F6065D9C514016 -BD39AB7AA1982B314A2F0962621E97629C04BB81C281C2E939CB5E353F18F048417A0ECFCBBD -3AAC47D81B791BE6352E7FC9F5315CA49228EE2365A20CE9A1AADBA56899341B1FA835FEE63D -A49E81E529F6A56CC5002FFA3218DD02673ED5BBD6AE35CDBA71CF04BE375C45E54D11CB22A0 -B5E75E12FBC17B8DAC6E4D774E9F7963AAE68A3DD1D37D7853F1018E0662BA107930A763F5F2 -44C28D3DD8D4761193948D97AEC7DFF5026A242E757077789DE3CD5E750B49DB8D1734C1ECF2 -8165655693A5C158224476F63F30B12CCBA7C4A49C1E907ACAB3CDF96AAE2F1BE7B87AC5E7A5 -580434A1CE747C27A2263866851A8ACDAA892341EE1A0091225DB60CF2FABDFC16C2F452AD31 -1C7189AC12FF260A09004DCCDBF9B44B47BBED7ADE26FD1456F4EA59046FE48FD4ABC36B8458 -998F112E853F220B77392F188B668992EA0872B9171BA3449BA8A12720959A5585AAF68A8729 -CFD559DB8134E0D401975F6FC19BBE3FBE219108FD2C17873A69A9997DAD066797912FE0AA21 -61373DF669C723CA4473AA543D0FCF7746FA0C584E21BDE99D88C683B4596F5BC81764EDAF16 -5322BB28C6A4E59C2C34D285EDAA92D40C55E878355C98A63B602F4297B8742985F7560CB1F2 -4A8653C6D40FE06EF1E3F718BBDA89DD392CECCD7EFDBCB6293B6FF14699A2D45397009FADA4 -2CDD5903717F9A7903F916995727362486695755522440824FB7594BDFEDBD92E1531BC0F069 -8E360747769E242CB11D98107C35026EF6A340DD30CB40DC1C8E946DD0C561466016AC15E099 -C95EC4DA5FBD4FC8EEED00204FB0AFC4D28A5D0379B37937B983024EE9541B60F99FFA62365A -5804EB6D2454A12AE7D91262A0DA03C007F8F77741C44588ECE93F4EC3C032D7869EC91A4C29 -FDA41DD7FA7ACFA1ECEB92E2E88BEF0988D45B2FDB07E6B70C7B0AAE681C788720A11BDD4AB9 -871F5199D51314655BBE267D4ED4A65680FFEB3961DD62C069328A47E8F7F48C48AE2AA3DDF4 -BC1AF61AA8F31BB2EBFBF23BE0FA86C45B4E348910DABBABF4D4CBBC3923A1E0E85BFA452F43 -BDDD82AE26C16DFC625DA03E96AA45055A72FF2B18C53DD54378F05BBA6538144A9AEE4267BF -4441ECEA0DF31BB1989663E3E67645FDC954B75E52D43EBE67E1B51270F3280AE1CAEC9EC59C -2EB3050510660F5F3E16004BE9C4B8210DC81F8CAA58BFBB93430899361A302A2AB20CCB2EFD -B42BA013105612606D7B3EF609A5757BBFABA93EFAB8F05980FC472157ABA5CD37A8676B673B -3DEB8768CD2EFD987F9D823B4B4C9A7E27F7CAC5916EF5BEDE99C33C3575D91860A52A9AE3CC -19440952C619D0D6EF3968B33A311499AA4B80AA86FB5B3B9C27FF5BF40B118C9896959ACAE0 -5E288B69BF4FAF6C6A8DF934FEF5E3C0A79E815EE68ACEEDC66A4E829A5D86360CCB8E9394CB -45F6F5088159F97457E6309934B6A6E578006FDBBCFEBBE38B2D7F0F9A0B117886DCCAF9E4BD -9650BF97E0F48D03D8C6E8FCA7E5849757B1FC34014DD88B1C0BD9550CE6A78E70D4BC274CC6 -33FA9150FA400998BA99A679ED07982651F8D9A7591310673506650BAA4CA0A43CA7348CDED5 -7773C94699B81A202986E163CAA398F132A0336D0CAD0F76906EAAFB9ED534E0C2A47A46A280 -55D34842696140AFB2AAF466E089CF8FE1471835C620C5E84C9F39FF3F49A019D16740234D02 -8638D2C9BC5C298DE351F654B70CD0586B18637999CD3749D3B6DD54019DC37B21698241AE19 -3CCB7A7E530AB1EB5DD01E6D8D1B6DB30D67402FCDE4DFD73F63079343ADE2EE3F4B16854E05 -ADC88EC7CCAECE39D92B3E7FE19AB929A2D5E34902C4F3395E2E2030F9B07F78CBCC9D0BEADF -D94399CA796997E0A2D95D9FC6FD542F8035C7F1EC66358B3938BE62569BCAE6F204A0000375 -D5BC73D28592F996FF92EDFE28AACA392AE5FA78000471C77008AA977BE2249151A864E41844 -4DE401CEBF75E0C461DA7701FF3EE4CB56A2240B6B699241E194257EBCC957D4483D93118E27 -41F80846BC4A8B6242A78D7B3E14716B08CE96A857F94FDFF21C309FD220CA9827C3709C98D4 -67E1A68B8F3A73F770BE3A15836EDAB3342112D3CBBE707BAE3144438D1339C59C168113BC62 -D85423976FABD03E5A98899E01CE4594E60F8BDDEC376CCFC31857F009E62A519CCF4CCC978B -C473B8038548BBE6056A08CF7B535CC7A0B661F13A04FB7AA35548174F41D789CB00AD4BB2F9 -D4CC7ADCF61140801B02B2AADBB39B2F280CB93EF227B85417B3EF5C667717ACABA9BC431049 -58816C21AA60CEBA2722FC83A197EB6BD4FF3D1EA7AD087C52EB346820EB90554B87DEB0BBB0 -FB463EF954FFFA26E82F0487C740DD414F91FDDE3BEEE135DEACB7BA03ABFB5924E958A3C7A9 -4FE776FDAC5AD93D2C88903A773EDADFBCFCC7317D909FA05D522ED02D9BB80817651158C7BC -936650D9886E8CF76E414186C512872925464C6E7ED1A9360D6156BA35FF52ABB7D098A9AE4D -F9F0F59C7D3CCD26E43384127550034E1A8DB504CD1163CB6392387D666C4F306A8CC22EAD78 -C9BE1F342F23E06D4AF5B6379C358D46AFBF0AA67F5ED4AC6B7D33CC3B933821057C5DB934BB -CDE08FAF761F2DBD59301B8C30E821A4877E323A94399BDC318D0AE1E38DA1550150EBA6CC88 -7EFBBD521B5233E55CABAD81D047B51BE7C4E10BA3CBD5107900D6890E43F2D32C08E9211046 -95F4D4B27958E440244B755A6628D9C5D3355A1A657DA9FB011A496F9538DF233358A5163F40 -65B34155CBF12F59FFC2DE0C5ECCAA40D1CADACBAC8EE05D323ADA358654E648EED795AEE77E -46ABD63591202C1369A63D4CA81A82461C2EFFABBBD9DE6388E1D4A8E49278E994ADD656171D -5C39A64A891F2D79A603FB4AD58212435A07068740CEA71D6FD5EBF5FDB3FA08D90ACC619E39 -A26D5665813B227D98C0AE61A80E2BFB06E0698E3D04CF8AD82D1D051E72308FF28E4FDEECE2 -ED845C0B3F5C9335CC2B4E2512D33E94960BE1E8D22487BB2A2693DDCF054813886511DA6AFE -478CCF877D4129289DAADE8442C5A823F5146887845F016B06E90F097417012857D3375CAA3F -BCFBDF6159D042C944F33C502CC553FC9DECEA945EAAE6D73B48177F57D3E7AA55A65CD2B937 -8560FB97B8991DC5F5319C9EC912EC9E907317B24008D69FF68EAE5C9BBB70156565C3E1965D -F273CCE78B35C4C29751EAAA6B6E33A3AA245A468922A5EB89393867F016E12352FD2F12EEA8 -F975BFE8D49DC4C8DD0F2A7C585EC573291E61AAFB5FACA16CEFF22767D55257B02499C1BFF9 -A8F1399BAE2F80527DEDCB50E2EC3A3A645B0E74CE67AC26250CFFF217D1826F981104569FA6 -25059EA30000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 - -cleartomark -{restore}if - - -%%EndFont -%%BeginFont: CMTI7 -%!PS-AdobeFont-1.0: CMTI7 003.002 -%%Title: CMTI7 -%Version: 003.002 -%%CreationDate: Mon Jul 13 16:17:00 2009 -%%Creator: David M. Jones -%Copyright: Copyright (c) 1997, 2009 American Mathematical Society -%Copyright: (), with Reserved Font Name CMTI7. -% This Font Software is licensed under the SIL Open Font License, Version 1.1. -% This license is in the accompanying file OFL.txt, and is also -% available with a FAQ at: http://scripts.sil.org/OFL. -%%EndComments - -FontDirectory/CMTI7 known{/CMTI7 findfont dup/UniqueID known{dup -/UniqueID get 5000825 eq exch/FontType get 1 eq and}{pop false}ifelse -{save true}{false}ifelse}{false}ifelse -11 dict begin -/FontType 1 def -/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def -/FontName /CMTI7 def -/FontBBox {-27 -250 1268 750 }readonly def -/UniqueID 5000825 def -/PaintType 0 def -/FontInfo 9 dict dup begin - /version (003.002) readonly def - /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMTI7.) readonly def - /FullName (CMTI7) readonly def - /FamilyName (Computer Modern) readonly def - /Weight (Medium) readonly def - /ItalicAngle -14.04 def - /isFixedPitch false def - /UnderlinePosition -100 def - /UnderlineThickness 50 def -end readonly def -/Encoding 256 array - 0 1 255 { 1 index exch /.notdef put} for -dup 0 /Gamma put -dup 1 /Delta put -dup 2 /Theta put -dup 3 /Lambda put -dup 4 /Xi put -dup 5 /Pi put -dup 6 /Sigma put -dup 7 /Upsilon put -dup 8 /Phi put -dup 9 /Psi put -dup 10 /Omega put -dup 11 /ff put -dup 12 /fi put -dup 13 /fl put -dup 14 /ffi put -dup 15 /ffl put -dup 16 /dotlessi put -dup 17 /dotlessj put -dup 18 /grave put -dup 19 /acute put -dup 20 /caron put -dup 21 /breve put -dup 22 /macron put -dup 23 /ring put -dup 24 /cedilla put -dup 25 /germandbls put -dup 26 /ae put -dup 27 /oe put -dup 28 /oslash put -dup 29 /AE put -dup 30 /OE put -dup 31 /Oslash put -dup 32 /suppress put -dup 33 /exclam put -dup 34 /quotedblright put -dup 35 /numbersign put -dup 36 /sterling put -dup 37 /percent put -dup 38 /ampersand put -dup 39 /quoteright put -dup 40 /parenleft put -dup 41 /parenright put -dup 42 /asterisk put -dup 43 /plus put -dup 44 /comma put -dup 45 /hyphen put -dup 46 /period put -dup 47 /slash put -dup 48 /zero put -dup 49 /one put -dup 50 /two put -dup 51 /three put -dup 52 /four put -dup 53 /five put -dup 54 /six put -dup 55 /seven put -dup 56 /eight put -dup 57 /nine put -dup 58 /colon put -dup 59 /semicolon put -dup 60 /exclamdown put -dup 61 /equal put -dup 62 /questiondown put -dup 63 /question put -dup 64 /at put -dup 65 /A put -dup 66 /B put -dup 67 /C put -dup 68 /D put -dup 69 /E put -dup 70 /F put -dup 71 /G put -dup 72 /H put -dup 73 /I put -dup 74 /J put -dup 75 /K put -dup 76 /L put -dup 77 /M put -dup 78 /N put -dup 79 /O put -dup 80 /P put -dup 81 /Q put -dup 82 /R put -dup 83 /S put -dup 84 /T put -dup 85 /U put -dup 86 /V put -dup 87 /W put -dup 88 /X put -dup 89 /Y put -dup 90 /Z put -dup 91 /bracketleft put -dup 92 /quotedblleft put -dup 93 /bracketright put -dup 94 /circumflex put -dup 95 /dotaccent put -dup 96 /quoteleft put -dup 97 /a put -dup 98 /b put -dup 99 /c put -dup 100 /d put -dup 101 /e put -dup 102 /f put -dup 103 /g put -dup 104 /h put -dup 105 /i put -dup 106 /j put -dup 107 /k put -dup 108 /l put -dup 109 /m put -dup 110 /n put -dup 111 /o put -dup 112 /p put -dup 113 /q put -dup 114 /r put -dup 115 /s put -dup 116 /t put -dup 117 /u put -dup 118 /v put -dup 119 /w put -dup 120 /x put -dup 121 /y put -dup 122 /z put -dup 123 /endash put -dup 124 /emdash put -dup 125 /hungarumlaut put -dup 126 /tilde put -dup 127 /dieresis put -dup 128 /suppress put -dup 160 /space put -dup 161 /Gamma put -dup 162 /Delta put -dup 163 /Theta put -dup 164 /Lambda put -dup 165 /Xi put -dup 166 /Pi put -dup 167 /Sigma put -dup 168 /Upsilon put -dup 169 /Phi put -dup 170 /Psi put -dup 171 /sfthyphen put -dup 172 /nbspace put -dup 173 /Omega put -dup 174 /ff put -dup 175 /fi put -dup 176 /fl put -dup 177 /ffi put -dup 178 /ffl put -dup 179 /dotlessi put -dup 180 /dotlessj put -dup 181 /grave put -dup 182 /acute put -dup 183 /caron put -dup 184 /breve put -dup 185 /macron put -dup 186 /ring put -dup 187 /cedilla put -dup 188 /germandbls put -dup 189 /ae put -dup 190 /oe put -dup 191 /oslash put -dup 192 /AE put -dup 193 /OE put -dup 194 /Oslash put -dup 195 /suppress put -dup 196 /dieresis put -readonly def -currentdict end -currentfile eexec - -D9D66F633B846AB284BCF8B0411B772DE5CE32340DC6F28AF40857E4451976E75182433CF9F3 -33A38BD841C0D4E68BF9E012EB32A8FFB76B5816306B5EDF7C998B3A16D9B4BC056662E32C7C -D0123DFAEB734C7532E64BBFBF5A60336E646716EFB852C877F440D329172C71F1E5D59CE947 -3C26B8AEF7AD68EF0727B6EC2E0C02CE8D8B07183838330C0284BD419CBDAE42B141D3D4BE49 -2473F240CEED931D46E9F999C5CB3235E2C6DAAA2C0169E1991BEAEA0D704BF49CEA3E98E8C2 -361A4B60D020D325E4C2450F3BCF59223103D20DB6943DE1B57C525641D2B175DB6EFE542504 -3CA62CE886B802B23F41D33FF06CB9EAB7DCFEE2AB63C1333D9B042FB0A32D7634E2BC65BD7B -7C53695C585079EBE138B40ED4BC7D06B30C88B5E0C8E93FF20138D513B24866986C4A633304 -FC4945EA8A6C6BFFBA1FDCC8F7474BA3D997548C23060E15A15687E9B58A8D2E2D749776BA36 -4A2E28FB03DA767645CF34BC9E787E5D3A5B05F67D169D710592108F4647A0004F7115995025 -3FCF9A25028DBDB4FCDB2AB5F17E49A5DEE3C366C693E052C153FBB0CAC1A6DA1D6694BC2C1D -F8BF82CADB8AB9338FE35FEBDF8585222FF26601D8EE9A381D14C09DE3741D9451F5F7142C19 -D332B336738A0A99A6608D13C5F2604F56FE7D688D75E52489F323C759EAE626E5381D2BCE5A -3F986BF837D0CD7DA0F9A01B6B9481B3813809B3CAC4EB2FA184DA237A362D0E08C6BEDE8137 -04024670BB97394480CC9C09E76FB83CFA4306B24404DFA919E1D3AD6BF77BEFF0D1FC005F2A -E9F05162909D9DA347E6B224F64F72C68D0A6300E516F93AFBB7B5AE4F92778689C7D4FC9055 -0D83008BD1CA607965C0B677D8A730AFEBC3740A4C6686F81C819A3F2670502CF6CB136DDCE2 -08A6B62D88B4C465E169D93F1A5B73D9E5C4C90DAB2C429B1BB07525722620C6DDCAB26EF3DF -82576216AB9271F473B5F8977E258FEF34ABB3B8FDAAA850A91B880C30890DC9ECA751896BCC -965EB0D380141C7E595C004CD6E6D67A99A121CC280FCDFD4F4273937EBF98F25F903F02314E -8214E26CE648F49CA0CB4557BBFFAAFFDF552420BF60AAC189CE34673A4138EB90DA281B41E2 -8B497C6BFB20C8CCB28D105F026471324ACB7496BE21D9B9FC4B6AD7884915165C0C24100CE0 -5CA0A1A0BEAE223F4E222CCBC8EC789C62B3F56127DF4C2A4CAA46EEFE23CCE702E4CFDE119D -7BB2137246B0749C9B54A979B315223F48EAE5C4EC74F6AFB7265AD76A9AED06B6EB4A1DC046 -13305BF3A81D9AC764175D26E864FCD3FB06F7E2C6133982A0F9301552DE16E5630C159E8F2E -9DDC69D72976C12F84955B590C7CCD8166393FD27027BB56CB89184E4E8382413AB143878CC6 -C86DAB8B6683D2156377808CB344E3FF5FC0EF4175E76558AEEE2000515612B0AA556035E5AD -483055819D1DC39D31B8417B44F30B50EC95EED91820F59CD48FE51578C1F49D6361C5DDA73F -B5B8E9F4449EB93BAC1AE0F0998B702A611875926D2A6AD4DF923E37F4E0ED4CC4C3C6AB34C8 -D42ECE4A35BB7258E9083338D02B49466D6BCAC3460514BC9957786CAAF42956ABF57816DF99 -5F6240C30988AD7574F445D5C9BA58F4319A64F296D493919502423E39709CFC84098B0362BB -6B6977271C243824EE0B99DF386875F4F35178D33B1DC179C28F2C39B0A469AE4A429FD7E136 -97068E67AAF9A9592853E2C71743EE60EDF0499CBD4C2287799909DA8FBF335626BA6CD81F66 -A4C744EC0A14AA19E10E2D025FD9C9DBE1D8F498FDE31D0343197DA81E088DEBCFE1CCEAF7CF -BDE2BE450BBFF4A559F5C46A2FCCCCD7EFC75F370ECC0FBD2D757359E01B206E95206DA1553F -899ECC450AD38664564F9C11BF5C10F7D7A12034456B682DDC2C43DBE4CF1FD692FBC26824F2 -3F377D50D03786E923241BA7901F05E99E0B43398DC657CCD6D554076F9FF465782E0465443D -F4EB99291604BEFCA6CBB961F4F8127726DAA7C28AC1764DCA1794CA9C81D2040ECD9E4F8C65 -3F3BAE153FBA4199CB78E2628787F9768E712206DEC4D2A4C7A640BCC5F732978539841502ED -93D511968EDDC61C7FA6E79B1AB54A1734520939B46E2317631DDEABACA5517CF280687BD9A0 -30AD13903CD7D271BBF2692C3A0F6EB858681DD2F471EEA569A4F1F6E4C229869FB9ECB92257 -0CD9D749F8518730B09C2FABC8ADD0B276E47AB6B97B9595F7119968E4F655DBC911C4CB7D69 -124A8E7D2EE0A6121F6D81518C98EDABCBAB52E8C40A32E7BAD0A43ACA1E3E1B925328FDDA9D -6BEE7E146A705A7A3E07BF048F4779A51307A4E750995E6C5CCE666C139D3DD96A0B5D18A981 -1B01679C9A9D00BC368F50571A60E4F61F872BCD9B28C70516C11163513A4E580B8E863FB368 -FB0DD03C3B9319712254597C74BA860A4E4DCF9A01D66DA37A3F5E8D5CAA9B1EEA72E075310A -5DA436C4AFA3031C3166F24FECF6B752C52F3CA07470E3453E4373542E2E0CBE1D200A34E6D5 -9ABAE86CE3224BDCEA7D1755824DA0A2E61E5A51137CA02C0C23B7902D5F3221B087DD77AA71 -3F8A9177ABACA6D2FF4A2FC9DC428D7A7B6416B81BBA821D058819973703F86949A94F3BC5E5 -90A9A4BDA4587D4ECB8125FA5D396CF8308F81F64D34B131FBF8F8CF8029FA0654616F1FD307 -937BB604CBFC0DB5D2BC2CEDEA0A731DE8371AE8E8970F9EDACC93D215CB2115AB890C9F1AFD -5CB17867ACC6B00EBBFBD506E5B6E2626FA92BFF6D2FD96BE1E4DF76C362A08D07DA7EAD1F6A -48E6831277B1ECCB27438BFB4E9DCF5132E907CD4F2B0F2C01D9FD525E8C984B6E65E93409B3 -B895C505C6FB0B8EDF9A0AF691838FFD8264B797F5BA3DE6D61D86350C7EB3F87D02D26B13B7 -332A776AB0D74E876E1EE2A68824E4B0BF0F7971BAD77DF15ED7286284AE5C87A5C0E51046D1 -EC3D6288E4339CB794374DEBE93099542CC2FB38290DED2F55DD16A69CC5045B52D8EEB90873 -C75848B01E686D8EE702D32077A4CE069CC2A0EED4E49DA4E4971E9A463DDEC12C95BC8D03E1 -572CC44A8066A5C8CED11459B2CE771470C44EB6D61BC92615300D55C286C0D75E723F873F77 -2A3DD31D67B4638C1CE23B6A14C53F33B067CCE33858F6D9406563369AA1917F227E61FFB4FA -C242697833537DE3F1D377457CA3DCFB0B5EE65026C2477D52990767645B6EDB08521AA4F4CD -3261F62573A3CBD0095DE192C430015788514CBFC76315F6685045D16E1762FBF88CF3ED6A5F -374F3F9EF817754746874E6AD764DA91BC95938175151ABA3D59426500D360C3CBBA1350E913 -CF909A69330EE16D7FD3F57629AD6D522C9005DC509049789671B49DCC930C27AEE0F268F26D -BEE5FEEF62D87677C559D347AD6A0E397B4CA251A1458B7E91BC40499D48F06DC1F564FFBC9E -C6019C8FF974D7AC6842A5D297BCC0FF825572F4D8CEC5784B4876ABA204BA3783B0E075679D -90551CDBEB05F9A30F418FF7836E159D35DA0029F5609BD7E18E42E4370D90CF6FF3BB210504 -CCDB1716B2078D249514AA1879AF4E8991E681051BD6059D6A6C187E25C2C68C05E0728055E0 -BA675EAF5C804365AB186A7AE4ABD97E5F1E15949B2B1072EBC1376D48C139181E4B06085E24 -08C92301A832EC5A7BC43A002609EEC7B30F65857DF1EA85D335FB8E096AFE3230BE11F48A43 -754635F55767AA054A84CC0BCFE16525AD037853318D6A76CBB6A1B3E2397FC100B4740131CC -51D752B6AEA6E6E92593FDA4D43532265522C75BC1C34B56382D0768A590855AB772F5F584B9 -EB0C2CC375E11DB81CEB8763E52C1AEB0205CBF1B752C52B6ECF51358D5BE2CCF0C81457CF83 -5770748B311BE1A4166E102C015E4943CD2B76DF0370FC2D4F9A5E2BDC4DEAD2E34E0596265C -9E1F3248361B04C9C778E4291BBCE1850793B53360C1E2AAAF4D6999D86E5E93A881E58442CF -FBF6C2B5E45B045E815689068D0987568ECCB4FBDC715D7E78B013F300EA1DEDA26B9A3D5E4A -BDFAD80A0CD23C44EF9F287BD698C65BA07588B594A4773DD79F266E95110B0F875EEA281194 -97562D5F9DFCE992409D3C5EB03022FAA5086C2793FFB654B489FBB15CF3E79F6D1F8AC025F0 -E9DC16F6FDA9C4DBDBE66BC2F8829A5B5AF2465C82B3E037C66604290DB6221307191FC98FDF -98DCB8CC9C56DD32651F04105E8CF638E4CE4BFFF88938B189F0DD270989A4CB9900ACDDF4C0 -7042735630B268E4F6FDFAEE266F59031B8B767FCA8592A50CC55ADE38A9339F0FA58D2E6EA7 -4C9A7A3D83260D67DCFD61804AAF20C5A88B18CB072C8F3BD193DE598AB0B9E7AEE8BA5508FC -1F0B163003FE04B8AEC5B910501379AA61B96F21066D788B0DAF6CC1A05C8B10ECBC6A33A1BF -F50EF3536EB44D65AE97A9A5B8ABC10E6C4C921238E74C0618BBEB04912F859AE3DF784CAD8C -3EFE358DD4A712AF338378453D57714B5850A3DBF8A20A9385ACAB81DF317EE22BF92611F68A -9BDD8F57102A095384C871DBD1F7D6317D3715437E3D0476BDCC810E46DE0EE6978C2CB54D68 -ECF95B6E7B7015F36B85780EC2A67983AC4A75CB5198DF6D1442E52E2902C93650548A8BFFBB -39792ED80DFF32DA2F9875E37A179A2758E16A616FB7C5FD7C4DC8B859D2F2E9E7636EAC0A0A -C2AC0DF797773CE4D0B36E2698033DB852EA17EA52FF421810B6DDBD0BDC65234945A11E006E -FE20E26C1029F77B9FA797133EDAB3417CAFB45964C3DEB8F60DBE1345C5343891B09370F299 -58FA6667C8CA67AEC2AAB738BF76A118DF3939DD57358F66AE9148BDCB4694D7AE12D223FCF3 -F9C62C0BF5D25D95E7359F99BF8AEFCD54C38FF354CB217B6D05B08EB4E959F45E31DA83C1DE -A90CBA7627132C6B08F6424C985BD6D79CF44D1D4FF026EBD71956196D6364C76CEB958FB88F -580DB2A8E6220F2F4919CFD57C5262DE45BE52F6A06F2709F882707B43AB859F7B28E698A236 -01AEE79CE4BCC706474936AEAD1B8153F89DC1AAE89C11686CEA63C0796E3D8C2CDD7D502404 -FB5B5FE5CD85B4541CC9C835767AA88B9A7560BC32A873D6A71EF4FF1F805E21098FB40908F0 -2CF5859DC4DD325EDE3E6C48FB221DEEB81C166AF27B0284477FE8C2023DDF25F6856534420B -E4D78BFB315864A2990381F2227C4EDB97B043BA81D0B42F37FE97AF7E67B91CF6F416E7AE0E -CA013FC99EA09B014515A22C6A861570CA46CECFD40142CA48F47A0DA71520E8C5611794C70D -4D51C9C041C0367818DB573E8305B51A7B0FCB8A1349BB4C3BEE5B48D340B198E949B9230158 -85D0BD2F90AB268B2AEAF80A554FA68361B7BAECAE1D15ADDA6624103004E572861AECCDE4B8 -A0585EB7ACE91CE05D138461E25BE7F879FABB22B27D5C0D9E411EB4742D45158851DE729848 -5388E321130C9728AE5099A00D944E85F7ED832094EB7958DD8C510B22BBE5D167B089500E2A -D5C39AB02AAABC57D05C08FD8999B21F3588DC5213C9235F00056D6B2C210BC2AF3A63A570D8 -BA12E83DC0CD57AC1522C15AC2DE125A923BFA7A7F1C837A97E0E59671AA843DC109CE875117 -6738F713F40B4137143A029D3731F17FB7B30C6C177149764F1D058EA1B9DFF29851B7BCC793 -82BB0FFFF0C0F085FDDB5A91B801392F9690798362B73D8B14B53B1443E6CC71EB84E3B0082A -76D00D8FA9879DC2C6CB36ADFD5BAE8829F19F3FDB4F57F6C9112390825D16D7CCA3ABB206B7 -EF329C9D1046E6908845E62B7A2EF47D584C8C0B2D92DA0EC5B65249D87649D0150FB5878CF5 -035A9EFC7C10CACA9E6C3973712B41483481540E7CD23DE9101B3972312B11646AAF493BB080 -56BED6B0AB7F5FE3FC2878DCA13553033588AD24402B7CEDD31FB405C04C42643FA29AEBC78D -897778CB82EA4A72A2B8CBD46D4954A01E8C11D2F1D3953C971888ABE3525212AD06F58A5856 -4E830EDCBFB39125D1018CC30D99F2D2F2417BC22376759BC0221361C77E22B63815F2078609 -487E0AA1E03B9213FD603C74D1DF5B103F348F1CA97D5667435D9B3DE1F798E292F6237F0E7B -7C91CF3A4CA1A569244314D7D1B79FB64BE301DC1F2CDD5AF963BA6DF546990A691FB2E24CC2 -848A5FF8EE6AC114CB0AFAB96D88CF1190B07A1E1072B04561101168306FA4212AB1E63CA891 -A1852B8244EF863E1EFA3701AB0A0DE8E46107B3C1F15181ECF1116CFC93308B4A84A23C1FAE -646B9B6B6C84FDAB210A160DB44A6BA0FBF0A285B36070337B8D09CE3EA47D821929476353AB -5674C3133A05F0B9196ECD06C5ECCB76C498EA9AD0521BE1CE7E1B022CC1D1CBFF45E45DCD05 -8E6AE87504061CCD715E24F24517C6CF5A2B94352D751BB5128FF4D696346FC2FEE087FD073F -5CBE0E8F2D8697400ACA164E2B81CE4BB1AD6F2F7E60EE473D6DB8FF561226B492062AC09912 -1F2B95E17936B5D0B1282363587AF889B81B07909D1B05BF9780B6BCA5632781AF3693458A12 -5E04712FA32852654C971C96C61238EBC61FF4139F0B33D071C899B9E8A4370782C2867520B8 -8BB5C6323B9B7C7DC8FF9723B3652FF4F7F3803602847B571BA3987FC107D207D9C5D3A459AE -C7D03C844260EB603DBA3C7E87798257F885BD8EAF90DBA58EEC517B2953E453E9066ECAA49A -5C45FE790E09067A67042759FE804225610B639E16F3090BDC828A4073DD246CF0CB239E4E52 -C27C5B570E59B75238E17B2B200DFF5F2C0A2B9D0A8FE4E916235335C3962F3CFDB04C4A3CF7 -14DB5E260316D11057A7F80F0D912D5FCC3B28B5AED44ABC8F0C1BEC8D233C000C09F7030F38 -704EAF4B000647C4C4CB3E9B1BDCD010EFDC01F3A56C8E26AC2109734F29862DC57E1A71734F -BE9753C93E867454F56845649B1A4C79026C46BE142D705EF4331B743AA3432EE6DE582E9BB1 -9A798066F2613079F32059968F4A3345C8FD9C8F91DF896C70EA779B3E6795F6A593ECB14745 -05D1536CF5BBE72A0D5863A7DAF83AE52499A9B9114927776CCEBB055A3F7B15D63A2D68A6E7 -7BE91C218F01ED5B123C3FA06002370AC20488B4555ABFD21F5D31AA1B057FD702B081B3CAFF -6C40B68CB3B1B7F025039430EEE76E8B3C45C00CF12FA17794AB10BFD6617195F023A48FBC7D -9B2CF0CA20CE8077B1D1EDCF9EAC7CF11B8D1747D4E6F20ED8E8A45E655733DDD252B3AC5DBA -85689E2246EC9848030527FE759A52045337376EA743899B7E93DDCFB52C3D7F733ECBBF9552 -0EF943DB0B1A6AD55F50809A47057B8FA4AE4C6AF8F0668D21FF80C2033F49CEE0DD7061C2CE -364D0EADA092FBF9A7FD814B861241780FEDD01CCB23D11E88A70378189A609A1C2847A29BD3 -F141AF55F5FB7EDA1F734E847F27999DC836DDCE3FAFB33F1BABCE6D9C7410AA6D928AFD3339 -CEAEB6875389899F599370B70AC2B65DCF8C809B8B2714C09EE2F329CF5F4DA25ABD3B9E5D06 -50A91C9F69DDB18BF3DE919257DD3D8B075D6E3513ABBEF0F033F2A2C7C8C4B5E3D52CAE8B89 -C5751A2956005B35AFF176493A3B3E1EBAB75A653A37EA4D18D4C95E3FFBE2AFBE12E4A263D5 -E7ED51F78EE6D19621BFFD91ED801A4ABEB90EDF92215B1207CA01F27C06CFC2617F8CA8012E -A45D36B597E9FF67C0D65A2D5CEE2F5DA0AA2B2EF2209F5A2C979244A6D859788738AE27A34F -A366D48C0EB5E33DF8B0A18F5151C55ECE7299500D26397D5B17C26D59E747D0CFAB4F5B48E6 -37965BC59C8E4214A2C50E77C0B9116DBF6DCC1CE5DE7399138FECEA3DEB371294591899B4F6 -F8C887E6141C88B436D88BEFEDEADF020BFE00FC39ADF5BF6481A0A477D4653D3532FFA7F798 -E4E474E5798CEAEA77541646B50E7534B98100C8F4D680C9C8020F4A1DF76557F7F84E0197A2 -053EBD8F16D798CB49095EFA75F3205E32D8A69F731F683AAA25B2BB44127B9910D008B8DF64 -C3DA1E47F2D1A0ABE7281EBF0544C11E23F71101D2FBB9CAFCD196E7A653070E680B42E04CC6 -2B6C39954AD292E79AE475A53DFC26C01601A05B39F1A395E36C5AB710D52FDBF09C34772D7E -2827E2763B2683382186F6F73D70CEE96E5AC74B43B953D2EC568762C2CC1405C0313797A2C6 -206A5676ED05D5FD8706DA37C5BCE85CD4DA3715CE75564DE45455D0ECE77D68674C4E7192D8 -385D936A25C5D1A1D71E45BF4E9B1A82E873FA24628AE1CD8305A7452B56C460A9E6174F7875 -E6066CFAC5397F2A5132D25E45ED4A0673FBCDF58BAD1946F36A0022EB66F12BC48A441F062C -637A52466AA01B09F9322E4C2DF7179B93F329A1F2090AD065C77F4E617DECF3389C2D1F466D -668701572ACA37CCB9E929B543190467FA57F4CA3DD6472D726CF3BF7E43E94F8EA7AE1C0A5B -B7E2BDA9BC330DE7733BD012C4255C62815D622E0FD7BAB571662E5A9F62E131E8C89EA3C55B -D371F2E48C4871867D46F2755430F6C3D820CDB80645241DFAA318274EBA0EA2EBFBC82BDC7A -52897D152D94C87A42A9148EC98FFDAB3B2539FC82A7388268001B71B3693370B690AB28A7DB -BF305E2C4FA2FA09A3BFE89B0C99DBDDE4E18914EFDF8141ECB7BE007E12DBE00E926EEBCF35 -218F0E68D0FFC9CCEF3E32C9D83A4503E64873DBD7AFC8D17E4E83DF7E5C087651895FE70286 -58F28A609509284DA3A0E6424EAB0D125837CA28B1B056D006BDF393ABD5FDB452AB01AE5D1E -6B87025B8EF1F6FDE204111AAF41A0DB98D0431F47F1A85B4B115E0609EB1757E191DA795F73 -6427D5038FE0D6CF06C8822D34374818D4BA69D980D21E0680503D7A796FD1D8535D0C5941F8 -3318E765B3934A10BBD7C426FF1BE1C145745F995F74325DA41901E773DB9DA965633F5DCD83 -7DA08C463EC5DA4EABBFEBE2AD171C938865CFB0FE7685FCA636D76D067C83DE61D9F190E295 -FC8D5F8C3361902A27982B07117C53B5902A5C69DBB86F4C2921BDD6E2223145BB57CC550930 -DF2447C343BAB5CFE5C331B4D983A698D49A5AFCF26693FE8A4E9B84994D2A0D158FF04CC112 -16A96EAB5EB7C1EA4C294ECC231705D764110D329A68E9056D5FAEB2EE7874CD3A02BE03C555 -B00D5E4C60B09A60D9CCB3D03EAE474CF07840448BD2936C43486DB06575B893DBC745428E01 -A77B5DE473EC4777DC0F7AB04C32CD8036E1225D9836106EB6DE5B6623013AB448C21DFD2AC3 -211C39FC5FE34CEB207ED338BB2E25290D71140AB11C0418342D04A04FE86D612A6902AE2F96 -7BCB97046EA3449B4121566FEE1834A1BC5EFBFC67BFF3EE3F1002395148E0AEF101DCB842DB -A132D393AF1C7BB3AFA60FC8FAD016C58D543B1176FDF1FE1557F184B651AFD0727CB9665239 -839E8D7FF39202314DC155EDD872E8A16C6A95067A3BD6F885D25E0BF7B9DA86AD98AA509DD5 -E6EB279E1BA66812B7C19A2BA60BE11D2D13CA55CBE91373A414CFDF49952593F20C68F493DA -F6A401747DB5D7DFB8F56005CFE0FF914EBEAAAE76AC40A228C010530B01808739B7FE16E263 -65A47AC3FC946F2B15CD1A03B2D3F9BA54CD71498C2B2DB42D9273CF4346F2930D24F61027FA -A44B55A5BCB84D15A945E047E5D4AA092F8F7E5C83CCEC99B6E55B5239EF8B7D09297C67AD9F -2A47ACA96CF5AE75F18CC78B5A09047A7656EC051293BE9D8ADA6C10804DE3779B02CEC7492E -7A87DD30DA3C2FB77EDE640ED070D23D42D2172889F3F92720EB5CFC67FABF51124D286E04C5 -188A2AFAE4725B7C0217FA14033349966D8D57AB439758606C60FF6C21BDD31D60F4CA20D4B0 -0E4BC99C521FA6D9B15473DCA8EDE380568FF577C29E36E45270B534B476E1B2B78BB8667775 -01A338AB9F86D88F8633D3788482126D72F253057250309D8ACBD162E1B573E48A5DC09558E9 -30071F43AFC9C131A9025815F258CEB2FD648F07DD3EE8C32A7CD52A859EE094DAA517499E17 -F081D53EF79FB2788407B8D014020749F4DE5D79BCA9EB3A09BDED24140F8A04A6831B662CE9 -991EB8C422B5193D802CFC8DA8341B4129C2794D62F6695E27084DED50A7506199B5BEAC020F -14FB15A4511A14A0A3B360DD65806C52BB97F6A25FDAC79EA6D623EBD5FA57E2A5F9DBF7234E -19C2B38FE3F30EB5D9EB9A7CABBF4D088CDDD949EC2FC0F4AE3FF465EF34250E038755C5C144 -BCD8E8EB8F7EBFBBD8DBD27A2A1A33D9B056BF75E9B96C98B1428554E06B856582E2BF5C9378 -FEB0CB9EEE1C8F49B59F7F2D2F3D4EDB8AC29D3532337C09D00F9211594C139E49001FEF525D -E97E21B8023D084EDFCBE05D25E31BD74D71AD7F9A00D8686F8CAD07053CD90597617E94FBBB -1BFA166A088B8FC1FAA5138BE44A74DDD242320C465A88283A11D87CB47F5625458C18FF59D2 -84F51EA6EBDECBC41B3B1B2483FC4432B3C575DE883601934453BF3204723BDA9724F6FBEECB -019B2E82D6B6153031E84555AB62C66F7BB36DEB12F37DAA6D4CCE13849CA8C0AF80AB73A542 -91B040FEABC32874ACC828E885C20123BBFD52B56F9BA85659F8503DC10E5D8346ECC6A3D610 -FE0FD1AAFE86B7329F927E282F821476AC47F143644E57190BCAFEBBEA7463A40018A920A706 -052F03FF292131527206405A9D05B22088813810170F2990EE2B6825F290DC613F57962AD011 -2848710C69D909FC81882CCA92CE91D5A86F7C6064D6024E92BA7FCDBA62C834F9907AB65A0D -10F88481774FB070C890A167E6D7C6A0FFEFD00732596886596BFCEFA749CEE1CC875C1972C0 -0A10D72098C053497C319FC8E24C40AC137EC54CEFF9C2031EC7CF92C49BD4A7E619662BF933 -C3D16E49A270477FF7268A1DEA730FED64195A9123D83CEDD519BC3D6665C8FFDB08F916EFFB -0201ADF018568FF6CB66B6ED186DE53DCC038D8BA4F66DD82D278AF5D44E92F340F3A8B41394 -2B7684941505499A2028B3CB42AFC4058C6AAD96651D9CF29BF6294B60C435C9444A476740C9 -363AD5F81B65365B0440AADB865E00808036BEDB6F660DA169A2648AB2D9DFEF7DF8E7926DA7 -817C95A49DBCDD1A89F763755FCDD52333694758844566BB12C23C7598C6FA3B05369CE11B17 -A4EDDFD37F119544115C9CB08D02B6281960E887C15736A5470344B18376A66B962CBD0B05AE -5E8E8F2AD1D9DA9974B4D2FB45F14E73C611CB4E42093B41BA058751CCB94F71A802329E6B86 -0EFAC7038D4A114F210C0919A6A6591592422DBD7D6BF0FB890597F43C772FD8C73C3ABDAF99 -F6C3295ABA0AD7CF5CBF96D7644FF1B7157269FD8181E36BAFF20EB09FFCB53C4C606EE79550 -AA922EFB6B42EF6F23DF0C9E8FE1EF3BC75A8D6FC0097679CAD07441571075F577BF0BBDF5DA -496D6143B9536C0B7C1D4DA1C8050492D99CA2D7755AD6AD873A85868F09809D961B03B7D4AE -5F5F04A31CAB919720D99089B62E81F97D18683A77B842BD811D6E5EFB85EA5CA7892BB8FA2C -37C57C19D71E0B290F4767CC579377F1D3F191AEFAD35BF6950E64402B6A1D91414CF97A2D17 -4BB7F1E9BA63F8A2491C54A1F19AAC9C7F19DC14D2029F8A2AF2E8FB567AF27B38ADB7716C7D -410FE8AD9E16EAADF44EAC888138EB149267153DCBD721AB2A47C4D5695EA99C68F0C99DE005 -1CCE13C3F3FEEF213102FC9F669EBEB3297816BA25CC44FD5D8D1D80ECCA77A11565F2CC9D10 -35B6BCF73CD491B792A98B5654DD73410BB9C52E6C017870BFEFDC00BB77C7E2F6FF15D6E932 -BFC362B0228861B95EDA3DCE63B34A7ADD2A24AF86D30AC1C1C417082D35EC7301AD14C0B8D4 -4A75829291CD6F10766271B2C1B346B184BB8D702B2338095E44DD97D469594E031390BC6741 -5E8A10C34C42D520A404FCC21F6C3CEAE850F78799CC14CBB6907693C62397CA29F495318CE3 -3F7BD8B716996F08C0BC5DB270A41A562BE2FD40D2AB78B0DA175C84D579A84DDF7380F809C9 -6E72E7BF1E6FE122078AB599865290CCE7251202F35A9A62E5927C14E04CF8E2CA597FC3CBCA -D21BFBB84862752AE4C69085BAB8B019CA66C0BAFB605D523C8D17B62802A2C1EDB6C7BC8794 -BA4C21BE50163260D80119EEE91F5A58E27A6B7BF4A955DD7F88D6D73ADD70D77A265ACE5536 -0190CE2A0B71DE5E260293A4FB2BF9FE246266940885E54DAA572BBA557DE73409E1028BECDB -77AD32CE7CAB4377CF7FC1C56E13094BFA8936E6795B7C69E2E6E7BF45F17C557C85B130AB2F -168FF6BBAE5FF3414E988F2EBD0C6850C5B7D7F4941D4E0C870138CDA90A06A47E073CCE7CE8 -74F47E0A8B8436D8327E7CFCF69E8EF181731612386A7003DDBA17C7C8D4FC175BE286F1F0B6 -E8A3ECEB10463438725F9C52F507658AA617B3D96C663FEF55DC426E8C93FF27CAFF649A4F4D -1FF8E60F2924FBEE563CCDF0C69295A494EB20AF9C9FD0D61AC95D056B5CF12E1138077458C5 -DEF5438EA2D938B96C99A595B95999814FF543D7B395CD636488354D8F7A60E9DBFB8BEEE8CA -3BAC804F7B14C6C21C4F381F4A8F36A201954019973A8BF20EEF087BF015C3C9318A934A010F -CA5BF22C8DA00768D3E6557DF30D48F0BACB322FF2F941D4CE39BBDA21F6193BDE7DB438A128 -11E44422F4722F540A27AE44F6A2DC94260124472287366E758B649313A37BFA6FB0AB3367A4 -2A86CB95D2B3AEF09D5B6FD586AAD9DD0B2CB6FCCF7195EB1916E748CE4766549E4DAAE06181 -CA3B46DA0825BE19A812C96C8568C5383A363226F1F671029023B9AF9E35A914DE16ABCAA85B -CCD6B4A12C697F3DBFF7779165AB83F66C7772D595B879B995BD49BA9722B69C9E7022FE6D00 -23BB2DCBAED49220EC2CAA36F4B9A33B169C0A0341AB81BEC2E6CF74853B93485B36D70E49A4 -94CFE11AA70089835357F798305F9BACEB83424BF6F6CE8EF46C1103C6B269E298945B6C3234 -17E716D874ACEC4F82ECC6FBBCEB086D49D31EBE326F186F83F203F2384B07C12223697E1B5D -A809A9FFB5D19470F07214E3FEBCF0CEC2D5CED2CC63274EFD79D4D75659B3A3C80700080862 -5E4A9F0F48AF867CBE744DCFC2A98B98E7A31A2A8D23C297223756C1B7AE29B8EE18FAE55F3B -55763B0E02D54290F868540E66BE19C99517817931A7DE54C480948A24AA723E01C7204A4DE0 -3C35C8203B6E3A09735C934ED97CCCB0FBC74AE0173B1ED630905E9AE1FC5221F41881373A00 -1727ACB626FFDF6B298D4F8F52F0A87021F7021BC718C69557F1AD2F66380ECD34FE4C53DE45 -EEEF6334E52C0B75103846D489B98EDDD2BBC065214B4F4D7E54053BF7A880562AAECB92AEE7 -AF5DB66A9836742A33E412CA5DA192B2DC3350EEAA1B164C9ECB5D93302EB61CC2CDFC2C6B73 -C52B183B8CB1110E32C53A4AD98C6DC977344A43D8F0A942A1F29491D738150D0C74FF22CB47 -6574BDBD3F598EC3120E9072EFC4EDC4F03CB47C8EED663296499DAABF24FB839BBAF73B22B9 -566B4590361971F6BBFC0B7692C6F492DBA4357D6DEFF7BC92595B6B7CD289FA5CEE6E09DE0C -7EA3B314263C073034280ED7E79145233D8781D00A0425BA5B5B58FBCC83546E400F12F986B6 -87773CE69C182570560B83C1C81FDA5C3105B7BA7826D97FF6B80898FDE35265DF018ED187CC -5ADC44FA12F2A4C6D85B68AD2DE5630C18CE4365A233931B891A10B7D0D31363AD8897320B80 -17B25650FD6E6A628898FAE6DAF369B4C338CDFC37FC34A99E322AD7E21BC9F6DF76C20A72AB -89D99F6CDE34AE03895B3D5D407021D107E9E6BA873EA8ACDB25C9D040E83BF5460AAC4F99FB -E9FC35AF089D10794D3F0002B9AEEC599EFFA6B4124DF157C090EFEA09FC2E042F8603298D6C -BCD45A68EBE75A85E352E2FBB9E5DB19247988477D980BF36FD5098B30570C8C366574AFA866 -2D645F5339AA63DA01505015D606AE713D6EA37241A0FBDED41B3287934EF63C9C6CA3CA0080 -596006E3EA9D659C767B9809A6BF9ABD3DA7D7C8370B002D806097CF791B7FB1BD81559BF3E2 -B870706130B61202C3D470810E645D0DEBFAF67887187CB3A176E635527B345CA434B0EB82DB -4E3CA56A99D3AEAEB7D28E7958F62CB64109E9851D99E8349E5C8A6447BBEFF5C33AD744A14F -D24B1A7FF787FE1D1798AFB571AF125C86D63D9CCEABC78510ACEAA535715AD2E2343555A946 -4ED48F433FF7615A6A256632899D3A304A53C9E0C2F7F9F900E9F516012EE5D47B953636C6FF -09FE358E2AD85AC0765BC4CF40DDD48326EFC1F24C8C46375E0816725F96569D6DA5DADF2B4B -9613D0B59B5250D270CB85F15DBF6F490AA8747717AB16EDAFFF7894DFCE0645DE045426EB14 -E2AA1B6269957A7D8A1FFBCAC0C3827341D144D0DE496063B9CC12D500184A1C8E4CD96A5FE9 -D08174C931083A445C49FB6CBC7885E4283A92564822143EEF0C9A5A7FF9E92940087A0D365C -D4EA8CAAE6E86EBE060F2725572E7F5D5D43FB64F4A2481ECDF2B14FCEA64DBD8E2FB311127A -F81CF3FE4A58DBDE628AE55448975D5F727C1E8C8E61807E03E4E794BDA46FDFE58FA5651A64 -96A4DF3E67719F82C50CF5F853E64CA955304F336451CD038027E7990D9A193CFD9F287B6DF8 -866455B372E901F72795DDB55D5F3B56FBB420D1D23A1E0B98B1C5F98F506673FAAF2621F885 -46ED3270B3AFD692B68F54ED80A3A0C1627B9494FD1DBE1EC6988CA4081CB1EACD40FD1F6C22 -9F0C0CC14E52C02AA9F0CC6158521CEF0FFE25ABD4348DD2583B55DC1CAF10B78E65DB2F5391 -61B4BC444B774FD149A9709AFD1651BE9615FAE77781CA1DE9A955751A2ADCA50437D942EB18 -C460ED90E0B4B9FF7BC7A846B156C6218D17BD9B9C77844B07DF7ECEEA83817DA2E1A93F2055 -D31DC39715AA579D8E7375E0D40394B6599EE259DF360554B287A0353F500E8EF1CC30180208 -BEA3693E87C543450C7A64070148F2643264CFFCDE0C7B978C7B3B86EC7AA1C421F4AE4833A4 -8335BEC9FC4B2B5FA2277901CED4E622C21BF62E2D9C7980DBF1387BF5AABC37C99F4B29F84E -F1FBE2816468D850D7D79036A4CC53ADE666CF5B3E36812BDFB49A432B24CD80F2EF56DC673F -D125B088F1C1CEED8C5BEC34E275B1921F6DE29913D2C7348B11D75007A44E797F97C15CE29A -6D67F3C638F3D7DD40BB8387FD6715F7CAC0B8DE9A9310EF3FE7ED9616ED9770A0C32F819C5A -E4516DA75AAD43C5013E7A35462BE65935F5D3E0FCE5DEA23684A3624A23788A61109895E5A8 -1C2C7689ABD426083B0CC04E67345D6396285DF8A3C72041F4F95AD6828368EAAE3904D4CAD5 -95DFA1B3DCDEC95643E00DC0C91D5DAAB683BB62A1BEF2F1406DAA854FA9CF8D2C0AFC340C0F -6E77664DDF40B3AB01D597A2F3D7E6D77C5D221D319FE13756AA1D3F15A84AB7C997723CD135 -A259136CBF6BD6B90C1A96A16FBDAF400D31B68A1881F40549DE6CED7B22E68602A3EB2E8909 -928EE2F6FF0BA635EA6DD31FBC85E61A38DC08106D3FDDEDBAC2BC616B216545B98416847701 -D4DB1B81AD6BB86EB9DD8701F6E55207D8195ACE2582D66667558997FC7FE2AECB0CC6940819 -FE9431166164546CEB6D94805FA53BEA442D81906774288D65E330AB5E97DD684F77EDBC25FC -13A485A7E1D179AFDF7148B781BCB0F6CFF37DCA011BEB197CF7D1142583B8230F23E6784F83 -C361D326843D2621A4A746FCA878A3682311E1543557A5C845CE52430CEF71DDC06313095799 -0259ECF94AED0E117ACAC19669F0F685C18D8198E35344C4B6C0B02F870E71BB8624404A88D6 -2A83D27A94524FCCABCB14DF634245093D3C1B7FDB60A956FB62560E96C4D71FFE8552BF0198 -83B3E12D88A36406958E8FD715A5295829B89B8616C3D3D9E917F72D9CBCE635DA4B00371163 -A177C27BF7DADF68F5E08315CEA0E82CD06367D81E03D21F3234BC53198BFDF063E49C20A394 -9D7CDB56B82903D1F6E3FEA8C72FB38710F26436A9DEFCB39F32A107BA65889EE9FDFA11A5BF -855254A622C2CFA0D847F43872825FB924513DFF515B5BFB639E7A6559003171B34EC1D8914F -6B8A4A94D321585D82596A1A23740C54B499CCB27322737CB72CE7D9ADAD433AC82F1A20FB80 -459C589449C6B0FF73A6818B84D0E63251DBC9CF35155E4DCEBEC2D971C0531C1741BB3FB7E1 -8E6DF0C161CE9289D871C04EDBC914E68C975B5C9E504AFE876E38298BA58518A7A0D8BCDE2C -D110696EB07EF9B1B08EFE4E28678121B6317FB8E40EED49B0C6A498E08D50B9D260C150AD87 -1E196F30A5AAFF5735542D3CDEBB874AB1B85AFD9EABA3AB90FB027EE12B67187805705990D3 -95F7638756C1D54D97B73C8E20E93785910FE23AEFACC344DE494F8296849FF6CDA558157026 -63EDB02CF598BC6879AC6792E8124296ECB2400992682975D6EC2A2E8A9BAD0F6A34B6AD1E8E -29EF3243910DB848B839B878A0F18F51308431ADA56DA932651A0AE6C53D819CDA8DDC43B7E0 -8FB72B551AB29A41461912E714E14670C41D022689B93075A7A77B1D1CC7211F164A664AB43B -355E614AC11C430799D8173B62A4D9C4A6447415B0525A14971818C3EF24C85E971AA67558DD -9280BE6763A5D7D7A42E98E7B3A6443B4A2F5F8B75858AD3467D3BBA06A416557352205A8064 -183BFBE7D7EB38BA3B17E0F2E20F584B8BD659A0423CEAB900E863D0426022F597CB4E96C27A -992ECCE5A9187077CA2DC43F0F8D9E568673A2EEE45E8C4C963E1618ACF7193F92C7F70373A5 -C36800A409F85F40B667E9C8EAC1F6AA6E393840CC3F2D4DEB7F32A5A79D06426833441E56BB -52D62C535F19686C7B783059F96BE13AF189195D844952DFDA0EAF0A804D2FF469E3DB72440A -32A3676F703E1FD908832C0A2D4E3C1C0CB34B6B915717C3558E1B491D66CCD634BC7859FE90 -2D1B3D65584C14AB8C63406C88CFC0EC46129976351EFC0433BCD7424BCAD8AFD0530A746E63 -F02B35BCA21206A6780F4786066A1DB8E4DAF77A5E9425D427A9164B57FF1DE796A42B64C635 -14497C86A47BD93414E4800651808E55488EA180AE94683C686D5D391C00799878F61FF52D44 -C7D4F8B67A38A2F34F7DA2853F683A58CA55500A636B16CCEAF3238A569B5602FE21CA57F27E -D112A2B9B1DC049230D70FBE36A95989ED40A4CD1ADF36D00251F2BFBA70FF7147B0CE737C9E -68184BE0B796B14CFA646C2D40D8A69094FF498EAF21442EA3B3EAF5C663995DEDBBC14FA593 -2125C376A819E54D42DA07B58F79D56C62947509CC6171EFE5678FDA6E250F610C8F75753618 -2D89DD1FEA61E58095CCBC8871ED21956D3C02D02E52607241ABCB2AE2039CE192E41A3E7EDB -8AC61A90CAA08A22276ECCE1AC8886FC6D31F828D26712F512CF7D7F4E39F6DBB86FFBB5E6BF -59C606BB666E1F7EAA67B159B0E2312418AD16E0F8F7E968BC9906BEC3F431FBC1020DE40FD8 -5229B81872BD01C36340203BF578E8190CC3FC11EDA4F8BFA8CB5F093D0FFBDCCB2659FB9213 -7C38BFD6F974EE8A4785FE21D7B9202C39627325B13CDEE2AC6645506545CB3B0EED0DA77B6F -EE364FE9E93D12DF85FFAE44431226444EE3D5BC8B0DA757AF6CEEAA68E942BFBE3E0B26EB9D -6FDAC2F07DEAFAAEEF83FF8DBA6DDC857F8676A800501101EFEB85665D4F45A348C48D19182D -79D8675AAA01F4A45348C5B8CA314996914DCF9CAD6F84069C8396930978F0A13D1AFC07DD5C -56A57C5FAF190850BAC1EE24E6274BA4A346113C316CC2CC54E6C62DFA1814133A51F815EB5C -D667DC8A27C11225C9540BBB66B266C17C983FE92BEB384E98A0A072F079ABFB8E79296E4254 -433FFB03BCACABFBAB63D2BA57CB7D382C853E4B84DDB20A25CDB53CB1FF3DA99F8F7EE024E4 -80CF07B3028D00319F2D49AB191184CD9270FBFDDD85FFBE9F941A283814BC73415C652104C8 -B2B15B407C8A5A08C6482FBF7AD745DAF6EA49690B138CE179402015B3170F3DBEC7228909D8 -35035671BDC79E5C3803360C082BAC1DD928E5AE0F7D148030031E30AF84F9CDD86572BB78DF -BC3C4F4FA533DE03DF60276F0DCEC9D51B6CCEAF6696F780DFE74329A15A31776C58EA1F23AC -A2FF8C5CC8EDA45BA48E16E7E21C5F022B1CF60085519AA265E93B640F3782DD1DC3B98446DF -154EB4CE413C8CFD2E83B7E24D18D8AA9F0558C4C2EACC6C4931F070ABF78BB0DFD604A96B34 -A5237BA293F75A604F8995F389C81CE309AF7D4500050A0CE25024E7212E94ECB787209DF361 -F621F7A5659EA7688CE907CEA6B2046A89887F2CB3F6811F72B44AACF21B6C7F1B5741A8DFE6 -1A99E740687AFD27533FD92E3D32DB5F17E497819947CC7A808C12280A41C6266AEE3F83CBE1 -E8C008EE13B82D2BE12A5C0520C53C458ADD531A0EEC1CCF973E4D02AD17A5AF787B810A2FE0 -44F1A54052285EBF44A1492FE2DFDB0E31E5F229B79EBC8D929584F1345A277D53BBF7201006 -67B53FE5189C88FD247840C878C7332D1049CA837C3A4D1C6CDDC134C52C491D18918D95D0FC -AC34347597F9348EBE0098B6EB4F71B16A3B2D6AD2B56C0804DACE634AF9C60E279ABADC434C -110708E83F3C23E2850F3281330A5E1097DE90DB0D773EC01D5913613B87A93C745F6DC3342E -711BD0E3C77888A4CB54E37052F69B7B15D9BA70DDD5A071F73FC75A15E4BF7A0BB641420227 -6A33DBBC3817A31811647358D331D77B4F6CF82FAD8C4DB7D0723DA941D600323CAD167A35F4 -7F7CFE62FC26B996B863458CF6CD2CBC1DBD5719C616E660620F042707EFBF2850334DAE85F6 -837B1430998156A3AA06D9B4D906E5AFFDBEB84FF65D8ADDDCF5EE5486DEEF713167C69A536B -A62B0DAEBA5A2D623551F85C64F3561D50966993355735788352F5B9462BD224DABF7A5CD55C -70C8BCE61F09DC91B54AC4EBFCB907E698F19D03687BBEB181A55C013B9097143F984E717497 -B03FE25270B43962E701C86FEF67061CD7551934FF2ECE00CA9310074FA2A051F4EAE608812A -BEAA4E01E7C37AA36252A816BF8878AC1413D74259C821AAADA9848980B67880335305AE20AA -E3969F6DB061FBE75E197769838562E15FEC682E4EFB47D7B880A381C56DA549A6E92E668B79 -144B2F301EC744AA065F891CFCC7C198768A93654CC8301C9BC6B18CBFBD115025CA4F948873 -5BF830BD8A91ACBDD65AB4DC950A0654589C70375C834E2043BE7E83476021732F235A1B26E5 -F109B712578F60E86D40DE742CA00AAE40C008C3D0F9AB6617ADE1E8455BDD66395BB69BD7C2 -ED95AAAFF80BDE1F35B6C062461A2DDA590BE06B414D3E7214B79CE9FE77ED4206F394DA2716 -8FB07AAF8B937DADE912B46D5065576BE3D7276BFE8442BF8CC59A2884E8B755B46AD1751E42 -C2EAD45887E8B045F2EECBD2E5F4DBBF82EF20E62585FD2A221DDAC8DAE040B865324DFE665F -6AAB9605FC39BDB676EC6EC479BFA598252BDEC4E6A67C5469E378BF0E48E3F594AE15ED5E96 -03F4BB36B7058E00BEE6E3E236FF232DA3C8A4708FAEC8BF00D207CC56B2E051221C969A2395 -1ED65A96DE6E8A2D7D601FD1A80F814B16371568A5EF3F2A1EB841A946754433016506FA3D15 -2AC9049318AF8B37D5D3FC49A97F439393AC4B5384960569EF35F6AE375956154641146B8185 -6ADE6B5F145B4B8517A41FFA9FC5D5243D5B065E3AB234E2B2A2EECB7C5A3F4CC75856E5EBDE -63B64037EA2EA11CEAB0721C9556499B263D3CD1E36A18C08A283861D5CEED5B8C92461F18D9 -061B111DF34C33FF3086BDBE0912AD6E44A1F59BB2EDD4FD97CF51454C42DB43F43C0C161BD4 -144E16A673F676CB8E4908FD3357B61B3D5F77A8899C4892FC2E7CE7926605A37B8323296000 -52A2CF5A929B3E04993FDFDC22CC73A480D0D0675651B85A2500F4B5E9C6077237347C7B62F9 -47E369D091BEFF5E373183F28BD5CE3E3DBB6EE8E1A06AC885ECA9823E60263CBF84A4FD6318 -8CBCE1C0D45E24E0AEA52185C3F079D3E6027729479EF2EEEEB464A05995744BD02BBF8B3472 -2AC0AFD39EC3EA0FB691E163B8C53189B58D264B3DEF4B0F019DD850DA18AAEDB27AB0A62CBF -9F16E6D292B6A007A7CE004ABA34C4E0AB10A2D807DCAB3C59AD90A7D733458F74BD6ECD47CC -AC59595C3352F6389E44A9CDF01189DB0C8A4EEEE2DC9DDB9F90A8B40C4FA6C6D161976FEAA5 -34ADCB5BBF408E3A1F7CA055C4BD7E7E0CE6983DD9D5F443A7F85366F66ABAF6C40DD5D578A1 -402B979A9CF04E06C261351C7C1342BD288BB837CBAC99AAC0EDC747DEBB20587DE74389CE57 -5888604C2F361F47D2CCF3399AFA3588A253C197A6684F4AB7FD7BA794F2C7E845FC08FEF13D -BF472F80BC519A78C2C5E36628A7B2D82778B10595A8905B8D55BA21B17CCC7BF863817B3931 -D15AF99113E0B2E02B2353573022EE2ED59F436C9A36438D45713E49D0E981E2917C319503D2 -F1B8D4E419CD3A4AEE383694A88031F7694124682CC4727A96E6AC9BE4D9F67B85C1A30DE92A -2B6775AD849BA4EFA17D269F8A0E7DB6039DAC3CC36B3512113C134106E365B92A93F5DAA301 -2B9A3AA85C772BA2165368C5B779FBB02F801046F56DF1BC66CDB4CA9A732300DBF2B7D4F852 -9CF55C6B89AE1ED3E8784CD8A34F7D450148E8B0EF9E4EDC3898450CD67DBD40311AE1B3F3A2 -0A02A1D4384B06F310315CB912433B722AD478F3C88FC910189522F6165550A30FD55777B067 -BB23B517031963AAAD55737698F2C6183D2F00952AE4887E19E76847B44F6623E88A5F04179E -4AC5FF04BC62EE6FF79F0D29238ED956724AD8EF03E0084844CE978EDD10D648B8C41F8EEE33 -B64B5B8CDFBB066BFAE9D1D8674B97A2221A831906FC736F6B2D8B3BFC651A6FB7C2A9C2D7EE -A0332DBD1C3DE14C95858654D73B54F7EC77E680F505D3800D09CD927AC7EC9681282ACD7557 -501C55A8276D5C1F6682A67ECB9CD7D50C0101F4C9334DCEE02CFD7382138A5C15C4C8609514 -26CCECA54F3D81153C89F19E94D609EB3CA6FE2E1DE2FD6CF565DF9211EBAAAC932B653F0B8E -CCDD6C328B3F13591F6535E0A38422CF3D3C3EB26C1E447703026D55FC6872A733E8611E4104 -8D6516D4BC5806764A7EC20037EA56761C522E942B87794CC8CA297BFF78F616A943E0120227 -0E5DADC4E5335D95AD735C839DF3E0ED352C8AB42EA9F83DF744136FC278A0CB219BE3198B66 -AB3CD077F2265CA71B4F43D44343FD8170636EFA6E550A621B78B7F3A4F45B33642A739EAA04 -637835120AD4536D7BD7360C7AD79B33F667393CB0F1FC9905A5FB118AAC2A06C5B0B43B8D9E -09A87D2483703EF4021351C2A53F6F436D9EFCF140FA252ED7B594764D6BF3A6CB251B372981 -BE3289F70DF1EA88A08A653970C556D6DC622ECA706B0265057434B4D5735FDCA322FEB59921 -D39FCA637AB5A059C66F433C6C86DEF0A22E7A1BAF33045448B9961FC3B3A81A4F17360F4C0A -C3A693D18E881CD6EF6017A98630B7D20A4366EFDF25AAC7F76F1479E6007C364EB8747A414F -A9B517D14832E7E9056337691F464BFEA94CFAF2F6B7508BCFC04E9517D62B1EB8D740948DE5 -ECDFCC41C167CBC2FDCDF94E2588F7B1D9C755276B2F8FE780BEF4A647404FE290649F18C03E -A57F3031501E343B557C2B77BAB004DC831E2ECA374FCD502AD7748916873B3CCC2DC1BFB75A -C35E2095942D6014D72EDA483019357B27FC9E8D010F1CA49245EBAA01D9E7F973EB55848A6C -2072DA3BA681C73C979694A4ADB6C791524AFD9FCC1B93BA3D446F706C62F540E32209B1A6C6 -A04B2F07C9AFB97A2E62252603C417B707F61E46D6067689150BE579AE9538D527819C6B664D -77D7CB1AD0A7DA4716A47BA0A110EDA11A13B8260C827A6BD62447146FAD63E7C93C7B9DA7C4 -D391EDD8F47F22A867745FA7E0610B4D1A9D97953C571C010501D4E52791A904A33A3E94DD3D -F00391AF9509A25393B106226A09190B2F4C98B19BE198E5BB165992913F68E0BA95604AA56E -7921B405B11FF4DCF907145D02E884432C1A958079A65DB950BBC85C188C575725E14E54D129 -9EA0CC49A30A4FFE6C8C53FFDCB1368A56E64B6F8AD4811B2ADA2001B9D71FFB594ACBC84403 -5CA4C96B45BEB6CE65611E79C1D53893FA09B05716AFF6D701CFB79D5FC242743531CF810D49 -C01C9BA3A9ABC1FF6F1457F241A1BE30F1AEA158CBADCAD7EDDD5E4E8DBBBB5FA643166767A0 -9B6F4C7676C73FE98BEDA6C25A88C4897B4582637C2659975D9E04382FCB63F05D189BAB3929 -53716A71641449551F3AE7FF8601A10093DB870552DB755F1E8E19C00229ADDDE70E09D87AC6 -B1956D76FFBD197563891A93F59C9CF761EAEA902C5D3FA861DC9F36162D1087644A9A136E59 -69F65412971DE335114E279A494EB2D7822C585EA066FA6E154801E7BC5E2DADAB3A75325C16 -2F080ECE9C08AE953DC369FB63D0A54F13452E820346B64400276D816477C4935844DA3E8B1D -D5108D94EE0A06E7ACF4486744F70A5EBE46446CB308E3BACE9C1A784E447037D53CCF41C21E -5665260A683118A3A2C7C735B976C8E24BE67C7A8D4C2D8AC8DD5D67D6D7656E8079D3FA9D4E -C80B7053E982B4FE33B60397CC6C8EBFEA0838AE013EAB2BB287A19C00744F6174E4DC234428 -330F1342026CB013E6A146DFA61AB32BFF3FA494F5FBFAC4F463D11F8206A7E9171752385C43 -551F98B8EAD9027F7DFECC539ACCCA9A3BC1A4E3D0E75D66E1423EAC2EAC6C40728E32E1BEB9 -7F62F997379ED11EF8BB6D2D864E4FF361238DCACDEB717781B3BC64A60FA0C8011FD8EB6761 -67CA91164B783878CEC9621D60A6D5BBDCB847B671D99B905846142235777FF1CA8846EF233F -87172A04509435309CD57405C4F9B4C7B4C3D358906E049FE100F8AEF681FE828D254290CE27 -1FE9DD69C76C698F4ADD1BC1E9329F7FC6D0F834299243BB4E8C304BB4D2042CDBFE75EE3885 -D9CC6A5A7201181E603B146332A4C709A4109B9A974AF375A32761E539DCB133DE16652A3D5D -588664081CF805F2A6716EB8694B381B7C2D7506871732BECFD492FE0746B81287FCD6B96CD1 -8E62E8582E5AF24CFFEDC06F66B663EC5CF673A29FB2C8F10EF273020C3C4E6C39C3B29694DF -473E03EE19285F3A0086883F605824E7AC8C0E467421E4B28E60BE09B04FC78F4551361B7381 -D43281034BDD4A947F36C5954BA33FE51ADBA2B1ECF182C370889DBB6E3ED10B5F4EB2EB2A4E -2AFE64FD3E5DC8B7D479BCA92997D454FECC0961AE8D5DD1FB701435FBACD13A23F162B07B63 -88350B7050F581A0F0E3854B2893F5D98B4502F417FD54C6DCD88BF416392671672ECA5ACA3F -5532E2E26DFF72A4FECEF18D54293752F384B7823A561C32464291DF4F8A705B1E5D4484EB68 -E34FB53043AB6D03946D21C14B40821E31790F2564FCBD41D2898AE7A00E68A3B96F09D4951C -1C7AC58BB67CC9EBAF25D8F6E6E4C2A7FA2834EF7379774FCA8B29479188DC33536A61EA3704 -8FBCA3AF46993B2F9C5DB0588D37AB38A50A498F1185301CFFF8EDDF4C8968FA56EF672CA8A9 -B6D5D8B8185FBDDAC07BFE92E6A6620FB482762A591CB55403811A67AAA98E3FDE18E995579F -FE26412DF5E2D9E5B2BF51908ACA6475E03F98DEB10385D254A49B10D613152C9B2F1D36CD78 -93EA04DDF7880AABEC5ACF7C5EE41B6ABEB34B174BF26A71DC38194FF3E992E7FFA4CCA2DADD -674114168EEE14371AC2607AAE5EBFD740A1BB65F92B70983BC95E26441A416E3349B47F6430 -5B52CCD15140F495077D5CD478D0BD32D1815C5CD50C0DC2A65B05E831459DBB764F56227F5C -755F768AA9D19533A21E11D02FAD18886ECA6327A8A2102475B79AC45D7AECCE5FE5EE2C1FA3 -6D09391ABCD292859358DF410E5C7E0E56B3ACCB79B8D6A23C3CF9DDA318E581F85C9B1C3377 -FF5041CE58BF3B2AFA9F58FB07D0E11F6F7E485C893F35B914AEA34B3A0E1E6D8B87F8FB750F -A53370D86F4FD2ADE0725B3F34859769710C32C0600357C6F7CE828051693883E884DEAC5385 -D3939585CE8290D853C6345DC2E1295EB6E90A88F68BB54158936DE9B9A96101355C14C21EA0 -13293A1BBDEED8C1E9D4AEA7896D2465F85C2B8852CDCEFD90FD569F3635F8DC6F781E66EF26 -5547A7DBDE8A42894986484C922A35F1183D166CA04F7F22A6479A8E762D12AD19C58843791A -3E3F1A379B4A73679988AD06F7F843948FC23FC251E72278AE204AD2358F29416826E8D245E8 -20EC0195E967D51FF0A3DAC102146195EBBE6582A7AAACC8372E22CA698F6C4C8574F57231B2 -091498391CABD6282BC774EB8A18D06C547585BB58DF304A5BD3618713C722780C5BB6588267 -A45D8E317998264A6196CE7E71259D10E0C749AD9A86A0AB155FE1C6E7BE35DA581163C2E17B -F9E4A63216CC013DF55C70A4545DF902D109D04B41D057F74E35CC70A35BBE8675A62F1175F6 -59788866D9CB96886B240C3447148841B2B0D2BABA47753197E89BAA025F153C97E47D9102E5 -47937DAB28C0859092B8992A2F16F2A0E3F910E4DDAAA65F0469FDEA0C17CC67D4E60C0332E0 -C17FD62F2EDB33DF9108CBA7B9D98AED6E7A4B649EAB2CAA0EB8A4A5D619D6A1660B8345B7EB -94EB0386FDB600B0C7C073A4F1021EA25EA174293D7EBC3A21202CCA429E0F99FC26CE92F2B5 -A404B708E6F8093AE962A72245AA83B4FE29273085E4BF2656BD33AF533FB6C90F47A8126762 -6F69291DEC6C6DE20271AC0FFA090456D9C2D496D754F1DC54498E4307BBAA994A6475941029 -F3023AAF6203CA2BBF4229F4A577AC4C07F6D12C1E3A4AFDB7509A1989E3238AC4CED93BB656 -EEF6E7FC5D1B56E69B87209EA34F6BE22C323424CDD61B246E3951A03E760EB3B10010416593 -4ADB268BC0BD0C97E9BEB52441CE8A9B2B91E8590CDD9D4B0EA33CC559E8E2D185A9AF322973 -63B54934352B0AB1070BF42297D82BFED566B701746AC2A580543B130476F5CDFBACE0C6701B -C6CA5E7491B0B11F4BD1E0159E2E39CFAC16F809B814A8640295AC986FA17D473F7F709EF22C -C76C614CA2D0009D82BEC07B12B9D13CDF6ED7A0CBBC09667D02C7AE0FB4F043144C990F01B3 -9E7E945F10B4364BB7AD739DCAD8B45C0170BEBD7C5DFEEB75386969BEF311700D9E5C1927DC -F01CAF028C3C5EDB3657BE318DB0466887F4F7ADF1214EABC0F970B9E912271A6737CC9A2531 -BAD18AA53FDB3DE6D121F33744C6BB45C91704E1AAE00670924A9F29368E1D9B1F3F48FE02AD -2CD4FC56DDE5FCC83CF99AFE29F690FF9E81CDDEEF438F07025CAE68DD22EC0CE88249684712 -EEA1EA33CD6CFF25679629EB74216B73E39BBAB45A9653B2B4DF37DB78F1850DE7B366B26A73 -E34CD5C31655C8D11FC9CA7485DB016B66BF5AED8D24A3E21660049E58D8C6F25237B66754BA -8EA58DA98633BE5523530AD140BE2ACD6297FB39F56C358AB81376E3BA41B5D25568317DE54E -58A204335FE0B400698D35A06A09C966CEFC0D636B7F21FC7713FA6D0E51433F7076AE7DDE66 -6643F7C69A25ED0F9E4C52FAEABBFF538CC47856ED6AF9A91116478641E0FD8D39A294DDE23C -E714324CD02C50B35D3C3068A83A5135562C8DC09C9D36AA49931B456A1B9546A40EB520299D -915E34B210BB058CB710837D7B89B1353E7CF33569E97675281DD6B46CDFB542ACC913BEF089 -2EF8F964F9FEC997805F210326F799F575639306E549B2694F58A05CF211F7F5044A9D1BE1BD -B43A956776152E1496A548DDFA48309FC5395F05D5700B2442FC5B66B14625495F84A53BC83D -57DAECCCB55A2AD09213B635366F4E95C8279EF1A1AF4513558F46BCAAB5DE247AB2761A0B85 -3106D915F2B52CB2FB89CF9BF96518557E384623E9221653301FDDD0331C2ABF093C087CF023 -DE59ECAEC1083BD58997621BCE113E00DC3CBC4916B4971F75F9B41090E26FFA40983C9F60E8 -C7FDC5A23F96EE4E492B4384EAF91D61B50FAE5ADB1F3661F0AE972843BBA421277989C8E64E -3F8DFAA46055AD055D31105CF5484451BD090707897CB4A08F719102D3C3F36FB7A3AEFA3CCF -1B4D201FE2887E15870E3BCBF735D635525A857A4DEE414359D0C67430939372315CA3A8E722 -62B09E162CF045C94F76B76588D35C59F1200506781D89829881315301F089367D7A5B3F3F9E -364ECF998208186F4B5ABDF260E8BC5999892290AED87230AD76E508AD107E21CCF80F3E8201 -4548CDF8D133AB6B29A6382680A86E9DDF1AB21F9A73F5B86691449537AAAAD97A102F2BFF49 -89B55D1B515308F531DE8C33B02C532E7FE5A38C1576C9EE90FE62074B7CFE9664677375C1CB -388B6D945D594A5C67EA78D4D707F337F90B90225CC36422237E5A3AAB04A3BC377403EE0D74 -C6B8B1992428B04FA94BCB7F8B73B6EEBFBD04486D48313E264CA003312B4D9A96235E2865D1 -A5AFC5E8303287A1C854C59193D189171CFE0966CD4DF78367C5C0593CFF0866E3B693959035 -9A1E045BF4B1B77B83461880E025014F59527ED2173F119A8E961D14D0772F8A360F68736091 -D33F5E6D45F4B3A8BDA4D5851F56D2C1E1F0B1B0A274859C2C3D206EFE8B9BB918D323589EEC -9B5094A2024BAA2817F1FB51238DC4D8E12CBA32E1F6B4ABF5EFA1BBEF815FA9B16AE6828F2D -75FF5A93F232781A318F4D279DCBA752B1921F3C1E9FED67B75218715A40D953DF9F33BA55C5 -F7491F0052C6696DBCE0FCA409B212C2CDDCC39F04A6A59BD3A8DDA87DA48B1E8236A9B03C0D -E356B1D449731A116844A5712B0E974652FA675273A1F215807C0AD724DA5BDEF76584647F2D -60FE1B72EA05CD4FFD8C64CD32280CAAD8D94D79F526D4F97A7DA441FA96DD9FE9AD3E407432 -8697C7D99ACF8CEEC594DDA4C125B7817D072CEE580FA9A79DDCF476D28607827420E05C37A2 -D7EA73F6D87BAD7C5DE675D36E0F350D19CC2E74793C44A4C2FF3633FA601F92DAFC83339E1C -EF4D2E736280486363ABA305E62D5E288320C881CCF6F8BB9E984CE515F5B7D20739EFDDB091 -ECCC72D21DB01DC66A0F94CC96FF0AC8E11CEC28A3A9867568159B81A97458F5A72620960C02 -D0B4A4924DE3041F2D83BF1DAA7105A63761CFB7C6189D213125B5F40DB54E8FCBD8BDE75095 -15B09BAE37E0BC9D9784760C629F281BE899A7AC0CF756E6F3A8435AB8B962A858CE158D7556 -5F25905C64A3A662EC452F60D4E2E2AB171B328424CCB4908DD6065323462615237A2096D4EE -6DA86933F8B05B9236579E229E749F325901EB529B6A581DF98D232D784BB82722CCDC0D17B0 -8E259F8A954DB81D0BCCFF7CA70EF319708A39AD44272388E5A6D14BA8971D88E50C98485E4E -79CF8E4F34A6FBE2D5DF6D2C8CB34A13168B992B9053DEC46B1D286171506479BA9A92487188 -BB9F73BEBB6C126B3CD306AB317AC364CE9A3131A84FD90EB9E3D68B9AAA5D6ACEFBA10DBD0D -69BC53F80C57A4A7F5B988F2B081429A2CD28801D018056A40D3F8CE7C07946A5E5873C2CD9A -14C539688F0899F97106560C538CCD9DB33E99C30B5C2F3F937F6DA811D8EE6E51E24F30A428 -E915F2408E0A1D8BC076F3AE8150671C7DD18F86E98E1597415AA44E1D4E1797754AA948762B -1E09A15DC475F8017335F198D785309B38DB4F1ECB171F303E845B0348806A5445279F020A9E -C1BCD838F671E6485413DD64B7966B4D228AC6766C2C73AF238E485095E5A81327E7D5B5D805 -6A2C99ACA2E95CC2F4A1DB8AEA34C7E5296A1C0184ADF5A429ACE7F4BF51124D286E04C504CD -9117DD904AA27C2585D0C8D7860C24E08A3EEE4AB616E522ACCAAAA44CCF315281A755CD2D3D -F599B54069F13E17AF29FAADA02AFC0752C1F8EB17B4803913665A83EDF8851736A8CD23B875 -579551E048F6F7C11B0E301FF866A49D7BFC423925730B175748D7E1A83B9EBDC4784BDF687C -4AF54E24C55FE08E0366576FB4889C10DF4EA37607C5D1EEB4D07AE5DEE0E7484FB30B628277 -3509A8C8E963B3F59F218DBA7C493EF6BCB37E726DD0632006C31F2A76C503DBB0ABFCDCCD09 -324609D67C2F9CCB572BD559DBE366B48ECD71025033E75AA048714ACD64B5A4A94B1B778B5C -B615D838887A00A673EB27337A45B45B430D7B4CAAB48F1A196A7C4B04E2F4FFDA02792A1501 -4D97AC577C43774A8636A1C6EE6CB91F64E1D479076B8190A5E2C7CB202EA3A4C2885A047341 -3FA38127D269F90C4661060063D96504432A2A2D7EE3CFFC0F7E1D7C989D77A05AFAF528B6A3 -AAC4234B26F3085BA49EBBC7A74322A35008C626C6B0FE67646420035DCAC38DBACEEBD00C16 -5027C182E564980BF8275958E966C801ACD85FC936A7BD1F560E48F8E23658736D607CA8EB56 -2E3EDEA38960F798DB046D1EC3AE527C66F681C64442F4F5E23B67B522C29E9D545F2910D986 -654BB64EC184B52859A5723A38C49E3A8F8FB1605386D4D64C198D43F03580466ABD15307033 -1F9E76E14380327ABC9BF78E32EA455E3279ED3F6670D87981DB1A169C3CDEDB1A9661442310 -7B560AB6C473DCE996AD4308414F3F4C9FBE95C8F8CD8FD905875E5BAAD6875060782C5E7576 -AFE3A9C24800127C444CFFE5E7CB10D44EBFF90EDFFBE99C4635D5C8CFA85D94846AC3BEF1B1 -51DF1AB34C25353BDDA5C432A908F6CB42DD459940467E02056072DC9FEB0D28900A2BA82C0C -BE9E5D65A542928901A26EB764D180087D832932B9B1FE5AF5FC87857439C551F5908DE44B6E -47A99532149E3106C682E0D9A3BB5352EEA264098C96B4DED978B2D1EBA5802B7E2ACF82FDD7 -830B71C7C252EF6797C0FD20447D0712E700E4155DCF2FE02FC621AF1ED1CFB173DC65A68D40 -509D126B166F48C6A9343F6F9FBA7CE5AF61705ACE65AE57BD3B09016A40E78C6459B992AC64 -91A8294F7706A30AC42D9B92CA9E90028D2340A881F4D7D538E11454189F9E967B933EE5DDFA -02A8A7FF89E41BD012CB8CE623675167DF6B813710DF27025B3266C1F70FFFDD5414E891A536 -50C8962945F0F0A7E8375049311B51FE455EB6BC303CEADD3B975C52A57A2EE628D8C06F56F4 -F0CDBC4D3F80A6FAACF192BCDD47BC6E5E001E8222BEFA57AACA332AAD16FF3010896FC6ECCA -D7E67511CF0F19718E13BC3CDCA85420F79DEFFA9965AF3331A1D6E370C1CEBB4330CD4E55C6 -E396336FB352BF532F5FC97351C1E929B4F03B81A0590905975473C582009FFFB929FED1E9A2 -D3B7F43869F50AAAA8BD3ABB703277E4C48301719A4758B48B6302A83EE959AECCD88BCE8721 -2629DCE576D2E255581CE595A93D4FA5E83D7A8B30DAFC91F20C7BDCA9342C5337F06D47CDB1 -ADBFE42AA7C256A7975495BC7F6290DF574B98867B04D0766E20D9C47C3C209D942FD21E7D9A -D374283F96B5CFB8907908F0796A90968C86DA730BDC1CD7A7B794DF13D22F6B7C3C38C19F45 -D628E57E752E60AF3112EA8809043EB4810E7BE665C4E111FB950CFDE25B6B99433EEE81E011 -580C8A62C0BA9DDE0A92BB0A9517962C8E17C0F34B27036F3CF8F2E942EAA16ADB330FEF1B5D -4B6E1497D271BB1BDF023F45418A1F2F4C31315F196FF7278BBC8AF38336D4327D8098EC9BEB -6D76FCA57057DB8679860BD33FA25EE47D285C74270DFD25D3E36D6AF38EB52F006CDBB8FEB6 -37C52AF0429E1DEBD338E218B0B69A7D67E74956229F01ECFB872E05E0461A6F2582769348B6 -A1A211BCFEC0A2C721182EC58ED1945745C231621FB59C6C9C9246F8DFFA64253E2FFB5FDAE9 -356D1811833F909878C7C349093BD13FC52B5DE7EA723C55B61311F628DA201CBCCBA383EBB0 -67641168E1E73EE725D6ABF46EA46740F92D533D1D0477AE970A470008456F4D225A8E60162C -0CA27ED68BC69379579AA05BDC860A1B72D89BE26CDEF8DACE2B6352472C074D13AB38340BEA -2F8B530B44476C5740125ED3B13F48509928AE9CAA509311BBDF39437BA18674754731892C39 -1F1FE87D9E25C37B9C42C90EEBA01FBF8A4723F3B9E8196439BC082994A6CEA14D63293CCE21 -75A343E0233473F2C387A63F34DDDA919B6B197D80035262E1FC6C3EFA27B513EE2B8342C00C -AD1C5C39E2273733D50EC831CA21DF34CEBD0C309E988B2ABC3F553D97E7765922AB5C619A3C -A076DD989C4F6718289EF8460ECB5194D25849777B156E281A6710C41F3534A461E817C41564 -25D913560AEAB65DD1032F3ECFB22647DAE985726089A6E4D9CFE880BEF79BE3E4AB940C5161 -0F42E8ED68A3CEB6EB2EDC47B5ADC8FB52C48C45E71604F77588429FBF1EE2EE97715878536A -75A3382B2E0E318A8A0384439B3834E46D85BD676A1C6163A734863BFFC76F86C319EE75EDAA -23ED60B16E5BF05D6C386DDDC746BD3EB99E10C349F4FB33340453BD56074A40D85D4B3B6763 -19FD10CA53CD4AE50051E3FED89C93054A212530E7442F946FDEDEA76FA9AC6CDDA031F02157 -26585065A405A145457FD89BC60BA34AAE1957E00A942AA489A1DDFC2D2957F18A3F0C739C35 -D82726C9D5CDFB4292E14FC5E5BA2046C528489C8D20A570E03C35089CA2397459325E1B8873 -BD3CE4A3DAE859B6B447DA569D3D723BC34391F0630CE3DE18E34D6E6335B45C4D4A903D6E4A -A1E4B36FEBF0EFE8C48861F2B5DD8D44148FCA179E667613EDFEDDD5C9878B0B98D65B758E7B -A79001B2FA1535EC7CFA48F0F549F10E9248D4D428C37492FCEE96D35A0B27B26FDD5A5ABB5F -2AF0B9B0A0A45D8BF11535785AB0442FF9BF5FAA5CCD6070D78D5CB04D912EDF2CE916FBC30C -55E8CAB0FE1E6216F7A4A972F42704D2A4D7E519C2DD2F8B7E205C6BB240EF0EEDC184F7AFCA -0DBD2BD80820611943C446DA11FAAD43C05CD97464D76B47209AEF27390B0F5264EC8CAF5653 -73E36354A6ABC009F8B129941C49A1B93B1741063CA4BE78C64A976B6760FD1497B72DCF0B41 -CCCB10D7A6206A184776F48E02B6CCE418B46B4F7F6A367FD4BD7C3AABD37992E0DF8249B296 -6C7E8F00E607CDD38CBD4FF7D214837EE8C500DE5B883E2789F03CA892FB6FEFA3CDEB18CEE2 -F5F5AB0C131D55CC8797C4F626CC79A80A77E64E4397703520B109C58ACC5EC08F2F42E5664F -DCE8B3D4F82BCC6A6E882677190C5666AFECFDD46B76B4AB8FDF743CB41BE3421A13F76F340C -84263E3B1429660F2B94DB9275E953AFD5C885CAD144A9E75133583CE185C2DCEBF14A80184B -F0F93969FCDC063D93553BEB82EAA7903CA8D66AA8A78E0B5ACB02C0D59B02B71DFA2966183B -3BEE343B743784B9AF8CC41FACF4D828F5649D88DBF497262E5BBB57CDE80E62F3E76D7736C0 -B44AF12C1FC99AD191AC9C9E3216B4A885ED6D38CA3B775BFB1711EA9CAA680339E2C7FF35DD -ED87F276AB04706A4624EB4393733D65B165073C0B147D735D4F4F221938C88A104A5E6D2131 -DDEF6853DD9D575CA2D0739ED42790305623BDF19A4C60E868514D0EC25B055E6688E0024601 -62B7FC759CB46218BB314B51E446B45942C2230DE47D7F6CA5864B995B4AE974DDDB76FA9209 -17F4B6D816F322BAB9313FD08B311454BD04269E56A5A5A661B0C8D1B1266C0677C680AA699B -3EFE964E47A3A027D1DC587BBFABED34C8564B2A835F53E55DEE18F8C4A05F4ED8B4EE06E6B3 -92066031D4383B220239C2DD7071449338A061F7B085CC71277F32FD37A63D342549F90920C3 -D8FE9DB2E6E30AD54003FF49BFDC78DB2C0F86D5E5F07D50654F8C5F389BDA3D0E127607FFB4 -68E81E81BDEAB6C0976C85A962A45BB4E0AF88E694DAEBA1E57E09EAE02976C634FC3D4E988E -BD222FAD0EFAA2229188F6F8267899852F70718C87F0200F58B5BEF08FF0933E56F4DB1093C6 -1FBA284490B59773F4F4DA4D694D755829020B619B8CE514014F43FF61A9FB3040300CC680DB -82FD54BEBD6A7C52DA76EE4A30475437FA1E735A3D0B7FA4A3A07847DCD2AEB83199FA5F9988 -5E60AC538417DA32B8020FAC3EACEBBAE7C2C370E21A7B076647343335C1FF1A81E22BE44207 -9BF3EA722ED1FCA419BBA8067C6D0E6A7C74642C28B5486BBD7A865E40D579B9C39193BE5571 -6952B62686E02D6D72A0FE651CBF674A9353C1FF5DB340B84F3CA63F388FBD0F42DAC8B16FD2 -B8155726E8CD709E3902A083F41C2363B25504CD8D55AAF958D410BCD7197673061A6D8B89F4 -7997240C074D311FEC5DA8891BD05188859287B9D3BCA9F129DE01F4BF1BFE29691A3927267F -61EC6574D52C27AE6825CA850365158EE812832C6F38D05FFE2A0E6378C35666B065E52CB00E -490D4A890D7D8D7134F4AD84F5C5EE7DFDFD160253C92BCCF2E0BAF9B620CAD2D56B2C6320AC -B1C1B909E70A2C3C1CF755AAEFBB68CF6F6A6AD0AC45FD7E9A6953F690B5F6E985EBA6623980 -2B5D2D8D57015A07A80703B4A986D0B777A041354EF940B3B5F6170D02D312A27396401A4F04 -267EFF030E08F9861FB531ED2E311D9E96292B9F6F5B834773C45F5F5E0F52F54B5FFFE639A4 -71E96B2CDFFCE357792D16EDCDC66D79454BFE9131708F8681181C796764D5232FF647377BFD -C73622BFD38D30EDED1027A073C8C1E9833848C0C5F9A407FF8284C262789D2319FBCB98CF56 -FD54F065C166715E16772EF16DCB41E422A36769F3E1ACE4B43D4B4D50BF45DC51020211C136 -79FB8F1B92DA652E3766CDF6F0D2EAB72B95DD24D9F339B9B3143A34BC0C30E38EFEDB5E04EA -997CA199EA6B66DF9CA3A4065CE8FBB4EBA77C7226C1088F76175FB4B267ED28FF7798C10BBF -BDCF134E1DFE0600B33A2E77C1CD719FB411C276C59758521E24CE648817366E115763DECA22 -9E9B017453654C68F6B3B43F01C5C63C0A93833D701EB6224FF8A5AEEE973B4D81FE86B6E596 -C6251A6FB8D32D813D233681D0E2EAEB5DCA3C07F66487132C8B0ED7A3A462114AE92B9FBB42 -40B83A975B783825EA95C1E062A3A8991B0AAFAB1DA979954BB4810F705BC9D64E28DD52512D -7B419A8E99AF25BF82C97CC50474FDFD49F5C814E903277F5D3353C5EB9D3DCB075B72D95FE5 -FDD4622373C53A60A6366C60220E8FE342F9CBB2C6889C106F1EE77DFDFE55182F25E452002F -FABDC357DE0208F367B6CA3E63F37CBACD4CB46E7A135A45E81799E8FFD00DC22AC501FB2451 -BE07684A371B892391CECC1D51AF797A02E420CD0F254CD8A11ED79F0DC610058C513BF1698D -83CD8D287DAAA1B38B420E1BD45E7106828D4B3608CF7C4044A757858146DE68592E1C9991DD -DAEFCC4DFFB597D60C3E983EFB17036CA347B8FF1BEDD4216E3D5129009D28BE16909E5924CB -8DF5F1D23CC7EBA40E80394BCB874E5F9E5F2A71B34765152613B539E548CD9455BF0FB75A70 -C9FBB4BEDFCDBB0D2EB51B7F178349E39C27840DEA8413357850ABD84C971243C3F08AB8BACB -C40CD8E95C3BDD3229666ED0D59D96A723A1B35E3AC09FB2320AF2E240FDCFC2D6A400085ADC -5B160518105974FDA842A5D767B2D8765E1DFA2F3ADD87B9D8456D552981A34F26F745D39367 -BAE765F4E02F808F5044A72A0D9F60313880CA972354A3135F8288B0DAFCBAF024F77FF81D46 -50FAE335B8ABE641D567B63441A9586F56BB2977D51A0400C3B3BBCD8A7A2B53B57C0892BA3E -069E210304EDD74FCF7D3F7586178E311A381D1EDC5B63E2B9410C00E33A50F4C8208705D64E -63500FBA0991D2BC4145A511D04D2D2F5642DDCFCCCCA0A8340F913176A4927CC064DDBB6C7B -0C94D2DA6B60B3BC203A7FA9E288479905C9AE5E783A5D24D3AEEA84C1ABE3CB066656CF634E -617720C68573517F8C2C0C7BA894F8E6056CC42CA480DDE1BB7746A342147F70811BC87F545C -745C0DCAD019202B3D259CF12322717D53546DB87AA052CE17E09960AF97586166FA18219D7F -A2F10704CE39D819D28A1D6B857AD4C1256C9D6C99BA7F9C73A4078F0B789E9671A742660EE3 -F75D123245FEFFFFF5379BB5E5F0092F018B873FD02CCDAC65EA70C7B30998F1B6F629E8D161 -7677B6735E9F4A7F0FDF7DB4FF290C5A78BF2D59746035A1D0BE643EF01DAB866D25EAA4B8CC -76DDFA628AE7D9F488CBCB3D42F0323A2D2F53B281991C5911AFAE8DA6ABC0DE283B972F30AC -39789D8FD279F72DA30F2C3A569E68A8F09FD17E18965E69DC869358DFDD30AAE9DC31D3E11C -DF9E210053E425552059907B0FB8108AEC96C7DA99405DC2E1C1782D90FCCFBA416B8D752B22 -E5F4F05C45B6366E28FCAB7A02219A6CC61F7DDB793B071A5660E7D3F82461AD62F8F2EECD82 -130297971D342DE6B5E3E38467AD392725A0EE48C0042CFAFA608BD93F88F8DDFD65637BD142 -DA8C38B368FB251265A2FDC3A9535C6229BCEF2DA1C2517AFBE4502FB4D04E1094333E2AA476 -73EEC2ABEB64144C762DCB028528AFAD07C7D0FF812664115F6AB34792E170907B1C4310A9EE -E10F4B8A8BB6A897C3C9713C9C4EF5C32D875B32F933984FC26746720632CCAE622400B4E5DE -ED2B8FB67BA7C5C8CBAF9174683C23F33879B5D506784A0A88C61F9BA7EA837B2DEBF3400489 -42EBCF69485D5C071B3369FCD2AFC759AD33F4DF390E74BA4252A860AE7414F68A07F4228BC7 -248EA5DADE3074F20EFAC37E52A4349399ACEBFBABC3C9B89741C4DF40D44C0CEB2CFF1220F9 -A0CE338A16E76C30A974F3B274E05B557ADB2520D6E2A3E07BDED0F591F19F00D11DB7125C36 -5BFA0EE975AB815A6BBBB16D8E0F823B3CDD0EE6E2D377281ABA5C3E688CBB8597F80ECAB441 -9859AB79DD504DF53C55B0C8ADC3A46EF477A6E854B2AC82229D35788BA56B4D92DA9409D37D -66F4582F32FE78A81CFBBCC66EE3DC5441D2756AB7B6A13911D663B297D0446AEB1EDDD7B17F -563B5ED20DF1E0F2C46A5D18FA3614539F5A9C62F120CEC15502A07FF2B7BEDC8D646F33B612 -C4856FEF8FAE6F33D6D63DD0AA1B35ABF67762C145FD2421539F63B11E40A9AD15F53B1B87C4 -D61C4E04705AD7AAD6C587FAB0DDC6DCE49C573957200A776B2549D9CA487E8DA3A927808DA3 -F0FCC2CE874074FB6D9A8D69BAE3ED06321332FA7BABBD220618F1BADB5513AD4B562A36A323 -BF27FC349A9517EE2BE084FC29C50BC1B5524C904FBCB3AC0435BF9991641831177E6E2DC1FE -D5EDE82794FBA2500E1A98A5A1D511044297AF83020BF002A8B597D98EFC0B62AD101E692C40 -10376792F37B89F6D818DF5A4930914ED280D824FA434D44F1A3D63F9EFF9B233C28FA5CE752 -0569D0073EABB9621190A65308CA4FB4A506A8B8F8873385F3987E1155F0FF99DA528F62BC57 -3A675286B4B0A6476AFA55634203EBF98AFC7EB3AD81AD6559C3E7EC71457BF49E3DEA88E5EA -93FDF57FA597C3520EDBD3CA7F5D8E3A02FEDD719F1FF62D870190AD27564D8D2CEA03260B24 -976FB6B4D5B350096E6E707879860DA6069CF895E3C70CB04E5FA46143EF1BAC4420923CEB12 -0C4C11FD3E74D58A99331C300ECC103B829809BD6F5F2F9A77F10F4CDDFFF365AECFECD39C31 -947B4C143000EBD0A922D44FA1EA129A38F6A445D042BFC6B05C2B86FCFA7D3EE8A6EC552D5F -E58527C713D9F21AB6B79FE696D8E686FBD952D667206AA5E6B636FC9E094321752FDC1EF213 -E66B9309CFFCF0A27F1778C52642A4FFF188C9C217BF9D1F6F57DA783D5375515B8DA5FF5163 -775C1F48B2728570A52EF1E2F8B9B3F84610F026D89AEBCB4E9F5C0A5117B88CF2FFECC694D2 -6DA86742428AA949D5A1CA08967BAF71E839011AEC4CC98ECE5CB47F5C164BF79261AEDF5730 -FD5C7BA292DF4307E5286DEF0E74CC4316D48F9CAEA930DCA8CA5AA15F2D21C67D5C7347FCFA -AE4ECC16EDB67E2A43071CF97119BE55728AEBCF0DD8D4B5269315D9DDB2965975155AE25A08 -358B2EDAD362D9D4C63ADFCEB69F0F05DFE71CAC451DA43F58BC15925F2D91E035EE4ABBCCDF -7D4B283D5481C2E87EF9B8973D768E88BD6948393B3CFE6C35DD8691DD3C5F2E4AE900CD959C -7E2AEB395989791AA3B0F3AA56C36E6A91B628C584CF9502580E2546265D50B896779E7432E1 -C6E6F907867484DAD38397014664779E414A0E751B7852EC87B005886172918BD33796B49F34 -5644A3718274286B1F4283B4ECA99938475D8BAEB8B3A640A6CB659540D31214EF1F025C445D -2C42A68F67D738358CDC8CFD4626BD14587CDA309376F01EAA27DF4794C607DD8D851C9629B9 -78FAF55EAAC52B459F6961D98A3F4E74D802CC73FF749E0D1696AA0B234D3D3BACD0E0F24E24 -1F7C7E9F91548F34498DD9EFAD30B3EE53A2B7CFFC4D537515FD2B6E7539880BD982B64323F6 -18B5BCCA39A15866D2C367D4EF7C8E5D1852F098ECA523B967F101E1D552F69CABC1BFC0519D -D175F616F43461AC7813C9ECED55A2B7AD7AC6111F83759831136410900CA40EC581C181872F -5299660389A167EC7EF8F34D00DFE64F4672700872105D6A33D7EE0A52EA9622F3C8655761B0 -1B5A51B50CFBC24FE602F9A19DDE20B66DD78113B4BA22B7E8C52E479176C1E04774F58386C4 -1974EE4D1AA71259816FBF4D2D420A743660D9D56B27B615C96DE9D508BCFA0E4E60CE6A1460 -CB302A519CC4E21D200D09191F8E0EEA8BD650CBBCB96712D97C48936F0E0B838BAFF4A810A4 -90C2438716A74E000E40EDD35B92132ABD1B4FFA125DD0A952AD753913466616CBA1452F2FF1 -F6287420C736445168FDF5E3266295D539A5184EE856FDD8DDC7A3FB9B9E846FE9E5C09EC0E4 -AF97DFEEBEDF6EBAF48F1E961470D59B36330E2365BDC7890FB61DCDDB69B89F82B41408093E -1A093C2B47359ABD6E8E49B12CEE183747CBC8B50BEB4327627BFC4A8A0E06CF082D1951C0C8 -B947175219206371A9214C0992BF3C5218D1092088DC6EAEB22995D5F130A1FAB9FB9BD1C058 -12F63485B663113114FE4DF566F1939775F4D0E26AC1397509D85E21D4633B4426777738C98D -389C66A70A052E0A0BE93B6C76CF7F662555C36184BE3E823F1200586B08B7243C45E7CA384F -311F23DCA6AAA88970E06ABC636D14CEEB21E81150AE613FAFAF9620E8C98CCB37F076F4C208 -6C02D8A476AB2CBBB8A87C0939CB86454B8293771C9A0A598AE59440E7C76A1A3D9D28F38B06 -6931AD23185200F75FDCCAF70948A4492B987A16C9C3A3130C62613230B4845A9D8E77697869 -1A3081BA42378CDCECFCF7B92A375C5CF1511BC0B95A35D36459DB553A873C45AC7F20C7E09C -A1678598A0162BA6894BA993B63B0285AAE8F1DF2558A415CAC609ACE145E535578DC432DBDF -1976D47B88863E8DCDAB636F5981B2C089968D5F3B779525857B36E98B3D8AC4C4219D994DF4 -488F6777A754076C4C3DF62841A44F500E27DC2151B5557EB9D4DD0C7377733D73483701EEBD -1E0AF277BB00330F44F7BCF770B125B31803FC0ABB901EBE8D07FFA871B6C1837E394938E161 -CA5B2ACDA975EA5ADCA56537573804192CACE84A0C38E41FF471ED99B85C07A12E4A95C12167 -38E43D645AA813923F736B80063ACE1691A1580F1FC59CCD04E75660FB8F90DA9E4AD44990C4 -DB1BA71C47F220C5070973D63FC84497174E5C6A6FA5AA2F95E479422525C84C9969CA450D4B -17F81AC9C0B423C65A070CA2E43570BBE18E4C1EBB29625DF409F86083E1B9C8AC14D5A387E9 -E24818DE0A69A64774135C000235EE75CA5E543C3048293C028B977BF5B47791F27870DA9066 -170B8464BAD2AF416AF49E67D529FD2ED9DE2B782FDD7C5AF49599B312F6B94984B98B82F170 -9AE83BCF7C81A37B1F3D63ECFC9C74EFDD05D190E44725F47081D069BB6115CF2A8DFE81225C -6D011A96017CF9ECD9E3EE854B299586194D13704464E1367A306F1CDC8662070E5F80F2BA6E -85FBD11B489338D3134169703D01B7DEE1592EB03A80AA8013840FCD056308C446095F39A550 -A2C67184F201753B8F75E36EB7EB441C49C0050FD87044713F50C9E85E650EC1CDEF0C3323C2 -44602992CFCE8208691916C9E49736A8CE8F6890BAE4D271CCBF61A5D1C824E9AC1BC95FCF8F -A7996D1C49658E8ECAF0D1E50F0F4CD4E6A5EEF758338F360C08CBCFD243B11937FBE9E612CB -049207A85FFD6DA9356A8D8D9CDDBE0825268E3F9A119D0A5B71844B9BA6E8334DB245A5FE11 -F365C30ABAFBE4F6A0A21BEF660A48543D38DFA0DC720E3BADC9F9021A0E1DBA1EA28AD4AEFF -C78169A02B9D5EBD659009182EDC8E2F96EB664DE415B406CF955C91D3943791C7C593D136DC -8C7D31C83CE5F296994E47662F4096102367097E168E18437DCFA9B8B195EF3B78B37BE4E1C4 -6DB62F370F5835A6AB9498A72DDBE836B5B1E852849E689FD16CA567395591707DC5ECAA58E0 -B6E79EBF2292843BF0AAB38BFB566BFED7B6B71B7D9CC6C09D1AB163080DCF2A4B7CF63517EA -9F163C063DC8CB30795735C9F0985CD0A5A138A25DCB3711A8F8CE9DF936FF40077483FDA7A1 -D914F1B8ADE2C90D761E321F6B8FCD7935C73B9A1D56DABD0537CDB1951FB05E599421EF518C -49B314DCA4555423DB5C05AF92EB595528EC04CD66935B36CCDCE43BEFD490923F2752510650 -5E660C1A038376BB3C08DA3D3330861403CCC5EECFBB5062732FADE8B398D740F93596148CCD -5D6F6A2E19A095F7B0C55B2B8BDF6B2F853DD828F5C525B8ECCE44C2AA8355589EB001BF459E -DA6629C515F0AFA980A769DBFD0751F386C4DCFDA09827D7413469849C402DED22B2ED43A9E8 -1E68FC08C8B66F7F283C6AD9DD8DD4705FF110056B8031F5EC3FF093F63B719A46E0662CBA14 -71FEAED45B7285BBDAAAE3EA05714CB9E71849364B033C76E3269F9AEA997160E84D7E74F911 -2A71F1537E4AAD44673A9613E308F8894394EA1F3207EAB7A7BCAE667771F2FC10E67DBB6BBE -3B79FDF1470D3E73F5A5B8F4BA97CEFB355B3CF21A7991E0500CBC4B181C1E20C5FF1714B821 -134AC442852EC6330A3FF38657F286A4E06DA1BEB7129802E8C84FD31BE998AEF3A0CBDA3047 -8B7DF9ABFB81E15B509710BB8669225ACDD323F5EAE522A6F379D9B86595609D27DB01881ADD -3E28C7D26527ED751726473663A86E4B0A5E356CE9D60E131604414F1AB1A0D2A1DE53356D2D -044865BE7B359B9803591AFF123DBD6F904C8D0BB55B0CDE217FF32F80649C10FBE2498D7093 -6F0D6F0DACAB0D4360D8450736D6A68541428E715741179B51365E90E13D0ED7CA2E46D8A41B -1411BDBA0C295490B0516DE3168F1BFF136F07D124F4957DC536E645B5512C3EA99779571BB1 -6997ECAB4734DBFACBC02D4FF5B99333F39956595D1E3F97CDE8FAD902179C509E5C79D0FEB5 -40881B5A84D305E4E6230989D04143805C3582D523BAB1C176FC88582D38E097DD9A5DBFD177 -075A6C75BB2287E4D932FF131AB02D98032F55A334042E14145FA7DAA53065D576F433CFA74B -B9E64A03389B7CAF9D4A1477969FAB84F8D0DA010D8B0A2DC13F5E4276AE975CAA20D5750D4F -833F4770EB05CD904FEEC19CBE84A5851B62637B6BB6C972FD1BF6665A19506E4B59F7DA3F46 -45D8F28209556B668EFFF6D77E0942AFEFAB69E6065C2F2D5D21B9FD9F17EE44BB42CD4EE9BF -AA18CAA2FB38DBF8801DFDF77A72C5C24C65C12ACEAF3A08217E1BFFE33DF684AE4B58BADF22 -A359BBE558BAB9A6DD86F35586C040E344B9E4AFC4EDBF07A3EDA7A1AB25CC4A1816DF1A5CAD -C47DB1017B6132698E5256F703B35B1034E0A2E43C746DF121013511B6E097DCE516B97243E4 -07D6866B5CC40FCE115DF97CF787A757C0D16C16BFC5E997AB67E162244993320089890899F3 -C37DC5E40EDCD6DDAB932FB9A5946ABEE37705903552F8279C8942CCD1068E13880D2EB85D84 -1487AF708F3D50B794D5C61BAC777220703C849B6D64B237E1A049E0215F50CB2D274D0752F2 -C772FA7100F121F763CA638F7A46A0862D7C8BF78675CC7F5C4D5D2D6669C52C5BB70062E916 -D7E788181EEDD08DAB47E3E749ED82C4A1504675BD2011B9999829EDFF3A4E1E954302089706 -85723211BCF01E73F9D27D712B433C8ADF81B614E2853087C3BBE07D144F28F8C69555E82AC1 -5CF7458D930A71AED651EF57D68BA4D062C49AE8A20FC68D30C1A752B44191D38F1647733A24 -73BBA52EAB118EDE07A827AEF5A5289519E3BDF9FD1A5D4199853042E2E9ED36887D3E39B2F3 -17C87F789419726592F7845C6B000DC3C7F452933153DCFE094B49D5BD7AE3F1C56965BBF887 -234836A9708A3190D741303C86B715DE61ECDC8EA75C310A60362E4FA92A58933E0AE08C9E62 -7B8A9C579AB10C39C511235A7E941FDBD9E1860294DE9F431F78DFE692B5E84449045D30743B -DED418F62F94027147F13E026EF5571BE43F5DAF350FEB21B179CEC4F5618A233F998EF3A00A -1ADEB2364D6E73EDED749553CB68A3362AD6A16743BF4DA3F9B721F91EF3A5B290985A03FF06 -7728B996FE56A1F88A6B409F9EC551705A7B3691D867C731A5B9492A47C6C3D67FE476D7830A -CE5C08A97486CB3EA9F4FC139C604B3DF1C16DBF03234E61C3454F906F66AC740182CB9EC3AF -7C3B79DAE336FDDF85988EB6064B39FD751B4498318277DDD928D8EC5EABD60A07337BC73CC3 -881BCFDCB800A5B92F9C34498F33B18C66BD7C2AFEC7B79346B99E32A1D17E988A96F771F187 -F3AF834128F795E3BDD96E3E01494CDC764AD9CF17E8BFB4F4EEE2AB8252F620874FBADBCDD6 -0FE37AFE7243DF7549D1EF8512B31517CD981C6A09BFD4E0F36D432299F879232E645AC2451B -42FD45091D4DA29668C6548F62E13BABADCE90FF7C2D1EC52A2CE9FAC7807EAA0AB161487A45 -94919BCEB510505A13E77C6CB7935325C0F638DCA4F1124DA416CA620DA395580E8AD8812CC6 -95BF52CA2FFE7D346FB06EB90EBBC1A8A74AE98175C7F5CF6C98720814F1D21FEE501D6E024C -3694959D7F14AAC58509F6BAE297DE419461FFE18AD0E9935734F5F9A4BA87AECB53B8A8316B -3D9408BEF3AF150719CA229A0FED3A064CFA0B3AD417C129266592B81ED45E6B8918683A8E43 -8EA81E1386FB6D0E5D5A0B637FBFD99C369501CCC5D0C15F85FB98F93E494EB032B1CDE14156 -1F1F857E9AFC59D0AFB934E1A615A5846C81EDB6B2374996AE6967838DE130F092C089A0DB62 -0615E06742F8D4B6470C6C0968DF5F4918E22655D3FF8640CB417253E6D0AE72C8C0693DE7A2 -58BD930D5F7076E4AC980DBF44BC95F7C60B457932D14DA09D762E09E6FA45E85CD413EAFD0C -3961CFFDBD503919AD7CC9C0AA76C9AC4437AE94EA56C39E3990E05FB1A7DDADE957EDCBCC8F -8C83CE39CD0060F454A914EF87607187D795057FC8C14450D9514057489F9CA011DBE4E23DB1 -F6795C1E15FE38EF90D5E10D7A932F29E3C41BF4DE269707BC775629E70DB4FA8F4C50A9EC3E -1E76E64AA1397D8CDF453FE2C59F513B80A413266D9C9D7961CD5C776032988556C4C0D07666 -E1F1DF16D2F08CE9FBE0E1B36E2DFCA29D7A1D69F0A1B693099F935B3DDFF3E7622A92FE16F5 -6782171CE2588A9374CE6B4E5DF7A488D0C5A112C29385029676CD71E3E1C705E996895D2ED5 -A0C77884C793DE66F0E12CB2275A21A0FD2F0506FB823FF4A13E747EA3CDF0C0E3C12C97393C -79AA42EDB16B1234F4C492F6FB46947ADD848AF16469E06A1E50C9CB5E1A4D5604846BA0D7E1 -03B268071E5D24B6945C1E514C82A82452B9EEB7EBB6F74AA1FB3F769DBB3CA6D78991331A15 -5FE0945DC4ECADCB9348F7E6B1C706BED7A6BA32C3D8E3716B6BD181CCDF9C5A77C7E900ABB2 -839166ECB21E9E4AAFBF21A5E3E0D698F3EBDC5CB3090AC3165986AADF38329D8CCCB9352C8A -9E333EB6FF4B99A2367CDFA06D80F52C2D073201D85B13ED240A130397F03C074EB49CE924F2 -3F7A00970DD8B3855E5F6BA206F2A870C2C4CC9CC3468B24CB3833F3A0E74E043125D57EE34A -0D0161C669EA3F7DC51A7BC569C7B3C4AD07DB89F8BDF14C1A9C1D919777DD8A24D859F9D170 -FF8E12E9CBA021424FB659C3E7AAE1A9398E6C63DE41BDE9305C815CB5459705AD9BB98C2575 -975FAFD64D2C3C9C4230D90412D8BF52DA32F63B3C849726DA27EBEE3844DA12F91E1D232F5B -5531FA3998CCB5F669CDFA7B7A8AAE3417651E35617C2DD811BB1775D45BFCE4A773A13904FA -84A1883880E3E75C4FC7C48431DE356A12D09EFF71A91958299D3D1333670AEA2BBFEDD76A45 -93E17B523A850191C5DEF8D67384174E81D0439D612C67D56195AC6FE8883DDF0F8490F3EC32 -8FF430DAF0FF2806033AE9885075897CC7506CF8BBB32133004BB7CCB2A3B5DC34F0C779E817 -90E8F670C40751B575F028CBF97931745AC44EEE8F012CDD35FF0BD5577B0B2D7133B60A0906 -028A8F832E95D5D8C13DFD0110A104F69989A4B876FE3B9EE48848729B0B50731B96E07E155E -BC8E3CF80837D32CE65667115BE3CCB3248F72FAB07E7718A0CC409C84EB514A621C522DB793 -A3FEF9CF0AC0495EA0A0246AC47EB5DBC2E13CF38C5C78C2DEFA1203FA5B2DC46778E7CB928D -ADC32FCF8068F048744617F43BD588329CCA413F1F4270C9FFB0CA9460BFAABCBF3F39F3E07B -66DE904754BED90AEF04836CDBF0572C9135242FABA7809E58C84B04684F6FC8BA900AB5FFA1 -73C94911B8883BEA38674D0A88EC2428099223818927AEB7266B1AC59510EE62A41D34C1D53D -149AEF9951599D0FB909ADF55B35075D67979DFC7CF5BAF734C1D3ECB91F6885FFB6F19A05DA -57A8BAC0A4EBF93FBF2C73AA9239080C12A65095ABB15D9896154BA207AFBBB32261DA98EE5A -F50167E064F55E5AA233736E5A51F8C0DC03754D40FD01ABDEE28B6F44C646B5DE4D9964C39D -51D95DE4F58FD5882AC67DF4C0E1672AECEE44784929A0A5144BCD869DF6F18DBE65E0B3E0CD -A9305585284C82BE1D70CE1697B5F6CB3DD7BD9D04C35EB8C33A3C980F52BFCCDBC94B36F205 -33B8613C6D4860EDCAF0014168AA60181CDC568FE1170A6CA7026BFD2C9006AE1B15DBF64B39 -47EC1A125CF3A40CED79E34EA6942BC659A5CE3E93AD6D0D003C7E64E4B3AAFB3F951F580708 -7C8FCB6652B857B7F1ED896B4C51CA278F6437B4D6CE0EB77F8EE52EBB54BB6D86DD944A44CF -5F2AE9B17375835DB32E79A9E6B8167C118DA7CAA40E3253F2D4814918DAED4CBFE2DDDF1A91 -700D8432FA1FC102081D01E9C4F4AC27071F941FC0660DF1BC4721CA9EA9741DA7EBF915D987 -05AFE050533161D12528ED976259AA7281C5A62F452EDDCFCD0384A15EF9EDE352C76AE55EF6 -D29F1E0B86CA4D369E1081F224D17B2760EC7EE76EB094A295C9926E58E39C281344339C63C6 -97D2B8D99420B514946BA6F30588E8EB9895855B811D285E668545FFD9C198D553EA30704CA8 -8B7148B6F0B546942F635A60821E1B2481393EC18CD21FCF654B9359760B5CA85CDA0C58AF3C -FC59F7FE9CDD218A87DEA102F0D1C1EDA4C2B26A5EB4FD71E602D9D0C1287A4A4EA915A8ADA9 -947CFCC9096A63CB9300A301E97323429374622D73F93E9FC98ED8548119103E46B34F435691 -427D210E9CD0C104C302478C6AAA94E2EF9CB901F880F1C579BBCC634B30DAD288EF21E8F2C8 -55D300E9BB3F6CB5B9E08F21E6F6FB19D208AEE453D99C81B70BE8B9E04E6F8A96C50EFA4E18 -9D9A7FBBCA5CEDA0735A599B2D9E2C626D8B4ABA09A7DC35DEC2715E6C8BEAE48291D81FE6D0 -51DE1869BD2B51EB8C1ED6A3908CF4EBB849D64F7B7751CB76EA57A726608EE0783A8EEB3EAA -85D0FED538B644942B6B973B2B9A045B561E4297A95A0E708202D3CF3CA4AFB63F004913EB94 -828F271420991ED20F52F14D93505C25B6CD07BDE78B68B5428E4CB1BAD616713757ABD0A1CC -D90A1F3949A183B69C4FF08E586EE8E7F26890CE09A74E72EACFB28B9FE1966889DC57841AB7 -8C3393FF36724733B0D4BFEDBB11FB271B3E93FDF6EAFC1D7CC2489CCBE63C894882108C2D04 -5DB9343F9615E57C130E639FC3370187BDD91E8E9AC224CAC82594DDE45616B4C8E49FA1C6BA -C66BEAEB9EF6A6A5127B0A1D16788AA2C04F899D77821BBE36CF9721CE8986A1E8357A7EE7E7 -5B3B63CB0B0740B90C3BC09138AC43372012286F162420FD075058EF697FFFF461FE0DC0007C -29BF6F66BDE05E80A814CB7EA553C50AE9D4B3516A1CD08616E67491D730ABCB5C30F0749EFC -992F2C30DF39FCB77ABCB9095C0FC32F6A569F53B4C6BAEAB30E55F200CB3EA00900214F08B7 -3AC3F8A4F4F6BB3B3FAEAA54A18AF47AC76C1E81944C5799AA789EBF73A3DA334C2FB8B44AEC -D96C67583D6017AF79D86164E83F031E0D9943C7C7C60927B50470FA92A62FD7359C270151A5 -5191DFE5F9287798A249B11CF2B40DD80840F96FCB00670027E3FAFB5A23BA742E8E5FC7ECB1 -9F31F3F813362A72E7BE5D38351CDDF55D6C7681B2AB38210BDACC8EBD01679C919ED29C0ADB -4A6FF3C250A6D09FA7297427520EF12559B3AD03E7A7D99969DC346E717F4A715528D01A1AEF -A3DC8925A0A5E0955DEE8B8A4CA7650D1393F079BEA1EABFBDB7FD8AF98A5BB81170D2AD57B3 -1B47EF16F3DC47B739B3DE83B5B5BD3DA9B4B43B42434ECE4E5BCE83FBADFE726AFF7C0EF5BD -A09C598DBC33760D436C099CEF7D799FFA0A0E2B4147CD61D39E76B13549FF05F50B99DAE6A8 -D59462D759001BCB6320DCC3DCAE5A251306786071161F8BEFA541677336CE9CB5109AFE515F -3E7F3D2EACB99B1F1C5C65C83FCEA8156178E92D50A9FE8543B3B018A7CC6FD63F125F70BF5A -63D6BA5551C237C008620D4568DE0B0B601502616F1EB6B5D9B5348E279EE21259AD9E8205D6 -8D1D545AE46F48B682ED24ACC8A65C3D68B20000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 - -cleartomark -{restore}if - - -%%EndFont -%%BeginFont: CMSY6 -%!PS-AdobeFont-1.0: CMSY6 003.002 -%%Title: CMSY6 -%Version: 003.002 -%%CreationDate: Mon Jul 13 16:17:00 2009 -%%Creator: David M. Jones -%Copyright: Copyright (c) 1997, 2009 American Mathematical Society -%Copyright: (), with Reserved Font Name CMSY6. -% This Font Software is licensed under the SIL Open Font License, Version 1.1. -% This license is in the accompanying file OFL.txt, and is also -% available with a FAQ at: http://scripts.sil.org/OFL. -%%EndComments - -FontDirectory/CMSY6 known{/CMSY6 findfont dup/UniqueID known{dup -/UniqueID get 5096647 eq exch/FontType get 1 eq and}{pop false}ifelse -{save true}{false}ifelse}{false}ifelse -11 dict begin -/FontType 1 def -/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def -/FontName /CMSY6 def -/FontBBox {-4 -948 1329 786 }readonly def -/UniqueID 5096647 def -/PaintType 0 def -/FontInfo 9 dict dup begin - /version (003.002) readonly def - /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMSY6.) readonly def - /FullName (CMSY6) readonly def - /FamilyName (Computer Modern) readonly def - /Weight (Medium) readonly def - /ItalicAngle -14.04 def - /isFixedPitch false def - /UnderlinePosition -100 def - /UnderlineThickness 50 def -end readonly def -/Encoding 256 array - 0 1 255 { 1 index exch /.notdef put} for -dup 0 /minus put -dup 1 /periodcentered put -dup 2 /multiply put -dup 3 /asteriskmath put -dup 4 /divide put -dup 5 /diamondmath put -dup 6 /plusminus put -dup 7 /minusplus put -dup 8 /circleplus put -dup 9 /circleminus put -dup 10 /circlemultiply put -dup 11 /circledivide put -dup 12 /circledot put -dup 13 /circlecopyrt put -dup 14 /openbullet put -dup 15 /bullet put -dup 16 /equivasymptotic put -dup 17 /equivalence put -dup 18 /reflexsubset put -dup 19 /reflexsuperset put -dup 20 /lessequal put -dup 21 /greaterequal put -dup 22 /precedesequal put -dup 23 /followsequal put -dup 24 /similar put -dup 25 /approxequal put -dup 26 /propersubset put -dup 27 /propersuperset put -dup 28 /lessmuch put -dup 29 /greatermuch put -dup 30 /precedes put -dup 31 /follows put -dup 32 /arrowleft put -dup 33 /arrowright put -dup 34 /arrowup put -dup 35 /arrowdown put -dup 36 /arrowboth put -dup 37 /arrownortheast put -dup 38 /arrowsoutheast put -dup 39 /similarequal put -dup 40 /arrowdblleft put -dup 41 /arrowdblright put -dup 42 /arrowdblup put -dup 43 /arrowdbldown put -dup 44 /arrowdblboth put -dup 45 /arrownorthwest put -dup 46 /arrowsouthwest put -dup 47 /proportional put -dup 48 /prime put -dup 49 /infinity put -dup 50 /element put -dup 51 /owner put -dup 52 /triangle put -dup 53 /triangleinv put -dup 54 /negationslash put -dup 55 /mapsto put -dup 56 /universal put -dup 57 /existential put -dup 58 /logicalnot put -dup 59 /emptyset put -dup 60 /Rfractur put -dup 61 /Ifractur put -dup 62 /latticetop put -dup 63 /perpendicular put -dup 64 /aleph put -dup 65 /A put -dup 66 /B put -dup 67 /C put -dup 68 /D put -dup 69 /E put -dup 70 /F put -dup 71 /G put -dup 72 /H put -dup 73 /I put -dup 74 /J put -dup 75 /K put -dup 76 /L put -dup 77 /M put -dup 78 /N put -dup 79 /O put -dup 80 /P put -dup 81 /Q put -dup 82 /R put -dup 83 /S put -dup 84 /T put -dup 85 /U put -dup 86 /V put -dup 87 /W put -dup 88 /X put -dup 89 /Y put -dup 90 /Z put -dup 91 /union put -dup 92 /intersection put -dup 93 /unionmulti put -dup 94 /logicaland put -dup 95 /logicalor put -dup 96 /turnstileleft put -dup 97 /turnstileright put -dup 98 /floorleft put -dup 99 /floorright put -dup 100 /ceilingleft put -dup 101 /ceilingright put -dup 102 /braceleft put -dup 103 /braceright put -dup 104 /angbracketleft put -dup 105 /angbracketright put -dup 106 /bar put -dup 107 /bardbl put -dup 108 /arrowbothv put -dup 109 /arrowdblbothv put -dup 110 /backslash put -dup 111 /wreathproduct put -dup 112 /radical put -dup 113 /coproduct put -dup 114 /nabla put -dup 115 /integral put -dup 116 /unionsq put -dup 117 /intersectionsq put -dup 118 /subsetsqequal put -dup 119 /supersetsqequal put -dup 120 /section put -dup 121 /dagger put -dup 122 /daggerdbl put -dup 123 /paragraph put -dup 124 /club put -dup 125 /diamond put -dup 126 /heart put -dup 127 /spade put -dup 128 /arrowleft put -dup 160 /space put -dup 161 /minus put -dup 162 /periodcentered put -dup 163 /multiply put -dup 164 /asteriskmath put -dup 165 /divide put -dup 166 /diamondmath put -dup 167 /plusminus put -dup 168 /minusplus put -dup 169 /circleplus put -dup 170 /circleminus put -dup 173 /circlemultiply put -dup 174 /circledivide put -dup 175 /circledot put -dup 176 /circlecopyrt put -dup 177 /openbullet put -dup 178 /bullet put -dup 179 /equivasymptotic put -dup 180 /equivalence put -dup 181 /reflexsubset put -dup 182 /reflexsuperset put -dup 183 /lessequal put -dup 184 /greaterequal put -dup 185 /precedesequal put -dup 186 /followsequal put -dup 187 /similar put -dup 188 /approxequal put -dup 189 /propersubset put -dup 190 /propersuperset put -dup 191 /lessmuch put -dup 192 /greatermuch put -dup 193 /precedes put -dup 194 /follows put -dup 195 /arrowleft put -dup 196 /spade put -readonly def -currentdict end -currentfile eexec - -D9D66F633B846AB284BCF8B0411B772DE5CD06DFE1BE899059C588357426D7A07B684C079A47 -D271426064AD18CB9750D8A986D1D67C1B2AEEF8CE785CC19C81DE96489F740045C5E342F02D -A1C9F9F3C167651E646F1A67CF379789E311EF91511D0F605B045B279357D6FC8537C233E7AE -E6A4FDBE73E75A39EB206D20A6F61021961B748D419EBEEB028B592124E174CA595C108E1272 -5B9875544955CFFD028B698EF742BC8C19F979E35B8E99CADDDDC89CC6C59733F2A24BC3AF36 -AD861319147A4A219ECB92D0D9F6228B51A97C29547000FCC8A4D6AE353EAB9DBA0D43358689 -37E3A2D0F9C8A4FBEAE138AE56EF84665582DDEF7B546714518D224AF91D19409EC600924626 -D79F58E272E3657E631C06412F9D42732B6AE0A93D81E2B13A81C76CC37FCA6DB35A1C6A572E -FFEC7E1581C57B1D22EAE9C407771F4071D002A06A6AC249FCB7605C902A76EB298B05E39D54 -3A63332A91B8A1ACE05BF902540FEC1024680B8D5857E4931D00781747C87ADCC45430B5462E -A480BE50D07C5C9EA0D8D6447324434CF0D637BB13037B6E1C48F191C52CF2B9511690B54052 -80D5C825BD376EF12429837CD44BEA223DC8E199D8F85856C0FD551471CAB30481FAE99B71D0 -A844A75E4DCBCF22BA460A4C0D3ADFE0D491A7C46C0DC27C0F6D67BF13F324729ADBB51EB8B7 -FCB162B10FEC18AACBF25D2F943430E3C9838C12193C8CDD1EC8E2D98EE653D81749FA3EF8ED -CB3CA64AACD5228C827A54D8E2035F51FF9295966EF2749C34D8659672DBEA2041C30070B8E4 -7DB0D3DEC12B73389173C3915BBB4E40BCEEEAA41F8BF210A5BB0B04A34EDE1BE82852679305 -54FE0F64E5CF314D8AA0F86FE50E62F3D6052C099D91360D146F3BE54A65D4124A4BE17BFF42 -D67DF9CD8DB5002FDA1879F0244BAA18CB8F29EE353B2D608F51E739505BF7EA7A2926D5BC1F -B240A4440203ADD0EF91319865001F0A66B201C23A54A3E9901FB9E8B8EB576CAC63434F225E -F6AA8D9181B784D646794AB2AF80B1321A125B3E253B804A83872814668B5D61358CC9667ECF -A3375A04C75F325A5EF02DB2D48C87E3AC44A982830FEA71248B963D5A5D4669589F4818AB49 -D9B96350A102261C2A66CE3C1F445A347FC70FF9AF7E0C63759AFF65FDE244533C98B3B6B18C -E41C681D6BC1BA7FB1C1530CAF0760C2E1A3C539C6477D77EE57C9C7DACD38516B3118061A6F -7577EBEB01C579BCF1728AD5FECF3E2CAC03B419B91D77652A630D91C6D8F7B2CBF464181D45 -6C43324A6E30113040311770CC880C6631D06C6CE5250FB1271761F6DBCF47AE4050991BFC81 -7EF0759226D5535B801974A25D23C95C537D3531F6C9F722FE65B901BD1FBC4040E4CC0285CE -20ED890E1519CAB15870667692BA6FAFEF5CB3B07FC97CF745E42FF72540AA1D9D6704108633 -459D9C476E21947CFC746DD26CECBC22BF26F718424B31BD843D500EBDC70E8B3A69C041C41A -B0ADFF0A721FE2A1379B2483C0733E23B7BF78B046BC459A767CB86A10454826177FBA63A5EF -32DA495FD13208274889E04733AA164698D728EBFCFD03C4E407FDAB853E164697A2F09D1D1F -F542F8BA6C78340603596832ED67CD78FA450992770362B098D61C295D4D7781701DDC53114F -A57696376CA497868B996111B0BC261CED47F480EE57484249906AAC0F9069A7C4E4BD9368F6 -F6CF6670302AA7D5C177A7A45A4AF31557C7ADEDDD519CA51301C5DFC912586364DA8D22E55B -833CB024FDC1AFF31B33CCC6A385891480C55E87180101CA963CCBA7BF579C6CC6D51125A3E1 -1807925973D7F4D1EE0E367B68B8ACB8350954CEC10CD0A53534EE80EDDB470A16DE0C3806A5 -FF93D01DEA3D6363DE5397FF7F925B9E8F0E9CDEEF4E5C079BE3DC9E7BF36EEE7144F1D74020 -54A8F2F813E4F2E98EFD29EABA9EB897C9FF0B2F90455862E896369E3291358E3C8CEAAB2CA8 -554336CBD9B09C1FDB4F478AC3C275B39BF101264561C91BDC32738B49A6EB7FB89FB67470BD -2A3FB5E08B8CBCB685BD953841FB5606C8FB2AEEC440DAA83E36493DA277735E8E78D54D36B1 -B14BABF4AD083523AB6567CDC8517D1D10359FCB16C390746F9E92FA120B8FA80694594116E0 -F08B3168B3E96AB8CA94B0453CDA96F1CE996B4682FC45BF6999AB67267D0ADA1FB6995C2D1F -47BBB5FF9ED0B9CF2CAB99E699B37B070D8770CBC56779E074D8B889A5AE30FA18C058F568F0 -90F56B6B7F3F330423B58DCD9A057A0FCB34AA616DEC21C00769FD212E5EF8EA8372011263CB -344C9B7ABB32F87585EE7C44AB5CF36FF31C49CC10F3751EC784B4CC1C1694EF54ACA6373106 -075EDE61451967CEB308D31202382B523BFF36483935E4A59E1A0F239A2B94B672A9832E3DD3 -903684D8C0F28DC7563373358CC56DDBAC7155E7D4F35A29FFDEBE4B940231798BCDB7F9AB7B -E1277DF5A49B2D12DF4BE703EC305304C58298C47CC35155231C0D528601DBDB6124FF386146 -0682D4CF8CDED50B52EAA888CBEFAEE12E917ACF2270274AABC1AE075ABFF8CFF95C7238016B -249134FB1B987436FA0B393E2C648897C0EBFA2AF85FA9DFF3D8B20A672CD53C0B2A8B59981C -2FD43CB81819D4A8CFEAF26669884E106D4EBA27DA84C46AC6DD466EC91644C502E6FE081A15 -EC32B0B6771178EC74B253312D6D97C9665BC0BE4509D1278EAF762C3DFE34F55CEC7144C62B -6A3C44305363F24C5746B92CED03D497A5F16C200AB196C098CFEC1655FC8D6D765A5EBB09D4 -1DADF716DB37CB533DA5DD774701D0487341F084C632D385E7323E8BF36C82E8454554A4189F -5327CD38E733132A46C30EAE844C76CFE627D84B8B9EA861A81399FDE4470E425A5CE6F7B5B2 -F889D12BA39ABDB9FD0DF6E1D2DA4DAB5FA40FE7F46010290B9C57C9BA5BE3EF1CFC4E9D52E7 -ED43CE6B29B9CBFE663C3397F2F13FF6A044F2CD8C40A09258E2F402C07788D909B45E7935AB -5BB558C062EBE7A7FF1F45A3C94EE74E341D916D35553B679E4C3AC7DE33D2959EDC05D560D4 -40BBB6706E95272BF7B4E94B95DE9152B1815E5BC9592B81E60097A1D6FD21485C610A3EC69A -DD3B45196064877982BFF6562DF7294957B4758F54951F6F3BBCE5E48F965FA59105A6690FBF -CB8B4C23EF9782A394668E4F2AF757B9B57CE8439AAC0E8FE1E292E6236B6F6E1B123BCC59AC -B6DA98DAD9ED62DCB8CAC349287ED364C5971A15F7D203684CC7BFE392D6145E3452644DF6F8 -D2539E64EF50833AFFC8914E213362DCEDF0225A6D04AC7C4F74616ED5C54450BB6B47EB4307 -35DB57C98CCCD8815F288F48095E5252DB4CE9B87D33F2542A562DA4BA191A5F0884273D7C61 -0E53EA4FDB43D3B05E0075D81EC6F479DBB27849297879C64FDE0F853E1F225154962690A0AB -B1A484EC91B8DF6B93E43AB5AD012FF56D048C0597F9E6D7E5845F7AE050B78A84C14DD4693F -0170C7219C415B57AD1D12AB52E028B3660FE3F6F154CE501D46F59275F21F524B245E47215D -397B935409343DE6F71158D3190DA5D2BF8EF243BAA3CA2A0BD43DEB478AC31F32DFE1939F19 -0B8476B7BAE5EB37CE839F7C80B2E394BC12AADE028E5F834A63B905E965C792AB5CDA9F5BAB -98C92E6C0F5ADA4631703305A1F60EBC1836528167CF97A1BB0C2FE6B84E92DE35E993D8AFB2 -F8BAFBBF60782526046044AC9CC1D0897330694F6EB2AD5C41E80F2EBE2882F8EAA4DC0A28E0 -93D868E84D1529532BE3D615A7B6BDC6CC4C3A8793BF468D77F10ECB2D600584BD0F1B4F9A74 -B8D440960B2199054D54512C4E52B41DB9DDEAAB59B22E18F20FDBBBFE32314A8D314871FF96 -2723D5823BC6FF2CFABC89B85EDB88E7C0D3BF8E094DCF1EA5EFFBC05BA69413FBFA7F879F91 -DC1745C222F3AAE1E73ED0D101445CFABB2156D6A7E4EAE4469643708BD953673672D4BC1F9F -51BD4996960AF106A541A78F3C457BBEFA15BB9BAABDDFAF39AD42F166F9B01DD5E5D9DE3DFC -CABE799E2B61ED40F0A44CD9D4079BEAC5F1F48DA4FD882039128B9C245F90562CDCB494A4FB -00BA479BD4232AA9CC6F05BF4688054DCC07CB76BC356F3274CF1BD99595CA7B4BC8F8D4EBB3 -89E7D8AB3B30117C0A3A43333ADED97EB34BBC88C37C519F598FEB4D356755527EFAB2CA772D -284F04751313075D36DFB716BF47483192C638BB2557312382B2AC47F4504BC6FE6114BCCE3F -1E44978902DEB42366D95321C7FBFF6AB99A0D683F38C67549F1221A9ED50C6707A4F79EDE3F -DF08F34971E3E81AA25F4124F003E17E8B79C74AC9CAFC8A4626678DB5A2BDCB39FF9C8098CE -1EF13FF1595F013E9D8EED56706C489E4EF962966BEC29350CD47D67CDCA6F1248C383AE4D87 -27CEE7094FDD5938F3409E7556BDA042536C319607D5F8EAEE6BE9D4B1B5663854952B97B881 -D31939D9BABDDE346ED78ED496C7BB45D5EC3F6EFE44FA51D85820C380182AEF66B2C2BA6E7A -44572C2481C0700BFEE092DB6784CB07F37B1753C3D6018547568A5DD8BE51E4F3D464899625 -9A761BA6E40723C96E350BF05D6463E081AA5BE492CB145E2795C370948B20AC3C5376F2A617 -23B96CE8D395948C20FA214AB9EF79567563DB9A01F55BEEB3894C67B9809AEC9277F32680FD -C438392EFDD6A7BBE7621CD2E65856A73C9E1FFAB3641D9DC8DB3E64453B7AA227912DCF2DAF -584DC17D311307FE5EA4D0C77EC3B24CF2847FC42642FE0620E654CD533AB23FA6C380077021 -8DF7A2B16CC6E3FEB88151EC9E747699D687FD3D7112887DA01F1688FA12AFB6B20D610DA7A9 -18D0ADA1E7EFEE5B6D08424E638F3513374A9146908671F6F44BC241334B6FCBFD5EF9870605 -999BDEC58DE9F99B232FF0670E0826233A10D264AAB30EA83D70A6D9C8E43BBE80B672C52EC0 -BB285A1D7496664BD72A9F397E153C6740B421AF10E1CDF7356A37FB9176FA3812B9ABB0EB7B -63E281E10353BA657D69E8808028709C9549844BCE4959631A2B899189300667B2D6A1EDC197 -B7285A372C1FDC61081F2F368FCEE49BF56B37C63D2BA8C46E58826A71537A34A922AA523B7B -0B61BD37929EB775D1A1EE76399AEC20473792796E1D3FEB35A2246E084AE05A0110B179ECDC -1602B68C8A1236CBCB03CBF24F59664CA84C986E6C855C097515325F31EA8B2DEC6D73744C36 -F04A414D58A957D0C7966901EB3F288D274D0F66B5C3D1E5006EC5C4A949953763A0EDDF0C2F -9F4E2F96015F2A1CB9B959ECA30CA92A7434E7E8AFE35EAD6EC75004CA4693A9C76E7DE9AE6B -274F743403F94DB596DDDA9E8157036682F680B1A477C03F7796EFF275F8D090339EDD1A1D9A -9975F878A1829651A0EBAD55EF95CF616EC1FB281B3D96C39661184DCBA4787263BC4ADF90D9 -537CD1CF3B18EC23C05F5BD03DF2883E1D68B600E8AE82E67857F595E791D0A8D83460830BDB -79A5EB39E6A338D1A254F6B53BA3477EAA71D996C8DD28BC43DC69D47843BD2F353D89F0E73A -EB3F36004A3BA44E4E61B3AF3B225F8917B52E5EEE936AD213B9567D24BA22B81826632E9C5D -F11603C71E9C80B9B1FAC7A30405F631E768A47A79B9B4D186771C093870D8EEAA031D2F62FB -B84A096AFFA272CCA428A74F0A72E291FD767BD81588E68261DB6F0839522A5A141C925EF537 -39E87F0B4EF172ECA52FEE888AD60897383AB17D227C0CEF95E86F149ED6B71C05CE20BDE10E -E7400C4ED4403F731BAFAA351159F3211580CF4B8773F088241320A0C884989BD49A247804B5 -11DC5289182184CE866EEA529B8B7F7893612BDF5C83882CEA1A6F5E9548E317BAD5584FA34A -05819B3586898B99C3600ED890F739FD22B8036986844FA4F8D5D2F08701AD48281448DF22BD -9A466676CBC3C692C4C7439200FEB745F6C7F81CD0407E1F1E817C2EF213065E3A6A64994365 -0A3340F8E087BA44AA5AAD2E86001B33B107AE6D361D3959DB49AD90449C8DC89D6E06F97140 -8056E1C61701B250DBAB9F9FDE3BB46DF4A1B13DB958F3C5D090F33A80DC1F28393F92490885 -EC4FBB55FE14B724365DB03CB4C58F9863EE545D782303CF620E92C6A80D24049E74E626DCFD -7F84C3F8119CF5AE55BA9EC187E1911059B49C961DFC25A32687CE62814EEF24807BD03A7A7F -C1DB967E7A895DA8BE1A8B1495BE0DFFD8E81778A1D9AEE40338F082D0F4E42F3511DADC0A97 -B9FA07BEE70200F6EF7D43A6F3A2B45CA2D2CE1DBFF5CE880B4C57EB2467C5F9368D6682FF4E -518B9C40A6F0FA22A0A34FBF7A74DE73881259B85A12D3941D07E950F3AC34B8514A486F5677 -CB53ED099267EBADAB164DC99DA9583391B3770F8C82FBD4A23677E466DA9BB35DD8BE2B4843 -03A4EBEF7112D29C4E24A017EDD02E49173A917534438581F671066548D4B3B5D0AAD7562802 -24A194430A0DE4EF9411E455D2F5B1A9DC2A0AA6568137EF44521FF319DD2D7DDAC256F75A2B -BF17E6EAE45ED2A2A3B9C0178A8F1E7B321ECCE18FEF51A17A86121FBE9E6EAAACC84C6A999A -E6D66E0451016FCF33FCD44EA34555511C35A51DBE0AFA426597F72A5E2EFC139C1902B5CB5F -709D635AEF6A988AED3B32D7FEE045CD0CB0C4335CB59C643B3642FCA1FA9FF83127A1DD8FBE -FC572DBD7CBACA6F1B78C3005D81FC4DF1C1D4458AB5DC525441C92FEAABC2E54DA8B76F5F30 -4009A5D53365BC4D6A8D76FBD9C59F80DC73B5B5201BFAD2D4DB6AD6EB79F6CDCEAD13CEC0A7 -D0BD521F835B7AE021A5CD54B2CBAB7025F37873651FE647B364569799F6132D5A6E61B1CCC7 -F4A04C6FED51CBE81F2EF92668DE6D92846D44B26F72396AE7B02AE40F59F31D0E11CF382C72 -66B109528050A0182EB3266FBE7BC6C7D9BFBFEBE4537DB7BFA3896DEF9D1D962C29B3607EB7 -8369E34AFCAB7705E26C44CB4E7AC5D997AC94BA0D274D750191F8C0960818B77269B13BACFD -A70DD5E6F801F213402645DDFF14F4006AB5C25CF7067267F45B542917351A01DB7FBD6D9A85 -01CB327F06C53A3BAB1C0C3CDA017268A30B2911E995D59EAEC4829757CB3EC2D03E2B475728 -89AB1E29F94CDE133B235BD610442A19D9D9CACB8EECF5B85B965840E7188C9818DC823E13C6 -23BCE5072BDA12EAD079C96F0E7217D93BD1772C7908CAB7E3D7FF9BE677D437E362649EB7C4 -98D9B63E032CF245AA06F2E267D1AB374CB2EFF0E722A0D58C11936C93A4EF5DD2D1578F102B -B58466A0215289BCE3511252399E87EBADCC69FF5681A94629007E722D47C9B38E5B8826D604 -6303E395C50D7FC1D8CF1CA37AB1A1975382087BCA2445364A26D13FCEB2CE98AD6827430F9D -E26AE73428D67C890CCA1A379F4668BAC864FA3556A10C739C7E60F6FBBD51B73C111007C002 -F9251083689E5C16B8B16DD5D41353C963C12D93DBC1E4FF8CABE11D0B24FBD084FBB4433270 -7AB1C29F1BDD23BCE60EE9E4F001CF305072909FD5B89079EC8CEBF4D14D9B6B2A6AEECF7625 -73B7C1398678AA6C317128DE3F1BEFB13B40D86581647408BEFCEDF74ADC878CD7DA125F4126 -BA0B780299EAC33B00AC7DC9FE5ECECDFCD3BC319140A04F0D96707D097864D10BD08D9C8509 -2E6F5809B55820646DFA3F48E2FD4D695BF3667DB6A735263D097FA8A19DBA8551125FDF5BFE -22140A9BEC5085A4A253E85BD82F69B21AF5789EFD97F5EAC5ECAC8E55C31CF4B88CACB3E74E -2870E10012C12565B45002D077E82AC231CF994D70B550D6FDD65921C7EC05D7A651612E61B9 -08957746951240F511E2E64F665706C5754D4E21D9936BCFE5F3E71D85ECE3085691A511EB74 -859CB27F2A76A5C3299592DAD26BABD87CD855084DF2395CAF29CC9E4AC7AF2461AF5C0C4207 -B2915833F560E7D64C4C5960DB2595305C184C25A3AA6846B39BEE36DF1979941291722A40DC -BBCB4780A2C8B08BF9019202802AF4206253C2DF4AFE573655D4AA05C1004E650E80FBCA99B7 -CD78F3DE751DB82E8C82C0AFEB9A325DFC40B90A799FFFB5D736F85D789ABF65F096C011F520 -E7C4764309B158CCD2D78FC694A52B0B8421B2F57E7C594EB15E1F9EE493CF8BDDA908C412D1 -7098F619FE55891180493205BD6C3792E733F29CDC139FB3A63B24AA15B2D3771743DE88FBF2 -D6B94F121853AF13452BE9F2F4043ADC0B94FA3370BD4736346768E57DEC8F6CBA299EA4986F -0732AC92999DDE579B60444EA64ACDF5C45013A9E58A478DAF93564719EF5721511B65FB0D6E -72DF46CD0D7BF68AA0FF28CBF3E55CCD8B285B619AA5D71AC4CB5229548174477C0D1EEC74C3 -808203FE338C002CEA9E4464BCA8443D557B349920F08601E9E2FE3F06A388C01DF06B25AE6B -FFC6CE67DDE0217905ED1123C869618FBB885C794BFE9D9655FEA35F9244AAAF615954A75848 -6FEC2C87C6D5BB3659B7E9A512CE13703E66C138ED90ECD7D485F207EC126D1698285B8F599A -E17736DF45D69E8136FF26BAAB41A1A7F349E2328C4803AC14C05AC133EB07E20F2A1AD8866C -4B8650479571EC92E2AA365D13AC1243F2AABF38C41D889292851E8097F9F9C2C44741A535D9 -65E41CFE56F364849312D85252929C7FDA1FFE6F55314C5A93689CB725BB06F27C5BA7DFF6E5 -DF1850CAAD65002E75A381A9A4CCC4786FC90A8196C1ABF7FF755CC3C32EE709A9A58D8D35E5 -3CEFC1CA7B93DC8B068EA5038FAC8EDCB74C17092CE09E899CE36D85EFE5FC531BC5ABD0976B -9034337F6FE5CFECB5F1797E3B5B7D4989C6D35AF5D5BDA45C2137A8FC3A08A5339BACA67932 -CB4FCA65B960987F91B9A75C95840BAB3FE1AF6B1FEBD247EAA5BF1BEC534DC65CA28C24D98C -A811DB4F8404530C20DDDA87C0A942643D18F274483E9471A7550A837140A83E9235E037D389 -601A0A436CC344C310B730C6B6F47A137BB117135756AA95AABEAD4C9B799A1D91DFE4BD206A -50C54B43FE19227EBE54469242815AB503624F62BB1EFC9129481F04EA6B96667987CA322892 -531B12C538D40AEB4A9CE6DE2159D712C43E43B2EB4CBE5A30D5D22DADF7EF08C26A22ACB72E -564662ED3079D3A06C2596FD5FA22F7F7093B27C2873FF155583C4B44D480A49876A52ABD1EA -7194384032CA986F92E2F75F6428B9BA25C0B1F29A71E914BC52BA367BD153A8FA717B0F0E97 -9965575FDFA8EA7F9AFC61AC127089FB4BA1E653A4DE604968F6864D2E453BDEC2CC18E61B42 -1700595A7290754468CFA7E77175D6B55FC9E632F43D33AF73CA72C9EB2C7FCAE587BC586549 -5E225DEA384FBD43F77D2789C0BB77B38686E55CF8351AD13B613AED9C68EAD3332B504A965C -75E6BDE1C8F436D6233BC2D654843123D3463843C739AC49014D2BCCF9E6A9E47EB32160A164 -6DD95043F6F7120517526A285BC54F28A933DB4B467AC610C9356A838AA897842010683A9863 -59B07C3FE4C752E498EEF34C5162572476B0514EFD36D4795B16F5015898C3983DD04DD0557A -D9A351A0E7CF174EB3D748609628588C6F14419C61B57588E9E6D15BC8ECBD08CE0CA483A9F9 -9C45F845E19666BD1CEFCA0755B8EE1890AA6A01469F9AFF8A974A6476CF94CE5E3F752BC135 -FC7BF2F63498CB332821797CCB5761C11FEE1EFE5528BE5486F497CC9648F6A20820A253A96B -DA356C19145318DCC4B31336D69AE9FF83680BFCDEE5EF2B1C79752DEEB8BEC70A3822932ECC -C0D6792F05E60F5328450E218E9600CA5CC2D98902B4788B1A12813240EE35126803CE0BBAB6 -5AB7EDEB5ED3150F6DA3742A5815E780E0254A0E26A804262D6705EBE5F7537F46C9D1D2AE08 -798278F3C41D523464B13E84F54743C27621FDBA809546AC3933E01349ED57A5614B4B98BFAF -2DC18713570B8CA3F98D6EAA501948B4A89815C3DD16E9CA10F8F187033611EEBEF5D73A1265 -E1A9CD619666BB6063A2B69294985A31A51C6B5556D1E356A63E3B1B208E053ED37FBC0EB2BA -6A0469D82E91082D16B788D738D6B47BF14AD6C0E74160519BFA0BED395A6BA76A94C4835785 -60B104745F9C26420C4DAD04C7D614A1F53CDA326E94A1FA68B75E3508DD8B1DA52C3977FCC5 -9C4C2BAD789A532B0F99F09998B1E3BFBE4BB5C42D3418993310C6876203E628005B0F13FD47 -511E1530BE946C865F5A15AE22FE21EA8A6CD551D9032EFC67B269E57AFF421C42E97E671EED -EAE2845C162F88CE39DF0C13A60050050A1C3437731EB87E2DBB7F778C89418565A3C497D25C -9428E068667A968757D2F3EABCEB3EB76D6704ECF65812F67DAEA9D2FB5165CB83A544E052A6 -0D8AB97AB8E117465C93CFD8A1805B4C92EEEBAE941AFECC82CFE720C2BED1CC2D796BA6CA1B -9319F54E5BB6498A357921705AF9A9E6C34CA725550D630B5D454CB5CC683757CADA101434A1 -C0031F18841A994C3BE292443BEA237C72ED384EC5DAA5F2408C2BBD4EE812EC3C34C52ECEDA -21421ABE146AF56E3801C24A19BD1E81166BBAED47D282E900CEA6B6FCD7A7A236AA95E8E419 -F1AA13EC000FE907D4A4A946672AD737D670C54B52FDF2A03C34E35DEF4AA1B47DD67E45104E -054B1D51E4E4C8956AE47B147B5C36A6FEAD6D4FB000063B91D15DA69223C2DA79FBD03E86AB -E57445B003D6E6B3224D0B5B38F1AAD0FC43F663454FB32023DB8C67075E6BC70381C310BF6F -341E15791FF322983851EA1EB6570F22EAEF668DBA45C108D1F5F283D05F6343E2E21E4F33EC -612CA0EEB36693101EF5F48AE8BC2866DAA02346185E083994B20004C6CD0045B3991A600220 -6577D36D1E5A951F9AF449399DC5B6B2BB51A1BC56229997BE924B4CF8DBEADE9BEEC8CB6534 -A5C5BC10249B45DF10F1CF1538E8DA328469BD06183BA827EC09C4A57457E4FB0F94F47AADF7 -0F90FF80108FB6424DE234365BCC97DADEFC2D6E482E68BE634B14D06CCBFAF21D04170DEAF6 -0CE1E496A52C146ACCF4D178C9048066F685013971068D0DAB85F25D712AC465D3FC033FC164 -BEFF1B5EF5DEBC0A436BBADE8FD70D4BE2D3AE2C541AD590FF64DD8A92D0A8D0B6E67C150B2B -4971DE6DCDC473D041B4A8D8A26259347DB6DB7B9A84CFE97EBF7F8B7139ADF77E270D725FBE -8E5F407E9A578EE4AB355150E4F33A55DC8490BE9105F37037EB65701346ECBFEA1CC48032C9 -91E8122D130005CA49BE247AF612E1F939950500AE4E577B9B44E456B6BF7DB3F1ABBF8818C4 -53F2DEEAD4DE0073A06C118A3B1F808B41BE6F72047ECE96EB36F6CA3DEEFF19FFEFDE56B044 -941C159F34891209187A3921DBDA57C8A7935DBFF246F4313507DCFCA4AC94BDF69B29368074 -FF5640E8CD988E0C1B0ACDAA03C99E2895AACF401D51DDAF83C579A20CFE591FC0D10C03E24E -427532725FF4C67C069C7ABDFCE0F2D40D068C76F613E67CE466A560ECDF97B8E484BFD0A360 -6D42EF5E9BF958C2370A2DC634BDF1E34F74D29EA16E3A9CB71A6EF8AE59EB37A5B7FB012DA3 -DF189912AA4786047D51160D6DDD1DD50D7A8D2BEB2BBE3DA0E793FF20E48DB14F0A477FF771 -86FB913EBBB20216F68AC2354A427BFA2F20905FE15304EBCDBAF8B03264B0C141C4E3D86AC4 -831AE375E847EE476380E68CCFCA84CDAEDA86706DABAD877255D3E8F9FEB07B5F92A7B9B882 -A8D2DF2EEA8A4DD268FF7FCABB8D03AA66663B09A51AE83730E77FD859142DB309E9477FECBF -3ED9ADC3CAFDE91B3AF4B3EB2560FB682B0123149DD2E7F535203B8C72A5FA95CE79E10939D9 -1AB1DB12318701CAB9D3AE86D4995102B39C3020B6FDF744E0A29CEA73F813469904235C1C68 -BB5BFCE13A8E76632CAC8CAFE96B43300AD1A580870981309A3B8E47116E4710C904906F94BD -2CCC6789C4091575DE3A64C78190405A575EB723D1940BCB5615C2240807C3C326062638BE6B -79E31E12DD5D248FCA00FD8E4B17643291843F4C5FD32FC2636EBD524FEF056C0CE1AAB63E6E -D68F3EADDA02494C70F22C6C838236A31521724B5BE0422FCE1D06408895C8BCF8DD70D8E0EF -09C2CF585DBEC3C6667E7A4F850AF3FA9FC957BEA5FEF35D87780A5D073ABB5B8E96E0902328 -D29AA90C43ADE6F0DAEC98AA2A75BF018BFF278AB8F2BA32A214DCB52A872F7A3B472487EA7D -F39DD9666EAD3CA5480F7B95C4C2B6920106C21BFCD480068263AA36D8E03924EF59B3AAB321 -92CF2B9772E7858121CB869D35B127FD3CB87E14E71836F20A9AF1278011847A46044B2B1BE3 -1626AB11A1867BE33132DAF3DD25493A6EFAD8FFC6551807F5CA10A9772A6DEA00A5D5EE880B -78EA68DB2D9B1B611884AC7FF76607E3D73FC32B5D3EA656D16B256254C7151D15EF5CD67E28 -FDD144366F271EF5F4C2823D9D90C168FC24C6D077D66C71F4443C6552615B3F3D93DA082F76 -8AEF8FF3B0E618C8604321F87C2CDE65CCBBBA48D63E7BAD1268AA07A27FFD367677D1DABF77 -1CBDC68DE0AF5AF73C7724175E2C839194A7E14E1A327C45096B3C4EEC7C53431BBB2DEFCEA2 -ED44A912B6058B23AEDEB5D673FC7677B8AE7F6CBBCA6B39967CCF1805248FCBC0D3625548EA -CF2A51CDB92F596DC4C2A3BA1149D6A372C2B849DA5C064DDB3FE9DDAE4A58E19FCD8AD5791C -D2A27C363F540A246C56359C0F08E1D109B796D10670EBF6BFD6CE9CE161E57F50F5413ECA1B -28AEDB087F4FFDFF09ED709CB8AEEA7C1D59D5945ABA33BE9BA9A7C151FD384AF0562C85694C -078B70840045A74F180172E41A495B38C2557FFE5258B938C8DF5EED7717BEBF7024B50CF817 -DA720AB19D3132E98CBAA518C09CAD69C831E50B6C9A00174A95A039768A34A8A9AC805194D5 -3D3C4E741B9F1FCCF83F14C83FCC59851AEA362FA805850F0084018C6A48B4CD30C5D20212A8 -C3D409A97E396F1FCBC05A0C915AADF38B3090FDC9F10E92E4235B8CA92FD48FB30520B3AB0F -B50967A9D2F39AA71DE60E1FEA4E155225E549D2A797D71E756BE076375C643B07DCFF41DEA5 -569C536B683FA5E8372F0656E8B3F0B765B07AC45C55A9742412B69722E4A40B941EF6707C95 -D41A3A7CB27A7C72E686F21BA70D7536B2297EC0220C91F8BB665907C1CA79ED0B02AE1AFC92 -A870C9371291DB3FD76FEA257CC886528329C16ECD3D0A6CC17F9626E138F4581F5E054577DC -F0957FAF212237027A3A6F45782FDC49919E4C8C896AD151497340CCF3FF702FA4F658D03C03 -58CF4EB8E0E8893ED998DEE013E539B1586062B894070939E78DBF8F72C917D6C4C3E0FE3BB5 -D7A6985485596A1DEDF359A0895598B783953B72080BF96D3031D7E3721F9EB0997E15984F42 -D44B588B5C262BD16EDADA5262DFC8BDDC73400CB8A52B81E048103E4BD09243302A63201002 -ACAE3B01603CB8B8CB3262A938418B77D7D6FEBEAC59B048752CCBD982C16AC0B95E83F98AF3 -992D7B4310BC2BB736946EE5869C8FD64C9794468ED9A992EBFAAD2612F84D5A3976FF378E1F -AB4800C59C2CB0E673C9868C3C91AF2B2D1781AB104FBD8B74D2BCCD6CD7378C583D501BD608 -C5C68153E7DC46AC960C7521A4D82A04F564169262B612B16C3B6B8BABE8B0648B71FED044B1 -E716B3961E33FF78D7662D9F950AB3669D161287DA15C5347251CAC35DAF6A6DADCE3C2F7326 -3017F2E3C49D43CE101499A8085DFE0E083F32A5D3B4C0A848439DE4DB40A6945AB261969B9E -131642924A237C8DA33F836C11E58D2500B9B0A0DF61A899BA5E389EA507D1075F6332FF00E0 -1ABF088C4CAFCA39AAF2A4391C50CA5D911B07519CBF8147E69B06067FBD7663C0C1C2EB8DCF -301E54A8CF2314C4344CB022FD110527EDC42DFFF2BB972669E611A811A2E2BE0FD5C3070577 -90C82265368B82D53A1CB329FB0D57A39E41EF0932CA09548B48EEBC0A10E81BE2B14DAF1B94 -B0862C24068D5FDF68949D4767B7400F3138B17C5416342653B25D925701BAFA47789F07FEC7 -D898ED492E035FA2CEF3B514B566F23243DECBA253C414455E306B88D7BC5381F081C9544F34 -8A70C389EA1A90874BE4EAF2BB4C76E87D2699F15AE7E181FEC636BF047CB7DB5C7F2A62070E -2ECC2D2531B3A9A436BABCC440F666FBB425D7B8110A7F6FB348967850C9596EE62C11431241 -DE4F0CF7290E95AE30B5CA08E5CE2854F8F605BCA36244D6E8207C34E48DBA9D89241C6C6E42 -8CB9952F7549DCCBC4B5117361D932C5857408A072DB0D478BCA15D3180175D1EF2E2074C4CD -35B69F8CBEC7F8C86A42C99C3CB79F7BD187FD7CB9DA59D66F85C6ADD67D46D2746BB8F22743 -7D60849D22C9AD6B016EC2B57CF8994260436EB3587C343F9990C91A85D15A48A2E3A8EA6752 -74E016727B6E563050F065C02CB7949472DD0263A623B96672461FA673D4C2DB036E7B71CFAF -C70C56882CC8F0BBC50B3A47DF85E1196FE3DF8D4C8E644BBDC648854D07D52DD651B5103716 -B670F709947E406A7417006ADD9B522DE0B1C6CB391BBF1E569C67F7E0D9E46D145B82338A7C -7B6BCDAB83EBA2C587569F6EF336E62D49ECB484E49E3CAE475A63B1626B88735CB8F5F72D70 -B776CE4DBFC35401E4A1BAAD1210447A2CD75F28B3BC76F1A3C6160B91837F062E7453EC0932 -FED737A8E2D40533CF6AB583789EF5CCC99969FC100B1A2286C4F28AF4F12B64F8AEAFCF7D70 -01A7EC89D23CBF6B856855892312F4FFBD9F1004BBAE76B282FA04D0555A40F3A9F5F02C7E61 -9EB8B4D54A56A6C910B7A4902E8BBB1098EA4DBDDA6D7CECCF15BDF3B6D98EDD17038C5556C7 -1815C89952F9F3AE4B73BC4C5911713AC325D4138CD57195E3A7A59076C4E7CA883931F24152 -8078B4F1A0D98E737D3ABE55ED9EABF4097CA5A3742A0B2A1A64F8D99FB095480AD29B44FD04 -D04108902C0FC33202C7BB93C744AA14139A91ACEC3A09A3D61695C3AFAA31AE538E1639DBAC -4137D4B98A9C60B69331F5B9731B7A9C7B95BD29B07813326C5229BC6076815E1284CD35B921 -1FEE8F8695CE5EC9519A0F0C3175E85479DF012A6FEA37208ED6BFBB3FB13D031CDB08C4409E -E50C8D5E435A2323EBE93AD4EA429B894806857C11866BBC42844F70A72B8277103B9619843D -9844617669150D3052D214AC358F07BF958047050EA5B586E85CB13C4802E0C77C14A9E25142 -3F756A594228D7404756AFF86CF1E8DF4F8CA29CE3AA182EC99A45C975B5C528564058B2E91F -8BA159A52EC6661C1316CDF7D4AE64ABBE9205BF13C144D4F46D09BD23F690FFFCA2F850C139 -5028EC198E5F2BF97D67BC7CEC168FC3729C61C8CE551E6D1A2458378844D2E054DD0E1CD8CE -E07334D4DF6B1CC6BF68D524BAC47076BA19757E057ABED21AB86FC7D0E5A2205BB410B3E131 -CF73FC18378E482A8D0D99E56830A563F13DC0D94507701300779D23136F16E78CB0C11C2FB4 -52DD047B20CC3241DEA801CDFA28E6529F9F486FCB9EC39A844D5D7213D53253AAD0F6B6F223 -628C9E354A604AAC6DD9056E66CCE023E231CC1B7B57AD922B2E5FCCCAA4B57AC8279A6B1343 -0998B57A8DAF901B823E0705A3F85B33950DA323C6423F5050DEA499563C35927FA5FC2265A3 -6C42A047B67D82BE257054203DAF7676DB8CCF60F2A070EC59480D970832FE5E7A9A324D8839 -6C58B1445CA4EEBDB7336D82FB98EA4957EFBF386EF77B8406E18C05CEBC50BB45DE110776EB -3C7987E771A7AA2802E2C4D73D1CEC19F58F377ABE2F5EEDAB49E78F325D304CD08FECB114FA -B86E36420EF78A3BAF2BD4295C7C469DD7F631CE8016F21EE3538FA12648D162B897DE0CB283 -BBFF346D27E9E27B8F844279AD410C703ECA844F43D64D5E3C1B104E472EF9666EF2C30D977E -2A9DFE9DD8DF35DA387605213C2F78421CD7EAE1267023EA231F68879127162B223D49CB9A92 -CF76FE129F582C7614CEABC638E1F494ABEAE3A6A3A29D1E35050C22C0E41519266EB6976840 -82D8FD60749F77D0CAA71670AB1C28487CD4F3FDB1AD142636B1107D3ACFC0445CF05302FCBA -39549FA34AEBD4ED0286B096950E349E55EB619D24764A0A09166F5E569B2654BFD9FAAD12C4 -D4E57FC50203EE6EC681103757322797EDE0BC73EC97F088CBD3A57D51A389898710BC8FD160 -55AC242A00B25067418EB133B7DCB37B76746E4238ADFD685A1A6F29FCA9071632549387D8B2 -8620AEB2CBFF281B69344ADDEB6C3DF5A43D33A6FAF9476C972B32949A9ECEBC330F1C5D2294 -B170E28E3EB85B41F8C3F30A768EFF0E5E62EEC6CD02F835F84143765B67DACF952FA7CFDCEC -8CCA0F9FDEF8C1A188A39AE9DFF1BC0C0D88443AE75001EEC0B29E5C214E49AA89F1BF74D90C -8998F9B433C50E485C356DAB5F2BF3190FFF5B32D56E8CFC5D6A2FE552B3D8ECF8B9C644FF3D -002F663B06BE6562C2809CF20FFEA9BEA47F9C46144B8E657DEC0FFF127B4A191AF62B9FACE2 -C1C1DB6C8AAD38AB1EA635B6CAB6C3E9134F9DB9767920539C2598CC916D3886DFBE9B7818B6 -2A680797DE8D5313F875C868E6D946B5C7AF0506876E391CBBF5061E84B11B1918A3B0773A8A -6D1A52753BFA13F31834BE01E90567BDC66871BD0AC775F91AFEC0B95CD0D7A73A645AB35675 -AC9B80752EB40FEAC25158AFFF820BC9D6781BF275B638CE9A5EC45CF9BF727FCB42659320B5 -F4E63E5836C7871D043B860C2B7B3A573CB05ED08D99B24843CB0DD1DC981D3A182C5D440006 -CD053F88D890F2C2FA850455CD19AA3136F58BADF8EB74563C8D1E4F0047A89E245DE8988472 -A94912B298C1DE2BF721C799495319028859178AA092D3F74AEBB4A5122324365BF7C86E4E45 -B001D6D91DB80F641BEF92D336E3D53CADDFBC81C15C54DE2C6AE6027D1CC05152EFC53ADCD2 -20FEE64D1A34DECB75F2CA0227DD7505810B6D62FEA55DB4708E505373EEF643B88ADC96DA87 -BEACFDBD92943A65FE9B89503BFEFD07C7527C7A0ECA6A59191332CDF4217C3D824C9ACBDAE6 -F768A3530F905A08D2A58FD65C8037B5743F21E04EB474DEA5856BE6E84DEE3A89ED3E85E94B -718E1C47E66075C3C889E846449E26A87A1474640359033A847C576794938506FC7415515598 -F89FBD2F671187756FD690E1852E93E1336D1ACAE877F011E9227D24B39D36389C9BB64960C8 -780663B5B0389383D889C68CFA393AE15CE4685FBCF2ACDECB2CB7E385DC2116961DE06AC9D6 -70FDA6620DB0C8D74D408889DC249CEB1F25454AECEBFB569309D8EBD1D20BF604F4C64DF933 -7D48B2877011FEB7992632CED0A6E609E7DFF777EC90A5F653AA63687CDB2D6F9F50DD8FE903 -0224A55E8A551D0D1009F917D09D03F83444A2D4FEECA38E42C10A4C41EF73DE5D23BBE79230 -6FAD1046DC4C6E6E188CA4E5111C24EA251C1F7BB42800A3DE250ED423D1EED09760EAD6EC55 -6B02D6D1C4B38C3E52EF20FD3015C3F106BE58909BA7BF782FDF5A528DC71724A5B2B5DC959B -94380DD6CB27C0D7B2FADA651E03BDD5D4BF1C3AF12868EC2F6C01005D6319EC878F462D9DBE -0103603C12143F4185583C630D86D3BFF720FA6C347EF561F914DFF15AA72C670092EBD1228C -124A71DFDD654F39C1F8ECE526BB19067C512C1ACBBD5C19456E5055CAFDA3DFEBB564CE5009 -B80B7B75E296B108DCC3AF8B0FC9071E804DFC2E26DCA9DA8502A73DD10E7822F9FB011ABBDD -54EA66A72A411871C2D082937AE8289393BD18B1B4A8F479897C5B2709557FC385EA7DC92DA7 -40866D666F34ED10E9B956E3878FA763E336F6670A26FFDA75F26BDB79620D3995D78881E0EE -8B2EBA6AB7D0679F7F116EACC0215D5AF7E27B3C5A054957302CC326326DFC2A455157B16740 -8ADA08CC7A3A86BC473180A19D3F429ACD10AC353EC89C28DE06C795BE2848EA7F4153A3DED4 -2DE8CA77EF8CF1A3BA56C3B6388F48593B6DAA1949D66EAD49FA91A3083DF61C1FC63A3960D2 -37BBA444B2F15A9E030C1EEB36B5328B615B9FC847EE89EBE8D847F9C6BEC64B6A8F985DAF31 -0076F2763EDEEB6BA120E877D9E6B1B2DCF15760C3EE78333C394E0F06B49F6CBB07ED805B3C -D5D22B5EC37F22F4648B756CE4E402A4438749AC045B589DE0C276EB3673314FC71B63D74594 -9F2E5E3B20938249CEF5B691FF852D7D63A8570C8AD45C63ABD8E17DB0A8A2E83DDEC9D92FFF -BEF4BBBB6F47F397F592D2ABEBDCD19D6F4F1B62B79ADC2E4FF7CBA34DFA7DFE5A76B8A5DE22 -57EC6F6C2C80BD860211B83724D194A662868B89919FAF726EBA9040647B36EB48FB168BA107 -AA9A03A422D0850A343F6E01F311E431E103F413D66B378DDA1533B2E746A5E36E6526C6017F -0135F2CE24939813625578A9CCB6A86DC637F49D9A733E05DC4B771171CC76381F971F72DB75 -6CDDE3EBF0EC28B23206B8CA92B7588058D2816DDC514D6A9FDFFDEC2BA476BA9AC3D9E4FF62 -08C62E4EFE1C9B6EB5D7DA81F9F12DFA7DC4BC24E46DD1CC8582E251B7D59948A9B83D1584DC -6FF18F8E3EBBD2F2E366E62D65268DBF334AB108BAFD30DAA6571F963930B83769209D6127C9 -908E8B27437D30C8543BA89C67123493836ED71F8807D636CD861E0BB09A0B9C5904690C28F1 -B07808366B81AFE5180C97017C18B8FED31DD2BB6594D69979EF03F5FE22732BB9FA9FB5EF1A -97B68FE9AE60ABEB5A85C33BD6DF83A5B2BE79C17CEC7E1D980192C74E3AF5166A19430012B6 -DCF8323CF0FB0480E80B94D0AA69118ED72F0D07C74EA36D2EF6E32048A3E901D20DF9784113 -F8FAB74F490B141E27EBDC88BD273DB963CDD36FC9BEAEE9F8E15251B49D034939645C7DFE40 -99D9AB33065B3B764D7CC73CCB4D4D4D130B54147259F27579B471702827DD43E6B2A1465C4E -41567B42CD642D5453BC2372E0317074D9087E76E2A59F95290EBF2C77E87489CA9622419C9E -CBA2EDA3C4768870DF2AC7756D77731434976E70B2CA93FC54D26A520BBE1DB0CBEBD9019E87 -1FF3CCBCFFA0493A3438EDB94D25B85BECDA25D4B0CC9CC2225048F43FE156453E4BC18FEC6F -A779205AADDA5AB771ACD04A84DC024C7B47F474FC7E546C5F9E7C3F27C824271154DDC61126 -040FDEA871023C0714879C7E8C6776EA4E1E0F986785CD6B0FF6176C13E0B00125D0A3D4A42B -D6C0BCD7A20679AB986B1B6A1DD23FF41E32D01E11DB42322BE74E6883A6150F8D9F5B9F7B24 -95C6FB79C2BE4BABDDA057E6ACF296A7086EB45ABAA00EF545FECFF1A0F136F7DD10504A88F6 -2EDA3F988298D91F139D3465076B200AAF8CD0BBB2975FD7E9345406CAF69301FF29BDBA3279 -09F0A017C74296FEFBA6969FC4D7631632177F3A81A58CD254A797375E8F4F1B60771C448616 -6275868ABEE33AEA8412FE8D0E7A695330AACB6D185E13278E16BABB704917F999B19614ABB6 -1A4BDE9B4B6CC6B9D157BB629FDBEEABB4A75759EDDA7190F9082833C4169EF1E8587225894D -0AA5E70A83DCF54A21741864DF1ECC02AC0554029C828F3E12755EB3D513527790547C144057 -D0911C47FC73A38F17BDD727AF139C531626DA8AECBAE312C3F79EF0596B941EEE41F2B7AF11 -D05B990E80D8FCA0228C33127847F78B8BB1F045A7EFEC385F8C87A7A95C55D076C5B7D231F9 -39FAC2151645A826C0DB57706C6E07B999F8E133FC55ED171195F7FCDCD6D0B918013272D288 -6F77D5A5D34ECB6EEACF3A0204163C9159EAE7A84B339D10B91AAB9427538A218C958B213AEE -D92C0D0E104DBC6CBA03C00D2BB80C55865CC49F8D3A7A0BDD45073DEEDD049EEC5A97752999 -D9E35BEA8285151DE3F4256D49D4FF99501558874447DD424F51E2BA8DA166379E4F8027F6FF -F82FD93BA434D4BEBA38641BDB33C682794344BC9FBE7049555E68A9C4B7600F6F1EC408D707 -D6ABE545DC35A60B9C9336B8D39ABFA68D9F82B05877BDAA09080A2D02B2FF40A9281346FD67 -5B9F3B8355C70B2A17144ADBC6FED00D0B27EBC0617C4C7FE8A74815ABCC791EEF052CAA575E -98CA94327A20844D8A9D05336F0C53A3C2B1FCB814F97F71E7313D02A4E1C21D104EC49E9FEC -72F10B331D853D2C54E5EE7190066FF791D666CCFBAEA3A9C28C37081EE1C21B53990F7B537F -931FDC01BC12CDC877F3E37B50177C412B45DF334D19645D83385EAEBD77BD6F83EB24695339 -2B92516D52CF36EF4DA7AD06BCD0E180C8257A3ACC11C139B36340E3D717C05C4124BC96996F -9A1D0E3DDDB01531080DF80007FD8F34BD48A27BFB5E960E561758E4476D9F2CF45E6C0ED675 -3F2553FDB46DAFF2F07ADE8D9C082D5A4D69CC8EF2FDB5EC5041D1A8C263F545CBAA0EF0CD5D -E4FEABF10611E5D4FFA1E34BB7378AA3488A60BF07535F7C495B629DDC672D2F5E0B98BC042C -B31F09C6B48CDECCFE2205863C3C81E1D9882A7EF6E2D047D30E44829C6C8B950008B61BE012 -7B12C59811478B851A1F000FF1D19D49E622977FA45610B82EA8805B8C1EC86D564009420947 -2BDCB4B926756B4C3B643F1BAC07649C2CBD2F474C6360F8AF10174D45EC74DEE00FEC6BF743 -7243FFC7F712BB350212221AF8ABDA76C6050F7CFA0FE20C5E9FAD405859C23F446FA7340AD2 -EED96D7A25D9522FE68D4F3899580C978AA0DA8268CF2950E8663CA05445851A6EC8100DB53A -67E7C577911EC53BA388BA7B0D6E4E0CB3C76CDFC40E9B1CD5BB75DA4DBE2D60AE9E4B16E11B -BFEBD7A755AA5DDE3659204DE4FD46ABFF8674AF6A8CBA0C2E4F51C2D63CBB015993AA1ADB4E -0402224D28E009E5ECBF7626D60DB70F34B708DD7D8C8CB7AD7AE1B98C8C300C49894F555435 -8D8AC7E6E97F4C8F3E2B4B8B46B4D2D5FE57C703E0AC7383241809E815E013BBFB0343B2CF02 -2F871E78000EA5E8B9508D83C3E55CA6BAF6D4A1C99F9201066997EDD94DA3BEAF4A4E80CA6A -35A424B75650CAAD6181077D7C29C3EC1578F87BA7C78C520C826E5586B284250C66551051D3 -038C37D1124BDF8B7FDB74E04CBB27035B30D8C7E55323B74560D85083C21CD4AF5D8D0DACB2 -A7476BF28AEA038904AEA5FA8197A31CD6A8D9C84C61E77FE31BC0FDB50DADA27A2C6D979904 -8056D2FC85D400CD45849DC969AB95187EE6D8A9EC9FB811D773B475C03AE406BFD254EE3047 -62B197A6A4B953960F75760242E2884FE19E94F880E11409700877987BAF334981FF004D4A49 -217952F88EBE44AF8AF7DC82EBA1A7E9D6DFBC70DF64FDB318909902B779D1B95548E739C365 -55E2B86F2B05D2164E89560F9C7C3BCE9237508EDC653988EEA565D294AF4364F4AEBB2D908F -FF967F3ACD3398E3BA0C8D4B127FC03AF26C6889D0F54D52FD23875A455A83F22133567EFCD2 -057CAB4090646007E7D068BE73976563AF979F5ABCF7211BCB7AEA9FFA525C9E700E5F0681A3 -605E2F8309275358EF7C19CD8F7F2FD8C4A8E556D2BD4980268407DEB379E7FB6F45627488D9 -FCD251AC6A8469BD0C2B9FFE2C4564134329712FE16CDB1DB01BD4CE131C81D15AB22C857022 -BE6560B12A98A237ED373787A8CE38B2364864C4C809A42BD1761DD97571D3DFF5855A0EB781 -FFBBD209BA616A4B2EEA45382FD99A2027CD4101609D967F2A68312D7BC4FB7E5FEEAA53B171 -34B696E82F4568CF14129A610BCDEE11D31C86869A59607E74887779EDB18D5638FE5F7189C6 -287F2A67E6CE5B6D0B91BE8CD6D0E9DA5B8570123AD11E5E2D7BB3D65DD2C2363E742A5C5A45 -3BF7B9E227CB2404D579CDB782EEB560D9F0AFA64C2A80263E468A263165206616E647C3C558 -D6C3F311909B6558834E8002370243FDF714CD22CD3B0295C07181607AAD3F91191152CA9DFB -68580E9D2A7EB618B360BA86E4B425E10EC9A265EB286DBDEBA1E19CA77F065434C0EFA8A004 -59A6EF778B27173DD2041F9BFE5D0D51C82C410C91120AB841DAF280ECF8AE255F079D1DF5ED -838CD56CF1FD0D0518653CFF7004C001C956536FD9076D2E8A1CC9DE8A89B42FEAAFE59DFE64 -51A4DB77588EBA6E0D12B4F2B9C58478A0A9E2A7FEB0C861F10D999DCFE57D9B8FE4C3A468B6 -25FB5DA27851B31BF5632821D78213984E0E179DD7FED41686BB08ACD717918629DAE2D4232E -051845ED2217A28FCB004A223BB9B2B1DAFFE4FC5F095AC0D80869B32EE2F07C4AD050239AB7 -94A04E48B24F16BE00822DD60E2BCEA06A785304C75672DC24A8BB8637019825227FD74DF4A0 -E0E7819484FC2FD88356C55373EA2E61AA3E4029D2E6699B23C2972B0DE4E559830A4F8B9438 -2FBCE3EEEE72EEA57A725EA653722A20710DE22D89503171F84CFB3C324FFC8CEAF265DA2F41 -9AF9B1DC692F852B55EF189AC121620E6CB9F718D6F4D3DA13419E6EBDE24A1185675F95979D -F7718B93C7659DAFE30DD11C67D76D0AFC5581205E538AD57E059292F040B5E787B52E51E2D6 -352C0CAA926C6F14A765640E376DF2917C7362A51B810AEDFCC716C3EEEC84F93EC0C8FF0F7A -876E985508B9B59374DF12760938EB115DCE9E0282DBD8AF0D6F9398AB9D1F90893F3ABA8859 -477205BAD02A5152270D152A4D2A03F6D97E8B9048BFDDE9D0092D697512315B81FD45BD993C -48B64011981D38A7C0FF6B6473674FDFC5CB77AA6E020A379BA8BBB7E31973341A97F690EBCA -1030C35DA6CC5F71A1DC2E4A843B81B094B1973835E3E18673CCB6E5C10AB595FBF21F45B63C -D5C093F53EFE2FC361E1EA45FF71A5145101E6F7D830D3677D0CA5A77CF6A0E6FCDDAE934EAE -2B85C74E6EF8E043E6D27693B9111BFDEAEC22938916089D3B60792556A5604C3B1EC707ECF4 -4FA2C6E23868A0EB79F6FA04205E2D14C07B9229F2C2F6E226328BCB94E1BC69026BCDBA8D91 -B8377EBB54C9C6DC1C986A7E31195C41F129475A4BFBD5768BE5291FC0D95E31C29B1BAF68DA -08A5A15BA13006D05B8D7684D14962D530D08C3B74327F298DE3EB71F49437863991287D58B0 -2C9917E51F2D87588C7FA8B7B4A39A319D14ED56EDB09C028797F0E66EE06BB6DF1DACFFC3E5 -6F793AED15AD0947AF0E851F9E5F93C2FF84E6D2369FC3BB63B9E7AC16D8420DFF669CC80531 -CB6A4440ADF0981301E10FE9DFD2AC2468BE291D09B62447C372B04FFDB674007BB978133672 -88D6C5726E544C4C70DD9DCF3AC72C2A17F1A8073577D86BADBCB2BAFE690E1051B42232694A -FBCF24978A93F0585203D4E428C4630452991D8DC7FFB57D5F0C4890E531FB7D5DDF8C60BFB0 -EE083374095DC0A4C2B2B5D8A2D0876CD053253653EF66061C35F41A6360DAA92FB21A28AEAD -132A9A0619142749CBE4D8E0EA9433DA0E24E2AE2994043660375E9F27B642E68404E652E43E -97E15924E252114C7F725096DEC84C57F3F2C74F280CE61D76D0541EA826EDD294D776EC6144 -C1A0B4217B8D1591DDF0EEBFE8D2F155A0EBC74B4209972A68707F7DD4D7877F121CEA063F5B -E652614D1784FC1308C4B4168921859892C12CEF3937DBE7DE29AF39E59B5CE108FCB6F02ACB -66F3AA50A36D0CCA33755AE54CF54DF09E39226286597DDF89ADED47FDFBC678CF902229EE9F -3794F22EEE12544639BFED8F1CDA2D49D7D36B7286536942CA007B70BB2428AEF23A5496B680 -C009768EF1461A2C9CD4316B8F20D7F007E2D93E43910AD0651E2E79C4C16ED5A168C957FFBB -2CF6BCA0B7A3172A1FB1DA801486D14B3B7889CA1CF4F2F91CA96EB38DF6BB5AEAE99522D303 -0DADD086D4A6FEBD8377FAD9D6E99297077F4ACA3C8C113EA9B95B82C137C077FCA10D5AED69 -340AF36F83EE24F12828286B70FE4996B864C9DFCD8604ACB1E7F0998740F6E50E4F1CE967FE -6C62D1B6F0FD70107E5089FA35868EB214DE28E1E4D283FC7E6FCE63BDEE5B984B3E61E8D55E -E216ACD44E2730E35F68EB253F764CF919FFA49A176DAA35C414621D0292BC35818417F94B61 -2550CC200FD1FFB8645213315F1C55FF8ACA8D4B2FA245710ECA951A9B05771313F3BF8652B4 -D10EB4A46AB83BA01240CAAC4123AA3BC5C1ABCEA8D73EF4DC906DD879B87AFFA69D21DFAF9A -5C72BC0DFF0CCE5E3C05B0C4EC166D50FBB82198534055F6F29CBBA63B5FD0D5E23009C9197E -9FE84E440B5BAC980CFF660DB31722E1E5A0EACBF845D02C0B4527D58AE2594E77B9B07357C9 -F9837C53D094339AC2F97F9F4E2F33D2ECBBA45242C1233F2A1995F942191AF893066906B813 -EA85D0222488092F2E9408C705FB836E5E0F82C3BE9AD69AB3DBF091F9D6A34A1DCD7A1BDB11 -457100D630E6AE26CCF70F12870A1A43113D0D30DA5AEF96675C0E7497747CA5929C76487ED4 -6A6151C16FE6E5B3190CA9917AE8820A939B774687009B135E9C59FAF71C8D891E0D12CB18EC -B7A68F10EE0A2A40731C9D16C8503B507E59A12BD61E4180E754D33DFADCB1BBD8062E69BB0D -43A1842C90B56DEE3670CA5C70619DDB217E685A85DC38D23A285434C051DB426E2E3145A5AB -6E63176B6BAA8D1C52AE12B19F3FA06203E95729297C05474F453B0B6127545AEA57F42C7010 -C343ACD46D28CBEC5D33B2879D23778360E12C96F0F247CBCF777AA053E6B4895A74B3440B45 -B1D02CC55C347C211ACA9CBE2956FE297C9964D96BB12C6125B36CA9AD3F078E574EEB5B7B34 -9CEA73B4016833EB155792DD79078C0036223133ED3C0C04D563E7CAD2DCD1E50FAE169725EE -D5BE6891920AC2A4B0D6CCA87E100796E30BABE0A2130DDB58A227BC20513C09D743E635733B -E09C6F880A6B6252B5E06CC87F5EA618D144E362D06FC5C19A30E2DB79CB59477F39D6E8A44E -69CAFDE299A3A5BE9CBD28F5F94486475CE927BD18C3AC001FA72146AA72F777AF3BB23EDCC7 -C7294AE153CDCF88BDF2B50D4447526972D7F88BCF3F41DECD28F64590084C2D813EF348B4AF -1F3348208DA9DAA7719450A6EAB2042FBFC94A92D64A044DD51C6937C6A463E6FEDAA33323B5 -5F8381C82E8CBFEB5A12FE7C68AFC059C10B0E2D7759DBB958D5E8460B31467992FCEBCB3B23 -D54B530E3CA0FED52545E73A130AEA642AA483B459BAD1A7DEBA3A16B757A444B87FFAC0186C -768C5AACF5A635474F8325E0F1DABD3F3B8F5B40EC27B7ED3E03DF1E0D95460FA8B6463A53DA -2DD706FEF5D8423F4DEBD90D14A6F48A73EBF07FC349CEBD323D3297E2440A16D5D1CD32B876 -801E30493B0D4FD6BA795039D4CDCB8A61DF9A55B0F0041AE132B18DBC983D4188EDD62ACC77 -9CCC6FEA7442EEEA2B6C6D7F5EACE7FD316A114B24A158247F1D3202838427AC05ECA289A495 -73B4BDCCFA3C580E1CDCC72ED15A1899AE22F4A267221C87FE764968A8B3390A020C4D4B5852 -790B65879902ED633F7BEE0DBC0E751FCD129CC1D0235781E6B94E8292991552DD115EFEF587 -08B3FA441E12306369999AE03112782C4D230ECF8171D7E854FF01BCFE12BF2E261C6B0B2E5A -4F39B523D369D710CE5DE113F78F70339EFFB337A415FD9A6C3E9BDE77DEC47B78E321AE0655 -648A57C0FDFC642732D2DB3B70EDFE4B6EE52537E67FBA29CA82EE6053B67DDD5CE9F52C4771 -E082AC91B3EC6F76D7ED4987982C47F3258DB784232C6CE9BE5A8154209D97E48A78E54719FA -A732ECDA1070DF39479B46553A8A85B8F34AFE8C720D3E22BCA983867BB4876CF152F1DD50F5 -80D4407CC172FBF60B16C40EC89C3D62E679AFB6F25E72387452E613F3083033F1D797CDDC6B -693EB426284978C3338394341F84F2C26B39AA2A058167DE86D4B8C221F15C8DA44210E5EAFF -05C920C58E7FBF074CD98A29EB04B66AC85B60F2FC1AB5FD7368EF384FCC71275EA8A74E9598 -6E0D3443F6A1A8EF5ECA8F8C8100C8BEB78E910827E54E45EB531496D7D85B1634F18C172E86 -BB39411572495D283BD248C24D638946D913513E7F6DEDBA40542EEA050AA57DF7196C45209E -7FDA91259444849C0E6F0640A8C1BAA6F0814A940A270110B6320B3743A105BB19A98DCE26E0 -295FBE34BFA7F4C4794F314B6AA65BB4FB132EC739896F767A9E685A99ABAB3D99BCAB20A66F -EF71DCD9025A58310546C7694902AD2B7B903159EDDCCF522A8E9F34B157AE94F8BD83F84B89 -361727D9E46108E52042119259C3257FB493EEB3971987DD066E1813B4C96F351AE4C1CA02DA -9950B110D156E34BDC21788C729E8DD557EDAA32580DFB85C3F03BD90039CA2A4E3EEDD1A73F -1D33213E858FE3422D70F9E65FBEDF026965AAEED034DC2DD6D7CA0F8A0DDD025D7A1A443004 -92CA1038FEA46B55BFC72182199F48CF4BF266E0F1FD98058443A7225DCA03F819C1057D826A -F333E27B9F79D747EFAACB6EB0086B85B15EBFF264CA8ABA081FA2CADC890A8EBB1A1C40CF8F -7FAF704DCA0F35ABFB0B7EE930447D8037B8A1E4F4F34E0DC4415F21AF5F32C69484C387AA6C -A8C64C79480E4CFA266AFC2DACBF60E8C80B810E6728111DA9EDE90505949E7DEAF1D68BDA4C -60A6653A5E3F912157622BA755BFD4070151D1FC049B385E1FABBA194125BE7FA65E536D3171 -1A53C7E9545179ADF722F49B8A80B23930921D8813CE6551E446C5CD19AF29654CB6B633227B -5E814FCBBB2678AAE68288F6C129209799FE1A1894A3767311499B75282B8F372A75CB4432CC -7385CC173F8CB5741C87FD1A6BFC7A46E6C7AEF33086981E77C729E8B494151F417B13172C31 -5555EFE88A19727D257ECD1D865FEFDE5C30D8187F41762E56A1465912EF9F11B65956F0FB49 -CA58842E5E6F90041A45EA08B63395F4264D3403BA646AC2C9DF50BBC70B2CCB0D7DDBD8808F -A44BB6D209E1C8D03C7E8EE1AF6DE46BC67A658A4C8FEFBD53455B7186AC969819C7F9550EEA -03E928E5739E7DAB5AC60A6D1288FCF850D0213D3A6331F5453B7D6AFDEF8B2E6F065107FE22 -8C3F14D3F2B83BC37AD66659A370C782E417943DD181EBC704AD3B3735BE2990E987923A5D2A -A845EABBF89E293E79E52E04CB020B87BB13D0DC1902B31DF043274747FB379A95E99DFB1446 -816DDA08531470CAACF51D89D14E8BABBF8C214FC5692FD0368050A112F9C04DA0E66A6BC119 -CED605DFE44B32B15533F951E156FFE207E7FD0CB4BB3BFD913DCF0DF623168AE80D7C8E0B43 -1CFC3F6AD43A3F7C10BE92FE50CE600989F96CF0B07DEE41FBD867829A964FC68D93CD64B541 -7E0F78C07D4C45FC0921AE68643C046F15CF303749A431A54FD5FE9D92E20F4E67A8F52C3C6C -1D89FD42897AACB5E2AA767EBEE96602880217AC85E742D86A374E91591514FD8E896CF03C93 -AD9ACAB5A4C4181948AD55147C678BCEA638AE14B99349EFEEB133047DB319E92EC8D0E34E0A -A81CE18D836444696BF695FCE222C786943D6FEEB0BA597DB16F1AC88FA94D910A6383AF98D7 -B3C5E456F54CCF4CAF40CF006923C7ECFC8FDDA382335091B6AC3224A24D253842C1CAC0F095 -C29B50C7B54812C356FD3C4FDDBA04FA208F0DFFB8665091BB4D83561D3F55087144A1C48A46 -A462B5AE1DBB58686F30E0EA096061F4F847625C4B863FEF1C6EF94DCA0B0214C568FBB6CE44 -0976BA7E335B0F89A051DBC6D89DFD29CF03936D98734FCAF2199EB42F19A03EEDC1F488087D -1BD23749054490DAC495B49C713C16DED23B46FD1E09627D643C09635447D721BDA302D33B51 -B1F699D68AF8F8401C3B5FA0BAAF0B6B3F6BB81F7F7B1E29B52B05CE2DAED106578BF8905DC6 -7DD2DD4CC86D8E942EF9874093D2CA1005009C4B1EBA7080A903CC4192686094363B51771392 -20C44708B28C1B88CE0334C22BDC0EFD0BC9532A66EA145A82A048312D239E8B0FBEB754B8D7 -9370A37EC6D6E2F2A4961BFD9936DE7506646BF179C99192BA726D932405D928EEDF44D7F442 -10BD7F473E66BFA171EB9FF7F026F1F7EE4C5F8CBD45E2ABE4247055507E8F0B79CCB29BD84A -18CDA1E47326ACFF70FB040E050A44032A24A0E3881A0794E7FCB96ED9C242A255317118FBDF -8CC7285BA850FC827894A161D94E2DF66F0E92A2808C3372B8787F424CB026143C2D67025E7E -2827DBE93BA9F0418603CCDAD222AFA60A373426CC368DA895E6AE02120A89D8B4C27C6D2BB9 -6CA77CDC53A30F25F0E9B0B2F86AFA951DA8312BC7B70174F72BBF901C061BF624D4B89542E5 -6CFA6027585A161D1D55F5BD71AE788B1D80B9FD8B36E7F827452F15A696ED71B5384B53D714 -EC2AF7DEB76B592421C8B054A3B4A7B71A629095BBD2528B452C34EA18D4F5E62E3F23EC2736 -FBD8F56D675615950BDDF514A50FE79ACA87B5A356EDCF1A046107FB45CD1C05A78D8F13DB86 -B21409430EDA657804A84CEE84BBFCBC6FF70A0F77AF3B32384BFDCB1E274412A57F85A9027D -B1C95DF2F508FD37CCCA2DB15AD9C6C4378DB67E3D5F46578155E7651EBACD7A3D7D91ECD8E7 -6910A0FD237060CAE397996E0EC0FF999704BD039ABA57AB3BFF45AF8C368E15BB318FE32B79 -7B2DD86D4D4C6355F919BACDD843E7A52F2C2AB5CA4B481DAE169843975F64AF39399AD7FAA1 -369CD5F3180EA406780C354D5C4BE4D0ECA8078C7321364BEE230CF92E9387509307E3E999EA -307B0B5A1EC9E390DBC2E8A9CC0BE4E43C3D9287A2D8C5EBED4D43DFB6A2F197595C6E1B63D9 -A188961A3AE9EDB25C0CAC74D5E14F3C6E92FB4B15EEEA97B26C087CC76E26F8107E25CD252F -856BBCA6F171FE3DCA9F54D5BE75BA52D06D8B25CCE59E7433552CCEF419876DC48F78928E6B -DCA4511EBC2F183B57C3F087DFC5920917437D883A780C5251C98940839B599250ACBBA47184 -73559F6E650985A79E79B67E55E030201386E6332BC80D0FC899C6CF8ED8BC05CB08F0891EF8 -7509DD7DFF71B6BBF3AE032FF9353151AF25D150F72948F8979A7D9BC83E03D96216A4FABB34 -CCC7F8949CDCC8DBC05851B1501C6F15344BF9CAB702FCA2386236C92B726040E99B0C9D1C41 -13C42430FA0236648F12089D1E221A839FC71E270FAD406991560FB54C03E57212C55B82E906 -406F7AE3D491D91365E0B908BFFF6460D732F96F9CD4665CC3A62A70269403F3C9E24A5512EA -F1DDCB5E8887E9922EC14240FDAA7FAC695DE79BF81AE7ACD54A82B2E3837F0B3B206D8D9778 -29DF7C4C5700DD0C8563B43C488E832AB1849F87C889F243CE8FD1917EB7A8B094416802C702 -0117407AC6A0DDA1E7BA25FB0BDEA89A95175F70D6382204F62A90EBF2F3A0E289670DFE66ED -B6AE154EAD62A2D0AD18459B1A7126E507F846B62357FABF29AD26AED4C042C871240F50433F -DE521977C7EC462CB3464B931982C162A8E7C2ED2F67D54D851A4B54E537A99C4F195D6F202D -64726913F58549588FE66C980452198C2656DD06EEA65809C0A7BE1A173BFDA5A393F5B6B2E6 -3FDB344E76EAEC527B94C0BECB0C9FB0FD5A843F29B6AB4377A16ADAE3770D8DFF49E7C509B1 -47C5003C1F651E4D51CD8A09A662E854FAC594DFCE49409B4E28C57B0A5F3EA33F661FD82B18 -6D31DFEAA7B6D0AFC98AA009138486A5756F0D19110188F6D04234403D036EBAC56661CF9586 -96E89827C5DD2CD75ADC14178B61206A6223A2A2AE16ABB3316D81000A10FDDB56CFED5533EE -ED22B2C3EFD6A7CA75CB4D148D28A13CFEA878425B95F84933529D86DD1177851EA84C1BD16C -455D02C4EF756EEAE9B5DC45FF29E114970AFD0C23D47B06540F90FA37A5FE08CA865DB832FF -DCEB84C1F96AD8BCDB93A146F75D3DBD66DDC34D306F970535F97EB6C7AFF7DA3F72E90AEABD -13EB35ABA65634EDD561AAA30326324DB85B6394D7BBE8FF5C3BF7B66A064D12A579501B745C -78DAD35FB4DE771CF3DC745CD0D08819F1415E2C93377E1F9036B6F3B66A2A739697FEB9055D -A896954E4C35579C68CA48E1D070A059331AC8D62954B18A4B14D70599BBC5AD526899AB64C2 -811742C2829376B77885ECBE17379DD5E8D95B12717407F6AE390E3775B4B518058810A29246 -154321ED593F4FF6913A26495342A395CB6FCF8FD13C0240D7F1D8C3AA632313CA3EA9DE476A -D9FE8AFE442395247FA9A8B6872B2E9A361B325DEAA5D9BF4B7A8E2603DC86C3384E5706D82C -96EC542E69A9B868D59727DFFDA8AD7756B56AE09AC6D5D097292255B16385C2AF5B441316BC -D6F905E35AD23411F4E0B0CE5C8F2A6DCEC3278C7302A34A4F508EDE31080826619D852A13AB -07C82DE14064BBB8CF4575F3204F64DD5B198205A63EFE9BB1610BE64410F7E83906A5DC5A79 -103EB40152E381853C0FF8EA856DF4952E9093B86C0A23B9B1EB1D03EE0BCC8AD659D34FEC9A -0E717AF76F86413AEB67620BAB1AD021E028A888FED2C65F344D7B2C59132D7FC24BC93594C9 -5EB2FE7E18DC9D95C43EC777B792DA99B620AD8E1F56BD5C5003FB0AB2F989EF384F3293C645 -3F88503E9E33566CB63825D302F1062C5058FB06C8B776474515E48920B616A2F6891B4DA656 -0FF82EFAA033935DDD1671D5D185AB1B3ED1351BE1D9FEBB6B036A1F950DF74478AD7CC8C06A -25F910F3299405783F73760876AC5EE2002BB16552E4975121271791E6C7F3DFBB43F75A8A8A -029943B1048985E8DA08C32BE1F2A1D3669E3A8BE1702351165AA8BF9B4B8D87705B9305B47C -7F11B878C6DF2D74541094B7D2DB2C726B805E45EA684630513B44B4F23D1920D3AEF26271AC -44EF958FCA4CDA2A0DDC5D8FAFA2B680FF56609CB24BB85A07DB06BF2865C58437566FFA76C8 -64948969C533EB8582D902ED9C262210F279EB2C91B8E30D21750919E8B3A27BC6025006DB84 -FDCCF25A5D04258C07D01964331FA40B0A16E8956F86282A9690E474C131808638A53337D81D -3D986675969BE144217DF36CE8679EC3E2CE1ADD387849388F8D0F87A3D3B75B05570F4130D5 -2BA0C29171B40EC812956899B0EF17D5E48DD446A2BC199A8A7707B3461BBF43B4A115F0FBEE -9BD1EB501C31CE6FEE75F94EC47A9AC8D856E9FD79CBEE120CDBF038AA94EF340000EE1B7AE4 -4EC91BC504A03CB39DB5F23593905240F0D40606DF5E83C16D8ED4EAB9E086466A9545E95817 -56B789F348A60BA26B04AE37BC0486514F6952651C77047223D645CF42457BABD90869AB21C5 -350B59B65693203DBAE4EA97C5BC63712A89EB97A96785B0EF407FDFFF9874678E1976902703 -4547F423FDBE153B952C9AB720FB976296F5E42C18319C8B02E9F354DB91964486BEEED93189 -6BA398505351CC76E13A8D1AAFF5A918BEEAB7847DAF45D7FA24B50EF5D04DAF0A6DAF404EBA -4B7227D4387398525EFE0CA51765EF1BB37417BA1C979B6B6F6055B67017E1A693F1F0F009A9 -25B114CBA8C4CC7E275D6ED556F5B1E54CE6236BBE40A9AEE4A4D9124DE5CC1BE8E9DE450520 -58C520FA4DC0734F36277267A2D8C39ADE8C57328E54FB6EFBF89898A8A01879C89EA5076FF8 -5FCF7D8043CC175D95ECC411533B05C76A5EFDDFD1914D1F6F4295D67E8EA228B202009DC7BF -F50AF8920DBA766A32BE65CBE8BD4EABB1FB88EA8CD604E46FCC0B2A6DDA75183E5D18DA6F04 -75EE75342E9877EF3C64156570F1CFA3CAD2D92C950EC016AF79915050871310763AFDF7E7D8 -A7393F27D229B72471BFA9DFFAD4AAF03545436AB6DD6A1501C257829A8181E9A559AF43BBA7 -E03828EF2F43F58C584BF5F2330AFC143273D5BC78DB880968DD883F3F4EC1B4471EEC10BF52 -14CEB91E03193D92B492C860839F3F3D6F2EBC9D9B96E53EA5A134FF17A410E2765D8D454E29 -88159F4F62F1F3D95FFD4669E52FCE234F7D09BE4F16C0DBE40731E32F3E786C165C97DE5F4E -A848436392EF82A4798F4DE5FC724E17AA60DB29CC8D59E983F88EC0F5B2D27B2F85B4D16BCC -D23D77D94DD56B8FAD8EE51CC36A1F297A5541271AD37167F4136DE68EB812F5F9C7476164C3 -3B6EC3B1A9E86EF9F29CB6BDE7102D7D369C324A238DF049667D04DA55244976285AB75FB56B -D9B6E1876E7CF73A1F90F273ABEDC8F87E6058924DF0C84964415C56265F4370CEFB37B0EED3 -73921EE576C82D22196BC8989E58CCCA8D194CEE6B0239AE800417CE7C06CB77EEE59EF19F88 -DD7CEB9B3AD2F5078E44B0D2C622BBAAAB8CD6CD44B7A9965A42C53E429FAEC2A1411976560B -86B6BB97816406964BFF69CF9AD49C4C070D0AC4ABCE7BD96B69AE24B789FCCD35E7F6287F65 -163D2FBBA0B60F4B9E259814824C442A4CCA500F60A8885D74CB2DD114EDE8F5D54C42A85596 -A7CF202695822FFE070F4BD53FFDDA99E27685AB6DB7D5AB9424A1A24F7139DC7EC259E579E2 -34D8D6A7A3D378B0723E4A6F3181ABAD5C2B5C6388B969E9E629C5A26B4F160481110F514B37 -2DE50CD9B12ECB4FD1E7D1E3B719169E4254F2715199E35F58075ECA1B0FF5C38EE0EF4E5A89 -D41F1FDDB3F8B831D66486A194BBBD03AC09170393C6E03374035411C92445D516D991E512DF -5CE385FB0091CBE73AB999409A5DBC5534F47E3D4E718244AF1856E207EFACDFC6A66C55D3C9 -4B33B94939F19DD2DF1071E1DF14CC14BDA1ECCC239A15848155C8BCECAF055D94ED3AE010B5 -8B3FB937F5354926CD91EC04E85D5423A9E51A8C868BA6BB4123415506DA8A637E85ED095BF9 -8BA986FBF2F652BED6694C036982EA62E356EDFA18D3FA09466CF2D7B169DAE4BBA76A1F498C -87F74B29B479DF974532521E11E510C464A96E1E51E2ED0FF2B2CC39AE6E18367A0DF4C2B094 -F4C3BFBF3ED9AA6797A34521AC18598CFD23516CE8A346BDCD322CC9F61EFD7D3F8E5DB7FE61 -E4067C0CC5270D1A44C5560774AC8F952CD72449A35D6476F5B46C30A3AA50342697C8C9E0DB -273DF7CB241B475C317C7EA1747D430B7FB3C2D7510CE752A2DDFB8A0F217C81A3706D7D7789 -C902581EE401447CEDF62A1201AEBE9454CB343D29AAC22CD4CC1BFEAC2830FC8A137A22F7D7 -BFB8AF56DA0A3EB776BBA8D414DBEF258404F601199BD3D3B4FA7F24D4DF7E4C606394C4C7B8 -77BE623F5EA91E7CFACF7CCE7D46D99F597AA05FE90AA5FBBB3BFFA7DBEC7E2068B99433504E -1526460FABB2777EF78DDD239111BCF09E2968B1370916EB802F88B108A71DA282FC83A88587 -B490906EBED46D08586278EC3A34BB270A81639D361A339F7509B62D145D5CB95BEACEE10E8F -A6F01EA60C1D15471FB02B8ADDD8378AAE0C49ADA5346FEE1C053DD0BE95F9C588C5EBD743ED -19312E207A4E96ED1B432AF347EC51F90B0CD2E972D49E85AC2698721BFCD77E7173E0FA1123 -5C2B3FAF8F8A31CA82B5DE9468222F50069FC83E29DEC75FB6BBB685DB786135969619049FE2 -1994A59165F4BEE5FF15EF2F8BF9A1A8A639EFEA3C5E8C0E2040CF6B6B9902A4C74301A45694 -A62F0F714125CC9235155428690AE280217205CA0090A9A2D32CD36C3BB1CF2D1B7CB9870E79 -1463272E0222A8D87D62B424DEE2DF016ECE59376CFC1D0CE59240ECF6C7325CFFB9890B9958 -73DC55DB95B7D1316247A2B9AFC6B419090E443CDA1B99C7ED746CE7417E02C197B010E453B1 -D739EA58C7A4429BCC5CD23B9C9C6B72806275ECE098C872B8BE7D0BDEA0D6D751C61E1AE7BC -5D96A098F4AE68FEB7BE1F927EABD8B6E809D6996F7D4D8A4D1D5B673A8A844F775806C04B8C -429731BB70988CA192A48900A43A7DDD7DB9F9B08049A0FE79F6329FBD84ACE16301856A944E -C7C0F4F06A69191AFFB773D4EAFEA782A306FAB74CB9E602AB18EEB7984C9F550FF7656F8832 -D7D931BFC9ABC886C3B9D8ED460C2AB53A6C0B9CFB3B6E609824B875A2D4A2C3BDA5981FC667 -C2806FCDC30CB7559FE0C137B570F5B5FD6AFD2CF8B1B0B8A60E40C37661BE018B865260C856 -9B437B931D68B12EB0586D216CD3F1E6F1FDCA66F5E3031C0E8B43D8996518F7B9E2870B0B98 -E98DC37C9C0FC748D16BB024DBC47F9960B0CF659BBCEB266D8EC22D2492ED1E184F45E969A2 -73820C76A7F3105F1FA97DF50D1A77E0920A890F6AB64F63C57986EAB456429485788E6D233F -339B7EFCB5C51EA57ADCDF8FC3F637E839A9CE8B93BB54F07FE6ECF8B5074FE061D6A8BB136D -7055C1EDC24943A162E6003BA62DFAD6680C92727E27CDFF154DCC2911E3FF70F8FA41516CD4 -EA2FBE740194CB01B0ADC206AE3DB38366EA71C240A513B76638FFD07328565672AF18D1DEC7 -51956B3302AAD4585ABF4C76402C1705B5FB9BEF95AFD8B3D7D89EFA81D459954C5FBA67026E -CA91231A920433CE310304F0D05A4DE2992DFBE002F317532FD8F661F6D8AD1288D01291DD46 -FB823702510DC8417ADFB84268C14DF8F994739E8158E2C4DBDF87BB220B7836B78737723E3B -1A59C8305C170F158632C17F955367ED3E375E93C19C0448C96DEA859DE0D60FEED6C93673D8 -A7D9819C0F6AE093C3F1C163B8103B4EB4840303EB703EB5ADEE8F0B76334EAD31F9CBAA5013 -FB83B0FA477DCDEFE679E624A133760166867D92D08FC6D7268F74BC0F6B96C2741469DD0968 -AF974F46C9DE3592A7692B4283465060000C2C8B5DF81BD3F958F5DEE861A6A0FB598A15F631 -99C0C1D347F51626A3BD5B4949CFA93C6972DFE5106FB0769E787AA270A0AD6E5D6124218CC7 -14A35F14A6276A6B0EEACF640841CACE187BB8549866F9DE97A0F26483CBE6142747AC006C2D -F37E065698B973662BA6C33681AC7CEC682DF1618FFF8F9343322D4A021E52D31CF867F73822 -39D713EAECA1757D1E55E6E4EAE958DDFEE36213A6E8B9FD8E64F3A7F480E3A6DAE6964DB687 -028CB4E646B3FA5F8134BF58807B53FC6AD5772DEE00F273E0DD044A7D1B6C5334E79D168237 -E543DCEAD464F29AED824314C1DCA05F91A286827E9907BD7DC89660EB5AE0EE2B29E14E2D6A -687480E147C0689023ECA85A5FB21BE8A42DF42637650DC8C406583E27E5662692E82150B876 -2ADDD4A0532F9A20E7AD30C45A1F9BFDF47E63B2FA3DA6FE717DF4AA6EC0D9ADAF5E36331DB8 -0F354E97055DBC75944D78BD0213B64A12A340BE712A6E59D587D0E137ABE3E336CDEA7FD8C3 -1C08A194D862C691595FD75FB91A2E24DF1D765A3067E87932A13C8B8E6D82545BE008D493DC -D2A842447BAEAEE21DC88BBEF21DC00290790D22F24EB4AD9E658F3FDEA128B2AFE15ED8DE46 -29237E52EBC506BD2A8BB3F89DDD4B009BD91097042FFB50AC81F940BC376A4A8B5F85E27CF7 -F81F4313836445F89CF30DB6E56DAFDA3798CA318F1D47D1A0F4DB5D97F8438E2A4ABF9949CD -FC82479A7852765D5EE26C35AC024D905DC1118EF52DFE408D6E3E23ABC05F3A447E57203230 -E1A5C8B959DD9415B977CC497D1B83BBC5883BFB2658B74D749818C4EF00D9B80491E7128CC1 -C0A7ECBAFECB9761A53BE09A61CA103BA6B4C028963D48CCE0B1C6934C11F7B26F9D7347A6FA -C3E79AFB7B7FF1F1968B5659A52ED7604152B05E322C3AA607D70BB08958B26258960848F31F -5238C1666CE4C242AF0EDE656CDF7EA5A51AF695887D3F910478D6D01A306E256A9DE3CAEFE5 -E72EFE97B5B3FB5734BE358979B6C254FA5F95F8AE4753ABA9C51661673F830EFE4ED2166D14 -DAC1FF900ADDAD9790DBEA1F0CAA32C4067D506055CACE04BC08FF4F28A2374D2A6543CC61FF -94DB2B117932EFECA2F7273010C74CDAA904F977B20848669738E7C6E4B118CC66BA04B5EBEB -44485D599401D490EAD786E54E48800012B050989EEE98525A6504620BE11ECD10803E09BBD9 -E5AB12F3116697CD3225DDC2F78A65AF0897A6A8B3BD2285498CB1C258E0783434B848D54F9E -8FC23720F1F553F0A2AF7368ECE72645AB1F26C1D67599D5B9EF81D7832340F808262A0FC065 -D56EB9832083C8782526352B0F12AA980418EE80530368384E09A5BFFE7E11AAE55959A33B35 -32FEF0630402FD6CFDEB41E6BBEDEF549A0451CDAF54A82AFD81A233FD74D8247FFF8D3F65E6 -17D1150D056F56F3863DDEB7C1F79C77D8EF146464F14E8CCEBB45EC351B4C88456E07292F24 -601B0F8B84993A7EC4BA84F6A2E12107D378EF8966ADB2BC466F06C858D149EE5680C5D4506E -F4481650CAF23E6BE1CF801E986A53E2A163EA7F4654053414FEBBD572FBA2886719EA897AEC -DDB8B8D146DFB05BCD602A7C075D98441FA40A6B018F59C13977ECE861FC009985DEBD656312 -2E6C568146189DFE9E234AECE70AC717A3A9983B1CB5D73F725EB73A42959638007E41E5C494 -1CC1B2B9B3DA7E0AB4864E51296EC63ADC2D697B0D03746BEECD737816BE03E155BAF7E6A298 -61EA62B04BA67338AE4ADF31DF343EA2E50A806BB75E476A3E922D817CF9A9DE6B9D7B20C6CD -2F05F8C0FA974DE44B45F66F42A54C4B360396EA28BC88F8D24AB713394893F54114F5BF386D -6D39942054E8D000A68D19E166F3D298FD0F153939FEBF358B01EE48B2F0C16793E874F07491 -AB57FD40AA6C570BB69F8D5FD0CDB4B3E49E42E7B668D97173439EC3B56A96E8CAAEF05D5654 -C23D9F2C2436D9456661F7C52EFD72C7C75E649328F007336B73F3E7471A869F6469095CD43A -A4AA726DCCB7CC3DA0E1C1868F0341CCBB0B2716FE2302392F82B70DF344BDB92383B9F078A7 -3FE2CB884F348DD1B092AB4747CD4F98BDA9CC10B62DB553CA065E1335EF16C5FB88FB95A24E -8E4BBAB75F5BD6DEEE2EDBA30FE74F787433EBB4D21AB62BACDD2D2D721754CB71885A0B5625 -4412AD3A777EE65C32D189D57DDE369A275AA54A827A85EBCA5D7DF155085F3807E7D5123C3B -A5C55DCB3B2940F35DA42BD87DFEB6C6920C9DFDD0C3D6DAF2DD5C0C7F60E89B8D750959D5C3 -55E51188B68932687E08CE5D0B8130D1B7828D8E6416F5510D2C64B429BF84D04C60E6CB90E9 -08B865117A73484038F0353A42C065C6744D50F7E2753A8B0ADE378AFE30BD4A1E8EC10C9395 -6DCD53A46D01A90080BAC4EB5539C94E3A54F0925031E3F7353736830CAD674EA7CBE4B272D6 -18BB26EAE33CF104E12BFA3A0B18E8D5A48499989ECCDB97C6C4155CB9CC7661DB8F654AA60D -6452FD84F310772C872339395788F3C0B6F4C84A33F5D6465CCA86408A8E8E43A6BAC1D35289 -4552C68B3C7935131888857631A5ABE53CBFACA8CE5DD394045EE338289001937949D399CD95 -84CD21B823E409CF71D8D262F94CEB083092B795D29361F8253C260F98CBD2B76B1B61566F24 -0FA921CBEF76E288195E6BCDDF2E72C86155E0051C1C33829F4B25F411ABE18600BA0613338E -0C3EED39B953834AF0BE0052EFB9DB642DFCF50DB36B17B8592DA69FE65C80E9781C827A261F -E632CCCF5C82109F4F7B830BA855D5D044F55A1348E3E7EC031A2D15BA9ACF8FD3233AE23986 -60B25FA40B651D5F92994238AC7881B5D40EF515D115A598BCBEDB0C3D6CF429982E24D4E387 -3D2DD75B5220485542FC098F6B3844CAC7EF6C270C7F0E7D6D7BDDCE8D6E959FEA55EE78B508 -0B7A8811395131C07E4225DE802F85E3C8B2C74E88478913AD219DAD926460743FC9E424834D -DB5983489999401140D3C3428FD2628D1BBEEF6D7C1420E0E441F21C579FEE0272ED3C5BD822 -32477A2F1A835F3AAF8142339798A0AA1B5C2336ACA35BCFB9EA395B79E1D53353E13E7F5EA8 -CF57B77004B37F242F3F89A2C4F12DB1D237180BD26499982091CA420F5F7AB7E7ED91CB4323 -6F5F84BCAB8F53FEAFE59E0F3FB6E3F7C44BF7D1BD43D8345E59A8F84006A2A065ED66933E4B -7C1F14BF7D35EBAD19A4BD2D079F7ECB767BDD70BF8ACC63A87768792194F403E91B0CEBCF79 -8B4CDCA932B824F3584578446C0582E341AC4CC06AFE8F34089A406F189CFF1AF8DE5163D7F9 -EF861B97B45A1213D32BE8A1A136D1D4C5CB3C52248A15C8B97A8B38B63744B92E56F1E55378 -050DFE782FB2C99A67DE6ACC69AAB94AECA8C9FD69DCBDD576C6E55D8C7DBD0A7A8DA04C6A8B -E337CF8C4D5B37EDC8DEF2EA2EEA084B33871D76BAB668FB4DEA746C01B0E07369DE54A39F0B -C566B932EF33DA716EBDFD42E548AB5540A9860A674EF49460E87525A10F2879AB33978C9253 -3485EBC79BE92E57209A3ED8A7ADDF084FEA0F936CB01C5C248CE4E6B06EBB7C06AD49FB5C6F -B487C8D19690F87709D0096391F3E6742100BA0F49F13ED4377E6F608E219D509468F1CADF2D -AF492EFC18A163563A472D2381DEA09B8BBBE5B2CBF4CD04D70AE62B7DA2B81129DB561ACA36 -12C18D11ACD26B4BA1A6DD46A8A88C2E762DEECE2581C6C6AC8BF9A3A3B04FF2DCD689DFC9EB -4F3984D736FB3FDD287A9EC92FB49B1DC0C7FAF4A7B429F015C218AB5D22666D4DC7765920CD -74A50000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 - -cleartomark -{restore}if - - -%%EndFont -%%BeginFont: CMSY9 -%!PS-AdobeFont-1.0: CMSY9 003.002 -%%Title: CMSY9 -%Version: 003.002 -%%CreationDate: Mon Jul 13 16:17:00 2009 -%%Creator: David M. Jones -%Copyright: Copyright (c) 1997, 2009 American Mathematical Society -%Copyright: (), with Reserved Font Name CMSY9. -% This Font Software is licensed under the SIL Open Font License, Version 1.1. -% This license is in the accompanying file OFL.txt, and is also -% available with a FAQ at: http://scripts.sil.org/OFL. -%%EndComments - -FontDirectory/CMSY9 known{/CMSY9 findfont dup/UniqueID known{dup -/UniqueID get 5096650 eq exch/FontType get 1 eq and}{pop false}ifelse -{save true}{false}ifelse}{false}ifelse -11 dict begin -/FontType 1 def -/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def -/FontName /CMSY9 def -/FontBBox {-29 -958 1146 777 }readonly def -/UniqueID 5096650 def -/PaintType 0 def -/FontInfo 9 dict dup begin - /version (003.002) readonly def - /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMSY9.) readonly def - /FullName (CMSY9) readonly def - /FamilyName (Computer Modern) readonly def - /Weight (Medium) readonly def - /ItalicAngle -14.04 def - /isFixedPitch false def - /UnderlinePosition -100 def - /UnderlineThickness 50 def -end readonly def -/Encoding 256 array - 0 1 255 { 1 index exch /.notdef put} for -dup 0 /minus put -dup 1 /periodcentered put -dup 2 /multiply put -dup 3 /asteriskmath put -dup 4 /divide put -dup 5 /diamondmath put -dup 6 /plusminus put -dup 7 /minusplus put -dup 8 /circleplus put -dup 9 /circleminus put -dup 10 /circlemultiply put -dup 11 /circledivide put -dup 12 /circledot put -dup 13 /circlecopyrt put -dup 14 /openbullet put -dup 15 /bullet put -dup 16 /equivasymptotic put -dup 17 /equivalence put -dup 18 /reflexsubset put -dup 19 /reflexsuperset put -dup 20 /lessequal put -dup 21 /greaterequal put -dup 22 /precedesequal put -dup 23 /followsequal put -dup 24 /similar put -dup 25 /approxequal put -dup 26 /propersubset put -dup 27 /propersuperset put -dup 28 /lessmuch put -dup 29 /greatermuch put -dup 30 /precedes put -dup 31 /follows put -dup 32 /arrowleft put -dup 33 /arrowright put -dup 34 /arrowup put -dup 35 /arrowdown put -dup 36 /arrowboth put -dup 37 /arrownortheast put -dup 38 /arrowsoutheast put -dup 39 /similarequal put -dup 40 /arrowdblleft put -dup 41 /arrowdblright put -dup 42 /arrowdblup put -dup 43 /arrowdbldown put -dup 44 /arrowdblboth put -dup 45 /arrownorthwest put -dup 46 /arrowsouthwest put -dup 47 /proportional put -dup 48 /prime put -dup 49 /infinity put -dup 50 /element put -dup 51 /owner put -dup 52 /triangle put -dup 53 /triangleinv put -dup 54 /negationslash put -dup 55 /mapsto put -dup 56 /universal put -dup 57 /existential put -dup 58 /logicalnot put -dup 59 /emptyset put -dup 60 /Rfractur put -dup 61 /Ifractur put -dup 62 /latticetop put -dup 63 /perpendicular put -dup 64 /aleph put -dup 65 /A put -dup 66 /B put -dup 67 /C put -dup 68 /D put -dup 69 /E put -dup 70 /F put -dup 71 /G put -dup 72 /H put -dup 73 /I put -dup 74 /J put -dup 75 /K put -dup 76 /L put -dup 77 /M put -dup 78 /N put -dup 79 /O put -dup 80 /P put -dup 81 /Q put -dup 82 /R put -dup 83 /S put -dup 84 /T put -dup 85 /U put -dup 86 /V put -dup 87 /W put -dup 88 /X put -dup 89 /Y put -dup 90 /Z put -dup 91 /union put -dup 92 /intersection put -dup 93 /unionmulti put -dup 94 /logicaland put -dup 95 /logicalor put -dup 96 /turnstileleft put -dup 97 /turnstileright put -dup 98 /floorleft put -dup 99 /floorright put -dup 100 /ceilingleft put -dup 101 /ceilingright put -dup 102 /braceleft put -dup 103 /braceright put -dup 104 /angbracketleft put -dup 105 /angbracketright put -dup 106 /bar put -dup 107 /bardbl put -dup 108 /arrowbothv put -dup 109 /arrowdblbothv put -dup 110 /backslash put -dup 111 /wreathproduct put -dup 112 /radical put -dup 113 /coproduct put -dup 114 /nabla put -dup 115 /integral put -dup 116 /unionsq put -dup 117 /intersectionsq put -dup 118 /subsetsqequal put -dup 119 /supersetsqequal put -dup 120 /section put -dup 121 /dagger put -dup 122 /daggerdbl put -dup 123 /paragraph put -dup 124 /club put -dup 125 /diamond put -dup 126 /heart put -dup 127 /spade put -dup 128 /arrowleft put -dup 160 /space put -dup 161 /minus put -dup 162 /periodcentered put -dup 163 /multiply put -dup 164 /asteriskmath put -dup 165 /divide put -dup 166 /diamondmath put -dup 167 /plusminus put -dup 168 /minusplus put -dup 169 /circleplus put -dup 170 /circleminus put -dup 173 /circlemultiply put -dup 174 /circledivide put -dup 175 /circledot put -dup 176 /circlecopyrt put -dup 177 /openbullet put -dup 178 /bullet put -dup 179 /equivasymptotic put -dup 180 /equivalence put -dup 181 /reflexsubset put -dup 182 /reflexsuperset put -dup 183 /lessequal put -dup 184 /greaterequal put -dup 185 /precedesequal put -dup 186 /followsequal put -dup 187 /similar put -dup 188 /approxequal put -dup 189 /propersubset put -dup 190 /propersuperset put -dup 191 /lessmuch put -dup 192 /greatermuch put -dup 193 /precedes put -dup 194 /follows put -dup 195 /arrowleft put -dup 196 /spade put -readonly def -currentdict end -currentfile eexec - -D9D66F633B846AB284BCF8B0411B772DE5CD06DFE1BE899059C588357426D7A07B684C079A47 -D271426064AD18CB9750D8A986D1D67C1B2AEEF8CE785CC19C81DE96489F740045C5E342F02D -A1C9F9F3C167651E646F1A67CF379789E311EF91511D0F605B045B279357D6FC8537C233E7AE -E6A4FDBE73E75A39EB206D20A6F61021961B748D419EBEEB028B592124E174CA595C108E1272 -5B9875544955CFFD028B698EF742BC8C19F979E35B8E99CADDDDC89CC6C59733F2A24BC3AF36 -AD861319147A4A219ECB92D0D9F6228B51A97C29547000FCC8A580F0834F28818EBFF29D3B2C -7C9AFD969BA6D3B7429E222AF78F6DE00CE2C8008A5966422936DC5ADE549B458EB41026E123 -FE75E703E046F665B7DC78298A145548DEF8D579E00839279A5208EAF898A357DF3FD9CE4450 -811F20B454D86B2947BEBB11EABFC62B187B12458E022CDBAA6EDF4A89D79300F635D8CD973E -35FA8D9B1240B3D30D724F30444BDF0B51ABA15A181A3196A6CDF9CD1D38D64C83E745A76744 -6641991E23EAE067609DC2E84B44D923CC98407812813D5AEF0EA21E560B31BD77D735BDE35E -AA564A570DD3294C703E16BB9F251D54407269C8B23DEAD063018D6EB7484204A415AAC812CA -45E07362AE3B4D95369FEBC1D3F23C8D0BFA911C20C74F3BD87FDAACDA5C262EC40DB3861645 -A99EC1EBDF2A78CF05B6E0BE7CED20BFB1E557ED36F022835BF348406B053C8BA2B8DAFB0608 -BFCE3F7F34310F869E90A175B6AFC19884C613A63B98D3622BDD39FFDC9C866F0E19BCB0A2A9 -B1169B338759DAED5FFC9B5F278A117BE79AD559A2A6B4F31BD4520124C824264A8FA4FAB996 -3C44C9446B43534E1275A7C35A6A0BAFFD7419FCC4012372A910B90D63C23FA1B84CC77E5CD0 -B7AE026DCA6FF11EC87C107C7A67D8D952D6CEA0875B62D0B74E7882C11779F84262663384AA -4C18E652DE065BD23851B335A48632F7F21265836578F38551A6D34BB55513C32F5F3369D3D0 -DA5015A899198A0E523E552A75E742838E59E8D205A8361A94D5411FD43E7BDF981ED92F3135 -32B77E642836E252E6D870D7C262E2D6433AAF7B04DE027D0FD2E3C2548706B87C056F74F432 -4C1BF6CF0A0EEF0932E57FBD764579C480B92CEA1BB419F5EDE8B2CD134972840153B7164E9E -9BCB17D5D9B122B404AF56C5822207ADD58284B1DD5203F2C23FB86FEF3241EB6A0F3324D8FE -486E28F35102009F1CA4C939EC6F23737F11ABB6F7388795DC5FAD93C47973A9A22C2799E9EB -DF498B3D9AA20DC709C26AFA7AB541E85B3C919E8DF26BCDC6654F08CCE38EAB921CD3128775 -3F2EEB8C493007F395439978F05023A1189798C9F106769C5389A427B1104416C803E9329721 -F45D89E04819C7BB20FBFD28B7E4BD2E08EB9DBDA85FB3D8891C1B10EF2088BDEC02A1F8EB26 -2854051EE6BF550957900B9D4C8579E73F74C53C012DA5BD62FBF018AA21ABF7CEAA4FB9D6C5 -EE0218445D17C56E9C1178C62C471C80EB5613950000A7AF1478D84A4E503C2DD07211D80EE8 -98324BD423965DCAC7DEE512C7F1237525E4952EE4BBB35FCE1C37EE1AAFE372CAC60C0DFE8C -4849163C6B0C3C6E0D8992C903FF9D7C484A2E089B133751BAF5318B26DDE39A76F29D857412 -C94D902A448CDB1B4167AD4064277627700015EC574ABA850A42A42C3AA075E1FC122E0461AB -6B8A986731E255C67911BFF4B7AD48A5BE02A50EC3BE11F2AF33C851D1D299BACD2574412F2E -53EC12B6A09D5B35E044DE3697023E69F0453CAD0FADA3D0F8444D8586F08987E118750D2901 -90D658EA84E4B089C9F4C536686BB3E0DC5F807DD6E4C97EE5134894AF53B50FA1911F933330 -28C2295049671DE8B9D3BE68D45FE73B74FFFEAF6BB2F8797A86E8BBBB238B1762A7DA845C85 -A1173A94DE300FE905DE09420F2FD3B63909BB2B9692D0B16D69B72C9E4BF3871C75D63A98DD -FDB54DE19CFDF85DE8F0BA4741F3332CD872EA1512362A6EE6AD1D1945C3A1C3998689BA5DD0 -7AFA8C149EC258B438CC13463EC716AB0A8F3DD04185D82F10C7D9434059E3E71141DBA0FA8C -0E690FAFAA1342016CE11B8C975CA3567B87DD508AEEA0557C719D7C340DCAACFC1E778A3C1B -288C210E4BCAB3780B1A49E862876C98222B1522F003A6C154D283EF4C0661F288E9E0166824 -DA9D4F455D983F30109C91C66C677E5D5DA4B9EE0BCAD837F8BB5982BB418528F574E320DFEB -48FB00D603E39E3C58F0CC1D42C388D81BAF8B7677214EE3E9B186BF78FD70973F7A50608F48 -02C8DFD8FB7DBF7EE52423F37E3C10DDDA941D64D9E42D75DA5A4AF2693DED94B0BDE2B837C6 -662E5079502045C55E0A757A44EBC2DEA0CA0FB9CF3E2CD8BBD7E1617E0D0BD4E81EC03DC000 -C0043D61093C79EFC4206CEAB7890ED50AB473C3B83255DB5F45718D23E4BCC7B13DB3D92687 -7448D90E737E235EBC4254E3B42A728D41C7466F4A4B1B47600E32E2E8E2F8B97640D39ADC4A -9798AFD46051209923D7A0579D71DF3FC28A80C7F4CD56ABC3E1A45844A66ECC76C1BF77E74F -0272EF40158AFC551EF8B0F519826B253F929A4A0A12D7C8D3E8804B420D26E44A2EA2088932 -D859FB2B25D5F414CECB69DAB26A61BE0B03B8CD4042648F5AE19CE1D7BC9C1D6AA80B02EB02 -B3E5DE80AB3DC015713F875810ED261C0AA1172E7F234000772B835F59A78D3DF6FABF50A441 -D4DD7C64A38C9757E5B9DE2F8407A29738DE98F1EDD79FF653E8BB17E4D9E6D3A0E98EB13951 -756F2C9D6F99799DE82A38C1F0CE10DD4E7B10005D63981ED23EECC3E91FA560BEE389708C50 -2E1282509630C73EA96911DB13056D431EB81C7DDE70A752402BBF793BA70BA63345CD9FC8D0 -CEBB5C4A8DE02C34BE33BA170188C322F8B471DB4155E603E55C858643A8FCA0C17C271BABF6 -F4426D29BF9702C8E925DD5E7088EFB905FBB6671BCC8D87FCE64B1B8B33B8F58565619D0E7C -BB2CDEE8F101C3015A35EB6696592102A7DFD17DC71051857C7DB39F476F7E4B2BC3D804F580 -AC31A597FB451C3988DDA30D94CBA5805D8F801224ED1C2C5224D02129CBA36EBA583FDDC6E3 -422F15D71D87F253DC8A5176ACD13F44C73CF1A8D18B7216F34BA13505181EA7676D48F47D8F -66081B1986EBB18028A5CE6DAAFB76703C9D937FA683B50B76D1674D74AC2E98FC5B86813E89 -99253F99E546605BA17BC39C658210154868EAA6477163124FAAC138701A1795002CA9C5BA0C -49454DC7734F083FCD06D7AD5B8DCBD0B71E2B194CE82F6495AD2E5E1576C9E99B601BF58EC5 -5A66E2459BB572150579881C23AE2043E669871A9000F5E7D8C7F8F5BABC9D220669BB23748B -B6E102FEB4556C4245365B9925135E01FA6A633DAC9EDC19A743EA0B9A69373EAD93784E9BC7 -10AB874713721C615FC0662E03DB03F3B7DF0A42CFC722B3AA41A702300CC19779C5F918CD35 -419C58BDE5B8EF93B733483F52E9A3F46C31019D5BC4B7777A0A18281A0BDEE44B12BCA68622 -F36F85B6A001F45C0F2FEEEBD139B02D8D23966167D09ABB157EC96326C52B00C2DB19BB9F4D -FB842D8ADF5C1427DDECAD08E93236356FAE23854961D74A216C071243E34F15ABC0C05E75BF -6729D46005B9FA6814E9C8F9767C97368A29100070E3639130CB0838277C479AA4E2E0B0875C -1CE657686C620E200602A333F20C62708375E6DF0AD4CF7AABC42C2765237535C5580C1D8FBC -B5643B8F358AE390D31E314F0E40492ACFBD951E7F018C6D05C60DDE7F08056E478BBACAF041 -977DB35F4F0474A15547313FB9CBA083C6852E1435E61EF3FE5FCBB48B391E73EF2F0B838E87 -442ACE9BA1FB2A0E547964ADF01C4F19121285D86084416C8766DDF088F83FD64E33CED3F22B -04A408ADC64BD59894EE59F446CB024A808CCB988C4C06E797277BF68D209803ED94968FC63D -A929DD30BD66E252252D651479F4BC62E4C693CA41BCA97F6607AF605E3F1DE39F06FD3F0F47 -B0AF922CC4F819C1AAF77465CBBA83AEA7C27DCEEF4AB143CE2A87B939AAEF2138C283E1E4C4 -B9860CFD1620109DEB70C36AB16BDAD2064D4E058321EC9C29767E9DF624D06CF7BC4CD1553D -FBA59B1BCC33F00D0E2C8B171470BC80C7F033BE2BAA14E29BE3B8AF287F0CAF9D80BFD6018B -F558C5E35B9DF4FE2979C93A97317C3744574A545E9EB01B75A1DA88D1D3EE62246B8561FB84 -AD28B5476A8737A8C94D93884958D4BA6126C59982041BCEA5CC04A2F3F5C164FD53F20A554F -E9159B7D3A5A5649B0EEE78784186A2635F9933E2B43DA69B95FD7F1082C845D7D19F6ACBE5D -A4D9B7B8E81367D64D732FF9ADFBDC818D813B2A2AE19127DA134B9E8D3E3FE3798BCE9507CD -BAAC66CE7109E8C0DC36CAD42A3776CB99A1867534D363C8DB63BA9929C7C20C2693C3C2E957 -EF800D7791928F2F5EC88AF1C4511FB3C31A18187511437354684A245F27B86A294398C619CA -5E7AFB195D91EE439D202F681CD90A02045678A24E719B59087062BCC9E2B0626DD2F6359170 -4B28D08A37262EC9A8F08B5EFE517268919BEBB78AE28025AB39320F3FD32272B1CDFF26248D -74D4B51D7B01DC4BD7E724677D8BE2A60395B0B5AE08989702073F2F267128F04DE75A83D647 -705332490E401EB840473C8C80AE08FB0CBFD1E13B985EAB83BB76BE3FF003CFAD94BC797201 -1A39881DD30E7802636220411235A441BF61EEA6DACBC4A9300E579980AE52BAAC0B743DCFF2 -4DFC008C253DDFB7564A4B69AF3B84C2BBBE389B2BB053C2861E6E3E590F39B8E664A70DFD1D -39DA0D2DE35FB09138B257DF159F13F3260C1B1C457D54C5311B1D4088AEC94DC5FF2D6AA4DB -5E764027C8F6A6359BC0D559081D3877642758F0F60DD2894DEC7DA2CCB6BE3D0A8692FED4D8 -097B5E3056179EC598AF8C43A74C240F2121230C9738E3C3001D2BE3B48CC466EABDEBFB37BB -403EAB13967A5D9293FB2F2D204D6768B740728F7721ED50FEEA83293C0A7695F7F0D52511AC -F1CE56EB76915E19B77099B16BB79CFE36AB4FF0EFE0A002DF107ADDF10A32EC3111ECC07DF7 -9D7135AA3221EADE49CCD26910728B632B6419DED3DC4716A6D9E7FE171477B54B745CD53E61 -B8B233A48821F5650DAAD3866C273214D3D90DF661F54EB2FEB2B7197D9E4F12EF27A9D3EF77 -31413A724FA778A0091E4F3B82FDC402B00300200D3F1F455E2D2A7D3447AF90AB7F0FC5A1B3 -F8EFA8D6082D52E1BCEA0033E971113DA95A9A50DD1F5C7B1477822741E22B003135B8B58F73 -24E1B0DE2A7AC863BEB4F0E77C70216606816801FC4F5E7D4A2752C127CA0C6EB6EF0B6F227B -8248DAE1E4772F944962569DED701FBABAE6B9DE28206B0B3AA5D409CB7108C9D38C2ADEEAE8 -EAEFF357D742343692D26B24328F656F59DD81C7D665DD8493DD97C088D9B857E164EFC15558 -C5CE3BD80429420AF000FFF06E2A381397975E38A27B43D24C6E1F8075BC7157375C8449178A -CC2EB5A392202581632F3DB901DC9B9C4863F9F43EF208B1EDD87DDD92CB14938D95CAE5FD86 -4293E75D4BF5FC14841DDB0025C597DDDC4654E3BAC6613FFEB02DF0E7ED32E40D1736647227 -31CE87917B4F709E2B61482AB3719D6346A53D4C8FDE9788E074C1362AF251B409D804A76375 -71273A4231A3ABF7279BDAF010C7F3EB3E11328E870631FE0F2290BB86A0647B231E3844FF78 -F4A43439C194971A083DB5E48A910A0599B48FB48EDB1FE3B0927845084EFEA438C4B59C2187 -A396A9F902B1DE4E55D72A7D2FC783DF54602D303154FB28EA04290633D074B8CE8AC7F8BB44 -EAC356AF9F474212548533835933C3F94DE287A1387512EAA726927D1C6159349A9AC05F12EF -60B418DECD0EF82A39C4D1DEC9357DA1265A7C775F8D4AAF10B28E9B493102AB890AC5E268E1 -81BE8BE7B17E0620365FD1C08D8A23D561D33E7B585E28C24655770D4B96D79009F86F34055C -9FEB5573359763A98054CBA6AE8780C622ABAAFBDD0E7C9435F477D2B3C61A05F672BF6DA5B6 -3F4E69AD91CA1D60911705CB0FCC06B7BDE00129EAE1724124BFDC29E310F42E9EB5742B8B26 -D0CF0B04F13226A58AE1BEB5C0A5394E881656EA133D1C4AF05D0226A8706A13D92DD6A399D5 -C56BA1C66BFC10BE58BD3C7B0F6AC0FFC5F3E7A5652E6D9336F3D66E3EDFBBB9DBEA7673647A -B588DE079C88DB39B19A680B60E918552E477529C8BE44D4ADEAEAE09001EC3248D12D116FC3 -393E362D84DD1DF62122EB830171281BA0AD7398B6FA1F9A68C2B308D3125F394E2ABE798218 -3041ADA060CD93DBB5285B27FDA05079307045CCB5B11BAA11838FB2281B95B251A9607A98FB -BC212013C622B5C6FA5A388DF551AD263A86F412EF19A7ABF3056C7F7CCA1B2D38EDC2851BCD -1DDDAE79096D83E5008BAB69CD7886F9EE66CF9DF50104D32A07C1A65CF7A1AA1E45C311CA72 -BC4EEEAA569DF870378862E79AB45091D8AC005387B9106D9D56318EAAEC2F8158167F64F09F -C46BBDC7A192E8E6587A32EFF8CE064A1E43908458A8457D3D20F44121D0B1F95BBA3A0653A0 -066300CB802678E79EF474B33C2487C2ACF55A9B19D71AD7C1980D2E9ED5A720D3796353887F -02CF154C739A96493876F5DC07427D7FCA8404999A7E1C01658F11208D8F68013F25E96BFB29 -080521D20DC40F030923A315CEADF470F50DCC2816CC5E704416A66E124B7AC0047A63FCD205 -AFD4C59D2991348774E4109B41953FC4E8ACA8605070F71988C805A284080F8F5D82D87B6CD2 -3735B6C34D2D8D3CA694AC9A17CF4E3C602D0CD5A9A5782F28506D28DDEA5950BCFADEFCD057 -1B3B9118E5A61E8FC4CABFD36716B1F80B38E7C50A3853C30552908A4CFDF3DECC47A9F9E8BB -688CE2DE610A09081C593D6F1CC2E073C4011C63C459C156CB48ABFD9AD9A38F68F2EBF53810 -8440BBD66CB8455B9F4EAA66BE31C30843AE1E1D1AF8429A46B47B51A1E9C97888EF53911D3D -357EF03A4AFAE3A308E4FEA00145A7CB1BBC8F3356DCF577EBE0D9D38FBD852D99FA7938DE0C -A14D18CA34904F1E14C33A13B29E4C8A7FD232D1B6D10351A6622FE3AFD792F5FF41BDE32820 -30ED93025E37D64C19C5074D1F18E38A732B0A0AF56C1DAD13EE51C8C21202B964CB1EE90F00 -022DFEE571F2DD4B3FBA1B574990D3BD330625088813FD30E9F0A294F755D9EE345A92B4F2FC -57D03F20AD43057842C6A716E4B13B8AB4935F0F21BA8E8279DAA2656DF28C671EA179A963E1 -245ADA5612B6964F252B5DB9701B365F5EAE08B46364BDADE2ECE81A53E6BC4337A98EA2AF24 -94E377102C169C688C4223BB2E7FD4B8F7E648C0F63975A8B1611F4C732E15C34E4C33E5CD05 -F76EC55A193247234CBEF0E2353F588018163DC447CF3CE14FC0AEDD93A4832D0C5B217C8EAC -B6666B2C29C2EFB64B30DD6802379B821713C7303ED2523E50F0256ECA4856F182E1D66867E2 -B8EBF37185DF5841F42E3707EED1AA08269963F9F6349B0A54B6E227CFB229F2D410BE914A2C -BBBB34EABA00E12E8269C1B6EC722AA8B0B3E8F4D0E8EB08B503642FE658B51CAC791AD6DAA1 -F7030F99566FF57F9400584755CAE4141050449E6F2346F390F71A55D385FE345D17AC248193 -4B1A3D2C9B606C41F2D31388C1951241FEB7321D2AA52399321A702FBB39F92EBD2C836C8754 -0F2EAEB727FE31D4540106AC1DE38FF9AD557947DCA7BEF2752B5D8E56783AC7988F3EF3925F -1ED6003D1DD2153DB3D1E1662CDB82C0065507D749FCF4FBCDB6BD270761D0FEA4D1DBE24CA7 -9D56648EF7DDBAB7ECB03BE1C35F6AF40DC50A3EEB3052F53F0EBF52390292B0B78C873412B6 -216A46C7AC7F266E77B5A6343B46F1933B3CD1CCE1DA366BBAC6FE8B56DCAA101DAA6BE7057A -2814C3A6253D18C0C2003F04F396CE83F054989BEE7F1393F4176A2E1CD10AEA4C34FE7EF39F -517A6D2F7F7E990EAC5A902B304B5D86A90065B095BBE9E6A0EECBC1317984B781D64B6075D3 -5EC1E3507FD4FE2E7097A5C28B53891B2C02490D0C063FEDA48F27E6392CE246ABBF5F0F768E -CFDAC3F779A1F1FE5E41BDF8854EF8F632361C67E4D7DA98B8B8F67678B3125B0ACBBC32D386 -E85DB2F5F8A48A9C98B34D1976A88C7711908CC14251BCB6EF6339BCB8A1F08379922A63734E -75647C9B6AB0B075C2BFADB9B047600960AD5DCED398DA4B5811A49443E58DF9B076E6962124 -29F0E1ED9254513D20A735858D3AF2A80EB79C7E250CB426FBAA827F18BF3893B1194B912ACC -AEA7CF528AA2E9134E43358A1B1ADBDC1165BD7AF120B3EAB419B00A613611BD0C53E89F7489 -CAFDC1DE5CE7A65B6EC264208676DB2F6E82348B86E6D181CB4C93AD4B09E331D14A9A580293 -27312CC2ADCFFF1AC1BCAD9C45FD8D219958F6F6127923E9F7778158B67FD6AB3B9FAF3C909A -298FB39CD62D3D6E59AE78520133299BE1291A67442729D55796AD33E6D7A6A168ED611E86B2 -06282442FE3C7F4FDAB6221516175EF0C0A8D9CD4520C85712C90CB1DB9B158C1847DA5A4454 -6025251CAF7DFE1827CA5A3BAD048442CCE3AB2463C7C731712B06AB002FE8BAB47C77427ED0 -5B30D2BAE6030821EF6814D48D045789FC8CAD2E4FF37B85B7A4CF98F68792EF4C43EBEBB748 -0C08975A4B35092DE3E2343F1841A4D7DAB6F23BFDBE682193E60B2B5F7A3E12DDC6D572A931 -9633D5C25371390A339D37DC58448C30CE1CF340BF08021FC70D0CC7D95FB60A1F5284E226F4 -701D22DD72DF44E00E4D58DF8A49CEE890EAFD2DF48C8E6273779B1EC4B7570746153F0DEE83 -2D60E91796C91669789A433942EA5F8F405C41D5CF7D68ADDAE9F3349BAF0307EBA474FBAFD7 -4E96F9CA18F68A4E1B80AB5A945631594EB3393C077172A42781A4AF390B1A15F6975180BB1E -AE1ED295693AD4BAF8AF2375336D2EBD3AA0CE027ED5D66EA073FDCAD62C319AC1146D43906A -A41AF71232B035A11188E031C910B46B1264D2F8AA761397E1C17C382E397D633A246A453D0C -9151514A96D296AD516D7133BAE9E3BF35ED6DBA57F79554AD8BDA84BDC33EDBF44D7A429162 -B5508A2AA6E50DB27C0CD7A9F7964BE9EFFE12712D83AF70A040471FCC4117C0A4A2B25E9316 -49A7325110292DDD846B262F0F9B8DBA514F2C0281DFC79A4600768848992C3F541E09CC442E -58AF18875A9193D5C0D43F45061D629AE92EFB315BBBA552D205676A83FE4FE3BE1744123AC8 -C0F44ABEDC06ED58179C66C42ED27FE06D12D65D9B3B16D7D737DD02AD8BD09A295794D51C55 -287E02E523EC2542CD4B08C5C935E3A8B9B2E4B2F146400F4464D952E5636ABB1F8CE24D0F47 -092D3DCAB041C3D7EB16665F345BC73A5BDAD51725CE384772C88F7A476B3FA370E2134888CA -23092A878DC18143ED7630F55D89A82B6DC7135F57F9A643F4B4119F4E6FA8F6CA8EABA80C34 -E4E4967F94C973462254BC1B15FD9D838D82FF51D8AA78E215A1667425F33D27B7EA4A2E44F9 -E7F7BBA75FC8C0C2C84531FF13EFB25F3930F5948E9BE5523CE943F018A47CD775C4EA80A5C7 -DC5D5F2DF1E9A6B73F71ABD8C97B7867B7D85C396FC1E5DDE46D02D9A8422E256C31A0C3B3A2 -AAFA98537DA5C0ADD4F066941530ABFFEA76B805D11365262EEDE9553AC3D93F74DCF7D9AF4C -09CAB208A6643DFAB2EC3AD90CDB7F43821CC26D76D4296225700B5B331B82B8177592D4DE32 -B547824758F53C8B680193A2EC2F6430CB9A82753BAFD6191AFB5DAA25D233BBA9819E4C35F5 -D726ABEEFAAE2CF974F658328D7BA10601EA35EF8389DCDC31F3C708F60AA390A44281D010CB -9607138FBF6336C276EBFA565848BA4F1D8B43C5BE3368D559F14136596ACF3604AA9573E0E2 -374E6C5A7F729D9DC9C9E4423DDEA9B3FB1D4493CDFBB724376374036C59A20127B6AD28262A -E354CC0EE8D8D32E9CB5C0218CCB37984EC23537D12EAE8E416C08FBF22C12505713A4FAE45E -AF599CFA7707D6ECD32C68E66B010675685FCB7CA686D9DFB046A70D0959F98DE73DC1979057 -2A8C652E766D59A33323F17E668BD042EA3A3D0E7461ECD4938A01561998BFFE1E27B342F876 -6D5F8FC47F25DEA957FD72789EBA34CC60034DD249BFCD8BA65B349EBACEB85E1AD07CFDC51F -5B518B6DFC2108A9D5B9C12FD85A9D238272CFE9A4F9701C183D2B5A4253E37A568D825616C5 -16CA597D077C7BB478136262B897BA2023D420771A4E27B01EE14F0554B08410C2DDC3F7DE4A -E11AA366848EBCCDCFD99F1F2B04ADA704ABDA55CAE18A825482175CD432DEAEA9AF4BB8D44E -FC32456BC63AE9162604DBE8A7A51277E41D249D94C8431BD503CF83789A96FFE0D2ECDA0E26 -953BB3F08EDFFF439957709CC4E5407BDC02684931ECBBAA40A3D6B008459261BEB29AA6D38A -E40642CAA99CA7ACB93F94C4FE939E615F77D122AF2057BB98C7C57A751C03BF453D0844686F -407FBB444987BC0AC524CADE41C0B46A6BAEA2D1B6B653A14FE51F1AA402C00A6701E3ACF81F -D57788E6DC26FAE37C8041745188366EB6148DDF52FECA527115E7A6A4DB4A3854E48C49FAA0 -2157588DA01E37DE6EC264ADC5A855FC96F97B7D0913C9CDCF8930DAAD3F3E712F4CE7302DE5 -CCF69B74EE5DBFD9CC130DE2001ACF734C096708C49CEAEEDE54A4EB87C7B10487ED243C2334 -25305EFDA1CADAE899EC1D623E45EC0E95F0A92E11BA6F60C56371305DCF168797A6A4D1E0DC -5B6718B53BA08EE4BFA8E7E1879ADA63FE1DEA5093B784E668947F928E7A32BB526DBFC8B2E8 -97B03B0754FC8EB384EE868803F07E513942D630B412C1CF1582E320CDE82032391FD9F6561B -22A42B7ECE2A9433C902B1668108FF20E25F2E42369F7957D2CF90B34C12643E77A4F841B6EF -E6E811AEF96E18110725C03B4132B7BAEA4DDA6B9A21049F5340C94FD8B4178163030E66D3BE -1539213724968ED20419B81192C01355D7B0745907EA95B14A3C99E6A5E13E3E30314AE5D90C -192926FE626015A10F23EC0D32AC2531293DC41FA49F214FB05268AC9C065C497828A932F933 -6198DFCCF0DB21FC6ED53FA7C30A4105DD09749A81D2A801A45493C288AF1F8A421E9DD1E684 -41007B032EC9D1CFE5597FED28F00667A129A4B80F9AF75BDB37E508F47F253168C72450D623 -2FC502FB6491B546D4922DC757C737AD13EE7C38014A73C74552A0B9DFFBB39E38957C008979 -BC03C4A01CA5411540067D6812F6D742300637884CB0A6F574F015A4D885209AA696AF7A94F9 -91BADB0EA184113274B75520F5B6993A260DE775DFC04A2731EF1167A08B0EB69C4765ED7AF1 -24A46F1FE636B64F8AC96FA824A9A4B01423DE144F8CE3FE214F495AEA178421A49401C4652B -1529BDF35CF136D22947DF95A447B9CF7E9F03F2A39FD1643CBC589E8363DD9ACED75C4773E9 -7FBF14D447E9492F907BD56245D8CE81526FB2900E567B49DD20A25059F90A1CF2786E1C119E -285E50706B0BB713B30AD273C70F50CC4490A94A5855A7597E59CB9F60C35D11621B965A808E -98BB2EEB9DE4609BF08EFCC72BA56C1CE1DF406EA568091E69EC0A27BE3F6578D1C7CE414D01 -949FBAFDC1924B128DA23CDAA14821D8D13A98BA4BE3078D332E7529A6CB0507969616CB7C99 -4B9841A147A81A2BB469D3845776884344D484D9C8553BDD659B769D82197536A12E16E51DF6 -5B262E9AEABF570573D05052762ECC689BE2977645FD549E6F68DB434A8EAE62A7D0D5E4B531 -EE9C8640CEC2FC0ADB3CADA4F29059356E97364320316D0788B48224012C6AE03F801486DB4A -B32DB1BB2F9EEB8FE1E6C2BEE8CAC2FEC3D24D6DD67A68B2CE02A5E3A1EEF8391C779A3E9699 -2E05F430ADAB002DCAA49A2A781C28DD487171B743B99CA496466B6D45D2F28C6197076DDEAF -4FB188F61E750522EDA8357F90C3DE30D8DBA4558CB72523B60A47764CF5CD0328F475C470BC -B439470FCC4F502C9B524C4E332A89C5DA71AFBF8AF1391C4985E16B61A63AFA10840C18777E -F519A49ADB3B836D794E0F2F3108CAEFB9F89DC742F15D6000D3C49DE33A22D3D2678DCC6E43 -5BAAC5D383790135F81FEC2C7A7980DBC5D1CF8548D13E0ECBE83A430730A289AC0780FA7B92 -2144FC03879E927B2A9B91B7C0089F3CBE6DDB8A43FD846B853889E645B9E62F9016C4802F15 -F71D2E818A25465D5B79201AE44EC0360F822D4325068315516F6E56FC4897C9C2C7F5A9983F -EB64F3555C0931D607894A4CCC6E469C98AFA6AF7858AEF40364241002CC42F60DAAAE924944 -8C34FBD8B3E181D2D022B102E3062B09F23121CA27B92DA680B425E257BDE95AF24194634E38 -753A032397B6FD7363446D63232E5FA2B4F06DCAB3F15B2C62B3B1AB35556ABDF79EFD97F6BA -2F080EC278F9430047949B676766776ADD5974D1F07AA4983A0E4EB63AC30B25A712451154B2 -D6D1DD8DA6C21383787FF1BD66A511B01C80CD7AEFCBD5A74345908A89AC43734E74CD50DC31 -D5287A25C8636DEEA316ED2231201ED14BEF7FEBD75C504927B8B386CF0EF72A846626DF3A4C -14504931527FA1E4180CD4FA6802D5759761842A53247A6E430DA0E1905ECA6307AD9F258811 -C913324A4ACE686EC36B738EE0391732C37869FD3D7C08E8449B7312ED44D895EF87EDC60FA2 -F49046C861ABC13EBB88C49D611E82F92B437B69FD3F58410E854CFBF0814204A737BC548CA0 -195F20E0DF9360DD81834596C6CC8D2CFA709F278C6784EB134419CE34739801FBFD38980D98 -03F5949D317445FA81B50AFDE6CBAA662CE7149F643E219450C2BC34F11BBE1B62C5A7E2E970 -ABE87915C776600AEB29F3A8CAF91245352060CAA58891BE4A6F810C580D1DE579A9ABC9E5C5 -DDB6310B59817ABDACC99E49BCD94175D79D4B0D04DFA9B10D45DC9C2F415100E66E1AB25C7B -784D33D742D576AC7A6D3C979A5903FBC9BA085372ED4802E2F5027B5208F397D3D077C3A282 -3FCE33BFA3355C2514E33A048B51349C20604C56995E8BAC422CB6B1702B7BFFE2F0DAD83533 -51C289B6A356FE282F98D8E55820A2677F3E3B8E35767A231B8B6E908F167D4F9FF64C3EF74E -99F04ACF004F2BBCF8E22398E8284AA43946A815CE81D737D98404CDB336AF5106966790ED58 -A2AC7AA39DA05A80CC9B09DE15E2514D8BD8CD1F2772F388297CFE921DF86515C90DFB01C692 -C2EBCBA012DB374E567B6742665C3E582B0DA017AFABFFD4C15D8DD4B91583088017CDA7825B -15B770713756FD7FDE94F6D238217CCE84EC6B9433F84DFB5D6EE382D3CDC5451F72C6A0E9A3 -50323BD3C4249ABA95EF92EED284C2F3E0F0A46711DBF1E23D236A59836FDEE8E4CCE15BE9AB -69795C1FBE39B18F4AE55E7EE2D78CA54E287358FED89AEE431E3EB37AC9ED80FAD9C8390C9D -FB65C1148A23C240F1555DB0B04B9C5DE5E3D6B539143DB9C4AE3C4B28245528FD2E99C8BB0D -900EBCD28BE99FC26751539995F46E643B5D48F123D8E965DE3382F1FC99D7FEBC2DD39AF4D2 -0BF071F4F7A180EADA14943DD0F473618F292ED5EC74FF7A19C63C4AEC729AFCDB2AB58DB856 -0807A0DDB79938A803B1ED2BAC309EE5215FC725FFABAA1AFB913355A661C58EAFBAC982E61E -F9BF5B4DB95B3CF0350B4445F29A0CE74A8150B0BE34BC052F103C01C2B695E06C3B0025E9FD -5E9F9F7F897F73D9257DFB4B6B8CFB95A32D320364B2593258395A9A6EBF10554601DB62CE97 -4CA6C77BE4EE4C95A0DA2DE9777E475D799CF960FF17A85F9CFE2DDC00909FE9232D8F73445B -7F145060FB5360D5DD0E338EC837B1E1DE6E84F8F886A883F3CFF46DDE7ACFC7B4B4D06ADF83 -B0D09875DDFDB8B7327DFA9AFE5DB86933012E39281C6B0E97EC61ECA6005A4312783496C80D -60874A37930B43C51DCC23A55D53F4986C80B8BF004CE01BA9E118A7AA8D2B91253B53E43042 -615489175EDBA60BC334DB7B9B11B39FB6499BFB743ABA0F3BBC7FD37343B1D9FDC5CDC0D592 -B164BB10E3357B17F67382AAFF700067B432B9A40DB78859B34525B04ED7FEFBA0943C009928 -178DCA303D16AEB5CFAFCA87B62CA6CA54C77CBABD460DAD4D027786F267D26978DD01879178 -4E0D82E808904A5E07A1E609650C466EFD29FAD853AC0E27D938E4E2ED19D96CDEB6098EC942 -1DE87B422BF46D25A3782044014C28277963D3DC9B0734AA5EC0F57B3E0E54C6D1C29BD88DBA -E8588C946F09DABC021D8B0FD29BD8550FCCB37B464365E3E0814D283536827CC8836A775A67 -5F8AEE73D1BB2DC962A9BD3C99CDD9306DEA21534D0B45BB46288F4E76BE71B5FD49CF254928 -83DCA4EFC922C61382FF14054C8A12BCB838E277F651B609055456640671E4A6878705269917 -3E8D7531B33BE53D31A92D3C37856880BA29BB2541B27BE8B5D831C2160C37E8626BABA53FB6 -B9396DA7EF7BF3B03B9128EB560131165EE28BB94E12CD09EEF1CE50FDDB5E38A5E6D06ED8E4 -4BC7B08EA129B68A50DEF2030BCF597771E261541D4FE2AA2389DCB812B970C917F0BE8EF8CC -5AAB445409031E588537514800EFED1A12008BC509DFE2960D1131E039353F71344C9537CE1B -788DA70551DD7E178FF26CF02E143E7A3F13E7D365AA78007E675DB4887D5E8865D843E8A3EA -C8BCD209E5DE411918DB42959653513BC23A2AEB2535E83D346EEA4143C25F6D5799921A060D -6A27FD721CF2711229E1852D82082A56D9E660446E0756535829A3DC5F2DDDCB4102E7CF670A -94846E04A82742F8CF27E5AC11DE3D19E5FD1FF857050DDDD439C2D04C8DB981C08A2B20ACAE -BDCAB4198DB59362DCA6E3648A75C5CD51F80A58CB57B043E36049C6F233E95607711BE194DB -6748FE80E87A551AA1D1A0D5C30C38727799ED06CC80B4737869B5AE60D3B078549CE77D8FA5 -2EA04E9214AB9637A1DFA40B0A739F73565C060C127EF89620313396B5A843DC209E9B40C4B1 -356497E8EDACDF0E7FDE032067251FEE177EFA1696613ABE63AC1BD611B02A7EBFAA3ECD7EBB -88F0239660293B3CE15792F4E0E0FBE21F14EE875440E6F26BE3F8A43FB376F85FC6F59C7594 -3E2B881EA7AC09FE469DDD7F3D9F205D40029AD8BD9978B45D07D9295E9A998446389BB9F929 -1F6DE2F47D25701DAD54A4D2BE919E7B237E06061968091360ADECBAB62107FDB12766B7DD7B -799E238FD780D339AA00A9E4DADCAEA77120DDB5FCF5CDE4905FED6280DFBE7BACAC400AED88 -7E43C6C00F89AC4D81FFD92534DA0E0876FA5E765D6FF6ABDA50ECBE9D447AD706640DBF04CB -39B42E8F1FFBA10017B9FAADD18FC2757C09F5D7B544FF2E25B010624A47B6488135965BB324 -DCEB555FD2C1F5327F5EBC6FAAA2248468CA326AFC5EE696EF0F0A54E91EADFC830DEE449540 -1523DD4E81ABA51BA14453372E50F294FDF1A6221431D26D413EA3209FBD9BDF5F6C9CBCECA5 -AC3C18746974C35FB93455A74C7E01F57D51A77AB59F61B4C008C0A5D0880A662479A3003CD8 -9CDF4D33879FE4BA518A2B403F1282671E9293C305172B409E51ACAAA5B76005DF61BB35D477 -C60A13DEE01214E17C43CC3A23662D1D0CC006FD201C74DCBDAC51EC3A18E41BDD8BBF322212 -EA3A3DF365E4F8CD0AE6FE8D2602BF25765607BD8D3BF9540F6E9A9796784A09BB4AD39C9476 -8363F4E9724BD19BF3CABC590C775A40C94E981C5B2A98E264F5CE761283EF00FD5AE4EEEA7E -A0776F25867AA39ED176260192CC8C195B46C97B4FEC0F8B4909C37CEBACEEBD1932BF26E08B -4DB36357C67B355033BF05D0AF7F388E451BB5476FD32EB6056109B4E20A827CE183857C575C -33F73A1AE030D67C8757441C354B0227B147A55B5AB0009E4E48E66271C2E0BF32100C8606CA -9B2DA0D247572EF10077BFD6FB1330A3409E9FCE23EE857910D3494B0E69ECE63EE47921793C -33F859C677277EC4FBB42FACDC0243D926B17D28EA524D3DF9A24C1FF9B02AF0FE05D24B324D -3CEEFE61FF22E49F7D4F64FAB4792CC401038EDAB5AFF5F757E6936FB0AFC41E4A4359FFC3BA -C16A30776AD9DD589BB685173EE6357ED96094F987B2E1754AB02A200F841C54C9D4373BF7D3 -AE9F149D74BB7C8A463CC250CED8077D7D622B0E54C7FD295A3B114F6148AF5E79493CEE2741 -32E2063487BEA327FD393D208A8C689878BB7E79C46F7113AF0CC1389CF6765F96C486F09C5F -B6F7F0ED2FCCD2A8A16929E599DD96E88A7E3257EA6AFDE3824BD18D970E699F320C2FB09421 -8EF637E908D277A51E087513B5F676AED5AB649187C0D72A52F35DFA76D8BD287D911ADCB3B0 -6A73B284E80461C1D733449464DF62556E4CF4E58F44B188A5E030A764E4F18C0BB4FB9D8E17 -D056AA9955179417F0068968D44EA5106E6EA47681E130572F805848D7563D7F55C0D902B318 -DA8D4520F9EB96C7F1DE7A03F79CD87D229298FDF7C3F26FDABA6DE5AA26496D03A9E93C3C57 -133378C738BFB6DF50FF3B136EB7E9F3FD08652A7BF2B94F15542A791B49577AEAD85FF8F89B -A6DD97D6D5A602B7D3EC463013045FB8E3076C8EED0308F804BEADAA69386E28A8C044C0C920 -8583598FC85D92470B072097F6FAD17D296FD6268D58D9CC580B4B4AB2FBE8E19A7E5DB2603E -5C23056F663B0E99C85AB0E091B0CCC572FF019AECC4ED45FF0C1FBA84676B118D6837BB3635 -6625B19A02F708B6EDBD2724E6A890791212280D9D694280E69BA204C85490D641437D56E4C1 -E76C019632B9E569A506279AA2AFDBB1FC353F5A5F5B7C9D2E07B7CCA2B5CBCCDFEEFC0187EB -1FB5E72D59E39033851F8FD707B9761DDB287A544A56B51BD9B3BFB2ECA4497C700C26B67231 -4AD936DAADA25DE3B6537029A5E2BE98118A5711987FFFE623CFE76F3597F75D4DEED96CAB4E -DF98ED1D1FC83A53D620FA771DFA0796930DD0B814464B2F9BDE0F33B4009F40827C4B146AD2 -C736E555130BB483179B196DAC61603EE14C7CD08CF0CA198A061400658438FE485E4DCE72E4 -1795D275B00B2571D77D29FD8ED81D7F5ABFF5C667E681722EB9FB06462D43453150E98EA47C -C04F898578BE6FBFCCDE229575611CE176B07C5BABDA6D9ADF3665BF0647ED5D96198AA91245 -ECF0CFF04940E399B26BE6B97BFE721D014FAC3ABE46E87E2C9893C027D6A6FC00F577A6A945 -D49985B66EE9DF8498AEDB75F26E57C46CF8403067E746A674DEA18EE84EC91E24CBACC6E6A8 -404793A3529375DF166E13C5B4B1CF54A8123FB823427F85A16ABC80597C24F869E166E6A53C -FAB7F37C00C371EB28A4C0A3971AF5D9BB55022CFB6D22C1EBF25C793F19FDB964C0128F8FC7 -CE0D149A8EF20712A6CAD3EB5BFACF510069FDE85E1C784BBA91746541D7F9BA6824A48F82DD -038C8271822C11527543134151A2D2569F2CD0DD8B9EF017FF8723FFF3D830B58D215ED680B7 -62D67380E143214CC256B8AFE48B716F1E7577017CB00B984DAC3D80E7AD9D50A4597EA1E1BF -CF1661185AECDC0F4011D9433E743612D6589ED4032217B4490C9C35D42FC4374BEE69FE800E -BD19145FD889B83E056200E06C41922FA528BA823D7D2AAAD67279254B7DF20A37BFAD8B9A09 -D28AA10E57488A1A3D3016E62744102EA4B05CCD6444509E8B6BCBCFBED9F2569384993289C7 -B8E5EF5DAC933A75ECE8951F5BC0E25426429F53CD7FCEEC671F3F217F7339A5357E0D9ECBDC -B2ED8DCF7413E2F9B7B9A4976E214E8B7465BEE847D36925C374422D961E572709A4E59EF648 -8FE114AC70D65C85101BFB2CD9F05F6380B4544E6563C381BD6317E2352AE5A8610E6839EA39 -4D0680547B0687C131AFA2CDBB58D09FB900B1C10C63FCEF15E8B5C27D33D24BAE973A71023F -B9A21FE6AF35F229B127D973AE18B59361B85847A823572CB048C2C75E6874E565B9D1C180BA -84A84C9BC4099A5670FA02391D5A7A69AD907D34C72E9BC2BB9693D784DA4BBF3AAA51BD9343 -332785FD9088E77856CA07C9CC44A5CFAEA3EDB6A3B1F9AD9037EE303A28C7A08E89DC33505A -0BDABE5F83B8A7F97EA32E7208A470BA66A864BAB040F6E071866B7A87C949A02996FC615C06 -0B309F030A491BBF3A311EDFF3811C05B7330AF43D17D0800AF1F42591E5B072075B90935969 -75C414AFBC1D8A51DE626E8F4A17B5273BBAA75369D06BEF7D6180EFF2332C8ED23E9777A719 -E5C6E328F78707887DB774A3CC416BE0A58DC4438D3B662AB5A79C0FB1802B9651A397EE6584 -1E0006CD97FC10CFC6A88E58B6DA2FF9B41006DA0D90EF7429FD1B910317DEE29141A300483A -DCC2AB02ACDAEE94C8483BC075D030B095FBD0E88C0D1956AB8381458DED6E10D72A916FD9C3 -3E4846405CD047B1645B1F2D98E9D3D655FAF8FD6A09F278AF32DDD746EEBEBE6343BC159CB4 -75B0BC44D624C710E609D967FAB1CD4FACEF81B9A543AF0ECA1AEED5F7D4395C8E4B44E41721 -7FD59ECACC5B71941AEF962DDA07EED271D81923F6F7079FA76C4976638C3E492C9B37E893EA -73DF24A1DDE6BD4B5A91D19F23190B0E49C74D7D4E20857F17DF336AC6D6C77B6F1CA83A7814 -6B2D1D67D7B1F024B6D3CB9105D765AC75FB29F6586BF30DD49A62E9763F1D8E3E4DBF3801D8 -2547B9DE1FBE5DB09C1C7E2C8F5DACF923E0D176F31884F6B6F49AFC6C7BFD7950FB1B6AD666 -3DEFC55B7EF3418F27A714869807E05B46F06F0F12630186456131FED168CF3E2D9833F6C8AA -232119444B38373DA6C3652B239DA2FA31F08B88851E0D419C7E1F7FA665853DDF9DBEDD82D1 -40F06042EBEDAEB067DEA46C9001487E39B5B0CAEECEDC72502A38C09C5C71B58D20A55946D0 -81939053B7A84E476FB043342942BE77E249546AEADF00C73E7C8C1F6ED5C0165AF2E6F76B6D -A19F58423738F9B8076C8EF7B9EF1F2D42D7AFE47DEC0A8743B0B62CDFB01FA552B6A6A983D7 -938917155AC3167DA0F1A98CFA701ED029BF8A35E36511FD09C14C5945FCF10EA145BCC01975 -BD86D84DD13BFA53E62A55A36A6E1EFEC82AD2EE19D758B0759460F08295696479F09C98AE0F -A3092FBFFE2283968298994750B02613066D3A77817B7D64D7D3C031A1FAB354F382D9D1D136 -17ACF95B0D79612CCE5CE8876FDB36916216B34EC30670EF43B8DB7175CEA309BEAA742B2062 -9D5642B4851AEF8A28800B2C2BE17BBF6A35BCBA2D095ADC4F2E6443695A4C5554FE7612945C -1E35A1EF47BB5818E214785B631A0A85BDEE496DC293C64DC798944A19B268BBC8D4B2DD9413 -1BDA4F039F6A25AD2EE2A7E79DF458BDF0803DA58DD21E07D0AAD855B277110EC8772132611B -D06A80CE80541F60996BF7666E87299E48DE1A907025F1094CC82850B76B0ECCA950C9E7DE61 -E8FB705121BB9E6F18D5E7255850B096FFB9FF4A8C94568B003B59FA38AB556AB727BEBCD0FA -22F5CC115DFD939C909D1A1051B891CF0B4670682288F51DFCBBEAEAE10AB3DA963C051F57A0 -4839F5E320C66775578942C2267899723F17A790117F43026ECB4447EEB5ED92E2F90C71CE6D -AC3AFA4FA6855772D38CE6D110F580157B104529948DAF541D21AB4E4773F71F64B12F980DCC -38A6588FE56FF6C7C686F40F975F947A5DCFB98AABE55233467C85C1636C5261927238EB4B53 -06925F91EEFBEDFFC59EDAC727A33A37912F668DDEA36E3EA0090E159AE41254B5E1C27EB8C9 -F7D4986426EFE5E8CC147B62A1032527DC8C0A189DFAA2E9F15DBC752B42A18AED11E6D062AF -2C462C4C51A080A4AF9636DA71039DBBA58BE239C0115C9374B33A1F5CB62755A8ADC5F10F5C -356EC5B8DFD78A27E9DA09A978852DF7742A07CAC131B4D7792CDE16F5AE654F0083620217B9 -270207D99823323707A610210DD3F29C81C5DDFEAE3C970C1720BC21C04BD2BB7AFA34454B7D -E0CBFB4254F8DC59D5A1CFF3E01F4A5D73D7458DD12330DDAAEC6B686F665BB24FA9B1F5C0CC -45430303C0E43AA5D5072D106525C7827E561E9C3A2F06C4C23B2D8BAE239CF7EE653AB59917 -93BDF00A21F63CD7FD28ED66B38A5A80DAD176964E42D2F5BD0ED08681597D6C9A0613944233 -B2E55030562F1824D8891BC72B7825E0B0110F3CE3F3D81DE94E657F715C9195FEC64B7BCFEA -CF40BC7E253E24230EF5C1F94F3D2EB14035B985A9ED0ECC34E3EE3C903538F3A71BCFC26C61 -E611535404AE4E828B74AE4173EB3B3199053FE35B28951AF27C069F3C13223A9C08549FB9AD -3EA7539CF499FA98E9FC634677FA3AAEC9D40547BCA1FB158FBDA24509CCBCA707E5A81622FC -B5B6508F985318F07D21B31C9A31324971F449EB3D6609011D19EDFD5A2E8F23CF8DF97F3623 -572FC0259E9FC4493A5F5BC532CC6335FB0446B8004B239EB37D5A7DF03A010C28507E3DEA01 -47CEB461BCFD0A8CD745270C623949DE2524C5260B583B724896234494DA807A5F0BA31EEE2E -674724359E175E2B262CC266EB9625BE299AD8456F4152FC5B8B04BACE7F8F860F46EC2707A2 -09BBAD6D04D44ADCF9FE20646E0D8B344B3203E561E865062E206BC6B2837E92A7C0F360F58A -066DF3E80F67B587D78463C52B2175DE19F1A6E607DF963EF286D8DCBFCA14F20AF9BE0DC600 -0B47C6C9801EB3EB8D2546C109A27EB67CF6D522E710EDE17775FCE95E8788411ECEC5336AA8 -13A0FA0246081765805AD86E429F0D526731041FAC8B48556EDF159C6A3F52B33473CE72E011 -170965F603123216E91E2BB506BCCD363022205EEEB34AEB7D68A3621A8C4F9E3CD99132914A -20630CDE011A83594218CA355943CFB99A8291CD412E6F45238E92B9A444E57BF1FEC9E70B4E -7F6AEF1A33AA67D9D97A3ACB07EC45A2F385A84BB64B27686AD8DF947F407D2EF90D47178638 -817401197C2F05996732F440915957E4D35F04BA63BCDA0337F91C7D6827A8BD76DFD56A6E89 -D1B4E839AB1C1C359AF75ED1B5ED97A51DB5B51C07F84C0ECC9C62C8F7D7713F22BB05FD0F69 -D7DB345ECF1B656FE34E70BEEB91AFCC15B383AA68051405F46E657CB1D3D3AFD0149AC2AE29 -AB293BA8989AAE30660D6C1DC957C45349C4522A4913A319EA4BBBFC70D449568768B988F748 -5F725F6D12609932F2C0CA38B2E6D55B050331366C0183746DD823FE157DA73350FC365092ED -4120B63F376F1DE8310817664E688EA41E57D5B74C4D94BA621443DEF01327A031B23E420F95 -A54EDB3DC190F47DD229FFC7911F3E5AD89BF317F5954F6B42DEA14CCE8C485DB02970886391 -40FD5D7EF6952651CB6E1498DF2274A4ADC3D517D8ADB34B4CFFE120526B3183DCEC9CE46504 -ACCDCA61E9F3EFEA679F3E24A1E6383BA1CAC6C303D4DDF02F5D672F905B79C8F0743E77737C -D65C277CE90E96A39F5782D628D8DCA18489A2AF8B637090EC3D58922FA938478F2D9DB1F9B6 -5E4E5ECBEC1E3A62B557E9A96EA8FF1F176AD11BEB5D79341E472E52BD8E640F9DFBA653591D -8306FC4076F14ED590E335F49873DEC6B142A93ED7F6F035C0D7F1517EBD08EF7DC4536D245C -C987FE62EE0CFEE8674888B3C83AE687C39960A3452DF70B5CD6F1A16EECB26DD5889A90E697 -7A100C6496B677332CB0583389AB631DCA23ABDCB5DDA1FC7A9C43182AF193E494C1B16D9103 -3FD14B1BF663C90891A291B3A3929F9D5BACE459DF02DB25716DAADBDAA24B0330A7B89BA213 -023C1F2ED9562360AFA56DD9A78D4CA9485D861120580B5A613E1CC6C4F6E0102802B4D1DAE8 -BC97EE3666196D49A6C38855C024A8033A1F64ED2F29356B31D6E21CBDDA27144154D081A95A -D267B4ECA6FF1295D5F73A4329B12BC4A277DB7ABA077B0A6C7EDBF53F81F3779498C248DCF8 -A3DF110B92DCF74C44B1CE55B70C7AF42489C7A918A9831A7383738FFF47C841EDB2D298E57C -526BA87ED37F0319B35BF1CE08C11D0EAE43B7C2030F6435EC1E190D0F402EBF73613647A93F -AEC756FA3FAB88EC1B9E24B9FF2A155CC4AD796F1B1317378DDC286424F1A490C2322DDC4473 -73A26F3E270B992B83B17FBEB8527991D5AE43285BA3C012A86AEC9E212A4180880D937DD2BC -4C9F8E3391BBC6E9631A4BA5F673F65FD6BCCFC2DED6D40233F4E46A79C44255EFAB3BF196A6 -39ECB0618FAF8DA866DE75E1B802571A96813F9F0F4407F04EC1B096C5CF02057C2BEB534A69 -83976894FA526C09E9968AE07553524E89FA8107D34E67874F80DF7D191EFF2AA95576007738 -BAB5AE2C34B56D22E1A63761D1D233EE5F5DBFC27F55EC24CB9B607138DCE6B0E1F5B7C1DCBB -DE670C69D60461B3A53CAEB236AE531DE2D9E065E9F5F7D3FB79D7F147CAC72F7EF542AE4541 -92F93C57A52420A2C1FFAB0B227FBD78C5CFCD23DA43AD0D67024ED9C5DFFBF64E25E3418EB4 -0C9AD59A3B8B55D44D45CD8576FC231CE5BB47D0825AE72FC11BA48A4BFC5ED60AF6B2767193 -FCF8FBC97A23CA4557BB1B58733B9A8B102156EBD4884452DE7CB00C563E8143A7D2AC5A0DB8 -3256A524F99844E7C1144F2DBA6094366A48F17E6BFF7B5C9D7F941F3FC00615AEE70EA7A1A7 -94CBCACE6879A5EA9B93A6C130458F0F85D50AA4CFE54D122B1654155D9616DB845E39F2135F -EF1D4A4F24770F050C1678F95188FE3C0DD69EE0E9BCE29406DF9BFF68E019784FFA9CAF14F6 -9DC3C1B7ECAFB32AEF009BEA2F5160E5B21D2D19676C27D3D3771255737BC017B9EF6E6792BC -6A2B03752B7DAEB4AC336F311E26E29D2099F8627118EF73E530136EBA4BB5738948B5704DE5 -D0794F2D7A4F69C65C4DBBBB9012A27E7EFDA892EFD728BCF73FA3CFC9161D0BDAD61A017712 -1558CAD383BE9B68B13CBC257EA34AE5686A245A8D0F60E3527E83D35EB97015B1D0F97D52F4 -F744290BDED41E78EBA771B16D8B067D209BE085B6A63C25F7BA58C48CB829BFD86118425763 -5882D47519A3187F988F2AB0F929C7CB66CB54F4A690EBDBAAA83339DA47688A1DA4F277C472 -894F320247F940158FD4A5B3D0E827B9056CCF61948C98380C3B3CFBF834483F8FA02BD61AD4 -BB94424109437CA180DB476F8EDF06E4664A368A55BE1641E8B85174F47086C570F774021371 -EDC57D5F9BE7F111125EE2903972058FACE785F0AA5564DCDDF9698AC96AFF030DAB68858AC8 -9F7216769BBBE1CDEA9CAB97E240298321AA70CA3D4B50FC2B7EC73CCD00B44931AF14087FC0 -4220896E8455DF9BFCB4627A4C8D20B39709D33BA13BAC36D10086200307227771B0B9D8CEE7 -D97E71E385B831BC569292EEAB5005D4503E888246602926211D5D6F5147BD8B86FE1F4E511E -5939E9BFFFE810F076D007BB8124DBBEA963687ED27EDE6E13B33755C74658F4A61342C72AB5 -941A78218B6FE9462B1B10CD344418E555F69EFD444C7A0475E54D3DB5B9D5A0495CD68B5536 -0F5B88F48073CEF00DC1D05E6909A99A2485E05950EA774A82ABD057408364E5E3F0328F6D95 -099067CE01163B840ED20BC47A520F52CFC22D58F3E12472F435C8044594DBBF7A6476C5F79F -24E93BA8C0E92F4551DDF8447E2850D4AA27F68D1C8D1B008D58F5D6034818F1127D06BD44BA -1C7DE4E9765E313761BF99138B75A63AB96C5B85D485A3C05FEF66A10EEEF9656791A483864E -378F8CB2B83F7F72D4A8D94C52DA1AC210CE97E95E096CD961B39E8897BFB1AF682B45500412 -0E54478BA58A3C874E6015876B59B09734DB75826CC7C4412A77440762F8069D2A39560351F9 -EFCA2337357F93DB982CE2A651FA329AF40598E400661E4A67763ABCC7B057764FDA98A9A9C8 -47FD8B4460B3CD4598DFB32EAD9018E022AE71898004BC4B47D045D87931470B29076C0C2703 -52513FFF7B98DC6FAADD2829DAAB1D76C3A08F52C69B0420754CD207C3121232413553812932 -B6F6CBBDAAB9F64E2F5A5FA38FEB98E71AAAB01D07CAEE9B9C9171F4AFFE39BBC306713AF6E9 -692D5C7235BA975B8DA1116DD1AC3047A4642A676E8D06065CE89F1892B22DCC2989E240BEBF -7B9A392DD9C3130CC51F512225D425D1E1E7C4EDB035676F1A80DD965B0EBCA28EC746599445 -690BE5AD95DBB484E0BAD6D4A21609AC2AF79ABC77A6C2184CD0F6219BAADE0B2261FEFEDAE5 -2A77ABEED3CBC7E72383529B40926057CFE81489C31C2DE72A9AB21D16B7DAB917759F8F0F0B -7B2C0BF95321A2277232ED51CF1D1172F10B9917CD600D741CB388BF7B7CA1270109A6084901 -C5FA4EE47C7CB6F5021BAAD41674E6789492444655E90166E2EB6E8086055B29ED0A1F18C567 -CD1BE1318E803D0B921488163F58420414CD43093950CB00B857DCF98BDBB0BFB44F079C1969 -6539B4CF87444864931DEF7419B25E0B504F0438A5CFC607CA99D5496D19FFAB15169826149E -6607E9903794670F712E8796575186FE02F29A08B5EACD81DF8F4C89A356B84FC7F6CDB3BB1C -A5AC347A6EC98D39C8DCD7109786307880534C079423D7781303F83CDB8A8F478E039978BF7C -6013E2C4139D83C8EB13196D38933C4F24644D2B97918B7CAB5BAD1662871D48375F9CCF2074 -46768353B4365D48E8D37CFCFC66A3D000A7C470B9CEFE9618A479FCEB843CC3033E22024047 -420CE3FC5D3361DE5D07FC8A4301BD510B39300A2B5274BB65DB46B835C0C44A3802899FA186 -DC4DBDD38A5ABF26D406BDF1FF98FD955DF11A56E7E782DC26166413F49A334BA994D7BCF5E8 -06BF7069FF9C54A0E28F5FC460E200BA9F74226589FE6BC6D94AB567BABFD952ABE3AAD1768E -823251F62D9A2C1D8F193B5A40EB0F274C2BD8D09C5E192C22ADAF5AE074E085205665F38808 -240EA588DE76A39AEB0C4E1C7F73A1FA891ACB7C7DD382A9D3005AEC80FF2E6C8E3C2A6E3A67 -3A2C8D6960586110E460BBA74544401A2B6D4520629F057974D321391BB13066F1E81989413F -E645038775F07C7F3CA12556ED5ECFB2B1A647A314D495EA2F7E24B879FFD5ECE2174956751C -D83619BB3539280F823947AF18C0AB3EE7A0EED871B8E0505026167A6E5091E9CF4C812CD918 -0F26329A28C472CCCBC55FF7E8D10A970E6074067A4E7217621409AF2D915E7E07EBBB793A0B -71577B645D6A5E1C12E97AF2F5824925F6BFC2EC862764539C7F948235157C0FAB8B7A5F281D -8D9E4577450BF9AECA6E5004DFB7AAE997DC7244DB20A0513724BCD0A15A803F27F63EA6EA75 -77F2590E421948ECE86A35089E314997C0EDFDB09882CA50172117812E34B81968AF3FD75F55 -DC8F128EE6E090D52C8CCF6B91583B44877302449F9D8EDACC301337E7B41CEF93763CCCF4D0 -0C339C22E46AAD558403F5B0DC943B45CDEF12176F44AA009DC1FB985090CA16EC6B7011F264 -565101BB0078C6CF3E8EFE35CC07B4CD3B066CAF719A3E0E375B143619719D30FD2CDE0AE354 -58AC66ADD10BBF9178B93452020A4DEE41A0CE54697B2F3A11FC5B669E69BEAE2968617E8B75 -58F049FE92731E204F6E4EAFCB7722C28691965363AD5E45B5CC9B860570FF3004DDACCDC7E2 -117A55A2B789BE39AA60318246EBA230F0AD42FEE21CB6EA36AC1671A6C648DA350ED78BDE08 -912EE8ADEC5EA08822DB4E554A30122F74A7A843E261B0825CA9D80DBB45E53F2DD2A6ABA262 -75F14814550A5CBD74AE0ED860F7B380C9459CB6BE57CF752BB74646CD7295C057E8D9295C84 -E02D81D70CEF320DADC361309B09C837727D68B505B17659C11E3ED9E435D1BA5A33371E8531 -EA43E43BBF061D1640BDA8056447A31FE42B40AE9CD859F994FFBACDA1CA49B8E4FE5A967BA2 -626B289CBC4A5DAC4715A33618DE99F917E1A8D14AF2AA7778DB9A10CAE8B336F1E0921C36B4 -6E7B6F7AEEFF0711265C862100F631794FC36A43B2E8262E222B48E4AB6671825A40384B9FEB -A314B08455C448ED57C38BA61AD460495F2E3FE4F41D7C0D91AA37839C7E3AF784AC4D24CC09 -1E559FC68810E8A90F870D69716596324AFB111930D3A0741358D2963EE554DDE823B7320A18 -C5530A1BE5182B4F95183B941B577C2B8192173FF64425256F83560DECE4FA3ED219C78A4985 -FAF876B023D0528557C49A579493EF868D2A0DAE5B36939D755E1F7B9906719551F5D6AAED9C -E049C3B5F742BB5D8422A1A42FD3B30CB1421051D2591B6454431462397B6A68A019414A29B3 -4F0DF321CFBBA51021C6156865699B22128042946DFA8C013DD071C8ED37418CED3D591E01CE -F148C5DDB045F77955BC8AD5ACBF63B1A299F2EB8700B57D5C6142828E73937E4CDECBDB60A3 -2E2215C59E566F5B0F489D6A09B15662B395DE4C2F0803A9BA67A620C105B42CC663154659C0 -46D5E2437BFB015B507CF1D867678A7F4674378113F6445E6A2B2125287D9B899C534A533C24 -75B6A729D536AC5FEC2823D9C6BF68E2BF3EF00629A6F70A18A6365A5D5D66B6C9285B1A9B4D -BACACB1C3CCD416C912E51395D20EB10D19D2E9604B2B3824799C3B9B497C541AA060569770B -884E002704BF3A4BDCA4F196A409CBFEA205E7A1E2DD427718E363B8B69B6C7B5EA4C10ADAE4 -D76B99B956A7D74AFA5980D93413ABE28872294537D56A9048DA815708110F938C80363E4CB4 -77238CA42DED56B73A76FF5CB1D66B41EE52ABF1980471AEE24FDC29B461B0A5CC1FBE19790F -80EF27135BF97EB7259F1A711D71328599891DDA9B35F7A9EBDF4A3331E5E27332E5E230434D -41DB5E15F62FB01888015E061BC2AAE3331F986C8A39BA1CD07010A56C643BDF2C79C606D3D1 -70DFB8195223317C5830FE354AB1931170D999E9ED7D5D4891E8A585DDC32ECE5DA975B48BDB -A637CC65EF1C0B0A94EE29B8C958D0A0348A00B0C7FD885FC1ADEB1459AA4B9702471079052B -E84BB3B09DA0DC990563F2B770B64B911B452D3A7BC88160A4BCE0E51045B5470E1F57C415E7 -40F46A50E3AED54DEEE670BDE0278BC36BEBF80C3B0D36FAA9B5041F9FB826C1C59EBDB41252 -D2528318609E449A08FDDB241769B0618CAD628C778929638C7A1A9CC88E38FE6A65FF0D10F7 -DBFFCFE5B0E293E87D957A65AC50312971623C34605CAF2082D1443A5B1A32B5A1095176B13E -B07068E096728D1C1DCF1B6CF406F81DBF0059310AF3C6B02A6820AC028BAAC71A72D8BAF02B -8C2A15ED620948B5656ED0321105031D98544EA8EC24AF18102C2440EFB9239E3DB672268FF5 -2960692F23CB278DBE285E673273827BD3A1F4801571D47B397BA6A7E8904A544EDD5E4C7849 -1DB2A8E8623D9E329CD009333ACDBAA19A59BA7046E2EBB5D1FFD37399203AC02FB28EDD3A6D -70A05E8C61558AA2C9808E581A5E74984E3F93A98F987BEF2A746D4848B2BDDE68A2FCFBA016 -851AB784034217616FEC41DA035787BC3CACA5B7A962496E5B1D0C32785B98B3BF52D599D809 -5DB74902154F8C78A22A9330ED6D7744FED8F41946DADA892FBEA11CB74FE1DB3446D7E41297 -2BD00CCEAD384D2BD94E6956C1DAC6A4EF93DFF118E51D8510237C367C41674359705D20D906 -FC7C351F958EAC307F0B4019E9DD99FF093223946769DE3F96001D4425A17EFEDC1457282FC6 -E3080FAF006A789908A0ABAC6A3759B95F05C9EBA2B0FD127AE098C702594F82FB1BFEA60834 -21E62DEA2FE771509991D0D869EAFCFE160E8E54EC2B75961172C54C878042BCC298C1B52CE9 -3FA93AEBB4168C9CFA456894748EF379ECEE26C06FF1824EE588A28EB02919CFBC2E47FD827B -4781DADE43511DC2888799A46E0C935C223F0B7DC700ADD76474F70834A5D269D350A2DCDB25 -8EB8BAD71AC98EAF09A32B3FA0F8B7DA10BF7FB292A0CEC93224B070231C6557EBC612072E87 -FBEF1ADBCE20364AA2CA2F281FB981846FACFD187E9B3CDA1E96A431E8476018D620625C1446 -3CBC03F23C903BF9170BD5A98516C3EC474E7E08F169A5EA07208043B0327637ADEF4BE12069 -CD7A6E502CC439671716EC8590E487E703E958CFF55317F4855154534394D2452C53395F6FB1 -82118E3218DE9902706C6D01B1F5C149B1042E9CE966690C88B8E3AAFE1811D6477BB2888016 -8D11B11DC8EEF8F069B1E946AE61B282B753BEF0D10650E74AE2FB187B1062511A6C509F6E99 -B36ED623A9FE68AD89381D99F0F37D3A0F4CBDEA963B3FC14B8D2004835FCCA46B6D043169CE -414E9EB4088E213C10DC81D9A35D1E9CEC0D9A189EA0A43EA84665D9BD3566D097EFA5B238A6 -2825DAB2A35E6B2B6F8992BF86463AEF4EC625EB69CBDF54AB17EEC2184A1A5712FEC8C987FC -9CA94B75072A902A24DAE259D98BE8D361BD911AA648F6FE6DAB900C4E369484A4D18B60F4B0 -8A2AE9CC9742F43168391DF6BFFDB71440D54F10504B85C0335235FE866163F32FAD49FF7205 -5D6C9DF39433E3EC5EFE1BB5C943A23BC819803DBB75EB89B7A4FE11E896D65B06FA5C542706 -B3D213A512D95453D86C7303F79DD4C6B00420434B1B645504FA298C440255B9F7326DB39C93 -83B5F419D6272177D8B8EB15CAFE7846B321415ED8E9F8F72175E05A8113145A8D4E1358CD7E -1B2A183D1490BDAB26AF2B3CBAC7F1429C4FE969DEE1CED6617643876E2B8B9AFEB9E2A45999 -C825722325F3A31F6980238828819897AAE017CA8FD4FA662AB4E3A1E73B54DEA8C73365792D -110B8FAE5AC458238872BEF671339F900E866F61F5E298455D234BE1A2DD07CDFB74F2171B08 -11CBB2E028367A3D805D2BFD111F4FC8826455EB41873B48C3D8FC019184A5F8E6E376CB1709 -A9BFDA9E182327C6373C5DD36B25C9A82B74CD63F0792C049B8A24DE766F20C3EEEC57F7216D -5F4DFE6DEE9277508B9CCEC61E0E494DBA062ECA2A494FF9BF74D0EA7A055ED0D0E7A0D64067 -1CACCF934D07CF80DB8FF07901BDC413E95EA8B6DD3A40DD75C857D91C49630C097E5182EA3E -D101B630EC7F4597C4D901A6E52581FF98A7B816ACA14A443D54A8435BF7A24CB3B34A365E8C -70EB6D01EA839C1E871E2EDEE45B6D14EE77A07C589A8607B0E440FA812F13984F01F5699EBB -A174B07637B7F57B8A6F71BD82CC4D28CCADC3C8395C473B36E111D6688F2DCD425EA2473D72 -FBFFD14890D0EDAB1727CA74CC80D00369F4A0D0F247234D283E205C14F80D56E41EC867F2A3 -4EB79C38F7365159736D17DEF8710E421837335CBB7627246F7D416BDC73B56BCEC6E86D5C40 -E5813D8ED159159DFAA0283316CAA8C6D54527A6CA64A9A7AFA9853D5A86AE128906F7C735DB -90ED0EA84C9A86847958A71E1D44B5A7F8A47554C1E9AD0667D60A709C5D6123A1FD79E10080 -6613015D80758293992F996E98ED2DE28546E90AD5A46405DDC56E9B29D199604C8EBF506747 -8034918FB76FC2FA11CE827C96B6386864034D1A6283AE764DBAF079F44F545736AD44710AE5 -A9E714E01219DF30CA946467FC69BA53E146FD3DD9D9D87C27B842BB0F8192EB92C812F443FB -6ABD88E6B8124655C9330DD62421F13787B72FB41B4602E06157DA7F63916D44198544AD6B2D -9482D18131D4F436415F4563D3F7A802A426287DFAA49552D6212E92FFDA1A00EC1987D64A44 -4A4836BF6B82389093CFC82D582A570E7850B87F26B2A9D4C01AA8FC7BBAD0BF39D312F5B0EA -BBA60027214EE07511EBA25031A328EF4DF222A3F8DDB1B44331233048FCE0623C7419EA0FB9 -781E1AB797E481B97C803A865FE6C164D3656E98345725DD3797433B178CB994F97098077761 -CB040A80D29C935971D1FA2FA7F8846EEC29CD2E3FE34B82373ED542A1AD741759404CC83304 -F17D2BA86C68C64A73A7666EDF6C22B169C56972FC2AF392EBB6EB322D34595F3A3E6DB94D42 -D25521DD4CDD65416A09B2EF33ED7BFE57CB04B07317883B63C22CEEEE886D0D521675065483 -FD36D8D312A4E5D379153CA3051F7073E040C72D05C56D5A707AEC7AFE9886515FEBCE61F309 -B90A2BA377B133ABC95641B4862E5BC9C29CB96D1282BCD72DCC55082D4A509B52C1F8D7D0F2 -73F50990CFEC7BAC8FBFF5AED6F12414369835402814D9B0BC5421EE57C5CEAA9738C1F18DDE -63ED0FC232AE40050C875A548D48512565A92983525959F2667A57053923FB4208E1EA0BB062 -A3F8CF6C311DA9A14AF2E653DFB14985D4E06B3C540A2FA0151CB775B2C864A87605312793D2 -85CA5C492A774D86F28BE2FE1373DDFFE877E1B316F22B0AA16B695382F328251507AE26F72E -31CD3C618CB5EE392A9EF28CAC27AE530C6A78EAB3DCBDB478981CC558F6FB2AD75197D0B011 -B7B6061CFFE8F3A0CEE334CED4C298FA0C46145F1753D1106DF98F0D1151267E7A1CD9677B61 -C1829C639B207BAE92CB11F022882E495E1D461A1FFA9FD3D5030379FCE3FE40BB4351E99C10 -DC00558A3DACDE5EC3FE4F9AAB3A0385C1A9F11AF6BC997C798A60FC5C465EFA7E97365514B7 -077038C5FFD7E478EBB9D183AD642A769EBB72B62B203EE621D6EFF781819366D2B89D61A3FE -BAAACC53D096D942E3400056603C9C47AA9D6753E1FBEF66AC7B69DD6DD64B5B071CF0EF23B4 -35109234CD63CBD30D643B9A2F59257CC8E71EDB1B6AB8633DBCA471DFF31E4D9C3938801AD1 -385EC97331814B14A6BC21C27423B137076358B18B9D8E67421F9AD4ACB85D8D0A30433D8EF4 -41385FFADA22AB559E4B86091679EF92FA6763131260BC3E791FA713256A370E02BCEBB9B2DE -DF308AB3C9773AE1E05950D88934516BDA8EC5D514079DBD923394B40A6A3945AE8AC61B4D2E -A0B0BEA67F3225EBB779FC156B50F7DCFAC16D1050920CD7245E62ACD7A4DC90B8AA9D201245 -19C3C65B5829885142D0E66296120C839B3B54A2ABED2E23E1C9A215AC887257D37EEC08E2A1 -69D44638C9F1177566AC57C5DF88FD8DE202E9FE0ED0CDF98485A24DAD30001BDB68FB097E58 -CE66EADC4020F94F185A852869F8E5A207295D22E8D1BD7903FA1CAB24B9DDFC1AF5EBE857D3 -7FF71B89AD208FCB5F17CABF755F66680DB88A9880F0A34965722A40D458BE2984EB136ECA5A -A0CDB07C132D046F46E5CE66EB80E65A16DB1015DD5EDF6C2EBA69956FB4A9CB3B3338B2D9CE -AF8412EA634A101D11A2DFDC01830B2D15ADAB3BAC6B54A1D1FF3158BF41B9A8B7A28A89649F -FA12AD001AA6D8D0CCC5324F23B1B481D05C69088A0ED638E177BDD9C91D082A511B201F3F6E -2D775E1499E1CB5B5C348E896EE455C7D0E74E859326D09F7BA15A497DAF374737BC04A71A62 -95E3780066BBD1740F8CF08E3A38FB03DBB4A7E8CEF97A294E9274068A3AF6FF244463C0DA21 -C7EB54B6B17500B9EA6C0E5D5DC18D86223268B337B7DC54EF656E227696FB1488C68FA5C340 -F745047D35E030164AB7A27BAE33FCC6194BF4352583D6B6CFD65259354A909CAAC1F876A00B -4D60994B9841785A1C9B7FAD7310C645871D9212395A72405DC68B7840F28FEC0F7E7A759086 -7F11D56365CEC69AD70F4D0A461493530786AF49F256B81A2068A6EEF35EF1AE5B2F63A11B5E -6FE71D1BD0E0AC09C5B4F3268A8831F3C5FF6E88D0C5B6B01EC06053FB5ED9BE52ACFF8F6A42 -4B85075F8A78A3CDA59EDE3DF7719DAADCD00B8B5C55EDBEFA123E4ADFA6012D88AD19AFE2E5 -D356B44AD356F39EE7F195DC6ED2EB550B8A1F66D4720DDBED6B73811C357D2F698E84BC8E0C -67B4367E8E6A2D815FC69BD6814AC948F59A822BF3AF1C0A592AC1DEADD51F6D2D412E622C63 -851A6259EF81A133EF23E6FA5DFF10EE557AEE4B5A4FA7419264F16AD68DAB44D0A6735293C2 -5AC3FF6A73F4BFF1CD5123659ACC2B6CD1E1F2E1D1277027C382C9573BB976427205CB828550 -647485EF45B6BCE4DA2B3CC5AF7B3A065E597926E71BE74D3493E5070F171FD6ED567BD3F7C8 -CDCE8AE75D39E4CAEB1AC1A9DAFF068B9A43DC1F1B603642A7FB1AEB0C8B9FA79D70B355484F -358671987BA92848BD435478DB919CA991FFAF59B264A2C96C863B7488AD0946109D894B163D -BFB9442339B4803BF4A57A52545484BECBE429E700F0F15E77B3FF03CA99173506D57998A8B2 -B4BEDCE584AE7A062795FC64601093C08655D70D6B99E618BE7A6582380A1974F7F6EA24BFB1 -ADB6E11A0CE753B2410755511D0F496BBAAF6EB132CFB2D1999DD0B77D543D521DDD0ABEE2CB -384A94A618E7885279B850D939010F0CEEDDE18FEFE1736319C183D30D0EF7391C4EF8662C00 -43658302E3D8D394646953EE6C07DB3A7BB8C42E89420ADE8FF135024A347FFBBD606EE30719 -E8B5FCBD64F6AAE1B03D8A82D7E72CAA7E0411FC84A9E76E909C106FFC54EFC06F8AA423D743 -55F91B26D91113517E59A73DEACB2BF6C45F1D04079DAB48684F5DAD61612A4064B06A5894AB -3073B72CCBFC22B0C470D9C1FF6670FACC49553B420C4699E9279F01BA58C31953FF680633BF -14D077A9F7ED61ED11F4D4C211E1FB2EE5BA1B9514B9B9B63C5B82999C56A54234D5E13208C6 -89333378012FF9A1B3827C2DEB447EAC0FA4939A551F5E7C8DA8C670A2833CC6DCE4921A8192 -25B410FC3BD398E883A2DF072109E40429666F442C46729932D14B326563F9C48163F9C869CB -6B2CC51895DD96123BB4B986094B89166FCBB13203D1340436BDDD8D6042ED409850F155B777 -AB69EA80976D8A32582996D1F4946B081E73D1099B910F6E5B4792F73DB343C41C41653F86E0 -80B835110E2AD4AF01E49B491F685F38BD1613D45DCBF8DB9049D41EBF461F8680E6DFC3D356 -39A1066CC43F7860719479B9B952E1CAB6E12CF09E330C43F7464B2A00600056E4C7838BFE01 -01BA31C70B3D93C7BE1540747919013C95514EEAB802840ECE2CB5895B686D337354A307173E -91C18077588B903C1569D7B1169F13CC5523A6093BA765180302C93FF67C3F9CC43C6D4588EC -996E91C808B44C62AD1D6B98F6AFECD7066C5A7239702C020B5A4AF1C0A28E745C0762327E13 -536498E38BA577B23FC20653443937ACE41F8E39B19A6C338E11DE01759F2659AB4A7371C99B -A6F7B1A830FE7664B47BEE8515EC2A5B14E82BA9AC2F84696B2205684239C90EFF4E83356712 -6E4113FDD929F2927A1BF75AB5BC45BB6ED5EF8D092553BAA20B92BA76BDEE3F691151689103 -1FE3F4F61697C822C66CA958481A6E4A13664030D28B4A5F4DCDE0002736D97DA222FCCF4C3B -C57E41415674F24F255DA721BCAE8D7C7C6D7852880C74D08EB23AF7E0625C6F48A70BE41F70 -4FEB7ED9BD073F5E8DAC6910F02304D98343FC5804F788566265616338BA55426C1752666D3D -EEB203D4F8C451D5D85C24DE4106073E2F96F443B5C7C83DE9D258DAD0DF629292167E490A6B -43081D099EDF50ACAD7B96AD421340C297A0D6C6BEF6615089F19A0346CC764D85249919D34F -EC411FA52D98A6BDB5D5E1F54521B42286509BE275565880EE90D5B70836A24F519AF03838C0 -061423CA45D506E06117303CAED43DA668BA9F47A72D2A60847FF0B8933B6F257BB5A947BD81 -329C8508251BA1DCC6344B5A58FB25F2B7A20B4155F1D14141DB80663365182075C6B1F3D419 -9BA52FCF4D3DA93CDBBCE2A06AB83A4ECDF636A1DF7B4E8F4AB90012B84AC44A56E6B6347703 -EDE66E6557E7BD72F417AF52A97ED38EB3EA6CFE0697B4E2BF71F2DBA26458F4B345CDD86E91 -AAF536870B01B4658DE292FA62D0D4AB1B1FFFB4936912019378F03BAE6E95226B9ED108C148 -0176D236059D0F8E87B6D9692D1AE9A285CF1A158D13F55A2A5872AE78267F006D8002455A03 -E7E2302246B6E6D6164FFCD21F6424111209267E0EC13E5C08E0B266885116A10AB8242C1746 -15F16DAE86571C1CF483D24F4B9B980CBC96C367EA1CE8F9C22D46708A7F522ADD6FCB19A991 -CAC5A63638619FFDA45687E5B93312BA441D5249FD29DF74330E081C93BAA47A9AB8D08B6A26 -9544DE0EDDA5DF43FD85386A371A2C91106C656E554DF80A7C57FC4D0B40C71EDDC66B76FAA8 -EA31304659E3B9AE3424A92FBECB1DE1CCBA69ABE8CE9A54AED8B754AD4939B499746DA25202 -8735A6A40CADA547A013E8DEB3412AA570741B6FC667AED6F87D225F82A24FF47EFC3ECB4175 -E7D38871E4425198FDDF3E9754E66E4149B6013BC42344D03F8A82185F484CF91F53BA18CC1A -FA520391948A0883BF58156867998F44D355CAE87857AA89E911D0AE6C2943EB1FEAFDF7812E -7B36FB4F97CEF78975C26A585F5115D3A843587FC3AEB46F5AB6895242DF2DF15BD1D153EFD6 -99E4E9ACCF8CBBAF51B7DD2D7615A06A6F866F887C0CD5E7888663D02E4BEE9BFCCD56800B1C -F6DBA13B24AA58EC578D6E998E53DFAC37EA800B9EDB741EEFE201895DD0A3D4A0A1FC672C70 -DAAF6AC54483E7E1A1E52187EB83F59D984D4D3C890B35972C317D2B269A9EF9E2CDD7A1CF78 -E88207183522D3C760C154F02AB5C56687E1F860E07BD7E438C233EA5DC787B0FC888FDB5249 -BF19EC00430BC11684A615CAEDB283BAB8F9B63BF640059DE8D0081E689A76C3823DF7DB6A72 -73C3CFC2ED589AC4089148B5382EEE5C792877DA2A2BB06A86A88F9F480FE79DD930033C7CE5 -61041B0D2BDA29915EF827118D80ACE7272B44D2ABBE06B0661D4F9B2DC474EA8120E707856F -6D8D3614D5398D59243883D708563A731543AD05F02C6F1C2FD5739109CBACFD590C87A906FB -C4531FB8E82828FB8D41ECCDFFFF0920F3982D46CF0F02EF5733DF6088A9F5C7E435E51FE923 -C078F4D9BBEFC195FC586B48E709F3CF293493DCE0A461EED5B4E9229625FC8212E847522E39 -0B49C7797E5ECFCEA95371B5AC27796F54A4210CD859969CBA453BF5F0967B82CDBD6BC41789 -3449A9D24C13B677F3F416DA649E5DC68B29BAAC2568B8B702F3BAC8FC6992D7C909EE5332C9 -6E72E462255CC731931240630EF31504F5E7EE000C1D3E48C8F1CB78ACBC6AD3CDC68831D5F0 -9A4EB30B0FA54A7F5E9B7AB65C420559F1FD81A9B4F46595DF026A379C28F58BFC06EA3F0AC1 -94FDE6A8F1AB8EF99FDC00023F4A051819AF3CE219E3BF7A615991CCFA347FF5D1BD64369335 -663955B04AB14E71209E70CD3102E22AE797D6F8DC00FACC9C743357117D0A2A97CCFC804C22 -CDEBDD1AC312879FC3EDF78F0E09B474D371C4FA3D57BE2196D0B9644E8907687BA73ACC3026 -E30AC702F616A572A98E7AA306356748CE302B2F2DFA39E402EB8AC9B741071BE75C32FAD5C5 -FF333B2B451292AEE31D4266B69858C12B8E67B9FAFC21690BAFC5F736F63D9758BB60F89412 -92175ECD507DBC20C7AC37A6D9E49F8119FF6356B6942DCA2C35DB77317299A3AED6196D184C -DCC8997F51C5267DCD4E62EF1DF297FBE318A4A09B4FB096F9C9F1C3F55343F34867A6172E98 -22AA5EF40C3433C79665B67B23CF0BC2B7274BD2FB4538202127A00716FEA4B7347F0E686FBE -035ED85730979AF0C23E2980E13BCC7CA0B2A48291F051DB2AD3923ADA6CBAB1AC6122FB565C -92EC51A02F5E4DFEF03E418CA0DA6E541B2923427EA4A8BE34C28425727B47616C3A29A30846 -454C6518748C279B0776B5B72D881889E24AD830601CAD5D18D8F2C376E5166FCBAA6DCB2DE6 -26910CF4392B1B32E763AB843F277947B74846195E0045949F9C26FA638F92401CD6F00657FC -3A9AA61D91C627F1CDA04A3680FC5CF5C092F9BA91B5E3D4AEE72989344688AC75E71BE2972B -E84DCAEB0834B89274B67E5A4EDAD8A5189FBDC9D548C350C5B187C3AC60A773958EC377171E -4FE54BB6F90585C75CD51E145DA5A30D276B1729570524A58699ED6A6CE52B7FFF9A2D440263 -4EBAD4E82B4F3A29530DD99674437BA253C37661E794988CA289BD724D174D2C286DED6A8C24 -F6F6D9427942EB149700FABE7E4895FD32649834CCAD24F8C5765D97583B050D352226C2171E -033CC03054CBC4807CE2078236088D6D0EF6B766A09D0A33B64E6F64A06C7AF5F0679BF43926 -1EF53D848BF02C4A0CB46ABFB9B73D6966289440529CF73498968E0596870EF8CA65BC697CC9 -E02A3AE1D46F6A8A2F7665B20F1D26F2AF297FE0D23884B575D19F3DAAC8C59D52D0A9F82DEE -A716B7681DC2857859901570F600FAF4FBADABB9982F50A1212222E3FF1BDFB08259DCD32C02 -54E7E890AA2A7913BFD0CA8F64E7A57EF9DD1F55C8D157D3C732BB32AAE498B365A79A7CB1A3 -EC9583E33CDA5C326394239C11780C7341807CE4A8CC4516CBE0D5F209B45E6039971F602A5A -F82D714A52C65F71C4D2FDFCF9DD771FAA5DD0BE0EF91239E3AB67E6B576FED4C3E59473D96C -782DE21C55E8EE3B50B336435F1321BBD57FD11FC1066E5EEC922F4D8E706EA176374942F461 -48229A3C900FA32AE6FB89978A564C7E091745571F1FF324DBDA03C13B61BFEBE8C962700B35 -E97F6074AFEE06F8B6AA4E39BFE7C7C479405A99EB960F202B9DDFDA7D823EC418EE378FF6CC -C776FC83C70FCAA4CE6626914CF700694A9ADBD2675F922700B5BEA421039DDD47125FC70BDA -9815D8CE391D68FFE8CF6EBEF1AD4269FF389603B7EC4C3017DD14B4C8598320B783EDE35742 -9267479BDD236E019990A9C1CA406DF3CA255E785081EF37096EE385D851626ECCAE4D327712 -F7EDCEC8EFEA7F64DF7B03B8526F1412F1A52F19C67696280FAF3E3241D2A98C925E2D6C5A5D -9B47056C04676A05ED4518A9C540BF9D91EE7112ABA98312DA5AF4EF9E29EB481596C16ACA1B -94BFB1B919EAC9B8C6D080B18A35627069B9FBF27C950B1F579395C299ED897BE0F474E4F44C -655636B1F41340EB97BAA2AA01ECBE244A9EEFBB8A1874B302066DE05001C060E9009692054A -AB5691CF8A11B46FD371C4043906A5A6BF7E9C59B1C97E104F0F8085EABE6E15AA475C6532B0 -609D7090011D27AB62F07A32D87EE47EEA5746F6956A1053A5DEBA698808937C1512212CBF0C -CD61D2DAE1923EB2258986102639D53D50617F18B258F687CC49991070857DCAC52384AD824F -397EFE8D59B756662B992F6B1A57179BF8D46BD1BEE301D809BDC5216280187059B0BBCD61EF -195627EF106DC704F606DD30E3C62F1D6F6927FADA6DC9F98ED6896CDFB0E40987832F9D370C -CCAD96DD288E8A5E93C184B05BA7102F412CBFAF5370C9FF39487141E0D072B0EFB4B25F4D39 -5B8E7DF708322C9B8035F70ECA9665B5A99E9985F160F37DD736A391069936EA60685DBE48A4 -63CB41F1AAAD947717F9F1CA7A3F45971DD44CA0316E2917EA63D0A6B52013D33451E1C5D9B5 -0AF44A0D955C8A134296AF8F7C46A6C5C47D661E49D01437D73203A46A1A70526349F92260EA -4EC0FAA409C3745F7FDC5776552094FF236945170CA00015260CCF6F304FF442F40AF64CB7A6 -A136F6D5673AD8299183A7502E67FF28D662E03727F14802BF2D4AD2CC3BB4BB6CAD35680ED3 -1D397864E753D3BAD8E8AA300CDB123236DA4241E3ACE1C0973F139F9207176CBD7FAADA7919 -F7B9501577EBE7C0F00BE621A0CA47A5F0A21C1A3A031725434DC5D43E4BC180F59AF3C19F35 -3C89E0FE73AEF8B2751AFB32584990DDEE825BCDF126DBD9AC28DD7EB6C73742996697FEBE51 -3D63AF87C2E5A32464DE9AA6112C0971A8D225A4DF34F044AD0582E2096762964728F4C85EEB -7E541BF7D4BBFE7E9A8751D1005486B47DD6CBA30F83A87E71AE382D3D2F4BF872C9B562B9F3 -DD7081B9BD1364DDA8739F1E99B2F8DD5B651B8865D5657A49CA781DA28C3F4DFF2702986303 -096E62D422988F44F2EDE442433C7453EDAE48BE0AA91A900A3C6EBC23CB0A19BC2B9AEF1A2C -E3A0B66A83136B00106FEC3C18148DB61211E0D0AE7DCA51A044294AAFF02DFD433AC60EACE8 -0C946DDE672037231C4606B446D900411FF88FEDAD541E31DD0E9215334E76C71F0324BC8521 -7E407A14CC1FD99AEDDC4ADE3AF428769EF4084C77443B6621E98F06C54C43FCF304FBFC015E -6E449CAE9536960C7A5EFC12BA93B576C6389507630D112DEB0C163053EFD965BA3AF9470378 -0B30B463EC09DB370000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 - -cleartomark -{restore}if - - -%%EndFont -%%BeginFont: CMMI9 -%!PS-AdobeFont-1.0: CMMI9 003.002 -%%Title: CMMI9 -%Version: 003.002 -%%CreationDate: Mon Jul 13 16:17:00 2009 -%%Creator: David M. Jones -%Copyright: Copyright (c) 1997, 2009 American Mathematical Society -%Copyright: (), with Reserved Font Name CMMI9. -% This Font Software is licensed under the SIL Open Font License, Version 1.1. -% This license is in the accompanying file OFL.txt, and is also -% available with a FAQ at: http://scripts.sil.org/OFL. -%%EndComments - -FontDirectory/CMMI9 known{/CMMI9 findfont dup/UniqueID known{dup -/UniqueID get 5087384 eq exch/FontType get 1 eq and}{pop false}ifelse -{save true}{false}ifelse}{false}ifelse -11 dict begin -/FontType 1 def -/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def -/FontName /CMMI9 def -/FontBBox {-29 -250 1075 750 }readonly def -/UniqueID 5087384 def -/PaintType 0 def -/FontInfo 10 dict dup begin - /version (003.002) readonly def - /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMMI9.) readonly def - /FullName (CMMI9) readonly def - /FamilyName (Computer Modern) readonly def - /Weight (Medium) readonly def - /ItalicAngle -14.04 def - /isFixedPitch false def - /UnderlinePosition -100 def - /UnderlineThickness 50 def - /ascent 750 def -end readonly def -/Encoding 256 array - 0 1 255 { 1 index exch /.notdef put} for -dup 0 /Gamma put -dup 1 /Delta put -dup 2 /Theta put -dup 3 /Lambda put -dup 4 /Xi put -dup 5 /Pi put -dup 6 /Sigma put -dup 7 /Upsilon put -dup 8 /Phi put -dup 9 /Psi put -dup 10 /Omega put -dup 11 /alpha put -dup 12 /beta put -dup 13 /gamma put -dup 14 /delta put -dup 15 /epsilon1 put -dup 16 /zeta put -dup 17 /eta put -dup 18 /theta put -dup 19 /iota put -dup 20 /kappa put -dup 21 /lambda put -dup 22 /mu put -dup 23 /nu put -dup 24 /xi put -dup 25 /pi put -dup 26 /rho put -dup 27 /sigma put -dup 28 /tau put -dup 29 /upsilon put -dup 30 /phi put -dup 31 /chi put -dup 32 /psi put -dup 33 /omega put -dup 34 /epsilon put -dup 35 /theta1 put -dup 36 /pi1 put -dup 37 /rho1 put -dup 38 /sigma1 put -dup 39 /phi1 put -dup 40 /arrowlefttophalf put -dup 41 /arrowleftbothalf put -dup 42 /arrowrighttophalf put -dup 43 /arrowrightbothalf put -dup 44 /arrowhookleft put -dup 45 /arrowhookright put -dup 46 /triangleright put -dup 47 /triangleleft put -dup 48 /zerooldstyle put -dup 49 /oneoldstyle put -dup 50 /twooldstyle put -dup 51 /threeoldstyle put -dup 52 /fouroldstyle put -dup 53 /fiveoldstyle put -dup 54 /sixoldstyle put -dup 55 /sevenoldstyle put -dup 56 /eightoldstyle put -dup 57 /nineoldstyle put -dup 58 /period put -dup 59 /comma put -dup 60 /less put -dup 61 /slash put -dup 62 /greater put -dup 63 /star put -dup 64 /partialdiff put -dup 65 /A put -dup 66 /B put -dup 67 /C put -dup 68 /D put -dup 69 /E put -dup 70 /F put -dup 71 /G put -dup 72 /H put -dup 73 /I put -dup 74 /J put -dup 75 /K put -dup 76 /L put -dup 77 /M put -dup 78 /N put -dup 79 /O put -dup 80 /P put -dup 81 /Q put -dup 82 /R put -dup 83 /S put -dup 84 /T put -dup 85 /U put -dup 86 /V put -dup 87 /W put -dup 88 /X put -dup 89 /Y put -dup 90 /Z put -dup 91 /flat put -dup 92 /natural put -dup 93 /sharp put -dup 94 /slurbelow put -dup 95 /slurabove put -dup 96 /lscript put -dup 97 /a put -dup 98 /b put -dup 99 /c put -dup 100 /d put -dup 101 /e put -dup 102 /f put -dup 103 /g put -dup 104 /h put -dup 105 /i put -dup 106 /j put -dup 107 /k put -dup 108 /l put -dup 109 /m put -dup 110 /n put -dup 111 /o put -dup 112 /p put -dup 113 /q put -dup 114 /r put -dup 115 /s put -dup 116 /t put -dup 117 /u put -dup 118 /v put -dup 119 /w put -dup 120 /x put -dup 121 /y put -dup 122 /z put -dup 123 /dotlessi put -dup 124 /dotlessj put -dup 125 /weierstrass put -dup 126 /vector put -dup 127 /tie put -dup 128 /psi put -dup 160 /space put -dup 161 /Gamma put -dup 162 /Delta put -dup 163 /Theta put -dup 164 /Lambda put -dup 165 /Xi put -dup 166 /Pi put -dup 167 /Sigma put -dup 168 /Upsilon put -dup 169 /Phi put -dup 170 /Psi put -dup 173 /Omega put -dup 174 /alpha put -dup 175 /beta put -dup 176 /gamma put -dup 177 /delta put -dup 178 /epsilon1 put -dup 179 /zeta put -dup 180 /eta put -dup 181 /theta put -dup 182 /iota put -dup 183 /kappa put -dup 184 /lambda put -dup 185 /mu put -dup 186 /nu put -dup 187 /xi put -dup 188 /pi put -dup 189 /rho put -dup 190 /sigma put -dup 191 /tau put -dup 192 /upsilon put -dup 193 /phi put -dup 194 /chi put -dup 195 /psi put -dup 196 /tie put -readonly def -currentdict end -currentfile eexec - -D9D66F633B846AB284BCF8B0411B772DE5CE3C05EF98F858322DCEA45E0874C545D25FE19253 -9D9CDA4BAA46D9C431465E6ABF4E4271F89EDED7F37BE4B31FB47934F62D1F46E8671F6290D6 -FFF601D4937BF71C22D60FB800A15796421E3AA772C500501D8B10C0093F6467C553250F7C27 -B2C3D893772614A846374A85BC4EBEC0B0A89C4C161C3956ECE25274B962C854E535F418279F -E26D8F83E38C5C89974E9A224B3CBEF90A9277AF10E0C7CAC8DC11C41DC18B814A7682E5F024 -867411453BC81C443407AF41AF8A831A85A700CFC65E2181BCBFBD07FC5A8862A8DB7E2B90C1 -6137614CDAFB584A32E50C0935109679E31306B8BDD29F1756946A677A7C2D9BA6FAB9B20A42 -4AA0E6F4BA64C2801C2FB5A1156CBEED0ACB95F697B8BC2A6E6AA7EB1F9FD8E3C9B1A16697EE -1F0E7400421A7765AB218FC837A4936582DC6B2C877A7DA84A81E6126EE96DB25C17A207D302 -0A045DCDAA064360DFFCE3CD50E21ED239D2A6450D04F879A26443ADEB6A20ACC50498987647 -6C7D1A7491564FEA1F4CC2C8C8FDF666DB537F315AE1886C73CB5B00E67E7B398A6C018E540E -AEE98BB8136C4F044EDD63C33431D2CF9740F051DF365A4045D9D8780B70C7991D86712C6A54 -C43144760BEDA30B65EEB62F4488085D588461ACB61EF279C769AB1E279D4E3C1B5B603DEABF -614877BF02ABF3D6ACC95D45DE461DDF0E6499B2C97A7445434613DF91A4122CE866B12A0682 -F084689B93509E745369155DB405B77E4E7EE6876786F4DDC1CB9B24029D3F62307B21766C9D -B626B2EE30472EC65B510C30D845DDD6F48CAE602652865A851952AD5FB02811E995D59EE6A0 -DB78413F753720F5FFF2827CCD54CABA15A00C030F6D0D29057854D59E56E15C46C7B7E400B6 -A615761BA3E42512E6A92EE2A488D8B2882A67745B493B95AA209FB8CE1AA71F922528CAE9AE -E742D63D152D1EB218CEAD8F15AF8B3096999822B9DEC1C22806C0A5BCD2B6E332C25932B026 -A71576AE9011209CBF271AB0A7FE0EA221118BE2D5E79E1DD1FDA220A45A4EB2A47BEBD51359 -E9FFF1E10AF42DAC7C8DE617567889ABC4E0229C3786B9DF756EC7ADFEDAE7D3578E053122A9 -AC544120F492AFF46E7362EF65C820B3CF8D6C977FFF78EB46428B437046C000899DE81A2374 -96066BEB835BD11B188E993FA9DDCADEEE9F92DCF0F7CDDE1612397F472FFF33863714B54797 -28F862B30D228E2891CB0C49D149866D769577E796C9A61372D005BB2D597E77E708CBEA4339 -B478E0660C6E34DE1ABCF58C3D4F70BA57D8702D1258CE15598958D6789CBA279CE314A23B52 -29255644FEF1B5C0F086DE549CBDEF6966A21FFF0132781778E0A9ED75979EB2C94F01F8CDB0 -AE1B76644DF5B75701FA2AEFB02EE97723CE0202F5F303E54908815C83D0BC00144E9C0496A1 -1B9B899413CC07C63543A71B9247F5ECBEC56B001C97748DF931379EDF6306EE147731B63181 -280089DEE9E06DB84150985071F9D2FC61322532A6FF4761037AB3EF5A667E138A3DEB8146AE -68B0D6BAAACA25A22E11F4817CBD1F611D8ADC60EFE2B755D418D0C153237C98C855523A0803 -F58D75EFFE3743C8257F4F8119F8F1C3098739B756DA6A18B7C62D4C00AB6F4BBFEB98D0A881 -CD99C75F1E6BAD865E8B4FB6D93DFFB319B62EA6BE6C32F35A2699B0B9C1674E58CEACB7094C -F94C8877110A8AAE9FCB7D5827CB5797FCAE161EE2598799962197346B98CA645BCAB917982E -E5B633B809A4039553EC733F64B7C4805D4B53640A45D34DDDC265C0794DDD7F0A8DF06EC1DF -698BE7063BBEF4BAE528FDF0BD070D1D25F6DA58E699F728C08726A70FA5AC09B6C22332CAE3 -2DE84DF67E2836C1C356832246EA900DA4ED3B09A4163362136092C95F700FE65CF9CC78F5D3 -4840427EFEA0F36257691C3E5A6DCE94436D5A749416541B18B09266E44C450EF73DADC01FC9 -598ECBC1B060AFBBCA6B3A3F3C3CF0FA78CDC14B2FEDA3BF6F124D9C79D8EA11570BED44B547 -71D9F8790E76EFF519C9B8B344CD2F1ECBBEF59D6B9B2318CDA5DC7844BAE1BC267B086EC373 -83AE7E46791DF0CACF4D40E0AF0D82B378AEC135C15142D2ABA6CBB8372FC79A4F4056925B00 -F3A805FE1D4ECF826124FC791633A92BA2232F07ADE9E7590E747D32191FF4AE9178891E3D4D -2581CBF4D800C44784671BD68D8F92A1D455E7377529CF101608FAFA9391B061DA65231C5BF4 -BFF18BFCB32FF452010DFBC612AB28AC35BEE4CF6705079B70B72F9FD115C23CE65FC98F7CD8 -E65D8FAF547EF252B5DEBE7AD39B14FA2BECBFDBE7372D9EF715FE64608080EACFA61D2F3B41 -304DF1B85EA58A11A97DA6C42531F82F9F55C258A6497D61C44F65C93E0BB2B907F7EFDC51C5 -2FA7E0684E0FF914595E46583DCD148B645C59F6A6ABEF755911B8130485F4668CF2944DB36C -5EA3EAD2C1BAE8A9A70BBADE8497CED8C7967D788AABE51E9E3F2977C47DD36B764CBF39A031 -B9EA36AE3141F4EEDEA465439A2180E40C5DECE4AB47D58F4DDA99B90E1FFE42E04D04A6F0CD -86E8AF942CFDE487E8730F5C3AABF346A28E66EBFE37DF5D308CA49D44661206C924F315D7AE -6FA80E6347B0DCE6B44EA5C9D5B8201A2383EA3D2CCA7283108D8F029DFB9A589E904F7DFEDB -936121F5BC2D98FB4DD045E9CDA9C00BB05A4020D837DAE7777CC57E14EDC9313C11F67FB6B2 -84C3E9270F12956243E82C1BC32CB3329168874B47A6CB1D9D977F23D991140062843538F003 -F7E753FC2972C9F0C13BA2EB071B420F9C0288FBFC91ECBDC2A178A9F60BD754ABB2339B305A -7BE75FF53067C60DA9FCF8EEAAA61185A1D57C2854B01F4422AD85BFE13D80D03116F569EC03 -88C9C646E923BE432BABDABAE1CD6EF6B8ECA5B413AD572C1A6D21F7077E2CD1444B96E4A018 -FC363A8FAC06356571BD2AE106F0484CBEB58B9C2DF2BD78C4D1E9AEFC769C152C48CCB01CCA -1281B1CC468E32A65ED4B57A0931A9DA2F475E9ECC0DE9B7F7855CC5E6C1B910E89A02A4005B -47FA0F5B6278AEEEA2C9A5A3B7C956E06CBE3D9E95F11807E2041347A670DC26DA1DB1E9F527 -71F5FECF48330F62B89A3CA33646CC7E0CE9277D9A6AC1F7C99D6893CEEE3279E31C70A46E15 -1E568175187CCA674798F177660E1CD0D4A94B8457791A6481C58404FC6886A58BC7744A2D53 -E3A5220685C90A839D826BCBE2EAD5CBBF9063F4225D3F8CB508AF5EB36FF8BA45BA9E25BDAD -C7C36AB9ABDB95849327A42A8741345FF34037A14310A9C3E59665898B6DA50F19B3362F9F74 -3AF0903C252FE5221477305EAB91AA5A88F69022A6AC41023FBBC83728598BEAD373D52D5020 -B4D3B3D7AFD3D467E1970D9FC586270AA294227BB9320114A408020BF19AF877054EF01BE0E4 -5A3F9B610BE9E9D66C7405D4C94C527FEC6D02ECAEC103A1792063363868A432F90E463F5492 -9214BE179AA981DFA73ED155D2D60158E62A97A78F06046B39521D63F5CF2E7FA98B2D54E88E -F1BE3128DF3A48F6A276C574028222B931450307A1FF2AF8F4F6332A3A8D13182F8AC191BC0F -B6DC271908693D6C9A9ED6391BCB2F3CE8904D16D459591DB6D945863D6D0AFEEC50823A3643 -F6BD3C331506B5AAB0FB2AECD2463983638F1287A0015F7092BF6A302160D1FB42FEF1EF0F24 -F1CE41F382AFA798BB89207C5C555C6BA1F163CBF6787365BE6B825428088BAEF4C388D0BD4B -4E314F7D42C866CBD13DF78B1E314831A0C1D0FD9EEE6145CC67EE465B4E938C06FC532684D0 -7FACF838F8BE0DA4441C7815F8110AE54594DEAC362A2A4659ACA5D2C83A5E6D21A9A76D55BD -EB97C35CBB461331F19114366D63CA9E819DB4226B15F756E476F1254BA8E5FD5492EEA5EC04 -42DA91F835AB6CEA9A891BB20C397E7925E6730746B84120A7AB127CDAC121F452A20C2F4CF9 -B6043A4FCEA1EFD67134212ED7D455ED51868F43710FEFF9C26DDF5C456D1CFDE687E2BB94ED -4C40A9D65EB49454FD2C0A7FD702D5EA8A3A9080B37B53B567171C8FF1766EE8344E8FB59ADB -650624EE7AFA0874CBB7FCE8365C879B7A2D4DACB5B0034A502F7189F0AEB9F95FBF5A3F51AF -4EF72B228C42F7FA9BA127A53741DA6F21C46BF4E009B23B6344DDEBCFF882EF283651DF520C -2F4A2A91FB88DAE07D3B5EC3125B9B5446A0F37633FDD909B22B1792BF2B48F64BB7D35368C5 -032343028B8836005B02AC1CEDC35DA795243415C73F632CCF412261D9B2E6F6E2C7D586E497 -1BB0967D0506E8D44300E168ADDE77561F7371925A4F55C34DCBC21A87A2924411ACED4C8EC1 -B8468AEC6FCEAEAD10EFBC76F11609897ACC269F1E387C697B9611C845937F917295965EBC1B -E3FB6F8D07F5F7DCE243E60D05A0F818033E117F574D9218A9E9566689B7A8D72465487D1056 -02A6BCC66B4F7B8B1EA9193ACA0312478DE086C475827377D6EECF1C5ED09816AB82D05BFC74 -3EEBFA7660E916728761403FF1F9776E10BAB9C1D0BF5041DE5696314A460C5C3E018629D923 -891809B73773AA271D366883471993C7C5257452824252AF796C6D94562A508C3F61CF369CDE -2753ACA0E579E269FD06751D7D796CDB8AB52D09C752515D633323B3514B6A067749C8BEF033 -F692F7AAB37D0FB7DD1C1EB2C5B0C5A35A2B7C74B384DCDC467919E565E859CF454C964C865C -1B51E418102CB4A5D25E6593E577C42C044467736B8714F87D2B7FAFB5BF90DF45230E5BC39E -1CDBF0D3ABCD7F9C704DB72B767EBDEFB6021A61FA1AF1D18BC87BEA09C12B061C9B732D8476 -06C120968E1CC4EC406BF8FF0A9BBFEC03DF8ECD8BFFFF5573A41C4CF1B56B3E0A03AF942730 -B4B91CBD342EC3C7355A8770A9A4F2E766E0810668417251CB7255393B51510E5F9FAFC49197 -9E9654FA595A42FF85BCD892945D29EC5F096EFB0D209625DA4B4E83938DB30CE230BD605288 -6AD01FA463BAFC20B85D97B785B0EB52A961FB8114EE2EE385611BAA40282C2A0E88D004AF17 -65E8D7122D56E06230CF157277E050031B24049FB01FC347D7EAE42256B85B5708A4783D86B9 -754F17AADED11E74264076DD1770D2223822E6A1053960AE38E2F2B12082422CC6849907665B -617850ED52FABD37C8DAB822782044583AEE376D5D4CDAD1C118B0D3E7FC0D71E0031202358F -504057EE18D550B480209CEA4A635FEE562C44117D5114CF1D0FF717AB6589CFBCC68FBDB550 -53CF78F64FB64EE590A86B46330F1E08558F5969AE64B1593AFB7BCF7F5665A70209783A3175 -1F9B364F7B75B7D1ED90DC354BEE53F6CA98EFAF334DC60EAAF0EC775D0BA9966B8539F46FCA -AC04F07DC457D4087C01AB191F1EB746953AEB156E41E199FF770C7706373FDFC5003B2E25D3 -DC7AAECA96D22B48757B1E156ABEB034200AD9BAAD81C700B5A8FCFEC303D6904E113352BDEA -5EE4A3EC1860267FCAB4B5349602700A7461D25729177C6B702A5A33D6B2DF5A2F0CF7F70D8A -9BAAD9BAF91D5ACB3EB53D27F854F0D7D5360AE4A3EAFE7A3481F8EDC7B8A79979CD780E6C9A -56D0B6C7C519B6192C0AB474DA9A5A567A8617F4C529C47E0BC9894C203F164470FA63670CB1 -64FC4A198BC1A847FE1EEF9D22F5B8AB30813D9488CCCCE06DBA52A19F4F4D2CA1B6C62768B3 -8679EA03C6A11A647BB5A60DAE22EBB7AC2AFC0F56BB6188A284F7FEF9964704DD6AB95EFBA9 -2AB4C5AED8AB8CAA2359172DAD7DA898E7DEB7209D9F6AD6D42C444AF50D00ED016C06EA18C6 -A37D83DF3D4A80D06747C002EAE71C9D167B713627044D9659D4AC4456AC0F16C657A0194356 -D72AA88CECAC5741D9BC8B9E0FEA3B98D9AF4CE8F5BE3EF8EBD118A8EACE820EBB9864B6D726 -001FDE2E72C68DB75DFFD7ED247EED643C49B721FA4D7EE7829EED78EF583FD41F3DEA2DF4F2 -8902132053343B2129EF59730F3074D353043265234B9B9BF94BD8CA16CD02A8CA2E664DB065 -93AB11877989819E533A3FD2893507E7F1AA777997486CA0C13CAAA2799388665A204FB2EF79 -13BDF05C31764F3F4F7633CB1F00A2FF8CE6D82F21C54F99B5784685BBBE2DBDCDF5A6671432 -63FDBE8194D5743A18673A839935B3255F6EAF3BF2D7EC01DE1DF0C39F89BBE66A3142C6BAAB -29277E5FCCD0B2E81061CD1271BCC21A34F4DB54296DD0BE1FCB986C77E31466768FFA68DE3E -69D79D7398335C298C35B16E3F230FD990D1E830483BF2432113F33A8EEA691B4CB3EA6C28EF -6710984D58CD9FBBF4DC868929FA3A831027CA7888D2C3A5F4577122AD243F6B1615490C750E -37B8F3FFA9AAD95A3D724AF5F8F6855F36B13E5415E1724F8D2109DA3F43D472109637BE788C -68F5AC1341EAF4F3B67D006AF18B5664810C659C1B7F84807F74DDEC736818C0BDB29F965179 -6206775E866D3E18A19CF40B88B2D99C26478D24A7FBD0305FE265F8E52DB21F3FDB28DF3276 -8537236AFEDEAED7CDE2EF8FF0EAEFDFBD62A11EC9A85777F9E05741A5ADAF7673D3AC776794 -81884CD9948F0AD47F23C263A6875AE3C18EC9F9748A470BF9D5EBFA67DA423146147C1F5A9C -9B8C60BDE2A8977ABD0C0C642D8CF2D5E3693FF8F8E3AD4532222B361F5E6E169DB174DEA63A -93BF61E48D4A6CE217098C1CF3B25B523719F01BE60A8496ED13AAE07A70156CF7B6FD86D91A -30C45227A9332B82845F7CD7A43F45318397B26E4C218135EB721C27040D4A3BD03932D220AF -5E7F6C5FCE536C78268A1507F5C5FBFE7FC16B3DA4F1329FC1689C7C07A9B63833344684EB53 -815D2689F795AAA206F31E59E59DB367B87BCD54E0EBF7CDF23F138B37E6A87634F9142A99F1 -54918182C53F7D9910B3B3FDB8DA4724A8C0969ABC3D8FC89EA80CA66C0892F6C8A0D4429218 -4DB3A2ABC780A131D087F911200D2275D2BD09D897700FFAEDF12B5E8CF5912AC29F305FBC40 -334F956F55FCD34381938039AE6B8985930E8BECBDF6313CCCAF5C97C27E08981499F3F6FF23 -719E88317C0026A6A402B36BDC4330171C37A06CF93947E6F6A360B629B0EE4462544BE841FC -F2037ABFCB198C4AFCE9D0A9E76F3640CB2173FC9765CD448B1C07E09D75ABE1FD736C134CCA -C8566D661730196512634BD3D0DD722239B008CAF4308E4EC0EC439199C299E3A46C23147596 -01E1964CDC89F3F5489CB3B78C2A675BB90C082BAEAECD3B5B34F60641F71289216CB01A808C -F2B20DDCA1630226B88A5B4A87BE94F4D175626E08021225B5C24F31C3E0B8D2FB872665CBD3 -70855D09BB6DED4B1FA0792D03DC512AB760F9C2F1D64A2011E229651AFAF9E173D77DFC6D96 -DB7796C981F78F41204D3C8D0696CE3B74CFC1C20671A7D1DEEE97ED50E77DD8F2D629D23064 -97472CFEF27055E878E6CAECF06DF045B5309B3AD4D87AA6CC6BB980B6B1838D60A0334AAD61 -73BE953F2FAEBB69801F6EB6194A82E892DE9423A1C2B061D20D606051FD30F5543D9C693A69 -310A621FB66CC218E41DD98747457D1159836BE3333CFC5727560185F17D6942927E14C3F0E8 -B92E9F3CA43C5BFE1C37B2CC974043EED5928EE730B4E2F195AB23921637CD70E6E27605F3CF -D5BE93991184E36C93BE05F3693FE273B21FE3156B70EE787E41C9CFFEA65CC83FDEABD49D00 -FC44DFBA8D9BADF52B6090EB09C19E0A376543752997506364CE46C4676717C6F652970F8C71 -AA5948D7EEDF2A2646357F71C2F9535D4590F7D901F38A19AE930F7699608739549D8DE8750C -05CD564029AE8DFA4D97C64E64F990C2658BA82368582D11FFACF8FC5BF5F7D78353633069F2 -DC45AC7BE6150D54E828FB22154854D830CEE148C1F2D525AAD88449DFF79E9E7F128A77F2E5 -BADB92E1496E04DB1431086275CA7F8ADB1CFFA931F9FDD3391E0E23D68E6B358AE4A2A907E4 -F8D10615E700751C842FAF1309A8F68D09775E74B2627BB2DCF7D8D7983121C2134E2D009B5E -98CA5A520D17F02DB5CAD90588CA6F6C580A81144AB3FCE54B2EC4E0F6D4EBCE888A5ACBE4C4 -07CF53341FA6A0E8B94AF8DA3D0C47684A327B67728B17B7E640BD4F01B8A26DEDAB5344E827 -9638A0DF13128658E578BC6ED9FA31A2D235419AF06AAB83210EE8442095703AB029C1919CF8 -996BF289DF00DF9ED465E953E1CACF4C3FF495F0D33CEAA5677D2AE1D9FF506440592734154D -384907262C9142E530901E467B0DBB497A6413C25901D34674D100415EC570BBA8F5B93733B9 -276AEAD1C5F79BDD64FB6D29C60B9E7CA1B3B5D295762D58FE3633627E86A9FDA0444963C5C1 -F6D2C7DA1EE64EB6CE490D42777FE99A4072996C8448FBE4E1BFCF0F29F9A58F7F4AFE743345 -99E257778799E6EA3897B3E871C4427612B5CF2420BCA071268B59BEBE0C3748E3647F413E1A -0A42D74AA3356921DBE2701C6E96D7A175E024439BB8D3C7DDD993A28D6D14D54F1D96940668 -C6557EA04F9FA80B5987A30FD8435DF983D3BB807F2B5010982DE3D8EA9C8F5738814D201A10 -08B70521E4C3F36F76997065CB5D9252A089E90205020C6829F50AF06A0B3E3A704A871AFA66 -7F1E491A086A5980ED46B1AD93B8CAF5FCD902486F33DB5D55319FBB4542C945979998D09702 -39684FBEF289AC3D19325D7091EC53E4F7653EA9A9C7FB5BCDAF3C98D2BF81D6478B480EF941 -221BBA0FA9D5560C7A7EE6D44DB5A0C328448A3874D089800741CD84A6139E46AFABCE7C6129 -BD1A81136D88350236ECB5A9BB8D737DBBBDE78043F64C6DD8A281DAD8E4513EEECD1F46C929 -DC17496F1E667D5B494260451B9A96323F609447A4266DD405CC0DF0E34988F50927F23C14DE -668E594DC2D5C51DCFE8282EE1B483FFFC7DD7F719DD3FAD5E8CADBE2B053EC22C3494B6BEAF -0F8A75C9A8521801EE5ABC563E6C131C54D96ED627122CEB21A124B20CA08D7058A0A46A3405 -0553C2148989302A06D8F09873170C5F311B90A7ADE76EB466C0031301D083753323D1C4C69A -1FE6CCF99C164AF6928E8068F5EB28FD0269078D12F9C114B7B130BBF401ED51CAD1C87327A5 -7A7E51E5D691CAF228CB787E8F74F729B68111BCF3D81EF7A99954F3C9147CAB19BFC0141E24 -4B48553296AEE5C99476219A54F876C78D7D3020BD62DB1AA8505109C45B9AC288730E77EEAF -D2D9742328896CD4CFF127FECB166F590F07EF112BEB76A11808F2E22D425FE579FFF21D7F3A -42885B9905F18B821F2AA8EC2C66A2D96723D75744276E268FB431855BE6AB011371A1F34776 -F37DA9D179AA1EBD0757C96000C43BEF6AC48EE5B8F746740F606D65CEC2A6BFA46AEF1876D2 -2B2355960CDDFCFAFE133A9BE255B8B51A709DB78046EB971169B1C63AD4571F7E0038B13694 -5ADB4182F1CA43475944C2C15CE901B39E1559F45B34A156AB9B5369445D9F657A6A1FC31719 -F2F32C3FCC0A6FC6CADAF92AFD178A5E21323077F8D9C340FBA6BB735EB376683057B7E77237 -B2FB7FAE12BD8D1B08D08A5B4ECB3CF42FF158F949ADE9A4050BCB7C942A22AC01B09DD27615 -C70A3AFC57BD01BE9AAF135497AFD97BB92CCCFB0ABAA66A7595D490C10393A056C418B9EEAC -2E11B337287320BE60FFCC269D8E8052CC15B53B59AE036EA93C0C5476B079F0CFFA3D6FDC31 -6A7C6DE2832D8A21799F8FC1607CBBD8F3F10B9617A7FD3595D07AB220D545B4E5D80344549F -CD3C27CE4B510B7A4A294504CEAE16DD874CFFE5AFA735D1266165B44D6998DC099FC1C10A4F -276D094C00E475D87812BE5E151E4564252D8F6D8DDD62C55140497E2604AD705DBA07728ADA -20DF09431AB801F077D6F2BE2B04957B8DFB38EBD9A110A840B29E5B63D6E6B414C4C7893646 -58311835C86C5125EFB6C7A2636C59AFD58D7F65E9C5FED7DF2CA31851FF98641479CF37A973 -3C809A82F2102A356E6C06DF0A31F48E551362CBE351BAFDC3085ADF82680F6AAB5E3D493F5E -E73D0CED96E91211AEF6182F4026FB520CA8D99FEB58FE492CE1A45FF70648A1F7F8813F1362 -932C72FC60C6A1CD437EFA03D1486A3F8C5D3D19F044833D6BFB7209B9FDBE71D2071606C0C5 -03E0C169AD32A979D08B1EE648B536542D5636ED8EEA524F40440239D1F5147AFB043BF80FED -701E63B7CF75291455C56398FD32F70DA049101CC6BC365EAFEEB41EA4D57F4DB0E4D9E6020E -4C72AC23DDFEBCA8A7AD0633BFB8A379C573461106C0CC116B400F6283DFCC8A6F178DF722BF -B9F0EA47D05EDE2FF46246E3D2F056F7EF6D1DAAF239A7CA957FAE280AD113050E98F4851ACB -69EE7BCDBBFE6B1C6D340BB872985E197B78522D08AC9B61862DBB9FD1E7B336AAFF4C2E29BC -EDD798128793A81F82A1235C813E8DF4A692441E2AE7FF1D02176DC39C5BC1FDD1F4809A1835 -90BF83A5BD9DFBFEA338324CD782E5955F1716E7B5B19EB33A3B2A9742CCD64967B95E861DC9 -043ED7D6BB27D39CABA6D645ED0050BF55E66FCA0B0CB95BC96E5DF895EAF858A2A82DDB35C4 -644EF78936E786527F71ED7FDBA119778E03A1E9E3783D9FC6DC36689DE6D76DF5F6D2D72E1E -7871AB28D55CE5908D1E7970A551A1B41CB748F229879C4CB64435E4B7D7D47D7058B74506F2 -29422D1DEC87EEDF283DC0551435EA526AE3A7EB728A9F97FEAB1B03D9C8A5CD3C0147373FCD -EED0C691C704DED17E88A1230BFF171D73F34D9E7106727B9F6E4FE930596C826D23A9102AF0 -451AE0F4171135278BED55DABFF6F8252AF3F00F613A4BCF5A51D10503EFB8E2400A91D529F6 -67C210D57A12D0B6FC68FDCF98937DC3D6ADD939C572E1DC20369E7643E5263E192ABAC640B5 -DC707A755D0B09CBC9AB99102865B967A7266ECB8AB5B39D9FE699D4D74D805BD28175649D35 -552E8C6D1897364B34C4C281474F8BF6EEECE9ABC47CF101CF5ED88831D10B700C8057A3B155 -672E110DCFD73F8567D27A38259151A1F518C1CB1BBBBA9ECB45E57BEA138EDE68B4F5EDC45D -DE878AEBE9C3848B841F4A72BC02A0881B8D346BE4242F27746C1D948D3100CC2E6FD8BEB1B0 -206E3F0F1CCB50C167EDCF79759C0844A0C6653C8E07A2303DB4610F58FA19A2DD6B44D090A3 -D70B5A806AC80DCA6F2C07107FC9E7A396A510CD9D92488294738FFFFF2E4E6B9EE6A70E2CFB -8506DA4D3390A6503D0EFFEC605E102755E4A5C019594A2363DAFC7EF0FBA9905428720D306D -1B566FEDA68D27B77891A8FA8D27E69494CA579AC60BC98D3CBCF42E977D23A02DBBC52A8251 -B57F2FCDF93FF4950111D763C1D5B18FE1F6FC9B4B34422AE0402366F600BC1A101C3CC94C3D -A69B82E12AF8FA42BC32293F13B74F3623BB17A92B26EC112BBF74676C9B00248744ED109B3E -83305657635CBCDB526E5F54EE3F308D5E3ABA919A3C96D88BDC6825B5DE5B5FC6AE2797057E -2BA9D772CC69D5BB05555427E8B15133045E3B6C0EB21EAB2DE401596DA3EDCEE178EEB5B0C6 -59BA8D018F93AC2B19132B4589751EE5C61F8B03A4914C01DFE10556207924EE3ECEB5AFB2F6 -A71DFD0B928C470B85DC36B6177B0C64565E040CB77ACFF9E6F1166E6BAC1E6BEC3301BF94C7 -2FCCB34E801A377D70FD6E8D7D98471ECE60B488B60CDB46FF3EE8343AC68AA8055E3045934C -AD66B9FBF32E49EC4A6AFAD0F36111BB8976CE41C67F1EBB1C83B835F0A02E61D2EDFE94A1D4 -42BA2219522577A4CAB7922BAA056D0A3D8FAAB1D6FAE79EB2FB280FB68E29169EBCFFDF507A -ACB009FA84648ECC80412D60E1C7FB88BA89EBB1DDC86A4693B7F9EE0AEFD79719D128AB59C6 -7170DD81523A7B1265F8E08CFFC252BDEAE38A021C66FA3610C018A5A0D09C7CEF2C8F85A8F9 -3BE604F377A445D2B5C293229EDBF171177E724290F97EB371554F6C16DA60F81EB39DE436B4 -5CBB916B5756C119CD3DC88A16EE9CD8ECB80F5DFBB48002662A22A01B5EE12DA6B1B17A18C2 -BFF8E191F2D5558BAB067CDE9F1B6281BAEC88EC2BEB281484651CE7BCA5FD80383EEFE69AE2 -1735D47135F69A4E1624088BB64318518CC9C369F036E7AF643579F92FA7124A014BD4FF2AC5 -F09F974C784341AE77A89AC0DD15FC22EAC2A83D48774BACF93D8FF69E12CF5E4586F8801DB3 -713AED5ACB99B6EAFDDE77E851C368AAA34010CD48B842A1BEB16AD936B850F16EFD095ECC6F -094372F346F21E8096566F3471D8FCD9B2627C0F7834124B155BB40D1D5FFDC14423F352B325 -9BA463054442104AAFE498790EF55BBF6C575F192F04BD1B2AAD51BF14B3EE1ABD547CBDB6BC -C2B6F481B9EE8D5110533E30BCC53EB38C8C382821FA7649C8FD8050C7B7A3156878B082785E -670C233316BC6A1A7CC34E325CCA92DE0659BF7F805E60A5F64EF70B167E88300324CFD5BD3A -5C328BB86DBC3C0DC62449394DA00D3980FDDAEC3A484C65B33BEF32701AE1D8BFDA1382E0AB -C3CB5AC4A76F4C22C27647E5ADED348AE51CEDB4EE71A3D80C6163D3B66A975993D43FC7D37E -47968F71AEA34A5F692E8011A7BA8C5F1C30544CE9AE5B6228B967A043CD0813512A5CE246C5 -3A274F9D51D1F13F0A96A0DC26ACC61181A9CA622C13EA70A6B8ADCF88D3364F68839E530B4A -DF6775FBAE3125BC8AF25CC4C1CA38CD36730FDB3E14CAFD596BAFFFC402FAD8A4053337DF14 -65F52DB06FB52990B83EC827E566138431114ED17AE2EB946A7B7BE7E932BF87FCF6466E7FC0 -F8A74DDCBDF3F1F41F8C935F79E99DBCEE70777BC40288E8FD9CA55046C55360C92E95B71747 -78D78C7ED3549B4E472F334CF58FB19958AE24FEEED99A70149E470E6DF7A42017E9492ECE4B -2A67EB9380E3352F9D3AA94AB1D3DC8AB22C6904AD652F10DBCB413D69E4EEE08DC9C7523C5E -89044D86A2B893A7ACF3428C117CE8327CBED3D04D6B606A8438A15E6779DE47DD69EA0C384B -8344AB0402644E83479EA2F362C91A59234B687DDA9658BF2B412E9FF759612A7FAEDCE78E23 -C7E1CD677DC53933A48D90E2A1A02334E691C7AD7430DE8619CCB81E002F83B20DD39B19D551 -4C570FF296DB982C93418D573462EE7C89E2431FC240D3E4C875F920022BBFC65807D469B102 -47237D449B2A4B8535A3016EF1FD5C4264A079C91A6475BE2849F58E1BF3ABBA6FCCF6F970EC -8ED860D88C71A1A04FFDBA2AC6FC91DF6C817009D6613CD9F9575018DB3B813D1506611D5D25 -5F013A6E1E955A2B0B8190AE7FC11A0F67387BD7A6E9B3F957381D4DEE6DDAE07504F57B6EA6 -B75D0B09D69F360F923ABD58542CC2B087B4386A9A242BD9F3DDD350DBBD124C69859119BD8D -B2A569FA49C33033FA32C3779577AA45814D9C89C92BCB80835BC6A13B824018CE4D52B203C6 -8A247729891761F9BE67D1B6033F7EBBD86BBE40F9439D7C86486AECD2DE27F333A48DB1A460 -A2DE4498F25A36F819117AB35171186984829C22E402B5E70BA2B2E49E7EF07B6C7C1D2897C7 -FBF069C5FA68F3ED5935BD9E91F6A49942DCD0394EBF26581B6439AEE469CA282B68BAB803C6 -0B50F6825FFD800A37C9CE7A6CCCF1AD763869FC26C69B3BF3E36E02AEE9BCC08BF9D82512BF -478051D3EDCAA34ACC9B992BED888B11A8B9D7DC54F3DBADE7A57361481C2F04A3940C6D5B62 -8076068A89C12A44B1F0A1535622C8F0B6D7E86B5011CD351144A16F25FF2788F8E50159C341 -221C798043D5D6C7144C8160A9386AE269C39C10392214EE1396A4D5DE2B9280034E7DD0D7B5 -A8A03764A87AFAA1C795054556B484B335975851A06DDA9FA8FE8611BA88F0349AA3156CF606 -7687E5386E2B53D30EBE5095EC2068C91ED9F8A98AA22505F2EAA3E03E3D7BDA5FDCB68A30EE -062EA6F3767789C56CD61CAEABD1E8D37F155D6EEE1BC500C4B6919398367857DAD5D70A7DEA -F65821A4F14A87597DA5EA905632DEE3A80E24E401E2BD5DAA55FDF18C9D4931C19BBDACAB70 -E1FF20D6BE547031AE4E0D9662F3CFA7451914CC14050F7936AF9902BF1D34251B4624CD65F6 -01604225461764134D068EB56BA2D69A257D47640BA5671FA2CEC2ABFEB6489B4056807C3C00 -CF67A3A5013D6258A519C24BD9C0AEB1FA0995FBF406DB15082DFD8D052554FB39E30ED5B43A -8D1BFBACC50B0BB6DB4F3E53660734C86A484D099610D7B43FCAC9A3A02DD6DB53422469C7D7 -16AF99C6821F719BA8770F6B42CA2549C5D9D3EDA80B2F3B354367D3555419DF6622805C9877 -46B8ABA8FD39CEC4307935D97F4BE8AB255AE4CA8FF7ECE554F8FE28802720845354C1ABA1E8 -B7B2416BE81DDF56507E6336701E1B3C1E93DA7A84F3CC3DA46571FA20F7C9E0EF2E4F874C24 -5F0445708527A5C00083709259C3C8254AD82BFF21A4A213DFCC4BFD1BEBCC2F81390F9E6772 -79F987DE1B0E485763C3965EB8E0E12AF65671A07B283484D74269DCAF517A961EA2094DEE60 -EB8BE12FA5DF17AA5505268CA9DFFAFEB59948A3EE4AEB1B4B5EB7A99EF57E4444EA610CA116 -5B695EB043CF0C05DD424C3991D9EC0C0B5848D00DB3A3237AFE1917DC045BD5DE1EA26F1F69 -51030CD3FA281C4DBAFDCD4A4326DD726ECA4EA7FF9E97570B249D31151C9655C363F3040A92 -E0EF1AA3C5C9F9C18DB7A6A61F19F17771D7AF70ACCA1E34A18770C63265C59F3BD53A41C9DA -4C697F8606825772FEC436BE140C37882095D7DB888C1FFEC7CF29E9675AE1D1DF969A43F8FB -D11B87C9A262706E2725068FCC9CE7E36306C7DAABA1EC71FAC2D250F5FE4219D96AE51D7661 -E2DE25D94E7E33C4279195225C2AADA7ADF9C24C4ACDB7F93B5843966CBB0A7C176E7DAAA4BB -BB82258C801F220DF9570CE41D62831B3CC3D432131EE147547D9006F5E7E127947D20837745 -FA68483965B35C06663384B299F4C949773D1775DBFAF9D6A489810EB813E0C733812D443337 -0D5AF7655434E03D7105B112B3F8D65962C227A8EC135E1B4F9F1693D4F7CE9D889B1B76931D -E7ADB3ED641A48ED761AB403A6F6592A9844BCED4D5FD963C935A553B48690E1DC204A867FAF -C0F482FA49714C8D5E97B68809C1BF0BCF84545F9F710C3C285CA1E3AE4284B19343086824A3 -2486CC4782EA4588D1B7257BE9ABA5FC6B52B4B91B2BE36512E6DD3E337180FD0246ED2A6DF6 -ADA3B7E7608CA8291C5E86552599AA08DAEFFBD7B265AADD83226C25C326435CD9B0EE5B69D6 -24F64C65D36D3C2D6BCB6973C6AD34D8BEC56134F2E49AA08B8CABEB874F904A8F1539AC8EA7 -69FC56099ED6A3EC0B6840067C169518AD25CC132047E5DB4C77344D76E45323BBDA50B15E0E -4201B8DE8CA342FBD7BB6948A6E24E532A7C89A858D8F29DA4CDC73BD437762E9F56E519EDBB -FF69BD27173A93B1236118128C59233C14406432D8F3510011BC4E59DADBF54F64EAE7E18DAF -DCF53922BB3BD398FB89B3211682412F5A2A74A5626859743EEAC066185C1FD0BC4BC68517DE -E43546E17E2507EDD79BF25BD30BDC8F5A641382CB257A41195B8AFE97397D1B3DF7F489442D -08BEF9E1AA986D3D2C92A38F4786C6614EEDA83E10D5E9A74D71FCF0AC952BDBE1E8AFBC33FD -CD57E001ED68A70BC236182A243E8738C65B185D7C70D0484BEFA5C58951432CCED932908BAC -12BD5E5AA9EDF1E2F7A9CADA881FF94BB3238C2EE7A406DDE9FAFA0E7B48FA126FD25ADCAB2B -635F85832F0A78D8ACC1075379AD10B3B9C36D3F99A6E4D8575982543EC104AD8C274D9C0571 -5E962D77002F79871D5EA8F5C4B7E1440340060D89AADC9CE1BCFA3D03172563DB700C0EA420 -E79AD04710A391C8A19C03316319EF20706836B245FE1820FA48D4C3B82E603511B07D2C6040 -9B077C082912ED47A1021F67F674A2B168F433B820EAB1CCF216287D934FB93CDA29B848E901 -9632FD5C9DCE48F6A606F8AC8D4168832FAF2D6BECD6AB29FAC59F57C5415611B2F4D9ECC01E -AEE5AB369539C4D5AB0467403D7E7DBDCF0D1AE85B8376E6560233A912716B72F93630D10171 -151FAF43A4FB9B12ED6E939DD7A62777F95471E7DEA585866317E4C80E2BE0FCAF292D1F34BB -1B60B5CB92A94006A09FD9C3E9E038EBD6E9D6B32167D30D6DCDABBE0C48B2DADF65BB54FCFD -6D2CC9397D983DCCFFD8C210AEB411064E6FE2CD5FCB9661C4F9CB70A68A03B2422FFA4001AD -799BF60F5AEC994A2FA22C69AC18364E28133EE408F1EDE7FEAD9043AED1CFB4DD19EE280AD7 -63C4FEBD3F404ACD663DA83EB227C8D1C834BAA960A47B5C4B20D5CCCE84D9154BD692359FF4 -BFF220FFFA2C404338923FD58A136C85E8DD11BFB39B4BCF6BCAB99E3FDB79354CC115CEB39F -342897D73C97F74C5677AEB7094464FBC793158AAE78C563C9DFF1DCED28840B5F338BEE79DE -EB54C76D1890E5964198C277800B055C5DAB882523CF70D0ED54EBC608F507FDE75734ED7A9A -8F2C0BA87FD76AB4A59CC73A88230863545041DBD56BCC3E8C3A94A3E688B8381066040D5CBC -FC66AA1C21495F0737E1E1A6DF2845EE0D56E7997316912ED4E4C114AC74AA135AA27F1EB76D -4C7BE2EC5F69E97B90F4FE59621C0248B0B67096D23E56C0AA2AB70A073C6D2F36100424F693 -C9EBA414CE42B0918A5E026C8F21FED17BDC0A59E990611BDDE1A2A1F452624519BFB4D9577D -CA9DDB4D0A8DD604E1CE98D4E8010D40D6063A7272A96A753928D6E784F5F1D24313C42DAAC1 -CDFAC0589971291F912F61A755335FF00EA8F3BC987362ABB504ED57804B1EA2F43A7E0797FB -EE84581578F0E6B9F3E099D53DBEE3EAE42FAD659625616F2CA4AADAFC5A647A89611A8B0865 -1151106BF5201314AB259DA954812880F28CB36996272E4F805E66A8DBC8B1F0AE5C33C66E8F -470B72C4C81C694A2C1311824D52D33DB1E1592A6203621991419CAAEBC7388AF193AC12E604 -4A94FE91A692DC7E605A8F08B2A73E8D1C8AB405FF70B54B93649F0090B95D6264196B76B801 -4E823ED7DC86802784FF20F048179616118898760A1FDFC421570A2DBDEA1DD7A74858591B26 -69DA7C1848288FFD61473028B8B597BD16B6DF08131BB142C7A3ACEB8F6D76EE21ABC43096A0 -30265EB946B0D2C3DA7ECA4579D14F5023CFF16EB13C9F40229875C2242F476E1200BA0E3B85 -570D5AFB5BCD11E098075E18A26B100A443E329CF7F03A974B6ABED4D8116B9C36402FB2EEED -65F77E08A322EB9A57468E35C227646ACFF43C0431D3B6DC9AEBC4A680F56D20FA81CD205335 -919E7232E9E59F2EFD65FA96E600113C1050E2D398C1BD2C44BA48E3AD2E8D92EF2012219A16 -6A986DB0895FC9E838EA5A53BDD115FDE72AA5B55C0EBDAC3CE7053FBD31CC9474F81E7DB34E -D13B0565065828721BEF04CD7E4AF96FC5145E0D77B1BE91A4E3E1294C498E105C869D020647 -59126FC3C8CCCA6723E5FCEEF2E5E8BB0D7A81A280E5282846917874F54370D2BA301960A3F6 -FFF68EB5947EF6CF1B795E9BEDE7701E5F3C60707C17B1FF2DFED0EBB33E049153C6CD1716E3 -7CC9BD8E25EC7CEDEDF433870C0523C36885690D05F1ED373902B09C74557A91CE4A957D3E11 -C92716E945500CD85EA2C95B569B2E03646FB45E3870F5594FF3EBBD32C7BC313EF5E2C601FD -9E76DC1B104D68B5283C642873EEBDBD9B63A3274285CD5ABFE70E85B1E8CA108F19C20B2CC4 -24A019FF28BADC06DA9EF057FA74CDA034214458816A50619EDF944AA4AE2C1C8240EB9170D4 -39048A58225FE57E1BE4AEADE9EE65278C300FC56E1F1226B1F45A788905DC0677C60C88FF0D -3F2CD0AF65909B73740171BD8D998E270F6C80FC6637C507A82C1D2A720B37C4B2DCB754D92B -73401BA787659CBCAF41C1B4D103FFFFE1E3C386924F8E99FCC1AC7529056DD00306950D1B81 -DC700FA6E3FBCCEA86B0F117CC7070B175BF0D624DB061B5C776F74F3BA548987E99B7961F32 -E3B1853A2B0694ED046E2F6834E968F68F81DAEEB287145A5FAFF0E05A8184181144A91B4B76 -8E082237821E146323A80BCD42AECDD8853EB48EF4B063DF7452A4784DFA1EB326FCE92B85D5 -9A0EBAE6D7986FC3623D1B058CC7450AE580049B5D1F7896C59976D87615061A6B96E516B201 -D59031EAE2A4FB3C32330C98EF00B9C18869D74C80264BF3F8458F19EE9F35B86D3BBD6E93F7 -B7FFC1359CC904090BA8F1D106220D1E60156003BC414993A2DB05BF6408319A51157B80116B -109286639137C5809BB6F107BCF1D54786D24C91056B0A3F1B6868C0A991E457B99A89B79CD6 -768E52046442F464E08E41ECD8E822F3991C5C50FEE98ADFC876E3F0F8262986A19FB94647E6 -22354A811366DE4FD6104A775C55CF645979E96EF14E95A9E8728DF6154253F39E1D2738C164 -CE6286E2761B18FC18C8F4B1FA906B11C557E95794956E946D31302FA8629E0CE74864A5E27F -7D9839EA62B92E89C7A4CFE322EBEEE1F2BB894EC05CDE3D82225745E44C6CCE20F15A474461 -2FB47B94985515B228AFA9B29DACFA60D640F6F760C5735373F3C5DE1FB407D3CCBBB19EF56C -DACE6A6D7039034B2CF6D0DB4BBE1E0BBC711A91998FADAEED048FCFC912779BB498E946D530 -0F79C8ABA5317B531A7E4083958A4BA4FB5D7FE79E7657BACF75DD85B681C254A063C9E99B45 -4BCB1A7B7F32D41D5CA1D1E690F2AB96724828080D58FA66D09E7E2A9BA780F8A1662136CF85 -25D2E733AD7D3F2C93AB3840CAAB4947F6C50C46EC53966E14AC6FA073EB4B17C460E30EA69D -514A9E5A3368F1EBC078AB4F0FCDC96B06E47D0D4B319CC2193D70D72D624F49D3C49F1C4ACD -F28F2D7E5FF7E267C53353C093D2C9C95B091447448607B7D12EB4B741492656062DE3881BC6 -16575C4467FDC4934132AF0F32717E8C9814CCA4B4C24A68BE32A9DA8937B18C00B8E5B511A9 -809221845207279A81F8A3E0A103B13223BCD1318BE581A0013537D3704005505919501A8D62 -C7F090C04B920A7B0BA8342E7DB4E10E802F2ED91D747DEFCA6CECFFFCA0FCCB83472A67496D -D79C8F735EA938E128A55BBD73349C3C31EF628AA485ACB347740DD32FC341E68EAF88DD7794 -98F0540563A95220C9DD8E6B52B46DDED5B094DB48627B1BAC841C74B14F4D085798E459B554 -9C2CD6BFA32485C980CADE8F8FF513362A65995C1C3F69E5A11D5A1B27D67CF7849A9BCB9411 -A5E7419C88F973EA331711FDFC03358E427DFCFF1F1A44122E0189A0CB13415845CEC7EF4081 -17DE98975D5C1ED95A80F306EF8F52CD0968F7980FDFA724B243C30AF29A32004E38ED70B547 -9084A89445B75ED0B9C73830CB89635FDE35023E0DFF73FFA9DC49A4FA7D2EE3CFC980F87C02 -BF86E7D5E25AAB1DD7E65E63B46481513CD701958039ECBC97055289EF221E5584EE905DF1F1 -36FD6E2925CE88883C6D15EEE361E8EFB875756484F4DAF130F37F0DB0B3E17E0CE57CC250FE -641A2297A0A26DD87E424BE4C67A9D671CD89467B74E875B86C0FC2575364BC25BD65ED18A42 -DBBB11000711BB7AB0AE6A451C0ED7B7DC0ED5F619CFEF7320556D1E47ED836F0DC881FB84D8 -9453E5A10993FE6B16586061B2A0C3A4A96DBF7B3078494A62F1F4F571EC945DBCBE33912C71 -04A5A71AFF43C34599D9CDEF6DAAF54CEB1410028AAD75B7604B0F8AB58A2C874A074DB1748B -F6230176344947382DA52EEBE5859E67299E732E5A4354EAED88A30AB693413B1AB7A3FC85A6 -1A68C4C284F5EF40CC2308260B51F681036307143B946A4CAE94CB9D7E8612B455F05364B449 -90C8079790F667DFECA7039026CA22F80C9D3FF78DA3716A8D532D41301CAB31A3BDD95665D0 -DACDFDA2C3B8FBB0ECE4FD431AE50FC95A541F034388F8619C4BBF687C525BCF8B90239E571F -1DC68156B7644BCC38A65E87382EC28FD2FB79014508B1C569985EC1F64BD0F89D7775B3BA93 -4088F34BD053071E71253A80113A85ADE6E4D49180C6B942C32998D5354988F0B513B32730DA -146E012CD58C557C8E4FC53E9CF9BB50FFB768B5D375F70BD042C9D0E3ACC9CC92A8E66EB23D -3D8B1AB1BC26FCDE16AE80955946E8184667E05B0E212EC2C9CFF839EECC1AA7E2C4E454CD73 -3A51EFD0CD49646BA32894DF3A52701EC3750AB9ECA31B6CB368428DF91B92635B20976BD4BE -43A1B93C722B056947DF1D323B6DB66668F3490B818A818FD48C9826F1E7148E7029C83908E9 -9454B5307897150B4946D2C22948ECF3C98F1C1DBFB34FDBE255EB46B6C3486FCCC512319F9F -D678D4342A66B0940C2C25D4C21333FC1E67A5551B1096CA26B5D5B8927CBCFC23AC8DB45122 -72FABF6E3F445DB3912F6AD4B72A2DAC843541AA17C9D5D45E3AC216009CCBA039B2CE5B2F31 -2D9B93A638E3B9CBB11AD82FDD0164D8311483EA8221CAFA4B90C3F3C90A4DC8C9F9FEF149B4 -8C93CB287CF537EF9DA5E8F477F84051193BC3E8860C7CD34EE3986F8B0FA3EC947CFD433825 -246922DFFBB2AA7791297DA281AA6B3AADB48F636924F1815E4088D7C69616952258C031B69D -27BE65E4CBA168FCEE3B5A8A461CC00A0630ACA3C350A5D6453683E7C827E283EBEDF47947A2 -B9D30A2E97D31B8B8F9856775CD6CE4742D47F2D613B88DAA1B945FDA3FB8BBF630B9B434754 -154C29D993567CF6527FF3A6A22C6B6FE1E2F15CDBE85C92A7B0AB2B1B7BAC5D29E3044587E7 -EB0AE9237FF019D0FEF1EC3F00CB83AF48FBC152B5010282DBAF23842322084FD304A6F60B2B -71F677A2BDC3B035D180416E71639AEFA590D3AD588486B4B8F2B4F9A205EA5815F553D3A393 -DAF86FD140C83CE35B72E214974B2BE8C271F1937EEF562A061B752410F5289FB8634BA1A7C4 -FECB6E111A859505F0E09B9D64220469FC52EAA4BC5BFBC380A175217753616FF2093933901C -1384DEF44025473F7B85B0AE7BD3A430F99CD50820ED2AD09A93E6CF28E86C72A3EF8A138EB9 -E83A5B0B69F3AB5067D9AB0B5569F127FD57947BC05A2E36D1CC6852A3AE86DC13A5071ABC9B -57C3C7D1E0E17E888AB95513A7FEB0001897D2C4B9D67FBD158E2306C9D07202F4370C20A19C -10068544BD8514BEBF0A7FF5C69939DA7ABB6B1C7A07AAF5A71712EB92ED8AE2E39FE40FC0CA -FA82143C5CE13F44A0BCC65A49F977BB8BC110D49B41EEEA03802430C37F95A9E7B8D16DC552 -DE2FBF6DCCDA3BCEAD63EBB705862A5536C8850CF33DE8B2196ADEEBBD25B6B32E08DF148227 -0E491ACCD630066BD2C89800409EB179A913731DFF5F2249157D0BF10717D5B021AAE87DC022 -82309E336591B67016004E0C4879A3BA17C99C7E668974111F4ADE30C2AC2FFE2B9206440C51 -E5EEFFBC2F2D9F4CE6CB99DDDB5C21BE9D84A1F89E7FDE8C83E1F87B504A5CBA2BB8B926BD28 -E9536E4E06E3C4596AE9DB8FA028C98BD3FA1EF75730D46ABE9410586B93CCA4A230C15A8AEF -477A7409069A44E2996F83896BDA47E300ED3218EBDDF477A62590AE030CFA4CF9411AB10954 -CC7452AC7137257EDD2B6E53F2E6E6754670C678D63D4A3A64E1E59275762CF44D50855B81A9 -A569C2BFEA148CB1914831014F7CE5B394E5C48951699916D13959DF66B9F7F8FA24B3777ADE -1E15AC2E899923F5BA905AC46271F599EAEEB5F93AF6C9EDB80613E226E65DAFC42D3FA6BF31 -8600DA8D40A6B24E4A548DD982B967AC1B3FC10E4A58846E4137F514DFD29A085C1BDF9FC33E -8031C9AE175F4C60497AD2E79693171FF77129CE191B9E7679DD988723C012A8656341C404B8 -8396DD129D2CB5C9D5791FCDB75EE9D64BFB416C47928AEC1048361B20714E0C8692F37C4349 -EE9A21D918D57563EC77CBE2C9922E60462D5C9DF4D361C0A2468B84D32DCC7EE2B770DBEC1E -9AB94B456C1A1617BDF3DF331B2EAD148412A812DEE21DF5843C3F4B199B24F18CBF2DBB53C5 -9F4E1B7B4AD5082CC7B0F2A1086C8658BF2F7E17A5C54BEE25FF2880050F485CBDA9E0E203E0 -0277A6F87DF3278AE35B30CC3D2F0A40E6067E0E82867AC78625580AE7BADDC6212D8DE04D65 -A3CBA66FF623627F38BDF7C266E27FC5523E16197BAD57294AB13E45AE560CE1579F46437B3B -9B567177628B38B6CCD10EFFE3E9E6EDC5B4F613BE73E6BDE489462243B2C9098C876FF1179B -9EB686DC765EFCB74F9CB8E101533823B74D1098157CC867136E8B7C020414E7C28842E3B1D3 -800FAAC86C04639355130ABBB2349BBB960F683F910D60D679E176ABF18158C9BD5DA7F6263D -4F3FF1EACE57073E522A9ECEE54069698FDA45621E6A1C6D3D3DF8920F34EB70CB5E5D63CD5B -91F8145226164EA5EBAB3D937C9FC659FB96C61EDA954923DF79874EDFFD689639498B497842 -A155EACD52C7D7B158D1C1866A47C44438D16BB20170C9410AB153D6D4C2F691F8891DA80B59 -022A3468E4C124FC4AC322C605E3330B27B3A985121DEE0EDE3AE5B9A0204CABFCBB72191E2E -25ADA675099445A058E92EC3CC07D87455FA7434FB59E744B247162A79BED8B5AD5B6CA302F2 -AC016002ED460AF28E2388567565D0F99EB2DF2355E96045BB524B621A42082F0A9FBC67CDC1 -DA77DEAB2085E464D45D0FA0FCCCC6146ECE4A8981EC8D7C42E7E1DFCC7D8077516701298E97 -679432BB4BB48C3EB4C8E4C474E50E22E6571F956A94F27769BF6302B531537AE0302B1BFF9A -CD24F3CCB8E81EDB03B3873C78CB9FC90957B65A1306F039C08E573461A876F3AC53CA562788 -4A3AA199D5B5C92A10D565B25C3352F5A5B9428AA6B6A656801D134EF3B3D231F447869EE4BD -4F01CF96641201F4FAB3529712265BEAF4AEAC44CC3B81B7156BD1B0A762DC3C48A3EDD8A30F -C0D5F6AB4B81EC74D363E91BE9644EE164DE61D29491F352A57BC2CA050B8BA1FC084AF2B41D -E9882190616F793DB313ADA8B35E505B8BE4DF327F6DA5777A04EC89A89B94BEF0E791F5DADD -139DFFF1FF70C0AE0677BF8E0DCE4F4E40950FB734EE0F35923630B40D39F84839125E3D48B4 -43217868C8594471BD651CDFF6F75769B04C6C59DDA73AB18E85E3E4509D654C0753ADC5E417 -69D5A1077D8D002A91AA42390B3C7E606B0818AEC48F315A0B0B14ABAB210647F463C19CA3ED -0865A2D01E43F56DCEE61E45D7C727DA2C94AAC666F5D5DB1F29AE73052A72E04C46503A0B38 -A0061BD235341B54427D0B09AAF73DC3293F5E27BCDC453C018782BB0A42B561740A4C4B868B -543F267FE101B2D55319227080FAD3170F48A722FCA05A6A679A214BBA2287ADC9B0ABAF100A -3F69A2067B9B2D4E5996B29F52243B35DB453D622E1C19CBC29D9D109CCD399ED08FA6B83D8D -9BBAA6756B27B6695B1852A53011D4EB0C0BB9784FE4DE412FC3DED2EDD87D990EBF3258FC54 -B8313B5EFDDE616DCD23BA6C24B8A1CAC1BE886F23545E6AB66B537F4CE1FEF02DC37CE12A48 -CC95CADF2A6D17A6930FF6A5D4ED358775DC02A646267D7D1A70288C3C07331EF1A6C3F831BC -80EE835C1C20E746F6236014EAE2E2BD281C09C3350CE13502098B0D26656761CA2558A484B4 -73E959E33C08D4FE0F5854FF8B11759121545D80A6C6C09CBB32965E3D664365902FF32B8919 -ECF6EF42EB1C3A0950DD730BAB5D7221C87D914591F29894B92BBC020ED95AAABDBC1968B6D0 -3FD97101C966CC1021A452F35C2586EC5C10D0EA811370251052716968C0103CEF5BA1EC3357 -FFF5833DF816F50675D61FA865EBB3E2872E6BAD320703D210387F44D7988CA73B1A481CA0F1 -4AC5E917A0A250E7C65A5CBEEB4A15F106E78F5EEA2C2553D311CD73A21184B115019EAF0F1D -8569D7994DCCD0A03812FEFB767440291B15B62AB8C51D8D7E053BFAED2D457310387A4EBC72 -FF4112E0B7A51CE49EF5F07EC99E086DE8C9D67BCCCF52D54646128AED7C45442A3D7C694564 -44A8C7B8B3A3933F4874A16149F4C8F92FC773A689D8A38DAB16244FC53C8B0EDBDF3E2DB772 -7145C5338B353C415B2C7D97150A1B041E102A3E1003DDCFA7A2678E8CF9B2715CCB148E7AA4 -9748A3800ABEBB026A6EB09055467B05F786C3D79F914F735E82BCF3B820E3E645A3C3DEBAA2 -B3133A78A763B6F500FD4CDA7DF598DAF779D765FB6A5F69294670938251C7D4B36388CF11E5 -A95B947737F3F3FFEAB01F6F7B86839F5970C63D14C1A4B3FE15C6F632F78A8C0F685C7E0124 -D809D143354CD9D4CAE190959843078C9A2ED39DF9D16148AE25CCCD32F4CA656B66E75044C5 -EDA90CB974B0426F20B1D2461232F0EBEB7F3E3C72096D6E5D1C0B186B4161C93896AA437EA8 -53BACCD50E9063D27B9C67EB28DF3FF15129CE1B06362588425A2029FBB299D467135664C58E -1B610A662BCD849B762E801E4AF89319F6B07A9120143D2CD3EF9ECA3407E9C6213B94D05627 -5BADD7670BA6E2559B8B921653B872EABDBE13FDC9DEA0C30E67D4CB637ED866BFA48A016C62 -A174D9BB51ED00810B6E880D38EEACA8626AF699DAAC1560B02B1915CF48CDA2E12635785E0B -7B12AC793EB7CE8E0224A63288B49FE020FC3B695C6481419D494D3E68CAFFE44E9B82B7B5F4 -10AB5551EC09480A4C22DD4B2AE7E668698E36531DB45670EC850740C7B4E6D5245DAA6B7C5F -A21AE29FD29D59037571D5B2E701AA444CFA786C28CD4389FF7661FDCC7EF638868E1224CDE1 -94995FCBACF53C02AF031DC892389D8048D2393016A39A957C4B38D8FF74C7AF3BBC5DF14C2E -2471FB651AC50910CC14696E6CF04A9A13D96E89BE6E6F1C1DED7B6460F04CDF1FDC8ADE7691 -CEB3859CF601D19DDBFC0415B0A604542B37A10FD597653C4B2D8A697D0CB65CCB29CAF63842 -72C0CA28EE1D85E0A4A1491032858FF24555D5BD99B72F7D37D828FC8B5C04DCAB7C2A1D9E02 -44FE096571F0CB1F240AA80A69297163CFE390A58ACA1E1084A5BBB95FE8DB5EE33433D2AEC3 -87456A4805B32E8C09672CDB8A3A8C22FBA5EF178572CE896B876B31542B650A7871FEAB9ED5 -E3656A352E2A9804E8EB6CE522DA82DC7E24290DD8A974093D77DD31A289E8581F34FA129179 -28D19ED1324924FE22E806472AA3F57413AC2D120D06927E5B524C63E26FD6D4423BCC24D938 -5FBA2B403FA9CAECC777E3855171A706326DB0583FB985A4419322834327A3FF98F4FA413A6E -AE440DB19BEE72A2CE9F7F8D40BEE6C559CF5850D4CC6E81ED882193C281979DF642E45D8F8B -77BF7675AF26FA86BF64A68CEC61515076C0CA1B65820CC49FAA59D7D30A5216CB7645F08AEF -C062DD81A08E59E19C6D05883B7073CB9D7F31178E42AA2F23BE54F2444CF1DEAA8EE152944A -3A3FFF8D5DD8CE832FCDB64A18776ECE9035FCB63154C0A12A9DC4F42947D2FA4B1B1F61D5F0 -C53030D86DB9EFB1462A37E8BFBA0D49A47C185234AE9F2BE5920D86860DD50D5A64F5FFE509 -F3E6786E5C7A315BB59F20C99DE67329211F72A6CED4316026F9DBFDDB9A4FFD65ABB5769E0B -D78A64FFD0D3FA70B209842DCB6ABDB6E2EDAE5D499DD63D8A98A18A561895271823D940FE4C -19E1BA01956006D60DD462809577A8E66AD33CD96527D8FE3DA3B4276CBF6C8DA78B669E14C6 -53AFED55171BF5C546BE4E49E1CA64F73FB1C2BD3B0CFB551853C93D6B2470299570EEA96806 -F05E00A8820EB2D7D6FF514D98778A512BCD66127D0362FE82C9E32645409233E9FBCF2C57CB -EA3E0D016DBFA7F3D139FAC19817D0A54E69CE49E7807F9AD46F08176BF2E8F5557605CF41AE -6A716A3EF416FACB94F67A41B02DE27C79A19D110C897F5AEA3B8C7D8B25C30C4F2A090B00CE -BA97FA79FE9C3D62D54648EE66ABAF8370F52BC55147746EE3B2989C4DCDC75B003E0549841F -0CD88793B69686A252D2FAB60F05F65BCED0001EEA1964F29CFF51948EB38F2BEDD7CD113F63 -582AC8894F4E3C39CC6441C20D8F80E6A18E7779DAE21744953DED4A801AF4A00BC7611DFAD2 -B0BF04644705F3765ED56495D89467033DDA210D67A2A15D368906AFFE22A3712B5457A5239B -C3F8FBE75603A0A117C1F2C4516159D7F378151342154A0B5FD0A286F46B13450D1740FF4583 -0226DF9DCEAAD1C7D2134003958AF39CE0DCE6296FDF49AD5DCE34D8D7B7F1E8D3D9E1833AE0 -194982E6A0A1D0661ED909FB95472B8242EC7EAB2621B6B8E90D323C8C24AB6D1175EF464294 -4B6B99F09358C27DEACA32B6E47B68697ECD8D60D096368F4AE6C2FD0CB774BB4CA351E3277E -A69D5C2332BA6A8392669D9DCF561D3EF98B2F21840A34635EA134C54E4266F3607ECB8A5754 -199236F7429680C72B28F81F0BBF139BE501FBBC8A4970EB77F5C8CA11663BC378EAD24D603D -DE4489B54D1EF7A6F80FA5D744C82C2B34270985F535BF518FCBB6298F1203D59E8D3F70E47B -323D235BEFE19B3CFAF5DF2A14CCB74B1408CB2E87ECCFE2AA69F3F3AEF6C63FEA106CBC263B -88C838E2093D6E8C119A441B8A4AB33610CC2E5B3B134041300C647FCB469BF51A1377720412 -B7F135085F3D22245AF0D9702383077EEBAE0A4F7F39A305DF85E8A0C2BA60321CD0E7293A54 -9FB5DA118070170596779DD22808449F6A3BD2EBFAE9841F52B96A20B6727F30D19867E46CB6 -98911CB6F7EB12A46CD3C6D0339F43B218EAED6006553F3315D2A0E66CB2980E88CE6E9BD4C2 -7C58AA432F3007A84E7919C3123EAFBE83454BEB9047D071E6724694BE82678B503A9D8738C0 -5C2AE9A61CD1EF1D07ABEB3E492BC0214EC9B7680CBC12855B7183C7604129502EF7D3CF69A5 -83B25B4C20361D56203AB4C15DD4AD738CDEE3BF59CABE2A20CAE64D642C8929045845D19D4F -1C048F9E8A43EA1A3192432853AAB7E42BF8690A2B207CA03A8DE22B0004BD927450799197DC -A7E8423564724054C75E5734E1DDAA01B4AFDFECC1FADB268E67046A27F5CD7E926742BD07B7 -5C2A320DAEFDE26A796697A9987CE9A3C90FBDA759CBD0CF0CDA9D143011C8F1E81EC3E906D5 -37ED7254CF7D301D623376BDFC7AEB3EF24C6FC430B68FA76DA16F09C011BF093B8A6EB76C83 -E3047EAF4368701128ED6B7072781CA85B5C8FD0A542645C74B893D9CBA642FA4EBAF22F12DD -7F145AE47D2C1A418731DAC953C62EB47F658B07407A0E4502C031B180873668B1791D2F7482 -A3139F2058467F28FB2BBF45EAA720757197FA8C5B9C62371B2E7BEC4099C3444A0401B7CAFC -511C1BD90983A1B725C8123B2CC1A03DC0402C460267ED93355957E4610888571F1785C7B2C6 -38589B7D8A5482DDC8E9EE14DB3E4F3B8328D0F1D29F16475E2D097FED78D29394A24B13557E -E7A6946B22FEB401F7B04A43CC878CEEC90058D84650F3A6A88D740BF24A5D09BCB12396D3A3 -C1770C55894418224854983A4B2A99C1CE274618FEDC39E44A35CF27C222DE0F7D7AF5AA2EA5 -EC2C9D59EB1DFCFFAADAD318A82BC7FBEC2231F28AB3E668F4FFBE15E8142A8FE47C17471B31 -E8CDCB47BA7431E2E7CBBA9A85C664F7B25038D504C62D866B983BFFB35DF66C41CABD2957E0 -442E95534CA9416A1BD59E41EC29F500861F0A084B60D09C62773FE96493B4D8B3D068AD71D2 -E995575A41FFD7B991AAC989D1E50B84175F03DF85321C61AE23EC9446FD675605B1A18CDDBD -8B997DA25F3E8BF3C95F6459B3D4B2331B62F16C8F95BF4077FF1551E096D5CBB9B96B482D7B -4751488827847FE9614DA0E36BA169318101EBBD53215611BCF0005C00790EE519AF834DC6B9 -4CAAF1B66C35CF614EB62E251FE9F556EC155D38C48DFE4E9EFA21119CE66F8BCA3329DEA8C8 -BD3DA222A32C5954ED3B1519C07640CD6287C95516FB8D5129BDB1F26094247CFE3EF753B39D -EE2A15B466E31053B9FBBE763C60937C71AA2FD8F786B463D6D3D5EC999C7CEEF386E9D129F6 -604A663F3A7240F1DA22356ABD5A096C468332C29FAD7BB7B0CC71DB348A834AFD6F7BFF069F -64F4DF4ABC0515683DA1D44E184B33E7A2225E947CB14E8CD3EB186505052380CDD4D8C5ECC9 -E8E09FBE853F21C41F2E7D94BE95C7A20A8B695DA1B6817A5894329E6D7362EAE2726604879A -5C8372818566A2F755C3B28A4BFC97E894E343234267ABD3DC34AE80384A4E3E5E8BA416E053 -9EEC7C28CE9EF4DEC442C9349EBA6B7417AE26A0B130A97CE8CF0D5DD11FE83037B13807919F -CBE125F03603578F13A7996249DC599A40A9A572ABB5A01BA9BA5397EF20446CD266B0B3815B -85190C4DC326AE64EA9A1C105EDB75585534C93143B6FC89E7E62F4F783C7C98667AEEDB5A34 -AF8A6EB76C83EE23DF183CAEEBFC1457D8B9ECD9C7286B05F523A306A07E1E6A7CFD5A1C44FC -2A8E864C1A7666C71F6305DD252AFEA262867E1A5CF9728BC0C2C36038B1C28512EE6FAB8D04 -C3CEE8EBFCA22F864DDC042BE521A361E3E8A1DD8412856044206C20E9CFFBE1745EF280F68B -C557AE1E7515129597090FB8946A52B6B97C6E72F15D9010A230AC4CD480C1870BDC792F5D94 -C56BE80C820B54F1D7FED00C4D32CD8DED47E68C29E780B7E4158F24AEF58F219C975F1BB4C5 -E3CBAA2AD1B41713DA24FD7591E05109992F1284F033BB6E4DD3C751E3FD6A14FF9BDBD07A90 -3C156A2D6C276C0A099C1D714211BDC9BD3DAF01C0397E0434DA59DB228599F808E1C9F57827 -9EAA290C092F2BF2A6B6771D10C464EAC1E9FBD4C4E32CC65C78AA38EECC6EE2EA7FB411F81B -1A1A7E65997B4CDEC8867B9AF202BAEC0254BC48FEB5C3AE76B5578958FA4E185CFB520A9900 -A71F1695D2B18A8A7456D9FCAC24E943483DC1DD57DDD94016C85C482F38D355CEBA3445EE2F -31D65E377F68421A1BF82584D34AD2D059197E4E7E50AAC083B3C5CA15840FDDDCE6F6CE26F6 -24882D20E20D9319455822ADD186A21D38C4BF501EC8B873E99AB30AFB0C2E8AB9A8AA799686 -C36096627C3E89FEE6533CC2312EE6EC17AEA84E02D559653E5D8B5F09F885156E645AAC0C2F -391A8D56DBE10B141DA58C20734ABFD916B01FAF8528052CA7EFB4A5DFC54AC44E8F34DA2ADD -D8DD81A437758DCABC184A8409B767110A5283F9C2F3E88FDFDB3E0A8610AB17B5A6C4C596E1 -F1A8B4D9C78D44D690C94F310493F3545075D836A33A851143E6611C3AF84AEC0A67EAF7B59B -76B902A9797B9874BC053172E57CEACF25C104471023C5E8F77906A9CCEEA9CE1327E0228158 -BA249FB0C69E5FD7E1794A9AB3A63C1432285059D2573A35BB5D5B0F7198B15DD8562A6C321A -9C79053951638F99195FFF4BCBAFBAFE631B487F1C3F4AC9B6BB1850883475C17F0A63FFD431 -07ACCA42AD4A740BEAD9F812191AFE76D29B16080B3023A09E51479AF71634033FD1BD9876CF -2F5D71641E03DE194F4249D38BA999A0E7B131D0A2F5473B6BB99253283EF3935F7BE156B6BA -28FCA3248B1A98D5499EA692DCA586CB56441577323474FE40ACADEE13915C5CA4FF39BFFD82 -FBCD306A8863323AFA3DDED3746B659D42543B82A7600209BB5FC70099BE6341117BDFA6607A -0CC2E31A046EEF4A68F8D2F6858D73B10B0C3AA8C51E2D21CE61D6D3B718AAC706E2DAB6894E -6C5A628BC205E6852E5441C295835BE475BB6FC7E4CFEE250044C7344251A39009257A9F4B63 -C7947EAEEAE6BBEE257A8A826FE01A7A0BE35914DED9E2A36C35A39243645FAF91C36158571A -CC320AC20023EA7BE26D13A808C19E42E1DE7CC3D1DD05EE544A447C159CF85DB3062E381F6C -26C939B277FC635EF394740E9E911B0A780757686A45FF1528F107F48D229B637614DAB1A4AB -D3806769D10656A84BE94264F6E08EF9F041C22C2ABDAE1A8C5F5529DB511587AB6542A205C0 -FC7994B921B55385C8E6C55A53A30581625C6ED5DF44748ED15C9F3599D4638603564C8803B4 -0222B1F931AB50C0BF6EB7042163900B1089F87B7964C8DB9F8DEA2FC35EB2A39A0025D4F2C6 -4AD18E7E1DDDE5500B36B1D5B9F9449E046BD49EFEE1F2DC484D8AFBB737C3544609CD356D22 -39ACE6BEFDA61BF1AA741ABFE01B4BD957871E23839495F121DCF90DF831F7458DA135BF6DB6 -D8806251A1350ED6E4DE94BC3973167414794C8DC69BD8789F6289CB1848A6E0353B9CC3EAA5 -B1E6C5552741923D993D0843970D50966715C8E0B6577FEC645D1EFEFFA54127B9C3C9649EF3 -C33FF8620758E42F8AB15F3C6EA3C07A2A5DC9D131761B43BF15AD718CC5E605CDDA64E23329 -A14A57C9E62A5BC5AB977B8A76ED363630FF541BFF818C59B576F70D9D6F53954D683C9C386C -AFD3211A2FC066BC29C92904E2A9D2FC4E10B4E76AF3F0B7F899BD080A044B07443A6F9EEEC5 -F30CF428F42E3B5CDF9007D9B830950BAAF8CDBAA6A639D71ED408C5BFCB2F343649471F6694 -57D5854D3DE3CBE2C51CEEDC9A4505CC1F022484B8E5A242EB634F5A5DDA41DC1622409B4B00 -778533CA65BCBC89C0A3D7D38B41FC5198954BA35F36105E36E63F8FA3A62DCB67DDB55470ED -41E98FA2452433D735A52F4CE82D5C12CCEA006A465374FD9129BB796145550FD09D699FE930 -C49ED8E1C9F3894DEE30FF5FB39D4CEAA854A719947C56827D934E879A3AF9063C9CF9EFA44A -E2636D150C0B96F144A3F38BF4468DF2B905F368DF18FF70AFE86DBF5ACA22605F360E3AAA86 -8C4FA4C882824EAF700BA6DE33C46E18E3031FB01DE7E11773660C3C8CBCC99FF2F8B72E0DA1 -17F40F31D7FB32719C248A66B0FB88AB730510BBE17A1EE8EF7CCB44C0274EADC093F4C33859 -3CBC45B7610A062203E7E533E9202844637976366902884507424D0AC1DE1A04E4438A3F736F -76DF27C60D1B6836D802361D5FCBECDA4813F29E1FC759B4904D2ADE9DCB7001E3FAE05CF824 -2F000A3C1769354E28FEA0606F9015D1D69B74DC4C06CA521DCE8C7B8A9BFA10CB416E8477B4 -F0666D5891495D831D55029D82A0AEC383867397B7C94901646543B1BF697ABB498F2C74BB9A -0ACBF49AD540C2E6A98C4F435EF0C616DEC020DE982624CD806FF978BF8C540CB9A848044B33 -952B460DDAE88FB5AC86B28D3E6AC2FD1CA755A728054B2DFA9803CE26BC5E596C47776C8ADD -7ED345ECDF3ACD6E5E6E58333FBBE64DA8FA67D9BF125B2A6685D49FEA70F0ABAFB5B34F8B9D -CD44F2B6DFF307FFACBCE07260A98A1EBB7A7CA01D2E4010FE74B0CA3A1D15ADEE45073616DA -1DA0A91AED5EBD785B4953C2200AC2CC34BDA60B3C0F4D01E9575A5F187FBD6A7DA5438F9B7B -2458B857F964E97493A0629D507ED9B72903472F037145EA0B98574536787FB6672E00D7B08E -0A23334EEEC4C1A3FB1CC078A4600DC44E1703C2B56C92F97F9F14F8C61DC80A92F52352EBB9 -5D3C0384042415A61A2F87EB38F6D62F203D1640AA5D6C991A116E204F2B1B4C5C555DAD5EEE -B9D80BE96E06EA55C71AAA1AB688BEC22E6B0A961A397E0E1D1B73D6A9C21B47AD3373218277 -853E32806219D68DE070B72A5ADA8D82ECC31A9E56E18DABB6A36440DFBFB2CC0E2E50154278 -21FD448EB53D69B1FCE4BFFF549288386DB03E0AA4C4F0ADAC624893320025D21593F6DF63A0 -F634D2810321179BF6FECB4947413EFC48E3A9569A452075F946F17D06E1F41942220B700924 -95B063FFFA6178BFD2C51F77CFFAE71804CE1A83BFD3DADAABBE8BE861DA774898000827DF23 -354E41B36935161785B0075C22844099CE7F55DB1C82AA9C9E9C58BE2DEE99AAE52D7DFFBCAE -1A3ADAB60E5BAD4F0991E0302D896C082BCE4B49BD0BC1D65EF26D4B990E50FC052ED75B875C -642C527A77B1E6B9EF9556B3C7193E858089E53253A4DE8A9F5720C0AF1A8417811BC5AAD97B -A01A8B88BE10650493E1FAA73732144792CBCFE2F3499710FD959A6BA84DA61FE94B51E7C57A -0A5558E60440637081BB4151F6DA2B4934AAEA0247532055CB05F482EF69562839E63338FF1A -44A86CE80FC9091F2D8C5A60236B88D4E439FD0E147AAC487AAA5CDAADCB206EC515B65A787A -E2547A1DDE6B3A7B119F4E76F67D6080F3CD5706E46FE00183A607CCA4154D901F268A907911 -3A147AF4EDC23FC957458B426FC6B8CCE39A46F7C05A2385555AD3905283DBB66BEF7AA1CF31 -97A7131DAD46C68AB48924DEBC9BA395B75AAAB8A9366E0D4E77AFE68CFB4627D6412C2CC906 -F1BC6C58663FC71403D47CEC976459E1D014971BCEA35920264316F86C235A4CA15F5279E1AE -4F620DFB5EC4F76EAD9528A379BD7DF61CA5E54EF6191B94E016609002F4B40E749A0495C4E9 -284B2685C17BC9CABF1E4F3346D5883692A81B22EB5144F1CD6E5A927D6D5E9807FD42AC1872 -9D693856C589761CB8A36C4523131D13BFC3B6925634B993B49C78B0E971075CFAA66DE3DF4C -EB6D8956BA41238C05C5B77204F79BFBC6C9FB29DA721E0041BB3DDC31BF803324402665EC0F -E24899D0847C9EBA2ABA6ED49CD793EB44F399055F945BCC11DAF06A52DD7328FADB3665D939 -BF00025C4171400674D194D625F0CD90DF99A143A0532FD9D16052CD53CF8B60BEDFF9455329 -BAFEA39037945C16D67277ADE749F095E25CC78E1B5C1FE66FCDC6C3527CE7BD6FB174007DC2 -E1372D4003D4067CE2AC8AEED06876BE6FB5D1ED275A4A86FC1F34CF35F2B316108F3318D881 -61EAA7A5AF56C4697CB3628EBC3BBD68FCC3751D4320178E58C8AA5AFBD657A862BE63FD0F45 -12A136B0DF61BEB24445884FF44725195BBF2533B8744DC5CA8FCDCE869D8E4F3F400415201F -BA7C6EE63090EEC569D8352004ADC811797CDF0438EC6172A35959B9BBCFC794239D606A43A3 -42D13793C0D6AAC4A9C153D63432E19B0BA9708F4350FE0EAFA65340D527DE5B2C310F83C3B7 -D26B688D721528E62564641A962888911E0CC0AB3B4882E2B8A24F8118316A88C1889843DAA1 -80D7EE37376DB5D709E0D9F76CDDA1540EE4F42745B5FC94E936A3FDF99C74BA8104A47DE243 -E2724F75E8B2A2A49154BBCB31E52D767DE5BE89B6E0418E84D4924F080451CFB8884C185E9D -F511615DC6F2FD9012F7A801CD43B204DC267FEF6CCE6E87E37D4D0CBE4665779FA74FE4ED44 -3025D6C59BE838448EAEF56B7BCD261D4B179E458435426EADD10F49A8CE9F2002FF9A0A24CD -E43C5E2ACCEB1B9F4E5E73602A460A9A332574B1AA29C4BC1C61083949A5A57AED96E758FE59 -3AFFAB80E4F03C4988BDBBB1B71DDA87B374F9F1552FEAAFA1C8D36C652956A1B9618BCC4CC7 -7411D445E27D4DA04F7EE7CA9C2CB80D3D522169603D8814639B972ECAE3637AD72200E03AF5 -CFC81233395DA28840266C5CEC035D68F5D0FF4A45ED1AA05DBC96E7DC3399B6DF358EB74CC7 -F602F2086E6E1C9D7A3A99681AF292642CF509DDFB60CF094D6D1AA8F69476EFB2E929431401 -896C13F3B66EC392095C964EDCE608B24C41E733B807F98E9D6D696D215E4FB20F2410305DF4 -759983E94F649F1C7AF96AD6975AFF4D7DD64C18CC27BCDF629B74EE04D7623C04295373643C -136F02E7B318E53EECEFE3F227CFFCD1C9D60560FEEB700F3C63C74FBA0E03CE1F099A5B7424 -2583F4E1A2078ECF4F5A9975F33BE1F3D93751D3DB9C81A6613E8F34CC8374E9DA916DABC69D -F8F76D3F1AFF204B5DAA74C80459C7148D5DEEA143D7998860A2126A7EE248D199D4A27DA6E3 -C470E9D8BBD10578D4D49D1738BEF79120FB40744F0F54FEED6DB9CA45749E31111B4B12E1C1 -D464BC59000522AA7CF9C8C7D22781E93021479629804B339F5E72FE72D6F32DFB39D7009B55 -A7BA74D82BFA921F63181300238685EA10E0021B46461DC28B5B082CC5EF261FA5322F97E8A9 -19961097C55716452FA03AE4B0DFD64CA8CF4C96CA8BC6AF5E8C1CE70EC8C58A082051531C1E -24167717AAB1535EB391D680F162D32EB49A90EBADC85168E97ABED8874D03D3CDA71110750F -A22E3E738B6BD5F9141D07BB156DE7712AFB1EE166AF05A1A90EADE53DA6B36B14652C505DD0 -D8B400143F95D66EF71378B04B381CC8B420ABEB0769C9AA13CD161264E5A28CD054FD4F55D3 -0EAB8EE258255B88E739EEB071AB428CE86331844AFDD428820CDB0EB70A5CA13880A4CFFCC5 -02026B009444D975451B6C60B26B0FE2E3EC0D783EC281E64FE384E0749C44639A31875DFA6E -70C61E45880A0EB9890946D3D1B91E57D8E6DE5E79CB7AF395CEABB432B23EB244DAE91E4D47 -35F55B7DDB66BF60F4CB325242B747423ABD8CA22C5F9864CE93C374C60520322F797F7F3A0E -2BED691D1EC2F026006C7FDFA2F724A079ED370C6CA12DEDD2736D46E8E656CE2A7A2875D49A -ADB5705D9079E9C2144B99EAD69234A96A5B7916B765A04337C2E16414C397658539D9AB74DC -21AD7209268CA4C7F6F2EFE9AE27909D5358CFF49B3E7509D2D2A127BE172313BA80E58FAF80 -4B8C084ABF4E3C388B187703BC93AACEC058F089D02DFC3DA3169406C20BE3CC1BE4DE755D62 -E34DD07122FAA0B501C3AC73C32C178B6B5A4F3A5D651473DC0E41E8FECFE63E58E7AFA59094 -F373CB20DDDFD8227E4D5DAC89E93365DE55774F2F6DB49CCAAB149244E725832123140F8AA7 -1B1174A9F08D2640218264A79C26BC1318A5926ED09A583A2FA10B969C3B05507ECA6D25EEB3 -A8E999FE275C209C0F5FE8EB2FB751B903141E52E8C62EDF91A74C6B96ED4F48EC550D64EA4C -833E32A032287E547E2C14D6B7A1DB43793A27C1327C6844D4BE8F14F5D345261D8768F5C9B8 -E639FE63C3C6A6B246F37F4C9D1FC03E34BEABD9D227B543ECD5C2E3D1E444E75E329287EF99 -E3302B40CEB3848008949E8B86A96B9E1416F3B0494A98D19EDE280B854867B51873337D0B33 -88CF0068C0007BBD61D895B6C1A03CFEFD238DD4398A4992364EDC49A487F76E1756F4A3FE75 -6C3971AA8386CF177A786F8FBC73DC541282E3D9AF5F306B86FDE97621DF5D588E9A5CEE355D -961852E3CD9AF41DF96CF1BAC22B20AAF03674EA6C6AED28734A9EF31C2AC4F69090D327B24B -3EF8555373EF1E53890220427BC45FE34270611E409AC31CEF856BDBE78B34765B2649AB11C8 -33CD8A64FE27621887A494786246AB84243D7F96368A18E6A6180A4DCA2C96360187D8DF75C5 -832133049047C26F3B197D66C2EFD56DE83DD42026700358250E82429EE136E491E704AEFAF4 -D12FF0C271919941E862BC1809ECF8B27532197C5C60E0DBF2B77A04D656A9C98D95B4CB0E39 -0751C1E7CC79098E249BAC224C654D3CC2AE2BDA237C10E8A253915DC92C586D6F6C790D3E48 -B6A8D935E236DBFC9490B1CE10510E93E630EDF826FF00E161F823261D8278D38DFC9B4384EE -6F9A15E7097D4C769A22E3A4629DE5C720CA1252BF0AEE99233D01E3A2BC37FB076638369486 -17F977B23D4DBAFAA19CFC73A5563286DCED3C0D8BA90822D4E805ADC6803D8AAEC8FE377809 -7EC8C4635A93C7D598F17FFEEC66003ED2397A59745A58C22532402B4F0BE15105FBC7D28EC6 -8FEE49A62BC67876ABD4F0080FEB9705D9B63F9242A6A7DBF65C7AD04BA93C4BE6FE9733004A -EF92C5F61F581B76DAFBFD5A37D0E30731657A315E779002A7C6538D0FF4BA18430A94B645CE -4829B9FEF1331CB0CBF5C46B392E7672B3E0D576E73CB17599470FF6BF88D93C4405BE9C9A14 -07446D3A12157DE158F9BB383EDF5E04E9FC779B7B813932BB8CE886A1DFE6127D6AE38D384A -7D8A1290250C6B3EEFECE49B5C1075B61EA864EF92CBC48A982ACD832AB3C72675126E42A7B9 -485D8B23D548178FF716CCF47387D368E0FE5B222A249F9E74BD78508159EEA09D3AB47B31F8 -EDBCFC2BC892CB3F62960F9DAE9166034B32707F60F9F788D922B6AEBA1356E9C8F42C336FD2 -0053A688672F82B7DAEFB64A4C1383F82D01BE1C86EAD885650287738BE89D5D73F02A680882 -6FBD7BB8F426790A66C586E00EB37DE4EAF7901FF78888E326171CC4056402ACA92015569273 -252DDE899EDC907556CB0E0AF5AD2401E294661CE7AD35B3BF1DEB00F7E0E610D56318D4A8A2 -8A3952B2A2EFA34249488F8AE96E9ADEDDE091E0ECEF21AB2A35A507EA49EAC3201CAB0B8395 -79CE904C3DA386875E5B2EEA441E3BB7782525A7368729DB734DE7F7F9A52E3426D1EDD7A52A -234BA3DBC3DFD001FB0A0EE959DD6A0BB4C54AA84ED50CEC2CEA7732D24184670FFA32CE549A -04C99E47B5DC087210CE220862D334C1B3932D8403CC2124851AA1D43218E4199C24ACF69833 -5EA670442CAEE6585B2666FBFBE625A24932F9E661D24FCB59CBEC02AAA908C6BB125A8C224B -91A8274F81B550F09B4862A9B32DE3174A20E5B4198E1D1B7FEAEB56DCC243B9CB1C0335E1D6 -E10BEFB1FEF1F992A08C07416666F1B231AEDFEBF1ABF3C416554AB00235D302C72A60FC5E36 -FD968C4C208DAEC7E8146E791C99E255CC74EAAB30CF889D5E9792F8FB3E87758EB76975A74A -0FCB6B82EC7D3D66F33A81D2450DFD13933748F025DD7BC6A98DC18B80AA00139971A3CFA94E -67F54E8C0BF8FB959B40E672E39A63C9BCB0E2B4317789D5E0AFDB134C5F083C1476E38F89B9 -C573C9779D045192C6F8CE41738C2FCDF3371A5966802B9CC634CEE6AB3405B9A624BFEC2FCF -9E7C8F88398EB3D020371B15EB7E77A8B4E0B5182CA1B4A3D38BDADF9C9A2E3170D6C955E6BD -A804BCDE19157288C75C4AFA918B900FF50FED16FE67802DD99C9C5756B3CDA9044DD50A0762 -B13D69FA441A217E8D0C2AE9558017D8D8A7E8E4A78D0D51501EB492165089442C901333AF38 -280CB079A57D00C218D61A51C88A91E8D227BB9E6318AD0BE7E07EACA0107FB6F77AE9260346 -51FCE526870CEDDEE10F9A7C5E6E48B48C09216CF0485A09EE0DE9202D8811F3D480E9EC5685 -CE4E9D41B79810FE3A394BFA42F7A060A8D341C0B9A2997DBF4CA279D118AE8C0B0F23F17E37 -E178B3EC8706BB29AE110E732EC701B68DB4014878DB4C88399180A4B6464458F886678B9A31 -81383B3BF84469AFA6A3865C5672AB4B994411C10FF1D1502B111D8AF50EAEEB5E7791CAEA01 -E89BD4029DFC82CD0650845F5772C5A6CAF7CE5307CE6E629C4E2ADA2A5902FE2940E9119ACA -9E5CC36E96BEC4FD2CAE340A7A5DBAB606CC25435A7C27C86CA8989F1E2CECC51029DF71DE8D -B6445A99DE978B0D4B7FEC1960DF16B3698684C45054924E08362E819BC3596A3388F90B14C0 -B4BE4D9D969C68D7CB76CC9D27A96204FF57E66BEEFF780D58473D5DAFFF5531F6C2C71DEFE0 -F8241FB1C137C15C9E3775AE3FB1A4FFEFD9C9CCD29D7A9D081787A200842A6F4CB4B365375E -0729A20531D7B551414BF0CC4BADB39448844D3254EF79AEE27744677B12573930EA4D74417A -E2B78DFEC968A19E1804ED70FA8E89EAF0BBD6E5AF9DEDCFBC0E35D292B23733786FEB84600B -53C2799230A287BC52FA90B5511700A01F6316BD8435BDBF701DDF52BC6945920B992EA708E6 -150ACB8A5C05DE8D5DD38BE4C740AC770F1ED38D07D5EF39C11DDD378CE9117FA92FE5297524 -8561182CED75795C5CCEC9F1D85EE4EEB297F525742ED80D0634871080CAB6C7B08D090309B5 -E348B0CCC9A00E86BA3867C8CE6A20FCBF309CEC5A11BC1DDF813099072EF32E50573FB0F010 -18F7EE9C65A28399A16ADBF89CA34F59E3994499950736A7883FDAADCD02D5713222F5DE67DC -0DABC4D7364119427200D8AA5BCF1E43BFC10D75FC0CB4B6F9BE0ECEB4A1AB8A785CF47DC88A -F9E38B8FE8A94FC734DFF0F941ED85A91CFC1F9DDA3FC5075D0F13F7F9CED97600AB6F593575 -50432FFED4E453F8B2E1BF9551425E711BBAE472BABF410A4F550B86AD50B49B1EAFBFDA4E94 -8A929F8E18CEBD1FAA42AAA147F7AE354A09D380B1C7BFF00BBE5E7D47BB633AEF50680FBD46 -89FBE0630404C4735B52C2700BE70242C3D12ABDE7A60B6FF5ADF9810E3CE1EF167828E9355C -AFF4E3B552CB3956B3BAD6A901706132CAF00C41A72502FEC1B6BCDF08019BC2E86E172A702A -6F91DBB61BDD71C512886BFBA1891CD6BC6A7A095806D40F319489567F9CA7F81C2BE7DA623A -1EA0FBCE4BD65AD4955C15B2E5C68B7B1585B22C2DB936479F7793A82B2D081D53AE3CC92C91 -0CD9B82A84D305716FED5DB19477CED12FF7DED667A73F92147A2CFBB1A9D7AE9E50BAED3128 -3705B4281F67B758D54A85F1DF60E5B6CA8BE557CF44A4D6ED94D138DDDB407354082D212E5C -CF7FE4405B923E736A1194B149AE67EBD07D5BC4FAF65DBF640DDADECAF2DE0B8BB89C98F641 -1443CC57886CC6B9C528C5DDFE7C576631E951514C4EDA97D6B8E206CC897772804299880C0D -3D30FE3D7A881252A078EEE91B38918636673A031C4EB0027DFBED6E15522E278F59009F767F -6A456BDA40BC5F24524F7E53A7AEA834B1EDA1AC3D4886278C005078EB9D4245FEE9D3D60F72 -240658AA140676E357E4AF83A156CBDE08B0D78AF14886673053A123BF9C0512A9095E267AC6 -1D4EA9E3F8AC23FCA7C3A3548C9FCAB6E58EBFE67708CBE360C711789498A6108176F2C114B9 -47CDE1E0A4AB6FCB1AB08101F3FEF8F807E30670F9281AB0891DC5CC7F00E98A3B1B050C77B1 -82226F031A3A86E605E28F1B43D7C70ACC72585C210DD9C2BB392753B8759E45F3EE81EC8DBB -9A57A0081E82A04800E5AEE8567E96A4B48AF1281AEED074D5F06078ED3A2D31701748423490 -C971E1049E01A1915CBA290FC1D18806219B7DB3ACF4F1C1E67AFFD446CF51A9D6AF922BC426 -27F901B5BD2F72FB7B145B03AA8968DBD5D378C66C3725744DD91E3BFC2483FBE9DDF01ABD81 -AC37A75D1AA1C9F5FD89F8A6F5A80CB70A730340CDC11B276E6904734D14F960DDEFCD77A6F9 -1B033EB61333480176FD4B58F6BB4C162FF97C904E30144336B0D4E51D25756B7CBFAB4316DB -0E56268C55F4EF84E03C60BE701327327932FCF2A4595832B13DE4D1F9C18B2C30F4F2DA2984 -4676F30C5C834050DB45C7BF56986F40DAD44C0CA9A31EEE7A190031216089455C9CB7347633 -1F9B45C211A31EBD37A1A3E97439BA981264A955F2E6EDBA6A7B99BD30D376BA2E375F98EB9A -C3429D21433665B460E9F891C11D15F32F277960136B8C7D4D1666107141F236F9305B15E46B -FA0AC620FBD1545C830DCD7BC704FAA0D464DAD2A3BFA53D7CC1E14082717E23EBE9BA921E98 -7867742BB2721C76A84051A5643F4C80A402F4A345DD86B6FC4A83041083AADEE37849F136DB -8C4146239C066C8EBE98F258B15A70974565E0AC96AA13B2EF603928822BB85A305D1F543F59 -E6F3B55D486AE0DD7BFE569CC270C9570849567FAC11FDDBB8EB3E4A7397FC5E3CD675A9CD7E -0483F31DA96AE25C16FE432CD32DC07D92354727A942CA3BD098BCB75A7225B61E53F22796BD -CA158C66BFF48DACDF39F0BABC9D5445C5E2C29C6A60C3CC5CA778815ADA78C03EF034293CC4 -DAA172CC986045A5635984D6DCE6431CA7855C2FBA6A7E75F55F59016354C2D867F2657F5FF1 -D629D6BB2FBFC4B856466A6459131E99DC8CD8B85A2DF01FA19314EFFC7D93928A5BE0AE7697 -CAE25A3E21F1D593404346C270808B0423846E466A4A7ACD967C37DE1819F18563B8BB44C563 -F7CAB5E25DB087C67848A8D38118786068DA64E18012F59FE77F8A7D3EA0871863FD55F054D7 -9DBF755A6CE79DCEA28C7FB2D8C90787BBBA4E9BF9D5F138DF76E88A6D39E72F848960092994 -CFFF9EBDC2444005B0545D9E16B02B4CA2C82F8E4BC9E99C48A4A982C4E01E2C5680B0B0F33B -03083A84E6FC73C9257FD67EAB53F62CD3152FE8E784A028CF5E47044715FC8D22FC559799DB -36C3677A3E3227BD5B2EB32AA8F68DB2057F726F049BFB8FA47F8AD3EC33431C1EA0874DCC6D -F14A319C21AE89A6C66A7138FC370EE2421F5CFF5E6C0E589B35955E0A5075DD8438488E3D88 -BAA6B3162A09E5F509E90AD44904192A9427963BE6C1BB4BDC5FD1CEC44C547D740607176757 -0AADED6FF28C7DD7E1E25752EB9C740E2B1EAE0D6A11A45CB82D64D36A7077D95897C94E23F5 -516DA28AF3FFBA93473BC08008B4981740FF5CB7071529E002FE2D6C8A88B4CBE6FF82B504A2 -7239657DE619B6052F8906C2D8C61C11C19D9FC2FBE38D57F050383FB97FB7F7FD0453D3BDEB -158EC1452C3B5E2D0E811DBD3B0775347F264AC4F01E10964DC43923F6EADA25ABD72FE52416 -4675993A1BDCC5AE08E3D1DCC2E7114C2483E5EBC03AF0AABF47412E4A3802318C52B7C24C77 -5738ED8F5F49CAF334AABB8D6926BA5B8E5273E6DD34D0E10F799106B2B6B3CE586084FCAAE8 -CFBD4434AA3A653B79E1AC689537B0DA5C6472117F77D97B23C7EF00B095517B518F4855E955 -0C384F47885109E1F5B32CF36ABCBEF708033EC7E91A886D404E46E8B665A74CA00A9243DC54 -436286F2F338B9A3681C026F76EA0F1018775119B90E765526E016BBB9EE31CAE5343028DEBD -5DB5F2BD66726A54EF694F486E474FF5733947B447E2C18DC328A057949EB0744BCB992FCE1D -613E2C19A5D2A2B0AC283446A1BFEB92100983ECFA10E766C10687388737B43E15DCEF774A6D -16BC93DEEF20C74317F2A02DB874DE8CFFDACD6D0974C82DCA89C19B3899A71CDB37401F644B -D1626F75D69C2667F71B3A67B7CDFC69C6A10D7EFA4F5B0542CC99A9739AFC597DB4BE5C1AD1 -C47378A64F633000AC45D6C69D2CCAA81FAD4D8D969525B93A12716459CF5660724F0DB92AD6 -442358396F2616E534E756B5BAB8CF9343791F981EEE5E713D7A761A45B8AAD2E613C53653FD -9C1B6ACB1132FA3EE581087A87D48C38D20C3BB53F6EA573BE8F436541E7398AEA92CC5DDC72 -BF9B3FE1EDDDCA27912DE90E9A31CB340224B2B09B3E4F97B9218FBA091F79F08080F8BB99D9 -052557B9837283AB7DCE7C822146FE851E493E75E135D550D6353668C4CC9F20380186FD86AE -6426548302B31B71B392340FCC1F083A46D6182F3B462FEAD1C5EDB655E67EA635848A4149AA -97C01188ABA1F004A698F4643099E905B2F1B7D04E825664772756ABB56CC74AC3B0E1F5F32C -CC6494C17DFB2D673011CC37039E64522F69569EE62F8C1474180DCAF4FDE9A93F0A817ADE9D -B825CF187C17DF94E596E050BFB5E136C4E5894E1C2973C290CF9DDD5311AFBDF2FA25899EFE -EDDD19A3945B3F30B9CC508FA64A44DB88F1BFB6C0F93C305EE010F20580F65DF7035403CAAC -22FA6D3198B938681CAF25C6962B5F2C41E6C64070E2A328C15E6DDAB2EBA3A5D75D4DFC5B4D -7472F72887CF1615BB8E81C5F7C3729D5666CE3903E4CC1F600B561658450F1214D325246635 -57BC6B8C7BE6737AB89FC5F2DB845979FE6DFEC15FC41F359EFA346A0A495C5B7CA70EF3667F -4B31BB81248F614FA86A8800424556B60E9EFAAB03A71EB590D65C81A093D3013F37A5F1CA07 -E03962344C95BA3C095B8F9494DB82ADF4F0365D339D0849FE1E597F2EE8172FBBEB6B685D0E -7DC1C74B7087778859990D265B64B1A23A8022784ED90B58F1D29829CDAD16FCD2F632103233 -8D47AB956DA37EC0938F598D631A510F744AC2FA405D99452072370B2197D82B5F9FA0624FF7 -F97134BEDC1E66CDF1922189BFD95CE70932DC975736C8D7C8C300C5DCB8756B657A1C36AD8D -5FE56E8004F8B25B1A8E354D167CF72F59E5C75EDFABF7C166364CD8CE1FE96F72C93A55580D -75E36771F002CF82D9546772FDCC0D07137085C70F001739138FD4E6BC398A4BFFDFFB944FA7 -84610C4ACDCAA36E372813BD6710EF57A1C4A16024632CE6827A04A1D2BAFF7D854D0F14BB92 -A9D553B03D9099A8BDC8140CB3D822D59AAD388EC3132A9DA32CD971BC4E2614979C21C6C21C -15004A413CC32DE8523A3FF48F7F77BA821C18AC58A9BD1DE98F51D1FE016DFD613B44398F72 -CD5EA6FCF9BFD0C261CBDD206E5F8EE4458BF4FBCB7258D0B32E527DC18E9BD1531C6BAC0980 -D8310456F1BE3F08D6207DB123FADC1D4FFA91C7967F0EAB5AC3F221836C715F606634831821 -7C41438F11A4DFBEB1C7EFF0F309907F28FE2F796615DCF57EB71DCBDF4FF0EF74DC514FD192 -BC97A03C6792312EB0B1C0053655748C318C2187F80BDA14A4D4F87594045B3E69E7914C6A9D -1CD3720131E0C5F7C8CE9D5EDA4048E3F197AB32BC69D844C76CA1508E8D17AD864427B42ACB -8B58FF7FE7956FCE3746EB41B7F02589C9A6154C07C1A459B5BDE3AF5327454F2E3D22E07C8B -EF2C6060FF4FE810EFD2A36BCCA6BDDB28E1FB5B35C600D3AFF7F895272F6F3FF175767C4842 -20ACCFCB32154927FAAE582F3BA6A369607730BB908F91A41EF8E272C8CACFD094485E29B441 -FD6F74AEDFA159B2436196BE7999225A67DD43AAA5391929D7329053DA2DA987B3CD71F11965 -3AF8961B6654C00D254EC50FF792A360F3438198E0BCC5BF76089ABC28AA87E49EAF56059AA7 -A784032F1E931C2508CFBC125F3578694BAE285A5481D6ACBBC1FBFF08B2DEF1E35EF1659175 -FE5BD238EC397BDBC8958155AD0589E4AFB2CB4F5B80BCCDA48BFDBE6C9EC9D678FFE11CFEC7 -562660AABAAC3B912C5D27BBF89BE8E38E40CAECA5970B7B3C68F40F9F95A8866712D5F3AAA8 -186A57D94644B1707A003BA4E78FB3FACBBF85167933FB1DA083A04175C73B7A47D2F6504551 -62C42F4DA1361EEF22EFEF107EAB5617628324BF311C7715D8322EB5E84E5AEF97796AF084A4 -1379B0ECFF59CE8549E316323DC055C0F5B75A54B8FE9A623DC911BDDB4AC01D73EC884AACF0 -95B3E73B10C37D1EAEA740D3156C2B57EDC0744882BF1CD4864946B7C865A68C69572342F986 -264E8F3679DD0FCC666D30348366BC08E65EA757FE90A3EC913D9E3B34087F9AACC3E29CD847 -14510D43240836900B962461E6FBA74E6BEAF38DC4AF17DAC08840B4BBDB9E9CE827DB29A428 -058A4EE0D2CC9388E269885AF76ECF1F52519AC1599E9CAC38080C1E6392D2E1614C86EE084F -955AF6F129FBB904EF27D5B54122A320D0910DBF08C61DAB445AAF813753104B089E010D3CD7 -D92BCD42F9C4C039F8EA5BB0DA461FF1C346A001CA6F6782F11109568053E87224CDD5B7A2FE -A5848F641C2D57A7D39728284301CF5D8B794EF9FE03CDD210E7BA14DD9F1A5D9FB2A96B298F -3DD352723CDA0C7FABDDDBAEE65759AC9410C18E03940F5E4A37A168510D661960D0213A1A1F -2FC911C28FC19A5B87FC3533D5E47200E663CBFE816F15509271D7B0419BE1B05D5A13C10197 -8FF2115C9A1552C6A9DB106A8DD7B30D78EC7864752661C33118C1AA22ED406A8A231B41B2BB -40B8740CFB3BBFACE7C7302A3A860FECC6CB09C8AEDE145A731357D2A959CDE4221927D5F0BB -D50E29B0B2C9E1079301470EF70DE54B9EEB33FEBBE4F291AB0496FDEF039A944B3F7B5C91CF -D325428B992B1E0A6F58C60D8F2533E5B81EBD52346C09384B3CF409A410078D52FD13A472C8 -51DC4B79324425459DB667A7345E0D96815D465C0C0C564813CB1E07B49AB0FB9D3E2E3AA040 -C56C4497035E80522D5A65469C7DD5AD1E3E6571760A48F9CEF87003FBBB6CD64C070E7DEF3F -0A6978949B863BBCBFDDFC043DF4544D500BCAC429FBB30A837844D1FFA005FEA2DCBB9F2FC7 -80752F733095D835D496DDA2040D852077B703D4B39F8121AD8E615BCCDAC35DC1FFA9FC1EDE -849039B5673F1930BEC782408D8924A2E8DD51CE959A62347E710C6B23FD79B9FD49E30CC469 -678AD04EC22105F4FCC485972C7964F74522BDF586A60C74F84DA75C0443497FC44922B8E547 -235BD89D2A5485F3388F6903C8DCD090DFB733E2038F45855E98E9CB4B8297B6831450502CFA -982D7FE8DF5794799AE1302FEBB6C5A7E2ACDAEE96E00D574AFA52EF6A562CEE1746C4FEB655 -77FE44C5745BE17DF4BECD11ED2A05C302A739D52BF13FF81A469540070E64C7A88497215B9C -AB374E9144ED1E1641904074EE4FB70805191FACD17D6C06E9A148F39874A1C82299EE574C8E -F82144E6AEC0277392CDB76BFFDA4238184BBCF3D5819601F89165CB3278FACF1C8F3DDFBB7C -85E98E27BE8C6314BC223A1C579FB9C9ACC86C16701F59E80A1F62D2F58BBAE2514E9F85E28E -F161DEA1C9C7FA580A0BF042CB30FDC40000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 - -cleartomark -{restore}if - - -%%EndFont -%%BeginFont: CMTI9 -%!PS-AdobeFont-1.0: CMTI9 003.002 -%%Title: CMTI9 -%Version: 003.002 -%%CreationDate: Mon Jul 13 16:17:00 2009 -%%Creator: David M. Jones -%Copyright: Copyright (c) 1997, 2009 American Mathematical Society -%Copyright: (), with Reserved Font Name CMTI9. -% This Font Software is licensed under the SIL Open Font License, Version 1.1. -% This license is in the accompanying file OFL.txt, and is also -% available with a FAQ at: http://scripts.sil.org/OFL. -%%EndComments - -FontDirectory/CMTI9 known{/CMTI9 findfont dup/UniqueID known{dup -/UniqueID get 5000827 eq exch/FontType get 1 eq and}{pop false}ifelse -{save true}{false}ifelse}{false}ifelse -11 dict begin -/FontType 1 def -/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def -/FontName /CMTI9 def -/FontBBox {-35 -250 1148 750 }readonly def -/UniqueID 5000827 def -/PaintType 0 def -/FontInfo 9 dict dup begin - /version (003.002) readonly def - /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMTI9.) readonly def - /FullName (CMTI9) readonly def - /FamilyName (Computer Modern) readonly def - /Weight (Medium) readonly def - /ItalicAngle -14.04 def - /isFixedPitch false def - /UnderlinePosition -100 def - /UnderlineThickness 50 def -end readonly def -/Encoding 256 array - 0 1 255 { 1 index exch /.notdef put} for -dup 0 /Gamma put -dup 1 /Delta put -dup 2 /Theta put -dup 3 /Lambda put -dup 4 /Xi put -dup 5 /Pi put -dup 6 /Sigma put -dup 7 /Upsilon put -dup 8 /Phi put -dup 9 /Psi put -dup 10 /Omega put -dup 11 /ff put -dup 12 /fi put -dup 13 /fl put -dup 14 /ffi put -dup 15 /ffl put -dup 16 /dotlessi put -dup 17 /dotlessj put -dup 18 /grave put -dup 19 /acute put -dup 20 /caron put -dup 21 /breve put -dup 22 /macron put -dup 23 /ring put -dup 24 /cedilla put -dup 25 /germandbls put -dup 26 /ae put -dup 27 /oe put -dup 28 /oslash put -dup 29 /AE put -dup 30 /OE put -dup 31 /Oslash put -dup 32 /suppress put -dup 33 /exclam put -dup 34 /quotedblright put -dup 35 /numbersign put -dup 36 /sterling put -dup 37 /percent put -dup 38 /ampersand put -dup 39 /quoteright put -dup 40 /parenleft put -dup 41 /parenright put -dup 42 /asterisk put -dup 43 /plus put -dup 44 /comma put -dup 45 /hyphen put -dup 46 /period put -dup 47 /slash put -dup 48 /zero put -dup 49 /one put -dup 50 /two put -dup 51 /three put -dup 52 /four put -dup 53 /five put -dup 54 /six put -dup 55 /seven put -dup 56 /eight put -dup 57 /nine put -dup 58 /colon put -dup 59 /semicolon put -dup 60 /exclamdown put -dup 61 /equal put -dup 62 /questiondown put -dup 63 /question put -dup 64 /at put -dup 65 /A put -dup 66 /B put -dup 67 /C put -dup 68 /D put -dup 69 /E put -dup 70 /F put -dup 71 /G put -dup 72 /H put -dup 73 /I put -dup 74 /J put -dup 75 /K put -dup 76 /L put -dup 77 /M put -dup 78 /N put -dup 79 /O put -dup 80 /P put -dup 81 /Q put -dup 82 /R put -dup 83 /S put -dup 84 /T put -dup 85 /U put -dup 86 /V put -dup 87 /W put -dup 88 /X put -dup 89 /Y put -dup 90 /Z put -dup 91 /bracketleft put -dup 92 /quotedblleft put -dup 93 /bracketright put -dup 94 /circumflex put -dup 95 /dotaccent put -dup 96 /quoteleft put -dup 97 /a put -dup 98 /b put -dup 99 /c put -dup 100 /d put -dup 101 /e put -dup 102 /f put -dup 103 /g put -dup 104 /h put -dup 105 /i put -dup 106 /j put -dup 107 /k put -dup 108 /l put -dup 109 /m put -dup 110 /n put -dup 111 /o put -dup 112 /p put -dup 113 /q put -dup 114 /r put -dup 115 /s put -dup 116 /t put -dup 117 /u put -dup 118 /v put -dup 119 /w put -dup 120 /x put -dup 121 /y put -dup 122 /z put -dup 123 /endash put -dup 124 /emdash put -dup 125 /hungarumlaut put -dup 126 /tilde put -dup 127 /dieresis put -dup 128 /suppress put -dup 160 /space put -dup 161 /Gamma put -dup 162 /Delta put -dup 163 /Theta put -dup 164 /Lambda put -dup 165 /Xi put -dup 166 /Pi put -dup 167 /Sigma put -dup 168 /Upsilon put -dup 169 /Phi put -dup 170 /Psi put -dup 171 /sfthyphen put -dup 172 /nbspace put -dup 173 /Omega put -dup 174 /ff put -dup 175 /fi put -dup 176 /fl put -dup 177 /ffi put -dup 178 /ffl put -dup 179 /dotlessi put -dup 180 /dotlessj put -dup 181 /grave put -dup 182 /acute put -dup 183 /caron put -dup 184 /breve put -dup 185 /macron put -dup 186 /ring put -dup 187 /cedilla put -dup 188 /germandbls put -dup 189 /ae put -dup 190 /oe put -dup 191 /oslash put -dup 192 /AE put -dup 193 /OE put -dup 194 /Oslash put -dup 195 /suppress put -dup 196 /dieresis put -readonly def -currentdict end -currentfile eexec - -D9D66F633B846AB284BCF8B0411B772DE5CE32340DC6F28AF40857E4451976E75182433CF9F3 -33A38BD841C0D4E68BF9E012EB32A8FFB76B5816306B5EDF7C998B3A16D9B4BC056662E32C7C -D0123DFAEB734C7532E64BBFBF5A60336E646716EFB852C877F440D329172C71F1E5D59CE947 -3C26B8AEF7AD68EF0727B6EC2E0C02CE8D8B07183838330C0284BD419CBDAE42B141D3D4BE49 -2473F240CEED931D46E9F999C5CB3235E2C6DAAA2C0169E1991BEAEA0D704BF49CEA3E98E8C2 -361A4B60D020D325E4C2450F3BCF59223103D20DB6943DE1B57C50F9043B95BDF77C1450E422 -362CCD41FB4AF30F73B66A85AC8DDEAFA65B4FCF0033D034E111830CACB981C2AC41AC32863D -02E6D9CA81F8D407DE4AB20B4CB6418B8067D694DA026E76FF50A7197281B7E8E700C4A88242 -20374DE1CA077D50A8B751391E35FAAEE0AB0604164A16D476EDD5E33B08639DCA14796F27A2 -0EAA52D0BD8B61065AAD083E4AAF626C2575C56F87AAC636FDC2E5ABF623F2D916D3CF5CE870 -3D2971510A664F40B144A2F3900D053B709210AB8678EF1F527A7F56FBE49B8BF3E36F76901C -6EA06D34F14EE302CBA38D4A31029722C56096218509B69186B88D9D13C0E3CABFAB064F2054 -BE744E87AA69548E78C3CB4EA0AD49F5C3AF2F482B96FC14CFECC7A7A10ABFC4E51EB600C283 -CB7E56CDF78061379E9232EE8EA030168408B0FD5F7C2A3F254E046096BC68E24F7ED4A04A3E -054A89F0CDF27C5B82097E18C2EC1C7264BEC825B81EC2867D4CC6CA61D46E586EB9CED90F7D -44D81E203D4DB8A895B4FE6600F61802CCCFC891A2B1E28364F00B43362EEEE782A5F82ED2D7 -8BDD4CA8CC7018AD04B4A61A2590E5CB28A8D27013D7E41CCCB5A9CF820DF01B69F4538394A3 -5CC61959A4AD71BB6D0B52B081BEFDCCCDCFA93F56AD398B029AD1716E57F4E38D8F8B90AC02 -597C64AC97F6D6A6AE0A0EB8891D4B0BC45D820A2ACDB850416CEA1DB8B09D34961FCCD39DCA -837D320D02DA56693148A3F05C0FD45218FF83481DAFFFDA6AA3298B04D514FBC8AE6AA62C1A -9E8138E4E5C2E9C6FB61A328407DA3B26D980320A7CED3BE34D1E8A608F2CE010044040616E0 -FE9C9F4CBB54263DAB2ACC37CF776747470D2A1BBDE4559634A35B5AA0218DF19E0B132C5351 -F18560F082F813011FC4A261DD597F887D271B028F4DB5925A6B89F9FDE474B95A414D58A938 -D9366BC7267F9EC40FF9CD456DF1CC1384AF90B69BDCBE025C9AFE941404FF91593BF21DA52D -4616B5E2036D7658C4A2B48189E79B61FF842FB3B12A185EB0ED083C6A23B25B45A9DAEA521C -65938B6433F1ECB6192F87B72ACFDBA384C94A329307DC2ED24BE6F3BD79826E4A985E2D215F -7BC30F88B99D6F05F61A801096E30E33CDF0C78BB1EBA9D9297CEF76C75DCC4F9325FDE17F61 -CD4AF9B979C55A7AE6D39C188D3FB82B6C109B1A3358C2D7D139461CD976E6A31C8EA839E970 -2BDA0A7649341DE3C3C79E5C892FE63DA4BCC8E2F36BFF101483AF4DD4D95E907B94E18C9893 -D9F0B1E0C68816579DF17721764D5D2CE396276ECE1E6142DC2EEDF83FD7B65717064CF67105 -1D83F1C9C3C32502F81D571B476D45E3AC36DBF43ACCF25900D630CB6A6C5E816F2757AC5482 -4B66E7CD63D2772B2B91E5298775C418754F9538A19191399519BD2275FFB97517127D832609 -277A86A4CEE371056778AE1C5FF657F4CBDCB057E6742CB2AD2CA9D9957ED59641BBF7DDAC89 -AC669065CE31BEC95BA7654D9247563259D95D882E4E7D42DAAB49909A828ED124D8F944D07D -598142B2B01405647568F189A2525F65AB89ADCF0CE218AFCE8DFA0F2E22D0BBAFECEA6BAB03 -C413C12D01A0271DA67046415A11DA35C12CFC3C5DDBF9041297328C660E1E4EE613639563E0 -6CFBEC7490B3E8CEF6F471EDFE82DDBD55B877EA51CF440903B93F8E2B86ECE1461A77BB353F -333183E2308B37B05E91784110A434D706E9DCF0AE6378293EC7F88807CFBDB882EA37FB53F6 -90564B9ACA1489C88C92FA5171936809964F9F28553E7F0FCA658D1B78750DFA2A8FEFB1925C -F8EC2B6A971B29FEFBF61702396F51A3E70F2B1B896198779F499512901316D5FBA79C765A36 -6F11751FBBA8A734D4EC9848544F10808480E68A91EBFAF727DAE73D3EE12F5E0FBA69EB5871 -EE140EE2F96F1A3E1981036E8E5D88077D9E3FD6C61750D937DCED6F9C3FF870C0E5AB7C4EB8 -1779E9CB452B1D82553BF858B75FFB00F4B82F818B1FC5595D1AEEDA065CB4028F52E5642A35 -2F95115F9CB89BF4E72E9A487861A3FF5B3D035C71303408B50695BDAD5974D91250EA936975 -AED202AF6AF7F456FDC3377D4BC0A1DBEE9F367AD3C934122FA0871D25237F2E680582AAC392 -9357C5F93E5D56B0257212B1E5AE1B00C2B096FE3DC237292B8D3502F3DA4B807DB0F760D91C -BAB0DAD4135A64F637259251512C8D16B80E448CB0BF48188DF0F9738739F1D71B078490A9D6 -B727E71600773402501A321CB5773595115199B93250B8D45F82A61EFC1E5D8DFB41CDAB0D3C -76D8A302B81F713B58C8460F45DDC59C2A03FBB661C53EB6D93E725BE31AB7EA7F1E0B35C332 -5CFD0E45DD6E117DB5C5B3B0B07FA9417327C98917CA48D7C13ADE14DF955CA19B7A53ADB92C -AC1965E0798A28801BBB167AA2FF0C44977EB6ACDB0986C9EE8AC3BA41CC6D004618CBBCE49A -556399BCFF927B921C5AAA5C1ABDCA5616DBF05F7DEAB00B5079E044E4FA871507F1EEDCC767 -4A5E51E12ABACBE1395201AAB1ADA6A96EC97A7C151955264185BB378DBC8723BCBA5F01A0E2 -3B1FFC97FAD36F67CC81455DE90D55873617D37AC8F61726C92C2E7EECF29A0BF1B69266045F -CA8CF11712F363F798E2E25C9B0081A358E0267E11F35FBD3D9B9D75D88C0B7F057B1E3A1F73 -C5174CD8F106DF2F49488059870C45C3F64AFBCC3BC073F157C3FA95899B6FA79F447E970334 -4FF03DCCF367B47A4D789021F0B5D1FD20D7F6B7B5D0BF320ACC90B408A4A000693DD379C893 -BB30FB721A34CC76716BE0AD1D0165F5F88269CBCD8127EDE7218031617F7456C1CE346A9C45 -9F7C9022DD042FEC2AE03798D912DCB2D49212DC844214870492AFD4796B06A36880FB579064 -C8CC0631E2CF109FC10AF7BBFD7A900355FD1FD1BA62E009E7576A357022271AD5C5D907E7B8 -8864D03F3EF26C0D39B9F7F57FE54DF0140495B9C3D909E99A23526EBCF96BE326CAF3A77727 -EA609CAC763FDC7296840AE9F6E1C7BA664C136F43C1935167CC674B694C4831C98F841E9733 -A418A69119F3F1ACD466F675B01D03AD41D38CA567484F67127A6E8950D1A8AF8EC1C9EE2B32 -477F2BDA2F44DEB009ED1C7B2E9511A9773C86453476467ED73AC11B26867E155F9ED2F862FD -B69E017E741484D4B9CC7615AF7E6836C3254DE5B9464CEDDE112D5908FB136325C0045246E2 -ECF8F77694FEE3A0F431699D58E78A94E369F89ADBD9BCA45929263761D399C06E8D0AD06DC2 -6B4D4EE1961F9B8A6E86C48B6A036BCF10BAFD76CBC50320104B0F5AB433D6E0D28A350B6310 -EF100F65F6165011193D5909AE4AE8F1AA830669EE109F144A87CC5C2F0494D9D58BD2098302 -BBA0F3E4DC4E7887E7E775061C370BD3413C3943C1E90068275BA95EC7F54BBFD0245EC94ACC -55CFB9B9C6377735E33E3B66121D77937FD045031410449DF8DFC4AF7577E7E5697155351742 -D6DF0208353EBA2046B8A87AD3F4A8F2E33130BC83FD27DCE15CC04D8E26A9193BC4C8C96947 -CACA271CF291C0D66D4133F3E561A31CC0A5D36BC5DB8F71370FDC0CA114243E84ABA111F5BC -D51143562AF662B98F9240A98EF42B73BCE472456B6877C1680BFD05B53EE1026BCFF84033AC -80CE9911FAFCEDCCE2FFA99D97616EE2081F4BAC1B9A2180CE4A9B390C8BB483300D71418269 -FD0999AC35D155E2F84998A9093C5A05C872F19C14F881F17AD2B639F343242406B5C424B503 -2A6AD90B3FC94044CFDA2C420A54B8DFF3C92E98DCB07FA8C0061A2FCDC0EECCF20405A0212B -50129D33878C3CB749B892126F47AC76CB5027D6CD3C1B69AE6F2F6B56E3594C7AB28304BDAC -FA54A4058FEEF124ED2066AE6617E7E979A88EFBBD59908158E6C6115ED2B3E1B7332DEEBCC1 -0EEB47F5FB30B813773B6080A268BFFD38488BA5AFE25137A0A309B5EEEF1EAE516A7FD1C340 -859404EC2C5C36DA3B93F6BA96B92C32A9E7956613702559BBCB14D06535D90486E53CE7163A -3D0EF6DA5CF4308FE48104A4233696BD3DB60EAF0F427D23C7DC74E28F52B4111A4ECAA69BAE -513FAEA8F8D3F0DF936AF1808C7D64CFB205A0F3A0B68852D6474F3DDBB373260DD571A77C6E -040C388F076CD162A76EBA9AB2099E7CF4DE957F743AB2C0087FBE76C89920648455BA44CEBA -D63A5F3CF7168CFD34FA6B884AC42F8BABA05D84A0EAF99D2E66868962C5E1CBC50329106454 -3F68755001A85961982A502ED8F451A85A4E32591A031D3E8CFA04B97645E32C39466251EC40 -D31AF90C51362C1054B12D6ABF52B3980CF6DE1CC56E122DE909882D42571E2B7937340435D2 -6AB4656F6F7B2E585DAA6CF6F207272173E41B9FB74F8BB074A9150C63A0C17D9DF09ADA6ED0 -20F52DC87FBFB015C900DBFB08682C56BF51A5B7B8F355D841E799FAA8FDD5360CD4DC3230B2 -57F80F6E8ED193D5C5907D7AB16A347FF5FE1AE317EDA29856B68B76605C25BC85C0134D7AB3 -04B0C2D3403D19379345DCF2226C850C5557CF8EB44FB8FA7AB045910A6C505028CDB22184D1 -2C0ECA6BEACEF9CC3AE1C71A3C1B84A49AD2FC174984142FC33AB6C495D721F1400FBBF3B747 -014E68D14628C8EB0571B80F1DC9074B9B7714F6F05607A60029EAB7BA1877798A18CCEEDA70 -132BD54CD6DC91482A4D154AF4A4CD141D7BE660CAEE791BE386C27283EA48DB06513A472486 -3A9935745B7DB3C31C76B0C9A54F98B9395C0C2469F262C31367CB1DFEC29FDD655AE606F701 -8ED0E1BFB4851C8E07F159DAD3E9983C2D0FE70896BFC565C1295AB249110E389B4409EC3029 -7EE3A4578396B9C2CA96ABDA23AB6A7E0C59C7AAF3541A36E3C54925C1D7FE24C16DE5F6B968 -80E47DBFCEA1D2FD498EC87AA1345ED45D029B9354373ADA10E91E584A8A6E83AF8C4CBDD659 -588B07029023294ADAAE3B2F9A557AFE9070D65140794BAA07D853D0CBE891D12A84D8901A21 -D3F64F42120E1244A165E1E1798FDD9372F90473C00EC46A83B611B27BD6A1EAABFA959CCD15 -2ACC75B9329F64D59467CD6D25A4DB5E10CC4E7F797C97DD851EE2EDD728A7E17618E2D75547 -BE959F2DE27F27ECE3A4B015356FFB5C21F5A81E63808DC96EAD762591DB201C0FAB53DFFABE -E539ED6D036D3A00E77EB16D4A40E40A2C6E7DCD83472944483DED100B3C289EC05FAF4940C4 -CEF6FBCF39D665891F840071BCFA64FDA78D95D10FB20096136BAE58362F42437B996D966F98 -7DAB267A851FA00C7C84B7FE9B3B70640E3AEDC2B78405F3A49A00816E672EF509AB07D9E87A -EA7428D6F9AFF926697D0BC6660DBD9A76F12626061163E1849CA188F99F2AB4A6562047F0FE -E1FE5B9A17B32095D4DCAB84B22520A77602A7D5B1B425B3E0F547C2FD9559C2DB2E7E2E4237 -23A0C3F2B96A35BB3839AE53522B9F6274FBA1895D6B1ECFFE20F14D6916D7D7891FCA2BB9C4 -2DF48FCFB7C7C4B416B197FBA1E57CFD0A4DC70483946F47B2DC2464BE73F1ACA616EB1EF2B7 -A5742F34B4E173C7BDB04DDD06D6F03D4B8B8C13545CA2F4942019B0EDED5EE8F3666E6505F3 -C0B6133D7B920AD3C42A3D4B735833936A508CAAFFBDA5C099CD9B8EFC1D3BC054064D9AAF62 -9CF7322947C16E832091972653AD9CEC42D61D4F600EBB34BE727C246CC29C52B7C84DE8BAA4 -E92194509C458F7E5675C969FA572BDC409C0E0BFFA16321B869D87210681A04EBAF1374CA2D -51900EAA700F51DACAD53961310BF6C4246D3C8D6C276BD2CC3D0C3B9CCEC06443921513B4AD -6743804483950A3938FE7F855496F75825CCC7E189459E4B5054271F322DDF65F79415D3172F -ED4AE12C159EA0F4DCE2B6172C4BD65ED91FC67B590D7033D7BDEF735BA812B3E5EB8197773D -4DDA4CBB507439BBFE23696524339169F159055FED8BD0F7B4B629A8F03E2D031EEC3D73702F -7851FAABEDF85962F9C618521733A9F6B1EB5B1E9217E9A3B3719CD9F5C77479D3FCA70DF226 -E5B40F361A367F2EB5789010A838DE5031B4061663E9C9BA319B0C8CD97D8BC226C31DBE965B -62A39CCF5FEDB3F93C11AC64B285C4CD874D6C9C80B4C0EA7537B84E6A252BF6EA369450EFDF -643C13B3C76470F3C276CDC3D7FCA1D4AD9F378F6E362BF02C3DD4B23747D3C39CDBC8788E6E -618A2EB8D534E8F9F5A210AC3DE5F1A1C205DF25B9FBB2AFEAA12A228AF34588C4A6152603E0 -9FFCA2131B048C5C559D07276A8AEF10B6F6D9D2A2B80C28AA8111CB9BBFFF43B334BFF34556 -50BEA9BC9C37D6A09ED26769D51292EFC3348849DDA75ED003ECC987F585641A7659933E08CA -72E553303961C5A6A62E16C7B231672704DA3E16E061B53F51352EE14E2EEA0B35966E4850B9 -619FE88DDBEB08525BD0F0DBC08E25833BAAB9F12B80C41B1524F969B8BF9F2F7A62066A03A7 -EC754C31E138F25174B3CC2263FCDE64A9F0F5B30D15DB7543608082421869A7D0FEB61376EF -2CF51EAA7AD0D1C863A3E5EDF63475855ECD3E7D71D20639027021536DDE2EB0D95FB2546623 -DACD9A582C4B5F85C47597C1A12D66A311872435F188BF37F50614F04544AD39EB8B977D0CFF -4D185D56BF5CA4DB8C80BA648C906439F00CDBFB5CA1D56CD7B519855B741A1F8D0D56A77F9A -5E2A5CF56BF0BFE76D7377CC4665D7F2B53638A5E99A295C3720EF6969AF1ACC6757535B5FC3 -780AC21F8071B41BD3440B6A82A4CB7DA2166A1B901938022C1FBCFB857F75FFA1FC87D3E1B1 -5F35E248B94C109ED1679A7D3035D2A73D36546DE5CC7062D3974D4882A17885C77AADB15AAF -84E525D72CE57F09EC07224399400614EC7EB025FE46FD83FD416A184796467EC5AECB82CB81 -4EE7E650C88E8BDAEF4A0AD400BC4F68EB5817CFD4DA568FCFB26CC2D61C78022BE75CA10841 -15F98B3D90EFF9A21CCE6BBB00858BEE173E7481096781016CA562863F9F8ABBE76E63AD2575 -FCFC470EC65C115F83677D74B66366F69B6E964B5DF75AED632A1FA3B83E4E988C0287A4365F -6374D76B0B476F8C65F70A458E8A5D848BD59DC0D561ED2A9C399EAF05FC48E630B81AC5FB30 -ED4416A8C9FFBC4D86227D6060558AD5DBDAD60280DD1979080E2715C5CF54E441957FBBD136 -C97A1ED7FAB1F807BCE3B2E534B3FFA87A7DA823C437546C8ACA31173D2E3BD8EEDCE54F106A -1E27140B14B49D79BC1F58AF7AD929E181AC0ED369EE0208AB68EC8B84CFE5073EFC69440312 -B6B9D57B1A68264E8CAAD1A893015298FD127178077F956EC46B8ED543C72908FECF560EA42B -44B7C2A9A6B74FB66E3E163D9E41AAB57B3FBF116580FEB51C9F081C34A3A6BE028A5D9BDA07 -ED0FDF2936248C6EA7D805297392A12D8E4ABB3EEDB5F48AC3B5C95250CFAF6533993B31520E -0640CC46B802BD559719E578B839D2E86D2149FCE3CBD4747A2300B07DF0D3125BBC6EEFCCBB -F48193D3EC12E285591859E4B96690BEF8A5D6884F79FA395E6E1AB81426A68EF5DEE8FE2A2D -0056B4AC028D8F7F32DA025560F6D9B295627823A8D680AA136329418197544BD10D3F4086A7 -C11ED3AD3EF430F735AF8814843A76997DFA2EEA9B7EE86FFA147F38C3D7A57C9109C9B7321C -0093A2A3499502F10EFD694DC5204A24FBE3E9EE44B719C10C5A1B5B3D53EAE7ED0BAB636582 -D103025964D9616AC2F8D5857311A80B55CD9763824E0FF1718B5F45C6372BAB01A1318DE374 -51599A8EED5E1C0CBD68840BC5AC5DDA6D1E29EE84DB9858848614A4604C9F01745475B1E3BE -308BC3053ABB28FCA204EF283EBBDA572F004E9F243D73FFD4826EA6AD3265B3DFD5FC963C04 -78D72B621E77A3103236F2CE1184E77B7995CFEE9C06C593C5E84FDD173D09DACF3663250DF5 -D51AEC01CC5232FA08018AEFE1F027D74902C8650AEE79E66CAD3936DAFCA90B92BB55CED1E8 -1EDFED23865D6478E8C86AA59EA342E74BB77B077B34F20381F5F1C6E193D545B83A56DDD57E -A0BFC693B0DDBF70CFC9ED576426E5B65AFCDCD480CCDB9419C7F33A734CA9D9F18F43DD3C1F -A731E3F8AE846A0BD4291AE4323D559435323C9EB444F4519F6B9F8E0F36E1CD8442A3397C31 -5EACF240CD5E1806A8EA7BC93142EB163976BDCCD0291105B7A6CC597D5C6A6935A52F72DD98 -0E5AD639365E15D630BC3F068A12181B37E1F8B3BE25E6BF9BF3098535D750DD243250962679 -C494D4243C4B34A09A823A682E7E856E9D58CB7252BB7BDE7EFF4B49F0CFBCD1D29578E2E2FA -738942CF489A5A1D1C28146CC516ACD809E5860D08079C95D62D8089E4AED28FB6832AF6AC92 -CC519BE21387CD71120990B7D5481484DB56560791149B365119D51BE5C587D864754BDC1F15 -51B40629B9C67355110CA32AD30E530B593A73431DD849045A57D4208A2B47FFE30388380927 -E5F29FFD8F2B50BC2335D1F5CD1BC9C1C553B26A8A0028909C1F64F45DC4FE45BB1A01AC7B75 -9FBE493D4B4252DBFE3D05F0E9EA44259EE94B8058D2F847F623639FD3511FD8D6FADF838BA1 -1CE54869E036D6740D2D68CA178DB03464A5E6C40F1D905190511E8683F16D0D5E6339853ABB -852833DF0194F7B781E315991D932209B3F4CD69707059255AC3CE51E83585902E333A6486EC -E517DD41027132B7F75CCD4706FC064DA24DAE70BED80B6C272E5A4D3D157F24147C7B16A535 -338DDC0D50613718737A8138BBB1C2E57D43DD51634AACC3D78E57439E2758F2325F27C6DF1D -F612D0AC3E3652DFAA35A94B803CEF0059FEF226E1363F29D19876B6324EE82818B77E7FF5C2 -8755220577B37661E7A19A3AF413784F61148E046F22FFC3CDD27CD888429A220E32CEFB4602 -7EB97A4C9923A7E686DB2C827EE95B1D6EE98588A08A9F3B1A6624044B91FD5638B5EAE85CB4 -D96D095B2482892F545735C5C8DED8BC97FB9E1276786DDE06E13516090332E18DC55981F0C2 -C394B01694775ED0DF3CBB19CC1581F7FA858601493248B245F50076A5F822EEF25CF8556B79 -E9340BB3B06AA25F06DA9DD39B8A1EDC9C870FCB7EFA82AA0B8D012BF75CF5D429D65E56A774 -A991F826F7705DB2D574FC54D98B3E269D00C283DAF19CCF88BC919F28046DF76AB228649927 -23CC1D45A8B1AB2A621DBED1CFE33F73020C97DE5D721A246EBD8A41E2717C789BA06B4FDDD6 -113D64963744085806585CB89C178C3A512F6AE98347E81CC64736E13F17C2DEE81A19972B84 -06F0133DA80CE6A6100FD40EB430D4692047A3E369970E82FECC600AFAFE0A9F2ABA7D87A444 -37B07911B898FE74287BF99495F398912076120EB1A2BC00F3810B54E2E6FF98B8E486486CEF -B069D8E471D6BAACBFEDCED952924BACEBCE891E6D5F91B5BB9313A34F26E67D3DCA2AEA0439 -543E9FDB4EF9F6A03F6FD711CAC84FAECC873619FC3BD3F4AEBA3CB1E1867235990D6B6A4D20 -ABDCC2ADD360E9B7C018B809FEB2062FFEF13692F202AE2D9DC848BE69726FD481F38DD868CD -2B82B4867B223E8BA4380B405CC5B0C95DF011ADDA66542F588998105816EBE7786D23DA7119 -47F9695D961CC9D2379F5ACE863E7813FB469CC9DEC70E0308A96F3D21C8B77E8533D57FA511 -CAB9EA7F7F921A2AE69536C29AFA923DCD6EA98327D78B964EB495AFAD97F52C49F975401889 -0AF3E0BAC16D420470C157D91E388A311405F1EF67D5742D287829DE12F7A89DAAC2C1824D76 -4341C0B78C629DA80E1CD31B12C46AFC96E7E92D1C629951A34AFFBC980C0523580E9B05CE03 -DB29D4F81BC3B644AB653FFA72BF73F94EF379D85ED53227580A9A42CC75E13B4519F4CD5819 -584B871DDD3BD9A6368C994DFC6963B4C354F11417C989A22689DD664D051F6F8AD5FC0B683A -BFED7E08564ED780E94C7C26BAA5FB311FBCEC6FCCE55A21DF46ED404A13C938618AB5608940 -781B9E6597AD01066496223B50668DC65AF50F05CC8716FB8ED784878237217D233082D4798B -11374B8D576D818C12A6026B2A078D749C907633B05CC89BF1080C28E4D9214A1D038D2F1C4A -0BB98E261F050BCC2359CECCC78B8965BADBF369CFFB2897C1CAE068B092528D1EADE505A582 -BA3779F91C57B199375DDC4A7F79073BC176324E7D6F356EF3272E37E656C493D636C9E69498 -A843C3C552C5245A63DADE50CB76CCEE758A7AF4429B439FF4CFFD610630E479D7288D548467 -B2BB4DCCB8912B8601BDD1E4E4686E266B853D80219B48D241E380AB5471DCF8AF6AD3F3C487 -25560551B1E52B134FDCE1207DA882E9C9E32D9F4545B4B62B5523BB43F213A43D081F81DDE8 -8BEBEB5142F5E38762E6748936FEFF0EC190DEB7775F51214191565065555DBAA3DC5E9DE7E5 -240D67E8B3F7A5E0B8C5E9BE10F9B494AE4A44A59D1D05E25C11CD75F9D9F5CDB32D981512D4 -81971C20BB843075F8987EFB25D881D0AA1E863D9D15E4E86DA2AC4D685FC6491611CC38FF86 -C54207EDA335239D8A1F8C430EEA7A053B7968C5F4193D48EF6ECE976B98FBD7258F53F226A1 -D6DBFCD260915CF1DEF6420D7CEF58B5FFA4AA41E45CDB9907570178240234F968C7D2A7C4E4 -1F891E71BCF40A28E0A63047EB8263E0350E8C9B816EF3F24C79C0F6864478FA85AF10968BDC -A4BE52B79B6658A621A1CC613FC0FBC66076AF1A2596EED3DAF5ABF0DF25412EF7459DC11466 -710D645C4D3EB93F83D8EE9E6DAFA4395500B5B5DBA4EABDC888D30B36EEE0075366C9FFE22A -7F997450C69695C061584EED1B75C2AF5BD284520EFAD99A90F093B032EA6F19C0046F958A89 -1247FE8D0E17C1C77D5D6C19AD0ED03D104BEB4887653E8FAB3BD7993D52F09CDFC09D643B9B -1011555FBFDD5F634B0580F8E12C4C273AEBBB347B6DF042A443FDEFCFD8FC6D89FA07A932C6 -8C3F1922DEE3C95CEB512EEAEA82933D5C1634E789A5C10BC115EEF3EDB488862AA05E0DE394 -DC2D56E00C66294DD1E35C4585AFDAEA9821F3BEFA2832BA34684F468F44C7CEB9EC63B730AE -C6B9F04E3EE839D31B8673E59CAC9CEB1B3BD83FC02E1991E6DE570489F3A111C15FD15903D2 -DF75D6BAF0E5FB373C511D6CBA023EE7271263836139C6B3881924D17C4AC08FD7E9EB7584AB -97B6B967816E23F2DE845AE98CFA667517A3A48E94371F0D80940C4D2CDF4EAEF14B9B1D6339 -40D572F497B6E93EA90E7C2505D63594C6A29E4EEC0ADA8B00AAED82FDF0FF323A12032CE375 -2F99E454EB7A8C49C90F2E7804F4F963BD0E3E15B7B44A5EC8638881A9C92C09B14B4EC16F62 -A0D49CE401485E70CC03695C9629183B2A684DD4CDE61B51BEB221CD31776892ACA20DF1D769 -70062F98C22D07DD7EFF235D4509A7359D4E1E2142E89D4EFDD562D4F59D6620B4BE5E71244B -C61C2E974AD975DA9363FFE3CC6C9FAE27AD54852DE2F58061CBC884A2ACE3C680EDF665ADD8 -9EEBDACB0BFF377D50C5A420CF7B67AE0D463E0E731890D7BE82983438E882530703955AD763 -0481E756B0BF7967930136D41CD525FDCB0324765B56D8E530AC598723908F5BFA38A5D68C56 -356C23C3FFC004C907DD5B8F3F59A93BE8754693F6A9FCA83ECAAE58A63830D2108445045F0C -AF2AE069C6D3FF02C3758E8A666781A57A4D5045C77BD080096463012CAE7EEA9D0C0E830585 -012FCCFABC2BD0EF7D8E449141EB335DC9183FB8D9C92DE5866DB26CE9E490159BA7998E62A3 -1C6F1D6B7598D73B8C6B73AECB2336D13964007E13DC8365760711E6AE1320F36EA6DDEA99A8 -98A7FB44691DB754473867194F0602020519DC0BD7B94F5D28AAB4BB7B16FDE9665AB8C050D8 -44A9916C8666D530321906FF18E5994ECCB6FDA70071F3F7735B6A140CBD2602E52C13ED75FE -D10AE4FED2FB7498FC6A79FBA9139B9B370A7AFDFB669852FFB52C97BE43A820C0366A62DFB8 -5AFA79A2E30C91F8FC78430ED6C8170F5528E7FCA7A809B06D4747BEB8088711B36F7DE5F47F -A82A998DB3606FABB7FFDFECBC693774EA86593144BAA1B08B030A00B86715FCEF33C9AD30F1 -77F3942688152AF51040207D4E0FE4E3A0DC2DB00782EA8B9E4C651691D6F189064EBE19A049 -E5843648D4DC92D1B928F20BAE611D5CEBD97A97C7688674589A447FFA7883376089F856D736 -22A306DE37841EBB29850C770C987E747C17447FB8DA3F4649564A5A890C9FEDF279A368B018 -43D9CCE1156285BF39D15A9BB8B17F0FF379B353D2999D4D6A28D6DB49BA37A4AE429B79607D -D55D0E0A9B55624F155C73B8EF46054C4B3450210D53FC3A10F64EF954B554148125A3A9D168 -A17FCEEB59485D54B66C86D438F4C28C5FB5605A227B950C60C40F4B667D12ADE58AFAAB8463 -6CB781BF34F631FC778FC87D4EC4DAD74A08F62D3BCCE85A6D9DFA8B6DB66B65303DD3D71B70 -34C75505D2D44FFA57A76D90BA40CEA0D44FBD3BF549AD2D4771AB0C11F0D689DAEE1F4CCAAF -F1CB5E1963D02DB1F3D1EBBED5A68A6870A222A5BB75CCD7F92C379E043554717616C920023E -B5C82CA27A9457F8BE662345E32642AE5F387986E8A281BAA06D646D2EED42AAF3E7549CB7D5 -F4FE69ECB4210A5936735B4EB9C86E20FD12E2F472ADC9439A37411A466AF60752B8F5A46457 -750F9B342DCFF50BA65F3149595C3C67AABBF9DEC8044688396EA7886BB8EC90F73F75A73C48 -F1019CAD8A6B62FE51141CC19947B88ACD5E8E0E4E8B5D947532056124FE9BB785281FCA4731 -D66A92052B2B99431FA3B8D2DBB3434CA7793B439105A50014D3FCB24E63FEB2DA485C90812E -466AF5F3DA252A328AED9624DA4EF63F0A1AF7E5F3FC666C39E15D7288BCDB9910C9545460EB -D0202EB07F8A028C5862B08A4B895204A3100A65BB29F643B46A1F901B788785D5CB05D03069 -5857B307A6A66A125C5D516B4E19430ED1FB250D8C1B627CC01FE883C31ACDDADA9117B4F076 -2D565877EE70F1BAD7D4B686772C2790ABEDDCFD3490021452E59DBBB60DDA39160343B45941 -5A565347F91B615753127DF25089BD4619878A74028017E794C5D2B6BA12DB157595226F6CAF -77588DBA8446A59F626C328A07EE2883399E3011D47D46260152893DC770439215475AB6DF6A -5BA4D31788D5FD929C4C7B6ADE4715F42C3613AD9E7F826DBB21BFC58AE43C24BC6D5257470F -51C445F2FBA4165AA8C6F5B3747930D4BC59820A5C23ED29E8B1111FFB24AA341DE62AC20810 -10D2E19E11F7A7D86E1A8E4F36B9139BCD3C41E79BACE4F8AC30FB77781322AD44197044C80E -46FA9DFFD3F2CC326600AC26546E940DD2D5F1E142D461F2563AD96F6198637E90DA4757CA95 -780211B074EAEA9C76FBDB8773F2C106A49789743049B3ED86B93556C0C9C689A3963EC65E7B -B35E35AEC27769ADBCD6E629789993495FDA643EDF55FD4E09FB13192CF7C336F4D06AB8B7A6 -CBA81ACD8869903D17C28DB20D4DE9B5EEB0F6BEFB14DA480A542AA7AD7263D8DD78BB343C9A -D49E97CC92E5AB6443DAF0F1CF37336DE1B265BD5F366220135CFD3DAEC52390FAF43B1FD4C7 -77000FB6DF5A86CE882D2FA8E57435DF5F242E95F65C9EC28B89E8E3B90C6AB9B6DFA916C66A -F3A5C447DF9FCEEC13D09A6CB170B73A74B2BDEBB70AFDC41362712538F13C336A2B981EA523 -66979EB503E6798A0205A5D1F3C3AE31F6EDA159631B2B4AC4D064D6E90D51DC88E6C7F1193B -E9D84442786B4438A35E52066C6901FDAAC2DF312C96A04AF76C553E833CE7F761063D3DCC58 -D2F12D255DA1DDBC42F5CCD8A2E8868629C6C66A570A2639EF09331E4C4720B5AB6A39CC6B1F -8F308BD0985CDA6DA07ACE3C3DBDD47FF77D37BF6EEE83F0C8FD22D342A8758863A127CB89DF -96DA3750D083D4ECD0D716F69838F818FC8CF9E979B861EC9D4F5CC7779253CFACAE0B9EB3F1 -3885B2892D842037EF985776B4A4B936DA20833FBD7C5D8AB7F5553E8B13A8D2A6A7A37DB066 -391AF25B8EC4B83ACDF25AFA3100B68D40E075123CC8C1E413F10F57F7FD9C541C57FE1B6365 -AB3FBCB478CDE85F16A205403C920BE2CD51C5E5749A3F9B84CC097C669822F84FD783C2AB4F -68C6240AFEAAA70AAA411B22B9D0D33B052717DE7A4E0C4899AC5EE53EE52AF371C322A499AD -3D6430A4299AB598B534825074A7DA959C310C092FDCD4355BFC48933F352B5B0AB609569629 -03020411822541875C859992F5ABD86986F62F22F11F783E635DDA34D8456035E7386F979924 -9FC9F4987EF97D9CF4CA3D53079412B976596D9412D68264292BE36969841CB79D32B0100042 -D74ABB9A6646C99E004BB55137CAEA743C75F2DB556F92A4B156F8A7580FA7F0344F1C0D5241 -95788AB94414062652D5C32E028FA920883AF235F484B6CE0C5246742E886C608C7B3CEC5902 -BDA82FFF0B8676E49ABF11DE8EAF456BD118946835EB575D6CCEF1B3609C8254A356A0DFA65E -8AC6C53E3F6BA6E1C44B514C8B98743C40EFB664D4AF1E5DAB4BB3A11D45F4468404914F8C96 -F0DC60D007F28595D287730AC63B2FCEF4BD28F651DD80177C126AA4170C1DD7AAA60CD53D05 -CD1F5572DEFC285B51EB2DD7127AFCACAF6C6A4CEA23081D5DE715FC98A480508B165BFB05EC -18B5520815D34D2B5F4C159D027980F841B862D375DC2227706A88DC1EDC5AEE3DF580EC4D69 -C5F2CE0DE2492EEFA575264085A3EAD412A930B70029FC6CE132DE3E536D4B046B89CE35751D -90BA10D4997F07A429FEF06EA19F913B8E9B9F5293DA2123D186C72826C8ED4F6236EC0FB96C -5177D390BCA6AEDB589052584C23BBBF2E8424E56A9784B17BA83CA11F0439756D0DA794FFCE -641F0F1D180C1150D6FBB2D8F5C8BDC1904BEE761B0D7E8A44A6AF7E2470AE87582741066A8B -FDCF2E31A386A4D5CA53BEA4F9AEC4AB7FD142D48DF2EC50525A4DE76EB72BEE54BF0B251C30 -98E7D6CE4D43CCD8A87F9B7BA9466D911C93ADF4417804C6C0E5462C57F11A27A7472F134E7C -96984DD694D9BE989FD46E7552B24C5A4270C5177521F8FAA4F02CA54CE9B68DA3A129E57972 -D605F90B3819EAB2DE5F90EF58B82D29B50A23FEE60B3F2FC1B4413ECA040F54A876DDE37904 -DB980BFAFA48AF4B73CC69F349106E3FC77030C858191983955162C3A0F4E51B273DF075B88D -4DCDDEFF949914C4B69F334854148B9358B56DACD9DBCB0DBDCFFE0E244D62FCBD410C1DC397 -E45BEA50E4CFE3FBE4AA8369B04B7496A148F255E0727AF2A37D12D8F6EDD834B85406585210 -F343B01CE21954D35C66686D22B3DC9ACB21190401F14F7DDD72F6350BCAC418F4940AB1910D -5C83C5BEC60FCBADDD852D24BEEE36B6F9AF1816652A3D5D500699BC933D65D08FE29E46A363 -5D2A1F135B291C1092B5C07EC70A164BDB4CD06A73AFE547EBF8992E8068B46ABF48A0D358EC -52D6CE5619114EFADD2296B84A03A24DF1E157817FF5B586FD71BC40AA5FB0537A4EC6F53F73 -FF450C97B08F6DD3BDAF7171A4A7C6B9C49D99AC0A20A16CB05FF6151ABEAA8D55334CCA0152 -4162DF6E7B838582C4286F31C7E5BA6AF7BD5EFFFD94ADACC9BF77D2C008E04A01DBD8A423E6 -93BFAA0C93F78E7B627EE1B2A19AAAD7FBB8F5C0596D7DCAE8B9F2B6BED39B9047CEDE52EEB2 -99741AB87352946DDD69C8F3BF29835D6FFD1AEB88E6B8A78E9EA7084552527F51164838C72F -5428B1E94AAA55152EB7AFCF25668A52FB93DEB9F58D04956D40151693CCFDCD2CEA9E01B6B7 -954FBE3552CEDDA6086620697E759B779AD4EA452E510396FED42255A40D7B3C4FFDE0F0448B -7630FDD443AA04E28F5F2F92978BDC914E0C31EFDB054682F1C8AF975130F400A1F76BD3EA5A -1AFB090FC65A85E47BF39A6B2D629F534BB73894405A6ECBFC5AE15FD7E5081A85A41DF54DB1 -9380A0EC96BEA4C239FD66EFAF64FCBDAA2C7B21F3813D0701B5FD97AC5D61E6D8C797389466 -37B96EBC703E615C7405B626952F2ED323BF221EDD0A3F046D2D6583813E39EAE5D8D9F1A268 -636E6971793FD38233B79C73A58D116A7B7B429A7EFCDCD81BD0D102633532ABF85996A3192D -8CA42496F24394DFE197E25B12A427699810217E1C733B5F5D1924A6926494D7A096F46412F0 -78D28C9AD5A85FFA4E3D276664A49BF3A6BE23C92C374BE9AB22A9C692C847916FBE18848F6A -3FC4947B5C89FF5899F289DDE96E9481ED9E36AFE02C3C2F391241C79D3AF3C99F73D93C8680 -C4871B08679BDEF5B64E27307470306D489207430134904A3ED303356178D57D9E8C17C10DC4 -CBDBEE9CAC7E77D79BDB0BBBA4D7D87524D2687D7E12AA9554D1B8A32EAE11021069F0C75491 -048B38108B023F7439225E7F2ADAC4683A77236619F8C1034E607E08AFFED73A5B7F67912A15 -CB3C4376843EFCEA7C3C503BA0E80789F9F4E9BEF3E2EB3652A9953E413B7C2389250A505AD8 -5E44871A93F59E4717F300A41C43E7E50FE9BF5B9A78E597F556506ED3E1D1DFFADF080871B9 -F18A848CD3910128BD349FAE0D29BFBA59810D83E4D8C1F9EEF9A87F31CC2C7D8D7A90802E42 -9B112F8AC725DA8244F790910A54EBAF540FCAD26A9A6BBFF04769A29156F74E1E766D1AF79A -59FD53F51E4FCCE40E057A2FF7BC7799885F75A98EC513C82149289FFFF2767A7F71008F38BD -28E7DB36D6B04D84EC272A851AE3CF994E08C3003E7C970177D4EE60CC188ACF326E062C3C91 -2431EA7DBE6C0E6749C848A935BC986D8790FC5C39650CCE3918855AA000D55994B8D466F10F -788F1D08421B224BD39B8F51D1697C182B13D5832EEA58F39538017306769CE819B4761DB36A -9A439408E39F8D59CE2259B136C1AA9AAB53B4C4639EC542D068508CFFA27A50BD92BF8FD12D -545E92F48BCE23D4D6110180FF910BC33048EBE6C4DC395AE22391D16FA5B41A371039D3D38F -41516C3B89B22EED25527CE9785BAE3A5B98FD9F3F3D4B034706B5F1EAFE9022F74C4DCBD7CA -DA96554F4B02A95DD4FD06C6DD80B6B1F1212F1AE25ECDA0ADCB81AA753AFEA2B7F9BDB301DC -7ADF7A45DE9AEF947321FFE907D8C931B82F159978DC4D560F7E4D473B77A65C2F03F9B318E8 -6E209F5C727014F33CB4936E6FFD898CAE582766CEB32824B1E73FAD738AE30552D2234EBFFF -2D53D5AB612BF49D22DCFFC86A3919F708EF8CAADAB1E4EB6EEAD25BCFCE604EC4E0626B541C -CF37413AB17C23C9C5F7D01ADE9B3C579201B44C27E8CA5343563D1DD8610D3ACCB28A5B0E4F -81D8D7E9847C835E7E4172812B3CFC2EADC59FB56C824C1DAD660FB6A13560DFDDB598175D1A -0B66378D48F574DB983E5E7311DD1F4AA6D0C4204BC9E95F79A9F51D855F012F17CCC22FBC66 -C7D45197631C079CB17A8D2CBC2090729D27DC717FE52FEEDE6B035ABE7BF7B3939864789F3E -56E1BDAEA552E3AD2BCBB596289C899FBF49A5CFB60D6709D9129D94360D935CA80B452F506D -1BFB60962BB44FC88B2C71FF5D95D044CAC9C019272A1C3E0225AF003DCBC19B5FDB90A6B2CE -BBCEAA1AC2DC524A747B899C7A0A073517B3A56B10EEB5814A54203D03415BDFBD3A3725FAFD -E4F4DBAC1F9BD167FCB3A16B25F1B6023DA20E85C626DC9BCB1439EBEED4FB56B9AAD2FCDC64 -605E6350379C79EFB47D827983E4E6EF583AB6D4A85AA4F2C841A7419174C5CE0DBC4900D970 -8AF74B010A195CAC87A9AD2A12279C2542065CCBDF70B3EB08813DA658D5C34412D512D307C4 -FE35C462B20327E99E81182B1C081D5B131F897EC4BA3488A5CE21884192B093D6224554D2F5 -5FE4E0AE476AB82CE43A306F8613D364E0337D13BA207AF787DB4AA59197E60CE6AC2747E351 -A4070F443EC186E9AD836A5B33873EA2C4FA9973B51977A20201A89AA51423F4C11D72D802B8 -95D0C864FA0E3D4EE9E023740FDF55C72BCC183BBE181E71EC8C7CA72E5BA430684FBEF9ADAC -AC72E4D5122CFB871B72C22EC8FB3590ED22DD2177FB413172171959F0D66A4953F15DF113F3 -54F90392C6869469E84999DA292296DBDA9B7DDF8A30E7F98457D1035DDF93F10FE3DFEE8771 -8477A690BDC8FB4B50A2578A8AE9D899B64B8015CEC2186F2030502FC8FC69263E2473DC81D0 -B4815D263FCC93E78EFC573295EBA6BBC45C48E8A68E849D57F80732F061B87B6C737947D003 -A8BD066E362F60FFD5D1244C28CBEACF5B39AE7F3CE03292BB729AEFF7B097D7528F1C12A231 -54F787594B29BDE9FE365149EF8AA4917B452F1743C2E6F24996C67C97D22851B1215FDC8EB4 -3C40CDF3CD0BA28744EE279A82ACC8E92E34CFD1C9473D91D4FB5F0D77DADB2B744DD4E7FF5A -211521A9A5DE4B9F8DB2750F96E5BC9CFE89D277F30615578359677C937B71E821B0B114CE55 -D33C29D5D19C93A427A15110A21A281465F51C9233BE747EA57A21D8744EAE6EFA6357A3A150 -00992BBD4B4AA1718F915E57A05D659269E05DB3CD24D76D07BE41257F734508F8EF0801555D -C962CD3D516A37799197B7922674597B6E18C16043B4B461F293D91080E2915EA7ACCEE11042 -216915CD24E1077CD4281A71C6F3C0C2F5057A6B806B625E7F822165717F80AF5525F586E822 -96C0005453AA5B3203F9E6CE638666E9458B2AA4EA944A8107A23B3B033109CF451495A152DF -F3B5D392841BA253E0675F427A98C55538D2268D866634AF08D28A18B6139C9D26E49CA36FF2 -0D7948BFFBE50787FCA8819937E4D53F078265D3070846068F560E09A1CE2FC420F9021BD9FF -BC8D3C363BEF5E3E457483A1A1F011D201FA99A8DDF9CC70D5B546977B0DC3BF4612D17F3754 -DF069250C80C7DB44D16AF1A5EDE29D74579439FBDE1271E3B1B69F257627FE898CB1BD6AC4F -0C3B3155559357A15969179E43C5420955BCCF10335CA9A07CA191203B0FCB410FCDC74C1929 -B5593340B7BBD165440E1497A0F984F440B9BBE0EED0B81997FC4A98AA7C609D4AAA1EE3EBB6 -CC0B0AA405ACFDD1387F8AE589396D6C6017FCA9BB164A9E96DD0B7D8428ABF823D8142425A3 -30BF6DEACCC278D21B12D28DC9502D96AC12FD016B31F6BCC2EBBD3703E99D81A167D234D9AE -199BCEAE89EBD4B910B0B4FF3EC691AA63D165F167DFAD806370B41FB7E5FFB2938088A33856 -68F5C3CC7CE582C22C6BF7F1CFBAF3AC2E5B38BB70827297609097CF69DB6427FC677F7597E5 -5CD92E7020066BF9E14322325028FB85163B2E2D8FF9DE1405B05E98C6D812CBC895C39886D2 -64D2E103C49E4A573B4E074E4E02BEB4A6901EFB7A7F2B94304E6C03EAA8B2F9D79919EB856B -160BFBDA23C2D293EDEA9B108B81EF6F011761D130F8CEBA5C6BCFDF629631328478EE9C6FD1 -79AD0F1CE495C4DF1CC256C53FC740874F8E9118DAA76E4E6C910EBE9EA76664C0E840E838A6 -C9BAB156A915BA74362F8D0871EEBB623061BACF86A9A874795C483783E96077389A24E29E3D -02AC9C4EC8759129A13A24AD1F17C99F81CD146AF135186BBA43719F49322891CD06ED5A878A -D66B297B600705C836F18F86EF4E4558DA2F4FE9DCCCAC8692319A7C97942060AC51F02CC794 -B2C5DDECB6C1CD2AECF43DC4BB9B63E5B5BF0C778F3037EC2DD3E39C6CF4695C35569C0829ED -1009048A1F4AE79575D34E09DF84C9E0597B3692148A6DACCEDB32F86CA54C8B1939A6DA38FC -17F543BDBF7AD9ABFD125102F644A96CFF74B107916462A9922A382FA213307398C1940AC651 -3F8522A8AF7B5C2A96660A34B09033F8D03EAA49D81FDE5D27C021CB99AB95478BE5460229F0 -E7A5E62A44EECB8DEA859D9B7FDDC5995B0DD229F4ED5AADB6C7E61BF91FE0B5DD8302313552 -356DC6C86BB17E3CE9E4FBC1D1BE9432A108ABF3BB8D40F97B97EEA11687B1E13F7DC216F32A -C2C0158EEEB0707DA021B20CEFD3B7EB6C0B792CBE30522A6DF9627A4ECA013D73C2752E8493 -22650A7FBD3707B90D6D1EFDBDF86138487918ECFFA410CE3DCB57AA3DA1555796AA13E1FB81 -000D5E5DD886F9346CA769A986DAB1275D4DE56112EE7934C215451BC9283E65028F4381B7F6 -BEC86BBF8304A4CD8092FC107144031B7B95487AF46F907DA0530F05EDBC0493704B7146F17A -A8E776537DF4FADE5FE62438CF9AFFF03E16333C8BC0B4A14913DD47AD57CC640248C285B690 -4F57A4EFE67A72D45D1C7170966CA79F4727B30D3EE504429B2FB090AD52FAF273A46EDD4A74 -C3F683D3C5CA00E28D135E68007C7EB8903FB571533FC153DF753286A504B4AC31CC8BD486D9 -CC1D8D80E1A65EE3AC6461E7400F6E8D69C01E4F2A6285BF76ECEC14517B625C31580065905E -F7DF40094CEE4DCA98E5357C6BD4A2FF83375C11D49A99B66B4DCE1E0590E168B69851820067 -946273DB03A2A857E5692576134E1DF8B0A465D04AF63DCF8FE486B9605BEEFADBD843E6E803 -30277DECCB0470D14821CEB414431746F68A525FFF87AA79B1D827EE2AC77A7DB87B96C40032 -B4AAE67CE9D8A8817469A0274CF10D20F02080037ADBA0C7BF876A4DD4976E8617263CBBEADE -386D1B2193CDB73F16AA5ABCB2E3AD9524EE33EDA9DBA9859DCCBE8CF8485FA818961683DEE8 -435663775EC440D0FB91E2FD46594B01E3C10557DBEE02ACE1B2A6D7F1FB472D3110F53C1EE9 -E23DFD5C1E3B781CFE314950E22933877878D54881070B14E469E998306BA7902B7B951F5FD8 -AD3EE1682DD64CDD3344AA642C13B88DB8F80B85A8C9252F87682142B56923F3E488BF7AE9CA -AD214CFC6B87D92F27F888A58BD53FC6C11607F3104FF5D172836D5AD8B6433544BA9CC7D83C -4C1BA8294C4FB69F58BEDF4C3D8711FACBAADB9048863F136B6691F44812D4AD8021B70DB89E -C4B93AA8EA1B80C225DF3BE5576BC2399ACA844F3FF6350A73719D8CB73CFA933F87B8592A1A -4D864E93F453CD498A3EDCADDF8FCD6ED4E51EB027F97623D1B04E7DEA6E1FCA2C11B6CC3C4A -AF651995E768E731F10DBC2009C07B159E3ACB93C6703C031414A923D35109E84EA6D6F3B27D -D715E855972A96BA09639C7ABD3521D93D702A5F2977EB7AA5CD1AA03FD0C80C0D703BA3C49F -C6E13AA5632926E5ABCFF66162AB404DB2E7CA836530F60D57253BF2B25B26676E5340C6493D -2D281CA724474A433750EAB4775F8460D39D649B070470C5127E09372C0FB87EFD54569A9DF9 -6BFC273DB033E9100D9C9715A92F105AE5B835F57CB3F12C1D96A347AE43B7C300B8D9FCE76A -436B4F67023F644D18149BED0724B81C5A6464FECB0AA464EA18FD9BD9207EBAD74476FA159B -C0EDC6B860855F123E807E68AF95A8F5AF0CC18CD9417019E8E3136B478111ABC3B9A8C7DF6F -334762A6E83BF768299AE8CFD5D252E8A2F01AC18382968DF4E2BF8BA10F5E294DA25286FF1B -0DABB15FCB9C59FA0BC4475E0E608AB9EA397F3703BB7D6049D82BD171289A6700C341E4037A -396C88724D7CC5C9E05D7209122FEFA933F44A4C6AC9BC75F339AE5B91093E70086ABCD11126 -458AAECDF3B2816B4B11090000C885772F7CD6B713D2A0DF3A2C503BF07E0D27681CEA4F1E91 -DDD5B8B3904CB3D36F2D82215276D720D9F364559F047F1FBABB741B38B91DA2EDBB58101BA6 -229F9C25A93136DCAB5C7E21418C280B0D86ED21657F7A1B543447AE521461EED56DF25EF4B3 -C8890733198A80C8AF136DA60EB6D3C0F5403B453B4A2F5F8B75858AD36AE00349FC74198441 -48DAAD7E09E7B2E044B8F91C195BD4D2F80E298638FA7E603B4742C65D75BE685C88B050B755 -0C94D611F014C3F2C7C70EAE18A569F4CF4281ED8328DC51CF83AB6FAC0DF617423DAE7370A2 -519D7A51680C5C5B860ACE1E5EE3EC97712B67D8C6DF7888220024BF3F6E77FB076D85A6731C -734E39B988984EF823AAF534870484923B546475BCFF91C5F84C5A16BB209C6A26D1C0B9E3CF -2CAF835D3E1F684BE07159ECC7E9942C1CB5A240116F61594BDFFEBEB7DF9E15B222373C1CA2 -384FE20A8BCA2B5BE17A4410B3601E2A63964C7D238E055BBF75779BFA802259F2417B183A2D -8024DEAD464E6EE57A4CE1238255B0FFEF64987BBA5DC282364E08A0FAA8FC34ADF74744A5DF -B857E57A2EEB3182E98B25779830AAC26E8523F719A04CB9E09292E146E650D6C6699AF778B4 -A8AC4B742F94D888EAED3A7E96879D081BC43200F9057A22E50362A12C1407ED12EB6508B2C7 -AA13104A6229F0437EF7CB3A380497BB12B82B7E8821074E1DDF7AADD5FC5A149EAEEE207B5A -86EA570DBED5019C64780D2383A1CF9E1F02F8DAC9CDB5297790A12D824CDF980700DC2D4D4F -08FE41E6D9B23429C818D6B1A903EC5E0708ACBDFF5D061495326840673B60DEEBE205B7E585 -5E76707CBFF4BC8E25F8F6BA858F0109DF84CF1E43C8ED985A42D47F727D4645836F0E57354B -5FBEB8EEF0A3812B15CAA5DC0385F0806B3C21A85D2B0011478CA093AF888B4EA2C9B86EFA95 -4987C84DF6619ABD8F41FE66E64BFD013CE74E2F9DD6D1A273FBA73341A6A42DD048E87A05DE -FB3365E534FCB58F817148356568FB96C9B04FD1D1F96A46C4F0D480FF5F42F009B94F8F822F -F1C03F1DBE266F1CEB86BE529FB7CDE3A1A0DB73C07123E5575165F002777825E522D46E0BFD -F6738DD27603CFC2B54E2EAB8FB30D8396C1F08A628D3BD742FE4F2439297C0CCBC436C2A08D -92091EDD3D0A8D919C38BF2B47876377B9C9E4ACF801112DB948DA71F2F0857083BD0E4C40A4 -1AA220D9F2FF85424793C58CA1ACC8DD3653F28AD64DF8A22FBEA8BC1264CA0A82DAC8DE34DE -CEBC8AA94720004979B4656E1B845990D214155D5A713217EB4FF62BA5AB757BEF9D677DB469 -E64C22B0EDE8AE0CF5BFAA00F3F98BBE50C70EE4AD51D26990EAF63C2B785B765646ED0FA313 -218B1AB4FDB3AB7481F81C0AE89E1057114AB901926EB5850B905CD8B42FE0723F1967197E37 -4AF44D38DEEC4A9E70E2387201FAF0052E6E15E491B10CE22DAB964C9CB4DCFBCFB6B57E2987 -10DB589AAF7B232ECBF440AD7348F5FFE8B890CACC7A87BD01D56F44DAC1D451AF8C8A4DBAE9 -503E8270DD65D30DF18D6755088049E5CF8E11807939D5FE9B05E0D048A1513446C9EBA15AAE -5DDD340765C15E1B48035E438E6E09141321359C4DCF6BADDECE2113307ADE3F09933E09E090 -6C9F854B15707528DD91CC943464E96718E8772546FA175A201FF5DF98ADF26A27247994EEE3 -1AC4B3EF8E9E3D04721427C112FB80C3CD6B4D68276CC6F89AA9AB1F8C02D060A382148F474A -EF29A069748653C48066094AF88E644C7B50A7A00B60B570C3FD90F864315E611E50B7162AC3 -7BC6968BE444716C8491EDD53EFE1B47A4A22B15627E8D4878DA33D7C46B8874A84C41C8ABCD -387E1C04501192AD6A29C266A0951D34F4D3482E492905CD1D14D3EAA999FDDA56816EB2ED4D -C2E9454973CB210DE95063B16384CCA9FA095F5F199634DE13D561986B32B98B50F395D1F58D -16DBD43E878C62837EA2B0D3380EC142CE3CF38D888040826D5EF353F10C4A9CD0DA0869734B -E9507DAF0A88B8CD2CE37F3F11CB1A989C2CC5C12E5445CE80FCAB37CB1394CB3304ACFEFDBC -88A908A72416FC6058835AA07508719C66FF7CD953856542A165ED27B4518A5BFA83C32DA3CE -94362E8AC98B620ACA0A68E1305DC8164D8976D3053D498FD469B0AF67AC137016B3F383A5BC -1232BACCA7DCD36C489DAE9080ED2E9E227858F9D77A67D7F2F743F147DC6DC9CC6E6C7FC747 -327F6E7242BF12A819295CCF29BD4C8832F1E829D413B2B40EFEBD5E01C3EF81F22CC18EF44D -49E650A1A247C0A85A95840BF5EA4083FEE36F38837737E90B0C80DBAE6E0AE58C40C643A8E3 -38B9EA78033609B1C398E0F00B192DD6B89C9113C83233AA4DDF04886408605D5D278688B2AE -B6C471833859C3809CD214C566D64D6E19CA89C50517D1299B39D7D55B9D71A91AB76CA73CAE -E953B10A8673C45DBCCA267CCFDA0420B39C6E78F0FF01D913DF3A1BF3B3445223C9B5023D2C -F0FA33284AEDFCE0413B0AD72DBC3A1699A5241E1D0820CA4B72CD7FC89FD4082EB101AEEDEB -9A83D02E2DF7342CA428A117B11ECFB00362AAAD1137802022DE2438C04C645E3EB6DAA081AB -A9DB8F4B55F71AA2276227426FF8D83A4A07E8CC8F44B7CE178C529CD741BC0F6CD4F3909123 -781A780E1252023B0B19D09349B71A851B657D840B586ADC12A693D6EC8B445AC69E8E0B3864 -EE746FECE4107EE6508B59D33BA64B7464AE78B095F36808E5E40C4ACB10B1D2EEB10DE4F8DC -9FD7D6A88EEDFA64F7F7AA97AA0CD4146E42C38C413941744DBBC14EDDBF4612DCB28C540933 -C3BFC8B15D901AC148B3BE2C63796E890514C9EB620DBC2D2B8A787DF34C4DDCB05B51F73DEA -73D5AF3088F47A1DCF7C62FCAC93AE155829D3B85665E99DADABABEB661690AC1070F57DB123 -DD8589476FB302D6555577FCDDE9500CBEB733C76C15C049DED16E4DC0C2B8631CF5EDF62AEF -778D4223B60AE68D9F3E7FA5302C792B171A3F4B3FF10CFBCF8F83C8EF7FE96F2FB5DD7E6419 -89A9C9067E25C86632038161EE76CAFE71B861B8B782337826F96E6B099AB76307F469F36216 -2B631E7344871EAA3AA90FCBBC97F6A6E7F4B45A748AD6A337BD19CAA42E66D104D5E9554854 -6AC52D2A7423A615B961A8F5A42760B55520441BEDC7D4DDC453E5B7B633842DF856401D095A -7326EC717DFEE6D6E3C076D2717883B7A2E92DCA51CDD3B769CBCBC2FE97A8BBFC5CD06F6507 -2EE5E797342771710F816440D18EB13BE66CF2A00BA71F799D390F70D43BAC2CC9C6C99E7855 -875A98EB09FD1427D356D886E21065D7381E4AB4C7444868EC8560A9922D624F703DD571D259 -F00B7AAC73F61F9855F94F60A32BB24513373F4CF40BB273C30A5E02131FDB0E7EB98B5756F9 -19F8BDD959B136FFBABFF4466F084B44E647E6EC32B158A438052D34E4F242BF6DC075F7F924 -4E0BD9D11FA15420514DF4BBD2DE245BBFC7F7B28904A07C5E6B346C3D305CADE7385C5698A1 -AC629DCC83285EFE162225E1676A8CC9AA4B72D4702D3640784254B04B559800E76E67A5CF8E -5508893B5360969D04D69B2B783E298B03780D34C7BEEC334AE01A3F5C025345D770A0B03143 -6DAE5FCB8C121033214741DF19D9C6B4E608C7C70D6CA2E0AB515DEFADE1E2570E6AC5054725 -98FB5B64108A17EF4A4CD214B1EFBD8B1ABE4A0DDBE0403899B031F94F544E925FFA4003DA49 -16E1504EE49F418ECC9433B7C938E8E251FAD46B03B69616442146AC7CA18228B0BA7E80D4B4 -4E5ECD93E6DEF65749A9F3C42CFF61BE9ED98A056F7B2612BE1716581085459FE250BB40D023 -7C3A151C9D4CB4A53323A3916262D6030520AB4D0460648CB33E0C7C483417160F828BE43541 -4BDE2FE7CEDCCF2CFDD6423D69C7146ECD2C3E14980CF203AE0AF949BBE069087B2A9C79DC2F -E8876DBA0FE0AEB333DA3AA5DC85EE328FEB0692AA73D30AE582F285CC3773B81D0258055E14 -198D0D6D7F0ED78458C18195BD1C1BA2F709E28948FC56A05D24894FF0C6418892E000E8F7FA -8E45C20B28C6999C70DC8569C92BD55743FF569B7E57DDD8F90A5A17D5D08CC4AA0AC57A286F -62C91CE9D10BFD8CAC07AD3FB8150F19D7161C1A6789C5BF9484243F08197BE0C9A4B88D2980 -E65B9419373AC780E5486905A98D00EA0064832E7843EB34419C5A5005ED28FBB8FC0720D9AC -82BA4FB723A4A216D1BA8A88D0DB3EEA99E6064DCF24EEDDAB187396A877202DD8939B06B68C -32E292A2413E54C2088BC7BB5CDA8D52C797E4CABAA4429A9C5515DFD214706BF684E7068380 -F3D74EBA885A5DC1F4BD733A4B18F07B481D0965B5706E16E73446F01043E73C2B2D69F2406D -30237385578B037AF432576DBB1C39699207CFA82C82D047402BDFF28EE5C3B3BEBBBBAEE1FB -6AB4694BFB31298C3EDA7895D7CC971F9ECC6CE2435D2AA66D83C9B059EF5D9154AA4C9178AC -1E6E22EE5A58C7B349E5138A05240AE822D546A93F4950198998BEC8B63062D1B2203E15C2C9 -DB58041C3AE101FAA1EE29D66926C410EDD62F8D183B3A0BB9BCFDBB89FF0BC31F8CA7BF6F0F -03A1FFAF1B0CC5388D8DEF1D400E20F8530EEFE692B5355A2E6F1A1122967203F0DC5817F2F9 -67273910CD83DC753E7F3EEAE3E0E439E792837667B81C295D993BE796925D06F0D50F0DA0DB -912A8511D000C7766AAB1FCC042142F7796FA60D63E783B7A3AE561A977FE0D21AB18F4ED053 -BA88ED3C408397B97DE0A8F123ACD78FF276901722D270A82982713F22F62CFE2B4058D7C026 -E5CA884262BBFF6DF2F47FF4F32371D36B5D2B8AD1362E54A6DBDD4C996D072E87FBEF1A8D04 -8BCF1771BF863A1B7BC6DD740E3D3E3FE6E775D6DD58650CC130E33DF30AE7F2309B44969E0A -46B722CFF78B767C0BFE515C206350BE96CF809D6AFA37997CF27FB7C81D11E04A336087F896 -20D03779889BFD223F374BB14BDD7D52FB32E5EF3A1255A45FDCDF04A94AD7C57F9365852429 -4430738D2A2F2CFE4E1AB61FD556A007EDE5C3A09CA8D71737E6C7D3882B22C7025A8E669B71 -3C7B10D910B4A604F230BC76AA980E2ABBFA6A375B2579DD46EFEB2EEBF556677F6162026439 -62AACB7A8D5D46E73B29F0D888DE715FE4EF6D981F7C759B10733799423A52545101302D60F7 -39BC5325CCF4F70D598E34DD30BD8E491D8F710C5FEAC37995D8E62F2210394064EB657976AF -C5938CD9774555C8C940E1835CDD514AFE606D5558D298906F5544BA5BE526766C82E6D32E1C -607D80E2ECEDFAFC04767EA14579FCD5558C71558D514100A3AC7C02E005C334B26BD32DCBDE -79533DD96004FF340906AFD5743C60AD61402BA30E4B6C631861EF0090F4B2F9BF71A921E890 -E1EACA3368CE42300922A081C2130D042D4562883B8617911630D2D19EE511B4CA4629840F43 -1726ACDCFB47CCA5959665E40FE323D9E32CA414E8D98C85C8B81CB364DBF71A77A501F0417C -62FAC768B2977A81540C0E0E9ACC8D141B3552DE662008E083F2AC70211716521FFE2932856E -2C740CC17B5774DF7750E00409F728107EE29BD1D08F1329B50327A45602088D01C03A47449D -BFF96B3BB6D71E56B7DF0C93360FA67C6FC746229ED2E6796BCC62EB54B2D44E548A92C6F5DD -E6595FA1D058F6BE2A92DC45342C87A9B2C04618D40EC8422A52A5016A4EB9F58008068C3194 -BC92394F5F60088E6B789E3E6C0AF16935028E0582CDE15D5F798379D0058955150173219992 -12117B7B69F1A1B636C96F9E748EDD9A69096E4AFD3AF4EBD41AD0EE113B6F034E1E16C7E377 -F54861EF5F23FAE4BA7F758CE1197075348B4679F1FF044CD7C1E833B89784C64F7F8D9C5480 -19BC5A0AC745832EF095B89435056D69FD55C0CA00A4C643A235CC93299F65B970549BA234E2 -3F63F8D9F0A22FA293A9D05C257935BB1354E6274A9FDDEC7905B17CEE6207669E73A29F1A6B -D2C364642990BFC71AB813F70DF4FC6D28769A129645038269137778E7A98FA67D331B46CE92 -108B5DB8C04725FDD6001588DF68B91ED83A4940C4B8411463898023192EDDD621821B38E583 -6858D7143A1325DDF485653E809054483D18BE615F53954183A72B967ED40A06B6653D95974E -579261C098777899A5DBF5A3B46A27377087AAE5B10B9899AE4C84AA1A4FD02BB440DE01E14C -97E0D03FAFEBC927D9B897FBB50491C5DB7AE9042DA945820517B58A8AA2DFA47E8EECF9F4E5 -366A5BDDC412E1F43DF528382EEE5C79075DFD33290861CBE8A9827B3F58DE323616AD65D234 -B2CB5027A2134555423C37C3336CD0505D074312829D78D352AC3B5D5D74BA409B97669C6F10 -12D51159AA6D6E1BE1D6545F43A80056FA8C654C49982C9EC9D14420814895800BE78212A27E -25350D60F42BEE04580C5FE6DE3C0FC33FA95CE86C4D49C2DEBEFD9756710E16C7B1C469972A -527ACB561C648CD68C1BE3B5B02C9C40A33E87F25DC3EAC3DF7F3E2B418C8A8A2D35ABDB8BC4 -6719AA589ECA2ACF26BC13D1015E5E4B083BB5F4CDE6C0707C83E128E27862B343BCDE292ABF -1C4A2E8A9000CCC41178D731949B378E72E9E1290042500AA6F7E2040A636C3B486A3C322820 -1D52F064D0AB3BF1CD79F2B56684DB6E552004C70B12A8E9FC0DC8B595C0B2A908AAE2FD6E07 -40C5BB3F169B945116D359179B38DA17AC740D0264E6DB3175E3826974FF55A2BC2CB1AD245E -A8D466220AEF7620B312C78B6E81E335EB8E8D8C4DE76428BB35CC60893C305FC1117BC483A4 -CB3A0B171DA3544DEDED925706A972D72BF42F78F6AE24E7356CA3AEFCF13C128B89E7CE62E0 -4424CB71EBD7C75BF12842641D0B49B3A3B544D6944E63F5AE7B0DBB80035A8C90A07EEA6A3B -9DAF96A909476704961A6F12B91F8D703BA4D40796D201E2F7BAAFC4BF2F74F4FFD69D5EC479 -CD3F3F6D8DCC4C19D84E5B9DB159704817542FE4F155E2BCDD2EC6062B32C0A32FD2807904E1 -D9C6FA07B5A8BFDD840B152235E7C24105AF092FACAEE08BFDE0E19700ACFF7ECBBD944F962F -082F52C96A3CBAB4A863548B3D887C9026E34AE440F089E260962122E6FA920CBD824F55306E -0E70673ED40854D8F427A97CD32620995BB95374AD2763B57ABA563F0A024CD3312BEDAD0DC1 -FD5F9DBFF4CC61F28974DB08457E821D4FA9F50A93416E6D3882A8D1D632F3131E232340002E -24A4332AD57F970D46CBCE5F59C4B435EE9F70528F011E5D00CCEC3A805BEA9ECC3FAB6D9A59 -C0798B28B72E563EBFD5968E0FDF6D9644FDD492163CED20EE4088D28FE015717B1D4BE92C16 -71E148F35D26ED4D67404BC72F823949EE6ACDEC51C2D85E17A2D3038FD146E5AAA257A80A3D -33A73DFC7E7EE064C51527860F542ECE6401B9682ACA824A36B84F08421B24C625C385B655CB -0A571651BF63F2C4A5C1CE4F0998D80D7CB1C1C8D602C72EB7E2C0E596A7F3A8D488419F7C7C -7C5961270BDA4B1BBB2CC72577582F63266240F2F49D9EFF48B87C635D64C3CDF9B6CE57866F -DB5889A41EBD2BCB02C44A969CF929453857A4B58AF1CDF891AAADE394B4F3D64CFE058C6E5F -6DB3A703663276884CE99E0AC88121A2796E75FD3BC247978253C0A916009DCADBD161D9E9B3 -7CFD5ECE2B13C16852C76190F1EE1878D12DC48E04FD28DA119EF5DA352B0D7FF478A82543DA -7B406B164EF93D7FFC2F6F8A94A3862ED22A2329AB048EAF44FC633AD5A5AE99F8E15F39F7E8 -DB7893CC5EE70342FA628CC5C0338BCC999A337EAC22396B3A1D95E0544DAEF2642AB98E43A0 -8E419C6CEF507BF61E8F0334AEB0CFFC12EEBFF46A050B6DC136B074596B8F9638E9BD682F42 -E8A30D8AFCBB9FCE2A8DFCD1D65560C39BF32FED339623D96525F38413B74A66B44F62C46EE6 -B3A64DC63C1F08DEE6AC3C42CEC75158F635B5C19389C801CCA478775780BDAC99A6950C2356 -BD7E289CCBDC132D3F695C4C310AAD594A5FDE544BEDAC26B2F53DE22067F99EB05A88E75938 -E9502177723F1988C17C9B51ECB86687C5DDDD4E029F39D1BD958F49EB1BA512E0497891D264 -9272025DFF7A8BAE948BE1E7B705381155C0A024DA3B7D55E2CD3714D874DF93D89AFF9B425E -9329946F615DE6F1826ED55C0590D12E6E4DC62A46D84014B8887F9181A865E7719686C2DA47 -EE3CCE3CF75B95817DE583A006DCD15E8F15D1C1A967E1496049AE191F6D45D476DD0E9579ED -063B58F5FE40F2D4DA05E990AA7C9D49F4666F4A0ABFC748E5A254C871906E0E34A34AAC1239 -E60A42E72D57C59798DC3C44EE2883748A982D94E9A69FE567BE2042F8BC6DF56E8046A25C83 -D38C550A5E4D2D922399C63FDCE93965597F04A90DE9A785E49F2AA2A1B7E0A6F777919E1ADF -333DFF586BF724E43F5B89D87351A091CA9D2DC5029D796BAEB0E91479A3F8B728756AF17643 -321357278705E2D84808C336E424B2743D06D7C68EEE85B180431E8EA901EA5893167D4550C1 -DDD2ECD13208D2D62647892D3FBF5A5949A7255AB9DB45547A926857715F767C8F3FAABA0C69 -45D393753C26E2B00DEEC191BAA0C2F679FA87FF1D01A98058E293C87B398B8171242B36F3F6 -2CAA6B807EA9C70BFEDD8A4BA038E459F76C5C1880E4017AD9A1382405D1A88B5B5D7A451E85 -539D653665780CB1774F57F781A69337C7C1AB8CE88166CFC88664E441E707DAF576CA229CFC -4A7AE4823C48FD9A5BBEA3A142CE0AA68B52EB376DFFABF332DD702AC4C50BE1C3A14EB871D4 -1E4EC2B6F6B7F77A1A9885523E2E213D52E9BEF29C0F3514EC23F95840EE711AC3758B8F3239 -7E7F5B2870227B0FCF7A804288149EF210C2EB0F755354E656A9B7979C41C8331C247654A47D -D0F086C2849AD7427E64BCD341A36E69AFEC58745AC9AFA59C652B7A09DF1E4F28D2310411E8 -C04CE6DD9DC17DF67B3DE11B20F69190F45CD9FF330B202984CF13FF67A9FF1A1A352A95E7B6 -1BD4A65E19C9EA7B6ACE3F73C447129D80FF54B542C76B94BBFE2226D76B1AF35BE4B8F9D669 -5EF33264C1C84D1FB6E1E5FA3F163E921EFEDB3B81BD0472EE7EDD0E7BC0989EE74690743C44 -9E80114C8A3F83091D4248DA92EE32030C87D212D19C7C10A455DE000415A230EF981C195E96 -4795C7BB64A482832031FDB9CC635B3A0B3FA7B4FE777147590E5B5148501A503CB810321B65 -C9D41878ECE748EF53D243EABAF42AFF8BA7C64F19193A7C4D8BDD43C0A87090BAE52411854B -AD2D4A5ACB646F80A4CD8693EFA4C34F498133F7107634848F9C4DBE79B34B4E19F802D8F664 -00542C8D54F26022B6531823541FC43304181ECDCF3C37BDCA098A5BA6320F57C286EBEB1587 -FD3F776D806F56CA92377785B4E0439D108028CE777484C23F12716995395C8CECF9C280FA3D -C440DF83307801718576E8F07023EAB6815B892AF0EAF9E5CEDD4EC6B9662E34274338974EA6 -11374C4739EC9E30ED3D8235B65B0800EBBE1F70F3129EAF40D990F653D83BF2EE6AF1EC3527 -A0A958E4C0E7C3D08D128B63F87987A81D9B1499B94FB62E551D1DCC294716CAEC661768A341 -8BACF6576D1D43E0801BDBAE17B17E985B973F9CEFBE11F32D2EE9E6B56125F6D11BB00AD71F -81147C068454A810060C2958BA85EF7542B55E14EF54E55AC732E67808141D0C5B86D4C9190E -D7473043DC365EC0E96F2863B98C6FD89B7D9BFFE59AA3231B3B2C29269830F80976D7819D3B -3CA329CF1390CFEA725E466B24EFCCDCE5623D6EC44944F20DB0F0E88890D31035B512BD780A -4291261FE160CC9668CFB0D60F001723E276538B2535567525322F42C1476CDB66789234D06D -85CDDCDFA08849EC6BC75F59A2FFE140672C64457592FBA6420DC13ED2D2E8F9D3E8AF1988FD -9D24D2EEFE3580DF32E3D95A09741C4E87AA7861F22CB0B0A568D5C170C04AAE6830977C9F6F -78E868E1D563AAB8C699BA6C87F73564980494A8091747C5FE7CC6B6E6B39564D3477CE0C461 -3EEB32D0795DDA411FBFBD464ADAA22477127E8322DE80AE4E29B95111757C3FFB6163267577 -07A3563A1C955FB754A78E0A3C46EFB268AA4A031B01C7128A79343C54235444182A99380E86 -ECED1EB9FF9BB4A2B0DEC49C5B5EC8483E6401B2FB17A9E38C74011787E84B965E7E25C6C2F0 -BE3C44BE0CF67FF6C057F3943CA9538BD193011C19A7CC55B878D3BA5FEB9C287B56BB58BFE2 -F3B0345A85673A772520B89274AB96747734C2715D8FE9B3F4150900A1D5818B5E13C5285B40 -1BC30CBD03758FCE619E31924D4E1DFABB6435AD22EC3F2E95F521795B9C9FAEB191B11B0F83 -BED61D23074D4900C06E13FD391A798ACDCF8D53610385AF044C542353518FC498787D1F765F -CA4B72385AC9EF7E0DD0E07997B7458C338FC6D889D4823CD7741F5994EEB43557C6CA617CE0 -164B0A7206CC915F93FF2372E66B1266D710DC33ACD15204C1CA075F05358D33AC3816C392D0 -A0589B450ED8AC9B90E96C1F182E5F15064AC26B9518FBC23CBC521F6E55A8A399055BEF90B0 -69040C1FEE3C8F1E67902CDE67FC1609E793F5883BE4D533EA35DDCA47FC62928D4C46CFB513 -0AE93DAE90289E29A0D7D0098DBC3F9859D49A7E098733F5E75FB170B0CAE779B9AD19DF7958 -453C23FBAA1E7603ABD6DBF9602A74C9A1F62D5D7A450ECD1F4C518FDF3AE2AE72F021DB3693 -C4134CDC14B5E556B140177408805581DF15BA36F5D1985462BF1E2ECE7BC2156A5728446C54 -3DB93688A9E54F0DD89EFE65B6C5F5141E24D376D92B16A5E4B103E5AEE083F269E782B7F7EE -18B74BB87B5788CF5E8FD686412A4AFF4BB8CA9AC4B8151BC368DDAC0333919437E7383DEDFB -3097165FD80CFCB91EC2208DFE318CC10AFF42C25DB7EF2C10AE9C23F05A7D7DDDC8F4073AD6 -A4368E1FD213356F1A0C4FB4FCF94D6CF2606EE38AC18606FFCF8DCAE5807DF667F2EEC44F5D -9C9927E7584778475D097D536DEA09E4FCA25B896958815E8C71B7A0D4D25A4E4BAD2ED79B0F -2DCF9DAF5C0349DB2300B011FDD3D40868AFE8EE326EDD2044CFA556B171611C193DED449CBD -AD23C3230A452A64355184BE46E7A2E08FFCD5DF0E11EF33C873D2912D2E9D8DE5EFF60407B3 -83FA25FD224F4A5911B988136A0382CBFD3F2BF2FF56916F2D3C102C73BEA27455B458BC9787 -0FF37C82BFCB4ED4181DBAC4EC98316391F4EDCC493F0DDF93AE975042BEB542E1FCFAB86A41 -9707D41B774339183E65AFD5AB5D78D471BB1E9F8A4B5E432BA6AC6D2E75F5B754A1E0E0AAC2 -A05720CB2940B867494C919B3861621FAD5716220AAF9F76493F000FCF58ECD10AB5270ACB37 -0F23392EA511683193AA9ED9324CB2D7D7A122E40EB37B5FC8C22D478BE98D0CD6403AF04555 -2E97ABF1DD33312DE2B3922C4BEADFD07317B3C563EC24C52C4AED8D54728278685A631BBCA0 -C1AC76373BF45EAF4C636EB9AA58B05E796ECF47CEF28E48148C34352B6F7D225988A2CD38D7 -F911E5CB88A37297793C150BAE089A105982A474CBCDEE01E3A3DDA757AE1EC8E8E035D347A4 -EC3069FEE7EB14BE36350024520509B69BD4190B9857EC17DF8D8038EB222720C43BC3FB6B31 -76986C6E8120BBA1C0F92AA87BD22B3F797B84DD412509DCAE4A44BFFC61B17D45BBCA291239 -1F1464C9BA910A9366C86B97FACBB8D666A7A6ED5C2A2E7B43A5FC014EC1F23D92875C820A01 -F6663C756E643404DFDF9AF73076A1715BA48D435306DDDB30324F35E3F41F83E0477FCF14DA -2535190D445C3A17EF313C2D763CB9119BD87C59F0AEE8F2369A353F61B97BF43548DCC182EE -D5C8C1A1712B565BE60F60EE7F0F30CDEE883E1D9BCFECA7E7EE2D14C38952CFEB9A225706F0 -513841AA81EF46199212B270016020CD88D8D74E6FB60CA7CF8F64632506B5E8E89BF588BC40 -4CEB79D9F7BFEE241590F1FED522137B33FC11439D3F1692F4FA4DA6C90B2615FEF82AC1493C -12E986D243FD182DDBBDD7F351D9446BBAA9293D2801CC0FD7145D3D5305AEB8300F9B111164 -6292D481414B940EBD50F87C493B3B09EBDE2009FF81AFBA17A566767C2F0973A8D63D3E5B3A -B4CB709F6D536A4FAE603D7CEBC3D88145C8F7DAABFBA7CFA315D2A1B0FAADA69C9843B30B61 -E3369505CE4524710FAB4E382EAF9BD95A11C2221C34FEFA7BE78B72D07CDFFB725044851609 -FA18B00D753875E51872EC2B73A808D30D46A11F2DDA6D4173FDC7298E6BC9B937BDC9B7D9F6 -D713850C6A9D26BFA62557436C48181174BABFE56C1202860ECD02C29D64EEC855A2E9230472 -86D79277C7FEB366B2FD242CB3BC106BED6F1EC30444938409356C59624F1570D9764CE90844 -5761C8714D6B69B97D3045FA77424CDDC511EA7BC7EAB9B0769EE369297B945F4E649212894E -C0648DA20F4699F0C1C4B483401AC1397F86C4FBD01FD4B5783E9549B6E792B1070485547F18 -E265E85CE1D48A36E611B8EAC33BA3BF3CE797179822C50D885E52593D7D52ABE7A65D0BED17 -284AE956339EAC35656C28F15FAE93D04019E8091509AB595F046705CF9E773C68EE56326B27 -168C9E70A09CCF14A3484BB31D80DA47922473E33E7EA3AE8949D3C0E222C7FEDC4CF7A8D4F0 -ADB5FBF9CA187AFC7E3E3F8F13C8948D3EF33F46A5B224652C2A4CFCE8259AA185DE52B3B9D6 -018E0A2A4A36215B289FC405BCF140B9F02AA219F0426C29529FB76A4EA3A0116EBA11356426 -56086414213DA824B9DCD2C0D1CC4824C24AD282A00F210B9A08A9317E4F9C5F2F50D477FFC4 -60A7827E0F175806D8F3156C017FB43352B7CB16EC8514543AAE272862A5DC9E81D93F38BE39 -BA838C7C6E109924BE7DA1068B8611859351651C972E02029E5933705A4BD9918307AE45802B -FB4125D19711E803A11186DB8F05968D669E260C4DA749F8299B965532A0EAF5C7F47C565EFF -01581DEAFC030CE7BBEBF673C1A790B00245FD4CE371814F9A613823DBD2EC9E6666A9850B18 -11D0026407FB2A28D23CFD25CECAAC70690CAA72BCFF47A21041A9EE1683EF278440E2A986BA -D61205A7B2BEFCCFF802206F2D03931A51F61E3F974EFABFFD6987527D922B8CD79BC313627D -42F17AAB7730E8448D629DC9DFA1C4461AA4C88245662DF3F4C0306C7684BF5A0F752D962DDB -BAC3E82DCEA6B05D53A2DCC7E110A96B7462317752205E039BEAF778739539F6E0C4FD970DF6 -8EE666DEB0138959623E7869395CEBFF9EC81A50C42DECCAE2E98A2B1C4F4AEB6811969CBE1D -EC1D0217E2678E6231ABB099EA56BEC738E3040EF6917B5C7BBEF0DB8F544945B8ACC2594958 -64DF4B578D2397162489BE7CE21BF69CCD0BF4B23383B78B404313DF36E85CC173A40CBF85FA -684A65FDD33D3349B628E528AF8D8C91B5D91B535EB37913DF5D793C12759C1148F14C452BED -8A69DCB524DAEAD8C5A4CB13B6B5079ED3AB70C08EE1F03D74B76FF56DEFE20FD850AE021314 -2711EE58F9130EC12A7138A0408A0060F4361F92AA67BD50CF0F4D3AED0CF549A8D0DCF364EE -D5CCB307B8D6E267243EFDCE3EC615F2284796FF5D590B04C082A4C7BAF99CAC3688F82C6382 -71CE8A09C49467DD6A6C176C4F98214178EC601A4DAACEB26653D3C06558C0DAC08F5D62A83E -77B7355D08672F274F386D50B0C3599E287E3BE8C04E988E721D00AC5F4B1C75423E868D96F5 -6D55E3C778A98E3F5673ECD7D6BAC22B77B745177520B09CE011AF4E86490948581137B0F32D -0A80AD73008EB4FEE29F176282FB15D0A0DB49853FEA636C1CC9A1B0D152A6452987F3E66637 -8F832E23E39676C26F3FA2C941576EEA4BA9B7D4E179B899ED13348369DD1C0BF691AB8A5AB4 -5C79DB396533F41324A7FA3EFD402BE7DE12BAF3A84F5F7A40912BEB5B39C1D7A4C4D55F1009 -D35BCD04C668C708C323E6F82707641A06FB99A3F4B6EDA3162CC456175A8D67AE84CE2A4279 -64610DE2F024BF1DFCE2868E7BB89B679D762CCB76781CBBE8B2E16CCC5EFDC0E99ECE7B8B15 -64D689A7D439C2317C5895CE96F80FE6570CFA9DA2E7DD56048730B87E4E684757AAA7C90CF2 -F7CDCA38507330E98C13FC315BFB9B14F99E0D40A50B895843F7047A0259DBF839C6D760F88A -5AE91F03643126E5DBEF1BD037832EAC916F6A6F4794B8A29B29443AECF1F377EFA9D0D092CF -7874ACA4A69C1F1F45417311B8B9DF2A3FAF12B72CBD010A4B996A20EAA33A41E45754566D55 -190BD7C570A39F1135C4E90C60A5FEBB6020A7030812297D343B03BF9F51654924501DB8F96E -2EF5A24D3C3079244061DA6CC377B6CF4EA5DD6F67312865FBE65E03255FE24066D26A434F77 -EE56FF69FA1813486B62DCD580A44C2F6EC93A87D9E817ED4E031E49C47FDBDE2941C9C169B1 -210A8209DF9DE86A7330903F6DEEE08080D8CDF81E4C24954F57C0B3EFEB3B05B0BC82EB9680 -3F030C74856D9BE1A08AB318CB3CB63E55734B673E26C3B61939A7B3A537665B6A357B4B5BE3 -514410F5E17A8FF8C676FC9A6B90B4775BF0D93879A88C9B9006E1501538B3145424BC7A36BB -37B06AE1FC0D86037984C98FE1D32A2B6E5A9D61BA5877BCBDEA669A2710195B76BDB9FB06E1 -84655B5414259530785D4E00841052E11D00A0A5EBECF7531BC70C1DF8DAFF8671FCF8EF6085 -D59C2E24FA0B8F1AB618C6B4A810D121F67B4399572E969463D042FDFCE55C98C3FAD4377952 -B7912CA9F1772FF09CC0BB7393297DF033C1BCF503D685161340259CEEF54D2F40E408D52A40 -95741BA9BBA468DA2490CEE320A68EF8F8761816741426D11CBAB031F2DA0D1EC8DE51DF87EB -85D01571E27A52213376FB10A6076F9C8C8C9D2DCFF9FF07EBE82156E65A88EDF852D7FE1E05 -E7F5E025A711EC6B95B2B14466759C11CC4B4D9522AB11B176B8B54F5F249AD4086207415CE6 -47BCA93FACC0452E075BABEF0DB5401433287E1AE46843A923DAE16E400B46583A9316ADA612 -1C5FA38B3E94B297E6356ACD5C326AAC8D9CD84A6CA3A6FC25183EC936716215FA35B6547ACD -86D79EC7EBD318B3868F2A2236E891B962380967158E0224B1CAFEDB49A9BEAFA6BDCDD422E3 -5E664868E1157E1BCC9F01462B0E4642C372AFCF6EB41D3BA26EE819AB4F2865F9325C3E0C73 -81AA28D87B216C72F9E145281B180505A790F1674A626B072CCAFD8C2A62A3647DB9E580283A -035BE82709109B1BF4EAFD0811D793840CA5E5A83BBCC031899CFD07948919012814568A01F8 -388B845D68F211624882500256152ED0EEEE9F8162EA61146DDC38CF0EF6FFB3953D12A0A69E -FE43412F84757D9DCA053C79C33328DDF544FF03621060837D2CCBC67FBE98935090C615E9F8 -9A6D9A6DE90D57997B953885573E4F60EB9684FE7A58F6DCBFDD0D278FBDA98C1B3B2AB18CF9 -FCB0050AE13E193F904B748A9A23C305C5927ED55DC34E031E011BF659D00BE0FF6B27D9FAD2 -01E25879AF2E0CD4CA8C3198E1F5128F25BDA472CBC9D06A47CFBFCB85992DC08F05E3119411 -D5ECB2D58420742DD2A6A7120DCE6910BC90D7382E0D761E50B8EF48DCE63F3F4869263DB1BE -FCC2FBFFA8EE661B7852910A72B96EA58FF0943E25C1C0F6F3C0487AAE6D71DA4DFC5C351FD8 -F4CDEA999B4E52CECC23ECFE6A2E497A80422EDAF1126FFF088A769BEAC884F5AB336516E1A9 -1D6DA3F911571CBA9D369BA7FAF2CB8DBBA2E796E4924E0A40A6E9467324883CF5F721930E9A -5CCDDEEE519BE2A35457920843330B8779DC8B0E3805FA9B2B4A9371CCED5931158E6DA22A5F -FAB60F60D8F8E213B0EDCACEA82D14FF523A4E51BDEB2BFA5F040677BB1200D3E217AB15D221 -1FE696A37A333442B58E3FE0DE15F4C53060D1131DF6ADB1FFE4944884BFADD8A65474309E68 -0EC8309E00FCAA29AFD7072A65AD573D6347336C169626A07B2C08A10546B0EE9AC978DACE23 -1D99CBEC9435F0E79A1D5328B825A869FBD63EDBCBFA8641FEBE28148CB784E8E2849B63E300 -8720AB299EAB77CC0ECC85D6BBA07FB521495B74E59F9B46A7FFC18A7BA348D85641A8F31B99 -EEC1017B2D3E3363459C66E09091F91DD16E9FE254951FB710E4167050CEF1C140654A5C6F2A -8A5B1819B658A7B2B4D2B4F647908A607161173AAE9DFB3A5817DF44DFAC9D95E5796D73F747 -D45C571FFF40B43F48708CAECC302CBC2FFDCA3E3E4988DA66040B66E6239EE1637302B3B8CC -468E7F34422ECCE7C6691B54DA15C2204B6BDDE3424B65855862C21D417E6132BF110B26CAF9 -87F3AF7B7B63458EF2ED81149EF695080C2C3A549124209A71E164F25E885B998B7618D208C8 -DEFD0F35F22056DA71CDBA1FFEC267B91F990722024FFF526FE407A4F58D68F16EECFAB8AC93 -E1CC18BCF39F915D00BDE3AA737A657268B1C568D406E5146BA771DD041CD6C7C9F88C560D3E -99CD1F9F19764481343FD62F404BA59479029FFEDC7AD75E3D6E56214315B4AC126355D81475 -20E5ED816F9825FE42F1E9D56480119FD1FC93CA085DB9647C9DDFE59825932595DFA173EF09 -DB37C9A66E27332B63AA443353E37941A25CC952673FC90172C972B4C95F4C24A5412B255CBE -22D8DF49D6B5DAB47F711CF8855CBCDDDF7A6A5323017AA58CF92A013EB444B6F86A0BA2E1A0 -7FE636A74B085824B26BB6E7C2AED9055B7C2ADCF6F87C12D9CA999FCAC78F6F64E37DF92F1D -8AE3C09F0BF00CD30475CDC9A675BDBF05BB0E4ABD7267C06020CC90E673839C2F0A17BAB19B -493086CF13D3A040744E2D9C665898F8637DB96A56008D499525BD047DA50F99F6BD4558E9F1 -7FFB9DD1452646D5DE6AFCE7EE134434196BC99609C81C4A69FEC85AB20503DB2B41539B9271 -999C6E3A416DC50F7333505B5C4A1449E0D71C55D953A956F034F9B2976BE7CEEDAD3D0B0269 -6EB859C6EA61D3EAC2E204EBF5E0CC04F4FDDDE7D7D71369EBD62B307C0584A6EF2FB84FA95E -88DEA29E0041821CAAA681D651BECCD14EE8C588E6BE21C43E023C44A1A182FC4EDDA4A7A8A2 -C1EB9B56A1A7247BB5C9832AF09EF7E6EB461E4E1B1A959E8E3A42EFACC1ADD108A2F3082575 -1C8860C3B446DD783B4744C7EF6BCC7BA292A88A910A80DAE01C1D72D5995C1353383FB9BD37 -B8997D6CA3CC366BFF1A14E3A9C807D42F41440FEF039F7CCEC81F7BA561F40A7294AFC387C4 -96E793E2E563D963AAD72D1FD1733673D63D12A3F53E9A4C8A796ECC8ABA7DCF13BE49E7DB56 -255F89FEBFE4DB6E4F18B04B7942556DA419861936F406B7E135FE3C0F3C7154FB3F0E2D3DBB -60A95E7F63B2FF0F3A12B35B9C04DF8A3767D1179CA0128AC29E37F099464A732FDB455C83E3 -FCDFBE743024F82971EFD1C5FB1189B100E1228A1BF9D883BE6A74A60CF7982B834381C7FC8D -C1979273DAD753181178C7AADAD73B3FCE01F568FE4E7DE73088F59401E5B06F0E25CEE3BA90 -401FAA7F8C0382F980C1AD69207A9B6E33607537BFADB444C22E08249BB2867DA5DD4D7309C3 -02BD588E1DF020DCE77998DCE2F0764F208C8C247CEE6C5A872207BA0BDFB3282CE7F1475680 -ED0731240E31E89D1BE5DD962B87E7800E2401F5B2E7E8FE43EA25BA7B64179A9538053901A3 -30BAC40BD031E9D849688527C38F6303D8BEAC73D7DBAEC5FB3560371AD47A91D8C774FAB097 -B4C994C526452BBCD66C1B6EDEE6291EEC9B368FD74DB2F8AED80951C3F2188A7D44D8A71D3E -BEA3B33ADEF0562F833E1A115AC8DA1FE345CB13C2D502217FC5B102884C7819501242C01184 -F2376E8A6B0718DFAC4BE4F7DFCBEA9150C9C397E1D18E3C11A17D0CCFA063EC4513428F8129 -3F83274723C0B65FE702FBA603B0C208F196908D1AD7088D9F72886EFF0B437A9117440DB2C8 -F1B6A489A069DC74C4707206378E9A7B1AF26EAD4A0DB1304E3A6EB0592114EC5FDC72F7F3CF -E14AF010E62E435E173CA2D58B0B90287FC8A568704C986DC895A46CDD5CA12E6C3860722500 -693E1709636BB2B8963C9029D22DB02DD8FA225770CA2F8BA531E67A022AA6A6858A4951F1CD -DF5B225335134F35BDDA642816F0B47EE504C6A65FAD844854ADF2740C41F92BC9F2F4A20646 -543C57EFE1A479577CED011008D647785E719276D5BAA7D3548B739B2E36123EE1F9303EABF6 -7B0ED953ECE9A5DBB12B902D32CE73E5E60875546322567EB5901D888B2B95BE1E9DDF50683F -F74E65E0592A7EF21C2C3F4462F60F89281FA49BC711FCDB27E2E5BAEB9C034CC856738C7745 -15D9A8B0C38B5D6C4986B0D4D0C2D5A52476F5DF394B1212C8B3E6CB6B33900A05DACC73AB1C -391C2720746972EB65B8854259A9FE527E5AE1BEC133BA867F64BE960EAA0C10EDE91B46EED0 -E3476140052E57713E07AFEBEC1A6532C15F5209DB0449A548531BB863E84FC2A774F92544C0 -3B57BC5FB8FC908C755513ACBC8794AE0574E050CCFC591D37EF53FE33396451FC2EAD9C3F5E -E94F0EE6E79B6C544896C90F33E72A31EF0F621996D589E0E731D10D2BF6F5A78D10EEC345B5 -1F7439F922B9E281B6F0F0C3827A5593A86AFBB94FD2CD00FC203A49D30144CCC3A17DDB8515 -7A61BFFE4D9AE27B69250035FA8F9FEF3B091B357BE4682758B0486141229491B9831ACBFC91 -0E185ACFC1C7B9323BC169199EE982672EABC8903FF40F4A74962647DD35C0B762AB762A9F08 -626EC61935E8600B503A5AC47D8FF78147E37E276A5D0744FD95836878B382C8D25C5F3A9E74 -B819384B97D109FE7CE438872AAD26E359AAB9476A747876B77EA9FA541D424BFF8D132E1269 -F00D661AAF7F619F5D50EEB927198B794B05EFD3F0CD62FEB6F27F86DBE5A35EA9F44B0CFB1A -20FFFE98A5C7D2FB0A8AAD4B7B5CCE27E934DF67220CB0C071859E505A2E66370C106C7654BA -55A929B23C5CC1D3D37917B73954D3F960E701DF573DC0C5C31F25AC2061B5F0C35F4B6371AF -E40C32BBC9E7E9CD260D1E0DEEF69AB605E7602D3F217BB41A82D8206C9EE9AF1D0E787CDC43 -4F1A8A3BFE0100D9E1E508C2713D71DD8D7D322E9A57CEDB91CB76185C1FF53D6533D47B83D4 -ECE5F1DD1D5B6C282CD2B7284B7FF388A2F8FDC4A9CC45AEF1D294C84B0A7343DB1E7C2D16B4 -8902017EC5E3D555BC145DEB4A52FB055FD870E7E2C3428D641433A7FABA89A7FEE19FDA991D -2082ED49A931CFCCDC12BBE3D550D7B9F4A3E021A2B5F422F8C497E7E69C24373B473DEF4DF3 -D08023F0724C18A67C9C5221E7C9AAD23FA80129D2D2519D58C85AE7F3F87A4F089F98D9C80C -55A16492D73861CBD87D9008259A96CB98E8868BC693C5F630BF6D0137655036DECB36DB1E61 -A003DC972C240F006D5CA0A5329539488BB00ABAA1EA463D442268D981FA170D2A0FE1DFC3B4 -02F6412F42D4837893D2BFF7DA75278AD1178EAD958464FF278243670A8A984701BB9EDDBAD7 -EAB1DD0D5E3F474A8AD06F8C24A5C72EBFD51258623C90BD7AF6EAA8F4372EB427A36B1A0E85 -EB7211EFF59A2850DC00E2165124F31368BE56A4938C4777FE289D7381742DC20598B968D010 -3D90002326D1B648A647240FC0ADD70182A245034661935177E6A77C416DEB9D315CE0FECA7E -683AB726AB60505C6D0B379E53B1A29D111EFA7580737E513C367F4163023AE319C2C653002F -C18F54BAEE52B783F0A146B73BA6B4F3860120B531EE8F6E435BC873D408EEB3FA621EB89A51 -85624406D82CFC7C51F1BF29C5171F9802D5567681C3C64AFBF378098217EB21674E0B5384F5 -163D3B9350CF2D302342C29CF75B37E879CCA7F2EA5E1CF483EA2AEF92CDED14F6B8C85AB1CB -C1D6B9392C8BD0F77CF38AFC596D6B515DEFADE1F3C4A217739845AA9C4BA8AC402CD4B679DA -BF790137EA65A38F2F7AA02FEC12BEA3C18EEA41B544AEC323901ABEF30EF47626842799ECF5 -ABC493291ED7F499FCDD941A3A5B7BE4773B36B0E09C6A9B27FD836CB35999E70A1BDC4E7BFB -35431D4288B95B18030FF167B502849CD50EA5C584DF8CB79AB9BC1C6DC3FDA6F0A39400C9E5 -51E2FDCCF0E9F437FEF57132B5FCB1785BD2161C5BCDD00F8139D1E75C02DC8FB22A79CD1AC4 -C38E0B16D0A1A1D6026EA01693CE8A7328947CDD31B3A558B7D36456B151D9B88FD288A50178 -17515257BCD601D609074B426BBFFA6499677B121404FC00F7B8E4ADED93FF2357C70BA324E7 -25EE96F2485F31C5F7C679E9FB3D8D0E67A9FD131A42B25F71D822616B05B6D3D1D95ADF87BA -7E794BC83A2C98D778D43DE25F8EC6420D85A27FC6765436BE3DCFC5A42EE7177E00634A6D53 -50D94568D38EEA09D436F46153149802A6449AFA80B22533D0825D3A53B8A53D89E24E76A900 -EA9066AF006B757634811421F95C5E82A37D45E073A4477BC02FD8F63E32E543BCA7A16D7B74 -A99261E85929E58027311B2887A21F04323B7EE679C4DAED2B2D8012968763BB6BC52F4CF950 -BF65F0980BDDDC4EC617FD08495301F858463FBE4E05DD152B91B827C0835BC0F1313063E0CB -2DD8FE72D25E475C0D4F68BA0CEFC5F4D3AACD5AEFC57C829C65E69B740831F47C06BCF53195 -028C7C7617BF44BCA7491857137EBB361D0206E56D3FF6111A50C6DC0133197D01B4AB46976F -CA1A84DE7116966CB09832767C98FF65DD7A08DA2256610DC2D70D19B11A70947717E72847D4 -AA816E9787FB8077B95B4E67510DE712E3AEA6E7B9A6402C1FC8936D06418262BCD47D4CE790 -76EE68EB9D284162C917246267AFD0A82CC2DF27761C17E2C51DDD2D02FCCD81D9BC654636D2 -F4530BAB0055DC6AEF568EA985B6E346C2D126E7B61C64F8F2B307CAEEDC8DFF8E8458612050 -72743DACAF541C894954596EA694AEF7EE034E0CF0AC970C090D695560EBF50080731C182624 -27668359C937991A24BD76C068EE2DD2E5CDE9F5777396801678C51026B1738A49E62AA7F303 -C4810125E03F6EB91B6FE35CC5AB18F4C29102EAD08F97F9F451C4717E36123DD22D1B368FE4 -4C952D7DBDC4A87B46B149B90C69CC7B2B4C7D157890D3A01AED0C562214813DBAF0EC7FA854 -F39C2962A9CA7CC8FF40462814021D9C134639737728BAB4D85D52960B7F96497642A52E60F4 -594E062790F81BE500971903CC3E153AEDD3F9C034BB0F6D1609C06419E98092B27DF6BB3B04 -95567B204679D53EA2E113946A7ACC0E16F08DE22C2C4B0E3533E14F79140AA2FA812DDCDC68 -5ADEDEA3B43BC23AEC258E12EC0FAE0C0C55D8D63A054B4BC56CF72456989E25F7D20104D4A6 -4BF3C605CC0C096CE17CF926BEF15627159B44504346B4C7FA65A09FAAC281493B79F06D8D0C -C7BACCB0FBD6CBFA72A16A55DCCF96EE1249356E42B20C848BF1A3328614DA9A671D51585B1D -4C5F3A54E519FE35604D817E84D6B6CE9002DF7A78C761FABEA41F5FB842F919435DAC55CEED -1254599BD27BA4E8EE92F6CBBB9B68F314AA44CBC42D51DCFB2DE25DFF943F04280381C07218 -4C8E0A05E731651987713C15A844E92E9B901D741EDB4046635BF20C2CD7ABE0F37E4C590164 -9857B7CFE96DF5AAABF3E48C1DDFC62791A3923C1E16292DC94952E49E3E2D34BF708BE6CC30 -34DCF99D62126DFA93DDB447461CF1FDCBEBB367B0D58A8F75681B84B8B66D1B59AC7490F25C -140B2E09B07B166C13CDC9EA17640829F470A71703260CAA9873C58879C5EB7D701738A6E171 -D3C3ACDD4F30DE9E5CE78F3AEB8E48588EE5F9AEBFDC05FC8D3694D1296E455906FB20F184C0 -17BE259D5F61FC3C12354C6D26441D81308AA0D1520FF9B6FC82D1AC45402D00917C0FC3A695 -030E759ADD8703BC3410B69AA1286A5E2D828B674383C5C4B6D21F8A7EAEA7494BDD401963A0 -30673B82EAE211FFA48845C0A7FFCD0FB19F1E244CBCDE0DB01B194354B7EC3B65FDD0F2593D -8BB002651DAA01CFEFC40C38BDBC2E965A13E30BFC0D914551289C9D5126F4EB9FF0558F644F -2A1A71AD6FF7110BD31E063A80E4A97BA75E73823EEF7066BACD41EF6153180F4CAE8A93979E -A032123D9C2FDDE87506480770C625D9F84694894A72F7CDFC4A1E4417079D2DCF09A0E93D68 -13F6B6C1DF0C1BC7CF2613F007E1CA2A8927BE351FE46D6AD094BA68B496FBC4870DE965A54D -3A455F577F02005BB170E5B4718726A9BEEDDA9567F531DE852A51488596055732111DADAA6D -D2D4259AEF08B253FC2340AA359FC6A8E328B6C4C7B51590D26E47BA927B4300FB9D37CA7FAC -87C886AA9A0F87889A3B83621EB0ED14650120CE4CF2719F78A7B7060608E9073C544B7B9D79 -7C02000919B1995B448E978B167D716B413DC40E3E89655763D207D5C3B79BEABF76C607F28E -5C144B21DD81775B61BE1C3BE66E2CA332E8110953F9AF54004955D5479E8A33078E7ADC3235 -2CED5FB8F800DE8AC28A132260291CDA6632691B9BC95A668F9C1F32E21D5E2618B13299D318 -A428E67D7DA6A97BD8C6807C21B6AC08195FD818DC89066D12677A2A5E121B0E5D7176A1DA12 -C5F1A7DF6A7E76CBED11EBA49A4A058B74AD4C1931C3232B334033C75A58962AAD474622E62E -87DE9DF10A8E36139AFF126DB1641D3583ED4EA81F34521DEB060D0F1F3BB2AA343385914CE2 -B3833BDC4ACBA60F42E6A1B40E62F28252285EDB18C8747DDE0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 - -cleartomark -{restore}if - - -%%EndFont -%%BeginFont: CMSS10 -%!PS-AdobeFont-1.0: CMSS10 003.002 -%%Title: CMSS10 -%Version: 003.002 -%%CreationDate: Mon Jul 13 16:17:00 2009 -%%Creator: David M. Jones -%Copyright: Copyright (c) 1997, 2009 American Mathematical Society -%Copyright: (), with Reserved Font Name CMSS10. -% This Font Software is licensed under the SIL Open Font License, Version 1.1. -% This license is in the accompanying file OFL.txt, and is also -% available with a FAQ at: http://scripts.sil.org/OFL. -%%EndComments - -FontDirectory/CMSS10 known{/CMSS10 findfont dup/UniqueID known{dup -/UniqueID get 5000803 eq exch/FontType get 1 eq and}{pop false}ifelse -{save true}{false}ifelse}{false}ifelse -11 dict begin -/FontType 1 def -/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def -/FontName /CMSS10 def -/FontBBox {-61 -250 999 759 }readonly def -/UniqueID 5000803 def -/PaintType 0 def -/FontInfo 9 dict dup begin - /version (003.002) readonly def - /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMSS10.) readonly def - /FullName (CMSS10) readonly def - /FamilyName (Computer Modern) readonly def - /Weight (Medium) readonly def - /ItalicAngle 0 def - /isFixedPitch false def - /UnderlinePosition -100 def - /UnderlineThickness 50 def -end readonly def -/Encoding 256 array - 0 1 255 { 1 index exch /.notdef put} for -dup 0 /Gamma put -dup 1 /Delta put -dup 2 /Theta put -dup 3 /Lambda put -dup 4 /Xi put -dup 5 /Pi put -dup 6 /Sigma put -dup 7 /Upsilon put -dup 8 /Phi put -dup 9 /Psi put -dup 10 /Omega put -dup 11 /ff put -dup 12 /fi put -dup 13 /fl put -dup 14 /ffi put -dup 15 /ffl put -dup 16 /dotlessi put -dup 17 /dotlessj put -dup 18 /grave put -dup 19 /acute put -dup 20 /caron put -dup 21 /breve put -dup 22 /macron put -dup 23 /ring put -dup 24 /cedilla put -dup 25 /germandbls put -dup 26 /ae put -dup 27 /oe put -dup 28 /oslash put -dup 29 /AE put -dup 30 /OE put -dup 31 /Oslash put -dup 32 /suppress put -dup 33 /exclam put -dup 34 /quotedblright put -dup 35 /numbersign put -dup 36 /dollar put -dup 37 /percent put -dup 38 /ampersand put -dup 39 /quoteright put -dup 40 /parenleft put -dup 41 /parenright put -dup 42 /asterisk put -dup 43 /plus put -dup 44 /comma put -dup 45 /hyphen put -dup 46 /period put -dup 47 /slash put -dup 48 /zero put -dup 49 /one put -dup 50 /two put -dup 51 /three put -dup 52 /four put -dup 53 /five put -dup 54 /six put -dup 55 /seven put -dup 56 /eight put -dup 57 /nine put -dup 58 /colon put -dup 59 /semicolon put -dup 60 /exclamdown put -dup 61 /equal put -dup 62 /questiondown put -dup 63 /question put -dup 64 /at put -dup 65 /A put -dup 66 /B put -dup 67 /C put -dup 68 /D put -dup 69 /E put -dup 70 /F put -dup 71 /G put -dup 72 /H put -dup 73 /I put -dup 74 /J put -dup 75 /K put -dup 76 /L put -dup 77 /M put -dup 78 /N put -dup 79 /O put -dup 80 /P put -dup 81 /Q put -dup 82 /R put -dup 83 /S put -dup 84 /T put -dup 85 /U put -dup 86 /V put -dup 87 /W put -dup 88 /X put -dup 89 /Y put -dup 90 /Z put -dup 91 /bracketleft put -dup 92 /quotedblleft put -dup 93 /bracketright put -dup 94 /circumflex put -dup 95 /dotaccent put -dup 96 /quoteleft put -dup 97 /a put -dup 98 /b put -dup 99 /c put -dup 100 /d put -dup 101 /e put -dup 102 /f put -dup 103 /g put -dup 104 /h put -dup 105 /i put -dup 106 /j put -dup 107 /k put -dup 108 /l put -dup 109 /m put -dup 110 /n put -dup 111 /o put -dup 112 /p put -dup 113 /q put -dup 114 /r put -dup 115 /s put -dup 116 /t put -dup 117 /u put -dup 118 /v put -dup 119 /w put -dup 120 /x put -dup 121 /y put -dup 122 /z put -dup 123 /endash put -dup 124 /emdash put -dup 125 /hungarumlaut put -dup 126 /tilde put -dup 127 /dieresis put -dup 128 /suppress put -dup 160 /space put -dup 161 /Gamma put -dup 162 /Delta put -dup 163 /Theta put -dup 164 /Lambda put -dup 165 /Xi put -dup 166 /Pi put -dup 167 /Sigma put -dup 168 /Upsilon put -dup 169 /Phi put -dup 170 /Psi put -dup 171 /sfthyphen put -dup 172 /nbspace put -dup 173 /Omega put -dup 174 /ff put -dup 175 /fi put -dup 176 /fl put -dup 177 /ffi put -dup 178 /ffl put -dup 179 /dotlessi put -dup 180 /dotlessj put -dup 181 /grave put -dup 182 /acute put -dup 183 /caron put -dup 184 /breve put -dup 185 /macron put -dup 186 /ring put -dup 187 /cedilla put -dup 188 /germandbls put -dup 189 /ae put -dup 190 /oe put -dup 191 /oslash put -dup 192 /AE put -dup 193 /OE put -dup 194 /Oslash put -dup 195 /suppress put -dup 196 /dieresis put -readonly def -currentdict end -currentfile eexec - -D9D66F633B846AB284BCF8B0411B772DE5CD06DFE1BE899059C588357426D7A07B684C079A47 -D271426064AD18CB9750D8A986D1D67C1B2AEEF8CE785CC19C81DE96489F740045C5E342F02D -A1C9F9F3C167651E646F1A67CF379789E311EF91511D0F605B045B279357D6FC8537C233E7AE -E6A4FDBE73E75A39EB206D20A6F61021961B748D419EBEEB028B592124E174CA595C108E1272 -5B9875544955CFFD028B698EF742BC8C19F979E35B8E99CADDDDC89CC6C59733F2A24BC3AF36 -AD861319147A4A219ECB92D0D9F6228B51A97C295470093CA270C4488BB4EB864B4863941B97 -39638D2E6F3CC778582B46AEB4E466D89D1C211225274356A4BC90F3274C6AA56E200249B7D0 -949A3FD4185DCB3E5286910EFD7CA72D5D8E8052C96F388D12094B87D3705CE64459558CF024 -667C0FE96CBB32B0BC9E51037D7BD62BE4B05FF99384E71D78441A79B0B1DBA1CAE02434A9FA -E46596FB86B873B1670DAE0BAF516445A0DDC127F8FF3ADA0B10EC30A9CC1F7E9248828B5E8A -B46C3FE4154B80A54128A08777F5F9B8C519C7E3B632B3476F007FA156E9F39FBE57638B4214 -CD2BA79BA9DDA0F4C073AED814ABCCC2F7906C57A872C00E67FF03AC120029DAB92376422FA2 -1C67CA98BCEB8C431CA2D3EDDC16BDA59363F49614070AA6859105192CCC6E4911B0B5D0FBDE -04872D8C8D84FE6B68702FBFC4682186E03F2141CF8FC8E232542FF446E00D34A7B9B9271B07 -DEEED93C336653ED0F51DBA0DE34235097373CA4583095151642EEE76B6BA6714F37031F5AD2 -ECA4875FD02F65D47541F5245588F0CB5933A759342FC460ABF99E014A85CE3BFF948BC38F3D -29FAFBD205400093EBD129A9C3AF161E7365DEB2905074660FEC703B6D4733A66EC1E78A1FF3 -FA90863072C108109D4DFF62166EA04DD1E05225CD1B9A6808413402E9E1E81512B71BFD7811 -32923BA7B5DB7032E7AF65CAD135E8D3C0DDEFE960DECAC693166D83DB2A6D819E40024B40A1 -14818D7E943849FD90359B4BCC4FB0E2E0373A6200C13F194D735815ACC2E09BF4ABC693DE6E -975F0C27BAD1DCFE8D0A3977B48104EA6F85072BC0F5FD3E8FD8D53DBB088061BDB89249A4C3 -E6BDB4A5A0F469D9B53E9B35A4A03F558DC93B8870FD28A829735E1F25F455CEA1CC8DFB4088 -88DDBCECC050A84B6EBF39E42B4278F92E44C7A41FAA83CE07255B8CAA9F3EB43368900EEDEA -ADD836AEB6637EFF72351D649500FF3544DAB77FE191A5907B8E7C2AA4A9B18D857C63B2F412 -79FE6E241EB946D9A67B3908CF7146DE0D971192BF7908B3319E6C0B33995F4E54BACDA90406 -93EA19F24266FF8A46B93D6091337C2BBAACE6ED443A6A83EA4296E41E309192D66122FCF7A3 -7578C45859854CADF75A8299727CDC5868F365497886C518C001A3CD4C0A5ED589C3FE9C1426 -9A9DBE9A10FBD6B4B0BB6292975EF7210A6E4959DE1F3063A98393C63ED63D2EA31353ADC92A -C1B924678E81B509CD4470DBD22694E2EF36266270A78A350581C6AF9747D92BA0ED2019FFFB -DEAA908B373CA6A848512CD5A5607A8EF8771533539AE3D2F448FE1092CC640F699D73C6CB42 -1B56C630574A11B5F48DF7DDF4942C82FD5DCC9A5BF9585CB7715053059CF73503C1FBEF7F8F -45546039AE0F3BDDE1ADA78C2DB36040C20848ADB4144E71B38A447FFC4F7683664160273449 -12C9134FB30AD513BFB40008884FA98F1D25714121082696C877790A06A60BFFB6CFAEACF554 -53878DF4D972841D7D18E510D5E842416F023BA13A40696FA534DB3B0601F45B77FB1CECAD24 -0B8594CC95DF65BD45C1A73D2489D6AA84FD46414D992CDA7D307640017951656A3C736C73B1 -16EA9F0A3304EAFA312E46A5152E902D840108C2A1858A95B958055A8080B97D612BE59E2D24 -A5362EF77A83CD8656F8FB6519BDFB3CC43E068C8203BAE620255274AA281972A1EE85C37881 -8532B42368AAA93A0C984D7380AD57F1B8FFAAFECAD5EAC17A07DA742E272D3C809B157D2669 -AB88DA9EBB91B9E060DE7F275ADFE2FFEA18127969214795E7CD9C27CF902AD3EAD6C6AE0A4B -CDDAD88B6F37932BC7B07D9B43742A08A257DFB3FBB532077039C9CE90386F6C80BDED9CA008 -A7783B6F702DD00D9ECFE3AD9DB0704BBFF4CCBE0B3C75401337CFC1A37E008A09C95C4CE6CF -8AF556487D6B320F3B3A9D36623E85FF4119D9EAF24099C2E1D9860DD2187E8CDDF80C4F0B16 -4EC85E0B21901D017E0A20FBE2090DB90EEE5C9BD2EAD87725F7FF37FD8F43031494817603B8 -A7E69FEE78D14AC7A66F16800B4B7943B7AED95E9044282017A0FED40F053EBFCA7E292B6C4E -0C8DB47B054C91C9A1DE4A2741E5E7970AE431494BACF4AA487BCA0080D9A6A3FA3D0E77373F -2D40B300D8936C71D83B3332EE113D087B38E1852312C21ED29C688FFD05D07629D2A48AE9B7 -B6363AAFFC6CC5ABC96A996E478C37D745E5B6C90A006349A971C554C27F1D4F7AD1CFED3943 -15EE5C7E681D491213E010A328BF49C988D7E490BDEA5A86B0F2A8C845A01D84751E1C4BFDDD -19045AFDC1283279D7AA6A1FBFD539D3A0BEC325597E025A4DE112CBFDB439FE719E690F8DCB -EDA826D6546EDF93EDCB67F5AA78FD308CC94EB375BA5FD443083665C0E361462AE4EC541ECD -1891B6A7B41715FEBAAAB658FF924A171F4504E503CBC27912393C0F85DF4B276DB39A174CF9 -4B2D6FAC5E3E4F886B2C0D67DF8C502E1E513D934938831AAD911F3270A67FA434FD5E3D02E9 -655661BFC2BB9FE7460E6AE8CFACF6BF545C41C730AC58DBBCF9AC8532C9E85D9ECAC11D0F7C -55288962DB1EFD351B56BF6F2051C62377B95FF0C93A09966EE9C6B792126A6C7E9995F2D68E -20308347FAB463F5F2DB2E8675882CEF049EF0A6406E1647137D9A46734D6E909754E6670455 -2A41B3698B50417F2F3D4F883E3D3E6A75743820E689AE4818C297572E292B5761396825B38C -2E6D96ED290856AC6154C51FD90C3EE498E46295832503D76A22CDAC68B6B7ACB36BA3496422 -936F48E1569777229320718C45F71C0F857EE699FDD1526E4A23418681D41940E7E0FA2C551F -B8B79495719F34C3774B229DF858F51AA2E26094FC181BCAE64EE209EE131B9472D6A7EF6A13 -1EFB221E0F2CCC829A0D9672CEDACF44453400D15DDD34C4126F003A0E57455B25785E1CC9AB -4D4EE1A3BCCBEE149CDCC7EDE7B1F09DA1174F48048B568094F280F22590903F3B2C6A1A796E -851F71D34972F00FF13EB51F8136490C2BA6909B130CF3170820C652A1733BC4B69297BF1F5C -F816BCB75A0AC3520AC1DE911B72DEE5AD0033228B9F75961ED1280C6808ED0FD548411696C1 -CC747AEF91A41EF05215DB5720AADE50BC598749C67770515BFF6DBC5A940C07AB462AA29662 -1D7722C5A47AB3FA6305C55216216540098F86A1EE217C77EDC0BC3F6DFEC4AFA266019C20CA -AAEB381145B3588FAD0AAB944AD9F120DFF24168844BF92C279D1DF5923C9ACF10393655F33C -B9E7EB09A74BD898D07A31A107326EA219163FD6CA3E5A0985F74421F895F020D3D482444C50 -B428B364487B0FEF8717ABD8D2232B4D35EB256A3AE5C1B0D2AE331A1E1D4D5DBC7BACF361E5 -2719DA50620E5137E085481F632B861EFFF31AF04624D486130FB361F799FF5219E405C80DBF -B653CCB3C2E10934C95417A7E91DBE161727C5861A219A59470E6AF895C93AD43FAD820BB4C5 -8C13678AE33D18C3EF8DB36A7270CDB3BA2BDDAC02B0C93D29829DC2B9087F070FFB297464CB -F426545A65B869B2661F5B7B6575119DA27D715F0A42DF446901F0F2A632AF5614C9EC1FD2A6 -C79E676D80DACB9F2B89FC51333B4CA7CD98D8CE8B62959C86949E2CC2F530333C9A80879850 -481167A7DC78A8A76DDE664449367B44F711D88EC7028E92AA59EBBBF050573B52DC80B0FA65 -3E2EC9E5161C27DFCC86365648249518E72D8954BCBC439742A80ED68A7DAF601400AAB2899D -4851040C80A64C1E9D4C500F23ACEDC18C120C2E3D0001C37895247338EFA633428297ECE177 -1E26219BC93237DDF71A9CF08D47B323D03E904243D1E98DC596BD7E7677B7D91C06474CEEC2 -3C4DAF1B29029342D16121B3390C87DB04C65447C2515B12B9BCC3AB98B9EABD96361EDCEB53 -655A24E4845604C560D1120F90ED4456BC543E5916BD60C986482FB77BBE9060121FE1798C34 -A17A6AB350D85904106032A0A107649EEAD9B8F59E4CF5256B025440BB3713C2FA5638D6CEFB -788A39A5A5C51842A13AE24684EC59A6FAE55A64148FE73DFB3234F3912D21D68769C9470E3F -2DCEB860872E0556A5C72FB6FF7F7015D09B116FDFEC79EBF0544A0A989269B34475BF5E18B5 -A3111496FB39BD1B25468B6E5B2EDD1624C1AFD3401A8F2086CF3C9D366834BFF85115EDEAFC -A61D1343367A1F5441246000D9A585EDBE50D5B5CAB2455D58B855DA66180F8E1EAF8A2D1948 -DF1DA913C8F86F2C58365A77F4B867309629DC8A9237EF9EF4CA0515B2D1B7B7ED64589CD8D1 -96FC057EB96B392EDCC860C15FA2622A484D32D4E2AFEBAD06946CDDD7B7AACA6C0AA5A41B3B -CC91D459AB502137DC8C5032C3DC8E5D96D210F702FFA73794B639D0F9E7AE0D2134546FA903 -60B851782BACEE3C28CF7871D3F812CAF86221212D1D321A07B39A14CAE62F41DC83E7714F3E -315A7C63E2DCDCFB7F87DDA2BBC6CC6073839FC2F05C03077D8A0C9E7373849927450DF6DAF9 -4B27277349A60073C6979312CC0D5C81A89A058584982D449F1E993AE1EEF449F1AC7840BBA7 -AAFD999F622D0D1DD573326683C09082ED3564A9B28D29955F89ED47DD0EBC2ABE45B585D10E -85CECBE52F919EFDDD9630CF8F90CBF2F156EA791E0DBD178AFBB1AE3E72E08CB83F89606712 -1B671F63869EA022BA7D11BD63381E33860317F70941E782FDADC1224AD556467935E93C6379 -4E07F5AD57FDD0F6D859C82B562E80758E8A5C1EDD8FD2E37E34FA42E49098561E8E9696DF5A -62F1A27D6B1D0FBC9911A979C25E5A81181BAA04415306D755B890B60523E4A211D00CA64AA9 -0625CBF5ABE06EE227128114B07536D79841004AA4A1FA1612A78DCF0F03B121B2870FD3ECCF -2C034578F9A3F008DCDE1D8354625DE2A97D78E6F85782F829F79B3E286480B457680BE7758F -C50CDFC17E5EE5FB3276BEA977E933AB1BEEB1B27B2F3D164ED5B9AF1280C482ECC5952F608E -0AD0D1F6363637CFAAEF4F0FC7CAEDA1EFE35BB80C07E0E701633CCA557BD478B70652C4874F -4AF391481A982AE0AE8F0764EADD9316048CA985B570DDEFEDE6A64EA15A80BE9AA4709E4FA6 -DA9CC49B546955BFEF78320D67D14F120F47BF0C8568D337D6339CAC2FA9C51AF3EAB6AE46A4 -584A89BD235ADB26332DB72F5EA2EE4DFCFEF41726C92C2CE299D54EF8A582E766A2C20F429C -A48858A0D61716B9CDF7D67FFE5D7D6E72ACF982456C52D0986762485E2E111038EA4C67E118 -3A40249BBECEEF800CFF6CFABCB532465C496571541110DCEA197B20E1915F9CDB842444BF7C -C4A559262C89B487A99B92B7EF0087E6893DDBB5895C047D88FCEC1B29029368C65744591AC6 -83FE613D8582066B600035FA0EF7AD4236BF1A4632A7B9DCDAB2F9B8F6FA6C8E3248841AB3CE -22D3741DC40F29A61E2676DF55882F5F41DE8BDA16B6753D8D9EFC41D5C6AEEEE771F712188F -4C92641B7C891EDB3484DE68D56F58E5EF015B98490C17FE3020479384E19AF8AECD888F7180 -55B81A78B8B39FDAC88BDCCC0C1CD447A18F0F04BE83D2C6FC44B376E74752EA4ACF043812E4 -BF1313703F8A9898D8C175CF434C97CBBA18197EC3C5A7928844060723A18F19EC2B26AE7CF1 -C95E4D2FAD1A4F7F9DB3E4143B69B9E0DF94D313F41F045B19D8B71376A44E05A5B41F3DB38E -E63C24483DDE9F67A0102597DFC316A853C489B61A3CC7F1A1908E3C63FDFD4D20754A27D27E -5B17AFA895787DE85EB9F560EFDFE4EE3ACE1CD5222553A1A6B929665EF740E4B8724327B5A6 -FBA8C1142CA1FDDDE6DC085764FD4C519FA8742BEC0795773D0107E832A84B2A4AFF55102C14 -3B67CA605527E129975852C1F99B765E26371D7A47F328DE406D8710C0C7242D624DAE937EA7 -D01056999ECC3A938AA560090C43EE5087B0A0C66CD9186E9C711A2916B6266FD68FCF8F6378 -241A614E8D7A144F3D9B807850F98C4401049B469FAF5C3BECC8741D47CCD38332D2C399B40D -270B8B68FFACCD9405F619A897C865D3FA84DCE0F1FA9C54B9F8B9B574C9BA981A8F4D5F4FBD -A945D4DAA725DA6E1E24DA5E9803FD2769809AC972338812B14972D3DC6511903712CBFAF316 -1D557B671DFE13AA19A942FE564B1EBF441B06D7B7C739DBFD9C96FDABC13A2B7397CCF37EAD -E23ABD4521F69FDBC483411452285234F655AFCA9BAA73BD43E081ED281383B57BA48F6BB92F -810E2031A6E96810116432D402B6EBD9B7208CAAE4D7E40AE1D275E49DBD4867A1DB946A2F7E -6753035073F2AD5FB626921DA8E6A2C70502CBFF72067E45A1A5223FDEB1F4790BC4D1FCDE1A -FBA9F190765298D70C89645D8F39A9ACA1563B870950BF90C8976690A5CA41DB6CB5A6A9CDAF -969876ADE9D8249235A41B32BB1A0564C55A46351366D61C6CF716ADE7EBD8CDFA6B217F180D -3AB24D7CFF8B49992D3E2A37BAFF83F757E365397602FCD60D70C65F537DF26778F0A1E7C2BA -A3C2273FF88151EB2A6DC5C9AF099C7A728E95FBC50D889B416A864471EAB31050AF8C6C27A8 -EF177B3A686EDA6354FE931EB69ED9B39C7FB5ECBAF29F54CF5A09B36EB52D088226F1ECF75F -EC87BB35E00F89A9D6595584C9EDF98D2CD7735E9545EEFBAFC14F9474453BE920D964FE48BC -5D730D919105F890A84699149E36FEC03230E3643472DBBE1ED54BB4DBE53353A8AAAB4882F4 -EE901A2CD474FB1A5AE8E3DA026B721260093742D27A4823BEA13FA939B3D28F3D8F5BD8A229 -8007C0FC3B5A831F0E1294A9A8D7F224F188960994D967CF182F8FF283468CCAA2EFAF24F053 -FA68BD9B16EE0597DD573844EF2FC8BA518B7EBEF00FA4A5D282F27E133F2A976C29B8FABBE9 -5AFA8E82DE895CED761B0EC7E03DFE08BEF1F042BA8110E6218D065672D5B8EA61D140333D49 -804A1B41EB9600075B4BE636483FF2179A06DEA1427DAD8F2871DF3468108E12980D03EA5F12 -2A64CCB649DD800417F698DD1F38C55340CD07473B5D493BC6C68FDCF84E6FB9CA9AAD42FE80 -10193C391AD3CD97C3DF8BEB06A1B5EEDAB48C92BBABFBD7DA041F2C587EC96D555457B5A2D6 -FB52486E122B46B0F934B4D3AF86A1F537B108589C0798CD4B11573C1C25214C7118703D6A04 -3902C980ED303B63FF038D0FFCE3C73AF6441404C013501D8621C14CA3C2480E6C3ED0C64CAB -288817639F43BC26AED457100D0B2D4117911B9A34D9DF00D636A28CE4351BA69B04B108464F -0BEE3A3791F0EF03E3FCA00533A4C0749B922BB56525D632B4D56864566E29588907BE31659D -43EAD3269FBF0BDF7EAC69D636023144BAF8A49410FE55D995C926F90A2FCC6B2C5D13228390 -F92CC0CD581E9374C84B10BF5FF66FFA0459D9091374EEEE0645C7E93225359893C1E1020659 -26E0D6485E15E8D6F488950C4DE682A76F8DD650811E220D2ED6CCADCF65D46FA81247C52DA1 -5A39CC85C4B8B05937D9F3CB303F6CE7E0FAA58973474CF41ECC17BFC9DB2A957B1456491927 -803C274177A41AF5C04147E58B44ACEC2AC0BA966DA50A6318931ECB40B97152A6CD86F720C6 -366A7B8BA15AC4F03B0BF167AE6561779063F2C35A8AF47CB4C3AB05EEFC76F18BE8B54C5135 -396DE53F0025FDAE047DBE2CAD2CFFC87FB822EEB92CDFD745EDE31D47925D8D360916491CDA -2C40EF9561E94FA09BD0F0F01A5C69B961B2DCA57BDAE1EF3CB223E5BE042533CD81A31BC92A -46D84014B8887FD7388B0404214B6C5205D7B59E02D03AB22710938B33114DD5DD3C5FCEE281 -74F4A81959C7F2F52DC619649FAF3BC7D3F0867D1B8D78B9A9DE9DB68DFC774FBD896843C02A -91FD8CF44F18A407ABDF150C4220A12DCB47B390D11BC6D7C87ADA05274DFAFF33321965754E -BFF75B419BECF34BFCF41D02C7ED542D7EF045B32289A2AE66476610A3640FBD31ACEE4C5B9C -882916A12F81D6145E3354F4BE90491692973EB657B7833FE7845B0B200090B2530FC82FFBC9 -B873C27718E8597D6707D0F521A52BAB856F73DE4B0C345E902DC44DA6BC40E08883BE79FE20 -5F1C6C6DE2A230F1F4AFA78B27ED20C2D7A30F72987D86B494FECBAF1224F32B0E4E3CD18D72 -C35CCEDEF16C8D4D8DBBA8FD526B451498EAE762E2E5F3F0D68C40E221EFE2C211F55A5D1F1C -058602F2D9E7247FDB345E8350B8F483C8FE939C71CBF9C33E90BD7054741AF374367BECFF96 -94AE2F06973F46E8D6BE94D5DF4DF3FC4C46742AB152EABF469497D65B66C08056F90A5E1216 -83C1B0F91C00318EAB91191B962D67647228929A92FBEB7B5DD5CB67ECF5494A318728BCE386 -6CDC497A69D1151E8693DA446E98664776EBDB07D78CE919C5A36AF67BA04601C649AC46EA96 -8596096263885765CBA3CCE6D84260936E204F735DA45C84832C4AFD284ECF25B6240F0288C3 -4D806011E9B97ABF0B1CB5FDA87A272064690D7AD7AC2E23291325A17D6A9356A2968072C47C -3B4A24046F2F1B395AB3BEE6103523BE590AF5861B20E26105D9A975DC5053D8E9AFDFEA1BA7 -45EC2962E4B8337B554A7045868A257173ED0D30E8DF74B5E73280E403235E6835D4AF87FE74 -D7BA59343CB6D3F245E386377A9D0CE026F26BB682FE26B37A5666AA205307B31CA2AE48F1F1 -1B222928B021F5E0FE4C96ABA558CCB318EBD50CFFC961266A03AF844A34C0A2E0CEDF26EBFE -F866C5D27151547A672A1F8A69DFEA2DAE2EAF5159FB193A582CD1E5BDE153D3884B1EB62710 -0C804755418C41DF71AAE242171F23A70EB8F355C471B41BDCE5E967D5C2EB34998144B3E787 -41CCAF62014D43B256A0640A7D434A1EBAE35F302958E255B9429EEE4E599284AF035C5C9DB4 -466567F73192563402CF11B0D0BAB917DE7940EAC35B5303D2951157EC51245AA2E95770480B -F524F3AADADAF7AE3013B37AE98779EC353999A6C4839825CEFF16CEF91069BFE53E0DE044DF -67E8F40268A1C589B7F0F0227DF14904FA2D4D919A9B37D9DCA3A11A9ADA61E2CB6380FCED9D -10A6796D54ED5CF6A47CD0EF261495466898E7751029480B67F7B0156D8CF24237B66035D5AE -68183A212FC0B9E656F19E0FE3C575BD7813186AFDD68F3FC0C84702E27DCAE11081C5166FF1 -0A98B3E4C78572EB54277CD14E5EE6B6EAEA5A4E26175C5D0645FF66168961B77AC2747B5EBF -41BCCEB1026ED83CFB76E9D3E098D907476F514C50CE3A31777F553D01B24B9A3C3D99E77770 -7427537A22381847ADFCB0FF1C59EF46802901492DF48BB4AA39B3A303A729F4A1ADBB5120E8 -9BCA283B112E8B1860B4B841A40B239BCB123A14D09013E76EB13C6EDA2CB0E30C7B704D8A70 -F9D64953F996CBD6C68FF6215C8AD3445D85BBAFAF7E2025E74AF41A78FC043D48BB12BE7EFC -01DADF8DA245CADA98DF1D333C89FFBEE7C2DC49535405B8B909ABF623EAC6BBB03B0E523F1A -049A5F79F0DA053CA260B1ED4DD9F5EED6E5FD3DEA5E78F0F4756F591FF79BC444A5F77E1619 -9D32CBB78541804A16E58B13F6562F86B2E79436E133FE84A17D911E09EBDF9DFE9D191A36B8 -A08E06ABC5A95640671EC5ACCD584CB2E531A7A5962DAA95C9789F912771258C4F790D6B6ABC -02B7FB07FD785518D65D416D24853F38C4F4501A9ED97AAF85D78D53187948492349658C59BF -A558CFB1908B6FC193A77510403D8D45EA63FAA6155045AA5E3F719F77A9866FA7EFC0A611E8 -94162604DDEBBD76BFD42BFF5BE7B5E28AF6405DE1F57117D2D4C8EE81909DA5EA38E5D24B09 -C6AE688D1BC2694F117DFE6186254D2A8FD0B28E5DC478082FAE2A1FF621F085A08A5302C7E4 -4B1E3DCEF7A38961E795F2280ADC711683ABEE808C069615DF51374895ACCA9817AA6C1019E3 -E191852BB57BADD8734B5416E20508D39AAD1BE75B9F180CCB89C57B1EBA59714C75F73E2985 -3D3BA66953C4F171D853CF63EDF9C2346B2B6659593CFB247A6B065C8FCAB5BA2CF0CCA2CD9D -27C2EF7A03F98E12A95FD9CD70A98327BD12919E5C8E9D7826B2CDBAD1FADA59F217A7107EBD -8BB00DF92FFC36855B983DA2873C01156CAB9E30A6121A98DD70EBB003F7248D4E28F6B16C38 -2D044856947B57A35591B3701A4F44303826329C3AEB150A34C4E8CEE6245844A7206B455464 -0906A46BBE4885C8E3B4DF2159186399C1E7C94AD6E11EC7289FD8E6D290DC1B4182322FF01B -1040F4D93AAD363F1073D0E1400DBFEF980723C65CFAC454BFED2452CCB9CE3D962A77C2F570 -633A61188D97EADEF27D9EAE7E58EC34CAB3B0899B93BF6974E08D42383A79CDD58D1818CD0B -01239AAC8A9CD55666FB6BE037AA928F84C09129B1EABA3C4ED639F5155AEAA6800D614D8CA4 -F8AD732FF887A761D1C91E98FE8D29284D750077DA61E06170637035F1E26CB9CD6FF453720D -A913609451DD3EDBC343FC1873D2BAE003CEB1B37CD6FF6410CF4D7C8FB4DB71BC923193F846 -C699543D4E4152766591911CD216218B0BF355287C1B6D1FCADE5C133C3306603A56EE9E006B -4DF27FCA55040B6D5C51A1B4090FC045F2E433CF9879B1DAB4D6AA70CD70F666EA12C317911F -110F42C8DB7EA8C5D013B46AB1DEF6235560D41118509938A50CC2847C83AA6D27A8CD724054 -B0BEB27364E749344C5FC333935EC67F8F97850422F1981BDBD4F18D0ED03A73E8067283CC8B -EE76B614D09D4560BA836175F8873881EF2DF228391E4FD996D64E77B0B6D4797B84A43303EC -00B15DEDB6E2E6D6B65342F9D4C1CDDD3E2128DEE5D806B7A301AB2C1E7785E9915D316D488F -4801596D22E02B5AACFF3FC6C4F691E5565C05A98AE33BC18E5D28C9778080A0849F14EB0E7D -20338B22BA4CAF98FD2C5053B811571C7EA0B05AAB75BF148FD850A5598EA71FCE8A415FE0AB -80F44D275FD42DDF49A77D162ECB9E2DB082B893E063FC115718B3AEC7FF002767105757EA14 -2ED5F127EA899E0EA3F99B03DF6C58EC0E0F7809C81774BF8864CC28D7AA7555D4CDD68F6EFD -8CD8F226DF0766E805ACBB8E75023BB3B72F8682D4E1CE0CC7509690885D9E8175D37C410064 -A4562D9C4DCFF13FD6CE8A2AC512D6A4A516F946560CFA5DD380A276F97932A510126CD0B8DD -9C632FA24B200E44EDA18160793082C220C2DBD313A48CA5AD74C16495EF015E11F3F15BB870 -D112DD3F55E7E622223A3D2B21D2555B29B7EC845C52E8B99DA5483D11E611F9A6F0CBE21D0D -1769446A7AD493EA6563BB7A3CABA70BF5CBC0777831D330A16BF802AA8BBCAEA8A0F09CEF99 -D6CC32EB44176767571ECBB58617C8D3C81A74655A6D19B68D965BD8D746CB0A27656D60DF1C -E96C3776AF04B8FE399D5BC7098C0BAF707D534E20BDD862E013FE006EF4140E2744364871DE -0CBF5009CFEFAC8517177A43CC7ECA89A9076A44AC31F1608E6B3E6E43A9DE92DC7C284B878C -01B68BF2C4F840A9F2BF03B2FB3CE7072BFC65B4197A1E5D71DE54C8504793522591E0057B03 -2CC651DC68AE3A39E0416122A7543D7AD444C5470366B00637734A42F497C3BC22BE131E8ED9 -F0B8100D8ED25F409B5A642CE63F61E2695D945BA919A1E472DFEA411C29A298735FB491F162 -C54782E21A30A778162ABCA27A58D3939F04749E100B6036E7F654E1FCDEC53401A26F57849F -9F86A0DB812186DC3A513F2773DD3C0E4A1E75108A9F5FC9491788EAD5805ED094BA8C65CC59 -619DD70991A6C0CCF45F046D818FBA90295184219F13BDB389BA544583AB4F07CF3D03CBA7BC -67F3914ADF6106085AEE88DED29685BF4A295FD7CB7D86D5BA89D8A9821340E10287354AE3B7 -19169E4D647FE86312D99D589DF0244CD985EDF7EA59D36AF3211FDC73EC1DF781A8D09EBD2F -603978BD8DBF5B08AF002E5D2991698890987AD6A9292428B9368284115D7AB640136EDFD8F0 -DADC4B943F65D84E8BB5E34DDCE1DF39B36E9A02EEE6DBFDCF94E2344CBF760B771842142920 -D8D7F6DEBE6A4B3B4C92FC9BA86F9F4F16FA0F6D8304177BD9FBAF2AA598EDD8F7E8ACC928F0 -BDB6540E7EB3B2ED049CB82C44DD97E48A3B77E53051AFA6F47AB4C44F8B96EDBF5F694A84E7 -913514A268699A3026D7472BC3D9BA5078CC31F0E3F04B960FD7C1D962553EBC7BA67447CE94 -54FB7293D59DF32D963C726B7F9D8E39C7A583ACEFAC2D97B5786841C1F9A60C7CC25281EAB9 -AE14EDF3EFEFDB3FCC11762006BA4603ACEBDD4CD016754DED32C33F9470411FE2823B329C0D -13E1DCE7A86572CF8D8605B0CD2BDB4AED45585D556BC5386F8DEFADD760577DAB8EE0526578 -8B73705274647473135729E80F838781DCC07BEF8135129EA37786123FA9616ED95F37164A83 -5B78EFD5F86B94366226CC8AB09D698C011E0312E1DA79277F1B61F1D419E854E23E5257D9D4 -7FA1ED75E3331236858032285E664323FBA61AE8ABB1FF7317177A7D760D995B3B90007498A0 -C36F0AADFC8D56DF52AFE8FE9C5E01CA1928CCE393270723464DB6DBB78DB6DB61D3F278D9C6 -5F45BF18F4DE6D5319D02FC196B58D0F6DC42C8D36CF5E73F908E1639F4D946FBD5717403B45 -344DB9AD9449125E001B17A8D8E76AD103AAD9BCF45F88A6F08D531D1359333979FE987D3409 -582347305CCF310FEFD9E099139D834D8F9B55CBBB767A17B4AE22043C9535B4027A33035A71 -CDBA3C3F9AEBD0078777D06EABB05D966C62E980BC037618ADABDABA4F7E24A322446E2EBE34 -A61EC4DE0D544DCDD2E5628526E1260743BCAF0141E9776237C8AFE2EFE78ADE8C1E53712A35 -BC1EB86CF2E87998DE940AA73B485675ABE312EEC242A7727CDF69986D79485AEC7B63B1A633 -A7F71D7E64B86606704564AF1285DA04514C4021A9E17BB256289C5902C155BFA0396039FD32 -2890431EA06A4C4DFABC3346CA320D944639F86EC181FBD94A4A14E910EF87D347AB862CFCBE -62695EA4F0D61210E0021D63C0FB4EFFC287278C679AD81F289FFD7B773129CCD21893D562A0 -EBCDD0227BD8870608A7B46064F9FF1873F31FF0A99CC2FDD5A7FFE53BA20010C9AC80CC609F -8DD539A2D05633BAEFF230EAEDD5DBA21733D85B19B785D937A31BD62D65AF429816B355FBCF -BC088E3465E2702EACCC5EF7AB85FB9A5E6B658723D136211E22CF5895C380EA200E219F587E -C1E380F35BE4A26DB6B0465785588AE21F7426F17A3FBB3BE7D53989B7C5EC4D06643F64BC9D -EC9C696733A978CC2E7326F39F1167BD2932A5244CFEE158CB142B4B39C0D4427FFB1CCE73F2 -960691246D33ECF6A73A7B200A9EB14DE1ED8BBC7A16F9FA82E1380144B4526731EB57144CA7 -EB79DBFAA3F07453A8D14E38B5369CB54F07E92495B5B45948035CA7A0C149E1F9154A0A08A8 -948098B336BF7BE626C7E5A4B6E844892AD3375BF4BA1E8BAC0530B9F8F47D60BB312D808C22 -FC3277BED85B781153D1D9EA3DDE5ED8F75BDDE696E64ABC6735A77DBB82AA6AA09BF534D048 -34ED3E7D5793878F0CB4EACE362B27CD54B5E5B61A60104698E9BC23BD85CED4365A3C9DCA01 -422CA61306E0CD24472346D9682B8AB71E63998B276F3E411FE94C0A0343CD58A8DC947C8AA6 -2BDA2F31C19C32F2EDF81FA41FE6F96A1A61446BB2C3C4935947E19CF12F46D6CA9913832F24 -ABE1246DA8976DD15EC80598F0DB346BBD1C71B2E1895B940123E01D7DE68E410BA561FE4063 -221DFF0662587950A8D77FABF72891517E689C6DCFB175B8086E99AF8FE012A2E98623B6B2A0 -3C51176DACEFE1966C41E28D9E337106A38388811709A45EB20ED35AE81A907E3751452C506E -53521DC536A0449F0D0D02B95B517DDDD4217D09749A46AA4A74BE19F45CD49A67EAFF78E634 -9B9460C9B0312643CEC1D2D9D3384DD97B5AFB8A59C977811C31E90631D8A3CD05D4DF47C1FD -D36CC3B7B44EBDE8A59FEBA3D03A96CBF24A4B9DA9BBE01D0385CC0D5A26CB3776437E4DEB4B -794BD87001DCA80FCA385053A5FA36C79D9DDA61711CB49F6E4830B8D26B52E9619F91B76450 -F23C626D113EC79899621EDF3768B2727910B5CA8BA389FABEBC3889971A33EA90BE8C774E5F -53A752866E5FEF4132950679B73F3DC66517C84CD48950E95F0B13DFAED5B90240EB7A365744 -D3C0B1BFA466C0826FEC4F3B5784A773FC96CF0CD1FA9C742876CE8CC02A64F11178A9750F6C -95CD0DAC92DFF410ACEB642D2591D32F7B8CA0927AFFF9C4102ECC32646CE2EC6BE93930688E -A3C6A7529DF32A9C533ABD2723F0E285C59BBB5B10E223B03C5FBE70D16D5AEA91EAE342263C -D859A78CE283958619B8F3576CD7258B5B00518A8AE14F053B53E38477DABDA28AC578D96017 -59A6F0B5BF03ED02E8D0BCC55FEA842AC24F1A7576A40B3A7F3D2F136977A51D2D2838EDB5B0 -E7EC2CED4C94299EE4EBE9CEC792BB9D397BF4405D8FE12CBCC53D336A1A44F8BCA85FAEB20D -6C7AC1F3F77A3E23557ECA5DB8DB03BFCDD32E59074ABC3CE1E7707BF74D8A780E3AAD5476B6 -5A67568A6C5F4275322F55F9CC444C27AF4AE577C104F9FA8E7F7026824744364BE119E3369F -45AFD618F97703151652D9E6E65EF68D4E29E72FBF0268B764F6C9F9A7AF482402964AB72AD1 -D6A2EFFFCE4B08FCDF974542E263B3608A04EAD1565FD6031B3C825C4DF14D6A3474A3775F9C -AEE8E836D850CC3AEC0D368820CC2DC145C62EAFFC8A727BC75FE49A4DF62E25DAA64DEFB21C -E54F63448EE2F68A95A421FE46A7866355E112809175A64C89E4B9A6F0CE3BFDB923AF924012 -85BB18A0A3503550E0420021984E287ACBDDD36F3193D89CB11ADC9EC6B0FB1290CFD2E43AAF -A730E8E2000E493F9085D674E221838FD61F189A94E3ED97D5FE5A1CE75DF593E32F92EC11C6 -A6FF5E6287E8B6E764ABDDD2F389B4A3C8B8863A9AD93CCB2327F5C6A0160441E988AB871C05 -22AFC9959573FFC64EC4A4CFD99E7666B0BA59A831B433DC168AB127204C721F6F21A2987BA8 -BB2B1C0D3FFED78BCEA187201807F76F03F8F49A45453A1081F759630B5E4CE61B483F0CEDE7 -D399847D33DB3C62267F04147DD4FCD3BB59D01CD4D6748D4F95B0AC1B1DDC760400EF68CC45 -AF63B35B9A077D8C6024BB61249DFDDC8821C35ABC6DD9CE6FCD11641BC4FC6E8E6481A2EC39 -E5E67A80E1536C75139FD26AD231CBEA2B5AF87FE9CC2E38625EE58E39BA272EA2FC426DFB4D -DEA2BB3131089BCCCD9E6F2CCA00C24B85236136D63F3AD1E7746A56B483FF33A97D54E9EB5D -2927290BF68A99A038ED2E06EB91571606FB6DB8AA849FC4A56941E6526D7B0FC7DAEF85F008 -DB36CF5819B0404633216FEE831E5EEF1884547FB8E7CF1B9AA1EAAD3D8F7519C23A41A9363A -A58E55FB50ED21D88B1D3565141AF722252B98AAC5E8194110F5C51022671AFD94FBC1044540 -FCDFBE74CACF37271542E119940EA52F3D110D2AA0BAD64F015550D27FBE011BFA00214D1756 -3509FD8CF664A90E930A3DCCFCD5AB6C23247CE91C6683E5C398466A1EA8C494DC05C48F3CA0 -E05800059B936A4F3E9E694D6D56493598D30B9CA870B03A3E8CE72B6421AD14F7CA7B2D8E5B -06E25399C83820249868586960A68A58192B5A92F2BF24BB352B9EA935DF830AD59EAC872468 -AD73736164BFF2336B9E26655F8E0C60307E30C8A81539604063B6AA28FE29E015286BAB9FFE -332A98B3CECF0D87828D4C67608BE3205A1DA03795B7DFEF36B6CE0D7C9DF211838E64332341 -0FC9D5BA83FA9A4659F2F565FEF47269A480726F83BB41FAA40E2094216E1568E16021D80AB5 -D07DC7BA243975A51420EBBC9B116710F4B18312D742E73FB9897EDC3D0DFE74FF8A92F23F33 -DC2F0A5A80A9560648079CF9334164333E91613EA15EC782120DB5934533D62AA6EFC2DE5F2E -14D69F732A6C9D2C55F03A3708DBBEA5A1C0BD42B2177139FBAEE1662204F515122349C2D902 -70FBF8F0BED7784FB8B347918C4920C7F3E31D514B5C69E796DDF90F44A260EFCE887F3E9CB2 -9885BD4E41AFD71E2C7318F6E7FF54D1784AB51467E13CE9642C145E4DFF31729E25E25A0C30 -CD26AA4511F5D66A71AD6A8912F2E3CC6CC3EF5033877313FF55728CA16CCA6B27975BE65E5C -DBDFB2060E5E50FFCB82D2486DFF9576222C490331D9411E890CE5EF1EED2962AB99935471F1 -D50508F0A5D777DF78A55503FAC53EE26F6BCC473919FA5C9924056F33EC16D30F3E9D80B93D -BA531E21063A2C7A94A5F35ADD907AA57E6FFE0141C26538521C59F40B6C93606790BF673A2B -323D5F42D880A1F0B628B6554BB3D7A4A0203D1C0CDEFD30D97739DAF2F6B1C50EDE48B32004 -072B5DC8895CC70219DCBD137C3511A31612382A58AEDDE833B9208781B366329E2AA5CC0651 -B3ACEEE7CE16B87BD783C2C06998DF71D6A8A945227F7790C4AC24D91628DB5FE3ADA9006D1A -06FB6500A0131F74585FD1A274DB449B0E28D762CB66BDD8A82B35683D5969A0561F6D2B2056 -C78016CC0940048177EF464E4F2346C24078CD1643E80C4DB76BEE8D16B99CD99189C3889C53 -0644D7803FC0FCBE6548410923EA43913D12A2245AEEE3B1740E451D6EAD8C558F08D9B23880 -41BE6F6CA55F6B51B5C2C86C35CADE0A2D4A2A8A22512ACE44C54F35071CA9AE5D9D40DF61ED -23E5630E58B76D2E3CC19BF2C5D0A0310AC9DEE6F72DA37DA59D3AC2959FC02FB081A5D369D9 -53657CDE864561F6A6EC5A2F465EF5609E6A0090A1D7F2C971EA519ABDFF1FD359A60AE11955 -72463B8667DD5D7D7883D472644BAA3A60C7EDC2EB7D3F638847E5B025DB1B8D6D0A99FDAF96 -5D448314789191CDFDE21259DDC338F1222C9943B3721DFA91E1206F42728A6EBF0BF10D0129 -9C451C585D16B6C6E4459F9232DEAC5BFA3EE03AB06C525066FA4E18BB7FAF9DD3188E3A8456 -128720A714EEB7EA8BB8B9C0D5D6A1557D41D730C8C3453C794C85579DEF3820E17538F05183 -5199773711512FBA3B569951E3C228B9B67DD03EBC5DF7B92DB2EFC3A8AD53E121AD0C01245F -A27FC0192D500D41ACFF736B18A7FDA1164552AE036D3093F5E2B64285AC767D66102DDBBAD4 -A54538B681BFF91B308ADD36F957D180929A85BF655BEC856EDCA932E2178DAAE61D152E2B89 -A9DB99A2F809D7C7A99915E013EE392D5A129556040345A034A4A539E7EE2F92925546D047F2 -BB2767BEA86AE9D820DE480B19A402408B14DDB89A19A66536215DE97F4706CAA24E468EE951 -4CCF4BEA6689630E8FD9985AC1FEC5AEAEBDE842DEE007E0F69B3E094F1133FEE3CD76FD6D2F -530C7214BDBEA7580CAFC42D4B6C44CF601C23C89E9B2008893148BA91D9E3B4BDFC3086D1A7 -4CB4E7A7CDB7F0B17AB856AE8D563F79686F3E9C4418D105F68044A3B009EEAC5A7A35C6D149 -ECA6AD46C08D9F046F2D42E51509AAC12A997AD2C930D4D754B78DEE6976FE32B507F4CABEC5 -FA862105B60FF8C8B7E0352D22FF02781A695DBD7EAF18197926E17CD64014AF3AE457687A60 -5E3F89419F0A1398E3B7FEEE48833D4F41CFE8C4507A6758C117EC9634E7FD2DD86FAE562BBE -E894475CAD4A0DADC31F1E8CEA55F475B87059684FE70A0DD9C1EF31B8EA155D62C21E986811 -6802E59641FBE66A2EBC6B222229FA0A2181BAE46632BD98A71061EE9E553A326AD49F99CAEC -1A1BC3B69894FA2008D47A4BF5FBFA57021785B5750AFEB5EBE2D73FA6ACF8B440AECC02BA90 -231281739F1AC2EFCF711A9775B05477EE64F6DD0CB32ACD6D910CBA798BAC8F0CC238DDC0D7 -ED38C963C47AC4ED8514928ABB812FB2BA4575EF6A6CBFCD0E49EA36B3B613639DF49CE11C35 -5064314ED11E61FBD7C464656E810C1F79DA152E09F1121F8874E32BBA2A3A1273B8D9622A3D -E1A7E9E0B7DEC5798399716213E68C7371B89CD16F21BAF946795C131C15723B7B8923ECC808 -02DD4D7E3CB8275B632E0D4B1645126C6512AE71C29B677E9ABD97DB87B443724FBAE9B3941A -BCF24C2BE82648F96F67691618D0F57A8B83B210563C3D08DCF157622F4975AD71710B43A924 -2DAB592EEF2EC40DE98F78B8FA5767A4786C9020D6B309C90B90D340EC1EEE360B10EA328907 -7345863BAD9D57DE493A4C404641CD0AB77440B877C9A4AA8A71DAF68E2F83882114A263F8E3 -F856A44965744053108CA967DE7EC7A347EA99D2C67B261B348EB14688B293DA4EF834689866 -747ADAC3AFA6E45D6E9AE1E66128D29927FEB431CE480B3B8111851047BC261372EC3F745E86 -CE41E4E18F94A7F303A504F938D7A48ECED8B19E63855AB3D6A866FE6DDB566EF5A4757F7DE6 -C479C3F78AA41E5E9CDFBB6BD1A792C55955E1D06531592800CB7AE6DE273E007184F61F7489 -553A4B8E70D393AA2669269340DDF00319A7F815BFE5D31AF121ABCA626588B8B30D98963120 -C35A0EADFF175C1ED1EAAD24C5BCCCC0777C1054DE03C0CAF3859AC251D14776EA1FF38CAD40 -B80A5F7A5781B26BF9219EF450558E8F812997CB905D5CE6EC8A2B6B118100397235A0B37D22 -9CD31D5E142AAA1DB5A655B399A3991B57F01379A04FC46F864DD9F461947B9B37D21481BB42 -DF57DF8369C6EB129E69C827124CFD253B65E0708986C21884FE96E5E9F82615945972164EA3 -85A96AFB21C08FDC5972621B6069BD012B2463C921FC91C83137157DBC032A507C7A3868A921 -3E3BC2936F9E3DAC2E4065A6B215BC0EB3205B4DD72AC548073849DC4411A90DBC78E742C3ED -A59153C4D7C426F01B988B81BAD88EC25CC04BABE939C8C48541A90C09B3289C3B6C545283CC -2A1F65DA210CA2E3BCEE7255EC71664D83A81B6FA6EFE6AABE7F58F5190031350140EAA48E4D -2C9F09A4D4907892C79408CE801E08E085A05E101935B41B7FC5C3B644CE4BE12942BDB46230 -20C4B975154D084F1A99321FB6498F58A3C87AC15ED9D1A4F7C86C5643D32FE5126D8CF1B9B9 -A6C220B6FBB268ED3F71494D4B498407B23EB057B627F7DD790DCB7E5E28B9734F82EA1D6F6C -9FFDA609F45A35774645B62CC94D237B505B56801FEE39A92DE3F30940B90C15BB537AAE9584 -9A250AB04FD3C13614782FBD7D61A7D00DF1F29859E9E9AEAC9A780F4822516D16712EFDB3CC -2706E706C1665CDA16C8FF778C8399FD35E0FE10AC360EE290BCD8A13B66A3284EB718886E4F -F6A954482DAFBC8B85F75FEA9F99A3E011E734E77708C1DC5904F0CBD1C9A64C17ABAED68148 -722070BA45AA98B0F7DDE929D140A2F1BBD3D1A3946F225390AA88EE6CF66B4C7651356CDDC3 -A0F1534F53CDFB5E0D5BC58F462220026A57015ED6CB025FF010E7B1133BB98D74B1D292B0BD -060B3491EC667BD7A41ECC73B42CD734030486E7FB15D51D4F391320CBA0E81C17A09247C050 -46C1AECFFC52B1AB48F0183BFB8C68C38CC16FC248E35F2C7717B6AF7C973CFBA95C51EB255D -55B10715AA96874D0E9C56132600823A6293062289BF630090AFD344BB22997EEFF22BC174E5 -38B5ED04A2BD3DE4C103FC54ABD92968B4760E25CE0A4879E045FCDD68841DAEFD9633FF7F16 -8D109610211A37ECBF8618F0DA8E5236A344606CC5FD72E9A92ED572ABA88FF3D16EDEA353CB -EB7667BFE029A7EB3D0042E3D8ED6F50AE60AFDE1A6E6F654564FB38C6CC51703D26C7491AF6 -5AA482FD47C1AB36EE9BA762FA9E79437A1A7AEF10CCDADE701B36600FB86D3CAC143A966CA9 -BAA9A28B9A2982A0965E202E034E6137F88ACBDE091A255512B238ACD19E72E0213228DE2914 -D81419DBF54772D12224B45A08E073F1714BFEAA527B541770AAA59C495BDA2E8E157399860D -C97B67511F8312BE143791B87DDFEC528EF1F1A07FC214E0DF12F8192474AB4B910BD2B61080 -1B9F9EBE54F09F53B087A3E528A9943284AAE0C2FB9EE0F951E304FC78EF85C0B5C6E07C4496 -3D99A768C7EB57A1D87266708AF9A6AB5A4748F91763CEE8ED10226051D066B49EA4F465BBD8 -13C3E86A4465628898FAE6DAF369032A0BDC08509C45719CE08C0E8110062F1F55446E32F1D4 -4D9C2713B4752222214537C7033E987CEC7D9F8802217DA63458640B386DE4E3583C45B98125 -45C5F1F6B16DABFA818208292949008797AB1C64AC5E79BB1187140F0F834910237A70E411C2 -E5E0FE7E952F9BD8F88393051EADD46FF165FE342BBC5D82B5FB5A5A454BEFF9AF80484FAB25 -DE886DE205C2BE579CB058308114A707F87ACA69D0EC7FFB59DD97638AB55E152ED530D715CE -B9D41E97DC36677990F3A9FB6C8B4CE4CE5A22C8DEC983AC2EBEC8F846A56D5C85FC4E4E40F3 -2D105A25BB4CE66477A19D2651E617BC8D00534DC7F2F69873047602C5CF994D83082FD994CD -BFA19165D22C223447C0E05B8F5F13859DAB3278CE800CB3A2B11C3FB99617C927697EB1A90F -9FED22A08F8D47F10800B8E7D463567F532CEE2D8976F78591E08FCD17FCEB209A25A6806C00 -E4F510F60C3475A4185DFCB22DDD3A9544406FF614AA09139DF7B015C42DBD29CDAAB8AF5E50 -0708EB052AD66833DBDAE1A6B9FD91036080C9C93BCC12EC8D858D8D0E2C05CEA002648DC557 -31AC9AE4E0F68BFFC1CA2A70CB364894721428AB61075005AE410A5EC8E817BF4FDC2FD998E4 -05A987C4C442F63AEA1B1E13C608AA764BDB513F6EBF7F6F6077679F16575C91CD3A35A184E6 -F40CDA9D43DC663D9F8F9EF76C85C2F33647CF6277C3809B4C82B0C52892D67F6A48D340CDBD -313181C1452E3D996651A3C71B68D049978C6049BF409E50047B7F387234FDEB104D2A60B76B -5DCE3A3B05BECF2589CF836530F60D57253B8789043F4E90944844997BABF0B2D1888560ECF3 -07C127B8CBCE6DE435C3F555B02A146BAB58DC09399BC05C5E2D84F774E545A78FC30C740343 -2CC1044B91A09DDB93BB1E8D714087D03F2CB45B38DA357F0E30D9AB91D13F6552695F80945C -270D5A31A81B24AD8FC8A6F63BE77AD772F948F4FCF4B434ADC47C6CD3E44E0B7C36609B48AE -D9550F5030BBD886A60FB27920221159B358672456C334757C313A69AB307BDE7E43D55ACA0E -2E4FDB09D9DBEA28B97E77C91CA8E63E1876D55616638A533930D4FF67A04277EE7EEE0B67F7 -0C93CDF1B51A1B895B614726DD46E1622DCF65586ED82C69552165B861FBD32895112358C976 -68E07373141981B3288B9DD246A58968AF8AF84B24D370135E63BD991E098DE1D9DD5C1C521A -9588CADBAAC0E1F36ED2F1EACB243D13DF64244FEB2E3CABC925D9CB087849E36ED7E76CF0CC -71F895DD4F2684E3ED31B46B57CC1CF025AD31B4616FCFE577CC0A7A5C97F2B6527E60D1D78B -512A44496ECBE2DC0409E960BF1D99693DEE15E31B6AF118F88C7533889766F1EDD02C1FDF0C -1884CA7C228CFF507867AFDC741B6381ED2DD74B05C8F9C0ADDC376E224E02317CEDEEC91478 -D4D8330D96CD8F687E69A77BC7C55224D02A31E1F5B4F32CFFA9F9DAE2A0EEAE4FEC0B1196BA -A339EF921DC176876B6C816CC90A8B1403D636DF1F6BA0D2E7ED763EED28EE06240AD2345AE2 -C1DB6A5C8B3877E9246FE8415281B9EC359737AFAEC4F017DC915DD3DC3FD474D3948549355B -2CDAF685DC38099972E4F56FF10201E749E429AD25E6EEFB5D2439B834D0B1F0C77B57DA17D0 -7908B5FF583155970F0FC40094233ABB3AA521C7DE481E5DA31E7C32040EAFC5D782EFB9781A -6817A6C48CCC8464BB926F44E05EF3CC24EE33BC63E5CE347A8AEE2E21923FE86965A3EF71ED -B22B3478948CA691713411ADFD2D86B10866B9DD64A02FEAAFCC9E08937F5B8356184088CB97 -75FBBEF1DD97FC0E8550492074F65D0EBB40A622CE26419F7BD5EAAF3491354C242CCB71650D -89A5269BFDBDE85757887423269A4466DA6688D1773854E8F75EAF51B61447B4D4AD31E7B1B9 -DEAF0D5C52BB3386F2696ABCD3766A40780CBE0D6E820C9304F6C6DBFB9195529B0A57CE5C3C -3470761ED9D4B49B6D1F8C306B9F85E48377BAFEE44A147309654D4707969968A53637409CF6 -5587419C70AA921934F061D6950213A12128E9C5C6F4F635B11396175B745732A719CE6E91D0 -1DE8671C305CE87D0DB08008F303A507B08B9E9C8ECECB4FF5089DD0B3977BEE4F07CD581D98 -5C07C45C5ADDF0821009F5687455997388BAB58529ED9177173F413FBAADB5AF88AD94B5557D -10378BC1680F897EC94BE9843D1725C636C4152744B17F81E745750FD8F158D501F0E7422F29 -7ACA3D3C9C7B7585D82F82336AA8D2049C73635681A25CDBA63C82D1049B30137EA1D86421A3 -3DB1D92D21C5C094F389AEEA60E4098D5CF3172E4CE35DCFA497EF92C1ABC25B8FAF124F457F -81156C9203D83D6DC396E29EA5CB2B46008B0B86F52513D004DE07CC92B6B0CBB0EBFCCC2552 -D8B836655B74719E9B98EEBC933C63E2C3397F8DACEDA8EB3B15AF370A488E0DB5AA7D03B116 -F79D89C48FA9E462936639A9A0722DE0587194EFED7531110493932676CFEFADB3C4D38C691C -E5C379D73581AB8A72B01CDC79819697A6035C641B07F5FE18ABDB45CB88BF820B805BFA9C59 -F77F9872FFEF1A8BAA2AC637D08FE5B480D35C173B3976ACCD83C6A4F94D75C75FBB72B91673 -10A6117C09045D7C956EA72882D47166D738695D84C24F5EA7A433614EB8F82340443009FFF1 -796FA6453D26C6272F6033D08AA6D498038D0ED98EF867649441BBED4375417D3307BB5F212E -9C7A231093091FD678459924C5F685D19D63300B1BAD0F9F464EB1686C441827C393CF4FBD33 -CB8D14305B7A9AAC321B53C8510C429F700B52B8758C74B54DC9590DA695E6A66B008B855D07 -3A4BB357FE068DDB3BDC6C9EEE9F2C1A557C7F8262F1AD59265C984D3935603FAE8008AFEB27 -20F4E7BB995DA14C5D191FB731D10D53072C712AB989CE4DDF9F233533693D9426CF6C314C06 -E28157450D357FC7029E8E5EC28E816573C8EC481CF6BC41F06633E619C8064BEF24F88ACA10 -00977F966B943952B165D917BC222F85A2072417D43F1C318DA67DA8C44596972FE3C3534764 -6446478989CC22D2B06EB88D86A8ACD5910F0675F666E9AB75C317C249AA69D15697CCE69A4E -CED3D1A806D80B17471E6F5CFF975D8A946C2F5B45FF242DA493CCB19D9863D02EE918815EEE -C3121D9E9B21C6E60B6A3CE8D779A421C8D611883368A40C23317C6A6F914A08B93DA364C525 -FC71909958F17A46FD226316DCD2C653A20964DAE9DA9D9A3E57A9262F8A453C0D0518BA864C -3AF18F37776B4C93843278304E61158767D9CB2B71494FB0CC2CD574E4122CC2A4842FD659EF -B9C73CDEE7C75CD0E99BA88C0D6418BF713B0B003E37FACFA85AB443C6ED222E5107B15BF29E -0010080C12CC74EB5A5C8ABF5B7D0ECCD71D707B38F55E07C68A123FE39ABD079460CE4B4EDC -29C3C1250BC36BD920DE6A00935AF0159F23AEE322286D6C6F0CB1B7ED1C8AD35913F1FC61F5 -B0C654AFCE18A62A120A162DDB79C9197E4D2ED24D6964727CAE9BB5BF72AA94EFDE0CF2F3CD -E7FFC1C95BFF217C6F17BF87BCF5302E28B776F31A77BD3131DA6A2CD38B2B8B842767E5F13E -6A103839BFAAE0D7BE2DB886E1AB2FF58D3A64CF936A95779574939979468A906F8650B5A719 -F1CF6366D1A0ECC7A00988D94335DDC69329B3C52A85E3A06971077C0B862CD845F4C5B8B071 -53FABF9859F2A016AC91C8F1A29902B2F7F74E54AC71A4728996ED79E6D6AB86773E2DD828AB -8DEC0DF7FB595B409C51E04C8886D0D779CEAF56959D40910B270FAB5D44D88C95B1D5AA9B86 -49605C193DDF07CD14CDF426D95E8F76182ED6FCFA0CD0FB92307C9095DFF4DE3B404A9B15C1 -093D94852BC7106D68981E4FAAB0C1B76FE86F8B41181024C63FE625D431D5BD9FC9A2DEBBA4 -7C89EA4B9BC9F284BFD6F33A4F5C33A309B9D48C976695A2437D7D01224FD898A2C8210D5C2D -A39507081AFAB26F055B06981E26A08E6233B48C108F1E67FD9B6FB3948163350EAEE0DF8DEE -BA1F06A2EC3D9BC2CA8191BE64C1ACFC81C3E05C977F761E571160A2B6865C9DF69555C9B712 -6C19AA4DEAA62FD4DD25577C169544F31DF305B3A8F2FF99320A1E0AA8B35CAA9813B6E81123 -BB802212AB1264B454D35252D7197B35324A2D053E54F08A1335BD4574C98496A074780969B3 -5C8201D68A01EEFB767F8C6A8AC70148E621331D6E2EA79F28AB22FE63B465F91237A269BFD9 -DFDF13579DE476E36B65E820A6875D5F023DF6009B6987288CA2B6B661B9E2AAE6B5D08A870E -C1957F504BE8ED7E696226E5D1930C3989FDFD40920C8F23788FB60EDE6FED45CC4EAF1106DD -F33802C3CF40F99AB25A2DC01DCFB004F4E3637161208FB6D5447BE0C2D6DE59B16A1A201F00 -8B8E2AE10E9A8E393EDCCF72935D41049320A259FCA2E615FE777115B757A647E04C7CA66481 -7B781DF9FDB0B1EB4FAFD772A6CD82125AFE3ABE1ADEEAF226853FDF62D4A2AB558670E2A67F -50406D05055DC3E52AFC1C84E5B9F4092E166740FA852C9BEABE33B849FF94D3E5342D6B6FF9 -1E09FB2D1112630657631E8FCBF5BC6EEE98DED84CAE9211741BC5939D1FB75F20185AB55CB0 -57850FFA9498AB03D9C87DE20B8786661A9E0B634B8B14B99B0964992349BB1639CA3A0335A4 -BCD7604752B814D8BD2A1C555955442A6B40EF8129335C470729E5D2D532724C7EF0C110AABC -B28AA99A8C718A6E233C2BF4F6795160CD5964C67DF66292D8DC44C9640225E7FBDE6DFE43FF -CFFE29515E02D17DEDE94AB4A51C150212AB6E3838E941265DECA7396E683FD4CED72CBA0368 -6372569EE0F69C5DC598060237B291302D9CF74B61D696B71417EADC4C8EAA264FA1A3EB2D44 -8FD375B88A2C4F84210507C347B057100BAF86E70B622EB5350602E453B93657A9F3DC002B08 -1D10072A13A83DD40B6A2F329C9F9A9D81525BDBC7EE935298F82782E526731398885E80CA4D -7F568C71BA194501B0BE07923E43BB61AE2CF46DA6CC1D18670AE00EE6CEC746DC204AE5872B -558D2F354D914B2D726E3F20894A70D327E226B5110B8C8C904F8C06180E8C583BEFA1B31C38 -7CEDC3A02C5968675DA7FA93AC36ABA94950552E0FD212801358123442F40312A3CAC1D60D09 -5FEC12EDD19308DC2A75FA98F331EE444680A3B8D8059167063A112D98C6AF7356F8C5B56012 -504779B53DB23271590A11C413CCF1F9A0033B96BE1719496297A57AC3203D291DDC86B7CE6A -E9DCD1263D582A10D4697F4BAF61516F52BC70B7283EA82C1F858ACF3FBF566B4A0871BBBC36 -6BA424E779FEB1683F4CAEA9E87498BDBC4E2769F7237F257A65F9956626E9002F432317FDCF -FE3087824198434173ED69703F03E227A01522E941B8FA5108C987618A8480E984DB88C70F45 -57ABEB67109110312406CCCCFAFE44700EC4BF98A692D988D8D1D63513AF4515CA90858D98FC -A75364AB88395D9BF1DB938999EBDCD115D4FD2F8EDA88D40A3FD0AFBF77CC25EA19C5087604 -8B42454762E6DFDC790ECB6C52868607DA423BBDFC7BF07DB67B64DD67390D154ACE5A058C41 -3F84C448C903B8ED2AEA26D74BCEB89735647EE15995FE47B8E7345C4FE3461E01349101C3AB -13427CA7772E7C6E5D11A02EDF2678E07CA21B63B38FF2A34B0AB2680ADF67701B0D1D2DB41D -7B1B1505B3F1266F14E8AEBFEEA43B113539EBE8966CD812E705D8AEF11A58B8797473328EBB -B61F63C8E60B6835152AE0362E5052385A454398E433BCA2D62A8F7E52B238B102FDA34DD55F -895BB4B692200759101410F31EFA3D5DE37966C268E9BF4447C8AE253C240AC0ABC1949947B3 -E6EDE887A66EAB5131465EE73C908963D4AC4FDFB71E1E1FC4F51EB7363B0BE8BC5C34FCBD8F -76C51A99CC9420668D114E64E3B0C277E344FAC010C93557D3EC0BD4F7F43EE4C49F3C8869F6 -02BA6F76800F956F309EF38667B3C49428AF8092713FE1019D9581D7EDEC2DA87EBF9FBA83BC -4E1FCC2C0AF3215DF945F862436B823B1A2FD9140A24762506085C7F93E7B6BF595AFBDC444A -8B493BD0F4803B033D94DD3BD7BF934C0E0DC06AAC3DB2EE21A11A79FD3940FDC9ED876A5C63 -8DDA4F7F934DD38EE01FEA488651683A687B0C5409E2CCADA703887A06A5D1D513D1E7C045E2 -A1BFCF3F4BBBB793AA92089C3FECFC67A4D594D62720F8DAE9A38D99D925E6C9657491AE0E5E -37C527858552206F96B3D558983DBED1D0BA909EC99E655A913A394E45064886E243C1F1493E -4D6069E29DC0B91BC6B13815638CDBB54EE2B97F31DA9E1CCD8D24316F6908A927847B4F3663 -C5AEDA4D7BBBCF5537A1BCEA6B13992FF46903C5FD1BD849DD54C097C06C92D084DFFD006A27 -9D67018B3B9E06A284A5FD4DCACD7BBE0BF545B760B9E433E1EE2C986B9736786993D5563410 -61CA3F2B685197CE75FF37D5A50C32EECB734A311F01C2AA340557ED18BAE98DB3BF5C2C33DC -7D7B602C5594A100A397958B81E04D297E6A62EFBFA050C8854F9220AC1CC6C9286F9ACB9CE3 -9F732D98BEDEBD2737E9EFABAE6F18F4B87DE17618D511598AAF4F289FF859AF6787CAD1978C -3D57AA75FF2D787464BE750C751701BF11129CC5F75C711C53463610B7D0C831E8AB40DCEDD4 -E56F158BFE526EC776EB4E9AD4EBD1F7B7A648E28B17A14A307237D6F2E6B1C603F6B4CA4588 -D543A1815D850390572D9367D9FF3F5691712DB09BAECC4EBD23CB86A104BB6BE01A284B8B97 -EB1F61D5EC484150B2846CEDD4147C35E8A1EAD473B79592AD2BBA95D9D3AB7CB3E3F3CFA1FF -D7730FA2936E27AEB8BD7964F341CC9B959C8C91A304B12B986459753EA0643DC0D1BC0F54CD -9C726DD2C3F039F8BA14BECC6E475AA35C5E30A79F2EF4EADACF680E7DF8F3AAB4F42512A03B -4BDCA39C03FEC6B9FFF6074C0FBF9EA056CFC76EE046FE08F2678ED59B1D7F93BE909C4403FE -32A406B641CFBA4D7E2E24848C7B741243A699B287835635DB0D4246D5E0B4C30EC8E4D116CC -9E888C9DCA656994F0CA0C15D79116B4E8CBED2FB8A42E11F0568F7D350AD8C7EAD705F47976 -E583BEA7B6836AA7DD67C1CA0BA074FF3EA8CC2571E9FFEEAB2E9931E1C2B7326A5737B45692 -E01646018F9AAD322EEEE45F7D9EFB822989374F1FA3141B6FD4ECBFAF6AD18A4939956B813E -3BE2A9303CABDC659F46F5B9DA3A3135FF326ED7E4B41DF0BC60B83B415C16DE476EA0DA8285 -A688D2FC5475339289FD1287A4DC3C39C0657570B7B4C90D62D48901F6982FA6841133300EBE -5FFB17D30914319DD8BC6DF7BD8213BB58F886AFB61DC7D0B4601306E2B141F20F1A131CD9D8 -405FDE26E53EE97FF27A1724FFD902227C7C9A3E4C4A89B82C4A26544ABDB53A1730A19EFD19 -FC56FDE858E9D309376B9B33B731247436B81EA9C497D54609A3DE480000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 - -cleartomark -{restore}if - - -%%EndFont -%%BeginFont: CMSY7 -%!PS-AdobeFont-1.0: CMSY7 003.002 -%%Title: CMSY7 -%Version: 003.002 -%%CreationDate: Mon Jul 13 16:17:00 2009 -%%Creator: David M. Jones -%Copyright: Copyright (c) 1997, 2009 American Mathematical Society -%Copyright: (), with Reserved Font Name CMSY7. -% This Font Software is licensed under the SIL Open Font License, Version 1.1. -% This license is in the accompanying file OFL.txt, and is also -% available with a FAQ at: http://scripts.sil.org/OFL. -%%EndComments - -FontDirectory/CMSY7 known{/CMSY7 findfont dup/UniqueID known{dup -/UniqueID get 5096648 eq exch/FontType get 1 eq and}{pop false}ifelse -{save true}{false}ifelse}{false}ifelse -11 dict begin -/FontType 1 def -/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def -/FontName /CMSY7 def -/FontBBox {-15 -951 1251 782 }readonly def -/UniqueID 5096648 def -/PaintType 0 def -/FontInfo 9 dict dup begin - /version (003.002) readonly def - /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMSY7.) readonly def - /FullName (CMSY7) readonly def - /FamilyName (Computer Modern) readonly def - /Weight (Medium) readonly def - /ItalicAngle -14.04 def - /isFixedPitch false def - /UnderlinePosition -100 def - /UnderlineThickness 50 def -end readonly def -/Encoding 256 array - 0 1 255 { 1 index exch /.notdef put} for -dup 0 /minus put -dup 1 /periodcentered put -dup 2 /multiply put -dup 3 /asteriskmath put -dup 4 /divide put -dup 5 /diamondmath put -dup 6 /plusminus put -dup 7 /minusplus put -dup 8 /circleplus put -dup 9 /circleminus put -dup 10 /circlemultiply put -dup 11 /circledivide put -dup 12 /circledot put -dup 13 /circlecopyrt put -dup 14 /openbullet put -dup 15 /bullet put -dup 16 /equivasymptotic put -dup 17 /equivalence put -dup 18 /reflexsubset put -dup 19 /reflexsuperset put -dup 20 /lessequal put -dup 21 /greaterequal put -dup 22 /precedesequal put -dup 23 /followsequal put -dup 24 /similar put -dup 25 /approxequal put -dup 26 /propersubset put -dup 27 /propersuperset put -dup 28 /lessmuch put -dup 29 /greatermuch put -dup 30 /precedes put -dup 31 /follows put -dup 32 /arrowleft put -dup 33 /arrowright put -dup 34 /arrowup put -dup 35 /arrowdown put -dup 36 /arrowboth put -dup 37 /arrownortheast put -dup 38 /arrowsoutheast put -dup 39 /similarequal put -dup 40 /arrowdblleft put -dup 41 /arrowdblright put -dup 42 /arrowdblup put -dup 43 /arrowdbldown put -dup 44 /arrowdblboth put -dup 45 /arrownorthwest put -dup 46 /arrowsouthwest put -dup 47 /proportional put -dup 48 /prime put -dup 49 /infinity put -dup 50 /element put -dup 51 /owner put -dup 52 /triangle put -dup 53 /triangleinv put -dup 54 /negationslash put -dup 55 /mapsto put -dup 56 /universal put -dup 57 /existential put -dup 58 /logicalnot put -dup 59 /emptyset put -dup 60 /Rfractur put -dup 61 /Ifractur put -dup 62 /latticetop put -dup 63 /perpendicular put -dup 64 /aleph put -dup 65 /A put -dup 66 /B put -dup 67 /C put -dup 68 /D put -dup 69 /E put -dup 70 /F put -dup 71 /G put -dup 72 /H put -dup 73 /I put -dup 74 /J put -dup 75 /K put -dup 76 /L put -dup 77 /M put -dup 78 /N put -dup 79 /O put -dup 80 /P put -dup 81 /Q put -dup 82 /R put -dup 83 /S put -dup 84 /T put -dup 85 /U put -dup 86 /V put -dup 87 /W put -dup 88 /X put -dup 89 /Y put -dup 90 /Z put -dup 91 /union put -dup 92 /intersection put -dup 93 /unionmulti put -dup 94 /logicaland put -dup 95 /logicalor put -dup 96 /turnstileleft put -dup 97 /turnstileright put -dup 98 /floorleft put -dup 99 /floorright put -dup 100 /ceilingleft put -dup 101 /ceilingright put -dup 102 /braceleft put -dup 103 /braceright put -dup 104 /angbracketleft put -dup 105 /angbracketright put -dup 106 /bar put -dup 107 /bardbl put -dup 108 /arrowbothv put -dup 109 /arrowdblbothv put -dup 110 /backslash put -dup 111 /wreathproduct put -dup 112 /radical put -dup 113 /coproduct put -dup 114 /nabla put -dup 115 /integral put -dup 116 /unionsq put -dup 117 /intersectionsq put -dup 118 /subsetsqequal put -dup 119 /supersetsqequal put -dup 120 /section put -dup 121 /dagger put -dup 122 /daggerdbl put -dup 123 /paragraph put -dup 124 /club put -dup 125 /diamond put -dup 126 /heart put -dup 127 /spade put -dup 128 /arrowleft put -dup 160 /space put -dup 161 /minus put -dup 162 /periodcentered put -dup 163 /multiply put -dup 164 /asteriskmath put -dup 165 /divide put -dup 166 /diamondmath put -dup 167 /plusminus put -dup 168 /minusplus put -dup 169 /circleplus put -dup 170 /circleminus put -dup 173 /circlemultiply put -dup 174 /circledivide put -dup 175 /circledot put -dup 176 /circlecopyrt put -dup 177 /openbullet put -dup 178 /bullet put -dup 179 /equivasymptotic put -dup 180 /equivalence put -dup 181 /reflexsubset put -dup 182 /reflexsuperset put -dup 183 /lessequal put -dup 184 /greaterequal put -dup 185 /precedesequal put -dup 186 /followsequal put -dup 187 /similar put -dup 188 /approxequal put -dup 189 /propersubset put -dup 190 /propersuperset put -dup 191 /lessmuch put -dup 192 /greatermuch put -dup 193 /precedes put -dup 194 /follows put -dup 195 /arrowleft put -dup 196 /spade put -readonly def -currentdict end -currentfile eexec - -D9D66F633B846AB284BCF8B0411B772DE5CD06DFE1BE899059C588357426D7A07B684C079A47 -D271426064AD18CB9750D8A986D1D67C1B2AEEF8CE785CC19C81DE96489F740045C5E342F02D -A1C9F9F3C167651E646F1A67CF379789E311EF91511D0F605B045B279357D6FC8537C233E7AE -E6A4FDBE73E75A39EB206D20A6F61021961B748D419EBEEB028B592124E174CA595C108E1272 -5B9875544955CFFD028B698EF742BC8C19F979E35B8E99CADDDDC89CC6C59733F2A24BC3AF36 -AD861319147A4A219ECB92D0D9F6228B51A97C29547000FCC8A4D9DAFF1B3EA76067C5493B69 -F73B89C8B61804A34FCEC826343337CCDFFCE17BF343EA8034BF95AA14C56862C2C052569AFB -236E1F1795F05150C8F28DFEF6BF4BCBACB678D0003630EE84FEB44B1A8438185EB45654E685 -3C1159B073E54292D135F0961A64E8A5AAE49C4BA9C44156C123426212120F99F3E8B7425752 -A5FE384AAEF755A8464B51F015F9E2967477D57B22627D75CEF8AAAF0AEBD504EB46D0289DFC -8D86C972F042BD88A90A53613DD93D8A7A8460E63D85F6C15C000C0AAEE4BD5130B6E6688C9B -3F3FFD804745DA1D5EC0AB85C96E1724FA67F9324C59275415182AB48D579722DCF602396AFE -64C13F3E74EAD33F9906C8B1A6FCD0D8BAD1A14D90814200E01530578C4DCED1895C636428FA -74C054F1549DDF4521179B96F80830FD2E19019D9128ACBDE057D13BDFEAA4E02E26B74E8F4E -53BF454298CEBA97340568C286DE223805338AD95CA6E6F1BEBDC955A3E57DC7B12771A6C3B1 -5BBCF176FF41C2E268E490719CCCBF76C137B4A3243DF2400103F7CD03965F2066146EE8C9EC -EFBFFDFCE5FB62C6FCF53915EABAB5E555005ACBAFD3ACF0ACCD26C747E37089D2AE6D70A6AE -FB859990B82920E4541728E413B3B4F211ECE56A46A4A81B9AD8A68D58099D41A9C8C6F88FC6 -9CE9E01B6ED62AFD98C4C579961F628AD3D5DB710A6BFEDCD5E86782A06D066F44129D3DEDC0 -A1077E7235FEB5CE3072DE862061E5AF66C6E023713D61929927A8A6FF43A709B900954F3AAF -C0E0747776D0AA1F95067A9A8023CC005EAA68F13AB3A88545AAC2EE1E5F87F2A9A82599A667 -9B14290D8EB9CE98B4135BBE6F83A64617F18FAF7D21A52CF854EB00FC17E2E4627EF3E0221F -F1D1C503201699CE9A735C9E98F4877611AB63C1F9E1FEA5E1B4AC9DB568E6FC86D642AD0C85 -68321A0B3F10A2D771B79BD85476AD1AB410046B18F63886B161633F236DB7BC6E9EACEB5BED -622209C892350D9773271B586A097192DC61B782CE695A26ED6955290CF7B85A2F8FD434EEA4 -2F8BB8F60E4874553BD31770282E032AD154CB0A51DB6552755985E354E2BD257C0A4EC83551 -085D9CE84E1F949266E7606AC6AC679D7CF6D68CFB9CE64C8257C7F2448B4D917D9256A32208 -8EDE290E15C130B1626B145691298A3F0EDF2CE66235F9216D420F379CC0A571F030A5DC0D6C -4DD9721A659A0CDFFCAF0FAEA26C95277FDE2885CA1C999C0510F9DCDA989F82A7C0E503B263 -C0668407A4D6A33746BEDA4D33AE5E1C06131F68858ED2577DF8AA18778F6823496DA5F87156 -DB771148B0919739B6D2E244172CB9BA6BC686E8D5FD5A8D2828D96325BBE8C2A05AE1460D60 -273449128D61B1DC288C5EAA1787119FE03192DD48270572FBB430971B8A562DDDEBB0901FCB -3626A6825EC49949FBF841BCA3DA80E9412AF5235AFB2958C8386E9A1F74E1DCBF7F76CC328F -A2A92A7F5A85221206BB696405483CA83ADA18C1C0CBFBD14CEFE634906C4722443FD2BE0EDE -5883259A70ED5BCB6984F9FE54FEEF9D26AA898C5BB65C4C7DCED1CDF27B33BA99B29617B667 -ED8B54972CB1D8E5A45CFC6AE90090A3797910EC9C88C5623EA44CCD03C45F318E3E43A76B33 -2884B3C4BD0C40A2CB365067DDC1C2B35F557A9B1875C80607B2C63E2FAD5D196172C8A8ADBB -7BBA7666FE088F51C1E63C70F371140D0757C151C7D5D1BB64F946F4E4099B79080AF88F9A4C -44CC6C7A279A37C063D2BFB9708B26253BB8B3BBC62EE6EC0E5B2CAB050892C6344452531F35 -818B2AE25124872CB9DEA89B84C4C907E6C1DEBCC502249828D9E07C30AA0CA4AC09393FD526 -A1186491D5B783776FE14C39275B48279FDDFBE5AA12050FB0254C23522316631239B10E73A8 -0C01B8AAD621018610E8FFFC803BCD77827B57242F787F5470578653C913AA54AC17F70ED856 -213C43F6681C8EBE599451552D7E057120CED79DD6BF057CB162BBCC020B824E737D17684CE0 -FE1FA27D76D13C529BD869745B0D073A465D9AA0DF728D4D475BCFF78ECBBD78278A621CF6F4 -F2D604D152A8CE52237BF3013DE89589E363AA2AF668244C17FE322A734B8017C01288F823C6 -F70A264F3743AA0A169A9EC73641E9684046E5B66008CAA3D950FB50821DF363F79B0DEA608F -11171403D417251FDB78ED210699073C94676E1A1D33BFFAFFDB903727F1D6AC3276C8670BE1 -1F2FF77B9814821AAB7E45C8E6166CB7C355E75E7D2FF07659FAC230C00BF44C44192E957E03 -7A3DE18C6BEAA8469B6CD6BF9ADFF5675D42B6D0EA8B6E6EBD28B9907ACF2270274A813FC603 -CFFB84EBBD42FEA5AF47320D17BC17E3F9E1CAB628E251D640C2458BFE49590CB2BB428A3509 -237ABFBBC4662FBB29944F87F0F50F389E977D9B3B1677EBA0BEBF45E3F11338F6FFAC36478C -392DDA022586917ACFB6E4FCB5FE9B5F57F2B93543CD68DCBDCE752D7D4659D86BD7B1619853 -644D4B6FA55E935C4DB801696A56F36A78D5EEC7E78885C0F6CA874915F5B97611BA6417A4E4 -6ACBC10CDC4FB3B8BFD0FA26DAC81D5EA91829B32E19D472B88B5E3A4FCA4BF1A48E697574EA -46059C0FD1AA1B22BA70E063AAEF2138C284606E1B2B5878F89D7552DC1BEDCB0590B7CBFC57 -87FCB7EF0AEEB6ADB8F5482E49A4E68253F5B340321A5525DA1B640517A1AF96F295E7561F35 -DB0841137CC50B810EE4E7968D510A1986EAC1C7B2CBAD3209C51FA4D9C4E8ACC18754BC8670 -6D89CF414CBE75DAFCBC078E93A9590FD856FC4EAE0CD7433B90FF8CBE8AA2CCCCAD4854CD99 -177AE44CCBEF4FAE43E050A77861EE4FBD0A63FC2B3D621014B581ADCA1C035FCF75CC5874FB -0F1049B1B19D53396D8E8628EDD19257733D355048BCCB2BD7BCE63FD6509CA624DEBFB0CDDA -EB5790993DFC58DE7A77B67529A70F0E1CBCFD4BBBEE3F84055749BDDEC5E7BD1826B1F3F12A -BBAAB6967216B689DDFC71A636C7FE4FC58542DE933DDCC0DB3B45ADF26068B1B582D0C49829 -B9860CEC7E22AD9AA836FA61A2D237C3ED997EB68E0952318E159BDC57394A14AA237A2F5976 -434846BA60E0B35F0B6BD62D27BD6174AC8A79DFF34927CA33DB427E483EBB197E89C54D9EEB -2A44BBA4DE117E34A2D0496DF4A60E7E0354945D4C412F7A0865A2224C59AE698147B21B397A -D669416997594F0EB857172A5F92F8AC9D0678C61670FCE2762EC6774FA2DEE7C2D34C82E07C -81FC4DC847D13B8B1120E4CC334E4FC9854316237865E000B6497BC00AAC8EE40B1362B14B0F -132911F9505E665F2A597E823D36CA9C3FD7ADC7505B895252223648C2265C9B29A220D25A1A -B5CFBB8660123AB468240A5F51E735DEBA1A4E9493AEADE52DC7FBB11CA3244D841836492572 -0DC2CFF9271EC189A3C3F052BE9951A084B5D96A06B95C21E6E4778CF511122A26CEF18E877E -6F78E6A57F397F84F755CBF283764CD94DD308ED1A633185B86D6395D5D5AA8EEDB42D8683CE -E34620D68593795233C65CFF974DD74CEDDE1477CC3F350F9413A0A204D4F4F7F79FA9C16B97 -97E6AC5E2DF55A10408093B04E9A7539A039F71BA196720DB912E1F05986504AF3571EA07F44 -AF4D20F3A503C2676ABF2A275931FFE63416D557ECD5FB8CD89FAAC61674C9C005909EEFD8D0 -967010C5F6D89F61D2911D3122939F1984710F7DCD29C025D5CFEBA1831FEDCCE6CBC19EE2F7 -8263CC9DE58AE43CD5C945D066E83F41BA063A92E5A3B79F68E83002FD4DD2E6DDCE214FC778 -4D566A0702EA1C4631BC08344E85B4118182B898774F77C5C0EF13F440C5F2EE2733B39E510B -038770924227E1D7015A8BB3FD55B808CEC744E1F22910BA824FD77074C16F3A792C37B7D9B5 -48BEBDD766383F9D18D6AE73AC3B2DA40496DE28239A01537AE88C42973556A24F845E79C0CB -A04A72804C2D0C88A19EB4CD5EDDF3EC20F4782418CE502ACABC284B27BB15E010E04E6D701B -697178782A5E4487F94EFC152AB17C7B322FEE53AD146FD10BF083FC183646FD00FF29B7D079 -E3510CA668B2F02AEE6299E88AEBA5CF5C126E7EAC4149F1C284952BADDC8A0988017A9CB11F -3043EC69CD4B39A3C70D011BB7E91215CAF8D63AD5372484191605A8E495E42ED96501B06AEB -8A60A2E68417462DE1720AEE508E15B1B12EC134AF58258FC800E690F4D05B136471ECF95B6B -54D376BE35C3A393F234DEA4E9F769767C0A7D56E1520C9F17D8060F6DF7A7C2611B4E5392E2 -473AD77CF84BB2ADB54343E1328CF2F3E9C3216F18F4E0EC26EE79E1A82C4118DA3520193A56 -137E53E611BD841C7D2B00ED1DE4B5F2E9E7CB50E08DF891E2744A14B21D76A1729B39CCCCE2 -AC98DA6EA7B74B1D2E0B499FC68D85765229E91EDA46C0F9799EF76099A7A91BD2D99EC4D545 -EF3406FC67D38BB9A2690167A5772423B66430D5F83FFA70A30C4024F2425D31BD47AEBF5FBA -BD1A291C87DCB8C61970E96B981D59424050E4F1FFFFF963CCE1712CEA6DDB50BAC618CF25BE -B3A0E7BEEE5DC320C52C2AE5B920F382E745A0E6E4734EA05762D3F9DF69F7619F6D99126074 -501307DC6CFD991183CA509FF04B45ECB50870A99178C30C2E25F022E1DD4189D142314A4FD0 -97FE0BC9EDD7FA09ED4E53F495507D403A0EC4EA013B76AB0FAC82D0717619562CA829A337C8 -99CCC2A08B91149B8A7CF4F93333182D4C9F5801CB29E676C11381828AA6354B454E9EC9B470 -65D024B35519AC3026EF9DAD468095C5E991E87B749C94CBC2E8D5BB557C46A18F3AE93E647D -D609F24E8D15D6AF3D19622EA458A4A70690CAF992654EC7BC93DC5DF18D7849C09730151973 -CA7A04079EF1BBFAAF49876A1AE86832B9EEDA47F943C245C20D1001C06162A7CF7CC833B280 -8A04076F474B01574C1A91A2703B4ACA36CA0A68F05A6967F196B5574365A18B39DF98C57273 -3B52D33D21D9D4F79056383A6AC99401ACCA8197483B1F415D7F70842C516CEE920B032817DD -C2739F45CC5E28701F05B15D5F3B3FC94BF77146E7A0C970E22F4F08C436AB3D671081D0D50C -3AF29812CCBCDA6B2B50E568AF18722D913FE956C0A5F2BE309D87E79CF4B55815BE6FC865C0 -5FB5B5403E85A373FE2AC8B07BBB720C26AF895FE34C16EDB6A82BB4DED3F4FC882FD32A7FFB -828BF16407E888D2A1ED15873507245DA008CFD273A911B4292A90B1341E6F87701C460BE1DC -3DE1928D9E964BD098928112CE391443C47AFE02A134DC2D8A905C1751B84D71E324B02B2D9E -AEDF7FA82FF457B0380C0363D3FB7D3DFED54D392AA3AE7B1BA454938941DC812451214D3EAA -5AD70CE5309F0235B2008FC11615A68A348D6D455F6BA149AE55FD39DC7988CF6DADE63CA63B -8D31E2471E97793FD3E0C7D8CBAD0FC559AB2384CF02806B457A92578A84CBE4E34B1F4176B4 -26E2FD6B1C272B92FE1F7D97EB679985B3B0A202E0A06608D40D4DB1B3CEC899C04D35907D63 -E0776B6D0694BC64B797670A6B0E8FEC666AECF2024D9D1DCEFA2A8F4591F206BEC78047842C -2F1221287B51DA31171BA24F75B1CE543C59373DA1BDBE97B1A7BD2EBD35A53F025E9644D9C7 -3779C51EB6044EC0D92494584B3796A0E2244AABE4B759F2F3B47064D60C4255B90B0E518969 -70A3CAFE4D979918CD2AAD72A8AF39494E16AA9BBE76B7BAE95A0CCBD8D0F7A67EA8AF67EDE2 -CFA2049EB5E5DA215A4C24A980E02E88199A5F1D8B1B3D5C8D38C6823C021EA6D2E4007FA609 -BEC9F72833A136916E916A919B5BBEC85E44F1AEB8DFA0C2A013CEC7CFB598B6714922975BB1 -C83C881AF9F790A7D636BD9205E2D3A219B565292055207B808B1881630B21368B0A575E8873 -7260528FF6AE2D7D54A2508DCE09C017EE6847784C3B4D3A084914494EE5BD5F946E434CAD27 -9BB03E8915E6B870767525D9396AC27879DC572A0B66DF432FB79CF817E0D693AD69211B3F1E -3BF24E93EAA96D989AE455186D7DEB4B0AB8EE052E0596C02ABE704891A170D85DB1C751A9B4 -E94D425AFA56E3083F457DEE1B67A54099292167E052059BE8DAC5C0A7B202B84A3C92734019 -C33C1162FF2B1995C50B083F5F5616D37A80B83E7291531BCB7C2E4359477B56CD50FC7DB85C -AEA11A2DC4F23C9CAD009F0C234C9477F54CE3971FBB3A89BB96F06CD17C01906417BE4D79F5 -165A14E1CD246086B22D7A93C4E2F028B111E893AC2088D66C24F4CDF581D118BADFDE8DDF04 -E4BE0292607ECE90D0CE96CAD103FE46E6869701129770B84E29E5785DD5AB4B404330618ADE -5A5AF9831790214E88681A2B5C2CE9B7D8C015C3A70FCFF1B958D8708A84D6919D1D577452F2 -272D160939DA9D29DFEC2374E8BF2FEC884055B6F77A288DCE17F3F9DF3723C019BA8C3B9D87 -190748624E4102CD47AABA0AF0A3B67FBA8846CE099B1C5F247D7713F56FF54607649F4B7318 -647CD7FC9DE69A658F171FF16D82A2E2DA4A5AA0B71C5B99A8646B5178B82640FAA33C56100C -340240DE44F1A45FACA0699461C4AF5581EDD7D660EF89A8F0FA6419B896E78039AD9F33253D -42B445FC82EFB477B7A8C1009F24EFD838599F9FCBF9B50A1B11A6329CD44A241BB2875BE015 -BDAD64A88CD685CFF8001CAAA3E12EF1F53C62572E85B4706F0C0C42BB0FA4A457AEBFF4FA59 -DB8571448472BE74AEDE3E238EB1C4467CC34748765702EFCC47F6C1229AD2742C0995F174BE -425315AF26F293F3E3B8C86709ABFDD7D7C18E4C22AD520F88CD207CAFE3BD11C11347574A78 -6451774A0824DAA26370FDA047D687A4209FBA6F35590B40120E67D6E124E1BF7E520CFBFD89 -1923C7C3C72413210284B7F9D6962E7F000C17B4E1404C86D34ADA528F30CB522C18A007B54D -387FCD040094CAAA92D383DD6AEF7C0EF91877F9831F15F11BFEA2747523AD759DFC74B804C6 -80A0D6E518E31FCCE3B07374198FA217907887DF93DF46379C44C3F426C61E8CC791AFB9644C -8D1A48EE920FEE4DBA1CC545B343235580152E7C047E581D572C6ADF1949E190D9ED2D7CBFA4 -8F873367CD7DFBDE58F7AFB8EFB1EC14D29059E20A884E8CA5B1D1936EB0DEF793733B5E2412 -29B0CAB522284BDEFC3D96DB7E9B3734BAFE8152291F061732F5C900C4F46EC781F0A1F67EB4 -E2A61D01446FF93EBD05910FE85DA9EBF7114F789954E19E5D8892A227BD1F0C59E7A8C5B601 -86CFB72EC991756BC18836A4882508D4946111C46B5C8B01006D5EA4671008AB989C6E96303D -2740F130097494B898E26730466135DC55BEC03931758CE9CFC83F6E8A8C609E5EA48CB4CA2F -4B059365B7263DC08AB25016270405EAC0BB1873F5DEC1D8341D039537358F7EC07365A462A5 -8013C7072979A427CDC52AFFFCE7E54D922702976973206C24E31AB358E087437FE3C5615AA9 -0B88453C44FC751B6EF7C385CEAA0D977DD18A8E20E050B175FF2EFDA0D789F2F0502E006857 -6B3D3C29E19FB08E926765F3A1C4B1C2F0D5FC0759AB1EFC261CFA1B041C7EE3F1F329BA03A5 -FD751700ABFCB6576DFA432BCC286066BC09947209C6CCBED6A5A493CCDFDEA73AFC9F21AE15 -49FA355C59E72F9EDDE74A3741C9472C100367C5BA21AB550DB7F58E70A879C2C1AB2E76628D -4BE2DB06E0DEFD0BBC73A6E9BB9491D96675544E8E1C8015B8187CA6C46BA9C9950A141CE819 -C6D2BD022A08EA409E4A04291E803D14AEF3B1AFCAA54D4566C36A1DE47A9B81A2598C942246 -3D8B1D450DC7E71CA5DE4E226F3C0C1722F95F6CEA4642752322D795E856F79CA2BE2794D6B6 -F9B1034AEA03F077572234B5E44CFC0023632F25CF4B7755F8ED918A709D3FC28E9F61231493 -3B07B991B03FC7838DF8502A25B9A8F3A400178D5AAB0EC6DEB96170BC445B99DDADB1116E4F -B81DEACAF49BA8676ABEAF255978A0282668FC761D1A17B9CAB610621CF31D319EC3E94633CE -C9A808D4839A65983C69B67E73B64CE4BA378879322C54934D104D15F9D2B016B13BEFD6D1D5 -A3653DBA3BA2D7A760C072AA8EFF64BEC0274A0EA7F64FC95D25BE5EBDE5BE5087548DD009B9 -1B9DF00FBE2D56CE8FCAE06C17B47719E2678F0D82B5EAB4BA25D13F5D195B6BDD49931FDFD8 -F6D6F8167E67B55FF36E0E74B692209AB11BBBBBE1C853DD25DE118BEF45E2EA5A8D3E4AA152 -E5532388A15CD538BED22A2CA87862C46CA0BC02D00B08A0C16D237462636934DDF1351218E6 -D9E9BBCF46FA3AE7DD8816C90D5D2109E269E56E9696B1E3118659090B70783089637243C487 -1F75B38BDE1AD147453D2BD104B323DEF0AC9E293E0BE7141F7FE8BDB9A2387A26F156E33BF2 -FE4603AC6141358B19E5590B23443093DF84ADDEBBFA235A8B5FA873C64F7F5A57D17DC579C3 -E3902D989F8E27D6C94B05DB3F493C27EFAED719D84BDD30F81567439AF718425B5E71E4C476 -E3C3BFCCA50CF658F5C028D92830CA0D38B78B61F4EE8B3CD63A7C6EF61EF70A30AB422930C2 -CD96DFD3B162BEBA362D1C4E318C6C356C2A1BB4FDF26EDEACEAF218B69A5A8F647CF47A2984 -86D25C08F182FC1C90E200DBE640B1773B8EB4D25B1F69FF931C2B873622D03E52008A60D073 -6541CE77E4137CAB1C9450B3E290207065992B886B51970D3DCD91B0F5540FA41CDDEFF8B877 -E25C3A78E6567EC9C3D32C0EC31181805877D2B226E3052DA0D719C788960D2EB6E34E536CA9 -2CD8192C5480B5AA8EF7339F180E94302FE809F3CE67F4738E96AD29D93E265927FB6C00C5A8 -FE4A682128436640D214056CD8703A1ECB207E0E214C37E1EBE6FCF2AE98CFBECB2E01C02330 -ED7C9863431F0F8B2DD4BF96FF06BD2D63591463C805746DFBBBA1E86D352FF85501E5FB99A5 -C3BB2CD6FF4F9E5F3CF85743EC31077AF302EEF366A1057B2739C8D8B0EB1B2D39D7C3D23C31 -C8307F6686F9C2EE08FF6106012BAA5AF4CE2839BC4139879BE82A030B085E99B983480A6A75 -5807C10FC79FF8E2F2B90BD5C3FF01F86796762C7B3829F4A43CF7E7E4B6AE17C7767B2B0692 -9C65FD9F72B61D63E8A5A544A167B9079A0986F52F352A3A0FD0A4F74E5BA612A0ED3CB4F04A -831ADA931C653006BF88F8EB3AECC35CDF4B6D8F3517A3685350826BAE58E06FE65F8C017FC7 -3D813E2254BA4C128265AEC8537E1799A0D6239C3C9DD5C6E2FBA9186CD82C4A3DE976218922 -7C7CFA6A97BAD095FD8998B67046A4BABFE5AE87EA40181BB5ABA16BDF9D067820B735F183DB -F1D27D992AE1965DBD9C9E9291195CC021E050C5B877D6535088E50F15741230D11919527A0D -9300DD2094B162F3DC7CA01AC3E2DAE7E0C680BF3D6A3E4C361581F100A6DB516084527CEEEB -73033213AAF85F4DA9186FD56C1251F33727A227363E876101B7018BD702271D3DE5A96185C9 -6010F046998EA1E6D7E5650B3693596D0BEDBA68B5ED672FAEACE1E165207C439FF823F71124 -1B4EE7FA0E46F595BEF621E0725BF0FDAF416C77198626255E7702C6CB14647BE293E15E8E04 -DEB3CAEC893D4F57E92C7E87811C5302504CC1448934C8E4A08C46B5BDABDB974C571B61F968 -C8D3BBE5694204AE858C100496AF5977F66BFABD55720DD4885843E4BB066E2779BDCD419C71 -7D200A113DA93E3141CD997F474D93A657818CAB1AE89D53679096A760E7B468128CAD32E4F6 -B3D81A3AB54D8B6500AFE83E83DB1CCDA1ED587919531383D9CCC9AA5C4CD36289D40F3A1DF6 -DBB2B2A4C7D55905071A0E8B5797EE281D29F636C65BB1024ED93912856A1AA45C4CD89C5022 -B436F9569999481CF86EF9E86ED9DB8EF340A866B813EE991147DA535315AA4721A1FEB7FE01 -FC862E530E78D6E978A8CC780A6E34BCB17ED5BC054A7CF08BC57251B25E78DA7E5FF724E588 -C425F84335B763D8E2BDFEB1DEBAF21C293CC871C6B3515B394564D9B52D7FB65D83A1D6632D -2B3A11CFC99922F8D27A46C3059A2BDAAE774EBFB6C49039797B2E8298E6822ACD7AD304B71B -AA13A71E1738B76BF137F6D40368C84A7C451276AD1D605AC4D4850BCEA784034203ADEC4FDA -DDA71981D205B5EC230489726AE8013609295BEA3707BF681AE80FA4014BC214255EAA32A480 -7391D4B04D68F74C682A403850F1D0D0F6305FC73C6372A468E23D101DB2851C254596965E57 -E6A5437F47111240D1D60A8C298EF7BE811E2D1690A08E18C4B5FA19273EC46C206767B9E6CA -3CF0749611C931D99E8875015CFCCA57895D99FE16E93BDFA5F6130607A13D95075702537171 -13257140AA5DA631676C7886F370E71AC76479650CA3D8C84EDFB91B4C66B8A6B57AB909F2F3 -DA343C9AFB9A6E4FDF0CD6CF293B2A872B82D0D4AE8E858A92F75A92DA6FDF4D82F7E22CC24E -37E830D9A9BAFF1E9C7A6ED609B3DF74B4AD697EFF1CA45C7F5E073D1A3F1E5B78EACB118543 -BEA62B4288E5950A84DC64158E26C4411DD62360F19D0E3B85D9FDCD15D9E90ABE8DC2AD94E6 -FA0CAC3E9E5340F462DA62FB180E1A793372A551F95D27815D83C84F8187A7642354BBC81BD4 -C13054D7989DB24BB118DD916CA7609FBDD4DA285FF79C2736B4B4B82AE0564D2DE19FE51DE4 -E6B8B37AA24AEAB5F4200CC08D474A5DB787DD8145EE700B83AD3CC947B39FAC31B6DA65B219 -68297BAA75B837B3E6680D856D6C9E272F43EFD5C9D320668A577DF88B818259D6FC97917408 -6B98B66BEF82F6F86A470F8B1548980719C9B9B45A2EB741EB2E1F583F23378A769E7CB779AE -0C7DED271052C154267E5B2FA46EADF1B01F736BF9B0E406B4F3EB0CF2219A9B433AA616045B -DB2263FF67697029916F38CB589EA0871F098BD89FBE128FDB03432B945AE4D63C2C3B159F77 -3B797A45C423DA27EC335CA59C6A6AAF73B4559C55FC1FE167D584A9C79E7510CEC985E28316 -6654C81DF9DB0704F55393C0B2A5ACFC24C1016DDD930D7C81D4279B719BE8D541EE81A6963C -FE267FDE8C74DE0D6BF3CBC563F09735DF60CE5E24AC86DA92F64A1B50B38F0CBCA0A648AC19 -535D31B0F8A1F0717C70A3D9EBE5E8A451B1E43C4AC5CCEE6D18E4141EC96BDBB7F7121D7974 -2BDB3CD31501F941770F0BA09035CB959C5860AC4752123E733CA69189C4CB9DE9D59AA18173 -4AE45A58AD921B6AE470511336E62615145094A268548BD2A15EE6CA7130B19A54E3F1C7AE71 -FE8777C324C71FF896FF7C31889DAA39F711FF4F46B0C1085410626DC45D6C20FB1D0A6E6482 -C5E5118BFB33B098C4A5B134D08DAF802AF2EE7B83817B59B7F9ADF5B756BF92BC3661C16BCB -9EF8BF3221B3DFDB7D01520D03A5C3D9646A1AB6883D6CDB09EC24CCF6B52414CF3B5EDE19A2 -9182C80823D10FD0099419E94B1E79918CE36D8E6FB7915141FE398D91C706CE3CD16F12FF8A -7392B187B6D8B2F2855EE8223FDAFFC1D66426B737AEC95BD020DE6C908984E95F81BE9406F6 -57E5F50216E68D17614136C5DCA478F4057612FD93C3AB00B9C46202BC71847F6164C01C28A3 -C5244FF91D663CDA8A815BDE5ADE41440EE19182A2D915CD45B052DAE35580CB8BEA8E9907DC -1731321BCE7390A52AEAEA380F9C9B6B0D74519424849D6157E58BA887E977CE8BAE585DB593 -937A447F21DD825182703A4A1754DFE0C91E574BD8BF37EE9C0A983D4409F0F252646BD28A35 -ED662DC73A1FB3043A1DBC4DECF27A5D47EAD029DFF537F8236A71FCB11D3A0AE0A24289BFE2 -575672E1E26715469D0EDDCBC97F044AE7E5D018384BCAAFE76CE778C34351BC6F10CDF707C5 -7DCB1F7A9D098D2D60B8BD8408A2B0310CE585EB3CF04BC39E15A6CA1FBD05B51DEF955BFB48 -B0034B47F2DB81816026DD2F6FF94F9E1E6F3D3EAA71AC0F0DD65F77796971BA9FBBD374E36E -4EC98ACF20573377EC62657CE6D1716F92B22E1A820E782C74DDE2D8044B5FDBDC579F68237D -FD3C861ABE00A6A592270759903D43389FA6528FF3F617FB078D9FDC1E94B8564A6EB8209E4A -2FC2EC5A1407A85C8CBD8523296BAF5780BCA1298A537280E7161B60BEAD9852ECFEF7E3BFFF -B830E1CF6D05C235480810307CC13A1050AF27FC4A3C9CD0322A5BD57C3DFED62B251F3A974A -826FFB116307D496984B26573A4BD320F22113021E1D13C06D97C492566E17E95FAD62B5CA4D -DD3ACE36F5C293FABD62538C04F603F72C64EEB4F785D70A22F7BA3664A571B46AC57083E3A6 -8C361B98C8832F194EE1F897DB3ED7C7523F237931A4A80D837B97F479BF4ED2547C75DE0333 -6839C560B8B42D8C0FDBBC83D0FABDE8D677AAE4B0561DE5607B1DE6C58DD38D81981F9E4989 -65C3880B98A0D5049B52022ECAE4877B6F4F4B7F11BA6BB7FC38ABACB117E05AA3A72683E462 -3EB337AFF43A50E421F6622298264223C2BC28DEEF3249441ED2AF24D5941500869581AC3362 -6B5B005E153850F405E1D67F0072404682A9E9A48475B23985846B15648297BF8D5765EE9345 -9F965F9A2C6C84490ED7043FA51892FE069C1F69A14002896073CBC333972DBC244C2328F1CA -159074F07FB571E44DA0ED736AC57A5273BA04DBD9B8123377795ADA989AEAC84AF49BA935D9 -0F0C214B9F454E8DEF7EF963FA7F7F7A9E189EF84882B746C32A8BAC662FD275470CC9376D2A -3D56973D8E436739D720570FDF5E04299EE575D69760B120E659BFA4FC89517596F8CE15718C -DFBBD3D2B7D60D612526C8DC9E27176266E0F67DBC4E74ABD3393C6082C9724F964A08DF6C93 -39D6934D020AC7AEDD858C6E221619E7ADD9F96B98E8BB68F4D4EC918C868133F1CBCFA66A2F -80E4CAC417BE6D6BBA1E71C399432D77D4EF1EE56D2E108D9B8B6DCF76AAEE9DCA4E9F8F5A37 -25C5A7D11765025B65FAB5E051486043CF9619FA8D9E09379EEB82BF0292CFFFF4008C04DE7C -DC5176554FFFA1754FD5D0C7CE061C0F43427A6B7F9463C4D8A9E5CA3C5FA834C0EDD9AD2518 -617C3BE1C4E0EB8B2B01458B589597A4FBBB36D27EE287E644BF02AEA910F4D22F8B928232F2 -DB0DD57047EE8462AA172D35F8A32A7A12D1D59069D85796E13B83D84F063BAB68589245586B -9B21E4FF727EDA4DB5C687FBA8E5D4F9DD95120EF0A76EAACDF5515400C73F1EE6104B7AE3D4 -4B7CF290C431512CB6BF75D704BE8EE6A3D0CB679BCF9925E906640EFF2D709E09B6542D87EF -DE78082F17FB7A21E39D1321CB12B3A6A674A2D078007959E48853651D7BC39FAFC42F07A523 -07C73021922CA8A2FCAFAE5CF152FA7890AB84B7A1BEB6B6061CFFE8F3A0CEFFFEDAF217A69F -2E0EF62E8D1D4E5C6621344D11DFA1B7F7AFF40486ABCDDDCD984F990BDBE30588A1E6629E28 -F033E133A8E0DAD31E41CFEE53D50FB0350207090A90C39AA8CC4EDF987C94C3EEE00BC3DDC3 -4A85AABD3E2A5E04044EFC9AA70B443110DC814915D37F2CC98EFBBC18BDD2516C7DB9F27DDF -97DADF41C1F325336B3263D117AF1C4204EBEF2E8355D351DC3848CFF4E0B93993EA9CE5865E -27441059E0DD004187787F0B355A4179FD9C7080B8FD8CF941CB95C135A1C58E7C279E32B787 -BD66F0206268F0CBFCBCBF15F55B547C5BF76EE7FEA93CE590E5DF5DAEC2BC17F2F757F462BF -2485FE1DA580CCB52FDE807E0090DDBFB4241E660DF414F4D78FB5937C92DEDF62160847A435 -0C9B4581201632EE59189268375FBA0E628C9F41755670432FBCC196CFEB4FE788DE26C3727B -FECE7027F461B0B4F7B0A7CA957FDE8C4EA012519CE4030C85817526CAA41095488B5BFBFB5D -CDB51896F97AED268986B789FF896AD7F7283EAD2811ABF827BB735BCC7E3971499AF33BC888 -F6A005172F1930CF3DDABD93A7FE363AB11BDE4C68230CC9931CA434F48C4C48002D602FA37B -47E88C96C74DC5AB4C892CAF5C5497EA33ED66080DC1EB135250782E44A33504A0F78AC2E06F -233E9DBED63B4BD8D5BDB57EAE44DE0F894D7E758FDC48A1F5BA5135E2A07F50A040B1DCA1E3 -76A8E78CA6234A6948A1A699EA54F0B435B15D15CBA38B9DAF7ACD30BF38647907EBF6E5287E -510BE9E19FDEE51D5942EE2E658B0812872CB6253995969F8E88976847CA95723B0157E308B6 -F14D33F588591599089DB5B4883265ADC3167BFFF6F464C810612422F83330B7A42759686EA6 -18A4D496ADA8E8C4960F5F4460924ED76E9CC9CC29243DE3912B28013B9E0B4933F8A2D2CCB5 -C2161446BA8DF32E3006F8B467B1FEB6CF72986DE83F80DB31A3EA053EDB736F8C059DC2D399 -6B434297776845E870986897E8A5F5126B5F1783618B011F86C9B59A1E02C6F5071EAE3ACF5B -23B34D33636AE0EE5B02BB754DC7664F0E0730D2785C759673DCDB94786C91BDC8057BE528B9 -9651FAACE3115D87FAB5675F72797DBB5259B390975985BBB1E975ED8524AC5C230418457AD0 -5E1B37ECF3994F2F0C4E149C5FF44BA1781386B57D90599EF16747C662F78A1658C15A2683C9 -ECD3765B2D3E2804A6BA321E4E527E456963A45D8E16E220C7E3A9584C31C4CEED895B8B837E -CD7B579EB60ABAE5E38831E41720F42B674959EEC66D3C41CFFEFE45CFB9F65976687F7F78F3 -23580E905CF5B78A79DCADA37EE6E1D3C22AA3C0EA138DBBDAD66E436FAA0F35950AB1597F36 -F0FB20D3642ECF96497725B7BCB90A2E4E1FACA7FEE1DA23FD71C28D466B9520CFA74D0073D7 -1DC382396FB2A0E896F62B90ADD44D750ED67483C69A6A9F6AB1DE7EC6505E2FD50E27DC820E -A74A24ED0D36580FFED2F94D35C0A9F09AD59AE2A3E673A25B090F3CA2A4BF99166B97BD587C -5BFA7ED3C143A701D226E36AEBD269FF525D1F21F71EA7AA1320001148381D396818E64B5C0B -716528211306FF47951C04D06CAF35C332241EE3B1BA302138D2BC8E401B5D98B92DA4CB638E -68244DF25927743DD032B613289198FABBB797C2BDD1454BA181411576DE6268804A01475646 -099FE4E867F29A3130528D88AAB4B6A20A94568BC6FDD2E22608F988DDC0239F55236CABCF1D -6E9955CD641805C45AB3D8B66C1DF4B14DFD2E2862F03F1BBDA3BA47B9C069C6992BEE581734 -993DE5B212F8837BCE083DC1D1392EE7B917D7C337833DD53BD21CDC82CC65E6755E1262D174 -8CF577F461203038868188AF04C00B4171D8BC9F51D9BB643EE1B3A98AC9C93B11F65A6068A3 -E2739A92A2DA710269B28532420BC5D5EE34473817E21801FA8528F71CE24CCF440A196B4412 -53D8CBD8C850B87E9960906C41066C820EFC71658B3A291C32F8F9CF20A3AA6524CE8560E94A -FD49A97F439393AC4B0E4421D0500BA401E782E36C98B530572ABB0C87A30643E9F2ACD7ECD5 -8888FA4A6607F4398828BB6E4BED6B79E3A5E722F9F691D987AF76B066CF9F4D2C3ED9E5EF13 -72F6B14E4DA79C1FB026093F190F1D68216E12E19DD6AAC7113286D7ACD449916807E8B53A1C -CA22E0A12D5DBD77420389405873B7E645253FD39EA39B995A03D6DFEC96B8B48C55D603CFC7 -0661C5CCB1B51EC96B3EDBE036DF3EE2D5C5133E1C34BE4F3DA05E6F66BFB4772ECA9224B96D -C1B9BEB7359D330DFEC7DF23CC93E301DA51E425D371E476FF4AC0DFD6EEBE588F9B538A4EB1 -E51FEA2BEA88CF96B0745D527EC490430D3B9972BB51A392927FA9F1CDD042E0053B5A595906 -79EA634E811DAACA6D37912BDCD8DC5FA3F7CD9ED66FC8A5B3F7AF4249C80A4CCF74A282859E -7B5AA2C4B596680602948BF93FE0AC6D58E39E84D6E32A05AD72D45D019740F3E16FAACBF598 -014DC692D9A93951745978C2CA5204146C00C9F1CBB3722F9B0984E58988598DFE56399A234B -1D43F40B76ADBD9AB561FEFFCAB828F3200DF156247941A1E1A4963917D982743EC39C45B8B3 -566816058DC6D57DE34C220920916FBAA88F4DA858B39F75246CDCE62265204E387FC29D0F2B -57F3D295E53C1DFE2A79E57F26019045EBFFE23A21516328B3D03D79DA8E4B4D9B3A81587F04 -2DCD546D66C77207C348E65352038AB8309086A2D8F3200FB92A261B8EB4E0685A821C791A59 -A7126CAFB78948D3BAA23BF1425FB5487639607627E17BD4586C793B4E79D795D17809A553D5 -D4B683642D322877C233F5213E96C21E678A62C6983EB8CD728EFE8BE1218AB96398E4DCC050 -81526B3D75588F2B2B533CBC1B27228472173B1C3F5016B69BC184E43743C2BFE6A195343930 -F43FB87404D97B7F4169D6E028B3BB1D50512FAF548FBD4A1C03EFFBF531E5C60318A62D01D7 -D76B624B04893A683AC60026CB26C1B602917FEC93D64FE2FE7A6135C199457F691E55A198E5 -79ED8B0AE2C739EEC7CA310CAADFEBDC8F35E4C30B372C421C0106DED8EE779CB6178308EDE8 -5A38DACE9DF601F4E932B84D3741ACD201F58B6495EF45E70747DDB9D3F40D12721C2D5A99CD -DBBBECA5AA4CD4C58D15141CFC6A38FB7F7F0C38E7D7C42B474FE8F168E427BC7880B49E070E -B56A696C34DE5C8C923124FE9B199FA383F1B8DABE400F9EF0D876E907F09A9F906E2AA2E6C7 -B50655815BCCB1A566F142DE3000A7C8BBD9199CA33BF93307883689E8BF881DE7968578EB0B -9FEEE5DF8E8C38A075FA9BA716AF88B76B8D4C79C2FC2DECF1BDFCBCDB727AE5256F5F425C3B -CADB2DEDB92D2F1FD0667CAA54EBDED14C214C9C518F97F57AE24EB00B95013BA7D239E9632A -81DCC2FFA6C1CAB45256B3067FA7C08A323282BAC8623690F07AB6D81FDCBFD46B2C5DFEE9B0 -9957F73CBEB3F84FC30620F69149D1DE995C8A9B4CCA8D3BC235404F504E9D0298325F4F1F37 -030836D60C2BEDA56C6EE7CA68C4D8DBDCB71BCB8A9A0D5E3B0C53099C6269EA60BD0C660408 -CBD980324E85925D3ECC134AD54029B586F9E71A0000DCE78F79CFE0CC0FE7F8F6C28B3C169F -DEAEC7E7DD6BA54E38E0469B3D3FC38E4DF82640DEFC274A16E0D270D735491549680FBCDB66 -4CCAB05CF90BEE24936A0185EA3586606647336CF7859AD95462CE2D53DDCA04E6395D104EA4 -488B3FDDA0F1DA0EF90117D4265AC31C5F7C95F9215E88497EFF4638C8769694528A6D2F553D -603F5E51CA84A6E9F9E8E3E422901F8D08EAEEC59BBB2F0833646756E3AD68F99F8E35E5A808 -5FC5615ED23044616B6925B486EF4B5482784FF6C3CD4AD59D56573E72A4B22492A1643802F4 -34B9E544D8C225D60B0D476B10801B36D5A50F88044CD29A7706015652B33DAE5634330166EE -41DB0C8BAF806DAB5C612AF35D1562C3F9C02FFBCF3D10CB7CD1B78996809F24A9C0A48B988B -4870AC89D324B847E474080DDC66920A3931A5A3CC60E9F8F156046AA2D3AEC8563282146242 -82D9A186B0AEAD3E4E2D10F7B6F2E0F651F1EA7D3FFCA24BDB900338B413AC8C700EA366AB8C -0D660ED1002AA5A0BAABA5E46C103935B917543481D7B500BAFA2CEB19190A4892F38972FD47 -472D475866CBCBEDFC023AE2C349104123CDD3E8371F24F0800226B2E3A2E93EA9CBD3EC5F55 -45BE73E7F39C4E48E2EDBCE0E411A3DB2BB7694B3483B5AB48211871B2C85CE0B2E62F7EE8A3 -B2134076D5597ACD56FB09147E0E0E5E3AD1895E82E963D8E9426C285270AE584BED38C7CEE8 -35B27F805074DD9396A174891F21D7C824E9AC1BC95FCFBCB2EEA30ABF6764E9C20FD0724D7E -DEBA89AC1B270247DF8627F197620F284D245636609FA292E8CCAD7E9934AE8D6B7C5B088D99 -C40DEAF8E02AD17887AF61196F0737B73A987F58FF853218B534B13C933B698350DBDF1CDAB6 -E4E05CA791BAD452FC19D20EF20389755F0CBE98BBA067F30563D328B7C0544743493F03D878 -38405505C9A6C15C774F1B3FE495BF45B1AA1BCCC4D017275BC7CDE510FD7EC069B390F44182 -EE6716DB89BF44C5269A3E613B0B1C01EBEC732DDFA64BFC6F052D003269C4D38A376F4AB976 -8CAF37597929DAE0EB0ABA0FAB8C420E71E87784B6DE7FB4438F030A2A3FCB5BDF885365E301 -3387BB01F1D8C20804D0BD8978283A93105EF03D2472EA8840D843E2A4C7AEAFC495BB1B840A -3F3935364FD44BBD3F5E5F8B2CD02B430E302DA1282949731FB3A5E5154F2EF09CF2D32164F2 -B16924D0F6590E68A3576085AA0F972B6CF84A434406C92A31BF9C4BC91E8581E18ADAA1E2DD -D80B722678AFF6125277AD32573CB8C8C4084B7FA62AB022406C64C95F5FA9953EB91A9E92B6 -E30697F87841401D25A240A708A4B009695A834188DF1E44D414026BC4FA9813EE34537CA803 -DAE373937039E03B452139F4E7D13618B31CC2C003B88D0D0D657C878E343F9433C6CA06A330 -8D9F6EBE5AA5362C194CA19C5DCEDF08243A432185FE1CC908CBC83314B8359ACC8ECF7DCE57 -60DF055351DCB7CF5F47D8A8CBE924772A6E70C3F4DC164946EEC3A7E0F9BD6BED2CAD96102E -2C1DAFBA227827497C2181F090AFBDB7456C72D1DCBD28A8CAC027A2E82C0A71F4E44D0F9587 -C2F88F7E0E942B3733A18C40E73819350C8C84CE3AA522242F8178FD4FAD997B240BC2819EC4 -9A42A9177556AFA02D2B39D2D90341ACFF8EA9617F1D2C61BF3F6DCF92DEF592CDE9B0B117E6 -B29178ECEFE8863CDC7EAA583D7E39459D496A9DC8D34CF79915063D33489F1D1BD3A694CBEB -D9BC2A320C9EF41E3626279AE582017B7AF1965898EF42FC6207FB7D20EE30C151DB3EE6FD88 -8FCF43ED10B2E9567389E567DA4A4AFE6A34E6DE1705F07800918649F583A53F549574F58BEA -5202324F628A4B2F2243BFA133DAE047212E5C7AE8FB18B6D0F017DB350847BFA035E532E815 -CFA2DF86882A794C029F943106625A3ED6FB7B0E772C1452E9ED600FC0FC3F7FBDFAFAF099A6 -E26D820CE635B61AE71ABBC501494592F5459A638535F496E177F9627A4BAC71FE9EC2FFD805 -D99FF60CF739A4BD1A366D6BE03F4BB4847A11BF0397F3F9D2CE5A85658788AA82677E804550 -EBFB67F866B7A3F67DFCFBA577E9FB934B080573A88E14B21A89EFD6995B1D0E5D1D61DFB35D -34A96EA76D293822EB6DE96B3A3C5F0B977489CEF1D05F46EE39688A2874CA7760D78DC13ED0 -70B44CB0DA8B50D9DC1919594DD70A4B5792B9FDA03F260EB47FF4B8D5E0FC3E616A5FD9D763 -130DA91B0181918CFC614DD5E65B00EEDFCD8731C43F117D56F1454C85D1EC1616CD3978F96A -F0416A10939A0EB124AFAF6EE52D53ECFB645F9ECBB012882ABEE024332363C32BB2E50BE0DA -389C9326E78AC8035A339B9927FF8991A077CCE8EB1C50575756BBC60109B3EE937A230C9003 -EA0B81D1D718365763FD57867C0EB91FE3CD3A2C3C9437916AB724DE7D5662E9EF1ABC425432 -BDE4AAAC213F0748E909343F04247C350F0A99919A8EF864DF597E94D40619FF045397F096C7 -62B269929C431F13BD59AEECF78A9181C81E36EBBB61F72017C7EF5BE0BD1E7BFF588BC80F77 -E9B50DC9F2FDE92273380C599E599792C5E84CE3384D7E1ABD03EB374316A483153B5FF4FA5B -DB2C8AD30FB3D7D590D87177B3F2854BCC0245B7DE021B305FB08C0DBDB6D435052753D0A64A -C0CB1CE11775544FF90AB7432C437AC469244A18173C734C6F09BC60B67FC4AEB99FEDB78541 -500CC35344A1EDF18284219DB4F0F0AB953D833CB34EFCF77ADFB0E17F87CD2E284DA72FAE6D -C1FF838452392B3E28AC5B996785733E84B678D0571DEA9659E43641775A1C7C5805C2D8F6A9 -395ED6E59BD8B43DB626921F6F4B2BAD7F3BC28E2E7BF13ACABD446103D312A80F3EB936A695 -D15628F30C199AC8C889310E3BA85A93181DA5F1B627D5BE34FDAA4478919E37559E8DACE99E -3E88ECE2C944FA2B80A765F67D30BB163551EFF689CE4EEA56E8C7E75614E58E46D96D7E68FE -52C8BB1802C23EBC38FEF83F09F98531C9EA251D860D03A5992B9316FAD00E83468EC31F7DFC -2E82A053A8587E5528C834ADBA32BF1DC9C8CE7EB3E2B27F345335136DC59724B20CD4D03D1E -F43C908876EE95CD40E20EFFF0D87D1D8841B0F78325E8505EC0D979E7C59A7AC25BAA49692F -D84AFFC210841968DEF3199009FBEFA53143E57D13F0E13A3461C35E029C7E9F9FAEA6122988 -B94CFC188F5D1A3936E65D862366A131AF87C2D8577484A07EE2AF153FB10A5336BD1E521D88 -45486843A05D150D997D4141CBF5E2E0FAFD74258D96B6117B47A3980BF6EACBB1FDB98FA888 -5EA99880E3208C2296B03D9C3F667AA940EE32DF78F703FF817B04E8B92BB94A3410F2AC794E -F3BC4A639AF79882E9E359E90428EF4F5A368DC099CC16A1C7097DB00E40B3ADD942C1D7CC1A -49F098DED6DDDACF4C392E8F915DE5BE3B5E203C6EBAE3BEFC59CC11C7037C06650684C33040 -AF6B5F786F5FAD7BA1BD197D14B00DB53F77A836EE8FC602D0FBC5A5CDB17518CB6EB2E26364 -651CB421944E6DD7CE1CD6F713B7AB81FAD6C63A62CEEB55F0BE006FC60BD8D0CA164A726A29 -C926420BE2C61DC210C9D07A14149064EB330669AA59DAD680D649457BFDBA7E11C480F96E91 -63774B263AD4F7D342861F24719A7E3193049DFA65840DD31BC86B920EA0D93C3C39DE6C802C -50167149DFE3E496B1991F44D776F7B06A2B88277E3377A4438114CB221F8802343654740D5E -802D45E98EDC18CA600C70EC0B8738E8DFB00988AF309783860FE2BD59B963B5188CE7704C28 -109207840BFC67C90612A805017D58590BE955CD9D5819BB68602C28C855030EBC9B730D6EE4 -8817E98EF61DBBB90E12D37FFD97661F22DA9A0D0D9BC92B616B5EF73DF50BD5255062B3962E -D3E045B336203AB464FB772787D19E255001CC653F78FFB216981329E761AC97232000D8CFA5 -7D56C5E0727CE7DC0312BE3D9286CEEED5B6628562D238E126A8F7E725CE058B95EB443055EA -196DA55C23B75C142ADF9FF563854750C137C01916B647A70E225C45D097DA44BD9FA3450030 -F0BAE7B6C49FEC56F1C46142A482EEA042B390A09C081E7E8BA30EACC65EBCE84354B87BE037 -1D772521117D7C50EC4F3E844C2F6F367AD82646EBBCFDBEEA2B73D45774BB8E9E448717E2F7 -A0F0E9E8C2100156E80003D38309D323D0E2D621EFD8E130ACCA127FFF21890D893D160E23CE -E565EAB67FBF8B235624847B1EDA648C32C03A82F75D373AB57B1831DB0AD8977AED7AC050A6 -3E64A775D1100583E6147D357E71495A8007D1F3BCB2DFFD02D7B7622B988F6E7DBAF56A24AA -411F12CE08B85D566C92CB247C21D24CDCCB398D438EBAA618ABD20FFABDD6F0F7D8AD11EABF -9B0879B4D6650326F36C15BA91A28DC440C34060504ED9BE3EF9BB7A6F950B43129E7764E109 -504DCDC16FAAD509D552C802CFAD438F6E2D07B8D07F2F000E7275110DC77E8533588676AF6C -64D9896EE0169005593C5313AAC85A206C5DEF50D405F2AE060AB229952CEC92C7BA18F788A5 -C39ADDC8F4F0AEAEB9153B8E29888A33246D017666D37FDB696C3209A7A31697DDF05EFFA470 -81F36B0027977D6B3761D7F604FC20B4E13FF8832D4AEE0FEB7C872B5A87EBA8BCC76233ADE3 -A14E8B192E38670A6C3CC103BBEBCCE63CC3BA7AB8870C0795150035E5D1ABC25BE4E5B41D82 -539C039B5A438EC065459E4B938628FAE5197468044BBD5164684C27F81363F6A5B389D9A931 -D89E0F2311DAA33839FCF80B924B74FBF0A54214F174146EF2E22058E9690007159E2DE0F213 -2DDFE3D8EDCE2CAA564C922B495FA13836C679A1B6D5693C5E744007C7BB8199E9ECCC2084FE -848357CE2017565B9DD4E0C2AE5420DFD7C6991BC5209D912B806BA90FF5EC918DA4BD903477 -97D0CDC78A61DE3FAA085D2AA0BDF1BF71409FE3E964A564C01AE7818549A94EA0851FB49E23 -2D313526E907B744A792DFEE6C6A42A73203B9AC1EE9EEDFE157A81C08D9C48CBADB12C158ED -3FDC45379F44B4C1006E6A90765CB35FE8DA3BACB78032A8F9A03513FF973C4A9449711605E3 -8E66F1E2B6349F163B9CBE6913723EC1F0B78B9E516D28BAF4B62100A49E58984DA6D4F18649 -77F8D59637B934161B4CD9385A5A291C0AD61D58BE08D1676BB0EA9E3DD752EF9B5294D85395 -F42E1605E3C37452B51C1C459587A59543060701C42C9F634794DA4C658339C643DD4077FBC0 -56755B1246CA2E8ADC161FA9A0D628586145863EBDF0C4AC9E1E0551BCBD484C03AC06051ADC -0FD612488318EA8FFCA5A10A23863C4C3616C69080BFDF40ED5F2AAD6AD88171F3194E625ADA -61666A3926B93B5C8CB28A4EFEA2758E2872C4533D75A0528071F33B20941CE6C8AB8FFC57B9 -87CEB0035B429C7CAD5B9AF1C845EBC3F2E1D23DCD0481E41DFC465A7B256BDBA47F605E0E8D -852D16EB8A89857D8B14B28628B2B6486E033874DB05CD76E08D35445734C4AA33F11FB0FDF7 -0F63419976DF949B5E6C9783707B521585DD2052F5116076468206E8F7D3F7B6B23CB667BD54 -439AFB67D7C5788299260111506C691B6E7D31B32706CD0D4CA79146ECD7D71294BEF456DC01 -FD73FDD624ED688CC917FAEA15DE8DFE9592F8B8C6762699BD92F1FE4A1C12C5F94E025F820B -77B8AED58F6B071EA61B84A7E3CCC480BA23BEB3072FE1FD72D3BD7DDC80B73499A73A753AF6 -B0C11D178A53F91290FD1F137A4994A6F005695946919352A675742867A721839FEF0F2E1F9C -BDDF8A7A9BB3A8342CCCFABD409F2A3F8CA72731412536BAE52675D2BD4D8465F76179C2C0E7 -E54FC5BAFE7B1A258966638F8CA156E08E6A3E80881DE5A48F2B88A7E55AA754013F48880099 -800EE212FC502C1E8CAB510487792BB86463AEF0B4E332E0D0282D0003D149F5A1946F17AB6B -E8E30C6441515F24B30B0423A4816BA64FBE94404DAF0FB1215675FFA8E6B12876479570B0E0 -E333E65C2E6405FC78A378DF96A7C2456CC93F3C6F527A5CC8E839D69BD74D6979D9F4E31E5F -E9587359F88B2053D1E6BA3009FAC2BACEC388755A7985766ECE14A92BE6D212B6D04C2F2EE4 -5CBB275D115A6FD2F13588A1AFF8BDB2F0B438123D1848F65B34D900DF8F586AABAD66294946 -AE77D33961F0C6144A2AE07F59441BA053F98BFB3F8DEE958CF58F4B14959A3840887AD6634F -42059F635AA04B8DEB7880791CF234A9526F4E8C38ED522CC55DFE5A1CB383403B95C0D2B4A3 -FCAB84E4FFCD5EE4B37A34D701BAD221F84599BBBFFEE023CCB7B3B83A4CB12AC762BAD85274 -F967A17ED5875CFF9D4F59394D19433F46AA18FBFBEA463A7EF0744B6BBE3E6E8DABB962304B -936F37EC943D6FDB7137CC163E6AB0911CD4F56AF491D23A8D9FEF33F38FD287051258AF9929 -31BCF707D436098BAB6A44FA2F7DFB2732872984498C80A5EFDAF54610780D7F3D49A10DE5A3 -ADEF6FDA84E63637E763DD4B42FC8F02BDBAE98F2C98B903A44ED8AD4EE00C0A136E414A00F3 -C9F675EEA57480AFFCBFBB82DC554322EC1B92B4E30164898FDB74729876A70346BF1EAA50FB -D9ACAC19C11A8C38CBCF98512DBDE35A42B0D25569CB6D6CAA09E953D498C6801AE7AB46A85C -CD3968B42DAB1C8077D06F3D4491D045859DC76D517C6F5681586B177B4091651A638AAFEFB0 -6BE4C199D12E17C511CEEE969C1A78E0A60A047D405CDE3FE0F1D251B412ECD8A942C3D1320C -2C0A1399AC3A6470E653ACC2539978118BB9EDB9AC008885F332F32F8DE9C7A1CA37583DCAD2 -E4F9866B782D962DA2C7E8568A22783692520697C2F14ED8837236813B0551805D243BF840C6 -5EE64DC8C501873A249CA9456EBDBEE757BE3B4FFD504F3E9A1E5D4C780B536815B438DA9746 -CFF5BBC79D5FD1F2A6B74C9C990F805A53350112DE71614E213004F0D08A16BF6EE8585E665D -5F8560BADE968C4AFF2D83593DBADF97E467ABC7F86E08D258B41FF9D420C51D50477B82CC2D -CC130F5E9E148B0463B34783F4A0B7AEADC9D3F76007077655A717B4CE1D531272049C375336 -E93373CD849DDB687BD9CBF187B23AB8B609EF04D2FDB5651F4DE2E86F7CF56F8EFF6012D584 -DC5E9DA8A142C0444E67277D82C184D64A0A37064D60C81A481706AB9978E636094397809849 -34972EDC3DAA837F87541FD2D7816DA47785F4D698F80E2B78639A737AF3752F4812E2ED6D63 -42B4CEBFF07CDE5C2DD6A5854EBFADE5D2EF838F698D2E4822B56E733F64B3E8D95817103E14 -E505D24B524A24F28DD46CD0F08171724127A7E6798149E74C539510B695CC8F49238DD0FA9F -678D49E9A4CA5783256C1AD571920D32F48BC5AF24F43B49ACCCB942788C97669EC484EC3521 -B372670818158BA5D800AAAF1918D8ED555366FCFF2B1251588D175C539731B111C876530A91 -01AF7A6588E40DEB8358D5EA7E2B91549BFB9EAE9D696EE444889BFF8D45D7C102C9C8A01457 -43EF52FBC26394ED5B7E281FC904EEC9F473009B25FD86D615CB929FF63B174E847E8D7CEB67 -3BD06BDA87BFF36CE0509621C92A0832F72BD04195FBE2123FCE79DB0AA25FCB6ED7CB52689F -A826771A9C1B16FB2B891844F2B6B243E24D98527DE8B332418BDBF555891180493205BD29E8 -5FE5329CC89ECB5F0FC595851B4D28AA0E20C6BAB917C9645A75EBDD3A357C948D0C37B6EDC8 -1E0020ED5616730AE1C4513B8FAFE23B2561AAD86EF73F76348EA5A9E5E25D561A8EE52235F0 -FDF9A3C47457E89C1C36F7FBC64189E932010D5A4A5147C6176698C2DC2260F2564ECD3902BB -DF0AD6255A86F3C2DE0AFB9CECC57EEE134F5BC8A89436F2A3B80C7C3E4415A2E0D4AB76DA13 -582FBCA43E33A33E05AFA6A046890474B3CBE0E16A331A3834428D5903043F465995A9475163 -0ADD042AF3DC3F1580E560660005BE7E906C227AFE15E567673B17793917DE63B06A1AF4B399 -632CB301A0E2011A663DBE86E9526531808F7A39056EEC2A2A8FF23DA306FCC6DB792D744336 -8FD6795CB125911C6EEB0A166D0AA6E9B18236D3BAE9AD3AAD120FECE5CE9AE54CAE0F0E65ED -43E7B63BFFFEC1590F3C87CA4BAD2746EB3FD0EDA3913578264180C78445B05CB9C246FEB06D -0F84B2C617B71B9AD4E1E2594AA2F65E64DA240D1493B93A82101EF8BBDE211A528E7EF155DF -1DC4E44EBB3D437E082286D88A91B2CFD6F9EAD3DED451FAD7F393D6D67B94C93D7ADFC697D8 -D0C0EDE7113A33998FEBCF1AA3CEC54DC63E0796DB501EB65B0E19467A0FC5542C85BA0C7879 -3A46D6A14D2E87ABBCF9845D79272CB3833051812609EF1E6979472A1745C4749A2FEBA16256 -58236C48A5AE1ABCC3941F5BA2CB7DC183ACE9C076C80074DF8479279D3FCDFFF469AF5151DF -14A7BB05DAC1831E36CE5CDF0A8E277893233C1AAB0AE11E40E5E4E7EB4AB9094EFF9BC156BA -E2C033D6046D7AD8A35A237039DB7FF76F9D4C982CB252A8CCBC7DA2E59EF963E85983C96B13 -BB10712CD75DA7E035F5119E9526527AFFE6ECF00A92954B318B41F8AF15619DD478F828BC2A -179C3F6B63AC6A2D3779C02BB70E84F20CEB490096F5E2B37875A58C9963B7B3C83035FD8F68 -B9CA99CB705AB8FDA109D85E56FF79ECED2FB0F1162F8F850AD30FA9A47C22B65764594A3470 -B3CD1CFF953312ECEEF927B8E0F1F98429C1757888ECCEEB5C225055654E45DE3C9DF0BBB7E8 -B3F16F8FEDF2D29C16652F293BF2E4F524C0804BE5F204844EE53717EBCD56237978BB6A04CB -683A724377D77B364C2C4EDE6CDB19E3FDA15FC2B0160B470CCCC6D762EF5BBE366A014E9EA5 -982C5C4D05D9FC8120C77D31FEDF156159F0E5B31ADC2CD40CE244EE14DCE0B189F635F07375 -249DB7965E942148CB9B4A08F4BA36665A80726EC55E07E835F55B33D7E96E4BE6F450A2246A -352263D06D7D5298F50CC6623248004D61250B7E4A4D69090FD80F4FEEBD4499EB4914280D4D -FA6558BE5C5F15B430753B4375F07AE6AAA2881149A932D9D9F83C32868356435ACA7A88FB90 -BB097D1336D6C825BEEBB14F8E230834DC73972043975D3914E64FCC84145595D5C92E0A975E -443C38324870C6D2498140FD49C57301A1F9DFC0E05ABD7227FB8E0CFC16FDDE247B7CF81C75 -F85E6A2B43124AFF858C502A9303C857C0BB0EAED5F0BE658D74C27129EC3B54E7DDC90250D3 -8C812BDD2116B1D71ACD353ECDB12F9B3639584FF464944003CB5E4DA941C39E43ED93226643 -99B9B67639D67B15D5EF816D00D95F43369708D918E6B05BD3C02C72422727049D3773F0EF07 -14604EEEDDFD1617B69B0F5C7FE7267B1AC15F531CEFBF8DDACCE5249CDCF45AE7092F3F49C6 -B6ED7EC2FAE77A581A4E4284305769F1F93BA368F7222071230365399DFB0280130298FD0DCD -DE447031A1F5595BC4A0D20D21C106E88884144AEF8A38EFD3F082894B3F08DCDFD1CF39E6AC -5551906ABE15DB2DE0B0993F866B34AAB6CB684487898742C271223C6BF3B81C260E96422DFD -8E43C08239F1652708C4442809B872EB8D4CB6070B737F08727DF431FFF403B7CA6A7EEFEFD5 -657AE525643F78D02419616A635D765680994D3F238C50397190177070AA2040AF4AEEFB8B77 -979C60037186AC242AF8A3093735B5E20AED60803AEBDC2FE7A08D446D15F5454C0D7441C2BF -C71A0D1160BBEDF1507BB785C428F938E33E176BF31F9BC774C850B9D58BB5F052F89D01DB22 -D1EFCD0D96BA118B1170A6D97EA85FBA18614F43ABD7C3095A0AEE5D6DEDC89FDBC75F5741B0 -385342DA5CE73CBB8B39F125496ED94634A1AECD5F1C94C460AE197F581083D6734FCCA690B6 -8DF3A1F9539991348E3DBFC06FD6121216CF09E2D983028F0D5C7AF4BFF97200EA4E48F612F0 -6529ADF6FB326BA0D4D9894BCDC560A9E6B3EF5A39D27D079317CD83C07CD8C3C276D4AE61DA -F6B230B92CB205000F4214DC667BF55D038206465B73C6B922807A070C9DF77F1D4DD892A03E -DD9B02C7ECB4E3231EC19F0108AAA69466921643CB2A892EAFFCD8F9014A54C72F4018A03F32 -704744E7D54EBD7717AA7797EEE17199F739B86CDC5A551205662C6ED80D366D5D302136417C -F4F38CE080A7A49CE774AB871C254B8E7CD7C9FF344B25E8D9EEFFA1FDE1093A11B54814571D -D7F4BCBB073398870A357BB0BAA4712E09E136AF057D20F87A3EB9A44ABD541F354662AA3558 -553F505DA49B32D6B0FE30E83AB38F8D62B5EA77DEE1C6889BA728A0C3B079C135EF18BE3CFD -49A49F7175956DFF0FD564E0110663DDA448241ECA5BCB3E2B5E6C1A4AF8654EBA9C5E293BED -6BD28C269EACFE6A2AAC89134458AA0E89BA94AE10DC2B8479D7BD00BD79CCEBFE0B349DF2B9 -31673B3FFABDD21B033EAB8C90B4927E7C6118FF6407E7811BC9B455020953EDAAFAF7BDBC69 -678D6FF1F5952004FC883D9A2834C0D2A02EA4217EEC4903C28B007F94B216CA9913EC261FBB -DFC016949535A90295883FED628E552297DD87F223D39456549A6521D60B12CBC3503E280DF0 -9CD2C188FAC93431DA3D298A897064858420AB2CF73E46E16965582E92089D7CF404004D29EB -CA975CD594E3C96EF273EFDE6936A21C78A3A56B7BE1F8B654F0E8BD99A76EDC01B472D90481 -8140379A7A294E25B95A1F7AC06ECBA0C383E86ACB1710A7B06759842DC6748915856FE50D44 -9219340B0038531047EA591559F49CB663C7D14FDF3A78C285102A0A587E8ABB82DF86C1FCA2 -78640AF3D9AE9F3852D0CF650FC7E6006D85D7C1B68EBF78218688D427E90CEC9D58D0A67331 -5376BC722A1BF2992CF00786F0B810C7A9948FE9316535C248C4DD34EC3BA3E311DB1AB6F9DE -7C068A49EF7F805A5BC7D95AA8946A2B93E7A393C34798775B6744A8E49578A770F5EF438E15 -E7F8189197AEC20FD2988CA6F978C9E08E9C39064565B8795A4CFB96CBCE7630BE7AAB7E5E47 -4B4F44F507919BD340812610FC8FE8E5863000210E690417897E4FB07ECE69B6C0FE4D09D5E9 -FAC83C5B3185E749DB3D9AB770589743E5DB19AADE21826BB2E31FF0F3F5CADE31E675010078 -EAE72B0E5322230E934AD1318B63954574A252037BCC8540CF7050544BB773EBC6A9253C54CB -44A0D4CC2D1B0C98F2B485F0B207297481E1CBC9AB1B14C4B2C40B0C6F816BC791417A855EFC -F25322FD7F1C1A207E37B292CA0AF4C49C0F589780E0B054FA3585954AEFFA045FF9F8C0AE8C -7BD9A67090E89D19E29CB28B46937F24236A7D256AD3579AF6F2B9337FD9A39B9A96FD39513E -1F8F032AD260EE2417094ECB693C6A28B4ACD00154B583C23351341C9E44A9EEEDC9F36E7DCD -D77FDCDEC946D0C096EAC4DD00C6E487CB0FF4AA361EA97ED0BB411A4662DE71F9B8702F1BCD -56AF6AB047C91E8ADD27D88C1BD64FB525A47C46856B7CCAE816ADFAE843F23C6E4AC048FFC0 -5F855932841F8693BC20846AB1C8B20D7C12C95CB8C7B282286D51DD8BA58267CB2E849620C9 -528622CA5400AE50306B64CF2DF37F05ACBCAB2E6C2D6A6A28802E0D2619B8C1EC00A3F6794A -BDDB6A4154C2565E05BB7605298B8B20F483376308865C1A6AF573CD54C49F5F5DDDD57BCE99 -D2F3F05D0DD37C6EC560C344379CC682F38E7E3AB8EDD7AFD18F38E2900A2E3819714E4EE14E -C14C2E9ECE6E143118A7D5822A4B94F6113E6B4BE0B21FDC5998C6B4B235B2273C79EDA76847 -83B3CB10B6B9868875123E4FB1474ADF7264CE9C2EC4026D32EDE410B3372F534766B5C44C4E -73E316783C6A80E83B67BD976718DCA8D6C1D84793E4CA69FDF3046AE1F4C101A674CA867765 -FD61AB199137D3315D5B1048ACC8FF5110A8A1BC4BEEC335A5C73BDCEABD2A2404591DAF57D2 -392A56CCF13265EC5FB2F0A2375F78F186F061EF068F1448FC5F7CCAC545D35F4F97FCF8FD08 -AD0F7385F233098403CC88A0E42BF70ADC14B7731F55546570D5352AAB6A5A36534524087776 -BE9452928F5E8697D1F62FD9ABCED049181DEDFF6248C51DA367EE45A1DADB3AE432EA217623 -47084696BA79E1B6F42E6CA01E9DCCE4FEB1BF6FEB468505DBB043441396E267DA4FEF8340A0 -53CEA45438C401117270D30C59523BF3AE8706AA7BF10DB067659D736DDEA45CD81314A7743F -EF6235F8101D7F138745260C6A9654067AB7F365BCCAC5A11AE174EBE2C60BE676BA82FE7506 -290F3E126DB3F54F71BFF1648646C6F7205CFBAE3D26C7306A4C27CCEA15ABFD53C84231489E -1073C549B18F862F4373B6C6A8FDB0242E689B448CDAB04A199E552A4CA8B2B61DC5F5B02C33 -0FCC582750119B1BDF702F066FA37BC8067DBB9073963F76DFBD6E6307300A7B6CE8A4FB8C41 -872FB111A11E46EA28C64626AA9F648B08762B4F902D1AA68AAE39647137F279C5F7A2A0BA50 -C2FFDD1B1228AFC2ED5927B89FAD2A00A0F8E86E378899AD700C1629CD41D1546FEF36DB15B7 -F72FAFEBDAD736F611C4413CA25C3872F545A347366D39F0C519DD9EDA76E0C9E6F7A401CE13 -78FC790A232DDE499A5993976D53BE9C51E934EB98B2C168AF0675E34548E9BA6C1F95B9FC8F -3E3860297EC0ACC185CFB83D5D2B5927DFF7BF5ED23B19C32BC27DE98D52FE036AF54B01538E -0E0F9102C0643BE5806E1566187B43FF0508369A1063C486F304F72DD02D415216F81B0CE343 -3F6816D779454C922040FB78020F37A27D92B5CDABD19730866A27C9B50478B5333073DE1DE7 -F6C5394D57064AF101BFB81011F44E4113E500453B4148AF9A0C7C924B7BABD5508D9DCA234A -CBCF755A8CF7FD5025B229B1BC066182C3B021D1E18C5C2CB8EAD77C75E89B1445F3E3D34F81 -F3E1BEA24811B33793B772A09638482C810F63B9FD994A687AAFB5B48382DF22150864EBED7B -4527368CAF42F324BB14603AB2378D6D5A6E1E0ACC6A8DB46793E04BFCB160C4F5C7A2201C8C -A7357FDE0B507992778BF9FE585E80C87745C3FFAC80A405ED54A7D18EC6F5A2F04C947E52ED -67C3F564C6270F660E9437835F580A4BBE440839A58398AAD8CBFA09F61D4BACDD4BB8A6D1F9 -95380CF19CC39CDE54AD4884015197D24A2BA517672606E97459287F5A437C071EC5FAB5CAEB -D9808E258358E1063A4A36CEF56E8D6520552942078EBC1537F3FFA29D3D8A0FF07FB2CE8146 -2375AE352F78DD20329E5552D680BB0BEE7F9503EE208E1DD48A1400A036EDD09236F90BDE0A -E2C1DCE2D4650FB05B282D7438D80A9462B0E06E03D40A7098FB0CE8AF940B2CF1B210329990 -3E4E80252A3488533D2C369E44C97B390BC7E8CFE23A0B9A4E6A155B08AC459E593512D9FAD9 -6EE7D32CDB64AFA27FC427CE1153F2EAB49B14B5A226478E515AC879CF1495AC7329B02CCA3C -0617BEB93956142B598B8A6BCB0D484301661D81F9A853F288BAE9EE98E0423EF7A29441D052 -91BE803BBB70341925EE9B228015338F8D406760C5D1C0C5571640C5A20618CD1A3F265CAE9E -5F3BFC5AFCFEE9BD868D54AA845E9B538E73C2EBFEFB63746C98C422CA343D8A73BF2B8DA0E8 -8CD5FDAE16D6CC301F3904FA4FEDE6BE2B37DC6608DB326C01B5878FE24D1642E82A4D2A09A4 -97004DBC7D3CABFC81BE3E03DEFA2D974911C1DC05C5E47F24D2A170561CC3A2E2333EC6C3DD -E8A211B928F72553891DA268744C72AF6C14A8E093A01E7867C09A7803A7601F426E62B70A43 -43A8423EE5039C786BD5CC9105B959DE6DA39D129A14560504F3B8954F66337FFE4B9ECC8057 -A46222B5CA00C9CADDACCE86D726CDD32F940FBD1E19B5C738F9B19F2AB1B7B9E47E83A27F13 -6E2A5A54C22BC8E600656AD499EB1F81985837B060408CD28AE4827D7F3A3B7CE02C891290FE -12FC5B8948910B74FF36D60EA4E474B07751A97F1DC796B4B7AE5795E48E5FE1B89561C53580 -B7EBFC7FAD6B3F4A072D62B0D311967547C45360E268239E165D03E1857857BF6619FADFF828 -D99BBD0F22332E8DCB5FCAEAF80EC433A90B124951528E0F064949A687D2D10B026440C5C895 -97D5D3BC55FED5BCEB7FA14FC4CD6B398A3EE5A4122B6D386A71D6362BFEB4F9D5FEE8B1C639 -CE332DF25D5074AB0E6E2CAD824D920378153A2B5AEEFF80AD01058C2D28069F45AE06FDD46D -CB5F172BA5155089DD1084ED4782588976C3B3BD70952F9FAA148B17015C2281D9E84A030E3D -A6C163F871F255A5A232680815FE61D7AA0BAE319CA5E7B5376583D56BB774BBC12CBAA63EAD -8751058F2518DF20D2C7E9E10D860923BDB4D35E040E8EA9D08C1C0971DE3FF74FF890960014 -969BD78FD5A8BDECECFB12F0EE33D2F6E4DB4EAFF99B6ECB750428214EA7B5C2DA1FB5B7DBE4 -E23D0C7B05349D732734A8D20F7F1FC183462400A23AF0E81D36FFD34816BC6DC8E64D78FD72 -48BCAED1088693AD0B0747543B3F0C277E523081FA9CED02E69B9F972F01A46811B7FBDF6133 -A60D2CC1A3F15C17C82D1C01B26DF7E47B93D03EC66CCAE58611BDD8071AA32C5E43CF2E15E4 -DBCC35B4F034CD27708EA3CAA940E6BC82E36818245C113F37B95D3328932E425BDA98139DC7 -15445893B5BB5744B6CCCFF6F4BEE7956B4E979012ADB3C3E3D0EDA59474820E52DBD53A1A9E -98369765C9AD1EFE0466E06F07DB539A5D39F40A872A3ED0C8FC6E3452590A1E40AA218616E7 -639B92013AEC9EE2CFAD5144C5C20656D455D76E01E5824047C80FF02A70A06A4A9A7A6D73C5 -1AABFD59DD1FCAD1DABB6F4627AA49EFAC964875C059130C248827B8DB63A7235A4A12CF47A7 -0CF450AFF134976D131F7C2C42FD7FB86459BD0FEC300E18CBFDE3D080E599D31730D275DF11 -0F6448AF552D248FE1655C0F556006D57AF6427E603F427E9937D34CCA0AE30202A6F1BDCD4D -F8AD86F1C0EABD5A3F1F54A461F41A2194463BBDC241B105445D0714A93094C0AF6A8872F6B7 -BAEFCE3BED1FA622E352A3CBE8E43607435C5CB4C77341C7424F30C408FA3C940AE3020314F2 -788BAF84A7125020FEC236D91AC30EECCFC7E60E8E0240F9BBEAC64E27155FCAA8366DB0652B -0445A885F8E046CDF96BE8F727DE8EFE6F69E654B1884DEBC39C2CF7C8B0252DE7E1B2F65445 -96E1AFAA06176AAEF31CA236B8037DD3DD12EBAB7DE0983DA363F0273A31043DD1B0930FEBDD -B868BCB7722D36560C33830F4C3413B8F2DAAB8A5D9985CDBCEB9B11AB125FFD6EC6AC7C014A -1061DF96883FBE97A0B4A2CC7DBD385CEF74CAB0E8309AA8A6CD7906D967179B771266EAE91C -F1CD39BAC04DC9711D3A9CAD9726E0C79A95B7465B53AF4BA94A91789ED134A995948F716C9F -052D6C66D3FA0C793C1E45C04E9C61E60AD688D6A41708B654FE6B15CA510951052A749791F8 -33C274B1445A99B9CED0BB24A0570B8479CA8AC1418ABF21ED95B0FFF8D6CC5E174CD2FD443C -8A4F97E66ACB4812A9358CAC5D780D0134455B4F329F8537CBF82B83473D703663287D3FAAD0 -09A8CCE30267F41F6833096C4CD8373D2B8056A4823976F78C88B1E61E7AAABE7A583E64E9E9 -20B5637313883852AA87677FACFF00C5B8F951D35E741D363330F1C7862A4436A3B68EBC808C -A04D058A645731B19C5BB2167E415C21463CDEC551DC077CD566ED8242129DD7BD62CA135FD5 -97E53C276F95D72BDFCE533E0658C73192E7D8FDF71869A53BA6E4F52092ECC91267CAB1E913 -7700FF8DE5A98BED0924BE6522A578EC65F9BF01308F8B5B063E8EFFFC306C4ACFDF0A6E2B5E -125CB7803F6ECB73F62B0159B76FB0EDD9D190646872E5AE454AE8ED5F5AD9B15295A442A2A8 -3AE651D5743877C5E934D39A7B5FC5F1741A55952F5E455AE99D695C287BE9CD8658D9FD7066 -0BFF9575995A996D65DBBDC0B98FA69969518AC0CA05E9A1500F7D618300FBDB7C7024CD4436 -08CB558F0EDD0D5DF0AD353282C87D3AABDDEF93A1FFA483127195B28BD14BBD1330428399DA -884F3A19EE90AE7F20DEDF900FB084B5F54F0AA804EB3F1398F443FD1F803B8DAF2D6FDE30FA -17EDC57D407C4416C91EF4C01AB3BBBD18E17A49F57AEE47F7E33E72764454B7204C1215D061 -18B97F9BF73F816C374BC90B24A8232E51F5745D3E6C47AD801E1C3D0DFA60D4F1FDCE9705B4 -B238DC4E8E29EDCBDAC658D15155AF9A186106809D9F51F5C225B9F533344E49A1EC56C31AF6 -33D2EA8BB556C81210CB4E1950D12FFC1B8721B3C078D576C5B88CC68AA54289EF64607E2C0B -2A08EB3B6DC526E19951856918D2215829C347D639124372C2BCBFE01B7674D4B5AD6AEEDB94 -240D636D51BCB2B5C0710582B47ED1EAB86EB5E5019F0C51C36F045E21B52B3DE1A41C83E57D -A576EC7E960EB86CE805F93289479192D5AFAD7113C824A777E7EB6D47ADDA717888FE7EFE48 -A3EA8EF4B9E31DD921DC546B7800A69A3A862A681687946B96476C13CF3519C23757CB1F691C -D5C321150C17487F0402A166727449630B65DC14425841A8E030A0240285FBFBB4A22555ACE4 -07D080C75C8504269919ED1082C5D8DC83CEC440282C166642CB8C5CEB083DAF81DCB94ECFF2 -363C16CB8CA08B477FFF938787D40FBF4EF79BCD6D0956B16A9BC459103A563CA3D8ABD21BED -FF2EEFC1E7C795D0B3CAF7FB2FFC27A7EEAC33A899EAAE1E50A08B07A6036CB61E2D7A949FB5 -6F66F143026104CB150C793A05AFBA5D81DBFD97877B0BE3F6134AADF785F79B3248405FB0F0 -0D91EE189A04B7E5C303C858E71B76A520F8521EDF9DF906BCD64E5D956F84AF0EF0D2271E26 -4D21B68B80A6894F24969A1B083A60027782348A80B0A4F1CDD557B561E6B1D16A4D319F3566 -517B68F4D798BF84424799BEDB749420CF4262290B2650CF9FB712E506753B97399C7B86E478 -867E2D2F3558C3C882CF58DE0BB7A26FD1D6783C6089D6103A8EB59D47698AA64F88F55EF77B -7BA2E63538FD38D144654CA82DA2D69A62BF324E858780BAD59BFD58983D4193C08CEAD732A3 -485FA64CEB2AD7AC17C20B9D94AFAD9A7FF11EC5FB571407FEB7E3C0AA7E8AF9DE5EBC1C51C6 -67046FF334CC06629BD8259C8E32489E235DB29B7729B1D7388DB811779D9EC65D14D9AAF0D5 -A86FC52521286CA31DB67E54A8CA3F71F315C18125DB55838843F7A740D09CBA8AE0E08AEABA -FF34470B55741EE1F545B01AC8EE6DFD023BFD8AC75B39F239223ABCEFD105123ECCE772C319 -E8CCB077D3CC661ACCB0B5E66D3578EE5CB1BE74CE9522C08ABFA1BEDBD4FB802615BF2DD8EC -9007701E66E8F24513EAABDE368B438299EB4FC4BFBE8D497C03EC52C994E347FDEBB0115B66 -539C2A9289A93744BC7D8FCAEABA427AB414AEA8EDC1A8A538FA8AA131CCB345C880972E67A7 -DE44912A4ABB97313891B31AD758FC86F642E2F9593AAF6E9D487E77205198413B9025998AD1 -3FBC6E58AF101A0AD6432027B138AA2479E3A7DE92462D2F42E455DE84A4DE38322C5C22882B -D2EA6629A89BFC8BC321EC536B860C3945C8104F74E6D61C49A6512A493441EBDEF726722D2E -C7A1A8F848D0D7E83861D78318A92B0BDC9BA2463CD0239D734158EDBEDBDEA06CAD18821D8C -D1E82B5354FB12AF65DE573DBF585E4F7E6073942F1D2A49AEE5151D61B04FAF210F17AE93AF -512F34079FA171898175DFDFD6D92A705E76E962F9BAE02D750F6568A8555230D3078BDDAA72 -9B59EED7220D2C9B7DE6C044B9BB1849BAE2E6649C2C8779E6FF88BD1D3FBAD7C9DB7BDA4B48 -0A132C4BA42694729536B9C7A67D389D3ED7FFF20FC562E72D4DF29BEEAE2995ED567B1137CC -03240209227AF9107A4DE65110A68C145171C975B72793F877A5607009ACD15A5A3A47EEB544 -E3F83577CAC63824732FDA1A1BD801EFAB50C2BB27952B821D554564D0080E668D4BB2054B93 -57841E81F6A1C98343C1DD241FC5AD2484C683F5FAD0FE4EB6904DD45BABBEBB3D0B5EFCFC69 -E8D2F1A64EE7CA368E00C27B20346C84DE69DB6683CEAF3CCA94CEA24F68E16F4287DD7398A1 -FF2BCA65B2A42AE0416CEBE6F05F9326F4B70545D171366EBF1D3269A1CE326E839FF5FE5F02 -BC2EA6E9F5ECF1457CDAD608850895A68211A9D919F736979DDD115B753D6F94C1E95E9BA721 -34CCC83BBA31BC050C7DC4369C49E8C8DD960F728E525FF4179ABD6D74CA5A2F40BCF44EDC5C -D4FB130EC4D2B4457C41F2A02A1B0955BCCCC2879A4B9B65A746EE5EE89FCC1F178CB551C67D -F3DAF8AEAF6CCDC540103BE0507ECF9C3409361B1746F411E9C397C2D70F532ED8ED85992C27 -8AAF727D10AFAB2DA3CFE4ABBAB51815371C1CCF050B7158F1997C1BBD206D3D75A808C1BE5F -312628EEEE85DE490BA6BCD584F7378BA41C97EE3401AF2127F777BA5A268C91D3FE0A3A5A86 -EEF8739222EF5352981FD5D4C9A1ED57E3CFC629A68568A15CA9F0D6292655A8C0F0902AF5B7 -54CD2ED946CBD17F21E276A204AD4945804FA47899607700B19E0CB3402867E073072D74343E -D3ECB047A8E309BFDCB96A0E06F4448C344D3A3E1BAD38A2CD5F823CE8820771888C2A5D3B25 -9CA4B40C4D4B2AAA29858BC024101C052EB02A4C44D5A374A2DD250FBD15144020E1268E5906 -BC0BDA6EC90523EC64A057D4B8E0A845BC9233A1A95291F8194D3F77FA0244ED8BFCE818F418 -020738ADCC0CB89D7D3A1C167236EE59278B74B36096E9D4C179BF80F75CD0D0601A5121E704 -9EED896D575C3E24180E2C9B1B94DF6E7C4E7FE95DDC9DF05B0718E2FFA8153D81FBD1AF88BF -14CB44C2F3C4AA2D2C7E5A2B170B9841196DD5C05FFC6B5AF61A6FF970B2D351B83A4082D696 -F45F15B91BEB5C9C593F2F35CCBF7ED4E531308DDF2A4336E4327C36837F4A9E816FA367E38C -A9D935B3CDBBAB7A6299638AB9BC5EFDEF4D9F635E4B139719A785CAFB4B0F0200B979AA9250 -9204FE5C54AAE4745584214986A4FD407E99FE8420C2EF6656FEDB6E1ABAA9BC87790DCF16AF -A6A4E2D14CFA3E48C1FF22828A02D0D740C4D4C37741C5CC6872EE33DD7171BC54351B5B4E66 -D40E97FD1CE4F79DC179ACC80FB2D3CD1B7304404D9CF717FAA635DAE480275A350F36DB4D9D -75F590DBBF385593EF53EA3C7DDE37D07ADF1C04230B1D09A00576766E02AE65EFF0E1FE32DF -F0928A5DFD7813A9F0D275BD9B11BC04DC1B1C04A7073851B9A8ACCF1598050A0A7BD9ED36A7 -8171D3FC0F46F29B01F74F95B31857D9232BBD5383F3DDED306FD24D088EBE65DC1628C98E46 -1C59F0AB4C31F543F61CBECFCAAC4EADA4F40096D06CDE98CD03128109796CD6A470D2811E00 -46F3D9B0837940FF7E8A61E6071378D741F08B7EEECE23A605F1AFA343ECDF4BB0CE8D791596 -022B5E2215254903D1D291C928544811A0333E6B6F9D5BE369DC096F33F794B041275D39E801 -E54283A1BC21E285144FDC3F0D8CA11600F9778F9BEA3CBFA93D8DF28E42DC1B37EE6B0A0573 -C44303D7B946AD73C235C2D06C45D23FFC856306C7329B958D94D5C90BF5BDC895FC9BFA245A -A95ABB4D4D44540D23BC5E32B3E6D65D5AC00454706CEA79A03AB1A0AC5EDDEC67403F3C2015 -67BB6E4092A3ADAEF1F1413E67D9E23D7650AEB1B9B138CA3F6539BA5F398C5DE7C915A5ECF1 -F145F0C15394DAB533322DDCF1C1CA704D79516AA7E545E12DD7FA71AA170AD307DD1E59EE6F -2800E8DE872DBEAAB6BC85FEED80BF8D3056C6FCC42F18AF602D6279269190A0A3B19092D450 -F40A95ED1FBDAB05768D8B9DE79BA6E7674A81B9D5ADBC706ED9430D003DF7872CC478E8124F -C1AB7C26BDF6B3F8CF3CA887B9A6F53E3A5843B37C39C4D0B652652D8920F3364F6D5DC775B0 -4BC3E334B5A304AC10E27C97422C20DB856056650CF291637FEA21ACB71FB232D946B137094A -ED9D86AA603E65FA6985BFFBB595EE95F8BE9CB9FB5872A40FE825AEF482836E9A8CAB0F03F5 -68AEDE5C330E4954EEC05E3560A6BA0754395AF04A736031D547BFD796C31CFF58B1E7B7FC53 -81EB1F81BB19A93910B4AFE17AB7501E8DADF8ABF46377139A8FDBA8D32EDDDEC2A6306B8836 -D5D2D0F2FDD3B20DA6265D99BE47D50D4CAA641D3DEE084A4B117A591C133A45EF562424D92E -602D4EFBD34B9B8A95224F091B4E6C62542014B2288C704865293F53978A1759DDEC83C3E19E -8D6A4A4961210CF9A955A71FAC3EA3479298487AE22D988422E65DA8DC6F6058D3ABAD27CD22 -C7539D23506ECB9D9E7C13EAAEF543BEF48076422529347F435EA5369C437C93546C0CD350AD -AB103296CDA4E31C72C9B1ECF5A1038F7F47F4D3140CA431E3F396988E0B21D7B1510969D7A6 -B9E3A838DF0A0541AF114EB9A080F6AB073837EDC0245F7C708F7410C1A4EDF4886B953B781E -D20775693D1CBB0703D0DE9C1BE66A0593BC4807B2145903FFE1AF359EAD4F418E34BB8E0367 -74E54EA675231B3D0ED1538A4721A299DCEBE7FF28787581F82560370C8E2DD9162AD0E64943 -19B1781A3A7DCF835EF3BD6AE8850BA37E6D35EDEF4839519D0DCFC35BFB4C43E8ABBBC2ECED -2A24582B37962580A3BB8E72F689D5F205FC49FB6FCDA1A34B67B8D759EEAC831F3BAB44362F -017F0150B21128326A9EB52F2121535671831284415BCF3B8E403258FF38B70A78B653E45E22 -7D4338D814D1C8F9CFAF1F6D218BEF0BE5164CCA482B7AF7521BB6B6D4BBA67C4277B7B4A43C -0BECD84E3A1031983DF42B983D990C2FDAEE52B5D9EA9CAADDBE83228F181433B1FCBF1C6243 -7A5C3E9A8C98C7A2359E887071E964613EE2CFE9D14FAD5CB889A14CAB57F2341F7877FFFC4F -A51C762FD8434F69D56749E906F1D7B91901057040E082D26317FD1C9022B9E4C8D082671126 -3F6C3488C8AD37E49E893762563341FAF0BC932ED8458A995DBB0CF8610A76C4D6AAD4D42E36 -62AF686E13583AB10E4CEB1210C5E9A343CC1C49E5D01B95E72CBAD5D6A6D9871F3EFE5F70EC -13E2E7C0F8273A0CF21D2620DE6AA073CCBFBB85185C58A39916712C717645165A30790D74F6 -AFF545202F48B2D230B993BB7CA0C2A72FF91F6F767AF8FA2606B449F12D963623C9C49469DC -5F3D30FA3336CD822D90D30A908DB68F31B181184729337F03BCBCD562759C920C960F14EE66 -AE8B97D5D17258F5BCAEBB703B3CC6A2BD637C7C9C8330C25943D702AEBF045E41F9931D7032 -8CA94F24B89EBBDF535F029F75317EADBBC2F730A70AEF4553310F2A0F59EB5A8A8656460300 -BD94035BC3E464FCEBBDAEF13B4089490000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 - -cleartomark -{restore}if - - -%%EndFont -%%BeginFont: CMBX8 -%!PS-AdobeFont-1.0: CMBX8 003.002 -%%Title: CMBX8 -%Version: 003.002 -%%CreationDate: Mon Jul 13 16:17:00 2009 -%%Creator: David M. Jones -%Copyright: Copyright (c) 1997, 2009 American Mathematical Society -%Copyright: (), with Reserved Font Name CMBX8. -% This Font Software is licensed under the SIL Open Font License, Version 1.1. -% This license is in the accompanying file OFL.txt, and is also -% available with a FAQ at: http://scripts.sil.org/OFL. -%%EndComments - -FontDirectory/CMBX8 known{/CMBX8 findfont dup/UniqueID known{dup -/UniqueID get 5000766 eq exch/FontType get 1 eq and}{pop false}ifelse -{save true}{false}ifelse}{false}ifelse -11 dict begin -/FontType 1 def -/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def -/FontName /CMBX8 def -/FontBBox {-59 -250 1235 750 }readonly def -/UniqueID 5000766 def -/PaintType 0 def -/FontInfo 9 dict dup begin - /version (003.002) readonly def - /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMBX8.) readonly def - /FullName (CMBX8) readonly def - /FamilyName (Computer Modern) readonly def - /Weight (Bold) readonly def - /ItalicAngle 0 def - /isFixedPitch false def - /UnderlinePosition -100 def - /UnderlineThickness 50 def -end readonly def -/Encoding 256 array - 0 1 255 { 1 index exch /.notdef put} for -dup 0 /Gamma put -dup 1 /Delta put -dup 2 /Theta put -dup 3 /Lambda put -dup 4 /Xi put -dup 5 /Pi put -dup 6 /Sigma put -dup 7 /Upsilon put -dup 8 /Phi put -dup 9 /Psi put -dup 10 /Omega put -dup 11 /ff put -dup 12 /fi put -dup 13 /fl put -dup 14 /ffi put -dup 15 /ffl put -dup 16 /dotlessi put -dup 17 /dotlessj put -dup 18 /grave put -dup 19 /acute put -dup 20 /caron put -dup 21 /breve put -dup 22 /macron put -dup 23 /ring put -dup 24 /cedilla put -dup 25 /germandbls put -dup 26 /ae put -dup 27 /oe put -dup 28 /oslash put -dup 29 /AE put -dup 30 /OE put -dup 31 /Oslash put -dup 32 /suppress put -dup 33 /exclam put -dup 34 /quotedblright put -dup 35 /numbersign put -dup 36 /dollar put -dup 37 /percent put -dup 38 /ampersand put -dup 39 /quoteright put -dup 40 /parenleft put -dup 41 /parenright put -dup 42 /asterisk put -dup 43 /plus put -dup 44 /comma put -dup 45 /hyphen put -dup 46 /period put -dup 47 /slash put -dup 48 /zero put -dup 49 /one put -dup 50 /two put -dup 51 /three put -dup 52 /four put -dup 53 /five put -dup 54 /six put -dup 55 /seven put -dup 56 /eight put -dup 57 /nine put -dup 58 /colon put -dup 59 /semicolon put -dup 60 /exclamdown put -dup 61 /equal put -dup 62 /questiondown put -dup 63 /question put -dup 64 /at put -dup 65 /A put -dup 66 /B put -dup 67 /C put -dup 68 /D put -dup 69 /E put -dup 70 /F put -dup 71 /G put -dup 72 /H put -dup 73 /I put -dup 74 /J put -dup 75 /K put -dup 76 /L put -dup 77 /M put -dup 78 /N put -dup 79 /O put -dup 80 /P put -dup 81 /Q put -dup 82 /R put -dup 83 /S put -dup 84 /T put -dup 85 /U put -dup 86 /V put -dup 87 /W put -dup 88 /X put -dup 89 /Y put -dup 90 /Z put -dup 91 /bracketleft put -dup 92 /quotedblleft put -dup 93 /bracketright put -dup 94 /circumflex put -dup 95 /dotaccent put -dup 96 /quoteleft put -dup 97 /a put -dup 98 /b put -dup 99 /c put -dup 100 /d put -dup 101 /e put -dup 102 /f put -dup 103 /g put -dup 104 /h put -dup 105 /i put -dup 106 /j put -dup 107 /k put -dup 108 /l put -dup 109 /m put -dup 110 /n put -dup 111 /o put -dup 112 /p put -dup 113 /q put -dup 114 /r put -dup 115 /s put -dup 116 /t put -dup 117 /u put -dup 118 /v put -dup 119 /w put -dup 120 /x put -dup 121 /y put -dup 122 /z put -dup 123 /endash put -dup 124 /emdash put -dup 125 /hungarumlaut put -dup 126 /tilde put -dup 127 /dieresis put -dup 128 /suppress put -dup 160 /space put -dup 161 /Gamma put -dup 162 /Delta put -dup 163 /Theta put -dup 164 /Lambda put -dup 165 /Xi put -dup 166 /Pi put -dup 167 /Sigma put -dup 168 /Upsilon put -dup 169 /Phi put -dup 170 /Psi put -dup 171 /sfthyphen put -dup 172 /nbspace put -dup 173 /Omega put -dup 174 /ff put -dup 175 /fi put -dup 176 /fl put -dup 177 /ffi put -dup 178 /ffl put -dup 179 /dotlessi put -dup 180 /dotlessj put -dup 181 /grave put -dup 182 /acute put -dup 183 /caron put -dup 184 /breve put -dup 185 /macron put -dup 186 /ring put -dup 187 /cedilla put -dup 188 /germandbls put -dup 189 /ae put -dup 190 /oe put -dup 191 /oslash put -dup 192 /AE put -dup 193 /OE put -dup 194 /Oslash put -dup 195 /suppress put -dup 196 /dieresis put -readonly def -currentdict end -currentfile eexec - -D9D66F633B846AB284BCF8B0411B772DE5CE3DD325E55798292D7BD972BD75FA0E079529AF9C -82DF72F64195C9C210DCE34528F540DA1FFD7BEBB9B40787BA9351BBFB7CFC5F9152D1E5BB0A -D8D016C6CFA4EB41B3C51D091C2D5440E67CFD717C56816B03B901BF4A25A07175380E50A213 -F877C44778B3C5AADBCC86D6E551E6AF364B0BFCAAD22D8D558C5C81A7D425A1629DD5182206 -742D1D082A12F0780FD4F5F6D3129FCFFF1F4A912B0A7DEC8D33A57B5AE0328EF9D57ADDAC54 -3273C01924195A181D03F5054A93B71E5065F8D92FE23794D2D4350D67F24B3964278808B79F -F5CAF896E4A8A31E46499CEE35E6A5AF0CFD175C2DD628620C681947A02A01D3C2B715AB79D7 -FDAB638D887B77DFFEC5C3A9484104D84FCECC7296CE2A3488AE246E233A8D5B40ED5DCC4455 -8B77422BDE47E0435F960EEC3A26DA9CE137555F0638511AAA14992C8DDA9A4A11B3F90BD4DA -AD1883BBEC357DBD838916EBE2AA8F93C2AD44F383ABE13B8C95B240563FAB987EA98794D301 -785E1E9F03DD545E51A6D58B3618E0750208D3AB913F9CE8C3B865D4CB83B90FB24962D6142B -0204A1E271854F903A05FF287CECB80658B3AF5E7675BE82CEFF3DAD5942EEA03C955FF979E4 -1E54BCFB5316A9AB8945C403A73180D0961416EC9C92F498114B91BC4C788392994587517718 -521E416D469F69952149FF7F9224377EBA10654A727BF806A112A7B45B0A1BA1D5A236839605 -75368D9EAC8C04753BF7465AF795F25C258C63E4FDFFD0B412FD381946AA38C0B961652BCEC3 -0322C47BF4755D9F91880688AF066E32FFB22E1A52DE741307AD3ED830D6BAA1D1F562919666 -DC5E8FD9862AC8600B0AE0BC7FC779252AAC57248744ACC8A8AAFA836BCF09B0DF9253DFBB1C -B77EA8A59D42D1B18FF25E9AED72FA62FEC3F126F030F5D7DED9C3CF60FE890BA4A48E39E687 -BFFAEAB96AE542A6387F6624486037C8924002A511BEE5FBFD780AC1D4BEC3FBC47A930BAD02 -80D444259528B6C565DE11DE36BB659BADC55C1EDA1A80458E98896D782DFB5C137897419602 -809F9BF8CA39F00C68EFB9E076FB324C2963F23CBFED28B9EF70EAA4E4B903225D1F199A7162 -AB239AD92D71C18B1B682D04C6A48926275BCB16D413B2A0E953E1257E0B12D8B717CE2EC84C -FBC046A4338A69F454A469B12118E562B4F56C5FFB3CA5D357513E6FFE947A564B229C7FD873 -057D5C7CDF03E958294A1003B37D8DF565A70A00A3734B0138AE5277D383D10C2BD853EF806D -3CCDC47739F0E374A3DF3B63638B949ED64EC25869DC1C0B1F4DBDFFCC97382841D8F10F3635 -C792139A1EC462FDBA379CBE0990CA2E70FE73137AFBBF30CA54954D7E7377CC50BDD780DDD4 -C7FDC77AD2F3EB1169F14A0041F18160F43C24FAF556DB5D621709FBC544CE55424F7446D46A -C07A51C8CD5161AB0AD5084A96FB35D77F1CA155147DEF8D7A590EA6939514D4A226588295CE -0007BA8A550895511C8D80BBE5CDFB8A50D249C3BDCA974415F5557914A9B805782F399E4078 -DDB6264F1A49A9A5BA45E284A5196E9828EBA8481D357B8D9E6ECA631A6204439FDFACE7D7E6 -A2392726107CB7D2517CD19A24FBE592C119626DB221BBB635B6EB84845C16A9585282E34958 -B961F4A543AF9D419B6A9105BF185FC767712D923437BE08A9C0EB92AB6792DBDC671029B6FC -A67F717FCE379C0F3B51C6CF042A762ED04898FBB4B0105C3C4ADDDC18C51BAA3B70A9366666 -9547081D9246732CFF74C83EE90DA17F5B4F8BAF47FE4D815909882858C9B96071341FA0A0D2 -3BDD4947FC9BC2297913CFBD4FD6CA4303AB3179AE0203F1BD502065F90CE9BEA3B52DAFE4A2 -9446082EA0E6B1D7AF1F31D0AD02CC9A7FACE2CA86E5FE0F6A425B28A5940ECA306891CECDB3 -CFC7A5BBC76B5D9E8AC754379ADE80B4D72CE493010317BF21A0CF4A0A55C1246218839DCA3F -4D626D1F4161D38F54AD5142C1CEE95C61D8BB10FAD4B772F4955777AFDE8AE5A837C2A2BBB1 -1D0BF5DA2E63D0B75ED421DBA9C789B281B01846B65DC572BA6959196921265DB722AE86BD8C -AA3D887C975A617ACEDDFB7AAB341F47532AC0F354A5307662C089DA3939588774FFA16FC4A5 -2555DED6D6F51DE718BF5F345C23C9019817B77CB8B5D53A5CE7A79F3E286B6A59F3F6178AC8 -BF15C0A15C1A8A95D03B6030EBE53DE328CE085CD9A1D49C69AA299C5B58B24334A546F6E274 -C1B534DC8F3289553F560C2F81E413ADB92FA0E7DD1C2F39D5FD268EBA97AB7335ECF2825796 -B4EADB7D0778706CB41C7E9C882760E7670936774A1088FFB2011115FDADB3B69EBD51087607 -62521C25C968C3E282DC3400001AC8FB1EA27FF643E30259501D617BB8BB321281708E496277 -E11DD3AE0023DA9F25AD06B39C7CF527FED27B57397E88D3DF70EE4FCCEFC8A0927D6B05517E -571B3E70ECC99F3CBA32CCD4DEB8BF22626B6C94FE65598A88AB90D238461EBD9A098DADEA40 -91AF1CDD7560EC8E1B9BC2321686E1759E6B8A270C8CB4A254F7368039602EAEAB86ED21CDED -918F2DB9889F46981C494C7EAF5E819B91C129F0740B8002B510014985E5791F59B16879CC65 -21D8E9F1C4C1890AC85A78022BE614BEFF318AB2616F0C3F02405EBB425D1555472A2642BA76 -86E431DC3FB8A1688B76660D9957C3FDE8D58109AC21B1234C9DDF3F0FAF93BCF7B2F88A001F -23162E1A13E5E9118D51B485B70A91D0CBC39CF44413FD8686D9030782DAB58064F5B987E040 -2AF5B264B17BD31BD4FDF63951BECD73ACA6138854EF35B062D01F33073850D9C09A818828C5 -81241FA625AB3638081DD0F00F946BE5450D38489CECEA4E66B4D85CC8AE0157E2AEE4A22A93 -13829F24D573101D84CC1784D1CED7DFAD5DD966601370C6CCBB723082A86BBAF0A5D867D0D2 -E3CA16E14E5109A29EF02649C47E12E88B3B397D65CACADEB9940B92100744D686066F8250FF -30E5F13D81428EE238A2E4E07ACE0F5C387D79D4A336D0D26AF9C2B84088ED8ECDF94A1E3FAD -B45AFDAB46CAD6FF950B0F07AA2CDF82374DA76C56D29C80138841EB13F0D02ADD32F88B23E2 -82ECC845F9BB9AAECE9CDC644AC2D49577A92307A83A99434F6493156DF25DBF0FCF2EC21E8C -50A312C3D19E0609C0038554CF4FEF3ACEB7A833FD54B06EF0D617C2971C89E4C06075B09B84 -A4F78A82152B9A9C540B1D881313C2C74F20ED064A9606EC2CB56D7BB4797F1EEF4A9B13579C -CF311FA4A4DFA62D80FDB7F535CC6526D1AAE545C008EAF024B48C377522F74D939A47597053 -3E645B1BFA81997549AFF26F672AAE6C2EFA357DB3B525276EF330905688777057F4E4CBF584 -520A534A8587E55A8360891E75A15205E8ADAC4A4E5A6E27D0C4A7D492216E4BC023AB027F37 -AFA8DC7579BA50204D5F45A51460C5BD8A5A7F87668CA6451137F2F59E117BBE285C40820882 -A5546FA76F0CF49F8A6EC445F0647CC3227C400F56E7E9B84A6975E85E243CC1666DBAFF4E07 -EEAF3AF71BDACB30DAEA792F2B8504CAB071544F015D66243D529C479D276FE22F7E275D9E7F -A9C6EECA18716B2F213916E32C1D946E32397B41AC6779543218E506569E3544803BBF9B404A -983EBA62A494187B308D3DFA4E1237A2E5E08224A60492C09ADAD8775B7CDB830520829BA164 -209ACBBCDEB2D574CEBFB7AE4BE72DF4EB1945FEF2458761AD8DCC0D378AEB7DA002C69C14A6 -65DAAA532B0ABA98D7BFB5A6151FF6703385AF7AE8FD315A492FCCDBCBB825707F9566B3B494 -3A3C61C3DEFDC31A843A2D67AB06891F3E110DD8C73D3BB5E4151B51D9F13905D7D94DB9ABBF -CAF35F43B6EEE256B1A80ED6D1739D8D5E8C767F6F0E8704C5345D028A2A6DAFD9BB7AA048B8 -B895FE9423A7ACE858BADD595CB074A128DAFE08FDFFD6BDAC0114159A702FDCBF8013804B0C -AEAD7AF38EFAF086A3248AD4FCA1401A85AE2F72E3E6956DC0996FE8ADB18F89B14A208A1513 -F81AF73D0DB72F78C4DA634ADE3C73756CAE6AF2E149C26316DFD93370BE1AFB4A79F77A67C0 -7CB0A53C78367F21661D4AFE9E27328E077B522B50FD9AE2E3DA087BE481515B5DD7BF894A96 -A84A6C78874100505B7DDE1D22EFCE8D58B3AB313AB5495F72E2CA4E6AE22C0CB854302B9990 -372F1661D9F0A517F90686F248C5643008B3D29F7296E5C8FD4049886662EFDD4106E17C879F -5D41CE84F87E89F6A3117C968B95A35940CC29C43E1E0DEF51C1E46B676301F40D59615C3F73 -DDDE37B72FF7105DB84227DA5241583272AB1C3CD97AE11C1EE98FFDB5E5F448448FC41BEA5C -54B26341AFF6830D9D0A5A2901B0653D8BD0746838194D240FF753E99750D3383373F453723D -86BE97B571B8B84D8696089B5CFDD53E6C562A2197A8C4FB0CC690C27761A816B441029D3D30 -6245052E0C41B53025D8CB7267CFE3C17FDFE348E765326F91AEB700CC49162DF74817121425 -2CBC821493DD01AA20417D66DF47EBEFFF3E9BB2B0A2BE7D9B8C68BD570FC2EB0FA54CECC318 -F04C4319598BDE93F2F13DC7847354C99059AB20593EE51E94F9D4E9241869D605AAF49D9B5F -D88C3798A039A67993C5EC68B6326B132E647F67EACCA7F7AE7F718D8512666E90D7C73EF210 -E344964A38228B236679A2B18F5E081234CAA2458F8D833F0CA308D19663CB12EB904076EF88 -E556407C33C9380A6A3D68A9EFE65387C1A1BCD2D26DFD2AC0881EC30E81C0A4E76C244A2BD8 -22EE88C4A60B480D107E6890E419A1F512E865BA922A7830909BC2611A80931CB2E934452958 -6726614D943AC5200FB9FF68AD9686506C5EFA8788C0AD0251AFE7F95E84683380CDB421C5B1 -A783B6D5F3A6BD1BC1C14B363DB01C87C0796DCDD5BECF41A1A9F43183CF6B82C2AE49F0BFDC -5DEF7729F2E638EE6EA9E4D059EB9BB1B992AD8C82D501A5501BF73CBBFE740179B54E193E84 -A55DCD61B343C1852780FFB44248FC9426AC94AA2B3FE20FBA30F6C4D1E0FF3EDCDD8C0F57CC -B50CDB0EFE2E04A8927E239C1D9B026C7929BB48461D4D695FFC766C8A0E545B1BCC2AA068D1 -865333108E79852D93F9B00EA0A90939D0D3840D59B6CC0CE2C147B2E1A9A4F14270FE3ACF51 -D599F7349106165AD627CBBB0ABA01ECC6D3A14C1DC1ED23A9DB9865BB4396C51A31ECD001EA -C94B33C34E29C5611148EF3E55DD61813470B8F3CE32564C7494143C93C77EA5A3538A0B5AE3 -FC4DA32813B06772E0E48E25BB39F3F6FDCC077E86F86FA50E18FD19EB2F37311CE87F18F3BC -85CE7FD71CA92D5C3264E34E04A2E570C79D99F54D6C6D9D527AE45EBB48411221134587D225 -3E7C8ED7658EDCA34E5E768DD14E0200470F73C44D006CE8CB35DE1CA3EC10ADC668B0662A77 -74C89184EC95A31DD872F0728D9F65CA80940080E04630BE4DEC77A2C49E3913C39978BF145F -8832AF2C4385EBCDB15F9D32C22CBA0CF950877717D6F1591D7C0B80478C9BFCB16AF7124ED8 -3137695F3D69228DB633053208C29E0ABA1B06A7FB3EE75625CB44927E2DA6E038A6E62DEBDA -2D96A03177982D8FA33BAAF4426E05F4B79C1748B3FF7691F9888E7FF864A10B9DF761A41E6B -5CFAD2BDD7E1C4924AC97BF4B352705316DD1A58637CC12D71C18A5CA691AB2AA8F171590EC2 -4582B1123E94D4DC587D8F99E18A711776BF4013C96446BFECFEE4C809EA94B169088024DE0C -BD20199A915AA406F0BD5F3D63D1467C49B4691AEBBB35ED6624F2D7BB74BCE80FD92B9FD04D -D9C2BE9B6FD29EC7EC07FAB447511C61DD299C783BC09AE2A47B3CBCA6A20C6631D06D0B2E24 -82A50612BB7C29B7E7D0A205EB0E8436702581596BC996ABD58CD8D5BAAE4B1478195CAFF98F -E0141287296C4EFB8D2E7A8442F0A3AA9F9264329982532295A176BA1867EF732BBAC49AF485 -D9D0F7130F617E7F7DEEF935874D55A22240F8EDE4F247D5F73481373A392D40A8076BD91079 -E11CE5998BA13D48D56B49A92B4A18430E316405D2E2E391B496A1934671FF1785AF42BA3B2D -14B8E04014437FD194455C50289DFBA61B5C377BCBDADA48E82DEE4E70EF5E9DC03064907BCB -8BE4D59DE069FB0C0CB140DA54708E630767313F9F744594AD8A499CFEF733E640A11FD74E46 -A749F9C7D18D49251BF85C6EB4668D67598C31A8F90922FEAEAD4B83B6E7184567DC798E4BA1 -C4C9B3461A478D63CA054F13B502DACB674EB49D6BB935E5EC82BF99FDA7D47C581AD7F940DF -4FC6FA6C6D25D647033AC69505F0CAC58DE99087F365531A6283CB89CB644688963C3B8B2203 -A94294E58739EF23C7803630A1F9121D62BE1977DE2F41687C8CAF87FECBD7AD3B98E0D95C8C -6E1A7CCB0E09465AA874DC90A0F5DB2C5E7C130297FD39EFE63B0350B5139D09E6864D22C3F1 -150B29196E40EEF9723E71158B7ECFB8E4C426FEDCD439420B7F1C251FADA347C9A2C49738B5 -A17922E1EA93CA7B125B7657449EAA9C1D591CAD327D0E98EF2D44D614EE9ED49DD31ACAC0B9 -56620B6BA55BF6D08CA7541059D5ED2EF00AE2EE95488F5645BF6837D9241C0D3959B7580FC9 -ECB2BCF3E65C07D52EC9CFB21C11CD4C883E44C173214C900C44D2E1E43DD1CE8DFE3DA93C38 -B548BC4EC46FF91F30CFB97525E1FD4E77686433B20BABF8D2848C1CDF1BCF185CFD7A81D2D4 -BB826E837E2AF35CFC4F419F698DB0C43E9F9CB0FB628AC9A3CBE9B1FF4A067016E70333E78B -32AB2D89C483834B31F5808FDB77492E099F1504DABCA5722C7860CDCEDB2DDEB512FFCC7D28 -7F4945FD711F2887BC3D36173566B81FC2C1290C717A09697DAC6072408E20926D39270121CE -583EF97CE12EDD7F87F2C8CFE36C3C0400869C0D813B71C425343EE0CDF717BDD8409D5297D0 -F8F7FDEB0257C0A391F5635E0DB1116058942FF3E7C94D5F2873A7A3B0ADAFC3835AF2BE474E -6741319BC6695FB37F59AEE388F81F6E66F910000B72E6BA7531B4378CEFEEDC79CCF4947BA1 -703823B5AB4F4AD73D9615C66C489D99D68E49C9BF765B7FC547BAB9640D51D5A7A2396507AB -5A4DFF3D14F52422CD8FCFEAA06A56C6C7FFCD29C9A7A59DDD2A909A9363FE5F1E9629616D25 -ED38CBE754C059E4379318CC491C3B1A90128693AC53F80F8210FAEA7EE638902A7D3C82B95B -3F5AE340EC1B648DBB9FB679D6E80B7F426D8671FE7136D97F51E2D2F3C9CE9183E4061CA400 -91A2A70DBB9ECBB19CE3F65ADD0FB346B54BAB182E2CD0EAF4C0F402C25573FB344EA771B297 -BEB615FCD0595172E84ED2A62FF896263423C19076C2A9ECEED5135994EB397303A9619C76DC -55E032DA83FBA441BD484A59F70A5110A8927F6239A14D4E223E189A5462E4A92EAEFFA4B961 -A2A32B320FC2B4E8C1821FA67A655B5042C15E4DE1FB3652B55078DB123573C4E986B19DB01C -5131F3DFAB271C30A5476B4A19D8FC922E31879C34BAED94C07A4841B8209C403369FB8E8426 -10D1EB4662B6171A4465FD0E819964F62EC5B0ADC92F08CF901DE0B410FFBAD16F6D355E8AD7 -2CCF67961EDB6CDA82398021007C2D0462E89375EB0710AE4A6CDD15077C9DEFC5774EF4A657 -734D703CE42174259B58E5277E0DF26BF59AF8D1A3E7DC12E3C12AA4B67CF35B19962F6950C2 -020B698D971B3582FF84E72F72FBB0C54A112BADBAE6C4CAA358BDE6A705AB59332C3850CA3D -25C7564499BC1319121CE0D93218210C68080AFF33420E3CB3A48BF9EB66BC07C8A79D8CD8E7 -8C200FF7CFA3DAED0B9E87E6141C88B436D8FCBA50AC195FCBB9BC9512B95FE3A37FFAAB3985 -0FCEBD4D50A243EA416E73F53B4B00F3B6EAE0CA060693AFFEF215D00BFCAD02E45496D7C8F5 -E99EB9096FC4300D038C1AFD31EC4C5ACA6B72C1BE7204E37A4CBBCB1EC26AB87F2FF82DE206 -01025169A5FBD2D06062B5B2DBC288C79C33B596832AA18D730AD572C6EDFABCBD36DEA87C0F -323C3D6E537AD3B43C6F3A905597570A8C6B0B4A5E08C08EAFF9731E745F2BA8ED0C0E1ADF78 -21CFCD4E38F3F4C243CAD31D9F8920409C3FA734449C3BB4BFB0B87F86778C4E6FDF07742EB2 -190920730F0F7F62791F0C78C14D62FDB3B1963EFD9842CD9CBB403670A114D8BAA3EBD0FC01 -3927687E65AE1AD01BA49D83C9A5E3D9055F1D2E0E3D4D0616EEEE3F94DE97414FE18030F79C -650F90B1A61DA2400D7A983E3C581765BA4DA99D0314C808309B77FDA513DFA08BBF9AB4D1C3 -45C1897001E88991CC951326C9FEA3D6A1F725E286F650BDF121A18823702BD7D8E29203DF01 -98BBC1132A2366F8778ACC1BE176D190C24853F7F7920E69ACA83A75926F505AE06BCE4715CA -845B8BCAA71EAF2CCF2A07393255D7C345030118193F871F61F40EBB75EE6CCAC99E7025C64F -83573365C69F14633B2886B47538861F02FAB890C5837C7B337666A42CB1803ED1A95F35F8F6 -2FB3D77C9C07052F69135B10195FCFB6070863E997AA595D5D5A748C350ADBD7CADE9E7F8262 -E46827BCB122D3895791E76BC10E1643693C34E494EA5033C5F0DD4E8A51C229D30915EAB0EE -FAF68D7637DF098278E1DEC103E39268E11FC778AF98B0F03F7D5C8752CE6B29DF3D047F8C04 -BFBE290CC4C71B407842090E3499E52B3B20F92F9F18AC04933D3FB3D19E7D9FCA2C2CBCA4EF -1EE097B12E6B2CE5005FDFCAA7E00CC73D7157EC5107EE7C943944B884645DAF9F4EB3631291 -6A569BACF9290478CF2244BB426E392C887C2F0AE54C0459012F234D277CF7C7F031E02AA401 -E391FC87C17EF478BC57539CA588AF00FEC338957B67BE05C612493761FFA6F812A16859FAE0 -822E25543CD0F40A112DB911CE116724759D5A47D26F24041D06B8CDCB4A5FDC2CACBD575393 -3506DEE665CB91941344CEF1CA388B715F24B05F31C7F43FC17C6C0B4980C5EBA7C849F280C7 -BF4664FADAE796754ED97AFFD58A8EE3A156ABAFF17357F4F5AECD3FDBC2B6BD2DDEB6DDB1A5 -CFC2DCBEB5FC024AF2C219C1BD16A012097E09F1C7B07061FA6B13658250D14BC3358D154FDB -31AA7D4B0237E78B130BF0851F4886EB68BDEA3D1D37DCB29FDA6904D3BE23314E59BCB12E21 -6CD0C10E5E9F0E37882792C31BF0E44FA45F09ABD6E077F91E8E3E5A6C0C909201F57D7D6AEA -1A9D7AE2AC7745FAE8BBEFFE23EB1206AE4EBA1E31AA83C65577E78C2DED9FFEFB90DCB3EC4F -EF8C7CCE4109D752247CCC5BD27FE18650F5CFCB7EA1C2F4D6C59648D7888BDDF5A953DC5A25 -D0256B88D8D73A77D79E8D4DFEF81A9B1FA7A63120DA06A8EADDCAD3DB40CA7FEED9CB081CDA -B6AFA1B67FD7D1AC7F769BEE69DCD7BC5F9586828F303CF46E28D239FA334A9AA7D2B7C00F26 -7EBE4EEBEC37650D1C82FC57D094CAAEE2764EAA441DA0185BC3D8F427054C856DA698BB061D -6A62E471F6B4D11933F6553170011D35AD2A6539BEC5FFB80D03E933B1704F262C80C46A53CB -88517D9D5992E4893B28ECF741B2D43A33C9BE431502430D8A8DBEB9050D1497D659AC8FBC19 -04CE574CD44A62CFE163989272CF107E8F35C40C1985C706914210B6BFC3173B44B1D062FF43 -9C0E5DC025F54A72AE59A669E75891C0EF0895DB22A4FB2B573F8F649099B0087729204C6397 -0B592C2769F79D51E0B098AC6EB5238F74BEE344D5AA93CC78BE81606CA5F4CC1F9E01955F53 -1869EAEEB7562ED63B52F7108391E5629A1612FD4885EE6AA31F61F75975E49836FC293761AE -B9177A8DD1D7A21CE3D453A2EE024C4DCFD3A4FC63723911D256E1D2C0C785395B563E612FE2 -C891476B46CFF0F4057E93B222E997B6B4773C6B6967470985AC22D73291B671B5627F5C92C4 -9BBB8EDD6D03E2EFD6803299592277A67DFE571BFD36A9319EBE120898F075DB16C47E645404 -1E21F84EE964A9AD4F22F21F0AE929E7A104C0F4D0FE4FC3F11C88CDBD5BEAD666FC564BE498 -25C166423CD5A12F50D74C5BDEC1FB391449B82BE17E19202BE4441F31BE4743CB0CB0A1370B -B98BBC10266F9DBC02C7C7F414BA60B49500858949FD1F8D70E7F8E7CB32155311B7BE09F9FE -CCD5B2B7336755FCAF1D07E640375A9CAA5245D72BE1B409C4932841B6ECDB91A1929A11EEEB -7FB4A5C3C4FF032941333455476D38ECFE34683A24075F65865308F506964B177A572ECB3CBC -8D88BEB1E7EE866C864FD2D936E658808E21F7A6DB3AC75C751B394538403688FB720C34974E -F556B7DF6EFBA2C3DE77BEF19571AA5A69C011A7387785A9307605B63164BD8BF527FAEEA2C8 -D89DFD7EA9CA56C6874E7F7D4F1A70C5B83CEEBDD456CE88109C70D7D1C5D7A2EED309AED6D6 -B8EC78FD5A7E6C2D25F4CA2B2F4426AE819BADD11AE12740730669974BADFB90384A562C3D10 -07692014FC61E164A9CB274F2900CE0567FE4CE34D104C88F37BC29F06571CD6D5EB2285B049 -F789C53EFB15AB1D455E346EA0250A7C3BCD8D4750A3B69E7F7C24ADBF92AE9899C99E484D9C -EA7AE045EAE0F5B11644BEC2B39111E9422ABF09BBE5315532DCF83E70F1315D432DAEC05785 -249D03E98C5B843F02A5E3EBD423D72E9C0C2DFC1AB4F57E3A56301388C05E8A77D0BA1ACE71 -D69DD04F8F713DB42CA6B9FDC6E0133DF26496351ECD834B1E0B994DEAA487071FCC93460EF2 -DD46819935891D4A84DE59915BA78AADC1F8B0AC25781F23D77C3DB5CEA62BA8DC2A4DD53691 -92BC66308C4D54B5C0C36C8D1687292D55F2EF13EC1D3A879CF224083D4824FABD7548C2406D -AED67BAFD016B30578D27E0A5E6DEBCD418E4CFA7C530E9CD89ECA0D60AFBAB87214EC3BD036 -8283E01E6F9CA13CA89A0546118C9BB6E9CABC571CDE8D0DC32008EAE5D643BA7249BDCE2873 -6C2B8A7A2D5DE8C1C256CC7040C90F05B34CCE2689BD548B22D8A9E09BA31DC58780612EEA06 -2F1B1DF27E078D24BEE1E5657A7F5D201B242E970593B83297A0ECDE80AA5090164C4B9D0BC6 -EA0F9251815A0B9EB8EDFE8D650ED0D616E7195B56B7FE21D21AC834150091801C051A9DBE19 -93579F595B902AC69DF539D0B0BA5016C696817E04C4EDE8F9424E38B578E924CFD106D8A89E -6BD4AD1A73812F3F536454B52EDBEDDFC904DB46BC5342156B91558E045638D9B045856FDBED -57900AA658FFE70235D4A01A1B33A625B82B5B4B6984D033DB8AB40EABEA055C0054C4DB1118 -E07A61985BB17AD84B0C414D41A2F6113626DEEA2080A10617137A9C3B8821A338047C2F8020 -09E5AF08652DF411369AF17021C2F9D3A63721296D659E56BBEED61A851A26DD63C910247AB2 -4F0A9B78EEDE3146BA7B3439FDD88F79A21ED71047023F6D283D20E567345763E48BDCAD572F -AE5857898999ACB50F4ABD56D3988941640759996FD693F5DA50246F75357618F3EFFDB56771 -FD77F0A419515E7D41D40B6A1E652FF642525671CF8841FA3D20E102D447B539AC2807CDDDCB -FF68545E3BDAB485987B39006C814AEF0A004772C70C54A4F902F68EFD4215BD386770D3A832 -B0BE7C6E15B71EA954BE323CB59822FB45E033417E3D64B5DCFB64756DC1D7BA07AE41C5655C -FE95F9EE6931AF6C0FAAE927E87E48E67D4A6195B624E0C2A6D204BF9BA6F2682BAFC3B00486 -47DDEC2D4DC2119A61ACE5A717C653CF42F11E4B4D1AEC79610B81A81CE278DA7BCB5C6A5748 -BEC984C82C74F924094DBAF2B5F91C7031A4168230FDC274C41B24B2F26B8699A83423292C32 -8EA2FCE74340A423A0C3B8D71634A779D37869D8628033FCBC1E9FC8D4DCDDE2967624E21DE3 -36E4908EF669B30E8ECD1AFE0C3EB4A0342BD0CC5806C4AC89F959CC1CB51DD73CD32606DB98 -76A2117ED4F164F322C344F45FD4065010E2A94A9D2231EAEB86EFAF91700CCA3886CC1AE823 -76ACEDBBA57575CE998B37E659EB85C1BFCA6795A528076F01607A3E99210DB5992B1D577772 -1E22C2E36307C72245B2350FB783385D84D6335878ECD5442270BDD6A84B5F7BA3A7844AB32C -C5D79B9C41F7E38CE07F574BFBFEA8AB7176CF23EBB47E4565B0FD7B831AFC7400107B36ED72 -6033A5E1076B5C4C9C5B877255F561AA9D48CB00E2EAC4542122B10D1B2C94CA741951B5C7FF -33CE9D83260D973B494C906A29DFA44B0A76692C2D731DA45A527CD639023470D6C9CD110E56 -5E7B20CB469B319FC3D4A3B9A6B2672EA4FF7B4062EEC7C10FDCFD6480E7A80D6591F49A6BC7 -000849773132AD14767906F439BE815341B7AF9C11BA7222947D48C8D66D38966A498F8C2764 -87CC665103810635124B21F88EFB466CD0C0FFB5B2831183F5FEBD36D8D39C7FA981960EC2B8 -9D57EEB44FD3D82EF795D0F0A5D3ABE98B8F9A2259ECD7A0A319CCFD1D613C7180A4EBC70C13 -EDB502C9F9695A16AEC4CDFB56ACB665901901DBE33C17DF2F1F8FA70A5FB06847DED335A57F -41478943592259E927F648AEFFF9EA7B86870430CF186DEFFB57E53102E2B8915AECED0BC5D2 -4B209F9B0874FC58C83F1B82474DE62D5E37DD58D9E4453CC669A99933D2AAF0DB36D831C5D5 -6425DD2B058C83E32BFAA58468D36D4C547D080F9FF5E18B807155CBD3DC9738CFBA5D5FB10A -85FE61276C4615FAF7CE2EF815196F97686B44FF3CAE50BC266E168540786FB8ECD9941419D1 -704BCBE14EA52966F3EA513DDAFAF316E43379674EDE9301DB81737C2198B010ED6D72323E77 -71B221A02CF5CD2091D52BDBAD5ECF6B6A65C8F4C25D2E88266D78AE937CFBCF5386E577B1D2 -E1B9061C0DD1C526007227D130E71736E9865CAAD37AE6F19AE8810AF20F83C68053FB59536C -991471CD73667C46AA6ACB6A14B9FBC4150B0910D832810009CB76F71C0CB9D48FB5EAEB4206 -D1EFAEAA07307BA5D6F3D655621055E30734C5021023A8F8F7D2F21FC37CB2B5514886D5A399 -8CBB367D3EA5E4B1DC631B03CC5EA06BBC6663AFD4C5097D35D36CADEC80733ECA11FCDE2E73 -39DE0BE5EEE3248758B1C1D83783D2A236FD5BF328977EEF94E0D1604430DA791B4C633A50EC -B0A0525061F0F9DEEF3D9ABB44A43685E2237EB42EF0232EF3D3E9E5A77768801FD309FDAC0E -12916C564A50D5B05B13C40DC44097982E9E88CA4983E94FFA543E0B343BFE4F0E0BEE99C8FB -CAB228D070603215743466DE1A88ED87E0711D49B06E870644DB41A666FA2D7C9A5B46C2C707 -293CA85C47CD84427BFA08F3CCD7DDCB255AF6FBC0337BD7D52EC5481F3020D4694E3DCDAD9C -BF3154551A53860670CFBCF80C5FB35B1B8E4968F4F634826BEE5F987058BEAE57B85529A1A4 -9975A82C1EC8DE057B3607EF225C773EFF76036D6BE49F1E9AAF481D031305F0FA39DEC8EED2 -A3BEF16852C7474D899D43AD14875A0D23B39A9BD84A31294CE63F0E77BBDF18F0FCE3EC339D -8E32162F7A102FD9FB1A1355AF21EE9CD0EF635757CA1B1D4D2637453A45F282FF0F9AF5A1E1 -73349F8FFA0B01B58414F02C2A8DB49D6A64B5AA7DDFBB88EA4DDEEAF4338F7392C537DB6C19 -020819BB6B52244E29AED0C6F4B7D516575D107398B97EFC0FBB158E82791BB7713DC67F3261 -8D66BFA4DA8B876F21E8ACE83BBBBE9E9163C6FD11574848300BA6204A02012AB8B8B44DB5E2 -43DCD175C74CFD20ECFE689286DE855C07CE8FB2E6F4508F229E1F97ADD5272F3424F01AE5BF -CC4BF2FA9E5319DB3088448C8C5C3D53AB735A8324A79F51DD282B213EEBF7612AA9FAAD05B2 -6DF6506CBCFC803BB50ED2526EF944CD9C5B81BB20F74EB0521B79DF5E44003FD03EFF834394 -DB753EBB6FB634012D5269BDF4BDAB03FB3FDFA481611DD29B3B48B07B144EA4538C605C049B -4ADD4B711898FD1F7BAB9330B3C33A02F62F4295675FC693137137188A23CA4F1B9E7B4913AE -84C9EC719DB29EA839B179D21335FA9389B9B391139B0F097600EB61B94BA5340DFCB1EBFCB4 -6978D4B765250CCFBB5A0EB286C2C31EF434F7DB89B17C0875293E0B17A0BD58E34AA8C183F8 -85446E6D4F9F09DE48761F1009BF4CB9EDA5F02D495F631965FAB3BC70B7DD485259258B6FB4 -DC50ABAA69458B7CA8DC24CC9CB7C1438D243ECA110FB2BE3CA14BFD6FEF07DB0280F771183B -302FF50DAD78BE931B00D97FAE031FE4D9E00637C3994F976D6668154F49C6FBE0F4125911CF -CB9385669DE551B8850958B3ABDF0A315926D7ABC357064C1E2E4E45F79B1BB64D068D7F8E15 -51CE32252FC1C2E1C678D3AD9C4276225AE9F8600D24F6E9D94D16A57BA425BE5661A7CCED71 -3B8E5B900B8591E0336ECBC35DB47B8367CA8CC066021C7FF43DDA552CE3B9EB9850FA7D2381 -8402679D4156A82234B4E369B5548C92707C248CFA4FBE597650B530D26DE77C30DD50EBBAD5 -B6494BEDC9B93B34265265990D8304083EC1E7FAFB081B26466634CA00A94D3FBCB92D829EC8 -3C1798E8547E30B9EBA32D8C0C00D6A7453EB08D084481EF2E5BD3598EC5286C144E75D11F76 -D48CBE1D56CE53A389B21AD3E8BADE39D7AD722D7C5071868EADF2368E9D564F584A13387FDB -4F6B42A235AAE56252CB8F8A23D21E7931FB494A595B42D9E061FDCCC05777C5F9FCE908B7EF -ED28BA6A15968BD74E92B1CF2CB9F2E7E6851F1F936B7BE1EE6AE50CB6169192190BC1613021 -FAB977DBF0111B2BCB455F9FDFF64E7E1DCA01FD4632238525A94E8A73EB923920897C54BF2B -524800E49B2E6DE6A2DFFD06050FF62418D3E04B8D1EE3FDD38CF682D770F04BEAFF8E09B515 -6D907E24E5656B3ED8B3A3741701A271166687788653CA9F5E2F1E7304800614249B766E59B6 -FD7A5D17C43D41CE0E518046D30A347CCD1060404F6AEE302F0F455AB5CD25760BA9311CCC49 -A71FE15C4945D8A38154CC61E78C04BEF931C0765F7AA7C86E8087854C3779FE192D143A26C6 -7464E6D27CE16EF613F771486B4BF80091877FC32990518876FE4C1D106EC8CE0A07AE573859 -D9573E24539BD2A4BCF235CC5C9DFB0A7C545DB58FCC594A2AFFED20926BA7EF5CA5E3CF750B -0530F343BE657D116B2F3B78A84A27B2E3A0FEA2FC3BA12602F368E4F3B1A3B58310767E170B -2E95C29778F9F8BBF91005A82E069752537DE6D21D3599E8E9E9FAFE030394601E0429040F5D -99E57882084F519546D30D56E6A34158FAAB88CAC868D420509CD584839A65256AFECB442E04 -A9F4B00ACFF6767C5E7DE1174C38B98A5F86F136B2515ACF4DECEEAFC391A498718E7EB69DE7 -278FD1BB7EEBFEDD69966F1CB7D470FA986B372DB5C34554E401E7B51B60FDA723B609772945 -079FFD98D794048B9A9F4B8B6F848C7C73E00C2CACF78DAE6E872D0F6944A7CD53F8CC2521A3 -319BD0EDAE596663208194ED177DCD06B871F3027416E1C5603CBE10899612738B5BA4BE8065 -ED9E39DEDF667B8783ED17F0EF09097EFADDCECFE08435261A37F0E9B9EC7BE35F6898A3F670 -03282E33FEF3573443E30BF148F5FE93CDA109E2657BE38491FAEDF74ACCAA287073D044665E -1433B2012FBE1D6375AE07E0F6A3D4B65B301BB84AC9AAC072FF6DFCBD1B36FA6BB6BA01A11D -3A9C36B06365D4319E1AFCDDA85B12019035C82D86807711DDE6D82386B591F5332BEBCE92F1 -6197E127DEED9D9A1CBA9C3A286C0DCFB5176842146934206101984BE2E34FE06CC3C9B7F1C1 -654994949FE1ED7F8E6204E24CB067FAF298DD6E018230BE9D0A15AB6DF7BCD8FCC34F347314 -92C51DA0519ED067CCACF50C5FF3088B00413C06EE7016D3412DCB5F508636E2C107CF2DBCCA -E51FC6B722A7B9E501ADDF53C109A89481FB971DC4B754A79EA6C4A94926DA4484A6A36B5EBA -B8B4EBDF663E3C627B624BBEF775A375F57EF5758D63F173F66BE17C6301AC89FAB441DBA03E -246544B42CF90C5061D2DF04F681763622608140E71220FA9754832E6F287CCAAD41565617A6 -AB4602F9BE24B6D87FC117D27BD5F281AEFC6F1887802F8BBB62FF17BE3E23B76BCEBEE26A5B -F8CECF8C211778E559C08778513E7BC69AB9781FAC4145A4EF884677E6096C0E2CCB1989E485 -E3C7686A50DD234E558058BF3EF5F8B3193ED0D958113E999D1D452EAA5AD16C3A81D8598107 -5F5EBEF28E0C289696D7F77ABA2F4AF437BCFB8882716571D117E430BBAC4CFA43539E7C5D4C -4D50F8FBA93FEF30C72AAF3A18C175EEEF90EBE8D9C9613B082251AB9702118783B66DFB50CF -E23E498CF61AD5ACAA8354E3788C2F193A9669084AEAFB539F2099FDADAA9170B5E4334C1D43 -5A65567BD4FC2991FF6DA678D050C46B095778EEC4AAE264C19DD059CF219C56D55899C7AFE1 -BB688DBC3DF74852CA85309905318B340B30C0F1A8C777E3916C9F8714E1FCF83B3E8C101CD9 -7988D7002598C177C47358C84A19B936CE5496E181FF4AF42F74B0D24958EDA17631AEB6DA2A -46BF79894D47880872EB17E9F126243608459234CB966C586EFC718FBC5D874A762137C19660 -F2B70B9302CC4A85D3E643FC71825D79E99D835906BCA5230846FB6FE1A34B5BD2AD5174F3A8 -82C5EE40B7E645521D2DE64039A8B67175BB77CCC96863EB7F186EFD9BE2E46B899D09DA5141 -95B795818D68F32010B7CD1C0737EA89FF59C371C351C201C3E380A0D1A721A2389ED339AD07 -599FAA245F3153B2219AE78EA3118133976243C9B98853DECCA9204636E74035C288E11A561D -A181A4C7F77432829DB8DF4068D2FB895AF20CB25D8D5D4040B72EAFBECFB0BE405F978EDC7D -A3E3F0E64827A741A7C0199DD282A9CDF0DC29C60A2C39E0810D8690E751CC6885C1C31E0ADC -1CC371F1DBD451B842C90742A2006DAE56FE9D52B0A1E0A929C26FF3C03D24C1ECEDD5B3BC16 -FE44D7468920CABF1789B5D5CBD5E73063066944C1FAF56ADEA8CD05AF8B6190F7AAA6134480 -8FD31818F6914DE91C2E1998D12FDFDEE7EC40A08433C5B8B840D0E30E66B79F8A597D08DF55 -E842738A76F162FFC07EF295B23205BE40B57F690867361215FCB99623A7571CB1AAFF7D4975 -94658DC494AB5B86883171B6605BE872AB8912F68A5B6E34F67343A0C2007F78A5F30897438A -53E1EFC02974970A4F7F540825F4889641D8B204EC591066CEFC9EFAEFBEC3730A2D8A46072D -85067C4B714788207273152DA531C23673AAC805BD1943E95E4C4EF834066260477BCA978A82 -EC02D5FCCECFDC4E6AD19985DFBF51A9048DD2DDB4D4ED34BBF2E68069824BF2B749023299F2 -C0AB8AE0D807086F33051755365C275A1DE650F899D6DC5D4BB220102A327DC8235B01A5A518 -2288B221C4D9C2D351E53C25F71C8438EAC070E308D322F24F125E37F55C42342937B4074A93 -786481A7A4CC5A7216946902E4CECFD585CEFEF4E0DAE288A33807B648796658E54F0EAA1B13 -DEC22CD0BB09C9366A0DD1ACB21B516C33FDE0378319160694D8750F0CFC45D4ECF7DFB03DF9 -8661E8C413EBB04D67EB233C4C31CC5229BB5831F833A18AA4418FCB4E684C7D591235861854 -478616298FBCF3C7ECF9CF54540BFDF0187B55CABFB0217C852C4378A0C86E2151B8A02BEF08 -111500EEB22AB4F63F22AA26AD159B62628D47C7B67A7FC27F9D1E019C49C1BE1F6D0889B855 -6F36C488F44748B6F2C9C2EF9EDDFA1CD16ECF0B81B73C59F31F91434AEE8D346EEBE2F15B0B -2387168E16E91FAE48DDB81FA9A64EFB44E284B06B07EBC6262D5580ED4B49289172C0B727F1 -9F42293B28CD7CFBB1E009D1216659D0BA9B3D76986A7AFE52C74ACCCFD23C5F12E8BFA3603B -E1E312DDC6B9E07077FFC936A5B04F8167CDD2C0F1923BA181BAF4C2862D55EBDD7D22F00775 -28C9E5D741DC801608C3279E4E850817A887C12F6E4B230CA7649C903BB4DEECAAE6708D1880 -E323EC444F261FC38FF9836517DA59A3609916B83F1D7083FE27347C4F64113447A0CFC71345 -CE8E10DC25183FAA1745684DB545E468C7058FB7528AEE3C48F69A86DBDA9503178F58F87ED4 -DFC2A2FA9445D299ED1120272B58C6F1D34A8195C5C218A8741A93A8565A8E959FF7C84FD5CF -E9C084C7D4BF917F7C838FF4AAB056084E9B0C7D0C99E1ECC42050599155E61A234094872C66 -83C6658F5704E884129C7ACC49ED8F0AC238E2211C678EB9A2D8A27CD058ECDA9A8729AB61A3 -0F4BB831820E1A0488A1EBB2F303E34E2F86C332CE011829ACEAAAFF1CCA36F2FB6737EE3CE5 -E9322730C771AE601EFD19F58839FE31B1B20EE3536FADFED530F521A795CDF2C3CD39A9DB14 -4920230EE952FD6C4AB9CF05DB388C0A6732103A1BC6049B08FB7E97D06D379D660620818667 -0722C15AB4ABB6FAF53CB8F790255BED8B2677839F4AFD0A8F2FCB959FC11043FF66C59F7BB5 -E804F7E2E205CD7995E399486914B0A1855AB717D086A0E1A069E50494BAA7504E8F8A2884B6 -EDC4F307145221B6A7D0D73FE4411D743736A4DE1D5ADAE835AB591C183401B9EC72FC937DA8 -2D14B41E22A5AB3A83B46897B3D1C26D79108BA2C15119DF62EF5BC3D6866C57992FBCFEB632 -474632D39079397FDF7E10019AA5262A1BE4F9BE371BC518776520C39BAC18F33DEC2D81AD26 -A795B72621648DE42D5B237E50ABDCB1B9D8ACA4AE0107787CC00DECF77C459FC986EE9980D9 -7AD4D75BC89024BB90473902AA0E0A5FEB957EB45FEABD20DB91F1914BCD999F72065D555CB2 -17F885919EAA017846BC190E2F3ED07028F8BE9BA3135A642E73DD63EBDBBE371323CD857E4F -6795DA2DDFDDDB9F1FE4523E35F76D247B06004F5C9B5ABA22918087A0416C1B910D2A09DEBA -5270B7D424EE9D224BDE94D209E2C120DAF66AF3F8A1ABECA126B8069443CEEFEF45A8DE9917 -A86D48EDB8C4E12FB73A97EE51AFE1AB96FA5E1329AD2495FC37E06E3127A13E4E7077F437D5 -78A4EDA27732E23E63088E5FBABEE42D62C4213518B839392474E3A48865564409A76460B856 -461D9E10B05B2F655D96161884DD575DFDDC87D7C2082B92B097482449122D30C52E4CFFD95F -5CF7A50963C2CBD3711076BECD5972E28BD63B7F87902970581C14BAECA7F81B8BBA23B04D49 -8426D1611059A2A1AA6A62E96643C4B08B7B3B7FF9F4166B2575B9BD3720BCF97F08FD2FA2D3 -BEA22E12E9C4197DDE1A3CCEB1384CC12FBCB925D39D9294813418FA2A183FD723FA57BC5731 -F39537E255E6772C996BADBCD48B8F9EFA8C2213DF230B22C1D6861C1A36BC67A0DA9094882D -7C768C78CF0951356EE7BE291B52815590405808A9BBB6AF833D6C96AF499D124135C2F3B1CB -29BC6C635DE790218CD77AE4E8AC279FFB0146A5153C1D619C25A53B90D3A0D8646189780389 -24D585FBDBC2BE3B9FD9D05AB2D8DAD8CF0625A432B8188BA5960D082F2EB504333284FE58F6 -48413D7B3E48730228A83AE987ACC62321C5013FD21594B472EBD68B460CF3891E681F5F2EEE -F9276F47B7FEDF1DACB212544ED469155F3D180E51F49E2834BB9469573D85520E809D9CFFEE -3418DBBDB278DDF5EAF0A482C8EB9FB53C6B79BB596E2DDCBB7C2C8EF93A9428AFAF20C0E98A -E24C2897D025D28BF34E07BDCA46970BC8B595C0B2A908AAF0661A6CBCACBFD4B66022279BF5 -05FB131EBE0509BB9EAC63B77FE190AABF1AB10B9C8760D23D2C53971D35C51E19BA4C34BD16 -07AC49E755BEB6383673E41EF0037DD985B381AE1F09F1F49F1286E5863B40FB9D92F96615A5 -9223A1BA177B4CD15A7BBF5932557737C50CC7C4DF71F566A13CAC325B2BCD9212838579AE20 -D3384D9223EEFED42E6BBC0D665A9DB6B16A63077656A5F794D93C1F0FD2AA2E8DAA23A0752C -D091A77C8AE6B795C11B84F7024FD977B2BF43CDCC7BD26FC3095D0BED9E59CFE1B5EE3FCB57 -CB4A5564EFC7AE956A672678F2EAAA483CF8F93E1A29EDFF84EE1D314854FF0ACE270A7474F3 -414EB47285C50FC17349B27A335F2F1126A482DBFEAA2AD21B1D59EF38F6B700E1F652A9B136 -3ADAAA8BE3D4D3AA4EFB035F02827688E55B2D8C939362D7875DF5096387EA0A79B4254D0D0D -C1333CD2E4D7A43DB074133BB39A20D3776A5373EEEF63B3A9436CEEA835006A3215723EA414 -ADDE588559828E7482A77E64F6003AB897F9E52845EC282758E2615FCE742C5875EB80C3B18E -9634CF749A8D2BD43656FD1864CD05A873895AD6B317A799D25FDCCDE4F13CADA2C4B2DEC80E -8E99D841A42B2F9F8E036EE89251243053CD5BB00816B45C960EADA4C7DFA3AAA84C9A72904C -33C543174FBE17BCE41577988FA729E6FDEDCCD86CE39B8449606484C4F0D2AD8F9BEB37DEF5 -5BFFE78D56424A24CFC49A395018C253477A803F38E2003C260A11ECE075205C8B88B2351F2E -6828D51B52CA104302B1EF1F45A1EB258CDFFBE523C6BEC21640FFD238B7EDA1CA4AD4C63CDE -C2A8D247504DDA597D8C18D8B911563FF0163FCC1866A077AB6711C2E79D07F500026BE5674D -5BBDD7315508161D38916619E52AEF4341F54FA81C287D5863585DBCFE5CAF75648E9CCAC11B -8E644E9E436BCF917E54F163D14F1CFC7821AD7644097D22F330641C0D40FD3B48B39AF9A38D -22907D6F280FEE53E714CAA9164EC4BAEC392B4AEA122BCD9962C0D921DEE99BC538502D18EC -A47F5847B4F7BB8A54A4E177E62BEAC2E2578C990538902A38A822E88B453C12C3968ED3BBCB -B47AF6F926ED4546C4A2F58FA18854BB1FFC72EF45EC00AF2AD2419BFD3E14AC4B993D165EA5 -7E3645B86466EA4A1DB51D83D3AF942C18CA0EBAF6E23F8084E34451F01D99430A4F81B63AE7 -9BB6D2F05C8C8AB451597659858A225AFE1C8E95CCBBF9D1F9B3217678CB0EC45B126D043599 -1F7E185D3658602B6A0872D1807EA9E3B283D59EDB403A0D05FF16520964C4F9013B5E2F3769 -2FC67720E7B78FAAB441B49CB2923EDDEC042554D39B57ADDDD77D62521C91E3902A19E50B50 -5EC649CC12D740F2F2D4D0FDF3EEA1E17009FE6DDF6547C0E4E88DA1AF558E7473B0A874500E -1FFB558D537C2A48A0887C0DF5B4F05D35857F0F8FCA792E722CCEEA9459A3B1FC46E486BAFB -997DC216FDD3DC1D93FF650FCC738DA1F347F4E5D323A5E745106096B65FD609DA87EC24992D -00860E417CC8055BF2D2AD0217529169B3794E1BE70187353DCB4FF70828B99D784518B0DA65 -41E376E088B105C1FEB84183B66C2933AABB3286A8BF977668F11B8C06967F09DD94694CFB12 -DAE6F37416BD089513F9FF98A574736CABCD809D84D7A38C26026746F978102A48CC782C4E1C -A386DBE488D9C1DF97CA76FB87A5CFDCC9EAC9D4848247BA38A34C7BBC395ADF3D15ADD8753C -8500F1F84DC1B0457B96D43B43E1B6AD271E23A3F250CBC159037571D5B2FACA4146EBC70F7E -720947950F2A4B87F51517BD9885E8B3B3A6E3A226769A5970138C3DF719E7B56FB830912D8A -47AD8C6DA7B84AB134918EA0450C838CB16B85161B538F1997122B0150FADF8816BD42F54DA8 -627F55E848096FFD8F2449CD9C5799A0F757C51E22B405A13FF3C79015FB9506BE5FA8555759 -A653227C455AB0DAD1DB8D9E34457045C29CB8D2DF0BFA504F5E2D5A7895FEB0F650AFB6E58C -21E27A75BF28CBC2E850116FFCB294CCADD3BB4F4F65D210A0482A6E873429AC429977FA0566 -8A20F90F459C4D8026B6D545B18F40666927DB185C602E4AE89CFC45B371A6F8D22D8B125BA6 -C39AB76E1E065617D90BEEDA8B613A52088B6C43EE5CE19A217B26EBF234F561EF065F0EDE13 -19E8F50DA6B887FE93CD4F93D2126C836796E75076F0A272A846F07A43A61E5957459E6DEA62 -C35472F9DA03DA7479171B34DF6A3C5E9B266016B9A4258B7BDF2F88A46D25740DEF40869440 -296021BDEEDD7232EBC9AB9A2634CC3D9C96B830F8BF5ABD7058FAF94B44B33973CD2CEEB60B -7DC8A77D5BA4B6ACAEAE9967C5B22945957790B86B5414288CC721C2B6F4D264617A5A2D5306 -00010BF2680FC9FC21612E1528FEE54C37BB63D8F25BE718EF865814ED8929A92430780C16BE -9D693BA8309587013AC2C6D38E6B72E20085052FBDC7A3FD7E5D6732B14425DBBF5BBCEDC8F9 -43D78BAB7FB2FDED5DD51B76C731732638B0DB4C1E0F8E0BC129E74558D232EFCF51512D8300 -1B127DCCF083DE1F4FCBF373672F39676ED3074B02AC43656B5ABC6AEE4FF3C71B6E24A65C9E -B7AAB774A85305523459F1FFD7F6ECFF841D3BCBD4C315299FFFD30359447580731B3A5BE473 -05ECED9E9BC4C39377C1FE1A3745F98E7E26F0D47120AD56E144F7B257BB14BC8710510F942B -8A4D63BAA1B18BBF866778CEFDD9D1FFC0C51AA174740A5A1378672803A40D59FB3679E37697 -B2D94D3E180F17D5E25AE7305F939C0E263247972856B36CB455D3112095B0B2E13D55E1F053 -D9B7B60F40710AAFFDEC2139B1A783A8EF2AC87D3458495873757323F318FD79AF79F8223CCD -F9AE84AA9A1F980A0D15BCD6C5E04983FEDDCA836E0D5726049B6F4F9C974AA4F4CF6E652F1F -A9DFA8A1E1BC0A183F438D9B47884065814AF67B064285F4AD386D621DEE3E240ED16D3D5A1F -E57D5E172BAC1376F86BCDDE43D2109CEE25888B8A012DD5956152AE0264D7E44290A24BCC55 -DCEA91B0689D58089A0E9D51A36B3309C09B4F72B46F79C76BCC2449D8ED6F6CCD07D5B2B9E7 -F97DA2A1482639DD904BEDD700C049E7B954001523AB66DC94FB2E89132F1FC2EA71CC5DEA96 -867E773A8626153EE6FE324012F769A0970BA87FA3BB4787E5223D66597319B1249DD5FE8652 -AF5A46C0FCE1B038F58A4760DE536FCAC593134E4F90872A2EB509A7FF3A2560A43C6D809F8C -1BAAF059AC7079523751CF228BF9B92A82FC991638FFF960D0173CC90B8587B204E8476C9357 -8C33CA13A80A0D808C9AA6CB76787BC836A7535EE5410EB65A51DC7873654C64978DAC5091E5 -4BED187EA116FE777F7F9ED404E8B42B32742D84AC4F8257BAC2D1D66316C3A89427ABCF00FA -66A23D5A293213847EE1A7A9E201E89831348FA1125B4F1E4CF5C3C09C6F6F5DCA8E79870096 -CAA1A338668996174ED9729D9EA18F5613400556D1D072170A92CC8B9115A5110F2A66E0DABC -FE80B53095B21056EF6E940CDAA14267C37716020C1D6714E4047BF869D9499E7DFAD93D00DA -D158CABEF746827B20B8D1388D3CA20701B083500CC378FDC81BDA20FC17111BF5D39B41A25A -23C583F53F4F64B026915F573953B418F996EA4E82926F66A39612A0E754CF468E163D603CE0 -D2A78BD67B79054E451444FDBA88959847A6D9EA2F610ADB9AE7B1884993266A03DAB03A8C76 -FCB99AC852B7417815BB0034CF16F0721AAB0B439711132A4FE97F088FE30769D8DB62A7BCB5 -5BC156A138AFDC5A7DBBEE2D7C26A66C57971D11439EBE66B04414C093E3D4B7B0BD6659B3DA -A336D89D559E82CAA6BE48A80B662A96DCB0CAF03BBB24D509BFD132549A86D45F98F5840919 -1C7FD26E025D6F6F46872DCFFDBDF9D3AB915D23CE1A112E4B2D4B9C66B2002208A6BC7E0B46 -74BE1342BC3D5C92EFB8774DC4BD5DECF97C55C33035F47D3281D9C76FB550017F20A5CB19B4 -E6AE17CDFF3EB16937380928DF6314C37F61DB0F6EDAB5C074B7DDB30F14DA70C41EA7122E0E -19AD5703F015A210D918956A501415FB130816957E54DA094E88FC4F5A550ABCE8C30B3722BE -8F7B03DB65B84ED18176127B49930C9E5FFC144AC26B76A6CD7549A51136D09AEAD0EC4407B7 -D0C2C97503BD2C397AA66C4B8857E41AC5803ADCA4065E1CCBEBA0A02405B8BFC599DB306574 -CBBEEAF034C14F126134AF3EFCDBB3E3BB280663AD31F9F549631842CEC206FCE71353374C3B -206FEA3E5F06FAB69661E038A952C74C3BC2FC7758E552374183D24B5E97DE82CF00CCDE40C2 -5F822E62F52C60ED1855FD189450A3B631311E1EB2F70BBB979B0295FBB55C0BBBBAC9BE590D -DF1363E7FE7AE70CD3A07280165CA69C2E528E3DE40EAF8DD66AF30E237D21010CF7C3DA9255 -3BE84F16035D7FAE9477D91CC9A76D65923278C400730384BC5434C189E396593157A5C13C6F -103027C24327F2CAC5CE9FEF88CC8FB8C80A99DAD00B9A8615D6A0CB468CB72E538486F1835E -47E9B52F2EE2209D656C7A7611C1CB836DA0064BAD78D06411778F9AFEEB452C05C8079F8F83 -E6325DCBC2F6F38490D1E4DCD804D540D79BA37B110F04E927C92F37CF9BB273840258C24D57 -C7D4CBCF5CD05C9F14A946C98C63DDC640E613C276B22C1AC6614FEE12FE0C82A358D8596830 -E665A6D64EB9AF8FD7D919D610A98904CAD85938361C9E9EDE0130F1D76C206E2213484ABF0A -3FFF2A395C334A9248E74C5FE0008866744282A16030D729C4DCF2E951288F8555D9285995DE -ECA7EDDB964AC9D2DB9A3A1BCEC3190C08783AE3A446FDA8FC7D4D8D7584D9B951DD9D333AA0 -9EBEF721140CC98E9AA9ABD0DA6B67842C0ED49630A603BC96ACFDFA260EA6043EE0472196E9 -2E61A848B7554578057B768EF452F56193C9D6D3E6D5C72415B8DEEE19FC67BB60ECA8A93804 -C1444EAA192F31290A46EAEE17A63A3A6E204A4B1E84F92F7208DBC8A831097C7997EB7C76A9 -A3CDDAC1E9EC5CEF746F1EC1731C86D7D330B801462314F88308B2799C9EE1CFECD1C9932CAE -DC2F8D9FC835824F3B7DD1612EADD320A88014E2724BCF26BBE299B90BC0E2B10878AF56D64D -4F70E7F1441C8ECFB7D02DCE8DEF1197DDAECDE69AA2ADDC208D78D0F6413A2FE60C492BE426 -944AC3E34A7AD71F1611B1AC19F12E41EC979D02D28712C5AB4A2C79AA9B3A7CED32BE667CE0 -D45B32C1ACEC3064E2E93E2A60CCC93C3FA2E233D974EF89C48F08CEB6ECC249E017E131AFEE -964DF4B3C440AA522ADE30CA43A890741B717FCB79D4EC849AA2A83D5719BD6D78E210D30567 -BFBBE05E0575FCC2BA82CC0CC51E3588BD745B883992A8E3EF9E07BBC85E88832BAA68A87CFB -4F566EDF689DD08738D3CE7889E3019F821DA3ACEF63ECB93C773691AF73DF00FC78FEE8940E -9477EAEC3867E844D879EB422B8A869C5C15DDF3CDB48854A2628BFDE565101B817646D9E015 -F21378D45A6D6EFB6A51071FC70F91B70A2AE69BB2B0FC8AE0B3339EECECB103DEDC142FD9C5 -9E3164B7C593457E296ED7337966DC77A01046F7D2D643283E7B958C73C410B7CF2F9DA6F89D -A69493EB8703EBBB25DA2B3EEF9B17D9B50DA2F690BCF742662EB1742CCC086AE967A9F65B49 -7F4632B1E182DDAB3032C5FB8B35AEBE618E3855C27D95A8F9819AF2BB483FDC15018198C834 -42562D7BBB2394D5588D6AC1A4CD133810B1BFC5C61941F48E9FD9F61E05E55D6B098CEC924F -E5138D0341D2089C75109CD8AD0799B7BA31758021CC0B3E773FAFC0F2D989481572076CAB26 -BB1CD4793D444568295FDB245149F711A00560350E0313DEC45575B1E17C861407D5B7342EEA -21B83814682C737E30075FFC0F18A16F96F78D9AB8B64753CD43604C76C341D4124646733521 -02D904FF6E7A3EEA87A725E46AF1C726EB96EB976D6C896BF8F07EB430A0942AF1E92DF61830 -4142403986581AB40220CE1ABDEC632A69D0DEB63FFF04353C09106DF435504BBB6732EE207F -64E6471CBDF58FDE4D4DB1F0A5C222BA23163F86638E8A52AAEF32B582FE54F007B56FCF3B4C -17AD06EEF55DA61DB277FE31B9ABE4D57647D0120DB2387B91A2D0F4AB767CEB5AF14DB82BBD -8F8868D0CF606A44FF67ACF3EF99195EDBF24F32DFEBC596D7040FD6B40F676AD3559479E753 -C937DD83CB1002998FCCFF1C8C207A4A9623E9F14B607EB05D79AF0F4942B6A0508743867CFB -5E2F5CB86EDDA1C12C1AAEED9F775BE4D7D60F1115762A5D7FCA44154D78776B1A1D36B495B0 -2E48AE741E6A50AF43F8103CDB914FE9410C54FF64B3B934993BA085ADFA8D3F85C2979C6CC2 -A4014963B54AA56AA0D00A4EB0D64C0851E3B1851F927DB1CB1808A149FD099535EE9CB0DF20 -2AB394E645507D41BC8AB7318A2ED4D38708BA3853FAF8AD455993FA238BFA609C15CEBA6611 -4D1B20E1ECCD42362DA3503638D7CD6077423D6650471029330B4F75B2FB0D5AB9420C804E4F -9ACB759B2A4E717FD1E402559DFC3A031DDEE77A32A2CDBFD955F79EF7D11D82A106FCD50733 -AAC9C285E3418D448FA2D8697A110D9C746C58458433511C4C82F8539DD7CFBB07C82FC68CC3 -F21852E31D3C39BF7869E5AD3706112B4E6602A0F86C22F21432B4887F5466429304B9DA1623 -004BCEAAD475A95716E0DF88C3BACEFD23C45EE569E04478BFC00F78DE1CD2CB86F389870E8B -210F1D4DBF17DD89E4A22CA3CA25BF5E53BC20AEF0DC7FF7C94B02552C3B156788D404D0F0E0 -8568195C684DE3FD8F46E6E763461B9025F74E95E1169FBE987DBC92C61B118FCD08243E0E57 -F2AE0813690C44789A24CF1790FDF0ECB274331C0A1683E3269C7FBA6C3DCD9351D4198338DD -1EB5FAF267A662A14E335C1B01C62BF3A5CF781801C7D82D8BDD02F5B2B1846023D16638FDA8 -BDD4DE1FA174617A2BA64B567E7073C5F962293C1881A151031CF9FEF3488651909B0A1DCAEF -86E58B44E23A9CD3CC1FB318CA1E16E1D9AD522D5D4077D8CA752EF264C1DA854A1A23925C75 -2D85C2EA449A599D038E57BAFA34E06D087988C637AE2848C184E5D2217E175A9B9119AED8F6 -5C1E98F5FECC174CB30B750618080FAE1C38ECC2FF2D3733CC95AD0F56816EDAEBF8727F21D9 -C6047006C2C0B9A1AB9A5BB0945C2676846D40FCFB38AB0B6BAA44DD48200E149AE3A4479B11 -2363A9FA84B1CF3FC04545C477A32240076610E2F328D62D4A8CFE35FE7DCDF8700FFB0B1828 -3E74396C25BC678C609A816106F085300FC7C85CF83A1E16E72D0D569A6C596DBEE4DDF79E8A -CBDBAFC07AFD6D6F9DB475411A14883F7BF7B8304A3BEF8F55F1299F5143908164075C51E453 -5A6057BF70BC4E3B389EDB0BA156B871AB95D9866E9B30DE0090AA0108B40F27BF2053EA7CBC -F96F18AD951354ECCBED9E54121CA47C13768E36CFF2325693AB4ACED5D6CE3C3FC79E41F623 -B36A2AB5F41BAF1DD685985B7B7DA1100FEA9B0CCB6FBB0E3F171D8E2F2E8437DB7A283E8406 -5839B7DBF0C94FF1895D0340B6424652AF684135B0229BB2341F8AD2C4493B3117700B57220E -F2882CF2039279FD2048743638EE574D37BA0EF1C80127F52E751C5D0350815DC4D797CC1B1E -80211AE5C73B471FD986FE32DECAF7D0207D2009163D03DB32CC92D093301A29A5D61E24887B -F7AFC6C962B805B48B363649DF05B17263D5EBC30D459516D2C741F7C62CDC3476609863250C -7BEC41D9BED967324664CAB51D38E6C96C24290E7F6DC33E10A3704B46F466D5C120F7140C25 -4180D2E00A88CDDA63866C41C389E5AC6A033BE8BF752CB69D37162CA3EF53FDAAA47F9D1297 -AB17B6004E0267F09D1FF14639B9644DAE2B9C7C4E89C028B44F2F85BF37E948B12C936E813A -433E30A01F804514CE0473F68A4418EE8E8978FEAE58FDAA0C4E688F751231E0C3503BDA8C6D -9BCF340FC3639DA37D31AFAC5136A2F82D34E27C2B51C7817FCD5C1774C0EFEF9BCDC057D59C -B7A29B8CC665A15C0CA4F068AD3383C8AB94ECDA159982C2B5AC3F0CA46CCA401853979A8833 -861FB979373E9CE927C5C148C5284093131F89D111F6C2E92CCF32CBDB50C0732A9CEF8DCACB -FE5D5D704AE82A261A2FA3DE6BA9034A068C9DF7B0475EE740E8192A24595E8914433CC4CF55 -27B9FC69F39EFC279FC645BEFE9A2C7F6F45210089D22AFD404ACE2AF47057ADC0F3572C192A -23B80F75ED674A45DB5977111FD72AE38676AFCDE9AD5683DD33206740062824F6E9C6885CB8 -339E61A6AB254BE44D89F55D6876861DB6F04512351DBBEC8D523AFF77650515992B79D0407E -A148C6AE3B22C7A5A17565901543FA9F3F097CAEA20C7F5415973015E1E9A09693246573CEB2 -360DBC46826D39E4E4006D677C486F35907090D115316C99092444CF8C26F9852B43A95DFFCF -5BA5E72493590666A6005D33DBBF62B48413CC84D6E0201FFE1112DBF80663ACD43050D4C1C9 -1B4B898A79C7E5DF7DA592291CA98F77416217D7788A430DC8B51E248DD4EBF3AD1CE9859B2D -9A5760CB72AA6A8D57696E1AE18FC7C924028ADAC5BC43A202B1810ABBEA04BBABAA8B51B95A -268CF1224F9E5C92E6B0066FBEC793159CA58BD448C553AFE83B50EB41705D264BAB4DF435E3 -F88801F7C1590391C0EB73CC80C58E568F1D3729714A4A137DB49DD8A192AC962791A2AA97C1 -679E8B389FA8E9B3A56790B53765818B6740F9243E127B43E9CCF0517388AD3B4C3CD8AD1BD9 -DF748644098C1307398AAEFFDBDE2AE0B089B63970ECD69957C97F39B046241765B48DD3B505 -5FDB58F89282B9C499A494A5AD3455833C42044F8B35EF0EF3BA4708DBE50154D3846E3D9E21 -5587AA1AE618AE0A98A398BA438A3FF58BA375285A1ABBFF1143CB4CCFABA076C704263A95A1 -839DE3B01E64382784B7BF6B91189C704CF7A9BE04EF789F5E6A20F9E495FFAE70B6D44F47E3 -2CAF7C349082DF7956A69C51D998C1AF9A16881E08764B3BF3D4A42E44F26C4E29342302E828 -8A76F2CA1BC5C50BDCCC73DA3E123CE10837B978C59F9D2F18910B950C7929B6BF90D1E5815A -29BD06B423681CDF3153BAADDE8914334D890FCDF3937A46EB08D42D665E74D0B917198490BA -3AD945F5AF35B56069B6D8BA884F567B219EFFB43118589A31BC8C8FE715148514B2BB614D7D -FF502C408BF2F8A80D2F588594D31F85FC3B273A3D4EAFA11AB14D7D639F5B609BB816324094 -ACBF3A6168D3B8A03358B2B86F62065224B8C8E0F9C300C39C47DD98F7710FD16E8F04713617 -454A069D173E11750AB14E618D7F9691FA61B30D0CC8DAFEE3CEBF007E41743A3EC066D712F4 -6484C7D9306B8D9D0FD6C871CB2F149E5D900DDE607452CAAB956FA376A588DD9F0B1638C298 -58032A1E5A563C7684F49AC82854C810F494C755473674EAD645E9EBCE88E0F9C22BA629A7D6 -E500966FFA6F9F5F65DC2129E3B0894C4668035F1420D223639756ABF57E45FC25FA6C3FD1D3 -FAEA2C4236579C2A907B621457D530080318640F3CA1899C166AEC264EA99F22FF634C77BD33 -88EAD5A60A21E259AF0A4D91FE697A944E8E5A4771037A18E3A8BE9F32C5DB28C146664A84AD -977AFEAF67A456B1167D0B226368B71A77ECE187C999C36716DC097F53E1D0850C5F1ED6BA28 -310B068E1369FEB1870F49B25C5A8D84FB1C177AEDF3B5615D6B6AF573F28E07E4C37A3328A2 -726B33E26BC45A19B7382914F275482F119E73293CCC266943FB4C869D6239D3011B753D58D4 -8B571716843F4102B4C93B513D39DE383D0A1FCC2F117A268546A89EE498B2C44E5EEA5E32E9 -E4964B47D863E5DAB024E6FE6098E95BF293376736B22FA55992C78DFE592CB0E2E2A3ED355F -0E10F0547824A19E77B452EFA07A1DC8C7F72DA14192E05C0AAFA4CFFE2554EA25ABA2C4876D -ADCF98E19F7A2797681C741D106E0315F306643F0B5203FC98515C7DA122D1AD3201A2E9D5D7 -1107B3D1FFA83ACD1A3A121B3791CCF24D03BE9F05A651F6022D005A82796E87C8ADC84497F0 -437F74B4BB984C665A32BD0B0A840595EA69399B06A1B30074E2A6950854883CFC0B832C1752 -29685B6534A8A1BD10822826E16239C61B4033EF04AD2F71F662BCB90D1653CEC8AA9956E04A -BE68C9CA8292DEC1B0843A4D5769B47CA4155EA300A6BE6A8F412DFA1ACD464D490C5B9C2DBB -6519EF2FEE82B13DA7FEED57E268CE25C9506C38736CF943A43E21CD6B6596104FADF4950B5F -668039B77E48EEE7235996C15F93BA009A19BEC04AB00903B346AA70888C56151D581BDDFB2F -3373CF68A7A92F741853A09188B1EE9FC88F42E32E227ADBBCD8ED82CC30C0F9B128B9B12D53 -E2DA784C2095B824838EACE7909EE6BB95B3A73E2FB4E7CBA1948B573AED3FA26919EBF27912 -3EA1504362225F752F53798D8B2CC08D1E0371B68C40F39A9E7BD299309BC3D2E91D2FAFAE27 -376ED592A6B76352ED552D5BAC4FBB5429562C8F083B05079D7E4B86C26CE21560A3738B9670 -8751E8D5EDF462AF0F04DFEC0456B86724F4828D4B2710492429E368E904C7BEB63941118CCE -259A6429FED22F5834128C3964387698EDA37485655608ED5D5A63C2F03B8D6473EF5445B138 -800620F9D4AF1EEE672C3C806095FA00D994332B2DC6EF39683C29CF8C332449B58DB4491B61 -F276A06859186A562CA92F6C046CEE73C3114DDD7C12E8681A800EB5966F5940941BB4F57897 -B69D19800781987294C3626E16E76B3002921F4C1D4A42F490D0D51F90BEAB067DDA1C799F66 -31BADC07C3545386F2CF35C8E42E72E219316231E9136F6196232BE5144B6F9E2DB221FD6F7A -4A062B218A839600CDD58B3A769931DECA90FA4D82ECE885B649CD78BB76E9F9693950DC5846 -E3C2121EBF13E89714ADF2F957502B2E3F0E75D909AD3B09FA165EFC420A3ECADDA6F4CA870A -D1AF7C64D59CC8C433394FBB2103EFC22DE951975A0AEB9E49C0BFB104C24DA1E775D84BBB09 -7328F070A6F4AEE5AD905C5010D6B3521417D379D7427E4651B0603B31C732FBC6A2438C00C7 -15F1A1A6BEA63D146793BF98A29812E7BAE941D194BC7D802F41F7D26AEDF45CB4BD9EC168C6 -8438268CAF44B5D77D34523BFD4820D919D8390239B5406AF05F27836567A44DE0154738DE06 -179E7382713DE73310ADED9F0233123FC36080A21EC17931A2EE02B8A460E29B593677B88A9B -107954E42C4CA7771E474316405DABACB72C3105963C176077F6088E7B781E40AF19F618D8A1 -9086CD9062B913E4A6DD52EBB17F199670426F67E2752C66F7C7819405AA2C36A7A8676A83FA -6E29566D98C6C170D2B2142052980024F9AFFFE974B8191E49B4566820F585CF4F8D0E94E1C3 -817DB22D17C8660560B08C7C24A15CBCA7FBF0FC02392543BF7C377A356DEC6AF11006E76A7C -EE7B0EAE8DAFF77EF6F57B870BF50DC28687CC06210448EE7B30D59E8614F9FB4AFFE7F1F359 -554E156765CACF2ED3A89C36CA72F44474CB357380D9A036C9BA45747E90F0644E4070D49A32 -E574D7EDF5A96EAD456AC97976DA5F58E99D9B87B42B41B9B73DD74D803344203897E3736E0E -0C8F2EF8CB40266CB994EB9771EEBF2542F706E4F1F9D28B1E86F4A9C825DEF97D611D08253B -44546B99BE8DE28E07BA0C6209C7B2B27465E364CC8A48123F62527F998A58B7D28D3819B677 -C2599BAA267930A7245295F7C664F2EA6518F16A911BEA864DF18553329FAD98FBBA19995FE4 -AFBE1A539E1CF94D96AA0B3C352AEA49204C0D6B58FC715D2F351D81614CD73EF8ED1846BEAD -319D747238C07E89776C232331F0854A648A9B3FCB8953BC9D2CEB2D0D0805FE95653F0C7E57 -88DFABEE412BC154C6292FC8C062DA2E3416A6E1EEC8D9E60E91312553E4903A54FE3B5A880E -4118B43584149ECBC40210433899B9B05F665B5A78F9BB5863216FD706EA9BAC174B635D3496 -A7C82BA9F6BF3977519DA3BDF26D64519ABA8A4CADE0565B41EC5ECD40863DBE497EEC01E5D8 -5C0C83A505923969FBBC543A77E9630C059D6B4A52A98DD39AD9B1274EC384D0802270527E00 -4F7DC1CCC96ADEBF4B356F1DA08A149E68242132682146420038F05AE7737FC643339BC98F3B -D1EA690716C966DFBFA6D35FA1DD742290A5A9BE62B51657ACD103B5DEAB24D8FF826EA348EC -0CC525D82A05194B31640331C7EBD0CC3DB16B7096C6934DC7DC0F40A7B56E2BB6C9F2B694D9 -48C06983EBC19F52D6CC2CC34356631FEB5BEDACD0B3067A23EA6E912F44DFA1455108787E62 -A81DFB7E686C7A75C781CE3D66C0C001C2C75608D248525078BE12B94F9EB3AC669F671D96C1 -83EB6D837002DD0E9E0FB73A91BCB2363F0A9350C7C6741D9CC8D25B6AA6E9CBEE2028708BB4 -AE052A7E2A099FE34E96581A4D9C3D544647CBC613785A03DE4594F60E8FBF538DC780690568 -FBB9C1D8ED04B4A63115880B2267E126AE813984D2E1FACC6DE1D26D1A03CF6A6EFBED9C3A18 -C16808D7D5638ADAABBC73B0D006618DCF242A67D305A679BB4C5420E40067569C81B4922DFB -350AC9410116E433B3AD2F871C4A68ABB05C12E84D817CCF27AD81E944594B4DA60E9305E6AA -7F556C1CDC3EB50E9AA72B98F832FE1E6564EBA18ED698D261014F55F754A8E24690240ED9D7 -A042C7B8A3CE65BEC8E5EA478C40FFD797BE708E4BA9DA817B14BAE573C778E0BB23BB0675A7 -9A0612E0158B037EC58998853A0BA5383DFCA3648D83B5265C62D2D3765EC7D38319B953A588 -874D8CD8DE581059A5FB260A96DE88BFB9A1D75D0BC2C60AD550A580399A02A6A1A583D43AD6 -E118F1E7A4F27373D9BEBB3211EF45E6EF1F6C382E383CDABDED0AA4F1CDA8E4A23F93A3DAE9 -7781959D70F2D1D34C259E345164DAAAED0B6917F66E7787EA2BA3D739B4448BFAE8A41ADB9D -F166FE1B27DE30F40DCB2B08D939D2CAEAF58405C73AC28B14DB7E028F026896DA40CC210A3F -96134F38D06CDC61DBD0B221881C38ED6A6BB3BCDC7BE9E365E31B2E11EE08621BAB960256E1 -E83EB2C509253B455C1CF5AAF9E5A932830157255600161D72B337CD256872F31FF228D5AA68 -740271F19C3CE995DCD1063301B14C205A0C643A4C4B0481C8117E660D5E02CB47BEE733C2E6 -22E6235F318F4A21FABD7809F9F39BBBFBA1AD133691A4690FF0E4036DAAB94C335387E39F4E -5CC3D33F1BC6D3E4CAC16E48BBC67ED2D0CBA0429EA21C6F312EAFBFAF71142D7BC061E9801F -62BD73DA06D80A572207C04DD826CAE8524CD0EC0C46457DECC6015B9B9791718C516A35D4E9 -F5E437BA54BC876910E94C07CB84619B86A63CA76FE064C186184B8C7A1CA1BCDCAB964CBB56 -5549E5F6133FCECBB37727B642F733EDF8AEB7D41E7F3F7792E67391C377CB101F99DF275DAB -B42345878343EC52008F698A8939AFD236FDD824E7C7D28C33166F0CDFF5B1ADE8728CE3936B -F137FB04D9E9AFFBFF04F1FCB2D854EA221FBC6E61391236BBBBF487220542801F86F9E79C0B -F4D436662095B0CD4323C153807A79C5CC1EADDE5C60341A1CF458CBEFD979890D5C4937E339 -9B77FB65440EAE0E8AFD9C4B4EAED223F4501D530DED7F3D0D696645D19B46D0811A1FD1190A -2C6B352499C2DCE4669C6A82F8938F98092CDB9C6F06F0EA50BF8937F00416723F1E1B6E1E14 -6F101DB73F5348C10DEA3A87A5193F74AFFC513FC0F7CC28FCB83D29DD6A5035414F712E10D3 -9D372900717E7E002D9DE09FFC1F628230F5BF5C0BC9A676E782EB8F6B3AF8487421B447F00C -B05CE36F4E2D21516365FCE063BF429E181396AFBAAD0CEFA8881C5E02B2C29A53C2C08ED707 -A7FA5A9F2CAF67D6F20D2F6BB40F250425542ED083AF7C62096FF69BE6D73C449B743D5D5B43 -01CBFA4A6D0146675AE16824DD84B691E64F55A552E25821C089B18A335904A76E3DFC9A384F -3762BA12BD2353999285CE5C7DFE5E547BDB48586FC2DAAF40842179F1B2E2DF13C4B64C2911 -1B5B71FD9ADB84E8893AC0FED40FC99EFA242C0B125D30D24F402EFCE163B604AC11CD9E9B2A -F590D38FB8E187B2E4AA12E2189B0EC3BAA897D6FFB39DD2709C72B07A1EB5989DD6F32290DD -F1A0BF56C6F478CE75A99D092DEF06F4A2884683C5B5A15FDE96010245CAB7AECFF61032517F -3419AEBD29E582AF003831D03D2E6FFA1F6B18463EADB364C620506F1B8193499E10B06E3913 -1C64DB97594B5716EF2C2732E091CA1C2686BC9929C0A08E8E720952BC87A565C69A28EF4F5C -F46103E4DAC8937D1FC000037F0D9C1150396ACF154A70A54D4149556F7CF9F51DA28B5A7984 -BAE77F8D3112A8319089D6DDDD2283A69CAB5CE4E350613FA7FCCCC6146EB681CDE9CB052882 -8610205C3EDF3CDDA6871D49939F114A49BE0182077DB2668E3BE0E7DA07128F0FBB3CC1E854 -0A75F3C83A5AED82E0DBFFFA57D90DB675FFF115A36553CEA35508F26FB1959875682EDEF520 -8B2673254A296472162BBBF24754C07073C5F65054778EDAF757C8151809BB6064DD89A00C97 -88BC4593CC48BA120D43EC598AEE39CE6EB1B68F5FF76D2C55FF3CA719F840A40780A7B3A45C -3B1D70D96D6884F200AF3E3F0061FB975B456C2AA31AAED55F2C72C6E71F7BB00B791FDBD030 -07185B497680FD7CB9853EF48FF9662F495913C38F5B67A969EC63FDCEB9298A8A8D53DB08E6 -CCF0DE974962C52656E83E84CF09C55374F149A058F3A618624CFC139450BB4F8FFB76EB5523 -8860C003730E7E43C45E1F72B04C787AF295B5C713F83848D6FB6AA087F138E7CD6299F0E853 -7880156CD96E2F9043C7C079C9BD67BE9D7BCAA451DDE3F3727B78178F5750308776CC79ED3C -55FB7EA158D27DBBCAE4F9467668757882713F40EF281D958B7D619794345E52275392E03264 -AE22D8D66BC5C9FDF9295BF81E92B8C1C319B2F1444AA389B0DDD7643CB35713A5E06EE0EFE7 -C4810AAB1EF544ABF11CC38AF6116FDBE4FFE96E01BE6ABB303E754D4DCB88443D6E670701DC -5F38121B8FA95F737AF71B09287EFDA293819CE9D09EC51BEABEE42DF1CE3B63FE2F7C7BD1E1 -B2E146167A1A2BC89C29D359661EBA5757D3DCB91FDA007E48E2039769BD9835F8D0ECDDA529 -F6542950D1AAFB820A8BD7D0491CC2B044FF9EC50986D0AD3BAA1B0B8D11A5269FE306F410A0 -FF30A40B91854656AFA6A28B62757ED6DD1C84148BAAD775578D9807587B04E7C63880A30F66 -1E3C96CA66292064815349B3B69036D238E64A6D8C84F1EC160C28732E3A7B8347902B572ED8 -AE03614437BAE6C7A1E5A796DF030D41CD254E856B4C295AC740A0D91472056D6D31BE639373 -0E230E2B384A09B1021276A5B665BE360B53F205BFE2524DE8CD140ACDC317E83BDD15B804B1 -81E57C8F1EF1D577A3B1525D069C3973E90061699C3EC95D7A65E25E292DA5BC0007E809985D -B11ED649951DBB3E1575242D48AD20989424E0E6CA825DE112B331DF311773C576FA58964A2E -EF6853AE4A59C8F7854C87C67005DAE657FB5B2BE32224ED61041C557D13CA53D6961702EE2B -39590E329086A1260F62C561D6513766F351C61D1AA61F89E75FB05F471FFC465B8D40FADCC2 -16DDDC0A99EE2B35952AAE47EC0B075431607007ED6AED698D5B73760B5E305D14FBAF2DA5B6 -1E4DBD723FD6506054F4643E341BAA75B2C53B42EC54733848D842D8692FC087DDD9D61906F7 -BE1AD172F0FBB330FFDFB275C5DF893392C12164C4DD5E157D39489A0D4D2494814C3C1751C2 -37B5FEAF52ACF09B95330F2FC2CA0520878AB0A8827AD9619E3EB190AFEA89A671C49845B5BE -9EBD1D6A099C554D8BE11C840725F47280B1FF706D54CB9BAF7BFED9236A2662747FCB16AAD5 -BBD8F2A8FA7891767033D8BE0426323A888A1B73DA2F3D30184E0E89E7A17851F55B013FCFCA -2972880F88E91AF87C469D5A0F8583B44813F9BF1AF5ECB3AED6FF77AFC6806C4435FCE7D12E -9F084429D78DDA99A573A62969B5B572571BC02EF361FE5065015D92D9D8C865FAFFE86F7805 -B91CC3F29F0A7F937314304ECB6290D63D8CF4BB41CF351219B14BC8BDFF880B470CA3E8C4FB -B86EACB1DEA880E9CFBBAFDA08E07C23A6CD7B0538BA1E310010D7058D2B8E688D975F1038DB -428E436B01C8294DFEF6834D0FD1F848C64A27D716BB8D4FE6B3803C511078ED7DA6DC8BD023 -FCB6EB0F8F97647ECAA2D719A1BDC1E4069FC24729D73EDDF1EE3753C7E82AB24476DA862AD8 -DC06D9E2FD55553EB8CF58D23D32EC2EC5D4C9EC14AFB2E6E03D2104CDD84211DDB4202C6C38 -07299ED44A537A26E2DE174E6F4C12F3E75C36E9CAA4ADFDA74457C7CB3F09BFF303E371B4CB -DC20C69A30C48AA3B6066677E4060E36524EE5521B6E09B254A66B38CEC59FADC0EDA5DA2087 -FAF6FBD114289CCD7FE0EEAC3908D116EB5828BD3B4B759CB36E96F4D7D79056D49743802D5D -83890E9F2A1A8AFE1CA22144BA207490FEF31D0A2E843228515640448AAF921BACC7E72184DC -F4DBAD25B9199D56505213106B8C984C5CA1E59BA8511849ED556CFB22492F74483B5B75C15F -B8257A7C8A7E4562B06CC219C8BE278996D290D41C5EAE2A353B68B33957DD0FBF0E63A1023F -692249430BFC9FAF61BF44715442A9D859EF42CCB4AF00B2A8251A899BF77AF9169556046A77 -FF6B19BE8677BFE8C30A061C83C42768DCA6F7181BA8CCBB1BA0A468BE0982BED6387343E295 -0648B447829060BC6209443FD403C59FAFDB8C6C07BDF5F5400CBA2153190D5DCB5AE4217764 -711F459D92BDD60989235277B0488DCEF9B773418846F7E7BB7F5D5144686EA558D532B44DF8 -68EA99FC872024107FB7546B769DB6EE72B43B0E93D35684B216BDDE1178B0351CD5C5B648AD -E9173D0F220E167E64AD1A3154039034FCBFECFD0784F13989890D2F18A55FCEFF708EA6B5BB -8D98B1180D70547AF291A86E30B8389A80C7D8FD3F08E430C527BBBF9359413250760B39D316 -F6B8E825C173513528D60B5EFD3FCBF198CD1B5137B17FE3D7F1002CC478D0BF2E4A56EFBCD5 -B1632908039E546225C4B304C9562C2955F2A8589C9781FF6148399E780CB8539721334204FF -68FED8B0F4F3B2386ED06F73012D1FC380613D4D3BB7E16C2A5C67A27FE731B4348E3EB19032 -A7B706AD771240DC2F8F7F61A950BF8DC4ECBC480725E64B73E95194D13ED1ECFCE859CE2005 -A10A89D4A8CC19F41A44D2BD72BB41357EF44F562FE8EBF0BFA4FC980E82CB050AAB41028B15 -0604B9FB8EE136FA63BD9BBD6A532D622B23F00ABFD6D989631C582AAA19A57CD2E5030D9C90 -E96090E06291435E850E72E5D97AF8B957D4BEAD9CFF2010134C28A7C3A7F6381B477CB4949E -4C7A319931F460DA1B90DE4A341B6CE16D273C0194926B34C6FA2DCBBE8B4A3939D42964D83C -B7B8B9E183BD435E4CEDEFA37AB2B4BD6FDD3BF4CD399DCB8C58D035EBDD28AFC6CBADECC04F -9ADAB3FD356DC996F964BA7314F261839FFB34F77F6030CFE323DE50DFA962EBE3D595892407 -A16862A9091CFC6E38E2C311E52640F359AE6CEAFFF3E9AF9E131C68FD939F30A23C4B3DCE7E -0D185E8D1F83D8C66B376BE9D71567F8B4710AC45EDCA0B4EB35CB5016AFB2462E048B09024B -F5887529FF6AAACA498076D72F079F0B3EE061E7B13214C04827FD143CF0A0B862A18CB2C712 -EE30E474DB44FC4B20B151211FDDD21A92C01B7D320EE4AC95356A25F4F2C591E1C8D3726404 -6DD2A039580AC9A48F702DBF7CFDF664598D1392EA1C1954BC1AC4B7E7144C4F8194419E48F5 -37C51F69B708556108145F8E0872C6A314BB68E7B2F467268C2A5BE96E396332645888D17648 -1B859DD229437AFD894499E144DABEBEFDABA4386AB1CFF7EA8C8E9B84F6D93D19AB775C7EDD -9BF2C1FA37BC597925439C663778DBF75349A130B4F6279D1C90B71D1FC6CE8B931ADB346E84 -8F333718EB893BC051761627F2A94B32A3EE9186F822F27C4825529C9A04E32BE26076E8FE77 -0B154162F205DE56A9A02706558110F73C4D69D2747C282BBC8E1216A3F1F40D2ADF26345071 -2E3416E27B5228E0E0068ABDB7E59110069BA58742FAFC8501E76787ECD651E0173F0B9C3FFB -264F451DC71F82AE9C6A091AB0DFC8E03651BBBB02ED830026F519CE05EA4C4A0BC796305499 -6AB0B670F52E38E750F11726372E3A3CD03727628AF1D87BFE4D638DFC072511FE338DB1B73D -E49EBDFFC809E31D3CD767E69300C1A59CEF4C8770535F1EBB9E0AA93921FD09083A79F8D8B0 -26D9E67770A892359AD37CF393E2255FEE4DB60CF9EE7AD45CB39DF513F797EADC2E23475C9E -BADD2C1FD65D0138274CADA17D3D8910E94F31CF681D03D3B156A5800098320981555D9730F2 -4CB9115A6A7E00AD5CC34EC5934E8CE760B5DEE4FB60CCCA5F420037DDC9374FA1319C6EC6EA -568FDF5DF7CBDF178CB0EBE2A153DE69E7A12A6A2AED1D1A475E56596801A5AF86D0893A31E4 -1E4CFAF4C7F6FB3B5B222121C2B74DBF2CED1F6EF270944D159651F34EF65CC34F6A0D70A2E9 -C417DB9E3716D8EC9565F005D993A4E2BD8CCD8FB7ADDAC6DEE19EAB9C336342D064921D397A -1E3F6400CF67D244FA3958E04037C2B2617BB2DC6169C0597E18506C6B27AF5EFD5CFD03F35D -0F54F815D0B05146DA25541505F469F4761051B8A5A38D26894F86F6E23474ECA9C1F9DB69B1 -EBBF1B53CF907FBF2946E5D1EB7EA1ECE95D3DCDE89A79D18E26FC546CD65EB74BBCF88AADF2 -B922183B3D5777640215D1B2926D0CC5511595315D384CF3A2EF09EA9FCF257D3E200683C1E9 -14CA4063BCC8EE90AC9765CC00113812A612A99B91689E9D6DC689BEF85E37F3B1EAF215403D -5D20664C6EAFE3CB1DD97420C8B4F0AA7A2BF749EF87AA03BB488E655DD9B3DE663439C6BAE6 -800BE01F6C034C9F26C5924C8E8C5A6322D5BBAE26C44A9641ACC2AB08E4FF6C0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 - -cleartomark -{restore}if - - -%%EndFont -%%BeginFont: CMMI10 -%!PS-AdobeFont-1.0: CMMI10 003.002 -%%Title: CMMI10 -%Version: 003.002 -%%CreationDate: Mon Jul 13 16:17:00 2009 -%%Creator: David M. Jones -%Copyright: Copyright (c) 1997, 2009 American Mathematical Society -%Copyright: (), with Reserved Font Name CMMI10. -% This Font Software is licensed under the SIL Open Font License, Version 1.1. -% This license is in the accompanying file OFL.txt, and is also -% available with a FAQ at: http://scripts.sil.org/OFL. -%%EndComments - -FontDirectory/CMMI10 known{/CMMI10 findfont dup/UniqueID known{dup -/UniqueID get 5087385 eq exch/FontType get 1 eq and}{pop false}ifelse -{save true}{false}ifelse}{false}ifelse -11 dict begin -/FontType 1 def -/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def -/FontName /CMMI10 def -/FontBBox {-32 -250 1048 750 }readonly def -/UniqueID 5087385 def -/PaintType 0 def -/FontInfo 10 dict dup begin - /version (003.002) readonly def - /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMMI10.) readonly def - /FullName (CMMI10) readonly def - /FamilyName (Computer Modern) readonly def - /Weight (Medium) readonly def - /ItalicAngle -14.04 def - /isFixedPitch false def - /UnderlinePosition -100 def - /UnderlineThickness 50 def - /ascent 750 def -end readonly def -/Encoding 256 array - 0 1 255 { 1 index exch /.notdef put} for -dup 0 /Gamma put -dup 1 /Delta put -dup 2 /Theta put -dup 3 /Lambda put -dup 4 /Xi put -dup 5 /Pi put -dup 6 /Sigma put -dup 7 /Upsilon put -dup 8 /Phi put -dup 9 /Psi put -dup 10 /Omega put -dup 11 /alpha put -dup 12 /beta put -dup 13 /gamma put -dup 14 /delta put -dup 15 /epsilon1 put -dup 16 /zeta put -dup 17 /eta put -dup 18 /theta put -dup 19 /iota put -dup 20 /kappa put -dup 21 /lambda put -dup 22 /mu put -dup 23 /nu put -dup 24 /xi put -dup 25 /pi put -dup 26 /rho put -dup 27 /sigma put -dup 28 /tau put -dup 29 /upsilon put -dup 30 /phi put -dup 31 /chi put -dup 32 /psi put -dup 33 /omega put -dup 34 /epsilon put -dup 35 /theta1 put -dup 36 /pi1 put -dup 37 /rho1 put -dup 38 /sigma1 put -dup 39 /phi1 put -dup 40 /arrowlefttophalf put -dup 41 /arrowleftbothalf put -dup 42 /arrowrighttophalf put -dup 43 /arrowrightbothalf put -dup 44 /arrowhookleft put -dup 45 /arrowhookright put -dup 46 /triangleright put -dup 47 /triangleleft put -dup 48 /zerooldstyle put -dup 49 /oneoldstyle put -dup 50 /twooldstyle put -dup 51 /threeoldstyle put -dup 52 /fouroldstyle put -dup 53 /fiveoldstyle put -dup 54 /sixoldstyle put -dup 55 /sevenoldstyle put -dup 56 /eightoldstyle put -dup 57 /nineoldstyle put -dup 58 /period put -dup 59 /comma put -dup 60 /less put -dup 61 /slash put -dup 62 /greater put -dup 63 /star put -dup 64 /partialdiff put -dup 65 /A put -dup 66 /B put -dup 67 /C put -dup 68 /D put -dup 69 /E put -dup 70 /F put -dup 71 /G put -dup 72 /H put -dup 73 /I put -dup 74 /J put -dup 75 /K put -dup 76 /L put -dup 77 /M put -dup 78 /N put -dup 79 /O put -dup 80 /P put -dup 81 /Q put -dup 82 /R put -dup 83 /S put -dup 84 /T put -dup 85 /U put -dup 86 /V put -dup 87 /W put -dup 88 /X put -dup 89 /Y put -dup 90 /Z put -dup 91 /flat put -dup 92 /natural put -dup 93 /sharp put -dup 94 /slurbelow put -dup 95 /slurabove put -dup 96 /lscript put -dup 97 /a put -dup 98 /b put -dup 99 /c put -dup 100 /d put -dup 101 /e put -dup 102 /f put -dup 103 /g put -dup 104 /h put -dup 105 /i put -dup 106 /j put -dup 107 /k put -dup 108 /l put -dup 109 /m put -dup 110 /n put -dup 111 /o put -dup 112 /p put -dup 113 /q put -dup 114 /r put -dup 115 /s put -dup 116 /t put -dup 117 /u put -dup 118 /v put -dup 119 /w put -dup 120 /x put -dup 121 /y put -dup 122 /z put -dup 123 /dotlessi put -dup 124 /dotlessj put -dup 125 /weierstrass put -dup 126 /vector put -dup 127 /tie put -dup 128 /psi put -dup 160 /space put -dup 161 /Gamma put -dup 162 /Delta put -dup 163 /Theta put -dup 164 /Lambda put -dup 165 /Xi put -dup 166 /Pi put -dup 167 /Sigma put -dup 168 /Upsilon put -dup 169 /Phi put -dup 170 /Psi put -dup 173 /Omega put -dup 174 /alpha put -dup 175 /beta put -dup 176 /gamma put -dup 177 /delta put -dup 178 /epsilon1 put -dup 179 /zeta put -dup 180 /eta put -dup 181 /theta put -dup 182 /iota put -dup 183 /kappa put -dup 184 /lambda put -dup 185 /mu put -dup 186 /nu put -dup 187 /xi put -dup 188 /pi put -dup 189 /rho put -dup 190 /sigma put -dup 191 /tau put -dup 192 /upsilon put -dup 193 /phi put -dup 194 /chi put -dup 195 /psi put -dup 196 /tie put -readonly def -currentdict end -currentfile eexec - -D9D66F633B846AB284BCF8B0411B772DE5CE3C05EF98F858322DCEA45E0874C545D25FE19253 -9D9CDA4BAA46D9C431465E6ABF4E4271F89EDED7F37BE4B31FB47934F62D1F46E8671F6290D6 -FFF601D4937BF71C22D60FB800A15796421E3AA772C500501D8B10C0093F6467C553250F7C27 -B2C3D893772614A846374A85BC4EBEC0B0A89C4C161C3956ECE25274B962C854E535F418279F -E26D8F83E38C5C89974E9A224B3CBEF90A9277AF10E0C7CAC8DC11C41DC18B814A7682E5F024 -867411453BC81C443407AF41AF8A831A85A700CFC65E2181BCBFBC7878DFBD546AC21EF6CC52 -7FEEA044B7C8E686367E920F575AD585387358FFF41BCB212922791C7B0BD3BED7C6D8F3D9D5 -2D0F181CD4D164E75851D04F64309D810A0DEA1E257B0D7633CEFE93FEF9D2FB7901453A46F8 -ACA007358D904E0189AE7B7221545085EDD3D5A3CEACD6023861F13C8A345A68115425E94B8F -DCCEC1255454EC3E7A37404F6C00A3BCCF851B929D4FE66B6D8FD1C0C80130541609759F18EF -07BCD13378CBC4A0D8A796A2574260C6A952CA73D9EB5C28356F5C90D1A59DC788762BFFA1B6 -F0614958D09751C0DB2309406F6B4489125B31C5DD365B2F140CB5E4062C6809231B8C670BAE -3702AE125F9780A706EDBEBD58ED7CE6464ADDBA1E380573B133BEFB3892A0420054E30C3761 -851A1AE79D6C4E175B392AC53B76DAB7CA35ED409DB30CA2510DFCF1D58B730E450B533F06DC -31539DF79A10B87E47E04EC6B1CF1C46F7551A63E736E27AE222C4DBD3BFEC3CD512CB1DE002 -A8D5E6B3A1D19FCBAFAA88DBEA497988BBD3DB60A671B3221302F55FDC4D3693F72228229743 -E0C9E77C581B6818198778A4DC377D53EEE0EE329A4D807AA4F213B5EE8043DB9D0C8CB27071 -4A7DE096545CE5C2C4766C89474D325582A907724C6206E1D1579CCCCCD755F449B08DA43DBA -7177D082719CA3D363C3059F1A90DBCB7EB0DA4B461748D39E5E7A4632E5CE964EF7D23A1117 -DADC7E3B5C789E25E10AFD91B35EBDC85BAA97FE66678DFE3007AF95F2736E54BF3178B22CCE -1F0A4095D39D7070F140962D45CC6170E79B4FDE215510A0226EFE75F24B596436BD4F1B4507 -31CDEAC504B7954D851E16ED1C28C1DED3E96000E2718CBEB3476D300F67CE3E9AF3A0A62703 -A2C917F7CEEF7E12914F417DFBEB3FB510BD935973B1FC224CAEECC104578C61AB475A21E0F0 -E3842AE875B0D501BC007DFCCE09C1683FBDFE6CDD2D18BCDEE417FEC839407443F7AFBDF059 -E22A2428352962F28E12994D31EF011D44676A64D47E385173298186484D446049BE5DF92095 -47EC7114D10CFEF53DD2078C0528D2DDEA99DB803424845BB971B9072EB7C4B4C21C3F10943A -91BAE4092082F9A824B03FC6BE7149ABFCBE4A60C300EDFEFDB3034969096DB3A9EBEE77FA38 -FDD982BD0FE8635DE5CB9E7A0C5D1A77DCB92F24E081C131089562062C32DAC108E364713674 -438733DFA1204BE8721AF055176D8F66E7C426F9EABB581D693B531844266C3AF03D29B78557 -F7544059E3E71141DBB5F756D22740AABFFAEBC65CA518C40CB0D494E33F2FA7A7343BE3F8C2 -3D43F76D4B5C75F93A4B49EC06A933F2168A3BE687031AD896523CAD3B0BA2091A168F9A09FB -DEE232032C6ED2F6D167E31E62B4B2258A4DAF9B61A9EEAB1A944F1E6E6FCE1B06E6F6C5EC7E -947D99BE91592ED1D6428C63D72575E5B0DB0D83C5D68AA7D48863932FB46219412214BF4E50 -7408EC6C1756BBE41DFA293436589F032821455BBB852F79B8B5CECB32532EB9F66260E4B6B4 -51BB41B911E70E58A958E7A564BC69361126F8C3E61C36D2E216E9C0581CD176CBA03C66EFD3 -AC62DD2A9E01244F91F7FA061E909B6241BD53651244BAA2A1784BE07B059FC49AE148A7FA58 -41C5248390B3ABB8255B8292EAC87598B6FC55D24136F9DA482552BD8F2C53457568DD1F323D -0211EFE93156AD021E8622F792F21E65862DDBA5EDBC94A56E426565D47FB9586748A311DB55 -816F2EEA29ED07253B440CD6092D7339850F32F9DD1D0E218348A4AE2A73C518393F19FAA57D -BFC9B8F879939557A744005878384A0E87BAAB534E5B3FCEFB11CF19C865E97DDFA3FD3B826C -32936EFED8C95D58260E95ED42FB787B1A98351DC786028D978CEB9972E88B9E13B711DAA277 -796188D20E9C7296D35ACBCD4D1CD7D19C3BB3B5D572F1CAF8A5D6662B4B8664878A86E3B051 -ABB6AA9D07C292C3EB738CEF804B227CAC1E63753CF8F1F715EB9CA50981A56B9B87918D60FF -03BCCBBCD56B48F542C98365D76067F6A9A4A5BA39BF317A88BA20EDCD4844F4649218E7EB03 -1F545933E2696674179A7E0475C42DFCFC52696ABF07E5A6F0267EF858BF733B13C78E49FF57 -1E61344FD7EF13B48F29C08AF31EFCED0A89C9D9BF270947EE262B3B3CC5CA827D7349E62620 -7F7A277AE4E48E0D364AAF82CC718868F12B9437754993FE918937D152B509F0F7CB714941B8 -56F71EDAE36137F8A29693BCBFCD9D4229E4EA87B04ED14382B8C671E518249CB4027571DA99 -0334A3F83F5F57A015D0FC72E7158C548CBCFF50664B0F8E0D141FAE922C989779D4B82252E8 -69AC9B34F5C2AC136CB86EFC19C7555AAC09422FE7EFA15CA7138918F809ECE45E33AF72B9D1 -853CA35C187AC67623AF11DD21EF46B8336A38FE7B38601E40EA0DCA314BBE1E98FF6991E9C8 -A1B44D5EF00D5BEAB8E2E79540FD52ADBA0994BC9C63DC3F010E10D4B4838E4197885A7C01FF -661976F03186BBA8ED2A3E0C2082A53A60CC6147B17B6D88C4ECB0BAC71FA26A727E50918CC7 -A17A5D617499B3ADEF13E131B7DA17C25A12F6C7C135CB71E89F9221AD2BC92AAA14F2E6D8F0 -60763F5CF5FEF92FE4B5071D34AEA90F73B68FDA8BEE03C2FD6755A297664BD74DD9FFA4ED90 -ADCCD20DB68C868789C27C9AD6D1D08E1D26C5CEDC1853C358666B979C95C0DB0F92DB44AF8A -1F8146C500BEA331B2A79CA6B90BF57CE7F9B975FA42559A918E1B27E595D92D588896464A8F -6A119AA6B88A69454B0ECCC10C2A2454C48553FEF9E5F73DB77277AA39D2D21723DAA7234185 -D3985B0DF9E4295055D6EC44487DE4D9770BB51D4039D957A97D60E7FBB03F185DA2D9829970 -BDF0AC31C0A5E4037DA595C67FF45174E94BA58AD7972667ADD43A80ED37CB809AB4F89AEDCF -2F4A95599956E49FDC6587024E4DFCCD30F46B4DC205101E026BBEFCF4C2F30B2A05DAD35549 -0EB296F8BDBB84D6B2F035199D1325E1E54498DD98D16E6340486D2A57F70DFFCC9BB3E8E416 -FF1DEBC2098025B985206EB0A5BA79B9E73ABEB0362EBBA8323F1DA75B3047868CA6C6412A38 -78DB9F52FAF52219F63D505DC87852E45AFBDF441B0D8E47716D800369F86C4C90338CAF2981 -C77CB506B690D22751C87D0352A021FC0767FE3AF39D42A57A3A3357E46A36B9A318D0C8A0A4 -7C1C3FC8868545D5B2CD42EA573619AF5AD385F3917756B82F60B16E7A33913D9144B2FCA93E -9C75ACCB70DC55DABB5B1E84F0BA757954593BD61A53F41864659D9F1BC293417B4D605F2F67 -D24CBB745CEBB7919E9BE1D93E9461181A3888A271E7E094FA64459385FDAE96D342ED2E593A -EF5B0F5A2D01686B696461091A16DEB9FCAB20F2632732B52637E81E598BF7C8F17970B6E3BB -3822F2EDF69EA1746819413066EB2ED7B43F1D450799EA12EC58DED38B5143A90896D806E37E -F1373011E180D06231829F6C2E8433E9F56D7A61A96C55463EC5E6EC36695BECF3E7A3A4DFB0 -63C30986A5C0D1103F31803D4457AB0D72C44B1BA2D1F0FC740D98AF3E9EC01F84FDD6EAF479 -48236D988B400D94DFE926EC2EC38AD6DA2F374441620990DAC5593CD34E154C3FF004E9536D -6B9B8B41CCD0C9AAF237299B91524E39F867DA0C0CD33B05646A10B13CE1DB4D9D82FE29D528 -8E761F55347DCD040928D34560C87C7A93ECF8A1D31086A33D2BF9F9E4CD06B11F0F197E8EC2 -132AC23976CB80FEEE0D68A30434C276E4AE9D46468397934F8856EC2E482B2381AF05C58AF2 -ACDFE0D758DBAC363F1817030BBD26FDF5819633C9827E27B1DDB43A56DA5001D17B59A6B218 -D2CE2F47C5308235C60EA08B24736176207EB3944C0C2B0A2F5DB51EB2DD1EA27E545A4DE795 -E16061FB48496472787E4D06DB2927700CFD5C2BE68FDF12038F06FE86474186F647AF4ED1BC -1C8B446C5A9CF538A9813EC2142A9781A88D524F8B03B26D2B3C5F66BE569717CBCCAA602876 -7D5D7A4BF00CC49827A766E67C6E98542A06B479D831754AE7A895F6CE275F3F03E8F09A5BAF -9403B9030651336D8F4B3F8D0DC2EE50CE8593D2A365652360033ACE6D449BCA26BFE2908344 -BB6D46AE7EA36AA4256E0DB5E5EE1EE666C302F00C782D02C2A251B9AAE9DF91EE1E58BC17A6 -6AEEC65A75A8BD1277B3B3247F57A9AF643ACCC2AB63462E3035B2E14482B625A69934744B0A -A98113F919125346C854C73F7E24123E70FBF97BAB700B8146DD010F4470B08E4F95B61675AC -033198B0871766002B6688B17BBD2C010A44CA430D763C3B4E7F005B7BC21A8F91072FB3CDFB -B83F5B92614683730F26AABA94398A506BE38A2A6393FB78C46B12E2665BFB3C543EE45EBD37 -AAF6DD641BBF996869ABE0983549A76B1BB226DDDD7BEF928E06EB9C1B185BC3CB9BAC42B9E1 -63DC13193F824CCC82A16907AAE7352799F2510746FE287BCE1097AFAC2C5CB2E163637E5626 -75F81AE43647FB2FAF61F0572734D41258E0F290D2F16E653FA7451991CA7149CE3911A0D943 -761EDF2F1045F274BCE511C8F6BA6AC76EC5C36CC7D18E6D1FB151ADB459D5D18715F9DE964B -4FF2E7529000A29DDD0A80081D3E66919A2CD2D2246DA276E42465CA9FF24BA1112896BC8B84 -2424E8743153B0B972BD829AAA296AC452ABA0300BA89EF0745CE65102BD2B5C74CBB0963D83 -E1EF4B3C2A58D8055E696DAD94861DAE50234D6565CFB7AD2947727D76482DCD5AAA516088FC -A6AE15D1CAD26B869FE82AFD428D0A077C2C490D260A75BA834B7433A3A698FEF7CB1DCD2723 -2D341939409FDD8FEECC663918FEC5CB68E7481B9C97A90CD7074B2E972D87CFEE0F3C2BC0C7 -44E1F720D7F33B88B2DF064E121074F338AE0C57AD3731855519BDABC623AB061D027DAB1B8D -5DE267ADC44E93A675680CC40A3D1CE638F5C565AC3485F048BCF9D485EF2D72D29A0CFC31B1 -9171307AC6901B2E2F275F6907E2B9DCFC471133A613F62ED32DCE4A146ECE788EC534D5C084 -4A08C1BFC8CDE3229DEBB8C4125B0D10A1440FA313B0377074A0D890EBA590CC2207C3D5F825 -CD0C846A1B47E885EAE2ECBC583798754A64702BBC3C032D4A489FD986CB7FA37CC4B633C8C8 -4CCE56EE6A9C53D334E18DB204E43F2D084B0AA0435E1E5009957AA0487C7B654008F1B83B7B -C5EE4290986F106279A994116F2BC3B36ECAB14E1E5A6F57383983E0D48520AB39E999D248DA -7D1D376C28BCE9B74DB2D38E6FC89D217F948971526087C02D1B4421D2B81204C1A210F9DAD5 -65EA8DB2A23BA3DAE525331DF23748802AEAAEB7C457C9595580E1F903D6C4718FB1843D9C92 -80FB1750EEDF4DF8D18E168ACC025AAEF11E7D57D03D3DDB7B001B7A6DEDAA0E443075C99526 -BCEDA1F1EED6717BB775A141B925A27D61EE376441206E18B23B8EC62D755A250EE1520CC279 -A6F67A3587F4A43439C194BDF6D9D95730CB744F847EECB180A241D1B3DA379EDAD4C43B7838 -5FE83136F4091AC9313E40F3E39A3EF1C5CD95CFBC350369E6F5435BC36EC337E8ADC69C2BA1 -EDEE45B6E858B76A10FA145B9F029FE3DBC669A5F91ACE7ED62FE70AFD4EB2CD683E50B5BD7B -2EEA06D1A2F2EA3F2509CF8C5E19219405AD7FFFAE0B22F738C4844D89EE709021E9F6BD78AF -46FC120C37AFC3F29A315F801D6B2E354448D5EECCEFF62C43A016FD810052104CF9B0193885 -BFB7308110B285F95599B5CB732C856C70E665860E1F88EAF111B2E3145E5C9BBAF4C53D789F -7DCE86D8700B1F741D342C6E8C17E89B3432EB47CF263D11486AE3F3EEA479CD6DA86D1ED0D1 -403E5139C0CDECC5889DB49B24EF64E06F9619522358375FD54AEEF7984A7B4998058D23B065 -BECE937C9638B9380C4AB40BDCE27E0F09D160121DE52C7A7FD8F9DBF47D78A3F89FA2778FA8 -65CA61CE2E64A420E60E1AB30633E632992EC7CE37AEE15456446664AE34DC0DA2BF08AFBF6F -6BE4DACE7067BD1EF1B45646F99E34754A4C434DE88507755207C31BFEB8CD8DEDA6EA06A719 -22A38FCC7D33E6EBD78B970FC94528A8DB5D12D2B8222CD5AE9703D256E8D75945AA5B7E87F8 -07981E551C767DA543AFB0F87CC4D9D35DD3D790AF115E9688732FA2513ABD5E001F237565A9 -078B782198971F8599C23BBAB1C8ADC098688B59619C07DCB2137ADAC3A0F83AF46E7B9E420C -70D92E5588985D94DD7D1DD46361DA4FE7B3CBC1F887112F1ED0D5BFABB41C088B40CBB45D2C -1D0A6114C2D613A91BA2F1CEEA5F0FAAD1D4C32AE8D0AEEFE4E3EC36935C209DB4F8AE49E279 -18924F4E9BA0C813519B7E0A8C71C3910BB0970E7E3980BCCD990245C28F7676A77934A03D60 -C634A478BFB1C7FC811E65C5770E74ECC042F51183A8A570B986F27D5DEBDE77137BE74BF14F -3B92C30A9C1B1831875F795A0C141E0833DCE32A2F396DAFB4A3ABBF023E5795BE3417AAA442 -0E1075E8EED1489A8AFF4FD51A54B517E737B7734C4ECE1721DE9D7DA8106BC326C8B28F6D1E -C46B903F4CA044F663C03562132A08AB8CB50ED917470EAE0F6565BD507B02EC06FECB8F53DC -B01651EB79EE4640E8E1985C2ECE04D3CAE9616753555F1E34E75EF364FA93711DB9087C713B -6A69CCED8A5185F54D3299F9531BF7EAC47BA0C27ADBBF90A4955C986C38FF8EDAF559CE3095 -BF7A695AD178472BC5709D0ECD90C7C537A4F65DAB6A81E87E2355D2854EDDCBD9173676C779 -C5AB91DCCCB74A35E2134D2F19B6D495280BD595CAE39BCAC779CDA2C61A3B6B62CB34DE7D3E -7AB665D6E460DD8522E97B27EC820A6CBF1FA75EF0768E92D3CC78B8A78D25856E371D7B9480 -68E17D071D62ED07E307F73B7ED49C46D9DBB212FB89C5079FE0DF25D2D18D5FFBB8E82CDDDF -B72F1D1ACF10AD23F2CD2CF003235E3E1518A2A46C95C7C5EAD396D0989DE2DC6F1EDE08D2AE -1C763D2528F49EB3C6E5ABFAF9BD05A3D9C5CD27846A743EC6CC11839AF6364E6742840420A1 -CD3CB76D9A1C548ECED1911A4F03E5FDA3AE0549AEA276EE16A37F31E1485BD5AAA9AE3AFEB9 -540D08D43DB9EBC456BF648B6DE6A53F64AB5A65F756AD68EF9B5A01B8AC9E54627ED1A6DF8C -FE87DAC019A6A33603D005C6B492609380D388FC68046495C8CBC4C050BE8F6260B578BB4150 -5CE0BF93FBB5E75F6C237C8EED48AD41F91BC4D9249C190316710225C4C3CB3F3BB5CE41A81F -9E885BDF56744CE20FE1E134F31793C8C92E671023108B9EAFEE63E93D8E2E083ABCB78F029A -28BB3F7360C510BF86A0F5CE584C959E80AE6D048D250A0AB3899694EC569F5A60FDC91CEC7A -A8D06D3F20E4C5EA037ABD6A54F5330A04DA05617BEB1BA01A8EA4CF94F1318D6D58BA2F4980 -242F2F39BE32A0DD3AEC378B08C916ADA5271ECF7AD07B0BC2D74BAD8F21D6963D5A44B80ADA -5B7792642C6ED391BA1D8C26257C8FA2C9628478C1D3A04583F3DDD5AA9BBDA20C8AB1CF2429 -2E3DA39F0AAE89A2BF2707A2A0B9F99A7E4AF7208588A0DA8C5E58E1BE9A934F659B3FA24F8B -C762447A1249CAC524780A1F27EE4F3FC039BDE351DDBCEA00EBD4A0F65FE6AB022AE73A65D1 -162C95C48E69C8284A8300216035F189CF3B4A051E3DA7AE134145C93A9D36BD71887DED330C -98638C065EF056061AFE4AFA9B8C5422B1DC82FFF65B8B276FE9E560BA16573295F76F7C8826 -0621587FC16FF6D48BF9B8D258E120C3C1B5385962B6DCFC453DEFA99DF6B76D0987DC232178 -A078C99CC3DDC5ACE95A878698D5F83792BC666778465919400C21CE472097DDACA38264B4EF -2F0AFA898C8137404E4BA18F6CE51FEFF96043D0015AC61D7671A40A13FC7E10ACF9E778ED64 -5AA1184ECCA49857A84C6D9CA2A0817887BCB9F55C882CC665A6AA8FA7988FD05797AB0DA780 -23E249A6D758B036E8DA6C035AD861F21616CCC988E29D5060813FA27C1D9884BB0FA3EB65D1 -FA0ED45D531439F600F61C14247E632909EA78CE4568A3642551DFF34F1AC5DA759CBE317F5A -44FB1233392D62BAC0126036564A37F263BC1A45093327484763281758727B11A4A8A4EC4EEB -85A418E6D008B2DC93191346042AD7144F4B9BF6961A45071055FA029E53DE2D2FA9D92E65C7 -E7D14E7568A003A88D25A09770456DD457469896108D4EA5F62DB179C9EC05D87566D0FF64AB -D151041524AD6BCA0EDBA36CC2B96315572528C63416BE8EA4B48402844D7453035C1D46E821 -750FAFBA9CC104D0E0E770FA802BE0D09B56C556D32CCE3268D06EDC9C961F8F34A682439A26 -B12C076D2FFFB098EA0116C08164A673187892078979BF133A59AD48821E93584774ACFAF0A4 -00C8557D7C0D715C712D4EACECEDDC049DC8A0C019435EF5E5B042B64B376B162308D41EEDFF -2FF5F7C1B2309B8F86FDB47F905A0453FF2DBE0EF364C1CCC438A3EC818046F07112EE3CC218 -15CEF16A7AB1D6BEE1625C57FB3179BF7B5701D0B47EA3BCEF53D6B455F321254CA5976CB3BB -53E381AF19769DE275AA44CDE3BCF83F7C337E59058A2E5A1F50894F78EB461C37C9E3E63C79 -F31E76BB68A767AF96EB097A8D930DA33568D47324B47C81CE0DAFBE3BF007C55FEA4B0A0BC3 -908A2FB97263FE5F2837DC90C1F81F56A6EB014AF134E0A8E36E2A8CDEED7725755F776464C1 -86E92D66DFD5E59140AA63C141374E1D883916487F33FE14567F18F10C1F39290B988399B275 -3802A1E28F5643412C907A02AF184F44CD506CFBB13CC7413CDACD2EEEDF3B160B01FFFA5222 -C4764E652EFBC89E44E7AEFA9F275F2DB1E5B95AEB4A7088D1EDE5CF40D7ACFE4A3482A1659A -570971CD5997F89AB3D20E77398215364B5814FEA406ECD4BE1467A41BC9CCA2D48E382F447B -386AE5495E4486B02871406ACA754A3927FF0A63CAEE3F33CF6334A1AC3E2F7432747CECD5A5 -C39ACDD151341A341DC82EC8E951A2F5356A75124911FA1E9AC9029F06EADE0D2D5281A2665E -0E14A8491FBF84A24CABE27D908B7DBA52377C6E95AC3B7486902006C5E40C4B235444E30715 -3AB4466756B5B3B45D77770DA48814B2B908DB4665FA90D14872F8A82D452FB2264195EBFA0F -F9BF255A9B773CED969F9072CB9A69FC23092E350287FB55F5BAF7B2287209970714623A8861 -8780F4A52A63936A009A2889454022DC4B88121BEAD8C1029208CBCBF43DF8B27AD576AEADB5 -887B5C3011F9EE757F7082C8280A0DF6EFD62C5748F093F0EDA116D0915BED54C87257961D49 -D9A78BD3516DEDDBCE1995D8DEBF1C0021F2ED25835EE7FDCF6237167399069075D892E33BA4 -C81EE7537EF02190ED04141DCB21DCE6E4978A86B94B0BB3C08B9CB270E50909D780B0556AFA -77409C168B61E4D6B81D4371D1667C6744A55EBF628154416AAA6EFEEE7D0BAD3F5FA4AA3237 -1893D9952BDD20ED383ED83904821B1834BEF0CBAA0B00EA1B7972990686477F6C233D2AAA9D -A87F589446A89FD3C83647A8F86AB1EF20E3E9435374BAD83E13388DB4ADF5D211136474109B -DFEA1EBB21B97702EE3159A4719F169B0CE3A141CA48316EDD73C8AFD576D7A4826677A1ED61 -4CDF61164679F34FFA68E40A0476CDC04636674AC36AA22122376A0299A18DA803363D2C8957 -3E5271C57DE0F58750E33867363653E1A717CA0262D0017F6DB8B4A8B705A084F0354708A49A -03F0DFEA45216E50DA8633BD448F4109AF8864B7749CB7A0E8EA4D9D28ACBC7BFBB42CCF7D10 -5488FDF1D814FD6B2F47A9569293814D6D7FDB952F5D85C4BE0E437A022A394678D2C842120B -4A2FDD89516C5F00228C6365B7F60151D451B272A206BAC3255CF5D68FDBD4B89C92897D1736 -8EB84C740BC0421FFF27A307C640BA27C4EE467ED3BAB502E0BEB8FCB8946593C70C8A21BBDD -6B77F21DEF4AE9F2530F51E95DA7B8A85134F695B8B16DF2E10ECAB744BBDF3FBFF4CDB9A091 -767C7C9C8D3656A1AC5E277353DE528943ADEF524A41666DC5D10276F404C0F1F1606CFFF798 -3F52436E5A34EE91D0E4AF98561298430EB63E31C51C4BF9E65B9FC8C9158DB1918DB3984C62 -9794AF50C43C18611F59F1E3DD200153EC9A6B628D56A46AAF1276632A53453EB3496DCF4F21 -74F3B86A5D4D14E67EE18F06C153F88DEE9A91AD36A793F2B3D11436CBAF71811B3742C8C578 -1A692410F18BFB5A751BA7E977A37A270187FB97EA44ED468AD03E0050A3CDEEE397B377EC23 -CF20EE2F72ACA6B5129C6A4ECA5C7B5C4C9A03BE54956B638B217D51D416D79FB3D069989A03 -63FDF688FC3D61529B08036B1B3B8B0BE0101DD9F5CD0260FB45044E09FE59D6ED39F9C66189 -A5850141D33CC7CF390576A052DCD55586C90188F50088D6F038C1DE31A636A042266B834F93 -39CD152A84325BE676FC6C94312E6C5582E3D063FEFE33E321758D7CC38BAD25DBCE0ABE021E -7F17F84D710BAC4CEFF5F44BB036FED06B6614A1FAA68A7B175378D5409D983BD1775FAAEFC0 -8B93C7EDEA64FFEB7DE8105F0AAA9F8463D0CDEBB37DA9494C42181A2AE778F738776A02EB21 -70D636582B84DAA97F91ABCEFB09748B8660B4C59D18FC35D6EA7EABD2DAA46C47362B6FF034 -E1E19ABA030E06418148FBC88F331AA341D4471940446E4BAA085867C020699401010626FAD2 -8BB1344EEA338F7309AB42840D60648D1AE5C3FA516E4D96263BB411F5CB3E506F639D3C399D -6CE2CB00DD6E555A413D3D0A52265ABA30FA0BD32CFA9C890D5B0FEF16C98DCC205023CE26D7 -6AB91C343CAB3954BBFC473EB78A31AAADF1146997BE3E214D99A95B32274F289C087E6AEE97 -443AFDF046F923069DF8D162A2B4A9CBCFF1A98DDF00F13972378F76CFCA501FA81867E7AF04 -6C3FD1FF8B4125F0385D78DE487C3EB1A4EFC0F0BD1F9421B0B3D38C48C5C54C064F4941F55D -46A06B8D4369421F1CDB123C143130D64D1A9F0D69D8CB77BB18FC678D5C4E41804DCB55AD7E -31860B855696908A2255A4D4016D0B547C7AD0029EA4B8F08A54FFE7CF12A00339087A132C5A -8DA7ACD499EBF4D37E73D3D3F6F3546348A9D0F842F0249674982FFE0713E1CEDD0313E507BC -85069D70FAF8F8A2E36FCDDD22AB9C1144D42D72681F464760CA78D0A8EA0EFD0797DB43F50A -7C044D1421AE9B41CB7F23F18978442E65A962F891A6E90163F70574236DA0F536AAF7402605 -BE6D076CC70ED2935BEB6CDEC6725CC6ADF5DAC73052EE0D073E07E953AA9FEA7E88588E98B1 -9552506D1F2538E14C1D80FB7DF3B7DFDBC348D46F285A1543491828B072F7D42EF82E9EC755 -CF05A292A26715B42F56773BF86562F41AE18A060DD7F2BC5891419FA1A313405C76C056AD2B -22AF876680F8C28689B4AAD1AD71B294454F305FD382AA98405D6A8BD80BAE503C39D570A8B7 -7A7E17E3982A576790634BABB2C82D33B1A1B25CE073002A15BB536D75233DD4D907B81C6985 -768E76C54FB0AD83219C747CBBEF093B931EE5110237DBAB1305E6668777B3341748034D05F0 -BB4547E485E975BCB018443A878576F9B85BDE41A7BB6EC20EF6369F795EC24597E7FFE309DA -42C01CC7CC46FE9DEBA8B8686185B68D37742B8AF331354FADBD843119620127AB8D3123F121 -D88EC489CA76E0212F4A7A69BA6A1045AF054EE33AF6D43C46866277B947BC1EF241E556DBAE -8F1B5F5A57EA1E76A4EF1C06A926BCFA464610F93432AA880BE65213C15CBAF727E9174DFB8D -7B16A11C8394054CB6BF57A8D8A9FD840D21F9715773C05FAA10735C8486A2A67F925FEF7C43 -79F3091A456622439D8FB7ECA200FA8D26B63043DA049742A4FD9E5AA5DA6353024606C9A2DD -6EB9A20A392A9D3C0B8BCD02FE28491BD822EA387B5F8831AEE6E419F8E7F7B2D87CB9DAEB59 -7F50E413F78108C0EB03612A18AF994902ED5C91523E070407488DCE1A7B459F9C1C483C7F3A -C4734F8F979CB87344DE2F1E81560CBA80F940945787F375636170E2A16315E8526BD42AD8EB -0A1B00FA47BD3CFA00571A91BC04462DA38A41944AB6E6A762FD34E8B2085690CC934D4420EC -52269F6D7ADAF02D7A48464778AC9690EC14350221FEDB06055DB4481672EA0FF6AC2105A124 -ACCE497431BB6A21490F8D76B6BAE99DFE5F4A1F91B68E23EDA04ED030B757F427B6D1734097 -0943CC90E7C9356A3E8A49C057532910FC54D05C9F604B7FDC6CBA5C52F82EF7611D256C2172 -7A4B7F7D2886430087D3B02D44B3E4EBF31D3185418224100C32A176DB8ACDD27A3828507607 -B8A6358361EDDD2697DFDBDC928BE154BF1232EB37CED424BD55B2879DA7FE7C30BC82A512CF -1E654D0CC0CB4DDE59399B55BB9E53C9469F6813E1A881599B2F5A1C0CE63F694F288EACC9D4 -D691EA5BD5E4D725C3939D5C2B4EEB1C27A2E36071C99764EB61C597D5DD0EAA594FD503ADF8 -52D6212E92C4021D3D755B35FFFF2000E67AA8C8A8F887907125A703FAEE4701DE5B054D7223 -389D076AF1E78CE229D2B7AAEDD3B83B9FF16C2F100C552521BD8EE293A019967F783D5E73C1 -174AB8215BA5496520EF03ECE4E0CC189B3805209461202ECDDBFCDFFEAA81D73A3E2D7A2F0C -086417454D7F90449A7FAAD52A2177E07A2289B7A2A990FFA14ABE6D48267F2A3DCEDBF4F75A -A4006CDCB985067772CB50A88145BD8F799F545B6FA34AE773E25E48CA6C85320EC48560A051 -B68E0E06F173133E2879369280C02172905879DCED8ECAECD8906F80ACA1DF9BF626F5510595 -861D88C681564B868679E5522765A809B2DEC2A107A2275FB7E5B1768E27E0684CFDC2242132 -5E1BBDAD855FCB0A4EC08D1F146CEF2CF68208F87957A6A15FE1E2755C38549AFE1672D99C2A -C75AB8F1A33E2907B78BA020BE9DC1BE3EC75982A5CE6AC241A050AE3C36D885EAC4E73F0CD5 -E21F1773F8E147918D4CC694403D0EB8BAB0150B8CF48CA91F9BA174003D13CE9F410A5AEC31 -296A164E6D611C8527BCA8DC71A2AE57C4D7C9DFB85EA5DA647ECEAFAF417B0F6A0F70FF771A -31FE63F6896FACCA9647D2849F3E6067308F0A26A151DA800F9C9902475E6CE9C73214B7579E -7C7A019798195C89722FFC804EAA1BCE0917DEA7C6461E7E6A30D27629010BE7B0E2D8770B49 -F4C04D0FFE05FFF2AA626F05CC3D2E4852A9C0D61013227ED4389A3061620C8C1DE967D227E9 -4FFD522AB24F7EAAE9BF4203E1F259F5CA16EFA197DDA8CA0519B6F337C5A2B53FB855BBFA65 -1B729C88433561DD962B347294E8784C1B7E8ACBB856A567A9D8A2CECB86177C3E63864D82A1 -F795B2B67E6FA4E700F0C64B051D830D5F20F214C109B6A16D3EC5DE0EBE8E1737162CF7133B -5EEF94101E050AE455BD4F90C9CE7B5AE34F114491BCC80B1422AF8921DCBD0850E30F986716 -C8B968F77D7977F825FA32D5826C2F4EB3C0F7C78850DB3D0716F6A70016A7A249712499FC52 -9B928DC66E388D47D00EF777BB0CC69965A4C4D737C1F9199D677552B91A9CF7FDB8C03851B0 -8006861EB360998794CE0B955C16CE1F6FE86AAB4700CF6E2BEA44F92ACA4E6B779454E59FED -0768F578FC6856AF8BB2022BDB32B8FF477595FEBFD382CAADD04C695132A206D68A0CFABF88 -C8A78063B2DA93B3D70DBF77F70AFBF179BB0E0B99B88D3654F7FEE3CA18A6243C211F297898 -CE19D6A90D4C5744F11C8533780F6D6BD712508DB98966E163A9136991CA3066B8270D6A5AD7 -891FC0D6C241B2085790B2E9632FC8A583CFDB200841E01EC500E67D3DB1E5EFE36D708C2424 -C896FE3AC1A36D798C9BB027F3EBD7CD09C01C2A9B3E8ABD32044F0822C6B0FCAB6024AEE7DE -4AB5A1A5387BBF87271B5DC4615D28B825C0610DCDF0F7F4CFCE880F79EC3217C2DC72193441 -FCAB1E76AC8F51881A10D67687E1168D7D5408AE252686303F20A8F5E40C45ECB3DDABE89582 -98CF9853E5D0EB6645E392228EBF0C0071EBB8B239FEA5A4390DEE73C505B9699E44369EA33A -0CE909E1BFCDB5DE6E949B02163650D6ACD4E125D9BDF310368C41E601C26A9A150843CCEC54 -035DB2101703E666EFA11F070C375511A62AF1B10E8E590661BEBA214606D093474DA3C8E0D8 -400DA49745FF02BD1859530AC09C5E06F2AE5AF23858E108D0044DA583B2568EED4311DA1028 -3A87A7AF3D486862C322289CCAE116C89CBA36C16FFEB2A511925A981EC533258FE80A6E75BF -EB4AF396CC664B33AB4F8A161E715410F55A702B4697E51898CBA67E345DD272ACF6EDCD9F47 -4378D4A97E9140CBE2923CBAF1158BF6835C7F5E3E8A21649BEF43AB7AC13F481F85C26D353F -AB2625BA6A5B3A553D10D6495D2EF4868684BC25392DD3720C58775E693CFC4E7569F569A26C -B392AADF1292209F27ACE70084142DEFCF0E2B261D1C8C764AF52B63714A499ACFA62F010A83 -8E77DDD525DB1C4C03D33D551A0B935566B37874B9B75B8ABDAFF6B68518CC581F32C7E2E2F3 -D3DD3BF7EC74D28D4763FE1EE50813D9415734560BCBB5A52A823C1EFD8BBBACDBAC34E20861 -63337C50945E7DEF65F949ED9EFF4BB11C36F21346C1EBDBB80D937BC7A485CE7D938D76ECA2 -001274528D30301DBF65879DEE2FEF93B031E930CAD083ABC10545F9E6F5E65399B694CBE958 -BE5273910934D9F58BE31ED7963E5A59BC8E40EF77AEA65A59B7778EA4AA54312B47887E3311 -9BF3E1BE854C4282FA71227207B75AE763F8D5DBB10A091CDB0BA8E83E376FAFA00754BA34BE -EECCAF0FA84C68981D35112E483933A571F08D551AB39003B6484DBCFBE2396CAD864C02AA99 -6561056DB2588BDC2175D21CEF1B8DBC9701BEC6A41B1B8E128CB3B17F4B17627F8088801102 -170B13431BA9B1DBA850A74F4E5D1F69A9FA83D28D26E4C545E3BC40FA4BD52B93AA9D11A114 -ED30134C05785867F926DC0A1462F6241E81F0F0D9C8378A9E02EE09F35528490DDABC52248C -12D0B070ED1A6EE3A59B7C6DDC563767983DAB24E9EA254FD2ED4344ADC6EA2E815DF3820C37 -4C4C6EE05F0993FD864FF6BE3DBEFA77F5BE949C4BB8DC9511A5211BF561BC025A7372EB8799 -9E9419D671FE53C4782510DE054A1BFF97671BABF428B0522E85C3010756B6BC235C07443E8E -27D00322C392DC724627284141E261CC83AB49B65B8513192F7B53A4F70E4A41DEE8A7662373 -334B850CACA3CA53CCE3EEFBBDA2C041CC823725E2D5BC9BB8F33BB18E59E507EEFB1FEAE5AD -D86E77406C4F9BFB791D14CBF827A12B6C8BBFC54DC8916A9801FBA958AB26C2F43A7B927EDE -A84985C3624FE9EEEB08D0428519CF426847DFF0B7838C9C18A2EFE7C3E8ACB68E95866B8CFF -5E5E567BF1AEDDA3769466DA9B0108974429E7BFCE72A309901C67ABBC61365325EC26078148 -8759050051D22F80915A2677CC2C27BCFC79C07B871D86340AD06E0E53FAC4269AEFDEBD3DF3 -080CF9C7D96178C5299D8DB975572995E5350195BCF4C83F16CCC823825B8AABE165CFA4DD4D -1651606B834F6EA375F774D6961B39B501062881D70A15232749BA8A43DE23D3F4D3EFAFF602 -7F6F1FB9477E2A1243CB2E7772AA8438D31CB3B7D11FBAF0CC1F0ECCB087EC67AE9E13632451 -BCD534AC7B2CCDB5C6B6C6324002EA2FFFB529BDFB7A7E2E9BDC7A6B46A0D332DC4285639252 -F3BBA3357590320BF8650389103771D430D8C79839F74AD77B27D3C230CC8E2D5FA25C582D72 -3433C732CF0E53B066C56B7B4DFBA2232F6F21667BC6F74D1976D86E21C62447E8EF2092CD0C -8AFD8533965683E7B108CC8EB4E384727E36A025B786D2F1197DFF1F85AEE880145D7DDCB02A -780C87A53E51EBB2D2E99984AAD4E0D612F57F7CD72C3045EA63D9B648D72F7EF57B5E9687A9 -354D468B8F6B35510C53AD8D9DE10186CA1ACE62480F6BC57FC9D26D831E9E9A1060B85E94F8 -54A67ADBBDCE00D1BAE12B04654944A0C88A1BB6B95E73140E4FA21043F5ACB21B6A16598977 -558A10532BDF3B604637801F9C7F4304F1F6C7C01C431DC8495AD308878D0BC8EE61081D1BB5 -F1B60E0FB209678684CA11BB2B57E80131A410A51F9262F16ACE34A8E9962E903799D374369B -1DE57C3FE9C9C09C7B33F4AE3D02771CB79681FA4986A4381146A02509D8755324C32808C3C2 -B41117969B4B33E29D53256D93C20B7F28BEFE788C2709229CC5D96F7C9761652DAFB0558946 -FD6B51DCE07474F42E90AAF2B9ACBE87130DCCEF8F4D2720CC2A89FCB37DBCDEAEC7F44A1E73 -230D9CD11DBC5A9238868E723DB31361E849EFD2C97801373FB28184793AA82DE22FA932504B -D558C9D46F4551F9A9D9C012C2A3025119285B17D7F0BFB1A71D988D1149C1641D6E76C1849F -F3E3C5D15B22A3E0B0D5D796903BC96A1907144E32263F5185BC2FEC93F82C7F63E0230C8C19 -27EA8EEF440B7610408282D06F1CB8ED9CF1A65683C3CA2E875B269BE99A042A9B936B9AE5ED -7FB2F3EC1C01C50E512858709ED2154185C2CF22585B0B3643C7B642A7AC808B8F4930FFB50A -05875B03757886B66A5D1DC99AB3444A0631C3DDC29F794300736AECAFEE7D46FA69D7E39BF6 -499B2147B7013A99378DAD5B1B3CECDF57A1B96A4B2077441FFECBA1924D326A6461D3D89C0A -DB6B9992285687E54372FB449B2820C94CAFF63B2FB49711000D44E3681476812944A8FA28EF -59482237F8DCFF59F1AD81AA615BF460E2466225F07A9BF084D348158C6CD4790598AB894E33 -0D1758595CC2F4922C9D1566E8FCF6A8460A30977DAC988021C917E255FE0E1F7E0E6240838D -0F4D821067927EC46753C952CDCFCA4DA2A99BE0436BC0C70CDCCA1DC2B45789F8A95ADDE25B -752BABF81F9BE611161384D7EFB8B53C300612D53CFA142918850E72F2975169F6F7440117BF -0611F75469FA6ACECAD3A3ECFD2625223D70D0614C1EECB6149EC4A52BEC4A3F229E5BC292DC -9572E63D43202CF30FD1073DD1ED553C80E33B08DDCA87DD3863B7D28087F68251FD49EB3F83 -EA92577457DE19452A87564A1257DF1796F73214D4688870CF681AB39BB0B1DA8D2999D93D88 -F83B827E2CE58D46F84719ABC5F6D8FC62D48F4E74305F5BE732BDE8CAE001547302D519E2ED -1DAC157CFFC3FFB7DB7BC637DB052A4C3638B957222CC0E9DB61A731F9109E09772FE0591054 -B198B2605C26CA25635E3AC337797FB9BDF5C9F5DAB3226A0DFAEC8723360362A33793A8753A -7F553A4268039BE77C53CAC5C462FADA77001B172A4437EDA49154565596AC8BC6288641FDF7 -38B75DD6D841A200B450BA19F2D177E4CCEB6984F048C8F97926E207DB2C3215040877F73D2A -BFE79E813D0E1D5DA7B3ABC9AF94ED3F2F9761C7369EB5EA04C0C84F42A9C798BC35D6FB639E -99929A59C2BDED44F7CB3EA11BE88F115F12DDDA132F30F0B0BB544330EA3862D477385A3E27 -D43747A7CC03185C5FC7E3A1B9816533C1EBE7890CAC78C34B5BBE6E20FF4B2D679911744B05 -1961AEFFCB8477D61A5817F01E47803878EE8B2555CAD97E24806FCD5EFF6E703E326FC46AB2 -1ECE67E60CA9899DA6B2ECAEA53E6BBA97F485F894CC08DAD3EDB8C08EE653C82076F60265AE -348E2414117029D250FF553B3B2111C921C5F468932995098052206CBAACF00EADB4186D68B9 -DCFA41E59CA0182A70518FC0469C373983932D5C8D73182312D13BF03F8430EBDE31862D42A1 -57372DE1F85EF55E5B994AA50C0D418262E1A7D5A7EC6B8A95709859509642D780107B5F9AA6 -380A67BB86E17E3F1F1427F5826F5DA3C519E22D3F44BBDD69A60EBBA9FF91DFEC338BA9D2F4 -132A097E0DF1E07804DB4A077E37DEF25B8FEACCE2A03678724C59C674D1B89BC0BB798F46A7 -EA9BE7D5743C2F4003A2FB995A6E2FFF14BB0F6372B70E94FDB4BE0AFB203F6D724837C455ED -D0CD807AEA01F35122C5B047C3E3C5A2C2E2EBDEAA116C9E08089E139104E5FD1A1F6B4DDA21 -B9C805A220BE54B923D9C790CC00FA72083B5C34A15C2527F30B5DB3DEE56A1AEB1AAADF98CF -CC174DECDD41D91A6AE1C423EA6ACB0F9ACF9E3B495619D75C5A3F6FE9B7A189D2A4640A7CC9 -6BC19CA78C05A6C58B1B28A0020890552B798273F3BE08366E85BA8945BCD835DAC185581A41 -1197AA294D9914D2B37F3B9F09F19E7C3A878BC13DE769B51BBAEC279A5BDBCE63E5813A85A7 -DB0F2C275E242E6B3406238E8AEBA3AF160CD3AF0FD251878419322D6237B3A01E17A76D7F00 -D5EF44D1B1166D7ED51C800EDA39FF5735C83F846B376AAB6C0DAE5001BE673BA46CDCBF3B91 -986E935E9AEECDA483E2B76D3C639E08E27AC04CC9D0F6F9884A2CF9517DE7E1D1BDF872E184 -0B5474BA4B974CD1F3C04A4A29B0A4AD26E166301AD321358AA11FAEF06A4B121532B21D2FD5 -BEB4485C9C1D1019BCEC7407A24887A1441E18744D02665F36E36EACA5B9CDF3958CE1BC9294 -0C590536E69D15BC053D3286E24A76711AE0E299213C543E33437DAC56768CFE4A190345B020 -B8368F4001F1413DBD743C765F120AC0348A834F7068EAD20593769505CF891CCD3D351F3873 -7F204EBA6EAD77CB03556D4E567A1390AD64F85F21B9ADF835518F5843A0EE6F0B15AA90A484 -0181A0C67677197106A6F92F00D20F47D14D5C213B8A5D32E08BCA99277B9A8858D84106AD2A -F126E03BB893945DA9A8E1EAC787800B5A0506DBCB104D45398DBE06A2B1B20403BDAAD14B56 -E3038A04F05DFC62E91DBA42F273C7A044DF8B7763A51F466E9B2C160BC033E361D40FAAB8A0 -718E1339304B4D6CBFBBB21C900D439D5FADC69F5EBDE98D4BE4CB9DAD3BF9433471D004EF25 -2CFB63FF8E03F2A5CA39CD213D5C5DE0A718E79E96FFF02B809BBAABDB0459FB67978662C948 -DEC5283F92C887060C895DB9B93391E0067192FFEE82E2FD7C66167D35EBDB9FC5888DBBA45F -E50565A4B1543FDD89CB9C5E48157C3CB0812364E96F646E0746F0C929C499C05FA6FAB2434E -8E7081E2427E99D0B6DA67A99DD709C6BBBCAEC577DBD9BE6A8EA0192E0A4272DF08E9C67DA5 -CCBF4FF38C396C55280BE9A7F7253F7F273629B94A3BF268CC05B12ED6DB9B9EB8C3CA62262C -050C923896B5D7B5B49BE5E31F70C75F054AB73129259D14B758E93C3BD651C85F2003C23A6E -EA4734483914C64221C244314B1EE691547D83934465823986A46503A7E13A3C4065E0CABE4C -2CCDA3E46EC297756FF67634AF788C5635E3EE3BA67905CF27131983E16AB66FC6AAD19CE73E -C51990AC752FDED9D25794E20FF0BCBBFDBDE419394ACC2A37E7EF0BFA8707BF9B193FD5ECCA -A235115FBE22A4F090971AF19E8C6B777D611A16842329E977DAEE443969BC03A334C616F110 -C335261E9CF9F8270C10EE7166BD8D3EEE98E4E60C63693D398F903A801DDDBA2FAAE2804507 -E8791D3E7F2194105B0A97A4A248F27172EF16A75CD230C04EA3C27E0474EF3A8DB470FD9F5C -1FB0A4A1C04AEA1A9AB3782DB8CFAED0EABC01F6D4B3F6C67575CDDD48F804B79E162A6FECD4 -06812DF4D8F52CC88FE5EF5F74EDE924EF967BF5CC412B415F5BE193B95598669A1D87176C3A -ED3437EE11C686861B1E6F92891660FE8DB6805593D11C5F78B796F69CF8718CE75544C59A22 -0703291899CC42955D44AC6F52BDDE513926DED284AD69CE596FF7DB262481F19C747D7DEDE7 -165DF22714845B0F5FDBE177DAD835434CCE4830A283721212CE5EF708D7359D6B5D752151BF -40DAE4BD028C615E2E8DCE4DFC3E3D4FA35EB6E04F4394AF9B0B4D85EF305D12D428B3D607D9 -FC5306451E4F7FBA6F9DF7D9DF6CD8D46DEDFA5ABC0D73599B46C103D3CF28828D1355C5C297 -1CE14E1730520E4CF20F1E31501B2081AA1379AD31A018D4D7E3303BA31D07286666A0206255 -F9EB2D2FA6036E9FF472D06A703A927F10AC76BFEA916AD1F0B8619ECBE9FFEE4F7EA9FEE669 -CA4CD7E8203E23BF595B0C9202560E05E0ACFEB5B1DB40E7014DCC2142B2BAB6E0A7D14A9764 -77F91CBD4434BFF24F3E8CD5DC5DDA34BA3B24B4A220FCC668D90D962ED169E39BEEC85FB63F -B473D86087600E41D30C853604B9B2B88E550E0C18E25A5CF7BEACDA6857F70FEF09E88CD8E2 -FB9A54D9A060E33B608D5CEE327C32D1CC8C19578E65C6E17B8C982B8395B131FF55BD568222 -3AD42FF5ACD42E1C6EA8F76F1ACFAB1C77825825CFBFB34752B779E56B2CCAD3302F16AAFF4D -73F812FE0E3B1CF60B2A977D65ED505AEE4AD27A7653C74B9C7F7C87B5CF051A8891B2986EC7 -678C20B6F5990F2FA389E547BD5E0212FA608DF050D1B7BA12348EA8CC01B6818CFA54335D42 -8752C54142596CA55850B3713C577ECD7230B3F5627B68AB7D3A28615676C5540BF760B99344 -9E17726592EEC9D74E4ECA0E60E6CEA0B470DFBF98F9420F81707109D8D6BCD2BD2E0209AB41 -D9C6020486E9ABC518D0586FEDC942D45AA4E76BB3B33D361FE7CEEA92A4B3EDF2F5D3A3F8BA -4CA4F5F6A76F3B825967CCC80E9531FCDCD097DC86205A713F29327659E3F5523307A73C43BD -72FEEBCA54DCE12C401B1BDADE58765E396E38CDB60CE5D5037C94BAA2A19784B5D169ECEFD6 -56E9D965308D88BBBA8C9588AE8B687FE88156C7A10C4B6C064A73E47F841AA5A2F05C3C4913 -E6257898453AF778B06333ABC6A3EFBC4915A0C0403F1780DF83549CD62F1541DC908CE020CD -E768D73B18CE02C0F5DE968B0223E83731300E2A6A2149284D310FE882EE9ADC96754724B574 -D88176B65FA331B116451DBB80AB999F07B9B04AA66031EABCBCE4FFD035F8CF19188F6C063E -4DCA05AF15E5731F892E1E7AC924E7690C1EABFE7A5A5266D88B78A626CCDEC2ACA7E91E9ECF -4254CCCA8925C6B004E1D5CD056063419F9E9D105A1E3B866D181D1443107FF10335B4C4856A -76FF9483B4781F4AD63F015A117D22DB63912558B2F4FFDC8BEBFBCF9D44DA23438B99782B63 -116A47D5FD1FA88C1035DD4B842EC72FEE1AE0C5349FBD63B7F8089AEB5FC2ADA226C3572333 -516187BF3AF460FEDBEC607E56471B69FB616333143610CEEBF2040EB6933750415CA80E8590 -F5831C873A92304EF15A18F9418EE05449BC5EDD434700E7993E5F291952A4D876E6460595A4 -ACDE51FEFB167C90A83F49CA77961663AF955EF07EAD20C5A131F82E89C0DADD1E0AAC5797B8 -B599B0CD16F1EAE45031FC390E10923DEEF75A803F49B7D7A9BD18A3F032DFB948D0D9AFD90A -EC51C7473B66D4D1ED80C718D1DA4405A3457C567AAE21ED9A6FF02925005861C090985BBA48 -4D1CD3AC669FEABD34638881A54C4E33981EAF7A2B83AA286E7578269A9B9527383FC7EF22DB -C1D62F1A030DBD9627DB99F0668ABB8FFF1953EF4CCCC44269FD4E9F6F5747F204204DF5679B -17E8658A2E533E38CBD76232FDEBBD704C13CAB33225C03E7689A2071631929B3A7022C0736A -2F627B72D2D824A6C3A44BF227E61358CB70BF1D01C8068A367A804AAF4992C6C7708507DD00 -672572DB5351BEA367F4EA323511FCEAD2101ADC50C569655F68183715F7334A7FED2054BC1A -EB8B92BB3487865581F68B6894B08FDBB5C2B0906C57304FB912731E102BE9A13EBB4F091E91 -5A9C44CAA778B4F582064DC5557789242F6FB9851C9A9AEBF187BB25BFF4F61230E8600FDF75 -BC0975505E57C1FF34E896A1C2E3FBB3ADB1C6627689D0F10E17B7F6662FDDC45E3C797339AE -E58DA4BD85940DA3C3F9626BADB53B6B4674FB02C8F51CCC9AB186BECD819245813FB0D6B3E8 -B29A5828DD1E2C9F43769365DCCD5B8DED758208DE7347173D93EBE6E3B80D059A238F2D03D9 -FDD97D8C53C50E1C954A8851D9B5A5880DB0DF8C531DB7D6AA99C6F801A431F491B2A3B3F9C9 -5459E75F860F448CA3B1DDE43F908A8EC27A5DCD70AE6D38DE903097780576ABF33B77E912A1 -229369A7CC41B036C2A1F94E667505D6272E5CAE42252F19C69C05DF283036E31DAA8F8BB862 -6EC9C940CE563D49269BA2FBB13EA087D4CA17134A2ECD9CCD30FFD5C8B38A4ACC899ED3B4DE -58631DB3B240E1E7783868D8B1BCAB29AACD2741D93B60B358541A2336B960FB9AAA5448474B -EC223F4CC7D7716BAA4D372D181CE262EDA55054D22B26BAC4AB95914A6BE391FF77E0AF9F08 -FE324CB387EFBD5C379DC77FEFDFAEC984DA46430052383FAF2938B170A150363250891406C4 -87212466727685C98104281FDC4A6194353628976EF3F99AAF9616022E5536A7C67B62155EEA -BA24D4BCFA2CF2A6ED89AF3D71D5F103655D8E0158E66D263AC300491B2511A8C3D78DB95B68 -E8EC2ECE2948D779900A4156930729736675B75A15A5CABA334D6FA8F5CE59BB442F69FC4F81 -07FB59A3A4550D11A05641CAA8F517251631FB2FDC46982C18CDA7D910F0384C9C069AD424D8 -0434E2D096E9F4B85783EE7CE5FA2D6349CE04E56B8E54D42824F1DD6C3DCFB49AAEDE74CD27 -D7E4460CBFAE5A17963B705F8FB0752CC069E4643447CA2A0BAA72EEE8F29419BF09E353300B -13963F0B5DD22834652E3FBCF185635243400FD0A6F7B6BA64C604FA4BFC58CF31D6A83773B7 -8FCC22CA7E06A519E691499C0BB44797A18579FF6595CB2130A9B9657074005FFBA690376DCC -DA69B93CEFAC268ACB43694C0C5E9C60A806E9C737F6184B36771D41FBC6DD601D17D38FACAD -DE8D7DF9D9D0546188388A17DE1212843C8751F13D969B13C680ABED16CD9A5CA09AD58F94A8 -F1B5A3C18418D2C43F1118967C982E35B8436099099C36478C332DBBECF0A080801F9DFA9370 -C8DC3AE9B1CCDD75CDD251FD0DF74C19EF2BB9AAEBB232E9A0ED0BC69E84B20B358912FAAFBA -9C4A26D32644C680768BD0F4F9C253E14748ED7FE2C095140492F303794D16D38A04CC602804 -FA9C1FE1313ACA0F2937A7D30C3132215D32BAC22049BBDFC23A6D18E16C72481A3F372F64D4 -035651B2DA10E8843F692F679A54F33B63FFDB1D7815213721460ACE8654665C7CD5FB89C7FC -E1360BF6A61E49602E1CCEEC94A18A2505D25D0CB95D12C247CFD22E467678692CBAB00BB15D -2355C62D0F793AB32A3A65A8CD9331F0AA794D98901D5424CEFEDB062E7F338330B9D95DFABE -E513C6B2356B10705B2BA650F21EA7D33BBE7DC522CBF711B2E5FA682FF91948367CB5404E0D -997F1A82FD1AA72D87072A6B0AE21627A82CC4486F753F84F4C01FD874D19B03D4DB4F9D7E3F -88D59F59FE3CF6B9E3A7E33F8A560F7EC0D5970EB50EC0942B01F83E23A25352FDCB5B19AFD0 -5D2758B3200550114FA05BEF17ACE4C42A357A7A0055397FB666F2F24A28416B74C3A26736E5 -0BC8463FF7BA58640A1AA29C95BB2B4E91D80D5CBB97C83BE135A201F20081C6DCE6825099CA -54C8583F61BA07CDA5D0D10943BFEC6FB073606521C1F31F3F23FDEC9183740AAFF05CAFF477 -DD7ED960F45CA8A8A423ED3D48235250CD01AF906E05FD3A28FAE11492A3F0E5CC187602A29E -669CB84E19DA01500F3A38772BBB2ED0CDECB076272D412814B31BB78F5F1522E2F96111DE22 -A2808EE2C01C7095E01D1869F6487F505132DFE205ED9C040A9A8E5517F7C143D82A990292C9 -6BE59D5DA12266E264905ACF9FA9FA0741F0F4425290D369E23506CF92DFE63EC557819079DE -9D53553FE3CB6BAF59E7E229B0B5700BE143B0F215238169FF55204A15EDE026D31F783FE35D -5AED1852D5F9E3168931A180390C322D4F3C6A492042018C88B9E4AB9BC5D160A51167F1197C -DE0168A59915C7FE54863EF9CB147EACE2BEC439C9A518A2CE32CF88AE5B08BF5F0B5A87AFAC -3914CAF1EA4112D1FF06CB065267A624D70D760B80E4EF517071FAF91D108246BCD12205257A -48066EC3B1AB708BB50DB97A8A7F1D485B636E87AC024044F7F06737A864DED5A0B2A1798846 -5A52E923322B45988D335F91F7BD4A181C4FEFA0A4CC720D8480AF4E02F3D2471A58D6435AB4 -7BE415E8CBD37EA99E61CC21DE250F20BD152822978C70E624A27028E1F153A199B997988E07 -5222026DAFB0354796A4B044714785AC0FAE6B0EB9536B65A0444036465A6DDBC5CF245A08BE -FC6E89B1A2D17C87206EBE479BA6395B422A3C33BAC43BE9B52FF5A5545E2033FED2FE60D893 -E2991E9981F342BCB1E0F89A0D5881459E1BFE6BE3FA652BF5F5D432CD11C0674A23F74FAFBF -5F9740A81F9572B038A82F59FDD0784353BE17C36D763FBCAADBAA92F7D19B52987E6EEB11F5 -E1CE1A6E57B4BD6246AE212633C643BD14B90BBFAC9EA2B220C8845F37D93560F31E5B19CE90 -7052C9B3292AA1F24A6ECCFBC89FAEACD8FCAED983C57C361D81C420034255EC6132FB645DC2 -7F1E5075D535AB33E72B347C6FA2F5A6E1EDAC8D8B40436D07A732BEEF6F129EE4A660FDC905 -3AB05EAF292BC50766625B0AFA3B42D5E6A619D2E3D7A3374DBE3AFB1BCF9122CB54526165D1 -D59A3DF54F59664E4CF5B3B2B26E585BA83C69FFE8C0BE36F56C90DDFD282D78998CAD5D3455 -A52ED86F1BA90A8E18BA2EC097CA0A7634A2154D94B1BCC9473CD337BC412029734D1A0C2F29 -872274C92659844E174215501E7607864A7ADF4AAAB1226541C71CFCF85AEA97448047DC8817 -AE98EC5146AC703B48CFAA56B6AA8C7DDCC3416493DCF59FB8A3722C70B14751EC6D8374301C -149637A02CCFC1E9B28F4458CBA8DFCD3EAE3D1BC0BD8A3AFA436428C3AA2DBB334E6191EA8D -4A5A4753FC1F15620C12412C39B85F7D631C774CF6A423D79989FAAC69B46B4C2295BB8CE20A -05E411F87F33CFA7DF9A78D070FAAEBE4FF60F89BFBE3151856B3A8B4AC8DB98F335612BE65C -228F5EA60640E08FF51532340A998E017DA0415D0D906382EF33340793F1195432E2507C1B0F -B9143604CD056F150B12E63460E19F6F1DFD90E6FB50007961B589CF760AF92A049854B4A043 -82C50208974AB808B2EEFD439AC69E68B1A42B69FCEF97E92B2272BEB13AEF27D58EEA02BFE8 -687DD2AA1DA5849C077A4ABC53A9FD0DB9B3C5E14B7349591CD5890A42D6F72527E699B60AD5 -374EEC51EE0E853A80D5B714B59B9482E758B6545532EAA43A4C39F846E518D647BA39F9CCB6 -C46A8F6FDE1D2562EBBCA5018CEB9880AA90CD18AFA2803D71553857879813C8D229FAC466B9 -1DF73F820B00E188F5CC9DA939A2FB63535CCF1E13B0B5ADE9E926A1AC7965253B6DF858571C -E2FAD605754C9B46AAF5C08D03AE83054AE0B356B89F374B3071D5C9AA62E487B59363B5934F -0953FB9B201EA5251089A2541794CE1301F2817FF53A55449AB02CBB81B8D1BAEC61E85050F1 -0BA6FFAE1A8C2364FBC6522EB0311DD4BFF2A3B55BBDF4A971F70FC8EA6ADEA4D36022E3DE35 -3BFB72726863E68B7CBC380974E6770442EB4B6112E4FB669A04FE36B45C1E046E78E41C0C0C -04BF734C70E40F73CB1F83AE9FBF3A1A8DFEFB80172AF4C557FDEFD3DB0C47C0F94E989DBE57 -AB4919CA4F57F5E30F2E62E16F33B32ADDCFF587B96E44E533C2B5FCA428E4425F2E82E50EE4 -97912A4ACF8B380E8F033AE89969C87A1942736845240DB752AB5641FA65047BF710D4AB8E91 -154BFB6E2541AC80B88B8C0456FD36FD02A245A2F65308C6269C6F8A0F3173D060082F04A828 -856F01D400E2679943E7C1C02EAEAFB0A57E820AB9D37F5F69A5ABFAE1898A35CCA442B114C2 -9758B96C308C7D8048C1662B5F5876FB01D3BB063B23AA0F8451C35D055129D58FF08B5CF458 -113549EB2DF1E991F20BEB0FFFF976E024B51678B95AF7CE9048D92C010EEB90D7BCE8B25434 -1CBCE47B0A7BAC62CFCCE16E88ACE7E4160239D3E23206AE2FCA2D35BA40E5520822D3BAE5AF -60E26014C2C2A364E918DAB1E51A64C792D43A3BD711D7239AB21A362F1B31531ACE927A169E -D3D6DD4807F0C6AC77AC052DF6C915355DF24871DD4E22AC5EAFFCE6DFE9CE3FC110EF3674A8 -B85A0D3447B6758AA86D96E09CC859A2617DDC0CEA8746A02D19795FF377B61A360EE9B88910 -5CCDBCA63F47E448B70B6836F54284D6DB4602A83C96E8F352FC9CA45E5FEC18EC0C5F9682D7 -D90CC91936A840F1320D1538CA11E47B69CCCCEE392D37C302154479DCECFD484587BAEBEDA4 -427BC554EA4212E3BAF5562419CC1E39ADE481379F795131C6B9AAA8F780297E632C4BA29BA2 -2087E48CADC58D8D2A4B5362E1D90F9B0654D0207626D7E53551A1B291B8A053E5CDD1AFE7B9 -BD33A4D5208F5469357B87CA290E3BAB4693D439D003005BFD8769AE2274EC40BF80AA2D8829 -2691603DAA72551C4C48DABCF8D7FEE0E765185F2131EA22F720DB27FC70A58CD69CBFDBE4F3 -1E219F9DDC411448A50346504B4FC367170A1A3662FED42E57251E21283D0FCEA963CD62D2E5 -8FA44CB0F342DA8706ADB56A2DEE3E184DA3026C03AF3243781B018DE4F67278511AC243EC2D -25BA814B3F242293DA7746C1D0CD0930708EEE1B01E0521181EAC01CC6AC73ECEBB1DCC23164 -0D576664902989AF0F7A51AA874D3FA6C678D7204DFDE8A3EA1A97A550633BCCD6C85988310E -D65F784D130446D8196EDC260790B2947361349D64801EF5DB80E373DF130455D78EE8A1493F -FC924749FD9B8FCB657270072D85DE0066033D5F9F8A399571AD2D37F034D6DDCB1BE272B237 -ED5D9F353DEA917FC5DB58517B0DE68F4673038A36E7D0D2CF8A1721D168C05324650B335528 -071C139A47D9F88C432FE88B266439074F9209CBE70B1295711044946931CFB2A030D3C5BBC2 -79A93E897F9428F36E5F26F729EE80045E6CCF0D6041C052D8323324FEED4127249DD4F54CEC -5CA4183BE06EBBA091A729F39C19826B8170AABE50D51F2C666D5C867E81866C6F68E7F57531 -28B4EC241EA565D38704E41DAD62EACB31E078DE3BC0E0E14211D270C7CC6644EBD087B56A64 -D9711C3F2562A1E4C5AAF37180B85E968374D7B6B059C3D5DB001F67BE24248A9962CC2B2BFB -FEC99FF46267DA5BA57F9BE5BD88E416977A9368D76E1076A9FB58264049CD6CD452957B999B -73088052A14285E77FC7290C43A8D26FD54726F493A53C3C1B3734A956144757AEC98C8DFEEF -C557992DF57303D673E3780810718CC88DBAB84F8673831AD82B5FB074FBE364604B2F00A35E -EBE7DD52661772380773CC086F12EDEB1FA63A8EFDAF5CCEAE27A9B045BCD12DB384114C9A39 -5CA7DF68BBB7DC580DB1D88C611F7058277FF3605D20C61EF83D16AE19CC7B603D4398215307 -FDC83480F32DD4AA7BF9D466CD8A761ECCD1DA0CC00D5CB420444EABD8555C8B2425150C5CC0 -52391ABEBD670C9A6CC0F085FB079636681E8B7686C0E49DC6BC183BFC1FE0BF0D047EC3928D -A869EE0F9FEAABB40D18226ECFD03D982BE19A0A9DDA19E2BC0ABAFB208799BC9268D974AED2 -BA576304226864D5BBEE3570BD58B5AC56D739AC96F429250F640DDA287DAE5C2DBBCA73736F -991BFE2C447A7EFBD64D72E6FDB06D7C98F743B37073052E7340A93E0C6DFB9B8B9B750BC8CE -FBF5445CF0255ADA1DD84F0959035C7A8A977128A62A8672E8DEB5932AA498A33557FD639AF9 -B073452CC8C76B06075B12EBE168661419B57867E3FB261D49C4F6E9F67522C8B387284E7AB9 -B3385B54C72D957BF0D6DCCACC1178356503E1CCB0BD590688071AB2DCDEBE2D63419E265CD7 -0968083DF0A8B56FB86E7D6E1221F071F580772538FE3856090187E40795274374B8174DC0F4 -E20B4B1D5A2449FEB466FEC133C0DA1B1B41F5A38104A5F0A9CC3CEEEB1CFAA18F7534DE348C -DF12DF83C8D4B695C0B0A82C5355153646B85A0EAF02CCE453286DC055FC48142F1DB5D8FD45 -8342A35D62DAA9318B940ACFF349D2763C82B546745D627B34C9D5328806623B79C258729343 -05FAE0D228A047A23DF0A893B6412C6B4C80C4EBD5917A38AD5E05B22FF05B84FEE897C28826 -ED85FFBCF6C296141A964B85C08DA862053733830DDFD0B40F144C30A00A6E010BE460EE0B6F -97DBC59E63CB677D0777DDC8ACD538AF43761F14D030EBA29EBCE8EA43658A5AE55F69A73CC9 -A17C999208D5B78F7EA0E80214665D3A4A63D83AF94443EFE46F31F929472753C2785696660B -E4FE514E4F4864B836F0AC747227F899B4A8D3FB00C2997135A1160B7B06AA1A131FD4715258 -DD81E91C84A6A8275F92B259B71AC055C2FB889D309BAEEFDFCE2B626EF704CB94953AFBA41D -84D99B98335156E80A73F35E3C14902A5F9EE805BA04EF4D26E4E957F3CFB3BA9C53EA8B23CC -629F4279F9EA6EE86FDAF86B66E646547C9B492CF616D2DC32B030C13312557E8504314B0EDA -8BF857410CF7CFE74843961272F319DEFCDC22D57666947D2B1EC54544C6AFCA68294125332E -775CF03A279E271AB8C8E5C2DFD996F37FA37F96B5DDC6D403F120CDB06883395D80EB233852 -CFAAEAAAB5588C021BA1F1623E59E68B90E2709C17B2F7FD1EC73B606654A145E10C5C3A4E69 -7D52A071976157ED19350258DC7216275C34348E000A664ACF3A5D40149D82832A833AA3CC33 -E9BBBFFBC913DABB75B7E2A026BA00687ADDBEBECDCEE7E4D5A62CB81A48C12A2B86ED304A2E -CE0CACA59900D444F86D9B035996234FBBF0293C77F4391F8A27EAF75D00A29A7520AF77BB0C -45138544F2A08E4DF0EF44504F51BBFB909F6CBA437CE23720DB1E2E97BE20BACEBF1CCB17AC -779311190CD7096AA90FA57D10734A752556B6ECEECF70AA3919C2C77F3935BB0E3F3B05A3F3 -71A828A6A489E59F1EC773830C0D2666FCA9C2AECF3C1CD05D9EBA7E5745D7050451C3A733CF -D5B6DD359732E8D4E76908CA33652C0BA542CD6ACEAFE9061BC7720696CD19721F2B671836A2 -AA5021ACB69A66AF8F580A9DAD35FA31046AF6AF33201E7F46A3890F0F8FE54485B5E81AB77D -C82AD90DA7120949598FCD8FA11DB42BD2FF0CD93B197207F0AEE1FFA49C05F4BF91AC4FD3CA -D057C2C790F87D997CF4E73A57F554994169B8B6C588DDD8CE0286912B39A94B0E234BECE8A9 -6D7B4D2A8BBAD54734944A9A8A6DA9D1A24E63D059725F08B0331B782CDA087B39D5B693A0D0 -4EEAE14801BB0CA11AC758997E7DF2CE0C0740F2D2A3BC7D07FD17263472B47BCEB74421D747 -9D8C14A14FC17CF5CED09CF717D58E93248CA1ED631BD9B6FD4511A640569333729C1208A62D -518A6B22B1943FFA50352E1414609C70FBC39806061A41A81DE11E44C256C603C8DF3520B365 -B07B208F52770F41D12996D4EB9CC4DD984DB10200E7CC75974D00006D691E8F2DC2D68CB53F -5E8BD817C7055F8EB4FE229A546801568CEC1BE7BFFF3FFF92AD5B0FFD51E5ED907606658400 -F7D601C2865AB43231E51E65FDE075B693E0524BA678B50FA392E8295F6E9824B294F7A48710 -2B40CDC7E3E461EACEC78ECAFF9F82A3B84E19AE54ACEF85DD0E56A357B7B302184B85B52351 -5EC15888F0829F467A0F541F8E59C064BB411C5E77958F7D2D20193F5F0B3A01B01B5095AB6C -54D0EC76E243028AA653A7F8491FC5BC5B73527A42C7EB65BE5F461865A2BCD4D499D75107A1 -88B6CE465676F8833F49E729061F060D402E6685253E1BFA892F7F1A019BA9CBC9452A08A255 -C230140568C2E1BE0E6C4499025FA6E6DE28DE55C1BB42F6935D1B4EF96D25784C1CF721E0E6 -ADE0F042780C8ECAA4D618366CF64636E722DD31D1EF37FCA2E2009C0A3FC6DECCB5D548869B -33CDAAB5900035192B0BE49578452F74828A5EEA7DDBE06FF8AC7181DD505B52F07554A20DE9 -8EFD1F935B9E91BEACC12C4BBE29C0A6195A40D377F89C081EE74C7B317263FA73E4F17EEC3F -FBF34A12B73CA948E40DCD65329C9F994351E2FBB60302FC22B92468D1AA66767095382284A1 -2727CF3F767A210ECF85C16F29D93B3D389F221A05A66F532B3EC6F6BA84DE0D465B17176322 -735E6C27BF0CFB700F41014D784BB9B7B726BEB4C02EA22467E482536FA4EB93FC343BCDD31C -94095F1606A7FF72DB96B9E74A35869926BB98400C0E2C631A11C4A4B70AEB2FC3C3DACB6EBA -19E388D46FF725124D06863D79FFF418F86E8A2F8BCAF495D4D1B312FE52ADD646CF6339CECF -F1130AEEFF89C8024C473E4CCA55D93BBE1E446EC09C095CEDC11EE288BD9B67E4FB11B69767 -B4F033AC504F2B9D36FDEAAEF8E64BFD66BFBE6BCCF97A6D36232022A3AB4F507DAEB9F6CF9C -51A367FBF53C216C540F70519DC24BE4E45B4A5505493B460A32233910029663DEBA50554E0C -231A0873F0C351AC44109F73E7E1B76BB99518E25AC4C5C4403C71A36FEECB05E355B424071C -5223D3C970C3E7DE92F4818443EE949B02FDADA65A8AC61F346D54E8E6DB341AE0F99E778373 -F30439E80CC3C0BF1227BA997F0F8BFD1BB2A02C6B49A52E5AE2B83FDD5DF8E3CC01361559E7 -F89449B5DD29CF46BC063A76442F8E1B722B8AAA5DB2B58C0FBA3E787FDBA29EC29B9F453843 -F8F3BC6889EBFE5708639274FDB2DD8EE405B22807B841EBE9068A9C6DF281AFFD1612F46A03 -EA56C4142C997080D02D14C13340FBF406600E5AB62C1AF1846AED0389715B4297AE995EB147 -AFB67EF9B258C7FC1D0D4E050B57D190D626C8A262EF895FF7875A44C8591D9579778B9F962F -EB65467ECC9587DAA9DBA76F8EED6B9F96BECF5A281727FCC093412093ACA1F01DBDD6F59400 -9B8CC665A15DDA79A7D51F2397BD6B4EA476FB35F82C480ED6F5F2CF6D20C4A9F590D399A9F2 -AED79399B2F043D68F5A73067EB8B24B25DA77E905A711AA78C331B53BC304C4A89E00B2707D -F83DF080D5D461E710F598FCD130BE6FFC17A0225F03C0958D58FB48C1227F97CFA83077A80B -7DB22C8F1321E02323B2B35ACC70970BB2643D5E42795FA98F517F7665725288B185BDD1E689 -7D8144C711EE9239AC7D1BD9F088CB5970F207C3319C911EBDA88C95AD36D7D067A5F208C710 -A45948C0F980A3F308456F33DF4000117281107AC5B180CD420CDA53380EB1E273AA7A633044 -24B8B94AF55B2A8987B4CA7414B3BB0BF744451165B32528BF3209653C0657838F7647183483 -497FF2CBD25D4B3347CA7E29DD29EDE355FFAADF1FA2E5E7AD85E2F2751EAE55AEAE71A94907 -22F6545772DEF80EE610C0137ADE25EA4E29DC9FA5B9CC9394D40D517F0C82E33CDE655BF211 -2C0582E9DAA52DB442510429783189F9768FD17D6BB2F5AD9D48653D0C4FA24D7D62BC8B29C5 -4E606519F688C0C4FDAC2C932ECC754A614B4CAAFF06F6838707517C4113D165797B722AE518 -0E85064A229E57FB76DE3382F8A249770BAF8C86D1A24E1DBF1AD62352265FF90AE4F0B81CFA -F8911C0DD7A4687B35FCC2AD2238E42AC50D1B787B9A7230680457D6522B3F81F3A5E0F92952 -DD775E6A8ABF546D28F678097946D41F100B6C949F652DF9DBBEF585DFDFF77336BD9375BF99 -5DD6331C9368AD203469E2121DC214A1D14BC88E686F39F9232C97872EFF39CA0EA66EB2AB26 -E7F6644ACE9E5987C272995E4D208F393AD8E1FA5710C433E63A42E96DFCB7B078A6B60C1BD9 -24C7A6783F8BB420D070933AB28B2E234C49876153911770B40D646BE209F545323ADBC8957A -CAE29A936D4A1CA4CF881C27D212336EB15C0C478C0768491F4E4CCC84CFA9DABFC8A4E47DD5 -391E8DFB148C2A42F5A3D81EBF09CC4E52936ED51210DC7D3ECB4CBCEB99C5507ED557D2CF1F -6B34134E6C1744777BD7E991A5ECCBC09FBE8AF6B584E2172CE683C9F6CCA44DDA58B04C8070 -E6CC96A8539C2908871765B46C6D564AA445E377CA5E84CE2E389D83E8C4E8F6F63D5AC181D5 -B788C903DBCC02068E09C643213B1DE7DB1E3DE58F85A96DB3B83E4A0B703373B6EBBDB872FD -DF8FBC0AAF38C93D0298E227F22043DFBBB65ABFAD3E60E40CB69F108F6179312FE251430AF4 -09469F969FDF4D4E8543D1462753362E46F6E3F38F6B52718588694F9BC81DC256195B089C2F -5A8B8AE47E8ADDC1E169ED031E5253206C31E6F547FD3C9FD7215D4600FF361FF6BA5EACEA00 -38803DBA4E660723A78E36A745A2BD809D613D86B53AC9312B11261F5EC792FDF2C1AA5D0BE5 -123E11F433EF92635E0DEF412543B5D6011A9F724DF6E86366CC80359B4DCD7D393BC9C95B89 -1FDFCB5325EAD88F505FEC98D957045D6EE85F9BCBE73D6AD83ADD0BAAD772FCABBEA7358B5C -82A5979D5ACC8B1FA26F27D2DBA6C883781BC4F6731E3504F408929DF315CB0EF99D6E4B0C1F -9B08F3B16B8AEA8B5C15DC5E7ABC429708A688707B89EFF5773C10AEC71FA3C0737056262619 -D181226B9A0B509A73E1C70F55008941830D7193824935426658FC51377A3BED40D210AF4126 -0C6BAE3F8631BB14EFD73BDEFC21018AFB810EC4E75E946A361681F4D443CDF18E9A848B0373 -413B81379121DAA618C4DE6062974DEED48677C09C7A0ADFAB183C0D8548F668372BFB722337 -CF20E0F19CD0CAA4375249E4E1C5DAB674CB6A1DFFD39C3FF10171257BD7E2D4577AC2E5C80F -D66AF7E2BFCAEF05172C72DE8533D61A8B3B77CA23E7BCF50CB351911481BC73A1C780D8AD80 -9435FEF402FE31B76AA8704EA4A3D9246E2615C649D3F36CCEAE1C6C8C6602DADDB63BE9E7BC -7EB204B35B2930A3FC55463AE0080E2866608A2BF156BC00D140FEC3B04BD9675082E66651E4 -F8ADEF53A14AA912EAE3FD16D5E29130F3E51C9E19CC5A37377E6C5906D73A88A30EAE6DE570 -D45194DBCB048D024A3E803A8BE2627D3C8354DB7D844FD32F84257FFE52133E32B1B8407F74 -C0FFBA764F329F27861DA3588773606DDC60B9F3A8DBECDD16BD8AEF5DACBB5E88D44C3659B5 -47F18C454F35BA8DD7A9EA6564FD726D9C0B7BB9340A443156058CADFA37C1909720C2A978C8 -F431E15EF229567139F9228B912E25F2218CAC594A08CFEA15171D72F978F03A49B4E3AE7866 -B9960F79BF1D6FB5608F51298538FF56F9E0F403C9648D7015CA1FEB4C560442FE35E8E5D31C -646B0637F9EFBFCB256D2C741A23403D88E9E0486CB62CF90AEA0AC24EA5E5519FD4A86B41E8 -92C54931CA061A4C93821451825776CC26B3409D8B3130C62D872A48A67560BE044F1F1697F0 -6C0B5A11808CBB3192F7DE26AB520DF0039CFC58BE4EBF1A2AECC882CD293B87771306E3CE18 -794A75AE6BE391BFCF0B8A59697CC507CF2C4A456B4B233FE209AC39BBF7155068C99CB2BE25 -F0B755960C54ACD21CF9651779903E1C8E7AE7A5853BB26AAF69D43916E1560D54E40A14ADEB -ECB18CE848C151AAE3D16794D8C124007818545F022EF2A1EC7EA7490B556E1BC7876A46732E -61F514848A196E5FBD4142A341A52FB55AC8F5014791E5144CCA96D3D2999B3D683D292AB86F -C5D0CE9D55763D9DDB5FD6428B52423AFC22AEFC7F5FE1A1B878A0758CD4E59FCB099DF6FB95 -F29EA45BCFF043D707D570B9F316929226BE1A54B23F28485A9DC8C809ACA0076865019DA221 -9AA9FC70628139F8B8BD64BC29C119EBCD23413D75931262FE53664EDCD93DB31DCB25A2AC09 -0B04A9EA8CF7833E34D1FDC26B3EFE65C086233A1A1A1C1FD5791D1F358019F7D098EA72EE27 -0275CD522E72F4B8C5BB06C78224BE8B8056E11B2513EBFA09A0D155630EAF2AA4204F77ACC4 -AB83C205DD0559DDB46FB0BCE65B16578830BDF37B3F5589CAE730FA6A11EEE8E6BAD3125F59 -FEEEC295A5F2E05C2E3B6CE16758A080C5B6878753C7182050E296B3FDD446DBE10F9FF91E83 -8B4B4BA0034E134827F941EC393CBC54111627B9351DA460D2A6D5D81A6F6144DC5A5638ED70 -171594956A838661237D07D7DAEADEE51AD0F09771DB822299265AC292AFF7C49D4ED442A685 -106F25798CF38FC48D5EB13F821A7156C850A20E9CD8179702C91B9BF425F370F5479CE97030 -F369E32D2930658C7E4E6E4DF87A4EDACC66ACA3B3E6502F9CD086D9A10D9AC7B96C817A7643 -7D9A5D653D6575B4FBDBB06510E996A0DDEF3E3012E9F948A464CDC28A352F999DCEBCD83B74 -039531F46A7B43EFA9012C20ED0DEAB569F3905BDDE917BACBFEDFE88EE6E9832F040D84F7CA -8AE2E519A53EA988A3BD0CB16D3A3292C27EA51BCE3F84CF5371A7CC10512DC5CE2FDDBF7453 -36B2A75B056FBFB763591481BE5D6BCF9FBEF914F1DD1A1473F8C8A72697FC4AD66AD69AE74D -A230EF274FC148E45BA67E61919BF46C32CC3D8B2E2889446E203B4040BF3FADA3AA9408F5CF -074C25F1BF20FF4ABB074592B054BA634BDE4A8062F63DE02CED708FE3A39085EF04805C862D -E1604A55CDD7B282FA910B3035FDB41BDC171D3D0781695DCF2F9DFC86ACB8D3CCCF32C83B6D -51C6A87FAE0BA5B527041D3B3BDF74C9545B0E9F0666D0C35F0C8FF84384876934FB6FBB6CD3 -1FF26C386C1BA290D6C7AC672EEA424C44D84F1AB18D4FA41A7C8A08592733067371207EAF33 -F13CFC4DAA1F5CC16F5D5A919127CB5E44A3E1911947C6C4FD86F001D9E0576221F41DADC527 -35D0224F3DB69654A8C4B6CCFA9B4C8D6E92BD0644614857A06FD32FB3D98041794E01A39D88 -4075A946FEF57FC8E566BE276BEC81F7BFBD5F545FEB3FE8B0C936E8D8C4128B418BC958EBDF -E5CA02901FB054B008626520AE6E64EF87C8B3D5A73B839A8EF115961B89AF2A71C6D0E14A14 -1A5210F910ABFB1C7E83CB8AF3B2F4CB2B76A72F28E50F668948AAA20D0FCC6071E125888EF0 -E1D420E18D33B4C946646348801AC42E6A89B117770BE3B067E8B2B9AD9F6936BFDE738BD5A4 -568888D6C29A5FEF9484C735B766DC66002EEF699F91ABA21EA8778290899F335D794F691919 -8AC9041BC1A9D875DDF91BAAAEE61A2BE1B80203FD7D7356EA2EFF7382F33CBB07D656F1A941 -2D6AFA5144674E368CE1ACA4BFCAA3386933F14A3309E3E6B03A056CBA6852D6B6E617331F66 -0B47B01BF60F0B2ABAD06BC2573FDEC871FDE62AD6A8DEDC3C8EEE9460220AFF30139A2FFB80 -B222C3DA73BB69BC304B37ABC3B44DCBBB6EEAA3D9137DF428A56306F3A0C0F79F8665355B4C -B71A184533DC3D35F9BE1E5A9D5A5208AB5667465DC382C6B681C4C68101A0A46CE91B568D12 -76822C069527FAB7329BC4D93E5BFAAB8C418904930E28259A6DB57F28C0EF1B85169A7B3BEC -52B4B34B51FE6F95141E9DC55B9516435D856ABDEDC26DF75B004E78492031CB5416FFE9CDE4 -AF300FCAA08E8CFF6BBBAE0CF7E2DE402EF503BB6CCBE7FDA50987088460B150972676AAFCC5 -C693B7D3983A60FB306094133197B58F916E5DBE3B2AEE1BFB570AA3CABB6B44153EE8AD9171 -F6AE40FA8AF8821A617F1C62DE38961D4CF0AA6A6014E6EFA65D5586E83DCFA9C80481922DD5 -FDA1B86CAEF2449EA5006EE07285D89C8A09F416DAF70F68D742B1F21D001F8D31C6A336417A -527BCA496CC4FD6ED7D001DE59A44326B53F06D1B269D4570980A13A5D7A8D48623235C539EE -6FC8564BF06EF0701AE2A8CB09BB3F72AF8634F11EC26F7383DFE8B72A09C3C335C60DD1FC50 -3C4476FB0DB86BB858C3F148D23CD69F1FAA0BD8148B19D5319AF9711BD69C72072975C90951 -E2B0BF44E0EBB7869AEC436BA402F32EF3CAE3D7624F2CB09A0954A8A802BE8F83FC29CFAC3E -0A15AD37A13D08FE3AB4C08201A3B060E22E4B767DA23E0063443A16E675C3E83867C0AB5053 -7F126EBC5E276EF6554F31B89C4D292FBDEC55AE303F2A62E0226544EEF480DA35DE3CC606DC -71789B9538C10A9A1A87EFDD0127E243F306DF25F353AA35A149AAAC71B61DD55B30CBFD2B58 -C4C93130766C9CC39EB1ACBF2B86822FCCD4E2B70D4FB4E6AC8E9665399BB5CDD3DF09C4C1E3 -94B2B2515891601E9AE1ACD5C4FE9BA858C592CEC2D80D0F9E7D8450F9DF486DF1BC8B865B44 -A2590CFFADDE516509752B659ECBFE98807B42BB1E79709BEE4117B2C36DA8D5D52A66738983 -54422CAC1DF463CEF092120277146457B1C54BC3BF884B0077C97287B143A0A4FD9EC1F42A27 -5D2DED2084FBD5026D0B75662210E42C25524EDD98DF8F374176EF4AD7C4218F529BF5772F11 -5384F7B297611D6FC711AFBE43186630EE83512AEE9D61E84A2537C0CCC862E4B7A7EFF0D9BF -27C163D8C08E86BCF60B0C90E58DC43A105B044A1C53FA13439467057BC2C22E829FD813A0E7 -A065DEF959F3193FB401D3D87AB7B54683D0DC3BAD4A530FEAC44A63E208382031BA1C8420A8 -17C5C2583513633206A2DF738C9EDA192813B1AC108C04E05735234173EA7C14D12EA6117C1C -E7EFE367DD75B795B68A2335797EEC2EEA29A46EA272B67E38DDD5C2B6AD9E3B59C037A9914F -5EA5852A32818E3DCC65AE021F0D308080460EB7E1C410DB05C67E9FAD5773A93DAB602CBDDC -F9092AE538E1C879C0FF1D540EFCA789FC64358C5FB5F066BB6C30413DD3E90F5C1C28700626 -DACD1E602793B95025D0D49153C1D36FDDD8171DA27834788B3B7F3F338E71DBE5A532D3C5F8 -944844E70389B8392F8483A1F4E8590B4ABD566669E21EFC691E66D8703CA5D31BE2F0F5DA01 -F3FF9DCE4CAEC9BAB0C4BD89621588F2B2A6A02E286CB4290B895BDFDDCB51316B248DE9445C -7E6CF4D18BF699142D6F5D682E0A069F378DD9A92C362D1C5E19C63C77F21C2C3F4462F60FE6 -94533757F829B6F57D007843CB22217CBFE9F929D431E18FEB621E450AAE0DC90C10A3C563AB -88C1023FAA8BCA390E2597194E29DF540919D9382387F200F51D42F99928C9057A63777B3DA7 -2F26C917054A964EE65C81D52E0914A7E0BF757B3B07B93FCBF4B9A39CE117683807965BA1F9 -8DE922A226D564C8D19D48A2D51D7EEC607464A6D1F55724C33E35C905F71605B823C7A6D359 -BFDBAAC68788CEBBBA77A41A52C10036C60E683F8D0316D8C8E37E24F4E80460BDD16F382036 -7B6823B37F2581914221BD590825BF1B5A480AA077F44AAD68952E1BBF50A2D75CE489DC318C -0C21667E4E1466356DEF034026B65C27DF125B0B2246A1F83A97C75982F557F4739960F5426F -8CC0416F1F997C39D6A8C765FBDA9D9704ECBC480BD63FF484F5FFF2294BA6205B5C198BD5E3 -5121E52DA9CADF557B4DEFDAEF6C657D4503D2D527D6E8FE6EDB084D6770572DD51A75595957 -3191A719B4F6B37D63F2830EE459B9F323EF6D5F2AF830ECB7B751A27B6ACA11D8971A735434 -B1DC2B1580148C18BD9AD265D39C52909ED8A57631D1D7929BD7A265A929D6E75D25B93ADB0F -8637753D79E886F451F41FC694D1A2A12DD723C045120848C3AD8E37BD1CFB38EE9B8A561A38 -17B30DEBD83EBA10BFE5E07980F832FC4027985F273645E96C19C1A74ED0ABC0555C5ADF48B3 -9147D72FDA940CA8D2B46667AECF1BBBDEF9892FDFDF3A38CC1C9FFDA83D9B34E680E088BFAA -8E39B049DF8110EA9937A43746B97DF67C86864B18F16797F266EB03C3B8B1D08FF7BAD68B12 -6CB980B1D0E1955FD8FA8529EF4FA72E08344039EA5EA41F752DD3C66BAD15BC220091C5EE82 -68F6EA9E6E684AC5A675CC671F6BAB30C56C6B6A4A7FD4955F6F28060DCCB5FB4B00BA077905 -89BD05B2DB56564A1DAE5084E7EE33D2F7CB265F6D9CB904580809793B99CBCA69ABD6ABF313 -028C9E8E71F423A5BC19851C5D5F0BC58BC526021123E83B4B5AD33694414290F4EADA65EC84 -5EF90CC7BB784AB25549C28BE3140A289BD163A08D4221979D679A2735A34ECFF91FF7A4E58D -8A0DC2664B12E21642D84C06D5BCAFB5BEF0CCA3DD5443724932518CF9D855CFE752019F6B33 -E0BEF54E64F76D88AF25849A46EC65DE3DA8007E4DE9D245A20D83598737B067070347FFD057 -4211E0EB0552CDBF57EC468A63F9E9AF2C73FBDE4511BFBC66B074AE90371177948F40F6A300 -9D64115977CA05F12A043A41AA699FC87BD04F022BB3BA9B856CBD12BA3D1800FCAD32251D03 -E730C6F0872C28108F7E18A33AA6EB490FF27FD1162D9852114BCDE22ED85B4B67872DEA5B19 -B46CBF794B9068953FB74E75B9F8F62B024238FE8D3D2AD952D6E0CB5B65C70F67AB2216FDD9 -264ED3E1F628D7F662271053440C11D57641E9CD206AD034426AFC710C2261F2249BC53FAD6E -417C9FB4D2CF69EE988B19B128C6058B4400277C3334B3F56F922E9FBC79E0670A9EF73A1F7E -AD2782F305BC8C5413CB44EF6B8AAFEDA7BCDAF1B5BF749C3B9F799ED5C286F68E8D008FF9AA -8BE9FF76E3AD75D3A9D557283988016B89042FBF612D8AFBA25456D5660DA31C8DF25B94D2B2 -EDB66BEBF320279E30B5483F99B154D0BA512C2069F2A87F902F283615737D694B9ADD65BCD3 -0EF360FB82E9BAE684645619F3AF2296ED312C1CC40960BFB92EE2604DD0C13EC61F1941FDE2 -275E59866B349848C9A18D032217807FFE0266E17AE653F41EDDA7E36DABEE2DFDFB197B9FBE -CF8C044B8792A37CC83A0343243942F8DD38EAC1D24B295F1942417A979959541C394972CD8E -8D7C675409F7D1051B1034E260390597D84E4EF8115623743F3094BD75A6D5438AE7AD128DB8 -A496EE6B9B95C1DBCE8887EF1AB22E29CD17EEDA48B57206352EF7683794B8406906B651196C -13A6E9CE582E416B66786377EFA27955E85102D6730931D55A06F649340BE9612825635CB60D -9534121A5A66444FA51C4A09A30CC209F09FF64980E3E83F6B5DBBEC4AD830805823B784D9DB -4DFB87AF383760553AF30B5BB988E18C5F455A853F5D91D30FAB2172405214491B699F9C6EB7 -D7368622C4810133D0C4B75C55363F38D6974AD27EBD5E480CFC0013456B0C54F65B51BBFF2A -A75DE3B262B05FA25AA1112DAACAEE9722FB241E0C4A966160EA9861FFF7CA13B4785A654E15 -32CBB7118FA372EBD41E963C93AE5F9D4651F56508C1E89FA34548F72C946B4E384E9A08ABFC -BA3BBE1520255CD623EAA863BB988F635BDD9543B607933EADC0EAD5E119A11244CDC7470539 -FD0E926F03CD32D9D4FECAFD3B6EFE823B3B05B94CF359AFD938575D2E733716C4E932C04651 -0B0DF620E87F6F39B99D738E66D3383CC151381BD7611D0B44A1A40BC90340534512B3FEC4CB -E307498C773A253481105700216A5BE3CCE442E00219A0A3412B274DC8640CC4E759FD2823D7 -F48E614391E5059A1A126D0A1626FEDCD738CDF6503D9B5C876AEA31298AA287055C7C24F20C -CE51BFB14B010C732F84A13B4A1DAC571DA1948668DB9E786AA9F4DDA0DD25528D785BC0EF33 -CDDEFC80747C7EF0EAE30B4D687AC8EE8BE325A8E43627A2846CE3FB199F593CC83E320B8A34 -254D8FFCCB45D04C4D41FEFB65AF2282D036AF8B614656EEEA10DE9409CFA0B3E6296030A0C4 -91942A17CC43614A5D43EE2EEB2F2DFD2156100C452F1725DB3B7C649FCD5D1CE8080B148497 -E8E57492DF0122BE6F1FEDB9B8EF8AFE2F119FA2767E9D451CBD637CA9BE588A0B876EFAB92E -5D238EA9C05EA6D92115BEC4614E05F83DCE5E70CEA9ED15936C20275FCF467FF3AAAC5DEC1C -EE55D9805A37AE0BDBD1EF8C6FD7A66D33E29828EB9C0BD6077F862206C6A1C734916811A2D1 -89AD5A48E5BEBE377E000951BA74B979CFC719A03FFAA55A458146215A33BC58A42B6D535E4F -15B1525B8B29524188CC192F923DD9F8BAD3D203BE862F0193334CD2546385C55B5E5959F7E5 -7B2C679D176823BEA88F86EB9F2FB5584A821329EC7328AC45EE0C992035D0A2EF6C71986E95 -E0EED9B4390B39A3E9EA4A7D79E72936A0BD4722121722621A05662431444C0E90CDF102CE66 -0D977FAEAE5DF63CB289D701A434F14BE992BFC1F336C4A43CC77CBF8843929A9A76CF768B10 -0531FEA4712B37C97B1773A36E290182548FC42C2088D028A938C6A2647C74E5FADBB36E2AB7 -5E07750A56F08F626B1A7C41F8642EEF04EB5F0B5ABF0A563C5DE626919FEBAD2B5297F58204 -C5C5D2ADAC3D3136FD33EC5DDD98C3F521E53F836B21DC8A8CBCB6456A5D971C94414C7BB3E9 -1F7AF3A1B6A7AAF71F95926B04C288C647E4A8080D91EF3404FA04042A584765523C6DB40FC9 -6397AA843FF4BE0BCFEA2ED32B276328BDD1EAD7461E5FCE8D3AA3BBE3183A6B4F56A3D16A86 -20010C88E82DB50E3F81DA8447270CC745B708E42034880C2632DCB85A4C6DA78116226D8571 -68A6C9C73680AA674B1360DA8D17CB8F642D3D0CA2559B1E452B1D5641BE4A664D4528135911 -0855E4F957762F536E4E8CCFB3D9CBEEA8C0E2AD2C1A47E42C878AB16E0DC111660F54349AFB -9BE5605C1F821BD68C941C42557C1736F7DB2D37B17D49C0A77153E99A0C99A4BDD125F3FD51 -3F3A1A496AD3E17EF623979BBC10DED32E319C764F5DE1D1DA61C1D1053EC4822495093ADC33 -FD9BDAB0A8BBAB65E0A24F30BE9D60048BFC29A832816CB6D543FBC850104B6322C14612FE26 -DBA327A63647BB3C71D2F4ACCBBB798EAD3404BCABCFD85188E875967D677909BB797DF62255 -5D7C5ECE1D8C59A5767257A08A6803E3CA740785FE5C0F3CD640E14CD8629FADD09522CE1DF5 -7BB7A7E5C10D15A6435598D1F0D112B9784D4DA881251C245FEDA1104DB6D3A6DA5A30AE293D -14D346F93EF45D569959513063BE28C1048F98C1AFE5B1433B7097C0CD5711FB68CB54B8BDB8 -C37046FE5505667CD4D4BC92F357D58458D5CB06CE517AAE44F596B83E7AA1CC8F17F14BC536 -A6554D22B446AADD28EFA83E8469DBD1563695C781B030ECFCF3513E4029FBF6C109C79A9DB2 -B5C7636ABAC5A4A282B74B359376DA840C62706EC64D7D41802E5065F5C3A364A01455BA6F2A -A1B2282E3B81CAF1B776B1D3863F6E02F68F0A91ADC7B9B6E3431142DA75663C9AC606D55514 -7BA418E7CB2B2C379587218D8A7B71A4CE552C980E95DFD8F9AD95C429F66DA569FC5E1A61E2 -DD1A6816FA54C7BB85D0BC6533A52BB1F4E4FEA68505D1CEC0751E21354412F72CB5255DE620 -690676CD20596869071B48D7B8843E5D2C006DC2FDD4461C4AB3E0B1D16D16C4A270765AAA03 -DBD1930B131CAAC997F41BFBA9C3220B972FD5B724582EBACD95C5C6BB2F8357DB8ED353D010 -ECC7C586F2D25DAF23D8E38DAC200E1D3725D40D7A11F35EB7FD572AFF074E67C3C0A620F972 -6D4CF7535741F9804885506F5D0311E349388DD8892B42A81058C34BC3F8E4AAB67590316973 -0F448B4B890DFE3789EA67DC3A58A295367D00ED283E50A6B961CEA798C075B5FB914F6CFE0D -A8B183CB5CFFA5AB0CAEE6E321E08DF9D67949BF1892454ABE8E5C1ED844FA3668773C733F4D -0660575E2CAB415746B8255BAD4F8715A8F01BABA2F92DD593B7B60DD17E5CE0E3F8EBAE6A05 -17079961C4A1F8B225C968BB3786581A277DDA386F3AD05382340EA03CEBCA7E0234444D7085 -454B657F6F3CCADFC192B6350F241224686B23792341B6DD7A4B698991AAA3621EE07ED1B642 -63D4905C112A0C92541E16875F7224B5CF48327FBA64FFED5BDAEF9355AF9BF50216D607770F -A79D33FE90BA99787F0077D19ED0E5197C5F3D839D74903D47C958A58B36E92345E84595D971 -154489B33A584148B4E0EF976A66E955F8763052B5444177E960EA6E6D3802DFC402DCE6F405 -4BA3A9AEA23FFB106F82285D1BBA6224AE9A5F33EC1901F93673D6CA54BF0F096C628A920C4D -97F2B78C010453F2A91798A07A9C0AEE9DA864044C6FB492483C51D4107663289BA772B77175 -7603F4A3C5A862D7FBAE1467DCA7792A2E56DA65FBD8F35E67109ED12E04069A32368E9ECF65 -1C5134A06616035C9B784B900A7B6B96FEE2537C17949B4CD471BE647B50A1BAE48FA28D7DCD -F8878B36226EDCF8B39F49AA35BC1AB0016A23CAE8C8BDEFC783CF35E43F76052CAEB4751732 -6652B03FC748EBAEFB54FA2B5E0CF3E6D07A9AEBC3014EE2DF9165BF63253FBE3D0FF297EFF1 -0E6B6260AFB6B09B6CF522BDDF10C077AE16ECA5B327CC6876DFDF38764FE0E7FC100A4A773F -BE2EEAE1BF68CE9095AD0FA4B465745E4F7B836AA7C59DE045ED5F9D99DDA77A7C956395E9BF -0B169AB8E649A4FC66954F2E65342FDE5324A7C506EF568008EB73D7575EF5B796A6784113E2 -CB3904BB51B5EB93FC0960E6A5CA6A8DC3F7E8002A7272414676B237D224BACAFC8AA2303EDC -B48CF50FE71BEAFF551831C166BA538041D7F62B78AF227D153C673CDA5D841CE6F168DDCD8A -113AA4DCBB5118C51AA70961BE08DF8589595E096FB341AB47A1EB7887B0B430743E4AAC5348 -E406CD325C3BF7E838707AEB3B058EA17CC8F103B2222A426B8EBCB6FE7EC44985808BFC64DF -DCB59B9C8543EBFBCC295A6945825BC2A3681C161E111F266DE158776EFB087C67A29373C7BE -DCC24272E4B28B6209CD78FACCD729A8A5EFC68DBC32F45799C581FECCA978D24D7E85B22F3B -B1926A9E9D465B00D5CE2BCDE26E37A91A212EEC76F7D7C43AFEC26B84FB1203FB9EF604CB3C -BB2847A09C2E04F6E0F9430860BA6837C18A449F9F96A51EAB42B1936C876208A61EC17EB92B -53CB01E1226AE96B7CF57ACADD4D2D76356EC420561A4CA88F5910263EC9178A3AAB165B15AC -C2AC07F908E3B6F37D88BBE780AF15114D8AC65D95110BC8BD9D25C7DF3310933D9625BE765B -14D1AB5032EE9F7D6FB24FA2AB57561AE1FB564D8D2705DEFC9FFAEF7303A99523DBC54B9C79 -A20D5F00A96D5A21D2B4E2D1FBF36AD4440D6179F5E7E672E7BF45B6FF1C0787101223E91C14 -8DA2AE709B7E9C6F576D1599DDC97DEED39831930C70CDEC4B47E899C3950D9D1EA3C94CEFB1 -8080C6BB9D46AFFFE13C4B0FFBF71AC75C79879437E22E634602776DE13E175D9EC5FAF508AD -F4D443EBA749BB4B50A1F0808BE0519D977F55024212C4601B86C2975B96CB8123412A33F762 -9916648A8097A2C58AD1258520D987CC57F712BE770BF1A118B56DB8AC89A3050E62C98F6D52 -09C2A668E8BF541DF27DE2500994AFFE9894BB56DFC60D8C7579953269E44CDC3E2B63E5C288 -8DADFFA3F9AD060D67A1A94599970279B2D45DF85ACAA6ED5A6B11A809C9E067739295AA2DF0 -A9FFE09F07574252FFC8FCDB39DFB64B29607038CE4D6F0D7B84AAF5281F7414998398FEB89F -DF598EF5B2D7A617B373D7BF1DA47A7F9ECC5952A39A71B1DDAEDAA45DB4839D36A7A60047A2 -1EDC798AD8D9AF7A8580610CE3A96A031A0C7CAEE7FB68CF51EAE29A899AD15410A692AF4CBF -CEC43B424A92BE2AA7ADFFCCE93AA8C1886476B1A72A4E9384B2B59BA5AD1883654672C5A93C -C2426959B1E1CB2F820A41002A4BC457D79D46D11697CF0AFD6B7A23B1A9F14F6E1166D59F99 -6162243BF998B1C64CD3DE638187097F33D7C1D23F78D3392C9A9D260281045E264C342EE708 -FE86466F6F7C1E8E4ABD455226A535236256F2056D5C6EF9D91F340557FCBF8393CB982A84F1 -CF9EC1EEB361BE41FAE829A468459E5A995DB5E0FD1AC9EAA687F26BD04216E7BFABCFAFADCB -AB3A8BDABFBBB7BC47CE9EDAC7A148E1CE35027D8A5D573B13DA6FFEFE2940EA94C94B4903F6 -A9DEDE03EE1723057CD83CE8834A3C8A29A14582CBC930990DCDFAD1986895F348036656FC33 -41CE6FD4207C17D5A210ABB48372E73E5756A7E0F50132826FF9EF97D56530EF705944ED9A4C -26EAE0F737A50ADB2CC9099C90F2D54CD103264D93F4BF6B5A9C7D837B2C73C664AE9BF08172 -805CEA546FC3EB1C71C68458F8153D8EF41ACA46BC314BE963A921196BE22E3162798FFD945D -93893BEA902309D7B2254ED921AB8C480EBAB7A389EFEE5694934D7FEA330B7D98DC67F13308 -A73A39C7A9C87CDE598776E51CDB03C8E650DB86749EE8324BF66D1435EE53B1B7502533982E -474DB9F6A0BFF64004AD995065083A78845A4EF2755626CFF4D26D7D3D7FE5BFDC5AE420DB9E -615411316BC5AC1F5986DDDE4783079DD06DB4C9D2E28E523C054F741485CC99E9238B1E39BA -CC625FD94ACA6B54605C3273C142805D0BAC9F39A99359E52BC92C0C779C4A4C10BBF95DE79B -55CC736C80AC8F6F7CD6D0A316E7FF1946E15F41CA106A02BDF6F33C2B83016C121D9330A0B7 -FED025FCC47554B50DB8CF7800DF1F33D7D5D52C2B238F0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 - -cleartomark -{restore}if - - -%%EndFont -%%BeginFont: CMTI10 -%!PS-AdobeFont-1.0: CMTI10 003.002 -%%Title: CMTI10 -%Version: 003.002 -%%CreationDate: Mon Jul 13 16:17:00 2009 -%%Creator: David M. Jones -%Copyright: Copyright (c) 1997, 2009 American Mathematical Society -%Copyright: (), with Reserved Font Name CMTI10. -% This Font Software is licensed under the SIL Open Font License, Version 1.1. -% This license is in the accompanying file OFL.txt, and is also -% available with a FAQ at: http://scripts.sil.org/OFL. -%%EndComments - -FontDirectory/CMTI10 known{/CMTI10 findfont dup/UniqueID known{dup -/UniqueID get 5000828 eq exch/FontType get 1 eq and}{pop false}ifelse -{save true}{false}ifelse}{false}ifelse -11 dict begin -/FontType 1 def -/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def -/FontName /CMTI10 def -/FontBBox {-35 -250 1124 750 }readonly def -/UniqueID 5000828 def -/PaintType 0 def -/FontInfo 9 dict dup begin - /version (003.002) readonly def - /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMTI10.) readonly def - /FullName (CMTI10) readonly def - /FamilyName (Computer Modern) readonly def - /Weight (Medium) readonly def - /ItalicAngle -14.04 def - /isFixedPitch false def - /UnderlinePosition -100 def - /UnderlineThickness 50 def -end readonly def -/Encoding 256 array - 0 1 255 { 1 index exch /.notdef put} for -dup 0 /Gamma put -dup 1 /Delta put -dup 2 /Theta put -dup 3 /Lambda put -dup 4 /Xi put -dup 5 /Pi put -dup 6 /Sigma put -dup 7 /Upsilon put -dup 8 /Phi put -dup 9 /Psi put -dup 10 /Omega put -dup 11 /ff put -dup 12 /fi put -dup 13 /fl put -dup 14 /ffi put -dup 15 /ffl put -dup 16 /dotlessi put -dup 17 /dotlessj put -dup 18 /grave put -dup 19 /acute put -dup 20 /caron put -dup 21 /breve put -dup 22 /macron put -dup 23 /ring put -dup 24 /cedilla put -dup 25 /germandbls put -dup 26 /ae put -dup 27 /oe put -dup 28 /oslash put -dup 29 /AE put -dup 30 /OE put -dup 31 /Oslash put -dup 32 /suppress put -dup 33 /exclam put -dup 34 /quotedblright put -dup 35 /numbersign put -dup 36 /sterling put -dup 37 /percent put -dup 38 /ampersand put -dup 39 /quoteright put -dup 40 /parenleft put -dup 41 /parenright put -dup 42 /asterisk put -dup 43 /plus put -dup 44 /comma put -dup 45 /hyphen put -dup 46 /period put -dup 47 /slash put -dup 48 /zero put -dup 49 /one put -dup 50 /two put -dup 51 /three put -dup 52 /four put -dup 53 /five put -dup 54 /six put -dup 55 /seven put -dup 56 /eight put -dup 57 /nine put -dup 58 /colon put -dup 59 /semicolon put -dup 60 /exclamdown put -dup 61 /equal put -dup 62 /questiondown put -dup 63 /question put -dup 64 /at put -dup 65 /A put -dup 66 /B put -dup 67 /C put -dup 68 /D put -dup 69 /E put -dup 70 /F put -dup 71 /G put -dup 72 /H put -dup 73 /I put -dup 74 /J put -dup 75 /K put -dup 76 /L put -dup 77 /M put -dup 78 /N put -dup 79 /O put -dup 80 /P put -dup 81 /Q put -dup 82 /R put -dup 83 /S put -dup 84 /T put -dup 85 /U put -dup 86 /V put -dup 87 /W put -dup 88 /X put -dup 89 /Y put -dup 90 /Z put -dup 91 /bracketleft put -dup 92 /quotedblleft put -dup 93 /bracketright put -dup 94 /circumflex put -dup 95 /dotaccent put -dup 96 /quoteleft put -dup 97 /a put -dup 98 /b put -dup 99 /c put -dup 100 /d put -dup 101 /e put -dup 102 /f put -dup 103 /g put -dup 104 /h put -dup 105 /i put -dup 106 /j put -dup 107 /k put -dup 108 /l put -dup 109 /m put -dup 110 /n put -dup 111 /o put -dup 112 /p put -dup 113 /q put -dup 114 /r put -dup 115 /s put -dup 116 /t put -dup 117 /u put -dup 118 /v put -dup 119 /w put -dup 120 /x put -dup 121 /y put -dup 122 /z put -dup 123 /endash put -dup 124 /emdash put -dup 125 /hungarumlaut put -dup 126 /tilde put -dup 127 /dieresis put -dup 128 /suppress put -dup 160 /space put -dup 161 /Gamma put -dup 162 /Delta put -dup 163 /Theta put -dup 164 /Lambda put -dup 165 /Xi put -dup 166 /Pi put -dup 167 /Sigma put -dup 168 /Upsilon put -dup 169 /Phi put -dup 170 /Psi put -dup 171 /sfthyphen put -dup 172 /nbspace put -dup 173 /Omega put -dup 174 /ff put -dup 175 /fi put -dup 176 /fl put -dup 177 /ffi put -dup 178 /ffl put -dup 179 /dotlessi put -dup 180 /dotlessj put -dup 181 /grave put -dup 182 /acute put -dup 183 /caron put -dup 184 /breve put -dup 185 /macron put -dup 186 /ring put -dup 187 /cedilla put -dup 188 /germandbls put -dup 189 /ae put -dup 190 /oe put -dup 191 /oslash put -dup 192 /AE put -dup 193 /OE put -dup 194 /Oslash put -dup 195 /suppress put -dup 196 /dieresis put -readonly def -currentdict end -currentfile eexec - -D9D66F633B846AB284BCF8B0411B772DE5CE32340DC6F28AF40857E4451976E75182433CF9F3 -33A38BD841C0D4E68BF9E012EB32A8FFB76B5816306B5EDF7C998B3A16D9B4BC056662E32C7C -D0123DFAEB734C7532E64BBFBF5A60336E646716EFB852C877F440D329172C71F1E5D59CE947 -3C26B8AEF7AD68EF0727B6EC2E0C02CE8D8B07183838330C0284BD419CBDAE42B141D3D4BE49 -2473F240CEED931D46E9F999C5CB3235E2C6DAAA2C0169E1991BEAEA0D704BF49CEA3E98E8C2 -361A4B60D020D325E4C2450F3BCF59223103D20DB6943DE1B57C5FD29DA32D34C95E2AB2ADB3 -F60EEB0600C8ADE15A2380DE10AC5AAD585FBD13097B1A7E8E210D4AEE96785449E07F0C8EBC -2EC5EFBFD0897DFDC15E5BFAC9584D8DE95C5AB288CD8AD8B9BEF0B8E5F887B3B0B331542FC8 -184DCCB753DB6ACEEF98B85756B988DFCAF1AE0DBE7D37D5F44A2E760AAE3A5197C27B15E322 -75A64946C3E4D0476FD27FDE148C788DD2106F7C825E270588AC05B57E625AB17BDD02306F9E -5FC851DC32A5A6EDC43C770A71419B2C0C8074EF3F222CA0C85189E00124A1B7720316E552E4 -294C2869120EB0D07D23D24996E0551D8FB5E260D8953A9733C0B03F93A1B3E58F4A0D4F8B7E -AA87730D8EEE5766AF83F3B40B49E2BBD9CBC03D9EE5433D988DCFADB743571B2F06B63F46F1 -0BA31D5081E7174D0070CDCFE3159456515B84BDBF16FAA53C52B287B5C81F64271FA91F0269 -9F6DF84C3380BD3A844576F221DCDC42DE6500A75281D9E2532BF930D0B34329E7C0A641FDD3 -BF42C30D715670BF1B7C2CE1E374D0A3CDBB8A88C34F66027C7C67F5896919FEE444B256B90F -81B7EFF02ED7F50C009AFCF611642AEDE54A4E866580884FA4F00E51C52E6FCE19C33C9391D0 -2019BFB66FEB5E8FFD6469CD910CAF8B7D459450C969DBCD44650F8D19955F720C3EB5F3BBE4 -16A31F68CFFDD53248475A4B243649B70C92B24F705C83B12809801314BC38B9C121906A34D7 -6563C508681EB40A559405CE9097314ABB3E88146416C89339F4B5306A3B92E33474DABDADF1 -6594F7FC0B1C7609675558ACE4B1E2692518F3157085B27FFE1353E3464381FF3BF6159901D2 -F91E97EF01BBFE4BB89BD05C7EC074076348BCF10862DAE4F8DF81FECB735B8FC2BB8F85F0BB -4B0CB2BFCD6B54C9BFC5373B6B68947A733BB91E5145192632CB8BD531CD718838F43F60D495 -7B001530E1C07E12C6A6BED3F3EFAC0B2BEC20F0FB1207045011860F77A9565D077D48D147A8 -F93AFA1164F6ECD705D0F15DA6DA30477C5E9ECEB7193D2F3DBD19AEBFD60C0C068F774825B4 -49102EFE563B3CD3A539A4556B9C27FD305DF0415526E6288E6071AD627B8343F1754C2EC616 -54282F53EFEC03F3B2DA900EB6DDE03FBA04754842793D14A72CF44E42633FBC8F85102FC806 -B6A42B0A0B13591065F7FB3E00E5340A2ABE7BEB4B0960F755A8E8325D87860B95EF2A3C96D7 -79F865001922C8CD4D95CA3D337C18290FBCBAC64D1ACF316B1B4CAA72D9982CFDEAD19F4DFC -9FD3F9CF52D7EB7E33721F6609777929F419D19D711B96912C06ED0F00BBB1D768E9217F0EDF -3A47985CE90A934EB4863581400EB16D886A3E0E408FA22D203527515C3B667083CE10267D4A -4429C8618353439D2B1BDE2111E32504602BC7ADCFD01F9A552E84669D0129897A404198BD08 -24B3380820331CD5C797AFF29350722080C6668BA599D7724CECD1F7DA8D8D9BA9A725CE594E -F5E3BBD8D5ACBB8AB91945357DF43810BAA50B05BF92A46152A52798AB86BA9D68C24D302EBD -06096D6C19EFCFFA1DF6FB1CC458D280141C7E73310C65C99D6FCDF9C353F54A94CB714E58B4 -388431B541DD7643D8045F8EA208B129481F04E578310B07892ADFD4A7F2E9A8100E3C6FC196 -09FC890D48D5A377096D1E86A73EEB059F1AF4BCAEC7FC7FEA4F52AE9538D76FCFEAE9C0F815 -6A300CE2690819916884CFBA8416674CD9A65997DD387EF107F6E3827FE310F6C25B2B881EB6 -2F398E59DED94C39E96190754F2CB5706BDB1F7D5B212A316F879C00D228B388159BDEA4E44A -FA088300368A981E74CF9F16EB97AB72AAC0607E7B77DD79614DECD114760E0FB30EAB66E81D -911A89EB161B54995BD7A6AE8780C623DDC0E201A1092187DD4130BB4B4FCA6518BC402E8110 -A0A60E2BB2A60CB21533FF9D15518A9E936A7BCBDDB0D2815C5FA45EC3DA4B9544C71770927F -FF5DF8A03D2D00EA8CB39E4E1EC13DD0C18A0AA2AEA52ABE75C75C5F99FD0D94B6E79252CE58 -10112341A971D36890555F0A2B9C8089E83197CC1498867545FEA2CD44046BA1CA0D41FFEF42 -0C9C430BAEF2250FE972EA92271315FBA487CE124D12E2CD4FF47F0A64875CACFAECFD95E402 -EEB7BB115DD842374A7C68CA03BEBAC13BD2F80B5D355AB2801D85A83201D3308D1A2E946309 -AEC005F2747AF78EB72EDA244180FF0C427D9556C3A11524219A308EA611E6D01B06A97AE716 -1EE65409B5666EF75907BB69CCEB5A388DBB641DFF83ACF4FFA64E68080671DB083F4FAA6436 -81C9FEA5F953A2EC4FB04D024B2A99974E1140B07DF4CC9BB22B6C39C194971A08772114956E -5574172A47BD2195ED69FC17170CFE6E86158A9071975E5B434A9FD66646067E971BE01344E5 -CE9A4006CFB7B7671D2A5E3A18A247D6D0C004DADD776BAB77F0BE89704BDDC9F646A296B842 -7CA3DB5E68EAD351F5403B27BAD905552C772CDBA4D0401AE3CAC625802B7C7DE7E389ACEBD5 -054999273B27CB6634809AF0CCE3CCE956FBA42F38AB630BF6D165B5DCCFE2E6461E61600F1C -AC5E42153FB847EE921CD1A4CB28DB9D73435329707D8D9B414C9205DB52807560FAC3B9DDEB -1EE1F684087697265E152A30E9B351351134DCB380362BDD0B766D81A9F88369CCECC9135C74 -B7D609E019ACE113B0D8970709DCF64E24EA432FD40B9DE460C4C2AE554F274FB906185D9EC1 -B7B29D615E5F027DC991F5B11302E5915ED6AEF640CEFDC0E9FB76DBE6E08633B539AF6C244B -BE6E1C5010A7CBF2524CF294A6BF8837FCD087337F0D7660A44890AC049A0CE670353D9242EA -0C5D3E0C71FCECD5D2FD831FA3A0F5D753A51093839724A18CE92B621D85AB702D54247B96DB -2C689E973F37328F7A9B9A12B2932678C67082A093572A9FE5A4633A2C9865FD79F983D46BD1 -DDF639A04B3D1EA10FED5E7CB216912BDE884222B848012DD702A231480A76A40A70E40DC81E -0E5EB09D72D981B9AFCE286CC06A8D8F46462F5D6FBBF167BD30CB5861220543589C18AE3AD8 -15922D8F7076513CE5046128510EE4F99B1A106C0818A61D0B3C943D83C76E7820058463BF60 -60A138723C6B67444F47063D683E0216139B44E7EB06787D616AB42EE32DBEC99BD68E689341 -A7888CA2F42E7B7AA947534C12A0215794C66DEEE2CCF1075CBD52B980EE574842499B805F55 -D9CC9EF0064EA14B18BF8AF53BC5464B6F7BF0A495197DEB8DB4F5B643B5485C1B5B6BB6FEA2 -9224C3332C43753A3DA3729635E0B7FCB4C85909297F686C9223FD7235F0704D89163A458B73 -9B9C20D80EF252A993A87D4F292EC66DFDAAE4A07222528E237435648D214212E182D6B2DDD9 -EAD29826F4B4BE58320CD3B32150E11E63EA223DCBA938D1EB12A0280399290C5FFB6C4FCBE2 -F800E6B9DDDC577031529E1898333ED0D90811304123166F7C1BA06B32F88DAC1E7D3E53857A -41C2C5D12F2D4377B5DF684376E2DCDCFB104B106FA2E6E7F89E33AA0B7CD5895A77A500C277 -06BC5A36EC3E1583F4329EAA62FB1E31241C23887BADAE87CF1DFC662CCBF3962FDAB192CD21 -4FC3F3FFDF1F801EF05C8CD6E3915D73657095AF4A4C9D99F8DD341E747F578DAFC901A2C197 -473F3FB46DC7105FFDAACCA189D156012F3094C8086DE84BF4E4B38F0F6D47977A9084BB46B8 -1A10BC915B0072DECD73086F51FE9ADFD0602D9DAE27C18D7BF13D5B83A74B0EF0D1485C1605 -3A1D486FFE5A119B33B1934BCD1F144C493490766A486CEDD9F967F2CE615050D2B15975C6E2 -F46DCFEC5CF18BE018FE0F0E5CA54387546AC0A4F18B9E7F1755452E923A6764F55AC45A0C6A -9245B2F6DDBCDB264BCE3AA1BCD0F87D419B58E0D0ADDFA686D194D7D0AD17BBB1ED197CC394 -749EDEE5B425E130FC365A04863D8421E9A0551FFFC756F245E3317DEE104E7F583268F6D328 -0ADF8AF2C7C77FA5E33945C566BE78B83C1157D364BF36C44E6A5703ACF18C015AFCA58A7C0C -C53E1BE47C3AD30FA02B906B33656EB94E08CE874EBBA7B4260821F37CCD038DCCC77266F77D -A288DAA319934B53AFE322128BF9B1C1D867A6BF5615C44DE30F9E6982E952CEC9B96402656B -C23A44EAC170A3CBDF83A87FF2842992D95F87635BCAC213D7A2B1CF178D6E02C333C87D5D44 -EA3EF74A3F7140ABB1F5C3F94DEF7EF4A3BCF9B86ADF434571FDE68B7CCAC85D2220AF28B930 -B2A69DF0A67E2E6E6C61F2D3494960E7B4E5890F966AA10DF624FF0639F9E84ADEBE2BA33AB4 -C45CE826E10CED96174C40EAC97DAE442674240CEC2CACE5E43E7213EF104481C9C0C53F1B45 -F86678D982D5DCA7C6551CC011F7FDB9C6FE359C7788047CFE721669B895232D1CB1BB6E25B3 -3E39CEC35CBD4318800269431B411947D729C6DB2D1DF6A48F961706360D87A6FDEB7BAAB561 -3279723975120CD323AD04985EF70428530CE3B8C1D35ECC4582B1123EDE1A6CE7004CB4D975 -B1752D9E58457F53B3EEE8C92A45E9391C9BA329D9979AF675F16035FB1EEBDF785E8E7CDFE4 -E2DBE179228EDBBEA08FF32CC9BD232C0E13873579B3CFB62F87DAA95A8B22D103512383EFED -B44B2A4C3AA763138FCD286A3498553458B32BCDFEC200FC04C6313EA28A1F0FF3D279D4D6C2 -BC01BB87AA15248CF395FB79C81D6D32840C86576E28FB29A1E77E56A3534466B1F2EBE04161 -22355E196AF772E2219B4C81AAAA316B9D9FF9872C6809BBEEE566F51B6EF547CEBF6E2C0437 -F83BF1995570CB81692F910FB8E1B2B30FD3AF9A178730AF20C0B67258E9FFCAE3971C4E459F -02069872AFE3E9B78ABF9A73F2F15CF8DCFBB5221650EA40BC97C2A8C032BA3B6528C595C145 -634C5CA56D36B85024D76D2C33EB845241F8159BB4FA6765982FA3361F8454A4A58825C06DCC -5A811248CCE85D96421096CB5B4CD75A471EF188C97C84BE3AEF3E3E4BE5D7F3A8E7B2C67917 -B44E03064D768C9D3BEDB63134A9E24F57EA93702C022BFE0EDE6F47BF83ADA82ED06A574CDB -318CB5E4B8097EF8DDAF4B63F960943B9BA091B905BB3CFAFF264FD5EE13E0B1FAB6160DE054 -8A8C3FADB7129CB2099D6885418DA2E469492DF407C0FC4B511824EBC0EE2CF1BD97A4754433 -56482492DA5B8C7936E0EF1B79082C431E862A1FBD8319BC8FC0654FD37FC4F5E46F85518184 -FA4DE3FFFDD06785A92D692FD28E590D46CF042FFBD8043F59E01A37D280AA8685DE00767821 -902722BAADF2E396841938CD394C3F894B1510AA78CA31CA543B812AC5317A0918A96C9F6973 -08305F62B8D38A75A5B863F07E409EBDF09A4257B82046DB43BE89F08053713B0E031E104221 -42BEF6CA28A6FF19B7C1B18306E8B025E05D71890A0E435A55ACC8B2305C6376EE0B877317B4 -2B00D6D16A69BFBBEC45D945B593C974D0B1E5C853C6CDAC81D42DB0209DE9BE4F34EFB5A40F -B2D37493BB90B31D0281860EF0D64C8000205AF8620518A1B3253FD1590B4A2FD063C19258AA -3F83052FA2B7BA015D717E68D03D9D1C2B24944A77DF5B7D5FCE7FC9FEAEFB5D83EA87E9C6FC -BA9DBA66B5556033C9DAE176CCE5BC22AA47C5FA4ACAB21B60350DD94AE5BB86547A718FB30A -2B453A9752815DE6A2EEF37EE5BEE37E19F3FD4B9BB18BF4557D9941734B3F0AEAE91FD67AD3 -02A268F4A309B289EC9C8D8DA636588F8EB0D2ED20B4C715322EE89BEC8248D1D4D4D0246432 -92B78FED99E85C56709F00FDEB16B0ACA0BDC65B79BA7D681916360B98AE21FD05EFD73404B1 -20D87CB4281B95B251A9607A98E330849CCA6CE06A8A371339768DA2CEE4AD0DF1B6D5C10FB3 -94472B53409BE7007986B2D21367B390A460EB7CFA68267248EA2E8CD010B6D180132B13FBA6 -5EF0C9CFC3BDB80EDF014B2B292F9D2208C76A4C65551FEB9996818788F4D05B13643A24562C -6BE7C241B9D853E59367E2424BBE6E466C7DE2DACC461E7661D3418F2AB426DBE3EBCF95F1CB -394CE67B7A5616D13F1B2F4E462F65F4A47D3FB0D0B0AD7D7B98C0003ADE8608459B65777245 -5279AD82AC064CF7DF310A1A18DAF7CAE71B942AA41AB94E04AC3D2533473CD1ABC261077487 -D4BD3C553F2F1DA719A97C4A22307216F716AEFDA32EC6859AFFDCF600276998CA098EE7622A -33FA26D590B22DA77BEBE55639EF5DBE3B9CD6A6BC9FE72AE61EB93D663BF8F0A67AAB954DD1 -8E31A32C748CABAEF790B93194744FC46DF72E83CA7EEEF8D740E84A2B87503A69E512D4AB24 -2FCE8D1DF18C2247449EBD0B43227B3366FEA583B985D7AF6F0B97A9F83AF0095D5225934BB8 -0D2F31B3121029C22975116BA69B28A7569C027CB6049E61168B927E107051AE7D786E116389 -6273DE91F3BF8D32C2EEF27D6AB0F056E52598B9510FF3874AE40E54F10BC5CA606B8F75C34A -CE5620A3DF527D02CB8249C0599DCE43E3153755EBEB697199C1FEB70EA2DE2DC40A5B09B28B -97A229D715DE6A0BB6F92BDA9C45A084CEFB2BFA5E7007AA6B3AB5BF8302ACE380C6EE33457B -F17B5C32B1B4B112CCBEE25807A9FDA26AE77CFD2C7494F1316F5C61215E87683412D6B96E59 -4CBF9CC01EF33F6EEE31D48DF8DFDCA5DCC483E5F6DE896855DD7316809A81FE3A5A23E5DCA1 -C7E5505A3E5BEDB3F94B8B71E7048A66F1C12F1C17A9BE5FCC66868E2D61DDA8CDD65330909F -C55E8B17EC056C2AD13B61F926CD7D091229E53ADF6A214187199C5FFDE58264D3258AE4E8A1 -9053230442B5AD8834F01E1BC04B077BBA80D80285FCA17242B1ACE2FE5810D18507817B13AF -C43DEA5BE95ED4EDAC5C6C435D4C993DFA49DC9B0E7F9737462F011CFA7EC5655B572DD80E2F -CDE371441525748A5FE363EE0ABCEC86631BF36F8698920D4BD618CCB198C5AB11A8EB2CE755 -97475AADADB12E7E26DC12029601E3BB5116DB81885543C1AB9E24B1C9B4B23D5D591B39002E -BB9C78B675FD915EC5E593612175ACC79D025AF583F4BCF5BBA761154F0514B639DF8C28A45D -344B5043B16B944D48FF9E1B93DC4FDEBA7EC68F39201B5127DB02AA1C1D51F8886C13F4DA53 -2B86E7798AFE6C3A5C55B178A736808E73543C8659208FE0C2C721C4F86E5568604EAF88278A -78423143E51F382EE35ADCA6C51A94DF4B1F1627313BEEEB2F5ABBD0F680DED4206BBD8BEBE4 -E0392FAEFCC6FBDED1D146B9134695002A34DCFC06FBCCDBBC7935DBAD5706ACE55C82AC16CA -3CB87F2D73B31799FF079E031D6EC25C6FC98EB2BCBC2629035B18C03B6FA63862D762B969B4 -622EE9C41771723F69A3287BD57D2FC1859435AD30F30628B47D2EA315D85CB5E637A7A35136 -9CE415C9006F57EEDDADAFE20A956D5826C8C9798F731A6C2BEF6B441871C6B331E2E522E7CD -81CC12A62B96840AE9F6E5A700939CE60EFB857764B5221C9BE8885FB29EE3533CA38E451401 -012F192BD4E35631EF061D8CF212B9C85A82ADE8396008E5E0B85560506082D2B4761680CEC6 -5F058E1BD85F870990C63E6797FCB8C86A8D3B7F779258FF6EC92B456A43513933422561B180 -D8EA036E2498E85E34F70561F74E2FFA09D4487EF7882666D23AB4F4724A91DCE13761E92C7C -A2079B1EEE75B093266F540642EBA7AF48D8601248F0F14614231A2758309C5154BC20ED3F90 -9057080A6F2FBD692F7438519AAAEEF72A357C0098265EDD8DCFAA7F25EC0DDF6B8AF6C71435 -73ECFEE099B33FC49D8FCD97E1FFB7B8A50568334E34AF8970169E96B2912A1A4087B4058501 -E965971287F491D04B5C6BA2C27E66E68A29DBD66CBA171D41C4E86E53E01D38D29092E07F12 -A569BA7BA59C02066A0D4BDCF28BEDEDA81A4D02B9E4F4B05C48F39C270BDEC7F328A2D444E0 -482BE5D0625A6CB06A2325928B5EB00A660D8835C4F50F6858CE32911F9592B816C7269ACFF9 -6768D215C6F7BCFAE2C1A40FBC05240468DF458000AA7477BE9E9FA75186A45A6FAA91966BC3 -8D29D62200209BC45F0E3BFBAF893926D11674C1813C23405DBD7F706A40F0BCD6C390AEC7B4 -CB8F319BFE956E6F98AB8240F19466122A1C466DB51BCC4FE356D87E29E09A792E33194C478C -6A475D046D568991AFC0C35C03E715CA3153B295EA638D54CE432B9BD0C345B3D82A12B53E97 -5EFEA333972193DBAD70CD5EE5369E6F41F1603EDF328DAA90E3B4AC9DE1B519BC01FD3767A3 -877D8E688EC8025CCA9FF1E7B3A9E18999CF13A7EB8BA5AE501AEB4DD68AAF54830515CA5990 -B5C3E8ECFB37E91F35CFD884D4B4A90F479AEB32B0C8300E5F32DE5ACF3EB0BFE52277419609 -E689F1792467EF6CA6E3811AD9DFC2CC2CCBC23A4469FB8646FDE8A7796186D1738E60C074C6 -C2B3DDF5810D69F2428045CD606EFA8D66F96C66079256AFE12FE5CF5A6FDE51972272E8F065 -218BA88536F7C1820493B73D2C7D6C71A17B6F41CFD12EDC1686712B2469F5B1EA69F9E0E1A6 -FF19F68EC655A195CC91711D12A4155EDDB628F9398858FD37F0B35A17C975B875A2AAE500AB -EF43563A79CC5F7ED4B329018E416878DDC2F7568E57FEBC06C27E2992991F8911FC35F368AA -E4200DFDFCD73F9997EECEB9C3F9B844FED5A901C80FEA324E7AB736538520EC2DEDB0FAE43F -E18A7E1B43265201F144197CFB60807C107CB2BC8CF2B73F370B12AB4215BE71A6869C42FCF4 -42B2748B246881229CE2F044729C9627FE672FDAF7C55BDB0BD434B959C9517BECB6BFFE87E3 -B4D7A2A7BC95D3435E23F7395871ADED257787D2099AD4737D88EB80AB69CD2260364701ED86 -1E74ECEA5A8D3E4AA152E53F16F0A895A06F98742D85C3ECCF64BA27965D2B38A9EEE502A93B -0BFD0E16918EC3623DA8EDF984FEEE9633F7440EF211D375B09939598CE9808C2BB6B3BE5B62 -FBBB317C07C8B595C0B2A908AAEE92D72C7369B1E20E0CD818EA9E1799B8CFBD1D162FED2B6D -9ABF878A6EFD56B82403833E5BD9BC2C57BCEA7F1AD728175472663A0B8615A2B317343D1CAD -703995E81CD6E425CA195445145D67D6997151C52741BF812CC81E922CF665F161B0E251CBE2 -4C5A018231AD5943F29D8D1474E9EA34D55A9EEB4F6F0F7F24BC9EA91B74EC159D289E2AAB2E -10E8D8FCC801F4DA9F3CDB3B84665099AA896C8634704FD10DC9460D14489F243DA52D5985B7 -502CF49390815783E712476DBE3061CD16B6ADF9E544549F2B675210E8A89141D46CCE0123B2 -1C1B52EFFCAB878DBCE710915CA7748FFCBD3226F83D77174A7EB10E2384825E356D1CFAF286 -E04ABE3DAFC835ADB2A39E3A42D63C1351AB56C62682DFD15BB3CF4F44637ED9DB8797D7C664 -0ED9C66C7FED09C0EB1C4C691292D9D8B499A616EC76F59302291AA5D35B5D03B6CE39050BD6 -198F13F6752484F5AD13AA48FC8D62143C5C9AC70324D28ACF5DE07C87C7C94F46DD5C1AEC04 -27D5FA06B29FA25C1EF70B5B9BD5F4C43188A7FB8B95F51A406E2937617D922CE899AF1473ED -3D1BA708653BEC6F8A4D999C2C5AAD1D0BD32F9FBCCD717B8F8FC1D1413F647D905576F62534 -F58D596E67963AF1AE5700F4D5968A98899EAD76A1D31DCB8A69BD4053A5E0A3C3356C5A1D64 -A182C9F6171135278BED55DA97D44360ACCC65D123D82EDBCB843A0EA0E99E8AB406FB94F0F4 -86252C2203C21A39B686F877FA44C412EEE52586C7F1F71050397AF1132B60FD124730863DD3 -28D3DD0C225C4B9FE076E1C1F837B105D9B64BEB27F93A28FE1EF5BB52C369DD72296C85EF25 -AF62BEDCD4DB77132F85251F0022D9C251BDF71BAD452C013665A2BFEF3E936CB8E140DED766 -DE8096C7508A135C859A0A499FB007FD25E42DEE6359841860CBA2C7611963106AED4499B064 -6D77845D4E76B8F11F125D6A7EEF960736D8D892B7F23A9EE3B835B252BED0469F3410190E28 -09A77111DC009BBD191A4882ECA444849ABF999E98D913AB360919F4FE55CC05714F170AC2B4 -60551176D6FD10DE5C6FAFA347B5F402D9745D05CD3DAF30C1539275A5FFB5AD97F0086135AE -5C1107D77349A0A3C5960271190D4599516636FA8A07B4746BE7FD23A6ECF17CB61C4BBBEE07 -C711B0E724AFA0F51B8E2EDFD541AC9D848EF811B4AA5D1504379CDBEB1FB53A21A403C334BC -6CED1E8CFD7F274B0759E0DF7E1EBE5FAE101308D481838F4A035C83F516935404CBFAA190F4 -2494A31213EC066D056ED1F6FBE1D76E59C398459359A39D7ECAEF11FA1E06D170357878EE33 -D932FF5E2F8A269763245ECD947C3FC6683ED04216C8F432BBE770852E8A76A43D7E6764C0CB -72DCE26360F8C522793839EDCA3E009E9209C740D280A9A01EF6C15827A99B973D833C013531 -A8CABACC1E30D0DFB9638E9D422E148B6B8C0CA3F74DF0CC941606C56C3B3F02FD2CB1618314 -705CAC31783299A4E819C5BB66E09A4E5A4808EB264913F76A3B988D41D1A114387CE7F46CB0 -912109796C1C7ED9D25AB8A52AA42A51586FBAA7C73CA8C3AB069556FBE34D8FE12FDD573C50 -C10136F845EF8C54719B401C93C66D9860B6D4FA7E3B5E3C87203AE426DC5634ECBDA0E32A00 -3CC51A681B5349D4AA9098A392830054AB48A5233C3560EC8070F7AC46A42A63DBAACBD071C3 -70B7704CFB815F014F72C246D52A2C43F85E5FA2A612863E24640A767F2497918164113CD527 -6C6CD7F3B16D8C3F893568C7DBAFAA690C12AB2BBB02207365C104D05C27941C58E4F50B911C -D84972B31AB0E0721BF6B1D1C8611FD30A74E0E166DBA4C409ED6483B1C36F9268DA1C469117 -5FDF79478913B822A690148379281885D9F7ADE2F25A4EC01371F8C279D4D209102F4897EC27 -EBA786DEA3D1CDBE74FD236F00353F70FC345F1D7ADFB9A7DCD96B348643292733DCAEDF98A1 -67807A8EC6DA8BE7036B40C1FFD5EFA6680699FBA60CA6556B0473D8C5F5136558AC7236A130 -C5BA39A80338E56D050737160A8527792D8B83C333E3CBEABB7A61A7AB585BD8267FB59879C9 -E5F28B17782345789125D2AC1E7A5F959143FD8B83EC4918E3405205479FD951F2DA92ED6686 -37233ADB6B02D9D694CECB035D84FCF19C3627AE73F7D7AABE70839A47ABF9F7DF911B1CC12A -4B916BEC18346F4388B132BB22A21314D120DA29220155081148EB3152A2A91B9DEE80885170 -C6847C1684461F398830214F2B801F8729E827027A72DF83AE8CC4DD2E81C9C4D94B92EAADCC -196F5D7F12C35D287F2FE2D1B905A52F452DCC792D1AD1D03B4471E15985F0BA37D5BE700608 -F64FFC75A93903D5894EE30F9C47879A1AC5675406D3976B1A614471F6B2F68C07E1D0657CA1 -736557592DD09D42BD0D1F26EF8014F0EF26C26B27262B799F1A96026CBA60F8556191C8D7B6 -FE924AEE61974EEA55E285DBC432E63B961FAF76CDF925781AF9CCB27BE310F37EF8E50927D9 -6B1E7FD78689C85E00A5DDB50125FE7CD711C2FEA5B1C7CC0DC3118E7E7C6036D435A190EA4D -4C0049A479F4400C4AF7B45B7C24E2B6BEF0B5A173410F2AB0BD7F11F3D439F7631DC7BEA98B -5DA8BF6414393804ABBC4CF203ECBD7586B75A56291556B2B37B4A68120DDA56FC6EBA5C6043 -AE98450D5CF6D722FAE520A689CE3A91AA3B34087DA93EFF211DFAA301D04C343EA3C02DEBEF -CA0422100FA9BEC30A42E8F2BB35B97788061DEEA3071584AB71F0D7DEB7AA6CF71727FF062B -AE3897485936CE459A95D768A606E7259D03AF4BDF1889F175421AE3757E47C861843A0545EC -0239DF07F6B0ED0BEEF38025739B71DF49486B23750C9BC1011DCE982260BA87F0DB9A1B2311 -664799C49EB1A79848A9AAFAA618ACC4FF80F09A9834AFDBAAA179C1A84009407BE42065FD47 -621565EE30E59BD1D461C97C1B7DBF8B647874023644341337AF09AD48393E5C7AF8BDC7218C -5E718E92B1D6F9D3238B4E8F2B21E68A063EFFBC487E2D0E0879542C48AFA9076712AA0F6A7C -8C8D15A171D38A604E02C348622C9C1DEC120F0F4FE350AEF7654530E79FEE964922F3E114A0 -0C46A6BB59E0BB7649CF928F296699738D0F2D38E1A241F68C79519CE7503888388238664258 -91FDB7B94FA6D3B47D2CD5D7F0456BD72A6FB40D3E6E1588D45981B8021B1880566BCC748DCB -4D59EDF88AFD8D7502906777E6AF4E3884A4FF1A5ED9ECD2A8C258B4007C077009E3658C6D3B -E99481270E4E7ED18F207CA24F92686E6B6953CB49AB9C42A3AA8CC95C9BA945921DFB3E08C9 -F3E2D328F3102EC6D83A3D08E655C55FFFA707D37E4ADF58DF358C5F441C8FD45D7C44B97DC2 -7E3C12DBDB89628C910371CAF0F9BAE5E66F64F98C8A87B092592AD8475763F6FC6CCEEF6C78 -6F26F331CAFAFF6296893F40C18525B492353CAF332EE8645A24F622183EABD0EE1F5CF20717 -0F19E0BE2300A00428BC668F10ABB93C96F954CDE1CF74D6494E45F1354F7CFAE18D78E000CA -62FA1A8F274BDB421C20CD5A1BDA570C7975192EC4AFC5AD1FAA28CA2FCF313258B53BD28A5F -29BB07776988DD391F9828631B65C7AD2F419DCCFC5E0C5772BCA82A74CFF5D369A5089463FA -B9DF0D5BE19BF255F835890F8C8520E3E5534DCD2F5DF818020FA68E1E60DC76BE824EE7852C -B2E260CC281104562D6E9A46864E7ED54E9B98E300347897BAE5BB16BA548ED2E087DD83DBED -95F86B554275ADF0ADF407331AFC0BE37E928B37542F51B63D5D564C0C6B1C942413C684A2F2 -463727AAE2445F07F7DF9785FCD2C8ECB27D2C3C962118F9D7FA9AE59A54A6C07C1BA42C3D96 -C53659FAF0D50A7D2BD6B9BDD2CF7FE26AA2220F5343462B38D009F70923B419986E69AF2C8C -DFC2E07152F5E6F50785987968CEAB66D2CF3C61D740BDAA58A3FE54B269D817C691CD76F6F2 -A1D72E339FD1D8CE795FB70EA77AC6BB7B29DD48A64BCEC020E139B9EDBDB8C08839C6EDD739 -8B1C6F19612D4CD95F9FD5272D8439E0100F2B0D11DEB0D50C0456D129767AE6C314CEE56372 -DA56CAFF93C5894E2FD2FBC0E667C2A7A11B322F348F1C13FE019616FEA9C70A4F89B678FF7B -88A0725F5C6CC3D53FBD1DE6F6F2FEC54D301AA1F04997B81F706460209133D810305E89867D -E9503555C03BA79F05E00D3A3C22ABB3C889DAA31E5EC6B5E82E67F2C8531DA5C06CBA7CFE3B -175168F529CB45576551003347CD0734635C29C18EF77F953B6E20E0CCB90E1C7D521CE8E787 -B23D12849B19CC736DDE324D410605B9DE63081FF1FC33B6F750F3A3E1CBC33EA8E2BEE2D0D1 -5580136AA8BE16593C0FC3F14683FFF70A7C0CE5EAE2E1D0AF44ADA49D87A5829EC2505B8907 -8F791FC1DCD12CDCD027F14BC4C811B32DB977484F98F91380ED65621976F1618812E27A1F2E -7B6DCEED4279281D3A0F24BFA0E13224AF79858E0A1DEBC35087044A2E7753F8BFA42612EA65 -3321C8464070BB6559222CF3BACAFE5B1D618CE95C223AD9E03CB2414CEFFF27D8F9295BFFAC -9E752F59CE7F297DF17D607C12BF104BA775CCA2D894D8DBC8D8EEE525F9C8F1181051A634B8 -764DC2C8EC7E08F4614A2E185E9CD6548CC2643B9EE92A264BEE36E6FDEBE577441530F5F0A4 -FBC31B70AE686E041C4CED877F0C6423C98E8BF9F3B7603E45834699F96DB45B526CB7D1757C -2C135F65A2D2C6B81BDB91171DCCBA54503E50A33506FBC08B2BCC0EDCA35F414D2A92F84972 -B38DF1A8CBCA7E513895B18A0F852ABF649A377E486B5D3E1FE753201DD234C331309A65A945 -C7A76D01DC976270D58BEFEC5E365DC16DA9C927FA9088D25E8FDB825BDCDF8B88471546B8F9 -CAA0BA6C36AC94D610779097B07216C4EC967E48B3A84C367F5FCA7EC45724D007493C13545B -EF47265C0E8F80A49A5750988F974135B565368FB8FD949F4FAABA24AF03963C0583B4DF1C73 -E649ED7FF128E655B685A1E039E862425665193BE8B2698660103707141936F8510DA76DD50C -E835AE01DE5678722CEC41C301C209110A66301A33901E89A68CE106BBF62ED61F929AF6073D -E8CB35EB78BCF6D53D786167BDC8A48A92E6EBE65915597A5ACD2D3D7AD6D118CB9EFE368879 -A81D301E889517CC7C40CE14CE77B61033067DCB2CC65761367A219E43267955D44AFB4096A4 -5DAFA01D067B1B42FCD5A3C41248509470F98787AD97B4CB3271991E9E8DD86DEA5A850460D2 -4CC54ACEBBD220C4ECFE5E17046E107DC68897D1513D6CDED959B11E36A1EDFF00D8A6F22A49 -2784741360C17FE567F5CD434EFEB2742F256E49657F7EF3532ED45F1C57C1F8CA42DC6B1902 -0E31ABD4012EFEAC36EBEDEC9F45B8B26C686F6506A4B14AC5DFD761B2A83E2038E8EEAD1927 -07D2AC852EF652A2F057B1D1E6A7637573A2A278246B030863BB2A99B85B1A83055AB388D351 -1AF6164F9D658DED38DF57F14AFFAFC6CA04C89369529743B8C6DF7CEC7A2504BB0975DE988A -061394665610EFBE330AE183BD3FB6EDF86A46F041C4FBF7B7FF3B75EE63BA5BAD0C466FAA5B -D5B1F61CEB464CB9366B8001453DFDF0E50BD0D3C795E373A122BCA7E3DB66FA79CC5682D0CE -2AEE77481AF7EB11C9259D7BA80EB3A1C3CA83A4C526C2E2BCD1F0C325E3BF6BCADD078B77E2 -19A131CC7E1BCC9F016B8DF39E401EF48ACB49095EFA75F3205E5693E5C2C8E8D5C1AB057182 -C5345B9E3BD7AB3DB595BF5B34EC8F307D1E389C5281B3E3611549687DB16B8A901DDE936CA0 -32E2533C40FD144AEF9B7823E1617C660B19B2CDADAA9E5FC587E763BC785FC46B7BDBC28205 -2A4388AD04A2F1EDCF03A797905974DAFA30371EFAF30F5143EFA515C5203F8794FF8628B39F -29FCF8DD58449E653EF4A1D04C057CD1C116718A5650E21111E25AF95994AF50EB99252E2384 -D1E9F3AD016B2248A62D25D64A12564C83ED92B8E2F77CBD628452C3140257C9C703AB79AEDC -76B74E778F86799769038ACCF870EBEB43001ED56F5214397B81098264DE3DD676A5BD3F121C -8D281DBFC0AACF3F93C1E0150DC3BD168217EAC2FB06C90721015CA01445C1B643EAB308AE96 -6EEDEE0AC2EE6608ECD89DEABA1166E6D11BDB6483497CCC75ED8D33C4EC815373A529CCBE24 -96DFF93C5CD812A29DEDA6E467A9602E63A7B7089DA8AE4AE626A79AD9E97AA619236435035D -5DFD1B1127ECC3300BCF327D41DD63895881E2F23635F4C02062BFE8D3EAC6C38DB0EE447245 -F7C5C002673D6DE64287BB7C9669D4C633B929AEA47FA91A7E828AF3A5A7DAA12E5A40549CFA -B7657A8F9184042CD4D09CC7079937C77D5BF8E8C3A79EA3B0CEEE1C3EDEA64049C4E4B77BEA -606A3E99B7DAA5C30B3FB58112F033A6894A176A53406D6249AAE1102CA591B26BF64B1DFA81 -4481B1B6DACCA0FA8997768204DC2538A4DE58542046A0BCEBA5821BD8ED029C3FF29B938288 -AC8A9EC2536FC31168466976674777BA68B143CBC6DAEA18B58184D56DEFCA7213FB7C60687F -4B00CC53029583C19FF799D476A53CD991C5A0DEAAF4EF15ED3F6462B7F602CAAEF97DB5EF55 -C7C815B711BDA54E498D9F381E14D1B402D95F3559A324B2237E441A9BE73550AC380EBA36A1 -236CB0D6280907707B88B0ACD0687CAEA2E629FA3EB7286DF794819D2835B321897282113581 -1563849FA298298F93FE3958E447E63BAAE6B9D8EE9CFB3783C00CF2D9442D7017ECD191D64D -87B59D2120094FAA398C6A8ACF2E22C46F413E91242A9760E7666363B4E245DBFA8B5D61C609 -84CDC745C4F280D7D432220F852274E4561057512EB48A8EEC9A4F4FBDEF39104B24ED658204 -805295BA4FB95E994A21BA7A0792193F0F4BC3750E67ABABC1E150BE39B23DEC0D8052661CE7 -7E55A168AB65434E0B98DB6BA4AFD6FC3E2B4435D0EB0590E3CBF3AA744649E4715012CC1118 -07C75F6EF0D709C9ECCC034468A02B2FFEF89F911E57FA23CA810E26B5226D5A3FB65FA69767 -EF1E2EC4BC00AD3170915A49EE0E35C7A320118D6B2FEAD6A5CBA7A8738F9382FFCBC14D50AB -189C1DC30E16C735B238136FE61ABFB82F4C336671F76A69E154F96E5D1D21078BEAA794A63D -E17359653A009E3BEA0B9E8181DA0461607E7C2AB6EB69A14311F86934A5D92422FC969FA045 -4E350BB3DE273DC0C20F51B827709BE86E80534BDEED031906B7356B75B6DBAA9CCCA62966FB -0891AD166BD17019F4DD8CCB1DE2CBD0FF86BAA8177F928C722E59B84204C775970862BEBFD5 -5B9DA7C57B8280A517D6B41C4EFDC9F4A6D9ECBF6B9ED813A45C75AA37A215135CEF3F109DD6 -EFE2CC5EFFE657730A0FDA93506F2226CF1EFF07E768B9341B4897148A30108545097BDD54AC -A083C7633FED3FF5C692C5C177877295DBE000F723FCD21D71A2417C5836AFC609578A905BCF -DBC6528DF4E1579EA7046F24CC65FFDF3121A2A854B96992984A920AB5C62A43A5E991DE086B -AFEFA05591C4D254F0FD5C490CFC210C152F4C1A4B2F10D969A400A84DB80190E48759AF3384 -A6433DC6F691097260B35189D43B9508B63E2F449EC2085919F537F06F4D8D111CC029F4F2B4 -D86EDECD968616E17A83F0173EB7F5430B568CFC049753E83C107E033515DE2EF3148243CC2E -E62B0ACA2F33AA08FBF8DCB0046101C5C98DA10F1BBD7F62C5267EEA5925C310B853820204DE -CFD21B58ECFB4588B7AAD02F88BD6829CA656F066B441A8BFA11DB640D6C1420B47539B316EF -E33A4664AECA02B0B1B1DC9D7AD41839AA75AB617E4AC55E9019D693FA1FB7A0AB2991879361 -61E67C10D8E43F5FFAFDF4DD49B9FF04CE569F3F435F51E77727598F7183A9FF1551F6768260 -67FBBC46A81185D83216C5293599FA3EDD7C0819E2B64CD190A4AF30201CAB4D800E338FF59E -1F24E2DA77071C4F9B2076AF2774870CA2AD4A37EB307F1314E61AE6D1FA14CBD11139D17538 -31A95E13712B783AD5609128517AA50F44F26B5AC0E2BFE8764748A137352DF258156F868828 -17BC7E1966B52748522B034054B18F36DD6FF7CC928E3CF24EDE433E9147FC74ACF47AE26638 -C67E5D99F02EE7F6525C93A0122BB79923CF759186AD70B13A0393B148B6E8B0378AC56F4BA3 -FE36D0042D0262003E801EC560DD97F8BC51BEE9495E96ADAAEBD5EA6EB5E3830E7DA1287F75 -69250681A31BCD83D3034DA694A5227C51523CBCB87CC041292C67A7B76053095E7015E7FE2F -904EDD0C5E14658829016A7AAEA7445DB103E1755E2461766981BFA83D99DFA903A44B62B7D9 -26B8482B4196BD33CB324E6CFE428CAB2AB88E5813270EFFD9A3F4AC8027505DD4AD6A1F139B -00827EF6BA9166E61A315BD557D08F0562D1203E6247682C1E3B8089AA33952CD77531D3E9F9 -675799D7CD9001824708DCA8CC5F663A5B116250EF90C3C48B3D3C72DD5E82C064BACAD6B402 -984D039088B3E3B3DDB67A32257C85593E1855A427E9D2B369934A93241EB969602B952ECD56 -1B1D3AFA7A9EE519EBA2C871A30FD61E80F89DE7A7B167937F100EB8D7E94DF6A4A26A9BD34A -9D8C9B9067372631305DCD987C50E6578A2D7E08F642B85E55EA8FCE8009D30DFED26DD7E165 -CDF231FE8D5A7ED5000A2B3D7840EAE14F661D1B227EF9EC8E2FEF7FD0044772AC1C166B8B2A -B2042CE62FDFB5A3FCE1622D6842A2813C30C049C80389B0CEBCACE48F839C094FC1D2B4F3BC -D7B7DFFDFEA513A7E263D3E08FAF2BB910E59551235F57988F69D27E48B40A48A13FC76986F6 -8FE1C699573A17B45E27C50234144CE0363B9A1D56DABD0537E3D078B1A0D1BC4B3B7D9A49E6 -591B20301A2FE43FA5892373FBEAA1E1026A5A8AE2C5EA0EC3C100C68BD65FB9ED4071A4B96E -9705BA746086470D03531AA25708C3E9CAD94C494B2D46961D7CD4882F55258CABFFDBEC54BD -472B9613F8839669DBC5C6000CE3AEC03ED79015E7EA16B359B8F34BA9F530C71729A591ECBE -64AF7E51ED2136A8C96317EF90AA3AFA44A6E85F6532C2458279049A5A76C75FE5F6DCF9A3C3 -CED684D0599BFA427E28C3C7FDBB1D77E132F4E7256E483288FB6FA48F6BCB42D400B4A0E949 -E8DBBFAB9E5576A60A786CC0075CBB06C0EFD476845A738CC419B854B3DC32154EF9DE4E7532 -06A08432B092486DB29FFA56DC7DB392EECF40731CD06F1F25312B41B12548679B1CE784652F -A9E29D2650275499E710F01BA2E80C80FF4D28B8CD79C818635CA66498445E31B761F921EC19 -CEDC67169F0322FF01BC72A19A6204A2993F37B889DB2D551CAE97E494D43E5FDFB0E07F8C22 -00892C029201A2B1B20403BDAAD1149CC321AB12CE6D47057BA104346118BEE5DDCC97701CB9 -15099BF2DE3E81527ABFE42EAE7EAB046DE61591EDD3B7D75DA82ADE030C6F7F4B7CE7389C56 -3DE255891D5372D2D63FE86403E2BFA06165780DC43CD71A15398BF5ED121E03F466A495805F -5E35A62FC97C205B334FBDF69BFCB1186E18EE61F3CCDD50BB17D64E0E36F9E63DD6693BF7AD -93092744F4713E1D694D57DBED512D024828F35A7A5497B418F30AB9856814A41776FCF0F23B -E4C53ADAA66C20DF278847E84A5644FCE7CD71CCD39511363515428245B68956DC0F8F35F77F -8337D62F040D616458DEC5FF37E19B9B4220F39441D8C391C0AF9325BC6B59A3B59E6C769987 -E0ECED103F68141CF245A113ADCB7FB83946C6EDA2A2DED66BF5E9E2384DC95114B7399C5D60 -9F2BFEA889BD9BE7BBD39A7AC8BD5CA2C4F2D04A39467270028383FFC0A5A5E2406C423AC158 -BEA24614E13537E8265B44CA42984D0AC7E9362EEEFFC7E5316775C95EFF20638C57A755BACE -B00435EA4155D44213DEB1C418D08330E8CAE979D85475237F88E0316D8824606EEE497827B5 -869E13649AE451F6A10988217990F8FD2FF9DC429C6F2140D5D6B33D8DC0EC957BC7648B5E8F -E5E71D8433B0EAA9CBCCCEE6E205435409589E1BA51FAE21C2405794F2C3B5DFF7A58E2F0AB9 -7D142EF3D3E8F444905C9B2E2174C7D410EFF4710B64A40FC477348243E2B77EB63D540F39F8 -13CECF4B2171BDC971CC212BB533CF6745011EE52AFE6AFBA008DEB709E7493813055505F59A -B9262F0D55F05714B6AA29A3E9F86A6F2A708CF595E9BB5DB19146113F6CB9593CA11764E1BE -EFE65D366C1E97B9B678B6918D74C738433720ECF3768E2FC7B83DCAC304AC3368C73183DECE -8A210EAB67996F25E89AC74861EC22193E112F2C1F5A6F90A4819B27327CCBD53B8F6CD2FCA2 -AC59805490D455DF2A2B453799A7762AD30A6891EB11B7D63A8D976D86BC79D3A50DE80BF64D -98AAFE346EC12BA65A26CADDDD34B66BE4A98C6EF3E3805B29199BFCD1C4FF3CE485E1D39594 -D88F25AF5D6ADB7A2BFEB4DB38E6BF5221CEDF250CC4C37D581DE855B278B0ADAA141A2ADCF1 -B772C3C2E9607519DF48BF6251046CFFE938EA8A34B9AEFD289EA225AA2ED547ACA11D4A021F -206304CA64D37C8B87C4312DFF1864B264A350DB7BE87E46F63C75B18004113C7ECF6821DE7A -9B782932029F8A7D187441D206425E2DEA88032FBB8AF7E8E42888422B96F46731F963D4D222 -E30F3B912732A25B39D2EDC787DE461696A90DC6AEEADF358AD96353091D0B9A141588D51AAD -C03DA76B9017AF884B837CC3011E3783936A702FF2D20FD32FA1999CB88E62A79364755361A6 -32C7DA9D56DFAAC6274B0760DD50A9F99F80CA16AC32AF92F4ACD72FC57BF0B1332900E13D84 -37269A292DB4D70D1F1C2872A753BFAAE6E30440418331F1E54CF5943E28F927EE9A45DC82E8 -F4F9907AB8BD3DA2441BF45AEF0FBE4F3D2943F7C6765F9B4CA046FB1E278BA638D81110E8EA -E703B80DB99122C5D340C13856706D2BBD9C6ADDFC1359EC69B1C5B839BCDC752C262401E470 -64468476EE1C886F6A5B00E8571BA541C2B39123E0C9F2F3A991BE356FB2BD9C22D14C37AA9E -ACFFB1D2E6A75FEAE7119DCDAE2B8742A0E691C43DA7FE12A33D191C92D7C043412346FEBFAB -3AB4065ABE9D5CC9F9653B3B58A5D1ADAD03055AF1F83837543D5D6F88AEC74B89FC8052E440 -644E5A6E19908010BBD73B9E8290C23DAEB78B8EF0B3A09DCD45A23D56EF4849C37FB55F2BCC -793D55AA2337FC44935FE7254242478CF88DF7026F15A020F50D35D57DA580841703A7BCDE85 -E40FA6A528395B8D0BBFEDFC4F065195D7803E16F3F1E3C4AF0D12CB780EFED2266CAFD2B82A -4D6629183FF040C1BBA3D9A3EBB9A413F2DB3C0A81F04751CECB15ABD7558B0CBF6C7E2C10B9 -037074F9C437DB346D70B1ABB8EC3B9962A4C2DA5B055C25C7075F9168A7D96800751DEE38B8 -8937D4CB95489AD0649638A8A383F9FEDD1A3BC87CB354BF10DD1617CFA89F85445411754D23 -007472604DC6569D3B0E826CE947CBF703D4704F293085BF201485B667835C2BF10467D27731 -E4F6ABA393B43C59BAE1EA2F13E77EEF7BC38AB1B0A4D99A464E171E7B9CDE25A4E4B9C168DE -896235B21551FDCA7D449335C50B732AAB2589536F5F2EF3877B590920C505785C3261631AC9 -90214FCF72CEEEFAF01DE0CB4D2BFB7D55739A1CD3843EB3DAEBCF1F36867B4EF045B050A09E -0AAE65A76934F337781D0C6C40F9891F5D6FA291A539315B8727084C4A40E35B8E4084AC0C5D -D73E792B5A8DC65F2F34320B7B4D44EA706ABF84065453CD4EE8FD62CFBB006FAF617545A1D1 -01949B349D9B3F5F538AA30719E328FD89DD3E49D50E50656C0BC9739695D73E720C511DEF91 -4C1C961043D3A6C8239951229A52C4E73627E2D2BFDC47EF19618B67B1A13F0D769416FB6C72 -A43B9071F55B2F4BC68990E4549EC2D164E9C64ABFC3EE6F5A310F794362BDEA711A8AC5C7AE -B4683C0539844C7EAE0F2C344135AE73A7560F5D9C5315095588EEA842B538C345872CC7CE3A -26A69C86791D289D1F60E8D956189F2F573FA34225D5ADD3CA30FF124C16AFC20CA1F5B1EB68 -AF855B69F2C1AF3278384C3D0033BF6A3FE89A4973876F950F1528523CD8667428DD5F0DB4A9 -3179B242467ACB1FE9D348A68E0198FB9FFC147B94C248036A475E8E566C0E73341CB58EC699 -067AFC912C5BC5BCC9B9D991B01240D247B63EB40108C418B01DED5A52A52BD85BCA53368457 -39056E498162131E0C1385C02D8D8EBB3EC680AC5DDC84139E717C0C30D99B1581F320462BEB -B6E50B05FA984151C9A36BF5BD624F47304C213D79C8373F116A0A86AA4ABD5F70C8C19AA681 -D292224E0AD7DA010BD53F0479D2B9F66051B870612EA88DF1807911F09BFB303A143252EB9C -98BF3EE592F4342C634649B541D5C46A49E77D9F5AC1A2654503EE965C98A86FF4BBA1C4CF95 -91BB30913B4A98397AF5C4035CC96EFFBF8B3B98122E37A344D6F92A5E6803BB96F60F74EBFD -C963AFE390B987F34E70E4CB897AE1DEF890B729BDE73CC645DFC05F8C445FAECC5DB0F39BE3 -8D2D596C51D75E2FAEB86AD5BADD95607E040D7A93F01C85D340366E5009BDB3DF7350803875 -DE48093A2A1472005C3B8E21242BBF7D9A0E91BC73BC67328774E25E396F90065588F3DC5AEB -1BC7925907B6091D94FB31FBE5500CA3F754AC84F7677D277CD8D0966AA2ABFC7101F44DD377 -EDE4437EDC01F0B7A955FFBE9EBF4BDA396496454B3CB2954B58E3C7121DAD81BE7808B906A5 -8DF1495D04D60AD1BC1F88A50B54A76C67A060BDDA6A87FBBF825241B29EF42D51705C090BE5 -4A1F06B901A9572C10AECACF52A1EB8FC371FD4121A73AC31ECA966B1F223A5E6AB7338AE7C1 -408FE4D720F5B4684B3F67463ED87269591C1F9E721858B0C80245D2F3CAB98DE898F5CA19D9 -B7D4E04276C648245398D991A06CC92835C9D2FA446CA5CE259BC8C0225AACFE1E44D72ED5A8 -36521D0EADBFA66C73B6E1CF261109EB524ACB621D8727667FF89D5ABFEAF8F490FC613B00AE -75B41A2F9A9900B626D56A6E4BE7B020CE95D9952DF71A083381A30B0DC19E650548B03EBE47 -12D2A470437C06B83385AC94F95B1F3428B4C235E3E1BC70FA6C1E5453CB6B5A676CCC277233 -4B55E23CEA5BD025642B9B2567D32857B3949C92B7E148A8018434B904F20B6420A058E20CCB -11736CD12EE53BFDB994F3974774CD7588FCD27CB2C40A634C4A2ABAD162283D79433139FEEE -67103B7EA1695A16DF4B7EDDC2A2D93FC4B44BC2D11CC7AC26899E225972B82CF615AD2B3ACD -87CBE5A7E2BD9F6DA103C36173AAA93D9A6BBA7162E4D6FD66EE0D23DF2E9587D9FF6BC895BF -7E9EDC1591F7D7EF20AE37F6524DE18C335BF7A5C1DF169004CFDEDEFAE4A3AF008BB248473A -02F36E03E698BC3758A9BEC28A69E702DAF659FEDB1269277E9FD612C776D261FE0C6BB875BB -F87B9D68F8FB93EB259A99712572543A4AA4A7293ED84F45437C45434CCF0A364AE01C836B2C -829906F9005B7CF448F1F7416C608D82D93290F7B3510282D9C4589BC7ED38FE05CA41F3D58C -77BE29263FC7181B0116D8054F2D06CD70C346E8254226C7C58261DD3AF27EAFA9F2E1AD718E -8AFE84E7F0AB4FC2DC9CD97E9D518E350D01B5AD7474A8873863D50EADE19D5CF0E8F94C0078 -15078D6AA264E978A3C007B24F7EB1AAB3A7C5CDB66E89F1D771F0241A43F3076E9B765F316D -0F8887C9CB31CBCE809DAB6836AB4F2CC6F17E921115BAA237D8276AD6BF81A5B2D964DEDCDA -E808781F6884D25E2FFE8DB031158687A42665417495BA99A20C3F1F5ED1FBF83147089E7948 -7C8E9315D26A6BECC4530454671D7E7C312F40F31DBD657D1FEB826785589E7094EF6917A55E -3C408854A08797E147768E8EC1AAC508DA8BEE83DE0D4D68708DEA729865FC7F6AD761C6DB95 -2B206A6B1398343330EA6A995408AFE409910B83393071919172B6741E5E5B44AED191E51981 -87C14CA42185C82EAC7470C9EB3AB35BEC4458FB43DB359FFA17525C2C8CDCDAA352A40BC4D1 -E4F2C875C46A5E101A1274FAE5B2AA9A77AB652276F9D715280414AD61A7BE37966856649797 -B553A145CCE916CA33484D65F203B6BF6B6927A50502C713F11D9A07A1C0CB4F8C2ACE7E602C -70DFD029F88D0E8743266195D666854449CA543F2CA03576C7D26DAA2603DA2E8FE9B6CA4C4F -97FAF63340C0096F285DE6B0855680E0992C06BBD2AD21362019F903434004DA42D0C2A986CF -2EEE20EE2D33BA593F51B6BC38AD832975B79AF42821672673EF204E1E367E3072740285D707 -21ADABB48FAEB2D268D334269F2ACC5B711327B2A60D627C78DBA399E640213021D30880A54D -D4654929A5B7386E5619BCC1BE20E8554C22796EF70409ACF0097AADD2D8387F8C7A40A18428 -A84DB2615AC981CDD7E3D0EEED39A4093EF8CF3E78F675FC6829F06ECACF6A3CC522E936A2D8 -BD437BDE99B5C0A764BADBB7CE107FEB8439EE25D1093338AAE91C497C293F61652271062774 -585C8C70B1277235911DA49372B3638213E1D7D892681AE7F9D65B3C5BDDA0F37319DED8E26E -68599CDE78BC93FEBB94228668F852885CF43AE675D176723A951A5635AAFFB9EF418BAC5767 -71372CCCF5DA79A96908C48CDC1D56222A265CBF56046D818FBA902951AFEBE70914EFACB2AD -9B3F3D6919FA65C3CB7AA5D029F2F3884D8FDE89A2A489E44B1DF193C3B88EA3B8D59246C1FD -F52A89F125664041DBC194867EA99EA0A22A849E5FD958560309983113D00DD94132FFB8065D -1794F17FFA7578D26C923253F1F4C528384F42CEE36915F630D61CCB8DCDBBD75B331E9742FD -15B5D8B0905238591094B6E6B449BB68CF7191FC2B11211D5FB3E3138786F2F444AB7D874FB4 -6BBB1B652A55ED8271FE7B85B3C7AB089F0AB28DF0C56D18139E06BDCF7A4BBAAC2CD36B4AD3 -C4667C42060561704FEA1893F90BE88853A2A4692DF711EACC06D6D49348BBB8A6F3949C08AC -91ECB7BA5D08DC4B2845C097F2BE3AB4476431FFE2B9EEF1F722C76C907D0379D7AFAAD936F8 -D9DBB576E447A49159605479E90E957FA1333320AEBB9C3FA77763BA7C240AFBB80E204FF58E -ABD5CAAF8FC7A4CFE322EBEEE181F862BC355D5DB347574FA2503D6F1F4BFA7E014BC93195F0 -2FC6554CCCD36919847F4EDE3D4AA1D5C17DD942D5B4EDDEE61C7079651775538AABDB77510B -C0AB0E4A6A0DFE6EF6FB29B79277EBEFC6206D37269FCB626EFBBBEE8AC7A41F6ABF0F1A2175 -BBA7263BAEC1597F8E32D03595713C007188F02DFAE1111C8E0CE934C11CEE557F51BB2C38F4 -85E24E02CD36CE2B64F1DABE354A12BFFFBC6FA16BC663DA328CC3AC493DE8C20C8A00F85CF6 -937B30CC58507F61F8F382B46281023D212BF7947C6D6EE720F138E85B8E1227FBD0382EBBAC -54E9E7BA73CA8762556B4E3FD2288D0948DAD7D7167919FB03FE7F5EDA46A37F1152579F0850 -46B7AACB3A7509813F74CC60E439434CF08775EC2B2AA953CFFE9F8BB839B03C887BD098E7E5 -D07400061A4A730896217CC7041213E6CB49408BF47677D67ACCEF02BF8C72103FD6D72AC374 -71F40E2836C9561A5697DCED547BBDED5AE759F8091D977FB4559644308F11454BF25A0821A3 -CEC516525AAB0D31CB601F31E4B389414554407B7C29764D1B975688003F39E7142F4664F65E -C265B22AECB31A6B23941EEC24298375F619369C1E0F080A221BEE8B2CD4555322417FD43C62 -204AB89E27363E753259E8665D04E0738640ACA215E96440880F00A57A790FD11BD59CA4CF8A -BFBE93CC153F7FF97FAD835E9BF4C54E1DC2B4B3D796BDFB96793B1353D9A272D338ACC7E03F -1AC5859D0EF7FC964A0055363DE80B53E1479A61D54F0982EFA1D9C63B5F5D63A6971B7F2A08 -F5B577719DEB0365582D521126B7B9C0840CC94526A704CEBAD53733B2A53EAF6C9A7FDC0C28 -633804B27E0C41D362B69DAC1A24B2640ABEF30E492159E3ADCCCFCABCF0892086C0B717AF53 -7F0457D897B66CA606F7362FDC3956962046F4E15CDB2C81696C07CCAFF428A095173BB74803 -19AB048BF08E11C09C002229BDB41F35C35DBB4ACADD1F37240EBA8FCF7FB989468A57F6D1FB -E3C6A292D7703FCAE61C393E7F045D8BD2A069CF9173D4CF2F58EB7E165167005C8B20F41605 -F0BD79BD8A96E1436641EA02DBD108D3464AE0C8BAD2D8D2DAC51CEC11DC7CB2B3BD38A1DC24 -BEA7D2DD15A6CC20102B3C05AB78A515A1658881BC52CCD81009218403019C4CC163AD92DDCE -DE95C15D043B2199F8578F444B61A66778F02ED6B0E0A8BAE7DBB917723378AB60A208421E14 -A4424E00738F4D30BD017382850794CBE2F65CB2ABEA85CB420D457A91B4B4D3D16D9AEC0BF1 -E70E53ED94347F2BBC082075868DC9867511631256ACFA464161298764D4F67457D3466D63B7 -0A4BDFF98671B5AFC40B07760CF28338EBF7461683D65216DC178BBC5FCBAABF775DF2D7158F -AEAA8E48D14AAFE204D6D338281B6081139C873019CA90F4CA778488239E5A8428AF655DFBA5 -4E1454E637A0C8D493FE0FA7326B3BAA4E3714CE3EB96F2C8AD594C94513BD5903E53445DE85 -43129763B37E57A866CD8CB0FBAD7ECA45F36C0ECB690120BD4B3985D88E434A62C239B07951 -8E89D38E6270582B5651CFD3525021B0BA311F98C5647D14302909B0B0E187A172033C8DCD38 -C7AC1A5B991BF82D28B9132E55CC3FCC14F5ED91D3C53922D510DCADECC349C1856F971C0D54 -BD6F724DC522902D02053812705876DBB8E24EDAD47B475ECF814A7F73CB243F2E2FAC4F80E7 -7BFE57C7DBB5D6D02AB9B1C9402F643E4258A3EC6A05FFF4B15A6C0E81FF0A33A5FC066C1F9C -0A2EBECC9F51362249A9B19FA77D2564E2685A80827BEBD657796057073939331B8A449AE07A -37B87770437D4F6AE8BC7683A7F61CE05EBCA6DFEA71811DB4CF7CA2B41033F1FF763062DAAA -7FA11B4293CD97A5324168EDA727CF0DFCC7706EB95D97452B2E4FF583D617E57C9AB48BF985 -0A009C9F049EAEA66EBBFF235577AFD48E22BECB666426C4080E30ED66C0F36402C4C1872159 -8FFD20FD189740A521B636CC6422A13BB3C8160F76E259E0858CD3DDA955E377F1E69161C67B -63747F7B4E7A813CC016AE922153526344D556E9271E8C72D3CCF3886B5E61C27EAEDC2D80C4 -DD605D5594754A80A3F5900CF39FC69864B264E76271E9F870A5C874FD9130DD65D92D1C52BA -003C8437148E08824A1F97668539C131D3DCDC23286C3668DCF18BE238D8A5B7C23636622EED -241389C62082767FE6AD453E8E303AC03F0E3037F244BCF144C11A1DC31C5910B47A5DECE0CA -5852732220F89EBDE6190483C4F497ABA510C3A75EBB3BDFAF87A77A5181A92CE739BD19B58D -1547C5E558297A27BAE2306C33258B9A2880859B00232D0B9F24D70604402A8CFD65D70529B6 -35232A70F1CFACD31AB8470C9745395B77F67C5A0B31DD06E6E27B647A5B47D2724ABD50F6D0 -B03C26E5EF291F35173422593617462A345B9FEF5855491840060BE9AD169E11C29C714D02EF -18CF9E4DFDFE749826284B5DB8E2FAF370BCC0E158128613C7C65060C6F9FA1253D56748B343 -EB7F8074F582CD588A0B3B4D7BFC1D09AF6F50AE74A970E58638E4F3BD406308DD7F21B86F60 -7FBFCD2333D9713A46A4C730A323F3CF74818A0113326A843BED368E7A53DBBBB9E2D73F5703 -0C07A84B5E6A6AAD5B7908A485B4F5EEC7136634E339B5A9CD2AF4AFDCF9DCC62407AB3FDF57 -46E02E6FB13AFFE7837BB8A50E945E95F13B6C65436038D46C40F48B785CD0181B6AC147CDA9 -33FAFCD98F79B474BA0F69151235CE85D9B2F8689B05C182CEAB603A73572D79A8CBE17FF7F0 -F2C49974669198266B3775BE2F7F8E9279FE46177928BC1E317D7B194A967D1513974B782E9C -659848B00B87E135588964BF23BB8C288D7423341BF45F0585D90878535395BFFB65D3B59576 -C3362E1E08756153B7975612C3709822DF540A5868404ACA77548287434EDE5D5088A19E671C -72626F4DF853A89DFA00762A7ABF283B7292D2CE6345EEF8F545C5E5F8D6460D79B17229B8C9 -8B2F5457621A13EB17206B5F3F4D24E6F9331B05301400E889701FCADD153D005487BDF68BCA -DBED3F35AE662B3DCBA47C4A93348E2FE71EEA36D6A73C50F85DD16C66DE7F0A2BA7DD7D3094 -6EBE7DD322F7E2ED4DB5C07F87A6A66E76AFB00CC101E499B496A6CE1F1ECA25E8DE6AFEBD20 -06FC4E8C75C990B37AFABF150A463A9EAF84E732BA9A47D03589DA5D8521B98B60DA32CF8B90 -1A194B0500FA80C46C3C6575811F4ABCB7714A7210F4BC272AFF0F32036AE0E8A438F3A162EA -DB62E1B5BB0F65EAA45745728A4FB5C31A3AC1A26F5938C9B9BF413B246E2921A112B30933E6 -C739C4939C0B4AAE1D754F97B9B90CAA608C40DE0DB832E5F29218B2D628E86983A39A98F77C -4C76C4174BC087480CC5EF6D1DDC1C7B4C5F28AB9C2DB6F8BA02D41CF8479776848F078C6FDC -4B3978A25F18F1957F3C87A2E955FF01DC3D1A698A8D7DFD135FE5317CED921DC505FCF25FDE -DFE0C56814E3B9937C8260D9A06D9CEE4457CF160ED23E61F6EF68E33D3B5EC586CF7FA74D5B -FAD5DB260DA398761454FEA0831ACB04E390F9B2324E9345A7B97875E3E448C294BBD26E8FA0 -1F63EA8875831A2D322CFF8F84844D9108A42F6E6D096674962963C9B2584CE149DE829C7BBD -4401E2DFAC7F01FC00778130C0A332FDB650F74667EE6CE8B3234137921AB0754E1967D0CEE5 -451FADBE57572D59660062D5063EFF8CEFC36BA701CD0652DC44A6B0E611FC1260689B74F4C1 -246E79FB8A4FF2D9394851CB2298076D9112F645A1D6C54D867C24B182591D5510027EF2E9B6 -4BE3ED807F1CE407F2B60FA303E802B4B03FCFCF42932B1D01C783BBC81F029402612A5B0925 -641780DA1288B1EE4F0409DD5AE04B33233B025824119830FE2DB158BC43CE551C51A726697C -F4543919915EF994EB7D590B1458FD8BC373CA6BCF3EB8C4C9241EADFBCF03DE29D60A61F1D0 -29551ED58F89310392F89A53C5625552C9A12DBE002820E757215E0EE7A58EB80950EF804829 -0C5919F94D8D1418BF60395AD86F6314FB65BC24807F4EEEE672CD266F5C46BB2A1B8E3794E0 -0E26445283C6E0F0136479DBC86AE50946C2E639581CD6AB94E64202D01990067D5AC9503945 -528FC1527156EB0C778B98F4B0367439DAC4DA642F945451C53DB5ED7C5FF7B996E692536908 -437620AF784248989ED59398C16988D529AEE8ED512EE13CCEBA69E9D2A9ECAEF5041430444B -1D8229164E1B0DEE0B4F5F67ABE78C631A97897522D3E2ABED2761A5456C135C49495D6DAB03 -5BE21E0BCB875FDB82EA1A13A17E82F0EE7BDFD86D7BB408A318D8422279BE6102E8B6F26245 -2932292977FA8336D0D0E41AE62C558299AEB39E9E5233137C635508E77B8A03DC8D7DC953CE -0428AF9EDCC731EC157C18291547C112F92CD54D46F7CC3D27AA43145F31602C137B4DEEED87 -4CB477981E32E99DBFC1CC8C5DE16114FED27AE5DD634D1599B3F17714E5B9E501F1AF02CCFE -2C1ABE64AAE9AC63005118AF87EA9EEBB55EF77A48972FED7A8460F20AAD73EA6BED656562EF -A57084F00DA50CCE7E3882E49DE831069D1DECF29BB2857EB2827B86EE42CE5DAF13258C035F -33ADF80AF9ABA01668FA6266BA66BABD51BB00B20941F44AB23FF5C667FC1CA8245CA458604A -59C231ADD08F5C2F688E59796F54094F5C6F34CB7A9BF1FC116D7C4A8B592458CCEB67F2A82E -25A67A25127934369F4242F94CE979194FB15BB7E93D7B8B039100C755F57EA2DF78053A7789 -D77CABED8A3058191AA2432684293276B94F046E5A4B94681659493AD01B4F99BDBAAB91CC68 -6346BEFB4DB24A39B74B477536292C804FEA4249FDA371D54FCA0C1AD3173712FF24D9C9C76A -0938D31594592A71668428D6E60CFDBDB01878207FD54E11FBBDE5B164202084603747B318DA -3C8ED38424AFF23AA111E5617311CB5D28121C04D87766145DD26E3E63D0556664D246B340AA -C1728B5C6B98376D028A791D7A0303FEF89BC4F61BE8B5CC627B31A0951818F5E5B7970BE632 -328A13319C1B7E22EAA922CA173D5E39A51F575A776F8DB63BF0FE8B532FAFCABF04F090D5B1 -3E7499A1D25073901BC146A6A467AE2C279626E068968C26B4C6B07951790A6B6584031F19E6 -9CC5B596C5D25F323DEE72C335150CDEFF50974160FB89D5A9EEAC9E92E14B2FCC4F8D43917F -A2F6A7BFEF312AC2464E2D82899DE6263D5B93EB2B2372941226FACE629432680C957C2772EF -BEF72AC3B41AE5A0CB0F41E8B92593EFD2EC18477EB5C5E5C75716C4F26308ED11D7EF2F23D2 -03E577E6ABA8965D6F9AD94C1CB09E474A083794097E85CDD24427AF15D2D143EE0664989419 -D9E1AF1870C71329F39DB71A3A5E554447A2D6C5F740192E6E5B93863F4C580F80546B2D58CD -3E77BBA664601FF76821631B383DFEE8E7AAF524C4D41AC3D92D6457B2DC27F7EB6D13CEA339 -C11F7DD542273E01A1BB49BF2F73371D7C8F36FF9F99421D103BD3A81972ADD88309260778BD -00889907EEFB5553C45421D89C95975036F0F97F874A19F92E3AF0AE917E293477276EC0C56E -3B0DE7D7887CD19A54E1F601E489069AD4FC9E472920A98E895784B9D74424BD28B997EFF5F3 -268C98B14DB8CC5CE6578A9AF72D31CB1286B8A5D003A6045EB8FF9F662419696A653517FB65 -AB31C093A62EB7BC5FCEA5749107F8F4E650A5402B98D299FE92663902B60845FF6E4BA2DD78 -5DC57CD1252042EB55521293BC66C6721C91F345609EDB3CCE9A09A2F93A9EE06C4862884139 -58F7BD0ED4D67AE0B50B38B8962DCBA0EC4F725ECC9FDFE6ABF43A94B9634A685BFD7AE2BDDD -23716AAA5F345182317E149A72019C54F27BA9377AB6FB0C1F407ECEF65E7C539C90C549971F -C2C278FC27653E7503D43B23130B6C946540E19FE3A4D36DF0779A03F0FD03F006B8531F0D63 -342CF441B5C26A65F88D41F76FB2FB17D497B1028A65BAF363B97BE8CC71AA4BB84DAD9E141D -B1D15C02BF398AD495B9FCD8D3C0A15A899CC2286D4D7B4ECCFC856D1B069A6F4B3F6A387129 -C31B4E90BF347F6EB558150F53AE99DC5CDBEDF25AC19BF2C47480528C841E72B1645B1C8E01 -FF33AC4B884D5CF361380C113AD064D5008AED3BD51448BE6774B73BBD5493D12F597EE5F319 -BFBBD487406CEF951D68FAFF91D8FD589FB6924B5D4050DF2B97D2BB80B48840330D76CAF3FB -5E8576DEF5FC7DC024DA95302B9787AAFBF5623A00A26AAEB50D7DC72E30ED1BB0CD5DBAAB41 -FC176EB0DFAEE47AE29F0954F77682015C87BA4627B384B27EC87A0DFAB0022E4F31DC6C35E2 -2DF7027A0FFF472FFADFDF72498B4197B4750D386521B6C1A08AD5760225CF655E120082872F -2CCD410465A0311D43780445999AA6BB02868C04424545C49DF91C6599C57A30881E1B14328C -9E8D2112BB4AEB8C9CFE1BDC0993B321254C3D9170884FF07998A3C1E3E4E05BD89A43F97B92 -F89018AD12A587D8BA43A759D27F2D282CFD42E5C8988BADCBD5C126AA7FE525CDF197E6E1BF -D0346B51B05497D11034E5812F570725141AE059487F50B1313D5B44C37EA7342EDD077263D3 -8EDB4CB70359DA8B8727281EBBF45CCAD2F537EF8891FF9BEC0FD8085ED9CAC81087C32E7E18 -5EA125B210AC7D6506A1970C7EA2517A0DBDF3FEDE08F7B570BCF92607B8A88A463983D62111 -E219AAB559C61E5DE31C89B6DB277C43CC203F7B7FCCD44D746704236385A2A0548AAD2CDE8B -8AEF7B364809128DA80103986472B3D0EE47E276562CC25F265A8DEB1440EBDF1F8F180A047A -67318889493E359961633A1F62D4E6F5EF75EE84FAF4AED296BF9BA402771C9D2A06D55667F5 -3B3725536764B1F4FC2609093DF40752A6823AF0540DA824F844B8C5CAEEC388DAED5BE40E39 -C17624B2F9A282B64CF6C194C8328671561F62DFD6B79E365BFBF788C71FB3A03C7C505C2CB0 -2AB3051037B017262955BA4D71ADF43B10CF041E05BA548D49D936960995096790ADDCEA6B41 -7980BE9B24D3E5B5BD7830EC6FD05B982B87BD2EB55036F11AE14E68642B348A254BAB36A7D2 -C57846E05C2DCF8A3E3600EFA67B52D19A335D69F8AB3B3A2FAEA7281AD9936CD965F8106677 -D50A0DE776152979E2A213CF86AE126B7017F9CB416EBE8B27FE85AD84E1AD846D26CD671711 -10BF7C2CC7E2768053E302C539FD32321033DA7073AE99178702FD69AA4C67FCE95658524A3D -103108EDFD8ADCD0BD529F12F0137B53AF32A78035432B5FF67008063EF6ED95D67FB3BB9CE1 -43CD5AF7741B13EC37721ED9D78966860F17FBA74255F97993D4C5D34017A12D8C3FD20154AD -9A7990EE84E718273BE76E3D993EC2B4294B029EAF54FA533F096668B1F248B52A47E5CFA885 -EE9A418DBA91DC5D6477261F11EBF7907B3C6559B9A5CB1DA2B2F4665B8B60BA8366E987AE55 -A9CBCD320328F3C02A24C0523B45A950D00262135AE77833511DFAE499790374C6E4DD8E4513 -FF8C71FB45AD964D999C6CD8AAEDCCDC1F7EFB42D38E7E6A5551C9CB2FF394FB941989EFE6B6 -9028560E3F511BE1753844E2D55D23F9749C97388575C139FFB493519A2F5EBBE58E8F3E3120 -022CE5CBD5972FD124B445704A546A9A1AEA1EBE58C90637D1FEAC84E84BDCCF77C05B3530D6 -5D186E7CF7A5039DBF16B77D250A57E9BF78C540CFBFD7551C2A5554F35D6BBDF7018DF26736 -657606B810B031F375C82DA2CAF45522492EF955ECE63A860275D30593FCC56ACFA44A30CBAE -4C7E354533A5709E838E6B891A7C10FC8CB62B82A8E8CD1208D7DA9F1E4411DB0DEF65A5CF46 -8D438927C4A7902D111B9E76BCDFFF7420EFEB85589E9817FFB2CE71BACE03016CCD51A71C1F -CFC8347E3A98443A53FF01581DEAFC030CEE9CD71EA2C0557450D366F5498E73F96B1E72EE3B -5E7E9C7049102B1A3018D40AE1ABF09627EBB645869A0E9938B119226885535A7A322DA73BE2 -ACD720E559E37396EA98B7B23C8D56AD952589335DC4F71F579C8553DD7F88B7CB82702002CB -71425E6B417522855E5888874261EBB1E7A06583D7B03DB5970B598597F677428E65F58CD63A -F1E5020F053A0C30A611523C9DDB3DC5F5BC775B28A7B4530E302B7819C1E8F5ADB79F9EE6E7 -9F77AE1ED4D01274AF7A65933037FF996F5DD62F1F5F2AD3C2076B490BEBC950B50B24E1B699 -B65DB1A41E82C07B25DF0B8619A44F2A6B9814711CB592C82E9493E6B9EDDD781E0DB6B95DC7 -6A21EF72876EAE30C30B2F86744AD954164AAEA0BE4031230B8F3D1380AC7C2ACD27F0C4EB2E -44A9350416325D0A1336D8C6D873122DFE583961227F7607BA831A3CB12D9BACAF285D9F9BD8 -01D3EB4C41EF3485559F1AFF43E4B8B672E519CF05D78943C68B7D83B525A1E053F64A835697 -A0D4541A8F186123E481243C673C10FD65369D53372B4B62BBBB75971616158BEB0AA447FCDB -D6DE32F1544D65689AE5F00B1300E629E8A59ED1723D65DE3EB9B65A30E1C9A1A2C0012B509A -F87E973C750F8E48083F81855EAC2BEB00C8EEEA5F606CE30840C1549599CC5316160DC0AC0A -58BD2C458926762E4E7088FED38F8D67CF8B020907DD5EBF9929C2318F2BB5E33105270FB0C9 -8312C11D5B3116D47E13A88998AD3B3AA83A64E4ED36ECB988DC9B4CE47364C931C642D5E156 -1E6690666E89F0130E37CE2939B396C9FF0A16C4FC85987289D536229CD0CAF538D0A799167B -5069A5E31F3AD001029EF8207C90E7FB11B0158CE5114768D4265E3981DFF7EDCD779CCCBB3C -D98E579A7B67E50FBD3D252AF68A15C7E01DB40708FF42296C18531EAA7D27C21014B9833FD6 -8356A915F53293AC0717C4D16E7EF7FBE61C5CC225C0FE2A7122163CDAE813B6A792CB5D84F5 -6D1138D948D0E51DD83B9A5498D9BA39EE9B7A149D45427014DF34D81A2C49F9A364733F1DB8 -9812A1B4F77C49B8BA5E8DCFD7DE2FF6FAA9019A798E86D7D225F996C47A98A0DDDD6F8E9D8A -FF3149F74EE4D6F93CDD1D9B0CE22FF6716E5ED82EA7F780967EC08A8A58E8BB7C340EF97356 -F45D846B44A3D95929FC30280187AA15CC0F008F224EB90E42C9BF2941E59B97CE2EE1C43902 -90D110E1784FD0629B06EBCA45E63C5228992944904172348F67851D8551669C37AC50FAC7AC -6891AE4BDD744D82D9DCFBA8B99724C76ACF4BA6A9FC50AA6061B23A67B51AE8B12E5B3CA564 -B2AB94A0F75994FE4C6C8FA8037F29526799C1BBD081F145C4F7C39F1DA80627C6872F8582E6 -576F80934FAE50296DAB3D8724306AE02203C27FC34E5B4032C15F03C245C4FB0784DB0F560A -0306043F99173AA4DFBB09F58C2FBE68EEE0219C8735C872910B4B902FE7C2E803B8EBE8630F -5FBF4768867D402DED12FA153905D26562DBC7BEB944B17542F73295F05649916123A5FB1E10 -20015AEFD346BFE29B351CE7C963397AB1BD966DD3CDA57DD4603A8C9E1BD0F79352786A3454 -6D92598B1FFB7B9FF5A938D3C0CCDBE6F1686B31B36C2A0AD1469268D265D5442154E7F61D61 -313C2F1D86911E5ACF4926CE9E6BD5C22320BDE84891BBC844DEAC1979CC4BA0D99B052FCC20 -DE7E34669D01AB55C1F2F9D0B7ECA8E474135749E7478673C1F10D4B6EC8395F9CCBA7B471AC -08BEB8804647E8FC8FF39CE6B7749A8E54EE47EE701194993F101D3D72E02B1F14A71159BD6E -1DB2702306509BAB9F822EBEFA18405BDE198A9D39C56480C6961D4C4C8E803067F27F0AB1EC -C52CD3035F927A8DB85F7C6865D449B4D169FF31C83CCA59317BCDF6569D92811F719C0450F2 -6B07949A8FAE3EE12418E8C3573A89E9E27E49E0D706C102E2DF65C05F7BD7F885610EA72CD8 -CDB7E396C2AAB18213E5605CE6CCE26789F09EC3BFBB8B03F19BF371E76379D44273324E43A7 -DB447E2FEE05BB4CBCAFD6126E7518A43E52867DC05DA9E3D3FFDBA769A16F708003D4BF411A -0B0F7D0B4348A3801A01DC903E6C7B63F00962A48E8D868F2FCBA7EA4420532944AAA35A765F -508CD50EF359CB44732509953777021FA3D6B5948A9A8933D1ED17D12E7DEB1756376944AAEA -D3A54CD9BB9C11F85AE0D11F0E7ED131734B04708D1D156705BACC4CC43F358E2526DD332494 -BCCA735EC9DC52E9D7E532FB0E90FE148D4ADBF56555A56F6ECF608DF3A15EEE2F7BE6453950 -7528186C7F3E4276E06038B29C9B09506F216540B549824BD37532EEC49FCF31B40653A2C7C4 -0B15BDEECEBC7F608C764CE20853C1A9B5EAEF1CB773098F1AE4DDA13B82C0410C64ECBB56C0 -29D8AEE185E904EF9F565B7710B1989FAE633A1C1BB2376C4A91E4AF09A647A602E48EBB50FF -2F59ACE0B7E9698CC553D686BA90555BE6A705C385A484374C52CE2D625066E983B9AD3379B3 -91C4F2B6EBDD204A25CE8053BF7D9A4C97134F1E6871AEF23D449CB740008BD719FD45658A31 -5615BCBC425C5993184EB613FFDE5271B1846B5BC1FC3EA638B4A9B4F4DE1FD8516A6D3FCFD5 -03B711CE24064A0EF8FC8AD95FA3A1C3E1CC1280075617B2C50AC262A21B2C187FB228C9D92D -BD3EADC0101E5084EA2240A9B9398850EB60CB82C34C5F794B5748410B88CB372CB9F151E0E5 -C33D74B5EB9B1A8127CE513011E23B12CDE09C23323A13232257B605937F63BE944BBA3875F0 -97B31A573D9787505C025B7D25DE2AC735A41A1C7EE2F9EADEDD5C1169C3EB6286478E01840A -B9D813A87417F8E08D83D661D4F319624883637140FBC6A497494BF07E0253C626A7B1970CAB -4F3D19AB0BA8B9B3EE7476356F91248AB5E1D31B09FD54C1217924D38990718C144A2C4772F1 -5A612CDDFF2B326BB7E2FAEFEF1FBF4AA79DD0894C16D68E39E3F441CD73BCFFAD335E241BDA -AB651307803FE8C7A465C2ECA793F07EA096F01ECA7F1A3302340A5B501940B23DCE8E42FF80 -BEB899B669FB66570664052BF9EEC645EEBF463363BC51162B5C354D67ABFF76CAF78AA17CD2 -480C447700861B8EB1E18D7D229EF90C187361C0470C92322085C75D31B3C8548DEF7F8EF778 -2769D631AE68ADE59CE56E9CCF1660ABB39D844A9D87AD8BF7D9AD33B0EBA2321F413E1892B7 -2F372354579F8A87B54714753CDF66EEF2A76135EBDB89558AA9AC0190D76A0E01A65D8C1A64 -CDD91A9718636D2FE705789A89BD62D15023115BB1B24F0043A8B19B756249EC8A8374B10AAD -C4289FE6B1D181CCE01D35681521156ED95731308CEAA0E1EFED602B619DC0019F1C9AEFC123 -86F8BA8B05092A7B9BDBF7484B421CA34FA99EBA2C74DA7ACDE074F349FE1B8BBDB782ACF365 -9CC955F7E19AF6BB79432A59718DEB2B5028324B8185D8445F6A0586F8641EF5A1DC69ACECE7 -CEE0752C7B13DD0406E2A1F60BB5E7AC79D7ED31BFAFC8168264508FFEBB3932BD2BB07BD943 -7174DA658CBE738B1B3CFAAFD547E0DA801519BFF51F2A512555A684A6F68B7311CEC5A0E4FA -1D4F69EB45339831C67A3A855C2A1B166EB6CD28ED6C791EB82243C62347D6B60B24B45223D0 -AF7E21A589EC0B2BD209A8365515EE19DE23B78EEE2E3D9A9A55F78EE39F5358C99B500B4CAA -E752AA1EDF6CD9499204487FF45FB713BC16EAAEC0C11C76FEC55A40B3D90504786C4E46581A -719F0ED174DBFECC1FF5EE829C04EEF1D2C31C0DEF73512977EB309BF623C45F61F45A511076 -4E5B685579E2867497E115482E70C6CDD2F26FE06A60A0167228CB89D59C7540D00B47E1FAA0 -79EFC89B0ED01AA6B805A111C74C372944C6350A5B5ACBF54449641FCD352C49C541C7FF61F4 -94DD1B45417299CA7314F1B63CCF2E71C063038A2386AC7B7C9464B9238B93943E55A190AAB5 -4BF7D804DA84E91402017A33506B4CA3F105B9B2D7498B630551B8750FC3F28AFD54AEC36137 -C2137DE0D7176F2C875400BA09E855473D903589A6B712AD7531836D2AFB097C025F0B2AF26A -4F6E67312EFC8019BC96C58FC23BF3F2A608DADC97708C000338A46CC2BD13353915E4F2BD85 -DC60CEB5522C4FEC32AC38CEC53CE194304B555C1A8F26A3F702C2F9EDE587F1BB66816578E4 -00B42535B14A7767641A550F05EB54F66683BAB77A9F19B2AE2686B0E2A28676D625D9B31B2A -AD60539B5E7E291CE644AB32CD997BFD6AF1B115CC846D5D5C511034FB91E842C2B62D1C4F72 -B9481FFC9E57D2323A79B706A7828191DA055D9B269894C5660F5B9E3CEA0634B761563C521B -5ED28F5F2E1394A596001F502ECEAA149C5F81E635F18182DD0665E5FAC6160688878896423B -EB05A51309A98C633742277278121C39E0963B0722C7BA409F7294AACD9290088F901DFF1463 -3BD76DC7B9557303B8E2D73FA36F57EA67245A6BCA63DE2351B3D9EF8471E53BC664612FC86F -68E3C373463AC0AC8D4DB9922FB6CFD986E709FA57B43D66F7AE2D539947CAA6C2BFBE4A24C4 -09D3856FE31E7E79E46C175E9DB772A16EB47528F49405F19052394E5831D213697ADF5077CE -A3EC383DBF3316B4739C49DE60D574BB6883063D85DE0AEFBF26BFBD6428D56B3EFE67E021D8 -2BDCE5DF3818DD9949B3698C1602B30EAAF12BFF3E51AC1408EEEBE0028DF941605898394D86 -7D292479E6523884B05F08DC2DDD6CAB4BA9A07AB435427F64E8EF9B007B0DA1615E2FDFC528 -CAF08FCB2A9A214C5934E6A60732090E4505D244983DA0F58C5841A3767F575D89B11869BF69 -46E15F82D73DC179EC3EB44E546D0645FDBA8D7137D55E5A8B22D5C570A39F1135C4E965B9B1 -F129246469EBD2F5F662A1EDBAD059FD3D9B876153B1ED834E1FEE35804B779168A5B659E7E5 -FAC674F402C2C153D3575150C0C6574C591C44FF7A19667FAB47A8EA844BAA934B08BFC58BE2 -672E34C687C311BC4102CF6346C5DD54D93552571F0B2EB83C168EC4A16DD89094EDD2F6DE02 -97EC3298AE2FA77E6CE76C42305872F7538C68A77F18688924F9F5C02F51BC1BD13B0CD40C64 -F7AE8ED1C35971B03A791FF4A4C57843B9A8A8F8E1D2CB5C51C4F93CE159A060C99EEA0B0680 -EB99C6ECC422E41AE1E9F07E38155907A54BC41102D05BD8DEFB9AACEBFF66E2CE8178383B98 -0BA91C8D4295737AF2BAA229E5B9F0909C91E56BC6E061D4BF0D0D826411255F0A3D417360E4 -DEFCED639409A770A68B4780FE431AF93AD6C229D9E4E4E73928BB2271CD8CD9168B9D9E6498 -A9D5E1F19CBB0CE6331C98BB8E14B585138F18E9C5E20788FD9B96B10691EFFF5A72742DB76D -EA9D7ECDF3D34D44C0FAE7BF87BE638D72C37844D105324F35F9B2B0BE5E041ADA52B3E50BE7 -6187B5CF38C2AB4EC7CA4048A42365205DFEE5603049FB0AE877C71732FCB83D9D85CDC3E6D3 -A4754BF44CECB039B86FBBFF5B2842A5B9FF2698550D593E329639B61D35918CFE1FA82615AF -EBAA5F4876A7CE58971D48ABB97BD11102241141E58489DAB5B8197B1462038CC4BC1C5EAB43 -D626CF0F74E680B71404A5EB0698725AE5C901669BBFA01FA529F7EE786CE4E9D89D52D298E7 -CB20214B75C6748486F3DDE5A3CCE949627FAF616879B67ED86A6923DFCE17C85098A9F15A52 -9329385A91A5C4B516605C65A97431076EF83CFBDD89C5C92C1AAA9CA125B54D74B3B3097E58 -83DE65E71B8A4A38C9A07320F1E01B218F595B19FC4088A8F99B08F588530B854E3E1074EB65 -CE1C480013D760171545EBED4DB412635CFB69706B5DABF9FF6DA683BE728BE51E8607F213A1 -95ABB337DE35DB5B32358FDB374FAF9C14F3729A954CD4948182312AFDDDCC8AF37DB0900F40 -FDF190E7B06E6ADD9FDF686093D21DAA96D9F0EE86109D521E619EB8B4D576946347F9A53792 -3FC4D2AFDC0EA4F5E1E05AA3CC798B97A1A238650AABBA9687EA9FA30369AB0ABAD1A9587D0B -A1FF93D53B7648847DB692F59D8850C7D237F6BED39439B1419F1CEA51E95E15049CA30B5954 -CCD76EFAFBC52C7BA7ED12DCC966B25E1351B2A23CC11ECB0AD78186D98BE30AA8FC94A40085 -780D6025CCD7120FEFA0128CBA879FF626C5DFC55D2E0466ACB483D1F1B0E15CBA9B3EA6B729 -0927E7AA0737F5C2BB11C41F29EA8262E689C525EF5A933BB6BDF72BFF36219D5DB52ED3334C -3372D9019162407577CD21F83F7C8D980886003FB12FE0B14F9AF7BCA745F3914F720B639DD4 -01F5CA9F7C32B5CCDF53C908BE6FF6BD891ED7DD4833C166ED36501A36DB80503DB991813BDD -CB5FAF60069D9580901E61E6C13323E7187D38976E9A138108F567014C2149998C42DBEE1CB9 -F2497041EC589B12AAF253EDC5DE15AE48D3869EF42F086D8E0E53E6E1DC9063F4DFF450CF50 -E387914A23F5919D53F9DEEF0033C26662E98D1515A52FD8D77A005485DEB865E9A869B9B218 -A872755C01E75E30080CB5D9835365D5F7AAF56FF1C21E336257DC22E679227A295D22C878A6 -7AF659D9C5E94A9C141539F0F3F2E7C10EABB2DC645CA8EDDE6D146A0777DFD1A1FD2CB13976 -2BA4D2049033A9E0152B0FD462E7A39A6EF3DF62185CC8709614CA9303DC0B723958A4E18055 -3CDAEB6360AB830D83BA78AF84F9A730D698D8850FDAA43516A5CE2B74AEB39A8E62038950FE -427C8EB6AF8EBDB8A888B620C5727B7C860ED8CB650D1F16CC7CC3348953723C2B31D12091AF -98A361B680EC721E1FFF9269EDB95CB90DB61EA64C2A49762E13BDA6B520D47DE819430C3690 -1E35675E94493CEFC11B34E60645A9262267C32B8EC6C2D5487DDBDC27DC56533EF87EDC7183 -257481F6FC8FD00E47A175B137032A4D7BAE80380D6CFDBD822F8B5F4A08D66882B8C8863B57 -237EF8F3720A3E087648D1142CA90DAF860D19F4273627BEEBF7C1B4BC274F729F83FDAD7C3F -EC91C41E0210F40492DC2AF8316631B3B24307418A7CB4F387C6D55D0EDAFF28CC5C158AA379 -6ED865BD9A189DED6C5A14C00B509465336CEDB55B4F4460BE74B3108AAC4F8E35D794BB062E -9E80E066F659591B8E2A1B1AFDC515EBA28BA1E06E23366F89142939932DF6D136F00178BA8E -BDBA5931BDE21F88E5EBF843D424429DD34C4348889EABA9E812BC33513E29E545E6F4624F6C -3FBE0824304FF63D7555DE60CACD0254283EB55EDFD3AC587AF00483D8F77C11829DE1589DED -6340C8E82F3CEA0A2651894AED392F967E945DFE97007F9432B93BBDB569634A50096655501F -5967B1BDFD3EFA79CAB87F6B62ECF0E38E0716AADB9A8C005818DD6D8FE1CE3FA6C2C2B27B1D -99AE037C72A0CD5081D9C993DDD36DCEBAE17C0DB1CA4D11BAE0A0407FB19C91B55A4FCED58D -E0E0BD2001BCA4BDAEC08D9A2E662777770D84E02CB7722D3773A548E1DEB0D64A27CC739D51 -BF82C4D8997E2ABF40A41AEF2D0F115562DC90DF5A2B5896DD714F2DEED3C0A62B9280CF1092 -46D08A01A7B5854C4312E04F58CB5237A03D6FE892B0BBEDFDD0A3FC298A8E990D705EBCB925 -331D69721B9FEB491FF8C37C9099512F4D662C1F7ABA98EBBA0C4C473C575E1E1C5F4D2C469D -13F92992B5FD51705209C1A55D7FC95E2C79DBA69F2A82CC42AFAE088424BCFF48153246B2AF -21255018521322ED356375D807A6254BE7CBF24F949DF16F22B86D98FE7B2750ECFE186A39F0 -79D15F7F2F74D9B13D891841A857BBA2C44925257DFFEF46017CBC201EEA268B12F8B006E115 -1E6BECABEFE9586994641AF816B0A5FE16A6204CBF7036CCC2CF4FC70C5BF1EF28235AABB21D -A91C4789BDBFEAA7272DFAE4EB8A2DD5DBA29974EC3F192FA4ABF53BD1A287F8F959F64D3093 -B6FCCCF56C363E7011A397B2E7215875CABA8E6949637BFF389FB0C4EB691EB97295EAF43EBE -49672707D2166023B0F16DAAFC126642431398F6E0D18CA60BB94E10E92407EB6CBAEFB8CE28 -9D768D4CB411605CAC9116E57D34D2FBD969EEA84E25E8D3B50BF99BF90D27B369942127D915 -F9CF287CE983C3AAD2347A2CE6B61F2E522FC45A51E0457783F5B6B5E43E532B2194447C67EF -9281E5DB2806643389D9D95C5D35306574CC05110F42EEE53164F6EB0EDAE4C87148C41D59BC -17B5721896B63DF0EB995FD4E9FC04C9EA01D422C0070D108F45134B14864116875B33286583 -385F531AB238B707D442E13B4001C18AB7009FB43A4B2ED8215FBF35E4E67AF10ECBCEB841EB -BC84730F80EA39BAC01BE483D9E3EA7B1C1A9FBE29B4CF1ADB37CD10C38EB723DEAE5232FB24 -1A6DA403C8DBF7A37BDBDB60E32FC9CD10E8EDA5C46A86F47B409A70736C8205D6A5F07C6AE0 -8367976FA2CC05CFA2B17D446D0EF4FC2446DA5310529E7A6BD401F711325741382413756206 -858459FB93B9977BF12BD014C2BFDF4B4D90828E3171D054F4CAC1A292E0F7F55676594E87C9 -4FE81610B8E57C42B3CDE488AFF99B2BAA93597C63FD6F1608230B6024F550BE58B81BCC0398 -5E06D3E98B4B8B7D7B8E9009FC039AD205F79662BD88E0803AFC071BD9CDD9B4A939B0348B19 -04EFEA577A66D54798FF0F3074A82DE919ED21D8728D244259A8FBF0CA42ED45A4301973EB3F -2DF8921C1C540D9028D2C2B0D1CB2A7E31FF2D178274DDE42596635BBEBA6EBC30D28F8332C9 -994E347F129E4B5CC68D061093E3B18B077643074FC52626A47C1B2FE6F5BAF3DE8FB2103F2E -27B65E5196B83A67273A87F1926F24DF7A5D20D32DCC322388B4FEC43B7068D6D7ED92525BAC -979956B2E0E209B30D6C93C587A462EA45C6ED114BF3CDF0111A8CBCBA7935B930924FBE654F -8701D889D244F0E0B7F170A6B28C47C9ECFED5A03C2F02C752E2CA47FA48DF69DF43450A928C -6665447FBCFE8C543419CA33BE1B1703156F24A372A326A66FC5FEF30DB00EFA1C14DC50AC6C -C2801C52EDC6CA11390CEA74C95EF8B0BB8787DD2133C01DB1ECC1C2E3BFE01100944BD59BB7 -39F1F5A03FB7B0C1EDDFF085100995397F37B67FEFBB00933E24DC0ACD060B0A8B3576016ABF -338112019DEFD77020978CC6E9FCA65DAA7EF8DB5DA17C9A8DDEBF9149D417E6FEDE66F7C798 -C81F4A3BCBBACAE103C2D46B682E31C089F71DF9B6B8EA6F978FD6ED4D2497145DD3AFDCEF3E -DBFCB97022412481815E19FDBDF7950ACE8790E10A10206B0075ABE312EEC64B44AAA65BEEBB -25F619D6729B93D40FE4C34473A7EE4880BAA3AAD147C0F8F0429BA7CA9350BF60FD8B9F760A -F5CAD5EC12C09EAC07B0461BA095E9529252EFD40923E11BD438F2BFC56072757CC1F6A668D1 -369CD3AAB40F2313624C2C8907A4564D5B4E1DF883854765D4ABB7FE85CCACA624988B135879 -DF57DB80B799467E160A735DDEB7F724498B8824E31E4791804F327778DF5F33A4618B864F4D -B880DF0247C6053C2CEEFA3F5786FC54AA631C730CBD8BA0AD7D8A946086295C8B117EDAABC7 -B32D2A612FDCE396F8EFFEE39DB1A466D4B54278EC8F70293133C88EFA371E3DC6038C4B373A -E73EDA93C0520A2CB354310CE4E94B793068AA33C36017CA6E6BC83340B31D28D29AA90C4AA1 -2E94146AC6DC1E2F712B46B9A1ACA71EBC164C36AB32AE3C3D44DFD2A84390FC76879587B309 -DBAA8E02574CB2D1B7BED8007C5F1B6208F5EC4D6D7B74EAE36F87C85AECC9ED803190B6BEFB -967909ED56AF04CAE5D346441A88A893F74269AB4C6B20B81F274E64B621A2716A8A8753F097 -4E5FDDC01FB27BA6A6E77CF05F9620D0C6655151FC47396DEF002840DA88CF1882B8525BAB38 -7C4291275639C6DE69B10AEB101EAC2CF9E5278485360436B175DA7D4EB5950704AFA7B9405A -B1D38A176D80170882F18A115F54B3B5ABC2DA1DDB42AB04A94BDDE7F6431AD79225A35F576D -CF62AF23CB462077687A1A0214D825C2CCB84E763C36A98BCE08EE0A02FB8B8A3C13284F7BD4 -65CC3555F234C0F6B8777866774C5BD7D9EEA3B87502F4A9C153D9A14D97C2C2135B05BA3591 -ACFCF85F45FC0B76070D104EFEBC4CE12F8A407F536D61E3A0C417A0CC34C2B8523F51A5D92A -AADC7B3E85D20E009E0692C23DEC307AA1C386D59D6CF6DC602D2495765F3C5CCFC89B40ABC4 -90B0E8B7F4AA4F450736AAAFBF8283F659037A48003DA9BCAA34C185D675C617C749208F95C5 -BCDFAB8CFE07DA6CB6D5A363027D9FC2B1EFD9BD54AB11C55E2C66E141DA8791A73589FBE34E -8FD6EDF70BC7EB9D8DD841D7D7241F30D2B06BD91890EB0AFE4A9F56323868CDEE1E37AE26DA -214716F1049C5EFE18FCA5B1236DFE62955E89BF0EEA229DF979D3D94B0871846F0C18DC4D1C -24E8F9A38908830FF8553AFB387345C527D564975BCAF4A221E64CB51B932F382811BF9E6DFD -A80F33CF5C3CDECA4F78E0A435ACA1E6E9069444FE1EDFCC273359BF99AE9A1E32C5F3B66C32 -CA4F604CD34F5909690877DBB256B493FF5BBC334484A10D685072F1ADDE15ED0B721C65481E -D186A1C5D4E1206AD68C54DC02DDDAE38BB766974D61026867008368AA5DC311A762B8B785CA -B79A1722DB025C0A221D970326B80B2E28B339A967CB279998320CB6E06CF788E102FCF751D4 -42176D3489BE4C6FD6D0FDE707460E63BF5A3CDF894A97E3AC5DC4E8344F4EB6EA1003B518C9 -C1EEC8737BE6F11AD226B26BA81C6F14BCDB624EFC6FAE506570190CA689AC61BB9F135BB248 -0E6745CF72262ACA1DF0518A8C0C6DE59ABC0E0439C91320DBBE7B2726D122139D1516A87765 -2AE1A6CDD5C380E1482673451DADD950FCD7CA605790B52520525B29FE5A7E7A64C54B7D5C0E -0E5F4122754873EE0ECF04DB58E48B113BCA12223A876791545721FC84F519A8E18B683251C2 -E535EBEB1123CA429E48F90242FC2A2278654CF05E06C490E5F2C1AE94174F09E3D43B2AA449 -BED8D2D394AC24ECDE887EA2AAF819798F0AD88BC14AF69148F14E0D90F59EAAE5A4CB3D5760 -A8002141937B382E60372DC91A9A9CFD960447823D58097355071F19EC08D62FB1E6BDFE7266 -E9928519CEBD0D8B583F160CE46AC48A1B93FB6B6B341FE71E4A759709ABB9BA4B0269EA217E -ACF5F6037B5A91EDC22E4EB0F4EDFCC396F4EEC6B3593CAB769BF9EC9B8D2C9475B551CCECB3 -1ACC6C7F089AAE3CCB914BE37C89C7F1B884EEA847E33A0A1A764AD800A06513F4FE95CEF673 -132BCF928E8827839912EC09D2B7A6970D69E705C696D7C662CCCE04A77108E0F033D010A9C0 -F436D606FA6C5B784CEC53701305A4C686C220E72053B0AD0E0BAAD6451A3F5E99F3E6CA24E5 -317B7A9E69E97C1DF1C62B0A7DEFAF8EAE58FC7836A4198B16E6497DE5F47B614F8223F6D112 -1A994C6646E15310A90C76EC058793EB6261F71807E8450B51D0BC290A63E52AE43690F27660 -AFB358E213DAC5DBEAFF6688211296619F2ECCC637A6B36081A61C58217327DCC895EC4ED31D -F064AE911DD693A538E3621706E951B70BCC9965F4E65F7D2D086C52650CD59BE42157EBD458 -A495BC3F47911C1DED75AAC02BE98AC5AD8CBEDF1535734C2272E6511BD0987BB2B3B76443E2 -2AE9B12987679778BE101880DEAB2CD428FBDA07FA3EAB56B40D286A7C4EDB8B05C45E7ADD07 -22D476B42A3C052521831A6429830AE53B038DBD43F8214F4C6C805AE4DC50051736CF595A8B -6F84C4EB07E603BD3BFBC1DF769E3777A1380F2B3C5D44899F9BACA7D0C8DE11188DAD3BEEF4 -B3F70F3359A3DAB2D0DCCF65903B853D92379DB252D7C7806F1AA5723638C665F5F4354AA105 -E3F6067832D5DCC642A37874785329095052B4A6C2EEFFA865B5F307A5E976A5BD7A42153464 -D4DF68828920DAE4851168E667AA4034627A4234A33E04DCBED0C83C8937AC6F695721133250 -3679D5E253679B5EF447196521E87B973F6BA8A229EF100E9513DBA28112E701960DDADBA856 -D8556EA90DBFE07F4F2C2FC1E7D28AFC89F6F5919A2893BAD39B4C261ECB10E33C78121177E9 -39F3F4FC5DB6A5CDC6CE4016F8266672F602D45CB377E43B2C905F1E04CE17D3FEF8D2D13583 -880852FB534D853FABC4819FECFA3DFEF9CE55068BECC94A3A0EB685CBDB7B410372F62996B3 -BF9146F1E8E40A007F6E633EC775B60AD1E2BFCB900D4F01F8F03AAD6440ACDD449FDAFFD386 -30270D9F8994C9088810CD3AD2DB7DDA53BC82CA120F6F797B9D6971387F1B9BBA3FDAB5BFB0 -76D4F7A17EE5D771A876682AF17739017FAC8F5D5E04A763F95204959B274A3B554438D21EDB -15017FE16F87149E8762FC54E0E5326994A694D2EDD89434923AD3F6696861F4DCDC90DCDCBF -A6AB7B64D73E0B6C709B68ED458C29877FBAE1C28F312C251584AD275533A9253ADF5B62978F -E69F03F273D0C6ED62997F8427AA70C42C60EF70DE3C9155C6F0ACC7B816CB291450F352A685 -1BB1BEAE0EF125F2DED53879C911E50FFDDAFFE84DE86A14ACED24584AD843697CAC267E2C14 -7D9786EC37DEF0B26E205570691C6063E07FD581B30ECAF220340BA5440A9B84DF49E2278FAA -6DCD1DA32F72972185920C4FDC8911BF33647C36B2F0000DA6D905B1F1CA5FC289AF8C17A4FE -941796CC22BED96DA743A532E9D3D53DF861B493FC9FCECAF5098AE2981A2F183548872F9E51 -B64BB5BA1296EB10B08DFC27F81AD189D1AEE89FF224BBD8E95A6B401BE6EBE714BE31AB7F8A -90DD07D410F33C819FA0A4620EFB5DD6BBD556D643225557602F9AC154714AF13138539981CD -0604CADC383114C8F7D682C239BF928557BB5E09FE19F23733643581C0D1E8A934840EA77CFB -CE86498584EC91139838FD9206BFF51B46CFF6613FB985A6DEDD798652E630C77779BBEEB051 -34BEB11A4204D1E7ECE83C9703E12668FBA3417026CD9D559525CAF4A202C66880BC1BFB58EF -C5E66A85131B0668C5860479C56333F1070CE992FD809B295F4FEA77854D8EAFA5771CEBF37F -409FA9809C5F207409DBD08EE877B2AB1D03ACD23C0EE5A7A0B7FC727C973DA1E939DB0757D8 -4325DC77C46E59B80DBA9C3B0FDFF5CC42E30FD630C0CBF26096DF7CC6FA34B2000AF9FDFE1C -2881702A147C134856B1411EFF13E4F70ABFEDE1F300588EDEC326ADA98081C513D30014C74C -DCB944074CB3881B3FF645AACFD4AF0B7DC1E2990D7A8BAF4B02FCBE2EF40DB8668368DD12D1 -C1064A7E099097C2CF9E9DC3E980C97087C7292463B0485E749E781A3FC8D8E96817FE0E4E54 -1105C046135C86C4EA4CDF3A654B1F035296B9212217DCBD9CD07A3D32B5281DB5AEE9808BC5 -26141BF96DC061A6C035F5DA34EDA3AC9BC0D99686E6412ACA00D22FEDFBAB311E2D55AE50AD -52A2069767BEFCA7BF52AF0670FE86EE4B108664FBCD4D461A7CB0698691F0C54403BBEB33D1 -94C53A50617D6F3839A06746747E47B96EE38029946039E5695471158773067EB0301B5CC759 -7D81D0C63974C63265C59F3BD53A4A6EE201F286EA433AF3FC2827952C76BDC3F7ACB2A81D14 -C936BB155A21ED1E571F28BC8494DECE753370D15149441A5E6BFF163A1D8B0DADD6379F3CBA -3DD3E9C5726DFBB5D34E6D9EDA5E0674E7EE33DC443A07FF5B16E2857F4E0655011F6E898515 -BD96FB03291496764077F529DD30DE5B9415236138A24A030A9D06123E239B8734C68F89625E -D55B29C3AE236845048D0D53DA55D5B41A3A6B67B7136E5182EBA6F04AD09BAA5EBAF11C27F9 -6C2FC507C1768D7CDC42ABD669EF08485605F796FE66E39AFE14D96481E9F6DD541D56C0C17A -AD1AC6E0910C5ADBDDD31FA7DBBD11D9ECAF2A50978821A92FE5F20E407D5F93D8B05C90716F -A51D9586187C1F2928B75D228A19B0D9E49C73FD78D8538CD33161381B720CBFE6677B4A4E05 -F90041D351B84494803560EA7ECC77A20E36AC1677D7DB5D2F4EFA53C2854E5587BCAE22797E -C8F328ADF0CE9199B99906DD512A28A5A348E4BE7CB571C8D127DE7A0BECEE6ABA7BEE0C2D68 -70958399DBCB2AFE9B208B76042DDE90EC23A6B8C0707451972E12911A06145A787E5FEAC85C -462B58C68933067A009D6F40978896B80B1817B1E3F493CCE3664A19353FB7E0C37063E7F5AB -F428A7CABB3F454B783B7B2A6008DAEE0DADCF72E814E04DDB9E8CFC9C1A5A0ED2A3BF70DE33 -5FBD454A17C5DF38054181B95988642DCE3BAB50D6317192DF170245DD75A895414EBEC37540 -1DF8F994FBC44A3F359961CAA5759A928500A689FA02DBB1F05CDF2CACB2EEA5DA41EBB3867C -3936B346ABFC8ABF34D66A681233795DA9276F20AD5A17FE03CC9251DDCB517C0CACB16A8E2C -CA1AF014517EDAF7F4569D7B330A612D7D99C03654E02E5F4A0C7F1EC449B2C7909262D721F2 -01166F975AB93A36A72428968A7BD2B1FC33B4E0A94FB5FEF835DDD975EF68B4F0728782C9AF -AEF705FA6CAA81FA58CA64F4261488B3C2F259851EC1200CA0AEEAB5C030A7DDE5B27F89DCC5 -54C02A9B7F26352B94B4C3502BC96B202D3A0AFEE0F9980DA98822E44157C3DBC72A9B15A4C4 -CE21AFC9DCCDB93D6DF8767C9FA124767B0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 - -cleartomark -{restore}if - - -%%EndFont -%%BeginFont: CMBX10 -%!PS-AdobeFont-1.0: CMBX10 003.002 -%%Title: CMBX10 -%Version: 003.002 -%%CreationDate: Mon Jul 13 16:17:00 2009 -%%Creator: David M. Jones -%Copyright: Copyright (c) 1997, 2009 American Mathematical Society -%Copyright: (), with Reserved Font Name CMBX10. -% This Font Software is licensed under the SIL Open Font License, Version 1.1. -% This license is in the accompanying file OFL.txt, and is also -% available with a FAQ at: http://scripts.sil.org/OFL. -%%EndComments - -FontDirectory/CMBX10 known{/CMBX10 findfont dup/UniqueID known{dup -/UniqueID get 5000768 eq exch/FontType get 1 eq and}{pop false}ifelse -{save true}{false}ifelse}{false}ifelse -11 dict begin -/FontType 1 def -/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def -/FontName /CMBX10 def -/FontBBox {-56 -250 1164 750 }readonly def -/UniqueID 5000768 def -/PaintType 0 def -/FontInfo 9 dict dup begin - /version (003.002) readonly def - /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMBX10.) readonly def - /FullName (CMBX10) readonly def - /FamilyName (Computer Modern) readonly def - /Weight (Bold) readonly def - /ItalicAngle 0 def - /isFixedPitch false def - /UnderlinePosition -100 def - /UnderlineThickness 50 def -end readonly def -/Encoding 256 array - 0 1 255 { 1 index exch /.notdef put} for -dup 0 /Gamma put -dup 1 /Delta put -dup 2 /Theta put -dup 3 /Lambda put -dup 4 /Xi put -dup 5 /Pi put -dup 6 /Sigma put -dup 7 /Upsilon put -dup 8 /Phi put -dup 9 /Psi put -dup 10 /Omega put -dup 11 /ff put -dup 12 /fi put -dup 13 /fl put -dup 14 /ffi put -dup 15 /ffl put -dup 16 /dotlessi put -dup 17 /dotlessj put -dup 18 /grave put -dup 19 /acute put -dup 20 /caron put -dup 21 /breve put -dup 22 /macron put -dup 23 /ring put -dup 24 /cedilla put -dup 25 /germandbls put -dup 26 /ae put -dup 27 /oe put -dup 28 /oslash put -dup 29 /AE put -dup 30 /OE put -dup 31 /Oslash put -dup 32 /suppress put -dup 33 /exclam put -dup 34 /quotedblright put -dup 35 /numbersign put -dup 36 /dollar put -dup 37 /percent put -dup 38 /ampersand put -dup 39 /quoteright put -dup 40 /parenleft put -dup 41 /parenright put -dup 42 /asterisk put -dup 43 /plus put -dup 44 /comma put -dup 45 /hyphen put -dup 46 /period put -dup 47 /slash put -dup 48 /zero put -dup 49 /one put -dup 50 /two put -dup 51 /three put -dup 52 /four put -dup 53 /five put -dup 54 /six put -dup 55 /seven put -dup 56 /eight put -dup 57 /nine put -dup 58 /colon put -dup 59 /semicolon put -dup 60 /exclamdown put -dup 61 /equal put -dup 62 /questiondown put -dup 63 /question put -dup 64 /at put -dup 65 /A put -dup 66 /B put -dup 67 /C put -dup 68 /D put -dup 69 /E put -dup 70 /F put -dup 71 /G put -dup 72 /H put -dup 73 /I put -dup 74 /J put -dup 75 /K put -dup 76 /L put -dup 77 /M put -dup 78 /N put -dup 79 /O put -dup 80 /P put -dup 81 /Q put -dup 82 /R put -dup 83 /S put -dup 84 /T put -dup 85 /U put -dup 86 /V put -dup 87 /W put -dup 88 /X put -dup 89 /Y put -dup 90 /Z put -dup 91 /bracketleft put -dup 92 /quotedblleft put -dup 93 /bracketright put -dup 94 /circumflex put -dup 95 /dotaccent put -dup 96 /quoteleft put -dup 97 /a put -dup 98 /b put -dup 99 /c put -dup 100 /d put -dup 101 /e put -dup 102 /f put -dup 103 /g put -dup 104 /h put -dup 105 /i put -dup 106 /j put -dup 107 /k put -dup 108 /l put -dup 109 /m put -dup 110 /n put -dup 111 /o put -dup 112 /p put -dup 113 /q put -dup 114 /r put -dup 115 /s put -dup 116 /t put -dup 117 /u put -dup 118 /v put -dup 119 /w put -dup 120 /x put -dup 121 /y put -dup 122 /z put -dup 123 /endash put -dup 124 /emdash put -dup 125 /hungarumlaut put -dup 126 /tilde put -dup 127 /dieresis put -dup 128 /suppress put -dup 160 /space put -dup 161 /Gamma put -dup 162 /Delta put -dup 163 /Theta put -dup 164 /Lambda put -dup 165 /Xi put -dup 166 /Pi put -dup 167 /Sigma put -dup 168 /Upsilon put -dup 169 /Phi put -dup 170 /Psi put -dup 171 /sfthyphen put -dup 172 /nbspace put -dup 173 /Omega put -dup 174 /ff put -dup 175 /fi put -dup 176 /fl put -dup 177 /ffi put -dup 178 /ffl put -dup 179 /dotlessi put -dup 180 /dotlessj put -dup 181 /grave put -dup 182 /acute put -dup 183 /caron put -dup 184 /breve put -dup 185 /macron put -dup 186 /ring put -dup 187 /cedilla put -dup 188 /germandbls put -dup 189 /ae put -dup 190 /oe put -dup 191 /oslash put -dup 192 /AE put -dup 193 /OE put -dup 194 /Oslash put -dup 195 /suppress put -dup 196 /dieresis put -readonly def -currentdict end -currentfile eexec - -D9D66F633B846AB284BCF8B0411B772DE5CE3DD325E55798292D7BD972BD75FA0E079529AF9C -82DF72F64195C9C210DCE34528F540DA1FFD7BEBB9B40787BA9351BBFB7CFC5F9152D1E5BB0A -D8D016C6CFA4EB41B3C51D091C2D5440E67CFD717C56816B03B901BF4A25A07175380E50A213 -F877C44778B3C5AADBCC86D6E551E6AF364B0BFCAAD22D8D558C5C81A7D425A1629DD5182206 -742D1D082A12F0780FD4F5F6D3129FCFFF1F4A912B0A7DEC8D33A57B5AE0328EF9D57ADDAC54 -3273C01924195A181D03F5054A93B71E5065F8D92FE23794D2D43B233BABF23DF8DBB6C2BD2F -04672F9A3B7FE430263E962F16A948319C51B8ADE6E8A80D3D88023A6DEA4D271676C2C8615C -4A0EA7DC8F6601610F398673A4D4B905F49EA868FEF639BE073001A36DEA6C08ED51452F062B -971740019692E221F4455EDE46AF24B8407A98B791F6AD525C72C09776247E194043281D04FE -1CD1D8AD8DCEEC3045B4F95B3B41CD3300768D8A049815348BD7AC1004F5500817E3A267D694 -AE108BAF285B288FC5F28A03E9D34FE5D9B2F9A9BB26ADE66B1CF8EB5BE606E83D213C33DE08 -3C20D636EF780E76196EBD6EB9A8AD0D5C590F0963BAC7667DD74EEFF4739C067E092F6DB18F -75FFF9B267885F26D398B7D5F558478C5D3BCB0764B9C46938F44DC4D1140EEC280D0F576D72 -8A5F6B1BF747C71619001BC82B72541EB653CE4015B0A538CF2BAC8DB0A8C17D70138667B575 -6FF79FE8AE36EF127BE18849B32281061FDC18C80C19D2FA5482C839C771D45EE95F6DD42FB0 -CB92982832C148360E0C09A666658A074209EDF384ED62BB0855D39762E1B1B16F33039C1339 -9C576D6712B0B30ABAE77F9CA3A8000536D22267E8CBD6A858C529E60AFA29E128481E294389 -97EFE81731303B4A25D84CEE0C9BF1C61D67A2F89F1ECF33AEE0282B8475D27D74F7C39317B7 -1F39B0722FBB4B8553820C8E6052E0BEBADD426F292F282E2A36328452D9BF2253D0658218C1 -5A2E97E1148C002E8EEF7977706AE775D3FB84FE49EF224B11E9661D5948ADB077E525F81A70 -4C305F1B59B7DC421DAE5B09D064CCAF55EE88CEE13911A3DCBE9623D8995431AD66A82BF0F7 -8430CD95D672F4BEDD5751844AA3B0FB0B37FD7F7FB5AA436EFDC159DFFAFF3D7989CF5684FD -D18F78243D5BCF69B95EA7C47EBB6521CE5EB9BB2204E7CDE699ED4F3595AF28417E6521EEE8 -CEA907BB1B23480E1CDB579D8CC2C79DF883769411DE56F72D16E67673D11BC9A996AD5C5CFC -1FDE7F550B915A193235A4BECCAC701A67DF5C84FEBA7997B748D280ABD108305123CE11B5AB -5937FD2BFA07A96738BD15B8F06620028D2E1812B1E2BFEE8847BFA1137CB08B443914C79571 -F87AD9914F204F942BD7116DE1087E674899A1B5061F72FF134006595292C7DEE518B7156B66 -05D06E368BAA9464C0E6C1F55F357AAA2F8AC90BFBBB94585BA72F11ADACA8305A04CD6C07A1 -B70A4211A801BD6607077115FC2CB052E792EDD27D5D700EB4DE25327B0F50C1AB29E5367264 -A2164B207159893866B9B32A1D7C0133F428DAADA7CFB2B5A4F180D831FAE8A4BA0952873FE6 -37F2D4A2AFB4CFB65CEF26C8D0F3B7B38452F4470C9FE42A6D8248BE3C7D76FB017F0F228D33 -72F49A3CF41DC00D0ECAF1F4509EBD57538528A81263CA54697074CFB527EDBD74636F7F28EA -AE46B66DEFB4C233AD0DA007B6978FFB0F3D3ABC9EEC8AA12DC8A051AF538DCC6063E3B137B4 -A359AD53522F6CD3C7676A4BD25FF6AB5D0E25C083A6FB113B626EB46547F361EC55D2671363 -8D7C381FE3E209D61165B30970C25CCE56314B4917662FE1A3D8436CD3DBC306847987E00C10 -AC83A74CDD62DF1CF7EE6EB23A3D910FB48C6F2E546940A7D9154A89AD58B0946C727D18D235 -AF390EC8DE9ADA3BBB5B0D7A9E32F8F4698FAC50F445E6C67C55680C1B74CEC385CF61910709 -61334C72387B00722228ABCBC21B4FF7C5DB2850F65E243CC1666EDBB18D5A09D2E175E671CF -A24D35178E5E04326A274FCF9F1AD07B57EC7EB025FE4FB024C83418BE892B9BA5D0A633E09E -F28EB5C73AA211D4684B697916DD845D24C952E88A7C4A69FB40E90DEBB32264C021AC83B5C7 -7077FF47C85EFAFF2396F88AE7269E4875D1FDF647F636FD714B823846D90C5B8B3BF711D631 -F827B1644331E4B82620287D7433876960928748540E5C03C31E16C56960BF0941CD26E28D3D -54E4FBEF7DE791A58CA9E1AD1CB9E0A0F196A9C389A657838A6C35BA717E180FC3FEB8EA740F -4E3363C45DAD7C5B2B7A27BFC86E1159F3211580CF4BF027C556BDD2E1FC11C684585173CA54 -AA68967DA203DA98C8D38321EB298D9BF5193468FB202A6B25266A7EC83472D6B6D0662743F4 -68AE3479DB948C36047C43492113F53EB84AF486687B25350D37D933181CAE79EECAF57B12CD -15D179292EE7ADF8A56D84D4C080D2E49EBCDE739C3BA73090C1868AB9D22B2D426B79993EBB -F48658118D52FE0A20BF3A29674D3BC70DDC2F565EBFE26B8A1B9D50DD0BD5C381A6369CDF2C -F415672740BF106EBAD216CED4CBA8BDAB6AC2CBC8E70FCF2AD869EC2051257BF2E938EA6826 -C2B968888571F91C347D38951F806DB3694FC7F4AE10029343DF20CF86AF16AEFBF11D2D9E30 -88154CEB262BB81691D7020AF486B1630E23E46EB9F00DA3C37D62B5D9FE9DC06A74802536F9 -186D368FDC29346C1C6FBF00CFD784AF5842E196BC908726165E9695F552679E3CF19EBFBB0B -A0DF2B1DF065081DD7857641787656DD03BE6B2C8FC5EF854B89E9C7C966B4A0B77EAA0A898C -3CEB111A24BC1EC12FC8525D2B1DBA2D6C65253CC673C022F642C7B884A05443859EE8DE0283 -BB1D73AADBB5F73A1E684405A8C12F1A4BFE00907577F2A75C04CB6D02CDB4812A3770BDD372 -CE44DC8698A7F3A0A18F3321131E064E8B88FA49A2592D983C522E41F062B51509254A7BE8E0 -3CBFF95492189085A5DEEA7E4FFA6EA787BDA03F0D763CF4432DEC344C4028861ACEEB2D1587 -C1E2FF5CF22D23C9D02DDA5586D8B52037FF66D80C3B536564F9C56BFADE5605C9D2BC2811E8 -9E23EE867A2DFA7B4E85E07F319F6D08D713502F04F043071D4522C1E525146CAF520BE38C3A -31BCA06E3292A3D919E0E1429D799B273F2B224C7D790C9437BF248A94FC2176B46C9B1CBA01 -57C9D19ACF1C0E2E90BB7C762DB169955A3C2F968604D5AA0EEE51DF7EB90DE8D089C432E167 -58C23D391768D9EE3E0319151C29F5C7AEDE8E9A3BCBB0F5C02744CA63BCB1DECD9F7CE8D6A2 -F5ADD89DB575F4FC2C1B1A17E56AB98866C90080D62767A75024BE669C60B6C0B410299391AC -EA10C8A42C4261746098EFC4BD0243F704970AC8819D6B8EF8ED1DF8C4540D5566D547B0DEED -36EBB702D898E700E6114074112167A2D0ECB73D484613972B0D594BC7B3365783885279E30D -C50B20E7974C8B6069CBCB776675322CB6579018618125FD503E54330F960A4D64CDD611646E -3123E0AA40D2A0B2BDEC191E5FCB660EA1B68D0C11A46395BB23E9B7EF46AC77A6FDAEFCE31B -2F298CCE2601E16360EF10B6A79CEA6C577C759684F5DD6D6B9243A5436080116BA0E804A97E -EBB6128B03BCB48534878518598CF21B3E897FD2840D59B6CD3F5CC0592B522FFD6DFAA9FAE5 -2CE397B401E0D7695616B1A27FE93EF4F9F29B375157F99DBEDAEC503DDF27653B5B367D5497 -959E3D29F8D8F326ED87E24675A0C80C10F1A03D5A7D6BF0A78193E038E61054BC332210BF5A -D11BF0A78DB2EE21CB1E811D903E63836BE32530A7150DC71D238200208A6054FE86C234FC94 -4CF77A704AFC71641BE0208B63B65C467A9CA05F53B770260D11594D122AD6EA034B8DA7B7E9 -54FF76DC292609EC34D429E90F591A92319EFAA65A0C2C3F3338BC511B5242E7FA4AF4388398 -9A9071F044CD0947EA0A82C95FE53A6CF677247783DE3C356197067AC1D48DEDD671FB5ABF04 -E5E8417BD64402D3CDF380EA1F6BA6D41D8E72DF60301393317CE7B832A641B3C8393D40B77E -01847C627078FAD56B22A390049F73645C86B165C9482E726EBD07E93DFA73325D7BC625EEF1 -E933210EFD13E4081621ED247128BAE5196BA1185AEB7722695DBDCDA7EBCD9BFC566843B911 -BFFD2379CE7B0CDFA190D49C8655310268667EC47EA9D35B3920D537D61CE45A7B88D923A1F0 -4D18BB07E5D63EE84407DB1E5256E7E5EF08ED7CA0966FEC918607EA239E150EC8696072586B -65E00F0AA7C13B12C15A2A34364173583C98BFEE7858857D4523D8C1A11C6F2EE75B4746DD37 -3AA13B934DA86D09113C072E9C014A5C5318C5FE76748F5BFDAEEBFB06CFEB09EBB31428E48A -498E3B7DF3E7BDEA24F80317A7430D6F71037C6460CFF8B657CA6BEB07598DF61AA6E55A1876 -90568F4823C5B15D28B8C77D817EE6697425A6699D45F6A97703368119A8AD48BEBFADA3575F -7B4C60F54F022FC9E85A9440AF1DB056A577A05F8E3779F2FBD9F871252CF7FE20F464296A30 -FBF2B7759D2F6CDAB81E2E622FFED36B9A2F2E0A6105B946843B5898BA004B60D51FE3ED868C -05142B30A663B8974E0B8A772A49F2327E6575FA5BB8F8DBE5484C1FB7F5D82AC176FB5C7ADD -B7111D5317A64559004E5C63F1440A903EE1F9E6B05E958B3358C181EEAAA79837D10A66CE09 -81E3C144753BB4D8E43120FEE513DB4A8FA90F1EA4452BD7613E10A70DEC96BFD6D5D1BA189E -DFA5257BA172B43727FC9D8AE562F557B456940C348EAC7F6357B8A58F8A415A16818F171ACF -54BCBF1370F38E4ADE8C314ACE55B91C12F1D9EC20E803DAEA65DDF994F982A83DFF6ADF3749 -B48487F9C95D341EDF99E040F0C0FEC4BEF20DA51745613723AD4076500AE3E88346511A4350 -CAA2429826A3F49ADF7CA8474AECDFCE41E42C38ECE644A450C5CF88D522AC293B8EE1B59E1F -39689780F8B92A6D9CFA765AB5EEBB7C7FB212B4A4BDC0426F8D93DDF7E793317A08EF326881 -86663D6F40451B0EEBB7E60B8702A03F51BC510645C03EE0F5614BEF6779E34FA3591206137A -3CF6492AF2BF2EFB1AE0634B664108CA6B46203FF37FE4FE83574E2175020B6932BF706A0C01 -1E53154DD9F25AC043CD302B3B19C89DFC46861D6DCF2FB24127FBE7284B2D3E53583083DF4F -E3ADA87A397A32B19FEE8FCAF50F5297B86448AD92239030CEA12A6DB32E8AD45E9F173A0360 -7541D20C4A159B491E590D0FCD3E24092DEBFFCB0B526ABB6D07F84C568584050210A0AC9977 -878C9A77A4665784B0876890802DE370D97F828F39B46AC0822EDEFBEAC8A5B9A441685E74F1 -85AB50984C9F4D44DDE6E7629965794A45CC1E1C5DAF81FE713BBBBC6BD8F3AA4526E66EE28B -80A7B4B936A28664ED3A3EEB573CF7AF8A96BA941E69B614BBB93053DB4C75953528BBB556E4 -E62003C79733730237E4DBE3928F461A2E647080C5F4CF53CA61A88F22E4267DE825146B26E9 -B1B7100973909AB11BF3857B52EC6249CA6ABF7A47BEFCB6781924622EE2DA8D1E18A300931E -057D6D3A7E2F079F6E4A622A57B47818CE3367F89244CDD7B18E0B2D54C25CD21B62F2A97C27 -9B7D122371F6A499F2FA84840BC6AA7E5A5B1A83C83C03D920B72D9B193715FB49F0B9181E6E -454201ADFDBAA3B87F527DF85FD0D57DD3415A0041C85DCFA69554B5570B90F1A830A1F2B085 -20671C56A5E54930FA038AB1CC632D8E91577183B62BACD73513873A32C6001412500DD26D1A -A2478A2BD242188BD901C515D01EEFA2AA5E99E817B976B6E1470F943D7434404FCE189A8DCB -7C9F4C658B525D4526A4024680574694F9962D10EB0FA3C0F87425A762F28A332F6F1429088B -0EC28B19E8AC83ECBE21115584008A3F825C95E189FF89BD59BF409B503821B2256A1449DE32 -F95B73D1079E83441A5D3358B147A91E5B04ED1F81AF3BDD974BAD9011A7581E4B1C8CF7A519 -B27170E29F5023F3DFFE9FC1B60ADA73C059295683F69124932D1270592AB6BB933D301FA180 -C170D3C355E17B4B71CBC32E497A9E9881C843CC8EE959BD9F9FAB58FB48D4DF7A00E505AAF6 -B6F9AEEF1050AB710B917EC062628B930B5917E1C13AE88CCCB03F3195B6D4FF62392C84D7AA -E574D6DA3DDCE7B9563C3F2D3FF1C6079F8997EDA44F55E9877BCF8D58F1A8FE2BED0EC2F558 -F623040339337523C21300B09EFC53E26526F94946C03AF7111C1B7B5B7804948C56C68DDB41 -B06071A0876E64B80406613E7605718D50908800661BD8E2454355A4242673A55736EF74C890 -751A32778FE41574FB3F44D3397CA6B8F57F788C06316445A521AFC0E8601525B66207A8AFB6 -C0BF651C4BA2272BF12B7903BE1A4472EB345ACF2D0A6F1C5523F58EB6F1C99644F15F545D9C -4E95E508D3992619AAD61FE1EA5820EE6CFED90B2C4DAF35BFCE89908145F120291E15A64A63 -C90FA04993EC295CE32B62820713CEDF34D80CA8BE6D58E53B16287B0EDA0AE3F5697C120EA1 -C368FA9FA54E0832BDE21B592073223A8E171CBE0CA39840CE631B68AB03D351FFB2892A17F5 -8B5B24CC5BD2D80A51567B2D226B935ACC5551ED2577493C76575AA68F66462AADA385046D8C -C160FAEFED718D063265399D34673892083615A09F2B8A89BD906AB2494519324F0B5D5B61F7 -62EACB39D2A4BEB62F9638A2E2BD995715E2EEAF211D3353D3D1149BA95040CFDAFC244AA33D -EE902E98B1425C05804962251157BFBB601E664579659CD7F5FC56F4787DF6BA7104CF3F5759 -03C624C035E6B7F9AC3BC265288211EB85E937BF5E8E158DBDBDAE4D485BD74252583E4F7883 -7A63498BD5AA8CDDF424B53B92E0D8A3EE7F4290E9EDEDB6483CAF58C14E3CC4C4E334F6F6E9 -9F21EE7B4C8B4741A17B5B324A31ECEEB2A5D8CB15DC2C6E61B2D06BB86396B959354E33646A -C0B176F45CA2878534717CCDA49F960DCE632709729B2FE9A67CCC419021EB7FB6A20F1BE203 -E28D24DEAD4CA3576A368D473071868D99D637961309EFAB4D0EF704E2DD5A591533277ED542 -E71E508932857DA9F86AD1CC2A7D0FF89EF99DFFEE4C71CE7B420556961DFF7D173C87A72654 -BF34DA7B3BB427DBC53493C1B8EC39B64F025C046E35194C167A9354AF5F46D2B9D594A859DC -9681850F97FC08A37F56EF329955AD76D51FA95659109E6D67E4306FAEA2812576B602A8588F -B74DBC6E2A61D783A2F8B7594D45B4BBF6B28F679EABDA67CD21EECA68B3B96FF265AA2B4ACE -75F2542A562DA0E61EBACCAC61A5578976580B59A26CE9243ECF481C88F1C3E90821DE1F23CA -7F80485BF1440FCF79B86BC3283F92F0424F683E945F216872E8E7E7FC364B19D14353965B49 -10DA05C20871B43CC0C70774832570F1395916AE5E6D51445EACB3D08561DF288D351A12ADC0 -7C6898D45786AB2362E25E65A308E31F65151ED07CEFEFA1475387ACF68D3E02D75C25B7EDC4 -F0848F009D77003E59777BD547C58756808AF382DF62839A990224FBF42CF18F86F80CCC903B -0EBAAEA435737F85EA3404BCB20A7FA84AB51E8F65B12AB6C6EE1F8794E21EC3ED10B1B4F835 -05F581BA781986FB03124792E5F4467F9CC151D2316A9627C86E57995B0228E9FEF17BEA9D73 -FB58F88DA0B1D590049C2B5456084C241CDE51BEF430B3F1B0087FE7D7F2AEC94396E6A62D3C -C4EC0564CB460F654591DEAB6D0C9AA09E27B09FDAAD0079D409401EDA040A26435E0351CC80 -CA2F1692992917E68E1DBDED2139282041BF55D5611FF5304D0C390548DDED23321E62C3B4F5 -1BDDDC6B832C89B1F9FD0B1E0C1AEEA0A651C717567FB6E6D6E5E832995446A7238461042A0C -C08C1EA75B4C1FC38062AFC441B72171BE76BC3B04E1D179CE454DFF93668EF8CDB1811C0C21 -5430E28B9D4E92D5F1996E9BB66724E1E81A0359E166BF88694D12BF6944BFC30E5BF06D0F86 -AD72A4F372CA460F99E254F7B6EBEE687699E1E4C25F8664FF774F02A5CFE926BDCF3BC044EB -796C18601C3A0B584FBD450FB51033DDA3B3BDF27219517C494923F3520A5E2CAC10ECDE0D05 -72F3CD62E8AB4B242B55FC17EE04102304F2F59DEC48FAEC6044F952A4EF77938C4279C19CA4 -EBDE2BB0BE7E2A9B3DB31412DD171834C1003C9CA2BE2794D6B6F9B3E0D763998811CE212497 -1AD231F46460C10047FDE0BD96E2861950B079BE17D3B789E8389D9D0DF5B667D8401EC872E2 -22247CD67D662CE8868C1CF7905FE257AB980CC24E27237C761966ACE5544F490EA3C9E45ED2 -229D7DFD03DBB00DECF59C716CCB29011E2F1AC87C5C61B1A2CE0AF6053A4B02B7179563CEB1 -411017EAA621AB046B355B6F126CE9AF8A5CD10A347EC2306BC80CACC1EA8D0BF2F5376DDBB7 -DB541C13BA7E8B9701DE60BDC70BC49A6FB5645C0C325900305F3881436FF74F880175940449 -4857CA9A4E3AF1EE2F6753C19D7163F7A0CB84D5124BDEFDE5858E0F55F789898939E1925A0D -598150CF4C8B75445A0099EA0668FCD6E4C2B8D19555B0DC504784B8781F0D490249CA75D7EA -4C8EEC74B6D9BB7D6E51C625B86F8EB3B207344F9C2558D0FC935B366D690C60A5AB5A790C0C -DF990AB4F9DAD07C5092647629A7A03900559F4AEC9D3D4E636C2645E92312459B7525034BFD -96A129ADA67FB022DA92FA7DDC069178ED028A2F301EC9B989F6B71F8D5C7E080127212E2F5E -6D7BCA4E821D3FE6DE74EA18B12EB7C51A69B413AEDE0CE988491CA695C7D8BBFFEA273601D1 -E82978A00C7F74971FFB7F1105BCFFC9B77E161EF3969CF8774B0C060E8B98E889F6AB874F57 -E4903334E656EC57E60966A059B1636E4B42DC7CBD8D20C7826BE1491BFEC2C30133F224D70B -20CA9587E6B1154387822C16A38C6D0B680FB004DDC9273391B9691EE7295FD92EF783CB99D4 -C97B98C5E3E686BD6451250A0530E6503E1EF27FA2F35170C362A56ECB1AC69CF62BCD6B9106 -87EACAE375DD7106E7CAA924C19ED5885F830B4D1660A6B469EF250C1344174169E2F0F6681B -C0F3EF69390985D83828FEEED2996CA586E10296CE26A4E1FD0C6C9D3C884BE468AE5010EF08 -D1EFAFD27648DDA12C05C983DB51F4FC23E314B4D404803364608FDEC3743859786D5B85700D -EDF918EF085E14DD0FE250C6E4A1F2F2E8D0ECC21206BB80B7E461DB009AA3C82AE44C3A3733 -026BB072FB2C65E407BE58AE0CA6BDFC249520B173612F1D945172968E8679CD102F0CE7C650 -74A99F9654A9626E156C470460104C978CF36B25A54A940BD5AE248EAD8C0323A739695FFA26 -5B8B8BF3A39487DB90D3E261569ECC2EEFB7B6B0ADCB1731024A5192127E56D05165BA3B7450 -134835CEF2828C0D10A24ED207B6333A96AD20CBD04DD5C7B2B3E4C94830361C819E49BEADF6 -60785B8FCB35C28DEC43365FEA8E369934B8ABE96A95661F51C5DFEAEDFD98057DDA59DF7123 -1E4A5E4F1019C1671706B6A3779D76006D9CCA30E9F13936B2FE963B606D07AED1AAF81EF454 -0E579EAD134862C30563D081F110CBB10AD1321D60D4F1FB570C66BA8591D8B99016E83DFEBD -4781515809231780EE80B36DF09D778AF18767637093A0A31336C8EF4BDF2A7C03E55E19CFB6 -E66AD4A318F695F2B0A9BB970BEA5938060A13B56F7799058BD4AAC6417E96A34888606CD4B9 -BD7CC1EFD67FB672513C3A7FD61B237178BD2AFB0F111723F35B6E2C376C4DD10D7F89D4C5CC -DF5BDEC342F0F6D6585B6E3880A91B0D01F56A8CA6470A21648D9F06AF9B04CA83D6296AE76B -EC4B00CF9C0F4E19EE168719C7BD41B1E05022BDD5C724CB802335F9F0DFFAB25A4E52E70E7E -763EC73EAEE61C817D9E6F8ADCE322C1CCD0BE398D89A0A7464AE3AF7B6C0F8F856AB33A1060 -08B3A36C555F2853FFBA9F364A525070DDD39D5DB1F4F16BCCB0D4103A0EA3BA3D2BF859422E -93ABBCA91113556262BCDA0274E62FED8E2FBEA7E599E559E67599D56200C94ECF094130FC8C -7151200A252304CE4C937B973667180588353E6B65FDB61A16F22B2A3FA18915260512A549AA -C7760A44DEB1D1E5DF5650DCA5BA87E18E4F07C03CA34C62437D306583D73CC3EACACCD6A74B -A3FE55B3C07C499446B67206BCB7BA85BD9A4913F440E31B670A8B3EAD0D2BB913F187E533B9 -C8735929C2205AECA74E5DE743D4AAAE06154D1DF0103E0A79EE629F4EEC2B71F11EE71DCB66 -A001872D038F762C908E58EEA1772AEC3CD1AD2DFF4AD5FDE87F63EBD8D066CF54ED5E3235C0 -73E34AE6DF447F4A817B63F17AA65921B35ED94C2609A5C4D538D4ED081D20C3E04ED66D3250 -82CE64A7A8FAF9624F3EA0CD030D70F5732D4C0E29FF5FD9870CD50A62A4E6DA7986E5F06FF3 -5C1FB76922709F4BF247222B30CC6B0BB58D683AEB91505FAA80E7611940D7AED32A610FE0C9 -2773964FF9F92F389CE1899E7CE12E67FD65C30E3CC09A722327A7A7082CECCB566FE2EB3DD8 -8426FB226AFA2A50CB5322E66DFFFFF471456AC1412FC19DE9EDB28837D638BC0C253BC270F1 -446580262393B6EFDEB28A5E8578CA1454259959940CA856FA16504648A0462A59235F808BFB -FD39DDAFA09A316267E1B0C145A4A03C9ADC54F526BB63177DBA91B8A451CF78F9B3DB6B7ACB -32CA6E4A418631DAB624A248F2B3FB6CF0F297A7ACF49EC1772F01D9CC39209CFA46CE35FF16 -B533E61075C33F9F42FF4C40D59952E24C21545DD99DB567D5C358C9CF85D411B01EC2C740E4 -15557B8979B1EB0A415A24425E1289308A60706034F3166F8810F49CB3C8DDA06F5850B56960 -8DE1EE8452D9A30FBD04EFC19C8635B0769DBBCA234ED5CBEA0C98434FAE3938D22B8E6287DD -736652D031BEC31E7BC52EB8BC75FDDD1946936E10DD3DA40F4C615A21E1BCC93E0DACF4875E -9FBCBB1537CEFD9F6B9653D91168B7CC3B746B605FF7BBEC53FD322AF0C9804DBA7F4A53E08D -6C4810474C7069F0B671CC8F36BB233169651ABBCD4530CB79AA1314C823DD655DAC47235AB9 -6A815E58081E32B98A6F0FF013639CBEC60108972EE9A686562A20EB188B777CD77F4469A676 -906BA4CA73F6F02616F1D45745A471E7A5BA2795209E8324365905B5CF7EE61D3E53AE1CB5E5 -3F46EF208122DFAC4A80334762A700EE46CCFF8F49D5A5E5FEA39285131E7CF056F73EC3E19F -FB55CF4409047497982E17E0DF2415DDA5F458D34D1C7F5DC02849A069C6F84F2CD91EDE1904 -9B5C25EAD8BAB0C9C9843DA6DD24829549A7DE70958048F037C56C949E24FC737582B9EB177E -66D5000573977AB7C5A9B43B76C8D65486384E8F0F5D60A604BEF0EFF30EFE8E7C9856934C34 -5B396B9DF21AB34CBC982DDFAE5C433F9D5D1004E5B7F82ABDA6EDB5FD0F236A17293DDA8020 -69696E789C0081A4D8AF4214D05B7F63607CF0ECEA630E30CB9F7352368FEE8D04803A6827D7 -3B260DF18DDAB0BA5AB0B9129CA7D204C64B6F1D9D23CA41DFBE939C313AE7499B50D24BD711 -DAC556290CA09320CF563BC402453D3F4DFFD6A7C5F3D54C1025A4222F29B2F87DC9D9B0A60C -52167BE7CDDC6C7EA9986211DE163D566B8D4EC6AB2FF906126552310B152803F04E9793DA45 -87B0A5296193DBFC840AB53EEBD3C4E7C204AE174D4A0956E731BC742C55F2D486A3EDC9B23B -D61F3FD30E78D7EE348A8FCD1FA9C1F47891F67F1913B6986F53183665D9FD6150BF01F9F3DA -D20D1DAEBDBEA79317E580C8710F8AF667C2130B69C69861A4C3DD3EB0F87EB8CAB703B6A4C6 -5D01F872F7BE20ADB5303CD0D839FB9ABBA30A9E09D504E360902F865D76C3F7BA7D4F8B0AE4 -087F33DEDCED0D95EFF149721FFAFC446056549D3C136DD045E949E25F10F274FF02DC0B5D80 -D0825E8C4F13D9AC797F9040B7DEC0E8B841F9F33D73E41DC08FFBA8919951A77F12E6974970 -EB3896533C69E3AA9190BBD7617B0874E9A7ED6688E13D344B5B3F2A805F8FCB0F3B092C8336 -D31123736A3330FB8155D3C454BCD658FEAFE642F6F312901286310E4C81D9D739DF8836E14E -DF255DB0ECB7D8534B70854DB25EE45D495746B44BB8012BCCAF8C53DA5DA610779DE56FAF0E -6E8324E5477F643D72D9D554B213D6AE9FAD4557F00783EBD5BC945C595C9D3BDB552E3D5495 -B799C5ECCF5CD7D69B20BFCDF89A92AEDA439069A5CC0431CF1E2C369CE03BB374617E2F3CA9 -EB52B4AB5A7876849574C3A84B63B4053E000C9CD2CA596DB9D4A81FF225461A812A2351488C -0893C12431FF2740DAF6673BD1149EDFAE413FCEAE47BABC858F2017A5661AD726E0285AADE3 -0FB064ED1C8DB6CAFE5610E6D555F6618F103F00F0FB73F1A8B43E92840BD29870227E7777A2 -B8C5516B4205E241154DEBE166295A7B22A2CFF2DE5183656F6C1ACB51B108F7C8B7AC667687 -D3EE4AB64AA6E01BDB38669BF5235DFA61AD2921BA5B05E16EACD389622F0C6C0473FD939C16 -D8514CA4A9D64F3E1772EDA127E5919B915C4BE4024BBE6C06E9B8272D4AEC868758F2C9FDF3 -704C77BCEE0D21C5589109BF76F26DAB3794D869E6BE3262D1AFBA823DA6DDE55499B648A291 -14BEB69F8B5986122D08245B9F2D2C945587EDC363BE7582841257E08B67AF556110BC1BDA7D -22AE635A7FDE5EADD54650EE2D2F3EB9248A09B6A54BFD2728ECD18DDA85E795B7662956120E -B39D125A5D339CC9004D438A33C4F80529F3A8DAAF414791D60DA97A940928C775A20AA2DCB1 -D31421B631CE7B3A778D93E46774BB9F4BA4277BB4046B3D5FCFE77C69854BFD9FCF8CA627ED -64658353BE4B83561E32A350F58A7D701607463C9CF1A0352BF91A137E5395425324A0B90F98 -A6CC726AE2BA3099FB23744C0BB0B11CBB50D91F72304BEBC10E869B81C6DB2C6D92AB98F347 -603CCB45AC2225592CEA5B55ADE3E181AC6CABF0CE92DEC7B07D31CF739F83E03961AE60F1E0 -59EC4B154FAC3E5FA15B6C192C55D7B6A3523D215257E0A81344C36CC2BBA805E8D974C4BA4F -09CEECC3AC94BF3611A6C35605278C2AFA08384521CC92ECD983F1907139086FE37A7DC1ECA1 -D9A03175281D417B7D06D4CC6DE4C855FF4136782A3B780744DC757EA3AC6C098D2FD248F120 -77C370DDADAED2C7D49488DA021E49C47FDBDE29417AFC8EDD763DF9C4BDE4A52E009368F8C9 -4E663B283D25E7D6D281AD503BF9EA79D00488F45CDAD43BEC7AAED1113B309D7B9E07A22D2E -574E03D11C268D9E5EC5C262B14D45C8693A68A322EF6EA82D1725595B19C0C20BFDBB76A157 -7D1FB8130570A5B96084BA045A49989152702183013F58788466570BB6C77B619F31318DDF05 -BF42F1E33B877C16521CBCBE5A6AE6835B545926C615564777336CF28982A4470A715D53F04E -0CC6E61277E23AE3D3F0894AFCDAB3122549B664DF05957DCE63A3195D78440A9626168FDEFB -6B138ED18036F08DB2D60730579D844723E1B99B0CDF9CABC79CD42DE062D6A7F7B9072C5115 -F6762C859B8C7D16CC18E877ED8BC9A7F65D2765F8F013108405DF82E053D9894A044DD6F1B2 -F77AEC1B9A2B92E2B2C3490B8B4529805E0E89D12420FA82287086DF0C0D5DC713DD39F752DD -BD3F2923B20AD4B09F1527C4A0AE81B459B01371871870E8E7CA38F011709A9C23B4439239AC -1DF13D24457F6F4EDDA615687E3D0EB669832DE8AC749DA8906CE385F2660C49E1B855F9BE74 -13A49C70D1A3CC714A25EE4BC891BD86AE4E04D5B1A0F908DD696061B82E56389248E75980C8 -2F044F4B2F3CA98D388BD446B5373930CBD79FEE7B666637B09D7D0E98AE5D3E23ABB2AD6FFE -FA0F92B75EC08C85F5015960325EE2D69C19AC38754EF034272F1D5A7773DE35DA03E21CEAE1 -B72274686B59741BCA5CDDF444718580EA978AFA10A67EC138281320536139FB16037DA4D39F -C3EB0BA0DC1F33423C5ABEB22E12CD3C1568FBE43A286BA6CACADFA322D558E7496DDEBACBB2 -1F756272B084B46F4DBAACB8B9286461F83592A8127BDEF9DC2130D8699524E4D9E49CB9F895 -612830D9E074BBD57B01BFAE6C63EA31E1CEB5374BF22CC2E6D6690728AC6A5F0CBC8D237BF4 -8EFDAC1864AE294331EAFA4D9B93667C0D51CCA8F49E4E3B98604E553CD2AE041186F1EF8230 -6C9DDB5AA22C27710231B9E5E7E9B0B5345AB6055D9139E7855677B3BC578CE91C6D447D34A5 -B5159B3075902BCA83603817F5E43A4DC27FC131621AE36CB658F747FCD6135404A02A70033A -A7039A3E1CD564D5682F520512F97976B1697CD90C773C790FBD623C56DFAEC71847BB3E9ECA -6BC6A6B242E3E4D57EB6812E1BCC3EA9433180C1995055EB96D26B5C010123C6FAB164D5BBE4 -100032081721F56AA94D9E44F627118AD292E7B9D6C732143B779F464DA5B5586E66776818F9 -0CD1C2BFFF2DB52139A169CBFBE88A25EA3A52ECBE7677B2DB64A725251327BDEDBA3DD6FA39 -F51AF87370B521E379F2424414A02CB09394D821533629C867BC946D81B7A379814049D93E96 -8355582814A06F8BD70B03904595C9CE37DD16D2CE7EACE8F31159C7A21547D1EB67A0A9A0D7 -E666FC627A281472E3614F4DC0C670173EE4881A517E8FA359B8410A967D827928F8509B75D1 -6464EDF26C4540B56506B2DAD01C255C20D3371E688100A609CD64207A2D0E1E3417A6DAEF7A -382E317BDAAB825CC7CF4972A92B7F213F5ABD0E3ACAC93C4FFB524754BBE546C8592E6197C2 -2F3E528C2F438EE1B7ADF77D738CBD1372DE464E4197A25E055DE19611A7995DFC4272B97344 -CE6FFDB7386CE6FDA13B0B64B3B8B6C40F65CE46140994B0C065DC930F053E851670CED8F18A -4BD9EC7811ACFF197A0E2E63B4B028C3EF4EFCF7455F3093D9D799C92E5126108D7AE72730B5 -AED74F1292F99D64F3EDABF2214C295A7B44D1DF6CE2B3627E90FA6C64D109D7DCF35EC13437 -E5032E96420F018CE17122507C98437127CEDFC2C1CF454061204F4F4071CD71E7474A9F133C -09B40618A5D199CFEAFAE8ED5703DAE0D677329885A2AD72A3C702C46C78FEA5D08F57FE74DB -515B2481982B62444AF01819FBECEF784D5634B3938A70D93F8D90539650C3E789DFE2C41DEF -0A9738930A29522DD3AADAFEF619AE21F10819F39862085B48EFC43E49C7A38C1F970E1F6E54 -13585C3BA182014CF26BF98033F41246B520AF7243C6AFA317221DBE5484030AA40EE245C678 -7913C637B39E2576A751E4111888A16A954E18CB3AA1D745E3EE5E429F3E58F7DFDD27B5F036 -21E3408568E2B4380C774B292E76349FA62270564B08DD37BFC5962A18F732E26D7C0BA75B25 -6E82EF87ADC08DE2A8149A05ED5D1D4C46BB1A1D2ED08E2549BB36DDCAA3B8072F52021DB35F -1F5C56B591ABA25A8E032C825CA931ADC325A3AA30936776D642B4C2140CEFF26793F54559E9 -9494016EF32D325023B6496360796DA2B5D34923A19B1743CE26CE14842B0C360BB085C666C4 -37D7B1DE2C66F2BBF448E54D71B29BE19108CE3E6FAF62DA520D4D606C9D4E47AA2992A253C2 -C53418BE69F9EA5E9EC420CF536C1B330785860DCD75E307661674F89F489BB8B35746E759DF -287B7783562E88C21F77144994D57A3EA6E7166055D227061DF6CD2D0D66310CFE1058B8EEE2 -44979F4DC484872DED26F63224624CE5EE601639EB125AB391EA23C60286BB11C8A8E7922BE2 -229CF4C84BB66C4F70397FCFC240A452E5EDA07A2169FEFA3A3407B05CF375281952212FDFB6 -BFAD4AF6A334EE01F4A2DFC895084C724A854B1CF434802358262311955A53EED38943662CB0 -9085B9BE26AC158EBFF978632F746188967E408DDCA896AEB570C334AE8B05041B10E84C6355 -70040FDA0364433A7006622CAA6F73E2B56B5C6E01250CADE18C0E6D8A8142C51C53B83432A5 -41A2C0AF834EA0DA13C1DD1E1DFAB7D7E9830864645F9EBA0A63903EB781D74C585486F2565C -AAE9064CD82A1BCB7347E01D5564125E21920D0F10F48EE5CBD8B99059031A681EF2EC9B8A9F -5277A3D70E43ED1A4B3D4D9BAABECD4695F31EBAB45F94DB70082E5F9CEB1ECDC8B9AF80C7E1 -FC7AF8A29227D0D6F2FE64D19BAE164489AB90B3AE0393379703F786CE3032197DEFD596E852 -E37599E0848DB4EFD3D2519F74794D87D9B2B505CCBAD4EA4D1FC1B3AE3680A6F412CD05156E -27F8786CA614B13CD700E42DA87F0C83878CAE51453127D4993663D33205454A1A4B98E6ED0C -88727543F9C2F7F0C8D4A3AB7269DBD1CE198CCA6FC85A4E116C9CA5721CF4D1F2FCF087CEA7 -0CA873303C229725472A13C69F07D3B7B8E9F75BF292886F97F942A4C3CBA8BFAAFEA93BE2F4 -F6B4092D054337749B5DD799B864012115367D03638ED38A2343DE66AA0EE9DE59F50533EE50 -C3891C786F31E02E1D4ED4BA78160598571479DAA9B1C6FA0943F149D7CE98F2F1B7090D968B -D07F43ADAF95D2387BA778E616F7579799666C118391166F6849214BD7EA96B4B348A0BFC89D -E29081E6282024CF14E65B2068CC4034ECF3F1500A3D12B404B4666DCFF9001045377D496B40 -81833D019C5DAAE5B70334C32AAB76DDAAF3C28CB24E3E5679D041DBC8BFEF4FFAF857C1D30E -A844C451203CCC6B83A578EE516EB034F6702A56E7F0D8BB250382128CB18134075CF0E2D0C9 -C001BA712072756EF8005BCFD0BEC8FED3A19847932646E2224D8A0E0DB374D249CD7C721401 -872C1F4E080B24F9812AD6202AE7C01099B94251475E4E72CD94FEACF8F2C05F802C2AFE1E18 -9CC6E3F820F1CE7EB71FFCE8F39F8F8779DDB132DD1DEBEF118A028AA461CA8B1C980CAB55E9 -B5B08600619FEA31BD21B39C408C65074E88218D9961AE5B4F6B9117B7D79A07B2920BF4CB08 -9B79EF0EB3C3E8BEF60D145D6FD4578C5725BC62ED88AE910B0A01076C2C1F26A84AF354EBEC -757CCDF4EEB689FE9F583FA602D33635FBFFD71F675F7660B47068921A2AC1F738028E9EFB86 -74F0B608620F1E170030CE98E60BAADAA5F372F738EB79638A14B6979D5B6214CBD633BDFE79 -191473E225C2EABECB46E215E4BAC46155B03CBF04FB752CE4B1E4349CF0B4ABF66A37E3D573 -F17361FCCF2CB9CBC0F732D0F4390F127BE3ADF48424A7A9E96B7BDD6F98630789C192059628 -E6C2B38BB5B056E39D6171B040DD48970D4D0B9804FECE457684C2A9A9431C8DDEC6988268E8 -34399C23593D2C240C8BBAB5C4DF9F08F1DAEA802AF740BD9C76586108F08971E376F751F996 -949F5CB72802C1FAFE02C2DF4974FADCE64928153B744A64B4452EBB9B9A2348A1CBECFE6B84 -B93FD6AEF4ABAF2171F4D6EB48252B3F8E6EBD2BC8174A690C0AB32547665938A977F42FBDED -BEAE395328C968A64B71C8E246FEBEEEB453619ADFC32953A3D67AB96DEF881CD61817333AC6 -CA210B28FF72EDD8661612C65BD9AA5458BA2074EBB6CD56E91660A61FBE441262A06939BDC1 -3194C2BAD3C58DCBACC37C631382397ABE59A65A5EA1F6822D620D350B92E336FB47140DD2E3 -C541B49DFAC99E611405A22B7D07E8CDEF572E6FAB1C8EB08158B91CE6E92A7E7080F808B7DF -41AD8F37DCCC5210AAE0FBBDBA98EE418B5D27420E8DDD4C9626CF636575EE9286703101E7C8 -C623B25BCF0317FD7C387D2136A46861079C882D145E07BF71DEA2283D5731D54037F67D9283 -47F5478A359294DA0B939311ACCF3281977ECE5969B47080EC6D75301B19195D25732BBF2808 -02ACD1855674EF6B113E3068F2068F00C8B08E91F5B532A74CC5D4DC43AE172D563C59EC2037 -FC7615605894A4E03505C0536ACDEDC8BE87E08D66FE7E9D3A6FC94C2DAD93AF556DE625E1F8 -105BE9AFAC03E746312377F3EAB2E4BB17CF1B8FB6D2D49845076AD1D5A9217F9ECF878E6866 -031032E5188C0BFC35F33F909ACC9325A26B8750DDEDA979C97F900474BDFF0EAC7759D37E97 -BD543C483BFF99A60F9825B3457D6BF82FCA933F06CE9C9220EB1CCA8A900B53B517B173C5EF -5EA99AA9225B3E01EA21AEA69F7BE72B4EBCF2C3EC3B6D61CF4A501796D1388678143EF742D9 -54AFAD3860F22C0569E8A4BE6F0BD45A4C879A0550211790C41EBFBCC9462E4D213FD78C197C -FD8F659C44C8EB6BAFCEA9C5903571BDF3646168D9270F5F1AB64DC784EB4CD8E07DBDED7B3E -84B86DDFE93BFB3B82EC6946386260AE11EBE75DBD21DDDB7BFA3DA078B9DB7F567C06D60A2D -2391F6BF76A67C05D9415B466E85173D26DF9EB2948CD8F98FE04F9B3DFB8F71B194BD557B1D -BFDBFC9B173A45781F83CE26E83A549EE7703EF0AC3AD8B42C0797FD058B2BD0FB2E8FF711B4 -7BE22F9D335E51BA6B19D01413B3C312C25336FC2291B587763D07D11627D11525F2E71F6FE8 -04C072D71EB2647E6596A82569560AFE29154E057D2B0CB711BB79998372896202516017F8CB -FFB400EB746A5143409423530DEF5671C707348174E01061AFD0FE88F2DC43E9C1BFEE8B9CCB -D66485EEA6E2879211963147A944B7667AC8345CB64815F5CC670B078FEBE341A485B0621966 -57C6E8947AD51524C38E2A2DF6A1D22D4CC10625E9B3A4508F8E783A415EF6C3790A0EF96D13 -B4FA31783B5A44AF0DB56F0D92462DBFBD8F088B87E7B42538159BDC9E8772C31B80DF45329B -EF10C171E804474F027DE84C2D120765EA94C9B373EA8272496A82155EAFEB4C0D83B0CE1113 -D64B375A59E2A224D595F1FEE7AF7A6076C08282F501ECB43D63CF625FFFABC6DA445D19A5F8 -50A5AB81C4E19AFD25B0E7FBF54199F246BAF2AB6E4BC5A0387071AB599045DAC334501EA44E -46655AC4AC793D5BF9B235DBE7477D1E415B2054DD67916D36F750BA46A4BA5D390099A49856 -B829D3F5A8F609CBAD2462789B603F0580B3442888C9A7C62395E57F08159F27EB8AE38484F7 -1D322863489F7CF4B3F87B067C86DCE76BEC251A9BE14CCC178DF387F542A7ECFCAE05653FB2 -89C3F34027767D2578E5F70A1676AD4EDF0D494C3993E7FB11B0158CE511515FF16919115F86 -332ABAC9B4551CEBD687CB1CCFDFCBD8C81206937376D17BA8B18574E14E393D39084762F438 -30C2C79E48E828CF452FA1B89D62D4E12E4B08DFAA8641C4B82E0C75F9FCF10F46BC176C0FA9 -F8D5097BCFE96B3067156F4AC5810A0A9E1DC08D2B417A33CE5884A714B8AC8A7278FA32F3E0 -7AC4F2DE5F36D58D2081B75BE176957A0294698194AA7A406FCE70099B91818884F21E1720BB -6D6F83AB2156B8D3F41750081D31B1E7CCEE84A3170CF0AD06FCE38A20B667263F6251273CB3 -2B10B84D443055704448F06EE3C001028F4194AE6BEBA97AC73AD151A8B525D25B086A6BE0C4 -F1DD96F1A4BC239206E3960AA349A8C62FFCE176B6D65F18BF33B24733988AD2008CAC875B35 -42A982F38360D20F141CC87F121295323215085A370FFFB6F00C6DA1A73B13A70EB674E5ED53 -476C31C2F93945C7673EE0728119833589929200625DB81CBA1C3A9B3B0A4C62738BF7C4E5CF -E3A46611AB144F88BDFC930B55DFEB1B416F42635297408C4C6E06D66FCE2F87D521E721B933 -336AA3AC182E1717261E84B4A35D387DF89D81D67AB12E50281BBE365E698BDE57C261E29935 -58BAA52606EC7835BF4ACFCB4F3C90BFB9F256487DB1C4B697B34109A8CAC753EAB10534B97A -FF0BD0C323FAA90B883236975C362AA462EF02D42EA35E0CB931A092DF0F2BD2920F2348B63B -F114A9A41A78C6CC9BE237C04433DB6D1A970A4F163055526E3A35D8D6E9EBACDEB740FD4955 -ABD561A77BFEBF79FE10088953D3AD0EBAE680E79E256FD52A6468AA897D0ECE5FC88330DBE5 -28D318D7E53DECD8426051496D02EA2348512E86ACA54037E016EA60F00F207CE2572D42F15A -DB84BFDFEFB4E50B7901D05B76FF706D578FA10D420A619D7582BC15806BE9103F8833307F94 -F3348CBEEC58C69EF3743A51EEC6C3611ED38BD64890038E98704A841BE3CBAA1AFAD86C1D2E -E2A82011FBE2E94C3361CE13D4AA5E53E7B6D4C223FB9DF6D760EF0B1BD8C8E559000FB92D94 -4B0027357F85AB16375399CAD7960D31BFA9AF6D72D8215A5058494A8F79E6F5867225CF4CDF -1B0D2EA4A22FD9E00F4040461F85EBEC0D9CF813FFC508AAC93DEB66DA0335045F683925E4FD -CD7C7D794A409C0E7C3AA806D377EFB85E14A533E218CDDC1C4971129DA4B948B822078D216F -ABEAB2941728A657C3987A38A0251CBED8A2C1D1D48BB98916D071809860B096DA0378014C0B -48BB14397DCF452B1C830FD25CB8DDB68AC03A6689CE306867FA045A899C853989EE2B6829A1 -183568D2FCF0ABE950D662DB5AF1578A105A5EB0993E8F4AC0C38AA3112357C5BA4A05487A61 -D677450FB2DF21D8FA47AC91E46B2935633DDB5E0BBBFE6A87C88845C8560410A274BDC06C24 -1B82BF00C40666AAD5D246208F5D870171415994B970A4209AFC0CAB2ED2ED09F44A85B5ACF5 -4EABA2E277481B78B1DAFEC692C0926236FFB4CEA3671CD177FA3B529B513B7DB675D178B8F0 -5A66C9B2B67036D144DE0294EC12E161E2A0AF909CCC4E0A1A182A84E3B4E5C3E1136BFC5AFC -8EBBBF4805E47847CDC005193DA020B70558619557236927EB74DE81164CCA2FBC8181E0811D -95893C46FED13308F1BB57893CE3B29602B14B36BAC9034454F8F5CD300051273FC4661ACB4A -515543FD100133417CC08790A75EE33E9C0B07DB5B6682B03C1A27A82E4CD7FEA22A81ACBA20 -A59D3048AC4AEB241E49F90CD118C9B59819D092B2A906B36ECF289E475A45BBA2E6155A4402 -7B50DF95864ED47BCF43816106D18260AEBC21B29BA9BE1D8F83AB73BFF201939C069FDCD049 -BB309AFEA83AA5070A717538DBE5D4553243A5D1C8F8865ED9005C975A4567D9D686A30AED21 -2B4058D2E0FE38585B6BD0002F1940285E2F34E45CF7A4B0544F0FBC9CCC0AB2183086858E40 -B0007E751EBBAE1778EF1DA3277BE52836162FB7BDAB2731DCD74F81E4C239EDD57AC427FE5A -E4CED707B2F718FB11C4D04727CD5361C55D681EB4E50C336C3B39CA951EB43A7324851CFCF6 -AC875AE40058C9024A1BDDA7A58FD98F5DA10E7729AEFFBDD844839C08E750773FD6DF4ADA22 -46D0AA109FC0436C164CFD9C754C648DABDF8193C54B4A28AA086F795E156E2A517554EAC660 -D5984E1907327F5308940C4E59C3602B4416AE1ED642842566B51E632ED34F310D55C13F9366 -076B4A40A57E43A800CD307D345412B6CA0276044C2FFD6334E616745D8461CB1F297FF8315F -0009FE783DEA1CC5F74F297E0633B83D40F9EFF85B254A8CDEBE2E707F727F38AECEC2FA4C83 -CD2B2AD7F52838314E38C023E8349CF15C5669B7ED30FCFA10239C6772448C89A4B090FF7639 -7F0ED7082BE0D5812E4203E5892BFF7CBCE40A4BA9F30D0EBAB162662BABE7B593F5CFDB5026 -351193D4F6ACC5D19D3F4C14F14737E819E50E89B6A3923AF9EB4B71C11A6E61EF5B731FB43C -A64B95441FC78269D524C2A95EC8B445A026D13734A9C365A1D055D6FCF0BC1D2C3F5F6F1487 -40753685F4040BD4D8859469F9E6EF16312BB68710AD5CD8066EEBC5B3E5CFD1A337BB4C732B -9981EA3FAF0970E4F75F7A15F8C2CE7D9E87A60E3AB593307B759B9343EF63F04FDDC5C75A64 -3C2139A4D15FA745E7AED1E0E343B18FBAEA00562D0559660C70ABC2DDBDA03BEC32FED207AF -AE62E5FA91006629D4DF17678F8BB7EB5F1E566AEBF20B4EEE90CE250B182D87DA7B97DC6704 -EA15C8BA6CC09069F0FD8FDFC295E1F8791B9007C2A65CD579BE51FE803191F13D4403BCC269 -7E6A9114AB0E2B01B5DCFB08B221853B1C5BB7E9A6109DF58F1FBF5F9AF974EA128E8707E4B0 -5BC3B4859655214040B5A5571F80DCC13BAE940925F5A76D269A582905CF0F20681D8A19F66D -58DB65C0326AA29133A280B725FF32CB74097CBCC9D70430C3F490CFBA91AD3D0C50617CE61E -844FF7EC1F678C7650D22A8FF7418B1788436AD44520C4E70AD2E93AE4DB3264E03B00760E68 -CF20902BF5FE5432F49C00646F823C5D4F7BC868B5C5310EC80DB1E4E19115E9B3D1F32BE0E5 -AF425A78EE7D2ACBFEAF4D008512D11484B2613C9AD832F20A314AD3DF773AEAE9A2D666CC1B -F4C2F8197CC85C77A4CF29363D9535CE54A6BC300DB46A213FBA062697E0D879FB67C22F1490 -A122E987FF1ABB3A7D6CFC060E6CF185F6D1A046ABB737BC5ACCD31FDB5F6A5A7B52D3E16FA6 -480E654A3BB7DA34745235415C37A053C5D4C2077F4599D9827170F11E547FC3D36079770CEB -F46479A7D9FDF4901E310A105CC7B4C019A9768DA8689E85269D3C1EC816F5F15A331B1C62A0 -ECA084FBDF0948FA7E248E2C5CB54091DFAD9E3233C1C960675D9486B837EE227FC2CFB37E31 -116E81DF20EBC2942A2EF2B5192F1794E1531967140D99DA01FC39B8DA8CCAA8FE3B5FD7D444 -D088BC2D81D7D293AC9062FEBA3777232BCDA3989F763C5344601900E095F9E4BB22E320E280 -983FF3919244F66EDAF9DF9595AE303B8612030FF910E8EE2BB0E100CE438B298C94640472B6 -33B1ABF465E9E7D5DF5EEE95A4CC9BF192A9101B9377C16AF1FE25DC0FC31BEA21B53F713A99 -C93A665C8841EB1A26C1FECF069CAA1467F290246698DF31F371DBE74F5EE348F566E8DDE0C5 -3006FBB62D9869AE9F5F2E950DD93524826CE22F55A7D5EB96C28E125358C5D36EFC8AD394F6 -40589FAD3B25AA57A998325C0105579A0B48DFAE1674C85EF9F80A5D76ED9859EAA93B96396C -942769C513A887240088E4A99EDB2E7265ED1770F91E6113866853B9B5EF36A5D5D1AEA2FDF0 -C6455595AAA078D079C3FC7CF72AC3B8FE552FF393C54C21024CA6D89FBBECA1B34A79C2067A -3B770510ED790A12D68A104F4CCE4695D9AF48FCADA4D85F041845C0140DB8C185AAB008FDE9 -518A7C1DC7581635FC04325448DFF5A40F0AE20F1462F07313E56F7054B1F67E2ADC185C844E -9FD5CB65400C1479B603F3DFC1C2FD6B46F8DE207FEAD936DCE8C2A454D368031D9EC1042A6C -201B8748BD28C5E861556D558F47FF7980EDD521182F33BCDD9628240E1D4EF9584392FD9B6C -D2EF25325B8BD4BD15984534792A5C4499ADF46011DC9EF1B3FE3AB5EB36F203A41ED170FF38 -23F8B863EF646BD8DD3C8C83ECDCDB9017426FCA248311200FCC3CDF7BB13031FE2602638E4F -792BEE3CE7BEA9C583308B859F9CBF7225504983813DD7F2A4E625D1EB84506582CCE1107BC6 -C63D5080E03BE0C817FA54218818B4894E82EC118E0BAA7346BF6BB5AE5A3B3BBDC37E8C4B8F -FA2086DC22F3C531BBFB518B329F80F8FB4FE169147618FC8ACF78AECABF011F44AF8C88C5AE -C222054031841D9B50226279CBE3105ED2A60310BCBB2182C6B9046E9CFB1367BD91E07D49C8 -FCC43194918ED83825EF9E69527F3C615B3C53DFC5EDF4270791F70777FB5FE1810F43A09C33 -0CC5616950124E596864D74A196AEA306B1D1BD2AD9C288661680D0BB10DD54A83057B0452E2 -9BEBDFA44C53F7E6FFCA98515A72B98CDCADE497D3F5CFD49B68558B333CF3F86483F28B2553 -3F2B40F62B86B5D67440F13EF0D0A33434E71709F2657B6DDC8514B0BEC7682A906E2A2F1363 -4638214FD7CC3971650589CCC0DFFB4DBBA93F4B0100B273E4DD66E0338D12C931B2438C4F9A -F311DEC90F88943A5D20C4D41FC388E68194943A06161E5B8ED0478A5CF044C0F831E4F4011D -1607928D035FD6ADF7D891FE3306E28E7B80D9E3EC8423C942E49D812205B91F663F08CB8CBD -FA2E85B63B6D67786D69989B60B87B4333DAF4CD2585FB66F50EEAE27364D0EA2A8274E3FDE4 -EE5CE4C119A1C409A4FE1D013078F48806379BB255F8D1D400EF3F792D20C48C259571D37EA3 -04D90E51F4E06AC8F265996C9D1846B6CD59B8F33582A4CAEF8207A1F71BAAF3EB21EBEA0C96 -D4B310163CB79B23BFD268AA69F86748FCD32BF6118F0F93F78B3E519D8BBB4B23614084DBED -BDE8B266A923490940FFD4D3C22D31A86FBAB3682AAA194CF2598F83B5BE6B661B5704A026C5 -CFF6A620DF8527A01D27D3EEA645C7262AA3146C19FA9B1B6BF1B0E72AAB0D810835D5BEF4E7 -EF4AE887618C32A85BC90F138C566B6F146AEDA92F9531A9E80120973880D17418EA2D09A829 -5F8B28935FE5E02C07736E368C7650BEDDAAB54F9193282BDAE826B0EB57BC24CC50369EA072 -CE91DCD1E144AF257BF912D67EF4BFC3726F85E95AB4003BDF1CB4F41CCA39C6C3E084658607 -CD79FC8AD6A8471F608B68EB16A294A597AD4ADF04885C2295153C7C19AF72A7FF5C631DA5CE -CC07BE789B7D238F825E6EC773ED2D6045EC52AC0CCFDE14A20C8AC23136C373F8AEDEE55D90 -0B163C2D98A1E18E23C4001D088CD85AB7A7B2BA684303D305D54CEBACFDDEA88326287590F7 -33176559773910852D5A5AEED4D3D90AF81C83B9097C0E01FD1108B9FAA24D183E19F3F5FDB8 -A1E8A5A6B75D93A70282800E1B6747BDE0B6EC9F7116FF6E442C79E656AF92AA2CF4BABB7D45 -4024068C3F026145BC393F5B1D80387908AB8847142F992C0CD9D375D43A673F2A7E92612FCD -50F0C539374B0A1434A636B992B251C4445C58B274A5E40238F93C1B2E0EF3E9D58B763A86DA -94B73CD1297C6FC452B1CF755AF657FE86CBA73368F691F6FE244951BF571049ECD1F1115AE9 -72A33309450F7D5794E81A2CB0A3A46EA86CAB30F82AEE0BE7E2F47EBC69C53378EEA07F8647 -C1FF4861A97B65FC60A1EF0FC8790DD11D2B5CBA0071EB32E6E434D4D200DE11A7AAFBB5CCFE -35C31F469E09733B5B35A532F683F0AC9CC8BA0878A1BAFD714F0CB29A4F752CBE57E100BC12 -49B1379EBEC46D48139A8F791AC6D6DFF3B730914DA3477E90C863E6F689F7000383F8B5F9A7 -73A6E9236BD3E96EE4D96E418E1DD673B9E9169977478CF6B9A92D7CE92B8A3F8B7B38EF2083 -4990F3344FFC213584092CED4B36E393FFE2E3E8BA6EB6CF28FD88E4642D0F1DD4FA308025AC -AEDABBBED5233AAAB36227A25467BB191C372E9B6E0FF34F40281394D04171E230CAFC5A969D -D00C59F3ABB719EC8DFA60CA3019ACB2EFEDA053FCA6B3E0F6DCF9A3C3CED6848CE4B86A75C4 -2076863FC54198036F05EF5A2A9CBBB347FF58DC5992AD769F7073D9CB3321FDA327074827B3 -E97B0484CF3E8CC358BB581BDBBD069B041740E771D111C3A3093293B147DBB0EA89F03B9908 -5A5AB5F5BB1963913615841D5C727226A1EF88824719C3579E921CC89D0B595B55210A4462A4 -6241C43341A3DE3CE542417EAA0028E1A35E417AB4421CF1E7447E0D7936E09CAE9FE4182179 -9B0B233DF02AD6F178EE0BD1222D900F89CAFBB250DD454B12AB53BCDB1C96846F6305053EBD -14FE5E06F88B2333BDFA5F4FE592BF7B471C637526041CD4C1E5E1F8C93B394269CDCA175F6D -FEB1649ECEFA021C99B717AC6EDB244E7DA93D6027E24F75F728AC969D02DA439023E0562E7D -FFE31B62066AB562E8931E99A7CD373914E8BE770540A29450A1C0F1E3878A1A11C20C9CFD08 -044788F28437E406E7086D1F6F8A63D0FCF313EB60A405EFC9CC79B5B74CBE963E56FEFBBACB -288F1A507318F14541D1B74FC5DF2B2F64AD55E2B36BA81852F6070DDB3519968D0ECE2D5590 -12F638D75E3D93F82E1CD81E6B7277CB8446DA9CC141A1CEB32E185591D9A57E83CEF6942057 -AB7ED6289607B048AF4ADC4F4667A5CA980ED732484BFCE097DC26602C7BC059CB60C370F178 -0DC72774EB31D26EF8D747CAE5A27CDEC6E4DE59FD68E8C6812C7EC50271156B4EBCD137CA70 -ECBA832F1FCB7F883B6C188EB77AC84341D3EAF37DDC3EB3D81BCCDB92D720A10C466AFC923A -EED8EA7F974B8CD7B2F427C436D3E86129ABEFEC804F802E5A0612D5C8C829F4750947DDC060 -81D81CBAA47DD9BEDA0D3BAFC51B7D96CD852020D3E817949F226FFDC93256E0FC4FBC8D29CE -79F17F24CE89F476DA9D0D6AC9FFF055B087C9F815C5B62B26DCA11B2CA941422D841515F247 -F15656F68B5445DEA19A2616C101EEFE7AC0243D5E302E3556012DAA567B9491D80D806FFB41 -65CCD7FCE369284FE8496A4246B454E4AC7121A14B894C32E418F9E8D98A425CC72C823AFF77 -71D2C1FE845DF6FA65F7FAA1D92939D2BD4BAA9416DF7AB075BE161F33C309FA99C18C3E67FC -AC44EF8BFE435C8619BBA63AD217D6028D8B13E52C9309AAFAE69726DA87FFDC669FF2D033B4 -471444D757307DBF8F157CCA7C3E85AEF85AB40351158EDF87A67BE741B10F5CEFBD14C32DE3 -B77E2FB99CE8F746A93FCBBB6DA0F96AA3ED846909C0617D604560F6B869A76727259DAC424D -4FB06425C8AD9049F8CEC128484B0009728FB237F3689448B370151CC06FB13A2A95A974EA7A -C942DD011E92DD3F6FF5868B3BF4512CEB823146E4BE2A115403A2E98751A66EF7C726F1D57B -EA408C6D47ADD16A327189F31161E1A8B6737EF07B6E5436D9968111056CAE476856DE1D33FA -D7934F2F8E0A5CADD257A4EA39230B0E8721BA05421B29F1BCCFD02AF60D201A17C4C1436315 -3CE5E724A9231D5D39F152C056D421DED29B8D3148A033B976C669809095B17F03F970B20243 -9C9B5C5A9A470D0B76C50FD1EF6AC28CA30FFBDEE1FA193238B26A7DC65B99A4412D87CCF433 -C376E12F567F1A5AC5702E24988B0B0E8F0A7FC5970FDF81673936207D5DCAF9681001E133F8 -79FAB568736EFEF1EC23BBDBDB16F9989046EF108A0CB15D681CEE2411A4B4443242CAD88E2A -1CECB158A97E4CA98DC137588D64A4A4C24A0FFA7AE602A2219FF2CF955509D5ECA2D3D71897 -C626AC391FEC02F4029977EAD5E4D4995515E39B04BDBFB84D621C357D89DBB10A503C641608 -FDCFDBEA54CBA58831A56261E92B7C760B919BAA085CDA93030EC7D636752F963D06A455CE5D -AF2BD529029987395603A2EF3B272B1D441E888F2C2D50BBBC0674125A5A2E78D64E0D618B6D -31CCBB977AFF5151E0F2158203325D54B945292EC7977E049385F3B49E01B31051F7AA9E4AC9 -78BA2F7C2E1B59B19B46326F2706CCA8A819F7F5B8A6B57AB91B6BE40B396312FBDF99F17517 -4BC36988A26333DBA05F4B034A6EDCED94240CDF61E632AE96DBFE21F8404124B8713D5DFA1C -92C9360A5B490AB26B737ED8985D50A8CCD0A0097FF11C97CD161B41858BFC387A8C8665F09C -F0460B4A7ECD114193245C485060399574ADCA7FEC4C4A53A22A676A92792AC8F264C080914D -331336814AF414ECA4D9E78E54D2667ADEA08BF2BE37663D406EC56E8768A086EAF8613C8079 -26F89BA03F822BE515EC4F78B633A677FC52A42B1116414C50F6ED2049040655451B4FB856FD -4EAF7EB0CE64E4758F9857D8430AC378609383FF3DE31449F3BE10C4FD3540199C9251A87AD4 -F4C95CC15A5F94DAA3BAE07E014EDB0B8517D257D9DA07ED76F178A1E14611C88EFEC355D103 -8C3D366B87882A1F1A56FB274B2FA89746D311B17043FDCB7FA3F6470CB45BD1556F44944361 -57C7D959A96A579F40106719F4BFEFA13AABA22A8D7F6C6719058FA18C5B8061DFE396F0C46B -A47BA07C16505507165C03E2401367F9C8BA1BAEB148118ACFE38383B6A269D928DD2BAAA7D7 -87DA0EC8C9E54F2F09269F691B4892A0EB340018F30D8C9E691C1CC02D6860445D22403A82DD -16A62AFD86C5AC23E5030BD7922D1E283840BDB834C5C574AED1A73A65FC53E42B03AECBAB2C -475BAE87B03E3AD942DF69B039DA26F7B2C0454CBF22BFF8E21AE914D7A4A1D4535D02806107 -0253E0E232F898353CE1343B234B1EB039981747746A134D9B1133FD99F7EB43B85F9A7742C4 -CD67ACE2FC478F1B45350CCF4EE9775512D3233AC9AE0DDA949E606A6B3F7F87E2ED5A98D4EE -AD9BBAE3C6E0680375E46460F6DBAAB3CB0B707871C1967B8575AF4963505E458E1386E6FC36 -4BCAFBF4C29784052FAC4E167565CB23A87F25F2EA436EA6C0F80A35C47587C7530C57627684 -D139705F99B7C14D4F53F45FBBC63B7F40E5C726C510DDDE4D9BE0DFC412BCA6D0EF2F7AFDD6 -C864B8FD8E2C9F29768CDADB110CAC11222740ED4544BA7DDBBD3C68050CC7361E5E45AF3416 -1186200291CB69BA569D5D0550779B030562506041A23ED3C5CDDE4D71B6A905BFAF2B8A3962 -17A0BE31531AC5AE602B32D9886245C574255D62580B28874126B25D948218C75724545D3C14 -5D41E321BB9CDA88A3A04B41A817599FCC549F5E8A5D0FA489A7DBF8C3221B65C6544D6DB731 -727D50F17CB79DA1D98068D84DCC064CF635F114C99142697EF5A92B659CCF6C9783AD2A2AA3 -C4F516FE892AB22F3B9C80D003E012AEDBFB0016C1627A13610DFF036B93BFD9682C6B64B584 -EA3C1DECA22168B4E31FBC16FE86AC4D02B03CF85997E1B1BC51DFC8D1BF03175A4D7E27444D -B7D69589FC45794D5AAAD247CAECD431921785E5574D86DD2D02BB8E09FC1C62EDBD77BBD2A0 -AF5D1929D29A5C490D396F485099653AA4927A4409E0B646543CA7D61B0D276236F3B3C7B026 -E8303D18E1589E954B70F24874285E6B5C461F6596157842A9E3D65C1ABF26AFF2EEA5951CE2 -FAFA401525B1D61A8A0B70EA2731654B8C263858C5335A7C5244DAE8F283106CF5A827DABC06 -576F2C6E27055ECA577CB16E5830AF95CDC6A9DACA96354773517F9643D44B698177978C5B68 -73066927E903CE3835F46E68158A0309D608A8B02D25C71FED9BE503CD128D950B6CF6C8B79A -86667D90393F1B169C7AB5CF1B8F62540A01A8FF4D0EE730E46FA6A61640E48E692131F8CA83 -F71E7D0B39EC9A525E9C2AD0CA3F5149F88D386426D3CCB187932F2446B6C3DF15D2C0878F6A -16ECE915A7D948FA8DA19A6845C5BF5DD21E4583FB5464882E4CEE50D6B970D69617BEBE2D30 -D00FCB4A82E9C2D80AF98784AC62E633458D9B7048047A83C61C42171F28C5E5BB2906944921 -488D3F3FF780945F98E1CBCC81ACA5C458E38D237FE1B348985EDE0E80B892BB174B7446BA63 -F86987ED3BB80F7C8FBC6308F1730325C3493724F3A54F35BE1EF5AC42530A1DCB0A35830DC2 -D42C497A54F9162AF26EFAF400A458522246FF516BC9A3DF1D5EC04A0F42E441DA3E8F811DA3 -0990EC857644934ED64C70676152AF1353340C3C3F54DE04E7DCFAD63E0A9585F3A6197C38DC -9FC95DE0A6BB97C9133C076C5907E92BE797F873DDC02A97AAE5ED76BC008830435139281475 -C728BA0E69B580ED01DC08D23E0754C591B8B2F4723B473B7F6D891C2110054661C7CFEB761B -AB474172F3F9A151ADC29B88E5756895A2480E75F5C06DC8667542812C079C6ED456C6805713 -818F1712E7A3A4B13959448CD511A4BF1C95925237B7F8C09E73E92567DE2E3A688F186F89BA -6204272B5DEE50D6BE2656E7A997C367D1C29D9139A9CF4B1A8AC455B0A2936E8F57E9EBD623 -A7852A64D111E3A476CC83975CDEAD4D006203A4B1588F26280F51FD3E17AF6567B9E0294507 -CE971FF6EBAD076F384D97DF65E2D3E59948E3CD0C6FC2A401371DA54F2993BE3790D18C0EE0 -6AEB09C9E804C0124DC42B833D299DB67DA2B4D5DE4EA1A3D3355766212C2131E3E2801497AC -629688A57A1C0AA26459FC6E5361621C52D49D8D3353FC7DF3D58C1E77C30E5A717DC8E68AE6 -885516D74E1B5004A405629697063D0566B5EB705277095BABA9D3AD5149E74670332D779A43 -6103CD01A311DCEFCA0D8CFCF3B114EA3A835091054B3142A4A34B921BCD5BB545F11D774994 -101EC958C8178DC018A5F7B5836446E2C705A21A4615793A14597F90F58C4F46C4EEC434F9FC -B2341090730B05B84C6FB5698FE3CDAFC83715D0F503064F1C78C70FE2E2C5C6569D3F86C028 -0204B5D77C3A94A0B4EAC790C3FEBFC743055DC69CFDC3A19F2424D67393C3A767009C64AFFB -F2479FC800F316603EF446D77B4F882ED6C4AA8D775619113F97FD04BFA2C5C5D71817366736 -0581F1AAE2E6124E3BEC089226CE74275A1EB699ECE77CEB53C6C4A1647C68D6FE71B2CF8119 -4F82CA145F3241366AE2EBEB87847784EE268BDD0F5F0DEE50DB66B47065BA4028700E9E315D -7FF76019321E45006161093117DA9A7951F34DB22872796EBCDC426DBBD41BFBBCB4F96E0139 -087D19676935FC4D7FE0A5D44FD293F96F64562E2A0F6862E52B08CF83C5016D15600380C245 -EC9E7E6BF05FAE7CD5F084D958CC3722C453A6CF4E31BC4E23AF3F9885103C3C8F8E026F5ADA -B36F6E34FA0C74230D796BF7B406A5A06509D22D57D05816EBA919C9BA46E3FF9BAFF0FD93CF -47625CC414840EB7F898B322FD7253F40838710A867F2C10FC7895B86476D631ABE4F97FAE99 -63021010801D7CD687CD4900A3D1ADAD6370997D1770E17E3E1BB28B9450E3746D270B2D3EC6 -E05C3DF8DB82AD90DAAA6D1BF57E71EFEAC060F22F265B707D2EE62B731905380314EBAB07CB -4F0C85D690BE1B9AD5D32CBC7C6CC5AEEE296639E29A0A4250A15BFC349294258B5410C7C68D -C4533A6AE62C94B032902D42BF6B5179A750591107BD83ED767795BF5C1A56BF7356B26C3B59 -20B6D16F6FC46CBF61313FED419F5D42BE7793F48789B53BE16667D02B016420FD73D1AF7B3F -DAA595FDD0D3CA12C147CBCC1B108CBC2F9BEEA174BCCBE19ED7E6127A4F432F69CCC611DF31 -94AD1A5D28A65449B6ABD954BFF51D753D0A4090F6454DD8FBC876E7A7FF3C8E943106FEEC1D -2FB6CB57806B4E96E23A83DCB672D9B1338753C01FDEF47A135291B573CAE1AB6F1C0EAA0E19 -ACD7792589F7354DBE35AAA82368A08F27158A16502EB1828BF7E8F39ACA4486DDFBDF6002CD -9A2DB2A2B7823DCA9052C1CB254AF7141BB889ADBAD758F1290C77A8CADD8F87043E822C1F7F -161875E4DE79E78F364C805E98432B07F965127DE538C3F56EED26AC5F43C46CD84A52DEF9D6 -32B0A5FC4E3FF4CCD4685B47D792D4E645BBB1F77CC7DF7532712CCE34C52386FB863A878BB4 -07936591320AC8839305228AF3E36638063A52394469B4F46AB0430BB45CC5FC5524BE323E2D -D2566059EC06591908A72F7394D6FECDA4E95CCA417931E0A8676BCFCC79ACD60D9B173F54FD -2690CD8711CF70A7BBBAA211F644F6BB0FC822F59C711B33258FCF9EF0E10B360D68456DB30D -7EB84B739B795FEB8034D5E8123C1F9C0C4FCD5A233067678EC0685FA68458B241E7087D7BD8 -C3C775F3A616FD8F69EAB717CF6CDD04E842450DA047C213924101D86C549E2449F0B1D8C60A -1537B40FA2009017511E8B9158B26BAA9F62ED33FA70D54029BAE885360CDBDEBE41B0A6CE1B -F3232C48BB8B6E61155D149C234A97477493CF7367DE9D3E865286F49B11EF1F548D54EAC209 -FBF0E50B1DC7DD041AFD1E8D053044393C4939930826DCB6C688D5A6A3D2D36D4F6C80B94851 -CFCB42DF4C8E1AD64135B89B427BF69343D45B4BDBAC1FD80E6DA8027F131C4B4DFFC3D88F34 -F4173CBD79FDD6DA598C6E051F92170A3CD72D1E389D83FB181FAB246E92F177AA514BDFC0F6 -8BF4CDBBF62399204BAF083F12F8DFB9C40A7DEAA94CFD8109C22D56479B6881B829CFB908CC -20281424BC8DE6BB59D1DE83DD24286D6C4B9C2B497CFE9F3DE35F106224DFC010381B5EA9FA -E3DDEA7457C6CF3F1D7A1C8EF8D8FDCA5444E6B53D35965B251F0FDCECB4561EBFC37A0D1A29 -A027C42B0679C384FF81ADC4CE01083DC0A22E8D6D9CAAC76AAD3781A45264CF25415F9632A7 -D2DD169A3DD67D046CFBA7B730EE5DB5E3F2AB99EA8301CE349D5E7F554B0453EEE16E7A5A47 -CD114FEB05A35B74D1A9C0EC5F74FB1E35FD0132D5F48E5D96735622339CCB28F2BA8795ACAB -088599E9E5C0C815A1D61412384956D556ADFBA917AC36F91A22B6DAFC8049396F692B743649 -125840CA820DE1A71BE06C3CC2A4B5D1DAD80BF9F9057EE8F5C3A9B2005240B604D867786149 -9C2B7E0F6EEC567B28C0DB3293B9E3F8C801C0F359430F363D449BC01D4D1BADA65736176D58 -DC04287AD8B28A93DE4E4C25A412DF49EEAC5C30F750BCEEB264D0F99D57BD9212CE5087FBB3 -8E4C65FB28057D6489994E84116F39A77D3BC56576BB761C84B3C2CF403677B034B8C1692306 -C1AA270D0EA01ABD26B14A685BFE6C338B3BE4AF5C0349DB22713422C90C6BFD57170F1DA7AA -43856F505ED3E5FBAC25F8FFCADDFCDB432743FCBED8DBE32957F81A1991369A5DAAB8630B9B -408BD6522F929266630C62C50551425FDC6BE738917AADBB53D9C5FBE8377C218816B640AFE8 -D48DE3E3987128A62E17B4756C8D48865036003071F58E9247D376FA94B037A1539371556BCD -F3A6B4180536C41465C5BB93D9CACE6841250325C890BDE1FAB0B37106A680C5E54788F205A4 -3FCDA806ABE81377C52FD364F55880A4A7EF854B5E1F0D312DCF3B24032EB2AC073B187670E9 -592272289C9ED3AAD6BC90D7382E3A80554B57E7D9855E01803A2E8A69689FA918DE2BE2BFCB -C3CC600571C42492F5155FF9CE36DDC1957099D8AC583BF8EC76E9D2781534AD17C753995BF1 -CB348F609E698AC36072AE0FB13510D9964DB58EBA53ACA4B1034284BA27DDF5D23B4A8C8F12 -134D20BB358E2F52264F1D90EC9268A252AA84DA2EA8C3042B9D4851CB107267D8AD60466B88 -CCDBB0E83F0FFFE8A4E891A5DBEEDDC7CD2C93D7F2F402C5B657D437716ED1009DE4CD3F3931 -DE5457AF941EA0A763B5E3D3297AF475370D9DE9EDA9DD9592FB39B41332CE15CAD67EA78A09 -5C1CBAE07D98564EEE4B31B976BACBF3BA9777706EA8E084561BD2982FB50F32818449BC0986 -37322165DBE5C0D55687F495658CC7668D6554B22D625077953B80AA8912D34597200FA64D2E -1318B0AF4AABE080AC6E34B919C4C0D611FB9CFE5F613A2537EACF474EC1520613E4D0436AFD -DC0F1107445405BA0F527EB9293BBB8B8B19B17771BE4369FC52A6A2436DBE9237FDCF95BD64 -35B5C695BA6367690FB893DADBC82C3C8CBC562D9D70CC814CB64FAD5B5D4E269E19EE5A2F88 -79535F556301EF670C31F5AA627C6B9C43F28CCBE996F4B2EA6E22D9B00D0492FEAA50985DA0 -B809E728082C35FF9DBC178E5993E6038E28FDB0CA9A5E02C9DA910BF0FACD796DBD95D86B5B -464861A3D6768431ED7E626877885C19CCB3BBA44AA90546003045321D8EF2AA639DCF52377B -80D18F100680424743880CB75F7ADC7E5AB559CED873EFE5CBAFE7B8D6C803008E8C90BA480D -ED6D4B8B23854E21498427FA1949CC358EC3FA22E15FC6A0B21CC09194AD58D3EBA38E0207FF -83CBE967083C554E1732C94A7EE592DA9ACA59DE193A3FCF88D513B280A2AE7B4D83873B3A21 -0A89F6E611562D201153FD1CFF856CE858CDC1C3BF06B5EBB0FC819C55B71A5391096DFA0445 -1618C17B843B48226189F2D91997A28B371C805E859799A33DF12920CA59A55223545EE6A753 -E9710DC3AD88006B59D74EC96BEEC281188A1F7071877368BDDCA9BDC18348440799C71DB5D8 -C5D60913812FA68D0260B3EE6C8063B7C6751E074BB831F91FD4CAE4F5A7876F02A2338DF1B7 -C182971545EED06625E3007032F98C02E7244E1A233722EBF89617A291F33F15FBDC622737E7 -CF584F53FAC845880D0DBFA38DBCF16ADD36CB3BF38F19008F2D36FADF6A4E0270034D3A3AFD -94F7C466ACEFCC2C1E7C7C1CC67D760D2622838E0960F608E97EA65B5AFA630CAD3A746E1E7D -FE2F60E661BC742859923613999B18720E9081A5A8B8F061635087FBF30BC74CE1F8ADBEFE0E -BCE9FD00684EC5537A0A474BB65EADD944AB5D0B46F67EAD24CEABB41C680B1A5C0CF25D8E38 -A42370ACA00025655BC3AC5FB34979D4487FF16ABB7279B7391F6E965C009C566643A229C77C -B9972C229A6F07BA370243C4B5530DB7F09F9D04FACC915E49A6023C7BDEE02FE8839581ACAC -3028643C2501AB8A8059B9C3A1E48E8A9E89FFB06C7025C247FED7B17403CC52D04FB69EA70D -27820B8A023751C19918CCC043EE50759319E4FBA5260D3AE2D0810843C7F9DE255EC6F83C3F -5E9DCBA11FE4236D1AFF3EF6909041BBC630D0F8B55A0942B0563B3FE9F7B98AED66BC03909A -3C0B593AC3D677466BF55D1E6790763767C8603C5C0A09B5BFF9D37D2A4B927D4A119B3730EF -AC7CCD07416334CE3433F4219B5881ADEF236FB7C0DB9B37DDE87AE27F45544237A6004A9A8E -85211B893B4B74CA8695320A2B1F5B9F74DCA1F36CCE6E0502E4F91E21328029DEB2F3B7C6E1 -1492E6097653D558CD50E4F817B11140F029F793C242FD2CD525075D9B27B25481F536174156 -BC763728F9DBF5DE404B1CFD691531BDD5A0AB5C7A8030888B01CB27D144A49D4D45D6F94B48 -0C3FE2290A45FBC6701BE89DC9F11C3225200EF0898CFC657A1A47074408AE8259260B360D86 -A6335F4E0CF366544FE10F42645DFC80A1090C7ED65770F9B45BA3BF65181DDEEEE16EBF7C33 -F8057336813931FADFB91B626C471259D57B51EEAB22E782EA7F8F3E8600B2355530BE1BDF32 -E146C6B71B9AAEEAD2A604C41692B7B8FE5C918AB45A257E11DDC750A8C01D22F51C5407CA98 -F708CB47A6F461F5E74F12AFF3E783CC8E559821FFBDA7115E7E749BC212E9C6C6EB0EBD3883 -B56AC6401722F72FB7BE674A923D0CCACC8FE9E73B45ED8FB582C68B715827E22E1DEB70F995 -73B4A8150323877B44FF872C27BAE08219E86E4532BD0A2994AF39B1CE6A0102E263A5FFE837 -75E9CD27B115A2AFF6DD1FE68FFAF0BA5F554298FA7C892D566A08B8967E88D8CD5DF8803F8E -822CD54379D5EE4665939394AB950F527A746C07D140932EFCEB43702DB86D4B99283DE5B1C5 -103BBDD82A22006F488D1FF632A66F5F30A10F3CD53FC57A29BE2625E0E17D231B7A123086AC -3F3685D22BB41C04947CFB48654EEA0262CFA7EF951A8B878B25AD1786696A7A3DC4DBE0EFBB -81D6D9BD0B1A3FC4F4507873F7B6736C901EB1FA4709139386BD237F77EA23626ABDAFB0F99E -2E6C5582E3F46F9E810653E63E5277207F901CC47780F981545E8552A319C971E98BEDA1B6D3 -B6620893DBB5E35E3B9793EFDC917410F420D5977F2667F6A20581FACB9782F77754CFF68E1D -026EE55738CEB094B2FCF4A56C27C36A91A245897FBEDA34197BC61DC8B1A390A312E20B31A7 -5282E82C9E73211954CB024E2DDC81DA28F340F8F25827C65646C1C940CEAFBEDB5B572AA190 -3AC3D9716AEE3015CB09BC2F0C2114C842779B548D0A571DCDAB95635E1DE43BB372209C850F -7831436D98744D293984CF880E9892434B9CEDE4823B76978853D41889D815ACD1E0795296AF -3F1A3C10CB20DD1BE4F771756F604CEEADFCC091A39BA398B920B5B5D13C240DAB6D91FDF993 -7D3123BC3321147226679617339066FC8C4F948986114E2B4C98D7A8B09B4AE05E0627A3F52D -1D89A18329CBABA8D571060C4A515706229A48EB35730A89BD527A34BF2116C1B72EBC0905D6 -0AEA23D2E1417BFA09D8F66519193A35E47EFDD11EEDFB31D39F1556E82E5E3169D9342C2ABB -597FFCA432F14E249CA530D1136CB89D77005F9527B9CC2933A867032BA2065B83A868E60CA1 -B5C16F7562F942ACAF8B8B79268AA5F0AF345352B2F6616F42CCC8462317E8B88271A6E631BC -EDAAA250AA42EAE85765843CB73CC6EE4B2AC6548901C8E786AAB81FB6B9D0283AD5C6D86022 -4D7A91712756EEDF978F02A67708EF41BD14D8D7F78E7BFB265720363C0EB446B7D7252A86E7 -C3A6CA8C607D7F56328E1698FED8E8AA0D57AB0FCC970D10D3EF2646CDC8822676D73F3909D0 -834B17B4BB37EE89A5F5D04AD1C994815C94D86B8FC800364801A1A297B54161E1F499F6A244 -9DEFEDF14CCADB5307B0C6136E1CDCF09BF4FC1903C4B13B28C435ADF42DF2EB50863A67370F -8B2E27EE338F31C5053C22C3C03FC0D3203A62595054EB7217930BEA3C4048435C2611D8F18C -AFD925AEE6FAE744893046F233A0F99927AEFD0FB49CE31FEF550AE3AFC5D1BC28DFF150474E -63E8E3AD4B565B26A28106494220E8AD3A9D8C96E445F3FD6CF5ACEBA10D51C2C30B5A1DC73A -5F4F5C54393D0BC2EB50CC845F90941B6236DDCFC50BA7F216E99D920AD65F6D8245B1E08498 -3593F06A433EDEBEBE8CB8B6FA7BA1D61EFD713D01D2D93972624DB759620B4DA3BD18A3F032 -DFB948D0D76F5FF11ED42AE6BF1C0E60C5342AA3EA3A50DCA1B84CF4A71D03B14CC663A06AB9 -FAD87264C1D323D21FA110B36BE4427EF65AECE7A53B9689E900D8EC9F4167C4ADB720E5B787 -78E88701FC2A06D71422DB3798A44DFD426B620F01892DE1D3119002F564A7DC6C1AEBC6054E -FDB5534C33C9BB0069805735098FC987E6BB018ED300AC85DA22DE061EAF36174AEBB3879D3C -6C2F3BB4A38E2A3844F825A2A202DEC2D80DC82EC9B63F361D265F3AC33450C136550E4349AF -0714AFD46143B62BD60BC6AE3AA3220AC0AD7F092A0CA00553DD40EE2F44A853C756F1BD7853 -372B9155A1C992B4F95404487612314CE6B704ED1B93D295258D665B2B9EFF886880678CF7EF -ACA165FEB6C69A4022B85327B3C0BD6CF1940D53B7A141B99EFA005CC5BBD42DC9273D67E589 -DE38FF0D9BC190317E92308004280EC6CA01F67FA2C4750C7DF0D1625728209CB0802465FCAF -F2C6E19C61EF4CFC2748BAE865820D3A1AB0F52834DE5CAC873FD371A8C6E429DFAF3D754D55 -2A1F7D2C479D2003311347E1E6A1D813726D47222F1F1F4A6F211199CCC1CB9A09BAD3431FFA -087724AD0C2059BAFDE4461ADA12770A933090BFAF0FD1AD9D4B7C85ED09A3DD6F1976168518 -0E6FD5B0D832C47D7607207522E07CA5DA3AD266FB5CF0A39CACBEB4E7CC57F76ABEFDDD2FD2 -66EF1A47E713166AA497A1EC184EA51D015D0745F97E507750963D6FFF747EC4F22078361EB0 -B667C2AC17638689E052E1DF51C1305448850F2F44C53A77816B1A1AF9EC35EB48FE5B5386FE -7458F9E981C9B014B16F02D1311791772DCC0285747C1AE3D46EAC3E70AEFB7C0E90CF4FDF3D -B2DF698A188D4733EC28B0A88FBD1ED47BB61B0D0CAFD61FD02A965EA56358BA8C654176724F -A7871DC0EFF4E91F9C579CBBDEDCEE0E9AACC3DD7B8296571F9CEEF41A5C4AB344688AA8F789 -083845C95BA206CC0BF41098F23050FD4A9292CEE158A98D06A64E4C73732EFA4037417BD787 -A7F2914F02A2C664DDEB73E854FAA7A13062F4CC40CFF8D0430B3D7A5D30E38A32473DDD6D0E -C9EFA23485A77859B2E2F04A18577341813F9151A9C9BD39F46E7FBF2C430060824D13F79652 -E9E7FEB6A9B2F7871BBDE79885A1D382F7C17395900697B7DDAA9296B145A50D5D94599C82A4 -0C1EA990534FE9A501C520E6A439641AD2FAE3C91EA148D97A1975675E59EA6936BC2359054C -F7811C28EE56A0ADCA2012D88A23BADD3D5A939D907AE9366C555CD23CA9E17E83D876975527 -C259CDCC0E98F1E800F2A231E28974C1C2B6FDD1AF8C250DE524B0DB557FC2B2D22CB0949E46 -C7C03AFC94F3CA1E14B4AB034FCB87EECA3ECF1BE9D7A11F959E4EB2E69675D70335A0C81998 -1ADE32184B588875786F8CD504580EB54AAD9FC2C7E2E97D47AF0DE112ED63A1E3F180D9CE9F -AC361CF837D7CE8FE974543C8C75D79E1130FCC8163DEAB3C0EB3F33E325A58DF2EB986FA28B -65FE95AF5C8DA0F10A320431D2A09007CF93318F773BD2E03C04E10B846A31F1E12CC1914373 -2487FB99FD03542F3C2A687B97F3500BAC3CCB0E4519AA8BF5AE614F80EBC459860164726028 -57BDF6F216A35F865F89D9637F5570ED23271C6EA15EF1F6C03B58E408C1C3F22F1310BBD78F -098C287E439270B8DBA7D8EDA10C8E5F214C06D1533B042960F95A61987000720C7AF8709069 -A38D57D7397F61C4D10729BB0C6132280AF3F1B5D428EB3EBE9171AD974DB9761F01D8146E49 -482C427A548E1D7682D114C12334F854B002E8B59D700150812547F909FE58C573ECF991DE18 -EFDFBE7F310B3485B9D8333F43AE82A713B8CCED62A9D1246BBEEFEACE8074DE3C7E0E88AF67 -3940A571A95C136265BE83107B220E2F28042CD3A8FB2E47D7629B88610FB13D3330B60202BC -78659D7176A2ECC891E8E1B97C1C76D61495967069DB9C8E42A51BF27E395AF528BF0A275075 -4E94849789D7A54EF3C952018CA57339F27FA57796495E07F1D51730D156D89F7E33C959A71C -DF27BD38F57008961BB37C0E1D742CF754B6965D398C0CF1D18F0C917584B3332859D9310B0A -DCF92344E1E28D45D75FBAAF45FE16D7BD557FE6754F08208B103CBD3A32874BB3BE0BE8AC08 -4480B088301D8F1DE7C8290F36A2BBA637A6BB8D67617C919E97874A3E12751D8F5301598405 -DE7193FA45D0302F11E5F560F33CE41DB692ECEC32C4EEBF45512B979866BAE5B75C70C8251C -493B4A660572955BE825D760372DCC6ED8B3912C2E3DC097464C9B5E142453C38C30C034413D -771DB050DC1BE2F87A9D2E26D19B987E8417581085459FE250BB1CF3A710D9748B680C44EB89 -2A38B9236C5FBF886CCE93468C881494DA206A4C1DC4EC5977BD49B1528F2CFD558F6AD08833 -CFDF249BF7773D96FB08C859C375B588D52F52C8FF9C3B851D667DAA37EE66586DD0F42478F5 -38FAACA250DB56510625BA56359A8B6796CCB3BC77F1F76385CBE7658AE83374D47938A2689F -DB93FE288C858EE4AA180EE9ACA639EB51EF276F08D3F555080565DD8A5C4AFE3E18777682F1 -DE61993055BE7CCDCF7F2C7FFAED8D5A1EAEAEB4023562715D35F296CD10C36F9ECE689CADEB -5A2EBB37579C65285FBA62BAE5EF2DF59A20F41D6D939466E1C59855FFA0847AE8C9596E7231 -C4ADBA2DB549801B9928AF730C4A10CEBD0493F6D75AE52A7D3A1CE194E884B72C907B902A8D -87FAFF2F602092FEA1D382439AF172F4D03E6D423ED4CE82A2DA91F934073763A9464E684772 -7A3C29AE3A3291716B8E9BF4FCCD8EDF4E55D6B9013CEF8B9B05C002E768C95F46B765917375 -0BC1AC014994DDDA3C7D9E8858C47E8812C9B7FEB03B9B300092EEBF6B7A5277EE4C647303DE -D7D8D6C54FCF50BECDFB11DECD1AB61040F6E56C14FFAD0678089D6BCA1B5EBB9D3FF09A6C0E -4EDF2498DD3D4107B38371F2E4C3B4E5F3B7B2AC0F915A89AB9E9F914BAE9A26FE2BC651475E -DB150A73EBDBEB0D25F696968227F3240F42119ABBD26241FD28D7EBA7920AB7BD1D356D4169 -5D5EC0C190E2E2501A70BAC09568870873A47919763D15E0E63FE87BA15DD3640DD779B56CDD -FD0C9F4D9928B0D4CC92D24A56E562AD9908E17BF233385EA0779F8E6C3DA7A7D1518F1B582C -BB6A9B4C59A8733A80893151973EA9BDE8FBC5483B9FA1132E7AD90DA426AB0F671250EC961E -21FBA123FCDE8DE174F2B172A5E2791F43EB02FE8BC731550400E723DB997A33AE7CEDE842FF -A3D4F05FD46747178EBF84494401754977B303B52C713112F5D9CA1DFDC6919292126E5B8C6E -1391D988383EB3FB151526C2C9834707F651F967B7FEF4EBB2B4C1D31546F56D619E9F1B3C5C -5518D06EC55CA8111B0C30F3622946864B70ED98F3EEC10F5609933169BC1E5A0D888FA2E326 -D1C2126217AEDC146D9A0BDF66C49523AB4124848D5FF29F3F76FAE770524E5197B2CDD255A5 -07566E31E2FA1533A55F426F9E805E8A1DF7E1344716BE464CA7CB315F1A88D254AD0EAF6C58 -196C0A02EC8E5C6E6BC7DE8A1C2A2E8C397BF1CB1E42444997E2453D8DE7A79848A98B20F4C3 -ECD7CC083DC3415DFCD9CDBAFD97671DA2D244C4ADB7BFDBB7E9C5D2AC0009D17A090C284CC4 -05CD59399BD4CF94BAABD9FC0E14A85466135FB1ED17080DA3D4C895284FCD7B908F293E2AD5 -76EF26774FA24EF57D89A2CD5310479E36E33C5B9E6DB2C2FB5C0510E4FE9A0508AB7A7769CB -50124CF609BA47E05879931D838FC9BBE7C08E3C4682773A7EEC3D2932B8BC5D6746B0D4D46D -5BCCCCB5CDDBD75BCC5E5F306F568BD2D4DE809046CB77D0061FAF97C170BAEE6F153D1F045A -75E9126DC4F6E5E525190CF860D69405DEB535662310A20395EDA1C026AB2C918CB56935D4E9 -26EFFD4573EF67A66DFD93862FB0733DE72BA2D0AA48117BE3CA76682602C7AB142245A647DE -147D8A57AFD97B5475FD13A4E765D00DD60DC9AD322C6C54DC1DBAA8F8DE600D7AAA3C48131E -7FEECD744CC532576B62DA2ED0E7E81F08E17E5DB3768AB76F53061996C64225E6ABFAB54EF5 -7166EA5A078A786853B601D9290DD3ED270C35DF866A71CA5D4AD43A15A4A9DDE12B3B48E51B -0C78BE950F4268B34AE72477CD9DF89D9860B013DB8B690B64F2C71F27CDF3ADC7C6CBDD314E -2CBD3052C80C6B146DDACF17C7BC939D5C9204A43947B4C5468A9CD6B63E7E9498978077687F -195B2E14F2E069A499AEB365D90F6A176271BC97DE026CFC5601702C4FA958518D6A55F891B8 -2E416B619533195E0E1D15A6F8DEB9EBEFF1CFD84C954E6AD74EE2D802DAC4220B35056327B3 -D016AA07B35034DCBA93D96FD59783AA1D5508627AE138744C0912DE822184213776F3AAF02C -8C6F6A2C8D7B9FD865F6ACEBEEAA082F9D18A3A08BA38B851B4E66B52E2D94189CA460B3DACB -FE9C1CEFDEF52B6873D36900A76F82127869DBBE4D5149AC9D6CA0B593C3B5D40FA439EF78F8 -2C7EC7C7BEE3676732805A4DD915E6986585790626DE31A41D66D1DB95DC4B53B254D452F758 -4DE5B750131A954629694A0BA3DC669B88967F61ECFA09653D2665BFBD2460E8A12C7D509FED -FB0F61AB29BD66A76A5633F21A8A9800187A2B0F89975837D421D3E539FD0EFB39E30D4B2A62 -343B8F599544937613DB1AC5F9AEFE33E7255D9BD6777731A42A6EAD1BCD05FFB0A30E870A50 -D72B7E1AF90B9DA6CA9A7F01604704E8573D5E28C01DBC605F171A79553DB4897F3E1A1923EE -76703C93B67D968812CC47C15FFD8E7E6E6A1F7EC3A1B0779AB9CCAA94040C280A3AD56E86E3 -76986E0B1DF20C872F702BBA10324BA72B58203F865CC6C84537AC97DCB20725312D4CFD12A9 -7F557CF42C7CF9089EE60A661D50311EECFEAF15888F3079622EE5F7B01C2EFFBC917A809428 -1B33D03A3924C062CE4193872D4C30E95191A901E0A7FC61608A190610DC13FEB8039934A2AF -DCEE59AB615551A45E312AD0D84CB99EFD6EB8603DD19C75E12C9EFDB5D770FF27048EDA35A7 -C9DD0D18ADE1BC87086EBD584463A80C397C184299DD23C93E61A6FDFC5013233D50E1DA581F -BD9955DE2FC2F431C366C51F5CA7F46D08BC6DDA5395720AB78BC765F27E8FEC9ED7DCE7589E -B31EE237FF9D6CEEE5278F592205C209BDEFA3D6860F52317DA5EC629F70069E24083CAB894E -EC5CD3310E1D568EE391A045DC8CA11994773B7373D189CE66653EBADAC714E6DBE72606B9ED -930442C8C68EEBF444724E01506D87B44E010C3973736F3C9BBEA07E97337C0EE4D9FC2A4656 -D3C2DD059D73A178390F2551BB8B293A22B47333DF03B52269CD6B0EC08063FA9409229A4FBA -EC048C89D75CDD365A3F069B7883506212C2E0EB035928BABAECB5524315BC723822813826F2 -4A349646262ACCF16A7D54E9A5586C0625B4F952174A6270D05CDAA5F791EE0C5AA5C138AB97 -22A7ADF729F45D12CE352CEA568A8BB15E87C886E0851572A41C9622BEC6406768EA666F7F5F -33031CF6291D04B501A1EA68E54420DE675D073F41529100941EDDF1DBF66B453A4827DE4217 -0A76B431892A2605D292A0E9E5136C346B2B0D1CB6A8626A92AECFF04A55B0290E8FC230DC35 -65A189853FEBD77AAC5E32F95C61689AF2D0B53E1A44336BBCFAA0EAF647348A885A8C7020FE -72F56DF749767FED6534E9B41E84D0D84D0E0B99B7898AB7AD380A814EBB96A4FC4378DD1367 -D1FCA5F65960E59D6BA4D6249A1E20F3E691CAC0388E873654BD821635C538B6609912627D1E -4CE993D39957191D489BED9C39DC3F9DD5A09DB1DFE2D2415BD50E347E6B3AAE64A9496579FE -2A6A6B8EFD4679FB2FC24868831AAD2D6A65BB5D731DF9B8BA59436DE423E17363D9D8277504 -BB558B7F30CE9D61F3A881A5B82CFBE810CC2D0B86A2B9144D6EF1109ED1B6681DF81DA27F27 -3D517B4F35C0A350BBE586781C6324F67EC7E70E790E95E72F7A7C3848B73037A17DE662151B -06178161374FF7093B0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 - -cleartomark -{restore}if - - -%%EndFont -%%BeginFont: CMBX12 -%!PS-AdobeFont-1.0: CMBX12 003.002 -%%Title: CMBX12 -%Version: 003.002 -%%CreationDate: Mon Jul 13 16:17:00 2009 -%%Creator: David M. Jones -%Copyright: Copyright (c) 1997, 2009 American Mathematical Society -%Copyright: (), with Reserved Font Name CMBX12. -% This Font Software is licensed under the SIL Open Font License, Version 1.1. -% This license is in the accompanying file OFL.txt, and is also -% available with a FAQ at: http://scripts.sil.org/OFL. -%%EndComments - -FontDirectory/CMBX12 known{/CMBX12 findfont dup/UniqueID known{dup -/UniqueID get 5000769 eq exch/FontType get 1 eq and}{pop false}ifelse -{save true}{false}ifelse}{false}ifelse -11 dict begin -/FontType 1 def -/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def -/FontName /CMBX12 def -/FontBBox {-53 -251 1139 750 }readonly def -/UniqueID 5000769 def -/PaintType 0 def -/FontInfo 9 dict dup begin - /version (003.002) readonly def - /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMBX12.) readonly def - /FullName (CMBX12) readonly def - /FamilyName (Computer Modern) readonly def - /Weight (Bold) readonly def - /ItalicAngle 0 def - /isFixedPitch false def - /UnderlinePosition -100 def - /UnderlineThickness 50 def -end readonly def -/Encoding 256 array - 0 1 255 { 1 index exch /.notdef put} for -dup 0 /Gamma put -dup 1 /Delta put -dup 2 /Theta put -dup 3 /Lambda put -dup 4 /Xi put -dup 5 /Pi put -dup 6 /Sigma put -dup 7 /Upsilon put -dup 8 /Phi put -dup 9 /Psi put -dup 10 /Omega put -dup 11 /ff put -dup 12 /fi put -dup 13 /fl put -dup 14 /ffi put -dup 15 /ffl put -dup 16 /dotlessi put -dup 17 /dotlessj put -dup 18 /grave put -dup 19 /acute put -dup 20 /caron put -dup 21 /breve put -dup 22 /macron put -dup 23 /ring put -dup 24 /cedilla put -dup 25 /germandbls put -dup 26 /ae put -dup 27 /oe put -dup 28 /oslash put -dup 29 /AE put -dup 30 /OE put -dup 31 /Oslash put -dup 32 /suppress put -dup 33 /exclam put -dup 34 /quotedblright put -dup 35 /numbersign put -dup 36 /dollar put -dup 37 /percent put -dup 38 /ampersand put -dup 39 /quoteright put -dup 40 /parenleft put -dup 41 /parenright put -dup 42 /asterisk put -dup 43 /plus put -dup 44 /comma put -dup 45 /hyphen put -dup 46 /period put -dup 47 /slash put -dup 48 /zero put -dup 49 /one put -dup 50 /two put -dup 51 /three put -dup 52 /four put -dup 53 /five put -dup 54 /six put -dup 55 /seven put -dup 56 /eight put -dup 57 /nine put -dup 58 /colon put -dup 59 /semicolon put -dup 60 /exclamdown put -dup 61 /equal put -dup 62 /questiondown put -dup 63 /question put -dup 64 /at put -dup 65 /A put -dup 66 /B put -dup 67 /C put -dup 68 /D put -dup 69 /E put -dup 70 /F put -dup 71 /G put -dup 72 /H put -dup 73 /I put -dup 74 /J put -dup 75 /K put -dup 76 /L put -dup 77 /M put -dup 78 /N put -dup 79 /O put -dup 80 /P put -dup 81 /Q put -dup 82 /R put -dup 83 /S put -dup 84 /T put -dup 85 /U put -dup 86 /V put -dup 87 /W put -dup 88 /X put -dup 89 /Y put -dup 90 /Z put -dup 91 /bracketleft put -dup 92 /quotedblleft put -dup 93 /bracketright put -dup 94 /circumflex put -dup 95 /dotaccent put -dup 96 /quoteleft put -dup 97 /a put -dup 98 /b put -dup 99 /c put -dup 100 /d put -dup 101 /e put -dup 102 /f put -dup 103 /g put -dup 104 /h put -dup 105 /i put -dup 106 /j put -dup 107 /k put -dup 108 /l put -dup 109 /m put -dup 110 /n put -dup 111 /o put -dup 112 /p put -dup 113 /q put -dup 114 /r put -dup 115 /s put -dup 116 /t put -dup 117 /u put -dup 118 /v put -dup 119 /w put -dup 120 /x put -dup 121 /y put -dup 122 /z put -dup 123 /endash put -dup 124 /emdash put -dup 125 /hungarumlaut put -dup 126 /tilde put -dup 127 /dieresis put -dup 128 /suppress put -dup 160 /space put -dup 161 /Gamma put -dup 162 /Delta put -dup 163 /Theta put -dup 164 /Lambda put -dup 165 /Xi put -dup 166 /Pi put -dup 167 /Sigma put -dup 168 /Upsilon put -dup 169 /Phi put -dup 170 /Psi put -dup 171 /sfthyphen put -dup 172 /nbspace put -dup 173 /Omega put -dup 174 /ff put -dup 175 /fi put -dup 176 /fl put -dup 177 /ffi put -dup 178 /ffl put -dup 179 /dotlessi put -dup 180 /dotlessj put -dup 181 /grave put -dup 182 /acute put -dup 183 /caron put -dup 184 /breve put -dup 185 /macron put -dup 186 /ring put -dup 187 /cedilla put -dup 188 /germandbls put -dup 189 /ae put -dup 190 /oe put -dup 191 /oslash put -dup 192 /AE put -dup 193 /OE put -dup 194 /Oslash put -dup 195 /suppress put -dup 196 /dieresis put -readonly def -currentdict end -currentfile eexec - -D9D66F633B846AB284BCF8B0411B772DE5CE3DD325E55798292D7BD972BD75FA0E079529AF9C -82DF72F64195C9C210DCE34528F540DA1FFD7BEBB9B40787BA9351BBFB7CFC5F9152D1E5BB0A -D8D016C6CFA4EB41B3C51D091C2D5440E67CFD717C56816B03B901BF4A25A07175380E50A213 -F877C44778B3C5AADBCC86D6E551E6AF364B0BFCAAD22D8D558C5C81A7D425A1629DD5182206 -742D1D082A12F0780FD4F5F6D3129FCFFF1F4A912B0A7DEC8D33A57B5AE0328EF9D57ADDAC54 -3273C01924195A181D03F5054A93B71E5065F8D92FE23794D2D43A151FEE81296FBE0CF37DF6 -A338C826464BA5198991445EC4BE80971DB687336AE8F74B516E333D2D8AB74D362C559AAE6A -CFAE49AEEF4F52E28C869222C1301D041E7A0BC1B6081BF728EF9E98F3A12EB2714E7F16B14E -055FE1FA0EEFB058860ACADEDA9D0E4C42E3C6F1E4869471BFAA3760175F3FBD842755A9D784 -7EBF605F18293B42F557FBE2715002669091BB033E1AAD657532F34F7C66E4F04D63ABB07E6C -B9D9AEAE78EDE8B79DD9BC87A1FF445EAA05B5572BB880E69F4DE1F82D7F0E9980AB0C1822C4 -48B0B1722D3CC33C56D525BE03755A5EC82AF2408198D19C35B9669554CBA973B8579CF4CEBC -2DDF326E87C8273122A4D04541079221220236552296DFDF7432241765598C7117E8BECCDA77 -2754C70178758DC510553C032F534785F5638FA17C16263D1E30E12E925456B34E0CBDCBAF05 -B750A694B72FE2093D4F0558720BC494F818AADD0233169A90039BA0115FFF1121BDD2F9739A -06CD42F3A390A6734B9DBFACDD1409947758DDFBCAFC1C03F49304ADF0278986203349132F99 -ECA1F8A8AEE5B492EAA3DC76415AD2E5EDEAF87D1C063A9CB387F1BC36618240AEBAC2AC0C91 -01F20486EC5A7C45006C0ADA0C5DAFF32B7C2229786DF2AB82F1C52BC1F2D1E9F31053612768 -C8F6B7EE007E0CB29D51F9F9C57717F3A371BE7C77F447D396BC6A6955E950FEA43CFAE2ACA3 -CA88B3728106D0959C46C2264C6758FB3D265F81C31C3E847525E24FA7DB4B1F2C11F30C98D8 -2026499D99C2019F683DF2B00991BCC2CCD3A6FF1D3DAA87A00752978F5D569240A394183435 -C8D52EE0546D9A2E435F1BF0EAF7226E3774B4C0D4764C59C2EFBD6D25E599131265B3BC3425 -1195BCA0D825150C0AAFE8BFE7B99623997733D0AAFCF3F3B3F50E596782112793FA8D2D4E25 -F1035BE26260EC37369B6D111E5D5DA35A17D887697D040E85CF476D0EBF14D380301CD0663C -19506D2DC6366CD74FB3D9BB7246935EA85D7F8053559C11FD84A734AD588D928203BAE6206D -2F5B2ECDCA8A53CBDAD807DE265C6B8FBDEE0F063D48BC6DD1A72C49B9FA9371CCD74CFE6977 -C5E991E4609F501AF68806E8F0D29D723C000DD09ADE1FA051A58FE1BE7296DF723CBDDADBE7 -26FFE17263452D57D350994A5DDA341CFAC89C78532BE5AE556C401803DD13EBD270AAD74FE2 -CE66F9C53A057016F30937224F2C4A4F323B1D19C0FE9F832793382DAF02093B29067B30CA45 -46000F8541040D29F9DCC4EAD90691E3775664BA314CB75353952211F2B848F749F221F44743 -FAC630A8F2BA2170C306E87FB6EF4F468F9468147ECA1D1D9E417229E85B72EDA8895C51A5EE -018CED3461181BCFB51DA14A02D043C19330F039983F5B475E0A9CDB78BDB2DAAE410B40300F -65483C206255459B72F4123B2AE28B07CD5C2619D59A69965B812545E3663B766676A328027C -EC3CE9CD3E2229FBF6494B6817D8CE12F0B6EA7171CF5A4D1C75C96127CF8E88926316DA2D6E -73B0B9D3B19C699A6C3E05EFD28074BE7BEC88F7788213F45CF8456D5C451016C10E816EA0D1 -607C33F5B5FE843811BE7EB3A4BD38A1EE1E1EEF050D0D0F6602A974273704AF5EE62BDD7291 -6168B30A91AD2F53E90FED10B86C926B26ED1D0683CA4FE72E37DBFE6033244F75677C02E902 -40C09DD2A766B4FA391327D23DDF6A046B0341EE0D29B888C04112D7A09B130990AF77A3DA6E -C4EE09CD6EB9D4C5D0588BC29B5CE6B8BAA7B68A67C8E4E272E5BC0CF880A38D76DE727224CB -142CA6EB1BA480577C0B56BAAF108DA70AAA81DF7AD8176D0BE331F85750971739BB06D3A769 -FEC24FE520FF36DC07684083D603A9553B52802FC3CE22FAE0DFE57818507D1C5198A08C94B2 -DCF20A30838FA3167871F82CC448FF92FF09E0630A6C5239E552359DDD48FEB01458187A7BF6 -6935481EB34A99BF4BE4A44D82FF142769A3E4E21F426A6721D6205DC9E3653A0102CD22301A -C308ABDC1108E5D7E48F2F27807B9AAC3FA878B8E77439B959E011DE081B15362F4BCC8408EE -4ED392AF505196EE9E5CEF0DEEC5A4E10EBBFB295533C8B7C1DE4BC75D472C614DE57718ABFC -6EB07F4E652F9B37DEF4C5DF378B9D4BB00483914C4FD7D9243FA5C5DB023F2359541BEFEB85 -1A22832CBA91FF208E61AAD48A2C086BEDAAA71F71A0B94C8B5F2CAA3AE971838C3B267C7684 -EEE95280CB209A5802D9666574F530944066BFAF09A5CA25015E1DA41FB7DB6C1CAA59778301 -FD39EE7FE59DC4EEFD391FAF6C9654FFEB7E3CC3CEC766CE0C5D5A949D4BA9163890F0323842 -831C4874A0D710318B0498DE4139329A43E7E969932AF3342761ECBD4337135A116F84E4DAFC -BAF5EEBA5CAAA9BA91E932F55C0C0ED2256D2CBEEDF033EA0B4EE81886AD8649B633F05828D2 -6E87645AC6EB5F632FF740EA706C74A6D6B56C2E858155EF0860274509EA4C41549BA2378085 -58D2F766DDE3C24FF8629102A7DEF274D0C0280C2022FC5EC67F2AACB9F7CDF4B7BC6C293330 -CD41116BA5892FD29560DE9A5CC0796B86DBF6A70AE509A6630A54ED62DC69778C761AB4903A -E3D1E6B202C72C126D56CD1176AD349E5E45976FD590D82A0413A6E449354CDAB7019707950B -C226B6263412726B2926053D502C8617F55CE8D2B07B50424543F8D86E4AD40D2785F81CE39C -36AFA61AEF5D19018B41B1AC9EB8CD0FEA86C5109C1E1234E31BBCA78C21148729CF9B4E1F51 -58EF077D997F375D05AB913DE841994F3EC7FB7ED3CA9C852B55396472D31D0711569D537C85 -5D7D8DC86AA901705D20512808DE7EB716BCE98F90D790B89A3D982CDAA3AF92E0A6DD523D69 -E6034926EE511053253B092B72D060FDA24C94CB77603D369455F80E5A472B3F5BB87A80833B -F87AD8166CB2AC47700BE275EF87720594224E791F746FAC4CC203546A97FC6F6FC99CDE8FD2 -4ECA24BA8A451693AEF0703E9BD2E40B6A76F5714541F5DC7664868FD26F9F6D9519A62CB25B -5C6AA1EC1D4EC948C765361683391D61BD90549AFA04D81B6DDB5D3C3859CD2AB715EC2F0E86 -6CF25B57B2F2702D2926CE225A45152346D890217BDF5141AECE4302FB7B3E5D741458C0B67E -082F4A16B2B52542720DBC3B32D2D29BEE1BD4FA982008F21CB5A8302DD7458C9F2A84C3A2F6 -2EE0DB3691AE088E2EDFCE9479306B0166544F80A74D86F03C1409968DED4EE633E4D1323D7E -FFCC616FD1F128E01E57AC3759B56B38301F001C5FBF2026864BA9D52C27A4C38C67EC4CB147 -2A4262AD1A666F4F9D2C7DC5E21A5E8A103386A8C959D8B18D9DD219031DCE4A44872BE63D46 -FFBE2C7D563A41DD5FAC27E773D8E3622B516697EAA212BCCD89DF68803988EB63A695BF83F8 -40D3A7871CEC3BDFDF534D512F0FD9C038A56A005FAFF0919E4258FBF5AE0B0B99B138D4D9BA -BFEA87F38ACBB0F1F299E08C14E9B94D6DF50C62708595B188CE225977014E571FB631E09AFA -B15962E85DFE2AB62DF7E44B4944F569B29C76111C78CB24392B461D59AC73DC9E875EF81339 -029FBDF2B001316E02CF79FEB4E4DFD726AB688AD2C80F5CD6DE978AD1DDC4DC412C4F4A93EF -112884493EF19EA508CE8338450497BBFC3941538F503F36D3156F63074A9ED4851981654258 -1AE07C8C2EB3D0241697E5143892F2B7EBCE0922D08AF241FD4446CABF1B38884732E51091BE -7FFF280D0B51D14BEA7125C00E7D9EFD80B16A410D5F33E5DE65C2ECC9C2F22FBAE5C1C7DECA -CB0168E9E61301563265EFB098A0BF5BBC10344ED75B51BF5570750E1A72C5DB0373F0BB4D58 -EC54E4E899F953719CAA7ABCAAC6E79F1A9E79C6BB033C0EBF3EF856847A1ED654039389A4DD -E386C95E5C3B4856AED8281788CD7870B0C737EA1E8A3B2D76CDF175B76D7BD9F863A5F97F09 -0397D502B6E1AE80BBC1BFAF360C67D2B7EAC5149424BDE40FFF83874039B6430B8DD580847D -864789096836C66309575D2BF56184725DB1C670C8D694CD95FBEFDC51C3BAC0229DD7564D4B -DC483815C1DAC9462C5053D55CF18D0AD67D30C599746EEF2A6BDA9905E75AAE71BBC3A06234 -01C9D1C6FD218BF1E45C88FC061E4038D5598703DE75FE52CA1D9B0DBD433CD287AE46296D45 -10D0D7230C420C903A15F2F188D1D031C430A859B87E617A408479B21E57A7758381B7B0A991 -906F9BE1F7C0793B34596F0791D18126264945989B3BBE893F04845A241ED464B4FC1F5BF652 -58FA621A5B8A5FA39F6A1A80EBCDAE0E61273D85D4D95C5836EF468ECEC0F31E3CFC162933C2 -3624682EB710E0B633ECC89CA793F7A90D6727CC69FDEAF1FAB99A76007188963E6E69ED7041 -98DED13699F82F909A89959BD37D92299B9A56F3A74DF5D88668CDB0C732000703143C94AB6E -1D3A0C77C86009C66A14DF87965ABF168071109918A787EBCF37A63D6866068162140D60A785 -66C744E580DB91568C10F182F523A440D16E4676CEAFED2B433DBF503D55F35A92671C0585DC -3B7E9B262E8CF95CB6DD1863DCDD589C121A8157BB62A6D643D3B444C5092356EEB47E795217 -5C95DB7D416D7C6625FAD44760B6EE86926D69681721E977BF7012E95CAFFAFE27D074ACF1D1 -E488CD6A7B74D76119F1D1591DD471E08FC0D03FF020EFD15178A90B84DE66CD28AD29F1433E -3D6614010D560179B2380120487B0231742F7489BBA334B252718FB626E97583691EE8FA4909 -7B32644FB2EFF76458C8165392C06748409A70CB3907859B86684352A1833571D04EEA6DC75E -CE594DF320F8AD963659984A083A79EBFFCB0826DC018896586A87D5134F330DEF0FB62D4CA3 -4E63E8F47DFA176A033C09042C31FA1D05D0BBE15E312C31288DD417BA5E9C5A4CE532CFD33E -EB41AF9BFBDF2BE8502E93DBDEF9D53CE0B678D6165C9A1FA9CC01336B79AF2F05CDA64338C7 -6C98D52ACE392AD4BECE7E61C710B08B66F01BE2D1B86245299770D215761079C1780C27E605 -9414950A5FF7941CFDE28DEB141CCF0F60B8F64FB3D16DD9CC8AF1D82B033DE0C348F5867703 -5EBE18CEE388C1122E36EFA2D6EA8FD74DC810F559917308A90278325BCF342A972A9865F248 -43F71A44851AC99BD6D5DC7662BC68AB3DFB2AC6E3414D6A05746948D7D8E22AF3A28723B829 -833CADF65C9B7E60C8B5476F00885B5AA03C22C77CF0099BA7934013E4EDEE134C33D914B3DA -DA17926D996742D459C17101A35752D91CE7ED5FD538E041AAC435A0397EC820CA501CF8F947 -5439165F15863C7C400E69EA3F34AAEEB8FB4A672E4960F3F9FA4200CF4A15DCF032AA02FD64 -41E4FE17C7A7A1C10C5273908582F789820F49AC5E7F3112335CE1F57C12245A1B64AC5F2BB4 -9306F4FD6455E42C803C69D5F5BDDF652EC28E104592134FC77E1FE7E4F18CE55F8AE695590D -42DB64FFB88682A8F78FC550FF902C79756BCFE52B2C86E7EF58D32CEF6D9029DA2BDEF40A76 -AAC2D74E76601640ACF87A4A61DDBE94D72288705106E3EB1FF46EA940355830772932FA3291 -C68A92F3CA6E7F6014DE79A3B68C19398F9972B241071D6E89169353A67205264F4498510F22 -52E2D5B235EFBB58CD9412179804FDE53EFC3A3B966EC302D5F49CA8370F889B8B099DCEFED3 -16B9E97103CADD58D7951E31AA901DDFBC9F7962CDF4D04184C760089F68490757E965343845 -D499E387FB10E68CFC670DDB5C139A96578B22324C6C11812C22A158BC69D9B046F402238156 -FD5BD1E00E3367D8B1852EB4CE3C5FEA539672C28796ADF5F0FB7482E5E824C51E88AAF15A21 -DF03D1EFF8D0C554C5035C8B61C0BA89C81973B6ED527CD9C1C266B63A9D9CCC545EB954A173 -7C6A003ED46B25C48DB19A6B1BDDE9CDEBC050F64C9A408DBE162F5903574D4D01699F0CF1F6 -C172F10AB41ED05011C95959F90F699A551FE8F2BAC74A9D84469D2EFFF2F7A897376711A1AB -CF60D2CC313ED5E40BDBB53EB907894E9EBA53106F0926D377043572E089BECFBE9FB8A3D7B3 -968AEB2437EAE5AB2FE439C52DED01FDDAAF91B502F0B0B0F0AB851CDC2BB1B9677C72430726 -8F16CC148F81D354DCDBD7DCED275C64D6F42F24FC7813318131D2E1AAFF1CFFBD4A3EEAC179 -703BF2991ECC301488C4FC76627F35EFA22DC41C4CD34377445A45542210F539AEAE59AD9785 -25E798E46923724F1827D263761C8531A1427BFDD78613AC3E8C76C78A1105DF25492E1C1978 -D9B75C9747B9B53ADD5A5306B5B43CE972298E48A16457FC03A3190424E13BA5A4335D6FB64B -B02445ACF09017408E18A010665BCC6BCD58E8970673469901000396CA90C0EAFE0ED2224908 -A0B359DFE353E4010495228E84250DE5410443A3559756275B76D0FB648944D3D29501A0881E -CC27052CE37ABAB77E40BD5D7282EB32A2F4492A107CAF8F653E074993D81850FD3B5BFF5057 -0FACA293968AA731005B3E9141BB49D91199580EBFC2CDB715C5BEEC55444236D4D705A8FE18 -6CDE2EFD495A8AE225170FA16BE9B5084FD026411BECCBB3D19D1FC9F12FE56F6BA73F57CD41 -3EF5F15E6275967901E9F8DA061F1825208F96217936651ADEC3CE342F2B220F38DBB492D44F -39EC368CB485D08847AF3F5F20283ED1CA75BEF0F206E9654873A0843515A5343B968B8915FA -9CA8A5475A3C958C85D3745E74BB7FF252248108FF427849A3C783EC0DB25488F6A7E399D31A -495D81083A375A94C6E6164926CB46B2903407B335972F99412E97BBEB1C69C98077358BE9C4 -82F3299B0A361EA83783242A3E8BB86CD1A970C47A402B4A28FB5ECF0D8A4D5AA8C374D256AB -E752B7C07C8440A16C8C3FFC8094B3119C8AB26F4B5973BED2658F53E179BD50D4AFBD4A02D9 -6C420601D7C4809C9B2EF51C721349971B609178EA736A938602932459D2E808C902F3AC77F3 -6F568E09BB9361CC6A028A724BAF6607B9FB3DFFDB428BF1AD596DD72111416206A17DC3C2EC -A888301D1B16D7139B47E7E0FA4FFA2F79F753FBBF19A94BEDF0CE5BD15441A42CB4D8C72371 -C679C8162DE3BC2EA9E5ADF7A89EE2314A4DCB279F22D98B22CF28E109EAEE701E79658DBAE0 -5FBF9507E5DE2512EF0F477E8ED6013E1721D2077CDA263E8BBD44844EC8E3FDEF1CE73BAA00 -05EF3500EB26F2013AACDAC7C2E0D764459496918023CE1783CCD24A1757AB736A973F2AD25D -37A021B77195933EDD3BFCA4ACA4842C576AC2939BEF6378DFC72E6D94F9A17B02B849ADAD58 -5196F9183450C4AAC8AE5A0C0D74BB31F07348106564AAA77BFC3FFB3C7FC23C2275CC4B73F7 -F5B0A4B8776AB49EB30DB50E9B9E9C857E576F14ED19DAE8BA2E7CEB4B56A40B8F8BF8A03F05 -F00669DCAE147750AAA34BE308AD998FB1E5EB574C9A8D7D555BE38821D77E5CE0A262F0B6C6 -BCD592E29C51B842B60A210EE242671DF4E283ABE81FE46ED7DD1D45170BFC30870253593CD5 -03FA21D8D4DA9272E9ACC981A95E47F10CBDC71CF9127CA9F8A74BEDAA07687F860B2040B099 -2AF2965E29A303D347BCE0ECD5FC90F498FD10A4953CAEE366DBB1409027E729BDE02F74CE1A -93BEB6575E43DDF6540BB5CC342EC7240E5BABDEC862DA08729C46C85124BDDE5B71C47AB642 -B3AA79A3D0DAF9EC843DC75C97EACBC8312592925546D047F2BB1EDE24C6AC4346DBC11A9D85 -1DA51AB0338BACA1A1E179F1AF0EABA623864E553A2662F09EFD6AC36D436B89F0784FC749CD -0E31ACD288DA4ED0C81666779F4622A0F4243D324A598399637094F5BBAE597E55E71006EAA7 -C8AAF52FF4DF97D9433F68E42CE70C176513AE8E99CDB21B6C976164FCBC4AB0F2CFF237D083 -724B20BC5C657D4D2C14007ABAF4D66C32D19DAEFFB9514770AF6FED82A8EF986F4F24F9A108 -350FA606066550F6B78171B5124718AC1EB1022B58077DB66E401269146F81229CE2F044729C -12C60B8AF663CF0E87F8E37F31A43D4F747E2619F4752411EC61354347A818A8CEA40C37B251 -270944B0C6682088E13D2D70C17833E542C800AA631FB833A68705FEA8DC01923CCAEFA8F366 -36C2E05AD2DE992A0D507CC6BBFF32C3C000D1AE6288DB3A2F5F6E029C7AD4DAACB1EC98E842 -200CE29EDAEA2173C69C56CCC499415E2258CB9A1E35D7101BA14AEFB162AEBC97F03ED44DB1 -3FC7623589A1804B151D248D02EA353EA834594D800FD00D5C7AA542919A2D9D501764EBA9D2 -B39DD1EF564F9D4A077B526331D5782C5EB5F68377A82E4D9322D0E903DEEB5546EB3A84A084 -020103658B69AFE63B8C151C3B9DB04765FEC5E4A1043B28BF6D5878C3D23F986BCF0D70C0E8 -3B6D78E418C075AB7501BB46D6F315033E46DFB46B082C6FFA4D5CB802B832FD87003D8A15A8 -EAE86D714229942165A6E8E5A7F17BB2A8BCF98679477C99ED8B0B8691D80C6A6A157109DA02 -0A5F14423B508CD1230BF4BA6428F8EB0A47BF617D2C3464E808BC578932AB50AA0300141963 -422E934429B55AE8AB21109A6B26258A210A15C3EA39D9A1AEEFF4FFD68834AA2C2717F295F6 -B3BC9D466580FB76E0AD908B52711443E9E0DD107D2DED6B9FEEA2EDEAF87C9B06DD21A7EBA0 -49E03A221CBD381E69CD3CC117B68DFFCEE2CB06F4132B655608F850121BA8F13883F9863ED5 -EBF2DCF8582E366CEF238844BE79D57D905123FC2354C3E558A4C8AE3243B68807E575BF8252 -5C59497A7C037391001CF63C1B3395F751CAD1CF6546EF8FBDD5C49E45DCD233EDF19056B539 -8536B27D27CFF3B27958BC8F77110B5E4575740703C7E3CCE26C649222C54D0DB11A29B4D4AB -F243FA403652025BDE1023FE6733D3D22848640040DC952DBC2F34204AAA0DDDB7A12B16687A -9B571C287AF080723BAD1CF1E2846FA9259C25AAF391C4D83ECEE4B5D35069215067377B2ED5 -F360AFDA9A7D7ACBACDFD819136DC5EBE7083FB4B2A3A7A514B2214F140DB6DE393B47CF99C1 -D36D450429F903A6200EEE80CFD2097C75CC82179097C117466DED4A1DF21899EA092A412C7F -0E8784846A929AECEACFA5D89ABC01165C10691E5A8C874D2516480AF0AF8C84A143ACB72F29 -D938780E9A5D7E8E478F01C3F12F9336C4ADA9685BFCA4389C1ED9DFC5166937582D985122E1 -72F3BAD8A29C32E1A02451080D389A2753A2B6092727333A200731034221D82739625BCB22F6 -FAF970375E5315D76112D36A29B39B72585D3E046E16E3EF15B22547DCF811E2CB33EAF89F4B -03FBE0352623A03B61DD6FB248825D60A0C995E213B516FC4C601F10DB161E9F52E5C1030272 -A15988ADBC792656B8E27B20EDEDF7B9F74C3CED5926695181143F1B74EE8E938A8D005FAE98 -13905A8006A45E7A351F86C1D5A1BA1710C3E7B4DF588D76F6EC5BF4A033AFA9E1D009B1C7C2 -2C9671DEDFFBECCCB13ADC96A22B6A3A658F37F7DBED64A6B300D00A2AFD955488731898CF8A -1CCA01A417A9B1519F7B86E49DC0FCEC2A7D5696322EAF38332062B1D80FC64D6644583F4F89 -F9567682B03585541DB07CB67660FA8467EB2090D7CB5685D825FBCB223E7145FF43C4037C86 -CFA89FED056BE90193D5C72F521DCF638D2EA65A104EB841D3A0EAFDE9C791397D52D0BCB19B -C9ED0436953D5AEABBF84CCAB142F754D9F441D7A9CA3AB953B39E335CCF4A94A6679022A24B -09B9BE7FE382AADAFB244DCDDB5E5ED86631043CD45C0F41DB788DFEF6D89AA771DFEF88F2B4 -7AC73104F5F60D679A5C310B6F0201C08B5896FFF2DF26A12A25C35A1D5E508AE3BD2F3FD08B -FB844BB1B1266C26BDE6DCDC846BF28E7933F63B2DD5E3F64E570601274FF03BDC59CE669D97 -E4583444B5191169797C204A0CAB0367D34D3F0E5772ADE0B350C76B87A9698B03EEEDC987AE -4643C420E961DF52AEF52354700B779567DA5CAC4DB9512C69581228EE34252B420A0957373F -2F5C30D081E0EAD8FA11CB338A668B4FF2738CB21128598B3E96B350AFC54DB6791F44DD974D -6B881D1F57B32F60CA79144919DBBE8974C89F595DE3FC864F677F2142A08FB80A90E1E203D9 -1D770B8591B02B36DD526328E836CC55B40828C32C3E714BAFDE7ABDB9548BC58F28632208B7 -8BC2411E45FB4613550F79F1D595C10D9D67D13508A630783795E741EE4E969018EF56F1E7FF -C62DE061CDCE6F4DD0881016142FB17EAAD4F19FB202D561DAE708C7884E8F03E6340003065C -92FD3BCCA61FD8EC4565F8B662D5BC2FF7B77746EDB6D59BD4BB713C6F7B07A4DC757E59972D -53844BE23EE4244A76684D26E40210423862D5593945FAD5D480919F165D202ED9783A0E8589 -A5B4CD3FBB07839E2567FD43240609D9D626EBE762C1F07250F93039505B7D7519D8AC132342 -3EE68CD04D05813C613BC52278247560D8410441D5F00ED6023BB83C4587630CCE0DD5AD5F30 -1017525F1842CDEA38F6970C24F91B249D0199ADE0315650C897EC34C39C42AE18B2486A79AC -9116FF055553E9479BADA2525BC1805D80C3A293D1D1426C88139548F7D4E3142FCF1E38CAC3 -BA44083EB14AE807774BEF7A29F3BCE51275AA6356957F61F0104DB6328D942B899E18225686 -5873A62CC2077F1117658516E36D2910C11BBD41452DDCE22C711B1D5FDDCC066F0565835A22 -569E3C248F20E5798C6CE31BD86B8DEA585F701E38836D5D8160B759D5317F917BAC395BF347 -EE0E684FB403F7432E05FE75C96FCE732F5F37D178A232780D7C5EC2FF260C13FB3035709B1F -4316BE13F5CB4A333116CBA43E07365FB93F78B018440CFB5601F292B65CF6C98D9D20AB266A -0230DC6FA40215CAF0D106D88A2902F98A32A759F6AB840745FFB949A2BD2E09D2F43E3C6097 -DCBEC13E5A1BCCEDEFBC94DD64EB5A1730AEA73B4DBCF16602E536B4FE23BBB4CCF4993FE9CC -96AA891BBCF4ED4F5D8B45C420BB87B9DAFD95226A5F66A99AC291F95C315D1DAB810DE801E1 -F3F3AA7F98F3C1A7D9509E9EBB9BF301AAEF3D56E8CFA8DCA08AF468E9A531BF9545E1E2B89D -49AA5580828D07D82785FF808DBD1EF28153FA3195E55A628E43CA379BA9A0D5494E64CE5555 -7CEBA45B4262D1AC70A0E12A5BCC76903EA861A162FCA9B17CD8306C10716EA5FA1F6445F8EC -74C9DAECBC70FAB94AA4DD097F134BC455C9B52B78CB41F130B79C4376DAC3568AC8290E1D38 -9ED3FC465874009F3E4436A01DEFB2438D5A149846056122803C35397DD1B6B4FE9CD4C3078C -8479C97152BFB84E4AF4B10068112F4D8C548E10FB4B34A23A55E18CE8FB41B9EE385B3E4298 -6192507EAA5FF2F5346C65782793E9C7348CC0CBE445C9127E26177DFCBB228440005ADFBAF4 -7C93F8F55515CE2F196B3CC1A29FE84790AE1C84A043712D2E05B3DB81D448C27D5CDEB93BC7 -3BA7CCC4DC802581077FD4788B2D65B29DE6FC81A152412F04D90F3F8AEE3A9A1B36A18D0A83 -30B2177331BED4C4782E037A44C376B884AEA4A6B28580BDA1B64152B9774CD3A3045D86FF3A -D2E79821A8A2FE3330AF8B2FDDCCF219D038F431C7D4870C94DCE6EBA37DD5EDC52AE37959C7 -01369326E6D497E599A8B9709920C4E118A5C312A891D6F38A2FD36C6D270FB7E694DCFE132C -630C4F5307EBEC9632C007621D404A349A1C3AF3D716F4EA4E8B63AABB02DA6A1BF089F29410 -F0FEF4D283C49BDFA37483BC38D642351FF32137A365D27AD9FA50CEF1547039291AD934427C -B0E5E48ED38AA961E7B429F31F9E9A91FCF64AF817D90E7818BB78F7C7CE019AD9A85571CF65 -E9EDBF9ED33251F990E95C579F7FCE1EC401B6B3C208A951BC060867230B30A65146006959AA -0FB365CF97AFF757E45992CC5944CC606EE86D7D654CA56C3DF3C515E6315603E442F68C80EB -F1B61D74E6F1AB9072D9CBC7793395842E8AE48EBBA30D4FDD1D8981B1350AF4EF6732680FA2 -0E85D11B6E00F43205908BBD508E52752F7011272AB7D9C6D566F86635D43E37E76D1E085652 -D0B327652F2CAD40567B7814B47E09608AF250810A1AA74CEBFFB1A56DF6D47EE5D5F689F78D -768EEB44EC9DD04F7290B8C8B0D8E781038A8F6C6C5493020A430FB7E264A6B7D93DAAE51CDA -74D8EE11DBEDD36EE9254F4F02021D9B05E1EE4B1D8FC3426A03951A2B8501DF5834A2131F43 -C32F83D2AFB8423A7A4BC26D2437A5138DB8D22D461C134FECF24E32D1E53ACBA6FB56CCED7E -328AD7327872755A127A6535F26B37B8E4249FAB868062548D0217AE99897408913D07BE9848 -6A7431C03D425A3020798D3660C6E5EAF4C0611C0A9796ECE76681A76AC44228FF3ECACFB243 -AFB6145B7EA08315B58D90A46EED1C372129C973CFACD597F3CF8DB67279D87CC0B0635B677C -7B71793C6A733D8559B9FD719F5DB889A6C186C6DC9F5F145067917D3C7ACBF06C11DBC24385 -E32522ED088D8CA3FAA148B111E0A29A6093B47AA3BFCD02E49CB0D28608E956E113D354C6B0 -AC52CB82BE70121B513B743808C9E208CBF77F3CD5475ADC3D0D7392F2E84203EA1C1CBA22DB -EBB4387D11CF89A497FCD1B615A93B3F5854D998101933906D20A80EB73B713E1BD9108C19B2 -F19D8376788D4F6C62FF3330618F3BF6F4186B901179A20C9759E30671B9F562A89763E123E2 -C7FE18FD607FD6CEC982517EBF79E0BE46A79E368A0555AE3FA06AC45C5D405C912EF1F70CC3 -89FDC8AB254342C52F62B935820EB1A17659345ABA69F249406E363A6D8E0CB28D0AD3120874 -71BF13B0C168353B82CE6D77B6124C8DA39831EEA0AB4D61EEC73FD5CC692E0917653D780E31 -F59640EB59FE048265BB90A75DCDD5F23B6DDB8E0CC84DE31DD8FA6DE29132A07E4D752DF402 -C7719012E12323A3FD2C06645FA1EBD1B7C3DFEDEB98B0DC8F07E8AC1F9F3E8640586293683C -3EA099E7CE21F3AA9EA176845C912F1CC067AD18925CC91D2FE238474BAE570882BC4879CA1B -F89B535F122BC5ACE4E9B14FEC712127CB4A0ECA5C0E9BF7B8A1E0A35F16AD988F2A0FB964EC -31D53C5E97FC92F6FCF8E7C86B52855033E9C958F2F64CC562B10FEC414CB08DEAC75D24B87D -4363C3343B22831B5EDC26343366DCCDDEA1119A42DEA7E290CEBFC6A617B16DF88906188947 -4CEE64295C0A3D38796B3F172DBD92DE9BC4F6A1883875C8FEA8B19B4F9CFC0BDEB4768DD937 -4AD2F06570C474B0B4B60D08849E22FAEE57705F2B272F790F3FD0746FF4830BF0EE54F04281 -993651BDAA622DC95860814C654F1C139719A96D675ADCC34D1A3FD4A873168A75C0D16D5EF4 -C07E847DB4DD4ECBCFA2D949AA3D065681CD1FBC31D8B4E31E477F6BF14EE3B2D7829E7A11E7 -F2180EF80FF723E1B6EE98EDFE61F51E19885DDC1FB0C1B7C02FB98E82DC79FBACBCA421A204 -F8D5EB60348CCD3BC4A54E6E6D35DB4E444CBBC593B342CDD175DD7C4426E19C136B705509D2 -33F95BEB9CDF32231B3C75AF1CF7560C6E26D68B73ABE11245B9B168BF65B9DD0205A278FB78 -E804AF1A008F7913889CC49563CEC39A2D9B88ADAB5A356C4BBAFE68368508010F771CA36A40 -6E8697F859C45474A958EF860556D775A0AF025E207DBB2B72CEDE1EE73EC2B8335CB1970AFA -69FE39D362F97CC4986D3D9602AA08DB533E9957ECBFDB83EBD61F98008612FEFA29E1310ED0 -0B8CA7F76EE33823FE7301F59BA4628274B1B4A16F73B1A1EC29E2AC3B372BD8856B10F79BA4 -A6EC5F3D4EF7AA7FB140306409FC2824468C7B09B74F5EEFD116757567D4F68F6D3699C1564F -451925CD5B0CE68F5F5B4C3515773F1BFBB9645CDC1EB33A72256863AD0F4A72BD8B7B34EACD -B144EC0B2271947B14D692C47735F79CA751613FD2C27A6FF7D3534127711D719C932ACF1E58 -01EABB116C0F925892EFD89DFF4C33771EFB4C22FC9213AAE66FB5F11B31625B095EA8C295CD -CBA2805671F6A629C7A18F43C04F29E6BCA89A11108DB6CE7009134DFFD18669BAD58DC9BAE1 -7B4B965FA2D2B1F271D9DCEA9A5A832C33CC8A5DE23670C488FCCA867EB4A3A6D65D8E9DC072 -523C6B8467DDC695D271C8389B662B6C8E3FEBAD74120DF68516B7341A03BA2E53C5D1733E4B -8FD1700866F450BEA88F82B94F5480E9F7EB869DEE2E0336DF3CE81329A095A0325A16F97EFF -B3C0C937BDBABDABEF455497C04270AD92A5B0ED730B84ABC90D75A72FFA1A1FD54D82311146 -4A5A4BDFE17EF097A9AC68499A67F9E43C57BE3EBC58A59FABE951353AF61C88413F75DCE34B -DAA291AAF2C9CFC99E3D87DE6E6EFB6E0AAF55DE6D9FC7B64AF9BF056C134CDB7DB0261D6A2A -36B2005D73019F85DF5E196BF96D555FF53B4E5A9ED6F60A6488A009BE032F311C74C4E8CCA5 -7C05D9CF0CBA4926E5A98F7010A08A5E0322DCADC728A2B46321946064B175E286F8CF56D239 -D9654B832380D5BC0DA8F47A54A77CAFDE9C095B3CB82FFE656A5AA8C4BDD4D9341E977038E9 -0E0A0F7B180109D225B301665BF38242B8FE70F2920852AE1DD8C7B839F1C4F3630F52144657 -5C388368F9DBA8FB1CDB21BE446B41D5176421D9E9FB890308BBE1DC94FD7C20686621BBCE01 -057F6DF6583F1EB0A232B20ADCC140139ABFB284442E805EF9E78C33EFAB7C3AC8EA8519FF05 -4A15BC5FA2EFD466B44FB543664FCA8E88C859A8BAB812CAEE9B199E70D1933D05C41C77912C -1E24D57BEF59849D52B3FC46F57C9E470B88DCA0A2142C1FA8E4FB5AA49917B52DB23C836FDE -FC4FA450BC34131979B8B4FA74B96508F211C1F980126411778DE3295266EDFB37A8C96E51F8 -5387022D720B2EB1A7495552B872E77F63FC9C6FF97C1AC111A1033005D67D7AD2BC779919EB -91D5D0C166A1ECCC836A732EB0812ED5043427402A0BB1130B447E0BA57C353A291FE9E5681E -71B1B47F0F118DC23627B18067424F0A8309C9B92B8FF49C5951C635C5AABF6C3D857C116EB5 -576C4F164BF1F2120197E9022694A400521F630A62C83478F2F7E2BCBE58CA28D6A1F3E8FF6A -6CEB35B128D849A8A5D2EABCDC92D48DE326945459A9522EAD6F8351E98B17696AFF88D9EABE -5163683AEE306C65BFAA3383EC1C2E9FC540B47AD58BADEAF18FDDA8FAD4EE470186B131F05F -AE1C64227E6BED78364BCBEAC21DB104820B6D529DF9ECAE1C8133201C451426F0800AE6EB9D -526619B5A58A3657865FA2A329A5DA34CA8CDE231D4B27725C06054A2F236F61B57191FCF7EA -7C7FFE5F85EA02D5562DD32FBBFFF16C93B9F79C0AA969DAFA82C77735D0B908953EB28BEF26 -A9BEFD73C37FC8CB45F44350AD9CD567C89F8CB26D7034CC1A00FDA1918D1678186D43B8E0C0 -355B7090AF9EB62FE6214B96559EA1AEE0976B65D23F69BC3D8C055A26AD5EF85BB2E128B095 -BD5C22D01F1C7F4AC78A714FE8DC48AF96F5781275A85597BF149C76ED8139026D0E84D0AFFB -5F197D7D7EB0AF7313BB2ADAA54FB84332CFA0F1FB5EFB43EB4645D9AADD62EBC99596772B57 -87C458144BF3CC3FFFA8D4EF457F7E1A74CAD7DD57EFE2661A05827CC2820ECFC4B6E3F3E5C4 -09852F9C004219582DE486240AC8136A670FDB15D9FC56A8FD60C221220D95D8015C4D336170 -DAF7F1EA782783E4A361E7D5E4BEB270DCF28993CA8466CE293A2A50277C821F635621FC222E -7218E801C3AD05E9D355D6B389013D74485D865132D18DA2F7A898F58527A90623884DB20AE9 -C16D62ACB1A6A32DF5A2A5A2445069C983FEC44105649C681D49EBA252994EB2171F38A6A32A -62C3BC5BF299E94C54ACF4B1FF863FD3E8C4F3699B2093605F8A120A04A3E034430D9FFBF121 -F8259E7E4B66FD64A3672C7E66C45879085FDBA551AC1FE799D64BBE0149A4FCDD3875FF64DD -F03143C7DCB6921C61A845CA1939BC69FCDBD0E696CDA18CA4612D518966F7A585539D175068 -238090E76E2B50F8CEAC930E39945A5EC243D193CFA64340A3285774119DB1AE73C82D2054B5 -FC5CAE8D7F141605F1B865CE8648E995855ED6857E11D5E8057A86AB9B821DDA4CDAE1E0913F -A673E12742F4BB41AF3A8DA7D0650CDE3A5F97A1C2801C9137326F7BE810B48C9C6E7B400F96 -865E4E1BAA2057CF637EBE5C01B2B81587BB87189E073D5D5D911F077A97BCE49FB8A05D7A38 -9AB64313FF5C1A26B2264DE539F0011D0147B919CABF95E2B555B67589918D56C902FC086E79 -CAB67C02F26BADC912E96886D6DB1D9827B65914D32878A59F73D57C151D1046991447E43044 -3FB4660278F9682F19D138A43B8B06312985F1DFD67B11A3320EFC97D96B2DEF295B2D20DB90 -C0199505E1DF6E24102CDA84D89B064864E0B73C81AD179F41980754B59A2E89B4D5213BAD7C -CC491465D53AB7D304F73B3C15F30BFE319653A10237C2E63D9A994CEBC6A4CF78EE0F17114F -754B54ACB51E7CCAE79B42E1E2D5A605AA37712ECCFBA941D73EDF33249C487688785F1B7534 -35373113C272843542239345F33D380D5C474F80D701D8D834C61BEE1B09D0951B48BE6B616D -24C4DB4A1BA1780AC42D5F41FFDF83DC4173468C5C042AAE2A0590377EE1A62F2F8EB2106953 -9C957284E5F9B7DD27A8234966CEE18BCEEA56C4B552CC3446B4496EBF522D0D629ABF18BE00 -95989A52AC3468C1A37B9B202D90E41E2C3B94BCAA528D9526E12EDCF6ED6A32935CCA231D40 -DACE081033C26418C740B8C5CDBE35F278303C89E5F692393C4C5B6B0D2DA7BBA2E4B5CBAB4F -8B65A4185831AF11DAE9C4938B25E91EC9A80195D4C3A837A51B3D80EF30749C401C6E122DAB -05D891CEDB5A0AE99C5F1B336ADD0AFA9219A994A23974636A2D0A0AF45C160C39D16C076E4C -606F4ABADA6D331E1BB1685AEE6E90BD10C40FCDC690C85B9D644CCDF0C3F899203C33DEB83D -14C5F30F6C5CD9F6C92EBFC774E89647D12867BFB96E9A1E84374BEF328A2B8728DDB3013726 -EDDA6E55EF9697BDB4E2A5E9F790A757990F847E77E374016C7A1C0025CB41DD1A493A88B3E8 -7F5B2A783876108190E12E552618DD5B249964A0820544C0A27770C0D0BF7C529FB532510F91 -419F89AE283E0E9EB4FE91290C43EF1057DC967A87EF317FE6404A749EF763ED62382B812151 -5C31B1D83DBBB1B50AC4C9521A9136724BE6BF0BBE94F17A8A468359C0818EAA24823BE4D8AB -8884680A868BB334E34D6CE8E4E89D4F302128D2C87A25D75121325AFFBA3408B611C543FB63 -E8D6153DBB477031785246A0303FB13ED66E2C9947E4B782D25B8D6AF0900AB60FF50665B785 -367C5275EE2A3B4A10873700048E91D259514769CF59D0F67CF849EB8237478877983C1AE891 -4474377312217F2839962EAB28CED3778ADF09B8B1BB2CBC486EDA913FADDC1A13A1015D27AE -E37B3691390F56A5E7DCD0F9658FCA6C5D4FC130A278B360B5165500B6F556611AD71905E898 -B8A09A02B3F3690A2BC18E45992864F6F5E39A09529C53E5424EEAD0192BA80A16E2D003D77E -03BD5CAE5319821EAE27363136750BF0ADCFBCDCE79AC5BF21144A2D7081A49F734AF3C74491 -41B99C79A0FF105E83A05845FDE5FA449682A71AE013B1872F08F77383D16AA7BD350172F187 -2D993EA6D193F863CD25A0E419DE3F0AAF977FA80717FBA232AB9A1CBF700B13A8DA30F0F657 -4ABD37294C8A75C636B8FA7CFF6F898BB56E9E51FC336AEE7A44CC038011FFB1B5BCF02CD12E -5E38094FD90B2B253E3947C9A6A717751E5EC3A80D1DA3ABB360D181E17B02D9D9EC18118EC7 -A8466AB3FFEC386BB19F22EB0E300D75CAAAD9F0CE86463ECD5FBF3C545EF3E12CD06232AFA3 -F741EFA923EF441A1B18265EB9F991D726B92220AD5018CC579BF292103B85D8E67A49367DC0 -88289DFFA899E39E463B6F7B73C4EB96AE199D9C500E86150D8B2302D625F83868C45B4F1400 -4B4D78DC7389AD40E728B50E144C94DA23D60FADB34AEA38E60156B809D320880A689AEADA6D -EB238A87FDC4AB64C675EF6DB2C5CEA0B09E1F7BD1143ACF53C0E10CF46656FF339A88A3C69A -22C496339F4D3920701C28506A1D5AC4F9982378CD299697655B1EED4178DB8C8D63BC9AA0EE -6EECC5EA5B02B7FE89D84397D570983D512CDA73E332EAEDEC039A91CCDCF140A1E8585A4BB0 -71403FB637B884B15F49A2A5B867E5A51B42D2A8E261BB9A0C2B838FA7B0935E16D3AA689E65 -E113E507CD46A17AB59E8D36D8F6CFBE3F0C4345FB43B48FB717E822B09054F4B58F84C7F0DD -9A5734CCBEDB1BF25249F65931A8A347F73C6CAF96FB0B54D1B276C7F048A26D97656358D641 -D79276A41552F7B426F764880B4D3160C54EEB36C9ED95D3D9D60708ECAC804717F14CB4C8BE -6385FF3303E39BEB2941F4BAD4B17CD819F1C409F53A487DF581A7669291A40DCC178DAD3D35 -670FF1346F9677502528A9EEEA1DBEDA58D3D6D2F1399EB1983B614F34AE9F606C012CBED4FC -09B56AA2BCEE8F3BFD97782599BF5359276BC8C10E5D6587E7FBA338031B016CC648ED235C56 -FFC6422943F1CBE4D96B5EA9CDD8B0989283B370EE8F31C0B313A5F625665D3FAB8D59EE049A -55281350AFA4BF7F1EF3F66B66C2952B4703BB0047C7441E8DDE7C762F24AC71AB9B4FDE5AF9 -823CCE959FFFC4FFDCFC451DEECDC721DEC71B7F836EDCB012BA032C3EFB399326257C14B2C2 -7F15D5E8E0B599211BD4D8ADC2073F04ECA55AB296222C01933E9FAB28DE77B3565B75D61B0F -A059BB1F2ADB73A9FDC02DA805F6EB9E649B019A6A6B92777F5A5D7A0B2E53B165973433ACD8 -C8B5F00E89CBA08C097DBE565D7DF2122D19BA16C4BE96E2F4717288C3AA116C5DBB2129F39F -09A10CBF8060AEAD51068295A0E67A9F2CF9A3E102F5DFC08BBBEB3BB5C5DFE6E42750B50964 -974EE6BCF48C59926FC961F6B5CEF2FC38E5570528ACAF8CB13F77555CD30BB979303BA7910D -E2C14A24FEDC55B93B18B482DC704F05C8796C003C4CFC3915881E84EE7D05EAC962B129CA21 -B718CA6B41880EFDC62C69C57E01154E2EE7CE04C6FFD763BF655E47A20D6215B605102BB9D6 -880BD3F96B363CABF8934F0D96F05A58051EDB910F6F4FF1942A611CDDB99729339E004475E0 -4C6D3F8A4F728ADAF15261F36CE4E14887F1A560A8184D3938E1970D8EA3CD82D41370D81AE5 -BD5E3D2706549C89D7E58EB410F1CE8F4D33E7D59C9DE0303909D2BB027D67DA5DEFF2207896 -686FFBE6F44886F329E4F0A6A107BACB5D21D2CBCCC2A72B0B46A83ACB94CC46F49F2FF7ACB3 -5BE29FF1927FA23F354F9B3317424397705438AB3271A5B75ECE435AB36848FEC4C3DCE4D0BC -69DB51C6F2E0478B89B87ACCD7B95B70AE4EDFCCCDB7C48CFE22482AFD55F03446E1DCA6F20B -D42F0DDA8726110989B0B2C8189F7F639BE22AEAB1DBAD5E5E0B691DA9067526D2DBE624E72E -3AD8F4E0288CEF4ECF96DCAC1433A2C8308881BAF6E991E2C3AB0FAE967CE45E50E8A7D6762E -B048DFF3D8C391A5FDDFBFFBDF7BDA3268AB0D8CA04F7C1491CC6871C874E1CB1BD2DC5121E8 -D7AB7E574A5D01BEE566EFC53A6CDBEC867F484D7BF47EB28071B47591798A67BBED64710557 -6A530E8FE537B88D3F4B3AA0690A4194B32434133350BCD998BAEF77E2DD2270E3120D63E12A -B2B5407872CB9A587AC5821E691D65DA60E79A17177328814E1043F8C88D724370DD7CFEC625 -70B766BB636B80221CE2C8AC5E138915F33A332E2BA87A65F8949BB7B1FA8DB66419972007CF -EE6F13253632AC001B54B8044F0B18461910425E74AB21C7E3AAC3DC8074CB2671AA79007CA6 -568F49FC88D193036344F3041208ECC86403D3FF3895B89F38ABC514E3B17831D8E155FA9C71 -510477670DDE5A1B43B0245DE052BF483657CDB7BC63DC70FCE00EC4C498E9C5D14E3956A656 -5247BB3C39AC2595BD123E8C062B679C60561097F3BF31D2D732774716EB6879F72A2CBECA66 -6875897C14C0F8904A485211C6E86B79562977AE470D500B22C5EE404486BC77B920FACFDF20 -E45800468B092CC05E02B7FE95ACAA11B798A02E4A3597490671CB25D3E45442745A201AA56E -EC0DF6F3A1F8865A01F822DBB1F42FDE9A5422991C30C6FF74B7425C2118FEDF7CE6B0BF5382 -9C92A678270CDBC7F05D27B697C1CE0453CE0D453549C52C6A8AC6E0563916C79E426CB29CF9 -602E3AA299D4C034C8231D8417C6F13EDD6A07B376674FDA85F30EF46DED22B80512064D5F52 -E50B551E69436EE4D4C6EC31D7E2C23F5CAB8508649F71CCC5377A1929F382A8AD8D3DAAAC14 -F9DC6D1310212F0039859822925091E22052F3404453EBD4DBC7E60150E61B8B33CC210FCECB -45F2BED30D91983B7B765CE6FA5B06416F29E76C3F9F1BC81454D00C80096E1C5792FEBBB1BC -C9E3B3480CE317C7E221F33B2A3CAF2BA9131C5E64379844C01DF748C213D78228EF9D980671 -ADA8C048A26974228C10186C72B1B56607F5873F0F59DA3A7F929FAC910F50A2432F80CC3BB8 -7E505D3775DE028F01745BEA217362FD3F4D88A90EFA83A14849C60F4953217989DFA6BE30AE -284D2FB4A7CA7C0425D1B145B5A1E2D6D89D908A9B5DC22E1B04E2026B43372C6014999B1647 -582D91BACE76A63B4DC8959449F37103AC9AB27B7CA84FAAEC6FE121210F3AE18504E3C1BA71 -0023DD5A6EF15DAA2521A19DC1CA79295252A18B82DD6CE9C0F98BFC96290B03E9111E80D9C5 -EBA45E17340E6D2ECDF97B63EDC8A8798C127F64CEDBCE77EF317EB70AF75F7396B97421E43C -04588C964A1FC39FC4F231081B109EDA2B30F45BA4EF77B8586DCF074B327C56053ADB475F94 -E7092EDF5A20128FDA544C43F60AA04E6BE2DEC718E057A58FE061078EDAE3CA69790A0B3E4F -70CC1A4F6F7030174680BDA8A5F9AEAAE29860605E6614880EE3CC007B6BE2AC2A58DE098252 -A88A501BC30A527CEA21F11C361B289CB8761D5573EB0736725974A8E41ED98E773A9187DF4D -2ADE1DE7A5D35B1409035610A3C53ED0516FC9DF6F89E14C20B1006DD06367597C55FE289201 -CBEB35FB11E6324DB75991E000BBF7FA3811E432F2EE5BC3C4F8A9CE41FA723875D669A81276 -E327E881F994B1C0C402BEF3EBD822C72A58DC54C640EEB6BB4433DDEBD9A7BE7FE7E4BE86D7 -10923BFE1932774EFE0BDD86EF7C7FB11220D813A41C9CBB23A65392E360E771B96BDD518639 -00529E9140C99C3DD30264F8C020C418C1FC791EA9641D6442C913071FF41027656272844409 -D9001E60BD368D7A69844B4EA32393CF2A6E32DE2961C009933EB7BDF3542A6AF9DF5BCB3802 -698848568D0C70FF5C4BF77F9D6710D7E6BA5D3059B11F53AD21C32584A38F1F341B47093873 -2D173312BD4DC3D5025D11EA3D7CF9385B6A9D97A8218BD4794973C6A3FA1EC46DFD87B060EE -1E31BF21688792DE4185FD47FF77F1FF585588FDBF32AD84DEDDF0D41B282A5F69A2DDFDBFDE -12BD0FC89170A079726741B716D137D465BFA88DDCD94F99A883BFE88B4953CEE3C22DF5B105 -E21ADD3878492893105BBAB9F31CD7D220D9CD208CD8CD34CE4B00C699B3B2EC2D25AE220092 -830E61C9AD74CCCB258182460B45CB6288D6ACEAE64C34E019C113B30D48760673F7FE7FB046 -AAFAE5EA600DD48F1054DA450E5023C1D678C606E010852B36514A90DDCFB1CD5DA1F65E355B -6206B25CAB0067E6180D758E58AA5E42055EBFA6A32C30F4B92DBD76D336DB0C3874425A0DBF -90A353495A37986463128C43E47C0EE94CC188C12A7C98D730A175A496FE37B34D462EC804B7 -7E11DF1C886DC9632887A6549F9A3577EE0DD137743AD9F3BC7239AD293A9D92580D66945006 -F46CEEA48A0E1CBEB0998A54D9637684E61D3270D63000D2CD324A422D2B51ED04CF94B77340 -1E302B84296D28583AC58043976F5836E5F3F13905BD57298A572CAF6585F461462570FFDCE5 -8F2831F57487955581E8C745B88D1C979AADCD72EA0350537C70FD20C841C54F2FF781F2EBA3 -37BC0486514F6952523E6F23D0535600FBC9778F4AB6C86546C9DD2989CFD4C9951BD64CF2A0 -19F5AF16C8950FEAEA65CA66C46E0FB2E67903B8C5CC992883E7ECEA47B33951CA1C34E4EF3B -79CCA81A84A070FB40DAE719C2826191A80BDE2CCF897FDA03ADAD5F5DB2AB698689AF103DAA -9E0871A46CDF51159304B23EFB4820E525550191938D1ABFEF25777A0E8B4392CEAA6B0842D3 -2B74025E9A845C0BE70CA9BC2BB7783E87F3BB715E3FABE40F5B26E0A18DE0A4DCBD9B39C740 -06560D3E650165EA077B96B7A927D8445244BE96585EA3C1530C52815B94A7497898D96E40CA -324AD0E1E8E239BB935D29EB6C4F4B4FDDA87AF039A4E295454FE2D7634956746668E6592563 -A030941721C25CF99C0D600D8E11F8A70A5ADBC19ED407246C36185F96A361FC08E03D6DFAFF -9B627D4A58D84A8712AE75718DD6687B27800B49769741909206803437C8F3C6392E91F99D43 -2534614549F7B38F0FAC105400DA540C097824B6F08696FCDCD85BDAB9ED2CC6528CCDB6A458 -D9DA94BBA671F16B18FB02FE02BB61A0980EB906D63B75F0FD699D0BBBEA1CE94CDB79351F01 -05AC43466B86CF720DF30B58075658C0FAFC338E3C3F80BC0AA451EE0A5E90483AA004D82DA1 -7B191FAEBC30B99F0048B65770BB12CD9A406D4DCCC095B6AC87CD319C38A376206AB6B39042 -622EF76EF8DC9D30CDA1E9D5CB92B9BC7C1AD006B484B921F787310E4C81D9D739DF8804CC33 -0168314C43034D9EB4CA8A6D5E06FF75E69EED5C7552560264AC4EAE484268CCF9B37C4314E2 -841BDC3F55B9CA5A7F8710F5CCF4AFFFDACE5C54C1AA4B4DEDEB6A7109B2A387D3EEC5F6A644 -0DBE12A67CBA56365D022E71491412842EE1DF7ED821A50AF17AA0F2F3A504B793694CDD41A4 -8F5607D3FB397E92CA9B99D1DD938FE4492788B3D0A53055199A16DA891583A7557B627324F8 -EF2BDEB7C62C3D0864E5DF80F98B69342029C0F8532C37FD4ABC3536EAC810DF0D99623EE070 -A9ADCA3D4010F706531D3C3A36C530F314DD9505482919C8D3BCCDDABEE24DD41AFCE2551AFB -E2D07A626305F564855F74536F00CF58D37C5EA4C813EC44222A024388F24E79D0C40C6344E8 -015AEB8292B1EB0C5401231B5B236487C6CD76B620C9B09CF9690259B54382317EF8E4F35C53 -1F708AD3955A789FB90ADF4408291BA5845FCEACF570069C8807C0F3A1637EB6827446FB5F9F -7F7FC0C526B7ECCA603EB7C22711BAA1C7DB0690831B22D073FFA69647F09077C8DE57AB5B81 -2FDD4000CB697A7539777A9AFAE6A7CD657E126F6EAAF0453A8478FAF6D553BA8777A9A6CD74 -85C8B866CB5EAF88AEA5241CE7AF2D659A032C4BD04697B6280D9B4A588B867EB515A40B73CD -C1D31A603874FDF47FD1BA038CDB48B15D7025432CF203B592568C975B1C0F0486366055753B -A4BCA995670C1B2F64374E4084ECAAAC3627E16F20A71E86FBD229A198A3111E1461834C5868 -DAA4EA3177C721A3C0913D5308408D8EFED7B26D325F567480514758A3AA0CFA6169BD3FA588 -547ABA652DF49E23865E0A0A2017BE1A487CC99467D5E9F0B7EB9E0DEF91FCB02C8E519739BE -3029B5301299193672DD9750C200F84BB238DC374242E7B2CC8E50E1D6E75DC5B458E5ED2976 -CF4B9CE27966045EB93A96848B7B59C18965F1DB0D7583C1D15732D7608627208BFB1EAEFE41 -EAD5B0D143A4DA7173A21234CE2E35F318AE326772F8DE485C4BA3029A6B548B959C6FD67A2F -A96FE649B1559C01727DBC99F44B97ADBD88560EDF15AFFCA0536642B83D53B1D6D2AFBF4474 -5F7368008AE64AECEBC42CA1564E09EC789DAF2327B6B95AC62D579C2DA7F091268459742E91 -FDD4ED5BCB1A148DDE79680C879C63B8C3B3C09D439DCA297780E06E918F6DEB10A682E5D1C8 -7E13C8771E0E3D94CCEC3D6F20655D450E16F47E1B2E69B8491F396DCAACDF121D672AF66BDA -3746DDC0C315C63E1869343BC37CC1AF5832966EDA0341504ACE4755D1560D1FD82FDA474FB0 -8C08DCFEA8DC8F082109363734E9DC40C2406D3E367CE5C68049F8EE08F3EAFAB906B71389AD -9202A4B05420B8F5508CD65F2E959A890BC89DF2BBF978F20D55FA7ED747021F906E798323EB -89137C1147734CA9298AF01533DA3DBB9F63D7898F8CDF1DFF2BAE6E9453A649317716D9B83B -A91C2B1EA40B148F6147F33C09D2EB79AADF5960638EAC4D0BAA04AD64BE3345CE864CB43A54 -1C00F7FFDEE56378C633557F310489D01325CC28013E5B31002F5009DD99AD0964D2D03D7C59 -AF05502005423D2C11AD300875F9175A8A4A1E715B7FB84F177FF7C6807A0954712DC29A4B65 -788A780E1B4EF6315CDAC8483406A1161564C4C2751BAB62A71B8B0AF416838CE4A8E624631D -D18ECBBA4F18457FE83DB63C80607DFE4A094A996E6C78C8687DDF7702DD4434D278657CF3E6 -5022EA86132E5E014BC42D7BA3DA9F658CE1526E49A0F9B7CC612EB48D4F39515D0461FE7732 -B7ED59759188717A5FAB88EBC279CF83289B32AFB53A3E07AEEAD7852A3DB4C01E842A06B716 -50E8A4D9CE7A9396A652291322ACF12EE73CF4F9C112E4173DCA3522673C9590057948CE9E55 -994BD76C1607A6D1B9406098D9BFAD0C0F12B3658E1DBC3FD0CE0AEA36772177D57FAE8559BF -1B456BA07E07CB5B294066307E7211A5BB4DD4D33622E00AEBEF231CEA1A9C4B8303E7903024 -1F513B6FFAE309CCC2FC575954AD8C4D2921631EB8A0B3E6A11361D38EDA756BB45B19194FAF -264F4EE7BBFE0C58FC3CCC03801672B0723034452340704966FE16CD988C8F5C8DB94AC317E1 -A84A05214F21DEE6049354967B361D13B16D1CAF96E2E937709D646EDF20E07F6E80D3D3AB6A -87E542D138BA07B8D6E267243EFD88D999BFD0E59B0873F434DE0FF52B75D9CF8C52A4BB704B -32CDE52D47636FE090E2F581BE615A0430E30501F3BF568296C9B7A0B6B8368F25CC14819127 -F6B0B84661A9009E1A357C535FFA2BF20827822D178704C7225FCFC9C3E56FD2E6B7D960A355 -91995278CDB8FB4803F1E4F0E0F3164690FD3AF5277479F28A7A87B4458CC1AE2658944DAE5C -D5EDCEAC31D35CE7D3BC4B7A8E9B0489156E29180AF1801E562FCA2EA372F6F2EF5EB22C68C2 -0312D5630880877F306AA2788D230E777298706C06ABBD66DAB9E07E32857440ED87A5F27DBB -BCA2A83F06C36766DAC5157A61AFABB983291839459DC527DFD2D3279EB90CFF2EA5EEB7F887 -650045FF1B3626476A57ECF1EE31B412CAE9B70BFE3AF78C5A80F4BD3C2C51FF04F4E58DFCA3 -84D5EEF464B5DAD0685671B44FF0D7A2D7510ECF0EC03AB933422083AC71FCCF42F11EFDBC0B -34C46F188CEBE8CD67A8CB8A07CF3B3C7763DBE90BBB00C79B3F60A3E5CB9FCBCA3E5F02CB00 -8B30269C7633E03CE86DCF927BB5EA72D4D0F45681D2AAD53B48804B4F58DD486420201E4EE1 -06ABBB00BC0D25B60AD467432CFEB032D3B03DD49D5BF950B5DBB360CA7518709FD5BFAD6D12 -8442C8B622E02DD600B11DE193AD2A1F1BD38294AA59C2F5398BF153D2BDC4DA073BC951FFAB -5B3886FDE0F927B69F3B1570C8C9B8960A710B151AAB35BBD8C1AD0B367C7C05127AC9C43457 -F6FAB9F58BABF3D2E949912982FC8DFCD57729AA104B5330D1F7AF7649FD13804CBA48C4CA06 -A22C20A037EC7818396784212F4EED4E4A7C364DE8D06CDE91DCFC11A6606027FE24E8A17CE2 -44C10C518FA9D653B557E970185C4A44111427FEE28996F454FA7006EE5C08B2EE4A37EE0F74 -E257372872A36BF8FF1F526123FA081C072AEAE4D44FC64BB2E23BBD5B47CBEF9B1A338FA057 -5B2832E3B645D89B8CC375A0F76823FF24CECEED1B30D2DA3084C0822A3DC72272014DD893D4 -3D55043EF6B10ED5B01E0EE885B0F27C437C903F639131587A69C41604C96D6908C7054BC74C -FC6D5F318365F86CA0E3FCF54E1270DB6127CEE8CF501A28675B151B3AD78E0C667FE3637FE7 -6F2510CF67F8ECC5AE426EAA9C0B568AD9173EEDD89538ED865CB7ACD95A52BE60FEC8D714DE -1C90A2AB092FBFB4FCB354E5A08C22CEAE1DF168385C5A5141E662832785B6F3FCC75C794C2C -0A285A1980604CE0C775D83599E18F6F4F9CC8116F19C935BC20639E8F4C770B86285022B618 -3ACF3B3190C06A82042B2D418E105C37B2AD12D2DA25334F6B745127EF83DF24C8210CEA7EC3 -D90C61F754C193427EC892A8B7EA2F9F6E0FD1F6D65049FB5EE005A56BD73E2FD08E90F77D7B -841F762CFBC1AC1F32B3C4A0FA7C2D309D4373BB9333FA9345EDA6A9EBF8D84ED19128C657C8 -09311D8ECB85E297C6A670B9466B8A536F2994825B5CB158B19841E01117DC1C7471BFAF7A2A -BA07F3863E05F39F51D398C7AA8B96FF530674731357CF0A77A553CF6C899147ABF15836BBCB -3EFD1CDEDE7CA12DE8EEC874DDC22914FE40E82CB662667B6107E801F7A40345C93AB8465503 -473AC02625BEE0BDC2A8A1B29164CE3E87F102B8C6571F8FEA2F922F294638AD89ABF7613DD0 -297E37F8C06B41E89DA368A031C38BFA1E7A6EE270B41A8A843535CE6DFF97155EE36B1A7442 -3B238CF87406522C07C11833828002F368B8AEE892B8AFEC49DDF7D957D00284F271121379B0 -4B81836112A5B7B46B3E27D6867BD21BEA93204E6AD3AA60B054E0ADC31EA1B5F03AD3140377 -355AB317EBD8E9CED44905C7FAF1B0DF376A624B3F1477E677F624C318914D99069C9DBA4715 -65E17A023466BFFB861B63CB4453B290FD2C1FD013B2998FEFC4110162AAC21E73A6176160EF -9034E4834A5684AE26476EC15475C191BE63D7E8053131B08703018E776EDD65E15330951F62 -6462BA5B8A5FE7867D2DAB73B6A428CCBA189CB8C19A4269A0F9045608ACB5B66BAA6BB30F9C -F7E8CD9E463047D0F884A035136357008ABDBA946D6B33C91FAAF2AFAFC4AAF62CFBEF60F1CC -BD7679390A061DA4B9E80B42773DB33B2A3740C5D442540B2183D1E392A6D1322F8AB95B9055 -9A5E2D64E2C445ADFDBAA2F8155B2FA73A0C191E08B531B6A1E1D44FBA0103FFC8A904D03FCD -3C2D63AEEB8756C0AA3AC94A28251EC477D5DD5CA5652FBA4D99BF6934E5B2D67E5051157048 -1CCEB177DC632A34CA6737422B4A9A60689F060974BD3619F4549728005664393DCE5C6E99A9 -1395828E8C1D71567946BD28712E3E163CD88E538C9BD7BD214C3381446188AC9778EFA940AE -A7608236611FE3C217E2A749E16B8D5210BF9FCCE467BE857A8FCE45877A304B1BCB7AF47EB1 -FEFCA66737A32D720A53D47901D73D1B3DFD38F90F82E225F662848548D88586437F442AB8FF -1FC1E2BACA61367A6E5F62369D698B511F9A5415DA3E9701828F9935DFFE387381D2E0DC1604 -8CC1A60E2ADE2D3E0E0D1962ADE055AA616BC17669C27487196DB28B1A5318E86811AB502E4D -61A4E13E62FC16F0CE765415C89E1F03B5C0EE898177E8883CB823C41E3B053ABF01EE4C8193 -99347EF27A906CB77A74EB6C9C9200FE251C476DB2E3BB802D4A9EE27AF846073E29C890149C -C54D28F967FFF1856DEAA922129EBD683DE9F7922AE96FDA11EF8B4F333F7D959EAE1D181A08 -6283ADF7E3EE7142291695D55BB580F13C0C634E88F31F63E01BBCF80B654DEFC263953DEDF9 -DEF8007AC5CD5FEDD58977F3F2061B70495F29D4788105B793F6437678853D57F5AAC34D7A86 -48951C3B72B80EA481037EDACBC7FE2121DFF37D2E64C2A51BCDB9D21BEB428CDAD9576D78E9 -B177DF9D17117CC51FEF359C086109CFE65A87BE81F08A715F2ADEDEDC27CFF5D8AB0D95DCD9 -EFAED4F460789880BE2FD3DEADCDBDFD479C7319D99AA6CA09BDAFD28809BC823D83674EF65C -929C9BEC8153B4641CC4DE7677309E8BD1956AF86973F90736365A1437167E967C1CB72FD563 -7207F5E530B6ACE7667273E8408BDEA9B778C6E4ADC6E8F16BE12227252F6D24895C677EE8A3 -06D1171EC7EBF5322D2B71D14946AD975D34A4E35C097EC0EAEB5D94F0D504037E84E1BE0546 -529892F061BA4CE46A90047C20109386E564770BC63C09A6BD6549A52A6A21F5DDE51894B7DB -1244B5E4165FDBABA1BD25DCBA6F6D0CA5C448E73872BAE4BF36E2E86F9978D1F5B1B3D4B891 -0B6AD8054F5E5EC8A60478B313AF58BD3D3FABCF49C874AC9D2E28428E3D32A61A4C29726E2A -B42150EED796E3553B4717D2C854FC750BB32E0D0340379ACD262E270B25D95949210C5FE2B7 -CCD510D37CC98487098BF5DECBAF58906A8E675A692225BA1206B8D9FE8DE4DF069E9907EFE1 -078C117A8F5AA3EB34A957C97685250CF693EAD7FE539F7C861E12457410A2E7A72A22C8471F -A1E99468E5BF4252447C74124C0F6A596C1629FABD81DEC2F42CDD284BE9C67E19D5C8617422 -6B0313FCF6EEF1E9DF90A191F01768218BEB2967B870E5C715DB25FCE448FA7E5EF21E9E836C -440B7BEC5034DB284F6F6C42A631CD35D88252B40A229248E859D2C5FF3226E9ADBA3BD11A61 -F310AB2FE7CC53865D6BBE8FAC21ACC03B99CC4AB1867C8B7AAE5705CB968DB40FED6D1BC12F -92576813407B641CD3041F7766CE95FE3BA41B7460CC35C206438A1F6889D0377F4F2F1A184E -029DF8A2C164FF76BFE7E28AABCF048A6AE84BF6BA0313B314155D312A809AEAA2DD20CC250D -288C598571F52AEDBAC97E413299467FF21715806D5DB5B0731E06BE6378DA28125F0093A4CA -C2CA852D2731AFAD09DD0B2D14AA795629999DBBF3C198E9AFCA2C3335E66478C1D613493AAD -D1B935E94CF4549E872AB71EE32FA0B4712E9D1725B2B660035DA0D7B711BDB78680A918345F -53A0659F4C3BB3A513F6F7B0126F2E1EA62E14CC8DC443725024705E4688DB351341AB03A212 -7E507AE2E92A3D0A037E0BA2AB254927B59A5A09D2BE4E0794FBDC0A783C363C6E09CD746B06 -A879BC9233C6F3A10E383E3FFD3C5DED9952410E39F6AFD518EBD01FB8326B1EF38F2B9AA2D0 -7CDB7CBD226A267D0862C9C2F7883C08BADDD74A98598BD6D1182433EFA08E8BD42EEC1ED76B -93A5A3DF21EE8936567781ECBD21E088B4EFA57EF67863F6C4BD3FB7A540099A0DB53F992CC9 -44DE5A14A794210FB5200157C05A7C69B93C9B797FEF46F7E6E7B60FD1556A322D7DD513BAFD -213CC116BAD897917AED8966DB5C26F15058E2D579EF4DDAD255A46FFCD06DABC2F333EC8489 -7A10C6D4C035CB768E861ED22A5E52718AC0A4296ED24D012B65300A093B31BDC29F84E3B5C8 -F6421A41B7705614DBA58E1559C28B9203F80A83A12C7DA4D7A6CC6439842A4B99BFF41D628D -973B5C303106984CE0C4DD5608A688D9A8DFEADCCD1582886CF43569DA137AD93C330A150FCA -86486176C5748EEA195A982925F14C7E6F6E0850A00EFA7BE44408F54AA88C0AC8BB0C965F83 -C1CC04F6D9B039DEDD635AB479649111FEC617D4710DCFD954CE0AB9A9A79F83DD57CF3A25BE -9BBB2DE1CA2626293CB4B006676BFCEB97F44D85807B579BB6A0C8F63D33956FF472F33F4813 -E506BBF7CA7E6C837DDBD38D827292A21743D1F2A171C6EBC6EA8ABDC4571E202D88B2C55AF9 -36ABEAE0C47BBD1E4E8F07365986472A78311265A8B05896840C177029C68FDE42D645DBAA2D -A1AB22086D6FA2F9CF7C61B95D22C65B41760232C7E383493CDFF849D6F41821F86B5810DCE3 -178E326C4B0F3B385C0BFF0A6E4DD37AFECDFA55D4939CFCF730B25AF88045F2A7E0218A69A0 -DAC8E72C891BE7040F96AB35CE0215EF9694F1EA5E9280EC6B244DBB6E6CF842537DD5D882A6 -4EAFB04D0F59075DB6A10DB1C51EEEA67AF5CC2A309AAA70AD1935F5E4B3C0B3F77704C456B5 -BC01549744E8F8E0090DA54583599E2EE74AE3438AE881CB7A152EA38489929C7A5825BF2C61 -F08B54FF0E1947332158B46CA36A98AC92C6761DC2E5FD257C2AFF10F70B55376913002F59BE -04A4031C519E155A812C0E2E8FEADCE60F0733BAD3861ADA89C5DAE32B171E1405A9681E1CFA -B7A9D6AD12D77EA2679B734B57944F91F5CFB9F6564E0F60D9249EDDA4F44F3C9482670E4789 -DDDCAC688D848BC32C03D01F21CB496A08C3AEE2A2B17EBB436AFA7706A8BF426B5D0923FF8F -1D6A4295DF604EB716B92442AA590434CB5F54760DCD8D6E29D88F3118A5B9BE981B647003F5 -07069FDBE6766CCE777C3AB7A524F7471715E4A162B35A46ECBA34D7FE83220ACDC9AC953409 -9A2911BD3CB618E2E393ABE599F238168F1D2A749ADD3C644998CC9A6A38E984EF1CB6C979AC -B57E7DEAFBC724AA011CC06803B31E3B987B3F3A3DCCE81282B5BE0E1E754EC52DE90D230D7F -329DB90198247B0534B91E5697CF395A522D73B04872DE91FED13F0B36DF891745C887524B81 -F46764CB8444CFD401CB60098CDAF72A3DB41048A273505F7F817883190E5C1DFC6C5667082C -C0B5C7526F62DA98E03B7F274F190A9400ABC3A06B1C1D8381AD1AAC9E86A7559CE6804C02D9 -6DC71D16D041BA52264C1B51C1A104B4D459E30D8D253C270E8A0EF92D0B7BD51AE0B2C0D8CD -48128CBCF640E1062912E8AD848EC444CA4CA65BAC16B16D3C6E40F88F008D3B8D404B676763 -F8E93B162F7CCFE3A684726A7EFB439D9D04894B40591E112A9C31879E765A0694D0F15976CF -F390B7BDAD118C7DBFEFFE49A7E8C5E3FD4772211BD2169083C77DA0B207F9F69549697C4BEE -C6426E13F979C28D9EDDFC0987B2441E182EA8CB6EBB269F3BA80EBD10113C294CC69A72BF2F -7E79D35D6870DB019EDC7A4C0EA131130054315FB54445B0EC7E89AF38C2C819020814B6037C -CA4ACC2FD07FB6B6F9F25DF25DF7C41213344375C92D812254F66362162483E726AF0154021E -9E99CE3C3E8E68847FE667FF3066C7C686E3AD4EFC49737551D2F5807FF1B00E3C9A8FA5584B -EE8623E0DCA16B183E74816CC31A40A00A3C175210768521CFC17A77CA9E7CD8D484B095E355 -D0B65B33AF9E49E29C51F8D2A5147FE39B106ED0B2783905086061331C6A35CAD34F8D915559 -CE80EB1AB77F481FEC696DDFA922AE68BA683AF10EB98A386A1E1F5A4B9AE506AD3E775E71E8 -1A6551493A4316F1A6A9207D453041686BCFD37F7A6A276524C2C3CF9DFF0D4C88F3A522D070 -91DB6FEB7E064DC1268D0C54B2213AD6B6F6CBB55B2FF3203350CC292BF741646F83F68ADCB0 -7CF368620A815525BBD00E5AEFC97D77DAA0D2DAC23FF58F55F9189CCC9A1EA3C2EEF0881DF5 -015200CC260E28C674C69F54C5B0FC31CD23E65BD902A0C947E0601EF651512F3F35519B65E9 -C12EE5D7958943D411F79798483D8917B01F1FDD65F2B3FF8CAF980D7E4E1DE08662452A5765 -8AECF1D2ECC747F51860D8A4E0DB0701371D60658B7075C75E7A0BAE4F3362222C7AA7EEF9A5 -E4756A2D4B952A9A417FB006A8374E5C63A629FA7A8F935912A079C179504659E28FD7CF3854 -2E9BEEBC954896E38CA907011C5954F82514FC61EBFF4DDF517309540110702B7324AFB58087 -46EBF11951E571111C13990AAA601868DE50FB6EA3A6D27CB150BB2B137ED2A9F1DA4DC1CEEC -502D3686571BB81AB58FCFCE1FEA7B1FB05B3814251F0D8BD58651E9BBBBF92C2F344D0E3B09 -5EA6C21C6A1E7318F38EE4646C3B45DA1A8C721C5357CE0628A4A805664367462652FDD7BD14 -018EC86C9010B16E607AD9468699C914C313BAA40D7DF3AD921CCBA932ABA72E905E8717B35C -658B8B71A0DD910E8672CBF84C3AA449C178C040B459B431393B546CDB360D479C579F228C85 -A62EBF713194BA98EE48D32EDAF5B71B02810FC31D42C30BDA5DAFABB1EA8BF49FA5149C7DFE -A5B70B2D5B251216B565CFD8A83C4BB08D53218B505A6B273628DAD0FEB52FE7DA75DC75296C -806A1D076C40C553232E31D3264CDCEB93F674ADD3EE1096488ECD1E4C80C2BDCAE5697B2A62 -DE74653B2E37FB317035723013838D05497D1D143865148A40C9150D7D4C185EBC03C54864E5 -A47434533AE9731057FAF76BA4DCB5C970BF2EA61C3B5426DEA7127CB5D261616E0E29ECA0E0 -9E8D2C4A8C9208A4B025280CCFC2BFA46CEBFB4E369A7C83420DA94DBBBDAEF162211B4831F5 -3B81411FBFB8756E292117F21410D1BD928E6A65D1EB0110BAB53D598E6575E04DE118175480 -A840D2DE363EC025EF75F787173119791E12D1530368A2B5FED5952A6A792FA4B18C88F50B7F -60B83D9A664003C21B40ABFB7CE65528BF0C2A394F01CE0888E08BF71C268FB4EAF05619DC54 -2B9C7BAD4D1E35A8511D5F4A695560DE73C45D3DC0DBE3D84EF9C5D8F359E4992A5ECEB45267 -412EB8E3D7060B37B9A4F944A7E65746B22A4B5C4BA3C97F408FDE17A8F25A5D4655A902FC76 -E8C88E0954BF28202B711502D55EC9DEA1FC492ECCD90FEDB4C2981A663E00EEA23A5D789A3A -124A04E5375A88438CD011B852DD8EE4DFF43137E3A2B5DA03F000F913BCF04F22835A2D2CA4 -AD05ADAF748B12CAB5F0E054B4898E2831C0D06EFC75889934256BDAC2AE66748F67C814605F -7575A6E055D5E9499AF881FEC1BCFE5E0012A20391EE3A5ED77AB58F3DECD37D9BD147A2D7C0 -68A016A0AD93045E9FD05988D9B688B5BCC33A15145208D76DD449E34EEE9D89CB81342EE7F1 -4B02E05F1C477C17B66981431D30650FE7F138147E369081E2735D820E4242318AE4A1EB32AC -E6BD10F9B9463023B1C0D147E671CA4921D8C091250C7571A78D6FF4534EFEBCD978CF33436F -5689B607C73293573D2F5E512A2C05C993EE094790BA8FBF7215D91A405C476C857957688F99 -B2307BE0889220217F5296B24EF6E337975F94E659853D0D6D39D16546A8A47153F92599238C -AF2CFE4D3FFFC27F6AA52F799EC0F972CECBD8EBB923367DC12B98D74B4DEED33BBA7B71BBE0 -2941D6A705990FA05FE72017CB53FA70FE1A75E723A5184D9314367F593FAC11CA09A1E500AA -CDC2613D995D9AFB325A23528A9ADB2E634E7D5887E8479AA4BAF08DBF854562F04E4588812B -6778A50EE8F12EC452D4844302E448192CEF7A0298E50E03BF810480116C42EE8DB306705519 -BE5CD3A1E7E609A9FE4AD24FF16D6EB1CBF02715EC88A5881D01F58828801295CFFF27CE200A -0B0E777FF0E9CA1E621ED2A65D667ABC09E7E50637A901319976601E5F95F52041BC303671E5 -DEA6A32EFBC4CD2AB865D0297CC53E79C4C54391D046F33B207C45FCBE1470012D408A6E0AC4 -1DB57155E53317C47BD417A703DF65AF8FA518E9A73EF374B50089B6AFCF120519DE4AC052B2 -A40646DCE9FB2D66131D7FE251EE903E098A198C62C853DF57BEB7017F79000CC629472BCF94 -17704B67B06FEF02DBBE5DC4BE1D263CB60A89753D6ADC5BE156D85C0BCA94F6B2DB0138FE0C -9EB6B033D4413D8ADA525C01048FC91ACD74F71062D88433FB775B27B9D70123852AE01A1276 -2051021B214A24A6AE4C4B9421DF5F5BA72547C7C6716043E6398A58D1C2B45CF3B156A23ED7 -45EAA938C47E622801BA1773A5D139BF9E22D50FAE58151D36AA73AB22B666062F9BE0865CFB -43550BF7898AF70C4B59A61E54232F47D8EE344B9C23CE17C24AF5A682428BCC54F6403645B2 -25A1ED3F4CEC82E3771F57D4EEB47428E0FEB09C596C6CB675D80A6FB783C37C147BA3DE4595 -4D1A80695B9488CE004BCF21251629D398C98A4FC5A118C4DD155B07F1E94EB2AE354AF970B9 -72AD7868816028ABBB1B2B996570FB68894A03B072865D009D7812A068A8DA4F851962CE7F81 -C6847A3C0A79376D8C619F364A755C99FD81DC0C06118C4E07839D8EBA12C202321814D3F6FC -F92DB0DE61776D3E391667744C6215593BC541835E0B3B4374532AB118BD00E610D0C7778095 -4FDA14D50635297D3004AE2B0CFAF75630D1C4758E12E0B94610D7288C3C698782DD20DE90AA -2623B664A151FEA2734C47ACC8BE1AF50EFA97B19FCF42AB6956F9FD5536DA9E4C93E197D2AE -F7C912F31E0F0F150FC6E64AF57A01B551739E02A90F56C348DD3E504F57A482DBD348E2A61F -E1E205E600F41DCDD1A5D899BD18D27C0EADBCC528B4C79A834F35E35172BEC6F458B48F7B33 -93BA975C1FF26819F7F52947A214A4E15D5C722BD9F60AA70E5A9C261BE49D8E768B6915F13C -AA3A1A919A0C972E9566391223AD59E6F95AB895F009A6289897F74D2638093B7A3FA1A6DD29 -E88B04720E9A37A7BE6B3F86E881DF431F2048AB7F498DD81DD8A99BF8B66BAE385539009B43 -06C7B0D7EA72276D8E93B58649C965738DD82F56B21D191DE5FA521B52D33873B531D0595322 -5029F08A2F0C3F8D101DBA4F9A6F8616E74AB8B81EAF2CFCC663E73D1C28EF9F920F96D09080 -225183388539B69786A2DD4A7AC0D83ADE24A046F50D0F3C3B34ABEA6F53404BC4C687916206 -D84A84B46AC87F663FEC527DC9A716BB3D871E2E036D94A7F40E6D7EA34759107D564FC39ED7 -7AE2ECD1FE1D6FAB25C5AE6E71D2D3F1F076330A25C084CCAD0B10032F79B26ECFACB48D4E80 -7E9DC348BD67BEBCE6E128E9BC6B79D65E4D0A26479495670BCDB7B9E566AB2BAF63EE95A575 -281F46B3BA8C6782227C6AA76FAF79528CA29E31439882AC0A2F98E92B64720CBD6F3F0F748C -C35DABFE742278EC9C6F3ECBE8FAD32C29944945B56B8ECCA9C05A77C8CC59E8B34EA27644BE -AC2B5461AD86DE3451EBC7A3BFEA4CA302FD22E649D1ECADE36651E7F8CE472E0A4DF313B7FE -D55A7127741D398F38BEB1EAC954185C09FE12EA88626269DD13B1560D5CE4C0F54C84EAF1CA -FB9ABADDF6767492F5E1A71E5E44056CC17B51F4B7175807D9E858275315AC6D7BCEA92DA6B1 -09594B5E2D71A02210F3CA0108BB567A465A01636F619A34845241641D5ADEB8EB9FCE17098C -5976957D26DA617AAE5955714B0482F7371C19CD1E228445873047245501F1FD5A066789856C -7889EF4B6F0F290E57DFC2AC64E34E7BAB6D6395C0FD92D5EDA8EFA9AEDD454E3EFB5F8143AA -0FDEBCCAD6E8CF80A8EE0FCE31834CAF5CC472485D32275AB70BB954F0DA10929A7CF1A75AA0 -CD3158966AB83DC510A0D8CDE46B708CDDDECBCF84B2CB761B52671CD7FDAB8844CF61FF08ED -7FBD96517B4BFBE62B9E461CDB573C09D8B4EC494DF3B7A4391CF6B700C19A469F9F6E6ED85A -36AE90B6AB85F6579244EA812997031F788E1092C0DAD564B0CD034AFAD47C901A77D0B55DF5 -6A33683058BA5AF39B237C53D39BEB1E5F538D665874E658E02A38E4FF7FA1E3C4A078B3F60B -26813AB55FF56692678F127D989D294F2F5C4E40670C97B1BEF5BFB0B35495279733D6042FD5 -72DF9A68858D87BA5C02B830DA9FA6DE282F2373FFD61348969C73081661F1EDF4CE025526F7 -DD9AEFD5C3B44CCF8C59599638D5B7653AE1FD881654898B4EA63463C52511969807F7A31F01 -79D135A4A0246B3FE2D61CE08000E535E4BEB1D924EB918507E84077E6C3C12C1EEB980F9831 -5460AA964B400C3BF46EBC09B37761EAC1CF4EC54D290B313ADA1016A77DA601E85C9D89BB6B -ECC6DB4CB6F0ED628B258A923A60BA365302F31DFCA78C3C465B819B94C205E3896CE5E0A9D8 -8E29F206B03E1515B3B38027EFFBFF57619987862B08F08ACB1FF8DE9C31E46B48E093E4F8CF -3FDB7EEA6972691ED91BED943E66364AFCBF2D2D381D36573390312BE17F49FDB2DB80F0E4D3 -AA7C717B3235B04FA668640090BF5D95A0ECFEDF4D928E40F7D7F1336D544DD8EE5DE636F12A -4144470BDA42A582C82AA3B907729F2ED082B8C49A5F0D547F63C1B75167EC19915A088C1DD8 -656751732BF4B2D4A7DF014C67D875551BF08E7E999359B55A6B7CBDB4339EE4A22B0F1F4A28 -E9AF41E822AA50BF781A53870E4FD4D2B5BD4B1ABC39E13D19E6965773C10E9B2980EF40EC99 -586CAB4EEA62D0B70707E6C49AA4A630DBA80C1081DFEC4ED0203A94095074E7C0A1BB223AE8 -3F5ADAEFBB3843DF703055529DCE578432DD4611FF45C131DD8DBE335CC255763DE8C54A0386 -E80115503A4D9D3777838A39DD16B86BEA764D16ED333107C8FD129DF66496D923DE6A4819F3 -743EEC83A8C57FD4F109FFD06B8DB7D8D69FE3FBDF4AD37F7AFF0E01D4C24D537DF7FF0418C1 -CEC6D5D31845C417F22885E9B47C780EDDF575B04872849A3E65DDD7DEB8E194C30ACEA50DE7 -8BEE7F3A6511760697AF5D62566A29B56D19C92758DBDA513B9B923AC75BF06F1FDE235BD0AB -0DDC8771D2355CD8F8DE4C1188AAED8F0DC738F2820FBB85C5928CCAC3DF4F218F29AD6CF69F -7880EB29C2C1800E6AB65CB9168AD09F73AA12F9F750B2A7F458D0E029BF9C563AD15EC22FC5 -A7A5B8B42D58D9AD2E1B76C778CC6C0381F2463177507D95181AD954317A5E460C1C5D366889 -859A6FBFE8181F20C43953ECF714401D2CE752DBB3E62AE7319974F165ECB26A808BB4160AFB -16E63E22E0982DC832CAC775F42BF183413A4CE70C7259332AA795DE9F98DE81F6BDFB0640D5 -3BABEB191BBA2A811F7E804741F71A74AE94D3F3511B57CE79F83B9B53D53BBD93D2D4D408B9 -DDA5FB026C33A1D00BF3200E615CCD06AEF19A039CBE39BB7B691817D894F971D42AB62441FA -B989363B989632F3703FBCFEE817F32881F6BA4AD55F6142201B5EEB06A9D18E324A2FE540BD -2576BE3C6C88E26327B52F20A1CEF9A1744B42898AD4681D3B404C092F8335DAC6FEF439E311 -DBE5E467C9296CD79BAC263A960849F034D886634FBC393450D600B40295CC4955DD37542665 -193899843C5F8600073DDE6DC884165605DD7A4D9CD62B8737C0AE00E22BDA68E2297299F7BD -7BEEA9F5AD94EB658631F1C1AC62990C5B756C160C0AFBC9BEE8EF24EA184B0F70183E2DC626 -CE2CB5AE2BAA622A686860B92E62E081EC6D193B6D6084DE0DF9E852D596D4E7E962536748A0 -F8442496902AAC76E3511ACC3AE65CB2C7B0121F7E6D5F979575C50F6D0B4E0C64E638FBBBD8 -0C0F73F4BC73597245D4EE3AA9A9B755DDE243AEE7E3A34D5930EB9137530DC703889101CEA3 -F7636A0F39BC2721CEFA0878F77F89B1F71327BCF3B654ED6E4D4181935429875485860172E4 -B358340E1D7AC1A6405D2A3F8F2DCEF3B719A58710C9A50347206C73981D74895CAA9214D6D2 -594671F65D3C98C345494A882AAEB8D8C9F599D6F7CA165FDF228F20675215872201312D092A -148B4117E1B2DFFC57592682BC5649C7B03B3397AD261AC1B55D2EA5A4192F37C590C3474B2E -651F69DF92DCEE441D8966D8EE39CBF1BB00B833FA50EF26C920972A44BAD442C0831C4BE900 -31E168002E71DD2943E2A82BF1F2D566E4FDF0B29021487CBB7AA82240B5E7B628211EE0E3DE -59EC0552D78DBBC411EEBD07899B75DD0BA0533D103C1426C1AA4491EE386B9A11D59DFCE50E -438ED3F8A580C4F26B9912B56B8EF6D4464525B5D3F83B68A42482ACD8A51D8339808EEDCC5C -6533B490602FE901DD3D263F2EDA6809846DA0947B25EE2FC89D0AC9E1BBF6E665E4BC3EF4F2 -6630E044D36A86B036A764A5FF54E1158A59C5D46CEE304FFBA7C1DD015B92F4C8DF6E8AB257 -143481D7EA0431A65E0EA02141B213F3CE175B6C038F5F011873B432E23C7BCF8D4E23439677 -17659421F44290789FCFC3BFB1BCDA250A82E6BE1E2B2C851B6685C3FDC27532C9D3B138B3CE -E04670B3F7C2E33EE20D5737BD7E7DB1DC93157081F6BCC096408F99D720051AF67AD921A641 -5BB3A08E4A6308DC0186EC531952ED1BF76CF1BF157265FC4D415E1E548BE98F7690EB2539F6 -65E1B777D4EDFD02A2E5D9180005BF634DF8913F431065DD2EC6BC906B34676599D9992D362C -A1709CFD29ED7002116D2527109A94913FFCF358B76AA398243603E979ECFAB1DB5D986BA7F4 -A28C89F08B7D656E824F6B7CEC52FC0DD1E050C820C1EC3A22E37A1294137431608F4089340F -038CCAB6062009315BC27700F4715C8A510331D7FCE3F04B960FD7C1D934DADA0B2600BDCEFD -4C9E67FB1277D8D8A0D16FAFBD063D13AF84156FD3D41830C107D7B3A9CB9C0039136A75D38F -66DC68D5AA3B1DE8A88BE2556C8768FCBEB6AF39ADEC17A9D7E001AE4BEA1154F89A82DC29FD -6B6EE811F1CEFCEB335C39EF2AE30000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 - -cleartomark -{restore}if - - -%%EndFont -%%BeginFont: CMMI7 -%!PS-AdobeFont-1.0: CMMI7 003.002 -%%Title: CMMI7 -%Version: 003.002 -%%CreationDate: Mon Jul 13 16:17:00 2009 -%%Creator: David M. Jones -%Copyright: Copyright (c) 1997, 2009 American Mathematical Society -%Copyright: (), with Reserved Font Name CMMI7. -% This Font Software is licensed under the SIL Open Font License, Version 1.1. -% This license is in the accompanying file OFL.txt, and is also -% available with a FAQ at: http://scripts.sil.org/OFL. -%%EndComments - -FontDirectory/CMMI7 known{/CMMI7 findfont dup/UniqueID known{dup -/UniqueID get 5087382 eq exch/FontType get 1 eq and}{pop false}ifelse -{save true}{false}ifelse}{false}ifelse -11 dict begin -/FontType 1 def -/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def -/FontName /CMMI7 def -/FontBBox {-1 -250 1171 750 }readonly def -/UniqueID 5087382 def -/PaintType 0 def -/FontInfo 10 dict dup begin - /version (003.002) readonly def - /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMMI7.) readonly def - /FullName (CMMI7) readonly def - /FamilyName (Computer Modern) readonly def - /Weight (Medium) readonly def - /ItalicAngle -14.04 def - /isFixedPitch false def - /UnderlinePosition -100 def - /UnderlineThickness 50 def - /ascent 750 def -end readonly def -/Encoding 256 array - 0 1 255 { 1 index exch /.notdef put} for -dup 0 /Gamma put -dup 1 /Delta put -dup 2 /Theta put -dup 3 /Lambda put -dup 4 /Xi put -dup 5 /Pi put -dup 6 /Sigma put -dup 7 /Upsilon put -dup 8 /Phi put -dup 9 /Psi put -dup 10 /Omega put -dup 11 /alpha put -dup 12 /beta put -dup 13 /gamma put -dup 14 /delta put -dup 15 /epsilon1 put -dup 16 /zeta put -dup 17 /eta put -dup 18 /theta put -dup 19 /iota put -dup 20 /kappa put -dup 21 /lambda put -dup 22 /mu put -dup 23 /nu put -dup 24 /xi put -dup 25 /pi put -dup 26 /rho put -dup 27 /sigma put -dup 28 /tau put -dup 29 /upsilon put -dup 30 /phi put -dup 31 /chi put -dup 32 /psi put -dup 33 /omega put -dup 34 /epsilon put -dup 35 /theta1 put -dup 36 /pi1 put -dup 37 /rho1 put -dup 38 /sigma1 put -dup 39 /phi1 put -dup 40 /arrowlefttophalf put -dup 41 /arrowleftbothalf put -dup 42 /arrowrighttophalf put -dup 43 /arrowrightbothalf put -dup 44 /arrowhookleft put -dup 45 /arrowhookright put -dup 46 /triangleright put -dup 47 /triangleleft put -dup 48 /zerooldstyle put -dup 49 /oneoldstyle put -dup 50 /twooldstyle put -dup 51 /threeoldstyle put -dup 52 /fouroldstyle put -dup 53 /fiveoldstyle put -dup 54 /sixoldstyle put -dup 55 /sevenoldstyle put -dup 56 /eightoldstyle put -dup 57 /nineoldstyle put -dup 58 /period put -dup 59 /comma put -dup 60 /less put -dup 61 /slash put -dup 62 /greater put -dup 63 /star put -dup 64 /partialdiff put -dup 65 /A put -dup 66 /B put -dup 67 /C put -dup 68 /D put -dup 69 /E put -dup 70 /F put -dup 71 /G put -dup 72 /H put -dup 73 /I put -dup 74 /J put -dup 75 /K put -dup 76 /L put -dup 77 /M put -dup 78 /N put -dup 79 /O put -dup 80 /P put -dup 81 /Q put -dup 82 /R put -dup 83 /S put -dup 84 /T put -dup 85 /U put -dup 86 /V put -dup 87 /W put -dup 88 /X put -dup 89 /Y put -dup 90 /Z put -dup 91 /flat put -dup 92 /natural put -dup 93 /sharp put -dup 94 /slurbelow put -dup 95 /slurabove put -dup 96 /lscript put -dup 97 /a put -dup 98 /b put -dup 99 /c put -dup 100 /d put -dup 101 /e put -dup 102 /f put -dup 103 /g put -dup 104 /h put -dup 105 /i put -dup 106 /j put -dup 107 /k put -dup 108 /l put -dup 109 /m put -dup 110 /n put -dup 111 /o put -dup 112 /p put -dup 113 /q put -dup 114 /r put -dup 115 /s put -dup 116 /t put -dup 117 /u put -dup 118 /v put -dup 119 /w put -dup 120 /x put -dup 121 /y put -dup 122 /z put -dup 123 /dotlessi put -dup 124 /dotlessj put -dup 125 /weierstrass put -dup 126 /vector put -dup 127 /tie put -dup 128 /psi put -dup 160 /space put -dup 161 /Gamma put -dup 162 /Delta put -dup 163 /Theta put -dup 164 /Lambda put -dup 165 /Xi put -dup 166 /Pi put -dup 167 /Sigma put -dup 168 /Upsilon put -dup 169 /Phi put -dup 170 /Psi put -dup 173 /Omega put -dup 174 /alpha put -dup 175 /beta put -dup 176 /gamma put -dup 177 /delta put -dup 178 /epsilon1 put -dup 179 /zeta put -dup 180 /eta put -dup 181 /theta put -dup 182 /iota put -dup 183 /kappa put -dup 184 /lambda put -dup 185 /mu put -dup 186 /nu put -dup 187 /xi put -dup 188 /pi put -dup 189 /rho put -dup 190 /sigma put -dup 191 /tau put -dup 192 /upsilon put -dup 193 /phi put -dup 194 /chi put -dup 195 /psi put -dup 196 /tie put -readonly def -currentdict end -currentfile eexec - -D9D66F633B846AB284BCF8B0411B772DE5CE3C05EF98F858322DCEA45E0874C545D25FE19253 -9D9CDA4BAA46D9C431465E6ABF4E4271F89EDED7F37BE4B31FB47934F62D1F46E8671F6290D6 -FFF601D4937BF71C22D60FB800A15796421E3AA772C500501D8B10C0093F6467C553250F7C27 -B2C3D893772614A846374A85BC4EBEC0B0A89C4C161C3956ECE25274B962C854E535F418279F -E26D8F83E38C5C89974E9A224B3CBEF90A9277AF10E0C7CAC8DC11C41DC18B814A7682E5F024 -867411453BC81C443407AF41AF8A831A85A700CFC65E2181BCBFBBAAB71645535A2B6F0F2245 -8E1429F4A67307E01F0BCF6F337E0E2AD89658D880B04C26306F8179C8121B958459B923AC3B -05B594D8AB95F75870019130442FD29578D44F5690BC7281357A5041C8A809A59D0DEE108E2A -07D406656BC74A9F3317CB887E71231846B2ECAA341F8692ACC2D14ABABDFBCAC6F35858355F -1D3228B0223EC73AC56F3C987464DB829F243E304F4C59CDE3EF6EB53A4EF9BA91510CB89A34 -07261F58A2AE66880BA98FC1EF546112892494C85A2C39F9DCCAC5766725894A7AA148E94236 -0AE64BF3A4F1F9F0A0D0C1AAFDC4D50C52233AA595B7D0CE557D4A01279029977FFC0A0A70CE -49E478E1AEF488A4D8BD4114A926D90CB46F98444851CC1D2DC1972FFF3E90DB4A4A81EBE7FC -EB6C69D380A5EE9647B18AB897A594DE74C88F232BF32DD00046A4380ECB8AFFAC4B002C5C2A -AC563301BD897A5A78B0CA3A9C1AF8DC621295C8347DBA931CAF74770D36B5A83ACEF1AC37A6 -63C1F2D044D5B33F5DB4AA98C11D4724DF232B9357D4608CB212A2560C933A35268DB88BB3D3 -699893F78676BCAD44FC236F12138C5283068C009DB5A8BFFE04BA77D8369F8FEB0C40F635D0 -54BDC5352640FC80CF72625850BBF8012F7729CC93DEF2977844ECFE11788F40E38DA7CB8CE4 -D03F54ECA7E2DC5D6AE90278331561127E08C831141163F73F18EE35A0213EC9578F10EAE0F4 -6FAD84C4DC2C6540BB80A97C5DDF726899A5119E6398D10FFC59ED145F70A4A87A2C9AD6127E -87C7119AC3D8DD6B634B2ECB59D298276CDDFD62701966E35BD29FAB919190B51028F27ACE06 -34879FCE370AAD73E927BE33C99FFBE2E62EA291AFA9CAB2E25DDAF8057381370591F43A6445 -6C9F65633F5DCDC63708B66BC891BD626F0DF84C279D61A2F21A9D0E69115553486A966C8A0E -0047E64BE96891DC448FD95C318F1A8A58B51324D140E15B826CA5A59732493E6D85166915BF -4D4F635404CFA8DE394D064DB6905C2D2EB09206574236A4AE8E3977A4A560013424C6557DF3 -8F93C8AC0BF2407D4AFD1B4DA0ADB77A8CFB364DCBE6C556F9BFF8592CDF9961E3DD19AC27DC -B21D54D76C2C56E4BE6E0A07451BA9970D09F1EC2CF74E22984040C2FF6F91D563DE6BF3FE0E -468BC604FFDC6184BA82EEB41724EA884AB993BA6A8E2917AE83E971EE0277CA8FE2889AC5A6 -94D95A3A99EF13CDEF5844B63B06D9DCC158778E17EC01284E9F94835CC84A30EDA707C9C547 -22A60FA7C1C6F8E58F9717ED2A0C69E79AE0DEF8D9213D3EC30A49EF762D306FBB26BA2BE8CB -96DE9459DD0AB200FBC98CB6AF00F9D7A11B6FADA33D5260AC992D85BCD221952FFB0DD4C51E -8CFDA97649ACCA932EE298FD4BC755FBE960990130553E6A58929136AEAE0D9D8461899CAD39 -CEC68C923EDE858C89A80280AA19576850A4C17256BF1823001383B110F97CCBAD6ECEC3B11E -39917B7A56B655E7A23F057F899F7E930E9459A8E3BB214B2C6FB3FC3CB6D2C0EFD11F24DBC3 -305AE378FBED9AA9A79889EC9360E71873F6CC224F5F2D1F805A16A4B827C51E12923A080E22 -C316682A05685E090D1B9F6B11C2988CE0BFEB1AA635356F0D237DC947DAD94A0D5351F058BA -6638A8A8365918C5CBAB7CFEDCEDB9FF7612ED23C2B5B40F766934201435DCD1829D5E3E96A3 -27B69235A7D50959476258473307084466252F25F2AA418ACA2DCB97094964222702CD732116 -4CCFE2E1F7A245FD601220CCC1DCCCC5E63930F400B61A38AB3B5D463AB3F8753E39D4722B9C -F8A8262C748E3454AC6D7A0AB4D3EFEEBD2886674ABCF1AEAE0AE0E053C70C19A6739EB3DB3A -B2ED7CB62CC889ED622D229DA7D3FE978C6B8D10880EAB2DF006A8B1C258067127D1E9606C81 -735B0EC4CE8D5FAB82DA12442FF32F6D91DB14EBA206AF5CBE6980E689C02C8B124FA96BD1A2 -C103D6C536C70E2814AF25ACFC30E134D63EB6C808CADC0B7927A44B4BC0F808CBF6E7651B73 -B1300B38621DAB2C0397163E212EF3740AE7E11EC61AFDE0348C54DA7A32E8B1A5B34B69F2E3 -243ADD8B20062D50CFC80B76B34A5F2BC3C7511A01746104287266B6202EC454DD0213D89829 -33BECD2CFFD8FA5A94D49BD562A98B410938FE9186F82663FBFE3CB4E95AE983990D6E95AF19 -7226F907939274187FEBE2ECBAB7D1CF7C00914B224CA21AB15AAB161512893319B10FA554E5 -4ACBE826ABCD965D6F51C57AAE3C1207C76A869648C5618B5715F7B97B020AE8469AC8227654 -44A42031A66ABC7F4D3AB3C43414070C65512D0E1151453D0D21D6A811EB404094783FE26703 -79515EFF5F94D835884F2D54EBF1E5ABA3DFCECA0ECC9B65263029ADFF5D3612DBE2B505550D -AC8C1D5605427E16D2B8D514A5DC3F4526689BA2C6779E874E760A7061EFEBA2D2F59412A913 -9BE7C62503C118CC2B4DDAD3167B81C9DA166F83C51D6A5DBC4CD435F1ECC50227FC048C21DF -58B3544F2E2EA6A5255BC910E2884486E0D156FB35849CCF3D4A66F89254E2DB3985E30509C5 -35C522DB740EB4E19B5AB4E2358DBC8723BE4407E39603978C5ABF6F93245C3AC10CEE59735B -95201C54631B7C4B374A2DF5B0AC3D4BFBA1CF955EF441B3DD0B792E272B6FDD095F77187F2D -4515DCA52AC2F2446D89F9719B01F5869ED18CD3BBADBB8199F11AA7856EF965E040F0C437D5 -57B4C983FCF415D31E30769B9AB36EAAEDFCA917F326EF3ABFA9A2094F02D2148B5428667C15 -2C3C55B248E5AA0B920EF2C723AB546286F15B78FE57601D2B6A29D074317675B28B96DF0AB8 -B4796DFC89BB34324AB6FD7DCEE148C0A6DB342EC8C770146D49DA9B6EC638D50D2908794979 -56180673B64E86FCD313800168BF8E4A027866AB39A289EF2D30B7073627E0A519E1CF116CA2 -B31F869B0A84FF864E4FEA18DA2378610009CA4F549E0856E52DBB28B7214AB5B75ABE7958DF -09BDA8215DAF7AD7DC40D72EB680A9F9150C35ED8900CF2D8F93444CB4355F72D948E5E9AD71 -6782A7AF2F1E72E7A78210E867CDAF5025938B7820AC64EABF96C078A0D441FD63EBC598CABA -CFA1A2FC5964DD28842A3A9EF86F8D646088A2A2414DFA5062848C862D6EA49187E9AF740492 -5D23B5A589C66C6726C9D365A897AD0FE89662356413D12A4F450935900DB1555468FA19DD6C -76BF39BB1B5F2901F9D419CC2470439B9AC6EB1D102BCC28B84D8E09D5BCDA50FB568B924F70 -A1CAC774634360BAD5A0E2309B8EC4B280AE3835AC594128C527E99288314A9A0B290C1AAF13 -94D33DCA6E3F45708E8EE1617111A28A5CAFF9EA2729CB5F34D91DBE7D4B59A1AF2BB564D63E -5E63DE568B36C61230455AC6742CC8FD14131929AC69F603657F204F1FB3ADD39F356E11A61B -69384235FE2AE6C6849778E06EBD401FC145FB024450FF3EBAA065241449F5DBEC5EB86ED9C0 -610B59AA3E15F8A1A26B23E0AE773FC170C3E1B4FFCD93C3FDE174B59D161DDBC0215F3120BC -D3C46472B27BA5FC640C92E32C93D240F25D2BD8B691BD8A43DB0F7AB9F56E117B04E93052EC -55AEBF4BF18C1C2C26D581DAE91B1FB05C1AC6AD90DCE4D0A2314C42B0ABCF12234AE4B201B5 -F0C0F3FEC3F1B81D7017173015CD201400CE58854A1211914B375A4C442261A395F466E64931 -A81C3FD46A74C327C9383A2F288C499E47A19FDA070600CAB5368AC7041987980D3C832BA1B2 -A972F620F89C789ED86A81CB3D88B47FAFBB39BFE57AC349BE2104A6C6B6721165474EBF584E -70418996340655735D623B6791011E8D2D4C3AE78CF72F15ACDAAECC701361D896080F3AE3D0 -3178F9C794F2C8E460910656C095F1264545029F813FB66310180ED6F8140C43DB97C7993737 -B22D60C7D92404AFAD4D76DF07EA1DEA167CB3852673C48CCE0CAE365821C467236E64CF875B -937711E484816E288464D98E976FD46F1FF7A75F85EC946F320EE33CDDBBAA090288B11CC70D -C10F021E87784D9049BF5E0ABDF4AD5B24644454EA5AD610F90CD2C36AC4B7E08293697C4F2E -E7453977625302BA73C542077A90E1D69AC8B421B59A3267F002A4D6FC1436A810E0DBCD6207 -6372981FB9F2DB91571A310E7F4122DF6E58A2CCF131B501BB34856E91814B1DC14F432D164E -41A9E13D391767353DED575E78CDCC28057881B4C4FFDA9E457F1EB0C1DA743817107D4E9FF4 -D6498E44CA8494929889BFAB9AA51FBF21819018C902DE0580225D7D01B64614BFC5C091D945 -541332C86D52693C09A6C27233611630C7EBC5211E66E292C7E805BB8A539C2657157B561BD6 -00AE06DB5FFF0DAA0EE0C4A7B52F979957630A810DE53193D8359F799138B31B2F0CBAD60656 -BAE3AFA7F4D9A7B9C3F281829D102A5E467D1A1F233F0C501BE68EB8802D06FCEF7E961A6DC3 -7E6AF0949C920846761C56C6201F894BF0D82E10075C2759A2F6C68EF45A828A9F138D1D8988 -D67CE6123926079CBDC50EDE6672370FE1B68051BC7E6EB72D204C35895112E5ED2F5B8A02BD -1C185B9382804F527565A717FC3EE547C4CF0BA57A00FAAF6A50CBAF2C6A57E781941652DAAE -7537B4710DECBBF86A6D6C0A868A9A339F21DCF01939729284EB1A8D6909E9106075C43821B2 -35241AB36304A8F9555599FC4FCA3B7E7DDBA80FB811F8643E848AC81A08CA0ECC96F90D1F67 -BABE0705016C55FC6F76A5FD8A9F2B11B32251257A3DC424A8550001753CB7154A36524797F6 -CAB4DCCC87766DDEE4B31725F5F9C3BB9FB3D2145DAC3D50437D84FCDC5F32DCC7D46BFDF514 -1326EBC6020BE93B65B14737D79205A54996F88CBD305166C12FBA91F6098AFB1F19DFEF9B9E -652153E27C328E9346D03B8DD6906E1580333AF5476A9087F7297E6B959ACCD94D27418BA7DB -523E431CBADF4D5E7DFA5D86644C4275B8287798C8C52620D5474A2A0FEFD4BE538D307C14E8 -4378C66FBFA5694E8C804B404E40988CEB1498F766AFC4E4DDF98332DEB0A4C269D672A137D1 -0586251CA213788AD1CD34A5378BED38CBB7ED8480B187C8A2356B7ED53AFEBD9D44777022AB -3B6AF1B04104FAAD09CE6053525CB659040EB12ED2774EE017FD43B1916BE57913AB7EDE7548 -23E928380ECF4E37B320760FDF2F49171E0B673BE893304D661A7BD892FB46331D09938D8353 -77486E707D44B130ED07FAEBF479F5E46166A48380A89C41333F45F68E2E52109F420E01DF05 -E581970563CF557C4FF2A82BB9551D24B472D13DD9878990AE1B6E90FDB4E73560CC95A32CE0 -E12FD4F05E723B353F1A39CAD8F00F3E519C4ED7475A690783ACDFF79C91679786703D7B86D3 -5F0FC89930D448CD3E28CBB47557BDD3A57A7C9B54CCB4E356494DE3AF662ADFA38436C21507 -CC63E7AEDA5E3C979C5235CD762D77AE2AE54D0FD88F88F9F396318256A2A60C69873FE4A282 -4A426685A0199DEB1D52A60207697BE44823B434680B288501A01B67C57EBC0A38BE2DD68ED7 -EA85BDCD1440F8287DEC9B18FC89E616549C06540B4D979C8450ADB18260EF70D488A1607A8C -7BFE279B9C88780C89EF152B9A920ACB173CEE3C74D792394E9AD9C1CCDF6C49481DA0DD739D -C33DEF73650FB0CCE2CC0417F67FA4314ACEAAA92A8DD7B0BFA94C5B99B7C48D732A6367F540 -D87E6D6B6676A84338DDCAC71384860D0D3954705A408F5E1183CCC603A784A0693770B7AB32 -B69582514CABB337B2A470C00DB7166440E729525DC1FF683FDA5B6D85703F23EC78A397302C -0477E63F6F7AB3F29BB7DC0849E2754E42480F27EC01B3F08E17C55657AA158C215836D4659A -58BBF32F7F7D73F879CD9D9AED28DB7D393189EDBD30C0E473D99888C406F7750589E6F417E7 -B073C7A3470D79885CA41743F24A00A0298126DFC06D4D89251B04E3A0CCBF079A5C0441BFC1 -D0CCF2377043ACA0A34CA712A54A42B930F5F611F59B527EF9A36DFF363B838EAD097650E229 -1347AFFCE3E55018250FB2665D258F4F74817F8FB9E5E3186C66BC416B07E2A1123EC9D69F85 -E1B51F7DB640885FCFB7B2E3FF05A9F3571426E7A8290523F9CED780B09A8CD6FB2BA11724C9 -9032E6695F99A9429D7A7604EF601C5D43E9C75D632BE88081D18CBA84B4052A83CAF9B5AEE5 -4D1B30B9BC86F7A1D75CCDC8FE066FC61FDBF38EF36DBA560AA92CA5545BBCF306A3D9D66184 -EF27C5728EDABED9B7CE3D2BA02EE9745FB5D22C2780A6C25029DAF3D0A79E722AD311E13457 -8570D724A00B1C557B1D2D8CB6A8D18242891BF3209F8C861A71DAA099A20A61604FCC7C71E3 -89649805A1DEE1CE33E91A03D3C3BA24E1EA2FF37CD24D52FAB72D608C1BE0AF0CA93B36E64D -FA7CC59FC3677EF280F7592075AA5BB16CF2286FBCD9FF06D481671A996C450FEC7793B7B8C1 -D6842B808C7F70F464DAB3586C148F4458751F14A29E470BB91E62324D0265AD0DE5892A65D7 -D7F8DF6952DB587838B941E897456E5312955C5215A106A0799745D3E10F819BC20399C2831B -6ACFFC54393118EF5093A772AFB6D9F45D547CC4D17530997AE0574D8A53E73DB0909303F36E -1B01DD1A83D26B9BF99BFEC48D0865D48D2CE88DC4D5F81F41A3D6469DD86BB42F625CF5E3E8 -B27649DDF7E6C902B70B03A15112DE12F39D0144B1D4EAF3FB6BF87396A2683EB69A6085919F -618DA950B0287E6A2550AE86B8C8C93E0F0AB547576C954C81D13F02999D87E4B5F0F9A6F604 -DD91A926C18A6875F50026BD1E41018624108C828DD425FA8E39635C500C22472822DE0CC5E2 -AAF9FDF5B586E1EC05C9C0C11495D210007A85041C8C9F972B2293E4801BB814DAB883AA56E2 -488A9992F5DA19B58D3147DA9FF748788AE2590FBCE954B2CDD2ABC90173902DC370538C06AB -C143B3B2A0713A0A82033939786563065D52D37B7A43B10387BA3F794FBA53D62EE62BE05423 -60FC6022D8208109C66B919C6B32419B3EE5261C835EB2DDE819527AD13D661189E99629F867 -6A41DD93277887624250643CAFE3A55ED28E2CD3210FC3A176D5E56DD80B4A2191B12A3CAEB1 -2F53B202C8C2023D4DCC397D581D5BDB5233E1FA41322B4E8364EB22E2760046360945F5925B -EF2E0FA1CED35A4E4E82441B1DE3C2E71F6818158CA37C1F12F04BE73E35D28B2E35284BE1FA -15D33E2B0786832B34BB79D540A815DE059D8ED042D5EE5B591FB8BC94F509AC1D2D60FC118C -95899491F1CD9121A5A72D7CA9F552564D7236096424116A8DF7AB77AE651A9FBAAD8DED2825 -2E602EF6F20D74C0930A6018F1C87F889EE8F6B48F6E31E568200F6E7AD1DB65529DE080236E -F96DE414DE4FB002FED9861877C2774F752A4EC7F80E6B0078638A9D99FF56A3D4C139AC48C2 -7138B032C9A4CF1133F1A2CEF2F2D77FD59BF4A2832E81539A062BC81740260FBD8A915CC4D1 -5DC09D6257DFA121A24EDEA570D91561C3EE3092668FBC6C8FDD6EBBD30A45448D0CB47007E8 -43723AF1B0F31D11E5D4EC5110043DA3E40091E814E2CC9D57B51B0316387B1E916D4355D8B7 -3BB75174FE1BE39D5BAE8A5ADFAA12116AC69AB47C590351341FC8E6433C155A65CFD8EE176F -E4E5FA4485761FF55226CA44E565D115026B9763169D6BA9283C269D2E3EC1DB025290B1A8BF -F24B020D7DCA0782E7835504AA73F646FA4C547A78AAA333469FAF536FB9508C5F7EA9663A29 -0176B3E0B546690BAE386C5015C77370504EEE4A81F494CDB21B6C976164FC320F322CB6B2DA -0E159107AEF1A76C8EDAF00564555F289279B70ADCA1FC32E50F7440F4CB960ECEDA3CDBCD9E -D005AE855D483B1A83765D1E0D1EB07F3114A037FD338209D0C4B93E527C3FDBE72A6FE453F0 -03579B43CCFE086CFEF823DE17CBBD16C66683BE3844408300FB93F99D78494432E4D0C3AEBB -B6540E7EB3B2ED049CAC98624D9D3127D5E2C4956A726047433299702239D3951CBB9D91FE5A -3FCD13F891D73443B53CEF5FA897BB4B16918468A17CBE3F97750934805C0A4BC91CF69E690E -ECC7ABC7FD34E3DABEF0569A3973A9E5F2FF8B1867AB573B1F2D9AABC7384C19378CAD184E14 -2DC99243D5F8211C9959B50B581D372AD585BB4189F5F25EF8A4F6D27D088DC9A3528941C913 -7C6A49B2A131C54728019B778BCA6537E8E4DC12137C0D09D9F2D73B4BE83A60538A9052331A -620CDF23309624BB990EAD3AE2864A7B4C3E39B4B7901408DCBDC5CFED5397756E6513EF04C9 -47A77FEE6A1E802834A4CEFE9617644B29C7EEA048A1FD252A5E3A2A8E0385C49F860D04143C -77E7C0F4C9A5E9769833C7FAD4FB9603FA5CAFCB0321CFA3E7E0B8A3A8FEAF22D367EEBCC0FC -20D60DAA2167BC2938ED47367D85541DAE7E8729B716C606B4CB89BE34F1948A36F07F2E64F5 -3696F3FF980A2C4F0A1BC315BA943B4EB24FE87AD0E7208DA19C0D3218EE1DBCF4506D806C4F -E42AE61B50DB1AFFD13129F6F6A5DBE0ACFEAC01336045250D50ED31B6898E92E8E8AE7D9262 -97E5666B98E63E60BA37AB6645A8F733E90616AE2508FCF11A18CBEDA7AB9E734410D0BFBA0D -C794E7FEBF9FD06EDE8005D9B815234C32EFD73587351A6C4BDAACC3421EF2AC93EF953E7E6B -88FC428775B7470BF65060E64A15CF5C115FF9C056842B07E6D6813D56E2584273230485299A -43C0ACABBC2431F0C78EFDA4EF4B9516358D06EB2386AF8FA14FD752B618838543529CA6C3C9 -D47AC78506AA6EA8863EE08FFD213EE8F2529B62919B4EB0FC60BDDC717CD3DAAE0EAB613E64 -B649FC412EEA5D451C471145FE8803BE1717D7FD95003D951505BE01D5755D98E17604364B72 -714DF4DF7B1F4B1E4AC5ED81223733603BD876904123B650DFC28B046DAF32AD015BD469B726 -06E0E4E2E101E9A3EB01BAD6E1FC28557FD152149E2AA456D28F1771D46E1C66967D5AD164A9 -3E985B6FDE66F72B814C7776F5E95EF89CD5A1036C1C4E592AA633B8842AE79670D266F13F38 -A3862D0DA8AE104153139CB32F2DE65CD7EE5E2AA126C9DF95323001767FCD5C736380FCFA71 -A5705E481A5D1AD43E1A52A0A3EA57C79A20290F2C5BEC8A1546377824D2C3D444A0D8443EC8 -6F147C74FF7D46FDCAD020BDE9012E2D881AC67A975BD3EB129201881A69A14A73C0D69349ED -CEB11EF8679321E9B430C992B693E5CB664A96A96CBFD2A0D85A6646E73B14EA269A6F4360D5 -46CC4B209243B861F8DF412390C2B311118873FBBA08600B412E92BF7D2A99F64F6748C0CB1C -41EB348DE2CEECA11A4BC824C08D66B9CF4794A4FE2089AEEC1133F6AE941E49D5350427513F -0228BD939F7E20EE614A02DCABB58F707FED08403712D3C0DD89B8A589419E21E97451666EC9 -57ECB2B85EDA0069C9F2D2024798B0490287BB046C348C5E465C1ABABD4CDC55AE0655E6EA16 -4D9C5927753AE5FCA143F5E68A0833C639C1BEA3453B29EE19201D09D4C3E49559FEA4DE15AF -0C8043BCF45C956A2F5B5A8A69330C4CA411C8D80B12FA4C6ED55F4CEB631CD1786C9EAFCC8F -5204D1F3AC571CF3025D92CA3C9099CEF4B97986FEDC2A5ECF74B22A400F82F9D6F3BF69B28D -9A0E8AF32ACFEB52E41A8D2B739E9D5B587FF9A3B9AF04AF51A1B0FC9C65F1BD03B9DD5522D4 -1A37F23088CD83D730918B2224DF710367F9FBD7623FA51DDB3C79A0B949B3773AE85699D2B8 -79D027CF0CBF91A0EA7F57331328A5AA272840CCB9D6B6A7C9034BEF155AAD29A049B18791C0 -0E084E0D7C896CB406E5CF3CA64CA072D1C401B6D58C51954C0D6E3A5D93E683477F99E1305A -B4EBE7ADF8814A913AE41E1A84819F9EACD37951638EA88D462552467725EC4E01C4B124B221 -3086DBCBE68A3EDA3B443E85273DE32C5558746D3D2FB6DB7B04C5C48741C21EF9B9FD2BC21A -EE5AE81AC5A7A2C2AC19D2CCD3B6D983811B627F294A9570FDA3DB78163F25699AAEC2F54ED7 -C86A2605E811BA6AF18C266864B5315DC016680611EBB0D030417C8D4A54A626378DB354532F -864972FE0752C46D21D1DDDBDC0DDE25CC2CBFE5FC9AFCA9B1B668675117EBA029EA44BF0CAE -A5B7673891E6FF7C5C187236E22305F9C0D219C35D711F5FAD31875F45E2788CF38942C4AB9E -988451C591D1B2A659E7A30B472DE06F4E9F7534FCE4D982B4F1FCB09208D92EC17EF5398B9B -7FE4764662EB7CDC0F4B9F3DCEDDCBEDA3A4DF0A20C575085D85CB236EC4BE7A0A8AF8921ACC -A2073CF3F0D63C4EDFFA803800B5D3A20343C7D53115A6DA14714EFF62321CB6133DEF3831A2 -D8EE5D365942E0C7C9F23B7ACB91335C086429B4C1ACF5821C62000B85B8D4DF905DF47FED56 -AE48555139EDF88DEFDA5BD72BCB576B32903A29880385387A94B64B284621513C20C2A477F9 -51C0B4E67036770BC97EC65425252769CE7D4D4F4D95A48BEEF9B891314A64EE97460B317229 -1CB82FAE1550B528482D34B955ECD546FF6EB16AEB938A1FE03061347B7E886810D73DD1FF80 -BF4EF7F21C878251438F05B3EA1FDAD6AE5B9FBAAC7CD1D3CD08933B8C7D598167AFBA88070D -215F7BE5EBD794662A40E010BAE5904CA0EA36B5EA2FB4B04AC8F67087C5967B9FD317111870 -1E4398BB5DBF3B8C4432F7BBAC75E45B12808517E4CB025A50FA2346C698D2E654982367BBFB -0F1E489DB1AD5E18AD7064AF4AC3B21EA86481144A29F5FBE1021CD70247D5BD0D7CBAD7EE15 -0B106AA32CD4F33BE8DA68F6EC75C20018F71371C12F13360F88FC60771B0EA933D9035D1B06 -90F4CEAB5B09EAF963D27A6EFA9AD4E859E858FC0C286A43A4E0C9E9FF04EEC585289C3DE981 -550AF41FEFF522DCC34CB0C69E17A074031B8E79AF7A3859A81F5854F68206423967FF1C0376 -B5F92C49EAB0EE901DC10341DE0240946BADCE1C5D9100979075B97B2874C59ED03E57A328CC -10D6CF09FEC40A0FCFA669812BEFA950F740433D3FDC500DE421F4F048E81F48F0B206EF9283 -2F4C9B026E1B0BCDAAC900B33241CD399630AEDC49CAEF5144F07492529B29CF68C38F11BB8D -E3BA0BE1C308F831626614B27420C706868AB9476ECC822894F71B33B4E6CD668D8529E11610 -35A34A3F1F3C32AED7D591411C6CBE1FC757A13C64A7D18A8CA591AF3D3C9FB0964C9B914D98 -887F785D66225CFC5ED11B60DC0FD25C127EEA5288054AD8C2F40EA491DE3940BDE5E92F7F83 -D960DDAA1C5A2609A61A4AC70392276E7992B54B9FB8CAA5813937DC040C9BF08CACC221E0BC -88FFAB2DFEE3ACDA7B9DA9D394053CE5A37C6013582432F9A0CF3A11FA3C0C1A13BD31044F98 -66BD008AA5BEF09A1A96D43FC80DA3F04C2B974A3E514AD245D342A1E0A37F242A86EABF3265 -10D91CA012018E3A89D5AC46D2CF07916C800DE1E6F4C553DFC2CEF05B0BBA9698CA9210F421 -6284CA57071B8E00AE4421B2535222F5FE849B54C33595F7D65D32CE0835E9BD9011FF4DECBA -DECD942677070A1B050F75B4F312320D36C67FA53C79A9EEC072350B574FE2CEA2274F546DB8 -1F87B4EB0244FA4357AF72301FD4EE63859666547B87CE6215DA34A55591830B821E03394493 -009753FF7F7A3710A833F7DEF5326FAACE7B14C132E7B2A082BC0DDA50299DD7AEA22546039C -E67D0B60131165F4E3362344972CB507D2651DC1FA912D9918C27C0A87202EDD58730CF45ECF -CB99C9EED362F6FC12A35CB663A301F2C54FCCC13490EE113D7D87D48124EF0CAC4DE18DCEB1 -A3BD707E42A74D16D04296D095466D73EDD4518C4DAA8FE956E04F292A9ED1481EFF3C6EF0B2 -C8BE03BF80F91638639E473D937FD0AA35572A99BDC8C42D81D2A40202D42E1C6E4A993FF649 -8D8D899DF87D2487E60135208FDA85D6D8A625FB229ABD48E0659B783F69B267581833A721D1 -8DCBF291B51EBF2C8CEE72D3921689E5AA1CCC4DE735BFFE4C24F2BF946142FD76CA4202DC5D -F681C1E6E513C1D61335EEBD762E54CD850387F98626B8AB1D88E1A335BC5D80D25212A6A6E9 -291D92B8BA19874EF324497B4C948EDA5F958D079F1BB83AE1F77089037D1F284CF180FA273F -54E4BF1394D5F6D65882B8BD986087AC50965FF365DF162E73A9B39E864A8AF5284D01C27264 -8B7B5426141F64CC929DC464CACCAC2CD611BE7AA74E0D66E4585BDDB8AD27A0B21504A6F6C8 -BA8992055FC8B5E62C98AF956A0FB7C6E32B885C2656E98B766AEBDF8D46976CD8335A459B3C -4906AD82DCD2C48FBE9AE9EB8A90CCBD19E73A1EC101E5DAF2E7DABD8AF0B3605076C72163DA -B24811C3734CD5B9C2F210782A62F2BB5266CF28C06836BDF5B47672B8D3560A9E114A1E40D0 -0E83883CAF9A19877F8A9EB4B8A24314B558661C443FA8CBDD8EB5885ECDAE2BE452EA79602E -380B647B5EDD06EFB1D97BA59123E38740A470425F54E2A59A41D030BB29C9613B23C7886FB1 -5CBA2D9B9EBF4BF0CE6867F12959FEE2542E16DE4325E774180FCDDE3241D242763173FA8D60 -02716043262FE1635A5D1D8593CB27297C1E27CA4402E76AA598BAA32BEA1088CE5177B2A57D -4C0EA7A4F1873C71362E33F41C04BAC92325FC8884F8B089B5DB993391B4CF03B91252611ADA -781B98C149EED85EB1D3F875C705A953DD286C4F1AA0F4084EED921DF2053658E7646AF0AF86 -F722E655D6C6191AF27963FE2C540DA918F959502AA7034D07392027F4E06AB0308B284473BB -966DDFEB56D18A8D03DD87D694B9B23F5AD296CD976B6049A56784E26A8942DF5988EE225E01 -2B8682805D5D3CFEB5900F95DF3A71BC9F48ED288230D0413A8D1A581E54567D554642C18CDD -3217D4131025EC08D4FEF6375A97EA6013DC48D6AE7AAB1131C3D144C3FCD7692F07A7C391DC -D0BAD244EE122EDC39FF4DBC037F784D2350B479A133FFA5EDD7D8E9548BB9B0FE15696022B2 -476BCAC3CD908FE29EA6F7D5018803486B9FCB65174F24C3203224CED0C3701267F1DFA023F5 -45465EF84A46A2FE4E8F3967A7851767754ADA4CFBE60D4A7F9C941363A92D23EAE1990141E1 -15D8944700229CCEE6F555F816B400409F7FEF26F7D0879C12C401E16452B707ADA7494A2DE2 -D354FCB072FEED7F47B280EC4360B1C692315FD89FD5E6F66432E67AA43A3F69FC59006CA0A6 -F3132DC49EAD3D5AF65C8EE2BC80FC656F6F8F090E323796BEAEF0385887E67E0C63A7410C43 -F15F006E87FB0CBF8297010993BAC8C3D34CF01AA3FBD99DFD867D168AA37A5CDC91022B7930 -FB0547A3472AF22C31B198D4D37655914B3D9AA515AD6FA54503E0FAFA32BA19373D9E036F1E -67B9DF38A5963524FC20EC3C32232811DF622C3CF2A7DDBC4A44CC264EF2C986FC41AC283FBA -B74A14DBD67299AE5B404BB1FBF87A503DB6FF0AD768938FA6E325D416F6075E5ACDCECE63EA -D60169645DE2F6800A2F1465CB783A32741332D6A927371E929A5DDB2544CD564B9B941B3D3C -7345524F53F4BC64173DEBE8AC2FD9349D1FDA8701E92D2C56FE4167474A3F1B6547E043F523 -8104C2075CE6625E585E3AEC5E1893513B7512268AAFC556B2BAE9154C311583C14F86BF0C76 -7FCCEF8C08604F1CBA042FF84118B65DDA73E341A3D0C4515F57DD44D70F5ADCB3B4DC14DEAF -ED307AA7BF757D7D5CB7B764F5BC64F3F247D9A586C802E8BCA668A2A9EBEE8FF3DF2C38A97A -0FE8198DF19F6A16C87C79558B85BE369C8620F0A15EC4BFE01541F2BBCBF3A6F35FC4E88582 -BC1866C81025A7BE548815868E9E0746C452F7A1102BB2F34AFA918A4DFF772270C3E7D9255B -16EEC5381C906ACD513213EC91DFB56AA5ED3ED535268AA471F2971A606DA9B79BB356667944 -02C853EE32C8B8F335C1D7FF9491199BB74A49B35A1314CB59A3DE3969707D14AB9354135873 -1F7A456BE0E51952304CDB10F00E71CDE018818F49A7BB400A819DDBEA815D73B606F1368F50 -4F8CF7823A0045937F54B981CAE483B8C91988D349F18322A88F912B1E09F68AA9FF93D3C160 -B74974C2477DB9A09BAD4F1C10E617698E0480254F9BB8A4C9A2B2712747C658C53120622A13 -B92B9C9DEA123B73AA1CE8526BF0F78342076100ED293CBAE42FCCAE6D645EEEE3892339DB4F -234DDC6B20EFEDE8134D6E7BF3BDB4A7E6CBC86B45CDC28A50FB6D82F73E6B480A02E11B0DFD -84DE98AF7B3499CA7E3A710A63E8F67D6794835F50CEADF6835194C7E849A37F7A614476CB03 -E84DE23758AD8F97C82FC740013300F1252F9D934FFE0BB47152BFF7D38193ECFBCE367ACF97 -29291DCD4BACAECF34C340EA150D8D16DA16BD903C01D8F5200AC8CB59B25750A2B970B7F3B6 -47EDD5E48DB10CEE62F2325C70A8B3612034B7D826446B84070869671F8BA81251EE1C154C5E -A9BAE6930E3FB4DBCCA896184C4EFE89767E979359D7E00EEFC75C01D0FF702D14D41F4C783D -1A07892E1DDB39C973282720B7F78A5A3B32CE86363BA72D93BA7416C108D7E996BACCB15686 -130E0454C48090542D1EB511417E8798AA305FF10B4F512357ADD5C090ED4253A70D3B8125E8 -97167A9122F953AE7358838E030F39DF2BB12653C07ADC5A92A40B771F20E8A3A1B7DA449F2B -77290A82A63143544D1BF024C1E931657E0CE2D3C0A4B67F967F34E4CCBF76767549E0C9AD56 -9842606EEA4213402ED37C7D59433EF725BF348EAD3384EF052D5D217E9E14C716AB69AC726B -1991F0C8ABB7DE8AA207F8B56F4C0ADE3A360064F9CEBC8AB995B521AD5B3C431C00F8A5DD16 -F9EF848882A2BC3BD7DE968F1EC01ADA57F9EEBB85B57193D3321FFDE675A93D26908C1FE97B -0E911DF482B7BE3D6333E1E2CA2EC10AAD45F6AD78D9E2858DB5600F1765EACA4E6F2F4F1BAE -B326B8D055DF885C69454B71C2BD88A6C8E8F2D51A42CF1304568194502954E672F5935CFC8A -B7C4668E92554EC3E01DCD6EBDC5FD00FB5FEA8BAF4838AB93364DB115EBEA7227AA07826FA5 -166AF48D71FC84BF3DB59198DB5F75ED215048D376F8134E214BB6075475BEC9A1238F144ACA -DF1014B3203F1E07A010C5B8F4810E2017EFBD95816356BEA7DE7D909D5CC6B64BA154A51F8C -517F9172D8644D6202CE80C82DFA3F01DBE924BF8947C767F1E4DC0BC1132C0DBE79CB25F21C -4DC9D459F8C16AAE46B6DE505282DB2A25BF18A9B59E060BC19A656A29E2352560FE477BE13F -A0D8C8B03CC8CA2B3A49129B44C6E3217E5E78047685202CCD7615FD5DC6C69F10C1AD237A3B -9C840E0B06DF833AF884E7B64AAD30DB70DA47E9FD421FD6D74D8CB21ED90DF548627B180308 -146A1FF48CA5C3B35430F45BC3B8A44FFAD66BF2E66810439E26952D3741D95F128FE9C620AC -A373EFEB9284D63644D6F971F2C16855BD503F8EE9E3EEC82D4E281E81EB95B9E402D90FC76C -EFB56C2C9D735EF29D633F1CF63B42C9A9C062782F1FDCF3204122DBC78A17205FF992DACEF5 -F40114313F3757747ADAC5B09B290572726F1FD4640CB718E8129E979411A4A59F64A57DD5AA -1493A3CB5616520436652F92D755387C96D89F6154F5DA71E2D68C4E20BB34BA89BD5A3E444C -2ED891C08E3F4B11C8504294380439773FB282283932FCBE777357A00A54181749239FFE830C -DB6B496C7887FC96F39E9A182E7230517584FAAAEE51A3F947536C0058B20039A152D1CACACB -54EA8FB60CDE48613FA591D2D13A062257DD7BF93AE306B51E66053DF9F00763B37B84ADF971 -3E144967B55A2834CCC0D04EEE6A455E0B7C9EE3B75C371A59531A975F9C6CD983E3E33F4FDD -0F39D4CD8CCDB8AC244B317DF48C83F7ACA6C9C8FD1AC84D4DDBE468B21C55065E517DB3CE16 -3C865020D3FC5688C24E25BFE032E556C9F82C6731096534B05A845F62917E774C6655CEE505 -AB8DF7FF465F3169B7DEE8438459E6B6C2AB28AD5304E9C1E962B145D62D13784ABD1052116D -D5F3D97FC38286684207026E93A9C61DBD9DDD3E2E78BDD2BEFCB89AEBD5622713ED7D5D661A -9B7C63ADF26E1C7F97651C3F83C4319470B9C4BF5D5DD79CDED1DF353129B3056157016A3D57 -F35D8F3532A5A5BCC13C9E8871028A1EAAE09E25EA070495682C89D43C422EAE3BEA99E2ACE2 -B069165F211CB9DE25330ADF887CBD526E4743AC22FA71C5540951474F01D389273E6EF4421B -05F821204A54B72B44547E4A23C40D9FBDF85654C89F360E2973C010F264484C28951B08D1D2 -F2AF27F44324654E665887CC388DCA2D9B05CE0A7CCD9495F4154222B740C3C05EA5D2898DC8 -89BD316709DAE5CF71D819E2796A68E36103A5DF90887F8C9AA9C951A8610033D153F9573409 -6D0FE4AAD1853E02672FEBF3700B5CC2CA033C2718990D8BA4ED740A68C9BED9E3CF27762B55 -98BE34A168E1DE6084596053A1C149DC6EE1818C894055E1CF2864FF5E191E3E848386734A1D -5C03522616726BFD65A742FB608051889702DA2F07C4D494166FD871DDDD2B3C6F0710322AA9 -74C7EB2218B33EDCB3C1E924977513AEFDB6D9D9D7C5BA640C3DD7EEE638CB72F8DFD9754114 -E515132B8130117EFA03AFDE99AD87A817A79DE95D960716EB01EF34BAC8DDF1B11084E86FBB -6696DA9A2B62BF68EF83C62E7F154994E701E916EB303CA82405D2E73132BAC75C7D02D82466 -A6815A40B1A6628976BA88E4156FA760015CD199E8E13A27464AFAA4D942B5A9F51F53235E8A -C836C112231C2BC6F13A7E45C59CF5A4449F36555A6337AC9F16E5A7BF32BE568304E13EE297 -D82DD9724CF4666EA3BBC4379DA261E66C087AEE5C61883CC235416B0C817A17B195FE641E7A -6A2998031101DA7CCDE9629C0B16424C3E395A1ADA0364E12F7A186BCA09FB10F7CEB70F7C0F -26E02569610247EF769B49C0EE68DB071AD7283F329A99DB801D2D663D3FCB900C4BEE7FC805 -FFCAF6D7D850821D32086288E8BA0FBC3E33BEC11AC68D23EABA2664405934DA8CE38D96BB00 -51D30DE0381A2D576EA3D40BDA17988BCF441D2593F2DC5383A0B3CE107FEB8439EE25F4B8E0 -0FAC556446802D70EEDFAE1732997FC52C24A1A798A9D93FB5D9BEB61D0C4393E3C1CE3CF202 -0BC14891026BDACA434C11CFB409C1824B8EAB63E4A2EC74658FA75074F27D10D8A1C985CD9C -C99AA5570392B5D556CA3CDDA83F7F3C02212B895412DFFA9EF15E84D645F0DA3A2D5C32B13A -D7360AE353DCDF31992C2EB41CC8EE5C22119E0D427249B6B6127572FF8D6E4C5ABFBCFB5663 -08D3CAFA0970FB9D2553D19BDF4CB5A40D700CB119A6FED62A294C98C6E8E98AF5EDEE857C99 -7D5F516A917E26ED00169AB68CA9A2E3E3CC3FF6A1461C44808D0C7472ADC0D08702A3EE9DFB -A7A6613CEDFE14C09FA9150D2D439486D0ADDC5343D1D25905C9C66B8F8499E099C2998FC45E -CE50688D6628BAA55D1E1BDB1286E140801399E5D9D2B22B282D14A83BC4D4C5C8F00A6C0519 -F0184D83EA637FD30CF83CDD382E66D4836BC761C15FB419E65F4146784FD55195D3C9E36B89 -F42E7790A514B8F058182AC38E7CD0A6BB16D661674045F48A6FDEF1BADBC830F77FF8089D66 -417D78554FDFD77C3223F8677C6613AE65906896611AFCEA7F2875A5848380246D4A5520388C -DE78B5A88D4D322CD3AF94057726EAA855965745C6571EAF5B72CE3E9BE6246E233A8D6B7339 -5F817C46AE632762C6E7846AB4FA04B7F232B3E086A5AC242643BB43E1F9840B571217F243D3 -F2E754A42CF0524D4456AFC1625F86A17A7A5CBE3AF6E458A23596F2F3355A01503EB3C5024F -8F4CB70436BC659D9B9A455886C7DA64272DCE686B5E21891081637C49BFBF0370F34D019E9F -2860DEBA5798987DF9120661E081619F93BCC40DE41A2960295BD3AAF6FA1A18E634AF36A5CA -61B1C4A8FA60667A0D69E2CA883FD19ADEA985DB8438F58262D97FA4FFDD5F0877C769AA9049 -0B85628BF809D952E1AB36C488DF8328875C4F4B02A95DD4FD068BB1EAA379495DDEB6DB9AB2 -D2ADC7CC0321962318CB2CF7FF695E7603FEDF51C86667203F9669FC4351BB83DD99C05D8E92 -4ED846EBF92AD02AD0FD44D0F5BEBAE2B02EA85CE117E4111433B34C2C59F93F09B6679BB473 -7F47F4B9F19289B84EB0E80F8AEF34C7ED03589A9553FD69EF28F0B62970800C3A7287EADCEB -C6E4E092E1A736B3E73226674A3DEECE8B5BA7FD43265F7FBD4D1772EA18C93328E337A59B1D -24A5BB8A3E32FB678E426A8DBC69EF648F517F1B27491EEE3B5FE4F0EB4664ABFABB205F73F9 -47D7D74F63A84CEBCB096A4BFC962225C22D0A05D3A399FFE5A98B3549585E94245D9ED81631 -934C5C4B0FFB8D5BB8C4B958B37C9899FFA7C4A06096C5A433C9424A5B0FCF089B1C230361F7 -D4A40828A951E44EC1916191CA916445AAA77E55C66B80E9E39FBC85BF7971BBCBDBEE3246AF -BFF3258B67E930CB05442A66854C9540816F1D79E5F7AFBC8D76A7B58700F76AC4AC4385FA3F -C2CFFBE23523EDF5F2C818A0B7110A9A1FF414A7D74998B10CA34D050CED08215A0183DCF6D2 -069458B6D6B20690664A0C3C01C8FEFB74E98FD9BFA23EF69716A076524B0B1D9CE3628F77AE -698D957E8D4B30553DA4D48D3CB58DDD8CD31EF31CBFC268DFFA6A238F892C752395185CAD85 -A311F7ED2227AAD8CCE3C3A54D7575AA2A450412E7233D9DD85E27B6CDCD8DBF0C887D971FD8 -2E40C6E5A44CEA5B3FD1C6CAA06721CC55A9E93A7761B93BEC79D970C748065E2C9D8C021A07 -066E2C8EFA37046B12564FBADA23222DA07CC445BEF8941FA73C1CB5125A3BDD295AE8E90560 -E969AD98AA63B858046DE098C50E94FA8FD655AD589FB2A2F2DE27E6BE44A8F23CDA46F0D490 -A3924441B48A20D207689DEDA068246F367E8883EF75E139917E5F1C2DC87A617FE45822AC27 -692F6D8A9DDF3B4E924C15AD5663A1CB8B54B92F79A49FF83C2859C3D78392622DE6911DB0F1 -97B47C51594E5661FF30D67F2E02320C29D8440374C96F2094C5525BBE76D5E5C2435D4C4ACE -5F01C0E0AE96AF9D6B94435B7B77CA7543670A2ABA7120A7FCA375801AC765CD5949552F0DEB -790D1C27BE1EB8E6C07857D77FD5A67B761BE7AEF45FE708A64F54A662B09E478B7A85F5A302 -B2F27109EE41420FB9087DFF917A30DA4F0D13FF9E1A7D0A30082DD2BA2C1ACE9ADCA6020DC2 -A4F094F978196D7948764BB97E90CB0B2644E2AAC575DC1404EA9E580065585C26B9E19D2099 -F8627118EF61B44138DD14B98799DB61E1DF1E96B286F272B499851B215E40B95D1C9C75B8DA -CF3D5D7CA31F743DC39598A66C53EDD89AE799759EDB6B215C806F01AA2ADB95FCCA2AA9547A -4275A8E0AE843085656AF904C07B12E7A8AFB717116D4597174ED2D54DB4D937AA6573CFF61E -188EAABBA8281DD95C3C9E1C23F21148462EAE554AE71CCE2D53D9278D9E383C74F749C49ABF -76E173414F8B5B7F7822AD6AA01D2DA726870F3C746833E0BA19BBADED69534D605A482894B2 -ACEC07C34BA635E36AE7A597227D4B7840B0924C38AFC4C89C5E44C7D16A674234A3373EBBEE -A984D19D33F5C0069F440717F4EABBAF241AB268B5C377EEB6E8E78C9E834854B9E72D57EAE3 -1666915BDD60A181D582AD47491C1D219A487D39A731F27742B071C8B3E9FF0E816410E4E2DD -C83F535410FE741328E4E8F9D3860C7DC18BD359BC6D0E66D9CAA70AEEDE9594D0BD641F983C -33D6D1A15547304C5536EDE4757BFC5DDC34B35E297FC7376DCB2B534693530F4830B037B670 -8426C8170DC6CD7E18D01A874A5D3878B3175DB62C3BFACE28FCA28660E3729AF96E63E85DE6 -7D6AA1DA89D40447D5399903325230B0A8838322B6EB4150830124778E065A4A6B21BF50B167 -37BCF946415B89B0D397695AA9ACB498F7FED12E44B226C8B2F863D083E9381FB67C1D1F9C48 -629E22FA1128C9A4C98A2EE87F16ED9A3BE73ABE24CEF1F40E77360CBC03D494276FE9C464D9 -106132EB55353D53C9FCC697FC27EAE3EAB14EC1095099604DB1CF5F8128311AD2ED15104F8B -18B3B656054B7B8F707C640FD55A5F39FC623DEFA01B7F3BA92F17A576B12B83751F3E2C76D4 -ADB2D5A051F5F773A0A415754ED6A71282C884C8CDE39BE85269C87DAA34760CC122EC635AC0 -964E119211C28AEE7C7CC6AF855BDFE623C603C54B261770EF2ED3C25771A9EB8827BCFA41C6 -D439AD2BD33D4E08F87FBBE2FDEFD552EF3FA9AA568A9C94CCD51E8E969FEACAECFC753CB3A6 -874944480006DE0633335838EC632522D0492CA7358770667DE8F6DAEDCC3724B3F0417414AE -34E28C0FF1D78B90CE3CB24F1CF5D791D11DF3127A4A48050ED6C71CF38548B665258434BD11 -C199301A9EC952F7457B303666A45D5F2D2BC973D5B7A0906CD926582DD47BD8D41C291DB2BD -B36E008927EC60DDB0ECFE9E301186C56ABE605069785061EC265B22893441F252388E3ACA4C -EE67296676AADD462A31AAA074EB5F6A46F52B20DDF57A42468D584F7EEAB4CFEF8C7D5F11A4 -AF918F728D0AD26127F06C2194393D20EB23DC23B7A166A0435C6B8C3C4A29ADF42DA8192C80 -84552CA0FCD74647D66DA2054A62122ED06395E084A9856FC21B8811495DC93A734130C17FBB -BD52DF202C311595132AAF3B708731133D42FCE56C2BEE09227751021D53F249D89911938652 -683848BD4346A82622FD72BFAB8D2DE34C4DEE7C9281DDE7EDA445CE373EB2C04F59D5798752 -6E12D2A9FE56DC30AA7732B06EF5469590199654862F4DB7103904A18952AB24E3E7BAB3A594 -A1CCC3D3DBB16B4B350746EFBF4ACCC0135570AE21D130F1196DA2F781236E3BE26CD1EB2CFB -1452ECAA58DBCC52511BAB4E5D61BEA9AA6A249475D63476CDB2ABF137824713D2525A47E914 -EBA96DCAA423D39A44DA342E541BBFDC70A0D2DD53D38B6E14188E5331D41D60CA5F150918E2 -412A332E4F8DB9B6FDF03DFE74B5C551A261BA00E6FDE226335D4AE923E8DD35DF7AB6E565F7 -C215D8D6C5C770555186A0FB7E039DC93647D285F3848BB9FDDCB545FC606B505565C0E51551 -1929C84BC334300B9C8F1871D678ABD010172D4FCDB0B0843DACAD16C5D0D2D404784CAEED17 -02D67076A8AB6CFA2CED4825E22DE2662E1B96C79DAA0E9C744FEC1131E6F56B8022885A0555 -89EB839CCE9E2DBB0220DC8E11B587F934BFBC4600517A71EF13BF598B33DCF656CD525BAA45 -2D8ABB6E6CFED5CCE00E48A1AF097CA786FBD926AC6E72DFE9B9EC80BDFADFAD5E75A95090C8 -1E572FDA410EA8D567D37DA45F7AC57C0AABEDDFBFE511CAB34D9E0B05E76D1C9A6F542C6768 -927CF83A2245478546F6C06A06163A249D019C894BA00C7F40557769187D41344154046CDCDC -B07618424828315D8E74E4A226181821E543722BB1DFB3C45B2527D2B35B7680DE47E1AC588B -F9846088E59E34731F63E05DAE718544BCA5888C2E82D938AB70D416CD395B766EF0D715F730 -53D762B3A83D792E05B105F276BD12EC9A7BBF39AC82159A6237F9E3B7C0F0DFF71DCE7B36B1 -34C4295C666170666DD407FF8D359350D70296943F2FF83B080BA894BC3D0F2F467C079C6AD1 -55D7C486759399DA888983EC7D209E6F77BF7B2461AB528877B12063E4CAFF221B9D3D88DCB5 -6D6B20DBDB4F837A3343854A91B32A3911558A12D67147F39C54926BA594E7D30992C2F8E650 -74296D0F9D9A4528FE71CB34689752E2E15CC6C24C5E262BC5BE936B9560648A364651B5D1F6 -D0C105611377626E45CCA82B04B8854E46C308D4687822ACBC379B6EA335768B1690AD86F292 -C2EA882C5386A5EAD6B0B9EFD82EE6763F8C8C67463CA8B3541877051FF8B4D1169DF8D104CB -B37353B68D01B85AAAEDCE163319207D255D095A8A2F5C82D22B8CC7CB8C4CF46E8A29F7EE23 -161B21CF6255B2D154318AC208D49887EADBC20F627A84925CECC38129B9AAE7B8580ACCC525 -B8642DEB5F2094A530859FBDE220C497C79E39347AFC0709DD78F3D8C7F9FE771419B83BD960 -1E40AF90126F952E176BFD4F43C74A7D32CA5C6FC37126A3C701041ABEA77B6856B9CB2268C2 -C0919257B8ABF6A19AB8547885BA7E706741F48F0CB0A23F6218AE7CD3AF9D8EAE80B9A8DE62 -B74B9789906E4843542A930A9E1B2790A17E68FBC7CCB9578E9891DDD874CD8F7B7B18432BB4 -07543B860277BA71BD9C0966E9E9A6C11179CC850D1F6D4DE0CE27CA55F5EA2897E0FCBCB503 -C1FB0EB9F61E5D8C44BA27381A33895519C234FAA31FCAB6D701000702C2BEAD271CB5CA98A9 -21A111F4E256784D4C81C29856F8A16002F80CF0542DC148D575ABC3C5EC5A61773FB326F221 -A018DCDA1AFD4025428A93D009F9A1EF8817394D64EDC7873CD83ECBD46CF093DBD2124F61DC -B6A3D3393DB8B43B1A74EF030F9794218208BC80A956E80ABA2514F02E13CB4EA71E8A1D3A97 -C8B4C46CB077F9690B8C280E309ECE2A051786E098EC7E84D3A6F4362183993D43A8140D1A31 -336B685B8E5A48AF323A750F857F72345A6C1F32E45B8086F52F352A3D8870783D2AEC74CF93 -827FD5E1DFBD3713F94D198424FFB6C9BE60163D55B2DF9882C13F77304DE81CF0080D23D171 -433BD1A9912778E47833848B81A84342E37AA852FCC2FBC958A1C125DE29D46BDD703C68FCCC -BDCF71886384D51CBFB1C9992FE5C8C9F2ED77E8F9892089BF9DA2069D09767DCF4FF4C02636 -EDB6E849835CD52C1B29D93A17AF606BAF670EDA83FFD08729FF1D4B4C2BD2DB0E62D2D41D9E -42921CA6AEC19EA70F3F5A17DE217DC83F8C2E81426573BE0B65A1A90A9296A3BBD4CCD2ECDE -18A1D9B015ACA556B7C1A915D60102C3685AF23E64089A9D5E7A42A9B46E96C6FF2156023DCF -2F49ADDE1273DC951E9E28F6A4B0CA2435D139C3E9B55107784D642C0D23C802F3C21DC5A00E -4117A87C878CD8D244E880458A9026C9B1447521F82735667B2F62D8B0318336775ADA5B2146 -86122F623480796466D4227D36E6288C2562825D5B5F7E9D323D27504F04FF9624B56E3BB0E5 -A74B18E12B8F6A0C778EAA8088536E933D26F56E4263E07E144AB2D560AD833CFB78AB6781E8 -32BDE2E58D3366F556B2ECC218AD892D23BD855B5FA11C47CB6EE0D4AE26385ABF6CC8E89C56 -711AD762149CA8AF25BBC569047B51AA385BAB09A71B0BEB66852D4ADD1B83038BA6FDC3132A -40A5509DF24A5E2C58A291A27D3D653AC20C947E28E2EB594B2C035BC1E9F5934BFAD7F3594E -644EFE813D5607531036212047C89EEC75B234B39D366935B2ED513528422D1D6F284DA15AD1 -FB70798E99E4A32879B8A3D6EAF321560AE95ADCED590BB0DF9BDBEFC4F5ECC15F13BA184826 -878165BD27907E31F8B2DC4FA37E299D147F5E7BA0CF0F2C0B8CEDD38CB27C340005F0EE6E5D -10D992FF4193C2D86BF6A24343FF5D9853C293F5BCA5D099A140691DED6B981F2DD99E409A55 -6A6BC30E2C009374C1B7C1692D0BE25C93C3BC07BABC2A0971FBB1B3CD7489B30AAF4B0BED33 -B3ECF526C8A0562BF5E4F4DB8D87104D4C8043662F274DEA8CC689FC4BAA6826C7E00E3550FB -DCDA279C41B4C6C48ADFAEB21E37AA9E748EA111837E680051ACB401F28099C557BFA983EFE7 -A51E85F6198AA14C24AAD346926FFE72F20D984AB8B2DEADDD475CAFBB644420F40AB012E250 -BCCD48B9132A6E5756EBA527ECF8286F2B81E524187CC8BA9CA1B41D859631155449100E4E4B -451D537BFAEF4CB718F96DB77ED7253BB9E6FF37B82F4292021B654689A4F6CF5495B63835E0 -C0841365AB60E8CF4171E5F7A913E4E28AB8D382D9539A123DCA7ED82D1C334ECCF4353C7CAA -6B3934BD904E394F3E8F17EFD8F068BBC8D7A19C31813C6B93A58ED5CCF7911DD70E0D15513E -5BFB67C0082B965E78B562B2CFCC6C8E3034C328C2D7A68216A1587BA875B20BDEE283C0C974 -D12B68ABE3970DD8863EEEF01534F86F49BD76CD291C8BD5328F24686D3CF29D423D4736B02F -6B0D4775010F9CC5C4E7930E281F28E76302DFB81F330687E38CB3B073C35B0C5E385514AEEA -0AB62C080B55762706E81C8A29F2D9973F55370079E6165B55895FBDC618D83D4874BA610A48 -00E192F299167BB96E9AE3E39C99E9AB522714D9F31375E770B2ECA393F4CF864E0F31ED1ADE -63E5EA730CC650CE70BD6B076E7ED662044E349D44488D58DBD6987F561BD8B018199B582D6F -C3836983F84AF33AEAA65B229B71D8169E30F1C4A049A0D6F4CF6A72210686A0FDC419219643 -1AF587EDC98DC8423EFB3F3AD1E91FC22E38F6FA8FE110A8D2B7ED546C3733FBFA6789102B84 -726092CDB37B28A603AB1B907EF6B7A052BDE02FC3AE5EAAFF8A4E3E54F146C6726B05C66E45 -1D1A1D22BA4C401A8CBDD261C0E6D1C936A0A50D8BBB2E0E0405A4EBB7DC57A0343B55785CA1 -30ACAB3EC6ACD8B5B3910CE4750A1F13801EB63B937BCA7B736197E4874437CC0923A46109C1 -81FDF4345C3AC14C015B19658B0986B5A128895F5EDB14F7DFC59D59EA0796A998CC6FC11E87 -1E70AED258A9EA600CC4361CBD163B3830C989DF402A6785FAA2FCB8CFC9938D3C97FE39DBA4 -3FACDB085497C95BA07C6D62C23EAB46DB56BF91CF5A6B8072C1DDAAAD5547772379E363B7EA -E71A64D667FB482F182451BD51DCC9B89C6CE71FFD709C06A42D55A687F383742461DD1C68D7 -CF75B05C4345B842DA0522369662D9C3758C98F0D14901794C6F40863ADC20D162A8241891B2 -86F563D9D5FD68E5CD01D4EDE004FC8FD19169A77586E887ECAE628AB4643B6A6B80D26EF7C3 -26E0EBB51E1A20D5F4C2E0F84AF9BD8BF1719DFF164058B5D5B1B6C459CD7408B0E808493EE6 -A5DCA242EC20210F3AEE219C9B50F9D2595F821E547D941E50AA8A60290A48616746129A6BBB -A7BB6574B21995271A474A4F83483717248DD40FA10DD113DB0B94C0B73E7213ADD1E2F32F33 -703FF72AD175B3057486947AFB03EFEE2C54E21398574EB67678C1C8C46F302827C836902839 -45A266435E7B7FCFDF97F1E93DB89E1383A2D3CC9FB79B0D104969B1F46E22CD4D3AE165B718 -BC0C990A8D01CFEAFB231D2008A67CEF933E003739EA80DDA9F8AF2DD2D1D2D9E2D7BAD89E43 -550F6C44D03E1FF2AB8FA26CB66BEFCDFF4B2C33111F7ABD3D5EB318C5669954B6F3ACABB470 -F20FFE2D9A39BA20B0E5087CD4266BEFFC3B221C7A73D969837152E36DC9F6194717AE03795F -493FB4A8D4DF38D70557AF196C0DAEC61411529E5E33BD09947D365B6DBB7BEC123BA59011A4 -D53D3E471AAEF44565BA55171B2B8A3529DAD1CFD4696793CDE99759A91195A10F606FF5AB7F -9EEB7B3ED518EC5A2004021831DDAB3D79444B3E260CDE6582F50F92304DA8D0B744E20E097A -C7BEB729DC5B9B754CF8E81BB998F954E09657713E37AEDA94FA09450FEC4F6BBA4CB1DB0C55 -2E4F5624B3E992F49DDEB74AD2BB9CB294E8C0E501F537C0CF23BB61AAFEE1D6A1F477E975D7 -8F1FEA938C1C8B615C0925EB826223ED898C5A4E6BB18774848AB22077A2B621B73070CC3F7E -E4C62D267902A7375EED88554A973ECD2A71C102625546565020F3CAF46957CA806D76B75F08 -8DDE661207427DD02B023F340CFA2C9BBBE81995744E8A7F7528BE6A91F03276E89AE242F545 -C2BDA6E0364CFAE89BEA4ED9866C07326D46A1DB058D3F22A57EB7C3DE9874756E2D6F780A73 -B4E3F91528BDD24B653E84F613DDDF3389B38A9893A232A8BFC6514EEA7A08386307D04AF2FE -5BCC76575CDCC7FCF3F14B173E46554C5E702BE45E306F5EE2DAD5952302B912E79893301568 -DF4D61456A342D00B2A822BFD97AECA51A38D9ECF2A5C045DE29D940BBBCE3840275F8603EC0 -E29C8D7400A4D5CD3608338CA4F6B098636952B4934F3E36BB3DF8C0A5D2DD95C31E71AD880D -CE8E6CD3F6B4D2D81883C537708BD4A40E0E67DA30709F860C0DA126DC90000D5A6FC2B56D4A -BE93CD025F527AB27563A77FA422345528140F1E56C9E11A3DFDB0AED55F2D153356EC3F806E -0A9A4F586EFF56A190AEBF17D3F17185A93FFD30B1D5A7AA71C57DA060DCF2EB62C6067AA17B -C36004E88F24404AC4A980DCD9F2D90A96ED581C27204EE8386E797FC8C9A94750833C769B51 -E4BC787747B4489D2E23EF1136E9FE311642D8F55434389627FF4BC3D6663849B608ED7EF8FC -AF6BE24A47492558AD30600385697E3439740EB74512B6A510C6E59EA0F53FEFB58168983BA8 -DF386AA6252DE17BFDF31BB2BCC50FBE366E8FA2DC00F31D7273EB4BC1FE1CEEA8378D69557A -64C70887D92F49F59426E00022FB286BDD3A0F2C85D0BFDF33D2C7C09F23DE5A28012FB2E18F -47F5E39DE87497A923433C6DA8F7CDEFCC79714A9AC1DE6A721216900A817B1E18D2B94F20FF -B2A908AAC5FE9D8E8B2EAE9829DB52E29C2D260468E1AED81C0B0E51017C2C96CF50F7D58719 -A339BE972F315B7FFDD5A915A3CC03F869618F484772D0D84AC7830EF67A45726748132E0B9F -1A09D7E10A6AA7E0AECE68EC35011297CAD44F218CD8D94933547D10E417785BF34D2BD1ADE7 -42609B9ADB842792C3266F972963C21E4F5090C827A90B9B4CC20D6FF6C8685ECC90C25C52DD -ED500AA2DC0EAAA17604FBF5DB11AF06678FFCAC6AF8B7CB761848C2B417E0258FFE2F2CE397 -38D29966DD5EFA5BFF0626035F4526B60BED66E3B390C3003546BB03B15FE8CCE70D42DC5068 -F460DE895E72BE29DBD13CEDB810BCC100EB0874ADA2BAB0AF814D6FEC4F5B6E76907E5AC510 -76083DFAF50939525FA2CD9E359854918D2C92DD625B5A6624E16173D2A595E31CAFF9681410 -A24EA7D166DE3DF5345A0447F8C82DAB70B01078A378FC4E8DE20DF680547B037F4DBC697928 -17DDA4C7F92EFD32552DF9C561DC7C9D5BFF08C6B0B5B183D780CF6E89E7E3E2D365786FD8C1 -5BF546A184DE6F3DB5B37499B55B6221D6B961FAD9DB9B1F0159863E2B5DA9CB93E235BEE8C3 -A879DFCB1FB626F879B81E0BCAC5A94FC5EA849E5C8A90E700A675FD62067A768AA71C04F383 -C8458B097E6CA5B68BE4CEA339D39FF3133531C64EC07F4A517E2F5B42A1325836F324270679 -EC6F9E3B06E828762E49A6CAD73AA2A5220994C8691C4868D9C106531E380291586130CF68B9 -C6EA7FCE6A387ACF606BB42C96A0052925498C42EDD149A13CC1E752420969121ECF7223E3D3 -48A88047EA45C7791E36727A8510178CD7D027D4DB0182D7091B7C5B907973E8C53FF1B942DC -D9E9C72E0AF3131DFA8A4E3EF04A60C43322CC67620D871D31B56C7C380C5C6CD981761F963D -BD3EC946DA850CEACC1A76A7FDD6BA42C77AB127EF75CCD4B43593D9E863896DEF491F22EEEB -C512A8C7D6C1C4B4B205E106BBC00534703DA0BA4D4CA190D098388A11396F7F27E43E0B8FE6 -4918125C3B4F1FAB5F5F1DB6541258BCDA008114DFBAC98F0671F5452D4C9C854C6740A25C37 -99FC89E0D3EBCDF77C7BB271BB7BBF789481BB6CE76FAFC31B0EA63A710F5157564EF709A757 -1A8B7DEE7484F6E02475749B2DFFC3B151C9E391C21FADD2E02D1FC3466DD652652EFA7D5407 -D114F5750103D54F136C248C9E3F35BB90140B81423DEC10E4231FBBCEFC40560CD1F45677AD -74134F9587CEC7988AE465FF7E91A102526EBAFC81981629A91B1EA512B096D57838586DB250 -8C010B22594F97281BD67E7AD5FBFD66A3D468C3CFB593548AB8F4AE9810685199A59622AFF3 -1CF5EAC0F0C0D0C71CB367C6ACC21E6A5D063E31A7B476BAF04ADA59A9B3CEBF222AC83F4EBF -514506E55A5C4F296BFD942DB1814914E38D0B67CB7C6E21DEB843E949BC4EFE00B15EB52F81 -C18C1A7AA62F98535ADC26DCCF76A08FCDE54CBB8F269EFC82937F63FF8D2DB37567F391D860 -5A31C81F1A82E1C8125E590522E44AF2718A3830A6BBFA42F7B8CB71EE2E021EA0CBDBCF323F -820ADB61060646E187B7E1E14CB5A5F4EBE8084E8F8E2DAB2C25140261C0C3CC3FE280940203 -66FE6A3F5AF439C5970A5CE3A2EB586DEF09098313D45F5A56C29D1E9436C2B908991DADD7E0 -EE03B281969C4F4C9AAAAAC75C4B60BED944DCEBE8B4CA38ADF04B45D37C64D434700F3BCEF0 -B6D53B369AC825CA84D1CEB67A4130120BF8ABB0E4744740B5457B67EE624B9C6C9024AF277F -156FA024FF7EA71832404C04B28AE3933DE6ACDBAD3D895524597CD7B40421D96A94B9F4E8F1 -981E46858DFE7D9679CE3C316D659CD26105F8C5D15ACACCBF9FFD23B504F76D280FD834D4B9 -149DC6624EF65EEEFE020690F27612322A7336F4A909729EF775BF52B8A345A898C3C7388DEB -88D7727281CB44A0A2E03D589245B888D8BE0C5A48EFBB37DCD1BB62F2EC4FC84F8E2978F71A -B21D22AE3E847FBEA2E4F74F56DA970F763B0A7F895C466C33C73B069B1B726ACDD272BF23E3 -CE236BBD7BB7549130FF322D05B3330B54672D8770C647383778DC5F3C4E9C2A10EBCA92C1AC -95B4A0B019A345C730F94C1BE830FB6349CF142F2BDC2AB05D85F138BD014CB4FD4699762464 -A44B69F48385669327EBDF794BA4F1E38B7ACB6ACE0DF09580487282869FE57A78D90D55CE4D -D4A75694894FE6DBF8ACACE59F43A6730FC751B055532973BD18F37CDAD38DE5318CCE528E66 -CC1F63134DA012991E283C0E224FA33442CF350C236ED7A66E6285C5594CD82F600C5D982F26 -DDA6209D7FD8E6E9D10B26EEFBD396F45CD30F01C15570870D2C9E76AA947543C66DA5BC00D0 -7378F9C9BBC5A9CA8F22C8A2ADA2FD63EFEEDFF81E5FB13CC09532725075A716351D9916F3A0 -65E15D56B3D2A5DC3696F22646F72043DD7D09BFBAE9C6AFE4116F506BF021F1BC49AE53D319 -635590942C4A7A0EE5F6FC5245777686C149A51D6BC8A5DB11A4ADD204B18CF6DF65DFBB6DF4 -57446B0B966400A1D45E029CDDAA42C416365263941007EBFCD90BE1C1180B33FFC66CFE0D97 -644EA840131797E82EE4B0AF14F9CEF9E129B0B5700BC3D98885178EE1B0AEBB2ABAC262F34B -D24106F196BF1733DDC53379A2EB66C28E37EDB3201D0B9F314AE6B1250584F258042C5174EE -164A352E301FEBF2434303CD188661FD95008D8E5EFB18FA91AC4A942C399B2D5DF0B96D11CE -786CB61F69E13E9578167135BBCCEF9C135EE20B2A25B52A843B7ECBE350DC3229AB15E248D4 -DCF553178DD03515D52949127E2C28A02545C929A616B72F0AC8CC98B06E1BB28CA3292CBB3B -6960EBE6A4A204EC1474F84E8CF65DFC75DF163069C8D244B191274F7B85695F5FFEB78C9468 -7D2C6F4D0ACF3D1CB8282E80079182597B0BA249AFC636D3269482FAE865ECBE6172212714F7 -D856BAE0FE0813B98CB9BA878D1CC54B43CF880DCDFB870A8E26EAE8F2AE390E73FE15ABEAB8 -D4599AE1760E16A98E2AF9C46D2D3A24D0C416E0772A50979B822DFE41047BBBBD83919C36B6 -0D82F10C52F566DF4B33E5A3DE5738450BA27A45FF87FBFA7F31B0AC3A872AF69D9C555679D6 -8DFAB59A503EA845510F343303F72214D2B32D04F79973BBB3BBDCADBE5CF04B92928E7F2A8F -7731EA3DBE2960069345226F55510521D21D9587B7696010920DB650C0BCD0223AFF7CE00C8B -9A6A056C0E1613C77240AFB8EFEABD5FA3ED8DF754986AC6FCE8103A9284F64487375FE104EF -6558CD01E2B82AD758E982A72E76D884F851D92E2E3AC77EAAB7D0C7167DC5A1A8A411A59733 -854E6FD463B3B60D04AEB503E4BDD06D10AB709C6EB1ECC7CB9E91C21F4DA9D0C6C0F4DE8679 -CCE0A7011B31DC7B20F673D4A7C34A89C2D3F875B4815A291827C124B3AE1190467905340C8F -AED664A1DEA1CA3E7203555845596D6CA8AFF3622812B9A4D54CD0060E4ECE5E89978E7EF3F8 -61D6FA2C049BC61C6A74E79B44D12C3D1A225F56D0D381D859DE13D8E90AA2293BC43F2B6BA9 -0641BA629BBE04F5766ED169D41A653C3FFDB77CA5A94207BFF4D4D202258F8C16B47D1034B3 -3AEC32BE3D43E65BD6E6DB42E96BA8969D8BEB3E14B18FF4BDB155FD1D8216ED876F1AD5F8BA -CEAB108738EA933282875C487052A3F1EF6D706F0351CE2B165322B3CD58CF914F0D16FAFDD6 -6C3DBFE69A8ACBE8D6699A9B0DF41AEC67595C16B4685C177B7D3F3E396BDE3635AB660DFE71 -87C5FD4FF7C2A8D614E61DDD8C9A1DAB41E0E2FDEBBD427F9EC6635F31315AF4AA78481F359F -2ED090FBEB00DF1C751B12146BC51841B39F02662A2E789109211ECFF2C1E13760A07E354CB9 -2AD96BD666C5E9CEAFD61F1B7E9CA30C5F4B26E2BB6CDA8AE2395AD7B38969382EC38EC6CDDB -3B9500AEC0795720D130F5FE2C8B9DDAEC6685ADF419D5ED2CF1B7BA36F0D3AFAE88B3918699 -0B2CC3D596B8A27295ABCF8E21382168C6E8C186696A4C54DAC02D9B039E21FC2BBC20CCE604 -499E272E10FB82E1B7B4CA2E07CD4D954D1D25DD99BA538EC4043BE9F25095AD2013B82D2921 -0590DEA84BF4E53AC2889F1F088CDD503F36ECE6F7EB6CB76F52F5B63FF5ED9FF01BB0A1B8C2 -4D6E9D6553463FACB6D9028CDC85676227F9AADC3BCD3A63B5BB4E0E1D6F5D1C5547B60DAE95 -65552538E42AFD897713A9ABD0FD900E8ABA71A83551B7F88C583A4DA28559A835BC07653774 -B5AB6013564AA7EFBD36043E66FC1AA25879E18E4625AE27D4861F9249F6B556E2CAB52BAC10 -F56CCC7E985FA0492A1D4C7D8944E861E3B9629126C3A3E850E801E72875C0E4859EC5C96229 -D652EEDBE8BE1BEEB03C8A54C9BACDC5EACC7F3026BF6DA6A4250DD247A147AFC5069189477E -80939B1441A9B8257DA332F92758E36FE884951F1B450C36558D209FACD5F918603EB234EA2A -C527C539BE047F6BB8473CC19DACFBDAE7315076E68D3A2FA7B9E3E7240E69A0FAC4D160D1E7 -1F56BB70B5DCE603C160A6846687E861D06773F125CAFB9EE6E9AC82D9DB92ACE2E14F348D48 -C102967C3EECD220A71B3B37530F6A1C75B9BBF6804E834A5543B4ECBCB836C1475D28604C34 -4D3A4CAA1CAC68345FCC2F2EF1D12A340FBEF26E54D4F641A6693C47DD9EDEFDAA3C0BC7E426 -740021946615B3F25CAE9783763EA45C722B1AF5A68B3CF9EA411A95615C010E7FCC808FF318 -4AE3BAE69A3BA9BC3B626D918210A9544F7013781D51D8E4986508B8D0FF03442B5C15B8240E -E68811CE089BEE23570CD03C467A7BB1AFC7E1C074A8166C36D3B830D2DC1EA120973EB1DF09 -8FBB39D987A452CCD9CB22C377E959FA62C6078BFCE7B3F7D26D0B848BEBF200DBD10071F166 -C821C0D18136A27E8707A8F05175C4C785BE95F486FB2FCA75F302C3D78B5CBFA5D0A11531E6 -276C96DDD0432553C4AB4C62391D167EC2896478F8757D0C6CEA813F29DA5E98D014ACD18204 -AC3DB8E9EB0DDD73BB39C6F5D03A2B4CE23444368A11ECB5D1BBCE5F75EC6E798CE566AE04AE -353FF417AE0D4D38172313BA9DBC85401CE90DF6A13E2FB531E78D6973E1552F2800FC7CD3D6 -35AFF8229A1F5393117DD617F713E0B99F3545E7C706B6F7EEDB5C6B580ADC13DE6B8D533C11 -420178D6C2D25FD1C239F1DA89B72FCE1595C82A44B1B774279967A699C9C16F6A7A87F95C7B -8B4C3ACB831C1725E4294FF8CA9C7E56A64831E4541469DA6E3A5CC763613B3DB11FF0778528 -B2103574478674D095EFB7D4BFC7C5044CB2926C16B58C1F5B1BAA189D5EFE6C54157F203531 -E3925D4948DB68D6E2259B5E171570E9090E67FB07CBC6AFE38061519C9D7207342A1200C7EF -D42EFEAC74F3B4B63B08C992481CEB2DC99873A9945C17417648A674CCD9B120065D6394791A -D7F41DFD1AF5AD40A8165408E66006D59CA0312EADB541D3CBAFDE2505DD3CF57DC0CDA09349 -EF4F082EB092600C38C8F8CCFA9C3D1B5835F4A850D65521E0564861002ED0C58D916F1ABEA8 -51917EE08D7ADE21383CF0D156FB13C1169D1052DB7B6792A5EE899950BFCC60D01E56D95960 -0ED126559E854769F17874205C4C6ECA06800963E5C026BE2D28550DFB925DF030E0935DAD0B -E904E1771F906C13AD4FD2BA14EF69E3178E597B5C2EAFBC582F4AB3D0A7AF8C161FAA1E2686 -EAE85941F12D60C9B0623AEBCEB8BB7D19DE4A632C9DC9F77908F673544D2D3130E7BE366973 -20B76CC69D8C8284C5EF1EB6BBCCAE6BFFAB4D1CCBCFB512D8107199D4140B87F90C40FBA346 -CAB2AECA74389209090F6D92589675B5596F28802C8B0A0F6CEC54205089EB41000AE33EA47A -18B49BFDFA085A93A8879B1919392E4E984FC2EDBE6AE4B7E53DCBA27DCA63BF70B95B9B1259 -36E06AF14FABE04269DD686817D84E6F7B5FFCDBC5FFD591C559E259D2282B47E031FAF9202E -644367A1A69B56C550BA494632D9B7C0618F1F3B77262B13F90785E040ACD1FC43AA151FCBEE -56F73FA13ED708E8B266FA07A035AD5250BD91332794EE687806B27DD1688CEBFA13E7D18D98 -A279E24132338820B459522137D75071F28E72F062109209AA8BADF40168237E8B7F6500CC91 -26C2F90D7C7E8863D60E753537373F2349335502689D30D8599413D3B7604C6E9D6424E44058 -75A580C4B3216F160110D40B6D425B5055375CA982DD759BBDD16AB703F2A95887DE040CAEE9 -1AE1F2CDBFA8CF6162110A2A226F4F035AB9DCDFD6ADE9120A01A1F4041B9D7580B45EE76FFE -CF4135E6EF5E9326B2E9843984AFD1ACCF4A3543DA6A6E8B911DD16B9FE207554D9C6C676A74 -8AE2C448A19A29D2482AD25505C41E80939F4E8C8AFBD2030810F515A35152DE8F70A293D036 -6A3D875CA145CDA45B4EAF5228B105B2DABA456063AEA511C56F5FAD0E12A1972C30207276BA -8CACB5C16711A8B928780CD717D284DACF5ED94827E66843757979B572C0E747E800B1170645 -61B74FD4B1778CB7C3FB9F28EB14B1D366A845940E0670F7148751D800022240DFD56A4AE67B -DF3548CD8F2D72882F3328058DCDB39C8F187BAA19D984A464B84408038BBA4A6B1DBFFD4548 -152C2E7BD058A7699561F9065B5D0BDE03E7EEDDBDEC3C4A850A1B21CC1F9BED730CB5394B24 -D56B75A3E01B6BC67021C53962FF3424EF791172A2155F80353D5D29C71F05A6B38E2BFA648D -134885EDA997CED8270667CBB42B60D0EB9DD78B492300A30C3927B6E3705A4DE04C127920B8 -6ADF6262259E1701ADD7C35E913F794D1A5D48867B2210AEB7793F67FB3573706C6E23E86FC8 -DBF93A0ADB459728740552C15E652782382C18FB5707B2AA33A0AA8F1FE8514BF23B548A7797 -BFBCACF7219CAD93AD366650E90A73433841C515CA9860A0CA171BE10AFF2C1E99C12C6500D4 -18DD53C7CAEA83DAB4EB9E6EC1FE3C6066AA675C4ED730811001B8160EA6E1826960EE8C04CD -DE77B98169F9DAC87EF2158861D5E42D4E251ADF29DEB4098359A2E65D0FB792AE4623A45EC6 -977DF19EACF2E12C9B6B63467B3FB89EE3EB478CA67FDF9AE07CD2FCE60C77608521786282B3 -80A9028EAE8985E8ECC211630E70A8C6E847520FA48896289EAA7D4744ECFA44ABADAB946119 -767A16728C9B8F781B72B631D6982F8D8AE6134EB9D4204C207EEB58795342FEDB24B5F6D0DA -89802056B68758CE06E2465A2BEA3576C22F7387D6999B145EDD2A50DC7C279CF984E1F5365C -12F1F62CFC7E26D44F5A68F5DF71FC609FDFAA06F8283E36208E0E6446E34545FB1832EB9018 -1BFEE3186C7563775C4790A41348399518121D6515AC9D3DE3C208038D2EC19D0474D0D0E35E -345C4D5AB9D4A7B9B25E1986FC3FF0E44A55AD6E004E7847169C50184AF54D6F6559A843C60E -CEDF7B367304C51D44440C61F8E2105F783D3B2094AC5A06FADF7A8B52C40099386C01FD5B2C -07570EE47EF95B556B3B8B39143E8E259D2DAD5CF5DBC974727FE4C316DC6F1FAFAFA84895A6 -6101E135122B2A9F1ECB66CF1B74C67DC76858C5C41257AD17C7DCF2DE280F9017C7A597D400 -84636E722582ECD3D26F38B99D9C69E0CF5353C88A66DA881CD6DF237C2A6D66D59DCE95FBEC -94C3928B4137A93C74B85390E07A0A3D0F0518A88773F47B20A442A75D22E47DAC46F86EE37A -4DB1BD5E188A2AF1D61E6DC19E72950FDB0F5E329AF06135BE8A6BDD3935FBCDBA3A741BD2F2 -E73A7BB5D5E0313C764D5AD7A463C83C160D5D7FF75158A816A8997BBAB9B6A1A4434D183C44 -F5FA687FE4830026904B7F43AE5948CB18492EA3C95F94BDF7EB4761B369C49EF3EF8B25C335 -0B0D7186BA82D89A7575F4BB5E54F20C16E19861ED99E8F81D92F54D89B29105BCCD04E64472 -3133DA692A6187D4697E8D853F952B7907556424DA39E052CBCFF6D6BF5F182C6C245F1D5492 -F2E82A8CF23A5FE321FC399C6ED263C62276D25F4A172EAE9FEB6744E1F0D8633BEDFB257851 -5EC78E18B096A175449CB9585D0536A6B74DF26720A90716292B7C04DE4A7C8D5A51CB5781BA -BB8147966504A890109430FC65A3207528F386075701671BF095F0490AABFF7687B975D0A518 -B6FC4E686710ACE528626C09586CCAD8A565A1F2E73AE39569CB961C0728553E8184CF1BD123 -2350D16742308E405CCDEE920769DAA49600CC65E6D89190F21524D413234FE00597F1FF76C8 -FD96DF8CEE5A4DD53C18A6DFD4F260AC82BEC967C9E639652052F841B0C4AE72E51825AEA16D -31E0C5CB585C1827A44D084E8D93CFBEC63F7FE604828BAF596F11A3B47B771A9E4917277418 -B10BFA8444F39D2957AEEF92613D463EE9900DAEB847E1F16F6C67D01B97EA4C4E5CB41D6DAA -7D5D4DD70F5DDC13E61BBA15422E60A77A6AC3B0D50547E2F1A2CF2FCC558543CEAB91ABAF63 -0E0C6B87C9E39CF24B81A0862453AD7A4D45CB6EDEA68E02B7F0738A30B2AEA5871859B6E13F -1D804F17093060CB61B62FEFE925D5F66584719FB9EDA1CEF6FC4B30B0EC540169F6D9ACA18F -41009DE5B73C9F1B07C88BFE095091FB5C8DED4868AB2F3C663F4EE7E4F04340305E5CA661F5 -F6851D165D6ECF8C530E0F4633F45487DB43BFAE11B3FED22532B84816ECF6375A466466B0C0 -547829A84A8592294ADF9FBAC8DB9E00DC58828D7A9F5374CA60B278F44E69A0ABA0DBBD4D93 -AD4B09E331D14AB542DEDE7F3718B47B9999FCD1900A462996AB031FBD4365D1AEE0D280A4AF -BBEBB45BEEAC6280A7EA9CD9549331CC298A60681D15C4DB3F497BEA2D0FECF8B77F0BBAD0AA -7C12CAB38A881091AC3230E26D695C1CF6B23B2099243AB16DAB504499BC144F7085DB720F4D -1EC53A28D36AE77CDFC2557425963BA6E639B60B2F7FA9D7E658251B57C46EC8A4250F7D4CCE -BD12899BD902E241CFE321861DD7C5946FD7BB56A1CABD3D306A94C7E408337FF44B856FA5EE -D1B034D064C9DF32682CD724F9B44B37BFE56CA957C4B71644F0B5FC0DE21A85A5A1F5F454D7 -447FA771DC7D6E81FBEED17F4453F721392261EF23BC31A090FABA8E0CB7F41070DCF646C5E9 -7A3A5EE81F482EB11645F763716120AF411DCF01908EFB2F425BF15146FE3A884A89E4C81C7B -78218205744DAD01AEB01A058FBBB676B20EB5051EA8E652B28F798C7A0D9EADA3DD89301C88 -A04502A5B615E7F81A684901F2F7F3BD7629C4FBD048150F54018787FE0394F6656E2CF4CF49 -08E71E59AB82F9E7192F377BC3EA06C7ADA7CD49D0ACCA368DF5298F36BCF99656AA9E88B333 -58453EA5D2C4C7BDB350E4906AEFCF3A98B257653B69793C2364B3239874B161014E09603105 -24B68BFBF3F265B1D162FC96D4AE22807A9B476642F30F71D7513CD59524A599770922C799F1 -88CCF2829E7D5363D3AEFC4AE6B5813DAED870320E978B5F3D2E9D3CE94FB55A4FFC43E38A2F -D51AE6EBA8F834EE9F79AA55A4FB29291C759B80030AF5BE582A7CB00DB9E8CDA20666525587 -54795C325E8D738AF480DD78FB7661EE72ACBF4235BF9C45D06B61212E010EAE8E603F205FF6 -6C6224C49ADD3BB95D63F6E5D791104DE1317478E6EC855A7C49B144D7CFC667440BC04FA850 -B2156A74370A217B58AE0A89DCEA5B984A7E486DC846468CC4FACBD8D3CBF84EFFFC5C1FB928 -F0F4F2FFCC7224AB62F53C30D0C35ABD026E55CA40FFB7F594992689142768029BFC02EF3DF8 -0D24CF63C355C9CC19D0E49F53F854547E42E669A905956C5A3A92D76DA2932511DD0FB863C2 -8987B2D8E1700ADE96BF7E712EBDCCA49D841FB4695DDBF2599D05F368DF18FF4257145F9887 -7948CA4CF92F1B7B0EEA58218C09FA2A729EA29C3388111446E249DBC97C3657E160011252FB -B4924CFC3791714A39F23FBFF26D5C03A46FC1B2CC00386601961FD1B14F2A3353BD2E4365CF -0C42C8F2B6CAFB1C7DC6E2418CF5B5658E9B38116EAFD212AD16D8C5865FBF21FF2E7BE46046 -99374CE9EB043E054F81675435DEF4536AB5F2E2B0BCFBAE1E8134BC45C5B09077190CE58265 -5847DAD0DA2B05EF8B5337603B9624FCD42975BB0F81CBED0C94538513843000FE75DF0A8FEF -D5A17A7A537D087DF70DE981F390AEC6EC645E2C5C7B6DD44FB9EB84B1AED2B73D2346AE0DE9 -91014C7D72B0EA8257F15CEF3E169C822960F36363334499A61FA19CAC1719E8F313C9B377D7 -56EA58F115BA9DE284C276E6E4F6BA8A071CE7C6128BDD6C3FBA5DE8378C11681FA2595EA673 -2DEC36F2C85C40DED557FF9ED386DA976C549DA4F89038A9AAA27F25FE2047875094C6F90A97 -681F729ED57D17773FCD45F28F90740C07B087AEFC340A26ABF0DF0ACC89A5CC7FE18F07A376 -AA7D707040D23AB066C7F7F03C59DB8B5CDAC46A77EB68CCCFBD0328AC248793A12786C76E17 -2174A334A5276C4162611E8EF3525F434C43CC965D2950AEA13619FD243F4E683A33C04D94EA -9CFF6DABB3FF12176C67B0BFFBF14C6F0505DD8B2D385EFF5AD7947BC3817D986C7804EEA146 -59EA7973E068580CE5844CBA813FAD9BE24E51E554D3F94761E09702EBC63D503F4FE01F6470 -C0A692986BF6B1C95C2909575A10C8F7168DE53ED459263C1503E846A7AB7A01A9F0D5F1DB55 -C47E27AC1447DF9C0566D8745402A57B3E8E39DD390C5072F960C7280741ACC1C25EA8C880A4 -D3D4C3000798059DA353D69C4D60C59F9266C576DA7B36C6ED428BB27C068B1D93DC1529B39D -F968F5B98B8F3EA032FDABFC818580D081C2414014D621532455779D46BAA6993937BDE8919A -7E55DF173271A33372E3DC0BF980474E25CD5C42464C0B3EBEB2FB1190AE257846F34F185FCA -3C1E4A13A769AFEECB7C627F75EA70A9AFC2C09C3B98433AD8DD5D146E0D13A9ADE256A83317 -3AABC713D251ECB19D6F1B9D136B9A60AE574167BA8239FD38C1B8DC625BD17F2D8467EBEE36 -36BE24EF3D85DFE6E02D6664F549CD8B730C649D8906684D123879376325BE3BC1D18A81739E -E5402ABD5E75FAEE2A3D12E68BF40869FBA5782B418578622E6AEEA218E539CDCC764903A108 -12F28BA15170F1D228ED110BECF1CAFB3ED6AABC808D3DE180D03226985D229B7091B6665207 -2B39701D51AA68FE72753E52A266206608C39567F21426752F7AEAA149819AB72EDB43CDE485 -6C4183D98AFBD2B42057142E00A6BD3DFB897DA9DBED9C60E0E45D0D64C03CBB80C0F5D6B9E6 -8E8DB96C1B0F3015EEB138827A9CF67087C50FF410E7488B3DA97C98A950445E5B44C927ADDC -4A204AA6BC5E101219E463B863F4428A2602D6E2836016490D1D5066189A28D41F3C5C6D8353 -B64BF81D9EEB91E68936597B3825947BD7B640694819F93BC51F9FA087F96A56479CD7460BAB -31055B1168D82F0F37780F06003199D6D511F8988BE0B6D8C9FD45692596EA9125C2AAB0139E -9EFA2D2C4F08B40EF61C8C2E1684E9C66244DC966D1607BCD1AC9DD88DA85EABCED28AF77DAC -59F001915E5C42CA68632E866B86FAD58AE0E2693F77D0C3FEE1C31BE9CFD3E98E3AF2A686A2 -AC9B86C120D8C9C47A6109CF2E6975C1565D884621CDBA5724F5123AD692AFC1CAC3EC5FC9B4 -A72934B9CC6CB549FE5527EFFF4406B2FB41F0980E54DE4175FF228FCA5744AB2C9C4DEA1B58 -07CEE695297D04E5F54504BC8765D64BEB39DC128FD7760EDA35AFA2BE7CF782D8895737AEBA -4B02FCBE2EE6C3EA108387D470463759F20007024392DC4760E4DED6E75809D53665E75F3C3A -E9477E3757A5CC9F7443CB148A71BF60A23AA7B1EDF08F81DDBBCD8D4EB17E4403069A69258F -8C79BCC3D1309B8CA9536391465C35383B84B9CC7819625ED1F548D0810AA19226D08110C0D0 -5B6B8AF93A74DF5B97FBFB4F5586E6CE1292C1919FF91D04BF4E04838B7A5506A5966CF5FD11 -7F531A70DDFE077FEE2835CA2CE6F8CB74A439E374665955511518A7AB8166F68FC80AEA0C58 -7A930D4554AAA7A8D7C2B72C9C980EEF92AAD6A9548F9743F381AF25BA28AD0BD16753026CAB -AFB706499C2CDE7D060963FE9BB0030493DA526E33A3A16A98D1E0252831C52C3840B1616E6D -A7750CC341093CF0C05C0E30F0B3063F381F25DCF4D6D608BB2413532CD6DB5A511E3D768F1C -F1708608AEDEF4BCFCD83CE097C079BAFE54CD06D447507FDA14B21B592560D598762EA20C7A -059F4CE40F804021B62D0DB26594CD8CBD75559C38933D3A6C8B13594A530D2BCE94D69C5384 -3E8A0636031E3E39DA6AC629A0BE085210C7212CC0EBE4EDBC1A6B5196B1D8DF03BE66CD159F -7C9052074BE024CEE2865B22067368549778A13F14DC194CB78BE2E830037CB88D41F8130C8B -87267107B77EA6E204CC78C70B56CAB719D5FD46F07FFAA6F25091F39489F4A0116BB62911C2 -BE8B740183EDC047510F441F524BB1AD2DBCA88716677B36550BE30983CCC5BBFCF4559506D8 -9EB6232046241F19789AAE9A95F8E33FEEA4B8E69B094E3BEE8BF9AC4A5874AE0F02A6A0D84A -56618F41D4CED19F3351FBFBA34F7C0E3F237697ABE403556C4CDABB314BDE548797FB1AF529 -F2A5BB39DB12EC07720D97569D6D9ADB53B8762A791DAF652E8B76D3EC02871F3094FC79F1A2 -4E08D910B236F9D00C3544654B5A71003DD407576EDB6098ED2393912E196D1B47AC222DF442 -342C21C0BBC9B2AE3C6C840F80C38E49A0295CF82D6030CC9C7D851FCF67D48C2E6416E67AA3 -A4DE8050713DF83F3FA28036A1338985900DEB72919638A67EE9E03504AF12680BB7A696C7F5 -888D05626CEA11DC0D4E13B2C7540FEAC023B881EDFDF89A99B08EB27052B3DB5AEC328CA1D6 -7F52013323007D01B049D7C29748EB216615F1D6A7A7D11897C1976B618AAB0A01A1541DD0CB -CE18BBEE5938511761E03B837059A43DD6C93194F0BC853BF83EAE10199E4AC0AF6FAB387462 -917D8388F6071346F7EFF8D8E02CE0C7C03AC4100A5F11A07BA6922C332444914E16D6DD3199 -F137033C71339DAC3759135817AE8B315E75CEF41A5DF4B9B2658AEB814A28993DD4563F2E02 -6BCE090021722111B5166423B4CCA87FA50E496CF137C8D7BF032E6AA9D08C2B61F311C2EE34 -44CCA3661DA23C1F79D76545D16CB5FDA350B29F270B0AA084D032D049062ED01532DF31CC47 -8FCDA85AC305BD5799A6EBEB54733E192265278742BBC4D8ABC378C8820307190ECE2DC2432B -6DFFEF34FA293D833E6A519177CC77D0988E9E042C385352E8881252A078F54E541B64CD47F5 -B91A075F5B653830025167E852BF6C9D8ABA1FDB5D00FF5ED18321BEE54577C06F22E6AB0CE9 -BCB0D679C2CC82EA692D9B828326F0565D4DA59648C980226C241C49B7A3B6C513F785128D98 -A690D38F2689A133787FE1F4A04C1CC50A0956CB7BAF9F8CF6E12B681F44A9ECF2FB6F4FB3AE -C507A9C58EBC7C4B9AD3C65E2BB0E6B047DAB4A32A997853FD0265EF37E93645608F05A4E0DA -35B39E5C5A1E59A6B41FF0F06C30F5270D2863A55B5AAD60DA7B554547CFBC4444BAA19A975D -AE4FF38B8FA892BD7DDDB5108A5CC088F7E1D0CBF9112D4A15313F3F6AD4BB5C494AB3D639DD -73C99FC979A201A925B6706239B694453D520A74355923CBDAC45456CB361F3E4D3FD79B3C7B -64BF131A47AB725C913CD37B5013A35DCBD0D2501340A878EAD75D4571D9C111DACC2CE5A841 -9CBC33F9349B72C00B02F385DB3F0B1CAF0956737D076B1AFEAAD99D60C79357EEE3C3F8FD39 -DDA67C4A7E0E843766982B2D164723DF1825E94A708077335EB5E133D5C44A9D399F47739498 -3AAB998F84F023E2E25412ADC64F3F0FD23DE84231462D274F77E1C1F25EADB2A17788BB9C09 -796A16E0F673D65802CD45B58D9F6A04F9251B1284A1A8DCEE4AC966964CD1C0562BAA529D93 -A9180E96B5621C5D7544C563996EED7E3D793293F2B3D114178209D77B32AC20085EDA095449 -87668CF2ACB94B3B8D5F41F464771D8D55922C8A12EAD3F9E51305C953505B067A01BE9252E5 -2101F4AFED247F3756DEAFD898E56F858234528CB3A5E8A0FE41E1AF0927BCD9BF125128591E -227CB963F3A0BA8F15CE2FCF7065221A23711872D67BE35D852E4884E92D1F2ED085D3525B3D -FE1A66237B341A76A1F6B0AF237DB9B7914F4B7B38C56C999C750A3D2EB842522EA64D3E020A -AF9026C98688790DBBBB31A775F423B791C8835169A7797C43ABF946AAEF9494E107235A4520 -445844098D7C693EDC1F5F23AC8F35F1B5A20BF528977103F714FC55F98B3404A97B7675CA4B -44A5445EFEBE766C73208C02B0BA98771CB7C87C945BA981CB619093E09DD736F7BCCD0D4E0A -F10A27168181087B335D16970F812A40E9C62F385905AF0D171C2D5386B177F8A56C10DE5CDE -A8D0EB21703EC2196AC73AF38A8852A6D4CC11792EC2CB1F99C1549034365FA4F24D56E02B40 -DCAA176EF11E3C593631EA9887DAE22BF39FC2DCF9406FB17D473CDD6A012FE33707E068070B -1F45DA3BD48F36FF540E5E585C6DCE6AEBC78A31A470F9E5B09323978474C3DF8D521D64D947 -9581F3B05062E7D3F93641E8F827407FE1163F9494D383E3E93010F2787CF0F770BA2330DC3E -DD296B71FDDF5539A769794B91FE277D2A5C0E957F7CFAE1F81B237058D9638EDFA6807977BA -AE597E88F1012EE5D79C21C6EA7C6B04F73C9CD77BDAC3393252E2D8850A138BF96D1B08C231 -45D56FDDA9FC3C8242670163438805E72FBFE633EE393CC49F9C344C246442AD734BC7C6E9B0 -78EC135A266143D89FF0F5F5A7CC6FB297A170143362322847D7C4B60183F8D26C1F3753CEAC -662D62113EF4C53C457A7938B467199504E8B27D9CD34A5C0686FEA878B2D792C15EBC385B5A -7A47B12BFCC002F2FED2EBAB2012EFC6B1481388FC8E69A5403787E120328FCC642EC024BB31 -C947CC765D54B6595693318348FF1353FA0ACB61B3059D1B4AEBB65E7824A9E78881401CACC2 -E00A7F8A6F4453DB0AD3C583660FB02D9A6CCB045D53C16135C560574B10A6BA3EAB6FB86ACA -D46AF178CA8D5E14DBB50B1E65D9776BDDB29B7502D084BFE8FA14DBF73C41B8AFC9E9F6EBDD -9880255E5803AB91354FC44355AE446F6439A66B623A06EB43F84E2DAD051B2F5DFD5DC4AC93 -0B58EBAF403A56E46BDF17ABE04F862C178C3E10A0A48050EB8F2EF6E24B3A901F5E384A3C43 -BC035EB30F07B81B6DFE91B550C75785C7C167D2DC4D2E3FE029A7EAF59BDF5EEF04330D5564 -56193A0DC4008B840ABBF81CAC9B39AB6161DAF440D11634CF8AC2CDCB493A93B2303AEEFD08 -0A72A60A60F75904F2A98DC225C490B14B01AB37CC8C73E488FBD9E58E7F6F856CF6B5C29179 -28AB09AB88BE2A14C69B3A79051782C7A167D0EB0C9F1D1B803ED86E91D71FDCAC190EEEC796 -73C9FC69B9BC8497EC76143856060ED505DB14963E338BC7843EF8EF15579A9045233680CB60 -87F56B9558D608D99D31D4179252A15D94122DCB3AFFD972F6C1CA9A4E7E6B82D46D59BB4455 -212C031B193AC8842C19244C4E7C7B5091CF8DA6F6018D16B73D535C575E45ECB826943F8F5C -8812CB7AD2DCF4C6E8F95362D79AE1FB42841F91359BF7527E0593CFF5C0D8D506B43F1E859C -922715761861C47FC0D64F4E095146EA0B37AD30E3270CFFFC986A8FE62AEF43046976B61352 -820AEDCF17AFC84C4C7355748F007060D08659976C5A35DA7034C2A9540321957127A3531EE7 -A75B61A8999CD4DFF26E9A5FB8453A3FCB7F4D86D4F48B4947B7B7ACA3D7FBA387E5E0DC1DD7 -7E2F09C7BA7BD5F1464DE1010F40BCC3DBE5BC82647DFF8711B572AC841DED06F6F860C9F111 -7B4B12EBCE79DF97BDA158149BA5ACB97D96F5BE2BDF14BEEC9182797DD3C4C6BBAA59464BC6 -03EB1B84B3CD3466AEDCC31AF82047C67E36CCE26B56A37A0C2A919DFE65135315820162EA67 -1FB2F7C0DBB441E28EE41C61BBFE217D67651BC51DA30AC2B3651CDE82AA08133D74E4EA9CF5 -1E64FCEC62B65716C280B19666E800AB71993C62E63F16B163EB9A8C7D6E55939A9A544778DA -05A3648A2BB6263BA70EDE5A92239EA6E041D1447D97F7B207215800F9F55F43602BDE3DD5E7 -E8A7FFC1B05A76A90AF2C942829B5CEA138CB009B1A36384F06852FBC671ADD437A53E84107D -BA31E1C82B91241CEEE1EFA7529FCD0A6B2E44E862418B6AE61324F252505B95E4DE0AB92A19 -37864A956F4DF4A8B9C714C290C9F5AEB904A859870F969EB6B8873E5CEFEC0E85190EFA1BFF -B778227F09558BE85C6AC0AD6FE56824A565B9EBD65293D78E5032A757227CE1E67D92E812CA -C3FA3AC369D19B3703831237C69F3D83B2C249E7FB9C0646C7C2BEBEEE56A3693FF7F7A492C5 -8E52279343F44931F22EF5479896D1274358D769214F2AC432A81E2C9611100C856A427D3C52 -216F67D6D301135B5D7E7783EB5665C9F594C384EBF5767401153CB3FAC10436E661977546FC -B680B1F009C4BA6120CF086311D0F2A7DE930556BD1C755BE72328B5B2B24424F3329A364435 -55F13441A62699717E5B236A1700B516E51F4672C272C598AF85DB5EBCE6754CEFC50CBF6E8B -D345EB611690F86080D9B3F9EE77062545EA26171F769DA6A3DCD4FCCCF375C724F8285CF0B0 -13F84FD22F1323986A163176B84F0F572E0873FBE38E848800037BDC449925FB58C8C5EBF699 -0BA3D508E7CF7BE946B5E58DD203E3EE0A7F6E671017AAA82EA7F7068F98E9BFF2FCE05516E6 -F5597E300DE964A36C85370DED3F36A3A6691C185DCCEE8FFD419AFD4F4DCB6C3756C9CE2300 -E54F622F95B9A6F610FB1419C0684064559F9449D8736590F10B38D387769215F438A55701BB -16F608B914020D9D68D1B4E6B0A72ACF444AFA7014C016FA3AD2439C2E66A63ADF26DD2641FA -FF61468938EFA17189E3AC4571FD571F28954FBB1B1F003C6E6FC73567B259329554B33DE3CD -5ACE7126971ED0F6FB5FD10AF89FE43B9F15E8934FBC937BF3A9C00B1E0BDA4A57220759A7B3 -679C49710B9D8484D96607F14287DF9B42E7466D856D94BE768BC5E5D64D37BC70C0793FB83E -DF2B9EAA86E285FB25FC0E61773715DFE50BFDEA7555E590838794308F277D2A2ED1076DA177 -2F85248DF2F1F36CFEFA542E41020CD09974588C4860901A0F2C17F0C2BD5004BBEE58194FDE -840584A97AEE2C8AD02A3C3E47251A643D30F7203CC913183B2BE2ADBC6E9C748092CE587BD5 -5A5BDB6F62909DB2A0091398853E63F81E72B62B5CD820152C5EF717004418CAFE2725C10DC3 -681E630364A8B783321A2494224DA600187A459E26B21F40D999B944703F061517200DCFCF9F -C449EB9F3D343E38A1E44EE132A7B0DF1F0EB4EE3CDE097459E7F8C4831D786504653919C92B -A727DB9D713ADA8FC3E37D8314DF2111483F1660789265751BF5ECEF9B33AA2876E941FEB15F -B4EC6E739714E392DC7763937760B88C532ABBBF1F780335129E8ABE1E0BF7782630868E070E -6BD04AC7AC17609C0BA1DE39D7AD73F74E48380C65FA4F596B104C580467618E3046C0883994 -906A273FC4D4B662F3CC32F52B47DECA45428B0A1B46808B1A97FE8844AC20968DC0BFA2A247 -A556E57A64DD03E9193A16CF7C3F24849A5E58B1CDD52AE8BF3642E503090BA521339F17B4DB -0A08C4F7FA4A95129C116BF11ED00000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 - -cleartomark -{restore}if - - -%%EndFont -%%BeginFont: CMTT10 -%!PS-AdobeFont-1.0: CMTT10 003.002 -%%Title: CMTT10 -%Version: 003.002 -%%CreationDate: Mon Jul 13 16:17:00 2009 -%%Creator: David M. Jones -%Copyright: Copyright (c) 1997, 2009 American Mathematical Society -%Copyright: (), with Reserved Font Name CMTT10. -% This Font Software is licensed under the SIL Open Font License, Version 1.1. -% This license is in the accompanying file OFL.txt, and is also -% available with a FAQ at: http://scripts.sil.org/OFL. -%%EndComments - -FontDirectory/CMTT10 known{/CMTT10 findfont dup/UniqueID known{dup -/UniqueID get 5000832 eq exch/FontType get 1 eq and}{pop false}ifelse -{save true}{false}ifelse}{false}ifelse -11 dict begin -/FontType 1 def -/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def -/FontName /CMTT10 def -/FontBBox {-4 -233 537 696 }readonly def -/UniqueID 5000832 def -/PaintType 0 def -/FontInfo 9 dict dup begin - /version (003.002) readonly def - /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMTT10.) readonly def - /FullName (CMTT10) readonly def - /FamilyName (Computer Modern) readonly def - /Weight (Medium) readonly def - /ItalicAngle 0 def - /isFixedPitch true def - /UnderlinePosition -100 def - /UnderlineThickness 50 def -end readonly def -/Encoding 256 array - 0 1 255 { 1 index exch /.notdef put} for -dup 0 /Gamma put -dup 1 /Delta put -dup 2 /Theta put -dup 3 /Lambda put -dup 4 /Xi put -dup 5 /Pi put -dup 6 /Sigma put -dup 7 /Upsilon put -dup 8 /Phi put -dup 9 /Psi put -dup 10 /Omega put -dup 11 /arrowup put -dup 12 /arrowdown put -dup 13 /quotesingle put -dup 14 /exclamdown put -dup 15 /questiondown put -dup 16 /dotlessi put -dup 17 /dotlessj put -dup 18 /grave put -dup 19 /acute put -dup 20 /caron put -dup 21 /breve put -dup 22 /macron put -dup 23 /ring put -dup 24 /cedilla put -dup 25 /germandbls put -dup 26 /ae put -dup 27 /oe put -dup 28 /oslash put -dup 29 /AE put -dup 30 /OE put -dup 31 /Oslash put -dup 32 /visiblespace put -dup 33 /exclam put -dup 34 /quotedbl put -dup 35 /numbersign put -dup 36 /dollar put -dup 37 /percent put -dup 38 /ampersand put -dup 39 /quoteright put -dup 40 /parenleft put -dup 41 /parenright put -dup 42 /asterisk put -dup 43 /plus put -dup 44 /comma put -dup 45 /hyphen put -dup 46 /period put -dup 47 /slash put -dup 48 /zero put -dup 49 /one put -dup 50 /two put -dup 51 /three put -dup 52 /four put -dup 53 /five put -dup 54 /six put -dup 55 /seven put -dup 56 /eight put -dup 57 /nine put -dup 58 /colon put -dup 59 /semicolon put -dup 60 /less put -dup 61 /equal put -dup 62 /greater put -dup 63 /question put -dup 64 /at put -dup 65 /A put -dup 66 /B put -dup 67 /C put -dup 68 /D put -dup 69 /E put -dup 70 /F put -dup 71 /G put -dup 72 /H put -dup 73 /I put -dup 74 /J put -dup 75 /K put -dup 76 /L put -dup 77 /M put -dup 78 /N put -dup 79 /O put -dup 80 /P put -dup 81 /Q put -dup 82 /R put -dup 83 /S put -dup 84 /T put -dup 85 /U put -dup 86 /V put -dup 87 /W put -dup 88 /X put -dup 89 /Y put -dup 90 /Z put -dup 91 /bracketleft put -dup 92 /backslash put -dup 93 /bracketright put -dup 94 /asciicircum put -dup 95 /underscore put -dup 96 /quoteleft put -dup 97 /a put -dup 98 /b put -dup 99 /c put -dup 100 /d put -dup 101 /e put -dup 102 /f put -dup 103 /g put -dup 104 /h put -dup 105 /i put -dup 106 /j put -dup 107 /k put -dup 108 /l put -dup 109 /m put -dup 110 /n put -dup 111 /o put -dup 112 /p put -dup 113 /q put -dup 114 /r put -dup 115 /s put -dup 116 /t put -dup 117 /u put -dup 118 /v put -dup 119 /w put -dup 120 /x put -dup 121 /y put -dup 122 /z put -dup 123 /braceleft put -dup 124 /bar put -dup 125 /braceright put -dup 126 /asciitilde put -dup 127 /dieresis put -dup 128 /visiblespace put -dup 160 /space put -dup 161 /Gamma put -dup 162 /Delta put -dup 163 /Theta put -dup 164 /Lambda put -dup 165 /Xi put -dup 166 /Pi put -dup 167 /Sigma put -dup 168 /Upsilon put -dup 169 /Phi put -dup 170 /Psi put -dup 171 /sfthyphen put -dup 172 /nbspace put -dup 173 /Omega put -dup 174 /arrowup put -dup 175 /arrowdown put -dup 176 /quotesingle put -dup 177 /exclamdown put -dup 178 /questiondown put -dup 179 /dotlessi put -dup 180 /dotlessj put -dup 181 /grave put -dup 182 /acute put -dup 183 /caron put -dup 184 /breve put -dup 185 /macron put -dup 186 /ring put -dup 187 /cedilla put -dup 188 /germandbls put -dup 189 /ae put -dup 190 /oe put -dup 191 /oslash put -dup 192 /AE put -dup 193 /OE put -dup 194 /Oslash put -dup 195 /visiblespace put -dup 196 /dieresis put -readonly def -currentdict end -currentfile eexec - -D9D66F633B846AB284BCF8B0411B772DE5CE3DD325E55798292D7BD972BD75FA0E079529AF9C -82DF72F64195C9C210DCE34528F540DA1FFD7BEBB9B40787BA9351BBFB7CFC5F9152D1E5BB0A -D8D016C6CFA4EB41B3C51D091C2D5440E67CFD717C56816B03B901BF4A25A07175380E50A213 -F877C44778B3C5AADBCC86D6E551E6AF364B0BFCAAD22D8D558C5C81A7D425A1629DD5182206 -742D1D082A12F0780FD4F5F6D3129FCFFF1F4A912B0A7DEC8D33A57B5AE0328EF9D57ADDAC54 -3273C01924195A181D03F5054A93B71E5065F8D92FE23794DDF2E5ECEBA191DB82B37A69521B -0C4D40495B5D9CE7A3AF33D17EE69979B82B715BAD8A5904C5DE02606C15950CCF6E188A0CDF -841EB68E5A2F88253E382140F87C87E55C9EA93B8C8914A36CDF630D6BE7CD36DBDCE22B2177 -8E8648B97B7EC6742EB5114BDF0454B00EA7B1FE236C84C0E5308C871F67B973892890557AA1 -2E00B2C20C71F516C3973F3BBD14A1D0149CA064391056E45E9470FC7F6F556ABC82653B3C80 -49AB5CF4BA83C8F2158C236B2FFD4208846013BAF4165E8BB8D334C8FF2E8D5EC7B79D46A5B8 -BB60F8911D63226722BDD700952208D89050001DD83DFE5577183767DCD2F8CCDCD1964D1AD8 -29A49B6C94C30E335290BB35CF706C04E76813E9AE2F9158D447C0447C62851FE9E91E0340A6 -1D157ECBEC3C69BAEE6490833DDF98E6EB0ED5FEA40AC515F2C9AD9239DD20DF8A7B63814A07 -46A8343C1A286BD9FA24266E48ACC9C212EB2126B906A2F03087138088D29D069336FD006AAF -0A63ED6F92635829C2703BBFDA6931BA767C41F0000B2C24E0E5E0B045365D24850271929151 -BA8DB92FA0E7950299A5B0A2DAFF25A85167E40B3758E9E5A60AAB8DF9A17604A13AA7D24FA5 -BC23002BEED67123D50634A98DB0313849B034C205CD6A3026048F3637B464949BE73A0AB976 -3B602C6D16ABF7B5536CB482C296BD4BB0A792B8DBB1E8D922D0679894FA8F5CC8874E0502D4 -28FCCAAA4FC4CE3EEFCF12B553D8FC59729842BE1509D2CEC808E5D7F7B89ACFF729F62B9166 -86B342A7D99CC720B7FB0CBBEEE6126DB12FC6532A2F93AECA0990683539E48529D1EB06AC18 -3D35D9F75911332AAE28F7D1CF225C4DDBD78A5DA5B6C3FAF0D79D33CD8E72514310F65A80E4 -FF102BCC920A48044AA336AE01BEAF9706851A3739D6D11083FE66A96362C32360901FF6291C -5C8540AD7D6675EE919899A88E194F5246174D2ADBCC0DC2E784207BA17C46F31BF772AF0A9B -511D2C8A7C7F347FF6AC2F86BD4E76429BDD7FA6830E41498DE9EE9BC3C62BD6BB34C5E405D8 -F3AA471C30100F04711C7F168625FB25F59CCF307F6FD59019760B17184F6EB2DE54A1361E3E -9A770C488B6B7724F639E369675BF694DB4D86E88BAF4E53129543D5ABB3CC1307E76A5CCA6E -A9F4B1EC07FF299C449CF083252A57D6F60757D343CAD6F86FB65DE906F5667ECD3D57C12270 -8A70DB2625F3000C810F3B7D4986448A0E7C54408DD7CDBCD0480F4F1FA13E1E12DB9FCE1716 -D8DF3CF85103CC7BD41BDDF35142817BF28F213F48E693DF865C4B70500178000C44178FE38F -CFE718AAA99F16DEB4AFFE0CC1BF09056BF09C676207B4FFF9A103262F966ACF4F9F7BBB9C3E -2ADC9020D099DFAA510A41DE73258EC712E144585A007352430E5ED914C8D878BBD1D13702A7 -072FF95A742226E60B13C13CB8AE8EFE96F62D3B69D84048AC08DDCBA0DD50BA39EC2508B0B9 -8A367E619274E99566891331401722122EE9D091D7B3427CFB95B1DFCED213ECAC1615AF2C40 -B4EE447882D8BF6C03E61DC1DBB530ACF13B321841713006D2AB9FB29535C7EC4A3E33BB6F93 -402059994D3419BA6CF0B40D1942C400E931FB46C32D6477A46EAE7BC3A72292D161E548F985 -398F0ECD907C92DA29B1070C26AEA7F16228DDA7387BFD4C04B256DF8E98ED64A2F4C3D7389B -FCFF502523A6C3A8785CC183F3346C39768643E2A8130312CFB78B6276109252755E6764C952 -C23FB9AA007434FA7A659EDDCA8EABB8365BF2CF1F29DC9223C5F9BE9D7FE9135BA0DA166253 -CE5A597A82B003FFEF1AE493C57385002B6BACB5647AB9FC4657405725D1D348AF8600F1AC1A -FE846DB24424ED5A8E1575AEDEB33BC71D262F62DA2D9AFFDB32CBAA573041168D9869957079 -347B5FB49543A8427BE4A4FE14B3BDB59478EBFFBE0E118B0B09C1BA3164A2E442AC5BDA28B3 -A964E75DF2D8E15463F5570EF21747839B3B86345B19D7126BAE9F533E6F1670FE0F01949D03 -587FF84BE2F9D167A223388A7D3F23FD8102855C9DCDE8A255374225456D220ED6470D07A185 -EDD269567CC8851E0ABFF1DBC41DD0D65353EAC9126104666299F6ADE510F39702E7DD36B9C8 -29494F47D3462EABCF5682FEA1C0D46672187A95DDB98E819898A90B259C49DFC9027EFEED01 -79A6DCB2C3C78C8CD323AEDA15163E3A786595C95D1177395F233CA2F05C9DBF8E35B849CEF2 -ADC38A16D568CD00546482EAEBEE313F92538C98B462DA031AEC699E215366183EA1FD1B6864 -94BB497EE5161EBA7321D3B314FA37E513E72C84971DA7DC7C49765E0C5EA5E64C925354B80A -4C08CCCEBEF3CE9C22A8C54A10AFC2AD555D676301E9D3486B35E1B31F7CCB5C42CAEF15BDD6 -1D84B43215A953CFEE5E6B57ACD4FD1D32AD3A596C569D9167CD759D9FF4FEA37F39C5EF1DF6 -9CEA6581E60B5B2863EAD4B84F26CF3689EB5785DE0CAC28FFE8D3B824EA76D2BE8883AF600F -EAAB61A69DFA217E592E5CBD3F816A7568A0F389C6820F85A4E2C5A5BDC9CA1E038300B34A99 -34368E490B55CD18FB79A1B720E46BC1F2686F963134B24A46EA5616E788AB2E05313CFDC45E -B4D715A1AF4477C1E5935C71B812A6ECC0A8D9B1C27BFD077D7D683ABCEBFF0F03F36EB2B2EC -A8F1CC63215CCF77985B0720B49096DBA6FC5A4653BB1355B84595694A13010BB8C4268D346F -523482BDA3A016B6FD5C08720275620DEFDCC70CB61DAF454C080D479A74F29CFA225C463963 -C2DC9E10C8BF004E4AF522C7E6A74E5C0B872B8462E456067FE4F48AFED1287E7DDEA0C425EE -717CC401F477643CE488698CA92E7A22D97558ED2C483603587B5F427E72689EF96ABFB2363B -108CAB9C61A27CD1478F0F167BA5DC6572894E2E411B48B7A26BEAEF10D763971454B6A9F23D -1B04F1AF950DC60D472FA30C853F3BF63C76DFF6FF7430A262B09B9E7AF709BE7752B9E41374 -924607DBF1870C05FB50CA08B691DF5F65B30F586F76C34DF28FD6883B95CC376121B70E2372 -314E45DDF298FD7C7C89276781D0490F9197B2744ED95582B22145C0B441B80A2F71895400E3 -43B1AF5B50A0CAEC17CF4582AD5F00533E1CDFFE68C584120DFD3502D184BE9B097955BA8EF7 -BD62D1A999FCBFF0A4824A1E0FD79EA0A87E3AB15403B01C3F71FC76099B2C37C1C242E1970F -CC1D560A792F21C28862B1E1189FD7ECFBCFFD913AC07D0DDA71B6EC9025BE52BA4270E5164B -58540FC5321E26D78D54D145A0AD61B2B34B5303546537AEACD3AC11C56BE668CC9A19B8AE27 -05015C391C059BCE6DFBEE22A48200AA80593998880507E8AAD1A35095197C1A5A06C56785FB -C780A0AC1ABC4791B51412F5850EAC15790C14A643C94FCDE40E1014A95347C53E2107963C91 -A9C92B32A06E92D54A0CB55243B327DBAB3AF7593406BA9B0D5EA78C94B0049CEEB1863CAC79 -C2E87AE71A5C53E2DBD95E8030520429314DBD80E917C260907A06702DE59B8051B5FC5D51CA -AEE3B3BCE387BDCBD816F2E9B71A3FDC5DB61BEC2085EE304DF1AE1B5EAB1BFF7B116682B605 -199379CF75A25CF96C53AAA53D49D2375777AAD0BAB6D72C3626239C114CEC78DBABD8BA4B72 -5645BD7061EE40A682C0F72923E215821DC54365EDAA11AE88AAD4EC14526C0F809E9580F325 -F9F990A4F65F50C2ED1C0BBE147C48DB19B78C68A76B986BE74A1D04BA2FA37441C7AEB74ED2 -5B45DD924D048CA985B570DDEC523C1ED80C2B5F85538A94EF1923F2869D5EDA9CBB98F05C85 -487742DA45992CB461774560AF88792B0202E9A203FFD7BB75595D113FFB920C3AE54A772496 -FC54C2943F097EEFC9D21E23EC7CFD71F156C591ED4748229D42A287624CE2D560057C7EF790 -D86F9BA0C80682D8ECE3BA911DCC5A89CFF09ADE79EFC8FBD5A41741A527D7088C218B42C38E -9D6F8BB780B21C0D26D9E139244A803573C6DAFEBDF71898D635BF0E3D27F035D9127C2C9DEF -F7472D367DC27D0FBC578357EDF66B7C3B8D48F7BD080783E389E0D4DABF6335C726894EAFFA -EDA38152046483D1D08F6C1917A2FA2FBB2541354C7486C099C1A4D626263BC2605406D36748 -7B48EFB5CF5589DBA74DA37F373030CEBC463376B2420AA704C47982B33D87F354822455C216 -78FCBF84BF36257662996CD3371DABBB679ACD67A12101E42287AD089A9DC2B585E4A8237113 -E05D2B50738D49E62317293087A5C0E510468C2A5171EA62EF8A18BAA2DBE8C45844CDF7A0C8 -8B13A9A74C1A37FA349372CFDF524B91888D2FBF499581EB484A5586670E7B9DEA2806389377 -4D0B49C91222D006AD6AFA95839A6A288E7C9DF02F528ACB57048387987715188C8ED37249CF -8004DDFA58B8366BC874A0C0EBDFCBAD37CC7173D0988D4F3E1035352E5B37A701D1B5E929E0 -50FF1CDCE9FF1CBF53B6959CD9F3CE0860A3233906537149390C77C262972B51F218F64ACFED -82EB44F9342260248F55081A58AF902B9B752AC4DC742CBDCA341299DC191767BE4510E9FAA2 -6029B8EF75BAA4A654318DCCBA145A5864ABDACC8D94507E58819EAD9E546A5F59A9BB966C97 -1AAC5146243686157DF1781D6CEAE79A575C5AC8F162E9DC141CFB6C6DB52CE641A07A757013 -2B7BA784F7897ED2FC265C8298ABE7044570A32E318BD452FBB1E654AF71B354CA6756BDF3B7 -E7FC4CD33018F2651FD8EE0BB40ED22818D9A7C1589999D12DC9B7EE720F53C3AC12008A4164 -6FC3FDDE34E8A5A4899EDA421963F8850BCD6AB5741318A9D74E3B2D71FFFA804618005010DE -3B7F8D13B93765C35BA3B4ACA42978A436BA8FD2EF8E6E0EB03243E9194899B0278580B6EB85 -19573B7EC8E40F01D559C402376688EEA755528CD1540D297C2D1A23FE54F6817EE7E02ED339 -0018E8930CA114C3A8D4B26557ABECF8B2ABBC58345F0B2663DDC12AFE76A5DE327CA3DC388F -A3189B5A5C625661D70DD98CD0C842BD4CB9D2AC1CDE9DA51696367D0EE60B56DAD869359288 -BBB354A143FF22B44961002F4C04F808E084F42A9551D41E6BEFA371A5E2E69A343FDD8D5766 -4F02A1CC0D2E8125BF369A425A3260D83F94CCA6ECAC63EDED28275A0C645524FC6C30B58767 -FB1435988DC6BBDACF2396B451E6D83A19C15095CAB8E2D869BE91C270B020CD0A99B18D82B8 -21460055EE49D48A925431F12572FB6ADC39AEE445F2E8F73DD179F459F357844B69B88B27B3 -C8EDEE37562EE9A1674AED73408510EA15B55D91A72875B1FAB3F21E284EF625FE7AA2D59EF6 -FB15A16D5370B870AAE04A638962CAB1773393C8096FC6C5595B1F2A55C9A88361E288C317B7 -1C3A61EBE4209B9758B8FC0623110CE8F790462A9F06ACD42425E2F47B03D2369D3CFF3CA281 -9CBB86F86ACF87E13F6BC3373D1A8FCD8AB815BEFF016C4B2BE8CDEDF12D74D1B1A8D0EE9678 -5562E534339C175D7915578394D4DB0D92B6BF955DD3775C40FDBE141E0D8043AE212EE4352B -088B7223D288F7CB77C23A5D63AED303709EDDEC885002D843C0276CEF70A982CDA67D1A387A -E3BF227333820C4D0862EBA116D2A9BFD67B4D76B0E71BBD9115E78932B045B7CC7F43318191 -E030E17B7770D0636AF3C88690767706687BDFDA35E7039865E6836E1F67A066E26850ED09EA -1FB1FDFD463D94D7853EC46A651059185B2F4EE1BD5B0DE5BD43A50E83985B4488E401489B32 -96593054B4FCB0EC30866BA47D40BE90B4E0916E3D82B0273B497B99CF5E114123502F3148B3 -817E7EE7441FD6D0E2B1EA16BF55CC8B1D839DE6692730A1A868C1B3EC874F5159ABDCED8A8B -93F3C594A90A23E64DC8DB55391764095BEE4A49ADA5CC18802D2B6723F465A62590DC5835B9 -529E34D7489AB0CBB9A3F128E122B9853DCA6125B0E46CF1C65A890EFC14D1B8CA8AA23996E1 -4EA8A8FC576860C0B1F3CC1F77CD445E9B8618AD0E92B37A008B527575131922A9E85503B489 -DB75801DEAC3BCDA5E0339BB45C3B78052E7A551684FCFBFCBEE3A1AA28CC1A1DBB9C5F8FDFF -06A67D8A879946595276189BE3AF34D54BBE197A4874DCF542404C75B7CE2EC58496F76D2E14 -CBB60F93EA4547216E1BB02A0413122BFC27DC99EFC47070322D96EECD433A50EC660E654862 -2400EFC40A4A79A49D8FD8F6D48B09575447EE8D69742E02C2770BFCF0619CE6C820F194B519 -2D50F87ACF2ADF9C20AA977DFBC7F208984B0B56E8C35729543D72061AB0B98FCAE8E76F6C7B -2C58A0CD5CAE0A8B6100ADCD326A29860A5B54311B7C9454E5EFA060D66F2FFFFAA254C43001 -B114DDDD7F399716764935632CC759C6933AEA5ECD6CECE1E7120BB12EE2F732ECF726FDEEED -36519323F69C96656F19893B940CB3BE775CB58D1108CB35188100C232E13FC998E0C2C45EED -D962A4B4F38ADEDF19653DC547F754F95F5B6E5D5A5EEA2A88B3035C4A7AFA888E6CC8AC48BA -19647D548B1B516947A199D508698502BAEC0833651B3CB15B6174F65ADD3EF0E858E180B036 -02AA6D4C2AAC82DF20C306270F71502BCC483EB20DE8538EBED6E469CC5E987B77B87D71E9F1 -FF64C7C45D129762EB0F4A2C2F102C70BEACD1CD6ABA43C9C953CCE3C1C39ADF139AEED18FDC -9F08A07A46BA57B09FFFA0F9E04C990971BBA67B6D0B964EB24E3CF54A8A2AD59EFE42F3D3BE -F9DB41FD239717CAF609519521BCB2E65828FD954A5DB4BB69D664E4F5B7D69398D317FF498C -2A16A8F44E22E445BEE075E9EBBCC3CAE9FB751B549C6755DC652D38E45E388EC865F4D27EDA -2208EFFE419FE0564C3E7CAA1107C93DD568BB3104C0AB44AB4B6476905F7D64AC1F7367C018 -7703FF348B2DD853E4D48BDF99CD9FC920CABDFE736B3F4CDFAA59CC4782B3B2E5DFCF767182 -A168B1B040045B6E5A6639A4CF874B512DA036EAB90FB0656DE3931D7C874C70F1A79C91127F -DF95256E24FB85E6A0A4D718E58CC022A8A81492E13C06542A91044E3EFE9F8101351C65523E -2B2398ED3830030C01445F622CEB0E992EE2C487B6E1A272682C2F68B6B73299A3DDD31E20C7 -827B9132D839753C5C17197F2E1A504621F8DC921D54B0D7D6848FD1AECD416B12F1841F46E2 -27E1CDD7FA4874BC0E229FB6572DACCF08DD3A92F4FF53C4FFDDF3D84E7896A99C81662F5B08 -86BB31B9958F377C2DB302E2E13C41C72D26AB6DDFADD8330D67A327D7F0AC6D18BA62AB5FB0 -2A7C917D9AFB40CCB05389FE2B7A3A4A6DC362B7C1151A3FDB0F0A40DEEA27909ECCC1C1BF22 -28A363E28F4CF1D0FA87AFE10AD9D493BBF68D37D8E09FD7A80914472230A79E6171BD037AD9 -E60D3C92CDFFD2B7A472232D0A0ABF020D578CCDA44DB613B4CC4BC68788DD1865DCEAF79816 -5A49E13544267A7C6C1EDC1E14698C7C4BDB1328EF66A9E79DBD5080F504B42A7DEAA26E0202 -33C61006B317DD9C83B7F80272E04D2EB97A15EABB2AF74C903E9D8550202AB6AAC3F18B2DD6 -8800D7734EAD58AA29DA6D7E604FD365EEDA714D20B66701F24692737613AC8306FCA98E3056 -F3406D928EE4C86BA13C7428743A57B542990B7154FC33723CAC55F4D5236628F648736108E1 -B08371D51BCBA8EAA63129ACF3AA6140CA784A02F5FC193E3320348303CC2FE254863CB2898B -28271C8CAD6C49AA65BD665B7680E3DB0F2D11A1630CEF8F0919365662F6447C26EBEF90C3C5 -C5827A77DB5E65E64044F93ADF8FE08B4C0C2021698816F41632F88633A933830B44365C093A -EFBC3C263A0DE6F828505AC55B4A44086F5A161CA1DF8B2E88F72598A0F3E069F5A96C3FD32E -B2007BC5DE61A20205E725588FCC24982138F05B4A3FEC6C64AC4248DBFFDFDB5930DB5CBBA6 -E762672F7D25073BF52A79FEDCED28965FA1560AB3A54A815A2E1A2F6D769761CE9889D69D19 -2707B1BA6A26F9751454D663389C4B5A881FBB44BCF5ACDB8604B38222ED5292DF22218EEF1F -EE8B117733976840A4D7A79FD5D8E2BB997196CD7EE8F6286FE53E1EBAE50A440A78B1B5021D -6D87D323000518EC65CE4A345F755D51334B093FA2D16A5420B7A869AE8B560A3209585D8058 -93B954DC7D9B97EBCA7FFC951AC9C8A243A6890CE850AB66620F9F9702E3D942063E8A851DE7 -8D6F438C0E24DD0575A6D9EAC8A7A6E03736FEAAE82CB8C80F2CAFEFDCBD00F3FC219DEDCBA5 -959665E40FE323A5799F17BDC3CA3394E018172DC7351A2C0DA260F4E942BB7C877F6DABE0BF -D016F19EAFFBC011564119E18341C0A3D100A5C11056DB3A9AACB110F79D2BB6D5018FB178C9 -E9F9AD07E2D44391785BDA33CA1A90173E83584512C0E1CD063C1BBF41C316E14C9E3FA3E3FA -429A1BB370FBE057065F8C43762E81FBAD4383CE602B7502A7F715F108E9595C703763FB2392 -ABBB78BDC3778E45BCF31D29B6F2F656CB67676221A53AB4D0A8C325C39CD88E4B55988C5127 -567C80281E3B8177E337B7E127FD533A480C15BFE869FEEFE3E1244A8448A07FABF756C615D4 -76E4B98740E1E5D2187136E1E889E23ACF840594030B26907E5EBC07D5B454784501C6C020CD -AF2456FD9C78760CFAA56EDC36300057302416CD57155D9A3FABF08480D657F3021F6F3BAA57 -FE96F05EE5C3107FC4C399BA1346DAEDF11D9CE89682307719C216B78AFEAB9B495F912CBA1C -84227A908F116E435AE0EE55D64343D82382596660BC7FB4739C267B8C54B3A6D4F736AE54FD -0C91A958445E1E108816E0BF902E8E61AE31DFB198DAD37251CD06184AE9C9453448A9EAAC55 -7C76964BCDA7C5ED97E39FA0B04C524CA6901007CE5264A909E9B99F359E15F1087A3B1551E1 -7BEF6BC7453597A1F20D5644020C0C7F63306A8FB4F2AB7C26B422033A02D1C724FBC760A5E3 -2C937B0364CF5611637ABD5A6967E68BC11631F51D16DD2006D65DE33FB7BA03E85CF27E5F9F -48502EFAB5813E8C5A3ED5534F4EA2D4B57ED13A01ED53A88D5DFF7AA7C65BC1C3B41BAE709C -27786255A4DC7DD81BC8EFEF1FF68D774693C4537361996078BF0DC32B3B0CB10B3B6493382B -EE819C7498CBD67ABDE015CCD07385E0C313EAB94A45DE823EE14CB9624A5943191500799DC4 -852E779DB2A1E54618236476FE27BF8CA93D518B1D3E9FFC55710D8B50AA5AE3E5871CC0391F -EEB495829E0150C037D6B41BD233860C5D3235F2AC44FA5358837F7C4D7F2B33A68601F6713B -D7D3D300D8DF866B40B519C2658DC69C4AFAEE29C2672374EC339DDFEF018A42293E9E428937 -D7EDB65BBCA68CFCD8AD13B9AE3082F13883F9D79BABC375595D93E408092B5DD52F89326D27 -B6E87F326A025DF5073DA99784009281799053F2A8949118058BE8DB1EFD7ECB6A6D0766205C -0DFF497FD02F5522F107A5C7FC742FFBA113F9A624BDE52B0B0CF5F36B3DA0FF93A45ECD6D5B -B3956D7C2F1D6EC60B11B7F8D7F52774916D796052070F4C578076AA0493D7F4308068FA72E4 -7EE1AFEFDF9EBBFB064A7187F5D35708A4763F20D741FD762A5F63FB0E1A9BACE4A515379938 -49FCE0FCFF27F94EF1C4D739808037FBF63FC3164EB7200CEB625A2E24765E93949C052C711F -FDF5910ECCCDE6FC08B21D06AD153594BC6F43981D77C13BD2342C13A6806FABEFB19B70964B -3A8AB43FA1302FD4865716CBA688FEE514D36E077D14E900EDA3CF364A28DE4283D9697FF94E -4DD391CA3722D2E39507026C3ED546B19BE4D6EAC3B7E7F57EB4A2E1A94D4A5C737A855C906D -2220332B3D69401869877EC2E790D0E64934A9F8E4787A2DE740D0183F035C7E448CB91E9229 -2F700C73551F9B07B445BD906B97B48B8568FD9FD11E5739EB8D02412BF7C7A66650CDC48280 -BDABB83AF881EF4A466962C44C451D361200882E42E16E1E63B6E133CE31A31635B4C0934700 -2CBBA783614C6127C4A26EAC47F9EBA241EAF84089E6E0A57A6A5E537B03BA9E8BF5CA259E74 -6C71033452FC17F10A319F416DBCD6144BA1864B92011DF197B7926FCFE5FDDF5BDB8FFFDA45 -F9DA83636D02760F0E736BB7657CF2A5A8A7BFCB51D02FA1999CB88E26D71A8C2FD432ABFE45 -CDDF65AA9A2C199C162E0217DE72D65B0B046F6E3CBFA0705095755901A3A9206C6E31A584AD -86F94F0466E2C8D33A40123F04F396CE83F0549DF61C2E65423FDD88FDFCE784022DD2CEFE15 -535E4533CD2373C4C9BC92D7B5A79740384D09CD8FC8D9C82D9AC0DE5B6E8F976AE8978E4D79 -D0DE39EF33062914B4D092815851C246C84B3CF54BAAB62FCAD5F8692A639E1FD66B020CAC2A -D61C61CA9E58AC33DDB1A1668A613BBC8C3B2F41285EAB4720FA1C293A5A48E8A3CE743729E6 -49B6BB75C60F8EF5B5ECC6F0AEC820FB7B8C6AB0C17A3D6C6E37FEB51C1F1FC70DF4DEEF6335 -403E6AD611813F7CA4CFBFBEA3DA313939B94DAC96C371690BA23DBEA9091D99EEEAC4309241 -57C4BCD68BF1664BE26112775ADDB7540666F83D3B69BB7FD8A48EA45B011100A3CBDD24CDDB -CBD4AA4CCEA042816BAB8F935864E37748CE08A600644BD4651F4827C217D4B7C59FE0B70180 -725237AAF487936406060710DA6D268B4C57CC51D48D02931FCE5783DB1D2AE2070D69F72B6C -1591107758A825013F7593C39BBFD9378D8E8982852DAFFC1A7A2029CECFB302CE0434EEE2AC -26C6AE86E40B3070A8741C9A7C0CCE5E2D35E33B794FD8BCCFA7DD369FB22F6298FB8EFBBB3B -4DF32D937F2FAF5C06C8C0B6C5837F1A3933176B6D2F9FA0DB44F67F5549D66FF212EC9E4DE8 -AA65CE597396E60BBFAC7297F836A155DE7F0441EB7A91FC9AEF3E32B249054E9A60EAA446B4 -F065BB63326355A7B2263538A4010AF11C8C28BD3BDCACE2D5A33A3D508D81682199FC034C52 -5DD99484343056C8FE000CF961EF5444FDA9A2D92ECBCC17E1D2FDAFD34051195656C2F5A539 -4208284A8F508D04F41762F5E2D3602126C40D56F39B82447C8BB9EE620EEE85FFF0E0E57B34 -FB97F55411DACF54388977A3454E2E303ABF65475DBDF2D5D5CC68BB42699C00778479FFD24F -2FD9B14378A5BBD1F4DA65541E56DE1FE7A4A42DE5A4D7E552D0E4CD0CE2706767C61A207D0E -EA56301CD359EDCBB53CD4F3B15E6486730AEDAC1E76732C425ACE9DA9F24C57DFCAB6942E91 -82117754493B909CD1083C96EDAAAA5EAC76ED7C42F48F4F2C0C6DB727EB895E47AC60392912 -FFECDE469085BCC3A5EA0B28C9742D4AC7AB941BB93946D8AEE56341AC8BACADAA7CB553C789 -1741E0A123FBBA5D30B017A9169EB8426EDEFF35C6B752A5F5930EC1051AD7F39177BC6FE2F8 -D20EDED8629F89801CBF2B29C5B7222F9118C1220C8CE53A3F89DABAE7AFD0B2837F1F4E20F5 -E34DC29E98078B50AFE3009F4B5B5B671DF348255B032FA6073B3F0E25DDECC35F0FD59D0CE8 -85E2EA8F1B06DCA548D41AC574421D5EB37377155CB81D3FE5793A99FC095BE7FE493B06A020 -2066725B6E33CB6D616C62D1502019BC271EEAC306DB1C26957A9755695E899725E1721AE8F8 -7FF4AFAA4FF2AB9E904038173DA5F2C9BF9CC14107556586654038EC562F19BF48D84B18B82E -6ED5EEE82601E7136CD4DB7393909DCE654F90468DBB240AC548EB64D2333BBC7FC8B13DA555 -79424A2F184296950D25A9940FCC74C45984515C369B1B853385B5877A813AF5E6DCAEF9C6D8 -963D723ED403C3D96A76291494B5694C6061684DB06F4ED608CCF25AF13815C85CF6164EDF5D -44E4A2F2E88C782B2C938063A214C8D1588FDD5E43094255E70659694850EF7E4789E68361D9 -8521F0E3909DE8C5040FE630642E6BB39757382CF0E7EDECC723745E5662D018E94052F93B8B -C067D66880F028BA14135382469123169B93019D5E6577753611F28C96B34019A4CCDF79D948 -DC678A4556A4C996BB4C3E95F8811C000C87FFA05C0EA432E4A45F2E4551FE75CB3AE344D966 -B834218C9A19E6856FA56113808CE42A9BD349384721FE653D2954DC61AB4606A0A17D3E38D1 -A5E18A0FB4CAF8A186099BF4A0E2C4C84B3054A623F973471DE50E2254753A99E8DFCAC4984A -175A31BF269CC8B8944136D5A350E69C0039784A89473D09025C50B09F8C8409CD1231C10A64 -2172FCEE2D033D885C0DDEAFA3F1256BCD233322C4D7893B22D7879806EC77BBC949D8C5A254 -45EE5D23C384C663209C9D85D54AD51A2804D618853C58034B6B3E34E94CF44C13F6925F9F9D -73E2E746593F8431441EE0F40525F23FDDAF588E634FEF9B9317D2E1E6CDDBA5161B65204AFE -A75C882E676DC5A19C842621B2E9F474F9A0E90528797F3BE63BF3B04C5428C1C7BE520DA85B -0694181BE5FF0E9836C58D6336D791770C86AB44D795F4C92A01FC1E954CBBA1656477312EA9 -E0B8F402D9200EC42F26044CFB74ADB33AD9BD911E501E5CA08473F41DDF5455248CE44233E4 -E54C8C029D20DCC09B1C1BC3D9CB6E5DE34EAB8603E6394B2478E21367747F64E0BD2DCBFC8E -2C945BD67D6DC09975C84AFBC03A8CC5FC4A7F185BA4573441B23896760BF832D4D7DCD8DC93 -AAD2F5FE46B229F4FEF8BCA5CFA5B32F917F4CB6B22E324F2EAD035198D9DBA032D026C40EDA -FB467587155CF8EB93B6DD2478F049F7E7AEB555483D0E83993E56DC140B1C09DD7BD5CFE5DA -80F6015C253BA093FB03D87F5762C20FDAE871B3EEAD5EA64FB8B2DEADDD475CAFDA649BA143 -6D50D8CB897E3817A783D6B0E13AC3C1F4F7A5BA3277ED53F5CD752AB7A78F1F55830D5CC48F -F6E23BD4671D1F0D75B5F3EEBD792928559D06DD9D0C2426B8D554F3C0534221445208093E93 -3CF8564505C6A12EA83E72871ED53CD4D881C0C17AD10648AC0420A9D3FC3114BE6C39A89201 -7E070550B4EEF2506710398F577234A79D93E2CCC44EE23C8A3D0AD1B198BCA89A917E294102 -7789AAFCDF5329412B18B41F1ADFF594844210084D11E72712CF77F6CDB953655F67BB17CA9B -B84943946C5BC028AF8D9FFDA91FDF024617E72CA7DEEAD076C66ABD7E3B8053960D0AEF9BB5 -B530F78BA3DC154FE39382B5C3A6F18D7070F12047C57BCE194A0615C29B9E1D655C0ECFFE0B -CCA6117C1E3D50CA27231DBBFCFDE54F3699A96C559A8E6D680B267F9F1E5AA51A459F34F6DE -CCD2B8D915F4CF184C35804E0E5F0CC172DC3C15180AD344D9627C898521697339B3B68243E1 -B9939B4ACC8FA271B9738D94DB1995FB29F5A177EDFA2BA466BDDAF3E6FEAF56290A4832D605 -864F36BE1C7F8EBA90765BAF0199BEAB111D19E8090FCD3637A7FEA52A277408374AE8AA55DD -C5A07CCEC703BEB716ED1CB483CD28B9E24681C204A37AC6A6B0DFBB9510795C73BC8D310EF9 -15D131A19F447B8E2FFF8452177AAF8A96DDD8F2F081AD831F9B91D700DCF152C8190FBCF1FE -2931E859C99F5FEF903530F7CA97D3BC529C14C432CFEFD05A37549078D5122D1F28A55B62F1 -D84B06EEC6D73B8605CEE62C959CB5E34A580AD5546670C81C883A10AF2722AE64D6D5869030 -DF0F4F66681C58235C803902D1C76F80D2BEE2DC992348B74BB321203363B215313B74F4E5DF -1866CC9CDEFF1461E5A922A28D13763EFDF23DD465674A1632955A180A979515DE90CFBDAD03 -B22AD874A729EB169D544518086ED719E4E614046B5DEE524B3C6CA3FD865EE1AC595E3DCDE2 -2AEE1918C71ACEC41913B5746445962CE2062BDDFD942BE52E19AAC8BEF22DBAAE2A2F96A8B5 -1F7665C50C23EC9F743D98FB995C8A2566A65C60999F0FEC9E2C16A3472CE2059E67EDF8ACA3 -BF995C373A3F47C7BDC5AC1D2BCE2D226B6A77CF5A089C9C864E92730F3BE335A9E5B361B0CE -6A0A41C7C50B4628E2BFA87F5E8F62F611722F928E8007C06B1EB36CA310516CDBDA66630550 -D9796145DA1579FB36CCADCBD6B595131032B2F7EE0AE59D5A7F8EB7730F298AB0538E952323 -B75BABC0D90EA756033A7458B54A091623905EA4CBB39FE7C4DE018B26F0386CE8C47539F975 -41517875D65E31D14F022D36C27FF3F7E7C828BE6B2F202276A7F98579CDC1BC8F5D16DB86BB -015B01692EDD39538CCDC510460EF130498F1CA568F24DC3FB78CAD9D6B084AF04D007FFA6F5 -67535EB0CC1B8749BF7B0BA18715E6E352F9DB9DB653CEB4E4A6B8F40EFFF49C4249AA84CE19 -CDE606651075080E2AD02CB780428F8CD9031FBFF0E902F1E6708705397EE7D03435E27CAC8D -146AAD75D5B95BFA77681272B06F8FC171E0EC4264C6B5B6CFBD69B81F926D1DF62E52281418 -103CDE760EFB4B60091511079DB125EAC8AFE246991C7E3E63C58424F496C600CC5B6E478027 -A505643C7DD13B868DCF5C52045AA005500175B520207B58C8E19E51B9AFA2FEF1628B580F7A -E6D45AC7C2E5486A090FAA2F67CCC7DEFFF92A243D731BCBC89E951758AC56A687DDFE0F18BE -23288DF62FC88685B07E78E9DDB1B6B9EFD92C7648B7170C6588780F0F593F5ACF1258AEC27E -95FF005BE064474C0111E075228F9E0B308CBCAC73226C9FAE8269D1924BD4B7FF837B1C68CA -7A430670D17F8FED5CC904DFACB174A720990C47C11A1FEA3F70B669768CC7ABA360D9A8A7BA -3B0D1C73E94A2433A67D392984CE5C7D3FB70D941FAA0E2F152D322641FFC882E5A50DD9EA7C -7BFBE4B913388C9288611C4EED09FD824B2877684C045D95E4A1273D320713D2AE3C23A4C426 -2711F9DDE8045B19CA62C6385C98764D079E23977D06CBB80E04670AD1ED105AF874D557AC50 -684B83EF25493DB95F657B14F7DE5F4EEECC61E970D04039D418FB4A3EF03BDAE5877FFCF304 -081FCE4495431CAC013FEAA8D96A89CC559DBEC177AFD978E5C8B884B3D25CAA397F424C40FA -C30CC427022C2F1081F290196D8F0EF5E29856506634ADB2EAB1B0F0B100B620EBB19691ACFF -427950B7DC1A0D04254F0B87BD868680A43F5B959ACEF50C236C6047496DFB3BF74CBD2F30FA -6FAF6B3D78A9FEB571AB9EB59EB4108265BB63350FBF08E2B6B2728C69F5A9499112791457E4 -654CB119485641D74924FBAB7DEA0AC56EA0FB49EFC08842C6AB92BD3F909E9179E972E5EC57 -65CB2251591A7CE7E6D1311A52D218912A48D44973209214D3DC17A4FBCB6901E3FCD7AAD699 -145239DA489EF2A081759A0D6B90888EA1D646871C9F6660C22F20716211430AD7CB3E0761A7 -8AC860C00BD93EA1202350B9661CDFF05A9462897D73A4205A0BC34355965A65D4C2E3CCD123 -678A5D1F545EF800BFBAFC2AED9ED19728200CA27BB30CDC829FA5764978D3254E9C00351C97 -CBF9C710B7C7377C2354EF1A00A23D5E825E9619E3A021325FFCE2BEEAEBB407F1C494FA22CD -6A7E497939E2C13F0AD7265E3310580EC8862EBB716968C01036C0C4C5A5C59C26EBDFF1A5EA -E6735DE2C4F5608DFB0FA2B80218BDD43FEA23D8CB573EA0782D73BD8779DE5DC679DF892F8B -462684BDB9434B562D8778CAD47E9A8C4D676B17F3DBA3F3512567E3EBBEF0F981CC1C6365E1 -C1FB561D335789CB74B1CDDC4475440A41F552B9187C731E917E00E7A387DA0E39A2D2B2E9AE -1D0E212674BE28E4FA4E3358AB180960C708FEFE3F8950E614A897355B6A0814915170DD743A -803369A6BDFB48E1700BBEEEF23887A1825EE367BEFE70C9B5080172FB96FBB2030C4C9A3C71 -E90053EE330F654E5D536DC5AA88C7E65ECB97EC771DF473C5405FC09A76526522EA94D79FED -9001282D3EA211DDECAA9065BFAFC0C2D676A818009CD55ABA5679213380DB5A316FE3972951 -ADB395FF679669BF7137D916EC169E0A6B38C6F8FC1B478FC6FBCF5F80EA6BFA49E5DA2E56A7 -5ED20D1C8B2D50F89A46054CEB2B6D8C6B59A7577BDBA0EE5848537B14F98C232AB3A2DB3C15 -33B42FD671B54D5D1E9B61C87DB700D3959BC085C07EF337DA8B99390216D2EB63B46772D463 -7AE2FFBC47DE27869AC2AE409AF4646DCA7B831A531B3FF932830ADCDA918698A24AF67CE0EE -FA61E359AEF096EC131FC77B5D1BECC4A0CB4CE556F4E27DFA5CD088D8C7C41094FBF617365F -27A1B6FE81B2AC09C515B3167691A2BD202A060CC67FA2CEB4483AE3C6458AA1BDB242EA4CA8 -1FBB2077BD63A786B6BF64BBF92E51DD88B3AA5AD22AEAD13289E13C8EC58A664D4ADEDF7B74 -1DFC8C125FC6C3A3668662F30032BD3E67BFC599615FB35E6A51757329C528E5FCDD4F0DB623 -1859FCDC1345F256ED711F633CBDA8FF1007F4CA288F9A7D1EF2D3BDA4CD7292FFE352A0B7ED -DB202DA2785EAA5D9A7D6130D6CEB0514F29528814486B1C02C4793508EF819B53CA52CBE525 -3A32BA7A5868AD26475B7373EAA20209BE4854DD397D680B5A40730B2BFC240FEE57CE60D024 -974B4D09A963BFD7002D8A7DAC75E7842DBAC6C3E634879FCA3EE9A92F5F9C8D42ADCFF0671F -CF89B8B76CCF92BDA5812EE0DDB10986F2180BF5CC5BC9F8E46A7CD2CA6EBA532629600C858F -059F1B5946F9D769EAE6D5668A6BD7910793E1E2E0B8D59701AB081B38359127E7CA301C664D -EC91CA82F1EBCD88CE15E2ACF3626AF80459D05DD4E92354A2775F82B2FAC2AF3E34A4B21FDA -F66E0BA692BE8FF034CF33E8E9975547D2D4E68ECDF6E6230D38CADA4C9F33BD5AE9833EA50C -34BAD1ACD987999F83C54A5497D758F65BF772A0C44725A51131CB2F8F509FEB7A13225B0C66 -71777E5B146A99666D5EC05DCC6DAB2370842925F458430AD173CF8A9569BB2F2DCBB11412B6 -D9A2B07EBD5E928E90BA133269CFD148007CA1F3083CF88F877483AF3004D55EDA3F7BF53345 -35BC604C19CEF53019A6E12178AEBB7EFC51BC9513D3BB549A44FDCF1AFF2068148CA3C31E57 -8865B95F5DF47214228C07168108D222E0E7C2C8A9FC35E8DFE284E16A0D4E9EAFFF5B3D5ABF -7C19DA9590D4707CEE97A4BB744F837BA86D387B2B03D06D3435E62306CABA1FA6B85DD357FE -E4C69AFA35AA94611008F3E2FD32FDEDB8C7FAD7AE0E70DE4FCD983D5BA6719D65E66C84510F -4E2B38DC080845AE4628CF3AB60C57B546E9109F3A52497885FC347E95FCDF30ECC7BA1311AF -44445A4B51D9EAC57FEEC0F77D99A0EB16CF15233009B4CF12D615F9D1DC10F99B309FC34EB3 -1428C96F0780541D9240DB35D825A3A50BCF05F9261B1D4861395950B409B1BB39D846ADE1A0 -5DE2BABEFB71C53258A7940C51BEDDD981C86C7CB297A284A4389B9CC2C0A724596E1E7E72ED -2B70950A98B8F1894201CAD455FF9F09FDEE641C9F45CCFFECBBCCB5C043D090449F05073943 -D5DE9BBB151739BCE2F517B6A0CA7BE84F251BDDAAC05D7D13610D18E352ADF6858BC78823B2 -1131750154441C340B27DAF56C208945105E095FEEA8517C186953AFFC060AFF42BAB27E20A6 -FC1484D669E055535AD0E8F83F9DAC96223E385D81D79CE7341E78B737D65FB1ABF44EAB7540 -A134125AF93194FF5CA6AB0C3EF42EF474BFA9CFF10204D4B5A28FDF4B3529BE86559CD83702 -369300819C50F8F33F37E7985228C69E04B81562CB67B37870CB666228DDCE5231BE170F8CEB -A4408BA5F4860C00ACE66D09D064ECADDF6FC6F7F53FB1943FEA970B785BFA59ED8AE2D66F7D -92202133DED3E1BC06F298E6B07FB697DFFC04F29F58CF1E0D9D5C5F27BC412DB7F6830470C2 -2E1A731A0DB1FE634531F8FE783E6C582151E371275C21783F101A5BD6CA001792647016BD67 -44905C43340FAE604B2BDCE3B0C54B9E8381EE0CF2C095BB154FCDA6111635EA16B885467E82 -9E99537C57F256FFCDF706B456151F385293D19E216EB5201FBDE42C002C28253E15F051E137 -A02C2D87511CA01F11320A7287DDF7F597B7C9DAC840A5F7EAB451A93A04000FF582867F8E33 -9F728626A671066F1E4197F492485F947D9C407D439CB105A5F0438ECD434F9E34D1A3CAC8DA -93E7B923BEF3461F52843AACB89E57716342FD68A9F9FFD840FBB5103A0918E7FA34C0387DFC -0ACE780A4D520B980029F4BED8197C322A12A99EF9E36B19767EF64F95F8EB9A45C86726120F -F7B037A285BD8BFEAB84E3359B7832F3B24CBCF51F4CDCFF2B8CB2DCF9B025140D273D47F1B2 -698E236C6178AB11E2DD0A6BD252F9ACB150F24BACA31056112862BE6301842D0CF3616864D2 -24CB17257C148655C3C84062433A42ED3D7B6E4A5376A7A387DC09109E2DCBF82CD8E1A1CB71 -D237A27962C312FEAF8E402978A66E088ECC81F72AB20DA92186F97409DEDA3BCCAB6F87ECCC -0CDA472ECBEE03076B195589278426233C277D702FC7C2FF26CBE343DED90A0EA5CC28F7E023 -2489CAD01DEBBCD748FF5E0FCF19F137F6BD9F753EF68D4073962A37433CED8BC46412631365 -6E97DCB87191A59957358E2D5E7555DBFE991D77C0C11DDA2EC87370660E93CC3D1C877D77E3 -00DDD85E138E5CABB8DD1F36E03AD47A12A7C341D39174BF6DB831C4858EF776DB71D21244E7 -5B2717A1C8190476555171E3C4D3E8A6F2E9CEB37FDCB233427AC1D9F33984786A0CA0888C09 -73844C950B9B264BE7E167E683EC17F6D9F3C1686028D9566B824EAE90F80966BACF42428007 -9CB563C7EE9096E039AFF2BDDAF902C04E33A33AFBB5DC69514C29D0AAF0CA294CE549E13DE0 -B18393E0C51B650A99C5AB73B171DA23A6A0E574938E3FEF9DA83AC4C686871B8015310B7C39 -F8E67BAD9A0658A502285515EA83442AC764F9E715BD89A08323F181A021C7BB0FABD1BFFB5F -5E2F25CC4AB7882011248327EF627B38E1AA8DABE8F5969B73F84CE822BB61C66302569D77FE -252491DEB52314C5876E78187EFB8028F6C63B5D137057C3F1DF52304E705C0AD792AEC3533A -FD59FF0FB740DDA2B7972C28E1FD59134ADF0EC71439BBCB3987B516FB75CC5A4140978F3F46 -933FE5A46117B9E91ED345AA27F8DBFD47497312DF7DA822DF9C7460784157B30B5C7321295A -1D4B022507FB31A641AB700E81BB9863CD9DF52F8935731674DB599AC7FBCB95E8561C327DCF -BE14E5A6945FADC3954975DF25414ADF7007A4F0571A450B170042D34939A4BF76F8CA3CA75B -EC4B64ECAB37864A2BB8D2B607D4848D073FBD5E06144787070E2C0994D80EC0B8B281A761CF -002365D19CB0A0FB833580A4EA40CDFEFA0C1CD2A5E7919F8EF2BB92FA1D97F2F2FB0D3F0504 -7FEE26E52498B9F4195DA8452CF82AC25211AE317207E76DED493BE5D5F12C7C2E2EAC7444D3 -43F2979CAFF9CD47F2A722CE3F695FB754FA60289F926979947401CA7FBBD699EA6308F39E87 -E8B490CA37F5D40ADFC09E0E20E0E141E6B68F6A054FF84E4C873B606A123435BBD36D6F19EB -50F579648DB3B1BAABA7AE9DD86A0CA21E83719C34EB9974EFE65E86F7BFE2B7AAD88287D34A -48816915A6E62DD483648F1AF4714E430BDFAD5ACE961C361BDE19EF6A17B187D31751FBC138 -5184182EDA613AE2599722B7300184F0BA3FC36DE3377AB191513AD96B242CA3DFB07AF81A26 -5BD4C985F12E9AFF5D4B55E4CC6159D701B3174BDA3AE9A93DE9EFD0606437593FC72E1E510D -05515368AFEF9069AC3F8FD493E88B9F3D0178334E1A552879DD0E42D233B30C4D3AEC2D8BE4 -AAC2CC64CBAE763D9664BED33C6363CA1043D069F49CE32EB5D574E69BAEE1E7F645BDBB7CA9 -C4A760EF44F1ABD1112A5E799CC2AC22D89A95B5862C96EA1243FAA08FD176CA42CFF5E79C92 -F887CEF7D68FAFE0A68BB5FC4CB9C14080E19547E01CF8D8570ED52C6EC5E0ECA2D47600EA33 -BCECC390E1EDD6B365FA0EA04B7F1D3E11BF81F21D032D9514BA6845966B71FC1E9D4D37471F -DFE3EE247E25B20F44A4D12AE769F3B46F652C87ABCF83205F6FDB533ECA047D12BF4C9F7C6C -0E806F1279A72C606CA4C52BB08E98D38708D5943F96AD5E25D4D65560B2EB099E3013716BAF -9093D4300BE22756CB8371B7109D6F43CB205DAEA89E8AFEE774EE173DC666BCA50ED0B8540B -D8A5D864D04E29892B472D4003A9B7CECEDB51F72D0943E1535B8A98D22BB8513DC55F6D9E8E -DB1A17D580B7AF8E2CCEAAD36D13EA6DF16B0DC33728DC602FEDE23BFCB37874540851A3D3CE -D9F42A036BB25FE4648F37BFAF0385D0CF5AC875864EEFAEF8EEB93BD9B8D466287BBA42035B -D4AB37017729CFBB2869CD8E6435E1CEB75CFAF4338E19B6FC673FB6FF412C14EBB08548C067 -519622EDA6FF75D28B8DF92E980B7D900C99790799C57FFBC66D4BEE2876C06D397B36CE726F -A0802C48EC933C61CA0F7DA8B1D66AF8D52932DD79B5458C93908784863EB66D55EA7DE29973 -382E67F7BCBD836998FCB3A1B408DCF52C99F7338761B68CF0BC73327EDBB00B60E26CADFF97 -99CB9384960B5E6B24E28422275784B068A136A7BED61042F43B1478961D68EE111176F6F7AC -A9C1402964F17FA0895CDD7B561C105BC5FAC1FEC7E7E4B4DD1333B3E6250A597F0756C97CF6 -8ABE2C156B24CEDDF9C58FAB5FC2B5467E66E53C0641E4D1BED674149F7CDDEFDF6AD478D072 -1AAF5189A64519F9A73467E22CD4A6585F8D0111E4E5413A3ADB340B0BA95D274D95AA04149A -39718DA91DC7F585B8BC164AD15C047D0512816D5A5BA9E9A8737D017AF929DE4B5B252740E5 -74D3BE7BC3AAC21514A14CF7AD7DCDF5676242E851FEE6A8AC002E863B2CD0CBB69CD8716992 -DC5665FDF80F26412DE3A63A9F508BF415BE674113D665286B1AD88D8283E3E2930803EA4F59 -09BA35ED5BB1266D02F7D7A02742A638E70DCF25B5CE6CF8F993992CEBA07FAABE48B9171574 -2A0CD3D267364E7E36B9028342D2A78284692CD5391653273EA19CA9025F63DA2CB24A9E4A3A -0024DE3715A0A7B25F43139205EFE4795B65812C56B9FCA96A35DA52844DE2BE80360A8A09E2 -A8BA78A093D3709C6AA9385F4A5C705375EF9C87628606EA363B379E24D7C4BB4EABE3484E0E -69222826940F4A03B59B7514315B249D28DD3EB1CCB08CA42159B574657B642BCE2B69CB9536 -9DA47D6AB51D1521BC155B6A1C95650847920275E57F66F06D0F94F42F308F9B2C41BE5619A2 -2E4230F5BA490C493C61E0928F7AA77E4C7C43CC405CCDBEB7E3E00EA1655DBEBDF6A665711A -DAEF12FBF41A4AF22B8408AA6216A460A17A8266BE82423B79C8D00B84608126D10754D562A9 -80C0A825B6665202E4892910075708EDA3620DFFC93BAFBEEB25687779135C4412D0063B799C -DFEE805B1696FE0ED1A7CBE51BBE21F564179AE9E3E0C38671750A3E1B7D8B2D959C22A8AF69 -FD1B1909A7733540E6166D07C5D1DF3B1B8926A8921E0EF3835D669783E475FB1AC4911B1B9A -5288FE0217407AC6A0DDA1E7CB573C0CE652452EE34A75AB45908D40FE06DA4C88963C397E18 -0100C65E81E0108237647030DC4C5D9F05D7C513D2E52AFC918A94E969342ADF0E3CD9A3B028 -B21621C0398795EBE8C4D5BB0772E8008312868F75851E616A1425EC76E67FCA7980A3784BF8 -8042FD98C304F7A024CB56FAB7F39C51770E6E3A871E20D77979421A962933A9208AC3C2A2FD -1DC34EF84BCFA5EB869FC5ADE45A8F8414F0CB65DA858677FA6254E25C808DD1AC952C26650C -6C0BF99E25204C6058996D5F3DD23136378C750834AA6FD4504274F968DBBDC4B358314986AF -F04FF03C1DB465F1EA4268E3EB82FB3A1A8AF13D5AEDA189A51B1B5013048AA4DF599CA47ABB -ED3458566040717143C793AD16016149EBA1134CCBE84F1F9324245E9880077BB7F9F7B5AB00 -5AE77951AB044C91E8BF96B8DDB9729CBD68D9ED09CA955DCADD481F018D33C18577DD082608 -B0243E50EC77A07A950F282B165BFCEE110A9E810E3D49FC7201493D785A31C1CF5B246DDE61 -4B72B74F8396DF70CE8A13FCC25013848F0EEDF37118F24086B9CBA2A3C38B7E950227F237E0 -C8B96139C2099856E34243C112BAA2B912876B0655FADB7C359D5B77560AC9B3066C777020E2 -2441272033FA9939F278A8C1C01B1EA1235642D15A7D21AD12B2BFA0135E8772614656F97EEE -14033B4ADA4273C07158F12A3E1EE0DEF1B155E1329B84B0A9113E0998FE4010CDB4E7D07506 -BB90C98B70DE1041A6FCD1E20CAC6019B61BB10A48C152A73D47EBC0F18205DF0FC3BD112B30 -8DC8B07909FF41612C03431824DDC6B3B5DCB5412108DE01D4FF94182E90DDD5BCEC425D4CAB -10B7E22BCBB6B503B7F017D96C416E82F2FE082C99B3A566F6592CF5A8E3BE2DAA959911258B -387859138F212F8A46F9E1E5E0F8339CB799018519386F9715AC108A0271FD29B237964B9A2A -E930145C65443FE8314E245AD189212D2B99B2C1EEC31BEFEDD067D0F5E5BBCB851F90235BF7 -53C5AA86BA9D42FDB2947AC695FB1BC7F0CDD57B33EE3092F58A73AC36E40D03F12E9CA1E790 -3B171DD247D6B257F20FD057D35386CED1202144F2067B34355A18B0CE6E13A3BEA4DF9EB4F2 -0ED23A20C26B314214128079DC0C795474A3083FB9DE02492746B851CCD59B4B3B349146BEDD -075B045963CF6CBDF68AC5D670BD01E441FB378B191CE45F688560FF2BDFBCBD63677FD669F6 -D01CE1F5EB0E66B0D3D41E7B53CCBB9044ACDBAEC1645F23CC1CFC938378855A40E897E6C446 -8FD46D707FD3DE5C080D4E8E73483126DC8276547F03CC554DFBD4E74CE04056BD8143C1FCB9 -E92E5C5AAC83AA725D7B926BB266D9555C948453FF4C9BA01B01D6A47B831BEBE7FCB23D6144 -9591D237453D8FE0AF43A687DA9797B38B945010561A428A07030A77F14D53537F7002E36A5B -D2C1970C9A89BC930E9D57668144E21A9094B0FF6A7746B399EE169CBC9B279C3A1E22D0E5B2 -B9F7BB64825E18E87799B5C29AA6CE7A82399625EF024A25C1517BBB762D3EDDDFA44B0C8671 -019116D73A45AD874A6A6EEBA06CBAED65D2D740B87A52E065ADCC66093B1C9F32347933A4DD -016D90E737FB2EE97F5290CCBC02AB947AEB7AAC31368DF3883476EFBAF7BD56AFF3685146CE -9F6B39ED164BA74C89B2A92CC8CB8DA6FA9B0F8320D14D31B9A80019D885B801C6621EC87BAB -3740029982782937CC1632482756260BFD1C376B4CD8C458F66B2D4391442E39EEC802798752 -8EB4A1AE28D933874F8952335A46F69F503A130DB343D4502173EDBB5C07B3C24E75C142A9BB -58E9A1B8F66406003264791A920886CCCD284F8545532C8BB2EE2AC1F38CF9A464F82A9B83C5 -9E7EB60B6BBFCF69946960EE85166E7AA6887A0B0D609C62BD18B5EEBF2EA99C2479E86721E6 -AC5D2C21F7A085BCE4B05B73495DA3F4EEC1EED648708B9D6ABD9125E18DE013300522EBE064 -42CA3A6A64DC704A9728A177A10D92648DA7C6DB79F2AE2BEF762FBC440F094235DDAEF16098 -61DFC69D751F3FBA44B3AB190C6117B4034C510A0F12080AB416ADBA6E99FC43018FCE57F5E2 -07C88DE8487961C06BF017B00DB006F2D934621E9C2DB8937D1A4497FCDADF03100695E2B268 -4B37959F25DA6F5F5574FEA68DB87F9DFA958F0047CAF5291B8A955EB69A84C8F73B3748BEF4 -A4B8BEF8C662AB6A3FF26AC405551E8D593AE69B16A6A01B1A88BF2E688171A2820119CC67F3 -DA78A807574D5DA12819DD2ECF57FB8DD790292AB3DC6A4A28FF193DE1BC812E4FAD1B8AA82D -5E582C66D1FBF0FA26C7A19CCCA4E22AD263645D249D31761B70C56375D55A1BE039305291CB -2191EB88075E177427CA254900ADDFAC7763D62706B2CF170DE09CAF55F08D65A2350564B36E -7042C946551F6CE1220706CBAA6101DE0F37640F652572CCAC55D1FE65562583F7A94BA39315 -C6B42657058DB161DA458FE47457F2AEFF5AAAE66CEB1F5B4F74823EB5F4A6E61FE72411225F -7A73AFC0CC6743E918182D115BB3ADC014E0EFCFA697222C609594B9D70723B641648B1F5CF2 -093A9E469A4FC3F33500707C714503572379DD658FD4FB349D749F32426FF13A50C170B6C896 -CFCD76C07B767D8D3E1D4E9E3FC482B9E6A65D8265614C9F6B315A97ABD18F52C815F2A7F2A1 -39EBCE6239F9347CCE9D71DA601D5CC37B8A6F9AB9960516BFA5DEFA76283766C0F301AC4BBE -21B4D2AC51D69946DCB76DCE8A8ACD1780F88386C7F1FABDD2B4DA67D2A1C07F5072BDF95B65 -01026FFA88AD597D4BA66710821498A8E4D9CDFABCD67E954650CBF4FA00CE6C9E0FCD8B8680 -993A112A0346ECEE73075706E46D820EC69D77191124E694359A9745559321268ED80C9C9E9E -EFE4D27F2D2CBEDCAF27E33EF93483C662157BD0449D781462F1BB12B50622DA46BF1591BF76 -80EE5ECCFB716DEDFF2F3E74B5991F2F37BC29E2A98D649328C1922291B5D33DC8CD1FAF071E -43EAEE80115283F1D5B2131F15F7AD7DEE2739B6B3C7B0687432F552034C3F541C7BA9C5EE57 -67230F3F91272CA1502B6BA0668CB3D7BDD82242BC01D51B04F72F0F4AA4D367D219AC55EE74 -64F90484747EB6E2360E825860B8605F6519DBE7F9139C0A7BC559555BC48531349EAC202B7E -7622006B581644D467B44D3C22AC5A166CDFBD9215C2C999D59416A9F512A485F4D452714754 -49257160DADE372BFC397171B66BDB2A483D2EB5A7DF3479AB381B37811C0795B406D97AF1DB -9C998DDA6203A7628ACC4CD8E240E166BD9B6CD66C6D6876B4F475E8159D430527093265ADE6 -A55284AD768EA42365BC5199897D093C44AE66D8FF6FB5D4312A7C943538B29DEA4946B413F1 -F370AAB569B5744AE7523DB08FDD315223E553CED5AE1F92CBF2263803CB35E9C7714DAB6020 -3A74EF3923B880685F17C8C26F319764583D0038EED65AF34F3AF23DAE0D010FB8D8727DA1ED -668B70047002B4BE55962819CF9487C1A5C006FFA009A1999A95B5B8A42D5D01DAE22FA5117A -BBDD667F3278A6961BE45170D392D232A3DA44645AD43285829C9045E8D68C3E87C4C59DAB03 -67671EF859C96168777835BCF3F0E7E952E69BF903630464C967D6946C02056003DEB02293DE -B5A5B1F8E331EA64FDD89858F5D6C610D7610ADB03D2C6113660A589AFAB45DC0B88D8D92C8A -6E49767428BED4A39EDF23FFE561B8DECC065CAE29ACD8E4F6D59B0AF84098EF60ABE204C17F -B356FA77EAC9AA24188D65E5175BE1B76865AE11C41EFC2626079FAFA5A3A100852504771257 -7FB7A0E0E7AD50220BBE11ED73EDB2DD8ED0657EF2B40D064EF0CCAF2EAE53BD71F921B816E2 -51D266765BD97472BB5F465C99F470314DEA782F68416F6BDAF6E53966207DB840B31B3417B9 -305EA7369ECCE7FAA29437FB85DD46F7F0146BF35E825294C791966CDF0102D584659EFBBA9A -5C421697CAB15B0E7C046B3616477D2F6505071F626F2A4241A05A760B7438EFFCF9A118309B -EF7ACAFC9ED9AE17C9530CBD625BEDA6F224BA9BEB51676BDD27B3C5E31628E346BEB371E389 -8299A517D0BEC4D2E8EC7BF3C60A92B9D03F61EEBE3D1CEF65E3584B296D960EC620D38F16FF -21B8A47FD5793E46BF37D52CD51ED5D630E70919C467DC68F770E7308BBA86DD6BA21B58D324 -9F35F35F7D0DEA01ED08059163A56BD219B49F85A98AB56D15AFDAA17CC8537E1E80617E0A03 -8975F8DCABF7F35931C47F1C88490D0D5D47547032C980CDB8E2138F4342F9B84A824427B034 -11F870A4523AE85B1FDB3CB44EAF5F90F0D5D97FB44E55A80C5038876A3EA7ADC28A6582135E -1B40C1C3A2A129A8E45B35E908DBA2240041F1BAADAC7BF241132490919B4C77487233AE5B57 -53834739A9E815D5D11EAC5B0AB9812E14EF97199304E1077D7DE6768B164D4C7C69824B0ED2 -F3480EB9533AF9DDB1625BB80960DECB90D6F03CC69F9C7EB851D2A0228DEBC62A75A53E8475 -2B6A16F81A339F411051432EE95C73BE36312504D8F7F6063E89DF87B75DBD59D9A22DCC4562 -353E1C85991EB845CF18D6655F97AF9ED25EFA6D59106C6EC5A15A88C7EA808B760DBD9A92BB -1BFEB16B19B9ECA8D27D8A8981E42A9A1E6D7BBFF94739B848B25AB2178376435380B123F10E -42ADB56951796D52B0DD6C7C737A001D8E5225535A3A1BEBFBB0FCAE6D278348519ADBC127E0 -77C307BD9783851F31016C4EE8CD83904B04EBD8F68046A7B42B380C240166B996313731CC70 -02F1D8B438DEBAD313CFC779FC0D3DAE2ADA54C86C8ED88EABE82BBE3EB92B64F739FD61B72E -26DAC12C3B3167A056E724646849CD5A72B3A3F0EC7E9DC895886CAD89C904EA911C7FFBE284 -AC094C83F1800D32348B99ED12F13CAC16519BD99BE5BC7C3C525D6B12C8BC41661559ED4BB0 -4D674758513A9F9C9428FF4AE28B0BA54FA5535FBEBB445B78B31C5F8E64F76CF2B685A772E9 -A7F365F5876C8291C0A57FBCDA8FC5F1BB59F714412D42FFD6EDAE1DA5EC873125817BCA7C6A -D9682A9F76B6E25260C54DD1A48B6C6A9B4D7C305DBD2A10B0317E211D0D15F890B14736D31C -1403B55AE5848F96F3A2E133C042D64A3ACB0D10148C3FB3DBDB489FD6C1333C26BF7B6AC17C -4CA3A3791E01B71D3D93D27A187079A4912A37D95BF38BF65B1C565CD588681C31D574577CF5 -388690B6D22BE8609B395D6CD0113C0F70D71AF534B3863425BC8BB074DAF73149BAAF58C9A8 -33466A0FAFFBDA1E79ACF6BCBBAA81C63EA29512AAE4E0B37AC01CB669FC5D41B7506AC85E6C -EA0286281DD2A6881894F20D3DF2FE7D158231B3018A53BAFB43DB9AB4C2A83E6763D942F0A0 -2655DF9B56981FBC96FD2287224AFAC5AA0F4AB4DCD791B8A73A5796075E42C22F155C306444 -6A076D8534FF638C9BB39454606ADB1E28AEB7347080A57BBE840875C682B902A1E510251E69 -BA5F423D890E8F3751C3670BE6D992AE26532E986FEABCC8CE0E29B74B623122E030B2232495 -7F210AB4482DF9F2EDC785BECE54826220442CD98BBE13E261253B873F81871DD5B0726AA09B -EAB26D0ED6AD43E6377441BAFADB3A7B9935CAD5507590613A8A85D1AB2402B785E3480EF489 -FD8CB6EE337D37CBB1B155C17EEA83FBC2BF88C0B3B4AE1935EBD5B82406AF9F2E0E2B1A550A -F6E1D45B84E82E5B7ED8E3C18054B868D4FFCDA8FCA632B898F16D55E9BA5B40B56D1311467B -233310FF0DA2489E6F8F6BF4D8B573CC931E11B13BC09F79666314A054A7769A765F756B650B -7BFADC243714939A6B440FA5C373DDB69F4667B894FD2630700CE76665DF023BB5D88829829A -0F7D8670176B580A4E2C0C1AAD0A47B9E160764BEDD6A34CA8885CEFF994CBC6BA1BE767DE53 -BEC96FFD88F9FA0B9195C1125FD9C7E5E6E835C70198B01506DB42C612AB1EBD3846CD0C9581 -73CED3C188F08FF2AA1CB5078AB61DF54CAC195513C02213BC9CE8456DEA32CCF941253B6D07 -606AE772B96168D3B11036C83874D800722D4C6469A88C3C1D6C4F28BECEBC61A4A1AFABB26D -FCD3F26296120B79EAD45476463902625CF169C43A29F8ECA4F71C868ED959788CB34B040C29 -B9DF2703B6A362A1E8D636FA330BE1E65A33213BDE120A36AAF52152340E385D72AF71BFFC0F -34AFBF117CDE4DBD4820AEF1D453CECAE6281C2EECB2577737C32A59D3686DFCA6B82783C98D -6B310CE5BA9299E974C3FC1E6BFE92A264EEF97B568195357A33576EEAA246F5D8049AC80E6B -10458744110F1219189FF547772B2D4233778D4DBAE48B91DFE1D5DB1F64F919EE809A7DEB2A -916102974FAC2389057267070D9AEBB6FA96F2B080C8032727D751569976841915292AC32F5D -5D0D01132237EF63A759E1F1AE1750EE79272F04AA99B477CCC6A4E5B0F26DB40627B6D27411 -49FC679108C4C13830A2D6031BDF4A630327738BD8E7C6A4C384BD281F612B821F932DA1B9D9 -33E78B6CA50D28E4D7E30F8B4B21ACC7700810121BA0AEF6FA1036E32CDE52D3BCEC0DB12CC6 -5E57DC5239710A97EC0EF9B3D4F43E7B86AA115FCE5AAED1C763C75F8EA3DD559CE7B11ECC4E -5FC5B08B9BC62407D56D366364E28A92FAAAF94BA5CC3ABD26CA66A8CF0EB6D015589BD15517 -4C08787D87BF65D7756BEC6B4DD8114B953C0E603A492C0CE09CFCCAE35F0CE9744491624A3B -52D9DFAAAA6EDB5874280295E49AEB3FDCA1353CC96E91C7E3F8650DBAC8C09540292CBE3C3A -541E2509DF74BAB4E1A6E0817763F09211D67EE2C0AD57277F3F34C881B0DE1419C47787E3D8 -66906BD928C109FF52A7EE898DE2D765ADD468CCF773F36106A52767E88086C29DD10E5AF3D1 -15FD7E969AE3FF46E1EAF11E769B4D31AFA2E0CE40F70E58C4591FF528C76277179C878991A5 -0D493FEAEBB3B3FC830412520027C275CBCE014D342EE66AE0ADBFC02A7D244D6DF51BAC68FF -752717763123D7B8EF5D28D8F610DFD14269C4AF953EC779EFCA0E4D3C546F5A7197BBF93E02 -D5A8A7E7946CC9582AB280C76C7B82701431FE621F84E74F2605BA90F37863D18A99A9783E5A -06B650BFA364AE92884BA554682B3D28937D303DD6DDCB1BE272B237F990AB8BA742527AB65A -C412B79CFB6226DD3F5F84507088E9A61F08A7EB8C89D41730660A26CEF3586CB67B87328AE1 -539F88F886259BAEE5C12C0F9FC2F13B61625EF653DC04F00F0792CA47319553C25476931C76 -0AAC017475AA597D041F19C7B90E3CC98D5B0ABB10C84A9F2B06AB1E16BE3F5B187D8321A0A2 -996DA378E8D21F060AD91F3CA70EDEE4974F23F8E28FA122626DAB1A17F1D9C4720DB34DEECB -1443AFDE17769614B5DC6DE1BA724B221D107B36033CAD041E75B3C07F66FF118EE859616780 -B3998EC0C8AEED2AE569C7D3C7860FDE77459602526E4243C2772DFA647193EF32291F2F3C10 -D5C9549C4745EC3F2CF6D0C964CBA9BE4C0F6E99B2399D9273734F10E681C3EC7333A8CFAD19 -A6C2A20CAEEFE164E1234D63653F8E7D6E0E622E25BADCA106A97AF4D03D462F895E1B25E1B4 -E72C9C647E5DDAAC87779B428635FC9EF884CBD59F074E49A539619AA184B1583D0203C48ABB -2F51CEB0CB18E891B01F466096AC457ED2E7142958717963AFA5FC5CCFE08987F1C93CD9BFB7 -789FAAEE6E3D2CA128DA76974CBF27D844DD91ED448C09D7DE02348DAD997D893D9432A5BEAB -44BFD24E208AA6DE4D25D0722EFDE306421546ECA721DEC04FA8DA48A6848A1E0DD4737A7049 -2E29A30CF89AA9684710E6B25CF6982ED21D5AFFE4D819C7BF4E5F3235778CF3F822C6EF0A00 -8802D869FD3FB3FBF1B0E465114C0B50CFE597A2415E9294D50120D6B93D5CACA6AE72A6C507 -A1501D2EEF33C012498ECC2CF72B26686C8CC5111342B0C454FD98BFF5BD4C077811073FB790 -A352F975500759E2A9786AF87AD6CFB0CE12BA6607C231F88CF11FE0CAB0735C486E18EF752C -EAE14F6C2588F4D34085C0968F3E932FE055284671887CD9481CA18038D28B2261A18690BF30 -4218DCF5C04B4D37C900B01F665CFEFDB2F0CF29AA9FECCCDD4B3A6324E3231A4DD8532686B0 -EC257FC0D2D401882D628BC062CC2B862A89FB30D3F78975D61A0EBE008F529561021836A4E2 -42D58FAFF9CBB537A70F9439B5E82F88C505D288FF899E30F879D73C5CE4241A7BF638095921 -576DF3FA7932D97405E280F36EC2F1759F3829CEF88B5B788F7FB739BCD9D100F4C52B858816 -20D6085866F33A2DE3530E23B4DE8B367D9D76010729C38AD305B29608572CC5966F78D9BFD1 -B991A511BF2AE641F46914F52F2A9A8CA06A942A575A786BF41EE65B2828662CD21C199544E9 -4A31C958128D7D35B7C4477C09CB6AD89D2CCDF8B2D2A4A8DB28DF82DDD0E3A294C07DEF5A79 -E43D49022057B212EBFE376536483E9DB181A390E8C82823FF2E4C6997B37EDA058A6B73158F -D861B9246B48D121C385581C81DFEFF89B99C218FAEE98C3CB54A59CB941BD463F822DAEF99C -FF4694C1B794084F9F0D6D365206D43C86085BAA443773AD6B59C596B3CF2C69803E85A6C7D4 -787077618D99D6B556FDA15F91C6597BA96117192E9377031B76E6BC658D0A59E1BA69A2B5CC -91A8BBC604D8E8ABD4B1F064ADE3ABA43F2C101103A12FE366EDD2A467C58639DCC0AE5E368C -F92C83D35D3B93B407347FF46F04794E05D18990B07596CE506914CEF60AF6D6886E815D0454 -72E61DBE796E2CB6EF315BC33109F898845B1C35D37926E3FA22B4663B3A3283C5F716F419F3 -E0A3EB57EF2E021A33AE9338CABB4102F1DCFA211D2B9287E4490B148265E4452CD1C031C8E4 -3500929C1A1E5704F8229293A552FBD04C38D83EF82830D4C06DC802D96BBD84C4E6C44E2E41 -B8B10AC6ED975B32A2BFC9D4D87BDAE7E8324CF1D4902C2219481F2E2EA39E31B51CE4BC663E -87E674C782317E9DE3F0987F74562788E961465B941D82E920EE975CDA0EA07EB24528906279 -AAD6E1F22031D0BE62C16733D799F905AB089E19FC546DEE0D6FE2A468499D91DC455A2D76E4 -154A8DE1B75B2546D3078CC0CB0494AD4A2DAACA192E5A1E9851CFA2052C85523917A9E9703E -F4341DA63A64ED9EE2827369BFDB6C482049A17001DE299223DDBBCF042F1A546BB8004B35B8 -575DFE2C3D331F2DE653D5965803B7772AEF3CFC930276D64C66D4807256EBAD65648C3F7FDE -96389828DD1C83EC4956578A3926C6BDC4929D5D87809C8B3A65FDB211C5B308DE4B15BA5E1D -2DCC399AF68240F827EE7CE21A3EB6F3333A05E4056D1748D73090F68DAB0EAC4C66D49F2758 -2A74A27394359A8FE631B587FD260974195ACAAF4F3485B1AB8A9DE9A60BB3045CF4511F1141 -42FF5BAB99429785301FC1A161C00AB3E9343A2C13A0D9D742161B5960855154849ED9E13069 -F28C957D290B1544819CC2DDA813C251971351ECA317B02806233FD6007F236464EBB7B451C5 -A927A2E70017304BFCAF69C5EFB4AFE800676BC45AAECE18ED002FB157451ACCBB3FA526E188 -524A5EEC1C7F6A413249BF4DA142C8C2AB169875A1F09E7E75A47FF7772F7398DED9C4A4217C -96AF1258557C0156816A27B4FDCE954E3B4B5A086B54D8BDE413AF4D0D3F2ECF413514763062 -8BD9BA4C9E162FD1147A4B56D2594C4E1C7B1F7BEBC810EB0AFB652236EE327E4C41E7CC59EE -7FF06B48ACE2F003E2A28A601817E87FDF925ECC6E5AFC5F22D9003F3BCEAEBE42DC1319CC51 -4A152B021B3FE20D8B8CD5B6F60A8B95F81F382EFD54C88C496D260ED5B5609EEC78E875288C -C127A456211F8C21E27096E2C08B02E3C78C0813A76334AB82C926279D58F48218885743255C -0927183F90BAAB6133A539AEF66F8843DAEDB1D287156CA5D0146441F499E4F5682E6FD9BF24 -03909CF8517164A2462021A019FF969C6AED234CAEED24940EC88E62227FF2C37E9E024E9731 -73B84705FA61EC1857B7C26AB1BD53C0EEF6D2074AF2ED52B9DD70819F6645E3DDA6D912D434 -767D7B438709E75F8288B0E07A710A5DE59088A867496892497BB408207165BF0DD67240FAF2 -5467BC4885A1857E02B446B8BF29C8D88EDC3B6BA1A1AC7B835FAB3D7B4B3BB31511D67C1A87 -17AABF67B64B7C36D68A58FDC8209831F0335F12894FBCF649E5D207A0FFAF75A70F4594E3E9 -07A5A77FC65F1EDC5CC0D8A5BDFCE808B05CD87C346822093BF37DAA16B985B585D87BDEC265 -8F7A38E8BEE0C3F0540FCA9E3990F45E521D65002AA9750C3D8EDD27B1683B433CA3CE44E610 -F360E0D4F3B1E10BCDDB0712D2F41A3E2D6549E1ACD880E466750758E3A95D588B5D53B5834B -6663B81F376A68FDDD362EAE5DE8D6CAD565F0329E96BB7D8B0C462CEDDD4EAE1E5E9D321A47 -D266CD23753F916A70CEFEEF54469C17D53ABDC58A2E3AFA8EA7BF713161E83A0285BAF8F164 -189B99323E45E8891037A3DD59E7422E5FB3D0EB781DFBF795E22A6353317940AFCA6D7701DD -7AD683AF8D72EB70524042ED928D91214B2F22FD0A3B87C16953E0BCF5F8105466F959FBF032 -39C771DA99C16A09AB1DE670BA6828311F01E4CCE2E76DC4C1A49E97F9825FB5984FCB95214A -4E76850661116819DF0B76C55D22CFC5A088F7BB5B09449786C6F4F5065A5A5A536B582A7EA9 -D5DDC5A95C03B24DD8E8F53A3752268C858E4270787CECB64B4F73486FE5817D0A0D12AC30C2 -03B3C5E3F2FCD8562ACC4172D6DCCAD3660826767D752D0DE2C36AC95564486097ABEE20CB03 -17F8A3A28D15A69534F8C7AD6E0AF43C20AA9F19A95ECCDD3FD32C872F78B320B816BB21C7A0 -6D02F9F2CB4F611E699A0CF90B58266F47590AE53811EEE69E7F7CE2FC8F544A6BBC6D10334F -0577314E4049F12408818E24AC5CF71D6FFEA42CEA3754969D026F978897E3D044CB7E101180 -5398617E1F4F8AFE15ECA1CB7DAF2B0D829F0774FD77615BCCD18B6E9870F76DF41310A86735 -B20150D15CCC5686326957B6CD44FA8C0EC7836F009273C98195350B61C3B705CF214BAC5609 -7E55AAC9C1CBB6A785CFDBA67ED98B47C8001AEB8D096541192348D10A07F04E25480CB3ADF2 -6F571BF82F61B55894784A38214B023DDF032FF11C4E895EA6CCE7E28D247DFEAF5F727B2FEE -7D6601DCED60CAF42E3CBD93BDAA5A995564B19F5D6745BA563C6A399C20EA8A3885A400CABC -8EC401D26741DA2A5E194A08B9EB06F449E7BBB21DD01562E38B995CA4CC1498705924AA4B75 -0BCABD010B9689E07D3300BBA5FAE5CFA1C140EB0F23B29ECAAD60C12F5ADBB1219464658A24 -2D22F62F4799F3AA9289016E2F852E5FDA0D80CDF1328CC28B74D5021E34B1EDA20B7D95FEBB -C9BC4DE6C9A66B7084878CD55CA2B52724CE844FB003B3FA29A6C78D0809E08ACA109E623812 -371529D811FE8DCF234B1139C10675D0FDADDD8E4BC55F58CD0A7F0C2E0AF967D1840ECDAA70 -76430F43E109E2396EB44B18D2CBD2EE3E4E59138F187C193A36B59581017EB41F6F470F798A -C653D98A3F027FB3C0DFC7F653C4B2618C2129FC057646FC154DD34522A373AAE7210BC6B0F6 -906BA732572AA55E0F923D4E37F3F6E86DF9C5167ACA91863E0C0AAD7DCB54445D8F65181584 -64F957AD51352822AF90EE423361427C08599CEC36A25C66B5CEC3CBC94857083DB9A87E24C9 -BFB9FF931ECEEEC92240491F3A4433C9CAD2F759AA681FABC488BF9941B623BBA1894E1E80C9 -E60B0669E21762081754AF64E67DAB39BD6493A086A0D855049200D0DCD3469BD660AE445312 -AF3F982491D432CE9E7F8A8388D6B82E21DD5BADBA07860A412906D9CF6B2021F53E97170D2A -98DD4B235CF6E02E15E4632DA8B2982686C859CD0C0AFF50A91EC59D8DE40FBA59E649B7EAF0 -21C9A1577B99ED111AD3F5268ADF34D21F224733BF4BCD6CAF6A0283088315767709C2F80419 -1736007D82DB10DB5C0354FCD12896A385A0C4D8798883BF0F78DEC7D2985BB06334BE5E4B18 -7B5088C8C2F01D296094C205CD328B332F06CB1D75D6E7DA38FA64F289F025623C4757F788D4 -A8BE8C2DFEBC52AA84C58DF32DF025F2F0CFC845F1E228CCDA11D120D5902D659F57C391C980 -F1301286801532A92F8C27676F8205AC4585D451BC414FFEF8119CFC9E4DF83789C80F498144 -25E222DA5C46B86E23B79E1EAAA87CDC58DA787D08E9D866BFE134885DE57728721D0C1D8775 -833703A00E6CF60254639062BFE87AD332D3A7A0E96E7E76658EC1F63BDBB216A420C195C756 -51DA07618741C137564329911170C41B779BD80C3929F9837BF7896E6CF7B8AA72CE318EC599 -38BAD9AEFD6D4A9982B39AE0DDF9196C19236D6639CEFAAFE61A83EECB4DC34CB16CBBF7A8B0 -AA63A93BCC65D9C3C9A480A3F9F874FD9FF9072B96D25635B98E9B51FEF7B6D41EBB33B02488 -6A2FE371FB32C0EDD78339F45FF83A99D8086A4FEAB6BF8FCC1873513B668D34169DF1C8F9C0 -D84DF470333C52D38D8EA64D2CC512E82417333F5A504E205C9AA3BB190E217B24D8E3E1156C -3ADFEAB88E6FADED7121753FB3BADCEAA52365A83BC5709C00C2C56AA0A1132E79FBE53FD105 -8C039F6F41E138D3F1DC0F83E8CF69F15D3775F9D99BA7D58E1D1DBF3CD0DFC3AC3553DE4F83 -86C423CE446FF364C55E6B6149E3BEAF384D3866D61CC859C37EE64EE955FC91DDCB2EB1BD48 -D414E301DA3EB1FF856DC6F0AF3CDF593FFB1D75B7E6EBAA8DB1DB976DB107CC0DDCEF3B4284 -77C4EA1865BCA1F6AEEC66FD7FFB817BA3F3E5203A489DB5CE0BD375F2961311E52EE0AD5A67 -CF9E8DDFFA80D228F51DD1946BC91FECC6BF99325B7A630C92E6681B83C0D25F6C48DE39D00C -3FAEFD0762420C8BCB3F8DF24AAF1E603D96590A562F0E1E1406E105C00E91D01425D5662D76 -50E5C62B1D57315DFCB030C1ACBC0EFF103EE84C1F86B28969D91ACABCCAA6D73EA0A43E6FC2 -3260314B2B3CF21DC735C83D5F2ADD54E1AB48AB6A476458459B9FAA8AB24C7A0D4257BF9455 -DCC516B2D79BD9003CE291E5EC4114DD01F92FFF6A1F477E92A2178FA3F74C692DD8847F0458 -22412C16385D1D583FC074572EE4C13474E18E6111E1DC10CA2B288BFE32D8695BDCA2BDC3A0 -89D149B5FF43A5899092528AF4FC8CB2C05765803384FBBEB547814072CA5D23FB0C7E13E0EE -506FB05614804C9235E227B68A810C26E52155CA80697497E735E5A2A1EB82CE489F0FF649E1 -420FDC81414A9F8884256117EE33C4DC6D4C9DF5D65AEFE04E4599D250F1CBB12D4C708AB5B6 -E2E4E32593671687254B52D2B5E9EB8391B8ECA5ECFFBA374825FFC8C1539DA1C3FFCDBA287C -2E7CE7229052C5221E96CE242C6FB9252DA51437DBE5B0E249CC7CAEF567B0DEB1CCE0CCB4F1 -5379984DA79980272407D1A34BBC4EC53BDDC2F49070443798AA3FD3EBD20CD799B140951DE2 -A773CB615DB8BAD18927BCE37704DAE151453E24575614894D6C8B1F170F8E0F2580A597FD8D -A8DACF91748E869FB24E8055708319D9934369DF9AE3126730EDACA10788DA4AEAF192694BE7 -EAA6EE75190A891A6D72608255F664CD875EA6EC4BE7BC1F20E477B05B796968683FBD7AE8B6 -C8AC8D17F544269DAEB43889C77F9C1F2C6FCB3ED01D2CCDE6291D2D5B0FD90AEA9E033F3098 -35DD6CDB0D40BBC1DC21C999D85DCAA2DB22D3DA0B72579C472B64FECFC60427CAF54A37626F -84BDFBB642ADC2BA872CAAE3DD3F8CE038FEDB52E9B74B1BA5251AAC4212AC6C2E4F198E7E55 -ADA04899F7D389DA90505C9035522BA00D6D2FFAF853F86A9DDB040B02A24254A5CF4FB87B91 -A6DAD89E3C88ABF88C2FE052A0F8E65E84B5F498EB348F45CBE1BB1A6E0C61B7439EBB86E8A6 -A9A57D7712D841F890ABC9E21938DCB304264B65F9BF5B011339D3E7F36EE0F6A58C04B182FA -C9FE0FA1B6D2A8C2061EA4C61D5BC1DF3F9F9E1318FFAB1232CE2082482D5C59CC42509DE0E2 -053B2266CB1372CB586F2D6E312E462C1DA95403A2D81C0362AC9FF604F1DCD1A8A7C974BE46 -0FE926DB168903582538BC2E1C98B3C1BB4B76759C688390189001CD3E893B92C48FBE6ED099 -35AC6BA6CEC26258048D5FE9D3C2E8597191D5595CC77C9A001A2CD507A7342F6EAC63345FB9 -4488C48EA078AE04FC4EDDA7723D0A7211C470D8A67DA6BDA246210367180C289F32AFC59DB5 -3B92AF282CC7B4805E01A335305FF8799E6F5D31370B81E3BF1E95C87EB2BF1B8B2CC922AB53 -A4D492A503749DCC0D66460AC9E3403B5B2DB2390F9012F94DE3CEAB2B97B6066FCD9A90EBDD -5F9D3858EB85B2187E361551191854D3F30C1480D41D8D4C2A566543F0899045C9CF100E0410 -A547C334A971D632D205BEE44DD8DCA890E42EAD5D411DD561C6FF95462DD3D80B563AF3E4DB -ECC78C5F01C2E39E5FD90FFF170CA1425E199C56D514307AD0E7045966D0AA172E9ABD50687C -2E77D136D55C930A5F6795F26CEDE2FFA3C7FCD86FB28583E23251A02FC8F3FD7F42EF5D6BE6 -D9829E3541E1D4FC806643752AE8F72873420E6583D7123A0ECEBB89B7BBFB5EC661A7354258 -28DB16A93086B66EA21C1F9D73A2C9329EEEE9A04BFA98748B83AD9F1311B346453C7D767415 -A1CE767F96EBA16FE954F7140899FB85863C66D967963173F28ACF22DFA68D845B335AA41B01 -736FD0B8F414B68FDF4BFD0903077852DFDD95096988F673C9485EDFA786A13AA33A23B8514A -FD360295B571042A1CBFDD1EB0A2DB0E33440C8A642F0816EB348AB958CBE45ACF1FDC13F63B -94D92E5823ABBAA87114E507F50E8C83D699EEEF0FD0E044A32DA4F357416B090A4B50F3A356 -E97C9A6B29A27AF683FA99F9857B5CC052BDC6A2EBC56A2E6B4A3288174AC67D658FA67A1C8E -D40F502342D66C47D001FA20F7ADABAECB829A5FCD9CBE1335D6F9B56B5C2C48CD9C770990B0 -C55A7FCD8021E4A3ED14BA64DA93A13C11614D46DE4EAD6E45EDC6EF05F3FD415CD634BBDBE0 -558A912A226DB0D6D44BC1B73C1C1C473C15A44F8FA2DBEB41C31A75013F4563A78630C5056C -DF7B8E9498A551916F7BB2A9DD003C5F148BF9E96274C70BFB86AA7F83EECFAEA9FFD7D5BA9A -A3418CD73FA083C51436C103CE37C0062CADAC1A532AE8740238085A010794D17979380A0207 -6AEE9A89A158D334C1FB8CE7C6CF24F594BEB5AA0DB95C45E1F03624142465ED378B5A81CF08 -A783DA8249C16F678F687154DCE0950E7785D16ED4BF344357F2D1E63B28BBB957C949720CDD -EFE00DDD18ED620C0421D991530354FF5D72E82D442FDC5309B439FFD7C69B0415936A69513C -9A1559A922273A243F909EE375DCE155A13A9ADEE2A117ECA7800000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 - -cleartomark -{restore}if - - -%%EndFont -%%BeginFont: CMSY10 -%!PS-AdobeFont-1.0: CMSY10 003.002 -%%Title: CMSY10 -%Version: 003.002 -%%CreationDate: Mon Jul 13 16:17:00 2009 -%%Creator: David M. Jones -%Copyright: Copyright (c) 1997, 2009 American Mathematical Society -%Copyright: (), with Reserved Font Name CMSY10. -% This Font Software is licensed under the SIL Open Font License, Version 1.1. -% This license is in the accompanying file OFL.txt, and is also -% available with a FAQ at: http://scripts.sil.org/OFL. -%%EndComments - -FontDirectory/CMSY10 known{/CMSY10 findfont dup/UniqueID known{dup -/UniqueID get 5096651 eq exch/FontType get 1 eq and}{pop false}ifelse -{save true}{false}ifelse}{false}ifelse -11 dict begin -/FontType 1 def -/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def -/FontName /CMSY10 def -/FontBBox {-29 -960 1116 775 }readonly def -/UniqueID 5096651 def -/PaintType 0 def -/FontInfo 9 dict dup begin - /version (003.002) readonly def - /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMSY10.) readonly def - /FullName (CMSY10) readonly def - /FamilyName (Computer Modern) readonly def - /Weight (Medium) readonly def - /ItalicAngle -14.04 def - /isFixedPitch false def - /UnderlinePosition -100 def - /UnderlineThickness 50 def -end readonly def -/Encoding 256 array - 0 1 255 { 1 index exch /.notdef put} for -dup 0 /minus put -dup 1 /periodcentered put -dup 2 /multiply put -dup 3 /asteriskmath put -dup 4 /divide put -dup 5 /diamondmath put -dup 6 /plusminus put -dup 7 /minusplus put -dup 8 /circleplus put -dup 9 /circleminus put -dup 10 /circlemultiply put -dup 11 /circledivide put -dup 12 /circledot put -dup 13 /circlecopyrt put -dup 14 /openbullet put -dup 15 /bullet put -dup 16 /equivasymptotic put -dup 17 /equivalence put -dup 18 /reflexsubset put -dup 19 /reflexsuperset put -dup 20 /lessequal put -dup 21 /greaterequal put -dup 22 /precedesequal put -dup 23 /followsequal put -dup 24 /similar put -dup 25 /approxequal put -dup 26 /propersubset put -dup 27 /propersuperset put -dup 28 /lessmuch put -dup 29 /greatermuch put -dup 30 /precedes put -dup 31 /follows put -dup 32 /arrowleft put -dup 33 /arrowright put -dup 34 /arrowup put -dup 35 /arrowdown put -dup 36 /arrowboth put -dup 37 /arrownortheast put -dup 38 /arrowsoutheast put -dup 39 /similarequal put -dup 40 /arrowdblleft put -dup 41 /arrowdblright put -dup 42 /arrowdblup put -dup 43 /arrowdbldown put -dup 44 /arrowdblboth put -dup 45 /arrownorthwest put -dup 46 /arrowsouthwest put -dup 47 /proportional put -dup 48 /prime put -dup 49 /infinity put -dup 50 /element put -dup 51 /owner put -dup 52 /triangle put -dup 53 /triangleinv put -dup 54 /negationslash put -dup 55 /mapsto put -dup 56 /universal put -dup 57 /existential put -dup 58 /logicalnot put -dup 59 /emptyset put -dup 60 /Rfractur put -dup 61 /Ifractur put -dup 62 /latticetop put -dup 63 /perpendicular put -dup 64 /aleph put -dup 65 /A put -dup 66 /B put -dup 67 /C put -dup 68 /D put -dup 69 /E put -dup 70 /F put -dup 71 /G put -dup 72 /H put -dup 73 /I put -dup 74 /J put -dup 75 /K put -dup 76 /L put -dup 77 /M put -dup 78 /N put -dup 79 /O put -dup 80 /P put -dup 81 /Q put -dup 82 /R put -dup 83 /S put -dup 84 /T put -dup 85 /U put -dup 86 /V put -dup 87 /W put -dup 88 /X put -dup 89 /Y put -dup 90 /Z put -dup 91 /union put -dup 92 /intersection put -dup 93 /unionmulti put -dup 94 /logicaland put -dup 95 /logicalor put -dup 96 /turnstileleft put -dup 97 /turnstileright put -dup 98 /floorleft put -dup 99 /floorright put -dup 100 /ceilingleft put -dup 101 /ceilingright put -dup 102 /braceleft put -dup 103 /braceright put -dup 104 /angbracketleft put -dup 105 /angbracketright put -dup 106 /bar put -dup 107 /bardbl put -dup 108 /arrowbothv put -dup 109 /arrowdblbothv put -dup 110 /backslash put -dup 111 /wreathproduct put -dup 112 /radical put -dup 113 /coproduct put -dup 114 /nabla put -dup 115 /integral put -dup 116 /unionsq put -dup 117 /intersectionsq put -dup 118 /subsetsqequal put -dup 119 /supersetsqequal put -dup 120 /section put -dup 121 /dagger put -dup 122 /daggerdbl put -dup 123 /paragraph put -dup 124 /club put -dup 125 /diamond put -dup 126 /heart put -dup 127 /spade put -dup 128 /arrowleft put -dup 160 /space put -dup 161 /minus put -dup 162 /periodcentered put -dup 163 /multiply put -dup 164 /asteriskmath put -dup 165 /divide put -dup 166 /diamondmath put -dup 167 /plusminus put -dup 168 /minusplus put -dup 169 /circleplus put -dup 170 /circleminus put -dup 173 /circlemultiply put -dup 174 /circledivide put -dup 175 /circledot put -dup 176 /circlecopyrt put -dup 177 /openbullet put -dup 178 /bullet put -dup 179 /equivasymptotic put -dup 180 /equivalence put -dup 181 /reflexsubset put -dup 182 /reflexsuperset put -dup 183 /lessequal put -dup 184 /greaterequal put -dup 185 /precedesequal put -dup 186 /followsequal put -dup 187 /similar put -dup 188 /approxequal put -dup 189 /propersubset put -dup 190 /propersuperset put -dup 191 /lessmuch put -dup 192 /greatermuch put -dup 193 /precedes put -dup 194 /follows put -dup 195 /arrowleft put -dup 196 /spade put -readonly def -currentdict end -currentfile eexec - -D9D66F633B846AB284BCF8B0411B772DE5CD06DFE1BE899059C588357426D7A07B684C079A47 -D271426064AD18CB9750D8A986D1D67C1B2AEEF8CE785CC19C81DE96489F740045C5E342F02D -A1C9F9F3C167651E646F1A67CF379789E311EF91511D0F605B045B279357D6FC8537C233E7AE -E6A4FDBE73E75A39EB206D20A6F61021961B748D419EBEEB028B592124E174CA595C108E1272 -5B9875544955CFFD028B698EF742BC8C19F979E35B8E99CADDDDC89CC6C59733F2A24BC3AF36 -AD861319147A4A219ECB92D0D9F6228B51A97C29547000FCC8A581BE543D73F1FED43D08C536 -93138003C01E1D216B185179E1856E2A05AA6C66AABB68B7E440902191AA9D8E4C5FBBDA55F1 -BB6BC679EABA06BE9795DB920A6343CE934B04D75DF2E0C30B8FD2E475FE0D66D4AA65821864 -C7DD6AC9939A04094EEA832EAD33DB7A11EE8D595FB0E543D0E80D31D584B97879B3C7B4A85C -C6358A41342D70AD0B97C14123421FE8A7D131FB0D03900B392FDA0ABAFC25E946D2251F150E -C595E857D17AE424DB76B431366086F377B2A0EEFD3909E3FA35E51886FC318989C1EF20B6F5 -990F1D39C22127F0A47BC8461F3AFDF87D9BDA4B6C1D1CFD7513F1E3C3D393BEF764AA830936 -164EDC2C76977D765F095166FE1D9B0498CAB4AD68621FDC2819CE863510B07FC37ACE71A641 -448CCE3453022A0ED0C1AFE7DB2BEC6006B11F4E993C658453BD190269DC5F091BD05055983A -4F869B7CF38AFF99F9CF1196AFB3C00B6407E57328CFC3AD4DE530C8A30A9817F3AF2438B69B -24996DA4104A4F2CCEC2348B1328EB84438D0DC63B767E37C9913E2AE4DDD669BDEC427E6941 -CACECB52727BB7341D3A13653F92CED2DA9FA9B19F4AE93B067750ABB71F7107581A0015A08D -B715E35A8E90B5D1F2DFBBBC6B3B443D67206C9F6450F124290E7A922BB43EAA3B5F8101EAF9 -D5706E919EFBF5F20FE384A811A7237C2EF5A09851F8525A0602A0B893B297E904E1C0F86249 -13D532C89A18B403E10608D797036362C89987172B317DDE23F6EDA786BD47038866EDCDB5D8 -8371321552F64A292040226FE53BEA879343AB2C35EC288CFAD8E3C60B35C17EBB85FD14C940 -E82B01315DD8E689E39A85742D923303DAA4A5F317F9739CD39573AEB82F0427E898439B389E -89A799DDD5D1C3D9710985772FDDF908A085F1EDA297F11262B7033FF288C863EA05D83EAFF9 -91AB051238690FD2CC1D62B6E981855ACFDE11F70ABDD526549570D1F79892D220D1970C230F -F879D7D614D83100F926E326FA58AA1737ECAE914B7BC4E8886C82C6EEC4CE887D5ABA35F770 -5234CA9E210484CBDE9E2AA55976770849B995914F234F8C41BDB2B5EEB94FABA4172280DAA2 -2EDD049E3D7C4AAAC75CB07AA37040A68EAF76A999AA0FCDF5FDE2D1069704C23306854AFB3F -427990ED447F427D176548605757E516EB657137608B19079BB60BAF2E15677FC54867FA8C35 -55ED7FDCC69C2CA167BA71FC238573DFE2507D4D2F30B41D0A23EE8327107DE96BAA270DC069 -69E2FFF802A3CE59FE411B190E3E49BF143441B89E52AB02A231DF42694BC676046D7B32AA0A -32A15635CEB06D7C80BEE2E20498AB450E01FD9CE71DA883019D1DC48D62B2D955B4FC9A05E9 -FDEA23545DC4C6F8822776F9342A59570875D1E900ECE764F4F238FD24BE7265841BEFFB1EF2 -0BCCEA6628605AFEE122EF3F526E328F21D71A77B03AB841D681287A8C8B361103641481E76E -7E355B6B58F2BD9C5B6914E96355BD593DEF81841ABDDF6B981D11607A819B4000F681F325BA -0FF535194BC5D5F6FED8A75001C410933870DE94A42FBE0E45E16517D1DE74D09F4FCA42F337 -48040E864AB707BD6228BA17D5E0207A37FB9970367521B35AAE1DFEB7761FBA93EABC710662 -5F4E9D620D69DF1B8007693CAAD00A14A9C591E015E60F35FAB1320B108389EE1238E3D6650C -F8A2B1C6FE3BA686CF40DD7B571EAEA169FF87425DA01143B2729DF9BECD5FBA049099FFBC2D -E6DBEB861E3F7675037C544DCD0B386651F8DFD1C51F77E67BEFB8E10C70F7B79CEC56428042 -0CB0C2FE830B6029B7D3F72A20AC1D06C00F08A4FE55AD091769685C475198381375DC1FA044 -557E4B8BA3C5D68AA798FC1D5F949E30C66321DE4A2DCEAB7CF978DE239F12F3F02E5A7B7AEE -B979E6E0D7E7CBC5A64C0F83793572C766DBE35265E0ECD7555340C3056A22F8C3AB991B21AD -1E40756D1D595BB8AB0D5EF411E3A588894A0301FCB3571BC3A74CBF16FB4B2FB13328C87658 -43870BCA4496F97D1EDA1562CAD92498CA1BBEE5C91E16C31DA13F54E9D3D2F33548D84EC7AC -98FD84076F35D951034F4E7E06913CB0F8450B9E3DB89677C7C09F9349ACD01A1E505C421C25 -3963FD765EE21FD08F851B6C6072689D3A803334F733ECE932D84E886D089595590E5890A4C6 -E6BEFE4752BEECF7309741873F15104142E5CC4A4655AD3765400C6A46E0F308DA358E0333B0 -2A4131829707F8AC5E70BE999E9C6F4599EA9DB005082632E1D85FF7860AFEB9A3BC352E10DE -9A0999538AD69BBEF18D3D2E3812C3FFBDA5C099CDC61F67A6851E84CAFFBF891A9794ED8AF9 -CAB270E3C78C951C5420C025FEA34B0D59B4308722D610669E210020A559FD6C6CBF2CEE53D5 -8E46226CA2D01A4A3D39812BA23324385A0B2B0657BCFF9E53F848BFB6F6BB17E379FC7081D4 -3A38FF40C6C42934A356EB7A351198DC63473DD34BCB5D2B911B53130B4E630040459AB8EA37 -E67A5BBEAC5927FCF4D7F63F36F7181075D7BC6FEE9DCBA128E35A567C7D5BA75E5A4D20A629 -6A6879A24B62EDB6985279868FA0E2CC9898A9AFECB7562457661EB7C487E43FB7C03A55219E -414AFCF164DFFA3E323BCE029A86C02B1E71D16411E4DD224FFBC28026265A79651C56A5F510 -7B8C48527D8C8848E1F47C624C7C003DE41A5C53E2D8AD802B251D66E13FA8AB0A31CE8BC14A -2A0652E99865A99CA3B12ED35138209FD48CC20D5EF2973FD7B0D37E5C0BEFDB75A4F09D3B61 -CC725F292220579B50FA5D05F66F66E09B63BDC126457C6631548E7F75681F8E0B19D5DF252E -2BBA45E487AB3F091EE607CA278C5966CFF9CA4E3CD813CE831E9FAD3116D8ABBB6A7B920CA3 -DCF9343BA475886E94BA90A0BBC5BC9974675744C9162DC2C912D8E19BB2F3BDA3F17C76852E -3CEF0BCD9BFBB3BC79922D5219C1CDCFA2EE824B4AEF8BE6F05FFEF8BDAA51F5A52FC13A4A15 -867C01C26240871C37B2FF5253449A02FED980B565D62C6C0D0BC149A356014BBA509727CE1D -F62AF4F28535F5CB1167CC8508089769D07F5171AF79F72721862A0B6CBC59DC79615D5EFE89 -B7FEC51FEFFE1DB869D1D0A329D2967E705A714336F0E75D840B37A12E9203B51049F024520E -6637AF4BAB4DCF50B3682D7BF71F654BC5661922556E45CC7EEFCA196B3569B169DB4E01B5A1 -52F1539A19B3C2B680795BBB04826BDA3C857158029FAC2E0BDE94EC5CDE45E3DCF6C082DBF3 -6D3DD37B135A6F0736E3252FDCE218EB5DB8773E2DAFFD1DAD53671EB3D83A275D011BF5D501 -A22D407AE09257CD21297B617E0443FBDAA297D37F66AC436DB78B410E79A002233A0D7DA619 -CCA9DA4714325A51CB0BBE9EB6CEA352BB1A0A2FF83610B2A17E19480E9285E1570CFCB8EC7E -1D691A72611D336DE5C6626A1D1D2DF363A1D781DBE61235F1D1805CC2A8C670005F84FD4681 -67F8640B12929CF347538B94EB37DA39904D4763D93E757AE2B4C775D98E23BA983E35992A29 -2A04976544EC462CA656E5EC37EE8EE46BF1C3B0B4C912DF05AE1535CC654000B06BCDC95D9C -6B5F36F8FD8A0EB31A02C2B863DEBF8FEDBC57D5F93D2604321FA66070D14FED60441E09999B -90A5FB715347583A35314381554031BCE4E6E73AD3FCBB61ED0D4C015863119C1D945E981AF3 -F38C81EB3A350A70A63EB06119965C90D7EBA669359FCBDFA87C4DB920F8F3D99C73A0DF7E10 -D3C410696D679CBFAE831E3E99FEF6C038F669C58E1EB6F60FF587F5EC561629EF429734CB88 -6AF914AC3E6BC04F21D73F184CA12D7E033B301C181D15101A986BB95132DABEE082A617520C -F95EC9069499A02F073D7DBE41726B51FC05A9348953495B4CDE8D0A8F8C04D07ABEB3BA0076 -3A80F2E3B5804947E690DB3A7B3BC6C48A67F5D45F5C658FECFF28790B709385D24D02FC3B0C -9F9AB04E168BAC78F0837D9BD402C1ABFA84148FD815240108CD511E50FB8E64F20058EE54E4 -ED45181AD9BB777DEE3303C4991EF8EC56B6C278CE63F6C2FF92308A25B9AFDB4585A808AB3F -03D8A15A20FFE399DEE429C959F8B3DFDF81433C41CEAC874479A2C51F9FAEAAD5B7B23230B9 -9523FB256896A85A8C48C057A70DE745F753B4183AAA6F84B4ACAB090F33CC2C31186D1D8A02 -18A74E1987D86B9C3602BA294CD29FEECE4187523CF511FD075692B1C080A5A22281BAAA4EA7 -01D7573D083E2F6EDEA3D49FEAFF2CBF989703E83828E6C7E324558AFB73E3388F0B0E6A97ED -ED5A9553DD33DBBBBAF2174A562AE2B8A4B6E7D13E90FF9B7D650231CBF9EE48DBDB00AEE2E0 -FEBF8D6778F19CBCB8766A0ACC9BCE2659771BFA97CE7BA811A3A6C8CBEE899839E525DA2ECD -F66CD99FCED902AA102D92CD9A279453BA74EF8C0CF32C11A412A05CFA2C187833F885F359DC -EA34EE24E90F7F107A23D9EE269C15A647916F56C32543AD5F81D90C84B8305E5BFEF1F3B356 -CEEB5BAC54AA00DC9C6F03B4AFCF7AA4D31964377525A661FBB743D3996447AFBF76C8FA874B -CBB374B02C538AC626004EC8E1E9030D60C4A097CDAFC143732FB7431008CF28ABEC4529F468 -9720D4EF580676CA855FFEDDC66B7C1DF07DB89EE98C0DB6FAA5551ADE4D674B51E4E3FA4B24 -A3DB5196E01C6CA1DF5D669A3C0FC57DC1F576C2BA14D5DE284614AF3276E3A1159CBF8D4042 -6A60E8C5DD426F1307222DAA8AA78BEE55C27E26013120FB5471CB33CA4FB642B1C386018EE3 -D4424CA411F49CD569CDACB51AB9BB5E66E1E13ED5F8BE0E912BC13C7B23E10C042C33DA1965 -6264D7473B4E0C3DABE14F9F94450D1113C88EEC18CFEE640A6D9A40DA9CCED6EC5E2E9F1B35 -7DA635C3A2C5A23874E496B868FD0260D30F1780878A900B90637A1237C63D83335A3FD4A664 -321C048BF2273F9C4AE3161E1F06E6EA5F3F15CFED43C622E0D7E245EDFB866398DFF2EC9946 -74767B7F3DD853CA356A3607C7BF8F9C6889EB9942ABE469EF88368742FB5C41D06125D2042E -EA414B344AC718FEAEB308302F5607C06852A30CF778D236EC90CA10934C629FD59890176264 -DBF9C1AEB33A6028B9EF09B06BCB182DA58ECCAA4E2E1FBB13868C98CEB61223E9658EBF003A -C67493587A156EFBE73EC88CCDD55C9C10CDFC52F7A7B274D631DBB5D629F41AC8760741953A -6B90C6E9E4D2C79702C59EECDC65D8948317D67808CFBD81953AD32837A42EBBE48F77D6B387 -E272855E54ACD32D3377E19724B3BB370A71C633C3A41A0523FC219EFD5310EB3CB5FC93F0F9 -E6BFB11517E2B901016CE8DD44BFA8590EDEA88F5229FFDB83E401034C826F038D58C19E5470 -4A4E2E36B7738FC6F80DF4D82A5285853C49F9689363392536C3BA25C00B7885E7DC3951E9B5 -D22414C9E9A264954CCCFAF8BCE70CFFD4F726263EBEBB70D52A58B3D6BD029F555A630D687C -7E7103C8B8F2B33EA41732D6FB7FA999CCA0185A13C8BD80A2762AB9919C3E9FC07556BA8C71 -49B4CC5B58DBE84297E3E8D2B34591D9FCAC659C0FE115F34ABA807DD94410AF8F532418382E -F8F7980E1598A97A61926B809FD771B2795C69E6B1F15FF0EED329FB793FA3FAF0580ED07F51 -B0E1BC1401EA5026897990CF09F9750268AF812E89DA551EC14B457836CD38E5C07179A3EE0A -BD3A85C693ACA829A5E492FD4F1BF12725544FBC81FAA2004784DB367184315C68BEE9FBB1D6 -8F91C9D0901BAD3BDA4FFFC203C232276A495EF1B2B82F36FE36716733F0E993B19407744C06 -7324BDD2D5641977B1A118DBB844104397F963CA2E01B7155CB84BB642FC315C028FE4502335 -F761A9DDBEF7ADE1ABE87D31AF848A5285BD8328ED3E8A2A608590DA11968AA8C0D8010329A9 -E172AAC2C7D0061B14EDAD1142FEBD3DDC0ED20023CF06BB146B3F58A6A197DDA1CB2533B236 -FAF2825E8DFE70B79A0938D79664C1D26B4412FD10C76729CB22392E8976960ABED0A03D5FDD -C7C5C2C6221BA1FA08020B88FD9AA0CE8B5FD26D58A679339A2AE6730746B8413B6E05361755 -FBF11FBFA4974CC1AF36136803DB8282A7F5429327B875D0FD222835C7AB82049CBDA6AD1731 -F6D06AD2A20027765CF62F7E4BE9521465A7C3E968DBCF95F2C62EB3829CE6DFE845EE20E8EA -89CA6C46BA14E5A920D8E28A4008C210F747622AE31F5F9036C70FA52BFFF08A4BAB3D5EA2EF -6E8656F89058F4A67933AF30E9A16467D563B2782268E2568868F677650A74F415289CBAC0DE -CDF828485066AC07C011623DE9643DDE39840B1A739B33ED3EC705C13DFB191472987059E501 -7002D278168B5280FA2E26C6D51CA663B384F5CFF4A6232F5F68E185231EEA239904319E180F -91DA98A63B38E16E138D2DCBCFEFA5F3E5AC6FE764A3A9F3EB622117662AFD26A124933CB1E0 -4AAB53923AF5D9DD972536C4904A1602040545A9AD4904D867C1D0AB907D733EDC19EC093391 -3B0EE96E8578527FD3D1204A25982635CCA01A9B101A843F6C373AC4C8E39E39BB13AE6A0EA1 -70B59987488481D38806D429E902801F9CE25EEDEB6012CC9EBA0736820F82C640CD8C7D852D -9EFFE6F769D7FDE1DD628861FF628BC0BA8EF12726F83D7FCE6ED8785DBCE502DD0571A76D88 -B7FAC1E2DB24DB97394937A1EA17031078EE07D00B554B9C892C68B624D3900266E885028724 -3BE44F11F86E95DC00E89C5C47F573C0A7F1CD0CCD26498334C7D37A3AF4457CA805446A7434 -45978D8C3D25FBA2350A878E23DE65D49E9E5F819484DC1B85ED2BDFF923216C101FD8F411C1 -443AD7BCF5E90FDD6BD29899C86EB3ECC82832FE75A59EB3FA696F2696A450E2504A473123A8 -D24956ABEF5ADAF5B3BB57FFA5364214AC0E9E245CCF431DFB8A7A5104BD97D5E5104CA9A057 -74D0FCA9EC0458BD7289794FF19FD00E2D05086336902514F5CF8141307C037E5D2E30B62D1C -8A5A7682BC941A5445D8A17F5670554AD4AE24EB95524CEBF2599D5D00AEDEE2B5537F869A46 -BF093296C77F86ED5658C3DD3AB9C25850624A53F6573A51C7AD9F43EB8320DFA31F7F58E0FD -FA9FF640DB5B55FB5C4E014A8C50E062F13D573C845231F98CDE7414BD440AD4CE9E00FB39BC -93C3D1C8F5FEC652FC28AD9EF814CD964DEFC5813828B0A38AB0E0BE6E3CD60259B8A50F95CB -02EB685DDE048D73DB0460985EB16DA749DE3EE1625182EDC552F104E547D22E62501D9D4EAB -C09531E6457B7AB148FFBAC7927318F8BE99EAE5AC9E6AE81081E236187C2D384A92494DE6BD -1FDCC5A79413609F865C6067EB60B83B1E0D49D2CABF88F252377787534037AEA74A842CF21A -5514F3A89A00EEA33793D63040EC2E1231C04026B8DFE67E0E0B460E3BC6E60F71AB1C05F295 -F617829255BBBAD68D6D7E5AEE12DAD835A693A661AD9923BB65C781B9085640D3A5317C312D -D3C6159C15D8DAA3A592C9F4B4AB648B160E4B3BD2E3DD475573570F5EE110AE5BCA3C499513 -061F202DB76ECBB5316F21F041954B9EFF754A628ECC2B68077CD6072C630CB99421BA3D0D1D -A24CC09B8D42E8ECB52EBAA0E16DE13F0F2E235292A0063ED390D9A8E685160134E931F924D1 -50C3B1E315CCC86F2AC29D02D0D98DEB83DFC7531128E0AB55B5F7D161A44DE0154738DE0656 -66440E46D94CC4AC21C42F362D222A5CEB4FE9FAC0892ABAA08F3A3AB76A22CF73E343BADA5C -89355A821C67A626C0FA6F8742178B9562543607FA648F9FC0971734B99E476E36E9127419F2 -7469DD3BA6A1D82680155B4603D1DD68CCFB5D5B1A90CE7C6B780BBFFE12723ACF7CED4649DC -D6D61DC52FB893305D4CB1D956B4A8393D2ACDF74247F0695C9778D5E104CC29E7E8BDEB1305 -DDAB231758BD41DE987F4A3D2A8FE210CD806CB42F46951A51F24526F4E43FE18A7E1B432652 -01F114F258CB9DF6438D064CD2541FFE07B847C56E66C501758AFDC9C644CC5BF98C6D0D4ADD -4F4245DCD8BEBCD596F363F8469DBDAAF511789619F04BE31FE959F19649D7808F42AAAE56E6 -CE93C9F3B3D1CD7C1A67E0FC85ECADB448869D34331BFA9C9A0840B7FED1DC2B0A40072B5244 -9B01AB2CAA5765C2A969B61BAA43F084DEFF1E8EFA194F6EBE8C1C475F8895C6DDD99CCA8F4D -A57DFD02A3036407671F3DA719E819A2D2678167EA17CE5ECA50FE1EA359A5756746DBE661C9 -F8F4678B762FE87B2DC98AE853E7CF9C2AA1A34F3D560248C5870653D64573587799524583F0 -58E7D5DC9D80E7BC03A0FA66702A5AE4CC9EC25ED4433B437B07FB4D3701683D0CB07D90E29B -8B7A0FABF72D0852ECE8F58BFDC35CA72B36CBB334D21ED27684831DB43F34D54F85F19A2B32 -C72874AA6D9ABF878A6EFD56BB4EF0E10D2F008129872A03334919DFE9F9692D2A75B870A43E -19890D10E13DA69D3F1BD10FDC0A89EE30ED890A8D278D132C8AF80B14208623EAC8354973E5 -A7C2AF274EFFB139976B0C91FA38948F3C1F7E3954D3826F2B19C3799784C139DCB19C2C1ED2 -5C62DE80C876F0DDFD3378A061F8293AB0927797F4453DFACD6D06C0C59E7C923BDFEA427A7C -874543DF1E42039296F0EA569BC8CA6B73A2516E4D495D4894162962428B915A6DF5EE0758D1 -D24AEB9792A9AED3489EA63514087CC8B1844CB75EDDBF3438A7BFD22E650C6B2042D622656F -71950FB8EC5300A295431ADB83C197CA03F4F10B2675E9FF74E546991E322B0AEA38F8400664 -56111A304DB49A08ACE0EC0CC1021F54472EC940A45CBDAFDBD4C90E97A1A652A2E58E328990 -C76E4E28B15743034CBB79308D7436074580F28CD65D3D718CE59451EE17F8FC39653B189901 -773569CA66B7D7450B8D06DE959722198A2B50AA0F0BA5938A826E8DFA88F173EF5BEB7505D3 -78FA6D783DC879DFB2EA9C0E174EA21D07C4D7BBA357FD75E1876E3D11678B9C53D36C276715 -C380C13A4AB0983587C48DA984F47860245417831DB2F80FE35DCCAB55898096DD0A03EE4378 -ADE96457E70BF5A9443F83E01632FDD639AB962B00FE75E7C641596E458F191271A12C8E11E1 -618CFEA573ADE97B5B318005E263F11958124FC005C8F6277FF4B5510555437AEAC5B87E8CAB -6F34E7A590ACE1B457EA3096053E5E12F73265F4387FC8531172CD7E3491D8AAB4243B2039FD -A78228FF7F388428DA2A0487A87CE25E6C415D4B433E69E37B3EDF317D7CD58F1B9CDB64DA74 -E1860BEEB893FA916B4270963BEE2D635F982766BB52217F25734946A5C9EEBBF97D1726D325 -BD427F5899B765CFA186B553A3D1B51F20568E7F0EF264F75BA793CECBA43FDC09F40B850919 -97232288F1486ACF5EC076FCC9E203B96714E10D87BC039A14415DBFD7102C5788142D26B785 -4F777B3399EED12F20A6F43289DABB8C2778AE9DB4838416213ED419A20CD7777E9AF51268EB -BE11CB03C9FDCFDEFE3DD8EE1E8A044DCC343D38087032BCEFD6E7C3117E0BBA4DE53AF851CA -0206B46D5CA8286B738360F58F09EEEEC2F9378BFB3810F0C20977F4C1E87C4A5C309C72BFD7 -E695DD4F88280DD2279DEC328F1CA2D4DC3147EC63E31709864FC0E9D3923A308ED551EFB420 -4E175C1D4009F767E050B011E008B6BC9DA47F98F3ECF7B564828670E0B8B244B0FAD3BA7E48 -C2343002F05824243C7D36551C2AB0F4D5EFFE98B89FA1B0E3051A789484A03CD9C1D859B346 -85806980C474FC28FB16C569E1FD2C0B4B4E6E4E3789D3469225D4CEA3ACC9C9730DB56BA15D -1470E1D1C00FC73096657390F81ACE17A205F86BFDF183A2ED82D15FCC3FDA5E550EF4499619 -BF61173AFB97F698A6B0D8E0CE3517A1301DBBB0D4B2CF504342651D897B23C39865142FD4EF -31285FE25A217E66655F47DE7DF2A43BC3D8EA73DA4732FBF9AB3227E7135ED65F1AAB9DF6DF -84A6138FA963810826C920F04B3FB4CDA20C84B5734DDD661783319389A842728B70F94F3182 -B5ACCC4955402CE2D267B63F17D31F2D327A0EDBE40F844650BDA0F314A70CDDCAEA9B8813AE -C77988B920DEE2051D7ADA7FFFA3E22CE81A34BC8363CD26E849D1B7E38F19A1EA6E9BBF3391 -BAB5B2AABA3B76EFFB965BA9AEC6338996C5315057447B598EA690F4F498AA0051C9DBA13C17 -643E0498B0FAF6989902C1567F3D60301456CE29D86A185025D9BD7DEBAD6F27762D8E089291 -98F5B5A16AE3BACA3359BEA186EA1564DA576F758BC5B19E6863639184EFD399FE805770F0DC -7B694E91E21D5FAD6D2BA00252C94DE00BAF886FBFD50FDAC5D5AD3A7D872BCF54060E35F0DE -643D27FCF7B377DB563A546448617C89017331AEF621D2118EE0FFA0AA96596FEEA3D08FD9E2 -C4ACC78C97231C63D91450E7B5F4836F54B1280AD9DF2CAF300BBCDF6C6D742B96763EC0ED6B -92FE4AC86CEF1D363EBB99D83DE4014DDE8169240F7E612BF7030D3CB845B5BCF348E31740D7 -969932A4786BA759BE5624BACB358E16DD5F37CC8F4F698B7204843787C68E4B370190F45F86 -4205A966EA82E6AF4E94FF0D5D74994F0C0EC831A49DA5AA9C03F091DBFD2771AB565F3729D9 -796C82798B4DB4EFDE0343A7AC5FEC161E94F720A9A45B9558BF291C20C77430E15E0F7AC4CE -F13AE71FE4CE17EEFCA65A076B47A8836A87B82B63E5E901C6AA96E200B0894DF568483D3D18 -C1D1713D6E8772F4EB480F1D53D9903ABD7BE69E4CB68D14820981E97D1CB9A6FFE916559D0F -562FB8023D5A8A2567C682C79B50E2D45AC30DD9A06DB0B3D5F570B73E599D4ED88CE8B40ACE -0216157B0D1E7F8DCA816F2CF6A751AA61D8FB3FB3D3706C983A96E1F49E32245480C9149643 -378AD671B6F071EDB1B689208E424A3D3DC27B117936FDFE209154408F2A2F5145217A6B51F2 -D0F701A918CBDE5C2025EC66258708A32B5B1ECFB9AA7B9F0E4E6C8F82D12B4D6855305F0564 -5046EAEB19F34A586749DEF67568B65D5CA63ABC1713312F0073BC62233709076D93483FF276 -381367F5815479C99FC42DC29E71BA6C718C81B032FFA4CBE02B62AB60ADADCBAD53857C1210 -12812AE32B492ABDEA406E2720BF1DFB11300BB604F0EB98B796F351F8E5F8DC99203E97DF60 -52EF6435BC0C4A5D64BC7EF3894E6AAF7AC169B107255E9230AB11F1EF863979DBA5CF23CDE1 -9D9D2E31C71814D8AC2C52E9EE2F28649EC566A83E0AA69F837B3CB9A60B75E88F94D17AB48B -D18FF221A07A42AD8F1570721D5B4DF95E103D1559CA57015EECFA45574252DD1B6FD6BA3CA4 -BE0CD66B225B9E21BF951E6C930A6D8546E89E3B586C64458D93EE058AB034B47A2331CA2634 -F5E76CCD2DCF6FA03BE411F360AD5B32CE2C70AEF6121E71E36287E49C94C36EB989F22BFDBF -1A6C0F9548FD3D43D2DA96B5A63D96B1F47E966794F248A90A75A433141D4063AA6A5C6C31F5 -DAED142FE6790D59CDBB2A96A40F8DE769B50B8C24783CC872EF2D25579852564EF01DC46471 -B7D1C9C337606D253C2366E1CC6F40D24900BA9A4883CA16BC6FEF6C9595BE3B644682C46B77 -5066BD9D0D83ED7094B47A0E0F373150714B01B8687F3EA1EDAE559C045C461865F4FC9B91A2 -0C80F6B7D915187748169CD14F97E606BDA20ACA6697B886B5D41AD89E243D9958529BB6499F -08097A0F33F68D62233A488ED98E3DD665478FD2944E2AA96A1DDFE6EB82BDCE16733D13335E -9D3780F6AB38778744664A1690D7E1A7681AE3E9C17CF10282806A942F656BF3665968B97F4E -0EA511A856C31856BBF80E501E34133C099F2D1B7F5A905DDE99B6C42B07FAC37D4BB1306845 -8A7E75719B13AE392E49ED85EEE1CCD069E304F08E8DBB0583F2DE2043BBA9FA8A554A019301 -B940BE40BBF57AE7D41620853C171F126EC88DE9AB94FE8BEB9BFF7E846F007B7077456C182D -376340EA99AEE271669ECA77F3441B3ADA0DEEC4701C948D596FEF836B0323921AA1E6D62698 -D07A9A82BE2AA6D7C298811C99920584ADB8BB02B2E6A18886594FBEA7909559DA4F5A82B6AC -36F2610A7D9FDBA9D8FCBB4A0BBE288C82505B0E931EC463B2C2058DC56C2C23D25FBB0078C5 -7E991CCD19917828F19BB18F0A94C5BE07E241C7167E5F982C9F5929B68E32EE748DA544FC54 -5E3CCC85A937D5C7A716A8C455168BCB11237C65F99CEC5DE15224A9B18D8476DE7787125A60 -AE3D43E04691EAE16F743A4F9017E747F37A15E9429C3047D3179C8C9C22E1B3F312F2A3C9E3 -DD774380CC8D736714A35572D7D5D7B596EA30426E475F5624B8B164F3E006CEA3A9D7E2E838 -FFC93863435C95187E4AFC0B20D8FA8A6B8ADE3F00AD6B51CBD28F5CAF043787ED6E277A34A9 -D733CEB8A7BB3A9AA83B274E93FB94FCE07B4430C4EC2641E63E01BD6D28875EE6C1D1F312CD -8929C44CC5D6610E81766143D9B521971118D4AAFF99DE5E8D0B593767BFB635CC3666522CDF -94F7C3405CB5D1395205A3744EDEFC81BB309757C5D0F9FF8D55CDA155BADBEE2F50CD2955E6 -2DB0B60C47045BEB9D7CA5DEA8B849AD6B2B75594CBE7B0C1C0F1C5474CBEDE8BC9383827C6D -F7FA12A16294DFC87C06DE28767888D21E85F8F4F149176DAA0E0175BBA5297E94CF9ACD0A75 -583792155E3D5525075D2302F438A725BC31C226CA1D18FB222E30759E4477428EBB02B72AFE -BB72686AA496BDDBA889667B7943F3E67EE1941F8E884E245249E212D235CB7CB80BBBB410AD -86C79BD9D959767D75052314082A93AA4878F72B2D492E6FE382C902AF1A86C63CA4EF38B2B6 -E3388B9E3A002528486CA8F8D33BE8BECB8A259B4253F199AD19E703EFF16EC695B49DB776CD -ADC9CF3D3C1ADD2F42AD6D1DAD8B21B67D2FBB35B93CCCE96E96CE3D277B86CB996570E03D5C -88335B53709B655E6A94C07CE0A42E46448BA71F4FC26198E61C79BE75EDB4D8B396CCE0932C -B5325A8FDEA587F0D3CEC1523C4BC1EC7F449DE4E80D063A4A4DC5028CA6D11849D17B88D400 -003644F795348009131FD88C8F1B6404B0F157BD7A38BE605BC9187DCBE2E2566B14A1E6B412 -BFC3575554FE79A4D964F858267D589E045C0B44D194D208B611755268B75FCF76C9018D2811 -281D84676BDD52512491BE789E052F1788E21308D91C4FA6729A9589E5099C818F23436F6A5B -7EF2A227BD48E8EB989A3D160592DE794AA7B4DDE82D1FFFB7B54A2DFE662FD75A9928C1AF34 -29EFBAB25557DE5C2D8D172656F0011A25BB7473E1EC56A3E5A329699CC5B1174A187CDCF971 -38C0418256D4A5F3D524F2E8E798F7959DA26B5759266AC85425B0DD0D120CE221E6146DA249 -ADA68BD409EAF66B2E0E2126741BCF23B17EE76BE42A3A98258568EDBD8071037E1441E4C6FF -499F9D122ED505D205D14E4FB96F0F6919F778E70D65CE53689F9703C522CE33D2EAC0D0C6DA -A87BC96332946FA280CA70EDC593E681A9832D3FFB049F1723D03270FBA0CE8D26ABCC4F0952 -98ABE8E584B5C2398D8D40FF035AB309DD09997041C612FD3E919DFF89D942711EAD46AD88B9 -F8F5A7DFA0A5649E5538551BDB66246A74D83A93C223DC9F2C8210D18764A09E12F44C8E00D4 -2FB0EACFD71BCD347FFE5F8BBDF0866913C843CD7250830D9B939D629B85F41317A0CC64F8F9 -326DD88F7B5F1B85F36664EA9A93D94DA23F5AA633F03F8B126B0BBC54BDAFFEF696F87CC146 -3118C6E8EC6119C84507AABF53DFB2962445C0C070C4004BB29788CB7E80402B4F129CD169C8 -A86E2930DC219040750C89C9A98309BD2E0D75C9308B44CEEFB308652EF74A1ABEC02AFFD219 -F4770F90049F29C8860238C89942657BA4344CC9BBA7DC5322897DBB8ED401142136A1277E25 -96B53F9CD171BD41E8F9F95DE0AF97D7DF8CF246072DDF8F79B0D34CFE637ECC6B9DFA669D29 -7395EE6935AA830184F0959147C07FCC7C54EB74DB0D65AFACE372714933968D3915AE3FEE79 -CCF2CEB66BBA763769075C04E9EA8B7766EC65F80C12DE1081236BFBA1F9734C08FE0B84D978 -F3D54D4DCE242FA65B243B42B9A937EDB7F36F1EF973B1A230DCBA8D2B914CAD3E08CA56A769 -7C046E5B35BDDEF0D200200811A8E90BAE2F87FAE2B106BDEB0B6453B0451736A16F2A4A4034 -876428DB735341ED59852D69E92C1B1FD07091EA476E88A666F0BB4FA270B9C05ACDF31DD38D -0EFBA1808C8B8BEA0FCBE0FBF6B2208BE201FF12753CCE6F34B74255DC2AA1DF0366B71211D2 -9DE0262DF6A2B916FD8306C87636A00DA34B3D0272F37D38BAEC2A14F33D6689542A553E4225 -59C1581FD73B8D63CF8FDBED4B3CCF9C39AE83C0DD287D5D239F443DADD96092A4B4A723C341 -BF97FEA378FE624B1AED5AA20101C384C550CB73393E0945449A53EDA528A465CF4FAA3B020A -0E3505FF154995206C0D0E26B29AED1243932D0AF02473667ED86B56875E818A8CDFE7678465 -BCCFEE7818625C7AF987BD430EDAC3F34B78D7BECEDAF0BE4BA4A0412D19585025CBCA4F9583 -65CD8DE8DBB00893E287D1B10DA47BB7CD8E78ECF36940C865099B3D34C8E063D09D22DE91D6 -9D25F0BA34EA859B31B750AEFAF19D26953D100951D0591341E48BEB10BA8D11C44DB5D1EAC8 -BE176BBC0B878B7F945E69CBA526B7E06E64F9330A9F6CB8C49E09E2A26A4A2CF6A0AE69A348 -6245CCFF8AA3F5C72E7111037D3C861116913DE6CCF8C5BB54BFC2243FC85367496BC7457C85 -E81CD556A6E28002805EE1FF1CBA1EA83500CFF41A537A115A57D079FA28FB845E4ACF04A710 -B3A1358C00354BC0AE4911D4940C5D76104BBFC0D68007B4E1E7CE32B2839750F7A5F3B6FE34 -8FBFF32330B3005D165B1359061FD7D6C5BC06F1F77A739E7A4B91A4C66E1E864999292FB070 -BC941A8B28BA052D5A49E492EF4D8B5A61CE23BBB974B183ED33E1C08BE46D0EBD041B955FDE -3B1EF9040FEC841C8ACC4BE3DB3FF3ACED3874214E60E2C3BAC462C080D6DD88CABF15FFECB7 -F73B719C4A7FB00538791B6396FFCEB6D5B67DC19505C5435B37209F5715033B7A75CCA4D38B -8E0B10362025D9E11BDC8311820EBA7280FADBBD5E89AC6F2D1F828EA79F806DC858CA42EB35 -E59DD17697BA463273C6A0B5295D7C58AB9D2A59B770BC6A6DD4D823FD4825B63107C2B0D6CF -0790752541CF2E10FAAC32CCB0F8FE0BBB3027FEAB8B06651526069B04EC3BFD54563BA8F326 -1FE7962FA34A39C845C62E99D60EF0FD729C7948F7306219B339B58EC0D0FF2C9C8872C183BD -1C3E572DE453B2D807271D10715B17BD9E2FC7583F83E03C74A64DF2BE321AE42EE945BF7E74 -B9162F918A8F11D3D923A4CAD3A98BF53A175C3E26086D2499AC567B0B947F7477E7F2243D47 -C889EEA390B3DC7BBCFDED34946FBFC4D184CB34B9332B06953F9DDADD9174592F6BACC37EF4 -7E31ADCC329DAD3055374ED404C4D812D3DEEFAAE96226804980AC01E0870C992608421D995D -C954BE4C58AADF0A60AADC8A27A55E0587B45B4CC45CDEBCF6446F462A14E145AB724C4E5C68 -EF5A86C54F145E43ABCB45FDCC540B718AEC2C33720546ED2A2D08961F01562D05E014652D55 -C9FA7BB7D34A1FECAA7A2C6FFAD2633178F6B2C41E4A01E4A10B7B9895F7C069062D762B1E01 -49E1001DECF0ACFF4D9662BC3C1F2AE1B1B860A84CAD344045D4BA7DE000DE22B035825F66A3 -1AAAAFCAE6A0F981DC393F56EE1D2BCC60DC4FF28F44DCFAB6C95D5AFD4071BF5BF19EFC8A6D -35338F34433DA402F84719F300CF731C4B55DBE7F7354E002D85DCD912D4AABA2B02F6D8083C -B2C8F92C2B92111156713D579E796C41C508536345ABAA5EFCA39D664E1434BB6D0D0CE6A584 -E0316880E16E6C615246103CD1DCAE897A8396FB6C0CBD235613E00BB8CD2B2F9E993B1A01AC -819B9C6F679A28D4338458E21BF10C7C4136E28D2B060F694B9B03C83675A4A616EC53790152 -081A7B4B1750941CB1117BD569A532ED1C49DC49FA3DA0D6BA30E93CB4A71A14B21713DAF82F -D93C9AE4D53A2FE61EA62BC37D38C2500EB7B5A2E4B448992F428D75928AF8ECDA6C9A376B77 -17C1997B35C3D9971D1D49BE9B8E4626E3953751F0C6D784B406153488053EDAB38B3675CE8B -05C030331C974164088629E2A9B878063684853A37F20BFFA7D8310769A43774B51DF1BDFF39 -A620C578D179D3128140453A0BE7AA76F71D106C6A58642F1A6EFD03E5EB12B74E184F1C0FCE -134A886C645E5762BB77C4A03BF0AA7B93E8766611974162F3AB8F9137E7E8A17E6EA75C75D2 -E6FB802DF69EEC93C5E658FFEA205DFAFE8825DB796D4E8E232E00122D57A709A5E0543D01EC -1E2522ED30EF484333C222959B8B98710F958E9C2A57B44237427410329C1A5EFFD3E1E1C125 -3C3A25387B5C165272038F19653F32886488F16AC31F7E576327E606CDF3172614561291E7BA -414FBD1A7558084D9CD408EFB7FF5CC53867B3FC96E6AA9419FE4DD98A9A064CC679D42829C5 -9C96092F13F77D9EA63249762270017E4E31E1DDE29F57ADF2EDAA9106CC1492A8171717AE0E -42A9116C91CAB94B34C904A2811890DF7B52BE40C01846D131C8DFCCFBDF34EC9DCD5F4EE582 -E858F357C3853A48890988859B202CC2A8CF675BF8B3C0434698A4A34D8DB358E42A38220874 -F88022DEC2AFB967CF470CE40919E9F0A17E901806D53760FA81983D4E68471440BF8D1BF07F -CE3AB280E3FCA5AB0DFD9BBB74F39752939B75D62C43A6819A40464189F2A49F12B3D25269B8 -CD1FFDF68C76AC81821CFAA668F2E2C2D5730C0F201DD7102EF066EEF420355806B127CD6B05 -B0C5644072CDF444422DAB1C82D5F1B5C116C758717DD38C1919B099C4DC3E5DE9B6431BFA94 -9FD09B01B723DCEB135960F8138D20C331C41B9BE376DA25F760F46072C799F7148C5C25445C -68F9A531F07CEAA52365A8291001D8B239B96CD6510F71C2F2EFD6DE3A2FD816392BE13F3901 -CF9DD30CE20351FB9C40492B4449C51768A0C34CBDAB175FD07BAABB0B49C935BE2BCE6527AC -AEB677DFD53EFE53C057DD8F4F6235D93DDAD1BBE54D5E7832069D2E9FCFE8AB5C5112F56466 -08168332F691AB0534407FB3A3D36D3C193E2761FD034C689BD35CC7335AD8600E7956003F56 -EDF6EFFAB63291C1796A1A8829D62C16DF8344BAA8605A538C320F8BD41E35480DC6EAD20986 -D1E671D5682C1D77D7C81B2E983B5D2955767A5940EE1FA51159FB5176091BFF203057D993F1 -19C87D5669EC4AA1ED1B1048E0D34A439A10A03E64E6CB5305003832257C5CCC8D53196D0B57 -AC82A5DF7AC9F2FD1528FBA6AC34DE1156D9E0CAD7D3B1E1945A3BC75FD91E0F76085E05B096 -E139136ADF04CAB6F026C46E31C544E28B7D89A3AAE524188657E7F40EF34EF42B7B636A4501 -0E9DA1D4A14B9F673ED233A46A8BBBC9522E5D1514848D51664B78A607390BA9D4354464F3A7 -A91A876C1D893092105557CA13E2A460620B8ED0378C9FA6272196E5F7A2D63AD9732C57D478 -549812AB1EAA2E735FBFE0B200D67F57161517B0B52C10EE134C0696DCD8FA8EE004B3078241 -88469842E260D74758814816410E2BDF23B7E2075FF18723593536C293574E1FAEECCB985B02 -E3FD624FFE0380E631C362985DE944030F9F13427AD35E7B87705EE761BD396B92A5DCC06D56 -262D495994890218F117C3024A813C943A0608EC03CAE0D496B557F748C14696CE391A140DD5 -E5248A1BE58A1764076ED3A5361A2563BB123C4831DFA952D6D8872A0E3C07142BC794682A94 -A66E70430643C4096C71F6A634E2BAB8AEED329AC08110B690CED40CB37230AE9012BE2CB6A6 -EDA2E2022A7CA16771A5BD2B6FA659BB47CC2C427E4C209D01815F0A907B096085B54752383D -C6FB049A147E6DC9D82DBB89C34EB50108D4FECA7DC223792292E64801443F7AED22E123077A -A52FAE9AD49AFD8A3F330CA78AE6B088BB8681790A357B46E786602BBE3A84B0781433C9BD1A -A098943D50743BE32FBCC9A35FE81AB29525983D6C93AD2EB0C66A0D75EF0F85F8A97CA5E54F -A5EFD9E23870C17DC543E87AEAB16A677B846E1F5954924C60650F03410B4C7EE099415B6021 -E5C8F33E81FAEA57B6DD3ABB45BE7DBCF2D23CEB44965C34E40EB67EA8C504BE900FDED57E44 -9A6BBA2C55821FB261537036030831D23EAFE00B3113AB3EC777DFCC357BAAFFFD655461888A -A8144629E39F83E169384685C1691927FF889A67B43B7F84689138CEB06C6AEF4402B5693BE0 -466994665CECF34F5AD656CA098B215754794A6E567CB590C2F01795B2931BAB6F73C777BCBE -505D1CCE87026CE3DE41152FBCC4E1470F7361FE50843D0FDB2E7209B2CCDFC5C7D910BF3276 -AD395F46DA6E532343104C4BFFEC3B627F89BBA72BCF7088A0AD564C05261670DFE2B1E28E8C -61519CFBF5937AD54B37A7B13B7770C93097364F5F8596BA3BF5E047170CF9F686D18ABFB7C2 -4B0B22750D6AB28A1F47EFB0E06BAED2948EAEC810E2D11CFA7451BB33A2FA90FAEE1954081C -CA93A3E18749CFA50A2F7553AA63000A2A19FE92AD0C0D4974FF743D3341185F8916C783A466 -C270C689389C9767289B1A00D11226AB3E1E90E9097588E0C14ED8EDBBF717202E5C5DAE9931 -2B1E384878E4B6991D10DCE9252A8B8F0B2F2DDEAEF92A87299B2BD39FD1488A57CDC77FE147 -0395DA0D4D7DE8E29A10D7A07849C78F003A3F2989D1EDFA7CA70B0F89D904A5DCCDBC292BE1 -A0E5A35C2F6F5BDAA9EFA07D38E68959DE0A5C01FE0E5FF7BDFA46B4D15F050ECE607563BE52 -B3104DAB7805B4F27231CFC0A7396605CC2A6D439C360903086CD1112E671F74E4E7FD80200C -A5CBC9EC087FC2C95FA7529713E43235767E29035D0BDAE76C4D4BC0AD18EBE12ADC7990666D -08EAF98545737FBE26F11EE1B42A52B170F37B21896E33209A9BA4A03285A55C6F98FA3B9649 -28F83D7830A938FEC7B60F454BB143507407D3B12B6CD2094DD9AA7397810EB21CA7E47CC304 -55314428F5EB009C9156A296A12796AEC951B5B6A8E2A188D3F3C5C03EE1146A1F94DF8E661F -8524B619433DE3AC98B13DBE39135BBA43C0832944FBDB106D0696CF114DFAD04E5DD7B6A7C5 -2D9184144977194BD24CF2788A56EBF5F3C992C60B2F4A7B8A697FABAC56C4384434F10C980F -1DDB5B79DED34985E2D6344A1BC036CD50DBBDB8BB002F96A887036B8BA9E81893DBA05AFD50 -C3006ABD5A74826AC085C6F85168E098CCC5F17F36381746FC37C6352FDE3D8A503014602EE2 -78DAC70A16ED96CDE5BBACBA2A97232F71400B8B4CFD4C44183345F3165C4D8470AF9709806C -87AC87CFCF6BB1CE6366F63E0C646161E5EFE934CC215DE13B2E9A93802FC3C1AAABD6582A0C -B2FBA304FB5E50514B8D2FE55BE1545D034F207A96DF61AE7EAB1C06D26AF493E51B479B3BA7 -8E16C7FED79A9EC38E1C4988BDA8A37692F39E6B944EE7AFD329F827AE8E58D7D6452811A0AC -50F3ED5F6DC055C7CA7D52FE746F23EA6BF02DB28342E173BBEC647E38EFDCE4458295F5509C -BA247A76EA82685EABE8846E7B07ABAD72305F06A987178098D19A37AAAB4D53988C69FD7513 -014E2DCD9A36C102A7F49A22561A32F94D7790A7D463D6649A7F0D395627CB2AD50445A602D0 -F6C2E1BB13ECF338A50385A0454EAD42B3441CDB836B6CEF0817D7FE9438187045BACD849EF3 -348EA859E77C0DE75175E1DE97F2766C2D25F4CA2B2F441E9FE8F8AE95F9D8CA736AA5AD7A8A -8D4CB90371268FE41A623BFEDAB04FEBAFFBF6FA61DD1A3EC255774CD58C927AC41F24769F20 -D43D0CE013D51A7434981177121A77547C298ABCFBF0AE83864E0A5F052CEC01B7D39919FFFB -3DC81930B423003348BA7143FF58F6908803695D70A122081A77BA8F797CC85E39D8ABF419AF -8732472EF2972137AE3206787149550BFCE8393B261B2AAF73417473B467464FCC848329BC3E -A5CAFF477862FC35D35BEFE5850153733D88BBA52DD1EED6DAE87A1EC09877415776657443DD -2C454B3D8ABB71762F0D636963A855BE25CB52D6B621C09E21A47D0DED25E92F52370DEA91CC -4E3F118C082DEE635443582C57D7151B934AB5975C9D8691D0FE281AEED8C196B06F787DD75C -F6A04BF63A3C9B88A36103B18CCDDCBCB213F270E4282C3B40E7B91AA535B6C58B239CD7DE24 -F832026ACF4D87EDC83AAB433D03AA633B094AB62F2BA8C0265B9E39D1072282C0242B570661 -4C34C2F2DD37287C73515BCD77BB2A4A428839F7683C4D8C83324A8157D56B82FF518FC3D903 -F85DB1676EB71352E46F1B40651CCCF53F7D92200778A2F3B8414AF97779BA01E1DDE594A9C5 -E45A1A3B5BE613790E9126723B95E3EA265E6A6956904DB6610F997C77E02F719EED9BC40AE7 -66C37DFDC2581A1D6C625DFE94146E39DC435983D415EEEE370D951F660A0C8A34AD303DA80E -D66258D4466A647935580E86D723D923CD3BBE150B558AA4930CB9EEB4A4D2A57B4F087473A2 -9BB3760B23AE615B10B58412CE6BA4632B91B6D775C06679AE08382F0934BB6B0D4CEE4F5B98 -ACC6D7D5461C6A9E827A11603DA185E451C905843733031422218539B01CE7807986B866F659 -761DB98CB8942BA1959AB973380394F70392ADB687FE92886D628B5873055CFF4F1052DCA10A -B657A147188F1E42B180685B723331D8CC35273E114F324D53C9DEE784F46026DA726BD29388 -3D6BDB60D4A2198E89C21816E3E711D4FDD2C1A9D675A71BC6095F529F8625E815F82ECFC865 -29A5AF692E8ABC76B940D19D24D6B96500E36FC662D5937F64C1711C1D265A2C90DD56ACF6D7 -CC33C7633DB37BFD437F5C3D78973E61A257C379FA1095807579EE2514AE15AF5B341B43882F -3FE19236A59E92651EC64961E62E4FFB7A8F800B8B3C525E718C7E7ED92EA07C04FFE9FE5CA0 -59D2FB05B95800EFC84C3A7C6B816D821225FBA9D3E39AC8052D9F37828218A221A031DDABEC -62BF03601183E68C83E8BE713A2C59E9306E8F42180ABFA2EF83BF2DE707FC35B46FB6A6ED72 -8B569CC07BD680CA25661E2F9FD89428BDCE458E96578F725D210B60AF26DDAAFB382BC8E311 -69D5BC5BFE7D48E92958EEA2823E3DA5E3EEE7A6AD644F003915B922465FDF858389AE6A88CF -7924DCBB96EFD85F12478B4C3D330BC6C5FC412091F3C54C9F1A6BE17973C025F48342D566C9 -6220E66D95CB04477C054759A3C6DEB3FAB5B3F650ACC6DC1A57ED0B9859C9256C6BF4901C68 -382FDB25AACD47DE9DF59366236C3C4BBE5D50465DBAF139F4F49E2D6E5CBA9F47D558BAC06D -FB98131BBFE8FEE681D5E4A737021E4B175B1CB96ED0B5B011BCD639C9756F8C30AFADBA5162 -A48D8F5090C469A8E1EFF83E5613497C8DD7BD7B593CE3440C46027F0561B187F75F9C3B0C82 -9923310354E5A903FA9846C199A405960AC0731188C863B460B51FBC12B407F50D4026AAEBC1 -D21474A0915AB42B368AF2BAF658902D3B28E143C6B2B1E1B414BB399EF6A39B5ACB2EAF438C -C0B38FB44F1CA9B4174926B585BF5E287F8B42758ABE9476A9E4D8B9B9D3418014B2D1A2850C -62D4732D2024D4262FCC42EAAADA3B90CA39E03674AC19443C5B5C496C4A83324F822692B823 -BE229F901AB0CC2AF98C43B0E13179D6931F1AA28D8DC2B1CF6C4A0959602A84E5AB1D0575DF -DF70E347A9A6389EA7736D353D0E5259A7686B50887883B3C9AC232B0DBA3DEA5C6B59D5307B -205F1A7D5ED917CFB3A2E9E66080BFE5B36BA012D05C73F6864C1E59D05CA076147DADF784EF -F55390B412F4BA448F93520F2D41BBC3CD52514D8C12BDCC69D4C5015B3462B2330046828399 -029F6279A8109034B2D8A5AFCCF1B0CF20378A411863148DFE9DF7B5BA6219FEA021D9AC10B2 -42FC55A829B050EE40C7C8213C175F882CF68F8EDFA80CB1A6BE053B339A70B1CC92191D15C2 -D3E16ECD5F145AEAFDB83CCE8849508A70C3FDA228949070E9103A881697FCCF2AAF69A213B6 -808F27694433ABCCAF502A8B0B6F075F7459DEECABFB827F760C8240D88EF529F4284B4CBAB9 -4E8651BD94516005F72268C13B962867EF8B7939E1B077243478F83951F995B8C697508E9734 -7E5EC96FFD7459C17C9C7C5FBE3BA5CF15EC0DD2872A60C31736F9C3948371B10A903DF62A9F -C360933746F20809C2C0917302FE0A397F6682F51CEEB509F4A070546C7422DF6F421B801D06 -B3CB6F7D08DEE3E53A21DA5B416678170769ED91E27C34410BCEBE8FFFD94B2D6B22E88FD377 -DC10BA223C7F305C6D7CDBCDA24CA5B2D8A0B83D6399ECEE47BE4421A95E6BAFEB7E539DA63D -CF328E55F4239EDAFE7FE722BC6B2B2C4FD89623023C8EE3AD682DB456968332CFE7145C7392 -F609B0E6B5DB4F3E5692F3B80E0705CC5E712507D6B85E3372A54911336ADC17B2835EB4E470 -7AB102FC2B765A2EF0E0EAF396B27C04DC6141E769475009F5784AF8498DFC70E93F5FE96EA4 -364B3585DF27FE165C25689C8CF8D8ACF3BB4705B462BEFF2559A4E43B7A1118E611CC64BBA0 -4F2AC87903880F8FE94B2AD27C1DB989E9F369DA73BFDA3A2BD6E6BA5ED03C132505E22B7DEC -FA770050D6A29C09E32A3F610B71E5C66A96414FE18030F79C652D565184723771C3F7E67560 -27C68BB8F0362023C22B90B1A6B742D3D65297885AE7226F7AAA60309FA0E089F30731E30F4C -3675D4A2C9AA15CC3F8F54AFC4EFC6BDAB1CFDD3FA6C62C58E1D46F0F8495178A7265AB6B96E -E7EF51CFF1A24EC5223166239F892BEB7B2E5848B5D074BE03EC888937AC362D9E0EBC51B9D6 -9C33C1BC3CBB2ED97CEFFB0BB6CA48B78611F8077532370F71A783E414ADE9C2A8E2120BD984 -9F52872C65A4EBFF544E2DA3F27477A13457495F422DCABD8C42B84E3E2D28CE9B8ACE50456C -0D67D7BB4702A51D123A9290D7531611EDD7D022F6903D6B3F9574C3536C6BAFB54B00702F9D -C1EBD4BE5C2E8B113F92081C3A7F2EF92E04F0A53E67C1A0DF27DD65BD8C80F200260AAA9D67 -A78A646F069850C56DE92BE2FC4FFCE96F0A4192E7E8BFF17413F1E0C01FB92EF970477B44F0 -13B3C0ADDD856EF6E7D9DDFB2A88692760DE7CE43BA60528EE4CE3E656839F74812BD758F890 -1F3E0E26782815F286F01E88ECB90D2B95B5A1183836D6A998B2EF57E9986185A91C33A0A35C -AE7D925B8DA8917535F1B602CF8A5D6B18825021B240BA96623696A8F6E668C5D233D537591F -5877AB2CCB7E954C057010706EE26901D64B2FBA1DAD9CF2A0E7AC704A96A3C4F5D6CB95F78D -A11ED9F98D36BE48693EAE30CD1BFE3CDFC47FB46ABAE7D67267DDDF0A319EF85C918FCAF6E6 -574B5621218D04FE1864F754E22DAE2000EE135B975E3630064078A7DFE087EC81B86357008F -097310D45F7C10A253A90D713A790F6B0B3DD6FACFA99AA1513ABFCFB01FD363F18142750A33 -FF283543377E73D1C006D8BEAFEF1BEA4EC8C56B46EB5FD06B85EA234EE5CB844765C229F084 -DF8D3BCA608C34742BC6A8362F5A7994AB11D85600C5BAB2729B89DFE0E3B47ABF8D02367B53 -9C27FC772838D806C991C6B03B9C6AF106771F6F7458F6AFA4A3DBCABD7F9E45FEC22A681F3E -039A4713CA7D9BA1E091CF7244F0DA2E53EA1323E03050E61C72DDF8C651F4C340B35FA341B8 -8276A741900C9DFCC0F7FF866CFB348FABBEBCAB187B3F8AAE2022574F287324CF915AB8B230 -1848989E807567C6BEA29D6ACB9CD80D6B54928F8CA4303C6B519D7E3E97EE92EC9FFC4AFFE4 -D842C979DC923479B21136AD12D8DA127CFB12053E0B293A35D0152D0721EA96D7872BA4CE44 -7978BE1CDCB2FDAC0D12FF26396AE0266D47C2170A444580EFBF5791E1490A978A15141526FB -1C76272DE761167C467178F10BD9B949A4452AD1BE2E79A2290C356ACCBD0556A3E68A88EAAC -42F166C263F37A2749827B09F77C5BDBB813C7EE62F625B68BFBF3F265B1D11D7E19CA1E1D31 -BD6CE1CB12371C2C60F2F8D56D0C122034C2E28995FD0CB0473FCD2893892219BCC799A233DE -1809EEC627FDE75A66C7475BC5780D7F3B1330E496075913B369CA8C50918736BC3119228D93 -E2C2316AC4418AD32B741665F81FE667D1697D8F59594882424F012228DB557D6FDBC99798BD -81C40D89C583BA80DE51DE3A458D350BFFBE35472B1571F78D590216C812EECA285C6AB4059A -3636B823D0F0BC2D931E7E90E2B620374099A43B8C93DCD6AC9EC986E84A2F6923C49C92E016 -F58C540F1AD4B2AF8D878D5921C725FDA3485C058D9FA1CA672411EFF31EDE22BAF340B62D5A -6941B848EA9F56C651DC64D5193631E88C6A70BB78606A9B7EC9CE354EB410A5861206179B65 -3211263CB49D512B20EF237BCDE0BB8F89A2013D08AD7F74EB690986E6097062902B4C523B34 -E798A7029289C6C43DE12718C6E8ED13A4B987C44A1FB25B69E121BB352BD938695E64981DCD -DBB99DE0A98D21385A29792D9792949B385CC952F2E7C874A75D43D331091B4894C176A42EB0 -A8F3D2C56AA95D4FD8813BD56F0F41BA0C769516BCCB1FA3284A9E973C5414300596927D6850 -9592E224172ECDF8E90D9962BC4227356932574D951F6A0EEEFAEFAF771A5BC8A07480C424A5 -5BC53CFFBB6E4EDE0F6F8FB506B5824086D8CBD0C3A1C20D067A111DEE113523BB7C690D3DC9 -1F230DF7073250C779D6D3B1EAC04469D32C787E9425C27D9CED3F514C5962854D8BE3BD9B08 -99685D1648E46A1484A7D6B820CF8382034E05EE3BE3E5C41220B68C7F0D7DE690B1A7F2A047 -2D11C34CFF62F3D355FB2E237738773DC16420876A539E9A04CF5CB2389DCFD604F258317573 -E5F46265BB4D9096639345B76EBCD2E0290721342ADF75FF56FFC00D302DCD7576CF0112C9F0 -E30E4943C811081D1B54853777B7BA249E7084F6C5D7CF3C6146F4A3F88364DAA093FA30D248 -133DC41005E66C1B56C191E6858ECDA5D3D8663635D796AD9D3548087D8753BCABE34D2CCB70 -66CF23EFE18967509D4F3F6DC3318F7827C01AD194F25B20DC2A9D08E4878DC6C4A42902CE15 -D2DF0E91D477DCBB5BA0D22EDB471F077E1B8A04F4111EEA04E1B29203839C19610C14B2FEDC -C1D6DAB356BE0FE566CBE184082F89E7C2C70EAF2A5123064A8118919A4655C4E6BC7E5353AA -FB4397FE2980588A678A2B7545D1CD3EF800A64512A1DF23A23249344278150A02804E54670B -FB4402A5FD402415598E1470196FC70F90D43DFB83F9844A2B91D914BFEE9164BDCF1F88117F -1337CE78CFA07C5D37F5F4CDD35CE6C8653CF2073699FC5CF848978E173C27B545ED35DE88D3 -BD45F85782E5E51A9C2213C2DB65ACDB8E74274F7BA880A1DA7205FAB07E86A650499B8B2595 -9C1DF4443A003F2616A68266C7BA1636767FDDBF3F50D432628E5219BDE4658DDAC984EADB62 -F9DB863571E4DA74D24024C2491725427509469F5325E424B48993707071EC3C45006F1986E8 -79D359606027510D5383E2178D016B402A18B914247E0095F9B7F905ED97386780B1120D3909 -93ABAB3D18A36A2EB9BB8BAC2F084602F8BAD9CB754FEC8F3F4A263F48263C270EC619E73C0D -1E9178CFF739670A55CE6B1FC8EC2DB82795AFEB2135444801378862BB1FE4188C1C027840EB -A39E431A4D33F1DB6657F1DA89D2CF31C9BFC649A36C1DA8B28E993B4EA3B00742522FAFE528 -9F1C736D6BA6DC95EBCA8DD45AE1FA4053411CE9AC5F768E3F20E2E0B799173B5D0B1FC393EA -7C86D8D75B511BA49B22ABCCFC43D9EB05B92B773728F9D2C14F0ACF1BE7C551FC2B8AD0258A -B348D9972B1939F9907B6135BE10B0D5FBFAF7BF857711DD5874C904544E12D6598A30E426D4 -BD5ADA82F18AA5A78E5AF27E29C2B084A59DD2FD8DFC883B28296FEE1E9C143723667CAA3469 -730DE83F2766A0B7F67025E941E600A3CF54BBD06D7AEBD95B80A6F05BC1D4FFE50E7FED9351 -FA364B282B4A7D252F17C2C6FD50BE1A7DE88EC69E9436F8BB2BEEB6070668CE0A55AF51AF2E -9AB88DC3809EFD3BCBFA40778054EDCE6EE4D5E890187C340D22A7BDAA66B7D1FBA0C82F1B31 -596699294BA2DFB4CA8DD08BB5B1DAFD4CB81049C186A7E91CA85BF3CD725084CABE2AD14BDA -65B947C107F93D8FBBC10A0243F9CA18B9868D6BB70963922B30D619BAFE6F632023C56281AF -A39376F838EE378AD1C6D7296DF4AE79E0D932B0DC027164EF2AA38CD543FB81DA48D884F056 -3F53A28B59A2A9A0546805F55A60B2DAAE5CA90988508F9C8E5109FE3F6C8BF8B72A5E8D9286 -E673216696D80FBDE4CD2AFF31A575DD7BD6FC45556E300127317DD0DF074B25594EE07DDBF4 -31F5E3D2468F761DB02A85ECED800FACEA52139A1740D8891405121316E4D300D5F5B683811A -978EEF289D0F78D1CC00C25C539D2E828095A5C55F010771F694EAAF8E5C895204ACB45C902F -047DA19D518978528C07387828A977A9A845A06A2EE18C1EACE655C3E6F730AABC43E04C939F -73EEBBFF7B1BAB91912D3DA93E464AABFDA0335DC7037015AC17215D7D0A02AA486C3C7BEA98 -16C11F027B577341BCFA10063C7AB567122B837AD85C5F47631FD54D82313CC04E1B2233F92E -E844A6DC0197E797A936CDD10C58BB35C138C7C5F84181A9EF67246E815D4B355877564A07F7 -4E8C240EFFD757DE474BEFD4C66A3D50CBA5B7DB5F78EDF2A17766B38F5D8AB4B90DA090F75F -AC311E44A27AC3A5466BC6BE3AFA08B8B2EB31D998A45108A77B7ADE2E95835103DED4FC26DC -3CA70F5A29D76292475876563C5E5B7E12B2DBAD372FAD8EC7E6BCEF4FCC7E01469E39AB46C5 -B3CFCDFA60DD550776B9748AA5581957F2D884063FE1920790EADCA2BF8387FC9232766D8FE7 -2BBA9B326445813052B28D1B974F6221346D1B60C35678A23B9CEF0B87522233FE575C1C49F5 -F0606D764B02B5EA88BBC38EF7B7D96B41EBE26DE64B5DBB69ADF3BC2CB73A046B20C3A2CA1F -7500D1F82362AAE79EF98A1AE987976CFADF7B041F82FB582B5FC6BFCD69187B839CB2BC18FC -AC9881DB194A8282BF236A8A1A1FE37C4C5C96505705B2D29BB01B70313C82C49D5162011DBA -746019D131ED8B94E200E1EB2A72E59A57C7D9584B46991514F2FBAD9045BBBFF0756B638177 -676AB0A4A717CA9CCB454D2E157D90A15688AA1D4B3FE43CD6F25034BEE45158EC8EC94D8363 -027E0D4E18D13C6A77D9D97B0E55AD6B2DCC0E7B77D6A942F7BFB3F26328ACDAE1D4DEDE1C6E -8310540CA38E0D4A9BD2C9DB61DA674716F3BCAFC3A43BF5E63B4E723CF453241009E1E8853D -F56FB8B61E969461A479F4EB860AA7B3DCA2276623A688177C0E3F4D35E6BA3802973CD5C15A -F7BB6FD30A4F630D30D6D9F976291DBBA055A7E2A665434921AC00F211147BA146D78CC9E00D -2E1956C15A95AA4DCAA66DC6A73ACADF828385FDF1CB047C6A1D64ABC5575458EFF7A8B0518F -459BC0CCEA2F5BE6C17C6B2FF5D9D6671CDB4D1EBCDCEDE311EBDBC46FFE4CE5925174FB6867 -BD8782FBB5DF89A3E09B0E3A1351CCEDF95B919F5089793F82FEB57BC6A103F8CE6EB84AF506 -C4ADD60A88295B0ACEAFEA03D417664F98C420B2FABE59DD85837D7F54804C5AA04ACB78C21F -6338989335200E5723EBE2B61F1AFE37374BD1281DB67EBB38CD7B6FF4955087D91DB6E50527 -AC35D289DE10863B9CAF2F18A24B497A2E837B92E18DCB298E95A553152A94A0A0DA2A2589B8 -6FB2A1FF9D9CA0E8482F2ED922A1805C7A6502C1EC0CE0DE7DD93D9D030CDC1425763008F573 -5AAFD3BEBABEA1EF6E61E081513C5955F787650D381A05D0B806D2FB47314B962E717C3828DE -D4653BDDDA36DFE2131AA67583BD95D70872D1912C8635C5D188B42DD25F15E56FD0B7C8DA49 -0157007B6D8241A3FFA3C8E3B105E233F6FA1FA4360A56E4A6D1DE7DBF15F9A9B298154129D4 -3FA9B8208C40A519569B4C783B2787848930DDA9C566C58933F3BBA994BAD9C573D0130F818C -AFEEF9EF6B21CC05DA1CE1392F8F29D5550385D2F784B65705ED82A1ED75EF46537F3D336E91 -FE5FA1843B843403DE927FA880CDAC0EECAF031D05E7F293D0644AFE6233583230A0D831E228 -5B10CB3F25FB8CB7019A6C0BF054A5FA3A97CB6AB89FDD920E51B3DD8ACBC965A193FF0F09DA -90C0791C747422188DA90E2E9FDFCE7CEA252CFAFAF2616559FE7886C2E5C2B399F01A92BF00 -8101111551D8495869B29620BEBF01FD091CBF8124DF8F433ED7E11F61FB6D3EFBB8338C8C9A -9AD85FEBEB8157F33E399CFB06A07487A28EA0946285667BE432D44195192F0CAB2460E5228F -0273629B9718A09656AD687B0B097919147AB0040A8882E5DF6067AFCEE5ED0DF2591493F01D -EB106D2BFB242F822A4E478A3C587BDA9E3F521898D0DD3020C30C999721A4E2DDAA72FF600E -D8481E7AD89C5E0A3A548442A5E117C8005BFB8216EDBB85DC1206320D903855BCFE52EE480B -F2514761D5E70ACD27EC36294B8EE83166769B1B7911D4C6A6E768A82BA9C6BB114FF803C532 -590B1BF90E91FED98B2CF78378AE408D5013731547C548EBD62BEEADC32BB41796BC13C2A230 -0827C5F717D4AC53B31DF3E1824AD1C5D4638DA0DE14B1D9ADBCDACA45CD024F14272CF3FF7B -F297EC6BBAA06566F599882F42C14AFEFBCBE9F0F0296A9FAFCC0DD04E24AB71118EEE1F8051 -755D3F9A1ADE015374D5A6C7473AA23189A35C39CEE4022C5746C57DBA2208289A117DAF48DB -979BA835DBA59E4F5378B00283F49A82B5212EE30CE2BB037F628B9CCDD05E9F405AAD364F76 -32B5C0338638B678F7FF9611C9E7AA59A50E28F5CE3582550453AF5B383798E03BC755A85C31 -EFE9FF7F7A855103B16FCCA4168A7D47D0B0792BC52DEB56AB0C88F1E4C1B86C8382B5E825F1 -D020D74229B25E40B774A1CF6EE02A298447C2E5DA5B4801416E3A27542EE0583BFF6B2CE90D -A6DA91B6814D58460015E6A6F6DDD3A804725E38C4E6E8A5D810075DC614FAF54DE04C99CB09 -2E37B4FEC55AF9177B2D32A570F18D0E5FC556E3BFDB7C7EF95003EB25C1803FCF40D95D2762 -DB4BA428DAD4F874F08E2852DFE9A9D22EDCB8A8A81AEB4DB000100694A0775C326877E3BA84 -03732C640B82FF394717EFD48403550A7000A982A4E4B53BF01C0FB6A3F7756EFA462EFA06E5 -61A72C7FFB24B3DEE827AC35E1EB302CDE6776285946826EDACFC9FA595C7D722DE059A6FF17 -B6A1774FB4556398881108D239491FA4AD855237A8547AA55906DBE482F5B97979C885BB65E3 -2E38949052E2FD9E714D7219161DA94ECDBFC591BD6EF0A58C4CF5CB13C19453811FFB81D44F -D2CD81997F3EA89B8F0EE379861EE1C7D18667E62A7E363CDD956B8E7CA9BD85794B154EC5EE -A9D3FDB960E272178043F4F0DA163FADFB2AFA9BEA23BA6E3BFC1A2ED7CCBF014B96E58BA2E0 -7CC58C3384B38FC8E4CD78732117650C8F7ED5762587BC1663BD46AD4589E17B933EFD553184 -391BA1D14881EDD73019485D880E1B1094E720B30E51EC5365E86C36CF2B0524C88477C0D71E -2C05E8B0388BACAD8BC1FD6633B41A18A53CDCAA86D2A7DF1B0B10326B398E208EEDDB3EBE80 -516091FB7C46EFF8F08EC4A72DD8A3FCAC779895C14622B141348C7695BD2B861E32B31F3E71 -A2DF12B0A7ADB96EC0C8C47386FB906C34603043EE4EFEACB7B610AFDAA4F19147532B2193DE -D1979B71C9D125590E78C5172C527988DEDE67341E306538CD6A837011130DB62DA87BBA4211 -CC87F6815914AB0187B0B947D50FDE31627486245829E1EA5A94599F0E6ED0DB7853ADAE95D7 -E6CD82542A14941C207F9794C9224E8DFCD434DEED1E43E7C0B86CAF70F7AE673305894BEB0A -33A840C497D3424B097D1065C57D9CACA4361C2FEAD7193B6CEFC1A10F26B2DF305155D9A392 -5C360505C29C40074379B291CD8623556257266BAAD68E219FD9F24305F961E5D6017978173A -5EB177E17057DB577FDCF63FB0D2D45BE7D63F0BC205E7D2F4C1749CC9DEB24E730F1B7420A7 -79639237756CA9516170EEA07E607EB3D5627467F65F5DB49CD43FC6D4A3AB2EAD3DF6703EBE -613ECDFDF64B7C9B29B08AEB582DDA25F944167D367F5997B8023564617C517873FFED86CCD7 -09565DBF690F9FC22E38A7E619718C9CE7C399995BB01478EB3AB496F1D7E107AFE627C77CC2 -944DB98EE2919BE57C144480400FE53970403F4F0DFCF69CA68235F001309841CAA6444EBDE8 -B8ED0A1B049C62E57B97FF8E2307573BDAAB8913D220B68A8D551E2E6653F6B14FEBF8755440 -47401AB366A900A58DA1C37BA66252EF1874B39974F0E31086BB20961D139AC7D57B8F2F8E8E -D659F0A68CEC598C35237B820A482D624DD5C628339946A0DC68A8BFC2E660E07F11916E951A -C82CE45D7E4D31D2FA5F3D5CD821F7300EBB8B56B7E4A52DCF641A5B267A53DE0BD022B3F928 -C1AEDC8AD3F3AFF20EC5E4A5ADE35A5F1E322014A2FB9D19F7D42F994C1E4BEA452E25A090E5 -9297B10EFAF537A2D584D86CF900F986C2EB13960B80BC8D133D2E46820112AD9921499FCA16 -17DC84AAAEEC403DDCAB8837EB69A24C88407437FC156535A834C29FC06DEE695FE1734DCE89 -1BEFD813868AC2ED37A09A9C29BE143C052AE238DA802C5B931D325EB4007FA1554AF96DE6A3 -82CCF9CD405368B30209D8F4AF855716F0A78378D1A4152D10A5E3198D5791FC1C7D4AE6BCD1 -5BAEBBEE5360CF1D783EC7B15B43F93C20DC09B6A016BB511BC0DB4C4FDC1FF44289447DA34C -C530FCC1988BDE9210505CE07196B5F22FFC400D951537978387DF257562833FE7E76CDD05DA -C3FD37F218433AAD9C2EDD90FDF346B92754FDA1EB1644C8975F1AC271D75F442810C163A2B5 -2781B72BAF22D21AD77D41F78325CA190CBBEF27173BA0221486ACAF4935D2966FC34E61D4E9 -5A15D40B8060546F99D6402371A4616476AB9843C67F15B2E0C79AFF014A8D115C521FE27572 -B9FB39E0C057108866F8067981691466E13F68AC8D6C35F90A347B510F0A30DE09B98DF4129F -9EC2435B7F9E625909B305053B21ACC8B7D03CAC2B42BE5E87D6EE4392E8027E45383E9BD62B -F105FAF9A30E0C91AB1F3C55CB51995D7CDB27B8940402B67B9BB29D1B5955C8333863F71323 -8637A42A3B8A56BE9B3B8C21D9CC04E187BEAFEDA56F3135DC4CF13867EDC44BB2537065FBCF -6CC5B4676E3A7D0331B6360C72291A3D9E9584A0E42412D24CD652D2D0A61AE1FADBACC27580 -0438531823E31383F3BF75AD2C77A79D87C68E63FB3ABEE97D7C3B89DF29214E613B82E968AF -04E4A016398FDEC55F3F5DCFF53EE4C8F50A979F947A9489D878B7BC6C6D8E3D8BA220F44247 -1FBBDBBF20F6B542A766B85B36274C7F59232E86B89BC54912B667887F864FE14B655D600674 -E70C7A8F81AD2FB92701D3848E1D4BCBC8D0F4E317AE99D6F23437401E00F7A45E3BA8A10CDA -37ACA54571F16A4FA9BA469F71AC1395D37641E983A846CF7DE08EAF91EAF1B50CB9A9EADBAD -6D726799F70B7D8E9930CA0F60B5E95AD74DE84B9CF0CBA8B5767C12B62B875E9F96CD0AC537 -256214C9363A94BC091FC0E8B45FAC9F1547C9A28E29F846ED8821530AB5898D9FDF0A58D506 -E2C8BB70F640BEB821AD493B2F544ACA73584CFABE675D45706E9EF6CF8ECE867C1DB79E770E -0E000F30E64661469581DB39DA9CCF9783865BF646CFDD575ED5E5B0D3F398665D076EA19BF8 -80C343253B8A86FA250964D45DA4DA056ACE37D73EC9D9C53C0E61CE96DA8C6C12BC3A3BBC40 -DD4B95791E43A262BABE81E60126076C7A349AFCAB912C0D0D3B3771AED94F5BA90B9964B745 -3BC7B628AA4380072438A6E7AC7C40D5C5AF2E072EB864B30FEBF7970E83574F351FB8F10695 -AD664643659538E62266525677BFDB9E59003D79855AAB92E752087F138E79C5D22C6977043F -ABEDEE2F241A0C785C847BCF9B48FB6D1C552D60072FDED1D537277517EFA945669B16CA32B8 -B2D8B483268DDCB6F00A3F43DD96F684DF21106792AB1D000F9AD65E85CF1B91467E3D4470F5 -B40541F693226A1ECBF8467D6FAB8C8A99D26760643057CC977B92FD2EE52BE5152AA39961BC -2170D23B90BC6D79BB3E13BE3362E81033A0AB5F9902343B0E4254F5CEEEA9D3BD90B8F3D177 -8F2CC8C5B1EACC65A2C46A49FB3DBCAB07A8F9A07F4F67A147E960CE643DA0FB451EE8E30158 -A2083F4A2521B509383BCFC964ECDEB9680F1D4B5C54114F84027CEA064FBD53A7F1BA318526 -BC4A33889FE55712D7496B4617C3FED3ED5357A0B4DB17D162DF05A701256087375FD9674440 -36F376A799CD28EF5ABF726E61AE444182661DB46DA17B995CCDAE0B2123D1CC163D2DDF3A42 -DBCFD951BCB9AE709F963201D58E5C8CE701BDF2C6111CEB83F6D7C2E7C7013151698312E6D2 -FF1617DCE6F2475F6C21BBC83F086E67C53E76735C82E3DECA8EC7458C445748C24E279A6090 -CF78BC19ABAFC68854EE2D5EC2E6F4DAEBF37E6948E1ECABA286078E8CEE9FFED59F0937A4E6 -2D1B0833A7CDC16516CEB2CEF150AD08AF75951EBA8FC01823BEAA232327089B990039991E31 -38451BB972B559AC5012419C2D6362C16A540F6A40B44CC12D35943BA077995048FE5F2B81D7 -D85D1EA1E84672E43E333325289E7888FF3C9C7E653056E71201649B70834FB1DAA67F3D01C2 -C8D07B5F6308E61C076D9F7DCDF604D652AEA56D5D507A4D727831A5FE3948DA472163C621F8 -3C8B2878FD8B96ABCE28B3CD83C9C2E08A8421AF5247CA6E9A8828C78D09206F8052201F970D -485DA2158B6E81C24834B31A8F4F2AECFB89982727DAAB34F2A1CD8016F595C71DD19A7963CD -92395FFCCF248599118754CD8414548B97DF18B9CFFD49163A67DF17ACE0614B218333983C37 -16B3AF677EC99E7BAB09B216B9A1527ACCDD137F50E0D37ED634910BA15CF0498EF8B6DE3F1B -846EDB13E22CB55456FB5B9322B395470B5F37C014D6572A3C3FF10B212880AFAC767395BB33 -25E3C551A21AF572BBFBB118C9594A5ACC23C0B3523E43FA6AD72B28A37A82FAAB983600CFF6 -2CCB4A04915DE391EB5A7183FF5E4F3E4D58A960E49A2B9D2374EC6DA504E854A1B68F5C2925 -AF5F847801E7D2FA2C1286EA5F055FB7D222A615371D19D33E26BD537E0E323063D01C1FFE63 -190D1D4DB6D5F45298CED7DA97F1CE60819906BDDBFBC5B679D2580CB50218F0E3AE8FD6D06F -DAF8710426A32461123C450B147A01080873511DA44E95DE756BE0E6157176AB43BDE5A9E745 -9135E063DCD5A0A6F7779CE73E09A2902A2F040CDD62E0B033A7B3D48A1CC38C69D219FC44E8 -0D61C1DDC6E3F553168913980ED2FF3858BE6C382C5BFD1E823430588DE1749F7C21081437A1 -91A54DB980D028AD30D6DEBCA652341C0F6E4B211FE3247FCA193380155C9513386FEE05B3F8 -3363DF205D7D109503011CC569F5E62F44BA7D1ECE2DD4533F1BF4157FB346D8BF38A0748588 -741764FC50E7ED40E7B58AEDEE8CE96D7F09FAE151C18C006330B3B6FF12D152AE50D23C197F -461DEA3E4BF5EAF6C3EF700FCCBDF738AF1B2E4C28B1A514BC19A3AA5ADEC18046D75092C2EA -9DC70C6D98D2EC25CD0235253480FEADBF416032296995F5E94982A874EE09527348E31EF84F -21224F5F0531F85486A77FEDBCC60539A27AF619CAAB23E2699758529B157C7F2BAA75123A1C -5AF2F39A29C41B7E77AD0BB0D1290501CDF0555595583D04E447E75013915C459468E8378E5B -6146AD5451ACC0E902EAC8ED877DA0E6BE58ED89BEF43A870E1C155F08F8CF2998B494E5D887 -A1E0A7085CC19177EBEFC6206D3726AA1148E9306F364B724AF7D5263BACFF0E977D399CCB58 -EC653CF81F125989EC81F2224A363847709E6AB95FEFEF0537161D36CE2F1F36143F0DD6B139 -9B31C02EFCEBD869359560BDE67B215FC88CF307AE81F39D793446C3F3A92F81E41E4C4AC627 -0ED0A7D4C69702FB4C6CACA87CB1542DC76DD3D728D7FF25DBF1D491F121B27AA35B39296D48 -E85D7EAE16452BFF1D9B4E211E9FBED567C9842D1F1503EC75777B01F4FEDB4F199CAFE1C559 -47B17D087ABDCF0E7B5835AF7C82C3D9A4ADC368D78A2B1D46B2337C0CFC7A9F8FD3A87C6830 -0C2B1EEAF6EA1ED0DF35F0D4DD92C01F76E50B84C879EE4D11510A0211C19A77E2680E4EB2E9 -73513EB8B7764551FF139A1028267CFB2406333BF1C9D13286C7EA902E2756216EB1435189D3 -FC0954CCFC970440775F6D106561EC34B2750ACDE5303D25DA50E29FCA7E3AD78322ED26ACFE -F57ACC243E7648BB168C9925CB5B57E2EBC48F0E8604974215FD03958EE95CA8F25172CC8C99 -92B0EE94AF3E37F74D87C93ED14D96C15FFA788246AD6E73BCE2E8242405C5FBD3D01F8AB617 -332AF525DD448BA8327A6260D2D2A3813318F46D7620EF1F9AC539ACBDA49DF39E17B8303A22 -B575E5E8B8FFEAD8B7DDBDA7F9C29230279ACEE05D25704E230C837C09F5BF61FBA7AFEC8B44 -8C76A83E80DEF396194BD7CE0274C3346023DF99302687CF624704788151F8FED792463BDC87 -12EA74DA79710DAF5E059D1A72BFE36D6E1D688785DAAE4CC1E5D6167133E2BE54AA567D6149 -AC06139EB1F705C29157F8F5A6431CE5B57374BF68C1D56373B87114722EAE982F7E9837C52D -FD5BBD681311B1B68A8E78050A96BD14A374280F541778778F76532D7F9F7FA31F41AE5C8193 -D4009E8EF285F96F4668797A0A36A92D6C7004AB9E8D374CABF4CA99D072807AB7A2A6F137B7 -A1B1DCA1995138F432F18C488D20E4C296823E72122101ED3FCF9D5AD16C4A911A951E59F2E1 -ECB61B6A2C9844E571862EAC09A7902979F9E670AB5A47E4107FAFC36B0B25C85B109C98847F -7811960D3E0408A9DFB48C21C2E4F540F314C6225067F0B9AE3F507D637C3F053EA154529952 -C9EE790AEFABD75C9A0FF001A021A39C58906DFF73952AAE28816D999955C446EE5B82455E4D -AC525656AB41A857139192B72057289F02DD6E2342F3DE1E5DEBECC81532E106BD06AE97DB72 -E8F335C7FD6335A7B9647D38B8314B28742A8D6CFD6C037913CA3F10B77B0133C67C9130CA87 -32FFF366EF89D3F57C223C28CB622AC956453071B85C068D131E981EDBB9BEA673D4B9797EA0 -5BFA78F7FBBFD715353FAC5000055BB7AB0E5F8822941361225B119E4F20F108A4A2D77420BF -BFD8DB7A3C2E053C4925BFF27CFCDEF223E73DD02D55F6ED833791AB74A79DE8D16FA1F6E56C -B5E1284B1E2414DEB7AA020B4ED8AE44BF6EE6E433E82A0D6123D871DCB14DB07F4631E69F1A -70E3DC7A61E434C0468FAB02381732BEB2B958A6AACBB31CC5347F1968A863CC6C17626009B1 -47C3F7D2764F46F89476032526FD0B1D884981AF0DC2708D1A7C7BB6548EDA90D7C67BD93B25 -6A36D4975BC9C9E774D93D2D123DB84023AF2EFA22F7F8923582D4434A6AFDC98D831BBBE89F -107E2BF6F2E8BFB314C20FD8660FA50EF01BC8489812048F8AD827BB0C0A2E63435C488DEAA1 -78DDB75D4D76B60CF95D07DE85F5764B5484F377788F49ADD2545A8B8BB81CB11E52B1964577 -E3B34F3505B2ADE76BE512A0EBCDED10D35DDB2510B372AB71CA71ADC085701C7A5AC7F47FF2 -EC11912EC6EF53A8DF4E2F823A66479594E70E14D78B2BE6108AF4D077650C5FE03CCB17AC04 -952977F668B887C9C426C2EDE490E28211D8034C7226D128A1B91B20631F505143AB1537B371 -709ADB7D7812638416493A4A2EBC27DACC8501E83677D7CAEC05E7FC8CDA2D17FBBAD16FFDC4 -7035478AE84CA72C5F644BEB0904D2325968B9E8065ECBEC37269E6D9BFA3CA975CD06C19F1F -23B073D58E06151FF11ECD71F20445C2A6900AB9CD54D4C8D3845C6FEA080E42F758214DC001 -27582F6A6DB20958DA4DCCF3452B5ACE051496927CEC7CEF42C0268C9517DCA4D146BE0B4B00 -D7E510737F28AE1407998D095D89354BFA32738F113FA4DFD1CC28FC16177F14AA8EF8350CC3 -5793E01E77FDC2699638A0D269ECA8EB21C94D05632E3B43FC33AE57F5F808C0059F22F1FBBC -A884EF91D744E54A8DB6D51EA9F083D89A0571C5E7D85DB94BA8550828E75A61967427330638 -8EB7BBEB8F69BE203E9C9027EA35C98C4A3B5622A11F434204BAA008F3BE852484C7A61D7DE8 -1C5752E8C600C8DB896E608BC8BDADA3767DCF3A6ADA32C482B8CBE17B416783AB018243FDEF -5BCB84A2294954DF5D1F4937A17699B039B9694A20637DFC8AAD926173D935652F626696ACB6 -3D8CD8AB36CAB2499F44A3FEA78A99BB3BF16FA52EA267672DA977CF2D5AFC1E49967DC04A26 -E1A849FE20D826BEF6629CD6DC568EE87D4EB3DC9CC291D829AF1251AE6220AB60E7D750E8BD -F7BC635C69C94656E638AFB9DA6A5DDD853777F26B0B6167B4CACA08ECB0BAE84068B24E1EEA -874FE583A10FB7CE5E581791235427784C0E1BF18C584BF5F2330AFC21C26E98BFF1305462E0 -E8FD02D13AD10D33031D60924433583380A48B976569C182BB636E98D39F9966DB853058BE02 -ABC7E978C7C2F45D8F0DA754F51CB3454A25CBEE824FCE9782D077B8CC67846FB33CBE7C7F64 -E13AE587E4096D7797D51401D309B06D5A87E1467125B7EB3C9E4315CF6C60B31FE767287C66 -9BB0BCAF25CF0E2D22EAB00DF82EDB90EBFC6B8F1649582B444E6337A7FA2C925F677B4AE829 -26A60FEB9D30F95EDA59B86C0658184F2482A9F09DA453B88D256A2479FF03D8033681200A50 -5D43B1A9E61AB71262EE3C7ECB51FA62D6046A9F35596A0543DEC82E2452508F0DA86C5EF6AA -105D10FD1F2769501A4FCF49861CBEA6696BCB76A8E3E84DB2F43DA6A17053E9FB2CB459AB7E -A91A80E20932386D9F3ADDA23D2E4A1CF5D6BA73B477824ABE16BA45E641F34104708129D896 -3A5D972092D360BC6C16A53DFC76157F227E71EC621BC9E1C9DA074901C4C288702566A5C863 -9C39144EE346158716D7CD94739742B94496DE1DB825337342F7CDD6DE68BDB54708AB9E4969 -5031B07DF9366C3ED0AEDB35BD60513A249AB38D6BC44472638A17B537F89E6BF1DD367097AF -E4DA5809F9D9013D5AFD8C92A2CFA6E040F28ABD7E0A0D56BF97EEC35CCD8D212E5A772B33D1 -512546F4C35DC1CA4CC666B01B5B8FA9F517CE409F26D3710C519F68E411E47AED69B8000FF3 -DF955943A0CBD6EAB124A6BC157ADEF8626D8AB9F6910B18E950619146C84287713C4F3E6A33 -11A7D10A15F396760F43F6BFC144F74C0D3246C8F9E3FEBDCE96036B6AC4316085CDCB72E7FE -52D732B83D65F48E5D23B6E5E948E5AE2BD5686ADFEFA3FD4601B096BFBF04D4924384B764FE -34D29C5E61629DB5956B8A3F7C326D7B8D2C01EBBA6D875557BAD134B422A591FB636F6FB325 -179A1548DC183FC94CBE924BE379A5779FE2ADDE9D652D78400CDC677EF0CDC08A85BFAF5022 -BCA9054BD0B49DA4DDB77CA9F6D2C97A4145731D48D822089E687481DFF711E2AD61428DBCA2 -2C6DAED292450E9D6BCE00B79FC3EB027683352DA7A200948F06B2946E42F8DC88FC22D43D22 -E4527C4C0CC4153A285D78339C2C9D30F7C1A9D014986BCAAD3ED6DB41D66C981A1B0B460F74 -39A06C2F319A2F2EB24CF6485E6B46447F908BB4730875090700733CC22C5E0263E53E80FE56 -862FD336D263245C2D433C5F4ABAAA7A81B2427F9AC8595498140CB8461893D7D1311075DF42 -2DCEA23AB71F12DC8909A0AB787219977214836D085D456A053A193561C26A5D4DC2DF3B99E0 -ED34A9FBD688977EED1D18EFF8E8D617628DB902988D1B3066A62FA123C26235368A21B79D68 -022248664C93C241BC7AB24FAB0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 - -cleartomark -{restore}if - - -%%EndFont -%%BeginFont: CMR7 -%!PS-AdobeFont-1.0: CMR7 003.002 -%%Title: CMR7 -%Version: 003.002 -%%CreationDate: Mon Jul 13 16:17:00 2009 -%%Creator: David M. Jones -%Copyright: Copyright (c) 1997, 2009 American Mathematical Society -%Copyright: (), with Reserved Font Name CMR7. -% This Font Software is licensed under the SIL Open Font License, Version 1.1. -% This license is in the accompanying file OFL.txt, and is also -% available with a FAQ at: http://scripts.sil.org/OFL. -%%EndComments - -FontDirectory/CMR7 known{/CMR7 findfont dup/UniqueID known{dup -/UniqueID get 5000790 eq exch/FontType get 1 eq and}{pop false}ifelse -{save true}{false}ifelse}{false}ifelse -11 dict begin -/FontType 1 def -/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def -/FontName /CMR7 def -/FontBBox {-27 -250 1122 750 }readonly def -/UniqueID 5000790 def -/PaintType 0 def -/FontInfo 9 dict dup begin - /version (003.002) readonly def - /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMR7.) readonly def - /FullName (CMR7) readonly def - /FamilyName (Computer Modern) readonly def - /Weight (Medium) readonly def - /ItalicAngle 0 def - /isFixedPitch false def - /UnderlinePosition -100 def - /UnderlineThickness 50 def -end readonly def -/Encoding 256 array - 0 1 255 { 1 index exch /.notdef put} for -dup 0 /Gamma put -dup 1 /Delta put -dup 2 /Theta put -dup 3 /Lambda put -dup 4 /Xi put -dup 5 /Pi put -dup 6 /Sigma put -dup 7 /Upsilon put -dup 8 /Phi put -dup 9 /Psi put -dup 10 /Omega put -dup 11 /ff put -dup 12 /fi put -dup 13 /fl put -dup 14 /ffi put -dup 15 /ffl put -dup 16 /dotlessi put -dup 17 /dotlessj put -dup 18 /grave put -dup 19 /acute put -dup 20 /caron put -dup 21 /breve put -dup 22 /macron put -dup 23 /ring put -dup 24 /cedilla put -dup 25 /germandbls put -dup 26 /ae put -dup 27 /oe put -dup 28 /oslash put -dup 29 /AE put -dup 30 /OE put -dup 31 /Oslash put -dup 32 /suppress put -dup 33 /exclam put -dup 34 /quotedblright put -dup 35 /numbersign put -dup 36 /dollar put -dup 37 /percent put -dup 38 /ampersand put -dup 39 /quoteright put -dup 40 /parenleft put -dup 41 /parenright put -dup 42 /asterisk put -dup 43 /plus put -dup 44 /comma put -dup 45 /hyphen put -dup 46 /period put -dup 47 /slash put -dup 48 /zero put -dup 49 /one put -dup 50 /two put -dup 51 /three put -dup 52 /four put -dup 53 /five put -dup 54 /six put -dup 55 /seven put -dup 56 /eight put -dup 57 /nine put -dup 58 /colon put -dup 59 /semicolon put -dup 60 /exclamdown put -dup 61 /equal put -dup 62 /questiondown put -dup 63 /question put -dup 64 /at put -dup 65 /A put -dup 66 /B put -dup 67 /C put -dup 68 /D put -dup 69 /E put -dup 70 /F put -dup 71 /G put -dup 72 /H put -dup 73 /I put -dup 74 /J put -dup 75 /K put -dup 76 /L put -dup 77 /M put -dup 78 /N put -dup 79 /O put -dup 80 /P put -dup 81 /Q put -dup 82 /R put -dup 83 /S put -dup 84 /T put -dup 85 /U put -dup 86 /V put -dup 87 /W put -dup 88 /X put -dup 89 /Y put -dup 90 /Z put -dup 91 /bracketleft put -dup 92 /quotedblleft put -dup 93 /bracketright put -dup 94 /circumflex put -dup 95 /dotaccent put -dup 96 /quoteleft put -dup 97 /a put -dup 98 /b put -dup 99 /c put -dup 100 /d put -dup 101 /e put -dup 102 /f put -dup 103 /g put -dup 104 /h put -dup 105 /i put -dup 106 /j put -dup 107 /k put -dup 108 /l put -dup 109 /m put -dup 110 /n put -dup 111 /o put -dup 112 /p put -dup 113 /q put -dup 114 /r put -dup 115 /s put -dup 116 /t put -dup 117 /u put -dup 118 /v put -dup 119 /w put -dup 120 /x put -dup 121 /y put -dup 122 /z put -dup 123 /endash put -dup 124 /emdash put -dup 125 /hungarumlaut put -dup 126 /tilde put -dup 127 /dieresis put -dup 128 /suppress put -dup 160 /space put -dup 161 /Gamma put -dup 162 /Delta put -dup 163 /Theta put -dup 164 /Lambda put -dup 165 /Xi put -dup 166 /Pi put -dup 167 /Sigma put -dup 168 /Upsilon put -dup 169 /Phi put -dup 170 /Psi put -dup 171 /sfthyphen put -dup 172 /nbspace put -dup 173 /Omega put -dup 174 /ff put -dup 175 /fi put -dup 176 /fl put -dup 177 /ffi put -dup 178 /ffl put -dup 179 /dotlessi put -dup 180 /dotlessj put -dup 181 /grave put -dup 182 /acute put -dup 183 /caron put -dup 184 /breve put -dup 185 /macron put -dup 186 /ring put -dup 187 /cedilla put -dup 188 /germandbls put -dup 189 /ae put -dup 190 /oe put -dup 191 /oslash put -dup 192 /AE put -dup 193 /OE put -dup 194 /Oslash put -dup 195 /suppress put -dup 196 /dieresis put -readonly def -currentdict end -currentfile eexec - -D9D66F633B846AB284BCF8B0411B772DE5CE3DD325E55798292D7BD972BD75FA0E079529AF9C -82DF72F64195C9C210DCE34528F540DA1FFD7BEBB9B40787BA9351BBFB7CFC5F9152D1E5BB0A -D8D016C6CFA4EB41B3C51D091C2D5440E67CFD717C56816B03B901BF4A25A07175380E50A213 -F877C44778B3C5AADBCC86D6E551E6AF364B0BFCAAD22D8D558C5C81A7D425A1629DD5182206 -742D1D082A12F0780FD4F5F6D3129FCFFF1F4A912B0A7DEC8D33A57B5AE0328EF9D57ADDAC54 -3273C01924195A181D03F5054A93B71E5065F8D92FE23794D2DB981ABA2ACC9A23A53E152596 -AF52983541F86D859FC064A0E3D5FC6647C3CAB83AD4F31DDA35019CCDB9E3DD3FEBD4C2B36B -A3CF6E6C7DA85E25D8A31A9BAD39BDF31FD0D17907079DE6A078E8A409D8295F642DF492AC4F -86AC84383B0F4C6BAA7C22AD5A898A71D6CB34D2CD12266C486B75E75A69C14819DD9BB81590 -88E04D4717E576B8482DBDA52110AC8B8A80E4E9D58F470EEBD3CF44A1E1EE8DA318FFF3611B -02534FC9F4018C7C57E80570D2F634D98BE5D5EC6D95051157F0EA94A3D12BE0B4B79939F82F -8D73136D3337C464D87C9D05A10CCCAF698DE9CB7CB1B0038D772B934E2E882856C8216E405C -B4A3B6915DBBD6A23948ECF970C762D542733F0C55CC875390A374231C24710762CD9DA9E592 -B801A3DDFEFE970DD49047B3560E559D86198A1570B864EF8D6BA386630B1A14FA4F3937941D -694AB40BDE56CBA869A908D96B46AEC605ABDC1DE1DF37650191A966A21253CBA6F4537F50E4 -367F2C1FD60FD38F35E3BFF31CB5F5379E7C47E8E27A3EFFFD4EE2FC8A7D026BFCD944D8B691 -25B2437155F638123D1219512BFB26E6AA22642A376C41FE0DAEA39D24B09462E1FF02E8D4F3 -BB87A95955AAE4CB2BBE3E9E6686EF7CD8231EA8EF10B6B4AC940A8A2B8BA5FFAAB24160EA64 -6F3770C0C42D4A107B0DAE812DE880E9CC4C32B44B6C978808529E3785E0DB0EAA0B72F26990 -DDE686EB30F4AFB83CC3D9A2C87F6B3DD6D15D51ADD1CE81E7CCD539CC2B2B15FF296A25F812 -9ED5674CD32209BE149ACC5314355420BFD1053EFD124EF5F91F27B260A7299D6D1422E48BD0 -FA6E39A41E539FD8F60EDAAF01946B9E5A63B85977EB3D8856F8E668F4E8BFE7B996362F6012 -FD8023E12ADC8C04203F0CE164131BF709AFFF2C94700D6C229EC72B7CBEFC3DAAEDAE3328AF -E23783515CDCFA14C757B8CD6FFE5F8D28455EE28C3DF8E102DB08E529C43F54F76BA6CF5441 -6F586D61E54BD78D401A1A5808AA53FBFFF3FCE46C8BEEEB31CCFA037177D8AED8CA6BF45042 -4598B16ECDCB558D740BBCCC435674ACB41367DBCFC585F16D60E36E1E707A2BD984384C83B9 -609121AFD810AE0E01B9B7128FD1607CE9BD76E3F2E7D37E5C0ADF49CC3DF47FFC493D601FA4 -3C56761D8B9F7FB0A310C95FA78AF12CA770948B2C749E072532D386959B8E306568A1172A35 -6795D411C604CC9903C4355BA4BE38DF343B63AD86FA0ED7B30FAED6C7BF283BE5EC367277FD -D2FA9A5D29EBD04CFB16E7290E7C0F90B2AC6F3F43EEC445A5AF7DFE9A67E227CABC7D7A5515 -5F69EF84246FC2F27267FE26EDA07595960C52AA7ABCBFBDFA163D007B8613AC8C9890116C3D -C30BC25FD0794C291F92B5379439569264BB6F85AB4DD2A3E6AB7367532F095F96D270CBE65F -F83C2D0536F912E065F6C2507E646FCCC7D6EB65AD118E8B47017D67DBEDD125C9146F608666 -FA70C6381F01D582706215B2D3D691C3E42901DD004CB116F495B9E1498ACCAB24F2A88714CA -5FF5E395FAD2B8960F0114EC0F7B753DF3135F3A066F098C23A60A54B1B2C27FA5155AB396D1 -65B1536823A4B336E006AE560D3B2999D761BE7E6845677104682153B097CC023F53D33765B1 -F8571F46D8610872B6570786913985D6645237A5A5B7755BFE702BC5CCB59476BD31CE8FA143 -FDCBC1C321AF985ED89D55AE980E708F9D5E1824F738B4262313118CC5C06B7492D5CF876D58 -F892C4D3501C299295F86E1072619FB48875CD2E73055DA2D6CAB98CE598D49A45084DD3ED04 -C7D894B50E739854E84117A451A304EC56593F384797B50CCB971F331D72038D1F345EA10FB7 -4B46D42F338C7443DA34063A88F8E2AAAF0E0DCBDDE36DBC729FD895B3BDEA58F1E40451E328 -F1F84E4CF01444DCED3F21B539B53553D923CA5E9FD44DA4E69E8FB87666B12A6DA032F3B375 -3189915C4041F2A1B54BD9BB41522A807340B497F53979AB1076675D9E63A380C9064DD6E4BA -0319DFAEEB9EB6C43DF5AE4073E8DCD2CD8CDAF5D1BC9F5CF67A5B9733DB664D0BDB9560948D -33906A17F5006E9D858C429F1922D7EC5FF80E9C480401FB21D74744876D58FEF258A58F6E9A -E03D358505A76F1D2AED973996327B34DCB11EA77BE8F29A2CA20FC6E552AFD80215F52DA1ED -5EB65876FB24C0DED82EC96814C0F8AFBC1DB375051BDABAE230A873DF8B5B55E6C006E6F7B6 -334287820BA8F20D65B01155C9032D6393EA04D967E4106EE05423610BE003033E86CC7F177D -F3E49DC911D5CAD22495E430EE44D9FA74960CE44FF6867327DD3985C0F7F456B049BBE721F0 -7A2EB9149A44F06086FF1391A6E2BD4A5278FF89BEED802BAB6F81A8D4C25F17597BEAFB760A -318EA610B5F145274A2B3AA611858529712D404991EA274F2270452DA3B68D89169943BA7686 -E3019263133290796975CB035B2E6169B8621E7136990AB699D1C89FA0E94551191523FD1A69 -CDA50CF8ADED596F56DFA218CCCC84ACDA3226A0451E87FF0E44FE54F52B37A59220FB135473 -A469EA525805DE37D223C18319139185B97FC2EA83356EF7799081D1E2A97D89F977DE14589C -A8446CD692FDF2419459618475C952F389DB09C0749798AF8397AC3E11D4E7302E39AC34CA03 -DF273851301A1AE9B226E84FE2E0B65131299516BD64AA90EFE39F280591AF10C90B652AE14E -80CC1201B4109629558E83B83483D4DD57E0857AE0DFCD5A64B5CC36C1F28DDC752AC1D1BCFD -E5F5B1511A3E6B30D835186F38E35215A328D396DB7C634AAD187428B23F68D013BD6B8AC2D7 -FF93A1D399C360245641C2200021B9F8DD69304F74616EA2DDA34144FC11EC42B09AF21134C2 -C7FBF1534ABD44083021D4BA466E732A1FAB596E9F6AFD4874CEEFAD852697601AD8F15AA5D5 -9E20C11E25B8FCF60D6138D6E72A8F4CF154C97BF5990595C479BA3A2F96DD65396D54A42B20 -9CA55D3EB21CBE6C44F0780D2C43FCDDDDEA5A65EE645AACBEF909A155B55247A4DBD5D59E7D -0FC8C20A219344312A1D86CB69662D2C7CF928F6D817BA34FF554890AEF5AFE8B01DB6537B97 -25B88CFF02DB92E787B593A6491F930EDA75143528147E0341763F3F8B9794A0DEE7A4889530 -C765A8E665F58C93340C99A098250EF663F3158EA3E6DCCFEF4212909A5C5C23E2D61189D23D -69E8BC366C947019C2305017AFC9D36C6E8C560EFAA4093C944A4457698C5F5DE74374FFDD24 -CB5E6D24A04B531793BE802D5AE400E2B068A62252C678F4547FBA7C677E634CC76A0373124D -65CE68DD5D085841569A2F8E9C9B71ED1B3794E6F899D6F3CF7B6EEE7F33A285ABC190B8F174 -54B084C8A83A7C64CB899733EBE3EA8D710BF15470C8699B265B4D3714870776F16AE4A5402C -0A40070A16114298A51C1646F6CDE88114626AF0E4CAE0FF7384D863891521EAC6F31A5CD295 -CC0C0E7D59DE52DE04BF5238156F4CE33CD4897CC482AE5AD1826628529CE5A6A5E6A55ACA0B -20B657CDF5E57C5A73F96F93622C6CF500BCD7E6922BC3CA96BBA05FEA0B0FF7DDCAC109BE83 -FA8934851E9BE9BD3109192202EAB1C77B0C86D1FF97E3B8732FDBB9EECD2A547E3A1CC4402D -8F1D213C98890AFB12CE908EA3CEC9D2E7B5BCE47C25C32EF337C45F3EE522F5CC76D1505DED -96156F80BF6C8E2CF5C3F28898C2F7CEDCAD10F6DC5C45FF4979906B2FD4DB0D9435BD85FF5B -78E78E441D140AB53DB156F4C6402F716ED7AB7C5617AE1D1A22BFA5BBC89DDDCF9F14FEB699 -D206E1345B793185D2907BABE65547A9A17F8B0CE718D98DB6039357616CC44BE309EC11368A -C4D965927773CDAF50ED2D48E692B2A3B31521BAD488BF684F01E3506733B27EDDBB5D0D6D3D -8E65A5E1BC745E1EEC0547984018419179B38D42E3099794341D97885F230300EC6FA06B18C1 -7A1FA77DC186886492D150DF1440DB4EFAE287F2F2A4ECBCF0683EEDEA3F78B1B68FC1911CBF -2625185F73C141DBC9674E7AFFFF580B4A0296073F5B6505E4D63A4A736BC3B794809E801860 -CE4691A57EB02C0947EFC1DE4BED3962346769C613F240DB1574368B28F186B608BB99DA33AE -1B3C266E49D58AE67A462FCF2E6BFED1AC1FFCC24C9752EA793F60923F7579D2B8EF9860975E -6A80D5F9637D594A9567F8A2D1E15CCB1EDD3D502972C969EE42F57D74500D30170904A463D6 -59AF0D96EE6FED9F4C7FA0C7800EBB2ED3B78C3F095D18068F96573A033EF343C07BCA94DD98 -97AF2830B6A40086C1E8945B26F8BAEDB8C0AF3371060CE18CF8D8693738C15C2EB95A4F7F7A -37E82ABFF54CE8D19524E45379C92BEE3AE74131231FB175D96FBE54274A88135FC74D9F429B -9794912A8D157C0CE5045F3B16A4BC78811F1007C96EAEF9BBD706533A7AD80411E4A3ADB0BD -BC27A94632D00A5A561DF53E0C63A0C17D9DF09ADA247B420B524135E9E7C346998993F716F4 -1A8601099FB2CBAD6F760245A1B52E1F8C45FB5379021A64EE55E368F1E2D704BC4176D8E1A1 -F034A631AA520C6039639207386175C7913AF1AEEB95F1C6F995387A454C25E6F78AF60EC1D3 -4E0FA0BB4BB8B9417B5D8C59D31BBD89CEBD28C490D8436128EAA23C69816AF90A4622B82A03 -0514AA5EB2865F5FC5247DBFEF5BE641DA1448376DE08544B9902118A5259175D547A8793265 -10C732848D4E5D6D4569021CFFAF8BE720FC9B73DF8A0B8BE87EB08C3A2CDEB28D6ACC63694C -A9CBD263838F26A9F538D85FA00CB23F053094977019FF9A935D627668BF9E94EAC831D09DA1 -7627B4A4F4B6A790273EC536A5D8F66F478BBACAF17382F7A3E9257E554ED267EB03CD70B803 -59AE7667C44C0C9411A2EE41A9B0A6A12418A37E6E814069DF72D0534D6BD5631F158A3FED39 -FE33E4D97F5B8D0133F8D67B92C72466CB2B82DEF502A67FA8A37EA4473056DA8B1A1C589960 -957B0E1FE2316DABBB150F8F8BE2C4DA45E4014CDBB22DF11A9FA8B85278AC7F0A6F75996A7E -BA0E524EDAAB6CA54EC3B3DADE7C9EDD4AC5EBA9087CFD542CDCCDB9410202EA1C5DFD4ABFC5 -C0E1C0EC82246A93F453389BDEF4FE8A94F9AA5B492AE04400C73F55F67AD0B02F092D87E10B -C9F14AD36C3E8CC6519BD9AC63F795A51F61A9877CC56E8D87E1078A1562332869EC5D52BC95 -BE2923CE6E9AB07C7B9CE0382A5AFC60A44693AA58CFD33BAA0415F5C8AFC239125AF4452C3A -0010FEF23C70DF02D5D1FEE6D23FCBD6B59137EF773E877DF1E42ECCD49373383B5355692965 -0002A51973C5CB12EB6696F8D09086C7A0818B7372D1D17FEA577704DF4EAA121E0271B9459D -57E1FD89A3DB3D4C75C62079C3CADF03EF97D04C5A4CC5E608EF1599AFB139AD7FE73FDA41B8 -1DC0CD9FBF93834F9BA7FB1238E895E9DA72F1BBB8FF581C45A14A39981170D15D4E04022A9A -A5A2AEF9F6D38D68DF4BFF98A371296A4E9EBDD2FEB5BB616BDE6C9A4647901613239B815DED -225E3408799FA2F73D7BE239CF11494C456DCDB4D618D21D19D81879BFACB55EF117FDFDD0D5 -F66BC97FBD7C6AEFFC84D196359698E9F36512D6CC42775D1ADABF6C99B4F4A232579106D278 -01F76A71F0770168E40A85403AF26BE14BA533EC0551C3B18EA8EE97C57F9FAEB4192419978E -E50242AD61347104FAB8F4260F518922AE10276C55FD46EA3D4F6471207910D77C8DB13E3911 -24B50453B60FBB4E4F15855FA03AC4C3A5E0F6CDB7995B1118BC4C9BD2F869682BFB9BE20D91 -7CF997D4C2000ABD5E11E2DBD79C9C8B7685A17943A2DE2AC4CC60A50CAFB37BAF863AA8B835 -0D7DBB1B52C2D3652745CE06B1193D2785073F5C668C4A117D268D839D41E497165A50D08C32 -92FBD174411692A3B744DA54986D1EF767D6BEA6A5F437E5FB61F7581C72FA8DF1F51909443B -E412C321C9E1FD626B345B705DC4A8017EB0D8CB61CFE5F3F80F796BBA6FC7502BB925A33915 -953141C4444698A18663EEB95E492F20542EEF84B047AC52A439BC794CCD488EE9B25BC467ED -09A418256BC0C14A808F007231FBF97EFC1881425DDB64FD6C170DEBD330257427C9D8B53DBD -E875AEC06196CB8F0D33BF10B681605A02E750FEADB3196BB3EC2C251E5F549C2FB6C91FB32C -1BBA3C9AF6CE30CB6B71CC2BA681231B1B521619B863ADDDA93FBAE29F8C7A439415D22BB35F -59608609CD13D22612CBC6AEB6601B37A6C9F09EB1EB8F60F12134956E456DB374FDD7A93302 -DC2FA405641D09FE7C28314B08E4FC9DE9294B2CAACB8F8673647EA32571BD33996045E3A3A6 -EBD1315C3C0C91FCE65DBBA1D1DC730BFBF02A1D5B16C74A8E5841450A24FB0D87108469267C -D21AEA77CDD8B317629BE24DCA7FBAABD757ACF62F5733CDE3C4F6D138ACEE93DE18CB485C91 -78214351FA3F0A44ED41A3F7DE68816B7FEF6C2869AF4F677F3F358533AFB7D4F090C65F0358 -BB63E52D2C4878D2EA0620D1FDDCE9B8BC22E99BCB711DE2D4086CC2950ED2FC50508E3AA0C1 -5B109A3221CAA9CBD6BE368BC6B7A7033656D9FFC85F729D4BFF1C18B00E78B5EB5C9CF18190 -6885C45E315B2ABA41D3CDF32F0CF301DD4EB4BF9B28C0A4D429FC84AA97633A6BBA6AB0F43F -61D0F6FA9A35256EF7BCD8FB934FA1C035A8AE3B600920B608EBB40850E4C7E3564572675CCC -7002CC2029BB963D87385C2AAEDD472A224F92187298652BA268336DF3BC28B33441C1A8985B -FE71EB30E33EE83F738123D76F94308A1A2F2F549D40B7FF6D97ED87B1989DC12AAD21BA8BC4 -2B2C361C50E44B74EC9DB17061DB171B932C910397D42C1D6A305299545952FF8AB117BFF8E2 -BC2E52E7FFDF6CB64D61AEF2E79481CE9A1915B207C58C4DDA3D71172CD99883A27078693831 -A07AC70C67E1EECC1DD5B3DBD0F7B445A167E77F54ECD3F88A4622771C55C53C9CB58631B603 -74FC4E6FF1FF4A26DABBC2AE562A124333C2822E4B52598CF5B4D5292DF4B06800D9689C04EC -D895D17847D93FAA68B508E524B39321AFF9E749343638ACAB6CC92AF4B447B87C3798277B3E -833419888CDA9AEEB978FFBDDA27B6628FFF08A55FC41F646741D092148A2E149CB295F283B9 -C3A6EE040AECF8A895DDE8DD46908FF65A57F7CABE8DD42FBD82206E77CC64ABA562E6D21726 -A63F5A75C4F7FCE6A8BCD6523BC18679CF3730BCF4F1ECF3CD00D8BF63AF271164211A34E3BE -B928ABE1A06DEF8B2DE826C893604C5F375C7C254C4A2A797FC1EF11B38CE154A5B337C453A3 -07E501929D361A66AA0EC59243A64F8CDC31F57EC829093184386859FE4B6792265A6B32D03C -F1C81E583ADDC7BADAC25C98FD44A3796E33E53E9B2019D0D8C6BA3685019E67D931B5A817B2 -CE47A88BE668BD45DAC05199D05B5F02DE05455BF2CDD48F2B93B50EDEA9A5E0C871F8AC1665 -FEDCD0BAB330EE628E3DF4514D679AA059AB3C1DA74E2590354028FACC543CFDBBA7F90010A2 -AA33B7329FAAA0DF1C555E03B71F153A5CAE8A5F9738BC5C53DA38544CC23C785088062E05E3 -896956986B6210D343068B5106361486B7545B0547CA1D18B19C7B073C1D5598D5C19A52E47B -945A369294E30730405D41C2CBDEE5BD4168485B7DB8A8D7F3E1C56A0C924438354CC6B69289 -E93437CE4792385D35F705BC2A9CD4DFE0EA1BC88E523099993B5718F851FF9FF10CFE04F29C -A23BECCE71AB67639EBC8E9AE584A9127874891089EA7FBCD800EEF2627BAF6713AC74DC153E -E0AEA7FE4E03637B459D3ADB17A6150680EF84597F9E3564D86AFC09303A26A7934EC200F635 -DC09F26DB9F7DC4785E9818A96AF2AC20D0A7D8EE5CBB80AB303791397CD00FD000CE43D41E0 -39F1FC0A9B6DA7194CE33244946F43E83836A5E85FD65A945C3D5050786573D179F115052F03 -24273243ADCE6057DCBD605EF1CACEBF7299500D31081A5085DEEB3A875061DC94A08DF3E192 -15C207CEC82EA5B01EA53E14631B092DC3415AC78568A5099869AD04218758F11D56265232C1 -2618F9AE589F32A5773C8B38EAC7F7370BF1FE9180AA3F2FE79205CCF69ABFF3536B0138C173 -2A5446FDF7604419D883F38EF4131EAD4E518D822EA26243F46949ED42C6E4A060889E1979B2 -6AB2BC90469306C9BD7EFBD72F9C9A6F801760D467B766FFA50AE98E5F3EA07EB0CC652E3A1D -12E61303E71E99ACEF315932D7911704843D6396F4A88FBF00C223586C5259D6B400B18F19F6 -E87978C4908A372193FC45FCAC92EFC1494640BC70897D0A05ADA21CCBB28DD89EAACA4B99DB -D829A6B50C297D5A40E7DDCBE6AF3352AF434FF34A27DF727C2D5539CEB8C0AFA6C18C7F507F -5D8E4F407C6D6C8892B9AE0AE8B184910A98F2950CF5594D1C42CF604808B758DEDE97A1DDE5 -C4B54109A1B5D3696114CCDDA196A43EA25E34BA7635791A0E5394506DFE706DB5ADE9F91C08 -CD45A5C6DAF40D12C0D6DDD6E83F1A7C7C90D7B2B9E94D38A677DEBFE6C789BAEDF2CF821C89 -B2E992A8BC3EBA57C1B4EAC247BD9D5A24697B89D852E772C82A4F363FCC3C18D212BA36958B -A07F7656A6C5D157C62C50A8F13EF8389670659A9A58342DCE27F00E3CE58375113402DEDAE8 -EA6688550C0AB39BFD238A08C135246E63EC1A8CD62DBE0982CF431FF500009543698C650ADC -ECAE3E2BFE123185A2B953E1AACC48F7D15CE3F849F1F8FD6B781C00587A9D75E218AFAD1245 -64DF3026F455F701A66D0DD5B7613A0329A02E6F467261CBF14E828D323882FB9039CF2E52A2 -2503466E9254E08DD64B930909CE36A7FFB12F2C8EA3511F8FC928B1C78377FAEF16B6926C3B -535A49FBB28AEE24F1B811AF40E41B406B2FDA63F8BD2E486DBECC9430A60E4FB834DC44098E -C39899CD93B0473883EF9864EEDD71752428EDD2955F01879163722B29132232D5C0278540B6 -2C2A8EFE5F7C0F9A83E70A24906F2B090B77929B36827730BD362248254FBB37558C0585A097 -B0488D05BAD1E491C01211B9BBC1E23910153A31E56B5FBFC3BB6352CD62EAAD3413C9D80925 -C48046D0FD4B9D321FD5F3D59D1A9AB0916056A0B4AE0EDD9E0458C8EB9DE4C5B20C68A474D3 -7D13500183E153A45A7C26A675B6FBD0490C688ED1E26466B19502ECCCE7F89199BF4F71E1F6 -21D2362DE9AF2DD0D882A0391103334D5DFA079976BB3E7070C102852061BE11A664F9B66037 -64B52D02B917E584DC7C1DA2F71D02B18F758AB8605C40856282038ED4C3A9BFCDCC5DCA960E -98B6A075842AE3B880DF242AAB37C135387AFD43E2180BBDB40553037845D841B664F2392C3D -C5CCE32942F59807AE4868012441E36C7DF403B917ADB6156CD9A2EEC9994630CA34E2DC9D44 -61F520B26A2F525CBA09EE77C492EFDFC2F90DE311F8776BB3B41D31A64BE2DAB07A3F4BB94E -06AEF96A09E6C26DDFFB509DDCF975E226A27D2BD8EAFD926EE7FC6C5EC1AF79FDC7FEA8577B -16D2C823108DB41246EB8FF5AE97EB9E0255C02313178DE8E31956973C4AED0C8A6F73E07A4E -1189DA7C73E44BFB1AB8298F0FE364967426367E6913D432D42E817B796D86E67F0CBA36EAE9 -4F46121BE50CBCF6B78D737E947B97A2157B1E9A16DA891583A7557372D87FE44AB921D65307 -04C7C3A1950CE219CFAE4676FA3AF71A7163B32A62A25A0ADCD31F8EDE8ED4EE5623E4ED818B -91C537E23C32C39B3374690033ACE0BB43469400B81EC896CE9D27D1897213BA641AFB6DD9A2 -FA388FC6392C6B25AD23E46DACF41EBB22F08D410EF85FE9193AACBF49FEDB1AB78568BC2312 -427BF0D49595CD4DBC992F094F4D58CBDC77209FE1F015DA253BC1AB4D1F4C65703BD4898CF9 -568A6D8E16A9AA574002BB80B1086EB70C88E22549C240CDC638E200397D3DE5A5D36B019356 -2CDE2A247D1C186D0C39A92B624237F6480F51B9B3EEBBD3A868DF26EF277046DB68447B71A2 -1B4C1B5F1709D59E9EA79D388587789B52CB6E92439AEDE78B1D844E434BE0D2EDD0A83BACB6 -035540003C95D3EF6153C2465DABC0A264F1BA9720CBD55A3DA4E0CB6CA301AB61E114396098 -038188EDDAAE38A56B518ADAB6AEA5C4EA557E5AC60425A4F256AFBC428A361E0363123402FE -CBADC54E9540F4BD76D694979AE65296D896ED8DBDFAA1E2E75D091C1CB7AC7E65D5A5D8C526 -60147D5915A831CBA6FF3D541CA880EB948AD28C9B43719495F504A42112AB86E63DEE8E96DF -08656C3FCC5581F8891D1E5772C886FFC7B728E67929754248FDA1C9C3C804A23B0F5FB4C358 -0FB118C15479D9261167B2068462C8B7F3B5E3645CA312A6CD186343B6A36FCAD472FECA453C -AE76815493048C8DA86A11EA401632AD04A6AFCE6D974FC095DDDA31B9BB29F15DD6EFAD3975 -1F944092E812E121168D58BB1748D85A68A8086FE0457E81B9D54B5A0401B91F1C15294A58CE -D1C41BEAC0EC501C3AAF67EECB23FA527C30E329AABAD1843A437DD238AB25128ECAA21E7AEE -7073DD3FEF1B1C8DB582A51857BA9D12E848616B84583BCC18D903ABA5452E05B9E24ED205F0 -81CD98426934D9FDF8EB973D353EFCCEAB03B23FAD49A36AB8B5E1D3893427ACBD301F05815D -1A24088CCD24A818C85D1C0095FE051751FE57196DF73A6D514C2A06911A7FB36E84120D9029 -BF51F2830F1C0D315CF9F36C5396AF9392981B2AD055F8F45F6E2430737AF7FB825CB9D8C68B -7B97D745323F71F29F6BA88E682465AA73643BB13B8EAA2D37D8131764E22934CF3A4AAA3836 -3A74B31197A6E2FBBDFD16BC47CF55956B92898D910A890FCC38F4E61CAB3714446F8C7DCC4E -67C338C10FD9614982B39C0816B5B1B312D592D5A01B53A78BAC0E13B2735DEC520195226B87 -968DC2A9F678B38A551CEC94D49DEB8AEF4B59C5EA85C9985544A1B4CFC616C9DC525B9317B2 -F62E880F663EA69BF0988B6D7A6843CDFCD8A99EC4A18B2F77561C0738BB020784CCF4AF7118 -C55D492E5DF7BBF3C305C511FD2868542ECABE52D6677536BD5A9CF7B2178A77A4792F69C212 -EBD41C24671BDC716555A5330E9DAA9518FC9D3B2B5DF9D0A0261967C769FD73B9354FF2CA16 -48ACE02D235AEF8FD73F2932BBFC5A55A7288645ED260FCD3DE430C79B4ACDA1A28EEFFCB10B -E29D89D642CA27516C7EB8EED18F5856ED69C30B93A632AD4E555182A82407E86CAB287DE411 -CBB61AF53B48BA3467D37A0620AF7117CD294271190293C1E7CDA10D25806FB19A90E81F6ED9 -A88930EC57BB08E556BBEACF44207F7E1A203481EEEE721A709FCC6629FD35C579F3E8B3FFF4 -3C908F1898014F9661A9478FB59C7C8AEFC488A0CD5F8775455AC4ACC56AC8B0D9D34735651E -7BFED3EBB65B94D6699F616DAEFB3D6351192D4A570AE63FDB66DBA25B3219D0BE918D653BE8 -8D33AAF67DADC48341849E0B16300BEB96CE04B7FFBB8A539A5A78BF4C85CFFEAC8A69F95F45 -F96C5E200377CE5B9E96ED1567FD632A2D098E1BE688DB589182D944A8E1FC7E8A411562BBFC -9A0A661075CB5DDABE13B4A31E63DD2BCAD90B2E94F1244BD0D884A94EB5C0FBE75A2D92E205 -C34BFC195D675A2A93A631D1BF3F805FC2AC6864B8876C3CF5CD53A489052E03DD5E46E00721 -7F10928DD34D1F2AF0BE3553897C804991E35D0D978DB8A238B50A954CC08EB10C670FB15F35 -7091777A0F061B38607A1EA7613FD0DDEB7E556C64D2F5A6F86FFB1F85ED705151BB92584509 -C88D01E42DCF474190CA1F8122A935596C5F39F7C1E553AC9F4C659CAE8FC4AD69C06E3022B9 -302169CACB10A5316534448B6E8AE258CDE13C1634BB5533B2BAAA7D27D30324B368314E9BE4 -F6CAC54B95EC6E3735C4EA2715FF574F7079861C6F61CBAE2B5E3AB25496C62433CA18756D41 -A5513E700BB726E7CE78B66DB891BE254E8749226376804F02DE8B07137FE39A8598C471BCEE -961D70A5D6C4333B52E6C9F810C6B6F28AE03C54882A915B38545A42A9FF33A45E61C1923BB0 -E21DB1EC92F934273727DBB574B5925415E56CF838CAFCFFF473AA0382CE0D612A5EE0BAE508 -D22A88205ACC79C2FE5F5C42B1E50BFA2AACECF0BAE94CC532C64308902C3FBA46E1D6670F3C -510C3788459F0C05868298F5D45DA4AB5D955660095CB0228A39EAE961EBE7D16C1644694990 -ACB90DEF51E4EE62A2EDE668AB8FB9FA04B0159579B2B9FA84E72D5B71A3157B9AA0591A653F -21E480CC285693CF77038F85EB25FF5CC3130DDF268E7E3A8CCB67A004DA1F49378CACF6B570 -CD328EF0FBCE2CC2AB20ADD2DB136C8DE4D2644B1A60538BD70B4F01B2B44D7EBFFB0B28B387 -07604F344FFFBA2F081A242642F030CD3388B9040D76399EDFB0EED87C96320722B82D9EDF45 -86E64F4C61FEC73AE26BB9B59C413C1603741A37F963057DB989892C2F23E2D9DB14E449D972 -44CDDF5B1BE8A7877AC5C876CC9058F0B7B90836C749E92EF8A19E7E091D1228CBBE15DD7FC3 -2527739290D967B8519A623A1B17349E226FC5584B9F084408579180E2EA760A32FD5F53B5A6 -06935AA3A6B5E412A0A767B2E278542433C5E1EFD1CE0CAB150844EB0F5112DFC09812155DAC -E2571A686C91EDEF1253539003DC3286EEE4A5FB1407FB537B3B65E571B0FC454E6C62CBCA5E -951B3C312EE48BA72015934063F213842969EA3EA3576C49369F828C49D5A59A51D2F6F1B410 -01C1C0D3CF8442329675AAB6271CDC42599ACE74B48B60DAAC6B9ECC05B5F04A4484F727F331 -846B545AE2D0B6200A185F6FA29C8A6B7CB97916A47D4215749E892D6FE8F53529ACF82C4129 -8F895BB6F77E2E39BCBEF8DB6582526CAE8C669F5BD8CBA04D5510F164C2BCF711FD7F32C25D -AD5DA9F7BA88676DDA7A42B488E8A32A0C750F73208A2DCA2A734CAF158BF47A4EA62297E8BB -863F8A551DFB632D2A787CB1D08680D1810B8E5C4AC727CA0EE25EB49AA5B63C250D373AB7E2 -8ADCA7A92DC3F9785A1D5D585EE5BF6C9DFC8D2114DF5F03991F3E2F8C64FEF3B62AF8B12AFC -EBBADC979580CEF32C396BDB880B9680001A10551BFE25E8D48F8EC7CC5C0005366D5B44CD5A -84038CCAD7A58257A876FA26726DB9503876E5CDFCE12128CB5B5F627D0244C7807DBA60DAFA -1720076130EA2A2EF4D7275C8D7E2A9EFCBC433BFF61CE7FDCE88D5C2C2E1353F9486028856C -A7008AF426B41AB0AEBA00AEB5023BA80AF44C904ACE2A434FE7D79B0097013EDB00E9D90B7F -256D18D9E3284DCD568CA561375BA0FFEA8F698C693578C537BA765D1F9697B1037B26CBA3C1 -8FD84A638F76BB5CFAFF1EC1BF9F55369513E55B274E7E131C10F488800DAE3BF672D51BB05F -CF0F1B60C181800A5B62E07546BF517156831EE569B042778240D733FA2ED1C78EDC9878A625 -3E8323347C2952F440BC614981CE99E5724961C4DED03EB51B58FED5B9C191D83EFF0EA672C3 -D53974D62F8E67DBA097E7EFD7B4DC07B8EB52AF762A35F7643ECD967D4C1DBCB37008DB6C8D -25D6473570850560ED6BD60BB2DA16906044CA04F9BCD29EF36D90D132F604A21BBFB3F3C1AC -A9F90C3F0D50BFA293301533D7D0C7BCC03AB1D9D7916599DD6726DAE47A8AA5FBD19FB0CDDE -E1FB90EAEEDF3E79632D9956F2F7FEEFE9823EB7044D71D57ECCD2522F1349D649C16321D23B -72CC86BA8536769B61960683F8BF78700727910915A22B241408C463D4ACB0ADEE97F2F4DBFA -A425C4A389AFB22779EFB298271611D2D1D6BCE24620223CD03D943960432BAF29C6F890995B -95E421EE14460E491071D70E1D965977962262AD793B582BEFBE6EA4BA15F4CDB22F45FF62A9 -E66FD10FC97439E5AA06D17780B0B12CDF92B939D3E973F3A61F457974CCF97025329CD410B6 -753A3686670C4EC10B7038CCE6A1B92D32B6FC62F170937ADB593704EF58624E39BE3FAFB1DF -B0D3109F7B8818140FDD40FC7C14E633C26771E23017FD1129FAB083A4E580E84B0CDCEB9E34 -BC27704CE9CD23274C82FD8363CDD91C9298DCE054F9604ABF295AD0B0734A36B6492DB563D2 -C26A0C0E9274B9F7E22131E35D58BF7191A8F79B7B1B6A3F18A603881734B1B109A22C73237A -D20DBC8FAD4D1199B6FEC8CF00709FCE3D06884A712216A564383576D5383E990A5EFE712B02 -C56D4B940165016B12308AEDFE518650A49CE6E73A2840162F9B86081B2B092724FC0F1261D1 -39B849E829D5EA5B3786279070B6C79A188551CC6B02A4DB94022911DCF74BC1B43666BCA510 -7695D03914C83BB58A5919DACEFDD51403F95EE8354B307E5A79BD25FADDAAB3DCFB82C1672C -1C6E8350B83F8B677601511370B6760F76D085F4DDDC949D0739BE20ECECCFC85E3C3C922422 -EF7FA2D6E19358B44AE59C6AD155D7DD6D80DB4CEE18E54656A9672293E79BB0AF516291CAD0 -D5469DA5A473B457E191314BD8CDD174276F0FEFE43B18306744264DCD3669DC6C3392E7E224 -13ED492CA92844B858BADD4AE93BA493CB9813CF596E9AF1084EDB120512F6CFA332787DA180 -1D8889E0F49A97701264B779787F3C37F192F41559F653D4EC298078904F16507B9D090D9EEC -1B9390C78861F288D964BC6B73CF85EA4ED9C2FA4F01D4CBA4C71EB3EB95B162F210FAFFD8BF -D1F79EDA5C0AF99A37B56D550A5A92A49937F31C23B04EE90FCBB8469515DB89371175095846 -D737ADFCBE7505771F77845A7ACB214C0451487568E62270F4B5E8E05C903D32062A3896DCC5 -DC0D0BD912DDC5876695D8360540B15C57257783731C8D55EF5F5CD89C8FD4BF9A43D8294F3E -112DAF52BD9C893906CBDB83E14F4DC27FC9272864A53431E14C2D11D7FE722C45AF7279A737 -BFDAFB07E581CD9610F6ACA79781A7F525B6D0ECABFCA36DA75C274BE329578D36347A2BCE0D -1117B9A2902681FD9B69C2819A0E23BB398F1A65E0AC01235E8144776CB2614888C18D4CB000 -01D48F83A2C14320C2E74D43E9F3D3392AF18D3545052C5A00A3DC557A49C375657E5B611021 -2AB6070A3F81480DB50DEA42C03C7BA547001E696CA4BA91C61F59D4874FE147DE5AF34082BE -2B3099C249E7B14E3BB1EC2374527704787BD0FB1923C7DB03E38474B7910DED66DD318652E9 -B23AB730FD74328877ED03CD49143A58D911C42BABD6624DA6A1638827E2311701278F953B6E -E77D7BA6A82DCD6869C922FF0BE10FA28919E4A485CA2ACC9874A9E2A468F2706DBBFE7F9E54 -E92E75E482916522C837577BEE11EF2F1F1F7F662A03513BF815B9971BABEA220215321F0F66 -0007DD5BD4F943F388457F06F0A325B088AB74F24D6C9821D745EA530298AC018A679F8F36B8 -9C57BD74799BF278A9EB732D5BB45901855B4D08F13FA18D50B691AE1C2025E07C08B5C1D49E -90FD315886DAE2BC296A838AEC61942607C1EC30041D869444BB9BEA0C2E6D8AD001BC918E98 -370DE90E7169E8AF674819BE506932DB21C8A959440D4504B2C162B71457959B8B8FE0435AF2 -0F3E6ECE9861CD7B0222DDA66F834FC1BFAE779EEE04099CB4AFA22DE1D8687BCC6DF8B71087 -94ED6E6796FD8CC731037BAA8166A39AD811C2D3FFCBC24A61FF51F4A7F7E227BF2E295944E7 -B2667B60CF3FE8B378925D7064063659AF077EDB6B75412D53EC2D2D55D828A5FA1E5216DBDE -B59CF99895ABDFD34A6498F59EB69FBABF7E6E9C87D3BAFE739090B5910E205155D3740F871C -F19A82FB9048C20FD4A0AEA1F6D6DBC12C1B9A350208D7D43E0EA360E621B8C3F284535E1338 -824A3DBA50F0FE4869707718D9ECB32BC8070EA92D93549CA1C848261845B392C50020A8693E -D3CF433774973B0F9ACDF7EA9A67E55F0647FA07B7B6A0D0DCB39AB091CCB5226102F03411B8 -D6306A19463757094929861DA86EF7EE95E01B2EA50B536474360A84D2D2F57B544E8BCA4781 -D3D2C7DD92A1579100982B03A6C4728E7F6AD3CB659292F61B15D5E40CB753476A3B875C72EB -7F5CB6ED0D61263147396A45938C804421C445651CF915145FF03DFC2E86798D69EE29F5F5EE -A00152F89D44A24DA080D9AB34C986A23E96A012724703722672191E37CC138ED3E2D4ECD334 -D1A86E46B9B77ABD735F10B642268AB2FCAD57045D6EE84BDF9EFF464FFEC68E9E3DF1AC804A -73FCF99203C31A9373FBB22682284C65620B94174E98A231539A432232E50E1B854EFA1B3655 -5A683FA48CF7A9D2E67D165A5FAD4965423555A7E40CB0B44C2702006EBF980B6558946F4BFE -D2BAF8E340D802D4B0171F7EAB32F208689416547572ED08FCADB8BD3BB1056EE8F5D382802B -550C8FF117F19329D91C1451EC1B201EADF23CA23CCC465A732C64F02143F46CD970B096899F -6F86AC4CE3796B6A8D8AD401916688A7A7B16F304EE646A94886AF09F0EBB4728ADFA516A61E -9AAD39DFF938DD44568E34C56A33C7446BB3B60EEDAD65787A88FE55D27321850F1404FEAD33 -096E2C79B339FB4D54DDF7FBD46D78009220F0893E07ACD1B4EC25C5B61683ED3F15AC9F6D53 -87777A2714BB3F9FC027872FFD077A90B1D6F6EE6A76EFC25D97DE2192D5480916B350822908 -2AA9A4383D4F5F97C2A79FF0E80D4036428A8932483731D14D6D5F6B2E6E67196EBB1013A2A3 -B33EE55C8F7D9E05D623DEE89F8BFE1D3D52EA6774C35E7892D653627E36F4A37CDBA9704DA0 -63D55E3793AA25B043D665A265212BE2E8916C0AE60E0BA4D8C27CCFB03402CCF473C6F08452 -03C137035CBE5CC6DB95C7B622840CFF41233F648DFB970DEAD4B04CF1DEDCA7A4027DF486E7 -5569B64EE1A65A7CB419B16E788B74AE5C057EDEE39F5B4E82320D802E91BE6D24F4583A621A -269CB1AF11E9E3F7F4EBBDF77E557C4D28844FE70A38E2BFCDC60F646CC1FF1B313200D0881E -E5042BE0E1F8A73C64DF7CA36C1A6A4A0455E8B872E79E4B8DEEC707E3EB026BA79EE8C469DB -3475667E6B0EE3F8A0973A209CD08D0B909FDC40934DA16354D1F58867E399D607BBE4E932B0 -868FD0F8C2A278A5CAE375976645905B390301D528A75D4B7F9C3810DF01720D094AEDF2A58C -A391B3C1DEF9B7CF9B5BAB9EB40AC9CAF3BB7EAFE804407C2EBEDCAA96E258C48B2384124F6D -182B0EDA0F4F7211B5B5CCF2BCA277FB6D3191518ABB8C095F1BF3DC5769ECB91E6BDA67CFEA -98E68F5452E341580E9E990BAF771751A92CE9131E43349D0023D7C88F42F5F3CB67D05FCC20 -6B822B9E2BE8C0561FA774912EEF8E18B5F7B0164FAF03ACCD2EB408756262968565AD352CBA -F5BD9C14730001198EC578B99B0F52500C5DE733098F1B2F5B9AB72B3A697016DCB037658073 -02049F2ED6C935DC65F1EC69EAAFF042981A868B09A08B0D8E7F8CAE2AB42630FE245C5CEAFB -114DE33A18C7A3CE7DC59E9D79C2E2AD8E4D86D7980EE6A6FD98BC2F58AEE07162748BC9DCDE -35B2233A4BA6393DD986F1E8671B0902E6AD91AD5959592C48AF065D2E458E1F2AA4FE64FDA3 -316933AC779FC2ACB5810BD41EFBD4EDEEDC34B739392CF649E889BB7DA9202C818E10A41906 -5B51772772A0ABFEE6927D23EE549A93D3E7B48AA8D22A9B7BF542479F14D6404B2C2C1607A7 -26C61BAD6229F79044C90CDB41980F776E8479CC0A492909C5735A5BCD2E26CAB8DEE487A5CF -3D78B035E268339DD5DBA43CF6D3FBCE6C1680794BB3ADF05E0080B9F865D19D396A848414A7 -0AA1581A8AAB6761BE2F86914F02794A959BBFB23B2F96F1A174E6DC6FA008C5F633FD83988A -3951B04D6DC4B179B65F0BD2317039C075709B2171D69E0D01F635CF12F7A47E9FA2586BF443 -1723586F46A2C29A4892D2E1BBF3215C77E5B1C7FD3BB126EE6DF6887FF3B5143C0375BE0D45 -5C6CBDCA591AE0AA08A69F19F82AE32CF7AACA10781390777ADBC697E55735939E243B9E80DE -EEA1EB5507D79996FA49BF35857E01478CC25D830A0803BF7C7827082A396FD752181DB32B91 -0498FEEDD4D3BF8B34EA3F264BC95156F4EC22B2F8F8BE7558960414054253C07FFE59EFC50F -A20066C08F2E907B83F89C3875CB2C3CB755430D359A80C56F99D0040476CF6135749A2AFDC3 -B6BA0D244BE716503BCF60489EA30F23865B21531E244D2DE2DA6528BBEAC6FF5AB700F0F3D1 -344BE08D815AB540A0A502C917319C6512467C7D4909800AABC094F4E3A21914905EDB796E46 -E40C1BD6E47AD6E2109DDC9C4C758F3578582EA4B632323B04A182C8370314A6B82F9853909E -7A7E5E2BA0F43823E26B0211F73BA246556EAFA6030B82F192D54901D622DF14403E075F5D9B -0AFEDDCE7C52227E7CF5067BC827CF0E32B1A21B23D600D11F4D9ED39D8D40759EE9B3740FCC -0AF4E5F80A5B8B958D51FC5DAF2B1B993CBDADE8B8C53046C1C408585FF36315321946B62AE7 -49FDB1138C436E214867F51C6A221F2AA0DAD2F8EA5C5EB08C1E12BD2443422348FAD350862E -80BECE68FB8984398F95EA25AC4753A6135A3A97C986C147A3FB7B528634113371E25E52F754 -87391D027BEFF87DC6BE031DE0207D78138CD96E0024296F4A72F5C0AEA2502E6A63B245CB08 -AFF1E3AF2716CAA7E350B2E4BC2EDEDC32E4941AAA59B5C6D9EBB525343E9FBDBE359F28C2D1 -22B621517C7C2BD890E3E4E27041FC55DC22200203C73F5A29CD6F24C9CBB3E0AC53E63961C5 -5E907C0AF81F4EFDC34B9A783B935C607E46C8F9F09264275503849E4528A512F4C61AAD801C -35B1B52E89BD38FD530DA93DEF7841B702C7C1311ADB4D94A4EBC6ED84765E119AA24C49198F -892115F813DCD7ECBDC7427B2F649C051F915963F9765266EE9C2166C89F58B18B60B2B3066D -6157675A3962C513B6B4C63BC6F1DE65C66226D706BFB2C7D175A6D0887A2B2F7DE5FAECA561 -A0713E67E7C08467C6EB1673878AEC02223A2E5AB7CFEECAC0E81DBD5E7DC26B2DEAF0347B0D -4B23A8B95DF47A7DECCFC0DE2F627D669AF20AD761B6DFD1EAD7144993F935E82E87F1048E0A -368B7F3E73876CA1C47856D1B4446E89FB0FF219E1AF5857E435E9A9638F3F52AA94985115F2 -6C9643060D79DC3EE65EAD94962D9B0D0736D2FF160F2E2908881BC420EA953837F85811ECDD -5FD29BA4969F064B7F3234B792EA0A2664E4EAE3F6B905C86FC92A4562085614ED504756E90D -709D1261D9EC682D816AB1756841920A7C4A041F007A712E00E3F9216D8BAF17BA6F24EABF10 -C9FBBE1D455A10907355E926ADFA877A61292C6B32F93A2983817AA2E3573E14EC50109F4DE1 -2E87C568C953D9036452306AB4F732F5016879A5C447CF50AED67614898478569427B9D1F8A0 -104EF1B67ED9C196623334EB032C50562FE79F5DCC5ACB5ACC65F564B360F3163081AE000015 -0CEAC3B528ED8102132537643715C7270C168843285EECA61CA7ECF4220CA050747A770E4DE8 -5DAB279E55945EBDD7AEF04380354FC198FBD3DE62D86C6C2DEBD4E587081F21EC78BD8DA1AF -4535E342A1D799D17B93BA81566FC91D67AC3F4A90053441BD3E26E36B6B43436B8777261B54 -6F57E15EFB3E67660EF34F49AE28B740C2E34FBAA6037751C1CA57D7AE83C79D966BD87FECC3 -A0F6656BA8DD3C2C793C3A47716D53B205E1548C6B03AE8956F004464C293F3016DD8888329B -9E525131E1C64283E26BD10F9906C161629C74A307693EF222E67C7B383D1A1501CA94189054 -D49808A11A4B5DB88E1BFA8694E0D1F3E3B929CF266D8F028F72CE0D066658B9A654E2A5F34C -9A718FA819177EACA9985BC0D6942AE343464B494EEAA2F357FBF8A5298D361D43B35F88625A -965CED31E52EAA139A819CE82B7625AD138A738899ED1EEAD6892955A334042E14145FD2FCE2 -F749434B0C0CE1B270DD7E10038BCFF58309175426A6570D1C347FB255BA26D6BDE27B65F917 -65A09D2BDCE5B8A3E308523712FA34BE419056EECAD69AAFCE5618401B61BADE55FA2FA236F9 -EB494869331E8025E5A743B4FA10336DAA88F202B2B4DF5C1A0C8B0C8EC011BB0C61D7A36B0F -AB141A81F142A41DFE30B729048306A6602F7B27636E03058A41FEA312D270CEEA706194BEDE -E5254B67FA486F8F240AC53D33A3861F85E4266ED1E7EFCB23315BF317C505441D7AE588BD89 -FE60E2DF2755F6A4B11B8F32F54DBE78C77A6722A542E8679317CA1A3F8207AC8139E883F979 -AC6219F56860D4A548C6E9BE5F9BCA7D3CE1981C4EAA725E1D718F3C08911CF1AC37FB3D21DE -F8668881159B8BFF9C8A19EF81B48FF6A5F8AA32DE6C53CCDF23F05366C098A90256442ABE0F -E0C8BA6B14EB49D384F9B938CDBF2031899B6EB32101389DDABF5D3631227A1CC5D50727217A -FCFF087406FDFEFCF89F239B907A35160545F7B9E46F3D7870B066FF1728A441AA6D0D93CDCB -9074496D8F4788C621BE5208E94C7C245D2F90726F4DF6F9F282D9EF2B08BB5D7E0722308B3E -47DB69C9F04362C46F880CD46736974BBE399D51EE17F8FC39653B335B8742730FFE6565B593 -6B5CB16C4831A6FECE44018EA40A20CFE424CAAF3C1AF4AC3529A053A5D36B5CE0F0BFC9B2B8 -15FEDA34BA3623970BB881557E16264B379D26A04E3F1FD5DB2584F8910E44A645044B59022C -5DE3AE635B34C76F3D4858C3BF77DE03B3AD149C4C66739E91345096C7DBC9B3592C99200566 -0DD75982BE137DC1BE03C1BA3852A4542B244BC71E4F0DF340F6806EBF01A8465AADF52A7DCB -EAC40C5D0A55210CCFA0754FE3DD4CA43DE8BBFB47DFF8E37F89439DB16A7EA25FB14E20FE02 -1DF2300D68F120B36472E0F888B1FCEBDC337801B3576F496D58B46C3AB7CC79A845B56A1242 -79DCEF3D4F70818770C9E30C50C92F4598363547BE8121CA4087388C1E75D8524AAC17B193A0 -71F2E33A894D0754608B35FD75901325350E60410A6A8194D655B51FF9290F5A965FD1EA65E5 -1FFC4E4F85F3EECE7FD48A32B62C8ECE004BCF21251629D44E48CCC0C1EE05E5F8013D7EFE3D -CEC26254D39843FD1BAF5FE4E51F003B889E39ABADF71E73406D8FDB53F4C3B0255774E6D1A3 -170C982528AC7341489399E43CF862BB7C7E3FD951502E71CEEB6BC1DE22423FED015D9665BB -87A1DE991AC54F2CCC44FCD701861F25EBD97B9B4699C3388E9213BB855D8B2B488D808147BC -6662D13EABF1BD8E8E64641E0C8695A89E8FA04BEC5E4D82B4C517030747B7585778BCFA24FF -B962C2F8F3132DF365779A3F5CC428547F479B6459A671824598F4AF8ADEE8886650F61B008E -DDF5FCF68280A422CFDBA4F1647156F58ADB6D803A8202B1AFAC46A8A176CCEF7885586C0B06 -5081D9A075FF7E41E53F964D47C6731E5EA88E6FE1432605C93B1B492D1AC04542638D3751F3 -88BB23F8B3E96B406FE889762C8815AC2FA24FCE35A51E27C090C4672285F9E52115A0EDC56E -F9871D413D2A9BB1C28F0C628848D5A42824DCAD8F15A66D0F9DC8EE1703E679B7E7ED91CB43 -236F7635BB3F7F97595C7E688BFEF954254B928A1721717DAE82814A45AC395916711369712C -450AF99909411CFD5CF4D55D104420A8579A2A78B49F9A86435119A72B4F4C418AF97DBDA84A -3ECFAE7B741CC507ADDEB52445AC179CAEEC48AE6EFD1E8FE73A70CEADFFAEB928E5AF4C71C3 -E851B5D010DD17F69CF723BB218F293AAAB689FA714CB0F4583A03388EC5B72709818139B2AF -E90FF0387FCBE4274757CB87213E29C07E254E99BAECE82BB7AB9FA8802E21616E454FAFB8D4 -86E95CDBADCFC9C00D8C1E022A74E0D6F46AE41201A6E6A8A09DF4EEC2743FA5D64F2563D5BB -805637092816B8CA4554DFB8052F6AD8A4653AB81E1DBC9A971D506ACD2405641CC12A4F5E5E -72968F41E6C8E0C022DC54847D7EA5637160C80CEB33E91E0C6C8FF410C5BE423716E671BBD7 -7598F17BFC3B71AA45A4B4B89C697C5D32A76F09A433E7043BEA9EC78E9D120FB2450F25F113 -ECB45CCC8BA9BE5563EC54691CC11FEA2E3ED2BDFF21A1575B79D307806F6A252E0F82ABFB06 -328F9E02CD6986BB610C89AFE178BAE9512B541019ABAF0F61B18B37C71F8564762935DC729E -7E9B3B7FA3E5E7A5B6969848230D254B67D0044743E904CFE38FE56380B1A933A2AA47158A2B -33536070B7E7DAEBF60ED5D2B94F812ACD1B135C963CBF7AB87783CD269C1F49B51DAD346E9E -7F5C79D22020F251DB7C5F13E82B45428C27471E02F54ADC8FACA7B244B8A2203EC4A79E9B11 -BF9B1C78D05954567D64FC7D282E3278B5EB25D874C7BB7C7D54909D100250600F2CA7649B55 -69841A681D77FE7D3FAF7688A1EF77DD8FAEE8E02E6CA3A2086792050DF6B9D72757A4C88D7D -2273BD7F43C3FC0B5E5A7D764CD07660F4DE610C8F928CACF1D8549EC908E747E452CADB6065 -AFCA2735B2CE2E75F16E1268F2D22C4630C653BC70E24D1ECF3A3AF93F08FEE3291BB08849F9 -387D8A5E83CC8A213E6D21A17463958A356F83DEA2992645971080464A2E93CBCC2F8E17AC44 -4059E56434E1C82190CADD1C2B9F4A8C37F6022D698727E75B6489BB9F910840D15955FF59A4 -20273DC5F61D356E2EDA5D205A58E75B81D183B2694EC2837E7E96A31B9260199C71D4F6125A -0960508B61BB548FCA3D8CE016DBDFF9EB5DDE018458E9A2E37E66EA35F62377BC0677433BBA -62A6569F08762020B0AE7DFBB73FD1A00367E45238E4F379BF97F9F8A9550CEAE2E18C650020 -83A53B1C4BB221663BA738338B4868A8A2EA3C5C8156F1B0736D7D3D7EA8DF611798E5CB889F -6957B8085E10730C91A75327BAFD19DD829AEF42BF6FB5C8C1B20D1A0A18818E12133B366F56 -B066D7F7AAB6596931567520470A1AE7DDE2416CD7A3B305D4D295DD6D805BE74A809C938626 -01494688A39FB2B5CF6C9198EB723099CA38137A8A7AA033D943BD6C987EEB9682AD2ADDBC9C -7CEF9CB0571BFD480F1ABEFED5CA2206AF07EFF78F55A4799F86D3A4EF5B60D8A126440329B4 -B20A9E02789C58875816B34256BE42E521B84782B68D1432EC046F58E46F717E411DAD2E5D4D -B4F1241AEA343C9959763AEAE109A480F0920F20EAA32EFAC34C6F6F887661ADFD242FA05A59 -4059383D2140CF55EF6382EDA3CACE984D623756FEA5250B52BABACD1CA48FA40B463CB98F2F -97F2C4EC9CBF67A5D6440478134FACBC3E91B02BB85EC0BEFD7495DDBDAE5D33C40519402F13 -A3D1E72C2800D8FD1C74FC7B810B23A0BB783498C8A6278B09230FB0681DD7256EACA65ED14F -38EFF1481F402E4C139EF95DB0EB1FF914EE0BDCF64C82DF6B9D6A11F4D50C7BB20217D97467 -8FC1F874EF8BAB66F290884BAD145102E315A929197EA9A28CCF88144825F38502C82157DA1E -FBF40E7A9265B6B00F1D44A12E9EDD13191573193BD1C06606EFC4390580B6269B390335A905 -1DA52D6A1A6CCF79F94873EEBE6660DC2EBEC7B577FB0CA9FBF6D58760670350B67E84862671 -A614F20B9A467BA91F3C81B42AB50955BA72D1827B54AF1D91DF01060BC03718E3A6B6934137 -DE6748BFD0E827F522322D4EC87CAA126281DD2FB083BC821E416E5FC15AA54EE7D941CE6AE0 -E863F132D723E94336F787B71C5B5628A570638384B53E70C8894FA8013D49C46DDE800B5574 -EA1808AD61DF5797398075E0D76D049DE3079B8BEDF4F9457F379F9864C04110DB102D3DB0C2 -33D94EF00177057A6BCE716C9E22C75C43CBDA61BE14A10473E9388C686D3DA1F50B8E4C6BE6 -4AAF43A4DDF43D13EB1BDB790F3EBED441E8AE4FB3716ACEC1F8CC8901BDC8D6FC00B646A5B8 -541C844FC26C06DC68F94C53148E91EE663CCD865ECDCF5E6D68C0F82698AD4D91D962D5887E -165F31BF513436D0B3AC76BE50AF9C576DE1CCE9EFF4EB558BC7967B57B6C0489BB3865234B4 -440D4B3732340B9606BFDAD150DE6D34583695A41B833110B235BB31512CDCC32EAB95CABDE7 -628A6322CD3B68EC4228E7006B3103A4E4852CFD0388E334939F07ADB71D8C99A2E55D43777E -A1B296C5C22BE740186E0A2B51F80E136CFBC38249E41DC16DA43FB5F4C818B50562240B36B1 -B873244F033D0BEA70DD39C4CA9F752E13174079155C0950257B2D376A9E29997B8E24F023A3 -7AA98673905C9B25D8C22ACD555900403AF3219B35CFFDB4562452CEB40C56B8300A3144D8FF -CA288BCFE520D50FF6A58A69B1DA6A4CCD9E4CB67E0CFF81F6686E70C411A34A978ADDED5E57 -5CC360BE866199C19DE6BF8F469FF02BF0DE7F2EC3CD4C3CD3A40D316C88745E9CAA603B075C -68C060631C1F6CE0C73BA0DCEECC6DC223B9F3A341C2AC71F373CCBBA02EE91C6D838D9014C4 -2A66D4887029524F1AB1CB034FCAE5E0FDBE31ABA8709D4C1108F0B11F743F88DC0E9CB57228 -4752A949519A2D1F32279A45D4F6A39FB0E52D6C63E61945F66A4183457E3A4C90606E58CB20 -393DFD3DA89DAC1A24B254B6EA73592BFBFBE1AC5D6FC90C88C31408097ED545A41467BBA99E -3DF1F933B03277ADE2FB1B94C8389077446EE1DD8B73B457E077C9AC9A32326E4682B518D6F7 -8FAA59AD4A0040918BE71AF4A3841222DF243529AF9033FAEF30CA38456F91D150FA5DC1713C -6EB7D481B79B70A784C1B7F0D538005A23FA38D28A4485C4838679D7ADE9B3CD9418B0195E40 -9C760F61825EBFA38BD18B206DA33FAE0A275717EB2F667EA93A0DE2F038DA05AB405236682E -616265BF5D1B9704F3E12E3A0B1AA0EB03DA86F399B99FA276C17EAACBA70FAE534F3262D6BE -118C1712B9FD97E1AA9ABD23284D728D37EC1A1CE6A69315ECDD7CF90C82836D375671377EA1 -86BD87CCA4292C962638A521D7903076BDF6E1751E22A72AAF2E8BE7F075CE96A536DC0A934E -0728254C417FD73ED73FA28B5D77D7651EABA2435C34522FD22E419F48F7CA084EDE82DCCF69 -5436EEAD7034658FF364C9E916247643EA515DE87C8D0E16E6B13581A6951F6E5CE070FCA1C0 -EF05901E8A2232A3ABD671E278C77FBA2D99EED22E5F60F18D698F9138F88FFF86FFDFD3561E -9B17C69CEF12365C06E92B0390230EF5C819E09D3F4BC3AB8DDF41CE99F5DB6A011301F1365A -1BCA6BC0D5835568FEF36CA5654039F3BF00F73F2A735A5C519D876E1BD8ECA71B421D3529E7 -E5A011F995287AEFB99AE526E40E51425CD63F971955B3CB1958A265CCBEE7C9E6DE28BDB3BE -670B3DACD28999A1481659AE85BAC235AD4F389FEA7FCC35872B49F693D1E69700942604D5ED -5AD4273576299F977B0CF8D67C4F284DACF9A77DA5ED45E3103F4EDE9750A23D0C9B2C180CE5 -7191A6CB6D286BD12A04CD415B78812E8143EDB42067648619F656224039ABADD89020F462AA -E701CC5F49B7666A4B6233648DBCF2E8564939A552A34F4E588990FAC3ABFD525654112AF367 -62E2949FEA42A55A21F2525A8C15AFE669BAE31ECB7BD1D46A360697DE8B07AFFBA693E77B53 -B4972B80DC8556CB3EBF658406629B5111482EAE2FEB065138FA244A563F4766CCA825C94ECE -3F8CABAC49D59C9593F24BC89BCFBC608D3FFD5623FE83288F68C7DE92E84BB3D11F851D49FC -EC7453EEEFDF439C59732C3B54584BA23DD9580153624B3CB438F5A6F4A5345E6D2097B6E292 -3C3EE1AA831E55AB6CE7B46E3F696447D33D4F297598052B4459AF9B96757F2517F11D965B53 -9D7417F9D4B9FC92FFA4E8AC777BCAA6577ADE30B3347DE4D4A0EAB8D0678037789C916DC151 -18AB29300609C4C4EFF78572365A234AF57B89BAEF3D7355F3E7D9A20855E392474B053CE1BE -3F8D46AD131AE93EE75EDECE687714E3CFD7984695BE2CE44ADEC0F4BAF81E55982744BAA372 -7A2FF2261342E9EBB85D541B46BC50592BA090368B31AB3110CBFB073096F8B98E2D4A193B48 -DF4673FBFA654996E78E76F30D54C1DE8057A37AF3851D0EC398F5DBC1E234655DC6EA332590 -F079125B9D82D412A9F462D266FBD6A0C07FADDFDB1EFF3C5DFB123A884A705F996B9C9C6F7E -A8AC33C46B19A8A1692E84B1F1561EFDD1B65340118436E0961264E28B039DBBB025FB99114A -05D19264CC87740D78EB9F507923FDF488DA73D7A72AF28175CE559FF7BCA8E07D8EEE85C9A5 -839E87F107EA5399184C735C510213208CAD46D30EBCD854884E9883F0BC2D4334F9A26A6691 -8D5A5176749E2038DEE6276DF72695589485EF88185ADBFE37614903DF8B6D857859005A735A -9FDBC39F3E712739FC4F251A9B334583E567353793A6868E3545007818E39D81492DAD796E3D -58CBC82DE3976A4C2D476CFEC4F7A1E73E408DA6EFC79589C6AC784312E5C393272B1A4FC435 -8EBF753EA9E2D16FFAD598FE8AB52C7DD2DB5E3513A61C9C3BD9336A230EE86E7285404D760F -451BEA0D59C862115A44683139AF687D029A521F33698A29ED81A79906705FC20E6EFF1A42E6 -83F28D4C8A65BF87BC14142E6EA0DB14A9C4A72DA388E8FB03E09A3451B9C33E6117189D42EC -D4585C966B50718835AAEA885AF66C1A86D3F93F81BA3B829A08CBE741235715FC32FB251418 -590E19A42CD44AFBD7599E023C26941BDFD722F1B192255A9358BAB9EB59BDC13ED4B759C81A -6194A018B02B2188E163FA9D50B603D0B5F64DCDD8F5E8319C0719164DBC6B633AE8345A26AD -CA095CD7BBB1185E71072C2D9138695DD55C9081520F23452D4FB234A4A2934F5358F1D66CA8 -9032A9828FDD8B7BF706EB44E3DA9592C79FB4EC0DE571498C10531CED53C55EB2415A739CE4 -B235617754321395D877BA072FD66DF82210368F471DF3A7929654718C31827A3B8EE3B8C65F -E1B056BCD1C0F6FDF6FD995BEAFE4B6C3C58B181FC61BF9C49FC5EA900BF952EF924A78B0E1D -44B93368C215E733C62DC2B14CCB96F538EBDB1F014C55E8731F305E9DE5BFC433495B0E925F -615B315EC0739B71A70BBC30E09A85DB229BFDD1222AAFA5D78D17CD0C27CEDC20B4FEEC7562 -8F3BBD29CE3FAF25B3E7F32150B471B143181E104B3748BE55BDE9769CCBB012882ABEE02433 -1D268EDD26F9B5CF5BDB1200EED9D2444A71D7B7FB5C92CDB313F1FA9160BFB2FD7CB082E6BD -88CC5C098A7D6E9FC626D67EAF6755CD50A46E2A489A2293CB715E9F04D079EDB278059E6793 -F0DAFA5AAEEAD3B31FA2520067DD30DEAA505BF238554D62D005887C7A09DC4591BF360FC87A -0ECB7087428EB8B56616A1F5B5349D3C0A7AAB806A450CEC5EEAFAD32644FE997C07908752DB -1CA3A96D1C3A708E8CD56FC0C21E9951BA3E5087BC5FCE7A96D70F0F90973E3FCBF74E38B0FD -D665552FD58C6117B5FCD68098F116D44EF168B4169A048B5833C151B53BFC4F72753340AAEF -B570AC1456BA952F812E64CAE650DB86749EE8327F63C34D9E74BC8AEB85CB04188B02981801 -624D108B6755A755C98C9D275F85699DA502BAF7455E1EA7B54FD9C5257AA7DE882A604F5023 -F1F6B19299E7C772A26F793499B32D18F227774BC05B25D7C3AE7B1E2A504BFC33900092CD81 -87695CF3293142405755263E95C871A9EA894175DF60371FA7D5A137C7F31A68A0C12AE08ACE -6DF36A82E5BE2467724ECEB1DC8533259C2E4CDA3DD153C82EC657D0C3D6B9CE96616C23D921 -22A455805819E3642427A90FCDE30970A04F325F35BBE463AACC815DED5EAF660096EAB8417C -E8A098500F6FF063169430C9D67E8CE38FE9202E4B88A7B2BFC4EC797B07FEB64B4D4CFC1E60 -42957BA81D7C21AD4F21A279B043A1A6186C18D86DA0A07235DD694B633E8591A460B4CE2124 -86F108053A082A3D85487EAE9528FCF6A7848B6FB37AAF54D5AED507E208D0002351E4143974 -6EAEAE18D4EF99BB6D0883A1B8921FE11E33D76A0B6FDFF18A2706626796B952EE809FE14DB9 -C6F4FDAB5791305501F084C029DDDAFBE1C2CCCD22336A057BDE02954F3D8E9B47400DC6C4A3 -7E9AD0769C6ED555ADE4DD1745995303D79F1568E072A2AA4F7C26F6147F90BD644B1129A2A3 -48187F9101198FF98BBCE37F7BAB5FD90E265CAD0B4146729585F7072BC139F087D532A484DE -356239B54E5CA2FF0F6A3B66BD97FDE533529DABEABAA485710D38602A243F0AC6FD1A7652EB -48D4ADE925D8270BA95402AF131F1031E6B2CC54D0277730C2F911903452623B60DBE8947008 -6DDA3EC33466DD68C9DED90C706912306E4038E00067B6B91E710209AB1A08F2849689C40DED -822650102826E1165685E3EE5ACCB7B22553960BD3DE85FDD8F6702E863E8ED14C5368D15ED5 -0C20642B9943669D48D2DA7795EAA06E0A44F23318D0EB807D28C422A60390460100842D769C -88F813280062D1E39E16E45F675EEAF84F33556B67967878311C83E77F23386EC4A993F5887D -48ADE0DFCDB8BBFFAE22B5319EFB64C7B940EB68A54A65BD94BE4EC62B066D4D05872704C0F0 -3830F155B251BC787ED7DDD51C37F0D52F882FA15BEDBD18A1F3E4E311817299D94C32B6D776 -5D67F4E201C5175CE2824A7259A8891FB2C2823AD9768CD5A04D6BE1CAED75BA0EA3764D8725 -48FF3786E57CD5CADAEA18619FCAAF68B76CABAF000BC79F2826EA9CF49DCC8265457D27520A -A9E9A88A22CAB896C12425750246C46128A546C090B5C9BAE9B2A9205E7E6F3BA3944E2CD192 -F7CCEC362A6781CE1AABFB64BA796094865B89453278D5800C619DD0D0E35E8793C574A33D7C -CD6C039BCAC6BFDAF9D3A593E3E152958DA87F4F2F9DDDAC6A4A8D2043F92BA9FAF32591B986 -02F1B13587F0727866272419C78ACE3001A53F9FFCDBBC3FA12ECEFC28FBB37A44219E17B57B -A6A502388935D27DCDDD224DC4D53EE533E18A36D9E9D4CC25A7339C351129F1AAF2F63C852F -709A3C5E58BB1256FD5164CFFE1554B15F5B2986AA120B2A93DB8E78D230D6C432CFB2DA7C8A -10708324BA5A1100899E8A2647D62550C2B2D0850D0636F715A46C2C8F357017764DEF69431C -7549008D62DCC1403EA94C9B96CCE1E0EDBCD14AC1666D1000ACB64480F3D0AEC8191FD947B1 -D62CB369746F8F9F9E248F4367E60C3BC2C1CE505A5A0E2582ACB805FB684B639E984D18F45C -626B13791B456174FDA55159B928BF55E4FE05EDED2D83AD0409A43D13664F4C5C23E6D5C204 -5DDFA8775FF05E9E577A54B9A6483749D1465A4619B2EFECD9D4C5822AB2192BEB1315CEAA3A -4EB144B61CBAD36EA6FD03B76AFD635CCD900E8A0EF92D2F35CE223C0CB5AB595D7C5812F4C7 -DD835983BD79F187899A91246270DB36A8CC70E07EE3ED7DA84EABA5E73D220EC2ACF313868D -A9CA910B6D711BA186C40D66B2A78C1D7A3EFDC9BCEE383F6190BFCE35C22C8B51687E600FAD -52408A553A6690D6D84918095C3A681C4AE8069BE845AD4143D733664698B99389AEC024EE74 -854E098D70E0BA1FFA85737D31E372243CB9DC46FEB7E9EA18F43187722764687B962C789AFE -F0D4F5F90CD9AEF7DABDB8AD2FA21C0AE9DDF13F22CB2FFAE2BD117E88438E0B8D2DBCC5C6D3 -F73244DB6AC8045322CC1A363F8339F53370FA307CC431E7C91756C2282DD373AA8965E7FCED -9CD9A7305F97060AE8C43FC0BB52197157EECB796825A670EA5959B7315E71A9348FE01BA1F2 -E786A1C546D872FC97BECC46541E517A508766BE9308E62C4AFC21AF209E17A1DA85D969B8DF -EDC74B07A2B64272F54F00D454E6980563FED97DADAE75467109C5AAC2A4AFA98A0FBE011A1F -F9CDF1C53F5CC63D2C65B6FEC2E12BF42BC65EF0A69F9A04B50A9A73AF5F21DFC5BC20A95EE4 -7CF12474B2A80157C984E6ADEB275CAD0B41467295858EB16E1CA9FB10664CE74B45D52D6FD2 -4C714AB5DD8127FFD8500B149A8C8732DEF2C4FE464EEECA6B8D79B1736594A88473C02EFE80 -3BD328E6E1820F69C748C1833C753926272B7A89CF856A159E4AF5E45AC06C8B540CFEBA87A4 -8869CB02C96A2B5001902DC46C6BCA4A5490FA000AC3841C3AD62C8982A96608DF20FD71FE95 -A4025D0DAF6908229254016FBB6E9E7873A39419DCBC7372568ACA76381381AA2EF802FCC2A2 -1739B3F6D5702AC74BBBB6899E4A3B775DE8105AC6294E0059DE2B66FC1F181EE46CAC599848 -578AEE2DCCAF2F4A1C54A0411B352EA1485A6771945DAC4339E98D1153C4995A743E1927ADB0 -FC69E93BF1AABA5FEE60DE19B5756708D51371FE883C8A9FD21F2644E6C7FF7C360FB8721FD7 -24F72F3517CD8B0AC6CD95E015A94D814A9A97A556BC3B8C26B70C9DA49836BB7EAA0F4FFD92 -8722B664684DBFB6B87CD83EE1F6AAB258AB3E6E69EBF47AE0288E09619267D10F31C7AF5DC2 -58CECFC0949BFC756DD76316DB1DAEC2D093524EBCD3FF569AC28C4B871B6D14E5FCD6422DEA -7F8EC14E67942D154850C2CEFE6DC6E5DCC58C5FB34D8DB2F3C7E9F21791B9F2233400CBFEF8 -E988F445DE78860C2F3D18B1DE5D7029B01544F4A4232ABD7D04DBF009B3BE0C3AD9940A65AF -0DEDB4ACB2896CD9D578192D25DC620A9A8EFC3D5F0118B7CA90479A13DABC358F8B27AE31D2 -E3834BA7D981BB745D2031234360EF786F1DB8AA38CB3BDE919FDBCBDA06B54D692524E13F54 -55C1A09CFC4D384983143EAFB4722696F0945FF4297E61F9A9FC7005247915C596057B97792E -C79E0463A72A5A5394C32569A9F14F221EA7E606F10872C609D90971A09528377D3382C8678E -BC41A63861DCD04411F508B8EEB12BD8B862DD86550CB0F9E5D1DD7F5BD855893A2F847A17E7 -7C27641D2C9EC2F64C61A8A809A46FD3E343EB201ABAA638491C13F4BB697504037E3753966E -4B4023628A9E0DDCA764CAB365F3AF5E1B364D9C33145FF1FC0C777755BD74E92B8C99F8FCDB -3A42F0D54353AC9AC76249975921E7709B5763D7B5776EE9CE2C22FC9BD029EF3830758CBF23 -E7AA88E375C3FDAC557DB7A1B407DB465F50F2BC9ADE65D45A195865BCFB3FA449421ADB5F9A -AE23635D26FE93AFFC1411A7E4F94748F189DF3799D891F386B833E0B7681A56ABB5DAD46A66 -00A946949F6A9C28E3B37D3145FF4AF35C4B5525F61E0B98033314C4A844DD92B60DDF7714C0 -7AEBC65FA5F89FBAB6F4FB91BCE885BD17B32E44721CFD031204EBBA6356CA655D483BC8155E -7DAD9D5F77ECD02E50217C265E9B0BD695B058C0A51EE10F6BDB9A217F423142257D683CE751 -61F71660B15F850A283EA6DF969D997098DB7FEF0DDB22E5B7C8AD748C964B54B55DF47E98E5 -F09154F324AB1E6A0F0A04CD54BB7538A243E14FF914CB80FAEEE4E2BFF428DDD9F5799E5626 -3362340FBA704BEEBBD8CF112668F9B4544A2CF25E2787BD7302EC994EBD6DF12B59668CD89A -D0A0D3956EF9A1A00AC4C85BC80DC6A4959B2538F8F3841F2ABFB40BF4D8B3AFD0A0024F023B -8A4F606652DB281471BEFB12A232260D9077F61D55D0AC0C01640EADC7FE87804637C50786FA -1A63927EBEEE4C640A4E8CFE893664E7C2CCD757D450184F7E007CA3E4A2D74C1BD7C3A5E7B5 -2C8D2583F5BAB0BDBC677740768392AFAB4D66F0619AC8A4490DE77F24294C1C199F181AB1FF -1CE2F48F13943C8B812709D684100C2AC78788053783A8A64AAA5C9C9B2D2111B364FDD4957E -3D8DDB25AADB84FD9E1A99C692E1B0E210782DC5ECDE434E12A695F9A620156BAF053E977486 -6B1468FEA94E71D81FFCB83DF3F3B6D5B7592CB66DDA7B0261580A512DBEA4B00F50116529DC -483D6D03E4CE9A7AF11370ADD5AE2549CFBBDCA096F46412F078D28C8ADA8CA46B347EB1154D -7072C8FA72386BA5972CAF1494858FD253113720B4B8D86D7632947C4AB3AFE82202256651E1 -1721E3A48A6E11EA1361EC93372C24EDEA7A49BB1C165F6CBBBDC046E80D5C3AF6EEF4159834 -E11F2C618317DEF428F85C7617E91E5D6D774A4C89379AC883AE0DCDB1B8AA1985EF75F7F486 -68714F130693C29009254CCBA46D2A8714BED613C2EB4DEBC3CC66775D5DB9A730F93AB7D791 -5F9242BAB1FDB94ED7A7B009CE8A37AA3723AD6C92BD62814B2738199E31E5D13A4C45331B7B -5ACAE97774251ABF8540568D2A4485B523515EC15888F994886E435645DDEA4D5CCB42BE9F10 -5FDE8D206BFF84D240F94253CC99F5B887047BC942C950166ECC01F1B3777CC50175EA1F2622 -3F7E9C1BD9E53D62188D50CC497C7B335DE0F4B88AE56A2E5063C2A5A097E4B9D82E2CC60369 -35B7ED048057D2EAF0B2AC3C415C8B8128E0FB4A253F8C345D03A3B167BCAB50DBC378EB89F7 -31232A994EBA7BFA669EBEE582B323A02F082CB4C6D524BE3B9CAFC4FBB88499015E10B6CF88 -A4A7EF5AFB509D5CF3A38B6E4D7BBC799E683833C41D8EB64DC40593CBF2EA038D96035390CE -21AF6EA51F038040A571EDFE2045D04A33CABFA073AF4FD19A874A00D1F7D0F42C843035CECB -D7E4B93997B7ACF9D4F3F621D19426C930DF08E5F0495F54931E745A38E74BD0DAE2D3B069B0 -8711AF89FFD6DC9F88E558865EA3C16D4211D4F5F249120DDE323F09C76AD2D9B073A4AF2E0D -455282DCDCDFE835670895395B8ADCCE90193645FBE45FDBAA283D8F8AD333CBE0BDC93325A0 -82EF233B2F8CDDE8601FF1C8F09FF2524172D9A97BA3625949A22F951224B1A9A97ADE1D3CD5 -F41D8EE17ADCAC594348DF6FAC171B606C92770020FF0B59376FB1AEB72D085068D30E6256AB -887E304B22058844D2F47C482ED2727C68C6F894EA674006ACDA3ABE7F74467F47DFB495AC48 -72C842052FDEE81A1D440502BA50A66EEC4ACAF2C7D6100151DD91733724AB8E6036BC9DECBE -992464436C131C6359B93EE1472684ACE970C09AF4E4C6C014CF468EEC7864BC2145D6432A38 -B4A561EC810ED5DAFFE353929EE387F38FCD957F958BB53C2AA7E2939EA5A80AD95A8216B8D4 -279BF3CC5418248CBB9D9F1B6F171520D668E763680DDF2C4E50E484D49CCCDAFADE65529E03 -F734B3C27E865C409C2F973F878955F7E13B811A743B797594208067EA8FC67EA7DACDB54B54 -E872914279E918434BB40295F8F9674C2B451283DBD4B758BDE32CB41ED527F5E091676B5DA4 -F0A43195B84C26C53DC42BCB951AF6DBE2ED6ED84BE37AB62C9EFD891CF5AE073EE95B511EB3 -20EFA7D967CE9C90F1392788C06D2A4CA5D56C9D9E73AB679D8689A21E8DE979DD731B97C92C -AABA7A45ABD838E17996D7A3266DB63F87F3EBBC20DCC91BA4744EAF418385069E9F3F8188C2 -651EA788DE708891603DD237F8A5F176D58AAF5DC927E14EA9100788706425518A1E2C45B1F4 -AE077D242537FE27DBE49192FC6CB537BEAE9ABFDE4760AF0CFAFCF88CBDB708144D7F9B8488 -8AA1BF2CCFC28B79867D77BD72CEAAA21FC89D661E092155F863BDEC7E69147E75F8A4CE73D9 -6564D5F742BF75A86BCA08389F79F1DC998CB6B981F15946DE8CF1B934BC08E8459CFA9723BD -121A2699CBDBD84819B0299CDDCA6DC1D902AA74CD2870BAAF5890F436635DBD68DD1480A34D -21D55F862471A03674318BC68C27293556F5FD08BC40CCB66BC577BB392AFC448B45B35311EC -7AD891D9FE08D06E4C6B6751F3B44280FCD657574200EA3E66BEC2A4322A0C942B03F8D9D584 -AE310F7FFDC0FFCDB1DC5A4EF2053319CCBB53DB6DDADD5EF4A65C70367B8A4FAD2C21034701 -C09200526BCC9C812A1D5FC039DC0F3B3E33CFEF7949593E4878F9A85C9EB4FF637D583EE2F9 -59203F3A83C9AD5C3F031F931DFBEA912F2EFE680A624BD622FE51B6F5D324695264C103B924 -BD06C4CA0618CA4DE5888CE09E4587B80841B34A0BB6693C44B36BC832E5D4EDC8CA7567626C -A76408D598CBDE5CD93FC29F6A7B0FDC699D9C94DE613C37D8AA9EB9F4087BCA80449948534F -282ED0321AE9C530A8D5EB9A6AE188F666EB00F0104EEB1587CA41AC63FA1062F5A0B20115E5 -0E584AA2116A13C26BB6DD1DF6FDF4CFF3E22C67CA9176F156CFED5190238AA88379DD78216A -6B357A892D84A80E3C65AA41ED5A52E0AB769AAAD8C6D9271285A4226079CAB7568082A5693B -9CBCF8A536A23F1CB095FF802A1FE3EEE9EEC4588AA1B9BECEB13A174908AB287A45BB19788D -112BB7B4947CCBDE7E65EDB0CFEB3E98B88CCF10F1ECAB0120D9FA2CD37EF964FC636A3AB8FA -02297F6680BCCC0CA03FF463A0FCE4E7ECD9D167826EA384543679029598EAFCC2D6368DB58B -7C6461629D57AD663364E710807AE7C4DCEE8B7AB2D8DB119BC9C72621F8BBFF0F72CCECC5CE -125B85434133B75B69A137FB95ACBB4C09D32BF849E8F4178AB5B21CDD45064AEEB0DB27812D -4B31DBF29AC1A6EEC07A8A480064995DE6015C148B07F9587B8C3F7DDCF9A11A87FFF7FAB64F -145003954F4E23C4DA806DB133056602DCE59842127496D15FF90290AD957B91EDFCD06242DD -AC00C14B8CFDC6F295300B31BEF872BE7559EC0F7FAE47F5A08C6B42A8F127351F693D06BFB1 -E9ADF234252B9A90251CED853B3E24F7040A8489D93A7B50AF89A2B57AADFC41FC3E22F9D820 -D2754613C09D97C08445FA7C392DF3804224EDD1DCA0057297C5D0893B5054CC4479FFF0DB74 -C86B7E2025FDE195D96A96A138E7E1421AA0F101BA284DCD26D6A48F8AB410BB0A0FDB3BB74B -BF0E21397847D3CB2F36276D58735A6E0CCF16C8B821B9DBC1C18D64C442F3D400C4B4E2A362 -D2936BF16D2AB50E3AAFB7AA154F4216046B149460F374F42542C6FA6E670300FCE91196E892 -5C8D80C0C25FD2C17BB4ED90697361489830DB023958000AA81F1C830341AF906DC3CF5F393D -63742BAFCCE3DED8AB40FDFD1479064D23DF9F36119A3CBCD99D42425D05AA6812FCF9ADF0DA -A883A750CC2E4A4D3FD33931B716DDA4A9B9ECAA8E3937AE4AAF43C131E24EE2FC5605069DED -2D8676A98A575EFE8FF83C8C11C71C49770A032CA5B0603F5E0AFFE7A53B846540F446960960 -1E87D395F36406F6105947B56B43CF315C0075E62231437F645E03FC9BBB2E909F4D429F730A -ABBA7FBEF66518F9C07CA35548174F41D789C97BA79493E7EA079857C65E1C09DE30A41D9524 -971C2929CE3C1E3F3B4172CAE8B60111BC380B7AC387844A365806B30A571FE1FADB8AC4452B -5180F7993CF060CC302F5E7F38EBAF9FDB70ABF03F65BBCDFC54698520B2685D24DA2B79836A -A1328548ECE141D77B58CC2600A7905E96609BCB8F5323ED081A9154895AFA7681EC90899CB7 -241FDBD06FC910790A94E637AA48E3D0A2488ACB2D3086662792300C3F527065D2BADE039EFA -27D2D0A55DE4A1BB6273F18624857ACD42C5A41732F50D1AF5DC748DAF271377FA7A0B82C769 -AEAD08123F28EF2A7725A0CDE106D2BD9BE10AF25C3CB00EA17520F55D100F09279F88AEFE25 -DA0389A5DDAFDD82DE8156A3A43FE4FA5FBE2812893B82589BDDC232EEC488E449A60BBFEB72 -FE6E3C9564B01CBEE3267144745308BC36CB0BDC7A7CFCB23CACAE102B581EDE7304937ACC34 -B574D0BB32AB28B811333A04578D867F27B3A1A34F9C700B68DC53FD0BA8A17A0EC01EE1BDE4 -6F852B90596FB300C338DC77C768C7F057766B96A40E25827FD2374C00F511E1EFBD0D9A1C7F -D551EE7D785656A7E3906EB1F42077AC5AB5C8826A858BED001E2D09E8383FBF522F3783AAB2 -B0D188BF355027FC3BCB32D9D5AAA2FDF090110050C1E6CF7AEAD97641B68DB383747CAE22E4 -9B328FB15A69FAA134C9D928DAD74FA8E76CAD95A0CC34553F0F5454CC7ABBC27092BC11A0EA -592EEC93349C3A72C5F7B479789EED2E077744105D5ED958042BCFA237C28371A8E93A28320B -CE6016CEC459BB4F2BBA0036CEDA82E0D17F328B51F65B2B24A5FADEB5C89CEA5F4FB3BBF56F -426EDDA043A42EB1F850DEA16522FFACEF5B30800757FB0B3FE3A04DB902C0F6CD0C0F96FFAB -0219274011A81048488F35809F68E4F8D8F259BC4653D7387261C6171841413B59D8E8F460F4 -B38B3F6059505ABA2E6C9756E781D156A372FC9681F9238F4349A894599140BEF11C2D1B9D7B -6576B56860568D3DD82A011C1642EB4AFB6AB5C74AFFFDA594ED429BE80FFEA9C0FC2C57FFDF -B60052AB012A310DD0F258AA265859680A55ED08698EC6E659E0415DCCD1882A557F101BE413 -08D3B58B5D3D9175C274BDB841C95340663A073F28141CCEE58DA0894A1278EA0D02D2457BA2 -5985F70F6880C4CDFFC9092958C69BA87B05867B166FB41BBD058D0CD16EDFAECFE5CF48D72B -A63E738ECA6789967549CA6D92AD07B4709CF89F0286B5D60BDC21F61AC5CEB2A8857FAC05B5 -B85BC5059B1D21BA58A01DBE52292AD5C385D0CAFD89FF5F02197492E31D6A53F982DA1D4D21 -9A7C0B12E178D3E5B84CE598CC2AF64898A9CA7E962A7D0577A5C09A4B013293F2C311FDA69E -5F9B99B5E8D55D638D310999C5CF67C7400C19B1013AFF5F643EFC8CF808A7DF7CA13A770E00 -A3706F6CE54F941A29ACAE388BA32413E8F5BDDCEA11949DC803EC35234EC32D0B8B3D9874BA -C26E69FC7987E3727E43796ECEC589F8626EE0F7F725857E3909C19DBE9AD2FFF1AB043942F1 -19C814FF062CE5ADC1D584A294C5F80F23213F20B373E323BE1480B75BAC6091AC92390F8B0F -F5BFF4D57AAE04789E030F113CA80CA13DD3160FC0187C1965B12274346D1DE154039AEBFB72 -02CA625C404A0FA4A17B41C6744D82FCDBD865610AEF9CB655193BFE55CBF786576B6C41B58F -6F231570FC58A6AB1755FF56EAC96A8CCF139A52FDE68E704F10641B113ABC0EE4D8738F7A28 -00DBAD05C5A0C1CEF547ACDD0424A08CCE1949B4663D448C09073A73F51FDFCDB0B188C0FD46 -7321F134FBF699D4D5DE0A0DC0B8874A0173087437C5496A4E3947F66778ACC35A061BB52CC6 -9AA4AC1EEEBA2F1227FC0643DCE745B5D09A4B69111BF003AF0838CFE4487E573EF19D9BE7DB -31B655B6068E033A6CDA82F2641B3EF060CCFDF9871850FC9B081686743F0FF6053FBA85F46C -7876F3E366B051719D04A08947177CF25BE05EC7ED5111D5B548D5FDBD498F322B07093A096F -9DF6FDF5AB0FEEE5E9ADC1DF6060C542E54BBC8477878F6D594C0B1829B05142D2DA0DA8F409 -92ED9BCE851A271921CDFC2F0C0084FD0E5C7AD63065194DBE0FC3E21E18430D358424107B04 -CCA0EA7E4D33D5DEEAC00D8E6440BD019E2DF69ACFF1242C41F608FCC2CEED9AC76426FB9793 -1C5B93677969E31EEC99EDB2C621C736542A9AAFF69F719040D790A4B769F89F8A4B8E039C6F -ABD00B847E5059930664BC568941F4E9C26EC28595F88784FECB0952F89FF343B5098F53AD33 -E78FC1D59429641B254CA299F61082EC4D74112F771B0209297BE45313CD96BF734912FDBCB5 -0AD1A479F795303DE0FB4B6A8FFC8F1F21A7D220E97323E7FDD0F2603F0CB12EDB59D7EF9FCF -7118D5303BC0116DBDB2E3452E1496B1CCE4AB7C0337617B47C9EE89E387713FAD9EE172FAEC -F866B7D22A68FE65AC2D63E160D578A6C43474B48DF58B3B81F2921A116B1AAC6F5420E1EDB6 -28AC9009BDB717F42FAE660915711EC25EB5405AD2552D07C238B6AA049DFD4820998EDE2E89 -1ACE380D6D981A8AAE140A2398663F0CDD0196FD2D1CF4339EA9BAF461F21B6B79182FCD259B -C0805EB78FAA5101FC624046CBD24366AA69A7F8AEC8DAF2BE839849B059F48C38C31AB3148C -A07002DEB0BEBE653C4D65639FF36DE66C3E32C9C14BCDC5B34FE0D960950DF92F6AD100A5F8 -96ADCD0825E60454BBD3826B1A5D1235B8977C14845D70FCF829797F0BD8767AF5D211507500 -B5EA2F9EDABB1816D18ACA624369459BF7CD1FEAE039768286551FF7A84784142A3F0B73D6D1 -32065BF5120D731739C6A4272E724153700F0AD86E09BD22041BA97462D92657899E29292A9E -35B8A86027D5577C9DA15DB11234C95B42738BA9C049EEB7848D5226C6A81BF2E35CBA8D98B7 -D759FC2CEEC144BCACE86642DB34363B45987F7E733D4798C76A9D626F212A8EC970E2B9E9CC -FBFF159B2812893787E71CA92D0233242645530AD70630F74848F979176399C627C18CB41459 -0EB6F016C04FE2DBA53E782DC80A1B4302CDD03000C6138DEE12901A209BFEA6AD10A4C9F465 -9F4FD3086AFA3AE7D67C37E0F26AD3359EF99F73BF5E286C1661F31ED1E61FE5FC73D68C4FE1 -6725EF3B380C28D9790CE55647CDB7A0C20577E24326BFEC12EC7705A580BB1AE1CF953B4633 -ACBFCD3093B061A2FB23735CC60BE3F45AA03ECD31A43491BF81B7B2EE03D8410630347CFE4B -A38F7BF6CF26636B0528ED725E24EE69915A4AC25CF2AE921C6CD5E51727C0A3F7DA96B29D6A -7191DECA0C7714AB3D017E061CE038D56DB38EC43E899942D2B5D999381B5B53D02D69F06FC2 -0DC4C17FD9EDE1650F2469235C99FEA60B79EA1EA6676A6B3BCCB221272D66A36E4B8C305670 -6B2AC89D3D6448D5924F4E861AC85B7BD2FB83302518EBC79BC5631106497A4706D7EBB39F95 -A265086AFCFE6532A6629E35203B336C47CA1AB429B0D5D8826691DA3186ADB04D46246C61C6 -E50D92B9055BE311310654C5F69668C464405EE1BAB92717F09BF8B9D13CDF6ED7A48201ED69 -E9AC324FAA94F2C41CF57CD0AC4D97ED5B2DC7D76B7871AC8B350B5979C754B943E0F7092449 -9CE83D9BBD8453E01225C09F680280D8DBF6B79CCEB86D00C44C6FF0D37442E6DC96B95AE82E -BE2B8031CB55F14DD9DE66517F98A6CEAEFB48CD5DED8437223FEF71377223EEB8C8627C7318 -4CE747B345704A546A9A1AEA18B256F137F34494E7C09779E40D0D074B1AE9CBE69E8D76291F -386AD9E770AFBF824B4D9A5688CC8A7D4347B7D7E7FD0871B27312D4331D5DC31700704CD4B5 -EA3475F459C60E8088F9C419C81B327CB9430F5297B9AF01008E974CA86193C82BF2A23116DE -37911676CD14A2867A4CE330AD6848925B24A8B293C00408FE1AD65CAA8E526472C7FBA144C4 -573D8FD295095C18EC5265633C33B8AD2474799E1FEB6A7C49F88EFB811F0D338B07BCE5B7FD -9CD7B744E447A34BDAB4CA64606F86A2A4C94FF9B0D6C7C476AC3B3E61219828BE1348FC8424 -9D77FDF2E45BDF05AD299734DCB6E153EF021BEA752EA4F798DDB88BA721353F305A86E4DBEA -2D2265DB49B2EF91CE5C11FA4141218111DE9B1FBAD2D23FEF8AE46EEC1207B591F568B69666 -32C16B514CF0736D28FCF313E156EF8EB25AC7961B17FA87127E0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 - -cleartomark -{restore}if - - -%%EndFont -%%BeginFont: CMMI6 -%!PS-AdobeFont-1.0: CMMI6 003.002 -%%Title: CMMI6 -%Version: 003.002 -%%CreationDate: Mon Jul 13 16:17:00 2009 -%%Creator: David M. Jones -%Copyright: Copyright (c) 1997, 2009 American Mathematical Society -%Copyright: (), with Reserved Font Name CMMI6. -% This Font Software is licensed under the SIL Open Font License, Version 1.1. -% This license is in the accompanying file OFL.txt, and is also -% available with a FAQ at: http://scripts.sil.org/OFL. -%%EndComments - -FontDirectory/CMMI6 known{/CMMI6 findfont dup/UniqueID known{dup -/UniqueID get 5087381 eq exch/FontType get 1 eq and}{pop false}ifelse -{save true}{false}ifelse}{false}ifelse -11 dict begin -/FontType 1 def -/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def -/FontName /CMMI6 def -/FontBBox {11 -250 1241 750 }readonly def -/UniqueID 5087381 def -/PaintType 0 def -/FontInfo 10 dict dup begin - /version (003.002) readonly def - /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMMI6.) readonly def - /FullName (CMMI6) readonly def - /FamilyName (Computer Modern) readonly def - /Weight (Medium) readonly def - /ItalicAngle -14.04 def - /isFixedPitch false def - /UnderlinePosition -100 def - /UnderlineThickness 50 def - /ascent 750 def -end readonly def -/Encoding 256 array - 0 1 255 { 1 index exch /.notdef put} for -dup 0 /Gamma put -dup 1 /Delta put -dup 2 /Theta put -dup 3 /Lambda put -dup 4 /Xi put -dup 5 /Pi put -dup 6 /Sigma put -dup 7 /Upsilon put -dup 8 /Phi put -dup 9 /Psi put -dup 10 /Omega put -dup 11 /alpha put -dup 12 /beta put -dup 13 /gamma put -dup 14 /delta put -dup 15 /epsilon1 put -dup 16 /zeta put -dup 17 /eta put -dup 18 /theta put -dup 19 /iota put -dup 20 /kappa put -dup 21 /lambda put -dup 22 /mu put -dup 23 /nu put -dup 24 /xi put -dup 25 /pi put -dup 26 /rho put -dup 27 /sigma put -dup 28 /tau put -dup 29 /upsilon put -dup 30 /phi put -dup 31 /chi put -dup 32 /psi put -dup 33 /omega put -dup 34 /epsilon put -dup 35 /theta1 put -dup 36 /pi1 put -dup 37 /rho1 put -dup 38 /sigma1 put -dup 39 /phi1 put -dup 40 /arrowlefttophalf put -dup 41 /arrowleftbothalf put -dup 42 /arrowrighttophalf put -dup 43 /arrowrightbothalf put -dup 44 /arrowhookleft put -dup 45 /arrowhookright put -dup 46 /triangleright put -dup 47 /triangleleft put -dup 48 /zerooldstyle put -dup 49 /oneoldstyle put -dup 50 /twooldstyle put -dup 51 /threeoldstyle put -dup 52 /fouroldstyle put -dup 53 /fiveoldstyle put -dup 54 /sixoldstyle put -dup 55 /sevenoldstyle put -dup 56 /eightoldstyle put -dup 57 /nineoldstyle put -dup 58 /period put -dup 59 /comma put -dup 60 /less put -dup 61 /slash put -dup 62 /greater put -dup 63 /star put -dup 64 /partialdiff put -dup 65 /A put -dup 66 /B put -dup 67 /C put -dup 68 /D put -dup 69 /E put -dup 70 /F put -dup 71 /G put -dup 72 /H put -dup 73 /I put -dup 74 /J put -dup 75 /K put -dup 76 /L put -dup 77 /M put -dup 78 /N put -dup 79 /O put -dup 80 /P put -dup 81 /Q put -dup 82 /R put -dup 83 /S put -dup 84 /T put -dup 85 /U put -dup 86 /V put -dup 87 /W put -dup 88 /X put -dup 89 /Y put -dup 90 /Z put -dup 91 /flat put -dup 92 /natural put -dup 93 /sharp put -dup 94 /slurbelow put -dup 95 /slurabove put -dup 96 /lscript put -dup 97 /a put -dup 98 /b put -dup 99 /c put -dup 100 /d put -dup 101 /e put -dup 102 /f put -dup 103 /g put -dup 104 /h put -dup 105 /i put -dup 106 /j put -dup 107 /k put -dup 108 /l put -dup 109 /m put -dup 110 /n put -dup 111 /o put -dup 112 /p put -dup 113 /q put -dup 114 /r put -dup 115 /s put -dup 116 /t put -dup 117 /u put -dup 118 /v put -dup 119 /w put -dup 120 /x put -dup 121 /y put -dup 122 /z put -dup 123 /dotlessi put -dup 124 /dotlessj put -dup 125 /weierstrass put -dup 126 /vector put -dup 127 /tie put -dup 128 /psi put -dup 160 /space put -dup 161 /Gamma put -dup 162 /Delta put -dup 163 /Theta put -dup 164 /Lambda put -dup 165 /Xi put -dup 166 /Pi put -dup 167 /Sigma put -dup 168 /Upsilon put -dup 169 /Phi put -dup 170 /Psi put -dup 173 /Omega put -dup 174 /alpha put -dup 175 /beta put -dup 176 /gamma put -dup 177 /delta put -dup 178 /epsilon1 put -dup 179 /zeta put -dup 180 /eta put -dup 181 /theta put -dup 182 /iota put -dup 183 /kappa put -dup 184 /lambda put -dup 185 /mu put -dup 186 /nu put -dup 187 /xi put -dup 188 /pi put -dup 189 /rho put -dup 190 /sigma put -dup 191 /tau put -dup 192 /upsilon put -dup 193 /phi put -dup 194 /chi put -dup 195 /psi put -dup 196 /tie put -readonly def -currentdict end -currentfile eexec - -D9D66F633B846AB284BCF8B0411B772DE5CE3C05EF98F858322DCEA45E0874C545D25FE19253 -9D9CDA4BAA46D9C431465E6ABF4E4271F89EDED7F37BE4B31FB47934F62D1F46E8671F6290D6 -FFF601D4937BF71C22D60FB800A15796421E3AA772C500501D8B10C0093F6467C553250F7C27 -B2C3D893772614A846374A85BC4EBEC0B0A89C4C161C3956ECE25274B962C854E535F418279F -E26D8F83E38C5C89974E9A224B3CBEF90A9277AF10E0C7CAC8DC11C41DC18B814A7682E5F024 -867411453BC81C443407AF41AF8A831A85A700CFC65E2181BCBFB83E8A2A6085DA1161B16323 -28B94B21D3CBF2E7752D441A2C9A03F6681FDAB37C4B67D5857720F70C4BCEE266586738012A -2237A85FCD0425DA7E8E8632543F5BD5D50F9DBAAE699E053AECA6027559DE42F7291EB381D8 -66F1293107553809861D43508C6F23415E4FCC431AF4A9B3660386AE63E877DCF5E513D0D570 -2B98D58B34897FEE163A75CD6F5A2196F91CE5060CA5E72F9C5F79D18F242EEE58135BFAB02D -5CA430B6D1B9A376849751A45E52577B1810C4F0C7F6C8196071D5B08FDB731C5384CCBF03B4 -60347E0CAC959E4A12620B6C2ED62E06A241D1637F418B5599A7FF3C3953338DAEE3A160D148 -8A68B0AD19DB3B2F9048F29B32C4F2E9785C207FD0F0329D1B5FA6F139B93967ED0CC892733B -2AFF491CB68B8E89F2FABB82195D8C3C2C9A6DA6FA1A3916B24B020AB51B4BB9E15342E11C7F -12BB9603950E0D3828CA33FC580E0BD2938915080BB1A9FD7CBB3F522F3D43007906263E0FE0 -FB490598D95488F7FFD1B683AFB49D45E99701401E8AA359FBB63366570F2F001EF9F69FCFC6 -D20E750C663E858089C15B40EE18B08BBFC3E7518B0450CBECA2C0C776DF339EC8AF7184990B -317AA85D97F6709124FB2C2ABC442BFE51D26DB01B64D9C13F6BF0CA93CB1BDC9350E59F8BD8 -36EB7418AD566FEB61BA87A6E9DCB4A3A83591CE33DD75BAA96B26C0E08C35A1214928EB5875 -2A88A20AD2348630DB65BB5006DE22108C8C6B20887762D2C3C20BCEB9145D21373DD3FF2A8C -166180418ED956C514202A94109972D2DA92E7530EE35BAEA0B3D68AC4A6F27FA59D344358F3 -C2330C3756D751CE1190412D3EF2BF8F1C64EE731E092B2BF7F17AE92A0FD1F05F4B4E878DC4 -0AAEEB58F6EBC3F6A0256ACCBEA215DFF48D67E38D1624B20DCCBD2BE2CA79E851C92FAD260A -7BDEB56A1398DF71EF2276BB850D7789DC486055B95DB87DFA20CFED6A8430A24FCC97F1869B -4E0BB75D4A4BD034E3FB84AF2352E28FCA7A69B115731ED66879C2E6D9C3B3DA773F15446E83 -E80FF482267D891CBE74460E0CE6BA53EC24835C2B26BC37C4CB638B98C934D582C3CFB4EED8 -2C04B5D5B5393FD00ED00927B7F74D181895496EB9F392FA84E388990626A0CAD4E8F4398F4B -4FD590E3ADE252A13C7EA80DCF30436EDBAEE7A613750B94D031AA04952B59735F9B7FE43DB2 -B7B8996260532B417F9CE19BFECFCAE9ABAFD5DE6AD065F3578BEC962A8F878EB984C486A04C -A3B21BC0B646142C6B1E83CC2290CA267178ED6B1410DF3746F88705C607F3863A8BAC081F2C -0F38F663D58B6FE2417E2706AD02B117BFAE8EB6C8703C81A0600BDDD2673570AA96E8A41B7A -8CBC8C9D1FBAF0B63B675C644A2A111CFB7ED71551D39CB00E1A3332E09F6FC079BF174D17A5 -DB4CC004185C1E01ADF3545C42B2249CAF469AE0672690CC00057B10C7A8CE1D6A50F6B450B2 -922EA6162B567AB3421910CA6C7DEDD1A851C88625A7E7F18517FC5AB24126C4AB1DA45591F8 -6C5854EACBB2505DEBE2DFE09BEBE7F2EB88CFF794DFA7958F6EC9197021DCD4C3590B272977 -93505063835074EE009D33E192CDFF1CCD87F5EBD2C5C7E42895BEC579F6E34294AC17F11B49 -C8514798DCAE8F87248A985CF7B2B6CCD353E0F7CE7BCD2CB2C2826612D66353FB0A9C1FA698 -571B46B824680012F41DB4D51F6B6E16403FF742298CBE8E9AF794BF06030CFC43A100A1F3F3 -044558937F4F44FA0F579F941870841D4481596CF418D14B3174ACB7E231964216074FE16715 -DB5E74920ED5E6DB20D9223405083A0327EB83E76ADFED291228E210802BDBA8A50925110DEB -7BA57F4EA53E38F3DDD624BFE5A5E1961E3D1FC532421B073BEC795423B95167DDAF8C317C11 -E6B0E48D4765F3DB9141BFDAE35A7E26D462FD349E8F594AABEA52E0B3774E01D1F503E7804E -AB8ED5D123B015925A6BB3C57EA94068510A24B2BE92406038AD3EDC27CF5FE86B53CFBB3D78 -8ECE6685E28AA543BBE0F3836C0DF9F36CE69D74F2E71917DF6A9F0E2DB993FD29A1F1E09C7C -C2CD5C6ABCAE5C1812846B5C8D1B4E6E27383B2AE208B3B3420194677D5AF8E49AAF4CD793DA -0FF38FC7DF17BBE914CB4018C23AE9C33BD62B2570FC537591FC15B5D6A9455FB33B710F4FB3 -6CF5CD1AE618D96C2CAF86E6834877530967242C6F2A8A7F5E4D066CAC4A3C01784B08664AFE -FD18880365E886EAE61B3F80FE01DDAC21EAC4F806D0D6B65C849CCA2DAE7289582F014E4BC9 -6F6E6840DCC19E372015D2C0830E48D36928B5F784F2C137297870610556E871B3D77775CB1C -3C612C9B297753F4C56DDE13AB6412134EED5DC9E16AD67078A02CF6E2C87E00F90CD22DD79B -0CA7C9A245AF256A51970553CCD9273D8293A3AE527B1BEC321E14CEA7F39803D0500F2A676A -12C1B7B021740F814233DBB150BAEA98C5EF54B1ABBB23FA0EDCE4D68A199892A94A7D51B9C3 -3692065D1CFCD567B48256E1F87500489C7E5198D4CED0C940CD384A3865DC0281B4AFB58CFE -B14A1909CF00ED31FD9FC08D203E1591D249698D2F23C863B797A321C5561FEF17619CEFCDB2 -77A7FD91A75BFB52E9A4B6FDC4CD21135EC0E25E36BCEE98978A95B0A861A6B608670121FB13 -5475007F35FE6428E9F65E7CFA4E2918E6C87840E83D805C561F455E9571E106C22D6E519393 -BF4A74549CE9792139F9D3FD551130F20300986C38F827D5E72B1BB63781B9852A3D217F4E11 -4193783C82570BF0B42640184892441C70D7BCEBA806119B17606350953687884036D6963503 -79D609EA635A1DD248FD9AD41AFFE5992C8475DE341CC8EB4834AAD1B285C2CB997DC8D787BA -F8653410366CB1DB89667E22859184DA5367C03D0604DAE8BE5C25ED56E17564044879BADC13 -583C5223397631B6476E2DCFE3CC3D8816508C18A4DB3C63DC81E784C8E3C5E29057759F1E4A -750BDD67D8A4F82D52F368E687AE6A2B285F696A8D772E052A32CA401230BA21ACC7E788135F -7E7D4C1BB16062E9C7C6493FA696C0A88239F61312063769E3ECD7A14CB622D1EB83F4C6CDCB -455B1A2553D544AAACCD89DCBF6FC9DFEC171528AA2054E83C4DF2D65D189BE3AF34D53CA441 -38190961880214A3C5840006F73FEBAE70CBF4FDC9E5D32330A0C6E5A337E9EF5D7074585F2B -E5C36BE44B92819199046A2E89F505522B384C3932455D304BB49BA302259F73A5ECB7CEE370 -615AF27A3699E02EA3777DC18417C1424541FAB16D7FB7C6A5B3908DBD53B5CEC8BD6BD7966B -35AEE7C1045780103DC8C373167A9E008CD3B9EB1B4C2252B1D1D2D944CC3CBE14F4481A4140 -DB85E6A03A758DB13508D659CD58AA84C6EE80DF059A07C0ABD6EA6677292198D1F2A2C08CF8 -8101341F17D8B9AFCCC162F070B1727352718E2046D2C0C6357B0C4494622885AB5691A11F9A -E61BC2B8229DFA608A6A739C00BF41F15C8FB18B3814E5B50AE4EB6B21A1F215F71DA7B73CD7 -B637F6ECD389724ABAF71EEA4CE81BFA8092FDC5DBBB9970A73FF9D2178A705A67D6A803B485 -988652631F96C628A97253D4CD4098786F01D6D940326F446C3784295A5344E524C8BC2ACC0F -3DE782A5A188DF568F148C884AE861323F63F1549E95830ED3C40E797C1BFDB3411F6642974C -7AFAB1B8EBE2D19168AF89A0DEF3A101A6E56C50AD03E4AB3D7E297EFE10FAC30AC9091DD780 -7F9CD740388E94F5C1FC580A51382C2306EA9CFABCD0D600BFA5CE5E99E34FAC9E16DC16EFAA -47AA7D2979BBEC11B084A6688D3B940FC17372AED76FC258A61732D9558307BA89C8008773C8 -3C8646804EABE7568424079E2AFF85DBF04F34F2A606FE8B3F64D1C1A6F43174E4CB817300D5 -FE033AEBCD0B1006853A7ACDD6F46DAA83B956258715CF15714A7DB08DD08581B60FD1E07F4B -1C55DAB1FD109077AF54DD529AB513C0787139CDE2AA2273BE9ADEB4F0CA04E00A2FD5F0DC8F -6983CEC4D8E1BE1AAF947E60444E4CF62DCAF24A8E1C20DE44AF90A6C8C65AB9E064E96E80E3 -25B45B7D2B83C2F559D53E8950DD64DE9C3A65DC7A59821F28A6C3F47C8287FC7DCBE08756D0 -94F4B8839AC05CC3B3377B9593AC187F817550CA3BD02E1F7F3CF1FBDD605BB627DB490AAF6E -5BDA7C9CB6CA8924C7D5BED3343D89FCF7A7D2AEF3E5179B0D8121B4C115DCB2239AF080659C -EA9840C8C80B2904D3D33002CEE2E98503F467AC2DCDFF826627FF501A735C8D667186F533BE -4677E223EF254423DF828B8C20DD61BA8A4B58B2B9B2850864319E8C94EFB5BA9A2104BE4469 -71628F2756315F49136CC224132905C622D7C18D5057AD9C34392DE6304CA5E20A1473FD446B -4B820B743BA795951743535C68DC84801321E9005CA72FD1F15566E705D74DE68C3ADE1E651B -4BA0ABE0320108C29EACAA32A39D3783AD135DA95BBF549FD72A1C23E74683D44A24EB0356F1 -BF60A0371E1895A80A669471D63709CBE81C3CB6F37DD175BD1B6F0EDE46218E010D9221E2DA -69F8E6C0E74AD4DA3C8B3F7F77791B743AAE92FC4C58B6DBC3FD5B5DC808AC88F1761286FB4D -7A761B23247ACE84F87E89F6A35F666032A7CDA7615D54660BBA391C8CD41EAC8B970F9C5624 -C56DB1F38BCC579279949376CCF489A74C66325F301B80D4147D5D2C394353E74D0590B6FB39 -6871D7916008F375DF3ECC7D321E43CCFEDD18F88828E492F2C96D0F45CB8FD3ACF508DF3FD2 -3688EC2997EE577729A3B7EA4E66B6B5582ACF8C6FF235158821406F7EC42D99FFF5E32B205E -86647D7FED1004343DE0E53D8C6805A18D41714D22552487E988C1674354C7B6264F0B4D78D2 -A6B87C6DF8309C64F2005BE9CDFDE5E595DD0F16D1F914806A034B096474ED95CBAD7171C9EA -87F5AA25EA3740E4F30375B8A1F0233AB4447B10A3D52AC4D60339E3AB7095168A9AA89FF97B -E9AB2AFF6A0F4515ED70C654145E2D42AC6A6812F879F0B08D9718B91CC50210D5C41B64033C -E18F2396C9478F623175A741255C8601A284566A4DC8CF490867286885405D9975D92E3EC4A0 -B9768E9048DFB9D78F06BFB0123BC5DF61F727B927F78397B2D72EC14E98E6DFD7A355B95F70 -E968F3680153D8C20B9CE57D19FA4A6EA0D8CE325DE7EC157AB47617B661621F50E1A0095892 -AD36F47A7F09DD49C971B0822067CA3D519C8B5C5C77AA839401D80D2F8CACEDEFBEEF0C5E05 -CC32CDE8FC85A1927A34B64465027D3921750F4A0C76C827797EF82EB0538D2BF29377E7E1C4 -9337E8454DE9715F2692127838A519424F7A088853574E849551F323FCA9225762E4794962C6 -CE38352CD9A36335D3BA2A9A00B511E12D3A89D01B2841D8866E90F18051C1C15DBDD129ABA8 -6F2388AFD0003AD98BD1637CC5E9F3E7354D3AF353838B05728841029FBA37871F7A522ACBCA -E96BDE0D73DBC4F4C0F8C9B72E5E2EA4FFF43E3FEBC0BB6D21699132F8E3C5AD68C78B8B2506 -CEE537231B9C667EF69D36202A3D1276073A745C742BF208DC71E6F7C6A189775093C1754A22 -9D2CFAE7D52EAF8895FDD82EBA80314184A358CFEEB104FADF6001CABDAA2BDC15F4338E6DE4 -650A1149D7B8BB3267BC6288B008DA7243F6F6A31DC7A558552DDF07ED84129CCE6EC7AAA0EA -F1500E6AAFAE302EB009F6B767E950AF2FA5BE0C4BC55A679C1D968EF88463B0C4698819031A -15AF3782BA7A078A66FC83EA772EFD3A06F0D7B7F5BA91D965DD6E4331E6603758B09AA9CE82 -225AB9EB86CD36B0C68D05B098FDEB7C10A72A9EEAD11839D03EC8DD1C436C83BA145AAD35AC -8CD35568DCBDAF45AB9FC529527EF2361419B2015D448C3CF6AC61FC20FD2303E4AF6F85DE64 -5A74CA338B0FB4E65154F0153256B2B1A02EF624FE2E9B19EA45E89DC993BF4D151A41365117 -A886018A43F641C276BB2CE2B80140B4D6134CA744C2C38B08BCDF587C8F71ACD78B43DBBCC3 -0F483519DB58CDE2F62B1C48BD0961150BFB614CD92C557DD70EE7A040443BF0E26BCE08E8CF -CC7D824402F2395A846E78C36298A48DE50929C1BDA5E9F63D56D2E4F970991A30167EE85C98 -CEDFD515066137AC9EFC157342AF83600365C0B27C0C3BDA50A1A5A6DEEB4B7AE452AD310B8A -B66DA71EFC2DA809E02ADB715C6CC8AD465F6C57815C067D1FE81026CF5A278DC76F4CCE0468 -0FAF98E391570AAB97D3667F3F36426A21BD5AF483553DF0B77946797F9A9341E7197803AB3A -3D45107F4CA0625F8C8C585742DE705704FB6B499CDD877909FDCE147580C3409C6F6D645EF3 -717E3BA921CE66FA74E41B930C31D1384626610588BDC92C82144D8EC84377415949999EC6B2 -311B911BEE6157A2239824E445E4E6A199D37FF8524AB1669986A5B18EA36792B76E0D7DD76C -D6D95FD41E8680EB8B2ACE5A82AD928D942F9657A5EAC259DE9CDDF4E29A667C61232F297D03 -39219FCD5B0B6BA107C9DFAFAA52FA297964148F3EC5904F408530D52870D739588CC8A58086 -B57CB59BEE1C18278112A400794B6BEEABD3BBD63B3AD1FC7275CB024E9E3ED8EBF399D3E6E6 -02BD72E2B334F198C83D94DD4F901FD367F8D66A591E7FE0AC75827EB00FB07B5547E1A20DD5 -C82BF18776B4CFF8DB7A2B80607021F1F665746752CEB85BE0C509702448E48613811FDFAC38 -7E6FA034C2C94E93920C78B3314B77ED1A228C4E1A4CEC46BC07BEB7035462DB6F2634BCC606 -FD553A9D0BE49A543CADC8D2829CDBD4EA99C5E543B24768642A25A548F535BD210DE105D379 -F91D8B74236A67DFE117AF4C94E6A28B0D5C3008012F7AD08B9B90E3D527129182BDB6579FCB -14D838B79F87F657930C37F4FA134E60F809F012443DDDF3089FEB30A5FD42426C98CE3882B7 -751BE78F3C1E6AE3BFB2F16653AF8D359B7E010D89F437EEE53BE9DB290950F7D979DCA0B9CD -AB3B76A8798CF9A9DA13C46929751E219C2CB582428695425DED4D42EC6CFCDD600548DEAC0A -EBC31648BE9280A3760F870EDD7516611CEE05A4A5032888132D5CAAC0721E45B1CBC62272E7 -397D0BE53725DE53C25B20DF52D29F9918143C046F32F0A1DB2BA342DF060605DC3820CC5F05 -5EA4F892FFB6769F983112154C925C62FA8FF336578120F22EF075977E8654D50619062C8810 -211E7B078432901B7ED4CB6EBB2435455385AB8F6523DB462D50A111211F639DA8BDD93B9BDD -EBFAB450F1078CBD10D936F2F161FD483725DE6B432CFF90DFD4B1D6B0FBB4DDD28AB8C6CC6C -9CC0ACF0DC1AD8BA744488BD8C4BA0B2707264AD0C09535C36B7DF254AC26737A0DF09EC9930 -7E18F8540415BE361ABB433D8E5E0DEBBBD5C4316867423D3CF1C1C529DBE9A46DB139BE12C6 -4C315DE959337B367F636130C76A0DC5E6EC689DF54491CA03A7E8A1544A9C0725380E9FED22 -AD05AF999AC0DCDC8916383754A9728AD33AE9400ABB8E9672E26C25588453C2FD952FFD72F0 -3854257E935024F8334E8F060970031C610C39423C7EECE32CDDD77B47B59943BD4F9C6B8945 -071190FB17464CD1C79BD914FF80B337ABC325EF549B88CFEFBB978730C83A6AB33F9389733F -5769D3A89468CE51C7CF6BC52E57BB179CB757C6F1B78D3C62F09DB1789DD4C9B0AE986B5B41 -1227596C7D0097FA31399EA8381DA64093C33CE11EB0CB1A8F71B82D67AE5E767C5449F62097 -B53738B4B2ED566B2D3C4DAFB36CB7D5F86AB267E3BB735EBA4E9C05D6F238CE8CC902D1CB60 -1CDC914818B2A5CE885D44BEB9BAF0859E9D0A5571FC726577CE1483052A0DCA8F4B54AA899E -CE4676D88F639251053A135EA6400141045419E6289FCD86F452CD76DFEF5D26165774455A76 -2B178AD1EDC212E78153CFBB0075BB07B712E6F7A172C804319E3BF3D3EDDE4783A639A6DA91 -ED39EA32FDAF30EA27983A2525C10016723CD6FAE48D76F8E978EF17D681F5435FEA9A4BDDA0 -C26811FB6908911B47052397BEAD932F99A4729560032D7C97A5D010C7D7B9EB94363012CC7F -62D929EDF1C1CCD99F39773FC02EA8C7AE98F6323D13BE1141E09C18B7CAA92A2C1D3147F184 -1235DCAE82C5414C398FEF7A563DE61A20F562A5B7C588D52D651AFA7C2267F7F0D7CF976A1F -C797D0C9291D6D4BF4823985813A433A5BA9AE8CBE2D638D4EB01831395D4711DB1E5A4D12F8 -159FDBC25EE03621A77A5A16030AAC8F25FBBA49E100534DAFD91C06166CFE0852539624A896 -569A035F5611012A1EE62601E2117B2374AF6AB930C3EA62F22DA4130F70403DD7C0BD64E680 -DDBC60BC964600B1CE235A8BA8A0DA3FDEDF79083365EF891EEA9F541DDE8CA64FA580E9717B -F063055610493BCFAD6209703B8604CE8D011BD8ECD4EA70690F550E6E55A40161092DB8C5BF -D39E2D21618A07CF4725BE2B10DEAB91C19746D5EE5F29DD70B3BACD1C0EC063ACED8C096A4D -4BBA5F7B48F0D9F9D5488F2DBD2B5C220948F9C7DF0BEC3CF912822B48BA052301AA8E6AD517 -2683303307B44319EE879D791162FFC830D80A71114E9D5DD8F73DECC534DF833EB0F735A0B0 -4E7816B024CC5F188087151E346C981C9B851F39B9796135D8718FCDFF0A094ECCE4B923DAE6 -4AA0A6AB13932BA5258C445BCF482D7CF991DADE9DF5EEBB4D0CA832A1B863C7FAE0FBE26E38 -1180C1648817FC6537554CFCAD6484A2276DE20B0E4FAC8F6FC048125F1CCF350E39D9ACE346 -6422B2F51F03BAEEE7A216A59C3BA08D40B09FBFD0B2973D3D80321873605BB1C336AC979ECD -A2F8CEAC11298A7F8028B3DB8A7F0D19128718645FFB28116723969C5BA6C728D3DBD8C69F59 -4EC4D7DEE5FF174A9C29938A79148259FA2E81EEC8360811FF6E7B1AEE8F735D06A67C160083 -38C15BD72EA74C7E64809CB28A1E9CD1FFCF6F0D95E89C0082203EE1B99DC961502E2CD7394F -746D0DD220221107D0FA75F9D1065AD5E50AACA89E5CD05A887F652380C52D6ED7A23DFA7C6C -961FFA62822966F47C6B972EB67868AA05E3B98C0218C2F5B557E7963CBBEEB9F7904F3FD148 -5F9C6061463CC5A8C63FB37353A9F91A941A5233A1C91734B974356F956EDA4861C696040503 -1C3862EECBF2D60F8105103B2E94F63237C8BAE18512DD71680E1756A66187B6DF18FAB88E92 -17DF1009DA840FB6108724C53B28A446CCA6E77AD58E7A0B5263B1D0D084D9A9277172BF744A -593348DF5F2BCD1908EB5F0E5C022D880EC175235AD640636039A31E5EABF13A20567DD0463D -7ACAB806C8A0C6FDB4690535B44839EBCE5870A24BEE57C219A136D19D2349B962A2438C2006 -8FC05B9ABBFA2B8AEB4F54F93A4174E1FF9A750ED1409086EDDEF5708ACDBB6DFCA827DD69A3 -ED47FE200A833E2131C62CB0232A98BC97CF79055790768E0963DE704A1788114A776E0C2C46 -E6F28714704660A046FF609BD52BE3FB594E11755C0C0966B29031A79FE3A12236071C99ED22 -50879642D8F00D0B524282779C0B93B7A9BC7082C1DCC4617B379921E150EE80FF63F54EFBA5 -5500424EEAFD019C8499FC19FCF839C82EEBD73AB1B384E40C15B2E9FA9F7CA275A15BDF11B5 -9EC5B466BC70A3C93DE6AA3C484669A8F3599234EF29F9C32AD1116AD6B1AADE76E1E243079D -0071A7CEE4B8C727D6910F5D232F416DE5F2EF1AEA4582E2D8C6DA8750C1C92E980F25B3B984 -1640367D3ED86AFD0DD86303002536DA1A74031CF3F8B24A052A28EA26C684E147DA876A0BD9 -9A841EA2952A82DEC1B73FE390978CCDCBBC79C4DDF03F8CB14993BF0E4606446E60766E3B91 -1F27425E6707F373851404B512B86C978044A676CEEB78B07C6B25C08251E668AB4957CA01D0 -3BB8060F6C602812470E6D29EFD4A2A319ED334AB78CA2B86F8C2D12EEAD5C7993FF7C6F4801 -61D09CE397B099877CEB65E4BB0341DA047219948EC5281059FA79CA552C78E5F70A164B49BB -3D42F9200196EA4BCB09F0CD455338862B07D7A71A77B89CC90B436FA0EA66653372AA9A5052 -CABC6C101BBCD02EF1AA3E7729D3158FBC660155548512D6ABBF57C0790E415D35F837C17474 -E9890A3B084181B25E5114015F9FE082FC0EA9E7B5FC52A96D600C8A468B96E4F1DF4155FFE7 -D679D5FB03FAB3ABA30F23CD59A69128417A45FA39C671E38FE0E73AE45AB4E86371235805C2 -1864E4D662953CF4F56EF48947164620B73F0F6CF726483F484387E30E0C8D6B85DF65BDCDCC -699469CFBDC9CC0CD18EF5C7E6374804FADAB6489ED03057986EB78DA63D256170FC02EF562B -EEB6104634607A46ABD11ED43959019AA0E60CF6583AA33EBFE9D5D9F87187E8CA37BB18B11C -8D2453EE4A2CB656B1A918409AE8A7E680A422D019BEBE725A0DEA20709B6E55A408244E1A63 -80796D49D8B47C314995477A2FD3BE342BA7996BA3A2EC756AFFCFDB2F85B81E1E21160C75D2 -456D69766BD6382EE5413F69F7BA5D0C45FA751B9472F92BDFBD0450AC8005843E8FD23BBFC0 -879891907F2E83E3AF1A39DA51C69AAFD5242CD35694A6B9105B1E39B0A3B0AF8425B1C9D9AC -8B8EDFFF65CF2C54F76CBAA5FBD8E2CF4CAE30CC6CD0D715138E5A2026CC302FE3192D787677 -69266777AB9A4D5E2302F976364AC1BB607F4F271E5A6B3A288B9F1AC3ADF1F7CC7664B89B52 -D0DDA07D24281C1430288C3BCD69F3385027C9E0E8767557CFAEFDBA78866EB7FF8A93D46E8D -134D11393D904C0BEDC911D14F8D713B34C75DB18D1EC2B927F03DCEF58B7EADA4DB25EE9F30 -B8EABBDE2698637C9D679B593B5AF80AFAF5E5D3CF0F6D6A862AF85573D27F627976E6A5B45A -643F3D3C077E2B2CFACC0A152978CCA7E6547526EF0F0ED2191E864C33574E4D7C2F1BF53074 -92151A031FF2318EF89B60EC3024DE4A2430B09EF2FCBC03ED59A1836050CFAFCFB67AE7C838 -7EB05A48FE8C1C926E793F0B4EB3A0B44AD5D2C31DD23DB2B7B0E80851D25842DE373084477B -A7B80FCAE515D36919FEC5394FB64DA4DA9FCE8470AE48C7FB0D9B39CB00D5687CCBBCF941C4 -BE7A7A31045CA94D4CF5C435B6334D689B784D790EB57820215117F3F9C9FBC5B84A400E368A -A24502D6938309CC57EA28C7B0B3239333E1195D0F2471314987C7497358D93E29840DEB87C8 -52596511CE7B47FF0FA563F2964C3B13B72A71ABF84F6B92BD21D825D2F4D4577412852AF44D -9A7221F6419138E51EDFA07D4A9DA5880634F086079544125C958D2E2BE4BD89AAE72E157348 -B261DC0D110CA2E1B2EAA8CF48D7F4E3F90B0B85CD993B690645222DB94EAD7F7374CBB8CD1E -886E150289CAA596CA324129A748B4569BD4E2BD84040834D88D146C086BC8C7AE8DC60281DA -A1F095A452887C592D608E3F181209818499BB8452B9246DC1A1EB5DB74A7A0D87C7A4194866 -75A7262E7FD78436E6DB4FFEAFF54F0CD2404F0FFCC33B84E260C89627600C327B106EB4453E -B96FD7E6B0DA05383228A7EA89588F9A8C05FDC3965237EF7F62CE91921319D43BF2CFC8B319 -69406FF5D571A561BACC58193CCE352732A106431ADC90F3C466052DEE0363A43C9951681AD4 -9AE2EF03E1DF47E14B17743526B68AA149D3C66DA744A96AB5A13898AD4E6B9B3EEAA771850E -8B7F8D02FBAA474835D7B32C26AE5BD756A7C166ABE2B5C4388DD2EEE400608C1CE263A1414B -844828886170A8E36F9F331410D6F206DBAC4C5F555EC9A1A6A986980F4B84C2DD9B3CF09581 -4B58DF6E18AE6186D048FE0BBDABA353D0CBE0F61D82730F226843F90A2C1419D4721EA9933B -E126E56E459ED56EEC170943717BC7ED9C3E7A859695E65EE51DCE3AC52DE48335F8C9F44701 -4DBAB875CE9B25209530C3C939C52B8F5E02F5A4216E70D5267F4809DCA18B0AB69B39237059 -D544425447DA91DB149B64E33DC287DF1439E381D2E258DF8C9B7AA0CCC736802D89CC737598 -1DA0D1C2A8D37137BEAAABC75D71E798C6D62D940C09D40EAE499B675912E1B7608847D616D0 -3BB5243CC8A191613A36DF986279199D4925D366BEE70E88FD9D55419222CAC9D924967C2587 -9F12D234A2F0BCD03809CC6A120E8B0A45764D297076C07BE5DFDF3E1CA254A6F3D1E36DBD9A -DA585FB10F1AD73B0EDD1E1A4B292F7734846F0473EBF77C6C33B0769C5955E0682016313242 -59BE92F11AA079F3E1E3B21F22AE6FBBFE0D8FA5A9B12D296243849749A4048616CEEE6E7DDE -FCD7C23CFFDD45300FD45FD61F8BFBC209EC29833E766E91A084040BF71A9A9B36998AE91CF7 -BCF7188E9A72EF961C756D4A0E37179D93065AA8450C014CB110C87E1B37C0590B29DB7D20E5 -9BA31B76B0FBA56FB2AB36B4DEAAA03C9EDDCF42E3EFA013D761FC3E0BAA097BC4E911291708 -79A82546AA11155919DC0846D50E5B4A88A311923ACC35E9A944EDAC785E6A568981FCF90DFF -7F443BCF3BFFDEBE96D6691CF55104F2D37E89B7155879056106AC48FC8B3B2A7DEB3D344896 -13872472B8EC704875B61842492458760783D7F39D734B7C3BCA975F19C3E9777EB4E90B16D2 -17C329D835B9F8F770151CC236CB50330094AB4FB07CA4F29C3B82279FAC89295464986D6760 -13D4AA8C56D62FE9159C7F09FBFFBE9D883F5BF9F7A8AFA937F213777190600702755004E29A -D68DE3BFA67E9A382D291E9134E7DC0B3FE19C66D05AC4E337C4732901F521374E3E02053B04 -9668C391B29D47F4E38DB096858177668C95B4C3C121E7EF16D29799F037354A29D2CC09555E -75CA1CBB8FAADA4761C55986BD54F3B0CD83CEA6AA116FE808B4CBB90CFBEF3BBAB02601AE6F -D6D8C2805015D7388C2AD80F6AD38A1D794F5954B3FE20EBE453E2EC932BDEAF054B00CA731F -DFF144E787C2D43B8DC3A03077E46075F411C082CA26548C24AD09691507BEF5C399181EE654 -7DBB53B08AAC6D1C3EEFFE5A157467932851547662A4714A35ED272F39A436575F80F974A022 -DF273119EC26B199D23E3FE508CFD399075DD0CBE8C61A5246C4839F885322D004DE37963B57 -2E346EDFADE2F539D0EBB120FACFAC9E282B86F02E991529EF7B7731CBD55D332F7192FD8EBE -F82CFFB8BD596123A888A7239C262C5F6F8308448891FDE7FB734DCC55D9602B7C29A183D11D -66DC3A2870138391ECB2206AC631F66CEC57FB72AA16C68A64F35727A5478B40A79046CCCD5A -AB46DC9DC8DB8DF5952E01A9DAFF89BCDE474C1E0796B60DD6FDC08773679DD3E7C4274286AF -4CD6EEDED9175C878B365F1B1A973274D9022512B07ACC7EEAAC5C8C9F478B1EB5916679F0DE -3953D5358719E22AFF84CBDEDA7267B9D146EE7473D438D954B65C8E774A0EDA12B871CCBF2B -86FC28AAB26A111CBAC490DF4852133874B8857DC98FC5F557BC9620ED9A01CF581B914F9C00 -BB4B7D9259034C8CDBB95872DD6118B6B5D655BDE8A58ACCC4960E3C32A1FAD1D9F5BBE80290 -C60F77C678A07D214E8176730C98F9E77AEBA08DE74C2E4B5BEFD77ACDA1BF4304AB7104FDB2 -AC108449B3662F5B9378349B31030AA9A0D618B4580D6039A9DC3D589C576A0C8811622ACE2D -895F1E2FB5252D878BB2C61FB4389BC4173B1081BCDD7F44921402A3A600C5594498E30E1B22 -676FBFCC45CC0D13D5061ED2DAFBF2BBD3F871A6D47FB5F9C5ABADB4C63638263947D203DC3C -29972276B44E8C4C355D7B65C1A2A00715DA1962FB6EFEBA8601129008522D75C546D6205B04 -42E910EE2D7511DBCA9E1C8FCF12DA90ECC2FB4EC8D63E2BF6DE20A94C17BF6B7DC932B44BAD -7C8A0F3B7F8E4A9B1BD437ABF26986E7291094E63F75D5E6F1F45DD49A89E016C1FAD535C4B6 -D0EF8DA9A91A3C73AED1F6648233D9090A7AC8FB9D811F70A549B5A30FD65FF462AE96417C27 -79C43B1337634BEC54C767B650C603D0003A907C1DB5CA65E297602F56B942289D5EE1F96D67 -42CD6A72C7E0066C15D0E0D611BC7785A7A885489DE17040A28F3AFE225DDE39858482644287 -2EDFD14FDB477666B135D83732D0B2FBFBDBDCC14909BE7613B85AA4CAA1DA4628FCCCA68203 -68926BA2A6DF4E04440E04DF1BED95BFFDA9436FB0322CFDB068C1A1B8710EC9BB76DB7CF507 -7D1252E242964125A9D8E261468B4E254A07CAB417A57A9DD1102FEA3856B64A64B531114408 -156607602B300FB13773566D3759267E84754AA6E55A15118AB60D5FA8A6855509F15D15E35B -90EB31E702665E8BCF61946DD2D91329482E2815A2F6337D7D0EBDF7545CF7AA654C6B48D45F -CFEE082D441092946202D49711A405B676E9144AEAD2CE1686D361662001B5FA3BEDC610E0A1 -33EF23E6FDEF462D455B760FF2A4DD9AD740E80D497DD34ABE959A95B46887C3181B50BCAF25 -05A977222DAC7FC0A223556E20F7FB1CFBEDEB5B280F0F5682528DF4B90D77420395E2812116 -34DC9C6ABE7504DDB7102BA28DCE598724CB8F0A5A009A83EFD297AF0308C681890A9F92B7B7 -108BD1044171194DF7A7A039F7FDD301F84F795641A0EF785AAB4A9DD786E94197066D5742F9 -DFE6DAAB64A42A9AB67B33D36CD1116F5D4FCDC2D8FB737C7C220B5F9D30C889C0BFEE5DE0E7 -1963DD164EC264EFD3CA6E6795AA8EFC8C97281236C19BC053424444DA0ADE0172B821F6BB33 -D7645CEDEFB9E26825E2C27C2523FA952FA5A1C8A5196A9440C3EB0585C9462519B2D0DB551A -76A42AF715CD5CA6F0F9C4C7E0944680932B3D3FC355761A795BE88CC2FA34E1AF626DDCC4ED -E04AB6578C76BF8214C305B778A2F32C0CFB69CDC9C88CFBECAAE9A963665668115096252D01 -23E6BD77854AF5BE4C20C18A6AE5591177B30ED892FE8D79A877D3588D6EA8EA91ECD3207638 -A94A14918A1311221D9D52C96D922176A803E20EE8CF6E549F9E3ADAC779C9058A7A4232E5C4 -14D24BD049FDA3D8AD9361B8AA22F895DE20534EAA444A67A1F74A74CC95D7983A84E52482DD -3E7576C45A9A67B2185FC2125321A16E865CF28E878BAC13A029AB9BAFA43C6B97D9D957DEE2 -7DA4F85BE9EEEE9050B2C092B117B39BD53D34623BFC77151A26EDEC6A1322BB75F60582C1A9 -6B79F1A628A927797E99F07CB595D792B6EF5F0A1F1A892C4E4A4A8C27E92787F988A7C66C49 -742660C82CDF471677B5E5BA3F906FD43BAA9FC6B7B92CA039AD1B1FF0E059F3D694BE592D0A -EEF8E808CCD9D971143564591836F4FA1FC80C7A0D38DF4E7940C72B020744610CD1C49D03C3 -AC3A3302421DA851525D6A3E1AEC9BD17E251F6E299ECD797AF4A41C483259FD398DC9E39FE0 -53CFCFC5D3F66CBC92A935905085748AFB53712C428D3EF68B52D9E2DA7ED7CA15E88AD7E978 -0018F5FC22D5879B67C4474A8723AB895B8E1C414BFE0D1A4149C955C124F8D358AFBABC83BC -8E44ECB939BAB7A94E6B908E633495158A693F54C4C17BF49A1359DDD1B45B4AB7A1AA3C8936 -1BC7C77168D6768391A77494E1194BA93F5EA7810EAFC7B891E9F00E5EB7FD6D65196A6E31F2 -EE3C737CCF3AFC385D2763905D5291E7B9332C37B744D3D642438D214ECC5E2F347A7E54C91D -6960FD3A48E9B610547119CB0CE832FF2F43B9148BC86BFFA143C0B9F656BB535A9B847F6921 -BB94023B29C2B61CFF5142B105492E72DF61AA8D11E7D57E5E6E51E78E598724FF0DDB2FBF46 -016D43163ECC2FF9EACD2FD81BC3FEF391B5092491398EA978D6B2C1FDBB35483F25750C1770 -DEC7D915AD82A664AA974E71AB870FD37A9A99AB2A931FCCD60CAD740496150296B8CEEF7117 -4F866E17A8CF440CAC15764599039FAA86B123DEA05B09DC1D6B6CDCCC1F1323D292AB1F9DF5 -C6F6F06FA5A82164A331E0A531AE1382A05D92C936C8F38E895A1A5181F28D276C5D5A4A19FB -884F0DEFCE78283FCA103A856038BB9DE443478C84CADF091A99927DFC5B16E65FC1068C11E1 -7C4AB303B57417C156ECB7C253BEDDF2FE0696B7DB1A27B5FD5802FA7F3366E19AE0BB57C2AC -A8D5C5B73427A57FDEF3FAA7C7161D0EEBE023CEE868D11B6C768EF808C984CAA021628D5C6F -BE2DAD9C5AA87E535D0214D1B01D18A866C518827740D1D220179FBD8583CF18CB66908B3145 -F1793398B9372E799AF99DEB62F132AEE291B5DF78A63E05E70B484D0E9B4BC0F539AE249784 -012D44498BFE016714ED970F920C5D4AFFCFFE2DA175E6665170354348C3CE34678C3F1DE6BA -413981D202C21701E889A73CEA94A543C8F22FE6396C5C8D689FB39D92B28DE0235B4915946E -D91E3E2253A7D71285CB0C3DF268627D0334A0959716781185DEBB69BC71BE45E2F857C9460A -ABCA7E0BD4DD59E83C327C13EE0A9E31A0E487AB52864397D3AF3561F46B9E63F2C337ACC723 -1E19687F60AAE3801CE91F92A8E8E258321441B85AC48CB49FDB03E030BFF1385DADC8198930 -5D91C427CC0B844839602550E1BF9AD65056A2854CCEAA3E63C7254A5A676D07C5655E2E0D05 -115BB2A1B65B319BDD714F53E06BBBD30C300E9920A86B4F9957401D18E30BA857D2F8655B0E -64F5060BF45BA627EA303D536AE280072C1DF549CA3810802B83C297DBAF9DCB8B25C4109ED5 -85000A03420C44849CF92E0F4EEB90F8A850ED2364EA517BA2966926BF4A6F5BBECB8A953CA4 -6A1E9379462D3C8FFD43721C69A425E3E410F06B22FB6A0782AE4D8619B1F81FA1055AAAA789 -EAE744D80392D64D693DABA3B4AA748FA3FFF60FCC77C8A6F14A1F6EDC74B99B6A19548A2566 -B4642BD0C4862B355D1D4C3B6A4EF740006E00BD9C919C2ADA474B7F98A7DD4A355F671199F2 -4F4669B4876D561AE50A7A65302DEFD9425E79E2520CECA77746E4853081C4677296DEDE9EB5 -47D2E873B96C5E79DCFF73162E27472CE05B74785F2C0666F68474E08E0FA09EAC268F1247EF -60CCB0B71D0D5026D9986AC1FF1B89354FCA7569EDCC74390A778EEA9DA950154ADA829FA983 -4CEA3631062884D9CAF76D5A60236B3964862720FBD9A8B1D06E32CBDFDEC82018924AA3E695 -86CCF88BF1BF2CFE5744DB733CBC01BE029F6817B9AA7B3EF04D3CB92662F07F6ABC5566EDA5 -D20EE3C35180D2A6A2241BFBF1772B082326C52A084FD2C356CB17854D2AFD8196AAD3D93289 -DE7C0BAC0869FE303F7862A6BE22BAF7B0164FAF03ACCD429C26755BE702F6256CC1F551D8C7 -D21A815E45534A893F2143353C111AD5067E50FB66E7DEEEFD02FEA192ABCA05BFF835298A34 -C6A980AFA74C0FE7FEB77818208DA15B0F4CF17E3FCA2E5BF78FC91BE5331BB28248C3F5B49A -63FDF55314360068171DDC99744AEE85C38A4781BC40E23C8095130A44E89C39D27D876B8B79 -51D19CAD460AD8DCC7451BD301CE8E48D8D424719EAC7E5CF65ADCF2F4574872C76E657D8AF6 -2C98CE01E39EDEDE27CC263D912B5F02365933C0E5AEAF12904873F128BCF5DD793499DA5D50 -100CAB34863F274C71BF90A7566980FF3942DAE124C99B6238EEF3C298A1E4D21FDF8FA1FBBC -D8FA4AA40CCBD27C091586EF918DB7F95395E7FBF4A6E27E5890434C89371D96474FDBD6944E -F634DEB111AAAC86E21971A095B0586C468EEB760A2A11B1057B77A73CD0CFFEF17F960516D0 -57B602F5C9C3EE4B94511EDC97B0A083F39116DC7F5DD4CFDA27CAA66A015627591A84E6BD4E -1938FA9669BFCB8BD056A11945B51EE19B729BD61A7F28A3660D9CC5DA4B2FF0C33B03BA2A73 -DA8B9618F4A3E0AE650D81FCF61DD771EFB1ED519EF7D38E9DA59DCF5914D6CFC3EDC0B33CB0 -30DCAB3A1B34C4C1DD60F3B005944D6205ED1D0D941C5D119ECE42C1F94610FC309B68F037F8 -270827C93B2611CFF8E8B1C737A469AA408A03888B0ACCC926B5533C8CB72753EBCCAD077EB2 -5F20A74A9087CF231371757DA45EC231BC8FA32A8FBB0D633B8DC9B25CCEE68D670C2F3F90AE -3BAD43D9A6E741889CA53E5C361B4E2CB2D10C631979BEB764FFB224A6B1E172E0F3CF84FC72 -74BEC0CEBAD5FD9B4CEE916A3B90C568D41F82875222DB01CC6C5E242C461402140C33E877DF -C4C4FA38C17C60B65789E81EE8887C910147928502310BF549F80A0BD355EF582D7409292340 -2595DAFEB852D0C5FBEE4FFB18F5B002CD8F27C5DCDADE59AD3628963785436EF1F08A823221 -4E8C289252081E2F944A363D4CA54247A90129ED37C4A09F3E1C36CBCFD5A4E3DC3E835D3D63 -4B7CD7A94A4896AF16D47392AD07D7BFB71D52B252B1D17F86135F293940A9B6DB810B53D4DD -CC2BBC1D9F0EE277925D4A451F4C44211E301803392E5D476690D5C244A4B996D48EA060883A -16CA4ECF336E74B1D4DC623D999FDEFA02FDA142C52EDBDF9630C32034D01EEE3D8717C2B5D0 -B30E7F45DB66C4CD5FA491E01AC5B42CFA8882C2CBC80998CAF47E5A5F4C7038D828E2E48CAB -1CD66BDB5C47D048088F6AA04589589F6A42FEA50109CF2D08F8FCEE4E6B99FB4BE44108C3E7 -969508A8227FAC740582EBA514C9F54692C771ACE17100D881F01BBE2180ED0524DB228A1848 -4AF1FF5EE548171BF7BC6C8520DF06459489CDA7C2C52D4CF1D32CC6ECC560E38D037B7C763D -89FA6E73D6146C1855DE49C40240FE7E57E3DA78074B1B811D5C80C31F24E3B3F86EAF4E79F4 -6873258F3187ED9C9F5B5FC9E724FAE144E39400CC89C840444DC1172ED7DF4001AB18EF1BF5 -384CFA362CE93744221233DFC411250C05CF22244318ED98CA3DFBBDBB9C792FA25C37E526D7 -6AC77C82CA4059015DC73892265AAA7C111F76ADECFD42706DE2D7B99EC43FF7CB4865EE0C44 -7A685AFD41CF4E216CDED60964A300673EDBDE61F8D11036296DA49FDE277328E646B32BC797 -1A600484A7463C7084DFAA3AFF48459ED0CEB7C012A5759263EA50493830F0F152C12C87D469 -BBF8D150630CC7E0CA1DC96A72C881E6572F1B7677E270C7E4A43FBEA60E0B341A309E764418 -944610997261106424BC984C4217C9B5A3751141426431A12E48C3FD5BBEA9326F6878F9A8C7 -6988F3443037F769234C4E656DDE7D02F15DC6CC5490CB389D9B8476E5BD63979B93CB64244E -E2AD99160CCF8A0549754781A74D109AA2C3246750220AEBC2920890791C161BC73D691E7AF9 -0A61BC447EE132F95C2A9D2C2B9CF4EF79855B76EE087640EBEA76C9E445F269AE284446DD5B -B4648F51F794B7D59A91C5EB28CF59FA0EB0854D19375EFDBDA42856214A86A5BDC3A3415BFC -C5F8CC20A191239DE0D266352C661AC95897C783EDC3E4F82E4636C36B5868D8971699B36821 -B95B1558DD0F022E72131750C7AE3AF3C7300BA782227132DA8FB53127CE4853A1F7DC0EBE5D -0D884E5D421801EB5DB4C99C1B9BB421C34689013CA0DDAD308D71464E27DC99ED7A8D4B7940 -A89BFBC2DABACC1B1D8BC63CD2351AF75C862427A4D943284946C968C5D97B3D8D7F2E246EE4 -8F1120F1BF7E972E4BFE1568D515CF55F2079C6C17E7E2D3B49C36DAD852D37589B8D7F43C53 -686CA5CE895B3624800B0349908883B172378B84111027E9A1BCF74AC7711C147EE1543A16ED -EB5B5B07C56D1D7D4892326F8B4D940769FED70A2C9EBC1C022BD9E271C9E2DCD603504B20F2 -AE9D5DF7FE594D4D9592C1DBF2E25EED41CEA59D7CF7F3E2E71284DF25804B4F02EEE1403BCC -93556068ACE4FF8CF42E467EC33BAE01DAF5F79B4F3802F8210513A1E55E767C1552E1743953 -1A138F99A32BF2ECD630532CE6EA32A0536D4B21C8EE164D04B04C3ED5C9DA22E005A4D728A2 -A9BD00A3CFD12EC95C930F96FC2999A7E2444EA646B249E85BCF8B445EF8DAA20C751FF98869 -48421E4B418F6E26DD3C41B3633094BA2B13992FB37CE9ECA0EB1B560686079881EB2B22F70E -C1D446FAC05D1B03912575334A119833995EDA4207BFE9236AA0AE2BAF6CDC0B473295A9147E -90C7A75072BD0391D7B704DB906DDFAD2047B1C4A5C6E536E1CBD66C923E7C46209673BFF829 -F5156567B664F9FFE5713107A5055596C4306A2605E288527DB95E8E7EE36712CE1721D90110 -980BBB1769EE8BDECA7951078E85176E6965DF1B0BC479B177E93206A3B12A6D4C032FA2F233 -2FF912045480509C2A6AE3B980225C65F27797B51A3C821515472CEE3919F9F7E5EA61F5424F -AA10D229AFDD13B95403693950549F6325D6585F42A686D782209094306F2B40E28DCDBFDF5B -CFAA7DD7235F5EBF8C02A7F80E9DA2A2CEC40C209BB04C87F52FBF537AFAB78514AE04C505EA -BBAA1126247AD2DA02D01AE94FB71B45CC5BE64FDBBB379B5C0DE69159FB7260859EB1442A08 -86A4518FBFDDA539A7AF40F1564613E2AD2711099435C8A9B60B60A7973D69BE2741F57406D7 -53DE31044A6D2375394722503365042542EC6F8141E1D9BF7AFE767EE11A92DC2CABA951E150 -AF54845EA62E5816C4E27B8AC068AFC25C16291CDD91FB8323C431B8F1EAA812D3908ADAFA55 -C5D279C377035580D6627BBD901410A9548C4720C98D89F515AE981BBACC124C868AA9345E5E -F09576A7B6417E3D985C52F3C7B0EC3A461BBD884471829845D948E86E80D0A4E813812E3E88 -5CF87B98AE1DB51CB37703DBB27F4D02E1AABFB26AE21D5FA3A8D35E7648901FD5DBE23D04B2 -A27E86FC41803E67C3177B1153C8C49DC27AAB89E7603B91D20033BA2275CB86FB4FC64341E4 -C1935A18344ED6E27D23DE0B42E00FBD8122299267D0352923F930F298EFCF03915C52224429 -C4E11EA1D27338720542599ED422F63FA820112B72C8A1C1D159D8273B50F6F373D8604A90B4 -45695E4A769AE5CE4C85559BD7F9961AC6EAAFB26845DF83A4FC6D89BD9E91F1F27AA38D0A25 -A3C5C8E759F31D823ACBA9503EE82C0F2F13CAAEC938BB785CC82C6629B227617A2BA66E0DC3 -A57DA1A9F5D09420A7527E19A4348D793FEFE5A3CB13C7398BC8CEEA7E5B1EEEB80AE4F71C50 -8120B950D4F228DC8F294140F11ABEE23A17DBA41CD271ACFF490653EE631C3B05DC4FC682EE -F1854E562140556D6B19C7FB3A9582FA768B00928AA624CFCB41C4AC2061A365FEE4588A217D -E295501F0F0D4B5D93A0F95EF093AD37A204F0C3A5D8B7195216341F6313DECD91AADFDF7FBC -481B49DD050365339D1B86E818C95572A4FCF3F95224C7343579F55EAF7DF2702C858C5142C4 -C493869381AF16040C7A0E855914247C96DC43141F02009FFF2D4B49643132DC43E99C12DE39 -B2EAB6175174B01BFB7D2482EE3D9B7F65334A5FB4BCB9DCC7745E599EB4D2E4274B345FAF13 -7D962860A259BF190764147BD61451E2EF77C4001C10716FA2F10BAEE1CB05ECCD49716964BC -A7B1D76ECF99FAB5882FD1EDDFC1BF359F4827067C0CC6EE08B405024E2582766E96F7B0B008 -8829C06DCAF411D70733379BAF5B9E581999FDB83A9C443AAD1A15F25F88FCF0E0E8BD82F7A7 -688AFDB1EFFD44AE01EAF97F8C6F44DF561B9A31EACB9CD75F912279AC7BC964988A663E4315 -0184FC1A29943463AEE19A931415B548E4ED13C33DFC76D7E017F1BA3AD9D47424D4D112A3B9 -D2BAB92DE15B45DB939FF356924634EFF6EC38AA657F9D33763BF394DC473A3507CC97D396D6 -918617D6DEBC032DA6EEDB171F3EF041F3E478D83C44700E7C90DC710C4909D5CC37224F041E -4D21879865EA2F3AB902433C179708692BE58A78C39F5A296770114A2A49939C256B62542C98 -C565FF65B6BA80655975A933A0F7FC78435EB9CC4BE04F8CF70AE7162C4117648AD89AB90892 -9216CA39D5B0A69BAC6D64237B9941539F83B3D1C77BF9ECE6A9118EE3EFC6E804013F3262C2 -8CC846D0B54D56C862FC81E4886EFADAB272BBA1827A2263C038A228C3E1D47F38EDD3E5E878 -93A42FD945481EE5DE0788DD583735843DDA1DA0AC421D49EDD1C6B58DF98B0F0FAC983084BE -3AE06FC7B4BF733C5542DB10026067523E5C62E46F940A7106C2442BD1D96870097C7C3827B9 -5C4AFDFF6105E987FB6593E399F258B0C5E11EE9CA3ED47419F49B84A3AA12E4E83DBEF90A5D -0587080EACAF0D1CC33A7BBF34831FE786032A9D369D17632E133E33150B70FC0272EA8E1BD8 -4CEB91AAD758755F89D2E10DF29869CCAD648554A2D4EF69B1497A3D5F5C6FF3893A4DFB54CD -E3DBA71747BC0D50807B89892F4AD884E3F6A933846741FD9C1F45D2802E726D81E3B0697FE9 -5B603DB64CF7BF4157883448D9F3A64F877AA16DAEECE1CBD8BE3A586D7DDEFD0FBEE8D0E476 -FB132EE53D60AE2D0F29EE9A6E28A6DDD9F3FC380157616C22A0B6C00A9CF0978FB879D6EF04 -3E36599F477A485C76EBE7550784498084821DCA670A4E5A21967BB90FB128B48AC7694D4494 -648301EB2461329BD70F103B97D5A9B4DDB271E62ACEB362B32A00177997EDE2EE226381EDAC -40A05533A983D919B44CB8CD1950FB3590781548187CFCAF63E51ABE0AF5F051DD76D6A29969 -B6E6F823DBFF253CEDA7E3B052AB03142976823862ECF2EA3E32B0FFFDA367C4778D0716A82B -E72382697998CBF2C614FF339F1490461EDCF4DDBF52DA7C015B907A929D34949667F3D8DD24 -3D43E71F784B5A703CC192AC10C0A843F9B89E4983272527741D4C522129716588A9813F02AD -092E48775391A496C8C3F79D687D2BBF12F5B86BF2F4629141CF756F7F38CDAB54DE7A77C2DD -D41D3E6F2ED02B2EC4A6A7460DCF154224AA262B7F6A1DD28FCF94800FBC9098D5663A685443 -76E3DCE825FFBC8B0A61E3EE109A53260445EED2260DA756332E19945C154A9C639A497D30C8 -11B1DE64DFE2607A0B1C5DB90878F450B129D57C2B29029ACE15F2DD43D22EB6FDBFFAA23C05 -B067CA9E051AD4CA5D6E55A7FEDD46A15F5147DE70C80F50D0EF928C7075C59711D5030AB145 -7C5D2C51376B991FE7727C420CE8CB1A264ECEFE68D72CBE0DA83FAD44E05AFBE9F3053525B8 -BD6DDFA02DE16EECBF34C8DA4FA6D37A3CCF579798C2F85FF56EB0B6EB88F3D214666F59A847 -FFD3335290191B7851455A658A41716D0E61BCA62C9641356483A1CC0F62B58230964D778FD8 -4BCB3DAFF8CF7094362884349B7837410FD52AD56D2DD4282367A6A3465AA0F11BC3AD5744B2 -8936601D96DE4B9730D9D5873AEEE0CA8F2001B9A370DAE2E5AED801AC5140F02BE6E7F15A94 -4A8CDD785EDADC20FA7086D4ED7E9DABE64DB40EBF6DF3F91303B6B70E0A457FED49483C15FC -766CBCB2768216E2822D14EAB6A99218B31C8EBD455BB4C7A25FD6BFE98E81D04C9829438FF4 -80B3EE59BA8C6B4BACC8ADE180EF917C6B65FED47FA4C95F4197A0D5EF8D795BEFDBCFAAA47C -63630F0DA36C88F43FFA4F07101AE1945FBD5DCA0289ED8A5B386BC1AF449BB87F363E7C5895 -B5CB8B9BAE90BAAF558D08EE53B434362A6FE2E95175EB40F790280390551AC1B547B475FFF4 -028EAA85B448BD86E0D7023A3FC0E1E8B1E26382F07C72E3602AA2E87B084A3933F61569B6B7 -A1CB140F707E140CF750252DA20867AD081655E90C9120EA7CD2E7BC88D62FDB2A6ECF413FA4 -3ED6D0EBD1976AEB09E1E21DCC696D98931234AD794CA92E8ECFB686EE5682B0A4298155EDFB -F3A1B50728ED4362E95B9DD6963470BA42508C12C06B1FE4F02CA89002E1F43DC0884D7F9244 -53EB97877DDF4AE99662DD817C3B7294E81549896A9C0D4CA67FD1C0D6E8A9A4380351C4AB6B -490F8A3C446FCB3FDDC7AFA7417CF0E63D2F3D83BDF52800B4B3328EDC223BA2229E0CF25F8D -AD97839A82C029ED76D4AEFFEC7DE8DD2FDE3224A165DD190C434AF5BD7E71C3935B1ED674E8 -C2631F9094BE121E0A4FCE18E86E452A404E5F3F7EFC1345F3736523C67BD10AE64D5F827764 -EE7264B53C2F7B4EE809C030274EEEDFC90ED0EA7496A70DF1E9D29FB70B7F25FD1D47D54812 -091BEA1B2F427E9FA070FF0047B4B55BE327367D1F41A077661B743A25B64D7DE8DC7E71378E -EA565FA4A949F608F445AD88987628950A9CBB305D1B8B6A28E94334B51C2B6E85AC479A4375 -A36DBAA844219A5F267C43964CD386A58CB262B79BF5E97644BEBA033419DAC3AB7A4059C29E -04A7F96D2E37E66A6A73D7C81B519D927110C68A3D2EF49DC8C7766E14301D47A25347959B22 -6E0A8A6E3F5EF84A6B14B89CECB1ED734F6125F15A8F67609BF353AD997374A47BEDCB758E60 -703A7688A978317A1EC3AE104AB21DA77E0EC2D79ABCECDA08F4384850F96E28A1EF836C8E58 -FC4B10AB02DB845A16CA4D5F05A07E102EC1B962D69E133C6EF046A73C14ED81419FDDC082FB -B54CA9F5CE0916BAC0C2DF7FB4C3836BE7EECDE9A20EAE6906A4216B1ED6741A0EE19D2B1729 -F73A42571D128FD0EAFF6A475D694262F4B3A5351071ADE5537A60E83EE90BA6C7E68B1D10FD -15B47640C9E09D1C7728C71F85897D000CB885849F95150BD180DF66AA03BD3249EAE1C31107 -58A2217B0FCF0FCE5C0FAC8FF219DA3558B0AED9BCF55C2A0C6D0A0098B4805D2101C565F564 -A0B0FC73FCA947B01C7308F5511C56D1D3178EC5CB5964AD3FF16E96776789C78B301CF8CCCF -DD6D073A749EC3CC312A7F619C9FD552ACFC326A4C8CF11993C18BFB1ED8ADBF4190071E50E5 -6B5269D157D57A268DAD4D222349720951981D9D7D67FBAB801CDC52B3A7246C065FEC21554E -1F252AC4191EC0BEF9D7A3087C8E3DAC7541EF6C0C814C8ED150063778DB1856A7139E5D3AAB -365FD0BA5627F1961173198D860DEE80041371A9EFAE8F40E8EF2227407A970E2D5B9C17161E -E33996C32E649E3A038A57CE2C1E48ED2E5FE4B97E21E77DC4648BBD237B883C46E4C3BC46A7 -668B5E2314716610909D8442B093900F05F22D2A74757D14D8255561F55F0E4195F43F1A7CB6 -0DA3DB839050415F8803865EACA26AF7DAF557654D411E774F868A84CBAB946F46F67B8B8D70 -BF3403B92361E83A0E50F59449D2CDF8B8867820178AC711D36D82D22FC961ABBB409CBAFEA3 -9795C836C3CF26A218CF5B89CE505A8B12A347B97F636ABB1F6CC33EA8CDC31DEA4035CE524F -59A813A35A0103EDFAC2A5AAC87E62835090243E6464315C37A2820253B7E2A0B1409B6B3911 -EFE5C9EF5E14553F6307FF157B5B8C2298669F5899DFE3F918A2DFA3BF17A79AD4643F801E73 -89D09BBE1BADF12BCDD47C60BFAE66E04395D5C230E93F0D37D2B519CF7227C3619C2FC11B62 -E2E1774A3198B7B855A28DFCE85A85CDA2608753A4AEB481BF0B8C48A8B1C1A0ABCD70FFDA2B -1C653DA19C8748B3ADC819E2AB6DAD95BE57A5CB694336732534AC89C1607800A822DEB71576 -281CB19F95C25B1E074A76EEDEF5F4C12C124A0DB480CF3A9E43CF9E156D4DF98C64E5F56599 -54B48CDFDAB3FB52B569BF0C89A0F9A9EC191F31FDA872B75E93E0F23F81FB25B16B51C72BB8 -F6122A3542A14F1498A6DA9DBD6299EB42DD7C26B913C6FB7C14D47F93229E34022505ADE87B -1F83BB1AD18F56B9EF96DAC6993803FC61A8009E20590769F97FCAF5E467512C92B369014551 -022398B05EAFCF66D19C03D632244F54023B2BF91A54F29EB0FE77A85A2D37C97598DD703647 -B9A6E01EF76D02275369551B5DF9F49EF8030674BE38651048DA6144B601EB1DFDB120AF2AFE -9DCC492811608291333F37DD2AC70DA71C41C460ED4109961496B87118F3A8DC8E990D3A7DE0 -46479732F6C8FA04BD885A5B75CCB51ADFC03D2ABF271BF6EF3D54094A9BC04B06BA7F812E21 -2B6F2D75D019536E493DE363339F6963011BDDE566861211D76446192DB16E044E9FA65317E2 -1500DFD6806E514F0635479902CF88450FFA671C183879CB39765CF55B9E136595D9F5F36CDF -B6F774874C54CDEA2E3F4B5173C967AFF37A0DBEFD3224C266B1BEE9CA10AF9E52301A7E0E90 -CD51CB18722E9C55210487054ECBA7ECA3516B16DFC0CEA85F389E12EE4E3730B21639150CA3 -5DB82E1647FEB3E43FDBF4977B01A6415364E9FCE15A246B3C1AC1D02CCDB696E0E35D4EDF2D -7E1093D08B7090702A8B549E17E652319F278117CCEBF5EE18CE0BC07BABEFB2C3CF43105E1B -2392F614426D6E1FF141F75F89C95F10EC344374F0357EEF92CD2F4028AAEEAFC3140DF3DB74 -8B499CF12C3BDB28936B12BC2E83660B5E09415511DF8FE8BB11D57163987D7D53A58F9FE9EB -A304E6193894F0F4E8B83B8A83F11061C4FA7AE1F7989DB884D857A42123FBA3009F0F268C01 -8AF836CF7442137103ED1272BCB2EB3161A73B72405D0BBAFCB2B08FD9F48505DBA221B834D0 -C548F4584AE6AB00A36C4E52DED9F91C50108A7565AA3BB3713188AABFD11A8D61EDAD0EBC63 -306BFE08A5432C2CB3CA9198CBB735D7F9094C10724883BDB78E488AB283FE09C8D7E87A2F66 -267B2154C0F3607F87F7295B65A88C8DEDE51F96156EBF5B7D62A11FD6A3907F7CF6B91C8A66 -594150B37D3237A8C8FB95BDB7677B6091F776BC0B9E958BF57C1E896F10925029AC13978451 -E0AF24F920748C12D8F2EB5FA9BBAF27136D5BB517A919C4F767DAD3571A54CFD0DE9E9BF069 -21421F288887A1EF09CDDBCD963577D78E0D0B58A7FBA75587F8FAEF9A5401FE582F80AD7403 -A5840B3124F271E787A4874C3720B126315C2A9D97DA12634E1245A00B3D1DF5857FBC018EA1 -0928670437C40A41933883891D373968A3C02704F3215C2A89C585636A1DF5C222596BEA1F88 -E549F692BBD741560A73328026E35A46942842CF7E6356D86FDA3DE1A4524A0CC83D6B30D763 -FFC205B53B2CED6930C68BB1F3958AB3CFE6AD4A0B252BB55FDC28350EA781F44F74478A7E31 -6E3A43F8147E65B89C15FA1696399B40A8E80834B91364CFBACD56EE7A7C5085AC4D74EEDF83 -0CAD674E929C37CC167CE8CECB8FEB6EC52084F19A15AC5F5ED7A526E9B0C7468C79AD90DD17 -71C14ACC3519B47D4A130CCB9F3B6727B056D4A322D6E08677FB6270BCB2DB766A9E96A82310 -F87E8354EFC402254DE2F8207CDF5B7DCD7738E0434BB3F507D8B9384E4DD90853113DC0A08C -65EFFA8825A1C114C7AC5D033DB237BC0C84EABDAFC070FCDF9E3149D0CAEA2388EBEB238BD0 -A66448E3CAB08CCF8A8C1DB30F28A8799766ADAFE1A8DDF36067BD8677E1F3FA38F93E7CE1D8 -77796B22F8EE59D3FEEFAFB1216258A548D3435B550E21B676ED1191C3C1B244D0579A2E4046 -2CCC8B3611BC3FC22A6AD2E1525916E374B42CA0B37800600C08A6549A123787716EC5034CB3 -9907815430A08AC3E587731E4A2D208D97E3153C110ECAEC20524533F425D4123B8B67D0B5B6 -E668E27272AA11E92138FA67675623481D2FCDCA57081F7000A00632FA07D8D1EDF5E3C88E7D -2FC3097AD9C636A233C8EB364BBB5478F6C5CE47BDBA078BADB4FC410D84B6259280E9E3B73A -C58F5E7E2F68F08BD8540562B676978E851FED7C719EF8430FF536785BC3F05BEBAB7F512BD9 -0F02A39F079E18502E9FC0DFC7B3D81D2EE1F066A67EA9DCBC741160B62A16BC722A2460E70C -EBF21E55368AD6390C6F151649F504E03B8E7FB3BECDFEC89E3CFC2B81164D86F4498832B6DD -61A558D03090126FD4A6B3B234DA85196B93C98C7C9A5E74E76FAC5B8B97F73A894AACAFA275 -04EED8EA0F533F31A57D2A6FB0B396C389979AC060DCC48B2955EEE7BD2070F78BFCC02FF6ED -495DB770A71E24EDD0717F7F8F0C79CF14EC83070ECC8C16F3B905CF79814875C5BAC853DA1F -A00A2031D0594374219324D1983A7E30AF17BC4289EFB472DA06B2AE06927ECC0AF0E02E95FE -7B2E1399BDA96AE70DBAEF5EC9A7E1102BED3C50F25DA5DD0F51A8303510A6F55793DA47EA94 -E8478FB110A9893A32A9FCBDD460BB73FE92E0F6A360D6AB941B33618324DF03857A09623D35 -FD33F51D5668F202B984DA65F56BA77EF6E898E1A0EC958159717BE2ADA3A76D8991440FE4B5 -54199FCEF98C679BF4AFCA4F70C9602A9B6BB21E62C3D28759DC813E78345EF7E6B45C57D760 -148FD6AD015EE163F2CA223D58AC7D18FCC94B79F0D00AFFB4ACC2FE82E119B229BBB30A82AF -2CFE2C60FB101240AACF1993F34AE5E9C656EF1D6F42D6361CD110C276722C87B69AEE3175F2 -541B3E4A9FE1B0C1645DC8ED0920FF9EFB97BA23B261ABCFC6F1C3A6830FE5AC5CE4EBA2C228 -6816AACC94A9B933CCE2CE73BBB215AA27D677C82972BB5D1E53C33464514586C81B4D87DAB5 -44A6F414DCD8A11F692A60BDC8FDEDF172562B0D678133A89C2901B8FC8A4ADEA65C2365FEC6 -EBC3FD2793E5382125AD6B04526539B2E53F31CA0D128287E3ED9E98CC553C3DFB7824FE6F4B -158CE78B7B968BF69C683A6031D0D7F7D26F801EFC38D6DA539981D373E345D60AA7271A6001 -C78E053E3EC45CADC381C719F8CB1226833D6B5E73E1C639F888CE923B10910F71A3FEE1165C -18CCF8123359025BD638D86A8D35D93EC202B532EFEEDDF4F1FF1BF8DC8B301BC7C01D445820 -7104F56E581967FC6F60C2BDB021E885A49BB9317EE64D17E856CADCD4B03759353CED0557EA -06A778B41D05988C97A885FED5E7AA813763E482E92AD1369C09E05D1803FE672DC66FCBFE3D -066B60842763E5551B6A55A19BD8FCA72551701ABB874E09F199600136D1C8BBFC16E0CB6F4D -F7D7F63B49B0300957297F2624A867D3C547CA5E5C4F67FE908110D7F872210D844865A295BC -5011C7447C3B41942E7704AE5B7ECA1F9585B2D0F453FE7AF2E6C6F5E158FFF1F1A982FBC8F4 -90AA4976D2596E091ABA9CC19B264E0E71651218E2C487823A73F068CD201380C8A39A7A1329 -2B10434A4317B163FBAC2E2228A2079E8DABCB89A922773DE75726823F1CAC3C1F3EAE89F263 -629CF5CEEDC42E1BA576AC07CD8F136275EF9122505EA08D4B830D06232B5572BC5B54BF0AEA -EB52675C1DC5B23DFDCBFC186091765368797F4B336A83F61A6EF33B9B3B1A75077D30F78958 -B4911742121302AD1C2B96F6911ABDAB62012A4194BFBE27A91979261E50A762B47A33D88205 -FCE4EEC012872DCF09B1834C5533F309AFED3C5304BFCF8FCB7A9DFFD9887924872A02CF80B1 -0A9D5CC93E1774D6801DFB8168EC3EFD094A313E40138BA7C43BA8DDD0198E3FFE615C45921E -162633937115DDEC6B4E759EBCA9A0BE35F90FE2933CDD39AC6C2571140CC8897B8588BAAE23 -01063B7C18D4693ABFB71A54D70210F08B9EC1C2BAF766D0D6C969C2D9588F3717DD00FC43BA -DA9AE675B1AB24BE802F8496C2E85178BF1AADB98BA27D15BA3EDF9B6C545DD72E022221F216 -6A5595CD74939C1A723A2EEF866FC5E771732EF0BBF3454C4BAD82E4776D9FE6DFC4AB4DE839 -4E36F8752BA6FBAFB754C5F0E4CB2D428EEF3A1502F36D2A7292C7CC510FBE9BD76A6915C4D1 -BAACFD114F0296EBCC54A77E34C8A954045E09B6A2314BE1733C5EF4B6F334708A74D5C14FAA -86D00FA5E116F9C0EE7DECA48977E00CD2D6A1B326C1D8EFCCF139E2F261BB8CBC33B9FCC9BC -78EA7C469534D3F3208281108E19DD5CC69800856B8F747532B3F56AD2700429E4309B0CC8C8 -3F414EC5F17C64A56D917311E1FD55402FBB220D532A00E7F0450F2A7CDE439068AE41432446 -62DBD27103D92419BDAB593B09939E91A6C55DEC96D424CF8CE8C1F858A59660E3CB669C1D84 -17A331DA3A3F46F6D3DC1380C6FB548E51E9DC292423FBC9AB69D500FD8E1BE5F255196AD832 -603B2CCA2C8880CF4E833E0EEFC5E5FFAC03BA6B857FCC0C7E796D74C625F22224160DA5AD21 -901E1C161820082AFE1228977C17EF607AA6A17B70B4B5667CA6AF117CF8F9DD2148B5AA9F46 -E74340308CDFAFBEFC331B6ADC2CC94F8DBE8545DCD0414C5BC6FEBEF8BB639CC399CDDA9F86 -35A51FC0D5C8BF1A00B285D86918C2EC1BA5F89A3BD46048F54506CE0D56DF8B1F4C99F35D56 -396B504C624F76957DF2FE5E12A5A7F36BA8ADC145762D01C5EB567DDBF9EBB2E60F3A2DB468 -CD16E27AED2C122B42E4928A9BDEA5B1EAACD38B07709C5699C7D398510A0725C02A38C4D0DF -1C3CA300A4B28CBF321BF9435C7979B2EC0D6D4E264FC7FCE99158D9FE1633343C2877317DA7 -E330FDAE1C496B5D0E7CC9359E3209AF81B5CD98058BB4571AD047701954B5A2D06E7F02FD7A -A4438B49B7D75647AE2467F92EE0649E1B5AE52B6E38CF607E911BAEAE18AB8A6D297DC03A3C -4412CC132AC5DA924903220AB646E24888DA97311550B8BFB5471ED1D6C1C52D724BD8AF4F4B -BCE5093E2129B790E9C5FF6E73D7FB73CAEB366533770E8E0FB6A8B9EDDF163A01AEEEC7A7DC -51FAB6FB8E5F7A9D1FEA257284B6D745235D503A747C1602CD55B0C088F68FA07B1706BA29F8 -ED83B7DC31824BF71A9FF2989B5B8E662400438467C435361B9E0DF59AAB00DD5A96C8057D84 -FD6E161CBAF160AF409A7E731A0FC5B627205ECF832B87987B12B57791BA84411735296F5184 -4C4FB8DBDB24D01C2A9D11A0890BE7E7152C316DC99B607B719A58658C4EF2D2CA8C833DFAA5 -EB66A5745A0A312BAEAF3B95523BA642A39D6B1D8FF215AA63FB5003E5B9D789F0F96890E7B5 -146032AE277223E77EDD91281CE887402ED01D0DB1270202B68C139331489DB7D8C80F84271B -49773B3042856976EC5477C2512F7CDF5794F9B5B38ECB9864079A19118948F24272B487036F -1B84695666D458BA5294ECDA99F5DE310AEF35FA4E6CE930E61552F90BF84FB2512B08E2F863 -6E021A3F7106922834CC6BD63841427EF96CB1F75301F606AC84A8FAE68AC2564B43A088EA71 -9197185153986477ADA6327985C1C8F5A7EEF00C9C16F32B03DF454B37E635C1D29570F5F0C6 -B7427F6834278CB37D565819C967C42E068125271727623712B626E7C8610EB1CB5DFAAE8291 -FB77C226E59ECA782038842CB4425B819EBBD080F837DCD8CA21D463419EF259C25F575D2C65 -541925DBC59F9FB453B654500673A00DF84854FD234D895F17FB79A5D5C313471028E1975DEF -4BA871E4FBD035CEC888A5FD53C4903F4D24895D89577BD70644C253F707B379B73483E1AA84 -84BA662942E6EB569B6685B6C59CFC1E2051BCEF9B79121B5F01E3F1D27375C2D0406F69EFCE -AC8DEF65D497AA63154F5F3BCA255E88E6C9781896BF9220DE5353DB1BE9BC1C622D26B20DC1 -64872769418C7EA475C157EC71148822C32CD9A82C23D92BB3025DF7F754A8050726EF5616AA -F8D0A90F209934B544D14050FA4537F3783BA63FA0474CC8C360B9DE43034F29599BC9154538 -74A8DAE100F7696A8568527D327E4FE24229CF5A825CE53B1F9149FBEC023CF2337F3079E376 -97B2D94D3E1F0B117E119AF8606EE8450D275AAFC54E41252EF86782EE1E1088788FD7FDE439 -0EA73DCFC2D7AF6370A26956F6E12FB8AFC96409D220F0276D0F16D0E03D7AE275450093F663 -73D81166279E5C56A940315E6E4FCBDFC289CEB99BA4E309D638C1BB88F2B0E8900FFDAC8F52 -1BF84E1E4F13A78D80E017AB29192A5321EC9AD78EC53AD022C42CF211A09FA8E6E04D06CD4C -5BF1D5DF0463F7E45FA81420E76BB824015E0CF12698CE7D1CA4F8153595B85239A567D1FAE0 -DB3F0133F9D7FF43E63F300BCA2B36E6716568C703ED620EB461A2FC3A1F8BA4FDF963BD0E3E -143107E9373CC6C277134E2D1F669213EEC2CDBE4FDC1571237D63290369A836F94BC942F1A3 -3AFB50E3ABF02149679C9A8E054F7FA584CD73B9C9B307B69D070D9B142AA75B3B1725971418 -135513A4B68C07DA3C275D0C709454C6A847FFF2917E7B85C6C38DD970032125ABD9CC2DA745 -E4C3A5E7968FFB7D54F5FE9B4F8CB515676B882E738BEB5DA3C04FC4578DF59679133375D946 -D9691CC4D83B624C8DA55304FBFD0607853CBBCF42B02BCBBAEE029FE9F422FFCCD8F265B0F7 -942D2A818BCA3474ABFCA37C0E37148173D92A5890FD47CB11F61172DE6E2FEBE97B7C94A5B8 -DE03065B136C720D5A541CD20D7C5F08183595C8E603F6376C9E73D81CF7461FCDF96B0C0482 -BCA5FD76949B40AE77F923D1984C70D9792C817BE0EED8E1390F84941AF81B7CB0E7A84EFE02 -AAFDF26BD15D86868D1E73166A54591136EAEE9113F7B92FBAFA34FBA00B170A687393865905 -2D123A1F02FDB91256D89148150168D88A2A9F21E358C53EAA3BBC222B97CFC9F63D5BA1B2AA -F44092AF2CBE5C3A6554E8CE3B58A495BE3CF4DBFA3586DCD4B93202B4F70E1EA6C96191B0DF -B5ECB3FF10574DECD37D2C45ABEC9BE6C16F423A1319FB4C1800951BB20B829688EF898CF611 -52E226BE88558B9B04993758B619D29B1142E8D2C4956D825CA817DFD2D9A4F1FB3A977CE3F5 -A21CDBFDF1917538AD7D6860E56D37DC38E80767507C00EBD31112BC9860373949B386E2C353 -BDAFFEF696F87CC17FBC9E3E7726EA92D74000BB7580434BB6AF2B976BE39EB700D2AA73E813 -C1417E6C917F7E9B00E3CCD0F5B593DF5801A08E1319DECAA04667D925C25ACC389887C2649B -4E39CB55946C391E7DD5924E2242B74D4BF55158BBA308075D28AF217AA224696279F1E06BB3 -5A9A35D0EB044A4DDC9D67E8F418DA1CDA5C8D0B3547BB0787C783D73F50A2ED5A85457D2C97 -BFFFC8B49DB7AE37405F45AA45CF9D9777BCB914F506322A70708E2AF53927EDB09F2F9F0919 -A45A7E5A166CE199FCD71B2CD2F126481AFA717EEBCA8FB1BFD8EF68A31BAA689AC6AAE923D0 -9B2D3211F6F43D627A340DA733614E016F6BE48871629B4E4BD0B8F9C6B3C63460136BB96177 -2EACCC202A835A29F27ED84B82C47DDBCE65F68D684198412D700E40988AE90935423AAB3B30 -A4F4DEA2AE0219F327DE76137E3F953F7ADEDEFD60B06148EA506725FFBB51BEBA47073F4AEC -8835B2696B7664C1BECFB1213A3179E17368E768E31BF2B7FAE0AD54914D22180EAFF13185AF -26EACCC7C0F7312FE28CFD38AF9FE083FC7308F6BBB0A80EB1EC0DF7B5EF7AF771E08BBC45C9 -AFE46E1DD47847C4B041106AF728E7409C24956B26CE257E692AD93E554E3E2397F71855E344 -A013CC35219A1F434B2E5EA0AFE01F2815DDECEF3CA9BB47B90AAC3014D837A06E8BBC2E21B9 -4AECB01249F9A7F4603B2D34FA60EE44AF66B1A6B9BC83E7E0A553ED1C1676ED58F9CFCF2116 -3B07CE8DBC0C3E0B4C113C8F38C61DAC5E6CAFA1A42A13C5669051E7E1FC96CE63A425680DCC -F961C342E345206424D6297539C8DA56499C28AA276C9650D124ECDF5538C7FB529532CDC736 -948B1B9821ED5FBDCE8053D64826B20A2A24C54A3E4DB227BA709889072A602797258BE385C6 -50B63F84B0AE25F5FF718376B42EE41C9ED4DC60E228ADE6EFCBCAF54458898385F51DC89EE2 -76D344AD20C92B0FB4166B0AFA1B8F6699714C2DFBC7359A4415B011550C8EB7A9892B307AB0 -5AAA144FCDC7BDB4FF46536C092539C7B65D1C9AC597B500DEF36F07B8BBA1C76F3B4157DB2F -17289A0582972530371116E51F760438DDEF8DF1FE17EA91AD0A118F7DEC747029C9BA7745A1 -D53E1F9BB0A6200B71E959FE256069311B355D82DFF5F8E6EE1521E0C92DAA4E136B15C918F6 -83317EDEB6021C5F0AFB08D081E9DE91F16C90F7B7CB45F68F6311689F4FEDC0BB04694CC2FD -B994180B1398BF68D7607085889947EA4DBBA8CB5E9D5FEB016893B1BE0EAACBB7D677CA69C8 -602791BCDE3421FB323A954BE2D8E28D7CAD3775E24ECEC06CD70BE5003F6CC7927BE31CF021 -96EECD0ACE36A06FA542E8F8B200B5882907264251F0E22DC1FEBA7419A029B289A6CD06A416 -4A2B1827B98918A0973B51584F15CC73DAE0861E13CF94C89A6767E78DE0639E2A6499808910 -35963C994DEC9FDF2C6720D7836FE742785B70B3FAAD44501225EDDED2F0EE296C913287FD2C -E26D646A17F96DD1B2BEC4B15348AA9B3BABC740AA276CC79CD35CE91BF930609AD5E53872B1 -CBE8BA38881E141A9ABD0DD5ECB5D98B251C9ABEBBCD2A4E85D2275B01FBE086553C9BE5FA45 -73863C1085F70ED6D57F2B35EB335AD3484BB9F3A3D9E07001552C4F338986F32668EF5190D3 -0AB83EBEA58983EE0BCEE361D774F30DC52E43F56EDBA485707301C0E97961614151E455DC62 -6761AD8590FEEFB8A42A1219FE36DD060EFB1C59020BB6DD3E99A5230952BA3964C221957035 -1F5D5A136F88C33060918A8ABFF468EF23A4DDDEFA71C41516CA9DDFCABCF2439EB6031694F0 -C8F09A432E06D4EEC9F0EAE014B907FBDFB2947908825EF79D13B5C016D524BA8F98BA599108 -D070822F3A511855C8FAAC56C4CD07A1192A55E8F3B0CB755D119B98A1A976657E58BB78F263 -6DB5A99C7A67E68A16E4ECFEDDC46B3C9875796571B62980A818A1637747A8070A76708F3702 -DBBD6128D681BC0CC49B8B7A8ECBB2D6E9C29C2E65C25AB4A73B43F7EE48DA35A588DCFC1A58 -4B7C1E165F04D46C24C40D344555542A45C5D352AFBC0CF892093FFA8A9D6C6E13D0B0184E39 -C0B8D37773DFBE420F103260BD673186C0B04F19F7BB53111762A2FA44086EB268AEFE10E382 -4D7454386FB9BC2DDF7EE95E564CDF15433FD3244435992E676C475974775F19EF6234D70827 -0E8AF5CE60228D21FE4AAD272A5A03A2227704B42F49F3159557A7531EF8ED0513F456DCEB11 -BCBBD71E9D95DA4DC508AFDB00103FEB7CA3320E76E64EC0EC82B2BD79DA32F62D9F97B7E4DF -A72713863E088BDBB18CBE77D4C2556A1FC13862385442828FDE24A6E643CE0434A1E6062FBA -4F7195F76FC3F0263713B7C547E7F64ABB018A052E72EDD8CD622EAF2058E7E375A726121738 -5E00414679B97BA13AA119967610039920DA395DD027AF0313D6363DD2462828AD273159E37F -B9F2EC1C9F7A15481D8C3964722B5944D1428233D3702C12EEF5D823B6494BA5345E5CA4F81C -CB7245F00C8D09DCE9CFEAC591668B3E3F87165C75F1A8BDC04B74E9998D3964D43442F4B1B8 -3B8DE1D067C0C0EF1DA280F92AD64CC4ECB293F6642E17D8FC2A605DB397A09FC48B7E9FDD8C -AD64AB6B79928D10FD8BCE768CC72F14584212214D7758AB5A1AE15E468790E6664814DEA349 -CC0D1853CCA3B85F92381E16F27E8726C4DE1BBDF680C60151C2F821DA3D0146B85C852E9663 -A47AFB48296F12DB27A6CDEF8455C3F01B8B54C2E005489B2773D352DD36741455CBE9C539A5 -53A653DFEEDA6DC667111A2E0DAE5B3C94FF7F1107DD0E2BB9C22E58C9904AB950E94D011EFF -EAA8C1368EDFDD6D65F7E8047AFD9AE7C65883DB0166FD0F09A42927684E307635F8D0126A3F -B4C48C6299B867ADB0BD4BB275165AE9DDF33A0710A2889240D77DED747F17B7A4DD947AC80F -7842C3235B88F8114BB8EB3C6C4FB8602D51E60CC350636609B923609BEACD34A56076212CF2 -B19EC0E00B66100D9906BA5610ACEE9D0F01C292625359ED8282A5929A95052185CC80733B5B -DA5F774375519FDF3AD57675561B842021981132AA65B1224FFCDC855FE231C267046C4EA295 -AEAA8F3CE8D0D03F0CDD1A763E1D348530350D2FFE296531CD9F0E228246E6707E360A04D2AC -FF8D3D6ED3BD9B94FAD117E94475C88760DAC36C187E08C2EECCB4CA5824C2E6F6540BC78673 -D65F1B83E888786BF9483683EB61610E7245DB022E28E86FAA7AFA3FAAD19092C6C951A99B82 -51308F35A8594CADA970BAA35483CA6EF0395CEA6CB007213D2BFF08491E42FC8085EAEAE51E -4D7B9E8CDC032B7CF0676F2744BA80583AD3F0FEBAF604582AE3B99A1CF281E2DD2C47C9FA5C -EA19769D775CC6E4BD7F975EFA43E51F90C793BD0661D260F8B3429092DFFEEF24BA3D108766 -CC5BBD1E0ABB657E0C1C6287ACEAE828DC014B74E2AEA4B132E8FB36A8128638269ADD554411 -B48D8A0FED014DE3B4C75EB7B3A707A628167190C384E343DB37B1FE0465D803C6F367F18477 -9D3525697475A59F8F461E4D17BF3A1FEBBB962EAEB5B02116D216A7F5E0184B9FD8E44EE127 -EE66F6A57690161CCEB2909F3F0DF90797A951D3C4CDCCA6AC05369DE0589CF1D738194969E6 -AFF6C19A526EC29388E3520872D0010FC2533F8F5B40EC27B7ED3E0394E084FB1AE1CA249833 -8F5C0DCDAFBD9705C31871D5F4ADB80E7A963BD1C18400782462575948ADCD91CD576906D8A8 -00DEB1AA71C7FB47B568C7D617E1A3AD5DB6767FA8C65A5DBFEFF1294170163AE12A9E9F068F -4AA2C1BC5BE67417CC7544C6F6D7256FDED6665C7D480A9A2F1E8EB76EF6B21ABDD439BAA807 -26D3BD7BA41ADF460C736223BE3271CD3E5B4178358F214BEC9291BE1FFFC66DD6711626C599 -82E4B5F76782AC4990C77C2A701065779A5C1FCD635868F2DAAA4AFE9D4F724A31231960E5C6 -6474E82E4BA6E561D46312D67465D4D061C86C39C2C337333B8F3E8DE5A9D138722E79898507 -5D51A29976578EED3501D0698C02F6B66E7BB3C940309EDDD214B5A413C49BB69230FDC5A4E9 -3FE01C63FE63B17F9EA0A77AEE2B1AFB5D53275CB9B72A82C0A7A83DB7BD5F8E74CA6CE08FB2 -9793A5F94CCF2338A2ABE9A575E24E439C7AAFD2532DD24D502270DFEC66E387A237D4ABF1F8 -AF63A5D7D7A42FAC312D912A21E8FAA53770FEE70FB862A75C4A01C270F9C3900C70AEDE8C0C -338F34C64F0D69E38DEFF7F364BA78D27B11DE23E92E96BE2EA046997D9DB39F8929C5BA8BE2 -23A22C6734824020EE8F5620F60D54E7D62DB2D45117B7332F3D292B6507485C156FE4A3126B -E083CFF8337AFF1D5319E86CD18A4D92AE9F0942BB040DC663DD252B0B724F159009744976AC -AC4664133934964E6DCA8592FF9F3C5766EB0D405F3797101E2585F259287D4D10554CAE8A19 -7C9E19C9A3C8E90D0D3E8C02CA88BBBCF7AB21C09F1B7599DFED012AF151967C8F46B1302543 -27D359A36A1B44E6B8845CED61018FE4120016BFFAA99D31458100368C74A3E42E91D03FC402 -8BAC496692554190C45ED81BF10F905E2A159A550B3471ADB2556923D93DA6AA46BF25C8F8E3 -FEBA19DE1A9DB19ABA3DDD7AB50CC4137E90C7A021AEB45F403F1EE59F411B54322505C984A1 -88DE2435E8E5567D956ABED022B6055B78F22D2A1D3DF8F08A36B21C6378B2D67DB94EB9CA95 -5171A46C2B5D9B1C022DCB891345F2F16DFA565EF92D2DAC51A5C2B6217FD735E9416D470652 -478816F550F023081F6A5FC642945F70B183C22EF28FC87DA0C496599C4619A120F15C6BD218 -47E5256CB77823ABE82BD1211A9750B18D278A089CD8C4DCFE812BE2725CB05E8304A43319C5 -5B941112BC0D2D7D6C6E54895CFDA115745CC099642A93557FC3FBA4624031BEB8AA046F357B -D3E60BEB96B47863EB5EEB6BCD2423CEE6760B53E24BA47CCA097CF20EB3E482BEF35126EEB6 -1E61B739C98B62A52A37C21BF9A32E2F0D8C1EF2BAF7AA4A14389EF83D1495D83EB91631D3A9 -CB881A5CFDF018DA453EC130CBB97040D67264E5E1AB9190E07FA92D3031D531CDD6C1B921D5 -8E0BF811759B9B6C8F304EA5A1A1A70B52AB8D9DA95CE0CB927398D8F7EE51A9C5DE68A5A212 -773D988A101C6C2653FC214F3274029E6CCDE11C565457F49830E33EFC975E52D853491866BB -571E9DD516137DA1397C11AA5F61306A48F8B93E3782690F341415D6F2EE233D02E660C7023D -70455536A84382A6DA61011A8B9ADC1F0D146D333AD5F199E521053D42F4E6C161F614D35115 -15D8C2D01ECF17BCDEFB7CBF7EF0A2AE13FBDC1F6E68DA944872BDD3F93B8E12926E36FBF0BD -C52BBF8FF1558E51FBE689ADD817EA1536D0258DA5B7776946A34468E68811B1D9304FDA038C -BC1C7D75A570A2D0EFD208F668E68B80614DF0C85B653FF0AB2BE97275BFC8566BAA6EBEE589 -74B6F35B87A3F1F0648935E0105241DB87430A2B213DABD62F86E2C39A4F0C24F68D7CD870AE -40B58199FDD3A7ED0298EB3C2A049E43E37FA9902C664EC80D699DC3526B91A3ABAA6859635A -02DB98A91C6F34AA57EBBC6253E5E3EFD5B2E23FBE564BB84A834B5E1160751BB83B1E5F99EA -41B70584ABE7B269894AFDA0A645543E12A934E29249C7D39BBC78A5C882FE1635BC82998DE6 -E523DA68D1E4B3D517DDFC4A00DB3ED9466C82D4F5FBECAFE58E4F543A81D4C9534C5764ED75 -500E4B7EAD5B40F90A45EC776E23131E11767355858ECB9D39884BAC1D5FB8AEBC648140BC2F -9D0775722898CBE3A44B1123EAA5357E579EA8E3D30788AB2E8CD49B0AB1E3D03194043935CB -9F03FD002C99461CE40E1E18D36E4E2D767810C6260D366A10CCC608D465C13EF20A62C7128B -32970A839E3D262CB869876F3445CE801E5200194479C95D2679E809210F0DDEAFDB7AB768A4 -4F195714E5A4DC15B198EB1406C381CBEC7A3AB3C3BA3DAA6678B559769125D94A688BA70427 -506338CDE0668A1297D805AD450E7310A3C71B3E2C50D00618AE4A6EF7318A68541666597EBF -82042C3D3C143BE86655059BE08BDC081E5B977F0E0BC42990D2D7674A6228B41C2A9A685ACE -F38F7F64DA7336D8DE8D3307AE27561C0FD330955D400D80A7B1EA334450841245EF63985F8F -40BEEB617CC340064D0A9A3E4AA9EC3F1D8AB393CB7242577DE8E45D0CA2670351CACE5D332C -293ED0AAE6CFDA5DBD23D59D96D10AE549B66EEB0C505144910A455A19C5366B7D183250D972 -E6DFFFE1C70932FA5D4995BCBB857D9939058621C33E9E47501875B414FD74375E80F7175EB2 -5F4C3871E48ABC457494175661E45AB3FD9B7B4CC9A1A94388EAFE36A6E658BD6D9B9E96624B -4AE379066428F4808BFD2232C31AC8F0B77653D53F7151E726C3420A173D8E790EDC9010E7D2 -893B3E955BB14E50997ABFAA0BD2259E8569242E7545F36B382D8BCCC2BF1E89234DD26931FF -7F94B9EB4E20CFD57300CF9699ADA125FEE2311EA7AC859D11037067A1CA782D87F817392D99 -88970C3AEB8D17A25EE0109A875357A21A784EF7F3AFE3997D644BE932518ED2B297B3C7AA01 -AE5C4588FB3A1933DE430F53D976A72D7A9C390C17BA4BF10A8C568F263A31A1F42DA2DE037B -2E0AD3B80ABE577886B1ECB76DA60614040D9AE8064E961EE1C274B6D9388B8B58AE4DD5561F -D3B79590CAB7CA32D6E6FCABFE771AAAC1003F2B44451DBC5800FEA36C4122C008F2DA2DBE2A -A25A4BC33BE6264198221A75D0A47C44842C3E5B876E93E2B47DA6A860D2CC6F72F97BE95BEA -04C21438599516BF3C2AD014F92E84FB250658C75F7B479A81E73D54E6CB9B226E7308CE7A1A -425F3F5B775C6F9391328B8BB7605DA9E4D7491410AA9558A0C400FD53424CA7FC50B2CD7654 -61EFFE97EE85CA82079BCFCB78801A27EBD7148BD7F2110AC50EFA21DCCC434B0DCEF4434CC2 -98566F86A072427A5D63AC18CCDD91E901F1FC8A5F0C01758FF1784A62B5F7C6F06DD3010777 -159AA12C709311F984864F2B7312FAE48CD22A37E836CD1E17F90D09BF8E8F5CAEE6B04882D6 -09AAF37E1607F9137586D9B266F8891974D4FC82ECAE3339EE165A905B295463D55521AA9797 -70E78129DF6F973DDAEA6CB5C5EEDAD661108449862C5DAC4606A7E2F151D0B58AD972DE1C38 -39DBB597D035A170B97AE6CD1404B6D853E0000105B9EDAA8B2BC27416E852265DB137E3C3EE -113EFE22097173E21CFF5E43179B083AD2D78052C4AB0FFDFC4201169961FCFF2BCC7638401C -C77E9ED5B6F24726D52C99060A6F27698C1B34B8B55C002937F2C2DB515800EDFC696BAD4E14 -26A72E12FE72E0BA2ADAC755BF397BC6A042BA87E1864579885CA91050A76930D6E3FFE930CA -4611B5402E7E465485C0D1767B254EBAB9C299FA31AF259FD84B82A3AEAD0ECE9615644BE3AB -0F065ADC7592C2167EF5381752CEE6F2E23A977D8978CE09F1593A7EB17AE380B54676DBF8C8 -40BFF8574F90CD81A70DB5A38677DDC43E7584D882C9856A23093420B519261C56A3BA18DD1C -C7AA94ED54A8FA97BDF899560DB9FF7FF072561D747BC93392A5B5D228B7C17633DE184742C7 -AE2A43FBEBAB5548382A85282F79E1429B1BD6C4D5CE2DAB91C45E9A83049F8C614D7F573D5B -2EB7F09C8B1A22CAEB0C68BFB6201F72D372516793D891E6033D5F7CF4DB6EC2D59C02CA40C1 -38A92D233F1B224B384C1D49974FF245E51E4C8ACCCB1F22E900A509FF0A18CD3B8DC1D28974 -A9532BD71473ABC0E6E6D00B31DBC654DC374FC72667FAE9AC28535AC4D6B59E5A5D78E8C3C6 -A4423D08B61021B09E38D80ABF25DA3DC5817465B1F9B9F2BB0F03E15C9B878A9E941CC68E42 -3EDB5351EC5419255BA575650654082DBACDB8D0FBD4F80FFC4714A7955F92C93A6D30D6937D -B4EC6CF7237E51F0F7EC82C7D1401D49A2FFE0735FF0A8234DBE3DC59331D027C9FF49FC260D -CD4A5867310C6BF4C715992AA7432B26FEE9CBF896DFC7464A7011C1C2B2FE119D1096CAB00F -65D5459FD33963F08BCAD41C8FC521A582968548D1C5644FF4E01F79CDAC605D19710F63F75F -44DF5D179F2B54ACFA45346C4F8F4AD496F819D5D27ED3FF5D7D7A62ADA7A9925E7B8EFA712D -0F0DBF6F5F6E789B0835B40D8D60A0275437515CD38FA16CA32279A6E0F13268ABF5242B7AAB -5483D720D56A784A8A351F920F3B8266D7B29BFF8F19F969D621D71FD2A7FEE19482D7C50B94 -B798CD6576528553730CC1716A0603ACE7E09B916FE9E9320D0C63804D24BF97C18EE775F4AA -069AD28C1334B84C56756D663488C5CAA1CD81BCA635D5BAB3D362103727095A1BB2F0783305 -23D4E52394FB2FB3E30DFD190B61223ECB8EFE053EDB5B2AD9DF0629D03971CA85BEDBC0D021 -DC3283018F1BC62F9F9F542C3B328BCD39807A617480DE46F678F52697160B031F8DEEC94991 -86A148562F1B6082843D805ED94E85C767784025DBCE087975A46F188201BE2C2A9E9F342F54 -4AC880432931F33AB449FEC22DC435935E0101425475470A404C6EC7D6E78D608A9127E62256 -F20B3544CCE19E4811B47B1E5872B75CBE27767F083B1F14DFDD2D06EDCFECAFA27D8CC0A0B5 -3D0B6E42781FB08205513DA447ACC1B14909F103CF3B63A60C7D7FEC7929B1B8E61D44189097 -8C4374E280A61BE277E4655FEF5D5595DF897057E3E685B747CB981C64192FDA42685F7AFDB3 -E38260336A28A41DE221EE55BE3C0D609F15BE0BF042BDAA01289575C98216B8E4A70B9D35D3 -E7B2390CB981DFD8A173121D645F925337BEB41C8BEC024A08FFBF7DF1CE2264A05B858F9A51 -005FD2DA5100CC960637DAB8204ADAE47442A6A87D376E9E564865AAD0BCF3FD38174CE3BF48 -4C455F17A028E49F588D815714FD968CA7CDAB88E89F2E5E5E637D154703A8BDA660D269A177 -7B90F0571D246A68A56F7A69BF2AD6A8E5AD6762E20D4073BEAC173DD49D04509BBAB5C2750A -BAA9A620740210E50AB85869E42E60518FD27CC953751EFAC5F6E05EAA1D0B5FE10F48DCB24E -27D18F7013CECFFBF8D0DEF66A09C20CA3C8F48C444C66C82AA9F25A3FD0E85FBB487F3D1D97 -58DF5CD9F4D6C205504903B645FD4CE22DE6ADCD79D00066AB1DF12F1D1E932BEA2A49A9783F -2DE6BEB49A38C6C9BA32B71B4180DABA5D6B9A6501CC5DCBC467C4C3EB2E65CBDF1EFB70B935 -D68139F971F1E4C0D3F98FB38BD641ABAE20EE854229A462855206F1C48DC1A6B28B9846A502 -795C130AF2E9D1EAC544FB33F252A176CB2C1E6C8804AE93E20D929FE0596F3A06F87A8F41C9 -DB04C7C78FB23CE21902E91415ED8D4776AE357B1A1AC07E09B4438F8D50BBCF87391299B87D -B589F0814FCC90164D51160D5C035ED0DC4A606FDD2A34B56EA46F2167FBA7164A9D8C7D3494 -E283B401D477A9102CF3A166075825099B137C407E0D8148CAB41F8F9F57873705482002ED4D -C380260995D754E648C529397713994B18D69348293A123F22626402A3A37567EF004BC33A79 -45B16DA2E8C3BE23F1E0E804745CB04C6DE0E346EB6E9E1C24B04A942C186A7FDFD7B0494A9A -BB199116E1AD941B87CF3DE541FDEE2ACF9754ABF6C2D0ABC37A68B507780C5797E4D799C2B3 -636DBC8D297DF7CF4B019411A103A99D2E28D445FF719A8D8CB339B713FB62D89C4A7B19A69B -F2EB221B26D0C1FF37A14B9FFBAD84B1FF01C8144DAC43F2EAC7EB5579240C8016BB07E6A5A6 -5555FCA954C1FA5CC039E2FB28C5F3F2CF3C5DD1A9EB1F4E0455F8D661168749A6DDE85D7445 -9D009864B2B52F2BCB68102F1F6F280F7CDAAD39BBED5D6A5D5E951721B9D305ECDB727B74E0 -388D3E1D8C90FC0801180EEB1B1C8D289DB80E520F896ADF57EAE1907D070D66A6F2964C7EAC -8CA65CE2EC861FDE6F27CBB1733801C33DB5FF6502DEE7BB934B4833509E1FD1371BAB177FE7 -49C30723E07C7C187E982004D5BC97D75AB90171626B7E8BAE093789F47507C01D1B1A1C346D -AD6DEE3B1F69CD28D3BD7A6EA13D125A256EFD6F24159BE93E1790A296A9D894631956E37672 -FB3B2112FE5666DB581BF514FE9E560DF8CE5D3AF23B19645E50FB5113C62C7640D0D57674CC -6DDE51DDCAC23B1BDE02D3FB86389FDCD65E586D89292B20A6A31DD8AFACEDCB388FB7A4378E -0A3765D23C0F94A7D13F5C3D7C5D905A43D54143B9838C37C55F7A1911CEFEE141B97BA74AAF -45D6429EA44F295A7014A415860A821FEDD4EBCEE82D3FCDBF4133E260320CB35D5516ED38B5 -61AE459B71BCB761F09AE168374F15C662FA5753A712A8F7321D75D32F3EA1C9538D8DEB32CF -5D94E0AAF7BB77B815C81E917A141A67442F7EF75520E4F55F9B5545FEB4F07A970D92C606E7 -89C9581E80B1B90BDC40D81BF6755043605A4C5F0CC60687F0C78F540449426FBB83204A9FF3 -B635E4D33D3944115A8E5F16EB3EA9BDA7E89B41EADC1EAE06A09469736B5A4D69E43D6D2B62 -556E652A06BFA5A84C13909B0908E904AF800C913D49A864481F75282C38E419A30861DE0A5B -F0DD789EFAEF41769C3F9B9AFC4B7DC3C97601D8477449F8E42F7AAD6B581B1A4061B5D66F91 -B264233AB95F25D6546845808EAB30428B0AE7293CFA1146618601F83344FDB322626EF94487 -8E8FFC26D72D912172C10BA3628194E4D32B4EBAB295104F09DDBEAA7659FAABE863D86AE150 -F72260E190E3A8289189F65C0DABAEFC6720663360231096DEE9C28DED997A7D29C7281BB779 -25C2084FD46EC46A5B218F8D36FA9F09455C91E180E052F325D7BFEF4F7AAED7B6CD44AA5D7F -AF128FC19C5FB383963A322075385E58E2314D8405D024E50D8CE43EFF13C5AA3C714A5339D5 -098077B1C4563229C93CA29196E52901E9C074FF5254FF46FB331B12B2084EECEE2C262B59AC -447389FAD7934F44DA2211884CAE79CB5B2F5433C69C679BE42E07EFF637507EF51934C5E09C -04EA0AD1AC617BB6E82339FA3ABFEF1FCA6A867B6C99A867FD55650BD93238A2D0ED9B3041AD -E520BCB810FE84AB0B1D1E14FF325B6FACCF1778D972D17493253E9F431DD62A84DA02969E5B -3E92C65852783B1F80C449054848A058174BD469443833D5517044CFD59FE769A725E9BA91E6 -F41AB5C4B0C2B31F64844B586E5505B7A19BE11710FB3661D8B5F4D9D1B7927E75D07CA98B5A -4BEAD1DF8F34129D09579E6248AA2AC27331C9A7594D9A5E339C963BADD416BB49B9CF85FC24 -B22957C7578DDD8ACB695205CD56A5CFE9CD9EECA0D8D2DB28A754ED57FBCB36D84DEC42DBCB -81E8F949C4EA60CE547FD117F38894B85DD1DE3979B94FFD9C0E9A783ED61FC54008F81E1398 -AE9A970C82A7A24A14C555D0EB6C0421C20FC1F2059C0136ACC7521668B3A777BC287CE6F8EF -6BE689DEAB2B71AE7865768141469AA980C109A87BE3BEB58F8795FF3D3FED393369B7527329 -583DC1FB34FE3A84CAE3BA612DFC3044FAE065E965D8455977B74378CDA96C5E5D51CF63936A -0CF60A5E752E7A55506D79E07A67225A079318E9DC4D9A1D22FE2324C5E1BEC6991CA021DEE2 -80EDBC4FCFEEB963E71FDDEDEAB3E9E808FE7A91C392274386C49FDA66943A110D69F52889ED -7C3B6617ABD9F57B7B1D8A03526E973870715CF8A1A16AD9850CE610289A961DFF8EBC2A28A0 -0C9455E3845BDCB5AE8B06A768E4CE10A7008D2F5CD94E89C24B27611A1F17C800677D157200 -AEF304C16D9D5CE20829E990D38569B668E727199103572C6FB0988190313FFD2E4FA8994B7B -5EE3BD5D86DFCF0C8325051EAFDE00ACF7CEFF1AF155153316B8D47EE6F1E75D12229EF851AE -B39FCAB52D08281D9673010E943A74284E3F37B2333412792388AE4DAFD9B80F481B1B817338 -B1411D9820CC06361F075BCC5D4943BABAF140E805F8F97839DA3706002C2B9BD09EF4A46E14 -61B72B938270B9E64D8C836B7CD492025C34D4C22AF96813A633CE657C98F5594717709780CA -BA9BBE6C5580C49CAB2E7D7B325255A15545D9867B520139EA2F5900947347352CE1FD88B012 -3BCD0C0562DAAA828C51C1D636A948679C5AEB03D491F0BE4AB895179F59B1078127BFDCFCA3 -3A7F39A922714CD44A04CE29359D1E3AE59051D44C35F680F7AAEE19CA7F3064C2EAA63890A5 -C03319CCD9E40A39D22A169B0C2F9B783993C306578C5D26428009B3178AFF0EC55D3566AE41 -5D9FB979DB89598E8109C0A864D266E6BA2DD4083AC92E23E5262D0040C068C21D7E36C3E298 -A894841BF263A72DEA2DF65510437E32AAE3FBA1B71E4E6E8B195B8D0DB5D40D85EDAE764719 -02AB24014B7949CCAAA6063B37C226387FDDB2F7A5DCB8792D317C3C9F3BB84BA78F6D37DF6B -9802E91A0086CD07FB7A7DBE4EE01118C10A6A7106135C9B0B63B03F4D3F2BCB032C79D5F128 -7FF4E9C13A67DDBF8911307159CA0F0702ED26A9D55374E64E77C0077870073E7E9FD8A52CDD -6E73A252CDA2B8B09FD5AC9DFD2C4775CCA5A9898C77EE3D975B464A0385B8D4178E8C5D8E9C -6B5B30D217EF31084D2AD032D515791CDC78C3DA04755AE4D88414FF8370719E8785B224EC71 -E4C1F8C431212243BFED2507F569563246425BE025D3FA52794C45610FADB34AEA2DC5572870 -2784F56B64ED2E391FF47D11C8BF6913C545AA984B0D29226B406F98C13D69625421389792FB -DA160E6A9420FCE277BB00447C71896061A07D305D0AA9CC18E7F8F265F993BABC1CF139F949 -0325AFE7F4CB725408AF49CE2064B437BDBFE66D143EDB79C75B622C0CD945E659A3646AF2B8 -3590325D6E7246BB55DA98CE8B3496EE38FC5B2D282DC9330FDC94B3F6E6A1F6CA9D110CB950 -D0E682D9AE21805D5F988D83EBF4AF2E34371DA9C9AF04827FC338CC5BBE2248BF48B5F2AB38 -F8CC38D1A82ECADB6CF1DAE3B597110763CC1F8F8ACF34285A0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 - -cleartomark -{restore}if - - -%%EndFont -%%BeginFont: CMTT9 -%!PS-AdobeFont-1.0: CMTT9 003.002 -%%Title: CMTT9 -%Version: 003.002 -%%CreationDate: Mon Jul 13 16:17:00 2009 -%%Creator: David M. Jones -%Copyright: Copyright (c) 1997, 2009 American Mathematical Society -%Copyright: (), with Reserved Font Name CMTT9. -% This Font Software is licensed under the SIL Open Font License, Version 1.1. -% This license is in the accompanying file OFL.txt, and is also -% available with a FAQ at: http://scripts.sil.org/OFL. -%%EndComments - -FontDirectory/CMTT9 known{/CMTT9 findfont dup/UniqueID known{dup -/UniqueID get 5000831 eq exch/FontType get 1 eq and}{pop false}ifelse -{save true}{false}ifelse}{false}ifelse -11 dict begin -/FontType 1 def -/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def -/FontName /CMTT9 def -/FontBBox {-6 -233 542 698 }readonly def -/UniqueID 5000831 def -/PaintType 0 def -/FontInfo 9 dict dup begin - /version (003.002) readonly def - /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMTT9.) readonly def - /FullName (CMTT9) readonly def - /FamilyName (Computer Modern) readonly def - /Weight (Medium) readonly def - /ItalicAngle 0 def - /isFixedPitch true def - /UnderlinePosition -100 def - /UnderlineThickness 50 def -end readonly def -/Encoding 256 array - 0 1 255 { 1 index exch /.notdef put} for -dup 0 /Gamma put -dup 1 /Delta put -dup 2 /Theta put -dup 3 /Lambda put -dup 4 /Xi put -dup 5 /Pi put -dup 6 /Sigma put -dup 7 /Upsilon put -dup 8 /Phi put -dup 9 /Psi put -dup 10 /Omega put -dup 11 /arrowup put -dup 12 /arrowdown put -dup 13 /quotesingle put -dup 14 /exclamdown put -dup 15 /questiondown put -dup 16 /dotlessi put -dup 17 /dotlessj put -dup 18 /grave put -dup 19 /acute put -dup 20 /caron put -dup 21 /breve put -dup 22 /macron put -dup 23 /ring put -dup 24 /cedilla put -dup 25 /germandbls put -dup 26 /ae put -dup 27 /oe put -dup 28 /oslash put -dup 29 /AE put -dup 30 /OE put -dup 31 /Oslash put -dup 32 /visiblespace put -dup 33 /exclam put -dup 34 /quotedbl put -dup 35 /numbersign put -dup 36 /dollar put -dup 37 /percent put -dup 38 /ampersand put -dup 39 /quoteright put -dup 40 /parenleft put -dup 41 /parenright put -dup 42 /asterisk put -dup 43 /plus put -dup 44 /comma put -dup 45 /hyphen put -dup 46 /period put -dup 47 /slash put -dup 48 /zero put -dup 49 /one put -dup 50 /two put -dup 51 /three put -dup 52 /four put -dup 53 /five put -dup 54 /six put -dup 55 /seven put -dup 56 /eight put -dup 57 /nine put -dup 58 /colon put -dup 59 /semicolon put -dup 60 /less put -dup 61 /equal put -dup 62 /greater put -dup 63 /question put -dup 64 /at put -dup 65 /A put -dup 66 /B put -dup 67 /C put -dup 68 /D put -dup 69 /E put -dup 70 /F put -dup 71 /G put -dup 72 /H put -dup 73 /I put -dup 74 /J put -dup 75 /K put -dup 76 /L put -dup 77 /M put -dup 78 /N put -dup 79 /O put -dup 80 /P put -dup 81 /Q put -dup 82 /R put -dup 83 /S put -dup 84 /T put -dup 85 /U put -dup 86 /V put -dup 87 /W put -dup 88 /X put -dup 89 /Y put -dup 90 /Z put -dup 91 /bracketleft put -dup 92 /backslash put -dup 93 /bracketright put -dup 94 /asciicircum put -dup 95 /underscore put -dup 96 /quoteleft put -dup 97 /a put -dup 98 /b put -dup 99 /c put -dup 100 /d put -dup 101 /e put -dup 102 /f put -dup 103 /g put -dup 104 /h put -dup 105 /i put -dup 106 /j put -dup 107 /k put -dup 108 /l put -dup 109 /m put -dup 110 /n put -dup 111 /o put -dup 112 /p put -dup 113 /q put -dup 114 /r put -dup 115 /s put -dup 116 /t put -dup 117 /u put -dup 118 /v put -dup 119 /w put -dup 120 /x put -dup 121 /y put -dup 122 /z put -dup 123 /braceleft put -dup 124 /bar put -dup 125 /braceright put -dup 126 /asciitilde put -dup 127 /dieresis put -dup 128 /visiblespace put -dup 160 /space put -dup 161 /Gamma put -dup 162 /Delta put -dup 163 /Theta put -dup 164 /Lambda put -dup 165 /Xi put -dup 166 /Pi put -dup 167 /Sigma put -dup 168 /Upsilon put -dup 169 /Phi put -dup 170 /Psi put -dup 171 /sfthyphen put -dup 172 /nbspace put -dup 173 /Omega put -dup 174 /arrowup put -dup 175 /arrowdown put -dup 176 /quotesingle put -dup 177 /exclamdown put -dup 178 /questiondown put -dup 179 /dotlessi put -dup 180 /dotlessj put -dup 181 /grave put -dup 182 /acute put -dup 183 /caron put -dup 184 /breve put -dup 185 /macron put -dup 186 /ring put -dup 187 /cedilla put -dup 188 /germandbls put -dup 189 /ae put -dup 190 /oe put -dup 191 /oslash put -dup 192 /AE put -dup 193 /OE put -dup 194 /Oslash put -dup 195 /visiblespace put -dup 196 /dieresis put -readonly def -currentdict end -currentfile eexec - -D9D66F633B846AB284BCF8B0411B772DE5CE3DD325E55798292D7BD972BD75FA0E079529AF9C -82DF72F64195C9C210DCE34528F540DA1FFD7BEBB9B40787BA9351BBFB7CFC5F9152D1E5BB0A -D8D016C6CFA4EB41B3C51D091C2D5440E67CFD717C56816B03B901BF4A25A07175380E50A213 -F877C44778B3C5AADBCC86D6E551E6AF364B0BFCAAD22D8D558C5C81A7D425A1629DD5182206 -742D1D082A12F0780FD4F5F6D3129FCFFF1F4A912B0A7DEC8D33A57B5AE0328EF9D57ADDAC54 -3273C01924195A181D03F5054A93B71E5065F8D92FE23794DDF2E6BABDA4215500A042D1A3D0 -D02C0C98BB1D6ED0B7791274C38B038FC7921FF1FB8FAE7258C092594B8E1BD9EDCEDE9ADAD9 -BD9598EEA9691589649A9A21539161E374075BEE3457689F308A4A7AC9F2FE4B301A6C36B044 -2FB92E3B002623493DC087800B5A05210DB96A23175AC584DE166F59142779F26FEE9783E28D -E49FC3A8D6583EE63FBA610DA773CA18ACE6F64A4867A1A7817120ABF9DE4D17782866E6CB6B -65A9F6D83667C8D3E61E5356E35343FDD4C6436DF73934470916CB5F0ECEA695F2DFDAB27EF7 -F034CDF2492BBF1F31D02997D0FE67336004AA6B15B056CC4380CC7C6C334A21CD6748BC1E07 -13F9071CF53D78D5E0884D050788A24E533B5184FD1AA1907043AF5590319E90F54EED893382 -A8A83ED614B7721E136E3360FBF955AFE7A1C7C77670130299B443CCC4422A0665837541DE18 -B548D362A23F1220E5E3B5BB79F16BA2468731C4795FC01FCD170611F2626027E6D3E54ADED6 -49BC566ADD85D9B4153CC96546D776F4FA249C2371C8389342775EF57B9EC1F72C97AA187D49 -ABAA8D37D07DD563D90254E2CC9946029A0E3E114F1ADCCE927AEB54BEF3CE6A2577A6586AEB -EFAB99804235923474CB96D6F33A114D423539C9F6CD5460A0DC19DB2AC4456C14A25BD4D338 -2B5B26F05251CD8AC956E75C4592500E46D0116460915289E35945D11BBFE9F67469219EECFB -4BC1190FB2F18A18B2709EA9E73FEC6C92671187F83053EC956224F6C74410A7CBB9C81420B5 -D8D61E004D68030B93105DF3667D372D548DE0D7EBFFC743CC0298B2CB1A98AD144B518F9173 -A921C37C696E7F05D1DDBBDFF7DF8924190975DD37A4B32290662BCB8DDAE9A1CFDC8D8BD3D4 -CE65AF0B0E3431FC2E11FE7D9778576FC2BB11AB37C93DA07766B3067F6F6A0170FB6DCF1619 -792CF1D678B8F0389AE2391E4618E4D8D7E1EA0C0E2537A03B82F1113064647441123B4C1DF6 -469F6FCFFB58007296C2658BA21DF974AE608E45836AF43CDC494DA50C183838330C0284AA87 -90EBB4A15FF0B31C80A459F629383526109095DB0ADFB1E94E483D89714F5779DE173A2674C7 -610D18E977D0A9662F23BEBF39C4477B354123B40E2E124238F21B56E9A96B73E6192078D3B3 -E3BE0432458209614D2F931AB61AF195E5F83682C25095C5D75BDE867E530523012D5BBB2EB4 -5A9D331EAA71467E9978AB5B1563FCC12B5AAD03908DA25B0D32B1CBC0CC1E59A109A228B847 -AD57D1730E0919141783DE3A02F1C78C23735E287591B10F842AA6D331FAF97D208D6900D76E -5345686AE3FE3782A71AB0AA0F0F879F39C03643052FBD172DEA8E3BC1A6AFDFD4316B61AE67 -1DF90BDB0364645D029CC4DD07863BD17E8226329F444A5A85EF1E12B2CC5152B2735235D9E3 -E1A5EBBF263B7FA95D8C316F391AC2D28F94507B6EDC89BE61E5A539145EBE8B8BE8A61EA954 -190BA3B58EAE37AA2664671CDF64E740CD3A2A28DF5F0D28649A4E094C7022C8566FC15FA49D -C70CDBD6B780519C53D9AEAC3CBD4B8C61408274F0350F367FF72DBBE3B77807106014CACFD3 -A7B31AFDADB22D2613851D99BA00319CCBEE68283C85565703C5900602154C044D2D7C3FF921 -AFD9B5D8013846A894E1A19613CC0CBE7DD15D0FE75773240533476B51E95C7A310AC5106ADD -34D3857A18E3B7CD6277E138E8A30FD7C76C57DC7723C3E68D2F9C20C7C9BC3E7CB17E71A4FF -8BFE2560DDC0EE609A80D4CDC73F591A5C04EA27DCC30AE619B522A8BDC93D401323E6EDA721 -56910D221217095DFC57117E3D58C7A1D3FA5894C571006D21517535992A1D845C0898DD7DBB -8A53E66EA60D0997E25EDBAC3273B651A7E6094340B5BC623F91A31555611CF2637DCED1CDBE -515380DA512A5FDEEC4FC0B021F43F396C0077FF6C1CA44F4112D7AED6B841CFA4773BD27C43 -08255D4E2763EA019F92CC01F9F88139FA4E156E8EFADA211869692119D69216858A674878DA -A54C3000029874EF24D8B7E23E5A74F89FCF497407343753FF57AB2D60C1CE752F07CDAB002E -09AB98036CF33B59E3A12C0392C268438A2FADF46580896F7C14A28B3868D45730045019ACAE -05A9DC6184BBCA22CC7D4AF355396FD415E059B9ED77DB42B4747EC008F67D98D36AD1C45407 -5B8E6C5F8E3C57CBBE1E67EA5B1CD9795968A719E89508EC40D8FFE13B3F31A18B4CF5E481FF -16F204E92B7493D406FF276829B284EDCA1999C487E4F1D0A2F80A520CD64E3DDD8D5760DD39 -40F5EC0AB7DD5B0F66B8BB0E611A07BAA9B23096CDBB7E25833DC33935831E3CB5A45262A3CE -9FBCD547F092BEEB991CE8DA5FF0D3A9363D1A5A1DA84B3DA01994372384AE5986485F8FC823 -F98B83229759342ECCBC07EC0D82F6266F4D19162E5AC5C965E08F49E8049B24AEB86706285C -2041585D6E53761943E29DDA275770F235D61D35997D1198E2ACE07D1E72D5382B6C5E922A13 -B37BA2FE467202CBF6C70C01EDBEF3CC55585AA467FF9B07AB30C25AD9ACAF5D2295DE35D391 -5033952E53AF5F4DFE9FF6B9ED874F22438F89A5A74FF6D72F1CF2B1179A7B10122821B4366F -797629DEDC56F101D108972CCFED4FCD6EF82925408BAB2D8129F46F5301B741FC4F1FE67889 -12B6801F5D49431B0C2E8DB2CF1E0486F01F860F64CC983CC8F647E41EB57184DCD17ED80A95 -07ED90C1CE8365678E933547F1EA65DC21DA60066287CDD5ACBC1E97A6BEA4D9455B3D55B32C -56110F54781C972A8F5710862E4904058C603BBD62379307DD407C1530B68205FA39C56E8B05 -772B8BE8AF07649EEAD9B173CAB014EB1C6E67CC01668627536CF6349E7EF8F8CD391543A33A -B8996F9860ED5151CB1E7ED12BEDF02407A7448B67587057BC43005A5E12A3439D64ECF00F14 -41981A63F2C4664D2259F74E4307A84F6236DE6EF6F5373448D07555419017BA618CF17D5907 -56FE435E70D3C7E63F679786643EAA8457300220D0D6605945714B58CB95937A37A27920B673 -5477BC4D6BA8FA2ECED7BDB0110E293BC90B28B0D9DC6CC8642F9A8DAEF8D375B7661B14ACA5 -B968F86D21FD7D0536DC268721569C57E5193B1109980C2E1E3BB15985EED1FA6B05C22B03FF -2A64277E3B37B2291779F47E6D77D2B65A2465EB2089B65432AEE20609323401BED5CDE7636D -6B493CB068945ADF47DC15800D2259F393CD1AF414ED03D8ECC97CD04BF7DB369178036EB3DD -3AFE923281A2E21A3D53504130AABB6BD6F379313F8F0600F4B8FE74CEA04B00CA6201A8B133 -20E2EDA11760ED13BA070D1583638341A2FB1F69ED06B33DA8CF6D59242981A0C16C75267B8B -84C29502C117C7226983900878F620ED4B107056B42DB1F5210FEAD11D87ED34920BB59BA47A -3B4AC3CD0AC21EF944879CB6DA841484E0C2B851301850C621A3615854FC8BBC5B5EEFCE2EDB -B0AB5108A2F001A54E6A7B4AB1A49D908FFD2E87D74B0FFE5D41C01A6962764D4DB2297CCFED -682544E4632980579983BE91E06E7E940BE7BE2BB404672120C07941AB5CE6AC823AD1FC78F4 -0E53F1037171E055B95CB8D57313FDE45D9AC37B44583E1029E04B12594DC560B91DC54846CF -2B4CFB339EB4F90A55403F811918A3495BC7DD587E202C117B853BB2E6FF0BD0272BB34E927C -1F200335F8F097724860DC9AA49B58B431A3CE40FE18E3AB369DA33AD0FAD56293FC1AF627C0 -5BB39B3449AB8638A33F569084ED162F99A610C5923FDBF6B34E5F3087B0F3441BE3C91093EF -255D8E8A2D23ED35B06075A5E3ECD40DBA35282679ACF9BD8EFC178C738240F42C7EAA0AD598 -F6250296179561CA8C3219EA471A88A8F79886F69B0AE43A02117A91FBC3A4216CA23718B826 -9977B78EDC4D1E7C718BF52377F2357B8345C90F6A5909D375FE025FF81957FBB0AF4BB9C9B1 -A8C7DB68FA8D1E1B4DA70328258D83EC954AD8ACE3E499D289DCB1812FE19C26BC9BDE91B71D -59D7CA82DD3B9ABE0DFFD8E85D11D473C9C52E2F0EED0205C63937CDDAEDC5FA77ACEC0ABD9E -F7EDFB0F5563DB75434EECD080E08552824970940FF72DAFEFCB27C51055B5DA982A2483F393 -4DA2BE00CD555E4FBD31A2E9715D98954724E8800DE2BBEF7BA92CEEDEF9643999E3442F2F37 -A318396756E60EEDF86D9C94E4D16A729AD578023ACDDB9BB1CD2FF6629A9AF2A22A1217CDAF -BB1139B0206DFC5ED9DBC05CEC8A5B950550B3AF5079DFE024A1328A5728D0644F7624BEFD4D -40C5F25ADC5F4D1E5990C54BE57BFD7C25FD85ADACF13C41F5B6D5B7956786258304F1A4DB78 -48BF5C550FD905DB1FF875A7CBAF0089056C51938A2C1E4CEF5CC253C5A64461BC180B5125F8 -5B9AFB6964D1C81C160E8877DCE24396215FB49E1ECA115C6B044097F16B2F891E3F7649FDDA -016FEEB18B622B9E33EB625C1B00A714AD88CF097DDC6FBF88F0D74FF9C7C16BE68E4207D4CE -85180F4D531311FCBD800A43BD7B08E07CFEC9B43142DC532A302B3950A21C89FB9D2B8BD1E4 -3BBE80B672D197FED7A534B7EB721B7789D02AC0C59CA857D96A9170D3299A8D16C89F4BD062 -EEA6BE3F41E4CC8AFC82E1B67ADFF321DD74EA9FB846FF6D0A4C161DF84CC93560C726EB50F4 -2B2499DDEF40A94F1D475F010F65F7044B68482C735DF58F02B66B5316D5F16405FD665B92B2 -4F42D4DDB9FD48D75307B7395F125E5C9BD2EE10A9400F4AF571B38FC011A8BA28C9D4F7D327 -78E5D3219C6383E1086958CC4E9CB0CECA6746D694A9A148FAB667D709526DD7D801DC3A92C7 -7DDD4AEEC067E7289871E4A544411BFA4EF5CC01ED7C35ED9DC9818E45A08A4C39613CF072A4 -284C65E8AAB4452E93B8346D71512D29C1247DBA10C370B4C7FAB1B8D01233C547BB75899A7E -02F6028ED1604BED0D57B9E7911BC7BC7105DA2D86EF57CFEA7DC373FAA10A0072266D407D46 -305E53623E47BE7CB26D0C25FF59D3B65A7624E6CDE0EA9AC8F19DED309F37FC7E773C5334DE -306130EB2FB2193220EAC5371FCC2AA9AE4045BF89F9C98F5CA58A1B2BDD964A51F8B0ACEC7C -9721CC934143EB71915A0672E818DBF38E87900ECF65F5ABFEFDC557DE4E896B422C151C24C1 -A66C78A8628A6BFC2B67E0E06461EB85E717C5C1ED47369B2969EF0B3F86B917FEE68A0D65AE -993825223F9A1A02A48DD71D526FF359B913A72801B026C8E1459B273B8D48F7E085234D0069 -C1034BD8D3C8ED96D2AE53652CAEE0539968B13481A227FAF950193CB5F26FF465F2150F8D52 -FB67A3C5462E5486127E0CA45813884A2FD82F158A84AC3EE422661D4FF73CD8B13AB3EF4CFD -92D4D64C8989777AAF32477D5DF6156F49C6D442AE68BDF4946794E3ECEB1D421AAED9BDA26F -334AC953DD5240933B663629D15ECEE5921665659B90DC407637E6DCB52E8B041EFFCC2DCFC0 -422A4080795B84478B0FA8AFD3E1AA9DB908F924D6040F846880A77907D8CF024D342BEF1C48 -6E3D02347CDBBCFE123725745D3522D3762F733300617005CA6ED376F30C95422FCDC6FD8658 -CE8FCAC1A0B07EDC9BF2A3A577D1FDC219F742A2C0E3ECF4AD0FC447A6F340EB20809010414A -FF9FF7F8F21156757D6B35C7765F45F50AF6B3800423B6AF95A91C727C07FC3038BBA53D03CD -7606CF9655B14E1F2F131099AAFE6A6B25397B88F34D9A40906C9A91A4725667FF22AEA60F4D -C99829C59EB1C2E22CB1040D194461912A9800FFE9DAA6974CFBB710F5C4D19052D266328AFD -D23EEF1EF6DA60D873D6922C4CABD941F2FDF0BFA432B1BDDE96D8C59D48B7EC845461830B65 -A38565DBDF17FA9218AA4F475B2FFA42AF45FFDE59C984EFF318E5407484F3D83820A56423F3 -A934CBFA622225890EC1B27CC4433F4DBBD20B700DCD415D19DCF7EE3D0AF26FC8563BFD47AF -E095532A8C54E2DB221985AA2F8505D9E8A2D49BEE026A2718589B77B97CF18105A17B12712F -735FF7A0B359202758AE580C08C7B674D77FF1C81404A0F0FBF7867711BF2360862144CAD3A5 -F46F1BBF9F82CA5BCBD902D7BAA5BB4BD5CF31B20D68D9935EB1C27345CFB9C7F08101ABFA72 -72D32F9C08DC46633C327BCA70E6B191E7CDCACA158B694DA9234B3EEB8D2555F640D510067C -3D16CA3A25BA7941925174B5183A4B127CB6615ADF75FDFC8EB3F04EAF35C7BBAC38D0650956 -4AE00D21C7CB85DAF75897459107D18675FFDB9048CB50C97C81AA2B464523CA97D788EC38C7 -0D1A0D49E3BF52A0933523A03A99A4EEF3A2FD7714920289386BBFAD5D74E61A494829BA2B66 -76400A7A663BCA41B46132E1740FCE08DBF4F96BB045B16EBBE038A76D32B8B0F310703673C1 -E20866B4AAACB303184D6B030DF3AA2E9727821451C883E9928F8CBC41E0F4B99F8B29D3B11B -D4ED0CBCA83D81082E398399B323010AAA5C81BA48A4BF558C8C8F3A41BC50D816C3B679D82A -438FB1C640C9E4D12B21C27C8B974933DA8D2B8B19359D0354040060F7144017E2AA7634B675 -C534D614A4F6E4B97DD161ABE848159891F66877200F08ABB4F9D762CED1CA9C6F3B53526828 -504124C9FF80AF74290EC12F9F538C4E25E9172EA8A7DA914B7B9257413ED8BA4950EFEBC114 -C41E2574F7A123F6623CA06C62B37A160BD464AC21041BF3F092BB2AC1A49986D404C91C614E -8C258B04EFE560752620CCEBFEF6A55012A7AB3B07FEF03B1712EA3BB45F75C3754BD9F4984B -A435BAD672D799EDC2D9B348AA09227FB8A8964E8BA6FE55B1B5DE039DC4CCB9121E123C9CA5 -BCD61217D6F3C55AF8EFAF24839D44F8902DE203305BC95A9CA12A43B62BCA416C33C35AADF9 -B8B2A733533B2EEFB004352DC555A70AF2DD9C2D4AB9D2B9D6152E85AF3F17707AC1FD827BE5 -6E7EEFAF3B78236E75713B717A4A2B5B34B3D48B708838AB95FDE0FBEE97BE44C54538533B4F -2C1AE9C496514C49916ECF5824BF10F56311C894751D6FB10449FD21D55D6DEC22547FCE6702 -78063DD071BED4C917D6B2C34ACCFB4BDA79C5FD23BF4A83BD804281A9E177A8164F6BE9C31F -14CE32A4F539CC636F13D14B7230D9ED12A14EA9D8DA67A63F8E41F5E5AE8AAE1654539537D3 -D738D643624E43CB52A1677C16B8BF4695710E41810E5FB12707AFECF0AF3ADD742A7FB464D1 -2E756C490C6E38ED7BC421D05674A95F1F36BA1581E18DDB3C8980431A185B2E3946AAFDE6E3 -2E6E0C4E7432E23C0BAAB35E39321C73ADB45FCDD4B8450A48E8F6198E245D40DAAA4EEB8632 -5D63430E6278F28E10760DAAB44A74331D6395712519185256F3EA2E98D5AE3EE125E50A609F -9EF3B26EC22C16466B4482962E08C758E22749920F9A07276FC4168320AF58CC3CF3AE44D550 -BA0005480B32CFA36AEF513773A0C0DA53CE7A17ED5B8AFF82D5B062FFA025300621DA6CC0E3 -8374740FDB4F4A0EDF1E93A243763ACB86E549B68A6E15BBBCE4C7783F39038E102C01694FDE -162886423A8578E1E7FAA51C2117B6F03D93FEA37A7D47A70F18F2C2370449F9C2E4F0DDE822 -823B2E9214CA4BE49501CE98EA9E96EAE15514C346482612685E241C59270331DB08A5D8B5A8 -FB8D1D54A5B5F6FA72DABD6F0BE35D3BB7C8F2A54DFDE784B13C19BBBA2F94973EE4F7F6CB90 -2A72B9B93CBF9D29631E96E2DAC881903407023C9720B78295A435E9CE18B233FFC1BB425B1D -5F66AA868C2E1A6D986DE86A14D1EE7BD8D8867CA227786DB6FBF96123FBADF96FBC6CDB06F9 -01644D3A8A062A211F4ED6F763B7DF78DB75701D1665AA51DB153EF35DEFC5B50E3626B77355 -DFEE1240BAE47F67EBB465503F679E3CA852A01B2BDA729A2865E9DCF4198CEC2086672B78C7 -9AD664A57F7489A04AB183DC8CE6BA6EEF9590B6006854E2493314A5238F7E410EC715AF9DEB -4095C8C0D44E6111CEE2E07D3B7DFE601E8ED0AD98E9630C6F399CBA149FF620A9D0355C9F87 -AC4D00A5A91E06A6926E2123BE874F7504B92E175BF705D4F7089BD2CF1A0ED8CC026D43FFF0 -F7FDE1EEF77292C84387EFBECDCA8D118947AD05BA4C153BF2E8606E6CAFA5AC0249835F399A -55397AB6368C02888C815309C85B2853E6BB0ECC76C9158A6521AD0199BF61E02BEB6CCD4701 -CF5235CF67B5DB58063E7C0BCBFF0B78A20703BC61FAD0BC9911F8997E867BFC4304FC3924BE -31025E2D00DFBA1D8FD929CE461587035623AB8DDEC19C0110EE0C4BA79FED349717270FED15 -00F35FC542BA4733455E6A771F180872D18F4A03FDA7A77CEC2EA60645EDFD08F8B6BB2C424B -638D31B1528FCFC5A57F6B6628DD7F2D291EBE20C9AF38DBC21E8318569F67C865E24436630C -33D5CB0D42AE4B8A9838D55223F155172DCD86BEBF3734A2820F2F92D6F7013353813E67C913 -2914664CE8D8E178E5739FB6389AE6AF312ABEDD40C4B2CFB3E38F9551CE1A3B1414B3018CDF -78DDF5E3879446BF21965F2E2FE25E48EED5D6B1781036CDFEAD6E95576C7F7A2A252E8B3E3C -271E1B334A4E8C5DB10FA3912DC9FAC4167E958F564E519B097F15A29990B82CFF7A6A92FC18 -489819E519A89B66B9B45D9755656611A710826529AEA9C5257513122BA2FBDA1EFBD274B231 -6DA05073B3EF52B3B3731B4932A97E36A28F4E7F8ED11D15DE6B6C1E79369FAE64A1F626E625 -ED3CDDFBF20957E531056D4966C3FF9ED710D2785F3F70D8B3D6A72FB21E5D71A75FD5717225 -C4023C67250CA469D856630A9280CCB4302C1AE174FEF1F0E80A50B822D7DC79F884B1445475 -B2BD5528B202E3AA29AA1BB957E6C9D9B5ACF940DA091CFAB132EF0F402ED81971214E022EED -88227A11500F621EFBF2D220BA54039D1097CDC35D4CABF346A6FBF8E236FE562654FF46AA99 -F0BACA4C3F1D565B4AB85666B16ECF37B24A63ECAF29186637007AE0FB7621E0726A02776789 -190D6734B5FDFA69AD65571460F4A49172930092590554F41B30ABF2618ED2B562DBF3F3858A -C38AC5824F999AA67EDCA5931C75C8B93F13DBA19EBDED59BA670645AB9B681A0FAEDD938FE6 -6691DC4460D2159726DDAF9B52DB3F3ED516B77EE963011382E17F06FD9B131A2AAAA294D9FA -759D1A1281E7ABB0FBAFA0FBE285AEB24CDE964763DD51BA805151AEE9995C6F2CFD7C4A330B -ABB190456AFF05E9B0B6A21EDFB714A55E01186C82BB773561FAA6CBEADC7B02EF4AF63D7EC9 -748F50AC1EB49074D987C998211594EED22D2047702F1F333AD22B1C52F68632E9CDD920B0F7 -E2C328B7AFDFF38752ED4133643BED021AB7A1506A5FBD1466C09C2CAE547B8B5020814602AE -D871CB09C15BEDBAEF140DCCE5272A8ADE139F3EF35AC55551BA7A59883C617DD1E15707673D -B6FEAD907FAFBDC147AD65207665CC2B4006DABE3D6D8A268D96F7F3E4FD8C89BF0490CCA124 -472F9C67941224778DF080C1DE6C603479345C78940D101BAC1043249DEEFF187AB7AB4B1AA2 -BDC1CF55D31D21CD4C8ED89D1825CED9B2E3894C5DEBA8DA0FC0D2548AE26A9F06566377D2DE -A7DE86B422B8911205755B1A9839A176ECD4A317EF3EDE2EE5F46F26E4DB82DB435E03FAA435 -395C0BDCDC76F2A4603D9159DF9187B7588BA750DEE66B0A49F7AA94B323256CFE24D1ABD72F -7250455F638643AEA607AAC25E222CB5755AA720CF83F362C655A1A9DC844528621640F4B79D -EF68D222AA9A1A8F05D3485EFFFBF913BE8F2CDB6A03A7921BB940EC4E14ADC3AF4C88C89196 -B0F79550069E7D41BD41043EA655D9CAEB1C486542408B77AC516C9ACA7C23F1C41EB81A6BD8 -FE360521A64C510364E7F4EBC25C671AC115CC130CD59BD1905E0F070B8982CAD101133358A5 -9EF342D76691DEB9F9673603E86C1F215512635FBD6AEA9C34C5B0589DE95267A4D81769DF2A -838AE5B7AFF1C47302F51C8402B2991B87C8D53DFD4E8DF7729FDF2702E80484163FFC1E9F5E -9B695DAD6DE2806EF48409D3DAA86FEB4A5018035E753C6DE4A3B195BEC3F8D07B87EF8B7658 -9849CC2762DC193F0C8FD840031644A18D139DEE30CC0D74E501B5632A3C011CD57D69F51044 -D96682DB90248D17CF40B4A52062808D7943E1BF5580E03BA108686B952629E3AC2AA49852D4 -C91B681673836E6207CAABEECC8D1B442D0EC19CE8F919C2C6D715498E349E516847F0930432 -ADED6E126129A6042AC4EE97EECE53F8ACD351F439ABD4D2602D832D50629C2CD9A76BC34ED3 -5D534F111B4647321E05B61C9217690EBC8F6C22225C10D31456B3CD6945CF40936E533F6234 -039F62BD2417DC7E2C527B1A05C3BD3EF6295708F9906E66C8178B18AF96C7994F83D1C74BFD -1E790DEFAF2C65A8256080BDEF8E34B0FA20974AFE87E6B734D0C315027B0C66E8D1CF150DE8 -3CAE92CE1146130083D2ED6BF41B526F5A88D1668D4C265917748B71F37205EA929416B8AEA1 -F4DFE02D9EC60492B335F3ABE04A3F51FF9D8D33D6F4E107A35E040053E5A4BC0249EE87F3F7 -5985E8673D7E26EF895CA51BE063F6E914FB23DA3F01E2C54F654D464F60868542FB8FD5CA5B -730EA6A02A140B555328F91E7E1F67096E30260B4E74E37C45AAE4680EA7115CDAD2B2BE901C -536AAEA94BAB6B7A960B98FE64CF9E281CBB0735144AF8FE5AB9201926866020B6C76F359B23 -868C9475E9E4A53BA6CDEF54D3C85AAC7D915D59A18C4CAF13FD69289D4F00236DBCDB4B8AA3 -E8DC183C1AC38ADA9FF21087BB59677E0ED346F7BA687D2292D97F9BF2EDF0EE43EAE976B083 -4DDFEBC4407279717D804E8D76D75992DE5909E398996323D646887E0AA6EA5604B6925A4BF2 -EA5EF17729EB78B9DCFE8790044742D957FAF798058D486E0DB94D1DA94F55DE5A0E6B89F717 -BCC4A29A80571864E4B85A5426A1291891ADC8F519DC03D2E7C6BBDA198F13F6752484F5E8CC -5D10BDE6059FBF970477C994E043E782EDE14964E0A726E8DB8E148735254ED8F18F1BD0FC86 -6ACE7F9D17467B83885E7A0DF1648F798AFEC1F73E92A31F15EEA11DCE59C00E3FF76B05F30A -12CE923599F66229CD06E11853584D0C38412E94E78991E532E815CFB310349C23BB1D5180CD -C60EFC40376739E8B51422B00329D6858E6B1ABD04CFA6A015E8E0410544E7BD1907CC6A6168 -6046ABB9D00376B421B2C90DE4A14327FA78153B35FDDB21021E563EDAC3919D2AEAF133D877 -48DEAD42E725F8A30DE8F27946E54F8AD00E520C6633742B9718008B7E9F29E09535EAC893B7 -469437468558643BAD538DEF3DB6C6D71886D8B4C3EA3E065518108A42B73D923D34BEE23064 -B53B73DC5890BE91EA02639F577D3303828D5AF1587D8546F5695B805161483DB592C11E8203 -C7F43C992C654F4834EB475FF66DE18F5350C296C5F49518B09E9F6D1B781B4F0582265614C0 -9897EAB7FF6BBB23E0DA90981379AEE8F363A75D65D1D10CA901145DD064A97FAC7F1B8DE71C -0F2D8532A71EB12CE98B9130520319BC0C34C1C5EB67C57FB0864E4861EF38455462220EE936 -5D7FD93E31DF21BCA4CCEC2137F4B805BF64BD9715BC74CDBE6EFC669273049D579FEE2DDB8A -B98157B222F96BABDA9BCF2D7598896D5A82D4309DADFD92A6319049FD6B617460017DFEA900 -70B71D94B9932BA18C3923A03C3498EDA14E160B4F0858705041AB68C9C5DD40F7A6804F1E60 -F134347F588C12ABE6A08DFF1E6C9F15FFCB6840F9C64EE3DE105E5942DBD9236243624657B1 -29781B03E2503AFBE53323151618F96D7E7DE3802E7AE95974D3B38271D0E8235F728D35C713 -955DE99249105237A377DED9FB925B1C54B986574706C0388498D849F2D77EAD10F19EAA57D2 -109332B611BA27A7604C4D27509C32128A948B9D39300FE1B244AD49EBD3CF44A1C7E44D9437 -66A205CD2F98C1ED337020C0455852C4AAC31E9E4EF34288AAD3F044F291526581FD09A0AE47 -E4E0F926746583398D48E9C410DAE3A568B0FB10F2490BCCB964537D6B7EA04100A6AD931DB0 -BA73C9B28B1A7ED466A9D6BDE214975936A6849EAA8C42C10721C7632C6ABC62D1F685E6740E -AC3DDF29B4ED1025DB5D6530F033B63225C5A7D11765025B65F3F75D444E2D3D1F52D1F4A1C5 -1990489239DFF20C4460CB3C9455E2A6A05F457756982FC226EE8685A6AC8DB7FD0026FC824B -D5C8060F02BE4C397C5F1DC4AD5316370E22112772EBEF46AA36AE30DC3F3BB4B4EFDC910F23 -856307D8C2C704ACD85E0E9E5754DF1F028A20C445B4A0F4F0A47D191BBB33D0C3B9AA69DC81 -5D0F90F053BD8FFA327C008E6C932780C29AE9139EFE3B8593D35E59E41F007FD7E05D53FD11 -DC8998AC0E556F163E76F475D21673074D2DC9792FB6468A23056089F7BDCACE14BF57BD7503 -D184F1FFF327CE2346841FDD2B85122BE8133E3F41C0A79ED8082EC0D39D19337156D0B45684 -1E45DAF80253DBCC63ED8443EEAB57F73C24FCEF9C8D1A1C815F09C5902EFA06277E9638D8E6 -E6B9A58D7CE319CF86E25BE39B5A8B17DCAE42A7CCB2DFBFFE2E3402DDEE882D9C7CA1AEF585 -CA924BECF9E0D5AB506F6A1441207B79FA15834407E4C945E3A021F5F383B6F3B9E642D8C479 -655C2B55C4E51451682BEE7ED59D4B2FBDA3F58E644EF482A8AA7D36F9CCF758213346E49500 -D7CBA0A32FF64E8243013EEB09DED86D057BCE9E4EBEA9E43136B0A04A529B691A46E94A4BBB -826EBD66DAAD0E7B6A17E65985B590B77CDE22BE9E9653745713CDFD0C7CB4046FA632E19BFE -92B48507197466DD179F2974BF5DC44229D4A4AA21BEADED978AB5FD582159D2AC9C5170D552 -6E394CA1B04F1E7C17B5E768D9ABFA4E344BAA3537FD0378FCF683871D632301C2EAA453889C -907C75E3CF749C0CF56A19D8AE1136DA13EBEDC3DD0A14B9475D773F997ED867E11D814CA2A7 -BBD4BA73CEC7B3B08C91DB9702EA07EF33B0BA17199FF3A48D8401502C25E5FC735F9B6016AF -ED7E713FDFB10EE93584CB120836D466E5CFC61F7A082CDC0F1E2E3C4FFDDB91CF0B6AB35233 -21B269BAE9C19B88CC8B978957AA1C66186ABA85667FDE1FA112A217C46C76543179E7815A46 -D4517E4187D66AD4264394CC88A3C015B7C2ABC6AEC4FC84C9D6EA714CF1DEF3B2AF24C00DC5 -B5F0A80CB6500E949018090706E926EDC4BA4C0E29D9A4AF4474C3EE3EE0195210C8B514E666 -7F5F0915A3B403EFD0269360D2046BA91F9A6713330F62602417AD2DABA26095A7C13F7F7612 -9DCEC9F9DF8544813D7443AE86E1D73D211175AB3904DBDF282225CCB32405BEB30C159D5B8F -4D1DF8D2D1D74B2E423B01665BB1A2F1E87F1975C597F6231CA78E1176699D4F5A1E0E9F0BCC -F50631A788BDDD9D4C2BDB38B6A06F4BE6FC56FA6A55E1911F12575844FD1E5610BF073C411C -93842853A261368D0CEC038DA641FA90A43E8AE50C9E95212DE57378C21336174AC9D9115752 -26C401D4FCA455955D458B9C9E38E4866A38E96B30A9609D745362D918A5F81AB0F945625DC6 -4D2D5CE8F7AD2D6713C1BB9297EC172B0FE3A963FEF7C929A66E6CF9F114EC6B3DFE36DEDEAA -214F051179EB7489B06A94B1B54A243617AE98CE1BAB1FC52A331E25DBD2AAC673DB1810719E -AEBDC46413BEA1E37F04B14EC3E765D10753941F4E096CF94179880D33566EEC5E21887906A2 -DCBA7E0AA2075A742129C39F25619CA060B8C3AB779CFB6D4C0702550F91C04F2383CE9DECF9 -B9E5D898862C0A50C86461EDA1ABDA9B472629E9087A4A09D988566447BC27739BC196053A61 -B8FDFA0D7B00E21C0F1C62BDBA2A773C2DFD3A3AA3DC1E196012BE7503EE3EDE9664C5304E63 -32C7E5656DD9F88D7E5B203E700D9610CC373C356818C67C118100C0A74A2F84056C3579E7AD -7C33C7A79F586C60377CD3456EE9F77488F41171B075CD01B193339F10E20310CD5DB177AA6D -858A82E6E282282BD06770A67C27101E0F128ABFDA9941B7C8768EBB57806954B5CE42A76177 -4D30B144FF58AFAEFD9F3B8ECDE0E7513B0E01858776580FDCB9807FF241C4A3ED89B47AAFD7 -B74E0AD49E86B388AF193B2B69B7778F9A7C1592CFE800EDD52CF00EC224C407F749AA98EC41 -89197FA8E25AE930AE2C787714B977762CE83CAE13E50BEA03CCD391C065978E086AC6059A48 -5CC4C1C71C6AD5B99BBDDED8A554F468228BD1DBA4A910286EE72015192758290970041F498A -276AE8D18B12F4CE9A7E608C4D9687D45C96C0999DC9F065C288A6F02778BF43B517C2E82999 -8B99EAA53975566ABD5EB689A50B6BEF852E11170C6F4436B08CFC965D676274958D887A1B56 -962119BAFF154A7F031010F28E1782E91C33C6FB68B7D8785AFEB35836C33A3276076A41CBDC -0F89CD93A8F76885DD0B87E32150FD2147FEAC62084B4CBDB7C2C64DFAE202D356142F1613C6 -DD0996EF0F0FB759B58AAAC8A7B85FC0D881957B06F24622ACA92BAC901908B39E4A7DA92C82 -AEEDF7EEA977E1DE7A6C0F5B070A4D409419831C9ACF89EDFB9D6EAD4E7D2CD26FD7A2B68366 -D7CE4FE89BD26FAFB72BA13281801FD653B4721A39CFD9611C0C10214A0F9FC3C648A9494BF5 -E6C3C396BBE9732ABCBE413DB99E8BB46D7E71AA8088262229EE928EEF19C7C69AF5BE9FA65C -3E75D95963A7CE98035C14B8567E47B74FA5F2E2EF02D2CA456F15121DCF5B071661D494A410 -85A56D83E77F6419D443A4722E84CB430A15A632A915BBE8EA47BA9289C44EE73189E13825F4 -1896F094266CE26B200311DCEE0D7BD8A83C09B4D4FD67156A945D5531A5BE63584F240B5A52 -5577B58D0D520B2B4A5B01B27B1587DFB876BFDF561E090897BA5C07B03447B2622D3F486A82 -7D48E2281B279B654230494692670D87357522C174B0E6652B84C4B860F33E5BE50E897F70B8 -B4F119078F3E8B979D2ABDE22FEECB2B877739FA720B8E82D41C86F47762951D6844D7143FE6 -DC88AE3A09CFDC5D2109FFDD4C78C5051E856468745015D3B494F2A2320C9AA23560EBB0AD74 -9BF85296D30E888411785DAF9CCB21B13F8B58C24234C55619C2289EE5DA1D6F6957604A9ABF -3B83058A47ED97A2F753EA952BA22AD94ABAC9E844610354D5CB87FDC1D965FB100EF4608F43 -898591ADF0D6411C0BF795DD3CD508B4053A7A153356578FE5F87D53E3F0ABDD1E2836980FA0 -95A36CD37CE4CB773A73C1F5514E10985C30A34B3C624C3120CA7BBD2E16636EC02A97E461A1 -DB39B5B58D6B8E715416BDB3E6B1DC93B78CA94549361F2468ABB938FFA6DD5D95D10ECA7FF6 -CEECB80209D134752971B888FB457504078312336856162B0E02F928C4EC2722C45C2A9A8370 -71176493FF586369540774E3DEBC1768079BE37F9B20CFD5B52D04BA9D5642918B7040182F36 -1598EF607BE11D609A24E3B2785BC3733DE3E60391647855C1F39EA33BBD57E0413259531923 -2139055C8964B04FBD9EF560FDA57F5FE68804145727A8F50822556B4D3E08B7C1C9EA47993B -FD934D013CC36AF9C3E9C4C8F3F59F5245EFF6F0209815C1DAFEE0DAE5F8DBE3D701E20F512A -12F3F92D37FBEB80BB5D4F03D8BE4C5B943743F53F824433BE77B027B411C0FF3751B41CCDA9 -79A9DB87B2E80D22F264704F2C1544B443A3150A7E8CB27555FB636BE423D5402A30296A8213 -C315BC61A9830D49F3417DF98959359E84F2B3B07064490DAC4BAC7585A892FE516A3F19B43A -4F31EC885669FF852DEC7F1940E5C69C8F74C71EA895AB76584A74864668BA585BEBCFB9B4ED -B792BE6A829BD1242689F3EE9EAA70A3E808EDEAF54B8E2C613BCF3DA264401A9C6F96F42611 -634228BCA162D1951DD79BBE136771A6502FF001CF705B0F39A4B8B0FA7310BC09D493BD8315 -04F3C4E6AE336244C6E2161C71DF69F24D809E3734AFCFE2528E8B9781B472FA5AFFBB3A6AF6 -6B7E60E027AD3BA66FA751393CE10ADDB28C39D24C5D02B5F0D55CF9DF9B4F2B3A7AC74A7D5F -BD17583734E547E8A1CA665668FC7295414FDB21753ABB70103A6846677332D2FF8AE0F05541 -F9D31B45BDC4E9AE773A0F5AF14604358861682A10D85C44B9714B37159A86ED14B61B19EF20 -06ADDDD6F3E1E6925B949483C595D64E6756D892A1CDE54ADDF35B3EE7F1DB173298E1E3B140 -4B6A80EE82CFE56F295E5131064E05CD599CF44DE79BC3E8FBEB3F74B7409B083916FF059BAF -B07E44FC18EABDDB8A8197E653FDC7C17D1EE892AA02DC45C91E2BEE98276AD2A9E68D932910 -860D35A7B47FE121CFF00926403605019EC4EB576064E19E9C694818A47B91C3FA9726690247 -8AF0235C848B7B6A123D070AE6B06975393A665BC35F1EFDE1247893EE072E659A2D95268501 -16D53FF5C3751CC8E36AD2AE8171B109BF678B8A9248239631D37DA32D7B6F48DF7685F011EA -410F3931BD24FACE53C530AE69B15A0343489D14849758D7269B53BBD65E4B0F249EBD80B4E6 -7CF2165F4785F02E2DA78E99A258D2103E56A9F31722423B211B4EFCB85F1DBFA33B0665749E -1C4277B4F937C924AF443F86B549EE4F7853A046F092F53CC1BBE3EF08C91051CE7641E7C8B0 -25A1D358A5C47B89F257A413E6F1672FB3DF7DAE3D3E6319E396A6D8912BE3EF97E57BED5CE3 -A3FF0FECF6BFBCB308F96A05E6F30F2DE91C27C8BAC48A6CB4199F8416BEB8967733EDAFB273 -8B46299D659144AFEF2CC818F4981A1EC035F68E46702C200FC9B1F3E748780836FD8ADD8709 -1B5DA2B217A660DEC9733EB097FEFC01DA5557A26787F5FC5FAB9CFDB71AE14B0AAA2460CF81 -FC9AA95D08A64C3BB3DA5EFCE2808336FF0C4ADC2E6761F410110DF8AF4BE536DC6EF8987458 -603006583506DD390D259B8C95CDCE29206C70BA9CE242C5ED4FFF956E0A532A2065E2EC16F4 -7A2B98EFC32980FF4FE2833BDFC0188590B065D59A01E32893F0CE11BE65EB4DDD6BEEAAC4F9 -52EEDC09F597E74E37467EB74EB6DE80E76AE21274C184813EADB3B10153FC0CFBADD62093AA -BB4C1201D19F2A70D8ED2936307CFCC08895CF8744A6D9D0847BBA09AE95905489D0268184B6 -1EE9542AA9605D78B8A797242FD0D4946F63B8FCCF8BAAC40D920E17F428922E901B151F267A -14DF77BA26597026110B8B62FCC8981BBCC59014E497494CE13B37896D7CB354BEADAC0E46E6 -38C3BCDBF5170C22C5C263218915AA9952E028B839824812986BC5BDAE7335F4FEC7C8E3D395 -82A7C06060A3F9491DF9C4F8025E6DCA249C236186DCCF7674B1A891550D18D5EEA7C0D77D61 -F2D6A3F25F0520E3CA3C8CD1C69D072EB9C47109961B1616C138EDEDA3F47257943CD2C17C20 -8E212475132DF6B4BA125F9B5919B579B3BD4056DA03992ACB6CE5003D631680871AEAD3AEFD -21B8BB3E9AD3BD83C0A7F2CCAB5E71B780A9CFEC497380FD0C213BB71482062F65ED6EB1DC14 -85E2CA5F1FD81C9D480F5A97E94A38B4AD91804A740DAAA9AF41B28CC9F60DB1FD12C86B473D -7C0C211C9360F0C9F5C06FF81FCCBA99692F911CB2F0206FF5C7874D265693D0A966AEB1368D -CF5B9224394496F4575D5FC87E09B9379A2543B4E57C46BF809A9F7EE1A9008E99E7E94591E5 -E347A7062F08598798D4E58E3515583D4E7B300F581690E5A6D6341ACCE6E1FD22FB2B7F3EC1 -AAA96E3E746F198331F9DF51DC3A711CE7B03BAE6B4C14F5DEB819764C17A3283767B3B365D9 -1E90CED0F72BC16C3A152F9A6E0AA4FD23A1673429A1E5E1398983E560AE31E321699C6D0D13 -F35046A212473E4120196D13253CB2BA788854B3D04C0CCE77917B3FFAC259FB2E3AEB47A9A4 -3B5C29A8118986B1436CC795456EB064744CADDB5F705084BE46ED4BD3113242E707D8541CAE -397EA2AD7D02E42852AD90B5AB0E414F020644DBDA3098E70BC9295D9FFA34B46EAE5B626959 -1B10094AA106AAD8761BFEB990945FA58F82AC13AAA4BC0E450E2065CA973EC10C7C2FCD6FF3 -57558068C08424117FA793BAFFEA9D66FDEE82144573591B1C82631666357A8AC9347B569C22 -19938E20AFEF4F6943626D145FCBC33099331177A8DCD768FEC06A6D635E11B5743A863888DB -EA2CD5116E7FD55F637BCBFFE311D8AA08D1FEA5752BD1D45BE0517728EE0F830D39C4A6EBE9 -3675A796CE3B6EB8C424F2FE23F21C9F981A7255F0CBABF1474C8EB603CCD8A9023492F0243F -64D8229C9179FCDE51DAEA40F316F51037D556B297860E8FEFF584194A2DA3DBE403C2D982C8 -E62CAA0C799FCE187F268C0CB9D6C38CDAA1FDB6CFB5DF68AB96B57F39FF5843693980E410A0 -BEF7A7DE1E1BEFBE478CA965B85157909562E4F33989733CC87A6BECB4069F91528B7B2CB1D6 -A89CFD21D0A94B0B670688361E1DB982FB7DE039D7758E65744A0367C5EF4ABF746BD481DA9B -438FDBBCE77B55568039E4847FB5EFF8586BEA44348752A15D146B3534ED31C8BAEAD0C748E6 -067D645E77439D05358E83045014E111E07EB7716AB75C6ED48666FDB7FB241E00B30C139650 -5C86D20A024E43A26007C30532E2186854C07DEBD6DAB725C5CF59C12E655D523135D9D6EB4D -BCF69EE98537FB6AE3C2BA9ADF0A52F3E9F75D0BE6FBB0A232119A83010CED186FD2A7FA96AE -C3535E94A30683BBD9F279D237B93FD142E1DC831DD881E56BC18A1925F1DC7D3DE4A2C731D1 -6F4C89ABF56A9DC6A46C3D5B7A6F68C8C232B4EB0CA8033D8704CF60B22B86835844077C3502 -88738523E0907294D7D9D9820CDEC4BAA9B413CC3B17EF56380C6DD1AAB437C8ED2FB2E2AF5E -CACD041227AEDF59FA6AC9F38CE750B44B9C6831C0082271D39734D22BA8AF91D8D763F1C2F5 -E26BE8448927E07FFB591E871527FB549987663FF1EB056378F293DA3B3F662094C9BC339DB9 -470655EAF40D4B4A3D1493D873CC0E8CC9ADAF9AB0AE0D36957E814008BDA685D78B7C1555A5 -F3CCF9A644C66A366B041023626B2C6168863D603A440DF1EAF427AA84F4274F2EC0FC3D1EF9 -72B64E668F5ADB41CC922E14198FB2474F9CF3342BD85578E1D63F8E7B15CC10928537E8BAC5 -5A83C2216B7092945E38DB0A27E97EF9810A73A2749539C2FFCD69CD7CB68FA2914B5F9D051C -8420C89399C2D3CBECAC0630A0BC5B6025A4561CB1C0D65365DED663848F27FB105FDE45E54A -0AE2CA0220241769EB1CEC12C305B80E85E050857A21207CB01F1E5663D844F1981B241701A3 -6342E86C612D16E101E295CDE47A000901C8B086F7B3D994FBE1B41BAA52E37DC5F4533724D7 -3369A99C32C982597C9754FBB92774AD8335B9E41364D366304B1C8B16722096F239A305099F -5D04506CF7B1CAC594EA0654A3EAA8F9873351F1B5B2F0A23DC9513CD77160F68145FFA9A6D2 -2EFC408A34133F0425690A64A8697F8A9393BA15DCBA63C3F510F46A23577E1EC1852C5FAABC -307562F0C1B3C7F74F5D5EBA361AEBF5F68211A69E6E6BA0177AC4FAFB07F40258B67CBDA435 -1CB31A8006F994B1290E6516E89680548427E8F05784CA143394A347B82B85AAFEC97A077E2A -95E327056AF856A1A741CF4D280332F62FBDDD2E15AEDB7C3563149866D92A7653942DB8846E -CF0E30229B6114E8CE0F43F41D0B3A7DF59077BB3A06520F95772506F87EA9161530478A735B -D91AEAFC68A657FB1500B51C67911A5221FA33D044B18B2970EE8519CDC9D3A449A15B44E947 -59FF73EFBCA4F64C6D536ADB389A4CC2AED67C92049B250C11B83B736C4508148450CCCC21E7 -E465BBAF8A99E0384EE5070761386D228D79B23A696A7D3A5B879D3736656E99A5C230776305 -15A20E202060024707C2E6A004AA06EEC0AD48A8CAF0545BC9947EFF08F89BCC7C9BA3A188BC -56412DFE4CEB6EC3DC20475E7F3AF78A077282EE01DFCFAC7E16CF15C06E1B5D2D2E3EF8D3D4 -B0A393AD9C3FFB44FC6310A14EB9B2B0EC692CA1619CB05F359C706E0F66B56EB6BD6CD22F6E -E10867F2F3AE0BEA2DDDCC00173203A5131B1FC974E9020ED2CD9F9CC8B65D8CF100DF8267D8 -0DB4F77A9629B31E56CD3F5109B07F2D5B00468C9FFA6727C29D9CC7881D28810E0F665FD158 -9237A8E75EBCBE8B7475A34263FF018AE4B820493376BF9BD2797FBA33241827D8586FF99A8D -EF5C8ED2C6C1392543CD07D0A44627E13F185906525A0D2E6AA28DCBF3BAE83B5D0542F5C0FA -89772F1CB78AAA5CDA0004C41BF89A58292C4D4BFDED621E81F0AC70581A294054CC699F3D52 -0A57FE0AF0A53861A0097990DD8ADB7AF748BBA70CF98ACCC412405FABF5162EA448B11253E8 -01D1D83D76694113CFD13E5A747A1E8718CB4CE4FFB5CA53EB11FA4F44A5F2D480457CAC7B97 -7FAD49259F7E414CFC812218CD6C1F650545391268137587FAC0EDDC71FA7E47FA25CB5ED1A6 -2846B0EFC6FDAB317FAD1A725BAAB88FE3FDF11B36583463D6DCECAE452752C5EB7283DE184B -ECADE20EA95A0A07BF55E9C4607E427A7D88CEB96B5DD535C96B81C7397E39210AA8A1C4ABB3 -11367B1D16F29F7A0A8AF8922C5993582711EEF86F1ACE9C2B8568CB34AF8B87519F781004AD -4FC9A703DAB772ED8648762C7D86F6BC6F5C1A02E9A7C173777193DD7167D88156F2CF7A360F -AC16B96B6AD08BEE4346CC8E106D91D01DD5821A63DEE52E17976EB9B7BF73C10E6A2CFD8346 -8C8468B55157F11930C8756A4C6C3DEAD989F3324A4CE62C67A831AA439E7C0BFD31D9B2AF73 -1B02948A5403CB9F4A41992E9BA8D071ACD16392E36CF48209F231A32A53276665E746A2C5AB -9CDB9F638EB049DA48FB6DC2D702E740466C65BF62B714D2B305D54627D409AEB95BC15015B0 -8C233820D8264E60CC2552CFE4C9F97FC9F3DA1DABE61B21EC53464AA8BEC925D0881A040614 -9C4D84C49BE64FC138069ABBE08A504F7C301FFDD7A1316B4A59F01638F30B76798B65D3AE15 -B4487ED783F9779BFDE8D1F5BD7BB2065AE89E060AEBAE3A6BDA83E3E03B71E095FFBDE90A25 -0CFBE8D6B585C1E54886AFAEFE65C0CDA3626C3D4A83C69F4C2DFE63961551C31F102A7E3DD7 -08076ACC25E40F74D79CCA3D9A60EBCE58AE225FCA034FC02C959F76686E65E14FBAB143DB37 -7587F02E6D2F12FCF4E384E2EF441BD13BC68591EF68746ACEE3FF3E8AE51B3950C5E6BB1D1B -BDCDF0B8C12B6017BE55D9E3A937E2BFF1045DE8C33666A8E3062FC51121FB1A4167CF8B3E26 -CDB993324B8F7101EE5A4653C2BF29DFED6B6162D125DF1B6A6246B3472DEECBD878CAF89C96 -3C70851B4BD08A80E21ADC13BF53666948ED6DAA11B0F562A39BD53171FE42B61CC2575E0AD1 -45D5EFCDE0611E55733D67B2B5B1F320FAE5E3F0A18D9F642E04CD946C8E0FFF83C48084076A -54DB64E883669F2E60A8A742FE3E83086028A5D93DE155FC77625D3540FAC1B10148F8453954 -74FB115D72A1367D79D9690A415D553B2B3FF3FA6E9BE248F35AE08E1F5DDAC967CFBCCCB4DE -460832630538294EA1065FF58EEABE4D126301436A61CD8DAB1709288C62ABFBCF4FD6085D0C -8C840630F5051BD41711A640F2F25CCDC3B8B42FD952C810847098A1BF6E1C4E2DFA05B6607C -CEEEC9E233C49670A0A063759E7B65B4FB959B9B0EDF435CE4CF2585D010E3DC6F54F3D28BEE -C58D1928A106757F63DD927537B32A8FBCB85563B8E9EA1B561EEF3FF6A33C0DD60DC9AD06B2 -D05853DE7F0441EB7A91FCA27A6027CDA6E043E16B202EDE1B354DBDE2D92823877674E89E02 -231F9D2A8EB8F439C43011A493FA8F9AC70680B8738DF0E047B78D4514F826A78CCB507211C9 -E9F31DD2B77A4E0A09804F4C0B2ECAA3E0CC8D9080446F98DD12B7483405A78869D90FC4BE3D -8461AAF10864E94BD168C4C83C962C443800497A31C72D3BA996AD14121E2B5DFC7732723C5C -31B9B3A3681C4835DB7EAC8FE0BE296367030052AFE0FEBF4FEBF8794B3624A01481FE3D2A82 -6A536420126AA953C225AD7A750A7D9E8D6F9D30D8FE5B7A00B637B21BB9D036263D376A8FBD -6E553E7997D9CEA98B262E632B1B28915CDBE3C858CCEE591E2E2478F6F6C9DCBD03602615E0 -65BA0DFC3EEF9D29412C4B3282E2EF035B930BFADA9649EED2FED7EBEAB371B8711E324A6C9A -F2FF1783E7F1243C9A23C6DB9750C780962DB198D3057D69BE430CD54BC51DDC8F3358284780 -A7ADE7D0DD6FD3310533A9B0757CDEF7A582E677EF7FC465EB911B9F3D3060132A262269823A -2C506EF5799DB4E2BDBA7456E5FCFF065F9B0F3582083B8F5E4C087827A148A532253E279DAD -980D7E7566F409760BB9B565E07B8191D5DEE2BCC36C4727AAB895F7F9EB53B371A07FE2CCB3 -1018B17E2BCE40F9DE95F67FF10C8D8AF48FAFD26AF19DE656AD90121F628D419055AA0A59C6 -323D7582FA8A458223B7DE3EB7FB56351D5AAF5976FD76B8E59B94B4E31962D602FBEA7C762F -E7685E0B24B183C9903624A605BD3E641F1302A379A4C5BD746DDA3379A11FA99398860E1C25 -975154F4B8C95AEE5704818CDC8424729A15F33C0366F00B67DA39B86C6CB2DDD3B3ABEEF5CF -2CA3B21FA49496C488B6D5BD9D0D901D7CE35BBBA5747B5CD07AD04EB434C4AC13A8CE83B003 -9AC640246FB71A2ED25EC04A7A6CD8AF7D9E21EF81A8889AA1386E0A87545005DE09C1232D99 -592143102F847B7E5EC980CF3E85DCC1A9E58DC0C2D65F0913E1C3F0B73AF3A8C86751669F20 -E66F0DE093F0D92A7A8A44160B611B50C212CD54BE197F90E114607AC6FB6C1B5DD715C38781 -46EE0B286DDE1639564B242A234BCA17D6555D3FFF9BDF160C3CCE0FBC9532C4977D01C15507 -69B29CC293C53E70A80B1CB3786476C7D3032FC674EE932BD2A98694D95BD33222680416BD4B -C1546DB5FEDE4EE75BB71643F64F5D961A16A189674001BC9DAC9EAAC67F0799AD5FCAE7183C -9AC5081A57274137FF50C01FB1568348B2AA98BE1C9F54D7F6A251660BB17710A5ECDADBF24A -B7C367C662E6B7FD57FC092A6DE4668D87D38F0DE4DE05887D4BE4E85C19687AC998A61EA4E0 -085E6827A52BB145DBCDD145FE44F7D9B689E0FAB9392855000C48BD191A587D74CA971DAD8A -12D4B57A38F65518630D7DD69DF4D3D0CBFD6FA67EA609427B50F94236BEA0E58432AE400234 -C2C222737F19F3936014828B3C36163B31B5E5712A9F18A8274C2C4FE1651DA6554C4A23456F -6A2A766B51D79804F4061E1FC1A1CBF0869BC874B26723FB49BD0D776A4BDA7AC317C2A727B5 -ED7275E929F2CF266BF931BF97348C0743D0F2342B4D65E983743515ED5EEAC2640FC8C087FF -6FA532E844C4254BEBCC1A047846D888DC492159DEB71CA5ACD44421ABA5C3491ADFCDD9B272 -7DB86E7777975D6D20B2E462463B7C6B0D026026F09D697E510CA11B8669FCE997251EC53238 -6E829F1653FAEAC84BDDAFBFB302D37AE46EED812751974C0D4A1066A2748B37345E6C852E9E -D1FAE143430B21E56C14BC72712CA158173B8605F729967E4FD41CDD60D648B8AC643DFA6CDF -6F8B5467D521CBE7105F24867BA4CC9DA45C837DDE0BED2D9ECF045DBBE7475A728318299A5D -F19B1260B0C368D2CF8D0D9FAA58016FF441E026981C6816D2968226F6D0B5C4BB457F658557 -8749FD2397211831821DB0668B8E4338E32A572AAAB15FEF7E93DDE37D558F1A3D94F807160C -0167D81ACF9B7AAC27D7979733CC261C07FA1941E0801C7414FA2F9E054A2ACC6EA3C86286C2 -50F66A4B230514CFE6D83ADFD396E12F149B2AE96124ADA376F63504CAF144955F6E46F88CD3 -FC73B4D612ACB27F71ACF202168022A34305038A0B200469B5E2668ED273D5820E0DA59B5850 -51AC16D2736020CF6873A9DE1998EAAAC0B0D47EF922E301E24A76978A8CA754D23F7BD26C47 -8CAC4E3F0DE7C1E03F6FFBAE35384EC637712F5520D0402A23F3FBF6C63C2901CEE5D98AA9E7 -012E7EC99FEAB16844488902F044AD5D4BAED2707AB05C7B17EEB7A7AB1032B151CD3353492E -C504BE32F5FDC918A1DA8D99990992725F1A260728F53AD01C93F9EBD665E1A32D5CE318EFC9 -7EBCF998A9025AA256070DA2B667B9BBB3E5616B2CA66A8EE579E5AC3E9313071AA513A2A512 -81090B11F771532141E9D7ADF60836D32F1E99707826A1146EF19863C83FE75E84319E2CE812 -256B13481B59AFE086794CBA83FC44B5E47DA84C3B3C70BDEE939AA14C4905ABE7A681385055 -F794876A4EBBDAC148B985316CE2C2D80FE4B451473D53DCFE7FF0DA11BEB081A2D6784A4CFB -8AF804A79D4E51CB5BE3A7CCBBC01AC876D006B96CD1A4C37D6912E70C0A732B877EA2DED6A8 -530A4DD0137DB8509C4C1E1B44433CDED029B4E8673BA06ABBA225A1DF6B86083708A2925240 -DF89D92350CC7E09B54E4ED57A3D456B204FA54C56594EA47EF68977CC52B8FCA7B3173E6C37 -DAC9FC74B1129EAC705CEE38D747233BBB5F3BC1ADBDDDB16F532F3E267D77018279B5E19418 -A0F50B331D853D2C54E5DABAE16D627FA54539620AB07542937DE05073C51B0F84D22126C087 -2F0DADF690E2D8FFC601642926DBAFD31CB5F4E4EA09DD3ADF737310AADA0C998CBBDE6E25E8 -628728C3916CA9A8404E27E8F61583883E88A25B88F19B5BF1DC4F907E1CC02EA5A3419F4B7E -7B89A582F29AD3DE67A2A77FD338AB6CBA14AAD920FC6D2EA85E0A9E275206A7D84BBCE226B4 -142778EDD33D2DB329451B4B25417694FB47975F8F6FA5093A28A67C04FC04D8BF16803A10EB -BABBF6F42D77E68255DD76592306D8BC3083AD05B1160C691D94A656291E1CDF4F177BDCFBAD -C3D45E009FBCC85344167043AE0321A7484D60C5B8AFD543431CB069419B96B39A9605FF2768 -666B338546199CCF5D248CDF297124E0029C52BEECEDC9E5D1E60AB1B3D27BC803A8BC65C054 -E6839BD818BDFCD609106BACB6D4D502220175791B00C011EDD5AE1FAF080A340DF0978B77E4 -0CA0318BA24D7DF5F75EF08F480781B211AD20AD2852934BA9B6EF15A244E268F1CFF71C6B46 -D3B346752A98B53430B3DF77C8B62F82F71EE259F516130E62342362BFBFC946280F5C89DD23 -FA98CB13DA94F209208D35975FEE8E80A79145CB0C76B5F6CCD2050227C88DF45898A1BA2930 -D046421F2BEF1102F14C4272CA1EB927C486F3AF8BA8263632E062CE30F30F0BF9245EA74201 -60F5E08D8770E7A0C55929E081C5AEC44C752D3747E17A745D09E5077F21A1C358986F980391 -19ABD1A496E33AD65A2F2C9AAAA611E11D6E3449CCC03A8DC69C7566417B4AA38885FB19FD79 -AC260B25424892E647C58CC6386D7FAA5DD23BE2DD9E9B8A04043D24BAB5B90534D6A002F128 -0D6196D655ABE13E214D306CE95DB88DC4EC1907E0409587522C61CE76A9BE42CC043CC160BF -B544C1FBB213FBA51E1C480937B8B640DDF4A872268630A5D741C6D8BD3D46E22C86F13D4D5A -1F456DBA23008F985CA832AC2852D74EA4271478465C9A72078D5D4899D8248BCADE4995513E -E47D0E806CB7D13B814E37B9BFAFDA451D70E5D94D7AE5068C645B2EE3690199C173F4CA0D60 -422993228F4F353A306ED1440D254097DE2E4405DE752B26CA8A6CCABC27C4604C44B7269456 -79DF358FE86A00E4F7EA6DF7CA250C6F012AAF6E2E51AB95906B989ADA1690DD0A35D42FF123 -1C62311659F95B8389A6CB8C943A4ED65FF1C7E8F8F8A3D0A009406784E534AB50207E63001E -196A58CF45A07337D6AA11A0E0E26610D5538F1A29288E15B308DB05E8E640BF43B5C0A85235 -0650089A27DFADBFEF1DD439B4B9ABC736DFEFE7F25969F41FD09B6504F5FD00D6144040A435 -B16A883D1C3A61D57FB331778A811B7813EEDB71DFC653A171BFBD63406AE89584C3B69EE8D1 -F7ABE57C832C0B9F70499AF866633F1197A435E16B87BEBD742BC130448ECE36D7896D5F5F27 -7C0BC86D3F1E5BF875791D0B018EAB0D2C02FB9AECC11DC4D3BE618117EAF432140723E98A5B -D498EC7B5216A6BFBC4637D958E37997C343B509FCC4034EDE03228080005710284BEEB6639E -CC475B65F668A7601AC937CAAA4951FF43B3A4FC5C316A99035686B8002AEE194BD92379179A -8D619D7C1C5AA7AEAE7CE4D1D80178EC069C3E442A29D00EF218F86BF72BD744A2ACA6D4B8AB -DA4DCB335AD3B8134851AC31D715AD643EE9D5F73B1BE77FC58786215A9EC7684E33806DA6C8 -007A0ACB519220D5D11E4091FBFD0E448DDDEA02558CDBD6FF1CDC6D15ECF9466AD5B9322EB9 -33529D82A1C885683903B46D48B3586F7787D4233E97099CEBA6FD58B8B7FB8F7F42CB634238 -25F0B45BF94293E410A32875211A67B1C2E1FF78561BBD5AFD9DF64969A592F86F709DFAB6DB -B1629A1C7056933433DE55792257A97100E1EE06A4C81E8B109FBBC601C8B6326CBE6250DCAD -5DE2FF4A2C6DD8650F74867B6D0FAF48EA0272CCB813D4D3056A22D194B59271D838D1D27F71 -2A488590AF1846C8C2825A75A77643C0C2F818ECB406525BED82415800E0862835367B0F0B04 -FF9DCD92051D6DF40E336921FE239B9EA13CD3A6FA8E5B2B7A0E8D2301E30718BE791457D7B0 -0FCF5F246CEA7F6579F1F6ECA67DB9B9D7D817ECF9EA96849518648D9CDE2A1B143A5550978D -97440FC06CD001A7BD560AD31793A8AD7D3BB5E53CFD4EE749B2F2B453BC037C66FD1F80419D -05822C148668988C35626C577E9103D596912EFDF76C7C1DD8A8C6471AA0822653C91711C35C -54127ADBD11511B6CD2FFCCB972510AC585882832B73EECA79DF2B89D48B3F6607502C9DF201 -B4AAC79FE7BCA0898AD3D54408529D3FA1BF4DF61CC4F99678B766F0B1EC50B2929FA801FAAD -51066D3D67ACC3F0AA43CA730592262D48A2186F6E48D79DCA6F561EFD2E4EB51EB6E52C6840 -F8E7FFF4279AAAFE062C5F63713302DFA7CDF62FDEE79400A922630AD3348DD763375C448D8E -0448904E83F7E08CF569E15C2C0449D635B288BE488FE6BECA0F678B29A5DD5D6850F6B45CFD -DE05341B27867AB77D11924AAF00565E834D14E2D125C4688DE9D6137856F51FC30A36D9F3C0 -D5E38164122987A2C49AB051E6941F0BD78A30EE8C445B38D8DE7AE8A10ABFB8B8B1C690404C -1811F7A85F4D52D4444D026D958CBC15380ED55E8F6C356A98932F71F70C30735423103D6D5B -D36B824328C31B24039293408D0472AEC7261371D1D73320A96286462B6178BE8AEA1760E8FE -6769441035B403C5EA59AB52743A44E40294F4383F20B3B5E1D0CA0EC3A2CBC333523B999427 -5F55D090132E37C27C18FD25037296BBD7DA67AAB0B33E6B89D3A5ECEC62E1E0B107F677FDE1 -15D3E74B707B125D8BA479EF7EE8739FFA00097EDB1E3D761C1AA41937E10DD6004EAB05E713 -C33ACA775913C55EE55E98850485636068E4A43D911F6808BB24E215AA4F4AB8F2C5775506DE -F44C09E492DABDC852AB89E4CBD56E7300716D92817AA007F713E77DB9492B6EB569F713172A -F24084404ACA899A5C4A375FAF45EC3E08AE30842FCFF02A630A2CFAC0C4A4C0CC35D88670A2 -0BBD39DE55753667690BC5738701FA19D646D7B5EE2806ED02C89BB84B29082036337FAA7E98 -F49816109B8FFF8D6AA37DC0014503BEA3284B56565908D74266736D4593F69A54AE27A874BE -D00C82140D4B3B74261F47E23EADEC5EDADD087DD5B34EE4B02C67127F29F320A0919835A353 -C2451CE9B714424299E2416DFACF980D9A146F66B9C5BFA541C6E0CAFDC578354B8221BC7B3D -00759D958CB26996D250524F4BD30DC96E22791553303F85B9171A08C2BE07C6F8E8B79C66D1 -9B7DD8D1DDEDC72145585BAB12DA474F5E2BBBBCDCADDEFFF0A252CAD79D3B019D222AC7284B -D74BFAAF06A68642DC89BF1DBCF0F4D4A26A62D71FAF1F029343741EC71C16B786EA52FCCEAA -25CBE89A98A06F2C11315ABA551A467B7E7CBC4C0936F544B93A622AE211D80CAC338346A70C -1280F9ADEE1AA990D1F78126FBD987AEE4105FBD50CF148E4A2619E589B905A4CFF31A1AF617 -65ED89EA1A73351C10E4E6BFC771EE87AD674B6D9B2D6FFCD1E426B86C75A94C751CFE470A9D -0A992821D1E73DF32BF048CADEEB98286F077383B5EEC29B1E61EFE054E87506D0DA1B35425C -B673F82D52011BE5A863A12C9231963DC4018DC8FA1E4F4A56D93A1DE33F572BDAAB3B99600F -83C1C6A51E7CAF7F183ABD3DA455DD13BE1A96EFC5A703DD8AEBB73AAFE967D6FEC11AF1A58F -DB4FDB0A000E8339045C818A44461BC5E7269F5317D0FA9F21FD714EDD30FCC6DAE7DB153611 -58A0A1C1A8BDA3A769D7D8E94E79A76E2A4C31B460D58A8293AFB80F5E472A009A078FF139A3 -C1C8248C2E721B417FA04CA50D2692EB80A7733797C1CD9269085323252BC3A7BC3412CD7CA4 -2D42C8456B8777785209A327A3E9A0D1946455B6A16AB068D24EBE47E83E537634B4CF633D66 -AF9526BBE2A02FCD14CAB8FCF9ED4221283D3A19E73ED4201FADA752F0F6DF8486029C14F6A3 -1B40A9F4E96D9E3E4983D616C764084C0C3157070D89E763021D0353078E0E40D882E56F293C -51ED81B1F19A8F41A6E0528A7DB9F0680EAAA33253F654C1FAD8D68353049790A13104B0BCDC -D3E7C01B25AF16910AA9EB967D0B9B29B0257C7DE6D8820EBAAA026BD5D305061D06BD9D0E23 -0997566E89AA444AAF954945C7150567FF65A7527CF3E9DBB42300391F1D9A8A1D7E120B271D -C0A1AD2D9E1FD98316AE6AACB47C7424F822C97BCCA4F5A6D2473265E987F16D7215017F1BE0 -60B9EF5842E3706C2ABB06A64BAD7FE94AB6976AC9E7BF9C751461B06945298145C9806A7304 -FBF1DDDE84AF825EFC1E0F469779274EF79189D3AB752A7BE0B58BC33874281F79AC9CCC33DA -4F369D9675326CA986AE88B22DC6BECBF23E77C57A667C2B4E32EE4DCB14BC9F1D1C8B2A6103 -3B7BE0EC9C29B8846082C9BC1F8C1DCDC8482A429F78E9E8127325C87E38DAACDD4DFA1AA0A8 -E58A1134FB6EBB2C606A1B82834368743784AE2F9B6AB5CAF41970C4DB0228003258A214D5CF -F134D348F9757784D15829291B7B67593D060F94317206DC2227ACC9DCC8B1FA2B140B022C01 -1B20E1089433392CE890FF4266942A9389636CE64F92D8DE3CFBAE7F382DD70E8ECFF70EE613 -5694C274F98951DCA5110CA6B599202439219B2F913F971BA4146388D15056BC30620A5F2138 -EEE3934F6654187746FA80D4359F2581B7D4EB470FFAB8899A716BBE414F295E35865C120AFB -84F41F6841A89D1DA8AAD918B878E5733BD2ACA7311E129D02D84E2C9640013E6C9628950D12 -2D4CEACEEC8D6F77109AE46E51F6431DE0F8FEB6732375E7D84951D5D96CB948D5808A7889EB -F780C2F4563AD348838757A695A52930CA123D169CC37A28D01971F5C7318C6CE392948AF807 -6D194A184E3CA3DFDB4886F27CAA7505CAB4C1C51A26620803AF01F9892D68D4E0EACA84E4B8 -D22F5535CC3F0974F2B99AEFAFD8F40BC1A03F03021529205BE8A76EAD9606859F8B88CEBFB1 -979D7C98D9BEECADC3D8E596EDC03951A91A5F235F8D27A7C60874BF4984C717894742253F07 -B0C6FC27EE6F65283DC75C40C8BF6B153AFD1763CC71704B13F11D313BC9D016B604539E752A -F5FB4A897F128933C3BA68AA67B0750BD3E0A65AF8AD9509FEC3AA9A0753BCDEADDC05C521D2 -CAB67BCDE38C63E73D2DDC7D84439A63BFAB2722EF4FC34AA545E0986D388E496B0B3962DC2A -ECC9F16129EFBC9CBD3BDEB81C18C35AF3304721F0C4975F26E4A148ECBCE147191FD423AD26 -2B6FC93CDC494AA23AB2DBA848021B3431F359EA19E48466A796FE2CF57CDDB261CC3122C09B -688AE0D067029156A97A80DAF718A660F69E02EF81E89D23BF85ABB2031E4EA9D8BC74FB2AE6 -442EC0FB02E31010D56B4744E8D18DA0134EFA38E1623B584267986673147185BE802E803B12 -D98F5E9382F6EEFDF8D80978AEB5210D71628C10BF4FED1335ABABD625B037F322A8E3A9E811 -4C1EE08ACB867C0A595DD627AA1085F92B06EA2F73202201F34490A5E2BC49A248EE72750CA6 -3D58C4FBEEB96102545C9F596DA262F1BEEC11071C4402A804E3D81F3D37CBE5A26D8764E209 -7BA416BF7F70046201776022565655BC395A2205600D9EA0F4E9B350DB04B850241A1454EB3B -8B41E1B560A4EE5BA69AA663DCFBBE513B9E85F66D08D231CC64464C32E24BEB88C545ABCDC3 -1840EDD347B8BED141A4F3F7935B82E8009531FC4348315C3BBBF774C5B7DE94291EA60D16D4 -344BEFC05D2B094210BF5FE97989AAE0DD818CD143DB18443ABD1C0CC7B2C05DDC49BB9B4D71 -2C6AA3539B9F7CF34151DFF9D31CF3C54F0C89AB1F5AE6A7B8DE3F9734159774870EE083194F -CF48A89566858A1DCBF516D95CA7D6334DA2C56DA1B5E2EDBE4EA8270AE875DA9A2902263EE5 -1F9BD3089DE3CACADB51913CD89EA491913FFF9DA545B9DFC933BA4396639742DC60EF85AC17 -0177ED9ACBD9A9F1107026FA0864BF84CA6A4D33DA5ED013C2AEDF50B3F3194BA96B35E3C04E -32967E1A67BF61AB6CE7567C0718738A781DE9EC1980925D6BB42A1F838976515D34B0922842 -0E1E0DD652F3AF65FD8C4363DD22D9C95658319821C9185693DF278DFAED1D94B3C4134BFC27 -25616333E1748F7E2B69542BF3D598438A34D7F70165A8DB7B3E8088F58D54CC563A3EC9E652 -8EDE13C573FACB283100CFAD7849A03C7F13049248DB693BDD080DF8C3A459BF67C0021B3514 -5942BD5B7D62F949292844A970952F0EB3C7002D3635FD05A0B8CB43B80CCC73B64C1BB76A31 -0515C7BD1B343D274517A5D1E5EDB3BCD9747FC59E4EF40F84E42B6F36CB14E22A153CA07C38 -5AA52814E7A88273074D00A184AE6B58D45FDFC8B94883BB8267CC930B444D4371886F042615 -D55159234D77BAE6AE598736B9AC350F2C59AE27DB528C50148E5A2281282A66E6CD3320119B -5C705448451C1EC52466F7B99BD41D484A0D8DA4769A51145E47C09EBBD17300E6D6AA835DF8 -AC087F675793001EF2B0FA01C6434E74B873AA3B7EF40EACEC1A84A5E6A94D4820A8A0919248 -CDB834B7B5C8EBB4FF8613590F2C8C8880B95D62733A2A1DDE42916F4DE941D7CDECAABE925C -BEFD995AB85E1826EFF0D80A81B3B9E7A3B3A8BEA60F3F416A7049C60F1CE8FDA10A3BE65A27 -B2870ED3CC39E83496AB84C3007E5D731B35C5F204DF4DD7117EE32940E14402BD1A16C8D49E -AE10BA61938FB384C82C1FA75625ECF39456A0EEF5CD81CD74B2E72E84A174CEA766BB329B7A -2C989008013C85F15E808082AD45111EE91BAE11724523446AC61EBBB3266D79F2FAD7847833 -88D96766EDBEC728E6F2AA81C58896D8F9F280C43F61A8B7B7DBF853393F18B5A00BA7914B26 -3259C45D101714F218F234FA00C15CEB72FF11C63C55D9CF67B3CE1F3F826F9F68EAB658F52F -DD73C77A38A27BC49FBE082F98D548C314172A41C636102019B29FDF96A78AB04B2306F3AD2D -0C17625865F58DCBA8275F7737CD00701A85D8797D9FA654DFC2CF2D247B4BB294E92BF7B16B -E4333F69F9F145153A3313F060123ACE8FD8B0A9ED99C7AFF6D6FDF1BAA0446511C3A94F78B1 -990D07780D10D298F5FA1316071E3FCDA867B60ED27C94381F982E63E16D1110DCD877BB733E -E0C9209153A68C45B29C60DCC64CA9B9EA091B36834AF87D3551B4AB6490C29171F9B67DF378 -F15B06D9AAB69E3100018E194A563D1B56B666E1F22432C322CFB34E7F605BE07239491DAAC8 -60DEFBE7D773A8FE16CF8BA9D22739F9C9795CF0C6D7CA5B2A621C888EAC4101B404E26B127C -865F273BFAE0FC83099E6F9DA4814D0E5BAB0FEBB77B599FB8E1E4123ED1B12200BD3103A39D -257F47A955E29B02A477734FCC53745B898CC34CDFE725497FD91805E33D5059115D2DBE2867 -34A5FF2CBD847569BC5F6DEE67380C24DA642D215B6CAEE99A19C18B6B0F396F64F28D816330 -66AD18124622F2331090823A0F2E99B7878150C8C83E52BC4F3D18E5F20AA6CDC39DE471187D -0BF56C9E87648DB397568E75BA83104AD428ED3A4CC63C976B01758AD9FA8FF327CC05945039 -8C79D495DAEDFC651D4A3021C2A2D419626C05882487FEE16F113693BB47F52FD38D35EE445F -ED54C4690AE2726243EF9BFF07AB7BAC59197C076D0FEFAE078EA6D87D91F7A963C07137F255 -72C3B6DACD73EDC6AC17624A4371B6D1049C7C06EACA3934A912FD4DE259A1DC48AEDE05CA74 -B15A23782C6A212AC87C5726A0EE4EF3049B723B448A44FEFAEE59E5C59E3619A25980AB2B23 -CD42E49BFBBE1FBDB2DACF2DC74E01A9125A3B90CE131D95C40B0FCCE7F19C490E5D33D086CB -571C109FA6D8E814422A7AF15B49C28D2A46B258E51AA9592F99A3C2F5176DF8D6B4E3434DEC -16CC8872030223FE9A341BED30948AF03969C68A49AAE21E54AE43208916DF619DD375EDD0D8 -B1DE4127F5AE7706D6FBA8DD997AF8E4EA540610DD42E8CA5B5091BD1C373272064C13A3C801 -41F4B0B7DD5091E0EE7CE77E29DFDBABEBF3962853B36A1E87B412EDADABBC61FE68B8DF19B0 -F8C636B2AA37CE20437BD16997A8BDA316C7513A93BE433A3CB0F8C088F35F2C11384B0712A4 -16AE122E4640E6A9D4C0F6D7C276C8D86944A62FA4D1579206237236D063F009ED34BAB304F2 -FEA4FB782E3C906C5AB7617C88247F9C172D7A7E6AA473897A6D9619D8E4038EB7810E68CB20 -A39D79D9C116BBC01D0C4D7DE743BB2316A8FCE00AC885B8045EA5683381C184A68780B8DD00 -6F7F564C9BB7F666CFAED5A0B5DB1F11B02CD3CC84FC229CD8FF9879B4B484C9C892DEA3D3EB -2D54AD7D73A981CD5D21300F74B58E8F941336DDDF7B293F826A2094699901DCC3FCD918C5EB -EB291693D45D2B82919CA8D572ED1C3CC34BE85D8E4D09AFD436662583AA22E23396220827AF -8988B2E369BD00604D55C71A576B0E8B750840B589467889B2F991B8FB8EC20CADEA880036C4 -3929785A82488D30CAD26310FA1CF7959D774D899FFD15CE8DCD1204ED662D5D66809ED44A5E -3BAFF5C7BC746807464202584D900767490695F53FC1A3F881420564B84C3017C33E333BA9CB -3A187947C49168E23A6634C51E1D991E52A221682DF63FB0749305DE1C7553E06B44E0CE590F -445C9C57EB34CC897F5D86C9667C6712511279D931734CC495A5D02A116442A2B53A61329B32 -47929B4D1A49B808AF6205595238100B7965945B8F14C171672405AA48F46CE00572B3B89CDA -384C79A828118E3470D3699BC28F163532EBB655C29E0B64F33A2C2C9D456B8387DAFDD6C5A9 -9EC92C21076188A0AAF5A58D4718E961C51677E4B516A7FDDFC5CA51BA5152F981D8701C71F0 -EA91BE0A8029F7C57FE0F8060A8AE5FEC6941E871A1A064B9CF033AE4B94E03683D39EE3F6CF -6B4990A0C4BEF6DA71B85DD452CC73642C6C81E1FF84C27FD7BF949C9287AFA79F102A4DA9C6 -6C6483325ECBBF97C74A0DB63C88A9C59F7B7DC7BA243975B14CDCBD4366D446C27F1E5075D5 -35AB33E72B011EF6DC418690BE8A1E21DBBD150EA23EB3F6283AA7678551DA9AF502AD103D16 -91A4DD876537E776982AE4DD4E0923FB7B1FCEA12476E199BBB308AB589FE05D36CD5F93C8C6 -CF0EBE232C6DA163E04E8EBAC26CE37EBED9FBD1CD9A3A69BE2BA1E200A7D1AC79CBD8ED04B4 -A631158834137BDF41B8F3481763848AAECA5EA7577FC401505C5F6FC31F60A760D9C0A398EF -3BBC0BB3EF2A90E79EA30B7251E18ACEE51E46ABAA7DD6647CFF0B0D4CD34B97AE730943138E -3952AA3BDE40A0C20001CB89775641CBAF3E4F7EE45A5A2D23BD560000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 - -cleartomark -{restore}if - - -%%EndFont -%%BeginFont: CMR10 -%!PS-AdobeFont-1.0: CMR10 003.002 -%%Title: CMR10 -%Version: 003.002 -%%CreationDate: Mon Jul 13 16:17:00 2009 -%%Creator: David M. Jones -%Copyright: Copyright (c) 1997, 2009 American Mathematical Society -%Copyright: (), with Reserved Font Name CMR10. -% This Font Software is licensed under the SIL Open Font License, Version 1.1. -% This license is in the accompanying file OFL.txt, and is also -% available with a FAQ at: http://scripts.sil.org/OFL. -%%EndComments - -FontDirectory/CMR10 known{/CMR10 findfont dup/UniqueID known{dup -/UniqueID get 5000793 eq exch/FontType get 1 eq and}{pop false}ifelse -{save true}{false}ifelse}{false}ifelse -11 dict begin -/FontType 1 def -/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def -/FontName /CMR10 def -/FontBBox {-40 -250 1009 750 }readonly def -/UniqueID 5000793 def -/PaintType 0 def -/FontInfo 9 dict dup begin - /version (003.002) readonly def - /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMR10.) readonly def - /FullName (CMR10) readonly def - /FamilyName (Computer Modern) readonly def - /Weight (Medium) readonly def - /ItalicAngle 0 def - /isFixedPitch false def - /UnderlinePosition -100 def - /UnderlineThickness 50 def -end readonly def -/Encoding 256 array - 0 1 255 { 1 index exch /.notdef put} for -dup 0 /Gamma put -dup 1 /Delta put -dup 2 /Theta put -dup 3 /Lambda put -dup 4 /Xi put -dup 5 /Pi put -dup 6 /Sigma put -dup 7 /Upsilon put -dup 8 /Phi put -dup 9 /Psi put -dup 10 /Omega put -dup 11 /ff put -dup 12 /fi put -dup 13 /fl put -dup 14 /ffi put -dup 15 /ffl put -dup 16 /dotlessi put -dup 17 /dotlessj put -dup 18 /grave put -dup 19 /acute put -dup 20 /caron put -dup 21 /breve put -dup 22 /macron put -dup 23 /ring put -dup 24 /cedilla put -dup 25 /germandbls put -dup 26 /ae put -dup 27 /oe put -dup 28 /oslash put -dup 29 /AE put -dup 30 /OE put -dup 31 /Oslash put -dup 32 /suppress put -dup 33 /exclam put -dup 34 /quotedblright put -dup 35 /numbersign put -dup 36 /dollar put -dup 37 /percent put -dup 38 /ampersand put -dup 39 /quoteright put -dup 40 /parenleft put -dup 41 /parenright put -dup 42 /asterisk put -dup 43 /plus put -dup 44 /comma put -dup 45 /hyphen put -dup 46 /period put -dup 47 /slash put -dup 48 /zero put -dup 49 /one put -dup 50 /two put -dup 51 /three put -dup 52 /four put -dup 53 /five put -dup 54 /six put -dup 55 /seven put -dup 56 /eight put -dup 57 /nine put -dup 58 /colon put -dup 59 /semicolon put -dup 60 /exclamdown put -dup 61 /equal put -dup 62 /questiondown put -dup 63 /question put -dup 64 /at put -dup 65 /A put -dup 66 /B put -dup 67 /C put -dup 68 /D put -dup 69 /E put -dup 70 /F put -dup 71 /G put -dup 72 /H put -dup 73 /I put -dup 74 /J put -dup 75 /K put -dup 76 /L put -dup 77 /M put -dup 78 /N put -dup 79 /O put -dup 80 /P put -dup 81 /Q put -dup 82 /R put -dup 83 /S put -dup 84 /T put -dup 85 /U put -dup 86 /V put -dup 87 /W put -dup 88 /X put -dup 89 /Y put -dup 90 /Z put -dup 91 /bracketleft put -dup 92 /quotedblleft put -dup 93 /bracketright put -dup 94 /circumflex put -dup 95 /dotaccent put -dup 96 /quoteleft put -dup 97 /a put -dup 98 /b put -dup 99 /c put -dup 100 /d put -dup 101 /e put -dup 102 /f put -dup 103 /g put -dup 104 /h put -dup 105 /i put -dup 106 /j put -dup 107 /k put -dup 108 /l put -dup 109 /m put -dup 110 /n put -dup 111 /o put -dup 112 /p put -dup 113 /q put -dup 114 /r put -dup 115 /s put -dup 116 /t put -dup 117 /u put -dup 118 /v put -dup 119 /w put -dup 120 /x put -dup 121 /y put -dup 122 /z put -dup 123 /endash put -dup 124 /emdash put -dup 125 /hungarumlaut put -dup 126 /tilde put -dup 127 /dieresis put -dup 128 /suppress put -dup 160 /space put -dup 161 /Gamma put -dup 162 /Delta put -dup 163 /Theta put -dup 164 /Lambda put -dup 165 /Xi put -dup 166 /Pi put -dup 167 /Sigma put -dup 168 /Upsilon put -dup 169 /Phi put -dup 170 /Psi put -dup 171 /sfthyphen put -dup 172 /nbspace put -dup 173 /Omega put -dup 174 /ff put -dup 175 /fi put -dup 176 /fl put -dup 177 /ffi put -dup 178 /ffl put -dup 179 /dotlessi put -dup 180 /dotlessj put -dup 181 /grave put -dup 182 /acute put -dup 183 /caron put -dup 184 /breve put -dup 185 /macron put -dup 186 /ring put -dup 187 /cedilla put -dup 188 /germandbls put -dup 189 /ae put -dup 190 /oe put -dup 191 /oslash put -dup 192 /AE put -dup 193 /OE put -dup 194 /Oslash put -dup 195 /suppress put -dup 196 /dieresis put -readonly def -currentdict end -currentfile eexec - -D9D66F633B846AB284BCF8B0411B772DE5CE3DD325E55798292D7BD972BD75FA0E079529AF9C -82DF72F64195C9C210DCE34528F540DA1FFD7BEBB9B40787BA9351BBFB7CFC5F9152D1E5BB0A -D8D016C6CFA4EB41B3C51D091C2D5440E67CFD717C56816B03B901BF4A25A07175380E50A213 -F877C44778B3C5AADBCC86D6E551E6AF364B0BFCAAD22D8D558C5C81A7D425A1629DD5182206 -742D1D082A12F0780FD4F5F6D3129FCFFF1F4A912B0A7DEC8D33A57B5AE0328EF9D57ADDAC54 -3273C01924195A181D03F5054A93B71E5065F8D92FE23794D2DB9B8591E5F01442D8569672CF -86B91C3F79C5DDC97C190EE0082814A5B5A2A5E77C790F087E72907924A5AC880DDED58334DD -5E8DC6A0B2BD4F04B17334A74BF8FF5D88B7B678A04A2255C050CB39A389106B0C672A1912AF -A86A49EFD02E61E6509E50EE35E679448FC63D91C3D2794B49A0C2993832BC4CDC8F7BD7575A -D61BCDF42E2E421AA93E3FF9E4FAD980256D8B377043A07FC75D6169338028692CCA8CD1FE92 -FD60AD26D57B7519B80A8F8DCE9CEE5CDF720AF268D3C14099498A843D76E3B6C0328F24D36E -FE7F5C4E5B5C610DA63A48E26BE9FC0C5FF9236372483C265681DD26303B962BF46BD2DDD7E5 -AB42C609D12E83D21A55046C3E50E41C605EF2AFF78F91B20F9F17D90DEE6171AA799ACCFF77 -E3E4D9793D1D8B51FC0E8979B8E2752C9E72A51720C018DCEE02736480DAAE55F5F1910727DE -3B9FA8D0BED2EFF3BC887AAD72838B7A894541D923D3D253139CDD747B185238B79E569F2448 -3C423BA5EA55860289C4CA80924224A52B8E68CD15D47487340C7FC925100F08A0DB63EC18A3 -2843C299201B3FFFF69059B10CED881ACB7D0115D735791ED587758150742B0A23AF8FDDE157 -C4571039D537E52E2B4B069E0AAF299D4AA3A36EA316D2B55479B72886C76C1A876D7558FC2F -B0659E156CBB253B8466DA34ADE7B1506F8DC66EFE35DCAC71451F8A426056E129A9CF21C41D -7DEB5EA6DF7A72ACAD4BBCA3E4081320BD7B37609A4DB67B5DF63E25F490B8DE0666D17DFDD9 -3AD510ED7B41BE8B0F4C4B2C1348E047C61623CDA21EF0E64B393ECA207B812A7D6F49CC29D7 -0529F6829881A092F98C934D70CE3C5BD2E48C3C57AECF77B55DB937230737C3AB65C9BAB8C1 -BE847A4C61D1C0BDCDC192C225F1FE28B68B279CF3633287286CC18FC886E8C711E558D4961E -D9B901920006C48F8795E1947EB63B4B6A63BDFDD1DFCA3E9A354C37AA33A24990FB70FD2D36 -9D1FC5C89A6BF0851CAAEF43215B2201EC5E09432D1DF364F2EB570F8C001011A4FAB268E40F -B630082F53AA19FB8C3410E049F1F8DE85082ABDB8ECB5FCA536F824AAA39F968D3585E469CB -5872794236771BA5320DD8CCF58E545B9850865AA31607B8C7F0EFCE4A0B2BAC4F48EFD4B599 -FC52C4B9FA6AD36E0FCCD3155B874D4FAC8A02AFD4CF6546842E31928A8806EA44C7CC03E03F -DC1AB9E47F4D455F69EAF32D6FE4A3070A728B225687761E0F2D48138DFA3B2735BEE1E654C8 -A6AB0E136D4DABF9B695F5EA9BDDE81619A7875591A7F39B6493FFEDC7C4812E18C36C85EE59 -7B7FFA207AC57ED8187F13B9997DF098620557843F7F9994FC561D70554B8509C137FBF881A7 -7F86460F53CE7BFBBC9C94167FB3D408BBF95E7672E3DB32F8CC2BAA731D6CAF1675DDF0F055 -62773D9F37E0A473FCB74CD67483B66EC7B42CF841625B26A32201C05AF07B1E0E3687F260A0 -4F2296ABDF3E5DF972AC56470AF0B4538C0B4ACFFC2C1B5309BD8A2510D228D9F41E01783E63 -AE1CD0CC827F15EE2783E818972E418C75B03C1EFB4D564A6D26FF8C8B0FF6DC625647FC5A8D -9D9EBC2B36EAE9C8DD412D6639278F6432C3D9AD4C6C478EEEA0D4A9F111908A8F37ADC0C4E2 -8BBAA0E5556A8ED46850A673851DE8991338E59B906EE8506203110B315D40EF4A59133A6CD8 -5F0FF35123176FB801A6464FF3F77BC8828B782C9B8A18416B6CCFE557DBF14856A0A3162A68 -723D538F95BCAAF9BE7B369226A72C401612FEF48D59C927FD8265DF9D29026F732491709CA5 -0B9FEADE55F701A62076ADDC0BD478EEC530F9119D2564C87F445E9B8C529AB3A207986F75DD -CCACF3DB48878853A1C3B27D8590E81CE20F1271DF019E9C2CE34847B2B69AE9061CEA57BF2D -3CE3DC261D5955E6B3BF8B933A345B3BCC7A302F7614BCD0C2B6E1F3078271A85F232A5B3B9D -E2E7F048CD36DDFC316467A01866276CFA8D0218ABCFB0C543752EEF59635F48F92EF7CAF035 -C7363BE7436F564D1B4FC37D47A2096C886CFD6EA73DFEAC3762873E9BAC2FAADCDAC6D83D56 -E4EEC7DED6B1B99D6DDA7CE8C35C6FCA645940DE0150CEAD4B6463EEF7EDAA509B463D0DBEC4 -3E7C43F9FF16B6A8688723855B9937FAF16EF89688373C84DCF5A57CC309E14B7F72528B1209 -E7F276306FCFEF4DF98C72F7A276840EE2280B88E8F20374B964199B6CF1B47E8D9125A85815 -32FCF9F45E9E3491A9D5357D37B1C23A2E5AD04E02D74AA80E35E77847821B987E7C4FC3F037 -C9E95CA50067EC8F16A8BDDB8412E7954BBD115147EC48539EA6BEBD1F3885A4D12BA3233833 -7728A2C3A8F496B5CAE086585EE6ED1B20EA3FABD269D4B786C3EE0C3D9BEE58001D4D174AF4 -E87A7FDBBE4C3D270E2689840E4C4B6113BDAB8878126DD066DA8E0251A6AF2EA6458214B249 -809ED92F4EA6966D40D4596D86D6F05921C7814884501DB8A7941ADBA5702BF2B0B9A852B7BC -8710087974F2FED4A8D7B89E643A0950B0258A41A74AE4F84C004F9536CE1E3DE91E8E050C97 -C32B0AD953D0B8F4935235F55CEB7727F9EE6E45931CD281D31F5E2A52772C4053687F7A2D14 -B2F7815F8B316EFBE767FAE0636F44BDB1BC9B27AAE79FDDC0038A30C02B86D0E98B16CE7A7E -E8BE6A3DB03296C5B05A51FF470991B74CF893343BDD4A2CAB4B7E28AE4778B42EF31E789CB1 -AE28A8F0B112E399D73A388D3FC41CF8C2EDD7E3E6EE21BF01A833214F2D2E278B8F701B9A90 -68A34A78C34FAA85E60242233CCCC5899AE65F026DE91A4F184F0E626721C4CD3AFEB6E9A1B4 -AB410B816A49A5E38B4137E36B95E2FF0EB3A3BD4337137096E4062BD7D13C5137194CE85A14 -15C9F73095EEBAEABF2929BE8F203295A2AB6792D1031CDF4F96A58DEF44B848B687EEDD4239 -A6FB1944CE6527523FA3641693B1C128A675F98C67C2DD8A3F1161A1EE2A7BF7598D3A9EB560 -A94B4E8D58D1C38BA3D58DDE6D54A5F49AF3E03B9F7FB23617001E0CB03B7938BCF7681F7BD0 -721FE1720B723A7DA0694B9A7637935655C5F147BD7FA15D1377500F7F192337A9466A74A591 -7FD51163EAD5F26BC9867F2709EF15459F35710EB47B86CA032AECE26ABA9F79674E30E0A8D1 -AB25099101BED7FEA68EBAA28641F5EDE00D0C15C4FDD500DB5C9BACDF18B320B14F7B836A06 -3BB1BA30D382B2A8F3583CFBFDB1777AECB306948ECD8D8C9D3ED36FA733C15E4059215B3838 -54846BF6F7596006D9DD1CABD8E331248AADF6B8C206534BB545F44FC7E4BC9F3761E9849CE2 -8C0E9E5D99325FE771F931288D989C43138A805663A9E63F4738929B5B03123B6BDF0A135C08 -CA3AC695B72E92B5667F6F0FC8A7079EEBD572CEBA5C21720961611021E775AD8DD8E6E7C4C8 -5969282A49464913B85C47F7D3A875548FA3139CB5DBD78FAFC6B7074E59665A568B1AC49456 -4515A3D8B64AD0B6A4CC6A186F35513289519403E937BE3FC969A10ED68694E705376B718056 -047C006B73FC88C87B3D84BFBB15E7F874CFF12CC2E8E4A8B70F158DE0C15B4C5E933F0011F1 -F654D33104AE72543A11F588F56D3ACDB8C83A5543C2D5B8B2561E56F53FA9749CC80D846783 -80F55175C853698614FEB73B29EB8556EC0453A03AE894A752DDD14AD72776AB32D13D3175B8 -44F643D04AD36A6B97149D9DCBD8B7F1F50554ACDDEB0C9AEA463A65AA6972C2C384CEC24344 -C89DE7BD914549A9A3CF9139E94FC75AA93DC591977FC3519391677A3086B7F23351AD6B1FED -39E7129629880870D0BCB035C9F9BBAFBB1EB9A822F583439BA0A907B5494007FC9874B51CD2 -7802332C3B411BCE6A544153E51D0458E56880367EF4FE6AA8A0970445FAE112A40F4C48B943 -46F937F35AFBE27C244220406F7E2DBEC532C1FD99B713580ED318951F90D0E88314639ED7E8 -B886191D6DD3FF0DB44BFA5A7BAC6102783EE01911E05DE270D41AFA7944FD6B420AD5BAFD3D -02C95FF77D231DFC977823262827BE5B601F4F3702A528BC5BD4D87A789F6C976DF65C4103A3 -5E20352801825BF2AF07300F359A673FF845E87F391C058D8729F7109B379D8AE27506CB3DFD -16F6298EFC66ECB27A9D5F59749E6264180B0BCBBD4BE0B13D8D4C3344AF3D6BF4B73C29D63D -C19208C751F5F319888D7D4049A29126CD28E985FCA986CC33F2667F752A0B2F175A99F90D31 -906AE108E82F5641386BA7F9B360BB3BD5D5952BF2167CE10AAE9D41FDB63F4E69873D633997 -2A2B5F6007ADEA075C8EEC10C090C74647098439BE7D9F48A9F79C2104252009B8E6C44D7508 -192D58DE42B0962DD1B7CB6255F4B67325A456C069CB52B905EB491835D92452D0781CB7E656 -72DD43D6D3762E0FFEF0F1C8D63163631A71A2963D9617F96A0C984B7FDDB933456055829138 -6CFD35E9736A942C7AFEA53E1E4937A5AD56E66E88E9A8AD46C70349173AB81DE285A54855B4 -16DF01D8CAF03615014386AAA4C94903D6005DBABEF8F9BF283894FA8C71284293E436605856 -D3C4C7859978286B021F0F696F43A1EE8F810E15C7882EDAF03C5B574BA492AC5633BEEEA3F6 -5B521F12FD11CA4ED32D0B666253CA496DAA243108947445C55CEE5252335E6C43FC5FAE3524 -4E811F81009F514442DA21DA2B4E9608BE8D594520B1062A8AE3ED07D00F031D443D14126998 -92DA2B252299EEB4D9EA8FF3B9D785B4E490DD6EEFD55A77BD924AD6C289734DE20F59885194 -050BA0A60182952CB292C18BBD65B784C913C0DD1E131A31AAF2C4892C664EC5BF16E712D342 -25079AB4361F4C7AFA56E499CB6CCD1FBDAD41B89F66A8A82AD7963EBBF5B19F8352241C0B5D -F1E13343A4955B47E88DED9E0757651AD5D059EA86CE7DB05F95BFA92DB1D1F511AB1018AAFE -3BDC4CD6379D797B1E7654E5B772BB6C910C7C405D0264CB1275D49937C3005744092E5BB3C8 -B40CB98F3BEB519AC3D3AB76202AF6E08D0D43DC379E2583342D33C3323A5B696759DBBF1B85 -F638403A43113787B0A5E4F988123EC6EB768F4A745FDB4FA0DA70D2F610E6AE1CCE290C5FFB -6C4FCBE5520B43C36E5F966F4355E7D67662B4DDEA480E0FEF650C65A0F0660B608A61C623DE -59F75FCD9E5F47BDB5800E2A49446F0B142677694F3E8BA4257378FD9FA8C8A572C6A8EAFED7 -9325804D4993FC0A513CA992F8D4A8305C2394D026DEF0262D173D150B2C662B9B9C6BA7CB2D -04CA83B136F9162C42EF686AD2A31F40066937D6A04ECBF632F1DDEE29F414DAF945E0FADF1A -231752FE7500E57FB0E22622FDF22E756DE999948162DF7B9BCB4587499613B6331E03B79723 -09490642DE2EC4F72A1895DECE59BC117ECC2717AAE37EB52F1167965FAF5101AF2BC1C31CD3 -DD17596937BF73D697F59A11000FC8FF94912DAB48134B39567817D9419FD0D3B231297D1723 -331EF3C334582CC012A78CFF55FB19132D91A74353632270986AE645B8F5C0584564EB8C71A6 -E5FAA52AB96FBB210571BF6C1A2EA223EBC7AED8FDE47AF489A429BCEF68407F3399A882A567 -E70B4FC69AB47D6C05097DEB3D912CF1591C6B82CB6FEB1F72C135A4CEDA64C4AFC62DC84C2A -ED0B31D0EF7F8962DFE28D7E3A91314BDEFD9FA692422529A6679F184537FA92BE3E429C289E -9A1834F07117A0E7F1F4FE6862870165A43BB9E430ED07FAEBBEE0469EC79F9F539CE25DF296 -5963D2268A0ACD1FD54BEEE6AB200D52EE7CA4D49A747530252164D6EF5430E4E0242EDDE595 -5C5FE7E3837CAC40ED2A6FA8F9801F9986471EB57E1F38CB3A82A382741B4ED3A575C4967186 -E99D2C3C121B4C91C8D50B26CB97BE9AB4BB224BDCB7135145914B06C9DE48DC53A69CB4308A -5491627279AB90AB26F6E14DBF51AB0E4A9BEA64F916F1643A10BD91FD365F8B774E79A8383E -3D5D5595A92A79120EEB341213BBE6EE21957F6D46E654B9FF6CF65EE8DCFB710E326DCD9A48 -812096D3602D5C2037033B284F266A229CB1641405594DE3ED1FB6DDB1496EA0598E131D2C58 -60474F78CF937F03C5D1CC29170D33A7F68B8BD1A601423002DD3106620E6D8C423F7AC7682F -C2F4D97189EBC2B19E7DB5ADCBA62D17A0D4A7A1D4B3E727687EB9638498547058815EE958DD -81DD937AD19B1492D773090B1324F18741EED75C8CEA47A75119435FE806E82F214852505081 -F02B43ED1BC67FC4D1F5A6686665035B3612CC4E166A646A786A7B0BBC54030252338E496929 -B6A54AD47CA90CC54AE1AC275E523982ECEF5FBB741D00B65981667FE2453FE3750EBDE33B30 -E9540172CA5D94982EE1E99379D6CE06F82B65C423AA95CE42CB0730C80AEEA34CCC827AE92F -AD3D38D19B5966A48184F1182A47397C12475058E3CD011D0F0CE4DC30ECCA87406A1F1D6998 -93163D8D8E604D0B987F8586F4B746C38D4BBAC2257D0D6844B31D532F66F380438844D45AE8 -31226DF075EE6CD391A2DAF954BCD4E03E9981F829B0965AD78EBE8D41CFF2ACEE386DFC8037 -958959BA8B872A7DCA0964DEC6A7459D4206DAE3ED201031DB2EA02819D3C12DE56CEC8F9A85 -8BA6B0FEFF091F827AD6FC5F117904B0DCA0AA3173FA49C62BA5A5CADB35F6487801660CFF3F -D476819B149294EA953DAE6A4D55F9D3AAEDBEF13159794E128AB0B557CE775D0429E4D4B7ED -D061CA689AE0745A19658E04C2CD5DAB627F801B16A4BABF2F8BF2EA218916F82F288104717A -F149BBBAB11637311236B540A9FD344852C8384B87FECF7D233F8E7D0B88AB11EE92991FBBDD -ECDE4765C999D2C4EF8913C1BA706FD995B05199361E754E486963BC9CD80DB42EB766C43EA8 -EFE81CCD0BD8B5523CBE7CE1A709AFA648817ACD9AF2985E285DD9DEE2A4E0C77B13BB59F689 -9BBAF1038D5A0660B358015381B30731415AA81E601F8462C7F80D1171D0F9FDECA392AEFE4A -828DCDDFA642174AD8C48CD6F3ED28A25DDB0F768C5ED07364011A5DABA61BA49AA10A71A260 -AAA7D5DDAA898831B388B738A836529A8F7A123C89D9E36B65DDC7723843DF8F6EF79D8C7CFC -3DEF3B8AD39B3E4EE0F127100EFA9AD45829598DF39441855FBBF98D82008A7B64AF0A919051 -B5F4002D7B3E4778ED61B9B4A0BB41A1E212E94D9244154C459D9FEA7D250F6A789D944B0741 -35F16C063ECE58708EBB2A2B286A71824017C08139CF73320F32127B2633140570A13420256D -BA85988640CDE5AA4A2448CDBF277D74115B22A1380C54D02FB55DC394F720B75E4D7BF4799F -06D7A9742B09E13A1D9F9CE503B5666A480E6781DD2AC4273925E4733FD17B219B1AF8049B7A -F1D37327A28311208158CF2EFCFFC0F10D731E60C19D08AC9C16F39FB896F5B432D5463F7F42 -75F6ECE30944D74888511C34BAC3ACAB64C7116AD6112ECA722456734A2D016A3F2B41D60A4A -97818C16224A70ECD13CD6CE5AF85C2FD5460C3ADEA16A3D222752729BAFAE276072CB3A3A0E -653458ECB394763865162146F58B4259676F8B661E90CAFE3ED0836D626266D173FBB4B4B4DC -6E2A0C02381114A761189F3C2B6436F6E437590BF7075AFAF72A5E1DDA9F6C669965C39D3134 -6CC638D2C3C32B415E13BAD72C3EC9E458FFD5916E902DF3C0772DBD300126E3366CD16105E6 -9C676DA925A2B9219284D91DA3BD49A7EE70E9035F12399AE9693AB539E16AFD38956234C19F -733625FC6FE892E4C2476717C6A77397FB210D86C97EBAC165F81B1E9130A49529F728E31C96 -5BF2615123BDD600E8C775366F1A60C239FD3649D435E03538FC0CD4D5855E3FDE83BC432632 -AB3CCE1DA14B6133155383EF6400CDE665C7DF79FBCC7A4425EDDA2704AF53CFBEA2046A6004 -C94DE7AD2DBAB0B421E63B4A5F8157CA9AB9528E8464E6B8A2FA8B5BDD20FFCD0FC6A5714706 -9194E00376740082F1317E62C5E23A4D6862F0EEA28BA7D1476F609C27A9147FA8C3468A4947 -C8802818BAAF5D4F33C9E918A89FC415A0BA6147E6650E09640E1A5D2EC97518BF39E8864C49 -65ED91E251C9B90166977C9390ABCF5429F216CCC8688BC3CCABD5C3EE7287DF9D4F0170546E -37FD69981864FDB30C5A3EFA3BF27EA7857D8237FE07171056BCD399B2CB1BE4EE0E1809D304 -2B7CC8E67D9464402EF4A7BA2612F343F5EB6FD5F7DCD112AA701B8DE9E2F17118842C898580 -1FE8179FA6618A09D9A01862A2AD4D40E8251B828B5BCA97C812F95A342E23C186DEA3A96154 -096BDADC299C1DACE3EB09ACA94CB2B7F3EB519B7C209007D9B80347E971D8C02C24E2162E8B -EA9275E4F1DB6DA1915D4634FFFAC353D691D7781A15EEC3D66BBCB322FC0E5E2C57F8D74699 -1808645E015E0632F38ED8605BABA3AC007CADF7984F8A0763A9D322E2ADE5F56A56294C4ADF -C4F456C93D7FA41CE8496C3CD1266992C9E60B128C7AA2C5C67C49B2D16F3CA00B86C57DEF55 -F8D06628A0DBBD11D9ECAF2A50FFE89869F929FF5CA0B91186D308E107EB2BEAB7480E40C62C -01E1BDBEAF62F00E36C57355479178F345B1EB3B7E87807B32F8AA06F288848338E43DB2E6D2 -EC92513659D3D113CA288DC767537CFC71092878E139B28407B56E33EB79B1D46C9F1196EF10 -AADCFFE5D16393E3A6C5869C39C925650D8A62496EAB5C67EA1FFA3C85932525DED921D6AB2E -B62CE8DAA2F4381657E2F0F053DDCB0DA23B418FF169EE4D6392B3EEF70A777E892F5B7B20AB -83F907C8014CE6EE9C2FA010D4F11307135A11CD8C2E0F6EA93DD9F0EF162FA24EB17C99F375 -C65348E415F460780114F9B8AE5DC1DC1215163B15A17F811E308916514EE8A0596D3C962339 -6E5689F57D0AAA9E205C7C32C2724172E4F8F04F60FB89D5A9EEAC9E36EC07C05050A3E0FC13 -5DC4C6B5CD8170E91DF79604744B30A2CD3DEB4B3A98274659361D233CED47B79BE91245C85D -E0838FB8478B1B678A8B20552F93E3FFFC77BC547B588C74F9C22D546203219903AAB916EADE -4D598287D5145728C12387DDC05CBB7F4138AEE81EDFD8C7A0CD6BF9BEFE017F4148FB0A1218 -F2750AC532E975687D8908F985795BEB142DF493FF926171B0E25FC71A7437940A7A2192F9A8 -F216FF2692C23A0807EC188D449C867D7B28D6D9FF15957194ECD03E78CBB9963A0E6CA8AEDC -E35163AE9A0805A1D9494A5D71F7F951F199375ED5B4BEFD88CA1A2FE45A37211C866ADA6842 -53B00B122A6F0613609A399DCB43E5A857C0E850A953303447EC30AC83DF6D4E53F9912D53ED -ED956660DD356A02B9E177CC9360EA48F10601E067D8283DD1AF6ED132A2873ACDC2B3039B29 -8C9D8BE918437C74889741A2D0A398F1BDB9AC7526DA3686A7C2425A36CF9DAE0FED314A80C4 -D80AD24605A8892F1E20B401F3A783BF474B6BB3FC9B0D3049E24B9333867CEF9C81060EB6E4 -442F00A41A4FE88655F94A940B34183F088ED7A1FC7CC863D116D3B956AA065922DC674CDD36 -AB998F1B0C313619AA4520C8614D4FB1125CB75850283A44B1EB69C07BCB9DCA47E2A97CC920 -F95A82E581DF07C3AAC37DFCFD05135054717CCAAF6D21D0E35BFED91C2D4250D3FA4115947A -C4164A80A4DAECE90B15EEE9289568800EC50781674DE8F7C00C0F17D72C03B8F77919CD5827 -33B90F83FA43F8CEF4513A5FFE86C500FEC4C4F9E32DAB05B4FFB0432DF191F731A9D3463C43 -12EA23A04F6D5B1A61944494AAA1B82268A3E87FEF0AAC3368C061A2D99F8C01DF71FBE3AFE0 -E3AF28807251F21C60C2D90B32CA25B859365D6B2B5CF07A9CA496B034396FA9A62D337FCD12 -8CF0D17CBEBC1508FBCE413C07CC76DDB6065CE54C6780B73D1C80C1C39BD569C07458F8BA54 -D931B5A817AEBB5776E9526B66BC38B0CC969919E9F91AACB192B5ED4AFA254FF6C5B74331B0 -27B86937D0CBF2548A4234FC70CC583D93547D80CEBA78482305BB4B41E36C675B171F8128AC -F24B5653E17486BDD41AC562AEDAABEF4AF432E653D414E66D4D6D96E18411BE5683EC4FF273 -07585A40EBE145D69CFDF430F8365C103728D370FBB4808D45C0391B68AEBE055C6C66BEBD1F -6A6B725818FE8B59E24FE4A96A8CFA6D30120231799FD9C1D86BA34911BC3B14855A0B2A724D -F5D392965EEFEB5B0FD7EC8A333BD4B6D33D71003681B4A816B5DB8475241B9A4B4971ADB498 -37FDE6E78E5413D9584C93C10FD7BE8D70FACEF356BDDD8BAB3A21534319E195268F9BAF756C -FC17BBEF95108334977EFF3BFC9E46172907F861ADDA6641747F70CA9DF38E72247B1B1FAE69 -BBBB8DCF7D8EA7CFD6D7751BC88C67B14D53270F16B082A028299D3D1BAFB1C8042754FA8DA6 -1C034EDDA896D6075C40EF8D4C06ADFD140853F2198AFB70CAC3EB9982CEB1FEB0CDEE2AB494 -EB9595B5C918F0139932876FF0F13AE6977B58FB6FA47D6F8501CEBD4666ED5BA410F144846F -BBBD1DA827F84025A2AE5F9CB69101F8EFAA980AFDE0B49CAA9C5F0090BF47DE6BF40C68A293 -E45BC33ED9222E7494D4D5CEF267CDDA36431BC8BD41341AEB9AB78F25AC668D4D9D531EECCC -7031C60418D244656DBCABD7D2EA53509E0DB01679962FEF31D014A75072611DD2F9BC3E27E7 -87C1F791F74904C7106B6F889A79DE4E770540F478500F9AB17D6D7D312A06023ED8805EA5F7 -4A9F4CEF09345077C2D444D224D25273FEE4DA617FBEB1868539CE185F8250A9AC16CC84825B -30917F04AB981658CA931F566369408B6673D4456000FC3AF3DDB0E876D4AD06B836D86A0F83 -CD92467E3644DFA6D249F9A5AC91CF2523BFA3EE0BB5FF59A426B4E67FD46E6CC60C10267BE0 -C0A73FB423A2A9CD97D086040B22F37E8FEBD4985C5DA5E0CBAE7B47599AC2B8E6C85C8F1042 -D40A26EB05160829F25210BEED9B500C95D136DB49459A36D8F643413CAA66AFA724C97B42F6 -4F1622F080E8B157F86990D94315B8BB9BE14305543BAF5C0E25FBC45CE084579B7B8B5BE131 -A497EAA3C0D3C520C592414DE7150CDE2E86DCE859F1F48AC0C435151157A495AD42B58BF385 -D344244F2D3FFBC6069C745055BE798D7F27093E1BBFCA3FB5185A44629DE29DFCAC798130C0 -3D212332EBAC7D4168B416C54A57DC04B208AADFF22C3D0529A466C6A310A8EDA384F92528EB -B5E1D86F96101A3FB9F6E2B1BDFC7000C04BC915C63F74E0B0530491D6653A75931986234E88 -77B6E206A4816DE5C947140AC48BA980CAE0C2175CAD88700F28B27A49A1735FF5CD8B8B2828 -23639083B082EEED8AB079C134236C306ECA151A7994261CD73A8484BEDF8191BAD858B491B0 -E9943D9E04323C65C3D953D33B634B025456F1B85F57673C6CE0154E162771496130ECF3D679 -37717F6D3C7CA05538016F8BA6AD48DE3BA2B153BCC4EE3500EC9AF99CC01891CBB50FCD4FC6 -91C48725310436E69D55F6A49B243AC3804A95D9212D9EA02F6C2264246F311A334984011081 -7EE2E669380251066EC237CE4E2E123AC89F962D2204FBB9856CC55D2B72AC67ED0A08BB6271 -67D4E375EC8EF90B570921B314C8B2A035BFA7760365EA0439E437091723377A30F5859DBD60 -261D1B1A75AE2FD8888B217EE4D5CEE7ECD6DEE6E3D1420E4B71561F7DD01B0793031FC95853 -667F27D8855EEABBA4CF4AE67666C578ABD872D4747775D5CDEB55A02C8DCF38067456BEEE0F -10AFD66B521A81B0712EB987DD429C77A1557B6107790BE7B3C7F55A79074CCB8F38923B7507 -D06CE99A2CBEBFE9D7C5C32796145E4AEF1E3AE83A5CA481531D552BFF0C456200949A01730A -586032C8CB48DA6611E0ED9DE04AC36F1660F59683973385C00C78CF675D5C5962381487EE82 -799CF60EF340B2A3275BFD4D5D2122AF19FBE59DAD06E735E446D77747101A53E329A14EAD28 -B99B7630E7188B1F967A0B57292667580D6E121EA1D925C931FD4B42C3ABBFFECE5096ABE807 -EC5B9C43CCC10B724110B2616D472063288C0E250E569220035EEEA8043A05044A6B0D010D9B -3294282F81CDC0EFFC4F500C6D063E85E7BE4B10FD2C50D3DC8AC54BF0EA6865520401E683CB -3270762C94158FAC11D76E7D12FC78BB19BE08FB8C4BD04036408E337BF3FDBFF6AD0E57D845 -92ECAC5FBDD22ADDC8B4AAE9F22395300F618A5A5725E20047A0DE229C58BFF5C6870BE44580 -2A30AF4A6CA65BA502F6F1BC4B458DE1B7088A802E49EDA9528B7D0FEB561DF949C0A25E71B4 -15D56572FAEC8EAFF09F46B07A44978A47F7B7687F1681D10357522D034415E16EBDA5DECB57 -489581725E961D50F182C685EE3FB037B16C389B678E80BF9C6B27CC903C31ACD77120454427 -70ADA3FE7C6785ECE0C669C0324AA872B4C25CCF3AF3E0E78AB29C3C642DDC44F579E5ED4FF6 -AAB873B8AC7D73710EADDC2F494175254B7AC925BB0C4EE70CAB7CADBF1D2497AA6F290B64EC -7551DC7CAECFC0B5312BFD58FCD53D79F1BAAC6AE3D5E4B896D55B67838F1E5848E0D9321ECA -275A78A6F00A223D81DFA4D891DD3CA40653DA235D8FC48C9A9E4F56B7C1F6C10B3AFF870DAD -B47855776E4F08DCC7F5875B7E8EDCB96295B106F4E0AF2AF7C74DB79AAB01C44E39621C8992 -7735A9246458336C5E9F60656D2F757B0D2DE6322DE7913C696053D24D324EC40C52F28AA677 -A758602DCA751548BE122F6184FEAABF7AFFCDE3DC72DFFBE3A69D52F7A89709DB8D05DF6DA2 -031F43AB54200A68082FF8F4887E6072993BF21DA939357274C9D7D30071F88C65F64B55DCDC -0C208AD152E12301DE3D182B3C59F62327FEA224A8DDB1867944ABCAD0CECDBC529D68C600B0 -AB0281C7CD4FB6C236C2D1561EBCBF76153BDF424079B9A63449D4A4531B4A5BDFBDD70EF02E -74535DE3A881F2584C994060D3830079EFF3FCA2597119A8BD560E2A0F766F7A34A7A38E581D -451502B960833117458ACCC70E6BBC2729AECC6EF2A381A23AF14507B9DC46A3E01092F58CA9 -1A32DA58C8F8353805CB193A579FF281B1F80CD4AB9DDFA8917DAF3B7394C095E9455FFE82B7 -E0A62AA476754554AA899ECE4676D8FFF0C052697AFC316CA7D759A04AB1D16532042FF511C1 -3B5375020E585573843100B9B393D1EF2FE83E5612BFCDE5DBF02B1C6E2E3603C6699C945FD9 -36A308F9CB848EE27AF90816C74A04EB3F5AF5E709FE39375EA168DBD9D6D373C2F07FF1B23B -6B229E946DD3F3357C59BB36E3DA08CB393A774D51CD1EA98C6A8E3FEFCD91E73A8C29E13266 -015022CD238B8803FFFE86F2385804482D69A32FE00826B91F8AE433C390470E429A1E519A89 -249092C034880FCC9B7842A4773565D5E85622B48BEC7A7969E876A734F2E4721E7B00F12B54 -240271CB90ECCC4A8FCD3ACC281060B631FC664D5712E7D033481A596FE40B34CB9E4779A061 -895D589C15E8EFFBA3F8F8EFA4DFDC4FFA503309B3B6DE0C9375D34A0D935F6B0843C2396991 -DB0BD48AD40D86347AB46F22A5757C018B22460487D750D41CCF2ADFF0F69FF58053C4DB6C6C -05CD54B4B48A9E303143A08BD94320ACE9747BDAF8A7AC4497140FC17164E765412D6B283701 -96094CE86EAC79D2CDC86867B0DC3013276FF8C5818E06D8B68DD43DB1BC2E1EBC7901DE2D4A -92B34FFB6273EF4F2F555B7C7B4CD43E39B585AF30DF0562BABC058C24D5D392F549B008BDF3 -0CBDA7FFD3E6B907D66CDBC8EE920594F59DA6E559623743B18B3AC6A767639E6310CBBC224F -848C9A8EB0E5E7ADDE1D278201E41535A2D3BC2451CBE90388D0E850B1508355BF09E4AF235F -3E6AB79D37E3F45266A140F8CE86010703B12C83C96764C49035A598526902EC3B78F9A27342 -A228E03D6DF9EA75377B2236A8161C8CEA3F4BA5CF2AB9CA2F752217456ADD3744A150812B1A -2945D4D0844E99555AF8C2ECCCB520E860D804606B3EB39D7B94585763AEF1605D4EC74FA824 -FCE3E8E6A260B9E2497F309950D176CFAA1DB29FF2B07D41C3BF950163D7CAB48193F8409ACD -EA18CD34F29587844E51DFDFA9E7A2685A2D50A6687B6002D0CAECFA3C630E680231D1DD4E8E -388B4525C059BA9E56A8C015E69943541462502E495A63054BDF88B4442935A25C8F20888ADB -6E60D95C8552B012BAF65631F2611B71E03182C7D4D4C82918B4AF222BE87C410781C0E2F751 -C66C698C6A322C7FB4E132E9A3ABB876956178A040AA9479A6521CD82869C95C5FC36B0CA384 -92564DE4458D8791042B08C8F8F334A6922F729CC0DD65FDB6F839AE8FA148BCB1A60F334986 -7BAF910777E8471764F853DD43333BD19389E53EBD82BE564B78FC26D156A143A4F0E10031A8 -D1516E187F1A58D1DB48A995FE6B5F5B219107044E251F1E0E6296FA1320FC75C05996D7A7E5 -388F817F4CFDEDBF821D3BCBA03F21E20D34876026730D9194157CC362403213CC16C285E68C -DF86B0F61A2D47BE23CF733115F380212B175BE5C8B473F37EB03C19852FD358A09E9B1E9E31 -10AA29AD9C0C233DFE8180D5913A5636E05A6BB92B4474F0D2C4B2F7FACB2C2EEEFFB4B6326D -36D2A8F75F6BCDBA56B07ACC44B3E95721AFD3D448CE5EA5314DD35649C39BD215418F8F3868 -A522C2BD867927BDBA4377CF1237B791474B44A682A6169507C03C0FEFB4C25AFADDCBC6184D -456A2E44D5A4CD6503ADE51BD029AD1014F6D047A28D7BDC0E14F9E71069B401D15263E4AE45 -58AB237CB7FF91E96E16E63352BCD74B81BCD1A50C0447AE76544806B5126F0AE6E904775DCE -803F7BBEC29D5A2A1B98CA8901ACBAF3D08A16822E96281CB22A04A78E4DD1257A52E172F2AA -6CAB70622ACD3355DA68DACF11DB4D16C378486622F33D08CF1F35533A5243FDE12EA8910C5D -B3BE274329503A6962BE53CF60DED6A7CDACAAC5BFBF9920774E92CCEC6F5289687960E42277 -7A6ED1E14919D6DDB11E73D13BAD176C7E80A34A39478DF5C2A07626C39E8BB4F54ED455719B -720CEA814A038F46896C6025FF5E744C2E6E830A1966F882BB06CB7EB370173C99C6ABEE8F8F -8540491CBEC243F5AF827FF789A9DC26E7F160BE9B8F6FA6AFC33023E698F29238519256587D -CE09831AABFABFDA761053D0332AD0394666C36352EF250EF21EF1F1FA18B2918E5DCF2CB7DE -1502C590DFD694588CA76BE8F1C00711C5F0656BB83E5867EB79945E61C3A8D6B88EFB1AA33A -6E6A23A1B539D715172915FE3D8277F8865F177CF9B3503E812D919B3AA7A238F4D182F68418 -61B26E4DDB5396D956024A95F655560FA34336898FC07D021FE9EF11DD5EC50E6E1BCF82ADA4 -85B3851C393969C1E00248657BEC3F077A91027E9AD95E195A0D61A2E5CFC7A511E07FD56E82 -8D526EB3FBD6261D04EA21ED82FCC7CA4570B6ACF2E3AFC96D9732EA9F3DC417662BD0031AF0 -9697D281DD4B0802BAAA46988C643AF7E5ECABED3AF561947F21422FAEDABAFB506E033A5F0F -A4C51DB720DA032A1214F29316D3134B39DC8ED2AC63E15A99FD690BDB5AEAB767938D6C4B8B -429CFB306887E546C6E433A5C571143C28BF051A1FB84D77F45500DD1B23B0B71C1533B55697 -03FF2492ECD353AAA40F9D0477DE9DF7038E57EDC64CDFFB4FE6637C7CEEC38D46AA53308F5F -0E7EEC36924BF5EA6D550CEFD20CF0DD443AC3F8B990E3219C0884622820514D8A82560BF8BA -514578A9B66E762B272692698437EB55AD3DD894AE6492AC964FFB5EE4003BDCB461DCCD1DF7 -BB48FDD4C21CAA97000EA5ABFA32956D534140DC7CBC3E9D1FD0B09D2AA16CCE736190FB6837 -E0FD1F0E233489AB2686C833AAA8AC9CA8A2A341D635E088D03FBCA5338E355BE751CADC6AEA -AE63DC304598AB6EC8280A0A1329A5147181278C9B95276570D9E1F4D34E65F9AA64DD5FA42D -7D68C9786C353F7A8BC8C52CC83E0EC142596760AE19806583AEAC53E092714E5B993D63F468 -5AE1C96EAD46551A491E88873EBAC17F08B20FD491BDBDB2618F005DB0B1D2EAA08892EB1737 -BC41A07883A039477FB8E964CF7FDBAC19E337AFE196B39FEEB6251D192423F59B5D746C9907 -75AC9C99E9357146B471316E6BAA0EC6F0433604D296D80D26BC238D9FCBA1D3197E5D173519 -A57A443B38D021AFBC7C54A6BA7C269453AFFDE6E5FD8C4CB0BE97DE72696C5633902EEB5215 -303663C12997AF415D102A214B85D77EA7DDA3CBE5BDF0A12CB331939518FA04D3DFCB7288C5 -E340FD74E00419DD0FF5267556DC5DAFCD6C641903C722D23D500A2D598C2FBBFAE3D6264192 -3B2777D8EB0D81D4BC53537BC3A84C4FC3FFDFA9194C81EE91DD7A7419DF0E5DA49DA910C5E8 -3E35AFA61BED02F3CB646B0999841CAF55A17956449CB25BED26054FA9500A357AF042061CB5 -F32414F1C9EA556441CC085A1D6AE3A6540391369FA51DB16DF2C61F0FD1558D5FD4052A63D4 -EAF330147B0E9C774B4894607B40A760273B1B89353ADC110B54067F8867A1903F87BD270F06 -5E322B027F60D855ABC6EB40F17D222115B7FE10C2E140F2B477D3A3D0A11391698E3C35BF1A -469C9068A0A63073F8A94654DA2B1019A61B3949CA2984A12EB434BA43583840058B774506D3 -666BE8CDDAF08B5F99CD7C64AFFF75C164CEC467C70CECF1595D4D01470ADE2E034B37062D4E -72EAF6BAE7C63A03D6D85A16A34CA5C3E1C34257DEBCE2D8F55D746258CE208BD67BABD08E40 -ECB20C59BD4E050A0A9D849B2EB2F1C874A512E70B7E179E0CB46FE1ACB5825762666A783AF5 -669FEA5B02415A7901CB0BDED57E552FC1D470F59679B21A56F82E333B7756EABBAFBA4A4D0C -042E97EF46C3F71B75B305B468CEE59FBB2BA20B49FFCE08D0C28C920433BA739B98DCD09CE7 -CD7FB24D832444B9B6821F31DB2754D497F63B7D6BC7C75DA9328CCB88E4DA7CB28B4B213D5B -8FCA4AE99A5DCD28068DA3795FF110150E01AEB5E252CA2C0B5AAE2490AB711440623568507B -4DF99A6D44C572C5871572CB8FF8154CC3B9AE7592597DDFE684AB44AB069FB8D8680057E70D -A41753E94E0FCC13496DC82F3A6B9272CDC133C01BA998FDF43D266DFFA3E06141C6836D6DF5 -ADA89EFB59DEF1A68FAB510DA56BD1C0B23A8C20B340AA0278B98179A46212E4564011A879F9 -DDC6DBA0343B89517DB07F7125A0FF6D37D6380F7DC8E0FC2D6C535D6A9ED0D4214E79FE2ABA -30F38D041AB79FEC0786B844444EA81C4E7BA8475AA181EEE935766E8FD444FABB0A3238D14A -D899E01B2C14C4EFC724A236EBB6EE7E53C61992DC103654601334CAEF87C8AAE864BAEDA97E -6820FE907B4640D51D0DEB0C7D98EB67CE311F5A4F25A4FA066C7D13664BE53D1DD66AD2F832 -9F8BCA5B22C213E6D20EF2A73625651047878FE7077851DA70CFA24D4FFEF3A8009E7D6E08D3 -CA2112801EDBFEAF0B94DDA65C2130903991EFBA7E9F1692A2FC63C1885E52B4B31C0AEA192E -8608A4289DA6DCA485DEE2FBEFCF4F0336DE035B9F65775F3BFF4C2C49E3055BCCF0A4F3FD17 -60524B0754D89CABB15D9E57AFB93D3FA164426713911981D0D2979F0EFB0569459F701A0742 -67D43656386F7D1A95A9BCF9F4682761839B600846C81DBD197C83838AB9EBBA8323463865BC -30EC1B99F4FE299ECD4453509A5C814E6C996676E025DE9FAFFD0B6C3C0914ABFEC436B65092 -6F48672FD2D21EB2F8EEC64DB45B8D8C6AA3AA4E9C41777797D7497190E2B7144D4E9FCAC863 -9ED74C7B302383DBA2FA646782103B9ABABF85F80F8EE057F9F21A002115B3E21A3B56D10DBF -67F1EF041D9E96F952E4E65281C3D102273FF3D201E7767B34E4FD4CF5E1402C608ABB8D11B0 -7178ACDCD8DE9A2128DBEBF9E2BEC587E0D7BA1A686231A8CD5D99947F4E461E7C091714161B -3906C92A6D5EE5B70783552731AB9CA61E2634BB8E2BA1BC8B49D244FF89F5C2E9286C3467E4 -DD3B35BF9989372416245ADA7378E245C1B10BF57BA8A48DF37FA7E5F60B06561C86CA309CAA -2A8B21F88D1E671C54E429863ADBDEA4D5F26FFD164000B571452DA04877E2900EDDE59A7E78 -2F2DC54686FD124A711C44B6D3DA7CADAF4530B7EF0AF2A14D5ADF316099906847696848DFA4 -CA3D1F8CE2A6BC82630B4B4617170558099C8F46994A8029B417CECBFE5513734425B165AC7C -4DD15155D83FEA6287D3629F535CB0E1A828A195341E314B808604C6587DA28FE318ED8F2658 -BE9D9E2BDDEA3D54628AE2BF64717EF64FB6E1DE3D05BF69DB88275060973DA7570EACAB1345 -862E2921A90EAEC32B92B99E50EC2807F02A135C5E5B643458C53EEFBA587FC951BC477403E6 -8850316845AF4565284B8E902DE262A113234B494977D087C12734874ECC93406E804BDD3655 -8E44D2890A8C6A3F8F5DB0A0D7C14CF8B137B335C5A003424CF45CF4DC0C64B8F71929F99C89 -CE9CF245ED1FB628A989AB04F0A32D0DF7045080F87A9B6049E0E52612375042C579509A0681 -DD6869C904CA95F8B1DE9ED886CCC43A935ABFE8B888745DD6F7AE3F6FBACC0B1230AC9411B9 -0CA884D556543A196C817072E0F089F6D7EE3157BFB82A772F8A675315E12813BDDB5186F415 -B9BF758F2B213B33981E1795DB41AD949032617C15A52927DC7A348B81288BEB59F2186D3629 -A10ECBB8D29581475AF3430C90787ACE611E66D0BD9B41107A5E2BBCB324D893BB606CB48EC1 -E206019D1E96DA890DFD94BE3F663F609F07503C5456571608459B26372DD570DAF13ADF2F4B -DFD0DD9649C545D82458793834AF2DD71E8755F4E58856C5EBE91695252BBA2F12DC5FB7130D -1792ECF6AAA07A7A7B005E668BA7D27F3FD0214AE291DC615221F13413C6EFD2E0421ECB37BD -95ADD58A9D51D086A4D0CA2CC1C7A6FA853F61B8C1ADF6738F9B30CE564F21E9D45A5A55D6FE -FEE27F7C538D375B79EF4311A81B014E31DA276D07E114759EDCD610F82C53F1338949FE483E -94679EDCDC4A6381770C75B71ADEF1CA131F5338E071266D679AB6343E961DD3D71D1AEFB662 -BBCB0F34766BEFA058E02A7C3FFA833DF83BD4C8E0D89CCEACD5E1262B80C93A84675B71AF69 -72357E3C93A7A910AC4508F6C1E260EA1CF03902D3B815DE35E3F30374C476271260E3657194 -F9D63DC984E84C82E550A548967791BCD90E660A978A9DF434B3FE404496481345D9733B8CAD -00C306F0CAF67167EA9C70C5C124124AA10DA6B0FB6B69F1EB328B9753B6CA187905D677C5AB -0FE167EC1BB6A168C1F5D6F9136D24A3E27A49CE8CE96F754644A49643E5481F054CD9E5C645 -C3E7F670DCFFE00C78F15BC705CEF2C8E1A713BEC20E687EBAA5CB7262E8BFC23F26C1BF902B -8206B25AD830B5B8D87CA79F1F6404FFB313386632528ED7B452C11C22EBFAD64306408A0653 -6582ABDB2B2FAD788B4C60AACEC0F0862CBB2FAE618CD8DDA566670FD0B7FA64CE0B7A057025 -57BDA95531B9B500B8C97DE2B2AC3DCC6E0DDD204AD937635F2EAC85347E2ECF35BC951C2066 -A5331FE8B087A8E83B50B08F07A5578BA7BE6D9CA251DFEA9F9597B71E7C078A489BC718E2AE -13E9D8C4310427AE85B9B919912CFA54C91C1D898C066A8961A904A6661105F189646965CBAC -79F00CA699AA58BDE0C424A347FF1C3259C745D3C8B886196F44EFF6455E86F04D17BE7FF0A4 -7F34980F19AAFFDF685AB944733FCD54C50A8A220245E13EDC3C3DFA54B418BAA2153C11CC0D -0C32ECE788C17CA10B149EAD12729C121AC4B7562515D1D721730B10DC9F48193B5C6D6ED5A1 -771AA7F6EE5115BFD4E935A6C2DD7C2320DC3728DE360F99E7AE5F6A8B776E66C15D82C0839E -337F2B490C0C26EAF1EF8968898D31D8C581626CD43322952B450524741148084D9F77557304 -9F5FC47C5AF4678238B0D70EFE8111E1DF0A90B46216ABA8E39B98ADAAD59527888EBCD817E3 -F5E7C71634F94230A6D96261A1496303921F6E8ECD200028A8A0D90A87F957819414A0F3E3E3 -9B08CF32473E9CF53D19D2012791AB857312932F70CBCFAC8CBAE1C883EBD8F90F94D415FB1B -20046A733FAA413D47409F87ECBE4BB0AC162627D6094B58989DDE0A12BBE07A99B5CC61C9EB -26AAF4F6AC89D40F36DEFB38DC9119796305545C4060A12D6773F32903FC20334CDFAC659F35 -95FEF09D2AC80189040D4B3B81257AD821AD3CB784C49BB0F5672C6EF540DE202CC3B45BC7FC -BA494464E81CBF7439D440F6766DC94893231913A82F6378136DC07A0C4B82EF4910846E28BE -EE53E01B9A110AAAB81C3CE3955428A9F4D033E6D362FF75E50067B1F4CF5EC60DA98B318F7D -E2C7AD5EA8C30A9BBA83213FE3A1FD39C29CF224A25798EE6821DD5ACB3AC9171FBF108B2016 -4F2B7D15E26FEB7359F27015787BA53F304D72661B68BFF77B5F91FA541AB4F11232347303D6 -95A2A75C09259B35BED0FF9580B9B5988CB5AC0ED11E118A0080D87109CCAF46218E7E440A3F -320C97496F0C4D8A9F63318753B3067F4022EBB5057CD40A327F29F227D45D0EAE5A15E32926 -A24EF46D9ECAF21983F09EC0185C8FFE0B790A6DD8727BFE8359D472C493781E40EF71BC747C -F60A673DC4CBA688CFE41CCA69C37AA18197CD4F96EB4F049EACDB88F80734E75C65CF1F3BBF -8E2FC4DECA78DBCD7C677F1F39C590D6F7C102346BA945DD8DDDACEE0240E441D68BDE187773 -C66FC65F4ADA28F7C42C11B3E9BC78BE1B42D4D59F0DC73A0471AA8CB4791F0A881D82C7DB8E -C32B2CACC33F3FDB77E0A5B7DD3799CEE2053E9CE624649CE47799752F2BC4A23F0435F72E57 -191774554506DB153EB2D3FCA44B6A435DA6D61FB8E8AAC78C891DED8866A96038D99586DCF5 -0ED62051FB538D23C612B12D07AA6C1024DD73768952FBC7FEC6EEEB21CDCEC1C1913C468B8D -0350AD3E98669D50B1C71D4F28849044AA8B2FA0255D9323C7BBBF6BD48DCFFCC05DCD74CA9C -2F29FEF5B1447C07591CA82CC79F7AE2C57D897216A8DD6FCC2657BF131796BFB358CEB354FC -7374559DE7B4C879CEBACE1FF5C6E821D0BF596F80475AC6AEF1E6080B480E74A6A81CC7B200 -CC9D1BADE2A20FB3B5F9122EFCC99890C5B369BDF64A0645FD36663843D73F126EBFA2B2F87F -6B6D1A481B8CACEEC4F7CC0AF89706E4D944E1A6AC9EF36018BB128197E740D6DEEDFAF1498C -4D2E47FC27E48B0316E856FE21BEB953B2F01C9472517471A5020097CB4494357AB34CCB3A36 -6D89B5E598CEFE58CF293CA963D09009CD1BD479126200C3D342172CFC2451997624AC151B9D -8E137865B557F1C595B34E5D5274D8A05DADAADD33836C3C03BCC3FF9B4FB585FF613DBB94D8 -44A9D7B2D3A913EDDE51E5F4DAF4D43934325EAFB0AF2DE524BA3E5FDD967F8F5287D209B681 -1F9B56B619F0EA0A438976EF6B87C8D3DFF5B228DA82E4D95FE2348ED144C35F28002B7618A6 -AFDE5E871ABCA8F41B4FC3BC1EC0A093BEBA007F9055727AB78E6053777C422E078E60D7CBED -83374D98F8EA106C40293905A264AC2BDC2B676FBD6306BB1D78B4ED63ADBF59061E25862825 -3CD127874EB3A5D3C9B3B3AA506EFAF9456A9C071F08AA753BB312FC4E29054E0DC277D2CACF -2A7321C4D3CF5556DD0F310CF7C13C0E5359EE8C21507D2E8FCA40147D8484E0C002EDDCF81F -5B8ABF4ED9951D550A30B7BA608CC0F86C2B0A0162B6F1881E479009356D51D01E36B464511C -14C1CDBE1A6F78020192AB358E8167879717C15F22E8D7870149E5CB0BE8C73B17C1609BEDCC -70E6DB1EDAA4369BE30AC45F25557EA0D8D31120959DD29B2A224DC173C9937A29C189217365 -B407D07EB62A523B1FB62F0EC8604C03929A7E77B02FBDCFB37018D885F544FBFEB1C1A60DC0 -133BA920B1A70C9A46CD6BB7BE5CB0BDD4D0CEE65EB5DFF23C7BA54F8BA5CD904BEF3F4E17F5 -B430206B2B4C58181BF23A50382B92FC5516A8C154E99201F87E0F4C5C5FCABD48B8F7AF0F68 -68E2A4649454CBD2596C004106EC5C029E3F7233FF4AE296010529F7A4BB37E68307A8F4B239 -987099B95C1EDC550C4A70C55092A7CDEC2F1739FF6513D0F17AF86ED78492C31CE44FBC4C8D -0C58622B50575E7DA87CB4C97C32A0829B669AD037C860D2E20F158CC0E6F4F95DEE851C42B4 -988F48BEE046378408BB16D9FC4AB3AAEF1BB65642A207631C2D8C70DDCC9887C7B2A2C1CA37 -D77E6E5FDD2B138A0E25CA88AD767F4D977F1BEA3EF2EB683C76C9AE55A30F3AA359348F1028 -B96753007CB939A922B4534CAE7B4C618865040E3B1B167F40D66614C92E4A5468C1FE638B40 -B8A431A5F7877852B82D1C1180226FE067DD8BEC98F522695A673D4A42707AB5A49503290B28 -4CB4A541FA6BD8D6675822395C986B23BE34CFF57CB0C0A6037F15EB4904D1C4835D3482AD57 -1EC475FB6DC4FB25A7642CCB0A5EB0B68A0CBA5A470BCCF30571F40066824C330A7B0917B460 -0207B77DD22A4C004E99517814462A49ADABBAE60C11692458D1034D72FC4026AFE313EA24EB -18E62B7645454438BF6E99B67F25298016EF2A822347F72A812984A65BF92AEBCF694C768003 -EFF3E382C7AF5165ABCE4CC66F4A6E182E00EFD65764E3CBA189BB856DE35B5C33F20F02F968 -F360A461087C068B5DDCB0EBE6894649BC305214D9C82B979167FB07143CAD069D6022494F82 -634BDCCAB6BD0C47019CE049A2949A073C6422F1440626A8D8F27ED269B9866C05DEBB5876FC -980B73F237CAFC69BE3A4B466485855233D20CFAA567FFE8CDF580602D82AE4CE3DA53846277 -D067BC2D77937D9AFDD95DEF8B2D573E341F260951F43575ACEFE75F923660CCE5D7CF4AD84F -6CCA09EBA153F174BE91783D2EF3A48B320D8BCDCA178003F2DF97BBF69008A755C962D32273 -92EC701B67C1E5106193AE52DF0A0F984C28A779D437214D5BC82A7DBB94AE07CE9B6C799F97 -B03873263DE76BFDDA368D2178C817B29DD8CA5C5132F822B6DB89CF3ABCC986B8811C4DC60D -8B52A064C212CAB2D04F83B8C06DB1EC7B45426080466A641B32DEA683F50024446B6F410F85 -39D6C79961B38D10BDC3E90B6D86BE999A8BDF2F93D9ABBB0EB3714F567485235589191E4E19 -D61584D9DA998FF784BC5EEB74E54D9BA1B4E1297B17395864F60B047956F3D3B72833A6F8B1 -E09532A3B11F76AB9B7EC3245F9039C1D68F618616BE48BBCCD8CED3249C08CDA7AAF73714F0 -308B0C6FE388275AE6D0108B3B701F45A811D06518026C02CEF5A21875DFB988FDD55D26A837 -951F8B4AD63561C1305CF12998848FFDC39C4337C014D43817786829F81DA6687146599EF058 -61F108C2A8AED806B65CD25E24A9799458AE0258AE80FF931A09A6B3FC9E6A5B4A31E253B8E4 -0DB6D4625BCB5A6176F4F999D8F88A65E96FA6CEFB1D52BB73442B46D4BC0C238AF8FC4C7E8F -287A9E43AE5F04116C5FDAE1277DE359219A68F037293D2C41B7D7908E046F3D06048D2F25DA -2243FFD911C2B56D72EF3E867EA0C2F5E725BA7CF76730B8DF9E3CE8AB9AE3E5A9D013F9049D -C9681359D0752456C02E5D158507071C26D754A2BA8EE96A1F13AC439B6B7B94949E07B10454 -0071A1C0724B3019D672EB283BA5741295CF9EB0691EF944E1D93657DD8E16F134447942FF91 -53FACE782CAC0005E7DA84B3274E22F37AC3FE2A0C84C8D8C058F9AABC44276BD3C1F063DA46 -0D5689DF8597773FB16C5AB0A35D46A0E767182596D9915959AD9F7699F0B5073F56B522BD35 -61B225B97A4237E93FDA1E8ACC3588B7766F812E47FAF3C8F2FA8A93D5948AE4631AE1A28A28 -765435F7244737A2758DBB37F240929B2E9D3E983D8A3D46A9DA4B0679909F1E077E0431D8F9 -A8DE54FC1738B3B5B6B4DDD8F339FCF50B59A4B6CD3E4931F8BF1AE8601E8B337DDA6424E95E -E366D620B7B7B93714E6446BDBA673873A169C3F7D58F62CB64109E985ABCCEB9EAB1D37D85D -93D90E826B4B5C57DC7E5F8C8A13F707260F199C58EF11E61F60C49358E7B079A2FCDA284490 -36E843488B847999445FCD8379291F50FC6E176F676E24602C9B90BFE4B0358997D1F2A9652F -6290221808617B6D81A6342853EA43C8B83EF275F265745EAFBE7A7D4A5D6CED648E8C0A6BCF -6415CD7DCB9BBAE84A92FCE237A009FD7536DC8BE3E114E5BB29A5B9BDE2534B4752BC6D1A83 -C7BBDCC6578EED4CA804EE9D59FF018B97902109939C9AAB744F42C6FA0D7E47B66C94F9029F -D0F224E0F9E9C10A5908E7DC90BB2138F476958A0CD2A3587733AC5EBCFB1727903FD4EA849A -A305EEB4E061C06C8D963A0527093DD7D9AB232546F9F88B850C5024E940E9A5DE9E9A6E787F -0FC5C1A15B46FAA5E4756A2D4B952ACAD64966DA1B0BA75D166E4479EB0B4E1A964EA0666BE8 -7A8FD9E1D8E3C857B926F1C2D0E82AFC9FBCF7ECDFEF6F199223172A7261FD3AFCF54B49A697 -81FEDFC6C501C4EE50CA5E8F199C3884247E21B7CD40250692362A84A63014B339835ACD79C6 -8C97278F48D68533438C59864F89B2CE0C93CC549F4F4E16849C6D83C272AF1CDEBFD65975B2 -1B129E0450330567DD51E08968FE04423D4FFB7D1D4F902ABA21F4C01F23B9811C42B4988F48 -BEE06426CF7C8E184D03677ECB1A276DF9ACD94C31E95BCF3D8347A24FDC7E564FB9D11FBBD8 -2DD3B819913B0E3A3B050ED0FCB57EE7005CC7DF7B9B5823F530554103ACFE356159AA9B85F9 -5C95BEAC324D0097382DAF2F4F160D4471DA9A8D581F5BA89C4E826E905667D4F2BB89AFB9AA -62C6829046F1FD661720BD67056508D7F1618EB58CE32E378C23EC879C4481926A2F3575C7F0 -2C3264E854969E248E00139D87013DF831366A11B7E78E8904C9BF6122548B956AFEE0CB4A3F -2F0EE383F21772FE361B2EBAC612C9EECB33B9714AC09EF85764F70030C0BA32BF26767CC2DB -77DF1961D44C613C07F3B3195E8FC5D235370BB495BD1DFD57F59F0CC88148FF4CE3FF711498 -A985049E9BBF64F7C19CFF81CB25CA68497B17D31A9343E46C61FF85B8E5AE0E308D40397719 -1B38742A6AA3B5C84787A5341F319727A146D32B76154D1D24AFEB30F120F7880306D17F52E4 -6786A0B61CB4E16E956DEF4556C15633BFDE4A158DE1878B599E466B85AD875A89AEBDB4B4B2 -4DADBA3FA1A28DA0874079A9D5F2280CB9257FB3E675CC2A6C25685EB99C4B8792E524012A6E -A10D9C8D74ADE2AB88AA865BE44F38B5A528BE89B2FA4A89EAB331BE1E050D3D388382915662 -DA0EE3BF5848C284C06509D6AC0E4808C8B5FDFCFA9C6CB469A70F5598AD7F924F654ACA0F44 -3FA7AF6632E487FF2D0CDA5AD6C9D0DAF55E535AFCF28B95411221BB0415216724DBF215A33F -AD325667A0B7D58FB1DC0650591D563C50F2C50186EF2F7E4D217C525298FB7AA3F643C77AA5 -26ADF53B533E4AC9B41B36027CC364E74F309C1832CA97763CA2A07F4383D0733CAE974D6DA9 -1D97334780E43BEC2A539C22B5C227042BBCFF3DC2093CA38458412F92004A00554F8AE5412B -DE6F63445465988A6E205AAEDEF0E0EE2062CA0AA29306B0784E1760EC91DC0B2B9B20AAD0B0 -7DE969C1F4D0BD5D94F6E03CEB8B821C1340C866E697AF01893493F176846EBF16C1EF717975 -D0DDFF1D4158540133AACEEE3A21182F43265DDC9BEB01103A5551731DD91AFDFF19C1D881E7 -BCAAD2059632506E851A05388112FC6E1296CE350444D283C4298556098C7EB7DF219D593E65 -3C81ADE6D92049BE0B0DBDB4548574EC069078D99419D46A72C53D33D02AF25DBCE794F56DFD -08B10C9229BB3A443893ADCD100000BC5C4A69C986BEEDCF4C9B02DEFE1886705E6779DE47DC -5359965414572BC17072EA6C9F52E49EF6FB11FC8E80C7DD3AE53D1AA08600D7DB145DD779C7 -FCA8FDD12FFDD933393B3B22E1378D546B31ED161A040FF04AA0DB05BC90A4200A3D88D5D333 -99ADEB7B41EA4C93301B088CAA35E14496AF4F2D8E73FEA5F5AC3B3281978360002EC89761DA -8EEC4FEC0AC6DF373D3650040E493FA18186DEA210C4D251044431D868E7FC22078827F23C27 -AF481135BD82F730E746E9878B4975983406F47AC8BEE735B4E53959132C95934919F24BCCBC -DDA5A4CB302510C29D5599CF21682DD1B4ABBE34548BA12DF219D79F13B0BC62A7C97FE42F26 -234ACCAE6F9DAF5F9AF2BD2D2752692CB76BA99740A0AACB316265786A7917B057F34E1D2DD8 -77E1266449BF1A790001DC04D874EF033AE87B066168EB75730B090876A8E1B7FF22D180E105 -95A04E9F57140E8866E1F2F8DCA67530B90940F45020BD86FA7B6EA85542625AB435D0E5531E -4EDE355B3E81197AE3C0CC3068C9857D5B149DD8C48348A51568A117DFDEDFF28087F4E387C7 -0D499B6FEBE95B1C7E7D465D8008558DA7C1FCF51EFD19B9EB1F4687C6A6C0F12B25772E0785 -4C1481BAFE194F66842BE0BDEB9034EFD17C2A12110959F4871B9FB9D58F13544BFA4AA15019 -8C6638CCB7564C14820B78794542A2EEE17A9014D13613F1354924D3642413C2B5D3FF46AE54 -E811D53408BE85CEAAC9D19AC0E6062E25A581FADB594F623F00C1DBB7C73E21DDAD74D504F7 -0DE2FF188D2A3825371AA9C628F9BEC52B400827C20523DDA19A4B664181C7B6DAC74EDF2A1B -3AE905BDADB2ACCAD15ECF67A2E34FD28938D975EB8637A13A6A18B8CF851876D118140C0761 -C3F93AE3E6AC61E8ABACC36FB9597F4E67820B49B4EDA3ACC2B23AA1BD79F2856E8047A57195 -CF4278F23B70259F0E5A22E163130929C6122ADB2648EDD6DF15BABA76231F6CA85B35EBC308 -945044BDFC4C1B6448674547D9E8AD9EB209EAD3F2D36E08DE2AFA766EF38C5280177BCD5068 -221E90436AFFBB3162F6F24F135E542DCCFB56AD5EEFE42048EDBA31600E03ED85EF5AE91AF4 -F5EA4388A9626C934321ED15D267D2AF759C5FE93254A60856778CB5279C62DE1D8DF5FB4D77 -BCC79B8561756DBEF748A0FF90D1F76E5220165A76312749506F57676B58909B2095EF00A525 -15F34A1EA19F0B7113FD5061E356D6AE3E4113134E170D831368DF2DCD327AD43175A1AA65FB -6E923B2627BF32A59D24B54E71818888AA6043F860D5D548B18C80D07E398A8F5ABFCC4A89E7 -1FC79F316DD65BB820BD239FE4632E693071DB8753515682F9D19998AD07CCC1FCA7EAFF2744 -841466C0128C7577067EAC8C2E85C271BCD8C858038EC445FBAF1BDD954B06CEDC4CF209E4FB -15FCB2C2A56E499F719764BA6B12CDBCB4885B833A6EBE24E9C1FCA5898F8C14441D2A4CD0F3 -08B5C11E8429F0F49EF015089DDAA0BFEE653F64E66C26FC7396984D4CF7A4363B826EA82285 -1532AD525190CA681D2DD8354E2374AA2F1C43F6DDA81D9AEC9093FB14816AE71C2FAC6F0ABE -4C595481EE8E9B4BD9DED896130BA4888F8DD7571FD8B9712A3A89D43801C3ABAB161596EC41 -4C5F869E00BCDE4D275F951305ACC2A2D61D3D7BA4D978369A96AED979FA28FB845E4ACF0505 -458255D067F9951349B9EFD8C1B0327411B8B5FF0343BDC37F9729E777392011755EC88D1531 -811DAEE13D0EF2C62EEFDDCB4DAC085DB8673AC7B3B8F0CD2F1D70A35C821B7D6105A3BDB831 -680CD3F18193C162784F47B13F1A593DFD5820DE22F606ABF1419EB89D5272C475C4C10A4E30 -05ECF3D1DD711FF88A4B57DC39AF18F70A2CCAD011D65037BF9182B23A6F8C55F3CF4D3646CD -B7C0B01839832A85248CECC00781273351B1E11E119A92BF6FA432C719C35E2A4AD6704AC7A5 -D1DCFB05C8DF61901F89A4311520F57BE22F0CFC82E709647FD6E3B79204CE90D98EDCC54E53 -B873B38C0B954615B3FB950A451657ACE6B352A0B859AAEBDD13EF72FA6CE8A6DF6037F420E3 -A6062C3054373619A93136D4E6EA7CB8A6AC43E5A25A6DFE6B95D1519CA6EB7704BACE614753 -257EF888D043C081C795510F5E3C3B3727B7174FBED75E7E21B0687C2D0D1AA2CECF5D426FCE -B8768946E9BEAAC7FCDFD223892A107CC76DAF8E30D8F95DF55A39E1D6A01595FA187523305C -11E261D1C8F9C716AD8B36FA8F91F865749988C576633871F9BC0D403284D04BA5587D11F3C6 -4F462F549199BC5A5E36F27656B422EA951D117CD6221742DFFB8B9C9F6B16562411F7AC2D62 -1A2FB6FDF0D1539D1FCF8903DE802782B1A0D6BDB13FCD020D6E0787EB8338409DFA0BD29BBA -2E8B6B22E0D40ED248BF6D7855B88494317A9E4DA281062F6A96E23CE6EDE27FD1DF74642463 -F8FEB2E62B9F3AF0AAA3BF9A47D294EB49356137CD29AF73DE1461DAEA33A555B50FEC58DC84 -56071F25C6D67F5E70DDA897FE3835AB625ACB7AFE3B82D2B0C5E98471565607F2BE0C973DFC -E3D6736B0C5D43D886BAE7701512E0DD7C4EA50913E6B8F09E3DF658D3A7F7072C94A6A8F757 -53E9E1E929381A9135F995252A00EFDD18E778631D0224C0E0A4EED14C4717948C37B0D9ABCA -8AB2CA8D3902B4684205A941B624AC12A958CE16C7FABC280F87A42153D59EFE757B3D2E03E2 -9F02B64851BF641FE8BBECBD8F27C11D6EFF56C50F4171BD94D2DB7ED4E07C30A09F1E50BB0C -77B951028CEDE232D53CFCE8204A6ED895320F52F871BFF3503F780416880217FB9F93F8EBFA -D77892FF043565922DA1CC2A25785D35E93F9FABE382396B06446689FF7865118CEC657E3D71 -10BDEAAC621003A47551C1F6473704560DC4C767199DFF05C7617E560A714DBC2C1BEA50529A -568F66A77325DC720CAE61ACE1A37698220B27AFFBFE37550B2B506E6DFB9A58BF18255F7F4A -B21B3F60D696346EA83F9282F804AE6AAFDB036C583A7968E39818BF7AFD38162672D78F7875 -1D032A6A2ED084247A0B71B44ECBD5AE01D6BE4D8512CBCD1F33AEC01FB08F7D958DFC5D0BEB -F3F3EE53DB00E93C71C58FFB28ADF1CEFE942CAED1299B2B1B5620DF7A300E7DBA63D532557B -7A014E493303916813947A9E2B67728F4DA6FB29A0C775FC6F49181352F993352A140E236D02 -ECD228C92B6E62A72D9362441C0CEF1714F9F4D989379DF5BB0324D64E065D54A70FFE8E30AF -379A7199C3A287E2BACC0370C17C724C2E43813AA329364319B1855BEC581E071E16E08AF409 -790C5022613655D8D8F257466803DFF2ACF85F3DA08E1AF359308C6547B3031F88BFE99E2AFB -87611CABF9600D202BD90E614D9D782B6A93332FA17BC19839366C2721B834FA2E76D2539F0F -EA9E8C690AF8A1D9390AFB97DEF309CE0A3C302B8D5D28FBE65CB3436005A8D9F8056AF1F23F -C348CAA146ACC37B874A4663D549A401E98BFC01D56205DCE7532B10890ED4CB20933FA67A15 -51E10361B069CE5593207C521F3B2BB797C9D2822DD04E21BD3BC252FB30E92E77F4E85BAABB -742DB8F062E17EE61A5236DD260E14F33062C4897144033B3413A5066684622CE8AF9460FD6D -AAA5BFF4370E6EFC77CE81F4B619298C772391EE3D1F23253E536F122137822270AC3CC63211 -9B31E932783A9310AED12414143D5BE189BBCC3812D5D0E630AC359BB10302BFE8B99CF93B3B -1FCE84BFCECA996717FFFA8146477F8DB1798D9E8D5528484C85CDC2DC2E76D6E4580021F858 -06169215259CE932B9D13E3A9FD729693613D69F1995F1D63089A879C0380FAF749B016BACCA -401F4CDB542E2611F5C060C050F73657FD9348ADF43B2A34ED90E784F41CBF364DEECD123A26 -BB1D0107B4C89425CFC2DCEAAF010ABF3C15BB7254DC13EA44EFA101BC45254D7610BE5A2A08 -2C64A9DFD4204555BD4C45590CD77C270B2451EA7977FCE9C167E691C492560D897883C87077 -CEC321DBEB6B60C8E3602D5031204CF1328C9C4227CAD7009F857CC655AE6CD4A935FF6600A7 -6B82693147BFEEACBE2D711F4EB2E9D1EDE6CEE54FA16103971DB2892407CB302D239CBC83BC -83BA938888EAB9275E8319302058BBF8DF5AB3705B9F35A4C08B0D6668B1D8E8B5CC4BB0FC41 -3CC26AAA9A46C6D4C5B185BDEE74CFA284E24ECB7AA16094FEBE1B41980F1B04EF4F8F210E15 -B1168B757B06DD1D481454A826348A4AD2B5CE5D2382D7FBA0D30CD97832321825A27EAB3E42 -C611F31DE946144D5A0B466F81D28882C0122B8190B927C9618F886EAA7CDACAE95032D56E6D -C108B0DCDB867D5AA476934173E4E78F031C98267B984D4FF153CB666FFF0A7133CCDED47F9D -F18EDAD5B7036163640C3366222D847E04F0C3F48C317BAC8AF1A2B82B68464297748E60CB53 -26A1BB6B9A00EDA4E0B16747E36D925C2CAD2FFC54942631B0F4917BE242D78C8E10A2100D3A -DF037B4918D763697283478486E627CBDC03DB15CC79D529CF49A29030D2803CF1C568D8CA5F -1AB9EEDB1B873C527B02AE7F478967712F6EB18A0E77D42D65D7BE5E015773FA932D21F70EDC -20A905C5F728BCB96E77025BB93648D671467BE7911C2C3503F9042CEA5A4627F81FEAAC67A8 -179B198B61827E01FCD75BE8C29223913CBD5CA0540E56BC54FA5B4A84C6E39EF6C201814E01 -6C617ADB5908B36489BABA19FCC06AD4C1F5C1F812C269A8C8AC7E5A1406E30B42BB57BE3B2D -E60BD88410F55B41EA62706D29873C78CF85F8FD5250E3D1B454A3260F041E5A2DFCC3700295 -A980C1251A21552C8CAE493EB5AAA8A61D179592D1FED156B9FDFDB979E971B5DC85EBA32B44 -8B3B431306E425ED58138DEED7533E295EE14DD6E234A5703337D54F7390AC40B30A3E6859D5 -0B1E0D3C175F764715EF5EF1C662426A823A7D3B4FA4A79ECFF1E139541B1F676D4CDD23BC25 -3CCCADBDB47C8086D7657DC8284488144C6C2A616C249E1355E83BF0A67287F723E6583C1B48 -9CD612DE80B8089AB6335EA9B13FE508961307F9D4562222C36EB862D3CEDECFD5B3AB365698 -F2712E96886AD3194118BE196DCB9A1FF45415201EC6CC499BC77D7D81CCE095F763BD5C485F -D26B098D5FC4D746D6BA5268E0646473C2473962163102B3CC634AA7F7396C8BCF0B389B095B -E7FC2BF97EFD661BA953E05DBCD629BB4D8F04681EC34514D6241CA78E129EB976C3EFE92A44 -B2CEEFFD483085CB8F837AEBA4CA8A1F7439566BA57A38C335ECDB5F9D359B9D280F57AF90B5 -1E293501C4E770C212836B472E61D984F2E38DA01DAD1D0DA4D22D56909164D8794836C3ED15 -EB3D9725A7D143C1B91EA3E814FD16385442A3109EEA2FC0C7F3BB6A0AD0F0A670717A31068F -6A5C589C6272A00555CE9CFDF69B946C6FEB3229EDCD650F7CD50B8D87A605D39A2A54989EB7 -CE1FEC9D3141AC46FEA35B2523700D1B2DE93129AEEEE8B128E7F4BD4C84CD17362F3E3D6926 -359D3037119095D728861BA164FFFB4300BBE12F3E96C5A9BAAB69293EBCD14BE56BF3B14927 -E1BBD5341874FE5CA4ED6912022ED7A505307DEEA144E0A302FC58E58CED0826CAE2F50EF586 -FE01558CA12B909B85549AC1168921D68EE90627313A946D6E77D356C81C7B04436F50763934 -2EECB62FFC50305E89D2D5440788F9DB1EA31AC6BCEDDD431D9E30E5D1B65137A0DFDAED04A8 -DE067CCEC8184779A22F637FE30E6DDC5B53AB5DFB4C10AFB47E04267A4C24E3D4B014CB2FB2 -6B079C0011E3E6523A05C6501947BF194A13097D7C20F841874F87CF2BBA0732BC60DA4805F7 -9B5A3DF518686B8AEB02718597CDA7C92BADFB0DC7341B127DE9FBDEE8E8CC04F19776565C12 -2EAD1E8AAB1F6763CE1F9AEE40E860F7007C92903DFCA3AC93DD39FE1388E450E74F2610133F -EC58D5921B326121F4EA2EF940220BD221A8FB4E0A508F82C0F585E2F833318E0FF0586FD6E2 -0FFA8229BDA3A6B84CC7683B7056EE108FF5B6EC293F943000B5766068F53814FDF2ACB20D2B -232455012AFB9C130A5260E05125CAFDA5C4F5B9B06B6C429484F5A5721F0E8C44D9819CCE5F -13B3C6A8C7BDD2C0756A0AC9F3BF98B0D7F29ADC4B04113DEA1C20263FB8D8F0D4EDD8993963 -6BCE5B7933ECC23BC0784068A53085D2031F1944628EB742C73A478323FF0642B3FF86F596F3 -9458EBEA4DF37D40FEE5DE5685B025310B622F7771DA09AE94C3F9CA763C106D24B1C6890ADB -919BAA169718EF7644FBC904C53B5E6916BFF6B2417DEFBBFE46A1AD8E113A83A675DDC656AA -BF32BA1C003A4D5A6099CFD99B5989CD779946F196ED976AB39A666911A310442CD7E65CED84 -F1072CD70666150E4249078596716DF12B86A66453BDE2727AFFD46F7072F8C905E5FEFA8C37 -03347C1452F36D9349174E5D0BF4C688AA62F617D0C213261494EF3B479D15EF9F3167839F73 -F05EEA73FF73CF0510733BC4E2C358CF53E619CDD8194417D091365326C4E8E7460C19DD6784 -7D66FBAD913752774A8CBBB702A4875FD35F154E08CC3322C484FEF7D623185BB09289ACFC92 -7B885E1FE8AA9CC676C237444EB2BD8919DCC2B4511F4A9573503A536D0477ABEF0C05D0283D -6852E45D3792ED5763ED5959C92CF3CCB81DA37324A083259F623646D8005A77E3A35B7EE5FC -52FC36F7E799AB5EE36B5DFACDB1CBA0CB96D5FA4C438A0EF1219BC0D3FA3B03882821B99490 -A5738D3A5230232C23F6D2EFA9ADABA14F1F61F4BDF3C29F20FAD3520CCF1F23C653459E4899 -65F53305C563A75FDCBB9088903D7AF6E9A79949E9FC0DCCB4C0147C17C4B8F3AD26524DACF9 -A6A1F76D7EDF4B8109DA748A7579C57A13B5FD513FB76936E4393F85F1DE216814A866273208 -349EC5128FCEABC53D93DE84645D7501AED73D109164F016ABB45C90E6D1C7E7EC13C3AB22FB -3F3EF6E119ABAFC82AE5E1D371E28F941A9298F4C7F679BCCBC36993B8EED1F55CDD939B8464 -FC982E84D7B8AA4BAD4768970360E9C99093F9C9F5F2236AAF5104F04339BCFBD129EE748885 -5E9EEDFC10C891BE29E742535DCAF05DBE1618D36EDB5D8F40FB5A547EDC45FF3F4436595051 -7A90197E8F842F99ACF3E8B345070C55E919FABB38EC8CDABB88F027F5F3D8774FA6DC149A82 -E2239BDC1B20C06A301A272094DF3DBF9B227A9A4DD2BE83EF224617620FE776C5D9DC6F5404 -7F2FAE5A3E15EAC83DE6A2D89A4D5E59A4D503F061D3230FD6BED27AB109BE4EFA0EEE9A0F28 -9D131BBA1CEDC02E319A3723EEE98FB84BDADC23B095E487210A85CE4895379B8A7D59708A1D -D94DE02A4AFE3E5BE0166FAE6C0F5706817B1CB2DDD7E68A4799BEE124C8AFE8DDC7D7AFF7D3 -94BFB74B9394F554875E6F83E9914B4D8816D16E62AA0C593D0107798CBA1CC095B463EC888E -530F5D253F94526457087CF9EC76900D9F11637E4A43CFFDF3073E148F6DD82A0AD5A4962EB2 -376D74B43ED747752B9FE62F9FE20AD62A2EE61897D5651D6D61D3A64DCE59D84B3F36829A1E -08FE27C986B64984D472008DF125846277D7854F4DAF1EF7B066D049828F668E671C77402B54 -3C349C4744677E31A24FD761F96B3EA4721F57D980C442F90DC92B981273127D061D413E37FA -8D08D0F473080005BB9007199990343EC253DE8340CB8241400BF43EBE83FC2F7D039FBDF98C -3AE5AF967A79CE311D1EA5B11D01C7D57F1ACE6D26185D47666C13429DA58B48537125719B3F -B91FC3F7297A5BD924C34C87FE0D007E31C06871D5FC0D1CEB088C4C1F5C721975597B106C82 -18AF965069C536CE44A458C5F5EF16A5C32C039E91269DDCD6172656DF94F9E3A088D25FD071 -6D3A105021076517BB350AA163E3C5C8EF5AA0F3506F4C6BFE34C363182D687F1689A3A8A15C -5A989F8373AF8079027FB7E8A703B38F0C163F89FE695E5753FD9FD572A62318A76D55CFA811 -2CC3D7D5C0842643A4D5E322758E66ED28F0404B1CA2AC3168613B6643C2052364207431C0D4 -9A0E6B9A248C7D4BE9E3DBFC08C4FFD3FC569EC96350174ABF893DA2A0E9D40A8D64792C31E0 -F54E95188025B6333EAFF3DDA8C2999422C9CB849752D8692D10E1910AB2D0645E92A9B210F9 -1118D1BD0A87283D69B232E5F9B76927824B667D5F4F42179FCDC67A1F77D0336E3BE2E86731 -E7DD2E22A4858E7E644B02ADAFF107906A298E4315CD0D53AD4267F477F99B127B76A1574AF1 -6F8622CF9D3E3039556D4A0650B48964E3FD1312D6359A68F8DECC0E9E50FAD4AD4E251E2E94 -37F2144DD6194BA31C2354D64406E5C81432B084A60F03372D111341C87820769734D4575C12 -AF6A37A97731F66B9C6621F75D36759571A0D112C61E0377DB49EE70417D896ED95AD72EB0C3 -7EFE669E8A2D463E69702266FBCF92D6ECB6067474E644A4EF3AB31FBDFF2CD67EDCA97F03A8 -FB8030A909C8C880299BD440BB9A83186A9A3710511A9144E98DE8940B4CD74241C519F61A65 -895AD1798221ADC87108F46C4B0053F52392A252B5626018BD73665832CD0811FFD4C2B4DCC9 -5C5120D4FA3C0EFFE00E142C26912591EE6B2EDA58A791CAE13CBF9163B1F51C0B9DAC2EB611 -CCD11AD06C95EDCAE3671575BBDA696D80A767056B82E732155650E4FEE9E15C84B4FE2084ED -8A51B748AE344587EB125EA0EE9501CAF82021913D6C9DEE9FF6F8AD96A6E87E5FA5B9FB3034 -5B710E5A1C24D247D30F31A6F701F5A722C92BAF496CBA6DBEB0FA393A87B36944394115B215 -16AFC18078E1FCC7EFB63EF236E08CBB6E745B20205A30B82CA5F6F0FEFCEA72324D5CD9468C -86371AC76426CB9C935552066F94B31AE4EDE823DA03C6482F4AC709E3AD83651BE836E811E5 -809E52AC7EE26C8182DEA91B3226FFB31238A55AF9EBBAC6066185D569D1F0CF8B38C4F8FFAA -8E60FAF2E56258326D945671A99C13120C58A3AFD96E306ABB1C6E92104D1ECC0EA9792AA503 -8530CDD043191D17E970C3C166620A506AC8F146B86EC3865D8BAE3F608C6E1462A8FE2A89A1 -0D975A11F6E77765290EFAFB1C83E0FC5BD8504A952E6962ACB49A8E53E65655D335105EB88C -81C0EF2CD6C89B7BEA85B1D891B40305BCD43E1C40A0B416BF91AB94418A02035286559B2DAD -03A7D6394EBC11C6C4FB21F2B1613B54875E25F0E0DC5AA60159C6D471EFE0630E5BEE4294D3 -AB38C937337D828AC97BE700A9886724A988DF8D9408F944BF7DF2BF8A8F1993F4825E7DEAE3 -071EF279870BC8A16CAFE55864C155C3D27FC05BE2D8EA1E5B7457185CE355CF8E7AF5B2873A -A9756D52909A8AD959699ED1FF56AFBF596B8AFCF8C400387FF5E2385342F4A0C6AC4E4E8877 -E3953D5E76A51384DDA5DBF3E30D4277ACB753BE3F7D82F1558DFA45DF3043D33C37D05C6C71 -ECA2D3FC5076F4AD5AF92DA5DABC856BE998C11E77D0D8ACCFE608F27BD3A547672C94DB17BA -CEA39E52307DDA77FF977E37412F1BD6D448E9E1B52AA45793EC8801C61A502DA869211D7D04 -23BA13C969A16041412EF9F9315ADCAD998CEB7FB7B0BBB9B9C73A0A1727468D3BD89F56C075 -9A71BFA25A86D90C645588376B8577BC84B96689A9C37AEC6C816224404C2445B41D4DC93324 -6FD8E5F749C6DB1BEDE2D2859ECB2810E6A11731B529DCFE3A5BF4DC9212E8AD9EE6E7B76B00 -2994F6DA7A9E1B6C07B6C50BEC227740C59C5C55D96C5223D143A8D4D74D8F2E5B555EBAF135 -810E747E31F31930B69714AF224B91640A1ED8D605342B69B1B38DFEAAD14FF54BA9B97632D0 -571618617D4A7E73A7EACAEF6FCE03ACBE9CCF07033044C027303C388CC0124EB79F98FABC15 -6765C4AA062BC3A744FBDF561F1F184486029A0CD32F77EB4B4503A411808099E54CE3F758E2 -C8842A5F9D9DA428B300F768A9060A5918879B0812D677A173B1F99062ECC2FCDD0399B62720 -9E6294D5A1C77FEC78850580D57554B78A12197D5D792787132E7BF195905404688959D50B3E -7B83B932251B34ACE56518B7F98D8C87EA5EF9DF3D63EFAEAF99156720977D4F96074C85C0DF -B2B43B0DE75EB9D31835BC47E587B80682633BA582717D72221B9157433820AD6CE34035FE3E -3581187892392CAC6380FBF604BA8EB0A32637E44C8F1D946D5E1909ACBFEB34D72584183945 -B33D82F4BA2B915EBAFAA67618F99BCBAEFD8F8BDA9B86D6709379F397B5A72F6AA4E6F11840 -CD7B753D89B911988EB549D95F5042833C9F74186C527DCFC7D77CF316B77F73EF90007A2BD9 -1F33F83C214B0E18050346222D0D51BCEAE15CEB82451B37C52DFD5BB9B8FCDA1CDD77A4EB00 -A21641F2B4CCCA221C3AAA7FE31A11293528DD679908AC59A744ECF6E08A08FBA606CFF149F6 -43EC607E698776F158923B226D3D0C4B913D0A1B94B6ADB1B84D66A8B16546A0BBF8E0DB9B6A -17D50A2CA6E67E0A8534CE4EB669A9F367365926635BA98630C2232C560DCFC81B306A70AF9B -CF7557BCBF89FAD07A97A14D3A2F8411ABE09AB4493184A80DD311E94EF8B41BB7159FF42F6D -073B965391990C2702D5D4E33A4E744E5621EC18A35D2448E50049B247A7892933A55EACCB19 -9E3A332B8BA2D78556DC444463BA3065066563083DE0CAA2C8E6B873E6B92DFDF21705057935 -28B9D731441FF20867D67FB7D97FDA8954A294B7BBD57F25ACAD226D08A5C1443B1B0274FDD4 -E32FA1FB80E1E93C841CBE010C48D9F1A337D12487E07C4B2508E16FA684620536EE08634A9B -547481D3E40D179EE09E4A14B240371CBB577C24E41A916C134EB24564C60B8F9E4DFF250AF4 -65299AB5784D33FB3BA56BA4346C5E193B11BAF18374DEE98D64E97D5372CA4D838B5F874745 -956156A046D2A8A2116CCDE050450087F1DB4227C6913359B3B092E6CF1EB7D2656AD944BC31 -809F3DD22F6B8000B655E1D05F1AA005AF71DFF453E1D29BDE191CE51D37CD05B5081E63C783 -A5343DE829FD3128A8D0DFB72457C4FAA82C1BE3B662F204E656F659C6948CBEC38D85BDA3DD -3B95EAB3B041BC3F52E265CED0A9F9B9E5F26886FFFD004A851CE67154C45E547598D331ABD0 -E44A48260C501333EB57650F3813859A0418B5FA806E6C4C8014051F34DB0FEC7CED33A8E785 -9ECBEC875808C53D21FBA64F3736D7CA13F8FC4D14987E8E439510C6D46FFC0FAA618331DD01 -6014D5EE1A51180C65BB67E4CA008F4AD21DB6BC6663AFD4C61DFE5761615D5CAB6156695702 -5642C16CE5606E44D0A7F52C0140011575698ECD06573F9258C43A247D74152BA326EB1C578D -25D7EC4625540E69E5EFC439386FC381EE8DB04CF121C5F84FD9EAF0FDA90FE31353CFEEE553 -13363A382E410C69EC7041F3D303949D4F4ACDED4BF1A1BAB640BE0D11B44012446D6F58AE79 -405374E0CD5F05BF624B185CFB399478B6054D1624DEE473E9C52C2A58F10F72679E10087BDE -F832E8C8541F04B4678907C099B4C861B389EA2D702CEA96480C536EF545594F697053C9561F -FC9CD56352BFB5CDCC1831E0C8D0847BAAE46F16F50F712ED62351CD0FF01563FBECCD992D9C -F08F693D843DDA71EAAC2424A69F108C516A01823773BA6EF9E979419578BB95DDF07CE70AD1 -B0218F1C50436D0B12007F3C02213963C6FA4DCA8E6176D5CB36C154E5521DB36F0BF4B4D75D -026F4B5FF1EA334DA971C530B79D5D9B606899874DF7E10539E0D69AA8241AAD05D703B2C731 -3CA21E4F0F318F25279EE1F48B5DB71E95CC43609315D5C3AEF6EDDA5086080E5F31F9264E3F -28E8D5FA719DF9698BAE87F39250CC470AC10636A1A072F001030C97EFB481C21C171EBB2E7B -3DBA17D4992E40F01C4CE682B7BDC2DD56350DE2A918EE186B902440BF4A23D548AAD431DB6C -E594C32C4F8AFA96BCA7CBDCA3AB620D1083633A7D3DF6D655CE07AFA91BEF5C6336DB3C4E03 -9099F0C424285612196144DFDB4813519247F53DB9977737EEC47C19D0E66CC522D89E0F8617 -96F1453426838E75DC4BD85213A75B366A122A59B603F99F5E597CC52FB5BE96CEE3D24CF6D8 -53921A81A869CD14A168D0B31EF2D54CD9B1ACF25C1EF0C42330ECC879A7A173D17522B421C7 -730F5DE3B14A6998C9C3A0D1CE5326C0116677997DB1FF6112FC8237B2EFFA72A9DC8A82F706 -03EB2147D0CCB152349307F6DD5EAF99563D8614CF7DFE8BB2C34133B1A27B21D5B903978CCA -368C23ACEF2D4E630460626A270A12898C8C212917D2348435AC7E834218721399E57792C8B5 -4AAC664D75CFE9EA15EC9CEE6D2086179EA72EC62B6DED17AA3E909BA70A69E66F8645DB6269 -D56F6579693CB6F781D81E79F3FE0871BF686390D86181E9990B7CBAAAFA2599E57618CDFABD -E3E21C43F378DFD416EA203EAF5D27818360A3AF5EF34C15E337E74DD46A577852C663318406 -54CBE3901DA16518B6AF1E202DCC687AFFF5E458FA887ECF5605FF93A95A46C44A9BF48760DA -288808001107E6BADD29F9952DBC83ADD2A58CBB7500D9E2DE82BDDF32C75C56B5F4D17948AB -24610FCAF83EF121F2C2C8CC1FDA43A0FB3C320AF44102AF2C54F41AD7CA1441B0190B1A8CAB -AE86B1A1F8FD7A6C399BAFD3270E115DC8A348E4B87D9BA2762D95E4CEE98880EDBCBA7D6EE1 -25D3C882B62C7141A9C38053C87345138059980D13390D0E5754FFA531F45A825F54CEDBFE48 -D661839D141A2593AECE3AA3F5B280CC9219C1424773F927A1044BBCCDB55CA2AB9D9BF53E17 -9CF36C33BBA11A7952B4924A01B74066478FE663C7E3C0D28DE8A8335EBB2D98360AD24B338F -3A78F3204E63B12E4666025387C041DBA2343FC0906885F3BD8CDA1E477415180C8AC27F1430 -119AC825F072CD2B1932DA6280A24F2D17065EF8426FB9E8A0CEDBF8B53660D6EA05771E3184 -DEC4AFB3DBB8F3CA65F7385A21CF096EB0E2AF36601CF5687FC1320ECC03AD922DD7026C44D3 -DE96A5C7C49CF83F3BA471135D1DAD0D95B0D959578B32CD6D1B5DE8D968AC8AE143A6201904 -06403ECA146BD3F49F5A801D553C922291DD45CECB168320E3689CE3D8E765E79A1C79A1199C -ACFED8554E870D3A5C925A06C611A73A94B2DA9E151EEB36F9BF0672EBEDB9091BDC50F72E3B -7C55E073FA8F419543A47B3A856C09FA4AF7ACB5487469C498AA97992349133E53BD0B9B9F28 -1DEA1D8CA2533001CEE5751023C5BDB2098F3C0F3965187364D373A55B451ECBF1C4CF854F3F -EA7E86AD28683B9413BD9E7CD3E9BA8EFF17D3DE056781DFC163D6303A1E0A0615CC57E05DF1 -9EEABB8A2D8243A11963FA523184A9C24BA3B1AAADA5A828AD34F93F36049B77A01E9B18DB4F -5DEDA9688FED943B6742038557FA67844296A8E622029D256536F0B7897568D977B951714F2C -92920AE1D9C1522166BEC7B7E4409021B0FE55D8FB9A71AA3A1506BB977615AB8E35D14CADAA -CA791B8BAF23A186B249B3DC395A5E5D4C7211CFCB6F5C2E62B849DC72536D9EA68720EBFBA9 -D98BB5803E8056E65C47B12F92CE84FAF73F2A08F145DB269577AD50EE51A292BE6466C64FF3 -A54848180D62C8247FA6032834F3201D9706DD1190729F9B27C76E7DA276514A309F7EA3DDC7 -A9C84FE049F8093CBD5EBD43AE5E062CB28F33113664FDBBDE4A6A71B5B520D3365C57EDAC15 -D5CE4BCA872623509F2CA371C13493B002A32E68CFD6165D2DDA9F3C6651EFF6B650E5998A9E -D30112AAEF280A13710194405D1A8E1144397010DC81C42ABF9A3CCF8FF86B2AE7777EE66B96 -B14851F9B3D04E0D4CAC4E28EF33F6182F0B44DBFE0F93318195F107EF1213F95FD217D79FE4 -6C5DED68C32DC9E7BDD876221BA76F9DC125DBBB279C493B2660321412141D7052737D069640 -912C2DD41B2BFBF25D4C08B5F1412E0D5D03D9C4587AC495570D5577311CE9F5735BDF4B1AFD -3B1409533005F0C3D469DB0CC3A42DF1B4E14C24F8FD872DEE3E5C96FAA2A39257984DAD5801 -5E88DF4797981EF81AC7574FBDDC96F23D149B86D91C546B073DA258C37AAAB56C304D423FF0 -4F79A7D95E3849BAB07D28BDA946B0B54B37C24628EECE3A530E81C4BD1ABF42C2C4FB4334DD -9AAA2A54C4762C3512552C273211F94BA1BA92BE0F00CD53F6D3827417CC25884095416D06E4 -D1F7C93E95C5286A7A2A1D4FF7B78927504FFFF0BE8E23DC3A306027E0E2637B75C992783F58 -CD99E20462E1E73BF837A004D8AA81485504A885E367768B96FA3489CB0887BC0393BE41F70F -35047912824D93F38423FC214D93900BB3A0114C5EA3348B8F27796BE2A2170C214773AFA729 -915A217CC634EFE5B84D29571C3D9C81386A104B1C190121B1738272E0978B9395B82C012E02 -EB33D08CF4DC7B652AB5B1F49C5DEF297608936F668E8F07E066488B978185F87C8DBDF48495 -C350138EECD08CCBA71F4169D1E031D40563A9CE29A5D61B94ACD7F9A1D5005CC48D6EF63D05 -00D93F642A3501F4086724FF2359ECB661BC0DD6A7D2D86CD5CD461D5F9595B258BA5306A1B1 -97862B022AB3CC712CEF618BE82738804CC732B962DE126F90136E4001C96DA77A195AE5015D -DECFD99FEAAB8D5B455E7D6779A70BFA4187D93CF82184272FAAEFD9B0EA0D1059AFD26E4950 -B5DBF9FD7B2F18762F7C3094CCD04693EDA58141966638B0D9CEE738D718F24DE72E3B436DFF -A817C63972DAB175BAA8B037150E02A57279954BB8154E9CF0A63A74DE7CB941F6D0AE015DEF -A785291508DF4735242CDA96915F3A67D4711701EBC0CECAA19B46FA8395A608E45247E609EC -B6BD0EBD42EA2D0F3246CE18217C9A1BC700F110A58C7BC2D5BF12FDB444A9833295BEAE75FA -CDC855DE541BEB35232EB7062CDB0B1FF9924CB413643712A4AD15AAB604A7B6381F801E3B17 -BE9153D193765BDC81199FEFEFBD75E0C33F398E59C178F586398545DBB7FEECD0F930475734 -68987A1ACD82BFB22FB85270B33C8D493EC75D354B73BF89C85511F9D86BEAC776A51823A536 -F1A3FCC7865ABCDF852D6D099892569D097A3D3BB353C897B082E31991B738D888299F6201B6 -578DF5214DC47D57754E556E461D0031F10158F79A45FE590C93782C1C31C7D1E99D5054721B -2C37A30A4DB4C5F489F9AA8EFCBD2E9D3C79E8ED42BE490BEB93A24AA7DF83235E87AE14AD93 -BDA7EABF5324A269DE9E28DDE8CE1BC4840C87B6F148F535303EA8A7AE066126FAC50619CA95 -CD8F97EA1093E5FB76AB8640D1DB0F8FBBEAA855CCA4B8A1092D7549EC9299EA3226F8CAAAA5 -9FB5AE22EE5DC2557165B35E5FF93C8CFC23891A75E4CA5BA914C5DF3B7792554E2F5DAA2524 -D758C2723FC3B0DB13E8084DA3A02D377B5EDF21DA882A8DB1E73ADAC2640790C7BF46ABA616 -9CA1476E7DA7E5A26F3957A660BF60A840DD5AC5A22D08DC20B171249C991BA075C6BEC67E2C -B95469AA10E5119B7AE4DD3C7EAD3EF9955CF8310939545F7102CEBC4952A951FF5022094632 -FAA2E079CA29D8BFFA5C982B317D8BA90F3FD28E7CFD8EEA6D5E12B98C736BE819090E4FF30C -3D5AA1839E6EAF6EB6F9E6F9405DC5F23B8DFB37971F93D81DEF46A067E49AAC0A7E1631415F -77C16FE3BBED715E4882E710E2DC35E8D2CE01ACFCBB3B231CC2FE79556577668F8701F4033F -351606BF3088518D183EE31115135E02CC9C679ACE8CAC5F5C5C10F065F4B69F1F23C1BBB505 -1C3A2D795A579CA2382935DA4F42D481226740EB6DA7000568AC566F633998915749A3CA5BB0 -64A48083FBEDED9FB0FEE4B39824A1DC8999DB87C446A068F36D05291FC5FC2FEC5B8AC90AE5 -A4F0D76FAC415CE9F3749444D0987E22B64AE6E47D7ECB6E57A092119B4724475095D5D1C9B3 -7806D604C12FA1925F919658B79FECD3C37EB933847EA4B966F860CE3B0231054054D33AD524 -63C9EED6959EC202CDB57FD462172A702A6F91DBB624AAFD91CE2A15653EAD69995059DF7053 -0E93192C2DCEB9ECAB2D25590065C7596AFCD775843CAE76345F410409CEE5EAFFD5227DFF99 -ED83FDED9301644632513106EE0D629DB1A70FDFF66421FFA8FB9742F3F7CF0C318455320778 -62BE6C5CAC4385A947267EF01BA4DB40427C251B04A79B15CDBAD1C401DF4C94F29AFB8C8DAE -2FFE7055E6BE57E06E5A445645C889810EBB631A22052815045340B42DA17741DCCA003699E1 -5F02135F576892F0D178142B1B0E4EF8B3CBCFB7BAA70B2D26D68994730832F84326E171A55D -AC7FB927AB86176F9D031693573BCDF24CAE1121E4D01918A938D01AD4F2DBD7EF824678C39C -B1E1048165589B92E5C7E8039604783E0843A302CF9A7A2A130B40DE91DE437EA9A15C3EE9E8 -0BB1EC96081AB295D6BE4889BDFF20C8075EC3869F6EA17077BC0FD340CDAE0C22AC452FEF8A -0716B13DD52153184AC24D45677096CCFFD9F4EF5BB3FECA87C70F49824E01119E8EF4ACE680 -9929C4BCE4E4D903EB3BA3556D3D50C301877D81B7C5CA451E46A3A3C03FD6E9260EFC2F4C99 -FE45A406F85519383AEE330B3949E092F8BE6D889B1516C6ED1BEAF620262CCB3944DBB27012 -587E50A23276A975C301EB4D7F053C9882761A061FF5BC59651DFB3BB6DE720EAE2FF2F2504F -674A5C21C04B01A78AD2EBA868B9EADEB35AAC457C141791CA94D9D8B88FEB5EC5747714641C -C0003851DE075FC0FEC996ACDC4E67A5490FE657490DF994497E1ED3454F6FD990DD8879B238 -81219FA6C3D60C81392874E5C42CC174C970629EDEC059B2BF1F53AD21C32584A3E1251A2DE4 -94F1D893B80E81D55F611B6B9D7D275AD513125C6267BE40FD49C0A039142535514013B1C722 -C61430649F1455FCF3ACB2603C9C668702D64277BDE9199FA6F30E7D2EE9D74F22054CFE0F53 -A2F93571D7B98EDA0991F789C1F77C4BF4DF2FA1AC98F5C666A8415AA517BCD14F2BC5B7C572 -A9E7EE55822809596C43E43CE174612D06D0D71DBC50B207B9EFD53545E262ED0310A06A2C7A -E9EB63076703B29D0DFCE003C3177A20D40BDEB2C50EB37682CC9586CA3760426615E192BF79 -865FEFD6BEF57358A1B5CAB36FD8119EB65E328BC84527AC6FF068048D7C9CA8E91C94F3A4AA -B0F98E8CE4071C54BDA52AE518839708AE69FE8BC5435057FA740130BED913EC885C8E1C9388 -867DA6A8D04D3D4B7340404972D86848C152BE9B006E5C85BCF005B59B6FC06A6CD0BF3AF58D -F54FC285C0BBAB9564BC1AE8B072D1BF9CDA93DC4FBDB62AF566E3F18208D9D0721FDAC36A0D -85BDE800DE7051E8703A8EF1A1A46A901ABE065899ABF99467E328CC743E4732716B1814FEAD -78DC62B464D1E2EAAC1D0950C24CBDD2208AEF714A17BA022E68B739705BA7FA4078C46673B0 -8309BACF993D71E0D75A75FD98E4FE574FC3B657F137D69284D94956A1404882668B21BF5C5B -0DE5B778B095611E54749886EFA8E1CB81221F5C1A94ECDBAFBDD10952AA19BFC789674B28FE -242DEAF9AD08C7556F67FC5CB75C3BA8E5BB27566FEB06850C7603F13782B8B5123822897A39 -3A173FD1A30C7492A0EFFA096A182D6C0EE3B9AEF3C4C3E150208998F9EF4EB466233CF0BD26 -4A87D1551A080000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 - -cleartomark -{restore}if - - -%%EndFont -%%BeginFont: CMR6 -%!PS-AdobeFont-1.0: CMR6 003.002 -%%Title: CMR6 -%Version: 003.002 -%%CreationDate: Mon Jul 13 16:17:00 2009 -%%Creator: David M. Jones -%Copyright: Copyright (c) 1997, 2009 American Mathematical Society -%Copyright: (), with Reserved Font Name CMR6. -% This Font Software is licensed under the SIL Open Font License, Version 1.1. -% This license is in the accompanying file OFL.txt, and is also -% available with a FAQ at: http://scripts.sil.org/OFL. -%%EndComments - -FontDirectory/CMR6 known{/CMR6 findfont dup/UniqueID known{dup -/UniqueID get 5000789 eq exch/FontType get 1 eq and}{pop false}ifelse -{save true}{false}ifelse}{false}ifelse -11 dict begin -/FontType 1 def -/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def -/FontName /CMR6 def -/FontBBox {-20 -250 1193 750 }readonly def -/UniqueID 5000789 def -/PaintType 0 def -/FontInfo 9 dict dup begin - /version (003.002) readonly def - /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMR6.) readonly def - /FullName (CMR6) readonly def - /FamilyName (Computer Modern) readonly def - /Weight (Medium) readonly def - /ItalicAngle 0 def - /isFixedPitch false def - /UnderlinePosition -100 def - /UnderlineThickness 50 def -end readonly def -/Encoding 256 array - 0 1 255 { 1 index exch /.notdef put} for -dup 0 /Gamma put -dup 1 /Delta put -dup 2 /Theta put -dup 3 /Lambda put -dup 4 /Xi put -dup 5 /Pi put -dup 6 /Sigma put -dup 7 /Upsilon put -dup 8 /Phi put -dup 9 /Psi put -dup 10 /Omega put -dup 11 /ff put -dup 12 /fi put -dup 13 /fl put -dup 14 /ffi put -dup 15 /ffl put -dup 16 /dotlessi put -dup 17 /dotlessj put -dup 18 /grave put -dup 19 /acute put -dup 20 /caron put -dup 21 /breve put -dup 22 /macron put -dup 23 /ring put -dup 24 /cedilla put -dup 25 /germandbls put -dup 26 /ae put -dup 27 /oe put -dup 28 /oslash put -dup 29 /AE put -dup 30 /OE put -dup 31 /Oslash put -dup 32 /suppress put -dup 33 /exclam put -dup 34 /quotedblright put -dup 35 /numbersign put -dup 36 /dollar put -dup 37 /percent put -dup 38 /ampersand put -dup 39 /quoteright put -dup 40 /parenleft put -dup 41 /parenright put -dup 42 /asterisk put -dup 43 /plus put -dup 44 /comma put -dup 45 /hyphen put -dup 46 /period put -dup 47 /slash put -dup 48 /zero put -dup 49 /one put -dup 50 /two put -dup 51 /three put -dup 52 /four put -dup 53 /five put -dup 54 /six put -dup 55 /seven put -dup 56 /eight put -dup 57 /nine put -dup 58 /colon put -dup 59 /semicolon put -dup 60 /exclamdown put -dup 61 /equal put -dup 62 /questiondown put -dup 63 /question put -dup 64 /at put -dup 65 /A put -dup 66 /B put -dup 67 /C put -dup 68 /D put -dup 69 /E put -dup 70 /F put -dup 71 /G put -dup 72 /H put -dup 73 /I put -dup 74 /J put -dup 75 /K put -dup 76 /L put -dup 77 /M put -dup 78 /N put -dup 79 /O put -dup 80 /P put -dup 81 /Q put -dup 82 /R put -dup 83 /S put -dup 84 /T put -dup 85 /U put -dup 86 /V put -dup 87 /W put -dup 88 /X put -dup 89 /Y put -dup 90 /Z put -dup 91 /bracketleft put -dup 92 /quotedblleft put -dup 93 /bracketright put -dup 94 /circumflex put -dup 95 /dotaccent put -dup 96 /quoteleft put -dup 97 /a put -dup 98 /b put -dup 99 /c put -dup 100 /d put -dup 101 /e put -dup 102 /f put -dup 103 /g put -dup 104 /h put -dup 105 /i put -dup 106 /j put -dup 107 /k put -dup 108 /l put -dup 109 /m put -dup 110 /n put -dup 111 /o put -dup 112 /p put -dup 113 /q put -dup 114 /r put -dup 115 /s put -dup 116 /t put -dup 117 /u put -dup 118 /v put -dup 119 /w put -dup 120 /x put -dup 121 /y put -dup 122 /z put -dup 123 /endash put -dup 124 /emdash put -dup 125 /hungarumlaut put -dup 126 /tilde put -dup 127 /dieresis put -dup 128 /suppress put -dup 160 /space put -dup 161 /Gamma put -dup 162 /Delta put -dup 163 /Theta put -dup 164 /Lambda put -dup 165 /Xi put -dup 166 /Pi put -dup 167 /Sigma put -dup 168 /Upsilon put -dup 169 /Phi put -dup 170 /Psi put -dup 171 /sfthyphen put -dup 172 /nbspace put -dup 173 /Omega put -dup 174 /ff put -dup 175 /fi put -dup 176 /fl put -dup 177 /ffi put -dup 178 /ffl put -dup 179 /dotlessi put -dup 180 /dotlessj put -dup 181 /grave put -dup 182 /acute put -dup 183 /caron put -dup 184 /breve put -dup 185 /macron put -dup 186 /ring put -dup 187 /cedilla put -dup 188 /germandbls put -dup 189 /ae put -dup 190 /oe put -dup 191 /oslash put -dup 192 /AE put -dup 193 /OE put -dup 194 /Oslash put -dup 195 /suppress put -dup 196 /dieresis put -readonly def -currentdict end -currentfile eexec - -D9D66F633B846AB284BCF8B0411B772DE5CE3DD325E55798292D7BD972BD75FA0E079529AF9C -82DF72F64195C9C210DCE34528F540DA1FFD7BEBB9B40787BA9351BBFB7CFC5F9152D1E5BB0A -D8D016C6CFA4EB41B3C51D091C2D5440E67CFD717C56816B03B901BF4A25A07175380E50A213 -F877C44778B3C5AADBCC86D6E551E6AF364B0BFCAAD22D8D558C5C81A7D425A1629DD5182206 -742D1D082A12F0780FD4F5F6D3129FCFFF1F4A912B0A7DEC8D33A57B5AE0328EF9D57ADDAC54 -3273C01924195A181D03F5054A93B71E5065F8D92FE23794D2DAE339BA29C1C6F6561DEF1378 -0383DAE38A868377CC7D396B2A05F341AEE0F8BD0A0191F51AD11A4D2E927B848A1EF2BA15CF -BE57A51E3AF07598275195C9613041F71C1AF39E61F9EFD5F6512FBDA76E29DE6B508F62F5CF -9F73F5288DF1C7B0B82C92D3B6358BADEC3CA20BDE55DAA7CC58004AA86B6CBF8C410D8287E8 -8BF20588A39309C2B703CED322F030AA6069869064486CA651DA054FF3F5E56534CA358B0829 -A6B954D89103436E6B06DAD1658BD4A95AB41343B01F5866FC87C4EDFC71F1477C98F8E11DCF -27EF743FF90BF91881C1F09C10EF68CCCE86263693B4699304958A466D9D74D7266A04607EE4 -8FC4ABDDB1AAC9C2B0A4E942C3F65873884A359AB76DAB1D1BC67876C5016E7C5185C16658A8 -1ABCC25A40A00CAEB6ED57285A39A3FF3CE675DE68E8FEE93BE347321DCD5674E11182F88DA8 -5002FB8D6AE14FBADA8366F8603765489F5996C64D33169816AC5F355DE8A4FF22631424C4E6 -61390E36C6B041CDE6227612506E4C961A05496DF3CA1255994DA974F6BB5B6ED7B0C96341D5 -006B3CE0BC97B2AA4CA9DEC0B1D204F1C42194601A82AB4BE67C0FE8935DC93C5992E5BA5CAC -BC6A7F0BE7270F76F00BD5D4E05159DCC33CE8863F569433F7BC17E88909388978909AF5D913 -74882D0D54E66402123733325D6C553F1C28AD0E4A6399C129F8E729DFD3EFB8C5357CD5D7C7 -CA3931E1BFDA15CDD45763E016FBFF8EC15B3CD5D6FA53EA786B5DD281437596B5035DB20121 -99EB57D8E02EAA11EB00BB17D53C37679A5B6B3BE23F0C530999FFBC13F67D6AE80D16092C36 -E56160F127275C46102AF8C3BC21322FD4993B84082E09037CF590078111271292D7974401FD -5E8963CCA67571A998AB90109F1F574BD23AFD052472459C553B327FC5461135BBECA6974D01 -79A4ED967F5E01E5F4D453B55E7CD199A05EDCECA6C082D4AA923DCB710EECC61ABE251CD6B0 -56F1F5764BA16E9EC2ABC1EC656F9989B21B53FC7BDBA81B9AD8A4394982E62572EE2915C016 -0C30666900BCF4E3B53B5365605D70AC1651E706112D9F062A9218B2DBA5C576B236547F6814 -B9B0CE3A1446EADAC59C3F74AFBCDA90EBFEEC0E3BA548AACB796EBCAF5A6162A4CBCE569D62 -2BF843A9C991617C57DC0BADFC6140C0992F04B15A23A7AF887CCA716A7DD80CB07E46560C90 -1BD984EE07E87D29B602AE6A6FFECA39C6A10FED66CEDF7F39576E222758BD1B97CD9831A41F -23F81CFD640945AFC32B334C0E6CC4C75C97B974705FB8B1F8281E3AFD53B86198C4EFB07FC7 -A6C328B5FCB2D842252369D7BC6B060B7E911F17450540B77E3CC1A4D523B66BBC05E8CB66D0 -018B484C7025BC72FCF1E7CF428B0246D7A82E4903A63A91B060D78FCB48CB0DB887A81E25AF -F93F22E938AEEDC36C0CE33CC0306AEE691A6C9EF230EAFCE1DA59D0CF5607DF3E1078BA69BD -CC269C7616D78C9C86ABFE8E4766CAE7C81AFDC202A60D27633F10CD25DDC2D2D7E29B043EC9 -0C22FE44D928CDF5D891DD78F11E1112675C11AAE26F56332EA4B1B30B9136E45789648E040F -C90F25AC67F5D4ABC099CB04269E31AC06B445F7C5CDB3A00B8D00BC5F0C3D63B60458791913 -9340A3239541452FA1040F9E7BA16EAE5C0A6C9F6B488D0D39CD1DD47D90270A7B40EC3DB83A -12019E37AD74D4FECBB759C758FC51F4555FBED8A677C06F63B2F17EA49812D4516D2F688867 -C6256DB907BA5175657ED2557BC4A2131D3F87710849544DA3B053D0B657D4AAEAE7BB08FA33 -720AAB58CE1DA35C765C49F19D7D76157411457F7F72FE958C2716D9BE1C9A3F90470D7012C2 -2213005ED123B31A176B94D61E004D68042D81D34EA07ABAEB52BE37C4D8EE9602EEC6B88E0B -7355E80245EA4B5CE013D050794824234D271B53D3907C09B6B91502CC42EAB7E8FC956799CA -9670AC2B8D813D76ED72A28C14D1EBBB71D5E5144FA66D097EFAACA2DD798358BAB0EF9FA553 -F03771D99D15AC5614A31E29B6CA92A2398556E9A268CA6D7A1090A496215684DA2D1D40CF46 -C242BA506570EC488D6CB925E36ED2914D0D09AEEF8224301DD8FE81A882CF6CF686FCBE1E1E -F44E3DAF3C40AA6A28FF919BC26B073EC30CE89A180821C75650DA504C319179109FEF87599D -2B1C95050DC587B384050C2FAEDEC784C7314DE343423F88154D989305B0E402D17F80A90E65 -508D601EB0D0EDF578857D800EC1BEEA5DEB9131301AA14252BB1C2FF3A4BD2D85867A09B968 -1E6E919BCFC7B5481FE72CAD91A4EBB7B31B746234E09798E0967E42CB4C498F14E202A9265E -336E334AB76581618E54005A3417AB81B0B4D346A806469E6E66BA65BAB8D1777D98E80C2DA8 -4F09CC774AF6203AC37CD280B4762D08A5CB1D2AAC0A76A62DFC90FD2B089927E782A38DDF09 -5E3C0600EEFBD0DBFA23575211A3042F77E47C6592EF49442D9D25BC7C99B46B40A15D3A7B2E -2C53D8C81CBCAB8E38199C3E36D082711554C365D184F468A6012C671CCDD227061941BFEA5D -2E7F281C823CC7973DE92DFD107BFD0AC88538AEEC860EAD04385409D552EB9A9A5688E1A311 -9E86F4323F76D727752DC4CE02E87AB4D163A808D3ECA4C51E272360E9B268CBC2E95637CF9E -5F47BDB740094FB4FF13F303321BBCD15C243D560CFE6742852D6A5051037543151FB5CC8C7C -FC3CDBF58D3AB2ABC5D212BB19EDEA6FFEBD88EBBBC57090EA201622A09C55D76EAE1452F0A8 -1E5B83E5BAD18055E011F006FB319D2BB9C5AE122BE85418E20C8A706D11E3065E69412AFF63 -126E51C4F95AF28CC200C2B5D45313B1A8309A3A57EFD2905228EE3E30AF6BD0C75C1ABDCC08 -5F2878F8CEE3551780E33F7A74BC101024E16B19B58D88225F0DEA02EF317B9AF514D59C2CDD -10FF334E26DEB03273F0A5F95B26E945F44D76BF82A7045C78377060352C8A937A876CFCE1DD -6CE26F4AF1DBBF2EC95E89D4CEEAF538D22D2A4EAF64F1E374DF1A345725CAEEAE9964CEA972 -5A623924BE7821CE3D9341D845EA61526D90B13F73FFE9F133BB335DE26A08239181ED93487B -8045A8D18B321BDC3365CF214DA1FD35637E7A8ECF575E2002B208E1206E4C41AFB564A62846 -4A5A2D8E266A82A9457EBED9582A68D107D1556E73E443AC9BA9BC935E506E78ED453935D83E -39336205680299A03FEF889F303EB7F92777DC20E65A589ABF11597906B06181608A940D2A0C -EF0FDBED238748EC684632C626628C79C620809CB7F4CFFD9FDE58D6A06DDDA0E0AFC443D2E7 -BA980765087C9271FDA74952651926E9781513B1530C4A5461F871B8D85CCD09A67FAE4CD66F -F503A344ED3028B86471B5F94B55699CDCFD5D1733D5A840EABABD0220528CF21A46F949E174 -2510C3912319DE45423E0DDF34D36FA127E60A6F882FEC83F09B5D8F1ABB00CBB83EC17419A7 -A813B2ACFF5D30A0D8643CDBC42AC07F0080E29607AC520CCE5B7B9195985E327A599930CE01 -61832A35D61B24C1AFD3401A9296F4E613DAB01480098ED888AA978EFD3516069C81B1FFE09C -919941810BD92060EB479A464ABA054C049E14659667199F55F9B1E78D1295269EA16A894287 -3FC8C00411F2517F7651B5387D622CD6F462D4C9CF00D4A072EA7B4397EE05451E403E3EBD7E -9930D3FD1BAAAF2CE252403E12D4EB5F563A9E9A9BACFF34B554E159BF40D43FDDA78724B413 -5B83CFDD800802909110D7CF2E712BD4042EC0C50DC3D78EBEC02DE44D727CDE9A3818EF937F -33E5869D1DADE6D383416C3E983247C40F99BA72074549E2C061BE7E6EDAF66BCA5654A257C4 -6818DD2AF1EBA21A43ADF9233B3C63DFB25F441F000B2BAE2A28F91002BA72AA5A040D17F920 -EEC38E340C01283D176E3A72926271935282C4DC0CF26AE3D7AF3C9B83C873E37DBE00F9BA4E -AC43A29400DA3F870378BE10A6853538FE79C6B32ACA4BA6B2E10A218AF99AB4035895408ADC -1158E5AC6E4B764817DA45DDC8F179C55A836CD5FD9656694C532415CFF3DF99A9689E489404 -D07D7A4035512DEA64E87B6B0C575A5D5B0E1D88A2C2D7D3E98D5A21A16007496A3322045E32 -6E3ABEC070ECAFC5D727C45F42F4A410F6124F20C3D5509ED837E5801286A307BF6A0A3525C8 -5AD0CE6E2DDBC6BF52D4376CF0386BA760FCB482D987A477A1DC32D8C7BB91C2DE2816A0959B -49C938A684C08735E617F338CAD005AC16EF1A818D5A540BF0A8312272295196446B1FBD0FBA -C3215B5EA4ECCFC688F837CDACEA019E5650A5D12CEE637592437D9E4981549EC7E9EC150729 -02C67B1795A0D727A405534AE081B2A5E9486D36EC1598BA80157F0D25D6CD211075D651D20D -E24519216C7C4C368EC7D532DE4AF853621003BD9084828FBCA22143EB5832A4BFE7AAFBD346 -F2D31B2E1291CEADE0B631AFDDB29C6D1CF752811ECBF2B32F5B22765688B7A7FFA8CC840786 -1B5451EF2B938FC4CD0FEDB03234F75ADEA022491F93CE40BD210B762679B34409B9208E9245 -97F7E170CF0D98B9211F43C74CDFACDEA0A4D9CED41840DEC7DAB1D3C10637039BE51F47B873 -905478AB6F4D46BBAEB726B2BF8F93A13DE42AF2E6CA8EB274B0893A3772033BB5422203865A -0195470AB3EA69DE75B325A77D88D0C12A90AFCE359CF0F3E767CC611ABD3D73F72C42617417 -C8127BB3A2DD3C1A111E4474FD03A23B4D3676BF3FB4FDA89381EFBDFF114A741C4346520087 -A97CA1233F3F2524307030176FA1363E3500C4B1B8FAB54F9B0F5ABCAB2AA97AB3C0933D3B84 -EEC7C9337E97CB3C5B729ED09F31532355890A2A6D662C6EEC064F271DF07C84D0E809DE0A7F -177C003F3C851DEC6E3009447D4534DC8F3F71942E00A6111FBDC677E1C71A2F8BB360E64FFB -C4C26EB095895F135F8B48D39443EDE35B81806997330B8E614207E38526062352E029ACEF6F -227AA7BE354768BF21D03F7E8EC26372CF71670030A284AA8C294EC94DF356C5B6660A410931 -D6B43A215A5D51149FE45BB2CDAD23F11B3DB6202263DF5B16A84C5BB8B75DBC662884FCE360 -B8400BE9A75BB7CB24A57327FEA3821A31813F09C66E18E491817770E01A5EDB6DE8CE3D5993 -BFED6555BAB5894CAD9399C78B9519F4832D858487B4BB17898F9BBEF1A72614078D30C1412F -54EBA90BB5E1C39DDA0A3963124C62EBB6970203F4904544CBCE72D178B4DDBAFFCAF9856AB2 -5131208F5582B54F8841D8B15E0BFDBDDC16414C50EEBAE46DE35CB0FF48FB512AC60C5B63B2 -D4102979C878C1208CFEF32B5EE434FE04177C1E2DBA6576D2781519621F0937ABE79FF329AD -F391800D5F71D8A2F213F2EFF727C340EBE9FE5B51F6AB7A12CB1EFD988EF33BE49596898545 -7AE55A51E7BF8A931C183EACE627D5F72536B6B9A56DCAECE332DD21ACD090EF89E0D5B63781 -178C316D0F329AA5BA9A03D5E8E914B9E3493622ED267F15551D7956B5A2E5527664D01E8407 -D5E2AA79CC7CF42F0F3831A3C589DD7DC3A6DCF174D092FCB8B593BE6BF1E48A71BB440BC3DC -F84A4D66EF2BFA86D547B4931437393ACEE2C13CF5A4F12775C7F42CEABAD4F9FDBD3ADD7CAD -46D552BCB5B3E339BB7CF27F7FA114EBDABE3931C2559DF948197570AA4DE07AA317A76D5967 -F7A12F1ADE636E3D7E79DDF90442C48DADBA4EEB9DD9EC59BA6C30009E0E018A188D7BC42034 -5FEC793DCB091D79B7C78E1E12D521DDE7F1F482FE097A2BEE96276CEF8CBDE2B74E8782E2BF -8F3E8AADF22CAE53C08357AC868E3D217EEFA3A7F049EACC0F1025163D22A5C38C7667A26754 -B48F6001B499B57A09F023041D3F4EE8AF9FB9473F89F6A8F25E65106C2FC38FA16B5889C8F3 -79F1AD39E7ACC0E4C9C1102CA56B7040DEEF114EC911B36D2A8C66D5160E64DA7A03863E23CA -A837D18F4CC0839DC73430263A611E6E65773407635CB3D60EDDC8978327292EBBAD62309460 -A391F02DBD90845358A00BE398DDA6440745EA7ADF4B89275BB76B695189485ECD84E4FF87FD -160A85EFA756E237F7825B453117AC0D9AC9E495FB628E3634ECA75FE61F877E8E6364CB5D54 -8B93DAE2290400A2056E3410605B182F3C45BFA67B405083400D1E180E37CE74DA6301FFD34B -F2A8231CC06E2768CB2AE7477238FEE26001D8C4A4FFCBC9F4C34DFD0C93EA3F09CF3CA82A2C -295F93F9E98613F9DC5BBFEA7267E20A3C7458892A189F6950883AB7E9FFD3EEDF465F1D795A -1376C907C3E4180B467FF0EBAEB6183C28F14824544E9F5187AA80B90A2CCB0FDA2073C3A8DC -AB5C14D4ABB9B2CF4A3889EACDABC3E3604239F0C9BBD21D14AE8D0253BB49C89A20A155167D -F482CD4E28695B07F469E12C01A87281463A595A3066974EBEACA1DD593C38412E28D6688847 -4384DACE4112C4ECC58C3922C354BD8E54275EF9CF0A99A282084D099E5F5542237326B12492 -E14581CBC71F9DD6A451C51416269ED96821998B6B4CCF5E1E225F3968617F98B8ABD4BB0736 -F771BDB80F0CE60CE1044CA921131CD84B054D21D93DEBFEE173F93F897D8814F0444D102CFF -109429A51271D65CBCFF634640DB0D056DD5EC6D5A7DB00E37F66AB8707E5CC9E0901E6042DB -CDE0038D8E3E32F8FF03758F604AB231EB8C82E670839B27C63A12D8E3B892B34C34501CB15F -3119A8489AADA5E86430A5CCE083ACA0D5F7B4FCABB924163EA676A06599296E460AE9BB080F -8A8C6ABEAC20F0BB797E6DF763B8E892C401CF91CAEF65ABD8824289D4CE9D111D8AD3C57296 -9DB33C10BEE9F13D93DA3B43DCA9BC8D9C5FF121F203F638CF30FDFD82267AC46F887EA3824B -7D12B3F41287AA3481BD773E3C95EFC5AA951631180AFC694C53C60C34B8AA53CD5A086A27EA -42ED477F8A37E052A26B44AF51CB48AD39B7BB62FF1B16F051D5FF8D6330D77BF6B63D9E12A6 -39FF376B8440F98F6D8C68A61FA98222A98095C1BBFC8CC6BB6ECEF2FDA9CD30562C6505747E -A2E5D1324A582FBE6FB5ED12751251DC8C560E1A0A0AAF29A732B783E4C413D9209B7B1C0562 -6EA2E19102F78D93E31B660F33A725CBAD30F9A5F733C4565B344038B50D894208C5E729BA37 -D9FC5EBEC645EEE4402C27FF7A1E69EAFDEDCD9848E2D38CD0BBC2733B51208EDF5FB1B96D99 -8B2E1ECC55AEDD41B9FC3943E62F887F230A9FA7E5345459292C857DD7693E82F449737B5F4C -75497077F320AA9C36AFA72E36EAF5ADD2EA858F73FBC80D12378F4AA26ECD4109EC7516500D -E736FB830573F139722C8B4461D54AEAB9FC02A47B3BBE236FCA273F6527925F63383B2E2F27 -545C14B329F31BCAFF73659AA5F486A43D997647E23CEBE06B4BAA25C180078EA74BB557C31F -4D85C2257470180394A3C739392C9B70196A340EC278859D02519E8A3400FFC54DCE0748A38C -A5B25687CF41FB0CECBF5243487BAC472079B769E2642C290F25F1EDBBA516B2E86A399EEC11 -984CAF21E6C6F799AE218904DA51180E4E80AE15F246B03D06D1817BF0FB34211EC9EE9774C0 -F32BDDC4CB0901893CFB5AC18287280B9E7A9DE903FDF83A0D62FD75E50BEBA206AF5CA1CB7C -B936279AD263819CC6185DAC22943BA684C22712AE3809D7AA9B4D6F4369795257F03DF774EB -F450129349484EA3105EEE9257AC04C63AC58A28CD0FCA766E4EAF042D1E426D6F68DFE42F76 -B010FF9CFAC92B4C43DA45DF2068ADFB8871F8681A16C8A2688E0D0D7CD1CEFFD9F53E0548C6 -3A89640FC7E512A28BF6C7C786DB16DFBBD382DA926ED3A6A825553B360B6949BF1914F40158 -B37590729BD6131FEAACF75D29536CFC775EA8758162328979CD3E46E4E7E9CFD1E41A40F3E6 -C7370967303DCC576347B38A3CC53609ED71175C514DA11E251BC9BBCB4D0701C208BB884CAA -30F518783DE9553AFD6BD1221C2FE5C3BDE4B435014822036C8ED6296AE76BEC4B00390A603D -B50B177F8DE59E89994B7FAC9ABAB633A09D4D8F15D1416F2DAF49F76341FC891C28C94349C4 -412A5DFB84123EADB7D06943A4A8BB731FB2C9B6DB943C9061BB52EBCED33BF502BB42BA177D -2FFFAA8396C2033D27FDEC18E97B1EDBE1ADBC8822E3FC0D93EBA178B81E9A0C2E0C6A1A2108 -0535ABFCB95ED0B2569BB6B998FFDAE266D6F182569A08E6A17AABF1E75B9978F96AA49D9FDD -85AEFAAE39BFF7186DD3E57FC50203EE6EC6F1265CE1248EFF71C4FC871F2243830B990074FB -5E44A47072D26960AD7739AF4F88799EB9D0B6E1BCDFB0E6D15AABB1A2B04E259539565C2840 -93182BEC3987F37CE218FC019231CCD2D72860F931703DB69B947C7CE0610E47CD02A683EA2A -721D6CD2CD7459ADDB4CC54E2CFE5296C7B17CF3AE5433B03C38E07EC69840157EEF1DF91340 -EF3F8AD3E1BBE858814FCD5E802BB138DB3626BAAFB69ABEB343B377B96DD5BDC93FAC7B8CD3 -0E8A392D5069ADAFB7ADA60888B4FEDF876E1C19DCF72A684B37220AE60B805941040AD50AFD -9740758FD5F83A5E1B74BB916526A7CB9A82BC1DBE3DD0D49DFA8CAB479936223D6C2D9A0A41 -573E2685C42B4BD48C11201F35D98FC29DF8F410C6BDC28BE80E4EFB42B0C9A930AB609841FD -9E81484D6CBAB60BA84AF2EA7A6F55D7825343AF2F278B2F33EA43796C3541D17A0CD8E1DB5C -FB4C451D338F3CF9BF431BBBAA5E860577CE011A96CE1239A4E7094053BC4DFD6DFD496C0847 -49E3F900DD5FF0B5D6495358C63E5653BC627969A4B71AF74977B14A4905648D13DD0DBDA939 -2369197BD914FF497217626356094490EEABFF0B1F8691C7E305B14BBF10E66264FD9E4D5795 -A89253B7BFF5CDB20654FAC3B3E0B25832107BBECC4E118A352A38DD66D2F3B86B8891ED4E0A -3B7D43FE2E58D95B107C2E22A596B3B7CC8A889F8050D563109CC3F45E7D6167741A5E1BEEEA -C3AB3D2F569A9C5FE1F1888F04364E219A5390807C08ACECBC1B5ED2054EDECB4C265E0930B9 -EA07D50D21C1CB3816ED462E4244A25B8FE5AF18A9196B59A185D81F6B3EBF0CAFF85B5CCF50 -76DF75B2B75F22604D380FD357FDF4A61540F43BA08041034AD6FFC793F60181CBFF2DB634C9 -465D60D3DFA059C154D01B3281D34A61FBB8F73188BFC524994613BCC3572988393626B047F9 -1AA96D5BE6371EA36F5BFA51DD60D5D5CF62F5B560BF940D627981EE8653C8460D4159149CCF -63EA5E567655D6177AB0D4533CBB333DFAAFD082A04126B5E77150909C073D460B4EC9F28310 -9A6F38C954F8058DE4A5259104E75BBAD841CBB3D08A1E8734FBC00D38D8FA7B26134CFDDA27 -927326684C7AA60D8CE055BADD85005D34713861EDC650E5C491B4195336B8C193E024901966 -FAFF3A8C0BFCA6D5A9FA4D18A05926537B2C432B59017E591455A599D316BF1D0857358FE124 -D54FD5A9FD318B5CED74BEA721F2D6D2CF72311409850714B94C0861F070A81684AFB233AE63 -6F84BBE8AFD5809B5CCD9A584E828AD7177D64F032374CB78AFC6C5933236D30CFA69B194977 -B38C76E966DC905EC29201D32826E6B578EC8587A39DCCC98C0B777D06FD28AE08FDE68DB6A9 -5FA3FF9C23DCF019B4FD1B5253CFAD6245DF2766D2DDBF3E23E1A1881D77010FAC2F7E8F9F8A -C87CA52BA0169A0F5535BECA3B5D18EF7660183E68C226060B519C6FB4F68F37B13CE8F04B8B -8CC5CCDF5E5FF5177E4C8A7F8F77388E01EF27955D264F710C263F2649EA1C62563094DC30E6 -D1D4B0F4160703552967287BC17FFFB71CB101A1852EFAAA88A0B40A6E5308F0A594BAF33BF8 -1B601EBAAD18BD9E44E370C6D27D2563DD3DF8F7457B7D0405D38874291455E643187FA4D0BB -DDDE118E8421973C4DC2FB1B20ED74D0337C2F27B634E730C8528F991A684C722C378C31F3EC -0E72124EAD08D71C5ABE8BCF492F409F848C2646EC9F6B530CA69D34DA456AE6A97362E4D7C7 -9AD73472932C354E2ADCF3F8C87DF44F845C1FC86E9A7BF52A1E02804D581E4350F8FE18A776 -BCB97E637B2FEFA7AF18803270C7F76FE05F5DAA44B8166772FAFA976630D0CA98A1620E1C32 -51498CCB2781270060F5E547CCB14AE8A9472D07827AA6688E31122D269DD06EE18789B6FACF -11A391A561380AF543E957D32095E58C0D8C97825E93B7FA0DAAE5A53C6A7A6E3501E3F7E108 -8998359645F40C60C4457EB18108ECEFEC777DF8566CB2110ADCC2ED34B67D29ECD0A84175CE -7CCE2836C9F6D2B66465F3B8AD6A8F0EBA79F6F3B99FC6712F3E2A762734B5F1DB56AB43D337 -1578B99340496C0E35FFBA44A363C6A583A3A9C2CAF8D86225B8935827ADA893265E9EEC1AF0 -37EF4368802872F82E51011D39A15741E6DA8250EA745A6674C71915D4B7B87A0E43BCBADAB6 -DC8A11019BAD99B0F49952AE5D67C0B1FDD7B8C4EAE29CE754CD3E6AE0FF82024F043B8A1FF3 -C8E784DD09F9946A60AAF416255AD02DFAE7124E5D10C54A4FE0B83F9EA71F8FB4B4DD9FB035 -49B9B3911F81101C877BE0AE8F3E6B9FEB551CCB37EB4153675C9B62CFFB688D65A46254CDB1 -B80CB5ACB730D161683F97DE363C15B804615C38B1154216CED1E36F8703ABB3C445332B82F7 -D6321B01416F7098ED156337D578D057370930CA1E88D99B62936D36D05CCF733C3A6ED94EFB -9AB6C12358FDE5DD2C637896D6D0FD80DD2F045C66B4DE933919ADC8EEEDC64B41EF1A780FF7 -4B4F1130436E9CA759FCF99B22DB2DC5964BEA151336168F724232E7A5E8D5C0C19F133613E9 -F0403BE41A0A86164AEB76D537CCD042D1AAB33235BE8280860702DB9E62CCBB945E3F7E857E -918BC38124248A5EDB2A94024BE940B0C7E8AFCDB8374B9D7128ACD908743C9378043E91BF4A -CC7A65CAC32082C83AADB9398F743C4F20842FCE0AC21E4D2C823641D5A09C6D20C4E36465D3 -37EA22336D1316663C4D2A9C9099821FFD48D4565A157198C1BE3887AC78446A91E08A8145A2 -EC605DFD5FFDF8393D1B990B8140BDA08AB893F1711E099E49B75CD2934875B12CEE0F2E1285 -FF61393CAD2DA732C500B84EBAAD20625FEBC3D52939E11D15C743E283251CEDA63FBD2484FD -2C0E3631A738D70477C76B658F376F8B4493ACCA73F37E5768F7A33721F57F72ACE29AA07ACB -33CDCBB15452BE747BE1F9F73814499EFDC23C60A6D717349087892499146E7B54E15B9EDD98 -0161F38FA63D948DB21487357E5B05DECC6E7B01368793670B341DD720DC6DE08F57C505E9C9 -BF17702F61D8323DEC372FCDD142ACCD608E6D21F780119ABF52818320B0DCE24B307CA5AEE6 -9EA36E4B73BAFBA631619D345B336ADE490C5CA5C3C853AD921747DBF1AA67C4BFC80519B8E6 -3142CB58D92A9C7BCC60B0C2DEE7DA2E80DDBBC4874691A5C9EA41B5AA20674ECD1A4CEE8F19 -97EDE0B9264C85825694EA69D77C618F09C3FDC50A55BC8F4D6CC8CDDEF60B9DFB780CFBC2E9 -74B5A701CDCC0BF126D5C3F9F5556A3F95AE04D88D557D0CCE13E86B3AE1034557F5D8F972F1 -16514603A6068A50D5CCCB4F6E7B5B6B3B6113A41DD14A7CDB4CD401ED373228CC6B86E7636F -2F6205F06A1CA7C62D2452C10B5DB66B1B79DC0A034380DEB5C8356B94AB6D7D26272F42A01E -62362A75B462F2FCB4FBCC53D6840070A5BA3EF3D34303C1B85B3204EDFAB55BEDAC3770D27D -581BF70136247F0F0A6FA1E941833809C2DAA79C9EC014FBD0850379D9765F995B1A6BB4E269 -3DB6BA9EF06E959D75CB1547005BC6C75B2D3FCEB22881C0043F6BE4A4D1CA25B0AEC8142243 -7F51DD7830348622DD6F1D9FDD2FDE4C295151BEAC5D6C351EED10336A1631A17AA3AB4EF414 -742710D3A7B93E6352BD260D6A83424D2CDF85DAFE0ADF58D23F9A639C59618BA3A897BC8E6B -6ECFDD1B1A028CDAA8B90E323C664821CBA37C96E7F9EEE13CC623754821F4D2679D76B2F7E8 -810AC4E06DB0D4A20E3E9CB5FAFE06AB6A57154F4AE5FF706B4E2F9AED55B899CE024930B9E4 -BA460AEFCA21A5066BD64667527BC508C6EE6B38678C864511A26DFBC0652365BBDB819BDEDE -9C9654440CAA6544C3CDFAB4004AFE9708BC073814BDA5FAAF682034E05E403F70572A847CE5 -DCDA6C4643B1F0E669F5AE0646F894143B918AE971627198EC50E61390DC2438AE79DD86885E -B90D0E81E93DE28E2A1E6FCAF37C7E1AE15C5BA7807B3CCAAEC229C86AA5F3261520372921E6 -DD44F156EA9242C80A742C33E6FDC967E755B0C6564F21DF883129BCE213C5FEC831639E62D5 -F19CA001D313B1CFE6144C4BEC7E42AE6A882A080A2FEA2D88F9814B86A746960B66BC2645A7 -795E272BCB744A0821D2424A7C88719BC2BF05CF6BCD0C806CFF0071545F1213E40CE8D0102C -466B9856C597176F312B1E2A75C55D79A82E5FA08E17A067CEF1B435DABB063DB922BA70C690 -4B8A70EA972941BBE166E019DD34020146E518BD2AB9ED9ECFFA37139244B667086C82BE4743 -F80F7E76718AF745B76408CD4F91A611FE86C860CBFDAB06CAB6B98E4984519EE027D270C269 -00A78CF5521C612DA7778366EA83BD381467F0C76564DF7D16BDD36378E74D1C8F6587DA9EF0 -60F3113B7F02C07B85869708A947496E06D792FB0FFCB84943BC3F7BBC1E73AF8F6A7F03E17D -91F5DFAF967C9D4605B26B8D83F1349687A01716B34D9D4C5526DCD762E211906C7F82309822 -1328FEAD201FCEFD162F2DD43AF151E544DA301EA7FFB4CDCD8E4D7AB2907D7F14805F0F208D -BAA293128E45272DB99E8D1D16FC86DD75FA97417017B6E55B05F75B89815B3B3EA8F36416B0 -A58352E03B36BE74254F589FC93BC89B363536EA20103B43FA8BA7048DE455E56E5ABFD689C8 -DFAD3ACCF12CAAC3286F26FBA312E5F63ABBB0B522D1B24F47DC7E38A7BE6E82F92295E5DDCE -45D635D3DC715AB0075B264502DCA21E4F24FB5FE069A5D20DA56736E66D332AE71D7BB9B3B8 -FFB5E7242B9DA4AFE73FD525A62390800E67B407539CBF0D7301C5B6033CA723AA64BBAD0AD4 -77C1D634D66E66C5360FD7D991262ACDD745F8A4198ABB3D913BCE4664F9B74D9C3FDF68D67F -2064FC24F20801C55CC052775E1E8D29965B9B88D4869B5382C4F03F9151FB8B529B17FFF6E1 -6126A032DC4BDAD4A73E32CB0042CF9B18D5D29CC1EBE48C1C072A0BE141B3B57AA68B60FCA2 -E11BE2266B80E7A9F0D71E95E16852FAB3206772FF58D867CB67DE416F350C944FB1C309F4BC -73B9FBA920995B52D66D730A09B17393BE30244989129371D5F152CAD7B2A4A9DD6B0B7AEFF4 -F323BE99ABCB44CAC56144B48C2071E47EC1E1973DB9A94C599C5A3D1D271A122A3E3C9008D5 -4AA7846CF97CA609488C27C29AF0DA8E85FB74AECEC33266F501ACD07C1BEA82D7DD15B5B591 -2C0AF116FC42AFAB4E6A8D042AE22F9A11DB75A26C73A8E9AB736A7A34CCB313353353CD11A0 -0971A9C2D3761F44C2F69314DFE0C97F2E94C66EC7A3FA7F66E903A0C89B0EF64BB36997A34D -42AFE85DE55231EE3E4197B3DD9538840FB83A3CA4C93BFF61CF613732E65E17BDD4EBDBEE63 -AFED0758D2573C71CB93FE0A646538FFACCB7E16728CA4873A30B806BFDE26C0F601B12DAA7C -D54BBBC7534D8FC1855CEE9D083CC6B23D4BEAFAC19B5322F631823C0572E895F88EF01FAE46 -2621BBAEC4DC9209AB7AF266B9DAE2311E3524A0C82B87708DDA0D370F71D5005B48AD9E7811 -E1D6521B1FD8089B400DF012B1413E67DC301987AB3BD84E37DC343B03B810DC9C27117D0322 -B1A2CE2B23899C1635C19AC72BED67747F0AEC442A7D976E1B4FB05F8C44743FE968BB8ED652 -F8B97C54A3EB9B700EA348A6565FB221E0FD5FEFAC717826889A9332D9D0E85D365D3EA786DB -2950978586D632CEA0F0642CDA07725EFBD57C2B6D2E35F911E996B3AF3F25172063554AB718 -A2A98B395BF61F953AAD4838319F51173CB0E614282C9B0B5D4F3E0A44A882370222EB7543D8 -319A7C918A57BB18917DD3D3130E28D734AD24779497B896AB8EE3BC40550DBD4758014464E5 -C486ADB27ECF8CD325984385566069B0B582563F3E38D4DAA021B26ECC5125B9394361CF8586 -6698B03B7B07E0F28B96E343537BFF470364C7349DF1A25BC20C40759358446548DB51AB1E57 -A7BD9F599F2A3481241FBBD77521BD8A51542C70A49BB57755777754BBD5DAC8CE1540946D3E -DC6A11F9B6C3F77A719A1AFA129632AB389FEE1EE3DD1784A5E8E935986915960563EDE365B5 -5039B0B98F70016096225A2ECBCE59BC4B06E97F50696819CBF067C46A55E5A5DADAF65B2703 -9E84F50AF91E16BDC96E95D4A8A2D8FBD531850F51FA3F10D603C13AE0BC2686C37A6C993D69 -1F57F420E6439361AD58DEC653A9F3D5316EA9529806881617C54EBE9501430D3262C83F6FB1 -592B7940564F299E09E48B75AE4D8E885D0FD525D0C0694E7136323B0FFF3BE8595738E3F5D3 -FCC7CD20C4157AD43BFEC85D14001E753ECA1B76A3FA04779CCEF8DF1249AE049E5D62738F41 -8BFC1321CB8ED2500FF20EF3ACCD697BD2171BAF725B98274CE16E9181B08B9F6AF817612EDE -63EE9A000DBD3D6C4DF0AD3140AC9CA3736E678C26D854B724E85AABD9C3B1AE55DA1F9C7461 -1E4F77E9D0EB242AAF39F6945C8FA7728F13711603D1E0E18571D33B0DF2D48FCE718DE4E0A9 -FFC5BE8B72FF30554B031731BF8F90B1B3D21CF38513BB5EE7ED1555F2BF24DD9AC0CD2F5A95 -FC286DAEDF1ACD32EFA045A4EB6AC18E567EFFFF4B4820BFB5DACE61B914F013EA243CDE2DDE -65B9ECD5398C9CC6E40B880AB647105D19DDB00D65B68B8B02C4E8E68D2ABF785DE73A3E3A25 -75320A1B4F24EB4449609BD0FE79F0F3007A0CE8F36B9A7CDAC95A2936DDB7B9C4D4A61DC9F8 -0C27B28318D3AFF01F9D013F5ED45C2740F7D3135503C131FDAA6B529C7D1867E1723BAEE861 -CA2E6EA1C971A7941EECCDB1CCBBEACDC7EAE19AA0D75663AF5C7D9274CA5BE884DDE8424272 -D8082F2DA0D1943300B3C754080E674B0F107E956A538696750D65701825EBB8237B814FB7D9 -2CA577D0DD53C6AA7ECE346BDF4130ADB176D9F6D81F8B0E942A5A5FD819916D651942FDD619 -DF9D9B16804B5FFB7F487E51FBDA96544696250CFE8918781815C9DAD4643DC3F65DFA8EDB44 -4A874048892C602FEDE23335E8F00EA9A0E5FBB1816357C8ACBA7879E00D67B95A14E7052281 -0335D32509941DC22742093DA9BA0A42C1F71D35F6FC786DBBB2C67FE489CC356BE9762032D6 -9AD2926BD165B9C6A43EC30F0DE3D4204C62FD62828CC285DFE4461CD62AB2A7C9D7013AAB3E -313FF8C7D82AA62B6B3FC6FCD4740A7AD72395BCA9CA00BD9C819EDDE48992C218F2F58442B9 -31D6861E72A38F3742456D75F9BEF69FBD7DDDC5108F09AE6FAD6DB5E68D347F9EFF8B77CA9E -757407B5C04EB66D1C961F4FDEEC1AE8A98EA058C2FE29BBDF4132A4DDC928CA3C8C232EAA03 -8983F9D6A8C897D307D0D429368CBA7E452B70B560F540706B3CA82221456C1F896A97B53908 -053E5FFD4E7AA470BB20F8B3E5045AF0510B0BCE923BAA19DBA4C59FB56C824C0B1EEC322618 -259AD02CDB518B1440D85A00D7D8D4576099CA887775730BDA5BAE9EEB4A42DA779C45C20DFE -6CE526BA62A2E6827EBF1AD78D74150A2E88A1DD5BADE7381D95808AF8F0B8CA11AFFF68BDAD -6448E3B12A9B22813446F34484FDBA8D3DA1EE26DE31A199B2978FCEA142E2C3D8FB82286E89 -0BF55B099E93B580FAF90352E5CE80252AC66F50A4C6D1E9CC2B6B5D2CFC3F577A0BBD24D372 -210A1679DAB700699F46BB77CCE24C27E9E76BD65476CA3926D0BAE5B51348ADB3D9C7183B8E -0BB6D529A568743C85527C51F435722A7AD3F6744D99ADC6E45BBAA90FB5D641992E3AD1E130 -72DDB86310CD5F381793DBFB6C8AC137535BF8C362B4D43740DE8A53B3026A9FECC6BDA4A45B -926B9DEC32D2915672CEEC6A65AF29157C7A01CB9B37A6524B058EC8A0BA7B5030880B57CED8 -A4D646F846C99C5720DB52FE9A934FE64625DB32D3A6AD0F4A2C0357D72C45150A2213223C84 -81F09FEA678C6032A418545C72BC8E4A791EB85460B43507BF3854A45737220F2DE46E86F4AB -2DCACC433F98D8D85C3396BB48F03B87A828CE5990340CE3FDEE43478EE9EFD32C5A3903BDC3 -BC3F6F194090662522EFE138A7A4FEF3E6A077C8610BC2409E79AB9276BAD71F616EE2E50BC9 -A1F4F4FC88D86357E312D4BAD0AC6926E5B70C4B622BD3CBC42D321F24CB44836F01F318260C -0E4DB21B9DB87E8A48D133146B592AC972968EFC3778EC1A411DCF24C6515585FC68E5040419 -E46ADE0D1A8CE12E9AA3926FD5F510D975F8B541A932E5E543760D72E2F4A09DD3DD2C5884FB -3A004C82926F020BD76D5E36EA479D81A4F7C2197C6FAE2CB4E328458127F4BEC5FC0F29A954 -66088DF467636738DC896359AC4D7B224E43616B075FA04092F201D0D80FA2000B3ADD4DF702 -D30F5D5BE575D827FECA31CDC29559979850E7961583267FD757048851527BA60D4AF06501C4 -D7262B18748AFF9C130A75CC797D0944B349678CDC60E37A0364B4F45A5055655A150ABB2DD7 -38140DED04E652CD955DEF4591D6AE8D56640477EC4C5DADEEE3956798CB93547BED68CCFEEE -A0D9441F12ABA9C3F0105286D41AE57D8E6EDB0F95B675E0400833EDE3C9BAE709EC4EA82921 -8445E48FEB0AFB368DEDA71F48998FF59BF293603C685101A203AE52F404EF0B12A9138CB100 -00E4B19F4B958FC9C413E5FD262603A63AE9167AA770CD04571E4749076C609D080661B08C8C -605D43BD4A4C6CD9BB5CBDF9205C147B2573CF307D04E63AB65D1BDDF72F2B816D52AF7C2424 -57E4A398D21E9B5811929F002E6179C56415D8D7AE8E876D129CB3EF02B8E8D10B7DDA8C8FA7 -264A973DD80AEAB5E088919DA2FADDBE07B77C1CE53CF2B0C74157CB83B30AF9D2E9E08E88BB -77D098F428E619C8B0EC4527A81CB0867A11109E34CD8D7281E2F8776D036F153E0E570FB7F6 -FEF15831B1C735A34258214D9CC4D87DFBD4921915205FF566C1882070172FF777BB02128016 -CDAB13EF3C71157349998886DE9AE4E7D9EC993163433A376BF9220444B2B21BAE83D531BD54 -857A0436963B97895E81DA0BB973D629FE43A82C5158029DE6661A313C1459A4AFC80F54C369 -99E3CD80CB757AD1A91C767AA9A8DCBD4A9A1F72FF4FBECE2027400F62C2BD45070CA98880C2 -B18BB246C20302E017D8D13B20A3473EB0088B42BC8E40B898D2A033B25D48FD673ADB331E48 -5BF487DFAE4ED64F0FF6F19FBEAE344873B94BF0483D1620297F0C75BAEF5B3B084F5D1A6BDB -174E71D53ABCDA2C242E1D4B5DEE67D1AC7DD0CA49B8AF2A67ABAB932E106054B258B15F7E1F -7F2EDE5E1323DB23B3E84C7EBFE3FF21D6B5A9B085205331788768B178FE952CB8D1577E45EF -32706245EBF26537835AF0806BA6C10A10FFECF692F73C9EFE9DF45EC5FA91E429324DBBE6FA -6F6E8CD3B1A1F8CCF827FF8F3613B1EAC6E499A6DA594C0D58EB626BAFE2023EC5722101819D -B23E5952120E46D11305FBF4658AE81AE0E29EE81FD572E2F0308651237E3AE64D91708ACE42 -738F3260A77959C5C09EB8C48D77BBC54565665D2763D765F0883B8D509E99DC819AE636DA0F -2CC97C981D1FC2E711FF46A79D34C51D6DBBF91F9243B33C1B42F70784070674F6163AB5FCA6 -D009461BC9FA67694866375BCDD7D4A3F32AA5089F94EAC222E6C111F54B7CBF0E44570DB7DE -10BB3A0F8C15B6F2EAE1AFDFC192AE094D3C2F0806680CC0D05622F84CFA52A61ACCC7A45439 -F68DA0B5D92F5E1CE47A765BD3601C65C0013B6E3C692A52A64B37736E9BAF6C465990133A8A -B7F59D3D83867CF35F691231D89FFBE84B152B9F5845133D56B21B815912C894A771711D1076 -61F76A09E80881A08C8936FB8C2F213ED9F3E26D1B631AF76B0E70A6A236B97B57CB2DE62A6B -2BBAC86D04D14DCFD05A1B583262E13B3B61F54B46D1DE5D400000FC0005D3B29CE8FE915435 -A98801722F16061E0C6BE2DACF4C9A95E586D71C04102E2B1529157C1E9012D4E1C283796EB1 -16FD58DB78A5E776B237E04A115710714ECCBBEC6149CFE785FBA569411563B6A6E27CC0DA9C -F3C760AF5D4683A8914D95369B8281833050D5993C76FDDDF41261FF02C4B04A9CC6B617AC1B -1163BFECFCF4100120C9DE9A7690D38122EA9F8E12B00E899C6425730B93AF80F4C75475B3AC -9CE475619E9A0A61722216EF9FEDB581708BA0830CE500465AC278A2F6E9DA3659E9171A9317 -7615E57FE875B67C26D06A35A0122895ADE6A49140307BDB0DA71C3714C0FC218F34C9346521 -BC1D9A6A700AF327120AC07ED9B2294F5052EED16579094EB92274C3E9C155FAE0CE973CE9E1 -D5EC7BC2E55A2D4AAC34895F92D2EB850D85987610B21AB824388218EDF15C37029831FA3729 -035AD228BA9BC1A1A89BA107805E39397F9C6C39E280621C5DE23D284D2FCEE8E4006362BB19 -3DFF997E8295C33925C3251488F8607F62CD5E1B31DBA8B024A05C8C08A494C60BF20C1C6B0B -49AFF964A5D7EEE70372FCC7F64067BE78D35B476403FFAC8F2803764E01D95CA2F09718C804 -26D456FEB6E0A5B8985A5DC0BB0EFFCF2B6D1F9AED5A069F80656B069905DC124CD97A38212A -3936C4F4E10D0C31D7F65607E18A56FDA33739307613DB5C6A23A7ECB2C6963922E41B104F2B -FD66E04C09553BFD0F53AFA4C43495D1990ADDB60D3924A55DC881D2D9A0CECE4C22345AD38C -B3E7FE1D138FB8C7CE8EDBDE5FC343C598976099AD62CA8C8A76EB75D6EBA44F58B5C770DFB6 -609598427E545C02EC89C9FD8053004F3F3AB91F693CE3DE7B01E583D4069357A75D76F37C09 -635A26892232996D5764865E8DFA7175EE6FE95017ACFF302F452CF4DAC840AAE747E22177DE -87008F7CCCDB92B4DBF12F6C352FA520E6866C05BED7950062B05276B4D96103969B9CF09D99 -A8AC9C099EB50BBDF794BCC45E05496CE09A6F403998219565A555FEC536F4D5BBDA517A090D -0B67BFAB57F922FD0C27CE96E1AC02AC7FD7B88B6DE2B40458E319C3BAA49ACE54DF3DD618F6 -310EBD4306E2D9D13CBFE4F9F2DE6C0C39024844016EA07D23124FF232EB70B53F0B4191D325 -7D075B20A31CEAF725C3427074FE96FEB9F6465883008511132D7C46885A07E5AF39C4BA7050 -519E65B4D38780A48AA704786DEBA7B4B330EBE158AF624AD254A1A749456E94C602EFF0A977 -2C870F557EFDDA6EA8A10BE9248B48F5FBC0D8B393D379F5872E223B677B8CE32363578FFEEF -F69C5EDF1F7E91438D973E99768A134407C02B05883DE8FAD81FF6C27709905A5170F25E0A2A -431FA40A6B018F59C10B18D8FE4D46D2C63C4E60A967608532AF681D2DA344A6EF71F60E4026 -103B9AFCD9690504F3D5A350098CC25ECA8E12E92E22A70692614C33C588850A185E079875B0 -23BBD0F05261BA6361EE012EECE6D2E6F7BCB18060AB11338759959AE4743DAD5706A885B611 -744B36A85783822B11D724571D10E4016B3C3C136E189CBA8580563D9E5E569AAF11EBC0CFE9 -416DDC0D2A29D8B08BA1CAF0880C095CCDACB2CA4D7674E578ACC90D834BFBA7EB5C4C8A40AB -A549CA42AF6180A5292E9850B1E071372B6B6297D850E03E5FF8AC2D91642D390D82B001D730 -0E3EE7A86640CEF91A8D99EB93DB3F5909D032C4E96971E635BB7C91E90D83E592EAB38DFB58 -F1AD02BE7721D6BD8385E33064B2B22D4A8DBAD7BFEF45014EE987DEDD0CD66F4FC2787802B0 -1C975DE69FD86A1B22C2B8786128691703D15F2FC1E2B6DE0C8FE861C3B9182E43F66BDBD0F2 -41C8913B689AF91BE5FB7109D9E29B05BFE1A5E5BAD52606E85D0A955EF5B15A5BC34D645B7C -B2A403B12986FE7C3C1DD42449DAE23846A62B0658AD2138677922D75C0BEEDCCCBC3E0CB7B5 -52FFB89F1126548D55EAF1B66DB7452BE40DF63CD57A22FD8A6EB38EFD4546922F9355021893 -FB4144E2511935E70B7E5AF27B5E1749A1960E52E64E369B282D56DB767AD7C16232D05E0596 -A046C2F4445A28E07AA168291C01D1F0549C6CF0FC5D88A218AC9CE92F33C70E3652FE323D0F -88B3A80707721B2B54DD4191AA609C54C91B2344AFB0255A91FF86BB6D9F4AC84B96DABE42B2 -489F2271BCC0B4791C8297CC690C5C68B8F8C3D95331500A66E66A3E4600A10E97246B70DEDC -0663C9C67C4918FF523AE4911B793C0F26AAFD5A26C5998A97DB03D54DD837C089B58904C39C -71F4FE95CB1F8AA78894575AC14C8D10C2840F56F2C7928510E7D49F09C0875B2AFD91E07F96 -70FFD34A14D9AE40193EB68206CDBD2E31894EF7600482F202CB19E77C6D330F8D16F3CC9B10 -94006D096D482C0436C8BBCA4BEF08808012FD4920FF8836185659864368589AC9E94C9B9F6E -561731B93C0838EA90B14FB4261561CFF897E42523062911383F9188887951C53E96C810478E -29C223A19F66940804D41E01B4E7EF1AC847B51D580706B9D7D2B813D4D0DE97D7EE997577AB -151C6CF638019FA597B64A9992580AF7A16CE6BA589017D1BB86B43B0ECD592F61E794ED14AE -7675CE054D9519C70A80A9B3199BCB038DDC4DADDB53D84576822DA07B00CFED311EF0DC82B1 -D7511BFDFC4779F91B3DA36D4F585B395C154059A2725613A03F7FA733F7153E4885B27DAED3 -847EFC84F5F49568CB9A58BB21C8E73FC9A2A6DB58EF10E7EDDF0AC9B28F0C452136238125CB -C3B798B0F1259BEFC7AEAE5B3A43FADF533BB5B708B4A54EBE510BB6F49313264D81124E701D -8015B8187CA6C46B9BCB3B0894777E12F77989AB72769A040A0C943DD014024BDF579B4B5F1F -EA1CD54195D526EE609643ACE049319A7AFCFCEEF372011B49D2449355B9486F8C44849149DE -B6E8FDEC097443165CB754B387BA951A3DC565F94383C8177CA3BFDB0BCD398EC2B5F1C534D2 -C48AB6BA61F23676DD7B470A0C8E8CA77EE7C39296F5FC7DEFAAC9759C04C6FC4FB87EE1E607 -06882D2348E3069139B41423F695F83145BFD5203562BFC3D05D24DCB51F8BC14CAF104D8990 -1A51CD4CE65F9DC6AFFF54B81DF6DDC0FC7034B199D92DB32A9736615BB727C043A2DE9B2838 -DBDEA294CBE4B558F8A189E30F5B055F0CCF2D9EE461C6F07AB6AF85B878B1935FBA429B443C -4D4B967F26B747F7A1086811FEB6ED5407B80ADE7BE5D3F77F00B27409D627FB00B7733AA1FC -7B0FEF5FEB7548E7D829FA56DC4EC38DB398E0F490B661B3583D13B57CBED4A36F0D6094398B -9F2E795A003B98533D3797485D294E5AE139CFA3C2AC3A46DAD7BAC762807FAE98D81EF9A408 -354E52E30B9DEEA8716CC6434DC852824B36B479035456839B1E7F31E6D9E14164325589ADE9 -6A629BD38F692790C7F360DE1758419AAA309E7E1CD97ACD8830D09A23384FC3184ECE9F1B0D -670FC7CAC734F84E2E13982B9FC96AB1E1500E3E5FBA0C9BB691689138A57A8669DFF340F8B4 -88CD9232A9BCED68B568DBD5604CBE576C3B85945EFA0950B1CCBCA38DE5F60C6938AB8FD48B -C0F31D5EC69E91C9C297C18C7028C1D5480780DA896D4757E67074DD421CDC875A0943774B73 -E72B409C6E597D561D17F109FFD2F15A75057A52EDCD4036BF79CB480785EF8DED48BA747FF0 -8494A9095B1403A6236FCBCB2EAB4A562A2AE5D18BE4C8B439005AE9C8508D18CD7C4C021715 -A78CDC33D2E0CB490674B48AA723FD53A8D9D52B2D410EF0B8E0564B33E51547D03732B98814 -580AF4A2FFA21648F3E80D344B5FBCF881AF31CF08FA4C78D5FA9CF7EF6B2A7CB27E7C2091B3 -BBF544A28CF54D7B80C3734D8129358E7D727E3E7C6415D4A3027DED06DBF8D25BCC638451C8 -CD2533B51A974066B16954D701710DD121DCD5C3E23313F8F55E0D278D7BE11A66700D30C111 -037EB13CD00AFBCCDF3112E3178804D8450784EF2314086080980836228F5EA30D5E5833E28A -948BEC11AE423B4D6C4EFA2B376A9177ECE133A85EB57BF2E2EC183158D9C2D70103E7694909 -E0D465BAB98EE8BEB4042244919E4F6A7B575D397FE3984347F0500B167B4911978D1230EC22 -AC03DFBC9316080B309FDA31F34EF3D0423B07957A72A2E255E306EC3B3D628A366C6F10D0C7 -8A18804B9ED697607E3DB1DD6F3C39627FC30FBF62BFC04373824696C5194A3D735EB6CC2CDD -FB427BF1E77C891277AF960E70B9CD8B79C6DF15F2217AE881C320371CBC68CE6D0742D70BAF -CCD6D72632CE3D0ED26DA6645613059A88E707BA64B41CAE8F959973F7D4934CDF36C0EEC2D3 -0EAB74D0CCA12583201AA12DE9B27BF059984005E410786A131B165EA2FB09E96B495DCE7C91 -6FD8BE07123B6264AE41B6FF44225684B50F39CD0BE72C7C9DF945791DE9D64B53E5AFBD70C8 -35F9EC4418421534362A6D43857B651B45C009EC06604150A7587A0B058F1E8BF0A5FF1B41D6 -C3B7210D3219B3C001C7064A7ECFC940FAD290486816ADADFB3E992D2DEC4FCC3B65C7148155 -A0674C1F6D8D1B6DB30D67401B5C25E5C0ECAFF8C7132D0255B5D58DD96E8C619F6E2A7E6C87 -21BD60904F41AB8A1E802380150D8D470A84C3BF1DDC92B11BEEF01FE5D547357B856861ADAA -D8DD81CE7A03A1AB5F6A1E9BCE448B186153A376198EB6A6DCA45D3FE074A90D6FE5B42449E7 -3A02AC5E7B38C720EA43646E8502128B76A9216F1484380CD40CDC1541002EE9DE99A24A0093 -2498CE9190ADA5DFC70F3E31CE1310AA0E7A63A3C11D1796C50258E75E0B94CB05A49359EDA9 -21A4E12A6A3F801105A77651F118539136B38824C542EFA9C47ADCAA6BA8839C41F1A7EC1457 -A0E367D7559F656D37353A8AFFC427840474C2E9A2A3891B656CC5330C51DA3B9E316CBD96AA -020C9307B8476B218EEFA3AD404292C28E635A0D86012EAEC5BA7A84D8E733E7F42AFE31C7F3 -E91F91BEC1163F92CCB7A9BAA30C700FEBB2F265BB9E6DCFD42CAA36F4B99DF5AA650C2474E6 -EECF00C584A3C6A182563FA829F441205C8ACF53F8460D8DCA81D7DAD8CBA83F0FB75AA188E1 -89492C2CFB2C521B52F86512D47D40392CA4869832C254D5C4518E0B323789CF51D96C2DD808 -326C7EEF19427A925B40A5CE2730B239C0C3CF8D2878EA50F120AE0B7A8CD4B1C9D8FAF8628F -4992624C157A255F35A1663D0CE06AD38E4B11819F5E258F5DE09588E0831B0ACD4B6274CBB6 -585126F5302B4E568090C4FA6342682474E1AA6DD85642C66A04F0B057ADDCF1D46F960CDD59 -685756763C2786FBF465849841854194A3AB88A6B14ED26DC53D22EA8B92DC580692C3848A2D -22213F5D286855058343943C663F19AAD6A5F139E9443E015A7CC6AB71D569635A319BFFF835 -CA9B72BD5C8F90C254AD98B277A33DD77B0550797FAB37EA0974FC63A9C18CBA1509804E89B5 -C8F1E50106C765C93514C492C91B105605CF7A49D46500310F10622CD9C068120CDFDBD2935E -0C190CF26404714A62A9D33F143781BCD1E7F64B99988FD3F09A6AE2BDA166FE05490C8D620B -A7826036B8184378838090DE5604DE48B708379A9ED26C39E53B59DF689B91C1F8D184B4C168 -EF37FAD8A144054650E035D2C26787F369DD8CFCF6CC1D2CEB3183024768B524365778FE6AA1 -0ED72511761F8140B11ED569A36DC5B55A040C2803847BE55761CDADD0BFD227AB51CFE11309 -D3D41B75453F38229C4E011BDEC1B4408AEC5F4F29F4F5218651F83C3610125C68C6E95FAD39 -2027BDA90B78BCC09C8D0B6477E753A0B5D88A6CFCD86E2036648C2E146BF0823EAD7C780B7A -E01CDB4B4F64F646725860CE57C7741A98F81E3B7E614C15A04B26440FCEFA605388927C2BA7 -8FAFDAB30D7A2B849F8093B8EB1916F10A1422E72A76924F999BDDE29A7D4F67155046508995 -89F134FB86B97705E70EB7DCEE54CD5767B73596C643CEAC575272F3BFBB1457700A23B29EE2 -48424339334712419F418E02936158427D34E4DB691153DB2B99D27A043443ECD7360455E0E4 -38F98D58FAEF92D24209E19D2C8F4B5EDBAF08159B69BB41975A5154EDF54EC7BA9FDC6E1E86 -ABB31CE68D27F99368A9F72CE4D4FE2CB8C603C8683A15B591ADCBC931D36DA70916936458B5 -24154B3CABD02411EB7E9B81B6FD9024C75860CB44A02B8611FA623556CBE4ECACC1C466FA3F -9E511406DA816600AA4C02EB94BB999B73A0DCB6EC89406794ABC37E29D983BBE7A6AE48C913 -8BAB3F4BACBA06A1D3DC9508D26EFA0FC7932A38FF991619D9D4FB0464610041BCB7B66B5DB0 -C2AC15E980C17D87FB7239C3B8BD586CA44D125456BA17D87CFA4EC799B5D161FEA0309F61D5 -C51FA0B7169432AEC362BDB0B158A60B4B7BE5513B2438E6EE89AFCA620CEE8B2E68BE2B2D0B -65A3508683294E28B114E6C27AB1BDCF76AD0A3B2A8781C2D7283F11AB3CA17DAB03C5E75414 -DFAD1DA1D9F16D3D28FB783FB4DBCA823F3CF15FBAAF2F5B69683D5545AF3ACBC50FCE5E9E71 -CAAF5A17D59E35C0368D369F3DD25978D9763173E75F27CFD3F5FC074CD3EC3EED8E4B8C430A -7040E04D276B89AA2008C15D078DE4841FFAC5754B478114000E1F9E96B1564E6FEB1FD7855C -6A51F778B4BD044F33BA6B9A492FC9172D810E408178B3F6A91D009EA78609B7207B465240AB -474FD84DBC15CD202FEB6F4A5F3AE9C45720CA21CD0F81395C5F8EA9BFA39688BB222A81AFD4 -43D50898EF2213ACE51A23F802B016D3A9286186B71425D1920AC92C859963ED32D04DAECFAF -C9EE138A26F989AE8F6DE3B790D5BEB715169B52824F6C83CA43280B681F3357E8390A7815ED -63AC0BC505D94D10515089655753FB91FE221D4DBF216A43ED71F390F08B3A58962E219B075E -630C3156D2D187DFD49AE508670107A1E9B3165EE4EDC882154C3625B9EEE1DE0883BBC5D8DC -2A7E1DFCDD347E0EEC3B46B2150DE67F61BE54EC04C2D4F25E66D5159ADB783C3CE51E7353E7 -958626CCB5E29AF6BC546A68515F3C30DA79F0E2ED493D7CCDE675557DB696BDC0D6F19D5F57 -3E54862DCC9ED6E61142CD0F746695CF73F9447D5CCDA7E52038FEFC67DAF3A6D852D3B05449 -C61630615A88CA92A73177F6CF7B837309ADABEEE3D569BBD40D95EAA15F2C293B367DD5454B -7FDADD4829E27C16A66F9506F667EC98C6DBA1DCAD8D28D02054767415F6A0A8B3727AFBADD5 -D1D7F6945E76A448299CFF82F52D533C8D82D49E3EDA5F4A46FFE58C5A853D9128A30297233E -26E2853118832FE5F85323BA553DB4FC96FC35EC1B1F3596EDEB811FDA9FFFDC11498D15F4C1 -E6CE4B979AE06607578866B63B42D8D1417302106051683C124E19BB491EE8357AE52AF76A1F -95B20C29564BEFACE6D46BEC2970A8CD2F910AAF75E1DF7811ED4EC50583FF8F699232926BBC -F3626F202607BF41C3EE16123BF1C1DF5B979886C2E2E8D9F28EBC2B328CC835C19F229E6B7D -686DD098BF2430D68C0120674C9964B0E859F99656CC242149FACB10D8A0991D46819009BB11 -95B99552D07949BAF2CFDDF8ACB7E42922CDD37CACA1999AFB4F065078E919E015BD66C1D775 -18EA454B529867F2AB90EB5A3E0D9F64D8030F6AA110EFF664FC6E5B59930BEE02F24B348405 -1261DEEB7D37FBE433D816D48F976BA9223D667CFFD8D5C89AD1462EBC1D3C330EAE52C8152E -335B9B257B74682269C5E6E9A8F9819CDF94FD235FA60A6368658C0C67A3578589A939A0B92B -238EE837D62CAC4B53D20DF16A9B92CD5050B7008B1B031ACBBCB7868BB61E240573FF1449A2 -761271E7B5285A14F56FA42ECA9787F26EF8E2793D9F2A6901C648DDFB9DF67C1FAD3F1B5EEB -7F2C73F4839539627AFC8B8C592AD3EBE317E357A5C83F909C4CDBAA7A5188A205F9BCE94280 -E11E0CA78FF634B8BCD69CA9C639648BD4CC38D516C85A554F7FFD5C1A78DD75BC28971A3572 -CDFF0303C5C2E628FA54222D3F56DD9176A3F0A434650807BD81A2805FD3647EF4B59D2CA97B -34D96CABC2B79BD39827A50ED89CE6919F44173B600961602CF335F7E52E0FF37EB353AB9C53 -B210B0A92F4051B512D77B6E69D73264ED1B399C92EF215FC771884907D476D0DFA1FB924DF6 -DE16177E182722A943271C9FC80E848EA168189188B478C9289B37C3ADB960F61F3A8BBC2A2B -F6776C711330DC2F5485DDE4B9D40F634D8D106B365BE229AC7559925D863E49C58794AD4B7E -14FF038714E16E0214CE0413ADB392D4D3ACFDF7115ECCF27C1EE100E2A59A5A08601E3D091A -526511EFEF8731FA9A31F2918BCF7D7A2D3454D090364258FBF7D947A05CCFE84D6EF721A392 -52BD2179FD32EF4B88E6B855280D14CA4F3AF7CD7D03C67E5C90513D97CEC4152FF830F8BCBE -6A902A96121BFBC38A606EEA49821113A21DC28082BAE270949817C228F57243880161AC2B4F -0538B99BD4ABD245E8EC2062EB3A766F57BFF8BB7FBC43D68A2EF5CEB6423FC9C6CA67831748 -401EC506A5395D10EDFBCF67CA51F12947D48064A5578A11031B79DB599768C417223E36453E -1EEC14D1A5E01ECF91F92CE33D610535EBA8E8FD64F61DC1C5EC1FE52329EE2352E14602EA1C -10EE3E7314A96B745FC2084F28511C65B874EBE0E8F19A0EE5154C6FFD01384242DFA3B1458E -A90D6875051CFE72CCDA82035973972E8AFF1D6C17B375F4788491991F0AF5C2EABB7818D2E3 -D9302913DB34E9E671CEE403AE0B6697998B83F50F132F423B2716299B3B509231960DAB656F -98F6FC045882E81730DC444287BD1B1B0BA4308AB9D5818DF12AE4A31618EE4684D1211290C0 -FFC2C3154DFFD280060E3B09839EAFA4B9F8D4FF1C45816B9AC1146BC2D6EFEA59317BE0BA9B -2B6C4E56E8DDAEF49C98A53949E5CD63585A1DD0D497719BC323229481BFEBD819847B08DAF2 -DB7652B33D15857A8D832D0844B1D55E8CB5F250329AA92ADC484890382EB77497BF8E8843F5 -D349C100215D74B899165789737118CBCE5536957A0729DBA4E1425FCA2B6C57E5B716037460 -72C9E2173C540B4844A95CC09E77408CB31432928DE4D7E535FCC58906D0215129B31E37C724 -F2588B51A642E3954E0ED4BA89F1A26BE138D360EE19DF0EBFBE94AF21527F96BB0B859C837D -FE54A5F62572C7777BD59DBE7DF1484FF30A6016DC673377DD64DF72F99EA0AEC9709E21F911 -CB76361FFA0EBFCDCECF6323F6F1F5F32846D6DDFE87EFBF7E9524D1749264BD792F9A4447DE -3EF0BD70A2CF5947183B797CA67BA1F2CB4098179B636AC63291F95974FFC9D9A0ADEA305C8A -4F603390828389F0AFDCAD5B7EC51FD9885E4E81138456068D2417FC52FB6E845035E0F59C9A -D04E7471CD8B0A674F790D5F0A8AD2741E4A4C778E311539D08492AD03BABA27616044BF8C25 -B0270CDA37948982805DFE7EF9A9D9A604B7ADEF559A37786872DD642217FBB9D103E5A40BAB -2CA8B4F445ABA973E598B8EFFFCB29E1DF2FCA560A0A34998B7EDD72AE90EA4AE7BA338868A3 -94DE1B9E5FA06490123ADFAB332D5A94DDDCA79B60F842038C10A34FD7DD94192E5AB40D1DBF -F6248483DB1EB548126EB2248022631FEA52FA5962A404CBD3B7E8F87B8CA34BA34EDA78C2C2 -87675D73158FF098E8BD0F19A73FE4C99447A359F7C213EB28A4FA8602A55C75F584AEDB192F -38C1313E9B725882761EDC85C898EE48C642129A027B78CD06D1A7739AD4516D112A47536ED8 -C92185269AD4623EB9DF4E709089C7AB958804803A5143773BABBF1503D6AF3B246055CFE846 -77942FAAB4C6DF4E0A8099C89A1EAA0795D420C95456A3914DCAC80B2A2EE27C792247F066ED -F65325FBD4B2A82CFAB80A411CF1E2E16C66CA26EA8970DCA4F38DAC85EB0B2425068BE9A279 -450B5BE475DEC61065D69A58743479E14680DC750AD200DEE277EC79413A2C1F7CE23A46A027 -B0BAA624749E1DE7FA6FFDD4C4213972349C8BFC1CB6125412A6672C02BC6EDECE55A961D9CE -0C83E3F249AD409BECF3A90549D901A2E37E4651AF169DE78EF396286AD9AC3F56187C039BCF -1DDAE5C0AA08FBCE8B34DDFC8785D5870A846EEE33AA82D01B40E932F07E082A347B04B37F5E -2E2CD1BE46F1835E62DFBCEADBE627F18CC0E46E8B488DB9C9C4E597D6C91A5DF0AD1F1B6E72 -E7289A66252D58FCAD0361AD9D06A95D103528A79957F0CEEF0C60CFB9F48E5733CE1757352C -98B41D28974481A6F16B37444B65FCFC9DDAAADEBF359BEB8694410DD103C23AE1D012A58704 -41677828EDCED461E891E5A0BAF35231555B70B28854F94FBB362C191858E5F61452C5ECC782 -0A07C62E2A1EED7C4D0B6453670B7732E7A550284A2751B8BDF1E81F9F4B0AE91758E381CF2E -D8D90E26ADC3D1F64264C6C6FD1675A8E51AF360871F21C189C9E9C3BBD1EF03D40A7A8C3AFD -0F2590682FC34438B01FBA0718B72828680284B5591A0BB88043EEF8FF33139EFEF9342218EF -6E2D415B1AA7327D078FD392A8F6702921F77A0C5EECAA46D863E3E2FA2106F299A58E48D36D -325BD229AC40DB25AD9302B2940768EFADCF493A8A0F9EDEBB178AB7210155E75796255AE185 -F20581FA7F653131DA3FFACE3365D9AE2A65811A3CD8B0F25B0FBF27B8A481EB30B3F7DA7EFC -0B8F6083C9B5F1C99AEC62848D06066CED1E8DCD8AC13FF293921D96099D8E27196F11E5427E -ADDB566CC697B66F3035E295DFDE0929318C45CD99221BF7521630C5B86475887186B3215C27 -167C347041F3F3F4696D0760BB61B7B5BFE5AECBC22AFD97A53B0A576EADD0051E803F6D3B71 -89793D359DCB18C6FFBC9FDAF24059FBB3B98786F82C1F25E7A89890BC1D32360ECFB378D1BD -D30742F7CEF90C568C6AC55691EB66E437DF0012A6E448B7BAFEB0F8646B6330088EAB2577F2 -5849446AA7BE23C438E7C6DBF7F3C01606F054BA2DDE742C44864B9DD827AB3114C1496816F5 -0FD37D9B9AEF1418EF44E7AF26F1E7EE66F4F9C0D4297A68C4D0FE3BEA4816F9D1FED363BF08 -779C31194CC6E43CBC93A24FFC973928782826982E2EE69633E948396D4C18A224726B7F060C -11B251870E047CA409DA46AA6B54BAD3ABB19507D5851608DDE73F16D7ECE480EDF991592EF5 -057998DA0D8879CD08DBB52AEB2D5B2272685CC5103920D868D54FBF37AF9AB039E879B8848B -9B5DB12F70B56108F312C77B51D61E7A60E58DF12AC8FE6C9E3BD8E97E700B4127B6F7F75E64 -872B4EA60641D3B889C6E75368DC12F346793830D2D6B6631AD83691BA84DCA7B010DBC81B87 -241F0483D5285DF448C6C2A4C8322A8F42EEE43A1ED59DE042CDBA8233F3FF18B2523E31E44C -A87C4E5FB79BBD7D6666D737CB3B0EFA10D1F1652674E24838BF99B0D654020A3DE4F69F6668 -9760D851EE7F0F17655A7ABBE6C3A57EEE23AEF62829AF8BC9C61D67B401D91F38E5D5906A30 -FF3FCF82728941963518732C0F1E12BDFE656DACD2149183BCCBBFC630E9C0A6D21FCEB551BA -9C3E651FB1211158734DD36EA9EFA6837EC8AE4D332BFB36BDCB71D37CCA1A6BECAB601CBAFB -C754721764759E3B07E478860F7449EECECB6308FC93F52E497A7DBD5191BB3756BFD0E7C59E -9216E9FA72F40EAA78B2347E4A133A1100EA807B788590F6F52CFD2096C33E600E67B8FE7908 -51B1D577176B41090040A49E131404F3CBD322DDDDC4985B2049177FD4F98F3B297E5F08C4F5 -A36E17AB1900D4744E39B9D1FC8A84673EA106CA4FB9A1FA482E9E78645C4DE785DE5FC17B87 -0914E82F3A90F112074A056A9D5C638BCDE995C6D6FEB32A24EAB04B7A03EFA1BDFF0C2C8D69 -04F9D22EB4C76DF83665DA1C07C6814E363F9EDD83AB0FB6A57A8D3546BBA181DE68D39F2862 -C1A4DD67AAD0D31866A652F178C329A30834C87D19B8F2A7DC10ED02573CF15129533BF7829D -C5BAE9B19BFBDFE9813ED78FE9B7AEB27E5D7CF408578B61D9C545CFD4D996B18183164C5299 -7064C2CCE2740AC5E604088DD4F7CDCFD178D25FD38F1144E158078DB691FAA27D368B48A61A -3B5D628974CA505D859D41BDBCC2D40B28BBA6FF40332AE88EFB9666784C1391B1E8172C9376 -8BF36A069C37632D362C37E700ABC19BC41E33A1F66F931F9A8C0DE2DF233A8BB1EB300218C3 -536612BDC142FBAE52CCE9B456939308F30AAD4FD24AA60C1331DC1988408BB1092AECBD82F4 -5F3984B0D2BAF91BCDD3B25234B11F2A8E7871F0460C983E6B2ECD098B3488A2782CC2B1D8CB -A059CF2EEDE6CC82C15A8FCBDF2A88C52082426548E8363BCEF01B3DCA2A55A9BB6E785E3725 -1468159CD601FA67A977A245BA9F9B645C58873EEB03B20C43BC7D47CC2647F4D90D58EBD6D3 -192F349EB8C0891AAF352F52F75B68FE6E3AC5E14A25BF9820534E8DD94539C69CB501239B80 -87F4BBC52DC1BB3AF39550471E65D1907EF416316B13ED8499F0CDE8AB8E12EBE71F1D12BC25 -2AC66A4C5475D6E16880107F196FEC9E008F0B97498E06819BF64CD2A28D8CB034F525997E45 -EA82F25EEACBF4FB40D701CBBB20394BB12E5156DF6053BEA6F92A6C828244E6FE909110A9EB -1A56637783CAE12C29C6BFA7AE03C599C96EE9C2E2283049379BB09A9740013734F69D53F624 -9EAFC7D4A9761CC2F083EB471ED8C92053A9855C3628CEF5C871DDCB3F5F5A28AB6B3183DCB4 -D539D5EB043743DE628EC9B1CAFDC8942A54BF81FFFC3A1E2D7FAB2C7BBAC771D2B554C947E4 -12DE48244B9749BD59F9A694702703938679311906378BA2FB534D6E92B4EEF296709E0830C8 -35F7F6EB912F6CAA66C71BA9C1D5AF3EE3E4F3AD87FECB4CB8EE0FB2EEA8E6489C9ABBB26D2D -5D0E9609FEDE622CA57E21F3AB7EE46972F94B4FEB6C5A47FEB19FE995BC3578880F225107CA -224BB765CD0A397541A25ADA016CB9445005F12A0D15463867A7D3A4F1C9347307D50A85CC85 -5B9B0E6CCE8A84AB0F3465A01594F9F8746A07D9A54C7F37D97D22AF719128A3451D0F590675 -ED4BF59A5470B2DC674C740F1DE15BB3DFE2657606A98BA86AC92EF9F0586974528821AE57F9 -65FBE57E238E5A0896DE594935D75659BE9ACC8DF2DBB317B1CDC88078679B8131638A29BB39 -DD91C1DD1B22DCE5335C7AC44DA762DCB07CF6B8E8C60DF812D8CF9F07F4981E79A5B6B14CA7 -F402178495E31D0DA40B026D1175F0C023FCD30D409E705322479F68D9DA883CA5BC60AEA820 -4A166BED2093C73E8DCF1DE0BB5A811823212556673BEDD0AA4DA9445DB40729496E6315EE48 -6DA70900574FC341C36CF82DBF3AD8736986745BFAEC9CE9FE9F78D4A22328C02DAE418B3F03 -AE956E9BBCAD2750F996C10A8BDE3C20C04BBAA0F4DC782A4E51D93BEC8878ADFD6AD6F1C906 -53C938D62006012045265CC682781766591FE71B645B5B29DEBA407449573417AD77C899FE86 -E5B74F4B9E917441891DAE48167A30571795B584969FE6861B83C49B3563895817097EC43486 -96BDA102272DEAB512B5A5BD09F0143B8271F9595DF064225F241CECC4E8C6C0554D720B6266 -4440A1DFF2BE8879C710C48D75E9B14DC4B1058F06CF514B2C7990C81AE7474634AB330C2C7E -E35D0D1CF317E13DE06CCBE706ED3F5E1479C3146D047A3A719AB8240C2FBA04FD2420A635F4 -0D6BB22ED55C6F43A7616D7561954477F484E5CF75E9DC90CD3FD07D4D917984FFDE43B95108 -7F1A94210A1ADEAC955E80D30A98393F42E7E94C99DFF7EE07BF7C92F62FBC098BB8F6874DDF -80CC38EBED99F5F64D2B967080CE6CC6829F2A3CEE28E3E47F6A87DC7826D5862C618DF8754B -D1FF6139CC1C3DAD575E04A332A41411E24D19301047E9A6D5B5EC65C8D63DFC323D8B44F979 -52CD9FE9FF7E828166AE1CA3829EACA58E3C1B2C43CE568E3E0C57C9ED05AD3D1E54E32D9E75 -81D407EB2DC29D5E72F1167BB87C8F46047DB1C0BCDBBAFE2B52A168D79A95D6E2C48FD0EF9D -E0AE1E34A1C295BFC336C42E95016C5BE41228690B167E751E76BA1504E0C5181E7A29DCF4D0 -54B8E0A7E8141F4B17F7756A506380CE00F9C73F31E2BF296C74ED375CDFB5317BDAA17BEF52 -4A7E0ABEDF705C92B665017B2623B082F4BD2E194F5CE94CDB2A2772AD0580BC14CA70AE63A8 -BDCEC1069F24DB0963FD6D0312A873407497D58D5351BB778CE6123502C5140929B1902F33D0 -61F6270384195F60847B065EFFA3008181595F52E0D4A827704B2E378F2C2E447CAE54595CF5 -3EADB388A47E18E241D85016E9E68CAC87EDE0366857CCABDE10FF78405FAE23A0BDA41DBCA9 -68817F6E175FCD441F6C52C711AD58D67D34102A25E12F043650BA339CF0580A6FD2F0BB8AE8 -1FD0E623CF87337926A4956DFB4B766D6DA606AFCF210A8DB955937701C0B971B7429E0ED75F -628E28DD052A3D221DA00A4E591F4A77AF08CF96918883D4AE867A7503C7E68177F3DEFF7EF2 -3F86781FBC5F8A9BEF28A11624B28DD3E840ADA704AE19CCC47751FFB6A51CD554FF66292D0A -B2DC3D90B9CBAF3CCC70C2B47FB7CBEE8CD82313CC611F427FB16BFFBB5BB2D52BD65AB97A28 -75EA98943794620128D14A29EB11EB6D2050CDFE8EB349879B3F3E907E43DA92E8A91147C881 -D18342835CA6DD096DC948FC2E1DA214A8925E9D7A22A00AAE554FF07B061AC68895F835FD9E -D15C05BCE07CFCADBDAF286A005CC75E182CB262161267A633346BF725A9A0A04B8EF94C217F -32C1D32369484B1011EA7C2B330B110B64727D0CAC6C64F94AADCF1524C511E42005FEBCB553 -E2A74540129A8823224D1FACBA76E9319C8F9FD603A29FB1F94A6BBD96DE40F4D60A1FB21DF5 -3D60402BA42B8E0FC2D285C6B8429286295E74BE626765980412800110B5A1279EB289722E98 -897DBBDE4C8235AADBFB2AACC84BA5981E8DB24F16BD13794036FB00FA3781F4CDD0111AA799 -DC890BAEBED6F286A64108F4324C63853056F8B481B1C1EFA0C90B254CAD693B860A940AD23A -F903BA06774AF7EE2AC7F84B6D28DED16C69052A5919C9EFF59C50EA308D8F513DD23C603068 -2BAA4FB3DE5CB8138358525257C3F9805079ACD9212636EC7A14EE6C636392FEB3E8200F1A2B -012659F267CF4FFBAD5E515E0B84D2CD1AF4CCB0E80E0C2A040C122823DB694C5A763EDEEA60 -47327A7C6DD6D27EB911871C2C631CD3F9CD6F5C6B88A7B184F1335584B658A104D1ED06B5C9 -26B36C8111698E374FF3F57A17D298DF41285F39D9094586D3BFB479C2E8EC203227ED96DB43 -08CB7B9F09153360F74A0844EBF54186F9DCAD23B1E43545A250E98CCDD7FDD43E834C1E31A1 -55D33C95814B0266BB2EE2BAACC2BC51A82CABDF8D5F43081D799BEE94C8B3FA4A344E10351F -A06AE12C2C31E41F2F497ABFE826822A7BC55AC5B6805F09BF0D69DEBBE97794261542FE0A5B -F91A3D1FE29A39756756A688AD28233BCB01B66B5077C31C6E80263725F2058E4C2502C9B1FD -F5B37F6C938F508B2FAE50037FF264AAFB15565B6B757F574CC4BB3BC9B6F7A1F3FF533C9FBF -104825F998693F151C027210033E8548FDDBF9B377E775D66E1111BD3C9A813E6E92ED4E2A22 -036CC2EDCC38F1EA7DB9C1A889327A3FF08AC9EDF551E15B26943083CFD7B0DB40C47E347099 -74784ABB5B24B6573B3F3E20CCA4F2DA3A567C5F2DA5C1B3077A4DC373ED8D462CBD31036D1A -45A61EF33E4120BF00B816A6E11EF5E8D92CBEADCCA93C35A46F3C2BF29A76AACADD4359D328 -8FA4D50CA3B18687564E9F6AA92E24B8CE880E794ED254D0416806225C3D705298F5BDCA3B08 -7B00E02B3F650927CCB2CC70628C2C1995EFD5471B7A2E074D65E07527824648FB49397739D5 -49DC203A36DEEA4087D174CB8DE80A86D95DD097EC18FA5F5B46B341309348755BC11D281ABB -5F05E7989CBBC6CA86168CB794E82CCBB29410BEC68F0CDA748729553D3F4CACAE0C73471735 -AFB7A279D13C2A55BD91260337C71BC4F95FD3CDB812CBFCF66542603DFE8E15FCD860B7D4E8 -22DCC12AC4C662EC5F7B95BD0B8F9B0676E4A87DFE73FFA75DC03FA69D109DA3FAA5F23236BF -21D0E43AF41D4DE81409C03E7F60D6B60741C951474E295126241CF9923A851E60AAB36165C2 -2AEEF0744A898173286689F4BF68F8C6056D93260BE37AE79D83EFDE31F3BDA46EB7D9D1F8A2 -CA5A6B6C65EACA53DD625AEC471AA9D8B171E42CA2C815BBAFA1042A56DDA5970700BD64BC2C -9DCB9C54B0E5B0D6A1AD3D770A3ED7136E06F651B1EF628624A3347C2FE02947D22A8E0965E2 -905FD32DF91B3D0D6E79725AA62F63F1737F87F12E42785661B2CB4D5C15AE6DEB82049171C7 -DD8E233139678149A4E57C79D4019888F504D2D815399EC1E0AC02DF325BFCDDD1F2088F8666 -8C3B776B579C8E01F78005B9EE888A1066C53E38038E81C4024E3F49A7391E4C026D2CDA3EF1 -46B1746FF6148CE490D49973D78C080F740079E6D1B312B28675D082C6F2EA52A26FDC7AB2DC -124A1689B34528326A73F07F85835C65A3DDEB5E010439F28C6934D37432B1CB9C5177CAC63C -39088AADC5CA4F0EA95CA7EDDAEDF84E50C507AF7CA15E742BDC8EA5842C88E7E57F46254EC9 -43AD2A4FC2F932AB954E7365F4C351F7DB3435E1B6E4B943030D8E4D9D4E6DE43E14A76A2307 -30512705A48E2E502A0BF9A649151718CF6E91A2A668936597BB93471961F2453987170443BB -8AE7E1C6B2712AE465C742BDCCDE5196A55BFFB7E820F501D1B21AA50D9D071CC39714351533 -9E7EEDC62B913F5B07B53B494DA42E06DD5572612164D333AD0FBD00D70DEECD4714BD8B1C5E -E30191596E94A475F669B174D917CB899B587743D9101458B789E97AA4778CF0F6FCFA1B7EBF -6F454E4AE912A9685BFE7527AD4064808A326CD684ED278A6B7B710FFFAC3D9FEE59F5A66289 -0CB56472E3A882584477012594D7C0AB8814AB97FE68A61D4AECBE0A4B0588E06CB839415603 -789BCB941555E0D7470CD9ABA93DA31B0DBAED80816EEEC8A34D12EA5B8EE95EB3C66F4E07A1 -D409EB96E22224DB74C01CA2EED1EB0985ACAE003B980BDAA10CD7B07F8CADF5E967FD202728 -E128ED8FC717CB9B352E4EDC67F934903EDA4185D8F650F43A7579A77E4D0E5D7A4739098D36 -402B1D5B8786F82C1F1E0288274126D2DBA06CB803B055D6D63E641F462554755BB9B0CB6839 -CCAB4E3100163CF3A8C83BA85B05D9BEC3D8D5078D5ACF552E502AEADC0EDA45C75C77C40337 -82AB66E9D1E76BCC6A0DEF719E10536F73073984B320D76C8F37A58EE2C194E0299A0209DC23 -76F23DB1E88AE7BE87B5AEE85FD2E92685D0C4E4528FFED2CE9760EC9E6754600A62CF6B14CA -027DDD8AC31F5B7E0815F3E5F6AD831186AE1C5B02CBB6AFE6E9EAB572171E86D9FA6997EBB0 -7BAFADFF3A425F2BC7AF37DFE5EEEEC52C7D27C8ECF8D6445A4269F1E952F9145637A86DD5A0 -BC0A529A6CEF1C0CF080AAD6D64332C602A59F791EE82ECBB475B82F36157A423B040E8040CA -4CFD8830E5756F92B84802450E44D5AE4BA759578CBA4742BD319550CB3513E2C0B4AB2D0401 -AFBEAE94273E454D557823301FB80E9F250935A7F8190B6D9FD15800338F3EB7799786AA5725 -325ACD5D01B2D317B461338A5C1FA380E0BC0C10DB08C89DF3C59C5C135951D3D5FA8848C9CB -240F9BF7C5386159780C092FB231E9BDC19D581D3BD3365662AB0A5ACE9FB20AD21EC0BF566F -5463B20034BCC4C4260B2CF2FE438A4A552B0CD3A6ADCD6AE767B67187C81CC2C7D01131C9FB -758CC2DCF329CC96E9EE943593378AB642D1BDA9AE365CC8A4BAFBFFFA8A5464EB3D4B6C4CCF -E4056945A2A4BC2EA6CB6868AB239B55AEA85CE08218197D7F5AB5FF6BEAAD68EEB3E09A5BAC -D4D40F7DA27335301F631D567BEB7833B327E6EA0520CCE262FCED078601A90555FD58788C5D -263E29310A5FD9C5C68762E3335996A7301F35AA1D302B4C4CC387C2DAE1D2AB2010795FBAF9 -42BBFC6CAF22D6F62C50ECEF8E3E8CFE90CA0E831FBF8D18DE72EF2DCC8E7190A014E5C683F6 -89F1C851D33A6A13D014424AAFDB5D58F4F20D8814C30FE886E3DF54DB48AC89C1BEB7C242F8 -A443CE95B7D6F2AE419D663A36ED78994CDA5972410AEAFE23AD531FC2525D41DDC70BFB731E -E20793785A2C7E32A48C489626DE56E01BC69081497BA0944CB01F7969A1A432509ACD803B38 -71BF0FD7C35EB0D4C1D223A6089EA5CF9D66282514909B0D6B53FBC19121C57B0488DF664468 -49CF39FDB90E3AAA3B0DC649788CEB63E8ED9DBC23E0E15EFD4354580B802BC8F251A6517A72 -20716972EC50CBB7649E6F943500E77410A768936D1F02A8E973C2324724B3820AEF63E269AA -F0211F7841F31004BC113310744F2E8F187F3AB8E1827AE0485B1F80994BC1331E5F9B9AF4DE -A238BB2CF767AF0A3B02626897B8E160B9AF3E2450DBDCE19CDC45B489C5096CB6A17A087D9F -4D5097FAF3D631B73B469EF9113F2F8C15467170B9838C88FBF8FE47B56BD608B18CEE0E9990 -F88E22030FBF3DC09F57C308F7A0FA0329303E2A3560F3C8D6ECC7517F3BF4400528850C6636 -F2D815FE04E73CC3FF3E0AD94EE8D5FF4A3BB88AF81B4B83142ED118E18A3678B297A357DCEB -AC141E9729DDD097218CF0CAF6B28B02F9426F4E4A86D3E748B3746B0A730502B04A1569E507 -2E01C26424F5FDE3731C61F71B51E44DD2570C1B9020129BFDD96904B7F843C2506CFB1DCB8C -5F362425EFD20061277EDE6F7F587AB40ACD9D64FFEE4DCABE8E0DAC925EF636C6EE2DAFD640 -B3C05CA8BA3E0A1F10B57B3E73241ACA7CBF0F888E1FBF1A7039C20D641BB183BD6C451F0B72 -33ECCCD2C17C45BE5D880CABC11C763F5D97135F322D81F7560E51F0EB90EBF9122BAC1D5ADE -C39EA1FD8E7D6476B1980E4C2F8E06573D4825BD182F485F56A1E1189F14FAC45711FA1549C1 -A5973FCD328F50E4D6563D5A1E869728397F6DAE520AB8C6A50759469EA5F8BC846D9E5D2CD1 -F561B160792EB7BD1E9A34BB11318A91BEF506FD5108AD9EE611889F99E78DF01D0BB9FDF01D -010EF2A53D1518AEBE00A930B11DEAE4505BC2F7FE07C8323CA3F5B28459FF91195E611C9CFF -5D74761CCFD186420470A5E9F4F17823CE457C5E683112DEA7DA9A2FF466F630F199BF6E4BF3 -3B32A3949F2C4316FC238CE6FB4C206D21E2A25AFE2E95AE04AAEAC6773420966CF448DB3E42 -1F40ABABF86F3881CD9EEB6E95C7F5761114E27BF12D717AECA2B8F2C5C895D18028B26352F7 -A51B7DDD9C4A44F82B270B453B4D1A7986AC1529301C091C38AB06C802E09AF4972C18CB7542 -16F615A0BB81736D7177C8B8DE4E69503405A417F06AC56615243C3829CE43A4A463F22E939A -9FA40866F54056862A647F6452D2A4A2049B990FD72F97A2091201C6648ED968D3DCD86EA3A7 -FD64FBB09E02EED37DA03DEDF95F9203DC98350479C4E0C8375547C2F40E04AD9394A0269287 -FE92804810228945DD1B2DA7C0317C77772EC72A8959A746AFD5A76E3953A098B04DD9B25C9E -FF457846F4C0EE304A4FD5DFEDED3130DDFFEC042F2BFEA6C59CCA7C366C89CD96D6984D85BE -FE42BCDE78D5E2CA34EBD362E5755A6EDFE7EA9AA03BBDBDBC7F5DAE59CFD5ADB9780CBA062B -10DFDE111A2AC1AF1582527848E47F88E2D87B499D3BF14C56BAA1FCFA4E6AF8EAA7877397A3 -AA6D8BEF55770FC45DC45A094049D144D809223DC4B4A98DEAD0A729AFAD4AC3C04EF2C8F70A -0E0187B0D69A4F972B64C345087F6B77C932131AEEA7C9844B7E51A30C314181428F4C613629 -31A069A462168B82A54B010D15DA6C85DF863D18D101280A786CDAE1C7F67BA1FFF7E7073F01 -63910BE47AC47FF1898949E393AECA6F3A5AACEF6173598BFB0F4DC56374CB5AF1EADA100712 -4E92FF222581CCF8150B90B52078FB8E27E16268CC0B8A780CA46B530DD0E05BB465A0234154 -A3151D9628ED99459C5AD24176B01BA55D9AEF48F090489E2D93FBD3B916F951C932E27DC61A -8112EC9943E4D0DB32E0F92FE775936C74E9E62A9D1A41FEC65E402F13402BF661119659EC3F -D84826018B4F4CC6FBB7A7385819F05E8B2FDFB3684F3905A849AEC9BDA45B7164374D00C28D -2BE519C9E253CEFC7DAB1807F90B58D4D6CE89E3AF72CA25B0C523895515658ED4E3E4A9AF0E -3C323405DE0ACC85D3642B002EB444CA69A38ED7EBFAE2EC1B2B043FF2ED130592973A81CC68 -99E75440FE2706A9CB8D291E4D9EC29009E1351244BE34E09B0E085EAA647BD0861A1E9942B6 -FC848E527DBAC887628AE3539994558676466554563D4C2E65C7CD5562613D1EDE0004F8D61F -FD8B06518A46D6A5C09BD4742D14618D95F3507923D323066688593486CD5140C1DE5509B5BC -C2A7B00F144B4049018006670FC4DE66935B6884DA39EF87B435D6DDD7A8894FBEA38B5ED717 -8544A3D7D13598A43698CCC27B170A4F82A14A8B8909626C101972BC86E33959E97BFC366E2B -CACA0E43148BCAB457B26C6C7E6746A67126E1BAAC4D47FA29A3DCC4DC33CCF32D022375DA32 -3EE7A17A5290E717C80D4AC06842943423B8FE749797FDF92A589969AC26B493B41170777061 -775B613579C780D195030389CE8CC9D09F20A98B5DA20103A979575B6D5E3BC2F3E1E7AAC4A6 -CC8F46FE871BB471758A9C27EEF4F15F6077FA9C8CDCADF6AC7A61C62D718121AE02595105E3 -ED477405422CB32B20396CE3619684F725E44DFA47B48223BF4C60E4813A34DB00B0BE904E50 -E5C91BC8C2269AAEA750334BC02CDDF2512CC6932AEC98EB3D5C92DE319AEFEE5ADB2076D7DA -6A7BFDBE12D31884B1C10E52591B16F8552CECF63C84F805D02AA162A6B51D0E7F1F5618E47F -279CE922F0648CD35B1E03827491190695096F93DE854246BAD576C518A4979EB30D2BABE688 -958EB49410BA7A742CFFE71122125D07A9115C5F987F9302461774A7843C8B47D1451E8F2282 -CE63033136A6C5459F728BE90EF0AD89ABDEE4955621A6BDAEB535B55E00BD699C42D4B20000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 - -cleartomark -{restore}if - - -%%EndFont -%%BeginFont: CMBX6 -%!PS-AdobeFont-1.0: CMBX6 003.002 -%%Title: CMBX6 -%Version: 003.002 -%%CreationDate: Mon Jul 13 16:17:00 2009 -%%Creator: David M. Jones -%Copyright: Copyright (c) 1997, 2009 American Mathematical Society -%Copyright: (), with Reserved Font Name CMBX6. -% This Font Software is licensed under the SIL Open Font License, Version 1.1. -% This license is in the accompanying file OFL.txt, and is also -% available with a FAQ at: http://scripts.sil.org/OFL. -%%EndComments - -FontDirectory/CMBX6 known{/CMBX6 findfont dup/UniqueID known{dup -/UniqueID get 5000764 eq exch/FontType get 1 eq and}{pop false}ifelse -{save true}{false}ifelse}{false}ifelse -11 dict begin -/FontType 1 def -/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def -/FontName /CMBX6 def -/FontBBox {-49 -250 1367 753 }readonly def -/UniqueID 5000764 def -/PaintType 0 def -/FontInfo 9 dict dup begin - /version (003.002) readonly def - /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMBX6.) readonly def - /FullName (CMBX6) readonly def - /FamilyName (Computer Modern) readonly def - /Weight (Bold) readonly def - /ItalicAngle 0 def - /isFixedPitch false def - /UnderlinePosition -100 def - /UnderlineThickness 50 def -end readonly def -/Encoding 256 array - 0 1 255 { 1 index exch /.notdef put} for -dup 0 /Gamma put -dup 1 /Delta put -dup 2 /Theta put -dup 3 /Lambda put -dup 4 /Xi put -dup 5 /Pi put -dup 6 /Sigma put -dup 7 /Upsilon put -dup 8 /Phi put -dup 9 /Psi put -dup 10 /Omega put -dup 11 /ff put -dup 12 /fi put -dup 13 /fl put -dup 14 /ffi put -dup 15 /ffl put -dup 16 /dotlessi put -dup 17 /dotlessj put -dup 18 /grave put -dup 19 /acute put -dup 20 /caron put -dup 21 /breve put -dup 22 /macron put -dup 23 /ring put -dup 24 /cedilla put -dup 25 /germandbls put -dup 26 /ae put -dup 27 /oe put -dup 28 /oslash put -dup 29 /AE put -dup 30 /OE put -dup 31 /Oslash put -dup 32 /suppress put -dup 33 /exclam put -dup 34 /quotedblright put -dup 35 /numbersign put -dup 36 /dollar put -dup 37 /percent put -dup 38 /ampersand put -dup 39 /quoteright put -dup 40 /parenleft put -dup 41 /parenright put -dup 42 /asterisk put -dup 43 /plus put -dup 44 /comma put -dup 45 /hyphen put -dup 46 /period put -dup 47 /slash put -dup 48 /zero put -dup 49 /one put -dup 50 /two put -dup 51 /three put -dup 52 /four put -dup 53 /five put -dup 54 /six put -dup 55 /seven put -dup 56 /eight put -dup 57 /nine put -dup 58 /colon put -dup 59 /semicolon put -dup 60 /exclamdown put -dup 61 /equal put -dup 62 /questiondown put -dup 63 /question put -dup 64 /at put -dup 65 /A put -dup 66 /B put -dup 67 /C put -dup 68 /D put -dup 69 /E put -dup 70 /F put -dup 71 /G put -dup 72 /H put -dup 73 /I put -dup 74 /J put -dup 75 /K put -dup 76 /L put -dup 77 /M put -dup 78 /N put -dup 79 /O put -dup 80 /P put -dup 81 /Q put -dup 82 /R put -dup 83 /S put -dup 84 /T put -dup 85 /U put -dup 86 /V put -dup 87 /W put -dup 88 /X put -dup 89 /Y put -dup 90 /Z put -dup 91 /bracketleft put -dup 92 /quotedblleft put -dup 93 /bracketright put -dup 94 /circumflex put -dup 95 /dotaccent put -dup 96 /quoteleft put -dup 97 /a put -dup 98 /b put -dup 99 /c put -dup 100 /d put -dup 101 /e put -dup 102 /f put -dup 103 /g put -dup 104 /h put -dup 105 /i put -dup 106 /j put -dup 107 /k put -dup 108 /l put -dup 109 /m put -dup 110 /n put -dup 111 /o put -dup 112 /p put -dup 113 /q put -dup 114 /r put -dup 115 /s put -dup 116 /t put -dup 117 /u put -dup 118 /v put -dup 119 /w put -dup 120 /x put -dup 121 /y put -dup 122 /z put -dup 123 /endash put -dup 124 /emdash put -dup 125 /hungarumlaut put -dup 126 /tilde put -dup 127 /dieresis put -dup 128 /suppress put -dup 160 /space put -dup 161 /Gamma put -dup 162 /Delta put -dup 163 /Theta put -dup 164 /Lambda put -dup 165 /Xi put -dup 166 /Pi put -dup 167 /Sigma put -dup 168 /Upsilon put -dup 169 /Phi put -dup 170 /Psi put -dup 171 /sfthyphen put -dup 172 /nbspace put -dup 173 /Omega put -dup 174 /ff put -dup 175 /fi put -dup 176 /fl put -dup 177 /ffi put -dup 178 /ffl put -dup 179 /dotlessi put -dup 180 /dotlessj put -dup 181 /grave put -dup 182 /acute put -dup 183 /caron put -dup 184 /breve put -dup 185 /macron put -dup 186 /ring put -dup 187 /cedilla put -dup 188 /germandbls put -dup 189 /ae put -dup 190 /oe put -dup 191 /oslash put -dup 192 /AE put -dup 193 /OE put -dup 194 /Oslash put -dup 195 /suppress put -dup 196 /dieresis put -readonly def -currentdict end -currentfile eexec - -D9D66F633B846AB284BCF8B0411B772DE5CE3DD325E55798292D7BD972BD75FA0E079529AF9C -82DF72F64195C9C210DCE34528F540DA1FFD7BEBB9B40787BA9351BBFB7CFC5F9152D1E5BB0A -D8D016C6CFA4EB41B3C51D091C2D5440E67CFD717C56816B03B901BF4A25A07175380E50A213 -F877C44778B3C5AADBCC86D6E551E6AF364B0BFCAAD22D8D558C5C81A7D425A1629DD5182206 -742D1D082A12F0780FD4F5F6D3129FCFFF1F4A912B0A7DEC8D33A57B5AE0328EF9D57ADDAC54 -3273C01924195A181D03F5054A93B71E5065F8D92FE23794D2D437EA08A6982402C5539B6DD4 -B5AF65D473C6AE636CB56D677ECBFC9178162B4859E6FCD8BC8A26E29FC1EEF804983F84EE4C -0FBF9EA071F4A02A212B2121D29934395E87BC92BB19A74E25C42C6D3FF570DEE09E385CFA52 -C87B725628EB62E39CE28ED6850840056355A4BAC029FA60DCF74A997F29C095FC340F40F354 -57F779795689C812F4E4DC3C463F20D9437B1A4F1300E34039DEEF7E3D5F4657975F5975E666 -56114DDA349BD1D81809BA19742126DFAC962E688033115F73E7EAE68049A0DDE69C4A305CFB -BC994060E1B2F7AC581002833709912E71F5E4AAB1578E9BE1F0F797E11EDA1F7D103FBEBE3A -446C971E701AAE347C3994752785FDA9EBFEB784BCAFEE7F87D52769793DD18575BF175530E3 -AA9D3FDA19807496B60C09C73948F7E6D7155721186B4699BE49CF5904EEEF9B74ADB97505F8 -228D667578328621ACCC410F0146C4BC7A7656D382EDD882CCCF38297732AD9B2AC10AD78607 -3831A828557368AE94FA2C7B047227B613F881B8EEA2D4C39838AE76AC37643DEBC400EAF24D -A08562686EC871803CE0E50C457C1C18B3AC4941CA3DBC4EBC784FC1F32E141B56CECE7A035C -14494C15987E619DF363120504C279453A6ED434EECEE8310509D5208D4E0EB46C6CC69E583B -ABE0D80E9297FC113A60EE2956904369443FFC7B2BD151CE647961256297194F771011F82DA6 -07033E69B66857E1EB6C4B0B55B06019DB0BE48CD09358E4509687165084E061D38E4047DA2B -0F20DB21B7239A32C4E79A6979B9E22F3D07422A2C4721C48A727C72C7280EB3240FD6BCEBC5 -67C8E41E0F34AA26FEB9A5B11C79FB88E6FBD18BE259FA6AB02F537DD58E0910ADB3E14E61CC -58A06861BF528811C8B2A46DB139BE12C64C315DE959337B340C554F6E8F184C4C3EF53346D6 -FF9C88A8066B3DA8AE49F36BC854D95FEE0321608461DA68871606D4EBD6FCFE62762994777A -E8C7DEA32DCE0A3B4552CDDE9E2A8E79483848B05EFC27CB03A4F7CE3CA3941B951290131698 -0758E8F7A4FB8639A76DECE79CBA86DD92CC4B3D43F384241480C983BBF62D4B0D8269553667 -652423E52AD4E0974DC80B79AB937281DCAD93B5DC16F15B4BCF7A121DFAB2F1021750468808 -E1CA936D2EBD0B22C2C20A3F612ABD34D811435CD5F8891FA4CAF592CF6DCDA9AA49AA152AEE -E2247EB4CF183EAC8E59D878351296B447065D5BD7276E1FB4742248CE52394494CD81C1FAE2 -BFC03CBAA4AB8EE4BE43607AEB53EF2B0ED020E64F43A88E3D166F8200F4484DE34D866D9FDB -9E742D898A4636418F0FBCCF1FDC986E26CBD863D95BFC99C6220028731E1C434C2F7C3E7CDB -E23921C3EC6501F763F08778FA79006FA5C00CE0B89E43FCF66C99997B8BC763F8E4F550F5FA -406A36533FC70142A2FB5AFCA9B2BAC2D83C8661AB0F98692C5F47E98C77077756924F8B970B -AB489D082E8C0FA538981F9100C6C7B4FB3F54BAC8E5A5938848D0AF1CF51186FF47379D624C -80757CED7EC2E3D1038CFEB00CC2D8AFAFB8A3723D2D2E027FC57C8743D1B552999723D382DD -9C52F7CC5C03943449C9D448CDFC5AFDDCAA19E6AAF26BC1B053AD65C898E1E40F942C4FCA2E -CA08AEC6B885D16F7EB00ED7481558D5B2B97BAB804A2A0BEDEA338E125A5A6B3DB6A66F4EE6 -A94436D00F43DB7ECA6DA07EE0D9E6EE127DA06AB542F3F48E1AC1AD484DAFA0BF08A998449B -38E75844E80E6C3C8CDBB31F7748AD10E93215A88E6976D8DAFF9CEEE20039268BBDABA9F34D -0DB1B30C14603FD1A9BAA5020505E4C0A4366DD68F2C30AAC9FDB220309140A010E2CDC6BF7E -86FC35C4F2495A58C7B0E846D01B44799D4D7B3A766C88259FC1005DB1F137FBD201B5F423F8 -D2042AFB7CA61D00CE05B890C9156F45F93CBF688F5DF8519089FADC96E736B05460E14C3117 -4B70971EFFAD69D89E8452234ABF74E67048728C12083FBA36D9CCC3AF19E307999B5571D5BA -6F39F9EC9779D3745AEF96FFC8201AC076BFCD8A5B5544D408BD076F65924596905714011EA9 -0A99D078F9DC34676405FE8813231C8663D68CC764EE822514408B5FA1D1812ADC31AEC2E0F3 -E1273C784D5D7163804607AAFDC0D84485FB057E4CF44142056D9A17B02077ED57088695AE71 -F2036D5E49E122CA4439C996C2CAB353CB5E13B6C5426D1D43F9C7B7078267D8AB60BCE6AD7D -DB97EA2D7E75F81ACEB9F270073D26380140297619CE3B51417F7C7E8C3CEF0059E876008647 -1D0ABC63A739E527CEC95C366EF3BE8B90AD0D6B9299878E27D77489BFD8467CA8A6A11D5043 -8AA8A48F439475626B0CC5F08877AF52BF0D949C90B9899AC0E91454E72426F758B8DE7F5EF8 -97FFE30E9D251AD616064BE5EB38B70D22EE40C71DF58F67F26849D4CAF2115616059859DAEC -51191744FC1091601E738910242A5428786D89E8C8E05CFEE4671FDDC831D8F14C4B0D431B2A -474477CA6587CA9AE1B6E5944255E526FD39574173542E28AC46F853C52F38C413F92BA30FC0 -131C4F0DEE84C86D8259F38D7EB9417091F38A4B3140339F99281D9D523C2AC222F47BA9BDDD -AA36DF18A02A17EBE4753313FAAAED6FC78D5E02A80C0B71943A53B6078488F4F2DB2E804DE8 -C8A4389AC3C0A4F7BC584E4C1230A378BD2434C2E3970C59581213627F160B943A518C8A760A -7BD5922C80CBEAEC8787BD669355FAA3310FFF9F2256810146B619F98EB15BB931D1806667DE -032232F1D2CE2DA45D36DDC95F43D8E2454355A5D4ABCB788B64EEA7AFF3AC8BEF53CB4FE810 -07C6EF0FB10E8006BAEB0CAF8018306AB08AB7A17477BEDA5034B6E59C91FB83ABC20AE383A5 -E5C342B44ABD9C30959CEF692911E5DDBA2313DC9778C209AF57BEF175B19DC6F2421307EC80 -F5882A67745B4D1FB586E772BE6BB5E14C2BDFA23138F5358B6DF22D00A422186A87E5AFDDE9 -B36C82428FAB635E5CA1E377D247666963A4D1E75CEB9CB4EF1FB982D48D6956EB909BDCE8A0 -9DA244E07E40746093B59FF3B8E37FB95F26FB568BEEFFC852FD52EDE6ADCDAE1E4BC000F548 -E90ADE1203686E5BE2B181B684B09135FB3B1DE15E279178872E4CEF2C26C46E43FD6F9CBEBA -4A3843AC7BB05E6A8503493B0AE623B0EE105A785E3CFA485DE64E6470A823107FB62CBA05F6 -9EB175405E0D7C70FBB214D40B0B367D73B6050FEBD8A6B4F5EE6A139A08FAD92C49C8FC2C1E -22673EBFE1C12DD9E537709E9F2AEE521CFE90C82D2FB1B8B8CB2CCCF10D307C24B01F6E5757 -8CAD63EBEB8D3B0DAFF22DDEBB5AFA7235997F600D3868C831FD6035FF511FA42F59B80C2CAE -5B76FF4490366E3FC752CEF4AAD3172A367475EBE4BEF66BCC160A03B0E5467B2E86E6731B1B -A8A97278A2DD0BFF34586F6306F63ECB0C9C2D41FB510CC4B28363610355AB270A6FB283AA6D -09B3958A41220554A3F06637F724980FB8E1B37D1F220D3C847C9F67FB454FAABD714ACDB449 -7FDD5943F8F0E237F7693041CF4A9B288DAC818D851FFBEB3A385284A8A433E16CCC6BD9A35A -693EC3005E207EAFD342A2BB9282DAB88968DC9660A0A259B95F3CF623DA2AE321BEB4BEE7DD -49986B67926B2053F4EF455AC99748736545AA18F1E3243ADDFC312385B1F48314C320718725 -1A2D8F1E12A32BA8AF7FD49AD49BE80ED7D8E4E184F42BC74DA0131E86FDC099CDECFAE44A86 -A0885C00D62C16FB53C07912B4F169B600E8AE8394F493ACA5816F470022D8F51E00128BA3B1 -ED31AFC783FB15BD27C2218ED0AAF20268053C8AA883E8EDC97E162BE58F797D69434AA85054 -92090A416742656D437B49210C85AF63A170E268D04DE702FE414AFC93221146798F8DC3933C -0008AFC69DD99B6D723F2B61F26A866DAD65C040DC5B52DF8DC7EEFB7EC23490CD37D5B85181 -7E75DF86A0F51EAA758893CB5125458EE505C747482A5685C49373440F67D21273BE10A36762 -5DAB59AE6719830C1486D3A4EFA4710968D85F405A803970FEAD0ABB656D69BD538C3DAA60A6 -2AC2444156CDD6A9F58FE120F0CF023B2226E992C20B0B5FE272F6F715FF944EB765D79B8322 -6FE63A82E8C6F3D6FC6FD090978648F82088B1AF2D20ADD5C1D02FAC16D50863117D0C81F04B -2183EDD79CA5F3A0A80A71DA04D9C3D62F90C4919D943809E34A987E794F4B9D81432050A425 -578DF0BD6A15FB400644D042891C2A2C6C453E311AD6C99E4F67C1BE7C98BA36E3EE6D6DE8AD -9AA9F0FD389FC9904C1842EFA837FECEDCF73E795B1A3DBC7228C1502BE1ED7A003EBA346AF5 -38DCDAA08427B5EFE407898C5A93AE6014DDC54EFD9EFF19DAA62F0B5C9ECE9C8336880ED271 -A095D8BE9E67AA5063EA19DCD465EB443A4B059E9D0793B404AC9FE82656865AA29868BAD3EA -23089C6FA2365359A8AAE36CAECBDA567BC1A3AF28ABE47F8785CB141893539800C53643571E -AF51A2978B308B47D1450AE13CF4CBFB147CB14426D80C70B04B6766EF49352A8E09CD54E0EB -AAEB1D0E74C2BE0E35598C2C8E6A18E42150C4EC86DB03C71EECFB759B8057760FF6CEAC5B2D -7875C402CA60CA3ACF314EDE8BBDFDFBD4EAD08CC7E5D5AB8F0529AE510BC4E4CAA616BB144C -D74C348AE0E529BCF215C60D129E2A05FD3141D7F0D1E4FF26A7E9025E2AAD73B16F6CA5BA42 -B1C386018E8CEC31251B272606348C1C8436CEF8324D326CE1D92F584043B595F1F9D4FD2D0C -FBBF366EC2510A1E5366859D6B8ED24DE02024B77CEDDB79994EC4D2DC634D37CAFE6B9CD5EB -E95E7C4304D7BAA5985743AAC1BB83B0AA390A1F5BEA7DEAF9AE900AC5C965E08F49F863426A -2A41C96D08B3F0608F109DCE2854FCB5E4C1DAD40F106BBEB46908528742F5A640EB42E4AF07 -E0A96DA156A5F7758F7AFCA2B269D577986218EE38CA3F01FD68F5BA87979B6DA4B1ED5541CE -8F5FAE569D60FA5EE0F18010FF5B0BD7E2B35FF85120524B59703AB3C471233436E877360F33 -87215012325DE1958BF1E42938EF68DD2535E4754F0D0D7C0FEC3920CEA51547FA765C1AE1A4 -166E102C015E4943E7D3580C855CAF9172DD4FAD703473BB4D0BEDE3A634F8D34D90F7FDF72F -1107DD2C5223EB53DE49A1F4FA9D00666DCDB6B0B1B36534A7C37BE8C3EECCBFFF39DBBD3326 -A603B5DDF0F9D5C91EBAD6F27FFF5C3FB81BC444A6D3DA980FE2ED54D94D1B2A83AA89D06492 -C6FEDC16B629CFD54E9E60AB07477E4F3EA538A4E10CF195FC1B5352E4A56FE935F5AF3DBA70 -5E9C4C65A6580B8A33D832E4F24FE85510A7CB38BA8D1F7F5D5C2EBBD75CA04519D3BE09F278 -A0E7636B02D30ED7A416BD9485844AD4DEED784BF27AC0A8B87205101D7B2E4F8C4E9EE2E3ED -D68D02FF6B62A18B0DCCF6C2F37B721D65E5CDCB74AE039A7B41E8FE37C539582A6771D0D30C -5169F6BF862BCBCEB444406F15100567DA722212B3E76E61884DE593CFA3EEAC6CA960F91DAA -CB70E9E44C55A64344672360FF41D09AB0521967CF42C310A12E6D3EB2C2B3440E2E64708AA4 -F824C834ED3796130EEAE189B0EA46A151B13B5BDAAE34261668B24C6E2263C971CA35DCB9D3 -E396B6F95918FD0FA10D970037D4C8E128DCE6B7DBD55D6346453D4B5025769491694F3B31BF -EBF54FC7516E2F88C4BBAF4708F0B5F898B63F43C7BEA5743E72D4F104084A8BE6DDDF2B641F -511DEC3D64389C046E8A8AB16CE944098A2B8A4C520441C47F5FEE08032568E28B206F3A1F78 -DCDDA8C2433F267AC22F6D4ECB18CCAF7F110E5ABBF2863F15288504FEF5D4ED1E87CA9376F6 -625B9948C8F6EE4240E37A238A2ABA213E5FD2B59ADDF90DCBF1C5442F1AA29466DBA627D179 -E47DC7E9F95CEDE4F133BDD5EEF9932D6A2AFBB706E98D27414C94AC27505D3C09E17BCCF683 -5F8044062993A92EBD9754726295EA1891D618FFE0B60F146402B6F5479A301E4F041D4A9D16 -8E3B4D58C165D46587D944B3E82606822674C025A2B7BA1172C6616FCE1168DA861818EB7193 -ED43C73B3FD8B83A2BB2C6FF710EEA83648539427A5915EE67CFF9A4A266609C6B08474D971B -AFE04F490D520587DD4AAE0631293FDA73D96773FC574E9289C434322658E8EAE281B896F195 -E70DBE1E61F896D367ADA0FFD67B58829445CEDDDA99165867344976B8093720B84A1F2A7A88 -B0A6A5FD4100A7344DC73B44F59938791B857B01B0E80F8A2A37DC9566C5804D70ED21556609 -1E3CD065D70918F9E3A684F7FD0E8406AEE6838C714EED02C2F966D73DE481DE19865518A225 -CBE615E01721DCCAE4353F5B26874DA375AA89758CBD876F938635C93BB3814908ED375290BF -15B9CFDF6FA8B28403F54BF93A465293E9DA418B8A0304FCC7829C39AB440906B7EB49FAA502 -8D0CAC2C32A3366F3BD9E4716FC66EF2268A7B5C60F8539177583D62EA03371DF4FED6FC8298 -413FC591D05B591CA8D3E44E8661C0B529AD07165736A36A1507AEA3EC9295D64841BFB5D8BC -8662FD052320733C3163E3E643FE07B1CB1043796F3323B9894CDDFF4DA2088EF2F34277EA1D -0713724415EB051D7C1234EAC8771892821D3E19E81458DDE8F5DBF37C0FCB21F42E2D435130 -296CB40C4A65C7AB0101E8B5D1FB333DD2A8C61040450957F7938C9818355A402A0DDC0D25FF -008127C35F8B48CEC63B2F4A0B8F28A9CA07F8CDFAEB3ED1ACDD5162F7D3491964E99C4B9AFE -69174B08438BF8592F02797498768D788161989C943CFA646E4C2950F2D72AC2DA11414DDDDE -9B7F84083A1CBDD12FE6165D3BA6A4E07608C461B233641A9D387CA85846F69D5FC2148028C6 -1F508B1903B5F136A0D84F326FE1B550A7B2C24C2C41BB228619BFCF2F560CE6A8CA067EB950 -D9E969649B13CFFC6B4366112B9E35E46445BC5BB31A6D177F186D951480E69DD7DA5DF9B4CF -477FD752555F0275884AF1668C66F0BB607D4316E470974430423B5B0E909629035D7CD17FD6 -B97581736D1BA086CC4DE5D857AFB40C81F744518630EF2AF8B64BED95A0FD862D8B125A6AAB -A13FEB3795683F2ECE892C18C8F43BFD5D6DA753E50CD1B96B18C0ED7117B3D625AE5084370D -F4A722A34A75B5703F22E176B7C6B59EC5730BB10D8A32F72812BB30FDA823D2A23A23474339 -4966A8456415F83F3E4141DF4C4BFEE9AB6EEAC4E396BF7F3F57C26DFA1FD44155DEB278D6E6 -2C1AF1321D17193BD14C8C675DA917F23FA2630DE1289FCBD7079D3FECD8D1CA71E02B92918B -2D17810DF82C93AA22FA59D5A65AE184BD6B94AA18B9E0B2CAE294D150D366447454B5954AC4 -613E7CA4B9D8383F25F5111E525695C338118955AFE5BA5263B8A61D4A245DC68821FB32956A -7D07A1335C5872C1100D262B9BFD5FAEB7AF9F5BCF703A0F8581C225983A66B0967D0C83F362 -0BD0814DC891DE8A0732C249CB506AE9F461AC15CBF5BA9900DAB13C1CED3F74340F20CE570B -D341920488049F9A8196808B259DB05F5F82B25193B5C4CE9C21F7C4761948AC41C640A67526 -6FFAD36CEF2B1C1FC493E88E06D8142A86ECDCCAF28956699CF64BCBB863DB84DD1B2405900E -CF6260F4B0C4032A9800607967B5A11785517A69B184047CAAB7080813436374AE7262FC845F -CCF70790744A40DDFF0353B07F96CD7B1A82C24F8F4074B96C17460062FC59D15012E0BE84E1 -9441EC4506909C1B4904CED6AFB3EA913918F7F9AB081D809706D1FF3412D50494B5F0835D57 -4CF4281CD10411063A18DE199461E6EE469BCB07BF30853FA6EC0709A1F82B47FC76DC4B1F4E -A0AFBEBAAFD161885830D8F42680772C1BA775A41F9FB7EE1E29A43806C04D3AB58B32FFF544 -50D768A3E75A09DE9E1EEFB6FAB2CD61CBB7C2A658B3CC670D60B0DE98C36E320913DE0F6F50 -386CBEDBA244452937C15848AF3EE7C8AF33D6A7B3BFCB85DD9909A74AD69AE6BCA08B8FC251 -15C2B59B60AF140DE9F76ACE9E7863D51BFAD5FFE48A0DE06494E78BB970C36787C0B945CA98 -A914D22E25B41FA70DAE86B6D766F41396E8726FDA0795B423BAC7D8D29A485DEAB0F13BB01B -8AD53E1557800A3A24FB67F80C1CD4E9781DB9E5A9A34B4B2DD082687D7855F2DD0587D65BCA -11111D7AC375945F753983BC985AFE67A2DC0DF375C8B4A904B31636A52189E36AB792F17C7A -BF8C49927AE04C0CA35918A0305F55EE47DE4AA52ABD2F1CC27D1FD063F920026CC91DDA8032 -1BE6015B8C321EEA1A3CC7BC946938E1581F2F10FFA5E4D49A7576959296C72B63262FEBBC66 -E32ADF1DF33FCFA6E7F5218042190A340B9EE39D5482B4D822ECCB7194163AEE80C9C4D4E77C -6EDDFF0353B07F96CD78FC082F21CFC2F206CD43F2B8DB67336F4FB7425B7F8D8C14193B84A9 -6865587DA1D6716AFAA35DB22ADE121024D0567FFF5490E5C45D2E2FF37190832060F6E838F8 -650DC4B946D6F167A57E16A9F31C61F020AC43AC01DB8B661E13E434CE207576769552A2A297 -E7B318E281651C5E2D60435497EFE30CE67A8EA7E98111D319AFF42744D90E3EC1BBD1865B6C -354B22133233DBC951AFB951737208CA761ED660D9C29BAA37DC32970323AE28CCD1F0DD425C -B53765A3DFC7A20C15F26884E178A206EACB163DF203999D7F4F5F3E431A8218B217BF4C0B54 -B0203E6BB57C2F37280411969FA3F5CBD562FC0250325700D9B26E35504F5AF254F1DB771118 -9AFB597132F5F61166D91C738DF99235FC8A2EE8C1A5083BC5E7B0EF1773FF42200592C765E8 -6E82B748D1FE1A0C96AD4982318E1137373D32A5FEFBA2643E487F194C9B807EC9BC7228C725 -A0A5E8BE50D44AC20B43BC8A6795EF0403E316688FCAB372F500513DAC18DF581061B7F60FE5 -43E00D5593B89E7C519F32E7EC0CD96C9826E9830B499A2B12B953D0AECB986C190F4CC77D8E -31B60A86B0B94A541C2BFB3053ABA345C05AEFAACEB6BEDD192F3CEC0E54011A31CA0823494E -9577B9EB0DFBA7027616471E30E174BCE11FA45EB794C9F69897FB791E63E3CE40A872D2DF4B -12E39B59A72C7CC0A08704645B95792DA6BF1C6E0D7FE87E2806158E7717BD502D0EF650B555 -42BE7F54C4367813260E25742EA02F6C229C04CC030ACB1AA52B190933C0B1065DEAF6398309 -5EEAF902D0A3E102BD1D29E94F77A28E0A378191B49270436C4B306F85E9C8D27348C458A8EE -70C05C4FBEB490356320EF5BB81EAA362B9C33104EE55A82F66E75D28C0C38900F9AB8648975 -2C9A389A0A3791174057328FFCEEA4F870AF2994A241328CF7DCAD7FC70C6BAE3B34C395DB05 -C6010D56E79705C3B9A381575DBF1108B1C760171CE55D44AD69B1A4C971F86006C297FCA104 -EBE96ABF5E22D0B9D7096466DA4E6319B5C8C2AF88FEF04E8A5F31DFFABCB222B4E88BF93E4A -C026FE48DB6BBAF0D0E1266D3E91605622A83E10C87CCC214D9E19C5144A2A4E2E7324865516 -583F17E5A593F68E686931F0E1388F53B8BDF7B840CAC5138DBCF15773A7B90B924B71E9C171 -79322256EAD6A69CF672AB5BD7B1023ADBE5D4E5CF79C397F86D34AAF598A61D066DD9B54279 -F8F6C8AD9833E6AB2A0FC4106D729BC52112E16D2D60AD0D58D03E05B2637A164123F1687C60 -DB1C2F0D9651AAE8917413146984765D96F19E8485FD9F76F938C6C7821A17EF28BA79520392 -6981D9037954D8E5A28BB89C3BCEA9F11641F74A5D9F8FE50D2B608E61FAF796238B7FD95E0B -626207FBDFAA000A9E9015F7D140C599327676D0FCFA9503A0580D07A1E8427F27DADC9322A7 -9C55F8EEEBFB39AAE7446208D8221D5C2C40D260BFEB20AC134E693F6DA64D5141D27A0DB5C1 -DA1B8E78D5B248F2812B3493BE644FF1EA2F127D8C66A4B7C8AD3D992FD05E7F5AED6B79BF29 -2F402881E0612C420FC900C709FF42B9552F9F0539F9076DB1F7CF1D74BECB14070AD82AAFBC -A458044D70074D7A6F5501F98A3C65FAFFA9FA807835C49DF08AF0409EAD4164D8868B965439 -F0074366A68EE2615A6A2563756388F9B55E05E2CD7005C94AF657363BDB707F4D02623F6B2F -78416C16ABB9E4A64F6CEE89A6BF1D2CC67F20D6F619BA12AB5B46F632A3BBDB7456133549E2 -FE0D5F0C688EBEDB89E7E45D2F5171F0422F2C48873F95B277C3870702C494ACFBFE51A04425 -63C100C1E73823452BD789269CEB11ED10CD58C6DACBAAEBC9B0589A64A29567CC9B855733C4 -F6177A055E90220172DDDD9AE4470E07231594304FACA83F0C2539BABFD62B1E25D553E29640 -1AE70E13B25457AF0A331BDA19F77347391BD329E6A5CB3D69418A5E8B6E99DE9C6DC0C9D53A -275BE58FAB40650DD77AD332E79773CB199E8AA9BD987036D743F813DFBCE4FFB4E57F10F20B -E3658A750042C66837D430DBF0D18A1D9D92A7A3E1A5C347B2304BAC3B06EF9AD1EA0DE3E776 -7A9A05FCF14FB2E722125BA7B2C39208F61575E00E59ECD5A56CF0C362B2D53E245E0DFDF767 -6BE0930854C9F8C1CADAC4C480B8863426DA218FA1C0713ACE0439FD65F1CC9D40DF80D5B17F -C6BBA058EB2464AE3935895098D7BD508E8762D46BC5992A6AE856C74E907B372B30D273E5CD -3EFE666EFB71B861D05207ADDC6C8523A4470AE5E6DFB755E743EC7C381ED59DD7DB96C29468 -F8C335BB64D61CFA198E2313961C81CE6003884610C29D98FE2A1C2D9625AAEA0D40094DA530 -770175E843B7B346751A637F920AC15261F5C1E4102CB3E1948E72E69C91EFBD9087FDE6C47C -5BF0975854913B0EE90D8CCDF1CDEB775DCFDAA7514F3E1EBD386EC0AAA9318AC8638C39FA6C -B969C84D9B217485CD0BC1F1CD1B69C2476639D38EA3285418E01B7CEDB8FBC204B5AA10829F -486651AF8ADA86A6200DB87EFFABAE4232DEE1D1473D20ECA0506257BE711A7CFBBF11B88F4A -5FA3984376756977248CA45AA36869E05232E28AC04660FF7862337BB4A217C49227292C2CEE -7C83CD748EF1124D2C6F4A9A26054B6A3588854CD0147EA38B29C826A159AD857F69DD2CCB03 -ABC9940B304E82C3D69DE9A45265F92981EECDD5DE35E46B738698216872D667B73F2568AB1D -F237316A9899FE26142826B8AE52B57DA959B6A40096054D6AC2852AF157D2E4D69607A30179 -79F8536BCA5E3B5B37D42947269202878B9184C7F99A5672490D7070E250520442ABA13EBAC9 -D35AF53E8ADBCDE273D10B04C3595DE57606A6BC5E65EF7AB79AF08BE377986E2452815FD7CE -572AD2B6CFAD0348AF6BD203B900EAD375DC464CAFF69D811AAE3D638A7BEBF12F9CEC75F2AE -47232F98C132068CA2F5D3E0754EE519E790C419D18FD3D5B0448E2988463EA735A8A10E5CF9 -2DB708FF13E90EEBE2D2702DE459097F05C3C7DDB03DB13CF5FB6734DB20CD1B6BD7C754626B -08DDB418DFC1A316DCA556F303BDD79BB360B31D641805C8433F3D4EA20C9BAC58C712CC12AA -DD765BE6D2C2D9FA8DDAF613AB31AA58F29E2895CE7996D1F297885CA45144229312AAE30905 -C9380905A583AE84CB12A75DF570E3D900A4D6FA839DD55EDB9C5731049C9E3FB879171F586F -330C83A73FC535208C6922902372FB7D927E36A2E4A640ABD2138B2BA9F31A09EBB984F6A13F -CEF36AF8596F115D208BE08CC9A4BBD105449151F692938DA168EEA38B86015A168E85D1ADDF -25B915EF8D18926E821978EBD0CC3868582B581F5FA2F36C1C27526B7A84C142E5FFE7474B56 -DA70E1698096F2D4D54A1BEF4E1E681D2BDB64093F844A47AA4C0A17F972E62F78B3E5885623 -E38B6BC648D72D8663843DE71F4F1E9D446823430C24263067CBFE54BEE556B7BD45B82084A3 -022A3D523081A0ADAEEAE1BC581951AE8AF02BE6096F7CFF83437FB7AC2818199F8CB450BB54 -3C75710A430961F1F6DC95D2E3C863057BB60C9D1F70F28DDE9E45EA7665E7C8CB4C6A101A30 -73536728DBB2E3AE66544B70F51BF33939D8D19978B05A960AEC44D481AAAA09DCEDA6E4AC67 -048DDCE85DC25277E37ED1C283A826814DB969A61030FBA6A595DB1FD9A95FF9D0B93814E2FD -240B8566235551AFAFA9EEF53014DCF6BBCC79EC3D7831970D79236A31CBC7875337BAD16F49 -218E1E79F2F99FA18E0D06C7B77D3F0ED4D6AAFE4856E76616ABF2509F87E0412E5E2DE33A07 -3B5DE4281804156DD1C7729169EA248B2AFEA19E9AA6FB265FDA91111A63E075A460526BD33B -AD01341D36EF44DA5FD60A70B3D0A539CFD8D27CFE124315FA611D64CBCA1B7C21FF5102D115 -C7F5C1046BE0FCCDFB4F7B8184EE6D631F523B993CAA1F38E3EBF14FDFB256D1CADD5313B9C3 -6B0DD9334D895A1546424054D0CCA00CC3751BABE4250B1109359AA9F2D3861E1D79962881D9 -9BCEEA8776353EF879887A1634F91616A2B8B790F55E159C2E4066FD0A0CCC5E2526AD558F20 -650C940396FF0DA7E13FE8C136CC1593B0F8505CDEC5740E5FE2C004B9FCA0F60712E4D189D5 -6332F4ECE7D02B0D03A1AD8B31E715B3AA484BED9DF20CFE4A08C9ACB37D976A25AF5A91D36B -65535421E88BA91CF4C005E6D01BC197BBBD7E65AD30D92076CA638D8CC1394132351B8DE4B2 -6F94710DB19796A86DFF76FC459B4DBACE42F6735C70336E149C8AE8ECDB80E4653DA10B0979 -7D908A040B3C4D78DB3E5212B5D825076BF373747EBAD7075705832C7D0535E89E8C6E0913B7 -384E7382DBD36B61E882D2CE30B54B38F601D167121F2E503BA9D946500D9BAF0BB5F4EBDB6E -C85E9D5469B212A43CBF5594143A5E8A9813938BB55D17841163A0D68F4DD1F53C66BEA2DFAD -3A753C7A6D5053983ED10D12D750A0765EC73F0740EB00A6B27C688597D65E9BD03BD3FED310 -E38BCCB0915DB8F4411E37650D011B1FF245D0039CC804A5E88FE8B050FE2BFF25F2A92F67FF -110C1AAA6D31A586862C5EE0F37E5DE3D4B4BBF2DCF6A5C308C674D9625C335028EF8E8A7163 -5273040344AC8591F7065026D12952B5383FAE1626AE73B100989EBE89749A5C75E2FA73D56B -3C2FAB79CD535AD116344FD92C9A7886AE5D295A0E17E9D25693BE589A15673B1672DBC9D0B3 -996BC3F616F31B0385C9CFDBCE9924361A4204B8123978B9A58D479A10FB1698AB68A0F20A58 -E79BFD4BAA4F3F82DF6EB838841CD74BEAA40CF3F4972AC1D7036F94CBCA24E6F248158F4276 -0EABEFA3C73325FEDB4DFD1D9B678B2421C31F0075427BA181DD8B3D02F1E53FCC9FF9E342A2 -BF13E38E67FAFB3AB2453E1044488497E5E7C45E7052CC504F68D1B99C898316224A853E3A1D -CD4F1119D85FD1B003CC6CE0200CB41DB2AA7B186A4974E36612971342D1EA64BFA0FCE4A254 -6AC03CD0B5B9DF8D0D5A240F6F5479DA587C8CDC923EE1BF910D35EF58D19DFDD2DDFABFFF6F -6A302B23F2EE998CC605EF7057E90E20CF82B207B318D22B327D7A942C6CEF52FF988C2253B1 -8253A67023313CD67BC738DFD9C396606A136B860E0FDF6281930F6E982249FB3042C69A6EF0 -4ED63838355332062DCB7B3264EF7EACFC0E82F42892ACE4CF3C9B1EFCBD584D13D5BEA35A04 -2FBDE954BDF538732EA1C8E8625D69E1BA42490E8686954C6F5F81E61D1D82569F2E5B4B41E7 -DDB1CBAE7632B309B364D2364B38767CF59FBE5B31BAFA8CBC3ED4658205BA8B9FFE1C549A8A -B11E433E882779F176DE8E414BA5B80C76B3D2FD7AFE8ED585E5D35AF84874F053AB5D743516 -4D9CCE36BEE7D35BE784E57B7B0873AC443DAF345C0BF770F4F6C8AC88B3480AB924EECA27FE -0109F8CBDD8BD948AB57EF2FD6390E0A732B877EA2DED6D253678BFCD888757F4268A0D1422C -17E8140E6D47BB41A01B6050F1C734D07A2D5D5C2187CEE3FDBA81BAD57169C326981D2F1625 -A16BC703BFC62788BEDF3E67F31C7734BE90873E43B3C64C89C7F3C7F61E3F9CC0CB4E14648B -2B3E2427A274011C363FEEF0B62A21B7CBDECEDA8B481E9FAC3514C80CA511867E52C1CACA95 -7E670338F35DBB87E4E990B7C4056118CBF15742372018A400863BE38030E36C24CEFCDE3099 -C7947E45C3F4ADED9FF8EB56F5A8ED3797601D518393375849B7F9E83763A15A01FEA25547C6 -00202504C1A3FC6D580FE15E73E991E7505E0A45AD842C43F9E09915AA8AFD74384F46B7EB7A -0C1E568BCB547177EFE7A748D36A2F952A6DB297D63DFA9A43BF9A61C8E122E9A77F2C25C957 -525F5E134E9D860B9E7A858BF63B33FC87EF2F7E4D217C5252DA8B8421B26B75C52E56650B16 -AEB9F4C38EA7FAA186FE095456DDBBA062F2D3598647F62AB60A65213352930A9AB68BB7A604 -920753CCFB4ABCB0F054105D8F5675A0A569D39F024EA4189A7EF0D3C3DFA74C3B855FFF7645 -24D840E96BDE5AC0B9618707FE5AB915C940512FF31480451DDB994AC322C97C9586D7F4B1BA -5F157C65220EA1E4219CD279FF00A34BE6385E9D469C57B4FE3E9E8A731389C925E9D2AFB422 -18BC9DF195C3AD2676DCC107EC1AF21D9FB8BCB17F3714CECB3E5853DC134B14F32431F7F4B1 -30F097386DF23F17778A190F57BD1ECEB40B0B59A838B8D4984D38AC2C1321B3818D34731F3E -0833B28F39D1AE48FE502BD13B1DF3BFCD8930F24C44C27DE4035FEDB2AD5B5CDED26220F854 -D18C854C43A2BFEC536592EA7B95CEF043F107F8E65884FC01A5C556C4DBBA9C9FAD7B0E785E -895D1D47CEBD9AB039690CB22469220228E3C49ED6F16A7E6AA848D0458A3FCDF24ABCFDF8BE -EB7C541C8F32E32A5B9C455B597AF7261B6091321921A1B326D0FB93D4FACFA45E6864F450C4 -2E9C8D672E91F9BF4DE979567EDE44C4C7DDC20C9CDA11FA73CF5514238BFD53E11B12230CC5 -899E2855963AD6AE476AA5B0442D9E5687A3C498C59274F8781EE7493389F5914134584D58BC -E53FE1F2D37AA4846DFAC56B9924237C62F5E919705F01D5AF6D58B5B191A49B2FF43FC78560 -777DB436B995F9C8FD010280FD1DACF5DB6950598BF448C3787DFF9597DE930444E723794709 -B7C27B1E75DAD5D4B47FA546F7935AA168DBC2293EB096289BDA81225E70F01C7ADC45D82495 -51150F93C7F593F4998331EF6A08D9C8917C242C02A33121696C3FD0315DE737C0B908184125 -CB0CAE7DDED69E5D65D50CA87E231E418FAFD987384525FEBDDEC6EA1CDCFF33AD5629FF44AD -2C7B7C01AEAEF76F179D3D7BC0E61143434CB45B5D8A76F7874E1D6BF86447A2C50F6D38DCB1 -DB281F6BA26895AF8DDA7CD22E34B486DF848FD0DE8C4F7ACAB3DB05CE4C8382126B52A49194 -52E1E89C42691570592FBBE3403FC61DB09E5C4A70BE921CC2400DA97844A8E2337B00516D01 -990DE4C8ED270ABDD60E0115B84B34F97441F640C7E3064D158A6C5FE5548A860F00B71C506B -765BF4D66AB352E43C6EE38F0DA454AD32E368F931BA5121FE6BE9536301420F0ABBBDB55FB2 -B33316822D61C461E26D2E31C76BE8B7F0B9DA8917AD65DBFD023E32F7B7217694A1DF815019 -3E7CB73E9951E2762A6FF77E3F4BA26F9AF60F09426B4E251F1CABECB0892FA4FA58A38417D0 -444CB8F481EBFD418ACF0CED41EE538CB25BAE4EA2783CED0CED7D7EE525C1E787E6D3BB34CF -675BEE56BB738FABEF9AE535727BB866B3D6B13391BD7D762D414F8322DE91EA555AF64E025B -D76D343A94E67BA42A42E1E2C5FFD6CB843F9A3F7149988CC69FB764DEDC9FDF602BA9BADD35 -D2CCF68D967F5F5866A1BC82787572EDF021028D8240DBAA1081D50F7A88B03E8B7A1E3E9125 -2FEB4665F297FD9DCA446791A19E923E390DE799B517F84DF8013081E669FE3967C0CD1EE38D -B0591B91860C334C36DE7E847AECD071E0CE19EEE741A828441B2B97153F7B321962AACF8610 -9356E0CF9CBD7BEAF93DC234A24766F8AF9D8D809C2B99F76B1FA63C7CD0A96D40C0FAB29CEB -B422E44458098165958A5778D0CDC6864E6C126DC6548614DC0E08A6278493EA46C5C9397942 -CCBE9DB5FBED756910EACBB449AA09BD0BC433DF663AB6BFC3C966FF9DABBD362AA50C035AE6 -4249FD22CEF0AF08657F9315AD8585287ACCA147D289B8C422B0FD754889EE299C87295A86DA -A0A6F474A5E3DD5889C7B8165DBD58C65BC7E76D788A67D427419572881BB6377B3B8A4D7367 -366A9A164DE0EBC7AF057E9F071051B2D1D07EFAFE896BAF802B8950EA43C87239E614F5DD84 -5A5DD3DDBB86CCBF563A89D952C9194EA98DDAFA9160630E2D1E7694AD3D776C6EDADA6F8615 -43E06C8BB34146A97E71666F6F74AFCFA70C7A7AD5D14567F4BFF0AD9FB12F0B17FA89F9FBE7 -8109CAB35AC289123445F76A96761DC8623CB6CFCDD603DB08BC06F1121AF915486034859373 -7345F03DE3056A4833076D81FFBDE6A00F13650C881CDDE339881A9A7DB042C658DD96CBA8A3 -1F071EDAD194CE7AEE2A48D9DAA25632E53634CF38C9E68BB886479AE840179705D206F30D02 -105356B40EBD6411C60FCF6DB71C842BFC51391904C6AD8CD096935416393D64766E3217FAC5 -6C41C0D41E93C1C185B453CB033B301B8E5F62CBFBD27CEB15EAC174AE8A0636575F6449AE4E -B27D17B4B4B4AE400918ED84489C8A1C194E9974002A6F2C38B8BF73E85DA13B8BDD3EF3FF35 -6AA5AD736B1529BE1A86251BA39094E376A06A711BD9A671D06C74768635ECDAD9FBA9237FB7 -0C169408A5AFFDA666CDEA34E451DCFD7F91FAD623AF16090B835B2476D4CB8B7BA5E685DC49 -9C64538634F33F15B370B3859F903F64C5CFADCBFBDDE144D165AB61039D801ADB37CD4BD03B -5083D5C16F372B809BD305CEBFA954349C93A8E45F3E686740B922263A72308677227A0708F8 -44C3EB87A6A2D4D4D95CC77FAD42B0D5F7F4421D78944F635E9B4FAEEC78C032E66742B7DE29 -2D086BBEECD244BE69E854FCE17B24B4278EE9E85A4FCAB286267C22427763CF87D99EAA62E3 -378D1A21595265AEFCB382F99364AB14960AC9D7BA471771DAF794602B2340BF00D39B8C5B34 -AC287F2459F94D55534E2C94CAC1DDC48E4A7F6BF1B5BEFF23BFED9DAC341BDCE00E8D1D4CD6 -C103969A7EFCBA01DD4B0918D6D71C954BCE1706A33CCB741E91FA16FF8AD6F2FF0564F3A329 -AC817C19699810EF2F348E8F6E2E77F2F2DE4B3CC1C9DDCFE7DC421D4D66BA5653AA727E99AC -9AF1BACACF8852F22D77E461469870FAF18E9F9B522424F043F399C7B20AF65B1860C7B35EE0 -32139B833586386912EEE227F2388AA7B989CD072C5A9316DD6DB12B77FEC783B0193BE8198A -DE7B057BA55AACEF96AB6EA63C79571242830E2D543FF3ACE88D60BF27292279EAB7594FB8CA -5D43205AF670C892166747C78CC9D686389866E2E3AAB50C6BFCED0F3972ABE8359F5768A42D -DFE911E35AC996714B8708A8CE5C068B68CDDF2F99269482057CE9B48DCEF94BACCD3187B2D2 -CA4B536F32569B66F858F1AF0CF83DDE47644557EE732C0210C6FD04E5CC15E9948839A09AEF -291B7429B85B9F828B80FAF8CB6D9A4BCC35B87CCCF087097B297146A0ACFBD8223C943A9535 -1DA764DB623D1E0A8D96DDBE170AC1DBA4CEDC1545621F6250C28EB66C26455C517D2BC35DB9 -8A588E6EDF61BD07BCD12AF42E9AB2DD8A4500ADC3ECA24E1E2BDE4036DE583D374CE613049E -B8B7CDD6DF01642A19B5E300503B20DCF592D81C94239CCCA91E3AA35F07C42B194F2A06110D -B533445BF4C32E2B18BC87A365C983074556B59983F5B453EEDCA7F2163A6B1626D7CCE719A5 -5462DB41756D354658756A14E293C6DFD3D3F3A386E1DF34D52D9599556E74004DCDDE80C301 -11DD98A5C642FE5CE7BABAF75F8809036E2F212D535D5A4612A011D486620E061366D08D7E54 -398EF4AFDA8E599151E6EA62C721357B313E72B6390F8F0F294EF0E541DC10AC504A4148DE6F -7F3E514A0B0BCDAB286DACEC0851CBE6F2E50C8D886A25E451260F953E8FC1A0DA030F255FCD -3B6A997691303FA21DE73BED93DB82EC0F685E90AA1C93A6637C4421D8B25DD7A5408F2DD75E -D2AD9298CA4C6041E0FAF48DB7B90C52179C545288C89EE2EB95155B890D87C4493F3DB3E6F2 -310D80476BE5447C8BE896977322A930E514F1CB161B13BB3910DE2BD9EBC804BBC7EFE9A743 -5031DAEF8E43AEE182CCAC945090756B0BD288484ABC53EDC93B3071034061DF4EAD870578F4 -1E499C96D168E8DA32209187E75F61DB4CE34994AFFFE068A5B29A864ABD8F8C19C1B272A862 -41F44414F4483B9D4162A1CD8175A7D771E990D3E4F31D5C769D112E4696D0164476DCB4DF8A -925BA4C78C795315606F123E22A3EB62E988E07A1AF40767D9C97D5BD1539195301D069F9E90 -38CD6CD6D7E00C066491EFD4986BDE964EA40E06529C9AE069451964D772217078C2C03FB2A9 -9FB7626E32B9E1BBB04024564032BDEC96A5CE1FF8BF83651C7599C835DC69260F3589B376AC -177682B91B1844ADD4DDF4E07B46E6EF6B6242BAF443259AD1A6DCCB38C68C4175B914072096 -BA68AE975703E36F7370C06034967B970453F14C2387258EB4EADBA81044A270953B3A7B0C2E -81FA4508BE65D8F54103B5E42D61C761E4CAD22A4D2C65B1C78CA29C46ED022F2D3E72EC447B -ADD5BDA47A9A109010F61F7CB10B6E12E0B285B902D59AE9F763724A1A83CE002865FB3027BD -36C123C21D38C93C198BEC1F6E1EE40F1BF22A323B27A041D8B6BCA562944C4AC4C59DBBF50B -E2F748F3E14388D283BFC7DA1FC716EC0B5A6BBB967EF25EB52BBF1E0961D13A3CB7B18CB618 -68A53C8603057DDF2609F0ECD29C45697F32F059DFF037B605A1DAF655467C82431B4DEF6132 -9838FF6C293C61AB0A34CBA1EEADFDCB7EF67F9062505DBC0E0CFA1EFB2B4F9BEC9C4C496820 -E45E4F5DDE4AE4D0B672770144A7B0389D35B808688776207B996DC2B8251CCAAF0FB39785D5 -F5F86E5FA4B367C7586BB635C669C11187825FEDA9A1DBB822E9C3CB253C0274FA5BAE595B1F -6FD2E73CB433ED054EA631686B4CDD3A762DCF7C52B20E7D5BD38D245F35574B8E55C99E4A32 -925A1CE2ED8AC7DF3E92925D22FDBAB5C826A11ACFBF39338C18133324E6ACD1D22DBA0EDE2B -4F7904436EDECEF8966D9764333D3652916C6F2E57C4454F29E7F2758C516B728AC4B16BE54E -C2008EE87B884B8A8C7D76B6B518843F284FF485C6CD8492D992F79D97EF52D888A548138240 -89C4A3D0BBD50C8C9F798385DACE00DC96170BD07295FEF33CEBC8FD4020FC2F2C4990C6D331 -94083A0652A45A1816F7CC3239CAF98CB5631539FCA164B07451444BA4B5FAA73842F2BA3984 -F08BEC9B8B3AC8021D80650E3EE398261A1FD1BC38A73AC28F0AB4D8CB2919CD3DE25B5A5E0D -58F5EFD12E91AB27F0B7EBC16093FEDD44F57561A63AC901CB613A560CB3C64C2BB558FCFB48 -9E982746C20751CC840F4B501A61CC09816BE8004876B2A7D5BD7D59B5E345853F4DDBBEC5B3 -3D5544619225C6A6B9459B719833FD2582DD8B9A3222D4F4BB60A323D5F5B83BFAC3F8956D5D -352168E8D8B3A43FFC8B9AD6A51DE4CEC7F7C44C52BBF72417E88AEB68A12486CEA953A600E5 -11242CCA922ED4F6E285847682F1B19FF6B5C88A681E5E71DF5B80F3ADF1000956FD672DF548 -C439A883A0C868E473A817AC5B21C2A20414EDE0BC9EA9A710DE3C98B6D6DCE43232A3885CA7 -AE2066A485BE3CBF2F821157C906C098F4213BBCBC2F52AE5767A3E3A6F06D74F7A17BA6BE38 -B3D0432EC9915F09553ED82DD7C0F29D35DE22A2508869F614967706BE396EF315843DCA7FB4 -8156D4BACB92CD4123DCC782582709775477B23A62420C3BB9D9C7590DB61C63D4D1B1847E5E -90F4B994A84B40F07DC4A38A6CBB02E583FDF043E229C0134D832872028A4E73FFD88E63A8CD -DDB9B076E6635E3DFBB7AF2997FBA593F5A8AFF7AF1CA2E0A25B9C7C4F5C41AA5D8F01FFD7F9 -1AD02437DC6441BDCFF0BC81AA407EFDD71016F42E563D802DC92585FB8C04EF69153C41FD1C -1626551FCCCDE75C391AC79630772055A52C60DD1E0764887DF929EDA7AF699E8719C80D3787 -11FE7C83EA6658A2300FCF3E10156ED8D9DC7CFBB0965CD7CDC67431D87DF7EA08C515ED54C9 -8291191F1380FF56ED2FC09AEC2E64F07520CFA4EF8A6E74299334021A2EE2A87D6C5D7AA93A -58FCCF8708E976BA53B1C95DC9366DDA2998ECD87855A26F815A9789CDDB32AD51CC9E5AC581 -5767889847B32CAC6D7BED3B0ED007F4A7C20C02D835F724C5BD8E5ABF3F22A304D5C9B1A60C -4455D94F60673EF3A95F50E99C6F7E33D70FB8C748C58772F97AA8335262A0CA1935D9648BDE -5AF9F5E93D9C3C426F0F7F798619D14FF91234821C7B0364048DCD21002DF6D8974DE1D7AB92 -C15B756E192DAB86AD70B80DF11A0F1A2C20D7E333BEC7C4EF46C82E5399E86AC9074C98B350 -433C3572417B35686794791CF897234DD65A466E6A976713CA74BB97786C34AB5B30B94A53AB -FA77F21CB4896C6B24DB4F624AC5018FBB19FA46D0A46F61AF1818CA98DC87B8FAF0E29D1F9A -F830F2FF2F44A4CF52BE2CDD01A6B2624D5C49D09BD5A059A9E068A2D3B31EEB28C3849506CF -EEEA4B96ACE6587C3C87E9FA2AE08FD92538487EFF44643F8FB74BF68874EA3E0001CD1DDEB1 -741A4B729BA11104EDDFA1D70E91570503DA18BA96D8A903FFD164FA19A103BA7CF84309A19F -9EEDCED27226D6489AEDDE67526EE2E555ECFE868FFD9BF3BF5D2E21194C9ACA3FC89CFF90B4 -B72A9E7FE0B5813F80F1D906D641AC353BDFA03ACE4DCE367B5BF13A9B077B2BB80587D37E2E -EB7BE1A33BF95C4A3A8932F7667F660161846F1FFABB1DA5F955189BFD8945747794BC38BDE5 -9B5F75EC6B108EC3585447F0117A5EC03CA80A895AFDCAAD0F775037DC733C2D7E05BB55D96D -F27B45C9B48681E564C1A7FECC52DECA2E31BEF6621C1223DBEA0650FD321E4134D6B4838455 -3DF00CB41D9DAADDC8061125939E8D3802F1A421AB0D6172BDAA6CCB802A839391356183320B -A06EE1D53AB056B9EAE669B115E737C973D3B90100EDBAD7815278BEE39D568A1C61D11175FD -CBE30FB30435E5942BC661D9DD82703822F51AF327A788F30856AD63C762F828B12E4D297383 -D7172296DBD51E2AAA00EFAECD0E58CAD5BE0FB55F99812F1603C367FE819C625EC499FF5141 -82EA7F4EC7B8F883DE7B51B34E0F8CC12CBC8873C7754D956C89566555BFDCC0E2027A3F6D3A -098B4458819785BB93FBADA8904C998E830485E7FC847967338E23A6BEEC071BE1608C75899B -6B23B897150B5ACAD223472D64A55DBDF4EECEF98AD0AFE79A0BE66F3476DF73B1CDD96707D4 -3C4EC5EECEF052BA81548C538AC3C0F3721E45DE1552DEFF6D039700ADC04C1F9E0DEF261BAB -53B6FCEAECE37E4AAC88034B0D545063B5466E0E1DD5D87DB7DE2BFEDF2EDD028323367486D4 -A47102FBA780464C514A9AAE509A3DBA3F7D1DA7229F13CD836DB8955FD1D3786E5D5451DC9C -6517D5C9EA829FD332DBB98CBC8FB2D3DCA0F9DAD2DCEA8C89CE9C202C04F472195B699A377A -2CE6B61F2E522F6906FA003D0793498C3EBF68B3A07BCA5E7AEDDC9684EBFD8BFEE8456D5483 -D74C7A7C3954C29A01082B75178627A0F56619798A4CC5D48CCD2595F53C58AC25064EB527E7 -7356E66369C0B9F33259CB99868D765852C38C91B9ECF4BADD50BEFE8CECA6FA564821520F26 -96D4C48718452B2378EFEABDCE2CD6E47250EBA6058C8133BF0EE78B943B79CBA4AEF67D7F07 -D15C0D4082AEBE956D15E83DAAA9B9227C7FDD9A060D000FBB7F1173EF21430125BE1FB6A9CD -690A1959D843CAAD3A755A4064E248A5D51A57A431B1EBCCE065EB85C5F2F216260AF30A00DA -82E8127F5A771B11390CBDC34BFC1E9D97C6109DA6E6CC075D5377AA2151DE0D55F6B10FA4C2 -CA1B0C5FE0F45B5C354087224CB15348903877AADED839B9B8D422E8F4DAB0B41752A1AA018E -B9F220F0E16BCF0446748DF6F2348D53504ABB41CB8C408909C33CE2748C2B0BF6264B9E82D6 -1DE97C2EEAAC252856FDF426623DC4FD8392B89A0D5B5BA2D7BBC2A1FC18BAD76D320CCD4700 -867C9A9E0457401771986B72AB6DD612CF509898960A27A92E3F6BF3A5F2F85CBE0860FA2EA6 -8F9AFB4857CD9D4AE7A3ABD45644A8809861498170755C48F1F462E7E45F3B01E57A772FEE67 -3EFDEB3EABB31ED3D3CACDA7AE48AA6B3ED473BA29B39BAB15F56FF5DD3AD6FC3422E040E742 -2BC6912D0F2284E4E5580745497DB08180DF167A58BE7F1E7C0EB8F113142FAD7373884ED7B7 -E543431E4494E92CBFF4EFB16B508582A3D3860344F4E9A8A7D1E176D989F6970E767DBDEEB5 -6F3DB39F6015FEBF58E52F9A465C5873A8C24AC7D3CEC3E16974EFB1E99628492C2F57D690EA -B68C0B4A85453FF9B2CF0A004FCF90F00AF198FB75D8CEC55C4CF6FCD809564F0DDEB2C4CFD8 -38ABBD910E135860C389C5905637E4AF094652250C882AC201860790E3A6172459DB54075987 -CC84DE2C49EFA17D4EEB797CBAA1F1141FA51FCB3F19BCF58387BF69D7B5045F68640E33FD9C -0FA72C438EFD5D45D5F10800B8E7FA961E8A136751674A17B5C3E9DAF06367DF13F34D5E2F41 -FD0E2F235CD45BB8E14EA50A3CB9B2C13197933F01F88D871885C77C39ED622675F0B5490C7E -C837E9012B8EEA7AB221D43BD217AB7CB5987FB8B6A1899CD3D5E1AA776047C383B4E99AC018 -C950E58CF23524F80E6C3BEB66FB67C22587FCC04BEAB3339495933499491E953AFD73E71294 -2A46F3E4C1F9AD90D04F42A17088E05CD20F746FB8AB5FDC6EC72316A36B1C40E46B8D34577C -D29324E657FD22365B0EB0CF75A5FC4850CB01C0CA5DF313D803F077A870AD84D1C24E222306 -B63FBFA9C8C5E60D3BF92058D015C103149B1CDA68A3210F850AED00AB4602D27F87518857AB -EA50877B72AF84FA0912451E0644DAF0990A3F2D97CF60738645542C7F9FFEA977D224529B8F -F33C3619B353DB03280F7DEBB4E8E588C0DFED1ED577BAC63228C4BFA98B26B54F380000E243 -249D3DA4C59346F2D1B9A52C345E59268A8E29422834CE561E042311E9FAF59202EE04BD918A -7B87C37A01D513C92B2434635C96544ED689478691143B509B2C6C69281A1AC157F1F5733FBC -DC807687AC43F3061C289F490FB77190A9AFDBCC06B8BDEE12FA132C31793A27AD32F8848594 -B59218DA05F1C99A2B4B6752BD464081EA0422E9923C142F2F82AF40478D599A3E0DAD20B2D3 -0B4D91B3123F85424D0CC2DE70AF45741384774D6BA2618E1CD5B8E368A9864A1B15A784AE6D -A3A5C8D37BD8EB9F36169E75AADC2E003A77095A1D6418734CBEF0950F4F89A88DF4B9ECC307 -FF006DB24AE359EA50F88A2F661AAC87848CF8B9B8DC1E1290BF5C016E6D0271BBF4EA3EAD87 -04E5B744FE324C34F72D014930396B1EC9D07D6E367F82BF7D91AAF86927E6C25AE9D4EBB2DB -14E6D566BCA1669551CF23BA1D6EDD08B23CAB07E4F5341C57867D9DE6C0FCD6B3EFF6272036 -FDABF1D51EE6E45411746F2FA394C223175A376DD87249CFB5F7C2AA8B66682F086E9E52DCE8 -71B5EE1A7E78F88EF4953EAA49C38896AAC64F93D943C5702C5950EF614AEE6CEC088517BAA5 -10F3F7B0457A405E8FB128088DB2C2E0A68045E24D2A97D2B0B4236AEBF2D0F6318733D493E7 -A0A5033073F7C0315945E0D4C216C6731A2305D7DCC8BF195173AC4B2DAAC98F67D0D824295C -78186FAF83A6504847238661E1C952A5F94E5E8145EA958429E2CDC51F33FBF2FB01BE48BFA5 -62F6FC9528730C4F0B5D950490EBB53F331DCB7CA35548174F41D789D067749EC6546C2217AA -20EC9150BEAF486EAD61F96ECEBA285816D69C9EA87A5F4F78C770C0145BCE80D3D0AC78C304 -D5582CCEA5088861897A1CB2493AB8E5D2FB800CED6EBEFE852C11F6B51D623AA1DB4312A5E4 -4B263CB17B159160134D56A054A524E4489F069E2299E471FBD8BFAD699DFA38306A181AA1A2 -090BD6EC8DA6743B653E336231704CD17E195D46BBECBBCA2EDA287742F6DF275A0DCAAF0607 -D3F745D8B6A4DCC1DE41BAD45817BD810DA0FCFE3234795010B881605447D557134DA678D2F2 -605CF6CF61FA7AD0CDCFFB98753DB5F72041F352D10059166A62AD00651F9695FC401190F683 -7D4CF9F5EE5F6FD4B562324BF5039EEFC29473761F79DCFF26C84E3F3F87537E0FA687DD7C60 -A309E16B4644EFFF30F563C93A4F19CFFD1D6BEFB5B196149190D83F1989C56CE65DF02D1568 -5178ECA190167DB9CF12A79A112598CE82FBA5646EBB6F09527786FF4E63FE83BA32415DA6C3 -D6D4071802F91DD9AD5286723F1B216EE2BB0CB09129C153252574F8116C2ED9A7383C9C6005 -7026F370314DEA782F684118B8FD2B7AEA90EE6EAF3D282393BD5ACAB68CC515F2450706846F -623A546268E25CAF599489E804CD904B901B62370189B22BD372D98F258F6A7EF008F0013665 -A39F9CEE1F0BF75C3A4B7DA2CFB7380E700E6780E1A7B9985BE6E33F23C1E1B73A49492079C9 -1866116D3D4A3602A247F93FDCE879857B6B39E7DCC6A5E83E43F8BCD3E2034638FB13C69385 -AE0DDD757B70BD0B68F30CB021EC22AB84B3B9778C38697F4D7DC570B99B8CCDE7463950AE89 -5ACBBF795D98CD49B984D5F32302CFE9B2B83D7329C9A7BD620B0EC13B3D1638231B80E736C6 -25B6988854F694A63A6C1E3D6D5471D7FC9476712E5C8C3EE1499C635AF5C3F88AC96D2569F6 -56CA6BD9538998242544ED13B37DB3D39B54D866320877734B78D695A7E42F142523384F0942 -FFE17092168E4101B8A346FE357A7FFA79B3EA6CD4F3E7FBB3270174DB8CB47B35FEF44295D1 -9CDAB25B0E2A271771D9A88919F33E564D295E7D12AC5C54735AA6212D0FD1CAA53694A52293 -FEB035D8B38695C5AD47CB081E4B1C451BECA3F3611C3296C922F9E038414549F7EBC91F6747 -9C12C61E3CDD10A3ACFAF7105704E281671D4D6AB326C95A0FEE29D9807EC788A823D8CCF465 -C665F95124BE7729B414BBF7F8082D7E82A325BE9295DE0014B9B30062CDC2B959202481CC7E -27FB5FE33DEF3C5394297DAE0F90750C0FF4040EE25F0B573BB85E3BE66DFD7D83789E3F88B6 -8722FD09279242274BA35302204E5D43CB66AF6B721CA2257468B614B2C31DED9F9F3388147D -3CAEEA2EDFF6434D3BC93B502737897C22DDFA57A19334146D5AC90A6B6AB0A828E0096A4D59 -46FBE80C6BC83D6063A26B595CAA0194718929963AF391B4B6B30D4EFE0BB3447D1F902B1D1A -A7C7ECE3DF8442A8520B7DC09FA910462A59C9110EC5046C8C6EED165EA676D90087E5D8E7F3 -51AC8B28723AE01505882DD5D7FEF2AF51DB0DD47351E04C163A4BCBC78BDA5A40F20EAF8A91 -1C55CE196206C7EE50AA3524B5D6D621AEB5734E512F15F40847E1314744D871F984868D5CB4 -1157AEA1D40D3C3E9ED354337D60743B90D89D79A41B3EA3621D95A486BCFD63BD29C2DDC003 -3D035B1DB6FA07289D6350CF12AF3830DDE1AD4F5DF905A8E8552CF2DDC4307A8521829394CB -7AAB0E5D11C916D0117DBCA13C915FE2C436335480E44791CD6000D7B26F288C2EE876C58276 -7801B6569094385C387D0A7E730F2A531ED04C447CBB1D22DF72AFE21278C33677770FF14664 -FD5C576151813B8920667DDF8BE1F4AB716ABAE82B8195F37A857A548E9E517F3E185451D9F5 -B0C3E7915280D9C4578733125EEE57B05DF50734A5232A12E2C05A45F3F0E67398500DCB157A -7692B4F73D359B21BD9B2DE8DA6CEB94C74EBCEFE89CDEEFA90A36B2B48D7EB96CFCC0C5D37B -A2D0C2C53FD58715123ABF538389296891767E95F346CA03E9DDE2BBE7DC20E8892D9EAB9F8F -A155A92E5A1069105437651B5401B4C2B22EF3D200CE6150D57D7E32A0010266862CF39FBB7C -D5366038E914A3D8052C665267F8A56987B5F32D9CEA1C87AF343152BA9E40BCA38482B85062 -9D7E61546FD9BAF369B122F52C2B9BA03DADD9F80510F787197700C318EC8D9DD596033E9B70 -8BD883B7FFD5787B3655FBB6607550F4A9F347417638075C3B6A85AA6FF64BDCBF87E0B42171 -579DD4B17585B8F5FE4710EEE8D07406EF7D4C54DE3211602FB506C702EAB03E5940C945F62A -7DDD93E5FB4229960DC5A77396785539C9E29881DAFD6A715645F83424ECF1131BF03872EF6E -74D46A479007AC76042D98A30E8AAC686A528870FDAB8C86C7220FB1233E3EB7306FFE647CDB -5C4FF08912AA4B9143780CAE2417663237323630D2A87007C68E32F532F9B2173CDA8A228EC1 -98B43BAB30A5BEF545238651DF0329410EBCDC6936C986AD72768FC43215149150A0F168C8E4 -44AD667F9B0EF66F08EAD7698608B67B1D539DBCED275BF1C1A819C33CE0237040588C6EECF6 -169B0EB4AF0E87B5BD7BC8E56772A693BDFCB4F47452C060154122CCA75ECAF6AAF3CC7E6449 -251D9828C38F2EC12F2A9A70D8988BAE4B4F2C837554EF4828B04A51759EB6762DA974FE984B -4BD7CED360CBC2FDCDF94E2588DBECA96EC7FE932900180390261A4EAB3EA0667B4557794D40 -6DE82C873883D588D7E7C338DF50B900F5DB2D4B05B2ED185D6447C8E188E5564C120FF1A10D -6FDAAA5588C446665E09E3CE24E67E39A3E85CA803B6C61F1574584A6EE642639EB52A59B11E -E9E4283A9E15057E9FAFB142C983D4946E749ACCA1CFE44E0C990BE1F7A248B92735B19482C1 -18930FB4C1FF5E5F68BFA9A16F1FC41D2AF08B0B9121E3632C1563B3FF2BA8519E1E8290CC9D -6F39F25B7AFAE72E593E698E23B4495FD110D06CDDFFE71E8C74EF123B80A52E41F0D982D262 -7E7AD70B00572F2982635A7EBA7687CB41F9A93C257D18B2272D9C7938A0A43221BD62CBE769 -891C7613F52683B3E88C3C924F6A6CD41E55AAE0D7F8BF086902C405778A8546DCB8B598C4BC -52D397FDF689989138CDA8234D46287381EB945832F0055E3A0E125A68CC3517084FB3BDA71A -740AD8278522FBB8AB81F99BD984BE4F00EB7CBE95D01429B5EFD7174B01AF54A75AC8A2EAAB -A0B3FDB9AEC4BD7AD5114121E757ED0528A63A02D9F929593D45C6FEA63003DF72257B2976B3 -884AF700CC9AE4AB8E678A196EF111F2619D5448830E4DE5B49A52DA908677EFD30CC05A1630 -F26BCE7A77A9DA22293FF88239821A299A82024D42C23FC30AD2E424F47C97EBEEFB19924FAE -AED0D0D68492768C7F81564EE085747BFEA7B7A25C6A5C4DF97F1C618A518FD9E41DB5BDD70C -4BBC1B39BB23735DC1245634E9578C79AD42DC88D3B9ED30DEF362F6C00DC5A2DD7B4F9FE422 -1B07178C775429D55484A10BDA32135305298A36B485F8B06EA592821824BBC3681E3552E60D -C48717C95DD35302EF45977F04421C8AB8BBCE008562CE66BDC45EF5011F32D4FF67A04277EE -7ED16A6A114CEE6C41CD8D6BD8B80D8555ABDEE1B8706CE276B198619570A0C98FA8FA2FBA8D -36C988D16AF521924E99C233FBCE3706C3C86962A241D1BDCB3F5C5BAA3BFD78B3594DBF0B98 -0F1DEADCEFA694D2C305A0B646856865C9E91C6C7EB11F5FF2C9109D6A0DD5785B30536C7F36 -7DA48EC25912D951A3647D1F35F2EAF81C2EF37341F0DFBB6CB359D3800E7FB65115153AAAA5 -70C4900E12D7F4D77AC9AC4E802D54372628723A6BF47D67467AF2F28D6F723815323F12F0A2 -5F49244062A9DFA69CFC94FF43E148CFE2B03E92BF8DEC4BB67A8722C1B29307FBEFC4F28A3F -268C3FFC2E748DA19B2285251B8D8DD03059840496DA508FBAA013BDFEDA484B200016FDA2F8 -46C30E98494DBA60804144DA0CAD8EAB92D83DBC692C01A36CA1AE82E803A8B440CB0CBC034C -8E8E0F3F860B657489375BC3BCAE1D9A09E6A11C951D7F16A7B455FCAA3EE181085BAE3C3F08 -D37020F1E0BB1069E963CFD4FA4A2CCE5EF6BA378A539083E741F756C8301D8113D139D69439 -63B193584AFF9E13091EA58204F935EB9A404BE1D2CB1E76195BA16A28DAF88DA814CF4B8760 -41B9239EE2EF62BA8BDDF39228D948C21EE102216C5E4CE278E5FDFBC5100BF9ECB4F73A0E62 -07E2F30F48B4F2BB99A8ADACA68D4BBC1634170884A13BE57D31733C6785024A322ABDDE3054 -6F1B623552F95F98967B6F60F01258A1FD1BDBDC59B8F97D87B1C4DEB39C8C5B0C9B90344B5A -288E3119CF842192D746F4998BA402A1E9288F431AA901510195031F0213A0FA61890F5AEB8A -50BE87010E479B96E0E2574A8489429C660D715F61C129C6AE336F7BCC745801994CB0C0C97C -BCBFCC8DB4FAFB3FC0127EBDCEDFBDCD5A6652D36F17CACC29AD6823DA658C9AA3C233371F98 -AEC2167AA29B613FB634F827BFC3953BB88BD559AF454E8934028509325225EE97F39260976C -84093EE2F12A6F9DC2638E74E1189A19D01B62777BC479B613094D9DA7575A402A04125B7B8A -32D023B67D9212543FB11B5DAD8AE96116DF23B8BEE95DD8A8DA622C10E41889A0A2AC5C4C62 -18FF9A44109314C5D51A4B3A4637BE4D8C6C625522D62199D7009A87A20A7B971876B4B0FDD8 -145D309A1582065C0162B1015CB7B3FE1F4AE10D47A2915D034E62BB48401D4C2912B3FE79F2 -0F40D3919638C6CB1611138319AFC795F63A58F921C8F036915A000508A8A37AD554645D19EB -2AB9DD908C4F339C933AE2F1EDAA7EA4EF1ECE0CE38D21A2D29DB3595C7E29D3828344B026D5 -F11F0CDD5C5E14CF0B7449276DAAACDE1938246F8652342587BDF92D2EB1339DA52C813F315E -5003B289588E5EF3ACD15B870A93AB16CFFA3F66FAFB098D47FCFDEB4B098CC8590D6936A1A1 -47DC9308AC5B5888ABA31A6F7E7B6438380EF8E0A8C387959A1C4E9A073157968D27DA910D64 -B63CD9F6D743C79F349B21F5E40DB31002E1C16E09617C877FAEE00F66023CCF4752EC008314 -A5BF7EA5F431ABA8B689BC25668244E5284ECB9B084E6AF3377B49B57A1ADCC82F7F78C01A76 -7345881FAA0EBB8FD34AF091F7D95AC0E093C5A0C72E45D232B6BBED6A8AA7F03BC6DD808CC4 -A780291556CC44D19BD9124F7EF107BA09AF2FADF99FCF7AFF9D06D23E84AC4DAEF579BDDF38 -3E7F1CA8D7E4598397D451003E46EEC6FFA8EC8F47AA7C77D73AFBFF61F7D7EA3B72DB2B9334 -4FA0BCE419B1F5AC9B255565515A231FAC33E6FC0AC2BE014197DC592099B6C16349DCB441C1 -9544706F85CBEB7A11A5FEC510AD0D33312B1633B4CAEC00011E6FE0ED4AAFFAF75B91466B76 -067E2B3AB2156FB4770CD6E2158EF7A35EE962616117AC29AFE1DD29176DA70CA4D5F2E84FE5 -87205F9ED3E157DC5C1D1277AD8786EF9B16FFE7279587D12D480F652D6DB078C9BA51AC97CD -A0CFE9DF6AF9079A1B18B0768F1DC0DD158A3E547C30F86D7A5BF0B24CFC24093C44DC7B52BE -DD30246C249B27C9B85C3E01CE85A3DB809052269337E17C403235D65252B76192CCC278CCDB -E2E271C02BB6C29F5F8F7880ECA503B0C8F95DDF5B06DD14E1173A02B69DF3EFEE185C5EEE60 -AF26BA92882050F9971D94AECF5D50669418BAFE70541AAA6E45AD403667CB6A828391E76977 -D9978A669A7BC3D88209F3FABA853B189251292A808A538436A1B7293CA2BCFABD0BB9A95CA2 -4B0DE1FA6AE582E4F4D043AFB40554DDEAE2D3E14E631133E83CB294ED77FEAC675A6BC300BB -DFC5EF7F8A252C2858106C6088EFF6B5F4840490DE22A29E72585A016306682F49D4E0EBA190 -4B9C6B55AAD3CE93F677D3A7A10EAD86EA75BFBFC7AC55075074E05C1F820C05CF821C0B3CDB -FBD1E7C7E725E36BCD7D61BB32122C99B3AE9D5E68B957687099207E08B0395391F847C1C673 -13A7EE92338D26ED68C74C8D31D97571EC3F0B33261475C5BABA661CEDF49217C657C6C353AE -C16D4A8ABB103404539289DC428E332F8920D49865CDF0FF9AB53C479B08A506D4618B493D95 -407FF8082DBB67D9F8EDE8D898CA1FB7BFA2B745C344DA3DA4A5FA27598D0726528261DE52A5 -419728F7B554DC156E043C70B8701FA6A10015A312DD1B2C08BBB5572A151885BD99056CCB5D -374D26ED6E66695566CAD9C13D09F8DC1BF67AA39F06B53D616700B3A1B8583D419A7F9B9B01 -AA80DDB2CD1A61D5DD0FF7AB43D2F305931562DCCC77292387F160E2437F8DF6D8FA1993BF6F -8D8DCC035E309094800232A8ECD5B68265B32D5A716DE00D414376834B42ADF29D7E23C6D22A -F6E19A2E2187C6D5944065D2BCC82B4DA8AC92F18FF0D4375B7EC871EE647922BACA1DE55130 -F1F35BA4AAD322D91C4BE45C105A9512CF13A11F43480B379317DE532070A034477AB6006874 -F9A48B3B238385F30EFF9F0DD517B1D34FD7F1CD0F32EF8B8782AFAB27FD43C543DAF5D2BBD8 -B102A7C5A1F5AA0FAD479E97E058754B5BC760C12AC3D4E847F4C238B6E8E7F279C44DE7CF56 -F526B670FDCCB57C243DBF27654EF075C70C1D4D9097BFB8C30C6343E3F1E270AEC73708FA41 -F78652E52444E02D3AEB0C411C52F5798A2B31F838895CDA615A9F737F38920A72BF2185E761 -6915147CB3952DF779A9F8FA6EA544CE0AF9002A084A80ED8F1CDA2D49D7B34616E6D7803ECC -20A579F081338A3B4429B019D5EC067630AC45161F09B0C66B17C98BCC954CEA9F2EB5DD0FD4 -01376F8E5974A3B6C37ACA5E985350603EF381A62066DE92731F2B2BC20872E15DC5161398FD -B8F89B8B5EEC54D09DF8DE4F48B1468C0D3ABE3C1D918849E0B564BEBE2FF35E3034948F5F9C -BA5E9384DEAE94B2700D551D7272651DE1CBB15E0321B0379E44696FA9D7743E009D632D7ABA -98EBBA199DF17B081E4DDF127A949567B4A8CEBCCB7E1BDCE1C7315C041B268213C5B67163E4 -E33B6F1D00F68C07DE857E59A37C764ABF8D492A5E00DBAC4AE192B048FC31B72442CF9FB99B -343288137C34D796FA5A2DAEE178B3B6EF4DF967EE9642FF7D8B5BDEE445E98033539FD2B409 -2F7559CD23724BACA761DCE13A1C23EBBAE77431A8C5E6E1E75EFA372F1EA147DD99E991BB72 -9EEB88138D767C1D4FD316DFFEB6EEC1FE927B6D97E7C16503B56DB921FF119DD20E56567B99 -2361FD79AC03F651C0CE333F41FD8E1905D28DC4A4C516442D15DEF40DE082B544B4AF8D39F8 -B32C6984BD1D14A8BFA73160AA194856644D653CFECB088F509958DF6B33DE38984FF6D1EB96 -A3DA805DE811F4A404D85DFB5FFCB0266ED796AD65EEE0ECC90E664646D4D01B25DBDB42B0BA -ED79986A0249B11AB8696B2979F0271D7D7E73B964FCFA00A6EC2C6585F0D33E8BF389A063E0 -DAE68788094ECB0BFB2187CE209DC3A04D04515C0D3702F2BC4E1078AE8334ED51F218AB8637 -A212CF1C3A925DB040FD5EBCA8A9EE92592176D8A220B9F6E4163BD5B244E0258E7590C6CB62 -6CC707A0D167206B9E41BF06DBDC95DF50E29FE105D569D1C844273EBB41FB9E7ACA3A7362F6 -E0762D080B90C44D83A0EF659A0D8691F26A7F0BD1D5D5C2016C0894987685AB4C6A83B46F21 -C514DC7C988945D953EC0462360E2CC844BE9262C26C2A670CA6E94C8BCC3EB03C4F04E1BE19 -F595BBEE25E06FB2E2B284BDEF96E551F2341509682BA5782FFBB5C567C4F3D32CF1805C337B -2549125FCD07F9F52AC67B97B38106885D03E5A4A01A9A283C74ADA8C02F1FBEBEDA9960A3B6 -728BE0E2B09B26EC599FB34A5F1AAB102D50081745EF05F5290BA7F5077449918FB0E103FE7A -9DC2D0082423D46EB801F89AF69B135B094E7F100CD4B60F19A40C1C9EC67D451C1AF185448C -DB90E592EC7F5775B7CAC94939FAF52DB8926AA88019C1845180854688654C4D87AAC970D4A0 -165F2B2546CB3B4906407C0A2A1C5BA3FEEED6F83B4020FC99C2408E0508A7A0BFD74055B56E -EDA8AEA2FFB2D23B96350A1C22BE47697647220C2E1119C7A79CB410107BBCBE4B95ED5FA9A7 -CEC1364D4561D24A0C984BB8C607A33A5B05E9D03A544EE37FE321579E60DE95F3E73B0724B1 -BDCDB2456C5BD9755D4BF184B9F57315457323134936FBA59B5309853A1FA5C3F021EA2E2E0E -1318BF85EB3F3A6EA083EDB4EEAD91032878233907E1F6DCB52557CB79C71C6A8685A6CF57D8 -412E175728F8AC0EF05F954956C28EB8B137B2737B7EE68288BF8F015DAB00D476E640930829 -9747F83132A162C5CA6A84866ED857617A6916393910644397119EC2ABFC85572F030AE7517E -64B6AF62A903DBB8B222331050E7E886BE78532FEED6CA23D44D12C76CB380DF78E27D0AACC6 -91B0A7AD0B7F08F94B50B1317B0B5B904FD5F52064C7B3EEAE7CFFD547B6A48577C83FADC40B -D3EB2271149FB7ED30E42B976BF76149CE2E30CBFF6EE22FBB805AA0FD95A54EB08C54B6A213 -937B4D19CD762E2B5DF47B590CDB4C2BC2D5C6457FCAA34DEABB734980FB02107936336C8C32 -E2B34E857C67E6512C78E45AC91C6A16965406E6FA2204BC936BC5178CBB79358A032460D4CE -048960BFAF631F001E3B56A59D6E9ECC1E01E6076BBA342C8C28CB16D345E2C5282CDAA17C1B -CF80633696A059A34AC4BC89D3CD95C41F2BC6E3788F0D5D76444094D603263AF91D9883229C -5598E2574F063F7531EAFD72070339C45B97A75517432F675164224983BA2EEA4CD53B5340D6 -5D61C1F05E1AE053F9A9D08BC5003C3800A7C7CF614AB812B303C79640A2ADB778651E216C57 -1929608E2011EE03CD8F87B9AFCD40416B5F1288BC76303AE3CA17CDD4230BED6C14C793856A -684214F078C5F13363C2C5EFECE1FE02391776EBFD12305366A63086F0FC9EA928F13E8FDBE0 -572874DB83EA6A3B46FD12911747CFF41D6F06F185D3E8A3751D66BFD6E05E2CBEB6164757F0 -FB85D554D3C6CE70954B64A0F27C27436C4CE043AFDEB655F010FC7358F0995D4886603F8249 -EA74A7FC75CDDD99443AEC9DEDDB50525BDADAD7A4DFC1B30AD8836B98F8CF2E2251C77AD4AD -A710D806E58A79F5B61563C75908F879426E1BDFE0458317B7360772FF13F1E6273536244143 -0C303F35082A7C866CE11F6FDAF1BACF9C4BC2CBF3B522D328F54C30D447D67F42A4947F2D02 -24335D881F639C0DC34ECE7E531C0A1FDD4395151932FB785FC9CEDC896BDF0A897522D7C2F5 -1117445BA5DD237B8214E11D69E1A7DE358A05F8157368D342647CC330115EAD125FFD261328 -FDC9CB819A1DD5C055C7C5BFB6C14F0B566415F574556D818ACD23BF915EBBC1D5E0FC59AC76 -BAF7C1B52A067A889B181FD99B3DF3F582332DBF6A9218F12E2DD5D1F0D73670989B622F71DD -3C4AE97A62A5FAC1E428E1441217A42B2F188CF6CAECB2859811EE64B62F197015F6779E4BF5 -746C0A51DA00FA45000F9BBFA4BEBB796380FA759E2C78F2A83EF47D44BA783757BA946E095B -EB55C9B85EBE4FC2F1C970E2D90F1B32CF7BA86449994B25A9E343F133B46E6E6978060E37CB -9656ADF81C55DE37CF575DE02B8B4302A450E0765CFD990B30ACEB97826E4066FE5399FF86EB -CEAC23323E1F745325FF863E1BDB8B13E9CF1EDF184711B410502B9757EF4820CAB09EB3823D -9B5CDF0ACAEDF0F5E154C6403DB71A9C6905BF75297B6D70C353AACA84BF6278C1501130D7ED -DA613489F05C81221CD1046BE9E56424A6BEC25A6C8B4F2E6B4FF3210D929DDE81168463DDE8 -74BA5DF2232C9181A2811848A0560091D2A3D4A9C1848D5172102C6CEF05ACDE3295B10D2560 -FF899D3A4908819EF4C409B0944C0DC51721F8ADEEE0EC469361C4B725B09AD790CEC26B35A3 -6D1B6BC6CDDEFC0A24C3436DAE1B36921FBE188D89FC89DC8BD98FEC6483995B2F7A461B9535 -D70F36C1831E57D97813227B7B5885F5B09DE0B98BB1478F215C20F7389AA523A5C52E8F1ECF -BBB502CF3C1C3306E5332CF29BDE60DF86B4A62F3A654E74B29E2A31280506A5B0189724D3FF -3EF655E2DAFFEF673504F7E830E32F218E92BBDAF676BB38BF7BEBD0C7D345E0B9188FFA20BC -AD67B52D1B78FECF59956146E94ABB878D833C417C47BC3F827FA5FD849BE8ED6A11315A7926 -80756B0A80E12AF162839A9AFDAEC9A7E45A07210CC95207464F8AFEF7D769AB49B224632FF6 -401ECD14EA41F0E4AAA5AEB1CF3CBEEB82F8C9F51D2AD8F78D61F658088E24E5DDC92111C7D2 -DB07B01C20CA0C99867DEAF4E526835AFE4DB39EA65A360538A49C06AC78C819141AEAE6F55E -6907A811F754007F5A7C3027B63A2F06610B954BDF682506DF25BA2B35C5A0477F352753C847 -B4F75419428E0FA18AD8F1BEB792CEE0E985112B797B003672A96F2F064993E1AF4DF89B8A42 -D8C8A670D378261FAAE1E75135F540C822EB06ABAAEB52C4B7CED772B4F232B53C8CE38415E6 -F7AFB5CA59B8A931E1BE9C62E0FBEEC4C7F3C5EECA07CE2016315BD9CC40D4E36B3D1CB56BCF -6A64D2966CF9C5B6E3288176A29C96A6EE09B1C6048724F4AD94AD726C87A48D09081C585995 -F30D69CCE9F98B91BEE275753C679725029537F94BB76BDF93D696E2B4F694CEBBEC2C5D4346 -597C4178C21CA18EF1C99B7CE52F16E29723AE14F62546FEF60FB6B2E2A65BCA708EF884CDCE -DC8357B13B7238E40EA9E890579DC53CFBC4CD02C28FEBFD7F87F25B9C7B20CC9066E8EC6750 -8BE0556ED702F059521DC260AB1E2FA7096E781264C7753C643D9F2DFD0866D455CD6941D10E -E49BC1213EF78FC269D029D2A5500782F441F2448C50AA834A0670E527BC95332DA1F5ED1008 -201D0916B1805BE8F9C94F5B85BEFC34DCA9E0995B8C478B6C74AA40B93706AC1A3B93D20990 -6B37D20E57AE078C2E823AA90168FE9FC2D466078BD2B4DC3F58CA16A22E69E04A56B33231A2 -3089165203F350B80617559F2EA64CC4D928F6A50F4B45AFECD33E88F7D4955B26A781E6D6CF -98D1A1E5515A6EBB2D4833BD1C8DE7611943EA89AD56393AA8BF4F6311207641F87DF6B73AB9 -EBE400173D08700687F87B59B6DAD67DDA2989F892C1EAD238441947F707B4E4C3609B74E366 -8621DE94B2E992272B059708B3B6C775AEF66ABF6D7EEBC7089E6E75199E635404BD9567D0E0 -F052B748C594853ACCAFCC3AE1BA0B7D4E83E6B7164546F7F23E5C0764E5CEE13B58C9CFD83E -64F4E12F8CF98FFC0186A7F77F1D61215E12AAC516125D89A138C36E12ED747834CBF37945C5 -8A464DE7D19240F131294EF6ED2F4CDF8429087655961096765E4105D810E24775CD4C20964B -0B7DA286971C67E873F8B5F5FC1A9B5A3E78F3F2187F9D0FC192E1D48A3DF5D2C3E71D8F8EF6 -E562572C078DA4F358998D5D383C531C60773FB430A1FB6BB9F0F4150DE53F76DF2894B9AFAE -8C100FB938D04D7AFB026FD4AE3353174A28E48D5A1363C3EBFA86C595050599C9823691C578 -CBCB8482F5ECF641EE66ED133ECED633BA39D601BF76A1DF480BFABE12804D4EF4A9E9C7CE43 -682D9633A65F6F4B68A4F410E2D42509E187E9ABCA6AF01D00D5D1C2335CADC75577ABD90D23 -89EC7DE50313E176C575B7AA15C4F7D67D5D2347EC176E3B6F9F499DF317C74FF469F9D065CB -5A681F032D80753C11090BA557E86E44243917791F19D2B38C8BD5C8C40956729BB0AF3124B8 -D6511F7BAD41C8BBC19C14C80C79DC71ACB9F952AE9CEE47AB5090A875CA24CCD1B05941AE23 -1DE54BC4CC2557E0904D54DF1A47171C7D89634F55D39096275C292A082F6C610266110CAB76 -C760AA56700732E4949B10B41716D860634570F13F53F28EB18DF41956D0A140C779430A617E -2F1444290BE3E01C40837FE2829B54B4061A37D654F581B9A1F8D2516D6B6C768833F0C48C07 -AEB8BCA317EBAEFF851947EAF59D4EE046AAC2DBDC52AD0578C2E7C31B7D8854CEB5C646F6B2 -A2FF4BC42437429D41EA83E8042DE4D281A46611D41A85C2FBEC517A34186EEF859CA3239BDA -100987490234CC3BA0B10BEBED5A32AA6F181340431908E1386EC18E02F0068005554DA9F8FE -6F7A01AAB6771B21F4C140C2A6BF2779D9F2CE47979BDBD4A1604E4456A88B419D5DE05892EE -56BAC7B0E97A1715D74424AEF4DD843D02ECD563F79953DA737E65B17EB22B0308D8B1D45F11 -CF1A630C3ED10447BF8F9A4C7D772D23610417CB8F2E507ED35DFA33E1D734FB9EEAB3ABCB90 -DD9ADEBC0B3F392A0D66BECA529E78F273A01B82C297220226ED89B76034999AE268E890B748 -911B66840F8125E831D08DE03DEFC2E5B4C1AAC145B71FF2DBCA4AE38B8F77FCDCDF6081CB9A -B7CABDAB8D8D95E64A00C95AC59E5D63036AA0600DBBF1055D335EA55138D91E2218AC63A0F0 -9453820EAB44B648B257427AB46A74DEB3584A2F1C63D34D1889466FC89B9F63B76736141535 -2148FF67D5CB2C7E97B6D50F0E1FEC5FED151F25753426A4E620BE4EEC43EEB886A7F3574FE3 -1A61F1AC97CC1F6CF8C9B816BFF2BAD468E5BF49B0325F12CF749F194FCA3938D8A90FE6B7FE -3BE97D9FD776E8BDB4EF10EE10E2D4D5E0E36137632AD04328AC2E15DB60C42EF41CAA59C54E -821C3EC81251DFE66ABA66461A487E9AFA623BA2499EEDC1F945975A0BEB35D51700978C4AF9 -587A290BA2ECAD953F074965EBE0902544873A2114B837D1A962751DF6B0675C4BFF35B8CEBA -2E0895D473523E26174C16EA1537AA164097447BC37AB23BA8AACA7A4698FFB998D0A16E4AF8 -9C886DC1C66703C6844AC6F235A637CB6ADADCE9731B0C945165CE3EDD7C90916B748C1E9478 -3563CD7C26E991D3DD5A1D9F8E64574F01025670D21D7810D994B206EE18DA4549BA281A4C7E -3681CB6E5740DAA4D23936E3EF937BC880701AB6BEC6701BAA1AD96AB558F1E6593246D18613 -518FAB2777DB6272E12A6C214DDD451A2CC4457112E5AEC077D3C5C7267BEFE1ED0B202FAD65 -F0DCC5A81FDD8064D520A74A8E4681AB0A98D0BC890EF4752088AD3ED7CE9EB76B19921C6189 -4AFBE690147D7C7CE5BA47ABB34F3E3D64BD78E889FAEB203CE1357A3882DDCA0D75AFD593A8 -49F88D8ECF32415A1FED3D7B8B70411D2915788DE7590AA98D2CCDBC18D0AB18DFA931AF3334 -5899CDB558C01529F25CF5284FB7EDD1DADD969218DD792433D46048C03CEFA28EDEFC8753A3 -E02E4360DA71B44002C9D8CFDD6DE1F7EBAA50129DD8BEF23A90F80B171B6F0A7BEECEACDE60 -AA19CE028206976CAA94C4F0F86680F4842E570EFAC864F902C737B9485D16A7D278B2292E9B -7AD30815D3062758A2E8DE84298AE13366247361EDED91FDF0E62070F44F5AE87E3430877266 -88009854433BA7ACC6075E7A86CF80EE3D78BA33C3AB6E44304D7C210E2A3A37FED454E63148 -8D03C8AB630EB3A348DC590CE983B6ABBC36514217DD66BDE756080410DDC8DE12D203CB02ED -2C62AF3A6D382CF33C847A899D3D93A6F58EFAD4657A14E5AD91C1B8C0850EF1041C29A714D9 -BF0B14E0BB5645381C50187569C00405C83D7C1F4E7245095DCD1532324CDB8321DE184A3D63 -5F4836D3ED880C71FDBF1D229EE795BA56EA32474A8C302225580070EAD77460B9FE16CE9B3F -3E94C99C9FE7D2B1C972729B9F74E87E3C8B99D98D03D9F0BC233B93707DB2259275813EAD52 -FDEA614382C1F3611B1983037C5540930E15E4D781C64631EFF99A37F4A4A89B306FF8734453 -2D03A00A683F8252BA338954D921F661E9A3EAB7A08B9C9A52AC6C88B5B822ED3A4C44D1AEA1 -06AE29F97F713EA054017B51DCA4E4D9E7709981B78C301894A7F8778871A285EBD161AB24FD -62413E9327DA97A63C49E4B0C385343DD3B606C4917C65FF1EAC827EDBDDA6788D5B379CCA12 -3D284C0193529690E4F08225BD82E3E9500B2FA0549815A3CA092641344CEE7A969FD4B56B91 -A01E225AE154EF7E885974AE783D5D3CB447D302D2F683D73229C3975256087A2C2E4537367B -86852CAAB18C5B564A1F1D04E7CFFC52627560C702A268BAB2CE6E15F0C76702880FA127D130 -C630739E3CD8F1C0801CC76EA2433B33A1F803F06A99C3168E7FA497FE839C4B16D4E394CDAB -70CF95AD886F8491E680F757EA5F420F3948B29BFCBF505C225B7A078847E32290424190A309 -AB78858F27C2494E53A232E4F2751C13D58FA8598C55080AFA1FB261A6BB08BC8D5E3655E958 -48726F36E189076D6F6DF7FC1C502EC5ED87E511F8978D47906512D58A2A324FA04570A3E3CF -C1B925962DFFFB8B033C4D15C273314171036532FB822E07B8152A50BAB90D34097E0C7DD364 -A8A37658DB7EEDD10A54471313C1D130103AF924D3CD448697ED68B325A69D36B388F06808EB -D0B3AD3E5BBB26F25B3E44EF8185B2A3C9905C32013343D896E5324478228EE8792AD23F0864 -FE08685661685B4005B52209E3AE6EA4DF3D1E5961E7E8EFE76F9AF101E71AD5714B9B987708 -2D321C9F4CB431076E11BBA64DA01AEFD2F32E139FAB830AC50C8835A568740D8822D9DB2CBC -52D0B2DA29B1A5C365E1A5F6E25915B51395961A2603708A3D38853A42A25EDE494253F2128D -3A6B0CEDFC78787F7BB4FC4A7940AB3E77C630A0C2C099454CFA1E6FAB9F122DEA8D072A49B2 -E3D6BE93A9CD219DE5F7A827ADB751210000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 - -cleartomark -{restore}if - - -%%EndFont -%%BeginFont: CMR9 -%!PS-AdobeFont-1.0: CMR9 003.002 -%%Title: CMR9 -%Version: 003.002 -%%CreationDate: Mon Jul 13 16:17:00 2009 -%%Creator: David M. Jones -%Copyright: Copyright (c) 1997, 2009 American Mathematical Society -%Copyright: (), with Reserved Font Name CMR9. -% This Font Software is licensed under the SIL Open Font License, Version 1.1. -% This license is in the accompanying file OFL.txt, and is also -% available with a FAQ at: http://scripts.sil.org/OFL. -%%EndComments - -FontDirectory/CMR9 known{/CMR9 findfont dup/UniqueID known{dup -/UniqueID get 5000792 eq exch/FontType get 1 eq and}{pop false}ifelse -{save true}{false}ifelse}{false}ifelse -11 dict begin -/FontType 1 def -/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def -/FontName /CMR9 def -/FontBBox {-39 -250 1036 750 }readonly def -/UniqueID 5000792 def -/PaintType 0 def -/FontInfo 9 dict dup begin - /version (003.002) readonly def - /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMR9.) readonly def - /FullName (CMR9) readonly def - /FamilyName (Computer Modern) readonly def - /Weight (Medium) readonly def - /ItalicAngle 0 def - /isFixedPitch false def - /UnderlinePosition -100 def - /UnderlineThickness 50 def -end readonly def -/Encoding 256 array - 0 1 255 { 1 index exch /.notdef put} for -dup 0 /Gamma put -dup 1 /Delta put -dup 2 /Theta put -dup 3 /Lambda put -dup 4 /Xi put -dup 5 /Pi put -dup 6 /Sigma put -dup 7 /Upsilon put -dup 8 /Phi put -dup 9 /Psi put -dup 10 /Omega put -dup 11 /ff put -dup 12 /fi put -dup 13 /fl put -dup 14 /ffi put -dup 15 /ffl put -dup 16 /dotlessi put -dup 17 /dotlessj put -dup 18 /grave put -dup 19 /acute put -dup 20 /caron put -dup 21 /breve put -dup 22 /macron put -dup 23 /ring put -dup 24 /cedilla put -dup 25 /germandbls put -dup 26 /ae put -dup 27 /oe put -dup 28 /oslash put -dup 29 /AE put -dup 30 /OE put -dup 31 /Oslash put -dup 32 /suppress put -dup 33 /exclam put -dup 34 /quotedblright put -dup 35 /numbersign put -dup 36 /dollar put -dup 37 /percent put -dup 38 /ampersand put -dup 39 /quoteright put -dup 40 /parenleft put -dup 41 /parenright put -dup 42 /asterisk put -dup 43 /plus put -dup 44 /comma put -dup 45 /hyphen put -dup 46 /period put -dup 47 /slash put -dup 48 /zero put -dup 49 /one put -dup 50 /two put -dup 51 /three put -dup 52 /four put -dup 53 /five put -dup 54 /six put -dup 55 /seven put -dup 56 /eight put -dup 57 /nine put -dup 58 /colon put -dup 59 /semicolon put -dup 60 /exclamdown put -dup 61 /equal put -dup 62 /questiondown put -dup 63 /question put -dup 64 /at put -dup 65 /A put -dup 66 /B put -dup 67 /C put -dup 68 /D put -dup 69 /E put -dup 70 /F put -dup 71 /G put -dup 72 /H put -dup 73 /I put -dup 74 /J put -dup 75 /K put -dup 76 /L put -dup 77 /M put -dup 78 /N put -dup 79 /O put -dup 80 /P put -dup 81 /Q put -dup 82 /R put -dup 83 /S put -dup 84 /T put -dup 85 /U put -dup 86 /V put -dup 87 /W put -dup 88 /X put -dup 89 /Y put -dup 90 /Z put -dup 91 /bracketleft put -dup 92 /quotedblleft put -dup 93 /bracketright put -dup 94 /circumflex put -dup 95 /dotaccent put -dup 96 /quoteleft put -dup 97 /a put -dup 98 /b put -dup 99 /c put -dup 100 /d put -dup 101 /e put -dup 102 /f put -dup 103 /g put -dup 104 /h put -dup 105 /i put -dup 106 /j put -dup 107 /k put -dup 108 /l put -dup 109 /m put -dup 110 /n put -dup 111 /o put -dup 112 /p put -dup 113 /q put -dup 114 /r put -dup 115 /s put -dup 116 /t put -dup 117 /u put -dup 118 /v put -dup 119 /w put -dup 120 /x put -dup 121 /y put -dup 122 /z put -dup 123 /endash put -dup 124 /emdash put -dup 125 /hungarumlaut put -dup 126 /tilde put -dup 127 /dieresis put -dup 128 /suppress put -dup 160 /space put -dup 161 /Gamma put -dup 162 /Delta put -dup 163 /Theta put -dup 164 /Lambda put -dup 165 /Xi put -dup 166 /Pi put -dup 167 /Sigma put -dup 168 /Upsilon put -dup 169 /Phi put -dup 170 /Psi put -dup 171 /sfthyphen put -dup 172 /nbspace put -dup 173 /Omega put -dup 174 /ff put -dup 175 /fi put -dup 176 /fl put -dup 177 /ffi put -dup 178 /ffl put -dup 179 /dotlessi put -dup 180 /dotlessj put -dup 181 /grave put -dup 182 /acute put -dup 183 /caron put -dup 184 /breve put -dup 185 /macron put -dup 186 /ring put -dup 187 /cedilla put -dup 188 /germandbls put -dup 189 /ae put -dup 190 /oe put -dup 191 /oslash put -dup 192 /AE put -dup 193 /OE put -dup 194 /Oslash put -dup 195 /suppress put -dup 196 /dieresis put -readonly def -currentdict end -currentfile eexec - -D9D66F633B846AB284BCF8B0411B772DE5CE3DD325E55798292D7BD972BD75FA0E079529AF9C -82DF72F64195C9C210DCE34528F540DA1FFD7BEBB9B40787BA9351BBFB7CFC5F9152D1E5BB0A -D8D016C6CFA4EB41B3C51D091C2D5440E67CFD717C56816B03B901BF4A25A07175380E50A213 -F877C44778B3C5AADBCC86D6E551E6AF364B0BFCAAD22D8D558C5C81A7D425A1629DD5182206 -742D1D082A12F0780FD4F5F6D3129FCFFF1F4A912B0A7DEC8D33A57B5AE0328EF9D57ADDAC54 -3273C01924195A181D03F5054A93B71E5065F8D92FE23794D2DB9AF72336CC4AD34015A44951 -3D5F74BFB9A68ABC471020464E3E6E33008238B123DEDE18557D712EED5223722892A4DAC477 -120B8C9F3FE3FD334EACD3E8AABDC3C967C61FF003B4B10C56D6A490CE9594D57A2D431B9E5E -10FE3D8832E227A7087611431ABCD02985F4865E17E17F8CFBD2CADC97E0A8820E3ACEC873F3 -1464466A9545E967E53CDBDDB8478E69063FBB891566BAF88B7660A4405B16834761F041CCF7 -650AF955F9E853AA9F5F4382E1FE7D0C5BB4023818A2383F91249D48CE021250EC9EEB1D2835 -E18FB73026250B189C6DC05F099EA1D74F078912E0F737DCC54A56FF75D791A379092CF27FEA -42A159B90DF636A770108B850365F3099CC43B87E443CCBC55DFEC052E8F00ACA8542A3B4085 -282E3199F842297ABADD60BB95A8434F7BC5A8BEEFAB9A6B43A12CF751004806892E0391F268 -CC599D758E8DD90D8016DAACE5F29A8A723BDB10408860045B87E1B327E17A5DA679F62D0E0F -E601CC16666132CF91515376FF0A82DC0BCB386489F22E4722D91F760BA65EA75BB09F894DE3 -7CD6CF5CEBAC16CA99187BAB7A75DD91B71985CF03F3FDCD53DF617EC008D7D16FBF7D262ED0 -003397CD64FC1B6A311A04201E7FA5D04155E6E95D2DFFF07E766CA83278D0CFB9BC909CD4CE -92C1AAD4E642408A89D25F1AD0AFC4A949B275A6BEC5509DEDC234F5B6DEC8B7BDE4D0F4F891 -068A0E32638CAB99A2C0DEF8ACC121F38EFD22643958EDF4F03A5533FD4D0FE13C102D98DD16 -12103EBAC2A9662C4495635F4F792B575C794E6AF849C1981B9769220A5C406014884FB5A4A8 -3ADECDC8DD4AD40B261A791B42D8406101B07D44A7600834913D02512F794FF9F26C57F68AC2 -3B580D9A21D0BC7AFAE48A09C4AD9C896FC5EBEC5894C56D590592DE393F9E893234278B5AE0 -5963F1C6355126226B694138FBBBD44581FB44DF159703FE05CED9E4F07B0C43C437697D18E2 -3C8969685985274138319F8AD3DA33E3AEBC95EC587A2E7F7E50F3958A4C0A1F1826A513043A -E04560FF6C5F449D32F830158F202F2A540CB77FF4BB26768E944F2E8DB3B39892D4E91C6A5C -DE87FF4DC8701183F8696477BBDD5F789DCFB29A52623F57FC050BA8E58748AA042160D5D281 -921A47F6ED74F02D2870907E6F8FE9926DCF76A81A115C5B46F7341B97BD12CDF4F5FF3EF701 -6A97F19CF0D45313B09C04B3C8B3C4112D9DBEF4DD3A924962CD873357CAEBEE8E354BA76221 -9ACDBE3F68EC4218E336BACA808734444ACBF05DF444F048499626A90A389F1F4968CB0F31D8 -8A97441F31ECB23039E95B77E637924C2CB9E251C02D97EC0D691A73B75383764AAB116D9B12 -D231E6EA017C045C7F566FB626D85572A9BF48A8AAD83A412CF1CDBCE51EF6660D4625C00B37 -AB0D8090AE5646155AB379D44E87CB3CE15C7CA9AF73F5A71FC2F103E8F3DFC32637FF1F9EF1 -21986D0B877E7F8E7615442FE094742C7B047EC4067358CC1EE68AEB0ECCC89F8F8F8A67A240 -1A1A0F29F7F2E24D866D9FDBDA10BEA452236581BE3ED9122B00272269D6BEEE8931A2FBA821 -1C3C6D820FC352986126C8E523F52F29AA56F8E16E041F9CCDCB963D45A7BAF693B596580EDA -4CD722B8D48D16B35559DAC9148D1C29C1229C1951C2021E773BECE3F38F22ABCA471C868766 -3854E3EE2CBC98FCCE17950C04566878D78235567306F0E27EB05F6ED5458D1730ED58E8DD95 -FDC655059D17395381C32B5F6A83900F7A3C8395CF6744D679AB5D9153D223F0CCFAF9B8217D -87033F07843E37CFDF8BC2A88862A23CA99231567825DFF6EE685EC32E426E84DACB63B762CC -C053F2C57FD4090D2A140D0FBFA53B0AC07B55BB5E33A71A998AE6E4B371E1C5B9D18F63879C -FED8325DA0DB8FEA70AA1A6A2E532344069D3F4F169DB3548EC4594254BBE0C13255B574DD9B -F0CD8F3EA3358F49E0C1C978BB33C554180AE6A5268114CE4B5688B82BEF633360C41E7EEFED -8145DAA39EC1110FCEE74722CC978985CBA50AFC3C761A0BD7D7BF95B26656574AEFB5000B8D -A935FFAC4117E4499E1C7C4502F53DF7724B23549FF120F8EA8FB10D98CF80A12AEF60D7CA15 -BC0E88DC7BEA533B579779274FDF3655C159298CBAB05A4FD551A7233ADC5C28278DA78D1DC5 -42B6A3A3A99A4292F9CBD23629ED0C500A2F06C8C4D87670DBA4822F5F453C5E0E50E34C16EE -441F285F3F9EEB05FFEEBCE12E7D5F3A7D5BDB57A33AE49E3160FEE026106DD68093563D2A7E -550CFE1ACF9D5D27278BF8D9FA048CEE5E7D3FDB46A5CB2EC706B99B5E3080627D3537DF53A5 -BE4F7576684C21D7F2497F4347F7A278B03E6FA06A3C839AEDD9AA912F73F6FF27644E23E92C -79BC7390FB1AE75EE6651BDE374FA2EA2F596BAAADFAC418037FA7B2667F96D91ED6E77E5758 -291F7ADC4CB1741255B9EE8BEDFBD2CFB345737DFD9101F9642CB48310ECF8788DCF3AFC916D -5DB6D3F418C63AEC7226961CF96ADB9F9DB73F1282AC2ACD0E5783CD45B3B4B04852B6FA51A3 -1735DF44A2D12D759F59AE9C1200FD871192076A0E32D5C064F383F06CD1E3C8E88936EA968D -9DF131EA45E20091460EF3F9B7E129F96EB93E528BE878DF8C775A484231F974AE60D2248952 -813388BB323F1E5BD540433D248DFEEB7021A3D9BC622E69C6039C71D028A559C4D9799B01C6 -2B1038B219FC24F98FC19BE2E874722D8C5CBEC787B1CDA23E672CC854C73F7E24650E1E155B -F5223DA151294ECE3F5A083029A1EA33FB111E53A28C849009FB6AD1AEBA7F9B785A74FA9883 -6F2FDD82271717C8D73CCD5633FD4BA46D5CBB372AABEE209A47FF92ED79FC3EE4B667B7D14E -08C693FD836200E57FD7326435C9F5A45F3C24C1EF00CD59D6C9A5FEFCBC2D778241E5FE7627 -5EBD25AEB1079F2CC76611FA6890AA450A06701EF29AD1BAC73060817E82504738314F7D68A4 -682B9D4E24BB2021A8A0BFD3633807056CFEB325495E941A6175B0EECC2B81DFAFB580475FAC -2382588E140B0CDDC3238A6936891F1FB86A487EE9A9496CA8EC14B2CD5BCE38A42396C06F76 -77BD6A0604E64EB807E0465E545C8C22A0417268289CC2CBC10B20086EE87C47EAC2B7509AA7 -5A58D9D82E3F2BC1A9A845BAE596C06EB5182BE0BD0D40D3CDE4E626E76E0855195D565FC98A -07561D603E4D51C5092100739359B66C93043644EFCC7FD710C7EF102C5C204269FE94A61D29 -1F0FD77F400C3334B14CB60CF9C92A23DEEDF0C13514FC7581EF8687EE196A3FDCE66A70C01D -5C9C119E77C698EDED6EB3EBDC37262C74ED8347203A9FFA77DBB3381A187C4D7682B48A82AD -ABCD19BD8533F36D102D47C60A3CE82D4257FB1797090FB19628B3551216F896FD5743F5327F -384F914FD3422B7BBA82D974B20EA8E6B8840865849A77F6FC63DC97919C1FD7699E3C2130D2 -780529920D8105250E22C6A9BE0F40D5BBF86A7D349E3386F5A4EB2A277249300A4C4F762F29 -54AA6C8B37352A78CE88478AF673B401F15D96F8CC5A0CE99E4AE825C586668729456BBDB133 -F0EAF84D5E80BB206B06D9DC003979647EE187FBB07D2499BAE9CCFA7E5FC83F21FE2A8A21ED -2B725823F538D0FD5A321070AD4C08CA06DA5B282E1D77BDBF5CEF17FE0BDEA9298D92E5CA10 -665E23F8BBEE67084A8FAA504D4821361D561F1680F234693B6DB89AB457087691F82DD34329 -B298BF53CD16B842292774DB17F7A198E80F9F0DE8238BA253BDEB3BEDA242551C3FBCABF838 -D5158E70DDFD14FC66FE7C4C0B94CF367667F24A6C1A7703FBCAD655370E700B49E89B453C06 -BDC62E0D5BFD28E3DDD516B4765B1920D1B20ECE5B4C66668326028528A467A7FFE27578C5AE -B2BE2E091BB407300F359A2C9E86AC0C7B5A0D78D6FF4088E0015896EB9EC38A04948522BC1C -CC2629DE95F2E219331B3BA9DDB34A31CE0A672C36DA6B1C60FB0C4A53BBC1728C957327966B -3AB200D0D91E98E40C690FAA22401C8466FE1C1C6A5330798E1AC567018FF7D86AF231C8E619 -6CA53FDEA9D914A50D37BBD2085B65F90E4134F3359A874ECB9143FD08FF63C72FEF02D1B009 -51FB09203795818A4C03F1F122E8610077AE5873EA0CB53BEE51498BEDB24C672159772721C4 -0D80ABB725AD65354171F3940A8587039AFECC6B3D790241C7BF94C2728C09003B6EFE8C0E64 -77D6D016A2E43BBB166AF5E5EAB07B44B427B760BC7B191245E9DC6A5279A65371ACBFB2B5D6 -F28B8151EDE64E0C948EF2C03E7D06083F5327A8B3319F73571FDBD13A18CF7C4F6215985FB3 -4D9D5442E70753A2E3BF6B31B4959D0CF25FD12B6C4A61BA75E0A2BCD05FA8C651B24EF7E787 -0B253AC7BEBA1EBD11365C26D07E0FC2310C2B1DF016B7BA4E7B4B58D93F227FF9B985668D3D -D2708C11D1062B66B271EAA39B5A44F2B88C9F62C6293F109A047F6E8EE6AD21AC5B1F1EEC80 -8F2EE1C41F6CADF880F338856127DB685636A1E523FB1AF87F459E72EA0F6DDC2653248F2CAF -854CFF8DDAFF244F52401EB1E1F2D269B926067D2AA1B835C1F8BA7D612D213E4547606BCFC6 -EECD65DE13491286B2C22124B516027D55E8ABA71D698469544C4269842D650F410248D7CB53 -60A6FA4EB5C154D6433EF014C565096745633284BAE3765352A0E6248F4EEB81A6B36F9B6D5A -3EA5D19E595CC7787C6D0895826B3E321F90614129A66C53E4F945E30C05C8599FB4ACDFF5D0 -570388E6EDBB219566E01DF40F5BF67B60DD3A2E821CBCE23123530800CA75D10BDC2B4A8F2E -CD6905B8EF66DECDC5306639CD5939D4B1E35441A099B197DDBE4D6E741C3AFDC81383194969 -1767D24189784E58B0CAF86708D4076C5FB2E98B919951235EE4FFA80784675D75F798DDDAA9 -5B9A52A323B7497623E19E1F7838F6042C3476A776047ED9C1CF191A337666F55594B74AD0F9 -C7D118FB4EAB6652ABE037C6662E04B09B9C887AD17B9A5102D31C7C88E42567805B0F9A6596 -492593CBEADDCD13563BE2444371C19177574DFD6AF439CE659CC2F6276D5A97D1E1CB93E045 -0E5EEAAE29295658071A7E964927BF38F040DC971DA34647A765E7B0BE81E409C30627251D70 -2A288CC3DFAF2576003ADA33F9BC7F75B77A6F4F7EDC2ABD20222B9BDB73D492DE2D01469D3F -0C98740D803D81EB9EB2E6812B8072AD4ED8E3DE7729E42B199CFBC34A44980B5839ED53EC50 -3ABCDC6EE53553ABEADFCE56825AAC19B55419C62760BFA14E0BD6E9B260A4B206FC4FFF6F2C -1D140BBE7D3DDA16A14467491E573C4E48B53BDFF385F2CCF3D2221C4C4440C730FABC00B0C4 -CAB1513719D0F98BE804753EAB4347DCF87738B77C1258526CEC2E33627823750F92C5213D31 -508BD2061973E5269B1CB3FFAA8978F40DDBCEA3BD12F6F6235BBD2BE8DAAF4F77FCF71EFCCF -58C8F2F79249E58B8DBBCE0C38C8ABDFD3BCD034E0FB62D9830E72A764D86FD8F30A5B1BE9CE -52574BCA215CA66BFD975A17982207BDF765C629C2E78E5C060E35DC88165367701115AEDB37 -6841001999F7E72D8D4B4075A262CA63034F181799179BE415046D323D18B65ED4356DCE7DDF -5E4DD421976F815F8649EB45612319C669AB21548CFD6F934E08C0B9B259A03A22827F86BCFF -D904D746C2E63FC9E69F62255B9739A97E1B06EB84B52626DC0084897D74FA7ED81D10BDCE53 -370F46CF76FB7EBED453663C55CC404247539EE25F09FDAC3656B57CFF15CE4305267F2EA785 -D00295E6A227F7B95BBA2554BCB83B35FC43C623EE8DD1DAFD542F9B4B58BACF04FFBF7C4307 -208205A814D2575EBB420D3E6EE899EBBC67BE0113A94C9EBEBEDDFD70973D3B82E1BC63FB5A -68880FA4ADB9B1918B2461EDFE075EC0784BF9999FEABE9999C79268D8C8944DF6B277274FB4 -55A7A7D6559BED30A2250D2998C39E5CF6B4F1070DC891542B9CE056076DE5D679816998335B -6575884E7E877FAF606B468E4C72A49F964EBE8C706D53097753AC034C0D4AEA8760962E9762 -CF447652973AC2B52E4219BA7F1FCB55110B6F0456CC659279105BD63D9EA8C717D2A477D06A -BD961FE8D9ABC2DECB0DED57A841CC1E3EDDE6BDB5871FCD68453546D48351C8B8734C2D4115 -1380E1C8638179E20DF52269EB5C65B3425BE84E5FBA4B747E8864F87F6030D9EBB22AA62B38 -AE62AA3C74A535BB21DCE991E871088AB58DB2D1961B835C6F03D183B79E10F4D2921E7ADA31 -11AC0CBDE013236A4253956044E46C498B57A7101BEC281AA9DDE036B29A87FAE9C1F6F8B63F -8F4DA449E6FFDE3B3E2C23483F82A62077F4F987242011892FD7E1A7DE6B84C10B71195E69B5 -9C1F183F2D58B3FEA46916990384114D582D350509161F23479378C0D7395EA5F9400D981545 -4E82FC4CC816AD4077553522B312473D8B7BF4ADC623B4FC941F7B5E70981003F0880ADD6FDB -46724A4C06932B442773B9E85BDC78B78A04B5E04D24EDC7582C32FFD0587C0E643D15AF98D0 -F4F186EF9C470FB00B1F182351A2D7E38326896A59C6D66C489CECB81D4B666C79E50F4ABAD4 -44D96BA33D3F9D806947C03D6626BF12CC1128ED78743D51686ACD7F3F848A07D92A1D891333 -1ED31ECEE25F616E34FACA28AAF857155796267E8D7EE79BFA0CFC8FECFE72A8CCDD0CFB158B -A4516F678898EF1CBEAB2417A0A6BAFE91EA9A3D073152C3DE33AD652DF209FAB479C68E5031 -CCF78677779EA7A6AFCAB70D279B97CB440E555365691D53AFC39B90F8CA00949CD7017E2307 -A3221979A243C94F908E2AD63A5578CBD0C200262D29B33686F017BA25A79EB0F325036AD88C -CFA3D5F65808C5FE8C55D882862F350FB8C7B043E3AF64061AFC1E10A5F79BEB6398671CCB6B -918DAD34C4955F8A0A4724EAA84863E914D15E66F0C39CA1A1D4321C26BB424B78615A4B30B6 -9C30203DE58B3C88CEDEC656905DB5F053A25CF1B0F5EF561BE9E44CF5822EE214EAFF83766B -9FEEB512D98E0E033113B7BE915DC960CD072B3BEEBC36161E1832800194A42D3584B0150D60 -5CF6F96DD09A73B2AFF365E224809109FBCE5516335CDD969C640406A0BC455F489B6D4A9E48 -A83F2C1AC6ADF76EF1F6ACA36A4CCF79999A697AA0F8CB8C2399B8CFFAB93F429D0CD4D3D0A1 -8C038D1C0BD4A65BCCB18227DD937B64C0BB97C0AEFFF4FE0B071EE4DABA928C2BD66BFF42E1 -DFCCDFCDF49B09F53F1A3CB37062C1A2ED8A87E59DB1F74FE75B0584F4076E4BF5E4852F9DF3 -6D5016CF4DB3601AFE9FD5C4C2AC6EF1B7E58FBC86214DB4B490FFE4F836D7BAFF170A8D7689 -BFAD2C2EE041A97A349D111E861A83C9C48B0145ABC3582FCE43C5D121F0EB6F776157B26452 -9D66A83106027D4DFE746034688CD8F47B0CEA7F17946BC5E285646A5DA4C2A3BD12F0A43BB2 -76B73F6F241B770D2EEC74DB621039D14F3C7956CCEE4E7E9AB5C9B13EA991A2B86604014769 -8FC44683117B167731E62CDEECBCE76CA717C161096CAB6ABE3944DAAD5684B4E74B69E627E3 -51B9977C2B939349E0DD57077340219A3CD83BFC8278DB38AE4043424C81FD0F073891CCF510 -DDF4CC88CFB52D07DBC8E92CFC867BDADFD26B48E6A55BB508B654236B6D6E0D8B344B3203E5 -50B489263FFFA20438F0184647BC518BC0BEACADF4491AF8D5C56EB94A6815412C9200C5AA07 -983CAC63F64DBB5F3770C602E6DDD5BEE6EA025DAEE83D5A4C993290AE8C0619528800AA4057 -A32B3AD48021700C55203445CF748D1F24E11B78183647DC04D71F3CE00A4D3D7542BDB04BAD -D357C23E940B655376F5FE64697268B204A62D13551FC49C93448319FBF9260DC93BCC8F70DE -DC358DF4576C7384213E7FF228B69E1840B72B24D1424C444B9D6F5C232D63CD4F8B5C2195DE -9AB9EABCA81305DB9841A385951425F3CD383C589CF552A4181DE0670915C269CA5B435968C3 -73904CBF841377AE5DEAF5860E21E32A42165C8353C9CC1F092F4287D7651F4644CF51DAA81E -AEFE6BE478B8AF7F40D93DE7AE48E9CC1108F9AF189042DE502B6A484B0A702514C15512DA6C -6A51F16A6DD8DCE17FB1BAFD7D117F2905F7FB7AE35908A81B4AE884F9D96ED1C61D6CA62BE5 -88DFAED18DBB716F848A5F4C15955DD0CB5C9B7DBCD1BEBEEE5D47936BD9CFF3C3A2A47DE6A2 -935A5351E47968F8C5389BC7B4DDB26A032B99C541D7616E6DFEE9F1EF82F59D06AD30D7004B -15217DEC9FBFAC45A39179A977BEB36A2E98DD78E138631FB78BB34B51C9B4AE7A484B211AEA -85FF2093E052E9F695415232B759A4516C6C2DA23945F944269DAEB43889C7AC5AF18449793C -95CE07667ED6D148D3611BDD489D925CA164D36B8BE3A7B13539E901214D376169F16676F14D -E2955D6F18F06C1F26EB2DAB67F071D6B92B62F1651CB13EDDE1D29711B655EFC1D03DCD24EB -07E2B6C129C4EEC4A2CD0F93DB7CE80E91F06EFF37DB4FE4ADDC41C9CB282ECD05A3ED434571 -460E34ACD34772452B0973EAD1ED46D6B8774891BDC33F9A483D47152B6EF30AA8DBC86356F0 -507F2893D74A38291CB7AC5C95FA3143919D8037CE05504F8730526E9D7847863534CA5B22C9 -4655B5AFA1C372DA6C6E5F4AF3FD6733CCCB734D92BEBE322F29F25D91160A424210DBC49182 -937AF0AFE2451004D133155383EF6400CDE23B8E98F06CF72B5D3FD84E73720D3FDEEB961E27 -04C6A8BB7DE7254F88D9BB1764B75071464F3057FB802A8A804AE20BEEAE93DB98DE23ED9FF9 -D0BA6F82F9C121E43A2E90241D791E047FD406FA2287681201E09FC721F3FBF6C63C2901CECA -8BC8C08A31DE347B703D97D87998B40C641CD9B73BAD06A62ACA41EA86102249412EC6029490 -5ABDF63E22226A44404E83A57D294386F926DFB30E4E69B1ADA04C0BB921CC729BEAAB1B74EE -B7B9085AD927B465D01E0FCD4457526D64A3B9FD70C127C4A31F0982334E7A9FB96EDED7A4A2 -6181DFED9CBADE04F48322A04A9B7222DB2FD1EBFC8A741FBB2C2B7B8D53A63F9F1D30B9BF64 -B0365331BACE6BDDFF67165A42F70AE0EFADB3046A65DB2DC777AD6499394EE2DB30D98852EE -734A68120DDA56FC6ECD0A79C6C008D721B9B27BCC0316F884196CDBAE8F16946CD516BD7EBB -ED5F359EC5BC40A4081B4F7E985663268ADB10008DF6D59F1CC4D51744A45B2B404E6CFBD8BA -F9809930D703FA576360B242414AC1F955CB31574E096F1C03C3AE5EFA4D9CA0B3E3B7659B13 -AEA47A5AB0CC5C2449FDF041C07DF6A10D53C18BCB8BB846C142D2C42FDB45DB65AD2F2D3AAC -C06F4BC92D35E0F7D88DB63936C6FEE712010D7D07A8BDB9FF462F109936518CBCF295C49DD5 -0C003201BE98B9E03DAE37F40B347AB39B1093B30D44F25A2984DF4EB668753A53512954A72D -151779B70D80114908DE94C8F0FB1214995ACA9F63E1D090632656DFBED09B2FB24DD09EF6BB -51FAA8F7571F9A29932B610E53A55BBB9FE9A512CBD430B9CBABD7CDE1BED4AFACA4092203AD -9E5C8401B7AB60D5C499001A0FC13E9A4F1245F8F32284DA6D80DEA738C2C03D0451BFD62DD9 -69B0353ACDECB50230A9225E0C25D35076B4B9968BF41AEA564137FD5767DDE33F5BC4695442 -03D2E085E8303E925709A5632FB054AED82C45FABF7726100E724F9A85088E446F13384549B3 -B5E1DC217E8A9F4E060BDB0592363AAF1D1FFDA7FA88814DDFAA3503BFA39B55F69620A80B44 -E7B86A5F0DF4F5CB6356E669D6CF3CBAE5672CC72EC920FAC9FFA987CB2BE9DECDA51187777E -14F6CFFFC744185EE22DAFD24070A64A70077E32DEED5C9FB49D21CD373F01CE7E8E80C3C81C -E7C8BD85D011FEB463466BD6A53EB3A073C98D881306BAA478D552A1CB980216CF5F7DAA443A -1874263AC027CC044B97A26CDC2C58AB5E2D77FF400C7C1A46F8B3EF4ADE6C53BED1C7FDDF30 -03A8922638FC95908C50D357DA2868B5E11EB99A45538CA91EED925C55E4B0DF0EDB9E36BBB0 -CC962D1B23C004B76C6E1742EF3CB42EB0ECB21A1E5B53B0E292178FA07A678E9A4F5862E9BD -DA1A0A5907C3DB8CFB65C9367400A132AE6775B59FA170C56589C8C89C5F67C52629C985387B -050E6D7DD27D8AFEAB29E9A7CBE05AEA15E12E6201DCC730409A1261BE25D7C6230551367022 -0D82B3692839DCC79CAD5F8927BAE9F2DAB968247DF5E5E881E755D62BF45F28A1DE75CC8ED8 -D0D3895154D543FF14C8ABB5CCB5C196731EF7E3BEA8ACCD7070F27AA426B1450373AAAEFF2E -D807154CFCCC1167E517301FF057CC6208AA7B6F582F60F9A933B13E420EBA065CA35AF94226 -FA7E5AC0F907E9634C69EC76B06F41402FD17CA42DE0A7F0B509A03DE33F723E5AD5A3508DA3 -97A5C9300608ED29C299C520609B8C34B397E19A60D97176E0CE92270D872DE4AC4276F90A75 -073302BBE8754B0B8AFD86A3D72590C57855DD722B2FC13A766554BA53412923DBB3A32176EC -BBBD50B66D07494973F5249B4B34B86CBC73E53FAD5DB71358AE548F8B994C16F35B70BEF74C -9E4F13E594548071810CCE715956A9B954EB7AB1D68BF446EE15E444A7F201B20F79ECBB951C -A996012837CA40EDBA08E518DD275ED2E367290B0B015E4E5DCB856BFB78A63D685255A23A4B -A8B01D60A5655232E12A5937209B27C0C4BA051DE5ADB1A38CDE828284FF2CC2DBEA465F6288 -39093C540EF10A872B964DDF2576DBA7C6CA9B6BA7AF2DB6A2A901216A07FFA5FFCB73C431FB -8E6ABD97BCDCA9596F9D75E51975C07358392559405DA27E210E87F13985E120CE423806612B -D64360EE008321AF9760E948DCF8FC9FF028AAB2FADA37ACE3329558F8B12EC74AD291345110 -225C60EBD760548F746D1F6AF5F1618C34F989AA535734D5D12EC695E1A205ACECF19854FB10 -6B0E4B6B8FAC20E317C3E9C7CE352E51CD60A719D1BFC6E1DB02E93AA78344CC2E075619A1CA -B2EA569D3FDBFD6E2108DE14B460FB9288E74CC2F7C438851D851DD8656751732BF4A01CBCBA -7EA0EDFFBE45DBBCBD8B3F09DC70B255EE0DDE89659E53A56559849A9CDB450863F8E452A1A0 -9868D1548EB59AB5009D473EF5D688455AC2DED15E295F65C5ADCEA2E22C9ED97C446ED33580 -AE9A7038C63864BB39F4A3A114044ECBC77E4C7418CF0DED1FBDF47F452DDA12F4F5F073AA53 -98BE4457F8318B58045C42238972E31DDED3EF0C86C0DE562561BEF88314E8705D782C3EA6B0 -80AEC0DD31D60CCE007E39BE91F31681B48CFA05F73001E216BCCB8202CE73C560A3C790240B -C5F96FC83ABE418E23072B76D480AEECCFC1D6CD845C8642C32DF9714CEDF521F223306F693D -2978944F2CD0C00BB523D6B9ADD6CAF63EB69192A4CF46841F9E153B2D6DB34F0FC54C717301 -11FDA0AE53E35398FCBB4FB70E50724E2AB4C59E94CAAFF218C1B23B3B4C4D94F6C4CE4EE740 -009BC3E3FC4ED46FD8AA5501E9C3968D64114DAD40968DBDD873220503DE5968A352E7C80B6B -8B6A28E9A4301BE8ECA20D31BA917831F13646860836C8FE3940C0A3B942DEA3F4ACA6A5E63C -E1465C9AFB4A0DF5E4E89693639D43A79CD08AAE82E3C3BD8DFA0E70446E0E74DB40786B5B07 -9A803FA29D6BB34C2EEA9BA0394953107EC69DA50168B7B9853477E92AA0E44F352BA4145BF1 -5762817A77B578E488D0826C373AE7A276C0BC74ECB4E5E2DE12ECEF9C54EBF906B722A9E05E -15E61A89AF6BFC2C75971ECDC4287B782D4E7C18906A3BE250247A05E1C5C8B665F011AAC0A4 -CB2495333E6BE161B49A9BB8509F6417E4EFE28594D453A11B5DFC66F03172D1545E806564E0 -09650E9CDFFD63D92BF16E27970F6221E7E580808639F0F89AC0874B6FCDED477FA0248A16CE -DC2DD330996622596B8E5CC2DFC1C684EFB46FB491984BC8B764C79C66340440EA658F4E7A9A -CD734DCA8A34DC464FE9933AD9806D02C15CDEFFD4678AD8D6A0CC919FD4ADFACFD12658C68C -05A24016E344D7033FBB9C416946C486E02024229C7075EDEC920400D5A7C47045F90166E55D -5AA457438350468F415DB74F331D84AF7257B9B2B26E1A30E7989A96D0B2D090D595AEB64F40 -3D26D80CA9F385D80C6BD6BCD0A06EA43DDDDF09D05C1EEF8C2BDDD468D3EACDD06CB885F264 -9249F8D3672B21C2CAD1AB621B0E601345F4D306C99775B0C30C7699C05306320F1654369081 -695C6F843749456F418625ABC37284F92CD356786D870CB562A1A9AC5EA932BDF696EE179225 -16C9394B70DFE85ED6E859585AE38085602E31ECB2A4558AC79D029155F685270C29A6FE1CED -EF3C2E4CA77E527D95E6DF9BB749B55661BA0122972DB694ACA5E8E13E6F49FAAF625354EEAB -1D80F1562BA19D4466CE3452BCF8CA787322D2A19B58C9CA2D54811FA8076E57A0C3A366F854 -1F128DE6B2381B0738DE6D00CA0EFD55E8C8E82D084F961017E79D91752DB7C9D7A1A764857E -001BBBD91B6F78CDF47D877B951FFAC0AF31937A82E0FBC0C080245CCAE66F08BD5ECEEC5120 -F4AD9EBF4675657575B927EC491D97132AA8F31C2FA4ABF53BD1A287CBDF835ADB352DCA8A48 -78D098C4A500ED47542219DC5F324456E8F7573B762F3B0F4A0066EEA27E6730FBFE765098A4 -61FBD3D536094142C96DC1A992D0B8E6BA404B4289F29EDB48061C9185BFDD9AA450594DA258 -62DB8584BF4881531DC9D74474332A7D4A6F9C4746ACA4A3D3994E92A34AED02C482C42119E6 -84A36832D4AB588FE795D76CEE1043837EC1D1D41E3E88E3B490DD0E8C4ACA31467B59D33031 -0A4C961D1CFEB18B2602CF72C509DAFDE4151AD99C62A76BDA18746CFEAF186B919863BA23F6 -49A8F70E4C049901C261112F6ED8E7BD0378B7E45BAB641CAFCBF01143C5CBD37D54ECFD5FEA -93E3EAA57DFB0E69054F30AE236248338EC3457588DA2F341F30C59074E3D97D431375421A17 -83852E17C291F794D8C8E6E20F6D57257ED76C0F2B2D794753860D7DEC03F9BB1EF5577AFEE1 -E186DC6A9B5D4A337BFC7236AEE4808BEC297C59C1BB95177C28922396F69DFC0319C4BB3D94 -F592985CBEF031A888D5E80E7E55ADF5B8C55421C10F832F60AFF7472CF0EFA3E6AD0BB4BF2E -8F155E3B70CAF136138C35DD0A925F187FCAEF5C4ACF7A81C38F59B1E77C29577131C031BD4D -8D40B88DACF9A605056A6FE3264556ACEFA2C0F91C0D2FD1441FD6FBEC5B7F4C7EF6B6BA8DDA -D8B812E785BC43FD41F9AD8DB69F32537ADA1FC2035B212E13FC567884ED99DD6B7DAC249893 -366CC2DB618F7B186FE7F47FB5A2405EAF111EC8852E4DB5E85B549A9F2295F87AEA8444A815 -081ACA4DF6ECD26F293D2A7DF8DA5A32D67EDD8E4FD99944A427C7541F4F332A54D00AFA1677 -B45B3C7517EFCA7C790CF7E6947BA44FAC759C05182B35BB6F4A4A4A2105834136FE82C3037F -F7A7B7856559E85372BA5FC863E1B3A786ABE1346238E1CA0791A8B4A98B8F64DB0C4B29E0C9 -AE00618A83C40B0D7899BB6A2D725035889F01A26473DDE04A16E429FC065ECA7799E15C8AA1 -2BE589D9850171713C3FE1AAA81DB0AE079B50423EB3F9EB73011DEF01DD16C80038A2DCA6FD -79157D1F4B811472855BFCAD5688C1A01CC0D311369357AC7312FAC9897FE4ACEF095D82BD47 -E5C8B3AF1CD8F77D21407E5053341865E31F3F13B3A47A403C11360E74C6370FC07FD87193E3 -F9B44C19E39BB1A5413022EEAA387A1434B4904026D03F16D56EC5D82C88AB99FAC45178F9FF -5E7EC522539AA2EE470EE1FDF24A406A158D6BD6B48A890D0FF5B80126C023E275479C2228A9 -F23EC00FF53E6519945682878FE5828E40DACC21901112FC685195FF3F4410773311D768748B -50E2A724F1AE139D468D45187DBB45E86D6A8DDD7BA8ADE844FC66724C6F5679589C83A98B0B -6BEA2F6B4E3A3C96107BA9200AB17996C27FCB6D4D973461A826D39C92DB793F42BF57EE6BE9 -8C0569D89978F481240BF1718EEB66F60C5ED546BBFF4945ECA40B0137A0686C7D18445417AA -4587A3D074ACD782C5FDE4BA77910CB6F435F0F84B6EE1EEA6A4070165BECC8248DE266107AA -CFBE0DCF9CEA620832CBE829204BBF8C6FDF12E3D22DD2138BFE7FC34673753E7819820F0740 -4DFA654A64E3CF8CAFCAD2A9C64EAA95154B0B4D33B9604D85D19DE87D164BEE4C2E7788C186 -EADA02D12A3B58A94FA1588DDE276CB12FB11092E9FC68BE060A4592D291C406F6D4C82DAE13 -FDFF8EE2AAAB10BD59327C2D371FA6F14C144B443001ACA5A496E11DC68C5B9516947074001A -780138B00D7CAB8112446797990F88021A213F233358432D0CBC0E82213C70F8568443AE78BB -DD308F9C15E796CA052F166EA91634A9161CA048BA1ACB7047C2EF3F301F2F9B51C24001AF19 -E839F4C6A6A839F3C6638EEABCA205DA657295791EC6656EBDB157911FFAA73159B70D7C6F1B -85DCD6200EBD9FEE1F64AA509B188360EF0CE9D0F2B9934511CA4A077F588C480B2F9CB2D95A -F19776A66D79028F3BED78B31893145B19005AFC696274E72BBAE98312EAB12B81D458B4271A -CB2003B814007CC38D75053A903224B2242AFD32AD19E09D3E045C9843987C7F5755E522D868 -382BB7ADDF68FC17F9CCE86C5359C96E22993EC3F3A4D7EC065BB02B01A201951160AA0C9459 -DD49C7381A3307C34824EB1B761D677AC3E4977E95A4B413A9B90BE20576E89BAD0369EFAFD4 -900CE1EFA6502D38D2CC0BA84D66DFEFECAD78AC3C561F3C9841BC34875F4A8C2322A9082ADA -81368C0802F37BC6A8744961D26C12230DEE81B48293916447F7B7EAF5C94C37E04D22778A4D -DFEB03C258E62008C8F94B5B55E649656227D6440AC9D199752F75E255D626AE3242F58621A8 -D9C7498B858E7C374B0F1D6226A8077087D62156671448B8D230B9046E9BF68016823814C827 -1664ACA683D24BFB760F8EE378BA92511FCC16641456AED10D4CF315CBBDF76BF3791138E38F -5146A85BED7E5034670F9B40B6E895A7FE4B79A2E2443E3BA1C5314651FAFE4A52BCD7F11DF9 -D84363DB98BEF0DBD48DAEE6591984001B40460812277E74233374E26D6884F11A4675F4BF02 -D4B9BF4133BC1C9F4F9721F293CE0F5734EB06FE3C01265F5C4B87FA6823F004D6C48B7614CC -1274AD70F4430BAD3AB989239B91ED4B561EAAA8D2012CEC8C6B13B43778459DEE4C6BE0BAAE -E67CBE27DCF51CB2B76BBB78D9A6D4FE37E3F139B3B52377A1AC7EC502559132B5C6939023AE -2F3DFB4301001F31B5F8DE82AE2A6BB56CC048A3DFFA3B3B7F732FE246327C7135FF8578C3B8 -FA06D5E3A6DC25EA516A2534C4DD78103E6ABA261A3A8CEF0A3851F1F439EC29CC8EF42E6DFF -7CF0A344502250344373AE21B65596F83A493011690B1A826525264E3783FE622D6593455F96 -279D786D84700112386A10BF3B5BB82FEB7F28E3D4F0E7DA69BCC2F5F6F484DE6B02352414B9 -8F354FA2F9012E424A46B7605B3DD26CBBB771C69EF106F0D92E6741A48F3D74CE3205AB9BFC -074D1CAEEE4E7A6AA128E3C9BE838E69896E81EDE6E8EA236F6418B025D1C434E8FAB6930FCC -2339AA7B228365B71257E2DBC94B4A4D3DD6043901D7116636986FA6BF39F18499C548853791 -3FBD05ED5963A31898340C36B3005D6615D9CC8BAA14BE16F2E18EF64D53F96DE85B443B858B -6F65D94B5B4BCEE5120FF6ED2BEEC7733D8EF430BCA9B0CD3763A56826F5B794C1D72DEF0628 -6180C332F9297D5089315F83EF254DEAFAC866795B17CCC1CDF834BDC0ED9A1456C6A7126B98 -8C690F844E11379D1962740B8186E24FE37A4E8A154DFE2CC199A6E8E63AD59465F713C26890 -984D2B79661F7D8100A7B1BD7CC98F57FC60043A7F99701ACBD67E2CD1A6308D4BD48E22CE07 -4E48D89E325A255831DFB4DACA09816F89E4589F316B0BB94C2AE3BBE66E76C46687DA188458 -DFFCA71962CD66C40216785CCC4EB6F6DAC66CD0D3B640C6D068091B0359DC284E331645C3D8 -D0550303AD9B1266753B9EC53E7FDFA26F06ABD9EC9034179E2838FAFF8A34592F5CB6623690 -C72A61E4D609084E88FE9E8EFC1B0902BC9B4ED263F6D88740438E7C5D55DD3513F38AD3A03A -E83C682326E216557D1EC209439FCDD3F1BD3C7ED93CCF951D4D460FC9F559FC544585FC843F -2F2E30060CD6AA70A545EA4E75D61036020AEDD897C1BB0FAB717DFBEE3A72BE249314ED4FF2 -B0DFEA80D33A8311FB53DD02E614256550AE5786EC49869B510F66CC3B26E6C1C70C4EC2A57F -34EE989D047272A69797F90538B4CE3C484D5222E94162CA67A19DB2102148B4AC0610F23E99 -939FFC6CC5050347BBDD16EAF4F58FFF29E1158E55E6374E49C5D6412847D876A9AF4B2E50A6 -279907B047BA911F0059DF75B353238E43E42484A742AE949D54D2FAA448E0653D003F4AF77A -31BF080601706977EAFDC0FE85806FE4475F2A789D45510EBFD329FC6BD1EFF35B3286628EF4 -BA2FE0FD0E637AEE7C923771E5060330AC19B3BAD2F35AC32200E796531DE417FF481E7883C4 -BF3AED45B11F8728C1C06CBF66B76967A9ABAEE34AABF098CDF2EDBEF572EC6B10D7E4B3DB7F -9B74A72B6AEA51501597D02FB419CDEAA892B780542C074BB8A92135B5174658CB3337E593C0 -1AFD151346EDD0A3CE94D8F7F78AC8FF8FCE7A725CE33952D4FD6B3CDE4A85B36C692A24D154 -D0B3DC649F40F38E1BB2926066D1D646046174516948302D38F1114C8EAA7D88083306585701 -27AE9F97D2109DE5A38B30B43296180142F48BEA017A8FFBA4B184C6780BB618F39B9CEE6813 -F07C98515953DCC8694A3A53A9219DB226B9E0398DDF82D1DB6244ED086B7A999D6E85E616FC -05605B6F8CE9C982F97D63EA44658592AC8EF599B736F2A249DB9D495BBC92C2E1FB28D86D21 -FCC4FD57B0891FBA2E890094692C2492652B9C6D795A66ED701A69DDAC0518E5A70906AB9BDE -14ED5A0A1774D170EC673850B5416DF32613A8D33488C94E7D5A39A6D70014AE7315DAF886EF -A9E7C889C97771E075E0501F0ABDADBDC631C902BC602F85D6D0BED41B2EBE007B3712671A1B -1B223C3702EB9FEC37FA6E9A30E708BF88918E2C761D3A24CE15010CC29ACBA98C7481445045 -5DC3B4508182C43607CD574148E4F16E4147C7BF91A17961CFE4FF7EC63869F9D0BB5C880F40 -D4639427C83EF7B91D79163BCDC2792159E542488F6AF8507DA10C80D905A0AD05D03FBDA4DE -0281411EA02A5E84E7BDC2B974740EA20974A6538222DAE0158535919E1DF019FD63DBAB783C -E0D59F8EDEF4EC084E50F6F03F49EAC1C8020477BFB6A6AC4E33434425B31C373DBEAD324D20 -F6A003D53F409E3B149F0E4503136A0A44A8164EA9552515BCA89AB11D64DA143548159F3CB0 -AE2C70A5C2AD01A639101DF2981CB04D10CD764A013663F398ABF0EB25C55E738F9977D81FE1 -9CFE96DA70DF1EC2BDEA9E9EF33448AE6355BE0990ED02FBB85C9A0329446AB9340E444C5FAF -AD106EFBBB84B3D907DF5F8B666F2A13AA706F7C0A4937DB79A595CF13F5D7E1D5ECFFEEB203 -B74CC7EC83869A9A909FB5AAA37A9D13A2357E14346DC3CA2B9AE7FE4912886C58091B98B029 -783526B23257BA72402C4991151AC7F36493CCE491094836D5E2E9AA179D214D189B50CD9F54 -798AC0165D00957612CE473EB8DC1CBB7FF20949C17E3C0A196F80170E47256846E767514B56 -73944C3F8FA9C1A8E465CA370E473E213B8F395E4EE6D8DD642F147C600FD9EAC0723EE85425 -CC0015A1D478C38251558C9A93441821BF8394D3989386F7DAC134E45DA1133B97B03C23A079 -7F1FF51D7D569394A82CEEFF8CDEAB08DAD04B8CEB838527742EA0E6328C0710C5241FB61292 -BA244A9680A568A9CC6CEE866E0631C971402B8C70777C38EA754804073767DFE5B271461067 -25D332B0042A278D7B60E195A295C341BFDCE30115FD8DE9D64D45FA949B51EC05F947BCEAAF -7D33FB8FCBF653DD11A7A7263877738A20472B3E47C54E505DDC7FABCE10BDA5437B2597A730 -B64267995B772D230CDDB7A96D3E325DF81BF5C4CE5B4318C4A418A8852E5ADA1B66E23CC264 -FB58A893D845183A2FD8ADFC3AB8525110E5996ABF37C190CDC73D1001C244924A3F78E79D1D -78A6DF4306A2F5E525C03402B8AFD938E2E71225C5D7B16D2318BE35861415ED5C92405B738B -01685E1B1A65300105E7136475950DFCBC71B565A495B99B8652BF42A28469181A78530AAD3F -AA0A3B04BCFB2E0E92F8BF67ABD7F08767FC658399B6F1D9E81BE8938AE565D6A9F9ECABC87B -5E61BAA1AEEE16314848759B9105D513D7FEF99D923AEA340FC840BB4F5E753DFB986CB8A9EF -5C28773916C46709322BED66226786A8F3F725DAD87200CD3629A46D9F444B938F1D49FB3926 -5A6E7BC996B6EF71619A3709FC16511D3D3A4C268C1944E6C77786878F7FA9999EE0B98B6AD5 -BC5F3E7C4D42C0D1C11CB9CF1A58D56B6DA3469130DE3ADBF4CABB0D4618353D1CF1398E2776 -E3668D74A2E7B2C8340BEEB8E6640F2B9A92942D93D7C64E5D7434DD0A53E3682767BBD91401 -EA4E913FF4904E6C2588C4F012D5FA5BD543267F4E01C75CFD4CEEAAF2A6A0FABD03473E91FC -45EE82094FF0C89B3FF81CB87882B4D441AF47235B6759B7B6BE782EC76093DF095C07D053E8 -B11C2DB33363064309CEB429CFB532AFBE9FA3BA6AD9132AF953825903931195EE4DB6A13BE7 -0731F4A6F2123ED34EDD824B4A0E05FEC880D3700C6DD12A267E3DF8B13A9588BC0ACC5644DB -75FDB0455C56F3C6E4230F476C504EF844C1AC32B070536F180D66C2EED85B3FA4265E34E6D4 -C4367B720532812E6D1CF3AE774EA9CA67175BE2FB9C083E2F46D93232DCC1768E95CC0649C3 -AD79A0A52ED140A9AA68FEF477196BDB6137058C8555BB98721BBB237F258FE25ED5890B17D2 -C02CA9D5DC7679E5D5B8C8BA5B8D3720A631BCF0226ED38F705E0D7AB999F98C720579D1217A -C5943DFBCACEDE889A6140916BCEF731BAC7072D0D0C17550FB9C8C7EB9F0B014995898EFFC9 -85D0A91E7642DE16A8A0BE5853A0A802DD075B3F2C117782E987C82F8F3E29794385FDA0CA7B -3C01C672343A17D1CF9D5D199E5F7FE98F5026E983575CC1B657FFF3D8F8DFDC16127E4CE4C8 -D4852D7B443CD824F01702066F35537F20CDBA5FEA6CD1349C2B76FDCE0D653BDB3A9DC6F98B -0CC171D7A8C1BD755346B097E2158AC6A27E3507FF9E74458AFE461803ED0C51ADA39C592B93 -95C5820BD0CB573B3A855DDAFED4637C02DCE7A0C922ECCE2951F71BED0934B439EEAA01F7AD -9FD8209ABC196DB3AFA1BF4B117E841C2C8686F73AC71F40C90480B610A860CD1E97F0677F2C -05DC7CFADFFBF5D3D2C3D20D6E0E6324BFB6BB0461BA003961A71A8081F1804E1568195F569F -80D96240C3C2C923F980B3070F37E9092A9EA76DA642857B47D56C4B870D55551A73BF021719 -A708DBA7FBAE26E3CC4F45EC5FFB65FDB8883F983EC25BDCB6A52E2CA4B81E55ABEB4722ADDA -4EF3B5DCFF9C3C5A21DB98B92410828245C8F835A3E49CD4539D9AFE0899BFF0F72CC115F254 -FB30B028646B041DB4CC887ABD827E81C1D849156DE8EBE4021A6245D1579056553C47503BBA -D2182E8E817C0BEFF1A1CCF9D4161AFDAC83CB8373C78DD6BDDE1257A0F0B1B8EA0380FFD693 -AE3E26A2C8F80D51633F05A26D0255C7B0C20609C1A1C048C995B7CDFE9CF309AFEF41F82B1B -16D7E5C2EBD928CAEBD7C6357248D9E165250B199908ADAC871F273E145B0C9997AADD6B21A9 -FF120352FAE4E98D8FAF8484EA8BC862B16CFC2D57EEED8CD1818EABFC9B2DF1F7E6E744EB6E -C15C4E3F618A46137CEBB75FF5B98A8D01F2CBCF27505A4C6DDAB740FC88D0A7A6554FA31284 -1EFBF68DFCE1CAD369FF79BEF4E00BE8CB91B6DD36DD93DF6AFCF0CE342C19A4AC6F4F8EEB00 -5FD6275E092B1BB30DEB39FE1CBC7BC788727FB6208A0E16E0FE37DEEC037D0030B0DF8AA128 -3FC082B0DF92B11790661076D495203D583F1CE8CAF8EFEAA1E10CFE3356D4B028C670F6D585 -2DA8438960B93F933AF6AF1B3EEF343B5682046ADEA31B5F7689B949F366ACD9EF7ED6D2E24B -67376AD9AEB5236BC7DAF609199579215CB2790A767E8CE55827C3AF690A20CB7C13E35DE851 -45C803B7554A99E8DC83572965EC8AA783700FDE986A3F61793D283235EB051779164613C9E1 -C9746C6B611CFBEA4860AF103FC05255F23CBAA16FD0FBE0284D8FD4EE4CEB4FBE2F6B324816 -400087D5C1FCD10CEBC3C8F02499AB14CD7C79B7A51CA103A40F3B7B79AA489DD69AA1D69095 -F0ED464AA52E0A64AE87208B81DEFB8EE81C79FC3CC7A67AFD61C56441EA30F6F25754570904 -10C5AB7C39EA5C2FF8F1DDF3E07BB11AA8A745952DA6E5E8344A22EC8E50239B6C33A7ED91BD -4D23A5474C4A794A087DAA5EC3DD7EC9D0B5504FB6A09512E16ED790ECC34F0ED8EA9184D7E5 -7FCBB7E3B3A222626EE54AB06DBDFE167A320E9FB5E4215CD620F32BE64612BF5E5634D3254F -03EAD59D50FD55D37E43B9AB253AFFBD733118A97C301AC0ECA7E30CED6069FF0538013D0D4B -BCA81AC1DE46DAC6C468E030C915A1BCF91CEEA0FD75DAEB901F252BD91DBD23495E37D639B2 -3E1A19BC80AE8E71B0CE5FF09E17279137468ECFC6B399BE5C7E6BF6559F33ACEFBE66A43424 -4831BD21AC8D93FEA11C9219D9D85BADEFEE3D5E6DECBCB313ED3612E607FE3962E22E67CD5B -464367EC6807FAE9376D6C49B9DE6E19E4B709EA4685F3F534A6460F862091A49C400D25854B -42D689B020B11D385607F775AF4557E210211DBC15DD099EF308E9465D42F57A50221DDDFD9B -9C3B27A75E168CD86AA67D40DC7BF03D7102CBD9894050911CD81135158523D6806C70C78D6E -5FA6DE40E7B4F85D140359A78CE7B76D8740FFF5E1B6E65FA023E6287E85AC7DD1B490A1177B -48F65A184A7F8A6E57396B201FFEA970858E80ADA6309CCD79858F3DDF5AABDFE9EE6F4032C2 -8B8D389E08D212AC27ABBBEF9579DD54452A2651685D760A5306A710FA290905B4D4EEC6EF6B -70D3DF6D110BCC12AAC904BF0D6638310AAAA5072B05B3D5125D84156B30695F31FE791EF890 -EB74A86FF2E437483DD74046A0D0FA5678C6EA8D358CC738521CA732F468CF581652531F60A0 -1FD8C840BE9788379609CAD58D812F2677AB832A34E7ED5DDE62955E6DD0C38D7ECF2CABE7D8 -CB9B9A797B2155102402FA1D05E766A86F8A658B75D35EC7F4D29B01846A092AA0D4CDD0E4FE -B6B639771EC0863D9A952CEA836445F06F2840FEC3079FB35C59D480796F1929629E6B3411D7 -C022EE2F768D716FAC37223239873309752059C8F4ECE73DFF4B2BD1BA1C798707048FD3F6FA -C6B58F17636284185051B1A77C3947E986C7C27FF1DD6453F54D4B7C3A821DA30118566A9B9D -40A207B4FC02BEE900947AC15262C547626782432F3B9524AFE7BFD15C43F325AE5D5B798329 -12343E70D7FA3DB9E1FF3415516CDC3F7A21A1E657D661B170EF7026AD871C56445D37B67A4A -14E531ED85CA82CD173335D8B5AD8D61150B4509DDDBF3D329248A35188BDC34A270B79603DF -3D3469F5F6B5296ADEA9A550941DB60C76BED202FE0E0773593907B9400EC0346BF4AA0A2188 -FD7037B1ED16EFE5306502331A068B099493030B8CE485A1B9D4A5E7665B6FEB89B56E0DDE48 -B32004072B5DEB51FEF0C9F80CFB9EBA8B88CC6176DC039EE0FEA8931CB80EF79BAAC44043D0 -570BB5B63ADCD349EA093EDF38FC4292CB6B942830A886265B5FBB1C037D24CC50953A84538E -EFC12E9075275640716A189D0C954FF3EEE12795F8F28186B2B41010C970CB2B8F544CE8714C -AF3DB401443B1731E315E1B993617095E813165044F20649D8B8F556EAE72F92DDBDB260D598 -EF5A28510F7A8EC67821CB02D569D7B5DC8FC46AC8A8FE5924F7CB060CE60CD6B6137DF8A3B8 -DBD7227888C76B6AE30E60E49C49CEB06A7920FAC40C0D4647E13682290E4789BF75737B394D -9B25BAEEE47FF4107DEFE6504AA702421509B07D0DA31D7E9DE932375B251ADC18A6173181CA -2BAF5A126729F62DFC93A4E400C38F0892B96190F37DAE38624A737E518802EEB1863B4E9A4C -251A4C64E027E3FD35C12FED7C0DD5B42B7FD18206EA7E64AA73ABB7597AD18A12F2433BD05E -C71CC543A46116FD79A36F8E88818E47D106B4BD9F46B45F8C579607E3E19F62897C4FC32C31 -2C7FE7A7ADB69E87CA1C7F6BD16790435F78C5CF56CB3B965136E629C7492562DF1B775DBFD4 -16FA8A60BC8D2CCC58749B340A9790D7B9E64C30FD1CC5F365A6F3FF93674F65ADE969CBC772 -281F6B304DD050218FE5A14BB52460942E6D4EA78DE76085A6E23078E189010CF52654D88028 -8C7DBD0A7A8A13C361B7806AA2CA571ABECE0563586069826F353287406ECA1F3263968EF696 -265B7FB7103043224A0E71F07532E1D275E506494D47986D0CCFD3FF703565E37D24CC394DE6 -1D3658C1BA9C1EEF4EFDCEABD9F32B97A5CF518C3A2580525D3160208421331BD7B58B4A2312 -D37B735D5ECA591C81F944EDC7A01460E5404BEEFE09A0388383D22ED460CC0F834B4AE17A77 -FD9CC32A5703A033A2B13FBB57536F1C9C507D46217D662126E7DD57FC0CF424B2C069542F18 -5F3E4C0EB844DFEB42BEE4BF65D8E8FC75036F93FBDA60D055F7E43AAB4ED139BBBE29C69F61 -21511883D7ADFC283D025D9AC7332A15794AEAD1CED04D2A135F6711D079F5D5E9C5C08F190B -CAAF4994337451BA495C329E5682A04A730CE390968875BAB69897AD0E28030981CEE36A4A3F -3DE80477A29A63F09A806795129933BB91C053C743004C5DCBBFAB55A3C856A3D7D715FB8037 -1B3837DEF0ECBDBAD81718C2E9728C625B4557A7A7D68154DA8847687FC356B207986291EAF0 -310C09847BAEF865B21506BABB3E4407DE0A6563D2C0B0534A7D31FC63392509F011C8C7E90E -E678304685645E2D706D4DF68523B4FEF17F31E50D97319DE09302C3552EC261DA604100A719 -88C140BB9BE530E18303F6DD09C454D745C2456AC2EC3824223644FA975F40C60D067F058809 -C20664C7AF6C94A1C1D08A9094538DAC1C63F50BEFD103FF209C0DB5EA9DA06D37D860179A3E -AECBB6C976EE10FF49870EBB08414DCDF4B34FAF712376571EEF49CBAA97FAD078C756CB0EEF -0A1F7C235C4F5D711DAAE7FE7E3697003DE809B95F6454CC9432DFFAB3FAC41E845DF92FDEF8 -8494CB5029C3D8EDDBAD4FBC4554558DD4F158BAD7EA25D217557B8461F1CC7F3F504AEBDDCB -F3476BDED95C260E4405842EDFF5F5338A42B79A3AE53B48AA1276150D9F94097EFF42B97AD5 -3D63437CF5B2C10780F65DF7035403CAB24A5342C65BFE5ACB6FC66BD54B652D18346DD74407 -DC7B6A577E6021837CCD92BF42969CA85662081C34E18AC9AB88DB4B2E43261B26D495F3860A -5B8C7EAD165467ECBCBD7E6FC45E666EB7A386BC987E82F2DD24EF2FE4AACCD22290556DF92A -851F428B147E22408D4383B2B533CA4BA9BEEBE7D49774461444E6352CF324864499AEE35F8F -CB7014028D8FB6C931EE9CCB8343E99049FB3952E7216162D48405E6FD8BCFDF1D312FC0FCCE -5ECC70A4DA16665F4A92E191C8F02B4390918428F80AACA0F2BC90EF1053511F97831177E45E -A14D5CD44E9D10C986DB673D044EC1C4F6766FFF3C832A3FAD5A67C8D72BFEBC3EDDACA83538 -C3971FF2589763F6CFB10F1C66FDE2CDD225A7E94803545E4EF172601041CD5479F98EDF7F1C -BA21A4362A89E46F7DC9A601A561F0636348D84D25C21CE11F6C5D78A57210E3BD4F0F3F03F6 -5D1856DB60626A4C5B3012B51047B3ACFE7AE88CEF8725EC4CFFEA065878B76F742B933CA727 -BE68C3454F3F35AB463F33B4161239E191DDC34DF6365B24105A15108A4520A273DFB4D90EE3 -F377671E70A0CE571EA054441264458503EA867BB8A2F7AA1542194317A2D78F37B12EC41A08 -EB0E46B0C1E6D3954B8121127EB9B81878ACADC8ABD2EA5D49875A4FF7F55B67739B96B24A97 -35ED09D09DFD0906A90EC5798123153EE3F7DE713F1B8CE867AD2D6469887CC7F34BD02E887D -8BBD2DC491B7B995BC789356416F56CB00FB8A9F410EE4F9322B546CF218E5E456FC91AE7A4F -2EEAD6D2C56471E7D46BBCA79E361D3255304501AD0E03ABD888778F232FC11EAAEC923E6BCF -301C6E9014E14A89D1DCB083BA0A01FE0F874CF2CB91D316012D45DCE85DDC472A01FE93EA14 -C805C8C714C330B619EF61D45A83BC5EC37EC2625AA05BE4642ABA7F6B5A507E7E8E9423E2EF -49818E14FE58F0290A514DC72D76F20DF2DF3C87D3317B17EBEE3D37B825BFB969E6B28A5C9E -A6060D3D20580C7A8EC98C992EE23B049C1A303D4158B58529BE07DCB00C97D8E612DBBC6874 -EBC7BB8D92A272EDF9AD2DD9E0920B4B8FE62C31C0644BCDED17170E363DEF98AEA64620C0D9 -8F7A027A8CE5BD7B6F4912308B20E0DC77C161A76DF15C4B594BEB7E1D95BD6742DF6CB3A617 -DF1ECE8FF0FCEC23A093FA36372DBAB7529A66D3D574B1A21C9F61989BEB2401198D29DE368C -A71A00E1BB27C4C0663B364DDFEA244E5CC893BEAB52DDD57B7E4C5BF64D656D71644937D6BD -0D52FE32717A37BDCE4166342151F238DDAECF1E40F753D9D9B827E718337CFE044AD82BC2C5 -082DA60203890E18CD17115224EAB9FC770EE683F5595F4A62DFABEE77198C99F29E1B052FE7 -850FE1A8085EEEB0D95252F4CB42C5240C5DD9FD83B1E762C4B685EF8B341CA73B12F49A9502 -62B5EBFC696BEC0E3894E628474E0378D87ECAB795674302037ABEB18E8AA04CB1715E0AE8B1 -90B890BC10852471CDD61EBA48FC488160CE4220E73ADBBD501485A5611BD08648E264E7690C -CF4F1FDE01F4BC5020640557BE08270CDDCCC005CE38BD1FA735B50F80B38265DD1E74155A82 -CE623DE481666FD1774F7C39BD2814D2F2E60ED10A40021FDF890726D2138A33BB5058C67D02 -9F449281AA8198FFAE9A36B50E67B9A7D018D8B0E4491AA99C4A26264B1BC3FE9A95D74C9688 -73D975660BF7FB80D8CBF1D2D7B42C86821FEDD4EBD9D3F0088C4D2C3D640582C9726591DA31 -9DFC163AF3C02683ECD8591C5EC66FB7D70B0C542678CB1522FCA4632BEA7F97D44D4C3FA0D6 -1297C5ADD0DF6FACDF2CDD98F58CF67A6B1921D1D0288F73635448227E5029E0AD62D110F906 -C2D3DC95E1ABFB023F5BBF8560845C892BCFB71BD73C70BCC3BCE4D7F7775D0E4EF0D361280F -A54F15A80474E7348DAF887FB1A12DA111494C03F8619FCE65C3013EC7D4248A178C717153DB -AE18F0DFC14E62464B962AB50B3C88E99D00F8C6161050638CA9D7D2012052BA691F479516CC -65A2F539B9DFB99DB3CD09898F5DD791BB31A05110C1ED277B52AAF51676F32978B34CBD7DFE -51801529433ED33A6B62FBBE4D919570F2E5F06D72B24BB54864CB5D4933C5B8CCDBE56ABF9C -2B31C86A72D9C1A933A8F487958A9BF2E52C5825F2F5FE4C43BB84925EEB5DA5C08C4A9E600B -D39BA90DF0FF40B440AB3F65758BF6C8C727B75C6BCCCA0EF1FA84B3AA9A52A8D4B0602F634C -917699124886CDD70F64123217050E7B8B59939095BD0C4413F8BF55895A814A86AC535809E3 -B7162A483A0F8B565454CF30773ABD74F36B8498E2C821653FF188321CFFB8200A3D5C32E5DE -6AB2CEEB0F32CE11BCCAFB0EBD69183245AF7EB36772137FC082ECB76909A7C17D298015A230 -24F39E1AA22B7857A22CE721E0DB58AE80346720A9992B12D733B982573E7CE72FDB4D981A97 -70212D6BC9604C5C7A17D77DF93AF758883E81F31C1ED3DD057BFF416431D3FC64517DFBBAFE -4D58AA027A46B01AAEC6B03FD15D76CD9D7159B39FA73989E9F1D05C7D5386C136DF174BCDC7 -5602DD12EA1C86E5180D77F95E81E9B2A515F19FD0EE625763AA4F687598245132439519E7A6 -DB6A87A8ECF7BC89E269CA266430A312A4702C7437094E555E1C7A780B30F62970BCC73A80B6 -4EC5689080F64F3BE35C5B1EEF297FBF81C15CC2612FCB3D42F4930F9A98890528612DD35820 -FD21B44EB5C604B31E56B5D62970F95D78F451083DBDDD9B9D20B1BF89A6B2672F079AD076A8 -D2B5BF378E9364C155E97F7613501B56CDEC916C90127FDCF133F6679F91090E7E1E7421871F -8648C13F463C0DA79F5BACBFA9D356D63B13322D8A88BA03E744E8B73B5BFFAA3FEB5A892409 -4B84C2CCDB95479EC7A24769CB6FC69C8C1D11C37DEE67C8FA38E6AFA4EEB27587EF8F1930EE -231D9F4F314B0FF3686360C106BD28F931A510598B689E04D8A982F2F5C899F3F792DA744540 -43DAA9944E21B553A9CE31FFCCE6561BDB04A65CBB66056EE4E65454401475ABCBFE3962D216 -6CFAFA30CF0FADC712F395F0F00411B95188021FEE084F2774F6AE9C90F04DC5F95F459D025A -EA49239412E38D2E0D3E27CAEB26FE3B71E6B3B2F7EB41B8CDEA4AB3CD3422EA42D540AC9390 -0630F68BA9EF9A52A0E429747088CD491821E753A01AFED457B0904586D8CB968EB8129FF88C -1FD58A45742EF18147282729BF9F14A273CF26F661C3A6894160AD1C6039D78192A7493F74E9 -3097DC83CC347E5BEA7BB9906723620F4E9EC0EEA79FCF792772AD9A4606096B25330314AF73 -A5065BDBF4E00A58480BA743F3DF3835CB15C7ADE6EC06A13AF55A0C3098ED223B3150FCCF31 -13FD25F0C3F65655A9FB58E3471BB9B08081CD9D85BDB520E76203BD78FA5B7E3EFC7196F45D -FE1C814CF4AA46EBF26ADB83B02B584C78FE9E0C8D53973F51FBC576DD13C365EE1238C86BD0 -AEEF98CCDBBC1F54A814FBC9DA784FD3F1E66FC56DEE3C5C43DC6AB9BF0A058B3DB4733F732B -D124E832887C72F558972FDDC8724AD5D0E45EE325BF77AFDE1915A92B69902A9FBB0C7DA2BE -F815D70D71EFC4B4FC42CC8963165283412885B11BEF6C6DBD1E1033178BAC8C6A8CE86F537E -EA394523E76AF3596E3A555109C4A10A26C8A14AFEB9F1FD725E74C810AE75984237BF55F95D -D6BA4C81C9A057AEDA78A9F0E02337581DB62FED07F8E449E13647D97DF433B8B0E0B71808BB -5A4C0AFCB006BB5DE55F68277FFB26A6046D372F413D03D07951801042E28BDEE3953087B398 -60875CE3C9BE341D68DD43196FB5EE1F707E0665C5D65340C23770C81302226F7C33AD405880 -91933B5E1A844CCC40590136040DEA2F51CCF4E5F4A92E64D9661BC3ACA5EE6AAA62C22E226C -5ADDB7F06DF892B9C1CFC60368B88B39E0A2B0635D2E68DB5187093F7D9DD71C5CB00EC1BA07 -2B646275DF6750A264FC6FFED93B1D32F0E42ADF4FBBA0D8E9852CFC1C26DA04E862286A1743 -9ADD70D36B21028F69401C8E0018B359EC580A3573BA09B0EE2A921BBDA81B42B5C65BB843FF -262F9BCB5CD992AC2A854029E7314692D3DA753B7B6EC9038EA440EB610F05E09108C7EC2871 -658BBA930676F3715CDD8A2171E0BAAABDB1281A010AC13D0DC2E287C15F82EF6F11E5BA6352 -D64AE561EF5FA0EC366702658CB6FFC5F217E96BE7DA30EFC38A29540DD4594CD0A1B2A4A211 -EA417E88C09AB4F00FDB6BFEA29DEB4B7B85D24274049C39C715EA6643A6BD6B5F85D0EC9390 -0F3E6AE308522705B36AC46CF9F16DEF67C6C41348A55C11E7FAABE3E9AE6F82A0A77E6DE526 -047625A3BF1ECF2E5A0A69DEB5F412AB90FD21C652519BC93808C78E95D9B0BE4794B50A5C5D -B81F07F756BC39B4B86B9F5A006759D9BB6BD21FA2B24CDA2A4404F071C2F76EE6A04A012EB0 -8826C43D6407CA7C62FAB98FD71FE228D592DB5A23257ECE30854307F5D6B482B443D93AC33F -C267914E9AA20A7D721010BF5D9591890D510CDF2B15E93B01E61585981B063CD09B53CC84FA -8DFD0757D0924F31096578F7462D5FF2576EC0840782BEBD9682A2A6C5EF553702BE80E8CB3B -5B4A99C834FE334405D065142F4255EFFF8E43084D1FB1467BC0C2ABC3399E1C027EBB1556AC -3142B75898475E7645CA2E9C00B041913A44C42C457E77C2CE69EA797E049C6DC8D7CF16AB8B -0524846E3EE774D0878F4D09FD82A1600F0B45630859439749B3CC41B669BF4A3527AB1639BE -A3FE282647D2F95C6C5FD4EC1C6622CC5792DF3482EF0B9F02D60C8C48E72C475C2D2A26ED42 -4B4EDF0B7B28F0BBBCB40A7CAAF6E654CE97FA507A5EBCA826B08ED5DA719AAE6F02AD15DB33 -B1ADD4C91A65F4C012424A8FD45B9400AC4E7FD655855E4801B4517C38B62E31FC4B689C3FEA -381297B89FF10CECAEC0592F29B5992C5B5AC8765A25759066B8F212C52BFC8A7C4847685BDC -B693A960696CACAE77E99DA70A46EFAA7D88B9572CCF435228159E584BF29910752ECB05D551 -83EE14E1ABD2D555F880F9A2BCB8A9B894F850E60861B85AA4048FD72881830149D5489E26AB -B39E7C7701E263849FB744D20369556712D66C004FFE1A8DFE2B2322D9E9E06774BB3D11F2E8 -504356B5F1CF5D87ECB630EB0D9494C2B91284FD1F033A95525CFDA031FB760FDB97E11E9C5F -FB5D70A8B8311EDD617D80417A358D088605B70BC5A6D8729D3E8667A21FAC63082187387775 -95B9C379735BFB810B2F45712C4416A2780C323B3F9F767170EDC1E667131A2EFADFB553D7AE -4145F8123D5BBBBB68FB834210470798537577333CFC5F6C609E1FD66B020C918476C689FA92 -729B92862AA76BECFAB1186D3758FA8D27668C0D86567C7319DDA919A4D82C3531C5013D84E4 -75CDBC943826A486A399D09D85C1A02CFEE028D7C115957927C1DEE0174999374C91B3228AEF -75B8D72EB59C71509F1582968900788AAF1ADE268559EBB0CAF6E63D544EBC112D72DE8EBDB7 -F4BC5152150F8CB909FDA725642E5A5AA37E1DB7945B6210B19C81B3C6CEDC081A7F58EFC4E6 -8A1CBD5C8E3C8558FC9DAF806861A3B340089CB0C0DC0C915482487853E30ABC350FFEEEED90 -30A527ADC618774AF30902ED5B62BDAA1BECD7A8A92DEF44667B99A137571F8DE0149AA3FFB1 -9E4E4F0A1A6363DCEFD2F3B2513A02D1C6BFEF6071F0AB813A3C463650F9D8332362593DE49F -949B147DACD2E54042F0BC5D46FD72B1B93FBF79E41B591BCD50B775ABD13878A9557D0647C6 -CE07BF74F85AA4923E4E8E5E63DBC9EF181D3526F25217EC9511327684ACB6FF711D1C14229A -37D38ADE1A37C1FDB197530C0B875BD43A7EE05B1C5120FE60BB6836746C0F2EF383E4EF39E9 -E3137AFB957B70D315A9C576512109F1323FE2F814F84ABDBFD192243E1BF14212F201D6CCCB -D7BBF761D8A7F96B63F3CEA33E433F537F798B974BF5B5543D70B02DA2F49827036DDC2E1FF2 -E9241464EF369D7F775A03F47E8F7C2F520B56CC43E1B7FA251BACF7DDDEEEE0982319DBDA5F -F7EE2B3A5FCBD5BD180B1B64C84054791176BEC16545A734B3884B80512880391F8954292B8E -8EC18DE9C5A16B3D0E94A724181B223B31E2571461F578A341B552CC69DAD1FB3434D76906F1 -6C374699B30C4AA9D840782901A087CD6F3ABE3C3F6A26E4CDF696320039A3E4C0FAEB357159 -B05374D24133F6B5333C6AFAE9250880441C1E43674CB6AB2D3CBA07557B75C28AD6080A17E2 -373D7B53914AEE68B40ABF639A49250F010CC18268CF8228DED78E7956AE8B6195E5614FD22C -0F80A6B654F55A192D587A28E9EAA6C8DB1D1805289C725FEB7DC15713ED725ADFC595D42C96 -E683F5F31654E4BD4DDA1231AEE043EB81CD605AD2DF5638CF83C4FCA23F836AF9E47CEB7AC8 -367E9A9CFD3E44AD8C42891E836055B734B9E99F88E6A5AF37768539F0A3D8BFA157F90D7DB7 -9AFCF4B019C6AD38EECF6032EBD3E309129DD3D2FE82454B9B5250645A610C50DE738E093964 -AC4859DB2A1791AC53B5EEA140B2A34986F390B4AB26FA5E5E9A5C0231CB621AA34D79F01881 -2374C54063D0AAF2C904CF1E197C30B17C7BE71C7FB93EA56CCE03ACB2B0BB05340422F59F50 -625FAE25DDA7F1A328533C6148920A0AA75321BF9BBC2C2ECC3C9857A960F90B0B53078264B4 -10DC4B30ADB84E29B8DA31BFFF98AEEAF8618E840AAB72DB078555AF6720F2614FBF1EB93707 -F6C370F00519BA87EDC2A3455536B6D0CC581CB46D49BF7EEB985F24B3E523421DB53FADD1A5 -841DA530AB96E8D901E56BE4041B49051F6FFF82896C5671A3E3D8BBA62F825E10B8AAE597E7 -77CD43D3A3E149F14A2B5C8D6212CA70E62A943201139E2DB3144CB17865F1A876B3053BFF7E -7A630F9C62F24E7D1D5BD0438B441102F51FD8E7B7A2589E4D9564B71CB9990C20B52434D0E7 -D3B31328E89CB806A5D6704780155DE7285CE518E63C8625CE6E69088D780D1E38011AE8EFDD -BB9A77F733374D9FABD37BD0010B76247FCEACD931EC87F995CB8E02476849CC45F6406ECA04 -896925656CE48B4A5487A8F3352FD6473F99ECBBDE91F0D598B42C3DDFA956A44FB2669FFA76 -99FFB276A1E745C2CD95120E6E9DC3CAE0DDCB469E0B3CBB02BE05A5380EF72A4DFE3F2B09C2 -C33F83B97675BD0243320443BC5774B95C5ABAD031DB282433F83C32001C49ADD75745108E1F -648F162E96F96C99A0BFCCCB2319B48B26271995BE61F588952072A52410DEDC404BAE05C176 -B4BEDB031370629BA196D3ABB6D7CC1C3EA5FFA61064DC0E0328F25E234EFC5D9314B2CB26B3 -80717953E9BA63FF8DD8969BBD466513293C5B0825A45C20F7CBB4CD6DE03B457CCFB1356D14 -0CD7AC20D5DF7520F6E80CD748510429FC4892A99344EB19459642B3731CEB27F074F723788D -455B9BD4A89FD40D03D006108D2176EC0A91E7BBF0DA2F0BC9E84379CB1B0CDB6A518FA2AC91 -577F0F473B56EBDFC52469F523A261E6E32032984302EB1804F20DA6AEBA92C4B46B551AA5F6 -1902F71E1162CF0442116AE7C121666100E6DE2255A53251EDE84D536DC8E76A1377DE35658E -132FA895306C5400B29DB052C7D8B14C22BD17EB3AB9187E37ABBAD9BC85D6E1757BAE04F135 -91C7DE5DA0813D85DC39D0197CE4D6F4C054E51A4B1B325F9F01DE86799753D9A8CAA36A56DD -77BF5CC7C77E810DDAB1B8211730C6D128EBE8FDD8BFFBD8BDC31DA13972AE5505B6D98EB3C2 -13ED00819F7A9C8663F84A70768FB4816F7DE3AF9AB571F7672B96F7CEFCE0977B68BBEF203F -69DBE58A15C26C36D4CC4B4C9D7D9A03A00AA77691606C89B07B41C19756D3C1ECF7758776E2 -16FBC3B4E700E235A2AC9353193F77C0806886C1D0DA9E5AE51CEE376D4A0C5B8EF4CF57F1B0 -9788E7462AE01C43E602E6879F688360C07ACF71CE2ED853C0662D5CE17AF76BD06BD77B370F -7050E097A61774211CC3B1B8FE50A5F0295F5C5411FEC5B2179CB4D82204D07EC99BCE678585 -AAAB390E5E2C094D086C345008F564A112A167BE218BE699CDD3B57333ECAFB776BB69BC304B -139CE0A3AFD69471CE6B07099A65E52EE4F9B6965F45A771E5A20F97C06BC314E24CD6F17C7F -011151491436F6E50F5C75F4A4A4B2707F74A6ED69C4AA124656AB13A6CA915E1CD3312C2F39 -059071A14FCE4DB1748EB84DF7F7BA6B8606B6DFBF5AD0CB1B1088A9F185EE9D876A2C5227A6 -95AB29E7CB1842812B1555FBF6E2DCE5B5E4DC9333CF308B8682B05E9D534725AE1772F8F5E4 -8BC05F3EB7C9D54F21AF5E67DD39595531338308A902008C39EF5059EF1A6FA203867BC0BDDD -F084C1DBB97E265BBEC0830A527B1503D5AB07C4B5692E9462FCE89905BFDEFE046E6381BDB2 -A1B171064E7AE768178CAB76A702243C3AB93B1D2C1F3C198FFFBA74CA65419849FD915312B1 -88430FD4B7A3C2118746CD1279B8A3D4BEA8F530FDEF5A4908B18C754FE7120BEB2344CC5992 -4C2CC39A204247402AC35D8768C41B82B92AA8A1D7C47B6FC3DDD73B9253E36673F0386EB167 -F917904EF3C749965E2A601879C5DDB430E1A226B66490BA2943A12817BA449A946C655C581B -29AC2AC114B3F19811CAB69F3CAA8C81A359E5D5203259C916A6819FDA627E163BAB595F369C -5EF60EE0D132668DE17E2AA0CA0F2BCC4150FAAFDE7C5D03A1931DC1C442156474FCD7485D8A -51D46040C587BCE0E270B9AFBAFE16FF2D4A9460B06705280686608DFC176D914F39D336E703 -0E9406BA439959E0B6391BB774BF74CBE3E3DF1ED9FFB7D50E724A9F62A40703A9DE9D4005E9 -3765709002704AECB9DDE46D074E6AFF83E63BB52354C82F88B788B28B37780E083168E1E906 -E440FDF8369445685C1101C7A29A3CAE3717AD8A570C47EB3779F16942216C3EA6AEA343433E -30EEF4F25B05D0E35B93E37675E3F40D1FDF78F02ED4286E0E7AC5872DBEF698128E91E3ACEE -322E52FFDFD31F11A3A8F571FD15C48F71A89E18506647459ACE3F66BAB2DDB45E413F4341E9 -E671D8DA530E015829B5DA1B0E3B0B3B4A17218DFF5E15FD3D545654E2C2F70463BD25FA0BB0 -759FFA4BE5BCD042DEAF676D82579B927C3B66EA5693612F2D46601933E052FD5193ADB3D427 -BDE78C6DC262CC420E3B98907B293A7F55BC292AC8D409C1FDF8CC205C6E731D5663DD31EA95 -DFC74649BC5523DB4AEB18C1564A4F83FF3A68A1E863799D3FBF43DC2F46D607D5EF993B0FB6 -D62EB0F4AC841206D258958128B94F5929B175D613E2812D8D13C9E16A13D0FD9458DD545938 -17F97B840D5D5AD58029390C6C7E7F43017A1127BBD9409B6CC419B8958EFB44377E741F4BC9 -9EA091C2DD7FCB7096AFF8ED80ACF3BC20E9D98E6670FF472A60CD1B35C149498B186503DC6F -0C692271EF14993F6D668B304B5F7CAE91B6A4F25DE1800B438430F8784CEF485D224A220BB2 -BD00E7998E45B9CADBC894C2A0559DC50C4C8FA3E14B4CB9F3F045C29785971D07B6CEF45A86 -9B184ECD95CD257DF4A59CADABF16D02F4E4115ADE8B78F10A9B2E20F915C05402FBD8CE9377 -0E8BAB3C99BCA5919E95882E9BC054746B18E4B9F9E2D3B0C31331611E868F9B03289C1B3087 -BA1B91139E6E3FBC5A8B12C5340F881F4099B75D36D184E1B7450FB8D23AC82A2FF545602010 -1C929EE7527F7760A1E749CD541AAD2F86DD390419F2AB3905141925C66942030ADA534B424F -D6549B5FDD43331BBDA9C48B7C1CB2C81F2ED9B9EF808026948999FF40EAA47A27EFC26636CF -3E254328F41AB72BE90B0E079650988D15E81570DF291A6B565B7A8E9196E9966DFF45E2332C -63E6C83EE2C0F28E3CC64BB493C126C499D063F217C5865CC74B60FBC1DA9E413F15546A49DA -DBA65E22701E83F6C519C6BA4A7616B4909163FFF8C564204003A7CEED6AC4C48CCD1BCA4301 -9F62AC6FBA3A57507205A1F865C1232F8528C655B2C5A102E45AD08A9FD03603987EA2E87115 -E055900A332BD761C0A535ECBE2986935D3B35B5CCFB275007B1EF8D88E83DA3E5BB3EA28181 -C058A7CF3577C3E6462C3D97BFA325CE802B1D4A4F5F96A11E05B24F6450677FC7DFF47E1C64 -82A7E247915908BE51F0E5A4E1136EA238060952B954CE5F842BD63F33361CB888DF536E6033 -9DE61EEB87DAA3A991D969906002A564D60B004C144BE435AC02A13C4B74CC6474D14D183023 -C58867CCD10CEE73DE34A0D865E1D66E2564676493EEA48F6070A50E6C56493ECFCE6831344C -55EB1B1BBA61609647028C8C89CE9C203D36256C28DC6056DFC1DC2380273760EA44E4F33889 -04DC606FD33FC8AC16914C3882397FF129CF5711733FDB63DA49BC44C95DCCDB382B5770E28C -99C379327DF85ACD383A6BAE8F9EA9756BF3604E5BCF25B3552EF433BDA0DF09A59FC6892219 -B43905C5A2316ECE039325976AE6A7CC2FB077FF2E02E458A394F4183D58271367B46D42F1D1 -55AD10F491C21E1D062E0534D15F41F7AA0AEDC1B337AC408295E3EACC8F853618DCC6FE3E47 -32FB5A4FD5D53B298AFEF078814C5EA51BC89A7277D9044C1B76798DE77E637AA0C8C09D6048 -6F74A2418C48D5B3692E8CF99D76EAA306C932E634CBDC8D827217E577F85330CA49D1D9C9B7 -A7A512CFFF3730DBCA97EA3F642821A3AC68C52CEE6D9C2486AFD77C30FB52A523A698C48D0B -AD24CC2044B2988486267DF373FE2D7A4B7E922953BE896C6C92CD1593E2258B41997398CF5C -73A756D727FB89A91400ECAC147C84A666E59E2933603BEDA4994E56F84159AD71E73056666E -074CAB623C4B9DBED845DFB2C7055F0C98C70140321CA09ABEB7588BD2D2C7092093EF5178F0 -042EC01FE6CD1AE23B63EEB18C727AAF4B2ED59B86E46DE0D1FBF36AD4440D6167332D27946A -81523C9C22F5C2F3D0C32F0A795B8112C69CFF632FFDC3FC736E01E2AAB0054123A977F253B8 -B536DC14F1760FCEDCED9CB4FBBE40AF8D5FF9147B4D113E783CE3FA6D34492F99E35E27D8B4 -BDF230F1068AFDFB734C176FEBC3B000AE6C8705B1C01EC24BEA63AC2A8947BAA27CBEF46F40 -E30B9E4CC60A09BEA9A64EABC23CFA70B24CAEC0370B489DDFB758D220769E754B01CF2787BF -CFAF3519B0012C1275BE52346CAA5C727E898747B4DF9B5259308468D650BC425515871E7E1D -0775CABD82FC2B0FC101D52EE3DCECBC28E478FCAD60BF16867F014843C7239DA184F249CD8E -C763812C8DF40ACE4D84BEACE4A749F70CCC18C41C121CCD056FEE1D59301E98D9AB8654CB78 -F43DF6CFA8CCE397595EE81A7F2F5942A51B97894F8CBC00199B1E26F87F2E26D7F60822BB48 -6C334719C1ADD2EBEE22E768792C7FBB09BC09C3F151A582710C99C0794AC01F9106A1AF0710 -6A6C3862108E607CF7FB1A001568661A70606DB8D138886ABC11446AFB9E51AABE48BB5825C6 -8DA26A03E53783F912682008351645B9D7D6C35B08B7C0EB68B751FE6F9D195AE1078F4EF5B7 -510E81550A64B1C493EAA9B2F18F5875BB95D204E8699CE723D4669F84A62632B1B8DD9FC685 -0FD9018587B61298020CD2FC62BC598521C3654B5C2EEF1C03AF55416F00F0AA3DB3FD683D42 -115689978E32B2B85CB0A60F616178B0842E862B5FBAFF64BF7D5E62070AE7FEAD5A753CBE74 -74E8BE788C2C09D455D5B88BB9D233B5E4DBFB8CA17056B5A696F46D4965BF59E52FE1811ABF -DE7663D81574D4C33D5ECCAADF380B5951C56259CCFA59B0D178DFBEEFB06BF7A3C1813B7E7E -7AFCC1DD95328BA3615B433D143E6ECC2DB2A59660424900D1BE701743A417A376DB8BE177CF -67F9614D99E57E3FD54742C16AF702146535EEF37DE98F7D23791200E0CD289FE65C4D6AE80E -663F755216C096460A65F9816A68462361437FE81F1D0B5E3692573435BC141689B069EBBA72 -CA9BDA18239245E7C5629E687DA9DE7C95F768993BFBED057D2B239ADBA5185BAF9BBCCA8650 -030CDE39FE83DBC1A06BED5191A46CA2F1E33BEADD0DCC6771FD9E91C0BD6CBC1333583CAE41 -F3159764E2F2DEE23C4FB4EBDAC6C7638F469ABBFC8829AD311C054FCAB0C8C3B793C5DE2244 -A9D5BD149ADB7309E62B2C6077E50552386EAE34CCED61742AF182A293D55C4FB85C2D261B24 -03E8548BF2A498B7341620FA3A55C08B18513A2CA0C6A066ABEA6C72C0DA632C0FE98B32CF08 -9B501CF741D98D7B582429F4E320CE4718EE65E5A8C50E54D805EB3232109E362DA6B900DB1C -A7CEC5F8A6252FB5BED79495270FA70648AF2E8C9842DCC26839372D561A62907987B008AE97 -C63F4B86A14320AFFAA5452CC8B7F19303E31D60C41110907BAA5D4EF78D7C9F2C7C1E5A38EE -4009A6A6EEC8E886A81F776FE55DE29C0979248E390D3A057CAD5B0454378AC94097F514ACBF -F884566A55D7B9DBEB7B3F835F77451360BB432642FBA04402CBD600C5D70214CC298B31CB0A -C858E7EA3E517B914680D1EB1E11832D7BEFE31F98EB263ED40F6590B27D938F155F51549153 -5F274AA5699E7392FF331D23508F24CBBE46698517F7AB098A513D26393A49022B53070634F2 -30354477001FD4B7BA57818983A01D61031CD72CFE63A9B4F25B4BF9CA93B359BA5AD6CCED7C -6F751A2B00FCDADACBBCFAEBFB196AAB0D1BD89A31B839630C8E048985E85DDC2F1AD387330A -31E19B37E2722AEB1F8D56F89E7D56E9FA32A33054E7E39E802B6E3E83EA4B073E16DFD5092F -0CD397266B17C5F25DCBDE94F607A328F0C12D93E1C99CB2020ACEC880A9984F0DC0D6200413 -1068FECEE0C2C5459F0CE53898C3586F8C364A0A5F5BD36A205C81963DCBA4D42E1C866A83A5 -A7F113766456EDD942423338A184458294B24139CEE5E0460E401C68CC0E8428CB9CEC67641A -DA1E2C266BB8C97E31D9CEC7C429762BA3DA02D68AC1E10DC26F05054A011171B7F560467755 -BDC16041C10E8569C2EC9D2361C7C3E57A1BC3F08F9B0780E97074E3B672D25B745A71A0CFFC -6301ADBF5F1A160963247AC4C1504D8218C38B783759C995CCFD20C5450515EB5010D32C51AE -4B0668D9D76A55149A282B729454CC12BF674865C99D0BFD59455AAAEADFF22277650A3AF318 -1B80A41FF60AACFAAC7957A84F865144196EB3E506C0F8C510BF11306CC2A7339D3622A73B6F -10DC69C78430F5A690834448ACC8F9FF552504BE2DBB712E66981B3ED8A4C1A3590B834E92C7 -A6D1E61117563AB7B86551A553F030AF9E9FC4E6952F884A4F9D7117FFBBD1CFA91D0E22D3C4 -C046D6A1D9345A623073B9077135AE94AF08727F86384EE2EE8BE065FBDB519DE4C0C1042DB7 -5FBC0B5FB5AD58730EE9E1499157FA0DBA2B5AB3DFBA74038E37F53C2EF9511CC90121991223 -2DC955D98EF9ACBD067106CDC77ADE48F47DA7676EF262C20E91DD3EE1759EA9C9EDF6DD6B48 -CD3F9A035434A9B5A3EF452D03CC94F6055A2D9EA2B75EA3849DBBA46BA5D5863442D3669DA6 -73F78C8DC90D5B78CE581780EB774056646498A64929A5D022FFEA057D908B706F9C6B213E64 -B9442313E89FC5B8BB62B6863A4CFAE3DC8641568CC121AC1091C6A3E164DB5D1F841E08094D -86E06BA5730BC335579E305AC4DD8DD20FD79EF9B4212FA618E36AFE06539D840FB271C5030C -83632784AE77CB98F19736E5DE45C5AFFCBD77E4E420AD157692A368AB157AE27D2D285BDA79 -1D37C4A39D668F13CD6C1F6E0B508ACC22BF7A3A8CED880B112D0570B3D870EEB5E235643F6B -8F840DD5BBC5C5DC95D047521B07E4155C145F5DD0ED53BAABC99615CD1A3853BBE9D8C38514 -87CC596DA94E6D352DAEF299CEFF1E566ADDC427B8B544E92D3846CA716F2148B87E44752207 -2A11C4065B91AA1E7E4DD015E157D8E1242415A7A0F1998DF7C0DB9A59BAEE1C57770C666AEF -9BD2D263B1996F75D1D9DAED8D192AB32C0FEE146E71655F5C7276AFDE9039DD8293111BB058 -B97F1D874D965394A0A63BBFB9F42CB40A63BBECF2F2B1A56244DDD3D7E31F85930043D0C48B -DB45D3DEC07E92A6C4C3FC2EABE4AEA911E390ED58A042CC65C00AEC4359664F9B66C378380C -0EE109D82915F5A70B95DAA420D6FA8194D05E4335E34AE390528A5BB3A38D2C07B3A2F47665 -440D90068855A578F34CD67100B1EA9D1F64E43E8DFBB137697FDFE1CD812794F184DD390D62 -D0C85CAB82639EA63C935490785E5F84A95A791E30E3E5C358B27F688269F26CB9046041D962 -2E0CA07D5E9A31F28B914FB999087299F0A07F3B24E0E09BD133BED494FD8D7C4D71541A7793 -10B542450759799B06FAB5A530AE458A4AF0751A7F651EE90E6F9B68CDFEE03C8EB495369BC6 -F6CC9622400DFD10929DC7F006D26630923B81483FC6CFF937C52865CB8AC39B1A6FC3029FA0 -196F9BE4C22A7B924F89882A7548144DB6B8178FBC5526CF3B1FC304E38DDC5A6CA958E83F4C -AE675BF9E906EE15CD6BB924BD03534BB4A61A1F21E2CA1D3C449E2BDDB8035C8EA3912242A4 -9D69B779E449B76A0A74E4B3ED065EC7CCE33D65F45320D14D1D0AB8106F0D87A596E33C3EC2 -A92516DF2291EFC807E5D9DD20BE1A5039A3849112DE879A22B6D1FD9811631D2B3060F821D7 -6A34DCDE2F012C6BA3909670B5B8F06060F0FDE684A44411A68256416284F6A8CBE841A39B6D -65784F92F8828F7BCD3FB2B38877610BBCA8F2CB82506F8E77865B4D99B9BB4A3E61BCE15578 -46A0376F34FB73E797F93948B7D6963C89DC394D0A70836644B530EB4982ED2F7E4FC3C3802E -61015A454393925AAB5AAEE7DB6C5DF873953B826998D10A1B1DDDE153207402A244308E6241 -FD7AB5AFF9063076CF1FD7A0FC195DC461D3BAF503F3B9BF6913CEE4A0A91DF9D723ADC58480 -5970ABA643606966EA4A9EBEC5E30437A97104A2E6930942329DA31463F9783BA9CF98BAF3AE -A9B3ADD64C2497EF2C6A10FE84008D9B23BF58373B4F509A17F4C42BBE93CED9BCFBC2868E6A -6257D63919C4016DDF116C04F952A6E3A727A09A3D53DFCBB7F1250117539B341427193B7667 -28924259CE629A4C11D8F851C95E78B7D82D0E99349D1737A3E208D03724B2924712DD82DF51 -5FC8EE8AF80F9E8DD658B063D990E77C2780D5A2DFD54E1646374973B0FBB81C9D47D5D268A7 -C7829D5734623ECC9E1310F90A20B038D57524B7D264E1390E126D3692896B532210A3D2F8E7 -636B6A30683FF6ECBFA350A0727A83607BAC5561D711AF899A8CD6805073F58787ADEE201BB4 -82E22106B32236CE76F23ED211C6F3396CFE3B6299C7120DC3D913AE908E660681E8DDB46AC1 -79ED06628462329107256412B0FA49DFBD16ECAAB6DAE24CB7C6249419C3CA30A39A95FCCF45 -6075C75976C2103047E47F953790755A466DC82F3119C676B2D68B7FC51F3033A2437ACE923F -39F21C37B18AA8C25DA06F3E90A246807D2E27E7780E1E9C790E4732D6A2FF290DBC31948D16 -0BE45F1901CD99C7B27874B14AFD547B312ADCE2F039BE4BA22A5A4E4A9744DCD372E16F31A0 -7FA10697DB669FAC9EB93C288545A42670785CBB3B6A46E5CF372FFAF9163FC9440400D2C176 -CC4A6156790AFE250C7CC6DAC26D4A4F9636537763ED89581AD09CDBFAE40B806414CBB49FD1 -6CD2D90A8D5283C4896D9FB03FD5842E0224E941AD376C59A382661472A5331FB73E1D5DD06E -9E5E610885A56611291601B06C645A49576202A5386A6A91C1C7239EF49FA7C17DECCC0DDDF7 -BC7CC88A065FFFB5768E08FC1FB5512CA2F1740CB96F7A75B467331B05EFAD279544939BA872 -85D6704F2B5D99A7E6FEDA0D9470495CE21166C733D1613DBAFD42015EAA97D11C132075F3DE -86B281B0CFE7A944797F70134B0BF2314A42C3A1430AE5F5924878FB813971B2152B33901F6D -CDBD4AE7574619CCA426CA2EA379A9568F6375D0DB1B49AC1721968C206A997BC5373E78C0CC -B3C37DD028752FB59F9FCE1CBC185C3A2C64A9BDBC8CBEAA9F1E9A9554C835948EB67B7DC025 -F4D3E39BBCDA127C38607101424476456B77B9589B32889823C07EE2E4B020045C8BF1F945EA -1EE30776C0B8AF06B25397A5082D1D915EC6A3D214C4DEB29F66A5E8F7F7855686C56A620C80 -EA5C9C63EE977E78ADD79E0FC593CF32086FE863B95D3AF4E07F4A4CA51436AF4A64BD8F5CEA -F201D53D16C87C894F8F5EEB3565D476BC397FC2CC1A1D3196A23182E230BEDBB02AE4FF0F88 -71F2B10EE29F8040A8C397611DE6E265D38DF6410A6CB4696F97641B83A9E2E1284434777600 -26908C20527C35F23BBB0F28387A58C65422C1A736398F6B6AA550E030B5FDFF5CE749D23699 -3998A2B515340EC6D1AAF87F06A65E3A4051E5CD6D24D6BDFC9A4AFCDCF56774B049E02C9A59 -D4A2F0628462FC6E68D612724F3DF1D38988EF40A30E6396280411AF26617465B7C70D98C719 -5393CB10D21C44F6373BE4CFB0E81854F137CA68AB163E43C4F40DE69706D0955BA1AA0B0371 -5044338993A294DCD46F3012DC23809659055EFBF39B1E9D7751BDE58534C3F88074DD780670 -A09DF026DC0BC594F6671229661711FAF43103151BBD5B2E2A82B864576A31C77ADF64E306C7 -393712A9546D4BDE8F8DBD8520F678B5C4584A1E0863082A358593E8B4C598EF2679BEF95D66 -B6632F96EAFCD790EE4A174D83AF87C9BCF6DA88A619990FFDF551B8384F730E0D0EF0A83C2F -5B123D4DC7467186252ED4F682474BE5BFA3C217731B955A11143C7A1D89248D8F0D82D19170 -1EF0603FA0581FC7F91BA7A4A227F85731FF7E0F4C5C5FA015B45D51A04C07B03A6FE8C3A074 -C29529E6BA8E3E95742BEEF5E4FBCB9EC94301E921B167EAA20B1DBD9977A5F4C7F1134C8706 -DE2B726A16B8597FD5C7578006178274CA66FF02DBCC7305D2C1E5CE9E517CAB1726AAD6D570 -82FB5DB7EEF3830A8797387BF84106F1CC3396C07C83E47B5CE38CA3E2DF1C9930454C20F7FB -1F55D6626C57E7C16D5CE96091DD79200B60C401666269B3512888E1E6B839F604FB1A00362F -758FC2FDAB2F5CD6B409E7EF8320B150DCD4564674B2022A41706858822036A45D9F19D9C4F6 -9AEC413453847CF250B640E3F544177F7B1AE745D9FA5D64DA50647157F653BAD849A60A6A02 -8808675843ABF110D1D7E8F6A0B2D5DAC354F556BBA1AC4E9C0B716F7F515428AB7A3C01C100 -8FA3403DC75FDEC74B37B962732C6FC4CD7A82E36E5D8BFCCBA22989B56F1B4DC5718C148CC0 -FEEBB72E2858AB766A018A1D644FBF257E8C128E5BAED55AAD54B8DC3DAF1CAF8B30F4AC2D3E -31FD6D531C877FD431FFB38A0A1A7FDE2273904D3CF46FCA4303520C88096EA63E10A12E0885 -5877A2292B31E7D51E9C80B99BFEF7D77F7E2FFCEAEFCF64AB6B95232D139ACF0868D4D19FCE -EDE8520000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 - -cleartomark -{restore}if - - -%%EndFont -%%BeginFont: CMBX9 -%!PS-AdobeFont-1.0: CMBX9 003.002 -%%Title: CMBX9 -%Version: 003.002 -%%CreationDate: Mon Jul 13 16:17:00 2009 -%%Creator: David M. Jones -%Copyright: Copyright (c) 1997, 2009 American Mathematical Society -%Copyright: (), with Reserved Font Name CMBX9. -% This Font Software is licensed under the SIL Open Font License, Version 1.1. -% This license is in the accompanying file OFL.txt, and is also -% available with a FAQ at: http://scripts.sil.org/OFL. -%%EndComments - -FontDirectory/CMBX9 known{/CMBX9 findfont dup/UniqueID known{dup -/UniqueID get 5000767 eq exch/FontType get 1 eq and}{pop false}ifelse -{save true}{false}ifelse}{false}ifelse -11 dict begin -/FontType 1 def -/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def -/FontName /CMBX9 def -/FontBBox {-58 -250 1195 750 }readonly def -/UniqueID 5000767 def -/PaintType 0 def -/FontInfo 9 dict dup begin - /version (003.002) readonly def - /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMBX9.) readonly def - /FullName (CMBX9) readonly def - /FamilyName (Computer Modern) readonly def - /Weight (Bold) readonly def - /ItalicAngle 0 def - /isFixedPitch false def - /UnderlinePosition -100 def - /UnderlineThickness 50 def -end readonly def -/Encoding 256 array - 0 1 255 { 1 index exch /.notdef put} for -dup 0 /Gamma put -dup 1 /Delta put -dup 2 /Theta put -dup 3 /Lambda put -dup 4 /Xi put -dup 5 /Pi put -dup 6 /Sigma put -dup 7 /Upsilon put -dup 8 /Phi put -dup 9 /Psi put -dup 10 /Omega put -dup 11 /ff put -dup 12 /fi put -dup 13 /fl put -dup 14 /ffi put -dup 15 /ffl put -dup 16 /dotlessi put -dup 17 /dotlessj put -dup 18 /grave put -dup 19 /acute put -dup 20 /caron put -dup 21 /breve put -dup 22 /macron put -dup 23 /ring put -dup 24 /cedilla put -dup 25 /germandbls put -dup 26 /ae put -dup 27 /oe put -dup 28 /oslash put -dup 29 /AE put -dup 30 /OE put -dup 31 /Oslash put -dup 32 /suppress put -dup 33 /exclam put -dup 34 /quotedblright put -dup 35 /numbersign put -dup 36 /dollar put -dup 37 /percent put -dup 38 /ampersand put -dup 39 /quoteright put -dup 40 /parenleft put -dup 41 /parenright put -dup 42 /asterisk put -dup 43 /plus put -dup 44 /comma put -dup 45 /hyphen put -dup 46 /period put -dup 47 /slash put -dup 48 /zero put -dup 49 /one put -dup 50 /two put -dup 51 /three put -dup 52 /four put -dup 53 /five put -dup 54 /six put -dup 55 /seven put -dup 56 /eight put -dup 57 /nine put -dup 58 /colon put -dup 59 /semicolon put -dup 60 /exclamdown put -dup 61 /equal put -dup 62 /questiondown put -dup 63 /question put -dup 64 /at put -dup 65 /A put -dup 66 /B put -dup 67 /C put -dup 68 /D put -dup 69 /E put -dup 70 /F put -dup 71 /G put -dup 72 /H put -dup 73 /I put -dup 74 /J put -dup 75 /K put -dup 76 /L put -dup 77 /M put -dup 78 /N put -dup 79 /O put -dup 80 /P put -dup 81 /Q put -dup 82 /R put -dup 83 /S put -dup 84 /T put -dup 85 /U put -dup 86 /V put -dup 87 /W put -dup 88 /X put -dup 89 /Y put -dup 90 /Z put -dup 91 /bracketleft put -dup 92 /quotedblleft put -dup 93 /bracketright put -dup 94 /circumflex put -dup 95 /dotaccent put -dup 96 /quoteleft put -dup 97 /a put -dup 98 /b put -dup 99 /c put -dup 100 /d put -dup 101 /e put -dup 102 /f put -dup 103 /g put -dup 104 /h put -dup 105 /i put -dup 106 /j put -dup 107 /k put -dup 108 /l put -dup 109 /m put -dup 110 /n put -dup 111 /o put -dup 112 /p put -dup 113 /q put -dup 114 /r put -dup 115 /s put -dup 116 /t put -dup 117 /u put -dup 118 /v put -dup 119 /w put -dup 120 /x put -dup 121 /y put -dup 122 /z put -dup 123 /endash put -dup 124 /emdash put -dup 125 /hungarumlaut put -dup 126 /tilde put -dup 127 /dieresis put -dup 128 /suppress put -dup 160 /space put -dup 161 /Gamma put -dup 162 /Delta put -dup 163 /Theta put -dup 164 /Lambda put -dup 165 /Xi put -dup 166 /Pi put -dup 167 /Sigma put -dup 168 /Upsilon put -dup 169 /Phi put -dup 170 /Psi put -dup 171 /sfthyphen put -dup 172 /nbspace put -dup 173 /Omega put -dup 174 /ff put -dup 175 /fi put -dup 176 /fl put -dup 177 /ffi put -dup 178 /ffl put -dup 179 /dotlessi put -dup 180 /dotlessj put -dup 181 /grave put -dup 182 /acute put -dup 183 /caron put -dup 184 /breve put -dup 185 /macron put -dup 186 /ring put -dup 187 /cedilla put -dup 188 /germandbls put -dup 189 /ae put -dup 190 /oe put -dup 191 /oslash put -dup 192 /AE put -dup 193 /OE put -dup 194 /Oslash put -dup 195 /suppress put -dup 196 /dieresis put -readonly def -currentdict end -currentfile eexec - -D9D66F633B846AB284BCF8B0411B772DE5CE3DD325E55798292D7BD972BD75FA0E079529AF9C -82DF72F64195C9C210DCE34528F540DA1FFD7BEBB9B40787BA9351BBFB7CFC5F9152D1E5BB0A -D8D016C6CFA4EB41B3C51D091C2D5440E67CFD717C56816B03B901BF4A25A07175380E50A213 -F877C44778B3C5AADBCC86D6E551E6AF364B0BFCAAD22D8D558C5C81A7D425A1629DD5182206 -742D1D082A12F0780FD4F5F6D3129FCFFF1F4A912B0A7DEC8D33A57B5AE0328EF9D57ADDAC54 -3273C01924195A181D03F5054A93B71E5065F8D92FE23794D2D4347EE3E5AFBE73BA31023D79 -A7299D8F662042A8D8B6A7B4E86F48AE98EF848E83FFDE68E17A0832A181C126D15EC7986179 -6F03957F5A51462C817DF752097718413D012D19C9D4423A5EAE1EFD4EA7A9651BAE6E45CC19 -4BDCD03FF43F255E58EB5E50CA26BB98B8B11E21DBFF2BBB04D039E63C453EEDFCD9378F5E7A -AE3A93E8691DED5865B2B78F540F8AA3224BE372B18904651D057608DE4DD729FAC398A80CB9 -0441045190D66C44E943517A8F4969673B985D9D244FFC743E0AEE309EFD224F7029D37AF6ED -D96E2F88C9D071FF16C73BB285D82950D8A87397DD7A7BBBA46E5282D31185C272B4C47D9414 -C3A6B57686B36AD5E067767FC9BA7C55D0E8EABEAA4F0042465B7DAAB6F449FB04F05BF2CDDE -AB6BC48626EFC74600DC8CCBDFCDF6204F4F7D499E3471444E0C0AB6AAAE8D579AE37CBF9FCE -8C1AEB90D5663C4E6AB16D414F1DD310C89533349D0CBACFBEED9EA4D10E95BEA8ABC3BB9313 -769A017F724F2FC3C7819014C12CFE162D504569C3DFC927406AE88B078D7D19A987734620AF -1B372280EF2BD7084CE1E540ABC6BE4D7CCE1B18D6DEC5C34163FC424B3F0345A90A0AC04D67 -38066AF53D5A6FC9C65780B37C37EA3139D5B7D738D013F6F6495CDA2A6CD17BA5D0F6088F01 -A106FE53E2ED17E658DDCFC5976F63B2B0EB713000FA099527AE19FC763ABAD7FCEEFC279A0F -8E571AE1CA3C86865175CF668BCCCE9080D4B75784CE542A64BED5FA59EF49208BB96E63DE99 -49E23019E3F17D965EF6846831FED850AE03988B9A55BA7E2CA74DB54AE761F851F778CFCA7C -5DFEB2A556137CAACA2B8A882E1E20AE7E27C600476B4647EC1888512BAE3B96D8AD78E479B1 -690AB0A2C607836F0DA92B66F0D1F44E331ECF3271F72C5F38D693FC747DAE4E8A930B243B3E -EFE178F40E73E0196B02A593A9FB7D95FBEEF7FAECAE0502D2F0A66260C198A1DA83A32FFF5E -DFF3C13C0F4ABEC5DC8E2B26DEBF5B55E615C660D3A19829BBC42C49B79326777A10E2E83300 -A262C817A2C34CEDFCA497A400443AEDAA113CEB189195BA31264B673E21F645BCBDB28A7FC7 -DBF6F300ACDDEDEB11EA67B170590276FCBFE70789561468A17DDC2B422665E5F39DF4C587F5 -F6C09AC5573C1FAD8EEE2B14D1E2A4F4D16654819DE9D53DE71757AE921F2D06DE6CA6654B81 -0041ACB31B7509220BAD21E0818095D7E37FC834EEEA54496A9931933D3A2719B2C6E6D9B6FA -974FDA269B2CE0F39E9014D8BFC07151ED75B0EA7BA3718DEFF558EBE79AF949F0740D801B72 -0D893099B12594C566CF450BBA7AD652969AEDB00AF2CDE8B94CC25A8B1E83F80A826E3701F8 -43E80CDCEC59D551C96F8DE11101F594A0C3EE21C4A3EFC5CE3388823F5E9F7585C2604488D2 -78B18F20E6EA4D084BC0B8FECAECDD9C6D2B676CCF5FEEFCE131D06E41155C05013A425658DB -D4C22576A8579501BFB30997B49839A3399A7AE615836D5372EAC15EECA2E11A18870675488B -35B6C2E84D8CCEA6E25C1CD7B45A3D2886DCCB45ADEE08FB170F8B8C8748EEADD305201B6145 -DFE32C8602B10C703F85E92A5BD0156DCB36CC406C03C94C88049D9CC90D9DEE76DFA43BBD2A -711A1C2A87099FB1D1F77D212C4B7F69B8DCCDEC2D8B2B3129ACA91194EB8C065B8AB634C1FC -7F7DFFBDABDC32704B239AB9143EDD3A40FEB564001DAB0024D771495D6463AFFCD043D024B0 -2BF59C64BAE8AF477AC0814F9092C464680882DE45649F3A6455A33F5B41562076EA1932DC25 -2407E23DED6E27FA79786CA398C2FCCC9A4258C8EDB8A7E3FDB26C063805B7247EDE81689E9D -6DB12D68AE0F8C6CAFD80E4D4BD0E27C3A6E515BDDB6F6126DE00E578745A6232B5ABC4C55CB -F946C6DADBD83B091767AB51DA4BAB402C70D2D4EFA26F22AAEA93C3B53DFB85D25944AB25D4 -6F26C51025BEBC6CDE16F8FBA2F1BC5DE764A4343D932641377FA08ACECB876531141A170BEB -176FE61A3DDE0D63E174D6E26159AB5EBF7F47EE24C6C23ECA00F417A122BC1E74BED7446026 -A92902FD0DB9EF124C6A32C0E766399B240163355AAA299A74A87558CA6899D2F1F9E8F0BBF7 -6F740710F4D305B2B5B53C441662CDD6EB6227809DF6F67CE9874C71BFC6AC410B3DA9C82139 -6D64B626661C9888CFBCC8E882A61903A283BFB74ADAE79E382E5DE8D2A160C85429A8AA6FE2 -2478BB14985B413BBCC923CB221851F61C44C9C8DD56E9A1ED43925206F26F255EC631D11E2E -80FD4F3C917A179554FBEF87FAF4840703E60F9FCEB79EBB6849F9751CB46ADF4E251EF804D4 -21C2CE96486E8648932F8A2D284F0E0975ED84AE59C639FBF2A41C24B94314201181B9824E6E -A044D25886C7F160FD8F8777E0AC4E0B52EBDA9A3C0D1F70C42DC20BAB5CE939F61A490F22A6 -064A5599CEF68283F98935281F082D661C56D9CF249A92C0715580286C2BAF994D11A143319A -F38285C2C39502CBBE178F95776B842A4DD59122896A83CA5AA73CE009CFBEF016483EA3D1BF -3F80D15DB709A8F1E24D03F087F46B5FCAF70A2B5D81FCA7259ABB82028BC961FF00AA0516CB -E04361E4F3E49498A19560B9521C9F50A6743D0AC54970088B9ADA7612267FFD078473708C89 -4C8C646E1F9DD7CAD9CD2E708162F48B00128E82FBA3EFC582845C7AF89B24AD38789595478E -ADA52DC8F6CC45B8AF1D449ACACD8ED20F0B3CAD2C6E566C0DCBC6AAFD10F072CB10E6819EE6 -4288ECBBC027C80E87287F38949E3C483D6B94B900BF40867E507E7BDD03BD91476EE418808C -9001C88E35BD0F7B7F9A16CA90911E9EBAEF5D712472AF592E5817F75D88129BB95E2D46E045 -EED75605B4B961C087BDE5587E2BB87BDA10A99D7C033BA1FA57368ACA61772E489FA83C17CB -AA9003CA6F81D7DEF487597B6B2B373ABFD3A0623CF1E03EA5C8F91B00570D09224C2AFD3052 -588059584C627F9DCDECA30A25A00D7514735C81B5A4DA37D869420FD84951725E5FE0BCB264 -87AB28FB3A72CA15F73B66ACAA8666BE5CFD10EEF1A3F69E57804285BB3A6A9544F0B18F6A99 -87317B37577A93F3CAE8AD0C03420F26B44495CB546DF79C21F2E47E83C539C3865C0F4E2F00 -D9E7AF089F1E2B0E7B6FF609F86050C6BC22AE7613B9C5192AB6C38CAB78CF337A3BC4379700 -7D89500FDDC4EE4C871D6384613C1FF870C0E5E3282B88E079FA782EE592D4669CA44C9602E6 -82E4727B279788E81F63314209BAECD5C9471DE4ACF96407A50B2E83B8C5C1C8D8C05D3FACB2 -509D29EB296A98B5DDB656BEA8D71BC896436F685A59A72B23C7E2702AD2EDE6DCDE477DB3E8 -61E083273F4F1F401D7BB175DDDCAED839AE799E5A389B76A39090747B4826FF2C6526433362 -A5A710EB0E14AD97CA1283DFD1AFF87AA6FF3AD6A790A1695117979B44EC5298CE93F24C7837 -7F8AA8458F2D7315571913E6C5E80DBFF15CDEA786D4AE0CDD6E4CAD04E9164350252AEF4D04 -F8F7EFE42A943F12FA0F78F6FCEAAAA93D9E714C9AED12A78755EC62F920205F4D8CCA1B6994 -9DCFFED15C79E06F256A31A983CB7F218A105919E5040E7271489FCA9196BA37A49DCA7D9E93 -DA5A4AF10EC3A7A4DAB27DD95F0195E13A1354D3736F687B9020EBE08074B71E877D539950E7 -F6CC46568FECB9CCA4E59B5EECE09D096B65D2E7CE80EDBCCD1B441296FC805031C07B1196FD -C6F3C1B74289CD8DBE2698485634C776CA7A914008B09A6C3A5A191FEA7E75CA79153F3030D4 -D67273E51A2B0A74BD9B2345BDD5299B794098A248B94B0642DCC3D403FF1F7AA9F2604CD057 -2B29C04CAA52F05483BF9E983704B65E231705C7628D5D31F83326DDA3575E5DED53151A1B9B -A507AB8F195870D7B74D2A10A18725C8C76D0C3AC8532A1BB279B60A917148F3590F95268CFA -5CC7407E85F0E10B185BA83285E79E59E7C5C474C0E5B7CC9AC858780C6145CFD5AF68E19FAF -ABC4F057E7101EB4A367EA5FC1FC506109F584D117DA964F7B907D0EE90A5512589D37CB28A2 -BC32D0986713583E4AA640B80DE3F7FA2DADA952C0A81460803970A1590356956BF63D6DFDF1 -8F68F848409FF11515E72D37CA1532D4ED801BE3FAA1CEFA7784BFB24CC47CCF4F703AC65E7C -A73CD93DC74FCAEED878C7EE09E5D6A49ACA975F4B1176C1E270E44AD30DA04744554D83893B -46329117E702A40657C295920259220FC45D2ED8A86C8935AF15AA399D91440AA0A6F67C599B -7CF54F42689D6DB715CB966D84535B79207C04736902D4D4CB1AA37C532985C67B8A727F9F85 -FB9961DBD88B9E1736649187F955B8C6EF5E2A0D827F2E449560143DF274BDCFBFC38AF7680D -97344F71632E9BC09EC466DCB2A94601BE3C55F85557A3D008A71DF9AE4C5901751FD84F8219 -B6E69CDFDDB0B6D9641D26EE8594BA559D801BD3D56A207E960F8DC156EF260DCFAA516E0759 -7F6170F655A21C7F694DCCB37E1869F4A9CF15E8C2DDA1C0CE86B2CF4F2B64FEF7F78246F5D3 -D81C0CA5A1223620C3276A86294EFE36474E1645881C412CE915757609433876A9A4D3398262 -04E97BF203AF4446541B36D6F1755443EEABD77CCDE56112059BE227635E84CD0C5DF24195AF -A4BA7AA48C80D49D2415D710C37AA652D1E1D974B7CE2805157997A29DDB936FA81E80DA49C8 -2EAA7A03338773726903A078F7361237C2D7E424C3D0C74F894E0122EFB5209E7BA33087DEB3 -970DBA839FC3C6C0BD84AB5BBB9EEC1357DD1E65636F6DFF901EE0EBE61A7A61A8E5D4B74CD9 -A3F59298D89DBF49EC79051F8405FD514E8DD363A808D23CDFA721EEA2390FAAA6BF262CEFFF -E247665015E9346534163D959EE5B70F5B32DCC7D45F824DF454FF6AF21E48401ED2D8027ACF -FDE33DDDCE1C603E319C534A4B9E23AB5EA38CEBDCC95AE454DC0198DDC6E14894291A419814 -7CD3B265A7DAAA2B78A087A1CAE0241EE6C067AC2E4C3FC3E30C4C6C115A29B3B0A5C5AD52B2 -35FBA9C2E136E92CDB33F5B6BB3C4F4514FDDFCBD101A447E95E92AB2CC92D13AE749D96A968 -18B94A4BC4102729F72FB8F1762A0144CB2B586A980D3F9E4D7EBB71AA709C0A5834948AE58E -AE2F3F10819A5CE0AC980E52639919589CF34F3480209B0DA47703A476FBEDBBFC543709F2D5 -B1E2780DBFA579915E6637CE7E0D02420699E02D80797212DB449209635516ACF40BD0D8BA38 -E2D2A26ACFF4082B52998B2EA53A2A40696AE22DB8F9BBB96D136BFE6C17750DC4C2AB9CFC09 -4E0C6842A82B850A2B299925993A8B3552400B38FF8D039DDD24F322C24F97CFA1DCA9F80900 -3E31915CF01822BCD3C4732D5552005048F8FA0838104A7E3ACAAE1609E2668BBD9B6E51678F -9AE0D1509ABFB90C89C780628EEC5C556E9C4B78604F64D7163FA154C4A18CF4932FA2378148 -E6CC1801C59952E0A61B19800265ED6BD2F80C50F8CCD77E497421B8A93C76D5FCC665C91EC9 -C208C1ED47765ED268ABA95E028ABC367A52DE075553DEE6A78D1D565D3A791D8613A9699FB0 -8D2F90D233E90A309BD803DAA5CB71F8756ABF25F59EF084320C2874410DA2D73B4F7D73BB06 -E4D1BEF02358715F74A540D2DE778EF69333C3A33B0166BA72986DFE44FCDD94623B9BE3B8AC -2F195008AC37356E2F84885633219107C75C3CC35574626B04DC86A1340D6D2EE5D462BB759A -BF31C756D3CADA18233A7C61D32B5F3716CBC6D87521E4A4E110D58AA70B022FD099DF807B60 -898EC78D689878FC313F445CA98B414D41AB5E7CA41387D851187DA92117E3EDAEEB6CBB78ED -44EB3F3BD62DA7DB89B20DF20C93E05A01B4D901D0339577092A5B547F0CE9AD3710DAAA5DF0 -77D5D3E55E242CE10A9CADE496B371C4004463EC54E70DD27C278D4579EF9C4DDA735FB2A6CB -D7596AB32F2B333A5AE9E6BBD95FD311C1BBF929F774AE9C3EF4380FC48F70F23B66598BA423 -91C1473EFFB48B9D114120EE3C43AB2BFF1C3CA588861F33531FA84EA62D39868E837B477C41 -5B1775F2898DED2516B6560B5983B9BD9D7E842141D8B061E5EFABBF6A19406F29DFA8D6BDC2 -737721E5D5D4E76ADE5856B4511D28262E60D5DA90C59C6188BCC6535AAFE74E1F31C32C230E -BF0BEA0013491558CB90A6885E9DFB31E35D47547726EB9B35354F006ED049EC63CC2F9FEB2D -397B768E0BAF242926CE225A45152331865F0A06D8BAC42C0782EF1E222C70B05A634241DA81 -B0F4E16FE710CAE0E850972DFB9307DEF289D2140B82172F8A565CC6636D9037EDF1A2B52164 -78F705AF45C063228CCA35E834397429BE11257754CB92AD82130536E539883094CBFDE790F2 -93775CA1408C29C313503867177F271A648F03EF801698A7E2ADE9CD517D4F69012A7E6EB03D -BC15446CEC2554B88FA234C303B80FC1F91E3BE76475B056C40A721873C318AD5D9B2B2B3309 -340354D2B3A008B97735E1B068DDD6724B20E13DE6BD8568249CFCF2DEC3EFF192326CA20242 -2B76DFD82EBE48E2B4CA2A3A6E396C6430162B00A165863B3B84795A6AE69E24476D2A0CFCD4 -3912590F04C4FB7E3F88F8A542652F8C6C74A96C5F14160A2F2016CCB01F4091B28C3B1A0C91 -1F1EB030F069E8F09E79D0B0ED51680B7C2E13D7E9F4B4D9B51CD509DE887D79AE2E0749D076 -983AD1FF1112EC4FDD1EA4740BBF9C8F66F5DD33A272366CEEB73F4AC3D3426D2FDDD368FFEF -72F645493F6ED856AB669BB9D784951636AF186B107D6D8C06787050B02B65877F3581C1CE51 -6E5B3873613C18582CA31749C10ACF6DDDD4D409754BBCF78C51E8CB1AC23B8061066691C1E1 -CD094725E946BD871ED8B147DD0D6F1DC95D9ACAECAD1CCA315D620E9E91F70C6027344912C9 -185C27E27400C65036D8C678E999CEC76C2E57D4D4D932344CB17E8C203216CA4595799E7862 -D34A24ED0C96405F37E6FFCA73D67F1F199EFC55B9F3559DDAB57F011F88834C03E528052035 -B552BAA4306388614EBEB304EFA49451F419CF688697AA203CFA2516F1DE134550DB47B7F19C -82286DC77155EE1D0EF27078972E4B13635025EA6E349D61FEC72788230345BA778F9CE27105 -F740349675832BED0E3146B1C5181C9CBCE926CBD48128D74324B6A98FD0A8B860050EE714A7 -0F58824BE058749BFADF57274A42C43F14479D649E0B0C6FABB5150B15A87005F6C1245E7F6A -93B962CE87F87AD258A196ED3C0736D2FFB401BF5136EA14DFF6A9A943DEE78D337BB0474577 -9BB96320A85FD77136CB76D9F21DDF9D68A8DE3D8F7E93698EAE4A2481EA71B1637B6DE8C806 -7186A57C83886DA87761BE600DEECD13448A82BD652BE7ABFE6A03F525531E00A5C5ED25978A -39BB85B12B267B399E06BFEE7DBDA177B6E4BDB95EA706C4D89AD2810ECC6F08BF0AC19AB67A -E4DEA067A542ED307D905E2486925D5C3EAB8B7DCA673E4DD6AA98DF7C57A8FC41B33A69BC00 -5422F2EE65F677B9D49346F3508506FCD91D499DDD98B7CD96E7C26CF461A54450B70D6EB167 -64460006CB6597918824A917EC42E73E35364C1A3E04BA8706BD2A1DB215EFF899B491DC10CD -39A185CFDBA67ED98B47E6660832CB960B5805CD66B29A5B26E9167045CC7EB25F3E71E73933 -92A07E8E2314A93001FCD5BAAE8A4A40C402AE94203BF88AFA8EB25F600E106CC0F428084C57 -7317AA34217BC77B1E075A4BB99145EA55CFD1D12CB79D98E68A7C19FE9BA51A9E6486F85E5A -77D1DB195BBA28B11394FCE9FC1C3D26E3FDCF7D711DACB8E98A977BA2DF2703EE821B7760E7 -BEC7BC3F2E750CDE02133573F57CE1711A3DF97CC6B00BF0A4DD2CB038B80A966459B362C449 -895780BA8CED84A038F9C195D7BCE93F8F86EA4BE455FC5FFFA3B08D308535CD771022D1E607 -04F4235D207E0DF8ABBBC3ADEB8EF08F0FA0A814BB1A2AF8761F86D454645315EEE880C30EE6 -6110F3A4882DC2A91047D4DCDB0A2B92077F293F96D18F0D69043BF8DC51096B86B43EA8C679 -07FC344161A50B73571AB29D43E8F92F38F4129BE20425FFB545DA720FCCC5FC9BAD2EDE1165 -E5C09D80F58E71EBAB4EC35B6C80E822CDEE015DFFD22A52DBD839C745B6DC8338098846BCB0 -81FD0683E9D984422D42820005CE1163C907616A06C036FFA37C6FAF8ECA27CB0A51F6AAD0A5 -B01A59943DF1A858182EFCF991144162A5B707A38A3668127E5D44BA60D423F925DB366261F2 -2AFB71F8026DCDE44D6B30BB07679EB2ABDE89D20D8AB8B5B8A242191F39D92B81D239CD2BF8 -3549BD1D8F5D8DE22B882303F0D311166A10983C68B5F6A5242E4B120CA137FD73B5A4654DA9 -5F079B3E97CC587C09CFB052316D04DB82CB825F77D394ED2FD37D3C7A0F49304C5E351A93C6 -84F40188C27BBE3F4282F1CF0358CFC8D79479C3226A8F2718684D393FBB1C5ED463B7C86D68 -9C20F368DFE740367F31FAD3284487506A94CD3ADBAB23C04CDD06E71B39FF5490AA02705872 -E8F697B0741148E58DFEA804BD47C3D4933E893795516778E63C34625699319F4BA80AD996D0 -324409615C025BFD7D46F32E891AC6FB4EF007EBB868DAFB18C582FC396BD2E57D9E36696B05 -2E2A840E583983DE26A1E273B2972B97ABA97C1070D655144E88C4A22C1DE230BE5CE976678A -7BE734006FF049A1009ED4061EACC6AAD5954EA39956A7A5C46A48324F9DCB99B1DA8731634F -66E4D9318408D8E3F056322452677C3D39A615402A1444023CBD1E03BF0D8E4699C799FE4653 -1DC8927244CEB5C4BDA5A093F42DB31386CD599FF16AD9614B6C4165461B648E827B157918D4 -BFCFBAE65233C880A7647C314B18268F074990939DA5783F6A991F08D51BEFA8F73092FCDA9E -6652BE5FD8C0A84BC5B3305B0E8CE521E94AC03A57C06006D232BE35FF7BE479678B11A17D97 -9F8E191C488AD283C8CD040EBC5BFEBC5DA3967A9281DDE7EDA445CE2805B20E810F8E6DFB9C -F76B1DAC46DA7F7D0964DDA30C56D9E40A2C9596AC25198D17A00A0CA4719F58346E68FD8B8B -32B2A273CFFFCDB107E7D288465AD11DEAF0C35284BC39FC717ED885B84296C99653E4AE8FE1 -C3FEF5187F6B514AA1542D7B23D36CAD52D98F007470B00FF2D27BA6206C149191D2649A9231 -9A4FA6A89A1A0898985A32B31101C4A06306320025A8B4BD90C05BDD7153492CB857BEF3B16E -0CE7F6F47A35678EDB69485DEC815FD4DF32FFC609D6837098E00C0795B7279E80CD7B5A0892 -D41BF873A7D4B836BD11D6694B8B5B8074D4CB81BCFE79D17EC87BBE8C11F45367548D11B3D6 -6C7129B30B9604F84077A7AF537B066AC69C676747EA4CE08467FAECC79CB1706B6DDB963F67 -D68B7F96DFA5B2391918EB6EAD9EF3542E06CEA4E9B29CB3069CBE9EDB5C5B5484257BA38980 -CD1FA61D4D7375418B393C6DDC30DBEA8239EB2FC875ED82ECFA2858FECEC9F395AA4D53C480 -AE25F5AC6F606AA2A58141C90EA1CDDEE8AB82C4A414F127D960A4FA0A0B21EE0712FB2A9E23 -9DBF1CF766F450BA7C54ED3AF1DFBC639373FDE17589ED987495E1422CC525E5450D1799ABFE -1B3036CEE6ECF0C9E8CB1BB2730E975360F923A2EFF75BC895DFCD0CD050C28FBA8272EC4943 -E5241BB251C486919089EB81B69415967808037EF949FE4ADE07BE82367319808004B57F3BE5 -FFFCAB6180002BEA9952B88CE0FF902B209D37729D557193D12A4ABCF2E06D19D7F815026F08 -847D280A8DF5DDDF393034A9137300504C80E6B72376D65C866017A248D9E4D81D5BE2C43AE5 -C13614D09B66587058456CE674851EC714763A7F3E9C85F0941B05D6810B264F7C01AF7DF01F -4B2C446D31F36E07C3979603E92CD49FF58703D1EACCF839254A58CAF7DCFF0725B8D13DFB39 -E2FA776E85CB78CABA16F76C5A84BDB72120F2689176FBF30BF6D0799ADA94D7103B3FD83C8D -252B537B9F33E508D34AA55998626D0BD5230ECF94E90AA5800444C2C532C3319704B22157E6 -92CE472F4CC09DADD30A51F83F8E955A537E45E2BB98B596283C0EB3BD246A642C066C4B9C37 -5CB40AC5B291DA52B083B6E394904C441079D0B5AA276B7FB687857D98307D9395B6983D11CD -DDD3BF5857A66952FE59CF033A2BAF7EB890F7F7B1205ED7EC838FD3C8529AA150553B9FFB35 -466E378D6300D9788A08A828738378188668D57B8B07561CECCFF1118C5B1A82E36BFAD07982 -D24AE03A1C7171D181D8538B44457B2914E2C3D5EE04BC70AD21DE95D5A55403F25BA28F754B -CBE77051EF29196C29ADC94A412AAF533EADB1B0483859C5160BC04A29F7895978FEA9BE2A55 -18AF0947A45C6885D103EDEA454046D6A023C2DB25FC1A10725F6C5B800AF66B8283644A1688 -8A3A46B02D452BF71CB013DEC71FA37359C93DDD1887B4E8C0284047FE888A6C2AD01BB5B9ED -E2BF896FD35FB02325985648FB853DA703CFC5E0468E43ABA9ABB61951A470AFB288F16CB404 -062C51E8B49870E251BC096C4CF605E8DC28000E8BFFE5FEA43C4C201881BDA59397D016F8A7 -8812F7507A4A44738F3D91D5346D74F80213BFC09045AF717A1F479C9D53C9017A31DCF52156 -1F67972ED79D6F662A16DB54C415C23FFF3D1AB7C131A97C5C56D3177ABA98EBBA388F6E7596 -ACA63681281ECE9FB5B539046D90BCE54C807A8A7C2F356AE90B6AF07C34CBA57205BDA48753 -F2D06D818F37D79E239EC50F461686F732FA9BF57520679835EFCF7405CFD3E05130037E1321 -82E4D7AD9F59324C336BA6675A1A19BE44B264970F6C7A07FA6CD497E6524C3E9529D4EE1050 -50E1DE2B2A29E8AC7D53ABA0FA30EF58F3DBB24D4E9A757CFA9C966479AA83C09FD3491EAC1A -57262992611A863EAFA3350801AD038B1D0718936CDC00691AB01AFFB58E222FDCBF7CDF812F -6CDD343780E91555E7438382AE39F88715E0732C415D3164AF244CDB8746555915A47E7FC03B -0755E23D8B2F1B9D86D3380EC81C05F48289A166810D886A643F409B83DDBCFEBF16ED33449F -7407F45B8FDC072B3C61BF263F505128022F41A420FD425D6A04217D0CC57AE43D34E9DD8D7D -700421EECB9177A7A9852BC906EF83063C6DEDF051E3B9792DB60ADD761FFD9638620DC21C9F -E852621C31B858761253485BC88AC3417136CD9448CDB9977C192BC39B68CFBF553CA123B20A -44CFB8E43C4D906F3A23834FFE71AD5FEDEC515264F9495CCDA2BE9CA13F59D16FE230DBE3DF -7B32C121221961E20A7402AF1DB3361D7D26D97AA4E3E50226D191251E0DD4EFE7C6787ACF0E -32E3C45921965EE19BF8E7B18FAAAA312C6065AB2ACA9CFE9A233AF7225893AC3461351C2C68 -E28344E142867A8A326C9D3FCDB68E037E6F122E9AA0B233D0D3A0D179F504D1E788CF1882B8 -70C19470C767FBB400DA3268A9830D9F9B63EFF769F8A49EE1667C869986DEEE7D635A850B31 -2FA838F22343B973A77888F4C087D667C883904E3323D0C24CE37B245B3868FF8521B30F96EC -7EDB92AF193EB9E2D5635C18640CBBB9A02CFE9E67C5652F98611ACDCD82AC0006E030E46448 -CE35DB358A56804E1606A9B87D74240D19189620B1813CD895E0D5B5DAB58F9112875E539358 -658C5C9B8B0E3FACA1C404CF4AA320B2302534A6AAC191605DA459D8D738F50599D43C21B8AD -569DBE12F90FFCA7C90D8EA60C65FFF560D825E262E0D3DA44AFAF9DA79A843C47EECF4670D3 -835C7BFF6B137002497CCBF17DE65F07E6A00658612679CA3DC1AB947E4B37227AEAD66F3EA1 -DF58ED32E0FF6000A7A6B4749EB0BF3F1B9B8F25C296A1387340512C16B64D101E1CECB0016E -F5C1816EEF5CE9423AF9444CD4E9A211E234EBB756FDF0A065BF0824438E570EDED1F9C34AE1 -8CBF07C18F0CBB679F375D66DCAB625F15D5931EF9799AF9273783A45EAB31DABAF1B5CB6789 -5ECC16845A532C90D5005446B692DF54A7E180DADDA117289F7A31138000F50B8F48BF4CB679 -6E918B3F4E365C2114399F774BDC667BDD83A0B21B59D392E64DA537E7BD78CEC434CCF4A9F2 -3CC20E5E76F00E50E848065656AAEF309717310C02571202F786F4455FF79BF206137B3253DA -7E349A6A96ED8616B8B375C69019544A87966CA09268341ECC241EF2EE466708E8A4521561D8 -6D0B2D61901AFF4EE32A9987A52B224DE3482A10B05A1DCC9E450283E8CA2450738885E46781 -582F28E8FFBA5C6AF99B3D876B5C1ECFC27AC029F62F7551BA6F8CEE2E285D6DA3132EB58CFF -1274CF893E9F36E0AAF4DC5A1F54B9BF04A10D8D92AE453FF4ADA6ECAEE77FD1EC6EB667EEC6 -8958ECD63A35C3615BEE85DFB6C57C55EF418B1234A503BE9D1C1C5C99A37B2C4DADED8B1EB1 -D23E2C048FE8CA32B327579B45F4A266824C3B88D07F4956FE390F67CFB2783B5A096B8434C7 -95FB6C8CE2471B8F3756C02028F66A54A975605E710D1B645346E1A96D5EA0BB33407C56ADC3 -528A58623D3249A830D1F216B62F83C08B28FFBB1E98E499DE4D3764E740326217FF18341D09 -EBC1CE3B7CC9ED24E02BC60A5E6F34DC01CE6F8472F814ED1A13CC5EDAB65AB17F3B01FBBB5D -48594CFA7045964FC66C4FCABB1F4FB15C63806FB412699F82182157E43F07851255638A1954 -7ED2D636E7378B6EC621D044AB48C72B77E95904DA6639DADC6F571D243F32FC539835CD5F42 -AC9B0E7B5A6D49F544A265B534EA6C1D185631491569CCE8F3C16F522FDB518EE18E4596D4DF -4D25026D1D4A36FB153BD2FE6F9F18E7C3F309ACA0FF1B8F347033B92602C7AA44DAE6D5D767 -DBC59C7094014A2C0DF511CBD9B9D9ACC389548862F8E1FF05BF76789C3599D4D5BF455C92E2 -090A1B6D3DCD0E6654310706679976DE1D7ABBBC4E5EF6BA86CFAD926EDBB7C4DE045FB0A21B -46183E5BCBA2930B65E2FB3716B6E365979F023973DA4682F871CA83A8CBD7AD297F4855D3C4 -8512B96782B838ED514DDF94A6533527B3F7ECD3D29FBCEAF2EB24606568AE36D7B9184C6945 -1F7E04F76024E90688D04515E1AF746BAFA088AAD5083C491527537592D8AEC95C5C312CB5C7 -E3AC126AE6A5957CFBFDCE3C5F809BD8000FC7B89BBF1AF6A68955760776158855403BB65BF3 -3F283527490254CA87CC0062C161CEF7F44FADEDD328B4E9E4C42443B94C96A9505864DB15DD -AE03B2B75D5E0FE3C74511879A23C26BF3AD859877F1D3DF1EDA58A169AF08EA8A8861C68C87 -CAB6FE8B5ED634C6954522A685640352D0F7057CCB54F4584A946ECCACEC422CF13C07355CF9 -D2EB5FDFC81F85A922F8AF199E82FBDB4ED96DC49BC0E3D45F6B06E1D99149CD773AFB3D10F0 -99C9F176D188BAFE75BB6BEFAD705C3D7303D3B805E7D453A51AC907453570AED5843F40B609 -EE77107DBF91CB9997EFBC328E6D1893C5096FCAC5764BCB91142006040DC458D6B8544FDF63 -A0358C7B4A26010F195875BCC610E5C6E831D55A6718704E9F146D1484295F81B02ACABED2E9 -DA505DF45C58A2984AB68AE99ACF5D464B0451D08EDB06E078B83847230A1CB96FC489D1625E -28431CC8D84C7988C81F5D44C03213D770E0AB58D343041BE3D45D98A4A788ADAB89604454B7 -E62BFA52F18B481858760938FF75BFBED356B6B198104B52583A7F608D12A73B14B44987C717 -5FCEA79B0C3510CEADC166B55400C2203BA6C696F15493FE19357C922B895AE28B1306545E2A -75C85898CEAB0326FD40B87709196B238743FF870B8523C181C60431618FC4E5EC90B27AE155 -1D6689C91241E023F5518CB21B56971131CA5E9DDC1A18969BAFF7BF4ECC9A4E725EECE9F756 -CC2912DB55CDB93F92E08BCB21F7F8376B47434994A0F08504FF479BF383C6C7BF2CA8C25D58 -96DC1E454E33FAF8CB61DD5E0BF5FBFE6EE2FD17DD61EFB7396A42ABCF0C49733794A2E1F192 -F564F306F7FD6ECEE585F5B631F4F058D3F44A1DB7E8DF9C609D3CE4E0A8879D7F3C3BAAEF69 -9B60D8A71ACC51E68C333969B78B2D974FC03F23FABCC0B556C2810EA9BC21F3352E9541878E -8BC2B1052814BBABA742ECE814E64467CEFBF235BD41B3DF54D9382353D82804F39B5FD92D8E -92A0F8F83C33EF1EE41E7916358F1A92E405957E67C432D3B185FE18FCB56DF449F6DE0DF141 -7649B68A217C39667B0378D2EAE252950C1CA39ED77DA5622DE737F94A399D100D370AD2D4CD -135D1E9928402B83C8E8D837166627BCFFAD6EEF3BFA740AA1B1CBF427EB65CA199E223BDAAE -FCB1C75A18C036FE649B0362073338BE99EFA53F67551F75EB4ACBCD20CEFCAF0CA7F4DCA995 -D4C7A433AA578794A556E05CC460DA5F0460B1BC1FD4274BC260D9C00AAC8A9BEB1FB28E92AE -39AD469390ED9DFF6AA1BBEE13DFEF67E65142837C7A576C4DC57D60F13007E18181B40AD0AB -672FEE6185E036ADAC9176D8DA76193C86F4AEE9C9AD1342D8508AD83E6F935032F1E4F51102 -C02E8CA046A6F3882104BC9CB42E5744F258AF521CDEBCCDD9205315806BF1C5A7434001011B -E514D77041F132E0DDF5909DED575BD7036AC21A5285797A024D3AA6D3DFB9ABE6372D780D5E -18E71FB1ADF6D69C2F82E1A8B2ECEE3598529B3445BAC3C890EDA3B15BD6A4A5CED5A2B9B089 -28D9932BE3C58801A9BBE28D0F3A2AA3D9B14574845BB2AA5E730C11C15873AFD25F21561492 -B0750723975B856995FDF07BFCBB5A090D7B861FADF5A90577785CD023F95E71A2A3C2A4A64F -D75ADE1145A7949A973E40A678417B605EEC5E09B86174BF0233FD2E9E9B636B679DD5006914 -3E53B7C461C4B7575FF5D09B1369092E839ED7DCE75883AB18D2245F74F4B6CAC6EBB310E1DE -2CADAEE76E15FF9D91B1954A5B75E8BA94807BFDE10A7B404664EB1418C6378AB2A2899A0659 -E4225AB06575643CBCFCC140A119CAEB584D06B13D818B33BA22CD36E890E7C2A17529F9ADA2 -88331B3ED6C26BFFD456EFC1AFD405B51B68994479FF9F9284984854AC98580A089182909FF1 -4F14ADE1772D2B173149FB266381EB168C38851E6912F4121EA298D722417455B022559C3644 -C87F4D1604D8A271AF7C19CBC6C55DE146131F50358BA52D4427ADE9DEB89AE29B0E35F61F3D -58CE8E5E5D12E9719EEF0D89F96486CC0972502FB0B89D0592E3EDD486DB84DF812E8AD6E54D -119708AAA3A5603D02CEACBBCAD9D6AF3A933FF937F15695FE03A9A75508CD51E2E24B8A0580 -AF96CF8E8FF3DD1BD103FF7188613B836AD97FAC7DD596CCDC5D54474C64C89F1EFCC4F6D30E -F714D0A2A5FA467CDCE20514EC4530F0F1EC9FE504B75951E6EC7C4DFCE97E163B0D480E2732 -AB787963307F9E97A2BDA9DC3956607F1E25FB2E38644CFE66B9ECBA4D32342A48C61B6E5E63 -C6640B0EA83D941E05EDD8DD046FB3E3C715BB856E8278D5EAFAA5C4F838E7F3A466F91A5E9D -B2884981123765E40FAA45B9ABDE7D4F1B0EA6C168BB9EAA77C3E1CD40F7A8D9B8464C6BDBEA -28A96D82B7BE4BDBE62E69A69A635F1FB3B52542AB1CA66A9F0E8D3F95E8D256E267D9FAC65E -22DCB3785475205E73D707BA56BB165D619F438A67C598FBC6D213777C5A103179004A81E529 -17D3A445128FB312BBD41C6E453491B9A8F8C41819AD2FAA2C17075682C8692CAD4C6B24879F -168C6CE31EB8156B66BF1D5ACEC89FA0548641EE4F4C428613AD1EFB6F0122539232622CF843 -6AD30311DEA0DBC1FFB25344D9F2F5611B5C60F20FEDBC494BC499D26FABD9A0C8FF82B7CE2B -2A346020B9EFDA5D97BE7077B77D94B16B4421BDD01F5A448BBFFD8797C8EE8DCFB8BE678EA4 -3EDFFCB32CB553ADF7F832E2E1F2F06BE6E24BECC802852BCA159858FBC1A2493F7D388E195A -B302F528E315E2CF6F9FD15BA69C8E0D82BD47AE7789DCF012B58BADFE5F6E4BF91C45E5C14A -F6B82FBE4A92782A99EFFC0C1D27F8F0A30564FEBAE46462290FED40C444E6410A2461F2FAA7 -813279C8B1DAC7B266271326A2E7B313EB8550AF4E5EB7EE38D9801A26112C9DB4FCC74805E9 -41129F246EDDCFD88E983DE99D17750D260CEB08A52F187A6B0D2589CE0A5FCE84412C137CA8 -24F2B3581E13E5081BD006BB90F1C80F1BD826BBA0162E9B9194D026427B78BE071B1799CA60 -9249D1E8386FE67DE0298F3C1D573C4CE2C37CE7157FF9E8B7019DDC29F8764B5B4D80AF2844 -B01DB920BB057FBEE82CC0D743FE0BBA26E7C803A929EB7B60ED0346EE31C47264CFCE4A28CB -BDEDD3DBF0E9F243B6C295C1CA01CAF6B221EE07DA6C6B622D7B6D2ACF260B0686A0FDC435A7 -CC01BA770E8895169607D57C629E972226C824C2B4D4FFD9F283FAD427B261BAAB76E7AA41F9 -4B621B45D05AC58FC49F659B5B78FAD6C04279CABF5AF7D2879F7B96ABE2DA271977E3CE2C37 -A71C64C691BD1D95D3F5455C1886E8C789188E40E80F2D9CED60332D81AE04234C68ADC9D8A3 -1474A603F13BBD545D5DE320AF275784961E23AAE61E7A0F83979260631F92D6C4FADF4624C3 -3154630B0D78A0AE29CFE26CE72A427243CB100FFF906FDF83AF630FA91A6D45A53107033F59 -88CF851A8D33FB6B9D471D6BDEF7E62791CF5A2D7FD8486C405A26617A935E063D74057A4C93 -8BACABAADB72E210FD8C523459AF10654DF90F035961C62A9404BE1DC55FCAB635C33FD11FB3 -5A1FC3885A326E054AED6FCE0D528E787BA73CE15852C6E29AA6C323B675BA7F98088CE93200 -591A5B74AFF954F40166934DBC9A44188620FDA24A1CA145CD1498D7899974151BD6EA441851 -696141BDC5A2D72F55751ACA1D939CC8ED2063D710765892A79B2404539B4D185AF12D34C5C7 -0E62B2F9AEB4ABE065CFBC5D53729636CA029BFDC1373D15DF7BCE2C816955A00FE86DF13E7C -83438F8788C9D3151EBE21274F10D7D1C1C3479DD6B7B18D8E57B0BE5C1925697ECA0C97F4EE -C318756BB0CD85ED8F77CD5420318F852377C8C8FB2A517660BE923177935ED98626BD52F9BC -163CFDD739274E164536AB229E0CA0881B7013269E591B0A23F9B2048271CFE3A68C42E527E5 -E294259215947DFFD9A268C9427CDEF81CBBF1F6224E2F35735A695E18526B7623FB31F673A5 -A86A32B0E9E51DCA9295A77F3B58CE4CF537C84D4586C981DC2A961E959DB2F296605E597098 -B28E15F0E35B43F50A874FAF8FD4CE81807075ED34C1A0B9AA600D610E32BDC6395E9BC2B32F -F6B7BFBDD1D69FAF8FFE3E24B8DF23888C17EA346D8A28EFDE1869F54DD7B15C52E94C4B6BE6 -C1671EAADCFB3FFDC68AC5AC586EC13B1689D468F7A26E8008600C887829029BD72A977AEFAB -3C6B30FAC7DD3C9B3E000BE43F41BB44C5BE95843F6C4E5561FA9951A90406D00F03D0525C7D -FCDD0027612C30CB4823D3C277F13C1E9F2A1F470A7B3B904F6A9B0349F0C663BBA9C58C47A9 -E69866FAE29D0803D89EB39C87F4E7108799D25DD650699FFBC80E65D65AD76380442CA6AF0E -13E0A7AA34812535E53A9ED790C68A7B9D1C776E46072657426A6F6A085748681D36562730AF -104EDED424F16035E530B4AEB6B72F304680A37CC4C2389EC1D49B42AE856B37FD9607A6F996 -8DAB280DCFACB9EFE443EC43F3BBB43AB63D49FB373F4F804C56A1A9C40345FB7988C00018FB -97D6A2ADEA5D9ED834AF366F0E1FE73CF9B59079C8D1CCE3DB63902B9636C956B3EC4E2F491B -A84EA15C9D6E6DE81AF369B1C0F8B1D2F3B93D56A121DBB72D4E21EB59A175B42DB15CCDCF36 -BF7A730EF078C807AB6DDF2584A978D0D17AE0EBCA89A86C47C4DED885C4D461B1B5A8D1B06C -3060BE496B9C5D9AEA4A9DC3079974D44973092D4C44B67ED625FA68AC6C6B4409E7D816A662 -F3004ED2772A05E06664648EFEAE4EE7D82E79E063CCA854196AEFAA1C1BA4820364A10DA23D -A5AC21ED17356661E5D326DC1812C92751E7CC9FD2CAAE71CC2C48BEEFEA38585FAB6E9BE546 -601E898C35E687EF6AF731BAA9A8E5C1666D38725220E8D74C2CD7CCC7EDA8D0364FFE644236 -275D4867F5B7D7DEE46BFD68FA7046167636CBD2255DFDA92A022A70B31BDD721E8F595692BC -F23EDDE2ED965977A143E95151CB1123E76294ECA7B80626CB3D2E9457537B56903F7685FEC0 -531B2B12E8AD3E23F813B33F406474D95324DE6EF3CE8B5979BF8F7F56E80A944358BADF5177 -013854B10911D70A25715972A5A88E877928B1F3FB1223DAF37632FB1A088B35678198F43EC0 -43433C8D7CED52F899AA28535404A4ABC12367916156C8E72271D43D4EE82B7A5C9CF6B76C0C -AB1F6FD0BCDB2394EBD6485B49F1E5319859492A100006F3FDC7F932111CA15042943079B32E -CE6AC4B075AC6AD5A0198F3C600B9BD65EB10A7EE1A328ABA26439FD9782138E08593A55C299 -E5A31EC91E6662960F991BDF85B5DB1719DC7669198C07790FA4C27EC006C9AB2C52DBB382B2 -7B31B15A525B260679FD56E74987AF0810CDC2B7F2CCF0577BB7B4F6FBABB19DD79EA4702990 -1EDCD124DF21DADCE1751440567B1662F406D63E2ADE7EE97D9720B71E05CF4D0A4883B9313E -787581B88E132724B9E3C3ACBF1A79F5027F8AF9DE5EBC1C51C65E4B44A572C2717B2EDF6D83 -F6B02BC51746C3DBF2C0182DD4179FFD538A456A14A5229175336DD6DD0E2B17E893DF04072B -5D8A15064D4C46AAA5E88682003AD930A0E0E7D2E448AC442B23E3B6760C88C095A9B2CCEC7B -3B3A49104C13BF5E503C70A687867D73113856234AEEC5B18D6DF5BCA8148FB088E4F61F7E45 -4F3A617FC55BF382FC7209D7CC311C2645B35996F83DF11948335E2110927B84F476DD30E580 -E7C4BBC15486950EB9B2DD514EEDC7E2F38B8AE9E41C04E78E2DA573E7C583F8FAFE222712CA -937B8E1FC3AD050BCD38D9B2B129F039FAC2FF013298D46E2084A50BD863E1C25BF57FFDFB11 -473F8ADDED822E8E3185EA9352A8AB4C150A22784652543A9AD3442E022556F660670296B3D7 -1111FB20CF336E74B1C5E40656BBF19EF11C88248EF7F37CBC224FCC92F1CBB4F2844AF7FE74 -4753CFF6A047C9E6ACE9159F7D58B442134A5DD0F0DB6230A638B14CF4DA7A1A4DC9A1142CEC -F716B3A672388E3B0A029FADD7D40902E169D07B3C7957B9B2D774A792E278CB8DF8CB6CBBC9 -2D7B7EE75A350BD34D46F8116112801647CE2C4700F0A978A95F72DEB52604638BB817DFC162 -3F5F9A64D2819A64B16B9B281ECA34062DDEBC64CC33A447A3D896822A6667591D39FCBBB87E -B45B695DA276B1579A7D3D121A2F74F215133E5BF5DEA2DBA2A256C8217BDBDCB7E9B30968BE -4D150192F7C8662B9D0DCEDC7569CDE61DEDB24E806D9F13796EE4A3D4D40D1306D2AD96D5AD -00972BF4AE2B1E2923CFC4EEC0CE9DD6DEAD6510B8878BC985FD0221F94DBA82AA01B1D3375D -D91AE614B5D8BFFFFF9AFD1F23E8C5B50CD0B30DFCCD20D7A09EF299FF9AC9B2C7DCFA773B65 -E6834192E0853A01CD6FCD56E5F33E5AE27ABCD28A16E6BCFD3CF815B5572696BF42C542DF93 -212EC59E208E4583A43CA02CDEDEE658941E3438DA9607B58AA1E13B518857D58133CF4C07F2 -073B1DF4A1E6CD1A3DFBF16352204F56DF2F6591BA9184EADEBE50EF05C2C0592C79EA5FBB0D -2C1908B02AD8D36A1CD93588893F8976F15FF8052D836EC1E6C6901D8E51A6E78AA0C79A7705 -5557304EF0E1605EE6148FFC73A2A0D7A6DA4B77A080F812E5D0DC8157A389BBB3220E3CB86F -FBCD0BDC36D1D501AF67B517783B6AA902CF6DA5D020B7836EB84CC32C312C7FE7A7AD932452 -E25F4C73DBF2C5AFEE462853F1D5A40902286F39005124940369AF056C6FA9EF7950831BB1E4 -C9FE7666E493697D1C92E2FCEBD981DF1E76EB8EFDC941DDE77C2987454619D2E1B114CB7BAC -04F0767BE9606121CBF27E5243C715FA7A8221D0FFCFAA574C2E634DF1E0EC9ADDBC2F356152 -8FD1A34338A912CBE8BE41ECABF6D93EC6DE513D720E6BA60A499625B3CC78AC0629616331BC -05D0F09B4E7013EEA423E9A12F7720C0626D21CF486E451D49A18BFE1F564B11121A318588EB -EC2B3B64169FF8C8AEA1CC6C7BB0D36D378DAF5138AA46642177B754BF04D2AE19FB5FF8A802 -B0694C2D2A7062B0D189E17442C8AFAE3FF5B97D2E823B70AD1B0D51CB7B9D4D88F382104FEF -B30B96B7DEE660DFBC7D717FD28F7F1B6E9E3AC0BF9AAA57A7FA01563A7A8203DD249B5D4976 -7443F3490F990E90B69EF6E811338D5A7E3F96967B1F3C3C83DDB0928040B915F981A0F4BE43 -3E1A4B0C2D3125DEA92C06995EC3211967EEE2D1AC9D952720AA15D72D810DB4A868D238EE9A -25AE934E71D404907588F75C529EA4971B70FEC3D270272996EEC8CB641ECA898A50AF981236 -CFFBDBB70D5A1E3694C935F26030D9F837E89EB7F6A7B55997FFBBB1C26B9FD809D99CD849FA -ABB1E0ED6CC7DF14AC0596E97A3A818638A1DDEB618113AE3DCFC51FA1B06EBC988D999D8F55 -DEB520ED9DCEBE5432B17BC97CBA4C381DDB9DBE2A0A4A888E1AFE918DBA687F8971258FC397 -DB0514ECD3C87F7D6147B26E8BD1BA1DB6E0F4174F4BDDA4A01514A9075B32E21FADD81DF2E3 -EA2D96208A38D25BB343D635AFC486AC76D2AFDCCAF9B44F6DB155A2D375D8F0BBB5879219A8 -A82B73B1D2728A75164DA2C8670D241E75B43E2B1365C6ADA8871F00B3DDEEAC368DA773B241 -BD489CF576B839A5049E8EABC543306453C48CAD5B6971B6F74F3B7DC42C90BAC723275FEF26 -C1FD57807A7683C82486345408CD8B43FC64B26BF9E449866A353F3ED2610820D35227F795FE -52C3E55FFDA5391E49E922FFD7D26E0CBFDEA9A7555657212F9EC75BF92AFFDF511C43626346 -DBEB88CFA1C5CAFC3E76BCA452743AABD24810A68A5B52C5C5EF8C227633BE84270B9EA79E57 -3A2A25155CC98186816C601E2C0C3731598719D1E8FA77F01D8F8272F6489CA1FF44AECAC59D -E585FF2EABC730D5F6D3D5236EA97982C0147A3D77DFDAE993A529048F3F9F66D834C1C0D74A -78D7F8CC9562FD26FC8F239C18443DB3BE4FF3D3E9F2AF816FAE17E4D9D27D90AF99461C7FF8 -E10905D1A8C93963806C1BD924266D04240F2A19FA37796AE1FB8BE77BF1402CEB6D80B4F45C -9DA4FFBF0ACCBC8B0477A1CB3BBBDC5EAEA4C4603B7745CFD6F802E7D96694216B81F145AF32 -6E2F284A74CBD7C3BE1ED2851E33903AC713BDB39BA972A9901EF56A5E0C69D9607E6E3D1118 -FA5B1490992FE70B972E4423D3F3BB9641050B2198DDB2BD933CA984F703053A93B571C6FF7F -37C678B29B104B202481BD4A6CAFF1ED4B3C915F38FF2957CC73817C57D67185BE08C439CA8A -8AB82F75BEDD1D0AB22266F7FF7B8B0B0C047C3EBF6C77FDDF401D9667C2DE4E276AC72B3BD3 -73C00697D30DCCD1A09B78006D50CE2F302C35DC4D502FE3015A67F73FF85A58AEB6C5EC1883 -F8CC55FB3525739F5EACF20C29B75E17ADEF5725941DFC4AD1C2CFDDE6491A256B5F93D92182 -2E799F29509214938A3CEA61136E8875D901C9EFEBFE00BE08D69341B797AB72B213EC0349AB -6C5B1615F4707717349B1CEF52C262BDC69846D53FAC881A234D1B9096359D5D8C36018C239D -FBACDE6C8A2C9AB7B7D0A6CD66F5B93CDD0F07904EB442EB4D2244920D40532399716688C54D -104E6497C8698A87E45E6073A34F867089FA13910517330FBBAC59B64CFC7969C9EC327C6B4C -5E2243B85E24815555A1051370EF7A02D29FEEB5CD126C9C777F5B2C38263BAD10E550978DCB -3367C8605D7064748E860243D724298E622D5BA7CF6456DDB733105F1C246D7EAAE9BB2D718F -1067E4FA9E103D0795279D82EF2DF4CEFA368EC9C16793F4F0CC2F588873267E464290524B82 -67F9F5192D3C1E5AEAB3998F8839E48551032C592C52BC235F13023E99AF6FD020B767575B42 -44965E0D24C3BE46E0999992E3064C233D2881F7A7E87A3A825B7D209A24DA198DE1BABA1B8C -8182E75EF221A179BA8413B8E03E576A7487C6327CBA13740261F31D96ED1910849D0CB27BDE -FF2CC45D6A60FA07096FE5FD3D06508A59AF3D9546B8902ACC5740D66F3DF05B0EE630F59583 -D06C5F726F175450856264231C6D4DD3F2A6A0A4CBE152F60EA046505D74E104DA2DFC119E6D -A2F5A5F01DA697DA56CEF33B7ECB55634896C8B1AD4FFB05CCB1732D0958CA0985CFEB0B7591 -D0D09ED6C1699B089CBBCAE217F0AA2588D086B84E848A68589D9688C6B30649830D5CE3EEEF -4C01D83D624DE1B7385699A8668A333059789838FBBCBB27B473341B68E83A7B0134FE417759 -4E249A5CD58BA24887E57F14B16DE2725EAF0B32C6936271D965E355335363DBE8C8AD69A14C -213AD59A9523B267352426D566BD717250C4F07047B4C8B7B5AF0452DEB7481EBC1120F98395 -428BF3FBF738DD12D761D8E980E7A2DF0F885034021B9FA20CF2EFB322FB79F12FBA51FEE4C2 -8B6E9A90E4BD798B8343E73A33FA94CB6B34CBB9E5D018D055420F0393B52812A93930612D56 -437D0362400AAC3899B95C548512455ABD9E9A51D227C8247C776C02F6368A4A19717389D365 -9AC1016EB1394555FD4892363982B73B076EE5E414183BBB16B839FF3B878FD1B6479D638002 -F896928E2F10746F7559571F7D089658B0C598C8AFFF4BF61179DF8B4BCA5766AEBD4A9B76FB -D18A1A5A84B3646DE936E7CC5B64BB1C03DD76E701087C3EBD9AA71DEA09761997A39F1B1AF8 -E60011363ABF88FD9D13C6A9D5FC87D972AE4F9F8B47F1CF5471C3D28A742DD878E225E74107 -CE3E26149EEC376D67C3FB88908C6D5D455366404954C792377C8F1450ECE2EDCBFDC51A92F7 -34579E878A28BE6BA1297FA6A32CE81785616BAF4EF9A7E23D7192F3913DACD639733B3CC08A -098B98CD7EDC71FB2F44DCE48D0E4B885BFBE78FEC9F03721CEE0F96E57075394491E4407A94 -4659D122C8E38D9A5BAB88DAEE022F71ABE2106AAE633720A389E835FD8437D54E2CA9AF8CCF -4763FE785AC079663A479B3938E5AB1F1D7474659542DA40E2194C9D7AA45D305858F0DCE219 -1E1D81FAFCA0171224A9D8CC6E8D077CDEE40293647FC2FD5D418DEBF46F9EA4B4235BB9458A -F637E1CD61F2A97F3F4C184B8D929A42762D531BA498D11587B9747BC0EB8F05695326907D15 -053058EB39E615A8BA03E6E2F924E13C3425631039E5C8F52B16309DBA1409DFBF790366BE84 -C0711451B4C897F9B0A88F4976D1E49A3EEF1F3EEDB720D1215A28C716A9CE526F8ED591560A -ABDBB719A44D96D2CD8A2353B6DFAF846377C79C5628E0F5BB5617BBD5801023761386A43DB2 -0E1CA27DACBBF35EBDBACBF7DA7736538D86E7AB5EA4A2F9E50A809105E4426D558C0991DCD5 -0CDB3096C4598BBE65ACDCB0D22700E1B19A454048731E7EADFD740F55921E1133C4D21D9A56 -095560CC41E473E3E23912DA95B2339494E658F95E29F8FA5C6D955E15A762CF469953E55D3D -C8AA1107BC8471A03D56FE7C729B19E72B3FAF059A0E1CCA9E4985B18A190BF32E7EF77512F6 -14B5AE16F9E1104048A0E13257CEAAEBF0D9EE5A5D155C131B9AA046E0ED7E24E3782CB4D410 -D7EBB306FF0E45F26567F26095FE2C93011C4858942C0DF282842E7D5DD47D91ECEB84BDA29E -94C15C23454E7E284B322D276FA0AB22B7A3CE20FB26230E4D9E216BAA6AFBB8AFDB3C5F5C9E -22CE27021DA372D89D027A02261F524A094A85536733887F4C02AC673D2B62506F06C7507BF2 -2B2BB6B87839409375FB289BB12937AE42D67143E4C124D4E8FD6F8BD32551BDD5308D2449C0 -9A6B721BCFE875E78B997D72EF4DFDA6BAE5902E520924DB24D3AC818BC865AB090DBDD69AF4 -BEC7058378ED23E0ED71090B5D769896D8814275085902E6673F1903D9F080CB870D14FF9EDF -6A63CD1E80D260D9A120DB5D8834C1F567F5758DE6799C9F970049B1AAFAA789E06451E02C9E -389861B67CCCBCD60B588D358529A2802FE8DD347A996878BA0579847A0A19D1B7606450CB6A -806DF76FBEC0ADBA38E6CA51C8A0BF365300AD6C60DFB25C857E7F0FE98D5FF0740AC5FEADC7 -AD10B6FBF7E07675ED4C8D9D061A51BC84897CDC43F6A15815F1A2B8400F56CEC98F29CAC246 -DF5E14E0F92FD1B4B0031271DBA32C551CCFF65897CB65AAC9A53E27129F7C686B3A7AE6A914 -284374ACBBA47CB92D874545058E9E7A8DB2A1C7F31F966ADD84768DC523F51C45816B9AC114 -6BA5FBE7475B6DC6930E484AA12442295FE5243958DEA5B4DB7101C555CD86ECFE10382C8F7B -67432765213978BCE90B55684B7A4D9244C6FB6DCDF6E882F0C804675CA6938A75E1CE730FAF -8519480D23E627283BCD569B2E2EC163FE28421500D6DB83445B6C2AEC7CEAD6D9670DD996AA -210C2C14FC3B52EC5EAD444D6741C3EA31E982E029A4276D69BCF0120ED87B7D70EAD0A74752 -50E7C47E90063B2F38377639F27E2916B89863BD6891A11D477E3EE4CB9FEBF1916654B05E36 -AE118156C75FA0172B3353C42277AA192872BBC80ADD04D187A48A1FE338CE366BE7C3A86E9C -C3AFCB3ED5CB47440014F30DA702E9831C0F5D0A4446AC3F33F576E33D8E1B6961DAFD33D293 -3B50FE84BC44D6B3FE09152DE77A1C4464C521D4642AB75E1921990BEEF55659EE962F2F4F1A -364FE7E8C048986C1EB43EDCB52C069D36C72D0F4970F7C1D94C7AAA6C2BEFEC594BFC43650E -B5C6903B4FA7CDCB38EB18880A53A660F05F5ECE837369C2083458384E7DEE5547A3DB796A3D -12AD6D1095D4B334F3891EA4ED81A8493B153C2A502FBC0E853E6D13F0D0CF2D412AF658C08E -07CDB6A96E70DC830DB32D9FF516535DAC08333CF827E906FAE51C21D834B73673806EA1D6BA -E04F0D28491A2A84D870453CC58B2EA7EAFC5F0B1EEF91499D16D0B169C9A93FB237D6D5FA95 -6E9664CA25F508D13E7930C87354F92AAB92023A50141D6AE5C94E95EB3DDA8CD5CCBE178FF0 -33266082994B2DCD28BF143821AB2BDB17CEDE41D65BEBFC03EFEA26E28326215130ED15F7AB -43D98EA154D2B352474C94DCEDE4672295CCA47987862D830F9DE694DAA29F515983FC566C45 -49994ED4B1AB1BA9D9625D0068F09F1167BD2932A5244CFEF32BC90EC711513A0F8EDEEB1F20 -1885CE816270C71694B813A19E4F767DDC31228C228E7C5841EB0056A8156037FB30AF9A69F8 -36CC743DDB6A59AC99A59CF157340FC49BAE4E7FA266D733CBE9A8449E4311FCD95B9F7F73E4 -559AE374E7A583ADA958ED98A4751B0FF188E8E064B5210985C9FFCB646A0C06ADE509AC9F60 -3616C5D91A3D0B092C671ECA47FF8D802023A4A33AB1460EA3357E4DAD030C22D77C746675E8 -AA1ABE23B624A434486C4B9EAC5903FC31A6AC69E5CE8778D211FC89B074B99DE870510E29AE -337DFE14AEFE5D3CA801AF8AA5F67B8F0CB5C5419E97D7AD6C0D1F68A5DA7ACC2E353C405D44 -686EA044C8E17CBD8C692DBE303D658A8047E4A24BE2FAF0C3D59D09891286E3DDEAD4283C01 -85E21277762EB0A14CC9043283E7B24F433997233B116040A34D720F4F596F80795EA2684691 -17D237FB90781840C4A42B4788625873CDF0BBC4494315C67640BC48952394C759BC476652CA -157205A241BA7659C60448B190CBFABA2C62AE6CF7AF7CF075B3D5E08F8978C729C582EDF961 -EF0BCA141F952FCD7218EE81531FD282A8539C56B395A033DB01418C8FD482EC4117CB805BC9 -120789D96732224301C77A23C8C3364DAD8EE94071B4CA15837FA4D5E0551A867254EF48680D -B959EA1A4E60D3457071F123B95E794FEC61190A9A7534A06374CDA6FB58F55F354BB9ED163D -C77CA734425A05E9432252B807C924635C7822F47D18D07BB16C47E9DB61B9706B9B6F9BCD0C -5D68726783E63039CFF40489D0EE0A97EE93AD85AE9735B74A1A5F7538ABBCE09C51480FBA8C -A06F9A7D3D860F2F016A43350F00340F6B77D925A2BCDFF696CF05EAE82C145A71E53D2543C9 -8FCA98E0F76C9659BA71C6CEA91C725B681BF61C432374F88010E23D59AC4DC834FB67CCD0EF -456EC2C3B00474BC1627B047CAD1927575A25F5A57CDE4BA82CD8F2734C76EA5F5024A045DDE -8BB6F06D1C83F2CD4DA24B1B18E592B924AD255F32E896D7E222C010A9FC7C08A79B5154E384 -36B0BA7F6980620823C8DE5A22D13AD4DD620B0EB6A7E0D6D425F161AF7F566FC0890C1C5ECB -B468F16D0EC3D00DE32BEDD42F897F66EDBEE4BC502AE8C090B7490A6F401C5DD2367C9B671E -E1C6F7953DA4F2C472953311F2DC4D3EC5EBDB543C2A6D90A69D2D308DD9B77D216B2F57FFF2 -D929F2893E0ECE3A45D7815756A9E53D209B1964C605D729C4081296732004183A349D098D05 -AE44E29B08168100F55869ADC19978C70CCEDAA313F993E1E54D62049C3E643B228DFDE1D5E0 -3B537373997D67DC60D444E75CC95D52E9D892E3C38E0F1DE0CA0D0015BCEE5D2EBFD06D6DC6 -DCE85D6FF599ECDB8663256B008A330566AF50F4F952B044286149F6D9E4F4226A3DFA81127A -E03241995CBB63BF956D4DA8C18A15F1A3CAC2C2C3132CD645700BC551BFDECDC0BC7A03BF1C -3904DF7663686DC8D7E3E9A7C56ADBA78F582949795A8B45DB0C5E7D1D39EBF00EB85846E3D5 -6075076DAE3691C8D8337F30ADC6E94143AE2AFDBF055032141C06EF5DBF9ECF85D002E24858 -AE968CDD19EF940123EE6E7BD4856A11406912C82A6919B4B9EC1E4504AA712EAAEFFAFEEC2A -D169BF02A6173D514625D7CA329E73F1F8A1FD75D2814995C0B07FC3DCDCDA22A965890577C0 -037F092E4D8D0231D2E5D7CFB347D6E92577C066FE566B4EA70FFC5A49BCF31DA1AB34FAF039 -DBD62B0FC6F884C27BD62F25FCA6C4AFB460DD46BEF6D4872A0B7F39E8C2E11F1AE5DCB669D3 -82DFD104D522148D33C3138D35DC843ABD723B46D2965CC4DC5EC98D6E365393C2CBA8964429 -F36B59C3D045BC84791933D22ED2C49AA96B596E41DA6BBA8C6185776BF14D0A76A5EA1961F2 -D514D473EA476A8055F30F3EB53AC222DBFF6C15FFF281463C25F8035311235B189815CD0A7C -52B41D152C68A89DAAB7B32F3BC9C8519EA4A4CD7AC9DBD58192AEDAF7FC16FD7A0C0EC5D806 -AF05CAE8FCC487C33031A06C4A814BE53CB257AEF3765C02C23DD9C23643109473AA11AC632A -AF0A6D114A66A727BDEA440A1D713A557530EE945BD7FC2F99D13BF972D0C3DE89DF235D4096 -2028FB8006B2EFAA4DAB25627C9579039F7F27EE836115E345E8FB35ACC8A00264EAE0804EBE -E7D11DE23A9059631C5811D0CC791AE67B27FC94DE59D35D7C83D37A02F509318DFFA76F5733 -1AA88F4EA0793ABE3F6537EA495CBBC5DE1B6B3B24FC988C662D181AFEDA2E4422865BBBF314 -380F620BC3EE14AA7C3C1E0AAADDBDEED69576C274F4E012DDA984613F43A6BBBF018712F5A8 -F379D6B0A1AF2824E486480EC2560F766297FDD44B094FB05FFDA819C9F4358FB6CAF7A11945 -DDE2E13197ED28BC1FCD45F6766F49EE5399748BF666E428E66699A62AF88285552062423A51 -1A9D3BBE2FF223C063A5D2FB4E6226BF6BCAEA7A02132074CD85AC62D11392AA479BCD557CCF -B6265EBC5FD240F9F95FFF8B3AA6D49A7A0A9B3B761418CE64CDBB4F0FB2054F319E102730A1 -BD0947539727DF20023FCC1E181949FAC91F3FBF3699DA948DF9120D876AB2E4283382B15205 -EB99767D8AA14EC60598544141E4C2295DEFD5F9C154A62917AB5A110649FD37E209DE6067CB -0E3EF2D51D895938596B3F3B9D3F3445581FBE05971945159A42C5C9CDB058778878AFE946B6 -359E6BFEF1B65A27EA7B57B7A68B0C5BF974D07A84D516E8BD8E3BE4044CFA5277D3B087401B -20368F46E2EBC714EE7902F98B45B410AF5612C03905053505C8C25DF6A0659BA8779879E1A0 -379B0E254D142C0ABA7DA55C19D67FCA20F5B2706B73EE143391172200052A446E6D10CA9C89 -468140888694BA292D5E36C9CE7BE460B3B2A7DF254755C4C4A6C4B6868977677639D3B0CF0B -6062B03B13CFA5BA73A9FD7C1FB576B471D10BD5C1D8751E3C236CCD1862C90ED636254C9939 -768D6324C06E57C5B103F2FA95B4826D67CFB9D65AD64B7BFC1E537FE675B15AF69DB41066B9 -99C73D3952441C3D788AEBFCB873F66B48C01E263B04D066F38CD0D08042BFC14D87B768E637 -174D34512C631B9367E9506C844752D49E439C50744063343E719BE96D7165A47923B49B21B5 -1BB9129FCB8E613F84869C3B8F1A26252783158FE80797F4CB21441288866AA045D4CC5851F0 -B555D19B16F7B86F3E7A49ADAA6D540C1C5139BDE2793727B0EA233CE7B7E34AF650F6188815 -8BF00EFC552C5FC511939BB137B06B6B024EBE1EF641FA33E557368E8867133D84FAACFEFEDC -15234DD09620EBA12D5A2FB4715A817DD88E4779BCED4E7D1CFF7DEB2B6CA49695E40ABF6CB2 -D2272B4D1F8D9D360CF0038C855DD35A5F0326B0DA682DD93BC4FF0B63B23C3977AD90B28CCC -192296142BA25CD8AA9624481F66479400B89EB4AEBFCEE73F131BC27131AEFED679D9D647BB -CDD5F6715A6AF27BEB0BB05A0BD498294D8F328CDAF4B9AD9EECD2B57634C89145283EE5D904 -DF53B11725B3B4FE049274DEA580795DFAE2E13AD1DBA39DD769EEAB36866911272606632547 -B747BBA4F6F114C60C0CD830DFC6E734B6E489D261F2324B2E8397DF567E996870967393F6CC -FB5946CE81D811EDD25B0B8CD251F2D24D4B1EC06B00F72E1B4A8B8C405E36060909CFD6A3DD -074EB7B94E0B6FBF001397220F2B8856A09AD1D0624446E7FFB2B7535CA4E828F44C0A7BC274 -B42E979A4041947821C9E86A393BB350CADC0B433D3759F512F2C18A8915B4F5BDB7D72FD499 -D005C82EDD874EEC73FB8DE48CAA437EBF1EABDDEA11D119240B9AB23E2093CC898DECABD229 -8C7F84051E2B209BBC0377BB134B4A5E5FCE6D8B969D86F323B3D2993BE53AEF84C3AA923C2B -B71D247A1DA08C40BD16585C00EEDBB2033DB3AD676036422A36E329EC15D4471CC3F692A829 -0090559C6CEF0CEEE91D3A058E219310B919EAA65F66D4E590DF7F9ABD1659A2C449C757B59C -EBD70D0BFF1DCCBB63BAF7DF6B28BEB628B5508A8ACFA178D3A133D04ECEA24E566119901CAD -370C3FC87A1B4699D58D1CD2F4DD715B87758B4E570934823A0F02DB89218897F6ED540D46A4 -50AC18EB03046756338C3025DB9C9E74F9E6ED7C6482798D6219433A0DBC06CDAB025D5D5A91 -ABBB2AA3FA3A0B25C386DC3F1237259ACDB5625315376F5DB2E908CEF69ECE6B69D2F417336E -4838D159055DAD0FBC26173DDF2FB55C2F03C936CBC83F22E29913639C7EBFDA2477751BE7D5 -9F90A7E33302B4B52EA1F1D39CBEDC8B492D28A624CFBB9EDB7F803DC6BD0CED5614EEDE81E6 -52B0347C23939B7BE1E1E7297144E4E18FDFD413EA1C7C87BDB1EAEA093208915B43E2FDB7BC -DFBFE13087798E703D8370F30B9DBC652091C3FDE9D885B0245C920AF770077D6E324BAD065A -280EB10AD63B168E294AC814AD87A32948E84110EE098D56C79719B0992DFF8B86EB67A07CC1 -7AA75C40E1D76AAA3C6BFB5139E93DCD9508A0837690AA4D2EF6FEB670A9CFE004BE4ED76C0C -5C1F3BBADCA25A976301F0B8C4AC7B6F2B0821071E1BB47FCE44882F3FD899167726A43D2D8F -BB01567DEE6D7DC3397995DA4CC92FEF04A08EE2C0E548E16FB8E78724BF215CB35396DC2F2F -E9C572AB4685E35937D0524E1626D2016BB18818E4E6D0E24C3ED02DE6F2DD9F0BDC4D0D68E6 -47E1A85ED86802CECEAE5B5873C2CD9A14C53968C8AB02DFF8973A03F82E4D491FEC415C8A78 -785604B02A55A9758A78C9AB8CDDF7018B0468CB9EBCA93CA71E9F8586F475BCA245BA07F435 -BA6ADCE085F8A3654E45498BB3BDB8CF7F6DFCD7F0D047EB9DA2C6CA84BAD1DC9A316067AF11 -1DCBE13FA18BB289D91B0495323E151959D7315B07D5316D35719B671ADA1E172130AA05107B -232EC0ADFF164BBE5224EA839DD7970292625FAE514AFD9B64BAC1909C462EC57F813B8F0809 -E90FDAC3417B84DC8B9DA2495EBFCF9A5774C1ADA12C8F763B3972E09605F49C33A4B7B6582B -4EF9EB474ADDE41978B2775BECAC3B35F09379A501270D188A5A337BE92C70CEFB6CD7FE664D -864B8D8C303B5EE40329714F8611043B8601A77E770A632BFC29BE66A881FE4A71E80C20D812 -2074EA3858E88B51828CE492DC0DBF58AFE0A49B2659A61BF4D9263B533D03A75D2F7700C045 -EAF0B304CE29C4EFA9548CB4FAA37DF0928E615EB423D89BCA1F44BA5CA87C4B6C3CBE06AB64 -3AAB7464620BE2C0B9DF3BE90F737814A2B1389006F4834E6F442CE97F65A198A1B93CBACB89 -C4B7321C057386E099F51E498112FEFBB074D85ECCD8961A05C04B4579FA9088FD26E7ACB629 -D8F5A1851B53A38FE575E4D44928ACF5F08B03D8E644FA188176F01FDA262965E2807D60132B -73EB94D88D21C6C269015343D261B33AAE041ACE9928A4C473EC6A5591E9AA923865AC9071FC -0993DB946BAE54BF09D64AF62F8D7FE16A0026834694DE869ED092C2806C1FFF5ACAADE3AB10 -D4093013EA547FA0132023E4EC90A959178092D3B0DB40C47E34709972EF733BC9985E4AC2AB -389B69D2B31C0A8D96BBB09B70CF016B8852AA4F72D6D8AF26D9C67396CA5F81F2FC5A1A93B7 -1B1E24B66841271EF6FE4E7D85777745E1941C6A73B46A0966892525A2C53F14772FE68C6E61 -C8E0891A8AB0E3CEF2B324537D905B18E5D8FF99AF769597A25E678DB4EE875E57C3550EB906 -50D277034D3ED7E50906073EB8DEE11FF7841CAEC434D8678C4DE843BDA52B3DB1FAF64E4A1F -6257876D1B113B24F3AC99828D2A83129C912ACDB47A10D0A0C4600247F05506A5C638B01514 -8032572E44F7A65495FDB1750E3C0D361F63E4FA1DF781EFC8A6A03D0E704FC422630A0B6D92 -78211127BDA0F71F4D5EFC6BEACB850495A81C689E03C3D486805AB70289E7B4000ACF125252 -EB5901722F6FFAF87431586FBA00CFA437F8C7AE51496729707F662D8A180D8DECFA4D3AA4BF -4709CEC8E783208EDD2DE827A5CCDE40C92FFC053831F3B5DD282E8243B009DA5C17BB7D577E -966AAD773A0B8572A076C375DFABF80D6D734EE8CCD34481A046D60BB2AFC8EBC905759AB889 -769F43CBF86610171D4D454D2CF25CACD3BFAE6FD0B43F04A687EC3CF31E1878EF04F9C661F4 -D2993069F17FE41598731D19B47E7C2FE3BA018C98D207AC2404AE7DDB5FB4ADC0B7AC0D082F -754F4B8F7429201196729832DC5E21CFCCAAB385F3F7232815D4537F93B389C7F3C977CD5A23 -22F8A32521E173615E1921E6484E9F55C18FA91C6C43BF6D6A20FB3411829B402BBE4E899470 -DC7A76200E0509E38AB22834BA4D02AE59A69B6945FB47CA52AA2754C0D8E0FB20F822F680D8 -65E1DC791652199E5C596B194D82CA6963ADA6D08D8344B64A854C90AACE2D16AD15C40DF622 -48AA42258081B986BC38E7946EF7EFECFAE569A98B9FB95E305320B7D6A623C69FFEF0DAD1AB -3649EB0FAAF001B42B2D2B0BE1B3AF0EBC8AE859F06D973270DB77C21F3DAE81D7B028A130BB -388B38A55A0922C301F20C47F43E0E43E2472B1E3E493862FA43FADBB554C0606930A4823B31 -BFDD71068D476FED1240712001CBF086DC2A1CF78D287359327549C5F4071CBD80283BE63C37 -7915B52C55CC51647721D4F7F34228C1E49B078A1F81D46DF0E7664F9543C4281E027271B602 -8A5FFCB3159EEDD0332433D9B91EDD0F3F1AED0D6DD079F6289235511D090C927BB788572676 -719FC71606026CA7327C42496A259AD006BE927430C8F453062FF051EBCF4E6ADAFE2DCE967A -42755BF9E6C3C1121FCF0638E3665AEC94194EA1642E1D20054C528F45F1FC27D062E249FC2F -1392F74AD1D2019395621AF64739FA8FD7608A4A7F9248C9104DA3D592BC9F7DE16A9AE6EEF5 -8BAAACD7C0309349A8D30E88EFC631329886E5A614A4A479B3561C7B5572A145D9564E196F2B -85C37F75C499301E9BD5A69019674CF70C17EAA2D21DBCD6D3DBAC2E096B61D11F79655057AC -57F10B5B9F35EDC60940D70D2CEF4432E70912B4DEA161EDF7DFEB71B17AB6126CA1ED0998DF -84D6FEF47004C1BC07BB567A46C835888A3F0AEFC22B9F4A665B79FA0B3842648F4B4D36E7FD -F94C2B3EB050501D648631B2E0A19F3B488EEE74F7908CFC7207B8885B52A1F0263C381D1490 -2F4A597035CCFFB51AB2EEA9C394BCBC3C4C06814F3E9F55681D1F7946892D2845ABB7FAD21B -FE933C152F20472035B2875A44EF7DAF52AE893C00319394D537D133F8929E8984D2B4239328 -6D95EFA2F1A15DE4341C6675430DEECF56F7DEC11594D7369467D3C835CFCB1934ED5336A886 -33BC8BA076BF2EEA0407B6B2C3829B44EC3A29CF640112A567DDB7658B0AAF7696486DBF646D -D9B0B033AE79664BABD700137F739B0C987183EE3FB1BA85687C48399F5C5296E0FFB92BD38D -5C66F294B49D5C6DCD1E2111D857D38B4117E1B2C25A7D4BEB045CB3827BC0DCE0B6B8C87A7D -95E5A709D73E341E31416051EBB8BE76789041D20EC375305472F10BA39043541DE8B117C5BB -25F8DD9CA2FE56847308DFC19F756DE479EC894BA8BBE5B1A62762CBBD42F1C87FB290AE156C -B693B0A6772EE42CB4C56857103DE9E2B3B8A79BAEBB0751398C5B70932D41B3E70041F6E725 -3A17ACFA8BD557D9894F789EFC5F9A67F22056FAA42E8AB8A121AB7ECA6117762691C57D40B6 -FAE39D19F866F253D8413CA030DCC1B8F6F90EAD37037AFC1C07C41560EFDCC0075E7C7D9113 -C51F8A945CB189C6B409EE396BF9AAAC28D2CB9FFEEC9F753906C626FDC074FA96A704E5E1DF -8DFCC6161B55DD3301F4C4EB5F7AF0ADE950F7294D95E38D76B68B7BB81D2CFE794168BECF5A -09C6D14DC18DE8C0968A7A0C27F44719C9DBE397CD9A91F39F441C35094ECBDA1B975BC9C02B -2354F183CB60953A52DE528B0B5E5B083E381CB6F091E2CDC3BF185EE27133FDC1AD93723BB6 -A4EFD3B1A79071E4D40B38FF75B4510271C530826EE3D43FEA0A5A20959AB6E0183F7E134A62 -D73592EBF9C33EBDE7DD6BFC31693FA805B603791A1EDF9E398BA60DFE4DD22A95BF349515CC -7C4AD65E32DB240A4EE8A5E4EC471F312CA0C6A066ABEA6CA9BDCA2F9E830BCB587DEA57574E -6A641A335DF8B9AABADC496052B8B241872143D5DE196434BB79261F9830E371262DC1DBDA3D -CBA47A99A32CB4A4F45DD324A615FB6C04F47C8B70BFFD2B53B2A1F9697B4EDCE7E494B41E8F -E7A81BDA0C2F111F64E15D4AE9BF8B69DE47A87DFD11EA49015153F05837F2DAF72CDA88AC1B -CCBB6E8BD35004D3CB575E7ADB043FB589D04A7FCBE39095144FCA72F7ACA2FD6357E421E86B -37D87D9E34A125CF398D070642BA20DF3466A9D44C027E2CA2F3198BD81BF3F9333FF7924A08 -62247BAE54D8F9CE772E738C6F85E3B631160CBCE932223B0D7004CB0EF1F2DFB4096F6E6FC3 -67D5E1FA3D7B0361AACB38AB6F0558CF64334829DFE1F8E0B4F880FA4F862AB4DDD95BD30919 -8437751A040D86CE9E60AA73CCEBC11726095A720BBFD485958A300FBBA2AE77E142AC3CC0EF -C6AF419F4B99E3B546FCC32AA923A15D53245A5660948272C45AD579D6EF216E517A6AE8E876 -E719EA72A99B7A1C0DE18B03B50FF91448707F90D40F0FC114030A7B8E87C9C5DE756111321C -2B3D8F2334A38AB30DB4BB3240FBA1DFE8EDBF0CDC4E3B3796767CAC5232AB8ECE2EA52BF04D -BC1524A05548D2CD6DAC4B00F2B6691D8A340C1722F95F6CEA464246ED5D49F42016295032E6 -31ED21B88A6159C3BE2001E8A17105368043A2F17B459A9129B0DA1F3998404443735CB80630 -B93FDBE1C6B00717748875A521FEA07C830DBB6526A5F4DBE224ABCAC2B03CA9015277F75849 -AFD644435758DD33084093DA7C363799EB6476B450280498D8C3A9BEAD01BC307E3F7AEC6616 -2137DB57135EC7EF1F44DC5AAA215FB04000CB3859E28E00E40187939512D0B5F190D1CD0D87 -FE18B3C5061548F7AFFBDC39C8B53E521057FE91FCF95783726CE8887938E5341E6B5EFFB971 -CF12D284D6FA783D682EA5496CAB19D62D8E74487A1585136D79B6F8A8378D390A3BB88D11A1 -B0E28CB842FD4EDF20E03C850EDDA66CC6A5186F52CB4BCC11BC8FD9E04C8C924BFAE6B0735A -EE103221725A193977BE06A4AEB411F3CFBFB0E4081CA73B796632B03D5845E117C025361DDA -60D27398EA8F29EE64308226676236E7F0743D536798378CDD4186E74DE4F0E0DC58DA3CEE29 -C3FB9DC1A20439F053513B8AFFE1660FA1328DE2C83A94F148F1A3FF3CF28A83E4045F3CC8D7 -399BFF1247D18C30D639082DFAA61843DEC9D09995937E034FA70E6CBC0453A21780DD3D7C8B -7723A3EB7A1FC88CDB6EA39616381D7632357ED53F9E2DECC5DB857FA41EF5DE57CDBF819963 -245B5CD6AF68AC82AA6A3FBEC258643A6846A3C1211BD7AB24271FD2F712A099FC711CE69F84 -EBF227A0CEA19EB292640E518A581F9F75798110AA66CAD4829DB3B2F93B2A0D46A7EC26D3C7 -EA04E696FA49D3FB066858AD6D47FA8E70EA7A1C32464924E91464A5BCDEC02899F94EF98526 -BBBE228675A55354C2AC4CA222FEF633ABDEF8383ED93AAA1D42A35CBFFF0337CDCD9CAF9998 -0EDD82257F9895E675F8F46F9AC1760BFC9F25FF2FABDD4E4F6905BBB46DC6F70F4210E9C9B0 -957AA3E96B8909BDD6C1C4AAA55B008511C2EECA730EB6215D3A6955FF0EC9BF7AB97EC475FD -B8549695EC5C2DA31513FA0A3180ADAA6C235590F173B5F7D5DE168D5ECF9186E8EA9C5D1DAA -8250B3EDEF367EFB85A77CA96351FE0DA2C8EAC2E35A4DEB7A6958587ACF038E5364307553F7 -3F851493C5B7973CF9D0FB739BDB0B738F63124213E50BA39970A6973B70E89EA4C9296E2C72 -A1BB3C263B6BF146A78AB9A48F96978C7F964C90CCFF10AB472993BBF27E362DF551AD275484 -E807DB46A37976D801308CE021CF7BFD4B1B4505CBA739ECCDBC99204AA6AD13B08672BB15B7 -992461C09F3D738D1E88DCC79CA8F1894835B288A2EFF6F133AEA2FE60F3D5368A4B085711AC -429355FBB6F683C286DD2A48A0B33F6ED6632FB07592EEC531374C3C12DE98676AE9F80D3024 -DB63D5FEB10E3143440372683CDB34402040EC35F2FD3B592506A1AE6F68001D69D36AA6ECCB -94A7DE612443838D18D59726022C3BD4A924A20A0AA2030941A6DAD17442F9989308D8DCB9C2 -229D3DFF54D75743083C1EF45F9E7FD7E040920F7EB24EC803C5CD3930980F7395BB47981D9C -B07ED5E9C688CF9B9DFCA1149442E6D3DE66D66238259300FF1293C5FAAA08F58D8EE0D6CB24 -52CB46C3E54335939612B922897947C2EF5F8A5A58BDB94AE9E272A6E09508D25070DE14BCC6 -AEEE3C081AEAB5559B8A0A15DF14DBD7E45F98E3E653F35337BB53C27299ACAADCF52CEAD94B -59F4910D670B218F7334A1F71F7E52C77E34388563FEDB8468CA1A8BA8C03BE75044BF3C95FA -CB3537D568F6F4C520DF778BA32009F56BE20610AFF346758B255FA32E46439E4185D7AA8EB6 -6881DF015581DB6101B840FCCB6CE25E960358791C084EEBA74F44983CADAD27299B94E59F9A -7262A657E430A00EBE10BCEC7C1742A42089AE4EA352B9C4DA16946C9D6FDC0514D4417C943B -BF6828A6B2CE3B1615DEACB55738E03F6FA3D0899F653F32D33356CFCE075485A931DEF9A18B -4C3FB09D2A3BBED8C37FB3755768F7A33721F57F097F69777FB984FAAD354838E2B6A0896CE2 -FC228FE9FF200225E7E68C5A45A426767429A053647EE3850DBB6EEEC1B055ED6967665E03ED -890222D9D43455B1872EAB4DD78D01047512CC1C42611D4F81B20D8B3E541FCBF0DAFE6BCBC9 -CA768F3A1F8E4146BE67D0553C14D4EFEE84228B1A60843C6FF7BD15BD1E60E440821C253350 -87E940383430336E56A2E8ED9D36AF3854EC8F827750282076B5072082D7FCF9E35BFC50F49F -E0B8778AED9519C37FD85AAEA55CE5E11AA5056F816C15D4BD5911576E4F5D10578637A6DBDC -A5FC2604024F5A18D162B26FF0269C26A09D06AFCACEF77F071A6559B1D532EEAA8C5C1C581F -0D9A9F59AD4D47A6F764BC99BCCAB65C29F05704302BA7658508D1457B5E280F8F16AD27F76A -09419D16EE864D4611EC964FE8DBF09586EE93851D7E9080F4DD478131A8926882123469787D -AE883E498C28BFA6B7E7D7408859E83CC263C82C65E106E30EBCD85F7F90A5AAC1E0913D310A -12860856A8F37315B3F4EAF0524D15B4AF84BC83B294DAD353241571EDD406BCD88DD228EEDF -64F1B50B38B71A148DF2E49211A77BF711F8E697C63379E320CD3678C025622251C51AA6D81E -F0C55DD0D4FB392A93E12A0779239AA6EC1526B60FE86311189BC595E513166082AB0E102E57 -AF1C6FAAD5AEB4B7673A0790B84F198C8EE9540D05AC88CA7DC6A68FA274F2D757EDFEE3C5D9 -7A7C49CEB1EF08A21658A4F5599199185A76F30F8BC8E0A3D1494E0B418B7282B7E9C8CC66CA -0A465E289CEB72411E702D2433D07FF2975EC6747C9117AA7ACFD468FA32BE3111C0429F321D -6D3A25C7B020E125703D31D1980BF52E02AB71AF1D0D693B9517FFA01E208AEC4FC84E4F2129 -215BB97B0448B0F6EAA351CF8E5F30311EB9A766E4D626589B5C6745C5AB794349ED72901260 -328A7302F1D8B438DEBAD36CA4202D5D2AF7FD9885E37674524554F58C539CDB755D75E5B54A -7A9CF58BFFD9E26B4200184545E934653AC79FE871C149F4857D8C5B5F1B92F9C91491B8AF28 -D950AD5D19E6B977756FB352C075C2EE4E4F28826A1FF6690529DA131E5EFF30BB2BB8965321 -61C89270B90A192BC511822C5E99A46CB656A66AEA4DA330981FF03139D460D529E3D717FDE9 -0BCA043531DD90B5C4ABC0343E0318B7FEEC33C67782B21CE1888604FDB40A6306BA21270B9A -F4A80AFB1796C57465B15D88C9F6914A364A4182706E50202D5B6AC0F8263812080F1ACF55DC -E2890DA2B605CFF67C53995579E7619CD7F61AD5786F19D93B7730602622C023919BCD17EC0D -D23717A80FFE65E321BD371FC30486218E2EA63B27555C073A6DE114D19E1F0AE30098A69EA7 -DFAF4F0245DE13F9A3AA68A7DDCA63648AB45426D736B2EBDA79AAF8C169E0AB7677331A2BEE -CD2FA14F50BFE0E8181D2757469998503D20FDC222133DB807A29E40C129D7AAB0084A18AA09 -75EE5CCFAD7CE561702CE2FC1CEF9B83FA6B9FD4A06396ACB5C3DB128CEDE5DDB8DE16725735 -B85EB926E8738A9EAF398373269F719B041A4BDDEC854188080B859B0299E6F9A40839629E0D -D9BA007C0610942E56F05D1F7FBDED8FBAD0DE02198AEB6248BBB776B39B3A50EF427CCE6FC5 -6DAE24C705B1931DD8A995E9B969765BD97472BB6015BDA247E70EC4C7F0956AFEA7666A028B -B9E6DD1F8862C639BD5DC159A88F9E34A83F6B0DB266DFCEA5E793AE30D8A2C6942B9C04FEC3 -F830F1114196ACA821EEDC389791C753895F08417C1A28334563CF01B68ACFEE4341F8FFF444 -15F8837B8EF4851F5EC759B0A4E7118B2CC55B561970D046059DD207EBB50FA44795705751FA -091D1FF3B33D0EAA85A332BBA1D7656823462615237A07E38C2FB6A04B4A1F91AD19EB59A53C -5FCF0435785D540BB10C3AC3CED2C834C5825562456154B2E2B11D6FCED281DD41793587E24A -77F83BD4C8E0D755BB1F52FEC614564FE3A87693AC7EE8CC94D559627288927576D240406E91 -5186085D3648ECE33489B0D662CAF1D369A3CD7820BDED5A71291B9AE6C4CB1869BB6C3965F0 -936DFD229066B39F8354F21E0BFDC3A5C104C5AA023C89EE6A27CD6EEBB6DB93AC939F311B29 -3EC8F0FC5E8B508CB67E4EAF9FE7F43FF60993FF319BA60F3DC4EAF989C3FD11476813C9EF22 -D2DBDB0172CEACC9B8BBEBBC49A0F2C73C5B8466A075AE233559944A5B2C70551EA144C3826C -366AF71DD8D2E099A1C1F9CA401BD6F6615829CE7683C22358059222F95A1AE76B27D1C2023A -CE05EA4C4A0AB20C505B86EAA0183E7B7D64B43EAF4ACBACB48478D85177026DDC3A578568B4 -D86F120091CEDE2D88BC4D586155C0F3DCE2A7C74AA0ABF9BDD48B5611B44F6EE62E7454416C -F238EE8B2C6F544554BB37DE639959BF5343FD41203FE68625A94C9EBEC251D229B3BE5AFDD1 -09AAEB56E5412F69AEA174C4A9E866AF141EE22C13567B53E2CD41BC2E1E6123CC8A99E147BD -1DC5601CD9BA877E43CF5AC674BFB6B2B5D14C75F6AF5FE1E9E277BD6FAB6B0F82C8DC88975D -113BFF9E81A0511418EDA0260757CDCD19417E71E702E41B65134CF8BBE41638CB29B32E4DDB -7FC8E27689BF8A455D9F00F60000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 - -cleartomark -{restore}if - - -%%EndFont -%%BeginFont: CMR8 -%!PS-AdobeFont-1.0: CMR8 003.002 -%%Title: CMR8 -%Version: 003.002 -%%CreationDate: Mon Jul 13 16:17:00 2009 -%%Creator: David M. Jones -%Copyright: Copyright (c) 1997, 2009 American Mathematical Society -%Copyright: (), with Reserved Font Name CMR8. -% This Font Software is licensed under the SIL Open Font License, Version 1.1. -% This license is in the accompanying file OFL.txt, and is also -% available with a FAQ at: http://scripts.sil.org/OFL. -%%EndComments - -FontDirectory/CMR8 known{/CMR8 findfont dup/UniqueID known{dup -/UniqueID get 5000791 eq exch/FontType get 1 eq and}{pop false}ifelse -{save true}{false}ifelse}{false}ifelse -11 dict begin -/FontType 1 def -/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def -/FontName /CMR8 def -/FontBBox {-36 -250 1070 750 }readonly def -/UniqueID 5000791 def -/PaintType 0 def -/FontInfo 9 dict dup begin - /version (003.002) readonly def - /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMR8.) readonly def - /FullName (CMR8) readonly def - /FamilyName (Computer Modern) readonly def - /Weight (Medium) readonly def - /ItalicAngle 0 def - /isFixedPitch false def - /UnderlinePosition -100 def - /UnderlineThickness 50 def -end readonly def -/Encoding 256 array - 0 1 255 { 1 index exch /.notdef put} for -dup 0 /Gamma put -dup 1 /Delta put -dup 2 /Theta put -dup 3 /Lambda put -dup 4 /Xi put -dup 5 /Pi put -dup 6 /Sigma put -dup 7 /Upsilon put -dup 8 /Phi put -dup 9 /Psi put -dup 10 /Omega put -dup 11 /ff put -dup 12 /fi put -dup 13 /fl put -dup 14 /ffi put -dup 15 /ffl put -dup 16 /dotlessi put -dup 17 /dotlessj put -dup 18 /grave put -dup 19 /acute put -dup 20 /caron put -dup 21 /breve put -dup 22 /macron put -dup 23 /ring put -dup 24 /cedilla put -dup 25 /germandbls put -dup 26 /ae put -dup 27 /oe put -dup 28 /oslash put -dup 29 /AE put -dup 30 /OE put -dup 31 /Oslash put -dup 32 /suppress put -dup 33 /exclam put -dup 34 /quotedblright put -dup 35 /numbersign put -dup 36 /dollar put -dup 37 /percent put -dup 38 /ampersand put -dup 39 /quoteright put -dup 40 /parenleft put -dup 41 /parenright put -dup 42 /asterisk put -dup 43 /plus put -dup 44 /comma put -dup 45 /hyphen put -dup 46 /period put -dup 47 /slash put -dup 48 /zero put -dup 49 /one put -dup 50 /two put -dup 51 /three put -dup 52 /four put -dup 53 /five put -dup 54 /six put -dup 55 /seven put -dup 56 /eight put -dup 57 /nine put -dup 58 /colon put -dup 59 /semicolon put -dup 60 /exclamdown put -dup 61 /equal put -dup 62 /questiondown put -dup 63 /question put -dup 64 /at put -dup 65 /A put -dup 66 /B put -dup 67 /C put -dup 68 /D put -dup 69 /E put -dup 70 /F put -dup 71 /G put -dup 72 /H put -dup 73 /I put -dup 74 /J put -dup 75 /K put -dup 76 /L put -dup 77 /M put -dup 78 /N put -dup 79 /O put -dup 80 /P put -dup 81 /Q put -dup 82 /R put -dup 83 /S put -dup 84 /T put -dup 85 /U put -dup 86 /V put -dup 87 /W put -dup 88 /X put -dup 89 /Y put -dup 90 /Z put -dup 91 /bracketleft put -dup 92 /quotedblleft put -dup 93 /bracketright put -dup 94 /circumflex put -dup 95 /dotaccent put -dup 96 /quoteleft put -dup 97 /a put -dup 98 /b put -dup 99 /c put -dup 100 /d put -dup 101 /e put -dup 102 /f put -dup 103 /g put -dup 104 /h put -dup 105 /i put -dup 106 /j put -dup 107 /k put -dup 108 /l put -dup 109 /m put -dup 110 /n put -dup 111 /o put -dup 112 /p put -dup 113 /q put -dup 114 /r put -dup 115 /s put -dup 116 /t put -dup 117 /u put -dup 118 /v put -dup 119 /w put -dup 120 /x put -dup 121 /y put -dup 122 /z put -dup 123 /endash put -dup 124 /emdash put -dup 125 /hungarumlaut put -dup 126 /tilde put -dup 127 /dieresis put -dup 128 /suppress put -dup 160 /space put -dup 161 /Gamma put -dup 162 /Delta put -dup 163 /Theta put -dup 164 /Lambda put -dup 165 /Xi put -dup 166 /Pi put -dup 167 /Sigma put -dup 168 /Upsilon put -dup 169 /Phi put -dup 170 /Psi put -dup 171 /sfthyphen put -dup 172 /nbspace put -dup 173 /Omega put -dup 174 /ff put -dup 175 /fi put -dup 176 /fl put -dup 177 /ffi put -dup 178 /ffl put -dup 179 /dotlessi put -dup 180 /dotlessj put -dup 181 /grave put -dup 182 /acute put -dup 183 /caron put -dup 184 /breve put -dup 185 /macron put -dup 186 /ring put -dup 187 /cedilla put -dup 188 /germandbls put -dup 189 /ae put -dup 190 /oe put -dup 191 /oslash put -dup 192 /AE put -dup 193 /OE put -dup 194 /Oslash put -dup 195 /suppress put -dup 196 /dieresis put -readonly def -currentdict end -currentfile eexec - -D9D66F633B846AB284BCF8B0411B772DE5CE3DD325E55798292D7BD972BD75FA0E079529AF9C -82DF72F64195C9C210DCE34528F540DA1FFD7BEBB9B40787BA9351BBFB7CFC5F9152D1E5BB0A -D8D016C6CFA4EB41B3C51D091C2D5440E67CFD717C56816B03B901BF4A25A07175380E50A213 -F877C44778B3C5AADBCC86D6E551E6AF364B0BFCAAD22D8D558C5C81A7D425A1629DD5182206 -742D1D082A12F0780FD4F5F6D3129FCFFF1F4A912B0A7DEC8D33A57B5AE0328EF9D57ADDAC54 -3273C01924195A181D03F5054A93B71E5065F8D92FE23794D2DB9928A7C95D3A6E9B8E92F84C -A0AA44461D2F4FA0F8B81C6F5B7BE98C9712BE166610465CF689DFAF27C875C029C0116DE61C -21DA0092D029E7DBEDFDDEE3D67E6936623AB53FA2AF18BEDDD7AC19A19CADB6ED6CA7A26E60 -44BE414FFF59C0B98D5819A6B881F9AB7AD0D03BDD5CD309C67811D5CF0B93F6FDC9AE64F74E -D4E81F2E18D880BD842ADAFD0BDF06300201C6946087FC0B999447BC370200BFB8CA420B668B -32EBC2426DB1546A7164CF55B332FE9D239B65F532B69EF9F4F93828A44C8F5C526126F8B7A3 -69114CA68D4F9849A7D21122CF1A85BF2F6047142AC84178B421F09819F155DBBAF5821B6A21 -4F31C7775C1AF2CFD61A960F8D50D2EFB201795F52C84CA4D077D86E1A69C87B1354B22A1BE5 -E7DEFBFCDF460FC41657ADB04025A0FE112623C66027B86F93B7DB9B94CB079804A49533A5A4 -B35022C6D6389E95C3D3DE8AF855F6E8874735680A9EC423D487695B1571757E350157240A28 -3FD75849C500B910578367B5C392C49941657605E3736A31B5B2E913382DEC8592DE6B2D95F9 -FEA9FE1304C34554C3514FE2981ECEBC3BFBA6ECCF62128EE4632CE21AAEEE4E303151B15087 -33EE09E17BCAEBCB86A12B1EE67D28C1B9DD748CB5C8B20D8339482EA90D28DEA8B07D8691C9 -42CCCA7DE8EB76DBB07932939CCB52388F6CC9888F5EBFF2A23FC64045CA79A58526CE2ADC6A -5F8CB64662A16AED292F04F6F8C287BD3F591EC920CFD9A2B1BE576E0E2102225B89F107D048 -1A4AE12832F2E1EBCCE81952220FB7150144147C10C992EE68F8B5E2048434D9770C8484F7FC -0AD6F092AF6D6D51F585D9BE90FB7C39D6279CB291F94D0DB5766A0A7DC30FDDD4E082CC5412 -A5AA114432A2E1B01665C7A4958D93F45FDB13759C292EB7EA231AF9672DF9DFD47E2151B56E -443AA9BF90ECA82DF314E2C9F4657B32EBEFE8DE740C7368C5E7328AAE90D67CD530C3CA76D0 -15E9616990BC1F5A08FB1D83CC88F796997000B0D80D7EFEE1CBB25C89579613459A119B9D52 -CE23136268636E1B632E1A65B051598AC60EB6FA54F85940A8728AED01FCCD992A1AB06CD875 -FAE65716ABC4ADBC417099C07DBDF9E773926D1C3F000041DE55B6BE58140E82C101BF4F7E47 -D5CE20C35F3ECF34C7299CFF5CC2200EEA093F26CA0D558FB65089D4D92AD1E18E82EE012520 -E0C20CDD186FB4C82E6121A5E16B054BA59D6BC25F4D7EE0683CE95781EAB0E2962325091A26 -A8E2994970BB6C8AF4144EF310E664CD44C6020138CDCDF4C6F47BE2A9A616A8FCF68BCC1991 -87DBC39DAD1BEB9EAC5C9F2C826EF23C2ED70374F8D9A7C6A7386FD5522D9959B4BF49D54B6F -E5F5E6836885CF1F28FF2743CA6F8CE48EF1B3E5B8EDC5E70AC360ADBAE7E77675650C8ED276 -15D621974896C9DE191597216191D4000183F40F7ED9A0A4C64E08306B8C200BD6D761D529CC -79E492E5F3795452DA24D16FA5D17CF16A7A51B24F614D3834F6F8C5F53949ED0409F1ADEC4C -3107EAF3352E617043628207D8451439694C7DFD623E4BAEC5E81A3CDF6950AF3015885EAB4E -A046F10467E40F07EA465B9F3C56AE56011EECEBC9EF4DB855BFC9662BEA42A5438B4B5D7136 -B5DDA0B04813A7951803BAB410432255329049669EF26D3AA252C22CE5AB89CC6EC7CC4C20E0 -09AF271A02A95B145B8B241AFF60C625EE42F6BA738EFF38C844193577F7B83BB5EE4BC2BA38 -7CD66D2F056174B2FF7A0C4501930BCD37E625E89C014FB56B84D081C8A0E6F110870B0C07E5 -DBC86F47E3505ABAB0FF9BFD44DE691D16772C0614E3A90372737580211532B43F3265D13E7D -132FBF9BEEEFE78B34DAFA344288F1782EB6F4B8A25CA30E1204E299A5A61A24F9D05ECDABAC -C7C75C02B9F08BEEE40E793FA7A56BD403B3087081DCF79E48E310B445F56DEA15F53A1D96E7 -1E76DD10C0B9F8A1D670B4D16E2480B8C2AA53D144E9D3736DA7F8A24FC4A7565E49B5B8EFAA -E5595CABB621BE4DCBF7747554091C36825873E93D59709C06B8E00096508C9A1C230FF44984 -2258728998E78EFE23BA9A142C3947D19DF95E8F73746978893CA61ABA76AA3AACA86CFFF881 -45C9FCAC6AD987730BB9FD68C6091892A8C0AAD57627C041C86F0E36423D5D22642A0AE5759B -66A5C8CED11459B2CE770E5EBB91086FBD6638AF202EC56728E6F029850700AE9821536517C8 -C9839DF512668DCDFCB8B95E4ECE49154982C7771196E4EACF47FB8D6EEF22E3D3493D0F4199 -385A4EF6348F66ECA63849D6811388BC73231B34BC066210CBA276FF94D496CE6FD592D4A4B2 -039A9E12C9FA019189675DAB1488E68957C65D148736809A1C93525531EDFD61804C3F8216CE -17B5E434651CCE19ED6609FA22C00F4378FCE09F0996625AAB4FCFF91DAAC3B6085610A15A21 -46462B9435A006ED1D0861CA6C9FDE60854678DC004D06886CA09EAEC471A86E0E63E7588C5E -3897B7E2907AC9E167543900F62C6B5A546D8130B498D603A1F5DBAD502A09FD1AF6261E0404 -4B4AA6D860CF03D81A1E9E243851322C2BC3C1F559C2CAB64107E067F91F08C2BBF29C99FFEF -56EAEE7A84C9A87A079711679092AE5CFCD3E1E4DCDB01A47A5E304C21BE266B32B27E4D3349 -ED8E8CC12A1E56F4AD1DFA791A377A8B117D6E27E65C0F3EAD62F36463E0D10CFF504C6285A2 -9B8A550349FDBE6330C5B3AFA3BE150E626ECABB338C4F92322F17A8196DBC79C9EEFB2F5D27 -F92A435E4E8ADC77CA5B55B8B9DE8AB3FAB909B812D7C643D39EFA5BDB3B15F0C7EAF45ED171 -26978DB5B903CCBA57E655E12DDE87A9525A0D02627D1CC78F23C13A20A46C52BFA0ABDB0236 -295C06B7B498062F5E0756DA83607E36E3FC7053D230A22CB0BB4694DE84D2E6E1F7492E0F27 -BECFF591A58473D483170321C410ACEB27DD697B6519499425F8734F4E812BA9BBE38B5DE6CB -30948DF56D33E5F1334F4FD49180DADBC06E77A7E1E682123D73A981FBF94EA9C4D1B0ADCA47 -2BC60BFD30A8E064B5A3BD435088E8ED336E3A0A5F2970ACCF03344FAD0192C732F67C8634C6 -A65EB9FBC67123389A38DF2AD64101476D170DB854A2209E190AA02B077D403992740C65E523 -16BE5F6C12B8B482BDD1DEC7C5DA9F5F9F9994DDECBD86DF40C627AB9B98AD3A562B8850C6B7 -FA20EF94D26D00A71DD1E5A3B260FB1F8430C2D208443D09F92C478F3393187212A3E98A5D13 -D752E579946D4350AC66BC49BF8CBDBC38DFDA5F272145E8221F2995633F6734681DC865A8A3 -4DD1E8E7D5C6EECD65DE13491286C535678D18D51ACEB40291AB2F4A9A9FA2778F821171CD2F -CEEA1141CB400B5522B33AF6FE8A6B283F26BE5948431DDA3E74A634672C12D3E83993D6D952 -7E524AD5E91EF6BC631D7516969EB245B2602FCCDF6120D633B9B01E0B89B3A1D6ED3B62A133 -547DA125F7773B34D679D8428B77470F68D0FE0238BD86187683C406E6341E11BE4B6A5439CF -DF76820DB1AC1452754273537134865205E35869D96CF9EA95850E0A35D67B99BD68B311C7A5 -D18EF07E48B36EA16DD8B9929930326DC5A43BCDA30FDFFCDD32996D341F11872030A661AA8A -CCF3F7AAAD3B311B85437BBF55D7F6DEAD328167504E850C2B7DD76CEAEF83F5EB7DB8B60CF4 -B1871FEEF1C4338E0CCE98CCA232347F77D0E3776342F17E9C5E47FB436833114E7269F30A1F -54ACF9BD8C2E602290C23E766E02BA2F206E155F2A881185CA0D5ED133F2871A6D20F4A2ACD4 -123CC042202E64C17B465627588DC569D88B0A99ECB34F4383C5EDCD395ED52D74AB457BE98D -DF7B513D0318FB7F3940340809B3365D938586516F762E65DBF6D52BB59B3381325D456F08AB -C702735D6A5E712AE82C6EBCBC143E169560ECF0EB4D01D1DBF2EC29445FB73E8FFB4282F46B -9C0CF3CE86721DFC759A98C19077372FDE74CFB4A459A76E4BA34F4F8C494C79ADC99E9FCF4A -A48A182EC17DF6B71C47E7E2FB008234BA6A14B9A9E6B6099A1ADA4FEA2027ACA4690D613ED0 -8ECA7888C95F96605F2E5CF9048182ED19E3FC4B5450275C664A276DA4929326D7E951303C79 -4342B7EC93B8DC34FF1274D26E1FDC9CFE0888E519F23BE514A5B0FBA6648E81C4C64BEA773F -2E58E760DC5FCF25A520C73F752D5A8AC2EA30869CAA95735DEA0E346E384F060F7E2A948052 -597924037D5C1429BF8D636696CE14DC9CB2B16E5E304605ADF8C428ADEB41433DA0D305CEBF -E8E86AA908D45517746F40CC638326E037598777474519F7B41900CCFD234E21F403D3750016 -362DB711FBBC34F9DE41643BC558A6CC025B8E790C89D07D9AB53FAC43E23BC3730D7524A146 -DACD950EDDC27714F6D8EDB8FE6BB76906075EF4F73DE6DBFC5351F0EB028E0EBDF214F70EE6 -5F13C5E02E24E2D0A0FEDE9B48F2AFCCF214FA14208863AB8481215FFDA3E0A892491CDA7B40 -E1C2F726A585F7D73EC4408C1CC7BF3B693B1B4E31E08D1C862E47B9287BF7CC8F7C0B029EBC -D2E0CC62ADD7445AF53245794CD8B442E0B76B343FC998CB02B2A5A4FCB6715BE2C2C81ED73B -3021E2F025A32687CE285648248F65360D322E021D88B383891362854D7C688193A328141E1B -7AD514A9BB2CB9F7AFC207FADB9D71A4F21D2C7EDCF5BF996E6BB492D4C4BEEC18950F543B81 -F4D3A02F86C4670EE4B285BBB96C9FCF65ED69B49F09725BCAE59BD16185C7032B89C7F56354 -F2DA61BB9283AC71411BB64E373E960410C0A401CAAF28475412FF970BE5BCD12E61D6036961 -680E3BBA6D93232301BA52A8A5237B36B9E94603EC03894BB27C7AB10EB1D5BB2CE8AF7552C0 -9C578CEC4F2CBBAD648275D4646A3586D756F93511F6713232CF877D765674DF55CC9EE31045 -C1B52819EC73F21E3D0B5C0731F703E7FC568C5CBD5A6F613885A0ECCDD86C26CA084C06CE30 -B19B0B4F1DF2515728DB42CD07260B77E89D05621565AF433D0479F2628B55A1BBF3B8ECDAEB -6DBB69F77D02001BA416605A985FA0B994BA580DA07FC833D42CF5D644D75F7EA01F6A8DC82B -9C62CE7EBFB488E3EABD74E40E6F683B58CFC2BEB2ECF1B83BC61957B78718569CE394D79407 -F600AE0EE60D817F9D58A232AA5E92AE164A62ECDA4435B9B663CACEBFED6E8E9FC5D41D3245 -9E775F436AD97A286F6E920A31838DEADECD89B3720C0BF0D14FB719C1AD11AE480C874A4964 -00B2DDFFD9C4EF067873070458DDB14CF882E5800B155572762EFE906AA878210B88CA8FFEEE -45F3BE4D6B004E764616FF7FF6C3399C940B286D2520BCE94CB668A5A95A16D23EB997508733 -8D5E11EC82DBF7D653DCF40493EEBE0C20B03151CF509C2843BD1BBCB3B9CED581899BF8DCB2 -3A9A6F05A9CC85C5BB982E6B071904F587B885B78EB4A3A68E5FAE02ED0CF492DA98F74412B2 -AD7CEFDA13E0D31B2C3283A54E12CF593C9A1D1C99CDB6B1C46BE5E3804A1472D4EF25C557B7 -0A8F098C7C614EA6C8A31B706E84FDC4D198D8591B1063401D6DBA629B78A82149E056CB30E3 -0EAE48DCE53CE0BC8E2D0505143B75C0D680BABA4243EE1C7DC8C2A86A9C2839615111E57C54 -516F77C97CE00368E5F983D2EAAB9E107146563A660129D92A8884C44DB57CDA48EDC76D3F8B -66A5FA945853E63E079824FEC3A095B7D6B06FCBE80B01C0B3FD32950EA66DB96306ED7FB5D1 -F3A54BDEF0239968CE1AE69798CA6B9655FF728C1090EE0AAFAB68C2F172E3B0D14B5B8412D5 -FD84306346342971540856B6E1209CC306E9A493179122CA4A79047F5C93CA60B10762D3B625 -A852A62AFFEB5FAA9A219D689702762597BC7281A43D1C2FE0B5FE8AD94BFF998DDF7A092696 -D7C251A0A7FB1050E1E748B364A95003F0A75161AFD9CA196286481717B5A835FDEBEEB69BED -360A883274477B2AA58D17ABBB4709D854FD9B4EC7AC5D6487023AD65BFDD40F064E3D93F356 -1D1D3123CAB26E79BB15329CC1305E12ED2F0D9CE2EDE8811DE03A199E407B0049FFDBA1E730 -837155CE1A3501DD4FD69DC103463715770254EE7B233BFAAF27AD311562DAE7718AD54EBC8E -0D1C7BF468908CB1256F2A1A7739E238E51D9A370FE5CC112437AE09918D9F416082543830B9 -C5D7E5AB2C62BA7D138106795928F7AD163683B09DD0CFC551AA1A06D546192A97EC91DC0774 -990D8A7BED8559A491A9532B88298AE923B887A630EACC71A0F2E618FE41B72725BB2E35623B -08C8A4E17C06E156667C4B3F261CE2E692E351C838CB13A5EC9011B07906A701EE646ED9A753 -790CEE36AC471E6B138AFC7203D994A0D7F39093CAFBF4956F5A33808DD61D88AAC92EDD5692 -EB94A0B63D666FBDDD01C4483F51C5CBCC5AD9DBE81FF88318609465207A1FDC6B9D27C9774D -4311D3C12DD81073C1BF8DCB4A4B2D7AC91C8B17B1A96DAEE39C414505B3E726CB14067680EB -F48DFD46C3D7E7FBCF227EC5A99CC62A6E76267E077B0E2168EA13C3468405678DFD641DBDAC -A7538CB4E9964A4BFE1DB5E94AB5201670245707B3E06BF29AF27161541275A867E2E7F2365D -CC02DD5DE97AF36E23DA213967176D3926756400692950448322BE8B7593DA048F227EED0C87 -75553F9CC2292A4C32792DC717605978935816DEA1ED2BA09A0B94946E91D048DB600FCFC72D -501FC39D503B605C74C38B960FBBA663C32CF41639227C7C77FF06B99117867CCFDBD3EC1B11 -DC8E16838DD140AC1A108CA02AD8CFE0DE5635057B116A07AD57CA9009C79814EA50E4A27446 -2485D584B48F265831869106D6216CF2ECB24CCC522CD3049F112DDE35EC93CD440B9A8CC755 -427ED1E44515AF9021E68124B25A79139A08EDB098F29BA49B7E48C0135BD28CA93F9F0E46F7 -45BB51BA3BF312660B610069A6F87E686D691FE242611E7770DD6D9BCA64A4DD5510BBFF40C9 -D25F0ACF7E32B7A5369EB5406E883F18CF33D3F61C16EDAA0111C20A98B7A0B460E5842E2D14 -B13E22EA5646CB8A22C02996325874FB5B75D22A8E0030714D1DBB06E9196499A3E974935507 -66EC272AF1F2A444B60B733C56BE16F6B6C9643F87E06BA715BD0491767216C9F2AF7DD40D99 -F183E693C06BCEB46D19EF62B57E87EDD9F0F3AE1332EFD4F0ECCAB5EF011128D4C936F9B1A5 -EC86093346B0F36284696BA8566DBC38A01733D1E0F8FAF1D00D75D91126E52BAAFACB0B115D -A285F9327BB55030A9E54C951C0E44FD822EFC378A9101863803EC0285DC9FBCDFEBBA3A8325 -1B62F69FDD7A288950C665FFBBE5345905B1518EC4CF42C0827C1FE316B2E6466915DAAAB361 -3491BAE117F789B87D8AC090227D4D0C7FB85E6AF4F104DF9124C8BC339228B21EF858DC7CA3 -7109C76B54A47756575A14F6B2C51CFD5A197480C12060C14662C1BB860FA33ED251E974BDD7 -97A0EECBC12D53D7D433B0D67B322976FEBFC640F00A1B7344D8BC98C8078ACAD584BB951113 -1DB26F940D969048B94CD5AE6D71E83C1FECD28AF6B75062193ACD58CA0473A86196FF4FD889 -DDDA5C46AED383AC44F5991DBA10E0D1DF905EDF36EC99279BF35811D3E177B8DB3E66C328E3 -774A65EB9D4782B03DC7D623831A924C631955A56AD83B17114EC5A48805F795DD3CD508B405 -46DBB35E6EFC742FFBA113F9A6257EABB18E275EB0CF680A7A0E5135ED52210EB2073CEB06E4 -3E82878404BE7530ED3C037A517E7F4D92C7AB7A396836E213BCD4A2FC290A375C33FE57FEB5 -06E667F514AD83472954AD3D5577CEFE93AABE6BC41EC2F1248768933A1BBB737617ABE725CA -314B87390654D85541B303E4EA04962547A9A4B9646E8EB39F2E33A68F22A0B56AA52229BD51 -1B98158FE300FD5719B659E5B8A689FF7104DEEFC547DF136F67951EC6044F45C942E7C42F91 -E9C831917B228490F78A523B69E3EA069D345103CB03226F45F17297F94CBB55FCA7617F5A2C -9F1F136BA551EFEA6F0377AAAD9FEC698A54419B7627C6A591AAF6BEBA128125C9B2477AB747 -1781853466D6FAB80BF04AFC7327A60414AF07E3BDB58D2B00ED03C6BB8AA8DEF345519B255B -1D9FDDACCAD376725BFF2763DCC37BBC4C89ECDA3A07157E0613C9B7364E6597359604AA4371 -B15955F92739BDEE2639DF941B6149FF9947EB1707C89BE13A47102186CDF6A332CA3B1FF48E -5AA16B0AE899D8480AD0E429760DB81F141C48808B4B849A687903AF43FE7180661EF16BB165 -44595C7AE9BFCD7613DDFB56DA2249C6DBD45D17D48B22FD619F8AAEF9C34244B0DABF12507F -E64A14F3E38A9F907C93BB632D0CDD0CB3BDC0B3A663581AB6D39C9E08785821A6638E2116BA -7DBA1969DC5F283F9C3D1E26BE5DB8A5BE44E0024617F8258589761269DE4E8998504211E155 -C1B8F6F0F901537ABE3F1756EAEEE1B9229A62EF76D44288D07837BDA52CC84552FD695D351C -EE317D040AC69CC5EBF31AE4BADFF86F3A90D288596E67963AF1AE572D6EDB93D2F363099489 -CD45C2FDAE11962C99B555FC361119B81C6191E2BC7D946247EA6562C59C5C28F8D9F6102F8D -F6673F50CE92D99B4FB944A1259E9237F19FF33BF8B6465B703F207B58EC5F8A1CF540D2789E -12B343C9685B8519BD24B691FB11A2049168FC153E5941561360B041F3507B7AC38E43E34354 -F3A08BC532CE3BA758C84BB0B5C5E96CEAA8955D556A67A7BCAD4A7590F7C5669704F57E9358 -6954FDE2264EC41C5621BF0915B6968AEEDE6E2A17FCC596180304F8804BD2E737FC1BA4515C -4A49729103542B017B7448DD7D4AC53DF2D3663813637C306D24A3B77420EDA75E64BD9C05EE -5AC3644DA0B204FEE8FB03FCBBF4D095828E9E7B7995AAB88B21F0AF120C36547F232517ECD3 -DCBCB6EA7340EE52040F724A0B269470CDDB8E2FA8AE4E1931FC18D01490BCB2B463F9810115 -7EDD626F2E96A05C9E75231512D67A99BA7D40DB4686CF2FDFCDA3F6D769F487C9CCA3048CBD -754B86091679C7D9D121AECE63B0B3EA0878BECA4DDAA23343A0010185C9A1AA1A0AEC2A6923 -7BFEE9AB1138C80FEDD7BF245FFE0E59567E566243C5B7D1978A4FB61D562F223CD8DECFDC66 -050DC0751260B7EC90279C9717C139AAFFCD913E39F2AF608FF6BA3351956096B67EB52A72DE -2B2C9D1B1B0FED7227D6635E52D48F65F8114DC88F04B4599DFD8EEB559F08DD3D31E3C505A6 -75AF2D09BC1B8F33E784F529336C24EF3CF999169A8BD3680C5D108212F1D782FBCB0699D36D -45FC0D64D271C8CA7A7183F2E4FD3DA9B8131633172E5164AAF6AF858EED14EE05991F1F0ACD -06539B341427234A0AD197AA318C4FA48771D1404671122F84F77CBC8FE4500B14B4319C93ED -381E3DCAB677AD30DD4C6B65AD6B1ACE780C89885A458D4EBEDC1D7D9AC6EDB4F294FE50828F -2AD17947F48A16E36601C804F78A04495A4ADBF6F75480D99032C1F1944B2D61C2B3866BDEA1 -11468F89C4A82FEFFA50ECDCC637FF3DBA28566FEF0503F7820D7DC6FA3545CFA71DA1F67469 -D79A667066A9429199BEFEDD8932243B33AF94604B37C4CE342B5A5F5D4567198F40DD880024 -63A6E3CB275DFBE30069299E98E5FB1277CBD417F3FDAE91D19557D651886EC83777DCF7DE04 -76006E4CD623D0FD49E1E1097E7E5F3AC2A00A16103AB85106DF2D3031EB69E50832865576AC -6872A1B6D1CB614133CDECA20431ADE51166BC337B08D5BF5C57077F9DE43C10C75C950B1089 -5B08CBF00976C7916CD05539980E7E7DB78EA0605CDCB2B448127E69F90C5E306924BB3864EB -4E2110B6689649B3748ED3001D4A5FF68A0492BE9FE2C5D30A926E53B0E8583EFE8B59AD5B5D -FD8CE5A488EA6D10417DE59A68A5E5A0E1CA7E2643ED867238D61D75F043C8CE6019092827B4 -8CD4B8EAC67CD145CA338C971E07F56F5C41A9B2A6AF84AA6CD17A658A43F39BB0B3228C8761 -090ACB2F720FACDFBD49A6E607AFEDA5B17AF3CE5C0562D7DC31E2AADEFF4758A02CB5949234 -F75AF107A0B08186EC286D7BFE0C5A48C23F39D11F9039073EB5F71E953F6E07714F17085206 -8690C2C4A5BAEAA18954DBBB044D2F0679CD653D60C445CF1AA041AB6F5AAD6C72F9CE3CA4C1 -4798320D3553BBF4500F68C2DC2A947157671E108209540C93D9DBA21294CCAD2207FD865F9D -0AC73865D838DDA483C998A005868E6E2932B498FAE614703514C46C46C516702989C5D3BAB5 -A4EEFB2F2C392D780D3DD9476D83600CFF68B54D72735996E5582D4FCF4E00044FFAAC8CD8CD -B394023D671B7A9E9018E3DC32779F5EF14D97207CE75365143420060DE69D60B4A26FAA8D68 -739C66DD9C7BA4407AE24734F73316B670F709947E40440C8C739213E5475684D29F3DEBAE87 -2A54EDD999951E7CD5E96DE582B767E11DE90E0611169BD93345307F2BD2140499D776BBF380 -C505E7A950A6010F6A12A74C5289533823A005630CB35E541E79966DBECFF631182940C1899F -4823D8DA9BDA0A7A2081F3648C225C6D36888914C6375DD2201B40AEA24316340E26B244234D -131E2D32D4637FBEA7D35F771A51EDE1FA61ECA3E100FFD079516513DAB3710CC23C1BCA889C -2EC521598C33C96337208AABE5124C53DE28E8FEFBEBC586BCB872E6AB572E9BA37A6ADD73D4 -8F3DEB3349A58C200F57937F872BB1DB4AE0FC2626D2B3B163F3D29EDBF92A1CDB16EC349B5C -93D0F0D5B42232AA4325BEACE735FD49DDA348A18A65403A6C38C5D7A12FEE686CAEA4B339A7 -0B635ABF708F5FAAF00355A24C11DAA83936D596E0481FED2639969271481B0DDFD4DB485AEB -F6C941476D0FFC6A10DD01D0337CBA34A952690866459DEF254A66477BCCB78D54DBB6FB4F30 -E8541F51A9D864615F2AEA3C234FFD46C2F29AA54739FBFCF08F3C62521CFD44A5F3578CC149 -22556E6DA62D5D7AAAC1A4FA4B8D46360EA5AE0FE221B53AD195363FA6B1CE8B03A6B4694DD5 -4B015EC5BFA29D8A7EB229A2E64B8D62AD9B7921775DE49BC8DEC381B4082D8F7F5B0BEDA0D9 -DADA29CD6172AE9EE98D6EA568891A549B612C647F59EFDC5A10FA2BD9B80DFF4A81B17C5E2C -444A4EBAF4206DD72C384EC24B5E76361D37C7CC4FCA0C9187A071DE156971E67E459996FF0D -1A41CA576F042E032C6BF0D831A8E766FA534F3CB6E6CFBBEB066D63B209BC71A26785684F48 -88D03106614D83D21C0466679053D3A80C8B2B80D580C264797E4802B6DBBC198365BDA52579 -BAB2AFCBF29889FC4DE6E7FC2887C40EB161A337CC3F8477C571FE2A88FF166136A749F00397 -7F01BBC9FB183D9D3C5BCCDA79339141BF387F9447255B1870CF4D77E21EE78FADF9ACCDCC84 -F9BD65829B64AED8454F2E3DAECB221117F375798FBF065CAE99051DBD89F6836CC9FDB88C51 -B009B612B6A8955CFDBDC74B420CFD15DB2FA22E6422C344AFDC8000D78CB49EAE99B5DE22F6 -AE9A0295E778AEC3EFD7B77E2848F3AC0D25191EF9687654D9489C4B80FA3A17B6AF0B868BCD -46361AABD21A90280C0817DB3E33D2DDDDBD23CCCB15A5B5E2C6F10C863C79268D8D1C498DDD -5CB8A935A5074FF0A97A22AAFA72269F973CBBCF3B7280CA29FD5033F64943FD8F33F1347EC6 -7A311E2306CA80C14872AEEB12081583BEFFFC8B06997F4D65DDA3E72B4C3FFF97794144F034 -908F4EB026721B9B1034BBD84EB1792E254707A77FCE66DBC8818C51BA370E9D8A19D3DAE0F1 -9CC732E662325F54C7BA6DEC8CC440AEBF7EF4251EB14494663890689B79D751398B24578646 -4D8F7BA021AB1463D9C34F82DFC11AC570A8261824B5CAA30A21CA1A64D978096F70D45FD866 -F2125D0687EB85962500BFD84E0EA519037C8E36E5B29F2DFE7A9A0DEA7C5EE64EC3C2D49DCA -B026B9BFC3EECF64F263A584DCEEC50B25EF12E0160586D7DDEB78B7609C2F23B14CA695F82A -A520B473F8519718983A42C3C2614BE17244FE2627A829FDEC6E6816EF9D92B3643D933BFD61 -829A727E4696A91A724B0AEA8B66A407011F33D3FFDAAE4D9111E17782B3202DDF4AB9437C57 -B2C859FECC90F6D788E69FCA4FFACBF5199ED3A563D70C1CE4768646849B0C4B472AF45E6978 -A4D09726762C1F81619B3B3709F27963A40778DC07841E1BF1668CA37769330BBAA742751827 -D10FB86531D0798BBA58D7C36FCB524803B85DA7ABE2D37739B8A348D528CB62FE9D46B2F6AE -675B16485DC00120D18140BD7CE1A86C9B115F97780E32D7C7B075092686348F82252051712C -27026BB990D94AF5AD3D4B2B3A32A83768BDF86111519C9F093C00BFC69B5D805742D79AC7B8 -A185571636A3B225FE6A8E7009401086429183C2EB879CACF4E084F83B0A88051C4B5F3589B3 -6F83F74C02A7303D720A442E18CEC20F07DFA803CD70AF94E54E8B06F54AD1CB72894337D2D6 -E2ACF60459605588CB136BCDEEEED232DBFF1C9B3CCA3AE3F31CB242941ED261B34357026D81 -0892493F2BA7AE1241B5C998578B6B35B1B3D28E4CC535AB3855F3610F5757F4E6A2728B9011 -C943FBBF86131687325264224AA48DF82EA7D120FAFAF16225D756A4C2F868A85AD174729594 -10DEBE2E09B556D4668B2CB1A81736DD3A2716DE0F3D8A70680CDC800DD011FAC3B3A403AC48 -80131B79C291008EBF32638664E681F61B1904E692092135C577147F5D4F37D1BAF9927B64B0 -CB94C9800830A85DF9E226C402C5F67B214A2526B07CAEBA118ED3C9D450B9510B9113CA9AAA -443A7E22810C2C6E66A4DE5B7713EB5DA73898B77C0C896423B3E99D41EA83E816F7F08D22DB -C752BE2CDD01A6B26229FB84CDC382444D2240148BA199DE658CE6105BEBA2BFC70E6B3EB186 -77EE10326210659DD0A1FF417C5774CB976EF49AB4B5E5D1BEBF667C3B9C27903C42213B4233 -C6E8FF8AAF340737FA81A4AC5ADFA8283832210BAE76BDF30E77C919E6FE735F0AEDDC5D5C0A -AAC37B0FE092DA76D20C5D2725BA23D0FB3D61210E3359BEA4601B19B7A2E2AE526CF819B45E -815C800A9418FB7694B38E43D53772ABB94974997BE59052EF8BEF3DB1BC31685652CA5D2B65 -04729D09AE2AA878964CF2C405826BC87AF1D9B09A0D08C47F720A175C1CC3204CA9C29F54BC -8C711FE40CAC75B5925526BEEFF6984620CC18394DC6D3FE7D5951B6619AD55F6BDC80BF6B9E -1A760630826ED9DFE2B7F5619F974947158E6A8EA0EA2871BD0D4B748FEF49058CD67C41F99E -C7A16863B9A550966C0E9A5A1B0177D33B82E795D148E0D3E543A7D165725CFA442445470C3F -867C843DCBD1AEDCA20731EBC1AB1D2F056D8987B561B995268CDFAE226A36D4046BB70B411E -E46E679F57A13D955ABF2B03AA5BD06D5C7207BE31D85099076B548BCF50DAAC8979E57ADC20 -57941D64A4C71146E638DF829F7030278382B268F7E8413A7FB901631CC573448EE5F4514520 -B5FD129B857D6DC60FF7F861296D226AA904B5488A70FA517E9C14C5FC2CECC663966CF5E3C0 -E57B9463B19060CB1F91B38F2A1335459D61E8EF50DF7F7D0A6EC715095E3019668E3591B1F9 -55AC54A74357DEFE2F06A99F4F24F4B8EBFFD3DE0828F92F55CB84CE07FDDDFF136BB1649937 -A123FBD724B5620AC5E371707F208F0C7BCD8AD715DFDC1AEC94C34417FAF42F79E7F0BA12D1 -4EEADBE8C27054E995C8305FF8016FCA946C7C1E38E26D69DF5E7754C031862870F197281669 -C2CAFB2242692F95AFDDC81FFBECF804AF3A01C480A94142F94FA6A66AC0D6A3C77DDBC75713 -9A5B6A8A678B0CF1F9262E19FEB5BB9F5D8A296479BC88A3B1275B4928DED934191F9A8E6B91 -04771D3F9A54DCF8943135ABAB6ACD32F751E01DEA992EC29C3E1CEA3183CFF87A40BD061819 -CA03EBE2F1EEE524DF55649FC435B3798BD4D86032AB20CC4ABD996181D64FF35829B3BBA14C -432114FFEF6F341AFF08DD1C6296ACF1559D2253967E8DEA8BD639403B400B2AD3B52F5054D1 -6BB1622C06B8CA3B2A63C56ED66085280FAE830176A2CAE70D78BB7413DB48646F60596586EE -27F87739382EB296E6C8DEA922067816F32403911369DF6DE176F1E453E5E1696ED48BF47B07 -61AA2F74CEBAD0BD770CF03AF1C73531619C2B14217046B2F6F6604CBAC699CD4F80F1F67AC6 -1932B339BCF415720CF1B2B2CC6DF6D4275103ED2D50DFA7A480BFA90C5B560C52B78D33266D -534927A3F0D342E395BA249C495AC0EBE3F3391377A79F0E00FB2AE8C70ABDB1692F14E8B550 -D6DC043C939DF229020B6F716820FFDE6C8CBEC9D72AAF7BFC20B637B2AE6B438AAA89BDF741 -B59A06C6F49B8CD419624FFBF91E0D1DC85997E69948A872FC8528926DC0D6312B485E330EB1 -9DBF3CDFBB63F6A04530577E606CF694143B3009136CC91A8E90E7EF076AA870EB0A96E19966 -FA328383F335EA8220A754F497D1C2937B73D9555E06D46D8D181B93CD9CAFE96EEA6C6CE776 -4C293A420C3FA1B3BBBA9B8CA0C0EE78882B13FFFF7A3A51B2707609BAEADDF101FE9B7B663D -2426FC8E0259308728215680252D2AB76B35BB334DA2A39D0EA9C2735D22E7AFF98A1FC94AC5 -8C177AB5568F81AD20AF1BB3295CAA73182ECFCCBB534A7FE9442060EA6AF5225E216B25E7BB -4567C7511F4318F9F8CCF1B36FD9D2B913165B63D195289CAE712FCC32328171507A96906E5A -C8493DBB1222C98A0B6D4AA08A3589ECD45AD4B28DADECAEE0C0B79A558E2ED3BD86B48CAED2 -CEDCD3807BBC4620224A3E2193C50248799CBDFDC81E53E46A36C6117BBF1B1367939AF0BFF6 -93A5D1673159555E5C94C815C4B7391519265EC47A504E3A3E476D5AFA72FAA8156EECF1F987 -AA1362CDAB5B9FCA2AA363AABAE6D3BAB607BC24A1EEB0EBE6D3BEE4C9B102465B7215A2F994 -EED02C77F3814FCCC38EC364139419373923D51BF9C32F7629DE3049E6101F2B6FA06C0F36A3 -C89F4475FFB68249E96F0FA707DB50E1C529AA6E5830C68C62874221746152264A5251D00A17 -5342A21C815E6270D7615F15AD3E8D722D459F6295E9AEE52E060BF46A94480E72429CCCDFA9 -10338BAB5A840ECDAE3B9DC27D8A9F47FF50DFCB23A066F2D461556FBA0FE0452219419A09BA -965FD0DACDC4EF9D3E88946475DE8C622DA369CB5E2A1130101708CC43BC09F9851C6F95A603 -99BF9404E070863689094E58E00E936E53C105A38A51A692DCC9646F393724215F53EF6393E7 -68E3C91FB6C6D3793A21DD85B9E488568891D2902C369A1F0246189082655CACA8D0609D719E -E5A78364EC24A057E9BC313CCB0C7AAB5FF3583BDF7B45C0BCF28C46CAC005F990A6A5B9689C -8D4031577B417C2936A97D3479436CEF24B7DC4CA7996FBD9E12E94862059CADCE2044FAD332 -DBD372E434163243BFE031E8F501E028257A496B3DDC1E840F83C9C2AA343E2AD5ECCC4D300D -993D4B738C597248D5CDFD45735B1DCB6495CFC3C70BF7F6D44BA783C4EFCECDDECA077263C4 -F1E5DBF31F8412705A07165F90F5533CBC5FEEEECD986F8AE6DD3081EF8B5EDCCCFCEADDA72E -37CB7D797CF6F313EB07902C76368E53BBAFFBEA11F9E2B628A9F1DAF84B0496898BD8114BEB -99F71F01E169BB3E1FBC93CB29944274B6B0895E902CD0B931BD702B2B2F3D052D41AAE47618 -6F0DEBDC58BB338103575706BDC69DC4D3339EBBA4A8913D22FE244A08F640BFBD8B9B52E934 -266C4800BB86A0FFDFB658C3878649FBBAF09DCE3B502753D8C845AC738D6052D5E22A0BC1E9 -7AC0637C3616364F06AB04ADB1EF39EC5CC133D14C8AF1E5A4FCEE7E1C4C9A423D6C52F319B1 -0C5C6114FD3DA25109EDA5CC01FD2DFB52AD82877A8813DF65B03D1927D699AF21E8AB930B97 -895D2FF27F7A871EF2C7C19801EB14CBA7E6EA2BD77D71538C3D564D5F9F462F604317D91536 -1769C334C7168A950282D46A5D097EFA268B8D0692B0C40AC5FFE88CC6AEC0CB6C42CD70F46B -9C46E1559714923BEAF960D9A66A0852A60B54057DA2F50FF24456AEDDF31A8536B7DE522E28 -7E53C0A7BA056C2A12D122158C723C69087CB045F1D206DF486F3F9B63CBC693A563A5548419 -1C368FC9B7CB4A313A0E494F890C93C1F089D08C89460E1DA4F09AFB317B7EA7F165232358A4 -6937821D5ACAC4113473385AFA632DC7623D3F51684C577AF532AFB622D74E7A27CC58FE8AC4 -E7CA1FF40B5D123F36B404D6F6A1C363693083991DFD58D319A5475D3BB683832112DDBDA77A -C23E935998D5A880E443D0C3344119F6364C5D7BD69020CDDA8D1AB8A59037CC5056CD7A8157 -AAF854B548E29AD13075B88A502349A903D55D0172D54A449251AD7A4A8B1EFDBAB1A0BF18F5 -C28E45FEEB5F8D3F0C0918BC8E40EAF6E3ECD88CA4ABC3C3694534AADB7CA1C9D8D32DAEEE34 -0DD3D45D371C652CC9ABD68E011345A7B14C116EC7583BD7F7ADD97547464AF3C4123BFC65A0 -F4F94EE53F4B299F80A0B72BD717F00DFEED4605CD435298FC5030A73E7184B250EC13525958 -44B4EDA77039E29476AEBD42EA8CCF587CD4D743210C71DA2C7AEEA0DE804ADDA63034A58C9E -41EA10AA6AE6E01E30A7EEBAF223B7CB1625867E5411905D87E855FAD50D976B088DD8F8CF8E -3391B16A490715B1B271CEEA3D64E949E1D03CF3029240E5D653372D1FB1EA7F7DDE35D3E057 -79A015E4285ED52D941832B15AFAEA40E31926C0773CFF0CE61A8AD255B14FC45B6D2A4E60F5 -D4C2EF99E9CEB145598883D196FA8C950429C34499475980AB6BACDEFDEF775855727F595BD6 -C045D2A0D0A2066FE698B9FE06D5712CC71B546424DCAC5314F396653FB5641385746E8CAE0A -E8EBBDEA33594DDDBAD6845591F74F415EBB018C564A03BEB3A5740A9953C781C11683C9C8BC -8859A292A06C4FFCE94A80502940D0B1BF8B0A199AFEDAE448E6E805A7C19C75EB8FBFB01084 -B882E6AA14E81FCF64B63F0E12C2EE8285E4B30BDA9FB2189A8A18FDAE8BF929D5012F0D79D3 -FA5D18ED7A12E0696CC7A5BB432109FBAA2A18C47C25C43FE311551096B1240EDC18A085F87A -D588639AF355769CAD63687E25AC62B247E57B68A24F6A2B993AF55398DB46F78261AC5463AF -D2B67FC0471C5C3ED6F8A739ECE057B300CEFF4FB4EB31AB2FF5236906FF5D36EA338C11334F -05C7ACEA1BDDE6BA5C63D180D9309F26FC26DC414455A4C8F7A5B3B75E11B782536C44EA925B -69E09DE3476F65D12BF600F760615171DC939F6AAE953D7AD234E6FA0321776B378FE86691BB -124EF206D1034E3B3E5ECC32C933411144287D3192C6FC259369B608BB1EE1A703EB61BB3207 -F7DC20311FDE6FA988836ABB6E2A683707A902027506626D765C84D5F52629BF358420B3C399 -279DC1B52CF9CF3320E7E9DE4E3AB236D3265F1EAC27322F036D5E86210C57FFC54A7BA0881C -66209ED2B1C471CA625B1C70338CFBD880A61F4C308D3450A62966CB37A2E31B1AFFD8642BC9 -D7F22E216F7DFB50036376C9131F99CB57000CC6E27979690E4AA39D0086FB5B498FA0166443 -F2E6E1A7CB197659B8E0BBEC27A67CCC828D48D5A03FA8AA9D65105A20B29D073461788C82AC -4E9F30C4286AB7F4D21E9B704413FD12E1B5E7A6CE89EA7C92E0FBB472E34CD2D5B30A0A9B17 -7693A0EC91B89D4D964EBB35F5C73EEB73E31E50EB500D47B4D1BA9B88380E7F11FE8135F72C -7BD688C4D6C908BA4D0262A0A47F3B04A91BCCB80BA992FEE8FA3E16067B71EB6249978BE2B6 -411BE95B007C0E88DE91D00CDAB4DE1C75568B3BD03749067988C8A34795671E7FC0B0BE1220 -1572646570BC46D61BE1700658A07B6736B34AD3DF309965A60F5054923BA25C3EC24566476F -E7E379ED48543999C732C3A4026369E0715702CC5BEC13D20B70F2532F3FA317404E7A5F04A5 -88F3CE2694DED7BABFDF35E96BF395FCECB6F69FD2BE62F807EF2CBE304ADCA2141E1496E10B -4AC47B7A6C3FBC6D8A9C700CD54BEF6A33DE17146E128F6649FF7D7D13F7DC0E571811D74E34 -F87AB3ECEDAEA980D0E54782990DAB09D491569EE687028A46BEB90B69DF0A62E44F1CDF4852 -78BBF5C3C2C36740F95365759FEE9FE1BB174A932E812EF30302C4E73E98810EE874FA4BFE40 -7B7308194576FF40949A3776A86B8462D865BC005E966E3BE0003AC6A3D2E8ED6B2526D91D3E -5994BDA0D7C956B5F809C4E940C2F3DB0793850FAD201A3F7A1A6BF6D04873D6FDE7BBE78A13 -56D800CB643CBC589E8100D6415CC9193BCFD7BADBE2FB3675A47B77D95395B9F644C11D0904 -0EFB27F4C1C4380D1C62F073F92042953A96256176909CB85FF2ABB2D64203E00CCD0B5744A8 -05CCFBA2887FB612B8027431ABCA3BB9787895DAC2B2C272B30C1ADC7625EDA7E5C715C72B34 -6C563A71992ECC9EBC061239ABF81BC5011FEC3DF5765CE4EA3694534218649E973D229084DB -19E34199C1AC81D1F52AEEA5271CCE82D4CFBD7E59839ED67FE243C5A77E2E9EF10C6DDB7564 -5E8BC3D6F81C1EBB4514C0AD2297563A5B422E5FE29DC6BAD52483E111EE7E4C75055EFBA1A7 -4E5FF488E91E451E5672217DF529A0F68B7BAE363D68C3007B855F8E24166255FF989B34D544 -B9C05279D63E425F0BBE48D939E001A170EBC0E784E79A7A155CB89226513ED2035B7687FF7F -FA27F18F8641456A4B8F3C7D7EA48B94A11ADF59C4919F632B9E1F750F04B1B719D254655953 -CA3EA90993D4647041D63F09530A281BCBF76EB6ECE0A8DB6C8E340086FC36FAA3B803B2A744 -A36F7C8E295FFFE5AD2ECA1D152D446F518CF649AF8893C529A8AA9E500E6FBCD980B1D62331 -81FFAF8816EDD8EB7EC93374FB22D90A59A1064D7708B64E11CA6F248CFF2DE24B807FDF6C8B -209EBA2D8A95BAED32017CF7D06F3D2676DCC107EE718AF46C57C54420398B448FABBFA0F031 -A3DBE8DCD1D797EBF1B785FAD8FD04AEE38F17429741CBF36028189F9CE20F84155AD377D645 -1A2F6A476FC6F396FFAA22CD2D5F9CDFC6946ED952EC49D05A0888E3C8534669A711149B2BCB -F28558B0402FBEB111EF59C8FFDA4836533B30EF1E5C547B8B27D775F97CC55E8433EC019A54 -0D7F248D48DB417BCB72F52D8F279E495967F6EB6AD790DC79DF38049F7B5E29FAC19A97BF38 -C6761FF3E8955E519AC43F5BBA5A31A954543C7D56B18E96C13549A9ACF4CF46EEAFE6A7506D -824E3E6C55680CEC9A6AC22ECC11DB2BCBFCA16559FD010ECA8B5A8B91AC470CC91A84A33EC5 -BB699E4901596ABFD42461805DB8854DF9095BBF3FCBCDCAFEE6CE9EC915A9E5DE1326BC8D72 -19A3D31660BD3955C65088F41D7BC172D04902AF40C9D4EAD20D72BD2ADE96A08A4E7A2A9D5D -2AA451B9BF6A3CCE45B8F982E1A06824781B07344095DE5704BC5D1998569745F2C2390E3002 -D950353CBFA04119B63C6E3F788DE381DDA0CCCCD6F21C8280C959A6168B9774D8639FD0DFA8 -E7473A822A0CDD18EC53EB39A94161A05922973930D939B4DB3AB2CD0B3D94D6357F1FB2427E -E54CA5398F536AED182181F27E58C98E9B6E15F8554F792F28080BC6CD124BC10A6F26E65DA2 -71F6D699BBE101616E4F2615509A636D3A1DDF352C6229339AFBCD08395BD401005F6FE4918F -205E8C6985C1F3C41000BCE8160259E7E046E29182F06C799B39C5F8281D06C0718B59C5820C -1396F7FDED44E02137C88AE7AB137C2EC34E0724E554EF28C6D432330F7281318F3CB6C68A1B -EC7F8F5C0A19063610728A104AC45CDBB925AFEC6E733FBF1B24B396DF750E2C4409FFC559C0 -B14B64118CCB608C2BE50F2C8C76A32D9B0B46E99E7A98DCD586244F031777E3517537C0DD56 -EE203DB558FB4173BCD182E80D5944F9574A3CB14570F9B3A719E63F1272F8AAE8B42CB27CE2 -C33BC76495E6DC636BB4F5945A6B53F36F1910A72176253D539B1FF62EA855B509C168D06482 -CC9E461E1FA37CED1C080D8118569070D7590FF78A008F1F962EE51704B4D20F562A20B90927 -1A73BE15A7E8FBDD9E98D3969BD26B61176442FB96D533F848E7131F548B6B7F5FC8FB1D70D1 -F4B7124092C007618BF6B9E4D828508BB8FBD1A12259776D0BD9C606FF5F8C24EA764E5209FD -EAFB75934F4B204EC810F5E2CA75E9D79E469EFB96826A59C09F3793C39C5C886F702943A72A -53DA2DA987A5CDB455E836E6BA8F6F2AC2615C55C484ECF85D1B1D586BEEFE7DBCC766431E44 -F443F1AD3FF00384E756B995F41F2CC3969AA80D10C1F88026F6974CD95C6681D7C51C02FE1B -B728CDEFBFA97725021C8B17FB9C64967F6ED00315C256383AF9EEDC2F7983734D20E2C9BC3F -9BDB75A87ECEC71A36CFF3FC81991A06645B1C4827282BE313F3B0858402EA29BEDC9314736E -908DC66FFC55C022C0B0B2C5AF2A8B4E2F16CD60A11C6409B2DFEE49A4D2C4CD57610366DD81 -380A2F3DFA78DAE9123B9F7641D92462D371E0DBDB805DECAECC37268FE6E0509E25CB84F78D -4E65CC736C8A9A16526D7BB3683529AC5CAEDA8D674E1E20DA77BD4397E2D0DE62B3BD7B4097 -F09DB20ED2F85BB0F633B5D59DA9E21882DB848885AAC7F23F229A1CE87F2A0CA34E3C531D23 -DB7FF4C2DB7604CE5CCD78D2ADF008A71E553258141B98FDF88F34969251EC6336EE3F68543F -339BF2B42E9AA2E3A533B1D7E0889FAA02578CC80486167ABE5188557BD5BB405CA66C88D6F8 -A5E2274ADFA061710E008733165D0CCA7FF0C19CCC395A25D5BC6112677AA4DC2197E1E81529 -CB85E2AA160D33F8A3D9AAEB6EF2CC0A7699FFB608CA21F1622B2D18B009B133C7FF57CB47E1 -75212B77517EDF23A7D617FD205A68A82C2ED949FFDBC1EB5419A97F3BC4382247D0BB92DDB7 -515341845D4A4B373F7EB1E8CF79748AABA4E70FCE4055F4ACC9491C791A91E258C61CD6933E -B20D86A6AEF92778C0A19C7642ED996107FA919DA178CC3C6852F09E4CA4156B52C36C25100A -2071E0A8B92E8706DBEC740B41FB7FC0F5C15E66B4DC40CCD985D1284FE760203A38FF3053FA -8F0282F4AAF51A195B84CDFDB1B34A7F359A4740A35CF347DAD461F4AC771243E367DAEBEAB2 -05CB315142F069A03B54DEAA94BE56314F6A1CEF9B25054BBABAF4FCCC4F55B710BEE7DC4D63 -A6590FACA3B09AD578799FCAA8F47394ED663F193088D777F4D3EA7F490CFF4E86D0401C2747 -A604455C3A64E25BE9657056DCA68290A0DD9ADC336FF035C4D8A655D7D42190CFC0FF2A0E87 -B750523E7D2C9707850F5A1CFA863E8488D320A06CAC7C5F2B191BC442E488A39F3FA5A0EC6E -9830576BD2E38DEA3DC84C91E1CD4FA0D6E5D0F6BB2912171E745DDFE9726749E663A4E7C859 -D1F3AAF8460751C04ADD2B18B547034840BA4008CD360367DF0AFA67CFD048C585D2188476FB -C066CF64672CE2D98FE21A7D2B7EB492C379CC354A26D11A3B7443321157982138F5140C4F95 -7146EC1F07C4D58EC18346CDC0C69540E15F56FC616DB09EA48EAA9FF1A9DCBF0EB37D45E66C -678815249A871D88DAEFD636ED41873C789EF05CA06FD888D10FC2F5FA2C98CFE020203F0885 -02E0B18C5BB49262712DB919AA561CA79E6C45608AE83785902195C1E2F84556152ABDCE3F7F -584452CAEE3510017FE16F87149E8762E42E7C82DD4088C97080B052F0601ABD63BE030AACFA -FC2948A00507736249B525109E18563F3BA569E79CC2F6D54F7BF20EAEC169A9A5DB9171A525 -9224B6D934978B346C5C601994D5AC51839A72B2C19FB413796A26B54B77626C7B543F4CAF28 -13FEDCF847E5B7E44018CC15D999D4EEFF6B20E8E93EA97B519B367E6A91EFF7C61488041783 -E7DD0E5DE26C9C8060E5B30882F898CDD4E6A02DF00AC63F921289A0D0C052E78C071C18BB4A -6D19FBC3710E79F03A0C76B70BDF33603A906ACC76C9C9652DB4D2684AA02544370AFBDD6EF2 -0012F33C4A0A3FD47A20DC139A9A4919BE2642EB11117D55F81641924B4BB5F57C07FB44853E -98991025633DCC4D2FA85B3C41C8EC0512575CBF0A0058075609C4ED55EF56872EC6FB403A71 -2358B46C286CA9E16E1F5DBC18332E799AF99DEB62F1474EF61E5AB76BF913A0F02BE2D9385C -E234A33F602CEFC23DF4E487AFE459645204377288ED670C38A89F1D037828CEF1372E61E392 -C6970FEEFC17ECBBDBBCDE721BF1E453271E87B937F43D9642FFFF80CC064D9E456CD03E4ED2 -3140D53EF1E22BA2832B0D892567149ACEFA467DCD426B76FDCFF9203322BA344D4B34C9B551 -340DCB53AB08D3CDDA880CEC5F69E06F12B77A0EE9E9CEC5901183F09134C157CCAC53C46101 -48A49D54EA09C0E2FCE8BC0FC9FFC2AE0587C62551B7802D539FB9DF9106BD6517C4637418DB -EFC4859557AEA87B9E5475FBABD838261358BB62BBF3976782EE4BA9DBEF51891BE3C828601F -362ABDC85DA8D0207D02CF86D16D9D0A62F6B213381185B9D2C1BF728944050FDD8DC3042AE8 -E1666844DEDA965900026B0F051F61AA77C1D14B4C6BBEA33DEC3B615A1BAA867A694E6DD5EA -B45B12670E71206534FD53008793259254CC43E91920F60067243DCE3C0F5895981930681D6C -82CE2815F18D88F784D7ABF8532E983EF5805F8C00129E79427FCC5C3E6834A92856CAA7A38A -D9C3F0677618D5F4A75E28BF51F5FD7D1BE2EE11B1ADDAA8CBCF61BE135F4E10151174B47D7A -0EF25E73BF9EBAD4C2DF460B68F10C9EE5F24C4B21E05D969595EE684815FA0B093BBC4B3D0B -CF6FB8DB65C23AF671EF40092B473A46C9593B8F7CF90524FC6E162AA72955B83B7AEF92D1A9 -3863634FD39C7FD630F1E716A873C3D1893DBBCF994F4355EE168489C5577D491CA8AD775579 -AB7B0270A4C6CA921C956A58D094ED87E0C9E302291A14057306F9B02A809681E406D7213A4C -AB1799E0632FBA51E4E999513F414F3DBA7421D1470D2044A793C23DC4AA2A8A48A397CB705D -16D5E754873F97219A1342DE2BFB37489C03AF160CA52C6D7F712A528D4114364043F9BA3599 -0D3AC576B3EB080057A0F4CF873177A9C9634F4D8720A598674D79169A3AC59BFDD88597A8B5 -44B5E29F9EBD59B9B207BCEABB1FAFC220BC7735F7BB708C3F81943E314C764B39C36E0D62EB -517985526D94337A4BC86E9076FB1166E586FE1B73EF65FB50871356DC5C8AC55F66E6E31CBE -493EBAD38F2AD40759295C6EE0EA3B9E448765780E4BCC09E289DB55C7DA57B0CE00E9F3AAF1 -13A61251380460CEC9D467606E45BC24E107BB3829EE5B14DCBD0142FFEDA4439F8F11853B15 -83302CF4936C9C7A74C6E225D0EC00562E7648EE82D3138C11813AA1F2E1A79768A46FFAD6DA -41413E0DCBFA2B96337982EDB7B819E4DAB522703A4CF7B19544F3EB6BE36D9F9CEB04FEF067 -58732D04F9CCC18C5249DE395CDE0F74921A1E7210C431B803D430112FD28D76290584814CC3 -8493E616BD0EA7ADB80058C40E6C543A1CE286C81B38561D792A73E16A6FDAE8824BBA8D524A -5DEBF783E8D3A4DA163C1B3DA3DE500FE63B5CBE002FB72A859FB4A216E82993286D9C1B034F -6A53D4B68BC0965EAFE0D034093A50C625E67D7DD368C0F333A5398C8830026F5CDF0BE95DA8 -AAE4A6F8B01666C00176FE2C4B7ECC796F7B95C3DB9D7DFCD587FAE6C2248474E39B3F22C2CB -2D4BDE666D7411B588D89E127059A1C62934E364FA6D37131CD60340A408671553FACF46ACBC -38EB16B8DBDC4428BDB6A36AD54847110D5537DE1D77F8F9C1340FE495A33E761209E7CC11AC -8DE75A425834F521A7892302698C89B39A33D1E191D3C119CD473DB1C20DD317349D628DD027 -8071BD539222FC0B830FFE4BBDFA89E821668A2068A9DDE5D325CC4642AD2C4D26C860310D59 -BEEEFF3E6FF932C667059E549437922E59B8DFCF96D604373D4B830A815F79EEF626A1265887 -380BF0C9FA04AB66852E5B2325B3EC26F8CC5596FB7976EADBE5EDF1EF501681265E2D6CD874 -DF93F5B4B2A163B45B9B9139B5510F84D12B3C21296F6BD22C906C5ADECC332D76667B0861C5 -D97A0CC4E913B7E84B7E9FF6D81A1797EA64F633DCB14EE9679F55FAE3227F7D8294C2BA6B52 -A9A2A2831316B867A999422825E5AD19D090256AEBF70D2A4E9CFBF7E13EE500835D79D53323 -FE664B6A4E97345DBDD0260837D0EC6D51FFAD94F2EEC151EB6E950F052229900ECD8D7E3126 -E294B694048BB7FE50DA290AC7172169A229BAB34BD4918BA42D78335A23384C455C5525A187 -92C2726792AA20FF03198F9F51C2F417DC6840BA4D96283AD096536CE8B76E60A6038AACFB65 -ABC71BB52E16351FF5EEC2E206C800ABDD2BF1E5BC7ECAF72A0D2146951138D648239138703F -7F095EABBDBADC54185E3F283C030132076CD8BAAE43E8A69707BE961E010286219D0A144D53 -8DB90AC4DB19E8955231CA7737B4B0B9B3192313254D9322FE5F2F660D0A7B83828E7939AB93 -83F3CF7583C7CD0A97F3B50B28FD9365A3C78592C42666794275A740486C455380CCABCE446D -19C939D6D654270BFCBA2FF5C2BA30937A6D78FC102738ED179CE811DC482477706271E8F1E1 -A3F4CBCC2F4B569CCA75EFFB4098AD0F01476A54D25D00B3B0D44A37CC5F75CD8FEC86A44C2A -EA620DE00A24D3BE5D9E6579A5B1F4C1E4CCD0FF151908E4FCFA58117EDE3D2B6D9D746826EA -1471ACAC284AD5C74AB91C349C6B5B3D2D25BF538D71366614664D073673BFE51A62492F2D6D -5F591653CEED0C2F957EE2BAF8EB479DC5536B7E13D52480EDA66A90ECA55FBBDC36653902BA -DBC6CF8E6964D8B4282FBCC8D45D60C6D4E0F1A1A1C0C44FECB1675C2DFED36831EBE9D734A3 -0A9E7C3C8E218C3FBDBFFC6B9E0220D477D18D8FE8ADC38E502C29D14CA1C9E5B227920B131E -06D4AABDE5017E8828D331C1603F9210956A342A65448903C1AEB2DECA6FABE139A4D99D11F7 -1B2D0D821B4663E5D7B538F91ABCA16D73BEA8CD5127284DB52B5E0CFC4EF0693D5D3367AF91 -27D3514524A844BC980795DCBCEAAA8AAB94727D09D3E3BC36AC648E6F7FED3E5FB455ACBFC5 -40651332E70048B960F577CBD12076278C4B0B7F33751A1162CE4D06D064AF3F186912C5FBBA -65BDF101D88083B3F7328F2351E982EC2D9C871C8C807DB664AE828E723A9C65A2870FC809AA -38DF49200B1EC3BC77DEE16B61AADF0D6A066DD062E683951E93A2ECAE4719C1C625F6FB20CE -2C3E5FB56BC37891866DED0B2BE4C34AB6D7B3E4CCC502BAA326AE00EBAD830AB13DEAF7F651 -0B58765F663577CDE9629C0B16424C4FB9D59B0CDA5C8EE03F2BAA79B5BE50BB4E877257974B -235942C4A437BC86055A26832760804FFFC6C2E9687975ADF6C5D2DA007510DDF2B67B2FEC07 -1AC612C8990E5B317A7C6D9FDA80CF4176D0B7E2F1FCA673AFE816383991B37C191872448ABF -EC251D4F79631EEE96D3712B6B10C2ADC3B7013F93A4F332F48840963CBD3C4C98BC835E2D81 -77FB510631D72D8D7B0114C389F8F3A2AD34F9B341F4164323E4391C612CF89A281F5908E638 -589DB11890EE688D0893358F2C938319E2314B120FCDB0805171EC10DD31B1E1B290F07A9239 -3E8FA57BDF449BA8EAC96F55129C59438915FCD9F238077DACAC432AC53ED2A03213E8ECDE5B -68F985EBF72265B80DD0770C26BA637E5AB0448EC2234FE659FA7D60D6CC1C9E4141BDAD8A37 -D5E627BB13A7D969CD63AC1CC6AE2A32EC2C0EC8FAFC0F71433B47B5EAF9862D2B369CF9179A -8504230E3B837D00F74E54E7325DB2E1A366910168F00AF9BB8F79EE16BCF5F9476C15BC8231 -82F844D461A4981815D59E2A3577DB3E4CC0B923EFB50EB098AA15927DA7D544758E7FA3791B -4DE2FCC8AC709A15E98C225A2A356E8217D50102A8730440BEAD133A23C6E488DA21FFA6E7F1 -6D3025C3780E4E35108685F84635CC877A8895962BD3CC228303D7F5481AB7802A2D3D58C90D -C6F1E8D349ADF49215A8CA4638B1E9B8EA057F982A0B2DF4B3FE3638BB617960E06F172B6E51 -F2ABB2DF0EC6687399DF3F3D0FB26B0D2D13B9FCA14E05B0A84E6A01DE3F20E2C9E395D5436F -C294D1DB4E45A1203E5E33411E42B8664F3E87C96EE46A1483CB2D03321074FCF0CA5FD383AE -EB1E50B88F951635FF86A6088A0BEFEFD866BEAC9B863BA95F7FDF7AFDDBF9F047B4CC5D17CB -F0E1965CB230D9FAC4D4AC392EE8175D6B865F3A1E8CEF2DBACF2723EDBBA6A4BC6B55EA8331 -182B9EB8AE90C3AFCE452BA60C7FC353D7142D6266EBBC2C69C2BFD032753FE151E6B5C29B91 -95EB737F5CF33933CBD2DB8E96B11DA807E40BAD957351690B33CD47419AA81E246C29231376 -CF055AA710E884E40AFFE73E6810FA8D99194AA03711C0D934B59AF4410A10EB7E5D4F7EE56C -A1992DCB9D512C061D1BF72859C76769155441EF7B4779BF57212C83FD64A5A98BFD2CD26B7C -F1D2FD65627FC7E1900B231D4FF0F1B09AEC87E1207DFD73A322719566EC771957C439B55A7F -4ED202E80BDDBB8FB65E21A978C487DDEC50A47FFD2EFB1B4083B7A009C688A557C4B6195B1E -E4E2739EE39512021D49911F9157704646AC63B7566473581144F84B9F4F3D93FA35122FB65D -9DB6D813AD1A8DDA0B4F1ABA62C26A1C5F81769326DE954C56B5DFBE2CFE61C39933D36B26AB -A5311673A3BFD0830F899CD382E7579A84799B3EB35735734F3DAA96127727ABB92CC561C84C -414CA451F9474781305C7BADCDC551899C59839283BCF193D35D3927ED3C1B0633092BCFC970 -EE8BFC484A74695152711BFD948CD5274E9C762EFCF47A9C61C604DA1B5AB9D2FF8379CA37FD -0F2246D6520808B89BA75466127ABA6B0B1278AF3711FE15B2D8D8D486E45DD76579F5858962 -6E5BC4FE661C1C6C705756C906406A9920BBF5DC5A3D0135CC1E6552371F72AEFCAB43B23190 -7BE893C0022D00CAF23C35764F70F88AC939BF00FA8A60D5E8CD03AEF1CAE04A51DCF7A064CB -428C84853780397D65BE31257B7C9D056B50F18E2A26017B495AE3AC8C45CA68117D6D49FFF1 -5C05303A67C9A3A5C716E4A0124AF43C54828D5628CFDBE9097A28D5094BDAE8682903591E39 -A6EE155F6459F756377ADA3E191C459D601CD2F87E29754ECD5D8B15C6A3E00C44A9BCB7F069 -780ADFC8E7754407238F64E1E35A9BA3E5DA7473D2C2B02333904052C7D8502433AB06A47368 -73713A80653F3979DE36353B846BE67D33BFAAA6979A81224D78F35E54BF9863B27D870F401E -1E603CF9819748F6FD1ADA901309409EA09F7DFF8F317770A3D95102247B2A694A90D68713FC -FE76A5508613F635617B866BC851AE68237EE37AAEED94C62376FB25C4BE712CE18DFE0BDAEB -70F8D06BCAA3CD8FDBDE0D84BE2B75B1C2AAC4F64D1504DFFD787DAFFC99F7114C77B9EFEC86 -C9B7C1B0A832BF357413132456167377145FB796F13D6A36875A946BB62A7BD558E4E8129785 -B96176EC60939E813AE932D956026EFB6EB11CFEA1E3227688180FBC6E240B46B28563D90576 -BA3468F4EC6A11B4D0987CB80FB4A4AD69C2F92E5287B33D35341413E568CF5C3330EF4BBA99 -9F46C0FCE4655B9668D965AFD0BB130BAC20E721E0DB58AE80346AD441182CA3253CFAB208F3 -A0F60B07A710A19D07926C8B2591EDA2F9A497AF6C2C972E24D5D18C9C67DE9AA02879402C36 -ADFBAB58DED298D269503538762405B986F08607D295269B9E31D69ADE289F584BEC73F9D3F3 -29475BADC0D15D6F4361FBFCC2FD36A15A5891A9E01A0DA1B746337DBE687E023507490035E0 -8599C7ABE0A25FA9BF917B7AF8A526B6BD1C16455D2EB130C9AF1568877242AD753CCFCB72DC -E26360F8C57B3EF9DC597FFAF3EB74C65AE1C0CF11ED959817A52C3879E1C1BCE551523364B0 -91FB83FFD847DD8A81DF3A1E47695431001F8F7BF796CE8C78B1F99A70C5AD7EF5A8D4A65D70 -399524478B692DAF02FDE6A4F757C903CA3B5F52837065E8BA6102F49E7BDB5547F57EFEFCB6 -B7494BD00E0D1F4742710ACA8C670BCE6B770DDFA5A215C8E83908D4FDBEA869A931DA1555DE -D5BB3618030B52D524DD3F7F6ACECEFFB3798332979734A62C7D93050369F89ED9571F635243 -6974B9E1B5F3AF0015A5077146D56CA7C3D8763126D9F1B3DBBBCD754E2F2FCFF856FA5F4239 -C0907FF101DD3AD9C92F49B21931E66033CD7531220B132156799652E724CBF2634AD362AD2F -11F8607DE67BCCAB4AC97906A53FDE9D803063EF1B81D65A6B7A0E1859E5066FC1DC3AB23B07 -86E14A894496A7460827857D42A384ACA92D1570D997CCED80F4A0868195D5654DE3BD6B5D01 -9A6B1A154C1643C6DC4A5289A9F05B3E92F793F5541BB0FD22465497E5E0A25EC9F425648936 -8109C9C80A1D0E1CECE2B0B3A1CCADA6A5439333B5E83C95B48F17B8DD037D9C0DC072703A0D -A3F4D7B99DF1A09F7BE26CAEDB884B136518B84B24A9855F559944403921BDF1274D4F861E6F -F32824B9E3D41FAA5D19294AD7AF40AF9BFC51729A8B59F652B995822EB223123CAC2C404D35 -40C6DFE7052E2FADA3726D530E56B7039D4A21A8B1E1A7753CE11520D23E83E082659667D0B2 -05227F92BC29E8FB63261FC5B54659F8E83CBB7BCCBCC2A839AF2AC3E319012EA10A0D030C72 -9B57C883B66BA7A0C8AD810CD65926635C12F9A475D2DB6971FF49D095B6B3F1B3F59F4E7ADE -A60491B30E48308D9EFE57A2389A5C16EB6594815E88EBA0B6DA9937EC38E489290A47938C78 -D8A8C43A5F27056EAED1243A92C21FABBB696B98C662F932D9ACE5DB8F6C7FEE5BB9FCE8BA61 -5011B48120C92698942027FC72CA2A67073FAB4DC645DBEA02BC9F6967DCDAF196F32B6CDF2D -CE8E2E6310AF2C9EEAAAF40441ADE1140CD8A856E2A3AA8FE93A6ACE6A856B4166E140513D64 -F68836ACA42DAC43F6FBCB4564946384C209C2FC2060F71B0C1CE39C9EE7790B90F37A099520 -CCFA024EC129E0744DCB2326704563181DF55A012BBD7C0ED24D98EDD77FD345CFD258FFB946 -5A27C53F34A811EE2CE430348FC021047973AF72BDFC9EEB8E9FCC78FA93448510BD76929838 -CE2D8E1A8AAF66683A950355D0A83DBCF01CF14FCC5F34E56E7A38CBD5E960AF1AB4C49EA0E5 -EEC3AD1D43EC73976E56C1CB367408FB5F8131CDB128718CDEB71D76BE0864D65BBFE56E3941 -152C4B54354876A08E76DEE7CB67C20F835350B5DD789687575270B2312B61F5FE78113A8CA2 -5961D24EFFA2EF382AFCE63C221A07BEFE29AFCF392D66621CEAE017A0A8540266D94308ED5B -98725305EFD7F8CFE71D94F0F773B7D545F7F862927636A60E886727DA52ED80AD420730391A -B199A7A0B8CF09D7893458F11E176D29AB3C1BE51F19A462FAB75F07D6A754614B685D616906 -C92B29ABEADAF1E36EBDA0E482107367A3AECDA3C6652C51B05BBCCD81E9B68CF261B1369F61 -AF72F0E1C18EA2169C4215B43477FDBF02598837C4C5CABA066186A615ABC5C37B875885BFB7 -944BE1AD5D870C827504F6A166792C523C0E68BED1FD43008003B0616DFBA770D3FFA2F1D9C6 -2A7EF37FCCFAC70031C8584062BEA2FD61DCD242F61A533698803D6F5FDBD3D9EF778E39D720 -B80D21B1D1BC463102D52920E525B18BFED57E95A23665B23B600631DD7452736B3A1C354817 -14BE7CD0FBADEE5F0C8B92238A54D1C02DEE2EAB0325565449AE0B3EB6A3517C00498D714C58 -2F45B41B4FC57013A3095A47C6C1DCC88D3898488DC945C032F317118A01EE24BB1DACE57FF6 -9F406977C532EFAB725B3B14D787ABEC205AFA4C7DD181A47851B18C37DFBF8AEE4D5EEC9669 -C421FD10FE8247B036CA37C566275BAC5BD6771BD76FB989E9FBF87530521EEE9FEA785EC533 -97D818D8AB1AC320AC254CA81A6D2FBE223590408F020AE09A32B5B4D0B69106492444118C26 -3F76190F8E1C491722A75970BC80FD799A7A626707DAD3E24F88DE68D51A56EACF0C5C37FC62 -227FD13706A0CE1845702C793BED92666632F18CDFF9A09639B63D9615ADE0BF09A319FAEBDE -4ED66D774559EB330BC05A63D18A3F8AEEA6DA25C4AB575864C0D875005385498AEDFC4D6024 -F0D96E3FD34C07A77DB90A9507AE33705E8560D8F58D1CEC325CFDD03A11AABD9749B61D8293 -833C41723463A87C3225B5866F42FDE371DA214ADCA186D9F159A58937AB904E73F6780AD29A -3041F456B26CA8D9AAD38FE751276367421B6CC89803B30795C7952162EE1FAC94D9952E3406 -F5A67A5013F9CE089592D8E88180D6FF8AA04B4A72AB5FE07937EB37F1009D675B821932CC43 -C99ACD8CCA478CCD197980B948D7B801FFCF508E9898E301A4A10783EF1CF8C407D25FE63AD6 -F600187FA380240564DD7287E059362CE3F29AAB6E997FE43E7AEA4FEEC61497896A5BD84738 -A8683F25ED5D194380728E5FF6510F7E9EE88E864B4A6CF2C5FBEC7717C71C95CC2D69B7CF7C -7D36B466323117BFA6122027A86FC2689618165D238C58B035DFC83D168AB3360C0C20B4EFD9 -C52DCBC0278D296F29582DDA4CA0ACBDDE6713E9E898FB280B6BEDD61107A0B7E65285C117A5 -F08C8757078138994158586D3239BD6242AB4DF3715496DCA928F9C4C091BCEA947FBF49089A -019E7EB0EB8D37E0300766E39C54F69150BFDC1BBBD5FE29886BF62500771387E4D38306FBA6 -C5C0D344EE012E54B1DABBA3613612AAAF1CD1769A4A2878EA3552A30810A7171EFC94D0E081 -038A81C1DBB13F53608F4BFDDC767866C879E7BEBFD61564D22FDF380C81E8A193E8CCC568D3 -D2F7310397504150983FEAF625BB0F2AC246BB5268817F7A370670F6A5ABC35F948AB7DBBC8B -D14562DBEAC9919A0D9788102660521BE5C427E87EF217CDDD2053013DF1D19AF3D929D1CBD7 -B7677D992DF8BE7BB0BDE7E07BDDC81CDE78D48D9A6CF8B0A82070F3456D15A8E5CD36CE1FDC -5F79D1B3A93E5500C4285FB4F18ACD571048A5B0F6FF3E478A9E53734220B92CCC20A5AA2781 -F0F6A1953E278D3FACAD7C254C45EC865E17E17FBD6028D0078E1F067EF8020926A936D32729 -D399F25B9192B26BE99CCC2822461F1185C917E9D337F5BA574816D355A34D29FA6510BC2661 -0105A0F189FC493B80AB328D5CE80E2AEE5AB6F9E21734138B41ECEFA53F6F3A64673D6DCD6C -2C9BFF2D3AF599C801F445F51B415B0D977A9D2FC85C0D5921375F7BE3DCA28A1413E53EF4D9 -1A8DCC34D7D07B47AA4CBB13A2C06145DD894D6045E33EA53D47030AACE849A6A926E988C6CC -F4FC39E0E8485FE62671C76E7439835BE74F412D885F3CFAD49B6310D1135EFFFED086232F7D -FE1996D86FA3149525C4AF05D5FDB6C0B7DABA9BB0B8B96E959C02ECA3C5C0783C6CB98C488A -228B8D4193796EA2A78C455C560DD52DE0B9A63976E464D79E72F0630A22A79763B0A984BECE -330D2AAB4C577596E7279DA3DD52D0085D19ABD720C25A4FE6A4DC3B0830999D93B184D3DD3F -D01DCD21A0D693ED0A223F027E866B609FF5D8908FA1C1BE97B9CD8D8756EC8F50BEBE8FD336 -534169C8E86D69C37CDC6A809A6C7AA1B56D729EE41F62D2EDA89ED63CE8E38A7420783CAC1C -E1219674DEA065DF3D2E4344ECF040DA97274351331547D6138288627389B345CC06DBE98FE9 -599DAA4546029347D4E0C2A2208F113F8DA606C97A8C5201B5E17AD87399D7A399B9881576C2 -F1067F43B7C89B6C2E1A98EE287BD2E984F3E6DE4060D42D04B2A172F29FB55AB6CC1C0F9E7D -26322F011A232413BF54CB385FAD49563BEF66E5DA80E7E9C9DCAFF536B8934895EB42E7B660 -C50F6676EE846982BF564BEDC6C593949B0846A91D8680DE558F6E29BB90F49FC97484D5313C -DE8B93AB884372CA95D56F04A9A0EF849BB02EAD6FF6576A39EF41DDF2F935A06D7A886CAAC1 -BFEA230D751F8DCB5178F5FC201DF2975DC9CF26D5621B3CA253DA2302BF8DDB23C7A6DEB2B2 -28CDF3D1C569F63460462AA9106A28610C4BF310F29BA8E1B3FEAB11586AB14E281DD4A494E6 -68BE172CA2E60DD4B792FC9E0E82A8B9C70506E9BC884F1E2DB97BC1FC3BE12B1D9F4104D607 -09AEB38507BF713194BA9E84AF5DDE1A1BD801EFAB50C2CD108BB4D09B2B4DC97348A816D827 -13BD20E2C4C6B3984178E75E9228EF20E197BC0F67B7FC2AE7A8FFC62F0967180AFACB040593 -619EB139F45712773EBEDCAD9E01B85857C28809E669D2AA8CA0DD3BDB93B5E29634B912A94F -3CF5BAE0A50419F52648208833EF8D7B47E68A3CFF32F7E501FCCD0203C3A3C784E1AC5D6FC9 -67DC7C9263CFE369A71AA6A29F96F31B3E52143AE73BB96F708981CD1F6F9A86F82A97000406 -E1DC846ACDB79AFB7C8753EF77479AA69661E2D2D3298FA77B8FDDAE6AE54C12CE887098A893 -AF354450ABF93B41AD35503A39701B7248F0F097AC33A3761DE935E9D3F10E8FFFF7610ED731 -354C09144BC05BF03C0E79B7D979FE6BF18712D86EF174548FC23E0A54E24A983ED36FFE385A -29283A51160A6DAC0B3AFB054524AA0F257598C8715C4C5B3295DFA285843B1BB42FA5F7BA2A -527AE74CB6F095D866F02F1BBBA218522B06B95E82B434A3A5C7878525BC6911E4AA07A969CD -CFAC5FC1C4B98C898EA65AAE267BCD53E1EE1334B545B182E975E388F26071982BDD8081D5B5 -1D23F881276064F6B5D2CE5F14FB6C0639283F42E7EFB3AB17E6187A86959BC9337F792A1F91 -1364CBCC425A4D4E89DF74C018C5388064B5C84542DCADA4972D31FB988DA828878F8D078149 -1CD349C4C7C0EC2D25AA1A19165DBB2D2A1047F78F5658073FCBBCE0D27F7DC4E6394222F9E1 -53C4FCD0627BB95F0C79FAB5FFA9B6211FE927BEB94F4895BB03767C748F5D498E6A83342F7C -2EA1DED7A5E133BF90348E1F4D06972CBE2086D7F0B78FE53282B0E59A3B88764ADEB638DB46 -DCCBAEEBC190FF7BFAB2D27EC5DCA661A29BBD1B01C9CB16EA3D7910EFD0BFFC34A512A8BFEA -6402BEC8602B53DB206ABADB4CD7C78C1198D6739515759C6E9559CB9F54D2D0B044CB546057 -81C490EACF951A7592FCE1BDFFDD568BD498E623DC1B05CC85C42A8C65B8E82D0F7C0CA2E82F -ABE257EBF0E783274CC113D1B00B187B0A86074752E0D7DA0D153BBE8718806D88A6D414C169 -5A9CBFB9CBF54FDAC286E58B763D4893B23466A62301D8CCEF9CDDF5650F47BB3F7260D77BD2 -8108AB8D805014C91EA948C9E22CF040759C65C098F46B6F750C146AF1B621210C0C35AEF99E -580588BDF24671443CD63C4AB126F7705DB2D55825C67E5C9F771F4DF75FF333267165FF6342 -0D747C0349E47C1520EE8CBAE9DD691A96C40E332E5FCF3EF072F552E76A8BC30D6CBA315DE0 -8F1DCCDCE8EBDF6058BE7F666D1FD482694D4B139800C8D7F978EBF3979D7DA72FDF28AD4C5E -4D15434F315688A59B5767818AD37A97A34825612501C3EBE5B87ECADF19CADE7D1D9A1507B4 -7F8BF2414C941241F9D7571E0CA3EE38E2CB6EEB25410DE8D7CA11312DBB5C0B71B4A26F7C08 -0717E4E5CD7544A1BD2618F470EDD331768363ABE380621133D181C2F672635E1CFFCA572D73 -94495717149138E1559BE5FAFF38A517C12AEF06FD616013A6D87127BBCF2F139D969A825943 -774B1239C93793C48974EFC2AD24E685D5CD353491AB6687C76E84AABD7E543D4AAFBE1FC761 -F0357A7DBFEAC7099C7E38AA2B6BB7B15C22E6B4395A51C37CF8C2AD8F966FC27EC91B189F7E -B25E1D24F02E28FEE34083570CE11746755ECEB6AB39FD2E9A707662A3D86D0F8BCC49FC8309 -A3CB305917BFCF323DBB8AD8100E63100E3B15B4495EE6E151BBAE007E86B45B9F7407172ED5 -080675D9D7BAB722054E7C7AFE87207BDB4046B90393AEB3EDFDEC4F868166A8FBE14CAB0C11 -F7E07A5FE440A869C018D40E314E0E5FDCD875DABD2A03CD6E456A67E410E47D7F90E0A34FFF -59C0B9B54D8D658EC522B27B9A66BDA5D4198ABFE47523B7922DBEE999770F00446AAE26113D -33D9630E12B740BE02904A33070E60DD2FC9E3278218012CF9C4B3110FE215DFA3AC2BB0B570 -5E68F4764BBCCCF1AFD71243FF790499CA525967C15110FB431188A4EFAD771C3355C128CED2 -68514E524A3734B5E1479EE5230F72456D96E977E33951C9B876CB60A9B90E674E0240E63DA1 -EA7D8667DD19F1C84BA8DB14BDA736372B3FE99B0F1D8311CA191F21AEF335D2CE95CFB40D34 -AACA0E288DFE5133AA0D76821A32DF357397B7D6B9109BC119A3B004185BFBFB00B712A4CF71 -A8579549ED48FA9E0853387BD791A93F077D3BC8760F3B1612F8BCF20968F3D7FA9FABA9CD56 -9369443B501BB6D6229FEED9BC62B9442CF87FCA9016BA8B656734E70E8CBD06FF8AAB52626B -4CB4516D16E82828C7D530C42C411ACD4EE5B6F166FFFFCD36F34B4EBEF39E74BD383BADCA17 -9F9F9DE058E67C2907030B4D7C79E384E12D1B14F91A89A16F745D95A517B1EFF4B56F2CA043 -903D31F1B9DBAE449DC2507FB8232DEBD64356E2CB8A675AEBEBDDFD4711586298257AB046FE -50BDD6A58AC4A12D4F2B583E6053C26B9993ABC7932EFA3B687C9B7B7E0000E437A0E0FDB052 -A6B6EC0642A7D5BB5797A8B18493E4FF2FFCAF6A3868B310E165D21F513AF70B81647A2E7460 -9CBD650865299426537F19F2D38AF81BA410E3E09D62A976D9561F77B0374E488D676745AE5D -C5EFFD42B0F23FBC52806C6DCC54A2837E1081C32B0D80D3D495BBAE6FD95A248BE0FA858C45 -9935684D0EC5001D9A1CA84F69E65403DE0F259CD035287F3801737AF33BC71C87D9B735EABE -9E5E28AED522819F5030B1D3B5AA7FFA3E670626FBBD49A106C1D402D85341FEBD050AF159AD -14EEB42F95E84E50E2F70A9489FFF87E3EAF6A5CA35B64509824D4F99BF0CEB3BE7E26B7FFC5 -A16E21AA249C7E7AB1D63393DB4A3A1206BDC026F879BFBDB4BB9FF4B7B69C36EC2DC6ADCE3A -E1440D5DC3BB9189004115A30CB104D07ED992D320523CE9EA2206CAF08262F2277A4A14D8FD -EA202CEC45293BC7026BF393B7E603745B526280E28C40931BE24D5B09471C83FC76C6B9AE41 -903685D36AF67D6F0C9B813D176A4377E3EF8A29F83E0B457B20BD24418A6231965FFC0D5094 -18FFBE21FDE498957CC797FB56C0BE6CC18513CA07695EE9B6EA6B583ADF10E15FDE42B99032 -283934F29B41B8C784B23065513C1D0A56538B2BFDD542F14DC9532DC0FBD4780D9AB528C39F -006290B9A8CCA5E4077D48EC7D1B8DE983766A500394B5BF5F07BE2B13BF3D7C690A82A298CD -8107D08039EF0444D00001E2D3FB2A97C7BDCBDAB01AA94B44FFC432D154876306438124C9EA -B28A8DEB4547F69D7C2B3F6AE498261707CBE4A279177819F8BE6FD3825FFA8D98F754B6965D -2708C343888B12C2B28A050B50186F81191944EE04CE31AB323AC4F2F359E98873B36E7BB5F0 -EBF31FB5249E1A6325C14EAAB8D025D8CED3197F6884BE5B11753776F41BB016736AA8C8E4A3 -0127774A730EB2ADE964C5186711A3438EDA0F92BAF07E3013F2C611E5D7D2C7CA4D21BE2235 -C51FEC1FD8B17BECC30A82522C6BCDB7CD6FF775CCF852C9EDAFB17EDA2552D45B7D617C24AC -2EB7DB101206D0A2C1877FE94A9CC450EB76A6754CAA9C640E8AF1BA699489A9C20A08FD2BCD -BFACF0F3465BFA656C08344C437F555693D7B631A684DF44D642AA05C4A8ECA4DC594B7F18C7 -BB02385B46682A77AE2D9E7833CBF18846A20FDCBE27CB86AB951815AAA93067E1B1FD0A71F3 -34006BC3799CABBC1D707A2213A17ED7B8FC38C0FD22F3E96A81CB84CEB38E3E8B63DF0DAD18 -C354A9DED725F3ADAFBC1BB254F984932F4F47F5D25D1D788B72AAB104AEC40EBE1DA21A5057 -2EDDB89641FFF135888DC9E346440F5290A6AC9A1E233FF3A5158E5D6B6821E8ECDE57FB0FA4 -18C6D1EDA2DE34D314F509203D3BB340D587C837C64A9B429B238BB215258828D9FCB797F3A0 -23A70D89E2D273B3BB04A75A87E287BE5E04A008F89B29FA765A65A716C9DF7BFA7B20B73251 -8E990A64E720DA9D155CA8A49259765071382AB098DCBFBEB3D7C73DF77CB9DEC2AFEA35BA77 -D737B9F49AC9A96BADA9ED6465C86C4DC181F18C2A0B67E8BB219581E627CBDC03E12C16EF9B -44488D58DBD6987F0F4E1991BA47C25AC3DC75E93AE7CB58D3B5A9F083DDBA3EDEB033576E4C -FE3231F3CFDDB3363BBF77A4288415447C7C3E9B30A618CBA512AE6CCEA7281D75F039FED12D -CF940BFF5C13DA6C7F5D60A1F98ADF606693D58E2252390F6C2DCC368C712702321741B16641 -75875E2DF85D066B0F25BF64A138C429B22078A7877E82237E70DBA963975C5DE8927BDBBF51 -B3604841595DF8A0B261510F174820C40C3E4392FE60FB1361514398B5C4F5430A4A4DB823C2 -4D9A65C0EEFBA1A9FA0C448DDA1DDE2FE8D3E4902CBB38AF4DFA959C66406DCEBAF23C327D4D -DA5705820ABAA2F66832497058543A75CAC5C103E713BBAD60A80F427D928295CBCBC3EFD4CD -AE05C3D34A3D435EE741EBF30495DD4917E46D46BEAF19213628C4F680D4592D9C66CBC7C45E -EED59017ECA5DBDA6D250ED4CA67CA89C1FCE1E2242634C2A21375518851DB79F164CB2395C7 -26639B845C0453C3CF7557DCEAAAF52E33ED390F944C3BB47DC323733EE4FA6CE2E0CAADABCD -EEBEA258CF938C88B3C389DB2F7403CD19A5B8CB71218E749E70BE3C7492139AE3F8B9840FEA -19CD36CFB0020B11D166DD35F137688C89A1E61C62EB0FF452689F2881863037D1A60427F445 -A0775935D2DF7D8C001756AE9EFFA241D1D2B4D9C62BB685B4589173426D9BE03D2B03C30DAD -CEEFE8D2E90E37E235659E135A97E005C687606EFA555B036AD5FD81B2EF2A4D68EC8161E0D4 -34885529C14C4174DEAE63499E55975F8425037C0CC91693EBBC5C82D0041B1D47AEB433828B -6ABA9ACFAFF096D2A1452885537FA9B9FE673D05A31566838C4D7459D650C97E000CA7FAACBE -1E8ED1EC718DEB823E8E1BA5B8BB3F6165335C2E866DFA99A110941BBC3F9C1EC194615CDBF5 -A921BF572DA124D2BD61A2B6D974F01825BD76085C4C2A33EF924DDEC706A9FBF40DC572C392 -E961B46DCC117E04537FF71FA9B630AF6CF92EB8613246279BE0B9A2A21110D89ADE255AE222 -17626AEF8A48B9700C1D99D96447B713694AD224C9B205CB2AE65359B29A14F180897C465CA8 -DD3FCE407E86BC5EAB37D24741C4CF66B4C0EB7F34DCDAFA9882C29B79EF34BA6CB051145516 -35D0456D58D8C98ABA0F92A1CF23B3E3CEA1562026B2DCFF6836956ACDDE21CE86926F8E0C2E -1D1AB3AE74417AEA5B819EB52114CC8C122F904B142A5CFF1A24A6CB4C0B16CA5D137C4B7AC6 -0580CF538A575FA6E503FA63C55E02E90F309A7BBEDF76AD31BC6A1264A8EA9FEC9C8F7B2D8C -B85E5441E3A478F0933EB1BE595C302B8D234562E83058A73CC6F3580BCC99E50A8DEF11E5B2 -EA3C2EE3C5690A42C1119C913D3612C9CFAB9D17880C3B271B5FAB5A649D86D597D08413C06E -D9848A2744F28661C8BEE43F0B0F2C4D8795F80EE1EC7057F7F8DC5C40A81786AD402F67B19B -73B98B60C03E5F6BA38A2CA38B490BAFC011522D79D081E66EC40DC61D634C80D831D046290F -91DAAB10D06A46F4F8AD5DA253D52FED9A818B19BCF0A766A8E221D75FDBEDB380BABD77A360 -5751FF0DBA7C471CBCA0DFCE46B237CFCD660C5A106F2061ACEA3B7A181BEEC37AF3FFDDD03A -C673185C89BF3E8853A5A0E3CFDE8811D313A5BFFDE5BF7C2506AB09BC1F448796BEDF58D7F6 -58FA041C307348E2E8EAA767320D7BE3C17078109626B0F6200C740CB7BA3B5E651148551455 -C8315220A7EF403A653E57DC85D73D6D38C32E9EC9BB5DF0BB3691093A74AA29C1DCA533B5F6 -CEAD88713B289E127C065E9617737A2C2204E6ECE1F05F291390AE8E8AC43978C53CB8D0402F -840924BFBE624D1DEEFEED3C7AB8AC9C9422069FAC57343F50B2966B3BAA579467D74C9E7B61 -0032B1E3B9904164A94897F6B67DEC93F229E74B8303412F6482DE19B9A2AC6994EA84CD2EC2 -7F869616F57D37C88A6D57FF62F3696AE7C9763BB8543B80BDE64E9ED1BABA93DB1F5C85249D -78C4C0AA1BE6DEF55367FD49791F83B3C90A080C45C683FD744C5F61136E3FECEF0D0DCD6D53 -6C7E4E5C940496385952E5521A2B12C1A638A4B03DEEB8610ADFD756A88EC20B58348014E757 -7763A9FA8F120B9B0ACC81A85E4C5C4DBBAEEE687FA3A148E0DB9739CF17438A7F87F3F62FC5 -B52F75EBE57A1305BA0737E34795B71D268F58419C355678C6D6A3F0619F2122C9CCFB46FFE5 -A2E75424257DC257FAAFE402416205781F4A31A13A2AC579B83DCE39A1469793AD11C644BD4B -E9F4DC35098DEA7E69B3170FBCED858AF6AAAC310B66FA5E59B53CE8AF13D454074E7BFBC05D -6EA515E0AAA56946C5394E6393BB70A7AC9B2905B902AA804AA3E223F2902B01726C2A8A79A3 -F8D048C52A06CDF73861F5AA87718028A11973000C93FE95475D4625F0556787B430782E24C0 -C48FCF6B0BA91CA594C5D6D2A6C3A6E9F383E3BBF5970780E656A929CF6897F8B73C3102BE67 -94AE60D6D7268CF1F91113A81A1763E4217BA0952BB4E0B49D250EF35BCC21358A1E2E5F2DAA -30DF89A0B8CE69639483D9C97A73616D61F87CBEE1C6AF89E8272AD0A8C43BE2AD2E0BB1F0BC -0F9DA06EF15F3A90FA3AAF161F8A4F0ADD4A0D937EA5DEE197B7BA923B9B1CB39A6AE27D232A -361060B3AA3DAF8ACEFE93AC7CF0FF20B9A4C6C4F4D3E9BABB6E96E0E489F6A8B1C59CF6F42E -FFAC975251B1858315288B3C48D424C58E6A4376F8033ED79B21D6EE2EF37FF1B72A8B4F3951 -1B09F2E307B39B01074D76A35F19891EB85E2AB35828D7F57AF37067A6BF1D0A07C65D6F848F -65561ABD63F0BA1B5224F1DF25242B9AD535DB1BDF97BC607A2072488B1B0FDC2E2EF2A44F89 -FFCD2591508C78061A8E0F3B29F30085353A7DAA4E3477C44990BD0A6D9AF5BFD3F8C181FD1F -6DBAC524EBAF280340CE725A5D07453C200C37D3D3D0859B6DC5E0980000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 - -cleartomark -{restore}if - - -%%EndFont -%%BeginFont: CMSY8 -%!PS-AdobeFont-1.0: CMSY8 003.002 -%%Title: CMSY8 -%Version: 003.002 -%%CreationDate: Mon Jul 13 16:17:00 2009 -%%Creator: David M. Jones -%Copyright: Copyright (c) 1997, 2009 American Mathematical Society -%Copyright: (), with Reserved Font Name CMSY8. -% This Font Software is licensed under the SIL Open Font License, Version 1.1. -% This license is in the accompanying file OFL.txt, and is also -% available with a FAQ at: http://scripts.sil.org/OFL. -%%EndComments - -FontDirectory/CMSY8 known{/CMSY8 findfont dup/UniqueID known{dup -/UniqueID get 5096649 eq exch/FontType get 1 eq and}{pop false}ifelse -{save true}{false}ifelse}{false}ifelse -11 dict begin -/FontType 1 def -/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def -/FontName /CMSY8 def -/FontBBox {-30 -955 1185 779 }readonly def -/UniqueID 5096649 def -/PaintType 0 def -/FontInfo 9 dict dup begin - /version (003.002) readonly def - /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMSY8.) readonly def - /FullName (CMSY8) readonly def - /FamilyName (Computer Modern) readonly def - /Weight (Medium) readonly def - /ItalicAngle -14.04 def - /isFixedPitch false def - /UnderlinePosition -100 def - /UnderlineThickness 50 def -end readonly def -/Encoding 256 array - 0 1 255 { 1 index exch /.notdef put} for -dup 0 /minus put -dup 1 /periodcentered put -dup 2 /multiply put -dup 3 /asteriskmath put -dup 4 /divide put -dup 5 /diamondmath put -dup 6 /plusminus put -dup 7 /minusplus put -dup 8 /circleplus put -dup 9 /circleminus put -dup 10 /circlemultiply put -dup 11 /circledivide put -dup 12 /circledot put -dup 13 /circlecopyrt put -dup 14 /openbullet put -dup 15 /bullet put -dup 16 /equivasymptotic put -dup 17 /equivalence put -dup 18 /reflexsubset put -dup 19 /reflexsuperset put -dup 20 /lessequal put -dup 21 /greaterequal put -dup 22 /precedesequal put -dup 23 /followsequal put -dup 24 /similar put -dup 25 /approxequal put -dup 26 /propersubset put -dup 27 /propersuperset put -dup 28 /lessmuch put -dup 29 /greatermuch put -dup 30 /precedes put -dup 31 /follows put -dup 32 /arrowleft put -dup 33 /arrowright put -dup 34 /arrowup put -dup 35 /arrowdown put -dup 36 /arrowboth put -dup 37 /arrownortheast put -dup 38 /arrowsoutheast put -dup 39 /similarequal put -dup 40 /arrowdblleft put -dup 41 /arrowdblright put -dup 42 /arrowdblup put -dup 43 /arrowdbldown put -dup 44 /arrowdblboth put -dup 45 /arrownorthwest put -dup 46 /arrowsouthwest put -dup 47 /proportional put -dup 48 /prime put -dup 49 /infinity put -dup 50 /element put -dup 51 /owner put -dup 52 /triangle put -dup 53 /triangleinv put -dup 54 /negationslash put -dup 55 /mapsto put -dup 56 /universal put -dup 57 /existential put -dup 58 /logicalnot put -dup 59 /emptyset put -dup 60 /Rfractur put -dup 61 /Ifractur put -dup 62 /latticetop put -dup 63 /perpendicular put -dup 64 /aleph put -dup 65 /A put -dup 66 /B put -dup 67 /C put -dup 68 /D put -dup 69 /E put -dup 70 /F put -dup 71 /G put -dup 72 /H put -dup 73 /I put -dup 74 /J put -dup 75 /K put -dup 76 /L put -dup 77 /M put -dup 78 /N put -dup 79 /O put -dup 80 /P put -dup 81 /Q put -dup 82 /R put -dup 83 /S put -dup 84 /T put -dup 85 /U put -dup 86 /V put -dup 87 /W put -dup 88 /X put -dup 89 /Y put -dup 90 /Z put -dup 91 /union put -dup 92 /intersection put -dup 93 /unionmulti put -dup 94 /logicaland put -dup 95 /logicalor put -dup 96 /turnstileleft put -dup 97 /turnstileright put -dup 98 /floorleft put -dup 99 /floorright put -dup 100 /ceilingleft put -dup 101 /ceilingright put -dup 102 /braceleft put -dup 103 /braceright put -dup 104 /angbracketleft put -dup 105 /angbracketright put -dup 106 /bar put -dup 107 /bardbl put -dup 108 /arrowbothv put -dup 109 /arrowdblbothv put -dup 110 /backslash put -dup 111 /wreathproduct put -dup 112 /radical put -dup 113 /coproduct put -dup 114 /nabla put -dup 115 /integral put -dup 116 /unionsq put -dup 117 /intersectionsq put -dup 118 /subsetsqequal put -dup 119 /supersetsqequal put -dup 120 /section put -dup 121 /dagger put -dup 122 /daggerdbl put -dup 123 /paragraph put -dup 124 /club put -dup 125 /diamond put -dup 126 /heart put -dup 127 /spade put -dup 128 /arrowleft put -dup 160 /space put -dup 161 /minus put -dup 162 /periodcentered put -dup 163 /multiply put -dup 164 /asteriskmath put -dup 165 /divide put -dup 166 /diamondmath put -dup 167 /plusminus put -dup 168 /minusplus put -dup 169 /circleplus put -dup 170 /circleminus put -dup 173 /circlemultiply put -dup 174 /circledivide put -dup 175 /circledot put -dup 176 /circlecopyrt put -dup 177 /openbullet put -dup 178 /bullet put -dup 179 /equivasymptotic put -dup 180 /equivalence put -dup 181 /reflexsubset put -dup 182 /reflexsuperset put -dup 183 /lessequal put -dup 184 /greaterequal put -dup 185 /precedesequal put -dup 186 /followsequal put -dup 187 /similar put -dup 188 /approxequal put -dup 189 /propersubset put -dup 190 /propersuperset put -dup 191 /lessmuch put -dup 192 /greatermuch put -dup 193 /precedes put -dup 194 /follows put -dup 195 /arrowleft put -dup 196 /spade put -readonly def -currentdict end -currentfile eexec - -D9D66F633B846AB284BCF8B0411B772DE5CD06DFE1BE899059C588357426D7A07B684C079A47 -D271426064AD18CB9750D8A986D1D67C1B2AEEF8CE785CC19C81DE96489F740045C5E342F02D -A1C9F9F3C167651E646F1A67CF379789E311EF91511D0F605B045B279357D6FC8537C233E7AE -E6A4FDBE73E75A39EB206D20A6F61021961B748D419EBEEB028B592124E174CA595C108E1272 -5B9875544955CFFD028B698EF742BC8C19F979E35B8E99CADDDDC89CC6C59733F2A24BC3AF36 -AD861319147A4A219ECB92D0D9F6228B51A97C29547000FCC8A4D80B73E7B6CB75480E1D77FF -C695988391DC44AEED8CC947B3D7E198B9620E2238DB3A2819182F0314498B8CDFBA48926DA7 -21920B221FB33BC21A8456AF10891403501D0F6415F07E041AFFE109F640E54FC1A365674711 -EFF94E752652A4C8DA62CDB1149DB8992C4A4BD77A06E81E93C5698C05DD02F74A0756082738 -BDB53003B483752AE498DD718AEA8F3FB5A6B7E2D2AE8F309065F3D556F9A34AB90C88833A54 -295E0982209C466A301BA3372AABEE20D862C6DC6B6FAC1463C8CBA8AD766ED1B4C9D7122BEC -B4E6ABF558D8AB5281C35726BB8D046982C0DDAE17BFFC9394125E4E84C0B283977D31460BA4 -8C54509C43FDA80274B0EBE9C1D5AB7FB4F19EF939B10F1D6F115D580F8C7A3F631746255A1E -632C41FBE97F1E64F672E3D3D0AB99751E07BC69FE1D54C9745F0B28CB1F0D40937A616908B1 -502A9921941FE70A56E3BD3438B243C08A195553B32F18560858E92108B2CB7CAD5FE4045CE2 -6B6BBDB69599D5BEC2BD2DAF9CF5E912622E90259B896D3181CA6BC45CFD1D81B7EBB88FE64F -B9F5E51982BBCE745EDBFF3C743512D23C151EB44E48A9BD1C99DB1B0C81E1139261A642AD01 -9FBBFBA94600DADC01216F010971ED87B606B9E9A3B5CCFABD2777FA76B1CD9AE623DDAF15A0 -08149518F9A268B25B4C6FED7658238A146FF54C3818ABBD02393F42F27B5E9D504186BBD082 -3575C4732C03A28C6FB6C152AF5AC2152BC4CAC96EAF1DD64BFB58EDC38F17E21E6827F7AA2C -FCF7A8FD9E1A6C350C8CBECC67A8B6CF445B5821B5D4E7A3207715EF645680E9EEDE951558D7 -3322AD1AA8B3C43EC0964C8DC44F5395C0462E9EFB4F011B3CE322261C6A37C2BE689DE72ECD -976A1847E5B71D7F3E70C401EDC739655581DA0143C9EBC53C0D43380CA6BF5D72927FFF3044 -23042CDE0FB85439EB20823978912CB8F604A19B28C0A4D461A895AA720555887C10051D6B00 -F04C43FD724C1C66EA31764379A17B5535298FB32732A0F31FDE848C6FF8497433626CE84A33 -6528935D07777AACBE751C6C5696C929CDA651BFC4E073C89A33821C0AB0D4E3A182493DFAD3 -0FB53F7C7B4617DFFDD02DFDA21F7DC71C3F8FE31B9E2D9A9EA2796386016ECBAF971AED43E3 -3B731C9D19F448052E0E56FE85EE37F4C1EFB6FE3530D03E0D114646CFDA21B890AFF757CC81 -5437AB387E7F8790239EF2654F2263AC4D364DFA2C28D190BEC7B31C1D938421E5B9C77D3305 -545EB634FE2C5F25EE2FEF65E0E19508AAFED1BED362080910D14C5677C4666ED1F6FB81430D -A820216DE33AFEC9297C347D5BA69921469ABE714EEB9BB08034691DD56F5E4DE3F22B08D448 -5800A4A8DC67566160F47A13027F3FA0207A4DBEA07383BF49CC7E60736D3409B5608DC4C25A -97E0DF02E6A6D1F7388527CFF8D89A7C98136699D50A9F9471D42B1D6F45EF98EBE41357E310 -E94A1CA65CCF57CEF197AB66B6F75763719E4D4179F279832BE007AE0A4C5073D4CC4F5E120E -9B26E3F10D0714E748D6893D3D5C5866DFBDEBD902B1B3EFE1F2ED62BAB179E7BDB707A3F91A -B2A7926A4F3C110BBFD0EA4E5020010A1A0E101F161FF627188441FD04208EE6A304731EF1AB -3327BBE7F56E1A09408BDDA564110C9EB48378E3FE5BF5C76DB516E8A4CB5C43C9C8EE7E7E57 -C413DEAAB4EFCAE557ED66656EEA8A1CCA16EBBEAD8EEB0ADC6B2332ED275F9A8D7F16504725 -CAE7A53936B585DBD1DD5E8A902E77143BAA6BE6298A86D821E16619760C83567D19437EF3E3 -C8BFB6DB66115D7D283E79EB56BDC5041CFB6C330E94187C33979C0A0DDEB353D4F50FAE0EB6 -87498333E78284D542672F3BE0813D379B384BE83A11A8C0D69B4DDB541FA22C8E626CBAB920 -AD70995AEBAB6DAB0E2A2E3108B0321F4B1C85517229AF62C225575F0237CB8D25C77F5C5192 -0133941906A78BC0A17C58529B3C63F83A93DDA9EC5B10305014F48B923CF07863C86AAFA637 -501AB84AB5DD719C0E5B30726207082B0466614B4AADC4A63F89AA827A9E8C80615B025E5C16 -F88AFCF23F76CD1DDD0A6F8697FB0B152B18282291AF9807D6F66323CB52D8335D2C425AA521 -61EF2CB21DF07B113ACDF2941F1D575F3240C57C4F6C7EF2D8DD1F73BBA8D0EE9F2F8D8D5894 -23A7A0CB5F1218A51B8813DF5B456ABC5814EDC7DDF64D40873C37AFA38290085AAA62EBE864 -21F442E1106FFC60BD37366E51F289A675AFA96AD60DF567DADF9BA36EA8E240CBD539531BE4 -8CF37C373925DDA97621063D1A072740CCD6A8B2DE97FFF642E4166072782111E956BCAA3E44 -3ADD83BFDD9F8359167CA2121FC6EF8224301DD8D4FF71935E278246414AEBFFE76574643249 -E1372DCA414F4F73ECF590744429A1259B3D5FFD7E5B1ACC6B2A6550E9D25E4DE83A902FAAA4 -D83DAB4C062EFFE7CF3B9FD5E5595648CE50880CBE18A7ECF2351EE77BB79EFB5F3C10D99D5A -A20C9BDD508DDC4D0B5C53E3765E97574D88813C8BB9FE235CA6F965DAE3D6E0F3A930B6E3E4 -8FBEB0A16D07FBB971D2BF10E6D6349CF57EA9F191818E565F7F75CA7913D265DD6663D92E7E -2343D835D7CD59B92EA281AEA85C1E931A4C4B5B487A9A1FF56C1B4C444927BCA8838148B1B7 -5DED8D97461FDA12DD96C90DA11EF2B57651A41E593362F5FA13969BBE5772A6E8599D30D17D -DD9CC5D635895E145520D637CAAC234FB2B9CDE8962DD19D983BEE493798EC822440F176B15F -D8F44CE2973CA8F885B9DF7C6D423429470334E36B95E2FF0EB3F1FA51C757BDD75F4B2F87E1 -AD51681676ECF4A2792CA1CDE3102EFE11FEBC154E9398FEECA566E62F620BB09BF2397BDBA7 -A0987320496265635619177BDC265EF0718505327364340B4E6E7D7D152A3B740A624141EFD1 -156B5258DEEC81276E986325214DA6C914C8D8823799044D52129CBC897BAAAD95C4DBF74792 -E7DD1B6CB0C9098550913DA3A12CC1D392929009F15DC0CFCAD6E0947D6835AB42DBCA0E4C74 -EDB15DC77B741CA937BB7B83363E7A0991AA572C133912B16B32FEE3E85060CA313A93F7A149 -56A7E407040CFEC7E74EC045E3330BDA6757E661C47AAC21FCBC876A5E69456B02CB5466EC36 -6A3870E0B9D82AA65DA0F8082D3CF985B9160D7EB9DD4C3D85FE2B4E8D3A0A7C4B4D566799A3 -1EA22E39D194608F05943ABD343772D3B224D26610BAE41C12647B606665DD84F22F4BDC27BF -20B2BDB8960CC95B7B672553E3B6738620B5BD153627CE543016D3D606DAA7FFA12CAD37AB08 -870C7D692753C7A6A89DD975CCB958E60300B1E72C9797840A2476F57C96C11639F7F4C2025E -DD776082BF76122E67349FFCD6A3CF8BC0C9BED0D45E229338627CBBAEC06991AD94AB34A28E -EB48E3186C168B1EE251CAA32095428D622D0E91A9C881148C1E4A806CDDBD05DC6C17E44BF7 -9F436B7B1E7BEC49791A072280CE1AFF8AA5388CB883C72D7D5509EF65C048D3286A34829ED5 -D2E0252106884F48970FBE05EEB6054C1647DB7E0A45DB09B0A6181D28C04815F8EE265F6147 -E8895225754020F2165842C2242983008AD37FB4431120C8D81B3507E917B80B0E3E273D23DC -F9E1CB287BF6FB0765E20D9F0FAA6BF7B15E97273BB8D3D4D4E0294260B884B5A20D2A606B6D -6D493CA72E56CAFFF3D8E569220221E1DD9F78014DD592A0066516D35EB7F5B518C9A6440473 -884CF2013AB255A0E0A291C34B68BC3BFE9B5F0FFD6DDB74FE0D2210FE0F1A096FC26BF9338F -B52182CA37EF3658C41359019423A7A0CB5F148580BE8019823B3038EE842D77468819D5B619 -BEE0FA3E3D6D372920547A8AC6A763AE0FC11B718ED4856701169B8733D08D5BEA726107693D -50513AA0204B4195D9B878F0CC0DB50348EA7161838EAD092B9A9F44E7A1E63FF4E1C4D86EB1 -AD24A00F3CA93617B9A3714783867787F2D27C340CADE07534B3E2845E09B96BDB43639C0E11 -38123C368FC6BC3D0EAB9E07736FEBDE0DB0BB53BDE0F8C724BC8FE11A321DD3F5E3E9411F7F -1C60C35080663523B0276AAB092723BF2091CD26FA14E3A8166593E43942115A6604BCF9FBA5 -05D52DD3A6E85E97F4B32A8AEE4C0AB9952B9165E671A7B6B150359F4DE3A7FB8C107B04EB0A -48E1DF9AF33851314D45644160EA1AFA5999F96CC4B5C22DA4028224DF5933A164EA6E8B1948 -3E0D3711B1B746FF72C52B5E277C943278AB7B6593558F9FFD97BB7817F6A411335A41313330 -B08D30AF5761156463B6F3F26502C864FD54919EBB0B02CCE402AA717048EC753A03DC0C2B79 -AE7FB49A2548335713B67EE3552F08A66F22C364CA2D18AEC83DC0B5130B9B03C48272D9EAD9 -7D9C26F1E01A4962B31CAB6E79D846A145F35D04E3618BD0FED3E040226BB23BA4B011C15F51 -E8FF34583810140E5EEC90F29CD3A2C987E46ADE3100CC938193C98F6D78D2B716367A58DD90 -18AD6CA2E76B7F9829C03B69C13036F609ABD1865F4B13FA1FB3ADEF31036B69DFB4C3F51D4A -1FA5F1E2305062DBA15273B2945B2918CF36E57C95A03E73D2673E30D07FB6AFF80FD325F80D -1A950C7C120D4882DD63B5B3B2B70A3CCA1B7C1DFB09574401864CA4D8747098AF650990593B -F810CF16310783EAC06D380C7AC09F5F69493148961376A2FC127D5D9A63685DD4534B7BD02C -DD6692DDB12FBCF5F848929D06A61A2CCA689F0675126B16B339AE7FFE3840E7090301B44C2B -9FBBDEB55F5ACE0BD2D78D8B6BD5838881F0F6B22F55EE48505C13024DAE55BD3E3611E3D553 -D5DB3D9B3E39BF06719B5F9A35EAA118AAE982F7E9ED6A11D880A9D26B41AAAA6D8F81D27407 -A44D48CF1861053F6844C13159F622FB7734F889D0BE34ADFFC987B1A97B8C79EAA64B2AC88D -3D12B6AAE2F2A972896221BCA1778B785AD555D5F848DB42EF9D17BD65198F0A026E78D0BCD7 -BD33B25770BC9DA311B631BA5B8F125A5A1124F1C7B547961670C36C8C6B8F5BC7B2E1EDD8D2 -40000222DCF2E5309B73123B4CF28819A802D210795E830EB7D89FC57AAF563FDA5B92EAB1D1 -3C38FEE35D7F5496F4027CD700FD32080E25041A00491CF8ACBC7F4D3A9FCB150D1FB8B79495 -6BE7FD8B1CDE9944C05928DC5264D56127F3053CC6E8792EA11591423398DA543E7EC9C8E5DC -4FADA3AF0C35783712340EAE14AB146A21FA6EDB715149D7E6E1D79079A84DF374A758CEF5DC -E42FA47CEE5481F1BF3D956AA3EEBB72C4DF50441EB147C012780D251FF14F328FA92471AC52 -161E45FDD19C4A56FF865C201F5B2DE4222E764341331C09DE41366DBA887EDAC22FE977E98D -8530870BD59412B48B47C96C2D0D54C18D29B815C2C4493D196722AF68A4765E19643D21FF75 -92BEB5E16768266BC3308F40A7E92F4973E068CDA3D106AF497E68D0FDA189E77FC088121CC2 -4726CF4843F7AA1B812341144511F777FDD08EB4D6041121DB9F125FFDAFC5C21C0E19037EDE -65FE6C12110C237A0E0D926C347B099F3495A965CC28F840E4FD8B27D16CED6F8A454B9850DE -067B5C3D9C723D9A5A6BC33D1B16237A35E0A3E9858943DD336AB30E52BA04D87489ED8E38B4 -6B812B7BA8CB5CD9FDA279339DEE7482B0FE2E103389817C3D92886F2363D91CBDA8DE65CB99 -31B0884510860CBE6692BE40AD021F74612866740B35EDD68BB0CA605AFA1562FA3CBDD8997D -5069E32046B586D9C2AE1CCB663F95B486A84F593FF04B16197D8D51B2B0DD1D90794DCD478C -498A202B21C889F9A186D04285839E5A5EB7F935DE3B3ADEA3482F201C2AF477F705FD13DE44 -F8AB9A47BBF4DDEB4F3C921BF74AE8FF78DBBC9D530115F99AD44A3E0166653A21358CE9F797 -7645AEEBC575FB0EC4189E9B3F93BC701A1D5BEF126EF3F56DC3DD77DF8955F75C0785A520D6 -A51EDBBA8C2991B0A21AE205E06EBFCFB8082C9AEE2C24C956F39FE841B5C19517CFF847FFD1 -C2A38C82CEFFA490DECAC789C4974A093522A0E50302B136527831FA46CE7CF214CFF6C5650B -D409F54C65F942D1AF658B92C94846A9C7491E38F01EAE0F90E7B4C4E85C466CA42B084A8D24 -AE2CFAAAE744F9695F9D2A12A6AAC8777D6A2E19D1227C6CF3984795D0E414BF4A4E2D40635E -260BE80EDD64A82C5E74D019CF86E89E1DE9ECD0CAF2D94813C6BBC35F7EA01E7A115F2B7EEB -ED113B0229326BB2010219C8ACAC1E869F9D1FCC5A518499B286D39F62AF42E7209056D22670 -9897FA8AD671B461377E330CD19628B5F86A5D0F9365D8ACE0C543D2564382BFF9FA39B2C662 -B986F710312DE9212FEC64B87BF67F046FA24973B774F533BF655CF800B00E7906CD6AFCE224 -C062696C926F9BD48CD1B46E7D2AB92EE531C7B4AF8C61C9C5477931A67201C2990BDD8DE603 -7E2F5DA0A5FF116F57EEDB599519B69DFDFCE275A8C007A53D29DBB58E42FBEEA9525E1E0D88 -631A3FE0102508F46716FFCF7DE61A46DA6A2F2915B0CA7457E60F226CB76F1A847152452F5B -96365D374080EAB6FA4A25F491B86659BEDF0E1620BB780A27FD3A04084B68A195442B51909C -C1724E52196EF46672962C6869E626E9B591C03221AE5B29A6ABB0515C87B134BE34C0D5D2D5 -F0D113FDBD906166B2C8337947EDFDEF03E3EB7B40E49C3366CDB0A26FA7DDDEE492339A3C5F -8647AF875CA73C8032103A3637220F31109518613FF07ED8552858A68F7DAFE88E54997CEB32 -2ECEBF97EA3344411DD2695804B4072EE189430B5F217F200A0B231F8AD84B18325B35A68A75 -DE0B7091764F970D583CD5D0E4C2CDBB9817DCA67AC8ACA4C0DF74DBB2BE545744B703204937 -FCEB48CE5734F7D8317486090677FD34946C1EE7D71D35BB40A2F5BDF96149780E75949B7340 -B2B9450F39111513C6240FAAAA19F433333959A70C18E8087F786302B6D637886B55EB18906E -D1F6E8681B552372287C3C86D79F6EA4BB0D1FDADE94A33B2AE3165836E5BB3F91B2DED0E386 -B8304D94852AD72C9D3ADA2A39ED9FF47011014BA5953DBF0CE569159FEC8F11B42EDBBF0B7B -8E28633930A71408B0474773FE33B38C593E209F793A23F07801362CDFF84F1F0F061E16A5FD -9ACC2D7AFC7FECDADE3B9744AA20D3FC24B440DE6FD072224D6F3D6897337C8194B9CCBB6CAD -BA5FBBAB33887FDCA942D46A6AF9BD720DFF0A7AACD10106F1AC5AD013E836B7B084F3F373B6 -0FF180CDAA74332A5761B6CE2F40AC4E0F37026B5FF15AEB649E121F4797D7BCEF96FD44456D -84EA64BAF0F4E9A557696E61819995C84C5E4752A8FA632A30EA35C29DAC3F22A77C6F7288D1 -7BB2AC30D15FF7E1CBE7C2224BA8E0FE348988352F7AB442E2A0CC01C235914F847D1D998310 -23CE1FD89EFEC83AA7E313131C0C197244B16C9422A86DA9F5108E51850E5BA552729B8BCD5F -D0E6FD6C4E4212578813498363705D3DC0D22B8A9B9359CEA826E1CD929BEAB754DCDF9DEAF9 -652EE3E434DF83B888598ECE73D98E94FBEEDCCFD3E87B94E1A458D421435A0E5FA19398E81D -BA38669820DE1F9DD92607D7B8FD4F1C4E5BE5E9083F2228A9DF84B84C4456E9BF5995D70906 -4E55CCADC86AA8BF34954675572EC33819B531A124373A56C6FE7D907D6577104F6CD1E56B59 -F135072BC0B6C22F2C3E793B9220A659E44717F02156BD099F2B35842AF2260515B8279C954D -39C6883419911DBB9A044D0074F36E77BA42E7AFB41114CF65226FF4C34AA9682559E4C20688 -1B58EA640A934223A46C1817A4F02A0332D4983EB7D654926EAC67E39C570DC7C507BAB3555B -26512BCBD07774642CBB01A1CD226A6F93EFF19D56C779BC2147D5703E9176D347395681D260 -7BB4E0A1A7A244D15A93604E89803A9E562E03D4DB0D452EE6690A8CB7B10022545CFE3285AF -EDB8B5204FEC15DAF875C21ED5B60682F4DD99DD79D322DFE2ADDE1D278201E415739F257C9E -CB1D14FDE374DB1C60338563A8870B4E6EF25EE411B6FE3380C78DD7CFD0A1D3F3212BD35198 -91D1E33D7035E50E7E2E4D2C10BF245BE198D10E75479894603300E358B3ABCD91CFEA299834 -BFB2FCB5C9D08C668392C36B09E9D28B9FC63F2989AEA7AA02FF467F2D39D45FF3F928E5DBA6 -8311C5658C2F131DCD25CB1F05ECA72D6DAE2C3C67CEA6A6915C7691B72AD442BD4A3C85A31F -8FB8527623E460E5F712C38F3AE9D1AD919106A4B50B237FBCED2C3606771DFB75A9EB0019CD -EE8CD6A9A866976D7C1FE5BDAC8566A883192F4BCA41F9CD074DF497A0A78C6286759CE76187 -EA1350C84F0ADD27D50DB16C72F7D240D3EB76476C0F657DCE842DEF5D3E7D975D806E401133 -7C608AC16A2B7E3B1C2F7F01AB6B19DF5B3185A8F212103BDBA39084D93B16220DB713D299B2 -8E138E2DB585CAA17F17BB92C0BC289B8FA24DB24D98F1478F7E817C01AD163E952911888226 -C1471BA66C8EB508D8EC09911CBD9A6131A2A7802093C5668BE1D5526E43E63CA7DBAFAB6E54 -4C30F3AE4897B8CC595ECC2C5954641FD60725E18E2BEBC4FFEE9E132DE2FD99296583EC86D8 -5E0EF20062F5F39AD30B4E8A46F30B0DDBC1ED616BFF5B8D35B003A2542189A6CFD80DEB73DE -9B2C38B81ABC0D04F3129DE31BCEBD69B71EC10DD1BE79F886394FCB9E616DDC025B272C5A85 -88C306278C6C485D0A6DA431A337BA931B016921CC65104CC2897D3C7162AD7082E15A9252B9 -F1CBA3C947F2635933ADDB06813915F4DADB2182C2D4732CD03E09CE5E61B3A15E894F069376 -589339AA4E3F297A0F2C1AC23882957598872D90CF64E3BF4191F82272F390D91ECFD75AFE3F -BA184EC17AC1A94E38F0C02AED1706E0347403028B24818490F79945DCDAFA6240EE3E7ECC86 -583488CC26A3469D56CF99E9B39569098485C656CC46860A825954826FE2B24EC317E895E59D -9F2E79867D817821EEE00452B9DAA3CE6B2495350A2B99E386723D9CB9BA2A4BB278CF45B49C -2FB814C64BCCE0D73E5DEF603DE8D17B814EDBE2673EDB790D8EA7C6EA97702EC66D4BB0A88B -52B3AEEC1418762DA5220AA72731742B913E0286AA1027C49929D6ED4C45DB44D1DCD069470A -A0EB18F5A605E4CC53BB132730A7CDE65B2C3C91D7D63200EF8750E4CE7E0420FEC748303DDE -D3DF0E31BA2295C1BF444107D51E83E89C75314190CCAEC9AAF4FF3A6CF2708125BDF195F275 -3AD9E691741E902AB9B739AF06A5A2A3AFF79E9ADC4FEC9DED615783CC31176DC860234C76D8 -E825E306852A14F5723BEC204D2F7CED868E44370B307CC2BAADB4AFD3D638D9E62FAFACD830 -D117F89C53727BAB47699E1F1EBE0F04C4EF9F9A12DFA9965B47EAFA0C9BDD142A67366A99BF -55C10720E1D38A0780FCCEC8318B0D4F15209963D4CA4751C51D9760FE3ADE61DEC0EE135D0E -E45CAACF2BD6660854D1D69A6F57F1711734B0EEC6ECFEBCEDAF6A819FA9E1BA88DBD549EDC8 -E549AC81C02A98FB81A8C63A18F3B7092E6FC598DDAE2FA172E7EA5EED3F788B32EF52A6A23F -C52E3AD5D3628B559BC02E2BD532066BD243CA91E7BBB0EA6A5126494D984A9C70C0CB691342 -BF00D1A7948F05A278490235D6267A45479DB30E168E8039B879740BDF33A86194B811E9439B -9DC32A6386C1A7978F714DF671112E6732AF8F27A30138E1F6D8FF1E7B90A26D737B24BA77CC -B23A4E2F9A31FCBB0E253FCAF523F296F7718D2B1CABE23C4647BC6559C01A4FA76D0321E87E -EFB82BC4B4E9B113452C23764697702EED36C34221A80A610A3E9C57C0599D2A3B3F8FFAF252 -BC5DE9FBDD07B9A83429B7FD585401F926360A3637E52557D1BB417F540DF457374CA1529B20 -0561AE861591CF6E390AEFEBC08F2152830DACA8CA3F1146BD03686AEF52988BB5520F841891 -A4AF18DE541B624A36C96896288402BADE9214D70BD5F9FAF61879A3F63C187E83269CE1C52A -1ECDF7A1DCE8ED56E059BF064861450AEC2CB5B8743FE4398561CA13216453EE9E55996BA7FB -2934A47A9F552AA5A04DE2C79D429E924971CD537492C98266BD108F5C6AD52439BC5B9607D6 -F4439AE40D5E59D0F73581D612DE4DF10F3ADD3ADAB5F088711A7F67E8059778F9A9C42D936B -0E306B5FE0A0FE90B44848E230B6F573E6670E32EFDF476F3D382DE84856519CC24AE2D4366D -E90288B595916CB51531A1A3FC47BEF7E4BF9ACFFC8CABC4230728EB1AE550E842EDC9FCDB00 -9276176BA3AA5FA4CF4A5997711C7A06A51C2046C77D17E66DB662F2D54D3B365E0590D197F1 -564F80DF4696C48E764B37A80369824C7A2BB969A938E98FDEF47A3BA18C56E54039930826DC -B6C688D8416F345FE1D7403FE09FA20B3C72759D8DB75ACE8A162B3582B518231065103AB6B9 -D9D0DEBB8BF4EE04C67E822D0AD445785F09FCC31A1F7EEDBF8D3DAF57F56996902EE342451F -81AEDE836FC475248592C2B6418BC45482BE7B25AD726E3AE9687EB7FCCC79751B5676FD562E -D8E19CD8AA6310816A580F64240D2ABA17469780CDCD4BF5720CA972FC360099B1DFAD5E62D9 -BE54580BF89E9FD77DA11209FAA72A277F699F507EDCC0FD672E3C59E0C7692716F736A6D6E8 -5E319AD5A1F95A997EE0D1A5DA70FE34A335BD4295C39374653D20C7BC774F0766C3763C3838 -1DDCF02FD0E77EB4580DB3B66759A541AC93373741C91ABAF67B6913936681399B68A68E5B96 -49141BBE104758B147BF670A5EE857B100E3AAAFC718248C7BE3D0556E1B2B1D63AD82525E08 -8AF2A68ABE971F7587382C7B3096B63462890DF48B134E6B34AC044405EE1B0A96EEBDA48F67 -4A50DC35111377E5634514A6D84DD677A254DC28F5AD0E3F704ABC067FFAC80854F508581910 -70F485D25BAC181A7486B1A7C7B872AB2F649F08DA302CC001153666914B1D1236A09BA61DC8 -B16F0A76D4B83EB173BC7292D473AFEDF2A6C23CF1108C9E6C846F540421C1EA54128B07FB70 -9C24E2AA7CC9DA327320DD371B1DB5D24736BE705390F248E4F13720D1E118423F988044C8EC -469697B08ECE49410C9967CD2D01492E0DE27A76D1D7843578ABD862FCE19BBDD3BA578267E1 -A25B4FA057A5AA6ECF2CE4C08796675FDFB499BC99AB91BB1FF314A8EBE7DA5EC7F5099F0A93 -85BF59BBF8B6454C0A55408AFB4FB66D6051499003571C54A5D79C7D3B2C7895A0FE61306A90 -77C569D91DA8DCEBC7EBF5A8A12E7D583037742C6883B6B78906D1F167D78E36D444BDCCB32D -59E69D84DCFBE65D41C4D644158343E776A12B0BFAC411F48DEEF692F9EF84626A5839B9315C -41E5EF1B9209DF83C4F9C3F46D23BF8CC1823F3017FBE0A26E94B839151ED1291D52E423434E -3261CBE78155D2ED9604422106AB80765B2EADB24A8CE258CDA7FF2D1642E5AD69FC8DEA6999 -FBFDD82849114C8F73211127BDA0F71F4D3D46299721BBC15379AFB613158BD01D1B6865DAE9 -940D687EE44BFB05A1D1827742EABF194C259894D302CB949C86FC7EFCCE49EE18C288C0BA30 -08A692356D2F54FCAD702CE18D25A7D29B052E71D9B69450B496F2D77410D0E9825786588F95 -7D7F19C7130248296F3B9C4C577B7FC0355B256C148BA798A0DD711DCA361EBF3D7936ECDA26 -FB117567B16D879E9B63816D79F894B524C59C51346572CCE9D5E32160CEE200ACB79D60C081 -752503BD1D57A7CDEDD2EA76533176291CF565E7EE984BEEF3CF6CF84697FE2354AA6C6C0C64 -2A002A6A7DC68E69B4EE007DEE561A7B46601B6890776E0377FDEDB3836172514D1CBE86895C -2ECD434654301BF258974E79530D8B3F906F4965EF8495F59D459BEC69A717B68D80614E0160 -471CE8CD4DAA0D499C7588BA367D585B5A5137B4E3E7A3D2A5A845128798E7478D607177A8D6 -D0C441089B3BC778FCA1E451B9C9170E232CF2F66790E24983050DC5FEAD587A7235708D1DCB -A0D5AFC033A00E97CE1C0748424E40275BB2515697045FB1348B9B382C4A5421897390D3F819 -E9070C71A28E85227C700F928B98423AF03BF94DDD31BBD996336748F5C609F909AE146A856A -B96A7A9D10B717A124628F06AA5F29BF34BC052F103C01C2B4DC6E8C812382C6688F71B94AF3 -D47FF15B34A8A2D8CD299B548EDF4DBA4DFF528EBC954D26E3F6230231D3AD3A9204C6B98143 -70984E8BDCB440B3F3539A70F0D5968608E614A5373F1F31F095AE827429DFC55BE71E0C6EDD -AF456CC5D30CA03D46FDA926DC544B7BD14C837D7A0A786AC70E303D0A446E82074468A67DAC -6B285A4CB0059E4778B16BDFEA623F286EFE3529EBF806BF3AA559ADBCE1283C4FBB3EB5FE61 -EAF3179C0E08F2BFF009589619D9EECF9DF3D74BCFF0785CDC888916D72C790E175FA1321F3A -BC392E45E87E9599F0279F6755E2328E51769F3AD9DC469D2EDF20F3862D17E0EE58BF4E0E06 -513CD94817D877FC7ECB36E318D717149D4C010D48542A67131FA7F94750F06BE92BDE47E043 -60D5A23D60330B9CDD16FE8929E33707E068070B1F130158FA16D2668A3B0A8291F093068FAB -F29A91EC5E246BA179DA615ECBEAACFF32FEEE8BE703D0DD5C399F1DAB7560FB462AD69DE1BF -8D530E3D071434112D713D960B8539F2B02040C08DF3C33141DF3ABB3DC1D3A15133573E3732 -948011751C4CE4A09F96AE3405F39E05114A4FC0CB350950C5A7516C2C38B8BF73E85DA10706 -9EF581596ACE565ADC422D66EE20ADEAB58CA9046F8D32F0780FDB7CAF262F451687A41CBBE0 -FCF7D69B37ECED96065FBAFCA59454D57BA1C32A3A0C3C6990DEAC3DEAB30D92EC451EC63A04 -EFD32E91DAD3D75F6FA3089BF7F3761EE01BA33307B7FC54E67F8A9E37F3AE1792E926A3CFC7 -6AE39E5E91DD53FC699BBDC4F2D2CFA3F2ADD025690922A12A56CC2045BF1AC64E07010A026B -56AFA33EC5191C66E44DA1664CC0E866062981124EE9C09D815EE0692D4475D7B7CB49117FBB -4261939C0F58729A5FA44982F92CEC3A29AF5D15CAD1150D5794CFABFF9548F68D77F5C18290 -CA4543CE9244ED9EA0D2B9AC0D04CDAD7EE2C04F2CC5439138E882E19605BBB197E03847049B -E4908FBED8CD6D7F254D7DEEB6133486F0486A51EBF4E934682C50A6F237DBE7E9E01F37FB31 -BAC6F4009B2075E3D44A90E76C9A669A84329804E0BA8922322A7BD8F2BF3C47A20485476FB2 -446F642C06B0F7A916E7E79FB2F521DC43E43C620AF13EA322AE36A54EB070B16E819C03D22A -E82C99FCBA3C054C82288A7BE0761CCBF4957BF8375AD967046023D264C709C7CB3765EC0153 -108AD1A41A095F83F25389456D42960C59637C87DAC74073F9B66ED90BE1D988266E70E9E66F -77A32F6D5D10F8D426B30BBC3FF3310999BD1FE26C2EAAA5FFB6967356B59B5EC0709E7A875C -DB31A7D9927CB7EE6A001D612C61A618D399A976D9EAE0C74F71905D43A2DA9F54D22184D929 -85FC471A92DE7BD40B13EAE1B4959AC208DD67020C01CD57147F5525C71FE75F8AC5518DA2FB -35DA93749A256E95CDB67784C4B006714F58FF02F24D4BBD84D3A93DA40822BA613E567E7136 -5486B3C9B7E2B249A203D000D8EC7DD1B2E0CE1C0B5D7C129DC0E162938129F5ADB71313B6FE -A6FB14AE420D58CCCC9A5CD3DAFA1C87525792802D2F6F7E169A0D292E1E3744C903B6D50F32 -A03F9A610E6C89CEE7E763E6DB2E2094DCF4D95CE1FD47E2495DB1A64A3FF11568EFBC267009 -4DE1F92A263A3EEE296C61B4A9A83DE066FD8C19EDC6EBF43F5E65AF62E2515C01C4D097E1DB -3BA6BDD99121298E7C5C41AC08C4ABB4A5EBB212CF26DA75969F2FEC1208009554D21CDFA449 -9094A6718B097A3069C5254D3B4ADCA1693A8247773BF93CE1ABCAEE7D928071DCF9AFCC7912 -34B357C6437EAC8EDA2FFCCBE5E77E9CAA87A5BFF9840B2BCF4AF859593AD06EC09C0A5F8D10 -38B88AD7F7777A981A5B58FED55202F4B49598C3FE9659F4B1E5352E34E5FF1637AFFBD2E28C -7FC0F5795B0CFE3CB85277D1697E262685C7B3A844DD4B4D6EAA41CCAC1F876AEF7843A488F8 -4225D9C8C2693D9728513E1CE1D775BA9B38310E3E238ED8CEACE807C2D6695C7F17BC6DF133 -1D4097D0EA931D8018FB71AA54D7D5E5751CDFD9ACC8ABC87D761F19AD9E2CD209224DD5987E -2982EDE9880F5E1A625EBA60C2E7B8F6729F59AC13569122343502F61AFEE0458ED0896AD52E -F6108ED7EC0303B2EF3B83AFAB4D03557F5CA54C5E4B62A86D8F92A678416D59A2FED2D99244 -160A929A9E7C458F4437E12C89C60E9B9AFC9578B479D74ECE0FA23FE1644D2B28187DA01459 -EFBBE34A2947798009BB709CD306D9C63041E3A902B589B6B2F5980957514D5C7F867E223B9D -3F19A0978479AFE2BB51A0EB09F9B7D5177809FE0499048CE58CB2265A613ED37C3B007291DF -D3DCD04871B8E1095C0464F3BE66439C898F73BAD14D02F5AF1B88BB55A0324C139FE276ACFA -95F1E3979AA088BA4AEB03149AA3539D9919FB2DD4E61A6298B6BFF4D3FBB2609779290CD70B -1AADE8D7C919AF16A5D642893AE1F772E173C462095B39DB38EABF13C06BDA920EC54F279439 -36B9158B1576BFD2C45FD1A306751DBB43AB8E1791817FDA8587D4ED76AB2B98C40674DC71FE -F187EFD86A5B137FD06311D5970697EED314AD6378573D1DCF485A3A5C19A9ED5EBD7AF6A82B -12A219F514A884731424D6FCB3A1FC97E6A6E764B97133982981F6BF3F3FC8B57D8E3A424B18 -C9644B5448B105C9D0AFFD4DCBB477F71F24DECEEE6674EFA2BD924A5599F84839FD49718539 -17287CDFBECC6417A81EF0A08BA1FAF72598E0665A8B9075D97FCAE661E869819228C6B41C35 -A21206BD3EF169341822EFF4F723ED8C2C2C469A3AB22E27FF496A98CBB3099F666EF41540B3 -6C6A4F6C28F3B3309E959C46BC092C41B672E931E6927A17D5084712A9E5361FAE4742035655 -BEAC88F81D6ABDDE4681601F5E98059A5E7BA0CF0F3E83EBA78BB2DFFD072B8D9E83BDB1BDA7 -D334177632BEA97BE24A6DF33A46A2A3D1F8FDBB51D3FDE50F22B5FA231E2270D233EBC8B148 -E22142A591922B01D4E7AE0666A39F1AF6DEA3CFB2AAE63A467912A99F9DFBF1EC6579F14DE3 -F6DE1FDF9FCEEAF2037FF3976031A7850BA5F13E4C2A27B8F2515BE89649F356F4CB7F6E4A09 -6E1D99AA3E1B84CD56B386CC6C181DA7302551900FCB9A56900C09545B585958034D9F9D4271 -F8A94CCADDE9E510891F6B5EA80D251B06782C86DBDEBABF248CD2C3E751132A895075200BED -0BA0BC836B828E49DAC3359AA948C0699F7716D7ED21322D0E17BF77CF137A131723C8E87E87 -E3C5C215BF793EC07940D924587ED51C9B995B420F28F2EEFE3BE9D83CA2D64309E6D8A5A0ED -576170350867EEEB2FDD0CDCC346C6DC4CBC196973D9DCB100AFDF7D96F86CBFE3B51301BC40 -B045D59C088275ECA95806ABDF13515D145E58C8C55C5406D4FA307D38C19F59624835581025 -CC2AADA85719C97D5F636AD548E8CE0FA55AE1689CD95E3C2A3F086C2011052B35CFEAEEC73F -98312F3E56267F6869C87D9F8CE522865E18782C989E74D0DBE41BEE33D9A3BE270F23DAB8FA -722A730E74EA938593469783CF4C90D9B14449DF59344B2756B5F9DFD5112A642BEAA84185CB -BFC7C3C3C451C068FE3AE00A6FE80333AD0D0E9BB32695EF8BE4D76638E2354DD2B62C1CEF74 -14493749DAF9384C7688F8ECD67E1D98A950F5912B505D2604DEC27DC13B8E42E450170CDDC5 -84E0E61DFAB7FE8C900BA8B84251E2E8AA84E0B3C2B0845397494C9EA4F986C6B0B53CBE7547 -33F69B3B7178B05CC00C741D9AFE8F93E6A576B9F8934BE87D02DECDC2E011E64E2D4A65A66A -068715F169B52EB7E936DD8FC40EEAFE98F7ABE1F4C1B2B43292121BEECA54B51B9CE9E9856B -14477CD972DDEAE4811B55EF4A7C47DF5422FE5632FC695222F4A4A1BDD6E2CCB684B79B2121 -DB1BF83AD5A62722BB64E5C26C010803D3189EEEA208F6291D7A3B2C03A2967EC7E87581417B -9873FE2ABEBE8232A7968E9E82BC6CA612F2FF1B5AA4308717B4ACA3AA3BEF50CB6B61579CD5 -1F8B3E22F62EC796D87615D02C422A46C154E89D5DBDAF00A9BEFE765599A6E1802F80D0382C -64D4AD0600BA0A0DB081E1C4D4F2099C000594DDE014F06780F172D095A49D9796A22D43B9B2 -00EDF646EA75B025DA20182527459A309C43FF187877EAB63ECEBEA0338139BABA3BB7AC07A3 -21B46F47576562EFA570B64B36923ED9581853C15CC56444935889C5662EF190E950E1687F2D -6321C1CEAF0AB89A0D8CEFC500B9D38C2283193A9EFEB7FDB40858861E6F3F950E4D49E1F56D -528DBE74AF3367421F70A1ECDD65315979F1DB1ED08B98DF75037BD045D5F11AFF5440FA5EE2 -BE5D1CA596AAC6B43DC50A258577D000208721E2771381300A4A6830233867B5BEF470737BE4 -0894273BBDE61A190A7D924ABA1246F95D46F2A52AF2421C328AC4FB3F20E1C35C113952D2FD -BC56E92FDE53A26F5E8F5956DF75256215162A5F55466CBFBF01114971D9B234E65E3359D671 -32BD7176D8DCED7A8787111C9C0A5237A58AC401A9BCACD140BD3485C3F9D0D58F0758AD7CA3 -E21CB35BB1760B9C61E066F565051E9E21DC04B3785128CFE8585993BF0C2757624AE7BCE23D -03757B88DF08116463993524D137B86C4062FF9B677BA7513D44CBA04DE64F75D7CF17E67902 -299DBD58C75EFA9D160190E0D19BA6B1E3AB7A25732D389EBEC46D48139A8F0431C748B167F7 -071F0E6BE059D44F6559BFC169791200BE457F970AED69EB371B8096FB4803559E9F8BBBBAA8 -0CE8D5748A0CC12653E357F13409C92E0FA355BDED05C3925CFC8DF7C6C5AF870D69F735F838 -712064D354782EB62AD20D7B93769E5E4F002F3F20EF14A4509674C69E9560DD318D75A8C894 -C39CA093B10E6DB272A69824E52FA3EE53B6B1FC3E65BEF6A690785918F7D82A823A624F5662 -59038BFBB2905A86E2C6C10C1638744F65AFE338F8873D19258C92634526FEDE3DC6B23F5DBC -77C2FA14967077BA724984C004F2E11F7EECB13686B5E76DBCF662C6EB016DDE456AD5646678 -60AAB9F8C5EABC28E64F894BF9F8A66021B92AAC265762E5C3FAC04D68A8BD8C34271DE54BEA -F2E83F65E8EB77F2B1A6ED7B79B5F24F1F0580B69A2E0A8178AAF98A9B7AF7FA0EB765C2F85F -024DBA01D699D798360653D2CAD5A0265B6C22F9DF867DA04C4BCB1DAF2E6ADBA473C60CB139 -A939FAD116876552CBD9DD632A780B6CC9B23E7BDCB4A3ADDDB56211437EA1068D8C4D87CDE5 -143E2355FE2707E8D35EA1AE2C887D5F9B87EE45B9E801A6A4FA61BAB34F9E9976A8D1500821 -B48D2FCDB1D26E748C7D0BCC4B319839C1FB168B0F79F0644E147E286788AEA332F24F7FE4E5 -CCFA4854523DBA2B17BA41D5208CC9584FFF6D38C5D1504560260FCF24E8E133F4327C9439AD -3D9DA6AF8E0178542BD1073B25A7ADD7BB77B0F75732FF7DF9445300FE72C4D5B371CA54ADD8 -5A52E69B5D6BADD56CF20BABFAC5B5205D555FA17599A99BA634306936EEBB70ADCA4D80AF4F -38355AF06752E476BFA729DD538210AB7159C64D1EBF56AFDC5636A4354D68809E396EB22943 -62062F902C0F5C564C249E0DFD2EB57AEECE46D1F23BCAE70E42259A7C21653389A55E1665AF -62255CBA64E81D26CF7003B98C9FC34F83C5A8888D5CE2F9B9398AD23D12EC0BF293C3822F2A -3F26D42209DCFCAAECE3C60434A415809AB69EF335D3934C895051CDDF31393AAEA9BF0458CE -DA9E6D2BAE2837EA7FE67AAB0C122CD930798954DAD5C728063F84D75D727251B8750FC3C512 -9AEA67B1978E3025AD3BA37E3A3ACFE1EF2DC1C3693712339463C97DD7C30A10733AB7B2F6B4 -4EBD653AC191F6FE14D32EE1661BCB5798D08BE0B4F353BC83F8A7570F87084E99F18EC2013B -65EF7B6BD3DA0B2E8A9581381012C10C4E7F34839F1EB14E26ECED24963040E17A2D692642C6 -6057A7DC8E8C896892872F23DF117D5B876F145501DF348158C4594514F98AE86277F0EF2A1C -81169EE3FF0B1509669454C9A5C05CE8617C00ACDB01C226D8585B561A641956F27894A6C5FE -0F6E1DF9BF8B28FF6A1DC368689C54543E6B184E1293F5E2F891D96EF83D30BAE0F8C68F26C5 -F75AF5C3FE9B294CDB2A5AB72050BAC995F3E317DFCAF8DDC98C54C6B3EF0DF2BB0A885C23C4 -2453F46C02E4FC4E89494AC526317FF10E932AA6DC316225775465A200EF77F7D0078459DCAC -E9345B97CDBDFFEA45AA523C256524E9E624F6E34DACEF742FEDF621063E96EF3A23D9C840F1 -4D9544D1501509236F4725E7246CA08FBBBF71529078716BDAA22F933D557D055016D4604535 -949463E767061BC85BFB0EAFC484DF5F2653C608EEC3155C6ED7E94B96C41363A559445E47FC -7D8E2C193B5AD455FC4C310FFE242528F25E0ACD90C4053CA9F1E02435F537B64C7ACF9E090D -11A6F7E610AEDE0EF76288E893559DEBE59E5EB153206665B211248359D6266506420571DBC7 -4021E802125EE76C90C502CBD28CAC405E10E92BF7A952AC8E773BC726E5F8A3637AF15F8F8D -8BE92CBA6BC7434BD992CF56314085090CA530B4A7F243CDD8DDE689FEFAE91CF386347A9D2E -26D1845EC27477B30D60DA47189AB457D9562BAB48C649A80E8088500076C5FDD64E5370FD11 -95A993400C3AE84FB09A927E77E7744A1C923BB0707382E6DE03DD436268F9CCEC76E3575692 -46441CDB252ECD31EB4A1F15771A51BE879938D7AD2417E0A762060D52A73E02B4178486925C -DAB694EA48D1D6E31025A352E299C8F62D7992CF088A9B721A9B8DD0F575223B9CFB46917FF2 -C540C5F7C0F7860F185AC52B70E66136E5ECBC13DBB59F5D9A3A01E8061F4304A10AD9149C45 -EC19100D7D0669E89A5D1D64E5C221DFC362EC066CCF23C600B777207E0F8349F1EB06B15592 -743D8F96816B821E8ABF470F09FAF1986E7361AB4A58024C25C3EB8BB41CFFA6EEB55D8F391C -B1A63601F38FBD16153ED8A0E3CF4B739FC875F4D658380DF84456D02CC030BE4881A762B735 -220E470E45CDED8BB35CFA2AC65B624642C076F22277AED54F10E995BE86E2ABF73EC9F7736A -D77A3A2CD847511851FB9554BF7B45345859115C39C5D54EA49FE7257329EEE3E3DFB7454829 -07BC2C0353F5B5D761CDFED08C82D2E4E60A43BE985C1BEA949E8F099EB795A4CEEF83E246A7 -8D14BB482289181D89CF74110BD996DE8AA06E96468237AF23CF7940E22D9772328A05057E83 -529789A09E10F3EEF0B1BD5262433C000DD3580E3E1A191BD808BE0196B64D32B8080C6C1CA7 -DBF5B9FC1379512D6EEE4756F2076C57FE8B34BB8F1B00874E40E35FEFAA9BA8B08B5251274F -20DC58F9091FAD16644EFD62EEF71F686577184F8A7F69823BAC1B0B6708B9DD31ECD26E4343 -40A31DE54AEE4B1B91B9B581DCB28D4CA7E7090EC31BF4C99C314DA273A6EDA4A45AF4A3978D -D0231AE15C4C882A25FE88C47205922393CDAD92B3429C9D1A0F520C677B8F13E8CBBED0D096 -E8E58FC04B60C2368E763B38AC1C4BCA4A719DE7A7064294BFDB0A6BEFA3558BB68CEFCB0A37 -6E8BADE4063B945182B05367ED4A47EC55BF85BD4526A747B38E5787B60D9A999753ABF21254 -3DD3873B0FD17170381E62BD0CF8AFD5B98D227CA272979CC561488538E6C5CBA446FF8A7A0F -FEF2AFD9C336EBF61E2D084F2B9DF0BA5A856038C66F8E3DC4EB3AE0D7C09D9E94A5D4C050CB -FF78F1A66114049D67BA290A05E283150D0115EC0979DF4D027267F384C1DCF627E3F75FD14B -476BC0EA62F9C2A875EB5214F856B0A472A5C3B34A3920396F9ABE661AD52A63710E827BECBC -A76EB6D985ADDCD035426CFE0B0BBB4B45F6B43642A980ECD93AB63B15F9BF91F30EF869F61F -A12B99AD2E4C82E3F6F123F2E87D1CAFE53D49C925E43052A7D00A92C445AE2A336B86488053 -602966F43AC392FA1AAA7B23C7322C60BCAEF01989DCDC4ED23A7C9285AD5A7B578EF9179E4C -0ECD45367EAD877EB91D35C60C19313BBBF178FB9219BE419AEA524368F4C6F1512B4D8C91E9 -72BD7281D2FD45A7770CED0CE4E5AEA9B46E0C1350CEDF41F10D82795C8586548F0C87A2CA33 -C2DFE909CC9894DE4157E1F235F80C45540ACE7E3882E49DE831069CA4044EF69588748074E8 -8EEBB4978BE2B81A99A10E50A769C988476324F34AEBAA6A922AE92AEFEDC99D64C574482A54 -5D4B63CE763C21A09F97B8DB56279BCC02DFF714897C6C6BAE22135FE82CEDFD8AC78DCB265C -1313F173CEE419A6A0720127A9F0E3CF2D9072FA9B4CA05CEA57E1490261C691CBA09CFE3987 -41F36710B544E16D37FD18557151E92E4AD3A35E4D5691643A28AA08055283E8E650C6167C45 -1FB2266DA34EAAB0089C6AB07B45130128AA309A6344DEFAEAF9140B86917135F61EC1B73AF4 -D4539F06EF19199C9774353CC80E40A463EDDB72BA49143258FD9F44671A6BCD74011E31338C -151A13A05A7C48AFE72556230F28A7BB48B48AE2175CB1F13A1FEC6706EB98982DC0C0A1E305 -85D974BF38AFC451BC8AC37E00C70817886DD60F34C60F6F14F418B16AA1E96094DE69CB19B5 -58B9A695E68431AAF67E9B2583EDA41B7F739417FA0909560CBF18544DD21B8FE559FBEBB3F3 -66535C6E6F98A5D2D19BF065F887A46ED7E5ADA4E19401EE4F8EE2C7B33A864F5C6A9753D537 -EAA0487B29A046F9C8D0830B69782C7D4B18EF1117B0A4833AB0EF27D06B3A5E3CFEB597904F -F8E6BDC43C31DC96EC9602611D357DFC0511EBC8F0C1BFF86A0AD600C2751C6F7D89BF915A89 -2B37698AEA4936CCD7F1B62D45CAD3DE3FFC4D5B505BB68180286C2FB14634AFB966B4492736 -D0A47EEB79ABFD62371969316AEF1D7F425A4FE5B54331E57DCA2CADFC338265DDDA5380DA48 -82E692987A405BE67F4780A12CFB6CA4D988EA5B10F2F2E85DF478590D66777E00093E73C6F1 -F5CC1F11CFDA0DF05665F3DAD623C6BF6E21F1870C6BA09BC8C37ABD60EE940F6F1D95B9714E -7CE213D000AFEAD5305BE9EA6DF6CDA20B1868DC8B05A2E63EA2CD3468DA56D7607C01E62EF5 -218B4BF7F28F870AAAC219AEFBCD9B04CA8C39715AB76525D04E097B22DB47C65437FB2F3F5B -9F21CBC59FA242457BCA213695179B1F833629EA1B2EEB5B55BE206A3F34784794CCDE0C1A60 -D407916D040EDFC3DA9BE7EBBFC410EF258D00372E791B93A8042D518330CAFDD5AE77AE8B08 -E4302A862C83887083D771393C317D5F7A947D6E229DF7330A514A9AEF518D61DD9FE3614995 -B200AEC477909C2AB1E3332AF6CA8538D9BB1B1CB6AF823FFD8A5A8D06110E1FBBB702BB91FA -B3DDD5CB5B10F2E18255F3846ECECA5346AE1A28A433E586B917664092053D3E391BDC2D1FD0 -38A8C430769983C68FAEB341AA8B0129FE991EEF1CB9CAC2EF4464CF45BE0B46410D29DC31E0 -7E6220CBE39FB84914FC22EFC665B00E00455745D60345B15F22A411439649331B28EA3B8CAF -1C5E241809F9E2DCF1C63CD22F9ED6B36A0795233420B2274036F1EF2572C47C09BDB2DEDB10 -270000EC56CC882C6CBF5453BF0E7EB04508F6E6ECEF159107C5B3C82EC7F2D15B8F34AD5F38 -E2377E61D1F29DEFFABDF983474654076BD73014ECC865BED67FE7EFE2E9A840663D8D2F832A -63BB242AF48A9052BF773C7FCDD994541C5C84CDC5D54775A03BD1F7B99598198D5E0F565344 -50FCE6D05DC2A9D188B604F6C0119A36210C7E2ACFBE64B636B607687905B1E386C3C980AE53 -97BDB0E06FDC31817F18EA76BACE834468493A23DA0601EEDA084899B3C57484650849CA902D -511344B963C2233052883EC5EE32E626A26D80F6E7336B4598B9F416B383CDB4BF1FD5FC3561 -CC84D4EFCE98E0374DE71A105223703351FDB6A710E391DF9EB8E501CF407F5EE850B3300AF0 -D24509F345470477C9CF676DA2E75BA999553827C9F6C6880FC3F47374663E30404FBFAF2141 -AFB0574BE4983CA3E4972E2FD703280CF342CAFEA7392B9F6BD116D49EE70702EBA690DA5E98 -EA9B6EC010EC841BCE7FCA4F7A1D14E35E8A295BCBC5262ACAB286F5BB134241D55C016F1521 -B3A635BA53E0887B7AFFD651AED42C940DA3532D1BD3EB48F46A1CA4838AD9E1E526FAB5A4EC -C608365B684DEF335BD4F9663338CEE545E4ADE24C55CD4E3E3816629216730D233FABC2B4BB -98AEA426B58E5A89396C066FAE92E448EC4E9F8B9FC0EA4BED639ACD92423E840B33811C8C9E -E8C91F5AD04274D5D8DBBC4D03341ABF51B5DC16366FFC5C3CD04DC4B73D05CBCC6505C45F67 -798D5DBE78A5BD308DB2B6FEAC584308D384C85A0984D1973FA810ADD6D7F34691FBA5D2D20F -E8EDFCBC2C4363E52EDD6DF254536368844377E51D3A606139BA0F8528E9FDAFA19B00EC3180 -FCE1689119DF6E625B3FA7EBAF670C295659D5E4EAE5092069D634AB724DF1B3EED7C05F9F39 -588AA8A24B024EE35A19D20C3F24A5D32B4FBAA72907CE3101FFB9E7F560B7EC82AF2CCA4C31 -B9C9DBA86F120107D20DB934FACA702CDF0352911817AFA37D00E34749906B87E062F86B2297 -9BB5F433E220ECF3E9805CBC679C43E363C6782F7E7EA86E94DA56CC6A7F06E423DFB561FCFB -E96EC4737CF83CC9485D13520938FD9A7F34DAEC9C6DA177B2FC43C3947D2B3DDC7479AFF754 -6FBED1D802234D0D1A3F72311130D14355E7FB09330E3E731AB676BDB6830E3721D18DE4F12B -FF2D3F101498FA9F17B049F69B813E0D8941D315DFAC132207853D6CD8A27CCE3FD847D950A5 -3A7D8B1EB8A129B854EEACB831E133D58D86F1412CE8FE97F92087D49E6D2B7BC6270D158E34 -102B750A39B6CCD344B221FB42BCA8E84053E4ADB57E4811F7C55D0F1403CEE5D6155FEBAA91 -4C79FAF9CB82894F85E57F5E9FDCCD93CFF9180E61780D1D39ACBD9FAFA945DFC735EC6271CB -6913AF9E96E7E85F075C10477641055760CD6959497D1CD59C849A3835F6AC3807204A28DC2C -DD5D9F4D4F590EF50CFA7FAD2641A7379ADE9C8A588401AC37A71CCFD7D3D5DB1D04BE0C7DAD -6F9526972944889D1492271110686B23DBC7B136C98EB002DF4D15A7A89587C9704F84F2815A -E6BDAA5E69DC2FF06B6E863CE1CC65B0972B4AB76009784CD90DB50FEE8DA79A56B16D713ED6 -829CA33685BD32AF6B6E2C15022E75E8B92ECABCC7984F4C828D7FF50D459F1CCE85EDA7EDFE -009DBAB05593FFEE424B482ECDBA1E20059CD849818DC50A972D385301F47FB7B6AA25A54EAA -E4ABF27E12A46101EDD8A0998D3F98B246A4751064B46295FB6D1A69DBAD6DBE0B0CBE4EB56C -A897B9373F23F8DD2E303633BA23C346B7128AE923CFA53830DEE9F7553AD0F9628A1426BCC7 -BCBAC1B4A2706E75F5092C79F663C9757C5267CD4E8CBD1B1EF055DB151636F3BF46FE3A111A -317D1E00B52098E83F9E3B2339271E459E1FD54C030D7E9A72C7626D7235FD9C01C19866909C -0FD7A68FB508F8178023A2EC6276CC8D76306F9CF8994695424DCB668EE91555A31A21CA80C4 -B01815B24A6B5EBF42E0A8FFC6A45405BF74BD08B02E53C1EFD46B5AF8234B023C282A9B0F6D -6EFF15CB543E88745CAE9D8B4A40341FDD8A459ADE10609FA7D09684D47800964397C3741B89 -AC6173BD5ACF8E6BC61AB04F6444A7B1B03065066563083DE0F14EB281E24E1CB2C1140ECB2F -C7B2A3C28062E509F6DAA5A5310AA2C1BAF351C4AEE265F3F0A81BDBBEEB31282045901430A4 -90B5A1E791DD63A4CC58A5B679F7E1F24CF8C455594D9A6F5F8820FBDF6549B8D8A89C8CB242 -ED018A2C0DE75379550CC83BBFA387F03B03B03EF94F0CED6969A127657107237936CD1E5005 -5F6625FC3A09E2ADDD17631972C708226DABD547952D6199C61D865EE7F9BDFC0E6D44EFE7D6 -F338064A2865E178B4D6116BFEEFBB7208ADAB1973C231C906A373E292A1ADFA1D735D2AF7F4 -E9C962FF21D09AA2AE815B987845E36E89B06FBA43CAB538661479BB99A4D7D2550714991DBB -488837FF5D93BFC876DB69F6870AC2FCFF2AC4ACED7725D8EDFACB1AF3A7DCE78714E687A2BF -2C1E599617D749E880D9246A72A7F35ABF62B08FFFDA162FFA7E7D62EBD1076BF22127DA7D4E -518BDD690486A4FA56156FAD55810A407579624BCB10E63CB479CB12FD68EA71692C22557D2D -CBEBE033268313388FBB2151BD21AB0CA08E75C12C585C627838F40171565BC205C1B975512C -4882DC53BA60E2743DE0C1998834A864A138CCA883D0D3C95450BEBA3CB1A719AF497F8C0D71 -EF3F1AE2C7911DE7B94ADC4BC81F613FFF9D987352E1C1D2EE59202C7AAE30852DB68B9A7821 -EE68329A8ABFDFED7CB9C91D66A2F671105EACBE454B5286DF35F0BA83DC85F45A040A4AEFE0 -C9F0423BDF570964D5BE28894F90566B54D06271C4220F369AAAD336461F9E4951001B3418A0 -70E483C63043EA00D7B121CDD67642A2C97B4B98F149809C6DB27B76927BC8AFC66996F19CE4 -389858205BD50BE0A9F6C4554F7E7C979008992820E68521583FBEFD7CF45CA4ACF4F4CA57B4 -A8028D6DBB693C78318E074BE61C5D54C93B4CA158025C5ADC77C8A6A3454A2CA452CC8B8502 -BEB1FCFB21B3AAB5088FA8968700433870AD1416A4CFC567890910590CC1CF639AE89438278D -EB1BD442B3F4C9BD799A99D4F00EEE56FC506AD606ADB282E9098BBA889F06DCE0370280ED09 -2373B45A28D0485EF254C809D679F78C2AC76F3BFD26F1DF4ECA401B124F7DE5F32257039793 -116E8BA96DC89D071F17B9C662E3F5B93F366CC10706BBB66141E5B36336E49ECA019125AEC0 -52B6F720DEAD49BEF57CCA3E72D3A3BF5890A092AADCDD3648BA860D3056B5705059038AD1F5 -27C7EE3F351813088E2825D4DE2F436083C56B3C7EC3A5A6EFCD43ED16C8EC859AB4B30A9953 -617C943FD96BF7B8B0E3EB7FB0D3EFAAED54F1A0C9C45E530FA5839E6B456E9208C3EFF9FF4C -80C36E7B448B7C4E06E2E7E6009532524841E56E9EFFD075B0239498592089AA4F6DCA0E5C0B -A20DA9811FEA15ACA0C9F4DE68A9F59C86CFBCC6668639F8AC088F954400A32FC587EC59BB73 -12D302FEEDA2E953464A4E2DCF3BD6E4F9B22273B9B31FA59F004A1E5F21E22DFF8C5AC9C2C7 -CE1A29290DA82AFD43519F1E27928340CF7687431DB1C3BF6A65A25C8CADC5ABEDB35ABC2B5F -0CCDAC9F3AF869599E974CB6FC3DD25DBD29E7F0F6F0594D057EAD35E9D547E93C0DEE8FECE2 -948DDF0CC4DAE28817980FA177DE92EC1C00A105D3094DEED0AE2DDBBD77608B39063EAD39C0 -93E2B3C0F317DC1B0C69709244C3E14FEA181EFD5906640065C888F9A69040A8D3C0F12EFE24 -BB6B9AB6E815B8D38E71E439694D6F090A32D5C3E880801062B7B8B43332C3F0F5A4EC506361 -765E0210925865E82BA9ED7FF2C5FE760F4E5CA479D3FD8CACA317943C3F94E54ED641FB2001 -F3D1927679F757250D9BDD049D590D30F8FFDA487520ADCD7493E0B67132CAB0B78E8C11AD09 -7FE230879B9B91BAAB964EF2C290A7FD81E771813B8F4D68E3928125DAA31A4852F4006EAB87 -BDD4038DAB4BC9B1105DC5DB4568628DA4AD561A4BF20BD0AA025D8062FCDF65840336EB20E3 -65D7AE6CBB46775F87808329BCEB4762ABA640AA8A36DA698FF4976C0AA5F7ABF3EC49F7504A -4523BE00D8AA8DDC4E9A2E4829D7A3DA3138061E0837ED37A766204878C8CCB980F0E5DB759C -7B055B703DDE97DB5F8C8BDCD15D61B060F308CCA8F54D994ED23875A02706FED920DA9AD5C9 -F7D7AB639D53595E90E1A15F64199AAF24262D83A0B88870E0CE63EC4CC7D356C843B8349FD1 -EE9396B408F45FC71DC866F381CC279B3FCF9372FB33A188546AD25865762ECB241163A287D2 -E94AB854A6DC48C1BF7A0E650CAACD3AA917A0116A2C13A619BEABE4DD2D40F368CC59C7EC11 -2DF46E992B87950FE372D26C102072F5A5D2F5089CAD638ACCF0E5671EC812F547572A7B13C7 -03D628663196EEFDBF6863AE19D741F4DE0CF0959A00ABA3A84BFD996AF76FB09B9DF4E6C2B8 -A7FA3E5EE2F68AEDBD57B6E3144E2B6F1EE4276A057F87E91999E3D2C018396014DED4F7291F -0D0B2AE2899A12EA25DD39DD0B0D1C12283CFC1ED9BA1B2F49C8B4CFFBF87E17C8B876D1C12D -F7DC8E95897D95B27866C3660D77BADB655DC357694B853CED876861CE1FBB9D7549C36FCA1A -86198D5E8996C9B9E39D9F0628611781434D92B071EFCD4D4121D16B41497F92A4BBF284A2D9 -EA17F3A1A1F7225E6AB8AB174C3CFC21CED764E98E838BEBC43EA63EBB90298D06EFEE8EEBD3 -9CAD76AFC1929A754BDF38C80C70153491E7402038EF6B019C145A3EA55019DA8C724B55A073 -42ACD3EF528FEA2AD1AE064D4D28C6EB88D69BB1D294CF2665EEA165B1A306EDDE0844ACCB48 -EF15D997A586D2CAA328A76F86AC9F801CF02CC8303881C5259B8BDC6624249FA562F282D148 -00622E571304FCD6DBF9B68911A8B6FC0E547A82CFC1788347495B83EF6CDE5BD367AFCEBE3C -1064C22216BF3F43E2723DF53DE099462AD589E88FD14745EA544EA1E82934A9E881CD19388B -8652BB27E3AE5D03240C8977E13DCEB8DC36446FB28017A3B25C0DFC7711C8D4EA42AF114438 -4D06EEC5FFB8B15D7434DA51C2290C2789A6DD1F31126B849C5F351E0C8DF2E16DE5B0829B0E -6796FB3D0F8CCCEAE1A99C312A70B0AFFAB44AFF6A7E5E2DD75B70BD1F185C183686711B6C46 -B0FACF07C009A1057B85BF4ECA387D8083BDE4809F9DAEF0D596142557A79BBC31E9A0301DB9 -5FBBF8DFF73E2F4F6790B81CD12173F7D8809299C0C8D15CA3930A5FE3144A6CDEC5C35BAEC4 -FB1D56A7758AD79082445E55C4F8D182BF60B44A54F7841325A0BE47FEEED83A9C3B7F8E4CA7 -9253B1783B538AD3F0EBBC9AE7F4B4A8A4408DAE6792C7F42FBF1C0FF7A939BF6D98F7051672 -9E1F744329DB305AE203DF282E98584B2667E5DE118D4B0CFBDDD389892AA2E3D876D2B2F6D0 -545F257EF74816DB618AA970F832271D3A717306E60305D3BC31D52E4C026A21CBF346D26D22 -7BD99A1C6B7FC049DD1DFCB786E1562D3EFD605B7A1F794620125B9B7C3B599E4DC5038F052F -6B3481C7DD452E8B48166783696CC6FE2C5924DC7077E8A05FBDACA6C845AF8C29CF8F71DAF5 -213600116F2DFC0CA73BDED5522F761D61099B9A9687FC55A2C4D6976934DE13E42B2EC406AD -71CCE08A1458D89E7A84915C78225D45F0564059DFF9FE9F46F08D26C11E70EBF07892631FC5 -281D9DC56E5B77AD90A9B5F6E0B3B2FAB6D34DF9147BCD944C648D5D7886F68057E046631161 -F5C6EEF28C371E5A553B5FC4428A810E24090481EBE1241856181A832ADEF3A2B2DB82A30F1C -FBE9B67265585161DD4612D389D467FF6B345EE18C408DD465CCA8929AFA4651DA57EAF51BA5 -727105ABE8211FA5DC0848D99A7787B3BD564DBD6B4A5128685E6192B2C3C296A714E005EA80 -C7776552BD10B907449B5DFA4AA59CCEFBA009DB1FE5ED4902BB46B6EA478914298BC09F6F0B -898753A400CABB00451B84E28AFA5E7C26DCC636E7E39511AA8748FB000237FF7B20FBA3D635 -19283AC4A8DEE3F6FCCE035A7CB2C6B14B934652683C2E53E3C0CDD06B6595ED6B8969DA334F -22F247A2DEF692925FE313BBFD4641C2110908062B87FF26202677B332EB804B0AD4DD6ACF0F -1F7F032764D1EFAE6BC2CEF22D5E2CDCA25C1F3C8FB46D9BED7C8F97B3FFB593C9F52DEAF26F -4F8253B3AA0CCEDECF646978341ACE6FFEB93C67C567C100734F4DE2502D26631F7A50927352 -4ECB02E3DFC87549D78775754DE11570D3B3FAFE854BD8FE2956D5E4DB2EECE1CD7630E0EF0C -B29A61DE43287DD254AC419DA0262E8DD08B51FA9F4F1EE2488D755681A2AC7A49F165E46E5F -BF76156545F35AD3EC7CF32494F1A66AE0F97E17A60C9799A7861CEE0BE19F0B5C3DDEA8B68F -7C96DBC12905E763B1DF1E42282ADCEAED38E95FB0ECEDA87B8C246F89A04E5C03D8AD4B716E -C583DF05FBD527AC75F8A09A5DE9DD98E522BEB66F35F8E695AD289B373FAAA4B41B7453F2F0 -B48C8143339B8184DB8C4ABE007A8B51E1494BE8DC9446266EDD6156CC406D60E092B366545E -7A5B41E98CCDF693DAB437D89612B67D213BC61E0FF49FE42404501093A2E22A68485A9ADB58 -CF8E6A2C49E3043D29D01C34CD05768AB927531822A65D30D46518C98E19618704F54DC7AE73 -C7CD5765268B14D51B030644D9F9A9E1FF4B1EBD2F0F529BED14EE0903E07224F9755738393C -EB89E8CE0F25E3B5BAEB9ABC351A15B4472EA0BE2D0C8210FCF7C4FAF31BE0CC0BE5170241B8 -0C22EEEBDCA7F04345C03ADFBA730DCDDF24E2FE6EA788CFEB1EE99391A80E96C81CF1C83204 -FBFB8B356DCB2C870BA26C32B9895E25E56683F9FCF3A5B04A180305A4E3CDBE114465E59D86 -BD2DEA02F31F3544E4DEBF8979F412618C6E7EA559CC4EBED0AF27725A6CD2F62F3EE55FB3FD -6DD9A72F5439DD6A8ABBA27C6DCBD400EDB439DCD11C1EC3B745159864F37301ABA5433B676E -5822CAB93A30E8147D183A323E7A012A84F3F1D2FB847F9A69B2B6FC311DBD95D9B74DAED88D -01A959C2611A82485B7B0A07683F7F2C4BFCB930880386C6494B20EFA76F9E5C5DAB0649C3D7 -7948270089DFB5039C66C4C01CA6BBFB3F4C5467A975073BEEF7E4F8BF87915673CA63508FFC -C9695E74C84531F6FC924F53F65358CE55629362CA0E174CEAA3CF90E2897635A730D2A823C1 -6765BEE65A869CBF84B38144A723858A58ABBCFE90C0426A36DFD7169247FD947AFFCC52F74B -133BE72E9E48ABF0BE2D678929302E925C06F982267E8E0F62EB65BE0FFCA9F322510E0A7AE3 -D4E2AE9D4A3E55664CF21851C78194FB66E52C69D21B02EF9797397344379B39CCB4809266E1 -A4448BE71612D861FC1980802359F3218FEE296793C425ECC33944F0F6611DC2715F169DDB2A -62021F6CF1EB186EB57DC57C41D617F06F25D1E54C8072608977BE2C79108BE2D39B16DA6510 -D8132C381EE6077670FB06CFF41CD79CF2A003BA9B541F99959EA835A504E0A5C858C53A26B6 -6A94C0317E2B1A2C675C20B0F2CD2815C6A409D1286E4D89CAD76811EF5170F895F47FB3CD69 -C298E7170862574789663C4E63BA596FEEA10BAB56AB6E76E8A79C2DCD73141090883224085B -57DBB22EBA1A54DBFA9CC807FBA57560860BE42AC45BDDC8B09545D16722D3DFCB7D2FA417E7 -2E7B03C0A7B3D3855DC0DE17A86843450C1EE1472676784461E2AFFA3036EECB2C39F01B1938 -CB8547D7A0B67A72D6F8CA1942EDA0BE5703436957A31F16A131E880477E45A7CDCEE2659DB3 -8525BC828DE62AC7C51C0E25B319232A3B9F51F06176AD5F953B2103721073933D6EAF73F3B9 -54410D8C0E5566C414987647FF3608E3DBEBF646563A5CAA78270D2FBEE37AA297B2380F7A51 -836C604F545E144A5A2293D93A81A160F4774DC6E771C9B1F95D4181DC69BB9E156D99136367 -686EEA707CE6628B4583B3EAAF48C9B2D037E504B426EE2F0ABE95250DAC1CD9B55FA7AAAC5E -BB7664EE505ECB1916FF70D924A55D6DE6330E6EFAD3BD0FE3DD28256E0DFEBCCA7FE09F9F59 -284E26F6BF9F8A036B915E9A77E80BCAA8CD86F685D46AE7499D934FF24F40469EC310611AF1 -9793F5F65A254DA153024B5D7B8CF6ECA95AAC1F107E90E69AB7874727DE8091C64712442627 -A973796ADE938D8FD0E96FAEF214DC6E630E056C7B8F1C8C22C776AFD51CD6D38362ABE39BA2 -7291EB69618420DEB6C349D7FEDBE30B2CF5B2DDF66EECBC7881EDDF0990953E8168F6E91FA9 -3FBD602FC2DD75FD1E5DAADA55BD6CF6B846603A23D986DDE63272397E4648DB3DC07E37F251 -DCE7D1DBF63BF22BBA8144400E75229C782E68F74E2E498B4EB57B591846FCB5DFB6C3B86BBB -06BFF618A26A13FB43C47356372C86AC32D91CC7D8BD6A56B4C9F95096742DC18B1A46A7E589 -80EA8F04AA9DBE528AED0984E251C51756A31E174E33FBC26BFC82AF2E7D70959F844CD675CB -79C788496B1CB2E85CFF38C0ED4A892C952AA5B65BA5DC654E9D5A69283F9466503F6BB6B098 -1A6A3AD00BA75FF4606FCB347D174B7B5913EFBDBBFA638A0D24230DDD42BB48FEB02C84EB5D -CC1B9CAA4192DE99E213824B0B070065F696D2967A0FD181DFFCBAADFE1AF835A6F5BC1F5BEA -740BEB6FC69C8583E6435F0CA0ACD317181AC69D83F8125FD2B15BFE72569BF24587C7F8518D -6171C8A9672BDF53567466F527A9AA5BC16ABD73443EB3AD918DD94A66374FEFC420CBE630B2 -9F71B95359D20E8C0263922E32BC5B0D63E6E4C63D36BE376C86182CF4D18E28CF16C43484EB -85004BF07406A86AD9D105199B3126D9128E426B176719D99ABE33B203AD99B41332B32BF99A -C21DAB08282E5A03B6FF82CAD2455D7C0DD3BB0AB14C52BBD11835E9DAC6785BFCA63250C4AC -59A22A574D43022E94A71A5BC5245B1A5A28A72C40FBF4A026442B0C1BCFD8E1A70145620FD9 -3095AC9A0794D58501FD349EA25955CE6A566C64D42D5B02E3090674CC7DB1E280DCBBCADB88 -BD9F65349E218056D375018385A710BC79F38949E23A6C01062E03142136A1277E2596AD185E -9A2E371F0CABD0C9C1A6E4BD52C58CA8F44A39CAD7E8E0616FF013426C77AE3F1FC58C5F0D39 -124F31764DC914A98D5265EDD11F1490DDE96316DE572B70CE94E299A9A19401CF5EAF88392E -2E5D80B15248EEB0D0D8AFE2E5D356BBBB76671E926F23F6639F54A8B525D25B086A6B963456 -C16E49EB07B884101C732D6E0FB1AA44C852405AF2805F5825443C6A48DD7345C7C73B9BAAAA -ED787BD52706A874D78436629FAAF75CE00240611E42B724C9B250A8C37F7C6527F3B6C8AE5B -0709B73576A71C1E92F088F0D2A21DE7ABD9B5FCA125AD60D2BD4107F1705F8DFD10030C5BFD -9F26AB70309F57201ECEDBB599C8DA77F2C491BAB83DEECA4D0530C8463D482B17B989A2D139 -AAD185D6FB14C821F392E740FB48ED141A979F99DF7290B8BB6874CBAD71F4473543B3EDD53F -988E94E0B8B90B32E3F24E50E50422545CFE3285AFED156B37FC1161ECA8CDB58EE222DAD2FD -03265CA321E32BE7D60963AE53FD9F6986FEB08050ED203ED1B0937BC7C8DC88F9327CD99B7F -CC591B9A8AC57CEEB74A74699FF8628E4816B2D1595797CC3B0530B7898E17B278DD1D33787E -602898F772C08FEE19298599C1F33C4B4AAF8DEEC52774060F27A7CAAD950C3071C0D57C9A09 -60D09EF928C08112AD6F4F443ED245D4B4F8FD8C5E4E45EEB34D8A99C2812D4073F480A3A27E -6DC6D266439974A29F5350B1D06B2592A38522A88A3EFCF3920B5B3EA9E88D8DDDE0B87DDFE0 -5A4752CFFCBDFB2F91D2D6C8668090462ECB9C27C8B7A41EAEE22D313EAF0E9A718CD6343C1B -8B9616EE70B9E6FC352A3B2C0C324987F2F45D8BFC804BD051CFC916CF42DEE27CA9FA9F614A -87E6983E0601B839E1013A9F424DE21E6A648AEB4FE6399F2EAF6F8047534E71C93E73A2D684 -CAB952CC57FC2DA80B43885E4DDC5A7BC2867B4BAB0208DB3CF6165D92BF5C9FAC9AA0828090 -B39D6B75F0F9555132BEE8B1E7CA1AA2410DA61996374489084BEED29206778FA2C0F72DD515 -57897A37CE40AF56C980DC69082EA704CD02DFD2939FDE8C329B50602BAE656C7A528840DBA9 -A7ABDFA243B507E3246D29903DB7E7AAA39F3FD2BC8B96BEDF7F8BBBA0536F0205100E9EF070 -5BFF93D9A1F3FAADDDAB2DE0E47D4BE7812FFB816FCCBC0B0159C8E6453A139F1998E7A4CFD9 -E0233EDB5B6FE5F07257578F6EE55426EC0C8C93C69A770E273EF2E4AD5CE45085A473D26F27 -491B48C1C6AA1966CB5225BC969AC3947ED7430D28A6CF4847D8E19D268C0D9B70279FBBCC7A -575A47B897940A8E030294650543A2FDFCBDEBF6C77FC9B2CE9F91DED7A6AC1A896380F2A8BE -9AC540CC4D1CBE1B1D9C999D0F333B7F799C676E3E8F150F3F9C72C745480D328BEFEDAA925D -BA92363D89952F9AA594FD97AFE1F9E2246E87946F33066918D60F488DA83FF2FA7DE5D09C15 -7653D1359268E64E85C5C392BFC91F3630B9D05866E5C408CC2C104B557CD22463E8C823025D -1684CF7C5A7858D66CB84578E52CAAFF79CE756C90B5F470C9B1AED37CB98786A5E755FA4EB2 -FB84F292E3A4514E053B5A76B15F47115422E280CA6D32BE9176FDAEACA3823A6668306E324E -D9094148BB33DBDA494E9FBEC43DD3C2635CC80C128C9241185EA3EA63AA2A28357491B7ABBA -9AC0A2C6055CB9750084F25052CE358D0F20AE8333C8086940F6FD1096B0881D7F9BAF065A09 -48F435F7A8EEE5ADBBB682943F02DBEE4910B82DA0A2AF6D882367C023CC2374743CAE883CFD -3539F2BFF4F85362A5137A52F37FA39AEB3FBC51E1E0479AA90269CDD9C78CAC6BDB406FA617 -D6CA98017C7C118D41B8E7ED83ED19EB56452FF8F85E575ECDAF041A11F8C42D6337C99AD3D1 -F969AF0A468AE0C039A908CF5C7C305DEA488C7236ED6615F6FC00B31C3397970A70156BBDF8 -0F7670C281DA4F91A3068C2341A5C72B50512E7838F040244916C515B7294675DBEB24EDD2D5 -62562AA000D3EC44A450723AC9CE47764CF5CD0449C57A87D3FBEE6578EF6BC38CFDF6CEB898 -2AC46FFAE8C46744BB16A591569C9ED0313AF1D74F74498C8641ECE3D4E5700090B24143D850 -12A979B434DBF727C551ADC4A92E83AE2DBDEB1BE5D3E4EE4F4CC8E24D364D97DA7235CF3BBC -DDFCB674FA2BB5FAA5B0B44D33806AB7CF55EE14BD8B8420A601F2C187C5654B0020515D038E -44511D345CECAC09FFE3FBA15E978BA349F640ED877F9477D953D694FABDE67AF5EB9628ADA3 -706B1B00E021BFD781F108736190102510EC32C6C095D906E285436BA3E4A886CDC1E735DD7B -FB1FACB2232D40EFE4DA9B615B41D78A210533CFBAC9C9E0501C89AF99222D04220A58615321 -8602FBD2E9ACDA73788FF6006E0F0716538C9D42649D9E6C01FEBE34AED4E3234F6D539BE839 -C02A4276EDAEDE46B7EF8EEAEBB3A41A8ABB0FE2DE203CF045A79367242757906BEB09E4F326 -B1FE3549503A7C50F2D3C55F29F53C50460023607FEB6B8357076658C51F95CD04761BD6274A -7432A29980D61726251908CEA06F051C93D06076D59B4C75114DA17EB3BF2C21EE9B3C492C84 -3602C5DFAF14A6E966A682A688E536269AA4C6CEA99A628DD031CB5BDDD969C2931F020E965E -ECEC7244BE926B52A5E87A14DEB349DBA25CB72D85D6051EA0041EFF57F1989F89EAB37FE915 -4627A9179B86F77977CF48121D6F7D6146FC34934D5B8BD1F6C9840EA67F39D542F0B57474A1 -544C8A37724D3F54C9E052F9AD98353B928D8E291F2C6C0B8BC3A96D7AD517EBAB87DBBBD6E5 -7EC3802AAC922DD747EAA33AA1A4B9236C4227423DD370294B97EBD7AD32CD94A0D8509F9DEE -DCF879CC9203AAAA49D3C498A6A32E5DAD2D96CDAEA6105F2213B728AD0BBE8BFF1EACFE00CC -FA0020A9DF8158DF67183BC2A9F48BF1F5AFA75840D70A4A8E429A3604D225404CF91E7D8458 -AF692D65A77EDB1A875E3DA5ADEF1AB6543D695D6787DB55B0120932FF955B72446CBDD886A2 -11D2F4231A3D567634691D5012C6DD785BE88C858C98E5FCD278C1CBB2D87B30AC6BAD91FD53 -0654A8079C827862F66D3827D4573E7AA613B0914F5038912E0A8D84FDA8A2684D2E0CDBE216 -D6D0B493072C64C89DA68778DC3B2DF390D40DCE029CCAA289DE69CB7D7361B25F346026A54E -9CA48E798112F61F0A913408A26ACDA93491F2BB0E3D9CF19BDDE5DBC7EB7A12506E595D3685 -01F406DA8804A0A29908B34D6CF9F9A770EBD02D79280BC64DEE0E3224A071B58BEF589ADACB -9508D559939F8A6B4F1AC432A145135B1C26F06151E549603ECB9D4440FC9FD5FCFFD637A12A -5FAABFC34EED78F9F3F3D128750DAA337F1BC1ED1A67105D84249283F7ED41A6482210960BC6 -D4ADB01D2BD525ABF3A112F5BE2936B7F1AA766B8BA927494FB24737B48C6DAFB92FC1405327 -DBE5E3C034702FCEA0F06EB17267BCC167C430E64714746DE32F1A340FD1FD4310FEE880F52B -81F2B0A36CF47307EC2F55113FF5FDD725AF223F3B8826A9822CB97BECF0DDDCC91F3CFD7847 -9405F2EEDD384BE61FB0B8FCBE265DAE1A17B62F97EE17F4889E2DC32577F58BCC4278D7BAF0 -7A7E333863D23540A769ECA3454C77680D56BB84C4297404335277C756AC6718F0E0D35A223A -A6A532D2842754749A2EC7FAFA39DDB8A31428F275A356DAD044021E04D4AC73555E735FDD6D -3A230AC08A7F912068722AB78EBAE21E95E06F084031EE9D811ECEA9DCAC9B83AC3C09D98915 -C60E0A952CD7DCBC1FC6A91C9A65111FC654E2234197B9027FE40944B3D32CC6059F1ADE31E3 -2680691ECDF85F9CF4A71002CD57C8961D1E0E68792A420FB694777413CF5CA1CA4A7649B47C -11D4FEDEBDE42559583D76185C45E4B8EA15C8A6ADC41AC444FDC040A53BD0660E16CBCCA67D -631831834D7273FCC30CB29CE64E358D2C18C09A1A6A09DC28142F6046AAFD3FC6F57D776F42 -DF68DF5EBFF0F320AE670E29ADD66921C8C92CE118EA13B4C6872D5BFD6D4D345E0C1BBECC95 -9226F93CABE940C92F29FE91F5F95D5680DF6591929F6EB9E5BAB1B4153B6031FFE52D128C7E -1A68DBE739C0DAD7C78A13BA8F4C6C06AF57DE3CE741EE6E07B5B2E4C069CAC16CC698D8F22C -54D58DED20C691D44B6A809627B321666FA44F3B936FFA9BA950408C265A3BB1DBA6CB14CAE8 -E0A5FFEF6171891D505C67895962B5C30370371BEE15AEED350F45EB766C8D6106FDA98CE3C4 -9F4A4C1CD11805F68AD840D6A92017CE5892E3A390716A615AAF5F2882BB8BDB1680C46108BF -DDBAF6E71B22F42D1881E5BA1E4D66B9E0E6BD475EB9DB4D2B97AC3E19139CDFC1E7DBF48D9D -A9B017A641B1467414981A0678BB21385F4484DD545E3E9D3CA48B7D7715A6F479995E626B8F -CD5C5424805DFF569997FA19DF8847FB110B152D93E6ECFEA9ADF5BABE27CD839F3DB0591163 -CE31D3A768317EC1BB9AD92C80AAF74F92FDCD8922BFFA482BB52693DD0B35D68DBD6BF416AA -B96AEF3F2DCE8D219E1B6C29E79948DC36B8E3DD3CE6F91EA2529B735031ED0B3F3284EB112F -CD27A100866FCF0EF4EE9160A94FCA76CA0ACEB4E5CD1CFE858D572824A7C2D02A69091C9874 -C76907A36C69CE72831164576F47DEB218A8402B201ED32C1257F9FB0688C0B6888A00D65353 -9EFF48E79F992EB0C49A8BDEA911EC189B683DE6719DC72AADA0E85CD2382ABDCB299D3F22F0 -CC0EB2656F9736F804FFE60017B80567584E81537768BBFCB3C340B32033349CEB1BF0696063 -66453480143FF974E321F72AD54F295B2F3A0CFA425D5076DF71D52D29B7AEEA6D0E65BAAE5B -E2CB8112307FB564753C15DFBD8D4E113047B46CFF711B89D9D198D5933418638265DEDB9A0E -A048EDADE622FC77AAA6373CB4DFDD46922D947962B3521FBFDA6D9F78DA713138040B8CDDF7 -15F17D0888D31DC9DBA449BB40C976ED95C2E5FCD59A2B92F79253A81FBD89E8B38FD8E2EAEA -BAC1DFBCF27F927D636938DE30DE8E20F504AABE7EFAA414E3588DCFE676FC313D6A1018981C -E61330B8418A37F32299F0C7AA71DF84C0AD274CEC30019D7682CF475B23F3A610CC596A0484 -E74FDBDE8315E6BC0BA6EDB6608FE7C9A985880547FFCE3FB467389F3AC640BF6A4509C636B7 -3A4D2413AC65B363F2CA2F169F37D5B37056E7C5BF9F20AFDF7B9A1AD03440C87FD6C5E823C4 -5B660588D8DCD84E7C22E4EA035DFE5454F259EDF9FC9E945C66DAC88D88A913991A40B9B47D -A26FD9AC859124FA61558143BBD37F36020CE3118409D0192C47FEC906DEAE18CC4B1C0AAD27 -65DAD27A0653AAE34340A65A9A0DCD36AB739679D77313B22D29046473688CF7607AAA3423B9 -E24EF09583C253AC1F2353D15D0D0A008474909B6166AA5B7D3DAD53FAA24AA0ED65700E4E58 -EA73E4477AFEC3B11EF98FC620EC5A55E9A647B538132EF80CE9CFAE7C90A1FBEB973512BE78 -55A52B3CC27DABE49945C56E3BE8B6E68CD540AFB89BBDEE8B8B96438D8D8D5564A32147DD68 -69D4B72004633D55E798BB3A5EDF83D23D737D6B50635C58618C9859C6BD64FC6E7352F61D60 -B7DB8E1E59ABECF773E8DA617C72B68328C8D3B8ACE26ED8BBC3FCA6D3DFF6A843E1FA9C96F5 -68FCC5D23AD5CF001709CF9EA938344965F4C1B931F0492FA793CB9A71CEABD64426F7D323BD -B6C728A36D4CFD7DCE03A0ACDA7B557EA7BF06E45D2D54A85A36C518EFD49D1C9A6270EE99C1 -E666A4CFA23470296FFA2C56C6A3BB23DA3964F02460F20D8BFD43E493C276354B8678ED9DA1 -507443412EDCF61659F43E7D9F8625777CE092D38250E864D25A48A6B8C98416CCE4E7FFD54C -67A2B51D5A60DFBDFB5A19DC45C698704E31F2E0DD5576FF9333AD1E46371B4494A4411D562B -1DFADDBCF82C19D4926C7E2238E6ACFA0CBFD02337300EBE3E976F9A9D609F3CA98609BCB564 -520E0D51D3571C02B2949DF47E5D9C25E8BC4BC8F6620EA707AEC61C2D70C0C47927DA80AA7B -E29324EFAE97E59A0B9B75A140BD1C361C8ECE026B34A7BEE9C573D7A92520443D3DA72FE395 -9A92FBEB7B5DD5CB122D5954F05CD1D04FD4CA63199FBD317D46049B22F537B79E0D78F645B5 -30B1242878AF90211A763A4EF0E91AC56DCE00D139FD09CA6B61C6DDFB1EDBE60603D15BD3AD -1365EAB06FF4AF14B1CC12BAA50A4C3ACD80706EA782EC223F6E720CC03263D4550B6CEEB5B4 -38B187126A82681421C1861B66E8DE4F4909F67AEFA5A0D40BF3A612FC31244046BB2A2E6186 -E538713D59D9AF8EE7B342848404FFF3DD6C73C55A1E99C7FA249C0D9E83055884FCF8BB94F7 -3107AE38F047417BCB044DF04DC65E6C92D72B647AB7D7435A2DCEB305F4DF646A2E494E120C -782AC0382664956BA6598D4EDDB7F44CACDD2EBCCEECD2F321B405CC21F84E565729EF75D79F -F4500AA56E413C248DE40942ECB1B30B875054B13B7A408BA52E85E217B4BA6F95B0A513A308 -0D66CC8F0367DAA46875F5BF238253D55AF8CB05A49D7B2CAD06ED649372C98AD8AC3B6B9071 -A89AB0E7EB8E19B86680400F9AC9F012CCB505D02AD42100572E62BAD6CFF40516387F694F7A -5CD8EE5F54C1F6EC3F7B11ED511829BA0C79A05EEA8645F145D644A2C9F8E1A7E1618A5D25A7 -C41CDBF41496703CF5360CC9621AE428E4771D661098E6FE1842E318243DE8D2326686A121D3 -1956662F17BF25E3E1E8B25C5C4D7EC78799F38E1A7B106619BBE22ABDBAD5CE28DF611BA7F9 -279ED0570E29B2CE33BCB86FE51399179ABE5F75D87B67305E54182482AEFEB06C687E3DBEFE -85E19B77EF9ED9C8321A347D33F92EB1A117AC4BAA1DC070F7E393A82332618DA79706ABBD06 -707D4050015C93B86ADDD726FAF46AF93CDBEE0BCDF78127BC63DC6232DF32B47336132418D5 -C2AD91D766C80A39C21EC167A8B94795B05CC8205CD0CD26F6B243D057F046E562EE59C62A33 -25DD24BE8C054E55BF07E7A0247513F1335F74C56CD26D2EAC7A7760535E89BA762359F1AFB1 -F3C5A300002C2BBBD63B9D0362E4DDC8216203EE849FBE965B6AB4F55950FED6C3DB0E8659F1 -99FF347CBE158D345A8A318FE982BCC5358CCF0E9E3C7472B293AA703E51C1934618D4A3E4E0 -FEF880A943C38DA3AB5AB1CBCDDC6522007ED3A05C978CEF8567EF14A00CB384AF7A14DF54CD -9DE09935ACA2ADCA3CCBD7F4843DED71A1FC42A0C0027CA6214B7F8D5F616A1BD4CE8E5463A8 -A3370000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 - -cleartomark -{restore}if - - -%%EndFont -%%BeginFont: CMR12 -%!PS-AdobeFont-1.0: CMR12 003.002 -%%Title: CMR12 -%Version: 003.002 -%%CreationDate: Mon Jul 13 16:17:00 2009 -%%Creator: David M. Jones -%Copyright: Copyright (c) 1997, 2009 American Mathematical Society -%Copyright: (), with Reserved Font Name CMR12. -% This Font Software is licensed under the SIL Open Font License, Version 1.1. -% This license is in the accompanying file OFL.txt, and is also -% available with a FAQ at: http://scripts.sil.org/OFL. -%%EndComments - -FontDirectory/CMR12 known{/CMR12 findfont dup/UniqueID known{dup -/UniqueID get 5000794 eq exch/FontType get 1 eq and}{pop false}ifelse -{save true}{false}ifelse}{false}ifelse -11 dict begin -/FontType 1 def -/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def -/FontName /CMR12 def -/FontBBox {-34 -251 988 750 }readonly def -/UniqueID 5000794 def -/PaintType 0 def -/FontInfo 9 dict dup begin - /version (003.002) readonly def - /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMR12.) readonly def - /FullName (CMR12) readonly def - /FamilyName (Computer Modern) readonly def - /Weight (Medium) readonly def - /ItalicAngle 0 def - /isFixedPitch false def - /UnderlinePosition -100 def - /UnderlineThickness 50 def -end readonly def -/Encoding 256 array - 0 1 255 { 1 index exch /.notdef put} for -dup 0 /Gamma put -dup 1 /Delta put -dup 2 /Theta put -dup 3 /Lambda put -dup 4 /Xi put -dup 5 /Pi put -dup 6 /Sigma put -dup 7 /Upsilon put -dup 8 /Phi put -dup 9 /Psi put -dup 10 /Omega put -dup 11 /ff put -dup 12 /fi put -dup 13 /fl put -dup 14 /ffi put -dup 15 /ffl put -dup 16 /dotlessi put -dup 17 /dotlessj put -dup 18 /grave put -dup 19 /acute put -dup 20 /caron put -dup 21 /breve put -dup 22 /macron put -dup 23 /ring put -dup 24 /cedilla put -dup 25 /germandbls put -dup 26 /ae put -dup 27 /oe put -dup 28 /oslash put -dup 29 /AE put -dup 30 /OE put -dup 31 /Oslash put -dup 32 /suppress put -dup 33 /exclam put -dup 34 /quotedblright put -dup 35 /numbersign put -dup 36 /dollar put -dup 37 /percent put -dup 38 /ampersand put -dup 39 /quoteright put -dup 40 /parenleft put -dup 41 /parenright put -dup 42 /asterisk put -dup 43 /plus put -dup 44 /comma put -dup 45 /hyphen put -dup 46 /period put -dup 47 /slash put -dup 48 /zero put -dup 49 /one put -dup 50 /two put -dup 51 /three put -dup 52 /four put -dup 53 /five put -dup 54 /six put -dup 55 /seven put -dup 56 /eight put -dup 57 /nine put -dup 58 /colon put -dup 59 /semicolon put -dup 60 /exclamdown put -dup 61 /equal put -dup 62 /questiondown put -dup 63 /question put -dup 64 /at put -dup 65 /A put -dup 66 /B put -dup 67 /C put -dup 68 /D put -dup 69 /E put -dup 70 /F put -dup 71 /G put -dup 72 /H put -dup 73 /I put -dup 74 /J put -dup 75 /K put -dup 76 /L put -dup 77 /M put -dup 78 /N put -dup 79 /O put -dup 80 /P put -dup 81 /Q put -dup 82 /R put -dup 83 /S put -dup 84 /T put -dup 85 /U put -dup 86 /V put -dup 87 /W put -dup 88 /X put -dup 89 /Y put -dup 90 /Z put -dup 91 /bracketleft put -dup 92 /quotedblleft put -dup 93 /bracketright put -dup 94 /circumflex put -dup 95 /dotaccent put -dup 96 /quoteleft put -dup 97 /a put -dup 98 /b put -dup 99 /c put -dup 100 /d put -dup 101 /e put -dup 102 /f put -dup 103 /g put -dup 104 /h put -dup 105 /i put -dup 106 /j put -dup 107 /k put -dup 108 /l put -dup 109 /m put -dup 110 /n put -dup 111 /o put -dup 112 /p put -dup 113 /q put -dup 114 /r put -dup 115 /s put -dup 116 /t put -dup 117 /u put -dup 118 /v put -dup 119 /w put -dup 120 /x put -dup 121 /y put -dup 122 /z put -dup 123 /endash put -dup 124 /emdash put -dup 125 /hungarumlaut put -dup 126 /tilde put -dup 127 /dieresis put -dup 128 /suppress put -dup 160 /space put -dup 161 /Gamma put -dup 162 /Delta put -dup 163 /Theta put -dup 164 /Lambda put -dup 165 /Xi put -dup 166 /Pi put -dup 167 /Sigma put -dup 168 /Upsilon put -dup 169 /Phi put -dup 170 /Psi put -dup 171 /sfthyphen put -dup 172 /nbspace put -dup 173 /Omega put -dup 174 /ff put -dup 175 /fi put -dup 176 /fl put -dup 177 /ffi put -dup 178 /ffl put -dup 179 /dotlessi put -dup 180 /dotlessj put -dup 181 /grave put -dup 182 /acute put -dup 183 /caron put -dup 184 /breve put -dup 185 /macron put -dup 186 /ring put -dup 187 /cedilla put -dup 188 /germandbls put -dup 189 /ae put -dup 190 /oe put -dup 191 /oslash put -dup 192 /AE put -dup 193 /OE put -dup 194 /Oslash put -dup 195 /suppress put -dup 196 /dieresis put -readonly def -currentdict end -currentfile eexec - -D9D66F633B846AB284BCF8B0411B772DE5CE3DD325E55798292D7BD972BD75FA0E079529AF9C -82DF72F64195C9C210DCE34528F540DA1FFD7BEBB9B40787BA9351BBFB7CFC5F9152D1E5BB0A -D8D016C6CFA4EB41B3C51D091C2D5440E67CFD717C56816B03B901BF4A25A07175380E50A213 -F877C44778B3C5AADBCC86D6E551E6AF364B0BFCAAD22D8D558C5C81A7D425A1629DD5182206 -742D1D082A12F0780FD4F5F6D3129FCFFF1F4A912B0A7DEC8D33A57B5AE0328EF9D57ADDAC54 -3273C01924195A181D03F5054A93B71E5065F8D92FE23794D2DB9C535A5E57376651F6823308 -463DC4E0339C78699AC82C769542FD3B410E236AF8AF68CF124D9224FD6EE92A38075CAAF824 -47C7AF41EF96F3ADF62F76FB425BEDE4C4124E7B1E0B8BF254D91912D3A99557F5427907A565 -14C5A3EB961B94112077FE9417B70DA0B2E1C1FA3E1D6F01D11F640CF848E45BE3E205258E64 -FE36AFBD4DF4E93F6B1A966C8E7FBE2CC8FF43C1F67BF6C361678B5E90F4BA524FE8A4CAD6AB -28183E6ECA6C9636E884845105595A2E40CDBE8D4807A81AF4DB77B31873FEB221BCADD42C46 -69459704CB58A7966B77ED61AA76BF4E05B2265D494025FEEB45907060243E63A418D3B75EA5 -B4CCEB47C9F70B67AED130771346015EA6EE1C0595A1DABC630ABF643F5AA128F1BF37464F29 -4398D9209F200532839CE6DB19ADBD2050B9D04289B484B58C76BACA8EE8C1047138B0814FDD -E2B31392E886ACED278CC23F2747AF994C23FED4EEC7FD6E51AF55888144B1B7AA952E0F759D -61E50040EABE9ED9B44CE3AD9449E22F020ED7769691B8B48895E89CA46FA02D901EB0C1B953 -DE426B56397967AF823A12138C269F179F64D539301A1BD70EE84C75E6636D6B493CF86A711C -B32F6C7D9E6C0502871F46A63803A1FDA4BE8B7594C9DC4312AD1364ACE7692061B48E60FB04 -989375A429CD633A209ECAB364F24AFA719FC453C3190CE91C2470517836240BF053E0CF0834 -D27F55C93F2B8A7253F59243D7D2BEB359C63C98DEFA90A89DF6C420A007BAA66DFE690EAEA5 -20BF0A94293AA212EB66CE7E200103B7D3A50FF835557FFC1AD378916DF5A142C5F3F7AC6B0D -3776D67EC6904A7C649E16EB3FE53E0768BB921F7B855EB5039C3455931B55B0849199688012 -627C184A245928E7FA04EC3AB4C2ACC2FFD2632E2AC44A11A13EC87400E04A8FFAAEAD6073C4 -AF55B90930ED41E4D59FA33F2EF4745291B1233B9D8EC44A72154DC13A770A8E255DC9E3F2E4 -116F30F727B56A5EA14473E68B4E90E37A420E9CE6269DCE4E1623A395EF55AB983380D31B2F -B2821090B5DBEA5118A3B2C46477FC0BC7A81E890C88C0C396CC0CEC55E7A39A649CFCB8A2C6 -41E7582AE35A82566F40800F6B5FEFD747C83FDD2F86B2DA64DD35F85F686A889FE24D24AC85 -19CD2C45ED08E2A9B338EFECD678B22840B8B1D445679FEA9A72D3357A2598167627C0B4BC1D -C7CC79C707DA791CC3B49A30E6E6F31A934FD029E13DD67B5155DD5B95328A6FDCAEF3248D77 -A9AAC90A32E0088BB08BD179379F0A579F9B3E647DE8D7865E1AEE6008FDE83AE3D63D109039 -623CEF2A58F2D7853AA72B0C30BF833134E453AD3048A163E83617D55ADE3F34AAEB25459522 -9A2AACA7FA87E77C025B3A46D726EA8FE8F87DD110EA55D23A7D0ADA1FC101400501CE8D7AAF -3D1673CE3C92B7B696CA100FE741B61BE5CD3B6865F48E84B12A189932CDBEB2A48F825A81FB -F68EC4C1BC7B570AB0C60AEEE63B856CA2230FDCC859C67265118AFAAC011B863B2675226A67 -E5A3B6C93F1E29A9CA07F8CDBE4EE8BAAD320351B5B2D8071998AA594F83F1DC671029B6FCA6 -7F717FCE3796CD9470164F4432C31F5A6918441A8D3690575F34EF4ABC1A7FED623D7A97F3DA -989F82ABB18D63F42CBB02EC54C9851965E5546558BCBF684A74E4166E12BC5AAF104E64D52D -A36A78E345EE9111C28FDA3984D6DE92D1A6796610AA8AC067F5A9C6BFBAB4BA9BBB0381EBF7 -F15CD9FB0211E1BB82CD037224C0362C3983EE54D252180EDCA46C85AA2C37E966B432C20989 -96666D057130D3F2EE60B1AA8904CC7BCF64E17810C4CA8F714E5EC717F75C7D50956B2DC676 -C1A3118C9C56510BC97B5E834D452FC7298FF2C6C90FA81F7D7D70F05A98A92482EF7CA80459 -7577BFEEA5C00D50E91F8B038C90B3472C4E29D68BE6407DE4058C9C7070415750163AE4B150 -1537E88F3CEE95100B3BF7F95CDDE74D040CD28EA55772071665061ABE13E0FD1CEBDBAF1622 -19E98FF4ED414C59007386A405A43E84B9A310EF63E300F8249ED864849BA877D8A22967F54E -96B2B71F63DB59F824F62E3634B710410C251C825094AB00F3A30D94E244F7A6B4380B9A66B0 -AA575FEEDDE97BBF70D34382464B5509BA9C4D927BF854819D1F44F807370DC7E17187D6344C -DA087F067E7CCEDCD290F7A2E803B2B19C7FF3D1A65877AB8674F3DCC3178C8438E626490E8F -21DAE3481D3CDB1F6D64FDD357DC300016C3C6ADCE173541348F0F6EDA2E56406E759D301BD9 -DBDB9D7A14483D0DB56520E3B9D91DE8D9285E3F7B84769FFC375131C15F7D825CD9EA06ADFC -1DBCF8EE9160506374C74B2D147FA0897B88CEB026BA4566EBDDEA09B33CAE5F8A59528D66BE -64C5A24C4DE4B5B1BA49FF5ADB60A6B52BDEA02652266334409DF24F1BA044AF511DD7E59FC6 -5A82498C82E18BE928FB010973E8662B2CCFB8C7C59C67BC36E7318BA08BB5CC7545C9FA532C -31B1156D2635F1ADA38197AA88D90DBD2811FC340289CC4ADCE6C5A7DECA645F7B7A9290725C -4C67289F901D7B94346E06CE95C9C49399E303F595CE0308405129C3796106DA12DE9D15B364 -A9841DDC54ACA8973006E66826962D46C5379763CCD808BC7D532EF8D0327A0B84596160FA12 -C9E462CE744DA3777745E01DB27E1677871290CD65045F996E97606A68D5E26389D39F28110F -B9C76150ED96E25408346D24AE0C057507B10E39BDFF4B12120B529F1DF468BF1344189FA2CE -8AF379805AF044FE67A11BE67766A734D1409D1B9D3E50494F3D4DF60826A5518F79DDAB63DF -523C604A656A411385EF7C59DBED446C38CE4D39314C0404D03A3901E8E93361B1D38F65D8E4 -61F5BBDED078757B671E2B12C03B78513C1C92F54E8770FA2447A59B56FC777154E7F50EC1A6 -52E7F33A52781EB51C5B0479897961DECF517CD9962CCFF77B7CA1F81DA81E9AF4C1DD4CFEBF -74728B0AABD710F9F8747C64BA565A582C19B4943C956921CA1B1EAC0B883020C2EA90006DC5 -97EB91E82C7BD6AF70733E79DC30E30EAC1FD11DFDA52AF101D705AE9ECA3154C6433C62397E -57E4DDBAF657CE73BDEF2483DF3F0843F32A6E9B39CB9FBC36B3B8F0CCEC356F1B114057E736 -DBCC4DA998851167FED692BA3F8755B4EFA3EE8DD6B1AC5C0631CD3C84389641A44BD5A6A41E -2A4203A6D45841458A346270A956A1E1048C4358F5539C475A81A2B800D8104AF1F86BAEC7ED -2E1850BA951E8872AF4D728A31D4470EAF98B2798DC49C9DCC3886E20B01144AF70F3635CB47 -3A574CED6DC4D9A7413AC30DFB9E48E52FAC4ABAC7B0ECFC2F4082DEFDFA1A41567182478E60 -95F2CD471405E173721E4200E406D8F613FEB84CBD4AD0BDD8F8B0A4F01F30A4B93B26B8B57A -EBF96322C15365B230EA665F443C8C8B096EE98B3ACB2ACC89DE91F4FD561BBBA14C610ABFB2 -E8E868F2CB3CA7DD74DACFAC6CE522F233258165698510F548D1410F5AB8F99D32884C16CE55 -13159029A98E8B88356DC43FD64C280BAA4D5A0E4036B4568298FCA54934546ECD5D1591ABD1 -C4DABEB638535EC0C0E9A69FC6E42844FC39329722864DF4D35191B87063C3F2864AD471EEA1 -0E9FCD32CA1C748DFB0551712402865B3546CB524CA87AD8DA13B420F328AAB486BC99E3900B -978ACB4FE602B697C8FE5E7E2C00F06E53A12CC5A6C44CC62AAF2923A95DD7C5C381F501C52D -D281443325F3C8C0A52E1815E78A55AC34FFAF46208D374C4200BE0EFAEFB18C94C371B98A18 -92CD2CC5EA0ED6FCA24557A9353AAFF55A905F6D1E3FF4B0E4EBF73B3296A2C9BAC51DBA6486 -EC87E8D6A65A3BDF1F002323D07849769EFFC48EA242CB891D44FC8BFCB3BE074849AE93F2F7 -73B4EDFEB2FE0C0964D71AB9DDBC2E3198E7F49CD60BFA9DEC9D336A67C73D4BB8649AB4E5A1 -8483763AD4D4706418F41BA151E13B51A665A08DB5B199FC00B4751DEB142A8BC086D12F411A -7042C041A1758FD4920A26F610833F8CA5EA28266AC3E1D416EF1929FB20FDD02B697315F191 -9F862C40E18278CD70A87A352593C86ADC0CF028B575E755C52C5CBEB6FA83826623E48F64FF -E680BBBCBA829E94BC443AA421A17EB6E519FFCB6C3E0D60D4D4DCA93A82E4AB87AFE4D90ECF -F609B3E892B7A9E5583C48322DCEA45E5A101B5CB1B2F23B42B106B1FE61E803ABCE5CCFD84A -3ADD55F28674612B9F6AC00E136CF43EC910175F789A5FC7E1970683D98E4EAC62A4A9F90E86 -D80E42FD497579C1410E728A71A87EEFCC3A77849839A30EDD6A5B7DB6621A6A4AE12ECDAAF8 -EAB5F870FEE8010D4CB6A6B49C496F54071694C17D658A43588A71D4B9FB704976BF42762712 -9B38FFB22C957C37D85608803A3894228E2BEFB05B3C84D16A07216667F04737C5F3710960A4 -1188BA0956D697AFAE27BF34E048CE1F264FFA6E8DD588D62D23A321CE6BDD9D3B617B0F2B1F -71FC14F5DC3C526CC806B7ED33D1545B5CAB8DA9376A6562E26BEF39EB306BC892EA5CB43DB0 -93F26B109645008A6F9BAE796EA7CE4161B981ED4F39CF384C9415BF4D5A0CA6B66D87BA2402 -3539B15EB46DCD3D7F12E840DBFF947847F2EAA9ED40413111BA2D3E73F27143A7F2FB2008B3 -FB09E5E068B7AF093676F06C99187D673258F1E000288AC9921B253B136F975B10044729F339 -B1AFBCE4B9E2EE19981B632FACECCDDE16B0711A2D9E99670BF46012E74296F17000B304EB4F -23980E0ABBA23984C6D4E9DF23A80CC518EEF9AE9E072BDD5ED729D4DD860BCB276B3C85492F -E6DB77F0BD628CA07A9B9BF21DBB2416F2302010AF9D6DC484BEA725BD458B1B36D3FBEC9A0F -BDD697A278384A8B63790D99886A5E02223676B39C9674CF3BF883314ED0C84C9DD709712D7F -DA9D684585DBF71432E9A964CE75A87E08C5FD525BECCCC91861620605F59C8FAD69483C5CE0 -F58D5D783D0801BAA8985A3223B20145E6C31A5DA673BCC5F803F698EDA6FD1145107E9BC860 -4CE20F3287C290A1E9D6073620702C6124C5C683AC95B6FF9A16C3FDC250122B36D3B7D3CA8B -A897E3CB693B9974A78EEEB9684EE4B506D0D656E5193FE4B41B3C6AEA8730849F944121A1FA -D7D0C0B39DCA129973932461019F0790DD0C82C91D3F58C3E6321ADDA75F03728E029E70B3CB -91850408673A30066CF62C3843C3927429DA88C2B6E2DF5F8A77939B8B21B448456B86C96317 -ADC0E5B5A11C522337F74D8A44A62F3AC4B6F8A4DDB94FC46CFCF4A5D4437C46A4D2C61C5F6C -E24B15FE58ED8F3B599A8C922D56C84EC8D034BF4BE92C45B515DD3796587C45C04EBEFB4E51 -4313404B949EE91A9A4F8DB6E6E2537B5D4971CD68895A2BF88E9FAE27266810A13C8D052556 -A3CEB72AE0672187DEA63E0DAE0BAF7B06FCDF55128246206C19C3B99636D310B77BB4F974BB -74BB33A45C439B71B2F7C52CA1E4897632FC36289B2A4DBFC1546C1D87DAE01DB1EB0D226799 -65856449562CAF69D91F3AA7FFE056ED564632AF6D91DE7283C168AED0A04140B36810640181 -A72F35129DE103E8F926363890D7606A5D2C6DCAF093695AB3DFD56BDD34418B01F11A4A806C -DDC210F91C02E30EC5610C8286197EC400348C80B353B458E2DD9789874D81954D9A6EF50342 -D55610D08D2FDE84C2FDE538E5FA2B22935FDEB22552920C7F831B898678FA191B1655FC21EE -33AE74E494F7353A467232D6CA50E177017E99C4D9802A6BFA17EE9A6D0A0443F11914170D87 -0F6173A4BF304E91B0E14FAB97BDF29C46CE45352D41EEED1A4252CB12DFBC33523E9B04E090 -93494DADBD24360C65BE9F6582287ED54E9F0F0A4240C1B3004BCBE296C03340582908C44EBC -CFE30FC7A812131C81AEB9F97827A5C8217FF4169196FB3049B035F45D1C1EAF6E6521D3F567 -D780C7F40A64ED3F7136714AC6A90F044B7EEE580FDB0F5530B4A6B84174A5FBD590A4203063 -CFB58E24DEFF51DDA3F3DB719BB148D00018F1D0B133CF7D85D51E62B048EDE3E2ACE2631D1A -13586196167BA1A5658A22C0BB7A627C55B3C6FC12080681B0274727A916DBAFAEE6A7FB1D81 -57AEC270B4CD53E9178912130810826FB33600DB347EE10888B97BE1ABC14B35AF58F9CFB033 -CE1594729A3EE013691592775581690CCE4A79BF03A30B1CE08149D91C0BF89D0125D4C3FDCA -E1FD6240B831660E3FDA7DDB36C6707CD89F84F2F940A01398CCDA2A3296B879BA69356F3050 -6937932995CE8A94840853882449174B5CBC2A26C35152B3E8A2320CC925D5C6A9CE6BE30BC5 -7988CD58B742F79413BA15AA354CCB247B356A0A6310CC9C13816BDB472B2D32EC6BE5E4FB8F -DE6528731612D0275C9670633CEAB3584CB1BFCCD8DA19B895FA76A815B077587AC1C535D2B3 -E14B8DCCAEC11D729E598C972C0A7F07C0444E8532238EBB33808ED0EBF23BC8160062286673 -B64D248C6D37BA8208F3C2521DEF11FE55699F144A237596C10919E9A88AB96FE52810FC571A -52D444AAF63DF72EC5F5A823889DFF8BAB0ADE0647EBF4B075E78D9CADAC8645638F21FB9710 -ACDF91365011EBD9F6CD154D23AEA1381A997ECF57C172B4BFC013F867751675436FBA117CB7 -2B69E3B1F647AA3AACAFC64477CE435A1DD7276A278CEA4EEB12CE2CF36B4185E84BB0D574E3 -7D5D13780BE4B187B3C46E56396E6303D5FC5FAF4A077AE1C0AE0ECEEF94BAFCB6B57DDE6C24 -D93A702733E8D9123B67DB112602C641B13BCE6CC30FB5373FCB91938A536B67ABDED56701C3 -FCAC393758F06E046BDA92AB42FAC92DA1F877384A018B8FA4CE155DA02D940C54872FEA9016 -F6ADC15CE52328E33159A80730EF28E1C3F25B2F7748EE83A30A0B8669A5BFCC26B25B4265D6 -225EFACAF4D268837FE6992FF3BE510AABDAEB90266760E0F3C0C36A66A8D9F3F89FD00E2939 -244FC4334FFF3F549D31CAB0BC6E9EC5A0FCB4F43EDA82E04E262727F58428A4FAFCD46E7B1A -9A92DF9A094EB9F801D053D5FAE0AE5B588FB06670E33876C8B17ED2141C9C7908F68263AD77 -F2E8BD29C01EF2A5D3552D1CC8CAAB6E6B6A10B80F5E2D2C16FEA197E4F03A55FA5E8098A6F4 -A3C52CB30DF2FB6F6519E91B610E01E48FAB546F78BA9003E17977040367C1E4EB638DBFFE64 -F2E9FBE3343556A73ACD12FF8C1ACBDD4F4AF44382A24B95FCDFBCFA1EFC4E239C98B6731405 -CA5ACD64B49CC2E7B9DA4DBA9D6F65C109AA98176FA88030C5CC629B1DCC30BAA14619521076 -298FABD1831ED0AB9B262976B8AEF1299A8ECDB5ECE21019E3D687A6F6FE37BB3782E0F14376 -2E3E7BC2B2CD2F30A055A5A957BE9A6106DF4440EC0934A5843BBE929C46C6CA14A38BC0187A -CE6DA749639BC748E32B34B95F81020B9559157B9DC148E520B6A497E7A06EB02D31D3A30A95 -CBC2556AE9875C5F9BABD08DF31E54CA40ED00D23491FB3E4AF36E769B1F797EF2C0B2C822B0 -1ED624E0091A1F7A9B690B17BFF9F490D0371A4AD7D26104C56CCBA1E026ACCB72C19711D794 -76E06F821BBF2E1F5497606C657DE5B30CB8EC2E6B5C93A31FFB0B297FEAEBBA2823E7F51238 -84FF18C918F7956F04972BEB2D6504E91E2E7877DE4BE964AB5C97C255B7E53504F2B08A8087 -CCBAB662928F5F4C2F16E8763505A9CB2A4103D5F478A555F6A585C527ED6B5BF9F0750DC174 -2349D4DB9C5DEF381D0456CC203C348DD73C1D387ED6A9EC81170F40C2ADF3DE81210D3C3148 -D6BA3854A60A3676CE5C906111BB58F03A57E074334100EA728D97AE525565D637A82F6AE21B -6B1BAC1799D88F117A79DFEBA74634BB65BEC416441356F36BBC7359B92469971A18879ABAD2 -56889ACB1688A3D16FF251163AB7AC47CD6E952574D3E3570C8DB66373ECF77FA9966806F92C -D07A2649CB4CA5933429C89362E631DAF0C89B6F586A7888B4964C83A4CEBF6BCD65DCDDFD47 -AA3529CA0D776E2A65C4A068C3323BDD562052E5F49F5E9934E9114F01D403EDD517BC040B18 -2C2E148564890A0C766CCB79DC1AF9B7DC576959286A0C2FD6BF3BA9493268067E16107A7F68 -3C9996DA8B9B5B38E5481653145A3B75721F998D129D6B284A012457DEA4A97F1421190C761A -63AC861E5E7DC355BF0A83A1C4698C66A8C9CABAD8EC335A78C4B67FE8AD1D722E59AC047DFA -470AF039E3CDCC6B0F942C25A6FF197731E3688DBEF84D3278CAFF386C2E10F0902C743B3754 -A3A2F3E332E7AF598ADA081CCD14002E027EB0D2AF277DE7DE5A96B6F793342283BF32C2BD4B -1479676C9FCC9C894CFD8B5737198450F885151F0383F599435883A3DF1605A43A9C247F9DF8 -F8DACD85C8660BCFE778D690430A6F8ACE33BF365C71953B3977060915E803265E25326E2369 -D497800D04A47D261D88FB05F85D20C2807B3CE00CC0FD3F40F961831D276F2F2B25860C4B08 -79901CF792A49536586CD367FA092D1BD03742DCF28BEDEDA81A4D6FC7607378CA6632614F6D -D25C0726A3E4CC175E72662CF577F70AFCD5AFD66B716DB4819F394375CF995340F5EF6518AF -FB8219B57BA723521A6ACFA12919007DA6DDDD57C8D7AD298F656C2A568C8868259E72C40050 -5D48363C27DE6DF4AACB983ACFB8ADCB6317A9B14DE64B02268129AC49007E9EAFAFCD3C8217 -169B678F7A29919B2AE0F16BFE317C3654A050765EB24EED0CCC874A890DFCA5A7FF9A2DFCE3 -AB9D54E289DB0A170CE1DC342E32B700B998A468B6C7EDC1B87705CEA23E64B9BA46331064B4 -BA86A5B4C4DCED5B5A4550FA98007C305B18AD86BBC893B504070BE53C58D37C535B686ACFE1 -30E06C21B64E2E2AF3D42C3C3E5E548CEDACAF00AF6D367DB450455A5F358C6AF10D16457478 -1FC09599BBCAC9D5AA2297D4950C80ECBBBD72F14657EB7C56F3682CEAEC5163DF8835D07FEE -AC3871426D72F9C19B3D0E7B34435C58EB6C3BC99F8EA48AD0761C32D9134D161DFEE0BDED5D -BC8AA546EDF182510E12EF9AAA10A7D151161FA37EE66CFA167EF9662D5A9124BE06C7DA3B6D -F116EADDF587889406D4539E5A0E4379B1A26238B288B8523C9D6BA5D355EBFB16CE7F6F6A3F -8D52612F6F4CAAC67E1AA2034EFC539440978500EAA4D52ABB7FB4648976A1634AAD0CF00824 -D828C872CADAAE8B302E5BA75034F239DA241A0A4FE46308F0A45FE90CB255FCB021E64295D9 -BD844573711132860316864933BB2A01AB1858AD1F98E4A5433FD3EE97E75578A5AC8A9C1CD3 -52B91161CEBE55695BCAD9658AFAA2C092E79D69D0F1CF7AC6AC0A602CC52927923D3BFB8B3E -E6B839A18926358074347F5CA6535598347A3469121A8A717703D5A76266E6C497743F009430 -C1FE2F4ECF3A08C4F3C3BDE1C5A0BB5E8F9E9CEB753A36A6DEAE4D51286736C74EA8D7A4B8EE -DDCFBCBA8C0D7100AD74BC31022BCAF73DC00870818070AD18EE422F47D969566459030CAB8A -06F6E369D36D463E0E5760D6358A7D3C7BBE867EABD849004523A486547DF2173DAC9410A00C -06DF970D59C285CE67C655B0FBDCE6A5E569C528EE9C5ED64AC6CA4E5AFE4A255F262B101F8B -329166875D193C107CEB26E82EC8AAB1C505A10CA9CE26F1AF9E21B451B86A00B2D057F25BAF -54A113551382B9A74504A07400C407CE960F2D4ABFC305EF2F62E0CE74454B6AE275F6FEDF93 -FE2677FA8EB9C2EDE60B406983C38170566E089D01A1E24593C4EDA4A7D222BCACAC6B2846EE -9F6459C88ACD1158D30B7175A8B9A01613EB46F3422DA0DDBCA85D22E9D1B7E718067B45578A -DBD6A06A05AFFB1E968F35651AC39735EAED2DEE24570A6E8E48AB9B82C9B88680C03FEBA823 -B75DD4CDD07BB7DCE0A46CACE0ABA85A0E9DE044C955A5136D214673A8BE67D3A287203CDB8F -275A1968F5CB1AEBB7183D4C4890C122666C5B396330A9D7FAB30B931AF22A925A16BF037B77 -170588799BFCF8A0E7B4B16CCF90960882E8CC7C943ECCAD65194661E6D6842E4491E60F998D -8B4CED7692F29EF7990BA00B058A1C5CFE62F7E69C74DE74E2FEF6000187E3025302554635C4 -D696D3F061948FE4D5E7CB17185EA874D54363CD3BBBBEC8E1CC3DA95545F6FA704EC780AA77 -B286A37C993C10C29E5CD5429322A5CFC776D6F7A93B2438F15594355A62FBA70D25AE1AE30D -F2C3F80FD017918F30A6CE355A6A6EB6EC6D9B56BA60EE1254C87C38A1E8AB45FFE33453E5E6 -5A3C0BD9D820DB63D8C508B6D773219C2447836DA5D9623C9C0ABD1E2B9F57AC7C186BBBC5B6 -24F04AE04AB0693EC38AAA42B960DF9DC88254D5519F2D0731E031FD42A65620759EF9728031 -CDDD896BDDB27C9647CF83C7AC9050FC838A30B640DCAA7207D8DEC1FE132C5C00FF3893FAE7 -948416FD6F080F00E59163C6E26ABF9C39D0A0765073C6E072010685AB65CA6441AFF6313D63 -8EE52E0095BFE26283AC8AEDB17654CABDE60291F7644BE3C40B0499C27B400E8FFF44731B6D -B8007783F2AE3CB85D84C08E8C6D00F35B29D4DC57179E2240DFCD9EBA9329789C9099D52071 -0D066FD9A515C7D77B0BA673523B1544A4394A1A811E72B21FB9EC3F9070023230EA1060DE9E -91C67A89188C02734554BBEC90CBB35A971D398274BFDB8CEE12A73A4AE4945B92B67D084046 -D1F1F56A64067B7CCA89EF399D47F9D857C7CF27AF530452828E6F2A193F94566D485F84EC3C -7D2BDC02D62E9835886FA0AF41074BBDB78F3A72F70899E48A31A6CAFAC4607C9FB90F0B666F -C42BD8B2C4E49290D32D8265E2E0581B635629F302216488E32462A2038E5F9C7B1476AF8316 -53C7768FE0F09E904CD073246CFDDD4B8DCC0D3451A5039FA47A673B770BE11B03E46A887C53 -B1B7D2401131EFBB1D28FBD1E61DCFC9600D38E6F5F366F1178A7C1EBE3EBC19319EFBF069D7 -4188F42BE356425C593EBD18CF244E3B35450870F72FD899A695AE704F9E5CB31B813159720E -E80BB6C765121979AA38E8CFCEF6054ADC78956A2CBA6F7A491711C81373B526569A922C7124 -25BA5BD448013490D459C0E5D42258AE54578F510C01AED34B50C4C15C27BC0CA7BFCC1F8FF7 -3D63E6F396C949973C12C0D295B348BF2180FE5C9C886CADA54C94BB2629506D3BBF89019E0D -71DC6B01E01C52938A785E91BF5F8BD6275963EC11E33DB9F0212FD72D24E17354072BA22B4B -6B96E57BC5B8763EE96A812607A69FC7E17C1D94F3FA7BE10C235BAA3E6D261CF3A4F4A75AE3 -0169FCDE2620DFA298EC4051D48A4928E009E5ECBF7626BDA1262AB407C9EECC72ACCC137022 -1772F2CB22E8A68F26DC83A467876416D9D73C5A8831AA0E2E7D4E5E6507488343AF10BA5D8F -8264895730403BCC32F4236C1FBEB5F65919CCF90DED28441DAAE07970463BC9A40FCAA350FC -8E7EEE00556E0074569C0F6ED83B3BDD3A0AAF7A7C619A6BEA9AD1C0A7E9060255F63C1A6F12 -1742806924B033D8DB7D997F6E6626F1586F01338AAB718DC8709EA4ABFC7F76750867AD1088 -AD58D5B05FA54BB54A4B58EF33A162BDBD4D90205EDECD0FA04E65618CA640031CC28C88DFBB -E35CF17F68ECE807AB00601F8EF71AFF61AD5B8830E1C676677053E7CF565A4CC1984850A5EB -7545F8B04CDE979BEB5959D41D82F2C0DA326A924E332E5E8DEB8D3A3173F65BA6DA3B798E98 -7F7EEE9E0BC14C565D6EF0526143F89AF7232B5C10E0B8CB0798E2FCEB6F6303DC39E8C141A0 -9FAD8E841D6366405C728103F0C3CBD1DB97B5C231427091C7E8607EEA4A96836A2F16DEF71E -C9E086691FE559D8B03D79FF8494B6E3EB6123A1A9DE674B924E18BF5B4433A9065A1CB0420F -9995F00D6920A62BE78D261F7C184281CBE495024595CEDFB9B58D951A2A217EC298D36C5338 -9419FB2AD9AC52224B1CEF86913797108408BEBBA6BD592122C4A4A7AB50E08F1957455D0A5B -69C5EEE83950D5B8FED11367A693F8712CAE4D828AAB1A49B02F8B4BD3FACB1083D8001D8717 -786E3E2AB1BE9D2EDE46BB0A11A44750B00BBE7B9E0810B531A8B62515D44E5C868AE7D8D440 -09A64D4F4F69B8B04091E1C7F047A8BD3D335BBC17B29A508074AEA9D4A5AC9D3BAB1BF1BA6B -C580D5F15B6CDF531BFA205AB15E2EFCC9AC9BF78041C9DE20106E83F02FFF06127B4E756C42 -DE99EFF6039BB76BFFE933FE4F7B9ADE8881830CD99187B21898AB87F7C1B81D2360822F4B94 -559C9C7B0C4C83FDF746E962ED0C73CCC6A4EC1245618611AF487B08DCB6D1A3B5349FF90A90 -50FF02B505FD379DC76F1B14FC72F4B8095283655CC9165E9181599165293368AF6FB4C3A676 -1D48BEB953532A68B7D5CEAA54B121B80FE9BE72EF26632456296B2F85C6CE60AC08C89F6369 -885FD695B05F7A7F945388A54376F95A8CA5BF3192795F36F87DC9A88CCF5D9A5EA854FE9781 -1AF4269D3654B1D47123DF18FE26E89DC346E4546530A553121D3861D74C7A564AF96938B0B7 -E25C3777B964E069FB13BD6D79EC07C152546C9D3BC5B297AC238A1BEEAB6F965A4FD0234BB7 -E1B31D938B2A8F8FA1F08CAAF99338A790A9C9B26899D3AFD0A95ADF9EBC3CE6EE3872931CDF -43319B5059C4B5C68D8562F01B1880FBDCD988AEC0763F8C6E73CBD6111CE22C6AA4EDDA4D88 -6E3E7EFE96F8F4D55A45BD2FAD2E68A719D2EE3D05958FF436B01AB54EE16060DCFDF10C73ED -5E6CFA3074DA884DE5C8BDBC04DA7022197B8C0EBE9A617C21064867FB1A13BFBB677EA769AD -46AC075266EE0BA824689E3AC907795F68DD7CC20F3BAF05C8CEC4CE5752C9C42595CC005618 -4942EAF8FE615B6E12CA5DE4930EAA2E8F27C39709277526B77F199E247A5142E93E74F25033 -CB87BDD503BA8E10A5002540A4778351D4E4C42C4B003091CDCD07A12E3D84654D3DCBE457A8 -9BF0B8B76C517A0DF60514870D806FCA80FCE5E7B69008F074950E990D51CBB5A57196B38262 -B9C45B8A00BC98D39A3A8D3C8E4210EA7AD5B30E0307D46E5252767B52601E4E8EDC7DA14124 -497DA4A365ACBCF5B55637E7FBE50C3A7A0B1DF50902E851D54D45C9389D43118AE93A2057AF -24FD9C9AEF6A32AA425E06B27C04E969532FA9A00EE7D518DFAD5E15EAAF70E97FD66DE7592B -3E4A356FF8EDE0DE650BF1AC2FB390A4BC5381524D94EDC265CB58B9E86410BD141B463EE9C9 -F2AAD8F2D4C395D7E83F422DDAEEF4E97027E5DEE38C377E448EDBB0829B7A5A1753D63A068A -4C97BF5CDC420063337B7B49E1FD41197BF9972DC13C368287E5468C50F984A942BDE0F8AFC2 -885B9BF1AE9F1730676FD19C592F919B9ED6EE19752BC11A69425D71BD9337C14A4C37C26ECC -74BCC3786EAA038A529C2BD5AB6C9978F6489A48C3C831340ECEAD2F347A164CC8875E6C6EC4 -4956B2E57FDD6C7992443AF2738BFAFFAAC1A8D1658C4C002A2B4E6D8AFCBAD0ECB4AFDD026A -604871889949DA140B49D8E72550D949ADC502C431D23800D6E3D86D24BB8844A0BFA9BF88C4 -C2522A6DC0542E62E18FBE3F3A7F25C280EF6C5B139645DBA268F31F4EB42359EA18D8B81F58 -FCD119330A3EA56A1C61E4CCA02FA83D73A12E8D55DBA6B53AAF572901A45D5D8D1A3DD1FB50 -F54C7FA919D189FA8FD304B55F48ACEC50861D9E7FE2ADE5D76B976CE148D15169846B79C29E -F4810B5D6093E74148E22AB8A5A56AADB45E0A7CEC3EFB05BB88536DE0D6D41FD4C5C6CF6718 -32F3B76B1CA49C94E4FD29F7130E6525D21093B758A2F476D7B34CEAF98963FC566AE8080969 -CDD8606A192D9F2A0C1062BC18C851F766A6CF944F24A5B441F74BAE79A3F7364D00F2225C1E -26B9EC6D3CC829BF47EC292F01BAD260C13BF2392C88A8E7ABDBC6648E614E427AA9523E6680 -94421CA0B4501034E660776729590B49AEC1C0CA3DA6DDB62513CA902A9F53BDC54749A357A3 -7727BA42C65AA68FD827E746A70C371C788D433D1F7A701A3EB192ADE13B62421C8B5A02A7D2 -F99D6DA857EDE182329E67C7C8568C7E870D5C78F370284E8B1C006EF8AEBFAEBA8A4FFC2D80 -9A8EC1AA4F8372EBFE758291A890461761523AE5AF8DDD8BE77E0BB3C9A3DF06DA9C95EFE57B -84D8B2A3E7E6F791D2C6440389D2CACA33830B1B38844D4661146203CA817C8751A2038C9065 -DD36D1FD48A8A1061352569C662760414C0140BC990485B52A6303449A5E5923BC41B0A13152 -38BCDDD9EA2A3FAB99B484B0A2310F279B961302FFC8E241730EAF793C0BB77703723F95DCEA -9A5A832E8DF20B7FF146BD974490F2C2A1EDF18D869653EEF09C88ABF6B0EC4483F809C7C8C7 -B1B6D0CC684A37E70BDF1164AB6E7D97E551236F658363C45A4EDAB17F67BB1C3183CF321192 -7D4E8BCF6DC8C81FB39CD3B2E6A5F1BDB9EF451B503267CAF913CA6FF8D441DA6D164E2372D9 -3B97A70B1DB122401E1C082CA7EF632E6521FFB3635EBABF7DE0CBFB4254F8CFDC045B2BA9D5 -CFD3F5396B7266C5ECC0D5E45E07EC32D272AE949AC2E0CEC471265CDFBAAC6CB4DDA1F9F993 -3E042A69A7E51D72ED24B70A451B58DBF8407122517939F3EAFAB63E2F8BD60E4698ECD9C262 -AA5B29BEDAC956432DA0E047F7743E78A932AFBEC339BDAC4ACEB4267578A90D1E15BB0F1293 -F06FA7A8F3BEBB82962D78BD77A7C79DEAE0EB352B3C2D7E97EB832C4C485AA946B559ED49AC -7D7B9C69DF3D3762979CB7BD40CC9D4ECC31EA7E681FD7DAC4E62B726BB62274E4D4E7CEC653 -6DF4BA4339802D66C7BD006F348ADD9C3A46E0AF113030A2AAEEDFEB0F8B8560E1FF62094916 -8D108B7CE405504E61E2703B70E3F6C55849707D8780CB7E25C92DA7E29E2FEC62CCE873CF20 -CF6B3983D530017A3E24624A540FB07B08732D913BF334923CD79C139C2A982D7AED98A8BB95 -E8CB3336924BDE5C598FB5D1D66863E8F4AA13043131706C9A8427508F81572668C6D6DAFA5D -06E81701E46E4BC632A3D091C96CEAB160C219227D4D14120DFE9D59E7369917846BC87EF5CA -966B2E89F4B1914702FC55A4F8EA070BC1AC126E95C1334191784FCA7038A34B14B3D191F772 -1F6098858EB0BBF31C49DC9421E9B1F5A6A65D22372814DA0191D78DC4590CDDFDF20DF3E486 -17E6029A21094E03BC64FFA1AF1CCAFBA58270F6AC3D34D85966E19B59C1561A98689896D3F5 -CD10A7B72634911457E064583318E9F4E350B16F16D8497B10DA12B8C1E7E16D3D4BB12C332B -90353F1E82284A79B9373D60EC60C7CE1B342BBCAB1D9F2DDC1749CD503309DB6192E0C34F3E -F8FFE12B98605F99E804F256766E94E7442839F29B11685C714799FEE2C9EA7046E914BF5A09 -E12917B5222EEDE8BDAA1FF2E325838D8F32F7CC6C0EF7F7448B5F6C093336591126EAA00532 -A7713DFEABF3DD7363C6E792709B4BB598DE938B7D401F593381581D98D9CCD7BCBC4392F15A -70E3ECE5D2768687CC471ABC49A410F0D87103E22CE17E52520DB256DF5DE2E420F4E8200113 -99902A5D027CD8E31D78CFEED0F268C26E1A7A98077A72DE66AE25EBE1AAFF40AD291F92F06B -5CD6FB21518B4D4BD72F948DDDC723A4EADE19EC5587ADCA1662122FC79A241FC45B15096F0B -A97AD3E001E154EC2C0C22BC3856EF5AE832ED101421F8BE7D4EC8BC0BFA06F294DA2D4F4968 -11F472A6D4F51E85EDA4BCCB611CBD3A002B87B6D3704A9D80D15068ABC49D2D0D4431E09942 -E7482F9FB3883A9DC2BE22B8BB778E308A6DDE916F06560F6AFF0F93845DBAC3FD16532447AC -0C518DAFED79472541DEFBB6D5DBD78F46E3F49C91F79AC0D0F99B0E588A1E551610E9B41017 -C0BADE5BA416D130DCC8B129429B28375A2EDD0ADEFAD091A11D04F0642A233F654628D4E70C -B7869BDA9A28B0E4AC99AF29353DFC156AD72A1056331117B28BD4329B0B938744747E0DAFEC -04033E1CF8B05419295F1F5774310A6AED85891FFA054FCF886858D7B1D1481E02E7C4B6BCD0 -FD1E1FFEBF8E9520CF563BC402453D1E45D68918AD785474D26434DA3DE8149DAAD1E983478D -0ECD6C4DD77474A90B60B41154C541DDB1FD80E434F470D9B21CDA4D4FFB592C99B00BC5940A -764EE9E6D0725B81014A9E7A44282A87457350CF99FDD279DB1DC490C731993F2FC504C6A8F7 -34515D1F46087C7619FE649A11C58A090D144D451198F48B73BFFF82FECA93C6360EA8FE0555 -3F57CE04C6288356118CEDD21D8386672619A3D748ADDBB29F750B9882CAAF65959A4ACDCBC5 -740DECFA87592CA5079F44A8560E01255F2FB9F029F5F08A4EB08B9A006B47D7D1F9C85064BA -F76B7572251659667060B79B67EE7F7F79C8DB21BC8ED3011D4E2E1A187650CEF2BC36746CC9 -ED796AEA866648299A8E6FCAF055138DA3C388F76EE6D85EC447DCE08512F09D9E7F85A57FEC -09963F099DE6179013ADDF838F40B6EAA6366BD5C3950D75F95088FFC45FC384CE5C002F3B7F -05CE3B86FF563CBA4657D2267F9BA87EB95F4D4D49F5A7847BC988578164D0171C0A6AE8D256 -57B91178EFB221211E04CECEA5BA4FF34BF98DDCE3EEFF4EBCFBF1FA8DB4CF8346961D5BDF90 -8377087FA832F6F95004A16060CEB455D603FA97D8DEF73F28BC5F5B8A9B0F690E0E0AFDAA4C -86ED5451CF58F4F017212709F0087DA5C2B728F14FEB24DA608AA42A1678786DFE8ECBF9958B -4BC927D771660DBE3BB0054BA7F3E1F96B746646DC1F8E6690C4223AA81E8A14DF5F894E291F -199A47178239D2DD2C9721EE4C2DF640405B2C027CCCBA21F0FEBDDE3D777F01F151611F469D -0548A32FF5FB61A8B13444C12291AAFA2474A84EAD955A516D7C8FF15CBF1733342AF966987E -50ACB96642F1ABD97A2075A800DAE4006C1ABA2A6EDABCA47D9D96E1CA077D5088838A026824 -50A9E1F05AA0399B8E5845A4C35EC8BCDFFE20F1CC61BA1D6F70B9A159A5B4B06C119DCD3E71 -CDDF583B24146F6D9190D9B1C6A4DA302AB56B6346EB74742B76CE972446A8A83699F7E0CF18 -0DCF6E11E9E8B8B4493800102D584D21CBD13BFAF935D6BBF54D37F266F2F963406C094E3C5E -1E69BB7144C9B6E9E288908E13B7DE7A0CF8222B1D924F4B34C2415B5C0762F640F7E0FDC811 -2BB54DA961BEC6A700221CB8EEB10744C61378070B44DF0CEA55EB6A8854562508CD79DF49E6 -3F46225E4F1A1ED95B204189163AF96BA13D209CF36F356B06A02DB88A78B296F2EC4E446CB5 -7FF35E85ED58B83D11B56686F1535FEE6EEBC67F5A512CE71116E1F3619623E3B79D76B3DC26 -18C00B1B4B640EB1EBE8403D87C7DA2C903AA7D7A000FE79A2A9998FB959E536CCA8D797D52D -95B7928FF4C4BD4D9BF8598FE2BD2246568003024C2DA984577ACCCB0126D8565A2947D20DC7 -BCB977ED8594E28EE728393E1F5ED4F85ED8F82B1BEE9C68DDFEB15819B86E1C9860E7CE1E63 -4D6B19BC1FE8523644A0036DB45F158622F355957B9B0B3755BE02E26474CD5B88B71BAA51AE -F06FEB5EC508D2452109340EB357D830B3F622A79914956AB93699DB85051447807E45631D61 -5D04728B4E5699587E9473FD6B35D84DDA46DE779970D6AC5984CC039C65340FF74156B6D189 -4D4E5BC824004978C790645D22C0A2E1DBD1E87E9959CC1D89F920F7B631CC44F751397C28CD -A0621ACE51390AD044E78B76AE6AB36CE6C3F08C4FF6B71D8E995BFB2B00F960B08BB3F194C3 -5319DF5D1E630F1DB3E680BE444F8E713222E672A5B5FCDF8F0476D8AB94C64DBC0CB0984354 -7C1C230648D86F38E2102B7F1BE5F9D3ABE9B88BA6E9B86578074969D07C5F3F7CDBA1E17B01 -F1E736E0EC5A6BA6A452B4D27DB5F09B0BF9ADF879B4DF389656495B2DA3A40FB574BE94508A -EB1DF666440DE5153C073FF55018CC0E937B377B50EEC7A6D03F76698B2AEA9C883705693EB3 -E641A81C44CEDB8322639BD02BF782F756C1DDD99CB09A61575D64D32D82F33C91D3506B23DF -1BB4475530D12A61512A55E056C11B29B3B95105F0C230631DAA9F5EE01542540B47FF32FC9B -A00AC3600513712C07A14F8E5D925687DA0E6165FDD9ABE00079D016B80BA45C72393788EBCB -BFBB16F54D4AAE5C922F9B4AA8CDFDB84112D0EEABD6BF14211257205ED5E3D459FBA0FC946A -EEB156B480474BD087CC6F0E3577461DEEC3FB4C6FBDFC42663553DEF8559041EDAD0935E7AE -0E72FA568766D61DF49C56B04BB3E9A9EE894320F72BB0112E9BC299B87F0CC4B65ACAF787C8 -42A25D419CD7E2157358AEDBDE5A2FD4CA42EC1DF2069F078BF389DBDEEC9374B1009880A311 -DAAE758A5B8DC42BE8C559DA724864E92E14F2D535F14D6CF47442127F3EFEF8F302EA4186DA -DFEABA53E76C87E6E6CC7467495485CDE0D6B760374AC8FB2CFB003FBABC323AB8C53B09E3E4 -DCA438B9EFD3BA3B64317AD77711DF2534319AAD523E72EA9C46B074A094E459D1C314A90A8C -35C12221434EE3AA59AEC2617772354F1C74C90C4CFD9D80904C2195B94514A1276808323DC7 -3FE091E413F6CF2A2F5D43070D13EDA092243577A214DE4D92084279188BEE95903227FF1F74 -FA2C22868AE5D61683B1040E0B4C399F2FCDD87D75CD4C0C08C85D77AE5BEB1CD06B246B3DF6 -4E4B6B641BD015EE3980163DE060DFF28244E31193EB37687B60BAE853B8680307E26978121F -CD1218158F1DEEFC669CE67EB3879653E8C473C81E150BE99204F72443BB2698A9F48FE3BB28 -A561BA087F13C97941DCD47149FFFCBF4181A86F0AAD918CEB2A83C162FFD95C445301A73A39 -9F7966855A1DBA6E96C9C5048067EA5865DDA7EE10F1AB67B42CE294A6A0191FBAADBEC0D69A -5D9233C5E07B32FBFA815F92AD86C60E59D06C4FCDE5D96F399A2BF54478887ECFC7BEEA3809 -DF19680E809552DB4B0332F65A8C1B80EF258260B2F40D3CF0C05C0E30F0B30D34407A23E091 -D2CD0338AF4BC010B5679A4A610B6E0B961315FAAB86A271CE50577A8C27C801ECBAA60A96DD -241D01102F4F01365E9921C1AF6738A92D0ADDCC514948216A8F660F803068E29FE76D1C3460 -BD961C0589B88A465D6DBD097A711BC0AABDAC1F08ED439A11603E92858F75C167BBE68AF105 -D2AF9B2264660F9C2A2E4A8F7CEF83BF1B6358ABF033A5A77A32F82FE5ED680442F72F6A00D6 -E010F14AAE45E514B320875590B94A49EC661528BCE703DF9B061C729B2A12B3CC473251C44B -C51C3C17171C90E67A3F7130A47E63F69910EEA4BFD2E434DC3280E9D98DD60F0D998D0BF1BF -62BD4FAB7D586533351370FC617D3BC91DF69D231736F7D7A3F32B0C1B581593774AD2CF457E -97A08A7BF06E7C2C1E6EC0919A5A8934359AFC5EA578A97D8381939651E431255566F16E7877 -AE07A27A116C80E83716EB2C41C65E82895F06A84BFF6CB3D47C3336A849BEF80657B8E12012 -0D2ABE2834E18898DAF75DE9A9A62D4F6D471556A1E29DFBFE3FB714393E174CBEFBF6F2E554 -7147BBEC78B3BF6F4F41B7B646CA9FBF2FB10007724674FCB5E4643B47C780278A94717B2F12 -04BBE94A35F4594E1831B871B1FAE7AEEBA9517B8174EB02E491DFC22458CBEE7FFFB042BF29 -6C61FF6E31AE2B562154F3703A326C7E333E50A7BE04A456C053CFF9D7B6FB3127FACEB2E944 -4D62B8ADB357F515D115A594E26A9B412BD67C03D75FF0EBAF9195672A78CB9D2D12B30E81B5 -B29A7BE09C9603FB5345A8491FBF849D43F4A8C7E0E1EBD1FDA39EC4A80CE9AAE79F06DA7FF5 -26B6C887E468EC66A25377BE2E3CF3629672F7EC98780C5E9F9EDFED1ED16A0EB0525FE1A4F8 -02194A41A2029F0FF97FF2BBA44C27EF231E9AD7D9A5979781F5E6260015A2DB1E51E1CEAEAB -11E66F69A78633CDC2A5055C7BEB5888EB5256B5ECF65071CDE59A24D98E17F7921EA080032B -DF6F44757F7C4B7F27EC6993511CA5CD4B1CD64F5779E423D99A98500D75F4E83AA2BD5D64C1 -FB59231708AAF92541E013B83132B05C88C8DCE24FA53BC58C24698617C2A0C86C53F6963248 -B4DDC5C9FAF7BE56F6E3EB375445D2058E0388080AB9A7732F6B72AEEB093CAB2814451A13C2 -0C9D89152E7163F1D8712BD7D0A7F6FA893047231B2B0FBBB55E2B006067810C69C81E1DF174 -47A36C198EAC9A5548E66ABCBCE607E58AA1672464615FFC9C5F04D0642F08203C81AFE01722 -B2AFC927196DBF17ED5411B11237096A770FA4B723142BB0743141E7830EDA2BA2B10C44BC0F -62550EFE38C1FBDC9FD82EC23828943E3D52C8750DEFD37CC754454DCC8FC535956020BDB16B -22B8082619A9CC09C72846BF18DD29C0E685167F2D05512CF242C02FA3A38C5B901B3A94F520 -7621DFD2027FB5EAAE793C215A6839B6AD2635F79C73BD541EC2B9B7E53D4DB464095C01AE4A -6A86F7EECC229B740D010D86B454AE6DF8964E38C511B6770DEE0BDDB673A5DC97B7194E0FD3 -70D08BF83DB25E41EAAF0A03BDD03A96E0F5F93FC1A09DE60616E4ED40BDCE87673FB17BA7C8 -4510521A233E0E440BDD48D68489FB175572F83F8AF8EFE96408A11A491165E4961511B8BF63 -3DB86BC7D535EFA5EC6D2ED684FAE4F9C6B4DFB3996307BEA8C42D6525C3518A5422F5B33620 -9C225484B8E5BFBB43FAA8100A0053AF5FE334651C5C3402F31A20349BC98912EDB274AD00EB -BCF279EA71ABB924277CE58CAF5689DBDC9C84C6A9508CA7A034FDAE98C97A7EF3457C6F1559 -99AE90FEC79872BA6E7F84F6C305356C084A18C86E1D820A0972ABFC39C2002148AAB55723DB -9691E6F761180B63FB07740F1C37DCE05EBA401AB7A81A114DB3B1A20B645184ECDCAE8F69FD -92908F81269FE091912316A08F391FEFAB7DFFC0EBE17F42AC080ABD31CA950E98A1120E26A9 -432F7FA10A4FE6216643D3465177D6D2AD980E49ACC9E7AE94F45B9F5CB3DB7FF64CE4553F14 -0974D53D0987364145E3B3D314F3EE84C4DB41C504CA857A666034EE63CBE0B2291E5009A1ED -E0DDCC091B364D09FBB6691C2B5CB07416FAFC75F7A0740A20DB38857CE320C9789F4DE2C683 -D5BF43A008043B992EC418DE5CF67710DDF23D0E41C987D5A923267F4C982D6EA3E2E75531FF -ED9C34150BE97DD3E427B4DBD515988EAD773E349162948A60DD6D964AFC237B4E181D3D5B16 -997CECFC545285899851B42DCB7D7A86D736476174FC407D8B579E9927ED72A408CF8F5268F8 -9D9EDD823C5C706CB88CC63DCD3772949FFF79C152F3D70B40BE7CE75ECA2863E3F2E5FC31AB -5371AA23708561B0E7B7B212F7679BF6678D8C462EBE359A16933D0D677C37F17B4826220005 -B2F3158DD3BD058761EB21204BA41B85BB3F94948169117B6E7594269CC6B342DFF97876897D -1073536365DCF04FA7CB4965C0F2C64BC50450828347D2C3A8E498B0C778579D13D2912859BB -BB8A6F0EDDAE567F6EE13FF851F46846FEAC42C20D3A10C66F7E1B6DEF566FE30D03AD09D49C -1E9FC6D7E008929F294271CCD10D69C8BC677479EEE7F541DFA24B1E0E830A475C17032B29EB -60760062772CDA745D41DEF4C69D7860CD1DC65C9C1E258935A0F53CE5D73EA80B43D5A944AB -12B77BB462ABBC291B077DBFBE7C7CF07AA9476D1E1D51BDCE0B26C0FEF1A11A867DCA3A90BE -E0D4D3A18F9B7D6498A0F0C355338026C1ED78627BBB3F2D768E7A8B1C6C52DAC5638F8D150E -359F37C4F11E76B9E47365014124D072CBEFB9ED0481FED2968AA7FC275256A041918CE49D40 -6BCEA19012BAD4395464AE4784D1AF90223EAB3D5E58B311C074CC6090FA247A000177BD3126 -FADE485557CA4CC6300EC2BAC3490528087EC5915B85939EFBF6A4A79B3732821EE633D4D378 -3791D9C0D526BE4B8806CD3E80BAC6E2B65D712BCD159634EC4E5326A88FB16EE1EB59880365 -0B35A28397EDE99B05FEE76F4CC5508520751560F7CE85163068B60A29969200FFC061DC0500 -E68341A2D69F448369917C2E18E0BE7F89D4DD5240E6A7A864D9EC68D8C3BE8AA377EB7FCCC5 -EB9898A244A06645E9F61DF261CE06C434F04CB82EAC10D6F9F78F44E628F7BB78EC749F92E8 -3CB07CD582B097DB03260196EE438B5BD23902A651B3CD071039C0C6DAB1C874D86BFED81772 -06CA0BF1765AD5A000D6C77AADD6470CA380FF6D8130D90EC080E2DA8B96F4CB7B51FFAFBEB8 -D2C293E98BA6DF0C3BE128C4BEB20917E72CA6E963F4AD0BFE581C1DCAE5D26DA2F3DD6DB331 -18C4210ED89F08135BE439ACB3FEFC0C6614B112C8DAC76BA1DBFA598131D5DB6D8CC9407B69 -49C33C2A898E2A4F51BE311DB67D0136E098A3C1794C01F6297D31E6BBDBFFB250E5234837FC -418150C7C8E18777D40C1063585D113EA26B8D16BBE9079B09D77B795FAA9C7198D8A8B08AC1 -493066030F6E4A65F9EF4D5FA6D6E0DE4B8D94B331008D29FF53C1D47F53E56FBAD44030504C -B897F6DC29B4BA046C48EA48B75276256967533F7522F6E86C430FA3B30240B6F662699CB284 -B553F0A1728D84F45931B46769DBD8FA9A0CFC2DCBF69FB624E83C1A06643D45E40B685518EF -2E0BC3EF47417FCE41E376AC9A14A6D458024279637493F2C50B44AF9D32521C457583EFE408 -3090CFF73C0E382C865F6995C7044B5DB397B824F1049D7AECBF3ED9ADC4FF9D312596A39957 -F9CF8B20AAC012AA6D8C4F01AFEE283374998239280BB628C54227D6ED9FF6AA64C966AF1E2F -424D25A1A43D77FFAD821A7DB0EADAF7C3669B55AEC7BD0E74E4B314215F341001A9C405B6C2 -C12516BF0E9C37D0742923156CC7D49F86A8CC33C8996E093EC3B15D6682304985CEBABBBD77 -91748BAF9DC3CA738DFBAE8C20563D903E9EA56A56B3EF62150E848E6A34D80AED8B7F480536 -7454F26D4D4F139C09CE2B8984374B85EDF4B88A7071614ACCF5ECC690CDAF14A186D8CACC37 -B49CF19E5EDD35F480A979F91646B9DB6A24B54403D730F4AC18E6879875DE131D77DAA5624F -78B2FEEA068F7B2B756528F96CEBF6A7645D15384DED954588C66D41B1EE8105B473DD237BED -D675024003300C3D9853D0A027A443A909154F91BDD9EB5D80D30FEA2E13F3FE6F7DC734C01F -230E8128D0983BA520CF0B6F9BE89F4EDE86FA0A287123A6FA7C9AC4E32B6DBF715F0FDB69D4 -355DF7A13B6B482F0F8822F4E7AA98218CEAE2E7693550C43B59313AF49E4992B54A84660876 -F78206A031069D620ED81FB3948BC42C7E631D0C0D667CCE4717B7070B5923F0BE182699DA22 -8AE48CEEBE585FFDED8E8436D445F60618A5EC5059E49DA84B82B3822E2C5105787B58BA9C60 -577EA75983723C83D8F3B3AF575D58C207B662E168EC0AF9E9331476C27FE7E8A8FD41F61CD5 -674AA1FD75807667FF6654369ED6FDCB30852DC0687F2CEE8B306EF5E2258B877D06F04C7E69 -94B1D14972123E1FBF21C781A643E9CB840CFA7FD3295A7AEDB1A2FDDBEF058152C517B952E0 -3E1A7B5F9F70CA6353423AAA27F1163862EAB3942CA170813F6610EFA058209F3FB0C52CDDDF -4934EDE80A5C40AE7628C857F16C21E2D09B763D196633B47C1D5A081B2A78AFB915545C5BE5 -AC87BDCBF231E098CBA8E9EEF4B70411715BAB98BA6E9418178D980B08C5667818A707478A3B -FF4C0680FA4209D35DDF7D0954D8A420E5D9AACF8A9E497921099E16A68C687E58AFE687EDC0 -7EA6F0E4E4F99DB9D732BAD6DA1ECC10FCC658FF1D24730AF2C59A11782410820C0A3066E7FF -A72B848C897815EFA89F384DA5A5B9A9A898CA5C4D4DAEA325F8F3DE29883524C64A2054B0A0 -5AAF07E7EFA900581D0BF810B31F16619FEBA8B868C26B63C3AF09FC9733E2D5243D15E42FD7 -A39C6CE81EB40675904E9EF0876877B34E50D7354E4B6AA9BDE2ED5B1FB0736D2C3ABA05CC5E -A489A2CA590D51BF0BE006E0FFF822621DD0FF4CDD33315242C343B9914567D86070F984AF58 -9A2AE620CFC618542F7BE6927C798A3A948BFDBF7F99870F36108722CEFE84B1C3729E042B02 -E9714CAD4F6BCB483A5D86F431C481E941254F953569184E8A9435F72CFCF8015624F051F309 -6ED027DB6ADF2EA4C21C1477F67DAAE88A466B53DC95CD8C0FB16317242F86D9482DAB615591 -B9E90F1CB7AC3F3B07F883552B006D94206B2330F9675A1CD9B73B14796C2CFBB3CF663B0739 -A1FF6E293E15F1FD2118BBAF0C3A7CBC8D416955F2F341A650BAF91D4FDA1EF465E1DA5EF37E -E424618FA13B6CD57E6F81A9622038B85C12AD37D7A5AF08E5B705D70C13B0425A9DDA40FF03 -F6B71B4C6763B1B974E7DE96D97F815992FD6D52C58E7746F7F0F4DF9047D59BC95C78C8A293 -68662892E764EE75E95FE7362AC1BE2BE7C6A9973DE446263240F1E5FF66163E07A9CB349843 -4807E0844385B28E19672A21B5AE8FB884B37D6CB516DBBCE0C16D3CA743C82FFE103F4F3465 -538F91514B5B3728E90D1CBA4572360A8C7B9758A1259D13AA15B27CFCCF7725183B3D613743 -B82D6CEEDB1DC252214E2B2C96B48AB392C95EDD8EA5C3D90D2270D85F7E7603E0EAB3F40E97 -E3FECDFADB5C7D401F7E1837E7A724DF0707645D62CA1018F27BC9568B729D933C5BCDED90E4 -BB2BFE3B8D778CA29C7CDFDB9754668440DD5498190A6EB0D3A92575DA74A343C75B8FD76F9C -1CD17DCBDDF3AA0902E15F21ABFFE960D3A0DE2BBE966E14AC6F92F1877E046661038CF2C93B -EF32AB9EE962298845673B0AEBA5BA583CC7A1CEB769911DDA93CF0D7D3BBE05B13E5E0A036B -309E0B2C35AFFF81962D690A31EB81C5F7AE0009D2470F3F8B0359AA8C06DCBC1C9D2F18B95D -32092A3BEE89333626C50DE255A1D6BB372D6F42A889B94CC0AE738633ED506B06290AEC03BF -F8A408362C6DB908BA796985F45FA27F22BB1E1020AA36B7166C5633FFD4281949BA5B64B874 -BD0BFDA5307BA5846BBD6B0C6F96E819D05B97F3CCBB74C5F57B6DED908725CCA7BD4AFFB7A7 -88C82067D5D756A299AB8EE0D1654092F9846F69F85CB491C24879F7214FA0BABE4FB1B1DD92 -40048BA83114904842B0953A568D1A813F367D79E07079F65089DE8BE87D2888C2AD177B0618 -A22EF0C38FE0F81DC0969DB1B32893777045481EED7591618CF3C804FE0BEE805596C1822E2D -53A34E29DC5FACB751478462F06348EB870D1AF712EAFD412A49CC3C519A231FDEB2C64246AF -CA61C4C43D11E1871F02B663EB763364F9B423F46623506200EF7CD6D65F8EA86B916E424DE6 -5237FB22C8FDD1DF7203CD9BD12A1F4D7DDD2E8C7F5974571BD5DB09DBA441E05B208034AB1C -82737104F128A89685F8A93EAF975D36FDEBDC62A77E79BD35B9EB06149F8DCFC2E923B2906D -79E7C964E10D967E9DA5A625BE3D3ABEF77563AD3A903CBEA12DEEDD3D178C147E43BFDF75BF -F96BA5EA00BB27FBFE03498D508801C8A4D3B3187BB8448FC2F9BD95ABF7866ED9B62D22F896 -F15F4BDB0B5CF2FF798700C1A48B4D02C3ECF17E9B0B024949859318228E676967303053200D -8F7E2F4D7A31D7FB47501376D1234E59B72265F3C2E2640870AA4EFC8DE38F334474CD017776 -51736A91105D651D1778F0AFC150A7DE7E46B513A5A45FA79F2067D383001A14FFC25A17CCD9 -045B14C504A59EC9407B2ADC2A34DAB9BEAE76C2F2A6F5778918414ADD274EC37209F320FFDA -310AC168D176C94AD9F5EDC0723A61FA204411DB939E1BF75CD7F514388B5416285A3F7C5FE2 -B5CC742B962C7D0D8FAE0D5BB8654C160EB9A0134A047A5AD68BC3099528F11A0648464625CD -C62440CB2D357F72DF6207C27D5572ED270C374EF28907E61D8F7D720E198CBA66FE65EA9BC9 -3ECA05CFC78306F88746DD8A3E14EE8E411389BEEDF9B489324F0E7CD79909C50F0BC05AD501 -E2ED9F881A939E824A70DBA22F7D059E3DB2B075D64241D21E6C67C0408FA2E878BEA4BC99CE -6025220C2A9FFA6E54E555E448D55107A233F156981DC65F9A0AE30138CA3156E77A6BA13DBC -C367F5A7D221C9CDE66DC282C4AE3751FB951B3C9412EFE0F7F4C211C1E75C3AFD7AF08C78EE -788020F645D41018A69F4F1146F1320914326F819AA6049DE34C457C0A504369FCE97ABE830C -60BD580F376CB14D6A84D51FFADF53BE4E8B6537E224988B3C1A62260184FC1A29943463F28D -AB00FE650E035E9E2737176FBD9B0BF98EC153A063F12229CF37FA423BC3C8C26C91F630F2CA -C7308B666B2CCE76F27FD26B6E30397807EB297FB59C8342678DFEA1A57D82D2B653F41068AA -AAEDD110DF224CE92ADDA63744C94926F7D2DF8D5FABBA08919DF4DF5A16E344DC6D7B4626D5 -34DA7FEB73B1C69E9D92AD0CD0DD28547236ABECF0F99E1884E2F9A11385F0A67126F2838885 -F519444DEFF3F914AFE52DD48F9EC3E09057D97860ACC29CAE2467399DE7ACCB4B5801394E8E -CB283EB6B0A5ADC5C41367721F25A0337A51EFB905AD2E2C2CBC5C2DC763EC1F844DB6EC8DAC -A2D90579F4F68A2B14F5AA6243D5A2FC356C1B2D53FC6F847ED64B2971B1E5C3B75287A674CF -994554F0292A06397A2C377B8791D0CEEE47F89752FB47AF925B376F201DB51278B9BB32F00B -4C8682845058F7ABA3FAA93E7EF79F0F18F0C6E031912478F16B0E37895F57B21315D5B1422A -FC802C95E3327F5FA032E51079949FEF0409FBB3B634EE24893F8D54DEB680F20B27D932507B -446B5D6C556A7BEBF5E4A67FE0A658196598FC9646AA9E0DD0563C7C5E8BC3D9C9ECB25ACA2C -3F0A9D0453E9B8C5BFCD1E88A4BE48E625A746DDE80F07D11EE24A6F1D7C8A0299BC5F878133 -6B4E704D077BAA339BD774151620FEA58F9BD72F781EBEAD39A7E1B45A0AC05A0F03195A0663 -AFC62A6DA39A1A782D79019629A58A90E36C01CC07B13139E2235E0C2F5906667EF55B3F80A6 -898B797DF0F496295185E1D6DEC9A25E15FBC339D825AF9E3659DA75A88B2281A641797B7C09 -AAC6EF2FF49B7046FE129C30B06989DCB5FF8A30FDA68F5E6C8F2F3EDE6D1CC50DD59B8F55F0 -06D736A261EE301AFD3ED3D917657A509DBF2CE4318CDE9201D33DF6D131830CECCFBFFAB2FA -3ED7AC71D2DAF21F79E0013D922ECD8490B9C94511B3F65F4E068BBA1D14872120D676A962F4 -3D2D48B6798CA4818A97AFA91E8D56D6DE025C066366C3F45F09194096200ADA26ADB977ECA3 -B40D4E6B9D46E501E458B1CB8D87FE3D611E769F61866E111F908B6163FB6A09084A476E5C7E -7DB799186ABE1B9D0295CF9CAFE62F56BEFA6507EC5A54FD7F2DDB7AA9193DC1826DF77A972F -62436EA9B732BD9FF13E5AD3CD63D9D5F2DF7BADD990FC54328A79F358B021E7EAE28EB30499 -77318C15C557076280CA9C7D7F9F589CA8333A9165EA841C288CD349DDC9C14CE84E45700C2B -10666387C36BB4E0A6B287C54646387C5CA9F2594FBDD781A2110E7D8F88E1B62773708B2080 -0F61FF4594F151F2A4038A6C4DC8807DF53CA19F624592981CE48BA2B227242D7FD31E53B4ED -2883DB68F8861AC3125079F2A19AB1474542853EDF05DF2C8B86030EA36AE6D4A6A1BC666B3B -6D7C0CC5270D2BFF9DF383456344FA4E9D98842097B6CB3D75061936A61D928A98CE57BBDCBB -34C3E626F29C40A777BEE4C2BA779721F527ACFD1B904F9AB7C04E84AA2AF8BC85C52C377224 -EEBABD3C3002E1FBD5ECB2DC9D8B3B6AA52B63B2AEB8CCFA731946D02FBC7DF94138441B7D57 -4413337B0FC4B147FC2A50CC9AC6F9BACB9FADC66507426C39F8D6E1AAA48E3CFEF36D02237B -8276723D29137D67910774E7AA0B7E4E6E0A4BED38C7CED840CA7297AB14CD756C4CA372C82F -20159C8304397C43634D07262B92DF47FDF5CF44DFDE01318064612576A7318BEDCBACB47609 -B78B194331987787B80034D5CF40C8C4BDA0B578D84459876D15EECB0F374B3D374FCECB7822 -228409F5E86AA8E79B4005EA958B2E3CE0AB4FBABF3C7991FB2B2F2545B8EBB34ABE566CEC70 -2D92516E68F8E7EF8F9115575E5192C42EA09A348299595ACC73FBCF337DDED714455FDC756C -F287F0FB21B35126091A5D2BCCAEB556BEE0926E366BE5687C9C994E75C448A11D69AEF8A43C -B48EB73BB9D8AFF4522C683AD7486012B76C6EE7F2C70025E15B198A549F30D2B9A501497074 -C535A70219819522D2CF02E220B02DCAE953B992FA517DA35E120A5EE60E74CB12F45B0A6099 -051E1A04B3E3BCEDE5265DCB02D302C3E0B992A44F7C95480D3163CE711CA9278A04E92E7952 -80E997EC94DB64D12F3C7F6C4BC4EF0948C4D37421C91DD81F8EC34C3B4C40771D8B9ADE15EF -319F89DD97D2CCDC2CBBEFA5FCB5F2F65E77745801D5712924B4D8D420C6B74E7C22E35042E6 -0C501187211DE5BB6ADA2AF018C0BAEB728546517D11C634983BE1C91B5DB349E2136EEEB875 -C6D60A8CD91B203D94787B0F81B8AABDC82424046F28B1851E44F4FEBB9769ED5060C7FFA3FB -721A0721130B724CF93903925A778FCEAA8151DB30B6091A9E03581F22C0D36693B6A217F0C5 -150B291CF2797FDD812B62BF665ADB98154DCE396162DC808A6DA66FA1AF8F9E4633274274CE -0E055492B27B0DF16BCB3F99D00AF27C09D8DC38E14EC4A73EFB4161142893CD6E7DCC054D6E -53D07436D797A329FCD17CD19F9C402136EA4C10639326440D53195BC96DEECD52B002BC5769 -196B3C6AF694E6D0D7241D6EF6D39DFDD0B9B2F67ACAE57A898689CE09A75F69CC528FFFE452 -490B46F41F8D4E5CB034DCD4ECB162B5DCF6F42BFCC570CD7D5B6717207A234D555831F91896 -AF58C29A644F2F17A80250D917FB65DE01DAFB3352A90FD8D594B02C294337BC237F4F74FF55 -EA14AE9818C0D0D216BF57F782356518BB55F3A308F4AE2D00585184181C5F5FFD5E509FE50E -2900F8F9B60250B711010AF2CD9B62D649C50F2AB058A347C23CCBE65ECD9739A4D2C8011337 -11CC19703BA937A93BAC199783FFB0628474FD49EA6669AA8A9D8F1F50992B595B56D19E277A -4AA0BB758990C5A015B02EAA261D2691B4C90D62D4B252A1CADE0876544B886DE685A52F985C -A83D494DCA883972718EC3D06EE90AA93144253E780A5257C95666D09B2293B60E4FA2745C22 -75CA21EBE83CC9B922F76A31D5560E0261706641EC3974529DDE111D46BB05F7076C383A564A -AD7DB458791A5E94E4255AE72E73EA7EB384295AD6E6A0332707C503136D573D0C9E2C6DAE90 -98729C5E3AD709292EA361D8A6E274487C30EAA59CEECFDE44D8C52D7E995153B5B3C16BC893 -93F1248BE4B0CCC815EF8E93D4A5209A6418615B3E503DE6FFB3CCC29C91DAF3D8129C328960 -441E898B9240ABAD0D9EC97E1BCA7DE65E21C9AFA135B69560225C367C61F34ECC7A2EE23386 -E5B663AC5E9CC500F6FA3FC5A53FD4899A0F0FA0191A56403CBCD2DAC72D9025F483CDF602D2 -09D344E13E38DD528A22C4BF4446D14172B3B27751B999EB16565EEE05EF5307814897C9EC24 -AF999C38C831ADB5EF8E343E8AF4D287C2F3B135A4DE50A3451341E57AF656769513716D8ED9 -87114FD03C58AD4A3FAF657A9721638A87F5E91DC450F3DAE6C7A4A9CF7CDCBDC41F26DB34D4 -9F4D29CB2779F26FEE939D26348C5F2F360DDFB20C99F3BB847E4E040EC808228A1E458FC299 -227244EBF4A8ED6C5612E18DCE5C8C6DC1BD853623B00E8F869C4E7FF367F6B4CE31589B9061 -8E0BA847484E51B36A8BFC2D055011C9D1570BE190F01158E3CAC0601B155E553096C1884D56 -72BE8B73A411E946DF455453606C83C956CF358AA41B3054CD39C42D24B6AD032592A20500E1 -98E0A47711CB560FDC6451E2CC9F7238C6392F3918920B25736A8F8403902052AD716002A1DE -C108AF86701017C574EF6F41FB6AF4CE2C6F80AE27D35B42F6BB450A891E6B9B3ED0554C8B1A -827F8DBDE20FD14CFAD4DB331DBECF74D542D5051FC0AF6956D5BD0FB279E8B88AD107614225 -33503A73C9E09E7CB8752F2A25D2E311BDD4D2AF80E4C727903D2D8F3FB13926E430A895D39B -C8C35EA954D0412FEDBFAD091063C9D0369F0BCE614F0BFEC9D5FFE44F8C791CED1A6CAD2790 -48D8300979B4107F67E68E18B056C13717FE376059CCDA5C7B367E8CCE48C03196042688FDB4 -A0F9B26571405953487BD65917C5F436664331EFDE3D12160D5BBB66E2C72B0040D048B0C3DE -1D93EAC00282E981E43DB75FA92C48D486BB2F3729A9FF927BDAE2A2B034BF66AD7B52034D26 -04A7514BA1E0A56177D39E8DAB0D3CB74D8BF15677E0AE93C80B635C0D8D90B6433289E94B64 -025B8F3FC8F63C9A413680238F1899A2FBE9661AC5CBE6BDA430E979CD6A48D6D79A00D8DF4E -D6FC866F8CB1E7D790361A5CC2D8C8880A638F76E195B7BE064E4752EC1ED3751127B693047A -9C1BF5BD556AD0788A41A63EA66AB23A5F071035E323FD9AC05B2CB85397765099B88CC7D610 -2030A22AD02705103AAE6BF26CEB46594A895EA6D3CD701B259023E636A44BE573575565A506 -9340EA2C44D768340B81FC917D1EF7955B2C5F49BFC8A960EC62C130ED6D7BF8BDE5D7CC3F82 -37A7679912E5A336413B5527C628026E4FEFCBB05C1E6D7A40B0AAA3BB4C7AB6CF5944FD4A61 -662308FA3E5ACE551A48F314D90F136785214F5BEA444482D4850E5C33B9344EACCB03D1E793 -4B39F9311F74AF685BC293A8A3EF356F93E331563EA5871AC02388C7F3A6F0B04CF69E9BBB88 -56909EA36CD1847A6313402DA78E2075D1CB951F214A40687E0338CD09319B203E99802A609D -7FA851E12C93A74E3DEF32B35DA07E42CE6583601C595E305E8FFE6385FCFD1FFFFB290F874E -A104728C931441F09DBD61175F73468C08B134FD464B74EA9AE8F5F153FF8BA9A791F7B2BCC6 -BA35DAFBF9EC68A1643A958EDF5B0EC787BC84B7EF0387960E7D6EB6EEA0CA54D518F97B6303 -45FD83BA033C58B755EBCC0B7E36156C064BB4828C885B07D068B4B69E582845767FA58CC4E9 -18FE3C405311FF2DED2A363BF59547184B6BAFB12F3BABFD75A59822C96C07BDB3D3AC4C7759 -02F28908B626629AE2CCBF82F72A4BD074D3C78BA050E0B20F41B614C43FA69AE63FCEAF1600 -683145288AEA05022A2389771070E32302E9D5FC230BD3A3D1E23E8FD860C552D2E7D25ABD1A -980C14AE7C8C51BA99081A4E99118C794D9D6EF7E18E7F6F7FC10C341C4060DC59F1BEE614A8 -6A9C27CE075EF73657634DEE6F3A342C66D3F16254351E65D61F9E73C4529A9FADBABE7DA5DE -EFF27E8E687D06CED93DAE2128381EB693B17085A259A9550A067446BCCC2F93261163E4CB25 -1B406A95E9BB9279C4FD349D37FDEC2229BCE6928948E262014ECC85F78DC9DFECC8C467AFD6 -FA8DDB1D341D114741283BBCA084B0F1EE31D1ABD104FAD574B2F7B5F711FA4D345C2B5B3A67 -47115422E285C31DA429667E10D4582942F1C42E9EAC8E5E517D59DA3AE182E68E0834FF8173 -FA140B0E15052E117DA3CDC87CB6471CBE73A7318A3DD57523FE28F178D4CDF0A22D1DE30216 -9837D85804E8B49650B93086D2303742FF913FC86F719BD711546E24F0D8870BD5378692AB5E -E85722CB71EE14E581E7B09B564B52691C0F23363413B7B2494249A3D8C92691A7B157A60012 -A4AE44E8A110DB6C5772FFC50E1C3D17BCDE17C967AAD3B9996D21177DE6DAEE9B2308871C38 -03DBBE06DEF5DD1A026DFE7BCEA73E70D0E422CD00C9DBD00520F2794E25A385D30652D75062 -736D631FC5AB36C54BD66493202129D181D20810118F449FEBFA1B0EE045318AA6535DDF038F -FAA544B3BA1B7B6AC8BEA6BA277694B406CF4DC1C50A23A78CA90F512F380E087FD465CB4EEE -991A82108063C40652FD3D8A09A0F5C5D5CC189518328009F44CC3F0A6A7183A7FD43A361DDA -135F2656FD39A435D6D2C47B7C17E67787EE940EC94054D973590A7658B2D731A9668CD80933 -0E2E6214A305A340961BF6BDE4BD27B74ADA09F4D482316C4B1329C8322A9C3CBC9258E52DA7 -85170923B152EF5123584D5A35085B01DAD28F5435B0C62F013508913301906CDECDB1A52BF1 -84C0C0BFD30DAEFD2B79D2B8DC4423C848DB87F606D458E3D9267797035182B96BC6A0A811BB -E2D24730A732E43C6681B11331127B6317B04B89DCA447AEE463FFCFB2CD938AB8AB4147550B -9D5DFE1457CAE281EE20F03069FD30EF9DA3C99B203A6F6927059C85C257182ADB69BE8586DC -7703CF2005D089B8CA42450EE1AEB5263C3ACAEA7DB12F560EA5A034F2860D6D85EFE9AC5C77 -DCF79B064FC81DB1F5E4DD9225F26571940982AF785E1F2E2E47751EF8BD2C1AC7D78D4470D0 -87D259101DF5A94072C7E4942CF5D42B95A7B37108A9996311D8CFB4726810252B412E496800 -5D6293D3F0BFE8012CE7A5B8BE0B0FDE5D44DCBB9B1062927E36A2E4A651CA2A180AB8A5728C -E13EBCF793522620E34284254304EC85CBE4B46E8AFA5A6C13959E0306B2FE6E1B23F00B3962 -868C8072ABB82802748D017815F38B51F2FD32BEF86D57D7E30DD2F3F6D8F1C720E41BA7743C -BE4DA1B0CF3E02C713EA6477982A8EC2C237E682E5F6148B19ADCFFF6CB61C7B426A0AB8B3F2 -D148CE4205F3D9EF3EB712E0699931ECA2D0EF3761D05285A511734FF7E5AA0D3EEA228552C5 -BDC2FC23F1D8C43FE5A076B357BA0367A2E2440A18D21A62C857A0EE8EE512C6C6BB10762A02 -72CB80A555E95F4EE500040CE348592B8AEC218CD1355B1B4DAFC7B4066D94FABFFB60975F87 -9336A8BB7C72E1A0BD7D386A3F0B8816018E2D8ECE7F2A33F403051BA0871BE731772A59989C -874EECA20D31BABA08F5FFA968D7A5407E0BA2636301EF1979B932364C4E3342305C58596964 -BA95A4F946CFB1337571D4399D3B27F71940F0831B71E50CBE2125411CFBBDE7D19CC437A553 -07652C1A2667B5E9BF5A0CF1DC3DD3F7A39E61EF3D0F3A89A47B9D30F67E9B7B74C175F2AE3F -ED0FB242FABA87F2EECCF4D037D21F02E8DF7D5912C6276891153059D67892F86A1CF7CE59E7 -53036E71B92B8B0D3CB30640EAB8AA41A865D5F4CC56FAAE41A44A73EE0F6DEBBFDE303DD98F -8FC7D71051EA78D056749D9BCEA77EE25D5EE678FABC7DBFF4AD993FE5683B16B4195BF2C39A -97BBED78BBD056198A0148080B78E59F5BEEDE2AEA17A24A2A42D0601CC0095E54824784BC22 -D308E888192D533DB3AFE739CDDFECF34928414641114547F1BD11C6D4E691AA899C3E7C991A -3001707E5C1BD986116E09B4DD37EEECC0EB4024B753AE22BE6D12CB8F812F10575E0CBC15EB -D6456587C363700D6231B547DCA52F5E930CC4F6CC530465530BEF7D2EC2B8EDBE85F3827EC5 -28AF1ED8AE63AEDCD429F4891BFD31D51BD423A030254B37C0A9A32161715AF612015AE8BCB3 -FB4133E1571EEA460F38F151C606A1B1836D224CC73300D58F4FB20CBF091E0A56B7B96ED963 -80EB667168F77009D1AAB2509E71125F90338F67F5551508DBC688EDD57B67A59E4B4B21EAFD -619CBBA3BFD9B529778756D217A4A068AB0C8F2E42D4D0358B380B093988A3B470466818BF94 -8E3AB10B968B1502883D5628DB62A267ED41AEFF4DE13DF442128BBB1CD4CCCEA80523945E1C -88E47120A2E9E271C70144979B7F014F8CB7C27A647D083FCF03F93AB01F129BB4170A8A5080 -0FA1223E3D55E3B4E368E5615AB37DEA93C8F8E48498E69BF2BA2308E866592ECA62E0813705 -1C89CE5E84FC994070DFCB829952B960F075C675ADB0D4CDE1BF2C11980761C176D6A3758825 -C350EAA67CFE39F5B21D5DDE79DD16287E11F91714E215C376DE09C8A2569C0EE2FDBC8EF2D0 -EADCD1BFBCA33B9E3DC34E386E9ED805CDA22B585BB0C1AD51459CD66734E5411F1C0F4C4C38 -E39AB6EB21FA6D5B0DCAF657C12A4969674E725E8DD1D6A3A42ACF21183B2772B71B51038EE7 -3DF13D94171BE3B1C17CB3E120DF06CE2E1A641C038E39EC4A1761046677A22AB8A39B5F8D26 -A0D2ABD016A1888A4228AC8A0228BEEB46CE23DE9B246DB2C8BAFEA0EB1B051B18A030500025 -A25DFAFEB86B374C596DEF53EC31B011268DA2EFBE99DB59ECB35DCF185601739B779D4B7BB8 -D6A0F53AB50D1A3872EC0454D7EFA82C42BF10079992721C69580E659D91E6FC2FA85BFFCA63 -79D4869585CE478C4BB91D3CCFCA08F0D041B514AACA8CFD1BF58DC85454631A2B5B9C0A9403 -7C226706A5FCC418F3C7419368DB25F11528E31552EA40D09FE274FA9DFC049377E6F2098A39 -28E2AFAFAA4E1AED08B423C4FE6342DAC7FF8A4BC9AB1FC4A18CE39AB54F1798B694CB23A6A2 -51EE4046D8A9D44D0E18B9CDD8D2AB7F9EAE4638FDD96CF2F0E214D9ACA40DFF5EE2FB0B6EAE -BE2EA45BC8F9B34C9BE2F6BBB7BBF053C9186CDD08C684E4F122889CA45A8B7E8CDCAC2A8184 -4405C2630CC98A605CC946A2667805EDDE40BA86DEBB04A7AACD275A38CA4048D4ADB9C80E5F -D2267405678EFD8B616E4F0312EFEB5B2444B7432A17AC57642D14D825417038E8A39DCA1CA4 -AA797C51BE758A0D382B6A0DE4FDE9C6659B69F59971849F587E3935D660ADDA36B3A724EB77 -A193EF9EFC7012FED3B2995069F332D99975FAAACCF7D41B9EDAB47F71095A27F7BFC19E6E49 -BB58136EC2B18A073A211E789BF5436E7627EE8A22972FCFE4918F6501865D25BB485C925141 -698460E6827574926301E0F4762180B56047408D22F12913C2B45DCD99117AA37032A6D53D63 -BE626127AFD0DD01B69B9A12CF1C1AD63C329CE4A3518013CE7E05679D06277B4DF1755E5C27 -018E6E48C90124C9467B1B1BCC28B044F2474A292CDCE9E713666DEAAC0B9B8267E8774ED52A -04F74FE343E045AF87078E27F26CA64199D2B763835B477D8883A6D2EE139A3305ACB15247E4 -FA108B11956386241FDC326A6B5887348AFC82B2E7F1F435298625279F415873739394BD7B98 -676F3AA8FC0028FAA13E5EC6D783258148F6C5377BC5E389E5FCD84D3DF10CD0847AA4B2537A -8033D269E5D16CA63158A13B98D758B169FBA66B7DE4C728071AC7FF5D9DFFEFD056EA488964 -D28A9A691E7C981E2F6625639F37CB960A9A716850DC260E1DF987746D30A4939DE1F3710262 -355B0CA6F8A2AF96C8399271F99F7FBDAF8C9F5C5C57AA607AE16098EB263494B7A85EF1AC54 -D8BBDA154BFC93480484F1BF43777F1348C6D921477695E159C0AAEA0AD4635E1AAD06BB272B -3B8767317AFE95AA0AA195611CC8921A5CE530ABD8B1B53D2E10B74E7F33E04FDD69DA2CC9DB -E6EF3BA44439E83782F2EBD852704BF97328167AC76317C0553573B1D17025167491F3FF6095 -501B97E075A9F3B1CC7FC62E1E512C8A328DD76552386049D59AE3854870B4BEDEF1FB464F19 -5F00B2DBC7D0CB61BEEA8451DBC5C6FE4A059EC61922AEC97D7E585B3242C1EE46D3F65661EF -B26A7C3F3348E951AA863E5C61F3D82472C22A450CDC86B22B9FCB09C06A22394E80AD5BD8DF -F13309FA31F7EADC88961A88873D10A1986A78D9120E68BCA69D9C6A6D35DE20C085C05A6626 -64B485F50D7EE47345BAD6F0F4B2B0461645CBAD7C17E71BC4B8AA5D357B8C74CA882E990867 -2A938D82C5E3AFA5B6DBA3BFAFDC1BA209D3926C85375086A10FE9D642CDD430B49B21B4478C -D84BC1B555E35A55BCC6E6E6972B1CD3B674E185C82D1E9F929C323C1872FCF72042C9A7BA39 -50D20D12B25E170634346628FBC2D1208837869F5D94B910963081951FBE182527703ACCF514 -5031F0943DA951A83870BB2DA9FB163BB0DAE01582718239A3F6A9FF30B7B1E76939BE8592E5 -F1FB873CC51449049A89F2EBC14529AEA63909998D574F7FFEB9923BA7E9A18C932C8AE2F8B9 -CABA0258E52DA78506547AEF083906742D7FB56041DFCB3FDA2E5377CFE1BD8D1724FA4963C8 -2CBEA5961C817236813A5FE5605AB3B75F3681A317C43A630B71FAE2484DA877215BE151479E -9D24CDA4505C1925847AFDFD662A1AB11BDB48A46CF5FB89501DE76FFF4C89BB22B0E7C68DDC -B1D6FCDE3448D892D2581AA24A3AC7A43ECA00BAE557193C7467140A3850D1936AD765A5797A -CB9175D2CE8D8CBB86072181BEFA0350174D755E372EE1629EE6B65CFB15D1847933B9DFFEA7 -83E1512A2E5728742388ACEE27502660FFB46F6B53B8A69B4BA68436F3EDDE71C8055AC6B313 -1CD3D20C01356CD1A40023DB3279643FC62143343F4C9F202CB9EC3CB58EEB05F0CE410F6C8B -E1BADDC42562AD049D47EBE52AC33893AF572FFC946C5C6F017743E09A7FB115395372977790 -A3F4304117A167D8FFCE5C9B0658E7B551282FA492AB2F753AB33C40792D30CC6C1B8417048F -6DEBFF5C68B88A49F16CBC0AEF7DCFAC234034E4B71E9F78F2EB293082B723F1EE706755FCDC -93166AC6A23F6C5A8AAE156F5EBA8C1F0ECC61D0A90556101BE74E026EF625575DAE36197FC5 -2ECB3B3C89100730329120A790E89344518159F632D72EE739027F346CA61B867546F0A8B5EA -D3D97B9924777FB001A73AA2C4C07F733B2A040F3B2AC49BB59723883779644A3C942BADFB2F -B71F60FCAB54F5596A4BFFAA27B771AE809865E9D1DC5550AC05FA8BC59576DFF84CF0F310BA -A6FCAC4383418448F6BF19B3873C94E784CCA4321FC71281743A1EA63A47ED2B9A1A27B82674 -820FD6FD5493C859186921E8CC4C00B7343409F3C6F9CC72A7FC8EDF054C528F57759AB0FD58 -9DE405A8F821C278873F1C046A9ECCB11BD42D9C9545D4D487CE4C5B335EE1E3B02CE5B9BC7C -89C303FEF6C86279A80385731F1941F23843FC865DBF8FA021469B0D49DC78C27A7CAC181B6B -B570DE9A86B9EDD48F2034705E3B5D8766F56EF047E224308218CDB5F2FFB6838FBD5E10FD0B -0724663E5EE38F52732B7F721A8E3B5959BF649AAE64AFCE64012DABC8D794F2EF73092C62F5 -3626C6DCD8E03C448BDE5243C5A738E274E939EBF8A57EA79FA226FB08CFB993E425A809E277 -813A874C25F3B1F7841AB54550DCDA2F35533B6AAF9D768EA7A10702B3C371CEF8FE1969F71E -17E2BB4D4D784F8D4B3D8E49347BF6223A067CBF416CA0BBDC962FB84BDE2491D4CD85D95ADC -7B92F667884604859872D7BA89BBD2B82BDC8DD7681084CEB6284B89384CA96C8FD3C32C6F83 -E940932713909E8108BA29CDE8F2D9D755CE03754D13D4EC26FD2055DB486820C95D1ED42AB7 -04C71E30672FB061F3753D1A84D57CACAEC4DF1578AEECA4F23B03AF5F74E961E88E852017B5 -FBF812B399FD1D18D0AEF24E2A4BE3E16B4BBAE7F672D1478336D6CAC2E1F238F4AF0EB545C9 -2E29365AA60C94111100A80FD653E5D8518FD131B18AD43F8F8603B40E5749BCA1A576CC0D0F -786E6B675BD6607E44ADDDF499F756C28067FE4AC9929667947ECE892C219F6B2B7D5A4DB09E -883A7C41866170FABF321805C434769343636E6FE3CC6D0D924570E441DA8C1D891425D42B80 -EA2E9CDEAADF3916CBCE16DDC6AB3A47255AC380F17E71730D07DDFD0040E3E2E167F1F9A348 -B402910DDE6812AFBC8C4E033BD46071C95ECAC480F89EF138B6A15B209B9103423ED2199CD3 -ED0DDA420E0F378F8B7332C27A19C3D04FDE4BA754230E7893CEBC7D8FA0C5E4B0654E702E17 -6B892ED3BC18169CBEA48C41CC1027A4EE86BB5107D806A215A9D60D9AF7D4EA32A58F6BF5EE -F367435F4F6D5510C14C6266B31D6F0846A08F3B20A9C6BD001D1C20B658CF24A4DD27437D4E -80606D29A48B3FD0A6AC2EF1E51E586D2FF599115814D754A43F88E99585FE2DEDA9D595888B -E2399051C39F1447A88D4FD3507B31BD94FDB35F4C04445DAB00D2B7B6CBD824235ADF6CDC22 -01669999E5639D1AB3CC7120C907CE685997DF2107013A635B5B053210587C1618C0C37498E2 -089D283450176EC9AA82FC0BED8E97296C282ADCEAED15B069D5FBCBEE39D1269CF59507A1CA -24ED06CEEAB0633A460BBA7E0CA59FDFB82AEF681457C0166B5018388B4A74F5DEFFF139E1AC -22BFD25DF48B14A53EDC5D31DEFB563E0DDBEB39DCE9342A2F6AD073E3D0042A1B1EA6041EAF -28FA6B1C6DC9A42195AACC33EE0A873DE810A57DE8D51F58BC20A3DCF1EDAEA09A12B066B708 -A636B5F7369D4EA61426DCF87AC9C3424697F373A1E359D92E5185EA3AE681062638106E684B -1FDE40A3172D1898273D6E417B5739D79508A906DBE387F10543838C9319D321F634BC5E4AA8 -D0C63A407432F751854700D871354596B499F4335742195B4B787DFB824204A6041EBF0CF2AB -F563ECB5AF94AE255D9A7C14B9EBED37F77D495AD9A19F70897F1B304A40DB82D811BD936044 -8AC61FC6A1885FB7232C14FAF5107CE2C02492AC28ECE3AC111552B0CFA073ED197D24732501 -0A38AA71D2CC9C4A3897A8CC6B9DDFECF89046923D90113205AB5870030F84EF3A2C0D17C269 -E39B3A58815F5CCE8BB2286E713007871200E53E586A6E04F8837165314C88BF3805C5AF30F4 -D3C38717E95B7597AD7C2C0E922E1802B66A097A9EFB00CD059B5ED451A790AECDB79408428F -6F09E3C7F57AD0816E448A533EDD7382F366998B379B066DCF40AD46B82844DF654C7A004579 -4CF61FD06FE0C8B656BE23A19A4483E589C1BEBBF417EC617C1C9C0E972B75FF316CE5CF9656 -BDAFFEF696F87CC1457FA135EAA58384DA4A0FBF934A9FEA1D9C99065E6ACE0AD3031755BB48 -ACBFA28426F9AAC6DC7F5F5D7E0827A019313B28810E11F1E782B2328A63F109871FE74F40D9 -35F048D1B33FCD3EA112E5B2CD312E726DD4D0823ABCDA433730D8447B926452AFF6F074F05B -C457036F564F261B044C3285687865E4A5E7BADE35414A1EB30912B44FB07118BE1F30F9959D -54DC2E4895950D9EED99A5A9F724005BB709521C3494FA4D43DFB6A2D7B08460EFCF3733FF6C -77CE97F920A489FB91EBC708DFC25C84DEE40BED06642358EBA80472D3FF98894779D1D0CDF3 -CE1127A434C5D976C606D82C6FE48BE669B7E600E3ED8720636F013D45C14DF11F059DFD0D9C -2CBB5E70B8101E1B4BF6B61B6CAE33C6EB4556A11C89215C042EDC3CEDDA32C5324311B7D293 -031E41CEF912DEEB71AEB2ED99E5A567D60000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 - -cleartomark -{restore}if - - -%%EndFont -%%BeginFont: CMR17 -%!PS-AdobeFont-1.0: CMR17 003.002 -%%Title: CMR17 -%Version: 003.002 -%%CreationDate: Mon Jul 13 16:17:00 2009 -%%Creator: David M. Jones -%Copyright: Copyright (c) 1997, 2009 American Mathematical Society -%Copyright: (), with Reserved Font Name CMR17. -% This Font Software is licensed under the SIL Open Font License, Version 1.1. -% This license is in the accompanying file OFL.txt, and is also -% available with a FAQ at: http://scripts.sil.org/OFL. -%%EndComments - -FontDirectory/CMR17 known{/CMR17 findfont dup/UniqueID known{dup -/UniqueID get 5000795 eq exch/FontType get 1 eq and}{pop false}ifelse -{save true}{false}ifelse}{false}ifelse -11 dict begin -/FontType 1 def -/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def -/FontName /CMR17 def -/FontBBox {-33 -250 945 749 }readonly def -/UniqueID 5000795 def -/PaintType 0 def -/FontInfo 9 dict dup begin - /version (003.002) readonly def - /Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMR17.) readonly def - /FullName (CMR17) readonly def - /FamilyName (Computer Modern) readonly def - /Weight (Medium) readonly def - /ItalicAngle 0 def - /isFixedPitch false def - /UnderlinePosition -100 def - /UnderlineThickness 50 def -end readonly def -/Encoding 256 array - 0 1 255 { 1 index exch /.notdef put} for -dup 0 /Gamma put -dup 1 /Delta put -dup 2 /Theta put -dup 3 /Lambda put -dup 4 /Xi put -dup 5 /Pi put -dup 6 /Sigma put -dup 7 /Upsilon put -dup 8 /Phi put -dup 9 /Psi put -dup 10 /Omega put -dup 11 /ff put -dup 12 /fi put -dup 13 /fl put -dup 14 /ffi put -dup 15 /ffl put -dup 16 /dotlessi put -dup 17 /dotlessj put -dup 18 /grave put -dup 19 /acute put -dup 20 /caron put -dup 21 /breve put -dup 22 /macron put -dup 23 /ring put -dup 24 /cedilla put -dup 25 /germandbls put -dup 26 /ae put -dup 27 /oe put -dup 28 /oslash put -dup 29 /AE put -dup 30 /OE put -dup 31 /Oslash put -dup 32 /suppress put -dup 33 /exclam put -dup 34 /quotedblright put -dup 35 /numbersign put -dup 36 /dollar put -dup 37 /percent put -dup 38 /ampersand put -dup 39 /quoteright put -dup 40 /parenleft put -dup 41 /parenright put -dup 42 /asterisk put -dup 43 /plus put -dup 44 /comma put -dup 45 /hyphen put -dup 46 /period put -dup 47 /slash put -dup 48 /zero put -dup 49 /one put -dup 50 /two put -dup 51 /three put -dup 52 /four put -dup 53 /five put -dup 54 /six put -dup 55 /seven put -dup 56 /eight put -dup 57 /nine put -dup 58 /colon put -dup 59 /semicolon put -dup 60 /exclamdown put -dup 61 /equal put -dup 62 /questiondown put -dup 63 /question put -dup 64 /at put -dup 65 /A put -dup 66 /B put -dup 67 /C put -dup 68 /D put -dup 69 /E put -dup 70 /F put -dup 71 /G put -dup 72 /H put -dup 73 /I put -dup 74 /J put -dup 75 /K put -dup 76 /L put -dup 77 /M put -dup 78 /N put -dup 79 /O put -dup 80 /P put -dup 81 /Q put -dup 82 /R put -dup 83 /S put -dup 84 /T put -dup 85 /U put -dup 86 /V put -dup 87 /W put -dup 88 /X put -dup 89 /Y put -dup 90 /Z put -dup 91 /bracketleft put -dup 92 /quotedblleft put -dup 93 /bracketright put -dup 94 /circumflex put -dup 95 /dotaccent put -dup 96 /quoteleft put -dup 97 /a put -dup 98 /b put -dup 99 /c put -dup 100 /d put -dup 101 /e put -dup 102 /f put -dup 103 /g put -dup 104 /h put -dup 105 /i put -dup 106 /j put -dup 107 /k put -dup 108 /l put -dup 109 /m put -dup 110 /n put -dup 111 /o put -dup 112 /p put -dup 113 /q put -dup 114 /r put -dup 115 /s put -dup 116 /t put -dup 117 /u put -dup 118 /v put -dup 119 /w put -dup 120 /x put -dup 121 /y put -dup 122 /z put -dup 123 /endash put -dup 124 /emdash put -dup 125 /hungarumlaut put -dup 126 /tilde put -dup 127 /dieresis put -dup 128 /suppress put -dup 160 /space put -dup 161 /Gamma put -dup 162 /Delta put -dup 163 /Theta put -dup 164 /Lambda put -dup 165 /Xi put -dup 166 /Pi put -dup 167 /Sigma put -dup 168 /Upsilon put -dup 169 /Phi put -dup 170 /Psi put -dup 171 /sfthyphen put -dup 172 /nbspace put -dup 173 /Omega put -dup 174 /ff put -dup 175 /fi put -dup 176 /fl put -dup 177 /ffi put -dup 178 /ffl put -dup 179 /dotlessi put -dup 180 /dotlessj put -dup 181 /grave put -dup 182 /acute put -dup 183 /caron put -dup 184 /breve put -dup 185 /macron put -dup 186 /ring put -dup 187 /cedilla put -dup 188 /germandbls put -dup 189 /ae put -dup 190 /oe put -dup 191 /oslash put -dup 192 /AE put -dup 193 /OE put -dup 194 /Oslash put -dup 195 /suppress put -dup 196 /dieresis put -readonly def -currentdict end -currentfile eexec - -D9D66F633B846AB284BCF8B0411B772DE5CE3DD325E55798292D7BD972BD75FA0E079529AF9C -82DF72F64195C9C210DCE34528F540DA1FFD7BEBB9B40787BA9351BBFB7CFC5F9152D1E5BB0A -D8D016C6CFA4EB41B3C51D091C2D5440E67CFD717C56816B03B901BF4A25A07175380E50A213 -F877C44778B3C5AADBCC86D6E551E6AF364B0BFCAAD22D8D558C5C81A7D425A1629DD5182206 -742D1D082A12F0780FD4F5F6D3129FCFFF1F4A912B0A7DEC8D33A57B5AE0328EF9D57ADDAC54 -3273C01924195A181D03F5054A93B71E5065F8D92FE23794D2DB9D6295729076BD8ECBC0F4C1 -BE246922D2482233846A96D867B66D9CF25A1DB661141D36B8506E61A022F9EF8BC1F2F674ED -F1533E67A78CA29A612AA9268E113C5EB84DA56CEDFCD7A111403E6E2A8682DB04368889747E -003A124395ECF0C7FC81218552EE7C6F60BCFB4120893528670D0E8A4117EA5676915E3591AE -5652D003EEF67818A41A8882E102AEEEBECBD15DCF632ED246A6A58B6A7780DB6F1F9AE3FDAC -8344585DE104F2BA2DF06D68945889A2A3B6C262FB53FC670BC5EB7C56887FBFB7AA70268411 -5872CFB0652C6B991407DB32EE3E75E8961D89542922948C903EA1B05CEBE72100293B917F51 -550BB61E827CDA95270EE935A64A9B68688C23FD85C6BA313D78050C968EBCE93639627EAB9C -56D4D1D346EC2A24CA0B43DA264AAEA9BB91F1DF9A97AB301B4C4F496ECBB660EBE1DF7988F1 -C2B7A119B5322185BD83323B1BF45116AC908A08AADC304F33A65304BA0374CA2190B0A211BF -98CAD7E4738B9BA0C087525438EAC6FCE0448982CE914641C1445BF0410FFAE12D57F265EEB5 -611DCDE328C5A8050BF89B3F617F37AA7FDE318E47616E207AFDAF6D9D187E4BFFF530BD7D8C -117C8B075D78F932AC9D0AF963D870B9AA999D7F337D2608EB41B72721D75F4FD6EADDC8C9C1 -19E1201E85849D84E90BE51F766393D16CA3F95B8011EA8CCF4A996F84659FE91978089A6651 -731CB09FCD888B81459435F18FE61096A9031575C29231BCA7BFC7C1ECABF1B867A839EA97DE -660CCBE1F62B52F0CCD01663F718005F086B16FD7A107DF35A1EAC7A8444A974400E9238A799 -6C4FF90F1D5A94C6ED3C9358C5AB664241922872FD549E4EF7030338679E5C9BB12FBC77564C -C64A8FFBD2E81C54AAF99D4F64D3A040B02B13FB426210C1C419CC1BCE69BC49D680645DFBD6 -A8ADE5D4FBC1DDFF8A731156522B688A23D833E6B1115D6082DECEF241A28A5785FBC41B27B7 -3FABDF4FD50FDCCFEE7E9B87EF97A06522572D38F59FDCF88EE7C085A5194F1B375C8FE4023F -CE2D1707A299F38568E8382752CDC9A9A286CDD3BB864BFB276C065D36F2E2C2AAF32AA5A4E5 -7E4CD212874D9A691D030118827287316B11C387679C94F561DDC54C90EBEFE9677613D22806 -7FE9131EEF17D18C5D0A769DDC1ABABA6FF8432CD7C0544B842D9AD6F913A7BDBDD37C865AAD -6949D93554A7D582879448EC4BBEDAFD7C2586069BF4CA4B25655BF2A0E169744CA2A3C72496 -904758650703A62EAF65BEF819B596F46716C919612D64EF66446005CB9B8497B0649C8DF5E6 -76DCAA08FDD73327FB6ED89A00C99948B284F2E4FFFC7671BFF52060B63607104093BE8AFEBE -ADED2FF195CF6FD2B59F2B42F9EF0D1E6509AF4D76A68FADF00C4099DD207561950FB9685C86 -0929A103AD57C712272AE66D874D58209B79229691FB4A01EF2450EC2268E9D597CEFD12E4C5 -9CBFF39E5063C42D9F2CF32C3654C337BD52E4AE83921786DB2FA206A67DD5568D1793BEDFF3 -B998812DEEC922B84A531429AFD73832C5AC767B896EEDB061A593B9961039D5E9B182081F9D -C9A1C3BEBEDC750717F056928B3685DF10A8501BF1C6AED81EE81A1383012187186FFFF3B314 -BAEAE0808B653EADCE90734AB16CF6414AFB85599739772BC5F126E123497B62C6B47F535C04 -622693D564EF44D07F69685E932ABBB9C038C13B6F61B58C3DFEBB88D2BB9DB4E6CCC7AACBE4 -64FA782DAE1056155F081829002592769ACB133D7F596912C5BA5872A4650F2FC65C0703240C -39C88EE5598E11FD0F4CCB83BCA4DB824EF99C79791B2943DC4CE4C865627E13D68607CC819D -E2E72529C1C5AF439B2ED095AF6633C8FF7C7BA59F68837934B8A2CA13BC91B3225307B095B6 -DAF079A41C6FF9E545AA0A0957FAC39F52AC481B0B9974E7057D3081098E23AC91E98741181E -F5A78C514262320BCAC5D886C22C8426952D3E19C23A2497993234C554204DFB4B0AA869CC89 -A4EB06CEF0C8B8DC079AE1506177307C60EC3238F045A93C14051B063A05B502B0E0F5144980 -B085A13C7E1BEB5D259778F66A3D4CC2EBAFDB43F83B0A405D88E7962590818AB9E9F1C9572D -2AC1BB14A54C5E344792FCAB28FE8D9EBF2B095C152617414262DEBCB1BA6AC33833104548F9 -1334A02BC2EDF8934F638EA88090ECB5749640A33258FB0368A80C7CD3A678427C706442BF39 -45CDB7CCAA1C9361645799CCF40988D57DD3415A000AF612D1A4E4221FFE81F11997B494E1D0 -4A5D0EAD88D2FC76E358449A8CFBAFDF5A870436141D271B5E712B8ACDE3901FBE2DD4010416 -053A1D486FFD2B93D976D017EAE78D27C736F6FA1E32E8F1BEFB2E735F21C7C8B74C9E798F4E -73F7E73A90F1BE6370CA1E848A64F1CD8BD99A459BBB6E6CA51C6E6AE875E39694D17227C98E -4979780834A5FF95588F62626903304E86EE889DEE318961FCDC295BB56A935050298E7A7E3F -0A6D98E264F37720171A935B3C914F7DF5431C2FF6C48C230E237DD71A51B7DDD8F66A494F3C -AF693A42A280C5C6F4F657EE8ABFDC7A1CCB98CF678AD5E66267DC78C6DC1B6D781910340B1C -C8CFB9AA2ED6269857FAB492ECBF735CCBF804A0A0D59EF36F441F97DE0D09A11A3422EA70D9 -27438F3B010D55FB5BC77B398DC3FA766550EEE321821C1BA1EB6CE16ADE9BBED68E4022A48F -E703505C7A5FF8722348523C240B15D7D4E5B966CCFD83F0DA09F079932A8CBAEED8ED69D952 -24E0D6DB607BB725689C4F9331AC8E882DD668C88AA4F683444C210602986F818A8FA219E68A -970C10D2A8C21561E7AD8891E10CFC6D6DB42B0CCAA454ADC90A28CB81B0510D551F844ADFC8 -0A55301C8310F9D103C489C90A44F84F47B6F1B8D474366071CA1522215ACE0D842767AB2C96 -1D1C9B32BB886714945AAFCCFE513743F5F5C44DC1CFECECA538472511896C85B2C9126173C1 -2D4B2B36C4B62CAE0E746C0211EEFB8A8FCCB473BC50FB48A3C3E6946016908E5F4F4914FDFE -EDF1186F12A39F13131629AB408FB2E0DD186C257CA3DAC07BE9A7528C725DB8A93D52AE0C10 -E4D290AEF73C7FB2CA6BF922423EB71A8C59526E3D73E057D6279630DDE8906B795562F4396C -0869A20694370F2696B00FE2F96369B26D56B34A0FE7AD376519D1B8A50598B2D5A60004A3B7 -C89218AA9FFC1E5E74ECC4885C517C0627B58B60B136F651C1D48F388FB9351FC5C46DD3C4BB -CB7DCFD01E6DDD4063BFF55A34D64C55599A82417717EB593ED428B67750972BBA8252C31507 -BDD7435ABE4B4EDBE81B312CC5F91A1F9237EE9C278D11B51833F65260E3BD0410699D0A0B8C -613152578FAC985028EEC5F10E8B9BFD680CB0BB53B8E93AD0FA3A749CC223BD356319FB1B6C -6EC397D22248F0891EC1B60E84E89886212FE1B41D5C2B6345D4BA2340306EFC811586E06AB7 -EE765E93C50B873FD48870769D1D218A10952A9856B4B51445FB82A7928DCE5FE1805B19B99D -5378CC9271C4722E47A09A9278FF244BB280CCA6A828CD0901AE75F5BA1F87E73253984D7AE6 -6515141E34D90E770992A0736E3D042B304271E207DB1F282B2DFF4388E48EAAD733AA746FDA -33C9D9C7C9FDC090B4B2876FE4645C0BB822CE40D581C7625F9EC0DE5DC6A0669412E9712507 -139FC3652C35523AFAFF01D3BD63A1E2C8A53B9EE0543FC505902E8FE0C23F72D824E951C40A -6483CD8A12A5B29F7C799309D17386917861ACC27C200AAA34CB2A104DBA07EB4DDF5E4099E3 -57D625394728DC83E1D722F3CC1AE7598F169E9C9A2C1E7250715DAE8660AE119D8E29323FAE -A613C0D31C0C1D4005F2BFCC2D7913F8A0E18D1DA390E2F1D3E28D6EDDD09C93D019D608911B -AF7BCE79557B1397975E38E906B695B6AE1C22AF047DBC1D7D08744F182B2263E14A75B843DD -D8F990078410973D7CFF56E897245A224A1DDBFAED2D848DED109648D42DA10219FA6358BCE7 -7565464AE52AF167FABC06C11E6726FC233D0144D35AB68C7269ED2778017AB4AC15639D2588 -952FA22550E273DF724ABF514D1F0364A1E2A7D9CDB4E356494DE3AF6125D3CC6D2DDBA01AB9 -2D36216A0505B4C0FBE46AD4674D8BB51E7520FB4403BBAE43BD6A69E475EFF0ED4F71D865F6 -D3BF6E3ED5750807DE076C0B1F59083D488AD5FEFE10D1CB93A0F4F110E45A80BBB00BF408C9 -6BC6347922332F3220CF474B66FE1904FAB3E58C9ED0B4CC7215665EA72EA2F7212E7927877F -E71070D4EBFBE97A375A8784640DEC93F6D6EEDB7224873E8FBEF31C40622D385F6EE43CC6C5 -720D3DF72065155D58EBD21F2C93F323E9E0CDC35AC43330F9CCBCEBD9415173E5304DB65D3D -CC4A8158B8A838CE7E0BCC4F4BFFEB9333EB9A28CDAB15CF3256AE784884EB1FEC9B65328A0A -26D0C8EDFD3213384B367FAB9829A4A1823E223A3FAB405E51593700FADD42352144F1B648BF -7BDD217172CA43066E2632DDF377A535B0D855AE8120A97E0C907967C36E88B9DA5596676C9B -C1FE9449BDAE8ED6ED101CA70798AFB9B9EE1B357FBD0846AF20D3F4E64AD7793501A0F52CA0 -710D5588C8A7900F9F58164D8E5174A413764ED0B2630585C09C66A62E3AC562E06F2572FBA2 -73F8F2F62B50F2FB21040D12F607DB040076159FA283A42C653614CAC50F6D929C6D69B7BA33 -1F2BAE21B1E25C2937B5404F6FF789B73DB70CD06E32F5658DC2CCD53D40ACEA5B19E4019263 -058C333D81E6F99741A86D21BDA9C6A6680B35FDC036AE2379B16E7549AFA7EDE71C3E23DF72 -1EA9F4580D8C516832677FDE26B79CE1A922467086E293B003C9F725663FF089DA8855C5FD23 -2612FC0434C25B759DEBAA039A658A8F291261A11E58460247BD0A03D3CBAA7B005D605030D4 -2DAEB1914EC78FFA012E5A416BA91A877872A489362909CB20CC859F032E305BE4E1E2510803 -C3F475CEDA2C3DC8EF409FAF1E260240D9EEAEAE853DF289471F6206A91D7E7A24B3568ECFFF -34269DC13FB9CC71850093DB85BEA6C890ED3BA5F8220B7516353A9B9A7AE11BB69B37827E60 -36602B536A8142D4524AFE7B951125C1243D3C8845A38AFB7BBA584219487CD88B302487E502 -D5911D79EAB6CC2070AB47D5BD927B0A835CDCF0362C8BC0DB3B45AD85AA6434DE49B32BBB5B -D180AB18C98B8E9538089552B3600A532FD24769C35281F3D60585E75988A305F1278F6F2A5E -E0405D0F30B6770AF0364F4D982C07D607FFA4D55CB773D92F9B0E163934E801CCD9A23B4793 -0A57CAE509C9E021D67C3E08BA173F8274B6B1FC1A53305DC998C6576EF045E84FC0BB391E97 -1D75D69CF507DAF86967BFCA7F098BE6F9F19AE1B72C433826094601FCACAE2FDFE2773BDFFC -19616AD0E1DA13B6575B5E949BEE16F4198CE82DF7BDB5A0E5411ACCA8D74CFA1F7FB2F0B696 -DE35D3810E090F2BB036BF80AA77D8E71140005A3014D736D4338EAD5B3CE7760B0008C418C8 -0508C44B9E5E8B58B6B770CFBD7AFF85631CCA1EACB7836580F3D889D9055FF808F29CEF9EBF -F7FF904F89D6655DD9A7097E2A27C19A0C47E710FE7143A2EE1E642DA6AF5606305C2ABCA4DB -9AE966057C124757B094B5B1226702B1A7FA4F082F8F1BBF841ABBC29F760ED72E04746EC768 -95D4D5D78D2E09B73E0B6CAD2CBF7B2583C1B6AED6B208DD582795177DF4976908582A253CE3 -29AF84DB80D2DDB23C02C659F99C0BD70849B40C4BEE2C41C3118E5444CBE7DE1E57DA268C9C -6E0DA8F2FC33D7193F0F4ECB83DFBB9BEC8D0098C10134FC5C2700A90A9F0707AD75762FB063 -F620B691C478FF88F78B486E7FA772C06E3F86B94555D981ED92FDF2AB8DF1B9C1F9ACA18009 -8D876E0B5A1F44D53A4341AD0C3C0837B8A595932EFBECEBA6BDEFFBEE967E474E173F999071 -689C1A7E23255D793557A022726053B5BDBC9C333926D714FF8D6261E492DF9C905DD66DD1B7 -E17E714A44C1E073DEADF6A250B765872BF96E047B297580C27AD1714D8A2CE93346D0A972CB -A8BAE026BC1646F8FED5C9A3366E73A2A65FE7FBED4A8447BA4CEF3F25E20EEC13F5448DAB2B -1768BE14A2F1FE90117079DE58883A86E7759A3F8723901E70ED76DFDAB6DB2A2597F3CDED02 -E1418E33EF2FC5EB86072BA97DB0B4A87BF21354EB8FA680BD07FBAFCF8CB2FA44A9BAD1EC8D -5692B12A0390E550E272449546A95AEA075538359DF87234050BF5B6FA86634E628DCE90F594 -7772B834D3DCB5BBFEF9F5FACCAC5EA302813FA76A0C7E8D4A6904110E7D164FDDA1F2F9E867 -052945E5697F3E7B3F3E44A159FDBB940D942C43520B6760DAD2D26E5568604EAF88278A7842 -315D062BC8B723D19B35D5913264C3313D68F88A1F063D0C1B5D51296C7C2878C5A016C6ADB6 -72F6148EA484B435647794900EFC313CA6FB90D3165695C194440F715875B1817B511A9255D7 -5A7EC5343BAF3115503E2B7B7550688CAA306B175B35F1A17D821F4168E5F8CAA50058E5700E -CA8751C8446A91C1EF58E6D8DE3DC3D7F89FACF39E5063C470F80C7D740FC48D67A51EB34ADB -4BF49F04166E3C8CC5EDBA32684D760CF5DE8E3B15FB7C922BB6866719F75F5E4B35FE0BCFC5 -0117E820A707A9D45377BCBB9B5057C58D4D9ED248BECB7D749CEAA982166F4E8FB3617654D4 -6DA66F2766FFD0404ADC348BBE5CB78623985F7BFE0B05C802F028D9F4A944F3077E85EB1E95 -3656F07BE40F600F17273A582064E98C77B6ED4F49B086E2E83E8E7DBE8CD9DA174B49171822 -CA13ECD8ED6CADAD41E56BAE142C7EA81CE7041B17CE25ECC4E7B836A6D2831DA602B8E74347 -810EE746CFF2019AC296C137E34D2078D6CD89D12714FA8056C200294B7D43A678EEC4B09C0D -FBEBC9899763B21F281A278D4A67701DB89D786ACABDE84A78A9647F68CA1F1D96237BA5496E -840C270C2DC9320668EB83864C340DC520D9DE1F6C6035EFD0273406A14DBA72D0D484CF006F -559C114020ACA0BC9E1822EFDFEC07866913956D0BF90C5B0F96B6C17799153E59603FB415CB -AC3AAD5512EDA753DE8EA7B4FFE9135A8C70416899F5B6D1765B03ACAC1F8F970BF2D937AE6B -CB694DBD3DF0DB2B53FCFDB8EEDFBC7BB80246F7173B3193C0FD9BB5C1F2C3B3A9AA1B4EA166 -322660DD848C4922FA4FEE272BA1AE64BEEEB19CC875B268712AFF8D4F245C2F081EDE4E6193 -21F341B217198E7A7B6B39B5A13807CB970AD03277FDBDBF29235C600E20CCD4D4153A460124 -8829F857509717222C2C9535E05DEBDEDE4DADE6DDCB343C2E715573B2182AF3875528120B42 -DFDA773CED4E091F4E99FC1C8F33832569ADB8233C781B31FF37868723D053307300F1E113E9 -08473FBE39ED75A931C290E7EFAF4C89D4CD22F63852EC30831D61D1DE3815A6D18FBCD15F28 -EEA75AE50BD0B237E8CB0870CAC5DDC13DA58DBD060D3193FC92E6C4CEF3BCFD81CE6B3679BF -C5855796CDFA8A26D63A659A2FF7A1A7E318A7F76FF80E846A2D647D38E827FFAF54BD5A9221 -EEB416A475EABF4EF0409B1CA55A851C245BF7207AA561CF2AF19D6FF145C884413A4015795E -89A494F32D78674B9459C7FEFD38163B355DBC5D47FEF1D6AA91940B5230E47AEF92E526DDBC -4A2C16762641FAF1EDF50092203B05B19E2609787023B59FD3AFFF6E32915CAD9206027739C2 -DDA28F18BCCEAF2AD29C826602033327589A7E06813C368B09C15D29F784CFDBEED0A9BAB681 -E0E7B26B484955D1156CD7F0D671D1594AC915B467EF15EA704353E5B66F298465E0B1B56FA0 -EA242FF5FAE98BD9121F52279AE360B84EE800525372BDE229F1347BDF6533396D270AE09014 -DD5EA550AA231EDB265A135CE41B0B5C871E5F50CAFB04233D37BF80D6DDCADFBA880CF560C3 -0D8FB7E6A72CDB6BCCBB2972F4064C379FF941F4DDC8743EADDCFE6E15D063DF73CBA7DE3518 -75FF1AD16F3EDFB240D683186F29A0FB16A3307BE57D903A20BB1A216554D779625498AFDDA4 -520E1CD4CA6C375C212393E4422FFB74E68A513629D45D47471C66862526CA5CD79707DC8097 -83AB31CB4CDE5FA5C2CF1278324234290489BB39908A4480EC20895191F411BE2F7CDBD23A6B -CF8D30DD3D780E6CB5AA71EB33F13AED4147E8E0918F557E2DB504B398306847AE267403739F -21631E0B79DE385CA7482C03FD8A2DEFB63714587216001D313312EC7651255DFA89FDCA628F -CCF16C40086FFD343AC0B6D43601D74FC01748031C0FEF0165273557DBBA9AB3B8B04C7B57B7 -75F889B9CE9C92BF90765BCAF6AB8F5B958FD4F520F9E5BA7AF30114D9E004B708E39E50235E -6316AC516E9D777D6C653CA65529C45D5756CC52CA9EDDE67E36D438F60CBEE32680BAFC8043 -8DDFFC5C6C0CADA102AA95BAD0CA5D20103509F358B95F5D5FA27F22557C8C403542739CDFEC -8CD1A05A448F9B520EA55BF8D748D16402E3372A2A58AAEAA824C9A1E70A2D54915C4B4A5D7C -081FD2592E248A94EC29C3224A25B254E947516F3CEAD3D6C738C41D88B8CF1BA197789C9C38 -64B6A96E7A366F4702D6802B5E357EC3B220A9EF78F39A2003D98CFC53F71E2EAFF87001DFF9 -057C1FE0A04D24AB59C582B6B602E74C6D6F95E056DA9F17C7B1653ACACEC48B10A28BF09B92 -6DFDE5462AF6152D793D1568E521C3753A3ACCB5637AB1C5AFCAE8ED095BF8987AFBBBD9B058 -B3A12D73E33290D15D1C441683EBF2AFF222AA8F2A57630499F04B9D09B493E42B9741E88048 -1DFAC9DCB3FDEC334E0E97D2568495664702B0A9DE2E2F25A4EF4782B37D6FCE852980EF4514 -70E095DA86383F46C0F39B4E73F2BF01527C5FE1A6FCCD2AAAA48A79DE5044ABDB75242D4AA8 -B080C8741FE5474C7614B162A74F5F409F15257C90E1A48D70F72C2E8ECE686FEAD6EE5C12E6 -BACAFE01DD8EAE3EDC5B92623081FBF3056E5FB353EA240AFE3ADCAAAF3649396BFD236842E3 -CF8136525EBFD71E2070AA3A421603EC73BC8B22274A911A9FFFC3891E5FE32A6982976C339D -F51FEDF5E69455FACCB3E30566F3484B4C9104FCE58ACFA5EF787257DEB280FC5D8D01DA8925 -FAD0AF4037BB2C5138714F232FDCAAF126F76E6108680086CEC7B1335F335E44B7AA7EA0C5F8 -D5D5F3B79A123A8C6AB5F407D3BA39C47BF8C081C09908FCE1BAF0662B93B209635574AD533A -628C874869BD645DE307E3D3BA7E15D2D6C49EADB305C869BE3A535CA1B26EDCF1397E8F7371 -50A9DD391161CA8D5AFD20CF5AF9DD987B96C6D401ABE0CC33E519C8012617DEB01891437E61 -9267C61962C0EBDEBCF1C458D6700F61358B17F443110570B86466DEF908FF9E95D5C32BE477 -174BF7B37959A4B392325F8784E0D7587234DA25BE24CFF09D1F1E36C9AF639375B2B04DEE6D -F6AB1117569F4B4BB4794BA32447A4D55AAF39056C23CA7BB074CF652BC7ACFEFDFA492DA01E -614D73DDFF95F564EB7AA7FF77F808D7E71C720BF053F90014640B8ED2662F539B4B3CB2E913 -FE23CB5395B3F0514E3D4549486525C2367CF5ACCB8F43362EA1AC358F27EDD73D344237947E -1F47FEB6CE16A22CA0A71DAB76845EA701325016C7D2D5EB41A4EEDE55CFE37E66EA4A20363A -CE9B6AD85FD397C47B36B7FFB0E0FC81B29BB8883789F3E4F0BC5F9A83CDF3E11C3D76C517D0 -7C10CC29AE9C61C765BEB416E2B81EDE4351A7FD991E3C926CB5AADD1F28145D1DD08EA5DA0F -5C261FD2DA3C7A311479188D16044BBA7966787CA901BA9196D12603B644CAE46CC854FB11A9 -5D574E88B44D8F61A81BBC202B199CE8906B82D71D17FA1F1B20A0A227643BC28C5E48EDE7FB -04DA6742CB8A7A3E2402D72F96638450C16DEEC65A580057DAC486612AC8A5F38152914E6FDE -0CC8766336DDAD0A74EFAF3B2741358346374AD533FE04E0DFCD0955D50BC42119FDABEC728A -451B10BB7B148C1F3E15C2B1D73E0101F19B49E77F761ACE159510AFEF16587B58466AA536B5 -17991789AB37FC5EFED0B046A78D47019DFE0986B3D99A12A836B51F8832B631AAD458647743 -62951A267BD6D12D2580197D08DA24653C95F9A77E208BD237457C230F4FC0C08DCB777D2EF8 -22E61880CAA3CA87AD2CD05213E31DDDEACFCAF8E7843CFC96AAE90B74CD1D6E3CB2265D73E0 -745F55351F167FDEB6EF623A29A8C5B4A648CB7C9F4957A494B474BA92EA8F2CBA54010A9DF8 -7C786F19A8251B9635F487A0B14F5DFD49C4E78BA6FF4F799F94C95CE33765F580E6BF95BE03 -1520FFCC81DB4C325E7C511852C185B488B8719FA25F2D5018D016CD88F76E8A704B7D2C2EE4 -260D5FAF5FE6BC6E908E99AD0BF4A8698BE19F61E6FFE4C438B3BD3F78917F5C7D78BB681C3A -E374E07302AA5413B597626D868DBE49ED0BE3E8A3502A7FD2DB97DB1DCFA269D5C37A3301D2 -A9E9EEB612033EA16252FA78A39625C1F1E36EE3BE688080A55CCE0348D255679C13A9EA26A8 -F12955FC33B3A360BD06427B88C841057E42B5160D9428AF1697DD903F39E35C6120D9A2B0BC -641E493CBD137ECA4DA7B05E42259F8BCC03940B8EC9D013952E2353C2DAA8C9D5B8195145F4 -24D9278B77A7AADB0E352909EF3BD002CB529A07C73520B2BA2A95128706783647F1D447A731 -E488A51ADB9C242922CF29F43EC4810009FD954E08C1CED099BAC9D1A1A21B238B14CB71F68D -B82B96759647D575C624EB3E2E455AFA86BA2960F2660DA24739B574EEAB9E74AD913C1599F5 -4D75473C1C56B8A1DA545343D57839635338514B66C7B502EF4A889A76BB1EA09554AB22275A -88542FEFD00161A1CDEBF20041370788B16459F55D7E714A18F968037381E2AFFA4A42225B76 -AF19C12DD5F849263DA80721E0C7F65ABAF9B7FF9A142AD9B631276AF57D4C63F9DA734CEF0B -298C2FD722D09D39CA44AF7FF5DD5810A824DDF2584FAC8857C94FACCAB5F3379DFF54A5DA84 -AF082329484E0CF6D0A568939B78C6E624D9FDAD0168118809591012DE45B1110438D6CEF4B3 -C0B8FFF478A9EDB835D0ADA9EFE069504672046BACBA6E1FF23841EBAA6293CC776D13F453DC -C7EC6461F7C5B952F48C5B863A8AE2AD5DD3A25F21FDF6CA3FF7B96BF29928634963D4075E66 -F941B18CC3E64A559FB5E1A485DC07A2E4269328764B201838FAEDF113B752904EAC320A7D87 -A72431551DBCF1C59401E760708D9B0A0F902FF8B214563EE54F81DA6A447FBE81BAB0E949D8 -6B0021015F22E6367185D101DA431A384FC4F9B01526D9D71A743C53F85A3D1DE8CDE9D09578 -BB1C401B9FCF64F2F82632F8CE61B458C5584A6229148DBF2E6DE3ADC3B33840EDE50C87384E -D7BD1721A0CF7DFFF89A67C58FBA380397E02B58DC32E43F2D925DB562A1DE4BFE28CD2106FA -FA35CEE98FCABE3FC0C2BCA8B4BD9F7BF2AA30787066B8499AE7732513959DB546AEF4BAEBD1 -C1C064EBDC7F090144AA2AFB74E5B56AEA4CBFD70448BFF2D18C109311BB6EC6956E6A323639 -E33762F0B2B946AA5F6FF7E7AE5245A77B4F636BC2CCC3B5191022C2D9B38AC75D7740E99248 -B4F1E6A47DC363FDFA56546FCA90206081D3154E5DE6B3B98441290969A5A8F1E421E4541772 -2709C15B5A46420F9BFAE0EE84BD69D39EF0FDEDB1FF867F3A3DAA95852FFA3E20D795ED9532 -9B2D950E8FAEE30091ACA63E969C160D64F2189AF75AE5B5C2ED781B780F45A5926371A23F27 -FE5E27181240941CF8F72AC522B6E39F826699166FDFD75DE279F68A7E73544F2CBBEAA78350 -F1E82FC03DC19595BC583D6B00F21A6173BE7BEEA9BEEAD7A7C727CFB556A1323DE7D5FE8738 -E651897DE65D8FF33FBC0A61738F71C5F96E0120140957E8E347C38A552C356484928289A0A6 -B8C72E103FF308FA9A3ACBDF901DC666D46BC823FD6E23AB99410940EDA78C4FA475888A3006 -E33A630691D09A2B460A7114E13F2212B1F46004670AD3A01F3723DD126D13477D9EEFC54C05 -60C36BC39021290620C633689E03A55A12DB74CD395FBCB27EBC178BAE6FAE1BAC9D01AA8390 -503E9DB14D5056E6CED69C0544FF613CAABE85E1CAF3912092DDF2345DE08DBC3AE889582928 -45D30B926A2E58950479100E6A05FA5B4BED9F90E51028D2CE83FFFC2A5C6733CFCCC3F0209A -8EC3A0A7E50C1699E1F474AD36A740A29751793C7C8CD3F387F7F32799BA3164B9CFD2358E24 -96E938CFDD6326A5D537DBAF899E30D85C6A39583B3BEC6B6963C5B3A92EEEE09A1827FE7881 -8AC6A48E6F23FE734C40F20B5F731EDCEB3D9F2AE7DB3B5371C1FAD799913F4072013D02D833 -7ED67E109A4CE13CE1FBA21692948DE24F4C67BE78526892FE4154C4B7583E04438BE2CFA84E -B953584CB2556CD574DCF5ADB89F6893F4A7677DC63AFC7F403531B298DF6BBD4A53646DC706 -8C1D5314EBF0DBDFCCD63F5B4739E20D6C0DB0214F7FFDDF61E17046277C2B8C530736336A75 -86481DE38C8874500F768459F4B07BBEB42D5F08193F54E05C9292ACD4F65D4ED04E3A1DCD3E -0DE8FBD491CCD909AEFFC29E8A279FB8D32B6A9E349DAEE5064A58279753140F0B14F6D7B6B5 -71428D2438BB228951C51BEDB782C49BF4547D3B1C883951AA3CDE97D4468ECE0E6F7C2C7922 -AB97BF512ECB300D3593C41FA4A5AF7A016DA976405EE37429009B4F13CEF0FDD925C65C9BA6 -D06834F21DFDA86737DA567B47BD9B36E7415E285C3C71B1260CBD3F82040C5955C1AE4FD2BF -BB32655E380F14EA293B4F42F11AFCD82C9D85C377D9CAB6E729A7B6C5FD31D288E8800D27E4 -01DC66B011FF0BE19A1123AEF02835C21B06BF0EEDA845984E6D84E64B97A0C3851BD307274B -A7A156526B8CACB0F7EDC120666254FE6E7042767E9526170B20EF76A41C3147A30FEFA17228 -23896BFE93E5D50C1379CF76111BB5A4145D615B90C163117A66C22BA3A7B7E44FA3604E8FE1 -F1FF2BF5430806FEEDDC21F6F34035FAFC927D202333112645A9290F14262A5FB3A28325CB45 -627227CD645CD2A73FBB0B107F5F9B5E6E7CD8C0DFAB84A61A293B842CC1B3FACD8CB29CF847 -98739D5A60C172E327D487BEB3788461D0B18705FC76E85BDC06B7FC967E0AEAAB6AB036A56F -916E44543EA6DAEE294DE32A17D50866963BB99D5D2E7AB85C1819F5462A13E3A11BC7F4245F -940F9C3EB9C7CF65476F7D16A648D59D3BA16145609CDB3F17FAE5704719EB225D4A2AAEB0A6 -05F8D86EF1B061CD40ECDD84D17EED0E8E57A7B6E1E0C34EAEA7231201A83290BD6174FBFD6F -7A38457CE4BDFB9193599905E49F101348EEBE42B560738D2CD70C1308944E3BCC98A7677F23 -5EBC97C1F67D6328607C1A27F0490E0413CED1589207D9298BD0304FE83307EC1E9C706DD161 -AF3B9B201A54CBE2B3B7B73431E888B0B03BFD8B0E82AA119C98363E6D1B488276C9B75B35A4 -5B72D878BACF0BBB39A83936E31D069A96937468DF608C971EB49B482AD9D7A0A909D7273197 -45D924B9C2DE9556DED57C53DB92E8703C6663D6565AFB51DAD4F83ACE6157E99BFFB709CA34 -795E601664A57150295A017A08BA6262290DDADF166BCCFF091FA074CF10976CDF9C9FF78D0C -3538D0F62AF4E933945E61E967316B81EDC2BE257048E6D34979FD89FFCEE26C272A3219855D -82D9DAF355C8F4721B2990A23ABDFF59E1AFCEF606C420337418398DC1516356A5E77438D1AA -4D058A71EDB55F0A1D41A2B854305924BB71FA7500FDCBA24CB7DAAA90ECB16ED728FB548BDE -BF7DA57A96A5D0C5787DA3ABD3ADBF13B08F3AB39F20F13D53B603F9B82535C3E8E6C230C73F -F75EB496980BF67C672C311CB3A8B4621E2A29C17E611B048B3FA3D665731F34E308F89BCC7C -91D56DA4DDE2B7D9F83765262A67530B2F73EE801F398A0ECA464E6DCDD8CCF3CA64458617C7 -D9E642F5F2D156254B7DD71B1EE7225250D3241C450FD2D421CF37C223F300504468D94677A3 -6EF33A212FF6ECC19870FF51D59D1FA956D5AF2000BD53F3E292B0BAA78D71150F605385D8B5 -DE106435BC2534CE436503598B28DFAE4592A2673123A9E8FB2B8F5C12E34C2028E1FC668555 -2302C2A73CEEE476ADAA5ACF10C065F0D1D5F964341CBF860897DF1DC69A9461C71B8EDAFCD8 -CB992991F1947AAB4A780DFF6981181659B62C37ECE76EC38BFA937D2226D2D5688B8D6DE502 -FB786FCC2B157B19BB30FB4CD006F30271F56BA73FEBDEC4165E16223DC7A0ABEB585CA258A1 -2046D338F25D13E854B35D6A20C60658D61E24ABDFE35DF0B612932E3C73D25933F0C6D8177E -FE69847E97DB124FDBBA188F29B9E811D1CABA05DE9190D9B1C6A3A1A7EB5DBFE7056EF963EA -3015DFDBC47660E4CBC3A3F5DF93EA25C2D451FE522EAF6D9B923319251D2F1B3A85BAB45BE0 -594366CE4C796B6B3E710ED294E7F213CD28AE7296A3AC0C49799B8675FA552E5269B7ED30FC -FA1023C7287C2E8467FBC333B32731AB9D18B1FDB18E1A2EBB41839AB225AC3D51AC8638886C -1B2C58792D4F9ACD92ED5A850C2D7DAE748ED91CA282099B923A7217B2DE55DAB56317F28C60 -28030CB96A42D4382F78E614F4A488F58572F846BC5BFCFBFF6389586AFB769115B7E91CFDE5 -8A4B049B728C147E2C10B061956BF261B21A2D0DB16615CC18E10CAFB9795DF7FC691A6CC1EB -AF62D4B14ABE91CAA0F4B624AD921AF8D326487AC339E90FFBD79F3690DBC3DAD8E2812C51A5 -FC44302DBCE56282486A80F86EDDCBC8E1E0950A67231ABDBC441992F6A12EE44324F0B9382B -76854CC29B338A5E1BC1EDEBA7A4D0B1D8BACBF8D9E9015D7BC170FA1C5CE1239F0DFE786965 -3B765AB11B13210F0697C00CF514CD884479AF3DBE775D53E92AB1E04A1C362A0530DEC92064 -4C868104AE838B1B72F255C3DBB0C80FE75BD8932B4340EF77A239E643C5EDE1BA1EA8E80266 -644DAD34F4BB85BE408EA27CF825822BBC5636909AAA8D02854882215464962C7F666AA36692 -4F6245C12F0532447682BB8BE9EB3A510F4634160E8FE7C5F728B00152347177C787520B8E7E -08BA726AE8E7A749C92327A609D119A5FF826B0D3CD5A36B6B588ED0ED387871E04E71A7AB1A -6517D142DD34FC9444556236DF1BC97EB42A05D6A167379CB46AD22A6E71E8DFEE2ABA0F8D96 -F024369DFB48B5ECD74DE13BC95BAF1E52BB9F78A063E827CB969228087FFE40BE710DAA4B0E -09CE2E0249774B9C3D94614B8926CF8212E104678D06EAC73783BE324F01C88AECD3505A273D -78CFF249B4B1740E78010052202A7F461254A369A9BAA9C4C9BF4C8FE96E449CF78D0DA810DC -FC74E4DE8F68FCEFC93945CF9AEE7C539651C78225D04061EBF55F5822FC9F9A2D12ECDC07B5 -4B2A8B0D80A1805584F46CC992CAA2158B6E81CC2F0621C89577E7AB494E1AA44CEA515B341D -CB2E23DE9308C50BC69B27E32F24839655B6E798EE0D01DD056D32CE7E23CC85F7320A52FE2F -56B258F0E8BF627231C28DACACE28CD4C628F93D54E538A89EDEB83A6EAD86EEA395E4C46A6A -D7EB447904DA3ECDF315B894F12C69045EA80D0E0F9BEDB0C222D0795FD7A529D0EAEBD7AFA2 -FCA159C8B0810E20878840C9C40AE445E2ED79B6270B0FC6C6A446D0DB4590748610366F07C2 -35234F652C2D70F86D820D14BBEEF13F0EA2444BB2694E59F1E6919F48D90E4E0DE324F6EB6D -E58D6023F2BBA895B45CCB2367B0EC140D862788875A7B92B2BDF4384C9F64911326F57D1AFE -AD9784B36F59F574A9D672D216845BDBB40651B0BCBAEDCBAF7CA00F22018CAB853F1060C886 -FC0036130C820F35F3F4DA39DF81125FF56CD70D3C15818FB29AB5F142F5B457589B537D550F -E3D3DB040235ABBF34E4FC8E82642F28ABD8CD2AA6A4BFA75506A067302A8B4AD3F6880A76A9 -D2D1B22C90C9824A35E93692EBCAC0922F2751BCD5BCDAA6A6FB8E39A1562FC1D2EE8E3A0DE2 -18AE8E3E0C10256FD4FB97FCD865D375401C311DB1703F3EB19F14430501B3AA80B232F39191 -1AA1C372D309A41412D3D3F8FBB22EDEEF0B2D7E7AA800DB913A632E3303A2BB0E4E5BAC1928 -CBD3329173344F26C3EA65C8BF021FA196DD94C077490EE6CB38F6712C1885D00D0DE5FD4529 -EA7CB31C6A42A1FEDBD4BE591F6B0657C362BD6E5041ACEBC51B30E35E89D15FBAD461F3DDF2 -1E8F23F2C824B747E953DD23669348BB83A8FE53D3B9E45A156F873836EA55F5F181DF772ABC -6289743F087A889420CA64CCD687F60837A0B8F5DFD5F894176687EF80F35E97976FBE76FE19 -5784D22D876CD8E3ADB2D67B0161CFD6DF6E0EC61F783E678EA7A2DB389852AA472B341F2705 -1CCA7BBA7E6F906376440877DD3C8706BA6215EC376067E4925874B5589F1461CF1E9C79AC81 -FC590F4AE9C6B5AEFF3E905B42740B23FD57E69206EC5AD0CD3760D3B213B49FBFA95B1A527F -8BD193A3CAA1A9787BC96C655F2C1C4FCCA36A1A93ACB2ED14160E3A345A761BDF5F93604F9D -25334F42E8888694EB7A0C5E504CBCA8B57B9EAA8D68C18944423A26013CF404AC2E77E5E378 -08779D1F40A1878460D07AFA6389D3147982934CB2F25A38C5BE0F09263EABA13AC322233D02 -4EE5004922C2D9C709F7171FCBBA03CBAAF8FB208C0ED9971F64BFFE3C56CF13483D8896A1D2 -428F66E1D51DFCF1DCC59E739A5B0426305C46B8996E42A24CAA8149790618E97CEFEE72FEAE -A28292E262E9E7E6E6785526460918FC71BDF50ECFD89CC3488C15B24E7BC3542D9B29A32245 -0E0A496588BC11B1C3D4E38DD301AAA69044E5FBBAB06B8423EAFCD1C47FE2468563A83C9AF1 -F0DB1F648C7ACDBC8D609060D583E2BF8A26FEC208F37ED0A8BE0C071E4C647E2F6ED22B83FF -0F81AF0E03DDE2AC5C2ACE0921392CF680BEB7705BFEA99AAA931160279D0FCA99195CDB1531 -A1E7BFEB550FD148178AC5B2E806E2620824B392DFA166E295E75863214CBAD23932D0EEE373 -2661F780459D9932AFE74E30625C70F8B3CDB33E1BF61ABDB916DE3606BFC503D6AE3E14965F -8407FD47594A04F86EA7DE85777243CFC0FAA4A44E652DF6A4537FC2522B0A14FA7C30F6D69D -6E87BA7DF0B39447A03CA979EC0C10656C91B8E94CCBDFDB8029E25C26D1E57AFA8E3F0D5C85 -DEF6FA524C450560FE6D286AFF5E650CACD51450FD5D7585F1C77A46D5ECFDE6E7D47671EC98 -34143054023F5A072A7427F31ACA4E7CE87CEC22579A715C407D9F2E1298000151718E4D3DDC -478E6FFDBA840FDF3392A62CF1F3A6C6E2F5E8D35CD60A5541CBC37467F627C7D089F3E702A9 -44F46FDF82849980B028C4C3DAE38380C35BD014EA25F64AB45445EC704370F6ABA4A45C85B2 -6BC08B3BC1359100D5D198AFD7B51634BF01060EC75E97356ABCE2059BC3BB847E77F3A47101 -BDC517B6FE98E5FAA8082C5D91442EA1073FD4274E5739BF9138A11EC9C4B1C7E4D3DA9CE232 -0BF20B4FE9C778804B62C01C2703AAE8542E306E0501CDD62D3525ED62DC43F4A8DE651BBC5E -5C3B6661A83079D448A0B5A8B18120AA51BFED28674B0E54327B52142814BA561D5EF482D79A -C78FD27F82323840A4FCAAA1CCE43107F4D18B40192D2958D613895358651C967FD8B3336292 -0F251E4E2F739D0D1C926456FEDAE1C2FD50F495ADC62E0BD68584A1D9BFE965F0A50D45283E -4F03FA8628FD5D86CE3121693B99720064B1CD6037891FC83D1E22767B28F09940B80F108A36 -A9837519436FDB86BDB47EBA603BB44694E461176186033644770E03B0583129FB837AFE9EEC -E7A58091F948E73291DE390717155ED31BBF1FDE7FFFB0E0FEB083A261A5338272154FE0630E -3CF3624C53052147612C1381FDB005B6D08085FFD620F086C0AD2FDF35FBC5D621391EF26448 -302166ACE138D09698D85B5BFB4510A6B28C3F093892436C67FC661888823B9F978998AC6BF6 -B28049AEE2A3B9EC9A04D1BE35B55409E341B744F7D9A24A95C0EF3E7F42DD6BEED003890684 -C7ADADE3EB37D65D08689439F38E8169337C3277B67BD901F8BC9FBD6B1C2EB37D4D2CDCCA72 -63F451656214B3C93C183D3BB6963313CE70D065293604EB440F39C27F0D82CBB545C2CED00B -CFEA96C6AEF8773E6055C28E55E40BEA3578113FF780F16DB9722D9A6CD441CA45E49D95B25D -6EAA856D871EAA860EEEC1912C383A6E380CE7EC333C84B201B5398BCA763BE49FA9CD0AF5BF -0E0F533D5010F67B4B76C38C41232912DA20DA359D164C5D1716350EC9F6FDA4E12A044950BC -EB1B9F77CF5BC3F21BD02F959A0A3A3D4412FD5E8649C4EA15BA9ABE88776451BE8C2E23C74C -5D56AD51703802A7EF4E05F71210FE107964CF23BEBB44B228E672DDCADFF1A64B38753A6B14 -6B28A81C89556F7B0B8BC0B88CA7769F75E9143799499818329137683C0298777E274A81350A -4FB3EF27B024552EE73D97896F92F45812477BA9ABF82B15166F6A83271187EA7C7FC5918997 -2C1CAC90D0C144723F5403453E4FF041987C5E2D64C0E6B9F0573B8E0BD0719DDE7A4AE767E0 -E844E3053425D60AF9A53466ED02BC905766ADB2EF24EAEC42C77C1113C1915CC99243BD0012 -A0C4D933DEBCF3B52E6E5A729916A5A3C33EC25EC39F3630586DE9DE26279AD1BF69A8EBCDA1 -6E86986085D54F2894DCA647E888ACA0D984D75C229DD8AE63DA1314263B3017B79062EDC5AA -B4C6D3C688794ED5F379E2C9DBE6E85D905602879F70D5E1865E9E0F41E86F2D4EEB9934F540 -BAE3E9A8863C56105162E7C35A93E0E01E593929EA5A05B0A392A6931F1C24E3DD811E2760D0 -5E1233B8E3E9DBCCB4788D5511563F23F5EBB51B9EF05F83EA2A12CB56B7662BCAE1D2818446 -30366A23F10E01FEDCD48FF3A71376CAF6DA9E5D40F96B2CB651F8BB68FA2D0A336319D781FC -E0AC14D1C5CA1FEE8EE8B1BD04BBA16B63588885B3D94639513D54B2FE0662D2CE7E023346E5 -383340B74144841FB55CF07F6A8A691C88575E2D0F4C6D969EFDF21006EC67FC38590B26B313 -6946589767FFFD6A699F7B744F77EBA5D00891AAD570A67332647DF4D5164880680CBD4C1DB4 -C938059E90609969F7B61B467DE99584054584DF8C90BEE16D7B2A2C2D02E68F3BA93EF48AEE -962C0E7428EE243CE7FA1E9A20208104F2B8776940B51EE1DBF801CDAB652D68A9863A9D6CFD -24B6CE9C80A24BE8E4466DD92FCB0D2CE3EA9857044CCDF47C9322FCEC0A7D4CECE8FD921298 -2FB6E1E8D9EFB7CE0F93EE0555E0BB725B3177D136B6A5105E8D9F995348206D48D9946F53DD -D4F8BAC911A3ADF8D515F5649261D036ED0ED43E2720F2849E4CE81309D9E95B0B9C880FE15E -C56724143F320B144F3797EDE29D3FBA0F3EFB29EAD6E5CE8636C7048D2F93B32596A654AC46 -738D06C04A860C05765E65420E518A8B2BA2637BF8AB34D6EBBAEBD23518D49C7743CA206D7F -4B7CE7389C563D95EC877CDB62B0E98265BC5F1F93EB22124D7A991557C70A07DEF1EE32E68A -939B367F550F0E79A5CC21229594EA28EBDC82A10BC09611112FE3FB52461B82CB79BD8B74D2 -BCCEB18A4B0557CAF36574CD669B124A8333287043C4D671CD24B8B0E4BB423F250AFAE39233 -E24F8400685B7BCFAA8782C30F4FBCD501BFDCE32B3C5FE159958CEC728D77B345080031ADE3 -BD2C9A965F3AE26E52B8C702555A0C99AFDBDEDEB41F719B780E77906EF27A21093E8D5F9C83 -3A683B9DD2DC470D0A29DDCE4C0912B308F9648A7B4D05F3AB9FE13CDE1F1FD08498AC8AC764 -37287F0E9753C61704A2ACE398183BC5B9F354042E45562DBB9797A5537A497A38CAB1C6E9F8 -45E4D0F202E66EC4DB05C66BAF27D3433BD3A76B51CFBCA7211F0E88F4119688161F1DAA3F5B -0FE19628A97DE6A4F3A7084D573CF533D029CF6DF5C0E9FF412C1AA7C5409D49EBD923213DDB -FBE56957E04F1134458A1ADA73051D407818D55CF5F9C6C96FB69B3737E2912513AC5E94569B -AF365C982E706B9336FA6BDDD132A6F6F3BB4CC46C1C1F43D1A8E2A2CE47E95586CDD26C864A -EF7F035CF119E81FD2948A66903B18D26823CC74D0A0AA35A332EEF2AD20525A284D9F44F6B9 -3F8A9DAAD3CA43F020CDD3CBDA36136DD6FD093F40521489FCA2D8D6ED0C46E6277533C49218 -B5C264AF286663B2E179AD18661F73F20F55E5F522179962DC196FA9834045C86C761211CCF1 -2586D9F04FF1B4DA31018D13FB4D3DB28F1E862DAE83D43B4FF480C408E3FB2C081373A94FB9 -05140C5FF6F40C69C8236594A45CE8F929BFE22977A26791EA1963CB3B8E1C896CCB48EF86E0 -6B15412CBFB61425E639C1A9CD8AF7CE751F4ED17AF8E811982D02E0C31BF221645E9E273384 -DCD6CE75C43CE060D16043FAE14E6232D2FF8EDA67A92B90A9B4E81CB63E2C2857C5DEBFCD52 -3ACFE4C57B59789D47F04F26D0C8EA6E4BE480DFE37C00258B7B1C18CDA84BC23881B971F614 -9405B1767AB3A8C8EB2995C765E3D3C81A85E1260C56F813531ADF9262065D61B8DC7865FA8B -E2FE32FA5191138A6E2FBA743DC95C8B91F540F8806A70615E96227134C3625A52220713C6D4 -897A4E586EF0362E385DD0A8EDA4F22A6095EFC300DFB194FB9986E70F2FB573E857051BE415 -FB4FC61B708A94578FE1915DE0EFC1E35F115DB64702A81A0F6A367CD805776A23D1FF9BC1B1 -29C813B72268365128A38873986926EE89944E760E1AD4DA8FC21F90A42B08A060A9A633F568 -D5B7C696B13F13B9A4F19C373596C29C16BEC2D27132229234E10573D6AD86B7AAFDFD3E0201 -19E7BE79EAEF03AE57542059B6F06CA09C5B69C79E0F630E8B1C4FC39EE509C81626C6F07F66 -6512BA746FB2B6F334DF7CE7EC5B0BD1070F2CF5E4FCF8370A38E142AAD58B0AF4A2C8F2AB4C -618767C9D196F6FB10D28558B32DDCD6A2DCB5D72D6D48A19B4527DD1E904A122E72FD0FC4AB -60F53EDEAF9342277C3171BD6AD9A04B68993134C12578F73569E3F01A7F2ECC17A4A3381E2E -48BA8C33E4CBF1DEFA169466FE10512FCCEA0ADC772AE369FB3DDFF0CE15BA05738BE2E15786 -D38A2A76B3B9B7F2647B3A108EA6246B47C6A75560C737E1EA0488FAF4925B8265214DE86FBB -F15916D1ED6B0F68030FF9F0D7ADB82CCB1836787E6CCDB45EBD46ECC9328876871469148456 -ACCE89DA82D800110795420320607240850EB4D5CAB9F757671B101453B030F8081312CFFC3C -526B0F298206F160407E8B360267054115CA5BD6AAD4C562E66EB0CFA778B7954388788F5FD3 -AB72D2F01DE7EC1C14ACC3953290A3A0950D00F6875DEAA92068713518980E656775CA8F079E -97DFCDECD02AB3D886D27046C84C806B0555B44C90BF66DDB7E8E63493FE974C630F4998803B -7C0BAC0869FE3C73252204E639E3B76A28306EB1C400AD787EABE3BACF8B7868F95DAD4DB10E -D6E93B20802818809BA922DCA0CD16ADD8F5F34EF91FF43560323D78A4CBFBF7BE4BDF683BF0 -D8907C5F0CE11F8AE82B764BC3E56A97204B8367B87086FC58DCEB2B3707CD5D36F878D182DD -0BDF296709E961CABE81FA01A0DDBBD884195B9D928548D2849734E5F9DDFB592426CBF1AE92 -72AF52F5826836B74EDC379A7D392D80BAF90D29B5E652ED96F7F6C79F2537588B3B244CD951 -CC1BCBF7FF03D8CA7E64F7DC528E497493713405CF1C357CC9B0AB80E35A3E497388C041EF24 -86777FD8E621CB093875A4A084650144B735FB658282520BF90E76E6F7AB3DC7957B860FD2D4 -7B12988F8181EE31D79E404A306CD204236D50F91FEEB12F7B2215571AEDDD32E0B2A846BA3A -C5B28DE44383CF3DAD94AAEDE95213C80F1DF50D7AE435EC4FBABD66BE8CAD3828D5CC074C47 -53955F8510F2DDD7646A039B1382E10CEC30D089ABEBBF210FBB53ED91F0ED7A97BBECBAF7BE -CBBBDBAB965D711FB60D34703E7838C860F004DC33D798A74AA8E332368723519A376E334084 -2155777EA225B4A4B54DF852EA47F29111E6965ABBCEDB0C59B5F14F96240017B85D3B7FCBBD -43FB2250C48A0024449AF753A6F94B62D766B257DB2E9D3C82291713C52E2693BBAC64117005 -B76D69F27F1CDAC3F98F6370DEBB8502609A163D969C6842038064F955C6F90995E1898E7B12 -B7EC477A29F78BE54CB9D7CEA4BF7E93C219B5DF6C6739D03304E2CCD45F5AA81A6200D1BB15 -EAC25C766630A1485932292E7000C87E960C7D6DDBAEB643725301FE9CE7EBEE0ADEE6D79DCC -0D66460D5E69838D63B9EA12DD81D336572232EB422CFDAB189DDBC61DE9C576000FD25D182C -8AC6FC9A794C29C139B081054855F74CCE2BF549F12528D9447E516F52441035856AD906C2ED -0893BE4C3CD8B5ED8B7D9FED05A3F7F1B9F67E4BCB49BD8A345992AF992270D65626BD49F337 -8AC283E881057C5B7117CD35C2273A6F7369C96BB2B742953E261C64CDCC0560A1434F4DB691 -858601DC7BD7A82FD742C3ABB187AF4DD77B0FE45141C4A8D74B83687E16D79637B606B07CB1 -6299D7E51BC8CBBD91F1299CDDF6C4238A71C1F351AD6286FF31341044636FC0BDCCF863804F -155628A95D8EE1617C1AEECBD3F8558DDCEB41D46571C167B1FE8246E41175703E9402E4B49E -423EEA926C4D2CCDE9F050FCE108825E7527EFD24EE8D6C7FFB35072C61B0F1FD9E1D5CCB223 -C725D8689949F5D5E1A658B7FF2C6AEDAE1A28261E4AE1B0B008F49848537AD295F6C644E8A8 -D82D840C5F8148DB5A287661882F79999D0D5FB2D1433A80081E8671E4EA99EF342B7E1AB66E -8385E08CDFF034A5DDAB32093D3D99B3F2B0E20126E2DD0EFBF7E647D2C6400104F95DE0E89A -891B188BC65A83B36B91E21C53EED4E4FF1F96E2B539E6B5773705881C271033B4766F66381A -B16DF8E0C17D57133C2CF32526DA8A28A5D6D3A960293D8E221D9D5683003E4D989F432FE77B -BA1F3683B6316F4D03AB746B3E6A119B0ECE4C3DAC50A6991821161422A8249961EEA3A7EB71 -1169FF1E5C3EC79A6FC10213BB75E202702429EA76575E871E73DB30C57F1BBD9CE0C23276CF -152001B8C8E4750FF00D4126AF724919F10BA8F70F56AFCCBA63A0B36E720A11A32A694676E6 -224185C0EB28E9A8DB07514A87EB6374E7C6C9D4ACD5DF290985DDA1EC5925D9EE411493AD0B -C5B2F1991124C417818E7F17930A77D590A40360796D041B53526CA0B0D47E1FE023A43BA386 -1176A0144EC3D1D82B581D8D08C89ED697FC7C155E6D3D258D8456A1B5DD86213E3F210E5A8C -428E26B7D3C962A4FACC0F38BCA76D9DC53FF3ADE138678404688ADAEB3B3182E4A53153E122 -E9EC7C92F8D8DD00D279E76398A21F001DAB1708F1E935B9C36EA01FCF5B76651FA0E04B9E92 -84A7EFDD62488D9BF2EA1BF14FB9E770167EE37DA7A1306F07B6EFA289CA9E1DC814AA773531 -AECB858AA185DFE73BA8B5CCA39F1D1B4CE8E336059181C014FDEFFD3595EB6EFC5BF9E5F74C -11D796775243E6422532271CF2C5AF49CB239124BC6D4E0BF063449A3883572DC94F577053E9 -C34AF8D598A68456E86E6F854570A22C4F0569783C5750B95B4FB298463CF7F55A6994ECD125 -CC42AE3B113934825388AC5C641C868884D8E0252586EA3D5A4C993290AE8C062AD587F6E16E -34EAF20655BB4620D51D896AC2B9C6CA8A789F8A1E5D1022D382CE70A2ECB42DCDC2F9832912 -0AFAF6B0CFCE84F329107037F8B4F2C29EAE05E5F95A1E324B08CD4F47EA8A20E89AF2646BBB -02C6D4957A835F0DCE8496D1B688B5104AAE163A0F51C83A812819474C76FF2E9D726BC69FBA -1BCB1C87D77F53B0E5EDAB5629D0D26AE41FF8DAF17D45D9824F5D313C69F7D09C988E1366C2 -8907E5A3BCB0E6353CDD691D4A47061FCF0E7C4AAA1C465A2B690ABA601F35181B699002F94B -466F0D78C1DC5CBCC1FA3E5B3DDF0C9BFBAE618324C43D9352A35F47B88050C01786BF58D9CD -FFDD350A7E0CD0273F327272DA0C86DF1DDBFB07226C68496EAB987FF911CEE9D8290B18906C -E6C8CB1867664B6C3AC2536A304D3C62D2CBD836767FF1EB97FF16F6C8C3464C225BDE8D7332 -CC11C9E9D4418CF8EB1572DF082388779241395F8489C3AC1ABB7949F81088FCCE073318BF78 -B82A9B2E33A9E31468EFC5CE61C70C3023FFE62B3DBBFEE4167DF62A4E05D59A3F8FE61C66FA -9FE31AF96071AA0BB3172C24F7A4EDB57F388270C024D4E8FD6F8BD32551B650DCA2F0E16417 -8426AF7E6647987F0F1B85519CA8F1CF14BFFDD020C9C49468E62A7D6A49FC623936088BA8F3 -0C324C9BFE7678E661D0F3C94C1A9C8811A2819BAA8AF4C844CB3BF8D10F485D9108AF03CB25 -19A16246661C561AFCE3DE884DC04F83686A465DADF7ED68F363C6776F06A16F4868A55C217C -35E936256218E19615CA317372060AACB11F576B6839EB191C9BCD4342143201B3A5A8ECAA21 -BB09DDC4B4287014D4EB4C081BFA7FDC85815A486803EC0BC82F472D02D8D84EA92C557D9653 -AC97DC1744A8BC6AD3E45DC9A2C2B299D667BA3102B50A5C64566078FBB6FEC17ABDCE410024 -7382EE360085BB459D5CE5C242C17F17E9F061430FB1425AA325867A07B83B13FBC78DD3D751 -010A6F6149EB8476FC07714AF75292A16667E0EE84ADB5D8F2978F16ECCEF737A7CECBA18CB8 -E189DAD694CD034FC598A957AD120404D3C68CEC49D1DD56D5A20AEDB3FA1DCEFFB584300BE8 -9ACB2BEB4E6F213B37E8F46E3B108D71F7ED6E8F09FFAAD3045394D403CAC55091988D1E01D3 -6033434EA3F50313CDAE49AD76927D48AE866FDED975424ABEC206B67C40585160EC5D8FFC65 -8215497374C39C1DB12AB4B49C5F47DE5F82F8FDBAAD05732906E22A9A295D4D733C1A311EAB -8854E5EA6582333F04569FD380841EABA29201DEF4BEA072CBCB7A3996464C12695494D8482C -F929BF45CCA13C3DE03EE61C774D39E147BE198BB7CD8E2BB0B093F05BFFFE37367661D1CC3C -DB95AB55D4758C74001A6AA261A2550AC4D71F12C61005AE43774CD83E470D3E3CD2E24F0FA3 -9ECBCB5219758543D48D7C07DAF872CB5F089BFFAB44E96D181C47228FE147BF8986C26063DF -36E09CD6E68824E1637B7504FE9CEACA6B2726261A19180FD4E59D2B95BA98396C4B028E7BDD -F0D224E2211D4024C93A2680025317B6A12945C513071B6DBFA78E988280A2FFF5A499B6D049 -76032F0B9D8C3968ED153CDE93FCF22512577F7555539DF7EDBB95E2D25C905B90042829E257 -A3508A45B0EBDD25EF5B06DD59413F4D257996B7DF01B192B5BD261DC516284EA4DA6CB2AC5B -FCCEB28F30CA9FA22208DE29DCE7F9A79257EC609939F5484BF70E6AC3B2AE18F736E1D48A3A -FF584398C5BAB2DD04B1A7097DD790BA01089EC124B42B6A42AF331ACFA4538E9818C2C8A88B -268D3EBE788C5C0350BAB8D4D45206B3DE877492B96A16F43683784CE90352C6770D6691469C -5A07B045D23EDE33FD5C5ABE980B75D25564589209FC9AA485A42525DB0BCBC00460446F9EC8 -F60790E761155728E0EFBABD3CA57154F17042AAED67E4B8BFFE290A922B634BE5E00530EFF6 -124F7DCF7505CEBB1F36234788CB73E4B343AD74B01986DF92F536A9A5A2C9B67C2F97F67C70 -0798B7876E08B1AFB0E374E7838CF896B5F6EDA53BB728F598F0421E15C323B0214900E441AF -F52F76063F53EAD6A2FCF112DBC44688439DBDD15B1607D70AD5C7D6C29ED43FCE31E908FA01 -296006B995700CE0F4B06484856E17ACAE4F57938B1A57AAA44115E3D3C477F00156DEDD714B -1F7FC913B79FD6FF553A29B7504A3029F73CC9A7912D7BC346C6C64AB73A33FC4EDEAAD832E8 -26E27063FBEF6078423A6B2F5391E3ECCE56EC7CF4AFCD9A4D43C3A7227B90AB14199CBAD110 -500DBAF62A016630B249F55DD7A563CBF83D335DAD9C45BA8AA5483CFC8860C431619EFF5D89 -82D3A69AAD79E514D9E406DB0C68E0CCB9433545872E344051748B1033236FFB07105AE5BEC1 -2528FE0DBD6FEF89BE9F3B99E953280A6273DAC879CE95A3F5A4F46C3754F832176BADFFDF50 -A189EEC0332E1CC3CF87F03403BC58FF00FB9CB23E9FE7CD2E896D9F9DBDB0A5CF78A2D948F5 -92B17BE8FF43485FE1B5E2ABC88CCAA97129B23324E6B3C7CF0EC692E49A02D4B4B7E8797E8F -8297661592787DEBF5A0698001001D99E071986935CB4C20A6B1E2BF8359BA9F3C099877263F -4DD3E82840682AD641DEF2AC626F06B9D5F1FD1AD6C26DD26AFC83127911CAC1DD6F93E2CA57 -2D73946C90088A9D2E5431C06D2C1CEE8CFD8E2CC3310FEEF15583D71C66C1ACFB91C21A0944 -69CB474D1B2C1A78927F7DBFAE5140F28BBE006227B4337268E5A9EC2B2857AC7B1751C4C1F2 -7EC3AC3D289AC92B7ED5822F0A3BA7D90FF6C8DB70B896CB31C9AC03376EF75182D6673A733E -2FF57ADA889FD30FF84CE2F42817FCB98804F70C57CBC5522D4FE37CA1229401BF634D8FFFBE -0D0921FFF3F066AE4D2FBE874E6C4244EDB50D0DCC0C40ECCB1F203F74EACC3348C237C22402 -36A3CF8F8C6478A7630D8369650B3051816D4519ED00AA7347E630CA27270EA815DE07C8C6C8 -F34A82390A7B77CA16400095E517ABEAA77A9EAD684403DEE66F983BDCCFA5DEBD9A83505D61 -AEA65E4BECF0824B0D2BFF9F0550BF186E08C17E9984EC61BCF39724E5A7F3E2E315B4689A8D -FBC56459627388027A0B6CE7CB6A7D161AC0515E829E990C8631F3CE1DE2D453580543D4334A -53BD2858D16A058A6554E5D489C8BAF89CC5D976ADFE0ED57DC24CEC1BD7E5B1726540C0F614 -E59B395D1D9896AC6B11B40F4A403BE7C928A47F2B43F345D7CB0F413F2529E471E0393DF485 -1CDA7637D4296F252634B0B8BFF1D9B1EFAC1F29FF098A138C30EA764FDB45C98B477CD9F718 -ABE6A8A24888848BE4B44937322224DB9C88ABEA562344C99E05E9EBF856C46BE732ED599E25 -2D4E77109106AEBD6226F295CADFF1475D4F9AE040220D433AD74810D2EED75A7B32584D10E7 -3BB9E95CB2BDF2E3D85D3325A55EC47BE6FC6564895B2EDE95577572B0804647391DF5C4BFE8 -E38711C83256EB4EF6BAB5852B8BB03BEB0CAEA0D17FFD370FCBF53C18F7D9EDB546365FFF59 -39D2D1DA3F7616106AE7A2117932DD42989B24E668AA21EDE0C202711B390D5023C8B1F95691 -462F71D27137B7D63FADB8588B73899336CFBB372EB2EE6CCD3C28165A9563A3B3009F375CDF -9E3AB755D7BCAADB825551B88C2650776841816E6B7F19CF7BE73BBA6C71F4E0D6F26684660D -8E1110B9F304DBCC5BC75C2A97F885C0E871D8266D33E4FFB820228B2EA41DCB93B7052FF604 -FAA9A579B18DA1969E4F7B17BAC214603CA759F74481A9B9187DF2BD6F9FB2A083AAD7A163F7 -00FC012216BB1C57FEE490FED85E129D800C8C191534E7443F2EAE0704101471B249EB314169 -8192EDAEA80873166CE0166E84222A805E0A74A5356FFE5CE39401DA3623CF12BAFE94024439 -FE6FDBB7A3E8B6A44BD51439EC6C6C9B862E8B1147CD575B4086DE44054FFD3B1CD3F9C66D91 -BD2453991A0CCC83C2C70CB9D7EC8D813630CEF871C4F002D73DAF520896E72CB75A2C229B1C -42DB38690C89BBC3BF87A177A6D4B9BE78FA1947626ECE0F4B82FE5EC1CAFC3C4519C35A0A37 -3D32249C4BE14B2DB40EDC05049075C24B3E1A3B1958060A20EAE2D0E54E6EB9E723EA2D430D -3D8BA4872738929171F1E2C7B7687E71C1DBDF943DA36F6F13E5131E4E9D85F482C9C7F3EAAB -DCEE7EEB18A15FD5F271113FC012BACDB22E26D1F1CC2431216FE374B21F503DA895AE1A52AD -192B3CDCF97B59325304A29240A0BC81B727E58348F0DF141DC57C144A24D0912C010EA1AF7A -3727C6E0BDBBFFA05BDD95E4AACE27DE47D4B7C0C4824C1D39EB41BDEED7843BAA753268A939 -0CE20BE8DB262A894CA7E6614D10400C6FE195490EC9F1939742CA864CEE79380521865CAFEB -9E9EB0022A2EC915856B303F88B5DB46ECECA18275387D25863514A342F95CD17D3598A0685A -E4F6856BA7458AAAD3CB54DB8F6A0C0ED86B27402FB3D29D0CEB630F1D66AA202C6A2BBC9E6A -F3073F3C0030441C7F5C3240A1A721C9929C12239F59A6E315534AF2D59E39794360DE399701 -3955E35245AC812FBBC7A9A0957010C0B10C8A6C5E9D1980A7B6A5AF04C7361ADA29833D18FA -E2DFDF2225BF6AD37A4FE82F430A5888E870ABE82E1BF23A24FFA178FE974C1C5246D7610675 -25337F281DF0FA78A56F587C4C6B8E14B2FF37F15BEDD9EB892ECDA6FAE1DCF103B31AA8304C -13CB2AA361D451396BBC41818F39B7FACCC93662364CC4AB73CC52EF6FD5AF2FA58130C56225 -29F97751B1EA816359C9C40B1BDEB505BF174531B0EAE0A70CBE467374BDA4223FCD1155FA33 -10E52B775E59EB88561093B2DEC40542CDA872877AAD5D4912B5EAC5E91363C40E0E47AEFCA7 -7B5A77F2F10F08F00C4D77A9E831EF2483AEC150B080EA66C5BBCE96F849F377D3C5DBFD1CFC -5128D39D2132932B950A0EDBEBDBB00C7288A7590BEE99CB8BB2377FE3FB3A8684A3FAA41534 -F18F11926B08947D7DEA51B30660A1E5009D6886DD77789A76939A2A4C2EEB74877343D4169E -8E8B08D92EB7B72BAE00B7906E7631B822FF4480D14AFC35B210116968D1F2336020CE581DDB -C0155DE9ABFD91B10D4756B4FE01DCC780A6E279B8BADAF7E1ACEFB121FC9DB84154AEC6E780 -A83956A24C488AA7FB12B2ECB311EC582402C07A13508D972A067073D0068D792715F36D6741 -DFC21DEB75999A4B7D19A2D8DB629140DA85C3DA3840597F28AF0118B908E5EAA5F1AE9A8D09 -F82A3A23B4ACA642EBA5D39ABFF3A5C0450035BA1A239C83D4E28CF4A533B324B983AC2A4A1A -7CA87ACD0A71AB8AD0AA6FCECB639C9F748CCF4746ACEE6873117E712D0EAE7E59853896764D -D360352F80F7CB51B7374D44B0F220C99901BF0E67C884DDCD9F6A7E599455227C01CFB6B170 -A1B4A27EE9C02307B1F4214B52902E9A9771A9FB4AE043B9A0F6DE7BC17458DF1D43FCCE5105 -E9F83433A55D8C8C4F8C1461EF3374C3E167AF1850B7919EA1DA5D2AB55A230E78E5ABB61F7D -9767E2A7A6E8340DD07ACCAF1A8F05AFE10EBE5D5325F69B9C55557F0BD80CDB377CDA85E122 -468BFA8E08B494468CD44BDACE20CC2804C687A574C04C50BEEA3F8A30D7ECB2738A8F847D3E -07F23F94DC211CB2CB943DC045C8AAF31ABB68C0254F1D7452ACB8D6A926332183582C7AF8BD -142D905AF4471B115B3FA739998207ADC8350F69C8E43F365957442B642E811CE9D244125189 -83678C9E41FAD80D1E5205841731BD7101E2CF1C990C98F50C79AA7F518CE5A47987C40544D1 -764B3293CC5703652778AF80A12E0DD3AFB1337E9937E04ED716236F63EBFC3F00A55D69E077 -35CD16D3AEE7B9A766A0B84FC598545BDFB9E5287E808FA61A8B710C29D154DBF69E8864C6B6 -CAAF3AE64EA17E8B773836E3085B890BA40F5BC2D77A2E45389BBA42BD268CC1BFD7397ABFA8 -BA434E28D3957AD939D0AD9115017B304463A751BFAD63371D56ECBF0FCC429B4CDE7AFAC0ED -E0DCF4D825DF59542F882254D4FDE8B4FA89462E9B3D609287923823DBA60320BAF15F2E3697 -18205E67C343A63FCABA2FAFA2D800065F6E156C4A311A0C52ED0041C47E3DD31EED949BA919 -5D5121B7333D7BD7C2258CA93F5110B2759094379894D204A8A842AAD011DE9778ED0012DCC7 -545F54BA72559D168CC75C686535306F4558AA2420048F67CC33A15A24A86D94CE3F2D7674EA -499865A3D470DDAFE45B21A1AB42D9F4FBED96AE996E53764F067F010B3B969874BBA867ABFB -821FFC22E824B53D2C19398E9E8C9D1F332944F47894F591F12666A8ED99A2D11E3A3468D85F -823D8CF7E467D03B9E5FAF112D15D0A90024CF400CB7F764F2794D41CA22402B46C62FDCF720 -82398AD677D5E9C3B8ACD109BDEFE65C9BFB8FA172D28E2B14756BD4842072F1BE2031DD34F5 -C5E699FD87196B05C4A63D09CCADA3EFAA7F7BBD1782E65D015DCA6DE19257CC12202C92246A -FCC8C980342C76F91F939E67E9B90718E164AC2BFAA595F45494B75528723ADC0CBE89DCAE1E -6D1FD352221EC1CF6A6BE3BDF11205B3573218DB61F8FEA01BC77991544738C9295BCACA058C -DC9120009DDF70520C5DCCE98DC2940F23EF1957C838B7B0F7BE3437FF21F9EB0F7A8B140847 -EE5C1EE7778E1EC77A60F5B0AB3269EFD7306AB0F23E0F000E09FC2D41E6ECC064527C1CDD83 -A6FEA566E47B996AA70E5D44C2C98983C5848F72DB6A6FB6A85D3C398A1B8626A9F790D4AC39 -531D31EBB6423AE8392C338D03694CFDDADFCE5CF570D1C2852A23249CBBA22410D949F15DB6 -61146830CD25DB1EE0E4BBFE65CB4868B1BD3AC5170FEC25D64B27CA502D0A1782DEDE3893DF -52BFE8E65DE81F8B5D0B7ECEC922AD6CC92169C9318B68F0393E336765265533FD904AEC8703 -1C8AA90E29F8F26941D417C3D0EB03DE3E4BD74C1CA889A8CFD3D9E824AB29868BC365A6F03D -50E50616197D4D3B5C1E7E194B926263DB5DDE22107372FF58F68BDBF5B1358BBB3DEEA99CD5 -0D54447C5EEB9D756AF983A32AF90059A913D43498BC65FEF4174EF5FED63D28A1C18BDFAB95 -67C73A0485CB557893508A4040E1DA6DEB238A87FDC4E4926BACB535B2F2FA4DD68B701774A7 -583832E4AD89B01FDC5F46036ECC75BAC079D06A104C2AC8671E0BCEE877DEC0C647DB6F2D3E -147902D6720E8A979B29BC4E93CD319601EC7CA51BF9C8C1CE7F12032297A053460AE9E1EDD3 -39522DB682E660AD30AF6B3B51EF91D58CD721563F0BDBC6FE7BC8127F142339F566E1BFF0D8 -DE911145EEF12C22FA3DEFF6A919B6C187E3CF39342C790F0F35D0BA0F6C370CC8A2A82A1DF8 -731DFB05F376A977AF454C651054DAADB79F1D5339774D00BC0E228F144616D58E5E90A08422 -A385956247B291CF779F258497EAA689D8C35A4FA5EA9A6F9AED50C8125CD14BA5307466E153 -BC256788303FD1111D72E5CE1A373AA271F2A75A155AAACB21FB5003B6C5689112C8A50FF61B -2A42101F09231BE10603CBDBCCC7AB123A0C52A9CD824E1085FBA0EDCC3A15A15DD341B449BA -ABADC3963013BB88EF442EF8971CFAD9BD03895DF78B7143981704E805DE85B56F95B678993F -A94BB7CAC4B73DBBC2DF54C4584ACEF83ABA23A54E06C898CA265B19FE14CCBDE6C72F0FFEBF -24D2A2A9FCC962D0648617EB45EEAFDA4044A03B518D00F22AB8088DF17BD14A4D9F0E6DF072 -6F475AAA22831F8B1A498481A264C6F1C060C5A83B60BE6C7E0E3678E973ABF7FF1268DEFC9C -011475644640F1B51ABEDBFA676B1B2DC2253B01B6CC10929BA22A49E72D2B897BFDE9FB12ED -4F0A77ADE8E331A891F032160D96546BEC32B497BD2168F6EB5E40C1D709B7CFCD8F6344A4E4 -F9E5FA2905FB26D9CA836993F2BCF8BBCA62EE3D7656665D7BE889B4E26B1FA16A05BBC604E4 -CE9BE3A5CAAE3233013911F45E54338CDCBF677FD757BFB2A1BB32DD935793AB206D9C8E4667 -6E95EF0EC1ECAFCF04FAF3A9750D4526907FA6C303B798258A6E052CC55D393BF73D386E9C47 -D64B082623E4A34320587F2474E9FE5571513BE925DFE88E34ECAF5F6E49003CA83457347938 -9D1D11AE7EE0A291A2C8134AE4BB0FCC61461A532B039EBEF05A385A4FA94DFDFB3F2FC1E021 -0B625FB3CADD180ACE647870773B452215D02F0DD0DF29D876797E3D117A40EDED8ABC7BEBA3 -2DAA35AF811ABB7109C6DDBC70B861ADBCE33809A13476FAB08450363BBFF6FECE09B4A3F391 -3BF5FAD9C65FC81D90CDAEB07D15A7BB6746ED6A0DC34FE67167378F6543C9C42989A6B42237 -CB6FB1B806DF38F904D6CD209149AEBE1E3810D628D0BCAA9130DE99D1CAA69BAA721FD42F00 -1F06ED4C593FD7271BEE90B56AE96C92827DE677706B4606E8752194B854A1A5EF48BAEB9282 -A1122346626D14B5FB1D10DEE6F00F51735C976EC0975B8D5B740986A9667EFE800A06BF42F1 -E6C91E3588CD5AE6CC30DF83ACE7BCB22F06C3B4C3E396FF4FABCE38DB55612FEC157E4C374E -FBFF9C42073D18983E7276101D7CAAADA1F185DCFAA1311E6632BECF07289A4611876EA0C67E -55D82DE70737413956FE36B1AE228F0439CA6035C9BE3ECC90EAD9DAB5F01A51A1115C59AC20 -F5DE0B87DC5DEAF638C0B2402D2133AE9350B365AB274D0F5342DD838CEE7D08EE6FB7578A1C -20BB0ADB96B8E2930AEE816352431F420D60D93E2CFFFF058F4E1B87E4A39DDEE0C50D44A278 -34859458A02E69CB7BBE94E565EBE72F44DD580E558C71D81173C5AB8AC1170DDDAAAF360FA6 -51E683BA731B5B86F9C42E4609849738EDC0CF259868DFB3DE2140D4816B50CF7E4E7313FBD1 -AA138CD6DB1708D0941778A1F52572EE736DC970933017FD9E461046CD60D946E1C9F8D7EB52 -3ECDA5DAC98BA26E7911F8969F9F161E42B07E794854738124D77BDC5D37584CBE5C204C0A57 -E06AC77C853BD52FD4305F583D4D2D62A98844DD4E7285D3796E453A952D30FD004C80E145D8 -9A885EE8CE2653FC85E15A649B908183D7AF95643AC980AF8B2D89D1B8C8309E67E1DC2537EF -128621472006C4804B160DDE366F2DE2755A018FB51C38BAC483AD09BFE70FD989CABCCBC5F6 -2FD558F5B73498867D8A0ADA60DA5B570F2A0D7166396E881CC5DB56CC1D6C0A742AF634DD29 -915E8A85AE10F8514D5C6326F22521E031C26EB4A93F69216FB340925A9DD17DFE9BEE2BC2E6 -6601E74610238C01A8C057D1DBF7B02CF2B7961C260C49AE68277E8600F6F7996DD8564A3879 -427B755EE29148DFF3FAB2C928795DF450CD1D75885D773B78E96FA6897210B40DBC701822B3 -C66EA8ADA94BA9A86B3DD87BD317816D80C7079A29D5C6F3899391B24AF42286CFCFC6EE5666 -583729A562B690AD39A78275ADE6AD6CD4823F1C2F9CCEB782347DFE439CE558AA27FC0AB860 -E89ECA381FE262F1DA5693D72E109DEA8987A8E13F667E148E01BD409C704217DCB03D7B00D9 -E9A1119215FB6E3CA9700B42ECC4AE383E2356F43A7CC29CC6D1A58D941CBF81033A4A4EF72E -EC6B6EBC2DF18586E68E5643390EF92C0CB699808EA5CF743822569B4247FA399829A7CD9CCF -E07E3B4D52919E83CB529AC3F11A162A48903C1690B40E58DBD62CC4EA386BB991BB6E6B1891 -54A115568D372B33591656AC851BCCB22261620CD405BA21CB31FBEA148C0EBF596FCBA79DC2 -3F3295505B1F8768FB56B3F2A8D6E481371C9B8ECEF11635DFE9B7FB67E30FA14D9B3E3FE26D -975C5FCD75FE9836FCDA7E5D09F6A454B1C92649D03CAD1E9BD43C7EF66B963EDD23C2AFB5DC -1DC02A97818BE7BF1CBC8F6FEA495D8B48A7FDB07E9DBB2965B2F3196A5A0FBF06C64660FF78 -62337BB4A2623C06D7D6F52EC1A9FA4B0DE0516218CA4074BBA7094E7DA13104633A1CA711DC -2318A8F9E9DBF4F47FD4A476EF701DAA74B2F56592D08C1719A3227FB7EFA4BCFC30845E0362 -BB060B4AD76D39E0AA6F140E08F9EC513F60F3CC500088C5436D8F450DF6E5AE43D96BF5E658 -2FAFC6EBB6C3B1D0BB383DBFFD7E449C13F11CFEB31539C22DBED96132E90EE200EFCD4E8AD5 -E9FB85FA30FCF886DB04057C553E819FD1DFE1FA7C0757ED189DABD943F91A9770D097F69473 -BDB34854C18BF4B71113F2AF1824AFE9D2BDB7D4DBDA4FC3EA6672EAA102483AA6AFF4D5A34A -61ACBFA6241F7266A3CB5566A4E9AAE8FB43D84299D33673CDF5FB04D8F63113CD89E8324F5E -DA1E8B47E7B8DA5284A6FEF8855AC274E4DA8FBBC0D2A3A82F8475048E669C913D4846D4FB13 -15B2EDCA68F8705B0B9E95C5AD2B89DBAF485A128DD85A7CCAB5840DCB40C3B6CD978F98DCB1 -E3A63D23D8DF87B6408DCDDB4D382F584A2DCBCB0C69718A32463A136B4AA3B951D4EC5E7168 -50B5F0140DDADC80EA5F0E88652AEE93CC58140F87031BC3A2CEAC525E9334EDB656B95AC3F5 -64AEC382584C64F0E7A320F33DB32EC077F326F1F25FE702B271BA8C8EAD42C6E1C03908ED79 -F3669873673B041FE02B706B42CAA2802851F56BAB49AC71DD9A22FE26AFE940E1160C0BE3FE -DA827FE39ACCED64B6B3C086BB7AB4E31BD830D8C60CB41FD0FE2E439795FEAB3A4556BBC518 -3D392CAA5231E3A41E445D8E5B4FF089C7B53B5AA6BD8D2FF8EEE81EEE1F21468B9BC61CA01F -3F81C4A92161DEA97FBAEC3488E3EDDDA0FC0EC2E651B6E75245B4ED2A91FFEDF4675A7E90F4 -3405DBC1DE71FE02DBE5E2756E65382582FD96B59278ABA4ACB11ED8F48E2F307588BC1D350F -D74177989B8A4E33ED8CE8EC9D5F5EE841083A91598B23E3CC84B5A64FD21CA5575BADF4A7B4 -B72AA1514E3ABD8D3060F1E585FE88B8B4AB0E102A3F680B43FA4E1528C87FE1699175D951EA -B4651BF8F273025C6088A956C9E3C27B85DD58A2EDB5F93EA54E34350CC0D22D498F7BEBBF1C -4004E1BEC68025BA7C5EC230C73B9B9D4FCA55EF1D41FF11B0052689D1BCB987356AC70D2F2A -34DB9E6559E2C09B5E5CD085465EBEDD0A8C2CCBB204488549E43425F148813F8C97D3AAD2C0 -7572A58DAFE4320DFB4DC81C52B48EA9E904476F761BDD8D791C5F37C5AD9DC77FC10AFE70ED -53B492CCAFCEF39550CFEC6F120D9B04E3B8000422FE3A67B7939E72803DB2C96A9B1AB16D79 -8729223BC425B47C9B12B8174E93A709D2CBC6C7E6B4CCF260E3941A5F5F1CDB4EDA1CB0E59E -5EB1CDA79A44A22930187BCFE76E0769A9FE205523DA6BEF2D9AAE96C1CB31807C8FF4DF71C0 -4EF40B1690BA908ACCCB82C88DD8CDE84A85196639474614649493FD2399E4B87B3EFAD2CED5 -443C88ED095132CA54896F61093B99592FB8330461453D91CF64AB4DED323B715F3D466A5AE6 -1A0124820206FF48B2442062BB4114F7A588A37CF9156496525AC629C63796074F425BED9AFF -D4B19DFD180E3EAD341BC5ABF4B772DCA0F2D323A923D43A91D03938A44EE3C318ECA4773B13 -893A97D77C350FAB1425401D3BD08B3AD573770B8F6F9C34AD7AB680217D864FC4AF401D1E1A -948058246B1463158512839FE3318090282153C9D5CA157C73AC246CA9D2D4EA20B7986C3FB8 -9B48DBC071CC915AC1A50413D88CF21A3F0971B4A6F2AEAA20D5A462F166AAE2A904EC4D825D -3D9012A07B05BDC806F568C2C233A32652A51EA5BA01D9B55FBD3D5AC80D824CDE3095F9DEAE -F8EB41E82550D90BE0C34935D7668F2B605084143E4E2289C191924511056F17E3A07DCBA3E4 -BE740F92AC77EAFF4DAC64084FD858A58009C649B3100922BB099E35FA38C2095DCCD44A2C91 -97C1B13257D328B9C8DE70903223CA854FCD592354A375574583CE8EC4F60B5F250A4572FD5C -884B5199E5BB4D280B3677D6807E8F3523EFBDD26E6D15E3B49B9E2AF9615E702E85C1CA3D56 -67AC1046F06AAA5CCA9C1895D5F1D27D97C94CD1931F952F5AEAFAB101E6F7E58B0201EB4D89 -9A35206ECEC3079E0EB88D5870B673DFC0EB24E63C56097E55AAD175B5ECF8F96019FB2822AE -4DD02BCC5041E5212885AF022891D583B17BA54DD2FEA9480BBE9E127A99A5935A71DA32E35F -1991BF38EF4211AB78F4CB549F1AE54ADBF19EA7D9A33BB5CDB38DFA3064BFF1D3B4E513EBA4 -6FEDF842456E2C97C4BC768C46890AE586CFDF0F57AF72476B24EBC9A8DDF5532A1F76979CA7 -01FB60711AFDCA3A0DB1D38EE73563491A562A2A78B36FB77BA2E0D31C9A5E5BA7590849C586 -78EA120ABDF65F23EBB80E2FDFF0336D0A9376BF69DBE58BD9B09EAABDBD13DF940ADD73293A -75D184E2800FE0A2EC3EFDF91D6364820B9A2C2972E77A4FDBC0BA1B8E8C15A1C48B8C6626F6 -22B3A234A85952B745E170502FD8593BF355E1F65097FFE6F77A104BD7E711A30289B1B50A14 -F66E0A3ED30B287542A4723AD3025FB2BC502D974A708CB1CA0A899C18E6F4E851C2F2A47EE0 -A51EC18186ABF3E991236F6CFB969EA2B760DAA0F62805D9434310B93E30B0DBA1B2058C93AF -67FD59DF180A2F227161BDC1FB6EC68F1781285461B3D51967D4E5A3B20AA6DE146464CA4F15 -B5F8D7C1164BFA7C3D6D2ADBA2D830B461BFF6171474A9DA3CA36807E2AC95C54520D3CD4486 -97ED68B347DC80ADA3665253F3F14DBCBA2FDA6882A7A62180060466EDCA8D2AEEF192F64ED7 -DFB4F3ED4A24E66AC720A8B6E5D3DE1D43D8B5D554FC2ECBA798DB9A1C01A79CB9116097F458 -1BD6ECA1B6077DDA8B379BD04F42FAA549C57E665918E3E5410843660B9BB9139569275CF5AB -D741D6C813C39D7D90D03D0BFBD7B3485B1EE893E92903EFFAABDE2A5BCEB0E138CB1C0C5879 -E0AFE897F06F24C5D4FDB5FE5A15C44FB392EEC375108A61FD85378ABE57FD8F06BE66EBE4FA -B89A4345FBAFC7C82CC9FE3BFDA9D980C13674837E71B92D1BA8C14DBC512A5B49CCDAC6DA11 -FBFFC86377F1F3AC6810424FD68693BA58167DDCF6D404FDD1457309027F3A0C84C789A26824 -0D0B152F3D218D49B71BC9AA438E4B858E34A01EBCB442B9E96B46CA236CEB5F1C58C4D021AB -E4A6E26F98E0EAD884AA96B6C242DEE33AA7531EEC64E5D1D76B7DF9B7AE57FA515B1143A37C -9FB766C75D73CFDC058FAF86FA544C5EBCD7B5843C0AD01BCC84A6C7923DF7B26E874504C050 -3FBBD52185215C37FFAD9C8BC988FA0229785F25FA4459FB3C6C8F52B4F4151CB99FE8581362 -13FD0A0147E89D297279CFD629C2D8F9B1ADCCCAAE0938B319C7DC4B7DAEB8FE0FB839B062F8 -9EA9D5190784CFAD7EC931B87AE0DD9C2C868F8C92CC23B098A98CA9F909A44436E5CCB2BFA4 -80D85DC9815263EE631BE20CC1717611A8560DBD4FCC19D5B68943F768CC9150D426F1C90800 -804000DB6862938D02ABE4F61C17564B624610777CAB4D05007459ED4DE059355580CB8817EB -FD49DA7BDF3840B0EA971F321B4575A0157450B8A55061845DBA84B47CB8AF8A817D656FCA67 -3C6D24ED6D868A526FC0B9543B3F94AD9EBCDECE74BB826D884920AB7CB46B02F65E251937AE -3349F5DF3E6AB9A823CBFD6F9D770084854C2B6F49F3D5A90F0924CF907B00215223C87E968C -52E5F979F034FF5259BADD5772543AA0F38AB87081C0DD8AE4BC2E479541B6C2A38E9FF5B646 -58A7860FEC813CF00816D7314A9D55ABCA7C4E659DE83811709FA3F7D09A84886CCFD65FBE14 -F009F2863113EDE5656420986151DBD485EB62EE9A04FCB08119DF3B2510EECE662ECF56A6AD -9BE3E2E3D7B5C24E2CD54B84E2328905FE6DDBF8B37EA51716D8C988E95160F6865C4523FE10 -7FBDE57C36264E4F85F3EED15B5AA506C17E5B0BC25F89AE1AF3146CF20D3AA88E1AA90C6B67 -DE9DDE7711689954155AED3CF20C92FEEB737AC6392CDA7B7093284030970C7A906B67B3DF29 -4F3866626BE4A2DC16FBE1F286364C8D43AFA8DFF69413B84C2C59FA73852D604E44D6C22D2E -6FADE5F38E6E76721C3E1861ABCBF59F513BBA90E7418CC723221D2B4D605F745E71522C8E8A -73884E015D831D27DF59D23E3F14C0D62CC7EB03E393CBCDB0600EA5102675FB49DA7D51169F -6EA9D36E10C4719456F95B415C7050848B61C00B502797A65400D13CE9AF0DB21F831C71F5E5 -521ACF84A6325C7282A6848DA9F72CE4D4C792A476A790BE70607DAED215684065F5852FEAF5 -2D82A49133A36600722DB3A8F662DB36D71CE580BCEB14C2D36F7D4D7A89891DDCB128E9C4A2 -97386A5930F1721F4249383F59981550ADF34A0B28E30E4F0C4FE68E60DF286471D7596F9335 -11CDA44C5A389632EEC6375DE727E3E4A8E70082F0C00B445B4833089E70CB4BE1799F842981 -BD133C0ABE4545D22FD6002AE579C8CC487A4E28336E3D6B7F4BAF61516F52BCD27BBBE0A861 -DAE5DDAA82AFAAF62D28D98E48C871AD31BF52A1D3C2A0315B5AC1F6F90C9A45344CA000803F -EAD9E61B5B11D5B16C6497FA5D75509A85E98C9EEC6464B2ACD7F12FC9FDCBDEAFDBA3B4465D -843A1606983D72C55A4DBEE6690572B3886AEAEAE9BC6DFFF567025DB6EDBA5B52242CCBCBCB -15C5BD2F85B2BABC18B217D58707BB5CFA69BC4F9A994003D030766880D5800653F451C7E98D -6446B00B604320CBD386F468F4E051849285BED08FF8545AAF101953A8D9651B893AEED12724 -40CB4D148752D8C39AD095E0BD9530D5F35252B4E969634D23F0961DEE72F6D442B26CE0A33F -2EB59BB9CC92CC0B12FF30ADD5CD26EFAD8564FB268AD98B68352F479DBC6AB016B6326AF1B6 -48AF626559EA859353858F393FB5CFA3437B332E904266FCB2F9604EB4500DB97491A49F22A6 -FC9044838191FC3EE3CD9F5BA711737BDECA62E298231D8328795C286A62197AD433A41D4C08 -4CD77E3BA31250FA21651F3CD4C44437B083C19AB942B16AA421EDB67721CE6E4136925205ED -EE6171459344912453F3AEEEF056E2632CE996E366788C379DF426568F1AD399CB5857550C0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 - -cleartomark -{restore}if - - -%%EndFont -TeXDict begin 39158274 55380987 1000 8000 8000 (top2.dvi) -@start /Fa 145[529 4[244 4[529 1[529 98[{}4 996.264 /CMSS9 -rf /Fb 139[589 456 600 2[633 611 8[556 622 589 14[783 -9[565 74[{}10 996.264 /CMCSC10 rf /Fc 189[775 66[{}1 -996.264 /MSAM10 rf /Fd 145[440 635 206 108[{}3 664.176 -/CMTI7 rf /Fe 207[243 48[{}1 664.176 /CMSY6 rf /Ff 149[284 -2[512 512 5[626 62[1024 11[796 21[{}6 996.264 /CMSY9 -rf /Fg 196[284 284 58[{}2 996.264 /CMMI9 rf /Fh 134[497 -472 1[470 549 340 418 431 1[523 523 575 836 261 470 1[314 -1[470 314 470 523 470 470 523 11[760 732 575 13[694 54[902 -1[575 12[{}27 996.264 /CMTI9 rf /Fi 145[513 740 2[285 -285 55[467 49[{}5 774.872 /CMTI7 rf /Fj 134[679 679 925 -1[679 654 507 667 1[617 704 679 827 568 1[470 335 1[710 -593 617 691 654 1[679 10[901 1[870 676 886 1[821 2[1095 -9[870 1[901 14[612 50[{}29 1106.96 /CMCSC10 rf /Fk 145[572 -4[264 4[572 1[572 14[615 83[{}5 1106.96 /CMSS10 rf /Fl -205[597 1[255 44[454 2[692{}4 774.872 /CMSY7 rf /Fm 190[817 -65[{}1 885.568 /CMBX8 rf /Fn 139[400 5[664 972 330 1[456 -381 20[647 21[861 553 861 307 307 30[633 5[646 5[449 -15[{}15 1106.96 /CMMI10 rf /Fo 134[537 514 736 509 594 -368 453 467 509 566 566 622 905 283 509 339 339 566 509 -339 509 566 509 509 566 8[823 2[823 792 622 807 1[751 -849 823 993 694 1[581 427 823 856 723 751 836 792 1[823 -6[339 566 1[566 566 2[566 566 566 566 1[339 396 339 2[453 -453 339 19[566 4[976 1[622 12[{}61 1106.96 /CMTI10 rf -/Fp 132[636 1[672 672 1[672 707 495 502 524 672 707 636 -707 1061 354 672 1[354 707 636 389 583 707 566 707 619 -9[1316 962 1[886 707 2[870 956 996 1208 766 2[483 996 -1[801 836 1[919 906 962 6[354 3[636 636 636 636 636 636 -2[354 4[495 495 27[707 12[{}51 1106.96 /CMBX10 rf /Fq -134[789 789 1079 789 830 581 589 610 789 830 747 830 -1245 415 789 1[415 830 747 457 682 830 664 830 726 8[1128 -1544 1[1148 1039 830 1115 1[1021 1[1168 1418 898 2[557 -1168 1175 939 981 1145 1079 9[747 747 747 747 747 747 -747 747 747 2[415 498 32[830 12[{}53 1328.35 /CMBX12 -rf /Fr 145[547 3[366 45[692 1[263 58[{}4 774.872 /CMMI7 -rf /Fs 129[581 581 581 581 581 581 581 581 581 581 581 -581 581 581 581 581 581 581 581 581 581 581 581 581 581 -581 581 581 581 581 581 581 1[581 581 581 581 1[581 581 -581 581 581 581 581 581 581 581 581 581 581 581 581 581 -581 581 581 581 581 581 581 581 2[581 581 581 581 581 -581 581 581 581 581 581 581 581 581 581 581 581 581 581 -581 581 581 581 581 581 581 581 581 581 581 33[{}90 1106.96 -/CMTT10 rf /Ft 135[492 7[922 5[307 2[553 553 5[676 1[738 -2[738 33[615 615 5[738 16[1107 8[861 8[553 13[307 861{}16 -1106.96 /CMSY10 rf /Fu 190[653 6[251 5[441 441 441 441 -441 4[680 43[{}8 774.872 /CMR7 rf /Fv 195[640 60[{}1 -664.176 /CMMI6 rf /Fw 130[523 523 523 1[523 523 523 523 -523 523 523 523 523 523 523 523 523 523 523 523 523 523 -523 523 523 523 523 523 523 523 523 1[523 523 523 523 -523 2[523 523 523 523 523 1[523 523 523 523 523 523 523 -523 523 523 523 523 523 523 523 523 523 1[523 523 523 -523 523 1[523 523 523 523 523 523 523 523 523 523 523 -523 523 523 523 523 523 523 1[523 523 523 523 523 33[{}85 -996.264 /CMTT9 rf /Fx 131[1107 553 492 584 584 799 584 -615 430 437 434 584 615 553 615 922 307 584 338 307 615 -553 338 492 615 492 615 553 307 2[307 1[307 676 830 830 -1138 830 830 799 615 815 1[753 861 830 1015 692 861 569 -400 830 869 723 753 846 799 784 830 3[861 1[307 307 553 -553 553 553 553 553 553 553 553 553 553 307 369 307 861 -553 430 430 307 3[922 553 13[553 553 4[922 615 615 646 -7[769 1[922 692{}89 1106.96 /CMR10 rf /Fy 190[595 6[234 -8[406 49[{}3 664.176 /CMR6 rf /Fz 190[683 65[{}1 664.176 -/CMBX6 rf /FA 134[540 540 740 540 569 398 404 401 540 -569 512 569 853 284 540 1[284 569 512 313 455 569 455 -569 512 8[768 1052 768 768 740 569 754 1[697 796 768 -938 640 2[370 768 803 668 697 782 740 725 768 3[796 1[284 -284 512 512 512 512 512 512 512 512 512 512 1[284 341 -284 2[398 398 27[569 12[{}64 996.264 /CMR9 rf /FB 134[622 -622 851 622 655 458 465 486 622 655 589 655 982 327 622 -1[327 655 589 360 541 655 524 655 573 8[890 1[890 905 -820 655 883 1[805 886 1[1117 708 1[609 445 921 926 741 -774 903 851 838 890 6[327 589 589 589 589 589 589 589 -589 589 589 2[393 327 2[458 458 27[655 12[{}60 996.264 -/CMBX9 rf /FC 134[946 946 1295 946 996 697 707 732 946 -996 897 996 1494 498 946 1[498 996 897 548 818 996 797 -996 872 8[1354 1[1354 1378 1247 996 1338 1[1225 1347 -1[1701 1077 1[926 668 1402 1410 1127 1177 1374 1295 1275 -1354 6[498 897 897 897 897 897 897 897 897 897 897 2[598 -498 2[697 697 27[996 12[{}60 1594.02 /CMBX12 rf /FD 134[497 -2[497 523 366 371 367 1[523 470 523 784 261 2[261 523 -470 288 418 523 418 523 470 8[705 3[680 523 6[588 6[640 -22[261 1[261 732 30[523 12[{}29 885.568 /CMR8 rf /FE -252[470 3[{}1 885.568 /CMSY8 rf /FF 134[686 1[939 686 -723 506 513 506 1[723 650 723 1084 361 686 1[361 723 -650 397 578 723 578 723 650 6[795 4[975 939 723 957 1[885 -1012 975 4[469 1[1021 849 2[939 1[975 8[650 3[650 1[650 -650 650 3[361 23[650 20[{}42 1328.35 /CMR12 rf /FG 137[927 -977 677 687 677 1[977 877 977 1477 478 2[478 2[527 777 -977 777 1[877 11[1326 1277 977 3[1377 7[1389 12[478 1[877 -5[877 1[877 1[478 46[{}26 1912.83 /CMR17 rf end -%%EndProlog -%%BeginSetup -%%Feature: *Resolution 8000dpi -TeXDict begin -%%BeginPaperSize: a4 -/setpagedevice where -{ pop << /PageSize [595 842] >> setpagedevice } -{ /a4 where { pop a4 } if } -ifelse -%%EndPaperSize - end -%%EndSetup -%%Page: 1 1 -TeXDict begin 1 0 bop Black Black Black Black 12527 4055 -a FG(Ott:)777 b(T)-150 b(o)50 b(ol)578 b(Supp)50 b(ort)579 -b(for)g(Seman)-50 b(tics)20733 6491 y(User)579 b(Guide)20825 -8926 y(v)-50 b(ersion)579 b(0.28)6624 12800 y FF(P)-36 -b(eter)433 b(Sew)-36 b(ell)13578 12318 y FE(\003)17140 -12800 y FF(F)-108 b(rancesco)433 b(Zappa)g(Nardelli)31579 -12318 y FD(+)35402 12800 y FF(Scott)g(Ow)-36 b(ens)42960 -12318 y FE(\003)15377 15925 y FF(with)434 b(Gilles)g(P)-36 -b(eskine)26257 15443 y FE(\003)26783 15925 y FF(,)434 -b(T)-108 b(om)434 b(Ridge)33846 15443 y FE(\003)34372 -15925 y FF(,)15517 17475 y(Susmit)f(Sark)-72 b(ar)23509 -16993 y FE(\003)24035 17475 y FF(,)433 b(and)g(Rok)i(Strni)-69 -b(\024)-582 b(sa)34067 16993 y FE(\003)14000 20117 y(\003)14526 -20599 y FF(Univ)-36 b(ersit)g(y)434 b(of)g(Cam)-36 b(bridge)31477 -20117 y FD(+)32265 20599 y FF(INRIA)21027 23868 y(April)433 -b(24,)i(2018)0 28186 y FC(Con)-50 b(ten)g(ts)0 30427 -y FB(1)947 b(In)-33 b(tro)33 b(duction)41489 b(4)0 32669 -y(2)947 b(Getting)395 b(started)f(with)g(Ott)g(\(the)g(README\))26420 -b(5)1536 33886 y FA(2.1)1047 b(Rep)28 b(ository)342 b(and)f(P)-28 -b(ac)g(k)-57 b(age)736 b(.)513 b(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.) -h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g -(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p -Black 2071 w(5)p Black 1536 35104 a(2.2)1047 b(Directory)342 -b(con)-28 b(ten)g(ts)833 b(.)513 b(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f -(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.) -f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p -Black 2071 w(5)p Black 1536 36322 a(2.3)1047 b(T)-85 -b(o)340 b(build)547 b(.)512 b(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f -(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.) -f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h -(.)f(.)h(.)f(.)p Black 2071 w(5)p Black 3891 37539 a(2.3.1)1173 -b(With)342 b(OP)-85 b(AM)868 b(.)512 b(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f -(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.) -f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p -Black 2071 w(5)p Black 3891 38757 a(2.3.2)1173 b(Without)342 -b(OP)-85 b(AM)981 b(.)513 b(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f -(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.) -f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p Black 2071 -w(5)p Black 1536 39975 a(2.4)1047 b(T)-85 b(o)340 b(run)486 -b(.)513 b(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h -(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.) -h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p -Black 2071 w(6)p Black 1536 41192 a(2.5)1047 b(Man)-28 -b(ual)973 b(.)512 b(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g -(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.) -g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f -(.)p Black 2071 w(6)p Black 1536 42410 a(2.6)1047 b(Editor)341 -b(Plugins)993 b(.)513 b(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h -(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.) -h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p -Black 2071 w(6)p Black 3891 43628 a(2.6.1)1173 b(Emacs)341 -b(mo)28 b(de)948 b(.)512 b(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g -(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.) -g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p -Black 2071 w(6)p Black 3891 44845 a(2.6.2)1173 b(Visual)341 -b(Studio)h(Co)28 b(de)307 b(.)512 b(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h -(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.) -h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p Black -2071 w(6)p Black 1536 46063 a(2.7)1047 b(Mailing)343 -b(lists)422 b(.)512 b(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h -(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.) -h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p -Black 2071 w(7)p Black 1536 47281 a(2.8)1047 b(W)-85 -b(eb)341 b(page)h(with)f(examples)370 b(.)513 b(.)f(.)h(.)f(.)g(.)h(.)f -(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.) -f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p -Black 2071 w(7)p Black 1536 48498 a(2.9)1047 b(Cop)-28 -b(yrigh)g(t)340 b(information)684 b(.)512 b(.)h(.)f(.)h(.)f(.)g(.)h(.)f -(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.) -f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p -Black 2071 w(7)p Black 0 50740 a FB(3)947 b(A)392 b(minimal)k(Ott)d -(source)h(\014le:)524 b(the)394 b(un)-33 b(t)g(yp)33 -b(ed)393 b(CBV)g(lam)-33 b(b)33 b(da)394 b(calculus)16081 -b(7)1536 51958 y FA(3.1)1047 b(Index)341 b(v)-57 b(ariables)766 -b(.)513 b(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h -(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.) -h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p Black -1559 w(10)p Black 0 54199 a FB(4)947 b(Generating)395 -b(L)7966 53971 y Fz(A)8472 54199 y FB(T)9095 54421 y(E)9722 -54199 y(X)38319 b(10)1536 55417 y FA(4.1)1047 b(Sp)28 -b(ecifying)343 b(L)9083 55190 y Fy(A)9525 55417 y FA(T)10094 -55631 y(E)10662 55417 y(X)f(for)e(pro)28 b(ductions)761 -b(.)513 b(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h -(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.) -h(.)f(.)p Black 1559 w(10)p Black 1536 56634 a(4.2)1047 -b(Sp)28 b(ecifying)343 b(L)9083 56408 y Fy(A)9525 56634 -y FA(T)10094 56849 y(E)10662 56634 y(X)f(for)e(grammar)h(rules)330 -b(.)512 b(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f -(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.) -f(.)p Black 1559 w(12)p Black 1536 57852 a(4.3)1047 b(Using)341 -b(the)h(L)8804 57625 y Fy(A)9246 57852 y FA(T)9815 58067 -y(E)10384 57852 y(X)f(co)28 b(de)283 b(.)512 b(.)g(.)h(.)f(.)h(.)f(.)g -(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.) -g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f -(.)p Black 1559 w(13)p Black 0 60094 a FB(5)947 b(Generating)395 -b(pro)33 b(of)394 b(assistan)-33 b(t)395 b(de\014nitions)28015 -b(13)1536 61311 y FA(5.1)1047 b(Pro)28 b(of)341 b(assistan)-28 -b(t)341 b(co)28 b(de)342 b(for)f(grammar)f(rules)441 -b(.)512 b(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h -(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p -Black 1559 w(15)p Black 1536 62529 a(5.2)1047 b(Pro)28 -b(of)341 b(assistan)-28 b(t)341 b(co)28 b(de)342 b(for)f(inductiv)-28 -b(e)342 b(de\014nitions)277 b(.)512 b(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f -(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.) -f(.)h(.)f(.)p Black 1559 w(19)p Black 1536 63747 a(5.3)1047 -b(Represen)-28 b(tation)342 b(of)f(binding)722 b(.)512 -b(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h -(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.) -h(.)f(.)h(.)f(.)p Black 1559 w(20)p Black 1536 64964 -a(5.4)1047 b(Help)28 b(er)342 b(functions)f(for)g(free)h(v)-57 -b(ariable)342 b(and)f(substitution)h(functions)569 b(.)513 -b(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f -(.)h(.)f(.)p Black 1559 w(20)p Black 1536 66182 a(5.5)1047 -b(Correctness)341 b(of)g(the)h(generated)g(pro)28 b(of)340 -b(assistan)-28 b(t)342 b(co)28 b(de)620 b(.)512 b(.)h(.)f(.)g(.)h(.)f -(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.) -f(.)h(.)f(.)p Black 1559 w(21)p Black 1536 67400 a(5.6)1047 -b(Using)341 b(the)h(generated)g(pro)28 b(of)341 b(assistan)-28 -b(t)341 b(co)28 b(de)461 b(.)512 b(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h -(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.) -h(.)f(.)h(.)f(.)p Black 1559 w(21)p Black 3891 68617 -a(5.6.1)1173 b(Co)28 b(q)825 b(.)512 b(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f -(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.) -f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h -(.)f(.)h(.)f(.)p Black 1559 w(21)p Black 3891 69835 a(5.6.2)1173 -b(HOL)441 b(.)512 b(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f -(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.) -f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p -Black 1559 w(21)p Black 3891 71053 a(5.6.3)1173 b(Isab)28 -b(elle)876 b(.)513 b(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.) -f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h -(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p -Black 1559 w(22)p Black 0 73294 a FB(6)947 b(Judgmen)-33 -b(ts)394 b(and)f(form)-33 b(ulae)34669 b(22)1536 74512 -y FA(6.1)1047 b(Naming)342 b(of)f(premises)h(for)e(the)i(Co)28 -b(q)342 b(bac)-28 b(k)g(end)386 b(.)512 b(.)h(.)f(.)g(.)h(.)f(.)h(.)f -(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.) -f(.)g(.)h(.)f(.)h(.)f(.)p Black 1559 w(23)p Black Black -24778 77841 a Fx(1)p Black eop end -%%Page: 2 2 -TeXDict begin 2 1 bop Black Black 1567 -594 a FA(6.2)1047 -b(In-line)343 b(em)-28 b(b)28 b(edded)342 b(pro)-28 b(v)g(er)340 -b(co)28 b(de)342 b(in)g(premises)867 b(.)512 b(.)h(.)f(.)g(.)h(.)f(.)h -(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.) -h(.)f(.)g(.)h(.)f(.)h(.)p Black 1559 w(23)p Black 1567 -624 a(6.3)1047 b(User)341 b(syn)-28 b(tax)618 b(.)513 -b(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f -(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.) -f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)p Black -1559 w(23)p Black 31 2865 a FB(7)947 b(Concrete)395 b(terms)f(and)f -(OCaml)h(generation)27327 b(23)31 5107 y(8)947 b(Filtering:)527 -b(Using)394 b(Ott)g(syn)-33 b(tax)394 b(within)g(L)20110 -4879 y Fz(A)20616 5107 y FB(T)21239 5328 y(E)21866 5107 -y(X,)f(Co)33 b(q,)395 b(Isab)33 b(elle,)393 b(HOL,)g(or)h(OCaml)9720 -b(24)1567 6325 y FA(8.1)1047 b(Filtering)343 b(em)-28 -b(b)28 b(edded)343 b(co)28 b(de)443 b(.)512 b(.)h(.)f(.)g(.)h(.)f(.)h -(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.) -h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)p -Black 1559 w(24)p Black 1567 7542 a(8.2)1047 b(Filtering)343 -b(\014les)809 b(.)512 b(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h -(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.) -h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)p -Black 1559 w(27)p Black 31 9784 a FB(9)947 b(Binding)394 -b(sp)33 b(eci\014cations)36165 b(30)31 12025 y(10)358 -b(Generating)395 b(substitution)h(and)d(free)g(v)-65 -b(ariable)394 b(functions)20969 b(31)31 14267 y(11)358 -b(Lo)33 b(cally-nameless)396 b(represen)-33 b(tation)30958 -b(32)31 16509 y(12)358 b(List)394 b(forms)42162 b(34)1567 -17726 y FA(12.1)535 b(List)342 b(dot)f(forms)348 b(.)512 -b(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h -(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.) -h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)p Black 1559 -w(35)p Black 1567 18944 a(12.2)535 b(List)342 b(comprehension)g(forms) -793 b(.)513 b(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f -(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.) -f(.)h(.)f(.)g(.)h(.)f(.)h(.)p Black 1559 w(36)p Black -1567 20162 a(12.3)535 b(Pro)28 b(of)341 b(assistan)-28 -b(t)341 b(co)28 b(de)342 b(for)f(list)h(forms)354 b(.)512 -b(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f -(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.) -p Black 1559 w(38)p Black 3922 21379 a(12.3.1)661 b(T)-28 -b(yp)28 b(es)734 b(.)512 b(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f -(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.) -g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)p -Black 1559 w(38)p Black 3922 22597 a(12.3.2)661 b(T)-85 -b(erms)341 b(\(in)g(inductiv)-28 b(e)343 b(de\014nition)f(rules\))779 -b(.)513 b(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g -(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)p -Black 1559 w(38)p Black 3922 23815 a(12.3.3)661 b(List)342 -b(forms)f(in)g(homomorphisms)414 b(.)512 b(.)g(.)h(.)f(.)h(.)f(.)g(.)h -(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.) -h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)p Black 1559 w(40)p Black -31 26056 a FB(13)358 b(Subrules)42957 b(41)31 28298 y(14)358 -b(Con)-33 b(text)395 b(rules)40386 b(41)31 30539 y(15)358 -b(Auxiliary)395 b(Rules)39301 b(43)31 32781 y(16)358 -b(F)-98 b(unctions)42425 b(43)31 35023 y(17)358 b(P)-33 -b(arsing)395 b(Priorities)38323 b(44)31 37264 y(18)358 -b(Com)-33 b(bining)396 b(m)-33 b(ultiple)395 b(source)f(\014les)31127 -b(45)31 39506 y(19)358 b(Hom)394 b(blo)33 b(c)-33 b(ks)41328 -b(45)31 41747 y(20)358 b(Isab)33 b(elle)394 b(syn)-33 -b(tax)394 b(supp)33 b(ort)35343 b(47)31 43989 y(21)358 -b(Isab)33 b(elle)394 b(co)33 b(de)393 b(generation)i(example)30310 -b(49)31 46230 y(22)358 b(Reference:)525 b(Command-line)396 -b(usage)30723 b(50)31 48472 y(23)358 b(Reference:)525 -b(The)393 b(language)i(of)e(sym)-33 b(b)33 b(olic)395 -b(terms)25006 b(52)31 50714 y(24)358 b(Reference:)525 -b(Generation)395 b(of)f(pro)33 b(of)394 b(assistan)-33 -b(t)395 b(de\014nitions)20749 b(54)1567 51931 y FA(24.1)535 -b(Generation)343 b(of)e(t)-28 b(yp)28 b(es)275 b(.)512 -b(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h -(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.) -h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)p Black 1559 w(54)p Black -1567 53149 a(24.2)535 b(Generation)343 b(of)e(functions)957 -b(.)512 b(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f -(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.) -f(.)h(.)f(.)g(.)h(.)f(.)h(.)p Black 1559 w(55)p Black -3922 54367 a(24.2.1)661 b(Subrule)341 b(predicates)757 -b(.)513 b(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h -(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.) -h(.)f(.)g(.)h(.)f(.)h(.)p Black 1559 w(56)p Black 3922 -55584 a(24.2.2)661 b(Binding)342 b(auxiliaries)633 b(.)513 -b(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g -(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.) -g(.)h(.)f(.)h(.)p Black 1559 w(56)p Black 3922 56802 -a(24.2.3)661 b(F)-85 b(ree)342 b(v)-57 b(ariables)487 -b(.)513 b(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g -(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.) -g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)p Black 1559 w(56)p -Black 3922 58020 a(24.2.4)661 b(Substitutions)700 b(.)513 -b(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f -(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.) -f(.)h(.)f(.)g(.)h(.)f(.)h(.)p Black 1559 w(56)p Black -1567 59237 a(24.3)535 b(Generation)343 b(of)e(relations)415 -b(.)512 b(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h -(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.) -h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)p Black 1559 w(56)p Black -31 61479 a FB(25)358 b(Reference:)525 b(Summary)395 b(of)e -(homomorphisms)26359 b(57)31 63720 y(26)358 b(Reference:)525 -b(The)393 b(Ott)h(source)f(grammar)28543 b(59)31 65962 -y(27)358 b(Reference:)525 b(Examples)36533 b(59)31 70120 -y FC(List)600 b(of)d(Figures)1567 72324 y FA(1)1843 b(Source:)456 -b Fw(test10.0.ott)724 b FA(.)512 b(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g -(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.) -g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)p -Black 2071 w(8)p Black 1567 73542 a(2)1843 b(Source:)456 -b Fw(test10.2.ott)724 b FA(.)512 b(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g -(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.) -g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)p -Black 1559 w(11)p Black Black 24810 77841 a Fx(2)p Black -eop end -%%Page: 3 3 -TeXDict begin 3 2 bop Black Black 1536 -594 a FA(3)1843 -b(Generated)342 b(L)9121 -821 y Fy(A)9563 -594 y FA(T)10132 --379 y(E)10701 -594 y(X:)455 b Fw(test10.2.tex)885 b -FA(.)513 b(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h -(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.) -h(.)f(.)p Black 1559 w(12)p Black 1536 624 a(4)1843 b(Source:)455 -b Fw(test10.4.ott)724 b FA(.)512 b(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f -(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.) -f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p -Black 1559 w(14)p Black 1536 1841 a(5)1843 b(Generated)342 -b(Co)28 b(q:)p Fw(test10.v)1046 b FA(.)512 b(.)h(.)f(.)g(.)h(.)f(.)h(.) -f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h -(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p -Black 1559 w(16)p Black 1536 3059 a(6)1843 b(Generated)342 -b(Isab)28 b(elle:)p Fw(test10.thy)848 b FA(.)512 b(.)h(.)f(.)h(.)f(.)g -(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.) -g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p -Black 1559 w(17)p Black 1536 4277 a(7)1843 b(Generated)342 -b(HOL:)p Fw(test10Script.sml)460 b FA(.)512 b(.)h(.)f(.)g(.)h(.)f(.)g -(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.) -h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p Black 1559 -w(18)p Black 1536 5494 a(8)1843 b(Source:)455 b Fw(test10.7.ott)724 -b FA(.)512 b(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.) -f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f -(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p Black 1559 w(25)p -Black 1536 6712 a(9)1843 b(Generated)342 b(OCaml)g(co)28 -b(de:)457 b Fw(test10.ml)322 b FA(.)512 b(.)h(.)f(.)g(.)h(.)f(.)g(.)h -(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.) -f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p Black 1559 w(26)p -Black 1536 7930 a(10)1331 b(F)4559 8041 y Fv(<)p Fy(:)5829 -7930 y FA(Extracts:)456 b(L)10645 7703 y Fy(A)11087 7930 -y FA(T)11656 8144 y(E)12224 7930 y(X)341 b(source)g(\014le)h(to)g(b)28 -b(e)342 b(\014ltered)g(\()p Fw(test7tt.mng)p FA(\))527 -b(.)513 b(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g -(.)h(.)f(.)h(.)f(.)p Black 1559 w(28)p Black 1536 9147 -a(11)1331 b(F)4559 9258 y Fv(<)p Fy(:)5829 9147 y FA(Extracts:)456 -b(the)341 b(\014ltered)i(output)e(\()p Fw(test7tt.tex)p -FA(\))1021 b(.)512 b(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.) -g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p -Black 1559 w(29)p Black 1536 10365 a(12)1331 b(Mini-Ott)343 -b(in)f(Ott:)456 b(the)342 b(binding)g(sp)28 b(eci\014cation)343 -b(metalanguage)511 b(.)i(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.) -h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p Black 1559 -w(31)p Black 1536 11583 a(13)1331 b(A)341 b(sample)h(OCaml)g(seman)-28 -b(tic)342 b(rule,)g(in)g(L)19991 11356 y Fy(A)20433 11583 -y FA(T)21002 11797 y(E)21570 11583 y(X)f(and)g(Ott)h(source)f(forms)684 -b(.)512 b(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f -(.)h(.)f(.)p Black 1559 w(34)p Black 1536 12800 a(14)1331 -b(An)341 b(Ott)h(source)f(\014le)h(for)f(basic)g(arithmetic)i(using)e -(the)h(t)-28 b(ypical)342 b(parsing)f(priorities)929 -b(.)513 b(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p -Black 1559 w(46)p Black 1536 14018 a(15)1331 b(An)341 -b Fw(ott)g FA(source)g(\014le)h(for)f(the)h Fw(let)f -FA(fragmen)-28 b(t)341 b(of)g(T)-85 b(APL)778 b(.)512 -b(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f -(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)p Black 1559 w(47)p -Black 1536 15236 a(16)1331 b(Hom)341 b(Sections:)457 -b Fw(test10)p 13953 15236 314 45 v 376 w(homs.ott)919 -b FA(.)513 b(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.) -h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f -(.)h(.)f(.)p Black 1559 w(48)p Black 1536 16453 a(17)1331 -b(Mini-Ott)343 b(in)f(Ott:)456 b(sym)-28 b(b)28 b(olic)343 -b(terms)845 b(.)513 b(.)f(.)h(.)f(.)g(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g -(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.)h(.)f(.)g(.)h(.)f(.) -g(.)h(.)f(.)h(.)f(.)p Black 1559 w(52)p Black Black 24778 -77841 a Fx(3)p Black eop end -%%Page: 4 4 -TeXDict begin 4 3 bop Black Black 31 -594 a FC(1)1793 -b(In)-50 b(tro)50 b(duction)31 2495 y Fx(Ott)363 b(is)f(a)h(to)31 -b(ol)363 b(for)g(writing)h(de\014nitions)f(of)g(programming)h -(languages)g(and)e(calculi.)492 b(It)363 b(tak)-31 b(es)363 -b(as)f(input)g(a)h(de\014nition)31 3823 y(of)j(a)f(language)h(syn)-31 -b(tax)366 b(and)f(seman)-31 b(tics,)367 b(in)e(a)g(concise)g(and)g -(readable)g(ASCI)31 b(I)364 b(notation)k(that)e(is)e(close)h(to)g(what) -h(one)31 5152 y(w)-31 b(ould)371 b(write)f(in)g(informal)h -(mathematics.)495 b(It)369 b(generates)h(output:)p Black -1384 7144 a(1.)p Black 555 w(a)f(L)4014 6917 y Fu(A)4502 -7144 y Fx(T)5116 7382 y(E)5732 7144 y(X)g(source)g(\014le)g(that)i -(de\014nes)d(commands)j(to)f(build)g(a)f(t)-31 b(yp)31 -b(eset)370 b(v)-31 b(ersion)369 b(of)h(the)f(de\014nition;)p -Black 1384 9137 a(2.)p Black 555 w(a)g(Co)31 b(q)370 -b(v)-31 b(ersion)370 b(of)g(the)f(de\014nition;)p Black -1384 11129 a(3.)p Black 555 w(a)g(HOL)g(v)-31 b(ersion)370 -b(of)g(the)f(de\014nition;)p Black 1384 13122 a(4.)p -Black 555 w(an)g(Isab)31 b(elle/HOL)370 b(v)-31 b(ersion)370 -b(of)g(the)f(de\014nition;)p Black 1384 15114 a(5.)p -Black 555 w(a)g(Lem)h(v)-31 b(ersion)369 b(of)h(the)f(de\014nition;)p -Black 1384 17107 a(6.)p Black 555 w(an)g(OCaml)i(v)-31 -b(ersion)370 b(of)g(the)f(syn)-31 b(tax)370 b(of)g(the)f(de\014nition.) -31 19099 y(Additionally)-92 b(,)412 b(it)400 b(can)g(b)31 -b(e)399 b(run)g(as)h(a)f(\014lter,)408 b(taking)402 b(a)e(L)23503 -18872 y Fu(A)23991 19099 y Fx(T)24605 19338 y(E)25221 -19099 y(X/Co)31 b(q/Isab)g(elle/HOL/Lem/OCaml)405 b(source)399 -b(\014le)h(with)31 20428 y(em)-31 b(b)31 b(edded)341 -b(\(sym)-31 b(b)31 b(olic\))344 b(terms)c(of)i(the)f(de\014ned)f -(language,)349 b(parsing)342 b(them)f(and)g(replacing)h(them)g(b)-31 -b(y)341 b(t)-31 b(yp)31 b(eset)341 b(terms.)31 22420 -y(This)370 b(do)31 b(cumen)-31 b(t)370 b(is)f(a)h(user)e(guide)i(for)f -(the)h(to)31 b(ol.)494 b(The)369 b(pap)31 b(ers)p Black -1692 24413 a Ft(\017)p Black 554 w Fx(Ott:)486 b(E\013ectiv)-31 -b(e)357 b(T)-92 b(o)31 b(ol)356 b(Supp)31 b(ort)355 b(for)h(the)f(W)-92 -b(orking)356 b(Seman)-31 b(ticist.)490 b(P)-31 b(eter)356 -b(Sew)-31 b(ell,)360 b(F)-92 b(rancesco)354 b(Zappa)j(Nardelli,)2799 -25741 y(Scott)443 b(Ow)-31 b(ens,)460 b(Gilles)442 b(P)-31 -b(eskine,)461 b(Thomas)443 b(Ridge,)460 b(Susmit)443 -b(Sark)-61 b(ar,)460 b(Rok)442 b(Strni)-58 b(\024)-495 -b(sa.)710 b(Journal)442 b(of)g(F)-92 b(unctional)2799 -27069 y(Programming)372 b(20\(1\):71-122,)i(2010)d([SZNO)22283 -26668 y Fu(+)23019 27069 y Fx(10)q(].)p Black 1692 29062 -a Ft(\017)p Black 554 w Fx(Ott:)486 b(E\013ectiv)-31 -b(e)357 b(T)-92 b(o)31 b(ol)356 b(Supp)31 b(ort)355 b(for)h(the)f(W)-92 -b(orking)356 b(Seman)-31 b(ticist.)490 b(P)-31 b(eter)356 -b(Sew)-31 b(ell,)360 b(F)-92 b(rancesco)354 b(Zappa)j(Nardelli,)2799 -30390 y(Scott)370 b(Ow)-31 b(ens,)370 b(Gilles)g(P)-31 -b(eskine,)370 b(Thomas)h(Ridge,)f(Susmit)g(Sark)-61 b(ar,)369 -b(Rok)h(Strni)-58 b(\024)-495 b(sa.)493 b(ICFP'07)370 -b([SZNO)46407 29989 y Fu(+)47143 30390 y Fx(07)q(].)31 -32383 y(giv)-31 b(e)409 b(an)e(o)-31 b(v)g(erview)408 -b(of)g(the)f(pro)61 b(ject,)417 b(including)409 b(discussion)e(of)g -(motiv)-61 b(ation,)420 b(design)407 b(decisions,)418 -b(and)407 b(related)g(w)-31 b(ork,)31 33711 y(and)370 -b(one)f(should)h(lo)31 b(ok)370 b(at)g(that)h(together)f(with)h(this)e -(man)-31 b(ual.)495 b(The)369 b(pro)61 b(ject)370 b(w)-31 -b(eb)370 b(page)p Black Black 4459 35704 a Fs -(http://www.cl.cam.ac.uk/users/pes20/ott/)31 37696 y -Fx(links)318 b(to)f(the)h(gith)-31 b(ub)318 b(source)e(rep)31 -b(ository)-92 b(,)328 b(with)318 b(a)f(BSD-st)-31 b(yle)317 -b(licence.)476 b(It)317 b(also)h(has)f(a)g(range)g(of)g(examples,)329 -b(including)31 39025 y(un)-31 b(t)g(yp)31 b(ed)435 b(and)g(simply)g(t) --31 b(yp)31 b(ed)435 b(CBV)g(lam)-31 b(b)31 b(da)436 -b(calculus,)452 b(ML)433 b(p)31 b(olymorphism,)453 b(v)-61 -b(arious)435 b(\014rst-order)e(systems)h(from)31 40353 -y(Pierce's)406 b(T)-92 b(APL)406 b([Pie02)r(],)415 b(the)406 -b(POPLmark)g(F)20159 40519 y Fr(<)p Fu(:)21561 40353 -y Fx(language)i([ABF)28854 39951 y Fu(+)29589 40353 y -Fx(05)q(],)415 b(a)406 b(mo)31 b(dule)406 b(system)f(b)-31 -b(y)406 b(Lero)-31 b(y)405 b([Ler96)q(,)415 b Ft(x)p -Fx(4])31 41681 y(\(extended)401 b(with)f(a)g(term)g(language)h(and)f -(an)f(op)31 b(erational)402 b(seman)-31 b(tics\),)409 -b(the)400 b(LJ)f(Ja)-31 b(v)-61 b(a)400 b(fragmen)-31 -b(t)401 b(and)e(LJAM)g(Ja)-31 b(v)-61 b(a)31 43010 y(mo)31 -b(dule)371 b(system)e([SSP07)r(],)h(and)f(a)h(substan)-31 -b(tial)371 b(fragmen)-31 b(t)371 b(of)f(OCaml.)31 45002 -y(Our)460 b(main)h(goal)g(is)f(to)h(supp)31 b(ort)459 -b(w)-31 b(ork)461 b(on)f(large)g(programming)j(language)f -(de\014nitions,)484 b(where)459 b(the)h(scale)h(mak)-31 -b(es)31 46331 y(it)462 b(hard)f(to)h(k)-31 b(eep)461 -b(a)h(de\014nition)g(in)-31 b(ternally)464 b(consisten)-31 -b(t,)485 b(and)462 b(hard)f(to)g(k)-31 b(eep)462 b(a)f(tigh)-31 -b(t)463 b(corresp)31 b(ondence)460 b(b)31 b(et)-31 b(w)g(een)462 -b(a)31 47659 y(de\014nition)396 b(and)f(implemen)-31 -b(tations.)572 b(W)-92 b(e)393 b(also)i(wish)g(to)g(ease)f(rapid)h -(protot)-31 b(yping)397 b(w)-31 b(ork)395 b(with)g(smaller)h(calculi,) -402 b(and)31 48987 y(to)329 b(mak)-31 b(e)330 b(it)f(easier)f(to)h(exc) --31 b(hange)329 b(de\014nitions)h(and)e(de\014nition)i(fragmen)-31 -b(ts)330 b(b)31 b(et)-31 b(w)g(een)329 b(groups.)479 -b(Most)328 b(simply)-92 b(,)338 b(the)328 b(to)31 b(ol)31 -50316 y(can)425 b(b)31 b(e)424 b(used)g(to)i(aid)f(completely)i -(informal)f(L)19939 50089 y Fu(A)20427 50316 y Fx(T)21041 -50554 y(E)21657 50316 y(X)f(mathematics.)661 b(Here)424 -b(it)i(p)31 b(ermits)424 b(the)h(de\014nition,)441 b(and)425 -b(terms)31 51644 y(within)347 b(pro)31 b(ofs)344 b(and)h(exp)31 -b(osition,)352 b(to)345 b(b)31 b(e)344 b(written)i(in)f(a)g(clear,)350 -b(editable,)i(ASCI)31 b(I)344 b(notation,)353 b(without)346 -b(L)43223 51417 y Fu(A)43711 51644 y Fx(T)44325 51882 -y(E)44941 51644 y(X)f(noise.)485 b(It)31 52972 y(generates)331 -b(go)31 b(o)g(d-qualit)-31 b(y)334 b(t)-31 b(yp)31 b(eset)331 -b(output.)481 b(By)331 b(parsing)g(\(and)g(so)f(sort-c)-31 -b(hec)g(king\))333 b(this)d(input,)340 b(it)331 b(quic)-31 -b(kly)332 b(catc)-31 b(hes)331 b(a)31 54301 y(range)261 -b(of)g(simple)g(errors,)282 b(e.g.)261 b(inconsisten)-31 -b(t)263 b(use)c(of)i(judgemen)-31 b(t)262 b(forms)f(or)f(meta)-31 -b(v)-61 b(ariable)264 b(naming)e(con)-31 b(v)g(en)g(tions.)458 -b(That)31 55629 y(same)260 b(input,)283 b(extended)260 -b(with)h(some)e(additional)k(data,)283 b(can)260 b(b)31 -b(e)259 b(used)g(to)h(generate)g(formal)h(de\014nitions)g(for)f(Co)31 -b(q,)282 b(HOL,)31 56957 y(Isab)31 b(elle,)486 b(and)462 -b(Lem.)769 b(It)462 b(should)f(thereb)-31 b(y)462 b(enable)g(a)g(smo)31 -b(oth)462 b(transition)i(b)31 b(et)-31 b(w)g(een)462 -b(use)f(of)h(informal)h(and)f(formal)31 58286 y(mathematics.)812 -b(F)-92 b(urther,)499 b(the)475 b(to)31 b(ol)476 b(can)f(automatically) -k(generate)c(de\014nitions)h(of)f(functions)g(for)f(free)g(v)-61 -b(ariables,)31 59614 y(single)268 b(and)g(m)-31 b(ultiple)269 -b(substitutions,)290 b(subgrammar)267 b(c)-31 b(hec)g(ks)268 -b(\(e.g.)g(for)f(v)-61 b(alue)268 b(subgrammars\),)289 -b(and)267 b(binding)h(auxiliary)31 60942 y(functions.)639 -b(Ott)418 b(supp)31 b(orts)417 b(a)h(`fully)h(concrete')f(represen)-31 -b(tation,)432 b(su\016cien)-31 b(t)418 b(for)g(man)-31 -b(y)418 b(examples)h(but)f(not)g(dealing)31 62271 y(with)384 -b(general)f(alpha)h(equiv)-61 b(alence.)533 b(An)382 -b(exp)31 b(erimen)-31 b(tal)384 b(Co)31 b(q)384 b(bac)-31 -b(k)g(end)383 b(generates)f(de\014nitions)i(in)f(lo)31 -b(cally-nameless)31 63599 y(st)-31 b(yle)447 b(for)f(a)h(subset)e(of)i -(the)f(Ott)h(metalanguage.)726 b(The)446 b(OCaml)i(bac)-31 -b(k)g(end)447 b(generates)f(t)-31 b(yp)31 b(e)447 b(de\014nitions)g -(that)g(ma)-31 b(y)31 64927 y(b)31 b(e)406 b(useful)f(for)h(dev)-31 -b(eloping)408 b(a)d(complete)j(implemen)-31 b(tation)409 -b(of)e(the)e(language,)418 b(together)406 b(with)h(the)f(functions)h -(listed)31 66256 y(ab)31 b(o)-31 b(v)g(e.)574 b(It)396 -b(do)31 b(es)395 b(not)i(generate)f(an)-31 b(ything)398 -b(for)e(inductiv)-31 b(ely)398 b(de\014ned)d(relations)j(\(the)e(v)-61 -b(arious)396 b(pro)31 b(of-assistan)-31 b(t)398 b(co)31 -b(de)31 67584 y(extraction)418 b(facilities)h(can)d(sometimes)h(b)31 -b(e)416 b(used)f(for)h(that\).)634 b(Our)416 b(fo)31 -b(cus)415 b(here)h(is)f(on)h(the)h(problem)f(of)h(writing)g(and)31 -68912 y(editing)364 b(language)g(de\014nitions,)i(not)d(\(directly\))h -(on)e(aiding)i(mec)-31 b(hanized)363 b(pro)31 b(of)362 -b(of)h(metatheory)-92 b(.)492 b(If)362 b(one)g(is)g(in)-31 -b(v)g(olv)g(ed)31 70241 y(in)474 b(hard)f(pro)31 b(ofs)473 -b(ab)31 b(out)474 b(a)f(relativ)-31 b(ely)475 b(stable)f(small)h -(calculus)e(then)h(it)f(will)i(aid)f(only)g(a)f(small)i(part)e(of)g -(the)h(w)-31 b(ork)31 71569 y(\(and)351 b(one)g(migh)-31 -b(t)352 b(c)-31 b(ho)31 b(ose)350 b(instead)h(to)g(w)-31 -b(ork)351 b(just)f(within)i(a)e(single)h(pro)31 b(of)350 -b(assistan)-31 b(t\),)357 b(but)350 b(for)g(larger)g(languages)i(the)31 -72898 y(de\014nition)397 b(is)d(a)h(more)g(substan)-31 -b(tial)397 b(problem)e(|)g(so)f(m)-31 b(uc)g(h)395 b(so)g(that)h(only)f -(a)g(handful)h(of)f(full-scale)h(languages)h(ha)-31 b(v)g(e)31 -74226 y(b)31 b(een)369 b(giv)-31 b(en)371 b(complete)f(de\014nitions.) -494 b(W)-92 b(e)369 b(aim)h(to)g(mak)-31 b(e)371 b(this)e(more)h -(commonplace,)i(less)d(of)g(a)h(heroic)f(task.)p Black -24810 77841 a(4)p Black eop end -%%Page: 5 5 -TeXDict begin 5 4 bop Black Black 0 -505 a FC(2)1793 -b(Getting)598 b(started)i(with)e(Ott)h(\(the)g(README\))0 -2583 y Fx(A)369 b(to)31 b(ol)371 b(for)e(writing)i(de\014nitions)g(of)e -(programming)j(languages)f(and)e(calculi)0 4576 y(b)-31 -b(y)369 b(P)-31 b(eter)370 b(Sew)-31 b(ell,)371 b(F)-92 -b(rancesco)369 b(Zappa)h(Nardelli,)h(and)f(Scott)g(Ow)-31 -b(ens.)0 8339 y Fq(2.1)1495 b(Rep)42 b(ository)498 b(and)h(P)-42 -b(ac)g(k)-83 b(age)0 11046 y Fx(Ott)370 b(is)f(no)-31 -b(w)370 b(a)-31 b(v)-61 b(ailable)372 b(from)e(gith)-31 -b(ub,)371 b(and)e(as)g(an)h(opam)g(pac)-31 b(k)-61 b(age.)0 -13039 y(W)-92 b(e)368 b(no)i(longer)g(pro)-31 b(vide)370 -b(non-gith)-31 b(ub)371 b(tarballs)f(or)f(a)h(Windo)-31 -b(ws)370 b(distribution.)0 16802 y Fq(2.2)1495 b(Directory)499 -b(con)-42 b(ten)g(ts)0 19509 y Fx(ll)p Black Black 6595 -21214 a(directory)9192 b(description)p 5931 21657 38249 -45 v 6595 22587 a Fs(aux/)11209 b Fx(auxiliary)371 b(co)31 -b(de)369 b(\(y2l\))i(used)e(to)h(build)g(the)f(user)f(guide)6595 -23915 y Fs(bin/)11209 b Fx(the)369 b(Ott)h(binary)6595 -25243 y Fs(built)p 9570 25243 349 45 v 419 w(doc/)7885 -b Fx(the)369 b(user)f(guide,)i(in)g(h)-31 b(tml,)371 -b(p)31 b(df,)370 b(and)f(ps)6595 26572 y Fs(coq/)11209 -b Fx(auxiliary)371 b(\014les)e(for)g(Co)31 b(q)6595 27900 -y Fs(doc/)11209 b Fx(the)369 b(user)f(guide)i(sources)6595 -29228 y Fs(emacs/)10047 b Fx(an)369 b(Ott)h(Emacs)g(mo)31 -b(de)6595 30557 y Fs(examples/)8304 b Fx(some)369 b(larger)h(example)g -(Ott)g(\014les)6595 31885 y Fs(tex/)11209 b Fx(auxiliary)371 -b(\014les)e(for)g(LaT)-92 b(eX)6595 33213 y Fs(hol/)11209 -b Fx(auxiliary)371 b(\014les)e(for)g(HOL)6595 34542 y -Fs(menhir/)9466 b Fx(auxiliary)371 b(\014les)e(for)g(menhir)6595 -35870 y Fs(ocamlgraph-1.7.tar.gz)1332 b Fx(a)369 b(cop)-31 -b(y)370 b(of)g(the)f(o)31 b(camlgraph)371 b(library)6595 -37198 y Fs(regression/)7142 b Fx(regression-test)369 -b(mac)-31 b(hinery)6595 38527 y Fs(tests/)10047 b Fx(v)-61 -b(arious)369 b(small)h(example)h(Ott)f(\014les)6595 39855 -y Fs(src/)11209 b Fx(the)369 b(\(OCaml\))j(Ott)e(sources)6595 -41183 y Fs(Makefile)8885 b Fx(a)369 b(Mak)-31 b(e\014le)370 -b(for)f(the)h(examples)6595 42512 y Fs(LICENCE)9466 b -Fx(the)369 b(BSD-st)-31 b(yle)370 b(licence)g(terms)6595 -43840 y Fs(README.md)8304 b Fx(this)369 b(\014le)h(\(Section)g(2)g(of)g -(the)f(user)f(guide\))6595 45168 y Fs(revisionhistory.txt)2494 -b Fx(the)369 b(revision)h(history)0 48813 y Fq(2.3)1495 -b(T)-125 b(o)499 b(build)0 51521 y Fp(2.3.1)1274 b(With)424 -b(OP)-106 b(AM)0 54228 y Fx(If)365 b(y)-31 b(ou)367 b(ha)-31 -b(v)g(e)366 b(OP)-92 b(AM)366 b(installed)h(on)f(y)-31 -b(our)366 b(system,)h Fs(opam)582 b(install)g(ott)366 -b Fx(will)h(install)h(the)e(latest)h(Ott)f(v)-31 b(ersion.)492 -b(The)0 55557 y(Emacs)450 b(mo)31 b(de)450 b(will)i(b)31 -b(e)449 b(in)h Fs(`opam)581 b(config)h(var)g -(prefix`/share/emacs/site-lisp)p Fx(,)474 b(and)450 b(do)31 -b(cumen)-31 b(tation)453 b(in)0 56885 y Fs(`opam)582 -b(config)g(var)g(prefix`/doc/ott)p Fx(.)0 58877 y(T)-92 -b(o)370 b(install)h(the)e(Ott)h(auxiliary)i(\014les)d(for)g(Co)31 -b(q,)370 b(\014rst)f(activ)-61 b(ate)371 b(the)e Fs(coq-released)i -Fx(OP)-92 b(AM)369 b(rep)31 b(ository:)0 60870 y Fs(opam)582 -b(repo)f(add)h(coq-released)h(https://coq.inria.fr/opam/released)0 -62862 y Fx(and)369 b(then)h(run)e Fs(opam)582 b(install)g(coq-ott)p -Fx(.)0 66404 y Fp(2.3.2)1274 b(Without)425 b(OP)-106 -b(AM)0 69111 y Fx(Ott)370 b(dep)31 b(ends)368 b(on)i(OCaml)g(v)-31 -b(ersion)370 b(4.00.0)i(or)d(later.)493 b(It)370 b(builds)f(with)i -(\(at)f(least\))h(OCaml)f(4.02.3.)0 71104 y(The)f(command)i -Fs(make)f Fx(\()p Fs(make)582 b(world)p Fx(\))370 b(builds)g(the)f -Fs(ott)h Fx(binary)f(in)h(the)f Fs(bin/)h Fx(sub)31 b(directory)-92 -b(.)0 73096 y(This)351 b(will)i(compile)f(Ott)g(using)367 -b Fs(ocamlopt)p Fx(.)487 b(T)-92 b(o)351 b(force)g(it)h(to)g(compile)g -(with)g Fs(ocamlc)g Fx(\(whic)-31 b(h)352 b(ma)-31 b(y)352 -b(giv)-31 b(e)352 b(signi\014can)-31 b(tly)0 74425 y(slo)g(w)g(er)370 -b(execution)h(of)e(Ott\),)i(do)f Fs(make)581 b(world.byt)p -Fx(.)p Black 24778 77841 a(5)p Black eop end -%%Page: 6 6 -TeXDict begin 6 5 bop Black Black 31 -594 a Fx(T)-92 -b(o)510 b(build)h(the)e(Ott)h(auxiliary)i(\014les)d(for)h(Co)31 -b(q,)546 b(go)510 b(to)g(the)g Fs(coq/)g Fx(sub)31 b(directory)509 -b(and)h(run)e Fs(make)p Fx(.)914 b(T)-92 b(o)510 b(install)h(the)31 -735 y(resulting)371 b(\014les)e(in)g(Co)31 b(q's)370 -b Fs(user-contrib)p Fx(,)h(run)e Fs(make)582 b(install)p -Fx(.)31 4497 y Fq(2.4)1495 b(T)-125 b(o)500 b(run)31 -7205 y Fx(Ott)389 b(runs)f(as)g(a)g(command-line)j(to)31 -b(ol.)551 b(Executing)405 b Fs(bin/ott)389 b Fx(sho)-31 -b(ws)389 b(the)f(usage)g(and)h(options.)551 b(T)-92 b(o)388 -b(run)g(Ott)h(on)f(the)31 8533 y(test)370 b(\014le)g -Fs(tests/test10.ott)p Fx(,)h(generating)g(LaT)-92 b(eX)370 -b(in)f Fs(test10.tex)i Fx(and)e(Co)31 b(q)370 b(in)g -Fs(test10.v)p Fx(,)g(t)-31 b(yp)31 b(e:)31 10526 y Fs(bin/ott)583 -b(-i)e(tests/test10.ott)j(-o)d(test10.tex)i(-o)e(test10.v)31 -12518 y Fx(Isab)31 b(elle,)361 b(HOL,)c(and)h(Lem)f(can)h(b)31 -b(e)356 b(generated)i(with)h(options)f Fs(-o)582 b(test10.thy)p -Fx(,)361 b Fs(-o)582 b(test10Script.sml)p Fx(,)362 b(and)357 -b Fs(-o)31 13847 y(test10.lem)p Fx(,)371 b(resp)31 b(ectiv)-31 -b(ely)-92 b(.)31 15839 y(The)478 b(Mak)-31 b(e\014le)478 -b(has)f(v)-61 b(arious)477 b(sample)h(targets,)506 b -Fs(make)582 b(tests/test10.out)p Fx(,)506 b Fs(make)582 -b(test7)p Fx(,)505 b(etc.)817 b(T)-31 b(ypically)480 -b(they)31 17167 y(generate:)31 19160 y(ll)p Black Black -13471 20865 a(\014lename)4888 b(description)p 12807 21308 -24560 45 v 13471 22237 a Fs(out.tex)4817 b Fx(LaT)-92 -b(eX)369 b(source)g(for)g(a)h(de\014nition)13471 23566 -y Fs(out.ps)5398 b Fx(the)369 b(p)31 b(ostscript)369 -b(built)i(from)f(that)13471 24894 y Fs(out.v)5979 b Fx(Co)31 -b(q)369 b(source)13471 26222 y Fs(outScript.sml)1331 -b Fx(HOL)369 b(source)13471 27551 y Fs(out.thy)4817 b -Fx(Isab)31 b(elle)369 b(source)31 29493 y(from)h(\014les)f -Fs(test10.ott)p Fx(,)i Fs(test8.ott)p Fx(,)g(etc.,)g(in)e -Fs(tests/)p Fx(.)31 33256 y Fq(2.5)1495 b(Man)-42 b(ual)p -Black 1692 35963 a Ft(\017)p Black 554 w Fx(in)369 b(the)h(Ott)g(gith) --31 b(ub)370 b(built)p 13902 35963 333 45 v 400 w(do)31 -b(c)369 b(directory)-92 b(,)370 b(or)p Black 1692 37956 -a Ft(\017)p Black 554 w Fx(here)e(\(h)-31 b(tml\))31 -41719 y Fq(2.6)1495 b(Editor)499 b(Plugins)31 44426 y -Fp(2.6.1)1274 b(Emacs)424 b(mo)35 b(de)31 47133 y Fx(The)450 -b(\014le)g Fs(emacs/ott-mode.el)i Fx(de\014nes)d(a)g(v)-31 -b(ery)450 b(simple)g(Emacs)g(mo)31 b(de)450 b(for)g(syn)-31 -b(tax)451 b(highligh)-31 b(ting)453 b(of)d(Ott)g(source)31 -48462 y(\014les.)492 b(It)367 b(can)f(b)31 b(e)366 b(used)g(b)-31 -b(y)-92 b(,)368 b(for)f(example,)h(adding)g(the)f(follo)-31 -b(wing)370 b(to)d(y)-31 b(our)367 b Fs(.emacs)g Fx(\014le,)h(replacing) -383 b Fs(PATH)367 b Fx(b)-31 b(y)367 b(a)g(path)31 49790 -y(to)j(y)-31 b(our)370 b(Ott)g(Emacs)g(directory)-92 -b(.)p Black Black 31 51783 a Fs(\(setq)582 b(load-path)h(\(cons)f -(\(expand-file-name)h("PATH"\))g(load-path\)\))31 53111 -y(\(require)g('ott-mode\))31 55104 y Fx(F)-92 b(or)391 -b(installations)k(using)d(OP)-92 b(AM)392 b(on)g(*nix)g(systems,)398 -b(it)392 b(is)g(su\016cien)-31 b(t)392 b(to)h(use)e(the)g(follo)-31 -b(wing)396 b(co)31 b(de,)397 b(whic)-31 b(h)393 b(will)g(call)31 -56432 y Fs(opam)582 b(config)g(var)g(prefix)370 b Fx(at)g(load-time.)p -Black Black 31 58424 a Fs(\(setq)582 b(opam-share)h(\(substring)g -(\(shell-command-to-string)h("opam)e(config)g(var)g(share"\))g(0)f -(-1\)\))31 59753 y(\(add-to-list)i('load-path)g(\(concat)f(opam-share)h -("/emacs/site-lisp"\)\))31 61081 y(\(require)g('ott-mode\))31 -64623 y Fp(2.6.2)1274 b(Visual)424 b(Studio)i(Co)35 b(de)31 -67330 y Fx(There)369 b(is)h(a)f(plugin)h(for)g(VSCo)31 -b(de,)370 b(whic)-31 b(h)370 b(features)g(syn)-31 b(tax)370 -b(highligh)-31 b(ting)373 b(and)c(inline)i(error)d(rep)31 -b(orting.)p Black 24810 77841 a(6)p Black eop end -%%Page: 7 7 -TeXDict begin 7 6 bop Black Black 0 -594 a Fq(2.7)1495 -b(Mailing)499 b(lists)p Black 1660 2114 a Ft(\017)p Black -554 w Fx(cl-ott-announce)372 b(announcemen)-31 b(t)371 -b(mailing)h(list)p Black 1660 4106 a Ft(\017)p Black -554 w Fx(cl-ott-discuss)f(discussion)e(mailing)j(list)0 -7869 y Fq(2.8)1495 b(W)-125 b(eb)498 b(page)h(with)g(examples)p -Black 1660 10576 a Ft(\017)p Black 554 w Fx(here)0 14339 -y Fq(2.9)1495 b(Cop)-42 b(yrigh)g(t)500 b(information)0 -17047 y Fx(The)246 b(o)31 b(camlgraph)249 b(library)d(is)g(distributed) -h(under)f(the)g(LGPL)g(\(from)h(h)-31 b(ttp://www.lri.fr/)p -Ft(\030)p Fx(\014lliatr/ftp/o)31 b(camlgraph/\);)0 18375 -y(w)-31 b(e)315 b(include)g(a)f(snapshot)h(for)f(con)-31 -b(v)g(enience.)476 b(F)-92 b(or)313 b(its)i(authorship)g(and)f(cop)-31 -b(yrigh)g(t)316 b(information)h(see)d(the)g(\014les)g(therein.)0 -20368 y(All)370 b(other)g(\014les)f(are)g(distributed)h(under)e(the)i -(BSD-st)-31 b(yle)369 b(licence)h(in)g(LICENCE.)0 24693 -y FC(3)1793 b(A)470 b(minimal)h(Ott)f(source)h(\014le:)734 -b(the)470 b(un)-50 b(t)g(yp)50 b(ed)472 b(CBV)e(lam)-50 -b(b)50 b(da)470 b(calculus)0 27781 y Fx(Fig.)282 b(1)f(sho)-31 -b(ws)282 b(an)f(Ott)h(source)e(\014le)i(for)f(an)g(un)-31 -b(t)g(yp)31 b(ed)282 b(call-b)-31 b(y-v)-61 b(alue)283 -b(\(CBV\))g(lam)-31 b(b)31 b(da)282 b(calculus.)465 b(This)281 -b(section)h(explains)0 29110 y(the)459 b(basic)g(features)g(that)g(app) -31 b(ear)459 b(there,)481 b(while)460 b(in)f(the)g(follo)-31 -b(wing)462 b(sections)d(w)-31 b(e)459 b(sho)-31 b(w)459 -b(what)h(m)-31 b(ust)459 b(b)31 b(e)458 b(added)h(to)0 -30438 y(generate)354 b(t)-31 b(yp)31 b(eset)355 b(output,)j(pro)31 -b(of)354 b(assistan)-31 b(t)355 b(de\014nitions,)j(and)c(other)g -(things.)489 b(The)353 b(\014gure)h(is)f(colourised,)358 -b(with)d(Ott)0 31766 y(k)-31 b(eyw)g(ords)370 b(lik)-31 -b(e)p Mahogany 370 w Fs(this)p Black 370 w Fx(and)369 -b(Ott)h(sym)-31 b(b)31 b(ols)370 b(suc)-31 b(h)369 b(as)p -RoyalBlue 369 w Fs(|)p Black 369 w Fx(and)p RoyalBlue -370 w Fs(::)p Black Fx(.)493 b(Other)369 b(user-sp)31 -b(eci\014c)367 b(input)j(app)31 b(ears)369 b(lik)-31 -b(e)371 b Fs(this)p Fx(.)0 33759 y(A)-31 b(t)516 b(the)f(top)h(of)f -(the)h(\014gure,)551 b(the)p Mahogany 516 w Fs(metavar)p -Black 516 w Fx(declaration)517 b(in)-31 b(tro)31 b(duces)515 -b(a)g(sort)g(of)h Fo(metavariables)605 b Fs(termvar)516 -b Fx(\(with)0 35087 y(synon)-31 b(ym)438 b Fs(x)p Fx(\),)456 -b(for)437 b(term)h(v)-61 b(ariables.)697 b(The)438 b(follo)-31 -b(wing)p Mahogany 441 w Fs(grammar)p Black 438 w Fx(in)g(tro)31 -b(duces)438 b(t)-31 b(w)g(o)439 b(grammar)f(rules,)455 -b(one)437 b(for)h(terms,)0 36416 y(with)469 b Fo(nonterminal)488 -b(r)-57 b(o)g(ot)573 b Fs(t)p Fx(,)493 b(and)468 b(one)h(for)f(v)-61 -b(alues)468 b Fs(v)p Fx(.)789 b(This)469 b(sp)31 b(eci\014es)467 -b(the)h(concrete)h(syn)-31 b(tax)469 b(of)f(ob)61 b(ject-language)0 -37744 y(terms,)394 b(the)389 b(abstract)g(syn)-31 b(tax)390 -b(represen)-31 b(tations)389 b(for)f(pro)31 b(of-assistan)-31 -b(t)391 b(mathematics,)396 b(and)389 b(the)g(syn)-31 -b(tax)389 b(of)g(sym)-31 b(b)31 b(olic)0 39072 y(terms)369 -b(to)h(b)31 b(e)369 b(used)f(in)i(seman)-31 b(tic)371 -b(rules.)0 41065 y(Eac)-31 b(h)370 b(rule)f(has)g(a)h(rule)f(name)g -(pre\014x)g(\(e.g.)i Fs('t)p 19835 41065 349 45 v 419 -w(')p Fx(\))e(and)h(then)f(a)h(list)g(of)g(pro)31 b(ductions.)493 -b(Eac)-31 b(h)370 b(pro)31 b(duction,)370 b(e.g.)p Black -Black RoyalBlue 1162 43057 a Fs(|)p Black 582 w(\\)581 -b(x)g(.)g(t)p RoyalBlue 3488 w(::)p Black RoyalBlue 1162 -w(::)p Black 582 w(Lam)0 45050 y Fx(sp)31 b(eci\014es)538 -b(a)i(syn)-31 b(tactic)540 b(form)g(as)f(a)g(list)h(of)g(elemen)-31 -b(ts,)583 b(here)538 b(`)p Fs(\\)p Fx(',)583 b(`)p Fs(x)p -Fx(',)g(`)p Fs(.)p Fx(',)f(and)540 b(`)p Fs(t)p Fx(',)583 -b(eac)-31 b(h)539 b(of)h(whic)-31 b(h)540 b(is)e(either)i(a)0 -46378 y(meta)-31 b(v)-61 b(ariable)407 b(\(the)f(`)p -Fs(x)p Fx('\),)415 b(a)405 b(non)-31 b(terminal)408 b(\(the)d(`)p -Fs(t)p Fx('\),)415 b(or)405 b(a)g(terminal)i(\()p Fs(\\)e(.)598 -b(\()405 b(\))g({)f(})h(/)g(-->)p Fx(\).)600 b(Within)405 -b(pro)31 b(ductions)0 47707 y(all)488 b(elemen)-31 b(ts)489 -b(m)-31 b(ust)487 b(b)31 b(e)487 b(whitespace-separated,)519 -b(so)487 b(that)h(the)g(to)31 b(ol)488 b(can)g(deduce)e(whic)-31 -b(h)488 b(are)f(terminals.)848 b(In)487 b(the)0 49035 -y(sym)-31 b(b)31 b(olic)316 b(terms)f(in)g(the)g(seman)-31 -b(tic)317 b(rules)d(b)31 b(elo)-31 b(w,)327 b(ho)-31 -b(w)g(ev)g(er,)328 b(whitespace)316 b(is)e(required)h(only)h(where)e -(necessary)-92 b(.)474 b(A)315 b(few)0 50363 y(terminals)369 -b(ha)-31 b(v)g(e)368 b(to)g(b)31 b(e)367 b(quoted)i(\(with)g -Fs('')p Fx(\))f(if)g(they)g(app)31 b(ear)367 b(in)h(a)f(grammar,)j -(e.g.)493 b(to)368 b(use)f Fs(|)g Fx(as)h(an)f(ob)61 -b(ject-language)0 51692 y(tok)-31 b(en,)432 b(as)419 -b(they)g(are)f(part)h(of)g(the)g(Ott)g(syn)-31 b(tax,)432 -b(but)419 b(they)g(do)f(not)i(ha)-31 b(v)g(e)419 b(to)g(b)31 -b(e)418 b(quoted)i(at)f(usage)g(p)31 b(oin)-31 b(ts.)641 -b(\(If)419 b(one)0 53020 y(acciden)-31 b(tally)388 b(omits)f(in)-31 -b(ter-tok)g(en)387 b(whitespace)f(in)g(the)f(grammar,)391 -b(the)385 b(output)i(of)e(Ott)h(can)g(b)31 b(e)384 b(surprising.)541 -b(This)385 b(is)0 54348 y(b)31 b(est)369 b(diagnosed)h(b)-31 -b(y)370 b(lo)31 b(oking)371 b(at)f(the)f(colourised)i(ASCI)31 -b(I)368 b(or)h(L)26423 54121 y Fu(A)26911 54348 y Fx(T)27525 -54587 y(E)28141 54348 y(X)g(output)i(from)e(Ott.\))0 -56341 y(Meta)-31 b(v)-61 b(ariables)433 b(and)e(non)-31 -b(terminals)433 b(can)e(b)31 b(e)431 b(formed)h(from)f(the)h(sp)31 -b(eci\014ed)430 b(meta)-31 b(v)-61 b(ariable)434 b(and)d(non)-31 -b(terminal)434 b(ro)31 b(ots)0 57669 y(b)-31 b(y)369 -b(app)31 b(ending)371 b(a)e(su\016x,)h(e.g.)g(the)g(non)-31 -b(terminal)371 b Fs(t')f Fx(in)f(the)g Fs(App)h Fx(and)f -Fs(Tsub)h Fx(pro)31 b(ductions.)0 59662 y(Bet)-31 b(w)g(een)372 -b(the)p RoyalBlue 372 w Fs(::)p Black Fx('s)f(is)g(an)g(optional)j -(meta)e(\015ag)p Mahogany 372 w Fs(M)p Black 370 w Fx(or)p -Mahogany 371 w Fs(S)p Black Fx(.)g(Non-meta)h(pro)31 -b(ductions)371 b(giv)-31 b(e)372 b(rise)f(to)h(clauses)f(of)g(datat)-31 -b(yp)31 b(e)0 60990 y(de\014nitions)399 b(in)f(the)g(Isab)31 -b(elle/Co)g(q/HOL)400 b(output,)407 b(whereas)398 b(meta)h(pro)31 -b(ductions)398 b(do)g(not.)579 b(Later,)406 b(w)-31 b(e)398 -b(will)i(see)d(ho)-31 b(w)0 62318 y(the)317 b(user)g(can)g(sp)31 -b(ecify)317 b(ho)-31 b(w)319 b(meta)f(syn)-31 b(tax)318 -b(should)g(b)31 b(e)317 b(translated)h(a)-31 b(w)g(a)g(y)320 -b(when)d(generating)i(pro)31 b(of)318 b(assistan)-31 -b(t)318 b(output.)0 63647 y(The)398 b(t)-31 b(w)g(o)399 -b(\015ags)p Mahogany 398 w Fs(M)p Black 398 w Fx(and)p -Mahogany 398 w Fs(S)p Black 398 w Fx(are)e(iden)-31 b(tical)400 -b(except)e(that)h(pro)31 b(ductions)399 b(with)f(the)g(latter)h(are)f -(admitted)i(when)e(parsing)0 64975 y(example)293 b(concrete)f(terms;) -318 b(the)p Mahogany 291 w Fs(S)p Black 292 w Fx(tag)292 -b(is)g(th)-31 b(us)292 b(appropriate)g(for)g(ligh)-31 -b(t)g(w)g(eigh)g(t)296 b(syn)-31 b(tactic)293 b(sugar,)308 -b(suc)-31 b(h)291 b(as)g(pro)31 b(ductions)0 66303 y(for)369 -b(paren)-31 b(theses.)493 b(One)369 b(can)g(also)h(use)f(an)p -Mahogany 369 w Fs(X)p Black 369 w Fx(\015ag)h(here)f(to)h(suppress)d(a) -i(pro)31 b(duction)371 b(in)e(the)g(generated)h(LaT)-92 -b(eX.)0 68296 y(Eac)-31 b(h)297 b(pro)31 b(duction)297 -b(has)e(a)i(pro)31 b(duction)296 b(name)h(\(e.g.)h Fs(t_Lam)p -Fx(\),)312 b(comp)31 b(osed)296 b(of)h(the)f(rule)f(name)i(pre\014x)e -(\(here)h Fs(t_)p Fx(\))h(and)f(the)0 69624 y(pro)31 -b(duction)369 b(name)f(k)-31 b(ernel)369 b(that)g(follo)-31 -b(ws)370 b(the)p RoyalBlue 368 w Fs(::)p Black Fx('s)e(\(here)g -Fs(Lam)p Fx(\).)493 b(The)368 b(pro)31 b(duction)369 -b(name)g(is)e(used)h(as)f(a)i(constructor)0 70953 y(name)h(in)f(the)h -(generated)g(Isab)31 b(elle/Co)g(q/HOL.)0 72945 y(The)568 -b(to)31 b(ol)569 b(supp)31 b(orts)567 b(arbitrary)h(con)-31 -b(text-free)569 b(grammars,)619 b(extended)568 b(with)h(sp)31 -b(ecial)568 b(constructs)g(for)f(list)i(forms)0 74274 -y(\(c.f.)371 b Ft(x)p Fx(12\).)p Black 24778 77841 a(7)p -Black eop end -%%Page: 8 8 -TeXDict begin 8 7 bop Black Black Black 31 14545 50863 -45 v 31 56084 45 41539 v Black Black 408 15569 a Fw(\045)523 -b(minimal)p Mahogany 408 16787 a(metavar)p Black 523 -w(termvar)p RoyalBlue(,)p Black 523 w(x)p RoyalBlue 523 -w(::=)p Black Mahogany 408 19222 a(grammar)p Black 408 -20440 a(t)p RoyalBlue 523 w(::)p Black 523 w('t_')p RoyalBlue -523 w(::=)p Black RoyalBlue 1454 21658 a(|)p Black 523 -w(x)p RoyalBlue 6276 w(::)p Black RoyalBlue 1047 w(::)p -Black 523 w(Var)p RoyalBlue 1454 22875 a(|)p Black 523 -w(\\)g(x)g(.)g(t)p RoyalBlue 3138 w(::)p Black RoyalBlue -1047 w(::)p Black 523 w(Lam)p RoyalBlue 1454 24093 a(|)p -Black 523 w(t)g(t')p RoyalBlue 4707 w(::)p Black RoyalBlue -1047 w(::)p Black 523 w(App)p RoyalBlue 1454 25311 a(|)p -Black 523 w(\()g(t)g(\))p RoyalBlue 4184 w(::)p Black -Mahogany 524 w(S)p Black RoyalBlue(::)p Black 523 w(Paren)p -RoyalBlue 1454 26528 a(|)p Black 523 w({)g(t)g(/)g(x)g(})g(t')p -RoyalBlue 523 w(::)p Black Mahogany 524 w(M)p Black RoyalBlue(::)p -Black 523 w(Tsub)408 28964 y(v)p RoyalBlue 523 w(::)p -Black 523 w('v_')p RoyalBlue 523 w(::=)p Black RoyalBlue -1454 30181 a(|)p Black 523 w(\\)g(x)g(.)g(t)p RoyalBlue -3138 w(::)p Black RoyalBlue 1047 w(::)p Black 523 w(Lam)p -Mahogany 408 32617 a(subrules)p Black 1454 33834 a(v)p -RoyalBlue 523 w(<::)p Black 523 w(t)p Mahogany 408 36270 -a(defns)p Black 408 37487 a(Jop)p RoyalBlue 523 w(::)p -Black 523 w('')p RoyalBlue 523 w(::=)p Black Mahogany -931 39923 a(defn)p Black 931 41140 a(t1)g(-->)g(t2)p -RoyalBlue 523 w(::)p Black RoyalBlue 523 w(::)p Black(reduce)p -RoyalBlue(::)p Black('')p Mahogany 1047 w(by)p Black -RoyalBlue 2500 44793 a(--------------------------)p Black -1047 w(::)g(ax_app)2500 46011 y(\(\\x.t12\))g(v2)g(-->)1047 -b({v2/x}t12)2500 48446 y(t1)523 b(-->)g(t1')p RoyalBlue -2500 49664 a(--------------)p Black 523 w(::)h(ctx_app_fun)2500 -50881 y(t1)f(t)g(-->)g(t1')g(t)2500 53317 y(t1)g(-->)g(t1')p -RoyalBlue 2500 54534 a(--------------)p Black 523 w(::)h(ctx_app_arg) -2500 55752 y(v)f(t1)g(-->)g(v)g(t1')p 50850 56084 V 31 -56128 50863 45 v Black 17176 58102 a Fx(Figure)370 b(1:)493 -b(Source:)f Fs(test10.0.ott)p Black Black Black 24810 -77841 a Fx(8)p Black eop end -%%Page: 9 9 -TeXDict begin 9 8 bop Black Black 0 -594 a Fx(F)-92 b(ollo)-31 -b(wing)372 b(the)p Mahogany 369 w Fs(grammar)p Black -370 w Fx(in)e(this)f(example)i(is)e(a)p Mahogany 370 -w Fs(subrule)p Black 370 w Fx(declaration)p Black Black -Mahogany 1162 1399 a Fs(subrules)p Black 2325 2727 a(v)p -RoyalBlue 581 w(<::)p Black 581 w(t)0 4720 y Fx(declaring)357 -b(that)g(the)f Fs(v)g Fx(grammar)h(rule)f(\(of)h(v)-61 -b(alues\))356 b(is)g(a)g(subgrammar)h(of)f(the)g Fs(t)g -Fx(rule)g(\(of)h(terms\).)488 b(The)357 b(to)31 b(ol)357 -b(c)-31 b(hec)g(ks)0 6048 y(that)479 b(there)f(is)h(in)f(fact)h(a)g -(subgrammar)g(relationship,)508 b(i.e.)479 b(that)g(for)g(eac)-31 -b(h)478 b(pro)31 b(duction)480 b(of)e(the)h(lo)-31 b(w)g(er)479 -b(rule)f(there)0 7376 y(exists)462 b(a)f(pro)31 b(duction)463 -b(of)e(the)h(higher)g(rule)f(with)h(corresp)31 b(onding)462 -b(elemen)-31 b(ts)462 b(\(up)g(to)g(the)g(subrule)e(relation\).)772 -b(The)0 8705 y(subrule)299 b(declaration)j(means)e(that,)315 -b(in)300 b(the)g(seman)-31 b(tic)301 b(rules)f(b)31 b(elo)-31 -b(w,)315 b(w)-31 b(e)300 b(will)h(b)31 b(e)300 b(able)g(to)h(use)e -Fs(v)p Fx('s)g(in)h(places)g(where)g(the)0 10033 y(grammar)372 -b(sp)31 b(eci\014es)370 b Fs(t)p Fx('s.)497 b(In)370 -b(the)h(generated)g(Isab)31 b(elle/Co)g(q/HOL)373 b(for)e(this)g -(example)h(only)g(one)f(free)f(datat)-31 b(yp)31 b(e)372 -b(will)0 11361 y(b)31 b(e)367 b(generated,)j(for)e(the)g -Fs(t)f Fx(rule,)i(while)g(for)f(the)g Fs(v)g Fx(rule)f(w)-31 -b(e)368 b(generate)h(an)f Fs(is_v)g Fx(predicate)h(o)-31 -b(v)g(er)368 b(the)g Fs(t)g Fx(t)-31 b(yp)31 b(e.)493 -b(Usages)0 12690 y(of)370 b Fs(v)f Fx(non)-31 b(terminals)371 -b(in)f(the)f(seman)-31 b(tic)371 b(rules)d(will)j(ha)-31 -b(v)g(e)370 b(instances)g(of)g(this)f(predicate)h(automatically)k -(inserted.)0 14682 y(Finally)-92 b(,)357 b(w)-31 b(e)353 -b(giv)-31 b(e)353 b(a)f(collection)j(of)d(de\014nitions)h(of)g -(inductiv)-31 b(e)353 b(relations.)489 b(In)351 b(this)i(example)g -(there)f(is)g(just)g(one)g(family)0 16011 y(of)404 b(de\014nitions)h -(\(of)f(op)31 b(erational)406 b(judgemen)-31 b(ts\),)415 -b(in)-31 b(tro)31 b(duced)404 b(b)-31 b(y)404 b(the)p -Mahogany 403 w Fs(defns)p Black 404 w(Jop)p Fx(;)422 -b(it)404 b(con)-31 b(tains)405 b(just)f(one)f(de\014nition)0 -17339 y(of)496 b(a)g(relation,)529 b(called)497 b Fs(reduce)p -Fx(.)872 b(In)495 b(general)h(there)f(ma)-31 b(y)497 -b(b)31 b(e)495 b(man)-31 b(y)p Mahogany 496 w Fs(defns)p -Black 496 w Fx(blo)31 b(c)-31 b(ks,)528 b(eac)-31 b(h)496 -b(of)g(whic)-31 b(h)497 b(in)-31 b(tro)31 b(duces)0 18667 -y(a)510 b(m)-31 b(utually)512 b(recursiv)-31 b(e)509 -b(collection)k(of)p Mahogany 510 w Fs(defn)p Black Fx(s.)914 -b(The)510 b(relation)h(de\014nition)p Mahogany 512 w -Fs(defn)p Black 581 w(...)g Fx(also)g(includes)f(a)g(grammar)0 -19996 y(pro)31 b(duction)370 b(sp)31 b(ecifying)370 b(ho)-31 -b(w)371 b(elemen)-31 b(ts)370 b(of)f(the)h(relation)h(can)e(b)31 -b(e)369 b(written)h(and)g(t)-31 b(yp)31 b(eset,)370 b(here)p -Black Black 1162 21988 a Fs(t1)582 b(-->)f(t2)0 23981 -y Fx(As)326 b(in)h(the)f(main)i(grammar,)336 b(the)327 -b(tok)-31 b(ens)327 b(of)g(this)g(syn)-31 b(tax)327 b(de\014nition)h -(in)f(the)f(header)g(m)-31 b(ust)327 b(b)31 b(e)326 b(space-separated,) -336 b(but)0 25309 y(usages)435 b(of)g(the)h(syn)-31 b(tax)436 -b(generally)g(need)f(not)g(b)31 b(e.)690 b(Syn)-31 b(tax)436 -b(rules)e(for)h(eac)-31 b(h)436 b(family)h(of)e(judgemen)-31 -b(ts,)454 b(and)435 b(for)g(their)0 26637 y(union,)453 -b(are)435 b(implicitly)j(generated.)692 b(The)435 b(relation)i -(de\014nition)g(is)e(giv)-31 b(en)436 b(b)-31 b(y)436 -b(a)f(sequence)g(of)h(inference)f(rules,)452 b(eac)-31 -b(h)0 27966 y(with)370 b(a)g(horizon)-31 b(tal)372 b(line)d(separating) -i(a)e(n)-31 b(um)g(b)31 b(er)370 b(of)f(premises)g(from)h(a)f -(conclusion,)i(for)f(example)g(as)f(b)31 b(elo)-31 b(w.)p -Black Black 2325 29958 a Fs(t1)581 b(-->)h(t1')p RoyalBlue -2325 31287 a(--------------)h(::)p Black 581 w(ctx_app_arg)2325 -32615 y(v)e(t1)g(-->)h(v)f(t1')0 34608 y Fx(The)338 b(conclusion)g(m) --31 b(ust)338 b(b)31 b(e)337 b(a)h(sym)-31 b(b)31 b(olic)339 -b(term)e(of)h(the)g(form)g(of)g(the)f(judgemen)-31 b(t)339 -b(b)31 b(eing)338 b(de\014ned.)482 b(In)337 b(simple)h(cases)f(\(as)0 -35936 y(here\))372 b(the)h(premises)f(can)h(b)31 b(e)372 -b(sym)-31 b(b)31 b(olic)374 b(terms)e(of)h(the)g(form)g(of)g(an)-31 -b(y)374 b(of)f(the)f(de\014ned)h(judgemen)-31 b(ts.)504 -b(More)372 b(generally)0 37264 y(\(see)468 b Ft(x)p Fx(6\))g(they)g -(can)g(b)31 b(e)467 b(sym)-31 b(b)31 b(olic)470 b(terms)d(of)h(a)g -(user-de\014ned)p Mahogany 467 w Fs(formula)p Black 469 -w Fx(grammar,)494 b(or)467 b(in-line)i(em)-31 b(b)31 -b(edded)468 b(pro)-31 b(v)g(er)0 38593 y(co)31 b(de.)784 -b(Eac)-31 b(h)467 b(rule)f(has)g(a)g(name,)492 b(comp)31 -b(osed)467 b(of)f(a)h(de\014nition)h(family)g(pre\014x)e(\(here)g(empt) --31 b(y\),)492 b(a)467 b(de\014nition)h(pre\014x)0 39921 -y(\(here)369 b(also)h(empt)-31 b(y\))371 b(and)e(a)h(k)-31 -b(ernel)369 b(\(the)h Fs(ctx_app_arg)p Fx(\).)0 41913 -y(The)285 b(sym)-31 b(b)31 b(olic)286 b(terms)e(in)h(seman)-31 -b(tic)286 b(rules)e(are)h(parsed)f(with)h(a)g(scannerless)f(parser,)301 -b(built)286 b(using)e(parser)g(com)-31 b(binators)0 43242 -y(o)g(v)g(er)380 b(c)-31 b(haracter-list)382 b(inputs.)525 -b(The)380 b(parser)f(searc)-31 b(hes)379 b(for)h(all)h(parses)e(of)h -(the)g(input.)525 b(If)380 b(none)g(are)g(found,)j(the)d(ASCI)31 -b(I)0 44570 y(and)313 b(T)-92 b(eX)313 b(output)h(are)f(annotated)i -Fs(no)581 b(parses)p Fx(,)325 b(with)314 b(a)f(cop)-31 -b(y)314 b(of)f(the)g(input)h(with)g Fs(***)f Fx(inserted)g(at)g(the)g -(p)31 b(oin)-31 b(t)314 b(where)0 45898 y(the)408 b(last)h(tok)-31 -b(en)409 b(w)-31 b(as)409 b(read.)608 b(This)409 b(is)f(often)h(at)f -(the)g(p)31 b(oin)-31 b(t)410 b(of)e(the)g(error)f(\(though)j(if,)418 -b(for)408 b(example,)420 b(a)408 b(putativ)-31 b(e)410 -b(dot)0 47227 y(form)397 b(is)f(read)g(but)g(the)g(t)-31 -b(w)g(o)398 b(elemen)-31 b(t)397 b(lists)g(cannot)g(b)31 -b(e)396 b(an)-31 b(ti-uni\014ed,)405 b(it)397 b(will)h(b)31 -b(e)395 b(after)i(the)f(p)31 b(oin)-31 b(t)398 b(of)e(the)g(error\).) -573 b(If)0 48555 y(m)-31 b(ultiple)412 b(parses)c(are)i(found,)420 -b(the)410 b(T)-92 b(eX)409 b(output)i(is)f(annotated)h -Fs(multiple)582 b(parses)411 b Fx(and)e(the)h(di\013eren)-31 -b(t)410 b(parses)e(are)0 49884 y(output)342 b(to)g(the)f(console)g(in)h -(detail)g(during)f(the)g(Ott)h(run.)482 b(If)341 b(the)g(option)i -Fs(picky)p 34125 49884 349 45 v 419 w(multiple)p 39192 -49884 V 419 w(parses)f Fx(is)f(set)g(to)g Fs(true)p Fx(,)0 -51212 y(m)-31 b(ultiple)372 b(parses)c(are)h(alw)-31 -b(a)g(ys)371 b(rep)31 b(orted.)492 b(If)369 b(it)h(set)f(to)h -Fs(false)p Fx(,)g(a)f(sym)-31 b(b)31 b(olic)371 b(term)e(is)g -(considered)g(am)-31 b(biguous)371 b(only)g(if)0 52540 -y(t)-31 b(w)g(o)360 b(di\013eren)-31 b(t)359 b(parses)e(compile)k(to)e -(di\013eren)-31 b(t)359 b(strings)f(\(for)h(a)g(target\).)491 -b(The)359 b(parser)e(com)-31 b(binators)361 b(use)c(memoization)0 -53869 y(and)308 b(con)-31 b(tin)g(uation-passing)312 -b(to)c(ac)-31 b(hiev)g(e)309 b(reasonable)f(p)31 b(erformance)308 -b(on)g(the)g(small)h(sym)-31 b(b)31 b(olic)309 b(terms)f(that)g(are)g -(t)-31 b(ypical)0 55197 y(in)448 b(seman)-31 b(tic)449 -b(rules.)728 b(Their)448 b(p)31 b(erformance)448 b(on)g(large)h -(\(whole-program)i(size\))d(examples)h(is)e(un)-31 b(tested.)729 -b(T)-92 b(o)449 b(resolv)-31 b(e)0 56525 y(am)g(biguit)g(y)278 -b(one)d(can)g(add)g(metapro)31 b(ductions)277 b(for)e(paren)-31 -b(theses)275 b(\(as)g(in)g(Fig.)h(1\),)295 b(or)274 b(pro)31 -b(duction-name)277 b(annotations)h(in)0 57854 y(particular)336 -b(sym)-31 b(b)31 b(olic)335 b(terms,)342 b(e.g.)336 b(the)e -Fs(:t_tsub:)h Fx(in)g(the)g Fs(AppAbs)g Fx(rule)f(of)g(the)h(POPLmark)g -(example,)343 b Fs(test7.ott)p Fx(.)0 59182 y(There)369 -b(is)g(curren)-31 b(tly)370 b(no)f(supp)31 b(ort)369 -b(for)g(precedence)f(or)i(asso)31 b(ciativit)-31 b(y)-92 -b(.)0 61175 y(This)370 b(\014le)f(is)g(included)h(in)f(the)h -(distribution)h(as)e Fs(tests/test10.0.ott)p Fx(.)495 -b(It)369 b(can)h(b)31 b(e)368 b(pro)31 b(cessed)368 b(b)-31 -b(y)370 b(executing)p Black Black 1743 63167 a Fs(bin/ott)583 -b(-i)e(tests/test10.0.ott)0 65160 y Fx(from)370 b(the)f(main)i -(directory)-92 b(.)493 b(This)369 b(simply)h(reads)f(in)g(the)h -(\014le,)g(c)-31 b(hec)g(king)370 b(that)h(it)f(is)f(w)-31 -b(ell-formed.)495 b(Adding)370 b(options:)p Black Black -1743 67152 a Fs(bin/ott)583 b(-show)p 9368 67152 V 419 -w(sort)f(true)f(-show)p 18503 67152 V 419 w(defns)h(true)g(-i)g -(tests/test10.0.ott)0 69145 y Fx(it)387 b(ec)-31 b(hos)386 -b(a)g(colourised)h(v)-31 b(ersion)386 b(to)h(the)f(screen,)j(with)e -(meta)-31 b(v)-61 b(ariables)388 b(in)f(red,)j(non)-31 -b(terminals)387 b(in)g(y)-31 b(ello)g(w,)393 b(terminals)0 -70473 y(in)377 b(green,)j(and)d(ob)61 b(ject)379 b(v)-61 -b(ariables)378 b(in)f(white.)518 b(The)378 b(colourisation)i(uses)c -(vt220)j(con)-31 b(trol)379 b(co)31 b(des;)381 b(if)d(they)g(do)f(not)h -(w)-31 b(ork)0 71801 y(on)461 b(y)-31 b(our)462 b(screen)e(add)i -Fs(-colour)582 b(false)461 b Fx(to)h(the)g(middle)g(of)g(the)f(command) -i(line.)770 b(T)-92 b(o)462 b(suppress)d(the)i(ec)-31 -b(ho)462 b(of)g(the)0 73130 y(de\014nition,)371 b(add)f -Fs(-show)p 10355 73130 V 419 w(post)p 13098 73130 V 419 -w(sort)582 b(false)369 b Fx(and)h Fs(-show)p 24755 73130 -V 419 w(defns)582 b(false)p Fx(.)p Black 24778 77841 -a(9)p Black eop end -%%Page: 10 10 -TeXDict begin 10 9 bop Black Black 31 -594 a Fq(3.1)1495 -b(Index)498 b(v)-83 b(ariables)31 2114 y Fx(In)394 b(addition)i(to)e -(the)p Mahogany 394 w Fs(metavar)p Black 395 w Fx(declarations)i(ab)31 -b(o)-31 b(v)g(e,)401 b(the)395 b(user)d(can)i(declare)g(an)-31 -b(y)395 b(n)-31 b(um)g(b)31 b(er)394 b(of)g(distinguished)h -Fo(index)31 3442 y Fx(meta)-31 b(v)-61 b(ariables,)372 -b(e.g.)494 b(b)-31 b(y:)p Black Black Mahogany 1194 5434 -a Fs(indexvar)p Black 582 w(index)p RoyalBlue(,)p Black -582 w(i)p RoyalBlue(,)p Black 582 w(j)p RoyalBlue(,)p -Black 581 w(n)p RoyalBlue(,)p Black 582 w(m)p RoyalBlue -581 w(::=)p Black RoyalBlue 581 w({)q({)p Black Mahogany -581 w(isa)p Black 581 w(num)p RoyalBlue 582 w(}})p Black -RoyalBlue 581 w({)q({)p Black Mahogany 581 w(coq)p Black -582 w(nat)p RoyalBlue 581 w(}})p Black RoyalBlue 582 -w({{)p Black Mahogany 581 w(hol)p Black 582 w(num)p RoyalBlue -581 w(}})p Black 31 7427 a Fx(Giv)g(en)370 b(suc)-31 -b(h)369 b(a)g(declaration,)j Fs(index)p Fx(,)e Fs(i)p -Fx(,)g Fs(j)p Fx(,)g Fs(n)f Fx(and)g Fs(m)g Fx(can)h(b)31 -b(e)369 b(used)f(in)i(su\016xes,)f(e.g.)h(in)g(the)f(pro)31 -b(duction)p Black Black RoyalBlue 1775 9420 a Fs(|)p -Black 1162 w(\()582 b(t1)f(,)p RoyalBlue 581 w(....)p -Black 582 w(,)g(tn)h(\))p RoyalBlue 6393 w(::)p Black -RoyalBlue 581 w(::)p Black 582 w(Tuple)31 11412 y Fx(There)422 -b(is)f(a)h(\014xed)g(ad-ho)31 b(c)422 b(language)i(of)e(su\016xes,)435 -b(including)423 b(n)-31 b(um)g(b)31 b(ers,)435 b(primes,)g(and)422 -b(index)g(v)-61 b(ariables)422 b(\(see)g Ft(x)p Fx(23\).)31 -12740 y(Index)369 b(meta)-31 b(v)-61 b(ariables)372 b(cannot)e -(themselv)-31 b(es)370 b(b)31 b(e)369 b(su\016xed.)31 -17065 y FC(4)1793 b(Generating)599 b(L)12485 16731 y -Fp(A)13179 17065 y FC(T)14127 17419 y(E)15080 17065 y(X)31 -20154 y Fx(The)335 b(example)h(from)f(the)g(previous)f(section)i(can)f -(already)g(b)31 b(e)334 b(used)g(to)h(generate)g(L)34900 -19927 y Fu(A)35388 20154 y Fx(T)36002 20392 y(E)36618 -20154 y(X,)342 b(for)334 b(example)i(b)-31 b(y)335 b(executing)p -Black Black 1775 22147 a Fs(bin/ott)582 b(-i)g(tests/test10.0.ott)h(-o) -f(out.tex)31 24139 y Fx(to)391 b(pro)31 b(duce)388 b(a)i(L)6876 -23912 y Fu(A)7364 24139 y Fx(T)7978 24377 y(E)8594 24139 -y(X)f(\014le)h Fs(out.tex)p Fx(.)554 b(One)389 b(often)h(needs)f(to)h -(\014ne-tune)f(the)h(default)h(t)-31 b(yp)31 b(esetting,)397 -b(as)389 b(illustrated)i(in)31 25467 y(Figure)354 b(2)h(\(the)g(Ott)f -(source\))g(and)h(Figure)f(3)g(\(the)h(resulting)g(L)26304 -25240 y Fu(A)26792 25467 y Fx(T)27406 25706 y(E)28021 -25467 y(X\).)489 b(\(The)354 b(latter)i(w)-31 b(as)354 -b(built)i(using)e(the)g(additional)31 26796 y(option)366 -b Fs(-tex_show_meta)583 b(false)p Fx(,)366 b(to)e(suppress)d(displa)-31 -b(y)365 b(of)f(the)g(metapro)31 b(ductions.\))983 b(The)364 -b(source)f(\014le)g(has)h(three)31 28124 y(additions)387 -b(to)e(the)g(previous)f(\014le.)539 b(Firstly)-92 b(,)389 -b(the)p Mahogany 384 w Fs(metavar)p Black 386 w Fx(declaration)d(is)f -(annotated)h(with)g(a)f(sp)31 b(eci\014cation)386 b(of)f(ho)-31 -b(w)31 29452 y(meta)g(v)-61 b(ariables)372 b(should)e(b)31 -b(e)368 b(translated)j(to)f(L)18891 29226 y Fu(A)19379 -29452 y Fx(T)19993 29691 y(E)20608 29452 y(X:)p Black -Black Mahogany 1194 31445 a Fs(metavar)p Black 582 w(termvar)p -RoyalBlue(,)p Black 582 w(x)p RoyalBlue 582 w(::=)p Black -RoyalBlue 2356 32773 a({{)p Black Mahogany 582 w(tex)p -Black 581 w(\\mathit{)p RoyalBlue 1 w([[)p Black(termvar)p -RoyalBlue(]])p Black(})p RoyalBlue 583 w(}})p Black 31 -34766 a Fx(Inside)542 b(the)p RoyalBlue 543 w Fs({{)p -Black Mahogany 581 w(tex)p Black 582 w Fn(:)184 b(:)g(:)p -RoyalBlue 584 w Fs(}})p Black 542 w Fx(is)542 b(some)h(L)17690 -34539 y Fu(A)18178 34766 y Fx(T)18792 35004 y(E)19408 -34766 y(X)f(co)31 b(de)542 b Fs(\\)q(mathit{)p RoyalBlue -1 w($[[)p Black(termvar)p RoyalBlue(]]$)p Black(})i Fx(giving)g(the)f -(translation)h(of)f(a)31 36094 y Fs(termvar)505 b Fx(or)f -Fs(x)p Fx(.)898 b(Here)504 b(they)g(are)g(t)-31 b(yp)31 -b(eset)505 b(in)f(math)i(italic)g(\(whic)-31 b(h)506 -b(in)e(fact)h(is)f(also)h(the)g(default\).)899 b(Within)505 -b(the)31 37423 y(translation,)373 b(the)c(meta)-31 b(v)-61 -b(ariable)372 b(itself)e(can)g(b)31 b(e)368 b(men)-31 -b(tioned)371 b(inside)f(double)g(square)f(brac)-31 b(k)g(ets)p -RoyalBlue 369 w Fs([[)p Black 582 w Fn(:)184 b(:)g(:)p -RoyalBlue 583 w Fs(]])p Black Fx(.)31 39415 y(Secondly)-92 -b(,)491 b(there)466 b(is)f(a)h(grammar)h(for)f(a)g(distinguished)h(non) --31 b(terminal)468 b(ro)31 b(ot)p Mahogany 467 w Fs(terminals)p -Black Fx(,)491 b(with)467 b(a)p RoyalBlue 466 w Fs({{)p -Black Mahogany 581 w(tex)p Black 582 w Fn(:)184 b(:)g(:)p -RoyalBlue 583 w Fs(})q(})p Black 31 40743 a Fx(translation)351 -b(for)d(eac)-31 b(h,)353 b(o)-31 b(v)g(erriding)350 b(the)e(default)h -(t)-31 b(yp)31 b(esetting)350 b(of)f(some)f(terminals.)487 -b(Note)349 b(that)h(the)e(other)g(terminals)31 42072 -y(\()p Fs(.)493 b(\()369 b(\))g({)h(})f(/)p Fx(\))g(are)g(still)i(giv) --31 b(en)370 b(their)g(default)g(t)-31 b(yp)31 b(esetting.)p -Black Black Mahogany 1194 44064 a Fs(terminals)p Black -RoyalBlue 582 w(::)p Black 582 w('terminals_')p RoyalBlue -583 w(::=)p Black RoyalBlue 2356 45393 a(|)p Black 581 -w(\\)p RoyalBlue 6974 w(::)p Black RoyalBlue 1163 w(::)p -Black 581 w(lambda)p RoyalBlue 1164 w({{)p Black Mahogany -581 w(tex)p Black 582 w(\\lambda)p RoyalBlue 582 w(}})p -Black RoyalBlue 2356 46721 a(|)p Black 581 w(-->)p RoyalBlue -5812 w(::)p Black RoyalBlue 1163 w(::)p Black 581 w(red)p -RoyalBlue 2907 w({{)p Black Mahogany 581 w(tex)p Black -582 w(\\longrightarrow)p RoyalBlue 583 w(}})p Black 31 -48714 a Fx(Thirdly)-92 b(,)390 b(the)384 b(\014le)h(has)p -Mahogany 384 w Fs(com)p Black 385 w Fx(commen)-31 b(ts,)390 -b(including)c(the)p RoyalBlue 385 w Fs({{)p Black Mahogany -581 w(com)p Black 582 w(term)p RoyalBlue 581 w(})q(})p -Black 384 w Fx(attac)-31 b(hed)386 b(to)f(a)g(grammar)g(rule,)k(the)p -RoyalBlue 384 w Fs({)q({)p Black Mahogany 31 50042 a(com)p -Black 582 w(variable)p RoyalBlue(})q(})p Black 343 w -Fx(attac)-31 b(hed)344 b(to)f(a)f(pro)31 b(duction,)349 -b(and)342 b(the)p RoyalBlue 343 w Fs({{)p Black Mahogany -581 w(com)p Black RoyalBlue 582 w([[)p Black(t1)p RoyalBlue(]])p -Black 582 w(reduces)582 b(to)p RoyalBlue 582 w([[)p Black(t2)p -RoyalBlue(]])p Black RoyalBlue(})q(})p Black 342 w Fx(attac)-31 -b(hed)344 b(to)31 51370 y(a)370 b(seman)-31 b(tic)371 -b(relation.)494 b(These)369 b(app)31 b(ear)369 b(in)h(the)f(L)20391 -51143 y Fu(A)20879 51370 y Fx(T)21493 51609 y(E)22109 -51370 y(X)g(output)h(as)g(sho)-31 b(wn)369 b(in)h(Figure)f(3.)31 -55133 y Fq(4.1)1495 b(Sp)42 b(ecifying)498 b(L)10994 -54829 y Fm(A)11587 55133 y Fq(T)12377 55428 y(E)13171 -55133 y(X)h(for)f(pro)42 b(ductions)31 57841 y Fx(One)405 -b(can)g(also)g(sp)31 b(ecify)p Mahogany 405 w Fs(tex)p -Black 404 w Fx(translations)407 b(for)d(pro)31 b(ductions,)415 -b(o)-31 b(v)g(erriding)406 b(the)f(default)h(L)38027 -57614 y Fu(A)38515 57841 y Fx(T)39129 58079 y(E)39744 -57841 y(X)f(t)-31 b(yp)31 b(esetting,)416 b(e.g.)406 -b(as)31 59169 y(in)370 b(this)g(example)g(of)g(a)f(t)-31 -b(yp)31 b(e)370 b(abstraction)h(pro)31 b(duction.)p Black -Black RoyalBlue 2356 61161 a Fs(|)p Black 1163 w(X)581 -b(<:)g(T)h(.)f(t)p RoyalBlue 1743 w(::)p Black RoyalBlue -582 w(::)p Black 581 w(TLam)p RoyalBlue 1744 w({)q({)p -Black Mahogany 581 w(tex)p Black 581 w(\\)q(Lambda)p -RoyalBlue 582 w([[)p Black(X)p RoyalBlue(]])p Black RoyalBlue -582 w([[)p Black(<:)p RoyalBlue(]])p Black RoyalBlue -582 w([[)p Black(T)p RoyalBlue(]])p Black(.)h(\\,)p RoyalBlue -581 w([[)p Black(t)p RoyalBlue(]])p Black RoyalBlue 582 -w(}})p Black 31 63154 a Fx(These)473 b Fo(homomorphisms)p -Fx(,)499 b(or)473 b Fo(homs)16009 62752 y Fu(1)16505 -63154 y Fx(,)499 b(can)473 b(refer)g(to)h(the)f(meta)-31 -b(v)-61 b(ariables)475 b(and)f(non)-31 b(terminals)475 -b(that)f(o)31 b(ccur)473 b(in)g(the)31 64482 y(pro)31 -b(duction,)402 b(e.g.)395 b(the)p RoyalBlue 394 w Fs([[)p -Black(X)p RoyalBlue(]])p Black Fx(,)p RoyalBlue 395 w -Fs([[)p Black(T)p RoyalBlue(]])p Black Fx(,)g(and)p RoyalBlue -394 w Fs([[)p Black(t)p RoyalBlue(]])p Black 395 w Fx(in)f(the)p -Mahogany 394 w Fs(tex)p Black 394 w Fx(hom)h(ab)31 b(o)-31 -b(v)g(e,)402 b(in)-31 b(terlea)g(v)g(ed)396 b(with)f(arbitrary)f -(strings)31 65811 y(and)370 b(with)g(t)-31 b(yp)31 b(eset)370 -b(elemen)-31 b(ts)370 b(of)g(the)p Mahogany 369 w Fs(terminals)p -Black 371 w Fx(grammar,)h(e.g.)f(the)p RoyalBlue 370 -w Fs([[)p Black(<:)p RoyalBlue(]])p Black Fx(.)31 67803 -y(Homomorphisms)475 b(are)d(applied)i(recursiv)-31 b(ely)473 -b(do)-31 b(wn)473 b(the)g(structure)f(of)g(sym)-31 b(b)31 -b(olic)474 b(terms.)803 b(F)-92 b(or)471 b(example,)501 -b(an)472 b(F)49144 67969 y Fr(<)p Fu(:)31 69132 y Fx(term)p -Black Black 1194 71124 a Fs(\(\\X<:T11.t12\))583 b([T2])p -Black 31 71925 20044 45 v 1264 72641 a Fy(1)1725 72953 -y FD(Strictly)-78 b(,)314 b(clauses)g(of)g(primitiv)-26 -b(e)314 b(recursiv)-26 b(e)313 b(function)h(de\014nitions)g(from)f(sym) --26 b(b)26 b(olic)315 b(terms)e(to)h(strings,)h(here)e(of)h(L)42247 -72802 y Fy(A)42701 72953 y FD(T)43224 73144 y(E)43746 -72953 y(X)f(co)26 b(de.)p Black Black 24533 77841 a Fx(10)p -Black eop end -%%Page: 11 11 -TeXDict begin 11 10 bop Black Black Black 0 11501 50863 -45 v 0 59128 45 47627 v Black Black 376 12525 a Fw(\045)523 -b(minimal)h(+)f(latex)g(+)g(comments)p Mahogany 376 13743 -a(metavar)p Black 524 w(termvar)p RoyalBlue(,)p Black -523 w(x)p RoyalBlue 523 w(::=)p Black RoyalBlue 1422 -14961 a({{)p Black Mahogany 524 w(tex)p Black 523 w(\\mathit{)p -RoyalBlue([[)p Black(termvar)p RoyalBlue(]])p Black(})p -RoyalBlue 523 w(}})p Black Mahogany 376 17396 a(grammar)p -Black 376 18614 a(t)p RoyalBlue 523 w(::)p Black 524 -w('t_')p RoyalBlue 523 w(::=)p Black RoyalBlue 16214 -w({{)p Black Mahogany 523 w(com)p Black 523 w(term)p -RoyalBlue 2092 w(}})p Black RoyalBlue 1422 19831 a(|)p -Black 523 w(x)p RoyalBlue 6277 w(::)p Black RoyalBlue -1046 w(::)p Black 523 w(Var)p RoyalBlue 9938 w({{)p Black -Mahogany 523 w(com)p Black 523 w(variable)p RoyalBlue(}})p -Black RoyalBlue 1422 21049 a(|)p Black 523 w(\\)h(x)f(.)g(t)p -RoyalBlue 3138 w(::)p Black RoyalBlue 1046 w(::)p Black -523 w(Lam)p RoyalBlue 9938 w({{)p Black Mahogany 523 -w(com)p Black 523 w(lambda)p RoyalBlue 1046 w(}})p Black -RoyalBlue 1422 22266 a(|)p Black 523 w(t)h(t')p RoyalBlue -4707 w(::)p Black RoyalBlue 1046 w(::)p Black 523 w(App)p -RoyalBlue 9938 w({{)p Black Mahogany 523 w(com)p Black -523 w(app)p RoyalBlue 2615 w(}})p Black RoyalBlue 1422 -23484 a(|)p Black 523 w(\()g(t)f(\))p RoyalBlue 4184 -w(::)p Black Mahogany 523 w(S)p Black RoyalBlue(::)p -Black 523 w(Paren)p RoyalBlue 1422 24702 a(|)p Black -523 w({)h(t)f(/)g(x)g(})g(t')p RoyalBlue 523 w(::)p Black -Mahogany 523 w(M)p Black RoyalBlue(::)p Black 523 w(Tsub)376 -27137 y(v)p RoyalBlue 523 w(::)p Black 524 w('v_')p RoyalBlue -523 w(::=)p Black RoyalBlue 16214 w({{)p Black Mahogany -523 w(com)p Black 523 w(value)p RoyalBlue 1569 w(}})p -Black RoyalBlue 1422 28355 a(|)p Black 523 w(\\)h(x)f(.)g(t)p -RoyalBlue 3138 w(::)p Black RoyalBlue 1046 w(::)p Black -523 w(Lam)p RoyalBlue 9938 w({{)p Black Mahogany 523 -w(com)p Black 523 w(lambda)p RoyalBlue 1046 w(}})p Black -Mahogany 376 30790 a(terminals)p Black RoyalBlue 524 -w(::)p Black 523 w('terminals_')p RoyalBlue 523 w(::=)p -Black RoyalBlue 1422 32008 a(|)p Black 523 w(\\)p RoyalBlue -6277 w(::)p Black RoyalBlue 1046 w(::)p Black 523 w(lambda)p -RoyalBlue 1046 w({{)p Black Mahogany 524 w(tex)p Black -523 w(\\lambda)p RoyalBlue 523 w(}})p Black RoyalBlue -1422 33225 a(|)p Black 523 w(-->)p RoyalBlue 5231 w(::)p -Black RoyalBlue 1046 w(::)p Black 523 w(red)p RoyalBlue -2615 w({{)p Black Mahogany 524 w(tex)p Black 523 w(\\longrightarrow)p -RoyalBlue 523 w(}})p Black Mahogany 376 35661 a(subrules)p -Black 1422 36878 a(v)p RoyalBlue 523 w(<::)p Black 524 -w(t)p Mahogany 376 39314 a(defns)p Black 376 40531 a(Jop)p -RoyalBlue 523 w(::)p Black 524 w('')p RoyalBlue 523 w(::=)p -Black Mahogany 899 42967 a(defn)p Black 899 44184 a(t1)g(-->)h(t2)p -RoyalBlue 523 w(::)p Black RoyalBlue 523 w(::)p Black(reduce)p -RoyalBlue(::)p Black('')p RoyalBlue 523 w({{)p Black -Mahogany 523 w(com)p Black 523 w($)p RoyalBlue([[)p Black(t1)p -RoyalBlue(]])p Black($)g(reduces)f(to)g($)p RoyalBlue([[)p -Black(t2)p RoyalBlue(]])p Black($)p RoyalBlue(}})p Black -Mahogany 523 w(by)p Black RoyalBlue 2468 47837 a -(--------------------------)p Black 1047 w(::)h(ax_app)2468 -49055 y(\(\\)q(x.t12\))f(v2)g(-->)1046 b({v2/x}t12)2468 -51490 y(t1)524 b(-->)f(t1')p RoyalBlue 2468 52708 a(--------------)p -Black 524 w(::)g(ctx_app_fun)2468 53926 y(t1)h(t)f(-->)g(t1')g(t)2468 -56361 y(t1)h(-->)f(t1')p RoyalBlue 2468 57579 a(--------------)p -Black 524 w(::)g(ctx_app_arg)2468 58796 y(v)h(t1)f(-->)g(v)g(t1')p -50819 59128 V 0 59172 50863 45 v Black 17145 61147 a -Fx(Figure)369 b(2:)493 b(Source:)f Fs(test10.2.ott)p -Black Black Black 24502 77841 a Fx(11)p Black eop end -%%Page: 12 12 -TeXDict begin 12 11 bop Black Black Black 696 -771 a -Fo(termvar)119 b Fn(;)369 b Fo(x)696 668 y(t)2917 b Fx(::=)6673 -b(term)4565 1996 y Ft(j)1913 b Fo(x)6159 b Fx(v)-61 b(ariable)4565 -3325 y Ft(j)1913 b Fn(\025)p Fo(x)133 b Fn(:)p Fo(t)4705 -b Fx(lam)-31 b(b)31 b(da)4565 4653 y Ft(j)1913 b Fo(t)289 -b(t)7915 4251 y Fl(0)13458 4653 y Fx(app)4565 5982 y -Ft(j)1913 b Fx(\()p Fo(t)105 b Fx(\))2068 b Fk(S)696 -8885 y Fo(v)2776 b Fx(::=)6673 b(v)-61 b(alue)4565 10213 -y Ft(j)1913 b Fn(\025)p Fo(x)133 b Fn(:)p Fo(t)4705 b -Fx(lam)-31 b(b)31 b(da)p 31 12341 4880 45 v 31 13852 -45 1512 v 408 13354 a Fo(t)776 13520 y Fu(1)1580 13354 -y Ft(\000)-185 b(!)308 b Fo(t)4039 13520 y Fu(2)p 4867 -13852 V 31 13896 4880 45 v 6387 13354 a Fo(t)6755 13520 -y Fu(1)7621 13354 y Fx(reduces)368 b(to)i Fo(t)13287 -13520 y Fu(2)p 16690 15756 11974 45 v 16690 16770 a Fx(\()p -Fn(\025)p Fo(x)133 b Fn(:)p Fo(t)19088 16936 y Fu(12)20026 -16770 y Fx(\))184 b Fo(v)21149 16936 y Fu(2)21954 16770 -y Ft(\000)-184 b(!)307 b(f)p Fo(v)25107 16936 y Fu(2)25605 -16770 y Fn(=)p Fo(x)133 b Ft(g)p Fo(t)27726 16936 y Fu(12)29904 -16011 y Fj(ax)p 31335 16011 368 45 v 440 w(app)19103 -18752 y Fo(t)19471 18918 y Fu(1)20275 18752 y Ft(\000)-185 -b(!)308 b Fo(t)22839 18350 y Fl(0)22734 19026 y Fu(1)p -18446 19327 5442 45 v 18446 20341 a Fo(t)18814 20507 -y Fu(1)19495 20341 y Fo(t)412 b Ft(\000)-185 b(!)308 -b Fo(t)22839 19960 y Fl(0)22734 20636 y Fu(1)23415 20341 -y Fo(t)25127 19582 y Fj(ctx)p 27187 19582 368 45 v 441 -w(app)p 29541 19582 V 442 w(fun)19063 22341 y Fo(t)19431 -22507 y Fu(1)20235 22341 y Ft(\000)-185 b(!)308 b Fo(t)22799 -21939 y Fl(0)22694 22616 y Fu(1)p 18250 22917 5753 45 -v 18250 23931 a Fo(v)c(t)19431 24097 y Fu(1)20235 23931 -y Ft(\000)-185 b(!)308 b Fo(v)c(t)23612 23549 y Fl(0)23507 -24226 y Fu(1)25243 23171 y Fj(ctx)p 27303 23171 368 45 -v 441 w(app)p 29657 23171 V 441 w(ar)-25 b(g)p 31 24270 -50111 45 v Black 14676 26146 a Fx(Figure)369 b(3:)493 -b(Generated)369 b(L)25176 25919 y Fu(A)25664 26146 y -Fx(T)26278 26384 y(E)26894 26146 y(X:)492 b Fs(test10.2.tex)p -Black Black 31 29705 a Fx(w)-31 b(ould)371 b(b)31 b(e)369 -b(L)5060 29478 y Fu(A)5548 29705 y Fx(T)6162 29943 y(E)6777 -29705 y(X-prett)-31 b(y-prin)g(ted,)372 b(using)d(the)p -Mahogany 370 w Fs(tex)p Black 369 w Fx(clause)h(ab)31 -b(o)-31 b(v)g(e,)371 b(as)p Black Black 31 31698 a Fs(\()582 -b(\\,)f(\\Lambda)1164 b(\\mathit{X})582 b(<:)g -(\\mathit{T_{\\mathrm{11}}})i(.)e(\\,)f(\\mathit{t_{\\mathrm{12}}})k -(\\,)c(\))613 33026 y(\\,)g(\\,)h([)f(\\,)g(\\mathit{T_{\\mathrm{2}}})k -(\\,)c(])31 35018 y Fx(whic)-31 b(h)371 b(is)e(t)-31 -b(yp)31 b(eset)370 b(as)f(b)31 b(elo)-31 b(w.)19797 36347 -y(\()184 b(\003)p Fo(X)483 b Fn(<)p Fx(:)308 b Fo(T)24754 -36513 y Fu(11)25691 36347 y Fn(:)184 b Fo(t)26550 36513 -y Fu(12)27674 36347 y Fx(\))369 b([)184 b Fo(T)29756 -36513 y Fu(2)30438 36347 y Fx(])31 38339 y(Note)380 b(the)g -Fs(X)p Fx(,)f Fs(T11)g Fx(and)g Fs(t12)h Fx(of)f(the)g(sym)-31 -b(b)31 b(olic)381 b(term)e(are)g(used)f(to)i(instan)-31 -b(tiate)382 b(the)d(formal)i(parameters)e Fs(X)p Fx(,)g -Fs(T)g Fx(and)h Fs(t)31 39668 y Fx(of)370 b(the)g(homomorphism)h -(de\014nition)g(clause.)493 b(If)369 b(the)g Fs(t)g Fx(itself)i(had)e -(comp)31 b(ound)370 b(term)g(structure,)f(e.g.)493 b(as)369 -b(b)31 b(elo)-31 b(w)p Black Black 1194 41660 a Fs(\(\\X<:T.)582 -b(\\X'<:T'.x\))31 43653 y Fx(the)370 b(homomorphism)h(w)-31 -b(ould)371 b(b)31 b(e)369 b(applied)h(recursiv)-31 b(ely)-92 -b(,)370 b(pro)31 b(ducing)p Black Black 31 45645 a Fs(\()582 -b(\\,)f(\\Lambda)1164 b(\\mathit{X})582 b(<:)g(\\mathit{T})g(.)g(\\,) -1162 b(\\Lambda)i(\\mathit{X'})582 b(<:)g(\\mathit{T'})31 -46974 y(.)g(\\,)1162 b(\\mathit{x})583 b(\\,)1163 b(\\,)581 -b(\))31 48966 y Fx(t)-31 b(yp)31 b(eset)370 b(as)f(follo)-31 -b(ws.)18949 50294 y(\()184 b(\003)p Fo(X)483 b Fn(<)p -Fx(:)308 b Fo(T)147 b Fn(:)184 b Fx(\003)p Fo(X)26311 -49893 y Fl(0)26929 50294 y Fn(<)p Fx(:)308 b Fo(T)29344 -49893 y Fl(0)29655 50294 y Fn(:)184 b Fo(x)503 b Fx(\))31 -52287 y(Where)367 b(there)g(is)h(no)f(user-supplied)g(homomorphism)j -(clause)e(the)f(L)29042 52060 y Fu(A)29530 52287 y Fx(T)30144 -52525 y(E)30760 52287 y(X)h(prett)-31 b(y-prin)g(ting)369 -b(defaults)g(to)f(a)g(sequence)31 53615 y(of)407 b(the)f(individual)i -(items)e(separated)g(b)-31 b(y)406 b(thin)g(spaces)f(\()p -Fs(\\,)p Fx(\),)417 b(with)407 b(reasonable)f(default)h(fon)-31 -b(ts)407 b(and)e(making)j(use)d(of)31 54944 y(the)370 -b Fs(terminals)g Fx(grammar)h(where)e(appropriate.)31 -58707 y Fq(4.2)1495 b(Sp)42 b(ecifying)498 b(L)10994 -58403 y Fm(A)11587 58707 y Fq(T)12377 59002 y(E)13171 -58707 y(X)h(for)f(grammar)j(rules)31 61414 y Fx(Grammar)370 -b(rules)f(can)g(include)h(a)p Mahogany 370 w Fs(tex)p -Black 369 w Fx(hom)g(sp)31 b(ecifying)370 b(ho)-31 b(w)370 -b(all)h(the)e(non)-31 b(terminal)372 b(ro)31 b(ots)369 -b(should)h(b)31 b(e)368 b(t)-31 b(yp)31 b(eset,)371 b(e.g.)p -Black Black 1194 63407 a Fs(type)p RoyalBlue(,)p Black -582 w(t)p RoyalBlue(,)p Black 581 w(s)p RoyalBlue 581 -w(::)p Black 582 w(Typ_)p RoyalBlue 582 w(::=)p Black -RoyalBlue 1162 w({)q({)p Black Mahogany 581 w(tex)p Black -581 w(\\)q(mathsf{)p RoyalBlue 1 w([[)p Black(type)p -RoyalBlue(]])p Black(})p RoyalBlue 582 w(}})p Black RoyalBlue -4681 64735 a(|)p Black 581 w(unit)p RoyalBlue 10461 w(::)p -Black RoyalBlue 1744 w(::)p Black 581 w(unit)p RoyalBlue -4681 66063 a(|)p Black 581 w(type)582 b(*)f(type')p RoyalBlue -5812 w(::)p Black RoyalBlue 1744 w(::)p Black 581 w(pair)p -RoyalBlue 4681 67392 a(|)p Black 581 w(type)h(->)f(type')p -RoyalBlue 5231 w(::)p Black RoyalBlue 1744 w(::)p Black -581 w(fun)31 69384 y Fx(Alternativ)-31 b(ely)-92 b(,)301 -b(the)280 b(individual)h(non)-31 b(terminal)282 b(ro)31 -b(ots)280 b(can)f(ha)-31 b(v)g(e)p Mahogany 280 w Fs(tex)p -Black 280 w Fx(homs)280 b(sp)31 b(ecifying)280 b(ho)-31 -b(w)280 b(they)g(should)g(b)31 b(e)278 b(t)-31 b(yp)31 -b(eset:)p Black Black 1194 71377 a Fs(G)p RoyalBlue 581 -w({{)p Black Mahogany 582 w(tex)p Black 581 w(\\Gamma)p -RoyalBlue 582 w(}})p Black RoyalBlue 582 w(,)p Black -581 w(D)p RoyalBlue 581 w({{)p Black Mahogany 582 w(tex)p -Black 581 w(\\Delta)p RoyalBlue 582 w(}})p Black RoyalBlue -582 w(::)p Black 581 w('G_')p RoyalBlue 582 w(::=)p Black -RoyalBlue 4681 72705 a(|)p Black 581 w(empty)p RoyalBlue -9880 w(::)p Black RoyalBlue 1744 w(::)p Black 581 w(empty)p -RoyalBlue 4681 74033 a(|)p Black 581 w(G)581 b(,)h(x)f(:)g(T)p -RoyalBlue 7555 w(::)p Black RoyalBlue 1744 w(::)p Black -581 w(term)p Black 24533 77841 a Fx(12)p Black eop end -%%Page: 13 13 -TeXDict begin 13 12 bop Black Black 0 -594 a Fx(p)31 -b(ermitting)371 b(the)f(user)e(to)i(write)g Fs(G')p Fx(,)f -Fs(D12)h Fx(etc.)g(in)f(sym)-31 b(b)31 b(olic)371 b(terms,)f(to)g(b)31 -b(e)368 b(t)-31 b(yp)31 b(eset)370 b(as)738 b(\000)38387 --996 y Fl(0)38698 -594 y Fx(,)369 b(\001)40296 -428 y -Fu(12)41234 -594 y Fx(,)739 b(etc.)0 3169 y Fq(4.3)1495 -b(Using)499 b(the)g(L)10584 2865 y Fm(A)11177 3169 y -Fq(T)11967 3464 y(E)12761 3169 y(X)f(co)42 b(de)0 5877 -y Fx(The)326 b(generated)h(L)7528 5650 y Fu(A)8016 5877 -y Fx(T)8630 6115 y(E)9246 5877 y(X)f(co)31 b(de)326 b(can)g(b)31 -b(e)326 b(used)f(in)i(t)-31 b(w)g(o)327 b(main)h(w)-31 -b(a)g(ys.)479 b(By)326 b(default,)337 b(Ott)327 b(generates)f(a)h -(stand-alone)g(L)47562 5650 y Fu(A)48050 5877 y Fx(T)48664 -6115 y(E)49280 5877 y(X)0 7205 y(\014le,)302 b(with)285 -b(a)g(standard)f(wrapp)31 b(er)284 b(\(including)i(a)f -Fs(\\documentclass)p Fx(,)304 b(v)-61 b(arious)284 b(macro)h -(de\014nitions,)303 b(and)284 b(a)h(main)g(b)31 b(o)g(dy\),)0 -8533 y(that)370 b(giv)-31 b(es)370 b(the)g(complete)h(system)e -(de\014nition.)0 10526 y(The)460 b(default)g(header)g(can)f(b)31 -b(e)459 b(o)-31 b(v)g(erridden)460 b(b)-31 b(y)460 b(writing)1042 -b Fs(embed)582 b({{)f(tex-wrap-pre)i(...)f(}})1040 b -Fx(and)460 b(the)g(default)0 11854 y(fo)31 b(oter)247 -b(b)-31 b(y)246 b(writing)i Fs(embed)582 b({{)g(tex-wrap-post)h(...)e -(}})h Fx(.)451 b(Alternativ)-31 b(ely)-92 b(,)275 b(the)246 -b(program)h(option)h Fs(-tex_wrap)582 b(false)0 13182 -y Fx(with)291 b(the)f Fs(-tex_wrap)583 b(false)290 b -Fx(command-line)j(argumen)-31 b(t,)308 b(one)290 b(can)g(generate)h(a)f -(\014le)g(that)h(can)f(b)31 b(e)290 b(included)h(in)f(other)0 -14511 y(L)293 14284 y Fu(A)781 14511 y Fx(T)1395 14749 -y(E)2011 14511 y(X)363 b(\014les,)h(that)h(just)e(de\014nes)f(macros)i -(to)g(t)-31 b(yp)31 b(eset)364 b(v)-61 b(arious)363 b(parts)g(of)h(the) -f(system)g(\()p Fs(-tex_wrap)583 b(false)364 b Fx(o)-31 -b(v)g(errides)0 15839 y(an)g(y)370 b Fs(tex-wrap-pre/tex-wrap-post)j -Fx(em)-31 b(b)31 b(eds\).)0 17832 y(The)374 b(generated)g(L)7623 -17605 y Fu(A)8111 17832 y Fx(T)8725 18070 y(E)9341 17832 -y(X)f(output)i(is)e(factored)i(in)-31 b(to)375 b(individual)h(L)27319 -17605 y Fu(A)27807 17832 y Fx(T)28421 18070 y(E)29037 -17832 y(X)d(commands:)503 b(for)373 b(the)h(meta)-31 -b(v)-61 b(ariable)376 b(declara-)0 19160 y(tions,)388 -b(eac)-31 b(h)383 b(rule)f(of)i(the)f(syn)-31 b(tax)384 -b(de\014nition,)k(the)383 b(collected)h(syn)-31 b(tax)384 -b(\()p Fs(\\ottgrammar)p Fx(\),)389 b(eac)-31 b(h)383 -b(rule)g(of)g(the)g(inductiv)-31 b(e)0 20488 y(relation)459 -b(de\014nitions,)480 b(the)458 b(collected)g(rules)f(for)g(eac)-31 -b(h)457 b(relation,)481 b(the)457 b(collected)i(rules)d(for)h(eac)-31 -b(h)458 b Fs(defns)f Fx(blo)31 b(c)-31 b(k,)481 b(the)0 -21817 y(union)388 b(of)g(those)f(\()p Fs(\\ottdefns)p -Fx(\))j(and)d(the)g(whole)i(\()p Fs(\\ottall)p Fx(\).)548 -b(This)388 b(mak)-31 b(es)388 b(it)g(p)31 b(ossible)387 -b(to)h(quote)h(individual)g(parts)0 23145 y(of)370 b(the)f -(de\014nition,)i(p)31 b(ossibly)370 b(out-of-order,)h(in)e(a)h(pap)31 -b(er)368 b(or)h(tec)-31 b(hnical)372 b(rep)31 b(ort.)0 -25138 y(If)324 b(one)g(needs)g(to)h(include)g(more)f(than)h(one)f -(system)h(in)f(a)h(single)g(L)27424 24911 y Fu(A)27912 -25138 y Fx(T)28526 25376 y(E)29141 25138 y(X)f(do)31 -b(cumen)-31 b(t,)335 b(the)325 b Fs(ott)f Fx(pre\014x)g(can)g(b)31 -b(e)324 b(replaced)0 26466 y(using)370 b(the)f Fs(-tex_name_prefix)i -Fx(command-line)h(argumen)-31 b(t.)0 28458 y(The)522 -b(generated)g(L)7919 28232 y Fu(A)8407 28458 y Fx(T)9021 -28697 y(E)9637 28458 y(X)g(is)f(factored)i(through)f(some)g(common)i -(st)-31 b(yle)522 b(macros,)561 b(e.g.)523 b(to)f(t)-31 -b(yp)31 b(eset)523 b(a)f(commen)-31 b(t,)562 b(a)0 29787 -y(pro)31 b(duction,)341 b(and)332 b(a)g(grammar.)482 -b(If)331 b(necessary)h(these)f(can)i(b)31 b(e)331 b(rede\014ned)g(in)h -(an)p Mahogany 333 w Fs(embed)p Black 332 w Fx(blo)31 -b(c)-31 b(k)333 b(\(see)f(Section)h(8.1\).)482 b(F)-92 -b(or)0 31115 y(example,)371 b(the)f(\014le)f Fs(tests/squishtex.ott)p -Mahogany Black Mahogany 0 33108 a(embed)p Black RoyalBlue -581 34436 a({{)p Black 582 w(tex-preamble)0 35764 y(\\renewcommand{)r -(\\)p RoyalBlue([[)p Black Mahogany(TEX_NAME_PREFIX)p -Black RoyalBlue(]])p Black(grammartabular})5 b([1])1162 -37093 y({\\)q(begin{minipage})r({\\columnwidth})r(\\begin{)q(tabular})q -({ll})q(#1\\end{)q(tabular})q(\\end{)q(minipage})582 -b(})0 38421 y(\\renewcommand{)r(\\)p RoyalBlue([[)p Black -Mahogany(TEX_NAME_PREFIX)p Black RoyalBlue(]])p Black(rulehead})t([3]) -1162 39749 y({$#1$)1163 b($#2$)582 b(&)f($#3$})0 41078 -y(\\renewcommand{)r(\\)p RoyalBlue([[)p Black Mahogany(TEX_NAME_PREFIX) -p Black RoyalBlue(]])p Black(prodline})t([6])1162 42406 -y({)h(\\quad)f($#1$)h(\\)g($#2$)f(&)h(\\quad)f($#3)h(#4$)1163 -b($#5$)g($#6$})0 43735 y(\\renewcommand{)r(\\)p RoyalBlue([[)p -Black Mahogany(TEX_NAME_PREFIX)p Black RoyalBlue(]])p -Black(interrule})1162 45063 y({\\)q(\\[2.0mm]})p RoyalBlue -581 46391 a(}})p Black 0 48384 a Fx(de\014nes)294 b(a)h(more)g(compact) -i(st)-31 b(yle)295 b(for)g(grammars.)469 b(Note)296 b(that)g(the)p -RoyalBlue 295 w Fs([[)p Black Mahogany(TEX)p 30908 48384 -349 45 v 419 w(NAME)p 33651 48384 V 419 w(PREFIX)p Black -RoyalBlue(]])p Black 296 w Fx(is)f(replaced)g(b)-31 b(y)295 -b(whatev)-31 b(er)0 49712 y(pre\014x)369 b(is)g(in)g(force,)h(so)f(suc) --31 b(h)369 b(st)-31 b(yle)370 b(\014les)f(can)g(b)31 -b(e)369 b(reused)f(in)i(di\013eren)-31 b(t)369 b(con)-31 -b(texts.)0 51705 y(A)410 b(more)g(sophisticated)h(L)11038 -51478 y Fu(A)11526 51705 y Fx(T)12140 51943 y(E)12756 -51705 y(X)f(pac)-31 b(k)-61 b(age)411 b Fs(ottlayout.sty)p -Fx(,)422 b(pro)-31 b(viding)411 b(\014ne)f(con)-31 b(trol)411 -b(of)f(ho)-31 b(w)411 b(inference)f(rules)f(and)0 53033 -y(grammars)366 b(should)g(b)31 b(e)365 b(t)-31 b(yp)31 -b(eset,)367 b(is)e(con)-31 b(tained)367 b(in)f(the)f -Fs(tex)h Fx(directory)g(of)g(the)f(distribution.)493 -b(It)366 b(is)f(describ)31 b(ed)364 b(in)i(the)0 54361 -y(man)-31 b(ual)371 b(therein.)0 58686 y FC(5)1793 b(Generating)598 -b(pro)50 b(of)598 b(assistan)-50 b(t)600 b(de\014nitions)0 -61775 y Fx(T)-92 b(o)543 b(generate)f(pro)31 b(of)543 -b(assistan)-31 b(t)543 b(de\014nitions,)587 b(for)542 -b(Co)31 b(q,)587 b(Isab)31 b(elle,)586 b(and)542 b(HOL,)h(the)f -(minimal)j(Ott)e(source)e(\014le)i(of)0 63103 y(Section)414 -b(3/Figure)g(1)g(m)-31 b(ust)413 b(b)31 b(e)413 b(extended)h(with)g(a)f -(mo)31 b(dest)414 b(amoun)-31 b(t)415 b(of)f(additional)i(data,)426 -b(as)413 b(sho)-31 b(wn)414 b(in)f(Figure)g(4.)0 64432 -y(Executing)p Black Black 1743 66424 a Fs(bin/ott)1164 -b(-i)581 b(tests/test10.4.ott)1165 b(-o)582 b(out.v)1163 -b(-o)581 b(out.thy)1163 b(-o)582 b(outScript.sml)0 68417 -y Fx(generates)424 b(Co)31 b(q)424 b Fs(out.v)p Fx(,)438 -b(Isab)31 b(elle)424 b Fs(out.thy)p Fx(,)438 b(and)423 -b(HOL)h Fs(outScript.sml)p Fx(,)439 b(sho)-31 b(wn)424 -b(in)f(Figures)g(5,)438 b(6,)g(and)423 b(7.)656 b(The)0 -69745 y(additional)405 b(data)e(can)f(b)31 b(e)401 b(com)-31 -b(bined)403 b(with)g(the)f(annotations)i(for)e(L)28976 -69518 y Fu(A)29464 69745 y Fx(T)30078 69983 y(E)30694 -69745 y(X)f(of)h(the)g(previous)g(section,)411 b(but)402 -b(those)g(are)0 71073 y(omitted)407 b(here.)598 b(W)-92 -b(e)403 b(add)i(four)g(things.)599 b(First,)413 b(w)-31 -b(e)405 b(sp)31 b(ecify)405 b(pro)31 b(of)405 b(assistan)-31 -b(t)406 b(t)-31 b(yp)31 b(es)404 b(to)i(represen)-31 -b(t)403 b(ob)61 b(ject-language)0 72402 y(v)-61 b(ariables)370 -b(|)f(in)g(this)h(example,)h(c)-31 b(ho)31 b(osing)370 -b(the)g Fs(string)g Fx(t)-31 b(yp)31 b(e)369 b(of)h(Isab)31 -b(elle)370 b(and)f(HOL,)h(and)f(the)g Fs(nat)h Fx(t)-31 -b(yp)31 b(e)369 b(for)h(Co)31 b(q:)p Black 24502 77841 -a(13)p Black eop end -%%Page: 14 14 -TeXDict begin 14 13 bop Black Black Black 31 12110 50863 -45 v 31 58519 45 46410 v Black Black 408 13134 a Fw(\045)523 -b(minimal)10461 b(+)523 b(binding)g(+)g(subst)g(+)g(coq/hol/isa)p -Mahogany 408 14352 a(metavar)p Black 523 w(termvar)p -RoyalBlue(,)p Black 523 w(x)p RoyalBlue 523 w(::=)p Black -RoyalBlue 408 15569 a({{)p Black Mahogany 523 w(isa)p -Black 523 w(string)p RoyalBlue(}})p Black RoyalBlue 523 -w({{)p Black Mahogany 523 w(coq)p Black 524 w(nat)p RoyalBlue(}})p -Black RoyalBlue 523 w({{)p Black Mahogany 523 w(hol)p -Black 523 w(string)p RoyalBlue(}})p Black RoyalBlue 523 -w({{)p Black Mahogany 523 w(coq-equality)p Black RoyalBlue -524 w(}})p Black Mahogany 408 18005 a(grammar)p Black -408 19222 a(t)p RoyalBlue 523 w(::)p Black 523 w('t_')p -RoyalBlue 523 w(::=)p Black RoyalBlue 1454 20440 a(|)p -Black 523 w(x)p RoyalBlue 6276 w(::)p Black RoyalBlue -1047 w(::)p Black 523 w(Var)p RoyalBlue 1454 21658 a(|)p -Black 523 w(\\)g(x)g(.)g(t)p RoyalBlue 3138 w(::)p Black -RoyalBlue 1047 w(::)p Black 523 w(Lam)p RoyalBlue 2615 -w(\(+)p Black Mahogany 523 w(bind)p Black 523 w(x)p Mahogany -523 w(in)p Black 523 w(t)p RoyalBlue 523 w(+\))p Black -RoyalBlue 1454 22875 a(|)p Black 523 w(t)g(t')p RoyalBlue -4707 w(::)p Black RoyalBlue 1047 w(::)p Black 523 w(App)p -RoyalBlue 1454 24093 a(|)p Black 523 w(\()g(t)g(\))p -RoyalBlue 4184 w(::)p Black Mahogany 524 w(S)p Black -RoyalBlue(::)p Black 523 w(Paren)p RoyalBlue 1569 w({{)p -Black Mahogany 523 w(icho)p Black RoyalBlue 523 w([[)p -Black(t)p RoyalBlue(]])p Black RoyalBlue 1046 w(}})p -Black RoyalBlue 1454 25311 a(|)p Black 523 w({)g(t)g(/)g(x)g(})g(t')p -RoyalBlue 523 w(::)p Black Mahogany 524 w(M)p Black RoyalBlue(::)p -Black 523 w(Tsub)p RoyalBlue 2092 w({{)p Black Mahogany -523 w(icho)p Black 523 w(\(tsubst_t)p RoyalBlue 523 w([[)p -Black(t)p RoyalBlue(]])p Black RoyalBlue 524 w([[)p Black(x)p -RoyalBlue(]])p Black RoyalBlue 523 w([[)p Black(t')p -RoyalBlue(]])p Black(\))p RoyalBlue(}})p Black 408 27746 -a(v)p RoyalBlue 523 w(::)p Black 523 w('v_')p RoyalBlue -523 w(::=)p Black RoyalBlue 1454 28964 a(|)p Black 523 -w(\\)g(x)g(.)g(t)p RoyalBlue 3138 w(::)p Black RoyalBlue -1047 w(::)p Black 523 w(Lam)p Mahogany 408 31399 a(subrules)p -Black 1454 32617 a(v)p RoyalBlue 523 w(<::)p Black 523 -w(t)p Mahogany 408 35052 a(substitutions)p Black Mahogany -1454 36270 a(single)p Black 523 w(t)g(x)p RoyalBlue 523 -w(::)p Black 523 w(tsubst)p Mahogany 408 38705 a(defns)p -Black 408 39923 a(Jop)p RoyalBlue 523 w(::)p Black 523 -w('')p RoyalBlue 523 w(::=)p Black Mahogany 931 42358 -a(defn)p Black 931 43575 a(t1)g(-->)g(t2)p RoyalBlue -523 w(::)p Black RoyalBlue 523 w(::)p Black(reduce)p -RoyalBlue(::)p Black('')p Mahogany 1047 w(by)p Black -RoyalBlue 2500 47228 a(--------------------------)p Black -1047 w(::)g(ax_app)2500 48446 y(\(\\x.t12\))g(v2)g(-->)1047 -b({v2/x}t12)2500 50881 y(t1)523 b(-->)g(t1')p RoyalBlue -2500 52099 a(--------------)p Black 523 w(::)h(ctx_app_fun)2500 -53317 y(t1)f(t)g(-->)g(t1')g(t)2500 55752 y(t1)g(-->)g(t1')p -RoyalBlue 2500 56970 a(--------------)p Black 523 w(::)h(ctx_app_arg) -2500 58187 y(v)f(t1)g(-->)g(v)g(t1')p 50850 58519 V 31 -58563 50863 45 v Black 17176 60538 a Fx(Figure)370 b(4:)493 -b(Source:)f Fs(test10.4.ott)p Black Black Black 24533 -77841 a Fx(14)p Black eop end -%%Page: 15 15 -TeXDict begin 15 14 bop Black Black Black Black Mahogany -1162 -594 a Fs(metavar)p Black 582 w(termvar)p RoyalBlue(,)p -Black 583 w(x)p RoyalBlue 581 w(::=)p Black RoyalBlue -1162 735 a({{)p Black Mahogany 582 w(isa)p Black 581 -w(string)p RoyalBlue(})q(})p Black RoyalBlue 582 w({{)p -Black Mahogany 581 w(coq)p Black 582 w(nat)p RoyalBlue(}})p -Black RoyalBlue 582 w({{)p Black Mahogany 581 w(hol)p -Black 582 w(string)p RoyalBlue(})q(})p Black RoyalBlue -581 w({{)p Black Mahogany 581 w(coq-equality)p Black -RoyalBlue 583 w(})q(})p Black 0 2727 a Fx(F)-92 b(or)465 -b(Co)31 b(q)466 b(output,)491 b(one)465 b(can)h(sp)31 -b(ecify)465 b Fs({{)582 b(coq-equality)467 b Fo(pr)-57 -b(o)g(of-script)570 b Fs(}})465 b Fx(to)h(build)h(a)e(decidable)i -(equalit)-31 b(y)467 b(o)-31 b(v)g(er)0 4055 y(the)386 -b(Co)31 b(q)387 b(represen)-31 b(tation)387 b(t)-31 b(yp)31 -b(e)386 b(using)g(the)g(pro)31 b(of)387 b Fo(pr)-57 b(o)g(of-script)p -Fx(.)542 b(If)386 b(the)g(script)g(is)f(omitted,)393 -b(as)386 b(in)g(this)g(example,)392 b(it)0 5384 y(defaults)370 -b(to)p Black Black 0 7376 a Fs(Proof.)1162 8705 y(decide)582 -b(equality;)h(auto)f(with)f(ott_coq_equality)j(arith.)0 -10033 y(Defined.)0 12026 y Fx(where)528 b(the)h Fs(ott_coq_equality)h -Fx(database)g(con)-31 b(tains)530 b(the)f(decidable)g(equalities)i(of)e -(the)f(represen)-31 b(tation)530 b(t)-31 b(yp)31 b(es)0 -13354 y(de\014ned)277 b(in)g(the)g(source.)461 b(It)277 -b(is)g(p)31 b(ossible)277 b(to)g(suppress)e(t)-31 b(yp)31 -b(e)278 b(generation)g(for)f(sp)31 b(eci\014c)277 b(meta)-31 -b(v)-61 b(ariables)279 b(or)d(non)-31 b(terminals,)0 -14682 y(b)g(y)386 b(adding)h(the)f(declaration)i Fs({{)582 -b(phantom)g(}})p Fx(.)543 b(This)386 b(is)g(useful)g(in)g(some)g -(cases,)k(for)c(instance)h(to)g(a)-31 b(v)g(oid)387 b(duplicate)0 -16011 y(de\014nitions)360 b(of)e(t)-31 b(yp)31 b(es)359 -b(already)g(de\014ned)f(in)g(an)h(imp)31 b(orted)359 -b(library)-92 b(.)490 b(An)-31 b(y)358 b(t)-31 b(yp)31 -b(e)359 b(homs)g(are)f(tak)-31 b(en)359 b(in)-31 b(to)360 -b(accoun)-31 b(t)360 b(when)0 17339 y(the)369 b(meta)-31 -b(v)-61 b(ariable)372 b(or)d(non)-31 b(terminal)372 b(ro)31 -b(ot)370 b(is)f(output)h(as)f(a)h(t)-31 b(yp)31 b(e.)0 -19331 y(Second,)346 b(w)-31 b(e)340 b(sp)31 b(ecify)340 -b(what)h(the)f(binding)h(is)f(in)g(the)g(ob)61 b(ject)341 -b(language,)348 b(with)341 b(the)p RoyalBlue 340 w Fs(\(+)p -Black Mahogany 581 w(bind)p Black 582 w(x)p Mahogany -581 w(in)p Black 582 w(t)p RoyalBlue 581 w(+\))p Black -340 w Fx(annotation)0 20660 y(on)369 b(the)h Fs(Lam)f -Fx(pro)31 b(duction:)p Black Black RoyalBlue 1162 22652 -a Fs(|)p Black 582 w(\\)581 b(x)g(.)g(t)p RoyalBlue 3488 -w(::)p Black RoyalBlue 1162 w(::)p Black 582 w(Lam)p -RoyalBlue 2906 w(\(+)p Black Mahogany 581 w(bind)p Black -582 w(x)p Mahogany 581 w(in)p Black 582 w(t)p RoyalBlue -581 w(+\))p Black 0 24645 a Fx(Section)370 b(9)g(describ)31 -b(es)368 b(the)h(full)h(language)i(of)d(binding)i(sp)31 -b(eci\014cations.)0 26637 y(Third,)370 b(w)-31 b(e)370 -b(add)f(a)h(blo)31 b(c)-31 b(k)p Black Black Mahogany -1162 28630 a Fs(substitutions)p Black Mahogany 2325 29958 -a(single)p Black 582 w(t)581 b(x)p RoyalBlue 581 w(::)p -Black 582 w(tsubst)0 31951 y Fx(to)260 b(cause)f(Ott)g(to)h(generate)g -(Co)31 b(q/Isab)g(elle/HOL)261 b(de\014nitions)g(of)e(a)g(substitution) -i(function,)283 b(with)261 b(name)e(ro)31 b(ot)260 b -Fs(tsubst)p Fx(,)0 33279 y(replacing)450 b(meta)-31 b(v)-61 -b(ariables)452 b Fs(x)d Fx(b)-31 b(y)449 b(terms)g Fs(t)p -Fx(.)732 b(This)450 b(is)f(for)g(single)h(substitutions;)491 -b(m)-31 b(ultiple)451 b(substitution)g(functions)0 34608 -y(\(taking)371 b(lists)d(of)h(substitutand/substitutee)i(pairs\))d(can) -h(also)g(b)31 b(e)367 b(generated)i(with)g(the)g(k)-31 -b(eyw)g(ord)p Mahogany 369 w Fs(multiple)p Black Fx(.)493 -b(Sub-)0 35936 y(stitution)370 b(functions)e(are)g(generated)g(for)f -(all)i(rules)e(of)h(the)g(grammar)h(for)e(whic)-31 b(h)369 -b(they)f(migh)-31 b(t)369 b(b)31 b(e)367 b(required)g(|)g(here,)0 -37264 y(just)i(o)-31 b(v)g(er)370 b Fs(t)p Fx(,)g(with)g(a)g(function)g -(named)g Fs(tsubst_t)p Fx(.)0 39257 y(Finally)-92 b(,)371 -b(w)-31 b(e)370 b(sp)31 b(ecify)369 b(translations)i(for)e(the)h -(metapro)31 b(ductions:)p Black Black RoyalBlue 1162 -41249 a Fs(|)p Black 582 w(\()581 b(t)g(\))p RoyalBlue -4650 w(::)p Black Mahogany 581 w(S)p Black RoyalBlue(::)p -Black 582 w(Paren)p RoyalBlue 1744 w({{)p Black Mahogany -581 w(icho)p Black RoyalBlue 582 w([[)p Black(t)p RoyalBlue(]])p -Black RoyalBlue 1163 w(}})p Black RoyalBlue 1162 42578 -a(|)p Black 582 w({)g(t)g(/)g(x)h(})f(t')p RoyalBlue -582 w(::)p Black Mahogany 581 w(M)p Black RoyalBlue(::)p -Black 582 w(Tsub)p RoyalBlue 2325 w({{)p Black Mahogany -581 w(icho)p Black 582 w(\(tsubst_t)p RoyalBlue 582 w([[)p -Black(t)p RoyalBlue(]])p Black RoyalBlue 582 w([[)p Black(x)p -RoyalBlue(]])p Black RoyalBlue 582 w([[)p Black(t')p -RoyalBlue(]])p Black(\))p RoyalBlue(})q(})p Black 0 44570 -a Fx(These)409 b(sp)31 b(ecify)409 b(that)h Fs(\(t\))g -Fx(should)f(b)31 b(e)408 b(translated)j(in)-31 b(to)410 -b(just)g(the)f(translation)i(of)496 b Fs(t)p Fx(,)419 -b(whereas)409 b Fs({t/x})q(t')g Fx(should)h(b)31 b(e)0 -45898 y(translated)495 b(in)-31 b(to)496 b(the)e(pro)31 -b(of-assistan)-31 b(t)496 b(application)h(of)581 b Fs(tsubst)p -28191 45898 349 45 v 419 w(t)494 b Fx(to)h(the)f(translations)i(of)581 -b Fs(t)p Fx(,)526 b Fs(x)p Fx(,)f(and)495 b Fs(t')p Fx(.)867 -b(The)0 47227 y(\(admittedly)503 b(terse\))p Mahogany -499 w Fs(icho)p Black 500 w Fx(sp)31 b(eci\014es)498 -b(that)j(these)e(translations)i(should)f(b)31 b(e)498 -b(done)i(uniformly)h(for)e(Isab)31 b(elle,)533 b(Co)31 -b(q,)0 48555 y(HOL,)387 b(and)h(OCaml)g(output.)548 b(One)386 -b(can)i(also)f(sp)31 b(ecify)388 b(just)f(one)g(of)g(these,)392 -b(writing)p RoyalBlue 404 w Fs({)q({)p Black Mahogany -581 w(coq)p Black 581 w Fn(:)184 b(:)g(:)p RoyalBlue -3 w Fs(}})p Black Fx(,)p RoyalBlue 392 w Fs({{)p Black -Mahogany 581 w(hol)p Black 582 w Fn(:)g(:)g(:)p RoyalBlue -2 w Fs(})q(})p Black Fx(,)p RoyalBlue 0 49884 a Fs({{)p -Black Mahogany 581 w(isa)p Black 582 w Fn(:)g(:)g(:)p -RoyalBlue 2 w Fs(})q(})p Black Fx(,)344 b(or)p RoyalBlue -338 w Fs({{)p Black Mahogany 581 w(ocaml)p Black 582 -w Fn(:)184 b(:)g(:)p RoyalBlue 3 w Fs(}})p Black Fx(,)345 -b(or)337 b(include)i(sev)-31 b(eral,)345 b(with)339 b(di\013eren)-31 -b(t)338 b(translations)i(for)e(eac)-31 b(h.)483 b(There)337 -b(are)h(also)0 51212 y(abbreviated)479 b(forms)p Mahogany -478 w Fs(ich)p Black Fx(,)p Mahogany 506 w Fs(ic)p Black -Fx(,)p Mahogany 505 w Fs(ch)p Black Fx(,)505 b(and)p -Mahogany 478 w Fs(ih)p Black Fx(.)818 b(The)478 b(b)31 -b(o)g(dy)478 b(of)g(a)g(pro)31 b(of)478 b(assistan)-31 -b(t)479 b(hom)g(should)f(normally)h(include)0 52540 y(outer)389 -b(paren)-31 b(theses,)395 b(as)389 b(in)g(the)h Fs(Tsub)f -Fx(hom)h(ab)31 b(o)-31 b(v)g(e,)396 b(so)389 b(that)h(it)g(is)f(parsed) -g(correctly)h(b)-31 b(y)389 b(the)g(pro)31 b(of)390 b(assistan)-31 -b(t)390 b(in)g(all)0 53869 y(con)-31 b(texts.)0 57631 -y Fq(5.1)1495 b(Pro)42 b(of)498 b(assistan)-42 b(t)501 -b(co)42 b(de)498 b(for)h(grammar)h(rules)0 60339 y Fx(The)458 -b(normal)h(b)31 b(eha)-31 b(viour)458 b(is)g(to)g(generate)g(a)g(free)f -(pro)31 b(of)458 b(assistan)-31 b(t)459 b(t)-31 b(yp)31 -b(e)458 b(for)g(eac)-31 b(h)458 b(\(non-subrule,)480 -b(non-phan)-31 b(tom\))0 61667 y(grammar)290 b(rule.)466 -b(F)-92 b(or)288 b(example,)307 b(the)290 b(Co)31 b(q)289 -b(compilation)k(for)c Fs(t)g Fx(here)g(generates)g(a)g(free)g(t)-31 -b(yp)31 b(e)289 b(with)i(three)e(constructors:)p Black -Black 1162 63660 a Fs(Inductive)583 b(term)f(:)f(Set)g(:=)1743 -64988 y(|)h(t_var)g(\(x:var\))1743 66317 y(|)g(t_lam)g(\(x:var\))g -(\(t:term\))1743 67645 y(|)g(t_app)g(\(t:term\))g(\(t':term\).)0 -69637 y Fx(\(note)370 b(that)h(the)e(metapro)31 b(ductions)371 -b(do)f(not)g(giv)-31 b(e)370 b(rise)f(to)h(constructors\).)0 -71630 y(Remark:)493 b(prior)369 b(to)h(v)-31 b(ersion)370 -b(0.20.2,)i(the)d(free)g(t)-31 b(yp)31 b(e)370 b(generated)g(for)f(Co) -31 b(q)370 b(w)-31 b(as)p Black 24502 77841 a(15)p Black -eop end -%%Page: 16 16 -TeXDict begin 16 15 bop Black Black Black 31 -1290 50863 -45 v 31 71908 45 73198 v Black Black 408 -266 a Fw(\(*)523 -b(generated)g(by)g(Ott)h(0.28)f(from:)g(../tests/test10.ott)h -(../tests/non_super_tabular.ott)g(*\))408 2169 y(Require)f(Import)g -(Arith.)408 3387 y(Require)g(Import)g(Bool.)408 4604 -y(Require)g(Import)g(List.)408 8257 y(Definition)g(var)g(:=)g(nat.)h -(\(*r)f(term)g(variable)g(*\))408 9475 y(Lemma)g(eq_var:)g(forall)h -(\(x)f(y)g(:)g(var\),)g({x)g(=)g(y})g(+)g({x)g(<>)g(y}.)408 -10693 y(Proof.)1454 11910 y(decide)g(equality;)g(auto)h(with)f -(ott_coq_equality)g(arith.)408 13128 y(Defined.)408 14346 -y(Hint)g(Resolve)g(eq_var)h(:)f(ott_coq_equality.)408 -16781 y(Inductive)g(term)g(:)g(Set)h(:=)1046 b(\(*r)523 -b(term)g(*\))931 17999 y(|)g(t_var)g(\(x:var\))g(\(*r)h(variable)f(*\)) -931 19216 y(|)g(t_lam)g(\(x:var\))g(\(t:term\))h(\(*r)f(lambda)g(*\)) -931 20434 y(|)g(t_app)g(\(t:term\))g(\(t':term\))h(\(*r)f(app)g(*\).) -408 22869 y(\(**)g(subrules)g(*\))408 24087 y(Definition)g -(is_val_of_term)h(\(t5:term\))f(:)g(Prop)g(:=)1454 25304 -y(match)g(t5)g(with)1454 26522 y(|)g(\(t_var)g(x\))g(=>)g(False)1454 -27740 y(|)g(\(t_lam)g(x)g(t\))g(=>)g(\(True\))1454 28957 -y(|)g(\(t_app)g(t)g(t'\))g(=>)h(False)408 30175 y(end.)408 -32610 y(\(**)f(library)g(functions)h(*\))408 33828 y(Fixpoint)f -(list_mem)g(A)h(\(eq:forall)f(a)g(b:A,{a=b}+{a<>b}\))h(\(x:A\))f -(\(l:list)g(A\))g({struct)g(l})g(:)g(bool)h(:=)1454 35046 -y(match)f(l)g(with)1454 36263 y(|)g(nil)g(=>)g(false)1454 -37481 y(|)g(cons)g(h)g(t)g(=>)g(if)g(eq)h(h)f(x)g(then)g(true)g(else)g -(list_mem)g(A)h(eq)f(x)g(t)408 38699 y(end.)408 39916 -y(Implicit)g(Arguments)g(list_mem.)408 43569 y(\(**)g(substitutions)g -(*\))408 44787 y(Fixpoint)g(tsubst_term)h(\(t5:term\))f(\(x5:var\))g -(\(t_6:term\))h({struct)f(t_6})g(:)g(term)g(:=)1454 46005 -y(match)g(t_6)g(with)1454 47222 y(|)g(\(t_var)g(x\))g(=>)g(\(if)h -(eq_var)f(x)g(x5)g(then)g(t5)g(else)g(\(t_var)h(x\)\))1454 -48440 y(|)f(\(t_lam)g(x)g(t\))g(=>)g(t_lam)h(x)f(\(if)g(list_mem)g -(eq_var)g(x5)g(\(cons)h(x)f(nil\))g(then)g(t)g(else)g(\(tsubst_term)h -(t5)f(x5)g(t\)\))1454 49658 y(|)g(\(t_app)g(t)g(t'\))g(=>)h(t_app)f -(\(tsubst_term)g(t5)g(x5)g(t\))g(\(tsubst_term)h(t5)f(x5)g(t'\))408 -50875 y(end.)408 53311 y(\(**)g(definitions)g(*\))408 -55746 y(\(*)g(defns)g(Jop)g(*\))408 56964 y(Inductive)g(reduce)g(:)g -(term)h(->)f(term)g(->)g(Prop)g(:=)2092 b(\(*)523 b(defn)h(reduce)f -(*\))931 58181 y(|)g(ax_app)g(:)g(forall)g(\(x:var\))h(\(t1)f -(v2:term\),)3023 59399 y(is_val_of_term)h(v2)f(->)3023 -60617 y(reduce)g(\(t_app)1047 b(\(t_lam)523 b(x)g(t1\))1046 -b(v2\))g(\(tsubst_term)h(v2)1569 b(x)g(t1)523 b(\))931 -61834 y(|)g(ctx_app_fun)g(:)g(forall)h(\(t1)f(t)g(t1':term\),)3023 -63052 y(reduce)g(t1)g(t1')g(->)3023 64269 y(reduce)g(\(t_app)g(t1)h -(t\))f(\(t_app)g(t1')g(t\))931 65487 y(|)g(ctx_app_arg)g(:)g(forall)h -(\(v)f(t1)g(t1':term\),)3023 66705 y(is_val_of_term)h(v)f(->)3023 -67922 y(reduce)g(t1)g(t1')g(->)3023 69140 y(reduce)g(\(t_app)g(v)h -(t1\))f(\(t_app)g(v)g(t1'\).)p 50850 71908 V 31 71952 -50863 45 v Black 16521 73938 a Fx(Figure)369 b(5:)493 -b(Generated)369 b(Co)31 b(q:)p Fs(test10.v)p Black Black -Black 24533 77841 a Fx(16)p Black eop end -%%Page: 17 17 -TeXDict begin 17 16 bop Black Black Black 0 5392 50863 -45 v 0 65195 45 59804 v Black Black 376 6415 a Fw(\(*)523 -b(generated)h(by)f(Ott)g(0.28)g(from:)g(../tests/test10.ott)h -(../tests/non_super_tabular.ott)g(*\))376 7633 y(theory)g(test10)376 -8851 y(imports)g(Main)376 10068 y(begin)376 12504 y(type_synonym)g -("var")f(=)g("string")g(--)g({*)h(term)f(variable)g(*})376 -13721 y(datatype)h("term")f(=)1046 b(--)523 b({*)g(term)g(*})1945 -14939 y(t_var)h("var")1569 b(--)523 b({*)g(variable)g(*})899 -16157 y(|)g(t_lam)h("var")f("term")1569 b(--)523 b({*)g(lambda)h(*})899 -17374 y(|)f(t_app)h("term")f("term")1569 b(--)523 b({*)g(app)h(*})376 -21027 y(\(**)f(subrules)h(*\))376 22245 y(primrec)376 -23463 y(is_val_of_term)g(::)f("term)g(=>)g(bool")376 -24680 y(where)376 25898 y("is_val_of_term)h(\(t_var)f(x\))g(=)g -(\(False\)")376 27116 y(|)g("is_val_of_term)h(\(t_lam)f(x)g(t\))g(=)g -(\(\(True\)\)")376 28333 y(|)g("is_val_of_term)h(\(t_app)f(t)g(t'\))g -(=)g(\(False\)")376 31986 y(\(**)g(substitutions)h(*\))376 -33204 y(primrec)376 34422 y(tsubst_term)g(::)f("term)g(=>)g(var)g(=>)g -(term)h(=>)f(term")376 35639 y(where)376 36857 y("tsubst_term)h(t5)f -(x5)g(\(t_var)g(x\))g(=)g(\(\(if)h(x=x5)f(then)g(t5)g(else)g(\(t_var)g -(x\)\)\)")376 38075 y(|)g("tsubst_term)h(t5)f(x5)g(\(t_lam)g(x)g(t\))g -(=)h(\(t_lam)f(x)g(\(if)g(x5)g(:)g(set)g([x])g(then)h(t)f(else)g -(\(tsubst_term)g(t5)g(x5)g(t\)\)\)")376 39292 y(|)g("tsubst_term)h(t5)f -(x5)g(\(t_app)g(t)g(t'\))g(=)h(\(t_app)f(\(tsubst_term)g(t5)g(x5)g(t\)) -g(\(tsubst_term)h(t5)f(x5)g(t'\)\)")376 41727 y(\(**)g(definitions)h -(*\))376 42945 y(\(*)f(defns)h(Jop)f(*\))376 44163 y(inductive)h -(reduce)f(::)g("term)g(\\)h(term)f(\\)g(bool") -376 45380 y(where)376 46598 y(\(*)g(defn)h(reduce)f(*\))376 -49033 y(ax_appI:)h("\\is_val_of_term)f(v2\\)h -(\\)376 50251 y(reduce)g(\(\(t_app)1046 -b(\(t_lam)523 b(x)g(t1\))1046 b(v2\)\))524 b(\()f(\(tsubst_term)1046 -b(v2)1569 b(x)g(t1)523 b(\))g(\)")376 52686 y(|)g(ctx_app_funI:)h -("\\reduce)f(\(t1\))h(\(t1'\)\\)f(\\) -376 53904 y(reduce)h(\(\(t_app)f(t1)g(t\)\))g(\(\(t_app)g(t1')g(t\)\)") -376 56339 y(|)g(ctx_app_argI:)h("\\is_val_of_term)g(v)f(;)376 -57557 y(reduce)h(\(t1\))f(\(t1'\)\\)g(\\)376 -58775 y(reduce)h(\(\(t_app)f(v)g(t1\)\))g(\(\(t_app)g(v)g(t1'\)\)")376 -61210 y(end)p 50819 65195 V 0 65239 50863 45 v Black -15075 67226 a Fx(Figure)369 b(6:)493 b(Generated)369 -b(Isab)31 b(elle:)p Fs(test10.thy)p Black Black Black -24502 77841 a Fx(17)p Black eop end -%%Page: 18 18 -TeXDict begin 18 17 bop Black Black Black 31 -1657 50863 -45 v 31 75194 45 76851 v Black Black 408 -633 a Fw(\(*)523 -b(generated)g(by)g(Ott)h(0.28)f(from:)g(../tests/test10.ott)h -(../tests/non_super_tabular.ott)g(*\))408 585 y(\(*)f(to)g(compile:)g -(Holmake)h(test10Theory.uo)1569 b(*\))408 1803 y(\(*)523 -b(for)g(interactive)g(use:)1454 3020 y(app)g(load)g -(["pred_setTheory","finite_mapTheory","stringTheory","containerTheor)p -(y","ottLib"];)408 4238 y(*\))408 6673 y(open)g(HolKernel)g(boolLib)h -(Parse)f(bossLib)g(ottLib;)408 7891 y(infix)g(THEN)g(THENC)g(|->)h(##)f -(;)408 9109 y(local)g(open)g(arithmeticTheory)h(stringTheory)f -(containerTheory)h(pred_setTheory)f(listTheory)1454 10326 -y(finite_mapTheory)g(in)h(end;)408 12762 y(val)f(_)g(=)g(new_theory)g -("test10";)408 16415 y(val)g(_)g(=)g(type_abbrev\("var",)h -(``:string``\);)f(\(*)g(term)g(variable)h(*\))408 17632 -y(val)f(_)g(=)g(Hol_datatype)h(`)408 18850 y(term)f(=)1046 -b(\(*)523 b(term)g(*\))1977 20068 y(t_var)g(of)g(var)g(\(*)g(variable)h -(*\))931 21285 y(|)f(t_lam)g(of)g(var)g(=>)g(term)h(\(*)f(lambda)g(*\)) -931 22503 y(|)g(t_app)g(of)g(term)g(=>)h(term)f(\(*)g(app)g(*\))408 -23721 y(`;)408 26156 y(\(**)g(subrules)g(*\))408 27374 -y(val)g(_)g(=)g(ottDefine)g("is_val_of_term")h(`)2500 -28591 y(\()f(is_val_of_term)h(\(t_var)f(x\))g(=)g(F\))408 -29809 y(/\\)1046 b(\()523 b(is_val_of_term)h(\(t_lam)f(x)g(t\))g(=)g -(\(T\)\))408 31026 y(/\\)1046 b(\()523 b(is_val_of_term)h(\(t_app)f(t)g -(t'\))g(=)g(F\))408 32244 y(`;)408 34679 y(\(**)g(substitutions)g(*\)) -408 35897 y(val)g(_)g(=)g(ottDefine)g("tsubst_term")h(`)2500 -37115 y(\()f(tsubst_term)g(t5)h(x5)f(\(t_var)g(x\))g(=)g(\(if)g(x=x5)g -(then)g(t5)h(else)f(\(t_var)g(x\)\)\))408 38332 y(/\\)1046 -b(\()523 b(tsubst_term)g(t5)h(x5)f(\(t_lam)g(x)g(t\))g(=)g(t_lam)g(x)g -(\(if)g(MEM)h(x5)f([x])g(then)g(t)g(else)g(\(tsubst_term)h(t5)f(x5)g -(t\)\)\))408 39550 y(/\\)1046 b(\()523 b(tsubst_term)g(t5)h(x5)f -(\(t_app)g(t)g(t'\))g(=)g(t_app)g(\(tsubst_term)h(t5)f(x5)g(t\))g -(\(tsubst_term)g(t5)h(x5)f(t'\)\))408 40768 y(`;)408 -41985 y(\(**)g(definitions)g(*\))408 43203 y(\(*)g(defns)g(Jop)g(*\)) -408 45638 y(val)g(\(Jop_rules,)g(Jop_ind,)h(Jop_cases\))f(=)g -(Hol_reln`)408 46856 y(\(*)g(defn)g(reduce)g(*\))408 -49291 y(\()g(\(*)g(ax_app)g(*\))g(!)g(\(x:var\))h(\(t1:term\))f -(\(v2:term\))g(.)g(\(clause_name)h("ax_app"\))f(/\\)408 -50509 y(\(\(is_val_of_term)g(v2\)\))931 51727 y(==>)408 -52944 y(\()g(\()g(reduce)g(\(t_app)1046 b(\(t_lam)524 -b(x)f(t1\))1046 b(v2\))g(\(tsubst_term)h(v2)1569 b(x)g(t1)523 -b(\))1046 b(\)\)\))408 55380 y(/\\)523 b(\()g(\(*)g(ctx_app_fun)h(*\))f -(!)g(\(t1:term\))g(\(t:term\))g(\(t1':term\))h(.)f(\(clause_name)g -("ctx_app_fun"\))h(/\\)408 56597 y(\(\()f(\()g(reduce)g(t1)g(t1')g -(\)\)\))931 57815 y(==>)408 59033 y(\()g(\()g(reduce)g(\(t_app)g(t1)h -(t\))f(\(t_app)g(t1')g(t\))g(\)\)\))408 61468 y(/\\)g(\()g(\(*)g -(ctx_app_arg)h(*\))f(!)g(\(v:term\))g(\(t1:term\))g(\(t1':term\))h(.)f -(\(clause_name)g("ctx_app_arg"\))h(/\\)408 62686 y(\(\(is_val_of_term)f -(v\))h(/\\)408 63903 y(\()f(\()g(reduce)g(t1)g(t1')g(\)\)\))931 -65121 y(==>)408 66339 y(\()g(\()g(reduce)g(\(t_app)g(v)h(t1\))f -(\(t_app)g(v)g(t1'\))g(\)\)\))408 68774 y(`;)408 71209 -y(val)g(_)g(=)g(export_theory)h(\(\);)p 50850 75194 V -31 75238 50863 45 v Black 13989 77225 a Fx(Figure)369 -b(7:)493 b(Generated)369 b(HOL:)p Fs(test10Script.sml)p -Black Black Black 24533 77841 a Fx(18)p Black eop end -%%Page: 19 19 -TeXDict begin 19 18 bop Black Black Black Black 1162 --594 a Fs(Inductive)583 b(term)f(:)f(Set)g(:=)1743 735 -y(|)h(t_var)g(:)f(var)h(->)f(term)1743 2063 y(|)h(t_lam)g(:)f(var)h(->) -f(term)h(->)f(term)1743 3391 y(|)h(t_app)g(:)f(term)h(->)f(term)h(->)f -(term.)0 5384 y Fx(but)347 b(w)-31 b(e)347 b(found)g(that)g(trying)h -(to)f(preserv)-31 b(e)346 b(the)g(names)h(sp)31 b(eci\014ed)346 -b(b)-31 b(y)347 b(the)g(user)e(is)h(helpful)i(later,)k(when)347 -b(doing)h(pro)31 b(ofs.)0 6712 y(Whenev)-31 b(er)306 -b(a)g(clash)h(is)f(detected,)320 b(or)306 b(for)g(list)h(forms,)319 -b(the)307 b(wildcard)p 28807 6712 349 45 v 1032 w(is)f(used.)471 -b(The)306 b(old)h(b)31 b(eha)-31 b(viour)307 b(can)g(b)31 -b(e)305 b(obtained)0 8040 y(via)370 b(the)g(top-lev)-31 -b(el)371 b(option)g Fs(-coq)p 14048 8040 V 419 w(names)p -17372 8040 V 419 w(in)p 18953 8040 V 419 w(rules)582 -b(false)p Fx(.)0 10033 y(By)415 b(default)i(the)e(order)f(of)i(the)f -(argumen)-31 b(ts)416 b(to)g(those)g(constructors)f(follo)-31 -b(ws)417 b(the)e(order)g(in)g(whic)-31 b(h)416 b(they)g(app)31 -b(ear)415 b(in)0 11361 y(the)388 b(pro)31 b(duction.)550 -b(That)389 b(can)f(b)31 b(e)388 b(o)-31 b(v)g(erridden)388 -b(with)i(an)e Fs(order)g Fx(hom.)550 b(F)-92 b(or)387 -b(example,)395 b(if)388 b(for)g(some)h(reason)e(\(p)31 -b(erhaps)0 12690 y(compatibilit)-31 b(y)374 b(with)c(other)g(Co)31 -b(q)370 b(co)31 b(de\))369 b(one)h(wished)f(the)h(argumen)-31 -b(ts)370 b(to)g Fs(t_Lam)g Fx(to)g(b)31 b(e)368 b(rev)-31 -b(ersed:)p Black Black 1743 14682 a Fs(|)582 b(t_Lam)g(:)f(t)g(->)h -(termvar)g(->)f(t)0 16675 y Fx(one)369 b(could)h(add)g(an)p -Mahogany 369 w Fs(order)p Black 370 w Fx(hom)g(as)f(b)31 -b(elo)-31 b(w.)p Black Black RoyalBlue 1162 18667 a Fs(|)p -Black 582 w(\\)581 b(x)g(.)g(t)p RoyalBlue 3488 w(::)p -Black RoyalBlue 1162 w(::)p Black 582 w(Lam)p RoyalBlue -1162 w({{)p Black Mahogany 582 w(order)p Black RoyalBlue -582 w([[)p Black(t)p RoyalBlue(]])p Black RoyalBlue 582 -w([[)p Black(x)p RoyalBlue(]])p Black RoyalBlue 581 w(})q(})p -Black 0 20660 a Fx(Instead)502 b(of)g(using)g(the)g(generated)h(free)e -(t)-31 b(yp)31 b(e,)536 b(one)502 b(can)g(sp)31 b(ecify)502 -b(an)g(arbitrary)h(pro)31 b(of)502 b(assistan)-31 b(t)503 -b(represen)-31 b(tation)0 21988 y(t)g(yp)31 b(e,)358 -b(annotating)f(the)d(grammar)h(rule)f(with)h(a)p Mahogany -354 w Fs(coq)p Black Fx(,)p Mahogany 358 w Fs(isa)p Black -Fx(,)p Mahogany 358 w Fs(hol)p Black Fx(,)j(or)p Mahogany -353 w Fs(ocaml)p Black 355 w Fx(hom)c(|)g(for)g(example,)359 -b(in)354 b(the)g(follo)-31 b(wing)0 23317 y(grammar)370 -b(for)g(substitutions.)p Black Black 1162 25309 a Fs(s)p -RoyalBlue 582 w({{)p Black Mahogany 581 w(tex)p Black -582 w(\\sigma)p RoyalBlue 582 w(}})p Black RoyalBlue -581 w(::)p Black 582 w('S_')p RoyalBlue 581 w(::=)p Black -RoyalBlue 582 w({{)p Black Mahogany 581 w(com)p Black -582 w(multiple)582 b(subst)p RoyalBlue 582 w(}})p Black -RoyalBlue 582 w({{)p Black Mahogany 581 w(isa)p Black -582 w(\(termvar*t\))g(list)p RoyalBlue 582 w(}})p Black -RoyalBlue 4068 26637 a(|)p Black 581 w([)g(x)f(|->)h(t)f(])p -RoyalBlue 6974 w(::)p Black RoyalBlue 1744 w(::)p Black -581 w(singleton)p RoyalBlue 1745 w({{)p Black Mahogany -581 w(isa)p Black 582 w([)g(\()p RoyalBlue([[)p Black(x)p -RoyalBlue(]])p Black(,)p RoyalBlue([[)p Black(t)p RoyalBlue(]])p -Black(\))i(])p RoyalBlue 1163 w(}})p Black RoyalBlue -4068 27966 a(|)p Black 581 w(s1)f(,)p RoyalBlue 581 w(..)p -Black 582 w(,)f(sn)p RoyalBlue 6393 w(::)p Black RoyalBlue -1744 w(::)p Black 581 w(list)p RoyalBlue 4650 w({{)p -Black Mahogany 581 w(isa)p Black 582 w(List.concat)p -RoyalBlue 583 w([[)p Black(s1)p RoyalBlue 581 w(..)p -Black 582 w(sn)p RoyalBlue(]])p Black RoyalBlue 582 w(}})p -Black 0 29958 a Fx(Here)399 b(the)p RoyalBlue 400 w Fs({)q({)p -Black Mahogany 581 w(isa)p Black 582 w(\(termvar*t\))582 -b(list)p RoyalBlue 582 w(}})p Black 400 w Fx(hom)401 -b(sp)31 b(eci\014es)399 b(that)i(in)f(Isab)31 b(elle)400 -b(output)h(this)f(t)-31 b(yp)31 b(e)401 b(b)31 b(e)399 -b(represen)-31 b(ted)0 31287 y(as)516 b(an)g(Isab)31 -b(elle)516 b Fs(\(termvar*t\))583 b(list)516 b Fx(instead)h(of)f(the)g -(default)i(free)d(inductiv)-31 b(e)517 b(t)-31 b(yp)31 -b(e;)591 b(all)517 b(the)f(pro)31 b(ductions)516 b(are)0 -32615 y(metapro)31 b(ductions)264 b(\(tagged)p Mahogany -264 w Fs(M)p Black Fx(\);)f(and)p Mahogany 262 w Fs(isa)p -Black 262 w Fx(homs)f(for)g(eac)-31 b(h)263 b(pro)31 -b(duction)262 b(sp)31 b(ecify)262 b(ho)-31 b(w)263 b(they)g(should)f(b) -31 b(e)261 b(translated)j(in)-31 b(to)0 33943 y(that)306 -b(Isab)31 b(elle)305 b(t)-31 b(yp)31 b(e.)471 b(This)306 -b(feature)f(m)-31 b(ust)305 b(b)31 b(e)304 b(used)g(with)i(care,)318 -b(as)304 b(an)-31 b(y)306 b(Ott-generated)g(functions,)319 -b(e.g.)306 b(substitution)0 35272 y(functions,)371 b(cannot)f(recurse)e -(through)i(suc)-31 b(h)369 b(user-de\014ned)f(t)-31 b(yp)31 -b(es.)0 37264 y(Grammar)437 b(rules)f(\(whether)h(free)f(or)h -(non-free\))g(can)f(also)i(include)f(a)p Mahogany 437 -w Fs(coq)582 b(equality)p Black 437 w Fx(hom,)455 b(instructing)438 -b(the)e(Co)31 b(q)0 38593 y(co)g(de)467 b(generator)g(to)h(deriv)-31 -b(e)467 b(a)g(decidable)h(equalit)-31 b(y)469 b(for)e(the)g(Co)31 -b(q)468 b(represen)-31 b(tation)468 b(t)-31 b(yp)31 b(e.)786 -b(F)-92 b(or)466 b(example,)493 b(the)467 b(ML)0 39921 -y(p)31 b(olymorphism)371 b(Ott)f(source)f(of)455 b Fs(test8.ott)371 -b Fx(includes)e(the)h(follo)-31 b(wing.)p Black Black -1162 41913 a Fs(typvar)p RoyalBlue 582 w(::)p Black 582 -w(TV_)p RoyalBlue 581 w(::=)p Black RoyalBlue 582 w({{)p -Black Mahogany 581 w(coq-equality)p Black 583 w(decide)582 -b(equality.)h(apply)f(eq_value_name_t.)p RoyalBlue 583 -w(}})p Black RoyalBlue 4068 43242 a(|)p Black 581 w(')g(ident)p -RoyalBlue 9299 w(::)p Black RoyalBlue 1744 w(::)p Black -581 w(ident)0 45234 y Fx(The)501 b(Co)31 b(q/HOL/Isab)g(elle/OCaml)506 -b(t)-31 b(yp)31 b(e)502 b(name)g(for)f(a)h(grammar)g(rule,)535 -b(or)501 b(for)g(a)g(meta)-31 b(v)-61 b(ariable)504 b(declaration,)537 -b(is)0 46563 y(normally)352 b(tak)-31 b(en)351 b(to)g(b)31 -b(e)349 b(just)h(its)g(primary)h(non)-31 b(terminal)352 -b(ro)31 b(ot.)487 b(Occasionally)352 b(it)f(is)f(useful)g(to)h(w)-31 -b(ork)350 b(around)g(a)h(clash)0 47891 y(b)31 b(et)-31 -b(w)g(een)334 b(a)g(meta)-31 b(v)-61 b(ar)334 b(or)f(non)-31 -b(terminal)336 b(primary)d(ro)31 b(ot)334 b(and)g(a)f(pro)31 -b(of)334 b(assistan)-31 b(t)334 b(sym)-31 b(b)31 b(ol,)342 -b(e.g.)334 b Fs(T)g Fx(in)f(HOL)g(or)g Fs(value)h Fx(in)0 -49219 y(Isab)31 b(elle.)537 b(F)-92 b(or)384 b(this,)k(one)c(can)h(add) -f(a)p Mahogany 384 w Fs(coq)p Black Fx(,)p Mahogany 389 -w Fs(hol)p Black Fx(,)p Mahogany 388 w Fs(isa)p Black -Fx(,)389 b(or)p Mahogany 383 w Fs(ocaml)p Black 385 w -Fx(hom)c(to)f(the)h(primary)f(non)-31 b(terminal)387 -b(ro)31 b(ot.)537 b(In)384 b(the)0 50548 y(example)371 -b(b)31 b(elo)-31 b(w,)370 b(the)g(user)e(can)h(write)h -Fs(T)p Fx(,)g Fs(T')f Fx(etc.)493 b(in)370 b(their)f(Ott)h(source,)f -(but)h(the)f(generated)h(HOL)f(t)-31 b(yp)31 b(e)370 -b(is)f Fs(Typ)p Fx(.)p Black Black 0 52540 a Fs(T)p RoyalBlue -581 w({{)p Black Mahogany 582 w(hol)p Black 581 w(Typ)p -RoyalBlue 582 w(}})p Black RoyalBlue(,)p Black 582 w(S)p -RoyalBlue(,)p Black 581 w(U)p RoyalBlue 581 w(::)p Black -582 w('T_')p RoyalBlue 581 w(::=)p Black RoyalBlue 11624 -w({{)p Black Mahogany 581 w(com)p Black 582 w(type)p -RoyalBlue 1163 w(}})p Black RoyalBlue 1162 53869 a(|)p -Black 582 w(T)581 b(->)g(T')p RoyalBlue 15111 w(::)p -Black RoyalBlue 581 w(::)p Black 581 w(Fun)p RoyalBlue -5812 w({{)p Black Mahogany 582 w(com)p Black 581 w(type)h(of)g -(functions)p RoyalBlue 582 w(}})p Black 0 55861 a Fx(The)320 -b(grammar)h(rules)e(within)j(eac)-31 b(h)p Mahogany 320 -w Fs(grammar)p Black 320 w Fx(blo)31 b(c)-31 b(k)321 -b(of)f(a)g(syn)-31 b(tax)321 b(de\014nition)g(ma)-31 -b(y)321 b(dep)31 b(end)319 b(on)h(eac)-31 b(h)321 b(other)f(arbitrar-)0 -57189 y(ily)-92 b(.)646 b(When)420 b(generating)i(Isab)31 -b(elle/Co)g(q/HOL/OCaml)425 b(represen)-31 b(tation)421 -b(t)-31 b(yp)31 b(es,)433 b(ho)-31 b(w)g(ev)g(er,)435 -b(they)420 b(are)g(top)31 b(ologically)0 58518 y(sorted,)370 -b(to)g(simplify)h(the)e(resulting)h(induction)h(principles.)0 -62281 y Fq(5.2)1495 b(Pro)42 b(of)498 b(assistan)-42 -b(t)501 b(co)42 b(de)498 b(for)h(inductiv)-42 b(e)499 -b(de\014nitions)0 64988 y Fx(The)505 b(seman)-31 b(tic)507 -b(relations)g(are)e(de\014ned)g(with)h(the)f(pro)31 b(of-assistan)-31 -b(t)508 b(inductiv)-31 b(e)506 b(relations)h(pac)-31 -b(k)-61 b(ages,)540 b Fs(Inductive)p Fx(,)0 66317 y Fs(Hol_reln)p -Fx(,)364 b(and)d Fs(inductive_set)i Fx(or)d Fs(inductive)p -Fx(,)365 b(resp)31 b(ectiv)-31 b(ely)-92 b(.)490 b(Eac)-31 -b(h)p Mahogany 362 w Fs(defns)p Black 361 w Fx(blo)31 -b(c)-31 b(k)362 b(giv)-31 b(es)362 b(rise)e(to)i(a)f(p)31 -b(oten)-31 b(tially)0 67645 y(m)g(utually)403 b(recursiv)-31 -b(e)401 b(de\014nition)h(of)f(eac)-31 b(h)p Mahogany -402 w Fs(defn)p Black 401 w Fx(inside)401 b(it)g(\(it)h(seems)f -(clearer)f(not)i(to)f(do)g(a)g(top)31 b(ological)405 -b(sort)c(here\).)0 68973 y(De\014nition)484 b(rules)d(are)h(expressed)f -(in)-31 b(ternally)485 b(with)e(sym)-31 b(b)31 b(olic)484 -b(terms.)832 b(W)-92 b(e)481 b(giv)-31 b(e)484 b(a)e(simpli\014ed)i -(grammar)g(thereof)0 70302 y(in)470 b(Fig.)g(17,)496 -b(omitting)473 b(the)d(sym)-31 b(b)31 b(olic)471 b(terms)f(for)g(list)g -(forms.)795 b(A)469 b(sym)-31 b(b)31 b(olic)471 b(term)f -Fo(st)574 b Fx(for)470 b(a)g(non)-31 b(terminal)472 b(ro)31 -b(ot)470 b(is)0 71630 y(either)428 b(an)h(explicit)h(non)-31 -b(terminal)430 b(or)e(a)h(no)31 b(de,)443 b(the)429 b(latter)g(lab)31 -b(elled)430 b(with)f(a)f(pro)31 b(duction)429 b(name)g(and)g(con)-31 -b(taining)431 b(a)0 72958 y(list)467 b(of)g Fo(symterm)p -7601 72958 333 45 v 484 w(element)106 b Fx(s,)491 b(whic)-31 -b(h)467 b(in)g(turn)f(are)g(either)h(sym)-31 b(b)31 b(olic)468 -b(terms,)491 b(meta)-31 b(v)-61 b(ariables,)494 b(or)466 -b(v)-61 b(ariables.)785 b(Eac)-31 b(h)0 74287 y(de\014nition)454 -b(rule)e(giv)-31 b(es)453 b(rise)e(to)i(an)g(implicational)k(clause,) -473 b(essen)-31 b(tially)454 b(that)g(the)e(premises)g(\(Ott)h(sym)-31 -b(b)31 b(olic)454 b(terms)p Black 24502 77841 a(19)p -Black eop end -%%Page: 20 20 -TeXDict begin 20 19 bop Black Black 31 -594 a Fx(of)379 -b(the)p Mahogany 379 w Fs(formula)p Black 378 w Fx(grammar\))h(imply)g -(the)e(conclusion)i(\(an)f(Ott)f(sym)-31 b(b)31 b(olic)380 -b(term)f(of)f(whic)-31 b(hev)g(er)379 b(judgemen)-31 -b(t)380 b(is)e(b)31 b(eing)31 735 y(de\014ned\).)493 -b(Sym)-31 b(b)31 b(olic)371 b(terms)f(are)f(compiled)h(in)g(sev)-31 -b(eral)369 b(di\013eren)-31 b(t)370 b(w)-31 b(a)g(ys:)p -Black 1692 2727 a Ft(\017)p Black 554 w Fx(No)31 b(des)384 -b(of)g(non-meta)i(pro)31 b(ductions)384 b(are)g(output)h(as)f -(applications)j(of)d(the)g(appropriate)i(pro)31 b(of-assistan)-31 -b(t)385 b(con-)2799 4055 y(structor)369 b(\(and,)h(for)g(a)f(subrule,)g -(promoted)i(to)f(the)f(corresp)31 b(onding)369 b(constructor)h(of)g(a)f -(maximal)j(rule\).)p Black 1692 6048 a Ft(\017)p Black -554 w Fx(No)31 b(des)369 b(of)h(meta)g(pro)31 b(ductions)370 -b(are)f(transformed)h(with)g(the)g(user-sp)31 b(eci\014ed)367 -b(homomorphism.)p Black 1692 8040 a Ft(\017)p Black 554 -w Fx(No)31 b(des)337 b(of)i(judgemen)-31 b(t)339 b(forms)f(are)g -(represen)-31 b(ted)336 b(as)i(applications)j(of)d(the)g(de\014ned)f -(relation)j(in)e(Co)31 b(q)338 b(and)g(HOL,)2799 9369 -y(and)369 b(as)g(set-mem)-31 b(b)31 b(ership)370 b(assertions)f(in)h -(Isab)31 b(elle.)p Black 1692 11361 a Ft(\017)p Black -554 w Fx(Lists)384 b(of)h(form)-31 b(ulae)386 b(\(the)f -Fs(formula_dots)h Fx(pro)31 b(duction,)390 b(c.f.)p Ft(x)p -Fx(12\))d(are)d(sp)31 b(ecial-cased)385 b(to)g(pro)31 -b(of-assistan)-31 b(t)386 b(con-)2799 12690 y(junctions.)31 -14682 y(F)-92 b(urther,)357 b(for)c(eac)-31 b(h)355 b(non)-31 -b(terminal)356 b(of)e(a)g(non-free)g(grammar)h(rule,)i(e.g.)e(a)f -(usage)g(of)g Fs(v')g Fx(where)g Fs(v<::t)p Fx(,)j(an)d(additional)31 -16011 y(premise)390 b(in)-31 b(v)g(oking)392 b(the)e(generated)g -(subrule)f(predicate)i(for)f(the)f(non-free)h(rule)f(is)h(added,)395 -b(e.g.)c Fs(is_v)582 b(v')p Fx(.)554 b(F)-92 b(or)389 -b(Co)31 b(q)31 17339 y(and)367 b(HOL,)g(explicit)h(quan)-31 -b(ti\014ers)368 b(are)e(in)-31 b(tro)31 b(duced)367 b(for)g(all)h(v)-61 -b(ariables)367 b(men)-31 b(tioned)368 b(in)f(the)g(rule.)491 -b(F)-92 b(or)366 b(HOL,)h(rules)f(are)31 18667 y(tagged)371 -b(with)g(their)e(rule)g(name)h(\(using)g Fs(clause_name)p -Fx(\).)31 22430 y Fq(5.3)1495 b(Represen)-42 b(tation)501 -b(of)d(binding)31 25138 y Fx(A)-31 b(t)467 b(presen)-31 -b(t)466 b(the)h(generated)g(Isab)31 b(elle/Co)g(q/HOL)468 -b(uses)d(fully)j(concrete)e(represen)-31 b(tations)467 -b(of)g(v)-61 b(ariables)467 b(in)f(terms,)31 26466 y(without)400 -b(an)-31 b(y)398 b(notion)h(of)e(alpha)i(equiv)-61 b(alence,)406 -b(as)397 b(one)g(can)h(see)e(in)i(Fig.)g(6:)549 b(see)396 -b(the)i Fs(t)f Fx(datat)-31 b(yp)31 b(e)399 b(of)f(terms)f(and)g(the)31 -27794 y Fs(tsubst_t)468 b Fx(substitution)h(function)g(there.)786 -b(An)467 b(exp)31 b(erimen)-31 b(tal)469 b(Co)31 b(q)467 -b(bac)-31 b(k)g(end)468 b(generates)g(de\014nitions)g(in)f(lo)31 -b(cally-)31 29123 y(nameless)500 b(st)-31 b(yle)501 b(for)e(a)h(subset) -f(of)h(the)f(Ott)i(metalanguage.)886 b(This)500 b(is)g(w)-31 -b(ork-in-progress,)533 b(and)499 b(it)h(is)g(extensiv)-31 -b(ely)31 30451 y(do)31 b(cumen)-31 b(ted)280 b(in)g Fs -(http://moscova.inria.fr/)584 b(zappa/projects/ln)p 31829 -30451 349 45 v 421 w(ott/)p Fx(.)463 b(W)-92 b(e)278 -b(in)-31 b(tend)280 b(in)f(future)g(to)h(generate)31 -31779 y(other)368 b(represen)-31 b(tations,)369 b(and)e(in)h(some)f -(circumstances)h(homs)f(can)h(b)31 b(e)366 b(used)h(to)h(implemen)-31 -b(t)369 b(other)f(represen)-31 b(tations)31 33108 y(directly)-92 -b(.)632 b(F)-92 b(or)415 b(a)g(reasonably)i(wide)f(v)-61 -b(ariet)-31 b(y)416 b(of)g(languages,)429 b(ho)-31 b(w)g(ev)g(er,)429 -b(one)415 b(can)h(capture)g(the)f(in)-31 b(tended)416 -b(seman)-31 b(tics)31 34436 y(of)399 b(whole)f(programs)g(in)g(this)g -(idiom,)407 b(sub)61 b(ject)398 b(only)g(to)g(the)g(condition)i(that)e -(standard)g(library)g(iden)-31 b(ti\014ers)398 b(are)g(not)31 -35764 y(shado)-31 b(w)g(ed)348 b(within)h(the)d(program,)353 -b(as)346 b(the)h(op)31 b(erational)349 b(seman)-31 b(tics)348 -b(do)31 b(es)346 b(not)i(in)-31 b(v)g(olv)g(e)349 b(reduction)e(under)f -(binders)g(|)31 37093 y(so)329 b(an)-31 b(y)328 b(substitutions)i(are)e -(of)h(terms)f(whic)-31 b(h)329 b(\(except)g(for)f(standard)h(library)f -(iden)-31 b(ti\014ers\))329 b(are)f(closed.)480 b(This)328 -b(includes)31 38421 y(the)456 b(ML)e(p)31 b(olymorphism)457 -b(example)f(of)542 b Fs(test8.ott)p Fx(.)751 b(F)-92 -b(or)454 b(languages)j(whic)-31 b(h)456 b(require)f(a)g(t)-31 -b(yp)31 b(e)455 b(en)-31 b(vironmen)g(t)457 b(with)31 -39749 y(in)-31 b(ternal)297 b(dep)31 b(endencies,)310 -b(ho)-31 b(w)g(ev)g(er,)312 b(for)295 b(example)i(F)22077 -39915 y Fr(<)p Fu(:)23074 39749 y Fx(,)310 b(this)296 -b(is)f(no)h(longer)g(the)f(case.)468 b(The)295 b(POPLmark)i(F)44883 -39915 y Fr(<)p Fu(:)46175 39749 y Fx(example)31 41078 -y(giv)-31 b(en)415 b(in)g Fs(test7.ott)f Fx(has)g(a)g(t)-31 -b(yp)31 b(e)414 b(system)g(whic)-31 b(h)415 b(disallo)-31 -b(ws)416 b(all)f(shado)-31 b(wing,)428 b(a)414 b(prop)31 -b(ert)-31 b(y)413 b(that)i(is)f(not)h(preserv)-31 b(ed)31 -42406 y(b)g(y)406 b(reduction.)603 b(Ho)-31 b(w)g(ev)g(er,)417 -b(a)406 b(correct)g(translation)i(of)e(F)24237 42572 -y Fr(<)p Fu(:)25640 42406 y Fx(is)g(generated)g(b)-31 -b(y)406 b(the)g(Co)31 b(q)407 b(lo)31 b(cally-nameless)408 -b(bac)-31 b(k)g(end,)31 43735 y(and)370 b(can)f(b)31 -b(e)369 b(found)h(in)f Fs(http://moscova.inria.fr/)585 -b(zappa/projects/ln)p 34593 43735 V 421 w(ott/)p Fx(.)31 -45727 y(F)-92 b(urther)368 b(discussion)i(of)f(binding)i(represen)-31 -b(tations)370 b(is)f(in)g(the)h(Ott)g(ICFP)f(2007)i(pap)31 -b(er)368 b(and)i(in)f(a)h(w)-31 b(orking)371 b(draft)p -Black Black 2799 47720 a(Binding)260 b(and)g(Substitition.)459 -b(Susmit)260 b(Sark)-61 b(ar,)281 b(P)-31 b(eter)260 -b(Sew)-31 b(ell,)283 b(and)259 b(F)-92 b(rancesco)259 -b(Zappa)h(Nardelli.)458 b(August)2799 49048 y(2007.)31 -51040 y(a)-31 b(v)-61 b(ailable)372 b(from)e(the)g(Ott)f(w)-31 -b(eb)370 b(page.)31 54803 y Fq(5.4)1495 b(Help)42 b(er)499 -b(functions)g(for)g(free)f(v)-83 b(ariable)499 b(and)g(substitution)i -(functions)31 57511 y Fx(The)322 b(generated)h(free)e(v)-61 -b(ariable)323 b(and)f(substitution)h(functions)g(in)f(the)g(Co)31 -b(q)322 b(output)h(\(e.g.,)334 b(in)322 b(Figure)f(5\))i(often)g(rely)e -(on)31 58839 y(a)375 b(few)g(standard)g(library)g(functions:)504 -b Fs(list_mem)p Fx(,)377 b Fs(list_assoc)p Fx(,)h Fs(list_minus)p -Fx(,)f Fs(list_minus2)p Fx(.)510 b(In)374 b(order)f(to)j(a)-31 -b(v)g(oid)31 60168 y(dep)31 b(endencies)399 b(on)h(external)g -(libraries)g(for)f(de\014ning)h(those)g(functions,)408 -b(b)-31 b(y)399 b(default)i(Ott)f(generates)g(the)f(de\014nitions)31 -61496 y(for)505 b(an)-31 b(y)506 b(suc)-31 b(h)505 b(functions)h(it)f -(uses.)899 b(It)505 b(is)g(p)31 b(ossible)505 b(to)g(turn)g(o\013)g -(the)g(generation)i(of)e(de\014nitions)h(for)f(these)g(suc)-31 -b(h)31 62824 y(functions)371 b(b)-31 b(y)369 b(writing)i(the)f(follo) --31 b(wing)372 b(directiv)-31 b(e)371 b(early)f(on)f(in)g(the)h(source) -e(\014le:)p Mahogany Black Mahogany 31 64817 a Fs(embed)p -Black RoyalBlue 582 w({)q({)p Black Mahogany 581 w(coq-lib)p -Black 582 w(list_mem)582 b(list_minus)p RoyalBlue 583 -w(}})p Black 31 66809 a Fx(This)384 b(instructs)f(Ott)h(to)g(a)-31 -b(v)g(oid)385 b(generating)g(de\014nition)g(for)e Fs(list_mem)h -Fx(and)f Fs(list_minus)p Fx(,)389 b(but)383 b(to)h(con)-31 -b(tin)g(ue)385 b(gener-)31 68138 y(ating)371 b(de\014nitions)g(for)e -(other)h(functions)g(suc)-31 b(h)369 b(as)g Fs(list_assoc)h -Fx(and)g Fs(list_minus2)p Fx(.)31 70130 y Fp(Note)346 -b(ab)35 b(out)345 b Fs(list_minus2)p Fp(:)458 b Fx(Instead)299 -b(of)h(using)f(the)h(function)g Fs(list_minus2)p Fx(,)315 -b(earlier)300 b(v)-31 b(ersions)299 b(of)h(Ott)g(generated)31 -71458 y(equiv)-61 b(alen)-31 b(t)394 b(co)31 b(de)392 -b(based)g(on)g Fs(list_filter)p Fx(,)400 b(whic)-31 b(h)393 -b(w)-31 b(as)393 b(more)f(di\016cult)i(to)e(reason)g(ab)31 -b(out.)563 b(F)-92 b(or)391 b(bac)-31 b(kw)g(ards)393 -b(com-)31 72787 y(patibilit)-31 b(y)-92 b(,)304 b(ho)-31 -b(w)g(ev)g(er,)302 b(w)-31 b(e)282 b(pro)-31 b(vide)283 -b(the)g(command-line)i(option)f Fs(-coq_use_filter_fn)h -Fx(for)d(generating)i(a)f(de\014nition)31 74115 y(using)370 -b(the)f(older)h(co)31 b(de)369 b(pattern.)p Black 24533 -77841 a(20)p Black eop end -%%Page: 21 21 -TeXDict begin 21 20 bop Black Black 0 -594 a Fq(5.5)1495 -b(Correctness)500 b(of)e(the)h(generated)g(pro)42 b(of)498 -b(assistan)-42 b(t)502 b(co)42 b(de)0 2114 y Fx(W)-92 -b(e)377 b(ha)-31 b(v)g(e)379 b(attempted)g(to)g(ensure)e(that)i(the)e -(pro)31 b(of)378 b(assistan)-31 b(t)380 b(de\014nitions)f(generated)f -(b)-31 b(y)378 b(Ott)g(are)g(w)-31 b(ell-formed)380 b(and)0 -3442 y(what)457 b(the)f(user)e(w)-31 b(ould)457 b(in)-31 -b(tend.)753 b(This)456 b(is)f(not)h(guaran)-31 b(teed,)479 -b(ho)-31 b(w)g(ev)g(er,)479 b(for)456 b(sev)-31 b(eral)456 -b(reasons:)665 b(\(1\))456 b(There)g(ma)-31 b(y)457 b(b)31 -b(e)0 4770 y(name)296 b(clashes)g(b)31 b(et)-31 b(w)g(een)296 -b(Ott-generated)i(iden)-31 b(ti\014ers)296 b(and)g(pro)31 -b(of)296 b(assistan)-31 b(t)296 b(built-in)i(iden)-31 -b(ti\014ers)296 b(\(or,)311 b(in)296 b(pathological)0 -6099 y(cases,)369 b(ev)-31 b(en)370 b(among)h(di\013eren)-31 -b(t)369 b(Ott-generated)i(iden)-31 b(ti\014ers\).)494 -b(\(2\))371 b(In)e(some)g(cases)g(w)-31 b(e)370 b(dep)31 -b(end)369 b(on)g(automatic)k(pro)31 b(of)0 7427 y(pro)g(cedures,)452 -b(e.g.)438 b(for)f(HOL)f(de\014nitions.)696 b(These)436 -b(w)-31 b(ork)437 b(in)g(our)f(test)h(cases,)454 b(but)436 -b(it)i(is)e(hard)g(to)h(ensure)f(that)i(they)0 8755 y(will)447 -b(in)f(all)h(cases.)721 b(More)446 b(imp)31 b(ortan)-31 -b(tly)-92 b(,)467 b(\(3\))447 b(the)f(generation)h(pro)31 -b(cess)445 b(is)g(complex,)467 b(so)446 b(it)g(is)f(quite)i(p)31 -b(ossible)446 b(that)0 10084 y(there)320 b(is)f(either)h(a)g(bug)g(in)g -(Ott)h(or)e(a)h(mismatc)-31 b(h)322 b(b)31 b(et)-31 b(w)g(een)321 -b(the)f(user)f(exp)31 b(ectation)322 b(and)e(what)g(the)g(to)31 -b(ol)322 b(actually)g(do)31 b(es.)0 11412 y(Ultimately)400 -b(one)c(has)g(to)h(read)f(the)h(generated)g(pro)31 b(of)396 -b(assistan)-31 b(t)398 b(de\014nitions)f(to)g(c)-31 b(hec)g(k)397 -b(that)g(they)g(are)f(as)g(in)-31 b(tended)0 12740 y(|)340 -b(but)g(t)-31 b(ypically)343 b(one)d(w)-31 b(ould)341 -b(do)f(this)h(in)f(an)-31 b(y)341 b(case,)346 b(man)-31 -b(y)341 b(times)g(o)-31 b(v)g(er,)347 b(in)340 b(the)g(pro)31 -b(cess)339 b(of)h(pro)-31 b(ving)341 b(metatheoretic)0 -14069 y(results,)369 b(so)g(w)-31 b(e)370 b(do)f(not)h(consider)f(it)h -(a)g(ma)61 b(jor)371 b(issue.)0 17832 y Fq(5.6)1495 b(Using)499 -b(the)g(generated)g(pro)42 b(of)498 b(assistan)-42 b(t)502 -b(co)42 b(de)0 20539 y Fx(Note)370 b(added)g(2017-11-30:)496 -b(the)369 b(follo)-31 b(wing)373 b(is)c(out)h(of)g(date.)0 -22532 y(Ott)g(builds)f(co)31 b(de)370 b(for)664 24236 -y(Co)31 b(q)370 b(8.3)13267 b Fs(http://coq.inria.fr/)664 -25565 y Fx(HOL)369 b(4)h(\(the)g(curren)-31 b(t)368 b(svn)h(v)-31 -b(ersion\))1330 b Fs(http://hol.sourceforge.net/)664 -26893 y Fx(Isab)31 b(elle/HOL)370 b(\(Isab)31 b(elle)370 -b(2011\))3001 b Fs(http://isabelle.in.tum.de/)0 28835 -y Fx(Giv)-31 b(en)381 b(pro)31 b(of)380 b(assistan)-31 -b(t)382 b(\014les)e(in)g(the)h(top-lev)-31 b(el)382 b(directory)f(of)g -(the)f(distribution,)386 b(as)380 b(pro)31 b(duced)380 -b(at)h(the)f(start)h(of)g(this)0 30164 y(section)444 -b(\(Co)31 b(q)444 b Fs(out.v)p Fx(,)463 b(Isab)31 b(elle)443 -b Fs(out.thy)p Fx(,)463 b(and)444 b(HOL)f Fs(outScript.sml)p -Fx(\),)464 b(the)443 b(v)-61 b(arious)444 b(pro)31 b(of)443 -b(assistan)-31 b(ts)444 b(can)g(b)31 b(e)0 31492 y(in)-31 -b(v)g(ok)g(ed)371 b(as)e(follo)-31 b(ws.)0 35033 y Fp(5.6.1)1274 -b(Co)35 b(q)0 37741 y Fx(First)369 b(run)p Black Black -1162 39733 a Fs(make)0 41726 y Fx(in)246 b(the)h Fs(coq)f -Fx(directory)h(of)g(the)f(distribution,)273 b(to)247 -b(build)g(the)g(auxiliary)h(\014les.)452 b(These)246 -b(include)h(a)f(core)g(\014le)g(\()p Fs(ott_list_core)p -Fx(\))0 43054 y(of)314 b(de\014nitions)h(that)g(are)e(used)g(in)h -(Ott-generated)h(output.)475 b(A)-31 b(t)315 b(presen)-31 -b(t)313 b(these)g(are)h(only)g(required)f(when)h(Co)31 -b(q)314 b(nativ)-31 b(e)0 44383 y(lists)393 b(are)g(used.)562 -b(There)392 b(are)h(also)g(v)-61 b(arious)393 b(lemmas)h(\(in)f -Fs(ott_list.v)p Fx(\))i(whic)-31 b(h)393 b(ma)-31 b(y)394 -b(b)31 b(e)392 b(useful;)405 b(they)393 b(can)g(b)31 -b(e)392 b(made)0 45711 y(a)-31 b(v)-61 b(ailable)372 -b(with)e Fs(Require)582 b(Import)g(ott_list.)0 47703 -y Fx(F)-92 b(or)368 b(batc)-31 b(h)371 b(mo)31 b(de)369 -b(run)p Black Black 1162 49696 a Fs(coqc)582 b(-I)f(coq)1163 -b(out.v)0 51688 y Fx(where)369 b Fs(coq)g Fx(is)h(the)f(path)h(to)g -(the)f Fs(coq)h Fx(directory)f(of)h(the)g(distribution.)0 -53681 y(The)484 b(exp)31 b(erimen)-31 b(tal)485 b(lo)31 -b(cally-nameless)486 b(bac)-31 b(k)g(end)485 b(requires)d(the)i -Fs(Metatheory)h Fx(library)f(b)-31 b(y)484 b(Arth)-31 -b(ur)483 b(Chargueraud,)0 55009 y(a)-31 b(v)-61 b(ailable)372 -b(from)e(the)f(pro)61 b(ject)370 b(w)-31 b(eb)370 b(page.)0 -58551 y Fp(5.6.2)1274 b(HOL)0 61258 y Fx(First)369 b(run)p -Black Black 1162 63251 a Fs(Holmake)0 65243 y Fx(in)g(the)h -Fs(hol)f Fx(directory)h(of)g(the)f(distribution,)j(to)e(build)g(the)f -(auxiliary)i(\014les.)0 67236 y(F)-92 b(or)368 b(batc)-31 -b(h)371 b(mo)31 b(de)369 b(run)p Black Black 1162 69228 -a Fs(Holmake)582 b(-I)g(hol)1163 b(outTheory.uo)0 71221 -y Fx(where)369 b Fs(hol)g Fx(is)h(the)f(path)h(to)g(the)f -Fs(hol)h Fx(directory)f(of)h(the)g(distribution.)494 -b(F)-92 b(or)368 b(in)-31 b(teractiv)g(e)372 b(mo)31 -b(de,)370 b(run)p Black Black 1162 73213 a Fs(hol)582 -b(-I)f(hol)p Black 24502 77841 a Fx(21)p Black eop end -%%Page: 22 22 -TeXDict begin 22 21 bop Black Black 31 -594 a Fx(inside)302 -b(an)f(editor)g(windo)-31 b(w)303 b(\(where)e(the)g(second)g -Fs(hol)g Fx(is)f(again)j(the)e(path)g(to)h(the)f Fs(hol)g -Fx(directory)g(of)h(the)f(distribution\),)31 735 y(and)485 -b(in)f(another)h(windo)-31 b(w)486 b(view)f(the)g Fs(outScript.sml)h -Fx(\014le.)838 b(First)483 b(paste)i(in)f(the)h Fs(app)581 -b(load)485 b Fx(command)h(from)e(a)31 2063 y(commen)-31 -b(t)372 b(at)e(the)f(top)h(of)g(the)f(\014le,)h(then)f(paste)h(in)f -(the)h(remainder.)31 5604 y Fp(5.6.3)1274 b(Isab)35 b(elle)31 -8312 y Fx(F)-92 b(or)369 b(batc)-31 b(h)370 b(mo)31 b(de:)p -Black Black 1194 10304 a Fs(echo)582 b('ML_command)g({*)g(\(use_thy)g -("Tmp";)g(OS.Process.exit)i(OS.Process.success\))g(handle)e(e)f(=>)g -(\(OS.Process.exit)j(OS.Process.failure\);)g(*}')e(|)f -(/usr/local/Isabelle/bin/isabelle)586 b(tty)31 12297 -y Fx(In)-31 b(teractiv)g(ely)-92 b(,)372 b(using)e(Pro)31 -b(of)370 b(General:)p Black Black 1194 14289 a Fs(isabelle)582 -b(emacs)g(out.thy)31 18614 y FC(6)1793 b(Judgmen)-50 -b(ts)600 b(and)e(form)-50 b(ulae)31 21703 y Fx(In)369 -b(a)h(seman)-31 b(tic)370 b(rule,)g(for)f(example)p Black -Black 2356 23695 a Fs(t1)582 b(-->)f(t1')p RoyalBlue -2356 25024 a(--------------)i(::)p Black 582 w(ctx_app_arg)2356 -26352 y(v)e(t1)h(-->)f(v)h(t1')31 28345 y Fx(the)386 -b(conclusion)h(m)-31 b(ust)387 b(b)31 b(e)385 b(a)h(sym)-31 -b(b)31 b(olic)387 b(term)f(of)g(the)g(form)g(of)g(the)g(judgemen)-31 -b(t)387 b(b)31 b(eing)386 b(de\014ned,)k(but)c(in)g(general)g(the)31 -29673 y(premises)324 b(ma)-31 b(y)325 b(b)31 b(e)323 -b(sym)-31 b(b)31 b(olic)325 b(terms)f(of)g(a)p Mahogany -325 w Fs(formula)p Black 324 w Fx(grammar)h(or)f(in-line)h(em)-31 -b(b)31 b(edded)324 b(pro)-31 b(v)g(er)324 b(co)31 b(de.)477 -b(By)324 b(default)h(the)31 31001 y(form)-31 b(ula)360 -b(grammar)f(includes)g(all)g(the)f(de\014ned)g(judgemen)-31 -b(t)359 b(forms:)487 b(for)358 b(the)h(running)f(example)h(Ott)g(will)g -(syn)-31 b(thesise)31 32330 y(grammars)371 b(as)e(b)31 -b(elo)-31 b(w.)696 34250 y Fo(formula)3964 b Fx(::=)8964 -35578 y Ft(j)1913 b Fo(judgement)696 38481 y(judgement)2763 -b Fx(::=)8964 39810 y Ft(j)1913 b Fo(Jop)696 42713 y(Jop)5971 -b Fx(::=)8964 44041 y Ft(j)1913 b Fo(t)11552 44207 y -Fu(1)12356 44041 y Ft(\000)-185 b(!)308 b Fo(t)14815 -44207 y Fu(2)20196 44041 y Fo(t)20564 44207 y Fu(1)21430 -44041 y Fx(reduces)368 b(to)i Fo(t)27096 44207 y Fu(2)31 -46045 y Fx(The)315 b(user)d(can)i(also)h(de\014ne)f(an)g(explicit)i -(form)-31 b(ula)315 b(grammar,)327 b(to)314 b(let)h(other)f(forms)g -(\(not)h(just)f(judgemen)-31 b(ts\))316 b(app)31 b(ear)314 -b(as)31 47373 y(rule)369 b(premises.)493 b(Belo)-31 b(w)370 -b(is)g(a)f(fragmen)-31 b(t)371 b(of)f(the)f(form)-31 -b(ula)371 b(grammar)g(from)e(the)h(LJ)e(example)j(on)e(the)h(Ott)g(w) --31 b(eb)369 b(page.)p Black Black Mahogany 1194 49366 -a Fs(formula)p Black RoyalBlue 582 w(::)p Black 581 w(formula_)p -RoyalBlue 583 w(::=)p Black RoyalBlue 1775 50694 a(|)p -Black 1162 w(judgement)p RoyalBlue 13368 w(::)p Black -RoyalBlue 1744 w(::)p Black 581 w(judgement)p RoyalBlue -1775 52022 a(|)p Black 1162 w(formula1)p RoyalBlue 583 -w(..)p Black 581 w(formulan)p RoyalBlue 6975 w(::)p Black -RoyalBlue 1744 w(::)p Black 581 w(dots)p RoyalBlue 1775 -53351 a(|)p Black 1162 w(not)p Mahogany 582 w(formula)p -Black RoyalBlue 12205 w(::)p Black Mahogany 582 w(M)p -Black RoyalBlue 581 w(::)p Black 581 w(not)p RoyalBlue -5843 54679 a({{)p Black Mahogany 581 w(tex)p Black 582 -w(\\neg)p RoyalBlue 582 w([[)p Black Mahogany(formula)p -Black RoyalBlue(]])p Black RoyalBlue 583 w(}})p Black -RoyalBlue 5843 56007 a({{)p Black Mahogany 581 w(isa)p -Black 582 w(\\)582 b(\()p RoyalBlue([[)p Black Mahogany(formula)p -Black RoyalBlue(]])p Black(\))p RoyalBlue 583 w(}})p -Black RoyalBlue 1775 57336 a(|)p Black 1162 w(\()p Mahogany -582 w(formula)p Black 582 w(\))p RoyalBlue 12204 w(::)p -Black Mahogany 582 w(M)p Black RoyalBlue 581 w(::)p Black -581 w(brackets)p RoyalBlue 5843 58664 a({{)p Black Mahogany -581 w(tex)p Black 582 w(\()p RoyalBlue([[)p Black Mahogany(formula)p -Black RoyalBlue(]])p Black(\\)r(!\))p RoyalBlue 581 w(})q(})p -Black RoyalBlue 5843 59992 a({{)p Black Mahogany 581 -w(isa)p Black RoyalBlue 582 w([[)p Black Mahogany(formula)p -Black RoyalBlue(]])p Black RoyalBlue 583 w(}})p Black -RoyalBlue 1775 61321 a(|)p Black Mahogany 1162 w(formula)p -Black 583 w(\\/)p Mahogany 581 w(formula)p Black(')p -RoyalBlue 7556 w(::)p Black Mahogany 582 w(M)p Black -RoyalBlue 581 w(::)p Black 581 w(or)p RoyalBlue 5843 -62649 a({{)p Black Mahogany 581 w(tex)p Black RoyalBlue -582 w([[)p Black Mahogany(formula)p Black RoyalBlue(]])p -Black 583 w(\\vee)p RoyalBlue 582 w([[)p Black Mahogany(formula)p -Black(')p RoyalBlue(]])p Black RoyalBlue 582 w(})q(})p -Black RoyalBlue 5843 63977 a({{)p Black Mahogany 581 -w(isa)p Black RoyalBlue 582 w([[)p Black Mahogany(formula)p -Black RoyalBlue(]])p Black 583 w(\\)p RoyalBlue 582 -w([[)p Black Mahogany(formula)p Black(')p RoyalBlue(]])p -Black RoyalBlue 583 w(}})p Black RoyalBlue 1775 65306 -a(|)p Black Mahogany 1162 w(formula)p Black 583 w(/\\)p -Mahogany 581 w(formula)p Black(')p RoyalBlue 7556 w(::)p -Black Mahogany 582 w(M)p Black RoyalBlue 581 w(::)p Black -581 w(and)p RoyalBlue 5843 66634 a({{)p Black Mahogany -581 w(tex)p Black RoyalBlue 582 w([[)p Black Mahogany(formula)p -Black RoyalBlue(]])p Black 583 w(\\wedge)p RoyalBlue -582 w([[)p Black Mahogany(formula)p Black(')p RoyalBlue(]])p -Black RoyalBlue 583 w(}})p Black RoyalBlue 5843 67962 -a({{)p Black Mahogany 581 w(isa)p Black RoyalBlue 582 -w([[)p Black Mahogany(formula)p Black RoyalBlue(]])p -Black 583 w(\\)p RoyalBlue 582 w([[)p Black Mahogany(formula)p -Black(')p RoyalBlue(]])p Black RoyalBlue 583 w(}})p Black -RoyalBlue 1775 69291 a(|)p Black 1162 w(x)g(=)f(x')p -RoyalBlue 15110 w(::)p Black Mahogany 582 w(M)p Black -RoyalBlue 581 w(::)p Black 581 w(xali)p RoyalBlue 5843 -70619 a({{)p Black Mahogany 581 w(isa)p Black RoyalBlue -582 w([[)p Black(x)p RoyalBlue(]])p Black 582 w(=)p RoyalBlue -581 w([[)p Black(x')p RoyalBlue(]])p Black RoyalBlue -582 w(}})p Black RoyalBlue 1775 71948 a(|)p Black 1162 -w(X)h(=)f(X')p RoyalBlue 15110 w(::)p Black Mahogany -582 w(M)p Black RoyalBlue 581 w(::)p Black 581 w(Xali)p -RoyalBlue 5843 73276 a({{)p Black Mahogany 581 w(isa)p -Black RoyalBlue 582 w([[)p Black(X)p RoyalBlue(]])p Black -582 w(=)p RoyalBlue 581 w([[)p Black(X')p RoyalBlue(]])p -Black RoyalBlue 582 w(}})p Black Black 24533 77841 a -Fx(22)p Black eop end -%%Page: 23 23 -TeXDict begin 23 22 bop Black Black 0 -594 a Fx(This)396 -b(example)h(adds)f(\(to)h(the)f(judgemen)-31 b(t)397 -b(forms\))g(syn)-31 b(tax)397 b(for)e(paren)-31 b(thesised)396 -b(form)-31 b(ulae,)405 b(negation,)g(and,)e(or,)g(and)0 -735 y(equalit)-31 b(y)414 b(testing)g(on)e(t)-31 b(w)g(o)414 -b(sorts.)620 b(F)-92 b(or)411 b(eac)-31 b(h,)p Mahogany -424 w Fs(tex)p Black 412 w Fx(and)p Mahogany 412 w Fs(isa)p -Black 412 w Fx(homs)413 b(sp)31 b(ecify)412 b(ho)-31 -b(w)413 b(they)f(should)g(b)31 b(e)412 b(t)-31 b(yp)31 -b(eset)412 b(and)h(b)31 b(e)0 2063 y(translated)371 b(in)-31 -b(to)370 b(Isab)31 b(elle.)0 4055 y(If)333 b(the)g(user)f(de\014nes)h -(a)p Mahogany 333 w Fs(formula)p Black 334 w Fx(grammar)h(then)g(\(as)f -(here\))g(the)h(pro)31 b(duction)334 b(name)f(pre\014x)g(m)-31 -b(ust)334 b(b)31 b(e)332 b Fs(formula)p 47644 4055 349 -45 v 753 w Fx(and)0 5384 y(the)369 b(name)h(for)g(the)f -Fs(judgement)h Fx(pro)31 b(duction)370 b(m)-31 b(ust)370 -b(b)31 b(e)369 b Fs(judgement)p Fx(.)0 9147 y Fq(6.1)1495 -b(Naming)500 b(of)e(premises)i(for)e(the)g(Co)42 b(q)498 -b(bac)-42 b(k)g(end)0 11854 y Fx(It)356 b(is)f(p)31 b(ossible)356 -b(to)g(sp)31 b(ecify)356 b(the)f(names)h(of)g(premises)f(of)i(inductiv) --31 b(e)357 b(predicates;)k(these)355 b(names)h(are)f(then)h(used)f(b) --31 b(y)356 b(the)0 13182 y(Co)31 b(q)436 b(bac)-31 b(k)g(end,)453 -b(and)436 b(are)f(often)h(useful)f(in)h(pro)31 b(ofs.)691 -b(F)-92 b(or)434 b(instance,)453 b(w)-31 b(e)436 b(can)g(call)g -Fs(RED)g Fx(the)f(h)-31 b(yp)31 b(othesis)436 b(in)g(the)f(rule)0 -14511 y(b)31 b(elo)-31 b(w)p Black Black 2325 16503 a -Fs(t1)581 b(-->)h(t1')1162 b([[:RED]])p RoyalBlue 2325 -17832 a(--------------)583 b(::)p Black 581 w(ctx_app_arg)2325 -19160 y(v)e(t1)g(-->)h(v)f(t1')0 21153 y Fx(whic)-31 -b(h)370 b(will)h(then)e(generate)h(the)g(follo)-31 b(wing)373 -b(Co)31 b(q)370 b(co)31 b(de:)p Black Black 0 23145 a -Fs(|)581 b(ctx_app_arg)i(:)e(forall)h(\(v)g(t1)f(t1':term\))2325 -24473 y(\(RED:)g(reduce)i(t1)e(t1'\),)2325 25802 y(is_val_of_term)i(v)e -(->)2325 27130 y(reduce)h(\(t_app)g(v)f(t1\))h(\(t_app)g(v)f(t1'\).)0 -29123 y Fx(Names)412 b(of)g(rules)e(cannot)j(con)-31 -b(tain)413 b(spaces)e(or)g(other)g(non)h(alpha-n)-31 -b(umerical)414 b(c)-31 b(haracters,)422 b(and)412 b(m)-31 -b(ust)412 b(b)31 b(egin)411 b(with)i(a)0 30451 y(letter.)550 -b(The)389 b(name)g(annotation)i(m)-31 b(ust)389 b(at)g(the)f(righ)-31 -b(tmost)390 b(place)f(on)g(the)f(h)-31 b(yp)31 b(othesis)389 -b(line,)394 b(and)388 b(m)-31 b(ust)389 b(b)31 b(e)388 -b(enclosed)0 31779 y(\(without)372 b(spaces\))d(b)31 -b(et)-31 b(w)g(een)370 b(the)g Fs([[:)492 b Fx(and)369 -b Fs(]])h Fx(paren)-31 b(theses.)0 35542 y Fq(6.2)1495 -b(In-line)498 b(em)-42 b(b)42 b(edded)499 b(pro)-42 b(v)g(er)500 -b(co)42 b(de)498 b(in)h(premises)0 38250 y Fx(Instead)388 -b(of)h(adding)h(a)e(form)-31 b(ula)390 b(pro)31 b(duction,)395 -b(one)388 b(can)h(directly)g(em)-31 b(b)31 b(ed)389 b(pro)-31 -b(v)g(er)388 b(co)31 b(de)388 b(as)h(a)f(premise,)394 -b(delimited)c(as)0 39578 y(b)31 b(elo)-31 b(w)458 b(b)-31 -b(y)p RoyalBlue 473 w Fs({{)p Black 457 w Fx(and)p RoyalBlue -458 w Fs(}})p Black Fx(.)756 b(Within)458 b(that,)481 -b(text)458 b(will)h(b)31 b(e)457 b(ec)-31 b(ho)31 b(ed)457 -b(directly)h(to)g(a)f(pro)-31 b(v)g(er)458 b(\(or)f(giv)-31 -b(en)458 b(a)g(default)g(L)47562 39351 y Fu(A)48050 39578 -y Fx(T)48664 39816 y(E)49280 39578 y(X)0 40906 y(t)-31 -b(yp)31 b(esetting\))477 b(except)f(that)g(sym)-31 b(b)31 -b(olic)476 b(terms)f(enclosed)g(within)p RoyalBlue 476 -w Fs([[)p Black 475 w Fx(and)p RoyalBlue 475 w Fs(]])p -Black 475 w Fx(will)i(b)31 b(e)474 b(pro)31 b(cessed)474 -b(as)g(in)h(an)p Mahogany 475 w Fs(embed)p Black 0 42235 -a Fx(section.)p Black Black RoyalBlue 1162 44227 a Fs({{)p -Black 582 w(type_to_chunk)583 b(\()p RoyalBlue([[)p Black(typeof)f(e1)p -RoyalBlue(]])p Black(\))g(=)g(Some)p RoyalBlue 581 w([[)p -Black(c)p RoyalBlue(]])p Black RoyalBlue 582 w(}})p Black -RoyalBlue 1162 45556 a -(-----------------------------------------------------------)590 -b(::)p Black 582 w(Assign1)1162 46884 y(e1=e2)582 b(.)f(k)h(|env)1744 -b(--tau-->)2326 b(lval\(e1\))582 b(.)f([__=c)h(e2])g(.)f(k)g(|env)0 -50647 y Fq(6.3)1495 b(User)499 b(syn)-42 b(tax)0 53354 -y Fx(The)369 b(to)31 b(ol)371 b(also)f(syn)-31 b(thesises)369 -b(a)h Fs(user)p 15678 53354 V 419 w(syntax)f Fx(grammar)i(of)f(all)g -(the)g(user)e(syn)-31 b(tax,)370 b(for)g(example:)664 -55305 y Fo(user)p 2872 55305 333 45 v 517 w(syntax)2790 -b Fx(::=)9638 56633 y Ft(j)1913 b Fo(var)9638 57962 y -Ft(j)g Fo(term)9638 59290 y Ft(j)g Fo(val)9638 60618 -y Ft(j)g Fo(terminals)0 62622 y Fx(This)370 b(is)f(used)f(for)h -(parsing)h(top-lev)-31 b(el)371 b(strings,)f(for)f(example)i(when)e -(\014ltering)i(em)-31 b(b)31 b(edded)369 b(co)31 b(de)369 -b(\()p Ft(x)p Fx(8\).)0 66947 y FC(7)1793 b(Concrete)599 -b(terms)h(and)e(OCaml)g(generation)0 70036 y Fx(In)409 -b(seman)-31 b(tic)412 b(de\014nitions,)422 b(one)410 -b(t)-31 b(ypically)412 b(nev)-31 b(er)410 b(uses)f(concrete)h(v)-61 -b(ariables,)421 b(only)411 b(meta)-31 b(v)-61 b(ariables)412 -b(that)f(range)f(o)-31 b(v)g(er)0 71364 y(them.)492 b(In)365 -b(examples,)j(ho)-31 b(w)g(ev)g(er,)369 b(one)c(ma)-31 -b(y)367 b(need)f(either)g(a)g(mix)h(of)f(concrete)g(v)-61 -b(ariables)366 b(and)g(meta)-31 b(v)-61 b(ariables,)369 -b(or,)e(for)0 72692 y(strictly)j(concrete)g(terms,)f(to)h(restrict)f -(to)h(just)g(the)f(former)g(\(and)h(also)g(to)g(prohibit)h(sym)-31 -b(b)31 b(olic)371 b(non)-31 b(terminals\).)p Black 24502 -77841 a(23)p Black eop end -%%Page: 24 24 -TeXDict begin 24 23 bop Black Black 31 -594 a Fx(Figure)510 -b(2)f(com)-31 b(bines)510 b(the)g(L)11979 -821 y Fu(A)12467 --594 y Fx(T)13081 -356 y(E)13696 -594 y(X)f(and)h(pro)31 -b(of)509 b(assistan)-31 b(t)511 b(annotations)h(of)d(Sections)h(3)g -(and)f(4,)545 b(adding)510 b(a)p RoyalBlue 510 w Fs({{)p -Black Mahogany 581 w(lex)p Black 31 735 a(alphanum)p -RoyalBlue(})r(})p Black 325 w Fx(hom)326 b(to)g(the)p -Mahogany 325 w Fs(metavar)p Black 326 w Fx(declaration)h(to)f(sp)31 -b(ecify)325 b(the)h(lexical)h(form)e(of)h(concrete)f(v)-61 -b(ariables)326 b(of)g(this)f(sort.)31 2063 y(A)-31 b(t)247 -b(presen)-31 b(t)246 b(a)p Mahogany 247 w Fs(lex)p Black -246 w Fx(homomorphism)j(m)-31 b(ust)246 b(ha)-31 b(v)g(e)248 -b(b)31 b(o)g(dy)246 b(either)p Mahogany 246 w Fs(Alphanum)p -Black 247 w Fx(\(standing)i(for)f Fs([A-Z]\([A-Z]|[a-z]|[0-9]|'|_\)*)p -Fx(\),)p Mahogany 31 3391 a Fs(alphanum)p Black 248 w -Fx(\(for)f Fs(\([A-Z]|[a-z]\)\([A-Z]|[a-z]|[0-9]|'|_\)*)p -Fx(\),)p Mahogany 278 w Fs(alphanum0)p Black 247 w Fx(\(for)h -Fs([a-z]\([A-Z]|[a-z]|[0-9]|'|_\)*)p Fx(\),)31 4720 y(or)p -Mahogany 411 w Fs(numeral)p Black 411 w Fx(\(for)410 -b Fs([0-9][0-9]*)p Fx(\);)433 b(more)411 b(general)g(regular)f -(expressions)g(are)g(not)h(supp)31 b(orted.)615 b(An)410 -b(iden)-31 b(ti\014er)411 b(that)31 6048 y(can)350 b(b)31 -b(e)349 b(am)-31 b(biguously)352 b(lexed)e(as)f(either)h(a)g(concrete)g -(or)f(sym)-31 b(b)31 b(olic)351 b(meta)-31 b(v)-61 b(ariable,)356 -b(e.g.)351 b Fs(x)e Fx(in)h(the)g(scop)31 b(e)349 b(of)h(the)f(ab)31 -b(o)-31 b(v)g(e)31 7376 y(declaration,)371 b(will)d(b)31 -b(e)367 b(tak)-31 b(en)368 b(to)g(b)31 b(e)366 b(sym)-31 -b(b)31 b(olic.)494 b(T)-92 b(o)367 b(restrict)g(the)g(parser)f(to)i -(strictly)g(concrete)g(terms)e(only)-92 b(,)369 b(one)e(can)31 -8705 y(add)j(a)p Mahogany 369 w Fs(:concrete:)p Black -494 w Fx(pre\014x,)f(as)g(sho)-31 b(wn)370 b(in)f(Figure)g(10.)31 -10697 y(One)524 b(can)f(also)h(sp)31 b(ecify)524 b(ho)-31 -b(w)524 b(concrete)f(v)-61 b(ariables)524 b(should)g(b)31 -b(e)523 b(L)28248 10470 y Fu(A)28736 10697 y Fx(T)29350 -10935 y(E)29965 10697 y(X'd)h(or)f(translated)i(in)-31 -b(to)525 b(a)e(pro)31 b(of)524 b(assistan)-31 b(t,)31 -12026 y(e.g.)586 b(with)f(homomorphisms)p RoyalBlue 587 -w Fs({{)p Black Mahogany 581 w(texvar)p Black 582 w(\\mathrm{)p -RoyalBlue 1 w([[)p Black(termvar)p RoyalBlue(]])p Black -RoyalBlue(})r(})p Black 584 w Fx(and)p RoyalBlue 585 -w Fs({{)p Black Mahogany 581 w(isavar)p Black 582 w('')p -RoyalBlue([[)p Black(termvar)p RoyalBlue(]])p Black('')p -RoyalBlue(})s(})p Black 31 13354 a Fx(\(and)370 b(similarly)p -Mahogany 372 w Fs(coqvar)p Black Fx(,)p Mahogany 370 -w Fs(holvar)p Black Fx(,)g(and)p Mahogany 370 w Fs(ocamlvar)p -Black Fx(\).)31 15346 y(Figure)478 b(2)g(also)g(sp)31 -b(eci\014es)476 b(an)i(OCaml)h(represen)-31 b(tation)479 -b(t)-31 b(yp)31 b(e)478 b(for)f(v)-61 b(ariables,)506 -b(with)478 b(the)p Mahogany 478 w Fs(metavar)p Black -478 w Fx(hom)p RoyalBlue 479 w Fs({{)p Black Mahogany -581 w(ocaml)p Black 31 16675 a(int)p RoyalBlue(})q(})p -Black Fx(.)493 b(Executing)p Black Black 1775 18667 a -Fs(bin/ott)582 b(-i)g(tests/test10.ott)h(-o)f(test10.ml)31 -20660 y Fx(pro)31 b(duces)398 b(the)h(OCaml)h(co)31 b(de)398 -b(sho)-31 b(wn)399 b(in)f(Figure)h(9,)406 b(including)400 -b(OCaml)g(t)-31 b(yp)31 b(es)399 b(to)g(represen)-31 -b(t)397 b(the)i(abstract)g(syn)-31 b(tax,)31 21988 y(and)389 -b(auxiliary)i(functions)e(for)g(subrules)e(and)i(substitutions.)552 -b(This)389 b(do)31 b(es)388 b(not)h(implemen)-31 b(t)391 -b(the)d(seman)-31 b(tic)390 b(rules.)550 b(In)31 23317 -y(some)370 b(cases)f(the)g(v)-61 b(arious)370 b(pro)31 -b(of)369 b(assistan)-31 b(t)371 b(co)31 b(de)369 b(extraction)i -(facilities)h(can)d(b)31 b(e)369 b(used)f(|)h(see)g(Section)h(21.)31 -27641 y FC(8)1793 b(Filtering:)700 b(Using)399 b(Ott)g(syn)-50 -b(tax)400 b(within)g(L)30020 27307 y Fp(A)30714 27641 -y FC(T)31662 27996 y(E)32615 27641 y(X,)439 b(Co)50 b(q,)438 -b(Isab)50 b(elle,)440 b(HOL,)2721 29634 y(or)598 b(OCaml)31 -32944 y Fq(8.1)1495 b(Filtering)500 b(em)-42 b(b)42 b(edded)499 -b(co)42 b(de)31 35651 y Fx(It)410 b(is)g(p)31 b(ossible)410 -b(to)g(em)-31 b(b)31 b(ed)410 b(arbitrary)h(co)31 b(de)409 -b(in)h(the)g(Ott)h(source)e(using)h(an)p Mahogany 410 -w Fs(embed)p Black 410 w Fx(blo)31 b(c)-31 b(k,)422 b(whic)-31 -b(h)410 b(can)g(con)-31 b(tain)p Mahogany 412 w Fs(tex)p -Black Fx(,)p Mahogany 31 36980 a Fs(coq)p Black Fx(,)p -Mahogany 360 w Fs(hol)p Black Fx(,)p Mahogany 360 w Fs(isa)p -Black Fx(,)359 b(or)p Mahogany 356 w Fs(ocaml)p Black -357 w Fx(homomorphisms,)i(the)c(b)31 b(o)g(dies)356 b(of)g(whic)-31 -b(h)357 b(will)h(app)31 b(ear)357 b(in)f(the)g(resp)31 -b(ectiv)-31 b(e)357 b(output.)489 b(The)31 38308 y Fs(embed)392 -b Fx(k)-31 b(eyw)g(ord)392 b(should)g(b)31 b(e)390 b(on)i(a)f(line)h(b) --31 b(y)391 b(itself)86 b(\).)560 b(F)-92 b(or)390 b(example,)398 -b Fs(test8.ott)393 b Fx(con)-31 b(tains)392 b(the)f(follo)-31 -b(wing)395 b(to)d(de\014ne)31 39636 y(Co)31 b(q)370 b(and)g(HOL)f -Fs(remove_duplicates)i Fx(functions.)p Mahogany Black -Mahogany 31 41629 a Fs(embed)p Black RoyalBlue 31 42957 -a({)q({)p Black Mahogany 581 w(coq)p Black 31 44286 a(Fixpoint)583 -b(remove_duplicates)h(\(l:list)e(typvar_t\))g(:)f(list)h(typvar_t)h(:=) -1194 45614 y(match)f(l)f(with)1194 46942 y(|)g(nil)h(=>)f(nil)1194 -48271 y(|)g(cons)h(h)f(t)g(=>)h(if)f(\(list_mem)i(eq_typvar_t)g(h)e -(t\))1162 b(then)582 b(remove_duplicates)i(t)9330 49599 -y(else)e(cons)f(h)h(\(remove_duplicates)h(t\))31 50927 -y(end.)p RoyalBlue 582 w(}})p Black RoyalBlue 31 53584 -a({)q({)p Black Mahogany 581 w(hol)p Black 31 54913 a(val)f(_)f(=)h -(Define)g(`)1194 56241 y(\(remove_duplicates)i([])d(=)g([]\))h(/\\)1194 -57569 y(\(remove_duplicates)i(\(x::xs\))e(=)f(if)h(\(MEM)f(x)h(xs\))f -(then)h(remove_duplicates)i(xs)18047 58898 y(else)e -(x::\(remove_duplicates)i(xs\)\))31 60226 y(`;)p RoyalBlue -582 w(}})p Black 31 62218 a Fx(Within)366 b(the)g(b)31 -b(o)g(dy)365 b(of)g(an)p Mahogany 365 w Fs(embed)p Black -366 w Fx(homomorphism,)j(an)-31 b(y)366 b(text)g(b)31 -b(et)-31 b(w)g(een)p RoyalBlue 366 w Fs([[)p Black 365 -w Fx(and)p RoyalBlue 365 w Fs(]])p Black 365 w Fx(will)367 -b(b)31 b(e)364 b(parsed)h(as)g(a)g(sym)-31 b(b)31 b(olic)31 -63547 y(term)459 b(\(of)g(the)f Fs(user_syntax)h Fx(grammar\))h(and)e -(prett)-31 b(y)458 b(prin)-31 b(ted,)481 b(so)458 b(one)g(can)h(use)e -(user)g(syn)-31 b(tax)459 b(within)g(L)46149 63320 y -Fu(A)46637 63547 y Fx(T)47251 63785 y(E)47867 63547 y(X)f(or)31 -64875 y(pro)31 b(of)401 b(assistan)-31 b(t)401 b(co)31 -b(de.)584 b(An)400 b(Isab)31 b(elle)400 b(example)h(is)f(b)31 -b(elo)-31 b(w,)409 b(de\014ning)400 b(an)g(Isab)31 b(elle)401 -b(function)g(to)f(calculate)i(the)e(order)31 66204 y(of)370 -b(a)g(t)-31 b(yp)31 b(e)369 b(with)i(pro)31 b(ductions)370 -b Fs(unit)p Fx(,)g Fs(t*t')p Fx(,)g(and)f Fs(t->t')p -Fx(.)p RoyalBlue Black RoyalBlue 31 68196 a Fs({)q({)p -Black Mahogany 581 w(isa)p Black 31 69524 a(consts)31 -70853 y(order)582 b(::)g("type)g(=>)f(nat")31 72181 y(primrec)31 -73509 y("order)p RoyalBlue 583 w([[)p Black(unit)p RoyalBlue(]])p -Black 582 w(=)g(0")p Black 24533 77841 a Fx(24)p Black -eop end -%%Page: 25 25 -TeXDict begin 25 24 bop Black Black Black 0 8457 50863 -45 v 0 62172 45 53716 v Black Black 376 9481 a Fw(\045)523 -b(all)p Mahogany 376 10699 a(metavar)p Black 524 w(termvar)p -RoyalBlue(,)p Black 523 w(x)p RoyalBlue 523 w(::=)p Black -RoyalBlue 1569 w({{)p Black Mahogany 523 w(com)p Black -1046 w(term)h(variable)p RoyalBlue 523 w(}})p Black RoyalBlue -376 11916 a({{)p Black Mahogany 523 w(isa)p Black 524 -w(string)p RoyalBlue(}})p Black RoyalBlue 523 w({{)p -Black Mahogany 523 w(coq)p Black 523 w(nat)p RoyalBlue(}})p -Black RoyalBlue 523 w({{)p Black Mahogany 523 w(hol)p -Black 524 w(string)p RoyalBlue(}})p Black RoyalBlue 523 -w({{)p Black Mahogany 523 w(coq-equality)p Black RoyalBlue -523 w(}})p Black RoyalBlue 376 13134 a({{)p Black Mahogany -523 w(ocaml)p Black 524 w(int)p RoyalBlue(}})p Black -RoyalBlue 523 w({{)p Black Mahogany 523 w(lex)p Black -523 w(alphanum)p RoyalBlue(}})p Black RoyalBlue 523 w({{)p -Black Mahogany 524 w(tex)p Black 523 w(\\mathit{)p RoyalBlue([[)p -Black(termvar)p RoyalBlue(]])p Black(})p RoyalBlue 523 -w(}})p Black Mahogany 376 15569 a(grammar)p Black 376 -16787 a(t)p RoyalBlue 523 w(::)p Black 524 w('t_')p RoyalBlue -523 w(::=)p Black RoyalBlue 16214 w({{)p Black Mahogany -523 w(com)p Black 523 w(term)p RoyalBlue 2092 w(}})p -Black RoyalBlue 1422 18005 a(|)p Black 523 w(x)p RoyalBlue -6277 w(::)p Black RoyalBlue 1046 w(::)p Black 523 w(Var)p -RoyalBlue 9938 w({{)p Black Mahogany 523 w(com)p Black -523 w(variable)p RoyalBlue(}})p Black RoyalBlue 1422 -19222 a(|)p Black 523 w(\\)g(x)f(.)g(t)p RoyalBlue 3138 -w(::)p Black RoyalBlue 1046 w(::)p Black 523 w(Lam)p -RoyalBlue 523 w(\(+)p Black Mahogany 523 w(bind)p Black -524 w(x)p Mahogany 523 w(in)p Black 523 w(t)p RoyalBlue -523 w(+\))p Black RoyalBlue 523 w({{)p Black Mahogany -523 w(com)p Black 523 w(lambda)p RoyalBlue 1046 w(}})p -Black RoyalBlue 1422 20440 a(|)p Black 523 w(t)h(t')p -RoyalBlue 4707 w(::)p Black RoyalBlue 1046 w(::)p Black -523 w(App)p RoyalBlue 9938 w({{)p Black Mahogany 523 -w(com)p Black 523 w(app)p RoyalBlue 2615 w(}})p Black -RoyalBlue 1422 21658 a(|)p Black 523 w(\()g(t)f(\))p -RoyalBlue 4184 w(::)p Black Mahogany 523 w(S)p Black -RoyalBlue(::)p Black 523 w(Paren)p RoyalBlue 8892 w({{)p -Black Mahogany 523 w(icho)p Black RoyalBlue 523 w([[)p -Black(t)p RoyalBlue(]])p Black RoyalBlue 1046 w(}})p -Black RoyalBlue 1422 22875 a(|)p Black 523 w({)h(t)f(/)g(x)g(})g(t')p -RoyalBlue 523 w(::)p Black Mahogany 523 w(M)p Black RoyalBlue(::)p -Black 523 w(Tsub)p RoyalBlue 12929 24093 a({{)p Black -Mahogany 523 w(icho)p Black 523 w(\(tsubst_t)p RoyalBlue -524 w([[)p Black(t)p RoyalBlue(]])p Black RoyalBlue 523 -w([[)p Black(x)p RoyalBlue(]])p Black RoyalBlue 523 w([[)p -Black(t')p RoyalBlue(]])p Black(\))p RoyalBlue(}})p Black -376 26528 a(v)p RoyalBlue 523 w(::)p Black 524 w('v_')p -RoyalBlue 523 w(::=)p Black RoyalBlue 16214 w({{)p Black -Mahogany 523 w(com)p Black 523 w(value)p RoyalBlue 1569 -w(}})p Black RoyalBlue 1422 27746 a(|)p Black 523 w(\\)h(x)f(.)g(t)p -RoyalBlue 3138 w(::)p Black RoyalBlue 1046 w(::)p Black -523 w(Lam)p RoyalBlue 9938 w({{)p Black Mahogany 523 -w(com)p Black 523 w(lambda)p RoyalBlue 1046 w(}})p Black -Mahogany 376 30181 a(terminals)p Black RoyalBlue 524 -w(::)p Black 523 w('terminals_')p RoyalBlue 523 w(::=)p -Black RoyalBlue 1422 31399 a(|)p Black 523 w(\\)p RoyalBlue -6277 w(::)p Black RoyalBlue 1046 w(::)p Black 523 w(lambda)p -RoyalBlue 1046 w({{)p Black Mahogany 524 w(tex)p Black -523 w(\\lambda)p RoyalBlue 523 w(}})p Black RoyalBlue -1422 32617 a(|)p Black 523 w(-->)p RoyalBlue 5231 w(::)p -Black RoyalBlue 1046 w(::)p Black 523 w(red)p RoyalBlue -2615 w({{)p Black Mahogany 524 w(tex)p Black 523 w(\\longrightarrow)p -RoyalBlue 523 w(}})p Black Mahogany 376 35052 a(subrules)p -Black 1422 36270 a(v)p RoyalBlue 523 w(<::)p Black 524 -w(t)p Mahogany 376 38705 a(substitutions)p Black Mahogany -1422 39923 a(single)p Black 524 w(t)g(x)p RoyalBlue 523 -w(::)p Black 523 w(tsubst)p Mahogany 376 42358 a(defns)p -Black 376 43575 a(Jop)p RoyalBlue 523 w(::)p Black 524 -w('')p RoyalBlue 523 w(::=)p Black Mahogany 899 46011 -a(defn)p Black 899 47228 a(t1)g(-->)h(t2)p RoyalBlue -523 w(::)p Black RoyalBlue 523 w(::)p Black(reduce)p -RoyalBlue(::)p Black('')p RoyalBlue 523 w({{)p Black -Mahogany 523 w(com)p Black 523 w($)p RoyalBlue([[)p Black(t1)p -RoyalBlue(]])p Black($)g(reduces)f(to)g($)p RoyalBlue([[)p -Black(t2)p RoyalBlue(]])p Black($)p RoyalBlue(}})p Black -Mahogany 523 w(by)p Black RoyalBlue 2468 50881 a -(--------------------------)p Black 1047 w(::)h(ax_app)2468 -52099 y(\(\\)q(x.t12\))f(v2)g(-->)1046 b({v2/x}t12)2468 -54534 y(t1)524 b(-->)f(t1')p RoyalBlue 2468 55752 a(--------------)p -Black 524 w(::)g(ctx_app_fun)2468 56970 y(t1)h(t)f(-->)g(t1')g(t)2468 -59405 y(t1)h(-->)f(t1')p RoyalBlue 2468 60623 a(--------------)p -Black 524 w(::)g(ctx_app_arg)2468 61840 y(v)h(t1)f(-->)g(v)g(t1')p -50819 62172 V 0 62216 50863 45 v Black 17145 64191 a -Fx(Figure)369 b(8:)493 b(Source:)f Fs(test10.7.ott)p -Black Black Black 24502 77841 a Fx(25)p Black eop end -%%Page: 26 26 -TeXDict begin 26 25 bop Black Black Black 31 16366 50863 -45 v 31 54251 45 37886 v Black Black 408 17390 a Fw(\(*)523 -b(generated)g(by)g(Ott)h(0.28)f(from:)g(../tests/test10.ott)h -(../tests/non_super_tabular.ott)g(*\))408 19825 y(type)f(var)g(=)g(int) -g(\(*)g(term)h(variable)f(*\))408 22260 y(type)408 23478 -y(term)g(=)1046 b(\(*)523 b(term)g(*\))1977 24696 y(T_var)g(of)g(var)g -(\(*)g(variable)h(*\))931 25913 y(|)f(T_lam)g(of)g(var)g(*)g(term)h -(\(*)f(lambda)g(*\))931 27131 y(|)g(T_app)g(of)g(term)g(*)g(term)h(\(*) -f(app)g(*\))408 30784 y(\(**)g(subrules)g(*\))408 32002 -y(let)g(is_val_of_term)g(\(t5:term\))h(:)f(bool)g(=)1454 -33219 y(match)g(t5)g(with)1454 34437 y(|)g(\(T_var)g(x\))g(->)g(false) -1454 35655 y(|)g(\(T_lam)g(\(x,t\)\))g(->)h(\(true\))1454 -36872 y(|)f(\(T_app)g(\(t,t'\)\))g(->)h(false)408 41743 -y(\(**)f(substitutions)g(*\))408 42961 y(let)g(rec)g(tsubst_term)h -(\(t5:term\))f(\(x5:var\))g(\(t_6:term\))g(:)h(term)f(=)1454 -44178 y(match)g(t_6)g(with)1454 45396 y(|)g(\(T_var)g(x\))g(->)g(\(if)h -(x=x5)f(then)g(t5)g(else)g(\(T_var)g(x\)\))1454 46613 -y(|)g(\(T_lam)g(\(x,t\)\))g(->)h(T_lam)f(\(x,\(if)g(List.mem)g(x5)g -(\([x]\))h(then)f(t)g(else)g(\(tsubst_term)g(t5)g(x5)h(t\)\)\))1454 -47831 y(|)f(\(T_app)g(\(t,t'\)\))g(->)h(T_app)f(\(\(tsubst_term)g(t5)g -(x5)g(t\),\(tsubst_term)h(t5)f(x5)g(t'\)\))408 51484 -y(\(**)g(definitions)g(*\))p 50850 54251 V 31 54295 50863 -45 v Black 13970 56282 a Fx(Figure)369 b(9:)493 b(Generated)369 -b(OCaml)i(co)31 b(de:)493 b Fs(test10.ml)p Black Black -Black 24533 77841 a Fx(26)p Black eop end -%%Page: 27 27 -TeXDict begin 27 26 bop Black Black 0 -594 a Fs("order)p -RoyalBlue 582 w([[)p Black(t*t')p RoyalBlue(]])p Black -582 w(=)582 b(max)f(\(order)p RoyalBlue 582 w([[)p Black(t)p -RoyalBlue(]])p Black(\))h(\(order)p RoyalBlue 582 w([[)p -Black(t')p RoyalBlue(]])p Black(\)")0 735 y("order)p -RoyalBlue 582 w([[)p Black(t->t')p RoyalBlue(]])p Black -583 w(=)f(max)g(\(1+order)p RoyalBlue 583 w([[)p Black(t)p -RoyalBlue(]])p Black(\))h(\(order)p RoyalBlue 582 w([[)p -Black(t')p RoyalBlue(]])p Black(\)")p RoyalBlue 0 3391 -a(}})p Black 0 5384 a Fx(It)360 b(is)g(often)g(useful)g(to)h(de\014ne)f -(a)g(pro)31 b(of)360 b(assistan)-31 b(t)361 b(function,)j(in)c(an)p -Mahogany 360 w Fs(embed)p Black 360 w Fx(section,)j(together)e(with)h -(a)e(pro)31 b(duction)361 b(of)0 6712 y(the)p Mahogany -427 w Fs(formula)p Black 428 w Fx(grammar)428 b(with)f(a)g(pro)31 -b(of)427 b(assistan)-31 b(t)429 b(hom)e(that)h(uses)e(that)i(function,) -443 b(thereb)-31 b(y)427 b(in)-31 b(tro)31 b(ducing)428 -b(syn)-31 b(tax)0 8040 y(that)370 b(lets)g(the)f(function)i(b)31 -b(e)369 b(used)f(in)i(seman)-31 b(tic)370 b(rules.)0 -10033 y(Ott)307 b(also)f(p)31 b(ermits)306 b(em)-31 b(b)31 -b(ed)306 b(blo)31 b(c)-31 b(ks)307 b(with)p Mahogany -307 w Fs(tex-preamble)p Black Fx(,)320 b(homs,)g(whose)306 -b(con)-31 b(ten)g(ts)307 b(app)31 b(ear)306 b(in)g(the)g(generated)g(L) -47562 9806 y Fu(A)48050 10033 y Fx(T)48664 10271 y(E)49280 -10033 y(X)0 11361 y(pream)-31 b(ble.)494 b(An)-31 b(y)369 -b(de\014nitions)i(of)e(L)14477 11134 y Fu(A)14965 11361 -y Fx(T)15579 11600 y(E)16195 11361 y(X)g(commands)i(m)-31 -b(ust)370 b(app)31 b(ear)369 b(in)g(suc)-31 b(h)369 b(a)p -Mahogany 370 w Fs(tex-preamble)p Black 370 w Fx(section.)0 -15124 y Fq(8.2)1495 b(Filtering)500 b(\014les)0 17832 -y Fx(Similar)475 b(pro)31 b(cessing)474 b(can)f(b)31 -b(e)473 b(carried)h(out)g(on)g(separate)g(\014les,)500 -b(using)474 b(the)f(command-line)j(options)f Fs(tex_filter)p -Fx(,)0 19160 y Fs(isa_filter)p Fx(,)534 b(etc.)884 b(Eac)-31 -b(h)500 b(of)g(these)g(tak)-31 b(es)500 b(t)-31 b(w)g(o)502 -b(argumen)-31 b(ts,)533 b(a)500 b(source)f(\014lename)i(and)f(a)g -(destination)h(\014lename.)0 20488 y(In)486 b(pro)31 -b(cessing)486 b(the)h(source)f(\014le,)517 b(an)-31 b(y)487 -b(text)g(b)31 b(et)-31 b(w)g(een)p RoyalBlue 488 w Fs([[)p -Black 486 w Fx(and)p RoyalBlue 487 w Fs(]])p Black 487 -w Fx(will)488 b(b)31 b(e)486 b(parsed)g(as)h(a)f(sym)-31 -b(b)31 b(olic)488 b(term)f(\(of)h(the)0 21817 y Fs(user_syntax)371 -b Fx(grammar\))g(and)e(prett)-31 b(y)370 b(prin)-31 b(ted)370 -b(in)f(the)h(appropriate)g(st)-31 b(yle.)494 b(All)370 -b(other)f(text)h(is)g(simply)g(ec)-31 b(ho)31 b(ed.)0 -23809 y(T)-31 b(ypical)263 b(usage)f(for)f(L)8680 23582 -y Fu(A)9168 23809 y Fx(T)9782 24048 y(E)10398 23809 y(X)g(w)-31 -b(ould)262 b(b)31 b(e)261 b(something)i(lik)-31 b(e)262 -b(this)g(\(from)g(the)f Fs(Makefile)h Fx(used)f(to)h(pro)31 -b(duce)260 b(this)i(do)31 b(cumen)-31 b(t\):)p Black -Black 0 25802 a Fs(test7.tex:)583 b(../src/ott)f(../tests/test7.ott)i -(../tests/test7tt.mng)5230 27130 y(cd)e(../src;)g(make)g -(tmp_test7_clean.ott)5230 28458 y(../src/ott)23248 b(\\)9298 -29787 y(-i)582 b(../src/tmp_test7_clean.ott)8140 b(\\)9298 -31115 y(-o)582 b(test7.tex)18017 b(\\)9298 32444 y(-tex_show_meta)584 -b(false)13367 b(\\)9298 33772 y(-tex_wrap)583 b(false)16273 -b(\\)9298 35100 y(-tex_name_prefix)584 b(testSeven)9881 -b(\\)9298 36429 y(-tex_filter)583 b(../tests/test7tt.mng)h(test7tt.tex) -0 38421 y Fx(The)415 b Fs(-tex_wrap)582 b(false)416 b -Fx(turns)e(o\013)g(output)i(of)f(the)g(default)h(L)27002 -38194 y Fu(A)27490 38421 y Fx(T)28104 38659 y(E)28720 -38421 y(X)f(do)31 b(cumen)-31 b(t)415 b(pream)-31 b(ble,)428 -b(so)415 b(the)f(generated)i(\014le)0 39749 y Fs(test7.tex)509 -b Fx(just)f(con)-31 b(tains)509 b(L)12839 39523 y Fu(A)13327 -39749 y Fx(T)13941 39988 y(E)14557 39749 y(X)e(de\014nitions.)910 -b(The)508 b Fs(-tex_name_prefix)584 b(testSeven)508 b -Fx(sets)g(a)g(pre\014x)f(for)h(the)0 41078 y(generated)408 -b(L)5377 40851 y Fu(A)5865 41078 y Fx(T)6479 41316 y(E)7095 -41078 y(X)f(commands)h(\(so)g(the)g(L)17915 40851 y Fu(A)18403 -41078 y Fx(T)19017 41316 y(E)19632 41078 y(X)g(de\014nitions)g(from)g -(m)-31 b(ultiple)410 b(Ott)e(source)e(\014les)i(can)f(b)31 -b(e)407 b(included)h(in)0 42406 y(a)358 b(single)h(L)4274 -42179 y Fu(A)4762 42406 y Fx(T)5376 42644 y(E)5992 42406 -y(X)e(do)31 b(cumen)-31 b(t\).)491 b(The)358 b Fs(-tex_filter)h -Fx(argumen)-31 b(t)360 b(tak)-31 b(es)358 b(t)-31 b(w)g(o)360 -b(\014lenames,)i(a)c(source)f(and)h(a)g(destination.)0 -43735 y(It)377 b(\014lters)g(the)g(source)f(\014le,)k(\(roughly\))e -(replacing)h(an)-31 b(y)377 b(string)g(found)h(within)g -Fs([[)f(]])g Fx(b)-31 b(y)377 b(the)h(tex)f(prett)-31 -b(y-prin)g(t)378 b(of)g(its)0 45063 y(parse.)683 b(This)433 -b(parsing)h(is)e(done)h(w.r.t.)i(the)e(generated)h(non)-31 -b(terminal)435 b Fs(user_syntax)f Fx(whic)-31 b(h)434 -b(is)f(a)g(union)g(of)h(all)g(the)0 46391 y(user's)368 -b(grammar.)0 48384 y(A)-31 b(t)388 b(presen)-31 b(t)386 -b(m)-31 b(unged)388 b(strings)f(are)f(not)i(automatically)k(put)387 -b(within)h Fs($)f($)p Fx(,)392 b(and)387 b(there)g(is)f(no)i(analogue)h -(of)e(the)g Fs(<[)g(]>)0 49712 y Fx(of)370 b(our)f(previous)g(m)-31 -b(unger.)0 51705 y(The)344 b(lexing)h(turns)d(an)-31 -b(y)345 b(sequence)d(of)i Fs([)g Fx(\(resp.)483 b(of)344 -b Fs(])p Fx(\))g(of)g(length)h Fn(n)194 b Fx(+)h(1)344 -b(for)f Fn(n)308 b(>)f Fx(2)344 b(in)-31 b(to)345 b(a)f(literal)h -(sequence)e(of)h(length)0 53033 y Fn(n)p Fx(.)0 55026 -y(Figures)352 b(10)i(and)f(11)g(sho)-31 b(w)354 b(a)f(source)f(\014le)h -(\()p Fs(test7tt.mng)p Fx(\))i(that)f(uses)e(terms)g(of)i(the)f(F)36989 -55192 y Fr(<)p Fu(:)38339 55026 y Fx(de\014nition)h(of)439 -b Fs(test7.ott)p Fx(,)0 56354 y(and)369 b(the)h(result)f(of)h -(\014ltering)g(it.)0 58346 y(Similar)h(\014ltering)f(can)g(b)31 -b(e)369 b(p)31 b(erformed)368 b(on)i(Co)31 b(q,)370 b(Isab)31 -b(elle,)370 b(HOL,)g(and)f(OCaml)i(\014les.)0 60339 y(T)-92 -b(o)386 b(\014lter)g(\014les)g(with)h(resp)31 b(ect)385 -b(to)h(a)g(relativ)-31 b(ely)389 b(stable)d(system)g(de\014nition,)392 -b(without)c(ha)-31 b(ving)388 b(to)e(re-pro)31 b(cess)384 -b(the)i(Ott)0 61667 y(source)369 b(\014les)g(of)g(that)i(system)e -(de\014nition)i(eac)-31 b(h)370 b(time,)h(there)e(are)g(command-line)i -(options)p Black Black 1162 63660 a Fs(-writesys)583 -b()9300 b(Output)582 b(system)g(definition)1162 -64988 y(-readsys)h()9881 b(Input)582 b(system)g(definition)0 -66981 y Fx(to)464 b(\014rst)f(write)h(the)f(system)h(de\014nition)h -(\(generated)f(from)g(some)g(source)f(\014les\))g(to)h(a)g(\014le,)488 -b(and)463 b(then)h(to)g(read)f(one)0 68309 y(bac)-31 -b(k)499 b(in)g(\(instead)h(of)f(re-reading)g(the)g(Ott)g(source)f -(\014les\).)882 b(The)498 b(sa)-31 b(v)g(ed)500 b(system)f -(de\014nitions)g(are)g(in)g(an)g(in)-31 b(ternal)0 69637 -y(format,)364 b(pro)31 b(duced)359 b(using)i(the)f(OCaml)i(marshaller,) -h(and)d(con)-31 b(tain)362 b(OCaml)g(closures.)489 b(They)361 -b(therefore)f(will)i(not)f(b)31 b(e)0 70966 y(compatible)372 -b(b)31 b(et)-31 b(w)g(een)370 b(di\013eren)-31 b(t)369 -b(Ott)h(v)-31 b(ersions.)493 b(They)370 b(ma)-31 b(y)370 -b(also)g(b)31 b(e)369 b(quite)h(large.)p Black 24502 -77841 a(27)p Black eop end -%%Page: 28 28 -TeXDict begin 28 27 bop Black Black Black Black Black -31 17459 a Fs(We)582 b(can)g(TeX-typeset)g(symbolic)h(terms)f(of)f(the) -h(language,)g(e.g.)31 18787 y(\\)q([)p RoyalBlue 581 -w([[)p Black 581 w(\(\\)q(X<:Top.)g(\\x:X.x\))g([Top->Top])p -RoyalBlue 583 w(]])p Black(\\])31 20116 y(and)g(concrete)g(terms)31 -21444 y(\\)q([)p RoyalBlue 581 w([[)p Black Mahogany -581 w(:concrete:)p Black 583 w(\\Z1<:Top.)h(\\x:Z1.x)p -RoyalBlue 582 w(]])p Black(\\])31 22772 y(and)f(similarly)h(judgements) -f(etc,)g(e.g.)31 24101 y(\\)q([)p RoyalBlue 581 w([[)p -Black(G)g(|-)f(t)g(:)h(T)p RoyalBlue 581 w(]])p Black -581 w(\\])31 26757 y(Here)g(is)g(an)f(extract)h(of)g(the)f(syntax:)31 -29414 y(\\)q(testSevengrammartabular{)s(\\testSevent\\)r -(testSevenafterlastrule})31 32071 y(and)h(a)f(single)h(semantic)h -(rule:)31 34727 y(\\)q([\\testSevendruletinXXTwo{)s(})q(\\])31 -37384 y(and)f(a)f(judgement)i(definition:)31 40041 y(\\)q -(testSevendefnSA)31 42698 y(One)f(can)g(also)f(include)i(a)e(`defns')h -(collection)h(of)e(judgements,)i(or)e(the)h(complete)g(definition.)31 -44026 y(\045)g(\\section{)q(Full)g(Definition})31 45354 -y(\045)g(\\testSevenmetavars\\)s(\\[0pt])31 46683 y(\045)g -(\\testSevengrammar\\)r(\\)q([0pt])31 48011 y(\045)g(\\testSevendefnss) -31 49339 y(\045)31 50668 y(\045)g(\\testSevenall)p Black -7759 55760 a Fx(Figure)369 b(10:)494 b(F)13882 55926 -y Fr(<)p Fu(:)15248 55760 y Fx(Extracts:)g(L)20455 55533 -y Fu(A)20943 55760 y Fx(T)21557 55998 y(E)22172 55760 -y(X)369 b(source)g(\014le)h(to)f(b)31 b(e)369 b(\014ltered)h(\()p -Fs(test7tt.mng)p Fx(\))p Black Black Black 24533 77841 -a(28)p Black eop end -%%Page: 29 29 -TeXDict begin 29 28 bop Black Black Black 0 5409 a Fx(W)-92 -b(e)368 b(can)i(T)-92 b(eX-t)-31 b(yp)31 b(eset)370 b(sym)-31 -b(b)31 b(olic)371 b(terms)e(of)h(the)f(language,)j(e.g.)16690 -7844 y(\(\003)p Fo(X)175 b Fn(<)p Fx(:)p Fp(T)-106 b(op)p -Fn(:)184 b(\025)p Fo(x)133 b Fx(:)q Fo(X)175 b Fn(:)184 -b Fo(x)133 b Fx(\)[)p Fp(T)-106 b(op)310 b Ft(!)d Fp(T)-106 -b(op)p Fx(])0 10279 y(and)369 b(concrete)h(terms)20242 -11608 y(\003Z1)q Fn(<)p Fx(:)p Fp(T)-106 b(op)p Fn(:)184 -b(\025)p Fx(x:)r(Z1)q Fn(:)g Fx(x)0 13600 y(and)369 b(similarly)j -(judgemen)-31 b(ts)370 b(etc,)g(e.g.)22896 14928 y(\000)308 -b Ft(`)f Fo(t)413 b Fx(:)308 b Fo(T)0 16921 y Fx(Here)369 -b(is)g(an)g(extract)h(of)g(the)g(syn)-31 b(tax:)664 18177 -y Fo(t)2762 b Fx(::=)18735 b(term)4378 19505 y Ft(j)1913 -b Fo(x)18220 b Fx(v)-61 b(ariable)4378 20833 y Ft(j)1913 -b Fn(\025)p Fo(x)133 b Fx(:)p Fo(T)147 b Fn(:)184 b Fo(t)6046 -b Fk(bind)307 b Fo(x)440 b Fk(in)308 b Fo(t)4537 b Fx(abstraction)4378 -22162 y Ft(j)1913 b Fo(t)289 b(t)7728 21760 y Fl(0)25332 -22162 y Fx(application)4378 23490 y Ft(j)1913 b Fx(\003)p -Fo(X)175 b Fn(<)p Fx(:)p Fo(T)147 b Fn(:)184 b Fo(t)4711 -b Fk(bind)307 b Fo(X)482 b Fk(in)308 b Fo(t)4186 b Fx(t)-31 -b(yp)31 b(e)370 b(abstraction)4378 24818 y Ft(j)1913 -b Fo(t)105 b Fx([)p Fo(T)147 b Fx(])16708 b(t)-31 b(yp)31 -b(e)370 b(application)4378 26147 y Ft(j)1913 b(f)p Fo(l)7434 -26313 y Fu(1)7869 26147 y Fx(=)-61 b Fo(t)9037 26313 -y Fu(1)9533 26147 y Fn(;)370 b(::)184 b(;)g Fo(l)11782 -26313 y Fi(n)12357 26147 y Fx(=)-61 b Fo(t)13525 26313 -y Fi(n)14160 26147 y Ft(g)10619 b Fx(record)4378 27475 -y Ft(j)1913 b Fo(t)105 b Fn(:)p Fo(l)17671 b Fx(pro)61 -b(jection)4378 28804 y Ft(j)1913 b Fp(let)185 b Fo(p)8 -b Fx(=)-61 b Fo(t)288 b Fp(in)185 b Fo(t)11964 28402 -y Fl(0)16042 28804 y Fk(bind)307 b Fx(b\()p Fo(p)70 b -Fx(\))308 b Fk(in)g Fo(t)22365 28402 y Fl(0)25332 28804 -y Fx(pattern)370 b(binding)4378 30132 y Ft(j)1913 b Fx(\()p -Fo(t)105 b Fx(\))8111 b Fk(S)0 31410 y Fx(and)369 b(a)h(single)g(seman) --31 b(tic)371 b(rule:)20865 33779 y Fo(x)440 b Fx(:)308 -b Fo(T)455 b Ft(2)307 b Fx(\000)p 18416 34354 9452 45 -v 18416 35368 a Fo(x)440 b Fx(:)308 b Fo(T)455 b Ft(2)307 -b Fx(\000)p Fn(;)184 b Fo(X)24458 35048 y Fl(0)25077 -35368 y Fn(<)p Fx(:)308 b Fo(U)27557 35048 y Fl(0)29107 -34609 y Fj(tin)p 30848 34609 368 45 v 441 w(2)0 37127 -y Fx(and)369 b(a)h(judgemen)-31 b(t)371 b(de\014nition:)p -0 37497 6214 45 v 0 38973 45 1477 v 376 38598 a(\000)308 -b Ft(`)g Fo(S)440 b Fn(<)p Fx(:)308 b Fo(T)p 6169 38973 -V 0 39017 6214 45 v 2000 w(S)502 b Fx(is)369 b(a)g(subt)-31 -b(yp)31 b(e)369 b(of)h Fo(T)20659 40967 y Fx(\000)307 -b Ft(`)493 b Fp(ok)p 19075 41543 6645 45 v 19075 42557 -a Fx(\000)307 b Ft(`)h Fo(S)440 b Fn(<)p Fx(:)308 b Fp(T)-106 -b(op)26959 41797 y Fj(SA)p 28609 41797 368 45 v 441 w(Top)18708 -44477 y Fx(\000)308 b Ft(`)492 b Fp(ok)p 17565 45052 -5763 45 v 17565 46066 a Fx(\000)308 b Ft(`)g Fo(X)482 -b Fn(<)p Fx(:)308 b Fo(X)24568 45307 y Fj(SA)p 26218 -45307 368 45 v 440 w(Refl)p 29322 45307 V 441 w(TV)-129 -b(ar)17163 47814 y Fo(X)482 b Fn(<)p Fx(:)308 b Fo(U)489 -b Ft(2)307 b Fx(\000)17163 49142 y(\000)g Ft(`)h Fo(U)489 -b Fn(<)p Fx(:)308 b Fo(T)p 16609 49718 6938 45 v 17226 -50732 a Fx(\000)f Ft(`)h Fo(X)483 b Fn(<)p Fx(:)307 b -Fo(T)24786 49973 y Fj(SA)p 26436 49973 368 45 v 441 w(Trans)p -30279 49973 V 440 w(TV)-129 b(ar)18493 52480 y Fx(\000)307 -b Ft(`)h Fo(T)21268 52646 y Fu(1)22072 52480 y Fn(<)p -Fx(:)g Fo(S)24170 52646 y Fu(1)18493 53808 y Fx(\000)f -Ft(`)h Fo(S)21098 53974 y Fu(2)21902 53808 y Fn(<)p Fx(:)g -Fo(T)24170 53974 y Fu(2)p 15567 54384 12026 45 v 15567 -55398 a Fx(\000)f Ft(`)h Fo(S)18172 55564 y Fu(1)18977 -55398 y Ft(!)f Fo(S)21013 55564 y Fu(2)21817 55398 y -Fn(<)p Fx(:)h Fo(T)24085 55564 y Fu(1)24890 55398 y Ft(!)f -Fo(T)27096 55564 y Fu(2)28832 54638 y Fj(SA)p 30482 54638 -368 45 v 441 w(Arr)-25 b(o)g(w)17106 57269 y Fx(\000)307 -b Ft(`)h Fo(T)19881 57435 y Fu(1)20685 57269 y Fn(<)p -Fx(:)g Fo(S)22783 57435 y Fu(1)17106 58597 y Fx(\000)p -Fn(;)184 b Fo(X)483 b Fn(<)p Fx(:)308 b Fo(T)21863 58763 -y Fu(1)22667 58597 y Ft(`)g Fo(S)24273 58763 y Fu(2)25077 -58597 y Fn(<)p Fx(:)g Fo(T)27345 58763 y Fu(2)p 14910 -59172 15129 45 v 14910 60186 a Fx(\000)f Ft(`)h(8)p Fo(X)175 -b Fn(<)p Fx(:)p Fo(S)20296 60352 y Fu(1)20793 60186 y -Fn(:)184 b Fo(S)21906 60352 y Fu(2)22712 60186 y Fn(<)p -Fx(:)308 b Ft(8)p Fo(X)175 b Fn(<)p Fx(:)p Fo(T)27761 -60352 y Fu(1)28257 60186 y Fn(:)184 b Fo(T)29540 60352 -y Fu(2)31278 59427 y Fj(SA)p 32928 59427 368 45 v 441 -w(All)12364 62057 y Ft(8)p Fo(i)420 b Ft(2)308 b Fx(1)p -Fn(::)p Fo(m)85 b Fn(:)p Ft(9)p Fo(j)470 b Ft(2)307 b -Fx(1)p Fn(::)p Fo(n)85 b Fn(:)p Fx(\()p Fo(k)22837 62223 -y Fi(i)23188 62057 y Fx(=)-61 b Fo(l)24271 62223 y Fi(j)24967 -62057 y Ft(^)246 b Fx(\000)308 b Ft(`)f Fo(S)28556 62223 -y Fi(i)29274 62057 y Fn(<)p Fx(:)g Fo(T)31541 62223 y -Fi(j)31992 62057 y Fx(\))p 10893 62633 23001 45 v 10893 -63647 a(\000)g Ft(`)h(f)p Fo(k)13938 63813 y Fu(1)14743 -63647 y Fx(:)g Fo(S)15980 63813 y Fu(1)16477 63647 y -Fn(;)369 b(::)184 b(;)g Fo(k)18951 63813 y Fi(m)20124 -63647 y Fx(:)308 b Fo(S)21361 63813 y Fi(m)22224 63647 -y Ft(g)g Fn(<)p Fx(:)g Ft(f)p Fo(l)25397 63813 y Fu(1)26201 -63647 y Fx(:)g Fo(T)27608 63813 y Fu(1)28105 63647 y -Fn(;)369 b(::)184 b(;)g Fo(l)30353 63813 y Fi(n)31298 -63647 y Fx(:)308 b Fo(T)32705 63813 y Fi(n)33340 63647 -y Ft(g)35133 62887 y Fj(SA)p 36783 62887 368 45 v 441 -w(R)-32 b(cd)0 65467 y Fx(One)369 b(can)g(also)h(include)g(a)g(`defns') -g(collection)h(of)f(judgemen)-31 b(ts,)371 b(or)e(the)g(complete)i -(de\014nition.)p Black 10582 67902 a(Figure)e(11:)494 -b(F)16705 68068 y Fr(<)p Fu(:)18071 67902 y Fx(Extracts:)g(the)369 -b(\014ltered)h(output)g(\()p Fs(test7tt.tex)p Fx(\))p -Black Black Black 24502 77841 a(29)p Black eop end -%%Page: 30 30 -TeXDict begin 30 29 bop Black Black 31 -594 a FC(9)1793 -b(Binding)599 b(sp)50 b(eci\014cations)31 2495 y Fx(Our)369 -b(\014rst)g(example)h(in)-31 b(v)g(olv)g(ed)372 b(a)d(pro)31 -b(duction)370 b(with)h(a)e(single)h(binder:)15301 5528 -y Fo(t)2761 b Fx(::=)19015 6856 y Ft(j)1913 b Fn(\025)184 -b Fo(x)317 b Fn(:)184 b Fo(t)1434 b Fk(bind)308 b Fo(x)440 -b Fk(in)308 b Fo(t)2762 b Fx(Lam)31 9463 y(sp)31 b(eci\014ed)369 -b(b)-31 b(y)370 b(the)f(source)g(sho)-31 b(wn)370 b(in)f(Figure)g(4:)p -Black Black RoyalBlue 1194 11455 a Fs(|)p Black 581 w(\\)581 -b(x)h(.)f(t)p RoyalBlue 3487 w(::)p Black RoyalBlue 1163 -w(::)p Black 581 w(Lam)p RoyalBlue 2906 w(\(+)p Black -Mahogany 582 w(bind)p Black 581 w(x)p Mahogany 582 w(in)p -Black 581 w(t)p RoyalBlue 581 w(+\))p Black 31 13448 -a Fx(in)380 b(whic)-31 b(h)380 b(a)g(single)g(v)-61 b(ariable)380 -b(binds)f(in)h(a)f(single)h(subterm.)523 b(Realistic)381 -b(programming)g(languages)g(often)g(ha)-31 b(v)g(e)380 -b(m)-31 b(uc)g(h)31 14776 y(more)405 b(complex)g(binding)g(structures,) -412 b(e.g.)405 b(structured)e(patterns,)414 b(m)-31 b(ultiple)406 -b(m)-31 b(utually)406 b(recursiv)-31 b(e)404 b Fs(let)g -Fx(de\014nitions,)31 16104 y(comprehensions,)371 b(or-patterns,)f(and)f -(dep)31 b(enden)-31 b(t)369 b(record)g(patterns.)31 18097 -y(Ott)412 b(has)e(a)g(\015exible)i(metalanguage)i(for)c(sp)31 -b(ecifying)412 b(binding)f(structures,)420 b(expressiv)-31 -b(e)410 b(enough)h(to)h(co)-31 b(v)g(er)410 b(these.)617 -b(It)31 19425 y(comprises)482 b(t)-31 b(w)g(o)483 b(forms)f(of)g -(annotation)i(on)e(pro)31 b(ductions.)830 b(The)482 b(\014rst,)1018 -b Fk(bind)185 b Fo(mse)268 b Fk(in)185 b Fo(nonterm)85 -b Fx(,)1019 b(lets)482 b(one)f(sp)31 b(ecify)31 20754 -y(that)435 b(v)-61 b(ariables)434 b(bind)g(in)f(non)-31 -b(terminals)436 b(of)d(the)h(pro)31 b(duction,)451 b(as)433 -b(in)h(the)f Fs(Lam)h Fx(pro)31 b(duction)434 b(ab)31 -b(o)-31 b(v)g(e.)686 b(Here)866 b Fo(mse)950 b Fx(is)31 -22082 y(a)383 b Fo(metavariable)408 b(set)f(expr)-57 -b(ession)p Fx(,)385 b(e.g.)e(in)g(that)g(lam)-31 b(b)31 -b(da)383 b(pro)31 b(duction)383 b(just)f(the)g(singleton)i(meta)-31 -b(v)-61 b(ariable)767 b Fo(x)896 b Fx(of)382 b(the)31 -23410 y(pro)31 b(duction.)609 b(A)407 b(v)-61 b(ariable)408 -b(can)g(bind)g(in)f(m)-31 b(ultiple)410 b(non)-31 b(terminals,)419 -b(as)408 b(in)f(the)h(example)h(of)f(a)f(simple)h(recursiv)-31 -b(e)407 b Fs(let)31 24739 y Fx(b)31 b(elo)-31 b(w.)15698 -27772 y Fo(t)473 b Fx(::=)16805 29100 y Ft(j)738 b Fp(let)185 -b(rec)g Fo(x)440 b Fx(=)307 b Fo(t)290 b Fp(in)184 b -Fo(t)25823 28698 y Fl(0)28569 29100 y Fk(bind)307 b Fo(x)441 -b Fk(in)307 b Fo(t)28569 30428 y Fk(bind)g Fo(x)441 b -Fk(in)307 b Fo(t)33427 30027 y Fl(0)31 33035 y Fx(More)484 -b(complex)h(examples)g(require)e(one)h(to)h(collect)g(together)g(sets)f -(of)g(v)-61 b(ariables.)837 b(F)-92 b(or)483 b(example,)514 -b(the)484 b(grammar)31 34363 y(b)31 b(elo)-31 b(w)427 -b(\(sho)-31 b(wn)427 b(in)f(Ott)h(source)e(and)h(the)g(generated)g(L) -23580 34136 y Fu(A)24068 34363 y Fx(T)24682 34601 y(E)25298 -34363 y(X\))g(has)g(structured)f(patterns,)441 b(with)427 -b(a)851 b Fp(let)185 b Fo(p)656 b Fx(=)586 b Fo(t)289 -b Fp(in)184 b Fo(t)49831 33961 y Fl(0)31 35691 y Fx(pro)31 -b(duction)371 b(in)e(whic)-31 b(h)370 b(all)h(the)e(binders)g(of)g(the) -h(pattern)739 b Fo(p)438 b Fx(bind)370 b(in)f(the)h(con)-31 -b(tin)g(uation)741 b Fo(t)38884 35290 y Fl(0)39195 35691 -y Fx(.)p Black Black 31 37573 a Fw(t)p RoyalBlue 524 -w(::)p Black 523 w(E_)p RoyalBlue 523 w(::=)p Black RoyalBlue -1078 38791 a(|)p Black 523 w(x)p RoyalBlue 12552 w(::)p -Black RoyalBlue 1570 w(::)p Black 523 w(ident)p RoyalBlue -1078 40009 a(|)p Black 523 w(\()523 b(t1)g(,)g(t2)g(\))p -RoyalBlue 7322 w(::)p Black RoyalBlue 1570 w(::)p Black -523 w(pair)p RoyalBlue 1078 41226 a(|)p Black 523 w(let)g(p)g(=)g(t)g -(in)g(t')p RoyalBlue 5230 w(::)p Black RoyalBlue 1570 -w(::)p Black 523 w(letrec)p RoyalBlue 3138 w(\(+)p Black -Mahogany 523 w(bind)p Black 523 w(binders)p RoyalBlue(\()p -Black(p)p RoyalBlue(\))p Black Mahogany 524 w(in)p Black -523 w(t')p RoyalBlue 523 w(+\))p Black 31 44879 a(p)p -RoyalBlue 524 w(::)p Black 523 w(P_)p RoyalBlue 523 w(::=)p -Black RoyalBlue 1078 46097 a(|)p Black 523 w(_)p RoyalBlue -12552 w(::)p Black RoyalBlue 1570 w(::)p Black 523 w(wildcard)p -RoyalBlue 2092 w(\(+)p Black 523 w(binders)p RoyalBlue -523 w(=)p Black RoyalBlue 524 w({})p Black RoyalBlue -523 w(+\))p Black RoyalBlue 1078 47314 a(|)p Black 523 -w(x)p RoyalBlue 12552 w(::)p Black RoyalBlue 1570 w(::)p -Black 523 w(ident)p RoyalBlue 3661 w(\(+)p Black 523 -w(binders)p RoyalBlue 523 w(=)p Black 524 w(x)p RoyalBlue -523 w(+\))p Black RoyalBlue 1078 48532 a(|)p Black 523 -w(\()g(p1)g(,)g(p2)g(\))p RoyalBlue 7322 w(::)p Black -RoyalBlue 1570 w(::)p Black 523 w(pair)p RoyalBlue 4184 -w(\(+)p Black 523 w(binders)p RoyalBlue 523 w(=)p Black -524 w(binders)p RoyalBlue(\()p Black(p1)p RoyalBlue(\))p -Black Mahogany 523 w(union)p Black 523 w(binders)p RoyalBlue(\()p -Black(p2)p RoyalBlue(\))p Black RoyalBlue 523 w(+\))p -Black 696 52672 a Fo(t)473 b Fx(::=)1803 54001 y Ft(j)738 -b Fo(x)1803 55329 y Ft(j)g Fx(\()p Fo(t)3646 55495 y -Fu(1)4143 55329 y Fn(;)184 b Fo(t)5002 55495 y Fu(2)5499 -55329 y Fx(\))1803 56657 y Ft(j)738 b Fp(let)185 b Fo(p)377 -b Fx(=)307 b Fo(t)290 b Fp(in)184 b Fo(t)8952 56256 y -Fl(0)11698 56657 y Fk(bind)307 b Fx(binders\()p Fo(p)70 -b Fx(\))308 b Fk(in)g Fo(t)20921 56256 y Fl(0)696 58615 -y Fo(p)438 b Fx(::=)1803 59944 y Ft(j)p 2915 59944 333 -45 v 9588 w Fx(binders)307 b(=)g Ft(fg)1803 61272 y(j)738 -b Fo(x)8336 b Fx(binders)307 b(=)g Fo(x)1803 62601 y -Ft(j)738 b Fx(\()p Fo(p)3844 62767 y Fu(1)4341 62601 -y Fn(;)184 b Fo(p)5398 62767 y Fu(2)5895 62601 y Fx(\))5373 -b(binders)307 b(=)g(binders\()p Fo(p)21199 62767 y Fu(1)21696 -62601 y Fx(\))246 b Ft([)g Fx(binders\()p Fo(p)27867 -62767 y Fu(2)28363 62601 y Fx(\))31 65650 y(This)279 -b(is)f(expressed)f(with)j(the)e(second)g(form)h(of)g(annotation:)450 -b(user-de\014ned)277 b Fo(auxiliary)313 b(functions)370 -b Fx(suc)-31 b(h)278 b(as)g(the)g(binders)31 66978 y(ab)31 -b(o)-31 b(v)g(e.)518 b(This)378 b(is)f(an)h(auxiliary)h(function)g -(de\014ned)e(o)-31 b(v)g(er)377 b(the)755 b Fo(p)447 -b Fx(grammar)378 b(that)h(iden)-31 b(ti\014es)378 b(a)f(set)g(of)h(v) --61 b(ariables)378 b(to)g(b)31 b(e)31 68306 y(used)301 -b(in)h(the)f Fk(bind)g Fx(annotation)k(on)c(the)603 b -Fp(let)301 b Fx(pro)31 b(duction.)471 b(There)301 b(can)g(b)31 -b(e)301 b(an)-31 b(y)302 b(n)-31 b(um)g(b)31 b(er)301 -b(of)h(suc)-31 b(h)301 b(auxiliary)i(functions;)31 69635 -y(binders)369 b(is)g(not)h(a)g(distinguished)g(k)-31 -b(eyw)g(ord.)31 71627 y(The)527 b(syn)-31 b(tax)527 b(of)f(a)g(precise) -f(fragmen)-31 b(t)528 b(of)e(the)g(binding)h(metalanguage)j(is)c(giv) --31 b(en)527 b(in)f(Fig.)g(12,)1132 b(where)525 b(w)-31 -b(e)527 b(ha)-31 b(v)g(e)31 72956 y(used)465 b(Ott)h(to)f(de\014ne)g -(part)g(of)h(the)f(Ott)h(metalanguage.)783 b(A)465 b(simple)h(t)-31 -b(yp)31 b(e)465 b(system)g(\(not)i(sho)-31 b(wn\))466 -b(enforces)e(sanit)-31 b(y)p Black 24533 77841 a(30)p -Black eop end -%%Page: 31 31 -TeXDict begin 31 30 bop Black Black Black 0 -1657 50111 -45 v 0 35927 45 37584 v 849 -472 a FB(meta)-33 b(v)-65 -b(ars)1329 b Fh(metavarr)-52 b(o)g(ot)94 b Fg(;)342 b -Fh(mvr)1778 b(nontermr)-52 b(o)g(ot)94 b Fg(;)341 b Fh(ntr)6780 -746 y(terminal)103 b Fg(;)342 b Fh(t)4722 b(auxfn)78 -b Fg(;)342 b Fh(f)6780 1963 y(pr)-52 b(o)g(dname)75 b -Fg(;)342 b Fh(pn)3442 b(variable)76 b Fg(;)342 b Fh(var)849 -3291 y FB(grammar)2100 4620 y Fh(metavar)108 b Fg(;)513 -b Fh(mv)449 b FA(::=)3124 5838 y Ff(j)683 b Fh(metavarr)-52 -b(o)g(ot)265 b(su\016x)2100 7685 y(nonterm)80 b Fg(;)512 -b Fh(nt)435 b FA(::=)3124 8903 y Ff(j)683 b Fh(nontermr)-52 -b(o)g(ot)265 b(su\016x)2100 10750 y(element)96 b Fg(;)513 -b Fh(e)417 b FA(::=)3124 11968 y Ff(j)683 b Fh(terminal)3124 -13186 y Ff(j)g Fh(metavar)3124 14403 y Ff(j)g Fh(nonterm)2100 -16251 y(metavar)p 5863 16251 308 45 v 477 w(set)p 7554 -16251 V 463 w(expr)-52 b(ession)79 b Fg(;)513 b Fh(mse)417 -b FA(::=)3124 17469 y Ff(j)683 b Fh(metavar)3124 18686 -y Ff(j)g Fh(auxfn)78 b Fw(\()p Fh(nonterm)i Fw(\))3124 -19904 y Ff(j)683 b Fh(mse)247 b Fw(union)171 b Fh(mse)10647 -19481 y Fe(0)3124 21122 y Ff(j)683 b(fg)2100 22969 y -Fh(bindsp)-52 b(e)g(c)55 b Fg(;)513 b Fh(bs)423 b FA(::=)3124 -24187 y Ff(j)683 b Fw(bind)171 b Fh(mse)247 b Fw(in)171 -b Fh(nonterm)3124 25404 y Ff(j)683 b Fh(auxfn)363 b FA(=)284 -b Fh(mse)2100 27252 y(pr)-52 b(o)g(d)101 b Fg(;)513 b -Fh(p)404 b FA(::=)3124 28470 y Ff(j)683 b Fw(|)p Fh(element)8036 -28581 y Fy(1)8670 28470 y Fg(::)171 b Fh(element)12831 -28581 y Fd(m)13581 28470 y Fw(::::)p Fh(pr)-52 b(o)g(dname)74 -b Fw(\(+)q Fh(bs)21982 28581 y Fy(1)22614 28470 y Fg(::)172 -b Fh(bs)24242 28581 y Fd(n)24794 28470 y Fw(+\))2100 -30317 y Fh(rule)76 b Fg(;)513 b Fh(r)449 b FA(::=)3124 -31535 y Ff(j)683 b Fh(nontermr)-52 b(o)g(ot)94 b Fw(::''::=)p -Fh(pr)-52 b(o)g(d)15205 31646 y Fy(1)15836 31535 y Fg(::)171 -b Fh(pr)-52 b(o)g(d)18471 31646 y Fd(m)2100 33383 y Fh(gr)g(ammar)p -6268 33383 V 477 w(rules)82 b Fg(;)513 b Fh(g)430 b FA(::=)3124 -34600 y Ff(j)683 b Fw(grammar)171 b Fh(rule)9634 34711 -y Fy(1)10267 34600 y Fg(::)g Fh(rule)12717 34711 y Fd(m)p -50066 35927 45 37584 v 0 35971 50111 45 v Black 8669 -37958 a Fx(Figure)369 b(12:)494 b(Mini-Ott)370 b(in)g(Ott:)493 -b(the)369 b(binding)i(sp)31 b(eci\014cation)370 b(metalanguage)p -Black Black 0 41494 a(prop)31 b(erties,)403 b(e.g.)397 -b(that)g(eac)-31 b(h)397 b(auxiliary)h(function)f(is)f(only)h(applied)g -(to)g(non)-31 b(terminals)398 b(that)f(it)g(is)e(de\014ned)h(o)-31 -b(v)g(er,)404 b(and)0 42823 y(that)370 b(meta)-31 b(v)-61 -b(ariable)372 b(set)d(expressions)g(are)g(w)-31 b(ell-sorted.)0 -44815 y(F)-92 b(urther)286 b(to)i(that)h(fragmen)-31 -b(t,)306 b(the)288 b(to)31 b(ol)289 b(supp)31 b(orts)286 -b(binding)j(for)e(the)h(list)g(forms)g(of)g Ft(x)p Fx(12.)466 -b(Meta)-31 b(v)-61 b(ariable)289 b(set)f(expressions)0 -46143 y(can)388 b(include)g(lists)g(of)h(meta)-31 b(v)-61 -b(ariables)390 b(and)d(auxiliary)j(functions)f(applied)g(to)f(lists)g -(of)h(non)-31 b(terminals,)394 b(e.g.)389 b(as)f(in)g(the)0 -47472 y(record)369 b(patterns)g(b)31 b(elo)-31 b(w.)664 -51612 y Fo(p)439 b Fx(::=)1771 52940 y Ft(j)739 b Fo(x)11908 -b Fx(b)308 b(=)f Fo(x)1771 54269 y Ft(j)739 b(f)p Fo(l)3653 -54435 y Fu(1)4457 54269 y Fx(=)308 b Fo(p)6192 54435 -y Fu(1)6688 54269 y Fn(;)369 b(::)184 b(;)g Fo(l)8936 -54435 y Fi(n)9881 54269 y Fx(=)308 b Fo(p)11616 54435 -y Fi(n)12250 54269 y Ft(g)2436 b Fx(b)308 b(=)f(b\()p -Fo(p)18941 54435 y Fu(1)19438 54269 y Fn(::)p Fo(p)20618 -54435 y Fi(n)21254 54269 y Fx(\))0 57318 y(This)420 b(su\016ces)f(to)h -(express)e(the)i(binding)h(structure)d(of)i(almost)i(all)e(the)g -(natural)h(examples)f(w)-31 b(e)420 b(ha)-31 b(v)g(e)421 -b(come)f(across,)0 58646 y(including)368 b(de\014nitions)f(of)f(m)-31 -b(utually)369 b(recursiv)-31 b(e)365 b(functions)i(with)h(m)-31 -b(ultiple)368 b(clauses)e(for)g(eac)-31 b(h,)367 b(Join)g(calculus)g -(de\014ni-)0 59974 y(tions)j([F)-31 b(GL)5272 59573 y -Fu(+)6007 59974 y Fx(96)q(],)370 b(dep)31 b(enden)-31 -b(t)369 b(record)g(patterns,)h(and)f(man)-31 b(y)370 -b(others.)0 64299 y FC(10)1793 b(Generating)598 b(substitution)j(and)d -(free)g(v)-100 b(ariable)600 b(functions)0 67388 y Fx(The)424 -b(to)31 b(ol)425 b(can)e(generate)h(Isab)31 b(elle/Co)g(q/HOL/OCaml)428 -b(co)31 b(de)424 b(for)f(b)31 b(oth)424 b(single)g(and)g(m)-31 -b(ultiple)426 b(substitution)f(func-)0 68716 y(tions.)494 -b(F)-92 b(or)368 b(example,)j(the)e(ML)g(p)31 b(olymorphism)371 -b(Ott)f(source)f(of)455 b Fs(test8.ott)371 b Fx(includes)e(the)h(follo) --31 b(wing.)p Black Black Mahogany 1162 70709 a Fs(substitutions)p -Black Mahogany 2325 72037 a(single)p Black 1744 w(expr)582 -b(value_name)p RoyalBlue 582 w(::)p Black 582 w(subst)p -Mahogany 2325 73365 a(multiple)p Black 582 w(typexpr)g(typvar)p -RoyalBlue 1163 w(::)p Black 582 w(tsubst)p Black 24502 -77841 a Fx(31)p Black eop end -%%Page: 32 32 -TeXDict begin 32 31 bop Black Black 31 -594 a Fx(This)398 -b(causes)e(the)h(generation)i(of)f(t)-31 b(w)g(o)398 -b(families)h(of)f(substitution)g(functions,)406 b(one)397 -b(replacing)h(a)f(single)h Fs(value_name)31 735 y Fx(b)-31 -b(y)370 b(a)f Fs(expr)p Fx(,)h(the)g(other)f(replacing)i(m)-31 -b(ultiple)371 b Fs(typvar)p Fx(s)f(b)-31 b(y)369 b Fs(typexpr)p -Fx(s.)31 2727 y(Eac)-31 b(h)485 b(family)g(con)-31 b(tains)485 -b(a)f(function)h(for)e(eac)-31 b(h)484 b(datat)-31 b(yp)31 -b(e)485 b(for)f(whic)-31 b(h)484 b(it)g(is)f(required,)512 -b(so)484 b(in)f(that)i(example)g(there)31 4055 y(are)401 -b(functions)h Fs(subst_expr)h Fx(for)e(the)g(\014rst)f(and)i -Fs(tsubst_typexpr)p Fx(,)411 b Fs(tsubst_typscheme)403 -b Fx(and)e Fs(tsubst_G)h Fx(for)f(the)31 5384 y(second.)31 -7376 y(The)370 b(functions)g(for)f(substitutions)i(declared)f(b)-31 -b(y)p Black Black Mahogany 1194 9369 a Fs(substitutions)p -Black Mahogany 2356 10697 a(single)p Black 1744 w(this)582 -b(that)p RoyalBlue 582 w(::)p Black 581 w(name1)p Mahogany -2356 12026 a(multiple)p Black 582 w(this)g(that)p RoyalBlue -582 w(::)p Black 581 w(name2)31 14018 y Fx(replaces)275 -b(terms)g(of)g(pro)31 b(ductions)275 b(consisting)i(just)d(of)i(a)f -(single)g Fs(that)g Fx(b)-31 b(y)275 b(a)g Fs(this)p -Fx(.)462 b(Here)274 b Fs(this)h Fx(m)-31 b(ust)276 b(b)31 -b(e)274 b(a)h(non)-31 b(terminal)31 15346 y(ro)31 b(ot,)446 -b(while)430 b Fs(that)f Fx(can)h(b)31 b(e)428 b(either)i(a)f(meta)-31 -b(v)-61 b(ariable)432 b(ro)31 b(ot)429 b(or)g(a)h(non)-31 -b(terminal)431 b(ro)31 b(ot)430 b(\(the)g(latter)g(p)31 -b(ossibilit)-31 b(y)431 b(allo)-31 b(ws)31 16675 y(substitution)436 -b(for)d(comp)31 b(ound)434 b(iden)-31 b(ti\014ers,)450 -b(though)435 b(it)f(is)f(not)h(clear)g(that)g(this)g(is)f(generally)i -(useful)e(enough)h(to)g(b)31 b(e)31 18003 y(included\).)626 -b(Substitution)416 b(functions)e(are)f(generated)h(for)f(eac)-31 -b(h)414 b(mem)-31 b(b)31 b(er)413 b(of)h(eac)-31 b(h)413 -b(\(m)-31 b(utually)417 b(recursiv)-31 b(e\))413 b(blo)31 -b(c)-31 b(k)414 b(of)31 19331 y(grammar)371 b(rules)e(whic)-31 -b(h)370 b(either)f(con)-31 b(tain)371 b(suc)-31 b(h)369 -b(a)h(pro)31 b(duction)370 b(or)f(\(indirectly\))i(refer)e(to)h(one)f -(that)i(do)31 b(es.)31 21324 y(A)-31 b(t)326 b(presen)-31 -b(t)324 b(m)-31 b(ultiple)327 b(substitutions)f(are)e(represen)-31 -b(ted)324 b(b)-31 b(y)325 b(Isab)31 b(elle/Co)g(q/HOL/OCaml)329 -b(lists,)334 b(so)325 b(for)f(the)h(example)31 22652 -y(ab)31 b(o)-31 b(v)g(e)371 b(w)-31 b(e)370 b(ha)-31 -b(v)g(e)370 b(Isab)31 b(elle)p Black Black 1194 24645 -a Fs(tsubst_typexpr)583 b(::)e("\(typvar*typexpr\))j(list)e(=>)f -(typexpr)i(=>)e(typexpr")1194 25973 y(tsubst_typscheme)i(::)f -("\(typvar*typexpr\))h(list)f(=>)g(typscheme)g(=>)g(typscheme")1194 -27302 y(tsubst_G)g(::)g("\(typvar*typexpr\))h(list)f(=>)f(G)h(=>)f(G") -31 29294 y Fx(The)332 b(generated)f(functions)h(do)f(not)h(substitute)g -(b)31 b(ound)330 b(things,)340 b(and)331 b(recursiv)-31 -b(e)331 b(calls)h(under)e(binders)g(are)h(\014ltered)g(to)31 -30622 y(remo)-31 b(v)g(e)371 b(the)e(b)31 b(ound)369 -b(things.)31 32615 y(Similarly)-92 b(,)384 b(the)378 -b(to)31 b(ol)380 b(can)e(generate)h(Isab)31 b(elle/Co)g(q/HOL/OCaml)383 -b(to)c(calculate)h(the)f(free)e(v)-61 b(ariables)379 -b(of)g(terms.)519 b(F)-92 b(or)31 33943 y(example,)372 -b(the)d(ML)g(p)31 b(olymorphism)371 b(Ott)e(source)g(of)456 -b Fs(test8.ott)370 b Fx(includes)g(the)f(follo)-31 b(wing.)p -Black Black Mahogany 1194 35936 a Fs(freevars)p Black -2356 37264 a(typexpr)582 b(typvar)p RoyalBlue 582 w(::)p -Black 582 w(ftv)31 39257 y Fx(This)532 b(causes)g(Isab)31 -b(elle)532 b(functions)g(as)g(b)31 b(elo)-31 b(w)533 -b(to)f(b)31 b(e)531 b(generated,)574 b(calculating)534 -b(the)e(free)f Fs(typvar)p Fx(s)h(that)h(o)31 b(ccur)531 -b(in)31 40585 y(singleton)371 b(pro)31 b(ductions)370 -b(in)g(the)f Fs(typexpr)h Fx(grammar,)h(within)g(terms)e(of)h(all)g(t) --31 b(yp)31 b(es.)p Black Black 1194 42578 a Fs(ftv_typexpr)583 -b(::)e("typexpr)h(=>)g(typvar)g(list")1194 43906 y(ftv_typscheme)h(::)e -("typscheme)i(=>)e(typvar)h(list")1194 45234 y(ftv_G)g(::)f("G)h(=>)f -(typvar)h(list")31 49559 y FC(11)1793 b(Lo)50 b(cally-nameless)600 -b(represen)-50 b(tation)31 52648 y Fx(The)441 b(Co)31 -b(q)441 b(bac)-31 b(k)g(end)442 b(of)f(Ott)g(includes)g(exp)31 -b(erimen)-31 b(tal)442 b(supp)31 b(ort)441 b(for)f(a)h(lo)31 -b(cally-nameless)443 b(represen)-31 b(tation)442 b(\(and)f(co-)31 -53976 y(\014nite)370 b(quan)-31 b(ti\014cation\).)31 -55969 y(The)247 b(user)e(m)-31 b(ust)247 b(sp)31 b(ecify)246 -b(whic)-31 b(h)247 b(meta)-31 b(v)-61 b(ariables)249 -b(require)d(a)g(lo)31 b(cally-nameless)249 b(represen)-31 -b(tation)247 b(via)h(the)p Mahogany 246 w Fs(repr-locally-nameless)p -Black 31 57297 a Fx(hom,)371 b(e.g.:)p Mahogany Black -Mahogany 31 59290 a Fs(metavar)p Black 583 w(x)p RoyalBlue -581 w(::=)p Black RoyalBlue 582 w({{)p Black Mahogany -581 w(repr-locally-nameless)p Black RoyalBlue 584 w(}})p -Black RoyalBlue 582 w({{)p Black Mahogany 581 w(com)p -Black 1163 w(term)582 b(variable)p RoyalBlue 1163 w(}})p -Black 31 61282 a Fx(As)414 b(usual,)426 b(meta)-31 b(v)-61 -b(ariables)416 b(can)e(b)31 b(e)413 b(b)31 b(ound)413 -b(in)h(pro)31 b(ductions,)426 b(using)414 b(the)g(bindsp)31 -b(ec)414 b(language,)427 b(as)414 b(in)g(the)g Fs(lam)g -Fx(pro-)31 62611 y(duction)371 b(b)31 b(elo)-31 b(w:)p -Mahogany Black Mahogany 31 64603 a Fs(grammar)p Black -1194 65931 a(t)p RoyalBlue 581 w(::)p Black 582 w('t_')p -RoyalBlue 581 w(::=)p Black RoyalBlue 23828 w({{)p Black -Mahogany 581 w(com)p Black 582 w(term)p RoyalBlue 582 -w(}})p Black RoyalBlue 2356 67260 a(|)p Black 581 w(x)p -RoyalBlue 11042 w(::)p Black RoyalBlue 1744 w(::)p Black -582 w(Var)p RoyalBlue 12204 w({{)p Black Mahogany 582 -w(com)p Black 581 w(variable)p RoyalBlue 583 w(}})p Black -RoyalBlue 2356 68588 a(|)p Black 581 w(\\)582 b(x)f(.)g(t)p -RoyalBlue 7555 w(::)p Black RoyalBlue 1744 w(::)p Black -582 w(Lam)p RoyalBlue 1162 w(\(+)p Black Mahogany 582 -w(bind)p Black 581 w(x)p Mahogany 582 w(in)p Black 581 -w(t)p RoyalBlue 582 w(+\))p Black RoyalBlue 1162 w({{)p -Black Mahogany 582 w(com)p Black 581 w(abstraction)p -RoyalBlue 583 w(}})p Black RoyalBlue 2356 69916 a(|)p -Black 581 w(t)h(t')p RoyalBlue 9298 w(::)p Black RoyalBlue -1744 w(::)p Black 582 w(App)p RoyalBlue 12204 w({{)p -Black Mahogany 582 w(com)p Black 581 w(application)p -RoyalBlue 583 w(}})p Black RoyalBlue 2356 71245 a(|)p -Black 581 w(\()g(t)f(\))p RoyalBlue 8717 w(::)p Black -Mahogany 582 w(S)p Black RoyalBlue 581 w(::)p Black 582 -w(paren)p RoyalBlue 1744 w({{)p Black Mahogany 581 w(coq)p -Black RoyalBlue 582 w([[)p Black(t)p RoyalBlue(]])p Black -RoyalBlue 582 w(}})p Black RoyalBlue 2356 72573 a(|)p -Black 581 w({)h(t)f(/)g(x)h(})f(t')p RoyalBlue 4649 w(::)p -Black Mahogany 582 w(M)p Black RoyalBlue 581 w(::)p Black -582 w(tsub)p RoyalBlue 2325 w({{)p Black Mahogany 581 -w(coq)p Black 582 w(\(t_subst_t)p RoyalBlue 582 w([[)p -Black(t)p RoyalBlue(]])p Black RoyalBlue([[)p Black(x)1164 -b(t')p RoyalBlue(]])p Black(\))p RoyalBlue 582 w(}})p -Black Black 24533 77841 a Fx(32)p Black eop end -%%Page: 33 33 -TeXDict begin 33 32 bop Black Black 0 -594 a Fx(This)370 -b(de\014nition)g(giv)-31 b(es)370 b(rise)f(to)h(the)f(datat)-31 -b(yp)31 b(e)372 b(term)d(b)31 b(elo)-31 b(w)370 b(\(here)f(with)i -(option)g Fs(-coq)p 37076 -594 349 45 v 419 w(names)p -40400 -594 V 419 w(in)p 41981 -594 V 419 w(rules)582 -b(false)p Fx(\):)p Black Black 0 1399 a Fs(Inductive)g(term)g(:)g(Set)f -(:=)0 2727 y(|)g(term_var_b)i(:)e(nat)h(->)f(term)0 4055 -y(|)g(term_var_f)i(:)e(var)h(->)f(term)0 5384 y(|)g(term_lam)i(:)e -(term)h(->)f(term)0 6712 y(|)g(term_app)i(:)e(term)h(->)f(term)h(->)f -(term.)0 8705 y Fx(Remarks:)p Black 1353 10697 a(1.)p -Black 554 w(Pro)31 b(ductions)491 b(con)-31 b(taining)492 -b(meta)-31 b(v)-61 b(ariables)492 b(susceptible)e(to)g(b)31 -b(e)490 b(b)31 b(ound)489 b(\(e.g.,)522 b Fs(term)p 39348 -10697 V 419 w(var)p Fx(\))490 b(giv)-31 b(e)491 b(rise)e(to)h(t)-31 -b(w)g(o)2767 12026 y(distinct)390 b(constructors,)395 -b(one)388 b(\()p Fs(term)p 18286 12026 V 420 w(var)p -20449 12026 V 419 w(b)p Fx(\))h(for)g(de)f(Bruijn)h(indices)g(to)h(b)31 -b(e)388 b(used)g(when)h(the)g(meta)-31 b(v)-61 b(ariable)391 -b(is)2767 13354 y(b)31 b(ound,)370 b(one)f(\()p Fs(term)p -11341 13354 V 420 w(var)p 13504 13354 V 419 w(f)p Fx(\))g(for)g("free") -h(v)-61 b(ariables.)493 b(The)369 b(t)-31 b(yp)31 b(e)370 -b Fs(var)p Fx(,)g(together)g(with)g(decidable)g(equalit)-31 -b(y)372 b(and)2767 14682 y(sev)-31 b(eral)370 b(useful)f(lemmas)i(and)e -(functions,)i(is)e(de\014ned)g(in)g(the)h(Metatheory)g(library)-92 -b(.)2767 16675 y(In)370 b(the)h(curren)-31 b(t)369 b(implemen)-31 -b(tation,)375 b(meta)-31 b(v)-61 b(ariables)373 b(susceptible)e(to)f(b) -31 b(e)370 b(b)31 b(ound)370 b(in)h(a)f(sym)-31 b(b)31 -b(olic)372 b(term)e(\(eg.)i(the)2767 18003 y Fs(x)e Fx(in)f(the)g -Fs(term)p 9309 18003 V 419 w(var)h Fx(pro)31 b(duction\))371 -b(m)-31 b(ust)369 b(b)31 b(e)369 b(the)g(only)i(elemen)-31 -b(t)370 b(of)g(the)f(pro)31 b(duction.)p Black 1353 19996 -a(2.)p Black 554 w(Binder)369 b(meta)-31 b(v)-61 b(ariables)372 -b(are)d(erased)g(from)g(pro)31 b(ductions)370 b(\(eg.)h -Fs(term)p 31812 19996 V 419 w(lam)p Fx(\),)f(as)f(in)h(de)e(Bruijn)i -(represen)-31 b(tation.)0 21988 y(Ott)300 b(automatically)j(generates)c -(the)g(appropriate)h Fs(open)g Fx(functions)f(and)g Fs(lc)g -Fx(predicates)g(to)h(test)f(if)h(terms)e(are)h(lo)31 -b(cally-)0 23317 y(closed.)667 b(The)427 b(other)h(supp)31 -b(ort)426 b(functions)i(for)g(substitutions)g(and)g(free-v)-61 -b(ariables)427 b(\()p Fs(subst)h Fx(and)g Fs(fv)p Fx(\))f(are)g -(generated)0 24645 y(once)369 b(the)h(user)e(declares)h(the)g(relev)-61 -b(an)-31 b(t)370 b(substitutions)h(and)f(freev)-61 b(ars)368 -b(sections.)0 26637 y(Ott)313 b(automatically)k(compiles)c(the)g(sym) --31 b(b)31 b(olic)314 b(terms)e(that)h(app)31 b(ear)313 -b(in)f(rule)g(de\014nitions)h(in)-31 b(to)314 b(the)f(appropriate)g -(terms)0 27966 y(in)369 b(lo)31 b(cally-nameless)372 -b(st)-31 b(yle.)494 b(F)-92 b(or)368 b(instance,)j(the)e(t)-31 -b(yping)371 b(rule)e(for)g(the)h(simply-t)-31 b(yp)31 -b(ed)371 b(lam)-31 b(b)31 b(da-calculus:)p Black Black -2325 29958 a Fs(E,x:S)581 b(|-)h(t)f(:)h(T)p RoyalBlue -2325 31287 a(------------------)p Black 583 w(::)g(lambda)2325 -32615 y(E)f(|-)g(\\x.t)h(:)f(S->T)0 34608 y Fx(is)369 -b(compiled)i(in)-31 b(to)371 b(its)e(lo)31 b(cally-nameless)372 -b(represen)-31 b(tation:)p Black Black 0 36600 a Fs(Inductive)582 -b(typing)h(:)e(env)g(->)h(term)g(->)f(type)h(->)f(Prop)h(:=)f(\(*)h -(defn)g(typing)g(*\))0 37928 y(|)f(...)0 39257 y(|)g(typing_lambda)i(:) -f(forall)g(\(L:vars\))g(\(E:env\))g(\(t:term\))h(\(S)e(T:type\),)1743 -40585 y(\(forall)i(x,)e(x)g(\\)q(notin)g(L)h(->)f(typing)h(\(E)g(&)f(x) -g(~)h(S\))f(\(open_term_wrt_term)j(t)d(\(term_var_f)i(x\)\))f(T\))f(->) -1743 41913 y(typing)h(E)g(\(term_lam)g(t\))g(\(type_arrow)h(S)e(T\).)0 -43906 y Fx(F)-92 b(or)368 b(that,)j(Ott)f(follo)-31 b(ws)372 -b(the)d(algorithm)j(b)31 b(elo)-31 b(w.)494 b(F)-92 b(or)368 -b(eac)-31 b(h)370 b(rule,)p Black 1353 45898 a(1.)p Black -554 w(for)365 b(eac)-31 b(h)364 b(non)-31 b(terminal)367 -b(that)f(app)31 b(ears)363 b(in)i(the)f(rule,)i(compute)f(the)g -(maximal)i(set)d(of)h(binders)f(under)f(whic)-31 b(h)365 -b(it)2767 47227 y(app)31 b(ears:)495 b(for)370 b(example,)i(in)f(the)f -(rule)g(lam)-31 b(b)31 b(da)372 b(ab)31 b(o)-31 b(v)g(e,)372 -b(the)e(maximal)k(set)c(of)g(binders)g(for)g(the)g(non)-31 -b(terminal)373 b Fs(t)2767 48555 y Fx(is)d(the)f(singleton)i -Fs(x)p Fx(,)f(and)f(it)h(is)f(empt)-31 b(y)370 b(for)g(all)g(the)g -(other)f(non)-31 b(terminals;)p Black 1353 50548 a(2.)p -Black 554 w(for)339 b(eac)-31 b(h)339 b(pair)g(non)-31 -b(terminal)342 b(/)d(maximal)i(binder)e(set)f(collected)j(in)e(phase)f -(1.,)346 b(go)340 b(o)-31 b(v)g(er)339 b(all)h(the)f(o)31 -b(ccurrences)338 b(of)2767 51876 y(the)319 b(non)-31 -b(terminal)321 b(in)d(the)h(rule)f(and)g(op)31 b(en)319 -b(them)g(with)g(resp)31 b(ect)318 b(to)h(all)g(the)g(v)-61 -b(ariables)319 b(in)f(the)h(maximal)i(binding)2767 53204 -y(set)345 b(except)h(those)g(under)e(whic)-31 b(h)346 -b(this)g(particular)g(o)31 b(ccurrence)344 b(is)h(b)31 -b(ound.)485 b(In)345 b(the)g(example,)352 b(this)346 -b(amoun)-31 b(ts)346 b(to)2767 54533 y(op)31 b(ening)371 -b(the)e(o)31 b(ccurrence)368 b(of)456 b Fs(t)369 b Fx(in)h(the)f -(premise)g(with)h(resp)31 b(ect)369 b(to)h(the)f(meta)-31 -b(v)-61 b(ariable)372 b Fs(x)p Fx(;)p Black 1353 56525 -a(3.)p Black 554 w(quan)-31 b(tify)338 b(using)e(co\014nite-quan)-31 -b(ti\014cation)340 b(eac)-31 b(h)336 b(meta)-31 b(v)-61 -b(ariable)339 b(that)d(has)g(b)31 b(een)335 b(used)g(to)h(op)31 -b(en)335 b(a)h(non)-31 b(terminal;)p Black 1353 58518 -a(4.)p Black 554 w(add)403 b(h)-31 b(yp)31 b(othesis)403 -b(ab)31 b(out)404 b(lo)31 b(cal-closure)404 b(to)f(guaran)-31 -b(tee)404 b(the)f(in)-31 b(v)-61 b(arian)-31 b(t)405 -b(that)e(if)g(a)g(deriv)-61 b(ation)404 b(holds,)412 -b(then)403 b(the)2767 59846 y(top-lev)-31 b(el)372 b(terms)d(in)-31 -b(v)g(olv)g(ed)371 b(are)e(lo)31 b(cally-closed.)0 61839 -y(In)382 b(some)h(cases)f(the)h(user)f(ma)-31 b(y)383 -b(w)-31 b(an)g(t)385 b(a)e(\014ner)f(con)-31 b(trol)384 -b(on)f(whic)-31 b(h)383 b(non)-31 b(terminals)385 b(are)d(op)31 -b(ened)383 b(and)g(with)h(resp)31 b(ect)381 b(to)0 63167 -y(whic)-31 b(h)370 b(meta)-31 b(v)-61 b(ariables.)495 -b(Consider)370 b(for)f(instance)h(the)f(CBV)h(b)31 b(eta-reduction)371 -b(rule:)p RoyalBlue Black RoyalBlue 2325 65160 a Fs -(--------------------------)p Black 1166 w(::)581 b(ax_app)2325 -66488 y(\(\\x.t1\))h(v2)f(-->)1163 b({v2/x})q(t1)0 68480 -y Fx(A)404 b(naiv)-31 b(e)405 b(application)j(of)c(the)h(algorithm)h -(describ)31 b(ed)404 b(ab)31 b(o)-31 b(v)g(e)405 b(w)-31 -b(ould)405 b(op)31 b(en)404 b(the)h(righ)-31 b(t)405 -b(hand)f(side)g(o)31 b(ccurrence)403 b(of)491 b Fs(t1)0 -69809 y Fx(with)367 b(resp)31 b(ect)365 b(to)h(a)g(co\014nitely-quan) --31 b(ti\014ed)369 b Fs(x)p Fx(.)492 b(Substitution)368 -b(should)e(then)g(b)31 b(e)365 b(used)g(to)h(replace)g(the)g(o)31 -b(ccurrences)365 b(of)0 71137 y Fs(x)k Fx(with)i Fs(v2)p -Fx(,)e(resulting)h(in)g(the)f(a)-31 b(wkw)g(ard)371 b(term)p -Black Black 0 73130 a Fs(reduce)582 b(\(term_app)h(\(term_lam)f(t1\))g -(v2\))f(\(subst_term)i(v2)e(x)h(\(open_term_wrt_term)i(t1)d -(\(term_var_f)i(x\)\)\))p Black 24502 77841 a Fx(33)p -Black eop end -%%Page: 34 34 -TeXDict begin 34 33 bop Black Black Black 735 203 a Fh(E)573 -b Ff(`)455 b Fh(e)3553 314 y Fy(1)4469 203 y FA(:)h Fh(t)5549 -314 y Fy(1)7034 203 y Fg(:::)1025 b Fh(E)573 b Ff(`)454 -b Fh(e)11728 314 y Fd(n)12736 203 y FA(:)i Fh(t)13816 -314 y Fd(n)735 1421 y Fh(E)573 b Ff(`)455 b Fh(\014eld)p -5076 1421 308 45 v 471 w(name)7787 1532 y Fy(1)8704 1421 -y FA(:)g Fh(t)549 b Ff(!)455 b Fh(t)12151 1532 y Fy(1)13636 -1421 y Fg(:::)1026 b Fh(E)572 b Ff(`)455 b Fh(\014eld)p -19854 1421 V 471 w(name)22565 1532 y Fd(n)23573 1421 -y FA(:)h Fh(t)549 b Ff(!)455 b Fh(t)27021 1532 y Fd(n)735 -2638 y Fh(t)549 b FA(=)455 b(\()171 b Fh(t)3878 2215 -y Fe(0)3784 2814 y Fy(1)4416 2638 y Fg(;)342 b(:::)172 -b(;)341 b Fh(t)7125 2215 y Fe(0)7031 2845 y Fd(l)7594 -2638 y FA(\))171 b Fh(typ)-52 b(e)g(c)g(onstr)p 12762 -2638 V 475 w(name)735 3856 y(E)573 b Ff(`)455 b Fh(typ)-52 -b(e)g(c)g(onstr)p 7681 3856 V 475 w(name)815 b Fc(B)739 -b Fh(typ)-52 b(e)g(c)g(onstr)p 17321 3856 V 475 w(name)531 -b FA(:)456 b Fh(kind)273 b Ff(f)170 b Fh(\014eld)p 26133 -3856 V 472 w(name)28920 3433 y Fe(0)28845 4031 y Fy(1)29477 -3856 y FA(;)342 b Fg(:::)172 b FA(;)341 b Fh(\014eld)p -33745 3856 V 472 w(name)36532 3433 y Fe(0)36457 4031 -y Fd(m)37375 3856 y Ff(g)735 5074 y Fh(\014eld)p 2728 -5074 V 471 w(name)5439 5185 y Fy(1)6072 5074 y Fg(:::)172 -b Fh(\014eld)p 9089 5074 V 471 w(name)11800 5185 y Fd(n)12524 -5074 y FB(PERMUTES)f Fh(\014eld)p 21421 5074 V 471 w(name)24207 -4651 y Fe(0)24132 5249 y Fy(1)24765 5074 y Fg(:::)g Fh(\014eld)p -27781 5074 V 472 w(name)30568 4651 y Fe(0)30493 5249 -y Fd(m)735 6291 y FB(length)h FA(\()f Fh(e)5171 6402 -y Fy(1)5803 6291 y FA(\))g Fg(:::)h FA(\()f Fh(e)8435 -6402 y Fd(n)9158 6291 y FA(\))455 b Ff(\025)h FA(1)p -181 6825 38260 43 v 7522 7729 a Fh(E)573 b Ff(`)455 b(f)170 -b Fh(\014eld)p 12545 7729 308 45 v 472 w(name)15257 7840 -y Fy(1)16174 7729 y FA(=)455 b Fh(e)17895 7840 y Fy(1)18527 -7729 y FA(;)342 b Fg(:::)172 b FA(;)342 b Fh(\014eld)p -22796 7729 V 471 w(name)25507 7840 y Fd(n)26515 7729 -y FA(=)455 b Fh(e)28236 7840 y Fd(n)28960 7729 y Ff(g)g -FA(:)g Fh(t)39974 7053 y Fb(JTe)p 41944 7053 331 45 v -396 w(record)p 45940 7053 V 396 w(constr)p Black Black -555 9721 a Fw(E)523 b(|-)g(e1)g(:)g(t1)g(...)g(E)g(|-)g(en)g(:)g(tn)555 -10939 y(E)g(|-)g(field)p 5848 10939 314 45 v 376 w(name1)h(:)f(t->t1)g -(...)g(E)g(|-)g(field)p 20869 10939 V 377 w(namen)g(:)g(t->tn)555 -12157 y(t)g(=)g(\(t1',)g(...,)g(tl'\))g(typeconstr)p -16308 12157 V 377 w(name)555 13374 y(E)g(|-)g(typeconstr)p -8463 13374 V 377 w(name)g(gives)g(typeconstr)p 19823 -13374 V 377 w(name:kind)g({field)p 28568 13374 V 377 -w(name1';)g(...;)g(field)p 38359 13374 V 377 w(namem'})555 -14592 y(field)p 3233 14592 V 376 w(name1...field)p 10408 -14592 V 377 w(namen)g(PERMUTES)h(field)p 21246 14592 -V 377 w(name1'...field)p 28945 14592 V 377 w(namem')555 -15810 y(length)f(\(e1\)...\(en\)>=1)555 17027 y -(-------------------------------------------------------------------)p -(-------)i(::)e(record)p 44552 17027 V 377 w(constr)555 -18245 y(E)g(|-)g({field)p 6371 18245 V 376 w(name1=e1;)h(...;)f(field)p -17208 18245 V 377 w(namen=en})g(:)g(t)p Black 7066 20680 -a Fx(Figure)369 b(13:)494 b(A)369 b(sample)h(OCaml)h(seman)-31 -b(tic)371 b(rule,)e(in)h(L)29871 20453 y Fu(A)30359 20680 -y Fx(T)30973 20918 y(E)31588 20680 y(X)g(and)f(Ott)h(source)e(forms)p -Black Black 31 24239 a(Instead,)430 b(an)418 b(idiomatic)i(translation) -g(of)d(CBV)h(b)31 b(eta-reduction)419 b(rule)e(w)-31 -b(ould)418 b(directly)h(rely)e(on)g(the)h(op)31 b(en)417 -b(function)31 25568 y(to)370 b(substitute)h Fs(v2)e Fx(for)g(the)h(b)31 -b(ound)369 b(o)31 b(ccurrences)368 b(of)455 b Fs(x)369 -b Fx(in)h Fs(t1)p Fx(,)g(as)f(in:)p Black Black 31 27560 -a Fs(reduce)583 b(\(term_app)f(\(term_lam)h(t1\))e(v2\))h -(\(open_term_wrt_term)i(t1)d(v2\))31 29553 y Fx(A)370 -b(sp)31 b(ecial)369 b(syn)-31 b(tax)371 b(for)e(pro)31 -b(duction)370 b(homomorphisms)h(allo)-31 b(w)372 b(the)d(user)f(to)i -(sp)31 b(ecify)370 b(this)f(translation:)p Black Black -RoyalBlue 2356 31545 a Fs(|)p Black 581 w({)582 b(t)f(/)g(x)h(})f(t')p -RoyalBlue 4649 w(::)p Black Mahogany 582 w(M)p Black -RoyalBlue 581 w(::)p Black 582 w(tsub)p RoyalBlue 2325 -w({{)p Black Mahogany 581 w(coq)p Black 582 w(\(t_subst_t)p -RoyalBlue 582 w([[)p Black(t)p RoyalBlue(]])p Black RoyalBlue([[)p -Black(x)i(t')p RoyalBlue(]])p Black(\))p RoyalBlue 582 -w(}})p Black 31 33538 a Fx(In)341 b(the)h(homomorphism)i(the)d(non)-31 -b(terminal)344 b Fs(t')d Fx(is)h(referred)e(to)i(with)p -RoyalBlue 342 w Fs([[)p Black(x)582 b(t')p RoyalBlue(]])p -Black 342 w Fx(instead)342 b(of)g(the)f(usual)p RoyalBlue -342 w Fs([[)p Black(t')p RoyalBlue(]])p Black Fx(:)479 -b(the)31 34866 y(pre\014xed)393 b Fs(x)g Fx(sp)31 b(eci\014es)392 -b(that)j(o)31 b(ccurrences)391 b(of)480 b Fs(t')393 b -Fx(should)h(not)f(b)31 b(e)393 b(op)31 b(ened)393 b(with)h(resp)31 -b(ect)393 b(to)g(the)h(meta)-31 b(v)-61 b(ariable)395 -b Fs(x)p Fx(.)565 b(If)31 36195 y(this)372 b(homomorphism)h(is)e(sp)31 -b(eci\014ed,)371 b(then)g(the)g(translation)j(of)d(the)g -Fs(ax)p 30343 36195 349 45 v 419 w(app)g Fx(rule)g(is)g(exactly)h -(idiomatic)i(Co)31 b(q)372 b(sho)-31 b(wn)31 37523 y(ab)31 -b(o)-31 b(v)g(e.)31 39515 y Fo(Curr)-57 b(ent)397 b(limitations:)510 -b(supp)-57 b(ort)395 b(for)h(single)h(binders)f(only,)h(no)g(auxfn,)f -(Co)-57 b(q)397 b(only.)31 41508 y(Disclaimer:)621 b(to)451 -b(c)-57 b(ompile)452 b(rule)f(de\014nitions,)467 b(Ott)451 -b(applies)f(blind)57 b(ly)452 b(the)f(algorithm)g(describ)-57 -b(e)g(d)453 b(ab)-57 b(ove.)676 b(A)-28 b(lthough)450 -b(in)31 42836 y(most)414 b(of)g(the)g(c)-57 b(ases,)419 -b(this)414 b(gener)-57 b(ates)414 b(a)g(c)-57 b(orr)g(e)g(ct)415 -b(and)f(idiomatic)h(r)-57 b(epr)g(esentation)415 b(of)f(the)g -(language,)419 b(some)414 b(language)31 44165 y(c)-57 -b(onstructs)396 b(might)h(not)e(b)-57 b(e)397 b(faithful)57 -b(ly)397 b(tr)-57 b(anslate)g(d.)509 b(Ple)-57 b(ase,)397 -b(let)f(us)f(know)h(if)h(you)f(\014nd)h(one)f(of)h(these)e(c)-57 -b(ases.)31 46157 y Fx(If)280 b(Ott)h(is)f(in)-31 b(v)g(ok)g(ed)282 -b(with)f(the)f Fs(-coq)p 14657 46157 V 419 w(lngen)h -Fx(option,)300 b(then)280 b(the)g(generated)h(lo)31 b(cally-nameless) -282 b(Co)31 b(q)281 b(co)31 b(de)280 b(is)g(compatible)31 -47486 y(with)371 b(Aydemir's)f Fo(lngen)455 b Fx(to)31 -b(ol)371 b(\()p Fs(http://www.cis.upenn.edu/)585 b -(baydemir/papers/lngen/)p Fx(\).)31 51810 y FC(12)1793 -b(List)599 b(forms)31 54899 y Fx(Ott)405 b(has)f(direct)g(supp)31 -b(ort)403 b(for)h(lists,)414 b(b)31 b(oth)404 b(as)g -Fo(dot)427 b(forms)494 b Fx(suc)-31 b(h)404 b(as)807 -b Fn(t)29763 55065 y Fu(1)30260 54899 y Fn(;)184 b(:)g(:)g(:)j(;)d(t) -33118 55065 y Fr(n)34529 54899 y Fx(and)404 b(as)g Fo(list)427 -b(c)-57 b(ompr)g(ehensions)496 b Fx(suc)-31 b(h)31 56362 -y(as)p 1772 55549 777 45 v 751 w Fo(t)2140 56528 y Fi(i)2700 -55734 y(i)68 b Fl(2)p Fu(1)p Fr(::)p Fi(n)6003 56362 -y Fx(.)511 b(Figure)375 b(13)h(sho)-31 b(ws)376 b(an)f(example)i(seman) --31 b(tic)377 b(rule)e(tak)-31 b(en)377 b(from)f(our)f(OCaml)i(fragmen) --31 b(t)377 b(seman)-31 b(tics,)379 b(as)31 57691 y(b)31 -b(oth)435 b(the)g(generated)g(L)10086 57464 y Fu(A)10574 -57691 y Fx(T)11188 57929 y(E)11804 57691 y(X)f(and)h(its)f(Ott)i -(source,)450 b(that)436 b(in)-31 b(v)g(olv)g(es)436 b(sev)-31 -b(eral)435 b(dot)g(forms.)689 b(Other)434 b(t)-31 b(yp)31 -b(es)434 b(commonly)31 59019 y(used)h(in)g(seman)-31 -b(tics,)453 b(e.g.)437 b(\014nite)e(maps)h(or)e(sets,)452 -b(can)435 b(often)h(b)31 b(e)435 b(describ)31 b(ed)434 -b(with)i(this)f(list)h(syn)-31 b(tax)436 b(in)g(conjunction)31 -60348 y(with)530 b(t)-31 b(yp)31 b(e)529 b(and)g(metapro)31 -b(duction)530 b(homs)f(to)g(sp)31 b(ecify)529 b(the)f(pro)31 -b(of)529 b(assistan)-31 b(t)530 b(represen)-31 b(tation.)971 -b(When)528 b(using)h(list)31 61676 y(forms,)420 b(one)408 -b(usually)i(also)f(w)-31 b(an)g(ts)410 b(to)f(add)g(a)g(list-of-form) --31 b(ula)412 b(pro)31 b(duction)409 b(to)h(the)p Mahogany -408 w Fs(formula)p Black 410 w Fx(grammar,)420 b(e.g.)611 -b(\(as)409 b(in)31 63004 y Fs(test17.10.ott)p Fx(\):)p -Black Black Mahogany 1194 64997 a Fs(formula)p Black -RoyalBlue 582 w(::)p Black 581 w(formula_)p RoyalBlue -583 w(::=)p Black RoyalBlue 1775 66325 a(|)p Black 1162 -w(judgement)p RoyalBlue 13368 w(::)p Black RoyalBlue -1744 w(::)p Black 581 w(judgement)p RoyalBlue 1775 67653 -a(|)p Black 1162 w(formula1)p RoyalBlue 583 w(..)p Black -581 w(formulan)p RoyalBlue 6975 w(::)p Black RoyalBlue -1744 w(::)p Black 581 w(dots)31 69646 y Fx(The)496 b(pro)31 -b(of)495 b(assistan)-31 b(t)496 b(co)31 b(de)495 b(generation)i(for)e -(suc)-31 b(h)494 b(a)i(pro)31 b(duction)496 b(\(whic)-31 -b(h)496 b(m)-31 b(ust)495 b(b)31 b(e)495 b(named)h Fs(formula_dots)p -Fx(\))h(is)31 70974 y(sp)31 b(ecial-cased)370 b(to)g(a)g(list)g -(conjunction.)p Black 24533 77841 a(34)p Black eop end -%%Page: 35 35 -TeXDict begin 35 34 bop Black Black 0 -594 a Fq(12.1)1495 -b(List)499 b(dot)g(forms)0 2114 y Fx(Example)381 b(pro)31 -b(ductions)379 b(for)h(record)e(t)-31 b(yp)31 b(es,)382 -b(record)d(terms,)j(and)d(record)f(patterns)i(are)f(sho)-31 -b(wn)379 b(b)31 b(elo)-31 b(w,)383 b(in)d(b)31 b(oth)379 -b(Ott)0 3442 y(source)369 b(and)g(L)5837 3215 y Fu(A)6325 -3442 y Fx(T)6939 3680 y(E)7555 3442 y(X,)g(tak)-31 b(en)371 -b(from)f(our)f(F)17386 3608 y Fr(<)p Fu(:)18752 3442 -y Fx(example.)p Black Black 0 5434 a Fs(T)p RoyalBlue(,)p -Black 581 w(S)p RoyalBlue(,)p Black 582 w(U)p RoyalBlue -581 w(::)p Black 582 w('T_')p RoyalBlue 581 w(::=)p Black -RoyalBlue 27315 w({{)p Black Mahogany 581 w(com)p Black -582 w(type)p RoyalBlue 1163 w(}})p Black RoyalBlue 1162 -6763 a(|)p Black 582 w({)581 b(l1)g(:)h(T1)f(,)p RoyalBlue -581 w(..)p Black 582 w(,)g(ln)h(:)f(Tn)g(})p RoyalBlue -3487 w(::)p Black RoyalBlue 582 w(::)p Black 581 w(Rec)p -RoyalBlue 13367 w({{)p Black Mahogany 582 w(com)p Black -581 w(record)p RoyalBlue 582 w(}})p Black 0 9420 a(t)p -RoyalBlue 581 w(::)p Black 582 w('t_')p RoyalBlue 581 -w(::=)p Black RoyalBlue 30802 w({{)p Black Mahogany 581 -w(com)p Black 1163 w(term)p RoyalBlue 1163 w(}})p Black -RoyalBlue 1162 10748 a(|)p Black 582 w({)g(l1)g(=)h(t1)f(,)p -RoyalBlue 1163 w(..)p Black 581 w(,)g(ln)h(=)f(tn)g(})p -RoyalBlue 2906 w(::)p Black RoyalBlue 582 w(::)p Black -581 w(Rec)p RoyalBlue 13367 w({{)p Black Mahogany 582 -w(com)p Black 581 w(record)p RoyalBlue 582 w(}})p Black -RoyalBlue 1162 12076 a(|)p Black 582 w(let)g(p)g(=)h(t)f(in)h(t')p -RoyalBlue 9879 w(::)p Black RoyalBlue 582 w(::)p Black -581 w(Let)p RoyalBlue 582 w(\(+)p Black Mahogany 581 -w(bind)p Black 582 w(b)p RoyalBlue(\()p Black(p)p RoyalBlue(\))p -Black Mahogany 582 w(in)p Black 581 w(t')p RoyalBlue -582 w(+\))p Black RoyalBlue 581 w({{)p Black Mahogany -582 w(com)p Black 581 w(pattern)g(binding)p RoyalBlue(})r(})p -Black 0 14733 a(p)p RoyalBlue 581 w(::)p Black 582 w('P_')p -RoyalBlue 581 w(::=)p Black RoyalBlue 30802 w({{)p Black -Mahogany 581 w(com)p Black 1163 w(pattern)p RoyalBlue -582 w(}})p Black RoyalBlue 1162 16061 a(|)p Black 582 -w(x)f(:)g(T)p RoyalBlue 15691 w(::)p Black RoyalBlue -582 w(::)p Black 581 w(Var)p RoyalBlue 582 w(\(+)p Black -581 w(b)p RoyalBlue 582 w(=)p Black 581 w(x)p RoyalBlue -1162 w(+\))p Black RoyalBlue 5812 w({{)p Black Mahogany -582 w(com)p Black 581 w(variable)i(pattern)p RoyalBlue -582 w(}})p Black RoyalBlue 1162 17390 a(|)p Black 582 -w({)e(l1)g(=)h(p1)f(,)p RoyalBlue 581 w(..)p Black 582 -w(,)g(ln)h(=)f(pn)g(})p RoyalBlue 3487 w(::)p Black RoyalBlue -582 w(::)p Black 581 w(Rec)p RoyalBlue 582 w(\(+)p Black -581 w(b)p RoyalBlue 582 w(=)p Black 581 w(b)p RoyalBlue(\()p -Black(p1)p RoyalBlue 582 w(..)p Black 581 w(pn)p RoyalBlue(\))p -Black RoyalBlue 582 w(+\))p Black RoyalBlue 581 w({{)p -Black Mahogany 582 w(com)p Black 1162 w(record)h(pattern)p -RoyalBlue 1164 w(}})p Black 664 20345 a Fh(T)131 b Fg(;)512 -b Fh(S)118 b Fg(;)513 b Fh(U)2816 b FA(::=)20056 b(t)-28 -b(yp)28 b(e)7929 21563 y Ff(j)1869 b(f)171 b Fh(l)11026 -21674 y Fy(1)11943 21563 y FA(:)455 b Fh(T)13414 21674 -y Fy(1)14046 21563 y Fg(;)342 b(::)171 b(;)342 b Fh(l)16298 -21674 y Fd(n)17305 21563 y FA(:)456 b Fh(T)18777 21674 -y Fd(n)19499 21563 y Ff(g)10126 b FA(record)664 24355 -y Fh(t)6385 b FA(::=)20056 b(term)7929 25573 y Ff(j)1869 -b(f)171 b Fh(l)11026 25684 y Fy(1)11601 25573 y FA(=)114 -b Fh(t)12851 25684 y Fy(1)13483 25573 y Fg(;)342 b(::)171 -b(;)342 b Fh(l)15735 25684 y Fd(n)16401 25573 y FA(=)114 -b Fh(t)17651 25684 y Fd(n)18374 25573 y Ff(g)11251 b -FA(record)7929 26791 y Ff(j)1869 b FB(let)172 b Fh(p)k -FA(=)114 b Fh(t)265 b FB(in)171 b Fh(t)15381 26367 y -Fe(0)21340 26791 y Fa(bind)284 b FA(b\()p Fh(p)63 b FA(\))284 -b Fa(in)h Fh(t)27182 26367 y Fe(0)30137 26791 y FA(pattern)341 -b(binding)664 29583 y Fh(p)6202 b FA(::=)20056 b(pattern)7929 -30801 y Ff(j)1869 b Fh(x)576 b FA(:)455 b Fh(T)8739 b -FA(b)284 b(=)h Fh(x)6391 b FA(v)-57 b(ariable)343 b(pattern)7929 -32018 y Ff(j)1869 b(f)171 b Fh(l)11026 32129 y Fy(1)11601 -32018 y FA(=)114 b Fh(p)13034 32129 y Fy(1)13666 32018 -y Fg(;)342 b(::)171 b(;)342 b Fh(l)15918 32129 y Fd(n)16584 -32018 y FA(=)114 b Fh(p)18017 32129 y Fd(n)18740 32018 -y Ff(g)2088 b FA(b)284 b(=)h(b\()p Fh(p)24764 32129 y -Fy(1)25225 32018 y Fg(::)p Fh(p)26316 32129 y Fd(n)26869 -32018 y FA(\))2870 b(record)341 b(pattern)0 33927 y Fx(Dot)370 -b(forms)f(can)g(b)31 b(e)369 b(used)g(in)g(sym)-31 b(b)31 -b(olic)371 b(terms)e(in)g(seman)-31 b(tic)371 b(rules:)15796 -36960 y(\000)307 b Ft(`)h Fo(t)18147 37126 y Fu(1)18951 -36960 y Fx(:)g Fo(T)20358 37126 y Fu(1)21962 36960 y -Fn(::)1107 b Fx(\000)308 b Ft(`)g Fo(t)26035 37126 y -Fi(n)26977 36960 y Fx(:)g Fo(T)28384 37126 y Fi(n)p 12230 -37536 20354 45 v 12230 38550 a Fx(\000)g Ft(`)g(f)p Fo(l)15050 -38716 y Fu(1)15485 38550 y Fx(=)-61 b Fo(t)16653 38716 -y Fu(1)17149 38550 y Fn(;)370 b(::)184 b(;)g Fo(l)19398 -38716 y Fi(n)19973 38550 y Fx(=)-61 b Fo(t)21141 38716 -y Fi(n)21776 38550 y Ft(g)307 b Fx(:)h Ft(f)p Fo(l)24087 -38716 y Fu(1)24892 38550 y Fx(:)g Fo(T)26299 38716 y -Fu(1)26796 38550 y Fn(;)369 b(::)184 b(;)g Fo(l)29044 -38716 y Fi(n)29989 38550 y Fx(:)308 b Fo(T)31396 38716 -y Fi(n)32031 38550 y Ft(g)33824 37791 y Fj(Ty)p 35446 -37791 368 45 v 441 w(R)-32 b(cd)0 41725 y Fx(Individually)372 -b(indexed)d(pro)61 b(jections)371 b(from)f(dot)g(forms)f(can)g(b)31 -b(e)369 b(men)-31 b(tioned,)372 b(eg)d(the)h Fn(l)36482 -41891 y Fr(j)37317 41725 y Fx(b)31 b(elo)-31 b(w:)15833 -44758 y(\000)307 b Ft(`)h Fo(t)412 b Fx(:)308 b Ft(f)p -Fo(l)20047 44924 y Fu(1)20852 44758 y Fx(:)g Fo(T)22259 -44924 y Fu(1)22756 44758 y Fn(;)369 b(::)184 b(;)g Fo(l)25004 -44924 y Fi(n)25949 44758 y Fx(:)308 b Fo(T)27356 44924 -y Fi(n)27991 44758 y Ft(g)p 15279 45334 13819 45 v 19357 -46348 a Fx(\000)g Ft(`)g Fo(t)105 b Fn(:)p Fo(l)22404 -46514 y Fi(j)23162 46348 y Fx(:)308 b Fo(T)24569 46514 -y Fi(j)30338 45588 y Fj(Ty)p 31960 45588 368 45 v 440 -w(Pr)-25 b(oj)0 49523 y Fx(Sym)-31 b(b)31 b(olic)371 -b(terms)e(can)h(also)g(include)g(concatenations)h(of)f(t)-31 -b(w)g(o)371 b(dot)f(forms)f(with)i(a)e(singleton)i(in)f(b)31 -b(et)-31 b(w)g(een:)18113 53578 y Fo(t)413 b Ft(\000)-185 -b(!)308 b Fo(t)21458 53177 y Fl(0)p 133 54154 39616 45 -v 133 55168 a Ft(f)p Fo(l)969 55334 y Fu(1)1404 55168 -y Fx(=)-61 b Fo(v)2713 55334 y Fu(1)3210 55168 y Fn(;)369 -b(::)184 b(;)g Fo(l)5458 55334 y Fi(m)6261 55168 y Fx(=)-61 -b Fo(v)7570 55334 y Fi(m)8433 55168 y Fn(;)184 b Fo(l)53 -b Fx(=)-61 b Fo(t)105 b Fn(;)184 b Fo(l)11421 54787 y -Fl(0)11307 55463 y Fu(1)11742 55168 y Fx(=)-61 b Fo(t)13015 -54787 y Fl(0)12910 55463 y Fu(1)13406 55168 y Fn(;)370 -b(::)184 b(;)g Fo(l)15769 54848 y Fl(0)15655 55441 y -Fi(n)16231 55168 y Fx(=)-61 b Fo(t)17504 54848 y Fl(0)17399 -55441 y Fi(n)18033 55168 y Ft(g)308 b(\000)-185 b(!)308 -b(f)p Fo(l)21821 55334 y Fu(1)22256 55168 y Fx(=)-61 -b Fo(v)23565 55334 y Fu(1)24061 55168 y Fn(;)370 b(::)184 -b(;)g Fo(l)26310 55334 y Fi(m)27113 55168 y Fx(=)-61 -b Fo(v)28422 55334 y Fi(m)29284 55168 y Fn(;)184 b Fo(l)53 -b Fx(=)-61 b Fo(t)31384 54848 y Fl(0)31695 55168 y Fn(;)184 -b Fo(l)32583 54787 y Fl(0)32469 55463 y Fu(1)32905 55168 -y Fx(=)-61 b Fo(t)34178 54787 y Fl(0)34073 55463 y Fu(1)34569 -55168 y Fn(;)369 b(::)184 b(;)g Fo(l)36931 54848 y Fl(0)36817 -55441 y Fi(n)37393 55168 y Fx(=)-61 b Fo(t)38666 54848 -y Fl(0)38561 55441 y Fi(n)39195 55168 y Ft(g)40988 54408 -y Fj(reduce)p 44986 54408 368 45 v 442 w(Ctx)p 47631 -54408 V 441 w(record)0 58752 y Fx(Multiple)371 b(dot)f(forms)f(within)i -(the)e(same)h(seman)-31 b(tic)371 b(rule)e(can)g(share)g(b)31 -b(ounds)368 b(\(e.g.)j(1)p Fn(::m)p Fx(\):)11293 61785 -y Ft(8)p Fo(i)421 b Ft(2)308 b Fx(1)p Fn(::)p Fo(m)85 -b Fn(:)p Ft(9)p Fo(j)470 b Ft(2)307 b Fx(1)p Fn(::)p -Fo(n)85 b Fn(:)p Fx(\()p Fo(l)21541 61951 y Fi(i)21891 -61785 y Fx(=)-61 b Fo(k)23200 61951 y Fi(j)23897 61785 -y Ft(^)246 b Fp(matc)-35 b(h)184 b Fx(\()p Fo(p)29474 -61951 y Fi(i)29883 61785 y Fn(;)g Fo(v)30883 61951 y -Fi(j)31335 61785 y Fx(\))-61 b(=)g Fn(\033)33137 61951 -y Fi(i)33545 61785 y Fx(\))p 8586 62361 28097 45 v 8586 -63374 a Fp(matc)-35 b(h)184 b Fx(\()p Ft(f)p Fo(l)13449 -63540 y Fu(1)13885 63374 y Fx(=)-61 b Fo(p)15251 63540 -y Fu(1)15747 63374 y Fn(;)369 b(::)184 b(;)g Fo(l)17995 -63540 y Fi(m)18799 63374 y Fx(=)-61 b Fo(p)20165 63540 -y Fi(m)21026 63374 y Ft(g)p Fn(;)184 b Ft(f)p Fo(k)23132 -63540 y Fu(1)23570 63374 y Fx(=)-61 b Fo(v)24879 63540 -y Fu(1)25375 63374 y Fn(;)369 b(::)184 b(;)g Fo(k)27849 -63540 y Fi(n)28425 63374 y Fx(=)-61 b Fo(v)29734 63540 -y Fi(n)30369 63374 y Ft(g)p Fx(\))g(=)g Fn(\033)32724 -63540 y Fu(1)33220 63374 y Fn(;)370 b(::)184 b(;)g(\033)35819 -63540 y Fi(m)37923 62615 y Fj(M)p 39091 62615 368 45 -v 440 w(R)-32 b(cd)0 66550 y Fx(In)386 b(more)h(detail,)393 -b(pro)31 b(ductions)387 b(can)g(ha)-31 b(v)g(e)387 b(dot)g(tok)-31 -b(ens)388 b(in)-31 b(tersp)31 b(ersed)385 b(b)31 b(et)-31 -b(w)g(een)388 b(the)f(elemen)-31 b(ts.)545 b(Dot)387 -b(tok)-31 b(ens)388 b(consist)0 67878 y(of)446 b(t)-31 -b(w)g(o,)466 b(three)445 b(or)g(four)h(consecutiv)-31 -b(e)446 b(dots)g(\()p RoyalBlue Fs(..)p Black Fx(,)p -RoyalBlue 465 w Fs(...)p Black Fx(,)465 b(or)p RoyalBlue -446 w Fs(....)p Black Fx(\),)g(indicating)448 b(lists)e(with)g(minim) --31 b(um)448 b(lengths)e(0,)465 b(1,)0 69206 y(and)377 -b(2)f(resp)31 b(ectiv)-31 b(ely)378 b(\(these)e(length)i(minim)-31 -b(ums)379 b(are)d(resp)31 b(ected)375 b(only)j(when)e(parsing)h -(concrete)g(lists;)k(they)c(are)f(not)0 70535 y(presen)-31 -b(t)418 b(in)h(Isab)31 b(elle/Co)g(q/HOL)420 b(output\).)642 -b(The)418 b(to)31 b(ol)420 b(iden)-31 b(ti\014es)419 -b(the)g(maximal)i(sequence)d(of)h(elemen)-31 b(ts)419 -b(on)g(either)0 71863 y(side)379 b(of)g(the)g(dots)g(that)h(are)e(iden) --31 b(tical)382 b(mo)31 b(dulo)380 b(an)-31 b(ti-uni\014cation)382 -b(of)d(some)h(index.)521 b(Optionally)-92 b(,)384 b(there)379 -b(ma)-31 b(y)380 b(also)g(b)31 b(e)0 73191 y(a)338 b(single)h(terminal) -h(on)e(either)h(side)f(of)g(the)g(dot)h(tok)-31 b(en,)346 -b(separating)340 b(instances)e(of)h(the)f(rep)31 b(eated)338 -b(unit.)483 b(F)-92 b(or)337 b(example,)0 74520 y(in)369 -b(the)h Fs(test7.ott)g Fx(pro)31 b(duction)p Black 24502 -77841 a(35)p Black eop end -%%Page: 36 36 -TeXDict begin 36 35 bop Black Black Black Black RoyalBlue -RoyalBlue 1194 -594 a Fs(|)p RoyalBlue Black 581 w({)581 -b(l1)h(=)f(t1)h(,)p RoyalBlue 1162 w(..)p Black 581 w(,)g(ln)f(=)h(tn)f -(})p RoyalBlue 1162 w(::)p Black RoyalBlue 582 w(::)p -Black 581 w(Rec)31 1399 y Fx(there)399 b(is)f(suc)-31 -b(h)399 b(a)f(terminal)j(\(the)e(`)p Fs(,)p Fx('\).)582 -b(The)399 b(to)31 b(ol)400 b(iden)-31 b(ti\014es)400 -b(that)g Fs(l1)581 b(=)g(t1)399 b Fx(and)g Fs(ln)581 -b(=)h(tn)398 b Fx(can)h(b)31 b(e)398 b(an)-31 b(ti-uni\014ed)401 -b(as)31 2727 y(\(roughly\))416 b Fs(l_)582 b(=)f(t_)p -Fx(,)426 b(taking)416 b Fs(_)e Fx(to)h(b)31 b(e)413 b(the)h(b)31 -b(ounds)414 b Fs(1)g Fx(and)g Fs(n)p Fx(.)627 b(A)414 -b(single)h(pro)31 b(duction)415 b(ma)-31 b(y)415 b(con)-31 -b(tain)416 b(m)-31 b(ultiple)417 b(dot)31 4055 y(forms,)355 -b(but)c(they)f(m)-31 b(ust)351 b(not)g(o)-31 b(v)g(erlap;)358 -b(nested)350 b(dot)h(forms)g(\(including)h(those)f(with)g(m)-31 -b(ultiple)353 b(c)-31 b(hanging)352 b(indices\))f(are)31 -5384 y(not)370 b(curren)-31 b(tly)370 b(supp)31 b(orted.)31 -7376 y(Homomorphisms)390 b(and)e(binding)h(sp)31 b(eci\014cations)388 -b(are)g(generalised)g(to)h(matc)-31 b(h:)530 b(an)388 -b Fs(mse)g Fx(can)g(in)-31 b(v)g(olv)g(e)390 b(a)e(dot)g(form)g(of)31 -8705 y(meta)-31 b(v)-61 b(ariables;)332 b(a)308 b(dot)g(form)g(of)h -(non)-31 b(terminals;)330 b(or)308 b(an)g(auxiliary)i(function)f -(applied)g(to)f(a)g(dot)h(form)f(of)g(non)-31 b(terminals)31 -10033 y(\(e.g.)371 b(the)f(b\()p Fo(p)6009 10199 y Fu(1)6506 -10033 y Fn(::)p Fo(p)7686 10199 y Fi(n)8321 10033 y Fx(\))g(ab)31 -b(o)-31 b(v)g(e\).)494 b(Dot)370 b(forms)f(on)h(the)f(righ)-31 -b(t)370 b(of)g(a)p Mahogany 369 w Fs(bind)p Black 370 -w Fx(are)f(not)h(curren)-31 b(tly)369 b(supp)31 b(orted.)31 -12026 y(L)324 11799 y Fu(A)812 12026 y Fx(T)1426 12264 -y(E)2042 12026 y(X)337 b(homomorphisms)i(should)e(not)g(refer)f(to)h -(dot)h(forms,)344 b(as)336 b(either)h(an)g(error)f(or)h(bad)g(output)h -(will)g(b)31 b(e)336 b(generated.)31 13354 y(\(F)-92 -b(or)367 b(L)2739 13127 y Fu(A)3227 13354 y Fx(T)3841 -13592 y(E)4456 13354 y(X,)h(there)e(should)h(really)g(b)31 -b(e)366 b(some)h(means)g(to)g(sp)31 b(ecify)366 b(a)h(homomorphism)i -(for)d(the)h(rep)31 b(eated)366 b(expression,)31 14682 -y(and)546 b(also)g(data)h(on)e(ho)-31 b(w)547 b(an)-31 -b(y)546 b(list)g(separators)f(should)h(b)31 b(e)545 b(t)-31 -b(yp)31 b(eset.)1021 b(This)546 b(w)-31 b(ould)546 b(require)f(more)h -(sp)31 b(ecial-case)31 16011 y(treatmen)-31 b(t,)372 -b(whic)-31 b(h)370 b(is)f(not)h(curren)-31 b(tly)370 -b(supp)31 b(orted.\))31 19773 y Fq(12.2)1496 b(List)498 -b(comprehension)j(forms)31 22481 y Fx(Lists)349 b(can)h(also)f(b)31 -b(e)349 b(expressed)f(as)g(explicit)j(list)f(comprehensions,)k(for)349 -b(more)g(concise)h(t)-31 b(yp)31 b(esetting.)488 b(Three)348 -b(di\013eren)-31 b(t)31 23809 y(st)g(yles)383 b(are)f(supp)31 -b(orted,)385 b(with)e(no)f(b)31 b(ounds,)385 b(an)d(upp)31 -b(er)381 b(b)31 b(ound,)385 b(or)d(a)g(lo)-31 b(w)g(er)383 -b(and)g(upp)31 b(er)380 b(b)31 b(ound.)531 b(F)-92 b(or)381 -b(example,)387 b(in)382 b(a)31 25138 y(sym)-31 b(b)31 -b(olic)371 b(term,)f(instead)g(of)g(the)f(dot)h(form)p -Black Black 1078 27019 a Fw(G)523 b(|-)g(t1:T1)p RoyalBlue -1046 w(..)p Black 1046 w(G)g(|-)g(tn:Tn)31 30230 y Fx(one)370 -b(can)f(write)h(an)-31 b(y)370 b(of)g(the)f(follo)-31 -b(wing)p Black Black RoyalBlue 1601 32111 a Fw()p Black RoyalBlue 1601 -33329 a()p Black RoyalBlue 1601 34547 -a()p -Black 31 37757 a Fx(Similar)403 b(comprehensions)f(can)f(b)31 -b(e)401 b(used)g(in)g(pro)31 b(ductions,)410 b(for)401 -b(example)i(lines)f(2{4)g(b)31 b(elo)-31 b(w.)590 b(In)400 -b(addition,)412 b(compre-)31 39085 y(hensions)350 b(in)g(pro)31 -b(ductions)350 b(can)g(sp)31 b(ecify)349 b(a)h(terminal)h(to)f(b)31 -b(e)349 b(used)g(as)h(a)f(separator)h(in)g(concrete)g(lists,)k(as)c(in) -f(lines)h(5{7)31 40414 y(b)31 b(elo)-31 b(w.)494 b(\(These)370 -b(examples)g(are)f(tak)-31 b(en)371 b(from)e Fs(test17.10.ott)p -Fx(.\))p Black Black RoyalBlue 1078 42295 a Fw(|)p Black -1046 w(l1)523 b(=)g(t1)g(,)p RoyalBlue 1046 w(..)p Black -523 w(,)g(ln)g(=)g(tn)p RoyalBlue 6277 w(::)p Black RoyalBlue -523 w(::)p Black 523 w(Rec)p RoyalBlue 7323 w({{)p Black -Mahogany 523 w(com)p Black 523 w(dots)p RoyalBlue 523 -w(}})p Black RoyalBlue 1078 43513 a(|)p Black RoyalBlue -1046 w()p Black RoyalBlue -3661 w(::)p Black RoyalBlue 523 w(::)p Black 523 w(Rec_comp_none)p -RoyalBlue 2093 w({{)p Black Mahogany 523 w(com)p Black -523 w(comp)p RoyalBlue 523 w(}})p Black RoyalBlue 1078 -44731 a(|)p Black RoyalBlue 1046 w()p Black RoyalBlue -3661 w(::)p Black RoyalBlue 523 w(::)p Black 523 w(Rec_comp_u_none)p -RoyalBlue 1047 w({{)p Black Mahogany 523 w(com)p Black -523 w(compu)p RoyalBlue 523 w(}})p Black RoyalBlue 1078 -45948 a(|)p Black RoyalBlue 1046 w()p Black RoyalBlue 3661 w(::)p Black -RoyalBlue 523 w(::)p Black 523 w(Rec_comp_lu_none)p RoyalBlue -524 w({{)p Black Mahogany 523 w(com)p Black 523 w(complu)p -RoyalBlue 523 w(}})p Black RoyalBlue 1078 47166 a(|)p -Black RoyalBlue 1046 w()p Black RoyalBlue -1046 w(::)p Black RoyalBlue 523 w(::)p Black 523 w(Rec_comp_some)p -RoyalBlue 2093 w({{)p Black Mahogany 523 w(com)p Black -523 w(comp)g(with)g(terminal)p RoyalBlue 523 w(}})p Black -RoyalBlue 1078 48384 a(|)p Black RoyalBlue 1046 w()p Black -RoyalBlue 1046 w(::)p Black RoyalBlue 523 w(::)p Black -523 w(Rec_comp_u_some)p RoyalBlue 1047 w({{)p Black Mahogany -523 w(com)p Black 523 w(compu)g(with)g(terminal)p RoyalBlue -523 w(}})p Black RoyalBlue 1078 49601 a(|)p Black RoyalBlue -1046 w()p Black RoyalBlue -1046 w(::)p Black RoyalBlue 523 w(::)p Black 523 w(Rec_comp_lu_some)p -RoyalBlue 524 w({{)p Black Mahogany 523 w(com)p Black -523 w(complu)g(with)g(terminal)p RoyalBlue 523 w(}})p -Black 31 52812 a Fx(In)466 b(Co)31 b(q,)492 b(HOL)466 -b(or)g(Isab)31 b(elle)466 b(output,)493 b(list)467 b(dot)g(forms)f(and) -g(the)h(v)-61 b(arious)466 b(list)h(comprehension)g(forms)g(are)f -(treated)31 54140 y(almost)313 b(iden)-31 b(tically)-92 -b(.)476 b(In)310 b(LaT)-92 b(eX)311 b(output,)324 b(comprension)312 -b(forms)e(are)h(default-t)-31 b(yp)31 b(eset)313 b(with)e(o)-31 -b(v)g(erbars.)474 b(F)-92 b(or)310 b(example,)31 55468 -y(the)370 b(rules)f(b)31 b(elo)-31 b(w)p Black Black -555 57350 a Fw(G|-)523 b(t:l1:T1,)p RoyalBlue(..)p Black(,ln:Tn)p -RoyalBlue 555 58568 a(-----------------------)g(::)p -Black 523 w(Proj_dotform)555 59785 y(G|-)g(t.lj)g(:)g(Tj)555 -62221 y(G|-)g(t:)p RoyalBlue 1046 w()p Black -RoyalBlue 555 63438 a(----------------------------------)h(::)p -Black 523 w(Proj_comp)555 64656 y(G|-)f(t.lj)g(:)g(Tj)555 -67091 y(G|-)g(t:)p RoyalBlue 1046 w()p Black RoyalBlue 555 68309 -a(----------------------------------)h(::)p Black 523 -w(Proj_comp_u)555 69527 y(G|-)f(t.lj)g(:)g(Tj)555 71962 -y(G|-)g(t:)p RoyalBlue 1046 w()p -Black RoyalBlue 555 73180 a(----------------------------------)h(::)p -Black 523 w(Proj_comp_lu)555 74397 y(G|-)f(t.lj)g(:)g(Tj)p -Black 24533 77841 a Fx(36)p Black eop end -%%Page: 37 37 -TeXDict begin 37 36 bop Black Black 0 1399 a Fx(are)369 -b(t)-31 b(yp)31 b(eset)370 b(as)f(follo)-31 b(ws.)13206 -4432 y(\000)307 b Ft(`)h Fo(t)412 b Fx(:)308 b Ft(f)p -Fo(l)17420 4598 y Fu(1)18225 4432 y Fx(:)g Fo(T)19632 -4598 y Fu(1)20128 4432 y Fn(;)370 b(::)184 b(;)g Fo(l)22377 -4598 y Fi(n)23321 4432 y Fx(:)308 b Fo(T)24728 4598 y -Fi(n)25363 4432 y Ft(g)p 12652 5007 13819 45 v 16730 -6021 a Fx(\000)f Ft(`)h Fo(t)105 b Fn(:)p Fo(l)19776 -6187 y Fi(j)20535 6021 y Fx(:)308 b Fo(T)21942 6187 y -Fi(j)27710 5262 y Fj(Ty)p 29332 5262 368 45 v 441 w(Pr)-25 -b(oj)p 32410 5262 V 440 w(dotf)g(orm)16452 8339 y Fx(\000)307 -b Ft(`)h Fo(t)413 b Fx(:)308 b Ft(f)p 20568 7437 2816 -45 v 20568 8338 a Fo(l)20851 8504 y Fi(i)21568 8338 y -Fx(:)g Fo(T)22975 8504 y Fi(i)23536 7622 y(i)24129 8339 -y Ft(g)p 15899 8914 9338 45 v 17736 9928 a Fx(\000)f -Ft(`)h Fo(t)105 b Fn(:)p Fo(l)20782 10094 y Fi(j)21541 -9928 y Fx(:)308 b Fo(T)22948 10094 y Fi(j)26476 9168 -y Fj(Ty)p 28098 9168 368 45 v 441 w(Pr)-25 b(oj)p 31176 -9168 V 440 w(comp)15257 12245 y Fx(\000)307 b Ft(`)h -Fo(t)412 b Fx(:)308 b Ft(f)p 19372 11343 2816 45 v 184 -w Fo(l)19655 12411 y Fi(i)20373 12245 y Fx(:)g Fo(T)21780 -12411 y Fi(i)22340 11528 y(i)68 b Fr(<)p Fi(n)24205 12245 -y Ft(g)p 14703 12820 10610 45 v 17176 13834 a Fx(\000)308 -b Ft(`)g Fo(t)105 b Fn(:)p Fo(l)20223 14000 y Fi(j)20981 -13834 y Fx(:)308 b Fo(T)22388 14000 y Fi(j)26552 13075 -y Fj(Ty)p 28174 13075 368 45 v 441 w(Pr)-25 b(oj)p 31252 -13075 V 440 w(comp)p 34494 13075 V 440 w(u)14537 16151 -y Fx(\000)307 b Ft(`)h Fo(t)412 b Fx(:)308 b Ft(f)p 18652 -15250 2816 45 v 184 w Fo(l)18935 16317 y Fi(i)19653 16151 -y Fx(:)g Fo(T)21060 16317 y Fi(i)21620 15435 y(i)68 b -Fl(2)p Fu(1)p Fr(::)p Fi(n)24357 16151 y Ft(g)p 13983 -16727 11481 45 v 16892 17741 a Fx(\000)308 b Ft(`)f Fo(t)105 -b Fn(:)p Fo(l)19938 17907 y Fi(j)20697 17741 y Fx(:)308 -b Fo(T)22104 17907 y Fi(j)26704 16981 y Fj(Ty)p 28326 -16981 368 45 v 440 w(Pr)-25 b(oj)p 31403 16981 V 440 -w(comp)p 34645 16981 V 441 w(lu)0 20966 y Fx(Upp)31 b(er)368 -b(b)31 b(ounds)369 b(of)h(the)f(form)h Fn(n)247 b Ft(\000)e -Fx(1)370 b(are)f(also)h(p)31 b(ermitted,)371 b(e.g.)493 -b(with)p Black Black 523 22848 a Fw(G|-)523 b(t:l0:T0,)p -RoyalBlue(..)p Black(,ln-1:Tn-1)p RoyalBlue 523 24066 -a(-----------------------)h(::)p Black 523 w(Proj_dotform_minus)523 -25284 y(G|-)f(t.lj)g(:)g(Tj)523 27719 y(G|-)g(t:)p RoyalBlue -1046 w()p Black RoyalBlue -523 28937 a(----------------------------------)h(::)p -Black 523 w(Proj_comp_lu_minus)523 30154 y(G|-)f(t.lj)g(:)g(Tj)0 -33364 y Fx(t)-31 b(yp)31 b(eset)370 b(as)f(b)31 b(elo)-31 -b(w.)494 b(More)368 b(complex)j(arithmetic)g(expressions)e(are)g(not)h -(curren)-31 b(tly)369 b(supp)31 b(orted.)10211 36397 -y(\000)308 b Ft(`)f Fo(t)413 b Fx(:)308 b Ft(f)p Fo(l)14426 -36563 y Fu(0)15230 36397 y Fx(:)g Fo(T)16637 36563 y -Fu(0)17134 36397 y Fn(;)369 b(::)184 b(;)g Fo(l)19382 -36563 y Fi(n)67 b Fl(\000)p Fi(1)21588 36397 y Fx(:)308 -b Fo(T)22995 36563 y Fi(n)67 b Fl(\000)p Fi(1)24892 36397 -y Ft(g)p 9658 36973 16341 45 v 14997 37987 a Fx(\000)307 -b Ft(`)h Fo(t)105 b Fn(:)p Fo(l)18043 38153 y Fi(j)18802 -37987 y Fx(:)308 b Fo(T)20209 38153 y Fi(j)27238 37228 -y Fj(Ty)p 28860 37228 368 45 v 441 w(Pr)-25 b(oj)p 31938 -37228 V 440 w(dotf)g(orm)p 37193 37228 V 440 w(minus)12237 -40304 y Fx(\000)307 b Ft(`)h Fo(t)412 b Fx(:)308 b Ft(f)p -16352 39402 2816 45 v 184 w Fo(l)16635 40470 y Fi(i)17353 -40304 y Fx(:)g Fo(T)18760 40470 y Fi(i)19320 39587 y(i)68 -b Fl(2)p Fu(0)p Fr(::)p Fi(n)f Fl(\000)p Fu(1)23190 40304 -y Ft(g)p 11683 40879 12614 45 v 15159 41893 a Fx(\000)307 -b Ft(`)h Fo(t)105 b Fn(:)p Fo(l)18205 42059 y Fi(j)18964 -41893 y Fx(:)308 b Fo(T)20371 42059 y Fi(j)25537 41134 -y Fj(Ty)p 27159 41134 368 45 v 441 w(Pr)-25 b(oj)p 30237 -41134 V 440 w(comp)p 33479 41134 V 440 w(lu)p 35166 41134 -V 441 w(minus)0 45119 y Fx(A)385 b(list)g(form)h(used)e(in)h(a)g(sym) --31 b(b)31 b(olic)386 b(term)g(do)31 b(es)384 b(not)i(ha)-31 -b(v)g(e)385 b(to)h(b)31 b(e)384 b(in)h(the)g(same)g(st)-31 -b(yle)386 b(as)f(that)h(in)f(the)g(corresp)31 b(onding)0 -46447 y(pro)g(duction.)478 b(Ho)-31 b(w)g(ev)g(er,)335 -b(if)324 b(a)g(meta)-31 b(v)-61 b(ariable)326 b(or)e(non)-31 -b(terminal)326 b(o)31 b(ccurs)323 b(in)h(m)-31 b(ultiple)326 -b(di\013eren)-31 b(t)324 b(list)g(forms)g(in)g(the)g(same)0 -47776 y(inference)340 b(rule,)347 b(they)341 b(m)-31 -b(ust)341 b(all)g(b)31 b(e)340 b(in)h(the)g(same)g(st)-31 -b(yle)341 b(and)f(with)i(the)f(same)g(b)31 b(ounds.)482 -b(Moreo)-31 b(v)g(er,)347 b(in)341 b(a)g(pro)31 b(duction,)0 -49104 y(a)361 b(list)h(form)f(in)g(a)g(bindsp)31 b(ec)361 -b(or)f(homomorphism)k(m)-31 b(ust)361 b(b)31 b(e)360 -b(in)h(the)g(same)h(st)-31 b(yle)361 b(and)g(with)h(the)f(same)h(b)31 -b(ounds)360 b(as)h(the)0 50433 y(corresp)31 b(onding)369 -b(list)h(form)g(in)g(the)f(elemen)-31 b(ts)370 b(of)g(the)f(pro)31 -b(duction.)0 52648 y(The)246 b(comprehension)h(form)g(without)h(an)f -(upp)31 b(er)245 b(b)31 b(ound,)271 b(e.g.)p RoyalBlue -248 w Fs()p Black -Fx(,)271 b(t)-31 b(yp)31 b(eset)247 b(as)p 44014 51746 -5622 45 v 492 w(\000)492 b Ft(`)g Fo(t)46734 52814 y -Fi(i)47635 52648 y Fx(:)h Fo(T)49227 52814 y Fi(i)49787 -51932 y(i)50196 52648 y Fx(,)0 53976 y(is)386 b(not)g(standard)g -(notation,)393 b(but)386 b(is)f(often)i(v)-31 b(ery)386 -b(useful.)542 b(Man)-31 b(y)386 b(seman)-31 b(tic)387 -b(rules)e(in)-31 b(v)g(olv)g(e)388 b(lists)e(of)g(matc)-31 -b(hed)387 b(length,)0 55305 y(e.g.)373 b(of)f(the)743 -b Fo(t)5943 55471 y Fi(i)6723 55305 y Fx(and)g Fo(T)10041 -55471 y Fi(i)10822 55305 y Fx(here,)372 b(but)f(do)h(not)g(need)g(to)g -(in)-31 b(tro)31 b(duce)372 b(an)g(iden)-31 b(ti\014er)372 -b(for)g(that)h(length;)h(omitting)h(it)d(k)-31 b(eeps)0 -56633 y(them)370 b(concise.)0 58626 y(The)421 b(default)i(visual)f(st) --31 b(yle)421 b(for)g(t)-31 b(yp)31 b(esetting)423 b(list)f -(comprehensions)g(can)f(b)31 b(e)420 b(o)-31 b(v)g(erridden)422 -b(b)-31 b(y)421 b(rede\014ning)g(the)g(L)47562 58399 -y Fu(A)48050 58626 y Fx(T)48664 58864 y(E)49280 58626 -y(X)0 59954 y(commands)370 b Fs(\\ottcomp)p Fx(,)h Fs(\\ottcompu)p -Fx(,)g(and)e Fs(\\ottcomplu)i Fx(in)e(an)p Mahogany 370 -w Fs(embed)p Black 369 w Fx(section,)i(as)e(in)h(Section)g(4.3.)0 -61946 y(In)387 b(some)g(cases)g(one)h(could)g(mak)-31 -b(e)388 b(the)g(t)-31 b(yp)31 b(eset)388 b(notation)i(ev)-31 -b(en)387 b(less)g(noisy)-92 b(,)393 b(b)-31 b(y)387 b(either)h -(omitting)i(the)e(sup)31 b(erscript)386 b Fn(i)0 63275 -y Fx(or)418 b(omitting)k(b)31 b(oth)419 b(the)f(sup)31 -b(erscript)418 b Fn(i)g Fx(and)h(the)f(subscript)g Fn(i)p -Fx('s)h(on)g Fn(t)f Fx(and)g Fn(T)154 b Fx(.)640 b(The)419 -b(\014rst)f(is)g(unam)-31 b(biguous)420 b(if)f(there)0 -64603 y(is)410 b(at)g(most)h(one)f(index)g(on)h(eac)-31 -b(h)410 b(elemen)-31 b(t)411 b(in)f(the)g(comprehension;)432 -b(the)410 b(second)g(if)g(all)h(the)f(elemen)-31 b(ts)411 -b(are)f(indexed)0 65932 y(b)-31 b(y)428 b(the)g(same)g(thing)h(\(not)g -(the)f(case)g(for)g(this)g(example,)444 b(but)428 b(common)i(for)d -(comprehensions)i(of)f(single)g(elemen)-31 b(ts,)0 67260 -y(e.g.)546 b Fs(<<)582 b(Ti)f(//)h(i>>)387 b Fx(for)p -11278 66371 801 45 v 387 w Fn(T)153 b Fx(\).)546 b(It)387 -b(is)g(arguable)h(that)g(that)g(should)f(b)31 b(e)387 -b(automated)i(in)e(future)g(Ott)h(releases,)j(though)0 -68588 y(it)370 b(w)-31 b(ould)371 b(bring)e(the)h(t)-31 -b(yp)31 b(eset)369 b(and)h(ASCI)31 b(I)369 b(v)-31 b(ersions)369 -b(out)h(of)f(step.)0 70581 y(List)g(comprehension)h(forms)g(can)f(also) -h(b)31 b(e)369 b(used)g(in)g(bindsp)31 b(ecs)368 b(and)i(in)f -(homomorphisms.)p Black 24502 77841 a(37)p Black eop -end -%%Page: 38 38 -TeXDict begin 38 37 bop Black Black 31 -594 a Fq(12.3)1496 -b(Pro)42 b(of)497 b(assistan)-42 b(t)502 b(co)42 b(de)498 -b(for)g(list)h(forms)31 2114 y Fp(12.3.1)1275 b(T)-35 -b(yp)35 b(es)31 4821 y Fx(W)-92 b(e)361 b(ha)-31 b(v)g(e)362 -b(to)g(c)-31 b(ho)31 b(ose)361 b(pro)31 b(of)362 b(assistan)-31 -b(t)362 b(represen)-31 b(tations)362 b(for)f(pro)31 b(ductions)362 -b(in)-31 b(v)g(olving)364 b(list)e(forms.)490 b(F)-92 -b(or)361 b(example,)j(for)31 6149 y(a)370 b(language)h(with)g(records)d -(one)h(migh)-31 b(t)371 b(write)p Black Black Mahogany -1194 8142 a Fs(metavar)p Black 582 w(label)p RoyalBlue(,)p -Black 582 w(l)p RoyalBlue 581 w(::=)p Black RoyalBlue -582 w({{)p Black Mahogany 581 w(hol)p Black 582 w(string)p -RoyalBlue 582 w(}})p Black RoyalBlue 581 w({)q({)p Black -Mahogany 581 w(coq)p Black 581 w(nat)p RoyalBlue 582 -w(}})p Black Mahogany 1194 9470 a(indexvar)p Black 582 -w(index)p RoyalBlue(,)p Black 582 w(n)p RoyalBlue 581 -w(::=)p Black RoyalBlue 1163 w({{)p Black Mahogany 582 -w(hol)p Black 581 w(num)p RoyalBlue 582 w(}})p Black -RoyalBlue 581 w({{)p Black Mahogany 582 w(coq)p Black -581 w(nat)p RoyalBlue 582 w(}})p Black Mahogany 1194 -10799 a(grammar)p Black 1194 12127 a(term)p RoyalBlue(,)p -Black 582 w(t)p RoyalBlue 581 w(::)p Black 581 w('t_')p -RoyalBlue 582 w(::=)p Black RoyalBlue 2356 13455 a(|)p -Black 581 w({)582 b(l1)f(=)g(t1)h(,)p RoyalBlue 1162 -w(..)p Black 582 w(,)f(ln)h(=)f(tn)g(})p RoyalBlue 3487 -w(::)p Black RoyalBlue 582 w(::)p Black 581 w(record)31 -15448 y Fx(In)435 b(HOL)h(and)f(Isab)31 b(elle)436 b(w)-31 -b(e)436 b(represen)-31 b(t)435 b(these)g(simply)h(with)h(con)-31 -b(tructors)436 b(whose)g(argumen)-31 b(t)437 b(t)-31 -b(yp)31 b(es)435 b(in)-31 b(v)g(olv)g(e)438 b(pro)31 -b(of-)31 16776 y(assistan)-31 b(t)371 b(nativ)-31 b(e)371 -b(list)f(t)-31 b(yp)31 b(es,)370 b(e.g.)493 b(the)370 -b(HOL)f(list)h(of)f(pairs)h(of)f(a)h Fs(label)g Fx(and)f(a)g -Fs(t)p Fx(:)p Black Black 1078 18658 a Fw(val)523 b(_)g(=)g -(Hol_datatype)g(`)1078 19876 y(t)g(=)g(E_record)g(of)g(\(label#t\))g -(list)1047 b(`;)31 21868 y Fx(F)-92 b(or)460 b(Co)31 -b(q)461 b(w)-31 b(e)461 b(pro)-31 b(vide)461 b(t)-31 -b(w)g(o)463 b(alternativ)-31 b(es:)677 b(one)461 b(can)f(either)h(use)f -(nativ)-31 b(e)462 b(lists,)484 b(or)461 b(lists)g(can)f(b)31 -b(e)460 b(translated)i(a)-31 b(w)g(a)g(y)-92 b(,)31 23197 -y(dep)31 b(ending)411 b(on)g(taste.)616 b(The)411 b(c)-31 -b(hoice)411 b(is)f(determined)h(b)-31 b(y)411 b(the)f -Fs(-coq_expand_list_types)k Fx(command-line)e(option.)31 -24525 y(In)375 b(the)h(former)f(case)h(w)-31 b(e)375 -b(generate)i(an)e(appropriate)i(induction)g(principle)f(using)g(nested) -f(\014xp)31 b(oin)-31 b(ts,)378 b(as)d(the)h(default)31 -25853 y(principle)381 b(pro)31 b(duced)380 b(b)-31 b(y)381 -b(Co)31 b(q)380 b(is)h(to)31 b(o)381 b(w)-31 b(eak)381 -b(to)g(b)31 b(e)380 b(useful.)526 b(In)379 b(the)i(latter)g(case)f(w) --31 b(e)381 b(syn)-31 b(thesise)380 b(an)h(additional)i(t)-31 -b(yp)31 b(e)31 27182 y(for)443 b(eac)-31 b(h)444 b(t)-31 -b(yp)31 b(e)443 b(of)g(lists-of-tuples)i(that)f(arises)e(in)h(the)g -(grammar.)715 b(In)442 b(the)h(example,)463 b(w)-31 b(e)444 -b(need)e(a)h(t)-31 b(yp)31 b(e)443 b(of)h(lists)f(of)31 -28510 y(pairs)370 b(of)f(a)h Fs(label)g Fx(and)f(a)g -Fs(t)p Fx(:)p Black Black 31 30392 a Fw(Inductive)31 -31609 y(list_label_t)524 b(:)f(Set)g(:=)1601 32827 y(Nil_list_label_t)g -(:)g(list_label_t)555 34045 y(|)g(Cons_list_label_t)g(:)g(label)g(->)h -(t)f(->)g(list_label_t)2647 35262 y(->)g(list_label_t)31 -37698 y(with)h(t)f(:)g(Set)g(:=)1601 38915 y(E_record)g(:)g -(list_label_t)g(->)g(t)h(.)31 40908 y Fx(These)319 b(are)f(included)h -(in)g(the)g(grammar)g(top)31 b(ological)323 b(sort,)329 -b(and)318 b(utilit)-31 b(y)322 b(functions,)330 b(e.g.)319 -b(to)h(mak)-31 b(e)319 b(and)g(unmak)-31 b(e)320 b(lists,)31 -42236 y(are)370 b(syn)-31 b(thesised.)31 45778 y Fp(12.3.2)1275 -b(T)-106 b(erms)424 b(\(in)g(inductiv)-35 b(e)424 b(de\014nition)i -(rules\))31 48485 y Fx(Supp)31 b(orting)540 b(list)g(forms)e(in)h(the)g -(rules)f(of)h(an)g(inductiv)-31 b(e)540 b(de\014nition)h(requires)c -(some)i(additional)j(analysis.)1002 b(F)-92 b(or)31 49814 -y(example,)372 b(consider)d(the)g(record)g(t)-31 b(yping)371 -b(rule)e(b)31 b(elo)-31 b(w.)15304 52847 y(\000)307 b -Ft(`)h Fo(t)17655 53013 y Fu(0)18090 52847 y Fx(:)-61 -b Fo(T)19128 53013 y Fu(0)20732 52847 y Fn(::)1108 b -Fx(\000)307 b Ft(`)h Fo(t)24805 53013 y Fi(n)67 b Fl(\000)p -Fi(1)26639 52847 y Fx(:)-61 b Fo(T)27677 53013 y Fi(n)67 -b Fl(\000)p Fi(1)p 10846 53422 23186 45 v 10846 54436 -a Fx(\000)308 b Ft(`)g(f)p Fo(l)13666 54602 y Fu(0)14101 -54436 y Fx(=)-61 b Fo(t)15269 54602 y Fu(0)15765 54436 -y Fn(;)369 b(::)184 b(;)g Fo(l)18013 54602 y Fi(n)67 -b Fl(\000)p Fi(1)19850 54436 y Fx(=)-61 b Fo(t)21018 -54602 y Fi(n)67 b Fl(\000)p Fi(1)22914 54436 y Ft(g)-61 -b Fx(:)g Ft(f)p Fo(l)24488 54602 y Fu(0)24923 54436 y -Fx(:)g Fo(T)25961 54602 y Fu(0)26458 54436 y Fn(;)370 -b(::)184 b(;)g Fo(l)28707 54602 y Fi(n)67 b Fl(\000)p -Fi(1)30544 54436 y Fx(:)-61 b Fo(T)31582 54602 y Fi(n)67 -b Fl(\000)p Fi(1)33478 54436 y Ft(g)35271 53677 y Fj(Ty)p -36893 53677 368 45 v 441 w(R)-32 b(cd)31 56921 y Fx(W)-92 -b(e)514 b(analyse)g(the)h(sym)-31 b(b)31 b(olic)515 b(terms)f(in)g(the) -g(premises)f(and)h(conclusion)h(to)g(iden)-31 b(tify)516 -b(lists)e(of)g(non)-31 b(terminals)516 b(and)31 58249 -y(meta)-31 b(v)-61 b(ariables)515 b(with)f(the)f(same)g(b)31 -b(ounds)512 b(|)g(here)g Fn(t)23322 58415 y Fu(0)23818 -58249 y Fn(::t)24832 58415 y Fr(n)p Fl(\000)p Fu(1)26569 -58249 y Fx(,)548 b Fn(T)28071 58415 y Fu(0)28568 58249 -y Fn(::T)29829 58415 y Fr(n)p Fl(\000)p Fu(1)31565 58249 -y Fx(,)h(and)513 b Fn(l)35047 58415 y Fu(0)35544 58249 -y Fn(::l)36488 58415 y Fr(n)p Fl(\000)p Fu(1)38737 58249 -y Fx(all)h(ha)-31 b(v)g(e)513 b(b)31 b(ounds)512 b(0)p -Fn(::n)344 b Ft(\000)31 59577 y Fx(1.)1089 b(T)-92 b(o)568 -b(mak)-31 b(e)569 b(the)f(fact)h(that)f(they)h(ha)-31 -b(v)g(e)568 b(the)g(same)g(length)h(immediate)h(in)e(the)g(generated)h -(co)31 b(de,)617 b(w)-31 b(e)569 b(in)-31 b(tro-)31 60906 -y(duce)524 b(a)g(single)h(pro)31 b(of)524 b(assistan)-31 -b(t)525 b(v)-61 b(ariable)525 b(for)f(eac)-31 b(h)524 -b(suc)-31 b(h)523 b(collection,)566 b(with)525 b(appropriate)g(pro)61 -b(jections)526 b(and)e(list)31 62234 y(maps/foralls)385 -b(at)f(the)f(usage)g(p)31 b(oin)-31 b(ts.)534 b(F)-92 -b(or)382 b(example,)388 b(the)383 b(HOL)f(for)h(the)g(ab)31 -b(o)-31 b(v)g(e)384 b(is)e(essen)-31 b(tially)385 b(as)d(follo)-31 -b(ws,)389 b(with)384 b(an)31 63562 y Fs(l_t_Typ_list)583 -b(:)f(\(label#t#Typ\))h(list)p Fx(.)p Black Black 31 -65444 a Fw(\(*)524 b(Ty_Rcd)f(*\))1046 b -(!\(l_t_Typ_list:\(label#t#Typ\))524 b(list\))f(\(G:G\))g(.)31 -66662 y(\(EVERY)h(\(\\b.b\))1078 67880 y(\(MAP)f(\(\\\(l_,t_,Typ_\).)g -(\(Ty)g(G)g(t_)h(Typ_\)\))f(l_t_Typ_list\)\))555 69097 -y(==>)31 70315 y(\(Ty)1078 71533 y(G)1078 72750 y(\(E_record)g(\(MAP)g -(\(\\\(l_,t_,Typ_\).)h(\(l_,t_\)\))f(l_t_Typ_list\)\))1078 -73968 y(\(T_Rec)2092 b(\(MAP)523 b(\(\\\(l_,t_,Typ_\).)h(\(l_,Typ_\)\)) -f(l_t_Typ_list\)\)\))p Black 24533 77841 a Fx(38)p Black -eop end -%%Page: 39 39 -TeXDict begin 39 38 bop Black Black 0 -594 a Fx(This)411 -b(seems)g(to)h(b)31 b(e)410 b(a)i(b)31 b(etter)411 b(idiom)i(for)e -(later)h(pro)31 b(of)411 b(dev)-31 b(elopmen)g(t)413 -b(than)f(the)g(alternativ)-31 b(e)413 b(of)f(three)f(di\013eren)-31 -b(t)411 b(list)0 735 y(v)-61 b(ariables)370 b(coupled)g(with)g -(assertions)f(that)i(they)f(ha)-31 b(v)g(e)370 b(the)f(same)h(length.)0 -2727 y(With)449 b(direct)f(supp)31 b(ort)448 b(for)h(lists,)469 -b(w)-31 b(e)449 b(need)f(also)h(direct)g(supp)31 b(ort)448 -b(for)g(sym)-31 b(b)31 b(olic)450 b(terms)e(in)-31 b(v)g(olving)452 -b(list)d(pro)61 b(jection)0 4055 y(and)369 b(concatenation.)496 -b(F)-92 b(or)369 b(example,)i(the)e(rule)21299 7089 y -Fo(t)597 b Ft(\000)-185 b(!)492 b Fo(t)25012 6687 y Fl(0)p -10393 7664 25837 45 v 10946 8727 a Ft(f)185 b Fo(l)11967 -8893 y Fu(1)12587 8727 y Fx(=)123 b Fo(v)14080 8893 y -Fu(1)14761 8727 y Fn(;)369 b(::)184 b(;)371 b Fo(l)17196 -8893 y Fi(m)18182 8727 y Fx(=)123 b Fo(v)19675 8893 y -Fi(m)20722 8727 y Fn(;)369 b Fo(l)238 b Fx(=)123 b Fo(t)289 -b Fn(;)369 b Fo(l)24633 8325 y Fl(0)24519 9002 y Fu(1)25139 -8727 y Fx(=)123 b Fo(t)26596 8325 y Fl(0)26491 9002 y -Fu(1)27172 8727 y Fn(;)369 b(::)184 b(;)371 b Fo(l)29721 -8325 y Fl(0)29607 9000 y Fi(n)30365 8727 y Fx(=)123 b -Fo(t)31822 8325 y Fl(0)31717 9000 y Fi(n)32536 8727 y -Ft(g)10946 10055 y(\000)-184 b(!)492 b(f)185 b Fo(l)14243 -10221 y Fu(1)14862 10055 y Fx(=)123 b Fo(v)16355 10221 -y Fu(1)17036 10055 y Fn(;)370 b(::)184 b(;)371 b Fo(l)19472 -10221 y Fi(m)20457 10055 y Fx(=)123 b Fo(v)21950 10221 -y Fi(m)22997 10055 y Fn(;)370 b Fo(l)237 b Fx(=)123 b -Fo(t)25651 9653 y Fl(0)26146 10055 y Fn(;)369 b Fo(l)27219 -9653 y Fl(0)27105 10330 y Fu(1)27725 10055 y Fx(=)123 -b Fo(t)29182 9653 y Fl(0)29077 10330 y Fu(1)29758 10055 -y Fn(;)369 b(::)184 b(;)371 b Fo(l)32307 9653 y Fl(0)32193 -10329 y Fi(n)32951 10055 y Fx(=)123 b Fo(t)34408 9653 -y Fl(0)34303 10329 y Fi(n)35122 10055 y Ft(g)37275 7919 -y Fj(Rec)0 12661 y Fx(giv)-31 b(es)437 b(rise)e(to)i(HOL)f(co)31 -b(de)436 b(as)g(b)31 b(elo)-31 b(w)437 b(|)f(note)h(the)f(list-lifted)i -(usage)f(of)f(the)h Fs(is_v_of_t)g Fx(predicate,)454 -b(and)436 b(the)g(list)0 13990 y(app)31 b(ends)369 b(\()p -Fs(++)p Fx(\))h(in)f(the)h(conclusion.)p Black Black -0 15872 a Fw(\(*)523 b(reduce_Rec)g(*\))1047 b -(!\(l'_t'_list:\(label#t\))523 b(list\))3661 17089 y -(\(l_v_list:\(label#t\))h(list\))f(\(l:label\))g(\(t:t\))h(\(t':t\))f -(.)0 18307 y(\(\(EVERY)g(\(\\\(l_,v_\).)h(is_v_of_t)f(v_\))g -(l_v_list\))g(/\\)0 19525 y(\(\()g(reduce)g(t)g(t')g(\)\)\))523 -20742 y(==>)0 21960 y(\(\()g(reduce)g(\(t_Rec)h(\(l_v_list)f(++)g -([\(l,t\)])g(++)g(l'_t'_list\)\))5230 23178 y(\(t_Rec)h(\(l_v_list)f -(++)g([\(l,t'\)])g(++)g(l'_t'_list\)\)\)\))0 25170 y -Fx(F)-92 b(or)368 b(the)i Fs(Proj)f Fx(t)-31 b(yping)371 -b(rule)16643 28499 y(\000)492 b Ft(`)g Fo(t)597 b Fx(:)492 -b Ft(f)p 21497 27597 2816 45 v 185 w Fo(l)21780 28665 -y Fi(i)22497 28499 y Fx(:)308 b Fo(T)23904 28665 y Fi(i)24464 -27782 y(i)68 b Fl(2)p Fu(0)p Fr(::)p Fi(n)f Fl(\000)p -Fu(1)28334 28499 y Ft(g)p 16089 29074 13352 45 v 19380 -30088 a Fx(\000)492 b Ft(`)h Fo(t)289 b Fn(:)184 b Fo(l)23164 -30254 y Fi(j)24108 30088 y Fx(:)492 b Fo(T)25699 30254 -y Fi(j)31099 29329 y Fj(Pr)-25 b(oj)0 32674 y Fx(w)-31 -b(e)370 b(need)f(a)g(sp)31 b(eci\014c)369 b(pro)61 b(jection)371 -b(\(the)f(HOL)f Fs(EL)p Fx(\))h(to)g(pic)-31 b(k)370 -b(out)g(the)f Fn(j)63 b Fx('th)370 b(elemen)-31 b(t:)p -Black Black 0 34556 a Fw(\(*)523 b(Ty_Proj)g(*\))1046 -b(!\(l_Typ_list:\(label#Typ\))524 b(list\))3661 35774 -y(\(j:index\))g(\(G:G\))f(\(t:t\))g(.)0 36991 y(\(\(\()g(Ty)g(G)g(t)g -(\(T_Rec)h(\(l_Typ_list\)\))f(\)\)\))523 38209 y(==>)0 -39427 y(\(\()g(Ty)2615 40644 y(G)2615 41862 y(\(t_Proj)g(t)1047 -b(\(\(\\)523 b(\(l_,Typ_\))g(.)g(l_\))g(\(EL)g(j)g(l_Typ_list\)\)\)) -2615 43080 y(\(\(\\)g(\(l_,Typ_\))h(.)f(Typ_\))g(\(EL)1046 -b(j)523 b(l_Typ_list\)\)\)\))0 45072 y Fx(F)-92 b(or)378 -b(Co)31 b(q,)384 b(when)379 b(translating)j(a)-31 b(w)g(a)g(y)381 -b(lists,)i(w)-31 b(e)380 b(ha)-31 b(v)g(e)380 b(to)g(in)-31 -b(tro)31 b(duce)380 b(y)-31 b(et)380 b(more)g(list)g(t)-31 -b(yp)31 b(es)380 b(for)f(these)g(pro)31 b(of)380 b(assistan)-31 -b(t)0 46400 y(v)-61 b(ariables,)344 b(in)336 b(addition)i(to)f(the)f -(ob)-31 b(vious)338 b(translation)g(of)e(sym)-31 b(b)31 -b(olic)338 b(terms,)343 b(and,)g(more)337 b(substan)-31 -b(tially)-92 b(,)346 b(to)336 b(in)-31 b(tro)31 b(duce)0 -47729 y(additional)372 b(inductiv)-31 b(e)371 b(relation)g -(de\014nitions)g(to)f(induct)f(o)-31 b(v)g(er)370 b(them.)0 -49721 y(F)-92 b(or)395 b(similar)i(examples)g(in)f(Isab)31 -b(elle,)403 b(the)396 b(generated)g(Isab)31 b(elle)396 -b(for)g(the)g(\014rst)f(three)g(rules)g(of)i Ft(x)p Fx(12.1)g(is)f(sho) --31 b(wn)396 b(b)31 b(elo)-31 b(w)0 51050 y(\(ligh)g(tly)397 -b(hand-edited)f(for)e(format\).)570 b(The)395 b(\014rst)e(in)-31 -b(v)g(olv)g(es)397 b(an)d(Isab)31 b(elle)395 b(v)-61 -b(ariable)395 b Fs(l_t_T_list)p Fx(,)402 b(and)395 b(list)g(maps)g(and) -0 52378 y(pro)61 b(jections)371 b(thereof.)p Black Black -0 54260 a Fw(Ty_RcdI:)523 b(")1046 55477 y([|\(formula_formuladots)h -(\(\(List.map)f(\(\045\(l_,t_,T_\).\()h(\()f(G)g(,)g(t_)g(,)g(T_)g(\))g -(:)g(Ty\)\))g(l_t_T_list\)\)\)|])1046 56695 y(==>)1046 -57913 y(\()g(G)g(,)2092 59130 y(\(t_Rec)g(\(\(List.map)h -(\(\045\(l_,t_,T_\).\(l_,t_\)\))f(l_t_T_list\)\)\))h(,)2092 -60348 y(\(T_Rec)f(\(\(List.map)h(\(\045\(l_,t_,T_\).\(l_,T_\)\))f -(l_t_T_list\)\)\))1046 61566 y(\))g(:)g(Ty")0 64001 y(Ty_ProjI:)g(") -1046 65219 y([|)g(\()g(G)g(,)g(t)g(,)g(\(T_Rec)h(\(l_T_list\)\))f(\))g -(:)g(Ty|])g(==>)1046 66436 y(\()g(G)g(,)2092 67654 y(\(t_Proj)g(t)g -(\(\045\(l_,T_\).l_\))h(\(List.nth)f(l_T_list)h(\(j)f(-)g(1\)\)\))g(,) -2092 68872 y(\(\045\(l_,T_\).T_\))h(\(List.nth)f(l_T_list)g(\(j)g(-)g -(1\)\))1046 70089 y(\))g(:)g(Ty")0 72525 y(E_Ctx_recordI:)g(")0 -73742 y([|)g(List.list_all)h(\(\045\(l_,v_\).is_v)f(v_\))g(l_v_list)g -(;)p Black 24502 77841 a Fx(39)p Black eop end -%%Page: 40 40 -TeXDict begin 40 39 bop Black Black 1601 -594 a Fw(\()523 -b(t)g(,)g(t')g(\))g(:)g(E|])31 624 y(==>)555 1841 y(\()g(\(t_Rec)g -(\(l_v_list)g(@)g([\(l,t\)])g(@)h(l_'t_'list\)\))f(,)1601 -3059 y(\(t_Rec)g(\(l_v_list)g(@)g([\(l,t'\)])h(@)f(l_'t_'list\)\))555 -4277 y(\))g(:)g(E")31 6269 y Fx(The)370 b(generated)g(co)31 -b(de)369 b(for)g(substitutions)i(and)e(free)g(v)-61 b(ariables)370 -b(tak)-31 b(es)370 b(accoun)-31 b(t)371 b(of)e(suc)-31 -b(h)369 b(list)h(structure.)31 8262 y(Note)275 b(that)f(at)h(presen)-31 -b(t)273 b(the)g(generated)h(Isab)31 b(elle)274 b(co)31 -b(de)274 b(for)f(these)g(functions)i(do)31 b(es)273 b(not)h(alw)-31 -b(a)g(ys)275 b(build)g(without)g(c)-31 b(hange,)31 9590 -y(in)370 b(particular)g(if)g(tuples)g(of)f(size)g(3)h(or)f(more)g(are)g -(required)g(in)h(patterns.)31 13132 y Fp(12.3.3)1275 -b(List)423 b(forms)i(in)g(homomorphisms)31 15839 y Fx(Pro)31 -b(of)437 b(assistan)-31 b(t)437 b(homomorphisms)g(in)f(pro)31 -b(ductions)436 b(can)g(refer)f(to)h(dot-form)h(meta)-31 -b(v)-61 b(ariables)438 b(and)e(non)-31 b(terminals.)31 -17167 y(F)-92 b(or)505 b(example,)540 b(the)506 b(second)f(pro)31 -b(duction)505 b(b)31 b(elo)-31 b(w)507 b(\(tak)-31 b(en)506 -b(from)g Fs(test17.9)p Fx(\))g(men)-31 b(tions)p RoyalBlue -507 w Fs([[)p Black(x1)582 b(t1)p RoyalBlue 581 w(...)p -Black 1163 w(xn)f(tn)p RoyalBlue(]])p Black 31 18496 -a Fx(in)467 b(the)p Mahogany 467 w Fs(isa)p Black 467 -w Fx(homomorphism.)788 b(This)467 b(m)-31 b(ust)467 b(exactly)h(matc) --31 b(h)468 b(the)f(dot)h(form)f(in)g(the)g(pro)31 b(duction)467 -b(except)g(that)h(all)31 19824 y(terminals)426 b(m)-31 -b(ust)425 b(b)31 b(e)424 b(omitted)i(|)e(the)h(meta)-31 -b(v)-61 b(ariables)426 b(and)f(non)-31 b(terminals)426 -b(m)-31 b(ust)425 b(o)31 b(ccur)424 b(in)g(the)h(same)f(order)g(as)g -(in)31 21153 y(the)370 b(pro)31 b(duction,)371 b(and)e(the)g(b)31 -b(ounds)369 b(m)-31 b(ust)370 b(b)31 b(e)369 b(the)g(same.)p -Black Black 2356 23145 a Fs(E)p RoyalBlue 581 w(::)p -Black 582 w('E_')p RoyalBlue 582 w(::=)p Black RoyalBlue -581 w({{)p Black Mahogany 582 w(isa)p Black 581 w(\()582 -b(ident)f(*)h(t)f(\))g(list)p RoyalBlue 1163 w(}})p Black -RoyalBlue 3518 24473 a(|)p Black 582 w(<)g(x1)g(:)h(t1)f(,)p -RoyalBlue 581 w(..)p Black 582 w(,)g(xn)h(:)f(tn)g(>)p -RoyalBlue 582 w(::)p Black RoyalBlue 581 w(::)p Black -582 w(2)p RoyalBlue 1162 w({{)p Black Mahogany 581 w(isa)p -Black 1163 w(List.rev)p RoyalBlue 583 w([[)p Black(x1)g(t1)p -RoyalBlue 582 w(..)p Black 581 w(xn)h(tn)p RoyalBlue(]])p -Black RoyalBlue 581 w(})q(})p Black Mahogany 2356 25802 -a(formula)p Black RoyalBlue 582 w(::)p Black 582 w(formula_)p -RoyalBlue 582 w(::=)p Black RoyalBlue 3518 27130 a(|)p -Black 582 w(judgement)p RoyalBlue 8137 w(::)p Black RoyalBlue -582 w(::)p Black 581 w(judgement)p RoyalBlue 3518 28458 -a(|)p Black 582 w(formula1)p RoyalBlue 582 w(..)p Black -581 w(formulan)p RoyalBlue 1745 w(::)p Black RoyalBlue -582 w(::)p Black 581 w(dots)31 30451 y Fx(The)425 b(generated)g(Isab)31 -b(elle)425 b(co)31 b(de)425 b(for)f(sym)-31 b(b)31 b(olic)426 -b(terms)e(men)-31 b(tioning)428 b(this)d(pro)31 b(duction)425 -b(will)h(in)-31 b(v)g(olv)g(e)427 b(a)e(list)g(of)g(pairs.)31 -31779 y(F)-92 b(or)369 b(example,)i(the)e(rules)p Mahogany -Black Mahogany 31 33772 a Fs(defn)p Black 31 35100 a(|-)582 -b(E)p RoyalBlue 1162 w(::)p Black RoyalBlue 582 w(::)p -Black 581 w(Eok)p RoyalBlue 582 w(::)p Black 581 w(Eok_)p -Mahogany 582 w(by)p Black RoyalBlue 31 37757 a -(----------------------------)p Black 586 w(::)f(2)31 -39085 y(|-)h()31 41742 y(|-)g(t1:K1)1163 -b(..)581 b(|-)h(tn:Kn)p RoyalBlue 31 43070 a -(----------------------------)p Black 586 w(::)f(3)31 -44399 y(|-)h()31 46391 y Fx(generate)p -Black Black 31 48273 a Fw(consts)1078 49491 y(Eok)523 -b(::)g("E)g(set")31 50708 y(inductive)h(Eok)f(tK)31 51926 -y(intros)31 54361 y(\(*)h(defn)f(Eok)g(*\))31 56797 y(Eok_2I:)h(")f(\() -g(List.rev)1046 b(\(x_t_list\))524 b(\))f(:)g(Eok")31 -59232 y(Eok_3I:)h("[|)31 60450 y(\(List.list_all)g(\(\\)f(b)g -(.)g(b\))h(\()1046 b(\(\(List.map)523 b(\(\045\(x_,t_,K_\).)g(\()h(t_)f -(,)g(K_)g(\))g(:)g(tK\))g(x_t_K_list\)\))1047 b(\))523 -b(\)|])555 61667 y(==>)555 62885 y(\()g(List.rev)1046 -b(\(\(List.map)523 b(\(\045\(x_,t_,K_\).\(x_,t_\)\))h(x_t_K_list\)\))f -(\))g(:)h(Eok")31 66095 y Fx(Note)487 b(that)g(in)e(the)h(second)f(the) -h(list)h(of)f(pairs)f(is)g(pro)61 b(jected)487 b(out)f(from)g(the)g -Fs(x_t_K_list)h Fx(list)f(of)g(triples)g(that)h(is)31 -67423 y(quan)-31 b(ti\014ed)371 b(o)-31 b(v)g(er)370 -b(in)g(the)f(rule.)p Black 24533 77841 a(40)p Black eop -end -%%Page: 41 41 -TeXDict begin 41 40 bop Black Black 0 -594 a FC(13)1793 -b(Subrules)0 2495 y Fx(Subrule)369 b(declarations)i(ha)-31 -b(v)g(e)370 b(the)g(form)p Black Black Mahogany 1162 -4487 a Fs(subrules)p Black 2325 5816 a(nt1)p RoyalBlue -581 w(<::)p Black 582 w(nt2)0 7808 y Fx(where)f Fs(nt1)g -Fx(and)h Fs(nt2)f Fx(are)g(non)-31 b(terminal)372 b(ro)31 -b(ots.)0 9801 y(Subrules)254 b(can)h(b)31 b(e)255 b(c)-31 -b(hained,)279 b(i.e.)256 b(there)e(can)i(b)31 b(e)254 -b(a)h(pair)g(of)h(subrule)e(declarations)i Fs(nt1)p RoyalBlue -582 w(<::)p Black 1163 w(nt2)f Fx(and)g Fs(nt2)p RoyalBlue -582 w(<::)p Black 1162 w(nt3)p Fx(,)0 11129 y(and)314 -b(they)g(can)g(form)g(a)g(directed)g(acyclic)h(graph,)326 -b(e.g.)314 b(with)h Fs(nt0)p RoyalBlue 582 w(<::)p Black -1163 w(nt1)p Fx(,)325 b Fs(nt0)p RoyalBlue 582 w(<::)p -Black 1162 w(nt2)p Fx(,)h Fs(nt1)p RoyalBlue 582 w(<::)p -Black 1162 w(nt3)p Fx(,)g(and)0 12458 y Fs(nt2)p RoyalBlue -582 w(<::)p Black 1162 w(nt3)p Fx(.)470 b(Ho)-31 b(w)g(ev)g(er,)315 -b(there)299 b(cannot)h(b)31 b(e)299 b(cycles,)314 b(or)299 -b(non)-31 b(terminal)302 b(ro)31 b(ots)299 b(for)g(whic)-31 -b(h)300 b(there)f(are)g(m)-31 b(ultiple)302 b(upp)31 -b(er)0 13786 y(b)g(ounds.)515 b(Subrule)377 b(declarations)h(should)f -(not)h(in)-31 b(v)g(olv)g(e)379 b(non)-31 b(terminal)379 -b(ro)31 b(ots)377 b(for)g(whic)-31 b(h)378 b(pro)31 b(of-assistan)-31 -b(t)378 b(t)-31 b(yp)31 b(e)378 b(homs)0 15114 y(are)369 -b(sp)31 b(eci\014ed.)0 17107 y(W)-92 b(e)402 b(supp)31 -b(ort)403 b(the)g(case)g(in)g(whic)-31 b(h)404 b(the)f(upp)31 -b(er)402 b(rule)h(is)g(also)h(non-free,)412 b(i.e.)404 -b(it)g(con)-31 b(tains)404 b(pro)31 b(ductions)404 b(that)g(men)-31 -b(tion)0 18435 y(non)g(terminals)383 b(that)f(o)31 b(ccur)381 -b(on)g(the)h(left)g(of)f(a)h(subrule)e(declaration.)531 -b(In)380 b(the)i(example)g(b)31 b(elo)-31 b(w)382 b(\()p -Fs(test11.ott)p Fx(\))i(the)d Fs(t)0 19763 y Fx(rule)369 -b(con)-31 b(tains)371 b(a)e(pro)31 b(duction)370 b Fs(Foo)582 -b(v)p Fx(.)p Black Black Mahogany 1162 21756 a Fs(metavar)p -Black 582 w(termvar)p RoyalBlue 583 w(,)p Black 581 w(x)p -RoyalBlue 581 w(::=)p Black RoyalBlue 2325 23084 a({{)p -Black Mahogany 581 w(isa)p Black 582 w(string)p RoyalBlue -582 w(}})p Black RoyalBlue 581 w({{)p Black Mahogany -582 w(coq)p Black 581 w(nat)p RoyalBlue 582 w(}})p Black -RoyalBlue 581 w({{)p Black Mahogany 582 w(coq-equality)p -Black RoyalBlue 583 w(}})p Black RoyalBlue 581 w({{)p -Black Mahogany 581 w(hol)p Black 582 w(string)p RoyalBlue -582 w(}})p Black RoyalBlue 582 w({{)p Black Mahogany -581 w(ocaml)p Black 582 w(int)p RoyalBlue 582 w(}})p -Black Mahogany 1162 25741 a(grammar)p Black 2325 27069 -a(t)p RoyalBlue 581 w(::)p Black 581 w('t_')p RoyalBlue -582 w(::=)p Black RoyalBlue 3487 28398 a(|)p Black 581 -w(x)p RoyalBlue 11042 w(::)p Black RoyalBlue 1744 w(::)p -Black 581 w(Var)p RoyalBlue 3487 29726 a(|)p Black 581 -w(\\)f(x)h(.)f(t)p RoyalBlue 7555 w(::)p Black RoyalBlue -1744 w(::)p Black 581 w(Lam)p RoyalBlue 1163 w(\(+)p -Black Mahogany 582 w(bind)p Black 581 w(x)p Mahogany -582 w(in)p Black 581 w(t)p RoyalBlue 581 w(+\))p Black -RoyalBlue 3487 31054 a(|)p Black 581 w(t)g(t')p RoyalBlue -9299 w(::)p Black RoyalBlue 1744 w(::)p Black 581 w(App)p -RoyalBlue 3487 32383 a(|)p Black 581 w(Foo)h(v)p RoyalBlue -8717 w(::)p Black RoyalBlue 1744 w(::)p Black 581 w(Foo)2325 -35040 y(v)p RoyalBlue 581 w(::)p Black 581 w('v_')p RoyalBlue -582 w(::=)p Black RoyalBlue 3487 36368 a(|)p Black 581 -w(\\)f(x)h(.)f(t)p RoyalBlue 7555 w(::)p Black RoyalBlue -1744 w(::)p Black 581 w(Lam)p Mahogany 1162 39025 a(subrules)p -Black 2325 40353 a(v)p RoyalBlue 581 w(<::)p Black 581 -w(t)p Mahogany 1162 43010 a(defns)p Black 2325 44338 -a(Jb)p RoyalBlue 581 w(::)p Black 581 w('')p RoyalBlue -582 w(::=)p Black Mahogany 3487 46995 a(defn)p Black -3487 48323 a(Baz)g(t)h(,)f(v)p RoyalBlue 581 w(::)p Black -RoyalBlue 1163 w(::)p Black 581 w(Baz)p RoyalBlue 582 -w(::)p Black 581 w('')p Mahogany 4069 w(by)p Black RoyalBlue -3487 52308 a(---------)p Black 582 w(::)h(ax)3487 53636 -y(Baz)f(t)h(,)f(v)0 55629 y Fx(In)535 b(this)h(case)f(generated)h(Isab) -31 b(elle/Co)g(q/HOL/OCaml)540 b(will)d(de\014ne)e(a)g(single)i(t)-31 -b(yp)31 b(e)535 b(and)h(b)31 b(oth)536 b Fs(is)p 44165 -55629 349 45 v 419 w(v)f Fx(and)g Fs(is)p 49180 55629 -V 419 w(t)0 56957 y Fx(predicates,)336 b(and)328 b(the)f(generated)h -(inductiv)-31 b(e)329 b(de\014nition)g(clause)e(for)h -Fs(ax)f Fx(uses)f(b)31 b(oth)328 b(predicates.)479 b(The)327 -b(Isab)31 b(elle)328 b(clause)0 58286 y(is)369 b(b)31 -b(elo)-31 b(w.)p Black Black 1162 60278 a Fs(axI:)582 -b("[|is_t)g(t)g(;)f(is_v)h(v|])f(==>)1163 b(\()581 b(t)h(,)f(v)g(\))g -(:)h(Baz")0 64603 y FC(14)1793 b(Con)-50 b(text)599 b(rules)0 -67692 y Fx(The)457 b(system)g(supp)31 b(orts)456 b(the)h(de\014nition)i -(of)e(single-hole)i(con)-31 b(texts,)480 b(e.g.)458 b(for)f(ev)-61 -b(aluation)459 b(con)-31 b(texts.)757 b(F)-92 b(or)456 -b(example,)0 69020 y(supp)31 b(ose)368 b(one)i(has)f(a)g(term)h -(grammar)g(as)f(b)31 b(elo)-31 b(w:)p Black Black 0 71013 -a Fs(t)p RoyalBlue 581 w(::)p Black 582 w('t_')p RoyalBlue -581 w(::=)p Black RoyalBlue 18017 w({{)p Black Mahogany -581 w(com)p Black 582 w(term)p RoyalBlue 2325 w(}})p -Black RoyalBlue 1162 72341 a(|)p Black 582 w(x)p RoyalBlue -10460 w(::)p Black RoyalBlue 1163 w(::)p Black 581 w(Var)p -RoyalBlue 11043 w({{)p Black Mahogany 581 w(com)p Black -582 w(variable)p RoyalBlue(})q(})p Black RoyalBlue 1162 -73669 a(|)p Black 582 w(\\)581 b(x)g(.)g(t)p RoyalBlue -6974 w(::)p Black RoyalBlue 1163 w(::)p Black 581 w(Lam)p -RoyalBlue 582 w(\(+)p Black Mahogany 582 w(bind)p Black -581 w(x)p Mahogany 582 w(in)p Black 581 w(t)p RoyalBlue -581 w(+\))p Black RoyalBlue 582 w({{)p Black Mahogany -581 w(com)p Black 582 w(lambda)p RoyalBlue 1163 w(}})p -Black Black 24502 77841 a Fx(41)p Black eop end -%%Page: 42 42 -TeXDict begin 42 41 bop Black Black RoyalBlue 1194 -594 -a Fs(|)p Black 581 w(t)581 b(t')p RoyalBlue 8718 w(::)p -Black RoyalBlue 1163 w(::)p Black 581 w(App)p RoyalBlue -11042 w({{)p Black Mahogany 582 w(com)p Black 581 w(app)p -RoyalBlue 2906 w(})q(})p Black RoyalBlue 1194 735 a(|)p -Black 581 w(\()g(t1)h(,)p RoyalBlue 581 w(....)p Black -582 w(,)f(tn)h(\))p RoyalBlue 581 w(::)p Black RoyalBlue -1163 w(::)p Black 581 w(Tuple)p RoyalBlue 9880 w({{)p -Black Mahogany 582 w(com)p Black 581 w(tuple)p RoyalBlue -582 w(}})p Black RoyalBlue 1194 2063 a(|)p Black 581 -w(\()f(t)h(\))p RoyalBlue 8136 w(::)p Black Mahogany -581 w(S)p Black RoyalBlue(::)p Black 582 w(Paren)p RoyalBlue -9880 w({{)p Black Mahogany 582 w(icho)p Black RoyalBlue -581 w([[)p Black(t)p RoyalBlue(]])p Black RoyalBlue 1163 -w(})q(})p Black RoyalBlue 1194 3391 a(|)p Black 581 w({)f(t)h(/)f(x)g -(})h(t')p RoyalBlue 4068 w(::)p Black Mahogany 581 w(M)p -Black RoyalBlue(::)p Black 582 w(Tsub)p RoyalBlue 13979 -4720 a({{)p Black Mahogany 582 w(icho)p Black 581 w(\(tsubst_t)p -RoyalBlue 583 w([[)p Black(t)p RoyalBlue(]])p Black RoyalBlue -582 w([[)p Black(x)p RoyalBlue(]])p Black RoyalBlue 582 -w([[)p Black(t')p RoyalBlue(]])p Black(\))p RoyalBlue(})q(})p -Black RoyalBlue 1194 7376 a(|)p Black 581 w(E)f(.)h(t)p -RoyalBlue 8136 w(::)p Black Mahogany 581 w(M)p Black -RoyalBlue(::)p Black 582 w(Ctx)p RoyalBlue 13979 8705 -a({{)p Black Mahogany 582 w(icho)p Black 581 w(\(appctx_E_t)p -RoyalBlue 583 w([[)p Black(E)p RoyalBlue(]])p Black RoyalBlue -582 w([[)p Black(t)p RoyalBlue(]])p Black(\))p RoyalBlue(})q(})p -Black RoyalBlue 13979 10033 a({{)p Black Mahogany 582 -w(tex)p Black RoyalBlue 581 w([[)p Black(E)p RoyalBlue(]])p -Black 582 w(\\cdot)p RoyalBlue 582 w([[)p Black(t)p RoyalBlue(]])p -Black RoyalBlue 582 w(}})p Black 31 12026 a Fx(A)362 -b(con)-31 b(text)363 b(grammar)f(is)f(declared)h(as)f(a)h(normal)g -(grammar)h(but)e(with)i(a)e(single)h(o)31 b(ccurrence)361 -b(of)g(the)h(terminal)h Fs(__)e Fx(in)31 13354 y(eac)-31 -b(h)370 b(pro)31 b(duction,)371 b(e.g.)493 b(as)369 b(in)h(the)f -(grammar)i(for)e Fs(E)g Fx(b)31 b(elo)-31 b(w)370 b(\(a)g(rather)f -(strange)h(ev)-61 b(aluation)372 b(strategy)-92 b(,)370 -b(admittedly\).)p Black Black 31 15346 a Fs(E)p RoyalBlue -582 w(::)p Black 581 w('E_')p RoyalBlue 582 w(::=)p Black -RoyalBlue 18016 w({{)p Black Mahogany 581 w(com)p Black -582 w(evaluation)583 b(context)p RoyalBlue 582 w(}})p -Black RoyalBlue 1194 16675 a(|)p Black 581 w(__)f(t)p -RoyalBlue 5230 w(::)p Black RoyalBlue 1163 w(::)p Black -581 w(AppL)p RoyalBlue 11042 w({)q({)p Black Mahogany -581 w(com)p Black 582 w(app)f(L)p RoyalBlue 2325 w(}})p -Black RoyalBlue 1194 18003 a(|)p Black 581 w(v)g(__)p -RoyalBlue 5231 w(::)p Black RoyalBlue 1163 w(::)p Black -581 w(AppR)p RoyalBlue 11042 w({)q({)p Black Mahogany -581 w(com)p Black 582 w(app)g(R)p RoyalBlue 2325 w(}})p -Black RoyalBlue 1194 19331 a(|)p Black 581 w(\\)g(x)h(.)f(__)p -RoyalBlue 2906 w(::)p Black RoyalBlue 1163 w(::)p Black -581 w(Lam)p RoyalBlue 11623 w({)q({)p Black Mahogany -581 w(com)p Black 582 w(reduce)h(under)f(lambda)p RoyalBlue -583 w(}})p Black RoyalBlue 1194 20660 a(|)p Black 581 -w(\()g(t1)h(\()f(__)1163 b(t2)581 b(\))g(\))p RoyalBlue -582 w(::)p Black RoyalBlue 581 w(::)p Black 582 w(Nested)p -RoyalBlue 8137 w({{)p Black Mahogany 581 w(com)p Black -582 w(hole)g(nested)p RoyalBlue 582 w(})q(})p Black RoyalBlue -1194 21988 a(|)p Black 581 w(\()g(v1)h(,)p RoyalBlue -581 w(..)p Black 582 w(,)f(vm)g(,)h(__)f(,)g(t1)h(,)p -RoyalBlue 581 w(..)p Black 582 w(,)f(tn)g(\))p RoyalBlue -582 w(::)p Black RoyalBlue 581 w(::)p Black 581 w(Tuple)p -RoyalBlue 582 w({)q({)p Black Mahogany 581 w(com)p Black -581 w(tuple)p RoyalBlue 582 w(}})p Black 31 23981 a Fx(A)p -Mahogany 370 w Fs(contextrules)p Black 370 w Fx(declaration:)p -Mahogany Black Mahogany 31 25973 a Fs(contextrules)p -Black 1194 27302 a(E)p RoyalBlue 581 w(_::)p Black 582 -w(t)p RoyalBlue 581 w(::)p Black 581 w(t)31 29294 y Fx(causes)391 -b(Ott)h(to)g(\(a\))h(c)-31 b(hec)g(k)392 b(that)g(eac)-31 -b(h)392 b(pro)31 b(duction)392 b(of)g(the)g Fs(E)f Fx(grammar)h(is)g -(indeed)f(a)h(con)-31 b(text)393 b(for)e(the)h Fs(t)f -Fx(grammar,)31 30622 y(and)370 b(\(b\))g(generates)f(pro)31 -b(of)370 b(assistan)-31 b(t)370 b(functions,)h(e.g.)g -Fs(appctx_E_t)p Fx(,)g(to)f(apply)g(a)f(con)-31 b(text)371 -b(to)f(a)f(term:)p Black Black 31 32615 a Fs(\(**)582 -b(context)g(application)h(*\))31 33943 y(Definition)g(appctx_E_t)g -(\(E5:E\))f(\(t_6:t\))g(:)f(t)h(:=)1194 35272 y(match)g(E5)f(with)1194 -36600 y(|)g(\(E_AppL)h(t5\))g(=>)f(\(t_App)h(t_6)g(t5\))1194 -37928 y(|)f(\(E_AppR)h(v5\))g(=>)f(\(t_App)h(v5)g(t_6\))1194 -39257 y(|)f(\(E_Lam)h(x\))g(=>)f(\(t_Lam)h(x)f(t_6\))1194 -40585 y(|)g(\(E_Nested)i(t1)e(t2\))h(=>)1162 b(\(t_App)582 -b(t1)1163 b(\(t_App)582 b(t_6)f(t2\))h(\))1194 41913 -y(|)f(\(E_Tuple)h(v_list)g(t_list\))h(=>)e(\(t_Tuple)h(\(\(app_list_t)h -(v_list)2937 43242 y(\(app_list_t)g(\(Cons_list_t)g(t_6)f(Nil_list_t\)) -g(\(app_list_t)h(t_list)f(Nil_list_t\)\)\)\)\))31 45234 -y Fx(As)369 b(the)h Fs(Nested)g Fx(pro)31 b(duction)370 -b(sho)-31 b(ws,)370 b(con)-31 b(text)371 b(pro)31 b(ductions)369 -b(can)h(in)-31 b(v)g(olv)g(e)371 b(nested)e(term)h(structure.)31 -47227 y(Note)475 b(also)f(that)h(here)e(the)h Fs(E)f -Fx(grammar)i(is)e(not)h(free)f(\(it)i(men)-31 b(tions)475 -b(the)f(subrule)f(non)-31 b(terminal)476 b Fs(v)p Fx(\))e(so)f(an)h -(isv)-61 b(alue)31 48555 y(predicate)370 b Fs(is_E_of_E)h -Fx(is)e(also)h(generated.)31 50548 y(In)f(general,)i(con)-31 -b(text)370 b(rule)f(declarations)j(ha)-31 b(v)g(e)370 -b(the)f(form)p Black Black Mahogany 1194 52540 a Fs(contextrules)p -Black 2356 53869 a(ntE)p RoyalBlue 582 w(_::)p Black -581 w(nt1)p RoyalBlue 582 w(::)p Black 581 w(nt2)31 55861 -y Fx(where)392 b Fs(ntE)p Fx(,)g Fs(nt1)p Fx(,)399 b(and)392 -b Fs(nt2)f Fx(are)h(non)-31 b(terminal)394 b(ro)31 b(ots.)561 -b(This)392 b(declares)f(con)-31 b(texts)393 b Fs(ntE)f -Fx(for)g(the)g Fs(nt1)g Fx(grammar,)399 b(with)31 57189 -y(holes)370 b(in)g Fs(nt2)f Fx(p)31 b(ositions.)31 59182 -y(Just)364 b(as)g(for)f(substitutions,)k(the)d(con)-31 -b(text)366 b(application)h(function)e(is)e(t)-31 b(ypically)367 -b(used)c(b)-31 b(y)364 b(adding)h(a)f(metapro)31 b(duction)31 -60510 y(to)438 b(the)g(term)f(grammar.)698 b(Here)436 -b(w)-31 b(e)438 b(add)f(a)g(pro)31 b(duction)438 b Fs(E.t)g -Fx(to)g(the)f Fs(t)g Fx(grammar)h(with)h(an)e Fs(icho)g -Fx(hom)h(that)h(uses)31 61839 y Fs(appctx_E_t)p Fx(.)p -Black Black 31 63831 a Fs(t)p RoyalBlue 582 w(::)p Black -581 w('t_')p RoyalBlue 582 w(::=)p Black RoyalBlue 18016 -w({{)p Black Mahogany 581 w(com)p Black 582 w(term)p -RoyalBlue 2325 w(}})p Black 1194 65160 a(...)p RoyalBlue -1194 66488 a(|)p Black 581 w(E)581 b(.)h(t)p RoyalBlue -8136 w(::)p Black Mahogany 581 w(M)p Black RoyalBlue(::)p -Black 582 w(Ctx)p RoyalBlue 13979 67816 a({{)p Black -Mahogany 582 w(icho)p Black 581 w(\(appctx_E_t)p RoyalBlue -583 w([[)p Black(E)p RoyalBlue(]])p Black RoyalBlue 582 -w([[)p Black(t)p RoyalBlue(]])p Black(\))p RoyalBlue(})q(})p -Black RoyalBlue 13979 69145 a({{)p Black Mahogany 582 -w(tex)p Black RoyalBlue 581 w([[)p Black(E)p RoyalBlue(]])p -Black 582 w(\\cdot)p RoyalBlue 582 w([[)p Black(t)p RoyalBlue(]])p -Black RoyalBlue 582 w(}})p Black 31 71137 a Fx(That)371 -b(can)e(then)h(b)31 b(e)368 b(used)h(in)g(relations:)p -Black Black 2356 73130 a Fs(t)581 b(-->)h(t')p RoyalBlue -2356 74458 a(--------------)p Black 583 w(::)g(ctx)p -Black 24533 77841 a Fx(42)p Black eop end -%%Page: 43 43 -TeXDict begin 43 42 bop Black Black 2325 -594 a Fs(E.t)581 -b(-->)h(E.t')0 1399 y Fx(One)412 b(w)-31 b(ould)414 b(t)-31 -b(ypically)416 b(also)e(de\014ne)e(a)h Fs(terminals)h -Fx(pro)31 b(duction)413 b(for)g(the)g(hole)g(terminal)h -Fs(__)p Fx(,)425 b(e.g.)413 b(here)f(w)-31 b(e)413 b(t)-31 -b(yp)31 b(eset)0 2727 y(the)369 b(hole)h(as)f([)p Ft(\001)p -Fx(].)p Mahogany Black Mahogany 0 4720 a Fs(terminals)p -Black RoyalBlue 582 w(::)p Black 582 w('terminals_')p -RoyalBlue 583 w(::=)p Black RoyalBlue 1162 6048 a(|)p -Black 582 w(__)p RoyalBlue 6393 w(::)p Black RoyalBlue -1162 w(::)p Black 582 w(hole)p RoyalBlue 2325 w({{)p -Black Mahogany 581 w(tex)p Black 582 w([\\cdot])p RoyalBlue -582 w(}})p Black 0 10373 a FC(15)1793 b(Auxiliary)599 -b(Rules)0 13461 y Fx(W)-92 b(e)445 b(p)31 b(ermit)446 -b(an)g Fs(aux)h Fx(hom)f(on)g(grammar)h(rules.)722 b(F)-92 -b(or)445 b(an)-31 b(y)447 b(rule)e(with)j(suc)-31 b(h)445 -b(a)h(hom,)466 b(w)-31 b(e)447 b(transform)f(that)h(rule)f(b)-31 -b(y)0 14790 y(app)31 b(ending)483 b(an)p 7214 14790 349 -45 v 901 w Fs(aux)f Fx(to)h(its)f(primary)h(non)-31 b(terminal)484 -b(ro)31 b(ot)483 b(name.)832 b(W)-92 b(e)481 b(then)h(add)g(a)h(syn)-31 -b(thesised)482 b(rule)g(with)h(the)0 16118 y(original)365 -b(non)-31 b(terminal)365 b(ro)31 b(ot)364 b(name)f(and)h(a)f(single)h -(pro)31 b(duction,)365 b(with)f(a)f(shap)31 b(e)363 b(describ)31 -b(ed)362 b(b)-31 b(y)363 b(the)g(b)31 b(o)g(dy)363 b(of)g(the)h(aux)0 -17447 y(hom,)370 b(whic)-31 b(h)371 b(m)-31 b(ust)369 -b(b)31 b(e)369 b(of)h(the)f(form)p Black Black 1162 19439 -a Fs({{)582 b(aux)1162 b(foo1)582 b(foo2)g(_)f(bar1)h(bar2)g(bar3)g(}}) -0 21432 y Fx(with)461 b(a)f(single)p 6867 21432 V 1339 -w(and)h(an)-31 b(y)460 b(n)-31 b(um)g(b)31 b(er)460 b(of)h(strings)f -Fs(fooi)g Fx(and)g Fs(barj)h Fx(b)31 b(efore)459 b(and)i(after.)765 -b(The)p 40472 21432 V 1338 w(is)460 b(replaced)h(b)-31 -b(y)460 b(the)0 22760 y(original)371 b(non)-31 b(terminal)372 -b(ro)31 b(ot)370 b(name.)0 24752 y(F)-92 b(or)368 b(example,)j(giv)-31 -b(en)371 b(a)e(grammar)i(or)e(meta)-31 b(v)-61 b(ariable)372 -b Fs(l)d Fx(of)h(source)e(lo)31 b(cations,)372 b(one)d(migh)-31 -b(t)371 b(sa)-31 b(y)p Black Black 0 26745 a Fs(ntr)582 -b(::)f('NTR_')1163 b(::=)g({{)581 b(aux)h(_)f(l)h(}})581 -28073 y(|)f(...)0 30066 y Fx(to)431 b(syn)-31 b(thesise)431 -b(grammars)g Fs(ntr)p 13712 30066 V 419 w(aux)f Fx(and)h -Fs(ntr)f Fx(of)h(unannotated)i(and)d(lo)31 b(cation-annotated)435 -b(terms,)446 b(the)431 b(\014rst)f(with)0 31394 y(all)370 -b(the)g(original)h(pro)31 b(ductions)370 b(and)g(the)f(second)g(with)h -(a)g(single)g(pro)31 b(duction)p Black Black 581 33387 -a Fs(|)581 b(ntr)h(l)f(::)h(::)f(NTR_aux.)0 35379 y Fx(If)363 -b(the)g(rule)f(has)h(an)g(empt)-31 b(y)364 b(pro)31 b(duction)364 -b(name)f(wrapp)31 b(er)362 b(\(eg)i(with)g Fs('')f Fx(in)g(place)g(of) -450 b Fs('NTR)p 38711 35379 V 419 w(')p Fx(\))363 b(then)g(the)g(pro)31 -b(duction)0 36708 y(name)441 b(is)g(based)f(on)h(the)f(original)j(non) --31 b(terminal)443 b(ro)31 b(ot,)459 b(capitalised)443 -b(and)e(with)p 34477 36708 V 860 w Fs(aux)g Fx(app)31 -b(ended)440 b(\(eg)457 b Fs(Ntr)p 45838 36708 V 419 w(aux)p -Fx(\),)i(to)0 38036 y(a)-31 b(v)g(oid)371 b(spurious)e(con\015icts.)0 -40029 y(An)274 b(additional)i Fs(auxparams)f Fx(hom)f(on)g(rules)f -(lets)h(the)g(user)f(add)g(t)-31 b(yp)31 b(e)275 b(parameters)f(to)g -(the)g(generated)g(OCaml)h(output.)0 42021 y(Generation)344 -b(of)g(aux)g(rules)e(is)h(con)-31 b(trolled)346 b(b)-31 -b(y)343 b(a)h(command-line)h(option)g Fs(-generate)p -36094 42021 V 420 w(aux)p 38257 42021 V 419 w(rules)p -Fx(,)k(whic)-31 b(h)345 b(one)e(migh)-31 b(t)0 43349 -y(\(eg\))370 b(set)g(to)f(false)h(for)g(latex)g(output)h(and)e(true)g -(for)g(OCaml)i(output.)0 47674 y FC(16)1793 b(F)-149 -b(unctions)0 50763 y Fx(Ott)430 b(includes)g(exp)31 b(erimen)-31 -b(tal)432 b(supp)31 b(ort)429 b(for)h(writing)h(function)g -(de\014nitions.)675 b(As)429 b(a)h(simple)h(example,)446 -b(consider)430 b(the)0 52091 y(Ott)370 b(\014le)f(b)31 -b(elo)-31 b(w:)p Black Black Mahogany 2325 54084 a Fs(grammar)p -Black 2906 55412 a(n)p RoyalBlue 581 w(::)p Black 581 -w('n_')p RoyalBlue 582 w(::=)p Black 4068 56741 a(|)581 -b(0)p RoyalBlue 4069 w(::)p Black RoyalBlue 581 w(::)p -Black 581 w(Zero)4068 58069 y(|)g(S)h(n)p RoyalBlue 2906 -w(::)p Black RoyalBlue 581 w(::)p Black 581 w(Succ)p -Mahogany 2325 60726 a(funs)p Black 3487 62054 a(Add)p -RoyalBlue 581 w(::=)p Black RoyalBlue 1744 w({)q({)p -Black 581 w(hol-proof)g(...)p RoyalBlue 1163 w(}})p Black -Mahogany 2325 63382 a(fun)p Black 3487 64711 a(n1)f(+)h(n2)p -RoyalBlue 581 w(::)p Black 582 w(n)p RoyalBlue 581 w(::)p -Black 581 w(add)p RoyalBlue 2325 w({{)p Black 582 w(com)f(a)h(function) -g(of)f(type)h(num)g(->)f(num)h(->)f(num)p RoyalBlue 582 -w(}})p Black Mahogany 2325 66039 a(by)p Black 1328 x(0)g(+)g(n2)p -RoyalBlue 582 w(===)p Black 582 w(n2)3487 68696 y(S)g(n1)h(+)f(n2)p -RoyalBlue 581 w(===)p Black 582 w(n1)g(+)h(S)f(n2)0 70688 -y Fx(Here)369 b(the)g Fs(add)h Fx(function)g(is)f(compiled)i(in)-31 -b(to)371 b(the)e(follo)-31 b(wing)373 b(Co)31 b(q)370 -b(co)31 b(de:)p Black 24502 77841 a(43)p Black eop end -%%Page: 44 44 -TeXDict begin 44 43 bop Black Black Black Black 2356 --594 a Fs(Fixpoint)582 b(add)g(\(x1:num\))g(\(x2:num\))h(:)e(num:=)3518 -735 y(match)h(x1,x2)g(with)3518 2063 y(|)g(n_zero)g(,)f(n2)g(=>)h(n2) -3518 3391 y(|)g(\(n_succ)g(n1\))f(,)h(n2)f(=>)1163 b(\(add)582 -b(n1)f(\(n_succ)h(n2\))g(\))2356 4720 y(end.)31 6712 -y Fx(More)369 b(in)h(detail,)h(the)p Mahogany 369 w Fs(fun)p -Black 370 w Fx(n1)e(+)g(n2)p RoyalBlue 370 w Fs(::)p -Black 492 w Fx(n)p RoyalBlue 369 w Fs(::)p Black 492 -w Fx(add)p Mahogany 370 w Fs(by)p Black 369 w Fx(declaration)i(sp)31 -b(eci\014es:)p Black 1692 8705 a Ft(\017)p Black 554 -w Fx(the)369 b(name)h(of)g(the)f(function:)494 b Fs(add)p -Black 1692 10697 a Ft(\017)p Black 554 w Fx(the)369 b(sym)-31 -b(b)31 b(olic)371 b(term)f(that)g(de\014nes)f(the)g(lhs:)493 -b Fs(n1)581 b(+)g(n2)p Black 1692 12690 a Ft(\017)p Black -554 w Fx(the)369 b(non-terminal)j(that)e(de\014nes)f(the)g(rhs:)492 -b Fs(n)31 14682 y Fx(The)291 b(t)-31 b(yp)31 b(e)291 -b(of)g(the)f(argumen)-31 b(ts)292 b(of)f(the)f(function)i(is)e -(de\014ned)g(b)-31 b(y)291 b(the)f(non-terminals)j(app)31 -b(earing)291 b(in)g(the)f(lhs,)307 b(the)290 b(return)31 -16011 y(t)-31 b(yp)31 b(e)401 b(b)-31 b(y)401 b(the)f(rhs)f -(non-terminal)k(\(so)e Fs(num)f Ft(!)g Fs(num)h Ft(!)f -Fs(num)g Fx(in)h(the)f(ab)31 b(o)-31 b(v)g(e)402 b(example\).)587 -b(As)400 b(side-e\013ect,)409 b(whenev)-31 b(er)400 b(a)31 -17339 y(function)356 b(of)f(t)-31 b(yp)31 b(e)355 b Fs(symb_term)g -Ft(!)g Fs(nt)f Fx(is)g(de\014ned,)k(a)c(pro)31 b(duction)356 -b Fs(nt)581 b(::=)h(symb_term)355 b Fx(is)g(added)f(to)h(the)g -(de\014nition)31 18667 y(of)330 b(the)g(non-terminal)i -Fs(nt)d Fx(\(in)h(the)g(ab)31 b(o)-31 b(v)g(e)330 b(example,)340 -b(the)329 b(pro)31 b(duction)331 b Fs(n1)581 b(+)g(n2)330 -b Fx(is)f(added)h(to)g(the)g(grammar)g(of)g Fs(num)p -Fx(\).)31 20660 y(F)-92 b(unctions)459 b(are)f(then)g(de\014ned)g(b)-31 -b(y)458 b(case)g(analysis,)482 b(where)458 b(the)g(lhs)g(and)g(the)h -(rhs)e(are)h(separated)g(b)-31 b(y)458 b(the)h(reserv)-31 -b(ed)31 21988 y(sym)g(b)31 b(ol)p RoyalBlue 371 w Fs(===)p -Black Fx(.)31 23981 y(The)p RoyalBlue 470 w Fs({{)p Black -470 w(hol-proof)p RoyalBlue 470 w(}})p Black 470 w Fx(hom)470 -b(allo)-31 b(ws)471 b(the)f(sp)31 b(eci\014cation)471 -b(of)f(a)f(termination)k(pro)31 b(of,)495 b(whic)-31 -b(h)470 b(is)f(required)g(b)-31 b(y)470 b(Hol.)31 25309 -y(Mutually)399 b(recursiv)-31 b(e)396 b(functions)h(can)g(b)31 -b(e)396 b(de\014ned)g(in)h(the)g(same)p Mahogany 396 -w Fs(funs)p Black 397 w Fx(blo)31 b(c)-31 b(k,)405 b(analogously)400 -b(to)d(m)-31 b(utually)399 b(recursiv)-31 b(e)31 26637 -y(rule)369 b(de\014nitions.)31 28630 y Fo(Disclaimer:)561 -b Fx(the)371 b(di\013eren)-31 b(t)372 b(treatmen)-31 -b(t)372 b(of)g(partial)h(functions)f(b)-31 b(y)371 b(the)g(di\013eren) --31 b(t)371 b(pro)-31 b(v)g(ers)371 b(can)g(result)g(in)g(a)g(function) -31 29958 y(de\014nition)g(b)31 b(eing)370 b(compiled)h(correctly)f(to)g -(one)f(pro)-31 b(v)g(er)369 b(but)h(not)g(to)g(others.)31 -34283 y FC(17)1793 b(P)-50 b(arsing)599 b(Priorities)31 -37372 y Fx(Sym)-31 b(b)31 b(olic)475 b(terms)e(that)i(can)e(ha)-31 -b(v)g(e)474 b(more)f(than)h(one)f(parse)g(tree)f(are)h(t)-31 -b(ypically)476 b(considered)d(erroneous;)525 b(ho)-31 -b(w)g(ev)g(er,)31 38700 y(certain)421 b(classes)e(of)h(parse)g(trees)f -(are)g(ignored)i(in)f(order)f(to)h(supp)31 b(ort)419 -b(common)j(idioms)f(that)g(are)e(am)-31 b(biguous.)646 -b(F)-92 b(or)31 40029 y(example,)372 b(the)d(pro)31 b(duction)21654 -41357 y(\000)308 b(::=)g(\000)25129 41523 y Fu(1)25626 -41357 y Fn(;)184 b(::;)g Fx(\000)27914 41523 y Fr(n)31 -43349 y Fx(migh)-31 b(t)440 b(b)31 b(e)437 b(used)g(to)h(allo)-31 -b(w)440 b(a)e(list)g(of)g(t)-31 b(yping)440 b(con)-31 -b(texts)438 b(to)h(b)31 b(e)437 b(app)31 b(ended)437 -b(together,)457 b(but)437 b(it)i(is)e(highly)i(am)-31 -b(biguous.)31 44678 y(The)370 b(follo)-31 b(wing)373 -b(restrictions)d(forbid)f(man)-31 b(y)371 b(un)-31 b(w)g(an)g(ted)371 -b(parses)d(that)i(could)g(otherwise)g(o)31 b(ccur.)p -Black 1692 46670 a Ft(\017)p Black 554 w Fx(All)481 b(parses)e(in)h -(whic)-31 b(h)480 b(a)g(non)-31 b(terminal)483 b(deriv)-31 -b(es)479 b(itself)i(without)h(consuming)f(an)-31 b(y)481 -b(input)f(are)g(ignored.)825 b(F)-92 b(or)2799 47999 -y(example,)532 b(in)499 b(the)f(pro)31 b(duction)500 -b(ab)31 b(o)-31 b(v)g(e,)532 b(the)498 b(list)h(could)g(otherwise)g(b) -31 b(e)498 b(of)h(length)g(one)g(so)f(that)i(\000)e(directly)2799 -49327 y(deriv)-31 b(es)510 b(\000)g(giving)j(rise)d(to)h(a)g(v)-61 -b(acuous)510 b(cycle,)547 b(and)511 b(an)g(in\014nite)g(forest)g(of)g -(parse)f(trees.)916 b(This)511 b(restriction)2799 50655 -y(ensures)368 b(that)i(only)g(the)g(tree)f(without)i(the)e(v)-61 -b(acuous)370 b(cycle)f(is)g(considered.)p Black 1692 -52648 a Ft(\017)p Black 554 w Fx(The)487 b(parser)f(for)h(a)g(list)h -(form)f(ignores)g(parses)f(that)i(unnecessarily)f(break)g(up)g(the)g -(list)h(due)e(to)i(\(direct)g(or)2799 53976 y(indirect\))343 -b(self)e(reference.)483 b(F)-92 b(or)340 b(example,)349 -b(\000)21521 54142 y Fu(1)22018 53976 y Fn(;)184 b Fx(\000)23201 -54142 y Fu(2)23698 53976 y Fn(;)g Fx(\000)24881 54142 -y Fu(3)25379 53976 y Fn(;)g Fx(\000)26562 54142 y Fu(4)27400 -53976 y Fx(will)343 b(not)g(parse)e(as)g(a)h(t)-31 b(w)g(o)343 -b(elemen)-31 b(t)343 b(sequence)e(of)h(t)-31 b(w)g(o)2799 -55305 y(elemen)g(t)371 b(sequences)d(\(\000)13035 55471 -y Fu(1)13532 55305 y Fn(;)184 b Fx(\000)14715 55471 y -Fu(2)15212 55305 y Fx(\))p Fn(;)g Fx(\(\000)17255 55471 -y Fu(3)17754 55305 y Fn(;)g Fx(\000)18937 55471 y Fu(4)19434 -55305 y Fx(\))370 b(giv)-31 b(en)370 b(the)f(pro)31 b(duction)371 -b(ab)31 b(o)-31 b(v)g(e.)p Black 1692 57297 a Ft(\017)p -Black 554 w Fx(User)368 b(supplied)i(priorit)-31 b(y)370 -b(annotations)i(in)e(a)p Mahogany 369 w Fs(parsing)p -Black 370 w Fx(section)g(rule)f(out)h(certain)g(trees)f(as)g(follo)-31 -b(ws:)p Black 4044 59290 a Fp({)p Black 554 w Fo(pr)-57 -b(o)g(dname)9971 59560 y Fu(1)p RoyalBlue 10467 59290 -a Fs(<=)p Black 1 w Fo(pr)g(o)g(dname)16366 59560 y Fu(2)16863 -59290 y Fx(:)477 b(P)-31 b(arse)339 b(trees)e(where)i(a)f -Fo(pr)-57 b(o)g(dname)32045 59560 y Fu(1)32880 59290 -y Fx(no)31 b(de)338 b(is)g(a)h(c)-31 b(hild)339 b(of)g(a)g -Fo(pr)-57 b(o)g(dname)47001 59560 y Fu(2)47836 59290 -y Fx(no)31 b(de)5234 60618 y(are)369 b(ignored.)p Black -4044 62611 a Fp({)p Black 554 w Fo(pr)-57 b(o)g(dname)9971 -62881 y Fu(1)p Mahogany 10846 62611 a Fs(right)p Black -380 w Fo(pr)g(o)g(dname)18867 62881 y Fu(2)19364 62611 -y Fx(:)512 b(P)-31 b(arse)379 b(trees)g(where)f(a)i Fo(pr)-57 -b(o)g(dname)34743 62881 y Fu(1)35619 62611 y Fx(no)31 -b(de)379 b(is)g(the)g(leftmost)i(c)-31 b(hild)380 b(of)f(a)5234 -63939 y Fo(pr)-57 b(o)g(dname)9971 64209 y Fu(1)10836 -63939 y Fx(no)31 b(de)370 b(are)f(ignored.)p Black 4044 -65931 a Fp({)p Black 554 w Fo(pr)-57 b(o)g(dname)9971 -66202 y Fu(1)p Mahogany 10836 65931 a Fs(left)p Black -368 w Fo(pr)g(o)g(dname)18265 66202 y Fu(2)18761 65931 -y Fx(:)492 b(P)-31 b(arse)369 b(trees)e(where)h(a)h Fo(pr)-57 -b(o)g(dname)34078 66202 y Fu(2)34942 65931 y Fx(no)31 -b(de)368 b(is)h(the)f(righ)-31 b(tmost)370 b(c)-31 b(hild)370 -b(of)e(a)5234 67260 y Fo(pr)-57 b(o)g(dname)9971 67530 -y Fu(1)10836 67260 y Fx(no)31 b(de)370 b(are)f(ignored.)2799 -69252 y(In)420 b(addition)i(to)f(immediate)i(c)-31 b(hildren,)433 -b(these)420 b(priorit)-31 b(y)422 b(annotations)h(also)e(prohibit)g -(parse)f(trees)f(where)h(the)2799 70581 y(forbidden)379 -b(c)-31 b(hild)380 b(no)31 b(de)379 b(o)31 b(ccurs)378 -b(underneath)i(a)f(c)-31 b(hain)380 b(of)f(deriv)-61 -b(ations)380 b(from)g(the)f(sp)31 b(eci\014ed)379 b(paren)-31 -b(t)379 b(when)g(the)2799 71909 y(c)-31 b(hain)344 b(do)31 -b(es)343 b(not)i(consume)e(an)-31 b(y)345 b(input.)484 -b(Figure)344 b(17)g(demonstrates)h(a)e(t)-31 b(ypical)346 -b(use)d(of)h(a)p Mahogany 344 w Fs(parsing)p Black 344 -w Fx(section;)353 b(the)2799 73237 y(declarations)371 -b(ha)-31 b(v)g(e)370 b(e\013ect)f(as)g(follo)-31 b(ws:)p -Black 24533 77841 a(44)p Black eop end -%%Page: 45 45 -TeXDict begin 45 44 bop Black Black Black 4013 -594 a -Fp({)p Black 554 w Fx(Line)369 b(#1:)493 b Fs(n)582 b(+)f(n)g(+)h(n)369 -b Fx(parses)f(as)h Fs(\(n)582 b(+)f(n\))g(+)h(n)p Fx(,)369 -b(but)h(not)g Fs(n)581 b(+)g(\(n)h(+)f(n\))p Fx(;)p Black -4013 1399 a Fp({)p Black 554 w Fx(Line)369 b(#3:)493 -b Fs(n)582 b(+)f(n)g(-)h(n)369 b Fx(parses)f(as)h Fs(\(n)582 -b(+)f(n\))g(-)h(n)p Fx(,)369 b(but)h(not)g Fs(n)581 b(+)g(\(n)h(-)f -(n\))p Fx(;)p Black 4013 3391 a Fp({)p Black 554 w Fx(Line)369 -b(#9:)493 b Fs(-n)582 b(+)f(n)369 b Fx(parses)g(as)g -Fs(\(-n\))581 b(+)h(n)p Fx(,)369 b(but)h(not)g Fs(-\(n)581 -b(+)h(n\))p Fx(;)p Black 4013 5384 a Fp({)p Black 554 -w Fx(Line)368 b(#15:)494 b Fs(n)581 b(+)g(n)g(n)369 b -Fx(parses)e(as)h Fs(n)581 b(+)h(\(n)f(n\))p Fx(,)369 -b(but)g(not)g Fs(\(n)581 b(+)g(n\))h(n)p Fx(;)369 b Fs(n)581 -b(n)g(+)h(n)368 b Fx(parses)f(as)h Fs(\(n)582 b(n\))f(+)h(n)p -Fx(,)5203 6712 y(but)369 b(not)h Fs(n)581 b(\(n)h(+)f(n\))p -Fx(;)p Black 4013 8705 a Fp({)p Black 554 w Fx(Line)369 -b(#20:)494 b Fs(n,)581 b(n)h(n,)f(n)369 b Fx(parses)f(as)i -Fs(n,)581 b(\(n)g(n\),)h(n)p Fx(,)370 b(but)f(not)h Fs(\(n,)582 -b(n\))f(\(n,)h(n\))p Fx(.)2767 10697 y(Curren)-31 b(tly)-92 -b(,)371 b(the)p Mahogany 369 w Fs(parsing)p Black 370 -w Fx(section)f(supp)31 b(orts)369 b(only)h(these)f(relativ)-31 -b(ely)371 b(lo)-31 b(w)371 b(lev)-31 b(el)371 b(and)e(v)-31 -b(erb)31 b(ose)369 b(declarations.)0 15022 y FC(18)1793 -b(Com)-50 b(bining)598 b(m)-50 b(ultiple)600 b(source)f(\014les)0 -18111 y Fx(Ott)448 b(can)f(b)31 b(e)447 b(in)-31 b(v)g(ok)g(ed)449 -b(with)f(m)-31 b(ultiple)449 b(source)e(\014les.)726 -b(Input)447 b(\014lenames)h(with)g(extensions)g Fs(.tex)p -Fx(,)468 b Fs(.v)p Fx(,)f Fs(.thy)p Fx(,)g Fs(.sml)p -Fx(,)0 19439 y(or)441 b Fs(ml)g Fx(are)f(simply)i(copied)g(in)-31 -b(to)442 b(the)f(relev)-61 b(an)-31 b(t)441 b(output)h(\(L)25053 -19212 y Fu(A)25541 19439 y Fx(T)26155 19677 y(E)26772 -19439 y(X,)459 b(Co)31 b(q,)460 b(Isab)31 b(elle,)459 -b(HOL,)441 b(or)g(OCaml\).)710 b(By)441 b(default)0 20767 -y(the)537 b(source-\014le)f(and)h(command-line)i(order)d(of)h(blo)31 -b(c)-31 b(ks)538 b(is)e(preserv)-31 b(ed,)578 b(for)537 -b(grammar,)580 b(em)-31 b(b)31 b(eds,)579 b(and)536 b(inductiv)-31 -b(e)0 22096 y(de\014nitions.)0 24088 y(The)514 b(pro)-31 -b(v)g(er)514 b(output)g(can)g(b)31 b(e)513 b(split)i(in)-31 -b(to)515 b(m)-31 b(ultiple)516 b(output)f(\014les:)781 -b(eac)-31 b(h)514 b(pro)-31 b(v)g(er)514 b(output)h(\014le)f(sp)31 -b(eci\014ed)513 b(with)i Fs(-o)0 25417 y()416 -b Fx(will)h(con)-31 b(tain)417 b(the)e(material)i(from)e(the)g -(previous)g(input)h(\014les)e(sp)31 b(eci\014ed)415 b(with)h -Fs(-i)f Fx(\(since)g(the)g(last)h Fs(-o)0 26745 y Fx(for)369 -b(the)h(same)f(pro)-31 b(v)g(er\).)0 28738 y(Alternativ)g(ely)-92 -b(,)279 b(one)252 b(can)g(add)g(a)h Fs(-merge)582 b(true)252 -b Fx(command-line)j(option,)277 b(in)253 b(whic)-31 b(h)252 -b(case)g(the)h(pro)31 b(ductions)252 b(of)h(m)-31 b(ultiple)0 -30066 y(grammars)519 b(that)h(share)d(the)i(same)f(header)g(are)g -(merged)h(in)-31 b(to)519 b(a)g(single)g(grammar,)557 -b(and)519 b(the)f(rules)g(of)h(m)-31 b(ultiple)0 31394 -y(inductiv)g(e)504 b(de\014nitions)g(that)f(share)f(the)g(same)h -(header)f(are)g(merged)h(in)-31 b(to)503 b(a)g(single)g(inductiv)-31 -b(e)504 b(de\014nition.)894 b(This)0 32723 y(rudimen)-31 -b(tary)442 b(form)f(of)g(mo)31 b(dularit)-31 b(y)443 -b(can)d(b)31 b(e)440 b(v)-31 b(ery)441 b(useful,)459 -b(either)441 b(to)g(split)g(a)g(language)i(de\014nition)f(in)-31 -b(to)442 b(separate)0 34051 y(features,)504 b(or)477 -b(to)h(de\014ne)e(reusable)h(Ott)h(comp)31 b(onen)-31 -b(ts)478 b(to)f(de\014ne)g(standard)g(form)-31 b(ulae,)506 -b(L)38439 33824 y Fu(A)38927 34051 y Fx(T)39541 34289 -y(E)40157 34051 y(X)477 b(prett)-31 b(y)477 b(prin)-31 -b(ting)479 b(of)0 35379 y(terminals,)601 b(or)553 b(L)7238 -35152 y Fu(A)7726 35379 y Fx(T)8340 35618 y(E)8956 35379 -y(X)g(st)-31 b(yles.)1045 b(F)-92 b(or)552 b(example,)601 -b(Figure)553 b(15)h(sho)-31 b(ws)554 b(the)f(Ott)h(source)f(\014le)g -(for)g(a)h Fs(let)f Fx(feature)h(in)0 36708 y(isolation,)383 -b(tak)-31 b(en)378 b(from)g(our)g(Ott)g(dev)-31 b(elopmen)g(t)380 -b(of)e(some)f(languages)j(from)e(Pierce's)f(T)-92 b(APL)378 -b([Pie02)r(].)518 b(The)378 b(original)0 38036 y(T)-92 -b(APL)429 b(languages)i(w)-31 b(ere)428 b(pro)31 b(duced)428 -b(using)i(Tink)-31 b(erT)g(yp)31 b(e)430 b([LP03)q(])f(to)h(comp)31 -b(ose)429 b(features)g(and)g(c)-31 b(hec)g(k)429 b(for)g(con\015icts.)0 -39364 y(In)347 b Fs(examples/tapl)i Fx(w)-31 b(e)347 -b(build)h(a)g(system,)k(similar)d(to)e(the)h(Tink)-31 -b(erT)g(yp)31 b(e)348 b Fs(sys-fullsimple)p Fx(,)354 -b(from)348 b Fs(ott)g Fx(source)e(\014les)0 40693 y(that)442 -b(corresp)31 b(ond)440 b(roughly)i(to)f(the)g(v)-61 b(arious)441 -b(Tink)-31 b(erT)g(yp)31 b(e)443 b(comp)31 b(onen)-31 -b(ts,)460 b(eac)-31 b(h)441 b(with)h(syn)-31 b(tax)442 -b(and)f(seman)-31 b(tic)443 b(rules)0 42021 y(for)369 -b(a)h(single)g(feature.)0 46346 y FC(19)1793 b(Hom)597 -b(blo)50 b(c)-50 b(ks)0 49435 y Fx(Bindsp)31 b(ecs)366 -b(and)g(homomorphisms)j(for)d(pro)31 b(ductions,)368 -b(and)f(an)-31 b(y)367 b(homomorphisms)h(for)f(de\014nitions,)i(can)d -(app)31 b(ear)367 b(in)0 50763 y(an)308 b(Ott)h(source)f(\014le)g -(either)h(attac)-31 b(hed)310 b(to)f(the)f(pro)31 b(duction)309 -b(or)f(de\014nition,)323 b(as)308 b(w)-31 b(e)308 b(ha)-31 -b(v)g(e)309 b(sho)-31 b(wn)309 b(earlier,)321 b(or)308 -b(in)h(separate)0 52091 y(hom)370 b(blo)31 b(c)-31 b(ks.)493 -b(F)-92 b(or)369 b(example,)i(one)e(can)h(write)p Mahogany -Black Mahogany 0 54084 a Fs(homs)p Black 582 w('t_')p -RoyalBlue 1162 55412 a(::)p Black 582 w(Lam)p RoyalBlue -1162 w(\(+)p Black Mahogany 582 w(bind)p Black 582 w(x)p -Mahogany 581 w(in)p Black 581 w(t)p RoyalBlue 582 w(+\))p -Black Mahogany 0 58069 a(homs)p Black 582 w('t_')p RoyalBlue -1162 59397 a(::)p Black 582 w(Var)p RoyalBlue 2906 w({{)p -Black Mahogany 581 w(com)p Black 582 w(variable)p RoyalBlue -582 w(}})p Black RoyalBlue 1162 60726 a(::)p Black 582 -w(Lam)p RoyalBlue 2906 w({{)p Black Mahogany 581 w(com)p -Black 582 w(abstraction)p RoyalBlue 583 w(}})p Black -RoyalBlue 1162 62054 a(::)p Black 582 w(App)p RoyalBlue -2906 w({{)p Black Mahogany 581 w(com)p Black 582 w(application)p -RoyalBlue 583 w(}})p Black RoyalBlue 1162 63382 a(::)p -Black 582 w(paren)p RoyalBlue 1744 w({{)p Black Mahogany -581 w(ich)p Black RoyalBlue 582 w([[)p Black(t)p RoyalBlue(]])p -Black RoyalBlue 582 w(}})p Black RoyalBlue 1162 64711 -a(::)p Black 582 w(tsub)p RoyalBlue 2325 w({{)p Black -Mahogany 581 w(ich)p Black 582 w(\()581 b(tsubst_t)p -RoyalBlue 583 w([[)p Black(t)p RoyalBlue(]])p Black RoyalBlue -582 w([[)p Black(x)p RoyalBlue(]])p Black RoyalBlue 581 -w([[)p Black(t')p RoyalBlue(]])p Black 582 w(\))p RoyalBlue -582 w(}})p Black Mahogany 0 67367 a(homs)p Black 582 -w('')p RoyalBlue 1162 68696 a(::)p Black 582 w(reduce)p -RoyalBlue 1163 w({{)p Black Mahogany 581 w(com)p Black -RoyalBlue 582 w([[)p Black(t1)p RoyalBlue(]])p Black -582 w(reduces)h(to)p RoyalBlue 582 w([[)p Black(t2)p -RoyalBlue(]])p Black RoyalBlue 582 w(}})p Black 0 70688 -a Fx(Eac)-31 b(h)282 b(of)h(these)e(b)31 b(egins)282 -b(with)h(a)f(pre\014x)f(and)h(then)g(has)f(a)h(sequence)f(of)i(pro)31 -b(duction)282 b(name)g(or)g(de\014nition)h(name)g(k)-31 -b(ernels,)0 72017 y(eac)g(h)370 b(follo)-31 b(w)g(ed)372 -b(b)-31 b(y)369 b(a)h(sequence)e(of)i(bindsp)31 b(ecs)368 -b(and)i(then)f(a)h(sequence)f(of)g(homomorphisms.)p Black -24502 77841 a(45)p Black eop end -%%Page: 46 46 -TeXDict begin 46 45 bop Black Black Black Mahogany Black -Mahogany Black Mahogany 31 6167 a Fs(metavar)p Black -583 w(n)p RoyalBlue 581 w(::=)p Black Mahogany 31 8824 -a(grammar)p Black 31 11480 a(e)p RoyalBlue 582 w(::)p -Black 581 w(e_)p RoyalBlue 582 w(::=)p Black RoyalBlue -31 12809 a(|)p Black 582 w(n)p RoyalBlue 7555 w(::)p -Black RoyalBlue 1744 w(::)p Black 581 w(num)p RoyalBlue -31 14137 a(|)p Black 582 w(-)581 b(e)p RoyalBlue 6393 -w(::)p Black RoyalBlue 1744 w(::)p Black 581 w(neg)p -RoyalBlue 31 15465 a(|)p Black 582 w(e1)g(+)h(e2)p RoyalBlue -4068 w(::)p Black RoyalBlue 1744 w(::)p Black 581 w(add)p -RoyalBlue 31 16794 a(|)p Black 582 w(e1)f(-)h(e2)p RoyalBlue -4068 w(::)p Black RoyalBlue 1744 w(::)p Black 581 w(sub)p -RoyalBlue 31 18122 a(|)p Black 582 w(e1)f(e2)p RoyalBlue -5231 w(::)p Black RoyalBlue 1744 w(::)p Black 581 w(mul)p -RoyalBlue 31 19450 a(|)p Black 582 w(e1)g(/)h(e2)p RoyalBlue -4068 w(::)p Black RoyalBlue 1744 w(::)p Black 581 w(div)p -RoyalBlue 31 20779 a(|)p Black 582 w(e1)f(,)p RoyalBlue -582 w(..)p Black 581 w(,)g(e2)p RoyalBlue 1163 w(::)p -Black RoyalBlue 1744 w(::)p Black 581 w(tup)p RoyalBlue -31 22107 a(|)p Black 582 w(\()g(e)g(\))p RoyalBlue 5231 -w(::)p Black Mahogany 581 w(M)p Black RoyalBlue 582 w(::)p -Black 581 w(par)p RoyalBlue 582 w({{)p Black Mahogany -581 w(icho)p Black RoyalBlue 582 w([[)p Black(e)p RoyalBlue(]])p -Black RoyalBlue 582 w(}})p Black Mahogany 31 24764 a(parsing)p -Black 31 27420 a(e_add)p Mahogany 582 w(left)p Black -582 w(e_add)1744 b(\045)582 b(#1)31 28749 y(e_sub)p Mahogany -582 w(left)p Black 582 w(e_sub)31 30077 y(e_add)p Mahogany -582 w(left)p Black 582 w(e_sub)1744 b(\045)582 b(#3)31 -31406 y(e_sub)p Mahogany 582 w(left)p Black 582 w(e_add)31 -34062 y(e_mul)p Mahogany 582 w(left)p Black 582 w(e_mul)31 -35391 y(e_div)p Mahogany 582 w(left)p Black 582 w(e_div)31 -36719 y(e_mul)p Mahogany 582 w(left)p Black 582 w(e_div)31 -38047 y(e_div)p Mahogany 582 w(left)p Black 582 w(e_mul)31 -40704 y(e_neg)p RoyalBlue 582 w(<=)p Black 582 w(e_add)2906 -b(\045)582 b(#9)31 42032 y(e_neg)p RoyalBlue 582 w(<=)p -Black 582 w(e_sub)31 43361 y(e_neg)p RoyalBlue 582 w(<=)p -Black 582 w(e_mul)31 44689 y(e_neg)p RoyalBlue 582 w(<=)p -Black 582 w(e_div)31 46017 y(e_neg)p RoyalBlue 582 w(<=)p -Black 582 w(e_tup)31 48674 y(e_add)p RoyalBlue 582 w(<=)p -Black 582 w(e_div)31 50002 y(e_add)p RoyalBlue 582 w(<=)p -Black 582 w(e_mul)2906 b(\045)582 b(#15)31 51331 y(e_add)p -RoyalBlue 582 w(<=)p Black 582 w(e_tup)31 52659 y(e_sub)p -RoyalBlue 582 w(<=)p Black 582 w(e_div)31 53987 y(e_sub)p -RoyalBlue 582 w(<=)p Black 582 w(e_mul)31 55316 y(e_sub)p -RoyalBlue 582 w(<=)p Black 582 w(e_tup)31 57973 y(e_mul)p -RoyalBlue 582 w(<=)p Black 582 w(e_tup)2906 b(\045)582 -b(#20)31 59301 y(e_div)p RoyalBlue 582 w(<=)p Black 582 -w(e_tup)p Black 4620 67050 a Fx(Figure)369 b(14:)494 -b(An)369 b(Ott)h(source)e(\014le)i(for)f(basic)h(arithmetic)h(using)f -(the)f(t)-31 b(ypical)371 b(parsing)f(priorities)p Black -Black Black 24533 77841 a(46)p Black eop end -%%Page: 47 47 -TeXDict begin 47 46 bop Black Black Black 0 -1657 50111 -45 v 0 33614 45 35271 v Mahogany Black Mahogany 268 -895 -a Fw(grammar)p Black 268 322 a(t)p RoyalBlue 523 w(::)p -Black 523 w(Tm)p RoyalBlue 523 w(::=)p Black RoyalBlue -20921 w({{)p Black Mahogany 523 w(com)p Black 524 w(terms:)p -RoyalBlue 523 w(}})p Black RoyalBlue 1314 1540 a(|)p -Black 523 w(let)523 b(x)g(=)g(t)g(in)g(t')p RoyalBlue -9938 w(::)p Black RoyalBlue 1569 w(::)p Black 523 w(Let)p -RoyalBlue 523 w(\(+)p Black Mahogany 523 w(bind)p Black -524 w(x)p Mahogany 523 w(in)p Black 523 w(t')p RoyalBlue -523 w(+\))p Black RoyalBlue 2615 w({{)p Black Mahogany -523 w(com)p Black 523 w(let)g(binding)p RoyalBlue 524 -w(}})p Black Mahogany 268 5193 a(defns)p Black 268 6410 -a(Jop)p RoyalBlue 523 w(::)p Black 523 w('')p RoyalBlue -523 w(::=)p Black Mahogany 268 8846 a(defn)p Black 268 -10063 a(t)g(-->)g(t')p RoyalBlue 523 w(::)p Black RoyalBlue -523 w(::)p Black 523 w(red)p RoyalBlue 523 w(::)p Black -523 w(E_)p RoyalBlue 524 w({{)p Black Mahogany 523 w(com)p -Black 523 w(Evaluation)p RoyalBlue 523 w(}})p Black Mahogany -523 w(by)p Black RoyalBlue 268 12499 a(-----------------------------)p -Black 524 w(::)g(LetV)268 13716 y(let)g(x=v1)g(in)g(t2)g(-->)g -([x|->v1]t2)268 16152 y(t1)g(-->)g(t1')p RoyalBlue 268 -17369 a(----------------------------------)p Black 524 -w(::)g(Let)268 18587 y(let)g(x=t1)g(in)g(t2)g(-->)g(let)g(x=t1')h(in)f -(t2)p Mahogany 268 22240 a(defns)p Black 268 23458 a(Jtype)p -RoyalBlue 523 w(::)p Black 523 w('')p RoyalBlue 523 w(::=)p -Black Mahogany 268 25893 a(defn)p Black 268 27111 a(G)g(|-)g(t)g(:)g(T) -p RoyalBlue 523 w(::)p Black RoyalBlue 523 w(::)p Black -523 w(typing)p RoyalBlue 523 w(::)p Black 524 w(T_)p -RoyalBlue 523 w({{)p Black Mahogany 523 w(com)p Black -523 w(Typing)p RoyalBlue 523 w(}})p Black Mahogany 523 -w(by)p Black 268 29546 a(G)g(|-)g(t1:T1)268 30764 y(G,x:T1)g(|-)g -(t2:T2)p RoyalBlue 268 31981 a(------------------------)p -Black 524 w(::)g(Let)268 33199 y(G)g(|-)g(let)g(x=t1)g(in)g(t2)g(:)g -(T2)p 50066 33614 V 0 33658 50111 45 v Black 10488 35645 -a Fx(Figure)369 b(15:)493 b(An)370 b Fs(ott)f Fx(source)g(\014le)g(for) -g(the)h Fs(let)f Fx(fragmen)-31 b(t)371 b(of)f(T)-92 -b(APL)p Black Black 0 39181 a(The)371 b Fs(test10_homs.ott)h -Fx(example,)h(in)d(Fig.)i(16,)g(sho)-31 b(ws)370 b(this.)497 -b(It)371 b(is)f(seman)-31 b(tically)374 b(equiv)-61 b(alen)-31 -b(t)372 b(to)f(the)g Fs(test10.ott)0 40509 y Fx(example)g(of)e(Fig.)h -(8,)g(but)g(the)f(homs)h(ha)-31 b(v)g(e)370 b(b)31 b(een)369 -b(mo)-31 b(v)g(ed)370 b(in)-31 b(to)371 b Fs(hom)e Fx(blo)31 -b(c)-31 b(ks.)0 44834 y FC(20)1793 b(Isab)50 b(elle)598 -b(syn)-50 b(tax)600 b(supp)50 b(ort)0 47923 y Fx(Ott)512 -b(has)f(limited)j(facilities)f(to)f(allo)-31 b(w)514 -b(the)e(Isab)31 b(elle)511 b(mix\014x)i(syn)-31 b(tax)512 -b(supp)31 b(ort)511 b(and)g(xsym)-31 b(b)31 b(ol)513 -b(to)f(b)31 b(e)511 b(used.)918 b(The)0 49251 y(example)371 -b Fs(test10_isasyn.ott)g Fx(sho)-31 b(ws)370 b(this)f(in)h(use.)0 -51244 y(Non-meta)424 b(pro)31 b(ductions)423 b(can)g(b)31 -b(e)421 b(annotated)k(with)p Mahogany 423 w Fs(isasyn)p -Black 423 w Fx(and/or)p Mahogany 424 w Fs(isaprec)p Black -423 w Fx(homomorphisms.)654 b(F)-92 b(or)421 b(example,)0 -52572 y Fs(test10_isasyn.ott)372 b Fx(con)-31 b(tains)370 -b(the)g(pro)31 b(duction)p Black Black RoyalBlue 1162 -54564 a Fs(|)p Black 582 w(t)581 b(t')p RoyalBlue 3487 -w(::)p Black RoyalBlue 582 w(::)p Black 581 w(App)p RoyalBlue -1744 w({{)p Black Mahogany 581 w(isasyn)p Black RoyalBlue -582 w([[)p Black(t)p RoyalBlue(]])p Black(\\)q()p -RoyalBlue([[)p Black(t')p RoyalBlue(]])p Black RoyalBlue -583 w(})q(})p Black RoyalBlue 1162 w({{)p Black Mahogany -582 w(isaprec)p Black 582 w(50)p RoyalBlue 581 w(}})p -Black 0 56557 a Fx(The)444 b(t)-31 b(w)g(o)445 b(homs)f(are)f(used)g -(to)h(output)h(the)e(Isab)31 b(elle)444 b(syn)-31 b(tax)445 -b(annotation)h(in)e(the)g Fs(t_App)g Fx(clause)f(of)h(the)g(datat)-31 -b(yp)31 b(e)0 57885 y(de\014nition)371 b(b)31 b(elo)-31 -b(w.)p Black Black 0 59767 a Fw(t)523 b(=)1569 60985 -y(t_Var)g("termvar")523 62202 y(|)g(t_Lam)g("termvar")h("t")1046 -b(\("\\)523 b(_)g(.)g(_")g(60\))523 63420 y(|)g(t_App)g("t")g -("t")1047 b(\("_\\_")523 b(50\))0 65413 y Fx(De\014nitions)370 -b(can)g(b)31 b(e)368 b(annotated)k(with)p Mahogany 370 -w Fs(isasyn)p Black 370 w Fx(and/or)p Mahogany 370 w -Fs(isaprec)p Black 370 w Fx(homomorphisms)f(similarly)-92 -b(,)371 b(e.g.)g(as)e(b)31 b(elo)-31 b(w.)p Black Black -Mahogany 2325 67405 a Fs(defn)p Black 2325 68734 a(t1)581 -b(-->)h(t2)p RoyalBlue 581 w(::)p Black RoyalBlue 1163 -w(::)p Black 581 w(reduce)p RoyalBlue 582 w(::)p Black -582 w('')p RoyalBlue 581 w({{)p Black Mahogany 582 w(isasyn)p -Black RoyalBlue 582 w([[)p Black(t1)p RoyalBlue(]])p -Black 582 w(--->)p RoyalBlue 581 w([[)p Black(t2)p RoyalBlue(]])p -Black RoyalBlue 582 w(})q(})p Black Mahogany 1162 w(by)p -Black 0 70726 a Fx(This)370 b(generates)f Fs(syntax)h -Fx(and)f Fs(translations)i Fx(blo)31 b(c)-31 b(ks)370 -b(as)f(b)31 b(elo)-31 b(w.)p Black Black 0 72608 a Fw(inductive_set)523 -b(reduce)h(::)f("\(t*t\))g(set")0 73826 y(and)1046 b("reduce'")523 -b(::)h("t)f(=>)g(t)g(=>)1046 b(bool")523 b(\("_)g(--->)g(_")h(50\))p -Black 24502 77841 a Fx(47)p Black eop end -%%Page: 48 48 -TeXDict begin 48 47 bop Black Black Black 31 -1657 50863 -45 v 31 75337 45 76994 v Mahogany Black Mahogany 408 --712 a Fs(metavar)p Black 582 w(termvar)p RoyalBlue 582 -w(,)p Black 582 w(x)p RoyalBlue 581 w(::=)p Black RoyalBlue -1570 617 a({{)p Black Mahogany 582 w(isa)p Black 581 -w(string)p RoyalBlue 582 w(}})p Black RoyalBlue 582 w({{)p -Black Mahogany 581 w(coq)p Black 582 w(nat)p RoyalBlue -581 w(}})p Black RoyalBlue 582 w({{)p Black Mahogany -581 w(coq-equality)p Black RoyalBlue 583 w(}})p Black -RoyalBlue 582 w({{)p Black Mahogany 581 w(hol)p Black -582 w(string)p RoyalBlue 582 w(}})p Black RoyalBlue 581 -w({{)p Black Mahogany 582 w(lex)p Black 581 w(alphanum)p -RoyalBlue 583 w(}})p Black RoyalBlue 1570 1945 a({{)p -Black Mahogany 582 w(tex)p Black 581 w(\\mathit{)p RoyalBlue -1 w([[)p Black(termvar)p RoyalBlue(]])p Black(})p RoyalBlue -583 w(}})p Black RoyalBlue 582 w({{)p Black Mahogany -581 w(com)p Black 1163 w(term)582 b(variable)p RoyalBlue -1163 w(}})p Black Mahogany 408 4602 a(grammar)p Black -1570 5930 a(t)p RoyalBlue 581 w(::)p Black 582 w('t_')p -RoyalBlue 582 w(::=)p Black RoyalBlue 2325 w({{)p Black -Mahogany 581 w(com)p Black 582 w(term)p RoyalBlue 581 -w(})q(})p Black RoyalBlue 2732 7258 a(|)p Black 582 w(x)p -RoyalBlue 11042 w(::)p Black RoyalBlue 1743 w(::)p Black -582 w(Var)p RoyalBlue 2732 8587 a(|)p Black 582 w(\\)f(x)g(.)h(t)p -RoyalBlue 7555 w(::)p Black RoyalBlue 1743 w(::)p Black -582 w(Lam)p RoyalBlue 2732 9915 a(|)p Black 582 w(t)f(t')p -RoyalBlue 9299 w(::)p Black RoyalBlue 1743 w(::)p Black -582 w(App)p RoyalBlue 2732 11244 a(|)p Black 582 w(\()g(t)g(\))p -RoyalBlue 8718 w(::)p Black Mahogany 581 w(S)p Black -RoyalBlue 581 w(::)p Black 582 w(paren)p RoyalBlue 2732 -12572 a(|)p Black 582 w({)g(t)g(/)h(x)f(})g(t')p RoyalBlue -4650 w(::)p Black Mahogany 581 w(M)p Black RoyalBlue -581 w(::)p Black 582 w(tsub)1570 15229 y(v)p RoyalBlue -581 w(::)p Black 582 w('v_')p RoyalBlue 582 w(::=)p Black -RoyalBlue 2325 w({{)p Black Mahogany 581 w(com)p Black -1163 w(value)p RoyalBlue 582 w(}})p Black RoyalBlue 2732 -16557 a(|)p Black 582 w(\\)g(x)g(.)h(t)p RoyalBlue 7555 -w(::)p Black RoyalBlue 1743 w(::)p Black 582 w(Lam)p -Mahogany 1570 19214 a(terminals)p Black RoyalBlue 583 -w(::)p Black 581 w('terminals_')p RoyalBlue 583 w(::=)p -Black RoyalBlue 2732 20542 a(|)p Black 582 w(\\)p RoyalBlue -11042 w(::)p Black RoyalBlue 1743 w(::)p Black 582 w(lambda)p -RoyalBlue 1163 w({{)p Black Mahogany 582 w(tex)p Black -581 w(\\lambda)p RoyalBlue 582 w(})q(})p Black RoyalBlue -2732 21870 a(|)p Black 582 w(-->)p RoyalBlue 9880 w(::)p -Black RoyalBlue 1743 w(::)p Black 582 w(red)p RoyalBlue -2906 w({{)p Black Mahogany 582 w(tex)p Black 581 w(\\longrightarrow)p -RoyalBlue 584 w(}})p Black Mahogany 408 25855 a(homs)p -Black 582 w('t_')p RoyalBlue 1570 27184 a(::)p Black -582 w(Lam)p RoyalBlue 1162 w(\(+)p Black Mahogany 582 -w(bind)p Black 582 w(x)p Mahogany 581 w(in)p Black 581 -w(t)p RoyalBlue 582 w(+\))p Black Mahogany 408 29840 -a(homs)p Black 582 w('t_')p RoyalBlue 1570 31169 a(::)p -Black 582 w(Var)p RoyalBlue 2906 w({{)p Black Mahogany -581 w(com)p Black 582 w(variable)p RoyalBlue 582 w(}})p -Black RoyalBlue 1570 32497 a(::)p Black 582 w(Lam)p RoyalBlue -2906 w({{)p Black Mahogany 581 w(com)p Black 582 w(abstraction)p -RoyalBlue 583 w(}})p Black RoyalBlue 1570 33826 a(::)p -Black 582 w(App)p RoyalBlue 2906 w({{)p Black Mahogany -581 w(com)p Black 582 w(application)p RoyalBlue 583 w(}})p -Black RoyalBlue 1570 35154 a(::)p Black 582 w(paren)p -RoyalBlue 1744 w({{)p Black Mahogany 581 w(ich)p Black -RoyalBlue 582 w([[)p Black(t)p RoyalBlue(]])p Black RoyalBlue -582 w(}})p Black RoyalBlue 1570 36482 a(::)p Black 582 -w(tsub)p RoyalBlue 2325 w({{)p Black Mahogany 581 w(ich)p -Black 582 w(\()f(tsubst_t)p RoyalBlue 582 w([[)p Black(t)p -RoyalBlue(]])p Black RoyalBlue 582 w([[)p Black(x)p RoyalBlue(]])p -Black RoyalBlue 582 w([[)p Black(t')p RoyalBlue(]])p -Black 582 w(\))p RoyalBlue 582 w(}})p Black Mahogany -408 39139 a(homs)p Black 582 w('')p RoyalBlue 1570 40467 -a(::)p Black 582 w(reduce)p RoyalBlue 1163 w({{)p Black -Mahogany 581 w(com)p Black 582 w($)p RoyalBlue([[)p Black(t1)p -RoyalBlue(]])p Black($)h(reduces)g(to)g($)p RoyalBlue([[)p -Black(t2)p RoyalBlue(]])p Black($)p RoyalBlue 582 w(}})p -Black Mahogany 408 44452 a(subrules)p Black 1570 45781 -a(v)p RoyalBlue 581 w(<::)p Black 582 w(t)p Mahogany -408 48437 a(substitutions)p Black Mahogany 1570 49766 -a(single)p Black 582 w(t)g(x)p RoyalBlue 581 w(::)p Black -581 w(tsubst)p Mahogany 408 52422 a(defns)p Black 1570 -53751 a(Jop)p RoyalBlue 582 w(::)p Black 581 w('')p RoyalBlue -582 w(::=)p Black Mahogany 2732 56408 a(defn)p Black -2732 57736 a(t1)g(-->)g(t2)p RoyalBlue 581 w(::)p Black -RoyalBlue 1163 w(::)p Black 581 w(reduce)p RoyalBlue -582 w(::)p Black 581 w('')p Mahogany 582 w(by)p Black -RoyalBlue 2732 61721 a(--------------------------)p Black -1167 w(::)f(ax_app)2732 63049 y(\(\\)q(x.t12\))h(v2)f(-->)1163 -b({v2/x})q(t12)2732 65706 y(t1)582 b(-->)g(t1')p RoyalBlue -2732 67034 a(--------------)p Black 584 w(::)f(ctx_app_fun)2732 -68363 y(t1)h(t)f(-->)h(t1')f(t)2732 71019 y(t1)h(-->)g(t1')p -RoyalBlue 2732 72348 a(--------------)p Black 584 w(::)f(ctx_app_arg) -2732 73676 y(v)h(t1)f(-->)h(v)f(t1')p 50850 75337 V 31 -75381 50863 45 v Black 14401 77355 a Fx(Figure)369 b(16:)494 -b(Hom)370 b(Sections:)493 b Fs(test10)p 30773 77355 349 -45 v 420 w(homs.ott)p Black Black Black 24533 77841 a -Fx(48)p Black eop end -%%Page: 49 49 -TeXDict begin 49 48 bop Black Black 0 -594 a Fw(where)523 -b("\(t1)g(--->)h(t2\))f(==)1046 b(\()523 b(t1)g(,)g(t2)g(\))g(:)g -(reduce")0 1399 y Fx(Sym)-31 b(b)31 b(olic)469 b(terms)f(in)g -(de\014nitions)g(are)g(prin)-31 b(ted)468 b(using)g(an)-31 -b(y)468 b(pro)31 b(duction)468 b(or)g(de\014nition)h(syn)-31 -b(tax.)788 b(This)468 b(\(esp)31 b(ecially)0 2727 y(with)468 -b(xsym)-31 b(b)31 b(ol)467 b(turned)f(on\))i(mak)-31 -b(es)467 b(the)f(curren)-31 b(t)466 b(goal)j(state)e(during)g(Isab)31 -b(elle)466 b(pro)31 b(of)467 b(dev)-31 b(elopmen)g(t)469 -b(m)-31 b(uc)g(h)467 b(more)0 4055 y(readable.)0 6048 -y(F)-92 b(urther,)313 b(there)301 b(is)f(a)h(command)h(line)f(option)h -Fs(-isa_syntax)583 b(true)p Fx(.)470 b(If)300 b(this)h(is)f(set)h(then) -f(the)h(to)31 b(ol)302 b(generates)f(Isab)31 b(elle)0 -7376 y(syn)-31 b(tax)337 b(annotations)i(from)e(the)g(source)e(syn)-31 -b(tax.)483 b(F)-92 b(or)336 b(example,)344 b(the)337 -b(source)e(\014le)i(pro)31 b(duction)337 b(for)f(the)h -Fs(t_Lam)g Fx(clause)0 8705 y(is)p Black Black RoyalBlue -2325 10697 a Fs(|)p Black 581 w(\\)581 b(x)g(.)h(t)p -RoyalBlue 7555 w(::)p Black RoyalBlue 1744 w(::)p Black -581 w(Lam)p RoyalBlue 1744 w({{)p Black Mahogany 581 -w(isaprec)p Black 583 w(60)p RoyalBlue 581 w(}})p Black -0 12690 a Fx(and)369 b(the)h Fs(terminals)g Fx(grammar)h(con)-31 -b(tains)370 b(a)g(mapping)h(from)e Fs(\\)h Fx(to)g Fs(\\)p -Fx(:)p Black Black Mahogany 1162 14682 a Fs(terminals)p -Black RoyalBlue 583 w(::)p Black 581 w('terminals_')p -RoyalBlue 583 w(::=)p Black RoyalBlue 2325 16011 a(|)p -Black 581 w(\\)p RoyalBlue 11042 w(::)p Black RoyalBlue -1744 w(::)p Black 581 w(lambda)p RoyalBlue 1163 w({{)p -Black Mahogany 582 w(tex)p Black 581 w(\\lambda)p RoyalBlue -582 w(})q(})p Black RoyalBlue 1162 w({{)p Black Mahogany -582 w(isa)p Black 581 w(\\)p RoyalBlue 583 w(}})p -Black RoyalBlue 2325 17339 a(|)p Black 581 w(-->)p RoyalBlue -9880 w(::)p Black RoyalBlue 1744 w(::)p Black 581 w(red)p -RoyalBlue 2906 w({{)p Black Mahogany 582 w(tex)p Black -581 w(\\longrightarrow)p RoyalBlue 584 w(}})p Black RoyalBlue -581 w({{)p Black Mahogany 582 w(isa)p Black 581 w(--->)p -RoyalBlue 582 w(}})p Black 0 19331 a Fx(This)269 b(is)g(used)f(\(just)i -(as)f(for)g(L)11533 19105 y Fu(A)12021 19331 y Fx(T)12635 -19570 y(E)13250 19331 y(X)g(homs\))h(to)g(generate)f(the)g -Fs(\("\\)583 b(_)e(.)h(_")f(60\))269 b Fx(in)g(the)h(datat)-31 -b(yp)31 b(e)270 b(de\014nition)0 20660 y(ab)31 b(o)-31 -b(v)g(e.)0 22652 y(This)394 b(functionalit)-31 b(y)398 -b(is)c(limited)j(in)d(v)-61 b(arious)394 b(w)-31 b(a)g(ys:)544 -b(\(1\))395 b(the)g(full)g(range)f(of)h(Isab)31 b(elle)394 -b(precedence)f(and)i(asso)31 b(ciativit)-31 b(y)0 23981 -y(sp)31 b(eci\014cations)265 b(are)e(not)i(supp)31 b(orted;)299 -b(\(2\))264 b(the)g(automatically)269 b(generated)264 -b(syn)-31 b(tax)265 b(annotations)h(are)e(somewhat)h(crude,)0 -25309 y(esp)31 b(ecially)266 b(w.r.t.)f(spacing)h(and)e(paren)-31 -b(thesisation;)302 b(\(3\))265 b(syn)-31 b(tax)266 b(annotation)h(on)d -(meta)i(pro)31 b(ductions)265 b(is)f(not)h(prop)31 b(ertly)0 -26637 y(supp)g(orted;)505 b(and)460 b(\(4\))h(it)g(w)-31 -b(ould)461 b(b)31 b(e)459 b(desirable)h(to)h(ha)-31 b(v)g(e)461 -b(more)f(\014ne-grain)g(con)-31 b(trol)461 b(of)g(whether)f(to)g -(automatically)0 27966 y(generate)370 b(annotations:)495 -b(p)31 b(er-pro)g(duction,)370 b(p)31 b(er-rule,)369 -b(and)g(p)31 b(er-\014le.)0 32291 y FC(21)1793 b(Isab)50 -b(elle)598 b(co)50 b(de)598 b(generation)g(example)0 -35379 y Fx(The)358 b(Isab)31 b(elle/Co)g(q/HOL)361 b(co)31 -b(de)358 b(generation)h(facilities)i(can)d(b)31 b(e)358 -b(sometimes)h(used)f(to)h(generate)f(\(v)-61 b(ariously\))360 -b(OCaml)0 36708 y(and)369 b(SML)g(co)31 b(de)369 b(from)h(the)f(Isab)31 -b(elle/Co)g(q/HOL)372 b(de\014nitions)e(pro)31 b(duced)369 -b(b)-31 b(y)369 b(Ott.)0 38700 y(F)-92 b(or)495 b(example,)530 -b(the)497 b Fs(test10st_codegen.thy)i Fx(\014le)e(uses)e(Isab)31 -b(elle)496 b(co)31 b(de)497 b(generation)h(to)f(pro)31 -b(duce)496 b(SML)f(co)31 b(de)496 b(to)0 40029 y(calculate)371 -b(the)f(p)31 b(ossible)369 b(reductions)h(of)f(terms)h(in)f(the)g -Fs(test10st.ott)i Fx(simply)f(t)-31 b(yp)31 b(ed)370 -b(lam)-31 b(b)31 b(da)371 b(calculus.)p Black Black 0 -42021 a Fs(theory)582 b(test10st_codegen)0 43349 y(imports)g -(test10st_snapshot_out)i(Executable_Set)0 44678 y(begin)0 -47334 y(ML)d("reset)h(Codegen.quiet_mode")0 49991 y(\(*)f(Code)h -(generation)h(for)e(the)h(test10st)g(simply)g(typed)g(lambda)g -(calculus.)h(*\))0 52648 y(constdefs)581 53976 y(ta)f(::)f(t)0 -55305 y("ta)h(==)f(\(t_App)h(\(t_Lam)g(''z'')g(\(t_Var)g(''z''\)\)\))g -(\(t_Lam)g(''y'')g(\(t_Var)g(''y''\)\)")0 56633 y(;)0 -59290 y(code_module)h(Test10st_codegen)g(file)f("test10st_codegen.ml")i -(contains)0 60618 y(\(*is_v)0 61946 y(tsubst_T)0 63275 -y(tsubst_t*\))0 64603 y(reduce_ta)1164 b(=)581 b("\(ta,_\):reduce")0 -68588 y(\(*)g(...to)h(build)g(and)g(demo)g(the)f(resulting)i -(test10st_codegen.ml)h(code...)0 71245 y(Isabelle)e -(test10st_codegen.thy)0 72573 y(...`use')g(that...)p -Black 24502 77841 a Fx(49)p Black eop end -%%Page: 50 50 -TeXDict begin 50 49 bop Black Black 31 -594 a Fs(...in)582 -b(a)g(shell...)31 735 y(isabelle)31 2063 y(use)g -("test10st_codegen.ml";)31 3391 y(open)g(Test10st_codegen;)31 -6048 y(...a)g(test)g(term...)31 7376 y(ta;)31 8705 y(val)g(it)g(=)f -(t_App)h(\(t_Lam)g(\(["z"],)g(t_Var)g(["z"]\),)g(t_Lam)g(\(["y"],)g -(t_Var)g(["y"]\)\))31 11361 y(...a)g(sample)g(reduction...)31 -12690 y(DSeq.hd\(reducep__1)i(ta\);)31 14018 y(val)e(it)g(=)f(t_Lam)h -(\(["y"],)g(t_Var)g(["y"]\))g(:)f(Test10st_codegen.t)31 -16675 y(*\))31 19331 y(end)31 23656 y FC(22)1793 b(Reference:)798 -b(Command-line)599 b(usage)31 26745 y Fx(A)370 b(go)31 -b(o)g(d)370 b(place)g(to)f(get)h(started)g(is)f(one)h(of)f(the)h(test)f -Fs(make)h Fx(targets)g(in)f(the)h Fs(ott)f Fx(directory)-92 -b(,)370 b(e.g.)p Black Black 31 28738 a Fs(test10:)583 -b(tests/test10.ott)6424 30066 y(bin/ott)27896 b(\\)10492 -31394 y(-i)582 b(tests/test10.ott)16855 b(\\)10492 32723 -y(-o)582 b(out.thy)g(-o)f(out.v)h(-o)g(outScript.sml)6975 -b(\\)10492 34051 y(-o)582 b(out.tex)22084 b(\\)10492 -35379 y(-parse)582 b(":t:)1163 b(\(\\z.z)582 b(z\))f(y")13948 -b(\\)6424 36708 y(&&)582 b(\($\(LATEX\))g(out;)g($\(DVIPS\))g(out)g -(-o\))31 38700 y Fx(When)369 b Fs(make)582 b(test10)370 -b Fx(is)f(executed,)h Fs(ott)p Fx(:)p Black 1692 40693 -a Ft(\017)p Black 554 w Fx(reads)f(the)g(source)g(\014le)g -Fs(tests/test10.ott)p Black 1692 42685 a Ft(\017)p Black -554 w Fx(\(if)471 b(one)g(also)g(sp)31 b(eci\014es)470 -b Fs(-show)p 16160 42685 349 45 v 419 w(post)p 18903 -42685 V 419 w(sort)582 b(true)471 b Fx(and)g Fs(-show)p -30182 42685 V 419 w(defns)582 b(true)p Fx(\))471 b(prin)-31 -b(ts)471 b(on)f(standard)h(output)2799 44014 y(v)-61 -b(arious)316 b(diagnostic)h(information,)330 b(including)317 -b(ASCI)31 b(I)316 b(v)-31 b(ersions)315 b(of)h(the)g(grammar)h(and)f -(inductiv)-31 b(e)317 b(de\014nitions.)2799 45342 y(By)353 -b(default)g(these)g(are)f(coloured)h(\(using)h Fs(vt220)f -Fx(con)-31 b(trol)354 b(co)31 b(des\))352 b(with)i(meta)-31 -b(v)-61 b(ariables)355 b(in)e(red,)i(non)-31 b(terminals)2799 -46670 y(in)300 b(y)-31 b(ello)g(w,)316 b(terminals)301 -b(in)f(green,)314 b(and)300 b(ob)61 b(ject)301 b(v)-61 -b(ariables)300 b(in)g(white.)470 b(Scanning)301 b(o)-31 -b(v)g(er)300 b(this)g(output)h(quic)-31 b(kly)301 b(pic)-31 -b(ks)2799 47999 y(up)369 b(some)g(common)i(errors.)p -Black 1692 49991 a Ft(\017)p Black 554 w Fx(parses)277 -b(the)i(sym)-31 b(b)31 b(olic)280 b(term)e Fs(\(\\z.z)582 -b(z\))g(y)278 b Fx(using)g(the)h Fs(t)f Fx(grammar)i(and)e(prin)-31 -b(ts)279 b(the)f(result)h(to)g(standard)f(output)p Black -1692 51984 a Ft(\017)p Black 554 w Fx(generates)369 b(Isab)31 -b(elle)370 b(de\014nitions)g(in)g(the)f(\014le)h Fs(out.thy)p -Black 1692 53976 a Ft(\017)p Black 554 w Fx(generates)f(Co)31 -b(q)370 b(de\014nitions)h(in)e(the)h(\014le)f Fs(out.v)p -Black 1692 55969 a Ft(\017)p Black 554 w Fx(generates)g(HOL)g -(de\014nitions)i(in)e(the)h(\014le)f Fs(outScript.sml)p -Black 1692 57961 a Ft(\017)p Black 554 w Fx(generates)408 -b(a)h(L)8960 57734 y Fu(A)9448 57961 y Fx(T)10062 58200 -y(E)10677 57961 y(X)f(do)31 b(cumen)-31 b(t)410 b(in)e(the)g(\014le)g -Fs(out.tex)p Fx(,)419 b(with)410 b(a)e(standard)h(do)31 -b(cumen)-31 b(t)409 b(pream)-31 b(ble)409 b(to)g(mak)-31 -b(e)409 b(it)2799 59290 y(self-con)-31 b(tained.)31 61282 -y(That)371 b(L)3092 61055 y Fu(A)3580 61282 y Fx(T)4194 -61520 y(E)4810 61282 y(X)e(do)31 b(cumen)-31 b(t)370 -b(is)f(then)h(compiled)g(and)g(con)-31 b(v)g(erted)370 -b(to)g(p)31 b(ostscript.)31 63275 y(F)-92 b(or)369 b(con)-31 -b(v)g(enience,)371 b(input)f(\014les)f(can)g(also)h(b)31 -b(e)369 b(listed)h(at)g(the)g(end)e(of)i(the)g(command)g(line:)p -Black Black 1194 65267 a Fs(ott)581 b([options])i()f(...)g -()31 67260 y Fx(is)370 b(equiv)-61 b(alen)-31 -b(t)371 b(to)p Black Black 1194 69252 a Fs(ott)581 b(-i)h()g -(...)g(-i)f()h([options])31 71245 y Fx(The)358 -b Fs(\045.out)g(Makefile)g Fx(target)h(runs)d Fs(ott)h -Fx(with)i(common)g(defaults)f(on)f(the)h(\014le)f Fs(\045.ott)p -Fx(,)k(so)c(for)g(example)i(executing)31 72573 y Fs(make)582 -b(tests/test10.out)312 b Fx(runs)d Fs(ott)g Fx(on)h Fs -(tests/test10.ott)p Fx(,)325 b(generating)311 b(all)g(outputs.)473 -b(There)310 b(are)f(also)i(targets)p Black 24533 77841 -a(50)p Black eop end -%%Page: 51 51 -TeXDict begin 51 50 bop Black Black 0 -594 a Fs(\045.coq.out)p -Fx(,)764 b Fs(\045.hol.out)p Fx(,)384 b(and)759 b Fs(\045.isa.out)p -Fx(,)384 b(to)d(generate)f(just)g(LaT)-92 b(eX)381 b(and)f(the)g(co)31 -b(de)379 b(for)h(one)g(pro)31 b(of)380 b(assistan)-31 -b(t,)0 735 y(and)738 b Fs(\045.tex.out)p Fx(,)371 b(to)f(generate)g -(just)f(LaT)-92 b(eX.)0 2727 y(The)369 b Fs(ott)h Fx(command-line)i -(options)e(\(with)h(default)g(v)-61 b(alues)369 b(where)g(applicable\)) -j(are)d(sho)-31 b(wn)369 b(b)31 b(elo)-31 b(w.)p Black -Black 0 4720 a Fs(Ott)582 b(version)g(0.28)1744 b(distribution)583 -b(of)e(Mon)h(27)f(Nov)h(2017)g(17:18:55)g(GMT)0 7376 -y(usage:)g(ott)g()g()h(..)e()1162 -8705 y(\(use)h("OCAMLRUNPARAM=p)1165 b(ott)581 b(...")h(to)g(show)f -(the)h(ocamlyacc)g(trace\))1162 10033 y(\(ott)g()h -()f(..)g()2326 b(is)581 b(equivalent)i(to)1743 -11361 y(ott)f(-i)f()i(..)f(-i)f()i(\)) -1162 14018 y(-i)f()12787 b(Input)581 b(file)h(\(can)g(be)f -(used)h(multiple)g(times\))1162 15346 y(-o)g()12787 -b(Output)582 b(file)f(\(can)h(be)f(used)h(multiple)h(times\))1162 -16675 y(-writesys)g()8719 b(Output)582 b(system)g(definition) -1162 18003 y(-readsys)h()9300 b(Input)581 b(system)h -(definition)1162 19331 y(-tex_filter)h()7557 -b(Files)581 b(to)h(TeX)f(filter)1162 20660 y(-coq_filter)i() -7557 b(Files)581 b(to)h(Coq)f(filter)1162 21988 y(-hol_filter)i -()7557 b(Files)581 b(to)h(HOL)f(filter)1162 -23317 y(-lem_filter)i()7557 b(Files)581 b(to)h(HOL)f(filter) -1162 24645 y(-isa_filter)i()7557 b(Files)581 -b(to)h(Isabelle)g(filter)1162 25973 y(-ocaml_filter)h()6395 -b(Files)581 b(to)h(OCaml)g(filter)1162 27302 y(-merge)g()12206 -b(merge)581 b(grammar)i(and)e(definition)i(rules)1162 -28630 y(-parse)f()11625 b(Test)581 b(parse)h(symterm,eg)h -(":nontermroot:)g(term")1162 29958 y(-fast_parse)g()9300 -b(do)581 b(not)h(parse)f(:rulename:)i(pseudoterminals)1162 -31287 y(-signal_parse_errors)h()4070 b(return)582 -b(>0)f(if)g(there)h(are)g(bad)g(defns)1162 32615 y -(-picky_multiple_parses)j()2907 b(Picky)581 b(about)h(multiple)h -(parses)1162 33943 y(-quotient_rules)h()7556 b(Quotient)582 -b(rules,)g(as)f(per)h({{)f(quotient-with)i(ntr)f(}})g(homs)1162 -35272 y(-generate_aux_rules)i()5232 b(Generate)582 -b(auxiliary)g(rules)g(or)g(constructor)g(arguments)h(from)f({{)f(aux)h -(...)f(}})h(homs)1162 36600 y(-aux_style_rules)i()6975 -b(Auxiliary)582 b(rules)g(\(true\))g(vs)f(constructor)i(arguments)g -(\(false\))1162 37928 y(-output_source_locations)i(<0>)4069 -b(Include)582 b(source)g(location)g(info)g(in)f(output)h(\(0=none,)h -(1=drules,)f(2=grammar+drules\))1162 39257 y(-colour)g()12206 -b(Use)581 b(\(vt220\))h(colour)g(for)g(ASCII)g(pretty)g(print)1162 -40585 y(-show_sort)h()9881 b(Show)581 b(ASCII)h(pretty)g(print)g -(of)g(syntax)1162 41913 y(-show_defns)h()9300 -b(Show)581 b(ASCII)h(pretty)g(print)g(defns)1162 43242 -y(-tex_show_meta)i()8137 b(Include)582 b(meta)f(prods)h(and)g -(rules)g(in)f(TeX)h(output)1162 44570 y(-tex_show_categories)i() -4070 b(Signal)582 b(production)g(flags)g(in)g(TeX)f(output)1162 -45898 y(-tex_suppress_category)k(<[]>)4650 b(Suppress)582 -b(productions)h(and)e(rules)h(with)g(this)g(category)g(in)f(TeX)h -(output)1162 47227 y(-tex_suppress_ntr)i(<[]>)7556 b(Suppress)582 -b(nonterminal)h(root)e(in)h(TeX)f(output)1162 48555 y(-tex_colour)i -()9881 b(Colour)582 b(parse)f(errors)h(in)g(TeX)g(output)1162 -49884 y(-tex_wrap)h()11043 b(Wrap)581 b(TeX)h(output)g(in)f -(document)i(pre/postamble)1162 51212 y(-tex_name_prefix)h()5813 -b(Prefix)582 b(for)f(tex)h(commands)g(\(default)g("ott"\))1162 -52540 y(-isabelle_primrec)i()6394 b(Use)581 b("primrec")i -(instead)f(of)f("fun")22665 53869 y(for)g(functions)1162 -55197 y(-isabelle_inductive)j()5232 b(Use)581 b("inductive")i -(instead)f(of)g("inductive_set")22665 56525 y(for)f(relations)1162 -57854 y(-isa_syntax)i()9300 b(Use)581 b(fancy)h(syntax)g(in)f -(Isabelle)i(output)1162 59182 y(-isa_generate_lemmas)h()4070 -b(Lemmas)582 b(for)f(collapsed)i(functions)f(in)g(Isabelle)1162 -60510 y(-coq_avoid)h(<1>)12205 b(coq)581 b(type-name)i(avoidance)22665 -61839 y(\(0=nothing,)g(1=avoid,)f(2=secondaryify\))1162 -63167 y(-coq_expand_list_types)j()3488 b(Expand)582 -b(list)f(types)h(in)g(Coq)f(output)1162 64495 y(-coq_lngen)i() -9881 b(lngen)581 b(compatibility)1162 65824 y(-coq_names_in_rules)j -()5232 b(Copy)581 b(user)h(names)g(in)f(rule)h(definitions)1162 -67152 y(-coq_use_filter_fn)i()5232 b(Use)581 b(list_filter)i -(instead)f(of)g(list_minus2)g(in)g(substitutions)1162 -68480 y(-ocaml_include_terminals)j()1745 b(Include)582 -b(terminals)g(in)g(OCaml)g(output)g(\(experimental!\))1162 -69809 y(-pp_grammar)13950 b(\(debug\))582 b(print)g(term)f(grammar)1162 -71137 y(-dot)h()11625 b(\(debug\))582 b(dot)f(graph)h(of)g -(syntax)g(dependencies)1162 72466 y(-alltt)g()10463 -b(\(debug\))582 b(alltt)g(output)g(of)f(single)h(source)g(file)1162 -73794 y(-sort)g()13368 b(\(debug\))582 b(do)f(topological)i(sort) -p Black 24502 77841 a Fx(51)p Black eop end -%%Page: 52 52 -TeXDict begin 52 51 bop Black Black Black 31 -1657 50111 -45 v 31 11856 45 13513 v 880 -472 a Fh(symterm)80 b Fg(;)512 -b Fh(st)436 b FA(::=)1904 746 y Ff(j)683 b Fh(stnb)1904 -1963 y Ff(j)g Fh(nonterm)880 3811 y(symterm)p 4848 3811 -308 45 v 449 w(no)-52 b(de)p 7333 3811 V 443 w(b)g(o)g(dy)88 -b Fg(;)512 b Fh(stnb)405 b FA(::=)1904 5028 y Ff(j)683 -b Fh(pr)-52 b(o)g(dname)75 b FA(\()p Fh(ste)8872 5139 -y Fy(1)9334 5028 y Fg(;)342 b(::)171 b(;)g Fh(ste)12382 -5139 y Fd(m)13130 5028 y FA(\))880 6876 y Fh(symterm)p -4848 6876 V 449 w(element)96 b Fg(;)512 b Fh(ste)417 -b FA(::=)1904 8094 y Ff(j)683 b Fh(st)1904 9311 y Ff(j)g -Fh(metavar)1904 10529 y Ff(j)g Fh(var)392 b FA(:)285 -b Fh(mvr)p 50097 11856 45 13513 v 31 11900 50111 45 v -Black 14477 13887 a Fx(Figure)369 b(17:)493 b(Mini-Ott)371 -b(in)e(Ott:)494 b(sym)-31 b(b)31 b(olic)370 b(terms)p -Black Black 1194 17423 a Fs(-process_defns)583 b()8137 -b(\(debug\))582 b(process)g(inductive)h(reln)f(definitions)1194 -18751 y(-showraw)g()11043 b(\(debug\))582 b(show)g(raw)g -(grammar)1194 20080 y(-ugly)g()12786 b(\(debug\))582 -b(use)g(ugly)g(ASCII)f(output)1194 21408 y(-no_rbcatn)h()10462 -b(\(debug\))582 b(remove)g(relevant)h(bind)e(clauses)1194 -22737 y(-lem_debug)14530 b(\(debug\))582 b(print)g(lem)g(debug)g -(locations)1194 24065 y(-help)17435 b(Display)582 b(this)g(list)g(of)f -(options)1194 25393 y(--help)16854 b(Display)582 b(this)g(list)g(of)f -(options)31 29718 y FC(23)1793 b(Reference:)798 b(The)599 -b(language)e(of)g(sym)-50 b(b)50 b(olic)600 b(terms)31 -32807 y Fx(A)449 b(syn)-31 b(tax)449 b(de\014nition)h(conceptually)g -(de\014nes)e(t)-31 b(w)g(o)450 b(di\013eren)-31 b(t)448 -b(languages:)653 b(that)449 b(of)g(concrete)g(terms)f(of)h(the)f(ob)61 -b(ject)31 34135 y(language,)401 b(and)393 b(that)h(of)e(sym)-31 -b(b)31 b(olic)394 b(terms)f(o)-31 b(v)g(er)393 b(the)f(ob)61 -b(ject)394 b(language.)565 b(The)392 b(former)h(includes)f(concrete)h -(v)-61 b(ariables)31 35463 y(\(if)406 b(non)-31 b(trivial)407 -b Fs(lex)d Fx(homs)h(ha)-31 b(v)g(e)405 b(b)31 b(een)403 -b(sp)31 b(eci\014ed)404 b(for)h(meta)-31 b(v)-61 b(ariables\).)600 -b(The)404 b(latter)i(includes)e(the)h(former)f(but)h(also)31 -36792 y(allo)-31 b(ws)339 b(sym)-31 b(b)31 b(olic)338 -b(meta)-31 b(v)-61 b(ariables)339 b(and)e(non)-31 b(terminals.)484 -b(Sym)-31 b(b)31 b(olic)339 b(terms)d(ma)-31 b(y)338 -b(also)g(include)f(the)g(pro)31 b(duction-name)31 38120 -y(annotations)293 b(men)-31 b(tioned)292 b(in)e Ft(x)p -Fx(3.)467 b(F)-92 b(or)289 b(a)h(syn)-31 b(tax)291 b(de\014nition)g -(with)g(list)g(forms)f(\(c.f.)i Ft(x)p Fx(12\))f(sym)-31 -b(b)31 b(olic)291 b(terms)f(also)h(include)31 39449 y(v)-61 -b(arious)405 b(list)f(constructs.)597 b(A)404 b(simpli\014ed)h -(abstract)g(syn)-31 b(tax)405 b(of)f(sym)-31 b(b)31 b(olic)406 -b(terms)d(is)h(sho)-31 b(wn)405 b(in)f(Figure)g(17,)413 -b(omitting)31 40777 y(list)371 b(forms.)492 b(In)369 -b(this)h(section)g(w)-31 b(e)369 b(giv)-31 b(e)371 b(an)e(informal)i -(de\014nition)g(of)f(the)f(full)i(concrete)e(syn)-31 -b(tax)370 b(of)g(sym)-31 b(b)31 b(olic)371 b(terms.)31 -42769 y(The)415 b(premises)e(and)h(conclusions)h(of)g(inductiv)-31 -b(e)415 b(de\014nition)h(rules)d(are)h(sym)-31 b(b)31 -b(olic)416 b(terms.)1253 b(The)414 b(language)i(of)e(sym-)31 -44098 y(b)31 b(olic)393 b(terms)f(is)g(de\014ned)f(informally)k(b)31 -b(elo)-31 b(w,)399 b(with)393 b(in)-31 b(terpretation)394 -b(functions)f([)-184 b([)p 34499 44098 333 45 v 399 w(])g(])392 -b(that)i(map)e(de\014ned)g(en)-31 b(tities)393 b(in)-31 -b(to)31 45426 y(grammar)371 b(clauses.)31 47419 y(F)-92 -b(or)369 b(a)g(rule)g Fo(rule)575 b Fx(=)11818 48747 -y Fo(nontermr)-57 b(o)g(ot)17835 48913 y Fu(1)18516 48747 -y Fn(;)370 b(::)184 b(;)371 b Fo(nontermr)-57 b(o)g(ot)26686 -48913 y Fr(n)27289 48747 y Fs(::)185 b('')f(::=)h Fo(pr)-57 -b(o)g(d)33961 48913 y Fu(1)34642 48747 y Fn(::)184 b -Fo(pr)-57 b(o)g(d)37491 48913 y Fi(m)31 50740 y Fx(w)-31 -b(e)370 b(ha)-31 b(v)g(e)16295 51780 y([)-184 b([)p Fo(rule)83 -b Fx(])-184 b(])1108 b(::=)20783 53108 y Ft(j)1692 b -Fo(nontermr)-57 b(o)g(ot)105 b Fx(su\016x)1107 b(\(1\))20783 -54437 y Ft(j)1692 b Fx([)-184 b([)p Fo(pr)-57 b(o)g(d)25263 -54603 y Fu(1)25760 54437 y Fx(])-184 b(])20783 55765 -y Ft(j)1692 b Fn(::)20783 57093 y Ft(j)g Fx([)-184 b([)p -Fo(pr)-57 b(o)g(d)25263 57259 y Fi(m)26125 57093 y Fx(])-184 -b(])31 59761 y(\(1\))347 b(for)f(eac)-31 b(h)346 b Fo(nontermr)-57 -b(o)g(ot)450 b Fx(in)346 b(the)g(set)f Ft(f)p Fo(nontermr)-57 -b(o)g(ot)23717 59927 y Fu(1)24398 59761 y Fn(;)369 b(::)184 -b(;)371 b Fo(nontermr)-57 b(o)g(ot)32568 59927 y Fr(n)33170 -59761 y Ft(g)346 b Fx(and)g(for)f(eac)-31 b(h)346 b Fo(nontermr)-57 -b(o)g(ot)451 b Fx(de\014ned)31 61090 y(b)-31 b(y)370 -b(an)-31 b(y)370 b Fo(rule)5596 60595 y Fl(0)6276 61090 -y Fx(whic)-31 b(h)370 b(is)f(declared)g(as)g(a)h(subrule)e(of)i(this)g -(rule.)31 63082 y(F)-92 b(or)369 b(a)g(pro)31 b(duction)370 -b Fo(pr)-57 b(o)g(d)607 b Fx(=)16019 64410 y Fs(|)185 -b Fo(element)20490 64576 y Fu(1)21172 64410 y Fn(::)f -Fo(element)25675 64576 y Fi(m)26724 64410 y Fs(::)h(::)f -Fo(pr)-57 b(o)g(dname)31 66403 y Fx(w)-31 b(e)370 b(ha)-31 -b(v)g(e)12948 67444 y([)-184 b([)p Fo(pr)-57 b(o)g(d)115 -b Fx(])-184 b(])1108 b(::=)17666 68772 y Ft(j)1692 b -Fx([)-184 b([)p Fo(element)23800 68938 y Fu(1)24298 68772 -y Fx(])g(])184 b Fn(::)g Fx([)-184 b([)p Fo(element)29845 -68938 y Fi(m)30711 68772 y Fx(])g(])17666 70100 y Ft(j)1692 -b Fs(:)p Fo(pr)-57 b(o)g(dname)83 b Fs(:)185 b Fx([)-184 -b([)p Fo(element)29883 70266 y Fu(1)30381 70100 y Fx(])g(])184 -b Fn(::)g Fx([)-184 b([)p Fo(element)35928 70266 y Fi(m)36794 -70100 y Fx(])g(])31 72707 y(F)-92 b(or)369 b(an)g(elemen)-31 -b(t)371 b(there)e(are)g(v)-61 b(arious)369 b(cases.)p -Black 24533 77841 a(52)p Black eop end -%%Page: 53 53 -TeXDict begin 53 52 bop Black Black Black 1353 -594 a -Fx(1.)p Black 554 w(F)-92 b(or)369 b(a)g(terminal)i Fo(terminal)19990 -724 y Fx([)-184 b([)p Fo(terminal)115 b Fx(])-184 b(])1107 -b(::=)h Fo(terminal)p Black 1353 3246 a Fx(2.)p Black -554 w(F)-92 b(or)369 b(a)g(non)-31 b(terminal)372 b Fo(nontermr)-57 -b(o)g(ot)290 b(su\016x)18329 5429 y Fx([)-184 b([)p Fo(nontermr)-57 -b(o)g(ot)291 b(su\016x)132 b Fx(])-184 b(])1107 b(::=)h([)-184 -b([)p Fo(rule)84 b Fx(])-184 b(])2767 7634 y(where)355 -b Fo(rule)437 b Fx(includes)355 b Fo(nontermr)-57 b(o)g(ot)460 -b Fx(among)357 b(the)d(non)-31 b(terminal)358 b(ro)31 -b(ots)354 b(it)i(de\014nes.)487 b(\(Note)356 b(that)g(this)f(do)31 -b(es)354 b(not)2767 8963 y(dep)31 b(end)369 b(on)g(what)i -Fo(su\016x)501 b Fx(w)-31 b(as)370 b(used)f(in)g(the)h(grammar,)h(and)e -(similarly)i(for)f(the)f Fo(metavar)488 b Fx(case)369 -b(b)31 b(elo)-31 b(w.\))p Black 1353 10955 a(3.)p Black -554 w(F)-92 b(or)369 b(an)g(index)h(v)-61 b(ariable)370 -b Fo(indexvarr)-57 b(o)g(ot)17958 13138 y Fx([)-184 b([)p -Fo(indexvarr)-57 b(o)g(ot)106 b Fx(])-184 b(])1107 b(::=)h -Fo(indexvarr)-57 b(o)g(ot)34609 12643 y Fl(0)2767 15343 -y Fx(for)370 b(eac)-31 b(h)369 b Fo(indexvarr)-57 b(o)g(ot)13002 -14848 y Fl(0)13682 15343 y Fx(de\014ned)369 b(b)-31 b(y)369 -b(the)h Fs(indexvar)g Fx(de\014nition)h(that)f(de\014nes)f -Fo(indexvarr)-57 b(o)g(ot)104 b Fx(.)p Black 1353 17336 -a(4.)p Black 554 w(F)-92 b(or)369 b(a)g(meta)-31 b(v)-61 -b(ariable)372 b Fo(metavarr)-57 b(o)g(ot)289 b(su\016x)14194 -19457 y Fx([)-184 b([)p Fo(metavarr)-57 b(o)g(ot)289 -b(su\016x)133 b Fx(])-184 b(])1107 b(::=)25447 20786 -y Ft(j)1692 b Fo(metavarr)-57 b(o)g(ot)33294 20378 y -Fl(0)33604 20786 y Fx(su\016x)1108 b(\(1\))25447 22114 -y Ft(j)1692 b Fo(variable)2767 24326 y Fx(\(1\))433 b(for)f(eac)-31 -b(h)432 b Fo(metavarr)-57 b(o)g(ot)14771 23919 y Fl(0)15513 -24326 y Fx(de\014ned)432 b(b)-31 b(y)432 b(the)g Fs(metavar)g -Fx(de\014nition)h(that)g(de\014nes)f Fo(metavarr)-57 -b(o)g(ot)104 b Fx(.)680 b(\(2\))433 b(where)2767 25655 -y Fo(variable)403 b Fx(ranges)318 b(o)-31 b(v)g(er)320 -b(all)g(the)f(strings)g(de\014ned)g(b)-31 b(y)319 b(the)g -Fs(lex)h Fx(regexp)f(of)g(the)g Fs(metavar)h Fx(de\014nition)h(that)f -(de\014nes)2767 26983 y Fo(metavarr)-57 b(o)g(ot)105 -b Fx(,)339 b(except)332 b(for)f(an)-31 b(y)332 b(string)f(whic)-31 -b(h)333 b(can)e(b)31 b(e)331 b(parsed)f(as)h(a)h(non)-31 -b(terminal,)341 b(meta)-31 b(v)-61 b(ariable)334 b(or)d(terminal)2767 -28311 y(of)370 b(the)g(syn)-31 b(tax)370 b(de\014nition.)p -Black 1353 30304 a(5.)p Black 554 w(A)g(list)g(form)f(elemen)-31 -b(t)371 b Fo(element)475 b Fx(could)370 b(b)31 b(e)368 -b(an)-31 b(y)370 b(of)g(the)g(follo)-31 b(wing,)373 b(either)c(without) -j(a)d(separating)i(terminal:)10905 32425 y Fo(element)14715 -32591 y Fu(1)15212 32425 y Fn(::)p Fo(element)19638 32591 -y Fr(n)20425 32425 y Fo(dots)274 b(element)26463 31930 -y Fl(0)26463 32699 y Fu(1)26960 32425 y Fn(::)p Fo(element)31385 -31930 y Fl(0)31385 32699 y Fr(n)10905 33754 y Fs()10905 35082 y()10905 -36410 y()10905 37739 y()2767 39882 y Fx(or)369 -b(with)i(a)e(separating)i(terminal:)8052 42004 y Fo(element)11863 -42170 y Fu(1)12360 42004 y Fn(::)p Fo(element)16785 42170 -y Fr(n)17572 42004 y Fo(terminal)300 b(dots)274 b(terminal)299 -b(element)32327 41509 y Fl(0)32327 42277 y Fu(1)32824 -42004 y Fn(::)p Fo(element)37250 41509 y Fl(0)37250 42277 -y Fr(n)8052 43332 y Fs()8052 44660 y()8052 45989 y()8052 47317 y()2767 49522 y Fx(In)339 b(an)-31 b(y)339 -b(of)g(these)f(cases)h(the)f(in)-31 b(terpretation)341 -b([)-184 b([)p Fo(element)107 b Fx(])-184 b(])339 b(is)f(the)h(lists)g -(\(separated)h(b)-31 b(y)338 b(the)h Fo(terminal)453 -b Fx(if)340 b(one)e(w)-31 b(as)2767 50851 y(sp)31 b(eci\014ed\))370 -b(of)f(concrete)h(list)g(en)-31 b(tries)369 b(and)h(of)f(list)h(forms.) -493 b(Without)371 b(a)e(separating)i Fo(terminal)115 -b Fx(,)369 b(this)h(is:)3321 53033 y([)-184 b([)p Fo(element)106 -b Fx(])-184 b(])5255 b(::=)1108 b(\(concrete)p 20326 -53033 333 45 v 400 w(list)p 22207 53033 V 399 w(en)-31 -b(try)16 b Ft(j)p Fx(list)p 26934 53033 V 400 w(form)q(\))29946 -52632 y Fl(\003)51425 53033 y Fx(\(2\))p Fn(;)184 b Fx(\(3\))3321 -55690 y(concrete)p 7387 55690 V 399 w(list)p 9267 55690 -V 399 w(en)-31 b(try)1123 b(::=)1108 b([)-184 b([)p Fo(element)20071 -55856 y Fu(1)20568 55690 y Fx(])g(])184 b Fn(::)g Fx([)-184 -b([)p Fo(element)26224 55856 y Fr(n)26826 55690 y Fx(])g(])3321 -58347 y(list)p 4868 58347 V 399 w(form)5799 b(::=)13831 -59675 y Ft(j)1692 b Fx([)-184 b([)p Fo(element)20071 -59841 y Fu(1)20568 59675 y Fx(])g(])184 b Fn(::)g Fx([)-184 -b([)p Fo(element)26224 59841 y Fr(n)26826 59675 y Fx(])g(])184 -b Fo(dots)29484 59180 y Fl(0)29979 59675 y Fx([)-184 -b([)p Fo(element)34221 59180 y Fl(0)34221 59949 y Fu(1)34717 -59675 y Fx(])g(])184 b Fn(::)g Fx([)-184 b([)p Fo(element)40373 -59180 y Fl(0)40373 59949 y Fr(n)40975 59675 y Fx(])g(])10020 -b(\(1\))13831 61004 y Ft(j)1692 b Fs()13831 62332 y Ft(j)1692 b -Fs()13831 63660 y Ft(j)1692 -b Fs()13831 64989 y Ft(j)1692 b Fs()2767 67289 y Fx(This)446 b(is)g(sub)61 -b(ject)446 b(to)g(constrain)-31 b(ts:)647 b(\(1\))447 -b(that)g([)-184 b([)p Fo(element)26718 67455 y Fu(1)27215 -67289 y Fx(])g(])184 b Fn(::)g Fx([)-184 b([)p Fo(element)32870 -67455 y Fr(n)33473 67289 y Fx(])g(])446 b(and)g([)-184 -b([)p Fo(element)40819 66794 y Fl(0)40819 67563 y Fu(1)41316 -67289 y Fx(])g(])184 b Fn(::)g Fx([)-184 b([)p Fo(element)46971 -66794 y Fl(0)46971 67563 y Fr(n)47574 67289 y Fx(])g(])446 -b(can)2767 68617 y(b)31 b(e)366 b(an)-31 b(ti-uni\014ed)369 -b(with)e(exactly)i(one)d(v)-61 b(arying)368 b(index;)g(\(2\))g(if)f -(the)f(list)i(has)e(only)i(concrete)e(en)-31 b(tries)367 -b(\(i.e.,)i(no)e(list)2767 69946 y(forms\),)k(its)e(length)i(m)-31 -b(ust)370 b(meet)f(the)h(constrain)-31 b(t)371 b(of)e(an)-31 -b(y)370 b(dots)g(in)f(the)h Fo(element)106 b Fx(.)2767 -71938 y(With)370 b(a)g(separating)g Fo(terminal)115 b -Fx(,)369 b(w)-31 b(e)370 b(ha)-31 b(v)g(e:)4991 74121 -y([)-184 b([)p Fo(element)107 b Fx(])-184 b(])1107 b(::=)h -Fn(\017)p Ft(j)p Fx(\(concrete)p 18605 74121 V 400 w(list)p -20486 74121 V 400 w(en)-31 b(try)16 b Ft(j)p Fx(list)p -25214 74121 V 400 w(form)q(\)\()p Fo(terminal)116 b Fx(\(concrete)p -37327 74121 V 399 w(list)p 39207 74121 V 400 w(en)-31 -b(try)15 b Ft(j)p Fx(list)p 43934 74121 V 401 w(form\)\))47376 -73719 y Fl(\003)p Black 24502 77841 a Fx(53)p Black eop -end -%%Page: 54 54 -TeXDict begin 54 53 bop Black Black 31 -594 a Fx(In)369 -b(the)h(ab)31 b(o)-31 b(v)g(e)11246 447 y(dots)4181 b(::=)1108 -b Fs(..)p Ft(j)p Fs(...)q Ft(j)p Fs(....)11246 1775 y -Fx(n)-31 b(um)g(b)31 b(er)2554 b(::=)1108 b Fs(0)p Ft(j)p -Fs(1)11246 3103 y Fx(su\016x)3658 b(::=)1108 b(su\016x)p -22669 3103 333 45 v 399 w(item)25154 2608 y Fl(\003)11246 -4432 y Fx(su\016x)p 13870 4432 V 398 w(item)h(::=)18046 -5760 y Ft(j)1692 b Fx(\()p Fs(0)p Ft(j)p Fs(1)q Ft(j)p -Fs(2)q Ft(j)p Fs(3)p Ft(j)p Fs(4)q Ft(j)p Fs(5)q Ft(j)p -Fs(6)p Ft(j)p Fs(7)q Ft(j)p Fs(8)p Ft(j)p Fs(9)q Fx(\))29484 -5358 y Fu(+)31326 5760 y Fx(\(longest)371 b(matc)-31 -b(h\))18046 7088 y Ft(j)p 20114 7088 349 45 v 18046 8417 -a(j)1692 b Fs(')18046 9745 y Ft(j)g Fo(indexvar)18046 -11074 y Ft(j)g Fo(indexvar)119 b Fs(-1)31 13741 y Fx(F)-92 -b(urther,)313 b(whitespace)300 b(\()p Fs(')582 b -('|'\\010'|'\\009'|'\\013'|'\\012')p Fx(\))304 b(is)298 -b(allo)-31 b(w)g(ed)302 b(b)31 b(efore)299 b(an)-31 b(y)300 -b(tok)-31 b(en)300 b(except)g(a)f(those)g(in)31 15070 -y(a)343 b(su\016x,)348 b(and)342 b(non)-31 b(terminals,)350 -b(meta)-31 b(v)-61 b(ariables,)350 b(index)342 b(v)-61 -b(ariables,)348 b(and)343 b(terminals)g(that)g(end)e(with)j(an)e -(alphan)-31 b(umeric)31 16398 y(c)g(haracter,)371 b(m)-31 -b(ust)370 b(not)f(b)31 b(e)369 b(follo)-31 b(w)g(ed)372 -b(b)-31 b(y)370 b(an)f(alphan)-31 b(umeric)371 b(c)-31 -b(haracter.)31 18391 y(The)473 b(to)31 b(ol)475 b(also)e(builds)g(a)g -(parser)f(for)h(concrete)g(terms,)499 b(with)474 b(fak)-31 -b(e)474 b(non)-31 b(terminal)475 b(ro)31 b(ots)473 b -Fs(concrete)p 43657 18391 V 419 w(ntr)g Fx(for)g(eac)-31 -b(h)31 19719 y(primary)536 b Fs(ntr)520 b Fx(of)h(the)f(syn)-31 -b(tax)520 b(de\014nition.)947 b(One)519 b(can)h(switc)-31 -b(h)521 b(to)f(concrete-term)h(parsing)f(with)h(a)f Fs(:concrete:)31 -21047 y Fx(annotation,)373 b(as)c(in)h(the)f(example)p -Black Black 31 22929 a Fw(\\[)524 b([[)f(:concrete:)g(\\Z1<:Top.)g -(\\x:Z1.x)h(]]\\])31 24922 y Fx(sho)-31 b(wn)499 b(in)g(Figure)f(10.) -880 b(Belo)-31 b(w)499 b(suc)-31 b(h)498 b(an)g(annotation,)534 -b(only)499 b(concrete)g(terms)f(are)g(p)31 b(ermitted,)531 -b(with)500 b(no)e(further)31 26250 y(annotation,)373 -b(no)d(sym)-31 b(b)31 b(olic)370 b(non)-31 b(terminals)372 -b(or)d(meta)-31 b(v)-61 b(ariables,)372 b(no)d(list)h(dot)g(forms)g(or) -f(comprehensions,)h(etc.)31 28242 y(P)-31 b(arsing)395 -b(of)f(terms)f(is)h(done)f(with)i(a)f(scannerless)e(GLR)h(parser)f(o) --31 b(v)g(er)394 b(c)-31 b(haracter-list)395 b(inputs.)566 -b(The)394 b(parser)e(searc)-31 b(hes)31 29571 y(for)329 -b(all)h(parses)e(of)i(the)f(input.)480 b(If)328 b(none)h(are)g(found,) -338 b(the)329 b(ASCI)31 b(I)328 b(and)h(T)-92 b(eX)329 -b(output)h(are)f(annotated)i Fs(no)581 b(parses)p Fx(,)338 -b(with)31 30899 y(a)411 b(cop)-31 b(y)411 b(of)g(the)f(input)h(with)g -Fs(***)g Fx(inserted)f(at)h(the)f(p)31 b(oin)-31 b(t)411 -b(where)f(the)h(last)g(tok)-31 b(en)411 b(w)-31 b(as)411 -b(read.)616 b(This)410 b(is)g(often)h(at)g(the)31 32228 -y(p)31 b(oin)-31 b(t)391 b(of)e(the)g(error)f(\(though)i(if,)395 -b(for)389 b(example,)396 b(a)389 b(putativ)-31 b(e)391 -b(dot)e(form)h(is)e(read)h(but)g(the)g(t)-31 b(w)g(o)391 -b(elemen)-31 b(t)390 b(lists)f(cannot)31 33556 y(b)31 -b(e)408 b(an)-31 b(ti-uni\014ed,)421 b(it)409 b(will)i(b)31 -b(e)407 b(after)i(the)g(p)31 b(oin)-31 b(t)410 b(of)f(the)g(error\).) -609 b(If)409 b(m)-31 b(ultiple)411 b(parses)c(are)h(found,)420 -b(the)408 b(T)-92 b(eX)409 b(output)h(is)31 34884 y(annotated)370 -b Fs(multiple)582 b(parses)369 b Fx(and)e(the)h(di\013eren)-31 -b(t)368 b(parses)e(are)i(output)g(to)g(the)g(console)g(in)g(detail)h -(during)f(the)g(Ott)31 36213 y(run.)31 38205 y(The)258 -b(GLR)e(parser)g(ac)-31 b(hiev)g(es)258 b(reasonable)g(p)31 -b(erformance)257 b(on)h(the)f(small)i(sym)-31 b(b)31 -b(olic)258 b(terms)f(that)h(are)f(t)-31 b(ypical)260 -b(in)d(seman)-31 b(tic)31 39533 y(rules.)493 b(Its)368 -b(p)31 b(erformance)370 b(on)f(large)h(\(whole-program)i(size\))e -(examples)g(is)f(un)-31 b(tested.)31 43858 y FC(24)1793 -b(Reference:)798 b(Generation)599 b(of)e(pro)50 b(of)598 -b(assistan)-50 b(t)599 b(de\014nitions)31 46947 y Fx(This)308 -b(section)h(brie\015y)f(summarises)f(the)h(steps)f(in)-31 -b(v)g(olv)g(ed)310 b(in)e(the)g(generation)h(of)f(pro)31 -b(of)308 b(assistan)-31 b(t)309 b(de\014nitions)g(from)f(an)31 -48275 y(Ott)247 b(source)f(\014le.)452 b(F)-92 b(or)245 -b(a)i(description)g(of)g(the)f(lo)31 b(cally-nameless)249 -b(bac)-31 b(k)g(end,)272 b(refer)246 b(to)g Fs -(http://moscova.inria.fr/)585 b(zappa/projects/ln)p 59200 -48275 V 421 w(ott/)p Fx(.)31 52038 y Fq(24.1)1496 b(Generation)499 -b(of)f(t)-42 b(yp)42 b(es)p Black 1692 54746 a Ft(\017)p -Black 554 w Fx(The)384 b(primary)g(meta)-31 b(v)-61 b(ariable)387 -b(ro)31 b(ots)384 b(and)g(primary)g(non)-31 b(terminal)386 -b(ro)31 b(ots)384 b(are)g(used)f(directly)i(as)f(the)g(names)g(of)2799 -56074 y(pro)31 b(of)369 b(assistan)-31 b(t)371 b(t)-31 -b(yp)31 b(es,)370 b(except)f(where)g(they)h(ha)-31 b(v)g(e)370 -b(a)g(hom)g(sp)31 b(ecifying)370 b(a)f(ro)31 b(ot-o)-31 -b(v)g(erriding)372 b(string.)p Black 1692 58067 a Ft(\017)p -Black 554 w Fx(T)-31 b(yp)31 b(e)247 b(abbreviation)h(declarations)g -(are)e(pro)31 b(duced)246 b(for)g(meta)-31 b(v)-61 b(ars,)272 -b(in)247 b(the)f(source-\014le)g(order,)271 b(skipping)247 -b(meta)-31 b(v)-61 b(ars)2799 59395 y(or)369 b(non)-31 -b(terminals)371 b(de\014ned)e(with)p Mahogany 370 w Fs(phantom)p -Black Fx(.)p Black 1692 61387 a Ft(\017)p Black 554 w -Fx(T)-31 b(yp)31 b(e)436 b(generation)i(considers)d(eac)-31 -b(h)437 b(rule)e(of)i(the)f(user's)f(source)g(grammar)i(except)f(those) -h(for)f Fs(formula)g Fx(and)2799 62716 y Fs(terminals)370 -b Fx(\(or)g(the)f(syn)-31 b(thesized)370 b(rules)e(for)i(the)f(syn)-31 -b(tax)370 b(of)g(judgemen)-31 b(ts)371 b(or)e Fs(user_syntax)p -Fx(\).)p Black 1692 64708 a Ft(\017)p Black 554 w Fx(The)308 -b(subrule)g(order)g(is)g(analysed)h(to)g(iden)-31 b(tify)311 -b(the)d(top)h(elemen)-31 b(ts.)474 b(F)-92 b(or)307 b(eac)-31 -b(h)309 b(of)g(those,)321 b(a)309 b(pro)31 b(of)308 b(assistan)-31 -b(t)310 b(t)-31 b(yp)31 b(e)2799 66037 y(will)464 b(b)31 -b(e)462 b(generated)i(|)e(either)h(a)g(free)f(t)-31 b(yp)31 -b(e)464 b(\()p Fs(coq)p Fx(:)680 b Fs(inductive)p Fx(,)488 -b Fs(isa)p Fx(:)680 b Fs(datatype)p Fx(,)487 b Fs(hol)p -Fx(:)680 b Fs(Hol_datatype)p Fx(\),)2799 67365 y(or)452 -b(if)h(there)g(is)f(a)h(t)-31 b(yp)31 b(e)453 b(hom)g(for)f(the)h(pro) -31 b(of)453 b(assistan)-31 b(t)454 b(in)f(question,)474 -b(a)453 b(t)-31 b(yp)31 b(e)453 b(abbreviation.)745 b(No)453 -b(t)-31 b(yp)31 b(es)453 b(are)2799 68693 y(generated)327 -b(for)f(the)h(non-top)g(elemen)-31 b(ts,)337 b(as)326 -b(they)h(will)h(b)31 b(e)325 b(represen)-31 b(ted)326 -b(as)g(predicates)h(o)-31 b(v)g(er)327 b(the)f(top)h(free)f(t)-31 -b(yp)31 b(e)2799 70022 y(ab)g(o)-31 b(v)g(e)370 b(them.)p -Black 1692 72014 a Ft(\017)p Black 554 w Fx(F)-92 b(or)387 -b(the)i(former,)k(eac)-31 b(h)389 b(non-meta)h(pro)31 -b(duction)389 b(of)g(the)f(rule)g(giv)-31 b(es)389 b(rise)f(to)h(a)f -(constructor.)550 b(The)389 b(pro)31 b(duction)2799 73343 -y(name)482 b(\(with)g(an)-31 b(y)482 b(p)31 b(er-rule)480 -b(pre\014x)g(already)i(applied\))h(is)e(used)f(directly)i(as)f(the)g -(constructor)h(name.)828 b(The)p Black 24533 77841 a(54)p -Black eop end -%%Page: 55 55 -TeXDict begin 55 54 bop Black Black 2767 -594 a Fx(\(curried\))402 -b(constructor)g(argumen)-31 b(t)403 b(t)-31 b(yp)31 b(es)402 -b(are)g(tak)-31 b(en)402 b(from)h(the)e(t)-31 b(yp)31 -b(es)402 b(asso)31 b(ciated)403 b(with)g(the)f(meta)-31 -b(v)-61 b(ariables)2767 735 y(and)370 b(non)-31 b(terminals)371 -b(men)-31 b(tioned)371 b(in)f(the)f(pro)31 b(duction)370 -b(b)31 b(o)g(dy)-92 b(.)p Black 1660 2727 a Ft(\017)p -Black 554 w Fx(Rules)319 b(\(within)j(eac)-31 b(h)p Mahogany -320 w Fs(grammar)p Black 320 w Fx(blo)31 b(c)-31 b(k,)330 -b(if)406 b Fs(-merge)582 b(false)p Fx(,)331 b(or)319 -b(all)h(rules,)329 b(if)406 b Fs(-merge)582 b(true)p -Fx(\))320 b(are)f(top)31 b(ologically)2767 4055 y(sorted)424 -b(according)g(to)h(the)e(dep)31 b(endency)423 b(order)g(\(a)h(free-t) --31 b(yp)31 b(e)424 b(rule)f(directly)i(dep)31 b(ends)422 -b(on)i(another)g(if)g(one)g(of)2767 5384 y(its)379 b(non-meta)g(pro)31 -b(ductions)379 b(includes)f(a)h(non)-31 b(terminal)380 -b(of)f(the)f(other;)383 b(dep)31 b(endencies)378 b(for)g(rules)f(with)i -(a)g(t)-31 b(yp)31 b(e-)2767 6712 y(hom)410 b(for)f(the)h(pro)31 -b(of)409 b(assistan)-31 b(t)411 b(in)e(question)h(are)f(obtained)i -(from)e(a)h(crude)e(lexing)j(of)e(the)h(b)31 b(o)g(dy)409 -b(of)g(the)h(t)-31 b(yp)31 b(e)2767 8040 y(hom\).)478 -b(W)-92 b(e)319 b(then)h(generate)g(m)-31 b(utually)322 -b(recursiv)-31 b(e)319 b(t)-31 b(yp)31 b(e)321 b(de\014nitions)f(for)g -(connected)h(comp)31 b(onen)-31 b(ts,)331 b(in)320 b(an)g(order)2767 -9369 y(consisten)-31 b(t)371 b(with)f(the)g(dep)31 b(endencies.)p -Black 1660 11361 a Ft(\017)p Black 554 w Fx(F)-92 b(or)392 -b(pro)31 b(ductions)393 b(that)h(in)-31 b(v)g(olv)g(e)395 -b(list)e(dot)g(forms)g(or)f(list)i(comprehension)f(forms,)399 -b(for)393 b(HOL)f(and)h(Isab)31 b(elle)393 b(w)-31 b(e)2767 -12690 y(pro)31 b(duce)455 b(constructors)h(with)h(argumen)-31 -b(t)457 b(t)-31 b(yp)31 b(es)456 b(that)h(in)-31 b(v)g(olv)g(e)458 -b(nativ)-31 b(e)457 b(list)f(t)-31 b(yp)31 b(es.)752 -b(F)-92 b(or)455 b(Co)31 b(q,)479 b(ho)-31 b(w)g(ev)g(er,)479 -b(w)-31 b(e)2767 14018 y(syn)g(thesise)332 b(an)f(additional)j -(inductiv)-31 b(e)333 b(t)-31 b(yp)31 b(e)331 b(for)h(eac)-31 -b(h)331 b(list-of-tuples)i(that)g(arises)d(\(b)31 b(oth)333 -b(for)e(those)g(that)i(o)31 b(ccur)2767 15346 y(in)456 -b(the)f(grammar)i(and)e(for)g(others)h(required)e(in)i(the)f -(translations)i(of)f(inductiv)-31 b(e)457 b(de\014nitions\))g(and)e -(include)2767 16675 y(them)370 b(in)g(the)f(top)31 b(ological)373 -b(sort.)0 20438 y Fq(24.2)1495 b(Generation)499 b(of)f(functions)0 -23145 y Fx(A)400 b(small)i(n)-31 b(um)g(b)31 b(er)401 -b(of)g(library)g(functions)g(\()p Fs(list_mem)p Fx(,)411 -b Fs(list_minus)p Fx(,...\))590 b(are)400 b(included)h(in)g(the)g -(output)g(if)g(they)g(are)0 24473 y(required.)0 26466 -y(Sev)-31 b(eral)370 b(Co)31 b(q)370 b(list)g(functions)g(\()p -Fs(map)p Fx(,)h Fs(make)p Fx(,)f Fs(unmake)p Fx(,)g Fs(nth)p -Fx(,)g Fs(app)p Fx(\))g(are)f(generated)h(for)f(eac)-31 -b(h)370 b(syn)-31 b(thesized)369 b(list)h(t)-31 b(yp)31 -b(e.)0 28458 y(The)448 b(de\014nitions)g(of)g(the)g(more)f(in)-31 -b(teresting)449 b(functions)f(\(subrule)g(predicates,)467 -b(binding)449 b(auxiliaries,)469 b(free)447 b(v)-61 b(ariable)0 -29787 y(functions,)324 b(and)311 b(substitutions\))i(are)d(generated)i -(o)-31 b(v)g(er)311 b(the)g(free)f(t)-31 b(yp)31 b(es)311 -b(generated)g(for)g(the)g(maximal)j(elemen)-31 b(ts)312 -b(of)f(the)0 31115 y(subrule)365 b(order)g(\(generation)j(of)e(these)g -(functions)g(for)g(rules)f(with)i(t)-31 b(yp)31 b(e)366 -b(homs)g(is)g(not)g(supp)31 b(orted\).)492 b(The)366 -b(de\014nitions)0 32444 y(are)524 b(b)-31 b(y)524 b(pattern-matc)-31 -b(hing)527 b(and)d(recursion.)955 b(The)524 b(patterns)g(are)g -(generated)g(b)-31 b(y)524 b(building)i(canonical)f(sym)-31 -b(b)31 b(olic)0 33772 y(terms)438 b(from)h(the)f(pro)31 -b(ductions)439 b(of)g(eac)-31 b(h)439 b(relev)-61 b(an)-31 -b(t)438 b(rule.)700 b(The)438 b(recursion)g(is)g(essen)-31 -b(tially)440 b(primitiv)-31 b(e)441 b(recursion:)630 -b(for)0 35100 y(Co)31 b(q)344 b(w)-31 b(e)343 b(pro)31 -b(duce)342 b Fs(Fixpoint)p Fx(s)h(or)g Fs(Definition)p -Fx(s)h(\(the)f(latter)h(is)f(sometimes)h(needed)f(as)f(the)i(former)e -(giv)-31 b(es)344 b(an)f(error)0 36429 y(in)448 b(the)f(case)g(where)g -(there)h(is)f(no)g(recursion\);)487 b(for)448 b(Isab)31 -b(elle)447 b(w)-31 b(e)448 b(pro)31 b(duce)447 b Fs(primrec)p -Fx(s)h(\(or,)467 b(exp)31 b(erimen)-31 b(tally)-92 b(,)470 -b Fs(fun)p Fx(s\);)0 37757 y(for)365 b(HOL)f(w)-31 b(e)365 -b(use)f(an)g Fs(ottDefine)i Fx(v)-61 b(arian)-31 b(t)365 -b(of)g(the)g Fs(Define)g Fx(pac)-31 b(k)-61 b(age.)492 -b(In)364 b(general)i(w)-31 b(e)364 b(ha)-31 b(v)g(e)366 -b(to)f(deal)g(b)31 b(oth)365 b(with)h(the)0 39085 y(t)-31 -b(yp)31 b(e)376 b(dep)31 b(endency)375 b(\(the)h(top)31 -b(ologically)380 b(sorted)c(m)-31 b(utually)378 b(recursiv)-31 -b(e)375 b(t)-31 b(yp)31 b(es)375 b(describ)31 b(ed)375 -b(ab)31 b(o)-31 b(v)g(e\))377 b(and)f(with)h(function)0 -40414 y(dep)31 b(endency)283 b(|)g(for)h(example,)303 -b(for)283 b(subrule)g(predicates)h(and)g(binding)h(auxiliaries)g(w)-31 -b(e)284 b(ma)-31 b(y)285 b(ha)-31 b(v)g(e)284 b(m)-31 -b(ultiple)286 b(m)-31 b(utually)0 41742 y(recursiv)g(e)369 -b(functions)h(o)-31 b(v)g(er)370 b(the)f(same)h(t)-31 -b(yp)31 b(e.)0 43735 y(F)-92 b(or)295 b(Co)31 b(q)297 -b(the)f(function)h(generation)h(o)-31 b(v)g(er)296 b(pro)31 -b(ductions)297 b(that)g(in)-31 b(v)g(olv)g(e)298 b(list)f(t)-31 -b(yp)31 b(es)296 b(m)-31 b(ust)297 b(mirror)f(that,)312 -b(so)296 b(w)-31 b(e)296 b(generate)0 45063 y(auxiliary)371 -b(functions)g(that)f(recurse)e(o)-31 b(v)g(er)369 b(those)h(list)g(t) --31 b(yp)31 b(es.)0 47055 y(F)-92 b(or)340 b(Isab)31 -b(elle)342 b(the)f Fs(primrec)h Fx(pac)-31 b(k)-61 b(age)343 -b(do)31 b(es)340 b(not)i(supp)31 b(ort)341 b(de\014nitions)i(in)-31 -b(v)g(olving)344 b(sev)-31 b(eral)342 b(m)-31 b(utually)343 -b(recursiv)-31 b(e)341 b(func-)0 48384 y(tions)313 b(o)-31 -b(v)g(er)314 b(the)f(same)f(t)-31 b(yp)31 b(e,)325 b(so)313 -b(for)g(these)f(w)-31 b(e)313 b(generate)h(single)f(functions)h -(calculating)h(tuples)e(of)g(results,)324 b(de\014ne)313 -b(the)0 49712 y(in)-31 b(tended)394 b(functions)g(as)f(pro)61 -b(jections)394 b(of)g(these,)399 b(and)393 b(generate)h(lemmas)h(\(and) -e(simple)h(pro)31 b(of)393 b(scripts\))g(c)-31 b(haracteris-)0 -51040 y(ing)396 b(them)h(in)f(terms)f(of)i(the)e(in)-31 -b(tended)397 b(de\014nitions.)573 b(F)-92 b(urther,)402 -b(it)396 b(do)31 b(es)396 b(not)g(supp)31 b(ort)395 b(pattern)i(matc) --31 b(hing)398 b(in)-31 b(v)g(olving)0 52369 y(nested)311 -b(constructors.)473 b(W)-92 b(e)310 b(therefore)h(generate)g(auxiliary) -i(functions)f(for)f(pro)31 b(ductions)311 b(with)h(em)-31 -b(b)31 b(edded)311 b(list)g(t)-31 b(yp)31 b(es.)0 53697 -y(Isab)g(elle)403 b(tuples)h(are)e(treated)i(as)f(iterated)h(pairs,)412 -b(so)403 b(w)-31 b(e)404 b(do)f(the)g(same)g(for)g(pro)31 -b(ductions)404 b(with)g(tuples)g(of)f(size)g(3)g(or)0 -55026 y(more.)713 b(Isab)31 b(elle)443 b(also)h(requires)e(a)g -(function)i(de\014nition)h(for)d(eac)-31 b(h)443 b(recursiv)-31 -b(e)443 b(t)-31 b(yp)31 b(e.)713 b(In)442 b(the)h(case)f(where)h(there) -f(are)0 56354 y(m)-31 b(ultiple)461 b(uses)c(of)i(the)f(same)h(t)-31 -b(yp)31 b(e)459 b(\(e.g.)h(sev)-31 b(eral)458 b(uses)g(of)h -Fs(t)581 b(list)459 b Fx(in)f(di\013eren)-31 b(t)459 -b(pro)31 b(ductions\))459 b(all)g(the)g(functions)0 57682 -y(w)-31 b(e)443 b(wish)f(to)h(generate)g(need)f(iden)-31 -b(tical)445 b(auxiliaries.)714 b(As)442 b(y)-31 b(et,)462 -b(the)442 b(to)31 b(ol)444 b(do)31 b(es)442 b(not)h(generate)g(the)f -(iden)-31 b(tical)445 b(copies)0 59011 y(required.)0 -61003 y(If)338 b(the)g(option)h Fs(-isabelle_primrec)h -Fx(is)e(set)g(to)g Fs(false)p Fx(,)346 b(then)338 b(Ott)g(uses)f(the)h -Fs(fun)g Fx(pac)-31 b(k)-61 b(age)339 b(instead)g(of)f(the)g -Fs(primrec)0 62331 y Fx(pac)-31 b(k)-61 b(age.)537 b(Since)384 -b(at)g(the)g(time)h(of)f(writing)h(Isab)31 b(elle)384 -b(2008)h(is)f(not)g(capable)h(of)f(pro)-31 b(ving)385 -b(automatically)j(termination)0 63660 y(of)370 b(all)g(the)g -Fs(fun)p Fx(s)f(that)h(Ott)g(generates,)g(this)g(feature)f(should)h(b) -31 b(e)369 b(considered)g(exp)31 b(erimen)-31 b(tal.)0 -65652 y(F)-92 b(or)254 b(HOL)h(the)g(standard)g Fs(Define)h -Fx(pac)-31 b(k)-61 b(age)256 b(tries)f(an)g(automatic)j(termination)g -(pro)31 b(of.)455 b(F)-92 b(or)254 b(pro)31 b(ductions)255 -b(that)i(in)-31 b(v)g(olv)g(e)0 66981 y(list)330 b(t)-31 -b(yp)31 b(es)329 b(our)g(generated)h(functions)g(in)-31 -b(v)g(olv)g(e)332 b(v)-61 b(arious)329 b(list)h(functions)g(whic)-31 -b(h)330 b(prev)-31 b(en)g(t)330 b(those)f(pro)31 b(ofs)330 -b(w)-31 b(orking)330 b(in)g(all)0 68309 y(cases.)553 -b(W)-92 b(e)389 b(therefore)h(use)f(an)h Fs(ottDefine)h -Fx(v)-61 b(arian)-31 b(t)390 b(\(due)g(to)h(Scott)g(Ow)-31 -b(ens\),)395 b(with)c(sligh)-31 b(tly)392 b(stronger)e(supp)31 -b(ort)389 b(for)0 69637 y(pro)-31 b(ving)370 b(termination)i(of)e -(de\014nitions)g(in)-31 b(v)g(olving)373 b(list)d(op)31 -b(erators.)p Black 24502 77841 a(55)p Black eop end -%%Page: 56 56 -TeXDict begin 56 55 bop Black Black 31 -594 a Fp(24.2.1)1275 -b(Subrule)425 b(predicates)31 2114 y Fx(W)-92 b(e)514 -b(generate)g(subrule)g(predicates)g(to)h(carv)-31 b(e)514 -b(out)h(the)f(subsets)f(of)i(eac)-31 b(h)515 b(free)e(pro)31 -b(of)514 b(assistan)-31 b(t)516 b(t)-31 b(yp)31 b(e)514 -b(\(from)h(the)31 3442 y(maximal)368 b(elemen)-31 b(ts)365 -b(of)g(the)f(subrule)g(order\))g(that)i(represen)-31 -b(t)363 b(the)i(rules)e(of)i(the)g(grammar.)492 b(The)365 -b(non-free)f(rules)g(are)31 4770 y(the)341 b(least)g(subset)f(of)g(the) -h(rules)e(that)j(either)e(\(1\))h(o)31 b(ccur)340 b(on)g(the)h(left)g -(of)g(a)f(subrule)g(\()p Fs(<::)p Fx(\))h(declaration,)349 -b(or)340 b(\(2\))h(ha)-31 b(v)g(e)341 b(a)31 6099 y(\(non-meta\))298 -b(pro)31 b(duction)297 b(that)f(men)-31 b(tions)297 b(a)f(non-free)f -(rule.)468 b(Note)296 b(that)h(these)e(can)g(include)h(rules)f(that)i -(are)e(maximal)31 7427 y(elemen)-31 b(ts)412 b(of)f(the)g(subrule)f -(order,)421 b(e.g.)411 b(if)g(an)g(expression)f(grammar)i(included)f(a) -g(pro)31 b(duction)412 b(in)-31 b(v)g(olving)413 b(pac)-31 -b(k)-61 b(aged)31 8755 y(v)g(alues.)474 b(The)311 b(subrule)f -(predicate)i(for)f(a)g(t)-31 b(yp)31 b(e)312 b(is)f(de\014ned)f(b)-31 -b(y)311 b(pattern)h(matc)-31 b(hing)313 b(o)-31 b(v)g(er)312 -b(constructors)f(of)g(the)h(maximal)31 10084 y(t)-31 -b(yp)31 b(e)410 b(ab)31 b(o)-31 b(v)g(e)410 b(it)g(|)e(for)h(eac)-31 -b(h)410 b(non-meta)g(pro)31 b(duction)410 b(of)g(the)f(maximal)i(t)-31 -b(yp)31 b(e)410 b(it)g(calculates)g(a)f(disjunction)i(o)-31 -b(v)g(er)409 b(all)31 11412 y(the)468 b(pro)31 b(ductions)468 -b(of)g(the)g(lo)-31 b(w)g(er)469 b(t)-31 b(yp)31 b(e)468 -b(that)h(are)e(subpro)31 b(ductions)468 b(of)g(it,)493 -b(in)-31 b(v)g(oking)470 b(other)e(subrule)f(predicates)h(as)31 -12740 y(appropriate.)31 16282 y Fp(24.2.2)1275 b(Binding)424 -b(auxiliaries)31 18989 y Fx(The)388 b(binding)h(auxiliary)g(functions)f -(calculate)i(the)d(in)-31 b(tuitiv)g(e)391 b(seman)-31 -b(tics)388 b(of)g(auxiliary)h(functions)g(de\014ned)e(in)g(bind-)31 -20318 y(sp)31 b(ecs)395 b(of)h(the)f(Ott)h(source)f(\014le.)572 -b(Curren)-31 b(tly)396 b(these)f(are)h(represen)-31 b(ted)394 -b(as)i(pro)31 b(of)395 b(assistan)-31 b(t)397 b(lists)f(of)g(meta)-31 -b(v)-61 b(ariables)398 b(or)31 21646 y(non)-31 b(terminals)372 -b(\(arguably)f(set)e(t)-31 b(yp)31 b(es)369 b(should)h(b)31 -b(e)369 b(used)f(instead,)j(at)f(least)g(in)f(Isab)31 -b(elle\).)31 25188 y Fp(24.2.3)1275 b(F)-106 b(ree)425 -b(v)-71 b(ariables)31 27895 y Fx(The)435 b(free)f(v)-61 -b(ariable)435 b(functions)g(simply)g(w)-31 b(alk)436 -b(o)-31 b(v)g(er)435 b(the)g(structure)e(of)i(the)f(free)g(pro)31 -b(of)435 b(assistan)-31 b(t)435 b(t)-31 b(yp)31 b(es,)451 -b(using)435 b(an)-31 b(y)31 29223 y(bind)326 b(sp)31 -b(eci\014cations)326 b(\(and)g(binding)g(auxiliaries\))h(as)e -(appropriate.)480 b(F)-92 b(or)324 b(these,)334 b(and)325 -b(for)g(substitutions,)336 b(w)-31 b(e)326 b(simplify)31 -30552 y(the)363 b(generated)h(functions)g(b)-31 b(y)363 -b(using)g(the)g(dep)31 b(endency)362 b(analysis)i(of)f(the)g(syn)-31 -b(tax)364 b(to)g(exclude)f(recursiv)-31 b(e)362 b(calls)i(where)31 -31880 y(there)369 b(is)h(no)f(dep)31 b(endency)-92 b(.)31 -35422 y Fp(24.2.4)1275 b(Substitutions)31 38129 y Fx(The)389 -b(generated)g(substitution)i(functions)e(also)h(w)-31 -b(alk)390 b(o)-31 b(v)g(er)389 b(the)g(structure)e(of)i(the)g(free)f -(pro)31 b(of)389 b(assistan)-31 b(t)390 b(t)-31 b(yp)31 -b(es.)550 b(F)-92 b(or)31 39457 y(eac)-31 b(h)500 b(pro)31 -b(duction,)534 b(for)499 b(eac)-31 b(h)500 b(o)31 b(ccurrence)498 -b(of)i(a)g(non)-31 b(terminal)502 b Fs(nt)d Fx(within)i(it,)533 -b(w)-31 b(e)500 b(\014rst)f(calculate)j(the)d(things)i(\(of)31 -40786 y(whatev)-31 b(er)386 b(t)-31 b(yp)31 b(e)384 b(is)g(in)g -(question\))i(binding)f(in)f(that)h Fs(nt)p Fx(,)j(i.e.)e(those)e(that) -h(should)f(b)31 b(e)384 b(remo)-31 b(v)g(ed)385 b(from)f(the)g(domain)i -(of)31 42114 y(an)-31 b(y)422 b(substitution)h(pushed)d(do)-31 -b(wn)422 b(in)-31 b(to)422 b(it.)649 b(There)421 b(are)f(t)-31 -b(w)g(o)423 b(cases:)595 b(\(1\))423 b(the)e Fs(mse')g -Fx(from)g(an)-31 b(y)422 b Fs(bind)582 b(mse')g(in)f(nt)p -Fx(;)31 43442 y(\(2\))386 b Fs(nt)e Fx(itself)h(if)f(it)h(o)31 -b(ccurs)383 b(in)h(the)h Fs(mse'')f Fx(of)h(an)-31 b(y)384 -b Fs(bind)582 b(mse'')g(in)f(nt'')p Fx(,)389 b(i.e.)921 -b Fs(nt)384 b Fx(itself)h(if)g(it)g(is)e(directly)i(used)f(to)31 -44771 y(bind)370 b(elsewhere.)492 b(List)370 b(forms)f(within)i(bindsp) -31 b(ecs)369 b(are)g(dealt)h(with)g(analogously)-92 b(.)31 -46763 y(The)368 b(substitution)i(function)f(clause)f(for)g(a)f(pro)31 -b(duction)369 b(is)f(then)f(of)i(one)e(of)i(t)-31 b(w)g(o)369 -b(forms:)492 b(either)368 b(\(1\))h(the)f(pro)31 b(duction)31 -48092 y(comprises)390 b(a)f(single)h(elemen)-31 b(t,)396 -b(of)389 b(the)h(non)-31 b(terminal)391 b(or)e(meta)-31 -b(v)-61 b(ariable)392 b(that)e(w)-31 b(e)389 b(are)g(substituting)i -(for,)k(and)389 b(this)h(is)31 49420 y(within)334 b(the)f(rule)f(of)g -(the)h(non)-31 b(terminal)334 b(that)g(it)f(is)f(b)31 -b(eing)332 b(replaced)h(b)-31 b(y)-92 b(,)340 b(or)332 -b(\(2\))h(all)h(other)e(cases.)480 b(F)-92 b(or)331 b(\(1\))j(the)e -(elemen)-31 b(t)31 50748 y(is)296 b(compared)h(with)g(the)f(domain)h -(of)f(the)g(substitution,)313 b(and)296 b(replaced)g(b)-31 -b(y)296 b(the)g(corresp)31 b(onding)296 b(v)-61 b(alue)296 -b(from)g(the)g(range)31 52077 y(if)369 b(it)f(is)g(found.)492 -b(F)-92 b(or)367 b(\(2\))i(the)f(substitution)i(functions)e(are)g(mapp) -31 b(ed)368 b(o)-31 b(v)g(er)368 b(the)g(sub)31 b(elemen)-31 -b(ts,)369 b(ha)-31 b(ving)369 b(\014rst)f(remo)-31 b(v)g(ed)31 -53405 y(an)g(y)370 b(b)31 b(ound)370 b(things)g(from)f(the)h(domain)h -(of)e(the)h(substitution.)31 55398 y(This)g(is)f(all)i(done)e -(similarly)-92 b(,)372 b(but)d(with)h(di\013erences)f(in)g(detail,)j -(for)d(single)h(and)f(for)h(m)-31 b(ultiple)371 b(substitutions.)31 -59160 y Fq(24.3)1496 b(Generation)499 b(of)f(relations)31 -61868 y Fx(The)271 b(seman)-31 b(tic)272 b(relations)g(are)e(de\014ned) -g(with)i(the)f(pro)31 b(of-assistan)-31 b(t)272 b(inductiv)-31 -b(e)272 b(relations)g(pac)-31 b(k)-61 b(ages)271 b(\()p -Fs(coq)p Fx(:)444 b Fs(Inductive)p Fx(,)31 63196 y Fs(isa)p -Fx(:)613 b Fs(inductive)p Fx(,)446 b Fs(hol)p Fx(:)612 -b Fs(Hol_reln)p Fx(\).)674 b(They)429 b(use)g(the)g(m)-31 -b(utual)431 b(recursion)e(structure)f(that)i(is)f(giv)-31 -b(en)431 b(b)-31 b(y)429 b(the)g(user,)31 64525 y(with)d(eac)-31 -b(h)425 b Fs(defns)g Fx(blo)31 b(c)-31 b(k)425 b(giving)h(rise)e(to)h -(a)f(p)31 b(oten)-31 b(tially)428 b(m)-31 b(utually)427 -b(recursiv)-31 b(e)424 b(de\014nition)h(of)g(eac)-31 -b(h)425 b Fs(defn)g Fx(inside)f(it.)31 65853 y(\(It)359 -b(is)g(debatable)h(whether)f(it)g(w)-31 b(ould)360 b(b)31 -b(e)358 b(preferable)g(to)h(do)g(an)g(automatic)i(dep)31 -b(endency)358 b(analysis)i(and)f(top)31 b(ological)31 -67181 y(sort,)454 b(as)435 b(for)h(the)h(syn)-31 b(tax.\))694 -b(Eac)-31 b(h)437 b(de\014nition)g(rule)f(giv)-31 b(es)437 -b(rise)e(to)i(an)f(implicational)441 b(clause,)453 b(essen)-31 -b(tially)438 b(that)f(the)31 68510 y(premises)411 b(\(Ott)g -Fs(formula)p Fx(s\))h(imply)g(the)f(conclusion)h(\(an)f(Ott)h(sym)-31 -b(b)31 b(olic)412 b(term)f(of)g(whic)-31 b(hev)g(er)411 -b(judgemen)-31 b(t)413 b(is)d(b)31 b(eing)31 69838 y(de\014ned\).)493 -b(In)369 b(addition:)p Black 1692 71831 a Ft(\017)p Black -554 w Fx(Sym)-31 b(b)31 b(olic)371 b(terms)e(are)g(transformed)h(in)f -(v)-61 b(arious)370 b(di\013eren)-31 b(t)369 b(w)-31 -b(a)g(ys:)p Black 24533 77841 a(56)p Black eop end -%%Page: 57 57 -TeXDict begin 57 56 bop Black Black Black 4013 -594 a -Fp({)p Black 554 w Fx(No)31 b(des)381 b(of)i(non-meta)h(pro)31 -b(ductions)382 b(are)g(output)h(as)f(applications)i(of)f(the)f -(appropriate)h(pro)31 b(of-assistan)-31 b(t)5203 735 -y(constructor)278 b(\(and,)298 b(for)278 b(a)g(subrule,)296 -b(promoted)280 b(to)e(the)h(corresp)31 b(onding)278 b(constructor)g(of) -h(a)f(maximal)j(rule\).)p Black 4013 2727 a Fp({)p Black -554 w Fx(No)31 b(des)369 b(of)g(meta)i(pro)31 b(ductions)370 -b(are)f(transformed)g(with)i(the)e(user-sp)31 b(eci\014ed)368 -b(homomorphism.)p Black 4013 4720 a Fp({)p Black 554 -w Fx(No)31 b(des)380 b(of)g(judgemen)-31 b(t)382 b(forms)e(are)g -(represen)-31 b(ted)379 b(as)h(applications)j(of)e(the)f(de\014ned)g -(relation)i(in)e(Co)31 b(q)381 b(and)5203 6048 y(HOL,)369 -b(and)h(as)f(set-mem)-31 b(b)31 b(ership)369 b(assertions)h(in)f(Isab) -31 b(elle.)p Black 4013 8040 a Fp({)p Black 554 w Fx(Lists)369 -b(of)h(form)-31 b(ulae)370 b(\(the)g Fs(formula_dots)h -Fx(pro)31 b(duction\))371 b(are)e(sp)31 b(ecial-cased.)p -Black 1660 10033 a Ft(\017)p Black 554 w Fx(F)-92 b(or)528 -b(eac)-31 b(h)528 b(non)-31 b(terminal)530 b(of)f(a)f(non-free)g(syn) --31 b(tax)529 b(rule)f(\(as)g(in)g Ft(x)p Fx(24.2.1\))j(that)f(o)31 -b(ccurs,)567 b(e.g.)529 b(a)f(usage)g(of)h Fs(v')2767 -11361 y Fx(where)391 b Fs(v<::t)p Fx(,)396 b(an)391 b(additional)j -(premise)c(in)-31 b(v)g(oking)393 b(the)e(subrule)f(predicate)h(for)g -(the)f(non-free)h(rule)f(is)g(added,)2767 12690 y(e.g.)371 -b Fs(is_v)582 b(v')p Fx(.)p Black 1660 14682 a Ft(\017)p -Black 554 w Fx(The)427 b(set)g(of)g(sym)-31 b(b)31 b(olic)429 -b(terms)d(of)i(the)f(de\014nition)h(rule)f(are)f(analysed)i(together)g -(to)g(iden)-31 b(tify)428 b(list)g(forms)f(with)2767 -16011 y(the)416 b(same)g(b)31 b(ounds.)631 b(A)415 b(single)i(pro)31 -b(of)416 b(assistan)-31 b(t)416 b(v)-61 b(ariable)417 -b(is)e(in)-31 b(tro)31 b(duced)416 b(for)g(eac)-31 b(h)416 -b(suc)-31 b(h,)427 b(with)417 b(appropriate)2767 17339 -y(pro)61 b(jections)371 b(and)f(list)g(maps/foralls)h(at)f(the)f(usage) -h(p)31 b(oin)-31 b(ts.)p Black 1660 19331 a Ft(\017)p -Black 554 w Fx(F)-92 b(or)369 b(Co)31 b(q,)370 b(auxiliary)i(de\014ned) -c(relations)j(are)e(in)-31 b(tro)31 b(duced)370 b(for)f(list)h(forms.)p -Black 1660 21324 a Ft(\017)p Black 554 w Fx(F)-92 b(or)279 -b(Co)31 b(q,)299 b(as)279 b(the)h(pro)61 b(jections)281 -b(from)f(list)h(forms)e(in)-31 b(v)g(olv)g(e)282 b(\(Ott-generated\))g -Fs(nth)e Fx(functions)h(that)f(return)f(option)2767 22652 -y(t)-31 b(yp)31 b(es,)316 b(for)301 b(an)-31 b(y)301 -b(suc)-31 b(h)301 b(pro)61 b(jection)303 b(a)e(pattern-matc)-31 -b(h)303 b(against)g Fs(Some)e Fx(is)g(in)-31 b(tro)31 -b(duced)302 b(as)e(an)i(additional)i(premise.)p Black -1660 24645 a Ft(\017)p Black 554 w Fx(F)-92 b(or)369 -b(Co)31 b(q)370 b(and)f(HOL,)h(explicit)h(quan)-31 b(ti\014ers)370 -b(are)f(in)-31 b(tro)31 b(duced)370 b(for)f(all)h(v)-61 -b(ariables)370 b(men)-31 b(tioned)371 b(in)f(the)f(rule.)0 -28970 y FC(25)1793 b(Reference:)798 b(Summary)600 b(of)d(homomorphisms) -0 32058 y Fx(Homomorphisms)323 b(can)d(app)31 b(ear)321 -b(in)f(v)-61 b(arious)321 b(p)31 b(ositions)321 b(in)g(an)g(Ott)g -(source)f(\014le.)476 b(The)321 b(table)h(b)31 b(elo)-31 -b(w)321 b(summarises)g(their)0 33387 y(meanings.)755 -b(A)6842 32601 y Ft(p)8220 33387 y Fx(indicates)458 b(that)f(argumen) --31 b(ts)457 b(are)f(meaningful)j(for)d(that)h(usage)g(\(e.g.)p -RoyalBlue 457 w Fs([[)p Black(e1)p RoyalBlue(]])p Black -457 w Fx(in)g(a)f(pro)31 b(duction)0 34715 y(men)-31 -b(tioning)372 b(a)e(non)-31 b(terminal)371 b(or)e(meta)-31 -b(v)-61 b(ariable)372 b Fs(e1)p Fx(\).)664 36697 y(a)e(meta)-31 -b(v)-61 b(ar)370 b(or)f(indexv)-61 b(ar)370 b(declaration,)h(after)f -(one)g(of)f(the)h(de\014ned)f(meta)-31 b(v)-61 b(ar/indexv)g(ar)371 -b(ro)31 b(ots,)370 b(or)664 38025 y(a)g(rule,)f(after)h(one)f(of)h(the) -f(de\014ned)g(non)-31 b(terminal)372 b(ro)31 b(ots)p -0 38468 44848 45 v Mahogany 664 39398 a Fs(tex)p Black -14197 38612 a Ft(p)16447 39398 y Fx(L)16740 39171 y Fu(A)17228 -39398 y Fx(T)17842 39636 y(E)18458 39398 y(X)369 b(t)-31 -b(yp)31 b(esetting)372 b(for)d(sym)-31 b(b)31 b(olic)371 -b(v)-61 b(ariables)369 b(with)i(that)f(ro)31 b(ot)p Mahogany -664 40726 a Fs(isa)p Black Fx(/)p Mahogany Fs(coq)p Black -Fx(/)p Mahogany Fs(hol)p Black Fx(/)p Mahogany Fs(ocaml)p -Black 5990 w Fx(Isab)g(elle/Co)g(q/HOL/OCaml)374 b(ro)31 -b(ot)370 b(o)-31 b(v)g(erriding)371 b(string)e(\(1\))p -Mahogany 664 42054 a Fs(repr-locally-nameless)p Black -3582 w Fx(use)g(a)h(lo)31 b(cally-nameless)372 b(represen)-31 -b(tation)370 b(\(Co)31 b(q)370 b(bac)-31 b(k)g(end)370 -b(only\))664 45486 y(a)g(meta)-31 b(v)-61 b(ar)370 b(or)f(indexv)-61 -b(ar)370 b(declaration,)h(after)f(the)g Fs(::=)p 0 45929 -50395 45 v Mahogany 664 46858 a(isa)p Black 14040 w Fx(Isab)31 -b(elle)370 b(represen)-31 b(tation)370 b(t)-31 b(yp)31 -b(e)p Mahogany 664 48187 a Fs(coq)p Black 14040 w Fx(Co)g(q)370 -b(represen)-31 b(tation)371 b(t)-31 b(yp)31 b(e)p Mahogany -664 49515 a Fs(hol)p Black 14040 w Fx(HOL)370 b(represen)-31 -b(tation)370 b(t)-31 b(yp)31 b(e)p Mahogany 664 50844 -a Fs(ocaml)p Black 12878 w Fx(OCaml)371 b(represen)-31 -b(tation)371 b(t)-31 b(yp)31 b(e)p Mahogany 664 52172 -a Fs(tex)p Black 14197 51386 a Ft(p)16447 52172 y Fx(L)16740 -51945 y Fu(A)17228 52172 y Fx(T)17842 52410 y(E)18458 -52172 y(X)369 b(t)-31 b(yp)31 b(esetting)372 b(for)d(sym)-31 -b(b)31 b(olic)371 b(v)-61 b(ariables)p Mahogany 664 53500 -a Fs(com)p Black 14040 w Fx(commen)-31 b(t)372 b(to)e(app)31 -b(ear)369 b(in)g(L)27813 53273 y Fu(A)28301 53500 y Fx(T)28915 -53739 y(E)29531 53500 y(X)g(syn)-31 b(tax)370 b(de\014nition)p -Mahogany 664 54829 a Fs(coq-equality)p Black 8811 w Fx(Co)31 -b(q)370 b(pro)31 b(of)370 b(script)f(to)h(decide)f(equalit)-31 -b(y)372 b(o)-31 b(v)g(er)370 b(the)f(represen)-31 b(tation)370 -b(t)-31 b(yp)31 b(e)p Mahogany 664 56157 a Fs(repr-locally-nameless)p -Black 3582 w Fx(\(Co)g(q)371 b(only\))g(use)d(a)i(lo)31 -b(cally-nameless)372 b(represen)-31 b(tation)p Mahogany -664 57485 a Fs(phantom)p Black 11716 w Fx(suppress)368 -b(the)h(represen)-31 b(tation)371 b(t)-31 b(yp)31 b(e)369 -b(de\014nition)i(in)f(theorem)f(pro)-31 b(v)g(er)370 -b(output)p Mahogany 664 58814 a Fs(lex)p Black 14040 -w Fx(regular)g(expression)f(for)g(lexing)i(concrete)e(v)-61 -b(ariables)p Mahogany 664 60142 a Fs(texvar)p Black 14197 -59356 a Ft(p)16447 60142 y Fx(L)16740 59915 y Fu(A)17228 -60142 y Fx(T)17842 60380 y(E)18458 60142 y(X)369 b(t)-31 -b(yp)31 b(esetting)372 b(for)d(concrete)g(v)-61 b(ariables)p -Mahogany 664 61470 a Fs(isavar)p Black 14197 60684 a -Ft(p)16447 61470 y Fx(Isab)31 b(elle)370 b(output)g(for)g(concrete)f(v) --61 b(ariables)p Mahogany 664 62799 a Fs(holvar)p Black -14197 62013 a Ft(p)16447 62799 y Fx(HOL)370 b(output)g(for)f(concrete)h -(v)-61 b(ariables)p Mahogany 664 64127 a Fs(ocamlvar)p -Black 14197 63341 a Ft(p)16447 64127 y Fx(OCaml)371 b(output)g(for)e -(concrete)g(v)-61 b(ariables)p Black 24502 77841 a(57)p -Black eop end -%%Page: 58 58 -TeXDict begin 58 57 bop Black Black 696 -771 a Fx(a)369 -b(rule,)h(after)f(the)p RoyalBlue 370 w Fs(::=)p Black -31 -328 46025 45 v Mahogany 696 602 a(isa)p Black 9671 -w Fx(Isab)31 b(elle)369 b(represen)-31 b(tation)370 b(t)-31 -b(yp)31 b(e,)371 b(if)e(a)h(non-free)f(t)-31 b(yp)31 -b(e)370 b(is)f(required)p Mahogany 696 1930 a Fs(coq)p -Black 9671 w Fx(Co)31 b(q)370 b(represen)-31 b(tation)370 -b(t)-31 b(yp)31 b(e,)370 b(if)g(a)f(non-free)g(t)-31 -b(yp)31 b(e)370 b(is)f(required)p Mahogany 696 3258 a -Fs(hol)p Black 9671 w Fx(HOL)g(represen)-31 b(tation)370 -b(t)-31 b(yp)31 b(e,)370 b(if)g(a)f(non-free)g(t)-31 -b(yp)31 b(e)370 b(is)f(required)p Mahogany 696 4587 a -Fs(ocaml)p Black 8509 w Fx(OCaml)h(represen)-31 b(tation)371 -b(t)-31 b(yp)31 b(e,)370 b(if)g(a)f(non-free)g(t)-31 -b(yp)31 b(e)370 b(is)f(required)p Mahogany 696 5915 a -Fs(tex)p Black 9428 5129 a Ft(p)12110 5915 y Fx(L)12403 -5688 y Fu(A)12891 5915 y Fx(T)13505 6153 y(E)14120 5915 -y(X)g(t)-31 b(yp)31 b(esetting)372 b(for)d(sym)-31 b(b)31 -b(olic)371 b(v)-61 b(ariables)p Mahogany 696 7243 a Fs(com)p -Black 9428 6458 a Ft(p)12110 7243 y Fx(commen)-31 b(t)371 -b(to)f(app)31 b(ear)369 b(in)g(L)23475 7017 y Fu(A)23963 -7243 y Fx(T)24577 7482 y(E)25193 7243 y(X)g(syn)-31 b(tax)370 -b(de\014nition)p Mahogany 696 8572 a Fs(coq-equality)p -Black 4442 w Fx(Co)31 b(q)370 b(pro)31 b(of)369 b(script)g(to)h(decide) -f(equalit)-31 b(y)372 b(o)-31 b(v)g(er)370 b(the)f(represen)-31 -b(tation)371 b(t)-31 b(yp)31 b(e)p Mahogany 696 9900 -a Fs(coq-universe)p Black 4442 w Fx(Co)g(q)370 b(univ)-31 -b(erse)369 b(\(e.g.)i Fs(Type)p Fx(\))f(for)f(the)g(represen)-31 -b(tation)371 b(t)-31 b(yp)31 b(e)p Mahogany 696 11229 -a Fs(phantom)p Black 7347 w Fx(suppress)367 b(the)i(represen)-31 -b(tation)371 b(t)-31 b(yp)31 b(e)369 b(de\014nition)i(in)f(theorem)g -(pro)-31 b(v)g(er)369 b(output)p Mahogany 696 12557 a -Fs(aux)p Black 6559 w Fx(\()9428 11771 y Ft(p)10351 12557 -y Fx(\))1329 b(construct)369 b(an)h(auxiliary)h(grammar)g(rule)e(with)h -(a)f(single)h(pro)31 b(duction)p Mahogany 696 13885 a -Fs(icho)p Black 9428 13099 a Ft(p)12110 13885 y Fx(shorthand)369 -b(for)g(iden)-31 b(tical)p Mahogany 372 w Fs(coq)p Black -Fx(,)p Mahogany 370 w Fs(isa)p Black Fx(,)p Mahogany -370 w Fs(hol)p Black Fx(,)370 b(and)p Mahogany 369 w -Fs(ocaml)p Black 370 w Fx(homs)p Mahogany 696 15214 a -Fs(ichlo)p Black 9428 14428 a Ft(p)12110 15214 y Fx(shorthand)f(for)g -(iden)-31 b(tical)p Mahogany 372 w Fs(coq)p Black Fx(,)p -Mahogany 370 w Fs(isa)p Black Fx(,)p Mahogany 370 w Fs(hol)p -Black Fx(,)p Mahogany 370 w Fs(lem)p Black Fx(,)370 b(and)p -Mahogany 369 w Fs(ocaml)p Black 370 w Fx(homs)p Mahogany -696 16542 a Fs(ich)p Black 9428 15756 a Ft(p)12110 16542 -y Fx(shorthand)f(for)g(iden)-31 b(tical)p Mahogany 372 -w Fs(coq)p Black Fx(,)p Mahogany 370 w Fs(isa)p Black -369 w Fx(and)p Mahogany 370 w Fs(hol)p Black 369 w Fx(homs)p -Mahogany 696 17870 a Fs(ic)p Black 9428 17084 a Ft(p)12110 -17870 y Fx(shorthand)369 b(for)g(iden)-31 b(tical)p Mahogany -372 w Fs(coq)p Black 369 w Fx(and)p Mahogany 370 w Fs(isa)p -Black 369 w Fx(homs)p Mahogany 696 19199 a Fs(ch)p Black -9428 18413 a Ft(p)12110 19199 y Fx(shorthand)369 b(for)g(iden)-31 -b(tical)p Mahogany 372 w Fs(coq)p Black 369 w Fx(and)p -Mahogany 370 w Fs(hol)p Black 369 w Fx(homs)p Mahogany -696 20527 a Fs(ih)p Black 9428 19741 a Ft(p)12110 20527 -y Fx(shorthand)369 b(for)g(iden)-31 b(tical)p Mahogany -372 w Fs(isa)p Black 369 w Fx(and)p Mahogany 370 w Fs(hol)p -Black 369 w Fx(homs)696 23959 y(a)369 b(pro)31 b(duction)p -31 24401 37308 45 v Mahogany 696 25331 a Fs(isa)p Black -6092 24545 a Ft(p)8343 25331 y Fx(Isab)g(elle)369 b(output,)i(for)f(a)f -(non-free)g(\(meta\))j(pro)31 b(duction)p Mahogany 696 -26660 a Fs(coq)p Black 6092 25874 a Ft(p)8343 26660 y -Fx(Co)g(q)370 b(output,)h(for)e(a)g(non-free)h(\(meta\))h(pro)31 -b(duction)p Mahogany 696 27988 a Fs(hol)p Black 6092 -27202 a Ft(p)8343 27988 y Fx(HOL)369 b(output,)i(for)e(a)h(non-free)f -(\(meta\))i(pro)31 b(duction)p Mahogany 696 29316 a Fs(ocaml)p -Black 6092 28530 a Ft(p)8343 29316 y Fx(OCaml)371 b(output,)g(for)e(a)g -(non-free)h(\(meta\))h(pro)31 b(duction)p Mahogany 696 -30645 a Fs(tex)p Black 6092 29859 a Ft(p)8343 30645 y -Fx(L)8636 30418 y Fu(A)9124 30645 y Fx(T)9738 30883 y(E)10354 -30645 y(X)369 b(t)-31 b(yp)31 b(esetting)371 b(for)e(sym)-31 -b(b)31 b(olic)371 b(terms)p Mahogany 696 31973 a Fs(texlong)p -Black 3580 w Fx(t)-31 b(yp)31 b(eset)370 b(as)f(long)h(pro)31 -b(duction)p Mahogany 696 33301 a Fs(com)p Black 6092 -32515 a Ft(p)8343 33301 y Fx(commen)-31 b(t)371 b(to)f(app)31 -b(ear)369 b(in)h(L)19709 33074 y Fu(A)20197 33301 y Fx(T)20811 -33540 y(E)21426 33301 y(X)f(syn)-31 b(tax)371 b(de\014nition)p -Mahogany 696 34630 a Fs(order)p Black 6092 33844 a Ft(p)8343 -34630 y Fx(sp)31 b(ecify)369 b(order)g(of)g(argumen)-31 -b(ts)371 b(to)f(pro)-31 b(v)g(er)369 b(or)g(Ocaml)h(constructor)p -Mahogany 696 35958 a Fs(isasyn)p Black 6092 35172 a Ft(p)8343 -35958 y Fx(Isab)31 b(elle)369 b(mix\014x)i(syn)-31 b(tax)370 -b(output)p Mahogany 696 37286 a Fs(isaprec)p Black 3580 -w Fx(Isab)31 b(elle)369 b(mix\014x)i(syn)-31 b(tax)370 -b(precedence)e(string)p Mahogany 696 38615 a Fs(ich)p -Black 6092 37829 a Ft(p)8343 38615 y Fx(shorthand)h(for)h(iden)-31 -b(tical)p Mahogany 371 w Fs(coq)p Black Fx(,)p Mahogany -370 w Fs(isa)p Black 370 w Fx(and)p Mahogany 369 w Fs(hol)p -Black Fx(homs)p Mahogany 696 39943 a Fs(ic)p Black 6092 -39157 a Ft(p)8343 39943 y Fx(shorthand)369 b(for)h(iden)-31 -b(tical)p Mahogany 371 w Fs(coq)p Black 370 w Fx(and)p -Mahogany 369 w Fs(isa)p Black 370 w Fx(homs)p Mahogany -696 41271 a Fs(ch)p Black 6092 40485 a Ft(p)8343 41271 -y Fx(shorthand)369 b(for)h(iden)-31 b(tical)p Mahogany -371 w Fs(coq)p Black 370 w Fx(and)p Mahogany 369 w Fs(hol)p -Black 370 w Fx(homs)p Mahogany 696 42600 a Fs(ih)p Black -6092 41814 a Ft(p)8343 42600 y Fx(shorthand)369 b(for)h(iden)-31 -b(tical)p Mahogany 371 w Fs(isa)p Black 370 w Fx(and)p -Mahogany 369 w Fs(hol)p Black 370 w Fx(homs)696 46031 -y(a)369 b(pro)31 b(duction)370 b(of)g(the)f Fs(terminals)i -Fx(grammar)p 31 46474 44387 45 v Mahogany 696 47404 a -Fs(isa)p Black 3579 w Fx(Isab)31 b(elle)370 b(output,)h(for)e -(terminals)i(in)e(default)i(generated)e(Isab)31 b(elle)370 -b(mix\014x)g(declarations)p Mahogany 696 48732 a Fs(tex)p -Black 3579 w Fx(L)6311 48505 y Fu(A)6799 48732 y Fx(T)7413 -48971 y(E)8029 48732 y(X)f(default)i(t)-31 b(yp)31 b(esetting)371 -b(for)e(terms)p Mahogany 696 50061 a Fs(com)p Black 3767 -49275 a Ft(p)6018 50061 y Fx(commen)-31 b(t)371 b(to)f(app)31 -b(ear)370 b(in)f(L)17384 49834 y Fu(A)17872 50061 y Fx(T)18486 -50299 y(E)19102 50061 y(X)g(syn)-31 b(tax)370 b(de\014nition)696 -53492 y(a)p Mahogany 369 w Fs(defn)p Black Fx(,)g(b)31 -b(efore)369 b(the)p Mahogany 370 w Fs(by)p Black 31 53935 -33812 45 v Mahogany 696 54865 a(tex)p Black 6092 54079 -a Ft(p)8343 54865 y Fx(L)8636 54638 y Fu(A)9124 54865 -y Fx(T)9738 55103 y(E)10354 54865 y(X)g(t)-31 b(yp)31 -b(esetting)371 b(for)e(sym)-31 b(b)31 b(olic)371 b(terms)p -Mahogany 696 56193 a Fs(com)p Black 6092 55407 a Ft(p)8343 -56193 y Fx(commen)-31 b(t)371 b(to)f(app)31 b(ear)369 -b(in)h(L)19709 55966 y Fu(A)20197 56193 y Fx(T)20811 -56432 y(E)21426 56193 y(X)f(syn)-31 b(tax)371 b(de\014nition)p -Mahogany 696 57522 a Fs(isasyn)p Black 6092 56736 a Ft(p)8343 -57522 y Fx(Isab)31 b(elle)369 b(mix\014x)i(syn)-31 b(tax)370 -b(output)p Mahogany 696 58850 a Fs(isaprec)p Black 3580 -w Fx(Isab)31 b(elle)369 b(mix\014x)i(syn)-31 b(tax)370 -b(precedence)e(string)p Mahogany 696 60178 a Fs(lemwcf)p -Black 4161 w Fx(Lem)h(witness,)h(c)-31 b(hec)g(k,)370 -b(and)g(functions)g(sp)31 b(ec)368 b(for)i(indrelns)696 -62835 y(a)p Mahogany 369 w Fs(homs)p Black 370 w Fx(section)g(clause)f -(\(for)h(a)g(pro)31 b(duction)370 b(or)f(a)g(de\014nition\))p -31 63278 V 696 64208 a(as)g(in)g(the)h(ab)31 b(o)-31 -b(v)g(e)370 b(pro)31 b(duction)370 b(and)p Mahogany 370 -w Fs(defn)p Black 369 w Fx(forms)696 67639 y(a)f(group)h(of)f(defns,)h -(after)f(the)p RoyalBlue 370 w Fs(::=)p Black 31 68082 -36155 45 v Mahogany 696 69012 a(coq-universe)p Black -2658 w Fx(Co)31 b(q)370 b(univ)-31 b(erse)369 b(\(e.g.)i -Fs(Type)p Fx(\))f(for)f(the)h(represen)-31 b(tation)370 -b(t)-31 b(yp)31 b(e)p Black 24533 77841 a(58)p Black -eop end -%%Page: 59 59 -TeXDict begin 59 58 bop Black Black 664 -771 a Fx(an)p -Mahogany 370 w Fs(embed)p Black 369 w Fx(section)p 0 --328 42184 45 v Mahogany 664 602 a Fs(isa)p Black 10793 -w Fx(em)-31 b(b)31 b(edded)370 b(Isab)31 b(elle)369 b(output)p -Mahogany 664 1930 a Fs(coq)p Black 10793 w Fx(em)-31 -b(b)31 b(edded)370 b(Co)31 b(q)370 b(output)p Mahogany -664 3258 a Fs(hol)p Black 10793 w Fx(em)-31 b(b)31 b(edded)370 -b(HOL)f(output)p Mahogany 664 4587 a Fs(ocaml)p Black -9631 w Fx(em)-31 b(b)31 b(edded)370 b(OCaml)h(output)p -Mahogany 664 5915 a Fs(tex)p Black 10793 w Fx(em)-31 -b(b)31 b(edded)370 b(L)18721 5688 y Fu(A)19209 5915 y -Fx(T)19823 6153 y(E)20438 5915 y(X)g(output)p Mahogany -664 7243 a Fs(tex-preamble)p Black 5564 w Fx(em)-31 b(b)31 -b(edded)370 b(L)18721 7017 y Fu(A)19209 7243 y Fx(T)19823 -7482 y(E)20438 7243 y(X)g(output,)g(app)31 b(earing)371 -b(in)e(the)g(L)34202 7017 y Fu(A)34690 7243 y Fx(T)35304 -7482 y(E)35920 7243 y(X)g(pream)-31 b(ble)p Mahogany -664 8572 a Fs(coq-lib)p Black 8469 w Fx(do)370 b(not)g(generate)g -(de\014nitions)g(for)f(the)h(listed)g(help)31 b(er)369 -b(functions)p Mahogany 664 9900 a Fs(isa-auxfn-proof)p -Black 3821 w Fx(Isab)31 b(elle)370 b(pro)31 b(of)369 -b(script)p Mahogany 664 11229 a Fs(isa-subrule-proof)p -Black 2659 w Fx(Isab)31 b(elle)370 b(pro)31 b(of)369 -b(script)664 13332 y(in)h(a)f(subrule,)g(substitution)i(or)e(function)i -(de\014nition)p 0 13775 24138 45 v Mahogany 664 14704 -a Fs(isa-proof)p Black 2658 w Fx(Isab)31 b(elle)370 b(pro)31 -b(of)369 b(script)0 16708 y(\(1\))411 b(This)e(is)g(o)31 -b(ccasionally)412 b(useful)e(to)g(w)-31 b(ork)410 b(around)f(a)h(clash) -g(b)31 b(et)-31 b(w)g(een)410 b(a)f(meta)-31 b(v)-61 -b(ar)411 b(or)e(non)-31 b(terminal)412 b(primary)d(ro)31 -b(ot)0 18036 y(and)369 b(a)h(pro)31 b(of)369 b(assistan)-31 -b(t)371 b(sym)-31 b(b)31 b(ol,)371 b(e.g.)f Fs(value)g -Fx(in)f(Isab)31 b(elle)370 b(or)f Fs(T)g Fx(in)g(HOL.)0 -22361 y FC(26)1793 b(Reference:)798 b(The)598 b(Ott)h(source)f(grammar) -0 25450 y Fx(This)370 b(is)f(automatically)374 b(generated)c(\(b)-31 -b(y)370 b Fs(mly-y2l)p Fx(\))g(from)g(the)f Fs(ocamlyacc)i -Fx(grammar)f(for)f(Ott.)0 27442 y(The)g(lexing)i(of)f(Ott)g(source)e -(\014les)h(is)g(con)-31 b(text-dep)31 b(enden)-31 b(t;)372 -b(this)e(do)31 b(es)369 b(not)g(sho)-31 b(w)370 b(that.)0 -29435 y(Not)462 b(ev)-31 b(erything)463 b(in)e(the)g(grammar)i(is)e -(fully)h(supp)31 b(orted)461 b(|)g(in)g(particular,)486 -b(option)463 b(elemen)-31 b(t)463 b(forms,)484 b(non-dotted)0 -30763 y(elemen)-31 b(t)371 b(list)f(forms,)g(the)f(three)g -Fs(names)h Fx(distinctness)f(forms)h(of)g(bindsp)31 b(ecs,)368 -b(and)i(con)-31 b(text)371 b(rules.)0 35088 y FC(27)1793 -b(Reference:)798 b(Examples)0 38177 y Fx(The)369 b(pro)61 -b(ject)371 b(w)-31 b(eb)369 b(page)p Black Black 4428 -40169 a Fs(http://www.cl.cam.ac.uk/users/pes20/ott/)0 -42162 y Fx(giv)-31 b(es)269 b(a)g(v)-61 b(ariet)-31 b(y)270 -b(of)f(examples.)460 b(Some)270 b(of)f(these,)289 b(and)269 -b(additional)i(small)f(examples,)291 b(are)268 b(included)h(in)g(the)g -(distribution)0 43490 y(in)361 b(the)g Fs(tests)h Fx(directory)-92 -b(.)490 b(T)-31 b(ypically)364 b(they)d(can)g(b)31 b(e)361 -b(built)h(using)f(the)g Fs(Makefile)h Fx(in)f(the)h Fs(ott)f -Fx(directory)-92 b(,)363 b(e.g.)f(t)-31 b(yping)0 44819 -y Fs(make)582 b(test10)370 b Fx(or)f(\(more)h(generally\))h -Fs(make)582 b(tests/test10.out)p Fx(\))371 b(there.)664 -46800 y Fs(test10.ott)12953 b Fx(un)-31 b(t)g(yp)31 b(ed)370 -b(CBV)g(lam)-31 b(b)31 b(da)664 48128 y Fs(test10st.ott)11791 -b Fx(simply)370 b(t)-31 b(yp)31 b(ed)370 b(CBV)g(lam)-31 -b(b)31 b(da)664 49457 y Fs(test8.ott)13534 b Fx(ML)369 -b(p)31 b(olymorphism)371 b(example)664 50785 y Fs(test7a.ott)12953 -b Fx(POPLmark)370 b(Fsub)e(example)j(\(without)h(records\))664 -52113 y Fs(test7b.ott)12953 b Fx(POPLmark)370 b(Fsub)e(example)j -(\(with)g(records\))664 53442 y Fs(leroy-jfp96.ott)10048 -b Fx(Lero)-31 b(y)369 b(mo)31 b(dule)370 b(system)664 -54770 y Fs(lj.ott)15277 b Fx(LJ:)369 b(Ligh)-31 b(t)g(w)g(eigh)g(t)373 -b(Ja)-31 b(v)-61 b(a)664 56098 y Fs(test7t.mng)12953 -b Fx(whole-do)31 b(cumen)-31 b(t)372 b(tex)d(mng)h(source)19427 -57427 y(\()p Fs(make)582 b(test7afilter)371 b Fx(to)f(build\))664 -58755 y Fs(test7tt.mng)12372 b Fx(fragmen)-31 b(t)371 -b(tex)f(mng)g(source)664 60084 y Fs(test11.ott)12953 -b Fx(subrule)369 b(example)664 61412 y Fs(test12.ott)12953 -b Fx(top)31 b(ological)373 b(sort)c(example)664 62740 -y Fs(test13.ott)12953 b Fx(small)371 b(bindsp)31 b(ec)368 -b(fragmen)-31 b(t)664 64069 y Fs(test10st_snapshot_out.thy)4238 -b Fx(snapshot)370 b(of)f(generated)h(Isab)31 b(elle)370 -b(from)f Fs(test10st.ott)664 65397 y(test10st_metatheory_autoed.thy) -1333 b Fx(Isab)31 b(elle)370 b(pro)31 b(of)369 b(script)g(for)g(t)-31 -b(yp)31 b(e)370 b(preserv)-61 b(ation)369 b(and)h(progress)664 -66725 y Fs(test10st_codegen.thy)7143 b Fx(Isab)31 b(elle)370 -b(co)31 b(de)369 b(generation)i(script)e(for)g(reduction)664 -68054 y Fs(test10_isasyn.ott)8886 b Fx(Isab)31 b(elle)370 -b(mix\014x)g(syn)-31 b(tax)370 b(example)664 69382 y -Fs(test10st_metatheoryScript.sml)1914 b Fx(HOL)369 b(pro)31 -b(of)370 b(script)f(for)g(t)-31 b(yp)31 b(e)370 b(preserv)-61 -b(ation)369 b(and)g(progress)664 70710 y Fs(test17.10.ott)11210 -b Fx(list)370 b(comprehension)g(examples)p Black 24502 -77841 a(59)p Black eop end -%%Page: 60 60 -TeXDict begin 60 59 bop Black Black 31 -594 a Fx(The)355 -b Fs(examples/tapl)g Fx(directory)g(con)-31 b(tains)355 -b(sev)-31 b(eral)355 b(examples)g(tak)-31 b(en)355 b(from)g(the)f(b)31 -b(o)g(ok)354 b(`T)-31 b(yp)31 b(es)355 b(and)f(Programming)31 -735 y(Languages')523 b(b)-31 b(y)520 b(Benjamin)i(Pierce.)947 -b(The)521 b Fs(make)g Fx(targets,)559 b(listed)522 b(b)31 -b(elo)-31 b(w,)560 b(com)-31 b(bine)521 b(Ott)h(source)e(\014les)g -(follo)-31 b(wing)31 2063 y(roughly)371 b(the)e(Tink)-31 -b(erT)g(yp)31 b(e)371 b(comp)31 b(onen)-31 b(t)371 b(structure)d(used)h -(in)g(T)-92 b(APL.)696 3983 y Fs(sys-bool)8884 b Fx(b)31 -b(o)g(oleans)370 b(\(p34\))696 5311 y Fs(sys-arith)8303 -b Fx(arithmetic)372 b(expressions)c(\(p41\))696 6640 -y Fs(sys-untyped)7141 b Fx(un)-31 b(t)g(yp)31 b(ed)370 -b(lam)-31 b(b)31 b(da-calculus)372 b(with)e(b)31 b(o)g(oleans)696 -7968 y Fs(sys-puresimple)5398 b Fx(simply-t)-31 b(yp)31 -b(ed)371 b(lam)-31 b(b)31 b(da-calculus)696 9296 y Fs(sys-tybool)7722 -b Fx(t)-31 b(yp)31 b(ed)370 b(b)31 b(o)g(oleans)696 10625 -y Fs(sys-sortoffullsimple)696 11953 y(sys-roughlyfullsimple)696 -13281 y(sys-puresub)696 14610 y(sys-purercdsub)31 16552 -y Fx(Other)369 b(examples)i(can)e(b)31 b(e)369 b(found)g(on)h(the)f(lo) -31 b(cally-nameless)372 b(bac)-31 b(k)g(end)370 b(w)-31 -b(eb)370 b(page.)31 20877 y FC(Ac)-50 b(kno)g(wledgemen)g(ts)31 -23965 y Fx(W)-92 b(e)472 b(thank)g(the)g(Ott)h(users)d(for)i(their)g -(feedbac)-31 b(k,)499 b(esp)31 b(ecially)473 b(Matthew)g(P)-31 -b(arkinson;)525 b(the)472 b(other)g(mem)-31 b(b)31 b(ers)472 -b(of)g(the)31 25294 y(POPLmark)367 b(team,)h(esp)31 b(ecially)367 -b(Benjamin)g(Pierce,)f(Stephanie)h(W)-92 b(eiric)-31 -b(h,)367 b(and)e(Stev)-31 b(e)367 b(Zdancewic,)h(for)d(discussions;)31 -26622 y(and)304 b(Keith)g(W)-92 b(ansbrough,)317 b(Matthew)304 -b(F)-92 b(airbairn,)317 b(and)304 b(T)-92 b(om)304 b(Wilkie,)318 -b(for)303 b(their)h(w)-31 b(ork)304 b(on)f(v)-61 b(arious)304 -b(Ott)g(predecessors.)31 28615 y(W)-92 b(e)463 b(ac)-31 -b(kno)g(wledge)465 b(the)e(supp)31 b(ort)463 b(of)g(EPSR)-31 -b(C)464 b(gran)-31 b(ts)463 b(GR/T11715,)489 b(EP/C510712,)i(and)463 -b(EP/F036345,)491 b(a)463 b(Ro)-31 b(y)g(al)31 29943 -y(So)31 b(ciet)-31 b(y)513 b(Univ)-31 b(ersit)g(y)512 -b(Researc)-31 b(h)510 b(F)-92 b(ello)-31 b(wship)513 -b(\(Sew)-31 b(ell\),)549 b(an)511 b(EPSR)-31 b(C)512 -b(Leadership)e(F)-92 b(ello)-31 b(wship)512 b(\(Sew)-31 -b(ell\),)549 b(EPSR)-31 b(C)31 31271 y(Programme)333 -b(Gran)-31 b(t,)338 b(EP/K008528/1)e(REMS)330 b Fo(R)-28 -b(igor)-57 b(ous)360 b(Engine)-57 b(ering)364 b(of)c(Mainstr)-57 -b(em)361 b(Systems)p Fx(,)338 b(and)331 b(ANR)f(gran)-31 -b(t)31 32600 y(ANR-06-SETI-010-02)374 b(\(Zappa)c(Nardelli\).)31 -36924 y FC(References)p Black 31 40013 a Fx([ABF)2675 -39611 y Fu(+)3411 40013 y Fx(05])p Black 1200 w(Brian)456 -b(E.)f(Aydemir,)478 b(Aaron)455 b(Bohannon,)478 b(Matthew)457 -b(F)-92 b(airbairn,)477 b(J.)455 b(Nathan)h(F)-92 b(oster,)476 -b(Benjamin)457 b(C.)6024 41341 y(Pierce,)643 b(P)-31 -b(eter)588 b(Sew)-31 b(ell,)644 b(Dimitrios)590 b(Vytiniotis,)645 -b(Geo\013rey)587 b(W)-92 b(ash)-31 b(burn,)642 b(Stephanie)589 -b(W)-92 b(eiric)-31 b(h,)642 b(and)6024 42670 y(Stev)-31 -b(e)437 b(Zdancewic.)692 b(Mec)-31 b(hanized)436 b(metatheory)i(for)e -(the)g(masses:)626 b(The)436 b(POPLmark)h(Challenge.)692 -b(In)6024 43998 y Fo(Pr)-57 b(o)g(c.)397 b(TPHOLs,)f(LNCS)h(3603)p -Fx(,)369 b(2005.)p Black 31 45991 a([F)-31 b(GL)2591 -45589 y Fu(+)3326 45991 y Fx(96])p Black 1285 w(C)g(\023)-523 -b(edric)373 b(F)-92 b(ournet,)371 b(Georges)g(Gon)-31 -b(thier,)372 b(Jean-Jacques)f(L)-31 b(\023)-523 b(evy)-92 -b(,)373 b(Luc)e(Maranget,)h(and)g(Didier)f(R)-31 b(\023)-523 -b(em)-31 b(y)-92 b(.)498 b(A)6024 47319 y(calculus)370 -b(of)g(mobile)h(agen)-31 b(ts.)493 b(In)368 b Fo(Pr)-57 -b(o)g(c.)397 b(CONCUR)f('96,)h(LNCS)f(1119)p Fx(,)369 -b(1996.)p Black 31 49312 a([Ler96])p Black 2655 w(Xa)-31 -b(vier)432 b(Lero)-31 b(y)-92 b(.)674 b(A)430 b(syn)-31 -b(tactic)433 b(theory)e(of)g(t)-31 b(yp)31 b(e)431 b(generativit)-31 -b(y)433 b(and)e(sharing.)674 b Fo(Journal)453 b(of)f(F)-85 -b(unctional)6024 50640 y(Pr)-57 b(o)g(gr)g(amming)p Fx(,)372 -b(6\(5\):667{698,)j(1996.)p Black 31 52632 a([LP03])p -Black 2828 w(Mic)-31 b(hael)364 b(Y.)e(Levin)g(and)g(Benjamin)i(C.)f -(Pierce.)479 b(Tink)-31 b(ert)g(yp)31 b(e:)491 b(A)362 -b(language)i(for)e(pla)-31 b(ying)364 b(with)f(formal)6024 -53961 y(systems.)492 b Fo(Journal)396 b(of)g(F)-85 b(unctional)396 -b(Pr)-57 b(o)g(gr)g(amming)p Fx(,)372 b(13\(2\),)g(Marc)-31 -b(h)369 b(2003.)p Black 31 55953 a([Pie02])p Black 2721 -w(Benjamin)i(C.)f(Pierce.)492 b Fo(T)-85 b(yp)-57 b(es)396 -b(and)g(Pr)-57 b(o)g(gr)g(amming)398 b(L)-57 b(anguages)p -Fx(.)493 b(MIT)368 b(Press,)h(2002.)p Black 31 57946 -a([SSP07])p Black 2290 w(Rok)383 b(Strni)-58 b(\024)-495 -b(sa,)387 b(P)-31 b(eter)382 b(Sew)-31 b(ell,)388 b(and)382 -b(Matthew)i(P)-31 b(arkinson.)532 b(The)382 b(Ja)-31 -b(v)-61 b(a)383 b(Mo)31 b(dule)383 b(System:)519 b(core)382 -b(design)6024 59274 y(and)348 b(seman)-31 b(tic)348 b(de\014nition.)457 -b(In)346 b Fo(Pr)-57 b(o)g(c)g(e)g(e)g(dings)378 b(of)e(OOPSLA)f(2007,) -k(the)c(22nd)g(A)-28 b(CM)375 b(SIGPLAN)h(Inter-)6024 -60603 y(national)301 b(Confer)-57 b(enc)g(e)303 b(on)e(Obje)-57 -b(ct-Oriente)g(d)302 b(Pr)-57 b(o)g(gr)g(amming,)322 -b(Systems,)f(L)-57 b(anguages)301 b(and)g(Applic)-57 -b(ations)6024 61931 y(\(Montr)g(e\023)-566 b(al\))p Fx(,)369 -b(Octob)31 b(er)369 b(2007.)493 b(15pp.)p Black 31 63923 -a([SZNO)3320 63522 y Fu(+)4057 63923 y Fx(07])p Black -554 w(P)-31 b(eter)306 b(Sew)-31 b(ell,)319 b(F)-92 b(rancesco)304 -b(Zappa)i(Nardelli,)319 b(Scott)306 b(Ow)-31 b(ens,)318 -b(Gilles)305 b(P)-31 b(eskine,)319 b(Thomas)306 b(Ridge,)319 -b(Susmit)6024 65252 y(Sark)-61 b(ar,)423 b(and)413 b(Rok)f(Strni)-58 -b(\024)-495 b(sa.)620 b(Ott:)579 b(E\013ectiv)-31 b(e)413 -b(to)31 b(ol)414 b(supp)31 b(ort)412 b(for)g(the)g(w)-31 -b(orking)414 b(seman)-31 b(ticist.)621 b(In)412 b Fo(Pr)-57 -b(o-)6024 66580 y(c)g(e)g(e)g(dings)446 b(of)d(ICFP)f(2007:)603 -b(the)443 b(12th)f(A)-28 b(CM)442 b(SIGPLAN)i(International)f(Confer) --57 b(enc)g(e)445 b(on)e(F)-85 b(unctional)6024 67909 -y(Pr)-57 b(o)g(gr)g(amming)398 b(\(F)-85 b(r)-57 b(eibur)g(g\))p -Fx(,)370 b(Octob)31 b(er)370 b(2007.)493 b(12pp.)p Black -31 69901 a([SZNO)3320 69499 y Fu(+)4057 69901 y Fx(10])p -Black 554 w(P)-31 b(eter)306 b(Sew)-31 b(ell,)319 b(F)-92 -b(rancesco)304 b(Zappa)i(Nardelli,)319 b(Scott)306 b(Ow)-31 -b(ens,)318 b(Gilles)305 b(P)-31 b(eskine,)319 b(Thomas)306 -b(Ridge,)319 b(Susmit)6024 71229 y(Sark)-61 b(ar,)329 -b(and)318 b(Rok)g(Strni)-58 b(\024)-495 b(sa.)408 b(Ott:)468 -b(E\013ectiv)-31 b(e)319 b(to)31 b(ol)319 b(supp)31 b(ort)318 -b(for)f(the)i(w)-31 b(orking)319 b(seman)-31 b(ticist.)410 -b Fo(Journal)348 b(of)6024 72558 y(F)-85 b(unctional)379 -b(Pr)-57 b(o)g(gr)g(amming)p Fx(,)356 b(20\(1\):70{122,)j(Jan)-31 -b(uary)351 b(2010.)461 b(In)-31 b(vited)350 b(submission)h(from)f(ICFP) -f(2007.)p Black 24533 77841 a(60)p Black eop end -%%Trailer - -userdict /end-hook known{end-hook}if -%%EOF diff --git a/vendors/ott/built_doc/top2001.png b/vendors/ott/built_doc/top2001.png deleted file mode 100644 index 19eaccf5beda62e464505ab1d35a09aaffc1c79a..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 2857 zcmeAS@N?(olHy`uVBq!ia0y~yV4TXp!061v%)r3FAk=5Yz`!6H;1lBd|Nnnwd4-U` zplw^Xwl=qf1_tG3Wq;E?+sDAbz*rLG7tG-B>_!>`1J@x>7srr_IdA9Y_Pt)i*U&lP zkM-h-X`J87-6lpHx_jVm!*8XH|5amdtK@o|G{$BMy6JO>laAEsl}!eG29rz;t1Y!$@*SgZzE0n;h3R>sxAp>!u21<-RQ7M` zS|z&r*NppxecMA@%O4#2Yxgagul~$~gKhcJZtwf!YQ!wpzD;O%Na4$^=P})4$WZCL zFhZPZ&KE}UMqVV9X0{pasK^;7%4Hg8Ur zSn-Dadudxz*CLJmOS;P5dp^*d|ETSU9{0a*%u6OctXfqg{7Z)Q%Cya%q73CX%V#cr z)?a?b=oe4hKc|8_kL?~D=KeqF%Wc83Uu;V%WF{ZV%;~x-m2Sj$pZj3QowYvsy}WnK zcrV9q>bTQBd8;+svZQ6EbKB?0@n4+wV|uP-pPaZ5FLBr5c7)ju=I*-RI}9y8>#p#9I+a@Gklt0~T ztNQ$4N1;RKUxU;CZgkkkefqv;pZu?r^3@MMGL>Drsy}bW(R{B9>neU84=I@+{Ih;S z`iYS8tw+B!8b5Dd@~7HhqR#K&NBz0Iw!RyR_it(~pTa79a-!dx{@$A#m$SZc`4n+~ z%JDf*HYhXa)H{CqI?Zce4}bfc8<&}$?>}yEszK;?Vn|Yj`$IRDX@7qOgAyLcw6F&* z_g2pR^Xy`AJl_%VPa{8!f>F?0fFPWTY z6gy{&*yZ0d_D+#|e~Vi!XiHM;S@WQ`_pkph|9y+`{ZY5-pYLy-Tw4~Y)wM_ijl5?)lJKK0n`T(5wy$&kbUZ=pm6ggeujmq4q1g5(B?c2A zjG7H^uFvNJ#ps4DOzNNf-ln()ionrRlU@DtnrrVV*1g-5pYpezbL-Nk^h>D;xy8zN z41cYTe!rusTs&va52uLeGjG~oUraeZb$9lIyvI*BYx0Zw-Hy?E0w>Z)y za6swDyh}zBo3t%%8Q-XIJQF9A5z7|Y%KhWEV#^2r8HXz#uiv|Y_3?|$37-va38}of zUU!sP@!s8nEkBZ!)vPL2_b+ML`$cT`k!f~WT3m+@iJc0aBrr#&$nCwC?uKh8rPg=q zt`S&2XUY=pw=;4!PEjp9mwZi3gEv_uGH?US-?7P4~4+?#jvKpC*bTLOA~TBJ=fMw{Fvws+LUpucE(&f8PDn(kihR zJDnv`eSzQYt>!-|wHV_ph~o#$lh0N6v2k`)kRp zxnWt%g+p%Xc%g%yTVH5QFrhYhQ`L9q_pmnO#Epw^v zZsGOc4XqyBFnMk3=cspCKVVkq))P-F&J_wR+vJqDzvfho{jmcAXXgGc3R}43U~z}% z74JhKVI8_PTz=NODnj4gx!!F3-Sy9}DO_DAdz1Hai!JZn`E*&fH8{Tq8Ae1keqK@Z z@22yo$(L{CI3=aYn^*}=nLj6N>hw+1drxNirfmd~ljhF}D``iqyXUw^_L{}~TlJr(pbIY}%(VNyhzk0Le?B!|76$uhQ>)vh_wCT%x(#LXLeD=>8 zmh*=C2YGIC$err1S?^HbTft>(&aq9Y;>3Xr?kTgT>{36Io>$(Kb0^995{I0h&c>rP zk6y2}@Ht=mIEj1H47U$=a#kkVd{dk!opJDqaz#qt_8UxFdHyUpp$Y=6raQ_0<3G%_}DF?_YoA>GmUwcD-5d@#n9VchS5T zua|S5Sg`Zg@2f2z-XwndDm+#EUtRFi`cGdkKKc8Xt4Z*i@y}nL8zX-F_Wka10F+&AspCv#x>tB=dy#Jamf%B7#m zpoYiAG;7Q23(d`>j=JmbvCXoFc{-1{b4R;u~kD=vZ-|v5C z6nURV%Fc7mQG9VcdS~+P^E>4FT{+(sO600t{HS0#H`MRwUWW69%d@VwSoAR(t=}{G zIg^Xv3xoNgA!lPtjQskxG%7_`u4;Vz^3miI+e(fyo&L7wfw8%b{vY|8mxPls%;)GfH?^ziqMwC)?*#Fz9$voEk+ZvR}FJJ#FpzsL5A zYx;HAa}Ka+?URfQQ+cj@n(^|K%l@HX+xpM2-+HyPCGpJf6GaVNLC${l$7gDQw3>8(Y~i&hkb=!&WUNAZ>2WcMsGXpdTVp)Z1YX2#vL!?PyAzopr09GxaiU0rr diff --git a/vendors/ott/built_doc/top2002.png b/vendors/ott/built_doc/top2002.png deleted file mode 100644 index 043199a924f2959ba983e842908805f6e912a188..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 385 zcmeAS@N?(olHy`uVBq!ia0y~yVCZ0AU=UE;&aiZ`m#=82(83=aGODcX5}n*XH1vXmTJ0aZglMpCzI0<=rFH#Z@gL!L zqSj3)NQ~e9ZKiBn@cgR{zZ6bPOj7Fj88QF(g8q=n0+kXXCns{|Z82s&CAg8-cA~qp z)*0&czWVm&Y&&`T$1#qMZ{lx&0-3?n)z4*}Q$iB}d?=(H diff --git a/vendors/ott/built_doc/top2003.png b/vendors/ott/built_doc/top2003.png deleted file mode 100644 index fb96cebf06a1633371f2d9a6063376fdc251f232..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 416 zcmeAS@N?(olHy`uVBq!ia0y~yV3^Cmz#z!P%)r2~%gXH;0|Nt3fKQ0)|NsBDZQZIY zuaKLS{W5RIQw9bG#*!evU=0r zWnF$5+ds)b)2Q5Y(I5v9{=Q^QvI)l4G;BDNoqg zAYCD38r;G+`Skpc+>P5JwKJwPE^r|SK>^qt{U0Y8|&b&|>wj?Jl>F$M}x$a(XX8gQ( z?P{x8rss2!mmmIAx<8-a_4K1pmDQXVtL@8{=KmB@i+&U_wO;t*@}>3CyLP@&za;;d Zm$$}|v+6+iDFy}x22WQ%mvv4FO#tS$j;H<`B7&= ziao1S^p&X_9T3l{gUWnG3Ea)sgCBz1%7Q84Hy_SUI-um UpZHvrfq{X+)78&qol`;+0QZ4ThX4Qo diff --git a/vendors/ott/built_doc/top2005.png b/vendors/ott/built_doc/top2005.png deleted file mode 100644 index 24037abdae1489bd31a5cd01d324bef624d0d5ef..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 1202 zcmeAS@N?(olHy`uVBq!ia0y~yU<_hlVCZ6DW?*38dU#)pfq{WPz$e7@|Ns9XfkE50 zZdI07$j!>GE`7R-fq{XsB*-tA!Qt7BGzJEiKu;IPkcv5P=P>rY*5GNI__$f&6r<8x z>jV33-qkPLy3ly8z%8SzerG*uR+$venp7|2A@kw3l-YqPU@!lEVD%WAV^UN73cOPItI4qZ{oNg>)igYoGw|FNj z`8%x1fHPazl~*Cfa)aB`W8z{aYRZ#Z?h9SJG=GJnks;XI{XDa3_aD3Bds)3c zC&8jZKbLS$+^li9OY)kQq_0|rpW~C4Eqm3(N)p#`UYxW*^CZhz%`1l_zpDPO(0`x$ zI*cZAUg=Zaj8w zt458}^+g-MM~VECo^ox`hnM|z*Bk=652@R%ew5LvZ#s|np352Mf(`4wGXzgFT)e&L zQ1bn7tMtqr+r>5@LZ!P^(B|P}-SQblehW{BsLJsFH1(3yQ?2bOEy&(I$8YAcrxq`w z4qJ(A-|1a@wBz8u{q3uIo*G^Y%&A#*)kxLb_y@VA%F*6ySKd$x-i@YF53C~xU+miuj;q_X&?H0dq(>+Akj#ahbEYMm%`J8gEb z@s8hT4bJNKJ4Wnn>$&1@a(hcv-ra{^HQwJyi~hFue&3$xXS;Zxa#!z=*b*k*q7tT% zu{&-uOk}*y+x9ZY%G!zn15W z`hQk_VRq^1$!VwFe>vK1*}Z1(zAFK1y)y&u2L)?wyX%mw?6v)w-5!y1ZA=D2St~5N`o{7 z*eLh*e3fzZ^!j<`b~egpmm;Q%*QYgX7c(&Z&-n1hjK`8@k2fkPqlp& ze}3#c$JQPHL&c6yTy?JM(#(yXt4l6q2-UZUD?I#|)bQT)%tr|ke#X-}?k5yhNN(9s z7@MuBPS;fA)yfysvC8eL?=wo61&Tsm=wfkJYmhl$coL1TRYJQ;4 zAN{YzrSURhHs&rjwfFt;{5ogy^Ysf-Q$ycQ`F?KJcb<0Jn#{5Tr;mr9`m=?dm;Zpp zB29ZkxuXutyv%x=nhfT&9+9qCyg;GnRQkP*$D^OhwJBNOyl}_!8I$tD&FX%$jdn>y zIqZG5P(raxtVj9RyT~_7WJDLWXOv4e8SV`JYOqR9Yv$XtznDMq^qi8P5gK=MtBXk6 zgKqvmq18((T}n^NU)>x$CG4hnbKqBj9TrhruWw0zv*}r+$c>F@lYT}1cziO@{`9`y z#YxZap1s51CxpN4Mx?>H zLxJ}0k9$l{#`b=GSk)1bcg4c^@s3M{>CawmKIXXYx5EY@F8&(R+m|h_d}|DIn%FqK zH2iUd?ISM@vk7ZsdzDM&JHng}GWy-TYN6Cwp*rPzcC{~mLd`XcQu(!lT>WpZ&snWy;AJ!isj{S{A}C1;)}$%T7HA zz3^W4bb;N=`V;D@Q{Nu{ll@R}ifGm>xfk;V<_dq={UUQ(;iRI>>(=@weg;c9&puSJ zsLY{juiYGKEWDk2OFm?7;C->Qz2wI6>L0wlZOIR` z>H@77KCCc*%o|d4qx+oVLf%H-53{YT80VajW~_X$Zo6Drn-fQI@SZ>pE$KD-ez8$E zIW@K&-X*`Qra!rpM{lM6zt#lFB2V_txQri5x_P=AvpfW*ZP$v~dDOexox|&3pKKZ{ z*B0BjuL+Mf9hI4*UZA+<(jLJ&9UDQAX?Nx}xyeKq+f3G6>8#9u-Sj~+gWr8l-uYre z`CB?y99CMQ{%V70oywgk8OF&IuJvX<`sOm%kAd50%9V`*4pYs!^lociS;$qr&-n^K0%N*VXF%x_ZEO$JMsPS0j>QV0&tG3O9dz09er5bgL=fh>sId65jyzB&Dv2gO9>6a$wp zSIIx_8}raodV<=kKh4RC8mmQY!zvb5-wA!SbY*!&UGwo)wHMde|Fo+c9`w$*AQyG_ z3Du1jn6#L?1|Vf z{WFPse(mF4eCWRuqul)u*57LQy?$&=sC}mR`Td3WX|wHr&))r?XTJY}lAOmbd-w5& z*!#;~7H>L!>n!`#fcr;31Wmd2opIW!Gkfw*KYg{(Xr}xgwFlGX)|#8Zz#QiMs8!-M zv*QH1tQEO_uhZ1sFtPr?1@o1k9L;C4u{^8FE&Zjq^83Y2l3cgH*xorDK6B*@p=m!G zcDy*GZ1d&I4v=hed;gk>l@&L>hkoDnKQ`n>w4-yT$upa@wIZdz1Xn6+=Cj7B#;LEC z3t0dAzL|dM)BHy>e!U1&6Hc95=klr|QHIY&vwQWK7>3eK4NtAOPueX=G=6sY+;3*y zjT^o=a7&ml9`-%ta{7yNP`ka6i;6SNqH^7RTV-ZxueNIJ zp2MHDWpiokb_c`1T0i5?zjR-sCoA>nJzK{m(dUgl1>bL+>16MVfAn4{!zF0v4E+Q7 zEo~k$Qw{nTY_tsiKH*i*vGZDgJFcj=u3`(6d!+hdr`?(x>NDS*iR5eiclFr(72UzX z^`?4y=`J>^F*~dU(Yp_{F(Of*ro6Pxc0hud!=O-{&9|aI#*%h zCtlaxeIf64Jf7!=edT(+zTma@B&WsmX1BY_a88ZhsvR?OrDetHLx(}0jj(m9OsdN5*=dRrj&HDS#)CV%;KZzAT zJ7;;C--cInkAC`bckxr{rSB6fW9yv3;Be+c4~rGuQ=VHL3Ou&?abMl%xnYM5J{QYA z)OdWdF-Yr`a><^5LGBT0HuhI|UwBDN{#~FfV-&~8Rk~S2!pZG?Y0JU88-!;Xafv>u z-EO4M@EWIi#cnHpW%VB5oqfn5`PsXN4;T0f>zA}RCL2#T za?-2+mzLLZ{{_eTp7TrpP43&U5CR@*sx?iNkTKYer0 zO5c`Kxhlnmdy?fkzRy?g^55p~tzQ)PbN+nRrA=O05s95s91R8A#P@2JC(BMWouFm- zL*4avPoT?I=Yvx@_qt_kb*-_{5_xeUyOk-HV`-CDrlfLLRA1+eLyfCu2)C-mc75~w z$>W{>K>m&QMf>InPkQ#IXj7j+2Sq!(}E5%ajx5Q@WBF!zn8z%jbXRY7zUy}zH;oJRZO31G zG8S{fxNK8n`4<0v@ACam=(D!AHvh(yr4!^-Xa8J~eBH_Y)XW=7&&n0#ck@qYYt8b% zA{@KYzGc_BE0dEvl2UK1cA4FH)2MW&+Oh?anR@)ovvf!-un9e ziWRr#Kk#7%}@(+iAGo6J3_^EJ4qf1l^xEBjVXs+zI1u8UE5 zkzb&)=s9WS=9JFOf-5TAzD_^9f>Z6wL$#y}o-z_0n>!Z^SbgdH?)q>c2iwtWa-WYC zaJ##TADX+^O=@44N@1T;SR2jf{{@T|C3QE!sls!>Y{- zW|nFRIEn8>U2MiGKUE zdP%^lMxTX=ceN^a2yQajJ0)W7ugO0iSI3pkRht<#bJxtcvNa#F=Y2BGuruAs`E{j5 z!u>SAD&K|v7F?(5o@QiZWbDxTa*y=}fBWn67mskxUh$>RW$)t$rAf+#*CwtomiqcN zFgQHzx22T91LfnUrV{rYDna?VVD4rv?U2|Lx*c zqIA@>HUDk(n?t+5w)6IVFSyOq`%B&FeQZNpo9@EzdI#!O%--qr^Y?9u<#`gfi<0(y z5H2fJs{F+_KY7l+pLvPx8+Enaxb68q9a%Wx6R+RCm$Sc@_pEr{ao@S;vbp};xv?pK zew595Ch_B}-TxlJjW!yVM=Z9!m+g2y=|HAY$=I)x{axh$$wVYf+I?M%mvQM%-O^d#js&$%kGNMCHp!q{|6%8@EjyMkdKs)# z`Z6xI?3>9E8@(fyk$aB*4Bc?3yh{1i2e-u@=R}fvE*ofj&N%w_VTYA@F`Ml_&ySvQ}(6SwZi?PE4lf$v}D zZ(re^XyE@sV^aiw-mX{QK1*q=x_#~O>pM4ZoHwsuu&=SI{7UUYyT`{0w`OofROGks zS71KZXvTt-jh8$g6m|+MD0BWQyy(NRG;g9cYpru z2(FY>AKVVhXKRP_GfuSGR&eFa+R%B)B~j&>anfJsZam(5%|}$8b8k80x5E`@c^8TcV0?fXU{c^6|XoADb4~8Ex6>Y;-Ct^DTR4qpT-)#;jk7aejYm&dy)c)u8;9 zN%Oyk-h_kqAJp0=7$m*2+@#)eh3)s7d(SeC9n;k|m5^;uT0Ut((>lw0i#(ryIxLx; z>GK9(5RljxOy2lBZ&RCW;ShQ?Nik*DaB}(9Ut=W=)NeSjDpO0|)2?}R6CbM_&uH0`C zTA_Y9-f*IrMOnj*3BS6h&-~!GY=4rH?tzxu)11#5FXNKDVAOS4dtzl%kj-j7u_;nM zOIT+Jn8~KjHxKLHg8i?=QI(^Eb6^HaSO=oy;%UC<)c+?&XY1C$9HvhwZR``i{BcIS| zFWzVOo(bIEcedA8bhe9%70cJom5+*7^!tkL*tG9$QqiCDFL%}&e98D5?%(J9CFg(7 zM~~OD_jaapdM9XWUJVhk>oM>>!gBOMu)SZzdY|k>uUOmLVW9>0$_!sEj9DpoB;)qc z702vtcaj3Jnr21;l4j<#?8yC-;Wf`HCc=*?hkHxEf5A2lKp)l9~^_Cqw z=bxE0W8u1@a>3~_GlO6H%oSVjQk(Q=;^bDL8%eKqIUWA)D^Ec`5k;eQIBJjL(ZQqX|e}-5A$fP zHrZ|UV`;2hn!!Y|oc9OLIj?&0P(erMF3Wj=4S6N5hT>ZjieFcCIB|Wt`~1M(#KP(A zl0HjVZ)Z=@epR?4FwgI9Le9~(>aHGEO@7I()6Eq#m8O&~*6xzbbQFj_z1h=w!N!?~ zCs^3(&8W+q-Y)s(zryUO@8*Xlu2?;NqPzIu#Zz{@1YZy|eajTs>`mzvUH1=?ymw^Pec!TQTr{>=T+NQY_iCa`uC#&4+Y~6b-L5 zZTyrdr;$+d>t*As240Ju&Nf`fH+UCHFJo6IXXjdZgS~%QS3z<(yG>i+j+_g;O>e}W zZHt*+%O4s(e_ijey;)!E z;d;qrgLB8@p%2yM%<-r4yWr?6$*-(3J`0Y1&_6ffqxGxPD<$WN zyg7OMkAA=I{lXc)r#2>?>`bXIycM7P_{L@4eCPME4Sx-cPyE@wJ>~1(+c8Y_M?93h zn=aUIRawn9Wlht`g2lfcH=orDoaJjMRk7&b&-qz@gg$-94GiYLV*md#!|%sAUu#|F z{(e%wNKZa}_dDTN@6K=P+8q0hv-EfRtMtj9{_je^Z?BHkySe-p+heh~e}+koHG4!O ze|gN9DEN2d;i_%ZcfP!RN9FCNh&QtTYA$@udYuFxSdkI<{AqLikr%p4a?+hWYYP@t z=Os(*z9oBr|IPXt`ag?bJ@&i99w?u0DPNi&QR2o|yu|ZxW{bxpwY{Z{hrT%p)i}G! z9Cq6%_3r4pG7%$=Pm4FWt~alKA+r>82B368@c3`!2lU=mErk{BD>e##R zu3(-g*LF|(DVwow!GvcI74JT}D|$sUM_;W~VCCdK-Ji1*Bd)Pzd!O2F#&A}2%8KeB z-O~$VgqB`RIWXsl^0H~AIUAnLDv04;>($zw64j(@>#rZRvvp_A+o}yN* zlk=*%dgB|@N{_R;#wC7Bj>%y;|4MI@!^OD!XOAT}$n86x|3&ik&b!Mkq@6f>_8z%> z=p(;?`{%cQthWSO)0AILblP)WzhB8?*3$F+J7295UU|sdTeHy5Ww&?Xwid;`Tw$fN zuEs8rnEUKsCzo8QRsQ?7wTWkrUz=E1aMPQ4apkWI_AIgQ*Y_{tODPqw`}*0g!>Uc> z=#7PiUNaQfIEU)(vV^`-7b4^%j=A-F+o? z@5Ayf$K0evb9YZ_G?RRMgLQ|uVu95kMIGH`aUselsDZ0&y>oUk!4k-*ptbY0PfBD#AbK z{>*2U-^8{`A6vX(;-M@n&vTL+d^6JzIbZ0xz_+|x%Q6Ln?zy6A8+`rwVmsk5mIRtG3mOm(aP_8 z^|pKSElTK~Qg@Hv6 zyr8;%wnyw!4xv9+yA8iCkF!WwJ=fo_-BM)NlhVm6KetZ4c%;qFyvil^yu4ONP9?fb4OA9f`BoE_I6<{OFppL^#|kTkzs(3@UeD$usPy2;KW< zd-{s%t~Uy$i>w0bKmSei?pc|g*YQ#Dtmr)E;7kRW&47ao*e(1_w(>yXYt%T>*qc0%ah&p^e%q8 za%Lto8=p+*kwm>+RY6v>r+@KJ&ibUIs3KP1{{8RqAaj$o_vfG5WN5eR`8TmQt6Fcc z%jYb}0*w~HaYd8Gfz|C(&T}@OVcx?U+hg`!@&V&L|E25fr|&v(#ZYACrdKjyZ|d2C z`wdg_{c1ITE1r41`k%n7b??gdU&`sy{JOq>&#QokYd38_U$N;pQjRT&3*SYxd zLBNUWX^a*N{^Z$e=<2e%Iap-cpZMGt|Lf6KH{MylI|62R_$deH7e;bTx?lM+CE)nv zOda0R@2N3~-c|A?EA18-WMI`{cdi!-YLbnq@oz z->>Jt6FFZ!QKfy_x?gWqissfccS_8iFfCk{Q~z*!K>N2l4paAM?}&79C@czir{c9# zNIzE3An4zdtW$?yzWCo2t|uN_@#NW?ri!OUf=3?v9E`2&4%ZX+_#%oDj+?2n39p61`Q%M3j3Jx9z}`}@jOEBTj!f;b~;=d!8U zQ9EBR&V2eP>hh`HK<=k%S&CBquFmJa&f}dLu&%f$XJYsxHJ-K~JMVpnQJvBppOCY7 z$^_=;3l4NGG}phoN~5*N=Wa{F!}FU9;M214^=N$jF4Efl ze5d}!%h?~6rkE}bSa(?5{^^`!`@5`8tt#mG_TtKaohh#i?4(-H?krxk=w9N1&3z`W z(VHWArv~t?xSts4{z~VN!mA${mzPLx{XMlbF~rGoiJs_L3zx><8tj47%YP`U{FA$0 zslKYEh<{E|XLN;8{=zc9kJb;T8${hry>MJ^s_CDwWtF-=CO+a{9(t;OMQ6aflY7@Z zpUlth?exsUX{X^_0}mfPcJDhu`;VqAnzcV~`a~DM#Fd49f8OnUFDASz*?#ta&S`eS zUw=f|y?DAVXYQ6SlD$QSo3a*8pIr7?D3{H9{>pi?CF0E&|DVEj|9F(0&G|3w0mnV% zDivQoH8}A>@8~Utw%a9Q9Ck8$Rt6SbIX!cCMa=Tcf7RToc0!A>$H~WZ9{bdlPkngk z)PKv(J|E34#}@q1S!i(DB|l7BH>mM>_5KYL)n=wnatYXU)lH&z{@u!)p8f7px~7F0 zjmJHMZTFX4>9lyr8&|yRc%xO^*C+RP2Cv-aU~-ygaq`D^VTyNOPj@vr-SLOV`^x8A zp%c#<-B=UY`u>Nu-Gg=Bdks!=9NzcSYjfza58t?>pK%?LTokmSD>J7H;yU34eEUKo zH96AM{#*(TV2xk3R)nK}^Q}0M&<{&=SntZBviZ zobfYp`TAI{&<{&9mOjWnm;YsY?vrDR+mpig8o1O+lm^bY_x2j=Ek5N}A8)o@i&*vH zQeNDmwE?X0r^2`n2A6F~L53;A;C?(1c)9ECTUR$TVY zZGFArnt1b+@Zz6`9!5;PpZ{}Ja{YO3_V9@5qW`k=;vHgF-&vUas(ew8+`4~0dhzx@ ztWSPS(Q}mkdEwE+$=TvnC12%)F4$^hlq*eNfBm1ISG$$#|3evz|8LC5e!O*mu>PUa zttRXL&NcCURumZVtLD{v6>yMDvz!0RI`+v-8*cCU{(tA%wf#DB|K*{kN%Q~AU6<2S z_x62Du)>?LEqgEgnF}5B_2V!LIhmN7<1p>-=ENPBn|VS{x*03adBvaM8_!`gqh_ji zIq1T_RacgKxa=&v{C6wwWzl79C;3eR%}h*U*h}kcZ&~i&^g8%z{QR)-qe`F4Hv zxt+&^o(UXaVBneT>EamD@4ee@>ff)6iuKr4KcvRa*Qrx^wX@hx!&}ehR?bJ|uh$nA z`~B*2iWFLBy>|Z5{u*oT^?`ojCS@-^TQ2{-pFyY2<<$kt_klN}wY(ST7Kn#VkNDGZ z#q-rEL9a=hTpoSPj{CZ5f8X5V$kOX8+3R(~r&T6A-*evV=bStHt2S-c4mnl$teoMe zZD7%P714z76>r!+GK#7+rye_*5iOnn_1n>#LQlA+rtMpl|G4mzK!)<3l23a5FPJv- zoDkJwoxD81;`Q_TSvK{DQuXb2IxU^K{)Khm`+&S#vMFj4@9(hsdrDO6Y>n&vQ>?$L z6-uv4FaMsn+e)UoUt@ashpNZ%?X~hxpN8g_O3gfF9DmXLLfM~o-aEFfUv|qaFcr7? zeD(YHx%+y<<^JC|{$Alyixu0%7lmw>xF%2OynJ2drTMym>P20SD(cQFE`vmJE=dL) zRS2q>9;OkzBkPPs?c6K;Yq}hlaIKaO)(cvcx~%BeBOmpz%&Q+yn&K}TzI;i>DW_Y7 z%dB3StVj|#*)F@NsNhIz`_ttGean389p-i>iO+o>85>*r#lW3QBtpgP*23jw1v{pP z_Lv8yG%fj8bFF)l)!9RqS3b;0I+0|$Lt*povWcCO&istIto`bT(6q>%Qx07>b`4gu zcA45a*{}TSY6+K9!RseE_L?ts5l-n@=HnM1s^(|4ePPg}RNluTD<>a*Ji#vaa?!fa zPQH)0?(9=vvTWwFBG|lbPG82-%X`e!`({hMTgSBR($Vrwl7)A!_>@a-n5s7`Hto*s zWo^4pH>@qWyyL;ie~Z>>Pk%hGde!CN@7vzhsI4eJcqLe7*~;qZ)E&FUUahu!d{2zG zT-?R?Zr|P8S%>d#4G5fG_U2xg^gF%QjHTXEJ3GNDt+KvvTlw(ap&3@2&)#?f%5vwL zY)=08JmKVdQFHb0wce9^?D=Q@2`MZtyT9G!w6CC1<&t?b1MkEn-&${T@<)Z9gO8OMz^R@S7_I-b*EWb7Hg=pW( zEn8Zb-#1LJi)8=PG^d7jUDo+|uFE$XsrK8?VLe-+Xn*L+(sy+qek|V3_Vk-sf!@o< z-%h41)&H5*JM){^UZ1$k|IT0*EALx} z#PIq5P95(R6ZsXzf4lg{%0dM#PwNo3J%_I6KKZt6Psy8)?fIuIxTV~7-nuy>{MQc4 zS9KxRlQ`^6`COK+m>w+okt=@t#M`rN9&yLKe0=TlCtYqYmzNEed@ii{A6FSX$_)Iu zYwp3fYrhl*yV%~E=TqWz&G4~`fT+LEc{dwBt(v>%9()V?x%Wct`QU!H$+rchtAskb zbVK`%Ja5(9N&2`#qxOzUm=->!r3`LVDMHUKi0#g8Hf(8T-xT?!R68sn9ul@y^4)+4Lr#)IHY5SKPSb!Sxev zHhx`fHoq9pKl>K8Hz>K<^hn!0PM4*pZ9jV@9Nk z+^%GprJKcK*6t^wu`Q-DTHdOG=6<+LDKkbU| zqLa6e-u%Or5m;QdV&}#yZEo%>W(H@i*t2m<*V}>*-Fx2h}ZX$49Kf4?O0opIA9 zuMjrTdzUpjtUMx~mIij6vZ@g}psR3o(!597rytkx&h`%LIJMwV^e@pVv%jsdd|+o9cgl8K#uvGbCb)%C8+tK-~i=z3lzBg`O7<;mOI+Y(b-RI665S@}Bf zTj9}j`o`1jCOfRKyD%qVjZMJ4eU_zxf$w*I`BFJQX7!fHp2zx;e`qA+_m_iqkfKzqzGD`ogm#3fv*vY#uhg5HMbN`SfS8+b?(9 z-8`kSe%F>S3Yt-m9Tlf->VNIH>y3utsZa*~C0y>)oUEr!UNyDkim!D>Xsi3;O_E$j z8b^$nq~?9nk^AwbcXh>8_S3?V%h@-DzW7qHU=#nHqk13f!ezs2+}pxe&2M(%`B&w2 z_-tIJdeNVyJF*J@=TshI-g)ptRL1eDlX45~Dnj$ZckFt(H_kQUP;m57x!pSaK3sEJH~3wCw2A7WYd(jZQJc4le$tEs9wKa#@2{#{wO#rSBbwPnEDcb(Z& zKl;7wvReDjqjulSi<4V5-7cNK$$awUA&Kf$8vkqFedK;WpKr_ej%;UV=fjK__h(6; zEs6G86>nAIb)oR{hcDCWo@rF>PrUrwaPxe*e3KKx)mx8RzB>DB>eh7{=W3^fl+I7_ znvl6;hd^L!jfmyDy@B7RlurA#<;JI@{USk$UCM6xGx>7WzXv|ctNPJ0bMl#>^Shdw zo)&b?vDmn^?~Rr549x@nSK2qbR4<)pf9-FoZ}s%5=f|#epJo2qx$u+wD`Qp;`#||~ zL9?@t?{;L5uXPOfD6qd!dDU9dWAD?Azj^2CHm_~unbCE7ZezWWd64*N39I7Q!W8au)y1Q`r;r z@<~OBO_%vG4;fGXEz;$!A3L^4>7)n*yt>dnWA2J*jlHhXrmP&hIxigUoV#%{XXX;F z$MZD)>=xwzQQrKnY2j{FcK6pQv!ty)Ojy^#>>ybv?!5aF>*6UdE=-{Csy`?FN##^dGY@lVgww08EiM{+ zAF+DuTPmy}?y}5}{fv9!E7{8&F-A5@>&31Ff2&YmGT(gNOBdPD6@0Ir1iw1s&wnNM zj?{BEy_N32TWdUHS&#pAxhkoeog3pDTf}%or}U2Qd^+hF5WFa5`HVxDcZr~%_`^PFe@&VS_QH7_>$!@fCa@|DN; z=AAP)DgL0GQ5{0O5WV}Xuj>XdqRg~?(DASQ{2z=W8*=!hiem`3kS(NP1pE*#9{G$ gi!l7O<0)q zi9@uQy+6k#iS??8An0fvz)hJ*7 z`>Eb?>jn!!u~zlMtA>2~En9DyF)U|az3bI3`Nz!-lWbGZ`7o{OZ`ry^YeCh)HKHcF z>i;rMw77Hc-5POWtrg9lx_=v|0dv{xu zd=TAt{@N4f1DrcA*cr;!bO&49WnA*>`!wFN!*jW&cstt3%!?5>&yTC&m^}4M$>(le zv&v;mPnFxRJ@n8#yXVIY%_|i(-41OHAyGUj(kH(+7%ldXt-?i@fy=Tl{ gcUL?)%KAc>^{(r4#`t9w3=9kmp00i_>zopr00=w0EdT%j diff --git a/vendors/ott/built_doc/top2009.png b/vendors/ott/built_doc/top2009.png deleted file mode 100644 index d6dc8239e314a1df2a1db20272b3ac9d587a6616..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 347 zcmeAS@N?(olHy`uVBq!ia0y~yV5nkXVBlwAW?*2rIpf$;1_lP90G|-o|Ns9h%PWKg z25sBAH8e0NH!FMno*lax7#J8!g8YIR9G=}sV_;zT?&;zfqA_u4pkp43AxCk`j^~%e zzc7a=&%0nP`sjcB%9AE?Et@ut=^7}4ZA8W_jm|Y=$FT5U7n%b<|7v7 zekpdvtswUIt~wp(cv{&wODmto`#)cM>_SHLmxD_l_5QtJAa-r()TJW6B3A3?XO)HZ zEfD(}u)KwBx}~4*BJ1aecYZZ|$+o(gFU4`+)!@Cd!o1hjo~<%+?g_58>|eX`Ypv5# z{eMfJJ#$d85c;g5c=6|_|9?9Fcl@>eFTTC%^xA6&)E6AoS{ZoKJcWUQfx*+&&t;uc GLK6Utu$yQA diff --git a/vendors/ott/built_doc/top2010.png b/vendors/ott/built_doc/top2010.png deleted file mode 100644 index 6e7a99aa92e998cb0ac672c7510b320926c217dc..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 149 zcmeAS@N?(olHy`uVBq!ia0y~yV31&7VBlb4W?*2LcmDbZ1_lP60G|-o|NsAQ+qzX* zULiLt`(@sarwj}Xj3q&S!3+-1Zlp0VFqnI~IEHY{OipNE__@10Wv;WtnaWC@b6o}> zif`QT7B~3tX~u^Ci3txj1m>+vOq^i2(ehj|<0?4@@hZ+QG56nBF)%PNc)I$ztaD0e F0s!sTHZ}kN diff --git a/vendors/ott/built_doc/top2011.png b/vendors/ott/built_doc/top2011.png deleted file mode 100644 index 2a27db90994d34b576e4303fed94c7bca5370b4b..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 126 zcmeAS@N?(olHy`uVBq!ia0y~yVBln6VBlb4W?*0lTWqVwz`(#0;1lBd|NsAOTem99 zE97Qnzs%e5l!1YPu_VYZn8D%MjWh-Z1_e(S#}JO0$q5Wh&#c(k`8 fk@CJFMS{VqgN1YA9X%Na1_lOCS3j3^P6v#@%)1q&mO3lC_YO05?I5)BwlD{VVSXo?d~j(M_NhmHF7mQPN}-F?_c8k z{`~uW@ArLSUm(-5a#Dol@?}1^WXg94Win}nw>h(33OJ?S^n*X_RAymFnwMqnvRe!P z|G4PzS?uQ?*LagF^XFZAdTWMBf^mS+xBXokXWPhb4E?xnLxN8On^)KW(#)n3q1KK$ z7FWXG^rx6TQkkdXKHJ1rrMS-io7?@I5AZ`^59ptQ jA&iwt%jRc&WHmcjIP34*71tRU7#KWV{an^LB{Ts5uA}%s diff --git a/vendors/ott/built_doc/top2013.png b/vendors/ott/built_doc/top2013.png deleted file mode 100644 index fc55f78e044a37aad648e56be86c890a97956d44..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 264 zcmeAS@N?(olHy`uVBq!ia0y~yUJARox3dp{6t!c(l>AFM5`7QZ=BugAMKjZA-#`i){J@09; zTI_?Al$%?(IwVL%mdw;RziMTKZI#}SlDbD$UvqdBS2u1;l?a%b^qRZ!r_zaC`Pl+X zBiQdXd@H)XeRALQ#E;=o_Z7N}1)tBaWKIm0 WTim-TF^hqLfx*+&&t;ucLK6V#mv6fO diff --git a/vendors/ott/built_doc/top2014.png b/vendors/ott/built_doc/top2014.png deleted file mode 100644 index f527f7a7261365fedffbb4ba8fbdbc9e89b50f7a..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 135 zcmeAS@N?(olHy`uVBq!ia0y~yVBln6VBltAW?*2rVD8_+z`(#0;1lBd|NsAOTem99 zE97Qnzs%e5l!1YPu_VYZn8D%MjWh-Z22D>F#}JO0$q5Wh-`?}^>}i*fnBjP1ZewGo pxQ5uF0|)r0FdIoekvzb_kR`(0B;_dJ!oa}5;OXk;vd$@?2>_|aCwc$? diff --git a/vendors/ott/built_doc/top2015.png b/vendors/ott/built_doc/top2015.png deleted file mode 100644 index 9cae7ca1570aa71655253a58cd38c55284f4d92d..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 143 zcmeAS@N?(olHy`uVBq!ia0vp@Ak4(fz`(%Y%JZIqfq^H$C&cyt|Nq;zZdI07$j!=r znYZI90|NtNNswPKgTu2MX$%YuhMq2tAsjQ46B-(r9nSEmNX(UO;89cP@09g8A6^bu0IY_;N&{IW}+7Fgw@OZuLK=x>)x?;MX_<%m8&oE?(Pb8+hyXgZUGuT@LuQI zqw~$TwHO0LlJ_2XFEXX&gy4_4tCrcbZ4dP|UCV#xnnbWz@?K{^m}Odgcc8=yrU;GrV+vbWGVTyee6e-%g&28>iU#SO-jlzSmH!o57I!FuNv)uB z)^8pS&aEmPWfJqQtld>(|Hg`=_10g_`gzyuFR?oO{P>Y|sr|R@|0+{MSuOPLpI!E+ z_1W*QMK&gq4Z%uzTQBvwKl>V zc=lHK=g|8p6In;h-dXwf#-`Xg?l@a)-N>9q|CF5fvqn?8t0 zR_!oaqGA~|rFpYtL#*w+%`FSq>lDk@c_qAwY+@JV;W0kY)cBH}x!`eQER&|@e1!wI zzZ{sm*)Ca2en#G&y)5NAAJaiaUcopR64In1|v8oyiIw*AoD_2}qaU-7RN zZ_a!_P?UD7ZBU0atlpk0I&phzVv)9jl$Hki&fxMQVYhJMG zzrG}#P*cTm|3!{>?>qbK6%O)WZcD9RkXp2DrP2e*;F$*&_s#bUy0^@C?)IP$ng0sx zjcu;k8Q)svZ_OQd^qJ0$XNl_#_CMHh`itiFyt}(fUte1ry*+EXquiMl8CUl`J-K$4 zQ>sXg{CzE@rN2L}_43+L_!}&j;-70}m0WH3W|fujc)QAK?T69ZpOtxwV`^U&B$rukGfZn#UUhy7cjTB3P@;T>bNZi|$uD@WKM}kk z>C{+ckkT5)d|GBhliHD8!K-*DDtSIgWtVe(+-T|8{`i7qT(A)1X2mBO6YgDLW)7A9 zpWP;LBF#}JO0$q5Wh-`?}^>}i*fnBjP1ZewGo pxQ5uF0|)r0FdIoekvzb_kR`(0B;_dJ!oa}5;OXk;vd$@?2>_|aCwc$? diff --git a/vendors/ott/built_doc/top2018.png b/vendors/ott/built_doc/top2018.png deleted file mode 100644 index 47cba20ee2a9768f3bf638cb5ba6fb0c4c889434..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 150 zcmeAS@N?(olHy`uVBq!ia0y~yU=U_tVBle5W?*3WyDv`=#0l^TasB`Q|F*4LmE{$3 zv$9|2?Rd(-z`$4%bP0l+XkK D(Wo#E diff --git a/vendors/ott/built_doc/top2019.png b/vendors/ott/built_doc/top2019.png deleted file mode 100644 index 34ddf12996ca94f09124c544992e0f5502c1630d..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 5801 zcmeAS@N?(olHy`uVBq!ia0y~yUFSZ|Clu_IOX< z@s)=eR@PV*SlwK*=5a%Rf&4?eLrcCKpV@s~o@t3#v~WU})y?FC(!s5T*XJ(~_ zu4c7btMiNFqC`)8c)DRk$-imu7L|AWy(iaHe$34weQ~FmtrMpY-+L(S?y>#{#^ZhB?rH{2Mmpk8I|4#Am47D1^*?AZ5^e(slbI9ON z|MKJOOa*;}RxvgR%--@=zGZf|dBFjBaRbv?0s_u5{{n7Fo#Cz7wOH0U>q)rx_m?NW zNdLZjz*c6bG~3!!{>^JQe#_hEv|#t{#@8SA1)CeJ^_5q-Ya*t2_nF+&v;SE+eokHS zdCA$vT@M&?w=yQ>u}qixdG*r6%xtS2vhp@|MdmiytuLYYtvg z_0wymUrgLP&G(Do?!AhgCEmpg(Z{Ca=prD z_-#?~s5HIQRo|?;TT!Q`^pDZs8+H9ANjJ4`W&b#&|Ley~z1)`92HP$t6d5btGO1c_ zsCq$n8GrVk{YOjGE(LzMIXUbBZ{L4`ubR@zcYiMFIs7SWhTm?F{eP^~wlBV^{C-~d zt@$#0P6uW^xEpo1u3*htpVh|5vHkwStE=3x(#!k%4s=Jg?o>DPxqYqS_Lqx-KRUx? zKP(D6duFlnhgo6#)6^4~MQ5(swJr3*WgvH?4aWD}p~<{g{JPSjQSu4X?iJagtI*>1CmAG3IG2{PDL8LeW94)?#iep`LEMl|Txaj?bTLBUPE`{j*J z+&JgnF)KG^{=%Ei?EETc%I4S~Oe_60&AevL{!^>JY3uO0>@z;Gr8%^1Z|5!5+4mnb z9&wN0x$Aj-`&sGg-#Y1X_ESO4hzpB9 z3d-)P$u8!2sK5W@+zZ)X*)<{zVlE$jZ~Ax3PqTJ`dDT{W%lc!p7A|G5cz(J0p?bT3 zme2k5>&o3H7W`Nd%BdLA5vOf+{vF$`5qdIUthAH%H>o1^Yr@; zajUfo8UJrClE2NrW82S6x6j&hU2_+FE`!7)#5tSSOg-l?KXC06pDm{}*X?;6aPW=W zwcqonZg8B{u~S)h-TuzbFc~S1zR4k5Z}#$Ru+S<=Z2mG~6ZgZgnx{KweADLRWpRI( zl3S+yT6u@}jfA!7&t0_ncwP8Jw=CQ-aqHu4%Wh4~StR-oKX$zsDVZ?`|c&_Ct1lQ^;!NpHu$oevxvAx^%%* zzNf}I8DCc=?{lrLtKRFg`s|ilB8&yUIIqv%l68Llm9{WTiw)k6eCK+DCZuoXJ^OTV zVad*Bk)%%-zyHe&+j{C?qbjRqYKqiSh3$Hima^$M`Bh$$5I?_HX7|1I8X%p1k~7;x zp3JCwc|c8Nqs-G|-;T}Q9i7_~uDd)yTl2(9|F4=SE^8j|?0hqq>0yI1H~+M<7pd2_ zE^08pzf>XL>xP260NXFtpvjXW1GUx`X}ef+E9=)uNVuA&c%MV|E4tvv2}n5jxw zlmCAD{XgxM=VL_rr@1|k-s7q*zk0*L{jS>QwwBdhIj7*hb<$#_$^|L)K!n$1n$|P! z{XZwJp8KlTxjFJhg|^S8uKS`;ttOnRUHNlv-Nec^OZz85deg&pF$nyd-Thu@!uCnB zBC9_;&HL`G_q1r|qjkMEf6utRrg%>SBG(?hDy6h-6l~?dhJA>ASg>=dKL<{OIb_Er0daW)7Ml zZ+So!J4V<;>ibnw=UA@Q@`=_+@>}isH2-R!;8*RdT{E+u%BC#OmG1s*#%EcV`SstG zvPY)N{w>lod9!+Mu*k-}cfa~xd6^N*i4q*vzN-S4BNnf}ma=)>)#jABF2a+2b@wa?y}vBV_QKC= zeM&D6e*C(y{HmI4#QX5a9={H}tA6RY_5N(>eOniMRLQ^SldJi{`>uoc{;fb2+nwi+ z1-)7AXI7K#KJm*xwq?8=5zV_F>%88`@Ytiu|5);4+hbh5;b(RyJ<4)`*lyh{bJeTw zR?3qX6{_ybrh2)r2rJr_bU6K0<<+Xr&63h~!RJ>uc^s@XOFq2(>mIw`Y~@G7a(=|v zu8+F8DgNx$&#R`cz42jYRovA@#evXdbW0M{)ViXk?0#I^GH7jx&DB?;+j5MGfBv%j z&G-HAG~YD6`1|SiAJ*O2a`McR*T3Ib-{Fron|ZUQcIu|Y$urMi|9-K2hde|_$ZGbI zE`w%pdAzuc4Qc~~izVNsN3LewenB<=BGp?d^{j^6LlK*RER5ZTP5xuD%rFgWlnLEULC2PY0)0Hm{vz?#KtNyO| zqrJzviH1x!99mcHI`w98_(sJ`D=VjUy}4X>wD3WQtj1k+&LUr}M_Cn{A0DaIyX8@< ze)1xVUdYwZH2FByT-&M5-(6NOYpG`r5A(OxF1h-mwmX$$x$)YiPuI8k`BXo53XM(u z_AvC#--^`raz1Wwo_>)3@}Rn@?YIkXPAF?yB<=tu%-rr%kO~u80-8x$UizrzfBo&FC41YrC^?Y@cxBSYmJwE>VTz4kmwM0Lx)CjCRaYbV64irF#ocYt)xgWY;t?8FyqEd2U5{r>m- z4T<7QW0(b#CpF79@9>`qwj|}SFRyAU8_r@3;Fkt-d$cUh@3M zST?=#J$Kem_uepl!aHYqLAEMBt@DubE-QV);;551H=J~_m1MtmeD$(ES9ZnMQH_0{ zltZ*FS52K$x^_>NY0}>+gJ<?jh#C)V;*7#ypf#y6b@#_!s_MC9hE}Ex1$>-3WERL+W#HI1RQ!mziT{3lfL#$U~ zzhXMq=XJ(smYDVRS$i{fiqFirxlL&>*L`4 zMN8K%z5G#!RV6N^itpYeGm&4ihPy@<@XQHt+P(Cn4=^+-s^jEU!M4jJ&QDD|C;y{rr7r`A~mHt5oA$ zZq=)bq7l3j|4y#tJAdMsrHB19{t2C1`d2+yTCvA6Uwb8=G}nsn>y}vAC=0EP=S?hKTcq1(#_J^TYekh_)2&QVsS_*tn5Tx9URY{nqx?GR zZgTO?Lr?4W#;>mpvAwzBRN5`EqE*h1nFHjTy|xC)1%Nxh$eDH3qfZ64L2Lc2QmZ&u zhKVkbxt|iddU=(w?9wAFvo=S?KfBpcUbn`4;uFsuNpl&cUwJLuwCZZ{-p;<9^30~S ztIJ+hooifPC2X5hzVZ918YS~BRcp)>bL`kR-(AYe5qkFUwets`R|&^vujI}8B4g71 zRqd7AvZ>c*E2KnaE)sDfRAGy*)!O_dck{LNC2yZi6kV%z-oPMLD*NQY&moVcHix~* ziphTQhxu~F^9G4WyfM#xc{skdowGN18!oavoB7DO*)v`p{(DIJw&LYKJWoP-7&m-Z z%L`q7rYB5yLf8S-E1Xe^YfMZ2HNLEHjXP@Q7WMuSAM3_P7k;vaZ5;uZeLbHAki3VhphCcC)v<-MKLZ1vu4ov(R! zSJ=)>A-*35x7Kez_h+wq!L!g~=l7Kvr%%ieLukfqpCsn59_pz_O zt1~gDFI=%mu~cuxym?bJK3qAr?CH-i4`2Srp*=Dag!Uen@$I`Sxb*f7kEOSMrdImv z-I1#Zx!*t6*+@J#Cr;sz_Pb?^-72yY)|M4>)fwNby!%by&*eEDRY!mR*tB8$i52}v z+U6fwL#U~6?$Xx>mg^qeJAEl?RhFsi@2PVv?NhwAUtWIo;T-F*y%Wx^k^f}xpv@T@ zC97hsuj?>nioB@t<945yWi|7|+=W+tJ@ez*rB&SDn5Ui7s8Wk+)YLwi+Vd#b&~{rD zpWkuq^^Fko*lII z+0oafA5N>Sw+!E$Jn!54OQ&?7y3L#VVFqhS*jA}Os}*CpenmT+lRB$+qfcpZa^b0G zf1N9tLT80F&{d6^a{f|3(HFkE_K`fw8+RDzxd-W ztNG5(PZOW4t#!Hf`)a`2)xNP$#fqm08kY9(Zr1mV>RtTt_hbXv+5KA@W2g2X+Z9&3Rqs@HPRz=ePd#=x?7v`{ zn%<`VIHTrLm&~4%Z8Q3P(v@Wjz9!f1d9}JU(uBco%B;A9OV)n5%^P?(@bBb86T42Q zvTG%5PL@LI>rS~p&_C#nk!doTkU(e#p%d{^S+ra72eZ1_O~6mbh-G0 z-_AC$MH9p3gq<*%UiRVnvL#L?yP}u;3-wHT`SSaM3WihnYmdj|{TDkQ75S0jNTp-{ zjx*nLmp#7f9jt2cTf)>0QTF&>dy%fjwS1oSAD7iL^UnmIf3!9JWaM?Oo55#;g+iyR zy%8%GRV(r-o3`1loc%__`PqKQ+vGoejlaHo=e^6#4dpo-wtg=Oot&aP-(#2An|&;k zX8jK}t9`S#epcw(StYEW+x31Kw1_QKJpSd_#^?L>BNy+U+*dRC^s@fF-~BhQ6J^_V z@35bC0{`QpfYWAebqU$OecQhnPTR0hH1oi^>uW@B3eURZb?o9C(_I#l?TMEKYkO4J zWS4e+_cr+c`f1hPxOe4ymfX+oo3!9Tr`}!TX+nYn(s+4@x`QKgUbb Rkb!}L!PC{xWt~$(696pdeZ~L) diff --git a/vendors/ott/built_doc/top2020.png b/vendors/ott/built_doc/top2020.png deleted file mode 100644 index 6da3971589e2448075a7ada0d398efa9db1a81b1..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 593 zcmeAS@N?(olHy`uVBq!ia0y~yU}R@tV9;e^W?*2r*XnkGfq{W1z$e7@|NsBnwr*9H zSIEuEewnx9DFXuoV@Z%-FoVOh8)*y-jGsMS978-h&raFvci2GSxV~YigVz&2S&0=L zN4P__B&+mTZD_dCD0okiM^sw=74rwLFzXEsB3H_^-#=I=#1nE*zVMM*Am^t`lZC9y zzn!n2KbLuf`Fn1IZO$yo872k4k{cb8tvQ(r55|{i-D$`_;@4W9JJ;{@%R@}nM>g6f zmG|6G&bZs?m(g*@N=c0v*?!TUM=fnJ|lEA=9b! z(}K(EY+ZEj{ae9RD1Y7Q%+p_QT}2OFD`R$iBe*-U#eS}C;TQ9!uG^Bi=N7xh$G=$f zWJ|BGgXN*tzrG)WFY;cGl#oeUw_b3mblwUL#h$gQtVy@syg1f(lybTFSIT`ozvzGL z!xMt5o;>h>v*txqPkp5T-vgc04G-3uOt(M9D7D_3?^}(C{byAd9d{Y0@Xj8;OMMpHrBZ9@kN#wr9kqMv6%Sg zfW!vdi$WH&G}}M>6}6bPtgt8%G=9e#b*ipu+P+U;(`G(i)l=|`MP19y)agD`dv<1* znY_-Csobx%&nDeGIPp|qTTW1s>2{v~`~NbnE?n@<`pbtc3=9kmp00i_>zopr0C{@; AUjP6A diff --git a/vendors/ott/built_doc/top2021.png b/vendors/ott/built_doc/top2021.png deleted file mode 100644 index bbc3f143b0d1e315d2f8e1fd5dc35b701f2299fc..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 199 zcmeAS@N?(olHy`uVBq!ia0y~yV6b3dVBlk7W?*1oKW%Qyz`(#0;1lBd|NsAOTem99 zE97Qnzs%e5l!1YPu_VYZn8D%MjWh-ZhD=Wv#}JO0$q5duJ$wae3L5yvNS=}@K6ES>j64N^!4>UF^KWOGy%*I1r<-l3`m&1Eb?2CWfL=5$zQ#o3}79Ffe$!`njxgN@xNA DSJOVy diff --git a/vendors/ott/built_doc/top2022.png b/vendors/ott/built_doc/top2022.png deleted file mode 100644 index 127147ff96ce28f89fa26c4f37af77231516007d..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 197 zcmeAS@N?(olHy`uVBq!ia0y~yV9;S;U=U_vW?*2Lc8vWM0|Nt3fKQ0)|NsBDZQZIY zuaKLS{W5RIQw9bG#*!evU2i|(igo-U#TrUTN2M;o3XEQ;lApOrPi9+p|dZg?b2^x zJbr(|wrXw0b&0VVOSxwSt9Ttx$$q(yL9OE7v1i9FZNDD&%JHAcf?V5JljGOU9#1KB z_xava{8yla>yvbR{G5|sGXfc3y<|H)m&I6Z_S@X6?D37kZ|oa$f(wQHfmk!uxD!0h{*{c>8^~~@)ygexD@S3gn?p?5${QbRY#qSxHf3hbm(e3Y$ zZQ}i4?A2?lVO#LvKqGT`^1|ug?zA4aNPn$)&$z$bY2oy&7cW-dzEG>x{$JPffqCVd z6HjUbUMxL!>bgYM;y0(a|Ni#<`9|f*+Z|UH>bg4b z<=SvNuK7D|v&-)JzMy8l(8QN2L4^+6T~`18bYu3(-wUpI&;6uQ$LDrMxZk;yN2-f0 zd2xY~=q-~1Q8B00i*C)5>OoRqkBC5SKdPrE;=t?5Zj9i;NeS%!)56+u;&X~@iiPZTww%^xaQ65A6%s7P zp3|3hIyxT>NP5`D@rUu%hxi2(N>&P$F8t=>+#{>O%D1`nLqb*dp0D!`o%;I2wQ<>! zKc)hbDn~4R0@gNGfmHC!EzJ6GtLm{%t7Bu}L5p>M(vv=2XAp~CcI(`ct|A5LSwA>l zJ%99NfnUY`$u}fla0;moAMe3J=QYgTRg8t$Cs^X!7(Mj@45%Jx#* zI?u9SV(9qUq#4!}63F%RU`~Osr2yj>$450`%&#)V-yid8$hydUyI`^I%{Pg4kfhzc ziS@hOx4xFy#yg6ycBm`7o-wi9q+Dx@%_2VD_Lo`ld0#eOyZXw$ch-B`v!zqyPHjuv z9{D#za-H^-!xr-$#Lq-6oGkeH!h;3Zrq8Zf^Ln#z-I+I$8n#oS%P!msT$Uxd?*8#$ zuSH#*A0N-l^53C$(a-MMSHDvRzpI#}Ql>XY>jjJ}xgzd30w-M9a)~hT>^lTMMW4xpA4w zZ(A48opn3;(vEOW(|1BASh(ffb&a-Xm6dP4XZ$NdTCRV}&873c3v24yOlf|3<-tN@ zG5sU60~5>?n2htQnCH1nEZoRp96PfyX5leyX^%;2tx=T<|FXDD>r3{wDZUF0Vv4NV zSS!AG)y(wL?HOqok4K#hzNPEjW__indh(~#Cnk#y zm&~m6)$zBx<`(rYtn9q@($;pPmnYg>o;c_{$QPP1w{t6hUXtOJn5vImI_|S320ry! z7ht`I&!;xEHA<>)mebkoi{JMcX69!tVp`zY6_s+1yFo+n^zVwt>hjq}Yf{>6?`kZw z=Um#piBD|({lwErkMc!kWXf_ZJ(qsVrRm_uy)1UJX*P>K?{v~V?OEZ@Whyp(n$y{n z>}NP0#ZA>HE#YfitTl7_(ufs4Z8y?A?5?FmoIIDn%71>z7PjsGJ!e$T|7^%*y8TD? zPrc6o{_C0Snpb4GH*Y_9+482@6k~hu430f}j>-phJ^$iu|CC+x z%8&d=Tb{2BZ?~*8{}J&x*MG{Zt81CEWqR*SZMDBIUN8RUZ5i{{eX@PQ zXQw_|xp!xa_m9Ho0(AuuuF5xLt6s=ndYKJTd^utNV)c@bk6Bjj_L~ya|EK9cA5XjA zyt#K4w%=2nyN^x#)uX)2#(&G0`Mf3u{c?@^ExDBMaP!NC_C?lTE?6(QJUziT_D*h9 z*etJ?o`Ul&uDw08Kq0WJzGVA+(`k=BA6@ri;f}+8H{To78eY3{v~IWNV;Q}WMy1ZX ztz!LezVvTXUCQWv=j)%%i`viatu3FiPeS`uk{$CV&kmc*?z=voFPR+Iqoujjv})s= zd)J(=-nm`g{<3@HGQGC5%Qnq%UJ}B&G$P@usg7poleJZQ*R~hspY7YZe&#;@uq&=R z^}gMSHJ*A@PH5?!NAaG@OY>c?YGt3Acr|Wa z>prHw%XS!_Elk+|<;{BWYOa4?lUc(1d&Mpb>&fLF`kGYnbNcKmjn3H%DtM=C$m@D6 zP@y_e*<_7`&-N>`UfQ0vd~?D1x=(X$zpH=Q8ljJ;kIJpOv7|lEWa-XNb8p(ST2Hx{ zuJdifs`j)g>t-gM{S~QQvWMe#_@ZNWtE|A)bN7Z7Uz4?`e04YC4(64caqvv4m89CL zneW5g;@0^x)b=nR`*8OCnOTb$Z1JArl$LZnK}=foVd1$)3rrH-Rz5pu(XP-fcX;!S zh>GB|g#oh?*kqeZ?H{_c%G6KJda^ET*Nv0%vzL55@zOD~Nz(7YW$_=$bvvdo z{j9vS@5{OEotGp|OLtzfh^`8lmC%;W!F=zZ%gPl6T0vI(KIgi3BrsTZbus z3wi1SWy*N4JtO8qN`@e6`c3gV0zKvb(;?pNJk0t)E z(lO%BuI+MYYUO)!##h$o_UB}`bCaugY&o7R!#5>E z)O=U?;a4H&#GBe4Jrd{el3~;E$ldDCTQcEPVb5bueRn=Kvpv&|4^}5EnevyVC1`_$ zbG`E-kt1G@dRV_r@3xa(WnFLECbjg^i^Z#+g?;j=W z#9yqO5_RjDy2-&~LMwlI-l)_(YVovTZ$^_>oh!RqiGXZ+ugy`(0tZjWHRibj{u}n_ zO|{TjV`ukF_EPc5{YO{-4*IY`dE)k2ToxQl(&SzrNnker$5!=C@lfK9>sPpsze?&k z{H!}}N1tem+V9<;bj7CM+_dDh+nw)9XW7FN)_)3sikQ8roS4?PhUxbO(aY^zOSR9d z<{X|Uo_Wqc!|KT0nfryV9!(9K=Y6BiR{zqOiGjcD&QE#cxN*msWva2KoITE*Nwl?# ze)zJK!#sXTq@1em9-gd?KYlGw`1$MfSJl`@r}Zc2iKTBbnp9;uX?eOtSlp7C@~%lg zYEFI6t`q7ynrf!|(n#OtaZebdkL!7ZoT`awX3W#p{|b_-Wjl2=^~T@2R8R5DgTX(g z(zkFWB=S6RiL0HMrl0FyC(?Q9$^7#&ds`lTogO{CWafmlEl-|3XO~V%yM5vFo@HN^ z&L&KEpE*rK^ZxpujuCtQ6}_IMC;6yn+8-?<-OJx}WUIj>&kKl94ct5bP0l+XkKI3Q?4 diff --git a/vendors/ott/built_doc/top2024.png b/vendors/ott/built_doc/top2024.png deleted file mode 100644 index 335393bd553ef6801c5043ce9311fe6590b6b03c..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 2314 zcmeAS@N?(olHy`uVBq!ia0y~yU_8yhz_5UYnSp^}Vn$RX0|NtpfKQ0)|NsBDZQa`1 z+@dV6keii#oO#=81_lPkk|4ie28U-i(ij*xR(iTPhE&XX8_PXyi55?*I`@UkI!Ej- zb91*PXaSXB3eYvz_qFsxM7st-eZrJz9EspDJ@){GV zY>l>k8p~%2U!L>IrE6K}f@^($G$YpNC-_!PUG z@`FXdHhzjuwm^Q%)VZHbx*g8Wsg_OnUUv7q8hg~6*}vF&!!!?@lwMq*y|y&uqg|sn zhpEFSrj>i&w=H`ZC|M)K)@A(tv;Y3Qdt#q2YaF{I`u?`M_zK4>m;U%pXp7Esc9tu1 zuK0SVDEjDu#Aw?|YG%!jSz&kQI2=;qFPiSZZ#tis)~%=%jg1#yHqCuF&#^}<@Peqs zdH<7cKE`{xSNn<26M4tTxqr$sZ?Esk$p@3pJz^1HH3|%1Rgt)K#HauA3b)dud-~Ke zcg$VAzdlV(Y(ZFQ!}-~!x0bI?GR;bwE8(c*&hXP{R@X7Xy_r*zZA5am{++p{s)|R+ zmgi{Uo_iimf4HUBK3sipS96=RKy-v;)=!VB1>f~wWiAw2QCl(V(NdF4ZU&8))iMUY zC#|clHyoV*uwtUwl0{8f2eKB6{a<)!(TjikrY(EfIQh$IE7={qVbv?`rQV)F}9?sY$Wy`8au!?zjduXB*hnp^eol-C})scD@x{ikMExHn6%8AQ!i3SVE- z{3>?O;;9U)PulM~vUr=d{nN0Bo{zB;%fIZ^?KNDp<=oXRJ`@%0_9)ip<~XDz7gXHRu@ z|MZ`mRW>hsQ>ZsB{nk^Zhbr91moe^)PVPu8sXKn->b6Ffv+LhV3aFTK7xHhs(>>!^ z(4~(iOSYe`J^cFmY1ismr}*l9H1;nJQD3`7V|s$o`inJ-ZIpYSeofYpW9m93q;q}V z_h8SD$q$1~Bu}XM@JO-h)miuMHdPNaecZC;sq&F|&-!IFfAk$a6keJwB<%Ck=@O!eyOBQ>wc?Lze?U%mU>*u)G#r5&s%YQbe z2`yZ*S<}m2!+->Km`rPqL?&_8Eero?WxnW?jV@%WAHj z$9#hq{+4~RBdBYWbh-OT=}>grL6dbZdtE53d%I99Rj zq*`?TK3nITMkmf6mV7MwWlvnG;j#G(PjBDQr&hR5bV+-|uetZZX8@2mChvS(NGzFP0L&2ZnsgAe&0-IFeOlN4;b@R{XZJBG9E zD#yZqJd=GmA??#|+sYMZwmpbGqV1Wy{-u)4C7-(e>iko0mQBBZ`A)U3xcK%%oB_x0 zzdz}`LUE#hQkw4?6K1WsD>^1lHqrN*e0bya5GFx_|f4`8Bdl)=PtV)1Pk)MFWAHR@u5qfO4zKUZU;H|4=XM8>6l=#$6EV} zdFIY+d66fWXFf%p-KsGEdBWdkb~-}( z|4OW0NFCY6cKh|)LrSGeL04WLb=@ylCcV2&NFh;f;` zt!abDmprDL7!~_l3++0NHy>6I>Mgr!o<1u?ptfw-UNDR0var#V~O z(h{7l#Nd_KorwZZg!jC3Pb2|kE}UilqWFuXh0ZHcmw<^o6h3m~xb84DGT!|9 zS@R4vfo~5!zN!EIeCEdT>kR)lmvZTzst%0tZ@tWEvfOW@m7##!qRfkXYr^Jp1@a1+ zNLo)9&lYIxG?8>N^`3Gk)8a?-){a>nhIjK_qm5k-9+}hG_@g$>RB(dEh6b*Le76pZ z53^Det4kGxy9IBEwJ@yIpRN8)U4eJPf@>;^4F60E&J<6Ya_%R0(!5E+hm{ODgrCc- z_Y`>_?Dejt^HJwM#cRLZRo)!DvBqmp{!9x$!_Bu^IzKg~?KkrI6XfnFQnkToW6nzB zvW@${ow%8}O+kd!mN`BvboPhPKJnku^D1_F)O>I2_+6gQUv_m_vD&)>VV}1xTy4tu zbKyppKVLpAzQ<$SZp{1p`x3cXuaeez$}ri;uy5$zXlL<%`?F5lHOX6=wN3AZ^z8Wl z_I{yZ-lQF?`3O~Ao_p6W0~ z*EsGBnX|2Q*`Kr>V(FnSi9xM~$DUp-j+GetW^&-S9+?wN7%UM+tN54Ld$ zSFdyaQPvq(J&9#X+?@lP6&FYNvPFs=x^DRM_66^0R|WaS)xLH7n6>C|3|*zQ-=z!zSjr?BAeZTEnSC0WeR-)Wre47Qqf z`<}zgl3#uH{Z}|2$j{FPob2%WT=l`Ox#s%22=UVq7PKwpTE% zm1iwHyW_<+g*%n){R_Sx-jNh@=vw#r?mzP?z8&6iCAF(1$~T60RYtPpNvDtH4?jz5 z@vi-+wCLfSj>T$eOEuPbK2NN97QT`zH)8LxO5xA9RlTb=3s0Adm#8#;we96^V}bt? z@-uB+gEEh6t9*1ec(Uh2|AW`*V)iYYBMaWH5A>Q|{PGOb%97Jvp?@5h?Zem9L@rJI z(-*nlN8#g|(8ga+Oqa(?-C0v#Y`80VXX|XQyl0ljObW@8;ZT&)J>+BOaZ4?8S7V8-oaL8S@n>w}F zOzF>;zxTdfdpv7ZbkpknuIy*e$(ugB#`mAC{*})y`TwoEtZKhAt~=M`{jqLMcJ(B) zxbJ7~ZM8jp?*{AbY=->X^9qjd{kZLI=c~@SHf%W$eQ!5=8SQ!FUY^U}C0WXQs)7BC z-+hs;H@_abZ)Nv;E|hvJ>A1aq&vJS3^$~lt+-`8^-@2C+dUZ)n)!N?=r9a2`f0Wiv pxwCxlzxJE6_xD(re6xKk)^uy$`{n%t(F_a>44$rjF6*2Ung9o`C2{}& diff --git a/vendors/ott/built_doc/top2027.png b/vendors/ott/built_doc/top2027.png deleted file mode 100644 index eb3b8ab191ebdc0a5be787c389bfb58cb7a1f8a5..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 1282 zcmeAS@N?(olHy`uVBq!ia0y~yVCrIEU{GaYW?*12@4vd1fq{WPz$e7@|Ns9XfkE50 zZdI07$j!>GE`7R-fq{XsB*-tA!Qt7BGzJEig`O^sAsLNtqq+-k8}K|0lxSIA#1MO% zF@Wv&`H-3)qN?iGZeFp#Sm55lQeXIP(R$|}ISlcQ4D)**Ts_gglV#ba?mS_c zDLVcKKHj?Ge&*JLM~{jZ?9r<{EHP2l*`@?eyZZN9TWCDxa{}fxNCa$r|_*R zMUYsFO_KVT0vLaMkxtX=de{Rs>D{u$^Hq z!%-JSpP^6 zgWezByqxZPA-Y`}tVg^yp3VI@`%ZT5$9na?mM`8fFWSUK#PK{a>G3T0_L#J|PvMAd zbk5Nui}r2V)A8M*nf;D+Tko^p+xAKp5AGR0F_fCrchSWt&SP=R-kythUMhC_oKXHQ zUG!>k!eh(X8Q-T>-wacplb7#1_eERUn#^w=3%{4o`1qm2b>nMg%=wZ-Vxd3O!()-`t@Xo%~#FTK3jZ$j#JooSu7UtPMlsVz73 z+dp-Y+i&>_mL2}r#Col!g=wo-g5(p6t_tQuoqTNDYjo!o{_kmX6u#fQ=trmA-kAY> ze$SLeR)t3K)WjbydiQCj+}yiXpN{6OzSGh;^Q^5#*H_=Q7OZPu%h;8@)PJEmiBmE9 zjJt->C(*lm)K~91y7g!M|DKP5lg)VZemd^7xm2gVEJ;9i7rRT~p1etVDZk~+Z={E; z-lC(ooC3SdnG0S|zC0AJ@TiBha`e+1( z_|2I*)k=jcborZy624m*mu=PYO^scB@46i0_82)ok;uZ=K5GJfZaS}KuJ7`@+1_*U zZ;hLre3wFxd(*6RABkfJb``Dv{@YPBIx6T}#l9Q;-d7YqRI}WfW6=87uUNu>M{W(D z=}xWRGc=s6+a{+bwkq>{UlztL+%|Ium$OJ>z|pepn~n#*5#YFe=dGYcp7%=Q7Y*Bt zZe2a-{h)Ws-g=Sey!rNq)?AYvu5uSA1}qh0OtkfT_bleVoXtwUi9ZFI_qT846UY*o yy7zy5c;%kmr=v?sygqLKpZez3&Fgo3_4d!4Ka+uhfx*+&&t;ucLK6Tg@Lu=; diff --git a/vendors/ott/built_doc/top2028.png b/vendors/ott/built_doc/top2028.png deleted file mode 100644 index 7ca5251b38420fdf3aedf2e1a8b80b5b766036b6..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 1325 zcmeAS@N?(olHy`uVBq!ia0y~yV4Tmuz@Wm!%)r2){p~(00|Nt3fKQ0)|NsBDZQZIY zuaKLS{W5RIQw9bG#*!evUUhZ2oTx z*QH*W(9LDZ!gO@0^rJ~~bMo%Zj{UnP$J4v}GtcU|mByd2A{uhcaeK9$%=JCMdfTZd1ip?!IQ|9m+ zFezSbF4@tyX{!mFFqaDZ=iQ7a=J`+B;dQF7$*x)8$PC3nZl{$(*gRH!5y3 zd9uxjyFKoTsZX1#r=a_UcS&!~rd<8LZ!P2PCZFSbFBcx&>Oaeuuhy9RPD$d$@2Aze znY9v2Rvna+%;cGJtnqhNe+9eaQklL?qX#lZoZ)|7ch%|%q|BVbe^0G4#7O*6gWe+h zh3>oB8ZQY6R2>Qbc=mMI-}GAEpfhe4rptcMW6(0sY1nI3`DErv3kBwB4Qs@9#@vcJ z(>U#rkBdO`zBT#RQslok?f=bF?4tBybxZa72!{zK-AY#fe&*FL+fqR(w`qOgAvTzoXtriQ|i)+{7fS=J2JJo8&?{ zN~}J-aB+Mt@}j5q>j}A&D~l73Juja1D0l6xo&Tp#tljnM_F=!ab5p-`+H7^pUdWj$ zxAm~ZzDm^@iblWwd5E&5rJT6os_;TtPwCc?4`+Jz91ijU#kC1Nb;%b@ zG`sTu8qE0S{#immjNwprXSV!%@r_%UAO85~m!6oQIqR+bw~y^Q87kL`Zrs_Iz6V1B&aIb|(|Rk|Db`vtxz?vT66aWz2l%?#HC*Bd)qmVCOp>XbvZ z)rCh3f}czjNi00=9x23nH*ecJwgooR=e^&(y7@(Qw$!Yse)5y&c8yjnAU(T=iFF1s#UEFaPtz=e_&i8F_p+hu7Zxgm0De z7}F?KQ5k`*XLbY zDeEZJ7`MXqMO)NAxyBEY_jvTL6gsK;&QM)?z~IlnAX$SSK9_YlLS9d4XFk5gOX}f0 wb@o%1lVtuD8)&9DWz8}=XRp29CyuGoa(PD7`J=xW7#J8lUHx3vIVCg!0Hw%ui2wiq diff --git a/vendors/ott/built_doc/top2029.png b/vendors/ott/built_doc/top2029.png deleted file mode 100644 index ea00625e988fb02e510ad0303a252a1989ab9e9e..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 2152 zcmeAS@N?(olHy`uVBq!ia0y~yV6{q;dY|A)EV)<>epj=LkCVO!a*Gr#rE8j(4bcxG!)#%Dup5{lVf6 zb<^%Cdp&2p$UYTU8Q1LI`}XOHE{Ue1f=i#G_JHCWFIra@C(he_ z$Y;Uc(+8H`Z5G=jcRDSit*-pzx8Kth?sE7jbNSymN)3=CpeT^H(1Hyvx6A$zDGx4(qs=Ugz9@s5z#e z(W#ui$YI;JI4`eg<>h9Z!-LjZ3hUmJU3(kr(ZcaPANjt8qZ&dZ&cw^ETGl$_39dsMbZXVkTSl;xG8H>o`<5#TZZ+}>k zd|M#+w5y3!#LM=N=NWFlzr1Zr`E9|3J9Y9;k4OjBe_=Mcwwr6>fG0DMQxyqPcu_b6)4APtQFR zoG?FGWbVCsE3*sJkFb6>zS3VTmn6Wk@N-upkL>SfHtfpJzRDd}uQ{L%Y*8jw#m+h9AKeT^SajM;=@ss>C%a&8^B_}Uclqs##v)Elc?mda=2}bT8x&mibBv>`v(=I4`ubR%h zxWY>I)J^MMCNCca{X7||wtf0XC*Qd6PrJI*MT^Wfy_&_D@A^q8;Ai2<;?-xm1^xYu z=4^ja5*umb_T3i)MDS)b`t}d{kv#*dCD- zruN{|Kd)vateLN@?x@$IpBk3S+je#9tw*-%_h$TR&OcFAKXHnF7h}HDomB|cws)gQM$x!SjUy)Lgt^FtNYc{O@3J)@!`bH3G^CS2jNoRHTg^EmVU z@+ToB41Vp)_3u^0e>-SxI=gh)huo%*CZ{*4JkL1pH>uw??&^A;3TvZzX*UI3WN!b| z7m%$#wD+~m_iK-~Jo}ou=aiq_ggyKp^sBxq*5@vaci5vWzHMsVZGCf#8=s9np61+k zUwERt=RD*7@ZMipvv!C3#6CU0@V(q0o_jZ6{5kru`F)+|x%fHxwKMNjm(4qK*`fc} zs-UuIXMf&$B=$0JzLBG_@;*cV{$Ej?pb=y(*0+3l69?oZjXAp)rG7apASqYAG59gux!b!V8gmboAZ~B zcfRs?`P_EReC9d9p8sTi)ZhJ(__x%wSnK3dmpx^z8F{KVXP7UalyheGI+f2ay&5?4 zS53Mz>)f5|>kQ7VRe627Q!w96^`_VU(_TfZ*QjW(yjvHpeR9tl73oiEDZ3`!;mBV! z$>wNq_ufjw$LoF?t$tg|8mjxP%ysRTBO$7h-E1q4-dlHrZSRT~#=Ez=W^LTAt+e-s z^`Gn;|2Y0t+BL=Acq_q>xpBL8(cT-opMSORZ>wzKug@`hbtx&|-1|$?`xBja6kb0& zti4BC`|@?M>fMWC-uz{|x8q>ucc&Sz+xd4sS$Xu{iu*+$LdBPF`Z!6}U-#R)tx0k< zK6@6}c89lK4rMBh%GmgQfAQ8Ezh5-0|Fq-s@Bb2fbrq-6|M9bk`fXn(w8CuBp_dP$ zn6A!nf4HSyw=wI?V#BKUQA}5x+8>ti=rMaOFcbDGZ#0$ib3ZVfXL;gs(Rr&`vXmd1 ryeZnZRA@!{!z~N{L>_v1pYfSc??kb!r`#AA7#KWV{an^LB{Ts5_-#cW diff --git a/vendors/ott/built_doc/top2030.png b/vendors/ott/built_doc/top2030.png deleted file mode 100644 index ca72b27cec3941fbd298f9e4ada0f1b642fb8725..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 1611 zcmeAS@N?(olHy`uVBq!ia0y~yU~FYzU3=E7VL4Lsu4$p3+F)*+`_jGX#shIONIXG474_L=XXKKj2cEuX*Q#=k;#vImB%j&wlcG#3uUNPBI=kAqZg>0>E>kFNU9sYD zoTJzO#I-w@u`*ZBl-_aiSIpL@Cmz(L*v;lrdGUWy#f9m25*n;jm%Xj;VKn_!W|`n{ z^O(-ViF>-to`=jkYU^+6yV-zUe8C>AW!F^?%#RWckbWMnR}sChBX+~<88YJ2B#J&u zZr`l`%a~=epUf?>RlR-ZTSE+fy|MJ`}!@ zutI+Fztmq|mA-Aaw|`aEx!b>`t#od`P(k{tpDxF|z63`tI;U23Wb^rpTE>fd^z1Zx z4WF()ci1&bu!29})Apu`|ED#o$9MgC9-{ZzqfI%;cx%?LT?I4$PvTh_v)OCSURCYi z()+*q@Wd^8wZ_HuaA2^Z%PYYQJ{BSIinR{))AnsYa3DM?OzmL8g$zIaiE_=ptj%XG zPZw*pV*fdBlPL>xX7*fRo*hDLk0qP;+0*h0mIvz%2dJ^Sg5Vr#&+=mVZdg+~qO9T&uBm z-Pvu+_asiVdmqB|J7#vSf0X{E=X1Rt@YhYwHQ%=dq~?*O?>61n?2bnM^UJjsrB2S3 zF4KE^A?I=OH|F^|Yh~B`Foo9?RZznf(IH@;=NwXuHk@xvEvlOx_ucpRY>#`8Gw z#XQ3`o*|aYliI5!cE$6o_H4RwP@Lzffrx}zT;FN2kAF1yZzuUK3gCz=d$73dZ4cL1 zgDYvu1%MRJ=OPHKx`l}?!lj^!; z+SHw2Br>$*1ZVFE-SB79hpX!yN-Pg1EAqr|t$g+1-K4c@KVQ3iEWgrMw?x+Nwbk?! zU8i2WY0X+{!#-cSB}bJ-JMC%!JMSb>iOC_-Gs;A5^YXXsYS)%J?wso&c`$y}9wF8^ zQRA6h2UqFkY>LoVjuyEky7gFYMtGCs>78>0Z%L^8IT{3bo(OAAcv{UP$fL6`ma%!~ z-gWf`irHK_mVTv8jIP>Ww8BJH6{9&1Y8{nqTavplmhrIJmeoy;hoTH7{F<5-`gVb{ zYJ}#&2U=|JbD)x@Jn75Ae@gND>{-RKx=Ha@(?Jfl(uYsVg>Q*!9!bghr20u;B=Z>K zXRF6MX8*a~^t*eOz#5rbGbFrz1sO(9XI~hrIi=oh_p7JQhi-M&ctrf3V6K|Da+Zwj zj26?M=L}rWOS5JN1u`|lDZ%?D_E)I(fi#J~X a*q_hU`x}=1U=0HU1B0ilpUXO@geCxUn)R9h diff --git a/vendors/ott/built_doc/top2031.png b/vendors/ott/built_doc/top2031.png deleted file mode 100644 index 79173a44f405572f333b56dfa1fae1da23002cdb..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 260 zcmeAS@N?(olHy`uVBq!ia0y~yU;trJCT0c(h86OGcNiELcmjMvT>t<7zisPQWqF0% ztn8P0JDxHyFff(``2{mLJiC#`z`(G~)5S4FVrp`Nf|x~uaLN(AuB!}X3fH1q`DPTZ zn)?5JLyG3(|Mon49Q1@AGqy21?Bj@-a&tbrkFlYH3-1A&u(}y5m?J_M&m=!gXzVg- zaFP7au$4KJlWoU~|N1;U@(~B-ZAuhy2s&NBkTjRqnPF1~a|G{&3ig!Z^CAtt9t>6@ z9;a&?I_eA=ZXWw5euD8P7c*b%7 diff --git a/vendors/ott/built_doc/top2032.png b/vendors/ott/built_doc/top2032.png deleted file mode 100644 index 970e5e3d61b19ffd1f366423149f612d62090312..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 144 zcmeAS@N?(olHy`uVBq!ia0y~yVBiF?nV1vasB`Q|F*4LmE{$3 zv$9|2?Rd(-z`$4%(=9h>(y-dBOw0@n44r~?jtmS8JOMr-uK)l4-?nwDvb;iW zR`$!h9Zwk;7#K@}{DK)Ap4~`eU|_KJba4#fn33=E7VL4Lsu4$p3+F)%P!d%8G=M6}+Gh|PPVz_ZOkCh>k? z*dF(_RV}sdA$R_3y_WY;P{}mf{IV~rSFPp7v+j+J`V98IKId*S|5#_7@O+xlH+7Sn z-?pTev_}{SDx5m2GX2S-+adE58D1=2S-&m2q&dPZ#^LnQAGH_q7-e_6|8_I)czUOU ztLymk5BXZ>ue@In8g|osm!r;q?iUW8FE{+HcAr@&c46V!2g-}3T^zhEA6<}qE}8$+ zysP0^QOX?G9w}4X?OxKE?B@!!vy)YGm&|54ch;Wgt@IMs+`e{lvu(h_* za5=wv?c~|sn@(r8M-(peWv^Pall|z{CtHeFnh19YrquS9Xs3OiDSd%+M0<2lT|`a9k%3cApMBXf^RoY3?yir*)^XN*9{-(D^z*Om?3)kH zv)dJZvk{0t_O`$BgGWoc-b>5AnDx40dTdjhcjkY!lJhVQ(oVed{n*{z*EhO)W*vQ~ zm|Ai6-q8g`n@(BDd6->2IYTRXNwqAi?q1=XhIiI%Q$H`L<*u4};NU^Gsv95ku6cgD z@#VN4NO&RhTE88_72hRSU8RX@lI(8DSH@M;BT$#M)&A*oCo4T#qU6d|(y!X7|08a&hlBzfQSwN7=@( z_)a|M5@6Bwc^3Dx*5^lsUhXV%EOIO~atS?h>5zkZ@$&Op&F!lfd{p~;@x0N*sFH&D zFXZbrway3MS4(@^bj7u1+CCH3BUXhMTEoTkJoTb#0}J=I8(;e9(05j!^{no_si(I0 zy_xzv^MLQXDcn{oT3-nH2Rpbvn;Nh~Wv4=IsiM}h?**|Z(h?gS?Mg*!?gVRGo-}JJ z_cg`zh>M>0cfI&hZeznxmDq4))xMp974srrG#5F(TeZO2>gL<9x&QjwyN#|j%1f~y zaw)0himtfJDgH2fYJJKQrS*G$o_#Z^U0$=EQFOx^rQ-Xx7Z?~A7(8A5T-G@yGywoi Cv&ydk diff --git a/vendors/ott/built_doc/top2035.png b/vendors/ott/built_doc/top2035.png deleted file mode 100644 index 7c6f660d32484d2dc6ba94ddb846fa262d826615..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 1116 zcmeAS@N?(olHy`uVBq!ia0y~yV9a4)U@&80W?*0tyu5Ec0|NtpfKQ0)|Ns9(0)w_~ z-Ks3FkeiiVUHWtv0|NtNNswPKgTu2MX$%a^zdc{rsi^YZqDv$MohO4bpJe}FPXe=iExc+gE!NUEEfM1*;fZ@P5L|! zF3kIxA+dSWORpQH|3m}Sj!a&6a9#2G14fE(?`>Xp{ce!OK9Q%(0V`K0x` zm;O-OVsPPZP|by{1{eNrclx6Fc*BCf|FU?*Qyf3f_Wt&bpG8%2oBFK-Yky=JJXh75 zG+|z%M9)$2Zq1mKICt}#+6$VIA@Pq4e#RYLX2_7$^4M;9-kLB+-`GyJ$5)mmex)j|$J^sl z!nLCxg;_ob95{J4=h_7Bgf3quhC4hpbM?*(?|hd1)Jb6V$}OKyO;cGec5+stx@(=@ z5-yhRgw!n?j#+vgXS~hgsBzY5?z$D;TKiUrJgN!1(WpKB+}m$0-ixm>A6P2i%~G}P zaiY*2h4mXRHF8K^l@>pt$-XY8iFXO3%Av}Njw7m<4)l4e9K7~H;)8_Qma_HIMX6%n zq^ljb{M{M7bbH}uzHQlWrR z^P1V8tMmjfc{s6o+uNtp%)YFR{_T0|!U@ewA1*lNeBC^G8Sk~PyZvvkzt|SM-?W5^tey+NFS4t;`cAGo7V=TvNRzUGh|N* zv9LBR(=G~KBOdA46wtRIb85vAMi{=2b?p)+s6@|$zFE}C5C zdgr5Hi|t!wi8Z2cw>IyX&ACC==h(Wgx@FNk4|Fd6d+>WZ!*8kgEKRC;=PFm&tgP53 znsZ8B;-={0RkAimU!3KtTC}D4?=<^0Uu_M8jvo$kXqmdWhEuL~ihA<>xNQe*6qo8m zUSGZTK$G`Ob}pN`qOGk;d&Jq^+|fE=WB)_;htAC>)-S@Je)2lu`t10T8`D$l(u+1t zJ9At>Yk9tVmQd|9Q^(a$XEJ_mK5#&^hgU==y7zL0@&=Z`w~n?;XUe~d+T9d*wDIMI zGlHr*RvNELIrEH)OjpVt2$}oxXvo>Mi}&-+IndzeyIO@mHtK7*9tU2(<)nJ{%bwaAQM;HEmUl8Rk#e zt~b{`IK?0H^XHSS7q9oa*A#ty`DRbe>wSByV#C+`U&>JSZnx8Jt4n1|AFfilZaj1T z25)`u+f&-*59)~NG#6<4sIuvtjVtZibu1y7@ zoT_Ool6-gU#aZ3Kb~(;D$RG35(dQWdFKv7N*pJ)ao;uAOUN>vqqB&bmZ{6%C_0#q6 zrG3XV8y`<9y>vofYFgRuQxhl0@nr=(Q`?^raqI8ZH9O^9)qDReN_=_5Ro(VqPSF|t zs#9|N_}>2OS}MBqsM_&Ai=MxEbh@E95E3^E=N^D#NPfpB=5UCIk)mz=4z25#Z>L5Iir?M%`Pk$SqT$g3J7e^vo@LD_ySjGqc0q%g-l@8*r*+n!R?1EN z8fB=L&%5N;qfGW+vZY_ds`dv&J)5xh=N|=Gf#|enTU!gc%pA;gW0)_vTEri@8R)+L z@`*3uGnB8FnJo_Z2NM-}q^^Z>WAB>az z`{kRSTGBbssL45BzKNxBzx=&4U;W;yH_00rH+ir4dsVo8;s1%pOTW}U(N0*Q^}D_F zOZkb+HCn&#uUzb}+{v}0>>pRb)90@%PxSfvRpr=8E#A+&=fh)u+m{~ymBY>1GwwFc zmOo~0y!_F`)w5IVcHH`L!ugs*4{O{Ompe`-I^9K46R%6l-kW2v#`3gT{kf8pesV@r zoy58KWOP={y)uL6`l-T8A5IH)?OAV|-hTC@^D>>>C2VoiM6PunO{rKbv)upt`8hk* z+18x7`QoYKXPIpWy!p&DP1O!>E!tD_udByCTj%)?L-oavvxL-5KR6|>6JFMREM-Sn z-}M!}+mv$SFD6-S`{q=r5njaNCA_Lp{A}^|&K;L#_^h1zc*)B5*ZRKHwSQ99zq-|> z=2G?QEwOhkKQ4QG$9?+N{fff8rRNIXa}|D%u!y;K(>bGUvfK0jtM688&RTcGX@2$k z*xFMs9l+@pk#JB`lVA9Ao=r7^>3MI@CLG>((o=tmv_KdzXVt9dCPMT$Gz6Av{)l~;$YuFM!BzFUss+`_x0F)SpT^q|J25qpL1=VTs*LKGsF}7 z=54ms>o3Ya=yzST{`a~)HU&?Yzs;)sW3yw?+pf!duj~uV+&MRzy2|7}{rXW^z)!2d+NE6Zba}M<{H?EUernB# z%u@Vo{O$eJ7gsK3n+2+!6`z#tywl=})31lhQFE<+otV6g>+CGsDKpki_-AST!>Q!; zi?=f_>+pA5y^#!OzTDY;>fv;YtbG9wGuJMcpI26&deddj;*yW8npd5EJv_K`1;ir) z=^vQG>jWl$Z2ku-)*7|#bHgpyeT|uREY8`)(oOF7lfB08eCBMOkh1ZVBlpD#VU4|W zZ7=to6uGqEjM#=%ic*p06)da8Cog>5Y_{fsclYdlmCxgP_N_j&X7jfLoV?a&Ose8i zmghg8;k|cv)J-Ro$~jI4`7FSeJ~+kyhzGrJfw&4>?12-Gd+c6D`Sbsh{|5fy*3`;) VDN!Nr#=yY9;OXk;vd$@?2>{7Ze>?yH diff --git a/vendors/ott/coq/.gitignore b/vendors/ott/coq/.gitignore deleted file mode 100644 index 7c71f67f328a..000000000000 --- a/vendors/ott/coq/.gitignore +++ /dev/null @@ -1,7 +0,0 @@ -*.vo -*.glob -*.v.d -*.aux -Makefile.coq -Makefile.coq.conf -.coqdeps.d diff --git a/vendors/ott/coq/Makefile b/vendors/ott/coq/Makefile deleted file mode 100644 index 69c2399702e6..000000000000 --- a/vendors/ott/coq/Makefile +++ /dev/null @@ -1,14 +0,0 @@ -default: Makefile.coq - $(MAKE) -f Makefile.coq - -install: Makefile.coq - $(MAKE) -f Makefile.coq install - -Makefile.coq: _CoqProject - coq_makefile -f _CoqProject -o Makefile.coq - -clean: Makefile.coq - $(MAKE) -f Makefile.coq cleanall - rm -f Makefile.coq Makefile.coq.conf - -.PHONY: default clean install diff --git a/vendors/ott/coq/_CoqProject b/vendors/ott/coq/_CoqProject deleted file mode 100644 index 6f23a74e05a7..000000000000 --- a/vendors/ott/coq/_CoqProject +++ /dev/null @@ -1,14 +0,0 @@ --Q . Ott - -ott_list_predicate.v -ott_list_takedrop.v -ott_list.v -ott_list_repeat.v -ott_list_mem.v -ott_list_base.v -ott_list_eq_dec.v -ott_list_support.v -ott_list_nth.v -ott_list_core.v -ott_list_distinct.v -ott_list_flat_map.v diff --git a/vendors/ott/coq/ott_list.v b/vendors/ott/coq/ott_list.v deleted file mode 100644 index 2dd4eb926a22..000000000000 --- a/vendors/ott/coq/ott_list.v +++ /dev/null @@ -1,36 +0,0 @@ -(* A supplemental list library to help ott users *) - -(* Definitions used by ott-generated output *) -Require Export Ott.ott_list_core. - -(* Support library (non-list-related content) *) -Require Export Ott.ott_list_support. - -(* Supplemental lemmas and tactics about basic functions (length, map, rev) *) -Require Export Ott.ott_list_base. - -(* The take and drop functions, and lemmas and tactics about them - (n = take n l ++ drop n l) /\ (length (take n l) = n) *) -Require Export Ott.ott_list_takedrop. - -(* Supplemental lemmas about taking the nth element of a list *) -Require Export Ott.ott_list_nth. - -(* Lemmas about [In], [list_mem] and [list_minus] *) -Require Export Ott.ott_list_mem. - -(* Lemmas about [flat_map] *) -Require Export Ott.ott_list_flat_map. - -(* Lemmas and tactics about [Forall_list], [Exists_list], [forall_list] - and [exists_list] *) -Require Export Ott.ott_list_predicate. - -(* The repeat function, and lemmas about it - (length (repeat n x) = n) /\ (forall y, In y (repeat n x) -> x = y) *) -Require Export Ott.ott_list_repeat. - -(* The [disjoint] function (test that two lists have no common element), - the [all_distinct] function (test that a list has no repeated element), - and lemmas about them *) -Require Export Ott.ott_list_distinct. diff --git a/vendors/ott/coq/ott_list_base.v b/vendors/ott/coq/ott_list_base.v deleted file mode 100644 index 677df1dbc467..000000000000 --- a/vendors/ott/coq/ott_list_base.v +++ /dev/null @@ -1,236 +0,0 @@ -(* Additional definitions and lemmas on lists *) - -Require Import Arith. -Require Import List. -Require Import Omega. -Require Import Wf_nat. -Require Import Ott.ott_list_support. - - - -(*** Tactic definitions ***) - -(* Tactic definitions do not survive their section, so tactics that are - exported must come outside of any section. *) - -Ltac reverse_list l l' := - let Rev := fresh "Rev" with tmp := fresh "l" in ( - set (tmp := rev l) in *; - assert (Rev : l = rev tmp); - [rewrite <- (rev_involutive l); reflexivity | - clearbody tmp; subst l; rename tmp into l'] - ). - - - -(*** Start of the Lists section ***) - -Section Lists. - -Variables A B C : Type. -Implicit Types x : A. -Implicit Types y : B. -Implicit Types z : C. -Implicit Types xs l : list A. -Implicit Types ys : list B. -Implicit Types zs : list C. -Implicit Types f : A -> B. -Implicit Types g : B -> C. -Implicit Types m n : nat. -Set Implicit Arguments. - - - - -(*** Length ***) - -Definition lt_length (A:Type) := ltof _ (@length A). -Definition well_founded_lt_length (A:Type) := (well_founded_ltof _ (@length A)). - -Lemma length_app : forall l l', length (l ++ l') = length l + length l'. -Proof. - induction l; simpl; auto. -Qed. - - - - -(*** Reverse ***) - -Lemma length_rev : forall l, length (rev l) = length l. -Proof. - induction l; auto. - simpl. rewrite length_app. rewrite IHl. simpl. rewrite plus_comm. auto. -Qed. - -Definition rev_rev := rev_involutive. - -Lemma rev_inj : forall l l', rev l = rev l' -> l = l'. -Proof. - intros. rewrite <- (rev_involutive l). rewrite <- (rev_involutive l'). - apply (f_equal (@rev A)). assumption. -Qed. - - - -(*** Concatenation ***) - -Lemma rev_app : forall l l', rev (l++l') = rev l' ++ rev l. -Proof (@distr_rev A). - -Lemma app_inj_prefix : forall l l1 l2, l++l1 = l++l2 -> l1 = l2. -Proof. - intros. induction l. assumption. - simpl in H. injection H; intros. auto. -Qed. - -Lemma app_inj_suffix : forall l l1 l2, l1++l = l2++l -> l1 = l2. -Proof. - intros. reverse_list l1 l1. reverse_list l2 l2. reverse_list l l. - apply (f_equal (@rev A)). apply app_inj_prefix with (l := l). - apply rev_inj. repeat rewrite rev_app. assumption. -Qed. - -Lemma app_inj_prefix_length_prefix : - forall l0 l1 l0' l1', - length l0 = length l0' -> l0++l1 = l0'++l1' -> l0 = l0'. -Proof. - intros. generalize dependent l0'; induction l0; intros. - destruct l0'; simpl in *; [congruence | discriminate]. - destruct l0'. discriminate. injection H0; intros. - rewrite (IHl0 l0'); auto. congruence. -Qed. -Lemma app_inj_prefix_length_suffix : - forall l0 l1 l0' l1', - length l0 = length l0' -> l0++l1 = l0'++l1' -> l1 = l1'. -Proof. - intros. rewrite (app_inj_prefix_length_prefix _ _ _ _ H H0) in H0. - eapply app_inj_prefix; eauto. -Qed. -Lemma app_inj_suffix_length_prefix : - forall l0 l1 l0' l1', - length l1 = length l1' -> l0++l1 = l0'++l1' -> l0 = l0'. -Proof. - intros. eapply app_inj_prefix_length_prefix. 2: eexact H0. - assert (Eq := f_equal (@length A) H0). - repeat rewrite length_app in Eq. omega. -Qed. -Lemma app_inj_suffix_length_suffix : - forall l0 l1 l0' l1', - length l1 = length l1' -> l0++l1 = l0'++l1' -> l1 = l1'. -Proof. - intros. rewrite (app_inj_suffix_length_prefix _ _ _ _ H H0) in H0. - eapply app_inj_prefix; eauto. -Qed. - - - -(*** Map ***) - -Lemma length_map : forall f l, length (map f l) = length l. -Proof. - induction l; simpl; auto. -Qed. - -Lemma nth_map : forall n f l x, nth n (map f l) (f x) = f (nth n l x). -Proof. - intros until l. generalize n; clear n. - induction l; simpl; destruct n; auto. -Qed. - -Lemma nth_ok_map : forall n f l x, nth_ok n (map f l) (f x) = nth_ok n l x. -Proof. - intros until l. generalize n; clear n. - induction l; simpl; destruct n; auto. -Qed. - -Lemma nth_error_map : - forall n f l, nth_error (map f l) n = map_error f (nth_error l n). -Proof. - intros until l. generalize n; clear n. - induction l; simpl; destruct n; simpl; auto. -Qed. - -Lemma map_app : forall f l l', map f (l ++ l') = map f l ++ map f l'. -Proof. - induction l; auto. intro l'. simpl. rewrite (IHl l'). auto. -Qed. - -Lemma map_map : forall f g l, map g (map f l) = map (compose g f) l. -Proof. - induction l; auto. simpl. rewrite IHl. reflexivity. -Qed. - -Lemma map_identity : forall l, map (fun x => x) l = l. -Proof. induction l; simpl; congruence. Qed. - -Lemma map_extensionality : - forall f f' l, (forall x, f x = f' x) -> map f l = map f' l. -Proof. intros; induction l; simpl; try rewrite H; congruence. Qed. - -Lemma map_rev : forall f l, map f (rev l) = rev (map f l). -Proof. - induction l; auto. - simpl. rewrite map_app. rewrite IHl. reflexivity. -Qed. - - - -(*** End of the Lists section ***) - -End Lists. -Arguments lt_length [A] _ _. - -Hint Resolve length_app length_map length_rev : datatypes. -Hint Rewrite length_app length_map length_rev : lists. -Hint Rewrite rev_app rev_unit rev_rev : lists. -Hint Rewrite app_ass : lists. -Hint Rewrite <- app_nil_end app_comm_cons : lists. -Hint Rewrite map_app map_map map_rev map_identity : lists. -Hint Rewrite app_inj_prefix_length_prefix app_inj_prefix_length_suffix - app_inj_suffix_length_prefix app_inj_suffix_length_suffix - app_inj_prefix app_inj_suffix : app_inj. - - - -(* Look for equations in the context that prove that some lists are empty, - and substitute them away. *) -Ltac eliminate_nil := - repeat - match goal with - | H : nil = ?l1 ++ ?l2 |- _ => symmetry in H - | H : ?l1 ++ ?l2 = nil |- _ => - destruct (app_eq_nil l1 l2 H); try clear H - | H : nil = ?l |- _ => symmetry in H - | H : ?l = nil |- _ => subst l - end. - -(* Simplify all hypotheses involving the list [l]. *) -Ltac simplify_list l := - generalize dependent l; intro; - autorewrite with lists; unfold compose; simpl; - intros. - -(* Simplify all hypotheses involving lists. *) -Ltac simplify_lists := - repeat match goal with l:list _ |- _ => - generalize dependent l; intro; - autorewrite with lists; unfold compose; simpl; - generalize dependent l - end; - intros. - -(* For every hypothesis that is an equality between lists, add a hypothesis - stating that their lengths are equal. *) -Ltac equate_list_lengths := - let eq' := fresh "eq" in ( - pose (eq' := eq); - repeat match goal with - | H:(@eq (list ?T) ?lhs ?rhs) |- _ => - generalize (f_equal (@length T) H); - fold eq' in H - end; - unfold eq' in *; clear eq'; - autorewrite with lists; simpl; intros - ). - diff --git a/vendors/ott/coq/ott_list_core.v b/vendors/ott/coq/ott_list_core.v deleted file mode 100644 index 628da35db145..000000000000 --- a/vendors/ott/coq/ott_list_core.v +++ /dev/null @@ -1,81 +0,0 @@ -(* Definitions that are used by ott-generated output (when using non-expanded lists) *) - -Require Import Bool. -Require Import List. -Set Implicit Arguments. - - - -Section list_predicates. -Variable (A : Type). - -(* Test whether a predicate [p] holds for every element of a list [l]. *) -Definition forall_list (p:A->bool) (l:list A) := - fold_left (fun b (z:A) => b && p z) l true. - -(* Test whether a predicate [p] holds for some element of a list [l]. *) -Definition exists_list (p:A->bool) (l:list A) := - fold_left (fun b (z:A) => b || p z) l false. - -(* Assert that a property holds for every element of a list *) -Inductive Forall_list (P:A->Prop) : list A -> Prop := - | Forall_nil : Forall_list P nil - | Forall_cons : - forall x l, P x -> Forall_list P l -> Forall_list P (x::l). -(* Assert that a property holds for some element of a list *) -Inductive Exists_list (P:A->Prop) : list A -> Prop := - | Exists_head : forall x l, P x -> Exists_list P (x::l) - | Exists_tail : forall x l, Exists_list P l -> Exists_list P (x::l). - -End list_predicates. -Hint Constructors Forall_list Exists_list. - - - -Section list_mem. -(* Functions about membership in a list, with equality between a list - element and a potential member being decided by [eq_dec]. *) -Variable (A : Type). -Variable (eq_dec : forall (a b:A), {a=b} + {a<>b}). - -(* Test whether [x] appears in [l]. *) -Fixpoint list_mem (x:A) (l:list A) {struct l} : bool := - match l with - | nil => false - | cons h t => if eq_dec h x then true else list_mem x t -end. - -(* Remove any element of [l1] that is present in [l2]. *) -Fixpoint list_minus (l1 l2:list A) {struct l1} : list A := - match l1 with - | nil => nil - | cons h t => - if (list_mem h l2) then list_minus t l2 else cons h (list_minus t l2) -end. -End list_mem. - - - -Section Flat_map_definition. -Variables (A B : Type). -Variable (f : A -> list B). -(* This definition is almost the same as the one in the standard library of - Coq V8.0 or V8.1. The difference is that this version has the shape - fun A B f => (fix flat_map l := _) - while the standard library has - fun A B => (fix flat_map f l := _) - Our version has the advantage of making recursive definitions such as - fix foo x := match x with ... | List xs => flat_map foo xs end - well-founded. - *) -Fixpoint flat_map (l:list A) {struct l} : list B := - match l with - | nil => nil - | cons x t => (f x) ++ (flat_map t) - end. -End Flat_map_definition. - - - -(* Provide helper lemmas for {{coq-equality}} homs. *) -Require Export Ott.ott_list_eq_dec. diff --git a/vendors/ott/coq/ott_list_distinct.v b/vendors/ott/coq/ott_list_distinct.v deleted file mode 100644 index 3ee0a8483d37..000000000000 --- a/vendors/ott/coq/ott_list_distinct.v +++ /dev/null @@ -1,197 +0,0 @@ -(*** Lists with no repetition ***) - -Require Import Arith. -Require Import Bool. -Require Import List. -Require Import Ring. -Require Import Ott.ott_list_core. -Require Import Ott.ott_list_base. -Require Import Ott.ott_list_nth. -Require Import Ott.ott_list_mem. -Require Import Omega. - - - -Section All_distinct. -Set Implicit Arguments. -Variable A : Type. -Variable eq_dec : forall (x y:A), {x=y} + {x<>y}. - -Notation one_distinct := (fun x xs => negb (list_mem eq_dec x xs)). - -Fixpoint all_distinct (xs:list A) : bool := - match xs with - | nil => true - | x::xt => andb (one_distinct x xt) (all_distinct xt) - end. -Fixpoint disjoint (xs ys:list A) {struct xs} : bool := - match xs with - | nil => true - | x::xt => andb (one_distinct x ys) (disjoint xt ys) - end. - - - -Ltac destruct_andb := - repeat match goal with - | H : Is_true (?a && ?b) |- _ => - (* N.B. [andb_prop2] is called [andb_prop_elim] after V8.1 *) - destruct (andb_prop2 a b H); clear H - end. - -Lemma one_distinct_eq_fold_right : - forall x0 xs, - one_distinct x0 xs = - fold_right (fun x b => if eq_dec x x0 then false else b) true xs. -Proof. - induction xs; simpl in * . reflexivity. - destruct (eq_dec a x0); simpl in *; congruence. -Qed. -Lemma disjoint_eq_fold_right : - forall xs ys, - disjoint xs ys = fold_right (fun x => andb (one_distinct x ys)) true xs. -Proof. intros; induction xs; simpl in *; congruence. Qed. - -Lemma one_distinct_app : - forall x xs ys, - one_distinct x (xs++ys) = one_distinct x xs && one_distinct x ys. -Proof. - intros; induction xs; simpl in * . reflexivity. - destruct (eq_dec a x); auto with bool. -Qed. -Lemma all_distinct_app : - forall xs ys, - all_distinct (xs++ys) = - all_distinct xs && all_distinct ys && disjoint xs ys. -Proof. - intros; induction xs; simpl in * . ring. - rewrite one_distinct_app. rewrite IHxs. ring. -Qed. - -Lemma one_distinct_app_left : - forall x xs ys, - Is_true (one_distinct x (xs++ys)) -> Is_true (one_distinct x xs). -Proof. - intros; simpl in * . - simplify_lists. apply Is_true_eq_left. assert (H' := Is_true_eq_true _ H). - unfold negb in * . destruct (list_mem eq_dec x xs); auto. -Qed. -Lemma all_distinct_app_left : - forall xs ys, Is_true (all_distinct (xs++ys)) -> Is_true (all_distinct xs). -Proof. - intros. rewrite all_distinct_app in H. - destruct_andb; assumption. -Qed. -Lemma one_distinct_app_right : - forall x xs ys, - Is_true (one_distinct x (xs++ys)) -> Is_true (one_distinct x xs). -Proof. - intros; simpl in * . - simplify_lists. apply Is_true_eq_left. assert (H' := Is_true_eq_true _ H). - unfold negb in * . destruct (list_mem eq_dec x xs); auto. -Qed. -Lemma all_distinct_app_right : - forall xs ys, Is_true (all_distinct (xs++ys)) -> Is_true (all_distinct xs). -Proof. - intros. rewrite all_distinct_app in H. - destruct_andb; assumption. -Qed. - -Lemma disjoint_nil_left : forall xs, disjoint nil xs = true. -Proof. reflexivity. Qed. -Lemma disjoint_nil_right : forall xs, disjoint xs nil = true. -Proof. induction xs; simpl; congruence. Qed. -Lemma disjoint_comm : - forall xs ys, disjoint xs ys = disjoint ys xs. -Proof. - induction xs; intros; simpl in * . - rewrite disjoint_nil_right; reflexivity. - induction ys; simpl in * . rewrite IHxs; reflexivity. - rewrite <- IHys; repeat rewrite IHxs; simpl. - destruct (eq_dec a0 a); destruct (eq_dec a a0); try subst a0. - reflexivity. elim n; reflexivity. elim n; reflexivity. ring. -Qed. -Lemma disjoint_app_distr_left : - forall xs ys zs, disjoint xs (ys++zs) = disjoint xs ys && disjoint xs zs. -Proof. - intros. induction xs; simpl in * . reflexivity. - rewrite IHxs; rewrite one_distinct_app. ring. -Qed. -Lemma disjoint_app_distr_right : - forall xs ys zs, disjoint (xs++ys) zs = disjoint xs zs && disjoint ys zs. -Proof. - intros. rewrite disjoint_comm. rewrite disjoint_app_distr_left. - do 2 rewrite (disjoint_comm zs). reflexivity. -Qed. - -Lemma rev_one_distinct : - forall x xs, one_distinct x (rev xs) = one_distinct x xs. -Proof. - intros; induction xs; simpl in * . reflexivity. - rewrite one_distinct_app; rewrite IHxs; simpl. - destruct (eq_dec a x); ring. -Qed. -Lemma rev_disjoint_right : - forall xs ys, disjoint xs (rev ys) = disjoint xs ys. -Proof. - intros; induction xs; simpl in * . reflexivity. - rewrite rev_one_distinct; rewrite IHxs; reflexivity. -Qed. -Lemma rev_disjoint_left : - forall xs ys, disjoint (rev xs) ys = disjoint xs ys. -Proof. - intros; induction xs; simpl in * . reflexivity. - rewrite disjoint_app_distr_right; simpl. rewrite IHxs; ring. -Qed. -Lemma rev_all_distinct : - forall xs, all_distinct (rev xs) = all_distinct xs. -Proof. - intros; induction xs; simpl in * . reflexivity. - rewrite all_distinct_app; simpl. rewrite IHxs. - rewrite rev_disjoint_left; rewrite disjoint_comm; simpl; ring. -Qed. - -Lemma all_distinct_indices_aux : - forall xs i j, - i <= j -> - Is_true (all_distinct xs) -> - nth_error xs i = nth_error xs j -> - i < length xs -> - i = j. -Proof. - intros xs i j Ineq. - replace j with (i + (j-i)). 2: solve [auto with arith]. - generalize (j-i); clear Ineq j; intros k Distinct Nths Bound. - destruct k. solve [auto with arith]. elimtype False. - generalize dependent xs; induction i; intros; destruct xs; simpl in * . - omega. - destruct (andb_prop2 _ _ Distinct) as [Notin _]; clear Distinct Bound. - generalize dependent k; induction xs; intros; simpl in * . - destruct k; discriminate. - destruct (eq_dec a0 a). exact Notin. - destruct k; simpl in *; [injection Nths | idtac]; solve [eauto]. - omega. - eapply IHi; eauto. destruct_andb; assumption. - omega. -Qed. -Lemma all_distinct_indices : - forall xs i j, - Is_true (all_distinct xs) -> - nth_error xs i = nth_error xs j -> - i < length xs -> - i = j. -Proof. - intros. destruct (le_ge_dec i j). - eapply all_distinct_indices_aux; eauto. - symmetry. eapply all_distinct_indices_aux; eauto. omega. -Qed. - -End All_distinct. - -Notation one_distinct := (fun eq_dec x xs => negb (list_mem eq_dec x xs)). - -Hint Rewrite one_distinct_app all_distinct_app : lists. -Hint Rewrite disjoint_nil_left disjoint_nil_right : lists. -Hint Rewrite disjoint_app_distr_left disjoint_app_distr_right : lists. -Hint Rewrite rev_one_distinct rev_disjoint_right rev_disjoint_left - rev_all_distinct : lists. diff --git a/vendors/ott/coq/ott_list_eq_dec.v b/vendors/ott/coq/ott_list_eq_dec.v deleted file mode 100644 index 5115fea6d4bb..000000000000 --- a/vendors/ott/coq/ott_list_eq_dec.v +++ /dev/null @@ -1,44 +0,0 @@ -(* Helper lemmas for {{coq-equality}} homs. *) - -Require Import List. -Set Implicit Arguments. - - - -(* Help construct equality decision procedures (for {{coq-equality}} - homs). We provide a transparent version of [List.list_eq_dec] from - the Coq standard library. This transparent version is needed for - types that contain a recursive call inside a list. Note that at the - time of writing ott does not generate a workable proof in this case: - you have to set up the induction manually and call [list_eq_dec] on - your own (TODO: point to an example --- it's systematic but not easy). *) -Lemma list_eq_dec : - forall (A:Type) (eq_dec : forall (x y:A), {x = y} + {x <> y}), - forall (x y:list A), {x = y} + {x <> y}. -Proof. - induction x as [| a l IHl]; destruct y as [| a0 l0]; auto with datatypes. - destruct (eq_dec a a0) as [e| e]. - destruct (IHl l0) as [e'| e']. - left; rewrite e; rewrite e'; trivial. - right; red in |- *; intro. - apply e'; injection H; trivial. - right; red in |- *; intro. - apply e; injection H; trivial. -Defined. - -(* While the Coq built-in "decide equality" tactic can decide equality on - pairs on its own, adding the following lemmas in the hint database helps - when lists of pairs are involved. *) -Lemma pair_eq_dec : - forall (A B:Type) - (eqA:forall a a0:A, {a=a0}+{a<>a0}) - (eqB:forall b b0:B, {b=b0}+{b<>b0}) - (x y:A*B), {x=y}+{x<>y}. -Proof. intros until 2; decide equality; auto. Qed. -Hint Resolve pair_eq_dec : ott_coq_equality. - -(* With the following hint, the default {{coq-equality}} proof handles - grammar types containing lists provided that no recursive call appears - in a list. *) -Hint Resolve list_eq_dec : ott_coq_equality. - diff --git a/vendors/ott/coq/ott_list_flat_map.v b/vendors/ott/coq/ott_list_flat_map.v deleted file mode 100644 index 544a81b5dc9f..000000000000 --- a/vendors/ott/coq/ott_list_flat_map.v +++ /dev/null @@ -1,96 +0,0 @@ -(*** Flattening and mapping ***) - -Require Import Arith. -Require Import List. -Require Import Ott.ott_list_core. -Require Import Ott.ott_list_support. -Require Import Ott.ott_list_base. - - - -Section Flat_map. -Variables A B C : Type. -Implicit Types x : A. -Implicit Types y : B. -Implicit Types l xs : list A. -Implicit Types ys : list B. -Implicit Types xss : list (list A). -Implicit Types yss : list (list B). -Implicit Types f : A -> B. -Implicit Types g : B -> C. -Implicit Types F : A -> list B. -Implicit Types G : B -> list C. -Set Implicit Arguments. - -Lemma std_eq_flat_map : - forall F l, List.flat_map F l = flat_map F l. -Proof. induction l; simpl; congruence. Qed. - -Lemma length_flat_map : - forall F l, - length (flat_map F l) = fold_right plus 0 (map (fun x => length (F x)) l). -Proof. induction l; simpl; autorewrite with lists; congruence. Qed. - -Lemma flat_map_app : - forall F l l', flat_map F (l ++ l') = flat_map F l ++ flat_map F l'. -Proof. intros; induction l; simpl; autorewrite with lists; congruence. Qed. - -Lemma flat_map_map : - forall f G l, flat_map G (map f l) = flat_map (compose G f) l. -Proof. - intros; induction l; simpl; autorewrite with lists; - unfold compose in *; congruence. -Qed. - -Lemma map_flat_map : - forall F g l, map g (flat_map F l) = flat_map (compose (map g) F) l. -Proof. - intros; induction l; simpl; autorewrite with lists; - unfold compose in *; congruence. -Qed. - -Lemma flat_map_identity : forall l, flat_map (fun x => x::nil) l = l. -Proof. induction l; simpl; congruence. Qed. - -Lemma flat_map_extensionality : - forall F F' l, (forall x, F x = F' x) -> flat_map F l = flat_map F' l. -Proof. intros; induction l; simpl; try rewrite H; congruence. Qed. - -Lemma flat_map_rev : - forall F l, flat_map F (rev l) = rev (flat_map (compose (@rev _) F) l). -Proof. - intros; induction l; simpl. reflexivity. - unfold compose in *; autorewrite with lists; - rewrite flat_map_app; simpl; autorewrite with lists. congruence. -Qed. - -Definition flatten := flat_map (fun xs => xs). -Lemma unfold_flatten : flatten = flat_map (fun xs => xs). -Proof refl_equal _. - -Lemma In_flat_map_intro : - forall F l x y, - In x l -> In y (F x) -> In y (flat_map F l). -Proof. - intros; induction l; simpl in *; destruct H. - subst; auto with datatypes. auto with datatypes. -Qed. - -Lemma In_flat_map_elim : - forall F l y, - In y (flat_map F l) -> - exists x, In x l /\ In y (F x). -Proof. - intros; induction l; simpl in * . solve [elim H]. - destruct (in_app_or _ _ _ H). subst; eauto with datatypes. firstorder. -Qed. - -End Flat_map. - -Hint Rewrite std_eq_flat_map - length_flat_map flat_map_app flat_map_map map_flat_map - flat_map_identity flat_map_extensionality - flat_map_rev - unfold_flatten - : lists. -Hint Resolve In_flat_map_intro In_flat_map_elim : lists. diff --git a/vendors/ott/coq/ott_list_mem.v b/vendors/ott/coq/ott_list_mem.v deleted file mode 100644 index 16ebf23aa7dd..000000000000 --- a/vendors/ott/coq/ott_list_mem.v +++ /dev/null @@ -1,205 +0,0 @@ -(*** Membership predicates ***) - -Require Import Arith. -Require Import Bool. -Require Import List. -Require Import Ring. -Require Import Ott.ott_list_base. -Require Import Ott.ott_list_core. -Require Import Ott.ott_list_nth. -Set Implicit Arguments. - - - -(*** Membership predicate ***) - -Section In. -Variable A : Type. -Implicit Types x : A. -Implicit Types xs l : list A. - -(* Speed up proofs by providing trivial consequences of [List.in_or_app] that - do not require eauto. *) -Lemma In_left_app : - forall l l' a, In a l -> In a (l ++ l'). -Proof. auto with datatypes. Qed. -Lemma In_right_app : - forall l l' a, In a l -> In a (l ++ l'). -Proof. auto with datatypes. Qed. - -Lemma not_in_app_or : - forall l l' a, ~In a (l ++ l') -> ~In a l /\ ~In a l'. -Proof. unfold not; auto with datatypes. Qed. -Lemma not_in_or_app : - forall l l' a, ~In a l /\ ~In a l' -> ~In a (l ++ l'). -Proof. unfold not; destruct 1; intros. pose (in_app_or _ _ _ H1). tauto. Qed. - -Lemma nth_error_In : - forall l n x, nth_error l n = Some x -> In x l. -Proof. - intros; generalize dependent l; induction n; destruct l; intros; - simpl in *; simplify_eq H; auto. -Qed. - -Lemma nth_safe_In : - forall l n H, In (nth_safe l n H) l. -Proof. - intros. eapply nth_error_In. rewrite nth_safe_eq_nth_error. eauto. -Qed. - -End In. - -Hint Resolve In_left_app In_right_app : datatypes. -Hint Resolve not_in_app_or not_in_or_app : datatypes. -Hint Resolve nth_error_In nth_safe_In : datatypes. - - - -(*** Membership predicate and map ***) - -Lemma image_In_map : - forall (A B:Type) x l (f:A->B), - In x l -> In (f x) (map f l). -Proof. - intros. induction l; simpl in * . tauto. destruct H; subst; tauto. -Qed. - -Lemma In_map_exists : - forall (A B:Type) l y (f:A->B), - In y (map f l) -> exists x, y = f x /\ In x l. -Proof. - intros. induction l; simpl in * . tauto. destruct H. eauto. firstorder. -Qed. - -Ltac elim_In_map H x Eq Mem := - let tmp := fresh "tmp" in ( - try rename H into tmp; - elim (In_map_exists _ _ _ tmp); intro x; destruct 1 as [Eq Mem]; - try clear tmp - ). - -Ltac elim_all_In_map := - repeat match goal with - | H : In ?y (map ?f ?l) |- _ => - let Eq := fresh "Eq" with tmp := fresh "tmp" in ( - rename H into tmp; - elim (In_map_exists _ _ _ tmp); intro; destruct 1 as [Eq Mem]; - clear tmp - ) - end. - - - -(*** Membership function ***) - -Section list_mem. -Variable A : Type. -Variable (eq_dec : forall (a b:A), {a=b} + {a<>b}). -Implicit Types x : A. -Implicit Types xs l : list A. - -Ltac case_eq foo := - generalize (refl_equal foo); - pattern foo at -1; - case foo. - -Notation list_mem := (list_mem eq_dec). - -Lemma list_mem_implies_In : - forall x l, Is_true (list_mem x l) -> In x l. -Proof. - intros. induction l. assumption. simpl in *; destruct (eq_dec a x); tauto. -Qed. -Lemma list_mem_false_implies_not_In : - forall x l, list_mem x l = false -> ~In x l. -Proof. - intros. induction l; simpl in * . tauto. - destruct (eq_dec a x). discriminate. tauto. -Qed. -Lemma case_list_mem_In : - forall x l, if list_mem x l then In x l else ~In x l. -Proof. - intros; induction l; simpl in * . tauto. - destruct (eq_dec a x). tauto. destruct (list_mem x l); tauto. -Qed. -Lemma list_mem_eq_In_dec : - forall x l, list_mem x l = if In_dec eq_dec x l then true else false. -Proof. - intros. assert (If := case_list_mem_In x l). - destruct (list_mem x l); destruct (In_dec eq_dec x l); tauto. -Qed. - -Lemma In_implies_list_mem : - forall x l, In x l -> Is_true (list_mem x l). -Proof. - intros. induction l. assumption. - simpl in *; destruct (eq_dec a x); simpl; tauto. -Qed. -Lemma not_In_implies_list_mem_false : - forall x l, ~In x l -> list_mem x l = false. -Proof. - intros. induction l; simpl in * . tauto. destruct (eq_dec a x); tauto. -Qed. - -Lemma list_mem_app : - forall x l l', list_mem x (l++l') = list_mem x l || list_mem x l'. -Proof. - intros; repeat rewrite list_mem_eq_In_dec; - repeat match goal with |- context C [In_dec ?eq_dec_ ?x_ ?l_] => - destruct (In_dec eq_dec_ x_ l_) - end; - intros; try ring; elimtype False; - (let a := type of i in (generalize dependent i; fold (~a))); - auto with datatypes. -Qed. - -Lemma nth_error_mem : - forall l n x, nth_error l n = Some x -> Is_true (list_mem x l). -Proof. intros; apply In_implies_list_mem. eapply nth_error_In; eauto. Qed. -Lemma nth_safe_mem : - forall l n H, Is_true (list_mem (nth_safe l n H) l). -Proof. intros; apply In_implies_list_mem. apply nth_safe_In; auto. Qed. - -End list_mem. - -Hint Rewrite list_mem_app : lists. - - - -(*** Removing an element ***) - -Section list_minus. -Variable A : Type. -Variable (eq_dec : forall (a b:A), {a=b} + {a<>b}). -Implicit Types x : A. -Implicit Types xs l : list A. - -Notation list_minus := (list_minus eq_dec). - -Lemma not_In_list_minus_self : - forall l x, ~In x (list_minus l (x::nil)). -Proof. - induction l; intros; simpl in * . tauto. - destruct (eq_dec x a); simpl in *; firstorder. -Qed. - -Lemma In_list_plus : - forall x l l', In x (list_minus l l') -> In x l. -Proof. - induction l; intros; simpl in * . assumption. - destruct (list_mem eq_dec a l'); simpl in *; firstorder. -Qed. - -Lemma In_list_minus_other : - forall l x x', x' <> x -> In x l -> In x (list_minus l (x'::nil)). -Proof. - induction l; intros; simpl in * . assumption. - destruct (eq_dec x' a); subst; simpl in * . - apply IHl; tauto. - destruct H0. tauto. auto. -Qed. - -End list_minus. - -Hint Resolve In_list_plus : In_list_plus. -Hint Resolve In_list_minus_other : datatypes. diff --git a/vendors/ott/coq/ott_list_nth.v b/vendors/ott/coq/ott_list_nth.v deleted file mode 100644 index 46c1d17e58e2..000000000000 --- a/vendors/ott/coq/ott_list_nth.v +++ /dev/null @@ -1,194 +0,0 @@ -Require Import Arith. -Require Import Omega. -Require Import List. -Require Import Ott.ott_list_support. -Require Import Ott.ott_list_base. - - - -Section Lists. - -Variables A B C : Type. -Implicit Types x : A. -Implicit Types y : B. -Implicit Types z : C. -Implicit Types xs l : list A. -Implicit Types ys : list B. -Implicit Types zs : list C. -Implicit Types f : A -> B. -Implicit Types g : B -> C. -Implicit Types m n : nat. -Set Implicit Arguments. - -Ltac case_eq foo := - generalize (refl_equal foo); - pattern foo at -1; - case foo. - - - -(*** Nth element ***) - -Unset Implicit Arguments. - -Fixpoint nth_safe l n {struct l} : n < length l -> A := - match l as l1, n as n1 return n1 < length l1 -> A with - | h::t, 0 => fun H => h - | h::t, S m => fun H => nth_safe t m (le_S_n _ _ H) - | nil, _ => fun H => match le_Sn_O _ H with end - end. - -Lemma nth_safe_eq_nth_error : - forall l n H, value (nth_safe l n H) = nth_error l n. -Proof. - induction l; intro n; pose (F := le_Sn_O n); destruct n; try (contradiction || tauto). - simpl length; intro H. - simpl nth_error; rewrite <- (IHl n (le_S_n _ _ H)). - reflexivity. -Qed. - -Lemma nth_safe_proof_irrelevance : - forall l n H H', nth_safe l n H = nth_safe l n H'. -Proof. - intros. assert (value (nth_safe l n H) = value (nth_safe l n H')). - transitivity (nth_error l n); - apply nth_safe_eq_nth_error || (symmetry; apply nth_safe_eq_nth_error). - injection H0; trivial. -Qed. - -Lemma nth_safe_cons : - forall x l n H, - nth_safe (x::l) (S n) H = nth_safe l n (le_S_n (S n) (length l) H). -Proof. intros. reflexivity. Qed. - -Lemma nth_safe_app : - forall l l' n (H:n nth_error l n = error. -Proof. - induction l; intros n H. solve [apply nth_error_nil]. - simpl in H. destruct n. assert False; [omega | intuition]. - simpl. apply IHl. omega. -Qed. - -Lemma nth_error_app_prefix : - forall l l' n H, nth_error (l++l') n = value (nth_safe l n H). -Proof. - intros. - assert (H' : n < length (l ++ l')). - rewrite (length_app l l'). solve [auto with arith]. - transitivity (value (nth_safe (l++l') n H')). - solve [apply nth_error_in]. - assert ((nth_safe l n H) = (nth_safe (l ++ l') n H')). - elim (nth_safe_app l l' n H). intros. - rewrite H0. apply nth_safe_proof_irrelevance. - rewrite H0. reflexivity. -Qed. - -Lemma nth_error_app_suffix : - forall l l' n, nth_error (l++l') (length l + n) = nth_error l' n. -Proof. - induction l; intros; simpl; auto. -Qed. - -Lemma nth_error_dec : - forall l n, nth_error l n = match le_lt_dec (length l) n with - | left _ => error - | right H => value (nth_safe l n H) - end. -Proof. - intros l n; generalize l; clear l. induction n; destruct l; try reflexivity. - simpl nth_error. simpl length. rewrite (IHn l); clear IHn. - decompose sum (lt_eq_lt_dec (length l) n); - destruct (le_lt_dec (length l) n); - destruct (le_lt_dec (S (length l)) (S n)); - reflexivity || - (assert False; [omega | intuition]) || - simpl. - match match goal with |- ?g => g end with value ?lhs = value ?rhs => - assert (Eq : lhs=rhs) - end. apply nth_safe_proof_irrelevance. rewrite Eq; reflexivity. -Qed. - -Lemma nth_error_length : - forall l n, match nth_error l n with - | Some _ => n < length l - | None => n >= length l - end. -Proof. - induction l; intros; destruct n; try solve [compute; auto with arith]. - simpl. pose (H := IHl n). - case_eq (nth_error l n); intros; - rewrite H0 in H; auto with arith. -Qed. - -Lemma nth_error_value : - forall l n x, nth_error l n = value x -> n < length l. -Proof. intros; assert (L := nth_error_length l n). rewrite H in L; exact L. Qed. -Lemma nth_error_error : - forall l n, nth_error l n = error -> n >= length l. -Proof. intros; assert (L := nth_error_length l n). rewrite H in L; exact L. Qed. - -Lemma nth_eq_nth_safe : - forall l n default, - nth n l default = match le_lt_dec (length l) n with - | left _ => default - | right H => nth_safe l n H - end. -Proof. - induction l; destruct n; reflexivity || intros. simpl nth; simpl length. - destruct (le_lt_dec (S (length l)) (S n)); - case_eq (le_lt_dec (length l) n); intros; - [idtac | elimtype False; omega | elimtype False; omega | idtac]; - pose (H' := IHl n default); rewrite H in H'; rewrite H'. - reflexivity. simpl; apply nth_safe_proof_irrelevance. -Qed. - -Lemma nth_eq_nth_error : - forall l n default, - nth n l default = match nth_error l n with - | Some x => x - | None => default - end. -Proof. - induction l; destruct n; intros; try reflexivity. simpl; apply IHl. -Qed. - -End Lists. - -Arguments nth_safe [A] _ _ _. -Arguments nth_safe_eq_nth_error [A] _ _ _. -Arguments nth_safe_proof_irrelevance [A] _ _ _ _. -Arguments nth_safe_cons [A] _ _ _ _. -Arguments nth_safe_app [A] _ _ _ _. - -Hint Rewrite nth_map nth_ok_map nth_error_map : lists. -Hint Rewrite nth_error_nil : lists. -Hint Rewrite nth_error_in nth_error_out using omega : list_nth_error. -Hint Rewrite nth_error_dec : list_nth_dec. -Hint Resolve nth_error_value nth_error_error : datatypes. diff --git a/vendors/ott/coq/ott_list_predicate.v b/vendors/ott/coq/ott_list_predicate.v deleted file mode 100644 index fef347105dc0..000000000000 --- a/vendors/ott/coq/ott_list_predicate.v +++ /dev/null @@ -1,426 +0,0 @@ -(*** Predicates on a list ***) - -Require Import Arith. -Require Import Bool. -Require Import List. -Require Import Ott.ott_list_base. -Require Import Ott.ott_list_core. -Require Import Ott.ott_list_takedrop. - - - -Section List_predicate_inductive. -(* Properties of [Forall_list] and [Exists_list] *) - -Variables A : Type. -Implicit Types x : A. -Implicit Types xs l : list A. -Implicit Types p : A -> bool. -Implicit Types P : A -> Prop. -Set Implicit Arguments. - -Lemma not_Exists_list_nil : forall P, ~(Exists_list P nil). -Proof. intros P H; inversion H. Qed. -Hint Resolve not_Exists_list_nil. - -Lemma Forall_list_dec : - forall P (dec : forall x, {P x} + {~P x}) l, - {Forall_list P l} + {~Forall_list P l}. -Proof. - induction l; simpl in * . solve [auto]. - destruct (dec a); [destruct IHl | idtac]; auto; - right; intro; inversion_clear H; tauto. -Qed. - -Lemma Exists_list_dec : - forall P (dec : forall x, {P x} + {~P x}) l, - {Exists_list P l} + {~Exists_list P l}. -Proof. - induction l; simpl in * . solve [auto]. - destruct (dec a); [idtac | destruct IHl]; auto; - right; intro; inversion_clear H; tauto. -Qed. - -Lemma Forall_Exists_list_dec : - forall P Q (dec : forall x, {P x} + {Q x}) l, - {Forall_list P l} + {Exists_list Q l}. -Proof. - induction l; simpl in * . solve [auto]. - destruct (dec a); destruct IHl; auto. -Qed. - -Lemma Forall_list_In : - forall P x l, In x l -> Forall_list P l -> P x. -Proof. - induction l; intros; simpl in *; destruct H; - inversion H0; subst; auto. -Qed. - -Lemma In_Forall_list : - forall P l, (forall x, In x l -> P x) -> Forall_list P l. -Proof. - induction l; firstorder. -Qed. - -Lemma exists_In_Exists_list : - forall P l, Exists_list P l -> exists x, In x l /\ P x. -Proof. - induction 1. - exists x; simpl; tauto. - elim IHExists_list; intros. exists x0; simpl; tauto. -Qed. - -Lemma Forall_list_app_left : - forall P l l', Forall_list P (l++l') -> Forall_list P l. -Proof. - intros; induction l; simpl in * . auto. - inversion_clear H. auto. -Qed. -Lemma Forall_list_app_right : - forall P l l', Forall_list P (l++l') -> Forall_list P l'. -Proof. - induction l; intros. auto. inversion_clear H; auto. -Qed. -Lemma app_Forall_list : - forall P l l', Forall_list P l -> Forall_list P l' -> Forall_list P (l++l'). -Proof. - intros; induction l; simpl in * . assumption. - inversion_clear H. auto. -Qed. -Hint Resolve app_Forall_list Forall_list_app_left Forall_list_app_right. - -Lemma Exists_list_app_or : - forall P l l', Exists_list P (l++l') -> - Exists_list P l \/ Exists_list P l'. -Proof. - intros; induction l; simpl in * . solve [auto]. - inversion_clear H. solve [auto]. - destruct (IHl H0); solve [auto]. -Qed. -Lemma app_Exists_list_left : - forall P l l', Exists_list P l -> Exists_list P (l++l'). -Proof. - intros; induction l; inversion_clear H; simpl; auto. -Qed. -Lemma app_Exists_list_right : - forall P l l', Exists_list P l' -> Exists_list P (l++l'). -Proof. - intros; induction l; simpl; auto. -Qed. -Hint Resolve Exists_list_app_or app_Exists_list_left app_Exists_list_right. - -Lemma rev_Forall_list : - forall P l, Forall_list P l -> Forall_list P (rev l). -Proof. induction 1; simpl; auto. Qed. -Lemma rev_Exists_list : - forall P l, Exists_list P l -> Exists_list P (rev l). -Proof. induction 1; simpl; auto. Qed. -Lemma Forall_list_rev : - forall P l, Forall_list P (rev l) -> Forall_list P l. -Proof. - intros. rewrite <- (rev_involutive l). apply rev_Forall_list; assumption. -Qed. -Lemma Exists_list_rev : - forall P l, Exists_list P (rev l) -> Exists_list P l. -Proof. - intros. rewrite <- (rev_involutive l). apply rev_Exists_list; assumption. -Qed. - -Lemma take_Forall_list : - forall P n l, Forall_list P l -> Forall_list P (take n l). -Proof. - intros; generalize dependent n; induction l; intros; - inversion_clear H; destruct n; simpl; auto. -Qed. -Lemma drop_Forall_list : - forall P n l, Forall_list P l -> Forall_list P (drop n l). -Proof. - intros; generalize dependent n; induction l; intros; - inversion_clear H; destruct n; simpl; auto. -Qed. -Lemma Forall_list_take_drop : - forall P n l, - Forall_list P (take n l) -> Forall_list P (drop n l) -> Forall_list P l. -Proof. intros; rewrite <- (take_app_drop l n); auto. Qed. - -Lemma take_drop_Exists_list : - forall P n l, Exists_list P l -> - Exists_list P (take n l) \/ Exists_list P (drop n l). -Proof. intros; rewrite <- (take_app_drop l n) in H; auto. Qed. -Lemma Exists_list_take : - forall P n l, Exists_list P (take n l) -> Exists_list P l. -Proof. intros; rewrite <- (take_app_drop l n); auto. Qed. -Lemma Exists_list_drop : - forall P n l, Exists_list P (drop n l) -> Exists_list P l. -Proof. intros; rewrite <- (take_app_drop l n); auto. Qed. - -Lemma Forall_list_implies : - forall (P Q:A->Prop) xs, - (forall x, In x xs -> P x -> Q x) -> - Forall_list P xs -> Forall_list Q xs. -Proof. induction 2; firstorder. Qed. -Lemma Exists_list_implies : - forall (P Q:A->Prop) xs, - (forall x, In x xs -> P x -> Q x) -> - Exists_list P xs -> Exists_list Q xs. -Proof. induction 2; firstorder. Qed. - -End List_predicate_inductive. - -Hint Resolve not_Exists_list_nil : lists. -Hint Resolve In_Forall_list : lists. -Hint Resolve Forall_list_app_left Forall_list_app_right : lists. -Hint Resolve app_Forall_list Exists_list_app_or : lists. -Hint Resolve app_Exists_list_left app_Exists_list_right : lists. -Hint Resolve rev_Forall_list rev_Exists_list : lists. -Hint Resolve Forall_list_rev Exists_list_rev : lists. -Hint Resolve take_Forall_list drop_Forall_list Forall_list_take_drop - take_drop_Exists_list Exists_list_take Exists_list_drop - : take_drop. -Hint Resolve Forall_list_implies Exists_list_implies : lists. - - - -Section List_predicate_fold. -(* Properties of [forall_list] and [exists_list] *) - -Variables A : Type. -Implicit Types x : A. -Implicit Types xs l : list A. -Implicit Types p : A -> bool. -Implicit Types P : A -> Prop. -Set Implicit Arguments. - -Lemma forall_list_eq_fold_left_map : - forall p l, - forall_list p l = fold_left andb (map p l) true. -Proof. - unfold forall_list; intros. generalize true. - induction l; intros; simpl in * . reflexivity. - rewrite IHl. reflexivity. -Qed. -Lemma forall_list_eq_fold_right_map : - forall p l, - forall_list p l = fold_right andb true (map p l). -Proof. - intros. rewrite forall_list_eq_fold_left_map. - apply fold_symmetric; auto with bool. -Qed. -Lemma forall_list_eq_fold_left : - forall p l, - forall_list p l = fold_left (fun b z => b && p z) l true. -Proof. auto. Qed. -Lemma forall_list_eq_fold_right : - forall p l, - forall_list p l = fold_right (fun z b => b && p z) true l. -Proof. - intros; rewrite forall_list_eq_fold_right_map. - induction l; simpl. reflexivity. rewrite IHl. auto with bool. -Qed. - -Lemma exists_list_eq_fold_left_map : - forall p l, - exists_list p l = fold_left orb (map p l) false. -Proof. - unfold exists_list; intros. generalize false. - induction l; intros; simpl in * . reflexivity. - rewrite IHl. reflexivity. -Qed. -Lemma exists_list_eq_fold_right_map : - forall p l, - exists_list p l = fold_right orb false (map p l). -Proof. - intros. rewrite exists_list_eq_fold_left_map. - apply fold_symmetric; auto with bool. -Qed. -Lemma exists_list_eq_fold_left : - forall p l, - exists_list p l = fold_left (fun b z => b || p z) l false. -Proof. auto. Qed. -Lemma exists_list_eq_fold_right : - forall p l, - exists_list p l = fold_right (fun z b => b || p z) false l. -Proof. - intros; rewrite exists_list_eq_fold_right_map. - induction l; simpl. reflexivity. rewrite IHl. auto with bool. -Qed. - -Lemma forall_list_extensionality : - forall p p' l, (forall x, p x = p' x) -> forall_list p l = forall_list p' l. -Proof. - intros; repeat rewrite forall_list_eq_fold_right. - induction l; simpl. reflexivity. rewrite IHl; rewrite H. reflexivity. -Qed. - -Lemma exists_list_extensionality : - forall p p' l, (forall x, p x = p' x) -> exists_list p l = exists_list p' l. -Proof. - intros; repeat rewrite exists_list_eq_fold_right. - induction l; simpl. reflexivity. rewrite IHl; rewrite H. reflexivity. -Qed. - -End List_predicate_fold. - - - -Section List_predicate_relationship. - -Variables A : Type. -Implicit Types x : A. -Implicit Types xs l : list A. -Implicit Types p : A -> bool. -Implicit Types P : A -> Prop. -Set Implicit Arguments. - -(* TODO: lemmas relating Forall_list and forall_list, Exists_list - and exists_list, forall_list and exists_list. *) - -Lemma Forall_if_implies_if_forall : - forall P p l, - Forall_list (fun z => if p z then P z else ~P z) l -> - if forall_list p l then Forall_list P l else ~Forall_list P l. -Proof. - intros; rewrite forall_list_eq_fold_right. - induction H; simpl in * . apply Forall_nil. - destruct (fold_right (fun (z : A) (b : bool) => b && p z) true l). - destruct (p x); simpl. apply Forall_cons; assumption. - intro No; inversion No; tauto. - simpl; intro No; inversion No; tauto. -Qed. - -End List_predicate_relationship. - - - -(*** More about maps ***) - -Section List_predicate_map. - -Variables A B C : Type. -Implicit Types x : A. -Implicit Types y : B. -Implicit Types z : C. -Implicit Types xs l : list A. -Implicit Types ys : list B. -Implicit Types zs : list C. -Implicit Types f : A -> B. -Implicit Types g : B -> C. -Implicit Types P : A -> Prop. -Implicit Types Q : B -> Prop. -Implicit Types R : C -> Prop. -Implicit Types m n : nat. -Set Implicit Arguments. - -Lemma map_take : - forall f l n, map f (take n l) = take n (map f l). -Proof. - intros. generalize dependent n; induction l; intros. - destruct n; reflexivity. - destruct n. reflexivity. simpl; rewrite IHl; reflexivity. -Qed. - -Lemma map_drop : - forall f l n, map f (drop n l) = drop n (map f l). -Proof. - intros. generalize dependent n; induction l; intros. - destruct n; reflexivity. - destruct n. reflexivity. simpl; rewrite IHl; reflexivity. -Qed. - -Lemma Forall_list_implies_map : - forall P Q f l, - (forall x, P x -> Q (f x)) -> - Forall_list P l -> Forall_list Q (map f l). -Proof. induction 2; simpl; auto with lists. Qed. -Lemma Exists_list_implies_map : - forall P Q f l, - (forall x, P x -> Q (f x)) -> - Exists_list P l -> Exists_list Q (map f l). -Proof. induction 2; simpl; auto with lists. Qed. - -Lemma Forall_list_map_implies : - forall P Q f l, - (forall x, Q (f x) -> P x) -> - Forall_list Q (map f l) -> Forall_list P l. -Proof. - intros. induction l; simpl in * . apply Forall_nil. - inversion_clear H0. auto with lists. -Qed. -Lemma Exists_list_map_implies : - forall P Q f l, - (forall x, Q (f x) -> P x) -> - Exists_list Q (map f l) -> Exists_list P l. -Proof. - intros. induction l; simpl in *; - inversion_clear H0; auto with lists. -Qed. - -Lemma Forall_list_map_intro : - forall Q f l, - Forall_list (fun x => Q (f x)) l -> Forall_list Q (map f l). -Proof. induction 1; simpl; auto with lists. Qed. -Lemma Exists_list_map_intro : - forall Q f l, - Exists_list (fun x => Q (f x)) l -> Exists_list Q (map f l). -Proof. induction 1; simpl; auto with lists. Qed. - -Lemma Forall_list_map_elim : - forall Q f l, - Forall_list Q (map f l) -> Forall_list (fun x => Q (f x)) l. -Proof. - intros. induction l; simpl in * . apply Forall_nil. - inversion_clear H. auto with lists. -Qed. -Lemma Exists_list_map_elim : - forall Q f l, - Exists_list Q (map f l) -> Exists_list (fun x => Q (f x)) l. -Proof. - intros. induction l; simpl in *; - inversion_clear H; auto with lists. -Qed. - -End List_predicate_map. - -Hint Rewrite map_take map_drop : take_drop. -Hint Resolve Forall_list_implies_map Exists_list_implies_map : lists. -Hint Resolve Forall_list_map_implies Exists_list_map_implies : lists. -Hint Resolve Forall_list_map_intro Exists_list_map_intro : lists. -Hint Resolve Forall_list_map_elim Exists_list_map_elim : lists. - -(* Simplify hypotheses and goals involving [Forall_list]. Simplifications - involve rewriting [Forall_list ?P ?l] into equivalent statements - where [?l] is simpler. Recognised ``complex'' constructors for [?l] - are [nil], [cons], [app], [map], [rev]. In the goal, only - simplifications that do not solve or split the goal are considered. - *) -Ltac simplify_Forall_list := - let tmp := fresh "tmp" in ( - repeat match goal with - | H : Forall_list ?P nil |- _ => clear H - | H : Forall_list ?P (cons ?a ?l) |- _ => - inversion_clear H; - match goal with H':_ |- _ => rename H' into H end - | H : Forall_list ?P (app ?l0 ?l1) |- _ => - rename H into tmp; - assert (H := Forall_list_app_right l0 l1 tmp); - generalize H; clear H; - assert (H := Forall_list_app_left l0 l1 tmp); - intro; match goal with H':_ |- _ => - move H' after tmp; simpl in H' - end; - move H after tmp; clear tmp; simpl in H - | H : Forall_list ?P (map ?f ?l) |- _ => - (*apply Forall_list_map_elim in H*) (*>=V8.1 only*) - rename H into tmp; - assert (H := Forall_list_map_elim f l tmp); - move H after tmp; clear tmp; simpl in H - | H : Forall_list ?P (rev ?l) |- _ => - rename H into tmp; - assert (tmp := Forall_list_rev l H); - move H after tmp; clear tmp; simpl in H - end; - repeat ((apply Forall_list_map_intro || - apply rev_Forall_list - ); simpl) - ). - diff --git a/vendors/ott/coq/ott_list_repeat.v b/vendors/ott/coq/ott_list_repeat.v deleted file mode 100644 index d024a460913d..000000000000 --- a/vendors/ott/coq/ott_list_repeat.v +++ /dev/null @@ -1,83 +0,0 @@ -(*** Constant list ***) - -Require Import Arith. -Require Import List. -Require Import Omega. -Require Import Ott.ott_list_support. -Require Import Ott.ott_list_base. -Require Import Ott.ott_list_nth. -Import List_lib_Arith. - - - -Section Lists. - -Variables A B C : Type. -Implicit Types x : A. -Implicit Types y : B. -Implicit Types z : C. -Implicit Types xs l : list A. -Implicit Types ys : list B. -Implicit Types zs : list C. -Implicit Types f : A -> B. -Implicit Types g : B -> C. -Implicit Types m n : nat. -Set Implicit Arguments. - -Fixpoint repeat n x {struct n} : list A := - match n with - | 0 => nil - | S m => x :: repeat m x - end. - -Lemma repeat_length : forall n x, length (repeat n x) = n. -Proof. - induction n; intros. reflexivity. simpl. rewrite IHn. reflexivity. -Qed. - -Lemma repeat_app : - forall n m x, repeat (n + m) x = repeat n x ++ repeat m x. -Proof. - induction n; simpl; intros. reflexivity. rewrite IHn. reflexivity. -Qed. - -Lemma repeat_S : forall n x, repeat (S n) x = repeat n x ++ x::nil. -Proof. - intros. replace (S n) with (n+1). 2: omega. - rewrite repeat_app. reflexivity. -Qed. - -Lemma nth_error_repeat : - forall m n x, - nth_error (repeat n x) m = if le_lt_dec n m then error else value x. -Proof. - induction m; destruct n; intros; try reflexivity. - simpl repeat. simpl nth_error. rewrite IHm. - symmetry. apply le_lt_dec_S. -Qed. - -Lemma nth_repeat : - forall m n x, - nth m (repeat n x) x = x. -Proof. - induction m; destruct n; intros; try reflexivity. - simpl. rewrite IHm. reflexivity. -Qed. - -Lemma nth_safe_repeat : - forall m n x H, - nth_safe (repeat n x) m H = x. -Proof. - intros. assert (value (nth_safe (repeat n x) m H) = value x). - rewrite nth_safe_eq_nth_error. rewrite nth_error_repeat. - rewrite repeat_length in H. - destruct (le_lt_dec n m). elimtype False; omega. reflexivity. - injection H0. tauto. -Qed. - -End Lists. - - - -Hint Rewrite repeat_length repeat_app repeat_S : lists. -Hint Rewrite nth_error_repeat nth_repeat nth_safe_repeat : lists. diff --git a/vendors/ott/coq/ott_list_support.v b/vendors/ott/coq/ott_list_support.v deleted file mode 100644 index 3cdcd2a2adcb..000000000000 --- a/vendors/ott/coq/ott_list_support.v +++ /dev/null @@ -1,53 +0,0 @@ -(* Additional definitions and lemmas on lists *) - -Require Import Arith. -Require Import Omega. - - - -(*** Support definitions and lemmas ***) - -Module List_lib_Arith. - -Lemma le_lt_dec_S : - forall n m A (x y:A), - (if le_lt_dec (S n) (S m) then x else y) = - (if le_lt_dec n m then x else y). -Proof. - intros. destruct (le_lt_dec n m); destruct (le_lt_dec (S n) (S m)). - reflexivity. elimtype False; omega. elimtype False; omega. reflexivity. -Qed. - -End List_lib_Arith. - - - -Section functions. - Set Implicit Arguments. - Variables A B C D : Type. - Definition compose (g:B->C) (f:A->B) x := g (f x). - Definition compose2 (h:B->C->D) (f:A->B) (g:A->C) x y := h (f x) (g y). -End functions. -Hint Unfold compose compose2. - - - -Section option. - Set Implicit Arguments. - Variables A B : Type. - - Definition map_option (f:A->B) (xo:option A) : option B := - match xo with - | Some x => Some (f x) - | None => None - end. - Definition map_error := map_option. - - Definition fold_option (f:A->B->B) (xo:option A) (y:B) : B := - match xo with - | Some x => f x y - | None => y - end. - Definition fold_error := fold_option. -End option. -Hint Unfold map_option map_error fold_option fold_error. diff --git a/vendors/ott/coq/ott_list_takedrop.v b/vendors/ott/coq/ott_list_takedrop.v deleted file mode 100644 index ff21685d2c68..000000000000 --- a/vendors/ott/coq/ott_list_takedrop.v +++ /dev/null @@ -1,317 +0,0 @@ -(* Additional definitions and lemmas on lists *) - -Require Import Arith. -Require Import Max. -Require Import Min. -Require Import List. -Require Import Omega. -Require Import Ott.ott_list_support. -Require Import Ott.ott_list_base. -Require Import Ott.ott_list_nth. -Import List_lib_Arith. - - - -Section Lists. - -Variables A B C : Type. -Implicit Types x : A. -Implicit Types y : B. -Implicit Types z : C. -Implicit Types xs l : list A. -Implicit Types ys : list B. -Implicit Types zs : list C. -Implicit Types f : A -> B. -Implicit Types g : B -> C. -Implicit Types m n : nat. -Set Implicit Arguments. - - - -(*** Prefix and suffix extraction ***) - -Fixpoint take n l {struct l} : list A := - match n, l with - | 0, _ => nil - | _, nil => nil - | S m, h::t => h :: (take m t) - end. - -Lemma take_0 : forall l, take 0 l = nil. -Proof. destruct l; reflexivity. Qed. -Lemma take_nil : forall n, take n nil = nil. -Proof. destruct n; reflexivity. Qed. - -Lemma take_all : - forall l n, length l <= n -> take n l = l. -Proof. - induction l; destruct n; intros; try reflexivity. - solve [inversion H]. - simpl in * . apply (f_equal2 (@cons A)). reflexivity. apply IHl. omega. -Qed. - -Lemma take_length : - forall l n, length (take n l) = min n (length l). -Proof. - induction l; destruct n; intros; simpl; try rewrite IHl; reflexivity. -Qed. - -Lemma take_some_length : - forall l n, n <= length l -> length (take n l) = n. -Proof. - intros. rewrite take_length. auto with arith. -Qed. - -Lemma take_nth : - forall l m n, - nth_error (take m l) n = if le_lt_dec m n then error else nth_error l n. -Proof. - intros until n. generalize dependent l. generalize dependent m. - induction n; intros; simpl. - destruct m; destruct l; reflexivity. - destruct l; simpl. - destruct (le_lt_dec m (S n)); destruct m; reflexivity. - destruct m. reflexivity. - rewrite IHn. symmetry. apply le_lt_dec_S. -Qed. - -Lemma take_take : - forall l m n, take m (take n l) = take (min m n) l. -Proof. - induction l; intros; simpl. - destruct (min m n); destruct n; repeat rewrite take_nil; reflexivity. - destruct n; destruct m; try reflexivity. - simpl. rewrite IHl. reflexivity. -Qed. - -Fixpoint drop n l {struct l} : list A := - match n, l with - | 0, _ => l - | _, nil => nil - | S m, h::t => drop m t - end. - -Lemma drop_0 : forall l, drop 0 l = l. -Proof. destruct l; reflexivity. Qed. -Lemma drop_nil : forall n, drop n nil = nil. -Proof. destruct n; reflexivity. Qed. - -Lemma drop_all : - forall l n, length l <= n -> drop n l = nil. -Proof. - induction l; destruct n; intros; try reflexivity. - solve [inversion H]. - simpl in * . apply IHl. omega. -Qed. - -Lemma drop_length : forall l n, length (drop n l) = length l - n. -Proof. - induction l; destruct n; intros; simpl; try rewrite IHl; reflexivity. -Qed. - -Lemma match_drop : - forall l n, match drop n l with - | nil => length l <= n - | _::_ => length l > n - end. -Proof. - intros. destruct (le_gt_dec (length l) n) as [Le | Gt]. - rewrite drop_all; assumption. - generalize (conj (refl_equal (length (drop n l))) (refl_equal (drop n l))). - pattern (drop n l) at 1 3. - case (drop n l); intros; rewrite drop_length in H; destruct H; simpl in * . - elimtype False; omega. - rewrite <- H0. assumption. -Qed. - -Lemma drop_nth : - forall l m n, nth_error (drop m l) n = nth_error l (m + n). -Proof. - induction l; intros. - rewrite drop_nil. repeat rewrite nth_error_nil. reflexivity. - destruct m; simpl; auto. -Qed. - -Lemma drop_drop : - forall l m n, drop m (drop n l) = drop (n + m) l. -Proof. - intros; generalize dependent l. induction n; simpl; intros. - rewrite drop_0. reflexivity. - destruct l; simpl; [destruct m | rewrite IHn]; reflexivity. -Qed. - -Lemma take_app_drop : forall l n, take n l ++ drop n l = l. -Proof. - intros l n; generalize dependent l; induction n; intros. - rewrite take_0; rewrite drop_0; reflexivity. - induction l; simpl. reflexivity. - rewrite IHn. reflexivity. -Qed. - -Lemma take_app_exact : - forall l l' n, length l = n -> take n (l ++ l') = l. -Proof. - induction l; intros; subst n; simpl in * . - rewrite take_0. reflexivity. - rewrite IHl; reflexivity. -Qed. - -Lemma drop_app_exact : - forall l l' n, length l = n -> drop n (l ++ l') = l'. -Proof. - induction l; intros; subst n; simpl in * . - rewrite drop_0. reflexivity. - rewrite IHl; reflexivity. -Qed. - -Lemma take_app_long : - forall l l' n, n <= length l -> take n (l ++ l') = take n l. -Proof. - intros. - set (tmp := l) in |- * at 2. rewrite <- (take_app_drop l n). subst tmp. - rewrite app_ass. rewrite take_app_exact. reflexivity. - apply take_some_length. assumption. -Qed. - -Lemma drop_app_long : - forall l l' n, n <= length l -> drop n (l ++ l') = drop n l ++ l'. -Proof. - intros. - set (tmp := l) in |- * at 2. rewrite <- (take_app_drop l n). subst tmp. - rewrite app_ass. rewrite drop_app_exact. reflexivity. - apply take_some_length. assumption. -Qed. - -Lemma take_app_short : - forall l l' n, take (length l + n) (l ++ l') = l ++ take n l'. -Proof. intros. induction l; simpl; congruence. Qed. - -Lemma drop_app_short : - forall l l' n, drop (length l + n) (l ++ l') = drop n l'. -Proof. intros. induction l; simpl; congruence. Qed. - -Lemma take_from_app : - forall l l', take (length l) (l ++ l') = l. -Proof. - intros. replace (length l) with (length l + 0). 2: omega. - rewrite take_app_short. rewrite take_0. - symmetry. apply app_nil_end. -Qed. - -Lemma drop_from_app : - forall l l', drop (length l) (l ++ l') = l'. -Proof. - intros. replace (length l) with (length l + 0). 2: omega. - rewrite drop_app_short. apply drop_0. -Qed. - -Lemma take_take_app : - forall l l' n, n <= length l -> take n (take n l ++ l') = take n l. -Proof. - intros. rewrite take_app_long. rewrite take_take. - destruct (min_dec n n) as [Eq | Eq]; rewrite Eq; reflexivity. - rewrite take_some_length; trivial. -Qed. - -Lemma drop_take_app : - forall l l' n, n <= length l -> drop n (take n l ++ l') = l'. -Proof. - intros. rewrite drop_app_exact. reflexivity. - apply take_some_length. assumption. -Qed. - - - -(*** End of the Lists section ***) - -End Lists. - -Hint Rewrite take_0 take_nil take_length take_nth take_take : take_drop. -Hint Rewrite take_all : take_drop_short. -Hint Rewrite take_some_length : take_drop_long. -Hint Rewrite drop_0 drop_nil drop_length drop_nth drop_drop : take_drop. -Hint Rewrite drop_all : take_drop_short. -Hint Rewrite take_app_drop : take_drop. -Hint Rewrite take_app_exact drop_app_exact : take_drop_exact. -Hint Rewrite take_app_long drop_app_long : take_drop_long. -Hint Rewrite take_app_short drop_app_short : take_drop. -Hint Rewrite take_from_app drop_from_app : take_drop. -Hint Rewrite take_take_app drop_take_app : take_drop_long. - -(* Break the list [original] into two pieces [prefix] and [suffix] - at the location indicated by [cut_point]. [cut_point] indicates - the number of elements to retain in [prefix]; it may also be - a list whose length is used. This tactic leaves either one or two - goals. The first goal has a hypothesis stating that the length of - [prefix] is [cut_point]. The second goal has [original] left - unchanged and an additional hypothesis stating that - [length original < cut_point]; the tactic tries refuting this by - calling omega. *) -Ltac cut_list original cut_point prefix suffix := - let l := fresh "whole" with Ineq := fresh "Ineq" with - Eq := fresh "Decomposition" with Eql := fresh "Eqlen" with - p := fresh "prefix" with s := fresh "suffix" with - n := match type of cut_point with - | nat => cut_point - | list _ => constr:(length cut_point) - | _ => fail "cut_list: unrecognised cut_point type" - end in ( - destruct (le_lt_dec n (length original)) as [Ineq | Ineq]; [ - (**length original >= n, so length prefix = n**) - assert (Eql := take_some_length original Ineq); clear Ineq; - generalize dependent original; intro l; - assert (Eq := take_app_drop l n); - set (p := (take n l)) in *; set (s := (drop n l)) in *; - clearbody p s; subst l; - (*We've done the cutting, now we try to do some simplifications*) - autorewrite with lists take_drop; intros; - rename p into prefix; rename s into suffix - | (**length original < n**) - try (equate_list_lengths; elimtype False; omega) ] - ). - -(* Look for equations between lists that can be simplified. - [?p ++ ?s = ?p' ++ ?s'] is simplified into [?p = ?p'] and [?s = ?s'] *) -Ltac parallel_split := - let eq' := fresh "eq" with tmp := fresh "tmp" with - EqPrefix := fresh "Eql" with EqSuffix := fresh "Eql" in ( - pose (eq' := eq); - repeat match goal with - | H : app ?p ?s = app ?p' ?s' |- _ => - ( - assert (tmp : length p = length p'); - [equate_list_lengths; omega | idtac]; - assert (EqPrefix := app_inj_prefix_length_prefix _ _ _ _ tmp H); - rewrite <- EqPrefix in H; - assert (EqSuffix := app_inj_prefix _ _ _ H); - clear tmp H - ) || ( - assert (tmp : length s = length s'); - [equate_list_lengths; omega | idtac]; - assert (EqSuffix := app_inj_prefix_length_suffix _ _ _ _ tmp H); - rewrite <- EqSuffix in H; - assert (EqPrefix := app_inj_suffix _ _ _ H); - clear tmp H - ) || fold eq' in H - | H : cons ?a ?l = cons ?a' ?l' |- _ => - injection H; intro; clear H; intro H - end; - unfold eq' in *; clear eq' - ). -(* Ad-hoc obsolete tactic (superceded by [parallel_split]) *) -Ltac parallel_split_maps := - repeat match goal with - | H : map ?f ?p ++ map ?f ?s = ?p' ++ ?s' |- _ => - assert (Eqlen' : length (map f p) = length p'); - [equate_list_lengths; omega | idtac]; - assert (EqPrefix := app_inj_prefix_length_prefix _ _ _ _ Eqlen' H); - rewrite <- EqPrefix in H; - assert (EqSuffix := app_inj_prefix _ _ _ H); - clear Eqlen' H - | H : _ ++ _ = map _ _ ++ map _ _ |- _ => symmetry in H - end. - - - - -(*** The End. ***) diff --git a/vendors/ott/doc/Makefile b/vendors/ott/doc/Makefile deleted file mode 100644 index 0b255c5e46ed..000000000000 --- a/vendors/ott/doc/Makefile +++ /dev/null @@ -1,459 +0,0 @@ -LATEX = latex -DVIPS = dvips -DVIPSFLAGS = -Ppdf -j0 -G0 -t a4 -#DVIPSFLAGS = -Ppdf -j0 -G0 -t letter - - -FIGURES=ich_fig0 ich_fig1 -#ich_fig_FIG_OPTS=-m 0.55 -FIGURE_PSTEX_TS=$(addsuffix .pstex_t, $(FIGURES)) - - -# to make manual for new release: -# bump new version in ../Makefile -# date > tmp_date.txt in ../src/ -# make in .. to rebuild version.tex -# make install-top2-built -# make install-web-files - - - -all: top2.html top2.ps top2.pdf - -clean:: - rm -f *.aux *.log *.dvi *.annot top.doc top.tex top.ps top.pdf top2.ps top2.pdf top2.ggl top2.blg top2.html top2.image.tex top2.tex bind-doc.pdf bind-doc.ps bind-wmm-2.bbl bind-wmm-2.blg bind-wmm-2.pdf bind-wmm-2.ps paper.bbl paper.blg paper.tex s - rm -f bind-doc-2.ps bind-doc-2.pdf bind-2.tex bind-2.thy - rm -f binding.1.aux binding.1.tex binding.2.aux binding.2.tex binding.3.aux binding.3.tex binding.4.aux binding.4.tex binding.5.aux binding.5.tex binding.6.alltt.tex binding.6b.aux binding.6b.tex binding.6bScript.sml - rm -f test10.0.alltt test10.2.aux test10.4.alltt test10.aux test10.meta.tex test10.tex test10.v test10_homs.alltt test10st.tex test10.2.alltt test10.2.tex test10.7.alltt test10.meta.aux test10.ml test10.thy test10Script.sml test10st.aux test21.1.alltt - rm -f test11.alltt test12.thy test12.v test13.aux test13.tex test13d.aux test13d.tex test17.10.aux test17.10.tex test7tt.mng.alltt.tex - rm -f slides-arg.dvi - rm -f slides-sl.dvi - rm -f slides-icfp.dvi - rm -f slides-parsec.dvi - rm -f grammar_parser.tex *.mly-y2l grammar_parser_hevea.tex - rm -f top2*.gif top2.haux top2.htoc top2.lof - rm -f squishtex.hand.alltt.tex - rm -f options.txt test7.tex test7afilter.out.ps test7tt.tex test8.tex tmp.dot tmp_0.dot tmp_1.dot tmp_2.dot top.toc top2.bbl top2.toc version.tex x.tex - rm -f bind.tex bind.thy - rm -f test10_tuple.tex test10_tuple.thy test10_tuple.v test10_tupleScript.sml test10b.tex test10b.thy test10b.v test10bScript.sml test10st_narrow.tex test10st_narrow.thy test10st_narrow.v test10st_narrowScript.sml - rm -f test10.alltt.tex test10_html.html - rm -f README.tex - rm -f *~ - -realclean:: - rm -f .depend - - -test1.tex: ../src/ott ../tests/test1.ott - ../src/ott -colour true -showraw true \ - -o test1.tex \ - -tex_show_meta true \ - -tex_wrap false \ - -tex_name_prefix testOne \ - ../tests/non_super_tabular.ott ../tests/test1.ott - -test8.tex: ../src/ott ../tests/test8.ott - ../src/ott -colour true -showraw true \ - -o test8.tex \ - -tex_show_meta false \ - -tex_wrap false \ - -tex_name_prefix testEight \ - ../tests/non_super_tabular.ott ../tests/test8.ott - - -test10.lem test10.tex: ../src/ott ../tests/test10.ott - ../src/ott -colour true -showraw true \ - -o test10.tex \ - -tex_show_meta false \ - -tex_wrap false \ - -tex_name_prefix testTen \ - -o test10.thy \ - -o test10.v \ - -o test10Script.sml \ - -o test10.lem \ - -o test10.ml \ - ../tests/non_super_tabular.ott ../tests/test10.ott - -test10_poster.tex: ../src/ott ../tests/test10_poster.ott - ../src/ott -colour true -showraw true \ - -o test10_poster.tex \ - -tex_show_meta false \ - -tex_wrap false \ - -tex_name_prefix testTenPoster \ - -o test10_poster.thy \ - -o test10_poster.v \ - -o test10_posterScript.sml \ - -o test10_poster.ml \ - ../tests/non_super_tabular.ott ../tests/test10_poster.ott -test10.despaced.v: test10.tex - cat test10.v | sed -e 's/\n\n/\n/g' > test10.despaced.v - -test10.2.tex: ../src/ott ../tests/non_super_tabular.ott ../tests/test10.2.ott - ../src/ott -colour true -showraw true \ - -o test10.2.tex \ - -tex_show_meta false \ - -tex_wrap false \ - -tex_name_prefix testTenTwo \ - ../tests/non_super_tabular.ott ../tests/test10.2.ott - -test10.2.ps: ../src/ott ../tests/test10.2.ott - ../src/ott -colour true -showraw true \ - -o test10.2.tex \ - -tex_show_meta false \ - -tex_wrap true \ - -tex_name_prefix testTenTwo \ - ../tests/non_super_tabular.ott ../tests/test10.2.ott - latex test10.2 && dvips test10.2 - - -test10.0.alltt: ../src/ott ../tests/test10.0.ott - ../src/ott -alltt test10.0.alltt ../tests/test10.0.ott -test10.2.alltt: ../src/ott ../tests/test10.2.ott - ../src/ott -alltt test10.2.alltt ../tests/test10.2.ott -test10.4.alltt: ../src/ott ../tests/test10.4.ott - ../src/ott -alltt test10.4.alltt ../tests/test10.4.ott -test10.7.alltt: ../src/ott ../tests/test10.7.ott - ../src/ott -alltt test10.7.alltt ../tests/test10.7.ott - -test10.alltt.tex: ../src/ott ../tests/test10.ott - ../src/ott -alltt test10.alltt.tex ../tests/test10.ott - -test22.1.alltt.tex: ../src/ott ../tests/test22.1.ott - ../src/ott -alltt test22.1.alltt.tex ../tests/test22.1.ott - -test10_poster.alltt.tex: ../src/ott ../tests/test10_poster.ott - ../src/ott -alltt test10_poster.alltt.tex ../tests/test10_poster.ott - -test10_html.html: test10.alltt.tex test10_html.tex - hevea -fix test10_html.tex - -test11.alltt: ../src/ott ../tests/test11.ott - ../src/ott -alltt test11.alltt ../tests/test11.ott - -test10_homs.alltt: ../src/ott ../tests/test10_homs.ott - ../src/ott -alltt test10_homs.alltt ../tests/test10_homs.ott - -test20.0.alltt: ../src/ott ../tests/test20.0.ott - ../src/ott -alltt test20.0.alltt ../tests/test20.0.ott - -test21.1.alltt: ../src/ott ../tests/test21.1.ott - ../src/ott -alltt test21.1.alltt ../tests/test21.1.ott - -test22.0.alltt: ../src/ott ../tests/test22.0.ott - ../src/ott -alltt test22.0.alltt ../tests/test22.0.ott - -binding.6.alltt.tex: ../src/ott ../tests/binding.6.ott - ../src/ott -alltt binding.6.alltt.tex ../tests/binding.6.ott - -squishtex.hand.alltt.tex: ../src/ott squishtex.hand.ott - ../src/ott -alltt squishtex.hand.alltt.tex squishtex.hand.ott - -##let.alltt.tex: ../src/ott ../examples/tapl/let.ott -## ../src/ott -alltt let.alltt.tex ../examples/tapl/common.ott ../examples/tapl/common_typing.ott.. /examples/tapl/let.ott - -# commented out, as running this - while producing the output we need - also produces an error. It's not a well-formed standalone file. -#let.alltt.tex: ../src/ott ../examples/tapl/let.ott -# ../src/ott -alltt let.alltt.tex ../examples/tapl/let.ott - - - -test10_tuple.tex: ../src/ott ../tests/test10_tuple.ott - ../src/ott -colour true -showraw true \ - -o test10_tuple.tex \ - -tex_show_meta false \ - -tex_wrap false \ - -tex_name_prefix testTentuple \ - -o test10_tuple.thy \ - -o test10_tuple.v \ - -o test10_tupleScript.sml \ - ../tests/non_super_tabular.ott ../tests/test10_tuple.ott - -test10b.tex: ../src/ott ../tests/test10b.ott - ../src/ott -colour true -showraw true \ - -o test10b.tex \ - -tex_show_meta false \ - -tex_wrap false \ - -tex_name_prefix testTenb \ - -o test10b.thy \ - -o test10b.v \ - -o test10bScript.sml \ - ../tests/test10b.ott - -test10c.tex: ../src/ott ../tests/test10c.ott - ../src/ott -colour true -showraw true \ - -o test10c.tex \ - -tex_show_meta false \ - -tex_wrap false \ - -tex_name_prefix testTenc \ - -o test10c.thy \ - -o test10c.v \ - -o test10cScript.sml \ - ../tests/non_super_tabular.ott ../tests/test10c.ott - -test10st_narrow.tex: ../src/ott ../tests/test10st_narrow.ott - ../src/ott -colour true -showraw true \ - -o test10st_narrow.tex \ - -tex_show_meta false \ - -tex_wrap false \ - -tex_name_prefix testTenstnarrow \ - -o test10st_narrow.thy \ - -o test10st_narrow.v \ - -o test10st_narrowScript.sml \ - ../tests/non_super_tabular.ott ../tests/test10st_narrow.ott - -test10.meta.tex: ../src/ott ../tests/test10.ott - ../src/ott -colour true -showraw true \ - -o test10.meta.tex \ - -tex_show_meta true \ - -tex_wrap false \ - -tex_name_prefix testTenMeta \ - ../tests/non_super_tabular.ott ../tests/test10.ott - -test10st.tex: ../src/ott ../tests/test10st.ott - ../src/ott -colour true -showraw true \ - -o test10st.tex \ - -tex_show_meta false \ - -tex_wrap false \ - -tex_name_prefix testTenst \ - ../tests/non_super_tabular.ott ../tests/test10st.ott -# -o test10.thy \ -# -o test10.v \ - -test7.tex: ../src/ott ../tests/test7.ott ../tests/test7tt.mng - cd ../src; make tmp_test7_clean.ott - ../src/ott \ - -o test7.tex \ - -tex_show_meta false \ - -tex_wrap false \ - -tex_name_prefix testSeven \ - -tex_filter ../tests/test7tt.mng test7tt.tex \ - ../tests/non_super_tabular.ott ../src/tmp_test7_clean.ott - -test7tt.mng.alltt.tex: ../tests/test7tt.mng - cat ../tests/test7tt.mng | sed -e 's/\\/BACKSLASH/g' | sed -e 's/{/LEFTBRACKET/g' | sed -e 's/}/\\myrb\{\}/g' | sed -e 's/LEFTBRACKET/\\mylb\{\}/g' | sed -e 's/BACKSLASH/\\mybackslash\{\}/g' | sed -e 's/\[\[/\\mysym{\[\[}/g' | sed -e 's/\]\]/\\mysym{\]\]}/g' | sed -e 's/:concrete:/\\mykw\{:concrete:\}/g' > test7tt.mng.alltt.tex - -# cat ../tests/test7tt.mng | sed -e 's/{/\\mylb\{\}/g' | sed -e 's/}/\\myrb\{\}/g' | sed -e 's/\[\[/\\mysym\{\[\[\}/g' | sed -e 's/\]\]/\\mysym\{\]\]\}/g' | sed -e 's/\\/\\mybackslash\{\}/g' | sed -e 's/:concrete:/\\mykw\{:concrete\}/g' > test7tt.mng.alltt.tex - - - -test12.thy: ../src/ott ../tests/test12.ott - ../src/ott -colour true -showraw true \ - -o test12.thy \ - -o test12.v \ - ../tests/test12.ott - -test13.tex: ../src/ott ../tests/test13.ott - ../src/ott -colour true -showraw true \ - -o test13.tex \ - -tex_show_meta false \ - -tex_wrap false \ - -tex_name_prefix testThirteen \ - ../tests/non_super_tabular.ott ../tests/test13.ott -# -o test10.thy \ -# -o test10.v \ - -test13d.tex: ../src/ott ../tests/test13d.ott - ../src/ott -colour true -showraw true \ - -o test13d.tex \ - -tex_show_meta false \ - -tex_wrap false \ - -tex_name_prefix testThirteend \ - ../tests/squishtex.ott \ - ../tests/test13d.ott -# -o test10.thy \ -# -o test10.v \ - -test17.10.tex: ../src/ott ../tests/test17.10.ott - ../src/ott -colour true -showraw true \ - -o test17.10.tex \ - -tex_show_meta false \ - -tex_wrap false \ - -tex_name_prefix testSeventeenTen \ - ../tests/non_super_tabular.ott \ - ../tests/test17.10.ott - -binding.1.tex: ../src/ott ../tests/binding.1.ott ../tests/squishtex.ott - ../src/ott -colour true -showraw true \ - -o binding.1.tex \ - -tex_show_meta false \ - -tex_wrap false \ - -tex_name_prefix bindingOne \ - ../tests/squishtex.ott \ - ../tests/binding.1.ott - -binding.2.tex: ../src/ott ../tests/binding.2.ott ../tests/squishtex.ott - ../src/ott -colour true -showraw true \ - -o binding.2.tex \ - -tex_show_meta false \ - -tex_wrap false \ - -tex_name_prefix bindingTwo \ - ../tests/squishtex.ott \ - ../tests/binding.2.ott - -binding.3.tex: ../src/ott ../tests/binding.3.ott ../tests/squishtex.ott - ../src/ott -colour true -showraw true \ - -o binding.3.tex \ - -tex_show_meta false \ - -tex_wrap false \ - -tex_name_prefix bindingThree \ - ../tests/squishtex.ott \ - ../tests/binding.3.ott - -binding.4.tex: ../src/ott ../tests/binding.4.ott ../tests/squishtex.ott - ../src/ott -colour true -showraw true \ - -o binding.4.tex \ - -tex_show_meta false \ - -tex_wrap false \ - -tex_name_prefix bindingFour \ - ../tests/squishtex.ott \ - ../tests/binding.4.ott - -binding.5.tex: ../src/ott ../tests/binding.5.ott ../tests/squishtex.ott - ../src/ott -colour true -showraw true \ - -o binding.5.tex \ - -tex_show_meta false \ - -tex_wrap false \ - -tex_name_prefix bindingFive \ - ../tests/squishtex.ott \ - ../tests/binding.5.ott - -binding.6b.tex: ../src/ott ../tests/binding.6.ott ../tests/binding.6b.ott ../tests/squishtex.ott - ../src/ott -colour true -showraw true \ - -o binding.6b.tex \ - -o binding.6bScript.sml \ - -tex_show_meta false \ - -tex_wrap false \ - -tex_name_prefix bindingSixb \ - ../tests/squishtex.ott \ - ../tests/binding.6.ott \ - ../tests/binding.6b.ott - -## Binding -bind.tex: ../src/ott ../tests/bind-*.ott - ../src/ott -o bind.tex \ - -tex_show_meta false \ - -tex_wrap false \ - -tex_name_prefix bind \ - -merge true \ - -o bind.thy \ - ../tests/bind-*.ott - - -bind-doc.ps: bind.tex bind-doc.tex - latex bind-doc.tex; latex bind-doc.tex; dvips $(DVIPSFLAGS) bind-doc - -bind-2.tex: ../src/ott ../tests/bind2-*.ott - ../src/ott -o bind-2.tex \ - -tex_show_meta false \ - -tex_wrap false \ - -tex_name_prefix bind \ - -merge true \ - -o bind2.thy \ - -o bind2Script.sml \ - -o bind2.v \ - ../tests/bind2-*.ott - -bind-doc-2.ps: bind-2.tex bind-doc-2.tex - latex bind-doc-2.tex; latex bind-doc-2.tex; dvips $(DVIPSFLAGS) bind-doc-2 - -bind-wmm.ps: bind-wmm.tex bindbib.bib - latex bind-wmm; bibtex bind-wmm; latex bind-wmm; latex bind-wmm; dvips $(DVIPSFLAGS) bind-wmm - -bind-wmm-2.ps: bind-wmm-2.tex bindbib.bib - latex bind-wmm-2; bibtex bind-wmm-2; latex bind-wmm-2; latex bind-wmm-2; dvips $(DVIPSFLAGS) bind-wmm-2 - - -options.txt: ../src/ott - ../src/ott -help > options.txt - -top.tex: top.mng - cp -f top.mng top.tex # placeholder for later use of ott as a filter - chmod ugo-w top.tex - -top2.tex: top2.mng - cp -f top2.mng top2.tex # placeholder for later use of ott as a filter - chmod ugo-w top2.tex - - -grammar_parser.tex: ../src/grammar_parser.mly - cd ../src; make grammar_parser.tex - cp -f ../src/grammar_parser.tex . - -grammar_parser_hevea.tex: grammar_parser.tex - cat grammar_parser.tex | sed -e 's/longtable/tabular/g' > grammar_parser_hevea.tex - -top.ps: top.tex test7.tex test8.tex test10.tex test10.hand.edited.thy test10.hand.edited.v grammar_parser.tex test10.meta.tex test13.tex options.txt test10st.tex test12.thy ../src/version.tex test17.10.tex - latex top;latex top;dvips $(DVIPSFLAGS) top - -TOP2DEPS = top2.tex test7.tex test8.tex test10.tex test10.hand.edited.thy test10.hand.edited.v grammar_parser.tex test10.meta.tex test13.tex options.txt test10st.tex test12.thy ../src/version.tex test17.10.tex test10.0.alltt test10.2.alltt test10.4.alltt test10.7.alltt README.tex test10.2.tex test7tt.mng.alltt.tex binding.1.tex binding.2.tex binding.3.tex binding.4.tex binding.5.tex binding.6.alltt.tex binding.6b.tex test11.alltt test10_homs.alltt let.alltt.tex grammar_parser_hevea.tex grammar_parser.tex squishtex.hand.alltt.tex test13d.tex test10.despaced.v shorter.bib test21.1.alltt - -top2.ps: $(TOP2DEPS) - latex top2 && bibtex top2 && latex top2 && latex top2 && dvips $(DVIPSFLAGS) top2 - -top2.pdf: top2.ps - ps2pdf $< - -top2.html: $(TOP2DEPS) - hevea -fix top2 - sed 's/textboxed{border:1px/textboxed{border:0px/g' < top2.html > top2.tmp.html - mv top2.tmp.html top2.html - -# imagen top2 - - -top2: - make top2.ps && make top2.html && make top2.pdf - - -quick2: $(TOP2DEPS) - latex top2; dvips $(DVIPSFLAGS) top2 - - -let_alltt.ott: ../examples/tapl/let_alltt.ott - cp ../examples/tapl/let_alltt.ott . - - - -# these are files for which we update the web page for the current version -# (while other old examples are not) -WEB_FILES= \ - ../tests/test10.ott \ - test10.thy \ - test10.v \ - test10Script.sml \ - test10.lem \ - test10.ml \ - ../revision_history.txt \ - top2.pdf \ - top2.ps \ - top2.html \ - top2*.png - -test10.pdf: ../tests/test10.ott - ../bin/ott -i ../tests/test10.ott -o test10.tex - pdflatex test10 - -install-web-files: top2.html test10.lem test10.pdf - cp $(WEB_FILES) ~/public_html/ott - -install-top2-built: top2.html top2.ps top2.pdf - cp top2.ps ../built_doc - cp top2.pdf ../built_doc - cp top2.html ../built_doc - cp top2*.png ../built_doc - - - -# ghastly hackery to make ../README.md work both in the github -# markdown processing and in the latex user guide -README.tex: ../README.md - rm -rf README.tex - cat ../README.md | sed -e 's/|//g' > README.tmp.md - pandoc README.tmp.md -o README.tmp.tex - cat README.tmp.tex | sed -e 's/section{Ott}/section{Getting started with Ott (the README)}/g' | sed -e 's/href/ahref/g' | sed -e 's/\\noalign{\\medskip}//g' > README.tex - chmod ugo-w README.tex - - -%.pstex %.pstex_t : %.fig - fig2dev -L pstex $($*_FIG_OPTS) $< $*.pstex - fig2dev -L pstex_t -p $*.pstex $($*_FIG_OPTS) $< $*.pstex_t diff --git a/vendors/ott/doc/favicon.ico b/vendors/ott/doc/favicon.ico deleted file mode 100644 index 78178c798e0b9a6217e14fd70d2091e059792e39..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 1406 zcmZQzU}Ruq5D);-91Iz(3=Con3=A3!3=9Gc3=9ek5OD@PfQgBTfti_^frW*Ift8h& zft{V5ft#C~fsc=mfuEnBL0(>-K~YhWK}AJ{K~+_iK}}7KK~qzcL0em!L0?~=!PwZC z!NkOb!OYBz!Q9-O!OqT(!NI|S!OP2w!Ozc+AucYCAwE8yAt51wAtfb+AvHCXAtNJ$ zAu}_RAtxt?AulhFAwNH#p}xMJp}D!4p}oDGp|i7-p}V`Ap{J*Zp|`h}VcN85469eK zW;lNQIK#=4CmBwiI>m6|!Ucw_SFbYMxN(Ew=FOW7w{PEOxPSjX!-EG87@j?Q#_;0B z3x=03UoyOU^@`!+$Bzu3K7C^N_U#+P_wU~se*E~s@aNAThX4Qn;|ZBjsnHM^-XY+C z1?Wg}GBI<@8$hJ&6&M)B - - - - - - - Ott - - - - - - - - - - -

- - [POPLmark Fsub dependency diagram]

- -

Ott

-

- Francesco Zappa Nardelli, - Peter Sewell, and - Scott Owens -

-

(with - Matthew Parkinson, - Gilles Peskine, - Tom Ridge, - Susmit Sarkar, and - Rok Strniša) -

-

-Ott is a tool for writing definitions of programming languages and -calculi. It takes as input a definition of a language syntax and -semantics, in a concise and readable ASCII notation that is close to -what one would write in informal mathematics. It generates LaTeX to -build a typeset version of the definition, and Coq, HOL, and Isabelle -versions of the definition. Additionally, it can be run as a filter, -taking a LaTeX/Coq/Isabelle/HOL source file with embedded (symbolic) -terms of the defined language, parsing them and replacing them by -target-system terms. -For a simple example, here is an -Ott source file for an untyped call-by-value -lambda calculus (test10.ott), and -the generated -LaTeX (compiled to pdf) -and (compiled to ps), -Coq, -Isabelle, and -HOL -definitions. -

-Most simply, the tool can be used to aid completely informal LaTeX mathematics. -Here it permits the definition, and terms within proofs and -exposition, to be written in a clear, editable, ASCII notation, without LaTeX -noise. It generates good-quality typeset output. -By parsing (and so sort-checking) this input, it quickly catches a -range of simple errors, e.g. inconsistent use of judgement forms or -metavariable naming conventions. -

-That same input can be used to generate formal definitions, for Coq, -HOL, Isabelle, and (experimentally) Lem. It should thereby enable a smooth transition -between use of informal and formal mathematics. Additionally, the -tool can automatically generate definitions of functions for free -variables, single and multiple substitutions, subgrammar checks -(e.g. for value subgrammars), and binding auxiliary functions. -At present only a fully concrete representation of binding, without -quotienting by alpha equivalence, is fully supported. An experimental -backend generates a locally-nameless representation of terms for a -subset of the Ott metalanguage: details can be -found here. -

-The distribution includes several examples, in varying levels of completeness: -untyped and simply typed lambda-calculus, -a calculus with ML polymorphism, -the POPLmark Fsub with and without records, -an ML module system taken from (Leroy, JFP 1996) and equipped with an -operational semantics, and -LJ, a lightweight Java fragment. -More substantially, Ott has been used for work on -iJAM and LJAM, Java Module - Systems, by Rok - Strniša, and semantics for -OCaml light, by - Scott Owens. -

-A release of the Ott source is available, and comment and -feedback would be much appreciated. -

- - - - -

Papers and Documentation

- - - - -

Code

- - - -

Bug Tracker

-
    -
  • Please now use - the github issue tracker -(though our resources for fixing issues are very limited) -
  • The previous issue tracker is here -
- - -

Mailing Lists

- - - -

Examples

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
SystemRulesOtt sourcesLatexTypesetDotCoqHOLIsabelle
Defn Proof Defn Proof Defn Proof
Untyped CBV lambda3test10.otttest10.tex (ps)test10.vtest10Script.smltest10.thy
Simply typed CBV lambda6test10st.otttest10st.tex (ps)test10st.vtest10st_metatheory.vtest10stScript.smltest10st_metatheoryScript.smltest10st.thytest10st_metatheory.thy
ML polymorphism22test8.otttest8.tex (ps)test8.vtest8Script.smltest8.thy
TAPL roughly-full-simple63(sources)(ps)(Coq (including records))(HOL)(script)(Isabelle)(script)
POPLmark Fsub (*)48(sources)(latex)(pdf)   (ps)
Leroy JFP96 module system (*)67leroy-jfp96.ott(latex) (ps)(HOL)
LJ: Lightweight Java85(sources)(pdf)(Isabelle)(zip)
LJAM: Java Module System163(sources)(pdf)(Isabelle)(zip)
OCaml light 310(sources) (ps) (ps) (Coq) (HOL) (scripts) (Isabelle)
- -

-(all files except the proof scripts are generated from the Ott sources) -

-(*) These systems would need explicit alpha conversion in the rules to capture the intended semantics using the fully concrete representation. -

- - - -
- -

[validate]

- - - - diff --git a/vendors/ott/doc/let.alltt.tex b/vendors/ott/doc/let.alltt.tex deleted file mode 100644 index a017790cd67f..000000000000 --- a/vendors/ott/doc/let.alltt.tex +++ /dev/null @@ -1,31 +0,0 @@ -\begin{alltt} -\mykw{grammar} -t \mysym{::} Tm \mysym{::=} \mysym{\mylb\mylb{}} \mykw{com} terms: \mysym{\myrb\myrb{}} - \mysym{|} let x = t in t' \mysym{::} \mysym{::} Let \mysym{(+} \mykw{bind} x \mykw{in} t' \mysym{+)} \mysym{\mylb\mylb{}} \mykw{com} let binding \mysym{\myrb\myrb{}} - - -\mykw{defns} -Jop \mysym{::} '' \mysym{::=} - -\mykw{defn} -t --> t' \mysym{::} \mysym{::} red \mysym{::} E_ \mysym{\mylb\mylb{}} \mykw{com} Evaluation \mysym{\myrb\myrb{}} \mykw{by} - -\mysym{-----------------------------} :: LetV -let x=v1 in t2 --> [x|->v1]t2 - -t1 --> t1' -\mysym{----------------------------------} :: Let -let x=t1 in t2 --> let x=t1' in t2 - - -\mykw{defns} -Jtype \mysym{::} '' \mysym{::=} - -\mykw{defn} -G |- t : T \mysym{::} \mysym{::} typing \mysym{::} T_ \mysym{\mylb\mylb{}} \mykw{com} Typing \mysym{\myrb\myrb{}} \mykw{by} - -G |- t1:T1 -G,x:T1 |- t2:T2 -\mysym{------------------------} :: Let -G |- let x=t1 in t2 : T2 -\end{alltt} diff --git a/vendors/ott/doc/shorter.bib b/vendors/ott/doc/shorter.bib deleted file mode 100644 index ed0389d9c67f..000000000000 --- a/vendors/ott/doc/shorter.bib +++ /dev/null @@ -1,1141 +0,0 @@ -@techreport{kahrs569, -author = {Stefan Kahrs}, -title = {Mistakes and Ambiguities in the definition of {S}tandard {ML}}, -OPTmonth = {April}, -year = {1993}, -pages = {33}, -keywords = {Standard ML, definition, bugs}, -OPTnote = {An update listing further errors can be found at {\url{ftp://ftp.dcs.ed.ac.uk/pub/smk/SML/errors-new.ps.Z}.}}, -OPTurl = {http://www.cs.kent.ac.uk/pubs/1993/569}, -institution = {University of Edinburgh}, -number = {ECS-LFCS-93-257}, -OPTtype = {LFCS Report}, -} - - - - -@TECHREPORT{Rossberg:DefectsSML, - title = {Defects in the Revised Definition of {Standard ML}}, - year = {2001}, - author = {Andreas Rossberg}, - abstract = {The Definition of Standard ML is a comprehensive, formal specification of a full programming language. It probably is the most precise language specification to date. Nevertheless, it inevitably contains a certain number of bugs, ambiguities and grey areas. We list and discuss all known issues in the 1997 revision of the language definition.}, - note = {Updated 2007/01/22}, - OPTnote = {Updated 2004/06/22, 2005/01/13, 2005/01/26, 2006/07/18.}, - OPTmonth = oct, - institution = {Saarland University}, - OPTaddress = {Saarbr{\"u}cken, Germany}, - project-key = {MI6}, - label = {sml-defects} -} - - - -@Book{ - sml90, - author="R. Milner and M. Tofte and R. Harper", - title="The Definition of {S}tandard {ML}", - publisher="MIT Press", - year="1990" -} -@Misc{AFP, - key = {AFP}, - title = {The Archive of Formal Proofs}, - editor = {Gerwin Klein and Tobias Nipkow and Lawrence Paulson}, - note = {\url{http://afp.sf.net}} -} - -@TechReport{SLWAZHV04, - author = {Peter Sewell and -James J. Leifer and -Keith Wansbrough and -Mair Allen-Williams and -Zappa Nardelli, Francesco and -Pierre Habouzit and -Viktor Vafeiadis}, - title = {Acute: High-level programming language design for distributed -computation. Design rationale and language definition}, - institution = {University of Cambridge Computer Laboratory}, - year = {2004}, - OPTkey = {}, - OPTtype = {}, - number = {UCAM-CL-TR-605}, - OPTaddress = {}, - month = oct, - OPTnote = {Also published as INRIA RR-5329. 193pp}, - note = {See also the ICFP'05 paper}, - OPTannote = {}, - OPTurl = "http://www.cl.cam.ac.uk/TechReports/UCAM-CL-TR-605.html" -} - -@TechReport{SLWAZHV04-anon, - author = {{Anonymized for blind reviewing}}, - title = {Acute: High-level programming language design for distributed -computation. Design rationale and language definition}, - OPTinstitution = {University of Cambridge Computer Laboratory}, - year = {2004}, - OPTkey = {}, - OPTtype = {}, - OPTnumber = {UCAM-CL-TR-605}, - OPTaddress = {}, - month = oct, - OPTnote = {Also published as INRIA RR-5329. 193pp}, - note = {\url{http://tinyurl.com/32dc5h} See also the related ICFP'05 paper}, - OPTannote = {} -} - -@InProceedings{SLWZAHV05, - author = {Peter Sewell and -James J. Leifer and -Keith Wansbrough and -Zappa Nardelli, Francesco and -Mair Allen-Williams and -Pierre Habouzit and -Viktor Vafeiadis}, - title = {Acute: High-level programming language design for distributed -computation}, - OPTcrossref = {}, - OPTkey = {}, - booktitle = {Proceedings of ICFP 2005: International Conference on -Functional Programming (Tallinn)}, - OPTpages = {}, - year = {2005}, - OPTeditor = {}, - OPTvolume = {}, - OPTnumber = {}, - OPTseries = {}, - OPTaddress = {}, - month = sep, - OPTorganization = {}, - OPTpublisher = {}, - OPTnote = {}, - OPTannote = {}, - OPTurl = "http://www.cl.cam.ac.uk/users/pes20/acute/acute2-short.ps" -} - -@InProceedings{SLWZAHV05anon, - author = {{Anonymized for blind reviewing}}, - title = {Acute: High-level programming language design for distributed -computation}, - OPTcrossref = {}, - OPTkey = {}, - booktitle = {Proceedings of ICFP 2005: International Conference on -Functional Programming (Tallinn)}, - OPTpages = {}, - year = {2005}, - OPTeditor = {}, - OPTvolume = {}, - OPTnumber = {}, - OPTseries = {}, - OPTaddress = {}, - month = sep, - OPTorganization = {}, - OPTpublisher = {}, - OPTnote = {}, - OPTannote = {}, - OPTurl = "http://www.cl.cam.ac.uk/users/pes20/acute/acute2-short.ps" -} - - -@Misc{HOL, - key = {HOL}, - OPTauthor = {}, - title = {The {HOL 4} System, {K}ananaskis-3 release}, - OPThowpublished = {}, - OPTmonth = {}, - OPTyear = {}, - note = {\url{http://hol.sourceforge.net/}}, - OPTannote = {} -} - -@Misc{Coq, - key = {Coq}, - OPTauthor = {}, - title = {The {C}oq proof assistant, v.8.0}, - OPThowpublished = {}, - OPTmonth = {}, - OPTyear = {}, - note = {\url{http://coq.inria.fr/}}, - OPTannote = {} -} - - -@Misc{Isabelle, - key = {Isabelle}, - OPTauthor = {}, - title = {Isabelle 2005}, - OPThowpublished = {}, - OPTmonth = {}, - OPTyear = {}, - note = {\url{http://isabelle.in.tum.de/}}, - OPTannote = {} -} - - -@Misc{Twelf, - key = {Twelf}, - OPTauthor = {}, - title = {{Twelf} 1.5}, - OPThowpublished = {}, - OPTmonth = {}, - OPTyear = {}, - note = {\url{http://www.cs.cmu.edu/~twelf/}}, - OPTannote = {} -} - - - -@Book{haskell98, - ALTauthor = {}, - editor = {Simon {Peyton Jones}}, - title = {Haskell 98 Language and Libraries. The Revised Report}, - publisher = {CUP}, - year = {2003}, - OPTkey = {}, - OPTvolume = {}, - OPTnumber = {}, - OPTseries = {}, - OPTaddress = {}, - OPTedition = {}, - OPTmonth = {}, - OPTnote = {See also JFP, vol 13.1, 2003}, - OPTannote = {} -} - - - -%(with Damien Doligez, Jacques Garrigue, Didier Rémy and Jérôme Vouillon) - -@Misc{ocaml2005, - OPTkey = {}, - author = {X.~Leroy and others}, - title = {The {O}bjective {C}aml system - release 3.09 - Documentation and user's manual}, - OPThowpublished = {}, - month = oct, - year = {2005}, - OPTnote = {}, - OPTannote = {} -} - -@BOOK{Pierce:TypeSystems, - author = {Benjamin C. Pierce}, - title = {Types and Programming Languages}, - publisher = {MIT Press}, - year = 2002, - OPTplclub = {Yes}, - OPTbcp = {Yes}, - OPTkeys = {books}, - OPThomepage = {http://www.cis.upenn.edu/~bcpierce/tapl}, - OPTerrata = {http://www.cis.upenn.edu/~bcpierce/tapl/errata.txt} -} - -@ARTICLE{Leroy-generativity, - AUTHOR = {Xavier Leroy}, - TITLE = {A syntactic theory of type generativity - and sharing}, - YEAR = 1996, - JOURNAL = {Journal of Functional Programming}, - VOLUME = 6, - NUMBER = 5, - PAGES = {667--698}, - OPTURL = {http://gallium.inria.fr/~xleroy/publi/syntactic-generativity.ps.gz}, - ABSTRACT = {This paper presents a purely syntactic account of type generativity -and sharing -- two key mechanisms in the Standard ML module system --- and shows its equivalence with the traditional -stamp-based description of these mechanisms. This syntactic -description recasts the Standard ML module system in a more -abstract, type-theoretic framework.}, - XTOPIC = {modules} -} - -@ARTICLE{LevinPierce99, - author = {Michael Y. Levin and Benjamin C. Pierce}, - title = {TinkerType: {A} Language for Playing with Formal Systems}, - journal = {Journal of Functional Programming}, - volume = 13, - number = 2, - month = MAR, - year = {2003}, - OPTnote = {A preliminary version appeared as an invited - paper at the {\em Logical Frameworks and Metalanguages - Workshop (LFM)}, June 2000}, - plclub = {Yes}, - bcp = {Yes}, - full = {http://www.cis.upenn.edu/~bcpierce/papers/tt-jfp.pdf}, - slides = {http://www.cis.upenn.edu/~bcpierce/papers/tt-slides.ps}, - sources = {http://www.cis.upenn.edu/~bcpierce/papers/tt.tar.gz}, - keys = {modular} -} - -@Misc{ottpage, - key = {Ott}, - author = {Peter Sewell and Francesco {Zappa Nardelli}}, - title = {Ott}, - OPTmonth = {}, - year = {2007}, - note = {\url{http://www.cl.cam.ac.uk/users/pes20/ott/}}, - OPTannote = {} -} - -@Misc{ottpageanon, - OPTkey = {}, - author = {{Anonymized for blind reviewing}}, - title = {Ott}, - howpublished = {\url{http://tinyurl.com/2pfapr}}, - OPTmonth = {}, - year = {2007}, - OPTnote = {}, - OPTannote = {} -} - -@article{Fax:static, - author = "Karl-Filip Fax\'{e}n", - title = "A Static Semantics for {Haskell}", - pages = "295--357", - year = 2002, - month = jul, - journal = "Journal of Functional Programming", - volume = 12, - number = "4\&5" -} - -@article{1146811, - author = {Gerwin Klein and Tobias Nipkow}, - title = {A machine-checked model for a {J}ava-like language, virtual machine, and compiler}, - journal = {TOPLAS}, - OPTjournal = {ACM Trans. Program. Lang. Syst.}, - volume = {28}, - number = {4}, - year = {2006}, - OPTissn = {0164-0925}, - pages = {619--695}, - OPTdoi = {http://doi.acm.org/10.1145/1146809.1146811}, - publisher = {ACM Press}, - OPTaddress = {New York, NY, USA}, - } -@InProceedings{StoughtonA:dops, - author = {Allen Stoughton}, - title = {An Operational Semantics Framework Supporting the Incremental - Construction of Derivation Trees}, - booktitle = {Second Workshop on Higher-Order Operational Techniques in - Semantics (HOOTS~II)}, - year = 1998, - editor = {A. Gordon and A. Pitts and C. Talcott}, - volume = 10, - series = {Electronic Notes in Theoretical Computer Science}, - publisher = {Elsevier Science B. V.}, - OPTurl="ftp://ftp.cis.ksu.edu/pub/CIS/Stoughton/dops.ps" -} - -@Misc{Cha06, - OPTkey = {}, - author = {Arthur Chargu{\'e}raud}, - title = {Annotated Bibliography for formalization of lambda-calculus and type theory}, - howpublished = {\url{http://fling-l.seas.upenn.edu/~plclub/cgi-bin/poplmark/index.php?title=Annotated_Bibliography}}, - month = jul, - year = {2006}, - OPTnote = {}, - OPTannote = {} -} -@InProceedings{poplmark, - AUTHOR = {Brian E. Aydemir and Aaron Bohannon and Matthew Fairbairn - and J. Nathan Foster and Benjamin C. Pierce and Peter - Sewell and Dimitrios Vytiniotis and Geoffrey Washburn and - Stephanie Weirich and Steve Zdancewic}, - TITLE = {Mechanized metatheory for the masses: {T}he {POPL}mark - {C}hallenge}, - YEAR = 2005, - OPTMONTH = aug, - OPTcrossref = {}, - OPTkey = {}, - OPTbooktitle = {Proceedings of TPHOLs 2005: the 18th International Conference on Theorem Proving in Higher Order Logics (Oxford), LNCS 3603}, - booktitle = {Proc.~TPHOLs, LNCS 3603}, - OPTpages = {}, - OPTyear = {}, - OPTeditor = {}, - OPTvolume = {}, - OPTnumber = {}, - OPTseries = {}, - OPTaddress = {}, - OPTmonth = {}, - OPTorganization = {}, - OPTpublisher = {}, - note = {}, - OPTannote = {}, - OPTurl = "http://www.cis.upenn.edu/group/proj/plclub/mmm/poplmark/poplmark.pdf" -} - - - -@InProceedings{Owe95, - author = {Christopher Owens}, - title = {Coding Binding and Substitution Explicitly in {I}sabelle}, - OPTcrossref = {}, - OPTkey = {}, - booktitle = {Proceedings of the First Isabelle Users Workshop}, - pages = {36--52}, - year = {1995}, - OPTeditor = {}, - OPTvolume = {}, - OPTnumber = {}, - OPTseries = {}, - OPTaddress = {}, - OPTmonth = {}, - OPTorganization = {}, - OPTpublisher = {}, - optnote = {\url{http://www.cl.cam.ac.uk/~lp15/papers/Workshop/}}, - OPTannote = {} -} - - - - @InProceedings{FGLMR96, - author = {C{\'e}dric Fournet and Georges Gonthier and - Jean-Jacques L{\'e}vy and Luc Maranget and Didier R{\'e}my}, - title = {A Calculus of Mobile Agents}, - OPTbooktitle = "Proceedings of CONCUR '96. LNCS 1119", - booktitle = "Proc.~CONCUR '96, LNCS 1119", - OPTcrossref = {}, - OPTkey = {}, - OPTeditor = {}, - OPTvolume = {}, - OPTnumber = {}, - OPTseries = {}, - year = {1996}, - OPTorganization = {}, - OPTpublisher = {Springer-Verlag}, - OPTaddress = {}, - OPTmonth = aug, - OPTpages = {406--421}, - note = {}, - OPTannote = {} -} -@InProceedings{PittsAM:metsos, - author = {M. R. Lakin and A. M. Pitts}, - title = {A Metalanguage for Structural Operational Semantics}, - booktitle = {Symposium on Trends in Functional Programming}, - OPTpages = {{I1}--{I16}}, - year = 2007, - OPTmonth = apr, - OPTnote = {Draft proceedings} -} - -@INPROCEEDINGS{pottier-alphacaml, - AUTHOR = {François Pottier}, - TITLE = {An overview of {C$\alpha$ml}}, - MONTH = MAR, - YEAR = {2006}, - BOOKTITLE = {ACM Workshop on ML, ENTCS 148(2)}, - PAGES = {27--52}, - OPTVOLUME = {148}, - OPTNUMBER = {2}, - OPTSERIES = {Electronic Notes in Theoretical Computer Science}, - OPTURL = {http://cristal.inria.fr/~fpottier/publis/fpottier-alphacaml.ps.gz}, - PDF = {http://cristal.inria.fr/~fpottier/publis/fpottier-alphacaml.pdf}, - OFF = {http://dx.doi.org/10.1016/j.entcs.2005.11.039}, - ABSTRACT = {C$\alpha$ml is a tool that turns a so-called ``binding - specification'' into an Objective Caml compilation - unit. A binding specification resembles an algebraic - data type declaration, but also includes information - about names and binding. C$\alpha$ml is meant to help - writers of interpreters, compilers, or other - programs-that-manipulate-programs deal with - $\alpha$-conversion in a safe and concise style. This - paper presents an overview of C$\alpha$ml's binding - specification language and of the code that C$\alpha$ml - produces.} -} - -@UNPUBLISHED{pottier-pure-freshml, - AUTHOR = {François Pottier}, - TITLE = {Static Name Control for {FreshML}}, - NOTE = {To appear in LICS'07}, - MONTH = JAN, - YEAR = {2007}, - OPTURL = {http://cristal.inria.fr/~fpottier/publis/fpottier-pure-freshml.ps.gz}, - PDF = {http://cristal.inria.fr/~fpottier/publis/fpottier-pure-freshml.pdf}, - LONG = {http://cristal.inria.fr/~fpottier/publis/fpottier-pure-freshml-long.ps.gz}, - LONGPDF = {http://cristal.inria.fr/~fpottier/publis/fpottier-pure-freshml-long.pdf}, - ABSTRACT = {FreshML extends ML with constructs for declaring and manipulating abstract - syntax trees that involve names and statically scoped binders. It is impure: - name generation is an observable side effect. In practice, this means that - FreshML allows writing programs that create fresh names and unintentionally - fail to bind them. Following in the steps of early work by Pitts and Gabbay, - this paper defines Pure FreshML, a subset of FreshML equipped with a static - proof system that guarantees purity. Pure FreshML relies on a rich binding - specification language, on user-provided assertions, expressed in a logic that - allows reasoning about values and about the names that they contain, and on a - conservative, automatic decision procedure for this logic. It is argued that - Pure FreshML can express non-trivial syntax-manipulating algorithms.} -} - -@MISC{Chargueraud06, - author = {Arthur Chargu\'eraud and Benjamin C. Pierce and Stephanie Weirich}, - title = {Proof Engineering: {P}ractical Techniques for Mechanized Metatheory}, - year = {2006}, - month = SEP, - bcp = {Yes}, - keys = {poplmark}, - plclub = {Yes}, - note = {Manuscript}, - short = {http://www.cis.upenn.edu/~bcpierce/papers/binders.pdf} -} - - - -@Misc{ACPPW07, - OPTkey = {}, - author = {Brian Aydemir and Arthur Chargu{\'e}raud and Benjamin C. Pierce and Randy Pollack and Stephanie Weirich}, - title = {Engineering Formal Metatheory}, - OPThowpublished = {}, - OPTmonth = {}, - year = {2007}, - note = {\url{http://www.chargueraud.org/arthur/research/2007/binders/}}, - OPTannote = {} -} - -@InProceedings{cheney04iclp, - author = {James Cheney and Christian Urban}, - title = {{Alpha}-{Prolog}: A Logic Programming Language with - Names, Binding and Alpha-Equivalence}, - OPTbooktitle = {Proc. 20th Int. Conf. on Logic Programming (ICLP - 2004)}, - booktitle = {Proc. ICLP, LNCS 3132}, - year = {2004}, - pages = {269--283}, - OPTseries = {LNCS}, - OPTnumber = {3132}, - OPTpublisher = {Springer-Verlag} -} - -@InProceedings{lee+:towards, - author = {Daniel K. Lee and Karl Crary and Robert Harper}, - title = {Towards a Mechanized Metatheory of {Standard ML}}, - OPTbooktitle = {Proc. 34th {ACM} {SIGPLAN-SIGACT} Symposium on Principles of Programming Languages}, - booktitle = {Proc.~POPL}, - OPTpages = {?--?}, - year = 2007, - OPTaddress = {Nice, France}, - month = {January}, - OPTnote = {(To appear.)}} - - -@Article{GM95, - author = {Elsa Gunter and Savi Maharaj}, - title = {Studying the {ML} module system in {HOL}}, - journal = {The Computer Journal: Special Issue on Theorem Proving in Higher Order Logics}, - year = {1995}, - OPTkey = {}, - OPTvolume = {}, - OPTnumber = {}, - OPTpages = {}, - OPTmonth = {}, - OPTnote = {}, - OPTannote = {} -} - -@inproceedings{DBLP:conf/tphol/InwegenG93, - author = {Myra Van Inwegen and - Elsa L. Gunter}, - title = {{HOL-ML}}, - booktitle = {HUG}, - year = {1993}, - pages = {61-74}, - crossref = {DBLP:conf/tphol/1993}, - bibsource = {DBLP, http://dblp.uni-trier.de} -} - - - - - -@PhdThesis{Van96, - author = {Myra VanInwegen}, - title = {The Machine-Assisted Proof of Programming Language Properties}, - school = {Univ. of Pennsylvania}, - year = {1996}, - OPTkey = {}, - OPTtype = {}, - OPTaddress = {}, - OPTmonth = {}, - note = {Computer and Information Science Tech Report MS-CIS-96-31}, -OPTnote={ \url{http://www.myra-simon.com/myra/papers/thesis.html}}, - OPTannote = {} -} - - -@inproceedings{319847, - author = {Dominique Cl{\'e}ment and Thierry Despeyroux and Gilles Kahn and Joelle Despeyroux}, - title = {A simple applicative language: mini-ML}, - booktitle = {LFP '86: Proceedings of the 1986 ACM conference on LISP and functional programming}, - year = {1986}, - isbn = {0-89791-200-4}, - pages = {13--27}, - location = {Cambridge, Massachusetts, United States}, - doi = {http://doi.acm.org/10.1145/319838.319847}, - publisher = {ACM Press}, - OPTaddress = {New York, NY, USA}, - } - -@inproceedings{ syme93reasoning, - author = "Don Syme", - title = "{R}easoning with the Formal Definition of {S}tandard {ML} in {HOL}", - booktitle = "TPHOLs, LNCS 780", - OPTvolume = "780", - OPTpublisher = "Springer-Verlag, published 1994", - OPTaddress = "Vancouver, Canada", - OPTeditor = "{J.J. Joyce} and {C.-J.H. Seger}", - pages = "43--59", - year = "1993", - OPTurl = "citeseer.ist.psu.edu/syme93reasoning.html" } - -@PhdThesis{SymePhD, - author = {Don Syme}, - title = {Declarative Theorem Proving for Operational Semantics}, - school = {Computer Laboratory, University of Cambridge}, - year = {1998}, - OPTkey = {}, - OPTtype = {}, - OPTaddress = {}, - OPTmonth = {}, - OPTnote = {\url{http://research.microsoft.com/~dsyme/reports/thesis-dd.pdf}}, - OPTannote = {} -} - - - @InProceedings{NorrishC, - author = {Michael Norrish}, - title = {Deterministic expressions in {C}}, - OPTcrossref = {}, - OPTkey = {}, - booktitle = {Proc. 8th ESOP (ETAPS), LNCS 1576}, - pages = {147--161}, - year = {1999}, - OPTeditor = {}, - OPTvolume = {}, - OPTnumber = {}, - OPTseries = {}, - OPTaddress = {}, - OPTmonth = {}, - OPTorganization = {}, - OPTpublisher = {}, - OPTnote = {}, - OPTannote = {} -} - -@InProceedings{ToolFormReasCompLang, - author = "R. J. Boulton", - title = "A Tool to Support Formal Reasoning about Computer Languages", - OPTbooktitle = "Proceedings of the Third International Workshop on - Tools and Algorithms for the Construction and Analysis of - Systems (TACAS'97)", - booktitle = "Proc.~TACAS, LNCS 1217", - year = "1997", - OPTseries = "Lecture Notes in Computer Science", - OPTvolume = "1217", - OPTeditor = "E. Brinksma", - pages = "81--95", - OPTpublisher = "Springer", - OPTaddress = "Enschede, The Netherlands", - OPTmonth = "April"} - - - - -@InProceedings{ergo88, - author = {Peter Lee and Frank Pfenning and Gene Rollins and William Scherlis}, - title = {{The Ergo Support System}: An integrated set of tools for prototyping integrated environments}, - OPTcrossref = {}, - OPTkey = {}, - booktitle = {Proc.~SDE 3}, - OPTbooktitle = {Proc.~Software Engineering Symp. on Practical Software Development Environments}, - OPTpages = {25--34}, - year = {1988}, - OPTeditor = {Peter Henderson}, - OPTvolume = {}, - OPTnumber = {}, - OPTseries = {}, - OPTaddress = {}, - OPTmonth = {}, - OPTorganization = {}, - OPTpublisher = {}, - OPTnote = {\url{http://portal.acm.org/citation.cfm?id=65006&coll=portal&dl=ACM}}, - OPTannote = {} -} - -@InProceedings{pltredex, - author = {Jacob Matthews and Robert Bruce Findler and Matthew - Flatt and Matthias Felleisen}, - title = {A Visual Environment for Developing Context-Sensitive Term Rewriting Systems}, - OPTcrossref = {}, - OPTkey = {}, - OPTbooktitle = {International Conference on Rewriting Techniques and Applications (RTA) 2004}, - booktitle = {Proc.~RTA}, - OPTpages = {}, - year = {2004}, - OPTeditor = {}, - OPTvolume = {}, - OPTnumber = {}, - OPTseries = {}, - OPTaddress = {}, - OPTmonth = {}, - OPTorganization = {}, - OPTpublisher = {}, - OPTnote = {}, - OPTannote = {} -} - -@Misc{sugar06, - OPTkey = {}, - author = {Stephen Tse and Steve Zdancewic}, - title = {Concise concrete syntax}, - OPThowpublished = {}, - OPTmonth = {}, - year = {2006}, - note = {Submitted. \url{http://www.cis.upenn.edu/~stse/javac}}, - OPTannote = {} -} - -@INPROCEEDINGS{Blazy-Dargaye-Leroy-06, - AUTHOR = {Sandrine Blazy and Zaynah Dargaye and Xavier Leroy}, - TITLE = {Formal Verification of a {C} Compiler Front-End}, - BOOKTITLE = {Int. Symp. on Formal Methods, LNCS 2085}, - OPTSERIES = {Lecture Notes in Computer Science}, - OPTPUBLISHER = {Springer-Verlag}, - OPTVOLUME = 4085, - YEAR = 2006, - OPTPAGES = {460--475}, - OPTURL = {http://gallium.inria.fr/~xleroy/publi/cfront.pdf}, - URLPUBLISHER = {http://dx.doi.org/10.1007/11813040_31}, - ABSTRACT = {This paper presents the formal verification of a compiler front-end -that translates a subset of the C language into the Cminor -intermediate language. The semantics of the source and target -languages as well as the translation between them have been written in -the specification language of the Coq proof assistant. The proof of -observational semantic equivalence between the source and generated -code has been machine-checked using Coq. An executable compiler was -obtained by automatic extraction of executable Caml code from the Coq -specification of the translator, combined with a certified compiler -back-end generating PowerPC assembly code from Cminor, described in -previous work.}, - XTOPIC = {compcert} -} - -@book{DBLP:books/sp/Gordon79, - author = {Michael J. C. Gordon and - Robin Milner and - Christopher P. Wadsworth}, - title = {Edinburgh LCF}, - publisher = {Springer}, - series = {Lecture Notes in Computer Science}, - volume = {78}, - year = {1979}, - isbn = {3-540-09724-4}, - bibsource = {DBLP, http://dblp.uni-trier.de} -} -@inproceedings{DBLP:conf/mfcs/Milner79, - author = {Robin Milner}, - title = {LCF: A Way of Doing Proofs with a Machine.}, - booktitle = {MFCS}, - year = {1979}, - pages = {146-159}, - crossref = {DBLP:conf/mfcs/1979}, - bibsource = {DBLP, http://dblp.uni-trier.de} -} - -@proceedings{DBLP:conf/mfcs/1979, - editor = {Jir\'{\i} Becv{\'a}r}, - title = {Mathematical Foundations of Computer Science 1979, Proceedings, - 8th Symposium, Olomouc, Czechoslovakia, September 3-7, 1979}, - booktitle = {MFCS}, - publisher = {Springer}, - series = {Lecture Notes in Computer Science}, - volume = {74}, - year = {1979}, - bibsource = {DBLP, http://dblp.uni-trier.de} -} - -@techreport{891954, - author = {Robin Milner}, - title = {Logic for Computable Functions: description of a machine implementation.}, - year = {1972}, - source = {http://www.ncstrl.org:8900/ncstrl/servlet/search?formname=detail\&id=oai%3Ancstrlh%3Astan%3ASTAN%2F%2FCS-TR-72-288}, - publisher = {Stanford University}, - OPTaddress = {Stanford, CA, USA}, - } -@inproceedings{807067, - author = {Robin Milner}, - title = {Implementation and applications of {S}cott's logic for computable functions}, - booktitle = {Proc.~ACM conference on Proving assertions about programs}, - year = {1972}, - pages = {1--6}, - location = {Las Cruces, New Mexico, United States}, - OPTdoi = {http://doi.acm.org/10.1145/800235.807067}, - OPTpublisher = {ACM Press}, - OPTaddress = {New York, NY, USA}, - } - - - -@InProceedings{OF06, - author = {Scott Owens and Matthew Flatt}, - title = {From Structures and Functors to Modules and Units}, - OPTcrossref = {}, - OPTkey = {}, - booktitle = {Proc.~ICFP}, - OPTpages = {}, - year = {2006}, - OPTeditor = {}, - OPTvolume = {}, - OPTnumber = {}, - OPTseries = {}, - OPTaddress = {}, - OPTmonth = {}, - OPTorganization = {}, - OPTpublisher = {}, - OPTnote = {}, - OPTannote = {} -} - -@article{356598, - author = {Peter Wegner}, - title = {The Vienna Definition Language}, - journal = {ACM Comput. Surv.}, - volume = {4}, - number = {1}, - year = {1972}, - issn = {0360-0300}, - pages = {5--63}, - doi = {http://doi.acm.org/10.1145/356596.356598}, - publisher = {ACM Press}, - OPTaddress = {New York, NY, USA}, - } - -@Book{FLDLCP66, - ALTauthor = {}, - editor = {Steel, T.B. jr}, - title = {Formal language description languages for computer programming}, - publisher = {North-Holland}, - year = {1966}, - OPTkey = {}, - OPTvolume = {}, - OPTnumber = {}, - OPTseries = {}, - OPTaddress = {}, - OPTedition = {}, - OPTmonth = {}, - OPTnote = {}, - OPTannote = {} -} - - -@ARTICLE{NAUR63, - AUTHOR = {Peter Naur and others}, - TITLE = {Revised Report on the Algorithmic Language {ALGOL} 60}, - JOURNAL = {Communications of the ACM}, - MONTH = {January}, - VOLUME = {6}, - NUMBER = {1}, - YEAR = {1963}, - PAGES = {1--17}, - REPRINT = {Reprinted as \authorcite{Naur} \crosscite{NAUR63C} and \authorcite{Naur} \crosscite{NAUR63D} and in \authorcite{O'Hearn and Tennent} \crosscite[vol.~1, pages~19--49]{OHEARN97}}, - CHECKED = {4 September 1990}, - UPDATED = {10 May 1997} -} - -@InProceedings{BU06, - author = {Stefan Berghofer and Christian Urban}, - title = {A Head-to-Head Comparison of de {B}ruijn Indices and Names}, - OPTcrossref = {}, - OPTkey = {}, - booktitle = {Proc.~Int. Workshop on Logical Frameworks and Meta-Languages: Theory and Practice}, - pages = {46--59}, - year = {2006}, - OPTeditor = {}, - OPTvolume = {}, - OPTnumber = {}, - OPTseries = {}, - OPTaddress = {}, - OPTmonth = {}, - OPTorganization = {}, - OPTpublisher = {}, - OPTnote = {}, - OPTannote = {} -} - -@article{Klint93, - author = "P. Klint", - title = "A Meta-Environment for Generating Programming Environments", - journal = "ACM Trans. on Soft. Eng. and Methodology", - volume = "2", - number = "2", - month = "April", - publisher = "ACM Press", - pages = "176--201", - year = "1993" -} - -@inproceedings{758568, - author = {Delphine Terrasse}, - title = {Encoding {N}atural {S}emantics in {C}oq}, - OPTbooktitle = {AMAST '95: Proceedings of the 4th International Conference on Algebraic Methodology and Software Technology}, - booktitle = {Proc.~AMAST, LNCS 936}, - year = {1995}, - OPTisbn = {3-540-60043-4}, - pages = {230--244}, - OPTpublisher = {Springer-Verlag}, - OPTaddress = {London, UK}, - } - -@INPROCEEDINGS{strachey-semantics, - AUTHOR = {Christopher Strachey}, - TITLE = {Towards a Formal Semantics}, - BOOKTITLE = {Formal Language Description Languages for Computer - Programming}, - PUBLISHER = {North Holland}, - YEAR = 1966, - optPAGES = {198--220} -} - -@inproceedings{65005, - author = {P. Borras and D. Clement and Th. Despeyroux and J. Incerpi and G. Kahn and B. Lang and V. Pascual}, - title = {Centaur: the system}, - OPTbooktitle = {SDE 3: Proceedings of the third ACM SIGSOFT/SIGPLAN software engineering symposium on Practical software development environments}, - booktitle = {Proc.~SDE 3}, - year = {1988}, - OPTisbn = {0-89791-290-X}, - pages = {14--24}, - location = {Boston, Massachusetts, United States}, - OPTdoi = {http://doi.acm.org/10.1145/64135.65005}, - OPTpublisher = {ACM Press}, - OPTaddress = {New York, NY, USA}, - } - -@inproceedings{676146, - author = {Peter D. Mosses}, - title = {Pragmatics of {M}odular {SOS}}, - OPTbooktitle = {AMAST '02: Proceedings of the 9th International Conference on Algebraic Methodology and Software Technology}, - booktitle = {Proc.~AMAST, LNCS 2442}, - year = {2002}, - OPTisbn = {3-540-44144-1}, - pages = {21--40}, - OPTpublisher = {Springer-Verlag}, - OPTaddress = {London, UK}, - } - - -@Misc{scheme592sem, - OPTkey = {}, - author = {Robert Bruce Findler and Jacob Matthews}, - title = {Revised$^{5.92}$ Report on the Algorithmic Language {Scheme}, {C}hapter 10, {Formal Semantics}}, - OPThowpublished = {}, - month = jan, - year = {2007}, - OPTnote = {}, - OPTannote = {} -} - - -@inproceedings{808247, - author = {Thomas Reps and Tim Teitelbaum}, - title = {The synthesizer generator}, - booktitle = {Proc.~SDE 1}, - OPTbooktitle = {SDE 1: Proceedings of the first ACM SIGSOFT/SIGPLAN software engineering symposium on Practical software development environments}, - year = {1984}, - OPTisbn = {0-89791-131-8}, - pages = {42--48}, - OPTdoi = {http://doi.acm.org/10.1145/800020.808247}, - OPTpublisher = {ACM Press}, - OPTaddress = {New York, NY, USA}, - } - - -@InProceedings{PittsAM:frepbm, - author = {M. R. Shinwell and A. M. Pitts and M. J. Gabbay}, - title = {Fresh{ML}: Programming with Binders Made Simple}, - booktitle = {Proc.~{ICFP}}, - OPTpages = {263--274}, - year = 2003, - OPTmonth = aug, - OPTpublisher = {ACM Press} -} - - -@InProceedings{RGSEP, - author = "V. Vafeiadis and M. Parkinson", - title = "A marriage of rely/guarantee and separation logic", - year = 2007, - OPTcrossref = {}, - OPTkey = {}, - booktitle = {Proc.~CONCUR}, - OPTpages = {}, - OPTyear = {}, - OPTeditor = {}, - OPTvolume = {}, - OPTnumber = {}, - OPTseries = {}, - OPTaddress = {}, - OPTmonth = {}, - OPTorganization = {}, - OPTpublisher = {}, - OPTnote = {}, - OPTannote = {} -} - - -@article{216269, - author = {Mark Johnson}, - title = {Memoization in top-down parsing}, - journal = {Comput. Linguist.}, - volume = {21}, - number = {3}, - year = {1995}, - OPTissn = {0891-2017}, - pages = {405--417}, - publisher = {MIT Press}, - OPTaddress = {Cambridge, MA, USA}, - } - -@inproceedings{ruler, - author = {Atze Dijkstra and S. Doaitse Swierstra}, - title = {Ruler: Programming Type Rules}, - booktitle = {Proc.~Functional and Logic Programming, LNCS 3945}, - year = 2006} - -@InProceedings{ljam-sub, - author = {Rok {Strni\v sa} and Peter Sewell and Matthew Parkinson}, - title = {The {J}ava {M}odule {S}ystem: core design and semantic definition}, - OPTcrossref = {}, - OPTkey = {}, - booktitle = {Proceedings of {OOPSLA} 2007, the {22nd ACM SIGPLAN International Conference on Object-Oriented Programming, Systems, Languages and Applications (Montre{\'a}l)}}, - optpages = {15 pp}, - note = {15pp}, - year = {2007}, - OPTeditor = {}, - OPTvolume = {}, - OPTnumber = {}, - OPTseries = {}, - OPTaddress = {}, - month = oct, - OPTorganization = {}, - OPTpublisher = {}, - OPTannote = {} -} - -@InProceedings{ott-sub, - author = {Peter Sewell and Zappa Nardelli,Francesco and Scott Owens and Gilles Peskine and Thomas Ridge and Susmit Sarkar and Rok Strni\v sa}, - title = {{Ott}: Effective Tool Support for the Working Semanticist}, - OPTcrossref = {}, - OPTkey = {}, - booktitle = {Proceedings of ICFP 2007: {the 12th ACM SIGPLAN International Conference on Functional Programming (Freiburg)}}, - optpages = {12pp}, - note = {12pp}, - year = {2007}, - OPTeditor = {}, - OPTvolume = {}, - OPTnumber = {}, - OPTseries = {}, - OPTaddress = {}, - month = oct, - OPTorganization = {}, - OPTpublisher = {}, - optnote = {To appear}, - OPTannote = {} -} - -@InProceedings{ocamllightesop, - author = {Scott Owens}, - title = {A Sound Semantics for {OCaml$_{\emph{light}}$}}, - OPTcrossref = {}, - OPTkey = {}, - booktitle = {Proceedings of ESOP, LNCS 4960}, - OPTpages = {}, - year = {2008}, - OPTeditor = {}, - OPTvolume = {}, - OPTnumber = {}, - OPTseries = {}, - OPTaddress = {}, - OPTmonth = {}, - OPTorganization = {}, - OPTpublisher = {}, - OPTnote = {}, - OPTannote = {} -} - -@inproceedings{Gra08, - author = {Kathryn E. Gray}, - title = {Safe Cross-language Inheritance}, - booktitle = {ECOOP}, - year = {2008}, - } - - @InProceedings{FGZN08, - author = {C{\'e}dric Fournet and Nataliya Guts and Zappa Nardelli, Francesco }, - title = {A formal implementation of value commitment }, - OPTcrossref = {}, - OPTkey = {}, - booktitle = {Proc. ESOP, LNCS 4960}, - pages = {383--397}, - year = {2008}, - OPTeditor = {}, - OPTvolume = {}, - OPTnumber = {}, - OPTseries = {}, - OPTaddress = {}, - OPTmonth = {}, - OPTorganization = {}, - OPTpublisher = {}, - OPTnote = {}, - OPTannote = {} -} - - -@Misc{R6RS, - OPTkey = {}, - author = {Michael Sperber and R. Kent Dybvig and Matthew Flatt and Anton Van Straaten (Editors) and Richard Kelsey and William Clinger and Jonathan Rees (Editors, Revised$^5$ Report on the Algorithmic Language Scheme and Robert Bruce Findler and Jacob Matthews (Authors, formal semantics)}, - title = {Revised$^6$ Report on the Algorithmic Language Scheme}, - OPThowpublished = {}, - month = sep, - year = {2007}, - note = {\url{http://www.r6rs.org/}}, - OPTannote = {} -} - -@phdthesis{sdf, -author = {Eelco Visser}, -title = {Syntax Definition for Language Prototyping}, -year = {1997}, -School = {University of Amsterdam}} - -@phdthesis{glr, -author = {Jan Rekers}, -title = {Parser Generation for Interactive Environments}, -year = {1992}, -School = {University of Amsterdam}} - -@inproceedings{elkhound, - author = {Scott {McPeak} and George C. Necula}, - title = {Elkhound: A Fast, Practical {GLR} Parser Generator}, - year = {2004}, - booktitle = {Proceedings of CC, LNCS 2985}} - -@article{ott-jfp, - author = {Peter Sewell and Zappa Nardelli, Francesco and Scott Owens and Gilles Peskine and Thomas Ridge and Susmit Sarkar and Rok Strni\v sa}, - title = {{Ott}: Effective Tool Support for the Working Semanticist}, - OPTcrossref = {}, - OPTkey = {}, - optjournal = {J. Functional Programming}, - journal = {Journal of Functional Programming}, - year = {2010}, - OPTkey = {}, - volume = {20}, - number = {1}, - pages = {70--122}, - month = jan, - note = {Invited submission from ICFP 2007}, - OPTannote = {} -} - diff --git a/vendors/ott/doc/squishtex.hand.ott b/vendors/ott/doc/squishtex.hand.ott deleted file mode 100644 index 2ac27a16aad2..000000000000 --- a/vendors/ott/doc/squishtex.hand.ott +++ /dev/null @@ -1,11 +0,0 @@ -embed - {{ tex-preamble -\renewcommand{\[[TEX_NAME_PREFIX]]grammartabular}[1] - {\begin{minipage}{\columnwidth}\begin{tabular}{ll}#1\end{tabular}\end{minipage} } -\renewcommand{\[[TEX_NAME_PREFIX]]rulehead}[3] - {$#1$ $#2$ & $#3$} -\renewcommand{\[[TEX_NAME_PREFIX]]prodline}[6] - { \quad $#1$ \ $#2$ & \quad $#3 #4$ $#5$ $#6$} -\renewcommand{\[[TEX_NAME_PREFIX]]interrule} - {\\[2.0mm]} - }} diff --git a/vendors/ott/doc/style.css b/vendors/ott/doc/style.css deleted file mode 100644 index b9f45c12173a..000000000000 --- a/vendors/ott/doc/style.css +++ /dev/null @@ -1,50 +0,0 @@ -body { - font-family: verdana, arial, helvetica, sans-serif; - font-size: 1.0em; -} - -h1 { font-size: 150%; } -h2 { - font-size: 125%; - margin-top: 1.0em; -} -h3 { - font-size: 100%; -} - -hr{ - margin-top:20px; - margin-bottom:20px; - margin-left:2px; - margin-right:2px; -} - -table,td,th{ - border:1px solid #000; - border-collapse:collapse; - margin:0; - padding:0; -} -td,th{ - padding:.2em .5em; - vertical-align:top; - font-weight:normal; -} -thead th{ - font-weight:bold; - font-size:90%; - vertical-align:bottom; - margin-bottom:5px; -} -tbody td,tbody th{ - padding:7px 10px; -} -tfoot td,tfoot th{ - margin-top:5px; -} -caption{ - text-align:left; - font-size:120%; - font-weight:bold; - margin:5px; -} diff --git a/vendors/ott/doc/test10.hand.edited.thy b/vendors/ott/doc/test10.hand.edited.thy deleted file mode 100644 index 52a0fc9831a9..000000000000 --- a/vendors/ott/doc/test10.hand.edited.thy +++ /dev/null @@ -1,51 +0,0 @@ -theory out = Main: -(** syntax *) -types termvar = "string" - -datatype -t = - t_Var "termvar" - | t_Lam "termvar" "t" - | t_App "t" "t" - -(** subrules *) -consts -is_v :: "t => bool" - -primrec -"is_v ((t_Var x)) = False" -"is_v ((t_Lam x t)) = (True)" -"is_v ((t_App t t')) = False" - -(** substitutions *) -consts -tsubst_t :: "t => termvar => t => t" - -primrec -"tsubst_t t0 termvar0 (t_Var x) = - (if x=termvar0 then t0 else (t_Var x))" -"tsubst_t t0 termvar0 (t_Lam x t) = - (t_Lam x (if termvar0 mem [x] then t else (tsubst_t t0 termvar0 t)))" -"tsubst_t t0 termvar0 (t_App t t') = - (t_App (tsubst_t t0 termvar0 t) (tsubst_t t0 termvar0 t'))" - -(** definitions *) -(*defns Jop *) -consts - E :: "(t*t) set" -inductive E -intros - -(* defn E *) - -ax_appI: "[|is_v v2|] ==> - ( (t_App T v2) , ( tsubst_t v2 x t12 ) ) : E" - -ctx_app_funI: "[| ( t1 , t1' ) : E|] ==> - ( (t_App t1 t) , (t_App t1' t) ) : E" - -ctx_app_argI: "[|is_v v ; - ( t1 , t1' ) : E|] ==> - ( (t_App v t1) , (t_App v t1') ) : E" - -end diff --git a/vendors/ott/doc/test10.hand.edited.v b/vendors/ott/doc/test10.hand.edited.v deleted file mode 100644 index 013e3d8cc912..000000000000 --- a/vendors/ott/doc/test10.hand.edited.v +++ /dev/null @@ -1,60 +0,0 @@ -Require Import List. Require Import Arith. -(** syntax *) -Definition termvar_t := nat. -Lemma eq_termvar_t: forall (x y : termvar_t), {x = y} + {x <> y}. -Proof. - decide equality. -Defined. - - -Inductive -t_t : Set := - t_Var : termvar_t -> t_t - | t_Lam : termvar_t -> t_t -> t_t - | t_App : t_t -> t_t -> t_t -. - -(** subrules *) -Definition is_v (t0:t_t) : Prop := - match t0 with - | (t_Var x) => False - | (t_Lam x t) => (True) - | (t_App t t') => False -end. - -(** substitutions *) - -Fixpoint list_mem (A:Set) (eq:forall a b:A,{a=b}+{a<>b}) (x:A) (l:list A) {struct l} : bool := - match l with - | nil => false - | cons h t => if eq h x then true else list_mem A eq x t -end. -Implicit Arguments list_mem. - -Fixpoint tsubst_t (t0:t_t) (termvar0:termvar_t) (t1:t_t) {struct t1} : t_t := - match t1 with - | (t_Var x) => if eq_termvar_t x termvar0 then t0 else (t_Var x) - | (t_Lam x t) => t_Lam x (if list_mem eq_termvar_t termvar0 (cons x nil) then t else (tsubst_t t0 termvar0 t)) - | (t_App t t') => t_App (tsubst_t t0 termvar0 t) (tsubst_t t0 termvar0 t') -end. - - -(** definitions *) -(* defns Jop *) - -Inductive -(* defn E *) - -E : t_t -> t_t -> Prop := - | ax_app : forall v2 x t12, - is_v v2 -> - E (t_App T v2) ( tsubst_t v2 x t12 ) - | ctx_app_fun : forall t1 t1' t, - E t1 t1' -> - E (t_App t1 t) (t_App t1' t) - | ctx_app_arg : forall t1 v t1', - is_v v -> - E t1 t1' -> - E (t_App v t1) (t_App v t1') - -. \ No newline at end of file diff --git a/vendors/ott/doc/top2.mng b/vendors/ott/doc/top2.mng deleted file mode 100644 index f7eea568466f..000000000000 --- a/vendors/ott/doc/top2.mng +++ /dev/null @@ -1,5570 +0,0 @@ -% -*-LaTeX-*- -\documentclass[10pt]{article} -\usepackage{amsmath,amssymb} -\usepackage{supertabular} -\usepackage{longtable} -\usepackage{geometry} -\usepackage{verbatim} -\usepackage{alltt} -\usepackage{hevea} -\usepackage[usenames]{color} - -%\usepackage{ctable} %for pandoc-generated table -\newcommand{\ctable}[1][]{} -\newcommand{\FL}{\begin{center}\begin{tabular}{ll}} -\newcommand{\ML}{\\\hline} -\newcommand{\LL}{\end{tabular}\end{center}} - -%\begin{htmlonly} -%\renewcommand{\fbox}[1] -%{\begin{cellstyle}{text}{}#1\end{cellstyle}} -%\end{htmlonly} - - -\geometry{% -a4paper, -% letterpaper, -dvips, -twoside, -%left=22.5mm, right=22.5mm, -left=25.4mm, right=25.5mm, -top=20mm, bottom=35mm, -} -\usepackage{parskip} - - -%\newcommand{\mybf}[1]{{\pmb{\texttt{#1}}}} -\newcommand{\mybf}[1]{{{\texttt{#1}}}} -%\newcommand{\mybackslash}{\mbox{$\backslash$}} -%\newcommand{\mybackslash}{\mbox{\tt\char'134}} -%\newcommand{\mylb}{\mbox{\tt\char'173}} -%\newcommand{\myrb}{\mbox{\tt\char'175}} - -%\newcommand{\mykw}[1]{{\color{Mahogany}{\pmb{\texttt{#1}}}}} -\newcommand{\mykw}[1]{{\color{Mahogany}{{\texttt{#1}}}}} -\newcommand{\mysym}[1]{{\color{RoyalBlue}{{\texttt{#1}}}}} -%\newcommand{\mybackslash}{\mbox{$\backslash$}} -\newcommand{\mybackslash}{\mbox{\tt\char'134}} -\newcommand{\mylb}{\mbox{\tt\char'173}} -\newcommand{\myrb}{\mbox{\tt\char'175}} - -\ifhevea -\newcommand{\tick}{\mbox{$*$}} -\newcommand{\cross}{\mbox{$-$}} -\else -\newcommand{\tick}{\mbox{$\surd$}} -\newcommand{\cross}{\mbox{$\times$}} -\fi -\newcommand{\fakeindex}{\Box} - - -\newcommand{\TODO}[1]{\textbf{[TODO{ #1}]}} - -%\ifdraftversion -\newcommand{\mlabel}[1]{\label{#1}} -\newcommand{\mref}[1]{\ref{#1}} -\newcommand{\mpageref}[1]{\pageref{#1}} -%\newcommand{\mlabel}[1]{\label{#1}\raisebox{1.85ex}[0pt][0pt]{\makebox[0pt]{}}} -%\newcommand{\mref}[1]{\ref{#1}\raisebox{1.85ex}[0pt][0pt]{\makebox[0pt]{}}} -%\newcommand{\mpageref}[1]{\pageref{#1}\raisebox{1.85ex}[0pt][0pt]{\makebox[0pt]{}}} -%\else -%\newcommand{\mlabel}[1]{\label{#1}\raisebox{1.85ex}[0pt][0pt]{\makebox[0pt]{\scriptsize#1}}} -%\newcommand{\mref}[1]{\ref{#1}\raisebox{1.85ex}[0pt][0pt]{\makebox[0pt]{\fontseries{m}\selectfont\scriptsize#1}}} -%\newcommand{\mpageref}[1]{\pageref{#1}\raisebox{1.85ex}[0pt][0pt]{\makebox[0pt]{\fontseries{m}\selectfont\scriptsize#1}}} -%\fi - -\newcommand{\myparagraph}[1]{\subsection{#1}} -%\newcommand{\myparagraph}[1]{\vspace{0.5\baselineskip}\par\noindent{\textbf{#1}}\ } -\newcommand{\mysubparagraph}[1]{\vspace{0.5\baselineskip}\par\noindent{\emph{#1:}}\ } - -\newcommand{\lparagraph}[1]{\vspace{0.4\baselineskip}\par\noindent{\normalsize\bfseries\itshape{#1}}\quad} -\newcommand{\myaspect}[1]{\lparagraph{\textit{#1} }} - - -\include{test10} -\include{test10.2} -\include{test10.meta} -\include{test8} -\include{test7} -\include{test13d} -%\include{test13} -\include{test10st} -\include{test17.10} -\include{binding.1} -\include{binding.2} -\include{binding.3} -\include{binding.4} -\include{binding.5} -\include{binding.6b} - -\input{../src/version} - -\ifhevea -\newcommand{\mydagger}{**} -\newcommand{\myLaTeX}{LaTeX} -\else -\newcommand{\mydagger}{+} -\newcommand{\myLaTeX}{\LaTeX} -\fi - -\begin{document} -\title{Ott: Tool Support for - Semantics \\User Guide\\ -\ \mbox{version \ottver{}} -} -\author{Peter Sewell$^*$ \qquad Francesco Zappa Nardelli$^\mydagger$ \qquad Scott Owens $^*$ \\[5mm] -with Gilles Peskine$^*$, Tom - Ridge$^*$,\\ Susmit Sarkar$^*$, and Rok Strni\v sa$^*$\\[5mm] - ${}^*$University of Cambridge \qquad - ${}^\mydagger$INRIA} -\date{\today{}} -\maketitle - -{\small -\tableofcontents -\listoffigures -} -\newpage -\section{Introduction}\mlabel{a1}% -Ott is a tool for writing definitions of programming languages and -calculi. -% -It takes as input a definition of a language syntax and semantics, in -a concise and readable ASCII notation that is close to what one would -write in informal mathematics. It generates output: -\begin{enumerate} -\item a \myLaTeX{} source file that defines commands to build a typeset version of - the definition; -\item a Coq version of the definition; -\item a HOL version of the definition; -\item an Isabelle/HOL version of the definition; -\item a Lem version of the definition; -\item an OCaml version of the syntax of the definition. -\end{enumerate} -Additionally, it can be run as a filter, taking a -\myLaTeX{}/Coq/Isabelle/HOL/Lem/OCaml source file -with embedded (symbolic) terms of the defined language, parsing them and replacing -them by typeset terms. - - -This document is a user guide for the tool. The papers -\begin{itemize} -\item -\ahref{http://www.cl.cam.ac.uk/users/pes20/ott/ott-jfp.pdf}{Ott: Effective Tool Support for the Working Semanticist}. Peter Sewell, Francesco Zappa Nardelli, Scott Owens, Gilles -Peskine, Thomas Ridge, Susmit Sarkar, Rok Strni\v sa. -Journal of Functional Programming 20(1):71-122, 2010 \cite{ott-jfp}. - -\item -\ahref{http://www.cl.cam.ac.uk/users/pes20/ott/paper.pdf}{Ott: Effective Tool Support for the Working Semanticist}. Peter Sewell, Francesco Zappa Nardelli, Scott Owens, Gilles -Peskine, Thomas Ridge, Susmit Sarkar, Rok Strni\v sa. -ICFP'07 \cite{ott-sub}. - -\end{itemize} -give an overview of the project, including discussion of motivation, -design decisions, and related work, and one should look at that together -with this manual. The project web page -\begin{quotation} -\ahrefurl{http://www.cl.cam.ac.uk/users/pes20/ott/} -\end{quotation} -links to the github source repository, with a -BSD-style licence. It also has a range of examples, including -untyped and simply typed CBV lambda calculus, ML polymorphism, various -first-order systems from Pierce's TAPL~\cite{Pierce:TypeSystems}, the -POPLmark F$_{<:}$ language~\cite{poplmark}, a module system by -Leroy~\cite[\S4]{Leroy-generativity} (extended with a term language and an -operational semantics), the LJ Java fragment and LJAM Java module -system~\cite{ljam-sub}, and a substantial fragment of OCaml. - - - -Our main goal is to support work on large programming language -definitions, where the scale makes it hard to keep a definition -internally consistent, and hard to keep a tight correspondence between a -definition and implementations. -% -We also wish to ease rapid prototyping work with smaller calculi, -and to make it easier to exchange definitions and definition fragments -between groups. -% -% -Most simply, the tool can be used to aid completely informal \myLaTeX{} mathematics. -Here it permits the definition, and terms within proofs and -exposition, to be written in a clear, editable, ASCII notation, without \myLaTeX{} -noise. It generates good-quality typeset output. -By parsing (and so sort-checking) this input, it quickly catches a -range of simple errors, e.g.~inconsistent use of judgement forms or -metavariable naming conventions. -% -That same input, extended with some additional data, can be used to generate formal definitions for -Coq, HOL, Isabelle, and Lem. It should thereby enable a smooth transition -between use of informal and formal mathematics. Further, the -tool can automatically generate definitions of functions for free -variables, single and multiple substitutions, subgrammar checks -(e.g.~for value subgrammars), and binding auxiliary functions. -Ott supports a `fully concrete' representation, sufficient -for many examples but not dealing with general alpha equivalence. -An experimental Coq backend generates definitions in locally-nameless style for a subset of the Ott metalanguage. - The OCaml backend -generates type definitions that may be useful for developing a complete -implementation of the language, together with the functions listed -above. It does not generate anything for inductively defined relations -(the various proof-assistant code extraction facilities can -sometimes be used for that). -% -Our focus here is on the problem of writing and editing language -definitions, not (directly) on aiding mechanized proof of metatheory. If one -is involved in hard proofs about a relatively stable small calculus -then it will aid only a small part of the work (and one might choose -instead to work just within a single proof assistant), but for larger -languages the definition is a more substantial problem --- so much so -that only a handful of full-scale languages have been given complete definitions. We -aim to make this more commonplace, less of a heroic task. - -% getting started with Ott -\input{README} - - -\section{A minimal Ott source file: the untyped CBV lambda calculus}\mlabel{a51}% -Fig.~\ref{a45} shows an Ott source file for an untyped call-by-value -(CBV) lambda calculus. This section explains the basic features that -appear there, while in the following sections we show what must be -added to generate typeset output, proof assistant definitions, and -other things. -\begin{figure} -\fbox{\small\begin{minipage}{\textwidth} -\input{test10.0.alltt} -\end{minipage}} -\caption{Source: \texttt{test10.0.ott}\protect\label{a45}} -\end{figure} -The figure is colourised, with Ott keywords like \mykw{this} and Ott -symbols such as \mysym{|} and \mysym{::}. Other user-specific input -appears like \texttt{this}. - -At the top of the figure, the \mykw{metavar} declaration introduces -a sort of \emph{metavariables} \texttt{termvar} (with synonym \texttt{x}), for term -variables. -% -The following \mykw{grammar} introduces two grammar rules, one for terms, with - \emph{nonterminal root} - \texttt{t}, and one for values \texttt{v}. -This specifies the concrete syntax of object-language terms, -the abstract syntax representations for proof-assistant mathematics, -and the syntax of symbolic terms to be used in semantic rules. - -Each rule has a rule name prefix (e.g.~\texttt{'t\_'}) and then a list -of productions. Each production, e.g. -\begin{alltt} - \mysym{|} \mybackslash{} x . t \mysym{::} \mysym{::} Lam -\end{alltt} -specifies a syntactic form as a list of elements, here `\verb+\+', -`\verb+x+', `\verb+.+', and `\verb+t+', each of which is either a -metavariable (the `\verb+x+'), a nonterminal (the `\verb+t+'), or a -terminal -(\texttt{\mybackslash} \texttt{.} \texttt{(} \texttt{)} \texttt{\mylb} \texttt{\myrb} \texttt{/} \texttt{-->}). -% -Within productions all elements must be whitespace-separated, so that -the tool can deduce which are terminals. In the symbolic terms in -the semantic rules below, however, whitespace is required only where necessary. -%Terminals are not required to be declared in the \texttt{terminals} -%grammar (all strings that are not metavariables or nonterminals are -%regarded as terminals) but, if they are, then \myLaTeX{} pretty printing -%information for them can be specified there. In this example the -%`\verb+\+' is included in the \texttt{terminals} grammar and will be -%\myLaTeX pretty printed as a $\lambda$, whereas the `\verb+.+' is not -%included and will be pretty printed in a default form. -A few terminals have to be quoted (with \verb+''+) if they appear in a grammar, e.g. to -use \texttt{|} as an object-language token, as they are part of the Ott syntax, but they -do not have to be quoted at usage points. -% -(If one accidentally omits inter-token whitespace in the grammar, the -output of Ott can be surprising. This is best diagnosed by looking at -the colourised ASCII or \myLaTeX{} output from Ott.) - -Metavariables and nonterminals can be formed from the specified -metavariable and nonterminal roots by appending a suffix, e.g.~the -nonterminal \verb+t'+ in the \verb+App+ and \verb+Tsub+ productions. - - - - -Between the \mysym{::}'s is an optional meta flag \mykw{M} or \mykw{S}. Non-meta -productions give rise to clauses of datatype definitions in the -Isabelle/Coq/HOL output, whereas meta productions do not. Later, we -will see how the user can specify how meta syntax should be translated -away when generating proof assistant output. The two flags \mykw{M} -and \mykw{S} are identical except that productions with the latter are -admitted when parsing example concrete terms; the \mykw{S} tag is thus -appropriate for lightweight syntactic sugar, such as productions for -parentheses. One can also use an \mykw{X} flag here to suppress a -production in the generated LaTeX. - -Each production has a production name (e.g.~\verb+t_Lam+), composed of -the rule name prefix (here~\verb+t_+) and the production name kernel -that follows the \mysym{::}'s (here~\verb+Lam+). The production name is -used as a constructor name in the generated Isabelle/Coq/HOL. - -The tool supports arbitrary context-free grammars, extended with -special constructs for list forms (c.f.~\S\mref{a61}). - - -Following the \mykw{grammar} in this example is a \mykw{subrule} -declaration -\begin{alltt} - \mykw{subrules} - v \mysym{<::} t -\end{alltt} -declaring that the \verb+v+ grammar rule (of values) is a -subgrammar of the \verb+t+ rule (of terms). The tool checks that -there is in fact a subgrammar relationship, i.e.~that for each -production of the lower rule there exists a production of the higher -rule with corresponding elements (up to the subrule relation). -The subrule declaration means that, in the semantic rules below, we -will be able to use \verb+v+'s in places where the grammar specifies \verb+t+'s. -In the generated Isabelle/Coq/HOL for this example only one free -datatype will be generated, for the \verb+t+ rule, while for the \verb+v+ -rule we generate an \verb+is_v+ predicate over the \verb+t+ type. Usages of -\verb+v+ nonterminals in the semantic rules will have instances of this -predicate automatically inserted. - -Finally, we give a collection of definitions of inductive relations. -In this example there is just one family of definitions (of -operational judgements), introduced by the \mykw{defns} \verb+Jop+; it contains just one -definition of a relation, called \verb+reduce+. -In general there may be many \mykw{defns} blocks, each of which introduces a -mutually recursive collection of \mykw{defn}s. -The relation definition -\mykw{defn}\verb+ ...+ -also includes a grammar production specifying how elements of the -relation can be written and typeset, here -\begin{verbatim} - t1 --> t2 -\end{verbatim} -As in the main grammar, the tokens of this syntax definition in the -header must be space-separated, but usages of the syntax generally -need not be. -Syntax rules for each family of -judgements, and for their union, are implicitly generated. -The relation definition is given by a sequence of inference rules, -each with a horizontal line separating a number of premises from a -conclusion, for example as below. -\begin{alltt} - t1 --> t1' -\mysym{ -------------- ::} ctx_app_arg - v t1 --> v t1' -\end{alltt} -The conclusion must be a symbolic term of the form of the judgement being -defined. -In simple cases (as here) the premises can be symbolic terms of the -form of any of the defined judgements. More generally (see -\S\ref{a53}) they can be symbolic terms of a user-defined -\mykw{formula} grammar, or in-line embedded prover code. -Each rule - has a name, composed of a definition family prefix -(here empty), a definition prefix (here also empty) and a kernel -(the~\verb+ctx_app_arg+). -% - - - - -The symbolic terms in semantic rules are parsed with a scannerless parser, built -using parser combinators over character-list inputs. The parser -searches for all parses of the input. If none are found, the ASCII -and TeX output are annotated \texttt{no parses}, with a copy of the -input with \texttt{***} inserted at the point where the last token was -read. This is often at the point of the error (though if, for -example, a putative dot form is read but the two element lists cannot -be anti-unified, it will be after the point of the error). -If multiple parses are found, the TeX output is annotated -\texttt{multiple parses} and the different parses are output to the -console in detail during the Ott run. -% -If the option \texttt{picky\_multiple\_parses} is set to -\texttt{true}, multiple parses are always reported. If it set to -\texttt{false}, a symbolic term is considered ambiguous only if two -different parses compile to different strings (for a target). -% -The parser combinators use memoization and continuation-passing to -achieve reasonable performance on the small symbolic terms that are -typical in semantic rules. Their performance on large (whole-program -size) examples is untested. -% -To resolve ambiguity one can add metaproductions for parentheses (as -in Fig.~\mref{a45}), or -production-name annotations in particular symbolic terms, -e.g.~the \verb+:t_tsub:+ in the \verb+AppAbs+ rule of the POPLmark -example, -\texttt{test7.ott}. %\S\mref{a27}. - There is currently no support for precedence -or associativity. - - -This file is included in the distribution as -\texttt{tests/test10.0.ott}. It can be processed by executing -\begin{alltt} - bin/ott -i tests/test10.0.ott -\end{alltt} -from the main directory. This simply reads in the file, checking that -it is well-formed. Adding options: -\begin{alltt} - bin/ott -show\_sort true -show\_defns true -i tests/test10.0.ott -\end{alltt} -it echos a colourised version to the screen, -with metavariables in red, nonterminals - in yellow, terminals in green, and object variables in white. -The colourisation uses vt220 control codes; if they do not work on -your screen add \texttt{-colour false} to the middle of the command -line. To suppress the echo of the definition, add -\texttt{-show\_post\_sort false} and \texttt{-show\_defns false}. - - -\subsection{Index variables} -In addition to the \mykw{metavar} declarations above, the user can declare any number of distinguished \emph{index} -metavariables, e.g. by: -\begin{alltt} - \mykw{indexvar} index\mysym{,} i\mysym{,} j\mysym{,} n\mysym{,} m \mysym{::=} \mysym{\mylb\mylb{}} \mykw{isa} num \mysym{\myrb\myrb{}} \mysym{\mylb\mylb{}} \mykw{coq} nat \mysym{\myrb\myrb{}} \mysym{\mylb\mylb{}} \mykw{hol} num \mysym{\myrb\myrb{}} -\end{alltt} -Given such a declaration, \verb+index+, \verb+i+, \verb+j+, \verb+n+ -and \verb+m+ can be used in suffixes, e.g.~in the production -\begin{alltt} - \mysym{|} ( t1 , \mysym{....} , tn ) \mysym{::} \mysym{::} Tuple -\end{alltt} -There is a fixed ad-hoc language of suffixes, including numbers, primes, and index variables (see \S\mref{a17}). -Index metavariables cannot themselves be suffixed. - - - - -\section{Generating \myLaTeX}\mlabel{a58}% -The example from the previous section can already be used to generate -\myLaTeX, for example by executing -\begin{alltt} - bin/ott -i tests/test10.0.ott -o out.tex -\end{alltt} -to produce a \myLaTeX{} file \texttt{out.tex}. One often needs to -fine-tune the default typesetting, as illustrated in -Figure~\mref{a46} (the Ott source) and Figure~\ref{a49} -(the resulting \myLaTeX{}). -(The latter was built using the additional option \verb+-tex_show_meta false+, to -suppress display of the metaproductions.) -\begin{figure} -\fbox{\small\begin{minipage}{\textwidth} -\input{test10.2.alltt} -\end{minipage}} -\caption{Source: \texttt{test10.2.ott}\protect\label{a46}} -\end{figure} -% -\newcommand{\testTenTwoallImage}{ -\begin{toimage} -\begin{minipage}{\textwidth} -\testTenTwoall -\end{minipage} -\end{toimage}% -\imageflush} -% -\begin{figure} -\testTenTwoallImage -\ifhevea\else - -\hrule\fi -\caption{Generated \myLaTeX: \texttt{test10.2.tex}\protect\label{a49}} -\end{figure} -% -% -The source file has three additions to the previous file. -Firstly, the \mykw{metavar} declaration is annotated with a -specification of how metavariables should be translated to \myLaTeX: -\begin{alltt} - \mykw{metavar} termvar\mysym{,} x \mysym{::=} - \mysym{\mylb\mylb{}} \mykw{tex} \mybackslash{}mathit\mylb{}\mysym{[[}termvar\mysym{]]}\myrb{} \mysym{\myrb\myrb{}} -\end{alltt} -Inside the \texttt{\mysym{\mylb\mylb{}} \mykw{tex} }$\ldots$\texttt{ \mysym{\myrb\myrb{}}} -is some \myLaTeX{} code -\texttt{\mybackslash{}mathit\mylb{}\mysym{\$[[}termvar\mysym{]]\$}\myrb{}} -giving the translation of a \texttt{termvar} or \texttt{x}. Here they -are typeset in math italic (which in fact is also the default). -Within the translation, the metavariable itself can be mentioned -inside double square brackets \texttt{\mysym{[[} }$\ldots$\texttt{ \mysym{]]}}. - -Secondly, there is a grammar for a distinguished nonterminal root -\mykw{terminals}, with a -\texttt{\mysym{\mylb\mylb{}} \mykw{tex} }$\ldots$\texttt{ \mysym{\myrb\myrb{}}} -translation for each, overriding the default typesetting of some -terminals. Note that the other terminals -(\texttt{.} \texttt{(} \texttt{)} \texttt{\mylb} \texttt{\myrb} \texttt{/}) -are still given their default typesetting. -\begin{alltt} - \mykw{terminals} \mysym{::} 'terminals_' \mysym{::=} - \mysym{|} \mybackslash{} \mysym{::} \mysym{::} lambda \mysym{\mylb\mylb{}} \mykw{tex} \mybackslash{}lambda \mysym{\myrb\myrb{}} - \mysym{|} --> \mysym{::} \mysym{::} red \mysym{\mylb\mylb{}} \mykw{tex} \mybackslash{}longrightarrow \mysym{\myrb\myrb{}} -\end{alltt} -Thirdly, the file has \mykw{com} comments, including -the -\texttt{\mysym{\mylb\mylb{}} \mykw{com} term \mysym{\myrb\myrb{}}} -attached to a grammar rule, -the -\texttt{\mysym{\mylb\mylb{}} \mykw{com} variable\mysym{\myrb\myrb{}}} -attached to a production, and the -\texttt{\mysym{\mylb\mylb{}} \mykw{com} \mysym{[[}t1\mysym{]]} reduces to \mysym{[[}t2\mysym{]]}\mysym{\myrb\myrb{}}} -attached to a semantic relation. These appear in the \myLaTeX{} output -as shown in Figure~\ref{a49}. - - - -\subsection{Specifying \myLaTeX{} for productions} -One can also specify \mykw{tex} translations for productions, overriding the default -\myLaTeX{} typesetting, e.g.~as in this example of -a type abstraction production. -\begin{alltt} - \mysym{|} \ X <: T . t \mysym{::} \mysym{::} TLam \mysym{\mylb\mylb} \mykw{tex} \mybackslash{}Lambda \mysym{[[}X\mysym{]]} \mysym{[[}<:\mysym{]]} \mysym{[[}T\mysym{]]}. \mybackslash{}, \mysym{[[}t\mysym{]]} \mysym{\myrb\myrb} -\end{alltt} -These \emph{homomorphisms}, or \emph{homs}\footnote{Strictly, clauses - of primitive recursive function definitions from symbolic terms to strings, here of \myLaTeX{} code.}, can refer to the metavariables and -nonterminals that occur in the production, e.g.~the \texttt{\mysym{[[}X\mysym{]]}}, -\texttt{\mysym{[[}T\mysym{]]}}, and \texttt{\mysym{[[}t\mysym{]]}} in the \mykw{tex} hom above, -interleaved with arbitrary strings and with typeset elements of the -\mykw{terminals} grammar, e.g.~the \texttt{\mysym{[[}<:\mysym{]]}}. - -Homomorphisms are applied recursively down the structure of symbolic -terms. For example, an F$_{<:}$ term -\begin{verbatim} - (\X<:T11.t12) [T2] -\end{verbatim} -would be \myLaTeX-pretty-printed, using the \mykw{tex} clause above, as -\begin{verbatim} -( \, \Lambda \mathit{X} <: \mathit{T_{\mathrm{11}}} . \, \mathit{t_{\mathrm{12}}} \, ) - \, \, [ \, \mathit{T_{\mathrm{2}}} \, ] -\end{verbatim} -which is typeset as below. -\newcommand{\lamA}{ -\begin{toimage} -$ -( \, \Lambda \mathit{X} <: \mathit{T_{\mathrm{11}}} . \, \mathit{t_{\mathrm{12}}} \, ) \, \, [ \, \mathit{T_{\mathrm{2}}} \, ] -$ -\end{toimage}\imageflush -}\[\mbox{\lamA}\] -Note the \verb+X+, \verb+T11+ and \verb+t12+ of the symbolic term are -used to instantiate the formal parameters \verb+X+, \verb+T+ and -\verb+t+ of the homomorphism definition clause. -% -If the \verb+t+ itself had compound term structure, e.g. as below -\begin{verbatim} - (\X<:T. \X'<:T'.x) -\end{verbatim} -the homomorphism would be applied recursively, producing -\begin{verbatim} -( \, \Lambda \mathit{X} <: \mathit{T} . \, \Lambda \mathit{X'} <: \mathit{T'} -. \, \mathit{x} \, \, ) -\end{verbatim} -typeset as follows. -\newcommand{\lamB}{ -\begin{toimage} -$( \, \Lambda \mathit{X} <: \mathit{T} . \, \Lambda \mathit{X'} <: \mathit{T'} . \, \mathit{x} \, \, )$ -\end{toimage}\imageflush -}\[\mbox{\lamB}\] -Where there is no user-supplied homomorphism clause the \myLaTeX{} -pretty-printing defaults to a sequence of the individual items -separated by thin spaces (\verb+\,+), -with reasonable default fonts and making use of the \verb+terminals+ grammar where appropriate. - -\subsection{Specifying \myLaTeX{} for grammar rules} -Grammar rules can include a \mykw{tex} hom specifying how all the - nonterminal roots should be typeset, e.g. -\begin{alltt} - type\mysym{,} t\mysym{,} s \mysym{::} Typ_ \mysym{::=} \mysym{\mylb\mylb{}} \mykw{tex} \mybackslash{}mathsf\mylb{}\mysym{[[}type\mysym{]]}\myrb{} \mysym{\myrb\myrb{}} - \mysym{|} unit \mysym{::} \mysym{::} unit - \mysym{|} type * type' \mysym{::} \mysym{::} pair - \mysym{|} type -> type' \mysym{::} \mysym{::} fun -\end{alltt} -%Here that \verb+tex+ hom overrides the default typesetting with -%\verb+\mathsf+. - -Alternatively, the individual nonterminal roots can have \mykw{tex} -homs specifying how they should be typeset: -\begin{alltt} - G \mysym{\mylb\mylb{}} \mykw{tex} \mybackslash{}Gamma \mysym{\myrb\myrb{}} \mysym{,} D \mysym{\mylb\mylb{}} \mykw{tex} \mybackslash{}Delta \mysym{\myrb\myrb{}} \mysym{::} 'G_' \mysym{::=} - \mysym{|} empty \mysym{::} \mysym{::} empty - \mysym{|} G , x : T \mysym{::} \mysym{::} term -\end{alltt} -permitting the user to write \verb+G'+, \verb+D12+ etc.~in symbolic -terms, to be typeset as -\begin{toimage} -$\Gamma'$, -$\Delta_{12}$, -\end{toimage} -\imageflush -etc. - - - - -\subsection{Using the \myLaTeX{} code}\mlabel{a64}% -The generated \myLaTeX{} code can be used in two main ways. -By default, Ott generates a stand-alone \myLaTeX{} file, -with a standard wrapper (including a \verb+\documentclass+, various -macro definitions, and a main body), -that gives the complete system definition. - -The default header can be overridden by writing -\verb+ embed {{ tex-wrap-pre ... }} + and the default footer by -writing \verb+embed {{ tex-wrap-post ... }} +. Alternatively, the -program option \verb+-tex_wrap false+ with the \verb+-tex_wrap false+ -command-line argument, one can generate a file that can be included in -other \myLaTeX{} files, that just defines macros to typeset various -parts of the system (\verb+-tex_wrap false+ overrides any -\verb+tex-wrap-pre/tex-wrap-post+ embeds). - - -The generated \myLaTeX{} output is factored into individual \myLaTeX{} -commands: for the metavariable declarations, each rule of the syntax -definition, the collected syntax (\verb+\ottgrammar+), each rule of the inductive relation -definitions, the collected rules for each relation, the collected -rules for each \verb+defns+ block, the union of those -(\verb+\ottdefns+) and the whole (\verb+\ottall+). -% -This makes it possible to quote individual parts of the definition, -possibly out-of-order, in a paper or technical report. - - -If one needs to include more than one system in a single \myLaTeX{} -document, the \verb+ott+ prefix can be replaced using the -\verb+-tex_name_prefix+ command-line argument. - -The generated \myLaTeX{} is factored through some common style macros, -e.g.~to typeset a comment, a production, and a grammar. If necessary -these can be redefined in an \mykw{embed} block (see Section~\ref{a60}). -For example, the file \verb+tests/squishtex.ott+ -\input{squishtex.hand.alltt} -defines a more compact style for grammars. Note that the -\texttt{\mysym{[[}\mykw{TEX\_NAME\_PREFIX}\mysym{]]}} is replaced by whatever prefix is in force, -so such style files can be reused in different contexts. - -A more sophisticated \myLaTeX{} package \verb+ottlayout.sty+, providing fine control of how -inference rules and grammars should be typeset, is contained in the -\verb+tex+ directory of the distribution. It is described in the -manual therein. - - -\section{Generating proof assistant definitions}\mlabel{a52}% -To generate proof assistant definitions, for Coq, Isabelle, and HOL, -the minimal Ott source file of Section~\ref{a51}/Figure~\ref{a45} must -be extended with a modest amount of additional data, as shown in Figure~\ref{a47}. -Executing -\begin{alltt} - bin/ott -i tests/test10.4.ott -o out.v -o out.thy -o outScript.sml -\end{alltt} -generates Coq \texttt{out.v}, Isabelle \texttt{out.thy}, and HOL -\texttt{outScript.sml}, shown in Figures~\ref{a6}, \ref{a5}, and \ref{a40}. -The additional data can be combined with the annotations for -\myLaTeX{} of the previous section, but those are omitted here. -\begin{figure} -\fbox{\small\begin{minipage}{\textwidth} -\input{test10.4.alltt} -\end{minipage}} -\caption{Source: \texttt{test10.4.ott}\protect\label{a47}} -\end{figure} -We add four things. -First, we specify proof assistant types to represent object-language -variables --- in this example, choosing the \texttt{string} type of -Isabelle and HOL, and the \texttt{nat} type for Coq: -\begin{alltt} - \mykw{metavar} termvar\mysym{,} x \mysym{::=} - \mysym{\mylb\mylb{}} \mykw{isa} string\mysym{\myrb\myrb{}} \mysym{\mylb\mylb{}} \mykw{coq} nat\mysym{\myrb\myrb{}} \mysym{\mylb\mylb{}} \mykw{hol} string\mysym{\myrb\myrb{}} \mysym{\mylb\mylb{}} \mykw{coq-equality} \mysym{\myrb\myrb{}} -\end{alltt} -For Coq output, one can specify \verb+{{ coq-equality+ \textit{proof-script} \verb+}}+ -to build a decidable equality over the Coq representation type using -the proof \textit{proof-script}. If the script is omitted, as in this -example, it defaults -to -\begin{verbatim} -Proof. - decide equality; auto with ott_coq_equality arith. -Defined. -\end{verbatim} -where the \verb+ott_coq_equality+ database contains the decidable -equalities of the representation types defined in the source. It is -possible to suppress type generation for specific metavariables or nonterminals, by adding the -declaration \verb+{{ phantom }}+. This is useful in some cases, for -instance to avoid duplicate definitions of types already defined in an -imported library. Any type homs are taken into account when -the metavariable or nonterminal root is output as a type. - - -Second, we specify what the binding is in the object language, with -the \texttt{\mysym{(+} \mykw{bind} x \mykw{in} t \mysym{+)}} -annotation on the \texttt{Lam} production: -\begin{alltt} - \mysym{|} \mybackslash{} x . t \mysym{::} \mysym{::} Lam \mysym{(+} \mykw{bind} x \mykw{in} t \mysym{+)} -\end{alltt} -Section~\ref{a62} describes the full language of binding specifications. - -Third, we add a block -\begin{alltt} - \mykw{substitutions} - \mykw{single} t x \mysym{::} tsubst -\end{alltt} -to cause Ott to generate Coq/Isabelle/HOL definitions of a substitution -function, with name root \texttt{tsubst}, replacing metavariables \texttt{x} by terms \texttt{t}. This is for single -substitutions; multiple substitution functions (taking lists of -substitutand/substitutee pairs) can also be generated with the keyword -\mykw{multiple}. -Substitution functions are generated for all rules of the grammar for -which they might be required --- here, just over \verb+t+, with a -function named \verb+tsubst_t+. - -Finally, we specify translations for the metaproductions: -\begin{alltt} - \mysym{|} ( t ) \mysym{::} \mykw{S}\mysym{::} Paren \mysym{\mylb\mylb{}} \mykw{icho} \mysym{[[}t\mysym{]]} \mysym{\myrb\myrb{}} - \mysym{|} \mylb{} t / x \myrb{} t' \mysym{::} \mykw{M}\mysym{::} Tsub \mysym{\mylb\mylb{}} \mykw{icho} (tsubst_t \mysym{[[}t\mysym{]]} \mysym{[[}x\mysym{]]} \mysym{[[}t'\mysym{]]})\mysym{\myrb\myrb{}} -\end{alltt} -These specify that \texttt{(t)} should be translated into just the -translation of \texttt{t}, whereas - \texttt{\mylb{}t/x\myrb{}t'} should be translated into the -proof-assistant application of \texttt{tsubst\_t} to the translations -of \texttt{t}, \texttt{x}, and \texttt{t'}. -The (admittedly terse) \mykw{icho} specifies that these translations should be -done uniformly for Isabelle, Coq, HOL, and OCaml output. One can also -specify just one of these, writing -\texttt{\mysym{\mylb\mylb{}} \mykw{coq} }$\ldots$\texttt{\mysym{\myrb\myrb{}}}, -\texttt{\mysym{\mylb\mylb{}} \mykw{hol} }$\ldots$\texttt{\mysym{\myrb\myrb{}}}, -\texttt{\mysym{\mylb\mylb{}} \mykw{isa} }$\ldots$\texttt{\mysym{\myrb\myrb{}}}, or -\texttt{\mysym{\mylb\mylb{}} \mykw{ocaml} }$\ldots$\texttt{\mysym{\myrb\myrb{}}}, -or include several, with different translations for each. -There are also abbreviated forms \mykw{ich}, \mykw{ic}, \mykw{ch}, and \mykw{ih}. -The body of a proof assistant hom should normally include outer -parentheses, as in the \texttt{Tsub} hom above, so that it is -parsed correctly by the proof assistant in all contexts. - -\begin{figure} -\fbox{\small\begin{minipage}{\textwidth} -\verbatiminput{test10.despaced.v} -%\verbatiminput{test10.hand.edited.v} -\end{minipage}} -\caption{Generated Coq:\texttt{test10.v}\protect\label{a6}} -\end{figure} - -\begin{figure} -\fbox{\small\begin{minipage}{\textwidth} -\verbatiminput{test10.thy} -%\verbatiminput{test10.hand.edited.thy} -\end{minipage}} -\caption{Generated Isabelle:\texttt{test10.thy}\protect\label{a5}} -\end{figure} - -\begin{figure} -\fbox{\small\begin{minipage}{\textwidth} -\verbatiminput{test10Script.sml} -\end{minipage}} -\caption{Generated HOL:\texttt{test10Script.sml}\protect\label{a40}} -\end{figure} - - -\subsection{Proof assistant code for grammar rules} -The normal behaviour is to generate a free proof assistant type for -each (non-subrule, non-phantom) grammar rule. -For example, the Coq compilation for \texttt{t} here generates a free type with three -constructors: -\begin{verbatim} - Inductive term : Set := - | t_var (x:var) - | t_lam (x:var) (t:term) - | t_app (t:term) (t':term). -\end{verbatim} -(note that the metaproductions do not give rise to constructors). - -Remark: prior to version 0.20.2, the free type generated for Coq was -\begin{verbatim} - Inductive term : Set := - | t_var : var -> term - | t_lam : var -> term -> term - | t_app : term -> term -> term. -\end{verbatim} -but we found that trying to preserve the names specified by the user -is helpful later, when doing proofs. Whenever a clash is detected, or -for list forms, the wildcard \texttt{\_} is used. The old behaviour -can be obtained via the top-level option -\texttt{-coq\_names\_in\_rules false}. - -By default the order of the arguments to those constructors follows -the order in which they appear in the production. That can be -overridden with an \texttt{order} hom. For example, if for some -reason (perhaps compatibility with other Coq code) one wished the -arguments to \verb+t_Lam+ to be reversed: -\begin{verbatim} - | t_Lam : t -> termvar -> t -\end{verbatim} -one could add an \mykw{order} hom as below. -\begin{alltt} - \mysym{|} \mybackslash{} x . t \mysym{::} \mysym{::} Lam \mysym{\mylb\mylb{}} \mykw{order} \mysym{[[}t\mysym{]]} \mysym{[[}x\mysym{]]} \mysym{\myrb\myrb{}} -\end{alltt} - - -Instead of using the generated free type, one can specify an arbitrary proof assistant representation type, -annotating the grammar rule with a \mykw{coq}, \mykw{isa}, \mykw{hol}, or \mykw{ocaml} hom --- -for example, in the following grammar for substitutions. -\begin{alltt} - s \mysym{\mylb\mylb{}} \mykw{tex} \mybackslash{}sigma \mysym{\myrb\myrb{}} \mysym{::} 'S_' \mysym{::=} \mysym{\mylb\mylb{}} \mykw{com} multiple subst \mysym{\myrb\myrb{}} \mysym{\mylb\mylb{}} \mykw{isa} (termvar*t) list \mysym{\myrb\myrb{}} - \mysym{|} [ x |-> t ] \mysym{::} \mysym{::} singleton \mysym{\mylb\mylb{}} \mykw{isa} [ (\mysym{[[}x\mysym{]]},\mysym{[[}t\mysym{]]}) ] \mysym{\myrb\myrb{}} - \mysym{|} s1 , \mysym{..} , sn \mysym{::} \mysym{::} list \mysym{\mylb\mylb{}} \mykw{isa} List.concat \mysym{[[}s1 \mysym{..} sn\mysym{]]} \mysym{\myrb\myrb{}} -\end{alltt} -Here the \texttt{\mysym{\mylb\mylb{}} \mykw{isa} (termvar*t) list \mysym{\myrb\myrb{}}} hom specifies that in -Isabelle output this type be represented as an Isabelle -\verb+(termvar*t) list+ instead of the default free inductive type; -all the productions are metaproductions (tagged \mykw{M}); and \mykw{isa} homs for each production specify how they should be translated into that Isabelle type. -% -This feature must be used with care, as any Ott-generated functions, e.g.~substitution functions, cannot recurse through such user-defined types. - - - -Grammar rules (whether free or non-free) can also include a \mykw{coq equality} hom, instructing -the Coq code generator to derive a decidable equality for the Coq -representation type. For example, the ML polymorphism Ott source of -\texttt{test8.ott} %\S\mref{a24} -includes the following. -\begin{alltt} - typvar \mysym{::} TV_ \mysym{::=} \mysym{\mylb\mylb{}} \mykw{coq-equality} decide equality. apply eq_value_name_t. \mysym{\myrb\myrb{}} - \mysym{|} ' ident \mysym{::} \mysym{::} ident -\end{alltt} - - - -The Coq/HOL/Isabelle/OCaml type name for a grammar rule, or for a -metavariable declaration, is normally -taken to be just its primary nonterminal root. -Occasionally it is useful to work around a clash between a - metavar or nonterminal primary root and a proof assistant symbol, -e.g.~\texttt{T} in HOL or \texttt{value} in Isabelle. -For this, one can add a \mykw{coq}, \mykw{hol}, \mykw{isa}, or -\mykw{ocaml} hom to the primary nonterminal root. In the example -below, the user can write \texttt{T}, \texttt{T'} etc. in their Ott -source, but the generated HOL type is \texttt{Typ}. -\begin{alltt} -T \mysym{\mylb\mylb{}} \mykw{hol} Typ \mysym{\myrb\myrb{}}\mysym{,} S\mysym{,} U \mysym{::} 'T_' \mysym{::=} \mysym{\mylb\mylb{}} \mykw{com} type \mysym{\myrb\myrb{}} - \mysym{|} T -> T' \mysym{::} \mysym{::} Fun \mysym{\mylb\mylb{}} \mykw{com} type of functions \mysym{\myrb\myrb{}} -\end{alltt} - -The grammar rules within each \mykw{grammar} block of a syntax definition may depend on each other arbitrarily. -When generating Isabelle/Coq/HOL/OCaml representation types, however, they are -topologically sorted, to simplify the resulting induction -principles. - -\subsection{Proof assistant code for inductive definitions} -The semantic relations are defined -with the proof-assistant inductive relations packages, -\verb+Inductive+, \verb+Hol_reln+, and \verb+inductive_set+ or \verb+inductive+, respectively. -Each \mykw{defns} block gives rise to a potentially mutually -recursive definition of each \mykw{defn} inside it -(it seems clearer not to do a topological sort here). -% -Definition rules are expressed internally with symbolic terms. -We give a simplified grammar thereof in Fig.~\mref{a19}, omitting the -symbolic terms for list forms. -A symbolic term $\mathit{st}$ for a nonterminal root is either an explicit nonterminal or a -node, the latter labelled with a production name and containing a list of -$\mathit{symterm\_element}$s, which in turn are either symbolic terms, -metavariables, or variables. -% -Each definition rule -gives rise to an implicational clause, essentially -that the premises (Ott symbolic terms of the \mykw{formula} grammar) -imply the conclusion (an Ott symbolic term of whichever judgement is -being defined). -% -Symbolic terms are compiled in several different ways: -\begin{itemize} -\item Nodes of non-meta productions are output as applications of the appropriate proof-assistant constructor (and, for a subrule, promoted to the corresponding constructor of a maximal rule). -\item Nodes of meta productions are transformed with the user-specified homomorphism. -\item Nodes of judgement forms are represented as applications of the defined relation in Coq and HOL, and as set-membership assertions in Isabelle. -\item Lists of formulae (the \verb+formula_dots+ production, c.f.\S\ref{a61}) are - special-cased to proof-assistant conjunctions. -\end{itemize} -Further, for each nonterminal of a non-free grammar rule, -e.g.~a usage of \verb+v'+ where \verb+v<::t+, an additional premise -invoking the generated subrule predicate for the non-free rule is added, e.g.~\verb+is_v v'+. -For Coq and HOL, explicit quantifiers are introduced for all variables -mentioned in the rule. -For HOL, rules are tagged with their rule name (using \verb+clause_name+). - - -\subsection{Representation of binding} -At present the generated Isabelle/Coq/HOL uses fully concrete -representations of variables in terms, without any notion of alpha -equivalence, as one can see in Fig.~\mref{a5}: -see the \verb+t+ datatype of terms and the \verb+tsubst_t+ -substitution function there. -An experimental Coq backend generates definitions in locally-nameless style for a subset of the Ott metalanguage. This is work-in-progress, and it is extensively documented in \ahrefurl{http://moscova.inria.fr/~zappa/projects/ln\_ott/}. -We intend in future to generate other representations, and in some -circumstances homs can be used to implement other representations directly. -For a reasonably wide variety of -languages, however, one can capture the intended semantics of whole programs in -this idiom, subject only to the condition that standard library -identifiers are not shadowed within the program, as the operational -semantics does not involve reduction under binders --- so any -substitutions are of terms which (except for standard library -identifiers) are closed. This includes the ML polymorphism example of -\texttt{test8.ott}. %\S\mref{a23}. -For languages which require a type -environment with internal dependencies, however, for example F$_{<:}$, this is -no longer the case. The POPLmark F$_{<:}$ example given in \texttt{test7.ott} -has a type system which disallows all shadowing, a property that is -not preserved by reduction. However, a correct translation of F$_{<:}$ is generated by the Coq locally-nameless backend, and can be found in \ahrefurl{http://moscova.inria.fr/~zappa/projects/ln\_ott/}. - -Further discussion of binding representations is in the Ott ICFP 2007 -paper and in a working draft -\begin{quotation}\noindent -Binding and Substitition. Susmit Sarkar, Peter Sewell, and Francesco -Zappa Nardelli. August 2007. -\end{quotation} -available from the Ott web page. - -\subsection{Helper functions for free variable and substitution functions} - -The generated free variable and substitution functions in the Coq output -(e.g., in Figure~\ref{a6}) often rely on a few standard library functions: -\verb+list_mem+, \verb+list_assoc+, \verb+list_minus+, \verb+list_minus2+. -In order to avoid dependencies on external libraries for defining those -functions, by default Ott generates the definitions for any such functions it -uses. It is possible to turn off the generation of definitions for -these such functions by writing the following directive early on in the source file: - -\begin{alltt} -\mykw{embed} \mysym{\mylb\mylb{}} \mykw{coq-lib} list_mem list_minus \mysym{\myrb\myrb{}} -\end{alltt} - -This instructs Ott to avoid generating definition for \verb+list_mem+ and -\verb+list_minus+, but to continue generating definitions for other functions -such as \verb+list_assoc+ and \verb+list_minus2+. - -\textbf{Note about }\verb+list_minus2+\textbf{:} -Instead of using the function \verb+list_minus2+, earlier versions of Ott -generated equivalent code based on \verb+list_filter+, which was more -difficult to reason about. For backwards compatibility, however, we provide the -command-line option \verb+-coq_use_filter_fn+ for generating a definition using -the older code pattern. - -\subsection{Correctness of the generated proof assistant code} -We have attempted to ensure that the proof assistant definitions -generated by Ott are well-formed and what the user would intend. This -is not guaranteed, however, for several reasons: (1) There may be name -clashes between Ott-generated identifiers and proof assistant built-in -identifiers (or, in pathological cases, even among different -Ott-generated identifiers). (2) In some cases we depend on automatic -proof procedures, e.g.~for HOL definitions. These work in our test -cases, but it is hard to ensure that they will in all cases. More -importantly, (3) the generation process is complex, so it is quite -possible that there is either a bug in Ott or a mismatch between the -user expectation and what the tool actually does. Ultimately one has -to read the generated proof assistant definitions to check that they -are as intended --- but typically one would do this in any case, many -times over, in the process of proving metatheoretic results, so we do -not consider it a major issue. - -\subsection{Using the generated proof assistant code} -% -Note added 2017-11-30: the following is out of date. - -Ott builds code for - -\begin{tabular}{ll} -Coq 8.3 & \ahrefurl{http://coq.inria.fr/} \\ -HOL 4 (the current svn version) & \ahrefurl{http://hol.sourceforge.net/}\\ -Isabelle/HOL (Isabelle 2011) & \ahrefurl{http://isabelle.in.tum.de/} -\end{tabular} - -Given proof assistant files in the top-level directory of the -distribution, as produced at the start of this section -(Coq \texttt{out.v}, Isabelle \texttt{out.thy}, and HOL -\texttt{outScript.sml}), the various proof assistants can be invoked as follows. - -\subsubsection{Coq} -First run -\begin{verbatim} - make -\end{verbatim} -in the \texttt{coq} directory of the distribution, to build the auxiliary files. -These include a core file (\verb+ott_list_core+) of definitions that -are used in Ott-generated output. -At present these are only required when Coq native lists are used. -There are also various lemmas (in -\verb+ott_list.v+) which may be useful; they can be made available with -\verb+Require Import ott_list.+ - -For batch mode run -\begin{verbatim} - coqc -I coq out.v -\end{verbatim} -where \verb+coq+ is the path to the \verb+coq+ directory of the distribution. - -The experimental locally-nameless backend requires the \verb+Metatheory+ library by Arthur Chargueraud, available from the project web page. - -\subsubsection{HOL} -First run -\begin{verbatim} - Holmake -\end{verbatim} -in the \texttt{hol} directory of the distribution, to build the auxiliary files. - - For -batch mode run -\begin{verbatim} - Holmake -I hol outTheory.uo -\end{verbatim} -% -where \verb+hol+ is the path to the \verb+hol+ directory of the distribution. -% -For interactive mode, run -\begin{verbatim} - hol -I hol -\end{verbatim} -inside an editor window (where the second \verb+hol+ is again the path -to the \verb+hol+ directory of the distribution), and in -another window view the \verb+outScript.sml+ file. First -paste in the \verb+app load+ command from a comment at the top of the -file, then paste in the remainder. - - -\subsubsection{Isabelle} -For batch mode: -\begin{verbatim} - echo 'ML_command {* (use_thy "Tmp"; OS.Process.exit OS.Process.success) handle e => (OS.Process.exit OS.Process.failure); *}' | /usr/local/Isabelle/bin/isabelle tty -\end{verbatim} -Interactively, using Proof General: -\begin{verbatim} - isabelle emacs out.thy -\end{verbatim} - -\section{Judgments and formulae}\mlabel{a53}% -In a semantic rule, for example -\begin{alltt} - t1 --> t1' -\mysym{ -------------- ::} ctx_app_arg - v t1 --> v t1' -\end{alltt} -the conclusion must be a symbolic term of the form of the judgement being -defined, but in general the premises may be symbolic terms -of a \mykw{formula} grammar or in-line embedded prover code. -By default the formula grammar includes all the defined judgement forms: for the -running example Ott will synthesise grammars as below. - -\begin{toimage} -\testTenMetagrammartabular{ -%\testTenMetat -%\testTenMetav -%\testTenMetaterminals -\testTenMetaformula\testTenMetainterrule -\testTenMetajudgement\testTenMetainterrule -\testTenMetaJop\testTenMetaafterlastrule -%\testTenMetauserXXsyntax\testTenMetaafterlastrule -} -\end{toimage}% -\imageflush - - - -The user can also define an explicit formula grammar, to let other -forms (not just judgements) appear as rule premises. Below is a -fragment of the formula grammar from the LJ example on the Ott web page. -\begin{alltt} - \mykw{formula} \mysym{::} formula_ \mysym{::=} - \mysym{|} judgement \mysym{::} \mysym{::} judgement - \mysym{|} formula1 \mysym{..} formulan \mysym{::} \mysym{::} dots - \mysym{|} not \mykw{formula} \mysym{::} \mykw{M} \mysym{::} not - \mysym{\mylb\mylb{}} \mykw{tex} \mybackslash{}neg \mysym{[[}\mykw{formula}\mysym{]]} \mysym{\myrb\myrb{}} - \mysym{\mylb\mylb{}} \mykw{isa} \mybackslash{} (\mysym{[[}\mykw{formula}\mysym{]]}) \mysym{\myrb\myrb{}} - \mysym{|} ( \mykw{formula} ) \mysym{::} \mykw{M} \mysym{::} brackets - \mysym{\mylb\mylb{}} \mykw{tex} (\mysym{[[}\mykw{formula}\mysym{]]}\mybackslash{}!) \mysym{\myrb\myrb{}} - \mysym{\mylb\mylb{}} \mykw{isa} \mysym{[[}\mykw{formula}\mysym{]]} \mysym{\myrb\myrb{}} - \mysym{|} \mykw{formula} \mybackslash{}/ \mykw{formula}' \mysym{::} \mykw{M} \mysym{::} or - \mysym{\mylb\mylb{}} \mykw{tex} \mysym{[[}\mykw{formula}\mysym{]]} \mybackslash{}vee \mysym{[[}\mykw{formula}'\mysym{]]} \mysym{\myrb\myrb{}} - \mysym{\mylb\mylb{}} \mykw{isa} \mysym{[[}\mykw{formula}\mysym{]]} \mybackslash{} \mysym{[[}\mykw{formula}'\mysym{]]} \mysym{\myrb\myrb{}} - \mysym{|} \mykw{formula} /\mybackslash{} \mykw{formula}' \mysym{::} \mykw{M} \mysym{::} and - \mysym{\mylb\mylb{}} \mykw{tex} \mysym{[[}\mykw{formula}\mysym{]]} \mybackslash{}wedge \mysym{[[}\mykw{formula}'\mysym{]]} \mysym{\myrb\myrb{}} - \mysym{\mylb\mylb{}} \mykw{isa} \mysym{[[}\mykw{formula}\mysym{]]} \mybackslash{} \mysym{[[}\mykw{formula}'\mysym{]]} \mysym{\myrb\myrb{}} - \mysym{|} x = x' \mysym{::} \mykw{M} \mysym{::} xali - \mysym{\mylb\mylb{}} \mykw{isa} \mysym{[[}x\mysym{]]} = \mysym{[[}x'\mysym{]]} \mysym{\myrb\myrb{}} - \mysym{|} X = X' \mysym{::} \mykw{M} \mysym{::} Xali - \mysym{\mylb\mylb{}} \mykw{isa} \mysym{[[}X\mysym{]]} = \mysym{[[}X'\mysym{]]} \mysym{\myrb\myrb{}} -\end{alltt} -This example adds (to the judgement forms) syntax for parenthesised -formulae, negation, and, or, and equality testing on two sorts. For -each, \mykw{tex} and \mykw{isa} homs specify how they should be -typeset and be translated into Isabelle. - -If the user defines a \mykw{formula} grammar then (as here) the production -name prefix must be \texttt{formula\_} and the name for the -\texttt{judgement} production must be \texttt{judgement}. - -\subsection{Naming of premises for the Coq backend} -It is possible to specify the names of premises of inductive -predicates; these names are then used by the Coq backend, and are -often useful in proofs. For instance, we can call \texttt{RED} the hypothesis in the rule below -\begin{alltt} - t1 --> t1' [[:RED]] -\mysym{ -------------- ::} ctx_app_arg - v t1 --> v t1' -\end{alltt} -which will then generate the following Coq code: -\begin{alltt} -| ctx_app_arg : forall (v t1 t1':term) - (RED: reduce t1 t1'), - is_val_of_term v -> - reduce (t_app v t1) (t_app v t1'). -\end{alltt} -Names of rules cannot contain spaces or other non alpha-numerical -characters, and must begin with a letter. The name annotation must at -the rightmost place on the hypothesis line, and must be enclosed -(without spaces) between the \texttt{[[:} and \texttt{]]} parentheses. - -\subsection{In-line embedded prover code in premises} -Instead of adding a formula production, one can directly embed prover -code as a premise, delimited as below by \texttt{\mysym{\mylb\mylb}} and -\texttt{\mysym{\myrb\myrb}}. Within that, text will be echoed -directly to a prover (or given a default \LaTeX{} typesetting) except that symbolic terms enclosed within -\texttt{\mysym{[[}} and \texttt{\mysym{]]}} will be processed as in an -\mykw{embed} section. -\begin{alltt} - \mysym{\mylb\mylb} type_to_chunk (\mysym{[[}typeof e1\mysym{]]}) = Some \mysym{[[}c\mysym{]]} \mysym{\myrb\myrb} - \mysym{----------------------------------------------------------- ::} Assign1 - e1=e2 . k |env --tau--> lval(e1) . [__=c e2] . k |env -\end{alltt} - - -\subsection{User syntax} -The tool also synthesises a \texttt{user\_syntax} grammar of all the -user syntax, for example: - -\begin{toimage} -\testTenMetagrammartabular{ -%\testTenMetat -%\testTenMetav -%\testTenMetaterminals -%\testTenMetaformula\testTenMetainterrule -%\testTenMetajudgement\testTenMetainterrule -%\testTenMetaJop\testTenMetaafterlastrule -\testTenMetauserXXsyntax\testTenMetaafterlastrule -} -\end{toimage}% -\imageflush - -This is used for parsing top-level strings, for example when filtering -embedded code (\S\ref{a54}). - - -\section{Concrete terms and OCaml generation}\mlabel{a57}% -In semantic definitions, one typically never uses concrete variables, -only metavariables that range over them. -In examples, however, one may need either a mix of concrete variables -and metavariables, or, for strictly concrete terms, to restrict to -just the former (and also to prohibit symbolic nonterminals). - - -Figure~\mref{a46} combines the \myLaTeX{} and proof assistant -annotations of Sections \mref{a51} and \mref{a58}, adding a -\texttt{\mysym{\mylb\mylb{}} \mykw{lex} alphanum\mysym{\myrb\myrb{}}} -hom -to the \mykw{metavar} declaration to specify the lexical form of -concrete variables of this sort. -% -At present a \mykw{lex} homomorphism must have body either - \mykw{Alphanum} (standing for \verb+[A-Z]([A-Z]|[a-z]|[0-9]|'|_)*+), - \mykw{alphanum} (for \verb+([A-Z]|[a-z])([A-Z]|[a-z]|[0-9]|'|_)*+), - \mykw{alphanum0} (for \verb+[a-z]([A-Z]|[a-z]|[0-9]|'|_)*+), or - \mykw{numeral} (for \verb+[0-9][0-9]*+); more general regular expressions are not supported. -% -An identifier that can be ambiguously lexed as either a concrete or -symbolic metavariable, e.g.~\texttt{x} in the scope of the above -declaration, will be taken to be symbolic. -% -To restrict the parser to strictly concrete terms only, one can add a -\mykw{:concrete:} prefix, as shown in Figure~\ref{a56}. - -One can also specify how concrete variables should be \myLaTeX'd or -translated into a proof assistant, e.g.~with -homomorphisms -\texttt{\mysym{\mylb\mylb{}} \mykw{texvar} \mybackslash{}mathrm\mylb{}\mysym{[[}termvar\mysym{]]}\mysym{\myrb\myrb{}}} -and -\texttt{\mysym{\mylb\mylb{}} \mykw{isavar} ''\mysym{[[}termvar\mysym{]]}''\mysym{\myrb\myrb{}}} -(and similarly \mykw{coqvar}, \mykw{holvar}, and \mykw{ocamlvar}). - - - - -Figure~\mref{a46} also specifies an OCaml representation type for -variables, with the \mykw{metavar} hom -\texttt{\mysym{\mylb\mylb{}} \mykw{ocaml} int\mysym{\myrb\myrb{}}}. -Executing -\begin{alltt} - bin/ott -i tests/test10.ott -o test10.ml -\end{alltt} -produces the OCaml code shown in Figure~\ref{a59}, including OCaml -types to represent the abstract syntax, and auxiliary functions for -subrules and substitutions. This does not implement the semantic -rules. In some cases the various proof assistant code extraction -facilities can be used --- see Section~\ref{a22}. - - -\begin{figure} -\fbox{\small\begin{minipage}{\textwidth} -\input{test10.7.alltt} -\end{minipage}} -\caption{Source: \texttt{test10.7.ott}\protect\mlabel{a68}} -\end{figure} - -\begin{figure} -\fbox{\small\begin{minipage}{\textwidth} -\verbatiminput{test10.ml} -\end{minipage}} -\caption{Generated OCaml code: \texttt{test10.ml}\protect\mlabel{a59}} -\end{figure} - - - - - -\section{Filtering: Using Ott syntax within \myLaTeX{}, Coq, Isabelle, - HOL, or OCaml}\mlabel{a54}% - -\subsection{Filtering embedded code}\mlabel{a60}% -It is possible to embed arbitrary code in -the Ott source using an \mykw{embed} block, which can contain -\mykw{tex}, -\mykw{coq}, -\mykw{hol}, -\mykw{isa}, or -\mykw{ocaml} homomorphisms, the -bodies of which will appear in the respective output. -The \verb+embed+ keyword should be on a line by itself). For -example, -\verb+test8.ott+ contains the following to -define Coq and HOL \verb+remove_duplicates+ functions. -\begin{alltt} -\mykw{embed} -\mysym{\mylb\mylb{}} \mykw{coq} -Fixpoint remove_duplicates (l:list typvar_t) : list typvar_t := - match l with - | nil => nil - | cons h t => if (list_mem eq_typvar_t h t) then remove_duplicates t - else cons h (remove_duplicates t) -end. \mysym{\myrb\myrb{}} - -\mysym{\mylb\mylb{}} \mykw{hol} -val _ = Define ` - (remove_duplicates [] = []) /\mybackslash{} - (remove_duplicates (x::xs) = if (MEM x xs) then remove_duplicates xs - else x::(remove_duplicates xs)) -`; \mysym{\myrb\myrb{}} -\end{alltt} -Within the body of an \mykw{embed} homomorphism, any text between -\mysym{[[} and \mysym{]]} will be parsed as a symbolic term (of the -\verb+user_syntax+ grammar) and pretty printed, so one can use user -syntax within \myLaTeX{} or proof assistant code. An Isabelle example -is below, defining an Isabelle function to calculate the order of a -type with productions \verb+unit+, \verb+t*t'+, and \verb+t->t'+. -\begin{alltt} -\mysym{\mylb\mylb{}} \mykw{isa} -consts -order :: "type => nat" -primrec -"order \mysym{[[}unit\mysym{]]} = 0" -"order \mysym{[[}t*t'\mysym{]]} = max (order \mysym{[[}t\mysym{]]}) (order \mysym{[[}t'\mysym{]]})" -"order \mysym{[[}t->t'\mysym{]]} = max (1+order \mysym{[[}t\mysym{]]}) (order \mysym{[[}t'\mysym{]]})" - -\mysym{\myrb\myrb{}} -\end{alltt} -It is often useful to define a proof assistant function, in an -\mykw{embed} section, together with a production of the \mykw{formula} -grammar with a proof assistant hom that uses that function, thereby -introducing syntax that lets the function be used in semantic rules. - -% needed right now: -% -Ott also permits embed blocks with \mykw{tex-preamble}, - homs, whose -contents appear in the generated \LaTeX{} preamble. -Any definitions of \LaTeX{} commands must appear in such a -\mykw{tex-preamble} section. -% desirable: -% -% Ott also permits embed blocks with \mykw{tex-preamble}, -% \mykw{hol-preamble}, or \mykw{isa-preamble} homs. -% The contents of these appear (respectively) in the \LaTeX{} preamble, -% just before the HOL \texttt{val \_ = new\_theory}, or between the Isabelle -% \texttt{imports Main Multiset} and \texttt{begin}. -% Any definitions of \LaTeX{} commands must appear in such a -% \mykw{tex-preamble} section. - - - - - -\subsection{Filtering files} -Similar processing can be carried out on separate files, using the -command-line options \verb+tex_filter+, \verb+isa_filter+, etc. -Each of these takes two arguments, a source filename and a destination -filename. In processing the source file, -any text between -\mysym{[[} and \mysym{]]} will be parsed as a symbolic term (of the -\verb+user_syntax+ grammar) and pretty printed in the appropriate -style. All other text is simply echoed. -% (except that strings of $n$ -%\verb+[+ or \verb+]+ characters, for $n\geq 3$, are shortened by $1$). - - -Typical usage for \myLaTeX{} would be something like this (from the \verb+Makefile+ -used to produce this document): -\begin{verbatim} -test7.tex: ../src/ott ../tests/test7.ott ../tests/test7tt.mng - cd ../src; make tmp_test7_clean.ott - ../src/ott \ - -i ../src/tmp_test7_clean.ott \ - -o test7.tex \ - -tex_show_meta false \ - -tex_wrap false \ - -tex_name_prefix testSeven \ - -tex_filter ../tests/test7tt.mng test7tt.tex -\end{verbatim} -The \verb+-tex_wrap false+ turns off output of the default \myLaTeX{} -document preamble, so the generated file \verb+test7.tex+ just contains -\myLaTeX{} definitions. -The \verb+-tex_name_prefix testSeven+ sets a prefix for the generated -\myLaTeX{} commands -(so the \myLaTeX{} definitions from multiple Ott source files can be -included in a single \myLaTeX{} document). -The \verb+-tex_filter+ argument takes two -filenames, a source and a destination. It filters the source file, -(roughly) replacing any string found within \verb+[[+ \verb+]]+ by -the tex pretty-print of its parse. This parsing is done w.r.t.~the generated nonterminal -\verb+user_syntax+ which is a union of all the user's grammar. - -At present %(unlike our previous munger) -munged strings are not automatically -put within \verb+$+ \verb+$+, and there is no analogue of the -\verb+<[+ \verb+]>+ of our previous munger. - -%We probably want to tune up the tex to make it more -%convenient, e.g.~to put single rules in math displays (or not); -%definitions in centering environments (or not), etc. - -The lexing -%pays some attention to \myLaTeX{} comments, but may not get it -%right. It -turns any sequence of \verb+[+ (resp. of \verb+]+) of -length $n+1$ for $n>2$ into a literal sequence of length $n$. - -Figures~\mref{a56} and \mref{a55} show a source file (\texttt{test7tt.mng}) that uses terms of the F$_{<:}$ -definition of \texttt{test7.ott}, and the result of filtering it. - -Similar filtering can be performed on Coq, Isabelle, HOL, and OCaml files. - -To filter files with respect to a relatively stable -system definition, without having to re-process the Ott source files of -that system definition each time, there are command-line options -\begin{verbatim} - -writesys Output system definition - -readsys Input system definition -\end{verbatim} -to first write the system definition (generated from some source files) to a file, and -then to read one back in (instead of re-reading the Ott source files). -The saved system definitions are in an internal format, produced using -the OCaml marshaller, and contain OCaml closures. They therefore will -not be compatible between different Ott versions. They may also be -quite large. - -\begin{figure} -\begin{alltt} -\input{test7tt.mng.alltt.tex} -\end{alltt} -\caption{F$_{<:}$ Extracts: \myLaTeX{} source file to be filtered (\texttt{test7tt.mng})\mlabel{a56}} -\end{figure} - - - -\begin{figure} -\begin{toimage} -\input{test7tt.tex} -\end{toimage}% -\imageflush -\caption{F$_{<:}$ Extracts: the filtered output (\texttt{test7tt.tex})\mlabel{a55}} -\end{figure} - - - - - - -\section{Binding specifications}\mlabel{a62}% - - - -Our first example involved a production with a single binder: -% HACK TO WORKAROUND ABSENCE OF TEX-PREAMBLE PROCESSING TO GET DOC TO -% BUILD FOR NOW -\renewcommand{\testTengrammartabular}[1]{\begin{tabular}{llcllllll}#1\end{tabular} } -\renewcommand{\testTenmetavartabular}[1]{\begin{tabular}{ll}#1\end{tabular} } - -\renewcommand{\bindingOnegrammartabular}[1]{\begin{tabular}{llcllllll}#1\end{tabular} } -\renewcommand{\bindingOnemetavartabular}[1]{\begin{tabular}{ll}#1\end{tabular} } - - -\begin{toimage} -\[ -\testTengrammartabular{ -\testTenrulehead{\testTennt{t}}{::=}{ }\\ % \testTencom{term}}\\ -\testTenprodline{|}{\lambda \, \mathit{x} \, . \, \testTennt{t}}{}{\textsf{bind}\; \mathit{x}\; \textsf{in}\; \testTennt{t}}{}{\testTencom{Lam}}\testTenafterlastrule} -\] -\end{toimage}% -\imageflush - -specified by the source shown in Figure~\mref{a47}: -\begin{alltt} - \mysym{|} \mybackslash{} x . t \mysym{::} \mysym{::} Lam \mysym{(+} \mykw{bind} x \mykw{in} t \mysym{+)} -\end{alltt} -in which a single variable binds in a single subterm. -Realistic programming languages often have much more complex binding -structures, e.g.~% -structured patterns, multiple mutually recursive \texttt{let} definitions, -comprehensions, or-patterns, and dependent record patterns. - - -Ott has a flexible metalanguage for specifying binding structures, -expressive enough to cover these. -It comprises two forms of annotation on productions. -The first, -\begin{toimage} -$\textsf{bind} \, \testThirteendnt{mse} \, \textsf{in} \, \testThirteendnt{nonterm}$, -\end{toimage} -\imageflush -%$\mybf{bind} \, \testThirteendnt{mse} \, \mybf{in} \, \testThirteendnt{nonterm}$, -%$\texttt{bind} \, \ldots \, \texttt{in} \, \testThirteendnt{nonterm}$, -lets one specify that variables bind in nonterminals of the -production, as in the \texttt{Lam} production above. -Here -\begin{toimage} -$\testThirteendnt{mse}$ -\end{toimage} -\imageflush - is a \emph{metavariable set expression}, -e.g.~in that \testTencom{lambda} production just the singleton - metavariable -\begin{toimage} -$\mathit{x}$ -\end{toimage} -\imageflush - of the production. -A variable can bind in multiple nonterminals, as in the example of -a simple recursive \texttt{let} below. - -\begin{toimage} -\[ -\bindingOnegrammar -\] -\end{toimage}% -\imageflush - -More complex examples require one to collect together sets of -variables. For example, the grammar below (shown in Ott source and the -generated \myLaTeX{}) has structured patterns, -with a -\begin{toimage} -$\bindingTwokw{let} \, \bindingTwont{p} \, = \, \bindingTwont{t} \, -\bindingTwokw{in} \, \bindingTwont{t'}$ -\end{toimage}% -\imageflush -production in which all the binders of the pattern -\begin{toimage} -$\bindingTwont{p}$\end{toimage} -\imageflush -bind in the continuation -\begin{toimage} -$\bindingTwont{t'}$. -\end{toimage} -\imageflush - -{\small -\begin{alltt} -t \mysym{::} E_ \mysym{::=} - \mysym{|} x \mysym{::} \mysym{::} ident - \mysym{|} ( t1 , t2 ) \mysym{::} \mysym{::} pair - \mysym{|} let p = t in t' \mysym{::} \mysym{::} letrec \mysym{(+} \mykw{bind} binders\mysym{(}p\mysym{)} \mykw{in} t' \mysym{+)} - - -p \mysym{::} P_ \mysym{::=} - \mysym{|} _ \mysym{::} \mysym{::} wildcard \mysym{(+} binders \mysym{=} \mysym{\mylb\myrb{}} \mysym{+)} - \mysym{|} x \mysym{::} \mysym{::} ident \mysym{(+} binders \mysym{=} x \mysym{+)} - \mysym{|} ( p1 , p2 ) \mysym{::} \mysym{::} pair \mysym{(+} binders \mysym{=} binders\mysym{(}p1\mysym{)} \mykw{union} binders\mysym{(}p2\mysym{)} \mysym{+)} -\end{alltt} -} - -\begin{toimage} -\[ -\bindingTwogrammar -\] -\end{toimage}% -\imageflush - -This is expressed with the second form of annotation: user-defined -\emph{auxiliary functions} such as the -\textrm{binders} above. This is an auxiliary function defined over the -\begin{toimage} -$\bindingTwont{p}$\end{toimage} -\imageflush - grammar that identifies a set of variables to be -used in the \textsf{bind} annotation on the \begin{toimage} -$\bindingTwokw{let}$\end{toimage} -\imageflush - production. There can be any number of such auxiliary functions; - \textrm{binders} is not a distinguished keyword. - -The syntax of a precise fragment of the binding metalanguage is given in -Fig.~\mref{a13}, -\renewcommand{\testThirteendmetavars}{ -\begin{tabular}{lll} -\textbf{metavars} & - $ \testThirteendmv{metavarroot} ,\, \testThirteendmv{mvr} $ \qquad & - $ \testThirteendmv{nontermroot} ,\, \testThirteendmv{ntr} $ \\ -& $ \testThirteendmv{terminal} ,\, \testThirteendmv{t} $ & - $ \testThirteendmv{auxfn} ,\, \testThirteendmv{f} $ \\ -& $ \testThirteendmv{prodname} ,\, \testThirteendmv{pn} $ & -% $ \testThirteendmv{suffix} ,\, \testThirteendmv{suff} $ & \\ - $ \testThirteendmv{variable} ,\, \testThirteendmv{var} $ \\ -% $ \testThirteendmv{index} ,\, \testThirteendmv{i} ,\, \testThirteendmv{j} ,\, \testThirteendmv{n} ,\, \testThirteendmv{m} $ & \\ -% $ \testThirteendmv{defnclassname} ,\, \testThirteendmv{dcn} $ & \\ -% $ \testThirteendmv{defnname} ,\, \testThirteendmv{dn} $ & \\ -% $ \testThirteendmv{defnrulename} ,\, \testThirteendmv{drn} $ & \\ -\end{tabular}} -% -% -% -\renewcommand{\testThirteendgrammar}{\testThirteendgrammartabular{ -\testThirteendmetavar\testThirteendinterrule -\testThirteendnonterm\testThirteendinterrule -\testThirteendelement\testThirteendinterrule -\testThirteendmetavarXXsetXXexpression\testThirteendinterrule -\testThirteendbindspec\testThirteendinterrule -\testThirteendprod\testThirteendinterrule -\testThirteendrule\testThirteendinterrule -\testThirteendgrammarXXrules\testThirteendinterrule -%\testThirteendauxfnXXtype\testThirteendinterrule -%\testThirteendauxfnXXtypeXXenv\testThirteendinterrule -%\testThirteendgrammarXXtype\testThirteendinterrule -%\testThirteendsymterm\testThirteendinterrule -%\testThirteendsymtermXXnodeXXbody\testThirteendinterrule -%\testThirteendsymtermXXelement\testThirteendinterrule -%\testThirteendrelations\testThirteendinterrule -%\testThirteenddefnclass\testThirteendinterrule -%\testThirteenddefinition\testThirteendinterrule -%\testThirteenddefnrule\testThirteendafterlastrule -}}% -% -\newcommand{\symtermgrammar}{\testThirteendgrammartabular{ -\testThirteendsymterm\testThirteendinterrule -\testThirteendsymtermXXnodeXXbody\testThirteendinterrule -\testThirteendsymtermXXelement\testThirteendinterrule -}}% -% -\newcommand{\castgrammar}{\testThirteendgrammartabular{ -\testThirteendconcreteXXabstractXXsyntaxXXterm\testThirteendinterrule -}}% -% -\begin{figure}[t] -\begin{toimage} -\framebox[\columnwidth]{ -\begin{minipage}{\columnwidth} -\small -\testThirteendmetavars - -\testThirteendgrammartabular{ -\textbf{grammar}\\}\\ -\mbox{\quad} -\testThirteendgrammar -\end{minipage}} -\end{toimage}% -\imageflush -\caption{Mini-Ott in Ott: the binding specification metalanguage\label{a13}} -\end{figure}% -% -%\begin{figure}[t] -%\framebox[\columnwidth]{ \begin{minipage}{\columnwidth} -%\small -%\castgrammar -%\end{minipage}} -%\caption{Mini-Ott in Ott: concrete abstract syntax terms\label{a14}} -%\end{figure}% -% -where we have used Ott to define part of the Ott -metalanguage. A simple type system (not shown) enforces sanity properties, -e.g.~that each auxiliary function is only applied to nonterminals that -it is defined over, and that metavariable set expressions are -well-sorted. - -Further to that fragment, the tool supports binding for the list forms -of \S\mref{a61}. -Metavariable set expressions can include lists of metavariables -and auxiliary functions applied to lists of nonterminals, e.g.~as in -the record patterns below. -% if this produces a bizarre latex error, it might be supertabular's fault...! - -\begin{toimage} -\[ -\begin{minipage}{\columnwidth} -\bindingThreegrammartabular{ -%\bindingThreet%\bindingThreeinterrule -\bindingThreep\bindingThreeafterlastrule -}\end{minipage} -%\bindingThreegrammar -\] -\end{toimage}% -\imageflush - -This suffices to express the binding structure of almost all the -natural examples we have come across, including definitions of -mutually recursive functions with multiple clauses for each, Join -calculus definitions~\cite{FGLMR96}, dependent record patterns, and many others. - - - - - -\section{Generating substitution and free variable functions}\mlabel{a67}% -The tool can generate Isabelle/Coq/HOL/OCaml code for both single and multiple -substitution functions. For example, the ML polymorphism Ott source -of \texttt{test8.ott} includes the following. -\begin{alltt} - \mykw{substitutions} - \mykw{single} expr value_name \mysym{::} subst - \mykw{multiple} typexpr typvar \mysym{::} tsubst -\end{alltt} -This causes the generation of two families of substitution -functions, one replacing a single \verb+value_name+ by a \verb+expr+, -the other replacing multiple \verb+typvar+s by \verb+typexpr+s. - -Each family contains a function for each datatype for which it is -required, so in that example there are functions -\verb+subst_expr+ for the first and \verb+tsubst_typexpr+, -\verb+tsubst_typscheme+ and \verb+tsubst_G+ for the second. - -The functions for substitutions declared by -\begin{alltt} - \mykw{substitutions} - \mykw{single} this that \mysym{::} name1 - \mykw{multiple} this that \mysym{::} name2 -\end{alltt} -replaces terms of productions consisting just of a single \verb+that+ by a -\verb+this+. -Here \verb+this+ must be a nonterminal root, while \verb+that+ can be -either a metavariable root or a nonterminal root (the latter -possibility allows substitution for compound identifiers, though it is -not clear that this is generally useful enough to be included). -Substitution functions are generated for each member of each (mutually recursive) -block of grammar rules which either contain such a production or (indirectly) -refer to one that does. - -At present multiple substitutions are represented by Isabelle/Coq/HOL/OCaml -lists, so for the example above we have Isabelle -\begin{verbatim} - tsubst_typexpr :: "(typvar*typexpr) list => typexpr => typexpr" - tsubst_typscheme :: "(typvar*typexpr) list => typscheme => typscheme" - tsubst_G :: "(typvar*typexpr) list => G => G" -\end{verbatim} -The generated functions do not substitute bound things, and recursive -calls under binders are filtered to remove the bound things. - - - -Similarly, the tool can generate Isabelle/Coq/HOL/OCaml to calculate the free -variables of terms. For example, the ML polymorphism Ott source -of \texttt{test8.ott} includes the following. -\begin{alltt} - \mykw{freevars} - typexpr typvar \mysym{::} ftv -\end{alltt} -This causes Isabelle functions as below to be generated, calculating -the free \texttt{typvar}s that occur in singleton productions in the -\texttt{typexpr} grammar, within terms of all types. -\begin{verbatim} - ftv_typexpr :: "typexpr => typvar list" - ftv_typscheme :: "typscheme => typvar list" - ftv_G :: "G => typvar list" -\end{verbatim} - - - -\section{Locally-nameless representation} - -The Coq backend of Ott includes experimental support for a -locally-nameless representation (and co-finite quantification). - -The user must specify which metavariables require a locally-nameless -representation via the \texttt{\mykw{repr-locally-nameless}} hom, -e.g.: - -\begin{alltt} -\mykw{metavar} x \mysym{::=} \mysym{\mylb\mylb{}} \mykw{repr-locally-nameless} \mysym{\myrb\myrb{}} \mysym{\mylb\mylb{}} \mykw{com} term variable \mysym{\myrb\myrb{}} -\end{alltt} - -As usual, metavariables can be bound in productions, using the -bindspec language, as in the \texttt{lam} production below: -\begin{alltt} -\mykw{grammar} - t \mysym{::} 't_' \mysym{::=} \mysym{\mylb\mylb{}} \mykw{com} term \mysym{\myrb\myrb{}} - \mysym{|} x \mysym{::} \mysym{::} Var \mysym{\mylb\mylb{}} \mykw{com} variable \mysym{\myrb\myrb{}} - \mysym{|} \mybackslash{} x . t \mysym{::} \mysym{::} Lam \mysym{(+} \mykw{bind} x \mykw{in} t \mysym{+)} \mysym{\mylb\mylb{}} \mykw{com} abstraction \mysym{\myrb\myrb{}} - \mysym{|} t t' \mysym{::} \mysym{::} App \mysym{\mylb\mylb{}} \mykw{com} application \mysym{\myrb\myrb{}} - \mysym{|} ( t ) \mysym{::} \mykw{S} \mysym{::} paren \mysym{\mylb\mylb{}} \mykw{coq} \mysym{[[}t\mysym{]]} \mysym{\myrb\myrb{}} - \mysym{|} \mylb{} t / x \myrb{} t' \mysym{::} \mykw{M} \mysym{::} tsub \mysym{\mylb\mylb{}} \mykw{coq} (t_subst_t \mysym{[[}t\mysym{]]}\mysym{[[}x t'\mysym{]]}) \mysym{\myrb\myrb{}} -\end{alltt} - -This definition gives rise to the datatype term below (here with option \texttt{-coq\_names\_in\_rules false}): -\begin{alltt} -Inductive term : Set := -| term_var_b : nat -> term -| term_var_f : var -> term -| term_lam : term -> term -| term_app : term -> term -> term. -\end{alltt} - -Remarks: -\begin{enumerate} -\item Productions containing metavariables susceptible to be bound - (e.g., \texttt{term\_var}) give rise to two distinct constructors, one - (\texttt{term\_var\_b}) for de Bruijn indices to be used when the metavariable - is bound, one (\texttt{term\_var\_f}) for "free" variables. The type \texttt{var}, - together with decidable equality and several useful lemmas and - functions, is defined in the Metatheory library. - -In the current implementation, metavariables susceptible to be bound -in a symbolic term (eg.\ the \texttt{x} in the \texttt{term\_var} -production) must be the only element of the production. - -\item Binder metavariables are erased from productions - (eg.\ \texttt{term\_lam}), as in de Bruijn representation. -\end{enumerate} - -Ott automatically generates the appropriate \texttt{open} functions -and \texttt{lc} predicates to test if terms are locally-closed. The -other support functions for substitutions and free-variables -(\texttt{subst} and \texttt{fv}) are generated once the user declares -the relevant substitutions and freevars sections. - -Ott automatically compiles the symbolic terms that appear in rule -definitions into the appropriate terms in locally-nameless style. For -instance, the typing rule for the simply-typed lambda-calculus: - -\begin{alltt} - E,x:S |- t : T -\mysym{ ------------------} :: lambda - E |- \mybackslash{}x.t : S->T -\end{alltt} -is compiled into its locally-nameless representation: -\begin{alltt} -Inductive typing : env -> term -> type -> Prop := (* defn typing *) -| ... -| typing_lambda : forall (L:vars) (E:env) (t:term) (S T:type), - (forall x, x \mybackslash{}notin L -> typing (E & x ~ S) (open_term_wrt_term t (term_var_f x)) T) -> - typing E (term_lam t) (type_arrow S T). -\end{alltt} - -For that, Ott follows the algorithm below. For each rule, -\begin{enumerate} -\item for each nonterminal that appears in the rule, compute the - maximal set of binders under which it appears: for example, in the - rule lambda above, the maximal set of binders for the nonterminal \texttt{t} - is the singleton \texttt{x}, and it is empty for all the other nonterminals; -\item for each pair nonterminal / maximal binder set collected in - phase 1., go over all the occurrences of the nonterminal in the rule - and open them with respect to all the variables in the maximal - binding set except those under which this particular occurrence is - bound. In the example, this amounts to opening the occurrence of \texttt{t} - in the premise with respect to the metavariable \texttt{x}; -\item quantify using cofinite-quantification each metavariable that - has been used to open a nonterminal; -\item add hypothesis about local-closure to guarantee the invariant - that if a derivation holds, then the top-level terms involved are - locally-closed. -\end{enumerate} -In some cases the user may want a finer control on which nonterminals -are opened and with respect to which metavariables. Consider for -instance the CBV beta-reduction rule: -\begin{alltt} -\mysym{ --------------------------} :: ax_app - (\mybackslash{}x.t1) v2 --> \mylb{}v2/x\myrb{}t1 -\end{alltt} -A naive application of the algorithm described above would open the -right hand side occurrence of \texttt{t1} with respect to a -cofinitely-quantified \texttt{x}. Substitution should then be used to replace -the occurrences of \texttt{x} with \texttt{v2}, resulting in the awkward term -\begin{alltt} -reduce (term_app (term_lam t1) v2) (subst_term v2 x (open_term_wrt_term t1 (term_var_f x))) -\end{alltt} - -Instead, an idiomatic translation of CBV beta-reduction rule would -directly rely on the open function to substitute \texttt{v2} for the -bound occurrences of \texttt{x} in \texttt{t1}, as in: -\begin{alltt} -reduce (term_app (term_lam t1) v2) (open_term_wrt_term t1 v2) -\end{alltt} - -A special syntax for production homomorphisms allow the user to specify this translation: -\begin{alltt} - \mysym{|} \mylb{} t / x \myrb{} t' \mysym{::} \mykw{M} \mysym{::} tsub \mysym{\mylb\mylb{}} \mykw{coq} (t_subst_t \mysym{[[}t\mysym{]]}\mysym{[[}x t'\mysym{]]}) \mysym{\myrb\myrb{}} -\end{alltt} -In the homomorphism the nonterminal \texttt{t'} is referred to with -\texttt{\mysym{[[}x t'\mysym{]]}} instead of the usual -\texttt{\mysym{[[}t'\mysym{]]}}: the prefixed \texttt{x} specifies -that occurrences of \texttt{t'} should not be opened with respect to -the metavariable \texttt{x}. If this homomorphism is specified, then -the translation of the \texttt{ax\_app} rule is exactly idiomatic Coq -shown above. - -\textit{Current limitations: support for single binders only, no auxfn, Coq only.} - -\textit{Disclaimer: to compile rule definitions, Ott applies blindly the algorithm described above. Although in most of the cases, this generates a correct and idiomatic representation of the language, some language constructs might not be faithfully translated. Please, let us know if you find one of these cases. -} - -If Ott is invoked with the \texttt{-coq\_lngen} option, then the -generated locally-nameless Coq code is compatible with Aydemir's -\textit{lngen} tool (\ahrefurl{http://www.cis.upenn.edu/~baydemir/papers/lngen/}). - - -\section{List forms}\mlabel{a61}% -Ott has direct support for lists, both as \emph{dot forms} such as -\begin{toimage} -$t_1,\ldots,t_n$ -\end{toimage} -\imageflush -and as \emph{list comprehensions} such as -\begin{toimage} -$ -\testSeventeenTencomplu{\mathit{t_{\testSeventeenTenmv{i}}}} -{\mathit{i}} -{{\mathrm{1}}} -{..} -{\mathit{n}} -$ -\end{toimage} -\imageflush. -Figure~\ref{a63} shows an example semantic rule taken from our OCaml -fragment semantics, as both the generated \myLaTeX{} and its Ott -source, that involves several dot forms. -% -Other types commonly used in semantics, e.g.~finite maps or sets, can -often be described with this list syntax in conjunction with type and -metaproduction homs to specify the proof assistant representation. -% -When using list forms, one usually also wants to add a list-of-formula -production to the \mykw{formula} grammar, e.g. (as in -\verb+test17.10.ott+): -\begin{alltt} - \mykw{formula} \mysym{::} formula_ \mysym{::=} - \mysym{|} judgement \mysym{::} \mysym{::} judgement - \mysym{|} formula1 \mysym{..} formulan \mysym{::} \mysym{::} dots -\end{alltt} -The proof assistant code generation for such a production (which must -be named \verb+formula_dots+) is special-cased to a list conjunction. - - -\newcommand{\ocamlruledrule}[4][]{\frac{\begin{array}{l}#2\end{array}}{#3}\quad\ocamlruledrulename{#4}} -\newcommand{\ocamlruleusedrule}[1]{\[#1\]} -\newcommand{\ocamlrulepremise}[1]{ #1 \\} -\newenvironment{ottdefnblock}[2]{ \framebox{\mbox{#1}} \quad #2 \\[0pt]}{} -\newcommand{\ocamlrulent}[1]{\mathit{#1}} -\newcommand{\ocamlrulemv}[1]{\mathit{#1}} -\newcommand{\ocamlrulekw}[1]{\mathbf{#1}} -\newcommand{\ocamlrulecom}[1]{\text{#1}} -\newcommand{\ocamlruledrulename}[1]{\textsc{#1}} -\newcommand{\ocamlrulecomplu}[5]{\overline{#1}^{\,#2\in #3 #4 #5}} -\newcommand{\ocamlrulecompu}[3]{\overline{#1}^{\,#2<#3}} -\newcommand{\ocamlrulecomp}[2]{\overline{#1}^{\,#2}} -\makeatletter -\newcommand{\ocamlruleenvironmentappend}[2]{% - \begingroup% - \def\@tempa{#1}\def\@tempb{ \ocamlrulekw{empty} }% - \ifx\@tempa\@tempb\def\@tempc{}\else\def\@tempc{#1,}\fi% - \expandafter\endgroup% - \@tempc#2% -} -\makeatother - -\newcommand{\ocamlruledruleJTeXXrecordXXconstr}[1]{\ocamlruledrule[#1]{ - \ocamlrulepremise{\ocamlrulent{E} \, \vdash \, \ocamlrulent{e_{{\mathrm{1}}}} \, : \, \ocamlrulent{t_{{\mathrm{1}}}} \quad ... \quad \ocamlrulent{E} \, \vdash \, \ocamlrulent{e_{\ocamlrulemv{n}}} \, : \, \ocamlrulent{t_{\ocamlrulemv{n}}}} - \ocamlrulepremise{\ocamlrulent{E} \, \vdash \, \ocamlrulent{field\_name_{{\mathrm{1}}}} \, : \, \ocamlrulent{t} \, \rightarrow \, \ocamlrulent{t_{{\mathrm{1}}}} \quad ... \quad \ocamlrulent{E} \, \vdash \, \ocamlrulent{field\_name_{\ocamlrulemv{n}}} \, : \, \ocamlrulent{t} \, \rightarrow \, \ocamlrulent{t_{\ocamlrulemv{n}}}} - \ocamlrulepremise{\ocamlrulent{t} \, = \, ( \, \ocamlrulent{t'_{{\mathrm{1}}}} \, , \, ... \, , \, \ocamlrulent{t'_{\ocamlrulemv{l}}} \, ) \, \ocamlrulent{typeconstr\_name}} - \ocamlrulepremise{\ocamlrulent{E} \, \vdash \, \ocamlrulent{typeconstr\_name} \, \;\vartriangleright\; \, \ocamlrulent{typeconstr\_name} \, : \, \ocamlrulent{kind} \, \ocamlrulekw{\{} \, \ocamlrulent{field\_name'_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ocamlrulent{field\_name'_{\ocamlrulemv{m}}} \, \ocamlrulekw{\}}} - \ocamlrulepremise{\ocamlrulent{field\_name_{{\mathrm{1}}}} \, ... \, \ocamlrulent{field\_name_{\ocamlrulemv{n}}} \, \ocamlrulekw{PERMUTES} \, \ocamlrulent{field\_name'_{{\mathrm{1}}}} \, ... \, \ocamlrulent{field\_name'_{\ocamlrulemv{m}}}} - \ocamlrulepremise{\ocamlrulekw{length} \, ( \, \ocamlrulent{e_{{\mathrm{1}}}} \, ) \, ... \, ( \, \ocamlrulent{e_{\ocamlrulemv{n}}} \, ) \, \geq \, 1}}{ -\ocamlrulent{E} \, \vdash \, \ocamlrulekw{\{} \, \ocamlrulent{field\_name_{{\mathrm{1}}}} \, = \, \ocamlrulent{e_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ocamlrulent{field\_name_{\ocamlrulemv{n}}} \, = \, \ocamlrulent{e_{\ocamlrulemv{n}}} \, \ocamlrulekw{\}} \, : \, \ocamlrulent{t}}{ -{\ocamlruledrulename{JTe\_record\_constr}}{} -}} - -\newcommand{\ocamlruledruleJRXXexprXXtupleXXctx}[1]{\ocamlruledrule[#1]{ - \ocamlrulepremise{\vdash \, \ocamlrulent{e} \, \stackrel{ \ocamlrulent{L} }{\longrightarrow} \, \ocamlrulent{e'}}}{ -\vdash \, \, ( \, \ocamlrulent{e_{{\mathrm{1}}}} \, ,\, \, .. \, ,\, \, \ocamlrulent{e_{\ocamlrulemv{m}}} \, ,\, \, \ocamlrulent{e} \, ,\, \, \ocamlrulent{v_{{\mathrm{1}}}} \, ,\, \, .. \, ,\, \, \ocamlrulent{v_{\ocamlrulemv{n}}} \, ) \, \stackrel{ \ocamlrulent{L} }{\longrightarrow} \, \, ( \, \ocamlrulent{e_{{\mathrm{1}}}} \, ,\, \, .. \, ,\, \, \ocamlrulent{e_{\ocamlrulemv{m}}} \, ,\, \, \ocamlrulent{e'} \, ,\, \, \ocamlrulent{v_{{\mathrm{1}}}} \, ,\, \, .. \, ,\, \, \ocamlrulent{v_{\ocamlrulemv{n}}} \, )}{ -{\ocamlruledrulename{JR\_expr\_tuple\_ctx}}{} -}} - -\begin{figure} -% some bizarre latex messes with the font sizes if we put these into a -% single array -\small -%\[\ocamlruledruleJRXXexprXXtupleXXctx{}\] -\begin{toimage} -\[ -\ocamlruledruleJTeXXrecordXXconstr{} -\] -\end{toimage}% -\imageflush -\par\noindent{\begin{alltt} - E |- e1 : t1 ... E |- en : tn - E |- field\_name1 : t->t1 ... E |- field\_namen : t->tn - t = (t1', ..., tl') typeconstr\_name - E |- typeconstr\_name gives typeconstr\_name:kind \mylb{}field\_name1'; ...; field\_namem'\myrb{} - field\_name1...field\_namen PERMUTES field\_name1'...field\_namem' - length (e1)...(en)>=1 - -------------------------------------------------------------------------- :: record\_constr - E |- \mylb{}field\_name1=e1; ...; field\_namen=en\myrb{} : t -\end{alltt}}\noindent -\caption{A sample OCaml semantic rule, in \myLaTeX{} and Ott - source forms\protect\mlabel{a63}} -\end{figure} - - - -\subsection{List dot forms}\mlabel{a66}% -% -%used in the \S\mref{a23} type schemes: -% -%{\small\testEightgrammartabular{\testEighttypscheme\testEightafterlastrule}} -Example productions for -record types, record terms, and record -patterns are shown below, in both Ott source and \myLaTeX{}, taken -from our F$_{<:}$ example. -\begin{alltt} -T\mysym{,} S\mysym{,} U \mysym{::} 'T_' \mysym{::=} \mysym{\mylb\mylb{}} \mykw{com} type \mysym{\myrb\myrb{}} - \mysym{|} \mylb{} l1 : T1 , \mysym{..} , ln : Tn \myrb{} \mysym{::} \mysym{::} Rec \mysym{\mylb\mylb{}} \mykw{com} record \mysym{\myrb\myrb{}} - -t \mysym{::} 't_' \mysym{::=} \mysym{\mylb\mylb{}} \mykw{com} term \mysym{\myrb\myrb{}} - \mysym{|} \mylb{} l1 = t1 , \mysym{..} , ln = tn \myrb{} \mysym{::} \mysym{::} Rec \mysym{\mylb\mylb{}} \mykw{com} record \mysym{\myrb\myrb{}} - \mysym{|} let p = t in t' \mysym{::} \mysym{::} Let \mysym{(+} \mykw{bind} b\mysym{(}p\mysym{)} \mykw{in} t' \mysym{+)} \mysym{\mylb\mylb{}} \mykw{com} pattern binding\mysym{\myrb\myrb{}} - -p \mysym{::} 'P_' \mysym{::=} \mysym{\mylb\mylb{}} \mykw{com} pattern \mysym{\myrb\myrb{}} - \mysym{|} x : T \mysym{::} \mysym{::} Var \mysym{(+} b \mysym{=} x \mysym{+)} \mysym{\mylb\mylb{}} \mykw{com} variable pattern \mysym{\myrb\myrb{}} - \mysym{|} \mylb{} l1 = p1 , \mysym{..} , ln = pn \myrb{} \mysym{::} \mysym{::} Rec \mysym{(+} b \mysym{=} b\mysym{(}p1 \mysym{..} pn\mysym{)} \mysym{+)} \mysym{\mylb\mylb{}} \mykw{com} record pattern \mysym{\myrb\myrb{}} - -\end{alltt} - -\begin{toimage} -{\small\testSevengrammartabular{ -\testSevenrulehead{\testSevennt{T} ,\ \testSevennt{S} ,\ \testSevennt{U}}{::=}{\testSevencom{type}}\\ -%\testSevenprodline{|}{\ldots}{}{}{}{}\\ -\testSevenprodline{|}{\testSevenkw{\{} \, \mathit{l_{{\mathrm{1}}}} \, : \, \testSevennt{T_{{\mathrm{1}}}} \, , \, .. \, , \, \mathit{l_{\testSevenmv{n}}} \, : \, \testSevennt{T_{\testSevenmv{n}}} \, \testSevenkw{\}}}{}{}{}{\testSevencom{record}}\testSeveninterrule -% -\testSevenrulehead{\testSevennt{t}}{::=}{\testSevencom{term}}\\ -%\testSevenprodline{|}{\ldots}{}{}{}{}\\ -\testSevenprodline{|}{\testSevenkw{\{} \, \mathit{l_{{\mathrm{1}}}} \, \!\! = \!\! \, \testSevennt{t_{{\mathrm{1}}}} \, , \, .. \, , \, \mathit{l_{\testSevenmv{n}}} \, \!\! = \!\! \, \testSevennt{t_{\testSevenmv{n}}} \, \testSevenkw{\}}}{}{}{}{\testSevencom{record}}\\ -\testSevenprodline{|}{\testSevenkw{let} \, \testSevennt{p} \, \!\! = \!\! \, \testSevennt{t} \, \testSevenkw{in} \, \testSevennt{t'}}{}{\textsf{bind}\; \textrm{b}(\testSevennt{p})\; \textsf{in}\; \testSevennt{t'}}{}{\testSevencom{pattern binding}}\testSeveninterrule -% -\testSevenrulehead{\testSevennt{p}}{::=}{\testSevencom{pattern}}\\ -\testSevenprodline{|}{\mathit{x} \, : \, \testSevennt{T}}{}{\textrm{b}=\mathit{x}}{}{\testSevencom{variable pattern}}\\ -\testSevenprodline{|}{\testSevenkw{\{} \, \mathit{l_{{\mathrm{1}}}} \, \!\! = \!\! \, \testSevennt{p_{{\mathrm{1}}}} \, , \, .. \, , \, \mathit{l_{\testSevenmv{n}}} \, \!\! = \!\! \, \testSevennt{p_{\testSevenmv{n}}} \, \testSevenkw{\}}}{}{\textrm{b}=\textrm{b}(\testSevennt{p_{{\mathrm{1}}}}..\testSevennt{p_{\testSevenmv{n}}})}{}{\testSevencom{record pattern}}\testSevenafterlastrule -} -} -\end{toimage} -\imageflush - -%A dot form in a production, such as the \texttt{l1 : T1 , \mysym{..} , ln : Tn} -%above, may or may not involve a \emph{separating terminal}. Here -%there is one, the comma `\texttt{,}'. The tool finds the longest -%subsequence of elements on either side of the dots that can be made to -%coincide by anti-unifying their suffixes, anti-unifying index -%variables with natural numbers. - -Dot forms can be used in symbolic terms in semantic rules: - -\begin{toimage} -{ \[\testSevendruleTyXXRcd{}\]} -\end{toimage} -\imageflush - -Individually indexed projections from dot forms can be mentioned, eg -the $l_j$ below: - -\begin{toimage} -{ \[\testSevendruleTyXXProj{}\]} -\end{toimage} -\imageflush - -Symbolic terms can also include concatenations of two dot forms with a -singleton in between: - -\begin{toimage} -{ \[\testSevendrulereduceXXCtxXXrecord{}\]} -\end{toimage} -\imageflush - -Multiple dot forms within the same semantic rule can share bounds (e.g.~$1..m$): - -\begin{toimage} -{ \[\testSevendruleMXXRcd{}\]} -\end{toimage} -\imageflush - - -In more detail, productions can have dot tokens interspersed between the elements. -Dot tokens consist of two, three or four consecutive dots (\mysym{..}, -\mysym{...}, or \mysym{....}), indicating lists with minimum lengths $0$, -$1$, and $2$ respectively (these length minimums are respected - only when parsing concrete lists; they are not present in Isabelle/Coq/HOL - output). -The tool identifies the maximal sequence of elements on either side of -the dots that are identical modulo anti-unification of some -index. Optionally, there may also be a single terminal on either side -of the dot token, separating instances of the repeated unit. -For example, in the \texttt{test7.ott} production -\begin{alltt} - \mysym{\mysym{|}} \mylb{} l1 = t1 , \mysym{..} , ln = tn \myrb{} \mysym{::} \mysym{::} Rec -\end{alltt} -there is such a terminal (the `\verb+,+'). The tool identifies -that \verb+l1 = t1+ and \verb+ln = tn+ can be anti-unified as -(roughly) \verb+l_ = t_+, taking \verb+_+ to be the bounds \verb+1+ and \verb+n+. -A single production may contain multiple dot forms, but they must not overlap; -nested dot forms (including those with multiple changing indices) are not currently -supported. - -Homomorphisms and binding specifications are generalised to match: an \verb+mse+ can -involve a dot form of metavariables; -%(e.g.~the -%$\mathit{typvar_{\mathrm{1}}}..\mathit{typvar_{\mathit{n}}}$ above); -a dot form of nonterminals; or an auxiliary function applied to a dot -form -of nonterminals (e.g.~the -$\textrm{b}(\mathit{p_{\mathrm{1}}}..\mathit{p_{\mathit{n}}})$ above). -Dot forms on the right of a \mykw{bind} are not currently supported. - -\myLaTeX{} homomorphisms should not refer to dot forms, as either an error -or bad output will be generated. (For \myLaTeX, there should really be -some means to specify -a homomorphism for the repeated expression, and also data on how any -list separators should be typeset. This would require more -special-case treatment, which is not currently supported.) - - - -\subsection{List comprehension forms}\mlabel{a44}% -% -Lists can also be expressed as explicit list comprehensions, -for more concise typesetting. -Three different styles are supported, with no bounds, an upper bound, -or a lower and upper bound. For example, in a symbolic -term, instead of the dot form -\par\noindent{\small -\begin{alltt} - G |- t1:T1 \mysym{..} G |- tn:Tn - \end{alltt} -} -one can write any of the following -\par\noindent{\small -\begin{alltt} - \mysym{} - \mysym{} - \mysym{} - \end{alltt} -} -Similar comprehensions can be used in productions, for example lines -2--4 below. In addition, comprehensions in productions can specify a -terminal to be used as a separator in concrete lists, as in lines 5--7 below. -(These examples are taken from \verb+test17.10.ott+.) -\par\noindent{\small -\begin{alltt} - \mysym{|} { l1 = t1 , \mysym{..} , ln = tn } \mysym{::} \mysym{::} Rec \mysym{\mylb\mylb} \mykw{com} dots \mysym{\myrb\myrb} - \mysym{|} { \mysym{} } \mysym{::} \mysym{::} Rec_comp_none \mysym{\mylb\mylb} \mykw{com} comp \mysym{\myrb\myrb} - \mysym{|} { \mysym{} } \mysym{::} \mysym{::} Rec_comp_u_none \mysym{\mylb\mylb} \mykw{com} compu \mysym{\myrb\myrb} - \mysym{|} { \mysym{} } \mysym{::} \mysym{::} Rec_comp_lu_none \mysym{\mylb\mylb} \mykw{com} complu \mysym{\myrb\myrb} - \mysym{|} { \mysym{} } \mysym{::} \mysym{::} Rec_comp_some \mysym{\mylb\mylb} \mykw{com} comp with terminal \mysym{\myrb\myrb} - \mysym{|} { \mysym{} } \mysym{::} \mysym{::} Rec_comp_u_some \mysym{\mylb\mylb} \mykw{com} compu with terminal \mysym{\myrb\myrb} - \mysym{|} { \mysym{} } \mysym{::} \mysym{::} Rec_comp_lu_some \mysym{\mylb\mylb} \mykw{com} complu with terminal \mysym{\myrb\myrb} - \end{alltt} -} -In Coq, HOL or Isabelle output, list dot forms and the -various list comprehension forms are treated almost identically. -In LaTeX output, comprension forms are default-typeset with overbars. -For example, the rules below -\par\noindent{\small -\begin{alltt} - G|- t:{l1:T1,\mysym{..},ln:Tn} -\mysym{ ----------------------- :: }Proj_dotform - G|- t.lj : Tj - - G|- t: { \mysym{} } -\mysym{ ---------------------------------- ::} Proj_comp - G|- t.lj : Tj - - G|- t: { \mysym{} } -\mysym{ ---------------------------------- ::} Proj_comp_u - G|- t.lj : Tj - - G|- t: { \mysym{} } -\mysym{ ---------------------------------- ::} Proj_comp_lu - G|- t.lj : Tj - \end{alltt} -} -are typeset as follows. - -\begin{toimage} -%\testSeventeenTendruleTyXXRcdXXdotform -\[\testSeventeenTendruleTyXXProjXXdotform{}\] -%\testSeventeenTendruleTyXXRcdXXcomp -\[\testSeventeenTendruleTyXXProjXXcomp{}\] -%\testSeventeenTendruleTyXXRcdXXcompXXu -\[\testSeventeenTendruleTyXXProjXXcompXXu{}\] -%\testSeventeenTendruleTyXXRcdXXcompXXlu -\[\testSeventeenTendruleTyXXProjXXcompXXlu{}\] -\end{toimage} -\imageflush - -Upper bounds of the form $n-1$ are also permitted, e.g. with -\par\noindent{\small -\begin{alltt} - G|- t:{l0:T0,\mysym{..},ln-1:Tn-1} -\mysym{ ----------------------- ::} Proj_dotform_minus - G|- t.lj : Tj - - G|- t: { \mysym{} } -\mysym{ ---------------------------------- ::} Proj_comp_lu_minus - G|- t.lj : Tj - \end{alltt} -} -typeset as below. More complex arithmetic expressions are not -currently supported. - -\begin{toimage} -\[\testSeventeenTendruleTyXXProjXXdotformXXminus{}\] -\[\testSeventeenTendruleTyXXProjXXcompXXluXXminus{}\] -\end{toimage} -\imageflush - -A list form used in a symbolic term does not have to be in the same -style as that in the corresponding production. -However, if a metavariable or nonterminal occurs in multiple different -list forms in the same inference rule, they must all be in the same style and -with the same bounds. Moreover, in a production, a list form in a bindspec or -homomorphism must be in the same style and with the same bounds as the -corresponding list form in the elements of the production. - -The comprehension form without an upper bound, -e.g.~\texttt{\mysym{}}, -typeset as -\begin{toimage} -$\overline{\Gamma \, \vdash \, \mathit{t_{\mathit{i}}} \, : - \, \mathit{T_{\mathit{i}}}}^{\,\mathit{i}}$, -\end{toimage}% -\imageflush% -is not standard -notation, but is often very useful. Many semantic rules involve lists -of matched length, e.g.~of the -\begin{toimage} -$\mathit{t_{\mathit{i}}}$ -\end{toimage}% -\imageflush% - and -\begin{toimage} -$\mathit{T_{\mathit{i}}}$ -\end{toimage}% -\imageflush% - here, but do not need to introduce an -identifier for that length; omitting it keeps them concise. - -The default visual style for typesetting list comprehensions can be -overridden by redefining the \myLaTeX{} commands \verb+\ottcomp+, -\verb+\ottcompu+, and \verb+\ottcomplu+ in an \mykw{embed} section, as -in Section~\ref{a64}. - -In some cases one could make the typeset notation even less noisy, by -either omitting the superscript $i$ or omitting both the superscript $i$ and -the subscript $i$'s on $t$ and $T$. The first is unambiguous if there -is at most one index on each element in the comprehension; the second -if all the elements are indexed by the same thing (not the case for -this example, but common for comprehensions of single elements, -e.g. \verb+<< Ti // i>>+ for $\overline{T}$). It is arguable that that -should be automated in future Ott releases, though it would bring the typeset and ASCII -versions out of step. - -%The tokens used for list dot forms and comprehension forms (\verb++, \verb+..+, \verb+...+, and -%\verb+....+) cannot at present be used in the object language. - -List comprehension forms can also be used in bindspecs and in -homomorphisms. - - -\subsection{Proof assistant code for list forms}\mlabel{a65}% -\subsubsection{Types} -We have to choose proof assistant representations for productions involving list -forms. For example, for a language with records one might write -\input{binding.6.alltt} -%\par\noindent{\small\verbatiminput{../tests/binding.6.ott} -%}\noindent -In HOL and Isabelle we represent these simply with contructors whose -argument types involve proof-assistant native list types, e.g. -the HOL list of pairs of a \verb+label+ and a \verb+t+: -\par\noindent{\small\begin{verbatim} - val _ = Hol_datatype ` - t = E_record of (label#t) list `; -\end{verbatim} -}\noindent -For Coq we provide two alternatives: one can either use -native lists, or lists can be translated away, depending on taste. -The choice is determined by the \verb+-coq_expand_list_types+ -command-line option. -%pros & cons: -% native: can use standard functions and theorems -% translated away: ...how to articulate this...? -In the former case we generate an appropriate induction principle -using nested fixpoints, as -the default principle produced by Coq is too weak to be useful. -In the latter case we -synthesise an additional type for each type of lists-of-tuples that -arises in the grammar. -In the example, we need a type of lists of -pairs of a \texttt{label} and a \texttt{t}: -\par\noindent{\small\begin{verbatim} -Inductive -list_label_t : Set := - Nil_list_label_t : list_label_t - | Cons_list_label_t : label -> t -> list_label_t - -> list_label_t - -with t : Set := - E_record : list_label_t -> t . -\end{verbatim} -}\noindent -These are included in the grammar topological sort, and utility functions, e.g.~to -make and unmake lists, are synthesised. -%A similar translation will be needed for Twelf, as it has no -%polymorphic list type. -%We also generate, on request, default Coq proofs that there is a decidable equality -%on various types. - - -\subsubsection{Terms (in inductive definition rules)} -Supporting list forms in the rules of an inductive definition requires some additional analysis. For example, -consider the record typing rule below. - -\begin{toimage} -\[\bindingSixbdruleTyXXRcd{}\] -\end{toimage}% -\imageflush% - -We analyse the symbolic terms in the premises and conclusion to -identify lists of nonterminals and metavariables with the same bounds --- here $t_0 .. t_{n-1}$, $T_0 .. T_{n-1}$, and $l_0 .. l_{n-1}$ -all have bounds $0..n-1$. -% -To make the fact that they have the same length immediate in the -generated code, we introduce a single proof assistant -variable for each such collection, with appropriate projections and -list maps/foralls at the usage points. -For example, the HOL for the above is essentially as follows, with -an \verb+l_t_Typ_list : (label#t#Typ) list+. -\par\noindent{\small -\begin{verbatim} -(* Ty_Rcd *) !(l_t_Typ_list:(label#t#Typ) list) (G:G) . -(EVERY (\b.b) - (MAP (\(l_,t_,Typ_). (Ty G t_ Typ_)) l_t_Typ_list)) - ==> -(Ty - G - (E_record (MAP (\(l_,t_,Typ_). (l_,t_)) l_t_Typ_list)) - (T_Rec (MAP (\(l_,t_,Typ_). (l_,Typ_)) l_t_Typ_list))) -\end{verbatim} -}\noindent -This seems to be a better idiom for later proof development than the -alternative of three different list variables coupled with assertions -that they have the same length. - - - - -%================ - - -\newcommand{\oottdrule}[4][]{\frac{\begin{array}{l}#2\end{array}}{#3}\quad\oottdrulename{#4}} -\newcommand{\oottusedrule}[1]{\[#1\]} -\newcommand{\oottpremise}[1]{ #1 \\} -\newenvironment{oottdefnblock}[2]{ \framebox{\mbox{#1}} \quad #2 \\[0pt]}{} -\newcommand{\oottnt}[1]{\mathit{#1}} -\newcommand{\oottmv}[1]{\mathit{#1}} -\newcommand{\oottkw}[1]{\mathbf{#1}} -\newcommand{\oottcom}[1]{\text{#1}} -\newcommand{\oottdrulename}[1]{\textsc{#1}} -\newcommand{\oottcomplu}[5]{\overline{#1}^{\,#2\in #3 #4 #5}} -\newcommand{\oottcompu}[3]{\overline{#1}^{\,#2<#3}} -\newcommand{\oottcomp}[2]{\overline{#1}^{\,#2}} -\makeatletter -\newcommand{\oottenvironmentappend}[2]{% - \begingroup% - \def\@tempa{#1}\def\@tempb{ \oottkw{empty} }% - \ifx\@tempa\@tempb\def\@tempc{}\else\def\@tempc{#1,}\fi% - \expandafter\endgroup% - \@tempc#2% -} -\makeatother - -\newcommand{\oottdruleTyXXProj}[1]{\oottdrule[#1]{ - \oottpremise{\Gamma \, \vdash \, \oottnt{t} \, : \, \oottkw{\{} \, \mathit{l_{{\mathrm{1}}}} \, : \, \oottnt{T_{{\mathrm{1}}}} \, , \, .. \, , \, \mathit{l_{\oottmv{n}}} \, : \, \oottnt{T_{\oottmv{n}}} \, \oottkw{\}}}}{ -\Gamma \, \vdash \, \oottnt{t} \, . \, \mathit{l_{\oottmv{j}}} \, : \, \oottnt{T_{\oottmv{j}}}}{ -{\oottdrulename{Ty\_Proj}}{} -}} -%hand-hacked to rename -\newcommand{\oottdrulereduceXXProjRcd}[1]{\oottdrule[#1]{ -}{ -\oottkw{\{} \, \mathit{l'_{{\mathrm{1}}}} \, \!\! = \!\! \, \oottnt{v_{{\mathrm{1}}}} \, , \, .. \, , \, \mathit{l'_{\oottmv{n}}} \, \!\! = \!\! \, \oottnt{v_{\oottmv{n}}} \, \oottkw{\}} \, . \, \mathit{l'_{\oottmv{j}}} \, \longrightarrow \, \oottnt{v_{\oottmv{j}}}}{ -{\oottdrulename{Proj}}{} -}} - -%hand-hacked to single-column the conclusion and rename -\newcommand{\oottdrulereduceXXCtxXXrecord}[1]{\oottdrule[#1]{ - \oottpremise{\oottnt{t} \, \longrightarrow \, \oottnt{t'}}}{ -\begin{array}{l} -\oottkw{\{} \, \mathit{l_{{\mathrm{1}}}} \, \!\! = \!\! \, - \oottnt{v_{{\mathrm{1}}}} \, , \, .. \, , \, \mathit{l_{\oottmv{m}}} - \, \!\! = \!\! \, \oottnt{v_{\oottmv{m}}} \, , \, \mathit{l} \, \!\! = - \!\! \, \oottnt{t} \, , \, \mathit{l'_{{\mathrm{1}}}} \, \!\! = \!\! - \, \oottnt{t'_{{\mathrm{1}}}} \, , \, .. \, , \, - \mathit{l'_{\oottmv{n}}} \, \!\! = \!\! \, \oottnt{t'_{\oottmv{n}}} \, - \oottkw{\}} \\ \longrightarrow \, \oottkw{\{} \, - \mathit{l_{{\mathrm{1}}}} \, \!\! = \!\! \, \oottnt{v_{{\mathrm{1}}}} - \, , \, .. \, , \, \mathit{l_{\oottmv{m}}} \, \!\! = \!\! \, - \oottnt{v_{\oottmv{m}}} \, , \, \mathit{l} \, \!\! = \!\! \, - \oottnt{t'} \, , \, \mathit{l'_{{\mathrm{1}}}} \, \!\! = \!\! \, - \oottnt{t'_{{\mathrm{1}}}} \, , \, .. \, , \, \mathit{l'_{\oottmv{n}}} - \, \!\! = \!\! \, \oottnt{t'_{\oottmv{n}}} \, \oottkw{\}} \end{array}}{ -{\!\!\!\oottdrulename{Rec}}{} -}} - -%testSeventeenTen -\newcommand{\oottdruleTyXXProjXXcompXXluXXminus}[1]{\oottdrule[#1]{ - \oottpremise{\Gamma \, \vdash \, \oottnt{t} \, : \, \oottkw{\{} \, \oottcomplu{\mathit{l_{\oottmv{i}}}:\oottnt{T_{\oottmv{i}}}}{\oottmv{i}}{{\mathrm{0}}}{..}{{\oottmv{n}-1}} \, \oottkw{\}}}}{ -\Gamma \, \vdash \, \oottnt{t} \, . \, \mathit{l_{\oottmv{j}}} \, : \, \oottnt{T_{\oottmv{j}}}}{ -{\oottdrulename{Proj}}{} -}} - - -With direct support for lists, we need also direct support for -symbolic terms involving list projection and concatenation. -For example, the rule -% -%Lastly, one sometimes wants to write list \emph{comprehensions} rather -%than dots, for compactness or as a matter of general style. We support -%comprehensions of several forms, e.g.~with explicit index $i$ and -%bounds $0$ to $n-1$, as below, and with unspecified or upper-only bounds. -% -% -% -%================== -% -% \[\testSeventeenTendrulereduceXXProjRcd{}\] -% \[\testSeventeenTendrulereduceXXCtxXXrecord{}\] -% % -% Lastly, one sometimes wants to write list \emph{comprehensions} rather -% than dots, for compactness or as a matter of general style. We support -% comprehensions of several forms, e.g.~with explicit index $i$ and -% bounds $0$ to $n-1$, as below, and with unspecified or upper-only bounds. -% \[\testSeventeenTendruleTyXXProjXXcompXXluXXminus{}\] -% -% ============== -% - -\begin{toimage} -\[\oottdrulereduceXXCtxXXrecord{}\] -\end{toimage}% -\imageflush% - -gives rise to HOL code as below --- note the list-lifted usage of the -\verb+is_v_of_t+ predicate, and the list appends (\texttt{++}) in the conclusion. -\par\noindent{\small -\begin{verbatim} -(* reduce_Rec *) !(l'_t'_list:(label#t) list) - (l_v_list:(label#t) list) (l:label) (t:t) (t':t) . -((EVERY (\(l_,v_). is_v_of_t v_) l_v_list) /\ -(( reduce t t' ))) - ==> -(( reduce (t_Rec (l_v_list ++ [(l,t)] ++ l'_t'_list)) - (t_Rec (l_v_list ++ [(l,t')] ++ l'_t'_list)))) -\end{verbatim} -}\noindent -For the \texttt{Proj} typing rule - -\begin{toimage} -\[\oottdruleTyXXProjXXcompXXluXXminus{}\] -\end{toimage}% -\imageflush% - -we need a specific projection (the -HOL \verb+EL+) to -pick out the $j$'th element: -\par\noindent{\small -\begin{verbatim} -(* Ty_Proj *) !(l_Typ_list:(label#Typ) list) - (j:index) (G:G) (t:t) . -((( Ty G t (T_Rec (l_Typ_list)) ))) - ==> -(( Ty - G - (t_Proj t ((\ (l_,Typ_) . l_) (EL j l_Typ_list))) - ((\ (l_,Typ_) . Typ_) (EL j l_Typ_list)))) -\end{verbatim} -}\noindent -For Coq, when translating away lists, we have to introduce -yet more list types for -these proof assistant variables, in addition to the obvious -translation of symbolic terms, and, more substantially, to introduce additional inductive relation -definitions to induct over them. - - - -%\[\oottdrulereduceXXProjRcd{}\] - -% ------------------- -% -% -% The generated Isabelle/Coq/HOL/OCaml types for dot forms involve lists of -% tuples, e.g.~for the production above: -% \par\noindent{\small -% \begin{verbatim} -% datatype -% t = -% ... -% | t_Rec "(label*t) list" -% ... -% \end{verbatim} -% } -% The generated code for a rule involving dot forms involves, for each -% bound that occurs, a generated variable for the list of tuples of -% nonterminals and metavariables that occurred with that bound. For -% example, - -For similar examples in Isabelle, the generated Isabelle for the first -three rules of \S\ref{a66} is -shown below (lightly hand-edited for format). The first involves an -Isabelle variable \verb+l_t_T_list+, and list maps and projections -thereof. -\par\noindent{\small -\begin{verbatim} -Ty_RcdI: " - [|(formula_formuladots ((List.map (%(l_,t_,T_).( ( G , t_ , T_ ) : Ty)) l_t_T_list)))|] - ==> - ( G , - (t_Rec ((List.map (%(l_,t_,T_).(l_,t_)) l_t_T_list))) , - (T_Rec ((List.map (%(l_,t_,T_).(l_,T_)) l_t_T_list))) - ) : Ty" - -Ty_ProjI: " - [| ( G , t , (T_Rec (l_T_list)) ) : Ty|] ==> - ( G , - (t_Proj t (%(l_,T_).l_) (List.nth l_T_list (j - 1))) , - (%(l_,T_).T_) (List.nth l_T_list (j - 1)) - ) : Ty" - -E_Ctx_recordI: " -[| List.list_all (%(l_,v_).is_v v_) l_v_list ; - ( t , t' ) : E|] -==> - ( (t_Rec (l_v_list @ [(l,t)] @ l_'t_'list)) , - (t_Rec (l_v_list @ [(l,t')] @ l_'t_'list)) - ) : E" -\end{verbatim} -} -The generated code for substitutions and free variables takes account of such list structure. - -Note that at present the generated Isabelle code for these functions -does not always build without change, in particular if tuples of size -3 or more are required in patterns. - - -\subsubsection{List forms in homomorphisms} - -Proof assistant homomorphisms in productions can refer to dot-form -metavariables and nonterminals. For example, the second production -below (taken from \verb+test17.9+) mentions \texttt{\mysym{[[}x1 t1 \mysym{...} xn tn\mysym{]]}} in the \mykw{isa} -homomorphism. This must exactly match the dot form in the production -except that all terminals must be omitted --- the metavariables and -nonterminals must occur in the same order as in the production, and -the bounds must be the same. - -% \begin{alltt} -% % test17.9.ott dot form test -% -% \mykw{metavar} ident\mysym{,} x \mysym{::=} \mysym{\mylb\mylb{}} \mykw{isa} string \mysym{\myrb\myrb{}} \mysym{\mylb\mylb{}} \mykw{coq} nat \mysym{\myrb\myrb{}} \mysym{\mylb\mylb{}} \mykw{coq-equality} \mysym{\myrb\myrb{}} \mysym{\mylb\mylb{}} \mykw{hol} string \mysym{\myrb\myrb{}} \mysym{\mylb\mylb{}} \mykw{ocaml} int \mysym{\myrb\myrb{}} -% -% \mykw{indexvar} index\mysym{,} n \mysym{,} i \mysym{::=} \mysym{\mylb\mylb{}} \mykw{isa} nat \mysym{\myrb\myrb{}} \mysym{\mylb\mylb{}} \mykw{coq} nat \mysym{\myrb\myrb{}} \mysym{\mylb\mylb{}} \mykw{hol} num \mysym{\myrb\myrb{}} \mysym{\mylb\mylb{}} \mykw{ocaml} int \mysym{\myrb\myrb{}} -% -% \mykw{grammar} -% -% E \mysym{::} 'E_' \mysym{::=} \mysym{\mylb\mylb{}} \mykw{isa} ( ident * t ) list \mysym{\myrb\myrb{}} -% \mysym{|} < x1 : t1 , \mysym{..} , xn : tn > \mysym{::} \mysym{::} 2 \mysym{\mylb\mylb{}} \mykw{isa} List.rev \mysym{[[}x1 t1 \mysym{..} xn tn\mysym{]]} \mysym{\myrb\myrb{}} -% -% t \mysym{::} 't_' \mysym{::=} -% \mysym{|} unit \mysym{::} \mysym{::} unit -% -% K \mysym{::} 'K_' \mysym{::=} -% \mysym{|} Type \mysym{::} \mysym{::} Type -% -% -% \mykw{formula} \mysym{::} formula_ \mysym{::=} -% \mysym{|} judgement \mysym{::} \mysym{::} judgement -% \mysym{|} formula1 \mysym{..} formulan \mysym{::} \mysym{::} dots -% % | formula1 .. formulan :: :: realdots \mylb{}\mylb{} isa (List.list_all (\mybackslash{} b . b) ( [[ formula1 .. formulan ]] ) ) \myrb{}\myrb{} -% -% \mykw{terminals} \mysym{::} terminals_ \mysym{::=} -% \mysym{|} |- \mysym{::} \mysym{::} turnstile \mysym{\mylb\mylb{}} \mykw{tex} \mybackslash{}vdash \mysym{\myrb\myrb{}} -% \mysym{|} < \mysym{::} \mysym{::} langle \mysym{\mylb\mylb{}} \mykw{tex} \mybackslash{}langle \mysym{\myrb\myrb{}} -% \mysym{|} > \mysym{::} \mysym{::} rangle \mysym{\mylb\mylb{}} \mykw{tex} \mybackslash{}rangle \mysym{\myrb\myrb{}} -% -% \mykw{defns} -% Jtype \mysym{::} '' \mysym{::=} -% -% \mykw{defn} -% |- E \mysym{::} \mysym{::} Eok \mysym{::} Eok_ \mykw{by} -% -% -% \mysym{---------} :: 1 -% |- < > -% -% \mysym{----------------------------} :: 2 -% |- -% -% |- t1:K1 .. |- tn:Kn -% \mysym{----------------------------} :: 3 -% |- -% -% -% \mykw{defn}|- t : K \mysym{::} \mysym{::} tK \mysym{::} tK_ \mykw{by} -% -% \mysym{---------------} :: 1 -% |- unit : Type -% -% \end{alltt} - - -%\par\noindent{\small -\begin{alltt} - E \mysym{::} 'E_' \mysym{::=} \mysym{\mylb\mylb{}} \mykw{isa} ( ident * t ) list \mysym{\myrb\myrb{}} - \mysym{|} < x1 : t1 , \mysym{..} , xn : tn > \mysym{::} \mysym{::} 2 \mysym{\mylb\mylb{}} \mykw{isa} List.rev \mysym{[[}x1 t1 \mysym{..} xn tn\mysym{]]} \mysym{\myrb\myrb{}} - \mykw{formula} \mysym{::} formula_ \mysym{::=} - \mysym{|} judgement \mysym{::} \mysym{::} judgement - \mysym{|} formula1 \mysym{..} formulan \mysym{::} \mysym{::} dots -\end{alltt} -% -% -%\begin{verbatim} -%E :: 'E_' ::= {{ isa ( ident * t ) list }} -% | < > :: :: 1 {{ isa [] }} -% | < x1 : t1 , ... , xn : tn > :: :: 2 {{ isa List.rev [[x1 t1 ... xn tn]] }} -% -%formula :: formula_ ::= -% | judgement :: :: judgement -% | formula1 .. formulan :: :: realdots {{ isa (List.list_all (\ b . b) ( [[ formula1 .. formulan ]] ) ) }} -% -%\end{verbatim} -%} -The generated Isabelle code for symbolic -terms mentioning this production will involve a list of pairs. For -example, the rules -%\mysym{---------} :: 1 -%|- < > -\begin{alltt} -\mykw{defn} -|- E \mysym{::} \mysym{::} Eok \mysym{::} Eok_ \mykw{by} - -\mysym{----------------------------} :: 2 -|- - -|- t1:K1 .. |- tn:Kn -\mysym{----------------------------} :: 3 -|- -\end{alltt} -%\par\noindent{\small -%\begin{verbatim} -%defn -%|- E :: :: Eok :: Eok_ by -% -%---------------------------- :: 2 -%|- -% -%|- t1:K1 ... |- tn:Kn -%---------------------------- :: 3 -%|- -% \end{verbatim} -%} -generate -\par\noindent{\small -\begin{verbatim} -consts - Eok :: "E set" -inductive Eok tK -intros - -(* defn Eok *) - -Eok_2I: " ( List.rev (x_t_list) ) : Eok" - -Eok_3I: "[| -(List.list_all (\ b . b) ( ((List.map (%(x_,t_,K_). ( t_ , K_ ) : tK) x_t_K_list)) ) )|] - ==> - ( List.rev ((List.map (%(x_,t_,K_).(x_,t_)) x_t_K_list)) ) : Eok" - \end{verbatim} -} -Note that in the second the list of pairs is projected out from the -\verb+x_t_K_list+ list of triples that is quantified over in the rule. - - -\section{Subrules}\mlabel{a14}% -Subrule declarations have the form -\begin{alltt} - \mykw{subrules} - nt1 \mysym{<::} nt2 -\end{alltt} -where \texttt{nt1} and \texttt{nt2} are nonterminal roots. - - -Subrules can be chained, i.e.~there can be a pair of -subrule declarations \texttt{nt1 \mysym{<::} nt2} and \texttt{nt2 \mysym{<::} nt3}, -and they can form a directed acyclic graph, e.g.~with -\texttt{nt0 \mysym{<::} nt1}, \texttt{nt0 \mysym{<::} nt2}, -\texttt{nt1 \mysym{<::} nt3}, and \texttt{nt2 \mysym{<::} nt3}. However, there cannot be -cycles, or nonterminal roots for which there are multiple upper bounds. -Subrule declarations should not involve nonterminal roots for which -proof-assistant type homs are specified. - -We support the case in which the upper rule is also -non-free, i.e.~it contains productions that mention nonterminals that -occur on the left of a subrule declaration. In the example below -(\texttt{test11.ott}) the -\texttt{t} rule contains a production \texttt{Foo v}. -\input{test11.alltt} -In this case generated Isabelle/Coq/HOL/OCaml will define a single type and both \texttt{is\_v} -and \texttt{is\_t} predicates, and the generated inductive definition -clause for \texttt{ax} uses both predicates. The Isabelle clause is below. -\begin{verbatim} - axI: "[|is_t t ; is_v v|] ==> ( t , v ) : Baz" -\end{verbatim} - - -\section{Context rules}\mlabel{a69}% -The system supports the definition of single-hole contexts, e.g.~for -evaluation contexts. For example, suppose one has a term grammar as below: -\begin{alltt} -t \mysym{::} 't_' \mysym{::=} \mysym{\mylb\mylb{}} \mykw{com} term \mysym{\myrb\myrb{}} - \mysym{|} x \mysym{::} \mysym{::} Var \mysym{\mylb\mylb{}} \mykw{com} variable\mysym{\myrb\myrb{}} - \mysym{|} \mybackslash{} x . t \mysym{::} \mysym{::} Lam \mysym{(+} \mykw{bind} x \mykw{in} t \mysym{+)} \mysym{\mylb\mylb{}} \mykw{com} lambda \mysym{\myrb\myrb{}} - \mysym{|} t t' \mysym{::} \mysym{::} App \mysym{\mylb\mylb{}} \mykw{com} app \mysym{\myrb\myrb{}} - \mysym{|} ( t1 , \mysym{....} , tn ) \mysym{::} \mysym{::} Tuple \mysym{\mylb\mylb{}} \mykw{com} tuple \mysym{\myrb\myrb{}} - \mysym{|} ( t ) \mysym{::} \mykw{S}\mysym{::} Paren \mysym{\mylb\mylb{}} \mykw{icho} \mysym{[[}t\mysym{]]} \mysym{\myrb\myrb{}} - \mysym{|} \mylb{} t / x \myrb{} t' \mysym{::} \mykw{M}\mysym{::} Tsub - \mysym{\mylb\mylb{}} \mykw{icho} (tsubst_t \mysym{[[}t\mysym{]]} \mysym{[[}x\mysym{]]} \mysym{[[}t'\mysym{]]})\mysym{\myrb\myrb{}} - - \mysym{|} E . t \mysym{::} \mykw{M}\mysym{::} Ctx - \mysym{\mylb\mylb{}} \mykw{icho} (appctx_E_t \mysym{[[}E\mysym{]]} \mysym{[[}t\mysym{]]})\mysym{\myrb\myrb{}} - \mysym{\mylb\mylb{}} \mykw{tex} \mysym{[[}E\mysym{]]} \mybackslash{}cdot \mysym{[[}t\mysym{]]} \mysym{\myrb\myrb{}} -\end{alltt} -% -A context grammar is declared as a normal grammar but with a single -occurrence of the terminal \verb+__+ in each production, e.g. as in -the grammar for \texttt{E} below (a rather strange evaluation -strategy, admittedly). -% -\begin{alltt} -E \mysym{::} 'E_' \mysym{::=} \mysym{\mylb\mylb{}} \mykw{com} evaluation context \mysym{\myrb\myrb{}} - \mysym{|} __ t \mysym{::} \mysym{::} AppL \mysym{\mylb\mylb{}} \mykw{com} app L \mysym{\myrb\myrb{}} - \mysym{|} v __ \mysym{::} \mysym{::} AppR \mysym{\mylb\mylb{}} \mykw{com} app R \mysym{\myrb\myrb{}} - \mysym{|} \mybackslash{} x . __ \mysym{::} \mysym{::} Lam \mysym{\mylb\mylb{}} \mykw{com} reduce under lambda \mysym{\myrb\myrb{}} - \mysym{|} ( t1 ( __ t2 ) ) \mysym{::} \mysym{::} Nested \mysym{\mylb\mylb{}} \mykw{com} hole nested \mysym{\myrb\myrb{}} - \mysym{|} ( v1 , \mysym{..} , vm , __ , t1 , \mysym{..} , tn ) \mysym{::} \mysym{::} Tuple \mysym{\mylb\mylb{}} \mykw{com} tuple \mysym{\myrb\myrb{}} -\end{alltt} -% -A \mykw{contextrules} declaration: -\begin{alltt} -\mykw{contextrules} - E \mysym{_::} t \mysym{::} t -\end{alltt} -causes Ott to (a) check that each production of the \texttt{E} grammar -is indeed a context for the \texttt{t} grammar, and (b) generates -proof assistant functions, e.g.~\verb+appctx_E_t+, to apply a context -to a term: -\begin{verbatim} -(** context application *) -Definition appctx_E_t (E5:E) (t_6:t) : t := - match E5 with - | (E_AppL t5) => (t_App t_6 t5) - | (E_AppR v5) => (t_App v5 t_6) - | (E_Lam x) => (t_Lam x t_6) - | (E_Nested t1 t2) => (t_App t1 (t_App t_6 t2) ) - | (E_Tuple v_list t_list) => (t_Tuple ((app_list_t v_list - (app_list_t (Cons_list_t t_6 Nil_list_t) (app_list_t t_list Nil_list_t))))) -\end{verbatim} -As the \texttt{Nested} production shows, context productions can -involve nested term structure. - -Note also that here the \texttt{E} grammar is not free (it mentions the -subrule nonterminal \texttt{v}) so an isvalue predicate -\verb+is_E_of_E+ is also generated. - - - -In general, context rule declarations have the form -\begin{alltt} - \mykw{contextrules} - ntE \mysym{_::} nt1 \mysym{::} nt2 -\end{alltt} -where \texttt{ntE}, \texttt{nt1}, and \texttt{nt2} are nonterminal -roots. This declares contexts \texttt{ntE} for the \texttt{nt1} -grammar, with holes in \texttt{nt2} positions. - -Just as for substitutions, the context application function is -typically used by adding a metaproduction to the term grammar. -Here we add a production \texttt{E.t} to the \texttt{t} grammar with -an \texttt{icho} hom that uses \verb+appctx_E_t+. -\begin{alltt} -t \mysym{::} 't_' \mysym{::=} \mysym{\mylb\mylb{}} \mykw{com} term \mysym{\myrb\myrb{}} - ... - \mysym{|} E . t \mysym{::} \mykw{M}\mysym{::} Ctx - \mysym{\mylb\mylb{}} \mykw{icho} (appctx_E_t \mysym{[[}E\mysym{]]} \mysym{[[}t\mysym{]]})\mysym{\myrb\myrb{}} - \mysym{\mylb\mylb{}} \mykw{tex} \mysym{[[}E\mysym{]]} \mybackslash{}cdot \mysym{[[}t\mysym{]]} \mysym{\myrb\myrb{}} -\end{alltt} -That can then be used in relations: -\begin{alltt} - t --> t' -\mysym{ --------------} :: ctx - E.t --> E.t' -\end{alltt} - -One would typically also define a \texttt{terminals} production for -the hole terminal \verb+__+, e.g.~here we typeset the hole as $[\cdot]$. -\begin{alltt} -\mykw{terminals} \mysym{::} 'terminals_' \mysym{::=} - \mysym{|} __ \mysym{::} \mysym{::} hole \mysym{\mylb\mylb{}} \mykw{tex} [\mybackslash{}cdot] \mysym{\myrb\myrb{}} -\end{alltt} - - -\section{Auxiliary Rules} -We permit an \texttt{aux} hom on grammar rules. For any rule with such a hom, -we transform that rule by appending an \texttt{\_aux} to its primary nonterminal -root name. We then add a synthesised rule with the original nonterminal -root name and a single production, with a shape described by the body of -the aux hom, which must be of the form -\begin{verbatim} - {{ aux foo1 foo2 _ bar1 bar2 bar3 }} -\end{verbatim} -with a single \texttt{\_} and any number of strings \texttt{fooi} and \texttt{barj} before and -after. The \texttt{\_} is replaced by the original -nonterminal root name. - -For example, given a grammar or metavariable \texttt{l} of source locations, one -might say -\begin{verbatim} -ntr :: 'NTR_' ::= {{ aux _ l }} - | ... -\end{verbatim} -to synthesise grammars \texttt{ntr\_aux} and \texttt{ntr} of unannotated and location-annotated -terms, the first with all the original productions and the second with a -single production -\begin{verbatim} - | ntr l :: :: NTR_aux. -\end{verbatim} -If the rule has an empty production name wrapper (eg with \texttt{''} in place -of \texttt{'NTR\_'}) then the production name is based on the original -nonterminal root, capitalised and with \texttt{\_aux} appended (eg \texttt{Ntr\_aux}), to -avoid spurious conflicts. - -An additional \texttt{auxparams} hom on rules lets the user add type -parameters to the generated OCaml output. - - -Generation of aux rules is controlled by a command-line option -\texttt{-generate\_aux\_rules}, which one might (eg) set to false -for latex output and true for OCaml output. - - -\section{Functions} - -Ott includes experimental support for writing function definitions. - As a simple example, consider the Ott file below: - -\begin{alltt} - \mykw{grammar} - n \mysym{::} 'n_' \mysym{::=} - | 0 \mysym{::} \mysym{::} Zero - | S n \mysym{::} \mysym{::} Succ - - \mykw{funs} - Add \mysym{::=} \mysym{\mylb\mylb{}} hol-proof ... \mysym{\myrb\myrb{}} - \mykw{fun} - n1 + n2 \mysym{::} n \mysym{::} add \mysym{\mylb\mylb{}} com a function of type num -> num -> num \mysym{\myrb\myrb{}} - \mykw{by} - 0 + n2 \mysym{===} n2 - S n1 + n2 \mysym{===} n1 + S n2 -\end{alltt} - -Here the \verb+add+ function is compiled into the following Coq code: - -\begin{alltt} - Fixpoint add (x1:num) (x2:num) : num:= - match x1,x2 with - | n_zero , n2 => n2 - | (n_succ n1) , n2 => (add n1 (n_succ n2) ) - end. -\end{alltt} - -More in detail, the - \mykw{fun} - n1 + n2 \mysym{::} n \mysym{::} add - \mykw{by} - declaration specifies: -\begin{itemize} -\item the name of the function: \verb+add+ -\item the symbolic term that defines the lhs: \verb-n1 + n2- -\item the non-terminal that defines the rhs: \verb+n+ -\end{itemize} - -The type of the arguments of the function is defined by the - non-terminals appearing in the lhs, the return type by the rhs - non-terminal (so \verb+num+ $\to$ \verb+num+ $\to$ \verb+num+ in the - above example). As side-effect, whenever a function of type - \verb+symb_term+ $\to$ \verb+nt+ is defined, a production - \verb+nt ::= symb_term+ is added to the definition of the - non-terminal \verb+nt+ (in the above example, the production - \verb-n1 + n2- is added to the grammar of \verb+num+). - -Functions are then defined by case analysis, where the lhs and the rhs -are separated by the reserved symbol \mysym{===}. - -The \mysym{\mylb\mylb{}} \verb+hol-proof+ \mysym{\myrb\myrb{}} hom - allows the specification of a termination proof, which is required by - Hol. Mutually recursive functions can be defined in the same - \mykw{funs} block, analogously to mutually recursive rule - definitions. - -\emph{Disclaimer:} the different treatment of partial functions by the - different provers can result in a function definition being compiled - correctly to one prover but not to others. - - - - -\section{Parsing Priorities} - -Symbolic terms that can have more than one parse tree are typically considered -erroneous; however, certain classes of parse trees are ignored in order to -support common idioms that are ambiguous. For example, the production -% -\[\Gamma ::= \Gamma_1, .., \Gamma_n\] -% -might be used to allow a list of typing contexts to be appended together, but -it is highly ambiguous. The following restrictions forbid many unwanted parses -that could otherwise occur. -% -\begin{itemize} -\item -All parses in which a nonterminal derives itself without consuming any input -are ignored. For example, in the production above, the list could otherwise be -of length one so that $\Gamma$ directly derives $\Gamma$ giving rise to a -vacuous cycle, and an infinite forest of parse trees. This restriction -ensures that only the tree without the vacuous cycle is considered. -\item -The parser for a list form ignores parses that unnecessarily break up the list -due to (direct or indirect) self reference. For example, -$\Gamma_1,\Gamma_2,\Gamma_3,\Gamma_4$ will not parse as a two element sequence -of two element sequences $(\Gamma_1,\Gamma_2),(\Gamma_3,\Gamma_4)$ given the -production above. -\item -%\textit{\large Experimental Feature:} -User supplied priority annotations in a \mykw{parsing} section rule out certain -trees as follows: -\begin{itemize} -\item -$\mathit{prodname}_1 \mysym{<=} \mathit{prodname}_2$: Parse trees where a -$\mathit{prodname}_1$ node is a child of a $\mathit{prodname}_2$ node are -ignored. -\item -$\mathit{prodname}_1~\mykw{right}~\mathit{prodname}_2$: Parse trees where a -$\mathit{prodname}_1$ node is the leftmost child of a $\mathit{prodname}_1$ -node are ignored. -\item -$\mathit{prodname}_1~\mykw{left}~\mathit{prodname}_2$: Parse trees where a -$\mathit{prodname}_2$ node is the rightmost child of a $\mathit{prodname}_1$ -node are ignored. -\end{itemize} -In addition to immediate children, these priority annotations also prohibit -parse trees where the forbidden child node occurs underneath a chain of -derivations from the specified parent when the chain does not consume any -input. -Figure~\ref{parsing_figure} demonstrates a typical use of a \mykw{parsing} -section; the declarations have effect as follows: -\begin{itemize} -\item -Line \#1: \verb|n + n + n| parses as \verb|(n + n) + n|, but not \verb|n + (n + n)|; -\item -Line \#3: \verb|n + n - n| parses as \verb|(n + n) - n|, but not \verb|n + (n - n)|; -\item -Line \#9: \verb|-n + n| parses as \verb|(-n) + n|, but not \verb|-(n + n)|; -\item -Line \#15: \verb|n + n n| parses as \verb|n + (n n)|, but not \verb|(n + n) n|; -\verb|n n + n| parses as \verb|(n n) + n|, but not \verb|n (n + n)|; -\item -Line \#20: \verb|n, n n, n| parses as \verb|n, (n n), n|, but not \verb|(n, n) (n, n)|. -\end{itemize} -Currently, the \mykw{parsing} section supports only these relatively low level -and verbose declarations. -\end{itemize} - -\begin{figure} - -\begin{alltt} -\input{test21.1.alltt} -\label{parsing_figure} -\end{alltt} - -\caption{An Ott source file for basic arithmetic using the typical parsing priorities} -\end{figure} - -\section{Combining multiple source files} -Ott can be invoked with multiple source files. -% on the command line, -%either as multiple files at the end of the command line or as multiple -%\texttt{-i } options. -% -Input filenames with extensions \texttt{.tex}, \texttt{.v}, -\texttt{.thy}, \texttt{.sml}, or \texttt{ml} are simply copied into -the relevant output (\LaTeX, Coq, Isabelle, HOL, or OCaml). -% -By default the source-file and command-line order of blocks is preserved, for grammar, -embeds, and inductive definitions. - -The prover output can be split into multiple output files: each prover -output file specified with \texttt{-o } will contain the material -from the previous input files specified with \texttt{-i} (since the last \texttt{-o} -for the same prover). - - -Alternatively, one can add a \texttt{-merge true} command-line option, -in which case -the productions of multiple grammars that share the same header -are merged into a single grammar, and the rules of multiple -inductive definitions that share the same header are merged into a -single inductive definition. -% -This rudimentary form of modularity can be very useful, either to -split a language definition into separate features, or to define -reusable Ott components to define standard formulae, \myLaTeX{} pretty -printing of terminals, or \myLaTeX{} styles. -For example, Figure~\ref{a12} shows the Ott source file for a -\texttt{let} feature in isolation, taken from our Ott development of -some languages from Pierce's TAPL~\cite{Pierce:TypeSystems}. -\begin{figure} -\framebox[\columnwidth]{\hspace{1.7mm}\begin{minipage}{\columnwidth} -%\footnotesize -\small -%\scriptsize -%\verbatiminput{../tests/test10.ott} -\input{let.alltt}\end{minipage}} -\caption{An \texttt{ott} source file for the \texttt{let} fragment of TAPL\protect\label{a12}} -\end{figure} -The original TAPL languages were produced using -TinkerType~\cite{LevinPierce99} to compose features and check for -conflicts. -In \texttt{examples/tapl} we build a system, similar to the TinkerType -\texttt{sys-fullsimple}, from \texttt{ott} source files that -correspond roughly to the various TinkerType components, each with -syntax and semantic rules for a single feature. - - - - -\section{Hom blocks} -Bindspecs and homomorphisms for productions, and any homomorphisms -for definitions, can appear in an Ott source file either -attached to the production or definition, as we have shown earlier, or -in separate hom blocks. -For example, one can write -\begin{alltt} -\mykw{homs} 't_' - \mysym{::} Lam \mysym{(+} \mykw{bind} x \mykw{in} t \mysym{+)} - -\mykw{homs} 't_' - \mysym{::} Var \mysym{\mylb\mylb{}} \mykw{com} variable \mysym{\myrb\myrb{}} - \mysym{::} Lam \mysym{\mylb\mylb{}} \mykw{com} abstraction \mysym{\myrb\myrb{}} - \mysym{::} App \mysym{\mylb\mylb{}} \mykw{com} application \mysym{\myrb\myrb{}} - \mysym{::} paren \mysym{\mylb\mylb{}} \mykw{ich} \mysym{[[}t\mysym{]]} \mysym{\myrb\myrb{}} - \mysym{::} tsub \mysym{\mylb\mylb{}} \mykw{ich} ( tsubst_t \mysym{[[}t\mysym{]]} \mysym{[[}x\mysym{]]} \mysym{[[}t'\mysym{]]} ) \mysym{\myrb\myrb{}} - -\mykw{homs} '' - \mysym{::} reduce \mysym{\mylb\mylb{}} \mykw{com} \mysym{[[}t1\mysym{]]} reduces to \mysym{[[}t2\mysym{]]} \mysym{\myrb\myrb{}} -\end{alltt} -% -Each of these begins with a prefix and then has a sequence of -production name or definition name kernels, each followed by a -sequence of bindspecs and then a sequence of homomorphisms. - -The \verb+test10_homs.ott+ example, in Fig.~\mref{a38}, shows this. It -is semantically equivalent to the \verb+test10.ott+ example of -Fig.~\mref{a68}, but the homs have been moved into \texttt{hom} -blocks. -\begin{figure} -\fbox{\begin{minipage}{\textwidth} -\input{test10_homs.alltt} -\end{minipage}} -\caption{Hom Sections: \texttt{test10\_homs.ott}\protect\label{a38}} -\end{figure} - - -\section{Isabelle syntax support}\mlabel{a39}% -Ott has limited facilities to allow the Isabelle mixfix syntax support -and xsymbol to be used. The example \verb+test10_isasyn.ott+ shows -this in use. -% - -Non-meta productions can be annotated with -\mykw{isasyn} and/or \mykw{isaprec} homomorphisms. -For example, \verb+test10_isasyn.ott+ contains the production -\begin{alltt} - \mysym{|} t t' \mysym{::} \mysym{::} App \mysym{\mylb\mylb{}} \mykw{isasyn} \mysym{[[}t\mysym{]]}\mybackslash{}\mysym{[[}t'\mysym{]]} \mysym{\myrb\myrb{}} \mysym{\mylb\mylb{}} \mykw{isaprec} 50 \mysym{\myrb\myrb{}} -\end{alltt} -The two homs are used to output the Isabelle syntax annotation in the -\verb+t_App+ clause of the datatype definition below. -\par\noindent{\small -\begin{verbatim} -t = - t_Var "termvar" - | t_Lam "termvar" "t" ("\ _ . _" 60) - | t_App "t" "t" ("_\_" 50) -\end{verbatim} -} -Definitions can be annotated with -\mykw{isasyn} and/or \mykw{isaprec} homomorphisms similarly, e.g.~as below. -\begin{alltt} - \mykw{defn} - t1 --> t2 \mysym{::} \mysym{::} reduce \mysym{::} '' \mysym{\mylb\mylb{}} \mykw{isasyn} \mysym{[[}t1\mysym{]]} ---> \mysym{[[}t2\mysym{]]} \mysym{\myrb\myrb{}} \mykw{by} -\end{alltt} -This generates \verb+syntax+ and \verb+translations+ blocks as below. -\par\noindent{\small -\begin{verbatim} -inductive_set reduce :: "(t*t) set" -and "reduce'" :: "t => t => bool" ("_ ---> _" 50) -where "(t1 ---> t2) == ( t1 , t2 ) : reduce" -\end{verbatim} -} -Symbolic terms in definitions are printed using any production or -definition syntax. This (especially with xsymbol turned on) makes the -current goal state during Isabelle proof development much more -readable. - -Further, there is a command line option \verb+-isa_syntax true+. If -this is set then the tool generates Isabelle syntax annotations from -the source syntax. For example, the source file production for the -\verb+t_Lam+ clause is -\begin{alltt} - \mysym{|} \mybackslash{} x . t \mysym{::} \mysym{::} Lam \mysym{\mylb\mylb{}} \mykw{isaprec} 60 \mysym{\myrb\myrb{}} -\end{alltt} -and the \verb+terminals+ grammar contains a mapping from \verb+\+ to \verb+\+: -\begin{alltt} - \mykw{terminals} \mysym{::} 'terminals_' \mysym{::=} - \mysym{|} \mybackslash{} \mysym{::} \mysym{::} lambda \mysym{\mylb\mylb{}} \mykw{tex} \mybackslash{}lambda \mysym{\myrb\myrb{}} \mysym{\mylb\mylb{}} \mykw{isa} \mybackslash{} \mysym{\myrb\myrb{}} - \mysym{|} --> \mysym{::} \mysym{::} red \mysym{\mylb\mylb{}} \mykw{tex} \mybackslash{}longrightarrow \mysym{\myrb\myrb{}} \mysym{\mylb\mylb{}} \mykw{isa} ---> \mysym{\myrb\myrb{}} -\end{alltt} -This is used (just as for \myLaTeX{} homs) to generate the \verb+("\ _ . _" 60)+ -in the datatype definition above. - - -This functionality is limited in various ways: -(1) the full range of Isabelle precedence and associativity -specifications are not supported; -(2) the automatically generated syntax annotations are somewhat crude, -especially w.r.t.~spacing and parenthesisation; -(3) syntax annotation on meta productions is not propertly supported; -and -(4) it would be desirable to have more fine-grain control of whether -to automatically generate annotations: per-production, per-rule, and -per-file. - - -%For example, the \verb+out.thy+ produced by -%\verb+make test10_isasyn+ (which includes this option), the annotation -%on - - -\section{Isabelle code generation example}\mlabel{a22}% -The Isabelle/Coq/HOL code generation facilities can be sometimes used to -generate (variously) OCaml and SML code from the Isabelle/Coq/HOL -definitions produced by Ott. - -For example, the \verb+test10st_codegen.thy+ file uses Isabelle -code generation to produce SML code to calculate the possible -reductions of terms in the \verb+test10st.ott+ simply typed lambda -calculus. - -\verbatiminput{../tests/test10st_codegen.thy} - -\section{Reference: Command-line usage}\mlabel{a32}% -A good place to get started is one of the test -\texttt{make} targets in the \texttt{ott} directory, e.g. -\begin{verbatim} -test10: tests/test10.ott - bin/ott \ - -i tests/test10.ott \ - -o out.thy -o out.v -o outScript.sml \ - -o out.tex \ - -parse ":t: (\z.z z) y" \ - && ($(LATEX) out; $(DVIPS) out -o) -\end{verbatim} -When \verb+make test10+ is executed, \texttt{ott}: -\begin{itemize} -\item reads the source file \verb+tests/test10.ott+ -\item (if one also specifies \texttt{-show\_post\_sort true} and \texttt{-show\_defns -true}) prints on standard output various diagnostic information, - including ASCII versions of the grammar and - inductive definitions. - By default these are coloured (using - \verb+vt220+ control codes) with metavariables in red, nonterminals - in yellow, terminals in green, and object variables in white. - Scanning over this output quickly picks up some common errors. -\item parses the symbolic term \verb+(\z.z z) y+ using the \verb+t+ - grammar and prints the result to standard output -\item generates Isabelle definitions in the file \verb+out.thy+ -\item generates Coq definitions in the file \verb+out.v+ -\item generates HOL definitions in the file \verb+outScript.sml+ -\item generates a \myLaTeX{} document in the file \verb+out.tex+, with a - standard document preamble to make it self-contained. -\end{itemize} -That \myLaTeX{} document is then compiled and converted to postscript. - -%If multiple source files are specified then they are (after parsing) -%effectively concatenated together. - -For convenience, input files can also be listed at the end of the command line: -\begin{verbatim} - ott [options] ... -\end{verbatim} -is equivalent to -\begin{verbatim} - ott -i ... -i [options] -\end{verbatim} - - -The~\verb+%.out+ \verb+Makefile+ target runs \verb+ott+ with common -defaults on the file~\verb+%.ott+, so for example executing \verb+make tests/test10.out+ -runs \verb+ott+ on \verb+tests/test10.ott+, generating all outputs. There are -also targets ~\verb+%.coq.out+, ~\verb+%.hol.out+, and -~\verb+%.isa.out+, to generate just LaTeX and the code for one proof -assistant, and ~\verb+%.tex.out+, to generate just LaTeX. - - - -The \texttt{ott} command-line options (with default values where applicable) are -shown below. -\verbatiminput{options.txt} - -%By default the Makefile compiles Ott using \texttt{ocamlopt}. To force it to -%compile with \texttt{ocamlc} (to get backtraces on exceptions) do \texttt{make opt}. - - -\section{Reference: The language of symbolic terms}\mlabel{a17}% -% -A syntax definition conceptually defines two different languages: that -of concrete terms of the object language, and that of symbolic terms -over the object language. -The former includes concrete variables (if nontrivial \verb+lex+ homs -have been specified for metavariables). -The latter includes the former but also -allows symbolic metavariables and nonterminals. -% -Symbolic terms may also include the %\verb+:deeper:+ and -production-name -annotations mentioned in \S\mref{a51}. -For a syntax definition with list forms (c.f.~\S\mref{a61}) symbolic -terms also include various list constructs. -A simplified abstract syntax of symbolic terms is shown in -Figure~\ref{a19}, omitting list forms. In this section we give an -informal definition of the full concrete syntax of symbolic terms. -\begin{figure}[t] -\begin{toimage} -\framebox[\columnwidth]{ \begin{minipage}{\columnwidth} -\small -\symtermgrammar -\end{minipage}} -\end{toimage}% -\imageflush -\caption{Mini-Ott in Ott: symbolic terms\label{a19}} -\end{figure}% - - - - - -The premises and conclusions of inductive definition rules are -symbolic terms. \newcommand{\sem}[1]{[\![#1]\!]} -The language of symbolic terms is defined informally below, with interpretation functions $\sem{\_}$ that map defined entities into grammar clauses. - -For a rule $\mathit{rule} \, = $ -\[ \mathit{nontermroot}_1 \, , \, .. \, , \, \mathit{nontermroot}_n \texttt{::} \, \texttt{''} \, \texttt{::=} \, \mathit{prod_{{\mathrm{1}}}} \, .. \, \mathit{prod_{\mathit{m}}} \] -we have -\[\begin{array}{lcll} - \sem{\mathit{rule}} & ::= & \\ -& | & \mathit{nontermroot} \mathrm{suffix} & (1) \\ -& | & \sem{\mathit{prod_{{\mathrm{1}}}}} \\ -& | & .. \\ -& | & \sem{\mathit{prod_{\mathit{m}}}} - \end{array}\] - -(1) for each $\mathit{nontermroot}$ in the set - $\{\mathit{nontermroot}_1 \, , \, .. \, , \, - \mathit{nontermroot}_n \}$ -and for each $\mathit{nontermroot}$ defined by any $\mathit{rule}'$ - which is declared as a subrule of this rule. - - -For a production $ \mathit{prod} \, = $ -\[ \texttt{|} \, \mathit{element_{{\mathrm{1}}}} \, .. \, \mathit{element_{\mathit{m}}} \, \texttt{::} \, \texttt{::} \, \mathit{prodname}\] -we have -\[\begin{array}{lcl} - \sem{\mathit{prod}} & ::= & \\ -& | & \sem{\mathit{element_{{\mathrm{1}}}}} \, .. \, \sem{\mathit{element_{{\mathit{m}}}}} \\ -& | & \texttt{:}\mathit{prodname}\texttt{:}\, \sem{\mathit{element_{{\mathrm{1}}}}} \, .. \, \sem{\mathit{element_{{\mathit{m}}}}} -\end{array} -\] - - -For an element there are various cases. -\begin{enumerate} -\item For a terminal $\mathit{terminal}$ -\[\begin{array}{lcl} - \sem{\mathit{terminal}} & ::= & \mathit{terminal}\\ -\end{array}\] -\item For a nonterminal $\mathit{nontermroot} \, \mathit{suffix}$ -\[\begin{array}{lcl} - \sem{\mathit{nontermroot} \, \mathit{suffix}} & ::= & \sem{\mathit{rule}} -\end{array}\] -where $\mathit{rule}$ includes $\mathit{nontermroot}$ among the -nonterminal roots it defines. (Note that this does not depend on what $\mathit{suffix}$ was used in the grammar, and similarly for the $\mathit{metavar}$ case below.) - -\item For an index variable $\mathit{indexvarroot}$ -\[\begin{array}{lcl} - \sem{\mathit{indexvarroot}} & ::= & \mathit{indexvarroot}' - \end{array}\] -for each $\mathit{indexvarroot}'$ defined by the \texttt{indexvar} -definition that defines $\mathit{indexvarroot}$. - -\item For a metavariable $\mathit{metavarroot} \, \mathit{suffix}$ -\[\begin{array}{lcll} - \sem{\mathit{metavarroot} \, \mathit{suffix}} & ::= & \\ -& | & \mathit{metavarroot}' \mathrm{suffix} & (1) \\ -& | & \mathit{variable} \\ -\end{array}\] -(1) for each $\mathit{metavarroot}'$ defined by the \texttt{metavar} -definition that defines $\mathit{metavarroot}$. -(2) where $\mathit{variable}$ ranges over all the strings defined by -the \texttt{lex} regexp of the \texttt{metavar} -definition that defines $\mathit{metavarroot}$, except for any string -which can be parsed as a nonterminal, metavariable or terminal of the syntax -definition. -\item A list form element $\mathit{element}$ could be any of the following, either without a separating terminal: -\[\begin{array}{l} -\mathit{element}_1 .. \mathit{element}_n -\, \mathit{dots} \, -\mathit{element}'_1 .. \mathit{element}'_n -\\ -\texttt{} -\\ -\texttt{} -\\ -\texttt{} -\\ -\texttt{} -\end{array}\] -or with a separating terminal: -\[\begin{array}{l} -\mathit{element}_1 .. \mathit{element}_n -\, \mathit{terminal} \, \mathit{dots} \, \mathit{terminal} \, -\mathit{element}'_1 .. \mathit{element}'_n -\\ -\texttt{} -\\ -\texttt{} -\\ -\texttt{} -\\ -\texttt{} -\end{array}\] -In any of these cases the interpretation $\sem{\mathit{element}}$ is the lists (separated by the $\mathit{terminal}$ if one was specified) of concrete list entries and of list forms. -Without a separating $\mathit{terminal}$, this is: -\[\begin{array}{lcll} - \sem{\mathit{element}} & ::= & (\mathrm{concrete\_list\_entry} | \mathrm{list\_form})^* & (2), (3)\\ -\ \\ -\mathrm{concrete\_list\_entry} & ::= & \sem{\mathit{element}_1} \, .. \, \sem{\mathit{element}_n} \\ -\ \\ -\mathrm{list\_form} & ::= & \\ - & | & \sem{\mathit{element}_1} \, .. \, \sem{\mathit{element}_n} - \,\mathit{dots}'\, - \sem{\mathit{element}'_1} \, .. \, \sem{\mathit{element}'_n} & (1) \\ - - & | & \texttt{} -\\ - & | & \texttt{} -\\ - & | & \texttt{} -\\ - & | & \texttt{} -\end{array}\] -This is subject to constraints: (1) that -$\sem{\mathit{element}_1} \, .. \, \sem{\mathit{element}_n}$ -and -$\sem{\mathit{element}'_1} \, .. \, \sem{\mathit{element}'_n}$ can be -anti-unified with exactly one varying index; (2) if the list has only -concrete entries (i.e., no list forms), its length must meet -the constraint of any $\mathrm{dots}$ in the -$\mathit{element}$. - - -With a separating $\mathit{terminal}$, we have: -\[\begin{array}{lcll} - \sem{\mathit{element}} & ::= & \epsilon | (\mathrm{concrete\_list\_entry} | \mathrm{list\_form}) -(\mathit{terminal} (\mathrm{concrete\_list\_entry} | \mathrm{list\_form}))^* -\end{array}\] - -\end{enumerate} - -In the above -\[\begin{array}{lcll} -\mathrm{dots} & ::= & \texttt{..} | \texttt{...} | \texttt{....} \\ -\mathrm{number} & ::= & \texttt{0} | \texttt{1} \\ -\mathrm{suffix} & ::= & \mathrm{suffix\_item}^* \\ -\mathrm{suffix\_item} & ::= & \\ - & | & -(\texttt{0} | \texttt{1} |\texttt{2} | \texttt{3} |\texttt{4} | \texttt{5} |\texttt{6} | \texttt{7} |\texttt{8} | \texttt{9})^+ & \mbox{(longest match)} \\ -& | & \texttt{\_} \\ -& | & \texttt{'} \\ -& | & \mathit{indexvar} \\ -& | & \mathit{indexvar}\texttt{-1} \\ -\end{array}\] - -Further, whitespace (\verb+' '|'\010'|'\009'|'\013'|'\012'+) is allowed before any token except a those in a suffix, and nonterminals, metavariables, index variables, and terminals that end with an alphanumeric character, must not be followed by an alphanumeric character. - - - -The tool also builds a parser -for concrete terms, with fake nonterminal roots \texttt{concrete\_ntr} -for each primary \texttt{ntr} of the syntax definition. One can -switch to concrete-term parsing with a \texttt{:concrete:} annotation, -as in the example -\par\noindent{\small -\begin{verbatim} -\[ [[ :concrete: \Z1<:Top. \x:Z1.x ]]\] -\end{verbatim} -} -shown in Figure~\ref{a56}. Below such an annotation, only concrete terms -are permitted, with no further annotation, no symbolic nonterminals or -metavariables, no list dot forms or comprehensions, etc. - - - -Parsing of terms is done with a scannerless GLR parser over character-list -inputs. The parser -searches for all parses of the input. If none are found, the ASCII -and TeX output are annotated \texttt{no parses}, with a copy of the -input with \texttt{***} inserted at the point where the last token was -read. This is often at the point of the error (though if, for -example, a putative dot form is read but the two element lists cannot -be anti-unified, it will be after the point of the error). -If multiple parses are found, the TeX output is annotated -\texttt{multiple parses} and the different parses are output to the -console in detail during the Ott run. - -The GLR parser -achieves reasonable performance on the small symbolic terms that are -typical in semantic rules. Its performance on large (whole-program -size) examples is untested. - -\section{Reference: Generation of proof assistant definitions}\mlabel{a42}% -This section briefly summarises the steps involved in the generation -of proof assistant definitions from an Ott source file. For a description of the locally-nameless backend, refer to \ahrefurl{http://moscova.inria.fr/~zappa/projects/ln\_ott/}. -\subsection{Generation of types} -\begin{itemize} -\item The primary metavariable roots and primary nonterminal roots are used - directly as the names of proof assistant types, except where they - have a hom specifying a root-overriding string. -\item Type abbreviation declarations are produced for metavars, in the - source-file order, skipping metavars or nonterminals defined with \mykw{phantom}. -\item Type generation considers each rule of the user's source grammar - except those for \verb+formula+ and \verb+terminals+ (or the - synthesized rules for the syntax of judgements or \verb+user_syntax+). -\item The subrule order is analysed to identify the top elements. For - each of those, a proof assistant type will be generated --- either a - free type (\verb+coq+: \verb+inductive+, \verb+isa+: - \verb+datatype+, \verb+hol+: \verb+Hol_datatype+), or if there is a - type hom for the proof assistant in question, a type abbreviation. - No types are generated for the non-top elements, as they will be - represented as predicates over the top free type above them. -\item For the former, each non-meta production of the rule - gives rise to a constructor. The production name (with any per-rule - prefix already applied) is used directly as the constructor name. - The (curried) constructor argument types are taken from the - types associated with the metavariables and nonterminals mentioned - in the production body. -\item Rules (within each \mykw{grammar} block, if \texttt{-merge -false}, or all rules, if \texttt{-merge true}) are topologically sorted according to the dependency order - (a free-type rule directly depends on another if one of its non-meta - productions includes a nonterminal of the other; dependencies for rules with a type-hom - for the proof assistant in question - are obtained from a crude lexing of the body of the type hom). - We then generate mutually recursive type - definitions for connected components, in an order consistent with - the dependencies. -\item For productions that involve list dot forms or list comprehension - forms, for HOL and Isabelle we produce constructors with argument - types that involve native list types. For Coq, however, we - synthesise an additional inductive type for each list-of-tuples that arises - (both for those that occur in the grammar and for others required in - the translations of inductive definitions) and include them in the - topological sort. -\end{itemize} - -\subsection{Generation of functions} -% -A small number of library functions (\verb+list_mem+, -\verb+list_minus+,...) are included in the output if they are -required. - -Several Coq list functions (\verb+map+, \verb+make+, \verb+unmake+, \verb+nth+, \verb+app+) are generated -for each synthesized list type. - -The definitions of the more interesting functions (subrule predicates, -binding auxiliaries, free variable functions, and substitutions) are -generated over the free types generated for the maximal elements of the -subrule order (generation of these functions for rules with type homs -is not supported). The definitions are by pattern-matching and -recursion. -The patterns are generated by building canonical symbolic terms from -the productions of each relevant rule. -The recursion is essentially primitive recursion: -for Coq we produce \verb+Fixpoint+s or \verb+Definition+s -(the latter is sometimes needed as the former gives an error in the case where there is no -recursion); -for Isabelle we produce \verb+primrec+s (or, experimentally, \verb+fun+s); -for HOL we use an \verb+ottDefine+ variant of the \verb+Define+ -package. -% -In general we have to deal both with the type dependency -(the topologically sorted mutually recursive types described above) -and with function dependency --- for example, for subrule predicates -and binding auxiliaries we may have multiple mutually recursive -functions over the same type. - - -For Coq the function generation over productions that involve list -types must mirror that, so we generate auxiliary functions -that recurse over those list types. - -For Isabelle the \verb+primrec+ package does not support -definitions involving several mutually recursive functions over the -same type, so for these we generate single functions calculating -tuples of results, define the intended functions as projections of -these, and generate lemmas (and simple proof scripts) characterising -them in terms of the intended definitions. -% -Further, it does not support pattern matching involving nested -constructors. We therefore generate auxiliary functions for -productions with embedded list types. Isabelle tuples are treated as -iterated pairs, so we do the same for productions with tuples of size -3 or more. -% -Isabelle also requires a function definition for each recursive type. -In the case where there are multiple uses of the same type -(e.g.~several uses of \verb+t list+ in different productions) all the -functions we wish to generate need identical auxiliaries. As yet, the -tool does not generate the identical copies required. - -If the option \verb+-isabelle_primrec+ is set to \verb+false+, then -Ott uses the \verb+fun+ package instead of the \verb+primrec+ package. -Since at the time of writing Isabelle 2008 is not capable of proving -automatically termination of all the \verb+fun+s that Ott generates, -this feature should be considered experimental. - -For HOL the standard \verb+Define+ package tries an automatic -termination proof. For productions that involve list types -our generated functions involve various list functions which prevent -those proofs working in all cases. -We therefore use an \verb+ottDefine+ variant (due to Scott Owens), - with slightly stronger support for proving termination of -definitions involving list operators. - - - -\subsubsection{Subrule predicates}\mlabel{a43}% -We generate subrule predicates to carve out the subsets of each free -proof assistant type (from the maximal elements of the subrule order) -that represent the rules of the grammar. -The non-free rules are the least subset of the rules that either -(1) occur on the left of a subrule (\verb+<::+) declaration, or -(2) have a (non-meta) production that mentions a non-free rule. -Note that these can include rules that are maximal elements of the -subrule order, e.g.~if an expression grammar included a production -involving packaged values. -The subrule predicate for a type is defined by pattern matching over -constructors of the maximal type above it --- for each non-meta -production of the maximal type it calculates a disjunction -over all the productions of the lower type that are subproductions of -it, invoking other subrule predicates as appropriate. - - -\subsubsection{Binding auxiliaries} -The binding auxiliary functions calculate the intuitive semantics of auxiliary functions defined in bindspecs of the Ott source file. Currently these are represented as proof assistant lists of metavariables or nonterminals (arguably set types should be used instead, at least in Isabelle). - - -\subsubsection{Free variables} -The free variable functions simply walk over the structure of the free proof assistant types, using any bind specifications (and binding auxiliaries) as appropriate. -% -For these, and for substitutions, we simplify the generated functions by using the dependency analysis of the syntax to exclude recursive calls where there is no dependency. - - -\subsubsection{Substitutions} -The generated substitution functions also walk over the structure of the free proof assistant types. -For each production, for each occurrence of a nonterminal \verb+nt+ within it, we first calculate the things (of whatever type is in question) binding in that \verb+nt+, i.e.~those that should be removed from the domain of any substitution pushed down into it. There are two cases: -(1) the \verb+mse'+ from any \verb+bind mse' in nt+; -%(2) the \verb+f(nt)+ which occur in the \verb+mse''+ of any \verb+bind mse'' in nt''+ -% in the production, i.e.~any auxiliary-defined things within \verb+nt+ which are used to bind elsewhere; and -(2) \verb+nt+ itself if it occurs in the \verb+mse''+ of any \verb+bind mse'' in nt''+, i.e.~ -\verb+nt+ itself if it is directly used to bind elsewhere. -List forms within bindspecs are dealt with analogously. -% - -The substitution function clause for a production is then of one of two forms: -either (1) the production comprises a single element, of the nonterminal or metavariable that we are substituting for, and this is within the rule of the nonterminal that it is being replaced by, or (2) all other cases. -For (1) the element is compared with the domain of the substitution, and replaced by the corresponding value from the range if it is found. -For (2) the substitution functions are mapped over the subelements, having first removed any bound things from the domain of the substitution. - -This is all done similarly, but with differences in detail, for single and for multiple substitutions. - - -\subsection{Generation of relations} -The semantic relations are defined -with the proof-assistant inductive relations packages -(\verb+coq+: \verb+Inductive+, -\verb+isa+: \verb+inductive+, -\verb+hol+: \verb+Hol_reln+). -% -They use the mutual recursion structure that is given by the user, -with each \verb+defns+ block giving rise to a potentially mutually -recursive definition of each \verb+defn+ inside it. -(It is debatable whether it would be preferable to do an automatic dependency analysis and topological sort, as for the syntax.) -% -Each definition rule gives rise to an implicational clause, essentially -that the premises (Ott \verb+formula+s) imply the conclusion (an Ott symbolic term of whichever judgement is being defined). -In addition: -\begin{itemize} -\item Symbolic terms are transformed in various different ways: -\begin{itemize} -\item Nodes of non-meta productions are output as applications of the appropriate proof-assistant constructor (and, for a subrule, promoted to the corresponding constructor of a maximal rule). -\item Nodes of meta productions are transformed with the user-specified homomorphism. -\item Nodes of judgement forms are represented as applications of the defined relation in Coq and HOL, and as set-membership assertions in Isabelle. -\item Lists of formulae (the \verb+formula_dots+ production) are special-cased. -\end{itemize} -\item For each nonterminal of a non-free syntax rule (as in \S\mref{a43}) that occurs, - e.g.~a usage of \verb+v'+ where \verb+v<::t+, an additional premise invoking the subrule predicate for the non-free rule is added, e.g.~\verb+is_v v'+. -\item The set of symbolic terms of the definition rule are analysed together to identify list forms with the same bounds. A single proof assistant variable is introduced for each such, with appropriate projections and list maps/foralls at the usage points. -\item For Coq, auxiliary defined relations are introduced for list forms. -\item For Coq, as the projections from list forms involve (Ott-generated) \verb+nth+ functions that return option types, for any such projection a pattern-match against \verb+Some+ is introduced as an additional premise. -\item For Coq and HOL, explicit quantifiers are introduced for all variables mentioned in the rule. -\end{itemize} - - - - -\section{Reference: Summary of homomorphisms}\mlabel{a41}% -% -Homomorphisms can appear in various positions in an Ott source -file. The table below summarises their meanings. A \tick{} indicates that arguments are meaningful for that usage (e.g.~\texttt{\mysym{[[}e1\mysym{]]}} in a production mentioning a nonterminal or metavariable -\verb+e1+). - -\begin{tabular}{lcl} -% Hu_root -\multicolumn{3}{l}{a metavar or indexvar declaration, after one of the defined metavar/indexvar roots, or}\\ -\multicolumn{3}{l}{a rule, after one of the defined nonterminal - roots}\\ \hline -\mykw{tex} & \tick & \myLaTeX{} typesetting for symbolic variables with that root\\ -\mykw{isa}/\mykw{coq}/\mykw{hol}/\mykw{ocaml} & & Isabelle/Coq/HOL/OCaml root overriding string (1) \\ -\mykw{repr-locally-nameless} & & use a locally-nameless representation (Coq backend only) \\ -\ \\ -% -\end{tabular} - - -% Hu_metavar -\begin{tabular}{lcl} -\multicolumn{3}{l}{a metavar or indexvar declaration, after the \texttt{::=}}\\ \hline -% -\mykw{isa} & & Isabelle representation type \\ -\mykw{coq} & & Coq representation type \\ -\mykw{hol} & & HOL representation type \\ -\mykw{ocaml} & & OCaml representation type \\ -\mykw{tex} & \tick & \myLaTeX{} typesetting for symbolic variables \\ -\mykw{com} & & comment to appear in \myLaTeX{} syntax definition \\ -\mykw{coq-equality} & & Coq proof script to decide equality over the representation type \\ -\mykw{repr-locally-nameless} & & (Coq only) use a locally-nameless representation \\ -\mykw{phantom} & & suppress the representation type definition in theorem prover output \\ -\mykw{lex} & & regular expression for lexing concrete variables \\ -\mykw{texvar} & \tick & \myLaTeX{} typesetting for concrete variables \\ -\mykw{isavar} & \tick & Isabelle output for concrete variables \\ -\mykw{holvar} & \tick & HOL output for concrete variables \\ -\mykw{ocamlvar} & \tick & OCaml output for concrete variables \\ -\ \\ -% -\end{tabular} - - -% Hu_rule -\begin{tabular}{lcl} -% -\multicolumn{3}{l}{a rule, after the \mysym{::=}}\\ \hline -% -\mykw{isa} & & Isabelle representation type, if a non-free type is required \\ -\mykw{coq} & & Coq representation type, if a non-free type is required \\ -\mykw{hol} & & HOL representation type, if a non-free type is required \\ -\mykw{ocaml} & & OCaml representation type, if a non-free type is required \\ -\mykw{tex} & \tick & \myLaTeX{} typesetting for symbolic variables \\ -\mykw{com} & \tick & comment to appear in \myLaTeX{} syntax definition \\ -\mykw{coq-equality} & & Coq proof script to decide equality over the representation type \\ -\mykw{coq-universe} & & Coq universe (e.g.~\texttt{Type}) for the representation type \\ -\mykw{phantom} & & suppress the representation type definition in theorem prover output \\ -\mykw{aux} & (\tick)& construct an auxiliary grammar rule with a single production \\ -% \mykw{auxparams} & (\tick)& type parameters for OCaml \\ -\mykw{icho} & \tick & shorthand for identical \mykw{coq}, \mykw{isa}, \mykw{hol}, and \mykw{ocaml} homs\\ -\mykw{ichlo} & \tick & shorthand for identical \mykw{coq}, -\mykw{isa}, \mykw{hol}, \mykw{lem}, and \mykw{ocaml} homs\\ -\mykw{ich} & \tick & shorthand for identical \mykw{coq}, \mykw{isa} and \mykw{hol} homs\\ -\mykw{ic} & \tick & shorthand for identical \mykw{coq} and \mykw{isa} homs\\ -\mykw{ch} & \tick & shorthand for identical \mykw{coq} and \mykw{hol} homs\\ -\mykw{ih} & \tick & shorthand for identical \mykw{isa} and \mykw{hol} homs\\ -\ \\ -% -\end{tabular} - -% Hu_prod -\begin{tabular}{lcl} -\multicolumn{3}{l}{a production}\\ \hline -% -\mykw{isa} & \tick & Isabelle output, for a non-free (meta) production \\ -\mykw{coq} & \tick & Coq output, for a non-free (meta) production \\ -\mykw{hol} & \tick & HOL output, for a non-free (meta) production \\ -\mykw{ocaml} & \tick & OCaml output, for a non-free (meta) production \\ -\mykw{tex} & \tick & \myLaTeX{} typesetting for symbolic terms \\ -\mykw{texlong} & & typeset as long production \\ -\mykw{com} & \tick & comment to appear in \myLaTeX{} syntax definition \\ -\mykw{order} & \tick & specify order of arguments to prover or Ocaml constructor\\ -\mykw{isasyn} & \tick & Isabelle mixfix syntax output \\ -\mykw{isaprec} & & Isabelle mixfix syntax precedence string \\ -\mykw{ich} & \tick & shorthand for identical \mykw{coq}, \mykw{isa} and \mykw{hol}homs\\ -\mykw{ic} & \tick & shorthand for identical \mykw{coq} and \mykw{isa} homs\\ -\mykw{ch} & \tick & shorthand for identical \mykw{coq} and \mykw{hol} homs\\ -\mykw{ih} & \tick & shorthand for identical \mykw{isa} and \mykw{hol} homs\\ -\ \\ -% -\end{tabular} - -% Hu_prod_tm -% -\begin{tabular}{lcl} -\multicolumn{3}{l}{a production of the \texttt{terminals} grammar}\\ \hline -% -\mykw{isa} & & Isabelle output, for terminals in default generated Isabelle mixfix declarations \\ -\mykw{tex} & & \myLaTeX{} default typesetting for terms \\ -\mykw{com} & \tick & comment to appear in \myLaTeX{} syntax definition \\ -\ \\ -% -\end{tabular} - -% Hu_defn -% -\begin{tabular}{lcl} -\multicolumn{3}{l}{a \mykw{defn}, before the \mykw{by}}\\ \hline -% -\mykw{tex} & \tick & \myLaTeX{} typesetting for symbolic terms \\ -\mykw{com} & \tick & comment to appear in \myLaTeX{} syntax definition \\ -\mykw{isasyn} & \tick & Isabelle mixfix syntax output \\ -\mykw{isaprec} & & Isabelle mixfix syntax precedence string \\ -\mykw{lemwcf} & & Lem witness, check, and functions spec for indrelns \\ -\ \\ -% -\multicolumn{3}{l}{a \mykw{homs} section clause (for a production or a definition)}\\ \hline -% -\multicolumn{3}{l}{as in the above production and \mykw{defn} forms}\\ -\ \\ -% -\end{tabular} - -% Hu_defnclass -\begin{tabular}{lcl} -% -\multicolumn{3}{l}{a group of defns, after the \mysym{::=}}\\ \hline -\mykw{coq-universe} & & Coq universe (e.g.~\texttt{Type}) for the representation type \\ -\ \\ -\end{tabular} - - -% Hu_embed -% -\begin{tabular}{lcl} -\multicolumn{3}{l}{an \mykw{embed} section}\\ \hline -\mykw{isa} & & embedded Isabelle output\\ -\mykw{coq} & & embedded Coq output\\ -\mykw{hol} & & embedded HOL output\\ -\mykw{ocaml} & & embedded OCaml output\\ -\mykw{tex} & & embedded \myLaTeX{} output\\ -\mykw{tex-preamble} & & embedded \myLaTeX{} output, appearing in the \myLaTeX{} preamble\\ -\mykw{coq-lib} & & do not generate definitions for the listed helper functions\\ -\mykw{isa-auxfn-proof} & & Isabelle proof script \\ -\mykw{isa-subrule-proof} & & Isabelle proof script \\ -\end{tabular} - - -% Hu_subrule and Hu_subst and Hu_freevar -% -\begin{tabular}{lcl} -\multicolumn{3}{l}{in a subrule, substitution or function definition}\\ \hline -\mykw{isa-proof} & & Isabelle proof script \\ -\end{tabular} - - -(1) This is occasionally useful to work around a clash between a - metavar or nonterminal primary root and a proof assistant symbol, - e.g.~\texttt{value} in Isabelle or \texttt{T} in HOL. - - - - -\section{Reference: The Ott source grammar} -This is automatically generated (by \verb+mly-y2l+) from the -\verb+ocamlyacc+ grammar for Ott. -%\ifhevea -%(At present it does not display properly in html, only in the -%postscript/pdf versions of this manual.) -%\fi - -The lexing of Ott source files is context-dependent; this does not -show that. - -Not everything in the grammar is fully supported --- in particular, -option element forms, non-dotted element list forms, the three \verb+names+ distinctness forms of -bindspecs, and context rules. - - -\newcommand{\token}[1]{\texttt{#1}} -\newlength\rulelhs -\newlength\rulemid -\newlength\rulerhs -{\small -\ifhevea -\input{grammar_parser_hevea.tex} -\else -\input{grammar_parser.tex} -\fi} - - -\section{Reference: Examples}\mlabel{a33}% -The project web page -\begin{quotation} -\ahrefurl{http://www.cl.cam.ac.uk/users/pes20/ott/} -\end{quotation} -gives a variety of examples. Some of these, and additional - small examples, are included in the distribution in the \verb+tests+ -directory. Typically they can be built using the \verb+Makefile+ in -the \verb+ott+ directory, e.g.~typing \verb+make test10+ or (more generally) \verb+make tests/test10.out+) there. - -% test-j.ott HAT calculus -% test1.ott typing for functions and pairs -% test2.ott hom examples -% test3.ott typing and reduction for functions, let, ;, if -% test4.ott dot form examples -% test5.ott reduction for functions and pair patterns, using auxfns -% test6-tex.ott typing and reduction for functions and pairs, with com and tex homs -% test6.ott typing and reduction for functions and pairs, with com and tex homs -\begin{tabular}{ll} - \verb+test10.ott+ & untyped CBV lambda\\ - \verb+test10st.ott+ & simply typed CBV lambda\\ - \verb+test8.ott+ & ML polymorphism example\\ - \verb+test7a.ott+ & POPLmark Fsub example (without records)\\ - \verb+test7b.ott+ & POPLmark Fsub example (with records)\\ - \verb+leroy-jfp96.ott+& Leroy module system \\ - \verb+lj.ott+ & LJ: Lightweight Java\\ - \verb+test7t.mng+ & whole-document tex mng source\\ - & (\verb+make test7afilter+ to build) \\ - \verb+test7tt.mng+ & fragment tex mng source\\ -% test8p.ott ML polymorphism example with record patterns -% test9.ott notes on multiple language definitions -% test10st_metatheory.thy -% test10st_snapshot_out.thy - \verb+test11.ott+ & subrule example\\ - \verb+test12.ott+ & topological sort example\\ - \verb+test13.ott+ & small bindspec fragment\\ -% test13b.ott larger bindspec fragment -\verb+test10st_snapshot_out.thy+ & snapshot of generated Isabelle from \verb+test10st.ott+ \\ -\verb+test10st_metatheory_autoed.thy+ & Isabelle proof script for type -preservation and progress \\ -\verb+test10st_codegen.thy+ & Isabelle code generation script for reduction\\ -\verb+test10_isasyn.ott+ & Isabelle mixfix syntax example\\ -\verb+test10st_metatheoryScript.sml+ & HOL proof script for type preservation and progress \\ - \verb+test17.10.ott+ & list comprehension examples\\ -\end{tabular} - -The \verb+examples/tapl+ directory contains several examples taken from the book `Types and Programming Languages' by Benjamin Pierce. The \texttt{make} targets, listed below, combine Ott source files -following roughly the TinkerType component structure used in TAPL. - -\begin{tabular}{ll} - \verb+sys-bool+ & booleans (p34) \\ - \verb+sys-arith+ & arithmetic expressions (p41) \\ - \verb+sys-untyped+ & untyped lambda-calculus with booleans \\ - \verb+sys-puresimple+ & simply-typed lambda-calculus \\ - \verb+sys-tybool+ & typed booleans \\ -% \verb+sys-tuple+ & \\ - \verb+sys-sortoffullsimple+& \\ - \verb+sys-roughlyfullsimple+& \\ - \verb+sys-puresub+ & \\ - \verb+sys-purercdsub+ & \\ -\end{tabular} - -Other examples can be found on the locally-nameless backend web page. - -\section*{Acknowledgements} -% -We thank -the Ott users for their feedback, especially Matthew Parkinson; -the other members of the POPLmark team, especially Benjamin -Pierce, Stephanie Weirich, and Steve Zdancewic, for -discussions; -and Keith Wansbrough, Matthew Fairbairn, and Tom Wilkie, for their work -on various Ott predecessors. - - -We acknowledge the support of EPSRC grants -GR/T11715, EP/C510712, and EP/F036345, a Royal Society -University Research Fellowship (Sewell), an EPSRC Leadership -Fellowship (Sewell), -EPSRC Programme Grant, EP/K008528/1 REMS \emph{Rigorous Engineering of -Mainstrem Systems}, -and ANR grant ANR-06-SETI-010-02 (Zappa Nardelli). - - -\bibliographystyle{alpha}%abbrv}%alpha} -%\bibliographystyle{abbrvnat} -%\bibliographystyle{plainnat} -\bibliography{shorter} - -\end{document} -\clearpage - -\section{OLD STUFF} - - -\begin{figure} -\fbox{\small\begin{minipage}{\textwidth} -\input{test10.7.alltt} -\end{minipage}} -\caption{Source: \texttt{test10.7.ott}\protect\label{a48}} -\end{figure} - - - ------------------------------ - - - -\textbf{This document is a preliminary user guide for the tool. It does not -include discussion of the design choices, related work, future -directions, or detailed motivation. } -%At present the tool is in a pre-alpha state: it can be used -% for some examples, but it is far from polished or complete.} - -The current state of some examples is shown below. The ``mt'' column indicates whether we have proved the usual type preservation/progress metatheory results for the generated definitions. -%\newcommand{\tick}{\mbox{$\surd$}} -%\newcommand{\cross}{\mbox{$\times$}} -%\newcommand{\myh}[1]{\multicolumn{2}{c}{#1}} - -\newcommand{\myh}[1]{\multicolumn{2}{c}{#1}} -\newcommand{\myfile}[1]{\texttt{#1}\ } -\newcommand{\mysz}[2]{#2} -\[ -%\hspace{-0.5cm} -{\small%scriptsize -\begin{tabular}{@{\,}l@{}l@{}r@{\,}c@{}c@{}cc@{}cc@{}c@{}c@{}c@{}} \hline - & System &rules & \myLaTeX& \myh{Coq\mbox{\ \ }} & \myh{HOL} & \myh{Isabelle} \\% & \myh{Twelf} \\ - & & & & defn & mt & defn & mt & defn & mt \\ \hline % & defns & mt \\ \hline -\myfile{test10.ott} & untyped CBV lambda (Fig.~\mref{a10})&\mysz{ 5}{ 3}& \tick & \tick & & \tick & & \tick & & & \\ -\myfile{test10st.ott} & simply typed CBV lambda &\mysz{ 12}{ 6}& \tick & \tick &\tick & \tick & \tick & \tick & \tick & & \\ -\myfile{test8.ott} & ML polymorphism &\mysz{ 36}{ 22}& \tick & \tick & & \tick & & \tick & & & \\ \hline -%\myfile{test7a.ott} & POPLmark F$_{<:}$ &\mysz{ }{ 3} & \tick &\tick$^1$& &\tick$^1$ & &\tick$^1$ & & & \\ -\myfile{sys-roughlyfullsimple}&TAPL full simple &\mysz{119}{ 63}& \tick & \tick & \tick & \tick & \tick & \tick & \tick & & \\ \hline -%\myfile{sys-puresub} & TAPL - subtypes &\mysz{ }{ 3} & \tick & \tick & & \tick & & \tick & & & \\ -%myfile{sys-purercdsub} & TAPL - record subtypes &\mysz{ }{ ?}& \tick & \tick & & \tick & & \tick & & & \\ \hline -\myfile{test7b.ott} & POPLmark F$_{<:}$ with records% -% - &\mysz{ 99}{ 48} & \tick & & & & & & & & \\ \hline -% &\mysz{ 99}{ 48} & \tick & (1) & &(1) & & (1) & & & \\ \hline -% &\mysz{ }{ 3} -\myfile{leroy-jfp96.ott}& Leroy JFP96 module system &\mysz{142}{ 67}& \tick & & & \tick & & & & & \\ \hline -\myfile{} & RG-Sep language &\mysz{ }{ 22}& \tick & \tick & \tick & & & & & & \\ \hline -\myfile{} & Mini-Ott-in-Ott &\mysz{ }{ 55}& \tick & & & & & \tick & \tick$^2$ & & \\ \hline -% -\myfile{lj.ott} & LJ: Lightweight Java &\mysz{105}{ 34}& \tick & & & & & \tick & (3) & & \\ -\myfile{ } & LJAM: Java Module System &\mysz{ ?}{ 140}& \tick & & & & & \tick & & & \\ \hline -% -%\myfile{sys-bool} & TAPL - boolean values & \tick & \tick & & \tick & & \tick & & & \\ -%\myfile{sys-arith} & TAPL - integers & \tick & \tick & & \tick & & \tick & & & \\ -%\myfile{sys-puresimple} & TAPL - simply typed lambda & \tick & \tick & & \tick & & \tick & & & \\ -%\myfile{sys-tybool} & TAPL - stl + bool & \tick & \tick & & \tick & & \tick & & & \\ -%\myfile{sys-tuple} & TAPL - tuples & \tick & \tick & & \tick & & \tick & & & \\ -%\myfile{sys-sortoffullsimple} & TAPL - ... lots ... & \tick & \tick & & \tick & & \tick & & & \\ -% -%\myfile{minicaml\_plain} & OCaml fragment & \tick & \tick & & \tick & & & & & \\ -\myfile{minicaml\_typedef} & OCaml fragment &\mysz{612}{271}& \tick & \tick & & \tick & \tick$^1$ & \tick & & & \\[0.5mm] -% -\hline -\multicolumn{8}{l}{\qquad\footnotesize \mbox{}$^1$ see below. \quad\mbox{}$^2$ hand proofs. \quad\mbox{}$^3$ in progress.} -\end{tabular} -} -\] - -% {\scriptsize -% \begin{tabular}{llccccccccc} \hline -% name & system & \myLaTeX& \myh{Coq} & \myh{HOL} & \myh{Isabelle} & \myh{Twelf} \\ -% & & & defns & mt & defns & mt & defns & mt & defns & mt \\ \hline -% \texttt{test10.ott} & untyped CBV lambda & \tick & \tick & & \tick & & \tick & & & \\ -% \texttt{test10st.ott} & simply typed CBV lambda & \tick & \tick &\tick$^7$ & \tick & \tick$^6$ & \tick & \tick$^5$ & & \\ -% \texttt{test8.ott} & ML polymorphism & \tick & \tick & & \tick & & \tick & & & \\ \hline -% \texttt{test7a.ott} & POPLmark F$_{<:}$ & \tick &\tick$^1$& &\tick$^1$ & &\tick$^1$ & & & \\ -% \texttt{test7b.ott} & POPLmark F$_{<:}$ with records & \tick &\tick$^1$& &\tick$^1$ & &\tick$^1$ & & & \\ \hline -% % -% \texttt{leroy-jfp96.ott}& Leroy module system$^3$ & \tick & & & \tick & & & & & \\ \hline -% % -% \texttt{lj.ott} & LJ: Lightweight Java$^4$ & \tick & & & & & \tick & *$^4$ & & \\ \hline -% % -% \texttt{sys-bool} & TAPL - boolean values & \tick & \tick & & \tick & & \tick & & & \\ -% \texttt{sys-arith} & TAPL - integers & \tick & \tick & & \tick & & \tick & & & \\ -% \texttt{sys-puresimple} & TAPL - simply typed lambda & \tick & \tick & & \tick & & \tick & & & \\ -% \texttt{sys-tybool} & TAPL - stl + bool & \tick & \tick & & \tick & & \tick & & & \\ -% \texttt{sys-tuple} & TAPL - tuples & \tick & \tick & & \tick & & \tick & & & \\ -% \texttt{sys-sortoffullsimple} & TAPL - ... lots ... & \tick & \tick & & \tick & & \tick & & & \\ -% \texttt{sys-nearlyfullsimple}&TAPL - ... lots ...$^2$ & \tick & \tick & *$^7$ & \tick & \tick$^6$ & \tick & & & \\ -% \texttt{sys-puresub} & TAPL - subtypes & \tick & \tick & & \tick & & \tick & & & \\ -% \texttt{sys-purercdsub} & TAPL - record subtypes & \tick & \tick & & \tick & & \tick & & & \\ \hline -% % -% \texttt{minicaml\_plain} & OCaml fragment & \tick & \tick & & \tick & & & & & \\ -% \texttt{minicaml\_typedef} & OCaml fragment with type defs & \tick & \tick & & \tick & & & & & \\ -% % -% \hline -% \end{tabular} -% } - - - -\myaspect{TAPL full simple} -This covers most of the simple features, up to variants, from -TAPL~\cite{Pierce:TypeSystems}. -It demonstrates the utility of a very simple form of -\emph{modularity} provided by \texttt{ott}, allowing clauses of grammars and -semantic relations to be split between files. -The original TAPL languages were produced using -TinkerType~\cite{LevinPierce99} to compose features and check for -conflicts. -Here we build a system, similar to the TinkerType -\texttt{sys-fullsimple}, from \texttt{ott} source files that -correspond roughly to the various TinkerType components, each with -syntax and semantic rules for a single feature. -The \texttt{ott} source for \texttt{let} is shown in Fig.~\mref{a12}, -to which we add: -\texttt{common}, -\texttt{common\_index}, -\texttt{common\_labels}, -\texttt{common\_typing}, -\texttt{bool}, -\texttt{bool\_typing}, -\texttt{nat}, -\texttt{nat\_typing}, -\texttt{arrow\_typing}, -\texttt{basety}, -\texttt{unit}, -\texttt{seq}, -\texttt{ascribe}, -%\texttt{let}, -\texttt{product}, -\texttt{sum}, -\texttt{fix}, -\texttt{tuple}, and -\texttt{variant}. -It also proved easy to largely reproduce the TAPL visual style and -(though we did no proof) to add subtyping. -% -\begin{figure} -\framebox[\columnwidth]{\hspace{1.7mm}\begin{minipage}{\columnwidth} -%\footnotesize -%\small -\scriptsize -%\verbatiminput{../tests/test10.ott} -\input{../examples/tapl/let_alltt.ott}\end{minipage}} -\caption{An \texttt{ott} source file for the \texttt{let} fragment of TAPL\protect\label{a12}} -\end{figure} - -%\myaspect{POPLmark F$_{<:}$ with records} -%(1) As discussed in \S\mref{foo}, the generated proof assistant definitions for F$_{<:}$ are well-formed -% but the concrete variable representation in the generated code is -% not satisfactory here --- this version of the type system -% disallows all shadowing, so typing is not preserved by reduction. - -\myaspect{POPLmark F$_{<:}$} -The generated proof assistant definitions for F$_{<:}$ are well-formed - but the concrete variable representation in the generated code is - not satisfactory here --- this version of the type system - disallows all shadowing, so typing is not preserved by reduction. - - - -\myaspect{Leroy JFP96 module system} (Owens) -This formalizes Leroy's path-based type system -\cite[\S4]{Leroy-generativity}, extended with a term language and an -operational semantics based on work of Owens~\cite{OF06}. - - -\myaspect{RG-Sep language} (Vafeiadis, Parkinson) -This is a concurrent while language used for ongoing work combining -Rely-Guarantee reasoning with Separation Logic, defined and proved -sound by Vafeiadis and Parkinson~\cite{RGSEP}. - -\myaspect{Mini-Ott-in-Ott} -This precisely defines the \texttt{ott} binding specifications -(without list forms) with their fully concrete representation and -alpha equivalence. The metatheory here is a proof that for closed -substitutions the two coincide. To date only a hand proof has been -completed; we plan to mechanize it in due course. - -\myaspect{LJ and LJAM} (Strni\v sa, Parkinson) -LJ is an imperative fragment of Java. -LJAM extends that (again using \texttt{ott} modularity) with a -formalization of the core part of JSR-277 and a proposal for JSR-294, -which together form a proposal for a Java module system -\cite{ljam-sub}. - -\myaspect{OCaml fragment} (Owens, Peskine, Sewell) -This covers a substantial core of OCaml --- to a first approximation, -all except subtyping, objects, and modules. -Notable features that are handled are: -ML-style polymorphism; -% (with the traditional value restriction, not -% OCaml's relaxation); -pattern matching; -mutable references; -finiteness of the integer type; -%definitions of type aliases; -generative definitions of record and variant types; and -generative exception definitions. -%; and compilation units. -It does not cover much of the standard library, mutable records, arrays, -pattern matching guards, labels, polymorphic variants, objects, or -modules. -% -% -We have tried to make our definition mirror the behaviour of the -OCaml system rather closely. The OCaml manual~\cite{ocaml2005} -defines the syntax with a BNF; our syntax is based on that. -It describes the semantics in prose; our semantics is based on a -combination of that and our experience with the language. - -\myaspect{Experience} -Our experience with these examples has been very positive. The tool, -while not perfect, does make it easy to work with these -definitions, allowing one to focus on the content rather than the -proof assistant or \myLaTeX{} markup. - -For our most substantial example, the OCaml fragment, to date we have proved type preservation and -progress for the expression language, all machine-checked in HOL -except for one currently outstanding lemma (type substitution for type -variables) for -which we have a paper proof. -Alpha equivalence arises only in a lemma showing that typing is preserved by renaming the bound variables of a type scheme in the type environment. -This proof effort has -taken only around 7 man-weeks, and the preceeding definition effort -was only another few man-weeks. -Compared with our previous experiences this is remarkably lightweight: it -has been possible to develop this as an example, rather than requiring -a major research project in its own right. -Apart from \texttt{ott}, the work has been aided by HOL's powerful first-order -reasoning automation and its inductive definition package, and by the -use of the fully concrete representation. - - -We have attempted to ensure that the proof assistant definitions -generated by Ott are well-formed and what the user would intend. This -is not guaranteed, however, for several reasons: (1) There may be name -clashes between Ott-generated identifiers and proof assistant built-in -identifiers (or, in pathological cases, even among different -Ott-generated identifiers). (2) In some cases we depend on automatic -proof procedures, e.g.~for HOL definitions. These work in our test -cases, but it is hard to ensure that they will in all cases. More -importantly, (3) the generation process is complex, so it is quite -possible that there is either a bug in Ott or a mismatch between the -user expectation and what the tool actually does. Ultimately one has -to read the generated proof assistant definitions to check that they -are as intended --- but typically one would do this in any case, many -times over, in the process of proving metatheoretic results, so we do -not consider it a major issue. - - -\begin{figure} -\fbox{\begin{minipage}{\textwidth} -\input{test10.0.alltt} -\end{minipage}} -\caption{Source: \texttt{test10.0.ott}\protect\label{a4}} -\end{figure} - -\begin{figure} -\fbox{\begin{minipage}{\textwidth} -\input{test10.2.alltt} -\end{minipage}} -\caption{Source: \texttt{test10.2.ott}\protect\label{a4}} -\end{figure} - -\begin{figure} -\fbox{\begin{minipage}{\textwidth} -\input{test10.4.alltt} -\end{minipage}} -\caption{Source: \texttt{test10.4.ott}\protect\label{a4}} -\end{figure} - -\begin{figure} -\fbox{\begin{minipage}{\textwidth} -\input{test10.7.alltt} -\end{minipage}} -\caption{Source: \texttt{test10.7.ott}\protect\label{a4}} -\end{figure} - - - -\begin{figure} -\fbox{\begin{minipage}{\textwidth} -\verbatiminput{../tests/test10.ott} -\end{minipage}} -\caption{Source: \texttt{test10.ott}\protect\label{a4}} -\end{figure} - -\begin{figure} -\fbox{\begin{minipage}{\textwidth} -\testTenall -\end{minipage}} -\caption{Generated \myLaTeX: \texttt{test10.tex}\protect\label{a3}} -\end{figure} - - -\section{Example: Untyped CBV Lambda Calculus}\mlabel{a2}% -We begin with a small example, an untyped call-by-value lambda -calculus. Below we highlight the main points shown in this example ---- which uses many, but not all, of the features of Ott. We return -to the options in more detail in later sections. - -The complete Ott source file is shown in Fig.~\mref{a4}, the typeset -output in Fig.~\mref{a3}, and the generated Isabelle, Coq, and HOL files -in Figs.~\mref{a5}, \mref{a6}, and \mref{a40}. -% (the latter have been -%lightly hand-edited to remove redundant definitions so that they each fit -%on a page). - -Looking at the source file in Fig.~\mref{a4}, it begins by declaring a -metavariable form \texttt{x}, giving the Isabelle, Coq, and HOL types used -(\texttt{string}, \texttt{nat}, and \texttt{string} respectively) to represent concrete -variables, and also specifying how metavariables should be typeset. - -The following \texttt{grammar} block contains 4 grammar rules, defining -the (concrete and abstract) syntax for nonterminal roots \texttt{t}, -\texttt{v}, \texttt{terminals}. -% -Each rule has a rule name prefix (e.g.~\texttt{t\_}) and then a list -of productions. Each production, e.g. -\begin{verbatim} - \mysym{|} \ x . t :: :: Lam (+ bind x in t +) {{ com abstraction }} -\end{verbatim} -specifies a syntactic form as a list of elements, here `\verb+\+', -`\verb+x+', `\verb+.+', and `\verb+t+', each of which is either a -metavariable (the `\verb+x+'), a nonterminal (the `\verb+t+'), or a -terminal (the `\verb+\+' and `\verb+.+'). -Within productions all elements must be whitespace-separated (so that -the tool can deduce which are terminals). In the symbolic terms in -the rules below, however, whitespace is required only where necessary. - - -Metavariables and nonterminals can be formed from the specified -metavariable and nonterminal roots by appending a suffix, e.g.~the -nonterminal \verb+t'+ in the \verb+App+ and \verb+tsub+ productions. - -Terminals are not required to be declared in the \texttt{terminals} -grammar (all strings that are not metavariables or nonterminals are -regarded as terminals) but, if they are, then \myLaTeX{} pretty printing -information for them can be specified there. In this example the -`\verb+\+' is included in the \texttt{terminals} grammar and will be -\myLaTeX pretty printed as a $\lambda$, whereas the `\verb+.+' is not -included and will be pretty printed in a default form. -A few terminals have to be quoted in the grammar, as they are part of the Ott syntax, but they -do not have to be quoted at usage points. - - - -Between the \verb+::+s is an optional meta flag \verb+M+. Non-meta -productions give rise to clauses of datatype definitions in the -Isabelle/Coq/HOL output, whereas meta productions do not. - -Each production has a production name (e.g.~\verb+t_Lam+), composed of -the rule name prefix (e.g.~\verb+t_+) and the production name kernel -that follows the \verb+::+s (e.g.~\verb+Lam+). The production name is -used as a constructor name in the generated Isabelle/Coq/HOL. - -Following the production name is an optional binding specification -(e.g.~\verb-(+ bind x in t +)-), specifying which metavariables (or -nonterminals) bind in which nonterminals. This is used in the -generation of substitution and free variable functions. - -At present the generated Isabelle/Coq/HOL uses completely concrete -representations of variables in terms, without any notion of alpha -equivalence, as one can see in Fig.~\mref{a5}: -see the \verb+t+ datatype of terms and the \verb+tsubst_t+ -substitution function there. -We intend in future to generate other representations. -For a reasonably wide variety of -languages, however, one can capture the intended semantics of whole programs in -this idiom, subject only to the condition that standard library -identifiers are not shadowed within the program, as the operational -semantics does not involve reduction under binders --- so any -substitutions are of terms which (except for standard library -identifiers) are closed. This includes the ML polymorphism example of -\verb+test8.ott+.%\S\mref{a23}. -Unfortunately, for languages which require a type -environment with internal dependencies, for example F$_{<:}$, this is -no longer the case, and the POPLmark F$_{<:}$ example given in -\verb+test7.ott+ %\S\mref{a26} -has a type system which disallows all shadowing, a property that is -not preserved by reduction. - - - -Finally, there may be a number of homs, defining clauses of -homomorphisms from the grammar to strings. Certain homs have special -meanings, including: - -\begin{tabular}{ll} -\verb+com+ & defining comments used in \myLaTeX{} pretty prints of the grammar\\ -\verb+tex+ & defining how this production (and terms formed by it) are \myLaTeX{} pretty printed\\ -\verb+isa+ & (for meta productions) defining how the terms formed by -the production are translated into Isabelle\\ -\verb+coq+ & similarly for Coq\\ -\verb+hol+ & similarly for HOL\\ -\verb+ich+ & a shorthand for defining an identical triple of \verb+isa+, - \verb+coq+, and \verb+hol+ homs -\end{tabular} - -Section \mref{a41} gives a summary of all the usable homomorphisms. - -Following the \texttt{grammar} in this example is a \texttt{subrule} -declaration -\begin{verbatim} - subrules - v <:: t -\end{verbatim} -declaring that the \verb+v+ rule (of values) is a -subgrammar of the \verb+t+ rule (of terms). The tool checks that -there is in fact a subgrammar relationship, i.e.~that for each -production of the lower rule there exists a production of the higher -rule with corresponding elements (up to the subrule relation). -In the generated Isabelle/Coq/HOL for this example only one free -datatype is generated, for the \verb+t+ rule, whereas for the \verb+v+ -rule we generate an \verb+is_v+ predicate over the \verb+t+ type. Usages of -\verb+v+ nonterminals in the semantic rules have instances of this -predicate automatically inserted. - -We continue with a substitutions declaration -\begin{verbatim} - substitutions - single t x :: tsubst -\end{verbatim} -instructing the tool to generate Isabelle/Coq/HOL for a substitution -function replacing metavariables by terms. This is for single -substitutions; multiple substitution functions (taking lists of -substitutand/substitutee pairs) can also be generated. -Substitution functions are generated for all rules of the grammar for -which they might be required --- here, just over \verb+t+, with a -function named \verb+tsubst_t+. Such functions can be used in the -\verb+isa+/\verb+coq+/\verb+hol+ homomorphisms for meta syntax, e.g. as in the -production -\begin{verbatim} - | { t / x } t' :: M :: tsub {{ ich ( tsubst_t [[t]] [[x]] [[t']] ) }} -\end{verbatim} -introducing syntax for term substitution. - - -Finally, we give a collection of definitions of inductive relations. -In this example there is just one family of definitions (of -operational judgements), called \verb+Jop+; it contains just one -definition of a relation, called \verb+E+. The relation definition -also includes a grammar production specifying how elements of the -relation can be written and typeset, here -\begin{verbatim} - t1 --> t2 -\end{verbatim} -Syntax rules for each family of -judgements, and for their union, are implicitly generated. -The relation definition is given by a sequence of inference rules, -each with a horizontal line separating a number of premises from a -conclusion, for example as below. -\begin{verbatim} - t1 --> t1' - -------------- :: ctx_app_arg - v t1 --> v t1' -\end{verbatim} -The conclusion must be a symbolic term of the form of the judgement being -defined. -In simple cases (as here) the premises can be symbolic terms of the -form of any of the defined judgements. More generally (see -\S\mref{a13}) they can be symbolic terms of a user-defined -\texttt{formula} grammar. -Each rule - has a name, composed of a definition family prefix -(here empty), a definition prefix (here also empty) and a kernel -(the~\verb+ctx_app_arg+). - - - - - - - - - -\begin{figure} -\fbox{\begin{minipage}{\textwidth} -\verbatiminput{test10.thy} -%\verbatiminput{test10.hand.edited.thy} -\end{minipage}} -\caption{Generated Isabelle:\texttt{test10.thy}\protect\label{a5}} -\end{figure} - -\begin{figure} -\fbox{\begin{minipage}{\textwidth} -\verbatiminput{test10.v} -%\verbatiminput{test10.hand.edited.v} -\end{minipage}} -\caption{Generated Coq:\texttt{test10.v}\protect\label{a6}} -\end{figure} - -\begin{figure} -\fbox{\begin{minipage}{\textwidth} -\verbatiminput{test10Script.sml} -\end{minipage}} -\caption{Generated HOL:\texttt{test10Script.sml}\protect\label{a40}} -\end{figure} - - -% \section{\texttt{test1}} -% \testOneall -% -% \section{\texttt{test8}} -% \testEightall - -\clearpage - -\section{Command-line Usage}\mlabel{a32}% -The best place to get started is probably one of the test -\texttt{make} targets in the \texttt{ott} directory, e.g. -\begin{verbatim} -test10: tests/test10.ott - bin/ott \ - -isabelle out.thy -coq out.v -hol outScript.sml \ - -tex out.tex \ - -parse ":t: (\z.z z) y" \ - tests/test10.ott \ - && ($(LATEX) out; $(DVIPS) out -o) -\end{verbatim} -When \verb+make test10+ is executed, \texttt{ott}: -\begin{itemize} -\item reads the source file \verb+tests/test10.ott+ -\item prints on standard output various diagnostic information, - including ASCII versions of the grammar and - inductive definitions. - By default these are coloured (using - \verb+vt220+ control codes) with metavariables in red, nonterminals - in yellow, terminals in green, and object variables in white. - Scanning over this output quickly picks up some common errors. -\item parses the symbolic term \verb+(\z.z z) y+ using the \verb+t+ - grammar and prints the result to standard output -\item generates Isabelle definitions in the file \verb+out.thy+ -\item generates Coq definitions in the file \verb+out.v+ -\item generates HOL definitions in the file \verb+outScript.sml+ -\item generates a \myLaTeX{} document in the file \verb+out.tex+, with a - standard document preamble to make it self-contained. -\end{itemize} -That \myLaTeX{} document is then compiled and converted to postscript. - -If multiple source files are specified then they are (after parsing) -concatenated together. - - -The~\verb+%.out+ \verb+Makefile+ target runs \verb+ott+ with common -defaults on the file~\verb+%.ott+, so for example executing \verb+make tests/test10.out+ -runs \verb+ott+ on \verb+tests/test10.ott+, generating all outputs. There are -also targets ~\verb+%.coq.out+, ~\verb+%.hol.out+, and -~\verb+%.isa.out+, to generate just LaTeX and the code for one proof -assistant, and ~\verb+%.tex.out+, to generate just LaTeX. - - - -The \texttt{ott} command-line options (with default values where applicable) are -shown below. -\verbatiminput{options.txt} - -%By default the Makefile compiles Ott using \texttt{ocamlopt}. To force it to -%compile with \texttt{ocamlc} (to get backtraces on exceptions) do \texttt{make opt}. - -\section{Examples}\mlabel{a33}% -The distribution contains several small examples in the \verb+tests+ -directory. Typically they can be built using the \verb+Makefile+ in -the \verb+ott+ directory, e.g.~typing \verb+make test10+ or (more generally) \verb+make tests/test10.out+) there. - -% test-j.ott HAT calculus -% test1.ott typing for functions and pairs -% test2.ott hom examples -% test3.ott typing and reduction for functions, let, ;, if -% test4.ott dot form examples -% test5.ott reduction for functions and pair patterns, using auxfns -% test6-tex.ott typing and reduction for functions and pairs, with com and tex homs -% test6.ott typing and reduction for functions and pairs, with com and tex homs -\begin{tabular}{ll} - \verb+test10.ott+ & untyped CBV lambda\\ - \verb+test10st.ott+ & simply typed CBV lambda\\ - \verb+test8.ott+ & ML polymorphism example\\ - \verb+test7a.ott+ & POPLmark Fsub example (without records)\\ - \verb+test7b.ott+ & POPLmark Fsub example (with records)\\ - \verb+leroy-jfp96.ott+& Leroy module system \\ - \verb+lj.ott+ & LJ: Lightweight Java\\ - \verb+test7t.mng+ & whole-document tex mng source\\ - & (\verb+make test7afilter+ to build) \\ - \verb+test7tt.mng+ & fragment tex mng source\\ -% test8p.ott ML polymorphism example with record patterns -% test9.ott notes on multiple language definitions -% test10st_metatheory.thy -% test10st_snapshot_out.thy - \verb+test11.ott+ & subrule example\\ - \verb+test12.ott+ & topological sort example\\ - \verb+test13.ott+ & small bindspec fragment\\ -% test13b.ott larger bindspec fragment -\verb+test10st_snapshot_out.thy+ & snapshot of generated Isabelle from \verb+test10st.ott+ \\ -\verb+test10st_metatheory_autoed.thy+ & Isabelle proof script for type -preservation and progress \\ -\verb+test10st_codegen.thy+ & Isabelle code generation script for reduction\\ -\verb+test10_isasyn.ott+ & Isabelle mixfix syntax example\\ -\verb+test10st_metatheoryScript.sml+ & HOL proof script for type preservation and progress \\ - \verb+test17.10.ott+ & list comprehension examples\\ -\end{tabular} - -The \verb+examples/tapl+ directory contains several examples taken from the book `Types and Programming Languages' by Benjamin Pierce. These can be built using the \verb+Makefile+ in -the \verb+ott+ directory. The targets, listed below, combine \verb+ott+ source files -following roughly the TinkerType component structure used in TAPL. - -\begin{tabular}{ll} - \verb+sys-bool+ & booleans (p34) \\ - \verb+sys-arith+ & arithmetic expressions (p41) \\ - \verb+sys-untyped+ & untyped lambda-calculus with booleans \\ - \verb+sys-puresimple+ & simply-typed lambda-calculus \\ - \verb+sys-tybool+ & typed booleans \\ - \verb+sys-tuple+ & \\ - \verb+sys-sortoffullsimple+& \\ - \verb+sys-roughlyfullsimple+& \\ - \verb+sys-puresub+ & \\ - \verb+sys-purercdsub+ & \\ -\end{tabular} - - - -\section{Features} -This section describes the main Ott features. It assumes the reader -has read \S\mref{a2}. -\myparagraph{Grammar}\mlabel{a7}% -The tool supports arbitrary context-free grammars, extended with -special constructs for dotted list forms (c.f.~\S\mref{a21}). -% -It builds a recursive descent parser for parsing symbolic terms in -semantic rules, finding all parses up to a certain depth, and reports -an error if there are multiple parses or no parses. -% -To resolve ambiguity one can add metaproductions for parentheses (as -in Fig.~\mref{a4}), or -production-name annotations in particular symbolic terms, -e.g.~the \verb+:t_tsub:+ in the \verb+AppAbs+ rule of the POPLmark -example, \S\mref{a27}. -% -%The current parser implementation is very naive; its performance on -%larger terms can be a problem. Occasionally one must add a -%\verb+:deeper:+ annotation to a symbolic term to increase the search -%depth, as in the \verb+ax_app+ rule of Fig.~\mref{a4}. - - -\myparagraph{Lexing}\mlabel{a8}% -There are fixed lexical conventions. -In a production of the grammar specification, -the elements must be blank-separated (blanks are -\verb+( |\010|\009|\013|\012)+). - -% Nonterminals and metavariables must be idents: -% \begin{verbatim} -% ident = ([A-Z]|[a-z]|[_]) ([A-Z]|[a-z]|[0-9]|[_]|['])* -% \end{verbatim} -% Terminals must either be idents or strings that do not contain blanks -% and do not start with \verb+([A-Z]|[a-z])+. -% -% (These conventions are broadly similar to those of OCaml, except that, -% for ease of \myLaTeX{} output, we disallow accented characters in -% idents. - -(To precisely express the concrete syntax of existing full -languages would typically need more flexibility.) - -To allow the Ott tokens to appear in an object language, elements in -a grammar specification may be quoted, \verb+'thus'+. Any string -surrounded by a pair of single quotes has those quotes removed. - - - -\myparagraph{Metavariables, Nonterminals, and Suffixes}\mlabel{a9}% -Declarations of metavariable roots and rules defining nonterminal -roots can specify any number of synonyms, for example the -\verb+termvar+, \verb+x+, \verb+y+, and \verb+z+ in -\begin{verbatim} - metavar termvar , x , y , z ::= {{ isa string }} {{ coq nat }} {{ hol num }} {{ ocaml int }} -\end{verbatim} -and the \verb+t+ and \verb+u+ in -\begin{verbatim} - t , u :: '' ::= - | x :: :: Var - | \ x : T . t :: :: Lam (+ bind x in t +) - | t t' :: :: App -\end{verbatim} -The first such (here \verb+termvar+ and \verb+t+) is taken to be the -primary root, and is used to build the corresponding type name in -Isabelle/Coq/HOL/OCaml output. - -Occurrences of metavariables and nonterminals, both in productions of -the grammar specification and in symbolic terms in semantic rules, -can be formed by adding a suffix to a metavariable or nonterminal -root, for example the \verb+t'+ in the \verb+App+ rule above. - -The user can declare any number of distinguished `index' -metavariables, e.g. by: -\begin{verbatim} - indexvar index , i , j , n , m ::= {{ isa num }} {{ coq nat }} {{ hol num }} {{ ocaml int }} -\end{verbatim} -Given such a declaration, \verb+index+, \verb+i+, \verb+j+, \verb+n+ -and \verb+m+ can be used in suffixes, e.g.~in the production -\begin{verbatim} - | ( t1 , .... , tn ) :: :: Tuple -\end{verbatim} -There is a fixed ad-hoc language of suffixes, including numbers, primes, and index variables (see \S\mref{a17}). -Index metavariables cannot themselves be suffixed. - - -Metavariable declarations can include a \verb+lex+ homomorphism -specifying the syntactic form of the corresponding concrete -variables, and an \verb+isavar+ homomorphism specifying how such -strings should be translated into Isabelle. For example, one might write -\begin{verbatim} - metavar typevar , X ::= {{ isa string }} {{ lex Alphanum }} - metavar termvar , x ::= {{ isa string }} {{ lex alphanum }} -\end{verbatim} -Similarly, one can specify how concrete variables should be \myLaTeX'd, e.g.~with -the homomorphisms \verb+{{ texvar \mathrm{[[typevar]]} }}+ and \verb+{{ isavar ''[[termvar]]'' }}+. - -\textbf{At present \texttt{lex} homomorphism must have body either} - \texttt{Alphanum} (\verb+[A-Z]([A-Z]|[a-z]|[0-9]|'|_)*+), - \texttt{alphanum} (\verb+([A-Z]|[a-z])([A-Z]|[a-z]|[0-9]|'|_)*+), - \texttt{alphanum0} (\verb+[a-z]([A-Z]|[a-z]|[0-9]|'|_)*+), or - \texttt{numeral} (\verb+[0-9][0-9]*+); \textbf{more general regexps are not supported.} - -One can likewise specify how metavariables themselves should be -\myLaTeX'd, e.g.~with a homomorphism -\verb+{{ tex \mathit{[[typevar]]} }}+. - -For Coq output, one can specify \verb+{{ coq-equality+ \textit{proof-script} \verb+}}+ -to build a decidable equality over the Coq representation type using -the proof \textit{proof-script}. If the script is omitted it defaults -to -\begin{verbatim} -Proof. - decide equality; auto with ott_coq_equality arith. -Defined. -\end{verbatim} -where the \verb+ott_coq_equality+ database contains the decidable -equalities of the representation types defined in the source. - -\myparagraph{Grammar Rule Homomorphisms}\mlabel{a11}% -% -Grammar rules can be annotated with various homomorphisms. - -First, the individual nonterminal roots can have \verb+tex+ -homomorphisms specifying how they should be typeset, e.g.~ -\begin{verbatim} -G {{ tex \Gamma }} , D {{ tex \Delta }} :: 'G_' ::= {{ com type environment }} - | empty :: :: empty - | G , x : T :: :: term -\end{verbatim} -permitting the user to write \verb+G'+, \verb+D12+ etc.~in symbolic -terms, to be typeset at $\Gamma'$, $\Delta_{12}$, etc. - -Second, the rule can include a \verb+tex+ hom specifying how all the - nonterminal roots should be typeset, e.g. -\begin{verbatim} - type , t , s :: Typ_ ::= {{ tex \mathsf{[[type]]} }} - | unit :: :: unit - | type * type' :: :: pair - | type -> type' :: :: fun -\end{verbatim} -Here that \verb+tex+ hom overrides the default typesetting with -\verb+\mathsf+. - -Third, the rule can include a \verb+com+ hom giving a comment to -include in typeset versions of the grammar itself, e.g.~the -\verb+{{ com type environment }}+ above. - -Fourth, the rule can include a \verb+coq equality+ hom, instructing -the Coq code generator to derive a decidable equality for the Coq -representation type. For example, the ML polymorphism Ott source of -\texttt{test8.ott} includes the following. -\begin{verbatim} - typvar :: TV_ ::= {{ coq-equality decide equality. apply eq_value_name_t. }} - | ' ident :: :: ident -\end{verbatim} - -Fifth, and most fundamentally, the rule can include \verb+isa+, \verb+coq+, -\verb+hol+, or \verb+ocaml+ homs specifying a proof-assistant (or OCaml) type, e.g. in the -following rule for substitutions. -\begin{verbatim} - s {{ tex \sigma }} :: 'S_' ::= {{ com multiple subst }} {{ isa (termvar*t) list }} - | [ x |-> t ] :: :: singleton {{ isa [ ([[x]],[[t]]) ] }} - | s1 , .. , sn :: :: list {{ isa List.concat s_list }} -\end{verbatim} -Here the \verb+{{ isa (termvar*t) list }}+ hom specifies that in -Isabelle output this type be represented as an Isabelle -\verb+(termvar*t) list+ instead of the (default) free grammar. - - - -\myparagraph{Production Homomorphisms}\mlabel{a12}% -Each production may also have \verb+coq+ and \verb+isa+ homomorphisms, -specifying how symbolic terms should be translated into Isabelle/Coq/HOL/OCaml -expressions, e.g.~as in the last example of the previous -section. This overrides the default translation into terms of a free -grammar. - -Productions may also have \verb+tex+ homs, overriding the default -\myLaTeX{} typesetting, e.g.~as in this example of -a type abstraction production from \texttt{test7.ott}. -\begin{verbatim} - | \ X <: T . t :: :: TLam (+ bind X in t +) - {{ com type abstraction }} - {{ tex \Lambda [[X]] [[<:]] [[T]]. \, [[t]] }} -\end{verbatim} -They may also have a comment, e.g.~the \verb+{{ com type abstraction }}+, to -appear in typeset versions of the grammar itself. - -All these homomorphisms can refer to the metavariables and -nonterminals that occur in the production, e.g.~the \verb+[[X]]+, -\verb+[[T]]+, and \verb+[[t]]+ in the \verb+tex+ hom above, -interleaved with arbitrary strings and with typeset elements of the -\verb+terminals+ grammar, e.g.~the \verb+[[<:]]+. - -Homomorphisms are applied recursively down the structure of symbolic -terms. For example, the \texttt{TappTabs} rule of \texttt{test7.ott} has a -conclusion with a subterm -\begin{verbatim} - (\X<:T11.t12) [T2] -\end{verbatim} -This is \myLaTeX-pretty-printed, using the \verb+tex+ homomorphism -clause above, as -\begin{verbatim} -( \, \Lambda \mathit{X} <: \mathit{T_{\mathrm{11}}} . \, \mathit{t_{\mathrm{12}}} \, ) - \, \, [ \, \mathit{T_{\mathrm{2}}} \, ] -\end{verbatim} -which is typeset as below. -\[ -( \, \Lambda \mathit{X} <: \mathit{T_{\mathrm{11}}} . \, \mathit{t_{\mathrm{12}}} \, ) \, \, [ \, \mathit{T_{\mathrm{2}}} \, ] -\] -Note the \verb+X+, \verb+T11+ and \verb+t12+ of the symbolic term are -used to instantiate the formal parameters \verb+X+, \verb+T+ and -\verb+t+ of the homomorphism definition clause. -% -If the \verb+t+ itself had compound term structure, e.g. as below -\begin{verbatim} - (\X<:T. \X'<:T'.x) -\end{verbatim} -the homomorphism would be applied recursively, producing -\begin{verbatim} -( \, \Lambda \mathit{X} <: \mathit{T} . \, \Lambda \mathit{X'} <: \mathit{T'} -. \, \mathit{x} \, \, ) -\end{verbatim} -typeset as follows. -\[( \, \Lambda \mathit{X} <: \mathit{T} . \, \Lambda \mathit{X'} <: \mathit{T'} . \, \mathit{x} \, \, )\] -Where there is no user-supplied homomorphism clause the \myLaTeX{} -pretty-printing defaults to a sequence of the individual items -separated by thin spaces (\verb+\,+), -with reasonable default fonts and making use of the \verb+terminals+ grammar where appropriate. - - -\myparagraph{Subrules}\mlabel{a14}% -Subrule declarations have the form -\begin{verbatim} - subrules - nt1 <:: nt2 -\end{verbatim} -where \verb+nt1+ and \verb+nt2+ are nonterminal roots. - - -Subrules can be chained, i.e.~there can be a pair of -subrule declarations \verb+nt1 <:: nt2+ and \verb+nt2 <:: nt3+, -and they can form a directed acyclic graph, e.g.~with -\verb+nt0 <:: nt1+, \verb+nt0 <:: nt2+, -\verb+nt1 <:: nt3+, and \verb+nt2 <:: nt3+. However, there cannot be -cycles, or nonterminal roots for which there are multiple upper bounds. -Subrule declarations should not involve nonterminal roots for which -proof-assistant type homs are specified. - -We support the case in which the upper rule is also -non-free, i.e.~it contains productions that mention nonterminals that -occur on the left of a subrule declaration. In the example below -(\verb+test11.ott+) the -\verb+t+ rule contains a production \verb+Foo v+. -\verbatiminput{../tests/test11.ott} -In this case generated Isabelle/Coq/HOL/OCaml will define a single type and both \verb+is_v+ -and \verb+is_t+ predicates, and the generated inductive definition -clause for \verb+ax+ uses both predicates. The Isabelle clause is below. -\begin{verbatim} - axI: "[|is_t t ; is_v v|] ==> ( t , v ) : Baz" -\end{verbatim} - - - - -\myparagraph{Topological Sorting}\mlabel{a19}% -The grammar rules of a syntax definition may depend on each other arbitrarily. -When generating Isabelle/Coq/HOL/OCaml representation types, however, they are -topologically sorted (to simplify the resulting induction -principles). For example, this source file (\verb+test12.ott+) -\verbatiminput{../tests/test12.ott} -gives rise to the following Coq and Isabelle. -\[\vspace{-0.5cm} -\begin{minipage}{0.43\textwidth} -\verbatiminput{test12.v} -\end{minipage} -\begin{minipage}{0.45\textwidth} -\verbatiminput{test12.thy} -\end{minipage} -\] -In contrast, at present the inductively defined relation definitions -are not topologically sorted --- instead, each \verb+defns+ block -gives rise to a group of mutual definitions, so the user has control. - - -\myparagraph{Formulae and Judgements}\mlabel{a13}% -The system synthesises a grammar of the syntactic forms of judgements -for each \verb+defns+ block, a grammar \verb+judgement+ of -their union, and a grammar \verb+user_syntax+ of the union of all the -user-defined syntax. - -If there is no \texttt{formula} grammar then the system adds a default -definition, as if the source included the following. -\begin{verbatim} - formula :: 'formula_' ::= - | judgement :: :: judgement -\end{verbatim} -If the user defines a \texttt{formula} grammar then the production -name prefix must be \texttt{formula\_} and the name for the -\texttt{judgement} production must be \texttt{judgement}, as above. - -For the example of Fig.~\mref{a4} these are as below. -%\testTenMetagrammar - -\testTenMetagrammartabular{ -%\testTenMetat -%\testTenMetav -%\testTenMetaterminals -\testTenMetaformula\testTenMetainterrule -\testTenMetaJop\testTenMetainterrule -\testTenMetajudgement\testTenMetainterrule -\testTenMetauserXXsyntax\testTenMetaafterlastrule -} - -The \verb+formula+ grammar (whether user-defined or the default) defines the syntax of -premises of inductive definition rules. In simple cases this can just -have a single production allowing arbitrary judgements, as above. In -richer examples one may need parentheses, conjunction and disjunction, -etc. -Care is needed with quantifiers ranging over subrule types, as these -will not be automatically handled correctly. - - - - - - - - -\myparagraph{Binding}\mlabel{a10}% -\begin{figure}[t] -\fbox{\begin{minipage}{\textwidth} -{\small -\testThirteendgrammar -} -\end{minipage}} -\caption{Ott Source Grammar: a Simplified Fragment\protect\label{a31}} -(Omitting dot forms, non-primary nonterminal and metavariable -roots, meta flags, homomorphism definitions, and non-\verb+''+ -production-name prefixes.) -\end{figure}% -%\testThirteengrammartabular{ -%\testThirteenbindspec -%} -Ott supports a rich class of binding specifications. -Each production can be annotated with a number of `bindspec's. -As shown in the grammar in Fig.~\mref{a31} (a simplified fragment of the Ott input -language), these are of two forms. -The first, -\[\texttt{bind} \, \mathit{mse} \, \texttt{in} \, \mathit{nonterm} \] -declares that the metavariables and nonterminals denoted by -the $\mathit{mse}$ expression are binding in the $\mathit{nonterm}$. -The second, -\[ -\mathit{auxfn} \, = \, \mathit{mse} -\] -lets the user define \emph{auxiliary functions} to collect -selected metavariables and nonterminals of subterms. -For example, consider the Ott source below for expressions with \texttt{let} -binding of pair patterns (based on \texttt{test8p.ott}). -{\small -\begin{verbatim} -metavar value_name , x ::= {{ isa string }} - -expr , e :: E_ ::= - | value_name :: :: ident - | ( expr1 , expr2 ) :: :: pair - | expr expr' :: :: apply - | function value_name -> expr :: :: function (+ bind value_name in expr +) - | let p = expr in expr' :: :: let (+ bind binders(p) in expr' +) - -pattern , p :: 'P_' ::= - | value_name :: :: ident (+ binders = value_name +) - | ( p1 , p2 ) :: :: pair (+ binders = binders(p1) union binders(p2) +) -\end{verbatim} -} -Here the bindspec for functions simply binds the single -\verb+value_name+ metavariable that occurs in the production. -The bindspec for lets, however, binds all the `\texttt{binders}' of -the pattern \texttt{p}. Here \texttt{binders} is an auxiliary -function, taking a pattern and returning a set of \verb+value_name+ -metavariables. It is defined by two clauses, one for each production -of the \verb+pattern+ grammar. -They state that the \verb+binders+ of a \verb+value_name+ are just the -singleton set $\{\verb+value_name+\}$ and that the \verb+binders+ of a -pair pattern are the union of the \verb+binders+ of the two subpatterns. - -Each auxiliary function can be defined over multiple rules of a -grammar, but must return sets of a single type (a particular -metavariable root or nonterminal root). - - -\myparagraph{Substitutions}\mlabel{a15}% -The tool can generate Isabelle/Coq/HOL/OCaml for both single and multiple -substitution functions. For example, the ML polymorphism Ott source -of \verb+test8.ott+ -%\S\mref{a24} -includes the following. -\begin{verbatim} - substitutions - single expr value_name :: subst - multiple typexpr typvar :: tsubst -\end{verbatim} -This causes the generation of two families of substitution -functions, one replacing a single \verb+value_name+ by a \verb+expr+, -the other replacing multiple \verb+typvar+s by \verb+typexpr+s. - -Each family contains a function for each datatype for which it is -required, so in that example there are functions -\verb+subst_expr+ for the first and \verb+tsubst_typexpr+, -\verb+tsubst_typscheme+ and \verb+tsubst_G+ for the second. - -The function for substitutions -\begin{verbatim} - substitutions - single this that :: name1 - multiple this that :: name2 -\end{verbatim} -replaces terms of productions consisting just of a \verb+that+ by a -\verb+this+. -Here \verb+this+ must be a nonterminal root, while \verb+that+ can be -either a metavariable root or a nonterminal root (the latter -possibility allows substitution for compound identifiers, though it is -not clear that this is generally useful enough to be included). -Substitution functions are requried for each member of each (mutually recursive) -block of grammar rules which either contain such a production or (indirectly) -refer to one that does. - -At present multiple substitutions are represented by Isabelle/Coq/HOL/OCaml -lists, so for the example above we have Isabelle -\begin{verbatim} - tsubst_typexpr :: "(typvar*typexpr) list => typexpr => typexpr" - tsubst_typscheme :: "(typvar*typexpr) list => typscheme => typscheme" - tsubst_G :: "(typvar*typexpr) list => G => G" -\end{verbatim} -The generated functions do not substitute bound things, and recursive -calls under binders are filtered to remove the bound things. - - - -\myparagraph{Free Variables}\mlabel{a16}% -Similarly, the tool can generate Isabelle/Coq/HOL/OCaml to calculate the free -variables of terms. For example, the ML polymorphism Ott source -of \texttt{test8.ott} includes the following. -\begin{verbatim} - freevars - typexpr typvar :: ftv -\end{verbatim} -This causes Isabelle functions as below to be generated, calculating -the free \texttt{typvar}s that occur in singleton productions in the -\texttt{typexpr} grammar within terms of each type. -\begin{verbatim} - ftv_typexpr :: "typexpr => typvar list" - ftv_typscheme :: "typscheme => typvar list" - ftv_G :: "G => typvar list" -\end{verbatim} - -\myparagraph{List Dot Forms}\mlabel{a21}% -The tool has direct support for indexed list syntax (`dot forms'), for example as -used in the \S\mref{a23} type schemes: - -{\small\testEightgrammartabular{\testEighttypscheme\testEightafterlastrule}} - -and in the \texttt{test7.ott} record types, record terms, and record -patterns (below we give fragments of the \texttt{test7.ott} grammars, -omitting some productions): - -{\small\testSevengrammartabular{ -\testSevenrulehead{\testSevennt{T} ,\ \testSevennt{S} ,\ \testSevennt{U}}{::=}{\testSevencom{type}}\\ -\testSevenprodline{|}{\ldots}{}{}{}{}\\ -\testSevenprodline{|}{\testSevenkw{\{} \, \mathit{l_{{\mathrm{1}}}} \, : \, \testSevennt{T_{{\mathrm{1}}}} \, , \, .. \, , \, \mathit{l_{\testSevenmv{n}}} \, : \, \testSevennt{T_{\testSevenmv{n}}} \, \testSevenkw{\}}}{}{}{}{\testSevencom{record}}\testSeveninterrule -% -\testSevenrulehead{\testSevennt{t}}{::=}{\testSevencom{term}}\\ -\testSevenprodline{|}{\ldots}{}{}{}{}\\ -\testSevenprodline{|}{\testSevenkw{\{} \, \mathit{l_{{\mathrm{1}}}} \, \!\! = \!\! \, \testSevennt{t_{{\mathrm{1}}}} \, , \, .. \, , \, \mathit{l_{\testSevenmv{n}}} \, \!\! = \!\! \, \testSevennt{t_{\testSevenmv{n}}} \, \testSevenkw{\}}}{}{}{}{\testSevencom{record}}\\ -\testSevenprodline{|}{\testSevenkw{let} \, \testSevennt{p} \, \!\! = \!\! \, \testSevennt{t} \, \testSevenkw{in} \, \testSevennt{t'}}{}{\textsf{bind}\; \textrm{b}(\testSevennt{p})\; \textsf{in}\; \testSevennt{t'}}{}{\testSevencom{pattern binding}}\testSeveninterrule -% -\testSevenrulehead{\testSevennt{p}}{::=}{\testSevencom{pattern}}\\ -\testSevenprodline{|}{\mathit{x} \, : \, \testSevennt{T}}{}{\textrm{b}=\mathit{x}}{}{\testSevencom{variable pattern}}\\ -\testSevenprodline{|}{\testSevenkw{\{} \, \mathit{l_{{\mathrm{1}}}} \, \!\! = \!\! \, \testSevennt{p_{{\mathrm{1}}}} \, , \, .. \, , \, \mathit{l_{\testSevenmv{n}}} \, \!\! = \!\! \, \testSevennt{p_{\testSevenmv{n}}} \, \testSevenkw{\}}}{}{\textrm{b}=\textrm{b}(\testSevennt{p_{{\mathrm{1}}}}..\testSevennt{p_{\testSevenmv{n}}})}{}{\testSevencom{record pattern}}\testSevenafterlastrule -} -} - -Dot forms can be used in symbolic terms in semantic rules: -{\small \[\testSevendruleTyXXRcd{}\]} - -Individually indexed projections from dot forms can be mentioned, eg -the $l_j$ below: -{\small \[\testSevendruleTyXXProj{}\]} - -Symbolic terms can also include concatenations of two dot forms with a -singleton in between: -{\small \[\testSevendrulereduceXXCtxXXrecord{}\]} - -Multiple dot forms within the same semantic rule can share bounds (e.g.~$1..m$): -{\small \[\testSevendruleMXXRcd{}\]} - - -In more detail, productions can have dot tokens interspersed between the elements. -These consist of two, three or four consecutive dots (\verb+..+, -\verb+...+, or \verb+....+), indicating lists with minimum lengths $0$, -$1$, and $2$ respectively\footnote{These length minimums are respected - when parsing concrete lists, but are not present in Isabelle/Coq/HOL - output.}. -The tool identifies the maximal sequence of elements on either side of -the dots that are identical modulo anti-unification of some -index. Optionally, there may also be a single terminal on either side -of the dot token, separating instances of the repeated unit. -For example, in the \texttt{test7.ott} production -\begin{verbatim} - | { l1 = t1 , .. , ln = tn } :: :: Rec -\end{verbatim} -there is such a terminal (the `\verb+,+'). The tool identifies -that \verb+l1 = t1+ and \verb+ln = tn+ can be anti-unified as -(roughly) \verb+l_ = t_+, taking \verb+_+ to be the bounds \verb+1+ and \verb+n+. -A single production may contain multiple dot forms, but they must not overlap; -nested dot forms (including those with multiple changing indices) are not currently -supported. - -Binding specifications are generalised to match: an \verb+mse+ can -involve a dot form of metavariables (e.g.~the -$\mathit{typvar_{\mathrm{1}}}..\mathit{typvar_{\mathit{n}}}$ above); -a dot form of nonterminals; or an auxiliary function applied to a dot -form -of nonterminals (e.g.~the -$\textrm{b}(\mathit{p_{\mathrm{1}}}..\mathit{p_{\mathit{n}}})$ above). -Dot forms on the right of a \textsf{bind} are not currently supported. - - - - - - - - -The generated Isabelle/Coq/HOL/OCaml types for dot forms involve lists of -tuples, e.g.~for the production above: -\par\noindent{\small -\begin{verbatim} - datatype - t = - ... - | t_Rec "(label*t) list" - ... -\end{verbatim} -} -The generated code for a rule involving dot forms involves, for each -bound that occurs, a generated variable for the list of tuples of -nonterminals and metavariables that occurred with that bound. For -example, the generated Isabelle for the first three rules above is -shown below (lightly hand-edited for format). The first involves an -Isabelle variable \verb+l_t_T_list+, and list maps and projections -thereof. -\par\noindent{\small -\begin{verbatim} -Ty_RcdI: " - [|(formula_formuladots ((List.map (%(l_,t_,T_).( ( G , t_ , T_ ) : Ty)) l_t_T_list)))|] - ==> - ( G , - (t_Rec ((List.map (%(l_,t_,T_).(l_,t_)) l_t_T_list))) , - (T_Rec ((List.map (%(l_,t_,T_).(l_,T_)) l_t_T_list))) - ) : Ty" - -Ty_ProjI: " - [| ( G , t , (T_Rec (l_T_list)) ) : Ty|] ==> - ( G , - (t_Proj t (%(l_,T_).l_) (List.nth l_T_list (j - 1))) , - (%(l_,T_).T_) (List.nth l_T_list (j - 1)) - ) : Ty" - -E_Ctx_recordI: " -[| List.list_all (%(l_,v_).is_v v_) l_v_list ; - ( t , t' ) : E|] -==> - ( (t_Rec (l_v_list @ [(l,t)] @ l_'t_'list)) , - (t_Rec (l_v_list @ [(l,t')] @ l_'t_'list)) - ) : E" -\end{verbatim} -} -The generated code for substitutions and free variables takes account of such list structure. - -Note that at present the generated Isabelle code for these functions -does not always build without change, in particular if tuples of size -3 or more are required in patterns. - - -Proof assistant homomorphisms in productions can refer to dot-form -metavariables and nonterminals. For example, the second production -below (taken from \verb+test17.9+) mentions \verb+[[x1 t1 ... xn tn]]+ in the \verb+isa+ -homomorphism. This must exactly match the dot form in the production -except that all terminals must be omitted --- the metavariables and -nonterminals must occur in the same order as in the production, and -the bounds must be the same. -\par\noindent{\small -\begin{verbatim} -E :: 'E_' ::= {{ isa ( ident * t ) list }} - | < > :: :: 1 {{ isa [] }} - | < x1 : t1 , ... , xn : tn > :: :: 2 {{ isa List.rev [[x1 t1 ... xn tn]] }} - -formula :: formula_ ::= - | judgement :: :: judgement - | formula1 .. formulan :: :: realdots {{ isa (List.list_all (\ b . b) ( [[ formula1 .. formulan ]] ) ) }} - -\end{verbatim} -} -The generated Isabelle code for symbolic -terms mentioning this production will involve a list of pairs. For -example, the rules -\par\noindent{\small -\begin{verbatim} -defn -|- E :: :: Eok :: Eok_ by - ----------------------------- :: 2 -|- - -|- t1:K1 ... |- tn:Kn ----------------------------- :: 3 -|- - \end{verbatim} -} -generate -\par\noindent{\small -\begin{verbatim} -consts - Eok :: "E set" -inductive Eok tK -intros - -(* defn Eok *) - -Eok_2I: " ( List.rev (x_t_list) ) : Eok" - -Eok_3I: "[| -(List.list_all (\ b . b) ( ((List.map (%(x_,t_,K_). ( t_ , K_ ) : tK) x_t_K_list)) ) )|] - ==> - ( List.rev ((List.map (%(x_,t_,K_).(x_,t_)) x_t_K_list)) ) : Eok" - \end{verbatim} -} -Note that in the second the list of pairs is projected out from the -\verb+x_t_K_list+ list of triples that is quantified over in the rule. - - -LaTeX homomorphisms should not refer to dot forms, as either an error -or bad output will be generated. (For LaTeX, one should really specify -a homomorphism for the repeated expression, and also data on how any -list separators should be typeset. This would require more -special-case treatment, and may not often be required.) - - - -\myparagraph{List Comprehension Forms}\mlabel{a44}% -% -Lists can also be expressed as explicit list comprehensions, primarily -to support more concise typesetting of rules. -Three different styles are supported. For example, in a symbolic -term, instead of the dot form -\par\noindent{\small -\begin{verbatim} - G |- t1:T1 .. G |- tn:Tn - \end{verbatim} -} -one can write any of the following -\par\noindent{\small -\begin{verbatim} - - - - \end{verbatim} -} -Similar comprehensions can be used in productions, for example lines -2--4 below. In addition, comprehensions in productions can specify a -terminal to be used as a separator in concrete lists, as in lines 5--7 below. -(These examples are taken from \verb+test17.10.ott+.) -\par\noindent{\small -\begin{verbatim} - | { l1 = t1 , .. , ln = tn } :: :: Rec {{ com record --- dots }} - | { } :: :: Rec_comp_none {{ com record --- comp }} - | { } :: :: Rec_comp_u_none {{ com record --- compu }} - | { } :: :: Rec_comp_lu_none{{ com record --- complu }} - | { } :: :: Rec_comp_some {{ com record --- comp with terminal }} - | { } :: :: Rec_comp_u_some {{ com record --- compu with terminal }} - | { } :: :: Rec_comp_lu_some {{ com record --- complu with terminal }} - \end{verbatim} -} -In Coq, HOL or Isabelle output, list dot forms and the -various list comprehension forms are treated almost identically. -In LaTeX output, comprension forms are typeset with overbars. -For example, the rules below -\par\noindent{\small -\begin{verbatim} - G|- t:{l1:T1,..,ln:Tn} - ----------------------- :: Proj_dotform - G|- t.lj : Tj - - G|- t: { } - ---------------------------------- :: Proj_comp - G|- t.lj : Tj - - G|- t: { } - ---------------------------------- :: Proj_comp_u - G|- t.lj : Tj - - G|- t: { } - ---------------------------------- :: Proj_comp_lu - G|- t.lj : Tj - \end{verbatim} -} -are typeset as follows. -%\testSeventeenTendruleTyXXRcdXXdotform -\[\testSeventeenTendruleTyXXProjXXdotform{}\] -%\testSeventeenTendruleTyXXRcdXXcomp -\[\testSeventeenTendruleTyXXProjXXcomp{}\] -%\testSeventeenTendruleTyXXRcdXXcompXXu -\[\testSeventeenTendruleTyXXProjXXcompXXu{}\] -%\testSeventeenTendruleTyXXRcdXXcompXXlu -\[\testSeventeenTendruleTyXXProjXXcompXXlu{}\] -% -Upper bounds of the form $n-1$ are also permitted, e.g. with -\par\noindent{\small -\begin{verbatim} - G|- t:{l0:T0,..,ln-1:Tn-1} - ----------------------- :: Proj_dotform_minus - G|- t.lj : Tj - - G|- t: { } - ---------------------------------- :: Proj_comp_lu_minus - G|- t.lj : Tj - \end{verbatim} -} -typeset as below. -\[\testSeventeenTendruleTyXXProjXXdotformXXminus{}\] -\[\testSeventeenTendruleTyXXProjXXcompXXluXXminus{}\] - -List comprehension forms can also be used in bindspecs and in -homomorphisms. - -A list form used in a symbolic term does not have to be in the same -style as that in the corresponding production. -However, if a metavariable or nonterminal occurs in multiple different -list forms in the same inference rule, they must all be in the same style and -with the same bounds. Moreover, in a production, a list form in a bindspec or -homomorphism must be in the same style and with the same bounds as the -corresponding list form in the elements of the production. - -The comprehension form with a single index, e.g. -\verb++, -typeset as $\overline{\Gamma \, \vdash \, \mathit{t_{\mathit{i}}} \, : - \, \mathit{T_{\mathit{i}}}}^{\,\mathit{i}}$, is not common notation. -We introduce it here as it is rather concise but remains unambiguous. -It does not specify the length of the list, but that is rather rarely required. -% -In some cases one could make the typeset notation even less noisy, by -either omitting the superscript $i$ or omitting both the superscript $i$ and -the subscript $i$'s on $t$ and $T$. The first is unambiguous if there -is at most one index on each element in the comprehension; the second -if all the elements are indexed by the same thing (not the case for -this example, but common for comprehensions of single elements, -e.g. \verb+<< Ti // i>>+ for $\overline{T}$). It is conceivable that that -should be automated, though it would bring the typeset and ASCII -versions out of step. - -%The tokens used for list dot forms and comprehension forms (\verb++, \verb+..+, \verb+...+, and -%\verb+....+) cannot at present be used in the object language. - - - - -\myparagraph{Code Embedding} It is possible to embed arbitrary code in -the Ott source using the \verb+embed+ section, which can contain -\verb+coq+/\verb+isa+/\verb+hol+/\verb+tex+/\verb+ocaml+ homomorphisms, the -bodies of which will appear in the respective output. -Depending on the position of the \verb+embed+ section, this will -either be at the beginning of the output file, between the generated -functions (substitution etc.) and the definitions of inductive -relations, or at the end of the file (for any after the first -definition, the \verb+embed+ keyword must be on a line by itself). For example, \verb+test8.ott+ contains the following to -define Coq and HOL \verb+remove_duplicates+ functions. -\par\noindent{\small -\begin{verbatim} -embed - {{ coq -Fixpoint remove_duplicates (l:list typvar_t) : list typvar_t := - match l with - | nil => nil - | cons h t => if (list_mem eq_typvar_t h t) then remove_duplicates t - else cons h (remove_duplicates t) -end. }} - - {{ hol -val _ = Define ` - (remove_duplicates [] = []) /\ - (remove_duplicates (x::xs) = if (MEM x xs) then remove_duplicates xs - else x::(remove_duplicates xs)) -`; }} -\end{verbatim} -} -Within the body of an \verb+embed+ homomorphism, any text between -\verb+[[+ and \verb+]]+ will be parsed as a symbolic term (of the -\verb+user_syntax+ grammar) and pretty printed, so one can use user -syntax within tex or proof assistant code. An Isabelle example is below. -\par\noindent{\small -\begin{verbatim} -{{ isa - -consts -order :: "type => nat" -primrec -"order [[unit]] = 0" -"order [[t*t']] = max (order [[t]]) (order [[t']])" -"order [[t->t']] = max (1+order [[t]]) (order [[t']])" - -}} -\end{verbatim} -} -Similar processing can be carried out on separate files, using the -command-line options \verb+tex_filter+, \verb+isa_filter+, etc., as -shown in \S\mref{a20}. - - -\myparagraph{Hom Sections} -Bindspecs and homomorphisms for productions, and any homomorphisms -for definitions, can be included in an Ott source file either -attached to the production or definition, as we have shown earlier, or -in separate \texttt{hom} sections. - -The \verb+test10_homs.ott+ example, in Fig.~\mref{a38}, shows this. It -produces the same output as the \verb+test10.ott+ example of -Fig.~\mref{a4}, but the homs have been moved into \texttt{hom} -sections, for example as below. -\par\noindent{\small -\begin{verbatim} -homs 't_' - :: Var {{ com variable }} - :: Lam (+ bind x in t +) {{ com abstraction }} - :: App {{ com application }} - -homs '' - :: reduce {{ com [[t1]] reduces to [[t2]] }} -\end{verbatim} -} -Each of these begins with a prefix and then has a sequence of -production name or definition name kernels, each followed by a -sequence of bindspecs and then a sequence of homomorphisms. -\begin{figure} -\fbox{\begin{minipage}{\textwidth} -\verbatiminput{../tests/test10_homs.ott} -\end{minipage}} -\caption{Hom Sections: \texttt{test10\_homs.ott}\protect\label{a38}} -\end{figure} - - - - -\myparagraph{\myLaTeX{} Output and Filtering}\mlabel{a20}% -The generated \myLaTeX{} output is factored into individual \myLaTeX{} -commands: for the metavariable declarations, each rule of the syntax -definition, the collected syntax, each rule of the inductive relation -definitions, the collected rules for each relation, the collected -rules for each \verb+defns+ block, and the whole. -% -This makes it possible to quote individual parts of the definition, -possibly out-of-order, in a paper or technical report. - -Additionally, there is (slightly rudimentary) support for using Ott as a munger. -There are command-line arguments \verb+-tex_wrap+ and \verb+-tex_filter+. -Typical usage would be something like this (from the \verb+Makefile+ -in the \verb+doc+ directory): -\begin{verbatim} -test7.tex: ../src/ott ../tests/test7.ott ../tests/test7tt.mng - cd ../src; make tmp_test7_clean.ott - ../src/ott \ - -tex test7.tex \ - -tex_show_meta false \ - -tex_wrap false \ - -tex_name_prefix testSeven \ - -tex_filter ../tests/test7tt.mng test7tt.tex \ - ../src/tmp_test7_clean.ott -\end{verbatim} -The \verb+-tex_wrap false+ turns off output of the default \myLaTeX{} -document preamble, so the generated file \verb+test7.tex+ just contains -\myLaTeX{} definitions. -The \verb+-tex_name_prefix testSeven+ sets a prefix for the generated -\myLaTeX{} commands -(so the \myLaTeX{} definitions from multiple Ott source files can be -included in a single \myLaTeX{} document). -The \verb+-tex_filter+ argument takes two -filenames, a source and a destination. It filters the source file, -(roughly) replacing any string found within \verb+[[+ \verb+]]+ by -the tex pretty-print of its parse. This parsing is done w.r.t.~a generated nonterminal -\verb+user_syntax+ which is a union of all the user's grammar. - -At present %(unlike our previous munger) -munged strings are not automatically -put within \verb+$+ \verb+$+, and there is no analogue of \verb+<[+ -\verb+]>+. We probably want to tune up the tex to make it more -convenient, e.g.~to put single rules in math displays (or not); -definitions in centering environments (or not), etc. - -The lexing -%pays some attention to \myLaTeX{} comments, but may not get it -%right. It -turns any sequence of \verb+[+ (resp. of \verb+]+) of -length $n+1$ for $n>2$ into a literal sequence of length $n$. - -The following two subsections show a source file (\verb+test7tt.mng+) that uses terms of the F$_{<:}$ -definition of \texttt{test7.ott}, and the result of filtering it. - -Similar filtering can be performed on Coq, Isabelle, HOL, and OCaml files. - -\subsubsection{F$_{<:}$ Extracts --- Source File}\mlabel{a29}% -\verbatiminput{../tests/test7tt.mng} - -\subsubsection{F$_{<:}$ Extracts --- The Filtered Output}\mlabel{a30}% -\input{test7tt.tex} - - -\myparagraph{Isabelle Syntax Support}\mlabel{a39}% -The tool has (limited) facilities to allow the Isabelle mixfix syntax support -and xsymbol to be used. The example \verb+test10_isasyn.ott+ shows -this in use. -% - -Non-meta productions can be annotated with -\verb+isasyn+ and/or \verb+isaprec+ homomorphisms. -For example, \verb+test10_isasyn.ott+ contains the production -\par\noindent{\small -\begin{verbatim} - | t t' :: :: App {{ isasyn [[t]]\[[t']] }} {{ isaprec 50 }} -\end{verbatim} -} -The two homs are used to output the Isabelle syntax annotation in the -\verb+t_App+ clause of the datatype definition below. -\par\noindent{\small -\begin{verbatim} -t = - t_Var "termvar" - | t_Lam "termvar" "t" ("\ _ . _" 60) - | t_App "t" "t" ("_\_" 50) -\end{verbatim} -} -Definitions can be annotated with -\verb+isasyn+ and/or \verb+isaprec+ homomorphisms similarly, e.g.~as below. -\par\noindent{\small -\begin{verbatim} - defn - t1 --> t2 :: :: reduce :: '' {{ isasyn [[t1]] ---> [[t2]] }} by -\end{verbatim} -} -This generates \verb+syntax+ and \verb+translations+ blocks as below. -\par\noindent{\small -\begin{verbatim} -consts - reduce :: "(t*t) set" - -syntax - "_reduce" :: "t => t => bool" ("_ ---> _" 50) - -translations - "(t17 ---> t27)" \ " ( t17 , t27 ) : reduce" -\end{verbatim} -} -Symbolic terms in definitions are printed using any production or -definition syntax. This (especially with xsymbol turned on) makes the -current goal state during Isabelle proof development much more -readable. - - - -Further, there is a command line option \verb+-isa_syntax true+. If -this is set then the tool generates Isabelle syntax annotations from -the source syntax. For example, the source file production for the -\verb+t_Lam+ clause is -\par\noindent{\small -\begin{verbatim} - | \ x . t :: :: Lam {{ isaprec 60 }} -\end{verbatim} -} -and the \verb+terminals+ grammar contains a mapping from \verb+\+ to \verb+\+: -\par\noindent{\small -\begin{verbatim} - terminals :: 'terminals_' ::= - | \ :: :: lambda {{ tex \lambda }} {{ isa \ }} -\end{verbatim} -} -This is used (just as for \myLaTeX{} homs) to generate the \verb+("\ _ . _" 60)+ -in the datatype definition above. - - -Limitations: -(1) the full range of Isabelle precedence and associativity -specifications are not supported; -(2) the automatically generated syntax annotations are somewhat crude, -especially w.r.t.~spacing and parenthesisation; -(3) syntax annotation on meta productions is not propertly supported; -and -(4) it would be desirable to have more fine-grain control of whether -to automatically generate annotations: per-production, per-rule, and -per-file. - - -%For example, the \verb+out.thy+ produced by -%\verb+make test10_isasyn+ (which includes this option), the annotation -%on - - -\myparagraph{Code Generation}\mlabel{a22}% -The Isabelle/Coq/HOL code generation facilities can be used to -generate (variously) OCaml and SML code from the definitions, if -they are suitably constrained. - -For example, the \verb+test10st_codegen.thy+ file uses Isabelle -code generation to produce SML code to calculate the possible -reductions of terms in the \verb+test10st.ott+ simply typed lambda -calculus. - -\verbatiminput{../tests/test10st_codegen.thy} - - - -\section{Example: Simply Typed Lambda Calculus}\mlabel{a34}% -This example extends the untyped lambda calculus of \S\mref{a2} with a -simple type system. We include Isabelle proof script for the -standard metatheoretic results, type preservation and progress. -% -In order to define a reasonable system using the concrete representation of -variables and binding, -the type system here is slightly unusual. It allows repeated -types for identifiers in type environments, with the rightmost being -the significant one. Type preservation is proved only for closed -terms, though it should be straightforward to weaken that to allow -terms that do not shadow identifiers in a standard library --- a -sufficient condition to prevent capture, as all substitutions -performed during reduction are of values that are closed except for standard -library identifiers. - -The definition presented here represents type environments using proof-assistant list types. For Isabelle we have also tried a variant using -a functional representation, that gave rise to somewhat simpler proof scripts. - -\subsection{Ott source}\mlabel{a35}% -{\small -\verbatiminput{../tests/test10st.ott} -} -\subsection{Generated \myLaTeX}\mlabel{a36}% -\testTenstall - -\subsection{Isabelle Proof Script for Metatheory (with Tom Ridge)}\mlabel{a37}% -{\small -\verbatiminput{../tests/test10st_metatheory_autoed.thy} -} - - - -\section{Example: ML Polymorphism (in an OCaml syntax fragment)}\mlabel{a23}% -\subsection{Ott Source}\mlabel{a24}% -{\small -\verbatiminput{../tests/test8.ott} -} -\subsection{Generated \myLaTeX}\mlabel{a25}% -\testEightall - -\section{Example: POPLmark F$_{<:}$ with Records}\mlabel{a26}% -Note that, as mentioned in \S\mref{a2}, the concrete variable -representation is not satisfactory for this example. -\subsection{Ott Source}\mlabel{a27}% -{\small -\verbatiminput{../src/tmp_test7_clean.ott} -} -\subsection{Generated \myLaTeX }\mlabel{a28}% -\testSevenall - -\end{document} - - - -\end{document} - - -%%% Local Variables: -%%% LaTeX-label-sequence-N: 69 -%%% LaTeX-label-prefix: "a" -%%% End: diff --git a/vendors/ott/emacs/ott-mode.el b/vendors/ott/emacs/ott-mode.el deleted file mode 100644 index 95553692fdeb..000000000000 --- a/vendors/ott/emacs/ott-mode.el +++ /dev/null @@ -1,32 +0,0 @@ -(define-generic-mode 'ott-mode - '("%") - '("metavar" "indexvar" "grammar" "embed" "subrules" "contextrules" "substitutions" "single" "multiple" "freevars" "defns" "defn" "by" "homs" "funs" "fun" "parsing" "begincoqsection" "endcoqsection" "coqvariable" "left" "right" "terminals" "formula" "judgement") - '( -; ("\\[\\[.+\\]\\]" . 'font-lock-warning-face) -; ("\\[\\[[^\\]]+\\]\\]" . 'font-lock-warning-face) - ("{{\\([^{}]+{[^{}]*}\\)*[^{}]*}}" . 'font-lock-doc-face) -; ("{{[^}]+}}" . 'font-lock-doc-face) - ("(\\+.+\\+)" . 'font-lock-keyword-face) - ("<<.*" . 'font-lock-keyword-face) - (">>" . 'font-lock-keyword-face) - ("" . 'font-lock-keyword-face) - (" | " . 'font-lock-keyword-face) - (";" . 'font-lock-keyword-face) - ("<::" . 'font-lock-keyword-face) - ("_::" . 'font-lock-keyword-face) - ("::=" . 'font-lock-keyword-face) - ("::" . 'font-lock-keyword-face) - ("<=" . 'font-lock-keyword-face) - ) - (list "\\.ott\\'") -; '(".keymap\\'" ".map\\'") - nil - "Major mode for editing ott format files.") - - -; ("\\%.*" . 'font-lock-doc-face) - -(provide 'ott-mode) diff --git a/vendors/ott/examples/1Bsemantics/Makefile b/vendors/ott/examples/1Bsemantics/Makefile deleted file mode 100644 index 73701e27785b..000000000000 --- a/vendors/ott/examples/1Bsemantics/Makefile +++ /dev/null @@ -1,23 +0,0 @@ - -OTT=~/github/ott/bin/ott - -l1: l1.ott - $(OTT) -pp_grammar -isa_syntax true l1.ott -o l1.tex -o l1.thy -o l1.lem - $(OTT) -tex_wrap false l1.ott -o l1_nowrap.tex - pdflatex l1.tex - lem l1.lem -isa - -l2: l1.ott l2.ott - $(OTT) -merge true l1.ott l2.ott -o l2.tex -o l2.thy -o l2.tmp.lem - pdflatex l2.tex - (echo 'open import Pervasives' ; cat l2.tmp.lem) > l2.lem - lem l2.lem -isa - - -clean: - rm -rf *~ - rm -rf l1.tex l1.thy l1.lem l1_nowrap.tex L1.thy - rm -rf l2.tex l2.thy l2.tmp.lem l2.lem l2.thy L2.thy - rm -rf l1.aux l1.log l1.pdf - rm -rf l2.aux l2.log l2.pdf - rm -rf L1Auxiliary.thy L2Auxiliary.thy diff --git a/vendors/ott/examples/1Bsemantics/l1.ott b/vendors/ott/examples/1Bsemantics/l1.ott deleted file mode 100644 index 612f1c551fa7..000000000000 --- a/vendors/ott/examples/1Bsemantics/l1.ott +++ /dev/null @@ -1,204 +0,0 @@ - -metavar n ::= - {{ com Numeric literals }} - {{ phantom }} - {{ lex numeric }} - {{ lem integer }} - -metavar location, l ::= - {{ com Store locations }} - {{ lem string }} - -grammar -b :: 'B_' ::= {{ com booleans }} {{ phantom }} {{ lem bool }} - | true :: :: true {{ lem true }} - | false :: :: false {{ lem false }} - -operations, op :: 'Op_' ::= {{ com operations }} - | + :: :: plus - | >= :: :: gteq - -e :: 'E_' ::= {{ com expressions }} - | n :: :: num - | b :: :: bool - | e1 op e2 :: :: op - | if e1 then e2 else e3 :: :: if - | l := e :: :: assign - | ! l :: :: ref - | skip :: :: skip - | e1 ; e2 :: :: sequence - | while e1 do e2 :: :: while - | ( e ) :: M :: paren {{ ichlo ([[e]]) }} - -v :: 'V_' ::= {{ com values }} - | n :: :: num - | b :: :: bool - | skip :: :: skip - -store , s :: 'Store_' ::= {{ com stores }} {{ phantom }} {{ lem list (location * integer) }} - | empty :: :: empty {{ lem [] }} - | s , l |-> n :: :: extend {{ lem (([[l]],[[n]])::[[s]]) }} - -typ, T :: 'T_' ::= {{ com types }} - | int :: :: int - | bool :: :: bool - | unit :: :: unit - -Tloc {{ isa tloc }} {{ coq tloc }} {{ hol tloc }} {{ lem tloc }} {{ ocaml tloc }} :: 'TLoc_' ::= {{ com types of locations }} - | intref :: :: intref - - -type_assumption, ta :: 'TA_' ::= {{ com type assumption }} - | l : Tloc :: :: loc - -G {{ tex \Gamma }} :: G_ ::= {{ com type environments }} {{ phantom }} {{ lem list type_assumption }} - | empty :: :: empty {{ lem [] }} - | G , ta :: :: extend {{ lem ([[ta]]::[[G]]) }} - - -terminals :: terminals_ ::= - | + :: :: plus - | >= :: :: leq {{ tex \geq }} - | |- :: :: turnstile {{ tex \vdash }} - | |-> :: :: mapsto {{ tex \mapsto }} - | ; :: :: seq - | -> :: :: red {{ tex \longrightarrow }} - | < :: :: la {{ tex \langle }} - | > :: :: ra {{ tex \rangle }} - -subrules - v <:: e - -grammar -formula :: formula_ ::= - | judgement :: :: judgement - | n1 + n2 = n3 :: :: sum {{ lem ([[n1]]+[[n2]]=[[n3]]) }} - | n1 >= n2 = b :: :: leq {{ lem ([[n1]]>=[[n2]]=[[b]]) }} - | s ( l ) = n :: :: lookup {{ lem (List.lookup [[l]] [[s]] =Just ([[n]])) }} - | G ( l ) = Tloc :: :: type_lookup {{ lem (lookup_location_type [[l]] [[G]] = Just ([[Tloc]])) }} - - -% this is a bit ugly - to capture the different use of Gamma in L1 and L2 we have a list of a Lem variant type and two special-purpose lookup functions, with a wildcard pattern match in each. - -embed {{ lem -let rec lookup_location_type l g = - match g with - | [] -> Nothing - | TA_loc l' tloc' :: g' -> if l=l' then Just tloc' else lookup_location_type l g' - | _ :: g' -> lookup_location_type l g' - end -}} - -defns - -Jop :: '' ::= - -% Reductions. Want to allow lem hom to specify witness and animation info - -defn -< e , s > -> < e' , s' > :: :: reduce :: '' {{ com $\langle[[e]],\,[[s]]\rangle$ reduces to $\langle[[e']],\,[[s']]\rangle$ }} by - - n1 + n2 = n ----------------------- :: op_plus - -> - - n1 >= n2 = b ----------------------- :: op_gteq -= n2, s> -> - - -> -------------------------------- :: op1 - -> - - -> -------------------------------- :: op2 - -> - - s(l) = n ------------------------------- :: deref - -> - --------------------------------------- :: assign1 -< l := n, s > -> n > - - -> --------------------------------------- :: assign2 -< l := e, s > -> < l := e', s' > - --------------------------------------- :: seq1 -< skip ; e, s > -> - - -> --------------------------------------- :: seq2 -< e1 ; e2, s > -> < e1' ; e2, s' > - ----------------------------------------------- :: if1 -< if true then e1 else e2, s > -> < e1, s > - ----------------------------------------------- :: if2 -< if false then e1 else e2, s > -> < e2, s > - - -> ------------------------------------------------------------- :: if3 -< if e then e1 else e2, s > -> < if e' then e1 else e2, s' > - ---------------------------------------------------------------------------- :: while -< while e1 do e2, s> -> < if e1 then ( e2 ; while e1 do e2 ) else skip, s > - - - -defn -G |- e : T :: :: typing :: Ty_ by - ------------------- :: int - G |- n : int - ------------------- :: bool - G |- b : bool - - - G |- e1 : int - G |- e2 : int -------------------------------- :: op_plus - G |- e1 + e2 : int - - - G |- e1 : int - G |- e2 : int -------------------------------- :: op_gteq - G |- e1 >= e2 : bool - - - G |- e1 : bool - G |- e2 : T - G |- e3 : T ----------------------------------- :: if - G |- if e1 then e1 else e3 : T - - - G(l) = intref - G |- e : int ------------------------ :: assign - G |- l := e : unit - - - G(l) = intref ------------------------ :: deref - G |- !l : int - - -------------------------------- :: skip - G |- skip : unit - - G |- e1 : unit - G |- e2 : T -------------------------------- :: seq - G |- e1 ; e2 : T - - - G |- e1 : bool - G |- e2 : unit -------------------------------- :: while - G |- while e1 do e2 : unit - - diff --git a/vendors/ott/examples/1Bsemantics/l2.ott b/vendors/ott/examples/1Bsemantics/l2.ott deleted file mode 100644 index 7d2f9b623b51..000000000000 --- a/vendors/ott/examples/1Bsemantics/l2.ott +++ /dev/null @@ -1,85 +0,0 @@ -% with -merge true, Ott does not generate a Lem "open import -% Pervasives". Maybe that's just an Ott bug. We work around it in -% the Makefile. - -metavar variable, x ::= - {{ com Variables }} - {{ lem string }} - -grammar -e :: 'E_' ::= {{ com expressions }} - | fn x : T => e :: :: fn (+ bind x in e +) - | e1 e2 :: :: app - | x :: :: var - | { e / x } e' :: M :: subst {{ ichlo (subst_e [[e]] [[x]] [[e']]) }} - -v :: 'V_' ::= {{ com values }} - | fn x : T => e :: :: fn - -typ, t :: 'T_' ::= {{ com types }} - | T1 -> T2 :: :: fn - -type_assumption :: 'TA_' ::= {{ com type assumption }} - | x : T :: :: var - -substitutions - single e x :: subst - -grammar -terminals :: terminals_ ::= - | => :: :: Rightarrow {{ tex \Rightarrow }} - - -grammar -formula :: formula_ ::= - | G ( x ) = T :: :: type_lookup_var {{ lem (lookup_var_type [[x]] [[G]] = Just ([[T]])) }} - -embed {{ lem -let rec lookup_var_type x g = - match g with - | [] -> Nothing - | TA_var x' t' :: g' -> if x=x' then Just t' else lookup_var_type x g' - | _ :: g' -> lookup_var_type x g' - end -}} - - -defns - -Jop :: '' ::= - -defn -< e , s > -> < e' , s' > :: :: reduce :: '' {{ com $\langle$[[e]],\,[[s]]$\rangle$ reduces to $\langle$[[e']],\,[[s']]$\rangle$ }} by - - -> -------------------------------- :: app1 - -> - - -> -------------------------------- :: app2 - -> - - ------------------------------- :: fn -<(fn x:T=>e) v,s> -> <{v/x}e,s> - - -defn -G |- e : T :: :: typing :: Ty_ by - - G(x)=T ------------------- :: var - G |- x:T - - -%TODO: add disjointness condition? - G,x:T |- e:T' -------------------------------- :: fn - G |- fn x:T=>e : T->T' - - G |- e1 : T->T' - G |- e2 : T -------------------------------- :: app - G |- e1 e2 : T' - - diff --git a/vendors/ott/examples/1Bsemantics/svn-log-2018-01 b/vendors/ott/examples/1Bsemantics/svn-log-2018-01 deleted file mode 100644 index 9072ac7f6399..000000000000 --- a/vendors/ott/examples/1Bsemantics/svn-log-2018-01 +++ /dev/null @@ -1,38 +0,0 @@ ------------------------------------------------------------------------- -r8326 | pes20 | 2016-11-28 08:29:51 -0800 (Mon, 28 Nov 2016) | 2 lines - -Conrad, Mark, Victor, Jean, Peter - ------------------------------------------------------------------------- -r8325 | pes20 | 2016-11-28 06:11:08 -0800 (Mon, 28 Nov 2016) | 2 lines - -more notes - ------------------------------------------------------------------------- -r8324 | pes20 | 2016-11-28 04:05:46 -0800 (Mon, 28 Nov 2016) | 2 lines - -tidying - ------------------------------------------------------------------------- -r8323 | pes20 | 2016-11-28 03:52:45 -0800 (Mon, 28 Nov 2016) | 2 lines - -l1 and l2 that typecheck in Lem - ------------------------------------------------------------------------- -r8322 | pes20 | 2016-11-28 03:01:44 -0800 (Mon, 28 Nov 2016) | 4 lines - -note on Ott features - why they are needed and how various tasks are supported - -Ott version of L2 - ------------------------------------------------------------------------- -r8321 | pes20 | 2016-11-24 08:37:53 -0800 (Thu, 24 Nov 2016) | 2 lines - -tidy - ------------------------------------------------------------------------- -r8320 | pes20 | 2016-11-24 08:33:08 -0800 (Thu, 24 Nov 2016) | 2 lines - -another Ott version of L1, starting from MarkW's, matching more closely the one used in the course and generating well-typed Lem - ------------------------------------------------------------------------- diff --git a/vendors/ott/examples/ocaml_light/.gitignore b/vendors/ott/examples/ocaml_light/.gitignore deleted file mode 100644 index bbccad337a3e..000000000000 --- a/vendors/ott/examples/ocaml_light/.gitignore +++ /dev/null @@ -1,19 +0,0 @@ -*.vo -*.glob -*.v.d -*.aux -.coqdeps.d -caml_typedef.dvi -caml_typedef.lem -caml_typedef.log -caml_typedef.pdf -caml_typedef.ps -caml_typedef.rawtex -caml_typedef.tex -caml_typedef.thy -caml_typedef.toc -caml_typedef.v -caml_typedefScript.sml -caml_typedef_reduction.ott -caml_typedef_syntax.ott -caml_typedef_typing.ott diff --git a/vendors/ott/examples/ocaml_light/Makefile b/vendors/ott/examples/ocaml_light/Makefile deleted file mode 100644 index 928739c12498..000000000000 --- a/vendors/ott/examples/ocaml_light/Makefile +++ /dev/null @@ -1,228 +0,0 @@ -## Default target: run ott, and typeset the spec. -default: ott ps pdf -## Run ott, and compile the spec in proof assistants (Coq, HOL and Isabelle). -all: default coq-def hol-def isa-def -## Build everything. Requires Coq, Isabelle, and HOL. -## See hol/README for HOL version requirement. -world: all hol-proof - - -lemtest: - make -C ../../src - make caml_typedef.lem - ~/bitbucket/lem/lem -wl_unused_vars ign -ocaml caml_typedef.lem - - - -#### Options for ott hackers #### -## Run `make separate_ott_runs=1' to run a separate ott process for -## each output languages (slower, but sometimes useful in case of -## language-specific bugs in ott). -separate_ott_runs = - -#### General targets #### -ott: caml_typedef.tex caml_typedef.v caml_typedefScript.sml caml_typedef.thy -ps: caml_typedef.ps -pdf: caml_typedef.pdf -coq-def: caml_typedef.vo -hol-def: caml_typedefTheory.uo hol_caml -isa-def: caml_typedef.isa -coq: coq-def -hol: hol-def -isa: isa-def -hol-proof: hol/definitionsTheory.uo hol/defs_red_funTheory.uo - -install_doc: caml_typedef.pdf - cp caml_typedef.pdf doc/built_doc - -#### Directories #### -############ CHANGE topdir TO REFER TO YOUR TOP LEVEL OTT INSTALLATION ######## -topdir = ../.. -#/home/so294/scratch/ott_distro_0.10.13 -ott_coq_lib_dir = $(topdir)/coq -ott_hol_lib_dir = $(topdir)/hol -poly_lib = /Users/so294/polyml.5.1/lib - -#### Programs and their arguments #### -COQC = coqc -#COQ_INCLUDE = -I $(ott_coq_lib_dir) -COQ_INCLUDE = -R $(ott_coq_lib_dir) Ott -COQ_FLAGS = -DVIPS = dvips -DVIPSFLAGS = -Ppdf -j0 -G0 -HOLMAKE = Holmake -HOLMAKE_INCLUDE = -I $(ott_hol_lib_dir) -HOLMAKE_FLAGS = --qof -ISABELLE = isabelle -ISABELLE_FLAGS = -q -ISABELLE_WRAPPER = use_thy "$*" handle e => (TextIO.output (TextIO.stdErr, "Isabelled failed: " ^ exnMessage e ^ "\n"); OS.Process.exit OS.Process.failure) -LATEX = latex -OTT = $(topdir)/src/ott -#OTT = $(topdir)/bin/ott -OTT_COMMON_FLAGS = -pp_grammar -tex_show_categories true -coq_expand_list_types false -isa_generate_lemmas false -## Run `make OTT_VERBOSITY_FLAGS= target' to cause ott to spew out a -## lot of debugging output. -OTT_VERBOSITY_FLAGS = -show_defns false -tex_show_categories true -#-show_post_sort false -OTT_FLAGS = -no_rbcatn true $(OTT_COMMON_FLAGS) $(OTT_VERBOSITY_FLAGS) -# -lem_debug true -PS2PDF = ps2pdf - -#### Preprocessing #### -caml_sources = syntax typing reduction -caml_combinations = \ - caml_plain caml_module caml_module_typedef caml_typedef - -## Extract the desired language fragment -caml_plain_%.ott: %.ott - cat $< >$@.tmp - mv -f $@.tmp $@ -caml_module_%.ott: %.ott - sed -e 's/\(\(%[^%]\)*\)%m/\1/' $< >$@.tmp - mv -f $@.tmp $@ -caml_typedef_%.ott: %.ott - sed -e 's/\(\(%[^%]\)*\)%d/\1/' $< >$@.tmp - mv -f $@.tmp $@ -caml_module_typedef_%.ott: %.ott - sed -e 's/\(\(%[^%]\)*\)%d/\1/' -e 's/\(\(%[^%]\)*\)%m/\1/' $< >$@.tmp - mv -f $@.tmp $@ - -## Multiple extraction targets -caml_%.ott: caml_%_syntax.ott caml_%_typing.ott caml_%_reduction.ott ; - -#### Ott #### -ifeq ($(separate_ott_runs),) -## One ott run to produce everything -caml%.rawtex caml%.v caml%Script.sml caml%.thy caml%.lem: \ - caml%_syntax.ott caml%_typing.ott caml%_reduction.ott $(OTT) - # Note: no protection against interruptions for hol and isabelle, - # because ott requires a file name ending in Script.sml. - $(OTT) $(OTT_FLAGS) -o caml$*.tmp.tex -o caml$*.tmp.v -o caml$*Script.sml -o caml$*.thy -o caml$*.lem caml$*_syntax.ott caml$*_typing.ott caml$*_reduction.ott - mv -f caml$*.tmp.tex caml$*.rawtex - mv -f caml$*.tmp.v caml$*.v -else -## Separate ott runs, one per target -caml%.rawtex: caml%_syntax.ott caml%_typing.ott caml%_reduction.ott $(OTT) - $(OTT) $(OTT_FLAGS) -o $@ $(@:.tex=)_syntax.ott $(@:.tex=)_typing.ott $(@:.tex=)_reduction.ott -# mv -f $@.tmp $@ -caml%Script.sml: caml%_syntax.ott caml%_typing.ott caml%_reduction.ott $(OTT) - # Note: no protection against interruptions, because ott requires - # a file name ending in Script.sml. - $(OTT) $(OTT_FLAGS) -o $@ $(@:Script.sml=)_syntax.ott $(@:Script.sml=)_typing.ott $(@:Script.sml=)_reduction.ott -caml%.thy: caml%_syntax.ott caml%_typing.ott caml%_reduction.ott $(OTT) - # Note: no protection against interruptions, because ott requires - # a file name ending in .thy. - $(OTT) $(OTT_FLAGS) -o $@ $(@:.thy=)_syntax.ott $(@:.thy=)_typing.ott $(@:.thy=)_reduction.ott -caml%.v: caml%_syntax.ott caml%_typing.ott caml%_reduction.ott $(OTT) - $(OTT) $(OTT_FLAGS) -coq_expand_list_types false -o $@ $(@:.v=)_syntax.ott $(@:.v=)_typing.ott $(@:.v=)_reduction.ott -# mv -f $@.tmp $@ -caml%.lem: caml%_syntax.ott caml%_typing.ott caml%_reduction.ott $(OTT) - $(OTT) $(OTT_FLAGS) -o $@ $(@:.v=)_syntax.ott $(@:.v=)_typing.ott $(@:.v=)_reduction.ott -# mv -f $@.tmp $@ -endif - -caml%.grammar: caml%_syntax.ott caml%_typing.ott caml%_reduction.ott $(OTT) - $(OTT) $(OTT_FLAGS) -writesys $@.tmp $(@:.grammar=)_syntax.ott $(@:.grammar=)_typing.ott $(@:.grammar=)_reduction.ott - mv -f $@.tmp $@ - -$(OTT): %: -# cd $(@D) && $(MAKE) $(@F) - -## Generate all combinations -caml_combinationsScript.sml: $(caml_combinations:=Script.sml) ; -caml_combinations.dvi: $(caml_combinations:=.dvi) ; -caml_combinations.pdf: $(caml_combinations:=.pdf) ; -caml_combinations.ps: $(caml_combinations:=.ps) ; -caml_combinations.tex: $(caml_combinations:=.tex) ; -caml_combinations.thy: $(caml_combinations:=.thy) ; -caml_combinations.v: $(caml_combinations:=.v) ; - -#### TeX #### -%.tex: %.rawtex ott-preamble.sed - sed -f ott-preamble.sed <$< >$@.tmp - mv -f $@.tmp $@ - -.SUFFIXES: .tex .dvi .ps .pdf -.tex.dvi: - $(LATEX) $< - $(LATEX) $< - $(LATEX) $< -.dvi.ps: - $(DVIPS) $(DVIPS_FLAGS) -o $@ $< -.ps.pdf: - $(PS2PDF) $< $@ - -#### Coq #### -coq_libs = $(ott_coq_lib_dir)/ott_list -coq-libs: $(coq_libs:=.vo) -$(coq_libs:=.vo): %: - cd $(@D) && $(MAKE) $(@F) -.SUFFIXES: .v .vo -.v.vo: - $(COQC) $(COQ_INCLUDE) $(COQ_FLAGS) $< - -#### Hol #### -dummy: - -hol_caml.o: caml_typedefTheory.uo hol_caml.ML - hol.builder < hol_caml.ML - -hol_caml: hol_caml.o - cc -L$(poly_lib) -o hol_caml -lpolymain -lpolyml hol_caml.o - -hol_libs = $(topdir)/hol/ottLib $(topdir)/hol/ottTheory -hol-libs: $(hol_libs:=.ui) $(hol_libs:=.uo) -$(hol_libs:=.ui) $(hol_libs:=.uo): %: - cd $(@D) && $(MAKE) $(@F) -%Theory.uo: %Script.sml hol-libs - $(HOLMAKE) $(HOLMAKE_INCLUDE) $(HOLMAKE_FLAGS) $@ -hol/Holmakefile: Makefile - rm -f hol/Holmakefile - echo INCLUDES = .. ../$(ott_hol_lib_dir) > hol/Holmakefile -hol/testing/Holmakefile: Makefile - rm -f hol/testing/Holmakefile - echo INCLUDES = .. ../.. $(ott_hol_lib_dir) > hol/testing/Holmakefile -hol/definitionsTheory.uo: caml_typedefTheory.uo hol/Holmakefile hol/testing/Holmakefile dummy hol-def - cd $(@D) && $(HOLMAKE) $(HOLMAKE_FLAGS) --poly ../hol_caml $(@F) -hol/defs_red_funTheory.uo: caml_typedefTheory.uo hol/Holmakefile hol/testing/Holmakefile dummy hol-def - cd $(@D) && $(HOLMAKE) $(HOLMAKE_FLAGS) --poly ../hol_caml $(@F) - -hol/ocamlpp/filter: - cd $(@D) && $(MAKE) $(@F) - -#### Isabelle #### -.SUFFIXES: .thy .isa -.thy.isa: - $(ISABELLE) $(ISABELLE_FLAGS) -e '$(ISABELLE_WRAPPER)' - touch $@ # TODO: can Isabelle produce a proof trace of some kind? - -#### Cleanup #### -clean: - rm -f *.grammar *.rawtex - rm -f *.aux *.dvi *.lof *.log *.lot *.ps *.pdf *.toc - rm -f *.vo *.ui *.uo *.isa - rm -f $(caml_combinations:=_syntax.ott) $(caml_combinations:=_typing.ott) $(caml_combinations:=_reduction.ott) - rm -f $(caml_combinations:=.tex) $(caml_combinations:=Script.sml) $(caml_combinations:=.thy) $(caml_combinations:=.v) - rm -f *Theory.sig *Theory.sml - rm -f *.tmp tmp.* hol_caml - rm -rf .HOLMK - rm -rf *~ - -#### Dependencies #### -## Ott preprocessed sources -$(caml_combinations:=_syntax.ott): -$(caml_combinations:=_typing.ott): -$(caml_combinations:=_reduction.ott): -## Ott output -$(caml_combinations:=.rawtex): $(OTT) -$(caml_combinations:=.tex): $(OTT) -$(caml_combinations:=.dvi): ott-spec.ltx -$(caml_combinations:=.v): $(OTT) -$(caml_combinations:=Script.sml): $(OTT) -$(caml_combinations:=.thy): $(OTT) -## Coq -$(caml_combinations:=.vo): caml_lib_misc.vo -caml_base.vo: caml_base.v caml_typedef.vo -caml_examples_adhoc_1.vo: caml_examples_adhoc_1.v caml_typedef.vo caml_base.vo - -#### The End #### diff --git a/vendors/ott/examples/ocaml_light/Makefile-distrib b/vendors/ott/examples/ocaml_light/Makefile-distrib deleted file mode 100644 index 87a205fc23c8..000000000000 --- a/vendors/ott/examples/ocaml_light/Makefile-distrib +++ /dev/null @@ -1,58 +0,0 @@ -FILES = \ - Makefile README caml_lib_misc.v ott-preamble.sed ott-spec.ltx \ - reduction.ott syntax.ott typing.ott - -HOL_FILES = \ - basicScript.sml definitionsScript.sml defs_red_funScript.sml \ - env_permScript.sml environmentScript.sml matching_funScript.sml \ - preservationScript.sml progressScript.sml reduction_funScript.sml \ - remv_tyvarScript.sml shiftScript.sml storeScript.sml strengthenScript.sml \ - substsScript.sml teqScript.sml type_substScript.sml type_substsScript.sml \ - utilScript.sml validScript.sml weakenScript.sml - -PP_FILES = \ - Makefile README main.ml .depend - -PP_FILES_PARSING = \ - asttypes.mli lexer.mll linenum.ml linenum.mli linenum.mll location.ml \ - location.mli longident.ml longident.mli parse.ml parse.mli parser.mly \ - parsetree.mli printast.ml printast.mli syntaxerr.ml syntaxerr.mli - -PP_FILES_UTIL = \ - ccomp.ml ccomp.mli clflags.ml clflags.mli config.ml config.mlbuild \ - config.mli config.mlp consistbl.ml consistbl.mli misc.ml misc.mli tbl.ml \ - tbl.mli terminfo.ml terminfo.mli warnings.ml warnings.mli - -TESTING_FILES = \ - Makefile make_ml.sml process-tests.scm sources1.cm sources2.cm tests \ - theoryML.cm reduction_funML.BUGFIX.sml README - -WEB_FILES = \ - caml_typedef.pdf caml_typedef.ps \ - caml_typedefScript.sml caml_typedef.v caml_typedef.thy \ - caml_typedef_syntax.ott caml_typedef_typing.ott caml_typedef_reduction.ott \ - hol/testing/tests - -ocaml_light.tar.gz: ocaml_light - tar -cf ocaml_light.tar ocaml_light - gzip ocaml_light.tar - -ocaml_light: - mkdir -p ocaml_light/hol/ocamlpp/parsing - mkdir -p ocaml_light/hol/ocamlpp/utils - mkdir -p ocaml_light/hol/testing - cp $(FILES) ocaml_light - cp $(addprefix hol/,$(HOL_FILES)) ocaml_light/hol - cp $(addprefix hol/ocamlpp/,$(PP_FILES)) ocaml_light/hol/ocamlpp - cp $(addprefix hol/ocamlpp/parsing/,$(PP_FILES_PARSING)) ocaml_light/hol/ocamlpp/parsing - cp $(addprefix hol/ocamlpp/utils/,$(PP_FILES_UTIL)) ocaml_light/hol/ocamlpp/utils - cp $(addprefix hol/testing/,$(TESTING_FILES)) ocaml_light/hol/testing - cd ocaml_light && make - -install: ocaml_light.tar.gz - cp ocaml_light.tar.gz $(addprefix ocaml_light/,$(WEB_FILES)) ~/public_html/ocaml - -clean: - rm -rf ocaml_light - rm -f ocaml_light.tar - rm -f ocaml_light.tar.gz diff --git a/vendors/ott/examples/ocaml_light/README b/vendors/ott/examples/ocaml_light/README deleted file mode 100644 index 57de14e4d36f..000000000000 --- a/vendors/ott/examples/ocaml_light/README +++ /dev/null @@ -1,88 +0,0 @@ -A formal specification for OCaml: the Core Language -Scott Owens and Gilles Peskine and Peter Sewell - -This is described in - - A Sound Semantics for OCaml light, Scott Owens, ESOP 2008. - https://www.cs.kent.ac.uk/people/staff/sao/documents/esop08.pdf - -The doc/built_doc directory contains an annotated version of the -semantics and posters that summarise the project and the semantics. - - -Quick start -=========== -1) Set the "topdir" variable in Makefile to point to your Ott distribution. -2) Run make -This produces a typeset version of the specification in caml_typedef.pdf (also -caml_typedef.ps) and proof assistant code in - caml_typedef.v (Coq) - caml_typedefScript.sml (HOL) - caml_typedef.thy (Isabelle/HOL) -(NOTE: The distribution already contains these files.) - -To compile the Coq/HOL/Isabelle specification, run one of - make coq-def # requires Coq 8.1 - make hol-def # requires a reasonably recent HOL-4 - # (tested on svn version 5632 from - # https://hol.svn.sf.net/svnroot/hol/HOL). - # Further, the HOL proof libraries that are distributed - # with Ott must first be compiled by running "make" in - # the hol subdirectory of your Ott directory. - make isa-def # requires Isabelle2005 - -To compile Scott Owens' type soundness proof (in HOL): - make hol-proof # requires a recent HOL-4 - (tested on svn version 5632 from - https://hol.svn.sf.net/svnroot/hol/HOL) - -It is highly recommended that your ott distribution is built using ocaml's -native code compiler (use "make world-opt" from Ott's top level directory). - -Overview -======== - -The source of the specification is in the files - syntax.ott - typing.ott - reduction.ott -These source files contain optional features. The only currently supported -optional feature is type definitions (such lines begin with %d). To produce the -ott sources with type definitions enabled, run `make'; this leaves the output -in - caml_typedef_syntax.ott - caml_typedef_typing.ott - caml_typedef_reduction.ott -The default makefile invocations have type definitions enabled. - - ott-spec.ltx - ott-preamble.sed -These files are used in typesetting the specification. - - caml_lib_misc.v -Contains some Coq code necessary to build the Coq version of the specification. - - -The subdirectory "hol" contains a type soundness proof in HOL (in -definitionsScript.sml, but relying on almost all of the other script files) and -an executable semantics (in defs_red_funScript.sml, reduction_funScript.sml, -and matching_funScript.sml). Using "make hol-proof" runs HOL to generate -corresponding *Theory.uo files (thus checking the proofs). The "Holmake" -program, distributed with HOL-4, should be in your path for this to work; -otherwise, alter the HOLMAKE= line of "Makefile" to point to your "Holmake". - - -The "hol/ocamlpp" subdirectory contains the parser from Objective Caml 3.10.0 -modified to produce the AST for the HOL representation of OCaml programs -(see hol/ocamlpp/README). - -The "hol/testing" subdirectory contains the test cases for the operational -semantics (see hol/testing/README). - - -Revision history -================ -2013 updated to add Lem generation, by Kathryn E. Gray and Scott Owens - -2018-01 made build with the current version of Ott, Peter Sewell - diff --git a/vendors/ott/examples/ocaml_light/README.internal b/vendors/ott/examples/ocaml_light/README.internal deleted file mode 100644 index 575fbaac2ae6..000000000000 --- a/vendors/ott/examples/ocaml_light/README.internal +++ /dev/null @@ -1,58 +0,0 @@ -Specifications -============== - -The source of the specification is in the files - syntax.ott - typing.ott - reduction.ott - -The language contains two optional features: type definitions and modules. -This leads to four variants: - plain the core core language - typedef with type definitions - module with modules - module_typedef with both modules and type definitions -The source files are first preprocessed to specialise them for a certain -feature combination, yielding the files - caml_plain_syntax.ott caml_module_syntax.ott caml_module_typedef_syntax.ott caml_typedef_syntax.ott - caml_plain_typing.ott caml_module_typing.ott caml_module_typedef_typing.ott caml_typedef_typing.ott - caml_plain_reduction.ott caml_module_reduction.ott caml_module_typedef_reduction.ott caml_typedef_reduction.ott - -Inside the ott sources, optional features are hidden within comments. -Lines beginning with "%d" are commented out to enable type -definitions, and lines beginning with "%m" are commented out to enable -modules. Whole passages can be restricted to a feature by the following -trick: - ... basic material ... - >> - %d<< - ... type definitions specific material ... - %d>> - << - ... more basic material ... - -For each feature combination, the spec is processed by ott with the command - ott caml__syntax.ott caml__typing.ott caml__reduction.ott -The Makefile is set up to produce the following output files: - caml_.rawtex # LaTeX - caml_.v # Coq - caml_Script.sml # HOL - caml_.thy # Isabelle - -The .rawtex file is tweaked to obtain a .tex file with better typesetting -choices. - -To build the versions of a file with all possible feature combinations, run -`make caml_combinations', e.g., `make caml_combinations.ps'. - - - -Coq stuff -========= - -The following files are used when building the spec: - caml_lib_misc.v - -Other *.v files are attempts at demonstrating some aspects of the spec, none -currently worth distributing. - diff --git a/vendors/ott/examples/ocaml_light/caml_lib_misc.v b/vendors/ott/examples/ocaml_light/caml_lib_misc.v deleted file mode 100644 index c34643657686..000000000000 --- a/vendors/ott/examples/ocaml_light/caml_lib_misc.v +++ /dev/null @@ -1,110 +0,0 @@ -(* Miscellaneous non-caml-specific things used by caml. *) - -Require Import Arith. -Require Ascii. -Require Import Bool. -Require Import List. -Require String. -Require Import ZArith. -Set Implicit Arguments. - -Hint Resolve Ascii.ascii_dec bool_dec String.string_dec : ott_coq_equality. - - - -Section ZArith_extra. - -Lemma positive_eq_dec: forall (x y : positive), {x = y} + {x <> y}. -Proof. - intros. destruct (Z.eq_dec (Zpos x) (Zpos y)). - injection e; auto. - assert (x <> y). intro. rewrite H in n; auto. auto. -Qed. - -End ZArith_extra. - -Hint Resolve positive_eq_dec : ott_coq_equality. - - - -(* Coq 8.1 has NoDup -Section Permutes. -Variable A : Set. - -(* Here are two definitions for a predicate stating that two lists are - permutations of each other. The best definition might not be either - of these. In any case, these definitions and lemmas about them - should go into a separate module. Note that Coq includes a - Permutation library, but it only handles ordered types. *) - -Inductive inserts (a:A) : list A -> list A -> Prop := - | Inserts_here : forall l, inserts a l (a::l) - | Inserts_further : - forall a0 l l', inserts a l l' -> inserts a (a0::l) (a0::l'). -Inductive Permutes : list A -> list A -> Prop := - | Permutes_nil : Permutes nil nil - | Permutes_cons : - forall a l l', Permutes l l' -> inserts a l l' -> Permutes (a::l) l'. - -Lemma inserts_equiv_app : - forall a l l', - inserts a l l' <-> - exists l0, exists l1, (l = l0 ++ l1 /\ l' = l0 ++ a::l1). -Admitted. -Definition Permutes_mutual_containment (l l':list A) := - (forall x, In x l -> In x l') /\ - (forall x, In x l' -> In x l) /\ - length l = length l'. -Lemma Permutes_equiv_mutual_containment : - forall l l', Permutes l l' <-> Permutes_mutual_containment l l'. -Admitted. - -End Permutes. -*) - - - -(* -Section Specialized_lists_support_hacks. -(* Provide various definitions to support both standard and specialized - lists. The notations defined here will be used in standard list mode, - and shadowed in specialized list mode. *) -(* Also force the use of standard library list types for - [environment_binding] lists and [environment] lists. Note that coq - homs in the ott source must be consistent with this choice. *) -(* We do this here, before the types [typevar] and [environment] - are even defined, because some of these functions are used in - auxiliary functions such as substitutions. *) -Set Implicit Arguments. - -Definition identity (A:Set) (x:A) := x. -Definition nth_error' (A:Set) (n:nat) (l:list A) := @nth_error A l n. - -Definition map_list_environment_binding := map. -Definition make_list_environment_binding := identity. -Definition unmake_list_environment_binding := identity. -Definition nth_list_environment_binding := nth_error'. -Definition app_list_environment_binding := app. - -Definition map_list_environment := map. -Definition make_list_environment := identity. -Definition unmake_list_environment := identity. -Definition nth_list_environment := nth_error'. -Definition app_list_environment := app. - -End Specialized_lists_support_hacks. -(* Notations do not survive the end of sections *) -Notation Nil_list_typevar := nil (only parsing). -Notation Nil_list_environment_binding := nil (only parsing). -Notation Cons_list_environment_binding := cons (only parsing). -Notation Nil_list_environment := nil (only parsing). -Notation Cons_list_environment := cons (only parsing). -Notation Nil_list_type_param := nil (only parsing). -Notation Cons_list_type_param := cons (only parsing). -Notation Nil_list_typexpr := nil (only parsing). -Notation Cons_list_typexpr := cons (only parsing). -Notation make_list_value_name_expr := (fun x => x) (only parsing). -Notation make_list_pat_exp := (fun x => x) (only parsing). -Notation Nil_list_value_name_expr := nil (only parsing). -Notation Cons_list_value_name_expr := (fun x e => cons (x,e)) (only parsing). -*) diff --git a/vendors/ott/examples/ocaml_light/doc/Makefile b/vendors/ott/examples/ocaml_light/doc/Makefile deleted file mode 100644 index 4d859af7a86e..000000000000 --- a/vendors/ott/examples/ocaml_light/doc/Makefile +++ /dev/null @@ -1,14 +0,0 @@ -DVIPSFLAGS = -Ppdf -j0 -G0 - -all: - latex poster && dvips $(DVIPSFLAGS) poster && ps2pdf poster.ps - latex poster_rules.tex && dvips $(DVIPSFLAGS) poster_rules && ps2pdf poster_rules.ps - -install_doc: - cp poster.pdf built_doc - cp poster_rules.pdf built_doc - -clean: - rm -rf *.aux *.dvi *.log - rm -rf *~ - rm -rf poster_rules.ps poster_rules.pdf poster.ps poster.pdf diff --git a/vendors/ott/examples/ocaml_light/doc/abstract.tex b/vendors/ott/examples/ocaml_light/doc/abstract.tex deleted file mode 100644 index da439d7731eb..000000000000 --- a/vendors/ott/examples/ocaml_light/doc/abstract.tex +++ /dev/null @@ -1,78 +0,0 @@ -\documentclass{llncs} - -\newcommand{\OCL}{OCaml$_\mathit{light}$} -\renewcommand{\refname}{} - -\title{A Sound Semantics for \OCL{}\\\emph{\normalsize Poster Abstract}} -\author{Scott Owens} -\institute{University of Cambridge} - - -\usepackage{times} -\usepackage{url} - -\begin{document} -\maketitle - -\OCL{}~\cite{ocl,oclweb} is a formal semantics for a substantial subset of the -Objective Caml core language. It is written in Ott~\cite{ott}, which generates -\LaTeX, HOL, Coq, and Isabelle/HOL definitions, and it comprises a small-step -operational semantics and a syntactic, non-algorithmic type system. A type -soundness theorem has been proved and mechanized in HOL-4. To ensure that the -operational semantics accurately models Objective Caml, an executable version -of the semantics has been created (and proved equivalent in HOL to the -original, relational version) and tested on a number of small test cases. - -We take a straightforward approach, formalizing the syntax of \OCL{} as a -collection of inductive datatypes, and the \OCL{} type system and operational -semantics as a collection of inductive relations and recursive functions -directly over the source syntax. We hypothesize that this clear connection -between the source language and its semantics will facilitate verification -about \OCL{} programs, in addition to the present verification of type -soundness. \OCL{} covers a large part of Objective Caml, but excludes the -language's module and object systems. It includes: -\begin{itemize} -\item -definitions -\begin{itemize} -\item -variant data types (e.g., \verb+type t = I of int | C of char+), -\item -record types (e.g., \verb+type t = {f : int; g : bool}+), -\item -parametric type constructors (e.g., \verb+type 'a t = C of 'a+), -\item -type abbreviations (e.g., \verb+type 'a t = 'a * int+), -\item -mutually recursive combinations of the above (excepting abbreviations), -\item -exceptions, and values; -\end{itemize} -\item -expressions for type annotations, sequencing, and primitive values (functions, lists, tuples, and records); -\item -\verb+with+ (record update), \verb+if+, \verb+while+, \verb+for+, \verb+assert+, \verb+try+, and \verb+raise+ expressions; -\item -let-based polymorphism with an SML-style value restriction; -\item -mutually-recursive function definitions via \verb+let rec+; -\item -pattern matching, with nested patterns, \verb+as+ patterns, and ``or'' (\verb+|+)patterns; -\item -mutable references with \verb+ref+, \verb+!+, and \verb+:=+; -\item -polymorphic equality (the Objective Caml \verb+=+ operator); -\item -31-bit word semantics for \texttt{int}s (using an existing HOL library); and -\item -IEEE-754 semantics for \texttt{float}s (using an existing HOL library). -\end{itemize} - -Most of the proof effort is a straightforward application of HOL's tactic-based proof mechanisms. The entire proof is around 11000 lines of tactic scripts. -The poster will present the \OCL{} semantics and also lessons from the verification process. -\bibliographystyle{splncs} -\vspace{-30pt} -{\tiny -\bibliography{bib} -} -\end{document} diff --git a/vendors/ott/examples/ocaml_light/doc/bib.bib b/vendors/ott/examples/ocaml_light/doc/bib.bib deleted file mode 100644 index d6a136f4a99d..000000000000 --- a/vendors/ott/examples/ocaml_light/doc/bib.bib +++ /dev/null @@ -1,19 +0,0 @@ -@inproceedings{ott, - author = {Peter Sewell and Francesco {Zappa Nardelli} and Scott Owens and Gilles Peskine and Thomas Ridge and Susmit Sarkar and Rok {Strni\v sa}}, - title = {Ott: Effective Tool Support for the working Semanticist}, - year = 2007, - booktitle = {Proc.\ ICFP} -} - - -@inproceedings{ocl, - author = {Scott Owens}, - title = {A Sound Semantics for {OCaml$_{light}$}}, - year = 2008, - booktitle = {Proc.\ ESOP} -} - -@misc{oclweb, - author={Scott Owens}, - title={{OCaml$_\mathit{light}$}}, - note={\url{http://www.cl.cam.ac.uk/~so294/ocaml}}} diff --git a/vendors/ott/examples/ocaml_light/doc/built_doc/poster.pdf b/vendors/ott/examples/ocaml_light/doc/built_doc/poster.pdf deleted file mode 100644 index 37e04efb720eb8692de3e74540a334494fe28f66..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 41167 zcmY!laBl2qUwh!a&!7M1+xhp^DLh)S`p^91`s@F_Q|$c`UNmpb z)NijIZf4J9D_r_lWe;cgx!;;UR=4ZR|M~Xe@@r|;FDk9Jf1dqHo44ef-;cw0qyM=J z*v%-Ym^y!LXuEpmo{7tP__O%hmtQwe61uhW@aZ4dxEz)DJxbT_DOor339r5N+UCpc z_djngyms!>2aEHM4nK^JbN4;9`mnLw!nvYmGVj(co!hdgbe|{loQduKWta0^;wb#_ zr)r+a+rzDCrFX7&ryi}Z{lU#7cCfE+$(E@+x=jZ}rtH`iIC;idpMol&%7+SSL9&Vo{l|2NnFP`;+`y9r}XE^WAC`9<~$6u&KPKL zeBF}FbUHTfaAoYXskb=m!dUpkMH&<4r78DZZGSJ}66ST@qq8_-q0o<)U(`6-bOqZl zrkU;8t}kczLw(Vz4uK8zljPT3i~xQz)$ zuw)+=xN$6Fxq0CiAEA@Ra``jfZe@%E5`!YQ^uK(QrW95u=b-~UC&N(tK zU&Y>8$al|WUjJ{QO&w0zF2%nNHJp*wzqD;izQMd!9nWh%ZCw%Dz!icbp37g z4|cv?t%v`bo_%S0cBT85CYR3V$0g+tR@}L@NkF(K;RCmjPP|>kkLml@=D0Vk$Vs0Z zc5#Us^U1(C-%B%d5BGV5DrZ%*R_yidI(2T@#OC!0mm^nlMP;_0W?Hd_aq-fufc`^| ztAB_bf8bSWyvkB|&6MvMdrK$UD4G0u_;stv_^pOpdiJ_}la)5b zKPs8>1MIZC?}=u9V7u?(=PM3-2b9kgENAIs=zS9Dhc`nKb zlWS8w_0WI4{J-d+`v#XLy-=)l?=s+;tG*y_(WTHW)|+zwsW2s)t&#{#k>q4+ka)o*%z`_n_iNsQFEDcd5?F2 zie0j;>m0`_oop3fji9%7%9l=FP$@C_-E+)y&WUWSsf*)937pWlv8^EY_?jsZomh+aqr}Q?#jb|DL_g=jT1Wene=0 z`}Oq?cAjzXua9~5`_G9QlS4mJ{GVMv|L~`F#lN)5cY&P>uB$mrB>8flhE(J$+z@!$ z%aO9OdhUuzXV-pSDfE)R@{OU5yJeoKpkQC!B#l7V)qi4c83}uD?stnm=9@C9p5szf z;yS^ct|v3gW;S(dO>)ULbNUhZIcDPToSCy*)GQTK^g5GWBInz${k=Q(h48ZqmgM(r z=k@#Kk9%&q8!~O*79V$q^?k)+Yj-*D`Fd=5HDzBzSbVdchtQM*_b;e)9h`pjMA5>9 zIahd;U;ehZxNXXAkJ%?Jf3&90Xxcol@J-hqCP&_?WrA0BOx|uF_x#AmPW6*^8T-~0 zMc3Ng6EZdo|1jO~x_^{pr#nGNh~-%A zhnWigEhe5ujP75irA}VTFEw-O@$5LQ)4OM?ie8ew^eQ;6%P-|nK+7Xe`GY}~URC*0 zo8C^a+3B-N@_r#J*U8Ui9am>5p1+ix9D3O0{KL~l6BMq+oXN?{DPF?EsJ&*5{H=Yy zOHORH+SC4#qf+Lxl-XqSlY+i1HuJui>1(IlTt8Em*~04Ek`3CesSlG^@0wY=BFi+7 zx&N}DUE!mH(}Y4qEKBw+*H(Tj(q|;&cS1(=*FLF}*+LQDjZH5kRPYN)pG}haTy>x{ zeb+q0qQn1Yh1&8PI6d{`^Y^}PaIs_gL_@*&9j}&Wb1n_fJ7$u7b;bVJf4@08)+-yb z=C2*0!ds#nL+)kGq|mcmJ|gwt;G+ zO8CYpi)<@QAJ-~37Zj&|VCJ4J!T$Ve6yqh2G!@;DogSSUI(97q3u627GTriA+bc>o zoE2c%QF(w7mAmvEti9=E=qFlfJnpthwuwpyJJ(e%+(z8Qb1_!b&baGTWnX3vg=( z2lls=ect@|K*8ivx2rGCd`uOY`C(am=X2RL4ilVzT7Ld6xTd8uX1BK)lX_0f<;e^8 zo#d!I)}-QoDxpWC&bp$GE4_W~oT9iTO1F>yxVla3b=Ky!3A;C%#(er+tmqi_@W^kw zMIon(&9xkTvc)nUhV7FI@M14=<`CTeF1A z-!7Z>MMbJVpXs?fFk!dPw!RDZSFEo{)?s}ad7nii;6TZm$rk?C*or^6`c!^6a$`#L z&jq5}GSpKFUqoLQnJQkDnsN2PzBsko3{PX%gGsF%_rB&$>{=|o{hisege&=*{byRY z6r0)q3s=%`4*LHgbR7N!_R}S4rTcE==9~R0lbWP|D`)1C7s25lEqAwZy9F; z`X2{>1smt8Nv@aASQP2Fv1MJ9U-vcC?|_bwnqI5mDdo898>0n`W_gs(-*9f%GXAv= zO?ACh7RRi@*!t%>yWF(dB)sk8l8M{((h7gveShG~3C776cD<{gw`GF(rjJQg3Y(II z4qj>g_t7Ha#JZ5~#=90uk}k%<6?U!R%a|2arr%Yt%JiD)DRr@2`u*xQw{lzQz4^-$ ze)E}RON8+L*k}AN<4^k0Uc(-@-8WC(KYpfoxw?AJc`NtGnnQ&)r)w{Lk?`St@$aVP zmGHwk?u$3L-xW-nxIv|~hN=CInyAd@KL6IV#fma|mn^K;zL(haHsb!luWR0WJer}t zXJ=S?wwsyL-|QbEy0a%HUYjMSvwP0-yQ^N*{xsWD^kkjdyVP?l7cWs-b7|ks*sh(6 zgF0^BZZmhA{>fc$hYj zELM{?g;~N&((>)^Jk!P7SHF2E|M-nd?l}=X@y5PGdY1V)3XzYBcYXTOeR*1>l9KoK zc_m^~KR#NxbLAhC<9GJjC~vs>$x9*B>CvMa!T+E2AMu@3d|1?d(AcPtxy|T6hE;N5 z>f*&qKQ4aA=6Y_Pz+Ma8UmX&g&n~OxnKkdxB(sD$JCC${VBFC%VfoYgAibGV!ZzZ5 zg{D_72H70+WOhpYI_1(V&6lS;c*6Z>&JgM=41T+H?e-Z#;r%y1HQoGGkYqSFJ(DTK|LS7_kCSdYvZnoDp3bGA z?ImO<`Q+jY!Ia&Xk}o~myzug!r#bbDLW4K`Z57>msktmU`=6cQ?{!(Gle}yjq`#$g zvZjYQcQMAL1Q#orwWqGw_uzceP3D>GykZ;DHcn|MSemr%2WL!UK-SV5;wMA7rafMz zUvzho=vmG8UWsklCmsma%;atn2@goSP?S`+uIGbyW565%$KQF3i6$R26n!oHP14d5 zPrppjP?LLTov}5f;lxsnyl+Xi$u}L=u_+o~51pcYeSuinzfcvCg|Eu5afF_*%KK9t zp=OvAwf~j;fjhpAvOlFJn=RUSweR7Nhg+57)l9w`&-B>pHB&T3PK#+$(%K2VC+b); zs*Ec56Ao1-EnGdPY4XZrZY;^t6#}V8PAoq?H7#b2(=XPISC+RuXDB_QpTw;B^Zw&S zmu@bdH$A;(lIG=8X((~CsS zIM^+IzdrNmjgk1*HEu<<4rwd$-%Vf)OF46)rRaSBvB1_6#gCh2xh=Ug_4C75$NUez zs+_96Ugy@8ugXRRx+?Ym_uN=9$KVUgy!%aGLmuhp?W|7nUbS(L*Pqtd&gBMjx?A5D z$F%9>#AxxW=es?7t*?0Ene`s2o|S@MUd_9qIz!5RPeZS$aQq?Jxv`Vd9?zH~=*<_E z5q8$hZlS|>fr8)$Nka#L{VdEs#cmfE=u|UXee*bAud+RmYo(VQv*gudPYdR#d(`lM zIR2Pf&rklLlhPsXa+Y$xBYYF~>{jbM7$z=ryX}$DzNwMx)E;?7FH!xWFiGE`j^|W| z&h*t6%u{ z;E}JboA`EWosJ2*^VZHyD1kpI;SAr&2WM2%e^e`ox%_*qtC%w9$futRzufgqnK)y? zk-J$-rFZmx=n_(0>z#CbRa(EqPfw*Nwq_RdAlCDV3uVHd>RVfMZi!;b-1D>A?fj1K z7uFmSU4G`sJx>|i-=%ZzosTm67hg7?*Lmfx^UppUt@l3^ToqY$Gei5Mb4JkC{oa=f zmK&#UJ?VRXt@)dsFCx3QHmu#diS6&ku($(4K~iVLS+|LWCY+vpu;<4f-ZYOdTj#zy zX0%2>ZqZlSmO+i=NIjsF>~(u!~cCQ9XY$~_%@!{ z6$^F0v))egX!FZ zucl6oZTjeRH6!PZR@>*26mOZ&V$WQ3jb}YKJ3Ub~-zbmwXoTk%QQ!ZY?)4OgzNrn{ zVO{aGies;)hNI}EJA932RI~2A;0=Gx>SWrLdm;4OvFB1B)b;n7#B&}pOSbwHUKCT6 zy--!jQR>H&UvB4lmJ#olRI$Kqh99e4WTxlbKkk#8ncZ~8XJ7bA$vICOzPcX^X8E#{O(BWB(v9K8 zb5`r8m##$Jt_aGAQGS0t`bO`BR|hZYZE$HRS@Xlgn=?g#XHvBn$My-%7ezOlo@Om7$d2m1e$C`#rkLg7{RiGg-kA52d&9+V z2byk584FnbSfSH*=b8B=ZLaV;#;Yej_(?{^wKOfQjg3}QEyYsxPBp2BeVDreH7 zR>9ubFMC|$wkS4dwVdy4+i_H;&($Z+M2OX~HLTS8u%YQm6D`JvRY#uaR{xA(V*U2B zHZAD+$K2-)M$a~FDkxnW$XNAjap#P`pPFNI0~`0Vh)oE75ny|N|NH74p650hPIJ5U z`7TpCTiuE0;#p7nHUCaHImvF?x!uQ})NnfsoKaqBwC!!#T)RleqBq=6w8~V2eCD}v z8(#UL*?KDLu0U>IA?J3rr%N_IVSRHiFw&O&vqW*sGlvCtoTn_pUrb z#Jayr*!^|Ul6LnDJ=f^E>2j`dZgTHg?w{Wfq4%ZxX-&(T`I{OAzStBOFZ=PL*KW^0 zwL%d^i`%z1@h+NqQdhLqu=c)yR?M}fMX7r-l5>5(rF$Q*@{^3P?|VD{KyFy5ZcFFO zJV%efU)#33UopHF8yu6o%HVs=mR)lu_D7$$SS@vA>K&H{uXeM4zG`1kxlHNNlP?al zqT~10C|p^Sx#-ukqs{kuocF!$^ExvmRgor9^?BHLW8iLb$Ib@7g}m+X^*Cbw?a+T5Y`IWASm z%xm?bm`fF}UHDHsZ9HS1tn+%>uihr(H!7>c43}`7_`KP6LbKPw#FTsS@!q!!K6^y% zS^1r7r;%^e-CHke8&4eV4q~13v`S+xds1o2Kbg*llja`nxf>B{@OX+F%ZmfWZGX?s zk6P)*UdtQp+14^SEj8}T)w7pP%+2lYCnq?_aV*}=b@>WU-GUSKE`f7|tY0p$UBs|R z*p}(`ioJn+9)*_=U0C?`PT2A9))Tk+h0KgKR<5)BuqaH2Xfju;oT((o<>6kkw+rd@d#hQ>D6AT~rl+l;@-VeMg>}&qj^B z^|QT`c$RGJF^c^pns?^Rk<(Xizdo%$?e)AgFkh0Mdv3?UXm0(+l*E4@_`AiMrV(!Ojf`B zUHTyRs;&2Qf422*zpirPZlU5GiM(g^G1GTWJX+`Lw<`=X3(@FhWla!A`dyO{oK9(>8I3L zlZrj8J4*#ce)=7ZyjUbO>5azQSA1pvwQ`Sp-A{NBStXk@yQ59Dc;|o7@3W5dJ}o*i z6pU+%A&Q`|+Ss>jbwmX6LH+MBe@{Z6%lLuI$rQxbp3V z#L7)BJL?nj9?#W$Tvwo%z1YTF$x7HT_}s6XQ;wNhZO}g(VP+BB0woMUP?9~6bE2a5q!zBK&vZYQvTGQ4AwcC4NN|4_5AEsp*gyft#h)ai{q11MSf}&yR9wQT(FN_$}glP ze$LMC%fchLT158p9h1^7ovt=Tg)`xdR)&o6%a-uI-3LuRo;c20T_15=DY|pr%p=cC zUlj42m$=+|Ml0y{n@5?dv-Q?>MC^&K`d-#F|I%s4H$&do1>%e!5#TeHtxs!)*g;nzd_u1@JI`@Azxygd6}Uv{x#pvq@GDX9;YftTa= z{$`7%I({c~`kHrVC0~3k(7NeYdinl0@ed#WH|PGBx>wKm-oE`i z|MuCjy0f_AYdS6LWPER39z`-u_9Fa_2L9q3A04`%GDA{QkI7$L_6Qc+_PW@oYeaen9To_x%u`?87&e zi?F+PMaV9eDXD%N*WGNn?kX2#aLVO&>BW-!%4d(QWyp}%U0d=#HT8{S>;4F)xyj4)mX^t%taD*`zNk$gU}A3c zOc&3_xy$FJ|99T?S@V~K#QVu5YMDyqs#BlIyIQ{bcq~qOQnSm2?Bog4ua()XS()+s z($%DL{-U_zW%DmAGYCz$*tRUDG-S>D_mdgjuNeHSWL>z-^X-byiTkZJ<~{!Qlfmr9 zRdZL)mh4@}YNktVI1>Hj#@%gyrbPZS{uZpso4ZzcU(>-eb1uug2sz~E7`wM7p~pxi z`?a*5hr#BAN>`Ud`wOJqr11z^DAF#)d-mk*bGj>&cXSx1Jio9+Xnoh> zOT2sZBH32{e!t+U!zr<;zPl>(4$Hbs=IyOKv-g$KIj^@WkJg>8)yna7@?g?)SiA2g zv+4cjSr4==er;;J<^M?0V^e1A?rqk4Jy;et&)9ObcZ#|AVt&$Zju{HW`+_|Mw&w_9~v&&7}V4}RuW_0`=9uK1t%e`nLY zH{PBv7%p5l7jK?-M5SCg&+&hbrIf=H!JPMbzh(MAFLF4Q%luBT!CL+1oVhNG)h6~P zZP?SeIeg-&;}iK@v+A0aLRp;OGj)Y%eqHiTIdJEsGwBBZ?$2O<^{j9^;~H(2;OZ&6 z?X{Hc)EK8bH~H99o_Ne8!2k1K$A#vt;)WHH4Xe)_-g^3cp+<7m%557{80Hr*-E`qy za_8wOhs17az3~&i5b?CZFHd)o+_SpxR{Pf#Z8gm16_;JQ);5x9?%X9G?)Cvwai; zgTJ&Y-Rr933SKkifR@~z$6Ma-UM~83dUN+d+0(VxWBDB9zOB8JvAZ?H;eV`~iRaCU z48l#Hnc7{1=ie9kv+{4kk@T?C-y62Yt>Zs-?9fYroRGP)O}d-qm2Z5?-BrHbUDNEQ zna8H9O+JxQNKPiijPOV6qcFP{1?zIgIumZ?>*(wy$<6(xzu%4=P8 zezJKxOl37=>i9bC>GRb+t0Zq7H1%S;TBm-nvaeS5+m7&>^*VjK!~HXU%b9x}v&0S3ls9w;TSkPKT@asQ9p*Cg z%POzQ%JOE1)GIaiKKv2Wa^9DD`m7~8Z#hM-$#QDDpXd9dre*%8GIpPNZ<`)iZGUmZ z&_Vd^oGqcprhap@4ZpQss8;ZBcTc>V=)`r&uW zZ{a`JMXyXdwtJ2LDgCo4=IK)weqHi&OG(6eai6klcW3=xDlPK=!J^Ffs<*`A%)ja- zh5B*T-G3GJ`pYVo`%l+tUOnr0{fOgiwwV7bE^nV8qH*E(D(^|+p|Oi{f7_neczx{* zzf-Ty21KuWe{f2YvflIQ!cv$1hHut=_lr$)&)*F<9Te8z+_2q7QAfZ2c68jtnar_M ztiF{^{9~@S?BDFGr5|tp`?Qg_c;mV+4~;4s(?ry#P0SJd&CepP-T9b9CinACd0yAM zWtyvmoqKN|u6Wh`ZNcod5wliY3%?`YHBUNZMk(Jp!B@9l$g6rbM+S8{`rYa7Y-v@= zeVbZa+_<5`-pfyn<-gOq^V{1TGTyU&JD>Z1iF>n1_XK9|mrjb|i$s*3`t!EN)YR?0 zv8_{OGV}j5^V{2so;ew+n~VLi`V`RfUeEu|^tsvJ_MH~>%bj$vpQB8+ZQ8d<-V^Pd zSM#$R4?0-p6Z~bv?21Dbhr{;FIJw63%;{T`?wNf(%Bth|W+~@f6Xuzh*KPV_*kN(* zQ^-G~L;q&{;`qC+Z%yZocPD2(@@{nB@*`UMeV2RT-*=B^|{srH=cv{ z4(}|=(dC|8z*6?4@83^fiM5}Z8E@1J=l-;?lias6HTPA1^}NGo?0d5~Hy6!dKfC?n z!^5Zd7VTC#!v0lS`;?e_5&NmWUA=yr7M;}iExMztJX&1H)#3Z4{G0J#HT6|jzHv0W z{ac^^Qw;y6FJH@c-DI#Tut@c5?H6yKyYAiQ6|L4A8&8>q?8)8I^4NW^zT00zxBUxt zFAK3svB0{kvsnJ@IA3_@7?U*uR4^h z9UiZ>wnl8jy*Q3F#I@|GUa`flmqdok~hN!*=bXRDvKetXc(vc?#FF=Zmjz^`1k$t^)_2BtetdcV#&q} zr@K$K(r{%Zxow&t5!tZ_ZM=J321Kaz!RP z7Q_igENSG4eA}~e=7T>r-g#So=xy`=u=!&9a?k5K7dV~tx^^yl(zE<^JD<)K`uJUH z>O=Wi>3fRZz14GH{mJIhew$&cEt=vNb#1e5(TiBa!Qz^P9_aB4$q3h+Rvv=CGr7G^-)2g{+Z_I=E z7iLcvycDUpAnu*^$KLkGe~pBD`%?2#psTY|^HM-7xT0g+WO+h~-wW1`JOW(Dk#61|S)yM*(#VtRtM8U`s z%(1iM(s$0!D@n~ODONCr2|?WlvI6908yf|EkOLLKE-Y5i_s&cyR*2>Txj%?2Rzcr6 zzcjBz!H~<&4(2sORIe%MJ13ST=H#cti~t!O#HH_>T9TNOSdyq<0t%lXBm>M*4M2E< zOW!}hSHaNE4(dp-uOP0}4>IQh=?g-*1ME$htf2*$Avg^5gAC2M48d0F2N{}h8G?PH zA7p66WoQHn1pOdG11>{Q1O({^S#Uu$8JTezK{Xkfa2Y{085waIK{Xi}a2bI$Ashg< z5b6M@#Nt#?;Ohs3IQcmFYCHRegcus>gM?gCi<65o3rg~f6b!*J0}gPo6qmkRW>Im8 zb4Fs3g0Zo_Pa>3UXk?-vo|#gTQ5>yc3ibiWY6CDE#7D*;85rMy3!w%i4#O~c5RIgQ z3nC8^g<*sUL>-6^k~81}lb~d4XaaW!Tox)0*MsB^h&~XBj$yiy#G$qziNNhb7K7>p zWr4ip{FKbRbOjTTSde~jX;KL&zk$-UAtI{4ve2jkN$I;n_348m4$cYB%yY~u&V=(_ zGSkvhi&FEFQ;Vayj4kyGOY=)oi!#$QN@5XagA*InY>;W7IM;U$^>Pbw(suTBiolW# zz$qDfGB7kSL{10BNa?^>!Po?pxeOGH!ATiGo0=JMnHhodxPgL+iLru-F~|l`h=7V2 zkRDSrP(cIpn1Tr?6XOmokSx?kY&aCG+y4b^t` z4URN40A~y290T%H5cZ%#&M*dMh=4MHcpQ^7H2`H0ba8WYL|_>xfK(V7;4}iP8Jcgv zYy~VNRpm_$3=}{ZWRH=#IZB#`lufwOJV+KA*yP5dv3_DPD8(0N=O&h9a2cBFCza;p zq?T|Qnd&DN6cpuGq!yMY=5QGs>n9c!<(Gr=2A83Mk$zH9VsdIuYFY_|1(Pt-Pf9F8 zP7z3sgr^8k52vW85KxK;#*%qJ$r(qAFf_uEcZ@)q%q>m9(F+PmoERK;CKjNA8m7kB z!axCp4HV4H3>A#b4Hb-y%)qn(7f2;B7^Dk?p=NR!D43a;E0~#BDwr9WDVQ6WD41Fp zE0~&^DVUiWE0|fBDHxfVDVUgADwvs@D3}^qC|H2hT9_%A8yRt#fomlL1yd7a1v4{q z1v4`zC?lLknR4_I(1!IsdFyGKv0Yn>c znV5sbkTFCAEDJLqlv9jM6hO6`nE@!|P0b7yOpQSmiJ6(Pf{`i2ZKehg+RW03%hVF& zNizd81yds<1v7BnZ=hgd0jf%nZ3Bh9i76xlKr9RlHVGnX4sQ2D*hnO}#R)1A zEfh@5jTB5lab|9$U~FUpatWAkWD1HeQ$tGy5X-{E7%U2MCrC9Y7L62449pdbK_xLr zzlEiOIk;72Vqu9Chs5Sha4!NQsGWnOe1f!{eSNVMEnv%Vgte&!BCJg<5J7Ejh~zW{ z6Hp?@oxDJ@P#2M#yi6_h3sQ?R^HY#&ad346H5ZCF83v+Z*vt@=MiF_!)D$LzL4#5}xSa|r!$2)W5N)6UA&ucOMqm>_ z=75^NAaw=`CWfGtZlGXnWU62aPIO>>NC}D9@B;T}q2UEiQJ~%rqWumoO#BjaQ?c}m zot*M3qIC@wbd8KG!M!{)OOsg8Hn{X+1#>Qa$KqtrScsXW375WeVu430sN1DrW@OBz z4>BJl2hz!LK;v3^PzDG*_8;24cMkc zF4VrYvp#eeqltluv7H@sM66=Y+6c~&;Oo2W44*t%(a~l5x-<9u!tG&8wL<4?*qXI4 zOSF(dMj(K3qGh9i#~~3#PUkYAG^Rukrx`3RYrDkbH);*2Spk?6qH`-qx1N z-(Qx$SGY;#`>l1m-$j)lj7mv=|Mz`;{r~Uv|Mx#k$V)chYd_4-!^b`Qefock=E`}8 z_ZYNQPF(F~wCvkSE4hN_Oy%4E>Q6A8_u=}<0BgZE|3f=u`V4|4HGC#_3OyD+a&L1| z?VjiQvAa_Gw%^}V>Am;9SFf<@F*oi#&5Mt67OuRQR5sy}tX7Y2kMQX|>AKzm-IwF) z-!G&DQT^{TAM1LGs8_TfNj=iJ>Cv}}^J&tf9OVFUYvWr+#5Zm)Kcd~{}O3-t6knfw zY_{?A^PehBm9o~o{}Z!+`n04QZaJFUIA{0e9*aAemas5FVjJu2uDxBkhqom&-jLCe z;XYE9ke|FharH*i8#Qlab9A@yMR({P5=%aKgY8Y_8`hrwK#9hSHzIOm%;cimbdTF? z=$xT0*6MrkSi-dCZq2o2jV~_s5lDjXu_xAKXOZV`9Jo_W` zpV+^^B+EpJ*QQ}6-!>O=AGej*pZ=$QxBCwH`43DLlb9Yqe757gM@@*0Kk4ulX=*>gUb8Z8vwENxI?xPj^-Q%UQ97 zmvUYStmt2Q?NQ}R2ZapguU`U7ERR_>8Grm`cH!nszE3YCc8Kk--}!z^=zI~Ug>xkS z$*(`uem+?wjL(K;zk;H?SEX-7t+n<1W9QBv{d}oyyXj@^iSJ)un120+)uz(E&oRn; z>I#~loZRMJ`T5rNxS^85!uJPHxNA(Bp1b|(yE&U?PrP9p5c$wNtnVtD@0(ubL@rMC z^VJOoEoW!9swtnBPq(l8^Z5LQ$xebN=JW9Udvot@zh2zlUl*h9-#n?FwbjzwErb{_5pjXR@XW3fL|gmD;nro|s97s! z|53XzX%5R0PLWw$$%!xdV%Uz{wLNghC-zDC$}AzxFZFzNH38 ze!Uh{o*AUYA^EefS$}iR?A+$p`yU(<*)g-_aem#O+)CDf>A|~x^iA?|*kWQb>-Qq* zL-#p7d3zV#FO@MnTzUEYg{Pu=-@~k5ei2unYq!m*dFtsO#>Q&{8o)^XgJ8Q>-ryAUnAF$OWZut*#`_4?OpwQd3CDw<*ie~E`=;A-{hK_ zero-(ht~QDjed#8CKYVFoWA7;+dBtOoyF7ip7k$@v90Bv`gotbYF*JU$KT4z2I{KK zXLP*w8ZL3*=`cUokb33EiU@`)fz^^T9N#h~UD?w(v1sPnHI?44 zFR#rzw^sc_LCVvWA0KU-bFe9I=31BeER!5J#)zpzE*6<`g2QwlZ&amv44>T1yIeY7 z*k9ziIyrlCf2b1ASltu8s#^Noi(8z$>rU#6&zdHE|Du>2Tkio5Eq=ki1AFrRo;@YG z#ZgmQ%D$rGkIobAFEw9QCzM7NuiLrEz1qjQv8eahlB?OT8sxS#FfVW~3E*gP*s!vs zxNw7tjkSi{8pV763Lf8m$NiN3{_-AA=B4e7i5o2@_)gEz{`8_$+*5%q((qEt8;<~{ z4&U9o`{z~HF!(KSPcF}%z^(hC-qS)n?{Vq2o+GK9#xWWCMjscPJR#3}E9Z}Y%CmIw zk8S!7$`u$hL(ZM9xBB0iY{%S@k-qD@)5N_y&OH0NYeM^LgRI1Zv6i(z*Y6QKZGZO0 z*{_cZY-XLE##kS>$aqRY&*46aB^S3Zc+P)fvihkCFWYsWds+l-f1Kj#4BQ%bB&N#D zw{6wiPshCGubli#_^Vs;-G3hQCW`bWtAw4~sQ;gJYpb{O1?fsfowHqMj&5aryDz|Y z>(hSm?T;@=^G+3Q2wL!sY3WPu;?`A6fhjIK-IlLr*y`f#*Bmirwr=0+KG_}j*-vW8 znrhWtk2qGFxPGzBCSMkjM@g=6f>R~8IZtKmINB(G-}dH7w@3SL`7V8xwQEzzVm8-Z zGxSPX70#S(`=)JtKyQl@Po=)2TzR@vxy9P=j?I%j%Gna7PA}~}V;WTFz_f{BBj0(^ z-h>RfpcE^CTvoPU;?K_-Nv>qO{&uxr{w==Rwm-{X2}fEoAF12>&fsjw?4QcLPI|VN zI~yuJRvq)s;=Y}t?tbayZ=RZYXP2Me@Kb4eB*$ToU}FoGo(i|>f&yUovXfML&+hAe@8j{#-i{&8*lgDGCHk!b^n6Xdc1;b zir&qC91tLp)S57(ap~c$Va|sRTPZu4R*>gjTmS%-F7#5SUgO<8GrX zI&BG)rALNHm}uKluWb#sE&mUH%}Mg9tazw4r!TBgMN8;W%8zr8pP&0GU;jQNKE&h1 zyA^9o)T=yxvBsl>eeKBynpQN#+I_j~SFU0>KesIL#O9+}9v|nw zD8Jcp|7RmJ_YIFZiFQiSs%{fKlmt6_CS40#ym6|N_C@YvGwAsTEvmwn94Cy^7z3*IZsL_o|_7Y1((ur-9pkKB)b3_wDN4 z{nMvh+~~eE)mZ0Im+e)q+#bc1;(w-En0~l7^|gAk`1L@mm1g@7-)yrG+Hsa``OO8_ zJv7_n&YP7wPyVRVs?-^GT7GUNzn^rF%MOQKCpaBh-tDNKIkosM+vl4aY#ZBd$EM`& z;of|)R;KV;?#*qcFL;hg=oe&+IBbob@kY`g-2>L`TiynR+oFB!U$9 zr+;LfF7oYw`~1-5Y>J8hpBgnB zDmo?Izb%PmIjIy_lokE!pPYBKdaGSo^)u`0Z_S^=&BcE@| zxn5v=^`c__mIFPpxAVkjJ^AfFPkKX>f5+#U*TeE}%NeR~%Gzu=%)B_|YTVkZ8K>Sj%riBd=ypyrO>BB3zqLngYO3z-r>1XLhfG<#KJiXS>dZxp z1O#>(RZd$I7P@#zqI^{UuYiKaNxc)!Xs`CnTd-x8R=CeB=k#jFD|=mj813MHS9bNbvEnu@-^nS>X^2_z50b+*tmDA#?OY+I_Y;jYF$fB z4Ft~K{AIIr(Fzw=#dld37VhRf6W3c=YH3+nG?PKYB+E0`L`Mj{y}1D zm-n-O4A$b}3otm~YF{(&$Afcwjl|Xo`^QOLT)-fH_T$gH>_2z(Fw68OSkJtb!>9J+ zpxLH%v!5n)-Tk0yV?Q%BMtt`TMJE5?iVrt=$~qJ>YmYoyoe*nry2ew=VYWha=#2G? zmh7IqEl>AcX!_Kq5~ba4d2(;8mt75X&ewfltv&tJ%2V70>3`Z?zn<()k$sUSzfiOC z%KOGYH51Nc)rbE*v2o3=`G2I$Hgn4#GT9XO|ASaV4AZ0H{hQ3=PmAkyzSCWqVRU`F zxwdxKsTIG1|LzTQsHv_!e#qQB_l}U~ViS>F>o+W6IkET6x_}RYdFvAHd$Aod`6S=8 zhKFlqTj{U%*=lKgufq=UfBRI^DbsOXR7^$W{fV_MzfG$(d{->nApV6RckZzjo16Ge zo^N?xD&P3|$b_43XL`N6u-W|F!MdkmZC{Qz3-0qxa8mtz=$MuMT^19-=JFekskV?726x<;VMOwc5jfdOo& z#{@pqV{Tx8Jk$f`B8GZEl30g&EX=v|eNjepKuY1GIi|>?IjPV&Y5g?t5KF#(fqt=m z3EHp-ct8&^zYiX{hI*U$VG%<^V+*8V5#PzNJ|f{F$I~Se++wfymuwN6J2&il!bXl` zQ?jIbU9T@#x+vr5uZyvXEuqsI@1|;c9aZAyPTyW8xKK1Tadk*RsrI1+gDCs1WfQNh zI;#G4;l_^(k8PP%r57h}}}&5qtLa_VN*y4b?$r#s(^@3?!^TTDkoTibh^ zWz5M{#`Q1v{4APzH&$VNcud#j#ZOL(Z9Sn|pHi&x=|;)Px5sL94O@f^)M;>%9Xlze++r+S~5Ncnoi-LozVS3E}*e%QlUj(-I|4#PRrbHK0lEZ zu>7&)ES0DN=RY4W**)hKD7e<$ZXv$(iMxrS_VS$abuZcH>DddUKdsMdu(`b2Sxj4= z?@sIcFJGlwUh7GvMSJxB_}h9~_pSm@-1$Z8gNv)qNv+-e zmYL}>t#j>#fQM_FS8=VpwtfGuW6QU_;d$2lU_n0f+;3ujdT&=5mR@n$!~QVls-^mk zmZh2xPX65Rv{S3n`RhMhg^B~u%>w8B=ULTn!m>bBWp0LTd;x3U!JgF?OC{4|G&-lq z8o#y3<f;M8*sPwtm<%yP_V)<68KL9*)Bp0?9YZ|+yA2v=L4 zQBM9V=cKgw5;q5AFzgl9yXNv!S#{B*6!hPA!mr`%5*&PlH*&$ZP>FxH3{jQW^ zv()WA9e2J7o=G2OH@D|CE%^9tSJVy0qXF!%nX7`r?%n7AU1OKO_q@yTi|b!x-;gX1 z?JmE%mPxcrf!oXNbl#^KKTpL3|Evu3eadtG+udnX1GuMdu$TByZgx0Q@ljT>$S#|2 zYiqYj^RMIi+WJM2uX^!}TA}HEoxxvcC|gD-wKW&)+5GF?wz|n{&40fxRk$#v{A`KV z)cH#jgw*E#fBs@3*N1m&zrX!F%PTCsV%rPRXH`Bs(ySz>UqJm)fPIbIi8Bg{i%7;+{vQRu3cpe4ZbzaE;VsuE&9w-lhf$mL|pu=BC(6 zZ&TFL8^lGF-XI><(%aC)5L@vLAAd($WrDQCL?3xs3VhfdeZ2{Eu?otVH)y>H@|ZV> zPjcaIX=#E~w$GjT);~H`3+0wwP}PUr>8?_I(?dt0Cdn zgT7X^U0wA;Zq>|ZCOz|>9a%Ix%W%aOp7e!$S28WmRjgTcD#tAR(yx79%&Y5OKTtfi z=BddQcOUt~-;C#mEMC~Y*zaOho7RU=v2|?C_c9(yOv^GWG0Ne;tN!ek-CPT2=gn&l z?m6o$-Mc2S;ic)tyAo|Dcj>(g^ZqtH`G$Ig^|3_R9sKNf`UMx+sU20@VETqLPj8a= z#z{tXJ~mDUXUoriycH=^YCmNG&wn4ro7wl3Y=pkGI~n+?#5}0jyKCz`cP?h57c6sM zEn3$8aaPS@yMA`J2bV04)biVuU+vtsfO*dXwH7nU3k!Ci)_Ey!F|EPFMNv>(`tPY_ z0k;>uUA<9)MZtN2o}|w1Wu@JJU(Va1xU0@|Gtc)uAKiBxwPh8%L(DQadB4HUuk!NZ`UXHE`L&A zH_K$bulS!`t+HGJU-#)hc*kV_(8J-)_p?*y|4|Y8J1xQR_s_FGqZ_sVHQDD(-Y;%7 zzi>^DD%XQW_j4m`>b*-B8?IwL^pfHDH?b-AE5b@9uXRjMCR!}l7bPqpVBKI~lR zUlY=)bx-t!u(RHD_BBthc}5!vHOxHkq4M{p))mq3%iR_W2Tzo|)b;AZy;C|M1^maFGqzjIOWe4Ce!n8EC$_94@r2JgI6mFLN0Grit<()&lzqM7Aq z-WFC_$iK|2d49;#g7^l|jrTQf| zpIUF4{lmnjX1TVRTt?AN7 zo!cxs{Db(=h$OykZ(?d>iB$f# zMpW8_{`_r!y!5E$cU%+CHzdzg|;6-}`d;v)_Lof8Q0S|GoIV<@rx__s;*WJhxP{)U<0^ zX6Mqyvu|&CxoUfI>%%P{rq24XHN*1W(i_V>1eJXSFNN6uy(%8q+}ddsuz>eovxcCr z`}{vrb7#O1{f|I=j1#zwq~)^>jp;<{wh|yW^^%;;-)JMa_$nn!{e* zc3IPVvHTN1|E2f+=QjMGpXyTaWY>%Z8nwqeraA^@Yj$lii_aEJl+66vTRO$}%OQ!| zrDYqx75?LU%`A45-6}8QrN|SRH=DFlwnne0o^f32e8FYQ)5ra1tgy`d{y>jCeY16)<<;Q~MuCSb%Y_wonfUu_isis*j zmBG`lq-1HPx=IF}*2vD{N_F;KDi(BEBl=X|rsZitd{YFsb{H*_(G)(_Ddkt|x^@{` zfYcNQMm>!x-#RZl zapkg-$zLX!EtXwW8zaruD_c?&(BHS%?{fmXV(2P~KCT1%+-6MlmlvPc#WL~Gyx9jI z+}-=_k=Zl5A6*Z5F1OVl^_Q#(UU;lg?ca8Z`qLh*CLszu6E4fX-LNE9Wrm|^`2Lry z*NURWw(5A49rt>9kxz0`n{xlH_;*|QCqC4EE41=ab_lcjlZLDp(_=sE3jQ+5;`P>c zW+91>w>Ovjr)}%AJ94<;(&@7+rq!A)lkT68$Q*N+ktz4&aXEkMY~|~MHgYZV3ksOp zJR7PrGIMixajgCvq-eO4v2NOB_1h0sI**GhSxVUbE7v(F#isnh;Lp?Zj~f|#x9?|A zKfLfp&*m*to7pn{7Hr-4^qr6mLw5Ae+n<71Ctp(dbH(9)osQ5f$3vEDKioGE-dORX zLW0lDU=MfNfhD)EKMIR~TwJ$BKWf)`Hr~UZKST(nEA%la>ojk)7f%Z-o!D_{LptM( z6Aw$7|1OX<+unWPgHd_a*`+VCj_i9`$sOM~jd_J6n?=s2*hBG#?`7}k3HGg)x2)aw zK`H6>6K=KM%^OYnBlg={&+FInIqTdWvGS1YRgSr)Uq0tKu8;n*M}FU5p&86o27+RT zg=~11B^%2LXV1C7$tHB+cXL8QyX=MxlV|@Vug=`JqQ&x1(78K}ojM<_pSIlKJob2_ zoZKa|SE0who|=;*_da9#3}^oKYm2v><($ZPaP~E&vc}WR)A!%qeYtA&5xWUDYC2{; zoFKC=chUT>9W5ahM@|;9=QOTYiPX^6<=&WZd&QRbTScecIT&x`siCRcnXpTQ&oHRM zr@};ce%%GNCQpHb3*&F)+k2&vW2+p#$vrnFE@bp4$bEhm<8CoQ8&RIYUc@jx-qZp{7nB7kK0N&=x#f>Z9((egOBrGFTCUy$5lUpr*75X z8UFw8Xf^#j6u_6VwI#+m=YxRob@@WY$5j`WE#3L)#6qD+r`!{>9=!dSG2{I;?R1V- zU5=36B8%Dn3!3Dbu5lj{R*q?|UT|#1^?mHS7P6OrUr}Z8vu(lL|2x}R#q;d;9XRuy zXWRCBMQfbc?9Uyy6*{f#U2k)7=Wn;YXJ(5q@hxUL$}u%lFk9y%r@gfbD>kq57gb=$#W)bmw@R+u6-MMxz^T5tt;zh z$xS-xQrTG8`(e(*XXR@wyr%6~V75o?rIpmThh>M|CtZ2s&nMFC!X;UlaL^+8{*hF{ z$=iPmvafVEH#@%VmgAaryqhJek6OD)Fa0(7{AIrUef##^oLJnLGI z&Md!KqNc2HzsTQ5``*gmEk}eW>9lj+Z+6s;y~uT%Q||D>N!7{4*DqAMCLIZiTo&t^ znHr}n6&5L$bCBI5>`j4RY2W7FNXec(k@u6A_2=KQ4Jq;yyQ4Ofze=Xd`QpODiPB-q z)fBEN@Az>?_CfJ0Pq|}%KiIw(JGh@km~Yd=mI|Zh`rxjkO*fWY-zS~axlS?mAwaz?+yP%*KE0*bi?5F=^w3{=*xL`_wlxr95C!-Z**3?)AHhDzw`@ zLW>=_CeHU{N&Ou6``c-srTJH%8F$qFo$S@Rp&Rg(1cb{m)t67E*mXvVL+;z@6Q93bCiR<=GHSNoB=EiTYObaRziFJIs zz-^DNO6~{0r6Ed*JOOk3H(akWKXUFxerje=U6ucLD%s!W*&yxJK>GR_o zzt60co1uH-+1~@pwEw>exRKnZ`0Um6guhdjC)bA9oW5IQ_?luliXmJ?Q$o)#azswUeK?c$yOXPiN^*Io2xn z&Adi_xz&U4Nzp5`%yTErZt_b1cC@yC;#!-M*jANYKug331$|y_F?($T&s;G}Gy~Yo1ogYB}n5?o{S@ad2ZVlgWjvwoS?X9)_&<3I&?n zCv&Fu_l|g8pv<7nwc0kL+PvP zVYz+kzK+)q6sY;B##aYwfO#>{JC#$mD?x;)R54{d8(oFOttwlraKc*Z38t_0mU>qe0! z`LAv{%1bY1m}xlqMf*DOcc;$WIsRO2?yZ2f8}qJRd!BASx7+rdund!B{Qb#q{j)!L zX=xpL?qA*=e>nb-UX0=jMQQoj7j_n}^>P`8tL~(KH`{mWcgd->z5U6Xw@+_-cIP{ES*r`KV$#2c75ro>%|)NKCdjD|HUgLSa;F>jdFLy9R+0`Cy1R9_fOow{!NhE zTc_&n`$HL?)#^TnE6ufT{rH_6WPY0bRITcJ z@QPjH?wtewo|ko~emAZVXJ=bbE>|NsLt(=wW_=qri)%A?Zdg_KPEyCtu6DoTtga7N zCsu4(s~otlr;;_Gj89L9yMCT9=i&rq_M<*!a;L2KFsgpo5mD+?`SJC|HWo>}V@D?) zsSw$3C;s$3z^n@g9G<)%Es#k!ym}C#LQaw#j-I&Q2;Eq;(AO_Mr+shBo_7~c zE_`;SFF)$9L+v|3|CD~QR<_x#QMsnBZXB0?%XqK#zjc>uPjlYlW1E*p`)z->v;W@4 z8{*Roe{i$>TR$tH_MY#*jO?R(0jUE2JP<0-F+hJ4p5 zshzHeK3Ly)w*KX+^D@@|KDh?xMh7P|R~>B1xVJt+JosH$+r&+m9JVCK2VFc~9GdIm znVr)+?Z~cMw?5X+JX~q1a#v;RJ3(8~Z-uVgU!9&U`1|hFt>3oUy_56&vu%s(?Mas- zo`;>xcQwA_JKZYMYR1%ipC6jCzHR+N$-8OQKC^kA zMf|+QdNM>&{D8~OtlnlWCk838g8Zj!hvsDR_=TSnw00JYyP$dS=7a;H_2mz*Ep3l< zpXDGuH+gC;=j0!9rxN{`@80C9OL=c3Ft2dKe#UamtFvb;nk~BO`BClbe?L0d+%URu z_3pcrWC{6Kh1H){=N|V=k;=b6IdN6;r@Wkm0;dp```5d*nC8C9cXj)5{k|uQbm9kl zkE_q)HQQ&Jzx3`;s8){@5?Q>nVb0dw&K>9Y)n^@<{C6`?$sMbwPu;ckKTKb}dHsUw zCC|zn{7uWFw<<-HF&x{zucrT0pl8v?G_m=ie2*@~l^E3WS8sn4cz)$2k@rcFi3wE- zQJqW^;(v7gII$vs+M+-W#$!vTty(cDM&XY7pcKo#9yQJL` zEbR7&vI3On-d!E@EEjn1dmk&rL4*01F`IZ#Yt940#?w&cp6??Ww?RDH)QE@D2QDpl6Z6XIR*{uy^`L{o+_*2HA zzF3#+r0+R@*O;CP&J~LJ^3%z8+0$2z$?4u^i%K?yEq&8-L%1(OS^cx;pDX)aG`Bev zoMc?zw1T!o z!8g#hffAJQF3^55)$$Ggld%#nt>bo;YCf(s>%{XhP8&a%GJjlvyU=Po$S z_DuIom}aNq%ClRRwgzoD``D~_o?-v)l^qFd-`a203HL1t{&Y?JvJ!`4$~GUb2}iEz z$@BaQXsliNFMUpvpW^%W=arT6bvF8JM+zAZ8+bOlt=2tt=GXJ@#hMb^t@~~(H|^=0 z-7ESyK&vU}V@1w=zLcANU!nuQnkgJISp7JPF}d{S88=~XOgt#aP}G!1eCi2Zgkw4f5-eyt6k!{s;t~_8$XSW=HLCk9GJJRnoIKf zsn<##JHHq;oe^B~{p=GZtw@o=z;#_~TBptn?nz$oZyl!>pG?roo?4zSns?q=*{*4s z)^Pg0uHk0U4SqqpO5{}kIsBfd_-E@s&G}09P8O0sG# z^*ilfbow^u-w$jx7ye4LJ=C>$GWCPtJ%?8_e_z&DvtPqwpQ&vdJh?pR;>qa~xsBIO z*Oyrv`aG=1pS5{?SnDx6iD!?VPcUsMY`@>VL+s0(H(X`k4^McKd-cK1JEyX$C)Y5Z zef*PU{h#2T^#Yeq6jo=kyuH(K^8EwV^x5kV-(INkFuip$&ra4`2L*!GCTDkuF7$X~ zG1GU)rjMmf*Z=?X(G!l}VZ`{=UgEa2P>`A6tWMF%vwx&IrSTW1I+hsTkyopTO*kEM zC~A?7;~e2h$Ih2|FJ<_{YHg~nj+xml(M})1H4Tcnix!;Kbxn*xL-z&>=9Xp(<|dX{ zma&*vqAX(paS?eP_e7|nCAQ3tHgxZ*?*<;W_W=*r2Z1*vh2tHrPt#8WZ81XHT7(#x z2d#er?{FQ5;Ew}tHcXt2!qvyp~9@cyf{pzTANnD}!t@nHBCwsZ|dlaqRrmqJ(P=$@Sx8NJ@9IN*e^l5=zNS(|2Ir=5E?Zm8x+{hoQwN7jF?$=s;9VX=PS zcf3ozn`i6hziPX4e*Zo7s{OCtUwZ$nUvkCPK*=53KAJ5xX}HxJeel8J;5;W$V+QM% zfMYz5WDlwHl(jkWy-$xiutr$M-(=&?Go2HH-WSh~WVV}W@nGtg30!wVneK7T+VPHg zal{Kb8Bs~~cSUnb!VU@smLL6F{rIP}($OEQyiyj3EizjX#+0>KeP65l;U>;apQlJa z>3s0l-u|!a({CKFr+6oX#ZKj_J!!X9;_&996?%D(85%vle7fDc?%q4S8I#W(d@K{v zypm%@;LPUk#nNIPJU>=A-!)jXWOZo4G?piSq2n*YOR%vVEiBi>m!mf-mL@?Q_2L#y~Zs^GES5^=`eZTb0Td z_-1Xsa5Q$>p6w4}Hl>uaS~YiZzIyvYPDJ}*g1oJrT0>v;99b@RO-r3Qjd`l?+H@Yc zxUSGx&apA!zVXf?uVdEVjoCghO#L{i=-0yu3_1#voX`K>ef;x{xQW$$B9hohY^yH?Qq~EpaV2b3|^y2@jzeh;p+=RQGS++NNd=74S_Hgd& z!mYp0c`RCG^eKF<_vza~9kXs&-(9g|x#CZUtv49{v*_WWb%{+IZ&<`SPzU*5to;^XT?HYtOq|sFoF$Da<}B zvwNTL7v+7o*{sx7OBT#4ITNzvokh_FlaucmyjMr*R%(xK7O_+Nvh5~wmi`FpvGi@V{5iXbV#oGpJMmo%hoC3SH1bZv$?V^ zV^O%gb@uze1^d6xDm5{i%+zo%ew)`Rs|OlO{?h7#v!B zNZ?1bcwPLL=&0BKn2$t>s_=4Fc=LAbXzpBjE9PN)MD|N38|L#8F%}o^*KA$mB(y?l z>mTO!OBWhv+&%gGyNs7hPD3#B9_IIbF}ZuI3|#}&E~+eTxw^JK{E|4k;>Pd;``HU+ zR-N4^{kQap?ETG-9dozeVLE@rc;3wB6)V4fnJO*xC9|y3Pw$jemNkLH?!m`jS67Fxf1b$yCcBTf6T70<4)PN{RfqwS^BaoXSMO_KTV)=B)=e}D1cB(?2#XT-Fv z&dL)PA1_FbVCa7+#r|vmABHH0NZaF^RV-o;i(Hp*x?2CVVeiWqFE-`MUYjn!m!%@w zamaD)hl9=5vKv;;efNg>_Q6ArjPDQcF5G7sZRGsjHPls1U_x%p(rt|5&Yw1^YI3rd zE3%`;xB1;5u6a~!#$Wgf9-mZd;f-n4%oOY+t|@ku*dXT-Dk zFZ2DaDzWFZCOt9!`6B9{P1E24^-d0voGYaEzp2hjce%0CiDrMKF7F0#C`bwwU(s zRp&Fy6iNG&ej)3`4#_`LRhDS}xw7h0u4~t1PSf9~H=hbHy?t$wO#Yt9q8I#H)WqNK zIc@IW{5u4$9|uCTzAu0BYfE;=+q~VjiVrW#s`Yp6*_M7({pkD^9wPe}zTbau z@xrzX=j^X28KR*WB(bGm|0Jy)`;zU=+QLM>h0Tyr=33wu9!YC=-XTQW4Gkr-w>Ov zePH}VZnfs?dfP6Zx~r9&Css{*lXU*ZqunnXC7&4i z7JA&DBJ1yAwA<>h->bVl>o4#3+r3rD$~R}G>5hpqOGJL$oipW4$|COAEH``qygB)wT2vx?+#dYl z_*>$_@S4N)_RU^{vL80-=0;9Sw$1R@uKxPl`wZ{xo1tBgHcs5o*x>p2&!+fV(_6X? zOkW-K4$L>0XL#r@2mb*co6p z`R)n!;%jSTUIjn@s}Yx@7=A-JUM$;JruN7|N6JDtLi^~x;ORp_V=gGKHuqTo*4&(AOijWrR~8#Te!8$}E~f%>=^iABMXGcrO^x}c!7VrhsaVVUSF!3v-!$Uv5J z*-00wVs`$fcp^f;OX&e(3COC8~%rJBl6V$g`5V2-~XJF#SCN8ax8`lFPu4qJT z3A}x*?eMMQoa^b|=f7EccW%b+<<+~=&&@P0ez*7k-~I3F?w4ymdDo`Vm9%J@y4tzo z+Ml2FgZ_Bu{RxqpJolW|b20ump2_~-uT4Kz;?vaEnNYzOq^2-yk%?>cqAjedyXNF< zjZ-^6N0*y}FKmz6Z0mHt4LVBkOHZE+$x1mrwQ8$Y{7UheR<7$^pvUU%*a(+Z@!vy=gFQwKkNP#GdBx%Ie&bS z`bEsk#ZyCa>4K0i=^~wr0<5As76tM|wTLZN&Cu*}t#>+ok?V_66`!v|T!*v1!pZ}D zMed&`aKN_n; z2%MYI;QL^E=TE(yhnd=6*D`OCFsnk9aG8 zEV}T$#9F8I(w}2pwLciN+u~XBn9f|0wdP$o;c%jZvUuC-8?Tj)eiO|$3cj&Baq-Hs z#{O{M@WdxVSIdMavCCIa+rJE(Id~_9&WAfy=3-v<)-sKccbmhA5P7A zV-vGWXWd52;2^1cyB_AV-cOpZcPFxV&&!J9SoOT4zqM~qRlg>8c3oto^#6maqVAlW zCx7VoxpFD)^PWfcOh53yxBI_Ia6{f@f%E=P9O@>XIH=uIakf)d?dq9FZLRTjKV2WU z>rUdGeob`c=`AX%{C7k*boy?gs^&8koL5?92LxE8m>*{nK=c_MMGRjo#b= z+8Nqcc1{WYv**givo&AdMP3z1Ym}ScjHgJ!b?=IsRhrjMvx3(}o_i~(L zOL*QIwRtW!`K4c?N}Z>Nt%&k6`t{@V{!do(XZi~XbB1qRv}xy)7|-v=`g&zm-)=Ox zYTeOz=3>R-Wfh@6)#RHuZP~&Q{$Q&`a((HR^4zB%KPm5EmcL#8N>2OPXO_ep>?@L) zIJ+AjT`HRFJuUf~{m)+=Ym-@4td^httWN3f@6;IYhxY;wdaY-f__0OxQS}ktIH@Pac>|cxjai3kQzGNj|;~vgAdA+L= zRMQqOu4-uQEcc6jn{jtSam1@vC%L-p64r>wYkrwBLvpt!Gy5ae>)Y<8KFnsDf3r&U zbRLiS6n&%5KNa~_?)U!VCscP+2G-NZ?b8qcNjzi*p&cNvE%uQrJ2z$3r|j1vB4@ooG~q)uYZC!^Wmi2#lo>cd1|NX zW>kIduB%u+e^*Yk#qEFVGvq$Myi>KO;`i)Xr{3PX$$r(8>DVN+rQ~pR z)S5$)Uw1_%2fce1x}&4^v!{$tn`Zy-eNCAvTClhiU@P1hX?eY4JP&+b<&>nzk1TEH)fBn6Qn=MS%YB=BW z4ch4@(LFu2<+--VL*3=&kMFHty5DunYnOdnoxi;gw#o>dwJ?HddQ8wCXCLRU!ODlW zuuqA7kh#!!(&w+W2c}HSoReg7PtRhxT=bmFXRdtkm9lGfmO0|ECU6OO`zs^YroEbw2$e z%bX?k>aBn4!!OD!&OfSr!NAE@W}%{|L8!w44q*qW9SsvFrZ=B=bDPJvl>oo-f-U3oSW%^yF&Zqq7dpI4UJ8eOQ0PP7|#cx39lC6(F(4^|KMj zL%Hbm4~j)?Gu)kRrX2_r`ZTv=i<9Q{OS}&gj@7<-5pmtAS@cQRgWoI9?G7mJ-zNL0 zYSV6?yG}MIA5_j@+gUK9N4}!;ozzk{<=AaojM&mQwn(dd>3?vsesR_IB~$hYO3C&F z7rtZs%P7`&AbH&?nb`%F(i^KB7ij%&p4>X=(6>{7u%I=Fy|Al%6eUGDWFy}tNN4-HC zPxu>~&giEULR*^#3WgRY3YO-uX%90~QxgODG^eFG^2`T_2Wx5?aA7~E%?Rt}UHGI2 zWF7)#MiaCNImpfqL)>ntIs7R#g^JL>-Z!J-i93w9; zt~Fo2o<4p0t59+G*H7J--kOw(oHF({5@`zR4(>h`6fAP*(`PS{KSIU9q6&VOn*+}M z+{wCBb)_rUzMq;aT`PHbczVKkc>eJC^z`U>*<1bCr~j_*@Q)X~pUdapU8LRhT>SY| zaq;K6dhvUb{yjQcRFleGXW>8B>}~Zyrfv5*gKvr#&3!oSagyQu^M`j92=VhXGc)Xv zi;4z?Eb7K@@M(?EFvgo~FphkLrW#%FUKay%EfR0-Yd>oU%ZCsIQ4nS*AwF(^t9v_8G#7GJn^V z_g??vvv|_Vs-H4zIHzqnE2J0d$i$b_WfJ8oD>Z2`XT{C}%h~oJhK**N_Uke?>TXk0 z3tOq@^<2qIaE{T-1$?r%EM4dB>z?1daq@!GkN-9vujYBQOW?43wkBfs0{8vU01 zTrs_}i8U%SK3{y7V}j#@xS3lQt5mhzd8K^)O-JesmsJ7*lOuKQL@#gDesoNE(i7<; z_Z}v4#s{S6%5ka}7_2#-qPnL1h^$PIa$)58r0X|ltW*E%?EJFimT*{*TUz?`kS9`_&a|R0W*o{GW5WH^5#fkbl#n zcjsh}DB90*l%HvwcG7L0WA~HjGjZLj)6XXN@$OxydTG}(oAYb(ZF2Vryp;RipPnu4 za!2KzZ`$tKNx8pIh#$}5&GIiYc>HH;_Ri_8Im@`R{feje{k7jXvn(p}&z`9CZ`&h3 zO%;r4bgd_~k>z|W6`a9@AZSWq$1<4C)AH*)*`~CyF z)|;3p#(kR-bpBoSGManq`jLVI&uuogbJVwT1bt@waCGOV9L`f$=X}0>pjwM@E{j#+ z?7pCRQJ+~goIB^oYJ|(Zt+`dNyzlQuKLLTp?Y`z`4oC$~mp9Wf*;Djl>DHUtQI_$s zFIMVvI(^<)AhGcN*XUO#v1BP?mz-dpJqpiL1||yT#)b;!hVWxEk^B9Ipv57Gem{td z$WR6*I5QO1S!j5_AGBK+p1U0NUG;tRgY^^jll4J;{&amvS3gfbU%vp{xd+V{SD<7v z(DXZUCIj(F&SXaB2FM$*mQKqK2u_ze?$7feP%}67vgz$_GP~A>EMMETZChDXv}<%U zYktS0sUAu$dYp=iDgquwC!RjBRD9yspd!G-vQsO7QFQIrxZPVfhq-RQyY4Q3>F&!j z%gWO4864-Y7I<5--Foi1cgrUm&-{M&^Pl(gz2 zvfJKN`JajWjXj<>pX_t-c;;N>bUpaw{WGq;{mM5NYkW8CIsf=%NU5aJPB%qejgVz} zXX2;K+E?^+wf-`_=v^hLuU-jtI?dA8@;xh}$*roYr20K*&Mx0+`cpMbS90Ii2+?}F zUO#eC*lO`^uT$cuMOash?VYh|nihBPcCS;aU0j_OUu7d#8ku^BD0$9Zm-q3DvU8YH zxTb2?6`z?Ai!_cJmp^ZkZej`22D@59>?Z{8@= zVUKQpnxvnYy|MI$^^K}GwQo{$l&5uaT5xV)Su=HepZJ`Ot^cL!H4-D8(jQGbvVL+@ zy55|V4^9`JU$Z6BcJtF>qh~zF*J@5~S7>wDSm8FK-E0wyW8pTRnc3HFYe;7lHjBS; zu`ap6@63MWg~lAOx@%9HC$uN|r0k4+-Y&p$r+417^Ai*7R{4F}xZWVNta6#}3S%eL z@>`DI9QN-OuUatu-8`$eUz{(5vzzWdvrfbJ-TWiDYqwR&a+D^RUcLG#=jGl~rY)j( zJ2#XI1wTq|E2#0DA?|N?x2&&U;)-6uw%U$oe`P-ep17L!E`9RW-5!e%CADzXe4jXJ z;qJQ`6Ave|c&|Mhm8;kjRQb#7z-rC#C3nk@$f_-#|NUNT|3~9flUEyk7kOjt65-zU z`+JknDIU?vsqEQijJ?6UTaF($5LCZdVpp; z;Q4!f-?qh)w$D#AYCn!;Zs>Rao^w_^UATMGN#^WwEiT6A?^27CGEQz`c&-2W|EY7r z0Y^*KI3H9ohXm>EYV2`3bB{6hg75JrT5 z@ApY->GGTv#*>dtX3f16f3>o8>8w8<+6D4Ee>{ym@Y|Wac$??V<5!h772IWvG<+~~ z*?z;XK6~%_F7w%U;9!Ym8(ZH8wabCM2Oct78|=8w5Vl!#O<2=1&8?C1&;EONAgoOA zL5^3@%HEHb2i|c^n7>e2X6gK0t5arKN%~H7xGc88&+x?ul z=-B5<-%tM~w+DO{$vZE3NPPX`>Fek4eO`CpN!stzBU~qTdpK^lxG}$Lp{dOK&F4Q&RG+8z zqd2Jh`@WT1pGbQ)Ys}qfeCI~%yj{z@S_6;X3^=n)eVxazz!UnDjBY4ymde_B>|0sK zxw>*L-JBUlYwx+eKI@XZvEt(IIhm#F=Bc?Kx#+U&$Za``H%p5bUjAbt`+w~L!3PJ5 z9{6sZCndS`fyIf0cFUzaTOwD8$?DwU{$cmn<9zGBeC2SD@+Aue5B*5^c`?>|>6_1L zk43nAY7aQ>*uCg}9nX&Y>3ZQ3r?j?Ba6O$>)+FI?A759rL*M3x?~fzyTE8Ahv?TX# zoM!jma>eoGkB=@h5qx!Bi#xSp^_jH`+o#%{VR|EEuh)HE^vdrA^Mr4>n`U*rI^u96 zXKHfLewh}X{<$aj9a*L;eY>JGL&K_Q%9qq$38nqNmTzNaUADCd?LvKKg$8}|oOQ`t z^!E2g$&dw{NA9dE`|wzCZg}*vu#=zrv)S5rS-0KhD6cHJ&w60LwELkCf7=?a%{tjt z{ypVAQ%s5!@3vjL|EhbY&n`c4RdN=Gf6RlJD_oAU&o_H^_^KVN_~`!VzeojJ%)HqR zyO(7yZczH{=<>W-;?vtnE59uMB9oxUA^WaHOE@A^_@rI!`y=Ob=FGdo#bXhjw`kJO zm@G@nxv|TBS?xW$%s^-3j*^dUrjR(a`8KMd(+&8_fz`k)C>IG zEAIELj=|4@x$*7~=aLCqvS-bEJoz+h&*gUyetf)Q7`p9w@8?pp#k?jK*WDh7Nbsi3 z+7#Jwc1_^*wH;6Y+IyIqm0UBQbW_oBZp~%w|Dr3q&m9fBw90$VG$%o~{Guq8Shr_! zc9#}qIm+MS$#{3-;NscyQ%|zKxwYl8Wc|-_#uMyJd(!vZt-W*grLCLQ;U>o|f2{Kb zJ{;`unRRL(pKEZ`=E}tTTi+l4$QoSq|Bm~qSzNllHzx52y6QjwoE|YJ_P{b-%dJoO z)7{)+^)_|XI>qZ$zAhDb<;az~&#YgahjGuv8*4(ex42G94i&b)^W#a`j0+3bGQA48 zw(4y|{&Mv{>bnAxJ_mj>xc;H=ob$VIpDky7q)&>Jq*WOmDV6(m_Q%T0H6^)|^f_ME zMEOQe^*LIpaYwF4=*_WeJ;tR?QU;Hr`$E6ee4hW`_0*;9MXPsjTWBlwf`6XM`Ng91 z4&RaE;yTV>+A&=wNqkoQB%iw%cgGlQbzHjd%#yX23wHH{9#Ok&U6FBJRb|(S`A5|5 zix_2&X4<}up&2E`-7^#a#3em(I^H;O z(d|1$wJfR&DqnQo{;9n4tV(M9^{AIRpWbjD;Qe#%?fU&rCl9EJTyMA*seXzK&uXy+5pRDI}w=_PU(*m##i>^-vZAf# z22P)A(fjH4TH(+QaVM4vY=5zHZ4#U8zHb#j4>(kB+1<+V)vS(%*M4E#_N_+R`~|*i z-+M^ku&qsT=8$>NEUg{&eOL0?hbJCH{Qr3HVIW7d`}qq&#!DMs{dSb>Y}vJVYV2?G z_vdeFt8H5w9xTP>@A$Rt!;?RH_wH`Ky!OwgRQWAN-{qX8cQ&jOd-g@F?^~PlTt=lE z!arJOFP$#kyp+#J=3$uk)~gYly?1;53ZA|!WXmz*JuB|qyEN;_v&!^iY4P)%&-hiC z&au&ch^YAHui}r z`AMm|6^RA9X_+}CsYS&Ksl~~*O3pz(Zb~2p6;>6w1-Ypui3%0DIeEoa6}IYNEmnEO zRv=-0bp^1Jl5AV`2;TsOlKlLf?937cBRxw!LtR5-9fh=_#N5>K{Gx0HLp?KfJ1(1| zlr*a#7dNPZMJZ{v>KP>^1y=g{<>lpi<;HsXMd|v6mX?QH@|5pZpJ#d=^j=_Tjq>Sspi8|oS8!z=>zXFxaWW#;E8fGkc-$}cUkRWB{g zOtCUfOHNKoGfUPrHZm~RH8e~!)-^CNFwiwHw6HWXPqs)kGERkASAgV96#EKN()11W zjP=zO3R2Rn0*dleN|RHIY}MTZd=%U>@{3D~lR@??Sn3&=s_R3&Pc2tfqmh6LSXXTQgT$-DjSK{eH zN@}8Z0!T@QJGh{ zz3HWtWkTX3C({nX0PEC8n1&^`z(PSTZgyNY`ruLnRD#%XDNqSe&mcr;nwpnlt6mN& zD>3eLMLHG?mhCmL<$6sneQ+|)%+CX5BMlcTP#!ceG&D6ZHZ=xkKXn5GbxkgP-~1E; zD!>Ni7ioaAQ;bG-4DlIClS@AY6wexn7}T_bU87o2l$r**2F{!dR02Y(!@joETxbK6*IQ9FtbDxGq40-qXkk3S7%@ez9b1%%)r3V6hp7M0lJu>0jP)o zX*GbGXJ}+>fo`vnIq0f8bajT7=4f^pnVA|}potk8nwny$Gc++n7c(?804>G=Sps*9 zk%6J1A-Z`6=AesdQPde)n1Qa;L=`hIGC=o-p^1U1F}iui<|gRsj7^O(+-zuUYJ%=& zV-r&YGYs>LL6-=jxW(Am(iq(iLnBMj)j+7~42?jSvZ06>8W>=xGc+);FhIB0#1z9` zLkkNF^!P9`z!JZPmZ00RQ0z4_GdDLvv%|>T(f}i!8k(A8h?y8-xY^jm+!WnBV^cFD z%=k4k#t2gbODyTi*b?15Ln8w-Ofd@#dku|2S382di%9pz7ADAfrlcq_Gbgo(3v@$s zaAsAif{D3;eo%gXi2`WoI7mU?GcPS)0aQ)}ap`-yC`8-1IT;ulSUNcySQr^OTbP3;1&-_~-oo{WZV3<1bA9 z=y|hyW1RipN1ORS@xAh#{Z1&hs%!4f9TM~EK0aly|NQ6wp6Zu+u^S9se*c;NJ|kYZ z$^5*0(%tO!bL;;J)oZVwT>X!!KI`$^-v3|4|F_+9(f6C~!XLHgRGIkewN+IY#h*@D zR9@rs{(=0>E1FB^*X#cKHzzK=m($GlKiBDlCAZq2zyG+saIWc3(W}QZia#nYTmFi5 zznuTqKUa5)FSdRA^i}@j*u`NdSO0tOx7%coQ|zSTu7^|asIvJRJU;vX*WK=2FIKFr z|2Kni;ok6PKeO$YzFhR}Z{51ff8^@wgTB;N?KO^7lK6MnI!Yzu)^q=(YVn=>_a}E) zCoev_@ZT$O`9J$hZoV#Gv!$h`{$yDEoKOCWT1}J1%6*m>H|F2aaQ?4(e}gy6<_Y;b zKHIej{C*vD>`Qsh{6DI!!m{@r_Ov9-&{m z)ZAQaSH2`Sr)pK%@2AH34_)B8HJ=GhnVuC`> z|F^i`&242mtD6-r2cxo_8xKa%`>t2k{y9w}k&5=?$;dvU~jdPjiAp&|%ry zY3JX~ovc4K=25WCL%o&Di{EZp`g_v*pS#NsSj>HKI{4Me$bG*b|B~^(|1H`|II-oU z+5U-ky?y5D%FKJ#ulv@`^eB$}LPuTx! z?mfP;J80!T*`G%x1%WIZr&(dl4oYfJ(?)w9UTS~{0d-gu~eC@-x$$vcDlN9c!^OS6oGl(_1ntI~9 z$Ejbn|5h5UYznWOsPxZtj_b~sU%y?kPZapG#q9k3J|FRkJ9UXmVW-NJ&HhLJzl;s+m@?%+ow4DK7hHc97g)qO zxf5llYU!`EKOVov)c>mXzkjlY0*^VL+qF&zHe%-?r)h z*68nGtKx9K_ciptP`sd}Z^bJ=9Chj^zBm8zi+SI<(?`@+ z=l}7D`Fj83<5lUaSmW*F{!O}llKG$6;?`FZ*DAbUy_u7>r?k+^l)?JT>@@;MCsN0YxTy!bMf<*o_#shq2}q-KQk8u&5l?qFf#;cP*3@b9wY(zfk)G3vGU_i;wqzl;&L7l;S*p%ISFJqtEMEA0K+W zWYwV?^|Lo#xcvWcswS`IoB4Gg^X-2ewf{L=YNDHn&iqxJBKsM?WSYxQ_mj7_daC|Y z(B1ye^*?5Ftzr*{{rj@GX8uC%N554zo!oCP%lPxWnVsN!^O7U}&wlvM{?B;&(2Exv z%0%B~Kl!!w&%tsAAElt8^YgiXMJj4H+6Xb+?+;g+|L$PMEA>;c6SjW+^VRN>@$s9h zSkis-_v&cePf|;YExH}L;-vhAr%ufL=fXLR;-;x+oaDN`WKGTMn4W1)~`0oEPTD@#%d$2|KiiNKI$wDXIy+$ZQa7Nfgg9z=QQbx|M_9+>vINb)*|;U z8vQ(2`E&L#&0U!=LI3Y%rbl@bj03Jue|qNn`-l^Q)BZV&MY~<(7Jn#x!yu)6LD{Tx zFXnkzO?ng-7&7JjPVYA_ysIA=g%`>ux^DdM^C4lG&g>F*rOT-{+UG@t)t$`W)K0zD zl4bi_ru4#>&QIHU1fE)@fBkHqUal(Xo0FG*era8m=X4Rz^0Vo`|36sV!kA{f*~f)h z?ugq5!yWr_QiNPC6&O74eYN+HK>Me^_n-f@3a%}!oUu;rOMJ>^x%?ZwPTf2BmnXTc zEb8j1H@m@=qhR!CW=gua30F(K)wlCA`uu7o?e>}rNd_hT^#446OYqK2-F$;dg)3gR zo#y>CQ}^M*(w_}a-{&8>|E22EIu9m;U)D~~J=p&j|9R>0v8nEgew}XJx5&x``@e7c zGxf*s-=8>U>i@63@lJnz-uI0W|EB)Tiwhl(5+~p8}IQ_y7MYri};0k6rAN9ChKE0)Q4MW_~U;~3653=9vKX)md?^AQdo}8Hv zmY?a@eqq$QW6rzIc~{D^*{wESf7x;_<^@Y%tm^dbGgmg5tG;qe`_-R)?P$f@s|Q44 z(>6-p{9hCi^RRRBS+ffHxDEi)5E*OW`@c2XLJ|8y?DQ)qxX5;v&hL{c z=v{mA{p1(A+owoG*aaLt7rG~>Z*O;w@Nv(Tbx$_$$@wjjcJpKSqv^J`QPHvr(xTIJ zIe?X<6D( zv;EIJRyU=0NoC7yg>pLWy6V0L_3b_7p?XcPVdC|t#sl8d?$CY1`!wYYWCYoFKJM?w4i{^>5Ay=58e=bQvx(;}8%`m3V; zg#>)dXIZLy$HrcH`~Qf5$5QE24sAPrK0!+<_Tc%Vi|4{*942jia;a#ql46>1qQmN@ zuP3F&dUiuZ{E7Ac;7|HL7n!blb3XO3shem?lqiGH-!9j8tK01(8NJWn67~4Z_50P% zNg=IO-$JuHg#R7=w=2o_f7Bn{weRD5>-8&5Cv*z4Pu+ZI5$iqmM5R3<_kQl2u5{t} zk(Z+1ybklV&)9QAZWdqV^xJ(LJ5(q3U+k1Q!PIr$%u!I!&caxO>vsOeFX=^TMS{lP zCtX?8s=gp)-c`K6)3-y6d*;W6ymbzq3EQaC$Ru;-&w4Gv2j(`(*uKshq?g{vm}m&-+85 zcz?{osM!;{OuHAPDyq+qyO5T4?W|nnhxE(RtA5UTC(y|=)o-`EZ*=narpSUdzS@`i zla@a6zNd6_!k;QdHm-KBxhwa5=T;Q1*I%+DgpW&o&W*01EYHnZzBY9?rL$Be9*c5L z2(Y!=c;&~7yFRy1p4MbH2zJlWvHfq|7&(VuP*%2xVV?KNukD;3if2wOzk1c&Ur#xD z=SIh!FRw1L_0Zg3xo#z|-|^1=BG1mVtE8U%XowS~@l)rGtJ}5vJ1njW9e&>O=$~o$jHn&MM3owV^CpNJ=g^Q|R%1hqUej}25lTKIVcCEN2IuVaKi)ww{ zbe@_;Y@NJmyU53erY6H}K|k{4+owI;Xg$-jzKG$g-*)SNJAWLBY^XiWwNEYiLG_zI ziM{_qzr5-9c3AXn?teEM-OQA;v9anZj>lSOD0{moZe@1eb#+>j))Mw9Q9e^&h>QOH zdw0ci5BCRhs^yNc&N5oz8-FdxGSf-a-tslIaPo^a%y~J=llH$@;PyBqZu5@6rfxfx zTD|Vrt$g)Rd7oLTXwKThYp!&B*8XQ*eepWadCuufkAAKw+PnH>ru;<@(ew>$# zy}o6o=e?Vg7U}+cv*7cuuM#fxD_qNFP1t4Quv|CFCUJRfjLYmlF0@B&4_>6bWFoNi>LYyI5osj@siMtNf1qQ-fCO4C=y zCC~q&>e?XnBH#MSm5Ot+{LZmY;-3Z!*!8<8*R_iA9Af^v{ZEO@?AA|P*3SRl3pqlexu<@O?iX zthaY);|+-uSKfQ(a`0g;`=>uO{|NnTeH?tat0JpH**h$j}zr`=B zc*_)2!u7&081>9ml4Hm|xghrNgbPOnG&i}iuJ?MiNR9PGJ7bg7UA-dCW@W+qzr#QA zS9piNn$y7;W1;6Awy1QU#_e-bmv(c#)e16e3wQJHc{w@0`~L^qZOQg`-;2NN>FZk( z{mY@-OP(p}$`^r^C;y&OyP(9_dxNh;B#_NJ;C%I~?u|<)A6@?5LNKuXkce(Y(Y4On zo_*av7uY>%))ILftzA%2;p?JxP{Q_iwBC#Ub^J4~reFFH*tcgs_vX2V=a`yTPru;& zsQg5@`7cjFx7LWF_y2k4-?k2!^>5LJ#QQ&=??3hQUR?Srjuj^I+1rJ`pJd>Q6yR{Q zC^U1C3EQR+Gk;Zk!J_j@QHS}apZm)2>~i7e27SqO&ac@u$|k(nFK?yv#NSLbCVop> zxw6gPilBlE8YxdSe(YMh+hDrh&%kE8=XzX8Swh+@OCDT|W$ftO#_Vur(~%-4!-v6Jja7YyHGQEf>ghda9Qi!Y3z~vtZLF$*HHkn6-q@PM7t#HN`q{it1fI?kTC0b%fkEl_v9C zeD?ToxyMYgd*U@2@)c!udZlKq9Bkh65n?(upV>T=oGz(~An%}&AO-s2xRj0&6=1;vIAn&R?>*3YIKklqmn*B!g@eI9=SIR$P-t353 z6`%Q_SkO18f<5S$7x(tA@`qJzem=4H7rTA?C76>Rvdj80NB7alP6vi&8(XJPmoml-EdawMB%-g!~!uGC>>`!HkK zZHuUdT0%Mhety5d$Jt)pis7#I-_*p5^)`RLZhgQLUweGnf|nt0wi}!i)pYltk@qIb zIm|NF?qi}+uLm#t{Z}4;jT0j>6Jlj&t&@1;@Fx8I)7X8_Vwb$V)yVpXReta16dV16 zyrQXx5*2q`-21?dP3Z4)l?P(F3tJnW6z-T%yHua~Dvd8@X{bqu~vYv=* z>W{srd%QS$(A&vPbTZQ}lfJ1JmTJyYSbeb}+G?Y-z3XMIMay>`a0wc!OWERiza?>xUM{#g=4~>7he<`{=zX%MfuHz=9WiQ9{fdKhl`*4I51~>D7TyFo31h8D0%1V zB5jfKe2?M$dy*V(Y(@nKEsqE_#`mpJv|VHJP~0#exOt5utI((2VT~mYMbjoHZoS`| zcYpn{4YxM=N^ad)Hn;YSDYMhP-&t%Q?k&7~Rq~znmFtGA2O8QHA9N{iUt?17p5s=@ z^c#)m5}pZezu!C0MzQg@^1^C`&l~>vtWs7roGE?I#X6>g@ml(<)mm}#!67f&xc*D{ zN!i5y@KtYRKXpajcG(I6!`L}CBENUs@;{=Rcv$O=*wiTPKg;-S*>;^tqg`tC^5B_C;O(=Inil=bEZmo8Q}pmouJc zu3emO;Qh$?`u;VC3jZq~R&+Dfa2B-b=-A33Jw4$5&qFiau02s}(n_D{+d9wKp!(@# zo!=KU?@hj_SyTS^{+$B(x4Q&HPHl~Clbx7XXK?#uGwYW>tVUt%zc|m2ut6RJHUSZ#)NfNh(Rb9^=Y+Jr(nbz%_GLsYy1ms!TCOtcR(kgW+ zqw_+e0~dSuef!84GSwvNaHsL%lkDH~e$RX<5u2`_K5f+n^GEp$xpXhH-7PlP*jl_d zcTtDsO1Cr4ZKA4*U-ce*Obwcqu;$$J6$anpHh$0)@%T59(Rjflwwrm5$K&Rh?2;pdsa+Q9QodV3Nssz?W( zRX8_C=89|e;hCNbiw%m-FPgPW?y1?OIOTFi>%wpOkgtXgZd@xWm26VJn=$iRT7FPC-&htUb~Z9->9UmgnzAp4>tdqT zuk$^ddw$x7?wU{jrzUUQ7ocjZc>LV=N2W5GX^Zafowque04o zy~o*E@{zHY;5!A?^A1VMoqN}q+~}I8;`&Ioayez31Ye&w^+7|G&CpUrYCi_NK-QZ7+&vm#tIm-?VSXh3TeGPTi21 z^Ok$dLi2N*7u@vwAE$VNqx_tw!;O%NHh*od{k5~6}yE_CdR%&MWDj>>nEk;Lf zyDdATbkVuzUQbFbT~76MC714fP~DvIpwn50BP5A`g{OG%zseYmj6V{7C;LRS{-*^; z=LO!}&GA(%-s6y!bw^B}%CxC!>=V6DT?^Q)<;8!bbi%DgmlsWT_XQ7rF+mR0-~*V*J;)`*rq zHUF@nWl`9ZR=p1kly@f1HoJQBtMrYZUMv=uj;^i<%9^3p)_6lBE%L>j8!k;Z`m}XB zeWyLYV0C1FlfAxaPl~kq+TL{2Q^iTqzas;^W|vExuhMzsHA}ZE_~}Z6)R)Vgk9HS* zo$0dh)gpbvg*R?43tsJ>w$Ekeh7Ikn-)*@la5Q1P$5N5FujZjezt_4LwKUdwhut&0 zAis&nJm%qx-T!xZS18V$bz$3bzn1E5%a%N=EiZkx-#TmA^7~HK?@M=d+k}s*&lZ}( z!4fCC%$kpzw=mqqkK@LJCZF}!c$^fzM4wWODO|lYye#F;Dvk3cXG_D`YTlbivi`pL z=4akk-)EMa#mY49tjUUFKAyJkfo|T`N!>>-Z|S^}!}ssf^2^gd*w6NP!7UiVr$=S?d*Tjl;j^lEqRmy1_&PUUZ#?%`qiYu`Pua;Bg%{-@^o zA$B)Ao+KtUrgRtHUUN>c@@3*uRnO~%$186&iuATFbFw^oGpX->P?xdb#GMkl=UaGE ze_fG2x5TPs!@Bb&ex_pY7F%U6*q_%VZt8SD1A?VX? zm7l(Uo_yE%?!^TP)7Q;Z(YR?hr%hzSj`a4aZ6+%78YXUFE?-gUbLer*!@c?6Wor+v z*(I14*I2k*`oXhKZ=tXHhu+3n_M87)ApS|ty149~vQ&@Ry!Caug;sJd@n*ks4h1hW zI#~R_DesWy+RAw)H#DbqY}h%)q5Vm5UA(oG$|d~?x%C3FT3b6*6lE*dJLg=~y31wl zbA@wa#lA1*Yi`K?+wjvmU8_gn-Qlw&y{_K>p+w5dl!0kQ&ICO z$qRaS%+oVD)1R()-Sc?0nF zEZhCwc<%GS$$!6G%Dr&fRPeQo&GEp7^E(R!Ij)M_f{mQ_%eWqP}he`|ohZ$Q7@owF#Q8Dq{NfQ&XwiE-{So)L*8Z)+s$&B zGfLglc5s^?`8Lsd&NppdJFdRx5e-1);d zOI+qm?D%|2baC~q7k7^ee>~M`ansm+ncnKX*IX{Gv=pDs!vDlMGPB@p ztt%0|bq4kdC05y7%wL#(rOhZ|{^C^bd2VU*g=i0f8Oy?To>cnI4%B;6>G?0>Q;3bC zb<|6tYwB`Gj!Xy_=c`(fS-jf8tK zNr#kgooI7ebd7;U&NyoSpN0uPAI;qL*{hjVR9|kdoz{kZivAx;o>V^Nv@^YXO}*Ij z8t03)KD{0bf9n$FV=EV}c`Z?rK1XP>)wIZ`|7xNOm?p``qc=Pupg(;7pd8tV6=n@j+ zds&bfkzrV{!&WTUp<;2|$%4x#QVc$AF6j`zHhb3oZac+ivd8$Xb+;$y-P+kLpLT6d z(yg~IkNjhknWo=)MC-+u^yp7&(MF2>GwSV(eyoo)S2`OtqrWIW)5z=Y0wY85-fbnG zD=t+8r`=9?x@h_2P^)KM9)35R&#YQw61mgn$yKdAzj{+$@4VcWTYEb$?6d4;tM%31 z%5U~rcivIUU%6i(=Fit7hixU<<%Bm}IP2CNU!3eY*SCAqr3r-s9!s9e>Ul_|wfs?% zo;Wv1%G~SHX|?oKYCNiO?{j#5hV>}F)qH&D!)aB{n1t?XZ^5I=3Rx9y)**~hO<`A> z+OuRmn>uex*QIy}i}c$5pEkd*WZsT1To%c!i617K>PDLV&S~o{+TcT5sWUZeKYEKA>`_dsdck@$+bJzqOMzDi`(SR^xN|HG3i6^%D7W5b>VpE&8S z)wTTB)T;G=j{TV;n*Szz+k~LsTz-3(uiCA`^Iy>*rfc?WQO4V@tga3JieFeAJ^VQ1 zCTr`it>RO(rKRWDpNl!MQT2c5w~h;6UBeAbtrjh*NuRZ@_1&lT{-^a5?f;A2W?S+1 zr_!lz<9XWeA8`Lz^6UEZ$Lqzn8uKL`{P>Q;Yh~e~Tb4TmCr{R`ek5;m_<4%|R%H<< z&fT4rUO%SGPY86|wpcz)D#gOZyi@YlL!n1`-w&)=AzS=9Pcv(O_Qoc|m_v4lbQhIO z>zQ7*!*%v)R{le816x z)4uNA9g$SdeMtNG*|jg5FNpBHGYhi4aA#M1X2JG}hV2RNtV^t|jlVxUx~8k;i-^V7 zb*=kuHXfSCZDjrSu+uq}E>X{blT=wK~22q>GU^Z(8~!hg6zyDKfCO{|cPcjcGTL+k#7 zs}FlkZp&KCxc#s~ZY?`+>C(IZ|C)qwOEb!+Y`ShHFl}+r^7zb40aLH9W4knaLrj`f zmde_0i^uB(?jJS{@eNC5nmJK-=BEa+J7xPXn9X;Myf@K()%#pA?fq%G0_t0C`X4_o z{`H`XSJy#_Q}aWwwx?WC_`^Q$Y3%!_CNG<=e63sRm?M~$WTf}jp*$kJ>3@cs@#GB& zZWag5PCnoq8fJaxf=N*3R*voS!_^zF%#8i&wCC)2=5Q&hr+w|9Hjx>D;m%(_So3(A>St$3$St zhMWbvbp%DylXWf%&k9j+Kb9a7<)?J8AaHWq)MeX57rt@$6?%|yCYKU_#nIRK2U<%K znjYS`wpxfM{QZS?#diBDHHr3%g@2ux_rB;p6>YU*Qu(s!{f)D)SDiG|a_8BJHOkAFT$j!7NKE5L~`&YkZyd z3y+#N?WbSORe#a)*XWhHvzG@WyVQ!hA2nSro@Ei4LLq{cjchxo?ORb^5-sbrqK`)@ z@%G7>{@1hOdgh**#I^2vxT^f!g^dtm^cl~4C&aNu9lI`n%Ybfi- zvni}@3i>p8zr@q4Mut1jE_f#22%%X`*>U)}dY-DEsobPLr@;OiJ{Z3=SzX~i9B+PGV zSF?TJq}IbR@$qZTva3v^v=nR)21*X)}q%m$|>x`zFD#s4VaQ-kZ~ z;<-lFM<(|Enpbw2F*D@_x4^Y`7uvUnKjXPrvH#MO6|XD*W z(sK5mmS~|{sJKv7YN}_;GNZpxo5;hMNZ!J=lySd)ojy}V6LO@*Lfc8_++J)ccty+b=AC-&PexoHr2^@KTe!5FJNDM z=BfHO73VvwzF1%0_G3?e%eqL@ETQvf+WUOHR$5Qm$uITcrqBCWpF;J$_YLkB&%Kv; zWWQlkxonb$mFBL4P9G=kON+=<{yC%E!O3&}0h<{Ul78(zlYJ+8ooy=D3%2*AXFTk~d|!QBA|=9c#o75Ee~bLR|L9HOmH@FQ ze=;8N-(e`5b8~m|ulE*rzwe#&O~S=_M(dBMFOSwrg-boHz4uUP%RRr$pE))Oj#E6f z+bR-$PVSXxDp9lDC4SiZ{&$Cx*dG-!e?u#s_+*k>2+GqjTK8^=nK@k{sMmG{{~$ z`u*=l`Bpu| zN=|{{Z-1T)Z&}*);=tF}HS3Cs9?f<8w|Bx^&BUdnXN1tAIXCp@2M`Onv$^m{6s{`B_!jMrP%Yjnj- zY}hcjC`jEbb%epy)+LiHC*ThDyHJn5n3Oa4j?CY#K)udM)9dDvxD-|;P{ z?CRI1g%^C6N6h8xTlwn64fg=EUo{6hA}>FQ^mbc&_;Ow9@todt`>X6hvER8*imW{` zVg2i@({EKbzp${h(D914l{~eDdFr|c{F-Vd`CmD|`6x)N$oz5ER!u-*`mB2^FLItb zbjEjL%6_TvS+A~cdgAb&q#yy$E%SxABe3bm^{v7)-f0KfJ z=e%lyen*~+EDKhco$kIgKyz>POWE)DV`tAjWgjQQwBDz^PtheXw$NcxT%VfNUoY?J z2F0C~?cCc}NuFKP6M6K^tJ6Qle>I6-?n<6?{fy4LNN%-nzuqRXmp^#lqW@`j_S=Mu zq6e;J>Xnx{Ce?LwF5S=nspHpFudmlPY|#=|u@8-zP|&HaJWne8*z#lMk2K@=8m^ZK z|7X}Jw06RlHp#?(^OmVxKi)sNe005dY*4OVY+ITa6>cw^xydbRipTR7Q>*pSbL@OAG(>A>R@l}&pLI{CL~Wvh z^v+Vw%*hXq9pT$KSMC31%|x?jcPEtAIlU-)RxqtM<3Fp}y?LdbhK1}8WA_&^y-z+| zvj3F%MN8SqYj(z032r)UWjsUY|L-@q(}IH!PKnb`{@1ZM^odXsgY^Y&%QuG8qas;$ z{+_xmNL$*bOhGZa;NA9Q3sZ6ZD)a6Ry|56?@-(4$_udJuf8{;DZ1S!jPdEhgB^m0t zMb@n6?e8nL@yIF@yQcl7FK=fx&qVH%&&7YfP)@S$J0s=4;-=)L%NDviDoIBZBQhT> z=E(mvucWQQY38?$2{%guS`GYuv2T3y@92c| zAO~xc4+)apOYEiFrnVgrTIsjI=T@U#==a)*rfRGup{v#P&bK z*x>la-aO5nCHAZQ8Usyt&)K{0cEw*lm!~HmwpTup(c%B{J8Me(+nmd{f7iMnmoqvh z{IcYPMETC-w&xt4`!6LOTiCkgAYZa@&cotqrqhh($Lz{;UG{QQ`*LU9Kc{@!zpt%* z(DU8V|Gq?S`KrE{%M3xAgtynqozhvy+WK-s*O@cFrzf2~&B{B;G4AxPzb{wp@V;>H zPKtS%Le(6G>i-qrx;Nfgu=<oa?eeehW3S%$%b2x%PCNs95#yxK zf4B6TUf-_#PU^Q2bCqP{o)yccRi74$s1duvdDZJ6pEj>1-@HhhAX~rm~!@RuzDEV5?wXRBQ7Rh_y7J=vAp6wQ^oR+;%UcAwr?J> zBsAZ9dv1QI2)Eqi6W7ddHs;Lqx;a_ig<$GPRzCH3k<6ObNsMaz`^n&#?g9C+ZVPE>B_k6II-gP!P zk88v6o0F6NwI8rB)>f7HUl8rP%S>eLv;8(snY&|UxMV$-g{iLJFB!RkgKMGXGhw$$ zQ;&u8?K6InxKvYZ$;7t{7W9AZU3u+Pf%oqtGs0%QS}>QDtzIB^$Hvx!%xAY&?h)W! zD0stlZbOIoIq!X+ZMr|6l-{Ti>~rbFs;VF{-yb^~_-C2?y}I7y0&iYhIfwZ5up{Nm zCElMc*<4oZSguxn>&<$9Uu~lv&yJiW5_f!A+$4Ht8SRpLAvx#fl8Tao{g)gPIVv0q zCOIwm?Q-CK(L+1N^EUN6WkQeMFi)9iY&f%k-?8}3GXEzNxXpW0E-p>!^*q_XuS6ri zTJb?a+Rxb!4dxu!+I{$o|GnP0Cy8!TFCOo6573$%F#Xt>6AKxNA~I)5zILoUaY!ln z*>RO4*Ngpkcx1D@oAS<3vGMG=n55#_2h`6>-Co2Y8ocRXzlp#5tMFMr1ZPSdXg;C) z%;iYRtuyOaX|BsTlsfI{jx=xG)BiWCam|~sw0eDK6Ze|r)I|?8ofpJxDTun@Tb7!! zLbVVJlJb>^YdKuZN_&l#Vq{Ez5D$K*OW8-+Ps(3Up^Ln-w^UF>UZ|ihD?Fw zv$kFoIdW4;Lhr~uZJD&jWBV*Zmwwmi*u1*w>r_^bl^^dg`7AV>T>QAXOPqJ=o;4;v zrIoYIgd*2-O^~WoXL`af7*YCQ>F(L?3Wu~d<(|uxW3+eu`sDH?UfY+`K74bU%O0Yk zk{r9R;jgc1U*k$$(-b@5a=-rC+nlwjQ!a1aCLF9jGqG}KVDr}NTA^A^lRBpuSWP_a z#U-e0yJkyBvilAN5w;s&CN8MVF3;Y(^3snK(`_aJ>wPVrKA7X`HviKLk-sk#&hd6` z^nMvr{;70H-{iMTtk+rn;I2xlT)Z=Km2*tsr?#2T&)uHmnBKJM`-eMQoA+Fw_BC_@ z|E*hh9qc|g6|?fT^wvaFHGMu_IK6muAL^oVww;4 zbKJdH8$30|{M<85ZC<wA z*YxPjZ%-Cn<6ynexteFwYFJlk+* zkJRMPSB`BoKfcQFy@gi#N-5)8Pj9@I7Ej|Zz5jMYwM^_C*|+n)tCv(eyqlHT^Ek2X zwdFQGPJ2JQi*GL0yuUqf4`+0`W!>Mns~uLiYTP?D{`|Sj75JKWx##gI7PcQx+ZbHn z;pV-`Dwms-d3w^%&t{vs%>utndDFCa?fQB@y&DTNeIKnaZGADPJOAce^We`tFDEk= zY+k!{+7*r5we3mQbe9FLpPe(qE!*P7Rg1@;uNF+$u3@nw=k!y#C$n>zzPmrY*m7Oy zxUT1PuctSAQWvguwyKrPZJ2U;vsN49uT{FcimZIp%%7D=oeqvXbzbf5(Oj4GHEU1Z zR&dvf)7)Dc8(Xz{&TEV88@D>I$8QVK2FOFXQc5k1Z{yV;l z1-0j<%eOS>9nXuHc=Rr#?1W;s^!`!X$mqZ8`!MU` zzk>_2c9e3Z+gDwdmE8Msm0^&5jmrP2mBA*S-;JLZ^X`cGpD5$I^;^YVkNSi|8m-T@ zUnrc|`RH<{-sYF#W{f+h)gRnxdc=T9=~HUJ(X2xc7piPjzA0+Xo6~6Ls8Z@X-{DhN z)!8+>TNC}Om=}EJ@r!@mv!u0W)zLj-X^&D?&bhRCZ@Ofy=h0f(wx?%GG*{J|o7w#L zvr4m%3NQ#b!nmEcaNVJ4LdPavs{B25*%6N0lI>1T-JjM>lKi;I;$%=&cm34=Y8j!* zk<XP|;oQ~}2S)l9_cGzon^HHJN zh4xeRPW4~8VkhX;XOV5L$vtz0H6Q0rGvB7i&sSR)aPH+TeeU;gZg^mMpZScnYIEgI zMSf2Hyvu%<+cD9L@u7Wlf^F8cya|1$(tb?z<)jyjeocLRYN9f4@Ar@wKVIvbo^|p#jSq6=UVhpnX8N5#%+>0>rlH*GE8cbP5dL zW`*C4?6y9X9bQxrcl&6m-sZEsW{V!?txqUw%a(Bt5`X%5!={<*pH9~^o21*P;840z z_}pRrezSyWzkj@wTlsBIwdB*}BeEGKOA0sU%NN{_@Yr?0I^8;DWnrt|mm`zDY`7%C z{qaLWxctTojsEPddtUzA;H~j7$tKoziJ7@YL1@%bY13)${!HQf&i8-rhU8g6)1~?B9Mji6T>oj##xuO_^={9QevEF< z`61AE@!hkFS2q5CVky>Im(aOII_v#NVudcseuf+5A^6%AaR629NhoAh}u=?d;)zmLuFCQ3we)M2X_hoGl ze+PAGgP(uCUVQoQZB^OR>2e3v-sX93RO75{ z*KA=`P=4Q_;#=y+zF=kURF8dZ_MSyGuPvqfCr^IgpIPeNJuCF`s}B1ef#rKt_iW6I zlzqQ;vHFaluh%LsU%OH*s8q>Yy=vjh^Sf-9E_*8==PvY{KQ8S`f{~@$Y^R_nf~I|a z_w-F9g6F((wsxBL>bv!Ne^buRk9*cDsl*+hAyswp?wMJIp`GPlZ~XP+4GH*EUVZgu znr_JbvT9DPB^kUnD36Gl|A5-LE&O5ivbY@NW-ntJ?KUCYE;CL|dpf*G z`lhtn^UPZdgkQ)wKb{qr*%rkTM2cLhBDw}6&a zY8D~siTt8UnP#VNEj_zasr~HC$Ya;HR23!~RZUD!W`D43*>RQc>$VEHaXTzoym+d? z?z6KSZrEn*yLe3Ex})@du3ZY7-T0dGk86bM>CBT&&PsK&G+M~`phYLKu;Beiy#ue$ z>cwuiJ5YMB_W!;G^Osdbhka1@-C!@>#$H!;`NM%~SFX?*Nhgo&iglhL?A-czsocgq z@7g^r7w0~D9=v^-Z>PpnS39c+o7b0D&;Gpa^@55p*GYU|I9686aj9#vwNyqtJYy<`?F~hn%8z#G#1#2?LK1h_DztUoOsLBdvpDcTbz5Wsyg+@*2Zn} z`Y}tF=}x-+Wkb;&hJ~^(ZdJCQUZ-Wc$oKyAsPJ1qy|otC?rhh{D!5ml&EgeVuq^zP z4Cl?I$(B5K~6sC){%iIG36` z+c8QWJuhF^Z7<6B_@{H`x1O|16&qUoranqIIqB)bJd4OpFPgOZzkM}l3Tl0&cGsSH zcT7rU)`ufmZ!hUOv_8Gb@p}7(mHWao6ueg{xVuehlF8wnviZ!cRww(JUoF@6y7(t> z`OGqSYi+zH#BI@goqw|pgnnw)b<}Zeb+a*9$HU+I{;>15s`xm|JSCwuFS24vUH{iD zIesc;){Ts2&##{M)l1fgzPR{j%SEj>Nj1B}7OJ)JoUGShT@YoizxEL8@mFE@=iYe` zWRf?h-~Rck_0ilLW1@_G#oYU6+b%v{*>Fs7a^lV%PZE|d()RkaB%p5HRsS9dQJ3zW z?Kkhts-Cr`=Y3`E?A`KgwRfM%wK>jb-j(=iqT1HPjlqZQs(;UVyVs`v`P7{EmJhz) zxM$=2iZ9&Y_`OBCr9VziE1CHo3X!!g2ppK{%~&!oY6{b9!7mqlttW45 zTzR&)bjgE{Vg1K*B4PwKWuA_iw?g7lOx`7flRxumhlAp}}^iIXQZ;{t{zwK)%KbWw6#^h5IZ@dWH zX|*PVZMS1p*#tIg`>7Y(>pa!+C-{HW{5!-kjYh73N1+U-nU)dF-?P zI#)KU*KZX9y#Jf|g`NC+`@))-?|*Oi1bMG_`M)i)`<(7f#W!d6)k+I`-rslj*b;H( zp3}MSk1RhM)H&fyQF`;XADY(f=W_cl?B(y&aGr0p#$*NyXU>doE{T=Z9#33cW}5%1 z_7_YQJ2bK5le@9QnPr?E%V)pv{^EXzds}7wk-1(s19!;2>CX^5e)aB}^QB8X%kXQWzSyEqJ_UjI%hV?Asciq~bAR!5 zmdzOvhm8^~IbxQ5tw4zUT^Y;%Qa?T&yck*b3bCb(H zBcoouC9fu2^Rkl5>yhAEB=pzId(N#`Cgao>Ous%hzS=3Nt6-HFE6K6q0XL(18OLoU zH(?tikKa?-_FQe#Yk%l*=gbMd?(ISQ78(ogUozM9jk4I10L%8NZI^`}z1VZO;+FE1 z{FwHDDK^4wuUluIb6LP{ZdtcXa;7kA$%?ZoQ;pnyILZ4zV_y~j%y;>-$n0XlJxjaq ztS;p~r)ul4ImWTyZs|_$h1I;zcCo+u#p_V(K7D`XVHw>|y-iNDjAn+uT4XG*e(~DM z#HFq~`BVxs&+Emu9h1sedr>kYzF6~a#Z5*uB_*^F!^3LP3ta|<)mR>tAAG}=t zB7D!y!ZQ;#wBY^K z+IJdvZ`>D7toyt*>!sc)sdXnEizeEIYWmNUEsagDW-snz{I0Fbm)4?I+1{O7RCV~m zx2rRAb_qPYU!)cxwa#ubgU5Zrp7T?zn+n%Cnf|T4CYZBmk#$9D@2nD*>U!Qk*T0^V z3ApH-cgik1_Ufc*T0-~kd2js_$dpvqULAE^FC$raztP5*8OySMCTC>4xGi|s?S7w( z&D-B)4ZrK`=dJtlwj-*%D)9Cd@t};WO%c|%Ql@(a>NhUgoTb8AcSzJm|V z_rA`u$_erG{d>c6qL;H+_?#t==jV6-eeujye(U}h=R4*t%s=z*k7i&ZH*4FtGl1TIQj;&b#m^qi2GDj?5EV*}hyNw5-|ER>b?e z+9r8VvwPnfV_*I)Vc5M*ZSs3B54&5pGDQSqwqO5$RYgfn@}q!YT-wU`VqFgXm$JXR z?k4c9d%DrP_`}8(Td#$^QTd$P*RpeUb9l1+R`a$NZ`osyY%e{FO*e}EHtnDE@}=6X zN80L^s_M#Kcp%G>!JDWM;!wKKYO=D+XY;w7TMtY&?wpr4_3O!t^1{;!X7- z7M0K4Z>p=jreCT475VqXhD-KFd${|ryg#L_TlxJP6ZeK)z5oB{&Gi1XOP^t8`jzvO zZxyrsaZfhe=X2@#l3xukZbvcIP0jvaxooM+|F|t$!qd0iitd-<&aQ(aJ|8S zr(BY4TU%q%iwAqsHu*0ti#YkP;@qSN;p6As^lOC_-)LW3aK5KjE@$_u@^>ZDw*9ic z?tj#3)P?7-bF4N{NeOP{D7>(K%LDTq1ECFa>l#bGGh7dxb#2MZr}`?b?0dqKeHO@x zMSW^G%*xBOTE9*x3(u&sAnsCOt^ac zz}w@$riy)?wnXQ>zzh3Tx35MUXP)1<^4__iHSfX%f2$ve^#AqcQJ}|7#l-dg)~EI; zh*hfJIjGf-iPDh(Dzic+-E?y0)`Z*KOpO^i(bUPSL3q!6k*eyziH{8+G{IbACUu={LWf z?xiT#*(t1Z7G!Pe5{mq7Hr=_s&p7nweBLh4hJ)E3i&@snuPcB5Bks}soV+RTRdWuN zOuqKMx242Q{?9$n87|GPOnWPyVl0bX68we2VSy zh0<3~UQAAz^IfXH*uc3u-yrdfVTJIC|+7t7>#DBLkyxFp}hA*uC=+N4uc z&K;H(y7T<6SG02zi@n6mvlz#8o5)BrQZ*DuX#o7ok*Ov?p67# z)vp#F%AU1RvGuyFUgCbX!X@kfzLh#M(R+jSDegG^1CcdyG5Tr}BIYN(KC-d3PK(g` znacK6;p&2jje#4#cfa}Hoiw-oLG!bdf4#c1@-HM!C{tiIoj3XYrl*VUCGJ{ax&2W1 zAi$n@+-l|l{NY(8qPs*DQ5T-RVk+qa~d;olPF>xaJvug;(R;=i9q>^gQB!6eJxg{5i93Yj@=0 zC1SO9pF5UlPgecMFz=X)xy+L1yFc~moB60z&(w8unOFR0Vu-n!)M>9~|2aKoQ_FY! zQ05h$KH1(xHsCh?gdv-@Gu&EVD6&$~PW&I+!WbD1;Cy<+a2?)q=? zvEkJ%QaARw`p9KZ!{SJvgDz=*OP;t~z54O#IH_?X{(=bbeZAO#1NW@bORkPt32M9bD>T zp>FelcSon@L&p5~a&kLvzJAC&{autw`|dfP+&<0L`CGTtQTgi~9wzGvH}d)wS8TlU zB!cH*+5&~6_t-h7a0I@{XY^X)ALQN`bbaN5`SM)}r_$?eul3hVn>Z!qlb5EC*Bp<3 zZb^JvZ}TMWR{!3={PwfbWIp5Vy~fLz9=jjrz46kHzpE-ucMDdZz4YmXA$Kpc0pFL( z_U8pFGmZf3>vegtbJd{)KzZv-noktXERM8E{L~Qt<4Pb)iq0#X_GvIitq? zSL4UpfOkQG|BfBGu-Nq{yOQDNqQ|yNU28*+hxw%4vpDj-_ddIJRnVo!>p1$O7Z?1U zb2jtEqiF^)r!v28Hn@{*JweQ_`25@W?+Sa@THI+Y+GH+Naclj-J$GjuU(G%*?`pz^ z-;Z?9q`F=S=6z;rwWFi+(E5uL)7MLt__FZqT^!|l;IUHQ`|W=}oLX1Y`cb7oR&&X; z)%TY76of`*Zfw5WTFcDweQP=Med)=&ZM9jRA1$=ilX|+0 zoOa8N7fRh1*>->Zn(b&cSNd*+{gv=J7rKisP08QRI80_wy^E`!4%t?K#K%y|UN7fBTPPKR)Md>e#I^#qUFkVD-|I zvvi*PtGeJEw)+0^)Vr4VJOUp4Qf1-rG*Fr9z5L_(Hjm^-tB;)5Kenvy-_HWMk5Rh! zGELNvY}t1?W()6E>+kO7>hu10XujT9;=kEw$IUyhYL+s2i2F_g!4^&dZ+RI=bwANv8;^e=Flr& z7PTuR@0)=7PLa!fQBzB#t<#?F^xe7iTKHF6-nAQO^1Qm+^P|bjW##T7xmVuDy)HAFJ?%-BM(UJ^(!6~U zXO4QlQn$A7ROLSXu+wAZ;W@nPZf@wf@m)K2X07b|mmUwTmb%p(D^T_LA63Ah7-zKo zk=_5z2fqlfR`L2*dsQoQ)!X_GGuxwlzpAW1#4^sxXF0NO`k5*7PrlJ8-udK`(itU} zqZZ6n>yrK0V^}o4@TYY3)Er1UlotEz!o)|*+oo<4+no{8+Em_Lb**&S3MLVopGCP7 zKh~T+z468C>GkRdicR}=-q^JKmzk5)edYO5VMl@wOTW~N-fy_xq(rD|#ipaxC#nKkE&o5QSX;^!;u)lr zd?ly5XSTT<*O9Y-@Mg=@uc`$${DQ?PckZcjzYft) z?%}j*;#Bx@=jEx(@=x#UZj0KL(4m!EpqNqWZl6UHF93J`G&Wn<7>@Q%D<}_a$uyH|t!|Zd( z>0$@V{M=VgR-30^W~}~ouJz>geKoVB9Ou0Fr&PE3-dP!AUul1zYnax$jVYB|^t!Rw ze)f|BD!dPPK1t2%k=ajmi1O!G?iNxSo|amVekIqLm2@BYu|xHp1z{;T!#8ZY_m=j{uSiPP!#yZ1`u z?>D}@HSH_zZ9m<9;BPXonoz;wl&KGnNQOr}ad!DJ*{mV`$JRd)+a>o+ynBr~;6zU8 zo4!0YE}r=3;*Fc`Pn>!v$m8|qa{Uam=~{EEl(X)apD0V%bWGC!Qt!?6-(JYyUB9L5 z#4_Fq>q_UlT>RU*<+sc<#nTGyKb3cyX1Tm6h{*gLxoXd0j@H9^e9~_xEvi3y^x~8) z3k?=`x%^*ecI$acZbU?qgUOeu(^)$YpXsYxs_N#kEA$>?*|D}Gn_X@%t1`dH$N4Av zp6`;m$i;h5_VC7X^J!DXrahbB=xr^q_`<7qk|qED-F3)PQhfM()#?3@ zXE6M#Z@u$r=8PGIhrPVRWTxCZ>E89Bqh+^G*W|nz{>yyQUR4DqGu^rydF$}!3q76U zN(mL>PV;ygbT$<(O*LVd)$@_hCLm?*Ldlf&U9X;|^iKM*v|bph4PsuuCqRhJG*e-+M!)uZ5vg*sLHSfjc8 zsb$kjSiHqlf|Kp%?mDZ@H^qZbZGBnsf&wqIoWM15Qy%1d^eU-&zwr1zFIMZ`1_mAN z+%*TD$iDb?SWLc&H)+-M&6~e0o9@2FdG$Tr;6M9+`<=btzMf$N5k=O#67*GA;6NnM%gV!X-f#-ks+g zqKXtJF&!7)%M*Rm^1lAlHFq~%I;3S-QOLBif5$1UPdc$L>-5h>?a*BvtTEa2>bGEx zpqML9ME?6$Ob);D^kPbU(&;50rAn@U63sp|@2Psw$Qj^%{_~rFwontDErv%qq$7lP z`$i|~+%C;w?ti~6wr|ze{W4b_uU*ss@8aO{X~#w}?@tf(k{?#6NndDuIL$aR?C6t; zc1~}_KMG7{_x(Jf2}8WvIN(QaF)YYqm1P(m*=Ffy;;WI6S+4$ zV%i7YuW`bAj+dCOms@pPNxV<*+D;qSXyt_mS0yg>-F~%_{a63(v^}mHch*=+p15}Z zOOesU&wP(hhu`Tesx)dTjk}hrmvU*Q`R#dsoPYMLIIMNjF0^;L)3etR%Rh9P#w{_u z@Gj=!qoO(M)`XbG$$G}ss4V&DU&UIh5&rZ}Pv#%$FD? z{u$}?_WKBD)7E0%00|^ z?lK4Uk{6L|>n9jk9Pyu?x|-X=D&tc6t7$?8TPN{5J9p1oI$0#J;MV=aYbGpfag1m! z@SoaX;g;`izGh4Bt#_aJB%Jo#jY=$9QJKKCj4|=d%vW!G8&^(wC~6yW=*^~vNp@>Y zzS%ss)!n{iNBN@9`um^0_i8+wp)yCPd9BBT-@l%=mROgFAJLSZXgXQ1UrjD7%0s+1 zTP?mW{E}?6s?0~OKcAu(-r{2USunFm`Q4!(yH{)ss%9x-dT+v06p+`U;?q7=>=dud zuRY8+s`v5#`jPmo&*DMX;gX3RrHk~xEZ=6o^W@tZ1`SNiHNTGa7FavgO`B>aRkmmO z^O&aH;@W?_7VK4Nth}cwD9L%EW%1NgJWDx@llNb6+QwDO`ntciIpy?4^+|4lZu3{k zg`B>!T4&Wn$Gw^@y93wjNu(RURAce^IX|~#_NVj5({ev$SQbsZ?6jkKqU+S7TbCF! z?+RD7dA0kS$m`87%vShpU$w+F<4lmGSkwx!pYyjg`Wqy__uG2C=xFxQU&S*8Cs{0W zVZW;Snd6Z~uXgUC@TI?Q-(PX7rnr0C%-JiQH=dvS)cDeDPdj08N3q1hOX}8ZOsZaf z<|{Zp<(rMR-@3S`ZYCRK%#9ng&z`z)VWxHCz0Hv~of2KMSD)9Mr<$bs+~mLRlI0hZ zx?ix&tg;mK{g|?$Zt2lDbDOClzi(gqe!rT-U+}JC=HYvDjkaokzy4IrTS}OHm%*AX z0m~B0XSn_Mt)4GaU{#v#nZ6@?+oihT85fi{#l4*HaqiWOTmh5U;ZYpU@k;MAU&!6M z`eHAa`&3Dl&5cWr-0a&bz#S0%WW%btbyE&Ubae{Fom()4rP7X1t#nPsO53G(E?c|E z@OAAIzIjco?{VEy-P^aG$sTKYzV(Ti<@K+-vwho4U$KXr%yZ=UvQ>6($zCm`4(a0W zri=Kydlu9!^)1M_cR4=h`a7*#zgzF0p29s-vAkDJ>axDyg3gNhNi3ei3uBZRwO^OY z6w8O*$~g2?_C;0q{Z!wzza8fk@Ou^*9k}iBM&UIVVJ6)&m zJ$G{cBJa0z|C{w4{rpgBTJnoYvU?@6kJ?^Z6!}e$?b6vP`}g-<+342tL~eSl$gI;@ zzo&}nsC%2fFX-GmNo8ZCl%`Q!!PUJUVK!eD&R%`x`>V^>gX3<=gz>)AJ7ME&tG;@J zWkYl02RlA(T@}}5@*P5F@6=SUJR|1mS@7>H$AahoXK|joU2=94!~O>cLv=H?Kfn7S zptbkbakbC0^5tVy-c4SlwBr1$n%01gGk?fj;{Metc1u}rrny4e)_}Ba6Wn_Cd;dG4 zBDv(T(QMED`~O?*U6h|H|34LJ`Excyn_p(qhwt}OA`;(Jz3*HrY--ZAIr-fyvwtt@ zAIsl-@+C=%Q%l3;(n;IkkfLAhuHh9kyOn}nQsO#1SS!U|YISRBX+(ej+OXAq>53_Q zf{!B&E@yqY^Vjv;XF=tD?{vkdcAqpBi+;HN_(A9Tj~vI}7Jitu<(E=Rhi>ef4GNc2 zb|fyksN}C^KUGrUuRyKk(O~ddeTw#}N4QTr9X6;~p&s=);KzmSiGTQyJYVhj&Pd(u z-`uae=RE(k)?wrN35v~TqILOgJaX^%tUZ3bzNz$5oYn6?fnS^b#p?ZhHon^Nr?o=k z|JvLS>#Rzz=10DZ^4}X@CM$W?c4l7A!awuWHW@W#DJ*W=KU=lhWQoof?%7SXkz6G^ z7SH)5U&Y(=v&>|px9$CTJ`;;p%~x_QSOS~mi`M(ySw^sDg*aY zr=!-})<&Tan>VcO_jbdIjif@ zElq1p8aGZel{hjb_r6T~hB=mLahYpUpYrPEd}cabZ=Lc+p0lB7*$Q^{Psf)0esW3P zSVwM-_k5FhR>>O~(|N_F?D(=i-tt`Y1kHt&{*Ez z=UMbTDLO0CmfWX3TVYH0kF_1$C9BvTzKrqeuicjxlXWY2=PNF?tQAK}=B%<}Sn=ZF z?bWN#h%s%wxB1wP!#Avsm2O(y_dzK!DciF;BrhVj)x!+9FSbyR4XV>1Z)>>xy zSdphu`El>Dgw#9#S8LmNm)?2*No3`f@ZPAB(9n~=ABC$sbD2v2_2Le`#KBw`ZMyi| z=OrgMT&cBLX&k99RbN^@uVlmd+tTjMi>>2$qke24EkZJrn__}a4k^tszR4{x(N-0k}2!pu2Wc&j92J*uZPT=|&s zt=X&L&()VK*JlY%lm54B!nIH9SG#QVKkl<}z1VHZq>7gp=KeltbuexD1xb$Oi@Sn* z>_Ws>>duqsLFR9Y_%kA^F zyvU6UyA=|2wz@1i@^=5p@a^I1dm~-0MF?Kx)8=99;y=1qU!JY>e473Ay~`he`1h#% zNJD9)sL5a3gVVNau6}0cv)BCX?+JBzg3at}SJ!>voay~{|LtG)joUJqUA{e=$1+n) zee<5xZMC+?=dZYD(|*JEm1g53``yDvx8$~&T2?)0&lXTj$u#tFyt~l+MR(1Y{CWQ~*iLY6 zR`8ACb=PM}3JD6&z5Gygro)_TS%!NUUL1XU@4*p+caF_Gs^Y1d-H&*`N+*xlV@~Qp$iA9r7mRA>K zA9|M(e}-!XBnR;^i4p2&@9*1^w>`Q~bMKIzPUHm&%}(S`9DuPxX)yE`pzE&Zo= zvW{m~^EPLO+2>Y1R^5^H>FA!rzg<2SPj~p0?>DLS^VbdMOO>vhMV@JjsSZ8*KBW1R z+5FdkMfNv;X})ul^=)R8`RT6vjC(9o40tL&yYaLIe_XbY+33igru0P5pYzU1%9!2| zGgXO?BBg-$#?f- zqOyg*rmnV9GF}mE+st`3qf^fGSI?$=gM?36`!79{<#EZ~a@h6z+pGKPmInq&mGyji zvWhFZYiXF|o7ppFTe==Ej^;n}Tzv9|^6JHjF;6zAOO@r;?OnIL<$SI1-LJ{#j@S9` zRXz8?$KYpX{U((L-V2r78C%Ov@NPV)VBlTXaZJ8IUH|?&?PtKj2LBzNN++UEwBK5EYh}gO z;Ez`RWF`Efn-PG@S+h#Ct|7U^Ryu0sLJ(-vJpz=V-*V&&xuVI}wi-m$Y*wZyd0U2&rzv;e+5YYUv=GuPAsGBo(X!ETwf3@uV z>WaPVLJlNvKJKVX2bKG zw=>eK&b8E(iG~wRbo%`id`ORl9y;;0?63)hMv)=OKZFp4HR?#1>wYL1-^Y=K-{dV%MV!*}M z4syHloyB>=?WRrLmiCj)$W#5y+nO0JFPFP8E&9})}?%lNKF<&exZxvp&aUdi>l zzcGvNkSTw=pUG_hyzKhE)9o?8(-TT(S8acI&7OO|xXu>My7=$4}!iE^ELhUNcb$-O=cLPFzToMd>N*=QfLXXO%+17ChwE-01HvAxZ& zYE$^TIoj{+j`z{oN*`vie)`Uln>cNcrSg`o@&<`ft^b4jb0W_kRW`VJgV$x6p>^9Q zC-0c&wpI?|%c-_fcu6OFyPR~Qq3zsrm z?VGtOmER~PUCOH@GfV5=;?7rwQ+HH8`t&d3yc74iwP(6+zTW-vwd;a6b>I4C6+Qm^ z_Gjj-(|t4U)P7lH`*COZshg|87cG^5;L{?L7AVo5waasrB=-gDgT+rH+4#OsW=E`1jzlQE-Io>`k)M z0#mmvUUYa%o>0iKCwUrLRbR5?!=%!j+=KS*J;e8A*CpPkSB{*o{(Pm^O|#e3zF3V{ zZP#R7GuE7G`(}%XzWly3dFl6tN*j)9&d(iR+4T0x8u(wfP1+V~{VelK^Y%2!&wM`` z*J;fz_On>aTU~8&W5(&=-P88E%I}&GIiuhHc*r{ISLgay>O4-Edh+YMV}ajxZ1V3} zyh6KhipR7tqse`-@9Sk!+ZNeBJfyH!nWd^K@j}(*d$+lo(>~rYm$ZF&Xo2xBz5g*1 zS7huyzF0M3p3t+&R_BbrOI#LjpW4R2^^%RV`jX?JkNeb*9~1hTx#hczcgV|qcOLqx z{{C}wH>dWzj2l+l&)mpwkbLJbdDn@(8VL;(?w5LWntqtp7M-3`EN3~(NOZ4_`B zwZA9&yXnSf2Upyl@W$}r-bn4(GWBcwf7VD{-4uK-^-fU0+LQ4$$Cst%+xC22cIDF6 z3sYU+8J+Kbcf-Nnuxu)mR_dg()Q0>Q9x43Xyc1V5Om3gT#;{TThMMs2)atXl930$x zHu7G*JikYNv&3PilbgP8T*#O%f7t3$Lvc^y-Sv#mSNoP!yt%OWb65EHE#Iwoaz2lK zd+UGJj?dd>75MEA4!b;MNxIQ&kBh5r%=WYS`0#hRcf{@f)wb?>dS7nMF?ElhdDZn) z(2I*@8P9%-#RRZx6gIJT|8`ck_*<}6!xFJbcHyRy;GXFS=Nc<-*^ zONURJ=RT8*I4UW|9TNCZ=Is(C@uT|>oO!+TkZAj~aA)^#){pM|nQX8m_2J~KH*;!) z);vvhUSGy9^~=3**J9b`pPIYb)3pvYRe#v?`u33%MYY!rCr#b^ok`XG(M@aC^UAwJ z-WQ$T=6kUF;DUBWwu>ul9vmu@y%qRfn>X)f$DXoV!hEv@-dXGZdzg1~_w&EGH+-&& z>}fusXL9TJ)@5>eiHl9Q&b)V>cjvQwS5f;khh?0L)~{Y$Vi=rp_m$qQ!dXY#Zhv#C zPdWSO$wD2^c&o1>4}?A~doS_4t##TnuFf59HBQMaJQ=s{>MnZE)L*Tz)IjB5L2c*8 zV*f836Su!nTvDoXPH)Gt57NaSH{HH=|I_7*M;njd_?7we$daS-_rCH!zdX|~`|*7H z6f2j9>Vc2myNl)RO6YWXQ8|^JOJIJYdi4HHtOtH6*fM0YH)*|h@Q7ge;aj)gwaICj zx^PT^Yx#2FV-br!gq`+1eDq+e+D@^Rhn>SG{bI=|(R15jcqn5j@5B%9_gA`qKP4zp z_G#h_#k#JYQ@)sgG(U7OpQXc%#aoNf?vFj=2gL_*Up6p&c(LRl`^)CQ$w#lo{^hct z8hrRg`!o($8`Cu%%YS|U==`ZRHSx36pGTz)sz%&T){iuJDREdRcYFHUlwsbsXdzI>PTrf=dr z{YMTj_*G`}pr5VBD&yjXbd`+elCWL5x%w~6oP7kuQuY_vG`UG%vc348(|cFY+d^rJ z<&i9+7W>ccaTI=E`>((^aP9tTuA+XY#@>T-j7xXc2Yqq>b(bT5A%}jg&aE!3=x-U` zrE~n(x(2=Yb>WtW(@{5j%`J}Ub@8kkPnO)!XFbnv7H8!gzUq{S=RxUxjH zLQeK=LFbb5XPmUpM0+%_P5xEJ$K6Ln+8E{QA~F>XZ#8^hvRI|QTx#;Nxj$~b7w2W4WOr@Z*MfIy z%)d20YX!~OU&lUwo>R8r$5Z-jXRBUH+xEmg&b~CO%%XVvp8Q*?!4rS%(SLbSl>N?@ ztur*ZE_Gk1Z<{K1NjdABbxh8EUZ1RGPKkT3eHPl(tuUl-0RIzTXveUXQWksmU{ljwRpe1)%>RX_i`dmRa`eGl^on5xJ*D!(0t97 z0FF%^8`M{_t&G`ebANh}lINw9{7*k!P2Bg(#ZFc3o~MZOvz{#Z$$$U7n$4NKc8>CH z>y1W@DZYn#>z4Mq2*2+ie)R`k4Q6XgMay)m&BZRp4m04@_?Y}+PNQB z`ZG(5cH@vY zn9PUTjVoHq8Cte|?vzM4HcL+@?a@97D>`-k8eqA{9>PKPj<~dEw3+ZAS2Puk@eXI-$|WUs>P-Z=5LsbWFfGp@Tx3(W8i@p|&#mRoz9%*1N# z(@!OtSInKRpJI7A?$=A#hh2-VsJwfk{m-MqX{mqN{KqrSahpn=65V`R&${QdQ}=y| ztmdO^;#sk3(48_>%+SaF$h;4aTYsN^Xn+3h6%VzT_j(Ib z<~jwt{*K-H>E`d=xe=_(e;wMk`B|C92bGR(GR*qUE#DWJi$?;K95GrLI(@3xB{kCt->-DcmR{m8x*W~We2H6U&Cu?r5S@K?g>8*Wk zS6G;357l=5^04YG4#>#q+Vr^&!e!xfMnr#I zh9c*_gLO-NxjmQMyug>Td)dzeXW#Fed?({gzw+cxuNhfFU%16vr(bonUsrA{wXERZ z)XgkgrpQz}0* z_gPC>B!kW`AMuYxi)One_j~FmO}CzCf3mA?ffJMU>4%ZC7z#WVt8dmmDWk1lDc`yB zQtF#mlRGEAoO+AXI?PzcBdhw7$CL|Z%@^Hjy^bW$KUM0e_wVxK{quJ!>N{>cdvK+C z>x8xPzZAtq@9zEf^k-AmeWh|qAy4;f$9GNqn|di=zs-5hm9M&uUT(c6w8$sQQHcBC z#+6%J{#@O>ZQ70{;!f302h216|CnE0oU`a%#PhEWVyd_2dW-t6vYzi|n*8#0M<%Oi zvab39_s;r9FO;<HZX{^zgf~=$-@4l~+|QWzyLAJ{k0Nz1n@Q_x%~uV+kMh_O7cq z|Gqy_VCuvpa^kN$Ug}6LTz7V^)7zzQHhOk1yy&O;Ep2Zx2lK|cUNTxd%B5wi{P>J7 zynbV|yC(Y8tvea6Oe(kX=SUduyHWRe`Xm#s7tbeFadoD3t`xeu%jNi`P7@R3H|(!m zq8@Q(xSwD2$k;WC=~_YO`nto+Hz#YvI1DEM0hfqSeH-3cm`m zD`gY6UAp*blSg%1-?Zu&*-tm#J1lvd${M%z#G!?Yxl>xwCW=Xkw@tK~D0ZhsCN5%0 z=Q-Zl@6UTAy;jow;M%>0;H(5NkPe{19dG>{<9}=6q?=b#cBENECg3ALN^)Bg4 zd5d%Av%K!zl>X-Ao~vT_>)&_WygcvHvDS0xuWMTFyl~HYH`o1LM4{O3^>ee&R!vDu zUwuGy`a!;*8+zuHL|R3}l-^=}lHSJi^};6BE4^17ZMRgiSv>!A&g=X4sMsEzHG88v z{O*Wd`gX?YOZS{twh3p~T-x|KFzwdgKdg#oxf?DEJ@UEq{kir*yQ@VE&qa)?oP>8> z+j)D})pr-zBA-22@t}UgiAod6PUbncd6i3L?tGkcr2p23U%3;a`0DJhC(ae>FTUa> zA0%zz$euX4Z@JcnBZ*7emJ5k)l`=NTz0X<1{bG(!>m)|cnXfFKZ&kgvN6quJ?CFEq z?7}I=SKq%4{=>6(+v^#!bH63+SI7>ko)b5}!|g>=>i3Hsz5nJ2PUH^key8(`+xRup z<+26)Ki&9u_|1(ktZDT^wp*oNXclYwiujAIYSx{tb64%^xH%%8|*)N>`q_L}Xf=KafBrmT#+$;)y7fs^IU zCh36n@f)Lb_NV$XKXpynyYk8I76AsyBZW)EPB5q+*dcW{?IiN_wzj`M0FmTXkhw z`+qGt_hMt-L`RvoQ{`UIl!{w${MW+Uozr89dIt&QI0mICR{Zp}z9@ zo9cDTS=E-V4^XaHd6xUvk#7dqZtip0b$#;PIa4qDp32{{sax!2*`--|ZWrsbzWw@k z=(V|l=({~ty(_l_=b7K1mcBKhL@D$IBX7urYacY7w=2or?Y$DA!Rc#}!B*ma`+dxv z^o3u}9hHvKV85$l-1f$)R(SLNn(r-6rN8c-&EnkP@@A{vF}bdY9lbX0d>40qsxf7M zSQItas3$e@y-@Fpn`+AIO7}IJ_K5|)PF$kK$!IxoM`McNw!FBXk;`uMzVqvRU=aDn zr{uz;4YxOhM{QVX&28MtbLlBVs?zMoYZ#uoDqicn%4=REaNzdUIVamhdHcSBRp*Pxs!>ck(<^(M5FK_?5`~1{<(st%0OY1k+uYME1sd6G;<=tnw&PMqk zpFCG8D*I$^RH@Ixv)bfx=ZOt2+zgve&-Hw)`Bx*(nWavXJA%FSj`L)bk0;OBzns0I zZQ?1N2MaRW#9qFS&*!^(a#qu{uM+8&0dsEN*(4HrLzK%}`=w#*FPkHx7qKHh=3bF*yP{E7=gG{(jQ-8h$?QT!i?Ww7O_;cFV|H8EYxgXZGKQB` zXBw_vRW&>@C28fu{qmaMvYeV771v)D4eT(Vbz#HZOY<}nZ~0sQkP|pCxj0Cp;i~Da zPe<}Mf1cA8zjt5prSnC8%S+vKL)AqC&GYi29ZD@3A1&dZom8i?MCP8|#6>4AovfKt z$6@iYXYbPAWhrar+_XXrxP6{}Xn6H!+tuI3nv?v0hi>>7UcRVlu8_r{=eb5w`f(R+ zy(6CrET4T@d{6J)NWIs3)23X!wt`vJKSS{7iL(noI=8R*_h0+B^TZ#FB3}ZuH!Obo z-et|tD;5RY)vv4cF4`5ozHUx!W7@q>+FUa7vYqaWJ&@fB)gZ{-w4t z-43=682n9HP`9HO#wZ?!}Cl(xkNTx)OS*au9EUVedRj`{-IyHT#8 zcMRJ_cFeK)!}Pt@Te!WJ@4qE;^bOUo=j7MZWNv{k9LVw`tqkBw%)3zcazrg+%)W{ zJMh|OZ=L@grc)C_-Q!=Ih?QUDp1HMfeVdn8nNyU~yOM3fMd3e>e$hT{thevd_KT{S z>o0x$eRPTC7U5>Id%xs(a~0Eb@4k($VR-OShO^*o#EiYkzb16=Ixg7Bd!)NN_P%|C z_+kBHCMEH(AYUyq~b znCuwRCaFL6$-fmj>(unZ4h?SZf4^oeU*h3i-52{h>;KVhkpS=5Zi}pRan{kiM-kM!|JA1j9 zgkjR=37k6=@lvFg!_dmA?E<}%;t_ZEDh5*vQjq%Y)+&aEsbxm_&!E?YUv6|PkKsoiLMd-=qM zuSLI29K!BSe0#a!B**V<>yL@e{OWk(?9uM~e{$ImzFBj*zkd2v`*W3l;%(+}Z~w=C z+Ja5ve4dK4k=`-)pSSlvpF8EN*wf>em#K=DzuB`{VzRaW^ktpyX7>c$IjmoPV{)Gn zViBM6=0NtY9FGl${Un6WyFId-$YENv*qQt7rxSkci?}%+He2UjedHJaXzwmw*4Mh) z-A?B&vq-DjUf6f)(xS{qZ(`hE+}irw~0IUI9zdW@GxUO>QIcHn)jmG&j&V%_ACw2i&k4$2PDZP9xZ~2gRNCw+ ztut3`-T6-bf6wWRjMP=l74ysjB7SM5EZ>?O@={?#lG9Dc3cG^uy6<`(c#768s8u}O zw^#DwB%>SrS1gPR7QbOGpR~4|mDlP2qC(|GKfO&G%LRS*N}Syv@j1ffbN@A)d!Z)x z7q{+Eu;LGxU()bmPioA6TbFXj**7x6#SZ@2y>$Psq-&Y`7VK{6UpJ`Muv7<|PZ-yI($GF6+tU zBd6qf_t?x87Cj+53)LpA;P`F!F3fNV{~>=p=_56gxl@nNKiziaG5@{(>Z?}|8F(mc zTzM(_*RGl`*B|arYx!YT^W{7D&#foj-|ycQ7US&@%2m4i$f}Z0vNH@{HoQo>+<)cA zi``yv$BZ||ubpgH7@AKS-A(^nmS4Pc&F@$CdCLbX`r3|#Hxv)7DdH_m zwsLg7f1)!-Wgp|33%yrTHl@y=rP3vQ^uLcNyV-GXcb>GT)%i+E4{X0niym?Oe@A8! zulxkgef<`GU6MOip8ckqwm~_qV9Wm)rF9Lnlpm;C&2~PbD=u5AEc$iENz=7VmTE_g z^Ms8Q{&h$_PrNDfyW`)1O@c2OWTH2|u|Ijv!^rHz>Y~u%^?go>2~S=enDOV+tc6G3 zZPY$)$A32D<>fh=VK$XqT{3_B!xNK&_oj(_ycCW^kCDE^pDgU_Vn;1^b!n>_q zd^3%EE=-v9pnalL3)|%tM^>8LdLMB9e$;fWNz78dD;CEFT68W}S18UY{Wp(yVgOf{ zgN*D$)nB5v56io6EwJ_0XzhEf$1EQaQu$T6^a8t>WL(C)i{eUU? zq=|DSgE)0xw*CGn@Gf+cY>&UptF1+rUA?o+KlcQ@h}H=-;&rNe;Kg<{B%9g%-D~$O zor?};{m*Z;UAzA6itWao&wn-^d@H(9_`F1|#4ZCH#(QtWVvp%n9n&k3oE`Es=9Q6I zLWym&zVElCPUhSK(|T8=zj!d^SfiAKx3_h_P32U-@-Q?A5icrf*gB*tWYSq`GVlyVZL| zQ#tBmYPN}%+WGCjdEctKyBtpyzW#7Q#@|iKCW^s&zn7Owa^Dg0ezfFZOx>T^fsIj@ zXEkMpwk?z2a4~MPV1>2BHshWHnQyl2DA`~0oh2se=+vifj{8>E%&=^l`FL&vcZ|*H zss*RbS25m~IR5U==A7&2KP~yRplGi!Yxeu9)8^HSluTr8m5pw?Ps?$(aZ(T37aM=L zU;hMiX~pD*N!JXO8sC21Z5+q8wtVLy*P57r*6uRlO!EwXZLqJ|Ru_8y^x|3Huc~;4 z-j4`Y|KZz_;@e&)Yhj))u`)QWW?rM;o%6PuLYAMR{&xaQ)8M20q8qP{xI>ulw^B=(Rj-TEwaIWwd)@AqH%dU@LpiHzdwmCZL~ z6N5B%Me3Zcy#3?KE4>r{#hjGyKdA{lvhVw=_twWhhOhr1v;OqY-C35OzG_{2Cds$T zo%t*8-091?U(B%my+q2G=Sr#Y=NS`c@7-Ic`nc)#+eKEI#l8EVUoUw2>(-*So~K;T zUr#yOrE<%$aN5grJMCKRU9Pq3=SNwM<~MT6k`v(q@gB z4V}-oD6UNn5u2#Qd0ydoD%a`hmCGN@T=q=qR3uRLB?-F0{VA~VnZH_Cg~dj?u> zetP4T;Xg+XhDgx}k)vx$1grZPdPL?`U$gppc!kL0fSH9&@@zjf|2f`H5!lSOJ9J^@ zVS}KV^P4m?<+dx^J{4t)*K50(l6h@?m|tazUicJ-`%7X{;$J_GydEOPUFpuY!zaQl zIWc5b2KVZjm2;+r2j7_c#j{DS?!t9^bMCzMen0bB%CZ^9F0ER9bh)eFvNI>9_*z8ldS>+Uc>n(T=Mpy2 zWp94?+02nH%P?07_?Elugn^3h(H~bDFJ9tfTDL)drRTFH*Plzyda-qbsVS$y^VG1H zkB^@Zmr`NOikn?3xNQ}0{IYGCn5IqnPkvt0U2?xL zV9AlquQCN!h8*_r{n+E~6;%17y<*;j|IZanWU@B=@t^)Pu)9M$YSC8jw(g5DrLhss z#p}PMunQvZ)1Uk4%r`tZn)>6YhPS(;?8bdsfE-iNs@JDoQ@9 zR_C?U}y7$&R@z4C}dumQ9U#-l)DDkH8+ZDz@@sGJjmLE0q778MGha&6uFo$davKTXWIFHQ!8`hcn_R& zabsNMusr;=j`jK?yX_lFmn`>m4%oJ0s%*Y}+7d@2ug*uU!96MaR7;&M%4Y5S-F=yD zuf^|)Qp+XYGVWpaDtykjZ`!6+ks{WoMfd%`YN7Y``={~Sxi*UkUb8-CcMcbfC1 zj^{iHxASi`ZnPBH`ix2EmcEB*>doMN6(3*9JC{5+I?M4UO-3>KRa2%~^Q#MWOWHD* zwQ2uViM+F$cN1$1t8 z`{kg=TDN5%xMfs6UUp?Y&SZP_nubOG>G*=a+0VGPylq;|X38I5x$#b9&ZKoI(l4AC z)%O%%bxAS#s$9BG%E-@vd8L~Evgmbbe>$?X^5$QxdX!fzxK#a{$=fM!PwsO%{i;b< z<(0zJB%j`QF-Bq+r`0V{3zu8)W`?k)NZoqxwjI-NF`m4(Gv&zocgyB|NS~YPU?8dFAlgzXp%euP$9>jhf60sHG#&1PJyB2sdWc>fSHGI>lTlRDBd$8~3c-Q~Fyl}020k6Zw zz702@nK6H6$rC&+H|^8(_wzCo3+A1ZYHyl+QFo`%TQUp?5XSzlys$vM|}@)bU#nIRpy&$n`AG(Bsd zXtiUah=(92U(}J;+xfHR&eZ-JKfT+U=Wkd@-M#hq3O8~;Fi)8dY|1$^86_Rm~# z=Ec)n$6o0?%Xlzdm8o6xZsz-W5l0MymhU}WF3E7_-rbo~o5ELK={CJM`?Tu9=whoa zDpS5LEApLRCu8+f)H40?2cfApKW|icr^S7Xzoqv^;bY3RRcBLO9z1uIUVmKa<+**W z5k)K1=Y2mv_eO!+&%o4up|i~I-kxk*^;=7Hd0g9~po!P>C*@s!Y_E5%(D&WCB@`FZaF4{&I1x$wd3re;;1r-K@B0OMKF{%j!Q>^L9Kh z_3PQ`c`T~zpT%ztf|92n-0V|xOnBo8^9$$qndNQ1 zt;f7j=1S(H0K=+ve#Tpm&FN8myXDx4B^83%JR3xJ$<6545^l0o+08S`-hIkszAxYE z7A#v5V&15pG3T1-v4|qRV>2QqUeD=~jhK{g(%GBj>%wbw=;QjPD7Z`i3*2)g^7;U84$IqCK8Q zx4$c#BQ~e_-mZzewj@kXUr>K0!oJ9e*B1hWH5#CzMxLh$vwd(+noO$`N_CZ z_TS&)iF?w!(ie1YpH=3=DqZ_KSoO-$5?{{J3+t|x7dmp^P4GLr^+H_zZhhf+@>(vmM_SeruUEMS)8lqSNr|5-#&V> zZkC5r00)0^$Kj~pa?iJ4CUN;++sZsw=jqcLb91X(r%u~jJ~@$Ld!4T`t9u*csq1yu zU%jnfQSPR(UA2l~zM8EeyC{RLSx<->zfy6}nwwW%Z(J`~^14KM%DcjhDV;*~-gb(o zs$n|RjeR-$;@L@DFRJ|+*6CosM~TXwnJyZM#t)=rOu%+J0? zCpz;!y}RY;`W4kbUL8=&oqhPD*q4*lyA?T+8)ab&@njgkRLj}Fh-$Yk=Uw-3#L@T`P*0TI^xo_vu&TBEM*L$yQWbf6obk15H zSo&t+irT66`!2a<9rCw%t12Mn|3qEfweLbz-E7^TFT_3Phq+9-_T9qH^YzXXue|Q0 zu!z@kXn#1dDaU)3uVntr%cl0<4;8)QF<-WJ4d2eIT;028bQp51zp`*QM{2n7ZR?Ge zm;8?Obh0e!PGN7`m2~5Ll#rj|d*)`1c?+M!xjcwq_+~WCMK7{7rMLX%QaiN_&A%SK zJU+ZU_Dci5{$@)_$Zfs3dUu@n5$Dyj9c*+IZCrj$ww*F_dsv4nyNSgjNu_z~K2LYo z?nqp+?&6}e#wI6M?L6N6EsXt_d^%S^yXlQpYZ>^(o;!zSd+3xa{ZZg}QfS<-VJ#-< zJI(L;>*hac5=@up1~*J&Fj=dxS0Qlw$&&2{vwkY=Ixe>CQ}D;dHIgr+Oa1R{`xBVp zl3FRbrLW}9BO@Mv>4>z)m;d+ASJU$CE|yNxQTp`vvbD&Pi1%{)AIDxT(c7r}=Ux6X zo*>5L7psKl@LHA5(0ALqt@KcV%&i|A}37xViwIPTAF;DBPjmCw(Q{M zwKCq*O*bBuI6Za0`0Bq`*Bd`CKPY;-_D^C>#>)#Lxj_aSckDgbzVKR2RaBSA!%1Ju zyMJEavzKk@y`MemY=X1g}QIxTOrU#boc zM}rS{RII93w14u1d-ufdCC|h?c{800ggt_O-!4DUAhUg0vi(JY_qzYi>4a2Hx6<}{ zea&*+?GrKQ%Tr$WT+1u3LY(Mk$#m65%?ti*}#G&?Ml-)UzhU5#f z>D$?U25h_Wg2(gL$^D;iZ{a<{TPLFb`0Hb#$#3<)qd93@nyk_FV9WxK3cT!;p+0>`)d^b87(+sGEGkE{pD?L>f2XN{rXgU z(et)ZExoquVPB=Pfch z%|Cm)>F&UD&+9ziTE_ZadOA0IM)OpUJ=!yEj9UI4eo-HH;Jwy9Gbh>b=Gv{sw(p;A z+5FTk&01JiKjx!%qs%Yks?SN)X2A;2s<$aNPxyF*FIC{*amm{oRHJoc4yB5^eVaBR zvZ0K3CAVm4XnGvKvZ=2bGtYtcl$Yn;cve?r*WG)*XBKzY(IW-78Z;so2KW@0Oz%2b zZ@l}oaNmNchP1a&IWGI_SseN^cXF%N(qqfxk1dK2I52t1i?7DgkDOj7m6xSOAJG%H zo0pkqFFonc)_@kJtsXB=FXX6L-J`s1`e{AuC6h&u|3Be!a@L}?)gCb`r*Agu%zsh0 zKu`1X2bPRYt6u*~6KUk^yz}XB44;E!>*JyyEK&-3d9Upo)f7%`c&dIP_V1PWxkfrp z-MKH8#zv@kI2T7p968dp!Q=np-<;il{C=Him5%Lt$D-7I%k)dH%!`bj@-_BB!Y>?n zWqmJL-1dGK-&J~Mv7~O~gnu6o-?Be*NM_lWs>2~4nWfXr+tt?^>9twvY^<)O1tPk+B7Gk1FZ{oh~geQf`5h_FnnSSq}? z_@zE8OW52OTx*pIXWs0bm)EnTuj9gHS;dv}S9AO29DCw=_IT|NS@VWdw=%omOkcI| zuhfHyc|84=`p*0KG`weRe7SI9-dh*B8wWG>_I$o^Fzv+iN2_ZtZ_DkNo&Q(tf@FU} z*@caqk?kB4L$B8@IrgWYchw%|OC}x1;%oQb?`~bGx9LxMlf?86vEs~x<(D4pF?zi7 zgGA%j{_;ij*OETW{9&UPMN_k*mmCvzytXgQ#5wO^$tvwfA5ZVLW6!&&&8V$0CF%X9aHsxvuX*D*&%NLMWa@`6 zA62|=dOq;rxSi-yr8=ko!zZrwEcQ=>o=;s6|0tks`7gnrA>Ww8RJY`icH_IH zUoIX!`Bzr{h>hpRzw&kZ9C^B;ANt?(XimOZAf)(5c!_PPxvl@_K$|<&Rvr2|A4;~I z3azp_rKObQYNl~~9^c$+ul$$o%f4mfw|IWJp}7x2-UTfScB#v?4`MW1D9qGn;w-%9-KSsn-Rpuj-Mn)AsDSi_ zv%6~d1?D}nw21$lasNte(QCcEPqQL-e`J%i`S9bbrD(W~7L#n{-GxS><=>kpy}%Z+V$1+-$ShHff&Eo z%f~9Km~0|c>_T>|b^rb6-hyJzDQR=pU;kB5o;EM$Z1JxHzrRge(s_*C`;yahzppOG zSIl|muBEqpVf4);zg=@wn$ErUi7@b-V<0dvSZ> zp~*J4r%ySw*v{hig-f@*w#>WXoham$*>C;t7Iz3jAO`)7s= z8@E{h+qT_jO}py8!@G|DedFMGaba(8v-IRCXBV_hlqz%BEplqJ#YE{C-kP&EE~*Rt zZCr#BGkIsPS4i=E%T)NBi(&bqdY;0LlzEGSB1A9r`OleqwSY;^(wh6{ic^Po_eL57 zYqHteocr-tXV#CoHuLy5uhpN?!fMkezwX4hnAa7KAu*8-*0Bw~U&}=nL>xR-%*SSR zWMVPjiHd;VdM_>a&8+14lD%`owxg9No0m-Fn9=vEd5NTyN?CYZM5p5%=dGr04Id8| z{{Hl2OQ7+;8r6gEI?qUU&k15vm);frcE9N{lg<+3O(l-YcbHE5`~I)T*|i%r-c~zo zS#J7H(&e^!`furyZPAa?OYX8}-nzE&_uhFXfmI6@ILE8`N>BbKE@7pv6}R)z?9*Z4 z3&YYwc12yQzIjYuymYJTPrjnP4@#|$U$oQP?en+5W!|iF0uMvJJ%8i9^5prLHtq9^ z{6)_9xO6gXQorZ+MqHJ}Wy%Nrm4!r{yZSTr?!R##EOt8Ve7I>&mhn01|0SBXPdpF5_0n4H?B%oi z$lFtqO2sic#|{Y{=?J^^tFdC^sS{6J=6Rfxb^Dfn{Q}RD!wT-ord~Vk7G^Odot|kQ zW?%O`(;#8j8p(gb0g{^MkKWRWo#O1hS#a*P?x}x&2)~{FZCBvQb@{SEQ)04T{`s}P zZc0b?o~rd{Qo4F9mX&rSYHs#Y4O!UxkNuCq1c7Lq*PcmN7q&im%WHV*EU%{7s}s-K zSdw(gzdPUC6?Ri^w|4TzzkZKS@fo+eJ>OJ1Q~K%2IT3dze7&RbYw3alp&Poj8tTdm zB~Gg)g)VvjRryCy-KmQaJdD0C?Ru5}ggg^8D~#6r8Dg(A|JD5y{-XJB+`c`xwQQMa zk?i~Ct^GdlBR4!;wKrT#IX9U_b@KU|G@fk&yDqJ5V6LjU-?+%|)vffIdQ&Auzw=Mo z{Qu$JAMJl0_dNOY+h%2B!^E4x@9Vd3lCyj*W8U|C`urfBFLS4OX&M^`ofA4^_vnw* zn*H)SSG>Dvx^jw5L>p6%_50sWU7wfoyskGtwfyOu;^`0W$7~CEc6MI+0*Tu5w(?7@ zcC08|Zt|qs+Bp8kmJ2Z(j~7p$wafJQ&!nIoTfY4_wPv|BW7j#SsNa0&#OnWQ=ro<* zxsre5$-WfTZxvr|E#0x?h?bJzdvEg(S@ughrGH#-GP>yYxY%qp({I%@LEWHzzZYYMvB{I~gtf-6heqWXidiEH2YoRza433orcQPJVFu&YQ%gr8d?^ z$1RSV3r$ay^GRx05@Nq0{`xXbk7plQw!H9LE1>nY>)_T5ZVPYeM@I5XB&Tnk?qm!j@>IeJ~v*O%)+&q_xYYEdDC0*UzJ6j`rd@C zb@JS*fBxcinFDq^dl&TP&Z++S@9gfAe|G)pJ;%Agc>04T_OKmX=?4oW|IFN5^lJIE z^)@HBTXbh;JUQ^LEAx(%XlJkR67N|p_72+vTw+!W<0`)i z9N}Dr>g)bwZq#>AeswCxe8Y-{o7?BP&$xH`uF$Wb8%aXnZXSrc_E1T0uB3ta^YpZb zSH3=r%4rqJ?wt06DQj=}?XD*Oz}L>+Rg6ExZhbqn@@Z4nPPPrwD+A^-&ocka!@KLP z+~qgTi&@29f6l$U%=tC5nw!>j_0r$ERlm=q_P+{!|AwV`&9U_Nyq9#BoZlyH`C#*R zk8sc9wcj4!vYKD}_mb88y)ie9f4#Bhy~Z5kRwou4m-1frhhE6)fjY%|sxRJrESGQbHjQFmV)yak#Yz)h%MTAPn(n*$wEe#SoCCYB z6x?N4S*I5qC#U&{CGKlP+hLA*r#erZIOTNc!4L4#*nNWjQ}fR#n-(@Tta@CO|3B}` zBJq0_FWu5tg`eDht&vrkQT<};&(=SUU+&ePXuZ%luQE=&{`RM>#T#8?#qN0P9S_?z zQA*stuEVlZuX#5!`-$kl^7wO%mx^3dpP!opqln!Ga>SZrkezVbu3?|lBCjpu)6^2AMfUbfbS ze^GDpkCGb4JcBdu11?YNS^CJ+{u3YTp-<+n>rS@2>f~K_Y1=sckDd9#m<*4|JwlSQ zT7ACvr{7zuzxVZvbuU-%b~Bl%zgeIEeEFTwcURe7r>g6f#yB+0nm?QA(PI|#oZE3# zw`M56j*JvYo_}?X`@CG)3BTu+u;MGNi^ z@dCH{+sq%W4A^7Xe?ngtb7s%Gmdo}E&ri2LIlXV{`wRExoN-ltxSnhBJMsBT z6Tf|~kQKAadiF=3Bi-#+-?A-6OA9sr>*<{E%@0rKMBh(P-7Clx9?9)O2Bcs|9OiRGdynFRyMisld;SiyKe>EIzHAp#~h^M7D}yI z$#Z}DtBmD>OfOhxs;XRyl)tj@|9&o3$H^0?DXFjeVc{S1|I6eLTb}!W60r6D)wtrE z(z#=;yh~(NFHgTd#pTA+k80hw%+h^sFa4x+ev0@Mcdavb9M-fycX6M5?rUvm=zoPP z_xle$iQeY#!}7&F)8enx9ErD60{=Bi6-f9Twm;*0X~9lWJ`t14;u~b&q+70bn|h%1 zGI!BZsi~`9X-x>*RrUSpzQPRsD~^9pT>3HBd-Bv>)eBhKmx?+Wr>kDvZyJ;KwBs)G zi{0`o9~`I+oAfPX>YhW5`i&>o1g$Rk=@t`LQ4*tfxYOjeK~Q0~k4wb5n36ivhAB%+ zfBY_AclJ_6p7Ejnj~2JK8||OzyT0(Kig;qxRegyWKeeWCPfPpee~9;>qWCq@dB-cK z3+o^2|0-~-z3+JWPVrCK>(h^k$xS+xcAtBarSbjc;?}cSr7L{J=VY2bIOVbJ;L;O4 z@*72sd#5#r*_-E_+4_{JO7)?j#(Cqq8=Kp z@Rx~vxX5pz@|2V%ev+5k_+vt5F}!8TJL>NF+c=>6NY~bLkz2lctH}mvZf~A^sW9uW z&O85vfQXY`Ck?VJS4IEdsq!+a?Xc|;uT+UA3fgmp_VOxaZMyK&Bu?Si-tBWgcWhf7 zbcZ$Y-nXOEnwB_JmP~Xxc!q{~G*xMx`<6XxQkDnDbIuosmUO4? z>n@wPX-V^hyq_-eXLPEr>MgQm|FgsF%=`sHlpGzXW9%_E%pjI6di3>I2z^@;tl5lAMFjEOtCBekQ+(vwfn}G&eCT zAGX#t(e?j0t-D)0RVSymKYGdRt+vn4d|k|^y%B3qrG1jMyY6gkQ{pu5wC<_%wnAC= zUV2z2hIbre6jUu!Jz!Xp5zbT;tiC&_BPz~p?e5c_pHo48T{WH7J&8{{|KZZ91LwC!Mc?F^Wwq?-zgyB>jmsuosQhs5ty_ZkoRgi*Wx7Tj zmm8Vgv=*N=zSCs*@sJ0jxObS{@-Nr)BL$PWzMq&rC-CS?iM2PcM*d&P_IA^uz-1wG z*~<@2yKqIN?diG+XD=RcW@(6Nn(%5yP$s8AaMyM3;B?dCi@u+?`=$6lm6~b0Q#)J7 zndOua_t7}ztkb*CGmA1Zsbo9kI+m;MHniIiywGjFR+=E!fkQkpt#i^%dqO&N-D`xl zZYa8|zA8H9c}j16#HR0T0kQ1U-qaqxH7(*}ZGq`6L#w_=4N5Ps{kp*DI`?Hz&D&zD zZGJbVPLUB0=imM4*1C$-RpA+JZkyw@w>@pxmKtu9wmfp5_s$RdXTH>%oD*`jZR4HA zn`EMMcol@H6+KqKW!F*VfaQc|$x{6CP*I6Y89t-qAXFj_2j=7GLCilNZ1F z-CeUJjFC4vy3YImi_a|yPcMa4r54Tpa`Mu*t()&;|MwStbGJ0vTJttgz z6F$$qQ!(?0_*|{K0w<()?aSHW!g}Cm;u0k$v5B>BEKa@sU32hsw-m#s-L8?$8$5Sv z95;REF6L^L{O>|xV7yAj)#a|z|2!=ZAN}ZmLu~$~s|7LH$?=l+S|9J4_^Tjh_0GxX zPj`M4(ChkWD8sJ$vA5-M+S>=$4i_d{?|9C6yw`hobAimvWWkqzk}cNBujD^|k!J&6 zo=ERx?Q<7*C~Kd)XtDFrZ{A~ylXja+qzi8{n#ytPtMb=_7PA;L7|pwmc8Zp7+`+8< zE~&8SX!#?VS5AeGvUdmEX^`OPs>wd2gf z>9JN0$sdkP__I&&aq%pc^;%+UqLp4Lb6+c&qIXa6zVmE}cSj8CbX2C=e%g3UIQ01M z)M~yo?~YHiCoW!ocw&EHM_&k)gM`*=vn>a2ecQL~{L&o1kFnyn)}OQ86ueyj zyUlIs*K^)E3ckM6aR0H}uiFZ9N>592C{Ine80orlsgTEav-2C8y~;}7@6(u@-WwXf zgZIACw72~4^?vfGm;bGjxwdWI?(6EWrQR)SJ9~DKdH={b(u3!bWEoS&!U;NN|CT6vLByKU?Tr+V+A?8)5+ zCR%RT`sJ|4mF@Z2*{tug_I#3iDl6$@{ba6FwI~!j(zO*)d^WNSc zst1jZGtc3g7TFPV=~Jw#LQa2dFN5^fjjQK!a;)CC`YTIIVdi#UhZ}q`rwvXYf1sN` zqrpIT$&OhK44rL1KAlceP~l(U_3Ve_bgP9kBPHCln*N@sNiUbwiHV)qIDseWXOZtT zi7N|L7Y2V%@%+5))X(>k&de*H`d#?O*y4NVx97u>CZQ?Hfsed$+%Ercn05Zeni?zS z$saTOp5$jr3%f^L@SDM0WVT`2-QFt)o-V!~^k@aIjkfKsUmw0PeUE+gaC6z^hwGm9 z3;4S1F63OG|EJ}#md-A3o>j-RIe<-@NDs&&B+Uv$x7mJW*>lVVlTehj*v_ zpB{<&r+R47VS$`D4BPll7TXcWd%Ibn+AVSR*v+h5r0AGjFQi&Up~jrhofDR^;c%rWN}Z{dmFM zb^hC%-=obna{3ud5LMn<4$t z7w!C7w;;9CXNwNSmf8egng~8J5v#Kph z2J_XnS0=d}ev!9v9*bJ0|L2eniFx1e=H@*->B6J`W&2F`tc1zTe=iv5qd92wnDxouEced-w|e#s^9r|Bg>oyBziK|Ks{C6tRd(`$ z2WLvpD)tx|R2=ZF`NCcMv$b=zTl}H>wI7^MJzba+$&#?neO2_Ovqpxq^i+LHS3bDw z;rqAxnuVXr@tcVo9Xk7L`-24aIH&Jbc$1;NsdyW6Tm2v2c~_T&9dvdRH+{JOu>Be5 zTb3sqo`t?RP$m6yYtE!^xlXrhl=RAKx0=5C+t#?tOSn0>T_`^yO{=s%OeI|2p2XmK!p|MD6iLz;z!A!5pHn;8H zj+WGvOy=;alZrBZp&Z{Pl#?>^wEpi;%gYCSxc#M)FYqxYTG!*FO=S!F$P5hVpr)O&ZYd5W=#y3xmV!l{c?Ebf$XR7Ye@9Ro}&OO{~mh#v2 z=z~)W7X49ul>XO$x{Pzm#7Wy;iL&pSVfk_6U-h&J)AW+>8{{AQG^goOfRyx^y+Q>) zsxPeQ{B2&y|Gu;HQ+%Ig!1vVnb1Cc2?EBMR`1yaKp@zqvslQ{dHpuE-FX;Gkda3Sa zm!oex9`4ld`SA1c{DoI9Jr|z*FSF+5B=a-oo?6F>e`YNI6zH<8EN$(xP|3wr@h6vv zuP>^L-c_4AGjqp{-cqgG(QNPHjSieHO+Pr7C)swV;+G9^>IX8zs&9t8Lo9h=jbPoUP;M=iJ5F6zW0t*O_S-} zyYPr&$dtXT^>y3N%&o}o!QHHTXI#T`}sS0;S;kc2E#pcHzym~AJX_akk&lo13*T2pnE!SQDLoqo@;=0}~<(|;R z?M>fycjn(|wcWI6pIpfkL%vG~e;f-eep2c3nXkBI_p>_-EsegZ-AwA!IG4FxaJAlX zi>PCQ!H&=OU2gcmvcgSnMQ6cW)-)X<}UKvT0d96Q_^*{0jSSeV+mo z<@oN!GB;G+R)v|BE7u5073? zI{PB`!&$#w52SZ}zHEPX!>cB(vNHj@(;_O*=~roNQh$G9lhHXtG077KM|&o(x%u>J z?-dEd16hpmUwhvd&N7P#lf88E&&==BGyiJtaEpGwY3bub&lC=w4t4oe5tjSU$@Phj zZ|zoAmu`nxVmbgTC{Q zUhdudR;0YFy1V5;#qqCPm$z}=Uw8f7Yt!brtX&yv)61$Qo4i(jIpddFmHqfx(BtVJ zrnjBgx75sv!R%mBi+`rfO3jeIUS{b|m%w%FvoA85N`JK3v3+KNdbjDr3!Xc+?^?~c zU-NgQYe_}Zbc5D)t6w~*6G+oueN#8mf9~S2duvx7zL@zfCB#DJe1@c~$4pcHW!aN> zLcUKpp&;*;6>v9j#u5YP#hP+S><{D*&d!`GnA@|%&?NG= ziKBgxvf|5KALp#=G`xFf?Ixe1_pF;AsBhZvBXh}-w@jXUeK z;HvO;^Arzrz2>W%zun-y(!u|N+d_Ve%%jT_=YM)0Sl972r}gn1(aA?$m^e08rxsdn zv6z27#OK=&*4vM!zI3jcyvxWtJhHthVE*=XXI%VdI4%rdbo1B$>8`0?YPmXp%|F6n zdnI&xbo=5-{9lDPVGIz0=!;v!A^&2s(KA zq?kuv|3v9uXLkHj5Bzd_YH~FLlfUs)@80`Ajuo%wd?dC_+t+Yk7XA6Zwa!KUzo3Y!0Pbb{M}Qo zdVi=fx4pHA`No@Q5wB}+i$2`<+s|6qc5?fjJ}tL5hXXUJ=PLxiG%9M3+t82@Fz;^v zl?c0(d7tNOd${eM`iF}P(-*H5SR?h}>kh^ha!*YhCP=J2_t&F$W6H&(ezlAw{qXAo4qTPL z^E^M+d+jJ(x4G@Yksr^lUGU$}{$&5AS!Mz^{!g27N4}+T%KymSAAZa|;2giDu%n>B zHtxbPMxD?T8DjfVm3K&Mo{_npRJ?TNVgJ%&6N)?EzWlf{(Z$AekD!0+qu$CT$1W+p z>WJVq+q8J;{#5pkyx%icE7j%1CZ6NqUfi&LI>(p!n=Vdze_qn9yZ6-ehL7sqLYbTA z=rXAFgj{~vR}ghx;f4Dl-WRhST#^MBCmQBQEn969Fg@HWr(aEBwf3AzX5XImKa1kw z3<$IQcW&*+bvJtK4^~`Sch%KeLUC@L#-xM4#bTB{4BouX&{8Z%^pDzIht>ooPNy0M zV}*4)cBcEO8>Cylax-?2WG}aP_*H(}vlaK*%g#l%uI#UmIk&!8VbR~d7oN*Pj*Hf$ z@bBi7%6%|X*Wg{aebDr`5|w_pH{7wj&mH`Mb>`P^Kjv4bs{1XQE}CZa<74$g(~}k_ zme1*X<*acjaR21-G~tUJ*A&*JXgOa+E-x>jm7(FzGAH^qH7)X9Y2 z^AujQ@|gD&4vyKkv-cz}v-t9Bd0C&>iC^lOsd2o@t;be}I`H^s?D-S&#w707QfOwY ztvDg_{uW0U{%f4@G=&79d&zC8ywXI6JU3x}o zCWpw^x+Uu(s~%Zi^gDUq=BHQ7H2co(X+Jakq#wQg_+_nMtN7|A)^C1n)e>lK z@d(M0~v1#v`uE~cC3-&qtz1Xx?r>~4f=I80tT05O)t>EPU z%I3IJ+QQ0Qt?B=+8%<7y*E^?V&rh7Uxb@M^evhNE>OsLfRZmznE&tUb)4ZUyB11w_ zUg}Q-Etg7oxi|3hvh$K+ zk1p#UeSFDbn&av>yOy8qot=E5{QUHfdd*+*w#{t2`2Mp-=I$B%r@KmQZuSdI-u=!! zV(V-Br!$pvPtJd~aA#uphVYHL_w1fe53AmO%VM|VQyq_6Vln009yf?xkybx`$}?ly zxlS8T>91`rl@p{Mvt>!Xe%3$t!2kMlhgX&!{Z@K-iI>>5c9jPEzW39F&-LZ-nSRR5 zJvHCDh$C-mm3qqc;7?Lhy||{kHrETBUsE|}|C6g*gcnWI7H;44^jwX=Y=zFCyuJl* z_5X`rR##g2U!LVE^{)`JMz3yOV2Y%IuwT(BD>ep&Yw=dw(j@zw)zcG25Fte3%i%7 z#W5wct>p~bo|8Chwp`ril8IJA&kTEG7jBz;rq1v&@2id5Qg#+zydV2@VeLNWKbar5 z)X9AKQ+L8aLh}XFt^TcXk+t?mXJ<^UUza@fVfK50X_piim<#Tfp5yo~%RcCFoGHbTCz4dVJBt)%Q9Mom#i+v+;p73P~^a z@5}i+$s?@c%I%cD(|%oB;ONJ5_S~bbeQWy~j;)d0aCzc|;=>-jN4pO(&s&&SxWW8L zZn~hxl6j?qD->=Yo)E*oZTJ0ir!07LLo%9ud|ol#+1TqM)KBFRR5*E ze#=#ZMPJG&T`H}LIn#grLH>++mW3I4+m(X*Y`d?qZ43WB@lf8<#~CSYp>->a^FBH+ zJ>q=0p(3L~UM}e9?@u1S2RzN!9_8U!R&MxV|HA_uGdFGXn4#1wyii#7?-d8xGv}B4 z{EO9{u%T*xO6jR|zJn1FdlpM-uZ@_wDKundiobiA`N7vpL8_`@Ls$ zn6kg>+>=R>MHAbYbAyE()WW8&i8O9@VK^(jWJ0!8RmzGY4F-<*!ydj2y+@os%xL_# zFhkG&%-nMNa~4(EJbb!ZtfrvwecKm)je9>%wVjjs=jzKjE6wgEu>SA=x{B#`S(DEtr9In}xpu8jKfG3>?hu3M zofXpEY~KwsGmZu}+lZc+vNfsshrfN$a?#l~%yY}8KUIizxpZ0i|3ASrVNGE_-2)X< z`%1fKNh;Jfl$X!l{hd+ly%(D-LwEjko~Y^nYi_3mEOB>n2sWC`zUkCjWA8jQ`(+GA zk8L@B+2Cnfe2RDH3-#D5^K@(Oa@uX`e9&Ron6op+XwHtf4e~1mYnD85TxnjGll#Su z^?r`yq(}dfrXPQHljB_1Jm>0^wDX&|vk=PNG0-z=6rOJ+}U$>iO@V zV|b<%a(xYO`uI^bvE}tC>m=#BukMt*w-UOr&YFqim4nMQqfJ7}j#=NPl_{H+yO>M; z^K~{!z7oUz=aVa&XT8QG&Qm4}S56msc~SFQrc>Vf=_LnJ?>$zPtt;6ccggRhp#Sp7 zaEtdZyY$ZWO6dw7yb&ZV(ET=M1@DDjM^#Vnz1!(>$RKD()>LobiHS$}dFMWPxi!w_ z3jc|A&^ec0`_@aZ^fXlJYW(i?Q}N}O*~`oJFTXaUhVRybGa~b%68`^8TyiWpyW#CG z2XBR@8s>i!yi*(MLY;JG=myVG%r*QPH@&fA@yRKjN4L3M_^8Y$e5?MO+=ZZWb!3dI=*H{5t1_bw-&d*7!8LYFQV zznrxBLg257Qn#gV_RkQ$xasYmZb9x7I#NXr+myvl#MgdKxO=VH^!1Ac0+V;hfAv|o zaD(zI?v4JHOcjl?Zdq51@3X8oWR}XF`{>s!_i~vG-PEmTm&jh6%lE3;_(WNp%+J-; z?Y}J6W*ECyybzo6^Zxpa+~on871@IGCQoVeGjY1MikSBUhiD0Erf zIj?t5;Msp?EtmFp>}C0U<4)KsL0`*dzPqm5vDfgFoU2=+_aHf{Tk=8jy7IKoT>roC z|NCEY_IKsfyp-aSqSVA(uGGAg{G=={GX(<$5N%>3 z7$^kkyJhB-q!uaYyX7R7q`IUg=clCF*>ORQteEp=Z*;%z$x=1712d+#$>kpCU&_w^ zDj}fyQQbv{Hr;43o5dSbJ3k*0bW17UtT}V}&7{dnFXP{TU3=nm*Pb_Ldd|d#F8|%2 zu*=G-{K=_~(*6HVPu}%Xz4d?T|39A|i~s-k{?TRg`}K{c=l}mdYaajSwD_#~Rj>Yi ze0qHO{y&_yGv{sD9Vve1vVYx2*PD*^KP!q4E?vIl&DrHYzD(|q|MTUix_sOhU+KB? z>wi9MEepM-_4&`&cJb^#y6pe|)F(%}N>90X{{LE-cf)`EuFf`YJ>7w_DW|_9-d+FxSh@zWmv~bN~K@ z*DbRbzh2PI65Vlr|Iz!`w9`*ZuUc>VO)P1f|5ff^{TB>dp1-%-BVpC`glXU8vMxpI z|9@tGN_t(o#;))Fv>wkW@drIm@Bf=spS|hizn{0?y;-!f{OTUI&$fY z(*L(4UM|0TbEm`WPs{I4YumSj-SN3WgTNl|^YLA^`<~bCxteGpQhWMdwi}~#o*}c~ z4~u`VjhU18c)g6A{@%lIXS(*kYqD=juGg4M%xil0r2LPZaMQM@_i`?rTmH%SmW4dG z#=&a;1^=(}KVHpnBmVD`?*Hut6|$whRZLZv&THQ}YwlkDU1al4&8OV&{wd457VUC3 zef%W?L5{!2A*mvyT|9JgpztWwD^o8DklMEu*{a1wFd;g-mq@%{kPxaSJp(icpPP*RS|7kbB-u*=jPyd(P zfAqzI>NPL^O_TpF%_y2YajCUQl|`+u{U`tZ%cFn1)~_it-{ol){{Drzzx@6ah8IrX z-SBC({=a$iK7E<(lbs+tZJt#4hbhmOfAC(!`w@0q?bUo8?TRc>>qA0i8NU`PeOkZa zalU&!kS`qzj*5cIQn zH0P=M|B3MeH31)g+KYelESY~?TS3fsOPlfXwI+IsuPeH%B6gPZnlc4#O#YnU5e*?jT62iOWLQJJ-McK zy&W7GmnS)4*wVROBZ9^omg&tpS#d4 z%rQoF(>vz1T|1o*aw*2eC}^v-E}!n8)~YD*W0{?%;D&`qYuHtmGxLcu`G45{*zU;J z#`-1ag;R}wbI#M>7M+=B|5B{N|G~8Cjuun9y|Vl_OZNn?IO*2ecx6Q%KWFCmZx>(9 zk>kt!^=?O3RSUP}FNGwj5_SRG1n0PuQ^nj|7D#v~YScdr(tIbh`aJU%x1So}Q9A_x zZg^whq}}*d#>*@Fvh|b(-Mhw`ncVFsjrJFsKl=3YrRt&XsdwY*KHporteNHF$Jqk; zOKw+q-^#xDOqu6K;?mZ;EMe0*5{pmGU*`GholIWgTFa)yiPjUGo+ewJn*GZBm$c@> z$8z=O_Oq<;)?dQRnWFNIKR?I!RM?ix0vplibAQa3B_qo?DOZcl%&>p&ozsVfR78|S zPPA5A?!0tt?~AE79xi)RX!=U-`y$;$9{vkbu0HJlR;OiTvhSFll~K>V`Br*%_tk^T z%w(<>xGg!i`_{^+_}*KWXB|sfRQ@2rPjJ~E4^y>U&4I>;Z=am+v0nY^RC%vcg&7Yb z>wlcI=Rb4quE@+bm$NN$t~-^U8uM!B-Z}Si-V&A_UpRN^%hd~?>zX}7_KEII5f6T0 z|9@Y8&VRqjrkCTGhJhZ-MG=AJF$POkbgp@MMPSj5)2yDQinXUB*~N8>9d*NR?O0GI zX?-WB@A|8PodQn$x*w0Kgx@OJ0ZOuezp^J)oSV7lMa&X!6R`R?RR$sGogJ8^zDU3p^FHV}ZK&Cj+NPLrA zSkw-KmF#=e=XgH69AXv!Qf=GLg6~gW7eC~Rd{>kx{JkhKJHM~QGF$k}to~Mg;j7=Y zbz^Q!e8`cqdHajMTVo-_3zNxRWj`TcQn7fz4GQ>)4Ki7mlp(OPcmQfTmN&-;Fjruk(cPdr#@N-z~a-+lYxJ**Se*Q0l*J z>UrhDtg{Uf$7L+6Ee?rno~GGq!E|@kya$)-e|$(jv-&-yiubS6!#%trH1-~-752%&x$jlA@dQ`}Ds$%%c zKRU0vk14HCUTAu*bkAtgm^`>y=2aC}$u{1=6;JeG^17foHE94n!I zA;mevTF1mgk>z5AxBIUL>6%|6xoQ^$t=OD0@y5X$KGQZ#X9*I!b*EEsqn&KWj>GqO zHqXiLP=0+Nv*UvJ$!*3}5t)X3FN-H;>oD$YbIuaA_+;X=dh2v;-9Ivw2`k&aeUzCr zWAEO~pQ^_iXPm3y{8+JAjbnp;cwSnK`l5{)Z_*$C{wsaIsPd)WW8dkItL@u<%z3>3 z@|rH;wjGzh@CaJ$$zPaKwRqE_-`BA^P|D-JNIr{oDmluUVI}d*M2l z4G#^czjpl9we6eiEA7uJ(xJy1nDGS;<1^bXP52R`ET|9w-;tj&=a?NymySV3 zo?!YD{O#h2pwGT;V%|!tWcC>DwphOOe~M9j(^(DUTAoJ&S?_)_bXvZaU$AV=evKWU zm@Pz)T1;KM@V>rhfPvxjw?)&gN)?{eS?w--UG|ldhS|!~cXS?~m3tL+vgfPQ@<^)- zzkZ4FZ}ArE;&9)cdNMbXWB`+uk?!1A?@l<$Stn*)DF{`>Skd!gNKl`ke453Af1_v>)2OBXry z>M-ZJ_D7CY_sy;=@43|adZXGtm$`yhXP2q6e_|+IX7J+tY>6#gKDoPm8Y9EEu_vU3 zq%-CIu$Y;~qgk$a;8ihbZ?DzN{aI$OcUMnO>!FC=p1aj; zFIi@E&i7NUw3(dMwWd6^Ec~`_txZ6(d4*_HagIjh>7;~bXI~2#MWvm$kI9!~OuDBs z^;w^I+54~euDAT!@-jC(-mqzLs`elD=dWf*cFpq%2oiSeGy5gnwrC^AA1~*PYvve= zytM0E^^erxBV*#K3+qjGY@VuU z-LS#vXmpvgbgOv#l0xrWweyX4wFs}6?U8)*w&I)x-HIuTzpJ^%@LMoSdcC;4-sAy` z=Bk4}`=0W2-ZbUhye^&3qwrjirNENeVM=PV(-Y^;EG|2x>LYVI?QJUmJHF~2?|IoK zG^}OKpY!y><^$3TvO3Z~9NRgYf1P0dyUY#3X`2=t^b?&tneAO!OhII0Y+BBJpB441 z9G|t9YZ!e0()s&LCeuAd6=mI?vr7a|1{D-7WjqvA*x|dl9Jlp)brre}(M(jP_`= z(;3@y=jvC@;Z$sLzJK7i-gCM49Hk{ow^pZ$#nxSVYI95TxX-WM5-UpkkFw|V2;R~> z9mA#T7x_#j#Lb5@mbK4SY_GRD|MWRZZy19r74aE+HHb5 zO~x$iJagKOS@ay%Fig#i+q7r@IZ8#$)_Iu7;|HEHSKb@$ba`<9;+vT{;&FOh{GUsd*-@L; zp}1%k)0bwpmd9S+(<+wn%9J^XpSHbv&f0ausm9V1j1h~cPS@70^x(RCQ!Bwdc=K_y z#6_RKbbl+jEp+;N`VSww)@F?$1_ghDEra%e&Xgny{{fG5A97=cypfnf!N%`M}_ZhFAV=s82N*7aT~LF zg%ZcvEw0rQxNO$k5%tU4xYlx}%`}~T4d3qX6ZWf@I2dgu_`xT;y)OPfkNT&x?Tpv< zu~u_jQw-&+%Sq3#jG5?rzq$X;pVXXRar3m?Wc~}?JNIy9qN|PRo{Q?L@$L1w8Q=4a zw*Oy!?&;s{)#`WWzPbG4&+kJj0osAKy4(MyvUj}Z6uu^%oVoq}`Q!Fag^T*P?meoP z-9Oz(WzxfqGMt4;-~TMN(X4FJX8-5kv^PZB$uYpH>y>K%FLk3Qdw2t$E6jMI|GI7J zwq^RWzK6&-{XS?~JF`q|>%xE2)-2j2DnIqz`d=4h8uN}V=a%oim%BsF^S46p$u*89 zUyWC=sLR{``EzAu!es6TD?Yqp_4%q>$#|c~;C^}RgcAiSwe$E)bxpV=&pdc~q$=m7 zP3jAWzZ))HOOIDA@H?z~a_OrOt10h3#GTmk_EC|vqKndY!*qo!U9ovW2ktgADCh`i zmmXQ-d|gv^?VR?h+ro~{`>x`}J3q;MZ;^>1%a^Uo&l`M+mhpAj|IT8~ov(duM;9x; zlvXTxdU1>J-){G_sU^EtY6oTuXSGLVynIQYw9#1gDZWB{`H@A z_w}Ej%wAS|t0hI(Q8J7Bx!uHFhT++6OSI${1^(E|?`1c8!bHIcP959h9dCcvEnNFl z;*ZJ}#+8SA(_&$lUyS4oRqe4YE_tkmtdzm~B&9a-)$N6yk#-g|YY#kwt9 ze7V2;Q|IyZP^_PK`Qq+_^2W;_|Bbv{EM}s-%6|f@ZfM5)=Z;w=%j`SYryg3q{ek1< zEc1y=75hKbG4-Emzf*Gl0^`fY?<6Ot7?+>tsJm2rI(v`tpKMe`!(ov)K=APagZHa(vUdP4-#eK3FBsQF)ZtS2*dUs`W98jmNInp4sAiCS>Q* zXldtT?^{;O2IR4?`xbWUt&{7Q^rznzG}?ye$*(pNVpr~+SZvZ&+xO&&&6+J4J@2O3 zy!YI*aij0j3la;jxpFSt$XG1y=aBJ6SK+ObQ^msv8B%u-?9r9=vKnpDep_ONLRO&C)Us z-jeGP&N~eA&-|EFseFK=v-rJVgJ9muHwH}?4Zd#7-%zo5bM3Fc;;F@7zswi--~HnB zn~9H){B)jnC1+CVU8mc7xcZ-Hur7KVqvvx&QTy?kP4Wx0Wbc<`y=a(bW1X7*AkTZf zhIL>}d1~;(-M-fkylFGqbx>uldD=V?CaZPgZi)-uTPyt4SiFUO*~@cZ8>cK=*KnTk z`gz9dy|;>}7NR zzs&8eo6h;4WHh<@!Jb{po?U9Yj#5hG+pQfQuFKjlrb=#Jv+HFQi_88?7P0;2J1W=u zOS{ZED8R6(vxLpgIYc6e_rWq-mkF(0T$?5=vS(#WQ}a2nqvGGDV=@LIK9}u}&HB1} zcFLNsQ5F8m3-qooyPs|27~=I|Pfx?N4GXWV{dV+fMN{9|)BD_#Dnr)PT=S{WoMCh_ z=rB*;VJBzl%?t8Y<#1j<9}rzT(Y@g0`(5X3md~yG9HH@3F6xh&=j5s9_ReS7yS4P) z+<>?)E7O2`O|rLLD()?r_hC-=GUYvX#=Gj1{3;^Elq_8yy>I%^qqo=imS%t10i6S` zr!Mb(W3j+j_HFjI7nj~vStx9uw?tv1y-{n#Cbja*hn<>Fx^cXy^sZgJ{^v!XnR|_r z-8Sv{o1AuW#iL6lZ*JP?O})FU`h)G6nX>6~V*0!nH9WeyeC~d25o>#ncMOlt-VM4f zS$8R>Ml}D`)L-)hU$`)o`afSMK4sDVB8jkDZ9AWAI(%ZL|Biqj;C zW!VT_x)3J1zm0GGXY*Co`Flc2A8>K0zwcS{()YG;d71%h-OqFHR`S)&JXV&;r+!J0 ze~a7Jd8-{WcptjI}Ty4gS-NZlp7;58wCEce_}aw zy#LfSvx4o4@_|#5y`*ir8;bT{3Y)XC(!bnz_2rWKimH3fYG25Z(Hw179^y9F}0a>w{A`Nhp3wWegCU21l(I| z|JFn7+^+w>Jj_m5e~xE=Yq6=7?L*H^D+R%GeA>EvInL4___nV(o5=pnjjg*NAz#gY zPHDnT&0gBJ_jXQa^|?2t%Mag~x!0|2aqiA;p8J<( z&J~VY-xHFd(7o`vNwDJE0%gM;9<96Q-0U~-v`#O3^li7?+PA(hEhb!ewl+FrLm`jN zzXui){%K)3GUe?O`rDoT!ZY%2C|*{Xm}BlUiDT{Ywa+e?70y>XQ{wBw!3Ux)3mIZsa$K*{hY7GAO)`G9dJLyK9o#P$x4gEa@ z(>$L_-0Ly1JrkU8<3*(0%S-FG^c0tw7p&&mXZ%@)v-NvV`Si~+7nkHrb?>U|`_g^o zXRO~j@x4hJe??wR<>KM|y4ruuwo`ZZOy)@5I!&9G!?|jqTg*$X7ENXcbM|A>$vZD! zz1#Tlvt!S`1?Or69ybRr&wcRs%d_g8N)Mk`xjYV0^Zfm`U6r-v-5hSqX~`zWuQr{E zx87S`=TcU5y!=JB#gg4$QuD4kYTk2>KkdGH?*{*A=eF!Sc+~i9mz#3R??)N|OqVAx z7W}E08tWf_>&O9XjT?pQbFS}Cc=dKus+pDK#l>}>w$~qJPZOE=^Yi_wvOd=qYG^O* zK2x7qxZ2~#&FAw!KYB{9VY6BjLPSGtj}0nwkGeYpUQ$w z=3;j<9xxUMYpDOeW7^!!=CMLs+&9wl@uG#@RvG#FFXoDCRrQy}FVMT{UO9tJaaO@I z176Rd`Lp7w`E(=0~j%7-$-TAFrGeY`P&Cri7U?To@}r-S+~Q_Yq3^PYQZxWw1jAgOoP zgbJG)FSCI6wsEt)-x}|I)W#6K|I&j6u1b9?_oaBg-|qKZ_{!IU<))-wt>kFx>hqZ|R|D8r(5K()uTmL=H z@0K-v*)%s}mt#?|Wc1}fSA0(M=f|Wz^Lj8tw{*U$?*Z$Ugo6tuXSr-}*u?59drMHK zf+sWo$Ocn!>+c(HN>Bb+eIwkZY+1JBG4>g!jn|p!AH4r8D=F^W>jKjQ*P2Q#UC!(g zjF@it;llibR+rcW)bY$R?X-X1lu^H}vpD zx4LUzROivW!&v6N?&NpbsFKV>NpY?yP-(>|6Ao>0c@%R$SZS@!fJ-jquh-Po&#_T3W1HVf_5w zl-9O8Vn3pd{Iu?V`Z;rlp}N{Wxjjpg7VZuEAY^(@qZYgM_I!e1Z#>8<_kzMFgg65h|s3wyJl3-1ZO)gU!((~{o2r!2V+hQ_}S=NaEJ zc%HeqTlbg4d!+`OCsyeKi$Cb`YU{TC{U=u8&umzIkY|!{->%l8U&)&ONo{x1!!A4s zx*;umv+&=1%j0? zxi>ZQZ|a-KEC@Wfpwsy`<0U@x9XZqZKFl-RH~;H-{|^U+mweV`Rus6WcR0eR&7W60 zS9nSAAxXstwRIBQzx+HHCVoo$B*|d;RQC!)-nPmY>~8Jq84C}JtIy+;v~c^sXX%A< z+oaj&UwHi4y;nC z+m&O#TBIfSKklykS}N%1_Ec|0R>=i5fgU~Ol$RV%zfMcPJ}o&V-BsY~=O2RWmA^;* z`{8=XLHtY3tFU*k#7uMUvZ}N!3^~HL{Z9FzKRX$wDDRv0PGdUvhL#&{_Vrsg{pQ7B{@)xN!f4&*$s3^LG5cEqKhPeEHcq zT^kPwS92|FH*;4uRx{GlJbE%~OIP2oBPTEMwY2ZEi@fH+^Kij-<|jOFr!(D(FH3)& zW9Hr7-7a?VvS7J<`|~MIr+a43eXLUWafj-@*Y4;4$BX6HduZy$GJG_NT&(W@o&VAM z_eTQxk9YS(M68oLdzv}==(#E9a_(~VO@DLp(1nZQGpmz$wf}^Cl)9)dEZ)!K&#V1t z<-^`TAzzQ>J$={Oc9gsHg;d^a?x%Z-XHN=R_*nm#M*6({f9@XetdcwOJ?4sMnMxV& z*^4hUCaUE`9w};_(VOBdum#fBUIi%H1!!x&Kn>No{#0gA;E2veS0_ z`fz#u(bM&+|NiyOyB4rC=4;1;#oeCX)7CZIIN`m+)wbnv3WMj7sY^C}n9VP@$)nl& zyYAwBYt}Tao6KNX-eP?5jG000u}dBcbxdBwmvpbpx$ykKpBk2r^SS0ui|SeL@?+&M z{`)=l5?hz5id*khZnOEYYyXcAhh9Ful`Fc`y6*j}1MSc5O$c@SAE0Z+J^z~9H5Iup z-F|a^-7$@Lm9t#7(lJy{u)D%P{^=9{@Se3LDgVO0e!niCRT%KAw{)smtw?O)`=^X2 znLKBfu$^R@lt0(SXy&2)LSKYg0={f`H<9nV!&Ra0Vu6gmvSVJh*ci_hw+i+sj*NQ| zzFB%!#=bAlZ>Xi`uluMHxVFpvZF|b32U9m6n93YE&w97C!k_Fc+H1yMxqE?O7H(-Pm^(o3_#UqBHy6 z=uKQQ?`kxMA*K8idWDt*ME&wJ(K)N=@9~$*nxQr# z;DmvKMxnqwm#aMs7+?NPY`meriA8PAu4Uh**8F-pp^tY?a?w2z3*+U%T7|yJTyiFx zg|{vWUsUfBcCPkIc){8=3+j!Mrz~Aiui#@G)E?#VKk!PcN{PfnWjBq2BXt&{H}bD` z{he{`ZB3j|DNpk1HJ|s+PLTd>En4PW7<=rWd3L_V_T}2g?yYv(du;nf?)5L?wJe3> zFY=sdj(%8V%wYUyiC0<^)6=;JE-&zE^_eVHctPOCVz-XfS0`shU%Jn29M|{vkJ}$z z_dTaqw99;ti}IT47gWoUVv~8uDlcN$rdP*YFQ(r));i6_+Nbw8pVGy=T)n+BT=!4x zG2gN$Y1ib!*+!EN`!bpTKVd#)&bhzq)y};>@zPzHRkzAZSLB(%{QqB>iyDjH{mQd8 zYizk)ta@wl=6O8gw`AW69-O!IY-gg2;ic{0uYR8$o>x4*R>xLNNKsiLdcV@$XC>Bb zwU6w(L~TM(@b15IvUB;dsUKHy}c=`W_gN&2);=oXh)iFCU%zK(l>+b=Cfss=r@1*~cife#xr0H;7x9ROKF@I4|bYN^aRFJSlQv zQbrXCZ$8fx>-+nZXWq(XL8%|sRCi5S-KEG;L=9PjmR9QvTwwOwKo|6k+G^(iqs zHJ*Igz;2$}BH2Eb?YBaz-n%vH-t88RSmLX&OT)7QHKu|3k$ON<3$$QIZ3Q3k}3}_jL7u#Qg{|#rf~79 zYMzJY_q!pdGMDUI^}$6)SYCJ8(=Xb&Dl04e`z!9mO%kcqt(&53=6|cv~`!PTyWXyOl|4Q%^PZ1PnB@~yk7E%^W^CTKJgh_ zqca!!_}@3&d9+*O^32XhckZ04PddU}e)!cjV`u-@8F8LG!V?8U+vYrY_i#y(jmerV z0#-6vdzkNDmh&>7C6X+wrC}q~|0gZx;%kv=MHfDmG1YVohZH z-`^dfx<6(l-AS?)e<@+M$x?>LYLfW!;)Jz}qcay)^>`%gIvTOG=t8vJdSClV-INys--2(h@j5l*`TW0bJ9=9l^r$6R-4JFHPMzbw<;cVy zxv;+Hy>3Q12Yh$gxy^krg`wk0^dY|`F)wnK9A0_;#FPEYC1?Ks_ufYDXxdtx{o*<% zjMAbuYifAv55F_Xb=|S_(~X7Cy57BY{rAk@u0a0xgZck?+9h({{9XCA{Lsym%MVW8 z=ilZnlyixB!luP9yDo74QLoK!zg66p^*Ct5LZN9vvD&e}CCIVvcubLm&j)hC~v+I`LPX_aC5b?xt)KW>{Ir%_uU8?@Tz%6pxO zQx5cV7+d!CyE19*XrC$;%+h7}?aQ61-*)IKsjitYPbS%C#_E8RQJGvKmUE{Trt$dc zxvn$O6n0_#EA80v;?ScGf$0o9Zz^O{dP8`vN?TapuWwPkBzmy1)6a1xpU_FUuydes z%SGn{^VoD(B{!GV^vk{IKELR3k5P`?ZcR}^*Yq8J5_wlPNWUnu3q3ASW!oZAlURCZ z+Gc^~$=bO`7*ZTLoih|#jb_I>wcLF3PsC-$*}Uu-OJ?m@wA-$JzfG!p@hgE&+sj8w z4U%sCPF&h3!(_C6gL))S+8aks6J^zRKkNTIkd0(mlJ=i-w&A94MMgTd0`vISwf_%` zVb``jbVGYd+eyI^UvAArmolTvscpZ4*LO{`w91{_EEBEVkyvvj&te4L9h0I>p!4t@} zv1krU276F}Y?;Ebx2qyJoqv3s&!R8mqnc@7tA9rH(#2hlet+j^9!e+?tt?7u7o2E# zH>vL6h67d`=KOD2d2m)h-0mAIcXgUv$!MP{W~4Odf$c@Mr0pSsQP;fYP4mc!TenVe z>FqUU%X#)4t177BnZ_kq`G3(Kk*o2sJE!o@s-E}o&*Dp`cRuBa?L4)+KDBX?Q;_z~ z8bdCxXI#wk2fj`F<`!!D{Lo1rbIZu3YTiQ18vkon?#o)|cZ&& z`N$-b>03~j^1L*O&ms47*_%_(Zn)%BDA>9FM&t8uC+&iHx_xp5_2LvcMPnG4G@L5} zGS-M{+-m${8q2&@?Qfl`#i8|qnPs1sWp%2$Bt20IU!L$xq`OnZy5mmX($;CpQWq}s zwM_Y~_9e+daOE;vtG_p=ob6@<=L=n*x-Wki&a}_(KwstD0^QX8mo6k7P&zbmz_T_sTWq|*g5C=-UT1b{r4_dF{fj$_>?1mk}PfaEO1(3 zKJ{|)G|3#jDK8hSsEwI;&v&*BpUV#O)4{H?Pvf0r<>pC+9SJ@x{d1+x{Tpjdewg>V z{aND1t+(4zYwM}0uh;MR&2*yj@b#6K`R`n})OIyW$cU+W9~oDo^E&pK_a46$`|@|m zU$AX|;W2%QVRO6*WQ3<*YDi_yl8FFo%=Nbp^;}o#3WvxkoMHc54*zRFmcz6pbN#yPoM9-ot?ID z!@vDW3kCF8wtUz;afzC`pF{M~c4{=nu*q7yuiCQX+x+7!@rVf~hhi#kG88<=Zjr(B8L!~Fk}@g(OZ zD+Mh!3k4aynP61P6vTV^^py#D+gxLMPQR4so@d}Rz2lT04ov$Z?a&veu8QFM38?+^sc_N$l+EQ+&!Bdf(VQJju1|NZ&W(3rnN*ta~n)E{}BC zC7$|9VzX&ms^v>bj~kCXeO{Q^t~t|mre*ODi6C!fyFTvOCTwcov~^>@=pO8{HLYEj z`ylOe#N{pQEkaiJ4X2shu70&QaH4a{?jKx6o?<^vx&3RezIS6tUT~*1z-^boMc2pYf3;a~n>Ljn7tDV!)vbQf*Qg`gE}u|YekJgE^!jUS zW!t2q?ReW4iof|SyZqqYqA*Ry#>uQ+Gv>`Mwesam^#9M7@@L((e6uR)3CYLaa9>qf zYOHi9=CGId`;vYceS?e9=l(efW+-|!v53X~YPM(A+4V&^PNi|`p(l0AoJwM};ygt; z>|FoM*<$G9ba;!!(}`OytUt4aYfo`OfJMFm58w2J-SJbVPU~QJ8M9}(qtnfKCGDLd zmXczXhduRFZXS}{apvDe(FIW=PAP}__aB(A@ipqhIe+bx$x}}3W>T?Pyp4w;c5Yxc z@An;bFLxW>vrU=zKiYTY-kg|oOXW8dN`GQbdz8DX$zrBlnNm@S&$5Y08rC0T7Plt| zJ?oMyV*f1D*<6$0XT`OsOepu@a?Qdm#S^YCY&w*+%;U=a=lf+#Q~&fT#2bBM(aLcD zbMVI86$c8pZ(gxs)qR}@O*v*|O@ZqkAJQ`LKA}*pu%FF6(y?uB)XlAi3i20L^qI6> zcquULj7oOfR59Q7D{-f*I6uu^*Td-8eo81p&&W5u!L<;yHnHsfpSkOfaV)ddY%^O> z8NJf5C}8QYsnevCFHNcR_uh3gO5{au$g17WqFP-tRv!CK73`5)mpgUUD=$9VuCOIu zUoQ*Zsh`mleLvjoy4~z+NB?M7>%A{Il2sN{v`}=TF}Hlh$~yOjqP3;_FNI}1J;k>@ zC;V^#>n&#&*|l=hVU9P9YzN;mFPdhccuM+wL(4nHjcp#^%qE2I zymB$&K_uJa6^oxl-aW-RFO})kX6cGB-|_{=JWidei)NpEQ|{n}0PWJIghL zkBzp;b%VEZMG=WlyZc`h3eAsGiY*R`ySBpT_l)zKHt#Uq;`2*DIe+@(ZJVm(v#!=S zT)gwbw7lV_jLVh-r_}C5`R%tZ7uuZm^z-B!Qg$g9lK&d~_pX#t{bqmWQ1InL(US9w zLLCdtjRn^(KRo&BQc?BWes`Ykj?WZW%=P*426ZQP?b@RF@UQ&Z&Rf!)MZ^lGv};UA zO#S{)p515DU5VuaiI@8d*Bn>4?xg-lv^ue!``Rlu{$=Zxt;_%NR=;ztk}l)jp0P_J z@Y3eT!Icd6ZF)lE6MsgW`Rby$U{mD#z0SA9<^75dy)C=rC03|2^F#gL{dPRIGXKk` zY0tDcmgHS4GOgS5^82%owVNicfB12)%a7Q{A9K}q$p-d!_KVjqH&7`*TV>KRagv_c zJ>&FZHK{_T+eKf$XPG&EtIRh$=*Rwf?ws~A_Roxs8_cfpooQL^^WJx>_4~|y4YGN4 z2bs+8JTHkezszSn_oA0vU5v`3qMyqS=CEwM^yv6m^DR=3PVD6sx0?IX`JzQU!|T&? zz6u{$WGJB3ud>0Y`A7NVoqZG5^(aUxoPFWitz+D4Xa6*U*=pt&?&DW4_EbgYti0e; zwmn?^3{UG`W5IsaWnI@+oaSL=zO?+Yr2GO&f9Gk&yg72qs_s;5RQ~mW;T&V_j;<{y zZFG(#bUc^8&}+PKgKYcLefLktKf7ve+SV7kebr0pXP4__F1|eQTsJ)`Zt0BMlL8F| zT~{-+EnBSqwLi|ee(Iba=FX7y(Bp6gD;B<6n18 zo%Tt*;Lx9xqJ1x~u9@{ZYjydH<%hcep4|CX|DyGCr3AKb$5naU-d-uW^ZkrtJ^$8) z5=Qa$3R%u+8Qn1*)~r%y5z$&Ezue^$R=)|GYnK?DT6M|$($32~oa$flc7HET=9r!y zDe-Sn_Ei>HonMjBJyNfXW(Ay;Xq!5Xr}4yN)(rMZ55r$^ro2mJYGM#u=fskEyV3OB zw9|ab8`8hD=!uG#C#WnrBD*DlCa4*L#2opEYb(F6UKR5G>Rn6y)m6^Di;mumobfNV{8;2NeVc99 z`4tMw-IC|NNKDvyVBUvI&X)fp(&Rd(PRlVZf4pt6r1J91Q)78{ET79FR$Tp6GGh0} zy`pP+eR+)fEoN4+VeJli)1^gcac_!$T&azF|>g|SaPVR@Q7^Bsj72G*B%44|G6--?!Ew?*c30kde z;&XZ~Q!@9$#0y(F=Faq=p72%U#~R^FGcs!vir6hvAG@C_bgaRujA#H+p3pdzm!pcG%LPkR^O(=eJO8g$w%(*jD~Kd;g#4{<9kIzka?ix-(%D-}(PDuUEPl z^Vh0g?TYyN+5d<4ra!T|V}>?L`Q8zwu;dji+Ztm2BS}E33a)H%YIu z&G4Sgtw8snKap0}lNwc~?rv=}IqdOfa(N4foSWL-lF9YvDmPRjtJEhxja?f4OiXE3 z^L4Sqmh(!N@#QRhRUCbzVz>R|KSGJgzS`P1Gfzz1_TbMK1wXGz(>5(!xgbJIdKPC_ zq>8Y9R@aGmiw{W!sq&lD>nH3iT_5zfXxEqGQoG|K$*X?Kyfuvs-j)=5+)4G+9r38i zCrjP8E^ND|Tpp!!S9?F_m-|iy;YMfWYm4r$+WfBIY_HAwY5~24|H76pubp9^zv^bw zj~TgFl|*jy=Nz9Sm~6JU;`n8*VkfbM3*(d4NdTM7fSb9Et1}dN3~5+ifWNHef?=SS9KF> zRH?@ulg=u$>(gWXcYi5ZBxZi~$G^Mn;_qKNcSzo6KQ3hAyz!A>!kJC`L@L~pc+Zqg zKdx~2v-P?2v+8ypJCofj=8#Y8^joqY4m8R;7xjQIyRp4N&Ni%c!6 zea18OnuJH!4Bu}IY)voa7*jIy9+&Xn*EjL|zQO0khU;82>;5bcOq6ua$Ueht#hkgN zZA!g?d77N+i|cDmvUvBXXS$SK&-l!K_eaAGVey}HDhu9EJ@xp{{kx?nCR`}W%9&Gb z`F_ThEqf1Jvo+kGQSQ@Mamw08y-|2pbdc^hBmUVp*E&A)@!NS`aeuubn@swd?42<@ zzItirtQpjw{eHRB@?&}h`&`)!EvpSYX>v=Zv?ng@t$wkInJwqsZ|;x{9Sr419Zonb zjklMaeQ}*oL2Jj6mw5|w=S+Jf>)F|v{dkLBvi#AwHf!aD{ZDM~D3wiPOZllO`S0uD z&lL*_ZvH#*jOn`PhVRcVbLkg+{Z^l<@AkoRJ(KG7dRxDHqJRImnVem+%KDwv+04Ha zic>^(CoW7hDEKDP5W4W?`N}2h)tLYGAKnnl$b9TF8zZy%+%x}J1n!g=&6eu=-><)Y z$xL1TtAD??ziN7RSt~Y${rujaX~(&pf>PM~eSc0n<)gQu!(`2tC$_0dg7+Ry^G#n~ zqZ%U1$sJRz8f3HdPN(bXKNDuyztW%j>awX`xHJFhA8)PB?py5kw{h;Wbb-iai-Tr- z2)W}d`&v(1cUD~Hh7LjNwEgujCZ;7h8y%@##=r6O#=F-8HJ(K@T=*4pxtdx2l40n1 zCS|9X&x*c@8)g>go%Hir%%Ax>Ey(bf{F;mRLciWQYv>jGD&2|cgK$vu=_486Y!2#P zU%O>x)y_8zvT5q`MfMynv=(Kq553MMBX`we&6W>*R#tC1<(4I$^_r7<{{4L8j>-b1 zI-Nts^@iQAw=QRh_`>8NVRm}rLct9jTiz-g2!cJj#iRG=yFAXRD z=vyDIxN<{=ZRD>*GM2XKEjgFnzMSHf*GoE9Ja^qO7RFTv>0GsA_j84xn0ag!GFGdL zk9!ro-o|<^ljhQ+JG}KSxc?K%klpjjb8VaULK#O1alPW34?dr-;9eBz`)b#pXs3IO z*&PQ?O^kf>BCTg$sw*4w%;Py%(lVMPTlaQomT8yY^kjW8LB?%QwEMl!X*tU|iy~(8 zTzsQGp;h)8b7G(&(+~_e#2nt z{CjD`Hv7o*%{%M2@bOFvVd%N~m(_piC6#DX+xu4^bgz@ouov#Im414;SJyKAWY??z zvhpv4t%Q;~4RoEZ%Z9&DjNQclv)s+jbX|{s@A|{Rk^9!`+_Am5p<+==_o7`3tS;_P zy)1Yi@|u)yHDK*v|s%m;3%z_uNb^o7}!-a=Xv| zJ&zP;Z%@kgW6w{`I-xeBQ@STL%E@Ds-SN-Yi`O5$&KV&VoBG{r>+Fw}RYj{`*p$DD zYdM!)8!p#>?zFE@Jm=i4?^rL@mB zlamzoepy@+cYeqI`#@qOBP52zAk&&@YBqRJl^6#Q}lQ? ze!c!^;`(=01}27vJC+Dy}tBDf&zikU^#O{;Ia@~7lKTeya z{x*At%buXsfhT^`LSSiZliupnNv){*12D| zyeoAo2`tYGbG-ddtW4tX(&I{xa}&*<-&=jC?{e_{pc}e7l&(b`csIRt(Utwyx_58) zf+s zd45{y_X!s3{14w=8{T%FcE%&X``#6=i%w09Sw+*WqkjFV;mb8^G5b7YfqiF4DR1oJ zw)j)O&%H3!nw)5-vt>(h?~79&*Y2EcKfiH_o2j0(;N*Kg=Buj?*HoGEFS0(na2ET; zEpO}upUqenabdbpfu(?A_Kv9{fk&@8+;xgpY%JU9_J8ZU^`9D2xfqMj2qddH#`;TUGu!& zxpTjD%A?0itX{M%)ZKOT{$JZYOG|DlhM#*9|DTO7eeR^Gbx$|Rf6{YZBo-8T`s%{j z;`zVK*C=Gap7wB=`_1rwO7+2uO3ocQ*O;BWe%77R2WAK2tBW4@UNBy!8@^6C>AC05 z&J}$n#}bzoJ&n5m)Rag2Pl%u^r`;!sqrr!}DzYk+?WaDK-aYm4x;s6(bC=6{G@hG# z?DKc$9}7QipZ4#Hob0md<+{t2>tg3@^SW*q_wu@^T+GAbw|~~0oEh>n_o-gdUgiVO zG-7ruU*}%4)i%+~;MQ4X-n$o~zizlRsg3W*V%yGuSPtHIv!B}CJAEy2lG@LMH@@us z?vvck`EYS8SIzaPo32*bR&`davuozg)MYAiVsH$*p{P2ka?V}9ju`I~-^~Bn-c7xl zF}p?X<|+BzeG+qQ|3#~<$uW^_vQs%1 znUu_%D3-NmrOv6D{zB4i6T1+8hJoo=U=Ovcz>`S_NL2qr{)4y-DFWk^MWpM7D{;7hFRSVmbSpUTM z&il})@%zl%=gdns3&ekknfmbetW~Ea9S?{VG(Rpq!|h>u@~{)PIfqNln+X18+B~nW zD9$r;LU{G|gG3P5WIwb*o*XkXT}J%SWY$wp9mn=6%=_zb;*Q{_m$* z3mwjQ-ixXTia#=W{h82rQ7Zd|mre2cKlNGXl`l{4m&m8Ap5S>Y^Wof=JJW9V^tG&? zrX$V0w?m>+G3w=;s^d!gqB9NO7`NAmd{ok~g!j%h_eU`(C8oIw_-^ z`Hu~wV=J7v9ZSkhQTc z>u%q@{$b_P&GoD{!s45m&xiC+WuE8z*Fbch=W(xvd6TxKtUlbjaItx;e!HhJ%VA@y z4y}_LG0UsJS+hl%tedd)(hU>DAQ%gD0pwH!-*$t zTIKQFFMsS4SaYfn#R$9(o^W=NB z*ps_n-QSNmtxI5^bU7`2X_~E7+7a{A4@>>`|6i1|cHY0s;1%pNi2$6nr# zoqJEdm|?nLVq(SGO#*+;O!&CWETzj|Ra11=DSz)@EA{mbOH7U9Q@Ip&&n5AzZ_Cv+ zXB$fv%NiG^T`E)Juoaxp#VvNu)^Wy<(#rFa`&J$LD%CV$o6^=c13sI+%jUse9-gnl zrC1cLnuNU9Zuk-9*dZpb-Bd8`#JOJi#Fn02+T$WD1UYD&EHeo=hrmM>({BUICXe~LhNtPsYZt{Zawc`8oTeK^ONvC$Wpo1 zid9vK+b>L5();XS$qvrBH)@~We4g`+_58k1ieY)b?`_Vnl9BuK;lf>~74;|Wrpc_m zJTs)};Awl^Z}TK9e{iOIIsd=$FzKhGRZ{xNw8=Y}=3SPbuJ-rpqp2ZskL-TEY@N{F z`lB##+fCOu2XbcK>|TC<=_0?4^VCgQZtVD}Q=1#IAvs2{RzpKNEXt(7_5CG(MWN@W z)*>H{-@N*Hv4-mn-{!Kus+wt@E4?=TO`LqmZnDJB`d!Ao>9aWfyFUy570NoB@~)R} z#-+jw(sxULD|I&;=%py-+%*kgeRJ5$d;9u^yk%RM|9CG;oYdle!_uBLXi=BPV&P92 zI+xd*2&koPx-{=g|0VlB2dDh>ns?RI>M^6|e1*B4RdZgtpS$EzIqzQ9l%I)L4i_dk zI;bf;)L*c-MVqB%!?_)ouIZis%xCTwCKze0n!8WcJ0z<>YRQXvN>xT*jrN?r>v;1; z-<`Q@AGuzC&f{lPcH>g~sT+zmk?YpPp1pB1y6B{7DEmUYfWn)*TXa6LdjzXZJD2;- zzAn-8aBJj^^$dbPG#~XEE}S7)^)|>U!9z?eVvSS=ChP8(WBCS3r&2lOJ?b(viW`A&KJuT|J~!_2k!^l zvlX8Dt}FX_o!^BkMpyGw&60y3c3*rm<9gAd*;^+(yS)En++5W?Zk>EzTB|2iMy8+4 zWiPXM()B*bvYoMrXU<6jhusgt7wMavua~jrv*NK;+~b_)`EubigZ~`mm)6RN*J;eU zp32VBbac*iEdlWczNbre9gLUnw6}V8Iy$wu#D2xTi4T|W*F3gU_2ae|s}`s0w)`wI zbJ{g|+L5!nJuZf+-Ab%DdHr*Y@Ny*!&D!n$ORJS@#T2*6hV|{v$n>A2a$~Yx{niJ0 zR%;#AviduZ?J~W1WAcwz1+zBXe!cE~)W!AF{CZpFa4-J-*B~frQ^%rX?#`-@9L1ebw?yCeLq| znc&#hc5A1$qm7=*xsa{CzWuGMw$1OKDKTlvzP~rQ_J%&{FbpB3i`#a62wESfE%>Q$sKm|Xef-SQ8!Ok#FfSaJVT|6rA@a(lz2rt3!- zKRv0@pOneH)=WC}7V|M1dx=@5yRP0Tlzduu>do@#4ac3f+u3?aOb$GIXh-^i*@rAL zL|zCyyRlAu1GmACFB>i?eduTuxUz*=GXG4i=RJ!9VRtH)k${G@`p|{Cq{ZLv`e1mwBmc;_PJ9wKD}}}%wnN; zsnzuY-CSQ6M*G0|nc|H@V-ER8YIV5u4JDD$juN=dfjixVhPtSh#R3-hU z>7}(M3L2cz+~HmN%0ahR9#59ansz|3P-Cg_0Y}bryV&v;8nGTauCnQT$clvjSt=%s z>KC_c7M*i*^Q&^Eb3EG}c%M&ansC1_!$$6f((|%!Z8_7HPcOOswpFmp+uQltQJI7l z-81WJ1Kz~sG3y|+09uJ4QDTUTUX z))6jGzM;t#;OrK2M(}V!j+te2O!!@|ZjA<=lQ$R{CkZb)AlSWi9aCS#nyt$ln7g-{ z793@tH)-2Gspo&^25d0a za7mGy)$xM#_lr+`*k`%=dK;71dBNZ7`fKMc=e{qY{qNYDC*Mx6bGq!y@IN3KqZgqb z9u?8_)Qk64;+jX9#LOG-RRv1_@OIsN}m)gcX!&YXa!E^TjN5D!jthE1gfg+593bD&*P$;cO+V zTNBbY2d8e`_pbQbvI%QnPg%EKsBX>KjSm;?%dYj|nz;R{y{-2$huU6e@eGRuo|*Ia zZFZLVePs94Y2Kz8`tH^afwdE4i`0TH3vv7kc^i_qxZsLkto7-0#lj0R*apcWpebtju#CbDVv_OOX!}11YU;QOgJG^-W z5BJ>>4Cz0lQp*-%%?G#iThboNXQx&DJU$6wtKpQ8?)qYZRpW=}(Jp(#tR< zD9Sf>Ylv~DH*}Y@q_zw0@aB=Y_DOYxVPVfxmK7h_GUFSoZZsGcGapksyOk$U@$yv5 zQl2@Um)DzYc;!+h`o43^-Mee5(Ctr`XzWQ^iDR|oL(?ZpryXTxd z_u2NSzIf)vJ3@*_Pq>-26@}LK$8FR)_%T}0F^to7v&Dgu$G<$<+x8iV?wZxjm=Y3waOki^Swc>P6Ic~L+eEboo z@~)MX`!uZ*%)C_k{qdAVyZHaF{V{v?#i*s}XET51YmAlz>#G~;@*KFJsJEc#rJ9lR(;^+C*&d6EHprSw23YPmA-K0Jgs~0UzFMEX9N|)Sye{*x88Pj?b>y6HByRICa zYN5U{KJ(?Jnjb3&9)yd{Cy*@jGW51A2-kV9vEWa;t9*S?@CS6^5cha(;(oT7; zBaFw5ZiR|IQfK;IEXlyLYVo5<@9V4MEh4{M+W0#4h_K4{XtL-MwOQ=k`tz(<$tL~uwYv0Brjx_~ZYibWvb++G?mwi0z-~_?b z@7H)Yn_RA2dUltI1|PfITqC`Sj<2+DY-$gG%afBK{y6KwlA6g4T;lT$lzF)#R06&j zC?%^mbcroJVjA$fw%6tS9S5TcCohS{vAS$&YZcor=fbh=OAPCtU?GmcdpevCQg3A+ zcsrS;?`-w{!@E0ng_(*y-M?2p>mJYgi~OeYUzGNAUpHKGHc)&1-L~~l%~bBnK4V%G zv?24ravrI3JleW7T{k+7Z#4ey+ge=qtKs1*6EU zbE|{ZrwR0aHVtr>ZRxI(>2#AT2xzNtjSQ&BSh4&Bv$e(D?G~nK%#F+JW;mJWFn(Ly zT_CIdZ}-oN`?;)zX7|D?X8kK#rEu=}Z!U9h`;QxVY^J=QQMviq<=Wzimv3t_cIAI~ zSj%Vgq*zc@^>b(Y>Zxj{AJ?{j{&leLd+bT}-aAV*mKlk4YilIE5x*tmr2O9Fc}{us z+xNlY)(K~2XQh_U<=vM(D@N+sic7!Cil#m_Ty?!*YPqf3)wv1UpFLOETW#Buqd!aJ}io-_=^scxU#a&OXFRtf5Tr)Q!Wskt8_^6!Hd^U zHxpUj&A6_Ra!rLb!0_bMV-JdNCbGP$p2@6|ow`4sN&E6r!LpMkktSP`b})s6w@ndo z`BL>R{MMzEPGyC=*Os4~`Qf>-+Me_~Z+2Ohmfg#7F8SDzw%efK+k)rCsSk4Ie%A>~ z)}3e^^x(xU5jT;eE(awPe-Do3k%H z^0hSEy-oSWRhdS;?kkcOzMdzKoM7Wyk;%jTCcMvlXZZ_{s4|I{uFH6PkGXebxpdid5qOe+d^cb zgtj%?DYx3WGp$J3)UfGjs!O-oRfDs~K9<$q6g&2DUFQPv+y$(uN1pkzE$rv9WZ6`1=9io$d96t1MiqI{FyFD4q zR;MqRGpt;m^j%UZo-=a8BrBz5V!B4MzqU$ zFzdTKM{KWqZTjeMIZ1VJIwD`Zmz@O*C(*4s-=g%=P3X*M2O*;Nu z=gvOsH$Oa=J@Wr(wyV0NKGrWel<%iacZy2P;j<|r`_@jF=rWo0t+Ph0i z61fz-%z9LmMfSWbY3uX2k}Vt8-j}vF^?AvbR`CbQcMNN_r|cRxCJkgvIsrXWhsxH&*`@`YGo*TXnPHg4k(}i({k} z=O3TS#wgFcQfI;kxyf7P6&{{-Ib@yCDP=R^xAm8J-QzjurY#MtpT$?az{5V<-nZQ{ zK2L&ZX7ISk|<1nH?)Msoo@e-kV$ahV)W(b}l#0%{jM2 zol@0WtPXB&Za#9;XX@OQoJlvFE!_pb-%V1OT(&fh{hLRx#`}x2AMzZlZcdtE`8y)x z$4`ZC8>QyWICF1jT;1Xedy^D0reyfbrt{qS{nw7U(w^x~g4>K)lOC_$G)dNQ-pg>2 zZ|`l*7b=}PwX|IS@AC+r*_$p++v>i<+xmd~ymck#UmXZ$+_rVjQspyCHcN-^UlOP~ z)6C)A%v6n#$h?=0J5T92pZ4n3o<}E9Isi8*@q;Utsifi^ZB zzJG)kealQdcX`+P+l$LCH{L$<+W$?s_W65HHWl0{d~LX+gVm_rbN1gma>*yAOq|eK z68wuNrI9y`^CqAE_d_<@K7Fsrcyr`(Pvf>u+p}SkuU+yUwbo9&7FD?}yh%3euKgAU z_th%S1kq9C%!x&(IFP|h-cH@9VTz5Zz=k)sqE#eW_Rz8N1NxD zhM&r)P3}Bg7QbWp-bsEkXOHLzMn}~-AMHEr<;|{KQuW>6CSG}-W?qq}^B;~Io05JO zGnq}2PHh+5_Wr5D+4{u!j-DKooEe`Q7db3Q_;Nm8zt$yS+PmO7R|g%{xj(xO$n$oYFTf?8Lw%7obpaFKNrl=?6BcrSi7zL&azzAi)v*vq%F>M3q3Q~SsalWc*ww7 zB>2Qj2|vw_IL*B0hD^^x-Lkg|AE@m4!)sd5zv$mgMVD(COvm;tnZ50>$?x{9-t%Tm zeZ4mSw%RY-bCZ;1KV;O;*cpBxP1=*Ql52r`_=V$z%x~(JuDzN5#CGDWO_v(Wfo)fdSH8mbT z@@GzhohMJsY>p>u&8(9dON9Q3$rzf=pSbWqSi|Fe7I(d7OEw4}yY}-+!qFr57#X9w zik9YXNYb(Xvf!l4r=8r3BkK2y>}vcoB|rVOtNf3v%U;c$vOjeBye-M{5xW32o-BvYl1sVmb3x!;ZhK(glkI&&xzOmDD%!tvP+m z=&Wpn1b5AbG;U#elZYuVqjo0Atc}QA*?nk@{5?kJr1M)0RkuxVV&T)V`)Pcj@#u6} zw+CTQrZcc?{2apgXiH3H_P151`IHsj)@iu9?L3yQd08^2kH<`8da1T({T?qdqg&OujDuAzIesU(ZniU0Lh!skbYSpED21tIl}4?0jy+ zH_^0)yx(`6Zk$|aaAQWrobxx!z2>WjMz7hjV=D*CE|*&m%hJ9q>z~u0>FC{3zFgsP z+*zg#+XJ^;oNQhBGc_=Ji;4Be%!$TVo@`(Hly9wtkm_q@@8xR)A}4dd{w!f~cm0-) zc4w=V?o=thj@G_EZRKXuRa<{*ej~NCE)jwvumdr}A#u`DQVFju~sp1>`Tu+@7o~e_1VF&AqI(qcb+iZsM_+HXHZX z0=Hg-OWiS%U~RGe=)cz}^k-g1a(T1Q}f8>O5;xbVMV4%UbuoGfpzA zRsVEfc3-FSust-R@WzY%2TP?laGl+7DQLT+7K?7E_z$n8-f}M!e|fg)&zkJSU-Gd2 zNyHr4FPuHfx99O~;p+Ag<<4&2n%Wfe|An<&_u?H7I~>k5-1KGjv3e2^J8;yi+9!*Ua;C>l?E5_`Fw43#X*XLARmk4mZmTzoce`-Dx z-`<(Eym#C+w=9iSUd-uaDXDm7Ui%U*4nuJVnT*p9<~1a(mpa6p*el_CFl)Ktm(Hh4 z-8vKZUsBRHTqaXpq;;+E^{X{IO3G(kfBZ=9qnJ-jM>U7vHCsI?rgLkTY|r}gKknwb zP_8pqHwQPB7Hvwt@!&<6)Qxqn-=?e+_!1aX?xghX*&0bNEBoc2_oZ3s*D`+kZo|WL z`sUY8gOj@wm%7?5h*mS;j4V%=y0J82!hZEe7lB!fQhEoyd#e;3UWAc$x1aA^d^damfZcyPX212_1CJ9JrVEjuD;lKiBDU% zZ0i2Xdk2N>YfIfu`KB zTNxYABiuIi*glD4*TjGLiL5gJJW1vi_usgw`7S4BOyoV$G(m39%C{#TWiqGbu5Zxs zUejwEEXJ$SlAa~C?P5k(>$G-_j(an+C-2PM&u_LUtLN(J4!iw-y=GT=PVbjJ@yOEn zhXU)-gK3O05B!|c8@M^Dt{s>gpf8&q$i=aFJ>M4By-%{PNI6-)SzvYgeb$OJEmgOd z0@s|Enix!yTNK3gY>Srny&38fAwrk8I-6_mz0ez6w6sxO;WV>feSDPNzO@WDgH$G- zsNa*6F1P9wqn`DzjP)nDUUl!NkqC=gRlwnJ?=nN_y~q`>*cF9*4_&rMJj0aq#ee4K zz+F?tzWB?yPniBqb4K9r4fUD=TNLs*vla8(=k2^5DWp-SaPx&M+lnbZEgg5R)h*Q( zZd73?+aX!6=F9Z=-OPo&2R`12EoQSYxuR>`b71S~=oz`onhb8ea=7iLsA}A}VV0GO zx07nir=I=)~}kIe>!*V<3>1t_@J+*v$h%^6N-d$va$f4y!$sE96Wkg8i%%y#FI zXu%rOxlDYjnJd}+eyvN5{1fhdC&Ja@PX@DV(q@sAVuu~k84rslu4^dUk`c9G_UYKm zY5BMI6?3lqAIYKp@w-vE!mAQrRj=rnyzq4|V&yL>@4Rz^F?aImv)rQJ3N4TPb9(#n zR^XOGv)|&qr2;#w3x&$756Yh2u6ijol;d)d^Ft1`OXLz(SCbLQ$N zC>Jx|{HdOxT)g;=0n_)_{3$IKMr>jSH*mN;YU$WGT}AM%1zWsWlvlj+@p&Gcyp`pB z9S{62Su1Ufeio@ywkFQ$c*`-fZ(DzP)~Ftkb>F9Ru+^l%Bcx|%T8^Gg z3+H&XdJfh`rkTz3TMYr(&~y z-Z9@g?Zx-4ru*147iE8W?PYYv^VeJr|1Yy0Zp-OtJC$x~bTO;ltRLd`GI6P{wX3w) z@9o0O;T}E~eP{a?q&8nWltHY898O2-*EqqNZ z8Jn9rD%ymMt9~UZ9k<%fws88BfF`kbtMitwopIvhya(rZPj+ry{z7+(?vwXYR=eJ2 zE#{C^Q19HgBKE3VcI-93aOu5%`~Q5`cN5!kU~bZp`kbXBAh3y>G3We|Yn(sCBb&l%yA4tgrGA%hLSPCLk9dDJn&U6hI5z@*Bp#^HXcRyF58IpxOFr*9pC83YJS| z&Sl~hy|Rt%<%aOnJ~Q207wQYHydPjE{7_IadTKfG=$Wv1QWn4BCqd-apA|LfA``LcvHcwU-(>E zS@P8FU%ZAolg_Pln{ImIdouT*dB0;koM(C^oBatfym9+S#ZTR0Lw%D|-ONG4@in`Y zHKu=FzI1ou&x#z6#l=atIYVx9_MC08m)1#9w|XsVx08ML(!5QEk(V!-cOQ8^bKQ$~ z3y$2K_%=8#xHl)i{LfU061&JWkxlrq%IEr=h;xQc^`e zWX6*|AAf1rv)A+)5`1wUqo3R}1={mjxQd0rv- zR4aq~wp}ahOkSt5)P!X7+p%mv_GXzuPuA|hmHw4~=5N3H&44eq#$fp?uQOX6eOGr& ztT`o^@xa*UNZ!(=C+1vWt!}I6*4vZIQdPc#ds2wx_YBXfge^b(Zi>12KHr?PdxK7C zG0V#jm(D#_&C8sX?;4WZrxqi)eP^L?XN#Ob#y^2dzPSCDE}hUgRC%aZGs!Rg)p_3} zL3^h5vYL-PIWLZhXJ6p6SjNOAc7;K;*19x;BRVzOd5fZRXL{NPA4WD#t1XPyjP5Km zuO{epUuYE!Uv#TLDQa)y-L*HBkDaJoyF8<}@k~m#&(qDaMyvRCAF)aId|%qRw<|}~ zw9T%%taBn)Z++4CZzuj;&Rcp=_1WjMpXa6Uzm*UA!B>-XYF2kmQg+qt!u^+ujtCYj zaF~AkecmK0zHj;F!}Zse&7UWD=>4_&vR!*8f>|c0YI6t^B=(`K|x9CvmBfcfW6(ciO<_;2WR-}$up>?eo% zIouLvr+NcoKUP+XEaKJ9wcTRK*tb@e zPh79&$kkSS#IM1{e1W>cRWF;y6yw6(_q|o?PNy#SHWy~pDs=K$V#~OS?@04q+kp4G z-t2hAP)nCVzad+RJsiZt2>Gu6Lo z$`0-yk`olxIPqSp+~~um({|k}AUUjK!CZ!^`{D$T-eD}AFI`||AeVa~Xve0PH);}W z-aKEd8f?%l7jtN*T{Cm+BZ0ha42#bT-(f zhMm7HIAKQ7ws)ll1)2YTAGGr|{M4h@euKp`ST9L^qfpyau|oGrl3^Mz6;H(3TxJq! zQEc><(|RKLpkwOlO@}$=T;WXl_DjCnfz?C8BUyVw(FAQ>h15rp+t@Py?+_S}6lSlC&pgf4xo5e0Os=8kZPs}S-u4q-2FGh>a}t<>AKxfganNtnl)Xz}TuPYU<)#}AU0o)tJwlggp|6@@}7oX4(fukrDlIO#mMa0bJj zU5|uI+42@Yx>0&`*_$w_EmhO=1gj5au8r~vDKoY#Z$B9uF!9$j-lt*ASG>PAl`l{2 zYAec5IN0-JT4{pbTF;rBFRC+)KSpct-91%!%-8zBymcRaXLu%m*&I{Ixc>K=Q~WPF z_9}mg`_m9TxvFB*%9>5{uWX+7)FGf?de^%v|7t3B{NC)-`SbHhxyz0=Gq(n8{d9

n(YE>i+J`^3n&#l|H`PrDd^d?zC`L_pN8s*Kze_mGizmm!H*L#>;f{#EX69>3`Sw zF`1mq@1M5i^^VuK!+XpQeHK{zr{a+qckiqVrwsap`%@1$y?w@NQy<;=dY+cD_F3); z(b3f_)@8;i>^SoDZf@$nTgq%3F8DVvSteI03Ni3_ZnjyoMTKF)(TR;NFD}mUUs9G~ zwB~__=z)X23;h}0+d^+9vgGZ5`-pdLAD@s)vq!iE^Q4XD@nsT@lh%pf-2Y%ZQ~A>? zw@>Qa+c`b_X0+!uyDL*ZpSyFca>}vx$APoVv$ouPdEKixsxNF+_PkCdmSa0MU7Ez+ zxNT#=g9j6;FNi$Yniv{vxkse-KfipO2kX8{VKpmLi*^3Br=HH5<})XJveQnsH!3n4 zZ)|`6SZKrH7h5$ql$(At%1Y8bS@Nk#%Qj(Jgw_2hANAW8=Y9Ax_lESuUoMVX<&(BA zIJ$I&A#d3=f%H1f;Ed&7uJgk`KkF^_pZmq8`v0TJ`_2nbpY5@Bk$rzbti%7^9#!oB zr$;^v`jfM4f3fESZ&~}@bCSZOtK=ReU7NeZ@%X-OQI}l1?BOJV4M$Iy7OOXOt6mOcGA}AR=e;CjVxjfvaa6YJJC+?7|_%z1B5!-i?@2gIK*@7j8G?UpAk2d2tpPYuD~MTMD*^?f-d4qsaWzx#azhPnRcq?l6?v_AjvYk=HV{k14yZ z)-Ba7bv+#3qi6BbM<`E;$IbH(M@&)Jx-F*5w}8exyj9A=1edZiMex<{G(M2l;U3Oh zy~X&+qLt3ulUK1!o#Z&VC$M{A z`lZc1rJ;BJIK24jm787pjAxR1yQVx`EL>@L z=&+OQf%g&0uF5M4m%1vePD$Z?oOVYu*Rqhgh*SDy|FyYIy2A74FsR46T|RZhukc@7 z+t0e-)e^PRr+T;y8FTvPgjO=$kg2?NUTcH&zqK!nq(X0|a5NZ69c4H9`6@hWiha-W zg|^9RCAZi9;ne+I^i==Fk1uso?av%GdArVR|0{7DRsCy9()o|Ge{X!!Hm77;WX!cZ zNz49X+1^uow`ZJ-@!*RLEpK^ZB7VA1{P#DhPv`gTyk~yhAb-YUEt&F*8_!H`_?#7y zDQ(fixT|A#g}k4pv|wbI&<>eA%ehQ?lVhi5Jy;iLW^j4C)kz=riGFia{7Ni0vVD`f zF0(Sm^W|aIm%i(EUUuEa?lqlniPc%IOLMn%hTdFZd9ZVxz*L4cQB$Y3h4|-I+HK&K zSftk6FMh6ao~C4$=FF0tUv|yT%~9`}Rk7^%5rGF+3ePV6u<~3{`u>>&RO<{HMMqK2u^<%D75PO!6>;+k>7>id@|BqmScNxdvlihyO`XQ zF%n@>pNu*qKh9I}y!IMs+EaC&>p(Yb9$)(5vK^Y?62ES_6bZjk+8 zv)^BXxw8zu%?Og6leX7%hJ#y`ruwsA|LT^mofDBdVVR=q6Q8xkA$^rMIAUD1rx|Y$ zG~O(Hfp1fk4^P?E&V_edtxJ?%WPQ;&@OF!{?PuZI z6sP~eD=wbgaC>WXX5iwJI}Xj;QhF|Ly;SYHE{LaD; zECq5$o@PJjTeWLriz-Wm=ElJSJNwL4 zE?kQGdvVRd?GM!W&*X^aD!%ZmviX&==dG~n)^KJ14IG;sKXirm?W#BXbw;Ltsp{${ zvDM2IXFL_UbADA}!OIO*vx|6BaQWMr8%}3LjXas!cRH0! zS8q5Rvyd~Vy)=2(QK?l=o_IxnTcd5=lQ4H4n_XZGlc3RwHJZNoKUj1pm6q= zC-(v#-r}z~dcDS6KTEaUM8!n6W|PaW?M9zYWL{G`<#b!1fVF@2(O7=nX>k`;#bp2g z!+mF~=}o<=#tSEyGauf)UcCR|zQD-(n5pv9Lge~R>$y9tJE^*?UbZu&KJZ5(*Gc`y z6D3rN*2Pq`^Vf>4nBP{Mx}Yw7^1PRdA-#5Hlg-zfe%D*9CbW-de^`@c?veL_b@fkE zWlqkTA>$Q&YR!r4-@%S6=G6F4*p=da{`tn|9_iPAo#?#X(mVI~R8vOlHCsv!wpv^< zy;-aMd*g|^MjoB*FCzW+dJ1e%F)Bf&+R|QGjbJLcGeAo8fe9gn(ETL*n$bN30soE9{pPMJW z`ujcK`|Hb888L<1A|>K8yjJ<^CFf6XcTT#i@a@6;7sraks|_YTKmAQxcW(XTUZ09L z1&@tR7AM(qmi;c+xbHGwWD#%i%*KjOFSgDVQZ2vAaAxJL#cURNr@kkcE|@8PHT_Y z1tun%D=EI#3BTplY+P#-^sLrSxa8c#b^DuiUp_jJ(XPAja|ZA2DC6v#EbDk2KHUuQ z?^d*Dz7ofJ)H9g*#+FHznX4po&S;$ZUtb-5NqP6gIq#cy{SpMggtU}5A6@GXd3*9UG^C;XHAF2`j5*30`1=lh(UbD#X3(ed8?!{)>+pN-+7 zGt)1J*E8PD<@vS2DtGH`A9Lo4>$e~N+Iz5MbFX;ktl2N0{XOBl zj&+4^L+O=o!OL#5r0lL+daNmX_7Q&v&*v)_-jPeyU@c5hyB)mcTe@?TSX&%C zHy6EFVdZSH(bwtKN3p9{WBrbl^VUu=zOe4C?CmK&_9(yX>U`toAt zgs|X1`JJ!%#h*3mow>K><;EwaUt~^aG-vKmi&j+^%L=;QFx%tl)cTuOz8Za>+hDTa zM#1)pS$wF&uBe3e95!IwMb=gkmDTwqNQyX{4Q@N?O0uW z@7hH>?oFNhjW-0E-u%*X?3sE`%Ky1%*YmxOQQP}@f>~a(VBm3?7?BXosn%kzR|aVv zR`Xi*YJo+=I>|%AD}C4*_+(6P8Qj?rWd14Yv$1S$o9*;z^Jksl)-6fg*{rAcYWJq* zcT1fLjJ4nWZF`Wm?#o`^SGx99dBNvp=4_X3zJ1d^DBLYU`f+)vAj{0y`kz=}~^lY7UixAwhRr?i6m;$BhaDo^vZ5f|E5al~c5J|W}2b+wX5nee&J zZVtN(bJCX0pAlD*@TGY5jzdAr)_2&pb!^Q#)+*IJW8RHJJCp_G{S}t%GK+Zd#Pil7 z#yLMEA1QrYqt&^4SI2?Nf+EqY&Rtw{qAADM^Rpp8v+?S^OE{EQdv2Jkz@@zUv+y+Y zPh2couFId!t@7z)Ui9vG^Z&!!0`uXo!iMVrf?zPt+7 zyLqK!Zkle_lBZuIyRQZm@Ez-WmzxpY6L`T!Poz3iLgO&6_HpNf4bmRBrd02gk=9-bHUtRnC4pH7%Ua(ASG+o|O@=|BBD*6>Q9}7Ijax3HI8`I`8J(bG9>hXO$`M z=_}D=W0aBgR(07m$NOq`iCD|DBbVl@?~i-unIjVN-cWPDzJ;sa&7=aYMOql5Sz!F$tJZni#g`qra4_gyA=w4CQF^iwz& z=vL&XaIUd3^1NlEg}VL1red)rYPru7cUsOrP+ckY_eDYihoAA~{jVdnZhw5BXyes> z@ae@vAFgaUd$WGa3+?yeuVg$eW$+Ui}a)% zR`(lo6lceHSbd-Lrde-EBd^-ZOKPSL{p*%@)ts0z-!dqaebLLQ%U}Oq!t54R5_*5$ zQs3=C!C!kLr02bS`Jk-Ar8Qwjh0E=aAI=(F<(2SVAh`OG@_*Bg zvd`A?Q#ZMA84Xa0C$ zRWq@tvG=5z&b>vV9_r%e%Eo&4Qo25)jjgko2D)5E4}^F&$cH@ zJL9S^{Y*J+ZNIYJ)j1* zXOsKk@~TCvr%Gsl@4vh|?j5_{ro7`bqpPl5IlYbR*N*;2KQBn@x_>D1Nx4^_d26b7 z@v4u?zmK=^Sxz+iAh%Ry=aG=b(!1hUe&}cX)N-L;{jj0#&*L}GbR{ZRdW04GiOE_` zJN{L}|L@Iyxu7;>-11PrpIz>4 zN7AG_tfe?LL>%AYk84)s*AecW*Q>%r-+J1?wmj;<)Y{(Q0do49@c zpMsP49M8x#rz@5Abg@mZkdkZib1XivJ9;IjRjZrwp0^BFp4@9+wtl9;hY60({Ol#S zru|O;`p5eF)M@-bS4FafE8D-dc`K^A-|64lZ^oYgm#tQDoT*ndHSUtZ{NjJJ4bC)9 z{OzazrZ+im=f>T_krp3pYJAl;y<7Ke+hb|%d;{|{J7=w{XwJPN`s3U>PP;E2FJ^yT zqvcd)lUeoCruopyE0c~$hh=@bvoiCdz>CHW^^0~L%*;;E<$Sc|@*U1F|2b-lJ_)-$ z(p#5z;Lq`pH!BTSdM^KVWy0$zPM+U3HibDaTfTXc*6fR6egUZ)ZI>;1#ct;18F^#D zZo?CM?B~}_We!N&8JFtOr{Q|tW#ZI#KD{@4R|zGFrz;ucC6p~*b%a;jG|haKSHccy zk878A#+AIPc~Z6h?AJv%q#v<8y(*i)|8ep5!(L}4WSzfv%}WSQj<$6_aBu#rv)11Q z-~Z?+-!s4B_?lHQAOGn8V2l+_T3viSW_wU@sNZ_Ni@Ny?*}dV&UdlfdD;r~m94KH1}aP{d+_RE zRpSfEQy&{__VC}yGqv{7(dFE3eWd<+kpILxLH_Gr{cVqXzkPoj+mcgZH~24X5We<* z5$7^}+y3pwf=8tI<>!4fVw%ISRrSg02YYr;o%Lvvj2uJTnosK^A1Q=v(|+8t;=$ka zsOu3qvn7|uT&=#&@olx{`RZ1umqM%Go|9C+c(Y1=@mq&eE6s1^EuSN{==w34p1AGD zlnyMO`|0lm+w6!}rP`*oDPKJ1eqho2ZqImpf=zp)`=gN8H+0sh`%OG>7F0G#^(o$R z6R%!1X`*(iB;(>(&u@+vY_p}WyRY(CRPeaUHgwhuUHil(S+^#du=)jYt(v}$d3lDF z-CegApQ{ek-*$Vk*k4}W>Bh=!Cj}09&M%0LvrKh;lf+&YtpDj5N3CX6AA?}@#c!#f zl}*3M{q=I?F>^iOenFTg`Cf@(M1=fBU3I}}Wl?UeC7Mg4?yZjeQ5fkgaV^30qTzwN zpR-k_Fch*!C55kxUisR=`-9rkYawRmgbQco-FjFUpuE4;ded#8kQ-OxUT}4Kt=Q13 zb7bP@IgE-wP6%vz+}L#d>den3jkD*k?kiTh)A22Ng4;Bey5xeum+Ctr&N{B;>fO-6{RsPe8m=BUGq-E!Wn07B1SJ+tm3krmy(cxLijx zdQU8?!9;H0Kwe8(TNOgw1r=ew8lMr^qyTd ztNC}=t5s+ryF}fxcCn~yie;|t9tw+d1C&2aIjJRgHwl5Q#7Y5!rjZ`|7}Mf0WzeMmEH z`?0~}TS`hx-9k5&%bW`ruw^mMbJ#kK`^H)o5AIt=yGl(nXV}b_H<(nmv9DV;>!Cx5 z%foXs|Mql!+q~rGl(ue%n-gzK3GZB(zD;zSd)=c?+uqI3wb!guGFERh^9hLI6SH5+ zw&3S1+bc1DL?o3rM6cAYJs>)Y1-SWIxGNjj=09KN^yJ*=u9b)2+Ml4kU`dVXV-c~>GExItF{%- zo>CzxY8B64dh^Zt=(~!uO~n7&?iR{!dRBf}>e1DAl8Ld|9r+KRtPf`^D10`zdPmtr zTe(j?Z!+c9>MKQ@UhM0?b4A6@#jAa}y54>bJn=KbG3~uoE_(c1i~1jIjISSozv zs7;cmP`T*@4cV-srX0CN)6Tuov|YIImoF_vdzp!g>!Y z_Xl=zC*)2wHJ^)9Iv#U*=GG?(?x$}$Po8~Y*VM=BxZf;2a$d#!$jKAyZ#*}uGn=_Y ztvSKy!&aF_-AC#6{qeE4tg3E`t*|}L|K(Ln!A{1>%C$RrXMFBUoiX*!1C5f`C5zbq zu(7Z`{4{HB(#)e%7*}VWneTpWA+JsQ#^{wN4Y%4TuITMGd*}1-wD!7J!dqIy)?K+E zHp|RDQN^!o`~0rX)*z&I9FJMu!iw8I=O*pnw%<`>{_Oi|d`u@oCP?sZOquxDsCA>? z-$yN1d*?Vdsn@p8Y1G)U|9QwO*#*Z0ufE*gd%SX0n#dgam9vh9oXvB-`T1@>@2dX# z6MbxpF5LBs{WM3{s%M|iFP~*?Ji%uiWjeV#cFkL;t8gUC>y}@~IV-fF2--f~&%;4|@0e=o0oIkC`cn#)#|ABJ`onf*>-b7C9R zjn{+}Oy~7Ak@8nq{PoOJ73=Mujza7;O;64XJlBz2v{L0=&&DMIF*=@KG6KWXJ-*D! zVGEt4!K>maQkcIvxTCUXm<{0*`K4jx%1+%}C@yL4IbgY--GTdTLcyb|x%XM4*m zO1A6KtezvAVq=UeEla*->*~MC-##t*R$Zh7$A1;`(r=5sKZSHifBKhsy`xyjvR)@o zXp;EhQ(ET7QVW~){dN?dlm7g7l5%L>&O({sc{A@s+!f%L@0F_Bb$&M28^G!3J ze%Jjaacsw_`TNc`U7k?!`^#?`BPG#`yiBkDrOBBuVGX+8x-eAXWz?GbiSa);&p6sk z?z)}NEtHWzRsMN-VV%a0CDGem474^J*|L6p{coS^!IewxY7fRcR=3W3@KE*B|6K2+ zUSq~vF1eR4g=w96A#?cuecx|qA0~JjC-MlNzwm5{(cLqQ3t!*2T)ZY!TFk%8PRg^` z&i3^ClS9k%KR%LBto5rxe4<=XIO|H4**%96cBX&4 z*e>_6r9ft5uy@P!cGg3ZHVahtJn78&ui?DkCNnvEBm_fFlA>2F{#>Fp=+|C3bv zk39)Y(#hB{ZAaUWtRJ7PKX&SPE)LQZeI37Pld)!lvhRl%vM{N7<6tZc+_yYVka`YN;F=2vae*Ph#iI+uyq?p9r!)W$WVw(&mu4vb0_04-X z+}rZZ^W2KgDp6IRVDCLA-s$tR&T*f9`;wsHoH{8PLH3!Fr^|mT*F)+!&yo+TZ#yyGNabJ_j<=Po9@WU+_d>FZ~dmTIT|RND6^ z`DCWCpZk`49-VsgyE}qhE`&Ke-qdk`^`5SBfXtVe8t+pa+tgm3*!{c2_=@+LYgPH> z_td-NW{VuHZBjiXIP=wS7k`Du2V#05Wfx{}7AJZIZZO&%VE%g2OW9hUb$bGg?8;xb zrGBng{@tmqT4xlmx#^Gix+yxJXU1wy+-_;PrJ{V_SGGlMe_mMcXt}(`DA(kpsd=bg z#oI-COA8h)b=F7-NVN@c>1AH&eYN$~WVgJsh?T3^57ly8oU4gm@?Z00bjh^L!`xLi zRjU3Moxf|_CoXy6peEjHpc0s|`a%?wa5Iae&tb3L&V#wyrnl7vh6|3dpp;DXgPK*f?d<}=WAKdb-BuH;@2j-_$$cUcusmHrM28o;N{J0 zOV=&j)V}tXTfgAN*_rY|mC|axdNQkAR<`O!e{X%Ky!&{;AH%dvRc@vtDW8;6VmoKJ zY?M8C+`)X)3HTeWCbuH^w%;|X1o=-qed!^6zk zve$F$^tawTtCuEWAo|H07DQ9Q*)?F5x_0(;DUc6eZiM6TD1JTx!S?{i| z`OoXLPvx82_m1+Il`$@kI!R>!Y2_*r|pR^%vm&5b{&6(?BxemEB% znfs+D@8+qWd#a)>Zy))oyR)b5d`e+t;w>y!$29T{lA9n6zCEzTYw_ z;7{E7_g`An4(87L_`7x4C!4Oi-5TptepF{3T=CfG(&r|z64f^)`q!4TRV!Yb&K>Ge zG&$61&dZGMi66gdacWOFku`xys{i^D28X$}$Ez1JvHwXtefjT9-^Ctb_trBDdillNYc6hlyh@?SR~DRG)D`rQam&w_I}UrR_2zzJu9~zc(=Sk@aIbe)S7oM=oZjOn^}6Lb2k)02 zIheH2Fe9o*uF?Z`2P*#8jpwa+{^dvUcM>i-P z+f>U}ze&|XiV?o{)mpS6>{%Yu@2-0(D9n^z*jli!y# zBG%e5vxxZ=u7B3_sZP(cT9tJXOZW+D*{hf80#NaEM&wp4E>&v%m#vmC8RoBx7y!d+F*(q&Ie z4A!fzXRB~+&D5N_c!z{`z1tL&K)Md-qM!zA5GR?50wTyt~zPjzj+@Gq(nhShQ3xEHm(nhNN#( zh^Mu~q~B*xMAzSaw%;``;Lf!IzOc#F`P;96oxiH5+}FLYd{T|ujp_bk9(~nq8Q)!_ z3R|Cxd%9c{(+gVAt-@-SDYWUq<(btYKF;5t8h+0>BT?2V_Z*w(z#!v6tf%~6{Yt#iG_ z`McIsS-<4;)i5tE`zyvF&;MI5>&-Qh7hk=@r|t1ElG!|I`bx*Nr&DK6J9YlE`wZqC zKEIDVHnP##xMXio<)jV0hi>kkxMiYM>au35y}_yu-@=xh+R=U@;f;{O;d$RhXX={I z?v?TX?!E3xNQ%@Zxid`+f~&rtV@i2{=i+PA9sMy=jNYXyRK7Yq^Y0RNmVEP+6R!gw zTAjDuz1=|YYw_#93%WCprLL%-9mOLU-tog|S>s_3%NhQ6ynRq?j9AAXAzgol*;Jm#%&;qlQs zw-0Z9S)}mftH8BJxenIX4*Uw6;?7%LVAhbV6}+}`mYT7Ae&4+Lv8iv@uRNixx-f3r zrRI#veVrj;u}_w6J=VdoG{#9)NR zgU5Z}>z^33q{Fhh>T1^cXEz=w$)9X3)h4uD{&HnZd*`;P+NNT2pO%$+{#Vw0cQsP& z)1^PB{%yWw=Ucadc`wVGo{7=TH^rmo-jr%M_4?$^xO8v5CZ9{P>YZQXqH5mfd{Vl1 za{G4s;;N!`>?`extC(WjcNEC`&De94lYPpPnV;476qxtSUU909p)q~U$->z&1-Z4qs?h}svPfBwJL*|7KdvT`n) zSw+#p&ywce3Tx1q^gw&tSLgcuYJcB8oY9w_XSmj4m2f)WU*3CjwAsX80c16BInF>({v!b%u*6thqH#7iHwEw_e!pUy{3E&hA}L`77SU-Z)vtD)(DL z_OZ5D^e5H-HBWN>J6yTs$aM4AYJ-b1npYVzv{Qsit3E8$Q^;uNaq-=DL%v)o<9Yu+ zF_yQwhiqTnJtq)%&`fow?QNY2*6e@Mcur4>Vfzzypj+1WIA4Qx(kllxU02pxsc@Ai z zJo~W5of@rEZ0{!j{r&!v^)~|wcZa@EVZ#nv*=p})xTUv-Oy@JZ_j=Acg~a&RB0e_LjZ}VII&OZj^VrACy|s56KPoK3a0L|n+!E!IdSDg$8E1V?n>=&N%_U_TZw`q26 zGL>y>!_~H5DSDE;Azq0|gMn*uv1l7$#~06|}L@52-9j)elHaPu2HLP037j%CAs} zHc&87Fts#QurM)-<&P*v* zh~@%?a1fUn$R9ymu?qUm`K5U!3PxNA6F??HOn@5ToLG{Wlb;SV31mYMm%eXmNn%Q3 zNuq+Gp&6PRK#oQ-0TJL_`u+jF3Wj!e(BK4zKU8IqITuJ@5W*qg2!Y8O8gLnc9jzZ^ zY{X>@N6-HK-C&r za2Y~PFfrgVfhsUGVMt2AA%zxF5D^_N;M4;3xl>|s zDkux-2e~`?gam0j`vwPl8XADJl}l=Ia#3bMNq&)nAt>nwfm1zLic8-uv#7YlIU})1 z!O*~1-zO2qF*MT;&rB)FD2`SzH84;xH8fK&0!N|&oHpPBMKuT;n;C*ioxJ4yl+3(z z{qW2@$GqZ9R~SFIG^qqs)`1EAek3T7!FlcwgN_ymjKPyv<$>A@;*WNxki!sh1Y;8+IHh**W| z1?fj%tR^9;#Vc=SV1N|f3YL%<#gRb3vd~}#ha5abfs#9%gPz=6GSkvhi&FEFQ;Vay z3=Q=Ya|$vNxs1&9i!;-66S+(+^b1mpGV@dPlk;R`^^0>7i!)-8QYI+2pcaFy z0_Uvoh+ucG2yNeBM_HRzPSM?8VwZ8%(3Kts2Zeni%8)R78j`0GgL4!GXP^#LkQd0zzog@ zu_3ZXrltxOhUN-jKN=cxfm9nPm>3x5_n7#kZYm>NU$nVFd=n3x$Wm{^#iqyUf` zgK(w*kSsKU$V~x;M*3-)`e`{x@s4CFJlZ21gPi?B!4-(15xA^EDuF=-5>c^kjEHq3 zNGw3&1b=uND41A)tbnO9wlGitVG!TQ+)%;T$V>r5gUo`c1d%X|&<#=p!XSOH)L@`s z25u9XT0q=mW?`ma1g=pG6ikgQ6f8_YHk%t6LCY^w6JrH4aMJ^73OH4O>;m(-K=E#& zU}|8bU}9_vr;RKv!F~XV8yOoY7@307JBVd&ZURwdVaWxO1z}LSFg7<;Fg7)Y$eEZc zn3n3$M@G1x~asRZOk+^Ga4ON~^*Wo)8fSejpwnv#@Ll$oAU!ewa$7syFXE8#LU zGS*McOF=C*!HrU={qXeU>+0bV=?tzGF^Wxa;NVD47AA;N!~#*Bo0*eSVT0SqcwALy`i_Hwo6hJIXQwy-D zsktc^NHs{@#N1fH#MBs^vtVKt#s&%?IS@8AL~g|@7=j$BfHSi}q@giKcA0F9S|Ec< zD5#n69OU93>FeeSZW3db$VQ;@1y^doQ4yONfl@ap3g7{ZEj8e+B0u(+|I5rl7PtN>zL8k>W~P0ftB!0IhQslrmh z#Kc&^1SV%`40f)mrLlskr7=>rRxmVxw0v+h)gaQ)7$iGYfNE-_Y8u>uhnndG>*#sA z1$afdfSYHSr5C7*!;vV=%@F0Pp&?Rl!yMEDrz}x`@)B}r5nBj?hb7QG7#t897UZGr z>>GsXKS&&a!xz*xNA69TSR(vqitwJPv7v&gF>(ec)^Xs05_HD}h5LKDI)XzVOP&NJ zXB@$Ah$By$g2RB);3rnUnFXlnXP{sP9t;6zC2$E~W(Z0-#F+xha3-b(3Lp$)8yg__ zAU1?&WNM%QD&9eUG&KN?LV;{FF*H&zF)&atHZoN(H8KU815s~cj?y$XGytVcJOwdG z8X7_1BmwUkf-(!7gTI@ImgNk=eFvzaZkahHsYUv3If*5yE~&}+DXIECsd?!o848AG z26lGPVc&{5vHpg9%?3PoK6Cw7U<^CrB;FP#`j)-v@d6%;Kn~~nc%cQ(?VC&XS^w1e z{m^WKx5E63kGq8;j;mdIwY`Hy_-vnRXmjBVzc4jDD~_A@ODpP`4(2ITe`t^M=$o2# zYL%7K3*NPk%C2XPJHuA4+qzBo$TNQ{=E=5m&%QgeA~ab1|I#NJdWCmc?j))BEzQiF z#BH(czVX5KIZd*UxYe_QP(Ol#3Y3-f9o?Ng{oO$A|458{X9B8X zgY-l4L-R60!2lXF!aXEoVu8qsCKme8;Uq323*>f^f}sJV?~JoR1xZ64Np9?#Sm+lN zW#*g%wsQQBRI)~YFZuoINpK^Vq^(I7EU zR|ZUj^B;@_QUSuCE-1+VFjWvSWK}RWk$Kk8L;++52t&*Uv5+yyJP;o)%Z0)N>qb=r z<)K!RkP;AQoPwmGflqFn8e2koB;fuDQp6e>fLfJM!|~-@LtHs`iC;&n9?#lU+vGX= znvEW~DDwQR^=#miJ$LEnyC<99w7))}*I47yukV#0JKLi>URkKe#8NDj_gJD;#7v9V z3MuuMAO7WJncev2-1{oEpKGoxU9-xz<=zD$lb|a$6Emj1ipsWj%=x!O+2GdUn>put zqD)Ia&iCqjCiL9*fT`P~kXh5zb~YscvK6j5p?O1LpQcN&5|*rsvJL1`P7_rPqFTnZJz+5!d*KNy)Kw>K0F4M3GHp5OvW zL;Xc=a2eqk?#n@_7w+BS1?Ms*6@uTGFGY*I25-T5? z{I%ZnTi5WI{bHs?uB&cM4B9H*yF_8ZoG5RuMVlAxUR8Z{?u$l|BYGjOH??jsx~MMa z*|f?zNZ_GDRPo$2$2Mz!u7>HM>(&)kdFn?#_h5YCesSKERg*K$TAuyps9jOFdW+&- zyKIw(fn3W&PhT%udfD>h`~N4sr%hRDa=$>Up%*jrf#<-W0SHfku0A0iZs2jVNGyGJ zXoD50;siwkjwES-NRfsH@Oc<6@aQ~fei+;_g(g0f1ZipjN~|z-AR2^0Dq%E;4aQuC z1_lP8J}#JtVhWN7IBA4PaP~HqYF9p*JYD|K#v4w>K2pgH3 zqf{>7c`w}A2rLba9dfggfqrggUTHCxv3_E4NorAMadvKENd}jpseV#vPEKkGm!Y|S zYGG++Sz-=oo`K8AKtCt7xHz@2G%-g%y(l%YB((_4;W9GOFV4)(%tSm3&g%hW(WH77MUHLrxr)I>ioH9fH;Gd~YJC!wF4SWsM&uV0#%S(aK1Vn%uhCx^gSbS|Gq-LNgycwuq4xZQtjqZXlEba|( z3_73|rNnmKz|+#`{y>=_#TelRk0Rm7mpErgL8HQ;@m$b2FUTh_8k8GBd;`!3FH#yN z*8SkQbaeMShIo00dV{;3n6*5#oB_?Yf?D&)9b?pvKT<@1=i6}wJjD565=%BVHnUIw zVN(+m1!DtC1xr&?1v5~@qNp`BA!p1Mym|oL^Zvg6&W@3w-bt__hVKnQ?G0RUhtlsx zjEtIsJ9^~!-q_4k0fa$eV`OHiU<~d%o0x+l-NYOu3Lz0J1Ro>@QU{{Vz#~cq3Z~$A z0QJa?z^g_K6imSl1_K2%OZcROk&%KKI8}fKOF^v~kO^=Mnv?+b$SsT&ObpExOrW%p zg}DOAZV=zd$VkD+#6rQu)La3?Ha9Vas53X<0?C80v5|p-v6+E_u`y^e12imV2({J3 z7(AgB%cT$NRx22S%WgcyF(^qwqmkU=7(8`_R6c=6v!Q0f%O_7yUpIeW(0CC>!T?XC z<473DT{kntWTi1|+6sHs$Yp9~sep{(ai9Pi(Et^P1_~A^6&JCY9^7R__Z)Jeh0!fH z1SJF<-osgDfd|A)EEJ4PA&!O7uw)6Ec_U{m&k($l2kL&@%}dOYlfw!;cPd-!9UNpA z>%5$_F!bs-<|8vY6xjrgzI^9Zd3oWX&fNEYcBkuh@VzlU;m-AA5zo2JzFS&M6%Tq$ zPG4ve(f>1{^ij^D34hNX`K~UM!&YRyfA-8L!7FQ*eiLBx_BQc2`N3sT?yPmC>x7Sd z^S5GJY&}Q(ZfJ(>t5^0@g>+TV&2Gr{I&|ZWAln;`{75^YPkQpEhR}b%Zfn>2_l*SH11;i9MiCSqwJcnz53|yi^1B=`k zu{70B$uCJvPEO4$LC&@4^)aZOh*;tQo(T6#%uUrtu5zHUoNzBPib_5kF z3I<&I!6m7=VG0(eT>8G5#l@L<>ENMa(26uJ{RpTjCZ?ub`k-}+!Ko!0`sw-^`kDGU z`X!oR_qt`~q#7%LXP%K(*Mj-bK*X$wxKP*HIKzhY&CD&3#yxcXvps?n8UDU|_bzwc zMx#iDt7WdIIG=GlhMg91E;78I=^U`F@~+zK@^jYDxrKS>)~tSN9lyr(B&Y3+zneAc zePlJh2>1kcoUjiJ*#GO@4o=-K*Dc$NE#@>cE@ViMP}8~+7ABUS`tP~;&SHu3xC5~V z6!Rb4b2nv~@*qGdrY9(Ug07sT-@;p$8IBw5&R#HKW4VQnnz6TL@5+#AUQ=hgrKYE? zTEQg!c7w#%vs1#(&&r%Vua{Fh^rVEY$!$l?t7+4=#-BV-d-VQFa7)gwp>wA<^GWq}8sEmB`FJ~&3PYH_;uJ~CLsd6cL zb+GBPCsSFcr#)A?z42-PgJeCuCJFgtE58@!3ACmj<}MKN>sH#fboKSsuiof>^4;Pn zGGWiB0OvQ8)=$)KU^)HJcgBuCd%T~^y=rpi;@vN|dC3a>YttS%YqH<4%Q}3qDn$3R z+U?Dq%#+Oj{Z+fIw!b*l1;i>v*`bEgO8{DHp%H3c-)Q`mHZc|eu zq}-j`ADa=BD0A%oXz8_xbx{#oc$!8rs)}S(mx68b11dbi--&*47pNS^e5KWWT$!X!ic@YgN@OEGaOU z>J?dYafzy4TizwdB+J> zv1D!S?yI-dzh_Us{J2onhc#fuOAoiF*Vat;Jm7PGUP*S>lj@JMD<|H+th(vg`|MjL zRX^RoG2aMFTybtqgXFyJ5kDDOc>LuiO}~2kzRmly>2_A99=9xB*Bs(ly5+Tc=%Jra z&mR@fe)e_gPqvwl#neumEm>D!n#^UnCZ+2_;w0wWedpF{rDttkz|5Sv+vRHc-Z^pi zZl~SMaoTXMLGXvzmrViFzDp#OPnN1*DL+w6 zZIW^Q7vg8yzh8=(zrd@xp=l3q{=!@n4$EMmIdL;f69scqcosv-U8bnH3&e%zE+Y^R zYYhs{pqN!Cyw(ISgodnoh7D4Jhb{HqF3!n`BRRK(*J)RpZ#6A za=y*^&-*N<&24>Xv2U-}a_hLLqU|*y_nJ@hr=C2j70~qZ`Q>{u8Uc=u-=0(*|GVP1 zUCRAVp4}T{WXiV`)gIJx-+VkX&&cr0y<@c{nU$3{>wcY_G^uFUrL>Y+(qGG>mZ$r; z&7ODCBy88Uiy3A{a#imWg%6v^TNNC5TbBLRZ2Gl_Ije4LpIW2sBzeCW z^I1FZU$9;BrEb-&wINS8m~J<6Q(s#w(c`!K^qrK;uh*Vcvu#Uk`CD)_xV`Vq$>STc z)<`VgAbZ0vNBmwt^R(H4U8%|8g-q)Y>puwpSid=IbKc24QU4}SeWI=+vsRyf{ffHy zOCO%s@ciIBKcU>B&Tv-G1SbVMdAaF%qHRkzh)79Gboy~H9}e!`{+}U9uk6^O)!}kB z)w4bs{k?lYh}U@8PwV#!jxTDCdr;kA|6Kj<`KYYdjV~Us9Y2=5a)wK6)SjkI4}>2* zd-;8}*K27f-HP}xr)N4Q zHgP)$a2SdSyXsw$U1p}D^5hRc-`4CS0VXVk9rO7&F6?DB3ArKql39-9+UwN4iuVQF zPfk+GNm(@c^X~)EM~>}DGGLgrG!(eYV+>wvT7+uKu)i%tz%_e4IX>X+FmXV(n& zOMM4SU$;+r6kulhwRiLC$sgyZPg|iKug~wx{4x8>j;#k{^Xhtyu3XtF(Gaj){zlbu z{(a7$%|na0lT25HRPPPa4C9*WKBax@Y4`s>lSq;`&I`%uN8-hTD{CjksCIFtOx~thRrovPUY6a=>9Nyv zPRR0$izM8rpR((AKW52khThf0)iS}@Z2>Jf4HS&b3>1tEj9?8DM5$?HV1(Qz0drxc zrU8y7iLoWNCJDU6MBg)kQYeC!9U&KrAU?^3qLC$XgCsd6Au%Z-B_-uEZ`l`9_KhKR z9>)JBB>qx7edq4q+GF1>uI0%+%afaS_5O0MT7Qv0a>xJMMm03HPBdJ!+*b?HgEd`n-1F2k$e!p$xly z`F(axd$vSORD7D6*iy0QYR{gCJb#|D%)r3FV3UzSnW2H9(WV#wUp)BzZ_n>)na5|} z$DMJIpV7T8Z~hd;!k0hpQxXt zpRAvv4{G~@w`xH9x!L+T`nmdf`uX|=`bGN1`X&0M`epj%`W5<>C)G{`s%c$@bwtrnCH*KjZ0t zRcD8zz4ztp1vt1RHYAi?7Vfs`4miEo%XG2W*$5* zsK(h;o~owCSs~G;`!M(XlXlKct(J@KSQOU8IVA-Zd1;yJ+9n@VmJn;yJ^U?U;tj4G z`EByn4YEi065BVvjSvy*a!uAxPQ0OggYQjfj=EUi-oCeo%914|_^X?avCi%-Ws~8_ zm?wJv#<>^s|6Y32ci_f>`^MSN_gJJeT|al%>bm9o3ws)WvOoKu>-bsuc0~W?5_|0^ ziN6^w@n=8rpT7Ig^c}+#qo%T6g8)0O)Yo^}rr*nb%O2~ycK@-4*urNx=3jkzr)tr+U5l@?SJ-}dBD8f!h|@k7 z-mI>zstcZ-@MS%>N^0?8j}6DZH}d~I*L&`V*w6Ph^ZvCTbu9mz^Pgq+r!9iB7~Mb5 zNPZ^!QabL3=uwrG@dklWg3=rJ$k%YmKYagorx&ZhmC$7_d`UAoW$g5ytac2J@(A)) zyT#o6?@*|icDc^XU%Q1?d6vxXoVLg^X@Q$PrrkGbezE5DidR;L^BwHIg;%e$_10Z-<4RE0(NEjU?z(Xc z&bIrZ*<=*pSC+Kt{oZ|5M=UBEb7U>=m#}@f*OpwJR6K3D>x4aj+mjbDF85!`_v^x| zm6QJpzBkynKrUJP^3+!@x^XJZ8@=L_RQ6toxW}Nr(DiNeKGxGbVFe+Y3qBY~oMB6@ zbv3P&T5IsE`Vo6WGt-3{k*2VJx{J(}tjtiUgFep7k8mM#zz6@E1RsO4ev#bDlf9*&V=~z;P|UIh3nJQP0jyZZ|_*J|1fvHxS7af zos#x6tK;oXb4_OJ8Be&ne@<UPf}veoj2)3werKIdmBC<49;!IN@l(rch>mr z*DoAV_J=;q{_A}sm2Ixvslx6{^JXu6q-lDjY}IZReiPTAK8wlI3wb`wShVih#Ao_8 zi&-6`mX1}@!M{CgHQwx+{Z8~*1!}P3;Q)oaj--+L|+WqRD)%ITqmwv-9nfj~k z4u?h4`rW6b-J+{6*uTo`jIk~L_)Bn08Ozd(=K3ztH&^+r<=`r;{8h|;_yP0l)?fTJ z^99`6|0U*kEt=P$^MLvKk+tXTX5L)8ZsE~qQ?{t`L@#+3b(zyyX>NIhAz(| z`zdNFOLWinpSPSMRxk2FhZLx3p9uc=lFRS(3!&x5_HraH zesOf-QAhcO|0UC+7e%`+m)pg%_{3)h#>*jhgmeY3+|~43?HBE2xT5k(R@TwBc^mjo zF6j4jp1yjo`2L2TH_9PPjB>9(`+LB0kxbsJ&kJ{Mm0gm)Wchm?TMpayM<%y~d<|po zvFyBE#+`b1(@ti#;{o?24xj(LK1p3eL2}FgH$VTK(7N~U@x>(8iN%(;R2crOWWJL0 zP~_Bt)z>E9^JhP|h56nK0kxFVi@GOyR_@srQWqkmcT0#d>qJ{k^yHP7n9KIWrA**r zS@gJ5_Rze~XLEf`TZ;47?~(hk{`bYl=Ojf`R8{_O59};#c>ZZM+bf;9%fv2SO5C56 zwT-tze_nIZ2ZvI{y8hW3JCzyERtkT-pSZyL@#~wHySl=~rfXm2S{vruqLCW4Q|yS$ zPRX3-r$e~5MsYU3nD>i>0I7mRK)@3UH6DrJAAY;$$hx#M>ef0X}_PjnY`w$Xhm)cvGo z`?s!G(Fpb@$(BzxLP@)j+>pngWm_)65&3I2BHx6}s2W$(|++R8I; z+2hj8HIsTK9m+Xzv^Y!js$Bo)kn}&DKc+IhdLARHxG0VF-JC7$J56Skec~$qeI(|l zo@>pS*B_?I>?9eG+*J^5Z3yWgF;>C-q^cCIv>yXac}xkXPdZ?XM){8C_O?U$vu z&lg>OWNL9tK33+7?ytuR(OUw=LUm3(DH7^aabWaNl>H&LeB~)t(;Zt+Oq@DBZpMrY zv&_G}?Y)1uKtSVwd|cx4t*eu~cBeS0uAjp3Yt_aH_XT#h%Mr6<59V%^QXxJB)I_f8J6id*RN8Ir&b-vCloux30^(6&knh&I*bZhdt$#e5#|NFn;UB7Hu z+7jWCjmsB5tJ%Y0TlVtK(H;I`>_0C`L>;SpAS3tx`WMSnPII^4yOooxx_*)P+1`>k zzH>)a{69(QZQb;wZgIHT_4{+Pz6d35o3mVKvgCQs{?jk`mm92{qQ)>ULfrmCs&Q1P zBTH@EBk@hPJC`{L+M5SI2)Q+fx6dtU)=QiBU;EcyE||C5s^e3`Rg>*>31HVC{kyUp>o{N467Up7>*zb*PPOZc4dF}At$ zuIzST50l{iyf3cu(6ge-TIR#)Rlg1}y6yCnUasZI`t(Xik@=NvSD$Y^BGc3B{XnR? z+)HKU&n=r5TN<5v$MNISr+%O37dfL?yowe!6n`lB^wVtl^<>p7znkmMxkLx?sAf5- zp5PZgp33xm-;oW++TXojxZC~0!T0MH?F|Tfn)T+j%r3SHei^+7t1D(H8O_;Lmv5Wn ze%^2Y;h*=s?dP^9Pdulb7(4rIj^hkN$tRHNP-BxOqcQa-gG~qvp)5<#X#d?Q4xVkl9e2 z)&C$uQ03f?DV|(49%q>uTl2k_%zGkSnayvFD|{x(KdJY?q_A`BS==4-y%ukKe7{qr=hyv3i$5*?B++M78`SHq;I6*<=XH-= zM|J0yFHX%^IekadJ$@HUdqGz%&e}8Us!rG4uG_Y){=hXy|NguW9h*Zg$q4xS@~8J+ zU87!dCgRmohp@ie@>z~IQ?KT!iKfqdJlouA{tWZ##l;6>%AYo|N_?w-zsUD7W@i|* zsucA#-CxQ{*x8)G+Rd;P7j<(+`|w zHPo7${n3!q>Y7%lh{%c`PySAt-qGY$srE@kO@W^=u!}<`AhVmpi*ad~;KxSMz*}5m zOe-2fq_$+5UR||yTUpwzce5=E_x)$d`Cs$k)S8wHaj+}^wr zm&wUa-!Vt~OhU^{w?px+(I@I+C$2ldGP`@j&W|r=3I%gl*s-2cbG(tFk~Cw=+tziO zD{r3qv9|DK*yp5Y(Kq#?pY1qsD(~Z?)Ub0Wi&ATRu9#`>U-8AFvM9tVRwa^k`H>^1 zFK=G^Y;A|Pzkg}e77b(L%W7JdXVqMHmR|kC8aDIe%fhhNPcn;A+ib3#QcjKDHMKru z)153E>)9XWuTOb$PW$ zZX#VV0TM;7+!xiJwB<~&{^Za-QT>zCy%X%ZuKP~N{ZyUar?!LiML*`Pn^2K;meVVZH3bc zw|-Qf?5ftPw*97Rj^t{g=Uw_8?iTXvChR`&b@sojS5BIo+H$DmM9!wjDUs_UTW=O_ zHrp((&f<5&{NcQvNA5UlOygL(BhDbyaB-$$rnT%)rI6C#;!f5GE&6!WO-SbwvxRJH?ka_Kyv%i%R8IJ7vA022t zEve6EF1zsoxwMP~PMsY;3)B7_-!yA|jg9O z-)g$&{mBWNO3o}5mQ)K??o++~D_Ep;H zG+jLuBDdu3l*!>XC$#$<<0rD2y_j(Pg2V5NhkY;IdACF5=)D{p-K6tR#ZK+vUe{hH zI%nl#gNA8JA0wV0zCAhHh5P!O_#YV$Uw+LxU1^3>i1sTR);!M%k%5*E%;EV z|7U?OSNvMFsEw~L`o`B*e0K<6Z_=a0@cwbtT^;8P!5xy1E;X108MMCtYPBq?K!o$1 z$vLTOtvUBLMjB@KCq-#SUzv1sYIUJtNYuKN#F=&%o+xTx)UDa+Y96^{@+Dop9EQ#l zx94ms$XB@=RHKuwkbFbhNXPa@sfx*M{j>Wly8gxg`nPU%By(PaZun+{xouLZ=Nnzk z*R0-gbn3>Z7faW@U&24Rb{c<1P~q-Sga5%B-lg4YOXOZ#z_#V{{pvfLI4iXEQzvgZ zwEJyHb*}lmYxh?XtjeBWJ@~|x)QSHdpYmFLKf1d=Al3Ado#PK-$3tsgznL^?X$9vq zGwB^l6Ym~!ko`PqMM2WGu9kPDPc{5)r4M|1Yh_-rHRfQ`emjG_kKZ=jQMwgXX;By- z6x!OK>Y7>nP_u?7{+Rf|j(uk*e|yQ##@pR;o#Erdt_y1t&g_*m`t;`YHTU!Ec4uyu z1%{O>zbHAhyYWiG679~G4Nvs@)0-=gZ(VgwPx4;)oseDgC%@Py`+oKE#ZEt0a6B<7 zKD6(Hq-flfjaTPASP)3Id$%M}>+13y3v>J4 z*zEpXQ>LzWe&>O|f{9s1tjbqXcsM3|=ls~&dv)TB=nbDtji!E3E}l1UZ`jq38+Af_ zcbYxEtn_$_;Ed1ZdwC`&-uip(-RI>-!cr-1S)mVZaX!;p_LE!VjUZ?Kfik)HJGW<7 zm{y(m8=K|Ha`Rtr+m=6ddE|7Kx-?alx1v5FA|cTzu61v_SKUJ`tDnlu z)7O7{pk_0rJVorN!^DgF4)T{*ivHQ6bXVy|W4nbB`RjHv^~^QZ7u)Jq9sKyoBSien?>*bOpV<1m z7udmf^`6kd@}?=rckEfRX34%iiT5M-@XH_VRoz{syLm(U%JQT`?S|||hTE^)O+9(7 znUnYArY}cqPg?M5ubRqU-lq1%{gKGIrz`C}96r_dORec(?we+{p>pDnti%7hy1u8l zf0|vsCCSg)=Ff{W=Qc|oPu(&>!cOVYl3x$E-deV8+mowh2XA_A>i1B%&){}L`Hphp zQ?KvK`f7i)MSZ({$MnO$`-`tD+n8DUa@DfU{CoaQt88*q+s|7Y9TS#EpSyiK`=)J* z-TO8CG7E2Io|O=&+jX#{@6gM@i5nu*54)SU$ZlV}$3OnpvDbOxhxtWLS{?Eek2$|{ ze&F8kA%`ZundKsLymHOwt>uxGi;M$iz5b%{z|nDcB8SZ{L6_^3*X86-X)V{#+S^wl z7Z{ea{(j`#TOIm^dt+_+-^F`**f^&8+|8?xrubIo9{xs6v^!#YuzmTx(JnLt_ zLg(8}n{_kaJovqrm`QO9RrNl}(b$+8Knf9~vKwC6SWvh#c9A;TP#jRukHE@~W|z!Cg! z$25+~C;$DbU%&k7N?v~P4_{Uo$NDK56dpP9R*7@zsYjNg($&ZQ`^n5$Vt3~+i~XU3 zr|C0{FC72-zwE?<-;tZy4F8lo{v819q>n^eBAA52t z$LRR!{&(x8uRqY@y{ga>sLyrnXP;=8Pgw7Eam%zBpC9EVaS4T$uKHHteE9b6)k~Wn zohj!&J=x&-o^xlTw!JV<-Pe*Sv)HJPM?`gI(j~9TJ=}_S&p2ABG$jihDxd7^$hK!e zgzNE;c_#{vuKrTV_}Hb#{X)-Er}>BOIys(KjY_{HD;RTa@5%IymX@=(3xphcI(1sw z>7*ljckEsE&(<&AS;g^#tNBEUrt}pL=5T$oPkvw@btr z*MyqLz?Zic-CY`UV8f63z24WXb3c`TjV*ljx!~ry1JY&uMOG_ReB^EZrka#oc-Zph z+Ro3+Kh&0&?n>NyNB2;)o~cS0fBp)d#bUQKs(98soWF8S>(gyInwRy>IUBS#JzF;; z#96QY(d5t9?SE~0^@4Xs%lV>T_dop(Vmpk_~!l|5!=HhkXC3Di!zP)jOwINuheunho6QRpa9NTriq3(0V z=Z%N<|3AU-q~Yj%iG|C5RXsEdU1VBo5xnF0{wuOuA25_Z^4XTK=%I;DoAZ7r8;Of< zudeTZs5vd=3U{NaKvaD6`AI99lcvtBYPxdf#>R7ZwroChCnh%2PH^FW=JJ3KSXK{$ zPvwGkRq%EqF^={E_aQ+Gpv^5o$L^WIrc%vJP0cLeT}U%?Gvs-CFxMp&vUV8PJiVcz z1-1?(e4;)CWg-;3xEg696vT&mi1@yjiLn{dJSco-zWCeMuO?_S^Tk*FxuG-jQ|+I$ z?sMm?1vt?QhbC!RgoK2IvxJ0? zWnSss&%6Cg^xwu^+Ov3@`FiWU zyLatgr@CjeLrTbg%jMe6SyMx}H&)>G_-MM$ujOO28Clvekt?%7j znYVj;H>Z8^n_(XK?nU`z)8PHDONw(+qi95c^<#S#m@Pfy+5Q8mS zOs)qS7#VB`DLCV+d&C>mb z3Ke&M{nUNwtx2iKDPwOVk*1*T;Oq|cT{c(Nov*X*(_Sh?d685Hj%gepZkC$#ce|fV~ zca-q1TTiT|cg@;mZTV_hiO-yC_Jwit?`(R{xW@SPZtbW4Y*Msey?c|V`T6%-jf*$0 zUA%Mm)J2<>rJuIk<1AJ?CHpgPQ_`>Uxp{rQIoj2`W?A1lz5CYFdhb7xH>TXWxZsZN z%)2*YFJ6r`Pruo^?_KIA{u|TEGkNc_9zA<^Z|kR{&;9pdTYyjR_+^h>OQIQXGf9Jjb zzAV3ffuUc5HPkH-n>ramarDdnj5t;U2intRJ7RFo>Qx^-PRf!^f0ohO1{>J@fgD_Lts2t;5_T%9_`_=6g{^vQ}bD7=gt#-{n z%J!xHBDXxVX3n|3i^AtFxn1Lvct)sdr7N3gd`JC1KwQic@3I%cdGw+2& z-8`-BI#Yiv39)H4^qOOn-=U*cKg)iu#iY*iv<@&0Z)zFmgAB^a}vWe+TRPg z=~flI=-*tx^zM*_5%<)T)dp|Yr3D(-glpb&O@CMWLnrsZ=F97AOwX_?oxCL^DzTyJ z;l0uWr;oBPUg!J9Ywc!hPv`I?&#Sc`Rp+c~DY=lcq$TIW={~l)x4*Vu5M2JR`{k+Q z>2aULv-StM@#I+TldE`SlglW0Vv3@<2-~l$-M?6mEM3Nu>|1xEa^m0Yr+uPLoYq&~bls8N9AX#IxlTu~DeZf6 zicNk}dGfwD3tf88d`LIpO0y2rbGy7Y`-A2DZWGTl{uidV1qy7-(^@tm7`bR3hq+!dv^cUaqV|fpY2cGG5Gnka)OQO zzqI^ms}^iy_{KP&T{xyvbY5%ZlVxPVG>&R`Tu_a=kOO4F3q^U;@ zBBa-Fx82=vSHLo>qqyz()VG@FGMSF6X{^(+{vsS^{l{fh{daq*lioj%WeBgc?E~qbeJJQi;r1!J6L0sgGR}!LmB~HR;*&UcUe)yz$s*HM~h`*CQL4!d86X4RIZ52#WQa<&AR)bz%J7H&B-3y z%!dLDeOo5+=D+Y>zMFc~9Eu#Syqfx82mh8| zdlq#)Iu`ZfiNA_mZ%?l$_g7=q_?=&`T{Z8&cx1|DH_L_INr~0vb5xEd7H%`DU2n!( z^wXW;N7IL;(kEYueu)Hh2vPjxo3n8d=J8K0;axxD+TO4gPuqIL%t zY2I6McM|0zp^&o?2&0jl@a9;15 zI*$~MH!kJB)x+QLe~#+g!#;UtYcIweeB#slUB8XUo_2y&*I-N$sHGJyfWSzhHg7J`-13Ify1Zk3oDMyeSY-N=b$|a zaZApuyY@2p#q>-6^8?pCKGO8?yw>I~yP6+V@MuY~epKd@`tobqqQ$Ok8I1c*9%;+m zqd28#=6elm^TPIr6W(pu7P|Plqmlg^C(oZ6xpvup54x4Rblyv^l<;AVbXJwgKE3~C zeb|l6J4F?udza6?ZDQ2v^RG@!?-1)=ds(YFY^>E=SgSv`PGNYjp`T^w+TQoPMcAw@ z_}9E&!e?V+udZ!KKIrh~tKc4)`YoS$j!CLcNu06U!m%s)DDSE1SLG+NufFoezU&wK ziJ2#UDDoYziMbdO#B|Fj)U7N|YRN}ytIMEo_F#0dYP4V zxo#Ko7P9I(wQAeQf^PrnPsQ!))%KHHQ{{dG^fN zz0d63%RAE+UUSI_UmDJSb^U^mbDnL!V!T6d$J|x^#=_DQ_iLvbrHJIe?K*X3$MOSG z_ufA`y~6GM?dj{~&sRU6%6E0yw66xzk21~mF68TZJ9i ze%;Sk3CvHAiNyLX^V0}8uHt^U>crl_3yasD`t1HRMM+kMR8=u(1B}xe>FUxh<<+; z;Cf*~k;3B6Lk;{L@n7#0J&J1AtJJ!isNq?s60mm-)7C=?8rtDszwh7wHLlLw;?bnl z8qz`{=8Q}A>#Y8BObxm#BE9|oq%SiH?ANZav0_r0DXuNAmlW(_m->KfN@!iz<%a#H zHM7qIZWiy#u#H*Py)Q<>^Q6qjZ^vcq*r(R7Q_-2rCU=te%U+FzkK(=B7s@Q%@wPnn zj}Gta*Hx1ba;!f*^WuhePOR5&MZ`sgTf4lG(b~kftf}q1Z@bUbS=Me2` zGK&iCEt0Me`;8Uv9DWaU~o#Wtp7JRtJu3GjUv&R3dN;% zt*sm8bN#4s4so?v$}&&r!RCW4!f8F<=GF7)y|uOe|3kR%&Z5INx8Ldi&cFY1fzRTr zjee^`pQb#0-@JE1=$s;h%}XYDP29W3SpEDuA@h)ggxXY5?`=~Hmld9{TPT&jdB?f3 zobZ`zbvNm5d;E1zwf#K{u#9^kb>%}~C!B!>jv<#@>AU6UmH2^9u5iIPFdsbb zp=)XkTHIs+Iyc9XsExO1BOjopPuO?*m>b|9`2Y=gBX;^YgU3GH^nK9AKEhE)KQh6i zA4qGNFo!`PhXf)GhM)|EfX)*|9tr{RNgfI@F)%Yl8V8>X8VY&7&DL;2vBQCv^R%wc zd%%!Y*lXOtgwl?gS%&l8dd$;?q zwOj3*qU*W0&9D`}B#)^}N88fSia1qf_UCCFP|=R`x8fcezpN&fda$RQrX4TuTINeWmn*S#cU&)uxllnHZR zeoC8Bx5M52oks_M*VfNHd^}yfNfOV_YHZK=F58_v?MT&;qv|SZn&rRNd+~9^$cnrX z720KXruz4;4_^hPm1@^4JD)P6d}e2lxN&FX;Ty);lI+K3&pfjx`I@n`g#5ATg~?_{ z@6ME@32&YedFV`v&5Wfz#+!R0&z(sMGtfKZ_3Zo^tu(X8CwCaFo@wc$l6;saUFM~T zq_Ntpomw+BGv$pEJuXd%zGQjH>7}!A@6G4WzCGKyDRYza8>MYiYY(^<#YgRkzOyAJ z>1M)B`!8#zZoVp-eehTE?3HGnhyR)Qn7_I6;pE|JcMZ2Yl8wr9kJ!w%D>mquR>kQR z*c2V8B+8$t|9|d(PopDujlaw_aO`zXNvT`5v&lA|qp|2yYkSk$>v4_FU%rW6S#7sv zR>p?|24XW`FV~k_*&D4fVcC7{#N1z22OH#HZM>)8SS{1`zxDAF_uqFaj&AxNxz~l3zn7H#JEq$B?ue7$vPtlvf&ylLZKefw$Y-1p&<50W$P2TH~YGub^jewOi&VBCh6)^pPw z=1au{cK>5LSt+BRwQEW3%UZn}+b8NA?{`$skGQshBga#1rsEq=gOA5orf99Yz#O^7 z@${*jv-7@`+*my=eL`l-_rf+&gVm>gJ7u{4kaS?&r~iM|?>9%Y`@Q`Rm^x&qa!0N? ztI=lk;FaTTh2;SgdD*sH?_PXc)n7Bp>Xz(2cbQ8581-x)3%TE%1wW3RzrTQ)%lO@- zjdA-tA2NOl)`|S0UG>-XKUZ&iMUQ>aqmrY65A?oPO*A}m?{4{0r@-s7j{P-GH$Qef zGUasde5?^CtN(G<=|@&`oC@#sb*4!1DaRE(`g%GeuBIh_Q~87L4a#1+RnZ;?Xo17@P8k*37!4vk7xAF zTQqt3la$x*H)SbZ`+TZ0ZsqO9=%0D|eXi~M%f8qB{dYV1#ZmR3eWj8c9<_Y@b^Jk0 z*EP1}ojMbJc<1@wX;AjNaaFrI;?e$qd#$=&H?3cKxgX@#zTnw**>V4(IUi!C>u_B@ z`}@D+?S1xf7t{4N3vQoT_Uz?l^%I_k0>TxwisziT6;t!C>3KZ+^L4kB^w+7!t7`au zp5^`=u0w~X(O(RNF&*Bd0&PZfxn?2=WuwuM>x>yBVyE zt&$y2>J~J)+z%D)U)1_WYHON!LFWWQYZbV z+`bkY#3T5&a!!iE#l+u4~@1>2dzC_?=aM-h@8fa;ZI5PEz!vUQL+) z_ses>o%p(EicyW)x@Yk|cc#bgDE<1Uyh!>y$BzlBa{3!R($(w5z7`)2-H|9@l7G5j z;<-Bqs?rVy?#wtAwC&lIu04)QXRU%ZUEVzuiUD#8a*|=4!Ss zUhzyathdrlt4p}2{?;|eed{)K>8(|a?*HfeV$pP&Wz65q->qTt|M>mxxyc{z9Wgo{ zdUM*HE0An1P->*z|{Y3WWNA3&V z!=hPAw@OY>ieK8uwc>fl6CL}zrj|96_y24D@3!pg?^-6;2EC)jT29{uDxO@}R#IPh z(L5nLVXr1vV#yw^4zsf>cA2SryS~@jdHRZGM((|@iynJK*hhR;?eGdQC=Z_vvMC@E9h69 zz@51veEHQaQykfs_pk2l>G0;cT@&;3ejQlKYnp2F0?OdZP?1Em6a>26{ZEt-Mbobd*lA!YKf(< zJC6%xoz{{3e%EJC&$+cHM7h>8eL58RVdKS3Y~i)qvjg_7z1cj^_+X;gMrGmp8NJ)m zcdh>F{?tyVYEMkfMAb?Es`nIa&DXl>VkA>=Wx0vMmC_T@=fAyr^-w~_|62azoO#~y z43~A&%DpdMFrV$OADTVs#pEOnruioo9M|@p^bJ#8Ik~Yr{KTuR@%#}t>iMD~Y_jLn z#ngo~MlqMpS&@G9%s=*}nNnZtHsmtI?v2@V&}pt)@rDIn(Ti6u$~@rl>ZeG5#tin4 z%oSHQ`z~m0+w&}@S4wEdzndaoCcP>9l6Q=CnZ}gDc&%SaJn`$Bk4;;X9lh)6DZTf9 zvwOrWZqMscDf6FmK~VO7eOTl^_D$uhKL>4oYN$O;{ntgVYSTVj?R>M#a+hV+=C04H zUVo0k-q~>DrJN@@A08ekOOiP|;hFz?DPF@%8h4DCC4aem`*NA9c4gSwOPtl0jLRIA z#4k*%*|2W!pC211tUK!GBIROnux{cbt;&DwZ4o~4d-pK=&o<&Hdt9Muy1m#&Z^FZP zxjS`DXSUokJ0 z+Vb!2zt*<0U3IOw;k%jdmWjk47X8yXV{<^>oh!!mzZa>mvR&(PFXm!Ez{<0yPo8cK z(ffGdTr)d=$aOQ7?V6(hI!|^s)jKC_)So+fL*Btj9YX)t8T?!~_vFHmy`oTg~*IAz~{gvUn`cbdo zXEXnUPjjswY)s{@*m2^#ko~{a`a!i$&et!rn5jLxFFSQA zczHTUm+!`{(*659C%-w;dd_9jn%d8eB0n|fJKywwEU!Lg+SPu0^M2mhx3`*{b-7#SAK16^ zkN)ITPnElSyu*4XExK*NxkLKzeIfVOH@m)Z%C!A&*ng-r*sfG$|K4+#nv||58Ko$6 z&3YsAw`ZB=(c3GY7e4V%Rb6^?dha~B#a@fl#F+0jUph9;^hxTowC6$o>e?O6J69z9 zpL)ja$E*jR)~D3XU8|veKR&$m+L273L^aU})9LeAG@F`oFVuN?S3h7VnR%wpT;*V# zuUB2(zkAGAGXGCZ6L6h;xl7n?!QHOfKk_Hv|FNHNUr=Y}iw$iNLf>O*{?1W2SDALE zxGY4_>A<`2^0G8e-YDk+?y7r>-V3;MF~1R&|2kuZ^v~HUiLbt#ZuHwxw&ylj9ye5>H;UIA5CY?O9Jr=P7>|syO+W*C$M9T`i;7 zaqOU`fOSA=|IughZDQ)8tF?Q6Zei)lUU~d%{Zr+p+-3Ti_j9$3zBBs^8n>VIK3vYd zJ6~Tnp0n@4KPNAIpP}L9l9&~%9n1qQ+3xY1Ktt+JIv@a4)vfy1okM`f?cuX=B> z`Rg3!i4!vuk3@(6}&<&p&G-;QyxvpyTi|xPUr_V8&^)h7JN%l+M z!^Njed(AR?i_yi^65Fp%nR4>PG^c9`os$+eEuER&JN4+pByH^}SE3`c*W^e%t7mKw zKhKOg>H|3T76@u=RjwhY6a24pc!}Zvx_i#&y64 zh8p5p5@?C_=pOiL6B9$EEoDCXc_d@jv|>8?myv;m ziGh)kkqvZfvIU5x@OhYZsXS?2D>pE^J7S-W|dyLnhv{#YmUJy!601poIC0S0D9 z#=PPt=lp_7@QySEjbu#)LrY6@9R(u;14{+R+|;7Xc?;Dr@kYCRD zL+A9=v&`S;eP19tVfLzHt5&R9wtD8eZjMdU^HT#8f3sCY%C}UuR(Dr&#I8x(_iF2R z`I$3nyW6U}+N;{+D!sG961q7mI%dvYGSlCLoZZv6c%s~_V{`Yf?dDkCozYa=S>0YM@AP{|XH!>4 zcZX#4jQTmNCobMNMQ+lPsaqz@pRl02ciL7CzMm%DYkvG)!}vq#$9vH!8zxS@)6FrN zZSJ)0c~e{Zo8%L^V>{xz)w`?vn!ES%D7V&jSJY1Lp0jLucTH<|XM3&uZ>c|Pn=)IQ z{JJGe8^DsY<$r{*E$Z&+nKb9d_f&}qGrIe`dpKq^_BPdab(A&BWf~>?X8Ud4&7s5A z)ZN(K)Y~(yyRUBs2VdEOAI?+1m-Nh8!1g;~D*GC)E8KEiEavlhIG0c0;bCCV>v?aD zCG!z|wh`K8iO{@fpkQKd4!Tkpmh;R|SK^wX9&7~S!ZIGNY-etWZKxBzUJyqM>jryu<#}JF z_p{c2z9AvunwvFqXTsGry}y-rzkV7PW4S%W-~4#@U9)GW{J!nqS@-$Wf3aV>VfQcG zy&0?W(|KO*(emss3HcdzpL?&syyq;l6;oc}e?zVs8*w)>rzZ(J{k zeLn4RlHvUGhj-R6@t^;C(`FA34}(Dansm$*ZiKWp8*lXzgmL30IF0KXnJefT8JH+o z7#S;=8^F(_MqbTmg0kEkrFJm_ooS1GOy9^DTSCWPzkp8f^1(KGkGggdad;Qn(Onjx ze2$z&Kzx$3h_Rs&avoV5US1IVUAEpS!lt88C}?Y-$Gu{&!UDDgqm!zNM^ze`(rz@I z?do0rVSk^YTXM&z{!@KfQuXVf-RIwr6O7XnWcbp<9{rkP%6VGt{;`XnEx$ZAexbf2Nv-zJ zp$ab%mtw`LwA+vQV`sJBl6Tw09(c=HV)|jhlRTYD8-tY2oSl43?^I8}Z^XVoPt%j9 z>&EV~`S!f^rch#|U9CyS)KW##j{EsX6xy$1pw^KL45Xng31AgZUTRcHVwAulr?HfO~Y(i^SXs zaY9cnTwJ^`I3~sUY)$wJmR}de8~7cgZvHBt`C`-CC4NcQ95weX-n-#_7<*TFRcS(4 zw618Hle&ny3Ul1T^7h$(-_BFG`K$1{ZiT$Pp6#z=zvk}T{at93wqw)&2IR4Dr>e|USL=K6sppr9fKTnq#wwxOBhLN{ zB0IjH-P-FO|9xV8{;xM`HEs1%J~19vlu$12tmm`b+kWQ)CzHwS^1X@4$GF!YHME%& zdH7Fbe9G3Ja}&z1O_E>uPGd_`x$YLbugmq1*?S(lFfH@Wg&yt|znG?*E#mukJ^OzB z$)tCAH55vh&s=`{!Gs8wa5G=s`(NHM-uz@N$CD5xz3)y{`R(O2}-5z#m_X$UyZP|H1b4HEAYOATO6V?Yz(_#N3de1WDvs}S#tB7xM z&lYCw!uO}j3=Q2G1-;^{Rvi>95IFlnH=&)i{lNNmqogG1^>4Ph`8CC5Gj?5- zGp=9s{XVNp`p2e(%{yO3WKGMOec@_jV!znDzg6o7zhY=>WFVu^ zo-J|l;y1#J3!cbs&j{a^6V12KdTyNhzxlEkBFWq9x9|vGZNl-{Q|5WqPP0^f8FH^(ql}@@|4&`$Up{-qvZqxE0{OhLdoGG=o-G$P zd?BU%?YMG=>gw;7>N`((AOBc?IQzrKUB(WQKc&`-tKN8HHm$7jdcg7tFH&-hQVcl* z^*`=o{lum}@ul%e$Fp)d*Z1{Ij+b-pUZqy-lDyPJ%_(+*=znfA_mFqztkQ2p9=Fmd zxt(}^ZkEi`OCo=T_idggI!$|HUe|I~?c2!d6b4uz%4BVMaY;Q`37hOJ2YA6ra!4 zvuLOJ&Mi&zPRmcct|2Pa8j^0lF{b5cpNz)w?sCJcXWoQdb$I_fcKe}pPXEug{xeS& zoZYE#NIXvWz59B;h4ov6?k^Q6>+|k@QCZV2FQc=yuC~|c{sh*RtE(i$!nz#~6wHV` zQ|xnR)5B8n-@l^R`6vEc;+Xqm9{)_42h!c>zgqp9Re1$Z3?8K4 zIn5K+&9)*_8Ckp1Ab=8=sqe6>WtY7oNOa zVdu5WX`kKqf5$dHxFLCMzpp^R!}1Q7LuP!BdX+v_>Pbn~&&w~rEu*t0u6ga9UsK)% zP7O_GRXw+A*Efk5ThvY^m15S-oyDxcG{&{Hf78LYNu1@tzY_?>)Y&pc>Tq~+3{C*eU)2$H0$ci&b6KST|tcgqWtsr z#a@g}?<P;U+UQgoA40QE%R^(iCJyNIQ`NWmo-KPRr|1;d;$henqZecICM3LfV ztvr*D<@PKMdw35>-Tm6f_`NQk|0UO_>WiP_e=#+DZ*x5q@htR&dh&(BFo8zxEoMz| zJ4CpOjwHYMBq6?aLu@(?gYcx;9ebnMGQD{l3Kk=H^NjGls>glIcQ-9vHeVSaq_tU|z3JaZP z|NOPrGe3v1hTAl(b_uWRRe7c82sySJ3SahQELo%G<^IpX;QI2g*DF;DZ@yEKG+vsj zdiaR%oed#Tnj1K@_P%QSyDn_|+=TBk;Xhcao^T7?`5v{;Oxax{$@}k*FD*yZWxkv^ zu`y6@m(97S=Bxgso_bU?v8VS{Lh*vB3DZ@6kJNZj15pM5eeZQ{%7WA8Ke9+k3Z;qu+M@yvobdORlIJkOd0 z{Y}^FyQ?0wSYz`|qcFbJtT}-jq7`-*&2VU4FQxJFU0&YX3&n^hw%je}uzj1gl56LzRZjcfP0skX_M~U< z>8Ee}r#z8b*67-F_av*7|I@kF3br;=ZOoU6U0iOTH~ZAQ^ZxVpn$5M-cw7DZsY;9O zL60SEJEGUI&0$Puu9S`K`y{n+PQn!%|Lter%kunN`pjk)cWD7zR2P>|lwruDsrNn^ zoGyE=+QzQRlOL*P9Pgv?sD4JYwtCv?>!Eq(r&xY5eeJ70x%QHp)x~zNH@vXq0nsZn1t0kYKT{dZB{cK^8q&jay+J`yW^O9Vzys(+ZscASh@YR7#bsloPy8^S zu>tb>C-}fa@i*Q+^zD+hH~SB-xodOgu8j`&{`Eq?<|+KJo%X+a3Ij8@a&lZ@@b2O| z$JD^ID!0xiw@u5M7A{@7v#)7lW8>1MgoHOq2}vm_g?}#|{9b!{8mm3m zbK`Zt?w$Kn`>x;SBB${$^-}+*5tDZt*zZ(aye;p!^ZO^aPVOz%V3X z1iXnVDA*@BBm{KNX$bVfS!k-#H8QdU-$Rdd{gf$Ucey2McOTS^hb1hKP8zGZ=NzV;nMd_tU%_W+)M?MM~nm@-&^CX@2Q`t54$y3KS@6+u}D8zKRF+Cc3CRu z(%{4#{nU!&oWxxHH1GmH&^=a=v%SGbj)6yj!FwEw;pdH&=$E4&^=$z<+8a4#gZR)u zB|c>v85V-NoC&tS8^yYPX7g?Y0%QH(Rw91&O|F*3wE~ zVNwxb_Eb=G65{yT`eBNLgU~!Bm!<3auWnwm+G1Ol$kyA*yVpgpy?SZ-)Vsm&D)g$) z`CX8Ty1Tjl%}M#m*2VAN|9kiR``>%>J2-e0T$BO}N@AQ2adX$yr+)}`{j-JPU!-Az zZhU=ysz6JpqE5m2Eu7YBi|2W2yyu+qLq$=nQ>1cPhHGEg%!$+1O*-Q>SGO|p@6IN}R6uExc>JUr)^Rt(StyZ42 zdAqyDl+5+#=V=F~uehZ8@zUF%)O{tZQ+7J7o3v-@9NnpR&g(t;ryMnL?&Rf@v{Vbb z)&?z|qtKE5r0a#u)3VStR+g@_weC)vHgDqBPulCx*2I06Zi;YTqq3v8@bk}K1^eVIzHqAl zy4EeUC&^AocIke9t6eH-n?r&Rd~rF`box;8b00z&B-6ML>iVaI;rvGy|a1sr-KXhb#yh-dn+#S1TzK* zPV{Jbw!qR{pz!yRm%5*&BCF%(-ejG^UbeI5cA{##*q5iyvyqH z46lwa%)b!)qSN*Me?6_t;zG{XjL*-%?0qNe{@y*#eZG{$hq^Padkxgpo}D${7W+Q^ z-Sp%M!bYDKU7g<G_um~(#ozPM1{Yg)(VZMz-B91u&PW8<7XWHtJ7kKYc&y=#G zalE%zzt!6tR&tfB_X6EuHZ9%FDn=3WKR-w?FA$Y1)O-9`xO`Vz>;0lpC)CFDXJy2^%ZswtehZP=WEhaTd8f9_Hnsu>={KzX zMf;gV6yl@zt<&+F8?ix)H))0W`E`=7Y=gJ{w|G41>-2htkm}!m7e8O6z3S_mQ=d&% zDA>DBj@uxp9UJ+h`ALN7Jo;yagG0W+qxq0 zPL+x+nF~9Dhag%+XW5(yMaHs!gv1=eGK4EnVlJ`quaD|91w9vfrL@K3=1A z;oq6^^v)N4suH28Znc_|r+?U2X&o@};`H`^cY2#HuHSv<={2iu%kHGL2333YZZPH|P8{b-}->_a3fJVzG<&l}T^t{QD$*`hw}2>+e3x%qo6kw^gLXJO1XThRW(` z_fza29NhVMP2lTz`|IhvYh)cxv+rP>Vx%DTWzpAr%*&5x{8PR)fki#)&D5z|*Lc6z zyv2Xzt#|$2i;3?}e%~;+_ifqowN|TdXEC3;7`S`6>+{I?(^7LKw{k6brr%wq zx!!A+b?;RTotp^_U(#H2J)O4w%Dv&GyKi@t!1>_v^EG|T9;YfKn<-85yHoPy%ge>? z|GrE=?D_Fy^rU-`xXn)B!X?)wpedH01DCLPpQ|5;qpersvSs;gd0z3*OpSX658gV(0FP9lMYKk1Tw z{FTT3=G?LB$BX_vHT`~|rQ+F+oWt(D7BzQ%oUxE?=~r!Q3NYdlTBstT;wJth;MU~J zdgnv5j5k{sf3LW;dzWO5<%fyocAOjXM1JiLSMO=Nq$*t;veWh0CfPKNC0%n^eRa3@ z_sw068XPWr7TGPSiZ!MZPOXKf(;oG z=alBXmj zaq_;4wl$2c^|RhhOnVtpdAs~+`PI-HIaBxXK-qN<@U%;9D=h!dxz1n3}5Twh> zxA$a3mZ5RP9+|S+`&+JQp8eH!$Z4;mHv8hUr*2%?R=VKOqi+A%Z;xpS2mE4cb_)-G zWU#rT>+qGV=ABDeN`g(!wjG;wORL(n`H1-1)u*@P|1;#$8fBYwr?^y>Dt`dG96PK6T^TZLe>Q>{?Pede-dnxBS9u zQta8~0~fDt?B_7P^Weea*B64=JGYu1j9F36BrLTew57EmG4bApPL_}IJTI5d!fdOW zm@614K$}%~+p0(%Aak@1kfkLRJ3ydjDM~{Wd<`RPX9;Ep2z2Nyax)Rchx&(vW}+p| z4v-1jK}fa#kvc&7B7?dEwDIS~gWvzYn+EOxz593X{GZy}{W2F%7FVg2`#*}9y5B;5 ztKITlzVEglk-xs~+_zot^iKW??VYUt^~D04@%(o7 zj!H=hhF-bM1}sU5*m+J*XD{b~U~Ok#Ur)4dkD;Zpf~l#Af{C#qW`Ekm7_{C6-k%0@ z;oTlXOJf|}9?)bco-TEAer|3e?0{tO<$x&tYmlFilNX3ja`G}UH9=ZN1Mgp#gU;D9 zVKNM@hhKs9*ZRxxee&m^J#6iI3GUkSLVxC+`ETpj0J;Nf|CXhf>2e2F!wx@wC(Gy0 z#imSKBBuG{+43b~Pes$0Jy$a_FffRY_B1y5VD!PbtTE>Jqp5{2+}ZDcKf2#pyr#V3 z@Q=HdcAvk0D7&~=^!B7ptGT_s(?!?JHC$VNN@VA~d-LAS%j>)M?$)+7Ve1|Af42R4 zckZ2E-!{%%VYT}^e$9>L%kcUxeat<7#{S=L#9{+&_FJsqv%@04@aH4Z&*J*i9{(;} zQ23AkS#ytce_edpoS(;A@b8 zd?oYpK5?Cd-*XM7)+%0?%(K)J`~1^p4!8Qp4+aJd3^LC*?!Zj_Mo9D7cneZjpAZkX zP;F=5;7Ig4r%eqMEKN)lsCr?h3I4?_iFxTsMTyDTsU4v_(| zpn}CEsYRK^*|~`&8Q{)8$b?j|DliM8DycLlC$&UBH77MUHLnCTERb22n3I~9oT{H* zl$uzQT9jH?nwSH=o)gN-PX{gg%F8d&&rK{SF3H!=&CDw;*3U~#Pb|sI&nwPJEY8p` z&dklsNi5PYDJ{w?F3HS+SX`QyS(aKdqIbXA?IEYpXA(YXkl)ElzmI5RObX= zmp%TzH~F`j@8KH-o*H}2N~Bz~oo6j_T2!)P@rAI~-rl_A#tSo^s1;7Waj@)>MW_6a z-2Z>-W*^zeyyd{569=A7Y@O0sl5@&sn`f|j?p?Kos}5Lgu{Zk~^W5TcU-HtFOKGvM z?asabbMAZbx%c0fuKZ-wwJh`FyT9!9Kb&Gee$4(8Y_fl2Pkj`_jr~8e?kTl+F@{W= zfB(dszefL`Mb&+l+V{!(N|aH5P~hJwy`KULUx}19?()04R$ZBU|HiL5KFcqZo!oai)8Z?`b-mlGgR)ZZPx@Z8 zY0|G-mvXnS+P*&i^vcxVp>O9z-CQ5SQ;^lW$9-Mc>JrZs84Go6!K4*`7M4CI)TS_j@xFLg>S>PO`}{5H#y(det$V5 zv?%qt;nqECXJ6LS|8(?rQJLy>Pl-@3-~O1(u7OvqR&9Jd*L1FRYLoAzUt6!fjw&zF zj9awg`wEuQmaK(at_0q4W`4W0cFTOe3yxMU?JqfGmnN6Y@e7#r=-u?-=#^=&6m=I$ zzqC$0KfRSTn#GPWzHUcN)DO{xkw1bT+6FE@p}gzp?p2>MO{OgVe@NM}j$3L{&r-$7 z7Y|R^Qs8N_gnh0aZ}O#8HE-1;OLW{nb6Ya@UwE$~9`i46o52^2miNcmU8^pn8%^-r z9J+`5_vV`8nQ;>r2A*$X@crm5bYkysZI|}udkzdvK6kjD>6W&~ecVtH!1MOP-EV%= zCl!CMmXTX7{H8#O#qhlBbD#7*H}l!dON@3z@)W(8_fYTqJ;Qi5HMz!$9+s-5znRWX zKE@vt_~D>Pv(*uUT-n$2WKL)$uR1Z`-`Dr>`I%ZJ^E{$#Jige>6J8+x*zn`I(~Hxs)$9H@apChHUzz?feDbzizkj!6@a@;;`MZ8AE&BKM4Jv;G-R}Q(OyoesnS{7|tS|R`b}Roh;eOC9wnNv2Bxk)j$2Z5i@Y<~fZ*v;o z8-)Hj`%fo+y7Md^-aqGA{`mY`Jt@Jka6)HfvfARiDP^0i3+D^eYuxJmC8Ozng~L?+ z#ChI#6CAs0yw9`nI(iFb1qpPpC-JO%{#xZl4@dryJsYwLmqcjD>xFTMr7j7$wAAUM z_w+W`?d$e@uT!b~Yd*2^gAu22M7vGi-pN<=Sjq7@|8rt1e)8yj zpS@?DVS*B;#}A#)pIBGE+w&>uwMt{bUyIZE3h5;^VGZX#?N+%bGRKbZaDvIN-k!iY zhi-q^^?TZa+v&|x%@-3S`Ye;vO{(f_JUS@gT%ho_ zL&dM{_)WnpE!VEP$=a3Aa8L_gIeFRwO_jgjD$Py)vTWqOx_F`ogP)OluV?dF-sUW^ z>E`PuoEQA`$Gzo`ZsmQ$)gNEPy|(*cu#Cm!*q(hQ4YprDe2br0U?uqBw*pV%?)z_R zt9k4VPcKvpKlE6h=~x!iWb0k;Prbh6^M2>L)pvPrTGg&>ytL%_r5`V4R-OGMZoIUt zhV!rEB(By&0GCwn>8PGSTFg*(&oh0eD2Z4roG2xwjSwb znxs=NxP8j4N(Q$jt(q5499UeIcUo}C(_{7V2jc&)-dVx*lA5Sh5+tto}5(mC2 z?dhI!XmW-1y}lE&ZznDK75cbTX%FXyAI8GB4hYQBWD4H%V&|XFO@GXPs-3*?ftvOE17f3UH&_(;o2-f6IEDSi@6{!?5pUfyLyX&3J@eXWeIfQ_i)~tIL~gU( zwVz+j@7-el{oupZXRF(n)f@bkGMHi4aQfA*$q#ye8`otrOsy?>JKccac&&Mqea6n4 zpR%32?z^SV|JNUU<6ym3C%dwvhrsc!Su$eFZ=V!PE6h6aYE$D@HXX(2Q|Hb5U?+m>IrADJDAIDTP%*vEZ6>pH#oObrg{ zP3?3~Snwp^#jG7!I~9tX_D`J5?K?s8Z^HCNUmpcZsDEretg}y5uFX-%-p=dHs;Z+u zPfdtwusbIoY1pnRJy=VF$4Bq%@vwPKMy|d z@ct;bFZPGV(-_0YyH6-^sx9z{=kc1bv%>s-mi*@SGXcrlBF-G0lBRhpIOBLV*KrwF z`*NM@Sw;fgtT(joOpc9lX7Q?At`I*le}YTU(Gs5<^Gs&Mlr{J2*5qfN%u@IqV|s0a z=FAW6L5bVEimmo%JGIR3>Mj=DdHiPACv|I|sr^sgw6#zE=j{5$A62H`j@gVdK^o@A z+l&hKjtGcw({}a^LhD0-?{+aXLT*K&E(taV9ddwJix1|)`w>Q_IM04GFvGT5(izq@ zP0TF-H9+!Gpfe!_iAAY-IiN-rm<4VWp)^iFJ#Xa335ZW}6>mmANz)c#=0 z%Ib?fT?_b^8g1TE#nH3Csi)(>zIp$mzb}31&0qMS;9RA}9B0K;sYM!EcQaOL=|lzH z?9|cPXsElW5dB&n9rfD}*pR>$9`X<3A?c%AMXOm9NNm^Ce-76eD^G?ue4J+?$xt}X+ex~i# zo-Zy{F7-*G-*<~q=$vlhJ2A|`=d4|p9m;t=<7w{C(>YJxo=cl3EFpaV04HC|giR{y z*Bb)Ff)?^DanlYepCB|fAo5D)tJFo#&UpuvGNYG>iHSaONSa&b(Zj{puW=(;m)ZI6 z#l*RL7W~n_tfE?Ov#@*eJ-b)uc2@_dINMjs1@BS!Tf6<}WfrkLe<#1Z{rdSw_Q$&- zK6lTmoY5>k`I1eZAOEzOe%BmjWp*dmRs6qs;>wZd7hk@(amZCB+_ZEVgWnDQMPEAZ zJqoxhYj>D^fo(zDd&`$LYI8Ey*c@g3b1%azvVO{i=EL#z2V~y8Q<<^$MsY@QZA$){ z81-0=x$O!iKmHz6m^bI*uK7Rj9kBiL@Y;*B>JQ(}tIb(>d#QEcvc0h%P8n>z9THi1 zka5P-{XYC{@A-OP>bI$>>AP=Go2c2oxIXLGiue7ZPxi`OaN7j!Bi9B<^wh@$U4+lACuHcdbqje|6>5BRi|b`c9WOUw;|O@t0K~ z#9}{YSzu^MdQ+(h4ys}ch&PJc@NFl>v1J6dc)w-w7{CfVqSW{xVb>D5} zragVLdqp1yXf*|WtjM{~mvXc3OLX8@GlfG2s~<-(CYRnk<0kB_$*ZLmy!M>u(oIH2 zS3>r+Zkx%wi_L3svhNnx<6PdhOH+B$W|an>5>}hGRnFVL+(IVP$~##q+4$MYAkFrf zrh(62xZO%yp1s0pS>sZ#Qn6XLa;9%v$=Y-D){#qQUWcz-*v7`da8AniSrvoUfy@Aw zu0}S2L-7tgJQAIf2KHvBVy7>h|Mv5X;4k4E&YY{2N+#cSRkAEp@A_Pn#G?AJwPmXR zq2i8hMSqk7&-GW{w#|Ftb&bzjecGbMjgC9>@0h=7wM$%Am6aQA(qI{J;@9Ht>g6KlL=bcQ_J&3^Ugaf z+choI8cx60HQX$^!7pf6iJa;`hu`xQ|7`uIIbX@%$wKmn#)J3L5tAzt30-k?Pjp5};wX!s@xOLG$i zGfVgt=O~#Sbt@2PU=S&@o8ZXoh9+3+eRyt1x#Qdid?Op|6r(bfJP#_(kn=ovkEKs6rNcWWoo>sVz#&2jh@p^$ChlBWElUeDo(6T5+)2?YZcvnXc4o%R6{pjtt(TB&0diUO(T%}xFRpF@~ zvzKV~ZV3xe<`|s4eGh*`oN{3tQY&G@tUwOuF{% zUWCN%**jcIcpN3HF3d@JbR*1gyW@YC&DsoG`Xy37yqssTAY+BE?@gXvT#2g3*)0Py z9{ayqeJ1+)jMjXPx**ocI>w!wE8i$PW+(~lW7e1>xHM5AC*PdA|8TpXp~r)k{bJ9I z%&mDAm|YT>+tGNi>Q>b)wI`dV314Gt|5|(E($-~myBD~h&@y5>_?XkJKH=5%%G_crXxxURW1H2W$?utQ8} z)873~OLm->$oqK1S98(AXB!$rv`v2L#dc*BbUaYmzhBW{TG*awmfVCdk$-CE9+YSa z+`ln;?E;ORIh$T~%h$*Lv2^=$XxYzd8`%pJP2-J2&m^|SY}>b0y2(~9zr0~al|_9T z&xHbqwK>eQFDt}k@}>RrQ#p7g=FrUh`(k&UPkyJio!h1^U*L~`;f~vPWYQwji)PcR`j{GvV|!lxHg?+EoMG!GD#O0S@Z$U*ic%fiwSxKLEDyfD-neMOdFxB&_V&iM z)rEYE1UCJ8Begq@-M6FX=1XH|=E><(lSPjo`Eu-?5l42F9T=@?_ zTK*hA>VI78X3gB=UUD37vNo%1<^Fg4=e_8-&^YIacYEEt6U}9GmreP${uEpG|J`>* zB71axSsgU4tNs;J{@mq}(Sn;F+|@N_A6h4J%XC>$yVS?6e{F0BqMr)6DiqY_#B!)!US?jZe!f0v|0<4qLLoN~6oc>n zgp9VM-T+#uUxi$yS%TKTB2{T%KFL*@u_4MDz0@$y2$Aq@>lQ8C<&YA1s!?LMM+uKh zK#zu!7L%6s2{k1xg>7qmxlNL~8@d|Kvbyv>aAUZsq!^eea-lGJv!jE<#@;>bomS^8 zPWq%Bvsi8={`qXK>CDQ{`*!^;4G*7N{O;%ZpZ|+9z2f^9Wk$VuC@-|>hUfR|+OthSi$ zsWWF{B$U15HT=7ybF)oEZ zaKf_4->1txE(d9JZStO2{l?2Tdj7f(r#{@9E4lfuzvS-nc9Vkim>MUKq>P|VI(Lp; zyK%1W;v-eRb0VT1xeJ~JI))gCI@P+g1|?3>-8%8t46fy7f$yfUr~2nEyB0L@idB~F zQ-{i+xGCmOoh^g*T?snX|7khXil3|E0ZEW>p)jRI9dsHBm|q+_NHn{`L69@yq_7IB>-w>%!49NoEH2-P1b{A7$1# zte3nrN6b3qMRG*KjntIHEhjS825!3;e)-;PF{8KH4>xp9=v?I(a5-7(!_^L!>Wt^V zzWXLH-=A@WW#^LfwOMo7xQ_hY`u)AF?%fFr2gOa3gcS|f%ge2P$;LZJ(Ts7ziN@Bu z{1Niq;^z)Ot9Vvkroi;WO_xsvz*!R}6izSHsD9UtM zV3a3)|KYb=4$5NZUdgZj@hM0>$$giNOs-AsUZe8qbI(30zq;u13z6UTF=qPY`2W&lX{R01SmjrH3nJU9O|F^Wriu@L1RXf_c`EmC0YrTRsvpsy* ztz1~rQRlVcCez_LQt>Uy2}{kEpdinqh?U=N9&Ty96NeC9xQxt zAUESql#=qn=}XVf=dY4{{`qHLvpL@aj%(+cpB`zO7T+=9NmZ$OncNG9u!LJ*HvInn z>6z{FpGSV(33|Tyrt0j|f!4S0_WSW}Nqd()Va5S@&z6bv>O(H-%XJ)ZO|YDCwK=`< zWmL{CqZfj9r^m{;t5d}XJZXITEPcT?`9q=+tkwd%3&7H$u%+N>P`u0f4~lg_TV z)?R!lwnAjroVedUhgfGUX>&e2%bt-V{w`Q$hCzo)PEOf<(D;~3_Qz`;+Sgdq%#zmsz4U~i+x&IUx%YeZ z|9@8dup#EWOTu-NH+R_#o`KCeUm z$jxc~C)>=Pt$f%lt?+Vbw7i4D$#W8V1^Ro~#N1tb{s4E`4l#{z2)ZH=E8 z*EUs?J5(@7u=vOKzyz89Z^aC@#2h@ZOY{5RO>1&l+1D63eOss#(lM#)@u~i*=xd@^ zWY@WrzOZ`55G+)n`Es+n)vit!zZs_&CP%L>>Q@Onvf!_aSlZe{Y%>lX^MBU(@WR$v zzr^h74Xg~EB-_@6UWDNz28*dpSm-9-g1YW8@Iw{@EIS|FN?ETKPB|@t|eDCEc!e@>(?I* z4K~+9ITMOkM3$Pr467;sFf-%Gx!9!c^rX$tKRe#JSNZ8sshn)!RT0s}lMeg7@OaX9 zVNS%8?rZn$cz(V4==Uxq{q|YCpap`VPutgYUejJ3|6||$eU_R!^F=asAFP*obD;PD zqrTd8nNOWZgC1hwI1ht1%V-{qVuh8!VSymPB!; z#(#5|Gpo+ABujPS@B3BH8d;62b}xGAqI_znf~1J{sV7S%J7Qlv&N^Jb$1bCy>*~ue zrM`D9_w8Q1YyBYi>zsf^@3j7|76ql*2VG}>KmN{hjlYJngk@E=MeE%Aaf=>J&15fA zl$Q@lGbq_%3)jv4lQ_h;(AeA@YN zV*dKnn$itT`l((QpI*BBf;%MYO2rJ-R^I1AN~@30FPXRM|EF7d;>Rz%3Hc}V?RnP! zHk-wNg|F@SWxjp-!hMPVrk`A{{r!f-kN?jtrmoc1wd}rC6;~w(0(@Om-%slR2aZvsEYVFpii(V<8f9WQ@{m#4O%*qmP zk^4edr`?`ftG7S(|Hi|ylDxA6R9*?eJ(*|xo&^(!;_`@s!zi!L6uc(v}r$Fyks3AsD>-xj;~ z-KzVy(q`4)MoGVS=h;7QmD#@1sqnzH=9Q8wk7tQa+J5T$_i7Up!Fm7Jh!zW<(GNaW zlaO_T{mjhrBQq;>ubq5-ZTq6t(n(VTPEOocWEOECfnO#;AxC9`EkpLl3mP-e7qZ=Qd^fxnzd6_2Yne->_Olp;Pc9d&MT)*n zPxi>~P5WZ`$@ik@qy2eD)$Aqr@h+LG6c{6^USqDVG(9HFYx|snP_01KP-nmLYj^KN zTW;T!uh(up&F_rY9k+ApMmCE*R-RIs)Ym6wcKV>fZuQ;e@z=9RY}Te@ZNcQZUUPaN1I?zg7FN=Ye(4( z61sGwHmV<5$kFbxQQR{9WzWUvO~3kuH#ON`)G1%9|NN2BIT=8CR;nirG~I_~b(w(j%_;EXQ(kP(-s z7%8;o=gq|m>?;HxxcT zKN{}6E^Kq~(;FHbY}Fek>IH?#o7`pIIje2|q_9|?{vFk4y4jvT2n}SEQ`D9|zU^cC zqlv2w{=Ta6J;ae2pZ4jzy&a!yOz`phnR&0Bzu!E0)%lzEUNg4Ss>k_4meuT9zij*N zT#k*g;^lcfz5I73oE2C4|7VXNYD=NV#_Dof{igpSclHe5b<7^)I*4q_vMR`*y}iBWZa1cAlQTZvMWYIYXqLodM`@ z6$J|eGX--)_}MCGGlrneP)IX|ATH9#A+CW#BdkZJ!zT=(8>YaEprG5OKwYzvjH1+3 z{gU#0{i@WWe3b4MXowWKy9MHt+}*M;H%D5{lsYLfN4Qkv!2j#odzp6|s(o)Brz?XoqBf4u7H zc5|~^+df+BOmo|JRNo_Ry72+)Ih))+SU*jA_&8oXHqO!R(DglUCO&<)>{pd*;Hx?R z66R{`EWeufSakiHhu=9J9j#Pko|Jbp&de|V#k$WWES#(C;(ggktexc@?5vs%0*hwN z(!E`75~8?8bYq6_Di{C7XHPV|c;t7YW7fsrFZ2?XFR`tDxWOu*FP~{yf%>wJ_8CeW zSFB4fO452T@o0m(w*S+ho0?(qCjZul{}XR~sr_TB_K`_ylW%eSn=9$L}+-bc;>bSYYfi{nY z#V5ZneSCSY!|TKg>Tk;~2wU_VZV)!Nuw4_MY_;(1nxfU^jClu*{;-%Ie>S-_`{elt z*)v{C<=fviOkvmF;^4g`bmJbWBF0!5)=JaK`{yWpI2rHpXLi`ZIlX+HZ{~%ae!#fk zZiv*n!!^_DY9_sE@-Wrj;rrOR;_(O88Ei3@28KVT{@l68A=J5M*%99DANOv(YExLs z`~AN1Rf)RZkF(gEYO9rN{~j-Q%op5y^-G57^uJ|gm5Cp#cX&VEv?{fBb6n!)Yw!R6 zIkNK0m6?BjuAuW7Jv4haU?X- z$9Beir9ArskLIh)JF?$M`+muXs@A`A%fb)8Xqr5`xA&aGBs+PZpDrKwGV9yr98R6_ zJNfIsQ}aacPDqlE-Sfk^#$8;8+iK-x{n9sI{ABFR=W6^5^8A&Q^X}857px2R?~vML zRc&2e6Ej`G?Y_)}MS&KE9`3&vyH~qE;Q8LK-?~J~=Z|(z*x4tw^50pQ+V{L!db}?p z!{V1|B(-O1| z8M&ka@kuVJ%q%RCN-Ev{c+lF0qxIK!SI3&AEfe2VwA*fp@L7A?3^&eHw{>RIjeS&) z%_`5kynAis@|=z(CZhGrW~K#)M;n=*HTrl^Bj}amjD#PPGzF7f6IeX?|GnG6y7tY> z8vYuK`^5$dT}%>fuHvh<+E_{woRAp4Pn9`wk=;ZH-s(de# zE>5jwIBqcebK1hQ?}}z*`^c;{SaQ+w=g&&XFB{*ysrhAc+Tsk`-l<_PErk!i+S##k z@m90unGa*OJX+HE_>KCeO;Xa*#$R)4mz@m^o-obPe3qqf?5QipeQe8S*`;qT+7fl% z=u6(tGqIXmHkPR$x5${fc2;2oBLho#ve9+M0?9e-M;$mr8hUz|lmZ%$Cb6yImVR!% zq^9OHS5)k+kI5Q|!tVS(Ex0s2-U}&eoG=ve7nx9|IPZkoY<;2mCyN%YJ^Xf~Q+m?W z^PjTbmHz(`9eG>mwUN1WqSAA@89T4PZH+C`wAXv#tdaTGm*b_=jPl$pUdii)|E%LZ zB^T^^n^U{}xr6%6Tltc@tw~m@wpW>N{$6wE@x_-5*mhON)cUr%g=_B7+qWgEiBE}1 zcCP!P@2?~k9jE#2%6^zrf4=!(;?IukPsfZk?%n+NEt%n0RMV$#b~jjeAK5OR`2I=k zjejm`dxW)Ctj_sx^v{*{vm2-DYHeNkV#*$Wjpc52PPwUmxp{df7iYfz@Th9Z*J6nW zA5&AlC+~TteXf5I>#F1B*$iw)XPX`R&md68ogE?>d1AHx_IJH;)_c!y%bZ)rLv#_f{-+}8_Oi2*31E0`K%8Gkl4Mj3wwbK#8?6I^E< z8iG!T!?Qi2q$o2HG+>Rfe902DPzyPWgZLz8abrW|EDqlp@twEqi>V2NVQ3wEXT;n; zmtP;Rx|S#REKhFQ)%)h0wf-W15BSasKO|AI{##%*DaQTa zi310M4jP(o)iAa+^gn36QAOF*d?U+=lYt!P{LlI5t_-=b;iQJ9=7vkx_4W0yd!Nz0 zc3R(S`{gTv8s~LR25@-k`sr$U`vw-AKCd14!TXGFXoH0xzthfX&z6Wy6-iZlwv<^? z;k2ZLgv4A4iQN)2BqSqi>PkNRoilsSgX6n?_Ix)p{%`U-PS2`3=>L*;C+|+SRtxq0 zxB2^Tp3YsKbMMZ*E0cP6>eNs5Y8%2!!_U2c{dS&-^E>zZ-@h)Zuc|ZO{7)n0xpwT2 z1ff#HgJX(ncZGen9Kyw!`3vx|R}KV;6s z0BKI$#0)y;VNT?x1Vb|}q-&J%%z5CSQa1x_^nop)an^U$_tN*#_tp2;hh3u#xk4E+ z>yet7o>2ms`$&V`sGNm#r!uHrjbqBAAhjqnKSjS#zpykPw5XZ{raJp&tHT8InVm<(fxn60*ClY z{#DyKC(dJdnR&f-iM%zhoTS4)kqFzVLKn8!ML$lcZ!P3QY3i`*>{MrwubYuJ9xa&wg>`ib}Te<}Y7LE>CFr zy6n@G75dN5nfvv7_L_a`jF6wWNm1#}jmUX3vffBe5=i`GW_@|PJm065C0nj^h$Qn@ zR=9X6xdtxlENWkpvV6+dm6_5pmz~YpcBQvewzyZgo?5i1HmN50@1sY;&t{ytI@|u{ zl{<$nbuHSXA!$1M)3TZs{+jWp`hRtSrZvv52%TcPbym>=yXDsc`le_;b+HV7HibLY zaqWVzp!k4wSC~%qMtSTEmYbq}G{|a--c$$QWkM@8r!boK8ZGJ3Fm}>d>Khq&Geli? z>GjL$FBo;x*RGA~jp}DjIv93v#x@sg$K4*)Ar`?ibY&8r8C#wS71UiNZkx70;qQ&v zR=2FUOAeJ7mFy~!dwuS@@3q{^vNONDTyk{sIp3-k+nv^Tp1=IuJJ53d;w9~&8{AYM z#6GBg_wAW`#Qmh+)7vd4*|itei$3Yj3-9N%yZcf?{oq-xiFWg+-{sVwQqs$HZbEvJ zLT9sNaol6iic>agTI~-!ny$8hxk|sT`K8dDmgz<3_^u}y`N-|LbM>}-L+QqK-8nl$ z;&W%*J$nEBlKlTF584|ZraUy1_7Uh#k3L{CgIB({iM8fld17$M>@NpA3Vu#sns%v;z!^>6$71b6<>db{fKbFJ9|))mP!Z|1nG@BW~2bYscOYt1VJWYhlh zem*1Zb8ja9lQ%Il)-KJyl_O}KzL4{ufb_k&U%y0UKfURuc`mr~%>#G7)CGUm-dAaN z&FgY{W2Are@$|pt@4n3`;Zd%%bKD!SsO63Im&t~V`}y50ROMRNDhN(pFsVuCNK^Fn z9p_uPeo%Xmd-|e+icDqhvt;>GYe8b)E z@jvDz)@?VpKluK-Bv-!T3+DsP{d2fiaQ*$Qb!6FtnH=>Sp1H()b$fYoOV^!kZ;WqS zZ<=8LI;Ytz`uDZzDIS|*{8G1_Y@c{B@k-k)zqxC)vK@R^=x);6ukokk(!8rj>wY(X zTX_1-*}9ObRi@_4Vi)lXyYTW`#c98||C{x}0srR-Y3%bj+s@r6X#8HgCSebs#n&%& z@v%|5C-=~-{~Ly87B$WBd%kYZ?&X>>$M~debpP3Ap^duC zWsi*>I=jv9_YYpRTq7f+TH(Rbtnj>tKP=OPfAPF-W0A3wR=$}OKDAW)p`FpMz5AJ4 zT&ADC*BWqMXvJAij_PB)?&&eY3Z(K z_A~$P%(3u6a>kRmTi<8xTzA?hO8e&KPhNk^mrkE}acSFzr5REZzy77rGcF`wsuJaJD#fKwY7^GD1xz)#Pm8q4i!9vPIZ`rYzFoC@m9Sx2oGG zG%C2nJSpC$g3&l(6?ee=_UfG2$Ev!Yp74dvwY=MQ<8|}FANC)<96dPi;l_6TWfNS^ zE%KY!(Q-oW4#$M2E!y_q&5|P>;yPlTAGJQ1P`1zAasO+rd40b>HFE_;Ub^yb>4TZk ze?%oZawR^gB|w=d}QZ5Wyqj+t44R;ti97zwl20=U01BU?Sbx5Lwl}`69g77 zD>JHoBxO*0h1KU+?~!szgQoj_y&~c7LnYo?7p|!9!!(8G0kH=ie)L|LJ@0p?dSc^IA10kT zEAB6OTf=4T)z7{x;*Xd)yQ^oK()N9O(%-x@dv_t>b@|&DT)V`AvyQ!59ejD$kMOx) zwi@26_E`|eb>5=m$ovCNIlcQ;rtOhvf1F`(Fl~dxG$F}Ihb1iKkIeX9pJQVFpuFia zlhl^R+TPY1tn3L~uan(Y@yog_C}Cd{dTGC4a`BZP?P2U?f=D zk{tzyN_nItCmir@sy<#kvG=!^&LpAwEVW6e4=;TCA@hH4Sx4UT{BKR(>laOL_#j^- z`r^krtrCg3r?p*fZa?C8qB{AIx%8e|_OzQs&QRw{*XD{9XC|UW9j4?KekF zvm*;*QXHPXcro?VuVvmv(YLpLN_ffo=4@z#fMxw#ncYWjeSET1>B`bc|8}l6t&)^$ zSg?OxcK?AN7c4kSvW|WJ|0a8@;KG-iguL!wFfq}2Abwcjd$n)5yj0r!pCpYN5ytd7}jH&pT2NzSsnr#ntbdS$? zTfygkrmP{LN_A~}ec|kVW-RILEHy2+rhH!gReSSwo_kF@)ef>dNjWX)eLZXQy8NHd z+iEM12aC+sN(waCeJOuw<%*;G_8pyc_8R}+e;c2Q88Ll4zrQgoyv93fYRTL3jYrd_ z-eWf^SCzTD&%KVxbo2G~_kR4W^UkTUjdXM`@KCS+>>K4UdC#5uPg_5$ckK}Sd34U= zj=iOyPYG-Gzd6?JnzwrUN#V)gwJ)js%90Mc@YzmEZ*u9Gm0NcjK0EJfvpD+?fB1}r zmhV-b&sW=W+@p5({is8=n_jYFbJ5=Ipv-b1``W|P zpS_pbbmsmobw$tGUw@Zs2YeP=(d?nT+qnMFM3H@qnTclC+xl|O z-NiXS?mfP{PH@(;f9n@}$Y=fVefr%Wy&gQ(5<-iXN1?w}2gA8bxW_H>{6e>&We zUr=~`Q2ygbLSYqb4>c2y-A-4kZedR}Gt2rpE7Yh__lAH4OY@5;!54Gb?|we8?f#0j zssGuTjW|2_^d9+LEz#CLG^Oo&b^OBJPXukGdzfZN`Y%%z;4yShn3ykjjq~WPg)_c> z?CMoj*qWbyH*Lxpt2N4P;!DaNuUX?ZGbZPAn8OaYWQJX`Gh)PNo-<}&eOh~4`gG5C z9YtKhUBZI9W1g9~XZ>5w=)h}M5&!jEz5cFm`ui4je!Uj;uW8MS6DRF_);#_1+&1g` z*(RwkdIw(24(ZHZqWP0i_3n?;v#k>aW~!P@`E8M6QF35smgpqK{)d|hLDmmnT>BYpYa07IZ}D{}zM7a= zWU(tJ|CnI>7N*JtQ%~3)w!L}B-k492>2m=4{=JWtGMz6?U|6?e?amUnXPHyQXPmF< z&MMy~QWt)%Z+aqgzQoG|Y_nEdy?QKdl^JKC#85q@=gcZb(4vd^DxQvB-2 zg99gp-TCV8S3LR9${ikk(LPcja{qy(Ge2(W#pr9^++w}lV7)>8ee>VjH0mtYRkhqu zzkmCt-lvZfD?RTEFr`nOaMjVA@336b;qsHqWUK?rrMGVK7vmLPeLXHI^;!J(BAviT z6CS{EIb6H*Tao|yr_-vP#hGGc!&ognJ{ISuzn`XF z|7HH(TNj1Rs^=ZIGGAF2#j3B}+|cDL%EPBCs9731S!LI)ZqX{MQ%bhBSL^nk6#1%e zTw=5bvv+Dt?BJ)rca&FzA86JFZ8XHl)Ih=9+zf4}mx%#Cy!}z`RtS25Z-{0>!Nk1H|_Rk6?u`JGG%*qZqR}T z9W~bv>_1mtQ8@ZZ`J{%@Bdv}N+&X&N3p#dhD46!t|A1>sWTX}o)21x1H3F*+U70^| zWq;kTr|g#CmF?4x(~Q==$#V}^IBxP;gqcL^hbTEQvwuD=xX!_t=jT4lHKU4 z(R`lxnKmXSN8-g~L`1Z@PXsMtmv=2$)V%0;QvA6G zZO;?MrfzPU8L6mNnCDaOn4XvC=$Mz6?pR))o^I|fXZ8O<-+85zvO6m6E+?mLJMpXS z`E~nwZ-4eLvQ%XDx*;LG(3&wcVL@r>)Y7x^{>pb_OYJR#SD!ka9n5>>YQx17W)icr zrKB^=kN}a{Lk9kYCCm3+i`ZME z_jCWJPm2Q>L*r6?pZfZmZav$(rk6X#B-%ewV%`4YRgV`>?3gd8rK;t6>gf5ukKCD0 zB=9s(dh5UVfB)pt;yIdc9)^8+kh%K7r^Vgd3tD;A&vDA$zA)7=r^9xK^d!YpmEVs( zxPPlYJfHXO+ZX>2d3^Wy7OoopdLfTf&#GD3daL<8+j3oh)-1frmO1JEyBW6DecOZ> ztClZJ$$4~-d51T@xP4b&w@1{}IQgscXV`we^*bBvxas=s`kUXbPX4G}+x#ZwPsPX3 zeea^pv(jEzvc@HaTyC3v!P$P>_iz3OUaeZ2m@ochWA!!TYq4uB!ynz6%Bk<=kLQY+8jw|EY!oAL#sijY2PFmFMgGriAK`-wV7iJ1(n7qB9^>p4u z*`A-bJvvL?&3`m0UpZ~1^!7P3tm4$8SmN)BJW5`ae1OH&{Z@x{Rm$V{49pD5`bjE! zuHS=o1DMrzExfeEUawzq-tC*;J1!e4wFum};S=-U#YH&f<(b{S4%e^GlG?}Kd(`Gz zs)^x;4Lq@v14R10@9!*@$*4_TdXFLWZPd&CHF*=ZI*2$N`aU^hQ%{AA?Y0GewYjOa zm+!w@_}s#}$xm0K<@g@C^HU-VCyM4r=be4u^xABR+C`hrDZVFc9|q0beAUgg+9ihP zs#~q|tF2UZeO@v-f{kPg~x0YM=dP{ol7tF*)K%%7%tz`>+4g ze{+*`c3vUz zO8*!xS26A_v-kUNX;F`Qt&!eQeyltH&tIbp(Ql4Pa;@!q8g}r4a!!rPlWz}1m@kW7 zp7}j^e)~MX_KJ=(x20$7U7Do4rv2>JPu>s14=ppPZ!xU6@bTd0dnb3be~|R$o1mE{ zpR+x4{&e31_Y-CE4&Obtu`K4(Nl)o72V--0`v)tv95%bbW0<;8^&h9@?#5?37q&~k z`Pm>o<<&j``;tE`FI%KcrNwuP{a`HiNP4)?ZTE|vVJ8_68(Pk;^|+H?#Z^{k+gitb zf2ZwDp`8mW1FZPJYVNE0TH1enYxs4ax32YKh{*bRPa(a2Ew4m!6 zPQN{D%eMWS<{f)$-5KG~fZT-h_avqFaDJH{e#q(i{{4!YeqNJK9Nc6SC&?N&Z@oq5 z4;ipQi~lOw!;>Dmmz?=od5j^%!1<0|;QUuUar3;YC&ljf`}QQqpvbEAvVc zD|GXUmDQp8G9%#H@{0AqZqiH6&(+V2&^OdG(1%$BYBd#Q7JyFSQ2<$-n3P{yVyj+S znwer{Vqj)!YMPp?Yiwj-u4`zRW~^&qU|^tYo@APoXk=uXVrh~Jv#tQinJD%Zq@?K^ z>KW^+D-@)pSp^j3r<5kA7TK!12lyzsXXF=`6eol1SFqGGFjd!wdY@XZs>m(C9tstS z1<+uysmLv`^36}lOsjNBEJ?L9GBC8zH89jQGz~E@wlX!gGP2Y)u&^>Pu+c|T$pzNx z3_kLR7_CSuk+kL)h2-bw*rk+Z78Gk_Ybu!PSz0JK!>`jb0$rjPl$ZiKKS{y0GF2fs zKdq!Zu_zVd9I%;CBW(0R5r`CY)DFzV0$*SJ!I_&2O79?bRxbI;rJ(bnJY7ghP1H^R zDamjL7nBy|fU{0YGVJWCVtqqBLw$9Hlw_;4{G!~%5?l4ef`XjPWbmm}`UNRz>UK6M z$yOzqB{`{f;Ed^*QvzY+WP&o9RZe1Fx~+PJZc1ueVrfo^x?Mp&=n$>=qSBnyV!f2I zOh~NcWZFR(VEy_CGqJ=OSSZNF&5p}PA6#~T$`Ly*1u6mR8H6ZPQ}a@6)yqL8W@=ta zaY<2XVlJro&QHqXLRugK%lsPH^1ddQJ~%OF=I4PjlZJ~GC?^^i8k!myn;L^Np}K*A zx+a&tZ+;2^6<~w%i!{KQDn=tahWKoy$)z6xifs+_c+|ABOU+9G`KY2OHI2(a!O+m0 z3sf9Ju!5PXsj;a-ngT@3!otkVLIEtLkOvVnG&L}{G)EOPu&^*QFv1Ws0$no*(hSoJ zVuRKcfoQmxiKV3lre1Sn6EyQI4J<)-v?1#?G%z;?9m0StW?*4yY;K9J*V4?~7+uW5 z+z3s~(8Sop6y0x@76vA0?lUwov@kM5H_zM%-5-X=<_2aMZZWd}t+YUPv!Stxi7}d6 z3@lA84Gd82Ff=waFhX;Sfu)JD0a{oY8kt$5+hJg7Y>ckg(8$Qb6vH1zCI)C?hK6S5 zrlzQFF|ahWK#yNTLn9MILv(cpCgx~iYG`0=VuogifrX_xde|Ep7@A^+i=`1pIxsOe zw8RK!3llT6urf3;vM@#yGq5zb0G*A95+5c8W}pq3$YKVT<_1P+b{HC)ni!+y4+Bdx zGxV@GG&VNI$TOCvMy43%85m*4hpB-9diWVxnqj6Z69ZE;zZn{t8JnP`Ap=WeLo>9v zG&C|YG{o?SktMobLnA{Y&~1^Z;bLfxo)-)a4b9Qhu7RbYsX4m)3=J&J(bJ2Cg}FJJ z`wT2BEDSKkOwiqDU}|7sfS!*mER0Ms{AOT;5l03_7MO0aG({IPG%&yndkaegjPz$= zX^5U)3@j}zG2+qyl=4yYjG=*{xdnRKFfcX%?O#O>dqV?bbI<|FsAA^kMri&uG&D5C z%&Uf$2IzJe8krkn#F4oHdVClf8Jd7DrAD#W$jI0jEiMg>j1AGtaYG|BQxkOe8JQcI zV~AN=V3Zri1|}BhWu3912}b#BY;1-RE}$X@Js%mHnxWSfhQ{V580p!>zyc%Bm>3yg zW}RYbjBH0q zQDSCJY7v)>je>q~W>qSv;iRA+l%HRsV5nfA5Tu~*nU|KY0BR=&ap`-yC`8*BJDQkU z7@9a+SQr_&I9eLIxjCCySeO|aS-3j78kjiS5mph)WoO4#T#{H+0&cDuni?7ym~*MB Jy863u0RS=L^6mft diff --git a/vendors/ott/examples/ocaml_light/doc/llncs.cls b/vendors/ott/examples/ocaml_light/doc/llncs.cls deleted file mode 100644 index f2e996a4834a..000000000000 --- a/vendors/ott/examples/ocaml_light/doc/llncs.cls +++ /dev/null @@ -1,1189 +0,0 @@ -% LLNCS DOCUMENT CLASS -- version 2.13 (28-Jan-2002) -% Springer Verlag LaTeX2e support for Lecture Notes in Computer Science -% -%% -%% \CharacterTable -%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z -%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z -%% Digits \0\1\2\3\4\5\6\7\8\9 -%% Exclamation \! Double quote \" Hash (number) \# -%% Dollar \$ Percent \% Ampersand \& -%% Acute accent \' Left paren \( Right paren \) -%% Asterisk \* Plus \+ Comma \, -%% Minus \- Point \. Solidus \/ -%% Colon \: Semicolon \; Less than \< -%% Equals \= Greater than \> Question mark \? -%% Commercial at \@ Left bracket \[ Backslash \\ -%% Right bracket \] Circumflex \^ Underscore \_ -%% Grave accent \` Left brace \{ Vertical bar \| -%% Right brace \} Tilde \~} -%% -\NeedsTeXFormat{LaTeX2e}[1995/12/01] -\ProvidesClass{llncs}[2002/01/28 v2.13 -^^J LaTeX document class for Lecture Notes in Computer Science] -% Options -\let\if@envcntreset\iffalse -\DeclareOption{envcountreset}{\let\if@envcntreset\iftrue} -\DeclareOption{citeauthoryear}{\let\citeauthoryear=Y} -\DeclareOption{oribibl}{\let\oribibl=Y} -\let\if@custvec\iftrue -\DeclareOption{orivec}{\let\if@custvec\iffalse} -\let\if@envcntsame\iffalse -\DeclareOption{envcountsame}{\let\if@envcntsame\iftrue} -\let\if@envcntsect\iffalse -\DeclareOption{envcountsect}{\let\if@envcntsect\iftrue} -\let\if@runhead\iffalse -\DeclareOption{runningheads}{\let\if@runhead\iftrue} - -\let\if@openbib\iffalse -\DeclareOption{openbib}{\let\if@openbib\iftrue} - -% languages -\let\switcht@@therlang\relax -\def\ds@deutsch{\def\switcht@@therlang{\switcht@deutsch}} -\def\ds@francais{\def\switcht@@therlang{\switcht@francais}} - -\DeclareOption*{\PassOptionsToClass{\CurrentOption}{article}} - -\ProcessOptions - -\LoadClass[twoside]{article} -\RequirePackage{multicol} % needed for the list of participants, index - -\setlength{\textwidth}{12.2cm} -\setlength{\textheight}{19.3cm} -\renewcommand\@pnumwidth{2em} -\renewcommand\@tocrmarg{3.5em} -% -\def\@dottedtocline#1#2#3#4#5{% - \ifnum #1>\c@tocdepth \else - \vskip \z@ \@plus.2\p@ - {\leftskip #2\relax \rightskip \@tocrmarg \advance\rightskip by 0pt plus 2cm - \parfillskip -\rightskip \pretolerance=10000 - \parindent #2\relax\@afterindenttrue - \interlinepenalty\@M - \leavevmode - \@tempdima #3\relax - \advance\leftskip \@tempdima \null\nobreak\hskip -\leftskip - {#4}\nobreak - \leaders\hbox{$\m@th - \mkern \@dotsep mu\hbox{.}\mkern \@dotsep - mu$}\hfill - \nobreak - \hb@xt@\@pnumwidth{\hfil\normalfont \normalcolor #5}% - \par}% - \fi} -% -\def\switcht@albion{% -\def\abstractname{Abstract.} -\def\ackname{Acknowledgement.} -\def\andname{and} -\def\lastandname{\unskip, and} -\def\appendixname{Appendix} -\def\chaptername{Chapter} -\def\claimname{Claim} -\def\conjecturename{Conjecture} -\def\contentsname{Table of Contents} -\def\corollaryname{Corollary} -\def\definitionname{Definition} -\def\examplename{Example} -\def\exercisename{Exercise} -\def\figurename{Fig.} -\def\keywordname{{\bf Key words:}} -\def\indexname{Index} -\def\lemmaname{Lemma} -\def\contriblistname{List of Contributors} -\def\listfigurename{List of Figures} -\def\listtablename{List of Tables} -\def\mailname{{\it Correspondence to\/}:} -\def\noteaddname{Note added in proof} -\def\notename{Note} -\def\partname{Part} -\def\problemname{Problem} -\def\proofname{Proof} -\def\propertyname{Property} -\def\propositionname{Proposition} -\def\questionname{Question} -\def\remarkname{Remark} -\def\seename{see} -\def\solutionname{Solution} -\def\subclassname{{\it Subject Classifications\/}:} -\def\tablename{Table} -\def\theoremname{Theorem}} -\switcht@albion -% Names of theorem like environments are already defined -% but must be translated if another language is chosen -% -% French section -\def\switcht@francais{%\typeout{On parle francais.}% - \def\abstractname{R\'esum\'e.}% - \def\ackname{Remerciements.}% - \def\andname{et}% - \def\lastandname{ et}% - \def\appendixname{Appendice} - \def\chaptername{Chapitre}% - \def\claimname{Pr\'etention}% - \def\conjecturename{Hypoth\`ese}% - \def\contentsname{Table des mati\`eres}% - \def\corollaryname{Corollaire}% - \def\definitionname{D\'efinition}% - \def\examplename{Exemple}% - \def\exercisename{Exercice}% - \def\figurename{Fig.}% - \def\keywordname{{\bf Mots-cl\'e:}} - \def\indexname{Index} - \def\lemmaname{Lemme}% - \def\contriblistname{Liste des contributeurs} - \def\listfigurename{Liste des figures}% - \def\listtablename{Liste des tables}% - \def\mailname{{\it Correspondence to\/}:} - \def\noteaddname{Note ajout\'ee \`a l'\'epreuve}% - \def\notename{Remarque}% - \def\partname{Partie}% - \def\problemname{Probl\`eme}% - \def\proofname{Preuve}% - \def\propertyname{Caract\'eristique}% -%\def\propositionname{Proposition}% - \def\questionname{Question}% - \def\remarkname{Remarque}% - \def\seename{voir} - \def\solutionname{Solution}% - \def\subclassname{{\it Subject Classifications\/}:} - \def\tablename{Tableau}% - \def\theoremname{Th\'eor\`eme}% -} -% -% German section -\def\switcht@deutsch{%\typeout{Man spricht deutsch.}% - \def\abstractname{Zusammenfassung.}% - \def\ackname{Danksagung.}% - \def\andname{und}% - \def\lastandname{ und}% - \def\appendixname{Anhang}% - \def\chaptername{Kapitel}% - \def\claimname{Behauptung}% - \def\conjecturename{Hypothese}% - \def\contentsname{Inhaltsverzeichnis}% - \def\corollaryname{Korollar}% -%\def\definitionname{Definition}% - \def\examplename{Beispiel}% - \def\exercisename{\"Ubung}% - \def\figurename{Abb.}% - \def\keywordname{{\bf Schl\"usselw\"orter:}} - \def\indexname{Index} -%\def\lemmaname{Lemma}% - \def\contriblistname{Mitarbeiter} - \def\listfigurename{Abbildungsverzeichnis}% - \def\listtablename{Tabellenverzeichnis}% - \def\mailname{{\it Correspondence to\/}:} - \def\noteaddname{Nachtrag}% - \def\notename{Anmerkung}% - \def\partname{Teil}% -%\def\problemname{Problem}% - \def\proofname{Beweis}% - \def\propertyname{Eigenschaft}% -%\def\propositionname{Proposition}% - \def\questionname{Frage}% - \def\remarkname{Anmerkung}% - \def\seename{siehe} - \def\solutionname{L\"osung}% - \def\subclassname{{\it Subject Classifications\/}:} - \def\tablename{Tabelle}% -%\def\theoremname{Theorem}% -} - -% Ragged bottom for the actual page -\def\thisbottomragged{\def\@textbottom{\vskip\z@ plus.0001fil -\global\let\@textbottom\relax}} - -\renewcommand\small{% - \@setfontsize\small\@ixpt{11}% - \abovedisplayskip 8.5\p@ \@plus3\p@ \@minus4\p@ - \abovedisplayshortskip \z@ \@plus2\p@ - \belowdisplayshortskip 4\p@ \@plus2\p@ \@minus2\p@ - \def\@listi{\leftmargin\leftmargini - \parsep 0\p@ \@plus1\p@ \@minus\p@ - \topsep 8\p@ \@plus2\p@ \@minus4\p@ - \itemsep0\p@}% - \belowdisplayskip \abovedisplayskip -} - -\frenchspacing -\widowpenalty=10000 -\clubpenalty=10000 - -\setlength\oddsidemargin {63\p@} -\setlength\evensidemargin {63\p@} -\setlength\marginparwidth {90\p@} - -\setlength\headsep {16\p@} - -\setlength\footnotesep{7.7\p@} -\setlength\textfloatsep{8mm\@plus 2\p@ \@minus 4\p@} -\setlength\intextsep {8mm\@plus 2\p@ \@minus 2\p@} - -\setcounter{secnumdepth}{2} - -\newcounter {chapter} -\renewcommand\thechapter {\@arabic\c@chapter} - -\newif\if@mainmatter \@mainmattertrue -\newcommand\frontmatter{\cleardoublepage - \@mainmatterfalse\pagenumbering{Roman}} -\newcommand\mainmatter{\cleardoublepage - \@mainmattertrue\pagenumbering{arabic}} -\newcommand\backmatter{\if@openright\cleardoublepage\else\clearpage\fi - \@mainmatterfalse} - -\renewcommand\part{\cleardoublepage - \thispagestyle{empty}% - \if@twocolumn - \onecolumn - \@tempswatrue - \else - \@tempswafalse - \fi - \null\vfil - \secdef\@part\@spart} - -\def\@part[#1]#2{% - \ifnum \c@secnumdepth >-2\relax - \refstepcounter{part}% - \addcontentsline{toc}{part}{\thepart\hspace{1em}#1}% - \else - \addcontentsline{toc}{part}{#1}% - \fi - \markboth{}{}% - {\centering - \interlinepenalty \@M - \normalfont - \ifnum \c@secnumdepth >-2\relax - \huge\bfseries \partname~\thepart - \par - \vskip 20\p@ - \fi - \Huge \bfseries #2\par}% - \@endpart} -\def\@spart#1{% - {\centering - \interlinepenalty \@M - \normalfont - \Huge \bfseries #1\par}% - \@endpart} -\def\@endpart{\vfil\newpage - \if@twoside - \null - \thispagestyle{empty}% - \newpage - \fi - \if@tempswa - \twocolumn - \fi} - -\newcommand\chapter{\clearpage - \thispagestyle{empty}% - \global\@topnum\z@ - \@afterindentfalse - \secdef\@chapter\@schapter} -\def\@chapter[#1]#2{\ifnum \c@secnumdepth >\m@ne - \if@mainmatter - \refstepcounter{chapter}% - \typeout{\@chapapp\space\thechapter.}% - \addcontentsline{toc}{chapter}% - {\protect\numberline{\thechapter}#1}% - \else - \addcontentsline{toc}{chapter}{#1}% - \fi - \else - \addcontentsline{toc}{chapter}{#1}% - \fi - \chaptermark{#1}% - \addtocontents{lof}{\protect\addvspace{10\p@}}% - \addtocontents{lot}{\protect\addvspace{10\p@}}% - \if@twocolumn - \@topnewpage[\@makechapterhead{#2}]% - \else - \@makechapterhead{#2}% - \@afterheading - \fi} -\def\@makechapterhead#1{% -% \vspace*{50\p@}% - {\centering - \ifnum \c@secnumdepth >\m@ne - \if@mainmatter - \large\bfseries \@chapapp{} \thechapter - \par\nobreak - \vskip 20\p@ - \fi - \fi - \interlinepenalty\@M - \Large \bfseries #1\par\nobreak - \vskip 40\p@ - }} -\def\@schapter#1{\if@twocolumn - \@topnewpage[\@makeschapterhead{#1}]% - \else - \@makeschapterhead{#1}% - \@afterheading - \fi} -\def\@makeschapterhead#1{% -% \vspace*{50\p@}% - {\centering - \normalfont - \interlinepenalty\@M - \Large \bfseries #1\par\nobreak - \vskip 40\p@ - }} - -\renewcommand\section{\@startsection{section}{1}{\z@}% - {-18\p@ \@plus -4\p@ \@minus -4\p@}% - {12\p@ \@plus 4\p@ \@minus 4\p@}% - {\normalfont\large\bfseries\boldmath - \rightskip=\z@ \@plus 8em\pretolerance=10000 }} -\renewcommand\subsection{\@startsection{subsection}{2}{\z@}% - {-18\p@ \@plus -4\p@ \@minus -4\p@}% - {8\p@ \@plus 4\p@ \@minus 4\p@}% - {\normalfont\normalsize\bfseries\boldmath - \rightskip=\z@ \@plus 8em\pretolerance=10000 }} -\renewcommand\subsubsection{\@startsection{subsubsection}{3}{\z@}% - {-18\p@ \@plus -4\p@ \@minus -4\p@}% - {-0.5em \@plus -0.22em \@minus -0.1em}% - {\normalfont\normalsize\bfseries\boldmath}} -\renewcommand\paragraph{\@startsection{paragraph}{4}{\z@}% - {-12\p@ \@plus -4\p@ \@minus -4\p@}% - {-0.5em \@plus -0.22em \@minus -0.1em}% - {\normalfont\normalsize\itshape}} -\renewcommand\subparagraph[1]{\typeout{LLNCS warning: You should not use - \string\subparagraph\space with this class}\vskip0.5cm -You should not use \verb|\subparagraph| with this class.\vskip0.5cm} - -\DeclareMathSymbol{\Gamma}{\mathalpha}{letters}{"00} -\DeclareMathSymbol{\Delta}{\mathalpha}{letters}{"01} -\DeclareMathSymbol{\Theta}{\mathalpha}{letters}{"02} -\DeclareMathSymbol{\Lambda}{\mathalpha}{letters}{"03} -\DeclareMathSymbol{\Xi}{\mathalpha}{letters}{"04} -\DeclareMathSymbol{\Pi}{\mathalpha}{letters}{"05} -\DeclareMathSymbol{\Sigma}{\mathalpha}{letters}{"06} -\DeclareMathSymbol{\Upsilon}{\mathalpha}{letters}{"07} -\DeclareMathSymbol{\Phi}{\mathalpha}{letters}{"08} -\DeclareMathSymbol{\Psi}{\mathalpha}{letters}{"09} -\DeclareMathSymbol{\Omega}{\mathalpha}{letters}{"0A} - -\let\footnotesize\small - -\if@custvec -\def\vec#1{\mathchoice{\mbox{\boldmath$\displaystyle#1$}} -{\mbox{\boldmath$\textstyle#1$}} -{\mbox{\boldmath$\scriptstyle#1$}} -{\mbox{\boldmath$\scriptscriptstyle#1$}}} -\fi - -\def\squareforqed{\hbox{\rlap{$\sqcap$}$\sqcup$}} -\def\qed{\ifmmode\squareforqed\else{\unskip\nobreak\hfil -\penalty50\hskip1em\null\nobreak\hfil\squareforqed -\parfillskip=0pt\finalhyphendemerits=0\endgraf}\fi} - -\def\getsto{\mathrel{\mathchoice {\vcenter{\offinterlineskip -\halign{\hfil -$\displaystyle##$\hfil\cr\gets\cr\to\cr}}} -{\vcenter{\offinterlineskip\halign{\hfil$\textstyle##$\hfil\cr\gets -\cr\to\cr}}} -{\vcenter{\offinterlineskip\halign{\hfil$\scriptstyle##$\hfil\cr\gets -\cr\to\cr}}} -{\vcenter{\offinterlineskip\halign{\hfil$\scriptscriptstyle##$\hfil\cr -\gets\cr\to\cr}}}}} -\def\lid{\mathrel{\mathchoice {\vcenter{\offinterlineskip\halign{\hfil -$\displaystyle##$\hfil\cr<\cr\noalign{\vskip1.2pt}=\cr}}} -{\vcenter{\offinterlineskip\halign{\hfil$\textstyle##$\hfil\cr<\cr -\noalign{\vskip1.2pt}=\cr}}} -{\vcenter{\offinterlineskip\halign{\hfil$\scriptstyle##$\hfil\cr<\cr -\noalign{\vskip1pt}=\cr}}} -{\vcenter{\offinterlineskip\halign{\hfil$\scriptscriptstyle##$\hfil\cr -<\cr -\noalign{\vskip0.9pt}=\cr}}}}} -\def\gid{\mathrel{\mathchoice {\vcenter{\offinterlineskip\halign{\hfil -$\displaystyle##$\hfil\cr>\cr\noalign{\vskip1.2pt}=\cr}}} -{\vcenter{\offinterlineskip\halign{\hfil$\textstyle##$\hfil\cr>\cr -\noalign{\vskip1.2pt}=\cr}}} -{\vcenter{\offinterlineskip\halign{\hfil$\scriptstyle##$\hfil\cr>\cr -\noalign{\vskip1pt}=\cr}}} -{\vcenter{\offinterlineskip\halign{\hfil$\scriptscriptstyle##$\hfil\cr ->\cr -\noalign{\vskip0.9pt}=\cr}}}}} -\def\grole{\mathrel{\mathchoice {\vcenter{\offinterlineskip -\halign{\hfil -$\displaystyle##$\hfil\cr>\cr\noalign{\vskip-1pt}<\cr}}} -{\vcenter{\offinterlineskip\halign{\hfil$\textstyle##$\hfil\cr ->\cr\noalign{\vskip-1pt}<\cr}}} -{\vcenter{\offinterlineskip\halign{\hfil$\scriptstyle##$\hfil\cr ->\cr\noalign{\vskip-0.8pt}<\cr}}} -{\vcenter{\offinterlineskip\halign{\hfil$\scriptscriptstyle##$\hfil\cr ->\cr\noalign{\vskip-0.3pt}<\cr}}}}} -\def\bbbr{{\rm I\!R}} %reelle Zahlen -\def\bbbm{{\rm I\!M}} -\def\bbbn{{\rm I\!N}} %natuerliche Zahlen -\def\bbbf{{\rm I\!F}} -\def\bbbh{{\rm I\!H}} -\def\bbbk{{\rm I\!K}} -\def\bbbp{{\rm I\!P}} -\def\bbbone{{\mathchoice {\rm 1\mskip-4mu l} {\rm 1\mskip-4mu l} -{\rm 1\mskip-4.5mu l} {\rm 1\mskip-5mu l}}} -\def\bbbc{{\mathchoice {\setbox0=\hbox{$\displaystyle\rm C$}\hbox{\hbox -to0pt{\kern0.4\wd0\vrule height0.9\ht0\hss}\box0}} -{\setbox0=\hbox{$\textstyle\rm C$}\hbox{\hbox -to0pt{\kern0.4\wd0\vrule height0.9\ht0\hss}\box0}} -{\setbox0=\hbox{$\scriptstyle\rm C$}\hbox{\hbox -to0pt{\kern0.4\wd0\vrule height0.9\ht0\hss}\box0}} -{\setbox0=\hbox{$\scriptscriptstyle\rm C$}\hbox{\hbox -to0pt{\kern0.4\wd0\vrule height0.9\ht0\hss}\box0}}}} -\def\bbbq{{\mathchoice {\setbox0=\hbox{$\displaystyle\rm -Q$}\hbox{\raise -0.15\ht0\hbox to0pt{\kern0.4\wd0\vrule height0.8\ht0\hss}\box0}} -{\setbox0=\hbox{$\textstyle\rm Q$}\hbox{\raise -0.15\ht0\hbox to0pt{\kern0.4\wd0\vrule height0.8\ht0\hss}\box0}} -{\setbox0=\hbox{$\scriptstyle\rm Q$}\hbox{\raise -0.15\ht0\hbox to0pt{\kern0.4\wd0\vrule height0.7\ht0\hss}\box0}} -{\setbox0=\hbox{$\scriptscriptstyle\rm Q$}\hbox{\raise -0.15\ht0\hbox to0pt{\kern0.4\wd0\vrule height0.7\ht0\hss}\box0}}}} -\def\bbbt{{\mathchoice {\setbox0=\hbox{$\displaystyle\rm -T$}\hbox{\hbox to0pt{\kern0.3\wd0\vrule height0.9\ht0\hss}\box0}} -{\setbox0=\hbox{$\textstyle\rm T$}\hbox{\hbox -to0pt{\kern0.3\wd0\vrule height0.9\ht0\hss}\box0}} -{\setbox0=\hbox{$\scriptstyle\rm T$}\hbox{\hbox -to0pt{\kern0.3\wd0\vrule height0.9\ht0\hss}\box0}} -{\setbox0=\hbox{$\scriptscriptstyle\rm T$}\hbox{\hbox -to0pt{\kern0.3\wd0\vrule height0.9\ht0\hss}\box0}}}} -\def\bbbs{{\mathchoice -{\setbox0=\hbox{$\displaystyle \rm S$}\hbox{\raise0.5\ht0\hbox -to0pt{\kern0.35\wd0\vrule height0.45\ht0\hss}\hbox -to0pt{\kern0.55\wd0\vrule height0.5\ht0\hss}\box0}} -{\setbox0=\hbox{$\textstyle \rm S$}\hbox{\raise0.5\ht0\hbox -to0pt{\kern0.35\wd0\vrule height0.45\ht0\hss}\hbox -to0pt{\kern0.55\wd0\vrule height0.5\ht0\hss}\box0}} -{\setbox0=\hbox{$\scriptstyle \rm S$}\hbox{\raise0.5\ht0\hbox -to0pt{\kern0.35\wd0\vrule height0.45\ht0\hss}\raise0.05\ht0\hbox -to0pt{\kern0.5\wd0\vrule height0.45\ht0\hss}\box0}} -{\setbox0=\hbox{$\scriptscriptstyle\rm S$}\hbox{\raise0.5\ht0\hbox -to0pt{\kern0.4\wd0\vrule height0.45\ht0\hss}\raise0.05\ht0\hbox -to0pt{\kern0.55\wd0\vrule height0.45\ht0\hss}\box0}}}} -\def\bbbz{{\mathchoice {\hbox{$\mathsf\textstyle Z\kern-0.4em Z$}} -{\hbox{$\mathsf\textstyle Z\kern-0.4em Z$}} -{\hbox{$\mathsf\scriptstyle Z\kern-0.3em Z$}} -{\hbox{$\mathsf\scriptscriptstyle Z\kern-0.2em Z$}}}} - -\let\ts\, - -\setlength\leftmargini {17\p@} -\setlength\leftmargin {\leftmargini} -\setlength\leftmarginii {\leftmargini} -\setlength\leftmarginiii {\leftmargini} -\setlength\leftmarginiv {\leftmargini} -\setlength \labelsep {.5em} -\setlength \labelwidth{\leftmargini} -\addtolength\labelwidth{-\labelsep} - -\def\@listI{\leftmargin\leftmargini - \parsep 0\p@ \@plus1\p@ \@minus\p@ - \topsep 8\p@ \@plus2\p@ \@minus4\p@ - \itemsep0\p@} -\let\@listi\@listI -\@listi -\def\@listii {\leftmargin\leftmarginii - \labelwidth\leftmarginii - \advance\labelwidth-\labelsep - \topsep 0\p@ \@plus2\p@ \@minus\p@} -\def\@listiii{\leftmargin\leftmarginiii - \labelwidth\leftmarginiii - \advance\labelwidth-\labelsep - \topsep 0\p@ \@plus\p@\@minus\p@ - \parsep \z@ - \partopsep \p@ \@plus\z@ \@minus\p@} - -\renewcommand\labelitemi{\normalfont\bfseries --} -\renewcommand\labelitemii{$\m@th\bullet$} - -\setlength\arraycolsep{1.4\p@} -\setlength\tabcolsep{1.4\p@} - -\def\tableofcontents{\chapter*{\contentsname\@mkboth{{\contentsname}}% - {{\contentsname}}} - \def\authcount##1{\setcounter{auco}{##1}\setcounter{@auth}{1}} - \def\lastand{\ifnum\value{auco}=2\relax - \unskip{} \andname\ - \else - \unskip \lastandname\ - \fi}% - \def\and{\stepcounter{@auth}\relax - \ifnum\value{@auth}=\value{auco}% - \lastand - \else - \unskip, - \fi}% - \@starttoc{toc}\if@restonecol\twocolumn\fi} - -\def\l@part#1#2{\addpenalty{\@secpenalty}% - \addvspace{2em plus\p@}% % space above part line - \begingroup - \parindent \z@ - \rightskip \z@ plus 5em - \hrule\vskip5pt - \large % same size as for a contribution heading - \bfseries\boldmath % set line in boldface - \leavevmode % TeX command to enter horizontal mode. - #1\par - \vskip5pt - \hrule - \vskip1pt - \nobreak % Never break after part entry - \endgroup} - -\def\@dotsep{2} - -\def\hyperhrefextend{\ifx\hyper@anchor\@undefined\else -{chapter.\thechapter}\fi} - -\def\addnumcontentsmark#1#2#3{% -\addtocontents{#1}{\protect\contentsline{#2}{\protect\numberline - {\thechapter}#3}{\thepage}\hyperhrefextend}} -\def\addcontentsmark#1#2#3{% -\addtocontents{#1}{\protect\contentsline{#2}{#3}{\thepage}\hyperhrefextend}} -\def\addcontentsmarkwop#1#2#3{% -\addtocontents{#1}{\protect\contentsline{#2}{#3}{0}\hyperhrefextend}} - -\def\@adcmk[#1]{\ifcase #1 \or -\def\@gtempa{\addnumcontentsmark}% - \or \def\@gtempa{\addcontentsmark}% - \or \def\@gtempa{\addcontentsmarkwop}% - \fi\@gtempa{toc}{chapter}} -\def\addtocmark{\@ifnextchar[{\@adcmk}{\@adcmk[3]}} - -\def\l@chapter#1#2{\addpenalty{-\@highpenalty} - \vskip 1.0em plus 1pt \@tempdima 1.5em \begingroup - \parindent \z@ \rightskip \@tocrmarg - \advance\rightskip by 0pt plus 2cm - \parfillskip -\rightskip \pretolerance=10000 - \leavevmode \advance\leftskip\@tempdima \hskip -\leftskip - {\large\bfseries\boldmath#1}\ifx0#2\hfil\null - \else - \nobreak - \leaders\hbox{$\m@th \mkern \@dotsep mu.\mkern - \@dotsep mu$}\hfill - \nobreak\hbox to\@pnumwidth{\hss #2}% - \fi\par - \penalty\@highpenalty \endgroup} - -\def\l@title#1#2{\addpenalty{-\@highpenalty} - \addvspace{8pt plus 1pt} - \@tempdima \z@ - \begingroup - \parindent \z@ \rightskip \@tocrmarg - \advance\rightskip by 0pt plus 2cm - \parfillskip -\rightskip \pretolerance=10000 - \leavevmode \advance\leftskip\@tempdima \hskip -\leftskip - #1\nobreak - \leaders\hbox{$\m@th \mkern \@dotsep mu.\mkern - \@dotsep mu$}\hfill - \nobreak\hbox to\@pnumwidth{\hss #2}\par - \penalty\@highpenalty \endgroup} - -\def\l@author#1#2{\addpenalty{\@highpenalty} - \@tempdima=\z@ %15\p@ - \begingroup - \parindent \z@ \rightskip \@tocrmarg - \advance\rightskip by 0pt plus 2cm - \pretolerance=10000 - \leavevmode \advance\leftskip\@tempdima %\hskip -\leftskip - \textit{#1}\par - \penalty\@highpenalty \endgroup} - -\setcounter{tocdepth}{0} -\newdimen\tocchpnum -\newdimen\tocsecnum -\newdimen\tocsectotal -\newdimen\tocsubsecnum -\newdimen\tocsubsectotal -\newdimen\tocsubsubsecnum -\newdimen\tocsubsubsectotal -\newdimen\tocparanum -\newdimen\tocparatotal -\newdimen\tocsubparanum -\tocchpnum=\z@ % no chapter numbers -\tocsecnum=15\p@ % section 88. plus 2.222pt -\tocsubsecnum=23\p@ % subsection 88.8 plus 2.222pt -\tocsubsubsecnum=27\p@ % subsubsection 88.8.8 plus 1.444pt -\tocparanum=35\p@ % paragraph 88.8.8.8 plus 1.666pt -\tocsubparanum=43\p@ % subparagraph 88.8.8.8.8 plus 1.888pt -\def\calctocindent{% -\tocsectotal=\tocchpnum -\advance\tocsectotal by\tocsecnum -\tocsubsectotal=\tocsectotal -\advance\tocsubsectotal by\tocsubsecnum -\tocsubsubsectotal=\tocsubsectotal -\advance\tocsubsubsectotal by\tocsubsubsecnum -\tocparatotal=\tocsubsubsectotal -\advance\tocparatotal by\tocparanum} -\calctocindent - -\def\l@section{\@dottedtocline{1}{\tocchpnum}{\tocsecnum}} -\def\l@subsection{\@dottedtocline{2}{\tocsectotal}{\tocsubsecnum}} -\def\l@subsubsection{\@dottedtocline{3}{\tocsubsectotal}{\tocsubsubsecnum}} -\def\l@paragraph{\@dottedtocline{4}{\tocsubsubsectotal}{\tocparanum}} -\def\l@subparagraph{\@dottedtocline{5}{\tocparatotal}{\tocsubparanum}} - -\def\listoffigures{\@restonecolfalse\if@twocolumn\@restonecoltrue\onecolumn - \fi\section*{\listfigurename\@mkboth{{\listfigurename}}{{\listfigurename}}} - \@starttoc{lof}\if@restonecol\twocolumn\fi} -\def\l@figure{\@dottedtocline{1}{0em}{1.5em}} - -\def\listoftables{\@restonecolfalse\if@twocolumn\@restonecoltrue\onecolumn - \fi\section*{\listtablename\@mkboth{{\listtablename}}{{\listtablename}}} - \@starttoc{lot}\if@restonecol\twocolumn\fi} -\let\l@table\l@figure - -\renewcommand\listoffigures{% - \section*{\listfigurename - \@mkboth{\listfigurename}{\listfigurename}}% - \@starttoc{lof}% - } - -\renewcommand\listoftables{% - \section*{\listtablename - \@mkboth{\listtablename}{\listtablename}}% - \@starttoc{lot}% - } - -\ifx\oribibl\undefined -\ifx\citeauthoryear\undefined -\renewenvironment{thebibliography}[1] - {\section*{\refname} - \def\@biblabel##1{##1.} - \small - \list{\@biblabel{\@arabic\c@enumiv}}% - {\settowidth\labelwidth{\@biblabel{#1}}% - \leftmargin\labelwidth - \advance\leftmargin\labelsep - \if@openbib - \advance\leftmargin\bibindent - \itemindent -\bibindent - \listparindent \itemindent - \parsep \z@ - \fi - \usecounter{enumiv}% - \let\p@enumiv\@empty - \renewcommand\theenumiv{\@arabic\c@enumiv}}% - \if@openbib - \renewcommand\newblock{\par}% - \else - \renewcommand\newblock{\hskip .11em \@plus.33em \@minus.07em}% - \fi - \sloppy\clubpenalty4000\widowpenalty4000% - \sfcode`\.=\@m} - {\def\@noitemerr - {\@latex@warning{Empty `thebibliography' environment}}% - \endlist} -\def\@lbibitem[#1]#2{\item[{[#1]}\hfill]\if@filesw - {\let\protect\noexpand\immediate - \write\@auxout{\string\bibcite{#2}{#1}}}\fi\ignorespaces} -\newcount\@tempcntc -\def\@citex[#1]#2{\if@filesw\immediate\write\@auxout{\string\citation{#2}}\fi - \@tempcnta\z@\@tempcntb\m@ne\def\@citea{}\@cite{\@for\@citeb:=#2\do - {\@ifundefined - {b@\@citeb}{\@citeo\@tempcntb\m@ne\@citea\def\@citea{,}{\bfseries - ?}\@warning - {Citation `\@citeb' on page \thepage \space undefined}}% - {\setbox\z@\hbox{\global\@tempcntc0\csname b@\@citeb\endcsname\relax}% - \ifnum\@tempcntc=\z@ \@citeo\@tempcntb\m@ne - \@citea\def\@citea{,}\hbox{\csname b@\@citeb\endcsname}% - \else - \advance\@tempcntb\@ne - \ifnum\@tempcntb=\@tempcntc - \else\advance\@tempcntb\m@ne\@citeo - \@tempcnta\@tempcntc\@tempcntb\@tempcntc\fi\fi}}\@citeo}{#1}} -\def\@citeo{\ifnum\@tempcnta>\@tempcntb\else - \@citea\def\@citea{,\,\hskip\z@skip}% - \ifnum\@tempcnta=\@tempcntb\the\@tempcnta\else - {\advance\@tempcnta\@ne\ifnum\@tempcnta=\@tempcntb \else - \def\@citea{--}\fi - \advance\@tempcnta\m@ne\the\@tempcnta\@citea\the\@tempcntb}\fi\fi} -\else -\renewenvironment{thebibliography}[1] - {\section*{\refname} - \small - \list{}% - {\settowidth\labelwidth{}% - \leftmargin\parindent - \itemindent=-\parindent - \labelsep=\z@ - \if@openbib - \advance\leftmargin\bibindent - \itemindent -\bibindent - \listparindent \itemindent - \parsep \z@ - \fi - \usecounter{enumiv}% - \let\p@enumiv\@empty - \renewcommand\theenumiv{}}% - \if@openbib - \renewcommand\newblock{\par}% - \else - \renewcommand\newblock{\hskip .11em \@plus.33em \@minus.07em}% - \fi - \sloppy\clubpenalty4000\widowpenalty4000% - \sfcode`\.=\@m} - {\def\@noitemerr - {\@latex@warning{Empty `thebibliography' environment}}% - \endlist} - \def\@cite#1{#1}% - \def\@lbibitem[#1]#2{\item[]\if@filesw - {\def\protect##1{\string ##1\space}\immediate - \write\@auxout{\string\bibcite{#2}{#1}}}\fi\ignorespaces} - \fi -\else -\@cons\@openbib@code{\noexpand\small} -\fi - -\def\idxquad{\hskip 10\p@}% space that divides entry from number - -\def\@idxitem{\par\hangindent 10\p@} - -\def\subitem{\par\setbox0=\hbox{--\enspace}% second order - \noindent\hangindent\wd0\box0}% index entry - -\def\subsubitem{\par\setbox0=\hbox{--\,--\enspace}% third - \noindent\hangindent\wd0\box0}% order index entry - -\def\indexspace{\par \vskip 10\p@ plus5\p@ minus3\p@\relax} - -\renewenvironment{theindex} - {\@mkboth{\indexname}{\indexname}% - \thispagestyle{empty}\parindent\z@ - \parskip\z@ \@plus .3\p@\relax - \let\item\par - \def\,{\relax\ifmmode\mskip\thinmuskip - \else\hskip0.2em\ignorespaces\fi}% - \normalfont\small - \begin{multicols}{2}[\@makeschapterhead{\indexname}]% - } - {\end{multicols}} - -\renewcommand\footnoterule{% - \kern-3\p@ - \hrule\@width 2truecm - \kern2.6\p@} - \newdimen\fnindent - \fnindent1em -\long\def\@makefntext#1{% - \parindent \fnindent% - \leftskip \fnindent% - \noindent - \llap{\hb@xt@1em{\hss\@makefnmark\ }}\ignorespaces#1} - -\long\def\@makecaption#1#2{% - \vskip\abovecaptionskip - \sbox\@tempboxa{{\bfseries #1.} #2}% - \ifdim \wd\@tempboxa >\hsize - {\bfseries #1.} #2\par - \else - \global \@minipagefalse - \hb@xt@\hsize{\hfil\box\@tempboxa\hfil}% - \fi - \vskip\belowcaptionskip} - -\def\fps@figure{htbp} -\def\fnum@figure{\figurename\thinspace\thefigure} -\def \@floatboxreset {% - \reset@font - \small - \@setnobreak - \@setminipage -} -\def\fps@table{htbp} -\def\fnum@table{\tablename~\thetable} -\renewenvironment{table} - {\setlength\abovecaptionskip{0\p@}% - \setlength\belowcaptionskip{10\p@}% - \@float{table}} - {\end@float} -\renewenvironment{table*} - {\setlength\abovecaptionskip{0\p@}% - \setlength\belowcaptionskip{10\p@}% - \@dblfloat{table}} - {\end@dblfloat} - -\long\def\@caption#1[#2]#3{\par\addcontentsline{\csname - ext@#1\endcsname}{#1}{\protect\numberline{\csname - the#1\endcsname}{\ignorespaces #2}}\begingroup - \@parboxrestore - \@makecaption{\csname fnum@#1\endcsname}{\ignorespaces #3}\par - \endgroup} - -% LaTeX does not provide a command to enter the authors institute -% addresses. The \institute command is defined here. - -\newcounter{@inst} -\newcounter{@auth} -\newcounter{auco} -\newdimen\instindent -\newbox\authrun -\newtoks\authorrunning -\newtoks\tocauthor -\newbox\titrun -\newtoks\titlerunning -\newtoks\toctitle - -\def\clearheadinfo{\gdef\@author{No Author Given}% - \gdef\@title{No Title Given}% - \gdef\@subtitle{}% - \gdef\@institute{No Institute Given}% - \gdef\@thanks{}% - \global\titlerunning={}\global\authorrunning={}% - \global\toctitle={}\global\tocauthor={}} - -\def\institute#1{\gdef\@institute{#1}} - -\def\institutename{\par - \begingroup - \parskip=\z@ - \parindent=\z@ - \setcounter{@inst}{1}% - \def\and{\par\stepcounter{@inst}% - \noindent$^{\the@inst}$\enspace\ignorespaces}% - \setbox0=\vbox{\def\thanks##1{}\@institute}% - \ifnum\c@@inst=1\relax - \gdef\fnnstart{0}% - \else - \xdef\fnnstart{\c@@inst}% - \setcounter{@inst}{1}% - \noindent$^{\the@inst}$\enspace - \fi - \ignorespaces - \@institute\par - \endgroup} - -\def\@fnsymbol#1{\ensuremath{\ifcase#1\or\star\or{\star\star}\or - {\star\star\star}\or \dagger\or \ddagger\or - \mathchar "278\or \mathchar "27B\or \|\or **\or \dagger\dagger - \or \ddagger\ddagger \else\@ctrerr\fi}} - -\def\inst#1{\unskip$^{#1}$} -\def\fnmsep{\unskip$^,$} -\def\email#1{{\tt#1}} -\AtBeginDocument{\@ifundefined{url}{\def\url#1{#1}}{}% -\@ifpackageloaded{babel}{% -\@ifundefined{extrasenglish}{}{\addto\extrasenglish{\switcht@albion}}% -\@ifundefined{extrasfrenchb}{}{\addto\extrasfrenchb{\switcht@francais}}% -\@ifundefined{extrasgerman}{}{\addto\extrasgerman{\switcht@deutsch}}% -}{\switcht@@therlang}% -} -\def\homedir{\~{ }} - -\def\subtitle#1{\gdef\@subtitle{#1}} -\clearheadinfo - -\renewcommand\maketitle{\newpage - \refstepcounter{chapter}% - \stepcounter{section}% - \setcounter{section}{0}% - \setcounter{subsection}{0}% - \setcounter{figure}{0} - \setcounter{table}{0} - \setcounter{equation}{0} - \setcounter{footnote}{0}% - \begingroup - \parindent=\z@ - \renewcommand\thefootnote{\@fnsymbol\c@footnote}% - \if@twocolumn - \ifnum \col@number=\@ne - \@maketitle - \else - \twocolumn[\@maketitle]% - \fi - \else - \newpage - \global\@topnum\z@ % Prevents figures from going at top of page. - \@maketitle - \fi - \thispagestyle{empty}\@thanks -% - \def\\{\unskip\ \ignorespaces}\def\inst##1{\unskip{}}% - \def\thanks##1{\unskip{}}\def\fnmsep{\unskip}% - \instindent=\hsize - \advance\instindent by-\headlineindent - \if!\the\toctitle!\addcontentsline{toc}{title}{\@title}\else - \addcontentsline{toc}{title}{\the\toctitle}\fi - \if@runhead - \if!\the\titlerunning!\else - \edef\@title{\the\titlerunning}% - \fi - \global\setbox\titrun=\hbox{\small\rm\unboldmath\ignorespaces\@title}% - \ifdim\wd\titrun>\instindent - \typeout{Title too long for running head. Please supply}% - \typeout{a shorter form with \string\titlerunning\space prior to - \string\maketitle}% - \global\setbox\titrun=\hbox{\small\rm - Title Suppressed Due to Excessive Length}% - \fi - \xdef\@title{\copy\titrun}% - \fi -% - \if!\the\tocauthor!\relax - {\def\and{\noexpand\protect\noexpand\and}% - \protected@xdef\toc@uthor{\@author}}% - \else - \def\\{\noexpand\protect\noexpand\newline}% - \protected@xdef\scratch{\the\tocauthor}% - \protected@xdef\toc@uthor{\scratch}% - \fi - \addcontentsline{toc}{author}{\toc@uthor}% - \if@runhead - \if!\the\authorrunning! - \value{@inst}=\value{@auth}% - \setcounter{@auth}{1}% - \else - \edef\@author{\the\authorrunning}% - \fi - \global\setbox\authrun=\hbox{\small\unboldmath\@author\unskip}% - \ifdim\wd\authrun>\instindent - \typeout{Names of authors too long for running head. Please supply}% - \typeout{a shorter form with \string\authorrunning\space prior to - \string\maketitle}% - \global\setbox\authrun=\hbox{\small\rm - Authors Suppressed Due to Excessive Length}% - \fi - \xdef\@author{\copy\authrun}% - \markboth{\@author}{\@title}% - \fi - \endgroup - \setcounter{footnote}{\fnnstart}% - \clearheadinfo} -% -\def\@maketitle{\newpage - \markboth{}{}% - \def\lastand{\ifnum\value{@inst}=2\relax - \unskip{} \andname\ - \else - \unskip \lastandname\ - \fi}% - \def\and{\stepcounter{@auth}\relax - \ifnum\value{@auth}=\value{@inst}% - \lastand - \else - \unskip, - \fi}% - \begin{center}% - \let\newline\\ - {\Large \bfseries\boldmath - \pretolerance=10000 - \@title \par}\vskip .8cm -\if!\@subtitle!\else {\large \bfseries\boldmath - \vskip -.65cm - \pretolerance=10000 - \@subtitle \par}\vskip .8cm\fi - \setbox0=\vbox{\setcounter{@auth}{1}\def\and{\stepcounter{@auth}}% - \def\thanks##1{}\@author}% - \global\value{@inst}=\value{@auth}% - \global\value{auco}=\value{@auth}% - \setcounter{@auth}{1}% -{\lineskip .5em -\noindent\ignorespaces -\@author\vskip.35cm} - {\small\institutename} - \end{center}% - } - -% definition of the "\spnewtheorem" command. -% -% Usage: -% -% \spnewtheorem{env_nam}{caption}[within]{cap_font}{body_font} -% or \spnewtheorem{env_nam}[numbered_like]{caption}{cap_font}{body_font} -% or \spnewtheorem*{env_nam}{caption}{cap_font}{body_font} -% -% New is "cap_font" and "body_font". It stands for -% fontdefinition of the caption and the text itself. -% -% "\spnewtheorem*" gives a theorem without number. -% -% A defined spnewthoerem environment is used as described -% by Lamport. -% -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -\def\@thmcountersep{} -\def\@thmcounterend{.} - -\def\spnewtheorem{\@ifstar{\@sthm}{\@Sthm}} - -% definition of \spnewtheorem with number - -\def\@spnthm#1#2{% - \@ifnextchar[{\@spxnthm{#1}{#2}}{\@spynthm{#1}{#2}}} -\def\@Sthm#1{\@ifnextchar[{\@spothm{#1}}{\@spnthm{#1}}} - -\def\@spxnthm#1#2[#3]#4#5{\expandafter\@ifdefinable\csname #1\endcsname - {\@definecounter{#1}\@addtoreset{#1}{#3}% - \expandafter\xdef\csname the#1\endcsname{\expandafter\noexpand - \csname the#3\endcsname \noexpand\@thmcountersep \@thmcounter{#1}}% - \expandafter\xdef\csname #1name\endcsname{#2}% - \global\@namedef{#1}{\@spthm{#1}{\csname #1name\endcsname}{#4}{#5}}% - \global\@namedef{end#1}{\@endtheorem}}} - -\def\@spynthm#1#2#3#4{\expandafter\@ifdefinable\csname #1\endcsname - {\@definecounter{#1}% - \expandafter\xdef\csname the#1\endcsname{\@thmcounter{#1}}% - \expandafter\xdef\csname #1name\endcsname{#2}% - \global\@namedef{#1}{\@spthm{#1}{\csname #1name\endcsname}{#3}{#4}}% - \global\@namedef{end#1}{\@endtheorem}}} - -\def\@spothm#1[#2]#3#4#5{% - \@ifundefined{c@#2}{\@latexerr{No theorem environment `#2' defined}\@eha}% - {\expandafter\@ifdefinable\csname #1\endcsname - {\global\@namedef{the#1}{\@nameuse{the#2}}% - \expandafter\xdef\csname #1name\endcsname{#3}% - \global\@namedef{#1}{\@spthm{#2}{\csname #1name\endcsname}{#4}{#5}}% - \global\@namedef{end#1}{\@endtheorem}}}} - -\def\@spthm#1#2#3#4{\topsep 7\p@ \@plus2\p@ \@minus4\p@ -\refstepcounter{#1}% -\@ifnextchar[{\@spythm{#1}{#2}{#3}{#4}}{\@spxthm{#1}{#2}{#3}{#4}}} - -\def\@spxthm#1#2#3#4{\@spbegintheorem{#2}{\csname the#1\endcsname}{#3}{#4}% - \ignorespaces} - -\def\@spythm#1#2#3#4[#5]{\@spopargbegintheorem{#2}{\csname - the#1\endcsname}{#5}{#3}{#4}\ignorespaces} - -\def\@spbegintheorem#1#2#3#4{\trivlist - \item[\hskip\labelsep{#3#1\ #2\@thmcounterend}]#4} - -\def\@spopargbegintheorem#1#2#3#4#5{\trivlist - \item[\hskip\labelsep{#4#1\ #2}]{#4(#3)\@thmcounterend\ }#5} - -% definition of \spnewtheorem* without number - -\def\@sthm#1#2{\@Ynthm{#1}{#2}} - -\def\@Ynthm#1#2#3#4{\expandafter\@ifdefinable\csname #1\endcsname - {\global\@namedef{#1}{\@Thm{\csname #1name\endcsname}{#3}{#4}}% - \expandafter\xdef\csname #1name\endcsname{#2}% - \global\@namedef{end#1}{\@endtheorem}}} - -\def\@Thm#1#2#3{\topsep 7\p@ \@plus2\p@ \@minus4\p@ -\@ifnextchar[{\@Ythm{#1}{#2}{#3}}{\@Xthm{#1}{#2}{#3}}} - -\def\@Xthm#1#2#3{\@Begintheorem{#1}{#2}{#3}\ignorespaces} - -\def\@Ythm#1#2#3[#4]{\@Opargbegintheorem{#1} - {#4}{#2}{#3}\ignorespaces} - -\def\@Begintheorem#1#2#3{#3\trivlist - \item[\hskip\labelsep{#2#1\@thmcounterend}]} - -\def\@Opargbegintheorem#1#2#3#4{#4\trivlist - \item[\hskip\labelsep{#3#1}]{#3(#2)\@thmcounterend\ }} - -\if@envcntsect - \def\@thmcountersep{.} - \spnewtheorem{theorem}{Theorem}[section]{\bfseries}{\itshape} -\else - \spnewtheorem{theorem}{Theorem}{\bfseries}{\itshape} - \if@envcntreset - \@addtoreset{theorem}{section} - \else - \@addtoreset{theorem}{chapter} - \fi -\fi - -%definition of divers theorem environments -\spnewtheorem*{claim}{Claim}{\itshape}{\rmfamily} -\spnewtheorem*{proof}{Proof}{\itshape}{\rmfamily} -\if@envcntsame % alle Umgebungen wie Theorem. - \def\spn@wtheorem#1#2#3#4{\@spothm{#1}[theorem]{#2}{#3}{#4}} -\else % alle Umgebungen mit eigenem Zaehler - \if@envcntsect % mit section numeriert - \def\spn@wtheorem#1#2#3#4{\@spxnthm{#1}{#2}[section]{#3}{#4}} - \else % nicht mit section numeriert - \if@envcntreset - \def\spn@wtheorem#1#2#3#4{\@spynthm{#1}{#2}{#3}{#4} - \@addtoreset{#1}{section}} - \else - \def\spn@wtheorem#1#2#3#4{\@spynthm{#1}{#2}{#3}{#4} - \@addtoreset{#1}{chapter}}% - \fi - \fi -\fi -\spn@wtheorem{case}{Case}{\itshape}{\rmfamily} -\spn@wtheorem{conjecture}{Conjecture}{\itshape}{\rmfamily} -\spn@wtheorem{corollary}{Corollary}{\bfseries}{\itshape} -\spn@wtheorem{definition}{Definition}{\bfseries}{\itshape} -\spn@wtheorem{example}{Example}{\itshape}{\rmfamily} -\spn@wtheorem{exercise}{Exercise}{\itshape}{\rmfamily} -\spn@wtheorem{lemma}{Lemma}{\bfseries}{\itshape} -\spn@wtheorem{note}{Note}{\itshape}{\rmfamily} -\spn@wtheorem{problem}{Problem}{\itshape}{\rmfamily} -\spn@wtheorem{property}{Property}{\itshape}{\rmfamily} -\spn@wtheorem{proposition}{Proposition}{\bfseries}{\itshape} -\spn@wtheorem{question}{Question}{\itshape}{\rmfamily} -\spn@wtheorem{solution}{Solution}{\itshape}{\rmfamily} -\spn@wtheorem{remark}{Remark}{\itshape}{\rmfamily} - -\def\@takefromreset#1#2{% - \def\@tempa{#1}% - \let\@tempd\@elt - \def\@elt##1{% - \def\@tempb{##1}% - \ifx\@tempa\@tempb\else - \@addtoreset{##1}{#2}% - \fi}% - \expandafter\expandafter\let\expandafter\@tempc\csname cl@#2\endcsname - \expandafter\def\csname cl@#2\endcsname{}% - \@tempc - \let\@elt\@tempd} - -\def\theopargself{\def\@spopargbegintheorem##1##2##3##4##5{\trivlist - \item[\hskip\labelsep{##4##1\ ##2}]{##4##3\@thmcounterend\ }##5} - \def\@Opargbegintheorem##1##2##3##4{##4\trivlist - \item[\hskip\labelsep{##3##1}]{##3##2\@thmcounterend\ }} - } - -\renewenvironment{abstract}{% - \list{}{\advance\topsep by0.35cm\relax\small - \leftmargin=1cm - \labelwidth=\z@ - \listparindent=\z@ - \itemindent\listparindent - \rightmargin\leftmargin}\item[\hskip\labelsep - \bfseries\abstractname]} - {\endlist} - -\newdimen\headlineindent % dimension for space between -\headlineindent=1.166cm % number and text of headings. - -\def\ps@headings{\let\@mkboth\@gobbletwo - \let\@oddfoot\@empty\let\@evenfoot\@empty - \def\@evenhead{\normalfont\small\rlap{\thepage}\hspace{\headlineindent}% - \leftmark\hfil} - \def\@oddhead{\normalfont\small\hfil\rightmark\hspace{\headlineindent}% - \llap{\thepage}} - \def\chaptermark##1{}% - \def\sectionmark##1{}% - \def\subsectionmark##1{}} - -\def\ps@titlepage{\let\@mkboth\@gobbletwo - \let\@oddfoot\@empty\let\@evenfoot\@empty - \def\@evenhead{\normalfont\small\rlap{\thepage}\hspace{\headlineindent}% - \hfil} - \def\@oddhead{\normalfont\small\hfil\hspace{\headlineindent}% - \llap{\thepage}} - \def\chaptermark##1{}% - \def\sectionmark##1{}% - \def\subsectionmark##1{}} - -\if@runhead\ps@headings\else -\ps@empty\fi - -\setlength\arraycolsep{1.4\p@} -\setlength\tabcolsep{1.4\p@} - -\endinput -%end of file llncs.cls diff --git a/vendors/ott/examples/ocaml_light/doc/ott-spec.ltx b/vendors/ott/examples/ocaml_light/doc/ott-spec.ltx deleted file mode 100644 index 1fa986af8bfa..000000000000 --- a/vendors/ott/examples/ocaml_light/doc/ott-spec.ltx +++ /dev/null @@ -1,77 +0,0 @@ -%% Redefinitions of ott macros to improve the typeset caml specification. - -%% \ott@regularize@underscores{\command}{FOO_BAR\_QUUX} -%% Run "\command{FOO_BAR_QUUX}" where "_" characters of category 8 and "\_" -%% control sequences have been replaced by a "_" of category 11. -\def\ott@regularize@underscores#1#2{% - \begingroup% - \escapechar=-1 % - \expandafter\def\expandafter\_\expandafter{\string\_}% - \def\@tempa{#1}% - \expandafter\expandafter\expandafter\def% - \expandafter\expandafter\expandafter\@tempb% - \expandafter\expandafter\expandafter{% - \expandafter\string\csname#2\endcsname}% - \expandafter\expandafter\expandafter\def% - \expandafter\expandafter\expandafter\@tempc% - \expandafter\expandafter\expandafter{% - \expandafter\@tempa\expandafter{\@tempb}}% - \expandafter\endgroup\@tempc% -} - -\def\ottdrulelabel@z#1{\label{defn.#1}} -\def\ottdrulelabel@b#1{\ott@regularize@underscores\ottdrulelabel@z} -\def\ottdrulelabel@a#1#2{\ottdrulelabel@b#1} -\def\ottdruleref@a#1{% - \expandafter\@setref\csname r@defn.#1\endcsname% - {\ottdrulename{#1}\@gobbletwo}% - {#1} -} - -\newcommand\ottdruleref{\ott@regularize@underscores\ottdruleref@a} -\renewcommand{\ottdrule}[4][]{% - \frac{\begin{array}{l}#2\end{array}}% - {\ottconclusion{#3}}% - \def\@tempa{#4}% - \ifx\@tempa\empty\else \quad #4\ottdrulelabel@a#4\fi} -%\renewcommand{\ottusedrule}[1]{\[#1\]} -%\renewcommand{\ottpremise}[1]{ #1 \\} - -%% Put \ottmaybebreakline in the TeX rendering to signal a potential -%% breakpoint. -%% Set \ottbreakconclusionlinetrue to break the conclusion of subsequent rules -%% at all declared breakpoints. -\newif\ifottbreakconclusionline \ottbreakconclusionlinefalse -\newcommand\ottmaybebreakline{} -\newcommand{\ottconclusion}[1]{% - \ifottbreakconclusionline% - \def\ottmaybebreakline{\qquad$\\$\hfill\qquad}% - \begin{tabular}{l}$#1$\end{tabular}% - \else% - #1% - \fi% -} - -%% Put each defn block in a subsection -\renewenvironment{ottdefnblock}[3][]{% - \vspace{1em}\par% - \subsection*{\protect\framebox{\mbox{#2}} \quad #3}% -}{% -} - -%\renewcommand{\ottnt}[1]{\mathit{#1}} -%\renewcommand{\ottmv}[1]{\mathit{#1}} -%\renewcommand{\ottkw}[1]{\mathbf{#1}} -%\renewcommand{\ottcom}[1]{\text{#1}} - -%% Changed the font for rule names -\renewcommand{\ottdrulename}[1]{\textsf{#1}} - -%\renewcommand{\ottcomplu}[5]{\overline{#1}^{\,#2\in #3 #4 #5}} -%\renewcommand{\ottcompu}[3]{\overline{#1}^{\,#2<#3}} -%\renewcommand{\ottcomp}[2]{\overline{#1}^{\,#2}} -%\renewcommand{\ottgrammartabular}[1]{\begin{supertabular}{llcllllll}#1\end{supertabular}} -%\renewcommand{\ottrulehead}[3]{$#1$ & & $#2$ & & & \multicolumn{2}{l}{#3}} -\renewcommand{\ottprodline}[6]{& & $#1$ & $#2$ & $#3 #4$ & $#5$ & \def\ottprodlinetmp{#6}\ifx\ottprodlinetmp\empty\else\def\ottprodlinetmp{\\ & & & \multicolumn{3}{l}{$~~#6$}}\fi\ottprodlinetmp} -%\renewcommand{\ottinterrule}{\\[5.0mm]} -%\renewcommand{\ottafterlastrule}{\\} diff --git a/vendors/ott/examples/ocaml_light/doc/poster.sty b/vendors/ott/examples/ocaml_light/doc/poster.sty deleted file mode 100644 index 0e9087999f24..000000000000 --- a/vendors/ott/examples/ocaml_light/doc/poster.sty +++ /dev/null @@ -1,44 +0,0 @@ -\usepackage{geometry,wrapfig} - - -\usepackage[usenames]{color} - - -\usepackage{latexsym} -\usepackage{array} -\usepackage{amsmath} -\usepackage{amssymb} -\usepackage{epsfig} -\usepackage{parskip} -%\usepackage{multicol} -\usepackage{pstricks} -%\usepackage{sabon} %Official font for University of Cambridge logo - but not a -%standard free font, grr -\usepackage{graphicx} - -\usepackage{alltt} -%\usepackage[all,dvips]{xy} -\usepackage{ifthen} - -\geometry{a4paper, dvips, - left=17mm, right=17mm, - foot=10mm, head=12mm, headsep=5mm, top=0mm, bottom=0mm} - - - -\newrgbcolor{mc}{.0 .5 .5} -\newcmykcolor{cc}{1 0.5 0 0.3} % blue -\newcmykcolor{var}{0.2 1 0 0.3} % purple - -\newrgbcolor{pmc}{.0 .5 .5} - - - -\sloppy -\pagestyle{empty} - -\renewcommand{\refname}{{\normalsize\mc\mdseries\textsf{Papers}}} - - - -\input postercore.sty diff --git a/vendors/ott/examples/ocaml_light/doc/poster.tex b/vendors/ott/examples/ocaml_light/doc/poster.tex deleted file mode 100644 index 9ada413592df..000000000000 --- a/vendors/ott/examples/ocaml_light/doc/poster.tex +++ /dev/null @@ -1,409 +0,0 @@ -\documentclass[11pt]{article} - -\usepackage{poster} -\usepackage{pstricks} -\usepackage{pst-node} - -\usepackage{alltt} -\usepackage{url} -\usepackage{verbatim} -\newlength{\shorttextwidth} -\setlength{\shorttextwidth}{\textwidth} -\addtolength{\shorttextwidth}{-2.0cm} -\newlength{\longtextwidth} -\setlength{\longtextwidth}{\textwidth} -\addtolength{\longtextwidth}{1.5cm} -\newlength{\longertextwidth} -\setlength{\longertextwidth}{\textwidth} -\addtolength{\longertextwidth}{6.5cm} - - -\newcommand{\mybf}[1]{{\pmb{\texttt{#1}}}} -%\newcommand{\mybackslash}{\mbox{$\backslash$}} -%\newcommand{\mybackslash}{\mbox{\tt\char'134}} -%\newcommand{\mylb}{\mbox{\tt\char'173}} -%\newcommand{\myrb}{\mbox{\tt\char'175}} - -\newcommand{\mykw}[1]{{\color{Mahogany}{\pmb{\texttt{#1}}}}} -\newcommand{\mysym}[1]{{\color{RoyalBlue}{{\texttt{#1}}}}} -%\newcommand{\mybackslash}{\mbox{$\backslash$}} -\newcommand{\mybackslash}{\mbox{\tt\char'134}} -\newcommand{\mylb}{\mbox{\tt\char'173}} -\newcommand{\myrb}{\mbox{\tt\char'175}} - - - -{ -\newcommand{\ottdrule}[4][]{\frac{\begin{array}{l}#2\end{array}}{#3}\quad\ottdrulename{#4}} -\newcommand{\ottusedrule}[1]{\[#1\]} -\newcommand{\ottpremise}[1]{ #1 \\} -\newenvironment{ottdefnblock}[2]{ \framebox{\mbox{#1}} \quad #2 \\[0pt]}{} -\newcommand{\ottnt}[1]{\mathit{#1}} -\newcommand{\ottmv}[1]{\mathit{#1}} -\newcommand{\ottkw}[1]{\mathbf{#1}} -\newcommand{\ottcom}[1]{\text{#1}} -\newcommand{\ottdrulename}[1]{\textsc{#1}} -\newcommand{\ottcomplu}[5]{\overline{#1}^{\,#2\in #3 #4 #5}} -\newcommand{\ottcompu}[3]{\overline{#1}^{\,#2<#3}} -\newcommand{\ottcomp}[2]{\overline{#1}^{\,#2}} -\makeatletter -\newcommand{\ottenvironmentappend}[2]{% - \begingroup% - \def\@tempa{#1}\def\@tempb{ \ottkw{empty} }% - \ifx\@tempa\@tempb\def\@tempc{}\else\def\@tempc{#1,}\fi% - \expandafter\endgroup% - \@tempc#2% -} -\makeatother - -\newcommand{\ottdruleJTeXXrecordXXconstr}[1]{\ottdrule[#1]{ - \ottpremise{\ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{1}}}} \, : \, \ottnt{t_{{\mathrm{1}}}} \quad ... \quad \ottnt{E} \, \vdash \, \ottnt{e_{\ottmv{n}}} \, : \, \ottnt{t_{\ottmv{n}}}} - \ottpremise{\ottnt{E} \, \vdash \, \ottnt{field\_name_{{\mathrm{1}}}} \, : \, \ottnt{t} \, \rightarrow \, \ottnt{t_{{\mathrm{1}}}} \quad ... \quad \ottnt{E} \, \vdash \, \ottnt{field\_name_{\ottmv{n}}} \, : \, \ottnt{t} \, \rightarrow \, \ottnt{t_{\ottmv{n}}}} - \ottpremise{\ottnt{t} \, = \, ( \, \ottnt{t'_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{t'_{\ottmv{l}}} \, ) \, \ottnt{typeconstr\_name}} - \ottpremise{\ottnt{E} \, \vdash \, \ottnt{typeconstr\_name} \, \;\vartriangleright\; \, \ottnt{typeconstr\_name} \, : \, \ottnt{kind} \, \ottkw{\{} \, \ottnt{field\_name'_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{field\_name'_{\ottmv{m}}} \, \ottkw{\}}} - \ottpremise{\ottnt{field\_name_{{\mathrm{1}}}} \, ... \, \ottnt{field\_name_{\ottmv{n}}} \, \ottkw{PERMUTES} \, \ottnt{field\_name'_{{\mathrm{1}}}} \, ... \, \ottnt{field\_name'_{\ottmv{m}}}} - \ottpremise{\ottkw{length} \, ( \, \ottnt{e_{{\mathrm{1}}}} \, ) \, ... \, ( \, \ottnt{e_{\ottmv{n}}} \, ) \, \geq \, 1}}{ -\ottnt{E} \, \vdash \, \ottkw{\{} \, \ottnt{field\_name_{{\mathrm{1}}}} \, = \, \ottnt{e_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{field\_name_{\ottmv{n}}} \, = \, \ottnt{e_{\ottmv{n}}} \, \ottkw{\}} \, : \, \ottnt{t}}{ -{\ottdrulename{JTe\_record\_constr}}{} -}} - -\newcommand{\ottdruleJRXXexprXXtupleXXctx}[1]{\ottdrule[#1]{ - \ottpremise{\vdash \, \ottnt{e} \, \stackrel{ \ottnt{L} }{\longrightarrow} \, \ottnt{e'}}}{ -\vdash \, \, ( \, \ottnt{e_{{\mathrm{1}}}} \, ,\, \, .. \, ,\, \, \ottnt{e_{\ottmv{m}}} \, ,\, \, \ottnt{e} \, ,\, \, \ottnt{v_{{\mathrm{1}}}} \, ,\, \, .. \, ,\, \, \ottnt{v_{\ottmv{n}}} \, ) \, \stackrel{ \ottnt{L} }{\longrightarrow} \, \, ( \, \ottnt{e_{{\mathrm{1}}}} \, ,\, \, .. \, ,\, \, \ottnt{e_{\ottmv{m}}} \, ,\, \, \ottnt{e'} \, ,\, \, \ottnt{v_{{\mathrm{1}}}} \, ,\, \, .. \, ,\, \, \ottnt{v_{\ottmv{n}}} \, )}{ -{\ottdrulename{JR\_expr\_tuple\_ctx}}{} -}} - - -\newcommand{\OCL}{OCaml$_\textit{light}$} - -\begin{document} - -\vspace*{0.6cm} - -\postersubtitle{\huge A Sound Semantics for \OCL{}} - -%{\rm\large\url{http://www.cl.cam.ac.uk/users/pes20/ott}} - - - - -%\postertitle{\Huge}{Skeleton Title} - -%\postersubtitle{and maybe a subtitle} - -\posterpeople{Scott Owens} - -\sf - -\scalebox{.52}{ -\begin{minipage}{16.5cm} -\huge - -\noindent \OCL{} (ESOP '08) is a formal semantics for a substantial subset of the Objective Caml -core language, suitable for writing and verifying real programs. It includes: -\vspace{10pt} -\Large -\begin{itemize} -\item -definitions -\begin{itemize} -\item -variant data types (e.g., \texttt{type t = I of int | C of char}), -\item -record types (e.g., \texttt{type t = \{f : int; g : bool\}}), -\item -parametric type constructors (e.g., \texttt{type 'a t = C of 'a}), -\item -type abbreviations (e.g., \texttt{type 'a t = 'a * int}), -\item -mutually recursive combinations of the above (excepting abbreviations), -\item -exceptions, and values; -\end{itemize} -\item -expressions for type annotations, sequencing, and primitive values\\ -(functions, lists, tuples, and records); -\item -\texttt{with} (record update), \texttt{if}, \texttt{while}, \texttt{for}, \texttt{assert}, \texttt{try}, and \texttt{raise} expressions; -\item -let-based polymorphism with an SML-style value restriction; -\item -mutually-recursive function definitions via \texttt{let rec}; -\item -pattern matching, with nested patterns, \texttt{as} patterns, and ``or'' (\texttt{|})patterns; -\item -mutable references with \texttt{ref}, \texttt{!}, and \texttt{:=}; -\item -polymorphic equality (the Objective Caml \texttt{=} operator); -\item -31-bit word semantics for \texttt{int}s (using an existing HOL library); and -\item -IEEE-754 semantics for \texttt{float}s (using an existing HOL library). -\end{itemize} -\end{minipage} -} -% -\hspace{1.5cm} -% -\scalebox{.5}{ -\begin{minipage}{15cm} -\huge -{\color{blue}\OCL{} key points} -\begin{itemize} -\item -Faithful to Objective Caml (very nearly) -\item -Type soundness proof mechanized in HOL -\item -Operational semantics validated on test programs -\item -Written in Ott -\item -Small-step operational semantics -\begin{itemize} -\Large -\item -Inductively defined relations -\item -SOS-style -\item -Labelled transitions for state -\item -Substution-based -\end{itemize} -\item -Type system -\begin{itemize} -\Large -\item -Inductively defined relations -\item -Syntactic -\item -Declarative (non-algorithmic) -\end{itemize} - -\end{itemize} -\end{minipage} -} - -\vspace{1cm} - -\scalebox{.5}{ -\begin{minipage}[t]{11cm} -\huge -{\color{blue}Proof Effort} - -A typical type soundness proof\\ -\Large -\begin{itemize} - \item $\approx$ 7--8 man-months (including testing) - \item Specification: 3.2K lines of HOL (from 4.0K Ott) - \begin{itemize} - \item 143 constructors in 42 datatypes - \item 310 rules in 46 relations - \end{itemize} - \item Proof: 9.5K lines of HOL - \begin{itemize} - \item 17 files - \item 653 lemmas - \item 48 definitions - \end{itemize} -\end{itemize} - -\vspace{.25cm} -Challenges: -\begin{itemize} -\item Finding the right lemma using -\begin{itemize} -\item my memory -\item lemma naming conventions -\item documentation (for library lemmas) -\item term matching on the theorem database -\end{itemize} -\item -Nested inductions -\begin{itemize} -\item $\mathit{expr} = \ldots \ottkw{|}\ \mathit{Expr\_tuple}\ \ottkw{of}\ \mathit{expr}\ \ottkw{list}\ \ottkw{|}\ \ldots$ -\item ``Pointwise'' reasoning vs.\ using separate lemmas -\end{itemize} -\item Proof assistant generated names -\end{itemize} -\vspace{12pt} -Non-challenges: -\begin{itemize} -\item Managing De Bruijn indices -\end{itemize} -\end{minipage} -} -\hspace{.5cm} -\scalebox{.5}{ -\begin{minipage}[t]{9.5cm} -\huge -{\color{blue}Testing}\\ -Executable small-step semantics -\Large -(Type soundness is insufficient) - -\begin{itemize} - \item 145 tests - \item Full coverage - \item 540 line HOL definition of the executable semantics - \item 1K line HOL proof of equivalence between declatative and executable semantics -\end{itemize} - - -\vspace{.25cm} -%\[ -%\ottdrule[#1]{% -%\ottpremise{\vdash \, \ottnt{e_{{\mathrm{1}}}} \, \stackrel{ \ottnt{L} }{\longrightarrow}\, \ottnt{e'_{{\mathrm{1}}}}}% -%}{ -%\vdash \, \ottnt{e_{{\mathrm{1}}}} \, \ottnt{v_{{\mathrm{0}}}} \, \stackrel{ \ottnt{L} }{\longrightarrow}\, \ottnt{e'_{{\mathrm{1}}}} \, \ottnt{v_{{\mathrm{0}}}}}{ -%{}{} -%}\] - -%becomes - -%\begin{tabular}{@{}l@{}} -%\\ -%\texttt{red (Expr\_apply expr1 expr2) =}\\ -%\texttt{ red\_2 expr1 expr2 Expr\_apply eval\_apply} -%\end{tabular} -\vspace{-.5cm} -\[\begin{array}{@{}l@{}} -\mathit{red} : \mathit{expr}\rightarrow \mathit{result}\\ -\ottkw{type}\ \mathit{result} =\\ -~~\mathit{Stuck}\\ -|~\mathit{Step}\ \ottkw{of}\ \mathit{expr}\\ -|~\mathit{StepAlloc}\ \ottkw{of}\ (\mathit{expr} \rightarrow \mathit{expr})\ \ottkw{*}\ \mathit{expr}\\ -|~\mathit{StepLookup}\ \ottkw{of}\ (\mathit{expr} \rightarrow \mathit{expr} )\ \ottkw{*}\ \mathit{location}\\ -|~\mathit{StepAssign}\ \ottkw{of}\ \mathit{expr}\ \ottkw{*}\ \mathit{location}\ \ottkw{*}\ \mathit{expr} -\end{array}\] - -\vspace{.25cm} - -\begin{tabular}{@{}l@{}} -\texttt{match [] with}\\ -\texttt{ x::y -> 1}\\ -\texttt{ | [] -> 2}\\ -\texttt{EXPECT}\\ -\texttt{2}\\ -\\ -\texttt{TESTSTUCK}\\ -\texttt{x}\\ -\texttt{END}\\ -\end{tabular} - - -\end{minipage} -} -\hspace{.5cm} -\scalebox{.5}{ -\begin{minipage}[t]{10cm} -\huge -{\color{blue}Related Work} -\Large - -Mechanized metatheory for real-world languages - -\begin{itemize} - \item Standard ML - \begin{itemize} - \item Lee, Crary, Harper (POPL 2007)\\ internal language - \item van Inwegen (1996) - \item Maharaj, Gunter (1994) - \item Syme (1993) - \end{itemize} - \item Java - \begin{itemize} - \item Java: Klein, Nipkow (TOPLAS 2006) - \item Syme (1999) - \item Nipkow, van Oheimb (POPL 1998) - \end{itemize} - \item C - \begin{itemize} - \item Norrish (1998) - \end{itemize} -\end{itemize} - -\end{minipage} -} - - -\vspace{1cm} - -\scalebox{.5}{ -\begin{minipage}{35.2cm} -\huge -\centering {\color{blue}Representing Binding} (straightforward) - -\Large -\begin{tabular}{|l|l|l|l|l|} -\hline -User type variables & \texttt{'a} & concrete& -\texttt{let f (x : 'a) : 'a = x \&\& true;;}& -\texttt{f : bool -> bool}\\ -\hline -Value names & \texttt{x} & fully concrete (only need closed substs)& -\begin{tabular}{@{}l@{}} -\texttt{let v = function x -> x;;}\\ -\texttt{let x = 1;;}\\ -\texttt{let w = v 9;;}\\ -\end{tabular}& -\begin{tabular}{@{}l@{}} -\texttt{let x = 1;;}\\ -\texttt{let w = (function x -> x) 9;;}\\ -\end{tabular}\\ -\hline -Let-bound type variables & & De Bruijn& -\begin{tabular}{@{}l@{}} -\texttt{let f x =}\\ -\texttt{ \ldots\ (let g x = \ldots\ in \ldots) \ldots}\\ -\texttt{in}\\ -\texttt{let h x = \ldots\ f \ldots}\\ -\texttt{in}\\ -\texttt{\ldots} -\end{tabular}&\\ -\hline -Type names & \texttt{int} & fully concrete + no shadowing (following OCaml)& -\begin{tabular}{@{}l@{}} -\texttt{type t = \{ f : int \};;}\\ -\texttt{let v = \{ f = 1 \};;}\\ -\\ -\texttt{type t = \{ g : bool \};;}\\ -\texttt{let \_ = v.g;;} -\end{tabular}& -\begin{tabular}{@{}l@{}} -\texttt{type t = \{ f : int \};;}\\ -\texttt{type t = \{ g : bool \};;}\\ -\texttt{let \_ = \{ f = 1 \}.g;;} -\end{tabular}\\ -\hline -\begin{tabular}{@{}l@{}} -Constructor names\\ -Field names -\end{tabular} - & \texttt{None} & fully concrete + no shadowing (a slight restriction)& -\begin{tabular}{@{}l@{}} -\texttt{type t = C of int;;}\\ -\texttt{let v = C 1;;}\\ -\\ -\texttt{type u = C of bool;;}\\ -\texttt{let \_ = v;;} -\end{tabular}& -\begin{tabular}{@{}l@{}} -\texttt{type t = C of int;;}\\ -\texttt{type u = C of bool;;}\\ -\texttt{let \_ = C 1;;} -\end{tabular}\\ -\hline -\end{tabular} -\end{minipage} -} - - -\scriptsize{\begin{minipage}{5cm}University of Cambridge\end{minipage}} -{\hfill{\scriptsize{\textsf{http://www.cl.cam.ac.uk/users/so294/ocaml}}}} - - -\end{document} diff --git a/vendors/ott/examples/ocaml_light/doc/poster_rules.tex b/vendors/ott/examples/ocaml_light/doc/poster_rules.tex deleted file mode 100644 index a98af162b15a..000000000000 --- a/vendors/ott/examples/ocaml_light/doc/poster_rules.tex +++ /dev/null @@ -1,3604 +0,0 @@ -% generated by Ott 0.10.14 from: caml_typedef_syntax.ott caml_typedef_typing.ott caml_typedef_reduction.ott -\documentclass[10pt,titlepage]{article} -\usepackage{amsmath,amssymb} -\usepackage{supertabular} -\usepackage{geometry} -\usepackage{ifthen} -\usepackage{graphics} -%\usepackage[usenames]{color} -\usepackage{pstricks} -\geometry{% -a4paper, -% letterpaper, -dvips, -twoside, -left=15mm, right=15mm, -top=10mm, bottom=0mm, -} -\usepackage{color} -%\geometry{landscape} -\usepackage{ifthen} -\newcommand{\ottdrule}[4][]{{\displaystyle\frac{\begin{array}{l}#2\end{array}}{#3}\quad\ottdrulename{#4}}} -\newcommand{\ottusedruleC}[1]{\[\mbox{\cy{$\displaystyle{}#1$}}\]} -\newcommand{\ottusedrule}[1]{\[#1\]} -\newcommand{\ottpremise}[1]{ #1 \\} -\newenvironment{ottdefnblock}[3][]{ \framebox{\mbox{#2}} \quad #3 \\[0pt]}{} -\newenvironment{ottfundefnblock}[3][]{ \framebox{\mbox{#2}} \quad #3 \\[0pt]\begin{displaymath}\begin{array}{l}}{\end{array}\end{displaymath}} -\newcommand{\ottfunclause}[2]{ #1 \equiv #2 \\} -\newcommand{\ottnt}[1]{\mathit{#1}} -\newcommand{\ottmv}[1]{\mathit{#1}} -\newcommand{\ottkw}[1]{\mathbf{#1}} -\newcommand{\ottcom}[1]{\text{#1}} -\newcommand{\ottdrulename}[1]{\textsc{#1}} -\newcommand{\ottcomplu}[5]{\overline{#1}^{\,#2\in #3 #4 #5}} -\newcommand{\ottcompu}[3]{\overline{#1}^{\,#2<#3}} -\newcommand{\ottcomp}[2]{\overline{#1}^{\,#2}} -\newcommand{\ottgrammartabular}[1]{\begin{supertabular}{llcllllll}#1\end{supertabular}} -\newcommand{\ottmetavartabular}[1]{\begin{supertabular}{ll}#1\end{supertabular}} -\newcommand{\ottrulehead}[3]{$#1$ & & $#2$ & & & \multicolumn{2}{l}{#3}} -\newcommand{\ottprodline}[6]{& & $#1$ & $#2$ & $#3 #4$ & $#5$ & $#6$} -\newcommand{\ottinterrule}{\\[5.0mm]} -\newcommand{\ottafterlastrule}{\\} -\makeatletter -\input ott-spec.ltx -\newcommand{\ottenvironmentappend}[2]{% - \begingroup% - \def\@tempa{#1}\def\@tempb{ \ottkw{empty} }% - \ifx\@tempa\@tempb\def\@tempc{}\else\def\@tempc{#1,}\fi% - \expandafter\endgroup% - \@tempc#2% -} -\newcommand{\trimbox}[1]{\raisebox{0pt}[1.20ex][0.2ex]{#1}} -\newcommand{\cy}[1]{\colorbox{yellow}{#1}} -\newcommand{\ie}{% -i.e., -} -\newcommand{\eg}{% -e.g., -} -\makeatother -\newif\ifHAVEtypedefinitions \newif\ifHAVEmodules -\HAVEtypedefinitionstrue -%m\HAVEmodulestrue - -%%%% End of preamble %%%% - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% defnss -% defns JdomEB -% defn domEB -\newcommand{\ottdruleJdomEBXXtypeXXparam}[1]{\ottdrule[#1]{% -}{ -\ottkw{dom} \, ( \, \ottkw{TV} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottkw{TV}}{ -{\ottdrulename{JdomEB\_type\_param}}{} -}} - - -\newcommand{\ottdruleJdomEBXXvalueXXname}[1]{\ottdrule[#1]{% -}{ -\ottkw{dom} \, ( \, \ottnt{value\_name} \, : \, \ottnt{typescheme} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{value\_name}}{ -{\ottdrulename{JdomEB\_value\_name}}{} -}} - - -\newcommand{\ottdruleJdomEBXXconstXXconstrXXname}[1]{\ottdrule[#1]{% -}{ -\ottkw{dom} \, ( \, \ottnt{constr\_name} \, \ottkw{of} \, \ottnt{typeconstr} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{constr\_name}}{ -{\ottdrulename{JdomEB\_const\_constr\_name}}{} -}} - - -\newcommand{\ottdruleJdomEBXXconstrXXname}[1]{\ottdrule[#1]{% -}{ -\ottkw{dom} \, ( \, \ottnt{constr\_name} \, \ottkw{of} \, \forall \, \ottnt{type\_params\_opt} \, , \, ( \, \ottnt{t_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{t_{\ottmv{n}}} \, ) \, : \, \ottnt{typeconstr} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{constr\_name}}{ -{\ottdrulename{JdomEB\_constr\_name}}{} -}} - - -\newcommand{\ottdruleJdomEBXXopaqueXXtypeconstrXXname}[1]{\ottdrule[#1]{% -}{ -\ottkw{dom} \, ( \, \ottnt{typeconstr\_name} \, : \, \ottnt{kind} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{typeconstr\_name}}{ -{\ottdrulename{JdomEB\_opaque\_typeconstr\_name}}{} -}} - - -\newcommand{\ottdruleJdomEBXXtransXXtypeconstrXXname}[1]{\ottdrule[#1]{% -}{ -\ottkw{dom} \, ( \, \ottnt{type\_params\_opt} \, \ottnt{typeconstr\_name} \, = \, \ottnt{t} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{typeconstr\_name}}{ -{\ottdrulename{JdomEB\_trans\_typeconstr\_name}}{} -}} - - -\newcommand{\ottdruleJdomEBXXrecordXXtypeconstrXXname}[1]{\ottdrule[#1]{% -}{ -\ottkw{dom} \, ( \, \ottnt{typeconstr\_name} \, : \, \ottnt{kind} \, \ottkw{\{} \, \ottnt{field\_name_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{field\_name_{\ottmv{n}}} \, \ottkw{\}} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{typeconstr\_name}}{ -{\ottdrulename{JdomEB\_record\_typeconstr\_name}}{} -}} - - -\newcommand{\ottdruleJdomEBXXrecordXXfieldXXname}[1]{\ottdrule[#1]{% -}{ -\ottkw{dom} \, ( \, \ottnt{field\_name} \, : \, \forall \, \ottnt{type\_params\_opt} \, , \, \ottnt{typeconstr\_name} \, \rightarrow \, \ottnt{typexpr} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{field\_name}}{ -{\ottdrulename{JdomEB\_record\_field\_name}}{} -}} - - -\newcommand{\ottdruleJdomEBXXlocation}[1]{\ottdrule[#1]{% -}{ -\ottkw{dom} \, ( \, \ottmv{location} \, : \, \ottnt{t} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottmv{location}}{ -{\ottdrulename{JdomEB\_location}}{} -}} - -\newcommand{\ottdefnJdomEB}[1]{\begin{ottdefnblock}[#1]{$\ottkw{dom} \, ( \, \ottnt{EB} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{name}$}{\ottcom{Environment binding domain}} -\ottusedrule{\ottdruleJdomEBXXtypeXXparam{}} -\ottusedrule{\ottdruleJdomEBXXvalueXXname{}} -\ottusedrule{\ottdruleJdomEBXXconstXXconstrXXname{}} -\ottusedrule{\ottdruleJdomEBXXconstrXXname{}} -\ottusedrule{\ottdruleJdomEBXXopaqueXXtypeconstrXXname{}} -\ottusedrule{\ottdruleJdomEBXXtransXXtypeconstrXXname{}} -\ottusedrule{\ottdruleJdomEBXXrecordXXtypeconstrXXname{}} -\ottusedrule{\ottdruleJdomEBXXrecordXXfieldXXname{}} -\ottusedrule{\ottdruleJdomEBXXlocation{}} -\end{ottdefnblock}} - - -\newcommand{\ottdefnsJdomEB}{ -\ottdefnJdomEB{}} - - -% defns JdomE -% defn domE -\newcommand{\ottdruleJdomEXXempty}[1]{\ottdrule[#1]{% -}{ -\ottkw{dom} \, ( \, \ottkw{empty} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \,}{ -{\ottdrulename{JdomE\_empty}}{} -}} - - -\newcommand{\ottdruleJdomEXXcons}[1]{\ottdrule[#1]{% -\ottpremise{\ottkw{dom} \, ( \, \ottnt{E} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{name_{{\mathrm{1}}}} \, .. \, \ottnt{name_{\ottmv{n}}}}% -\ottpremise{\ottkw{dom} \, ( \, \ottnt{EB} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{name}}% -}{ -\ottkw{dom} \, ( \, \ottenvironmentappend{ \ottnt{E} }{ \ottnt{EB} } \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{name} \, \ottnt{name_{{\mathrm{1}}}} \, .. \, \ottnt{name_{\ottmv{n}}}}{ -{\ottdrulename{JdomE\_cons}}{} -}} - -\newcommand{\ottdefnJdomE}[1]{\begin{ottdefnblock}[#1]{$\ottkw{dom} \, ( \, \ottnt{E} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{names}$}{\ottcom{Environment domain}} -\ottusedrule{\ottdruleJdomEXXempty{}} -\ottusedrule{\ottdruleJdomEXXcons{}} -\end{ottdefnblock}} - - -\newcommand{\ottdefnsJdomE}{ -\ottdefnJdomE{}} - - -% defns Jlookup -% defn EB -\newcommand{\ottdruleJlookupXXEBXXrecOne}[1]{\ottdrule[#1]{% -\ottpremise{\ottkw{dom} \, ( \, \ottnt{EB} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{name'}}% -\ottpremise{\ottnt{name} \, \not = \, \ottnt{name'}}% -\ottpremise{\ottnt{name'} \, \not = \, \ottkw{TV}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{name} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{EB'}}% -}{ - \ottenvironmentappend{ \ottnt{E} }{ \ottnt{EB} } \, \vdash \, \ottnt{name} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{EB'}}{ -{\ottdrulename{Jlookup\_EB\_rec1}}{} -}} - - -\newcommand{\ottdruleJlookupXXEBXXrecTwo}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{name} \, \not = \, \ottkw{TV}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{name} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{EB'}}% -}{ - \ottenvironmentappend{ \ottnt{E} }{ \ottkw{TV} } \, \vdash \, \ottnt{name} \, \;\vartriangleright\;\ottmaybebreakline \, \ottkw{shift} \, 0 \, 1 \, \ottnt{EB'}}{ -{\ottdrulename{Jlookup\_EB\_rec2}}{} -}} - - -\newcommand{\ottdruleJlookupXXEBXXhead}[1]{\ottdrule[#1]{% -\ottpremise{\ottkw{dom} \, ( \, \ottnt{EB} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{name}}% -}{ - \ottenvironmentappend{ \ottnt{E} }{ \ottnt{EB} } \, \vdash \, \ottnt{name} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{EB}}{ -{\ottdrulename{Jlookup\_EB\_head}}{} -}} - -\newcommand{\ottdefnJlookupXXEB}[1]{\begin{ottdefnblock}[#1]{$\ottnt{E} \, \vdash \, \ottnt{name} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{EB}$}{\ottcom{Environment lookup}} -\ottusedrule{\ottdruleJlookupXXEBXXrecOne{}} -\ottusedrule{\ottdruleJlookupXXEBXXrecTwo{}} -\ottusedrule{\ottdruleJlookupXXEBXXhead{}} -\end{ottdefnblock}} - - -\newcommand{\ottdefnsJlookup}{ -\ottdefnJlookupXXEB{}} - - -% defns Jidx -% defn bound -\newcommand{\ottdruleJidxXXboundXXskipOne}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{idx} \, \ottkw{bound}}% -\ottpremise{\ottkw{dom} \, ( \, \ottnt{EB} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{name}}% -\ottpremise{\ottnt{name} \, \not = \, \ottkw{TV}}% -}{ - \ottenvironmentappend{ \ottnt{E} }{ \ottnt{EB} } \, \vdash \, \ottnt{idx} \, \ottkw{bound}}{ -{\ottdrulename{Jidx\_bound\_skip1}}{} -}} - - -\newcommand{\ottdruleJidxXXboundXXskipTwo}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{idx} \, \ottkw{bound}}% -}{ - \ottenvironmentappend{ \ottnt{E} }{ \ottkw{TV} } \, \vdash \, \ottnt{idx} \, + \, 1 \, \ottkw{bound}}{ -{\ottdrulename{Jidx\_bound\_skip2}}{} -}} - - -\newcommand{\ottdruleJidxXXboundXXfound}[1]{\ottdrule[#1]{% -}{ - \ottenvironmentappend{ \ottnt{E} }{ \ottkw{TV} } \, \vdash \, 0 \, \ottkw{bound}}{ -{\ottdrulename{Jidx\_bound\_found}}{} -}} - -\newcommand{\ottdefnJidxXXbound}[1]{\begin{ottdefnblock}[#1]{$\ottnt{E} \, \vdash \, \ottnt{idx} \, \ottkw{bound}$}{\ottcom{Well-formed index}} -\ottusedrule{\ottdruleJidxXXboundXXskipOne{}} -\ottusedrule{\ottdruleJidxXXboundXXskipTwo{}} -\ottusedrule{\ottdruleJidxXXboundXXfound{}} -\end{ottdefnblock}} - - -\newcommand{\ottdefnsJidx}{ -\ottdefnJidxXXbound{}} - - -% defns JTtps_kind -% defn tps_kind -\newcommand{\ottdruleJTtpsXXkindXXkind}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{tp_{{\mathrm{1}}}} \, ... \, \ottnt{tp_{\ottmv{n}}} \, \ottkw{distinct}}% -\ottpremise{\ottkw{length} \, ( \, \ottnt{tp_{{\mathrm{1}}}} \, ) \, ... \, ( \, \ottnt{tp_{\ottmv{n}}} \, ) \, = \, \ottmv{n}}% -}{ -\vdash \, ( \, \ottnt{tp_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{tp_{\ottmv{n}}} \, ) \, : \, \ottkw{Type}^{ \ottmv{n} }\rightarrow \ottkw{Type} }{ -{\ottdrulename{JTtps\_kind\_kind}}{} -}} - -\newcommand{\ottdefnJTtpsXXkind}[1]{\begin{ottdefnblock}[#1]{$\vdash \, \ottnt{type\_params\_opt} \, : \, \ottnt{kind}$}{\ottcom{Type parameter kinding}} -\ottusedrule{\ottdruleJTtpsXXkindXXkind{}} -\end{ottdefnblock}} - - -\newcommand{\ottdefnsJTtpsXXkind}{ -\ottdefnJTtpsXXkind{}} - - -% defns JTEok -% defn Eok -\newcommand{\ottdruleJTEokXXempty}[1]{\ottdrule[#1]{% -}{ -\ottkw{empty} \, \vdash \, \ottkw{ok}}{ -{\ottdrulename{JTEok\_empty}}{} -}} - - -\newcommand{\ottdruleJTEokXXtypevar}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% -}{ - \ottenvironmentappend{ \ottnt{E} }{ \ottkw{TV} } \, \vdash \, \ottkw{ok}}{ -{\ottdrulename{JTEok\_typevar}}{} -}} - - -\newcommand{\ottdruleJTEokXXvalueXXname}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \forall \, \ottnt{t} \, : \, \ottkw{Type}}% -}{ - \ottenvironmentappend{ \ottnt{E} }{ ( \, \ottnt{value\_name} \, : \, \forall \, \ottnt{t} \, ) } \, \vdash \, \ottkw{ok}}{ -{\ottdrulename{JTEok\_value\_name}}{} -}} - - -\newcommand{\ottdruleJTEokXXconstrXXnameXXc}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{typeconstr\_name} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{typeconstr\_name} \, : \, \ottnt{kind}}% -\ottpremise{\ottkw{dom} \, ( \, \ottnt{E} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{names}}% -\ottpremise{\ottnt{constr\_name} \, \notin \, \ottnt{names}}% -}{ - \ottenvironmentappend{ \ottnt{E} }{ ( \, \ottnt{constr\_name} \, \ottkw{of} \, \ottnt{typeconstr\_name} \, ) } \, \vdash \, \ottkw{ok}}{ -{\ottdrulename{JTEok\_constr\_name\_c}}{} -}} - - -\newcommand{\ottdruleJTEokXXexnXXconstrXXnameXXc}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% -\ottpremise{\ottkw{dom} \, ( \, \ottnt{E} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{names}}% -\ottpremise{\ottnt{constr\_name} \, \notin \, \ottnt{names}}% -}{ - \ottenvironmentappend{ \ottnt{E} }{ ( \, \ottnt{constr\_name} \, \ottkw{of} \, \ottkw{exn} \, ) } \, \vdash \, \ottkw{ok}}{ -{\ottdrulename{JTEok\_exn\_constr\_name\_c}}{} -}} - - -\newcommand{\ottdruleJTEokXXconstrXXnameXXp}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{type\_params\_opt} \, = \, ( \, \alpha_{{\mathrm{1}}} \, , \, ... \, , \, \alpha_{\ottmv{m}} \, )}% -\ottpremise{\ottnt{E} \, \vdash \, \forall \, \ottnt{type\_params\_opt} \, , \, \ottnt{t_{{\mathrm{1}}}} \, : \, \ottkw{Type} \quad ... \quad \ottnt{E} \, \vdash \, \forall \, \ottnt{type\_params\_opt} \, , \, \ottnt{t_{\ottmv{n}}} \, : \, \ottkw{Type}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{typeconstr\_name} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{typeconstr\_name} \, : \, \ottkw{Type}^{ \ottmv{m} }\rightarrow \ottkw{Type} }% -\ottpremise{\ottkw{dom} \, ( \, \ottnt{E} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{names}}% -\ottpremise{\ottnt{constr\_name} \, \notin \, \ottnt{names}}% -\ottpremise{\ottkw{length} \, ( \, \ottnt{t_{{\mathrm{1}}}} \, ) \, ... \, ( \, \ottnt{t_{\ottmv{n}}} \, ) \, \geq \, 1}% -\ottpremise{\ottkw{length} \, ( \, \alpha_{{\mathrm{1}}} \, ) \, ... \, ( \, \alpha_{\ottmv{m}} \, ) \, = \, \ottmv{m}}% -}{ - \ottenvironmentappend{ \ottnt{E} }{ ( \, \ottnt{constr\_name} \, \ottkw{of} \, \forall \, ( \, \alpha_{{\mathrm{1}}} \, , \, ... \, , \, \alpha_{\ottmv{m}} \, ) \, , \, ( \, \ottnt{t_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{t_{\ottmv{n}}} \, ) \, : \, \ottnt{typeconstr\_name} \, ) } \, \vdash \, \ottkw{ok}}{ -{\ottdrulename{JTEok\_constr\_name\_p}}{} -}} - - -\newcommand{\ottdruleJTEokXXexnXXconstrXXnameXXp}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t_{{\mathrm{1}}}} \, : \, \ottkw{Type} \quad ... \quad \ottnt{E} \, \vdash \, \ottnt{t_{\ottmv{n}}} \, : \, \ottkw{Type}}% -\ottpremise{\ottkw{dom} \, ( \, \ottnt{E} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{names}}% -\ottpremise{\ottnt{constr\_name} \, \notin \, \ottnt{names}}% -\ottpremise{\ottkw{length} \, ( \, \ottnt{t_{{\mathrm{1}}}} \, ) \, ... \, ( \, \ottnt{t_{\ottmv{n}}} \, ) \, \geq \, 1}% -}{ - \ottenvironmentappend{ \ottnt{E} }{ ( \, \ottnt{constr\_name} \, \ottkw{of} \, \forall \, \, , \, ( \, \ottnt{t_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{t_{\ottmv{n}}} \, ) \, : \, \ottkw{exn} \, ) } \, \vdash \, \ottkw{ok}}{ -{\ottdrulename{JTEok\_exn\_constr\_name\_p}}{} -}} - - -\newcommand{\ottdruleJTEokXXrecordXXdestr}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \forall \, ( \, \alpha_{{\mathrm{1}}} \, , \, ... \, , \, \alpha_{\ottmv{m}} \, ) \, , \, \ottnt{t} \, : \, \ottkw{Type}}% -\ottpremise{\ottkw{dom} \, ( \, \ottnt{E} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{names}}% -\ottpremise{\ottnt{field\_name} \, \notin \, \ottnt{names}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{typeconstr\_name} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{typeconstr\_name} \, : \, \ottkw{Type}^{ \ottmv{m} }\rightarrow \ottkw{Type} \, \ottkw{\{} \, \ottnt{field\_name_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{field\_name_{\ottmv{n}}} \, \ottkw{\}}}% -\ottpremise{\ottkw{length} \, ( \, \alpha_{{\mathrm{1}}} \, ) \, ... \, ( \, \alpha_{\ottmv{m}} \, ) \, = \, \ottmv{m}}% -\ottpremise{\ottnt{field\_name} \, \ottkw{in} \, \ottnt{field\_name_{{\mathrm{1}}}} \, ... \, \ottnt{field\_name_{\ottmv{n}}}}% -}{ - \ottenvironmentappend{ \ottnt{E} }{ ( \, \ottnt{field\_name} \, : \, \forall \, ( \, \alpha_{{\mathrm{1}}} \, , \, ... \, , \, \alpha_{\ottmv{m}} \, ) \, , \, \ottnt{typeconstr\_name} \, \rightarrow \, \ottnt{t} \, ) } \, \vdash \, \ottkw{ok}}{ -{\ottdrulename{JTEok\_record\_destr}}{} -}} - - -\newcommand{\ottdruleJTEokXXtypeconstrXXname}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% -\ottpremise{\ottkw{dom} \, ( \, \ottnt{E} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{names}}% -\ottpremise{\ottnt{typeconstr\_name} \, \notin \, \ottnt{names}}% -}{ - \ottenvironmentappend{ \ottnt{E} }{ ( \, \ottnt{typeconstr\_name} \, : \, \ottnt{kind} \, ) } \, \vdash \, \ottkw{ok}}{ -{\ottdrulename{JTEok\_typeconstr\_name}}{} -}} - - -\newcommand{\ottdruleJTEokXXtypeconstrXXeqn}[1]{\ottdrule[#1]{% -\ottpremise{\ottkw{dom} \, ( \, \ottnt{E} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{names}}% -\ottpremise{\ottnt{typeconstr\_name} \, \notin \, \ottnt{names}}% -\ottpremise{\ottnt{E} \, \vdash \, \forall \, ( \, \alpha_{{\mathrm{1}}} \, , \, ... \, , \, \alpha_{\ottmv{m}} \, ) \, , \, \ottnt{t} \, : \, \ottkw{Type}}% -}{ - \ottenvironmentappend{ \ottnt{E} }{ ( \, ( \, \alpha_{{\mathrm{1}}} \, , \, ... \, , \, \alpha_{\ottmv{m}} \, ) \, \ottnt{typeconstr\_name} \, = \, \ottnt{t} \, ) } \, \vdash \, \ottkw{ok}}{ -{\ottdrulename{JTEok\_typeconstr\_eqn}}{} -}} - - -\newcommand{\ottdruleJTEokXXtypeconstrXXrecord}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% -\ottpremise{\ottkw{dom} \, ( \, \ottnt{E} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{names}}% -\ottpremise{\ottnt{typeconstr\_name} \, \notin \, \ottnt{names}}% -\ottpremise{\ottnt{field\_name_{{\mathrm{1}}}} \, ... \, \ottnt{field\_name_{\ottmv{n}}} \, \ottkw{distinct}}% -}{ - \ottenvironmentappend{ \ottnt{E} }{ ( \, \ottnt{typeconstr\_name} \, : \, \ottnt{kind} \, \ottkw{\{} \, \ottnt{field\_name_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{field\_name_{\ottmv{n}}} \, \ottkw{\}} \, ) } \, \vdash \, \ottkw{ok}}{ -{\ottdrulename{JTEok\_typeconstr\_record}}{} -}} - - -\newcommand{\ottdruleJTEokXXlocation}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, : \, \ottkw{Type}}% -\ottpremise{\ottkw{dom} \, ( \, \ottnt{E} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{names}}% -\ottpremise{\ottmv{location} \, \notin \, \ottnt{names}}% -}{ - \ottenvironmentappend{ \ottnt{E} }{ ( \, \ottmv{location} \, : \, \ottnt{t} \, ) } \, \vdash \, \ottkw{ok}}{ -{\ottdrulename{JTEok\_location}}{} -}} - -\newcommand{\ottdefnJTEok}[1]{\begin{ottdefnblock}[#1]{$\ottnt{E} \, \vdash \, \ottkw{ok}$}{\ottcom{Environment validity}} -\ottusedrule{\ottdruleJTEokXXempty{}} -\ottusedrule{\ottdruleJTEokXXtypevar{}} -\ottusedrule{\ottdruleJTEokXXvalueXXname{}} -\ottusedrule{\ottdruleJTEokXXconstrXXnameXXc{}} -\ottusedrule{\ottdruleJTEokXXexnXXconstrXXnameXXc{}} -\ottusedrule{\ottdruleJTEokXXconstrXXnameXXp{}} -\ottusedrule{\ottdruleJTEokXXexnXXconstrXXnameXXp{}} -\ottusedrule{\ottdruleJTEokXXrecordXXdestr{}} -\ottusedrule{\ottdruleJTEokXXtypeconstrXXname{}} -\ottusedrule{\ottdruleJTEokXXtypeconstrXXeqn{}} -\ottusedrule{\ottdruleJTEokXXtypeconstrXXrecord{}} -\ottusedrule{\ottdruleJTEokXXlocation{}} -\end{ottdefnblock}} - - -% defn typeconstr -\newcommand{\ottdruleJTtypeconstrXXabstract}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{typeconstr\_name} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{typeconstr\_name} \, : \, \ottnt{kind}}% -}{ -\ottnt{E} \, \vdash \, \ottnt{typeconstr\_name} \, : \, \ottnt{kind}}{ -{\ottdrulename{JTtypeconstr\_abstract}}{} -}} - - -\newcommand{\ottdruleJTtypeconstrXXconcrete}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{typeconstr\_name} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{type\_params\_opt} \, \ottnt{typeconstr\_name} \, = \, \ottnt{t}}% -\ottpremise{\vdash \, \ottnt{type\_params\_opt} \, : \, \ottnt{kind}}% -}{ -\ottnt{E} \, \vdash \, \ottnt{typeconstr\_name} \, : \, \ottnt{kind}}{ -{\ottdrulename{JTtypeconstr\_concrete}}{} -}} - - -\newcommand{\ottdruleJTtypeconstrXXrecord}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{typeconstr\_name} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{typeconstr\_name} \, : \, \ottnt{kind} \, \ottkw{\{} \, \ottnt{field\_name_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{field\_name_{\ottmv{n}}} \, \ottkw{\}}}% -}{ -\ottnt{E} \, \vdash \, \ottnt{typeconstr\_name} \, : \, \ottnt{kind}}{ -{\ottdrulename{JTtypeconstr\_record}}{} -}} - - -\newcommand{\ottdruleJTtypeconstrXXint}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% -}{ -\ottnt{E} \, \vdash \, \ottkw{int} \, : \, \ottkw{Type}}{ -{\ottdrulename{JTtypeconstr\_int}}{} -}} - - -\newcommand{\ottdruleJTtypeconstrXXchar}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% -}{ -\ottnt{E} \, \vdash \, \ottkw{char} \, : \, \ottkw{Type}}{ -{\ottdrulename{JTtypeconstr\_char}}{} -}} - - -\newcommand{\ottdruleJTtypeconstrXXstring}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% -}{ -\ottnt{E} \, \vdash \, \ottkw{string} \, : \, \ottkw{Type}}{ -{\ottdrulename{JTtypeconstr\_string}}{} -}} - - -\newcommand{\ottdruleJTtypeconstrXXfloat}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% -}{ -\ottnt{E} \, \vdash \, \ottkw{float} \, : \, \ottkw{Type}}{ -{\ottdrulename{JTtypeconstr\_float}}{} -}} - - -\newcommand{\ottdruleJTtypeconstrXXbool}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% -}{ -\ottnt{E} \, \vdash \, \ottkw{bool} \, : \, \ottkw{Type}}{ -{\ottdrulename{JTtypeconstr\_bool}}{} -}} - - -\newcommand{\ottdruleJTtypeconstrXXunit}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% -}{ -\ottnt{E} \, \vdash \, \ottkw{unit} \, : \, \ottkw{Type}}{ -{\ottdrulename{JTtypeconstr\_unit}}{} -}} - - -\newcommand{\ottdruleJTtypeconstrXXexn}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% -}{ -\ottnt{E} \, \vdash \, \ottkw{exn} \, : \, \ottkw{Type}}{ -{\ottdrulename{JTtypeconstr\_exn}}{} -}} - - -\newcommand{\ottdruleJTtypeconstrXXlist}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% -}{ -\ottnt{E} \, \vdash \, \ottkw{list} \, : \, \ottkw{Type}^{ 1 }\rightarrow \ottkw{Type} }{ -{\ottdrulename{JTtypeconstr\_list}}{} -}} - - -\newcommand{\ottdruleJTtypeconstrXXoption}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% -}{ -\ottnt{E} \, \vdash \, \ottkw{option} \, : \, \ottkw{Type}^{ 1 }\rightarrow \ottkw{Type} }{ -{\ottdrulename{JTtypeconstr\_option}}{} -}} - - -\newcommand{\ottdruleJTtypeconstrXXref}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% -}{ -\ottnt{E} \, \vdash \, \ottkw{ref} \, : \, \ottkw{Type}^{ 1 }\rightarrow \ottkw{Type} }{ -{\ottdrulename{JTtypeconstr\_ref}}{} -}} - -\newcommand{\ottdefnJTtypeconstr}[1]{\begin{ottdefnblock}[#1]{$\ottnt{E} \, \vdash \, \ottnt{typeconstr} \, : \, \ottnt{kind}$}{\ottcom{Type constructor kinding}} -\ottusedrule{\ottdruleJTtypeconstrXXabstract{}} -\ottusedrule{\ottdruleJTtypeconstrXXconcrete{}} -\ottusedrule{\ottdruleJTtypeconstrXXrecord{}} -\ottusedrule{\ottdruleJTtypeconstrXXint{}} -\ottusedrule{\ottdruleJTtypeconstrXXchar{}} -\ottusedrule{\ottdruleJTtypeconstrXXstring{}} -\ottusedrule{\ottdruleJTtypeconstrXXfloat{}} -\ottusedrule{\ottdruleJTtypeconstrXXbool{}} -\ottusedrule{\ottdruleJTtypeconstrXXunit{}} -\ottusedrule{\ottdruleJTtypeconstrXXexn{}} -\ottusedrule{\ottdruleJTtypeconstrXXlist{}} -\ottusedrule{\ottdruleJTtypeconstrXXoption{}} -\ottusedrule{\ottdruleJTtypeconstrXXref{}} -\end{ottdefnblock}} - - -% defn ts -\newcommand{\ottdruleJTtsXXforall}[1]{\ottdrule[#1]{% -\ottpremise{ \ottenvironmentappend{ \ottnt{E} }{ \ottkw{TV} } \, \vdash \, \ottnt{t} \, : \, \ottkw{Type}}% -}{ -\ottnt{E} \, \vdash \, \forall \, \ottnt{t} \, : \, \ottkw{Type}}{ -{\ottdrulename{JTts\_forall}}{} -}} - -\newcommand{\ottdefnJTts}[1]{\begin{ottdefnblock}[#1]{$\ottnt{E} \, \vdash \, \ottnt{typescheme} \, : \, \ottnt{kind}$}{\ottcom{de Bruijn type scheme well-formedness}} -\ottusedrule{\ottdruleJTtsXXforall{}} -\end{ottdefnblock}} - - -% defn tsnamed -\newcommand{\ottdruleJTtsnamedXXforall}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \{\!\!\{ \, \alpha_{{\mathrm{1}}} \, \!\!\leftarrow\!\! \, \ottkw{unit} \, , \, ... \, , \, \alpha_{\ottmv{n}} \, \!\!\leftarrow\!\! \, \ottkw{unit} \, \}\!\!\} \, \ottnt{t} \, : \, \ottkw{Type}}% -\ottpremise{\alpha_{{\mathrm{1}}} \, ... \, \alpha_{\ottmv{n}} \, \ottkw{distinct}}% -}{ -\ottnt{E} \, \vdash \, \forall \, ( \, \alpha_{{\mathrm{1}}} \, , \, ... \, , \, \alpha_{\ottmv{n}} \, ) \, , \, \ottnt{t} \, : \, \ottkw{Type}}{ -{\ottdrulename{JTtsnamed\_forall}}{} -}} - -\newcommand{\ottdefnJTtsnamed}[1]{\begin{ottdefnblock}[#1]{$\ottnt{E} \, \vdash \, \forall \, \ottnt{type\_params\_opt} \, , \, \ottnt{t} \, : \, \ottnt{kind}$}{\ottcom{Named type scheme well-formedness}} -\ottusedrule{\ottdruleJTtsnamedXXforall{}} -\end{ottdefnblock}} - - -% defn t -\newcommand{\ottdruleJTtXXvar}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{idx} \, \ottkw{bound}}% -}{ -\ottnt{E} \, \vdash \, < \, \ottnt{idx} \, , \, \ottnt{num} \, > \, : \, \ottkw{Type}}{ -{\ottdrulename{JTt\_var}}{} -}} - - -\newcommand{\ottdruleJTtXXarrow}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, : \, \ottkw{Type}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t'} \, : \, \ottkw{Type}}% -}{ -\ottnt{E} \, \vdash \, \ottnt{t} \, \rightarrow \, \ottnt{t'} \, : \, \ottkw{Type}}{ -{\ottdrulename{JTt\_arrow}}{} -}} - - -\newcommand{\ottdruleJTtXXtuple}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t_{{\mathrm{1}}}} \, : \, \ottkw{Type} \quad .... \quad \ottnt{E} \, \vdash \, \ottnt{t_{\ottmv{n}}} \, : \, \ottkw{Type}}% -\ottpremise{\ottkw{length} \, ( \, \ottnt{t_{{\mathrm{1}}}} \, ) \, .... \, ( \, \ottnt{t_{\ottmv{n}}} \, ) \, \geq \, 2}% -}{ -\ottnt{E} \, \vdash \, \ottnt{t_{{\mathrm{1}}}} \, \ast \, .... \, \ast \, \ottnt{t_{\ottmv{n}}} \, : \, \ottkw{Type}}{ -{\ottdrulename{JTt\_tuple}}{} -}} - - -\newcommand{\ottdruleJTtXXconstr}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{typeconstr} \, : \, \ottkw{Type}^{ \ottmv{n} }\rightarrow \ottkw{Type} }% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t_{{\mathrm{1}}}} \, : \, \ottkw{Type} \quad ... \quad \ottnt{E} \, \vdash \, \ottnt{t_{\ottmv{n}}} \, : \, \ottkw{Type}}% -\ottpremise{\ottkw{length} \, ( \, \ottnt{t_{{\mathrm{1}}}} \, ) \, ... \, ( \, \ottnt{t_{\ottmv{n}}} \, ) \, = \, \ottmv{n}}% -}{ -\ottnt{E} \, \vdash \, ( \, \ottnt{t_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{t_{\ottmv{n}}} \, ) \, \ottnt{typeconstr} \, : \, \ottkw{Type}}{ -{\ottdrulename{JTt\_constr}}{} -}} - -\newcommand{\ottdefnJTt}[1]{\begin{ottdefnblock}[#1]{$\ottnt{E} \, \vdash \, \ottnt{typexpr} \, : \, \ottnt{kind}$}{\ottcom{Type expression well-formedness}} -\ottusedrule{\ottdruleJTtXXvar{}} -\ottusedrule{\ottdruleJTtXXarrow{}} -\ottusedrule{\ottdruleJTtXXtuple{}} -\ottusedrule{\ottdruleJTtXXconstr{}} -\end{ottdefnblock}} - - -\newcommand{\ottdefnsJTEok}{ -\ottdefnJTEok{} -\ottdefnJTtypeconstr{} -\ottdefnJTts{} -\ottdefnJTtsnamed{} -\ottdefnJTt{}} - - -% defns JTeq -% defn eq -\newcommand{\ottdruleJTeqXXrefl}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, : \, \ottkw{Type}}% -}{ -\ottnt{E} \, \vdash \, \ottnt{t} \, \equiv \, \ottnt{t}}{ -{\ottdrulename{JTeq\_refl}}{} -}} - - -\newcommand{\ottdruleJTeqXXsym}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t'} \, \equiv \, \ottnt{t}}% -}{ -\ottnt{E} \, \vdash \, \ottnt{t} \, \equiv \, \ottnt{t'}}{ -{\ottdrulename{JTeq\_sym}}{} -}} - - -\newcommand{\ottdruleJTeqXXtrans}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, \equiv \, \ottnt{t'}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t'} \, \equiv \, \ottnt{t''}}% -}{ -\ottnt{E} \, \vdash \, \ottnt{t} \, \equiv \, \ottnt{t''}}{ -{\ottdrulename{JTeq\_trans}}{} -}} - - -\newcommand{\ottdruleJTeqXXexpand}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{typeconstr\_name} \, \;\vartriangleright\;\ottmaybebreakline \, ( \, \alpha_{{\mathrm{1}}} \, , \, ... \, , \, \alpha_{\ottmv{n}} \, ) \, \ottnt{typeconstr\_name} \, = \, \ottnt{t}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t_{{\mathrm{1}}}} \, : \, \ottkw{Type} \quad ... \quad \ottnt{E} \, \vdash \, \ottnt{t_{\ottmv{n}}} \, : \, \ottkw{Type}}% -}{ -\ottnt{E} \, \vdash \, ( \, \ottnt{t_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{t_{\ottmv{n}}} \, ) \, \ottnt{typeconstr\_name} \, \equiv \, \{\!\!\{ \, \alpha_{{\mathrm{1}}} \, \!\!\leftarrow\!\! \, \ottnt{t_{{\mathrm{1}}}} \, , \, ... \, , \, \alpha_{\ottmv{n}} \, \!\!\leftarrow\!\! \, \ottnt{t_{\ottmv{n}}} \, \}\!\!\} \, \ottnt{t}}{ -{\ottdrulename{JTeq\_expand}}{} -}} - - -\newcommand{\ottdruleJTeqXXarrow}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t_{{\mathrm{1}}}} \, \equiv \, \ottnt{t'_{{\mathrm{1}}}}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t_{{\mathrm{2}}}} \, \equiv \, \ottnt{t'_{{\mathrm{2}}}}}% -}{ -\ottnt{E} \, \vdash \, \ottnt{t_{{\mathrm{1}}}} \, \rightarrow \, \ottnt{t_{{\mathrm{2}}}} \, \equiv \, \ottnt{t'_{{\mathrm{1}}}} \, \rightarrow \, \ottnt{t'_{{\mathrm{2}}}}}{ -{\ottdrulename{JTeq\_arrow}}{} -}} - - -\newcommand{\ottdruleJTeqXXtuple}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t_{{\mathrm{1}}}} \, \equiv \, \ottnt{t'_{{\mathrm{1}}}} \quad .... \quad \ottnt{E} \, \vdash \, \ottnt{t_{\ottmv{n}}} \, \equiv \, \ottnt{t'_{\ottmv{n}}}}% -\ottpremise{\ottkw{length} \, ( \, \ottnt{t_{{\mathrm{1}}}} \, ) \, .... \, ( \, \ottnt{t_{\ottmv{n}}} \, ) \, \geq \, 2}% -}{ -\ottnt{E} \, \vdash \, \ottnt{t_{{\mathrm{1}}}} \, \ast \, .... \, \ast \, \ottnt{t_{\ottmv{n}}} \, \equiv \, \ottnt{t'_{{\mathrm{1}}}} \, \ast \, .... \, \ast \, \ottnt{t'_{\ottmv{n}}}}{ -{\ottdrulename{JTeq\_tuple}}{} -}} - - -\newcommand{\ottdruleJTeqXXconstr}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{typeconstr} \, : \, \ottkw{Type}^{ \ottmv{n} }\rightarrow \ottkw{Type} }% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t_{{\mathrm{1}}}} \, \equiv \, \ottnt{t'_{{\mathrm{1}}}} \quad ... \quad \ottnt{E} \, \vdash \, \ottnt{t_{\ottmv{n}}} \, \equiv \, \ottnt{t'_{\ottmv{n}}}}% -\ottpremise{\ottkw{length} \, ( \, \ottnt{t_{{\mathrm{1}}}} \, ) \, ... \, ( \, \ottnt{t_{\ottmv{n}}} \, ) \, = \, \ottmv{n}}% -}{ -\ottnt{E} \, \vdash \, ( \, \ottnt{t_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{t_{\ottmv{n}}} \, ) \, \ottnt{typeconstr} \, \equiv \, ( \, \ottnt{t'_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{t'_{\ottmv{n}}} \, ) \, \ottnt{typeconstr}}{ -{\ottdrulename{JTeq\_constr}}{} -}} - -\newcommand{\ottdefnJTeq}[1]{\begin{ottdefnblock}[#1]{$\ottnt{E} \, \vdash \, \ottnt{typexpr} \, \equiv \, \ottnt{typexpr'}$}{\ottcom{Type equivalence}} -\ottusedrule{\ottdruleJTeqXXrefl{}} -\ottusedrule{\ottdruleJTeqXXsym{}} -\ottusedrule{\ottdruleJTeqXXtrans{}} -\ottusedrule{\ottdruleJTeqXXexpand{}} -\ottusedrule{\ottdruleJTeqXXarrow{}} -\ottusedrule{\ottdruleJTeqXXtuple{}} -\ottusedrule{\ottdruleJTeqXXconstr{}} -\end{ottdefnblock}} - - -\newcommand{\ottdefnsJTeq}{ -\ottdefnJTeq{}} - - -% defns JTidxsub -% defn idxsub -\newcommand{\ottdruleJTinxsubXXalpha}[1]{\ottdrule[#1]{% -}{ -\{\!\!\{ \, \ottnt{t_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{t_{\ottmv{n}}} \, \}\!\!\} \, \alpha \, \;\vartriangleright\;\ottmaybebreakline \, \alpha}{ -{\ottdrulename{JTinxsub\_alpha}}{} -}} - - -\newcommand{\ottdruleJTinxsubXXidxZero}[1]{\ottdrule[#1]{% -\ottpremise{\ottkw{length} \, ( \, \ottnt{t_{{\mathrm{1}}}} \, ) \, .. \, ( \, \ottnt{t_{\ottmv{m}}} \, ) \, = \, \ottnt{num}}% -}{ -\{\!\!\{ \, \ottnt{t_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{t_{\ottmv{m}}} \, , \, \ottnt{t'} \, , \, \ottnt{t''_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{t''_{\ottmv{n}}} \, \}\!\!\} \, < \, 0 \, , \, \ottnt{num} \, > \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{t'}}{ -{\ottdrulename{JTinxsub\_idx0}}{} -}} - - -\newcommand{\ottdruleJTinxsubXXidxOne}[1]{\ottdrule[#1]{% -\ottpremise{\ottkw{length} \, ( \, \ottnt{t_{{\mathrm{1}}}} \, ) \, .. \, ( \, \ottnt{t_{\ottmv{n}}} \, ) \, \leq \, \ottnt{num}}% -}{ -\{\!\!\{ \, \ottnt{t_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{t_{\ottmv{n}}} \, \}\!\!\} \, < \, 0 \, , \, \ottnt{num} \, > \, \;\vartriangleright\;\ottmaybebreakline \, \ottkw{unit}}{ -{\ottdrulename{JTinxsub\_idx1}}{} -}} - - -\newcommand{\ottdruleJTinxsubXXidxTwo}[1]{\ottdrule[#1]{% -}{ -\{\!\!\{ \, \ottnt{t_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{t_{\ottmv{n}}} \, \}\!\!\} \, < \, \ottnt{idx} \, + \, 1 \, , \, \ottnt{num} \, > \, \;\vartriangleright\;\ottmaybebreakline \, < \, \ottnt{idx} \, , \, \ottnt{num} \, >}{ -{\ottdrulename{JTinxsub\_idx2}}{} -}} - - -\newcommand{\ottdruleJTinxsubXXany}[1]{\ottdrule[#1]{% -}{ -\{\!\!\{ \, \ottnt{t_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{t_{\ottmv{n}}} \, \}\!\!\} \, \ottkw{\_} \, \;\vartriangleright\;\ottmaybebreakline \, \ottkw{\_}}{ -{\ottdrulename{JTinxsub\_any}}{} -}} - - -\newcommand{\ottdruleJTinxsubXXarrow}[1]{\ottdrule[#1]{% -\ottpremise{\{\!\!\{ \, \ottnt{t_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{t_{\ottmv{n}}} \, \}\!\!\} \, \ottnt{t'_{{\mathrm{1}}}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{t''_{{\mathrm{1}}}}}% -\ottpremise{\{\!\!\{ \, \ottnt{t_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{t_{\ottmv{n}}} \, \}\!\!\} \, \ottnt{t'_{{\mathrm{2}}}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{t''_{{\mathrm{2}}}}}% -}{ -\{\!\!\{ \, \ottnt{t_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{t_{\ottmv{n}}} \, \}\!\!\} \, ( \, \ottnt{t'_{{\mathrm{1}}}} \, \rightarrow \, \ottnt{t'_{{\mathrm{2}}}} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{t''_{{\mathrm{1}}}} \, \rightarrow \, \ottnt{t''_{{\mathrm{2}}}}}{ -{\ottdrulename{JTinxsub\_arrow}}{} -}} - - -\newcommand{\ottdruleJTinxsubXXtuple}[1]{\ottdrule[#1]{% -\ottpremise{\{\!\!\{ \, \ottnt{t_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{t_{\ottmv{n}}} \, \}\!\!\} \, \ottnt{t'_{{\mathrm{1}}}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{t''_{{\mathrm{1}}}} \quad .... \quad \{\!\!\{ \, \ottnt{t_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{t_{\ottmv{n}}} \, \}\!\!\} \, \ottnt{t'_{\ottmv{m}}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{t''_{\ottmv{m}}}}% -}{ -\{\!\!\{ \, \ottnt{t_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{t_{\ottmv{n}}} \, \}\!\!\} \, ( \, \ottnt{t'_{{\mathrm{1}}}} \, \ast \, .... \, \ast \, \ottnt{t'_{\ottmv{m}}} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, ( \, \ottnt{t''_{{\mathrm{1}}}} \, \ast \, .... \, \ast \, \ottnt{t''_{\ottmv{m}}} \, )}{ -{\ottdrulename{JTinxsub\_tuple}}{} -}} - - -\newcommand{\ottdruleJTinxsubXXtc}[1]{\ottdrule[#1]{% -\ottpremise{\{\!\!\{ \, \ottnt{t_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{t_{\ottmv{n}}} \, \}\!\!\} \, \ottnt{t'_{{\mathrm{1}}}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{t''_{{\mathrm{1}}}} \quad ... \quad \{\!\!\{ \, \ottnt{t_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{t_{\ottmv{n}}} \, \}\!\!\} \, \ottnt{t'_{\ottmv{m}}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{t''_{\ottmv{m}}}}% -}{ -\{\!\!\{ \, \ottnt{t_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{t_{\ottmv{n}}} \, \}\!\!\} \, ( \, \ottnt{t'_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{t'_{\ottmv{m}}} \, ) \, \ottnt{typeconstr} \, \;\vartriangleright\;\ottmaybebreakline \, ( \, \ottnt{t''_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{t''_{\ottmv{m}}} \, ) \, \ottnt{typeconstr}}{ -{\ottdrulename{JTinxsub\_tc}}{} -}} - -\newcommand{\ottdefnJTidxsub}[1]{\begin{ottdefnblock}[#1]{$\{\!\!\{ \, \ottnt{typexpr_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{typexpr_{\ottmv{n}}} \, \}\!\!\} \, \ottnt{typexpr'} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{typexpr''}$}{\ottcom{de Bruin type substitution}} -\ottusedrule{\ottdruleJTinxsubXXalpha{}} -\ottusedrule{\ottdruleJTinxsubXXidxZero{}} -\ottusedrule{\ottdruleJTinxsubXXidxOne{}} -\ottusedrule{\ottdruleJTinxsubXXidxTwo{}} -\ottusedrule{\ottdruleJTinxsubXXany{}} -\ottusedrule{\ottdruleJTinxsubXXarrow{}} -\ottusedrule{\ottdruleJTinxsubXXtuple{}} -\ottusedrule{\ottdruleJTinxsubXXtc{}} -\end{ottdefnblock}} - - -\newcommand{\ottdefnsJTidxsub}{ -\ottdefnJTidxsub{}} - - -% defns JTinst -% defn inst -\newcommand{\ottdruleJTinstXXidx}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \forall \, \ottnt{t'} \, : \, \ottkw{Type}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t_{{\mathrm{1}}}} \, : \, \ottkw{Type} \quad .. \quad \ottnt{E} \, \vdash \, \ottnt{t_{\ottmv{n}}} \, : \, \ottkw{Type}}% -\ottpremise{\{\!\!\{ \, \ottnt{t_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{t_{\ottmv{n}}} \, \}\!\!\} \, \ottnt{t'} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{t''}}% -}{ -\ottnt{E} \, \vdash \, \ottnt{t''} \, \leq \, \forall \, \ottnt{t'}}{ -{\ottdrulename{JTinst\_idx}}{} -}} - -\newcommand{\ottdefnJTinst}[1]{\begin{ottdefnblock}[#1]{$\ottnt{E} \, \vdash \, \ottnt{typexpr} \, \leq \, \ottnt{typescheme}$}{\ottcom{de Bruijn type scheme instantiation}} -\ottusedrule{\ottdruleJTinstXXidx{}} -\end{ottdefnblock}} - - -\newcommand{\ottdefnsJTinst}{ -\ottdefnJTinst{}} - - -% defns JTinst_named -% defn inst_named -\newcommand{\ottdruleJTinstXXnamedXXnamed}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \forall \, ( \, \alpha_{{\mathrm{1}}} \, , \, ... \, , \, \alpha_{\ottmv{n}} \, ) \, , \, \ottnt{t} \, : \, \ottkw{Type}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t_{{\mathrm{1}}}} \, : \, \ottkw{Type} \quad ... \quad \ottnt{E} \, \vdash \, \ottnt{t_{\ottmv{n}}} \, : \, \ottkw{Type}}% -}{ -\ottnt{E} \, \vdash \, \{\!\!\{ \, \alpha_{{\mathrm{1}}} \, \!\!\leftarrow\!\! \, \ottnt{t_{{\mathrm{1}}}} \, , \, ... \, , \, \alpha_{\ottmv{n}} \, \!\!\leftarrow\!\! \, \ottnt{t_{\ottmv{n}}} \, \}\!\!\} \, \ottnt{t} \, \leq \, \forall \, ( \, \alpha_{{\mathrm{1}}} \, , \, ... \, , \, \alpha_{\ottmv{n}} \, ) \, , \, \ottnt{t}}{ -{\ottdrulename{JTinst\_named\_named}}{} -}} - -\newcommand{\ottdefnJTinstXXnamed}[1]{\begin{ottdefnblock}[#1]{$\ottnt{E} \, \vdash \, \ottnt{typexpr} \, \leq \, \forall \, \ottnt{type\_params\_opt} \, , \, \ottnt{typexpr'}$}{\ottcom{Named type scheme instantiation}} -\ottusedrule{\ottdruleJTinstXXnamedXXnamed{}} -\end{ottdefnblock}} - - -\newcommand{\ottdefnsJTinstXXnamed}{ -\ottdefnJTinstXXnamed{}} - - -% defns JTinst_any -% defn inst_any -\newcommand{\ottdruleJTinstXXanyXXtyvar}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, < \, \ottnt{idx} \, , \, \ottnt{num} \, > \, : \, \ottkw{Type}}% -}{ -\ottnt{E} \, \vdash \, < \, \ottnt{idx} \, , \, \ottnt{num} \, > \, \leq \, < \, \ottnt{idx} \, , \, \ottnt{num} \, >}{ -{\ottdrulename{JTinst\_any\_tyvar}}{} -}} - - -\newcommand{\ottdruleJTinstXXanyXXany}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, : \, \ottkw{Type}}% -}{ -\ottnt{E} \, \vdash \, \ottnt{t} \, \leq \, \ottkw{\_}}{ -{\ottdrulename{JTinst\_any\_any}}{} -}} - - -\newcommand{\ottdruleJTinstXXanyXXarrow}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t_{{\mathrm{1}}}} \, \leq \, \ottnt{t'_{{\mathrm{1}}}}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t_{{\mathrm{2}}}} \, \leq \, \ottnt{t'_{{\mathrm{2}}}}}% -}{ -\ottnt{E} \, \vdash \, \ottnt{t_{{\mathrm{1}}}} \, \rightarrow \, \ottnt{t_{{\mathrm{2}}}} \, \leq \, \ottnt{t'_{{\mathrm{1}}}} \, \rightarrow \, \ottnt{t'_{{\mathrm{2}}}}}{ -{\ottdrulename{JTinst\_any\_arrow}}{} -}} - - -\newcommand{\ottdruleJTinstXXanyXXtuple}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t_{{\mathrm{1}}}} \, \leq \, \ottnt{t'_{{\mathrm{1}}}} \quad .... \quad \ottnt{E} \, \vdash \, \ottnt{t_{\ottmv{n}}} \, \leq \, \ottnt{t'_{\ottmv{n}}}}% -\ottpremise{\ottkw{length} \, ( \, \ottnt{t_{{\mathrm{1}}}} \, ) \, .... \, ( \, \ottnt{t_{\ottmv{n}}} \, ) \, \geq \, 2}% -}{ -\ottnt{E} \, \vdash \, \ottnt{t_{{\mathrm{1}}}} \, \ast \, .... \, \ast \, \ottnt{t_{\ottmv{n}}} \, \leq \, \ottnt{t'_{{\mathrm{1}}}} \, \ast \, .... \, \ast \, \ottnt{t'_{\ottmv{n}}}}{ -{\ottdrulename{JTinst\_any\_tuple}}{} -}} - - -\newcommand{\ottdruleJTinstXXanyXXctor}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t_{{\mathrm{1}}}} \, \leq \, \ottnt{t'_{{\mathrm{1}}}} \quad ... \quad \ottnt{E} \, \vdash \, \ottnt{t_{\ottmv{n}}} \, \leq \, \ottnt{t'_{\ottmv{n}}}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{typeconstr} \, : \, \ottkw{Type}^{ \ottmv{n} }\rightarrow \ottkw{Type} }% -\ottpremise{\ottkw{length} \, ( \, \ottnt{t_{{\mathrm{1}}}} \, ) \, ... \, ( \, \ottnt{t_{\ottmv{n}}} \, ) \, = \, \ottmv{n}}% -}{ -\ottnt{E} \, \vdash \, ( \, \ottnt{t_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{t_{\ottmv{n}}} \, ) \, \ottnt{typeconstr} \, \leq \, ( \, \ottnt{t'_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{t'_{\ottmv{n}}} \, ) \, \ottnt{typeconstr}}{ -{\ottdrulename{JTinst\_any\_ctor}}{} -}} - -\newcommand{\ottdefnJTinstXXany}[1]{\begin{ottdefnblock}[#1]{$\ottnt{E} \, \vdash \, \ottnt{typexpr} \, \leq \, \ottnt{typexpr'}$}{\ottcom{Wildcard type instantiation}} -\ottusedrule{\ottdruleJTinstXXanyXXtyvar{}} -\ottusedrule{\ottdruleJTinstXXanyXXany{}} -\ottusedrule{\ottdruleJTinstXXanyXXarrow{}} -\ottusedrule{\ottdruleJTinstXXanyXXtuple{}} -\ottusedrule{\ottdruleJTinstXXanyXXctor{}} -\end{ottdefnblock}} - - -\newcommand{\ottdefnsJTinstXXany}{ -\ottdefnJTinstXXany{}} - - -% defns JTval -% defn value_name -\newcommand{\ottdruleJTvalueXXnameXXvalueXXname}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{value\_name} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{value\_name} \, : \, \ottnt{ts}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, \leq \, \ottnt{ts}}% -}{ -\ottnt{E} \, \vdash \, \ottnt{value\_name} \, : \, \ottnt{t}}{ -{\ottdrulename{JTvalue\_name\_value\_name}}{} -}} - -\newcommand{\ottdefnJTvalueXXname}[1]{\begin{ottdefnblock}[#1]{$\ottnt{E} \, \vdash \, \ottnt{value\_name} \, : \, \ottnt{typexpr}$}{\ottcom{Variable typing}} -\ottusedrule{\ottdruleJTvalueXXnameXXvalueXXname{}} -\end{ottdefnblock}} - - -\newcommand{\ottdefnsJTval}{ -\ottdefnJTvalueXXname{}} - - -% defns JTfield -% defn field -\newcommand{\ottdruleJTfieldXXname}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{field\_name} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{field\_name} \, : \, \forall \, ( \, \alpha_{{\mathrm{1}}} \, , \, ... \, , \, \alpha_{\ottmv{m}} \, ) \, , \, \ottnt{typeconstr\_name} \, \rightarrow \, \ottnt{t}}% -\ottpremise{\ottnt{E} \, \vdash \, ( \, \ottnt{t'_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{t'_{\ottmv{m}}} \, ) \, \ottnt{typeconstr\_name} \, \rightarrow \, \ottnt{t''} \, \leq \, \forall \, ( \, \alpha_{{\mathrm{1}}} \, , \, ... \, , \, \alpha_{\ottmv{m}} \, ) \, , \, ( \, \alpha_{{\mathrm{1}}} \, , \, ... \, , \, \alpha_{\ottmv{m}} \, ) \, \ottnt{typeconstr\_name} \, \rightarrow \, \ottnt{t}}% -}{ -\ottnt{E} \, \vdash \, \ottnt{field\_name} \, : \, ( \, \ottnt{t'_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{t'_{\ottmv{m}}} \, ) \, \ottnt{typeconstr\_name} \, \rightarrow \, \ottnt{t''}}{ -{\ottdrulename{JTfield\_name}}{} -}} - -\newcommand{\ottdefnJTfield}[1]{\begin{ottdefnblock}[#1]{$\ottnt{E} \, \vdash \, \ottnt{field\_name} \, : \, \ottnt{typexpr} \, \rightarrow \, \ottnt{typexpr'}$}{\ottcom{Field name typing}} -\ottusedrule{\ottdruleJTfieldXXname{}} -\end{ottdefnblock}} - - -\newcommand{\ottdefnsJTfield}{ -\ottdefnJTfield{}} - - -% defns JTconstr_p -% defn constr_p -\newcommand{\ottdruleJTconstrXXpXXname}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{constr\_name} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{constr\_name} \, \ottkw{of} \, \forall \, ( \, \alpha_{{\mathrm{1}}} \, , \, ... \, , \, \alpha_{\ottmv{m}} \, ) \, , \, ( \, \ottnt{t_{{\mathrm{1}}}} \, , \, .... \, , \, \ottnt{t_{\ottmv{n}}} \, ) \, : \, \ottnt{typeconstr}}% -\ottpremise{\ottnt{E} \, \vdash \, ( \, \ottnt{t'_{{\mathrm{1}}}} \, \ast \, .... \, \ast \, \ottnt{t'_{\ottmv{n}}} \, ) \, \rightarrow \, ( \, \ottnt{t''_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{t''_{\ottmv{m}}} \, ) \, \ottnt{typeconstr} \, \leq \, \forall \, ( \, \alpha_{{\mathrm{1}}} \, , \, ... \, , \, \alpha_{\ottmv{m}} \, ) \, , \, ( \, \ottnt{t_{{\mathrm{1}}}} \, \ast \, .... \, \ast \, \ottnt{t_{\ottmv{n}}} \, ) \, \rightarrow \, ( \, \alpha_{{\mathrm{1}}} \, , \, ... \, , \, \alpha_{\ottmv{m}} \, ) \, \ottnt{typeconstr}}% -}{ -\ottnt{E} \, \vdash \, \ottnt{constr\_name} \, : \, \ottnt{t'_{{\mathrm{1}}}} \, .... \, \ottnt{t'_{\ottmv{n}}} \, \rightarrow \, ( \, \ottnt{t''_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{t''_{\ottmv{m}}} \, ) \, \ottnt{typeconstr}}{ -{\ottdrulename{JTconstr\_p\_name}}{} -}} - - -\newcommand{\ottdruleJTconstrXXpXXinvarg}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% -}{ -\ottnt{E} \, \vdash \, \ottkw{Invalid\_argument} \, : \, \ottkw{string} \, \rightarrow \, \ottkw{exn}}{ -{\ottdrulename{JTconstr\_p\_invarg}}{} -}} - - -\newcommand{\ottdruleJTconstrXXpXXsome}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, : \, \ottkw{Type}}% -}{ -\ottnt{E} \, \vdash \, \ottkw{Some} \, : \, \ottnt{t} \, \rightarrow \, ( \, \ottnt{t} \, \ottkw{option} \, )}{ -{\ottdrulename{JTconstr\_p\_some}}{} -}} - -\newcommand{\ottdefnJTconstrXXp}[1]{\begin{ottdefnblock}[#1]{$\ottnt{E} \, \vdash \, \ottnt{constr} \, : \, \ottnt{typexpr_{{\mathrm{1}}}} \, ... \, \ottnt{typexpr_{\ottmv{n}}} \, \rightarrow \, \ottnt{typexpr'}$}{\ottcom{Non-constant constructor typing}} -\ottusedrule{\ottdruleJTconstrXXpXXname{}} -\ottusedrule{\ottdruleJTconstrXXpXXinvarg{}} -\ottusedrule{\ottdruleJTconstrXXpXXsome{}} -\end{ottdefnblock}} - - -\newcommand{\ottdefnsJTconstrXXp}{ -\ottdefnJTconstrXXp{}} - - -% defns JTconstr_c -% defn constr_c -\newcommand{\ottdruleJTconstrXXcXXconstr}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{constr\_name} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{constr\_name} \, \ottkw{of} \, \ottnt{typeconstr\_name}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{typeconstr\_name} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{typeconstr\_name} \, : \, \ottkw{Type}^{ \ottmv{n} }\rightarrow \ottkw{Type} }% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t_{{\mathrm{1}}}} \, : \, \ottkw{Type} \quad ... \quad \ottnt{E} \, \vdash \, \ottnt{t_{\ottmv{n}}} \, : \, \ottkw{Type}}% -\ottpremise{\ottkw{length} \, ( \, \ottnt{t_{{\mathrm{1}}}} \, ) \, ... \, ( \, \ottnt{t_{\ottmv{n}}} \, ) \, = \, \ottmv{n}}% -}{ -\ottnt{E} \, \vdash \, \ottnt{constr\_name} \, : \, ( \, \ottnt{t_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{t_{\ottmv{n}}} \, ) \, \ottnt{typeconstr\_name}}{ -{\ottdrulename{JTconstr\_c\_constr}}{} -}} - - -\newcommand{\ottdruleJTconstrXXcXXexnXXconstr}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{constr\_name} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{constr\_name} \, \ottkw{of} \, \ottkw{exn}}% -}{ -\ottnt{E} \, \vdash \, \ottnt{constr\_name} \, : \, \ottkw{exn}}{ -{\ottdrulename{JTconstr\_c\_exn\_constr}}{} -}} - - -\newcommand{\ottdruleJTconstrXXcXXnotfound}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% -}{ -\ottnt{E} \, \vdash \, \ottkw{Not\_found} \, : \, \ottkw{exn}}{ -{\ottdrulename{JTconstr\_c\_notfound}}{} -}} - - -\newcommand{\ottdruleJTconstrXXcXXassertXXfail}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% -}{ -\ottnt{E} \, \vdash \, \ottkw{Assert\_failure} \, : \, \ottkw{exn}}{ -{\ottdrulename{JTconstr\_c\_assert\_fail}}{} -}} - - -\newcommand{\ottdruleJTconstrXXcXXmatchXXfail}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% -}{ -\ottnt{E} \, \vdash \, \ottkw{Match\_failure} \, : \, \ottkw{exn}}{ -{\ottdrulename{JTconstr\_c\_match\_fail}}{} -}} - - -\newcommand{\ottdruleJTconstrXXcXXdivXXbyXXZero}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% -}{ -\ottnt{E} \, \vdash \, \ottkw{Division\_by\_zero} \, : \, \ottkw{exn}}{ -{\ottdrulename{JTconstr\_c\_div\_by\_0}}{} -}} - - -\newcommand{\ottdruleJTconstrXXcXXnone}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, : \, \ottkw{Type}}% -}{ -\ottnt{E} \, \vdash \, \ottkw{None} \, : \, \ottnt{t} \, \ottkw{option}}{ -{\ottdrulename{JTconstr\_c\_none}}{} -}} - -\newcommand{\ottdefnJTconstrXXc}[1]{\begin{ottdefnblock}[#1]{$\ottnt{E} \, \vdash \, \ottnt{constr} \, : \, \ottnt{typexpr}$}{\ottcom{Constant constructor typing}} -\ottusedrule{\ottdruleJTconstrXXcXXconstr{}} -\ottusedrule{\ottdruleJTconstrXXcXXexnXXconstr{}} -\ottusedrule{\ottdruleJTconstrXXcXXnotfound{}} -\ottusedrule{\ottdruleJTconstrXXcXXassertXXfail{}} -\ottusedrule{\ottdruleJTconstrXXcXXmatchXXfail{}} -\ottusedrule{\ottdruleJTconstrXXcXXdivXXbyXXZero{}} -\ottusedrule{\ottdruleJTconstrXXcXXnone{}} -\end{ottdefnblock}} - - -\newcommand{\ottdefnsJTconstrXXc}{ -\ottdefnJTconstrXXc{}} - - -% defns JTconst -% defn const -\newcommand{\ottdruleJTconstXXint}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% -}{ -\ottnt{E} \, \vdash \, \ottmv{integer\_literal} \, : \, \ottkw{int}}{ -{\ottdrulename{JTconst\_int}}{} -}} - - -\newcommand{\ottdruleJTconstXXfloat}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% -}{ -\ottnt{E} \, \vdash \, \ottmv{float\_literal} \, : \, \ottkw{float}}{ -{\ottdrulename{JTconst\_float}}{} -}} - - -\newcommand{\ottdruleJTconstXXchar}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% -}{ -\ottnt{E} \, \vdash \, \ottmv{char\_literal} \, : \, \ottkw{char}}{ -{\ottdrulename{JTconst\_char}}{} -}} - - -\newcommand{\ottdruleJTconstXXstring}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% -}{ -\ottnt{E} \, \vdash \, \ottmv{string\_literal} \, : \, \ottkw{string}}{ -{\ottdrulename{JTconst\_string}}{} -}} - - -\newcommand{\ottdruleJTconstXXconstr}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{constr} \, : \, \ottnt{t}}% -}{ -\ottnt{E} \, \vdash \, \ottnt{constr} \, : \, \ottnt{t}}{ -{\ottdrulename{JTconst\_constr}}{} -}} - - -\newcommand{\ottdruleJTconstXXfalse}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% -}{ -\ottnt{E} \, \vdash \, \ottkw{false} \, : \, \ottkw{bool}}{ -{\ottdrulename{JTconst\_false}}{} -}} - - -\newcommand{\ottdruleJTconstXXtrue}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% -}{ -\ottnt{E} \, \vdash \, \ottkw{true} \, : \, \ottkw{bool}}{ -{\ottdrulename{JTconst\_true}}{} -}} - - -\newcommand{\ottdruleJTconstXXunit}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% -}{ -\ottnt{E} \, \vdash \, \ottkw{()} \, : \, \ottkw{unit}}{ -{\ottdrulename{JTconst\_unit}}{} -}} - - -\newcommand{\ottdruleJTconstXXnil}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, : \, \ottkw{Type}}% -}{ -\ottnt{E} \, \vdash \, \ottkw{[]} \, : \, \ottnt{t} \, \ottkw{list}}{ -{\ottdrulename{JTconst\_nil}}{} -}} - -\newcommand{\ottdefnJTconst}[1]{\begin{ottdefnblock}[#1]{$\ottnt{E} \, \vdash \, \ottnt{constant} \, : \, \ottnt{typexpr}$}{\ottcom{Constant typing}} -\ottusedrule{\ottdruleJTconstXXint{}} -\ottusedrule{\ottdruleJTconstXXfloat{}} -\ottusedrule{\ottdruleJTconstXXchar{}} -\ottusedrule{\ottdruleJTconstXXstring{}} -\ottusedrule{\ottdruleJTconstXXconstr{}} -\ottusedrule{\ottdruleJTconstXXfalse{}} -\ottusedrule{\ottdruleJTconstXXtrue{}} -\ottusedrule{\ottdruleJTconstXXunit{}} -\ottusedrule{\ottdruleJTconstXXnil{}} -\end{ottdefnblock}} - - -\newcommand{\ottdefnsJTconst}{ -\ottdefnJTconst{}} - - -% defns JTpat -% defn pat -\newcommand{\ottdruleJTpatXXvar}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, : \, \ottkw{Type}}% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{x} \, : \, \ottnt{t} \, \;\vartriangleright\;\ottmaybebreakline \, \ottenvironmentappend{ \ottkw{empty} }{ \ottnt{x} \, : \, \ottnt{t} } }{ -{\ottdrulename{JTpat\_var}}{} -}} - - -\newcommand{\ottdruleJTpatXXany}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, : \, \ottkw{Type}}% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottkw{\_} \, : \, \ottnt{t} \, \;\vartriangleright\;\ottmaybebreakline \, \ottkw{empty}}{ -{\ottdrulename{JTpat\_any}}{} -}} - - -\newcommand{\ottdruleJTpatXXconstant}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{constant} \, : \, \ottnt{t}}% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{constant} \, : \, \ottnt{t} \, \;\vartriangleright\;\ottmaybebreakline \, \ottkw{empty}}{ -{\ottdrulename{JTpat\_constant}}{} -}} - - -\newcommand{\ottdruleJTpatXXalias}[1]{\ottdrule[#1]{% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern} \, : \, \ottnt{t} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E'}}% -\ottpremise{\ottkw{dom} \, ( \, \ottenvironmentappend{ \ottnt{E'} }{ \ottnt{x} \, : \, \ottnt{t} } \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{name_{{\mathrm{1}}}} \, .. \, \ottnt{name_{\ottmv{n}}}}% -\ottpremise{\ottnt{name_{{\mathrm{1}}}} \, .. \, \ottnt{name_{\ottmv{n}}} \, \ottkw{distinct}}% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern} \, \ottkw{as} \, \ottnt{x} \, : \, \ottnt{t} \, \;\vartriangleright\;\ottmaybebreakline \, \ottenvironmentappend{ \ottnt{E'} }{ \ottnt{x} \, : \, \ottnt{t} } }{ -{\ottdrulename{JTpat\_alias}}{} -}} - - -\newcommand{\ottdruleJTpatXXtyped}[1]{\ottdrule[#1]{% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern} \, : \, \ottnt{t} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E'}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t'} \, \leq \, \sigma^T \, \ottnt{src\_t}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, \equiv \, \ottnt{t'}}% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, ( \, \ottnt{pattern} \, : \, \ottnt{src\_t} \, ) \, : \, \ottnt{t} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E'}}{ -{\ottdrulename{JTpat\_typed}}{} -}} - - -\newcommand{\ottdruleJTpatXXor}[1]{\ottdrule[#1]{% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern} \, : \, \ottnt{t} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E'}}% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern'} \, : \, \ottnt{t} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E''}}% -\ottpremise{\ottnt{E'} \, \ottkw{PERMUTES} \, \ottnt{E''}}% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern} \, \ottkw{\mbox{$\mid$}} \, \ottnt{pattern'} \, : \, \ottnt{t} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E'}}{ -{\ottdrulename{JTpat\_or}}{} -}} - - -\newcommand{\ottdruleJTpatXXconstruct}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{constr} \, : \, \ottnt{t_{{\mathrm{1}}}} \, ... \, \ottnt{t_{\ottmv{n}}} \, \rightarrow \, \ottnt{t}}% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern_{{\mathrm{1}}}} \, : \, \ottnt{t_{{\mathrm{1}}}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E_{{\mathrm{1}}}} \quad ... \quad \sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern_{\ottmv{n}}} \, : \, \ottnt{t_{\ottmv{n}}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E_{\ottmv{n}}}}% -\ottpremise{\ottkw{dom} \, ( \, \ottnt{E_{{\mathrm{1}}}} \, @ \, ... \, @ \, \ottnt{E_{\ottmv{n}}} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{name_{{\mathrm{1}}}} \, .. \, \ottnt{name_{\ottmv{m}}}}% -\ottpremise{\ottnt{name_{{\mathrm{1}}}} \, .. \, \ottnt{name_{\ottmv{m}}} \, \ottkw{distinct}}% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{constr} \, ( \, \ottnt{pattern_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{pattern_{\ottmv{n}}} \, ) \, : \, \ottnt{t} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E_{{\mathrm{1}}}} \, @ \, ... \, @ \, \ottnt{E_{\ottmv{n}}}}{ -{\ottdrulename{JTpat\_construct}}{} -}} - - -\newcommand{\ottdruleJTpatXXconstructXXany}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{constr} \, : \, \ottnt{t_{{\mathrm{1}}}} \, ... \, \ottnt{t_{\ottmv{n}}} \, \rightarrow \, \ottnt{t}}% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{constr} \, \ottkw{\_} \, : \, \ottnt{t} \, \;\vartriangleright\;\ottmaybebreakline \, \ottkw{empty}}{ -{\ottdrulename{JTpat\_construct\_any}}{} -}} - - -\newcommand{\ottdruleJTpatXXtuple}[1]{\ottdrule[#1]{% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern_{{\mathrm{1}}}} \, : \, \ottnt{t_{{\mathrm{1}}}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E_{{\mathrm{1}}}} \quad .... \quad \sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern_{\ottmv{n}}} \, : \, \ottnt{t_{\ottmv{n}}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E_{\ottmv{n}}}}% -\ottpremise{\ottkw{length} \, ( \, \ottnt{pattern_{{\mathrm{1}}}} \, ) \, .... \, ( \, \ottnt{pattern_{\ottmv{n}}} \, ) \, \geq \, 2}% -\ottpremise{\ottkw{dom} \, ( \, \ottnt{E_{{\mathrm{1}}}} \, @ \, .... \, @ \, \ottnt{E_{\ottmv{n}}} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{name_{{\mathrm{1}}}} \, .. \, \ottnt{name_{\ottmv{m}}}}% -\ottpremise{\ottnt{name_{{\mathrm{1}}}} \, .. \, \ottnt{name_{\ottmv{m}}} \, \ottkw{distinct}}% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern_{{\mathrm{1}}}} \, , \, .... \, , \, \ottnt{pattern_{\ottmv{n}}} \, : \, \ottnt{t_{{\mathrm{1}}}} \, \ast \, .... \, \ast \, \ottnt{t_{\ottmv{n}}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E_{{\mathrm{1}}}} \, @ \, .... \, @ \, \ottnt{E_{\ottmv{n}}}}{ -{\ottdrulename{JTpat\_tuple}}{} -}} - - -\newcommand{\ottdruleJTpatXXrecord}[1]{\ottdrule[#1]{% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern_{{\mathrm{1}}}} \, : \, \ottnt{t_{{\mathrm{1}}}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E_{{\mathrm{1}}}} \quad ... \quad \sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern_{\ottmv{n}}} \, : \, \ottnt{t_{\ottmv{n}}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E_{\ottmv{n}}}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{field\_name_{{\mathrm{1}}}} \, : \, \ottnt{t} \, \rightarrow \, \ottnt{t_{{\mathrm{1}}}} \quad ... \quad \ottnt{E} \, \vdash \, \ottnt{field\_name_{\ottmv{n}}} \, : \, \ottnt{t} \, \rightarrow \, \ottnt{t_{\ottmv{n}}}}% -\ottpremise{\ottkw{length} \, ( \, \ottnt{pattern_{{\mathrm{1}}}} \, ) \, ... \, ( \, \ottnt{pattern_{\ottmv{n}}} \, ) \, \geq \, 1}% -\ottpremise{\ottkw{dom} \, ( \, \ottnt{E_{{\mathrm{1}}}} \, @ \, ... \, @ \, \ottnt{E_{\ottmv{n}}} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{name_{{\mathrm{1}}}} \, .. \, \ottnt{name_{\ottmv{m}}}}% -\ottpremise{\ottnt{name_{{\mathrm{1}}}} \, .. \, \ottnt{name_{\ottmv{m}}} \, \ottkw{distinct}}% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottkw{\{} \, \ottnt{field\_name_{{\mathrm{1}}}} \, = \, \ottnt{pattern_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{field\_name_{\ottmv{n}}} \, = \, \ottnt{pattern_{\ottmv{n}}} \, \ottkw{\}} \, : \, \ottnt{t} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E_{{\mathrm{1}}}} \, @ \, ... \, @ \, \ottnt{E_{\ottmv{n}}}}{ -{\ottdrulename{JTpat\_record}}{} -}} - - -\newcommand{\ottdruleJTpatXXcons}[1]{\ottdrule[#1]{% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern} \, : \, \ottnt{t} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E'}}% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern'} \, : \, \ottnt{t} \, \ottkw{list} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E''}}% -\ottpremise{\ottkw{dom} \, ( \, \ottnt{E'} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{name_{{\mathrm{1}}}} \, .. \, \ottnt{name_{\ottmv{m}}}}% -\ottpremise{\ottkw{dom} \, ( \, \ottnt{E''} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{name'_{{\mathrm{1}}}} \, .. \, \ottnt{name'_{\ottmv{n}}}}% -\ottpremise{\ottnt{name_{{\mathrm{1}}}} \, .. \, \ottnt{name_{\ottmv{m}}} \, \ottnt{name'_{{\mathrm{1}}}} \, .. \, \ottnt{name'_{\ottmv{n}}} \, \ottkw{distinct}}% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern} \, \ottkw{::} \, \ottnt{pattern'} \, : \, \ottnt{t} \, \ottkw{list} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E'} \, @ \, \ottnt{E''}}{ -{\ottdrulename{JTpat\_cons}}{} -}} - -\newcommand{\ottdefnJTpat}[1]{\begin{ottdefnblock}[#1]{$\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern} \, : \, \ottnt{typexpr} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E'}$}{\ottcom{Pattern typing and binding collection}} -\ottusedrule{\ottdruleJTpatXXvar{}} -\ottusedrule{\ottdruleJTpatXXany{}} -\ottusedrule{\ottdruleJTpatXXconstant{}} -\ottusedrule{\ottdruleJTpatXXalias{}} -\ottusedrule{\ottdruleJTpatXXtyped{}} -\ottusedrule{\ottdruleJTpatXXor{}} -\ottusedrule{\ottdruleJTpatXXconstruct{}} -\ottusedrule{\ottdruleJTpatXXconstructXXany{}} -\ottusedrule{\ottdruleJTpatXXtuple{}} -\ottusedrule{\ottdruleJTpatXXrecord{}} -\ottusedrule{\ottdruleJTpatXXcons{}} -\end{ottdefnblock}} - - -\newcommand{\ottdefnsJTpat}{ -\ottdefnJTpat{}} - - -% defns JTuprim -% defn uprim -\newcommand{\ottdruleJTuprimXXraise}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, : \, \ottkw{Type}}% -}{ -\ottnt{E} \, \vdash \, \ottkw{raise} \, : \, \ottkw{exn} \, \rightarrow \, \ottnt{t}}{ -{\ottdrulename{JTuprim\_raise}}{} -}} - - -\newcommand{\ottdruleJTuprimXXnot}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% -}{ -\ottnt{E} \, \vdash \, \ottkw{not} \, : \, \ottkw{bool} \, \rightarrow \, \ottkw{bool}}{ -{\ottdrulename{JTuprim\_not}}{} -}} - - -\newcommand{\ottdruleJTuprimXXuminus}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% -}{ -\ottnt{E} \, \vdash \, \mathrel{\sim\!\!-} \, : \, \ottkw{int} \, \rightarrow \, \ottkw{int}}{ -{\ottdrulename{JTuprim\_uminus}}{} -}} - - -\newcommand{\ottdruleJTuprimXXref}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, : \, \ottkw{Type}}% -}{ -\ottnt{E} \, \vdash \, \ottkw{ref} \, : \, \ottnt{t} \, \rightarrow \, ( \, \ottnt{t} \, \ottkw{ref} \, )}{ -{\ottdrulename{JTuprim\_ref}}{} -}} - - -\newcommand{\ottdruleJTuprimXXderef}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, : \, \ottkw{Type}}% -}{ -\ottnt{E} \, \vdash \, ! \, : \, ( \, \ottnt{t} \, \ottkw{ref} \, ) \, \rightarrow \, \ottnt{t}}{ -{\ottdrulename{JTuprim\_deref}}{} -}} - -\newcommand{\ottdefnJTuprim}[1]{\begin{ottdefnblock}[#1]{$\ottnt{E} \, \vdash \, \ottnt{unary\_prim} \, : \, \ottnt{typexpr}$}{\ottcom{Unary primitive typing}} -\ottusedrule{\ottdruleJTuprimXXraise{}} -\ottusedrule{\ottdruleJTuprimXXnot{}} -\ottusedrule{\ottdruleJTuprimXXuminus{}} -\ottusedrule{\ottdruleJTuprimXXref{}} -\ottusedrule{\ottdruleJTuprimXXderef{}} -\end{ottdefnblock}} - - -\newcommand{\ottdefnsJTuprim}{ -\ottdefnJTuprim{}} - - -% defns JTbprim -% defn bprim -\newcommand{\ottdruleJTbprimXXequal}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, : \, \ottkw{Type}}% -}{ -\ottnt{E} \, \vdash \, = \, : \, \ottnt{t} \, \rightarrow \, ( \, \ottnt{t} \, \rightarrow \, \ottkw{bool} \, )}{ -{\ottdrulename{JTbprim\_equal}}{} -}} - - -\newcommand{\ottdruleJTbprimXXplus}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% -}{ -\ottnt{E} \, \vdash \, + \, : \, \ottkw{int} \, \rightarrow \, ( \, \ottkw{int} \, \rightarrow \, \ottkw{int} \, )}{ -{\ottdrulename{JTbprim\_plus}}{} -}} - - -\newcommand{\ottdruleJTbprimXXminus}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% -}{ -\ottnt{E} \, \vdash \, - \, : \, \ottkw{int} \, \rightarrow \, ( \, \ottkw{int} \, \rightarrow \, \ottkw{int} \, )}{ -{\ottdrulename{JTbprim\_minus}}{} -}} - - -\newcommand{\ottdruleJTbprimXXtimes}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% -}{ -\ottnt{E} \, \vdash \, \ast \, : \, \ottkw{int} \, \rightarrow \, ( \, \ottkw{int} \, \rightarrow \, \ottkw{int} \, )}{ -{\ottdrulename{JTbprim\_times}}{} -}} - - -\newcommand{\ottdruleJTbprimXXdiv}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% -}{ -\ottnt{E} \, \vdash \, / \, : \, \ottkw{int} \, \rightarrow \, ( \, \ottkw{int} \, \rightarrow \, \ottkw{int} \, )}{ -{\ottdrulename{JTbprim\_div}}{} -}} - - -\newcommand{\ottdruleJTbprimXXassign}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, : \, \ottkw{Type}}% -}{ -\ottnt{E} \, \vdash \, \ottkw{:=} \, : \, \ottnt{t} \, \ottkw{ref} \, \rightarrow \, ( \, \ottnt{t} \, \rightarrow \, \ottkw{unit} \, )}{ -{\ottdrulename{JTbprim\_assign}}{} -}} - -\newcommand{\ottdefnJTbprim}[1]{\begin{ottdefnblock}[#1]{$\ottnt{E} \, \vdash \, \ottnt{binary\_prim} \, : \, \ottnt{typexpr}$}{\ottcom{Binary primitive typing}} -\ottusedrule{\ottdruleJTbprimXXequal{}} -\ottusedrule{\ottdruleJTbprimXXplus{}} -\ottusedrule{\ottdruleJTbprimXXminus{}} -\ottusedrule{\ottdruleJTbprimXXtimes{}} -\ottusedrule{\ottdruleJTbprimXXdiv{}} -\ottusedrule{\ottdruleJTbprimXXassign{}} -\end{ottdefnblock}} - - -\newcommand{\ottdefnsJTbprim}{ -\ottdefnJTbprim{}} - - -% defns JTe -% defn e -\newcommand{\ottdruleJTeXXuprim}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{unary\_prim} \, : \, \ottnt{t}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, \equiv \, \ottnt{t'}}% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, ( \, \ottkw{\%prim} \, \ottnt{unary\_prim} \, ) \, : \, \ottnt{t'}}{ -{\ottdrulename{JTe\_uprim}}{} -}} - - -\newcommand{\ottdruleJTeXXbprim}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{binary\_prim} \, : \, \ottnt{t}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, \equiv \, \ottnt{t'}}% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, ( \, \ottkw{\%prim} \, \ottnt{binary\_prim} \, ) \, : \, \ottnt{t'}}{ -{\ottdrulename{JTe\_bprim}}{} -}} - - -\newcommand{\ottdruleJTeXXident}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{value\_name} \, : \, \ottnt{t}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, \equiv \, \ottnt{t'}}% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{value\_name} \, : \, \ottnt{t'}}{ -{\ottdrulename{JTe\_ident}}{} -}} - - -\newcommand{\ottdruleJTeXXconstant}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{constant} \, : \, \ottnt{t}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, \equiv \, \ottnt{t'}}% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{constant} \, : \, \ottnt{t'}}{ -{\ottdrulename{JTe\_constant}}{} -}} - - -\newcommand{\ottdruleJTeXXtyped}[1]{\ottdrule[#1]{% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e} \, : \, \ottnt{t}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t'} \, \leq \, \sigma^T \, \ottnt{src\_t}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, \equiv \, \ottnt{t'}}% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, ( \, \ottnt{e} \, : \, \ottnt{src\_t} \, ) \, : \, \ottnt{t}}{ -{\ottdrulename{JTe\_typed}}{} -}} - - -\newcommand{\ottdruleJTeXXtuple}[1]{\ottdrule[#1]{% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{1}}}} \, : \, \ottnt{t_{{\mathrm{1}}}} \quad .... \quad \sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{\ottmv{n}}} \, : \, \ottnt{t_{\ottmv{n}}}}% -\ottpremise{\ottkw{length} \, ( \, \ottnt{e_{{\mathrm{1}}}} \, ) \, .... \, ( \, \ottnt{e_{\ottmv{n}}} \, ) \, \geq \, 2}% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t_{{\mathrm{1}}}} \, \ast \, .... \, \ast \, \ottnt{t_{\ottmv{n}}} \, \equiv \, \ottnt{t'}}% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{1}}}} \, , \, .... \, , \, \ottnt{e_{\ottmv{n}}} \, : \, \ottnt{t'}}{ -{\ottdrulename{JTe\_tuple}}{} -}} - - -\newcommand{\ottdruleJTeXXconstruct}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{constr} \, : \, \ottnt{t_{{\mathrm{1}}}} \, ... \, \ottnt{t_{\ottmv{n}}} \, \rightarrow \, \ottnt{t}}% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{1}}}} \, : \, \ottnt{t_{{\mathrm{1}}}} \quad ... \quad \sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{\ottmv{n}}} \, : \, \ottnt{t_{\ottmv{n}}}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, \equiv \, \ottnt{t'}}% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{constr} \, ( \, \ottnt{e_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{e_{\ottmv{n}}} \, ) \, : \, \ottnt{t'}}{ -{\ottdrulename{JTe\_construct}}{} -}} - - -\newcommand{\ottdruleJTeXXcons}[1]{\ottdrule[#1]{% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{1}}}} \, : \, \ottnt{t}}% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{2}}}} \, : \, \ottnt{t} \, \ottkw{list}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, \ottkw{list} \, \equiv \, \ottnt{t'}}% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{1}}}} \, \ottkw{::} \, \ottnt{e_{{\mathrm{2}}}} \, : \, \ottnt{t'}}{ -{\ottdrulename{JTe\_cons}}{} -}} - - -\newcommand{\ottdruleJTeXXrecordXXconstr}[1]{\ottdrule[#1]{% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{1}}}} \, : \, \ottnt{t_{{\mathrm{1}}}} \quad ... \quad \sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{\ottmv{n}}} \, : \, \ottnt{t_{\ottmv{n}}}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{field\_name_{{\mathrm{1}}}} \, : \, \ottnt{t} \, \rightarrow \, \ottnt{t_{{\mathrm{1}}}} \quad ... \quad \ottnt{E} \, \vdash \, \ottnt{field\_name_{\ottmv{n}}} \, : \, \ottnt{t} \, \rightarrow \, \ottnt{t_{\ottmv{n}}}}% -\ottpremise{\ottnt{t} \, = \, ( \, \ottnt{t'_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{t'_{\ottmv{l}}} \, ) \, \ottnt{typeconstr\_name}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{typeconstr\_name} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{typeconstr\_name} \, : \, \ottnt{kind} \, \ottkw{\{} \, \ottnt{field\_name'_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{field\_name'_{\ottmv{m}}} \, \ottkw{\}}}% -\ottpremise{\ottnt{field\_name_{{\mathrm{1}}}} \, ... \, \ottnt{field\_name_{\ottmv{n}}} \, \ottkw{PERMUTES} \, \ottnt{field\_name'_{{\mathrm{1}}}} \, ... \, \ottnt{field\_name'_{\ottmv{m}}}}% -\ottpremise{\ottkw{length} \, ( \, \ottnt{e_{{\mathrm{1}}}} \, ) \, ... \, ( \, \ottnt{e_{\ottmv{n}}} \, ) \, \geq \, 1}% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, \equiv \, \ottnt{t'}}% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottkw{\{} \, \ottnt{field\_name_{{\mathrm{1}}}} \, = \, \ottnt{e_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{field\_name_{\ottmv{n}}} \, = \, \ottnt{e_{\ottmv{n}}} \, \ottkw{\}} \, : \, \ottnt{t'}}{ -{\ottdrulename{JTe\_record\_constr}}{} -}} - - -\newcommand{\ottdruleJTeXXrecordXXwith}[1]{\ottdrule[#1]{% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{expr} \, : \, \ottnt{t}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{field\_name_{{\mathrm{1}}}} \, : \, \ottnt{t} \, \rightarrow \, \ottnt{t_{{\mathrm{1}}}} \quad ... \quad \ottnt{E} \, \vdash \, \ottnt{field\_name_{\ottmv{n}}} \, : \, \ottnt{t} \, \rightarrow \, \ottnt{t_{\ottmv{n}}}}% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{1}}}} \, : \, \ottnt{t_{{\mathrm{1}}}} \quad ... \quad \sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{\ottmv{n}}} \, : \, \ottnt{t_{\ottmv{n}}}}% -\ottpremise{\ottnt{field\_name_{{\mathrm{1}}}} \, ... \, \ottnt{field\_name_{\ottmv{n}}} \, \ottkw{distinct}}% -\ottpremise{\ottkw{length} \, ( \, \ottnt{e_{{\mathrm{1}}}} \, ) \, ... \, ( \, \ottnt{e_{\ottmv{n}}} \, ) \, \geq \, 1}% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, \equiv \, \ottnt{t'}}% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottkw{\{} \, \ottnt{expr} \, \ottkw{with} \, \ottnt{field\_name_{{\mathrm{1}}}} \, = \, \ottnt{e_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{field\_name_{\ottmv{n}}} \, = \, \ottnt{e_{\ottmv{n}}} \, \ottkw{\}} \, : \, \ottnt{t'}}{ -{\ottdrulename{JTe\_record\_with}}{} -}} - - -\newcommand{\ottdruleJTeXXapply}[1]{\ottdrule[#1]{% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e} \, : \, \ottnt{t_{{\mathrm{1}}}} \, \rightarrow \, \ottnt{t}}% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{1}}}} \, : \, \ottnt{t_{{\mathrm{1}}}}}% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e} \, \ottnt{e_{{\mathrm{1}}}} \, : \, \ottnt{t}}{ -{\ottdrulename{JTe\_apply}}{} -}} - - -\newcommand{\ottdruleJTeXXrecordXXproj}[1]{\ottdrule[#1]{% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e} \, : \, \ottnt{t}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{field\_name} \, : \, \ottnt{t} \, \rightarrow \, \ottnt{t'}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t'} \, \equiv \, \ottnt{t''}}% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e} \, . \, \ottnt{field\_name} \, : \, \ottnt{t''}}{ -{\ottdrulename{JTe\_record\_proj}}{} -}} - - -\newcommand{\ottdruleJTeXXand}[1]{\ottdrule[#1]{% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{1}}}} \, : \, \ottkw{bool}}% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{2}}}} \, : \, \ottkw{bool}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{bool} \, \equiv \, \ottnt{t}}% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{1}}}} \, \ottkw{\&\&} \, \ottnt{e_{{\mathrm{2}}}} \, : \, \ottnt{t}}{ -{\ottdrulename{JTe\_and}}{} -}} - - -\newcommand{\ottdruleJTeXXor}[1]{\ottdrule[#1]{% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{1}}}} \, : \, \ottkw{bool}}% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{2}}}} \, : \, \ottkw{bool}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{bool} \, \equiv \, \ottnt{t}}% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{1}}}} \, \ottkw{\mbox{$\mid$}\mbox{$\mid$}} \, \ottnt{e_{{\mathrm{2}}}} \, : \, \ottnt{t}}{ -{\ottdrulename{JTe\_or}}{} -}} - - -\newcommand{\ottdruleJTeXXifthenelse}[1]{\ottdrule[#1]{% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{1}}}} \, : \, \ottkw{bool}}% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{2}}}} \, : \, \ottnt{t}}% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{3}}}} \, : \, \ottnt{t}}% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottkw{if} \, \ottnt{e_{{\mathrm{1}}}} \, \ottkw{then} \, \ottnt{e_{{\mathrm{2}}}} \, \ottkw{else} \, \ottnt{e_{{\mathrm{3}}}} \, : \, \ottnt{t}}{ -{\ottdrulename{JTe\_ifthenelse}}{} -}} - - -\newcommand{\ottdruleJTeXXwhile}[1]{\ottdrule[#1]{% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{1}}}} \, : \, \ottkw{bool}}% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{2}}}} \, : \, \ottkw{unit}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{unit} \, \equiv \, \ottnt{t}}% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottkw{while} \, \ottnt{e_{{\mathrm{1}}}} \, \ottkw{do} \, \ottnt{e_{{\mathrm{2}}}} \, \ottkw{done} \, : \, \ottnt{t}}{ -{\ottdrulename{JTe\_while}}{} -}} - - -\newcommand{\ottdruleJTeXXfor}[1]{\ottdrule[#1]{% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{1}}}} \, : \, \ottkw{int}}% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{2}}}} \, : \, \ottkw{int}}% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottenvironmentappend{ \ottnt{E} }{ \ottmv{lowercase\_ident} \, : \, \ottkw{int} } \, \vdash \, \ottnt{e_{{\mathrm{3}}}} \, : \, \ottkw{unit}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{unit} \, \equiv \, \ottnt{t}}% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottkw{for} \, \ottmv{lowercase\_ident} \, = \, \ottnt{e_{{\mathrm{1}}}} \, \ottkw{\relax{\sf[}down{\sf]}to} \, \ottnt{e_{{\mathrm{2}}}} \, \ottkw{do} \, \ottnt{e_{{\mathrm{3}}}} \, \ottkw{done} \, : \, \ottnt{t}}{ -{\ottdrulename{JTe\_for}}{} -}} - - -\newcommand{\ottdruleJTeXXsequence}[1]{\ottdrule[#1]{% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{1}}}} \, : \, \ottkw{unit}}% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{2}}}} \, : \, \ottnt{t}}% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e_{{\mathrm{1}}}} \, ; \, \ottnt{e_{{\mathrm{2}}}} \, : \, \ottnt{t}}{ -{\ottdrulename{JTe\_sequence}}{} -}} - - -\newcommand{\ottdruleJTeXXmatch}[1]{\ottdrule[#1]{% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e} \, : \, \ottnt{t}}% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern\_matching} \, : \, \ottnt{t} \, \rightarrow \, \ottnt{t'}}% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottkw{match} \, \ottnt{e} \, \ottkw{with} \, \ottnt{pattern\_matching} \, : \, \ottnt{t'}}{ -{\ottdrulename{JTe\_match}}{} -}} - - -\newcommand{\ottdruleJTeXXfunction}[1]{\ottdrule[#1]{% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern\_matching} \, : \, \ottnt{t} \, \rightarrow \, \ottnt{t'}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, \rightarrow \, \ottnt{t'} \, \equiv \, \ottnt{t''}}% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottkw{function} \, \ottnt{pattern\_matching} \, : \, \ottnt{t''}}{ -{\ottdrulename{JTe\_function}}{} -}} - - -\newcommand{\ottdruleJTeXXtry}[1]{\ottdrule[#1]{% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e} \, : \, \ottnt{t}}% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern\_matching} \, : \, \ottkw{exn} \, \rightarrow \, \ottnt{t}}% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottkw{try} \, \ottnt{e} \, \ottkw{with} \, \ottnt{pattern\_matching} \, : \, \ottnt{t}}{ -{\ottdrulename{JTe\_try}}{} -}} - - -\newcommand{\ottdruleJTeXXletXXmono}[1]{\ottdrule[#1]{% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pat} \, = \, \ottnt{expr} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{x_{{\mathrm{1}}}} \, : \, \ottnt{t_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{x_{\ottmv{n}}} \, : \, \ottnt{t_{\ottmv{n}}}}% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, @ \, \ottnt{x_{{\mathrm{1}}}} \, : \, \ottnt{t_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{x_{\ottmv{n}}} \, : \, \ottnt{t_{\ottmv{n}}} \, \vdash \, \ottnt{e} \, : \, \ottnt{t}}% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottkw{let} \, \ottnt{pat} \, = \, \ottnt{expr} \, \ottkw{in} \, \ottnt{e} \, : \, \ottnt{t}}{ -{\ottdrulename{JTe\_let\_mono}}{} -}} - - -\newcommand{\ottdruleJTeXXletXXpoly}[1]{\ottdrule[#1]{% -\ottpremise{\ottkw{shift} \, 0 \, 1 \, \sigma^T \, \ottkw{\&} \, \ottenvironmentappend{ \ottnt{E} }{ \ottkw{TV} } \, \vdash \, \ottnt{pat} \, = \, \ottnt{nexp} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{x_{{\mathrm{1}}}} \, : \, \ottnt{t_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{x_{\ottmv{n}}} \, : \, \ottnt{t_{\ottmv{n}}}}% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, @ \, \ottnt{x_{{\mathrm{1}}}} \, : \, \forall \, \ottnt{t_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{x_{\ottmv{n}}} \, : \, \forall \, \ottnt{t_{\ottmv{n}}} \, \vdash \, \ottnt{e} \, : \, \ottnt{t}}% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottkw{let} \, \ottnt{pat} \, = \, \ottnt{nexp} \, \ottkw{in} \, \ottnt{e} \, : \, \ottnt{t}}{ -{\ottdrulename{JTe\_let\_poly}}{} -}} - - -\newcommand{\ottdruleJTeXXletrec}[1]{\ottdrule[#1]{% -\ottpremise{\ottkw{shift} \, 0 \, 1 \, \sigma^T \, \ottkw{\&} \, \ottenvironmentappend{ \ottnt{E} }{ \ottkw{TV} } \, \vdash \, \ottnt{letrec\_bindings} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{x_{{\mathrm{1}}}} \, : \, \ottnt{t_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{x_{\ottmv{n}}} \, : \, \ottnt{t_{\ottmv{n}}}}% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, @ \, ( \, \ottnt{x_{{\mathrm{1}}}} \, : \, \forall \, \ottnt{t_{{\mathrm{1}}}} \, ) \, , \, ... \, , \, ( \, \ottnt{x_{\ottmv{n}}} \, : \, \forall \, \ottnt{t_{\ottmv{n}}} \, ) \, \vdash \, \ottnt{e} \, : \, \ottnt{t}}% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottkw{let} \, \ottkw{rec} \, \ottnt{letrec\_bindings} \, \ottkw{in} \, \ottnt{e} \, : \, \ottnt{t}}{ -{\ottdrulename{JTe\_letrec}}{} -}} - - -\newcommand{\ottdruleJTeXXassert}[1]{\ottdrule[#1]{% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{e} \, : \, \ottkw{bool}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{unit} \, \equiv \, \ottnt{t}}% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottkw{assert} \, \ottnt{e} \, : \, \ottnt{t}}{ -{\ottdrulename{JTe\_assert}}{} -}} - - -\newcommand{\ottdruleJTeXXassertfalse}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, : \, \ottkw{Type}}% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottkw{assert} \, \ottkw{false} \, : \, \ottnt{t}}{ -{\ottdrulename{JTe\_assertfalse}}{} -}} - - -\newcommand{\ottdruleJTeXXlocation}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottmv{location} \, \;\vartriangleright\;\ottmaybebreakline \, \ottmv{location} \, : \, \ottnt{t}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{t} \, \ottkw{ref} \, \equiv \, \ottnt{t'}}% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottmv{location} \, : \, \ottnt{t'}}{ -{\ottdrulename{JTe\_location}}{} -}} - -\newcommand{\ottdefnJTe}[1]{\begin{ottdefnblock}[#1]{$\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{expr} \, : \, \ottnt{typexpr}$}{\ottcom{Expression typing}} -\ottusedrule{\ottdruleJTeXXuprim{}} -\ottusedrule{\ottdruleJTeXXbprim{}} -\ottusedrule{\ottdruleJTeXXident{}} -\ottusedrule{\ottdruleJTeXXconstant{}} -\ottusedrule{\ottdruleJTeXXtyped{}} -\ottusedrule{\ottdruleJTeXXtuple{}} -\ottusedrule{\ottdruleJTeXXconstruct{}} -\ottusedrule{\ottdruleJTeXXcons{}} -\ottusedrule{\ottdruleJTeXXrecordXXconstr{}} -\ottusedrule{\ottdruleJTeXXrecordXXwith{}} -\ottusedrule{\ottdruleJTeXXapply{}} -\ottusedrule{\ottdruleJTeXXrecordXXproj{}} -\ottusedrule{\ottdruleJTeXXand{}} -\ottusedrule{\ottdruleJTeXXor{}} -\ottusedrule{\ottdruleJTeXXifthenelse{}} -\ottusedrule{\ottdruleJTeXXwhile{}} -\ottusedrule{\ottdruleJTeXXfor{}} -\ottusedrule{\ottdruleJTeXXsequence{}} -\ottusedrule{\ottdruleJTeXXmatch{}} -\ottusedrule{\ottdruleJTeXXfunction{}} -\ottusedrule{\ottdruleJTeXXtry{}} -\ottusedrule{\ottdruleJTeXXletXXmono{}} -\ottusedrule{\ottdruleJTeXXletXXpoly{}} -\ottusedrule{\ottdruleJTeXXletrec{}} -\ottusedrule{\ottdruleJTeXXassert{}} -\ottusedrule{\ottdruleJTeXXassertfalse{}} -\ottusedrule{\ottdruleJTeXXlocation{}} -\end{ottdefnblock}} - - -% defn pat_matching -\newcommand{\ottdruleJTpatXXmatchingXXpm}[1]{\ottdrule[#1]{% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern_{{\mathrm{1}}}} \, : \, \ottnt{t} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E_{{\mathrm{1}}}} \quad ... \quad \sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern_{\ottmv{n}}} \, : \, \ottnt{t} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E_{\ottmv{n}}}}% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, @ \, \ottnt{E_{{\mathrm{1}}}} \, \vdash \, \ottnt{e_{{\mathrm{1}}}} \, : \, \ottnt{t'} \quad ... \quad \sigma^T \, \ottkw{\&} \, \ottnt{E} \, @ \, \ottnt{E_{\ottmv{n}}} \, \vdash \, \ottnt{e_{\ottmv{n}}} \, : \, \ottnt{t'}}% -\ottpremise{\ottkw{length} \, ( \, \ottnt{pattern_{{\mathrm{1}}}} \, ) \, ... \, ( \, \ottnt{pattern_{\ottmv{n}}} \, ) \, \geq \, 1}% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern_{{\mathrm{1}}}} \, \rightarrow \, \ottnt{e_{{\mathrm{1}}}} \, \ottkw{\mbox{$\mid$}} \, ... \, \ottkw{\mbox{$\mid$}} \, \ottnt{pattern_{\ottmv{n}}} \, \rightarrow \, \ottnt{e_{\ottmv{n}}} \, : \, \ottnt{t} \, \rightarrow \, \ottnt{t'}}{ -{\ottdrulename{JTpat\_matching\_pm}}{} -}} - -\newcommand{\ottdefnJTpatXXmatching}[1]{\begin{ottdefnblock}[#1]{$\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern\_matching} \, : \, \ottnt{typexpr} \, \rightarrow \, \ottnt{typexpr'}$}{\ottcom{Pattern matching/expression pair typing}} -\ottusedrule{\ottdruleJTpatXXmatchingXXpm{}} -\end{ottdefnblock}} - - -% defn let_binding -\newcommand{\ottdruleJTletXXbindingXXpoly}[1]{\ottdrule[#1]{% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern} \, : \, \ottnt{t} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{x_{{\mathrm{1}}}} \, : \, \ottnt{t_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{x_{\ottmv{n}}} \, : \, \ottnt{t_{\ottmv{n}}}}% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{expr} \, : \, \ottnt{t}}% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pattern} \, = \, \ottnt{expr} \, \;\vartriangleright\;\ottmaybebreakline \, ( \, \ottnt{x_{{\mathrm{1}}}} \, : \, \ottnt{t_{{\mathrm{1}}}} \, ) \, , \, .. \, , \, ( \, \ottnt{x_{\ottmv{n}}} \, : \, \ottnt{t_{\ottmv{n}}} \, )}{ -{\ottdrulename{JTlet\_binding\_poly}}{} -}} - -\newcommand{\ottdefnJTletXXbinding}[1]{\begin{ottdefnblock}[#1]{$\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{let\_binding} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E'}$}{\ottcom{Let binding typing}} -\ottusedrule{\ottdruleJTletXXbindingXXpoly{}} -\end{ottdefnblock}} - - -% defn letrec_binding -\newcommand{\ottdruleJTletrecXXbindingXXequalXXfunction}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E'} \, = \, \ottnt{E} \, @ \, \ottnt{value\_name_{{\mathrm{1}}}} \, : \, \ottnt{t_{{\mathrm{1}}}} \, \rightarrow \, \ottnt{t'_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{value\_name_{\ottmv{n}}} \, : \, \ottnt{t_{\ottmv{n}}} \, \rightarrow \, \ottnt{t'_{\ottmv{n}}}}% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E'} \, \vdash \, \ottnt{pattern\_matching_{{\mathrm{1}}}} \, : \, \ottnt{t_{{\mathrm{1}}}} \, \rightarrow \, \ottnt{t'_{{\mathrm{1}}}} \quad ... \quad \sigma^T \, \ottkw{\&} \, \ottnt{E'} \, \vdash \, \ottnt{pattern\_matching_{\ottmv{n}}} \, : \, \ottnt{t_{\ottmv{n}}} \, \rightarrow \, \ottnt{t'_{\ottmv{n}}}}% -\ottpremise{\ottnt{value\_name_{{\mathrm{1}}}} \, ... \, \ottnt{value\_name_{\ottmv{n}}} \, \ottkw{distinct}}% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{value\_name_{{\mathrm{1}}}} \, = \, \ottkw{function} \, \ottnt{pattern\_matching_{{\mathrm{1}}}} \, \ottkw{and} \, ... \, \ottkw{and} \, \ottnt{value\_name_{\ottmv{n}}} \, = \, \ottkw{function} \, \ottnt{pattern\_matching_{\ottmv{n}}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{value\_name_{{\mathrm{1}}}} \, : \, \ottnt{t_{{\mathrm{1}}}} \, \rightarrow \, \ottnt{t'_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{value\_name_{\ottmv{n}}} \, : \, \ottnt{t_{\ottmv{n}}} \, \rightarrow \, \ottnt{t'_{\ottmv{n}}}}{ -{\ottdrulename{JTletrec\_binding\_equal\_function}}{} -}} - -\newcommand{\ottdefnJTletrecXXbinding}[1]{\begin{ottdefnblock}[#1]{$\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{letrec\_bindings} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E'}$}{\ottcom{Recursive let binding typing}} -\ottbreakconclusionlinetrue -\ottusedrule{\ottdruleJTletrecXXbindingXXequalXXfunction{}} -\ottbreakconclusionlinefalse -\end{ottdefnblock}} - - -\newcommand{\ottdefnsJTe}{ -\ottdefnJTe{} -\ottdefnJTpatXXmatching{} -\ottdefnJTletXXbinding{} -\ottdefnJTletrecXXbinding{}} - - -% defns JTconstr_decl -% defn constr_decl -\newcommand{\ottdruleJTconstrXXdeclXXnullary}[1]{\ottdrule[#1]{% -}{ -( \, \alpha_{{\mathrm{1}}} \, , \, ... \, , \, \alpha_{\ottmv{n}} \, ) \, \ottnt{typeconstr} \, \vdash \, \ottnt{constr\_name} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{constr\_name} \, \ottkw{of} \, \ottnt{typeconstr}}{ -{\ottdrulename{JTconstr\_decl\_nullary}}{} -}} - - -\newcommand{\ottdruleJTconstrXXdeclXXnary}[1]{\ottdrule[#1]{% -}{ -( \, \alpha_{{\mathrm{1}}} \, , \, ... \, , \, \alpha_{\ottmv{n}} \, ) \, \ottnt{typeconstr} \, \vdash \, \ottnt{constr\_name} \, \ottkw{of} \, \ottnt{t_{{\mathrm{1}}}} \, \ast \, ... \, \ast \, \ottnt{t_{\ottmv{n}}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{constr\_name} \, \ottkw{of} \, \forall \, ( \, \alpha_{{\mathrm{1}}} \, , \, ... \, , \, \alpha_{\ottmv{n}} \, ) \, , \, ( \, \ottnt{t_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{t_{\ottmv{n}}} \, ) \, : \, \ottnt{typeconstr}}{ -{\ottdrulename{JTconstr\_decl\_nary}}{} -}} - -\newcommand{\ottdefnJTconstrXXdecl}[1]{\begin{ottdefnblock}[#1]{$\ottnt{type\_params\_opt} \, \ottnt{typeconstr} \, \vdash \, \ottnt{constr\_decl} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{EB}$}{\ottcom{Variant constructor declaration}} -\ottusedrule{\ottdruleJTconstrXXdeclXXnullary{}} -\ottusedrule{\ottdruleJTconstrXXdeclXXnary{}} -\end{ottdefnblock}} - - -\newcommand{\ottdefnsJTconstrXXdecl}{ -\ottdefnJTconstrXXdecl{}} - - -% defns JTfield_decl -% defn field_decl -\newcommand{\ottdruleJTfieldXXdeclXXonly}[1]{\ottdrule[#1]{% -}{ -( \, \alpha_{{\mathrm{1}}} \, , \, ... \, , \, \alpha_{\ottmv{n}} \, ) \, \ottnt{typeconstr\_name} \, \vdash \, \ottnt{fn} \, : \, \ottnt{t} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{fn} \, : \, \forall \, ( \, \alpha_{{\mathrm{1}}} \, , \, ... \, , \, \alpha_{\ottmv{n}} \, ) \, , \, \ottnt{typeconstr\_name} \, \rightarrow \, \ottnt{t}}{ -{\ottdrulename{JTfield\_decl\_only}}{} -}} - -\newcommand{\ottdefnJTfieldXXdecl}[1]{\begin{ottdefnblock}[#1]{$\ottnt{type\_params\_opt} \, \ottnt{typeconstr\_name} \, \vdash \, \ottnt{field\_decl} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{EB}$}{\ottcom{Record field declaration}} -\ottusedrule{\ottdruleJTfieldXXdeclXXonly{}} -\end{ottdefnblock}} - - -\newcommand{\ottdefnsJTfieldXXdecl}{ -\ottdefnJTfieldXXdecl{}} - - -% defns JTtypedef -% defn typedef -\newcommand{\ottdruleJTtypedefXXempty}[1]{\ottdrule[#1]{% -}{ -\vdash \, \, \, \;\vartriangleright\;\ottmaybebreakline \, \ottkw{empty} \, \ottkw{and} \, \ottkw{empty} \, \ottkw{and} \, \ottkw{empty}}{ -{\ottdrulename{JTtypedef\_empty}}{} -}} - - -\newcommand{\ottdruleJTtypedefXXeq}[1]{\ottdrule[#1]{% -\ottpremise{\vdash \, \ottcomp{\ottnt{typedef_{\ottmv{i}}}}{\ottmv{i}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E} \, \ottkw{and} \, \ottnt{E'} \, \ottkw{and} \, \ottnt{E''}}% -}{ -\vdash \, \ottnt{type\_params\_opt} \, \ottnt{typeconstr\_name} \, = \, \ottnt{t} \, \ottkw{and} \, \ottcomp{\ottnt{typedef_{\ottmv{i}}}}{\ottmv{i}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E} \, \ottkw{and} \, \ottenvironmentappend{ \ottnt{E'} }{ ( \, \ottnt{type\_params\_opt} \, \ottnt{typeconstr\_name} \, = \, \ottnt{t} \, ) } \, \ottkw{and} \, \ottnt{E''}}{ -{\ottdrulename{JTtypedef\_eq}}{} -}} - - -\newcommand{\ottdruleJTtypedefXXdefXXsum}[1]{\ottdrule[#1]{% -\ottpremise{\vdash \, \ottcomp{\ottnt{typedef_{\ottmv{i}}}}{\ottmv{i}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E} \, \ottkw{and} \, \ottnt{E'} \, \ottkw{and} \, \ottnt{E''}}% -\ottpremise{\vdash \, \ottnt{type\_params\_opt} \, : \, \ottnt{kind}}% -\ottpremise{\ottnt{type\_params\_opt} \, \ottnt{typeconstr\_name} \, \vdash \, \ottnt{constr\_decl_{{\mathrm{1}}}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{EB_{{\mathrm{1}}}} \quad ... \quad \ottnt{type\_params\_opt} \, \ottnt{typeconstr\_name} \, \vdash \, \ottnt{constr\_decl_{\ottmv{n}}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{EB_{\ottmv{n}}}}% -}{ -\vdash \, \ottnt{type\_params\_opt} \, \ottnt{typeconstr\_name} \, = \, \ottnt{constr\_decl_{{\mathrm{1}}}} \, \ottkw{\mbox{$\mid$}} \, ... \, \ottkw{\mbox{$\mid$}} \, \ottnt{constr\_decl_{\ottmv{n}}} \, \ottkw{and} \, \ottcomp{\ottnt{typedef_{\ottmv{i}}}}{\ottmv{i}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottenvironmentappend{ \ottnt{E} }{ ( \, \ottnt{typeconstr\_name} \, : \, \ottnt{kind} \, ) } \, \ottkw{and} \, \ottnt{E'} \, \ottkw{and} \, \ottnt{E''} \, @ \, \ottnt{EB_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{EB_{\ottmv{n}}}}{ -{\ottdrulename{JTtypedef\_def\_sum}}{} -}} - - -\newcommand{\ottdruleJTtypedefXXdefXXrecord}[1]{\ottdrule[#1]{% -\ottpremise{\vdash \, \ottcomp{\ottnt{typedef_{\ottmv{i}}}}{\ottmv{i}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E} \, \ottkw{and} \, \ottnt{E'} \, \ottkw{and} \, \ottnt{E''}}% -\ottpremise{\vdash \, \ottnt{type\_params\_opt} \, : \, \ottnt{kind}}% -\ottpremise{\ottnt{type\_params\_opt} \, \ottnt{typeconstr\_name} \, \vdash \, \ottnt{field\_name_{{\mathrm{1}}}} \, : \, \ottnt{t_{{\mathrm{1}}}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{EB_{{\mathrm{1}}}} \quad ... \quad \ottnt{type\_params\_opt} \, \ottnt{typeconstr\_name} \, \vdash \, \ottnt{field\_name_{\ottmv{n}}} \, : \, \ottnt{t_{\ottmv{n}}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{EB_{\ottmv{n}}}}% -}{ -\vdash \, \ottnt{type\_params\_opt} \, \ottnt{typeconstr\_name} \, = \, \ottkw{\{} \, \ottnt{field\_name_{{\mathrm{1}}}} \, : \, \ottnt{t_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{field\_name_{\ottmv{n}}} \, : \, \ottnt{t_{\ottmv{n}}} \, \ottkw{\}} \, \ottkw{and} \, \ottcomp{\ottnt{typedef_{\ottmv{i}}}}{\ottmv{i}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottenvironmentappend{ \ottnt{E} }{ ( \, \ottnt{typeconstr\_name} \, : \, \ottnt{kind} \, \ottkw{\{} \, \ottnt{field\_name_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{field\_name_{\ottmv{n}}} \, \ottkw{\}} \, ) } \, \ottkw{and} \, \ottnt{E'} \, \ottkw{and} \, \ottnt{E''} \, @ \, \ottnt{EB_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{EB_{\ottmv{n}}}}{ -{\ottdrulename{JTtypedef\_def\_record}}{} -}} - -\newcommand{\ottdefnJTtypedef}[1]{\begin{ottdefnblock}[#1]{$\vdash \, \ottnt{typedef_{{\mathrm{1}}}} \, \ottkw{and} \, .. \, \ottkw{and} \, \ottnt{typedef_{\ottmv{n}}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E'} \, \ottkw{and} \, \ottnt{E''} \, \ottkw{and} \, \ottnt{E'''}$}{\ottcom{Type definitions collection}} -\ottusedrule{\ottdruleJTtypedefXXempty{}} -\ottusedrule{\ottdruleJTtypedefXXeq{}} -\ottbreakconclusionlinetrue -\ottusedrule{\ottdruleJTtypedefXXdefXXsum{}} -\ottusedrule{\ottdruleJTtypedefXXdefXXrecord{}} -\end{ottdefnblock}} - - -\newcommand{\ottdefnsJTtypedef}{ -\ottdefnJTtypedef{}} - - -% defns JTtype_definition -% defn type_definition -\newcommand{\ottdruleJTtypeXXdefinitionXXlist}[1]{\ottdrule[#1]{% -\ottpremise{\vdash \, \ottnt{typedef_{{\mathrm{1}}}} \, \ottkw{and} \, ... \, \ottkw{and} \, \ottnt{typedef_{\ottmv{n}}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E'} \, \ottkw{and} \, \ottnt{E''} \, \ottkw{and} \, \ottnt{E'''}}% -\ottpremise{\ottnt{E''''} \, = \, \ottnt{E'} \, @ \, \ottnt{E''} \, @ \, \ottnt{E'''}}% -\ottpremise{\ottnt{E} \, @ \, \ottnt{E''''} \, \vdash \, \ottkw{ok}}% -}{ -\ottnt{E} \, \vdash \, \ottkw{type} \, \ottnt{typedef_{{\mathrm{1}}}} \, \ottkw{and} \, ... \, \ottkw{and} \, \ottnt{typedef_{\ottmv{n}}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E''''}}{ -{\ottdrulename{JTtype\_definition\_list}}{} -}} - - -\newcommand{\ottdruleJTtypeXXdefinitionXXswap}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{type} \, \ottcomp{\ottnt{typedef_{\ottmv{i}}}}{\ottmv{i}} \, \ottkw{and} \, \ottnt{typedef'} \, \ottkw{and} \, \ottnt{typedef} \, \ottkw{and} \, \ottcomp{\ottnt{typedef''_{\ottmv{j}}}}{\ottmv{j}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E'}}% -}{ -\ottnt{E} \, \vdash \, \ottkw{type} \, \ottcomp{\ottnt{typedef_{\ottmv{i}}}}{\ottmv{i}} \, \ottkw{and} \, \ottnt{typedef} \, \ottkw{and} \, \ottnt{typedef'} \, \ottkw{and} \, \ottcomp{\ottnt{typedef''_{\ottmv{j}}}}{\ottmv{j}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E'}}{ -{\ottdrulename{JTtype\_definition\_swap}}{} -}} - -\newcommand{\ottdefnJTtypeXXdefinition}[1]{\begin{ottdefnblock}[#1]{$\ottnt{E} \, \vdash \, \ottnt{type\_definition} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E'}$}{\ottcom{Type definition well-formedness and binding collection}} -\ottusedrule{\ottdruleJTtypeXXdefinitionXXlist{}} -\ottusedrule{\ottdruleJTtypeXXdefinitionXXswap{}} -\end{ottdefnblock}} - - -\newcommand{\ottdefnsJTtypeXXdefinition}{ -\ottdefnJTtypeXXdefinition{}} - - -% defns JTdefinition -% defn definition -\newcommand{\ottdruleJTdefinitionXXletXXpoly}[1]{\ottdrule[#1]{% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottenvironmentappend{ \ottnt{E} }{ \ottkw{TV} } \, \vdash \, \ottnt{pat} \, = \, \ottnt{nexp} \, \;\vartriangleright\;\ottmaybebreakline \, ( \, \ottnt{x_{{\mathrm{1}}}} \, : \, \ottnt{t'_{{\mathrm{1}}}} \, ) \, , \, .. \, , \, ( \, \ottnt{x_{\ottmv{k}}} \, : \, \ottnt{t'_{\ottmv{k}}} \, )}% -}{ -\ottnt{E} \, \vdash \, \ottkw{let} \, \ottnt{pat} \, = \, \ottnt{nexp} \, : \, ( \, \ottnt{x_{{\mathrm{1}}}} \, : \, \forall \, \ottnt{t'_{{\mathrm{1}}}} \, ) \, , \, .. \, , \, ( \, \ottnt{x_{\ottmv{k}}} \, : \, \forall \, \ottnt{t'_{\ottmv{k}}} \, )}{ -{\ottdrulename{JTdefinition\_let\_poly}}{} -}} - - -\newcommand{\ottdruleJTdefinitionXXletXXmono}[1]{\ottdrule[#1]{% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{pat} \, = \, \ottnt{expr} \, \;\vartriangleright\;\ottmaybebreakline \, ( \, \ottnt{x_{{\mathrm{1}}}} \, : \, \ottnt{t'_{{\mathrm{1}}}} \, ) \, , \, .. \, , \, ( \, \ottnt{x_{\ottmv{k}}} \, : \, \ottnt{t'_{\ottmv{k}}} \, )}% -}{ -\ottnt{E} \, \vdash \, \ottkw{let} \, \ottnt{pat} \, = \, \ottnt{expr} \, : \, ( \, \ottnt{x_{{\mathrm{1}}}} \, : \, \ottnt{t'_{{\mathrm{1}}}} \, ) \, , \, .. \, , \, ( \, \ottnt{x_{\ottmv{k}}} \, : \, \ottnt{t'_{\ottmv{k}}} \, )}{ -{\ottdrulename{JTdefinition\_let\_mono}}{} -}} - - -\newcommand{\ottdruleJTdefinitionXXletrec}[1]{\ottdrule[#1]{% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottenvironmentappend{ \ottnt{E} }{ \ottkw{TV} } \, \vdash \, \ottnt{letrec\_bindings} \, \;\vartriangleright\;\ottmaybebreakline \, ( \, \ottnt{x_{{\mathrm{1}}}} \, : \, \ottnt{t'_{{\mathrm{1}}}} \, ) \, , \, .. \, , \, ( \, \ottnt{x_{\ottmv{k}}} \, : \, \ottnt{t'_{\ottmv{k}}} \, )}% -}{ -\ottnt{E} \, \vdash \, \ottkw{let} \, \ottkw{rec} \, \ottnt{letrec\_bindings} \, : \, ( \, \ottnt{x_{{\mathrm{1}}}} \, : \, \forall \, \ottnt{t'_{{\mathrm{1}}}} \, ) \, , \, .. \, , \, ( \, \ottnt{x_{\ottmv{k}}} \, : \, \forall \, \ottnt{t'_{\ottmv{k}}} \, )}{ -{\ottdrulename{JTdefinition\_letrec}}{} -}} - - -\newcommand{\ottdruleJTdefinitionXXtypedef}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{type} \, \ottnt{typedef_{{\mathrm{1}}}} \, \ottkw{and} \, ... \, \ottkw{and} \, \ottnt{typedef_{\ottmv{n}}} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E'}}% -}{ -\ottnt{E} \, \vdash \, \ottkw{type} \, \ottnt{typedef_{{\mathrm{1}}}} \, \ottkw{and} \, ... \, \ottkw{and} \, \ottnt{typedef_{\ottmv{n}}} \, : \, \ottnt{E'}}{ -{\ottdrulename{JTdefinition\_typedef}}{} -}} - - -\newcommand{\ottdruleJTdefinitionXXexndef}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% -\ottpremise{ \, \ottkw{exn} \, \vdash \, \ottnt{constr\_decl} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{EB}}% -}{ -\ottnt{E} \, \vdash \, \ottkw{exception} \, \ottnt{constr\_decl} \, : \, \ottnt{EB}}{ -{\ottdrulename{JTdefinition\_exndef}}{} -}} - -\newcommand{\ottdefnJTdefinition}[1]{\begin{ottdefnblock}[#1]{$\ottnt{E} \, \vdash \, \ottnt{definition} \, : \, \ottnt{E'}$}{\ottcom{Definition typing}} -\ottusedrule{\ottdruleJTdefinitionXXletXXpoly{}} -\ottusedrule{\ottdruleJTdefinitionXXletXXmono{}} -\ottusedrule{\ottdruleJTdefinitionXXletrec{}} -\ottusedrule{\ottdruleJTdefinitionXXtypedef{}} -\ottusedrule{\ottdruleJTdefinitionXXexndef{}} -\end{ottdefnblock}} - - -\newcommand{\ottdefnsJTdefinition}{ -\ottdefnJTdefinition{}} - - -% defns JTdefinitions -% defn definitions -\newcommand{\ottdruleJTdefinitionsXXempty}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottkw{ok}}% -}{ -\ottnt{E} \, \vdash \, \, : \, \,}{ -{\ottdrulename{JTdefinitions\_empty}}{} -}} - - -\newcommand{\ottdruleJTdefinitionsXXitem}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{definition} \, : \, \ottnt{E'}}% -\ottpremise{\ottnt{E} \, @ \, \ottnt{E'} \, \vdash \, \ottnt{definitions'} \, : \, \ottnt{E''}}% -}{ -\ottnt{E} \, \vdash \, \ottnt{definition} \, \ottnt{definitions'} \, : \, \ottnt{E'} \, @ \, \ottnt{E''}}{ -{\ottdrulename{JTdefinitions\_item}}{} -}} - -\newcommand{\ottdefnJTdefinitions}[1]{\begin{ottdefnblock}[#1]{$\ottnt{E} \, \vdash \, \ottnt{definitions} \, : \, \ottnt{E'}$}{\ottcom{Definition sequence typing}} -\ottusedrule{\ottdruleJTdefinitionsXXempty{}} -\ottusedrule{\ottdruleJTdefinitionsXXitem{}} -\end{ottdefnblock}} - - -\newcommand{\ottdefnsJTdefinitions}{ -\ottdefnJTdefinitions{}} - - -% defns JTprog -% defn prog -\newcommand{\ottdruleJTprogXXdefs}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{definitions} \, : \, \ottnt{E'}}% -}{ -\ottnt{E} \, \vdash \, \ottnt{definitions} \, : \, \ottnt{E'}}{ -{\ottdrulename{JTprog\_defs}}{} -}} - - -\newcommand{\ottdruleJTprogXXraise}[1]{\ottdrule[#1]{% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{v} \, : \, \ottnt{t}}% -}{ -\ottnt{E} \, \vdash \, \ottkw{(\%prim} \, \ottkw{raise)} \, \ottnt{v} \, : \, \,}{ -{\ottdrulename{JTprog\_raise}}{} -}} - -\newcommand{\ottdefnJTprog}[1]{\begin{ottdefnblock}[#1]{$\ottnt{E} \, \vdash \, \ottnt{program} \, : \, \ottnt{E'}$}{\ottcom{Program typing}} -\ottusedrule{\ottdruleJTprogXXdefs{}} -\ottusedrule{\ottdruleJTprogXXraise{}} -\end{ottdefnblock}} - - -\newcommand{\ottdefnsJTprog}{ -\ottdefnJTprog{}} - - -% defns JTstore -% defn store -\newcommand{\ottdruleJTstoreXXempty}[1]{\ottdrule[#1]{% -}{ -\ottnt{E} \, \vdash \, \ottkw{empty} \, : \, \,}{ -{\ottdrulename{JTstore\_empty}}{} -}} - - -\newcommand{\ottdruleJTstoreXXmap}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, \vdash \, \ottnt{store} \, : \, \ottnt{E'}}% -\ottpremise{\{\!\!\{ \, \, \, \}\!\!\} \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{v} \, : \, \ottnt{t}}% -}{ -\ottnt{E} \, \vdash \, \ottnt{store} \, , \, \ottmv{l} \, \mapsto \, \ottnt{v} \, : \, \ottenvironmentappend{ \ottnt{E'} }{ ( \, \ottmv{l} \, : \, \ottnt{t} \, ) } }{ -{\ottdrulename{JTstore\_map}}{} -}} - -\newcommand{\ottdefnJTstore}[1]{\begin{ottdefnblock}[#1]{$\ottnt{E} \, \vdash \, \ottnt{store} \, : \, \ottnt{E'}$}{\ottcom{Store typing}} -\ottusedrule{\ottdruleJTstoreXXempty{}} -\ottusedrule{\ottdruleJTstoreXXmap{}} -\end{ottdefnblock}} - - -\newcommand{\ottdefnsJTstore}{ -\ottdefnJTstore{}} - - -% defns JTtop -% defn top -\newcommand{\ottdruleJTtopXXdefs}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{E} \, @ \, \ottnt{E'} \, \vdash \, \ottnt{store} \, : \, \ottnt{E'}}% -\ottpremise{\ottnt{E} \, @ \, \ottnt{E'} \, \vdash \, \ottnt{program} \, : \, \ottnt{E''}}% -}{ - \ottnt{E} \vdash \langle \ottnt{program} , \ottnt{store} \rangle }{ -{\ottdrulename{JTtop\_defs}}{} -}} - -\newcommand{\ottdefnJTtop}[1]{\begin{ottdefnblock}[#1]{$ \ottnt{E} \vdash \langle \ottnt{program} , \ottnt{store} \rangle $}{\ottcom{Top-level typing}} -Checks the combination of a program with a store. The store is typed in an -environment that includes its bindings, so that it can contain cyclic -structures. -\ottusedrule{\ottdruleJTtopXXdefs{}} -\end{ottdefnblock}} - - -\newcommand{\ottdefnsJTtop}{ -\ottdefnJTtop{}} - - -% defns JTLin -% defn Lin -\newcommand{\ottdruleJTLinXXnil}[1]{\ottdrule[#1]{% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, }{ -{\ottdrulename{JTLin\_nil}}{} -}} - - -\newcommand{\ottdruleJTLinXXalloc}[1]{\ottdrule[#1]{% -\ottpremise{\ottkw{dom} \, ( \, \ottnt{E} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{names}}% -\ottpremise{\ottmv{location} \, \notin \, \ottnt{names}}% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottkw{ref} \, \ottnt{v} \, = \, \ottmv{location}}{ -{\ottdrulename{JTLin\_alloc}}{} -}} - - -\newcommand{\ottdruleJTLinXXderef}[1]{\ottdrule[#1]{% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{v} \, : \, \ottnt{t}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottmv{location} \, \;\vartriangleright\;\ottmaybebreakline \, ( \, \ottmv{location} \, : \, \ottnt{t} \, )}% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, ! \, \ottmv{location} \, = \, \ottnt{v}}{ -{\ottdrulename{JTLin\_deref}}{} -}} - - -\newcommand{\ottdruleJTLinXXassign}[1]{\ottdrule[#1]{% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottmv{location} \, \ottkw{:=} \, \ottnt{v}}{ -{\ottdrulename{JTLin\_assign}}{} -}} - -\newcommand{\ottdefnJTLin}[1]{\begin{ottdefnblock}[#1]{$\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{L}$}{\ottcom{Label-to-environment extraction}} -\ottusedrule{\ottdruleJTLinXXnil{}} -\ottusedrule{\ottdruleJTLinXXalloc{}} -\ottusedrule{\ottdruleJTLinXXderef{}} -\ottusedrule{\ottdruleJTLinXXassign{}} -\end{ottdefnblock}} - - -\newcommand{\ottdefnsJTLin}{ -\ottdefnJTLin{}} - - -% defns JTLout -% defn Lout -\newcommand{\ottdruleJTLoutXXnil}[1]{\ottdrule[#1]{% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \, \;\vartriangleright\;\ottmaybebreakline \, \,}{ -{\ottdrulename{JTLout\_nil}}{} -}} - - -\newcommand{\ottdruleJTLoutXXalloc}[1]{\ottdrule[#1]{% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{v} \, : \, \ottnt{t}}% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottkw{ref} \, \ottnt{v} \, = \, \ottmv{location} \, \;\vartriangleright\;\ottmaybebreakline \, ( \, \ottmv{location} \, : \, \ottnt{t} \, )}{ -{\ottdrulename{JTLout\_alloc}}{} -}} - - -\newcommand{\ottdruleJTLoutXXderef}[1]{\ottdrule[#1]{% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, ! \, \ottmv{location} \, = \, \ottnt{v} \, \;\vartriangleright\;\ottmaybebreakline \, \,}{ -{\ottdrulename{JTLout\_deref}}{} -}} - - -\newcommand{\ottdruleJTLoutXXassign}[1]{\ottdrule[#1]{% -\ottpremise{\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{v} \, : \, \ottnt{t}}% -\ottpremise{\ottnt{E} \, \vdash \, \ottmv{location} \, \;\vartriangleright\;\ottmaybebreakline \, ( \, \ottmv{location} \, : \, \ottnt{t} \, )}% -}{ -\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottmv{location} \, \ottkw{:=} \, \ottnt{v} \, \;\vartriangleright\;\ottmaybebreakline \, \,}{ -{\ottdrulename{JTLout\_assign}}{} -}} - -\newcommand{\ottdefnJTLout}[1]{\begin{ottdefnblock}[#1]{$\sigma^T \, \ottkw{\&} \, \ottnt{E} \, \vdash \, \ottnt{L} \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{E'}$}{\ottcom{Label-to-environment extraction}} -\ottusedrule{\ottdruleJTLoutXXnil{}} -\ottusedrule{\ottdruleJTLoutXXalloc{}} -\ottusedrule{\ottdruleJTLoutXXderef{}} -\ottusedrule{\ottdruleJTLoutXXassign{}} - -\end{ottdefnblock}} - - -\newcommand{\ottdefnsJTLout}{ -\ottdefnJTLout{}} - - -% defns JmatchP -% defn matchP -\newcommand{\ottdruleJMXXmatchPXXvar}[1]{\ottdrule[#1]{% -}{ -\vdash \, \ottnt{v} \, \ottkw{matches} \, \ottnt{x}}{ -{\ottdrulename{JM\_matchP\_var}}{} -}} - - -\newcommand{\ottdruleJMXXmatchPXXany}[1]{\ottdrule[#1]{% -}{ -\vdash \, \ottnt{v} \, \ottkw{matches} \, \ottkw{\_}}{ -{\ottdrulename{JM\_matchP\_any}}{} -}} - - -\newcommand{\ottdruleJMXXmatchPXXconstant}[1]{\ottdrule[#1]{% -}{ -\vdash \, \ottnt{constant} \, \ottkw{matches} \, \ottnt{constant}}{ -{\ottdrulename{JM\_matchP\_constant}}{} -}} - - -\newcommand{\ottdruleJMXXmatchPXXalias}[1]{\ottdrule[#1]{% -\ottpremise{\vdash \, \ottnt{v} \, \ottkw{matches} \, \ottnt{pat}}% -}{ -\vdash \, \ottnt{v} \, \ottkw{matches} \, \ottnt{pat} \, \ottkw{as} \, \ottnt{x}}{ -{\ottdrulename{JM\_matchP\_alias}}{} -}} - - -\newcommand{\ottdruleJMXXmatchPXXtyped}[1]{\ottdrule[#1]{% -\ottpremise{\vdash \, \ottnt{v} \, \ottkw{matches} \, \ottnt{pat}}% -}{ -\vdash \, \ottnt{v} \, \ottkw{matches} \, ( \, \ottnt{pat} \, : \, \ottnt{t} \, )}{ -{\ottdrulename{JM\_matchP\_typed}}{} -}} - - -\newcommand{\ottdruleJMXXmatchPXXorXXleft}[1]{\ottdrule[#1]{% -\ottpremise{\vdash \, \ottnt{v} \, \ottkw{matches} \, \ottnt{pat_{{\mathrm{1}}}}}% -}{ -\vdash \, \ottnt{v} \, \ottkw{matches} \, \ottnt{pat_{{\mathrm{1}}}} \, \ottkw{\mbox{$\mid$}} \, \ottnt{pat_{{\mathrm{2}}}}}{ -{\ottdrulename{JM\_matchP\_or\_left}}{} -}} - - -\newcommand{\ottdruleJMXXmatchPXXorXXright}[1]{\ottdrule[#1]{% -\ottpremise{\vdash \, \ottnt{v} \, \ottkw{matches} \, \ottnt{pat_{{\mathrm{2}}}}}% -}{ -\vdash \, \ottnt{v} \, \ottkw{matches} \, \ottnt{pat_{{\mathrm{1}}}} \, \ottkw{\mbox{$\mid$}} \, \ottnt{pat_{{\mathrm{2}}}}}{ -{\ottdrulename{JM\_matchP\_or\_right}}{} -}} - - -\newcommand{\ottdruleJMXXmatchPXXconstruct}[1]{\ottdrule[#1]{% -\ottpremise{\vdash \, \ottnt{v_{{\mathrm{1}}}} \, \ottkw{matches} \, \ottnt{pat_{{\mathrm{1}}}} \quad ... \quad \vdash \, \ottnt{v_{\ottmv{n}}} \, \ottkw{matches} \, \ottnt{pat_{\ottmv{n}}}}% -}{ -\vdash \, \ottnt{constr} \, ( \, \ottnt{v_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{v_{\ottmv{n}}} \, ) \, \ottkw{matches} \, \ottnt{constr} \, ( \, \ottnt{pat_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{pat_{\ottmv{n}}} \, )}{ -{\ottdrulename{JM\_matchP\_construct}}{} -}} - - -\newcommand{\ottdruleJMXXmatchPXXconstructXXany}[1]{\ottdrule[#1]{% -}{ -\vdash \, \ottnt{constr} \, ( \, \ottnt{v_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{v_{\ottmv{n}}} \, ) \, \ottkw{matches} \, \ottnt{constr} \, \ottkw{\_}}{ -{\ottdrulename{JM\_matchP\_construct\_any}}{} -}} - - -\newcommand{\ottdruleJMXXmatchPXXtuple}[1]{\ottdrule[#1]{% -\ottpremise{\vdash \, \ottnt{v_{{\mathrm{1}}}} \, \ottkw{matches} \, \ottnt{pat_{{\mathrm{1}}}} \quad .... \quad \vdash \, \ottnt{v_{\ottmv{n}}} \, \ottkw{matches} \, \ottnt{pat_{\ottmv{n}}}}% -}{ -\vdash \, ( \, \ottnt{v_{{\mathrm{1}}}} \, , \, .... \, , \, \ottnt{v_{\ottmv{n}}} \, ) \, \ottkw{matches} \, ( \, \ottnt{pat_{{\mathrm{1}}}} \, , \, .... \, , \, \ottnt{pat_{\ottmv{n}}} \, )}{ -{\ottdrulename{JM\_matchP\_tuple}}{} -}} - - -\newcommand{\ottdruleJMXXmatchPXXrecord}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{field\_name'_{{\mathrm{1}}}} \, = \, \ottnt{v'_{{\mathrm{1}}}} \, ... \, \ottnt{field\_name'_{\ottmv{n}}} \, = \, \ottnt{v'_{\ottmv{n}}} \, \ottnt{fn_{{\mathrm{1}}}} \, = \, \ottnt{v''_{{\mathrm{1}}}} \, .. \, \ottnt{fn_{\ottmv{l}}} \, = \, \ottnt{v''_{\ottmv{l}}} \, \ottkw{PERMUTES} \, \ottnt{field\_name_{{\mathrm{1}}}} \, = \, \ottnt{v_{{\mathrm{1}}}} \, ... \, \ottnt{field\_name_{\ottmv{m}}} \, = \, \ottnt{v_{\ottmv{m}}}}% -\ottpremise{\vdash \, \ottnt{v'_{{\mathrm{1}}}} \, \ottkw{matches} \, \ottnt{pat_{{\mathrm{1}}}} \quad ... \quad \vdash \, \ottnt{v'_{\ottmv{n}}} \, \ottkw{matches} \, \ottnt{pat_{\ottmv{n}}}}% -\ottpremise{\ottnt{field\_name_{{\mathrm{1}}}} \, ... \, \ottnt{field\_name_{\ottmv{m}}} \, \ottkw{distinct}}% -}{ -\vdash \, \ottkw{\{} \, \ottnt{field\_name_{{\mathrm{1}}}} \, = \, \ottnt{v_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{field\_name_{\ottmv{m}}} \, = \, \ottnt{v_{\ottmv{m}}} \, \ottkw{\}} \, \ottkw{matches} \, \ottkw{\{} \, \ottnt{field\_name'_{{\mathrm{1}}}} \, = \, \ottnt{pat_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{field\_name'_{\ottmv{n}}} \, = \, \ottnt{pat_{\ottmv{n}}} \, \ottkw{\}}}{ -{\ottdrulename{JM\_matchP\_record}}{} -}} - - -\newcommand{\ottdruleJMXXmatchPXXcons}[1]{\ottdrule[#1]{% -\ottpremise{\vdash \, \ottnt{v_{{\mathrm{1}}}} \, \ottkw{matches} \, \ottnt{pat_{{\mathrm{1}}}}}% -\ottpremise{\vdash \, \ottnt{v_{{\mathrm{2}}}} \, \ottkw{matches} \, \ottnt{pat_{{\mathrm{2}}}}}% -}{ -\vdash \, \ottnt{v_{{\mathrm{1}}}} \, \ottkw{::} \, \ottnt{v_{{\mathrm{2}}}} \, \ottkw{matches} \, \ottnt{pat_{{\mathrm{1}}}} \, \ottkw{::} \, \ottnt{pat_{{\mathrm{2}}}}}{ -{\ottdrulename{JM\_matchP\_cons}}{} -}} - -\newcommand{\ottdefnJMXXmatchP}[1]{\begin{ottdefnblock}[#1]{$\vdash \, \ottnt{expr} \, \ottkw{matches} \, \ottnt{pattern}$}{\ottcom{Pattern matching}} -\ottusedrule{\ottdruleJMXXmatchPXXvar{}} -\ottusedrule{\ottdruleJMXXmatchPXXany{}} -\ottusedrule{\ottdruleJMXXmatchPXXconstant{}} -\ottusedrule{\ottdruleJMXXmatchPXXalias{}} -\ottusedrule{\ottdruleJMXXmatchPXXtyped{}} -\ottusedrule{\ottdruleJMXXmatchPXXorXXleft{}} -\ottusedrule{\ottdruleJMXXmatchPXXorXXright{}} -\ottusedrule{\ottdruleJMXXmatchPXXconstruct{}} -\ottusedrule{\ottdruleJMXXmatchPXXconstructXXany{}} -\ottusedrule{\ottdruleJMXXmatchPXXtuple{}} -\ottusedrule{\ottdruleJMXXmatchPXXrecord{}} -\ottusedrule{\ottdruleJMXXmatchPXXcons{}} -\end{ottdefnblock}} - - -\newcommand{\ottdefnsJmatchP}{ -\ottdefnJMXXmatchP{}} - - -% defns Jmatch -% defn match -\newcommand{\ottdruleJMXXmatchXXvar}[1]{\ottdrule[#1]{% -}{ -\vdash \, \ottnt{v} \, \ottkw{matches} \, \ottnt{x} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{x} \, \!\!\leftarrow\!\! \, \ottnt{v} \, \}\!\!\}}{ -{\ottdrulename{JM\_match\_var}}{} -}} - - -\newcommand{\ottdruleJMXXmatchXXany}[1]{\ottdrule[#1]{% -}{ -\vdash \, \ottnt{v} \, \ottkw{matches} \, \ottkw{\_} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \, \, \}\!\!\}}{ -{\ottdrulename{JM\_match\_any}}{} -}} - - -\newcommand{\ottdruleJMXXmatchXXconstant}[1]{\ottdrule[#1]{% -}{ -\vdash \, \ottnt{constant} \, \ottkw{matches} \, \ottnt{constant} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \, \, \}\!\!\}}{ -{\ottdrulename{JM\_match\_constant}}{} -}} - - -\newcommand{\ottdruleJMXXmatchXXalias}[1]{\ottdrule[#1]{% -\ottpremise{\vdash \, \ottnt{v} \, \ottkw{matches} \, \ottnt{pat} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{x_{{\mathrm{1}}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{x_{\ottmv{n}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{\ottmv{n}}} \, \}\!\!\}}% -}{ -\vdash \, \ottnt{v} \, \ottkw{matches} \, \ottnt{pat} \, \ottkw{as} \, \ottnt{x} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{x_{{\mathrm{1}}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{x_{\ottmv{n}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{\ottmv{n}}} \, , \, \ottnt{x} \, \!\!\leftarrow\!\! \, \ottnt{v} \, \}\!\!\}}{ -{\ottdrulename{JM\_match\_alias}}{} -}} - - -\newcommand{\ottdruleJMXXmatchXXtyped}[1]{\ottdrule[#1]{% -\ottpremise{\vdash \, \ottnt{v} \, \ottkw{matches} \, \ottnt{pat} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{x_{{\mathrm{1}}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{x_{\ottmv{n}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{\ottmv{n}}} \, \}\!\!\}}% -}{ -\vdash \, \ottnt{v} \, \ottkw{matches} \, ( \, \ottnt{pat} \, : \, \ottnt{t} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{x_{{\mathrm{1}}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{x_{\ottmv{n}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{\ottmv{n}}} \, \}\!\!\}}{ -{\ottdrulename{JM\_match\_typed}}{} -}} - - -\newcommand{\ottdruleJMXXmatchXXorXXleft}[1]{\ottdrule[#1]{% -\ottpremise{\vdash \, \ottnt{v} \, \ottkw{matches} \, \ottnt{pat_{{\mathrm{1}}}} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{x_{{\mathrm{1}}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{x_{\ottmv{n}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{\ottmv{n}}} \, \}\!\!\}}% -}{ -\vdash \, \ottnt{v} \, \ottkw{matches} \, \ottnt{pat_{{\mathrm{1}}}} \, \ottkw{\mbox{$\mid$}} \, \ottnt{pat_{{\mathrm{2}}}} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{x_{{\mathrm{1}}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{x_{\ottmv{n}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{\ottmv{n}}} \, \}\!\!\}}{ -{\ottdrulename{JM\_match\_or\_left}}{} -}} - - -\newcommand{\ottdruleJMXXmatchXXorXXright}[1]{\ottdrule[#1]{% -\ottpremise{ \neg( \ottnt{v} ~\ottkw{matches}~ \ottnt{pat_{{\mathrm{1}}}} ) }% -\ottpremise{\vdash \, \ottnt{v} \, \ottkw{matches} \, \ottnt{pat_{{\mathrm{2}}}} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{x_{{\mathrm{1}}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{x_{\ottmv{n}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{\ottmv{n}}} \, \}\!\!\}}% -}{ -\vdash \, \ottnt{v} \, \ottkw{matches} \, \ottnt{pat_{{\mathrm{1}}}} \, \ottkw{\mbox{$\mid$}} \, \ottnt{pat_{{\mathrm{2}}}} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{x_{{\mathrm{1}}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{x_{\ottmv{n}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{\ottmv{n}}} \, \}\!\!\}}{ -{\ottdrulename{JM\_match\_or\_right}}{} -}} - - -\newcommand{\ottdruleJMXXmatchXXconstruct}[1]{\ottdrule[#1]{% -\ottpremise{\vdash \, \ottnt{v_{{\mathrm{1}}}} \, \ottkw{matches} \, \ottnt{pat_{{\mathrm{1}}}} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{substs\_x_{{\mathrm{1}}}} \, \}\!\!\} \quad ... \quad \vdash \, \ottnt{v_{\ottmv{n}}} \, \ottkw{matches} \, \ottnt{pat_{\ottmv{n}}} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{substs\_x_{\ottmv{n}}} \, \}\!\!\}}% -}{ -\vdash \, \ottnt{constr} \, ( \, \ottnt{v_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{v_{\ottmv{n}}} \, ) \, \ottkw{matches} \, \ottnt{constr} \, ( \, \ottnt{pat_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{pat_{\ottmv{n}}} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{substs\_x_{{\mathrm{1}}}} \, @ \, ... \, @ \, \ottnt{substs\_x_{\ottmv{n}}} \, \}\!\!\}}{ -{\ottdrulename{JM\_match\_construct}}{} -}} - - -\newcommand{\ottdruleJMXXmatchXXconstructXXany}[1]{\ottdrule[#1]{% -}{ -\vdash \, \ottnt{constr} \, ( \, \ottnt{v_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{v_{\ottmv{n}}} \, ) \, \ottkw{matches} \, \ottnt{constr} \, \ottkw{\_} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \, \, \}\!\!\}}{ -{\ottdrulename{JM\_match\_construct\_any}}{} -}} - - -\newcommand{\ottdruleJMXXmatchXXtuple}[1]{\ottdrule[#1]{% -\ottpremise{\vdash \, \ottnt{v_{{\mathrm{1}}}} \, \ottkw{matches} \, \ottnt{pat_{{\mathrm{1}}}} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{substs\_x_{{\mathrm{1}}}} \, \}\!\!\} \quad .... \quad \vdash \, \ottnt{v_{\ottmv{n}}} \, \ottkw{matches} \, \ottnt{pat_{\ottmv{n}}} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{substs\_x_{\ottmv{n}}} \, \}\!\!\}}% -}{ -\vdash \, ( \, \ottnt{v_{{\mathrm{1}}}} \, , \, .... \, , \, \ottnt{v_{\ottmv{n}}} \, ) \, \ottkw{matches} \, ( \, \ottnt{pat_{{\mathrm{1}}}} \, , \, .... \, , \, \ottnt{pat_{\ottmv{n}}} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{substs\_x_{{\mathrm{1}}}} \, @ \, .... \, @ \, \ottnt{substs\_x_{\ottmv{n}}} \, \}\!\!\}}{ -{\ottdrulename{JM\_match\_tuple}}{} -}} - - -\newcommand{\ottdruleJMXXmatchXXrecord}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{field\_name'_{{\mathrm{1}}}} \, = \, \ottnt{v'_{{\mathrm{1}}}} \, ... \, \ottnt{field\_name'_{\ottmv{n}}} \, = \, \ottnt{v'_{\ottmv{n}}} \, \ottnt{fn_{{\mathrm{1}}}} \, = \, \ottnt{v''_{{\mathrm{1}}}} \, .. \, \ottnt{fn_{\ottmv{l}}} \, = \, \ottnt{v''_{\ottmv{l}}} \, \ottkw{PERMUTES} \, \ottnt{field\_name_{{\mathrm{1}}}} \, = \, \ottnt{v_{{\mathrm{1}}}} \, ... \, \ottnt{field\_name_{\ottmv{m}}} \, = \, \ottnt{v_{\ottmv{m}}}}% -\ottpremise{\vdash \, \ottnt{v'_{{\mathrm{1}}}} \, \ottkw{matches} \, \ottnt{pat_{{\mathrm{1}}}} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{substs\_x_{{\mathrm{1}}}} \, \}\!\!\} \quad ... \quad \vdash \, \ottnt{v'_{\ottmv{n}}} \, \ottkw{matches} \, \ottnt{pat_{\ottmv{n}}} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{substs\_x_{\ottmv{n}}} \, \}\!\!\}}% -\ottpremise{\ottnt{field\_name_{{\mathrm{1}}}} \, ... \, \ottnt{field\_name_{\ottmv{m}}} \, \ottkw{distinct}}% -}{ -\vdash \, \ottkw{\{} \, \ottnt{field\_name_{{\mathrm{1}}}} \, = \, \ottnt{v_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{field\_name_{\ottmv{m}}} \, = \, \ottnt{v_{\ottmv{m}}} \, \ottkw{\}} \, \ottkw{matches} \, \ottkw{\{} \, \ottnt{field\_name'_{{\mathrm{1}}}} \, = \, \ottnt{pat_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{field\_name'_{\ottmv{n}}} \, = \, \ottnt{pat_{\ottmv{n}}} \, \ottkw{\}} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{substs\_x_{{\mathrm{1}}}} \, @ \, ... \, @ \, \ottnt{substs\_x_{\ottmv{n}}} \, \}\!\!\}}{ -{\ottdrulename{JM\_match\_record}}{} -}} - - -\newcommand{\ottdruleJMXXmatchXXcons}[1]{\ottdrule[#1]{% -\ottpremise{\vdash \, \ottnt{v_{{\mathrm{1}}}} \, \ottkw{matches} \, \ottnt{pat_{{\mathrm{1}}}} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{substs\_x_{{\mathrm{1}}}} \, \}\!\!\}}% -\ottpremise{\vdash \, \ottnt{v_{{\mathrm{2}}}} \, \ottkw{matches} \, \ottnt{pat_{{\mathrm{2}}}} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{substs\_x_{{\mathrm{2}}}} \, \}\!\!\}}% -}{ -\vdash \, \ottnt{v_{{\mathrm{1}}}} \, \ottkw{::} \, \ottnt{v_{{\mathrm{2}}}} \, \ottkw{matches} \, \ottnt{pat_{{\mathrm{1}}}} \, \ottkw{::} \, \ottnt{pat_{{\mathrm{2}}}} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{substs\_x_{{\mathrm{1}}}} \, @ \, \ottnt{substs\_x_{{\mathrm{2}}}} \, \}\!\!\}}{ -{\ottdrulename{JM\_match\_cons}}{} -}} - -\newcommand{\ottdefnJMXXmatch}[1]{\begin{ottdefnblock}[#1]{$\vdash \, \ottnt{expr} \, \ottkw{matches} \, \ottnt{pattern} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{substs\_x} \, \}\!\!\}$}{\ottcom{Pattern matching with substitution creation}} -\ottusedrule{\ottdruleJMXXmatchXXvar{}} -\ottusedrule{\ottdruleJMXXmatchXXany{}} -\ottusedrule{\ottdruleJMXXmatchXXconstant{}} -\ottusedrule{\ottdruleJMXXmatchXXalias{}} -\ottusedrule{\ottdruleJMXXmatchXXtyped{}} -\ottusedrule{\ottdruleJMXXmatchXXorXXleft{}} -\ottusedruleC{\ottdruleJMXXmatchXXorXXright{}} -\ottusedrule{\ottdruleJMXXmatchXXconstruct{}} -\ottusedrule{\ottdruleJMXXmatchXXconstructXXany{}} -\ottusedrule{\ottdruleJMXXmatchXXtuple{}} -\ottusedruleC{\ottdruleJMXXmatchXXrecord{}} -\ottusedrule{\ottdruleJMXXmatchXXcons{}} -\end{ottdefnblock}} - - -\newcommand{\ottdefnsJmatch}{ -\ottdefnJMXXmatch{}} - - -% defns Jrecfun -% defn recfun -\newcommand{\ottdruleJrecfunXXletrec}[1]{\ottdrule[#1]{% -\ottpremise{ \ottnt{letrec\_bindings} = ( \ottnt{x_{{\mathrm{1}}}} \, = \, \ottkw{function} \, \ottnt{pattern\_matching_{{\mathrm{1}}}} \, \ottkw{and} \, ... \, \ottkw{and} \, \ottnt{x_{\ottmv{n}}} \, = \, \ottkw{function} \, \ottnt{pattern\_matching_{\ottmv{n}}} ) }% -}{ -\ottkw{recfun} \, ( \, \ottnt{letrec\_bindings} \, , \, \ottnt{pattern\_matching} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{x_{{\mathrm{1}}}} \, \!\!\leftarrow\!\! \, \ottkw{let} \, \ottkw{rec} \, \ottnt{letrec\_bindings} \, \ottkw{in} \, \ottnt{x_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{x_{\ottmv{n}}} \, \!\!\leftarrow\!\! \, \ottkw{let} \, \ottkw{rec} \, \ottnt{letrec\_bindings} \, \ottkw{in} \, \ottnt{x_{\ottmv{n}}} \, \}\!\!\} \, ( \, \ottkw{function} \, \ottnt{pattern\_matching} \, )}{ -{\ottdrulename{Jrecfun\_letrec}}{} -}} - -\newcommand{\ottdefnJrecfun}[1]{\begin{ottdefnblock}[#1]{$\ottkw{recfun} \, ( \, \ottnt{letrec\_bindings} \, , \, \ottnt{pattern\_matching} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{expr}$}{\ottcom{Recursive function helper}} -\ottusedrule{\ottdruleJrecfunXXletrec{}} -\end{ottdefnblock}} - - -\newcommand{\ottdefnsJrecfun}{ -\ottdefnJrecfun{}} - - -% defns Jfunval -% defn funval -\newcommand{\ottdruleJfunvalXXup}[1]{\ottdrule[#1]{% -}{ -\vdash \, \ottkw{funval} \, ( \, ( \, \ottkw{\%prim} \, \ottnt{unary\_prim} \, ) \, )}{ -{\ottdrulename{Jfunval\_up}}{} -}} - - -\newcommand{\ottdruleJfunvalXXbp}[1]{\ottdrule[#1]{% -}{ -\vdash \, \ottkw{funval} \, ( \, ( \, \ottkw{\%prim} \, \ottnt{binary\_prim} \, ) \, )}{ -{\ottdrulename{Jfunval\_bp}}{} -}} - - -\newcommand{\ottdruleJfunvalXXbpXXapp}[1]{\ottdrule[#1]{% -}{ -\vdash \, \ottkw{funval} \, ( \, ( \, \ottkw{\%prim} \, \ottnt{binary\_prim} \, ) \, \ottnt{v} \, )}{ -{\ottdrulename{Jfunval\_bp\_app}}{} -}} - - -\newcommand{\ottdruleJfunvalXXfunc}[1]{\ottdrule[#1]{% -}{ -\vdash \, \ottkw{funval} \, ( \, \ottkw{function} \, \ottnt{pattern\_matching} \, )}{ -{\ottdrulename{Jfunval\_func}}{} -}} - -\newcommand{\ottdefnJfunval}[1]{\begin{ottdefnblock}[#1]{$\vdash \, \ottkw{funval} \, ( \, \ottnt{e} \, )$}{\ottcom{Function values}} -\ottusedrule{\ottdruleJfunvalXXup{}} -\ottusedrule{\ottdruleJfunvalXXbp{}} -\ottusedrule{\ottdruleJfunvalXXbpXXapp{}} -\ottusedrule{\ottdruleJfunvalXXfunc{}} -\end{ottdefnblock}} - - -\newcommand{\ottdefnsJfunval}{ -\ottdefnJfunval{}} - - -% defns JRuprim -% defn Ruprim -\newcommand{\ottdruleJuprimXXnotXXtrue}[1]{\ottdrule[#1]{% -}{ -\vdash \, \ottkw{not} \, \ottkw{true} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottkw{false}}{ -{\ottdrulename{Juprim\_not\_true}}{} -}} - - -\newcommand{\ottdruleJuprimXXnotXXfalse}[1]{\ottdrule[#1]{% -}{ -\vdash \, \ottkw{not} \, \ottkw{false} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottkw{true}}{ -{\ottdrulename{Juprim\_not\_false}}{} -}} - - -\newcommand{\ottdruleJuprimXXuminus}[1]{\ottdrule[#1]{% -}{ -\vdash \, \mathrel{\sim\!\!-} \, \dot{n} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, 0 \stackrel\centerdot- \dot{n} }{ -{\ottdrulename{Juprim\_uminus}}{} -}} - - -\newcommand{\ottdruleJuprimXXrefXXalloc}[1]{\ottdrule[#1]{% -}{ -\vdash \, \ottkw{ref} \, \ottnt{v} \, \stackrel{ \ottkw{ref} \, \ottnt{v} \, = \, \ottmv{l} }{\longrightarrow}\ottmaybebreakline \, \ottmv{l}}{ -{\ottdrulename{Juprim\_ref\_alloc}}{} -}} - - -\newcommand{\ottdruleJuprimXXderef}[1]{\ottdrule[#1]{% -}{ -\vdash \, ! \, \ottmv{l} \, \stackrel{ ! \, \ottmv{l} \, = \, \ottnt{v} }{\longrightarrow}\ottmaybebreakline \, \ottnt{v}}{ -{\ottdrulename{Juprim\_deref}}{} -}} - -\newcommand{\ottdefnJRuprim}[1]{\begin{ottdefnblock}[#1]{$\vdash \, \ottnt{unary\_prim} \, \ottnt{expr} \, \stackrel{\ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{expr'}$}{\ottcom{Unary primitive evaluation}} -\ottusedrule{\ottdruleJuprimXXnotXXtrue{}} -\ottusedrule{\ottdruleJuprimXXnotXXfalse{}} -\ottusedrule{\ottdruleJuprimXXuminus{}} -\ottusedruleC{\ottdruleJuprimXXrefXXalloc{}} -\ottusedrule{\ottdruleJuprimXXderef{}} -\end{ottdefnblock}} - - -\newcommand{\ottdefnsJRuprim}{ -\ottdefnJRuprim{}} - - -% defns JRbprim -% defn Rbprim -\newcommand{\ottdruleJbprimXXequalXXfun}[1]{\ottdrule[#1]{% -\ottpremise{\vdash \, \ottkw{funval} \, ( \, \ottnt{v} \, )}% -}{ -\vdash \, \ottnt{v} \, = \, \ottnt{v'} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, ( \, \ottkw{Invalid\_argument} \, ( \, \ottkw{equal\_error\_string} \, ) \, )}{ -{\ottdrulename{Jbprim\_equal\_fun}}{} -}} - - -\newcommand{\ottdruleJbprimXXequalXXconstXXtrue}[1]{\ottdrule[#1]{% -}{ -\vdash \, \ottnt{constant} \, = \, \ottnt{constant} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottkw{true}}{ -{\ottdrulename{Jbprim\_equal\_const\_true}}{} -}} - - -\newcommand{\ottdruleJbprimXXequalXXconstXXfalse}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{constant} \, \not = \, \ottnt{constant'}}% -}{ -\vdash \, \ottnt{constant} \, = \, \ottnt{constant'} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottkw{false}}{ -{\ottdrulename{Jbprim\_equal\_const\_false}}{} -}} - - -\newcommand{\ottdruleJbprimXXequalXXloc}[1]{\ottdrule[#1]{% -}{ -\vdash \, \ottmv{l} \, = \, \ottmv{l'} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, ( \, \ottkw{\%prim} \, = \, ) \, ( \, ( \, \ottkw{\%prim} \, ! \, ) \, \ottmv{l} \, ) \, ) \, ( \, ( \, \ottkw{\%prim} \, ! \, ) \, \ottmv{l'} \, )}{ -{\ottdrulename{Jbprim\_equal\_loc}}{} -}} - - -\newcommand{\ottdruleJbprimXXequalXXcons}[1]{\ottdrule[#1]{% -}{ -\vdash \, ( \, \ottnt{v_{{\mathrm{1}}}} \, \ottkw{::} \, \ottnt{v_{{\mathrm{2}}}} \, ) \, = \, ( \, \ottnt{v'_{{\mathrm{1}}}} \, \ottkw{::} \, \ottnt{v'_{{\mathrm{2}}}} \, ) \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, ( \, ( \, \ottkw{\%prim} \, = \, ) \, \ottnt{v_{{\mathrm{1}}}} \, ) \, \ottnt{v'_{{\mathrm{1}}}} \, ) \, \ottkw{\&\&} \, ( \, ( \, ( \, \ottkw{\%prim} \, = \, ) \, \ottnt{v_{{\mathrm{2}}}} \, ) \, \ottnt{v'_{{\mathrm{2}}}} \, )}{ -{\ottdrulename{Jbprim\_equal\_cons}}{} -}} - - -\newcommand{\ottdruleJbprimXXequalXXconsXXnil}[1]{\ottdrule[#1]{% -}{ -\vdash \, ( \, \ottnt{v_{{\mathrm{1}}}} \, \ottkw{::} \, \ottnt{v_{{\mathrm{2}}}} \, ) \, = \, \ottkw{[]} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottkw{false}}{ -{\ottdrulename{Jbprim\_equal\_cons\_nil}}{} -}} - - -\newcommand{\ottdruleJbprimXXequalXXnilXXcons}[1]{\ottdrule[#1]{% -}{ -\vdash \, \ottkw{[]} \, = \, ( \, \ottnt{v_{{\mathrm{1}}}} \, \ottkw{::} \, \ottnt{v_{{\mathrm{2}}}} \, ) \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottkw{false}}{ -{\ottdrulename{Jbprim\_equal\_nil\_cons}}{} -}} - - -\newcommand{\ottdruleJbprimXXequalXXtuple}[1]{\ottdrule[#1]{% -\ottpremise{\ottkw{length} \, ( \, \ottnt{v_{{\mathrm{1}}}} \, ) \, .... \, ( \, \ottnt{v_{\ottmv{n}}} \, ) \, \geq \, 2}% -}{ -\vdash \, ( \, \ottnt{v_{{\mathrm{1}}}} \, , \, .... \, , \, \ottnt{v_{\ottmv{n}}} \, ) \, = \, ( \, \ottnt{v'_{{\mathrm{1}}}} \, , \, .... \, , \, \ottnt{v'_{\ottmv{n}}} \, ) \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottkw{AND} \, ( \, ( \, ( \, \ottkw{\%prim} \, = \, ) \, \ottnt{v_{{\mathrm{1}}}} \, ) \, \ottnt{v'_{{\mathrm{1}}}} \, \ottkw{\&\&} \, .... \, \ottkw{\&\&} \, ( \, ( \, \ottkw{\%prim} \, = \, ) \, \ottnt{v_{\ottmv{n}}} \, ) \, \ottnt{v'_{\ottmv{n}}} \, )}{ -{\ottdrulename{Jbprim\_equal\_tuple}}{} -}} - - -\newcommand{\ottdruleJbprimXXequalXXconstr}[1]{\ottdrule[#1]{% -}{ -\vdash \, ( \, \ottnt{constr} \, ( \, \ottnt{v_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{v_{\ottmv{n}}} \, ) \, ) \, = \, ( \, \ottnt{constr} \, ( \, \ottnt{v'_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{v'_{\ottmv{n}}} \, ) \, ) \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottkw{AND} \, ( \, ( \, ( \, \ottkw{\%prim} \, = \, ) \, \ottnt{v_{{\mathrm{1}}}} \, ) \, \ottnt{v'_{{\mathrm{1}}}} \, \ottkw{\&\&} \, ... \, \ottkw{\&\&} \, ( \, ( \, \ottkw{\%prim} \, = \, ) \, \ottnt{v_{\ottmv{n}}} \, ) \, \ottnt{v'_{\ottmv{n}}} \, )}{ -{\ottdrulename{Jbprim\_equal\_constr}}{} -}} - - -\newcommand{\ottdruleJbprimXXequalXXconstrXXfalse}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{constr} \, \not = \, \ottnt{constr'}}% -}{ -\vdash \, \ottnt{constr} \, ( \, \ottnt{v_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{v_{\ottmv{m}}} \, ) \, = \, \ottnt{constr'} \, ( \, \ottnt{v'_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{v'_{\ottmv{n}}} \, ) \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottkw{false}}{ -{\ottdrulename{Jbprim\_equal\_constr\_false}}{} -}} - - -\newcommand{\ottdruleJbprimXXequalXXconstXXconstrXXfalse}[1]{\ottdrule[#1]{% -}{ -\vdash \, \ottnt{constr'} \, = \, \ottnt{constr} \, ( \, \ottnt{v_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{v_{\ottmv{n}}} \, ) \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottkw{false}}{ -{\ottdrulename{Jbprim\_equal\_const\_constr\_false}}{} -}} - - -\newcommand{\ottdruleJbprimXXequalXXconstrXXconstXXfalse}[1]{\ottdrule[#1]{% -}{ -\vdash \, \ottnt{constr} \, ( \, \ottnt{v_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{v_{\ottmv{n}}} \, ) \, = \, \ottnt{constr'} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottkw{false}}{ -{\ottdrulename{Jbprim\_equal\_constr\_const\_false}}{} -}} - - -\newcommand{\ottdruleJbprimXXequalXXrec}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{v'} \, = \, \ottkw{\{} \, \ottnt{fn''_{{\mathrm{1}}}} \, = \, \ottnt{v''_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn''_{\ottmv{m}}} \, = \, \ottnt{v''_{\ottmv{m}}} \, \ottkw{\}}}% -\ottpremise{\ottnt{fn_{{\mathrm{1}}}} \, ... \, \ottnt{fn_{\ottmv{n}}} \, \ottkw{PERMUTES} \, \ottnt{fn''_{{\mathrm{1}}}} \, ... \, \ottnt{fn''_{\ottmv{m}}}}% -}{ -\vdash \, \ottkw{\{} \, \ottnt{fn_{{\mathrm{1}}}} \, = \, \ottnt{v_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn_{\ottmv{n}}} \, = \, \ottnt{v_{\ottmv{n}}} \, \ottkw{\}} \, = \, \ottnt{v'} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottkw{AND} \, ( \, ( \, ( \, \ottkw{\%prim} \, = \, ) \, \ottnt{v_{{\mathrm{1}}}} \, ) \, ( \, \ottnt{v'} \, . \, \ottnt{fn_{{\mathrm{1}}}} \, ) \, \ottkw{\&\&} \, ... \, \ottkw{\&\&} \, ( \, ( \, \ottkw{\%prim} \, = \, ) \, \ottnt{v_{\ottmv{n}}} \, ) \, ( \, \ottnt{v'} \, . \, \ottnt{fn_{\ottmv{n}}} \, ) \, )}{ -{\ottdrulename{Jbprim\_equal\_rec}}{} -}} - - -\newcommand{\ottdruleJbprimXXplus}[1]{\ottdrule[#1]{% -}{ -\vdash \, \dot{n}_{{\mathrm{1}}} \, + \, \dot{n}_{{\mathrm{2}}} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \dot{n}_{{\mathrm{1}}} \stackrel\centerdot+ \dot{n}_{{\mathrm{2}}} }{ -{\ottdrulename{Jbprim\_plus}}{} -}} - - -\newcommand{\ottdruleJbprimXXminus}[1]{\ottdrule[#1]{% -}{ -\vdash \, \dot{n}_{{\mathrm{1}}} \, - \, \dot{n}_{{\mathrm{2}}} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \dot{n}_{{\mathrm{1}}} \stackrel\centerdot- \dot{n}_{{\mathrm{2}}} }{ -{\ottdrulename{Jbprim\_minus}}{} -}} - - -\newcommand{\ottdruleJbprimXXtimes}[1]{\ottdrule[#1]{% -}{ -\vdash \, \dot{n}_{{\mathrm{1}}} \, \ast \, \dot{n}_{{\mathrm{2}}} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \dot{n}_{{\mathrm{1}}} \stackrel\centerdot* \dot{n}_{{\mathrm{2}}} }{ -{\ottdrulename{Jbprim\_times}}{} -}} - - -\newcommand{\ottdruleJbprimXXdivZero}[1]{\ottdrule[#1]{% -}{ -\vdash \, \dot{n} \, / \, 0 \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottkw{Division\_by\_zero}}{ -{\ottdrulename{Jbprim\_div0}}{} -}} - - -\newcommand{\ottdruleJbprimXXdiv}[1]{\ottdrule[#1]{% -\ottpremise{\dot{n}_{{\mathrm{2}}} \, \not = \, 0}% -}{ -\vdash \, \dot{n}_{{\mathrm{1}}} \, / \, \dot{n}_{{\mathrm{2}}} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \dot{n}_{{\mathrm{1}}} \stackrel\centerdot/ \dot{n}_{{\mathrm{2}}} }{ -{\ottdrulename{Jbprim\_div}}{} -}} - - -\newcommand{\ottdruleJbprimXXassign}[1]{\ottdrule[#1]{% -}{ -\vdash \, \ottmv{l} \, \ottkw{:=} \, \ottnt{v} \, \stackrel{ \ottmv{l} \, \ottkw{:=} \, \ottnt{v} }{\longrightarrow}\ottmaybebreakline \, \ottkw{()}}{ -{\ottdrulename{Jbprim\_assign}}{} -}} - -\newcommand{\ottdefnJRbprim}[1]{\begin{ottdefnblock}[#1]{$\vdash \, \ottnt{expr_{{\mathrm{1}}}} \, \ottnt{binary\_prim} \, \ottnt{expr_{{\mathrm{2}}}} \, \stackrel{\ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{expr}$}{\ottcom{Binary primitive evaluation}} -\ottusedrule{\ottdruleJbprimXXequalXXfun{}} -\ottusedrule{\ottdruleJbprimXXequalXXconstXXtrue{}} -\ottusedrule{\ottdruleJbprimXXequalXXconstXXfalse{}} -\ottusedruleC{\ottdruleJbprimXXequalXXloc{}} -\ottusedruleC{\ottdruleJbprimXXequalXXcons{}} -\ottusedrule{\ottdruleJbprimXXequalXXconsXXnil{}} -\ottusedrule{\ottdruleJbprimXXequalXXnilXXcons{}} -\ottusedrule{\ottdruleJbprimXXequalXXtuple{}} -\ottusedrule{\ottdruleJbprimXXequalXXconstr{}} -\ottusedrule{\ottdruleJbprimXXequalXXconstrXXfalse{}} -\ottusedrule{\ottdruleJbprimXXequalXXconstXXconstrXXfalse{}} -\ottusedrule{\ottdruleJbprimXXequalXXconstrXXconstXXfalse{}} -\ottusedrule{\ottdruleJbprimXXequalXXrec{}} -\ottusedrule{\ottdruleJbprimXXplus{}} -\ottusedrule{\ottdruleJbprimXXminus{}} -\ottusedrule{\ottdruleJbprimXXtimes{}} -\ottusedrule{\ottdruleJbprimXXdivZero{}} -\ottusedrule{\ottdruleJbprimXXdiv{}} -\ottusedrule{\ottdruleJbprimXXassign{}} -\end{ottdefnblock}} - - -\newcommand{\ottdefnsJRbprim}{ -\ottdefnJRbprim{}} - - -% defns JRmatching_step -% defn matching_step -\newcommand{\ottdruleJRmatchingXXnext}[1]{\ottdrule[#1]{% -\ottpremise{ \neg( \ottnt{v} ~\ottkw{matches}~ \ottnt{pat} ) }% -\ottpremise{\ottkw{length} \, ( \, \ottnt{e_{{\mathrm{1}}}} \, ) \, ... \, ( \, \ottnt{e_{\ottmv{n}}} \, ) \, \geq \, 1}% -}{ -\vdash \, \ottnt{v} \, \ottkw{with} \, \ottnt{pat} \, \rightarrow \, \ottnt{e} \, \ottkw{\mbox{$\mid$}} \, \ottnt{pat_{{\mathrm{1}}}} \, \rightarrow \, \ottnt{e_{{\mathrm{1}}}} \, \ottkw{\mbox{$\mid$}} \, ... \, \ottkw{\mbox{$\mid$}} \, \ottnt{pat_{\ottmv{n}}} \, \rightarrow \, \ottnt{e_{\ottmv{n}}} \, \longrightarrow \, \ottnt{pat_{{\mathrm{1}}}} \, \rightarrow \, \ottnt{e_{{\mathrm{1}}}} \, \ottkw{\mbox{$\mid$}} \, ... \, \ottkw{\mbox{$\mid$}} \, \ottnt{pat_{\ottmv{n}}} \, \rightarrow \, \ottnt{e_{\ottmv{n}}}}{ -{\ottdrulename{JRmatching\_next}}{} -}} - -\newcommand{\ottdefnJRmatchingXXstep}[1]{\begin{ottdefnblock}[#1]{$\vdash \, \ottnt{expr} \, \ottkw{with} \, \ottnt{pattern\_matching} \, \longrightarrow \, \ottnt{pattern\_matching'}$}{\ottcom{Pattern matching step}} -\ottusedrule{\ottdruleJRmatchingXXnext{}} -\end{ottdefnblock}} - - -\newcommand{\ottdefnsJRmatchingXXstep}{ -\ottdefnJRmatchingXXstep{}} - - -% defns JRmatching_success -% defn matching_success -\newcommand{\ottdruleJRmatchingXXfound}[1]{\ottdrule[#1]{% -\ottpremise{\vdash \, \ottnt{v} \, \ottkw{matches} \, \ottnt{pat} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{x_{{\mathrm{1}}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{x_{\ottmv{m}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{\ottmv{m}}} \, \}\!\!\}}% -}{ -\vdash \, \ottnt{v} \, \ottkw{with} \, \ottnt{pat} \, \rightarrow \, \ottnt{e} \, \ottkw{\mbox{$\mid$}} \, \ottnt{pat_{{\mathrm{1}}}} \, \rightarrow \, \ottnt{e_{{\mathrm{1}}}} \, \ottkw{\mbox{$\mid$}} \, ... \, \ottkw{\mbox{$\mid$}} \, \ottnt{pat_{\ottmv{n}}} \, \rightarrow \, \ottnt{e_{\ottmv{n}}} \, \longrightarrow \, \{\!\!\{ \, \ottnt{x_{{\mathrm{1}}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{x_{\ottmv{m}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{\ottmv{m}}} \, \}\!\!\} \, \ottnt{e}}{ -{\ottdrulename{JRmatching\_found}}{} -}} - - -\newcommand{\ottdruleJRmatchingXXfail}[1]{\ottdrule[#1]{% -\ottpremise{ \neg( \ottnt{v} ~\ottkw{matches}~ \ottnt{pat} ) }% -}{ -\vdash \, \ottnt{v} \, \ottkw{with} \, \ottnt{pat} \, \rightarrow \, \ottnt{e} \, \longrightarrow \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottkw{Match\_failure}}{ -{\ottdrulename{JRmatching\_fail}}{} -}} - -\newcommand{\ottdefnJRmatchingXXsuccess}[1]{\begin{ottdefnblock}[#1]{$\vdash \, \ottnt{expr} \, \ottkw{with} \, \ottnt{pattern\_matching} \, \longrightarrow \, \ottnt{expr'}$}{\ottcom{Pattern matching finished}} -\ottusedrule{\ottdruleJRmatchingXXfound{}} -\ottusedrule{\ottdruleJRmatchingXXfail{}} -\end{ottdefnblock}} - - -\newcommand{\ottdefnsJRmatchingXXsuccess}{ -\ottdefnJRmatchingXXsuccess{}} - - -% defns Jred -% defn expr -\newcommand{\ottdruleJRXXexprXXuprim}[1]{\ottdrule[#1]{% -\ottpremise{\vdash \, \ottnt{unary\_prim} \, \ottnt{v} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e}}% -}{ -\vdash \, ( \, \ottkw{\%prim} \, \ottnt{unary\_prim} \, ) \, \ottnt{v} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e}}{ -{\ottdrulename{JR\_expr\_uprim}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXbprim}[1]{\ottdrule[#1]{% -\ottpremise{\vdash \, \ottnt{v_{{\mathrm{1}}}} \, \ottnt{binary\_prim} \, \ottnt{v_{{\mathrm{2}}}} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e}}% -}{ -\vdash \, ( \, ( \, \ottkw{\%prim} \, \ottnt{binary\_prim} \, ) \, \ottnt{v_{{\mathrm{1}}}} \, ) \, \ottnt{v_{{\mathrm{2}}}} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e}}{ -{\ottdrulename{JR\_expr\_bprim}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXtypedXXctx}[1]{\ottdrule[#1]{% -}{ -\vdash \, ( \, \ottnt{e} \, : \, \ottnt{t} \, ) \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottnt{e}}{ -{\ottdrulename{JR\_expr\_typed\_ctx}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXapplyXXctxXXarg}[1]{\ottdrule[#1]{% -\ottpremise{\vdash \, \ottnt{e_{{\mathrm{0}}}} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e'_{{\mathrm{0}}}}}% -}{ -\vdash \, \ottnt{e_{{\mathrm{1}}}} \, \ottnt{e_{{\mathrm{0}}}} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e_{{\mathrm{1}}}} \, \ottnt{e'_{{\mathrm{0}}}}}{ -{\ottdrulename{JR\_expr\_apply\_ctx\_arg}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXapplyXXraiseOne}[1]{\ottdrule[#1]{% -}{ -\vdash \, \ottnt{e} \, ( \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v} \, ) \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v}}{ -{\ottdrulename{JR\_expr\_apply\_raise1}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXapplyXXctxXXfun}[1]{\ottdrule[#1]{% -\ottpremise{\vdash \, \ottnt{e_{{\mathrm{1}}}} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e'_{{\mathrm{1}}}}}% -}{ -\vdash \, \ottnt{e_{{\mathrm{1}}}} \, \ottnt{v_{{\mathrm{0}}}} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e'_{{\mathrm{1}}}} \, \ottnt{v_{{\mathrm{0}}}}}{ -{\ottdrulename{JR\_expr\_apply\_ctx\_fun}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXapplyXXraiseTwo}[1]{\ottdrule[#1]{% -}{ -\vdash \, ( \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v} \, ) \, \ottnt{v'} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v}}{ -{\ottdrulename{JR\_expr\_apply\_raise2}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXapply}[1]{\ottdrule[#1]{% -}{ -\vdash \, ( \, \ottkw{function} \, \ottnt{pattern\_matching} \, \ottnt{v_{{\mathrm{0}}}} \, ) \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottkw{match} \, \ottnt{v_{{\mathrm{0}}}} \, \ottkw{with} \, \ottnt{pattern\_matching}}{ -{\ottdrulename{JR\_expr\_apply}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXletXXctx}[1]{\ottdrule[#1]{% -\ottpremise{\vdash \, \ottnt{e_{{\mathrm{0}}}} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e'_{{\mathrm{0}}}}}% -}{ -\vdash \, \ottkw{let} \, \ottnt{pat} \, = \, \ottnt{e_{{\mathrm{0}}}} \, \ottkw{in} \, \ottnt{e} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottkw{let} \, \ottnt{pat} \, = \, \ottnt{e'_{{\mathrm{0}}}} \, \ottkw{in} \, \ottnt{e}}{ -{\ottdrulename{JR\_expr\_let\_ctx}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXletXXraise}[1]{\ottdrule[#1]{% -}{ -\vdash \, \ottkw{let} \, \ottnt{pat} \, = \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v} \, \ottkw{in} \, \ottnt{e} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v}}{ -{\ottdrulename{JR\_expr\_let\_raise}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXletXXsubst}[1]{\ottdrule[#1]{% -\ottpremise{\vdash \, \ottnt{v} \, \ottkw{matches} \, \ottnt{pat} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{x_{{\mathrm{1}}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{x_{\ottmv{m}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{\ottmv{m}}} \, \}\!\!\}}% -}{ -\vdash \, \ottkw{let} \, \ottnt{pat} \, = \, \ottnt{v} \, \ottkw{in} \, \ottnt{e} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \{\!\!\{ \, \ottnt{x_{{\mathrm{1}}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{x_{\ottmv{m}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{\ottmv{m}}} \, \}\!\!\} \, \ottnt{e}}{ -{\ottdrulename{JR\_expr\_let\_subst}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXletXXfail}[1]{\ottdrule[#1]{% -\ottpremise{ \neg( \ottnt{v} ~\ottkw{matches}~ \ottnt{pat} ) }% -}{ -\vdash \, \ottkw{let} \, \ottnt{pat} \, = \, \ottnt{v} \, \ottkw{in} \, \ottnt{e} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottkw{Match\_failure}}{ -{\ottdrulename{JR\_expr\_let\_fail}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXletrec}[1]{\ottdrule[#1]{% -\ottpremise{ \ottnt{letrec\_bindings} = ( \ottnt{x_{{\mathrm{1}}}} \, = \, \ottkw{function} \, \ottnt{pattern\_matching_{{\mathrm{1}}}} \, \ottkw{and} \, ... \, \ottkw{and} \, \ottnt{x_{\ottmv{n}}} \, = \, \ottkw{function} \, \ottnt{pattern\_matching_{\ottmv{n}}} ) }% -\ottpremise{\ottkw{recfun} \, ( \, \ottnt{letrec\_bindings} \, , \, \ottnt{pattern\_matching_{{\mathrm{1}}}} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{e_{{\mathrm{1}}}} \quad ... \quad \ottkw{recfun} \, ( \, \ottnt{letrec\_bindings} \, , \, \ottnt{pattern\_matching_{\ottmv{n}}} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{e_{\ottmv{n}}}}% -}{ -\vdash \, \ottkw{let} \, \ottkw{rec} \, \ottnt{letrec\_bindings} \, \ottkw{in} \, \ottnt{e} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \{\!\!\{ \, \ottnt{x_{{\mathrm{1}}}} \, \!\!\leftarrow\!\! \, \ottnt{e_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{x_{\ottmv{n}}} \, \!\!\leftarrow\!\! \, \ottnt{e_{\ottmv{n}}} \, \}\!\!\} \, \ottnt{e}}{ -{\ottdrulename{JR\_expr\_letrec}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXsequenceXXctxXXleft}[1]{\ottdrule[#1]{% -\ottpremise{\vdash \, \ottnt{e_{{\mathrm{1}}}} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e'_{{\mathrm{1}}}}}% -}{ -\vdash \, \ottnt{e_{{\mathrm{1}}}} \, ; \, \ottnt{e_{{\mathrm{2}}}} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e'_{{\mathrm{1}}}} \, ; \, \ottnt{e_{{\mathrm{2}}}}}{ -{\ottdrulename{JR\_expr\_sequence\_ctx\_left}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXsequenceXXraise}[1]{\ottdrule[#1]{% -}{ -\vdash \, ( \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v} \, ) \, ; \, \ottnt{e} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v}}{ -{\ottdrulename{JR\_expr\_sequence\_raise}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXsequence}[1]{\ottdrule[#1]{% -}{ -\vdash \, \ottnt{v} \, ; \, \ottnt{e_{{\mathrm{2}}}} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottnt{e_{{\mathrm{2}}}}}{ -{\ottdrulename{JR\_expr\_sequence}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXifthenelseXXctx}[1]{\ottdrule[#1]{% -\ottpremise{\vdash \, \ottnt{e_{{\mathrm{1}}}} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e'_{{\mathrm{1}}}}}% -}{ -\vdash \, \ottkw{if} \, \ottnt{e_{{\mathrm{1}}}} \, \ottkw{then} \, \ottnt{e_{{\mathrm{2}}}} \, \ottkw{else} \, \ottnt{e_{{\mathrm{3}}}} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottkw{if} \, \ottnt{e'_{{\mathrm{1}}}} \, \ottkw{then} \, \ottnt{e_{{\mathrm{2}}}} \, \ottkw{else} \, \ottnt{e_{{\mathrm{3}}}}}{ -{\ottdrulename{JR\_expr\_ifthenelse\_ctx}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXifXXraise}[1]{\ottdrule[#1]{% -}{ -\vdash \, \ottkw{if} \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v} \, \ottkw{then} \, \ottnt{e_{{\mathrm{1}}}} \, \ottkw{else} \, \ottnt{e_{{\mathrm{2}}}} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v}}{ -{\ottdrulename{JR\_expr\_if\_raise}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXifthenelseXXtrue}[1]{\ottdrule[#1]{% -}{ -\vdash \, \ottkw{if} \, \ottkw{true} \, \ottkw{then} \, \ottnt{e_{{\mathrm{2}}}} \, \ottkw{else} \, \ottnt{e_{{\mathrm{3}}}} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottnt{e_{{\mathrm{2}}}}}{ -{\ottdrulename{JR\_expr\_ifthenelse\_true}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXifthenelseXXfalse}[1]{\ottdrule[#1]{% -}{ -\vdash \, \ottkw{if} \, \ottkw{false} \, \ottkw{then} \, \ottnt{e_{{\mathrm{2}}}} \, \ottkw{else} \, \ottnt{e_{{\mathrm{3}}}} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottnt{e_{{\mathrm{3}}}}}{ -{\ottdrulename{JR\_expr\_ifthenelse\_false}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXmatchXXctx}[1]{\ottdrule[#1]{% -\ottpremise{\vdash \, \ottnt{e} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e'}}% -}{ -\vdash \, \ottkw{match} \, \ottnt{e} \, \ottkw{with} \, \ottnt{pattern\_matching} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottkw{match} \, \ottnt{e'} \, \ottkw{with} \, \ottnt{pattern\_matching}}{ -{\ottdrulename{JR\_expr\_match\_ctx}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXmatchXXraise}[1]{\ottdrule[#1]{% -}{ -\vdash \, \ottkw{match} \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v} \, \ottkw{with} \, \ottnt{pattern\_matching} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v}}{ -{\ottdrulename{JR\_expr\_match\_raise}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXmatchXXstep}[1]{\ottdrule[#1]{% -\ottpremise{\vdash \, \ottnt{v} \, \ottkw{with} \, \ottnt{pattern\_matching} \, \longrightarrow \, \ottnt{pattern\_matching'}}% -}{ -\vdash \, \ottkw{match} \, \ottnt{v} \, \ottkw{with} \, \ottnt{pattern\_matching} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottkw{match} \, \ottnt{v} \, \ottkw{with} \, \ottnt{pattern\_matching'}}{ -{\ottdrulename{JR\_expr\_match\_step}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXmatchXXsuccess}[1]{\ottdrule[#1]{% -\ottpremise{\vdash \, \ottnt{v} \, \ottkw{with} \, \ottnt{pattern\_matching} \, \longrightarrow \, \ottnt{e'}}% -}{ -\vdash \, \ottkw{match} \, \ottnt{v} \, \ottkw{with} \, \ottnt{pattern\_matching} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottnt{e'}}{ -{\ottdrulename{JR\_expr\_match\_success}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXand}[1]{\ottdrule[#1]{% -}{ -\vdash \, \ottnt{e_{{\mathrm{1}}}} \, \ottkw{\&\&} \, \ottnt{e_{{\mathrm{2}}}} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottkw{if} \, \ottnt{e_{{\mathrm{1}}}} \, \ottkw{then} \, \ottnt{e_{{\mathrm{2}}}} \, \ottkw{else} \, \ottkw{false}}{ -{\ottdrulename{JR\_expr\_and}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXor}[1]{\ottdrule[#1]{% -}{ -\vdash \, \ottnt{e_{{\mathrm{1}}}} \, \ottkw{\mbox{$\mid$}\mbox{$\mid$}} \, \ottnt{e_{{\mathrm{2}}}} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottkw{if} \, \ottnt{e_{{\mathrm{1}}}} \, \ottkw{then} \, \ottkw{true} \, \ottkw{else} \, \ottnt{e_{{\mathrm{2}}}}}{ -{\ottdrulename{JR\_expr\_or}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXwhile}[1]{\ottdrule[#1]{% -}{ -\vdash \, \ottkw{while} \, \ottnt{e_{{\mathrm{1}}}} \, \ottkw{do} \, \ottnt{e_{{\mathrm{2}}}} \, \ottkw{done} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottkw{if} \, \ottnt{e_{{\mathrm{1}}}} \, \ottkw{then} \, ( \, \ottnt{e_{{\mathrm{2}}}} \, ; \, \ottkw{while} \, \ottnt{e_{{\mathrm{1}}}} \, \ottkw{do} \, \ottnt{e_{{\mathrm{2}}}} \, \ottkw{done} \, )}{ -{\ottdrulename{JR\_expr\_while}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXforXXctxOne}[1]{\ottdrule[#1]{% -\ottpremise{\vdash \, \ottnt{e_{{\mathrm{1}}}} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e'_{{\mathrm{1}}}}}% -}{ -\vdash \, \ottkw{for} \, \ottnt{x} \, = \, \ottnt{e_{{\mathrm{1}}}} \, \ottkw{\relax{\sf[}down{\sf]}to} \, \ottnt{e_{{\mathrm{2}}}} \, \ottkw{do} \, \ottnt{e_{{\mathrm{3}}}} \, \ottkw{done} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottkw{for} \, \ottnt{x} \, = \, \ottnt{e'_{{\mathrm{1}}}} \, \ottkw{\relax{\sf[}down{\sf]}to} \, \ottnt{e_{{\mathrm{2}}}} \, \ottkw{do} \, \ottnt{e_{{\mathrm{3}}}} \, \ottkw{done}}{ -{\ottdrulename{JR\_expr\_for\_ctx1}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXforXXraiseOne}[1]{\ottdrule[#1]{% -}{ -\vdash \, \ottkw{for} \, \ottnt{x} \, = \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v} \, \ottkw{\relax{\sf[}down{\sf]}to} \, \ottnt{e_{{\mathrm{2}}}} \, \ottkw{do} \, \ottnt{e_{{\mathrm{3}}}} \, \ottkw{done} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v}}{ -{\ottdrulename{JR\_expr\_for\_raise1}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXforXXctxTwo}[1]{\ottdrule[#1]{% -\ottpremise{\vdash \, \ottnt{e_{{\mathrm{2}}}} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e'_{{\mathrm{2}}}}}% -}{ -\vdash \, \ottkw{for} \, \ottnt{x} \, = \, \ottnt{v_{{\mathrm{1}}}} \, \ottkw{\relax{\sf[}down{\sf]}to} \, \ottnt{e_{{\mathrm{2}}}} \, \ottkw{do} \, \ottnt{e_{{\mathrm{3}}}} \, \ottkw{done} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottkw{for} \, \ottnt{x} \, = \, \ottnt{v_{{\mathrm{1}}}} \, \ottkw{\relax{\sf[}down{\sf]}to} \, \ottnt{e'_{{\mathrm{2}}}} \, \ottkw{do} \, \ottnt{e_{{\mathrm{3}}}} \, \ottkw{done}}{ -{\ottdrulename{JR\_expr\_for\_ctx2}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXforXXraiseTwo}[1]{\ottdrule[#1]{% -}{ -\vdash \, \ottkw{for} \, \ottnt{x} \, = \, \ottnt{v} \, \ottkw{\relax{\sf[}down{\sf]}to} \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v'} \, \ottkw{do} \, \ottnt{e_{{\mathrm{3}}}} \, \ottkw{done} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v'}}{ -{\ottdrulename{JR\_expr\_for\_raise2}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXforXXtoXXdo}[1]{\ottdrule[#1]{% -\ottpremise{ \dot{n}_{{\mathrm{1}}} \stackrel\centerdot\leq \dot{n}_{{\mathrm{2}}} }% -}{ -\vdash \, \ottkw{for} \, \ottnt{x} \, = \, \dot{n}_{{\mathrm{1}}} \, \ottkw{to} \, \dot{n}_{{\mathrm{2}}} \, \ottkw{do} \, \ottnt{e} \, \ottkw{done} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, \ottkw{let} \, \ottnt{x} \, = \, \dot{n}_{{\mathrm{1}}} \, \ottkw{in} \, \ottnt{e} \, ) \, ; \, \ottkw{for} \, \ottnt{x} \, = \, \dot{n}_{{\mathrm{1}}} \stackrel\centerdot+ 1 \, \ottkw{to} \, \dot{n}_{{\mathrm{2}}} \, \ottkw{do} \, \ottnt{e} \, \ottkw{done}}{ -{\ottdrulename{JR\_expr\_for\_to\_do}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXforXXtoXXdone}[1]{\ottdrule[#1]{% -\ottpremise{ \dot{n}_{{\mathrm{1}}} \stackrel\centerdot > \dot{n}_{{\mathrm{2}}} }% -}{ -\vdash \, \ottkw{for} \, \ottnt{x} \, = \, \dot{n}_{{\mathrm{1}}} \, \ottkw{to} \, \dot{n}_{{\mathrm{2}}} \, \ottkw{do} \, \ottnt{e} \, \ottkw{done} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottkw{()}}{ -{\ottdrulename{JR\_expr\_for\_to\_done}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXforXXdowntoXXdo}[1]{\ottdrule[#1]{% -\ottpremise{ \dot{n}_{{\mathrm{2}}} \stackrel\centerdot\leq \dot{n}_{{\mathrm{1}}} }% -}{ -\vdash \, \ottkw{for} \, \ottnt{x} \, = \, \dot{n}_{{\mathrm{1}}} \, \ottkw{downto} \, \dot{n}_{{\mathrm{2}}} \, \ottkw{do} \, \ottnt{e} \, \ottkw{done} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, \ottkw{let} \, \ottnt{x} \, = \, \dot{n}_{{\mathrm{1}}} \, \ottkw{in} \, \ottnt{e} \, ) \, ; \, \ottkw{for} \, \ottnt{x} \, = \, \dot{n}_{{\mathrm{1}}} \stackrel\centerdot- 1 \, \ottkw{downto} \, \dot{n}_{{\mathrm{2}}} \, \ottkw{do} \, \ottnt{e} \, \ottkw{done}}{ -{\ottdrulename{JR\_expr\_for\_downto\_do}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXforXXdowntoXXdone}[1]{\ottdrule[#1]{% -\ottpremise{ \dot{n}_{{\mathrm{2}}} \stackrel\centerdot > \dot{n}_{{\mathrm{1}}} }% -}{ -\vdash \, \ottkw{for} \, \ottnt{x} \, = \, \dot{n}_{{\mathrm{1}}} \, \ottkw{downto} \, \dot{n}_{{\mathrm{2}}} \, \ottkw{do} \, \ottnt{e} \, \ottkw{done} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottkw{()}}{ -{\ottdrulename{JR\_expr\_for\_downto\_done}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXtryXXctx}[1]{\ottdrule[#1]{% -\ottpremise{\vdash \, \ottnt{e} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e'}}% -}{ -\vdash \, \ottkw{try} \, \ottnt{e} \, \ottkw{with} \, \ottnt{pattern\_matching} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottkw{try} \, \ottnt{e'} \, \ottkw{with} \, \ottnt{pattern\_matching}}{ -{\ottdrulename{JR\_expr\_try\_ctx}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXtryXXreturn}[1]{\ottdrule[#1]{% -}{ -\vdash \, \ottkw{try} \, \ottnt{v} \, \ottkw{with} \, \ottnt{pattern\_matching} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottnt{v}}{ -{\ottdrulename{JR\_expr\_try\_return}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXtryXXcatch}[1]{\ottdrule[#1]{% -}{ -\vdash \, \ottkw{try} \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v} \, \ottkw{with} \, \ottnt{pat\_exp_{{\mathrm{1}}}} \, \ottkw{\mbox{$\mid$}} \, ... \, \ottkw{\mbox{$\mid$}} \, \ottnt{pat\_exp_{\ottmv{n}}} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottkw{match} \, \ottnt{v} \, \ottkw{with} \, \ottnt{pat\_exp_{{\mathrm{1}}}} \, \ottkw{\mbox{$\mid$}} \, ... \, \ottkw{\mbox{$\mid$}} \, \ottnt{pat\_exp_{\ottmv{n}}} \, \ottkw{\mbox{$\mid$}} \, \ottkw{\_} \, \rightarrow \, ( \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v} \, )}{ -{\ottdrulename{JR\_expr\_try\_catch}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXtupleXXctx}[1]{\ottdrule[#1]{% -\ottpremise{\vdash \, \ottnt{e} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e'}}% -}{ -\vdash \, \ottnt{e_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{e_{\ottmv{m}}} \, , \, \ottnt{e} \, , \, \ottnt{v_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{v_{\ottmv{n}}} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{e_{\ottmv{m}}} \, , \, \ottnt{e'} \, , \, \ottnt{v_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{v_{\ottmv{n}}}}{ -{\ottdrulename{JR\_expr\_tuple\_ctx}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXtupleXXraise}[1]{\ottdrule[#1]{% -}{ -\vdash \, \ottnt{e_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{e_{\ottmv{m}}} \, , \, ( \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v} \, ) \, , \, \ottnt{v_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{v_{\ottmv{n}}} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v}}{ -{\ottdrulename{JR\_expr\_tuple\_raise}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXconstrXXctx}[1]{\ottdrule[#1]{% -\ottpremise{\vdash \, \ottnt{e} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e'}}% -}{ -\vdash \, \ottnt{constr} \, ( \, \ottnt{e_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{e_{\ottmv{m}}} \, , \, \ottnt{e} \, , \, \ottnt{v_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{v_{\ottmv{n}}} \, ) \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{constr} \, ( \, \ottnt{e_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{e_{\ottmv{m}}} \, , \, \ottnt{e'} \, , \, \ottnt{v_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{v_{\ottmv{n}}} \, )}{ -{\ottdrulename{JR\_expr\_constr\_ctx}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXconstrXXraise}[1]{\ottdrule[#1]{% -}{ -\vdash \, \ottnt{constr} \, ( \, \ottnt{e_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{e_{\ottmv{m}}} \, , \, ( \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v} \, ) \, , \, \ottnt{v_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{v_{\ottmv{n}}} \, ) \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v}}{ -{\ottdrulename{JR\_expr\_constr\_raise}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXconsXXctxOne}[1]{\ottdrule[#1]{% -\ottpremise{\vdash \, \ottnt{e} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e'}}% -}{ -\vdash \, \ottnt{e_{{\mathrm{0}}}} \, \ottkw{::} \, \ottnt{e} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e_{{\mathrm{0}}}} \, \ottkw{::} \, \ottnt{e'}}{ -{\ottdrulename{JR\_expr\_cons\_ctx1}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXconsXXraiseOne}[1]{\ottdrule[#1]{% -}{ -\vdash \, \ottnt{e} \, \ottkw{::} \, ( \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v} \, ) \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v}}{ -{\ottdrulename{JR\_expr\_cons\_raise1}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXconsXXctxTwo}[1]{\ottdrule[#1]{% -\ottpremise{\vdash \, \ottnt{e} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e'}}% -}{ -\vdash \, \ottnt{e} \, \ottkw{::} \, \ottnt{v} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e'} \, \ottkw{::} \, \ottnt{v}}{ -{\ottdrulename{JR\_expr\_cons\_ctx2}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXconsXXraiseTwo}[1]{\ottdrule[#1]{% -}{ -\vdash \, ( \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v} \, ) \, \ottkw{::} \, \ottnt{v'} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v}}{ -{\ottdrulename{JR\_expr\_cons\_raise2}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXrecordXXctx}[1]{\ottdrule[#1]{% -\ottpremise{\vdash \, \ottnt{expr} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{expr'}}% -}{ -\vdash \, \ottkw{\{} \, \ottnt{fn_{{\mathrm{1}}}} \, = \, \ottnt{e_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn_{\ottmv{m}}} \, = \, \ottnt{e_{\ottmv{m}}} \, ; \, \ottnt{field\_name} \, = \, \ottnt{expr} \, ; \, \ottnt{fn'_{{\mathrm{1}}}} \, = \, \ottnt{v_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn'_{\ottmv{n}}} \, = \, \ottnt{v_{\ottmv{n}}} \, \ottkw{\}} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottkw{\{} \, \ottnt{fn_{{\mathrm{1}}}} \, = \, \ottnt{e_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn_{\ottmv{m}}} \, = \, \ottnt{e_{\ottmv{m}}} \, ; \, \ottnt{field\_name} \, = \, \ottnt{expr'} \, ; \, \ottnt{fn'_{{\mathrm{1}}}} \, = \, \ottnt{v_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn'_{\ottmv{n}}} \, = \, \ottnt{v_{\ottmv{n}}} \, \ottkw{\}}}{ -{\ottdrulename{JR\_expr\_record\_ctx}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXrecordXXraise}[1]{\ottdrule[#1]{% -}{ -\vdash \, \ottkw{\{} \, \ottnt{fn_{{\mathrm{1}}}} \, = \, \ottnt{e_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn_{\ottmv{m}}} \, = \, \ottnt{e_{\ottmv{m}}} \, ; \, \ottnt{fn} \, = \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v} \, ; \, \ottnt{fn'_{{\mathrm{1}}}} \, = \, \ottnt{v_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn'_{\ottmv{n}}} \, = \, \ottnt{v_{\ottmv{n}}} \, \ottkw{\}} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v}}{ -{\ottdrulename{JR\_expr\_record\_raise}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXrecordXXwithXXctxOne}[1]{\ottdrule[#1]{% -\ottpremise{\vdash \, \ottnt{e} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e'}}% -}{ -\vdash \, \ottkw{\{} \, \ottnt{v} \, \ottkw{with} \, \ottnt{fn_{{\mathrm{1}}}} \, = \, \ottnt{e_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn_{\ottmv{m}}} \, = \, \ottnt{e_{\ottmv{m}}} \, ; \, \ottnt{field\_name} \, = \, \ottnt{e} \, ; \, \ottnt{fn'_{{\mathrm{1}}}} \, = \, \ottnt{v_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn'_{\ottmv{n}}} \, = \, \ottnt{v_{\ottmv{n}}} \, \ottkw{\}} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottkw{\{} \, \ottnt{v} \, \ottkw{with} \, \ottnt{fn_{{\mathrm{1}}}} \, = \, \ottnt{e_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn_{\ottmv{m}}} \, = \, \ottnt{e_{\ottmv{m}}} \, ; \, \ottnt{field\_name} \, = \, \ottnt{e'} \, ; \, \ottnt{fn'_{{\mathrm{1}}}} \, = \, \ottnt{v_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn'_{\ottmv{n}}} \, = \, \ottnt{v_{\ottmv{n}}} \, \ottkw{\}}}{ -{\ottdrulename{JR\_expr\_record\_with\_ctx1}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXrecordXXwithXXraiseOne}[1]{\ottdrule[#1]{% -}{ -\vdash \, \ottkw{\{} \, \ottnt{v'} \, \ottkw{with} \, \ottnt{fn_{{\mathrm{1}}}} \, = \, \ottnt{e_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn_{\ottmv{m}}} \, = \, \ottnt{e_{\ottmv{m}}} \, ; \, \ottnt{fn} \, = \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v} \, ; \, \ottnt{fn'_{{\mathrm{1}}}} \, = \, \ottnt{v_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn'_{\ottmv{n}}} \, = \, \ottnt{v_{\ottmv{n}}} \, \ottkw{\}} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v}}{ -{\ottdrulename{JR\_expr\_record\_with\_raise1}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXrecordXXwithXXctxTwo}[1]{\ottdrule[#1]{% -\ottpremise{\vdash \, \ottnt{e} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e'}}% -}{ -\vdash \, \ottkw{\{} \, \ottnt{e} \, \ottkw{with} \, \ottnt{field\_name_{{\mathrm{1}}}} \, = \, \ottnt{e_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{field\_name_{\ottmv{n}}} \, = \, \ottnt{e_{\ottmv{n}}} \, \ottkw{\}} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottkw{\{} \, \ottnt{e'} \, \ottkw{with} \, \ottnt{field\_name_{{\mathrm{1}}}} \, = \, \ottnt{e_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{field\_name_{\ottmv{n}}} \, = \, \ottnt{e_{\ottmv{n}}} \, \ottkw{\}}}{ -{\ottdrulename{JR\_expr\_record\_with\_ctx2}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXrecordXXraiseXXctxTwo}[1]{\ottdrule[#1]{% -}{ -\vdash \, \ottkw{\{} \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v} \, \ottkw{with} \, \ottnt{field\_name_{{\mathrm{1}}}} \, = \, \ottnt{e_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{field\_name_{\ottmv{n}}} \, = \, \ottnt{e_{\ottmv{n}}} \, \ottkw{\}} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v}}{ -{\ottdrulename{JR\_expr\_record\_raise\_ctx2}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXrecordXXwithXXmany}[1]{\ottdrule[#1]{% -\ottpremise{\ottkw{length} \, ( \, \ottnt{v''_{{\mathrm{1}}}} \, ) \, ... \, ( \, \ottnt{v''_{\ottmv{l}}} \, ) \, \geq \, 1}% -\ottpremise{\ottnt{field\_name} \, \notin \, \ottnt{fn_{{\mathrm{1}}}} \, ... \, \ottnt{fn_{\ottmv{m}}}}% -}{ -\vdash \, \ottkw{\{} \, \ottkw{\{} \, \ottnt{fn_{{\mathrm{1}}}} \, = \, \ottnt{v_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn_{\ottmv{m}}} \, = \, \ottnt{v_{\ottmv{m}}} \, ; \, \ottnt{field\_name} \, = \, \ottnt{v} \, ; \, \ottnt{fn'_{{\mathrm{1}}}} \, = \, \ottnt{v'_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn'_{\ottmv{n}}} \, = \, \ottnt{v'_{\ottmv{n}}} \, \ottkw{\}} \, \ottkw{with} \, \ottnt{field\_name} \, = \, \ottnt{v'} \, ; \, \ottnt{fn''_{{\mathrm{1}}}} \, = \, \ottnt{v''_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn''_{\ottmv{l}}} \, = \, \ottnt{v''_{\ottmv{l}}} \, \ottkw{\}} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottkw{\{} \, \ottkw{\{} \, \ottnt{fn_{{\mathrm{1}}}} \, = \, \ottnt{v_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn_{\ottmv{m}}} \, = \, \ottnt{v_{\ottmv{m}}} \, ; \, \ottnt{field\_name} \, = \, \ottnt{v'} \, ; \, \ottnt{fn'_{{\mathrm{1}}}} \, = \, \ottnt{v'_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn'_{\ottmv{n}}} \, = \, \ottnt{v'_{\ottmv{n}}} \, \ottkw{\}} \, \ottkw{with} \, \ottnt{fn''_{{\mathrm{1}}}} \, = \, \ottnt{v''_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn''_{\ottmv{l}}} \, = \, \ottnt{v''_{\ottmv{l}}} \, \ottkw{\}}}{ -{\ottdrulename{JR\_expr\_record\_with\_many}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXrecordXXwithXXOne}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{field\_name} \, \notin \, \ottnt{fn_{{\mathrm{1}}}} \, ... \, \ottnt{fn_{\ottmv{m}}}}% -}{ -\vdash \, \ottkw{\{} \, \ottkw{\{} \, \ottnt{fn_{{\mathrm{1}}}} \, = \, \ottnt{v_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn_{\ottmv{m}}} \, = \, \ottnt{v_{\ottmv{m}}} \, ; \, \ottnt{field\_name} \, = \, \ottnt{v} \, ; \, \ottnt{fn'_{{\mathrm{1}}}} \, = \, \ottnt{v'_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn'_{\ottmv{n}}} \, = \, \ottnt{v'_{\ottmv{n}}} \, \ottkw{\}} \, \ottkw{with} \, \ottnt{field\_name} \, = \, \ottnt{v'} \, \ottkw{\}} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottkw{\{} \, \ottnt{fn_{{\mathrm{1}}}} \, = \, \ottnt{v_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn_{\ottmv{m}}} \, = \, \ottnt{v_{\ottmv{m}}} \, ; \, \ottnt{field\_name} \, = \, \ottnt{v'} \, ; \, \ottnt{fn'_{{\mathrm{1}}}} \, = \, \ottnt{v'_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn'_{\ottmv{n}}} \, = \, \ottnt{v'_{\ottmv{n}}} \, \ottkw{\}}}{ -{\ottdrulename{JR\_expr\_record\_with\_1}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXrecordXXaccessXXctx}[1]{\ottdrule[#1]{% -\ottpremise{\vdash \, \ottnt{e} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e'}}% -}{ -\vdash \, \ottnt{e} \, . \, \ottnt{field\_name} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e'} \, . \, \ottnt{field\_name}}{ -{\ottdrulename{JR\_expr\_record\_access\_ctx}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXrecordXXaccessXXraise}[1]{\ottdrule[#1]{% -}{ -\vdash \, ( \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v} \, ) \, . \, \ottnt{field\_name} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v}}{ -{\ottdrulename{JR\_expr\_record\_access\_raise}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXrecordXXaccess}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{field\_name} \, \notin \, \ottnt{fn_{{\mathrm{1}}}} \, ... \, \ottnt{fn_{\ottmv{n}}}}% -}{ -\vdash \, \ottkw{\{} \, \ottnt{fn_{{\mathrm{1}}}} \, = \, \ottnt{v_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn_{\ottmv{n}}} \, = \, \ottnt{v_{\ottmv{n}}} \, ; \, \ottnt{field\_name} \, = \, \ottnt{v} \, ; \, \ottnt{fn'_{{\mathrm{1}}}} \, = \, \ottnt{v'_{{\mathrm{1}}}} \, ; \, ... \, ; \, \ottnt{fn'_{\ottmv{m}}} \, = \, \ottnt{v'_{\ottmv{m}}} \, \ottkw{\}} \, . \, \ottnt{field\_name} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottnt{v}}{ -{\ottdrulename{JR\_expr\_record\_access}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXassertXXctx}[1]{\ottdrule[#1]{% -\ottpremise{\vdash \, \ottnt{e} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e'}}% -}{ -\vdash \, \ottkw{assert} \, \ottnt{e} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottkw{assert} \, \ottnt{e'}}{ -{\ottdrulename{JR\_expr\_assert\_ctx}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXassertXXraise}[1]{\ottdrule[#1]{% -}{ -\vdash \, \ottkw{assert} \, ( \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v} \, ) \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v}}{ -{\ottdrulename{JR\_expr\_assert\_raise}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXassertXXtrue}[1]{\ottdrule[#1]{% -}{ -\vdash \, \ottkw{assert} \, \ottkw{true} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottkw{()}}{ -{\ottdrulename{JR\_expr\_assert\_true}}{} -}} - - -\newcommand{\ottdruleJRXXexprXXassertXXfalse}[1]{\ottdrule[#1]{% -}{ -\vdash \, \ottkw{assert} \, \ottkw{false} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottkw{Assert\_failure}}{ -{\ottdrulename{JR\_expr\_assert\_false}}{} -}} - -\newcommand{\ottdefnJRXXexpr}[1]{\begin{ottdefnblock}[#1]{$\vdash \, \ottnt{expr} \, \stackrel{\ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{expr'}$}{\ottcom{Expression evaluation}} -\ottusedrule{\ottdruleJRXXexprXXuprim{}} -\ottusedrule{\ottdruleJRXXexprXXbprim{}} -\ottusedrule{\ottdruleJRXXexprXXtypedXXctx{}} -\ottusedrule{\ottdruleJRXXexprXXapplyXXctxXXarg{}} -\ottusedrule{\ottdruleJRXXexprXXapplyXXraiseOne{}} -\ottusedruleC{\ottdruleJRXXexprXXapplyXXctxXXfun{}} -\ottusedrule{\ottdruleJRXXexprXXapplyXXraiseTwo{}} -\ottusedrule{\ottdruleJRXXexprXXapply{}} -\ottusedrule{\ottdruleJRXXexprXXletXXctx{}} -\ottusedrule{\ottdruleJRXXexprXXletXXraise{}} -\ottusedrule{\ottdruleJRXXexprXXletXXsubst{}} -\ottusedruleC{\ottdruleJRXXexprXXletXXfail{}} -\ottusedrule{\ottdruleJRXXexprXXletrec{}} -\ottusedrule{\ottdruleJRXXexprXXsequenceXXctxXXleft{}} -\ottusedrule{\ottdruleJRXXexprXXsequenceXXraise{}} -\ottusedrule{\ottdruleJRXXexprXXsequence{}} -\ottusedrule{\ottdruleJRXXexprXXifthenelseXXctx{}} -\ottusedrule{\ottdruleJRXXexprXXifXXraise{}} -\ottusedrule{\ottdruleJRXXexprXXifthenelseXXtrue{}} -\ottusedrule{\ottdruleJRXXexprXXifthenelseXXfalse{}} -\ottusedrule{\ottdruleJRXXexprXXmatchXXctx{}} -\ottusedrule{\ottdruleJRXXexprXXmatchXXraise{}} -\ottusedrule{\ottdruleJRXXexprXXmatchXXstep{}} -\ottusedrule{\ottdruleJRXXexprXXmatchXXsuccess{}} -\ottusedrule{\ottdruleJRXXexprXXand{}} -\ottusedrule{\ottdruleJRXXexprXXor{}} -\ottusedrule{\ottdruleJRXXexprXXwhile{}} -\ottusedrule{\ottdruleJRXXexprXXforXXctxOne{}} -\ottusedrule{\ottdruleJRXXexprXXforXXraiseOne{}} -\ottusedrule{\ottdruleJRXXexprXXforXXctxTwo{}} -\ottusedrule{\ottdruleJRXXexprXXforXXraiseTwo{}} -\ottusedrule{\ottdruleJRXXexprXXforXXtoXXdo{}} -\ottusedrule{\ottdruleJRXXexprXXforXXtoXXdone{}} -\ottusedrule{\ottdruleJRXXexprXXforXXdowntoXXdo{}} -\ottusedrule{\ottdruleJRXXexprXXforXXdowntoXXdone{}} -\ottusedrule{\ottdruleJRXXexprXXtryXXctx{}} -\ottusedrule{\ottdruleJRXXexprXXtryXXreturn{}} -\ottusedrule{\ottdruleJRXXexprXXtryXXcatch{}} -\ottusedrule{\ottdruleJRXXexprXXtupleXXctx{}} -\ottusedrule{\ottdruleJRXXexprXXtupleXXraise{}} -\ottusedrule{\ottdruleJRXXexprXXconstrXXctx{}} -\ottusedrule{\ottdruleJRXXexprXXconstrXXraise{}} -\ottusedrule{\ottdruleJRXXexprXXconsXXctxOne{}} -\ottusedrule{\ottdruleJRXXexprXXconsXXraiseOne{}} -\ottusedrule{\ottdruleJRXXexprXXconsXXctxTwo{}} -\ottusedrule{\ottdruleJRXXexprXXconsXXraiseTwo{}} -\ottbreakconclusionlinetrue -\ottusedrule{\ottdruleJRXXexprXXrecordXXctx{}} -\ottbreakconclusionlinefalse -\ottusedrule{\ottdruleJRXXexprXXrecordXXraise{}} -\ottbreakconclusionlinetrue -\ottusedrule{\ottdruleJRXXexprXXrecordXXwithXXctxOne{}} -\ottbreakconclusionlinefalse -\ottusedrule{\ottdruleJRXXexprXXrecordXXwithXXraiseOne{}} -\ottusedrule{\ottdruleJRXXexprXXrecordXXwithXXctxTwo{}} -\ottusedrule{\ottdruleJRXXexprXXrecordXXraiseXXctxTwo{}} -\ottbreakconclusionlinetrue -\ottusedrule{\ottdruleJRXXexprXXrecordXXwithXXmany{}} -\ottusedrule{\ottdruleJRXXexprXXrecordXXwithXXOne{}} -\ottbreakconclusionlinefalse -\ottusedrule{\ottdruleJRXXexprXXrecordXXaccessXXctx{}} -\ottusedrule{\ottdruleJRXXexprXXrecordXXaccessXXraise{}} -\ottusedrule{\ottdruleJRXXexprXXrecordXXaccess{}} -\ottusedrule{\ottdruleJRXXexprXXassertXXctx{}} -\ottusedrule{\ottdruleJRXXexprXXassertXXraise{}} -\ottusedrule{\ottdruleJRXXexprXXassertXXtrue{}} -\ottusedrule{\ottdruleJRXXexprXXassertXXfalse{}} -\end{ottdefnblock}} - - -\newcommand{\ottdefnsJred}{ -\ottdefnJRXXexpr{}} - - -% defns JRdefn -% defn Rdefn -\newcommand{\ottdruleJdefnXXletXXctx}[1]{\ottdrule[#1]{% -\ottpremise{\vdash \, \ottnt{e} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{e'}}% -}{ - \vdash \langle \ottnt{ds\_value} , \ottkw{let} \, \ottnt{pat} \, = \, \ottnt{e} \, \ottkw{;;} \, \ottnt{definitions} \rangle \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \langle \ottnt{ds\_value} , \ottkw{let} \, \ottnt{pat} \, = \, \ottnt{e'} \, \ottkw{;;} \, \ottnt{definitions} \rangle }{ -{\ottdrulename{Jdefn\_let\_ctx}}{} -}} - - -\newcommand{\ottdruleJdefnXXletXXraise}[1]{\ottdrule[#1]{% -}{ - \vdash \langle \ottnt{ds\_value} , \ottkw{let} \, \ottnt{pat} \, = \, ( \, \ottkw{\%prim} \, \ottkw{raise} \, ) \, \ottnt{v} \, \ottkw{;;} \, \ottnt{definitions} \rangle \stackrel{ }{\longrightarrow}\ottmaybebreakline \langle \ottnt{ds\_value} , \ottkw{(\%prim} \, \ottkw{raise)} \, \ottnt{v} \rangle }{ -{\ottdrulename{Jdefn\_let\_raise}}{} -}} - - -\newcommand{\ottdruleJdefnXXletXXmatch}[1]{\ottdrule[#1]{% -\ottpremise{\vdash \, \ottnt{v} \, \ottkw{matches} \, \ottnt{pat} \, \;\vartriangleright\;\ottmaybebreakline \, \{\!\!\{ \, \ottnt{x_{{\mathrm{1}}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{x_{\ottmv{m}}} \, \!\!\leftarrow\!\! \, \ottnt{v_{\ottmv{m}}} \, \}\!\!\}}% -}{ - \vdash \langle \ottnt{ds\_value} , \ottkw{let} \, \ottnt{pat} \, = \, \ottnt{v} \, \ottkw{;;} \, \ottnt{definitions} \rangle \stackrel{ }{\longrightarrow}\ottmaybebreakline \langle \ottnt{ds\_value} , \{\!\!\{ \, \ottnt{x_{{\mathrm{1}}}} \, \!\!\leftarrow\!\! \, \ottkw{remv\_tyvar} \, \ottnt{v_{{\mathrm{1}}}} \, , \, .. \, , \, \ottnt{x_{\ottmv{m}}} \, \!\!\leftarrow\!\! \, \ottkw{remv\_tyvar} \, \ottnt{v_{\ottmv{m}}} \, \}\!\!\} \, \ottnt{definitions} \rangle }{ -{\ottdrulename{Jdefn\_let\_match}}{} -}} - - -\newcommand{\ottdruleJdefnXXletXXnotXXmatch}[1]{\ottdrule[#1]{% -\ottpremise{ \neg( \ottnt{v} ~\ottkw{matches}~ \ottnt{pat} ) }% -}{ - \vdash \langle \ottnt{ds\_value} , \ottkw{let} \, \ottnt{pat} \, = \, \ottnt{v} \, \ottkw{;;} \, \ottnt{definitions} \rangle \stackrel{ }{\longrightarrow}\ottmaybebreakline \langle \ottnt{ds\_value} , \ottkw{(\%prim} \, \ottkw{raise)} \, \ottkw{Match\_failure} \rangle }{ -{\ottdrulename{Jdefn\_let\_not\_match}}{} -}} - - -\newcommand{\ottdruleJdefnXXletrec}[1]{\ottdrule[#1]{% -\ottpremise{ \ottnt{letrec\_bindings} = ( \ottnt{x_{{\mathrm{1}}}} \, = \, \ottkw{function} \, \ottnt{pattern\_matching_{{\mathrm{1}}}} \, \ottkw{and} \, ... \, \ottkw{and} \, \ottnt{x_{\ottmv{n}}} \, = \, \ottkw{function} \, \ottnt{pattern\_matching_{\ottmv{n}}} ) }% -\ottpremise{\ottkw{recfun} \, ( \, \ottnt{letrec\_bindings} \, , \, \ottnt{pattern\_matching_{{\mathrm{1}}}} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{e_{{\mathrm{1}}}} \quad ... \quad \ottkw{recfun} \, ( \, \ottnt{letrec\_bindings} \, , \, \ottnt{pattern\_matching_{\ottmv{n}}} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{e_{\ottmv{n}}}}% -}{ - \vdash \langle \ottnt{ds\_value} , \ottkw{let} \, \ottkw{rec} \, \ottnt{letrec\_bindings} \, \ottkw{;;} \, \ottnt{definitions} \rangle \stackrel{ }{\longrightarrow}\ottmaybebreakline \langle \ottnt{ds\_value} , \{\!\!\{ \, \ottnt{x_{{\mathrm{1}}}} \, \!\!\leftarrow\!\! \, \ottkw{remv\_tyvar} \, \ottnt{e_{{\mathrm{1}}}} \, , \, ... \, , \, \ottnt{x_{\ottmv{n}}} \, \!\!\leftarrow\!\! \, \ottkw{remv\_tyvar} \, \ottnt{e_{\ottmv{n}}} \, \}\!\!\} \, \ottnt{definitions} \rangle }{ -{\ottdrulename{Jdefn\_letrec}}{} -}} - - -\newcommand{\ottdruleJdefnXXtype}[1]{\ottdrule[#1]{% -}{ - \vdash \langle \ottnt{ds\_value} , \ottnt{type\_definition} \, \ottkw{;;} \, \ottnt{definitions} \rangle \stackrel{ }{\longrightarrow}\ottmaybebreakline \langle \ottnt{ds\_value} \, \ottkw{;;} \, \ottnt{type\_definition} , \ottnt{definitions} \rangle }{ -{\ottdrulename{Jdefn\_type}}{} -}} - - -\newcommand{\ottdruleJdefnXXexn}[1]{\ottdrule[#1]{% -}{ - \vdash \langle \ottnt{ds\_value} , \ottnt{exception\_definition} \, \ottkw{;;} \, \ottnt{definitions} \rangle \stackrel{ }{\longrightarrow}\ottmaybebreakline \langle \ottnt{ds\_value} \, \ottkw{;;} \, \ottnt{exception\_definition} , \ottnt{definitions} \rangle }{ -{\ottdrulename{Jdefn\_exn}}{} -}} - -\newcommand{\ottdefnJRdefn}[1]{\begin{ottdefnblock}[#1]{$ \vdash \langle \ottnt{definitions} , \ottnt{program} \rangle \stackrel{\ottnt{L} }{\longrightarrow}\ottmaybebreakline \langle \ottnt{definitions'} , \ottnt{program'} \rangle $}{\ottcom{Definition sequence evaluation}} -\ottusedrule{\ottdruleJdefnXXletXXctx{}} -\ottusedrule{\ottdruleJdefnXXletXXraise{}} -\ottusedrule{\ottdruleJdefnXXletXXmatch{}} -\ottusedrule{\ottdruleJdefnXXletXXnotXXmatch{}} -\ottusedrule{\ottdruleJdefnXXletrec{}} -\ottusedrule{\ottdruleJdefnXXtype{}} -\ottusedrule{\ottdruleJdefnXXexn{}} -\end{ottdefnblock}} - - -\newcommand{\ottdefnsJRdefn}{ -\ottdefnJRdefn{}} - - -% defns JSlookup -% defn lookup -\newcommand{\ottdruleJSstlookupXXrec}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{st} \, ( \, \ottmv{l} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{e'}}% -\ottpremise{\ottmv{l} \, \not = \, \ottmv{l'}}% -}{ -\ottnt{st} \, , \, \ottmv{l'} \, \mapsto \, \ottnt{e} \, ( \, \ottmv{l} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{e'}}{ -{\ottdrulename{JSstlookup\_rec}}{} -}} - - -\newcommand{\ottdruleJSstlookupXXfound}[1]{\ottdrule[#1]{% -}{ -\ottnt{st} \, , \, \ottmv{l} \, \mapsto \, \ottnt{e} \, ( \, \ottmv{l} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{e}}{ -{\ottdrulename{JSstlookup\_found}}{} -}} - -\newcommand{\ottdefnJSlookup}[1]{\begin{ottdefnblock}[#1]{$\ottnt{store} \, ( \, \ottmv{location} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{expr}$}{\ottcom{Store lookup}} -\ottusedrule{\ottdruleJSstlookupXXrec{}} -\ottusedrule{\ottdruleJSstlookupXXfound{}} -\end{ottdefnblock}} - - -\newcommand{\ottdefnsJSlookup}{ -\ottdefnJSlookup{}} - - -% defns JRstore -% defn store -\newcommand{\ottdruleJRstoreXXempty}[1]{\ottdrule[#1]{% -}{ -\vdash \, \ottnt{st} \, \stackrel{ }{\longrightarrow}\ottmaybebreakline \, \ottnt{st}}{ -{\ottdrulename{JRstore\_empty}}{} -}} - - -\newcommand{\ottdruleJRstoreXXlookup}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{st} \, ( \, \ottmv{l} \, ) \, \;\vartriangleright\;\ottmaybebreakline \, \ottnt{v}}% -}{ -\vdash \, \ottnt{st} \, \stackrel{ ! \, \ottmv{l} \, = \, \ottnt{v} }{\longrightarrow}\ottmaybebreakline \, \ottnt{st}}{ -{\ottdrulename{JRstore\_lookup}}{} -}} - - -\newcommand{\ottdruleJRstoreXXassign}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{st'} \, ( \, \ottmv{l} \, ) \, \ottkw{unallocated}}% -}{ -\vdash \, \ottnt{st} \, , \, \ottmv{l} \, \mapsto \, \ottnt{expr} \, , \, \ottnt{st'} \, \stackrel{ \ottmv{l} \, \ottkw{:=} \, \ottnt{v} }{\longrightarrow}\ottmaybebreakline \, \ottnt{st} \, , \, \ottmv{l} \, \mapsto \, \ottkw{remv\_tyvar} \, \ottnt{v} \, , \, \ottnt{st'}}{ -{\ottdrulename{JRstore\_assign}}{} -}} - - -\newcommand{\ottdruleJRstoreXXalloc}[1]{\ottdrule[#1]{% -\ottpremise{\ottnt{st} \, ( \, \ottmv{l} \, ) \, \ottkw{unallocated}}% -}{ -\vdash \, \ottnt{st} \, \stackrel{ \ottkw{ref} \, \ottnt{v} \, = \, \ottmv{l} }{\longrightarrow}\ottmaybebreakline \, \ottnt{st} \, , \, \ottmv{l} \, \mapsto \, \ottkw{remv\_tyvar} \, \ottnt{v}}{ -{\ottdrulename{JRstore\_alloc}}{} -}} - -\newcommand{\ottdefnJRstore}[1]{\begin{ottdefnblock}[#1]{$\vdash \, \ottnt{store} \, \stackrel{\ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{store'}$}{\ottcom{Store transition}} -\ottusedrule{\ottdruleJRstoreXXempty{}} -\ottusedrule{\ottdruleJRstoreXXlookup{}} -\ottusedrule{\ottdruleJRstoreXXassign{}} -\ottusedruleC{\ottdruleJRstoreXXalloc{}} -\end{ottdefnblock}} - - -\newcommand{\ottdefnsJRstore}{ -\ottdefnJRstore{}} - - -% defns JRtop -% defn top -\newcommand{\ottdruleJRtopXXdefs}[1]{\ottdrule[#1]{% -\ottpremise{\vdash \, \ottnt{store} \, \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \, \ottnt{store'}}% -\ottpremise{ \vdash \langle \ottnt{definitions\_value} , \ottnt{program} \rangle \stackrel{ \ottnt{L} }{\longrightarrow}\ottmaybebreakline \langle \ottnt{definitions} , \ottnt{program'} \rangle }% -}{ - \vdash \langle \ottnt{definitions\_value} , \ottnt{program} , \ottnt{store} \rangle \longrightarrow \langle \ottnt{definitions} , \ottnt{program'} , \ottnt{store'} \rangle }{ -{\ottdrulename{JRtop\_defs}}{} -}} - -\newcommand{\ottdefnJRtop}[1]{\begin{ottdefnblock}[#1]{$ \vdash \langle \ottnt{definitions} , \ottnt{program} , \ottnt{store} \rangle \longrightarrow \langle \ottnt{definitions'} , \ottnt{program'} , \ottnt{store'} \rangle $}{\ottcom{Top-level reduction}} -\ottusedruleC{\ottdruleJRtopXXdefs{}} -\end{ottdefnblock}} - - -\newcommand{\ottdefnsJRtop}{ -\ottdefnJRtop{}} - -% defns Jdbehaviour -% defn dbehaviour -\newcommand{\ottdruleJRBXXbehaviourXXvalue}[1]{\ottdrule[#1]{% -}{ - \vdash \langle \ottnt{definitions\_value} , , \ottnt{store} \rangle \ottkw{behaves} }{ -{\ottdrulename{JRB\_behaviour\_value}}{} -}} - - -\newcommand{\ottdruleJRBXXbehaviourXXreduces}[1]{\ottdrule[#1]{% -\ottpremise{ \vdash \langle \ottnt{definitions\_value} , \ottnt{program} , \ottnt{store} \rangle \longrightarrow \langle \ottnt{definitions'} , \ottnt{program'} , \ottnt{store'} \rangle }% -}{ - \vdash \langle \ottnt{definitions\_value} , \ottnt{program} , \ottnt{store} \rangle \ottkw{behaves} }{ -{\ottdrulename{JRB\_behaviour\_reduces}}{} -}} - - -\newcommand{\ottdruleJRBXXbehaviourXXraises}[1]{\ottdrule[#1]{% -}{ - \vdash \langle \ottnt{definitions\_value} , \ottkw{(\%prim} \, \ottkw{raise)} \, \ottnt{v} , \ottnt{store} \rangle \ottkw{behaves} }{ -{\ottdrulename{JRB\_behaviour\_raises}}{} -}} - -\newcommand{\ottdefnJRBXXdbehaviour}[1]{\begin{ottdefnblock}[#1]{$ \vdash \langle \ottnt{definitions} , \ottnt{program} , \ottnt{store} \rangle \ottkw{behaves} $}{\ottcom{structure body behaviour}} -\ottusedrule{\ottdruleJRBXXbehaviourXXvalue{}} -\ottusedrule{\ottdruleJRBXXbehaviourXXreduces{}} -\ottusedrule{\ottdruleJRBXXbehaviourXXraises{}} - -\end{ottdefnblock}} - - -\newcommand{\ottdefnsJdbehaviour}{ -\ottdefnJRBXXdbehaviour{}} - -\begin{document} -%\scalebox{.25}{ -%\framebox{ -%\begin{minipage}{24cm} -%\section{Type system} -%\ottdefnsJdomEB -%\ottdefnsJdomE -%\ottdefnsJlookup -%\ottdefnsJidx -%\ottdefnsJTtpsXXkind -%\ottdefnsJTEok -%\ottdefnsJTeq -%\ottdefnsJTidxsub -%\ottdefnsJTinst -%\end{minipage} -%}} -% -%\scalebox{.25}{ -%\framebox{ -%\begin{minipage}{29.7cm} -%\ottdefnsJTinstXXnamed -%\ottdefnsJTinstXXany -%\ottdefnsJTval -%\ottdefnsJTfield -%\ottdefnsJTconstrXXp -%\ottdefnsJTconstrXXc -%\ottdefnsJTconst -%\ottdefnsJTpat -%\ottdefnsJTuprim -%\ottdefnsJTbprim -%\ottdefnsJTe -%\ottdefnsJTconstrXXdecl -%\ottdefnsJTfieldXXdecl -%\ottdefnsJTtypedef -%\ottdefnsJTtypeXXdefinition -%\ottdefnsJTdefinition -%\ottdefnsJTdefinitions -%\ottdefnsJTprog -%\ottdefnsJTstore -%\ottdefnsJTtop -%\ottdefnsJTLin -%\ottdefnsJTLout -%\end{minipage} -%}} - -\newcommand{\OCL}{OCaml$_\textit{light}$} - -\newenvironment{vtightlist}{\begin{list}{$\bullet\;$}{\setlength{\topsep}{0.2ex}\setlength{\itemsep}{0.0ex}\setlength{\labelsep}{0.0ex}\setlength{\labelwidth}{5mm}\setlength{\parsep}{0.0ex}\setlength{\itemindent}{0mm}\setlength{\leftmargin}{5mm}}}{\end{list}} - -\newenvironment{mtightlist}{\begin{list}{$\bullet\;$}{\setlength{\topsep}{0.8ex}\setlength{\itemsep}{0.6ex}\setlength{\labelsep}{0.0ex}\setlength{\labelwidth}{5mm}\setlength{\parsep}{0.6ex}\setlength{\itemindent}{0mm}\setlength{\leftmargin}{5mm}}}{\end{list}} - -\newrgbcolor{pmc}{.0 .5 .5} - - -\hspace*{6cm} -{\pmc\sf\Large OCaml$_{\textit{light}}$ in Ott \hfill \large Scott Owens} - -\vspace{10pt} - -\sf - -\noindent \OCL{} (ESOP '08) is a formal semantics for a substantial subset of the Objective Caml -core language, suitable for writing and verifying real programs. - -\scalebox{.5}{ -\begin{minipage}{15cm} -\huge -{\color{blue}\OCL{} key points} -\begin{itemize} -\item -Written in Ott -\item -Faithful to Objective Caml (very nearly) -\item -Type soundness proof mechanized in HOL\\ -(Coq and Isabelle/HOL definitions generated too) - -\item -Operational semantics validated on test programs -\item -Small-step operational semantics (131 rules) - -%\begin{itemize} -%\Large -%\item -%Inductively defined relations -%\item -%SOS-style -%\item -%Labelled transitions for state -%\item -%Substution-based -%\end{itemize} -\item -Type system (179 rules, below) -%\begin{itemize} -%\Large -%\item -%Inductively defined relations -%\item -%Syntactic -%\item -%Declarative (non-algorithmic) -%\end{itemize} - -\end{itemize} -\end{minipage} -} -% -\hspace{1.5cm} -% -\scalebox{.52}{ -\begin{minipage}{16.5cm} -\huge - -\vspace{10pt} -\Large -\begin{vtightlist} -\item -definitions: -\begin{vtightlist} -\item[-- ] -variant data types (e.g., \texttt{type t = I of int | C of char}), -\item[-- ] -record types (e.g., \texttt{type t = \{f : int; g : bool\}}), -\item[-- ] -parametric type constructors (e.g., \texttt{type 'a t = C of 'a}), -\item[-- ] -type abbreviations (e.g., \texttt{type 'a t = 'a * int}), -\item[-- ] -mutually recursive combinations of the above (excepting abbreviations), -\item[-- ] -exceptions, and values; -\end{vtightlist} -\item -expressions for type annotations, sequencing, and primitive values\\ -(functions, lists, tuples, and records); -\item -\texttt{with} (record update), \texttt{if}, \texttt{while}, \texttt{for}, \texttt{assert}, \texttt{try}, and \texttt{raise} expressions; -\item -let-based polymorphism with an SML-style value restriction; -\item -mutually-recursive function definitions via \texttt{let rec}; -\item -pattern matching, with nested patterns, \texttt{as} patterns, and ``or'' (\texttt{|})patterns; -\item -mutable references with \texttt{ref}, \texttt{!}, and \texttt{:=}; -\item -polymorphic equality (the Objective Caml \texttt{=} operator); -\item -31-bit word semantics for \texttt{int}s (using an existing HOL library); and -\item -IEEE-754 semantics for \texttt{float}s (using an existing HOL library). -\end{vtightlist} -\end{minipage} -} - -\vspace{3mm} - -\hspace*{-1.5cm}\scalebox{.25}{ -%\framebox{ -\begin{minipage}[t]{19cm} -%\ottdefnsJdomEB -%\ottdefnsJdomE -%\ottdefnsJlookup -%\ottdefnsJidx -%\ottdefnsJTtpsXXkind -\ottdefnsJTEok -\ottdefnsJTeq -\ottdefnsJTidxsub -\end{minipage}} -% -\scalebox{.25}{ -%\framebox{ -\begin{minipage}[t]{19cm} -\ottdefnsJTinst -\ottdefnsJTinstXXnamed -\ottdefnsJTinstXXany -\ottdefnsJTval -\ottdefnsJTfield -\ottdefnsJTconstrXXp -\ottdefnsJTconstrXXc -\ottdefnsJTconst -\ottdefnsJTpat -\end{minipage} -} -% -\scalebox{.25}{ -\begin{minipage}[t]{19cm} -\ottdefnsJTuprim -\ottdefnsJTbprim -\ottdefnsJTe -\end{minipage} -} -% -\scalebox{.25}{ -\begin{minipage}[t]{19cm} -\ottdefnsJTconstrXXdecl -\ottdefnsJTfieldXXdecl -\ottdefnsJTtypedef -\ottdefnsJTtypeXXdefinition -\ottdefnsJTdefinition -\ottdefnsJTdefinitions -\ottdefnsJTprog -\ottdefnsJTstore -\ottdefnsJTtop -\ottdefnsJTLin -\ottdefnsJTLout -\end{minipage} -} - -\newpage - -{\pmc\sf\Large The OCaml$_{\textit{light}}$ Operational Semantics - {\large (131 rules)}} - -\scalebox{.3}{ -%\framebox{ -\begin{minipage}{29.7cm} -\ottdefnsJmatchP -\ottdefnsJmatch -\ottdefnsJrecfun -\ottdefnsJfunval -\ottdefnsJRuprim -\ottdefnsJRbprim -\ottdefnsJRmatchingXXstep -\ottdefnsJRmatchingXXsuccess -\ottdefnsJRstore -\ottdefnsJSlookup -\end{minipage} -}%} -\scalebox{.3}{ -%\framebox{ -\begin{minipage}{29.7cm} -\ottdefnsJred -\ottdefnsJRdefn -\ottdefnsJRtop -\end{minipage} -}%} - - - -\end{document} diff --git a/vendors/ott/examples/ocaml_light/doc/postercore.sty b/vendors/ott/examples/ocaml_light/doc/postercore.sty deleted file mode 100644 index f48c1d6baecf..000000000000 --- a/vendors/ott/examples/ocaml_light/doc/postercore.sty +++ /dev/null @@ -1,41 +0,0 @@ -\newcommand{\postertitle}[2]{ - \newlength{\cuniw} % - \settowidth{\cuniw}{% - \includegraphics{CUni4.eps}}% - -{\setlength{\arraycolsep}{0pt} - \renewcommand{\arraystretch}{1.0} - \setlength{\extrarowheight}{0pt} - #1 - {\sf\pmc #2} % -\hfill %\raisebox{-0.65mm}{\epsfig{file=/home/pes20/Posters/col.exstuf/CUni4.eps}} -% -\makebox[\cuniw][l]{ - \large - \raisebox{-0.65mm}[\height][0pt]{$ - \begin{array}{l}% - \raisebox{-\depth}[\totalheight][0pt]{ - \includegraphics{CUni4.eps} }\\ - \raisebox{-2.0mm}[0.0cm][0.0cm]{ - \makebox[\cuniw][l]{$ - \begin{array}{l} - \resizebox{\cuniw}{!}{\large Computer Laboratory}\\ - \resizebox{\cuniw}{!}{\large Theory and Semantics Group} - \end{array}$}} - \end{array}$}} -}} - - - -\newcommand{\postersubtitle}[1]{ - \vspace{1.0mm} {\large\sf\pmc #1}} - -\newcommand{\posterpeople}[1]{ - -{\large\sf\pmc#1}\vspace{2.0mm}} - - -\newcommand{\posterfooter}[1]{\hfill{\scriptsize{\textsf{#1}}}} - -\newcommand{\posterTSGfooter}{\posterfooter{http://www.cl.cam.ac.uk/Research/TSG}} - diff --git a/vendors/ott/examples/ocaml_light/doc/splncs.bst b/vendors/ott/examples/ocaml_light/doc/splncs.bst deleted file mode 100644 index 4d3b9de344b8..000000000000 --- a/vendors/ott/examples/ocaml_light/doc/splncs.bst +++ /dev/null @@ -1,1098 +0,0 @@ -% BibTeX bibliography style `splncs' - -% An attempt to match the bibliography style required for use with -% numbered references in Springer Verlag's "Lecture Notes in Computer -% Science" series. (See Springer's documentation for llncs.sty for -% more details of the suggested reference format.) Note that this -% file will not work for author-year style citations. - -% Use \documentclass{llncs} and \bibliographystyle{splncs}, and cite -% a reference with (e.g.) \cite{smith77} to get a "[1]" in the text. - -% Copyright (C) 1999 Jason Noble. -% Last updated: Friday 07 March 2006, 08:04:42 Frank Holzwarth, Springer -% -% Based on the BibTeX standard bibliography style `unsrt' - -ENTRY - { address - author - booktitle - chapter - edition - editor - howpublished - institution - journal - key - month - note - number - organization - pages - publisher - school - series - title - type - volume - year - } - {} - { label } - -INTEGERS { output.state before.all mid.sentence after.sentence - after.block after.authors between.elements} - -FUNCTION {init.state.consts} -{ #0 'before.all := - #1 'mid.sentence := - #2 'after.sentence := - #3 'after.block := - #4 'after.authors := - #5 'between.elements := -} - -STRINGS { s t } - -FUNCTION {output.nonnull} -{ 's := - output.state mid.sentence = - { " " * write$ } - { output.state after.block = - { add.period$ write$ - newline$ - "\newblock " write$ - } - { - output.state after.authors = - { ": " * write$ - newline$ - "\newblock " write$ - } - { output.state between.elements = - { ", " * write$ } - { output.state before.all = - 'write$ - { add.period$ " " * write$ } - if$ - } - if$ - } - if$ - } - if$ - mid.sentence 'output.state := - } - if$ - s -} - -FUNCTION {output} -{ duplicate$ empty$ - 'pop$ - 'output.nonnull - if$ -} - -FUNCTION {output.check} -{ 't := - duplicate$ empty$ - { pop$ "empty " t * " in " * cite$ * warning$ } - 'output.nonnull - if$ -} - -FUNCTION {output.bibitem} -{ newline$ - "\bibitem{" write$ - cite$ write$ - "}" write$ - newline$ - "" - before.all 'output.state := -} - -FUNCTION {fin.entry} -{ write$ - newline$ -} - -FUNCTION {new.block} -{ output.state before.all = - 'skip$ - { after.block 'output.state := } - if$ -} - -FUNCTION {stupid.colon} -{ after.authors 'output.state := } - -FUNCTION {insert.comma} -{ output.state before.all = - 'skip$ - { between.elements 'output.state := } - if$ -} - -FUNCTION {new.sentence} -{ output.state after.block = - 'skip$ - { output.state before.all = - 'skip$ - { after.sentence 'output.state := } - if$ - } - if$ -} - -FUNCTION {not} -{ { #0 } - { #1 } - if$ -} - -FUNCTION {and} -{ 'skip$ - { pop$ #0 } - if$ -} - -FUNCTION {or} -{ { pop$ #1 } - 'skip$ - if$ -} - -FUNCTION {new.block.checka} -{ empty$ - 'skip$ - 'new.block - if$ -} - -FUNCTION {new.block.checkb} -{ empty$ - swap$ empty$ - and - 'skip$ - 'new.block - if$ -} - -FUNCTION {new.sentence.checka} -{ empty$ - 'skip$ - 'new.sentence - if$ -} - -FUNCTION {new.sentence.checkb} -{ empty$ - swap$ empty$ - and - 'skip$ - 'new.sentence - if$ -} - -FUNCTION {field.or.null} -{ duplicate$ empty$ - { pop$ "" } - 'skip$ - if$ -} - -FUNCTION {emphasize} -{ duplicate$ empty$ - { pop$ "" } - { "" swap$ * "" * } - if$ -} - -FUNCTION {bold} -{ duplicate$ empty$ - { pop$ "" } - { "\textbf{" swap$ * "}" * } - if$ -} - -FUNCTION {parens} -{ duplicate$ empty$ - { pop$ "" } - { "(" swap$ * ")" * } - if$ -} - -INTEGERS { nameptr namesleft numnames } - -FUNCTION {format.springer.names} -{ 's := - #1 'nameptr := - s num.names$ 'numnames := - numnames 'namesleft := - { namesleft #0 > } - { s nameptr "{vv~}{ll}{, jj}{, f{.}.}" format.name$ 't := - nameptr #1 > - { namesleft #1 > - { ", " * t * } - { numnames #1 > - { ", " * } - 'skip$ - if$ - t "others" = - { " et~al." * } - { "" * t * } - if$ - } - if$ - } - 't - if$ - nameptr #1 + 'nameptr := - namesleft #1 - 'namesleft := - } - while$ -} - -FUNCTION {format.names} -{ 's := - #1 'nameptr := - s num.names$ 'numnames := - numnames 'namesleft := - { namesleft #0 > } - { s nameptr "{vv~}{ll}{, jj}{, f.}" format.name$ 't := - nameptr #1 > - { namesleft #1 > - { ", " * t * } - { numnames #2 > - { "," * } - 'skip$ - if$ - t "others" = - { " et~al." * } - { " \& " * t * } - if$ - } - if$ - } - 't - if$ - nameptr #1 + 'nameptr := - namesleft #1 - 'namesleft := - } - while$ -} - -FUNCTION {format.authors} -{ author empty$ - { "" } - { author format.springer.names } - if$ -} - -FUNCTION {format.editors} -{ editor empty$ - { "" } - { editor format.springer.names - editor num.names$ #1 > - { ", eds." * } - { ", ed." * } - if$ - } - if$ -} - -FUNCTION {format.title} -{ title empty$ - { "" } - { title "t" change.case$ } - if$ -} - -FUNCTION {n.dashify} -{ 't := - "" - { t empty$ not } - { t #1 #1 substring$ "-" = - { t #1 #2 substring$ "--" = not - { "--" * - t #2 global.max$ substring$ 't := - } - { { t #1 #1 substring$ "-" = } - { "-" * - t #2 global.max$ substring$ 't := - } - while$ - } - if$ - } - { t #1 #1 substring$ * - t #2 global.max$ substring$ 't := - } - if$ - } - while$ -} - -FUNCTION {format.date} -{ year empty$ - { month empty$ - { "" } - { "there's a month but no year in " cite$ * warning$ - month - } - if$ - } - { month empty$ - 'year - { month " " * year * } - if$ - } - if$ -} - -FUNCTION {format.btitle} -{ title emphasize -} - -FUNCTION {tie.or.space.connect} -{ duplicate$ text.length$ #3 < - { "~" } - { " " } - if$ - swap$ * * -} - -FUNCTION {either.or.check} -{ empty$ - 'pop$ - { "can't use both " swap$ * " fields in " * cite$ * warning$ } - if$ -} - -FUNCTION {format.bvolume} -{ volume empty$ - { "" } - { "Volume" volume tie.or.space.connect - series empty$ - 'skip$ - { " of " * series emphasize * } - if$ - add.period$ - "volume and number" number either.or.check - } - if$ -} - -FUNCTION {format.number.series} -{ volume empty$ - { number empty$ - { series field.or.null } - { output.state mid.sentence = - { "number" } - { "Number" } - if$ - number tie.or.space.connect - series empty$ - { "there's a number but no series in " cite$ * warning$ } - { " in " * series * } - if$ - } - if$ - } - { "" } - if$ -} - -FUNCTION {format.edition} -{ edition empty$ - { "" } - { output.state mid.sentence = - { edition "l" change.case$ " edn." * } - { edition "t" change.case$ " edn." * } - if$ - } - if$ -} - -INTEGERS { multiresult } - -FUNCTION {multi.page.check} -{ 't := - #0 'multiresult := - { multiresult not - t empty$ not - and - } - { t #1 #1 substring$ - duplicate$ "-" = - swap$ duplicate$ "," = - swap$ "+" = - or or - { #1 'multiresult := } - { t #2 global.max$ substring$ 't := } - if$ - } - while$ - multiresult -} - -FUNCTION {format.pages} -{ pages empty$ - { "" } - { pages multi.page.check - { "" pages n.dashify tie.or.space.connect } - { "" pages tie.or.space.connect } - if$ - } - if$ -} - -FUNCTION {format.vol} -{ volume bold -} - -FUNCTION {format.vol.num} -{ volume bold -number empty$ -{ } -{ number "(" swap$ * * ")" * } -if$ -} - -FUNCTION {pre.format.pages} -{ pages empty$ - 'skip$ - { duplicate$ empty$ - { pop$ format.pages } - { " " * pages n.dashify * } - if$ - } - if$ -} - -FUNCTION {format.chapter.pages} -{ chapter empty$ - 'format.pages - { type empty$ - { "chapter" } - { type "l" change.case$ } - if$ - chapter tie.or.space.connect - pages empty$ - 'skip$ - { " " * format.pages * } - if$ - } - if$ -} - -FUNCTION {format.in.ed.booktitle} -{ booktitle empty$ - { "" } - { editor empty$ - { "In: " booktitle emphasize * } - { "In " format.editors * ": " * booktitle emphasize * } - if$ - } - if$ -} - -FUNCTION {empty.misc.check} -{ author empty$ title empty$ howpublished empty$ - month empty$ year empty$ note empty$ - and and and and and - { "all relevant fields are empty in " cite$ * warning$ } - 'skip$ - if$ -} - -FUNCTION {format.thesis.type} -{ type empty$ - 'skip$ - { pop$ - type "t" change.case$ - } - if$ -} - -FUNCTION {format.tr.number} -{ type empty$ - { "Technical Report" } - 'type - if$ - number empty$ - { "t" change.case$ } - { number tie.or.space.connect } - if$ -} - -FUNCTION {format.article.crossref} -{ key empty$ - { journal empty$ - { "need key or journal for " cite$ * " to crossref " * crossref * - warning$ - "" - } - { "In {\em " journal * "\/}" * } - if$ - } - { "In " key * } - if$ - " \cite{" * crossref * "}" * -} - -FUNCTION {format.crossref.editor} -{ editor #1 "{vv~}{ll}" format.name$ - editor num.names$ duplicate$ - #2 > - { pop$ " et~al." * } - { #2 < - 'skip$ - { editor #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" = - { " et~al." * } - { " and " * editor #2 "{vv~}{ll}" format.name$ * } - if$ - } - if$ - } - if$ -} - -FUNCTION {format.book.crossref} -{ volume empty$ - { "empty volume in " cite$ * "'s crossref of " * crossref * warning$ - "In " - } - { "Volume" volume tie.or.space.connect - " of " * - } - if$ - " \cite{" * crossref * "}" * -} - -FUNCTION {format.incoll.inproc.crossref} -{ editor empty$ - editor field.or.null author field.or.null = - or - { key empty$ - { booktitle empty$ - { "need editor, key, or booktitle for " cite$ * " to crossref " * - crossref * warning$ - "" - } - { "" } - if$ - } - { "" } - if$ - } - { "" } - if$ - " \cite{" * crossref * "}" * -} - -FUNCTION {and.the.note} -{ note output - note empty$ - 'skip$ - { add.period$ } - if$ -} - -FUNCTION {article} -{ output.bibitem - format.authors "author" output.check - stupid.colon - format.title "title" output.check - new.block - crossref missing$ - { journal emphasize "journal" output.check - format.vol.num output - format.date parens output - format.pages output - } - { format.article.crossref output.nonnull - format.pages output - } - if$ - and.the.note - fin.entry -} - -FUNCTION {book} -{ output.bibitem - author empty$ - { format.editors "author and editor" output.check } - { format.authors output.nonnull - crossref missing$ - { "author and editor" editor either.or.check } - 'skip$ - if$ - } - if$ - stupid.colon - format.btitle "title" output.check - new.sentence - crossref missing$ - { format.edition output - format.bvolume output - new.block - format.number.series output - new.sentence - publisher "publisher" output.check - address empty$ - 'skip$ - { insert.comma } - if$ - address output - format.date parens output - } - { format.book.crossref output.nonnull - } - if$ - and.the.note - fin.entry -} - -FUNCTION {booklet} -{ output.bibitem - format.authors output - stupid.colon - format.title "title" output.check - howpublished address new.block.checkb - howpublished output - address empty$ - 'skip$ - { insert.comma } - if$ - address output - format.date parens output - and.the.note - fin.entry -} - -FUNCTION {inbook} -{ output.bibitem - author empty$ - { format.editors "author and editor" output.check } - { format.authors output.nonnull - crossref missing$ - { "author and editor" editor either.or.check } - 'skip$ - if$ - } - if$ - stupid.colon - crossref missing$ - { chapter output - new.block - format.number.series output - new.sentence - "In:" output - format.btitle "title" output.check - new.sentence - format.edition output - format.bvolume output - publisher "publisher" output.check - address empty$ - 'skip$ - { insert.comma } - if$ - address output - format.date parens output - } - { chapter output - new.block - format.incoll.inproc.crossref output.nonnull - } - if$ - format.pages output - and.the.note - fin.entry -} - -FUNCTION {incollection} -{ output.bibitem - format.authors "author" output.check - stupid.colon - format.title "title" output.check - new.block - crossref missing$ - { format.in.ed.booktitle "booktitle" output.check - new.sentence - format.bvolume output - format.number.series output - new.block - format.edition output - publisher "publisher" output.check - address empty$ - 'skip$ - { insert.comma } - if$ - address output - format.date parens output - format.pages output - } - { format.incoll.inproc.crossref output.nonnull - format.chapter.pages output - } - if$ - and.the.note - fin.entry -} - -FUNCTION {inproceedings} -{ output.bibitem - format.authors "author" output.check - stupid.colon - format.title "title" output.check - new.block - crossref missing$ - { format.in.ed.booktitle "booktitle" output.check - new.sentence - format.bvolume output - format.number.series output - address empty$ - { organization publisher new.sentence.checkb - organization empty$ - 'skip$ - { insert.comma } - if$ - organization output - publisher empty$ - 'skip$ - { insert.comma } - if$ - publisher output - format.date parens output - } - { insert.comma - address output.nonnull - organization empty$ - 'skip$ - { insert.comma } - if$ - organization output - publisher empty$ - 'skip$ - { insert.comma } - if$ - publisher output - format.date parens output - } - if$ - } - { format.incoll.inproc.crossref output.nonnull - } - if$ - format.pages output - and.the.note - fin.entry -} - -FUNCTION {conference} { inproceedings } - -FUNCTION {manual} -{ output.bibitem - author empty$ - { organization empty$ - 'skip$ - { organization output.nonnull - address output - } - if$ - } - { format.authors output.nonnull } - if$ - stupid.colon - format.btitle "title" output.check - author empty$ - { organization empty$ - { address new.block.checka - address output - } - 'skip$ - if$ - } - { organization address new.block.checkb - organization output - address empty$ - 'skip$ - { insert.comma } - if$ - address output - } - if$ - new.sentence - format.edition output - format.date parens output - and.the.note - fin.entry -} - -FUNCTION {mastersthesis} -{ output.bibitem - format.authors "author" output.check - stupid.colon - format.title "title" output.check - new.block - "Master's thesis" format.thesis.type output.nonnull - school empty$ - 'skip$ - { insert.comma } - if$ - school "school" output.check - address empty$ - 'skip$ - { insert.comma } - if$ - address output - format.date parens output - and.the.note - fin.entry -} - -FUNCTION {misc} -{ output.bibitem - format.authors "author" output.check - stupid.colon - format.title "title" output.check - howpublished new.block.checka - howpublished output - format.date parens output - and.the.note - fin.entry - empty.misc.check -} - -FUNCTION {phdthesis} -{ output.bibitem - format.authors "author" output.check - stupid.colon - format.btitle "title" output.check - new.block - "PhD thesis" format.thesis.type output.nonnull - school empty$ - 'skip$ - { insert.comma } - if$ - school "school" output.check - address empty$ - 'skip$ - { insert.comma } - if$ - address output - format.date parens output - and.the.note - fin.entry -} - -FUNCTION {proceedings} -{ output.bibitem - editor empty$ - { organization empty$ - { "" } - { organization output - stupid.colon } - if$ - } - { format.editors output.nonnull - stupid.colon - } - if$ - format.btitle "title" output.check - new.block - crossref missing$ - { format.in.ed.booktitle "booktitle" output.check - new.sentence - format.bvolume output - format.number.series output - address empty$ - { organization publisher new.sentence.checkb - organization empty$ - 'skip$ - { insert.comma } - if$ - organization output - publisher empty$ - 'skip$ - { insert.comma } - if$ - publisher output - format.date parens output - } - { insert.comma - address output.nonnull - organization empty$ - 'skip$ - { insert.comma } - if$ - organization output - publisher empty$ - 'skip$ - { insert.comma } - if$ - publisher output - format.date parens output - } - if$ - } - { format.incoll.inproc.crossref output.nonnull - } - if$ - and.the.note - fin.entry -} - -FUNCTION {techreport} -{ output.bibitem - format.authors "author" output.check - stupid.colon - format.title "title" output.check - new.block - format.tr.number output.nonnull - institution empty$ - 'skip$ - { insert.comma } - if$ - institution "institution" output.check - address empty$ - 'skip$ - { insert.comma } - if$ - address output - format.date parens output - and.the.note - fin.entry -} - -FUNCTION {unpublished} -{ output.bibitem - format.authors "author" output.check - stupid.colon - format.title "title" output.check - new.block - note "note" output.check - format.date parens output - fin.entry -} - -FUNCTION {default.type} { misc } - -MACRO {jan} {"January"} - -MACRO {feb} {"February"} - -MACRO {mar} {"March"} - -MACRO {apr} {"April"} - -MACRO {may} {"May"} - -MACRO {jun} {"June"} - -MACRO {jul} {"July"} - -MACRO {aug} {"August"} - -MACRO {sep} {"September"} - -MACRO {oct} {"October"} - -MACRO {nov} {"November"} - -MACRO {dec} {"December"} - -MACRO {acmcs} {"ACM Computing Surveys"} - -MACRO {acta} {"Acta Informatica"} - -MACRO {cacm} {"Communications of the ACM"} - -MACRO {ibmjrd} {"IBM Journal of Research and Development"} - -MACRO {ibmsj} {"IBM Systems Journal"} - -MACRO {ieeese} {"IEEE Transactions on Software Engineering"} - -MACRO {ieeetc} {"IEEE Transactions on Computers"} - -MACRO {ieeetcad} - {"IEEE Transactions on Computer-Aided Design of Integrated Circuits"} - -MACRO {ipl} {"Information Processing Letters"} - -MACRO {jacm} {"Journal of the ACM"} - -MACRO {jcss} {"Journal of Computer and System Sciences"} - -MACRO {scp} {"Science of Computer Programming"} - -MACRO {sicomp} {"SIAM Journal on Computing"} - -MACRO {tocs} {"ACM Transactions on Computer Systems"} - -MACRO {tods} {"ACM Transactions on Database Systems"} - -MACRO {tog} {"ACM Transactions on Graphics"} - -MACRO {toms} {"ACM Transactions on Mathematical Software"} - -MACRO {toois} {"ACM Transactions on Office Information Systems"} - -MACRO {toplas} {"ACM Transactions on Programming Languages and Systems"} - -MACRO {tcs} {"Theoretical Computer Science"} - -READ - -STRINGS { longest.label } - -INTEGERS { number.label longest.label.width } - -FUNCTION {initialize.longest.label} -{ "" 'longest.label := - #1 'number.label := - #0 'longest.label.width := -} - -FUNCTION {longest.label.pass} -{ number.label int.to.str$ 'label := - number.label #1 + 'number.label := - label width$ longest.label.width > - { label 'longest.label := - label width$ 'longest.label.width := - } - 'skip$ - if$ -} - -EXECUTE {initialize.longest.label} - -ITERATE {longest.label.pass} - -FUNCTION {begin.bib} -{ preamble$ empty$ - 'skip$ - { preamble$ write$ newline$ } - if$ - "\begin{thebibliography}{" longest.label * "}" * write$ newline$ -} - -EXECUTE {begin.bib} - -EXECUTE {init.state.consts} - -ITERATE {call.type$} - -FUNCTION {end.bib} -{ newline$ - "\end{thebibliography}" write$ newline$ -} - -EXECUTE {end.bib} - - - diff --git a/vendors/ott/examples/ocaml_light/funex.ott b/vendors/ott/examples/ocaml_light/funex.ott deleted file mode 100644 index 9088162c1238..000000000000 --- a/vendors/ott/examples/ocaml_light/funex.ott +++ /dev/null @@ -1,190 +0,0 @@ -funs -envF ::= - -fun -dom ( EB ) :: name :: domEB by - -dom(TV) === TV -dom(value_name:typescheme) === value_name -dom(constr_name of typeconstr) === constr_name -dom(constr_name of forall type_params_opt, (t1, ..., tn) : typeconstr) === constr_name -dom(typeconstr_name:kind) === typeconstr_name -dom(type_params_opt typeconstr_name = t) === typeconstr_name -dom(typeconstr_name : kind {field_name1; ...; field_namen}) === typeconstr_name -dom(field_name:forall type_params_opt, typeconstr_name -> typexpr) === field_name -dom(location:t) === location - - -%fun -%dom ( E ) :: name1 .. namen :: domE by - -%dom(empty) === -%dom(E,EB) === dom(E) dom(EB) - -%fun -%lookup ( E , name ) :: EB option :: lookupE by - -%val lookup_def = Define -%`(lookup [] name = NONE) /\ -% (lookup (EB::E) name = -% if domEB EB = name then -% SOME EB -% else OPTION_MAP (\EB2. shiftEB 0 (if domEB EB = name_tv then 1 else 0) EB2) (lookup E name))`; - - -funs -indexF ::= - -%fun -%idx_bound ( E , idx ) :: bool :: idx_bound by - -%val idx_bound_def = Define -%`(idx_bound [] idx = F) /\ -% (idx_bound (EB_tv::E) 0 = T) /\ -% (idx_bound (EB_tv::E) (SUC n2) = idx_bound E n2) /\ -% (idx_bound (_::E) n = idx_bound E n)`; - -fun -shift m n typexpr' :: typexpr :: shiftt by - -shift m n typevar === typevar -shift m n === if idx < m then else -shift m n _ === _ -shift m n typexpr1->typexpr2 === (shift m n typexpr1)->(shift m n typexpr2) -shift m n typexpr1 * .... * typexprn === shift m n typexpr1 * .... * shift m n typexprn -shift m n (typexpr1, ..., typexprn) typeconstr === (shift m n typexpr1, ..., shift m n typexprn) typeconstr - -fun -shift m n typexprs' :: typexprs :: shifttes by - -shift m n typexpr1, ..., typexprn === shift m n typexpr1, ..., shift m n typexprn - -fun -shift m n typescheme' :: typescheme :: shiftts by - -shift m n forall typexpr === forall shift (m+1) n typexpr - -fun -shift m n EB' :: EB :: shiftEB by - -shift m n TV === TV -shift m n value_name:typescheme === value_name : shift m n typescheme -shift m n constr_name of typeconstr === constr_name of typeconstr -shift m n constr_name of forall type_params_opt, (typexprs) : typeconstr === constr_name of forall type_params_opt, (shift m n typexprs) : typeconstr -shift m n field_name:forall type_params_opt, typeconstr_name -> typexpr === field_name:forall type_params_opt, typeconstr_name -> shift m n typexpr -shift m n typeconstr_name:kind === typeconstr_name:kind -shift m n typeconstr_name : kind {field_name1; ...; field_namen} === typeconstr_name : kind {field_name1; ...; field_namen} -shift m n type_params_opt typeconstr_name = typexpr === type_params_opt typeconstr_name = shift m n typexpr -shift m n location: typexpr === location: shift m n typexpr - -%fun -%num_tv E :: intn :: num_tv by - -%num_tv [] === 0 -%num_tv E,EB = if EB = TV then 1 + num_tv E else num_tv E - -fun -shift m n E' :: E :: shiftE by - -shift m n === -shift m n E,EB === shift m n E , shift (m + num_tv E) n EB - -fun -shift m n Tsigma' :: Tsigma :: shiftTsig by -shift m n <> === <> - - -funs -redF ::= - -%fun -%recfun letrec_bindings pattern_matching :: expr :: recfun by - -%val recfun_def = Define -%`recfun (LRBs_inj letrec_bindings) pattern_matching = -% (substs_value_name_expr -% (MAP (\letrec_binding. case letrec_binding of -% LRB_simple x pattern_matching -> -% (x , Expr_letrec (LRBs_inj letrec_bindings) -% (Expr_ident x))) -% letrec_bindings) -% (Expr_function pattern_matching))`; - -fun -snoc definitions' definition :: definitions :: definitions_snoc by - -snoc d === d;; -snoc d;;ds d' === d;;snoc ds d' - -funs -remv_tyvarF ::= - -fun -remv_tyvar typexpr' :: typexpr :: remv_tyvar_typexpr by - -remv_tyvar typevar === _ -remv_tyvar === -remv_tyvar _ === _ -remv_tyvar typexpr1 -> typexpr2 === remv_tyvar typexpr1 -> remv_tyvar typexpr2 -remv_tyvar typexpr1 * .... * typexprn === remv_tyvar typexpr1 * .... * remv_tyvar typexprn -remv_tyvar (typexpr1, .., typexprn) typeconstr === (remv_tyvar typexpr1, .., remv_tyvar typexprn) typeconstr - -fun -remv_tyvar pattern' :: pattern :: remv_tyvar_pattern by - -remv_tyvar value_name === value_name -remv_tyvar _ === _ -remv_tyvar constant === constant -remv_tyvar pattern as value_name === remv_tyvar pattern as value_name -remv_tyvar (pattern : typexpr) === (remv_tyvar pattern : typexpr) -remv_tyvar pattern1 | pattern2 === remv_tyvar pattern1 | remv_tyvar pattern2 -remv_tyvar constr (pattern1, ..., patternn) === constr (remv_tyvar pattern1, ..., remv_tyvar patternn) -remv_tyvar constr _ === constr _ -remv_tyvar pattern1, ...., patternn === remv_tyvar pattern1, ...., remv_tyvar patternn -remv_tyvar {field1 = pattern1; ...; fieldn = patternn} === {field1 = remv_tyvar pattern1; ...; fieldn = remv_tyvar patternn} -remv_tyvar pattern1 :: pattern2 === remv_tyvar pattern1 :: remv_tyvar pattern2 - - -fun -remv_tyvar expr' :: expr :: remv_tyvar_expr by - -remv_tyvar (%prim unary_prim) === (%prim unary_prim) -remv_tyvar (%prim binary_prim) === (%prim binary_prim) -remv_tyvar value_name === value_name -remv_tyvar constant === constant -remv_tyvar (expr : typexpr) === (remv_tyvar expr : remv_tyvar typexpr) -remv_tyvar expr1, ...., exprn === remv_tyvar expr1, ...., remv_tyvar exprn -remv_tyvar constr (expr1, .., exprn) === constr (remv_tyvar expr1, .., remv_tyvar exprn) -remv_tyvar expr1 :: expr2 === remv_tyvar expr1 :: remv_tyvar expr2 -remv_tyvar {field1 = expr1; ...; fieldn = exprn} === {field1 = remv_tyvar expr1; ...; fieldn = remv_tyvar exprn} -remv_tyvar {expr with field1 = expr1; ...; fieldn = exprn} === {remv_tyvar expr with field1 = remv_tyvar expr1; ...; fieldn = remv_tyvar exprn} -remv_tyvar expr1 expr2 === remv_tyvar expr1 remv_tyvar expr2 -remv_tyvar expr1 && expr2 === remv_tyvar expr1 && remv_tyvar expr2 -remv_tyvar expr1 || expr2 === remv_tyvar expr1 || remv_tyvar expr2 -remv_tyvar expr.field === remv_tyvar expr . field -remv_tyvar if expr0 then expr1 else expr2 === if remv_tyvar expr0 then remv_tyvar expr1 else remv_tyvar expr2 -remv_tyvar while expr1 do expr2 done === while remv_tyvar expr1 do remv_tyvar expr2 done -remv_tyvar for x = expr1 for_dirn expr2 do expr3 done === for x = remv_tyvar expr1 for_dirn remv_tyvar expr2 do remv_tyvar expr3 done -remv_tyvar expr1 ; expr2 === remv_tyvar expr1; remv_tyvar expr2 -remv_tyvar match expr with pattern_matching === match remv_tyvar expr with remv_tyvar pattern_matching -remv_tyvar function pattern_matching === function remv_tyvar pattern_matching -remv_tyvar try expr with pattern_matching === try remv_tyvar expr with remv_tyvar pattern_matching -remv_tyvar let let_binding in expr === let remv_tyvar let_binding in remv_tyvar expr -remv_tyvar let rec letrec_bindings in expr === let rec remv_tyvar letrec_bindings in remv_tyvar expr -remv_tyvar assert expr === assert remv_tyvar expr -remv_tyvar location === location - -fun -remv_tyvar pattern_matching' :: pattern_matching :: remv_tyvar_pattern_matching by - -remv_tyvar pattern1->expr1 | ... | patternn->exprn === remv_tyvar pattern1->remv_tyvar expr1 | ... | remv_tyvar patternn->remv_tyvar exprn - -fun -remv_tyvar let_binding' :: let_binding :: remv_tyvar_let_binding by - -remv_tyvar pattern = expr === remv_tyvar pattern = remv_tyvar expr - -fun -remv_tyvar letrec_bindings' :: letrec_bindings :: remv_tyvar_letrec_bindings by - -remv_tyvar value_name1 = function pattern_matching1 and ... and value_namen = function pattern_matchingn === value_name1 = function remv_tyvar pattern_matching1 and ... and value_namen = function remv_tyvar pattern_matchingn diff --git a/vendors/ott/examples/ocaml_light/hol/basicScript.sml b/vendors/ott/examples/ocaml_light/hol/basicScript.sml deleted file mode 100644 index 4b44e9a5d49f..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/basicScript.sml +++ /dev/null @@ -1,872 +0,0 @@ -open HolKernel boolLib bossLib IndDefLib IndDefRules listTheory optionTheory relationTheory pairTheory -open rich_listTheory combinTheory; -open ottTheory ottLib caml_typedefTheory; -open utilTheory shiftTheory; - -val _ = new_theory "basic"; - -val OPTION_MAP_I = Q.prove ( -`!x. OPTION_MAP (\y . y) x = x`, -Cases THEN SRW_TAC [] []); - -val domEB_def = Define -`(domEB EB_tv = name_tv) /\ - (domEB (EB_vn value_name typescheme) = name_vn value_name) /\ - (domEB (EB_cc constr_name typeconstr) = name_cn constr_name) /\ - (domEB (EB_pc constr_name type_params_opt t_list typeconstr) = name_cn constr_name) /\ - (domEB (EB_td typeconstr_name kind) = name_tcn typeconstr_name) /\ - (domEB (EB_ta type_params_opt typeconstr_name t) = name_tcn typeconstr_name) /\ - (domEB (EB_tr typeconstr_name kind field_name_list) = name_tcn typeconstr_name) /\ - (domEB (EB_fn field_name type_params_opt typeconstr_name typexpr) = name_fn field_name) /\ - (domEB (EB_l location t) = name_l location)`; - -val domEB_thm = Q.prove ( -`!EB name. JdomEB EB name = (domEB EB = name)`, -Cases THEN SRW_TAC [] [JdomEB_cases, domEB_def, clause_name_def] THEN METIS_TAC [typexprs_nchotomy]); - -val domE_thm = Q.prove ( -`!E names. JdomE E names = (MAP domEB E = names)`, -Induct THENL -[SRW_TAC [] [Once JdomE_cases, clause_name_def] THEN METIS_TAC [], - SRW_TAC [] [Once JdomE_cases, domEB_thm, clause_name_def] THEN METIS_TAC []]); - -val lookup_def = Define -`(lookup [] name = NONE) /\ - (lookup (EB::E) name = - if domEB EB = name then - SOME EB - else OPTION_MAP (\EB2. shiftEB 0 (if domEB EB = name_tv then 1 else 0) EB2) (lookup E name))`; - -val lookup_append_thm = Q.store_thm ("lookup_append_thm", -`!E1 E2 name. lookup (E1++E2) name = - case lookup E1 name of - NONE -> OPTION_MAP (\EB. shiftEB 0 (num_tv E1) EB) (lookup E2 name) - || SOME EB -> SOME EB`, -Induct THEN SRW_TAC [] [lookup_def, num_tv_def, OPTION_MAP_I, shiftEB_add_thm] THEN -Cases_on `lookup E1 name` THEN FULL_SIMP_TAC list_ss [] THEN Cases_on `lookup E2 name` THEN -SRW_TAC [] [] THEN Cases_on `h` THEN SRW_TAC [] [num_tv_def, shiftEB_add_thm] THEN -FULL_SIMP_TAC list_ss [domEB_def] THEN SRW_TAC [] []); - -val lookup_dom_thm = Q.store_thm ("lookup_dom_thm", -`!E name. (MEM name (MAP domEB E) = ?EB. lookup E name = SOME EB) /\ - (~MEM name (MAP domEB E) = (lookup E name = NONE))`, -Induct THEN SRW_TAC [] [lookup_def] THEN METIS_TAC [NOT_SOME_NONE]); - -val lookup_thm = Q.prove ( -`!E name EB. Jlookup_EB E name EB = (lookup E name = SOME EB)`, -Induct THENL [ -SRW_TAC [] [Once Jlookup_EB_cases, lookup_def, clause_name_def], -SIMP_TAC list_ss [Once Jlookup_EB_cases] THEN Cases THEN - SRW_TAC [] [lookup_def, domE_thm, domEB_thm, clause_name_def] THEN EQ_TAC THEN - SRW_TAC [] [domEB_def] THEN - FULL_SIMP_TAC list_ss [domEB_def, name_distinct, name_11, shiftEB_add_thm]]); - -val idx_bound_def = Define -`(idx_bound [] idx = F) /\ - (idx_bound (EB_tv::E) 0 = T) /\ - (idx_bound (EB_tv::E) (SUC n2) = idx_bound E n2) /\ - (idx_bound (_::E) n = idx_bound E n)`; - -val idx_bound_thm = Q.prove ( -`!E idx num. Jidx_bound E idx = idx_bound E idx`, -Induct THENL [ -SRW_TAC [] [Once Jidx_bound_cases, idx_bound_def], -SRW_TAC [] [Once Jidx_bound_cases, idx_bound_def, clause_name_def] THEN -Cases_on `h` THEN SRW_TAC [] [idx_bound_def, domEB_thm, domEB_def] THEN -Cases_on `idx` THEN SRW_TAC [] [idx_bound_def] THEN FULL_SIMP_TAC list_ss [arithmeticTheory.ADD1]]); - -val Slookup_thm = Q.prove ( -`!st l v. JSlookup st l v = (list_assoc l st = SOME v)`, -Induct THEN ONCE_REWRITE_TAC [JSlookup_cases] THEN SRW_TAC [] [list_assoc_def, clause_name_def] THEN -Cases_on `h` THEN SRW_TAC [] [list_assoc_def]); - -val recfun_def = Define -`recfun (LRBs_inj letrec_bindings) pattern_matching = - (substs_value_name_expr - (MAP (\letrec_binding. case letrec_binding of - LRB_simple x pattern_matching -> - (x , Expr_letrec (LRBs_inj letrec_bindings) - (Expr_ident x))) - letrec_bindings) - (Expr_function pattern_matching))`; - -val recfun_thm = Q.prove ( -`!letrec_bindings pattern_matching expr. Jrecfun letrec_bindings pattern_matching expr = - (recfun letrec_bindings pattern_matching = expr)`, -Cases THEN SRW_TAC [] [Jrecfun_cases, recfun_def, clause_name_def] THEN EQ_TAC THEN SRW_TAC [] [] THENL -[SRW_TAC [] [MAP_MAP, - Q.prove (`!x. (case (\(a, b). LRB_simple a b) x of LRB_simple a b -> P a b) = - (case x of (a, b) -> P a b)`, - Cases THEN SRW_TAC [] []), - LAMBDA_PROD], - Q.EXISTS_TAC `MAP (\x. case x of LRB_simple a b -> (a, b)) l'` THEN - SRW_TAC [] [MAP_MAP, - Q.prove (`!x f. ((\(x_ ,pattern_matching_). f x_) - case x of LRB_simple a b -> (a,b)) = - case x of LRB_simple a b -> f a`, - Cases THEN SRW_TAC [] [])] THEN - Induct_on `l'` THEN SRW_TAC [] [] THENL [Cases_on `h` THEN SRW_TAC [] [], METIS_TAC []]]); - -val funval_def = Define -`(funval (Expr_uprim unary_prim) = T) /\ - (funval (Expr_bprim binary_prim) = T) /\ - (funval (Expr_apply (Expr_bprim binary_prim) v) = is_value_of_expr v) /\ - (funval (Expr_function pattern_matching) = T) /\ - (funval _ = F)`; - -val funval_thm = Q.prove ( -`!v. Jfunval v = funval v`, -Cases THEN SRW_TAC [] [funval_def, Jfunval_cases, clause_name_def] THEN -Cases_on `e'` THEN SRW_TAC [] [funval_def, Jfunval_cases]); - -val tp_to_tv_def = Define -`tp_to_tv (TP_var tv) = tv`; - -val tp_to_tv_thm = Q.store_thm ("tp_to_tv_thm", -`TP_var (tp_to_tv v) = v`, -Cases_on `v` THEN SRW_TAC [] [tp_to_tv_def]); - -val lrbs_to_lrblist_def = Define -`lrbs_to_lrblist (LRBs_inj x) = x`; - -val lrbs_to_lrblist_thm = Q.store_thm ("lrbs_to_lrblist_thm", -`!x. LRBs_inj (lrbs_to_lrblist x) = x`, -Cases THEN SRW_TAC [] [lrbs_to_lrblist_def]); - -val patexp_to_pelist_def = Define -`patexp_to_pelist (PE_inj x y) = (x, y)`; - -val patexp_to_pelist_thm = Q.store_thm ("patexp_to_pelist_thm", -`!x. PE_inj (FST (patexp_to_pelist x)) (SND (patexp_to_pelist x)) = x`, -Cases THEN SRW_TAC [] [patexp_to_pelist_def]); - -val tpo_to_tps_def = Define -`tpo_to_tps (TPS_nary tps) = tps`; - -val tpo_to_tps_thm = Q.store_thm ("tpo_to_tps_thm", -`!tpo. TPS_nary (tpo_to_tps tpo) = tpo`, -Cases THEN SRW_TAC [] [tpo_to_tps_def]); - -val field_to_fn_def = Define -`field_to_fn (F_name f) = f`; - -val field_to_fn_thm = Q.store_thm ("field_to_fn_thm", -`!f. F_name (field_to_fn f) = f`, -Cases THEN SRW_TAC [] [field_to_fn_def]); - -val t_size_def = Define -`(t_size (TE_var v) = 2:num) /\ - (t_size (TE_idxvar a b) = 1) /\ - (t_size TE_any = 1) /\ - (t_size (TE_arrow t1 t2) = 1 + t_size t1 + t_size t2) /\ - (t_size (TE_tuple tlist) = 1 + t1_size tlist) /\ - (t_size (TE_constr tlist tc) = 1 + t1_size tlist) /\ - (t1_size [] = 1) /\ - (t1_size (t1::tlist) = t_size t1 + t1_size tlist)`; - -val ts_size_def = Define -`(ts_size (TS_forall t) = 1 + (t_size t))`; - -val EB_size_def = Define -`(EB_size EB_tv = 1) /\ - (EB_size (EB_vn x ts) = 2 + ts_size ts) /\ - (EB_size (EB_cc cn tc) = 3) /\ - (EB_size (EB_pc cn (TPS_nary tplist) (typexprs_inj tlist) tc) = 4 + LENGTH tplist + t1_size tlist) /\ - (EB_size (EB_fn fn (TPS_nary tplist) tcn t) = 4 + LENGTH tplist + t_size t) /\ - (EB_size (EB_td tcn k) = 3) /\ - (EB_size (EB_tr tcn k fnlist) = 4 + LENGTH fnlist) /\ - (EB_size (EB_ta (TPS_nary tplist) tcn t) = 2 + LENGTH tplist + t_size t) /\ - (EB_size (EB_l l t) = 2 + t_size t)`; - -val E_size_def = Define -`(E_size [] = 0) /\ - (E_size (EB::E) = EB_size EB + E_size E)`; - -local - val lem1 = Q.prove ( - `!t. 0 < t1_size t`, - Induct THEN SRW_TAC [ARITH_ss] [t_size_def]); - - val lem2 = Q.prove ( - `!t l. MEM t l ==> t_size t < t1_size l`, - Induct_on `l` THEN SRW_TAC [] [t_size_def] THEN RES_TAC THEN ASSUME_TAC (Q.SPEC `l` lem1) THEN - DECIDE_TAC); - - val lem3 = Q.prove ( - `!t. 0 < t_size t`, - Induct THEN SRW_TAC [ARITH_ss] [t_size_def]); -in - -val Eok_def = tDefine "Eok" -`(Eok [] = T) /\ - (Eok (EB_tv::E) = Eok E) /\ - (Eok (EB_vn value_name ts::E) = tsok E ts) /\ - (Eok (EB_cc constr_name TC_exn::E) = - Eok E /\ ~MEM (name_cn constr_name) (MAP domEB E)) /\ - (Eok (EB_cc constr_name (TC_name typeconstr_name)::E) = - Eok E /\ (?kind. lookup E (name_tcn typeconstr_name) = SOME (EB_td typeconstr_name kind)) /\ - ~MEM (name_cn constr_name) (MAP domEB E)) /\ - (Eok (EB_cc constr_name tc::E) = F) /\ - (Eok (EB_pc constr_name (TPS_nary []) (typexprs_inj t_list) TC_exn::E) = - EVERY (tkind E) t_list /\ - ~MEM (name_cn constr_name) (MAP domEB E) /\ - LENGTH t_list >= 1) /\ - (Eok (EB_pc constr_name (TPS_nary vars) (typexprs_inj t_list) (TC_name typeconstr_name)::E) = - EVERY (\t. ntsok E vars t) t_list /\ - (lookup E (name_tcn typeconstr_name) = SOME (EB_td typeconstr_name (LENGTH vars))) /\ - ~MEM (name_cn constr_name) (MAP domEB E) /\ - LENGTH t_list >= 1) /\ - (Eok (EB_pc constr_name params (typexprs_inj t_list) tc::E) = F) /\ - (Eok (EB_fn field_name (TPS_nary vars) typeconstr_name t::E) = - ntsok E vars t /\ - ~MEM (name_fn field_name) (MAP domEB E) /\ - ?field_name_list. (lookup E (name_tcn typeconstr_name) = - SOME (EB_tr typeconstr_name (LENGTH vars) field_name_list)) /\ - MEM field_name field_name_list) /\ - (Eok (EB_td typeconstr_name kind::E) = - Eok E /\ - ~MEM (name_tcn typeconstr_name) (MAP domEB E)) /\ - (Eok (EB_ta (TPS_nary vars) typeconstr_name t::E) = - ~MEM (name_tcn typeconstr_name) (MAP domEB E) /\ ntsok E vars t) /\ - (Eok (EB_tr typeconstr_name kind field_name_list::E) = - Eok E /\ - ~MEM (name_tcn typeconstr_name) (MAP domEB E) /\ - ALL_DISTINCT (MAP name_fn field_name_list)) /\ - (Eok (EB_l location t::E) = - tkind E t /\ - ~MEM (name_l location) (MAP domEB E)) /\ - - (typeconstr_kind E (TC_name typeconstr_name) = - if Eok E then - case lookup E (name_tcn typeconstr_name) of - NONE -> NONE - || SOME (EB_td tcn kind) -> SOME kind - || SOME (EB_ta (TPS_nary type_params_opt) tcn t) -> - if ALL_DISTINCT type_params_opt then - SOME (LENGTH type_params_opt) - else - NONE - || SOME (EB_tr tcn kind field_name_list) -> - SOME kind - else - NONE) /\ - (typeconstr_kind E TC_int = if Eok E then SOME 0 else NONE) /\ - (typeconstr_kind E TC_char = if Eok E then SOME 0 else NONE) /\ - (typeconstr_kind E TC_string = if Eok E then SOME 0 else NONE) /\ - (typeconstr_kind E TC_float = if Eok E then SOME 0 else NONE) /\ - (typeconstr_kind E TC_bool = if Eok E then SOME 0 else NONE) /\ - (typeconstr_kind E TC_unit = if Eok E then SOME 0 else NONE) /\ - (typeconstr_kind E TC_exn = if Eok E then SOME 0 else NONE) /\ - (typeconstr_kind E TC_list = if Eok E then SOME 1 else NONE) /\ - (typeconstr_kind E TC_option = if Eok E then SOME 1 else NONE) /\ - (typeconstr_kind E TC_ref = if Eok E then SOME 1 else NONE) /\ - - (tsok E (TS_forall t) = tkind (EB_tv::E) t) /\ - - (ntsok E vars t = - ALL_DISTINCT vars /\ - tkind E (substs_typevar_typexpr (MAP (\tp. (tp_to_tv tp, TE_constr [] TC_unit)) vars) t)) /\ - - (tkind E (TE_var typevar) = F) /\ - (tkind E (TE_idxvar idx n) = - Eok E /\ idx_bound E idx) /\ - (tkind E TE_any = F) /\ - (tkind E (TE_arrow t1 t2) = - tkind E t1 /\ tkind E t2) /\ - (tkind E (TE_tuple t_list) = - EVERY (tkind E) t_list /\ LENGTH t_list >= 2) /\ - (tkind E (TE_constr t_list typeconstr) = - (typeconstr_kind E typeconstr = SOME (LENGTH t_list)) /\ EVERY (tkind E) t_list)` -(WF_REL_TAC `inv_image ($< LEX $<) - (\a. (sum_size (E_size) - (sum_size (\(x,y). E_size x) - (sum_size (\(x,y). E_size x + ts_size y) - (sum_size (\(x,y,z). E_size x + t_size z) - (\(x,y). E_size x))))) a, - (sum_size (\x. 0) - (sum_size (\(x,y). 1) - (sum_size (\x. 0) - (sum_size (\(x,y,z). 0) - (\(x,y). t_size y))))) a)` THEN - SRW_TAC [ARITH_ss] [LENGTH_REVERSE, E_size_def, EB_size_def, t_size_def, ts_size_def, lem1, lem3] THEN - IMP_RES_TAC lem2 THEN SRW_TAC [ARITH_ss] [EB_size_def, ts_size_def]); - -val Eok_ind = fetch "-" "Eok_ind"; - -end; - -val lookup_name_thm = Q.store_thm ("lookup_name_thm", -`!E. -(!tv EB. (lookup E name_tv = SOME EB) ==> (EB = EB_tv)) /\ -(!vn EB. (lookup E (name_vn vn) = SOME EB) ==> ?ts. EB = EB_vn vn ts) /\ -(!cn EB. (lookup E (name_cn cn) = SOME EB) ==> (?typeconstr. EB = EB_cc cn typeconstr) \/ - ?typ tlist typeconstr. EB = EB_pc cn typ tlist typeconstr) /\ -(!tcn EB. (lookup E (name_tcn tcn) = SOME EB) ==> (?kind. EB = EB_td tcn kind) \/ - (?tpo t. EB = EB_ta tpo tcn t) \/ - ?k fnl. EB = EB_tr tcn k fnl) /\ -(!fn EB. (lookup E (name_fn fn) = SOME EB) ==> ?tpo tcn t. EB = EB_fn fn tpo tcn t) /\ -(!l EB. (lookup E (name_l l) = SOME EB) ==> ?t. EB = EB_l l t)`, -Induct THEN SRW_TAC [] [lookup_def, domEB_def, shiftEB_add_thm] THEN RES_TAC THEN SRW_TAC [] [shiftEB_def] THEN -Cases_on `EB` THEN -FULL_SIMP_TAC list_ss [domEB_def, name_11, name_distinct] THEN METIS_TAC []); - - -local -val SIMP = SIMP_RULE bool_ss [clause_name_def, EVERY_MAP, EVERY_CONJ, ETA_THM, LAMBDA_PROD2, lookup_thm, - domE_thm, idx_bound_thm]; -val JTEok_rules2 = SIMP JTEok_rules; -val JTEok_cases2 = SIMP JTEok_cases; - -in -val Eok_thm = Q.prove ( -`(!E. JTEok E = Eok E) /\ - (!E tc k. JTtypeconstr E tc k = (typeconstr_kind E tc = SOME k)) /\ - (!E ts k. JTts E ts k = tsok E ts /\ (k = 0)) /\ - (!E tps t k. JTtsnamed E (TPS_nary tps) t k = ntsok E tps t /\ (k = 0)) /\ - (!E t k. JTt E t k = tkind E t /\ (k = 0))`, -HO_MATCH_MP_TAC Eok_ind THEN - SRW_TAC [ARITH_ss] [Eok_def, domE_thm, lookup_thm, JTEok_rules2] THEN - ONCE_REWRITE_TAC [JTEok_cases2] THEN SRW_TAC [ARITH_ss] [EVERY_MEM] -THENL -[ - EQ_TAC THEN SRW_TAC [] [] THEN1 METIS_TAC [] THEN - Cases_on `ts` THEN SRW_TAC [] [] THEN Cases_on `t` THEN SRW_TAC [] [], - METIS_TAC [], - EQ_TAC THEN SRW_TAC [] [] THEN - FULL_SIMP_TAC list_ss [MAP_MAP, MAP_REVERSE] THENL - [Cases_on `tv_list` THEN - FULL_SIMP_TAC list_ss [MAP_MAP, MAP_REVERSE] THEN METIS_TAC [], - METIS_TAC [], - METIS_TAC [], - Cases_on `tv_list` THEN FULL_SIMP_TAC list_ss [], - Q.EXISTS_TAC `MAP tp_to_tv (v30::v31)` THEN - SRW_TAC [] [MAP_MAP, MAP_REVERSE, tp_to_tv_thm, MAP_I] THEN METIS_TAC []], - EQ_TAC THEN SRW_TAC [] [] THEN - FULL_SIMP_TAC list_ss [MAP_MAP, MAP_REVERSE] THEN - SRW_TAC [] [] THEN1 METIS_TAC [] THEN1 METIS_TAC [] THEN - Q.EXISTS_TAC `MAP tp_to_tv tps` THEN - SRW_TAC [] [MAP_MAP, MAP_I, tp_to_tv_thm], - EQ_TAC THEN SRW_TAC [] [] THEN1 METIS_TAC [] THEN1 METIS_TAC [] THEN1 METIS_TAC [] THEN - Q.EXISTS_TAC `MAP tp_to_tv tps` THEN - SRW_TAC [] [MAP_MAP, MAP_I, tp_to_tv_thm], - Cases_on `lookup E (name_tcn typeconstr_name)` THEN SRW_TAC [] [] - THEN IMP_RES_TAC lookup_name_thm THEN SRW_TAC [] [] THEN - FULL_SIMP_TAC list_ss [name_11, name_distinct] THEN - Cases_on `tpo` THEN SRW_TAC [ARITH_ss] [clause_name_def, JTtps_kind_cases], - EQ_TAC THEN SRW_TAC [] [], - EQ_TAC THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [MAP_MAP, tp_to_tv_def] THEN1 METIS_TAC [] THEN - Q.EXISTS_TAC `MAP tp_to_tv tps` THEN SRW_TAC [] [tp_to_tv_def, MAP_MAP, tp_to_tv_thm, MAP_I], - EQ_TAC THEN SRW_TAC [] [] THEN SRW_TAC [] [] THEN Cases_on `idx_bound E idx` THEN FULL_SIMP_TAC list_ss [], - METIS_TAC [], - METIS_TAC [], - METIS_TAC []]); -end; - -val idxsub_def = ottDefine "idxsub" -`(idxsub tl (TE_var v) = TE_var v) /\ - (idxsub tl (TE_idxvar 0 n) = if n < LENGTH tl then EL n tl else TE_constr [] TC_unit) /\ - (idxsub tl (TE_idxvar (SUC n) n') = TE_idxvar n n') /\ - (idxsub tl TE_any = TE_any) /\ - (idxsub tl (TE_arrow t1 t2) = TE_arrow (idxsub tl t1) (idxsub tl t2)) /\ - (idxsub tl (TE_tuple tl') = TE_tuple (MAP (idxsub tl) tl')) /\ - (idxsub tl (TE_constr tl' tcn) = TE_constr (MAP (idxsub tl) tl') tcn)`; - -val idxsubn0_thm = Q.store_thm ("idxsubn0_thm", -`(!t tl. idxsubn 0 tl t = idxsub tl t) /\ - (!tl' tl. MAP (idxsubn 0 tl) tl' = MAP (idxsub tl) tl')`, -Induct THEN SRW_TAC [] [idxsubn_def, idxsub_def, GSYM ETA_THM] THEN1 -(Cases_on `n` THEN SRW_TAC [] [idxsub_def]) THEN METIS_TAC []); - -local - -val JTidxsub_fun = structural_cases [typexpr_11, typexpr_distinct] - 1 - [get_terms ftv_typexpr_def] - JTidxsub_cases; -val lem1 = Q.prove ( -`!tl t t'. JTidxsub tl t t' ==> (t' = idxsub tl t)`, -RULE_INDUCT_TAC JTidxsub_ind [idxsub_def, LAMBDA_PROD2, EVERY_MAP, MAP_MAP, GSYM arithmeticTheory.ADD1] -[([``"JTinxsub_idx0"``, ``"JTinxsub_idx1"``], - SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [EL_APPEND1, EL_APPEND2]), - ([``"JTinxsub_tuple"``, ``"JTinxsub_tc"``], - Induct THEN SRW_TAC [] [])]); - -val lem2 = Q.prove ( -`!tl t t'. (t' = idxsub tl t) ==> JTidxsub tl t t'`, -HO_MATCH_MP_TAC (fetch "-" "idxsub_ind") THEN -SRW_TAC [] [JTidxsub_fun, idxsub_def, clause_name_def, EVERY_MAP, LAMBDA_PROD2] THENL -[DISJ1_TAC THEN MAP_EVERY Q.EXISTS_TAC [`LASTN (LENGTH tl - n - 1) tl`, `FIRSTN n tl`] THEN - SRW_TAC [ARITH_ss] [LENGTH_FIRSTN] THEN METIS_TAC [FIRSTN_EL_LASTN], - DISJ2_TAC THEN DECIDE_TAC, - DECIDE_TAC, - Q.EXISTS_TAC `MAP (\t. (t, idxsub tl t)) tl'` THEN SRW_TAC [] [MAP_MAP, MAP_I, EVERY_MAP, EVERY_MEM], - Q.EXISTS_TAC `MAP (\t. (t, idxsub tl t)) tl'` THEN - SRW_TAC [] [MAP_MAP, MAP_I, EVERY_MAP, EVERY_MEM]]); - -in - -val idxsub_thm = Q.prove ( -`!tl t t'. JTidxsub tl t t' = (t' = idxsub tl t)`, -METIS_TAC [lem1, lem2]); - -end; - - - -val SIMP1 = SIMP_RULE bool_ss [EVERY_MAP, EVERY_CONJ, ETA_THM, LAMBDA_PROD2, lookup_thm, Slookup_thm, - idx_bound_thm, domE_thm, recfun_thm, funval_thm, Eok_thm, idxsub_thm]; -val SIMP2 = SIMP_RULE bool_ss [EVERY_MAP, EVERY_CONJ, ETA_THM, LAMBDA_PROD2, lookup_thm, Slookup_thm, - idx_bound_thm, domE_thm, recfun_thm, funval_thm, Eok_thm, clause_name_def, - idxsub_thm]; - -val JM_matchP_cases = save_thm ("JM_matchP_cases", SIMP2 JM_matchP_cases); -val _ = save_thm ("JM_matchP_sind", SIMP1 (derive_strong_induction (JM_matchP_rules, JM_matchP_ind))); -val _ = save_thm ("JM_matchP_ind", SIMP1 JM_matchP_ind); -val _ = save_thm ("JM_matchP_rules", SIMP2 JM_matchP_rules); - -val JM_match_cases = save_thm ("JM_match_cases", SIMP2 JM_match_cases); -val _ = save_thm ("JM_match_sind", SIMP1 (derive_strong_induction (JM_match_rules, JM_match_ind))); -val _ = save_thm ("JM_match_ind", SIMP1 JM_match_ind); -val _ = save_thm ("JM_match_rules", SIMP2 JM_match_rules); - -val JRB_dbehaviour_cases = save_thm ("JRB_dbehaviour_cases", SIMP2 JRB_dbehaviour_cases); -val _ = save_thm ("JRB_dbehaviour_ind", SIMP1 JRB_dbehaviour_ind); -val _ = save_thm ("JRB_dbehaviour_rules", SIMP2 JRB_dbehaviour_rules); - -val JRB_ebehaviour_cases = save_thm ("JRB_ebehaviour_cases", SIMP2 JRB_ebehaviour_cases); -val _ = save_thm ("JRB_ebehaviour_ind", SIMP1 JRB_ebehaviour_ind); -val _ = save_thm ("JRB_ebehaviour_rules", SIMP2 JRB_ebehaviour_rules); - -val JR_expr_cases = save_thm ("JR_expr_cases", SIMP2 JR_expr_cases); -val _ = save_thm ("JR_expr_sind", SIMP1 (derive_strong_induction (JR_expr_rules, JR_expr_ind))); -val _ = save_thm ("JR_expr_ind", SIMP1 JR_expr_ind); -val _ = save_thm ("JR_expr_rules", SIMP2 JR_expr_rules); - -val JRbprim_cases = save_thm ("JRbprim_cases", SIMP2 JRbprim_cases); -val _ = save_thm ("JRbprim_ind", SIMP1 JRbprim_ind); -val _ = save_thm ("JRbprim_rules", SIMP2 JRbprim_rules); - -val JRdefn_cases = save_thm ("JRdefn_cases", SIMP2 JRdefn_cases); -val _ = save_thm ("JRdefn_sind", SIMP1 (derive_strong_induction (JRdefn_rules, JRdefn_ind))); -val _ = save_thm ("JRdefn_ind", SIMP1 JRdefn_ind); -val _ = save_thm ("JRdefn_rules", SIMP2 JRdefn_rules); - -val JRmatching_step_cases = save_thm ("JRmatching_step_cases", SIMP2 JRmatching_step_cases); -val _ = save_thm ("JRmatching_step_ind", SIMP1 JRmatching_step_ind); -val _ = save_thm ("JRmatching_step_rules", SIMP2 JRmatching_step_rules); - -val JRmatching_success_cases = save_thm ("JRmatching_success_cases", SIMP2 JRmatching_success_cases); -val _ = save_thm ("JRmatching_success_ind", SIMP1 JRmatching_success_ind); -val _ = save_thm ("JRmatching_success_rules", SIMP2 JRmatching_success_rules); - -val JRstore_cases = save_thm ("JRstore_cases", SIMP2 JRstore_cases); -val _ = save_thm ("JRstore_ind", SIMP1 JRstore_ind); -val _ = save_thm ("JRstore_rules", SIMP2 JRstore_rules); - -val JRtop_cases = save_thm ("JRtop_cases", SIMP2 JRtop_cases); -val _ = save_thm ("JRtop_ind", SIMP1 JRtop_ind); -val _ = save_thm ("JRtop_rules", SIMP2 JRtop_rules); - -val JRuprim_cases = save_thm ("JRuprim_cases", SIMP2 JRuprim_cases); -val _ = save_thm ("JRuprim_ind", SIMP1 JRuprim_ind); -val _ = save_thm ("JRuprim_rules", SIMP2 JRuprim_rules); - -val JTbprim_cases = save_thm ("JTbprim_cases", SIMP2 JTbprim_cases); -val _ = save_thm ("JTbprim_ind", SIMP1 JTbprim_ind); -val _ = save_thm ("JTbprim_rules", SIMP2 JTbprim_rules); - -val JTconst_cases = save_thm ("JTconst_cases", SIMP2 JTconst_cases); -val _ = save_thm ("JTconst_ind", SIMP1 JTconst_ind); -val _ = save_thm ("JTconst_rules", SIMP2 JTconst_rules); - -val JTconstr_c_cases = save_thm ("JTconstr_c_cases", SIMP2 JTconstr_c_cases); -val _ = save_thm ("JTconstr_c_ind", SIMP1 JTconstr_c_ind); -val _ = save_thm ("JTconstr_c_rules", SIMP2 JTconstr_c_rules); - -val JTconstr_decl_cases = save_thm ("JTconstr_decl_cases", SIMP2 JTconstr_decl_cases); -val _ = save_thm ("JTconstr_decl_ind", SIMP1 JTconstr_decl_ind); -val _ = save_thm ("JTconstr_decl_rules", SIMP2 JTconstr_decl_rules); - -val JTconstr_p_cases = save_thm ("JTconstr_p_cases", SIMP2 JTconstr_p_cases); -val _ = save_thm ("JTconstr_p_ind", SIMP1 JTconstr_p_ind); -val _ = save_thm ("JTconstr_p_rules", SIMP2 JTconstr_p_rules); - -val JTdefinition_cases = save_thm ("JTdefinition_cases", SIMP2 JTdefinition_cases); -val _ = save_thm ("JTdefinition_ind", SIMP1 JTdefinition_ind); -val _ = save_thm ("JTdefinition_rules", SIMP2 JTdefinition_rules); - -val JTdefinitions_cases = save_thm ("JTdefinitions_cases", SIMP2 JTdefinitions_cases); -val _ = save_thm ("JTdefinitions_sind", - SIMP1 (derive_strong_induction (JTdefinitions_rules, JTdefinitions_ind))); -val _ = save_thm ("JTdefinitions_ind", SIMP1 JTdefinitions_ind); -val _ = save_thm ("JTdefinitions_rules", SIMP2 JTdefinitions_rules); - -val JTe_cases = save_thm ("JTe_cases", SIMP2 JTe_cases); -val _ = save_thm ("JTe_sind", SIMP1 (derive_strong_induction (JTe_rules, JTe_ind))); -val _ = save_thm ("JTe_ind", SIMP1 JTe_ind); -val _ = save_thm ("JTe_rules", SIMP2 JTe_rules); - -val JTeq_cases = save_thm ("JTeq_cases", SIMP2 JTeq_cases); -val _ = save_thm ("JTeq_ind", SIMP1 JTeq_ind); -val _ = save_thm ("JTeq_rules", SIMP2 JTeq_rules); - -val JTfield_decl_cases = save_thm ("JTfield_decl_cases", SIMP2 JTfield_decl_cases); -val _ = save_thm ("JTfield_decl_ind", SIMP1 JTfield_decl_ind); -val _ = save_thm ("JTfield_decl_rules", SIMP2 JTfield_decl_rules); - -val JTfield_cases = save_thm ("JTfield_cases", SIMP2 JTfield_cases); -val _ = save_thm ("JTfield_ind", SIMP1 JTfield_ind); -val _ = save_thm ("JTfield_rules", SIMP2 JTfield_rules); - -val JTinst_cases = save_thm ("JTinst_cases", SIMP2 JTinst_cases); -val _ = save_thm ("JTinst_ind", SIMP1 JTinst_ind); -val _ = save_thm ("JTinst_rules", SIMP2 JTinst_rules); - -val JTinst_named_cases = save_thm ("JTinst_named_cases", SIMP2 JTinst_named_cases); -val _ = save_thm ("JTinst_named_ind", SIMP1 JTinst_named_ind); -val _ = save_thm ("JTinst_named_rules", SIMP2 JTinst_named_rules); - -val JTinst_any_cases = save_thm ("JTinst_any_cases", SIMP2 JTinst_any_cases); -val _ = save_thm ("JTinst_any_ind", SIMP1 JTinst_any_ind); -val _ = save_thm ("JTinst_any_rules", SIMP2 JTinst_any_rules); - -val JTLin_cases = save_thm ("JTLin_cases", SIMP2 JTLin_cases); -val _ = save_thm ("JTLin_ind", SIMP1 JTLin_ind); -val _ = save_thm ("JTLin_rules", SIMP2 JTLin_rules); - -val JTLout_cases = save_thm ("JTLout_cases", SIMP2 JTLout_cases); -val _ = save_thm ("JTLout_ind", SIMP1 JTLout_ind); -val _ = save_thm ("JTLout_rules", SIMP2 JTLout_rules); - -val JTpat_cases = save_thm ("JTpat_cases", SIMP2 JTpat_cases); -val _ = save_thm ("JTpat_sind", SIMP1 (derive_strong_induction (JTpat_rules, JTpat_ind))); -val _ = save_thm ("JTpat_ind", SIMP1 JTpat_ind); -val _ = save_thm ("JTpat_rules", SIMP2 JTpat_rules); - -val JTstore_cases = save_thm ("JTstore_cases", SIMP2 JTstore_cases); -val _ = save_thm ("JTstore_sind", SIMP1 (derive_strong_induction (JTstore_rules, JTstore_ind))); -val _ = save_thm ("JTstore_ind", SIMP1 JTstore_ind); -val _ = save_thm ("JTstore_rules", SIMP2 JTstore_rules); - -val JTtype_definition_cases = save_thm ("JTtype_definition_cases", SIMP2 JTtype_definition_cases); -val _ = save_thm ("JTtype_definition_ind", SIMP1 JTtype_definition_ind); -val _ = save_thm ("JTtype_definition_rules", SIMP2 JTtype_definition_rules); - -val JTtypedef_cases = save_thm ("JTtypedef_cases", SIMP2 JTtypedef_cases); -val _ = save_thm ("JTtypedef_ind", SIMP1 JTtypedef_ind); -val _ = save_thm ("JTtypedef_rules", SIMP2 JTtypedef_rules); - -val JTuprim_cases = save_thm ("JTuprim_cases", SIMP2 JTuprim_cases); -val _ = save_thm ("JTuprim_ind", SIMP1 JTuprim_ind); -val _ = save_thm ("JTuprim_rules", SIMP2 JTuprim_rules); - -val JTvalue_name_cases = save_thm ("JTvalue_name_cases", SIMP2 JTvalue_name_cases); -val _ = save_thm ("JTvalue_name_ind", SIMP1 JTvalue_name_ind); -val _ = save_thm ("JTvalue_name_rules", SIMP2 JTvalue_name_rules); - -val JTtop_cases = save_thm ("JTtop_cases", SIMP2 JTtop_cases); -val _ = save_thm ("JTtop_ind", SIMP1 JTtop_ind); -val _ = save_thm ("JTtop_rules", SIMP2 JTtop_rules); - -val JTprog_cases = save_thm ("JTprog_cases", SIMP2 JTprog_cases); -val _ = save_thm ("JTprog_ind", SIMP1 JTprog_ind); -val _ = save_thm ("JTprog_rules", SIMP2 JTprog_rules); - -val is_binary_prim_app_value_of_expr_thm = Q.prove ( -`!e. is_binary_prim_app_value_of_expr e = (?bp. e = Expr_bprim bp)`, -Cases THEN SRW_TAC [] [is_binary_prim_app_value_of_expr_def]); - -val _ = save_thm ("is_value_of_expr_def", - PURE_REWRITE_RULE [is_binary_prim_app_value_of_expr_thm] is_value_of_expr_def); - -val expr_terms = get_terms is_value_of_expr_def; -val pattern_matching_terms = [``PM_pm pat_exp_list``]; -val let_binding_terms = [``LB_simple pattern expr``]; -val letrec_binding_terms = [``LRBs_inj letrec_binding_list``]; -val _ = save_thm ("JTe_fun", - structural_cases [expr_11, expr_distinct, pattern_matching_11, - let_binding_11, letrec_bindings_11] - 2 - [expr_terms, pattern_matching_terms, let_binding_terms, letrec_binding_terms] - JTe_cases); - -val _ = save_thm ("JR_expr_fun", - structural_cases [expr_11, expr_distinct] - 0 - [expr_terms] - JR_expr_cases); - -val _ = save_thm ("JTpat_fun", - structural_cases [pattern_11, pattern_distinct] - 2 - [get_terms ftv_pattern_def] - JTpat_cases); - -val _ = save_thm ("JTconst_fun", - structural_cases [constant_11, constant_distinct] - 1 - [[``CONST_int n``, ``CONST_float f``, ``CONST_char c``, ``CONST_string s``, - ``CONST_constr constr``, ``CONST_true``, ``CONST_false``, ``CONST_unit``, - ``CONST_nil``]] - JTconst_cases); - -val JM_matchP_fun = save_thm ("JM_matchP_fun", - structural_cases [pattern_11, pattern_distinct] - 1 - [get_terms ftv_pattern_def] - JM_matchP_cases); - -val JM_match_fun = save_thm ("JM_match_fun", - structural_cases [pattern_11, pattern_distinct] - 1 - [get_terms ftv_pattern_def] - JM_match_cases); - -val JTdefinition_fun = save_thm ("JTdefinition_fun", - structural_cases [definition_11, definition_distinct] - 1 - [[``D_let lb``, - ``D_letrec lrbs``, - ``D_type td``, - ``D_exception ed``]] - JTdefinition_cases); - -val JTdefinitions_fun = save_thm ("JTdefinitions_fun", - structural_cases [definitions_11, definitions_distinct] - 1 [[``Ds_nil``, ``Ds_cons d ds``]] - JTdefinitions_cases); - -val JTprog_fun = save_thm ("JTprog_fun", - structural_cases [program_11, program_distinct] - 1 [[``Prog_defs ds``, - ``Prog_raise v``]] - JTprog_cases); - -val JRdefn_fun = save_thm ("JRdefn_fun", - structural_cases [definitions_11, definitions_distinct, definition_11, definition_distinct, - program_11, program_distinct] - 1 - [[``Prog_defs Ds_nil``, - ``Prog_defs (Ds_cons (D_let lb) ds)``, - ``Prog_defs (Ds_cons (D_letrec lrbs) ds)``, - ``Prog_defs (Ds_cons (D_type td) ds)``, - ``Prog_defs (Ds_cons (D_exception ed) ds)``, - ``Prog_raise v``]] - JRdefn_cases); - -val JTstore_fun = save_thm ("JTstore_fun", SIMP_RULE list_ss [] - (structural_cases [list_11, list_distinct] - 1 - [[``[]:store``, - ``(l, v)::(store:store)``]] - JTstore_cases)); - -val JTinst_any_fun = save_thm ("JTinst_any_fun", - structural_cases [typexpr_11, typexpr_distinct] - 2 - [get_terms ftv_typexpr_def] - JTinst_any_cases); - - -val JTeq_fun = save_thm ("JTeq_fun", - structural_cases [typexpr_11, typexpr_distinct] - 1 - [get_terms ftv_typexpr_def] - JTeq_cases); - -(* This otherwise useless definition is accompanied by a nice induction principle. *) -val Eok2_def = Define -`(Eok2 [] = T) /\ - (Eok2 (EB_tv::E) = Eok2 E) /\ - (Eok2 (EB_vn value_name (TS_forall t)::E) = Eok2 E) /\ - (Eok2 (EB_cc constr_name TC_exn::E) = Eok2 E) /\ - (Eok2 (EB_cc constr_name (TC_name typeconstr_name)::E) = Eok2 E) /\ - (Eok2 (EB_cc constr_name tc::E) = F) /\ - (Eok2 (EB_pc constr_name (TPS_nary []) (typexprs_inj t_list) TC_exn::E) = Eok2 E) /\ - (Eok2 (EB_pc constr_name (TPS_nary vars) (typexprs_inj t_list) (TC_name typeconstr_name)::E) = Eok2 E) /\ - (Eok2 (EB_pc constr_name params (typexprs_inj t_list) tc::E) = F) /\ - (Eok2 (EB_fn field_name (TPS_nary vars) typeconstr_name t::E) = Eok2 E) /\ - (Eok2 (EB_td typeconstr_name kind::E) = Eok2 E) /\ - (Eok2 (EB_ta tps typeconstr_name t::E) = Eok2 E) /\ - (Eok2 (EB_tr typeconstr_name kind field_name_list::E) = Eok2 E) /\ - (Eok2 (EB_l location t::E) = Eok2 E)`; - -val is_abbrev_tc_def = Define ` -(is_abbrev_tc E (TE_constr _ (TC_name tcn)) = - case lookup E (name_tcn tcn) of - SOME (EB_ta x y z) -> T - || _ -> F) /\ -(is_abbrev_tc E _ = F)`; - -val is_abbrev_tc_cases = Q.store_thm ("is_abbrev_tc_cases", -`!E t. is_abbrev_tc E t = ?ts tcn tps t'. (t = TE_constr ts (TC_name tcn)) /\ - (lookup E (name_tcn tcn) = SOME (EB_ta (TPS_nary tps) tcn t'))`, -Cases_on `t` THEN SRW_TAC [] [is_abbrev_tc_def] THEN -Cases_on `t'` THEN SRW_TAC [] [is_abbrev_tc_def] THEN -Cases_on `lookup E (name_tcn t'')` THEN SRW_TAC [] [is_abbrev_tc_def] THEN -Cases_on `x` THEN SRW_TAC [] [is_abbrev_tc_def] THEN -IMP_RES_TAC lookup_name_thm THEN -FULL_SIMP_TAC list_ss [environment_binding_11, environment_binding_distinct, type_params_opt_nchotomy]); - -val is_record_tc_def = Define ` -(is_record_tc E (TE_constr _ (TC_name tcn)) = - case lookup E (name_tcn tcn) of - SOME (EB_tr x y z) -> T - || _ -> F) /\ -(is_record_tc E _ = F)`; - -val is_record_tc_cases = Q.store_thm ("is_record_tc_cases", -`!E t. is_record_tc E t = (?ts tcn k fns. (t = TE_constr ts (TC_name tcn)) /\ - (lookup E (name_tcn tcn) = SOME (EB_tr tcn k fns)))`, -Cases_on `t` THEN SRW_TAC [] [is_record_tc_def] THEN -Cases_on `t'` THEN SRW_TAC [] [is_record_tc_def] THEN -Cases_on `lookup E (name_tcn t'')` THEN SRW_TAC [] [is_record_tc_def] THEN -Cases_on `x` THEN SRW_TAC [] [is_abbrev_tc_def] THEN -IMP_RES_TAC lookup_name_thm THEN -FULL_SIMP_TAC list_ss [environment_binding_11, environment_binding_distinct]); - -val is_constr_tc_def = Define ` -(is_constr_tc E (TE_constr _ (TC_name tcn)) = - case lookup E (name_tcn tcn) of - SOME (EB_td x y) -> T - || _ -> F) /\ -(is_constr_tc E (TE_constr [] TC_exn) = T) /\ -(is_constr_tc E (TE_constr [t] TC_option) = T) /\ -(is_constr_tc E _ = F)`; - -val is_constr_tc_cases = Q.store_thm ("is_constr_tc_cases", -`!E t. is_constr_tc E t = (?ts tcn k. (t = TE_constr ts (TC_name tcn)) /\ - (lookup E (name_tcn tcn) = SOME (EB_td tcn k))) \/ - (?t'. t = TE_constr [t'] TC_option) \/ - (t = TE_constr [] TC_exn)`, -Cases_on `t` THEN SRW_TAC [] [is_constr_tc_def] THEN -Cases_on `t'` THEN SRW_TAC [] [is_constr_tc_def] THEN -Cases_on `l` THEN SRW_TAC [] [is_constr_tc_def] THEN -TRY (Cases_on `lookup E (name_tcn t'')` THEN SRW_TAC [] [is_constr_tc_def]) THEN -TRY (Cases_on `t` THEN SRW_TAC [] [is_constr_tc_def]) THEN -TRY (Cases_on `t'` THEN SRW_TAC [] [is_constr_tc_def]) THEN -Cases_on `x` THEN SRW_TAC [] [is_abbrev_tc_def] THEN -IMP_RES_TAC lookup_name_thm THEN -FULL_SIMP_TAC list_ss [environment_binding_11, environment_binding_distinct]); - -val JM_match_lem = Q.prove ( -`!e p s. JM_match e p s ==> JM_matchP e p`, -RULE_INDUCT_TAC JM_match_ind [JM_matchP_fun, ELIM_UNCURRY, EVERY_MAP, EVERY_MEM] -[([``"JM_match_construct"``, ``"JM_match_tuple"``], - SRW_TAC [] [] THEN Q.EXISTS_TAC `MAP (\x. (FST x, FST (SND x))) v_pat_substs_x_list` THEN - SRW_TAC [] [MAP_MAP, ETA_THM] THEN FULL_SIMP_TAC list_ss [MEM_MAP]), - ([``"JM_match_record"``], - SRW_TAC [] [] THEN - MAP_EVERY Q.EXISTS_TAC [`fn_v''_list`, - `MAP (\(a, b, c, d). (a, b, d)) field_name'_pat_substs_x_v'_list`, - `field_name_v_list`] THEN - SRW_TAC [] [LAMBDA_PROD2, MAP_MAP] THEN FULL_SIMP_TAC list_ss [MEM_MAP])]); - -local - -val lem1 = Q.prove ( -`!l1 l2 P. - (LENGTH l1 = LENGTH l2) /\ - EVERY (\x. P (FST x) (FST (SND x)) (substs_x_xs (SND (SND x)))) (ZIP (MAP FST l1,ZIP (MAP SND l1,l2))) ==> - EVERY (\x. P (FST (FST x)) (SND (FST x)) (SND x)) (ZIP (l1,MAP substs_x_xs l2))`, -Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN FULL_SIMP_TAC list_ss []); - -val lem2 = Q.prove ( -`!l1 l2 f g. (LENGTH l1 = LENGTH l2) ==> - (MAP (\x. (f (FST x),g (FST x))) (ZIP (l1,l2)) = - MAP (\z. (f z, g z)) l1)`, -Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN FULL_SIMP_TAC list_ss []); - -val lem3 = Q.prove ( -`!l1 l2 P. - (LENGTH l1 = LENGTH l2) /\ - EVERY (\x. P (SND (FST x)) (SND (FST (SND x))) (substs_x_xs (SND (SND x)))) - (ZIP (MAP (\z. (F_name (FST z),SND (SND z))) l1, - ZIP (MAP (\z. (F_name (FST z),FST (SND z))) l1,l2))) ==> - EVERY (\x. P (SND (SND (FST x))) (FST (SND (FST x))) (substs_x_xs (SND x))) (ZIP (l1,l2))`, -Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN FULL_SIMP_TAC list_ss []); - -in - -val JM_matchP_lem = Q.prove ( -`(!p e. JM_matchP e p ==> ?s. JM_match e p (substs_x_xs s) /\ EVERY is_value_of_expr (MAP SND s)) /\ - (!plist elist. (LENGTH plist = LENGTH elist) /\ EVERY (UNCURRY JM_matchP) (ZIP (elist, plist)) ==> - ?slist. (LENGTH plist = LENGTH slist) /\ EVERY is_value_of_expr (MAP SND (FLAT slist)) /\ - EVERY (\(e, p, s). JM_match e p (substs_x_xs s)) - (ZIP (elist, (ZIP (plist, slist))))) /\ - (!fplist felist. (LENGTH felist = LENGTH fplist) /\ - EVERY (\((f:field,e),(f':field,p)). JM_matchP e p) (ZIP (felist, fplist)) ==> - ?slist. (LENGTH fplist = LENGTH slist) /\ EVERY is_value_of_expr (MAP SND (FLAT slist)) /\ - EVERY (\((f,e), (f,p), s). JM_match e p (substs_x_xs s)) - (ZIP (felist, (ZIP (fplist, slist))))) /\ - (!(fp:field#pattern) (fe:field#expr). JM_matchP (SND fe) (SND fp) ==> - ?s. JM_match (SND fe) (SND fp) (substs_x_xs s) /\ EVERY is_value_of_expr (MAP SND s))`, -Induct THEN SRW_TAC [] [JM_match_fun, JM_matchP_fun, EVERY_MAP] THEN -FULL_SIMP_TAC list_ss [EVERY_MAP, ELIM_UNCURRY] THENL -[RES_TAC THEN Q.EXISTS_TAC `s++[(v,e)]` THEN SRW_TAC [] [], - METIS_TAC [], - METIS_TAC [], - METIS_TAC [], - Q.PAT_ASSUM `!elist. P elist ==> Q elist` (MP_TAC o Q.SPEC `MAP FST (v_pat_list:(expr#pattern) list)`) THEN - SRW_TAC [] [ZIP_MAP_ID] THEN Q.EXISTS_TAC `FLAT slist` THEN SRW_TAC [] [] THEN - Q.EXISTS_TAC `MAP (\((v, p), s). (v, p, s)) (ZIP (v_pat_list, MAP substs_x_xs slist))` THEN - SRW_TAC [] [MAP_MAP, LAMBDA_PROD2, EVERY_MAP] THEN - SRW_TAC [] [GSYM MAP_MAP, MAP_FST_ZIP, MAP_SND_ZIP, GSYM EVERY_MAP] THEN - SRW_TAC [] [MAP_MAP, MAP_I, EVERY_MAP, lem1], - Q.PAT_ASSUM `!elist. P elist ==> Q elist` (MP_TAC o Q.SPEC `MAP FST (v_pat_list:(expr#pattern) list)`) THEN - SRW_TAC [] [ZIP_MAP_ID] THEN Q.EXISTS_TAC `FLAT slist` THEN SRW_TAC [] [] THEN - Q.EXISTS_TAC `MAP (\((v, p), s). (v, p, s)) (ZIP (v_pat_list, MAP substs_x_xs slist))` THEN - SRW_TAC [] [MAP_MAP, LAMBDA_PROD2, EVERY_MAP] THEN - SRW_TAC [] [GSYM MAP_MAP, MAP_FST_ZIP, MAP_SND_ZIP, GSYM EVERY_MAP] THEN - SRW_TAC [] [MAP_MAP, MAP_I, EVERY_MAP, lem1], - Q.PAT_ASSUM `!felist. P felist ==> Q felist` - (MP_TAC o Q.SPEC `MAP (\(fn, p:pattern, v:expr). (F_name fn, v)) field_name'_pat_v'_list`) THEN - SRW_TAC [] [MAP_MAP, MAP_ZIP_SAME, ZIP_MAP, EVERY_MAP, LAMBDA_PROD2] THEN - Q.EXISTS_TAC `FLAT slist` THEN SRW_TAC [] [] THEN - MAP_EVERY Q.EXISTS_TAC [`fn_v''_list`, - `MAP (\((f, p, v), s). (f, p, substs_x_xs s, v)) - (ZIP (field_name'_pat_v'_list, slist))`, - `field_name_v_list`] THEN - SRW_TAC [] [ETA_THM, MAP_MAP, LAMBDA_PROD2, EVERY_MAP, MAP_SND_ZIP, lem2] THEN - SRW_TAC [] [GSYM EVERY_MAP, GSYM MAP_MAP, MAP_FST_ZIP] THEN - SRW_TAC [] [EVERY_MAP, lem3], - RES_TAC THEN Q.EXISTS_TAC `s'++s` THEN SRW_TAC [] [] THEN - MAP_EVERY Q.EXISTS_TAC [`substs_x_xs s'`, `substs_x_xs s`] THEN SRW_TAC [] [], - Cases_on `elist` THEN FULL_SIMP_TAC list_ss [] THEN Q.EXISTS_TAC `[]` THEN SRW_TAC [] [], - Cases_on `elist` THEN FULL_SIMP_TAC list_ss [] THEN - Q.PAT_ASSUM `!elist. P elist ==> ?slist. (LENGTH elist = LENGTH slist) /\ Q elist slist` - (MP_TAC o Q.SPEC `t`) THEN - SRW_TAC [] [] THEN RES_TAC THEN Q.EXISTS_TAC `s::slist` THEN SRW_TAC [] [], - Cases_on `felist` THEN FULL_SIMP_TAC list_ss [] THEN Q.EXISTS_TAC `[]` THEN SRW_TAC [] [], - Cases_on `felist` THEN FULL_SIMP_TAC list_ss [] THEN - Q.PAT_ASSUM `!felist'. P felist' ==> ?slist. (LENGTH fplist = LENGTH slist) /\ Q felist' slist` - (MP_TAC o Q.SPEC `t`) THEN - SRW_TAC [] [] THEN RES_TAC THEN Q.EXISTS_TAC `s::slist` THEN SRW_TAC [] []]); - -end; - -val JM_match_is_val_thm = Q.store_thm ("JM_match_is_val_thm", -`!e p s. JM_match e p s ==> !s'. (s = substs_x_xs s') ==> EVERY is_value_of_expr (MAP SND s')`, -RULE_INDUCT_TAC JM_match_ind [EVERY_MAP, ELIM_UNCURRY, MAP_MAP] -[([``"JM_match_tuple"``, ``"JM_match_construct"``], - SRW_TAC [] [EVERY_MEM, MEM_FLAT, EXISTS_MAP, EXISTS_MEM] THEN - Cases_on `x'` THEN FULL_SIMP_TAC list_ss [] THEN - Cases_on `r` THEN FULL_SIMP_TAC list_ss [] THEN - Cases_on `r'` THEN FULL_SIMP_TAC (srw_ss()) [] THEN METIS_TAC [SND]), - ([``"JM_match_record"``], - SRW_TAC [] [EVERY_MEM, MEM_FLAT, EXISTS_MAP, EXISTS_MEM] THEN - Cases_on `x'` THEN FULL_SIMP_TAC list_ss [] THEN - Cases_on `r` THEN FULL_SIMP_TAC list_ss [] THEN - Cases_on `r'` THEN FULL_SIMP_TAC (srw_ss()) [] THEN - Cases_on `q''` THEN FULL_SIMP_TAC (srw_ss()) [] THEN - METIS_TAC [FST, SND]), - ([``"JM_match_cons"``], - SRW_TAC [] [EVERY_MEM] THEN - Cases_on `s` THEN Cases_on `s'` THEN FULL_SIMP_TAC (srw_ss()) [])]); - -val JM_matchP_thm = Q.store_thm ("JM_matchP_thm", -`!p e. JM_matchP e p = ?s. JM_match e p (substs_x_xs s)`, -METIS_TAC [JM_matchP_lem, JM_match_lem, JM_match_is_val_thm]); - - -val _ = export_theory(); diff --git a/vendors/ott/examples/ocaml_light/hol/definitionsScript.sml b/vendors/ott/examples/ocaml_light/hol/definitionsScript.sml deleted file mode 100644 index 54b64cd59820..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/definitionsScript.sml +++ /dev/null @@ -1,833 +0,0 @@ -(* -load "preservationTheory"; -load "progressTheory"; -load "ottLib"; -load "rich_listTheory"; -load "storeTheory"; -quietdec:=true; -*) -open bossLib HolKernel boolLib listTheory rich_listTheory optionTheory combinTheory arithmeticTheory pairTheory; -open sortingTheory; -open ottTheory ottLib caml_typedefTheory; -open utilTheory basicTheory shiftTheory environmentTheory validTheory progressTheory preservationTheory; -open weakenTheory substsTheory remv_tyvarTheory strengthenTheory env_permTheory storeTheory; -(* -quietdec:=false; -*) - -val _ = new_theory("definitions"); - -val _ = Parse.hide "S"; - -val type_env_rev_thm = Q.prove ( -`!E. type_env (REVERSE E) = type_env E`, -Induct THEN SRW_TAC [] [type_env_def, type_env_append_thm] THEN Cases_on `h` THEN SRW_TAC [] [type_env_def]); - -val typedef_type_env_thm = Q.prove ( -`!tdl E1 E2 E3. JTtypedef tdl E1 E2 E3 ==> type_env E1 /\ type_env E2 /\ type_env E3`, -RULE_INDUCT_TAC JTtypedef_ind [type_env_def, type_env_append_thm, type_env_rev_thm] -[([``"JTtypedef_def_sum"``], - SRW_TAC [] [] THEN Induct_on `constr_decl_EB_list` THEN FULL_SIMP_TAC list_ss [type_env_def] THEN - FULL_SIMP_TAC list_ss [type_env_def, EVERY_MEM, JTconstr_decl_cases] THEN SRW_TAC [] [] THEN - SRW_TAC [] [type_env_def]), - ([``"JTtypedef_def_record"``], - SRW_TAC [] [] THEN Induct_on `field_name_t_EB_list` THEN FULL_SIMP_TAC list_ss [type_env_def] THEN - FULL_SIMP_TAC list_ss [type_env_def, EVERY_MEM, JTfield_decl_cases, ELIM_UNCURRY] THEN SRW_TAC [] [] THEN - SRW_TAC [] [type_env_def])]); - -val type_definition_type_env_thm = Q.prove ( -`!E tds E'. JTtype_definition E tds E' ==> type_env E'`, -HO_MATCH_MP_TAC JTtype_definition_ind THEN SRW_TAC [] [type_env_append_thm] THEN -METIS_TAC [typedef_type_env_thm]); - -val ds_value_type_env_thm = Q.prove ( -`!E ds_value E'. JTdefinitions E ds_value E' ==> type_env E /\ is_definitions_value_of_definitions ds_value - ==> type_env E'`, -HO_MATCH_MP_TAC JTdefinitions_ind THEN SRW_TAC [] [type_env_def, type_env_append_thm] THEN -Cases_on `definition` THEN -FULL_SIMP_TAC list_ss [JTdefinition_fun, is_definitions_value_of_definitions_def, type_env_def, - is_definition_value_of_definition_def, JTconstr_decl_cases] THEN SRW_TAC [] [] THEN -METIS_TAC [type_definition_type_env_thm]); - -val substs_x_to_vn_e_list_def = Define -`substs_x_to_vn_e_list (substs_x_xs vn_e_list) = vn_e_list`; - -val substs_x_to_vn_e_list_thm = Q.prove ( -`!l. substs_x_xs (substs_x_to_vn_e_list l) = l`, -Cases THEN SRW_TAC [] [substs_x_to_vn_e_list_def]); - -local - -val lem1 = Q.prove ( -`!l f. LRBs_inj (MAP (\x. LRB_simple (FST case x of LRB_simple y z -> (y,f z,z)) - (SND (SND case x of LRB_simple y z -> (y,f z,z)))) (lrbs_to_lrblist l)) = - l`, -Induct THEN SRW_TAC [] [lrbs_to_lrblist_def] THEN Induct_on `l` THEN SRW_TAC [] [] THEN Cases_on `h` THEN -SRW_TAC [] []); - -val lem2 = Q.prove ( -`!l'. EVERY (\x. recfun l (SND (SND case x of LRB_simple y z -> (y,recfun l z,z))) = - FST (SND case x of LRB_simple y z -> (y,recfun l z,z))) l'`, -Induct THEN SRW_TAC [] [] THEN Cases_on `h` THEN SRW_TAC [] []); - -in - -val defs_progress_thm = Q.prove ( -`!E ds E'. JTdefinitions E ds E' ==> !ds_value. is_definitions_value_of_definitions ds_value /\ - closed_env E ==> - ((ds = Ds_nil) \/ - (?L ds_value' prog. JRdefn ds_value (Prog_defs ds) L ds_value' prog))`, -HO_MATCH_MP_TAC JTdefinitions_ind THEN SRW_TAC [] [] THEN Cases_on `definition` THEN -FULL_SIMP_TAC list_ss [JRdefn_fun, JTdefinition_fun] THEN SRW_TAC [] [] THEN -`closed_env (EB_tv::E)` by METIS_TAC [closed_env_tv_lem] THEN -IMP_RES_TAC e_progress_thm THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [JRB_ebehaviour_cases] THEN -SRW_TAC [] [EXISTS_OR_THM] THENL -[Cases_on `~JM_matchP e p` THEN1 METIS_TAC [] THEN FULL_SIMP_TAC list_ss [JM_matchP_thm] THEN - IMP_RES_TAC JMmatch_val_subst_thm THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN - METIS_TAC [substs_x_to_vn_e_list_thm], - METIS_TAC [], - Cases_on `~JM_matchP e p` THEN1 METIS_TAC [] THEN FULL_SIMP_TAC list_ss [JM_matchP_thm] THEN - IMP_RES_TAC JMmatch_val_subst_thm THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN - METIS_TAC [substs_x_to_vn_e_list_thm], - METIS_TAC [], - Q.EXISTS_TAC `MAP (\x. case x of LRB_simple y z -> (y, recfun l z, z)) (lrbs_to_lrblist l)` THEN - SRW_TAC [] [MAP_MAP, EVERY_MAP, lem1, lem2]]); -end; - -val ds_value_thm = Q.prove ( -`!ds_value prog L ds_value' prog'. JRdefn ds_value prog L ds_value' prog' ==> - is_definitions_value_of_definitions ds_value /\ - is_definitions_value_of_definitions ds_value'`, -HO_MATCH_MP_TAC JRdefn_ind THEN -SIMP_TAC list_ss [] THEN CONJ_TAC THEN -Induct THEN SRW_TAC [] [is_definitions_value_of_definitions_def, definitions_snoc_def, - is_definition_value_of_definition_def]); - -val defs_store_progress_thm = Q.prove ( -`!ds_value prog L ds_value' prog'. JRdefn ds_value prog L ds_value' prog' ==> !st. - (!l. MEM l (fl_program prog) ==> ?v. (list_assoc l st = SOME v) /\ is_value_of_expr v) ==> - ?L' st' prog''. JRdefn ds_value prog L' ds_value' prog'' /\ JRstore st L' st'`, -RULE_INDUCT_TAC JRdefn_ind [JRdefn_fun, fl_definitions_def, fl_definition_def, fl_letrec_binding_def, - fl_program_def] -[([``"Jdefn_let_ctx"``], METIS_TAC [e_store_progress_thm])] -THEN SRW_TAC [] [JRstore_cases] THEN METIS_TAC []); - -local - -val lem1 = Q.prove ( -`!E l. type_env E ==> ~MEM (name_l l) (MAP domEB E)`, -Induct THEN SRW_TAC [] [type_env_def, domEB_def] THEN -Cases_on `h` THEN FULL_SIMP_TAC list_ss [type_env_def, domEB_def] THEN SRW_TAC [] []); - -in - -val defs_env_fl_thm = Q.prove ( -`!E ds E'. JTdefinitions E ds E' ==> - (!x. MEM x (fl_definitions ds) ==> MEM (name_l x) (MAP domEB E))`, -RULE_INDUCT_TAC JTdefinitions_ind [fl_definitions_def] -[] -THEN Cases_on `definition` THEN -SRW_TAC [] [JTdefinition_cases, fl_definition_def] THEN -FULL_SIMP_TAC list_ss [MAP_REVERSE, MAP_MAP, domEB_def, fl_letrec_binding_def] THEN -IMP_RES_TAC env_fl_thm THEN FULL_SIMP_TAC list_ss [fl_letrec_binding_def, domEB_def] THEN SRW_TAC [] [] THENL -[METIS_TAC [], - FULL_SIMP_TAC list_ss [MEM_MAP] THEN SRW_TAC [] [] THEN METIS_TAC [], - FULL_SIMP_TAC list_ss [MEM_MAP] THEN SRW_TAC [] [] THEN METIS_TAC [], - FULL_SIMP_TAC list_ss [MEM_MAP] THEN SRW_TAC [] [] THEN METIS_TAC [], - METIS_TAC [lem1, type_definition_type_env_thm], - FULL_SIMP_TAC list_ss [JTconstr_decl_cases] THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [domEB_def] THEN - SRW_TAC [] [] THEN METIS_TAC []]); - -val progress_thm = Q.prove ( -`!E prog st E1. JTtop E prog st E1 ==> !ds_value. (is_definitions_value_of_definitions ds_value) /\ - (JTdefinitions [] ds_value E) ==> JRB_dbehaviour ds_value prog st`, -SRW_TAC [] [JTtop_cases, JRB_dbehaviour_cases, JTprog_cases, JRtop_cases] THEN -`closed_env (E'++E)` by METIS_TAC [closed_env_append_thm, store_env_closed_thm, type_env_closed_thm, - JTstore_env_thm, ds_value_type_env_thm, type_env_def] THEN -IMP_RES_TAC defs_progress_thm THEN SRW_TAC [] [] THEN DISJ2_TAC THEN -IMP_RES_TAC defs_store_progress_thm THEN -IMP_RES_TAC defs_env_fl_thm THEN FULL_SIMP_TAC list_ss [] THEN -`!x. ~MEM (name_l x) (MAP domEB E)` by METIS_TAC [lem1, ds_value_type_env_thm, type_env_def] THEN -FULL_SIMP_TAC list_ss [fl_program_def] THEN IMP_RES_TAC store_typing_thm THEN FULL_SIMP_TAC list_ss [] THEN -METIS_TAC [ds_value_thm]); - -val progress_thm = save_thm("progress_thm", SIMP_RULE list_ss [AND_IMP_INTRO, GSYM RIGHT_FORALL_IMP_THM] - progress_thm); -end; - -val helper_lem1 = Q.prove ( -`!l1 l2. (REVERSE (MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) l1) = - REVERSE (MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) l2)) = - (l2 = l1)`, -SIMP_TAC list_ss [REVERSE_EQ] THEN Induct THEN SRW_TAC [] [] THEN -Cases_on `l2` THEN SRW_TAC [] [] THEN Cases_on `h` THEN Cases_on `h'` THEN SRW_TAC [] [shiftt_11] THEN -METIS_TAC []); - - -local - -val lem1 = Q.prove ( -`!E' x. type_env E' ==> ~MEM (name_vn x) (MAP domEB E')`, -Induct THEN SRW_TAC [] [] THEN Cases_on `h` THEN FULL_SIMP_TAC (srw_ss()) [type_env_def, domEB_def]); - -in - -val aux_xs_definition_of_definition_thm = Q.prove ( -`!E d E'. JTdefinition E d E' ==> - (!x. MEM x (aux_xs_definition_of_definition d) = MEM (name_vn x) (MAP domEB E'))`, -RULE_INDUCT_TAC JTdefinition_ind [JTdefinition_fun, aux_xs_definition_of_definition_def, - aux_xs_let_binding_of_let_binding_def , JTe_fun] -[([``"JTdefinition_let_poly"``, ``"JTdefinition_let_mono"``], - SRW_TAC [] [MAP_MAP, MAP_REVERSE, domEB_def] THEN - FULL_SIMP_TAC list_ss [helper_lem1] THEN SRW_TAC [] [] THEN - IMP_RES_TAC (GSYM aux_xs_pattern_of_pattern_thm) THEN - FULL_SIMP_TAC (srw_ss()) [MAP_MAP, domEB_def] THEN SRW_TAC [] [MEM_MAP]), - ([``"JTdefinition_letrec"``], - SRW_TAC [] [MAP_MAP, domEB_def, MAP_REVERSE] THEN - IMP_RES_TAC (GSYM aux_xs_letrec_bindings_of_letrec_bindings_thm) THEN - FULL_SIMP_TAC (srw_ss()) [MAP_MAP, domEB_def] THEN SRW_TAC [] [MEM_MAP]), - ([``"JTdefinition_typedef"``], - METIS_TAC [lem1, type_definition_type_env_thm]), - ([``"JTdefinition_exndef"``], - SRW_TAC [] [JTconstr_decl_cases] THEN SRW_TAC [] [domEB_def])]); - -end; - - -val type_def_store_env_str_thm = Q.prove ( -`!E td E'. JTtype_definition E td E' ==> !E1 E2 E3. (E = E1++E2++E3) /\ (store_env E2 \/ value_env E2) ==> - JTtype_definition (E1++E3) td E'`, -RULE_INDUCT_TAC JTtype_definition_ind [] -[([``"JTtype_definition_swap"``], METIS_TAC [JTtype_definition_rules]), - ([``"JTtype_definition_list"``], - SRW_TAC [] [] THEN ONCE_REWRITE_TAC [JTtype_definition_cases] THEN SRW_TAC [] [] THEN DISJ1_TAC THEN - METIS_TAC [APPEND_ASSOC, value_env_ok_str_thm])]); - -val type_def_ok_thm = Q.prove ( -`!E td E'. JTtype_definition E td E' ==> Eok (E'++E)`, -RULE_INDUCT_TAC JTtype_definition_ind [] []); - -val defs_ok_thm = Q.prove ( -`!E defs E'. JTdefinitions E defs E' ==> Eok (E'++E)`, -RULE_INDUCT_TAC JTdefinitions_ind [] []); - -val prog_ok_thm = Q.prove ( -`!E prog E'. JTprog E prog E' ==> Eok (E'++E)`, -SRW_TAC [] [JTprog_cases] THEN SRW_TAC [] [] THEN METIS_TAC [ok_thm, ok_ok_thm, defs_ok_thm]); - -val weak_type_def_thm = Q.prove ( -`!E td E'. JTtype_definition E td E' ==> - !E1. (E = E1++E2) /\ ~MEM EB_tv E3 /\ Eok (E'++E1++E3++E2) ==> - JTtype_definition (E1++E3++E2) td E'`, -RULE_INDUCT_TAC JTtype_definition_ind [] -[([``"JTtype_definition_swap"``], - SRW_TAC [] [JTtype_definition_rules]), - ([``"JTtype_definition_list"``], - ONCE_REWRITE_TAC [JTtype_definition_cases] THEN SRW_TAC [] [] THEN - METIS_TAC [])]); - - -local - -val lem1 = - hd (tl (tl (CONJUNCTS (SIMP_RULE list_ss [AND_IMP_INTRO, GSYM RIGHT_FORALL_IMP_THM] weak_not_tv_thm)))); - -val lem2 = - hd (tl (tl (tl (CONJUNCTS (SIMP_RULE list_ss [AND_IMP_INTRO, GSYM RIGHT_FORALL_IMP_THM] weak_not_tv_thm))))); - -in - -val weak_def_thm = Q.prove ( -`!E d E'. JTdefinition E d E' ==> - !E1. (E = E1++E2) /\ ~MEM EB_tv E3 /\ - (!n. MEM n (MAP domEB E3) /\ MEM n (MAP name_vn (fv_definition d)) ==> MEM n (MAP domEB E1)) /\ - Eok (E'++E1++E3++E2) ==> - JTdefinition (E1++E3++E2) d E'`, -RULE_INDUCT_TAC JTdefinition_ind [JTdefinition_fun, fv_definition_def] -[([``"JTdefinition_let_mono"``, ``"JTdefinition_let_poly"``], - SRW_TAC [] [] THEN `Eok (E1++E3++E2)` by METIS_TAC [ok_ok_thm, APPEND_ASSOC] THEN - `Eok (EB_tv::E1++E3++E2)` by SRW_TAC [] [Eok_def] THEN - FULL_SIMP_TAC std_ss [GSYM APPEND] THEN IMP_RES_TAC lem1 THEN FULL_SIMP_TAC list_ss [domEB_def] THEN - METIS_TAC []), - ([``"JTdefinition_letrec"``], - SRW_TAC [] [] THEN `Eok (E1++E3++E2)` by METIS_TAC [ok_ok_thm, APPEND_ASSOC] THEN - `Eok (EB_tv::E1++E3++E2)` by SRW_TAC [] [Eok_def] THEN - FULL_SIMP_TAC std_ss [GSYM APPEND] THEN IMP_RES_TAC lem2 THEN FULL_SIMP_TAC list_ss [domEB_def] THEN - FULL_SIMP_TAC list_ss [MEM_MAP, list_minus_thm] THEN METIS_TAC []), - ([``"JTdefinition_typedef"``], - METIS_TAC [weak_type_def_thm]), - ([``"JTdefinition_exndef"``], - METIS_TAC [ok_ok_thm, APPEND])]); - -end; - -val weak_defs_thm = Q.prove ( -`!E ds E'. JTdefinitions E ds E' ==> - !E1. (E = E1++E2) /\ ~MEM EB_tv E3 /\ - (!n. MEM n (MAP domEB E3) /\ MEM n (MAP name_vn (fv_definitions ds)) ==> MEM n (MAP domEB E1)) /\ - Eok (E'++E1++E3++E2) ==> - JTdefinitions (E1++E3++E2) ds E'`, -RULE_INDUCT_TAC JTdefinitions_ind [JTdefinitions_fun, fv_definitions_def] -[([``"JTdefinitions_item"``], - SRW_TAC [] [] THEN Q.EXISTS_TAC `E'` THEN SRW_TAC [] [] THENL - [MATCH_MP_TAC (SIMP_RULE list_ss [AND_IMP_INTRO, GSYM RIGHT_FORALL_IMP_THM] weak_def_thm) THEN - FULL_SIMP_TAC list_ss [MEM_MAP, list_minus_thm] THEN METIS_TAC [ok_ok_thm, APPEND_ASSOC], - FULL_SIMP_TAC list_ss [] THEN IMP_RES_TAC aux_xs_definition_of_definition_thm THEN - FULL_SIMP_TAC list_ss [MEM_MAP, list_minus_thm] THEN METIS_TAC []])]); - -local - -val lem1 = Q.prove ( -`!E l. value_env E ==> ~MEM (name_l l) (MAP domEB E)`, -recInduct Eok2_ind THEN SRW_TAC [] [domEB_def, value_env_def]); - -val lem3 = Q.prove ( -`!E l. type_env E ==> ~MEM (name_l l) (MAP domEB E)`, -Induct THEN SRW_TAC [] [] THEN -Cases_on `h` THEN FULL_SIMP_TAC (srw_ss()) [domEB_def, type_env_def]); - -val lem4 = Q.prove ( -`!E ds E'. JTdefinitions E ds E' ==> !l. ~MEM (name_l l) (MAP domEB E')`, -HO_MATCH_MP_TAC JTdefinitions_ind THEN SRW_TAC [] [type_env_def, type_env_append_thm] THEN -Cases_on `definition` THEN -FULL_SIMP_TAC list_ss [JTdefinition_fun, is_definitions_value_of_definitions_def, type_env_def, - is_definition_value_of_definition_def, JTconstr_decl_cases] THEN -SRW_TAC [] [MAP_REVERSE, MAP_MAP, domEB_def] THEN SRW_TAC [] [MEM_MAP] THEN -METIS_TAC [type_definition_type_env_thm, lem3, MEM_MAP]); - -in - -val val_env_defs_label_weak_thm = Q.prove ( -`!E1 E2 E3 E4 ds. JTdefinitions (E1++E2) ds E4 /\ value_env E1 /\ (?S. JTLout S E2 L E3) /\ - (?S. JTLin S E2 L) ==> - JTdefinitions (E1++E3++E2) ds E4`, -SRW_TAC [] [JTLout_cases, JTLin_cases] THEN SRW_TAC [] [] THEN -MATCH_MP_TAC ((GEN_ALL o - SIMP_RULE list_ss [AND_IMP_INTRO, GSYM RIGHT_FORALL_IMP_THM] o - hd o CONJUNCTS) weak_defs_thm) THEN -SRW_TAC [] [domEB_def, MEM_MAP] THEN -MATCH_MP_TAC weak_one_loc_ok_thm THEN -IMP_RES_TAC lem4 THEN IMP_RES_TAC lem1 THEN FULL_SIMP_TAC list_ss [] THEN -METIS_TAC [APPEND_ASSOC, defs_ok_thm, ok_thm]); - -end; - -local - -val lem1 = List.nth (CONJUNCTS (SIMP_RULE list_ss [GSYM RIGHT_FORALL_IMP_THM, AND_IMP_INTRO] subst_for_def_lem), - 2); - -val lem2 = List.nth (CONJUNCTS (SIMP_RULE list_ss [GSYM RIGHT_FORALL_IMP_THM, AND_IMP_INTRO] subst_for_def_lem), - 3); - -in - -val def_subst_thm = Q.prove ( -`!E d E'. JTdefinition E d E' ==> - !S E1 E2 x v t. (E = E1++[EB_vn x (TS_forall t)]++E2) /\ - is_non_expansive_of_expr v /\ - ~MEM (name_vn x) (MAP domEB E1) /\ closed_env E2 /\ - JTe S (EB_tv::E2) v t ==> - JTdefinition (E1++E2) - (subst_value_name_definition (remv_tyvar_expr v) x d) - E'`, -RULE_INDUCT_TAC JTdefinition_ind [subst_value_name_definition_def, JTdefinition_fun] -[([``"JTdefinition_typedef"``], METIS_TAC [type_def_store_env_str_thm, value_env_def]), - ([``"JTdefinition_exndef"``], - SRW_TAC [] [JTconstr_decl_cases] THEN METIS_TAC [value_env_ok_str_thm, value_env_def]), - ([``"JTdefinition_let_mono"``], - SRW_TAC [] [subst_value_name_letrec_binding_def] THEN - DISJ2_TAC THEN Q.EXISTS_TAC `x_t'_list` THEN SRW_TAC [] [GSYM subst_value_name_letrec_binding_def] THEN - Q.EXISTS_TAC `Tsigma` THEN MATCH_MP_TAC lem1 THEN METIS_TAC [remv_tyvar_thm]), - ([``"JTdefinition_let_poly"``], - SRW_TAC [] [subst_value_name_letrec_binding_def] THEN - DISJ1_TAC THEN Q.EXISTS_TAC `x_t'_list` THEN SRW_TAC [] [GSYM subst_value_name_letrec_binding_def] THEN - Q.EXISTS_TAC `Tsigma` THEN SRW_TAC [] [] THEN1 - METIS_TAC [subst_nexp_thm, nexp_remv_tyvar_thm] THEN - SIMP_TAC std_ss [GSYM APPEND] THEN MATCH_MP_TAC lem1 THEN SRW_TAC [] [domEB_def] THEN - METIS_TAC [remv_tyvar_thm]), - ([``"JTdefinition_letrec"``], - SRW_TAC [] [subst_value_name_letrec_binding_def] THEN Q.EXISTS_TAC `x_t'_list` THEN - SRW_TAC [] [GSYM subst_value_name_letrec_binding_def] THEN Q.EXISTS_TAC `Tsigma` THEN - FULL_SIMP_TAC std_ss [GSYM APPEND] THEN IMP_RES_TAC lem2 THEN - FULL_SIMP_TAC (srw_ss()) [domEB_def] THEN - METIS_TAC [remv_tyvar_thm])]); - -end; - -val value_env_def_str_thm = Q.prove ( -`!E d E'. JTdefinition E d E' ==> - !E1. (E = E1++E2++E3) /\ value_env E2 /\ - (!x. MEM x (MAP domEB E2) ==> MEM x (MAP domEB E1)) ==> - JTdefinition (E1++E3) d E'`, -RULE_INDUCT_TAC JTdefinition_ind [JTdefinition_fun] -[([``"JTdefinition_let_poly"``], - SRW_TAC [] [] THEN - DISJ1_TAC THEN MAP_EVERY Q.EXISTS_TAC [`x_t'_list`, `Tsigma`] THEN - FULL_SIMP_TAC std_ss [GSYM APPEND] THEN IMP_RES_TAC value_env_str_thm THEN - FULL_SIMP_TAC list_ss [domEB_def]), - ([``"JTdefinition_let_mono"``], - SRW_TAC [] [] THEN - DISJ2_TAC THEN MAP_EVERY Q.EXISTS_TAC [`x_t'_list`, `Tsigma`] THEN - FULL_SIMP_TAC std_ss [GSYM APPEND] THEN IMP_RES_TAC value_env_str_thm THEN - FULL_SIMP_TAC list_ss [domEB_def]), - ([``"JTdefinition_letrec"``], - SRW_TAC [] [] THEN - MAP_EVERY Q.EXISTS_TAC [`x_t'_list`, `Tsigma`] THEN - FULL_SIMP_TAC std_ss [GSYM APPEND] THEN IMP_RES_TAC value_env_str_thm THEN - FULL_SIMP_TAC list_ss [domEB_def]), - ([``"JTdefinition_typedef"``], - METIS_TAC [type_def_store_env_str_thm]), - ([``"JTdefinition_exndef"``], - SRW_TAC [] [JTconstr_decl_cases] THEN METIS_TAC [value_env_ok_str_thm])]); - -val value_env_defs_str_thm = Q.prove ( -`!E ds E'. JTdefinitions E ds E' ==> - !E1. (E = E1++E2++E3) /\ value_env E2 /\ - (!x. MEM x (MAP domEB E2) ==> MEM x (MAP domEB E1)) ==> - JTdefinitions (E1++E3) ds E'`, -RULE_INDUCT_TAC JTdefinitions_ind [JTdefinitions_fun] -[([``"JTdefinitions_empty"``], - METIS_TAC [value_env_ok_str_thm]), - ([``"JTdefinitions_item"``], - SRW_TAC [] [] THEN Q.EXISTS_TAC `E'` THEN SRW_TAC [] [] THEN METIS_TAC [value_env_def_str_thm])]); - -val defs_subst_thm = Q.prove ( -`!E ds E'. JTdefinitions E ds E' ==> - !E1 E2 x v t. (E = E1++[EB_vn x (TS_forall t)]++E2) /\ - is_non_expansive_of_expr v /\ - ~MEM (name_vn x) (MAP domEB E1) /\ closed_env E2 /\ - (?S. JTe S (EB_tv::E2) v t) ==> - JTdefinitions (E1++E2) - (subst_value_name_definitions (remv_tyvar_expr v) x ds) - E'`, -RULE_INDUCT_TAC JTdefinitions_sind [subst_value_name_definitions_def, JTdefinitions_fun] -[([``"JTdefinitions_empty"``], - METIS_TAC [value_env_def, value_env_ok_str_thm]), - ([``"JTdefinitions_item"``], - SRW_TAC [] [] THEN Q.EXISTS_TAC `E'` THEN SRW_TAC [] [] THENL - [METIS_TAC [def_subst_thm], - IMP_RES_TAC aux_xs_definition_of_definition_thm THEN - MATCH_MP_TAC (GEN_ALL (SIMP_RULE list_ss [AND_IMP_INTRO, GSYM RIGHT_FORALL_IMP_THM] - value_env_defs_str_thm)) THEN - SRW_TAC [] [] THEN - Q.EXISTS_TAC `[EB_vn x (TS_forall t)]` THEN SRW_TAC [] [value_env_def, domEB_def] THEN - FULL_SIMP_TAC list_ss [], - METIS_TAC [def_subst_thm], - IMP_RES_TAC aux_xs_definition_of_definition_thm THEN - Q.PAT_ASSUM `!E1' E2' x' v t'. P E1' E2' x' v t' ==> - JTdefinitions (E1' ++ E2') - (subst_value_name_definitions (remv_tyvar_expr v) x' ds) E''` - MATCH_MP_TAC THEN - SRW_TAC [] [] THEN METIS_TAC []])]); - -val def_substs_empty_thm = Q.prove ( -`!d. substs_value_name_definition [] d = d`, -Induct THEN SRW_TAC [] [substs_value_name_definition_def, substs_empty_thm]); - -val defs_substs_empty_thm = Q.prove ( -`!ds. substs_value_name_definitions [] ds = ds`, -Induct THEN SRW_TAC [] [substs_value_name_definitions_def, def_substs_empty_thm]); - -local - -val lem1 = Q.prove ( -`(!lrbs v x. aux_xs_letrec_bindings_of_letrec_bindings (subst_value_name_letrec_bindings v x lrbs) = - aux_xs_letrec_bindings_of_letrec_bindings lrbs) /\ - (!lrb v x. aux_xs_letrec_binding_of_letrec_binding (subst_value_name_letrec_binding v x lrb) = - aux_xs_letrec_binding_of_letrec_binding lrb) /\ - (!lrb_list v x. MAP (\lrb. aux_xs_letrec_binding_of_letrec_binding - (subst_value_name_letrec_binding v x lrb)) lrb_list = - MAP aux_xs_letrec_binding_of_letrec_binding lrb_list)`, -Induct THEN -SRW_TAC [] [aux_xs_letrec_bindings_of_letrec_bindings_def, subst_value_name_letrec_binding_def, - aux_xs_letrec_binding_of_letrec_binding_def, MAP_MAP]); - -val lem2 = Q.prove ( -`!l v x. aux_xs_let_binding_of_let_binding (subst_value_name_let_binding v x l) = - aux_xs_let_binding_of_let_binding l`, -Cases THEN SRW_TAC [] [aux_xs_let_binding_of_let_binding_def, subst_value_name_letrec_binding_def]); - -val lem3 = Q.prove ( -`!d v x. aux_xs_definition_of_definition (subst_value_name_definition v x d) = - aux_xs_definition_of_definition d`, -Induct THEN -SRW_TAC [] [aux_xs_definition_of_definition_def, subst_value_name_definition_def, lem2, lem1]); - -in - -val def_substs_iter_thm = Q.prove ( -`!d x v. (fv_expr v = []) ==> - (substs_value_name_definition ((x,v)::subs) d = - substs_value_name_definition subs (subst_value_name_definition v x d))`, -Induct THEN -SRW_TAC [] [substs_value_name_definition_def, subst_value_name_definition_def, substs_iter_thm] THEN -FULL_SIMP_TAC list_ss [lem1]); - -val defs_substs_iter_thm = Q.prove ( -`!ds x v subs. (fv_expr v = []) ==> - (substs_value_name_definitions ((x,v)::subs) ds = - substs_value_name_definitions subs (subst_value_name_definitions v x ds))`, -Induct THEN SRW_TAC [] [substs_value_name_definitions_def, subst_value_name_definitions_def] THEN -FULL_SIMP_TAC list_ss [def_substs_iter_thm, lem3]); - -end; - -val defs_substs_thm = Q.prove ( -`!x_t_list x_v_list E ds E'. - (LENGTH x_t_list = LENGTH x_v_list) /\ - JTdefinitions (REVERSE (MAP (\(x,t). EB_vn x (TS_forall t)) x_t_list)++E) ds E'/\ - EVERY (\(x, v). is_non_expansive_of_expr v) x_v_list /\ - closed_env E /\ - ALL_DISTINCT (MAP FST x_t_list) /\ - EVERY (\((x,t),x',v). (x = x') /\ ?S. JTe S (EB_tv::E) v t) (ZIP (x_t_list,x_v_list)) ==> - JTdefinitions E (substs_value_name_definitions (MAP (\(x, v). (x, remv_tyvar_expr v)) x_v_list) ds) E'`, -Induct_on `x_t_list` THEN Cases_on `x_v_list` THEN SRW_TAC [] [defs_substs_empty_thm] THEN -Cases_on `h'` THEN Cases_on `h` THEN FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THEN -`fv_expr (remv_tyvar_expr r') = []` by - (FULL_SIMP_TAC list_ss [GSYM MAP_REVERSE, ELIM_UNCURRY] THEN - METIS_TAC [closed_env_fv_thm, closed_env_tv_lem, remv_tyvar_fv_thm]) THEN -SRW_TAC [] [defs_substs_iter_thm] THEN -Q.PAT_ASSUM `!x_v_list E'' ds' E'''. P x_v_list E'' ds' E''' ==> - JTdefinitions E'' (substs_value_name_definitions - (MAP (\(x,v). (x,remv_tyvar_expr v)) x_v_list) ds') E'''` - MATCH_MP_TAC THEN -SRW_TAC [] [] THEN -MATCH_MP_TAC ((SIMP_RULE list_ss [GSYM RIGHT_FORALL_IMP_THM, AND_IMP_INTRO] o hd o CONJUNCTS) - defs_subst_thm) THEN -SRW_TAC [] [MAP_REVERSE, MAP_MAP, LAMBDA_PROD2] THEN -FULL_SIMP_TAC (srw_ss()) [domEB_def, MEM_MAP, LAMBDA_PROD2] THEN METIS_TAC []); - -local - -val lem1 = Q.prove ( -`!ds_value E1 E2 E3 E' typedef_list. - JTdefinitions E3 ds_value E2 /\ JTtype_definition (E1 ++ E2 ++ E3) (TDF_tdf typedef_list) E' /\ - store_env E1 ==> - JTdefinitions E3 (definitions_snoc ds_value (D_type (TDF_tdf typedef_list))) (E' ++ E2)`, -Induct THEN SRW_TAC [] [definitions_snoc_def, JTdefinitions_fun] THEN FULL_SIMP_TAC list_ss [] THEN -SRW_TAC [] [JTdefinition_fun] THENL -[METIS_TAC [APPEND_NIL, type_def_store_env_str_thm], - METIS_TAC [type_def_store_env_str_thm, type_def_ok_thm, APPEND_NIL], - METIS_TAC [APPEND_ASSOC]]); - -val lem2 = Q.prove ( -`!ds_value E1 E2 E3 EB constr_decl. - JTdefinitions E3 ds_value E2 /\ JTconstr_decl (TPS_nary []) TC_exn constr_decl EB /\ - store_env E1 /\ Eok ([EB]++E1++E2++E3) ==> - JTdefinitions E3 (definitions_snoc ds_value (D_exception (ED_def constr_decl))) (EB::E2)`, -Induct THEN SRW_TAC [] [definitions_snoc_def, JTdefinitions_fun] THEN -FULL_SIMP_TAC list_ss [JTconstr_decl_cases, Eok_def] THEN -SRW_TAC [] [JTdefinition_fun, JTconstr_decl_cases] THEN FULL_SIMP_TAC list_ss [Eok_def] THEN -MAP_EVERY Q.EXISTS_TAC [`E'`, `EB_cc constr_name TC_exn::E''`] THEN SRW_TAC [] [] THEN -POP_ASSUM MATCH_MP_TAC THEN SRW_TAC [] [Eok_def] THEN METIS_TAC []); - -val lem3 = Q.prove ( -`!tpo tc c EB. JTconstr_decl tpo ts c EB ==> type_env [EB]`, -SRW_TAC [] [JTconstr_decl_cases] THEN SRW_TAC [] [type_env_def]); - -val lem4 = Q.prove ( -`EVERY (\x. recfun (LRBs_inj (MAP (\z. LRB_simple (FST z) (SND (SND z))) x_e_pattern_matching_list)) - (SND (SND x)) = FST (SND x)) x_e_pattern_matching_list ==> - EVERY (\x. is_non_expansive_of_expr (FST (SND x))) x_e_pattern_matching_list`, -SRW_TAC [] [EVERY_MEM] THEN METIS_TAC [value_nonexpansive_thm, recfun_is_value]); - -val lem5 = Q.prove ( -`!l1 l2 f g. (MAP (\z. EB_vn (FST z) (f z)) l1 = MAP (\z. EB_vn (FST z) (g z)) l2) ==> - (MAP FST l1 = MAP FST l2)`, -Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN FULL_SIMP_TAC (srw_ss()) [] THEN METIS_TAC []); - -val lem6 = Q.prove ( -`!l1 l2. (MAP (\z. LRB_simple (FST z) (SND (SND z))) l1 = MAP (\z. LRB_simple (FST z) (FST (SND z))) l2) ==> - (MAP FST l1 = MAP FST l2) /\ (MAP (\x. SND (SND x)) l1 = MAP (\x. FST (SND x)) l2)`, -Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THEN -Cases_on `h` THEN Cases_on `h'` THEN SRW_TAC [] []); - -val lem7 = Q.prove ( -`!l2 l3 n. - n < LENGTH l2 /\ - EVERY (\x. recfun (LRBs_inj (MAP (\z. LRB_simple (FST z) (FST (SND z))) l3)) (SND (SND x)) = FST (SND x)) l2 - ==> - (FST (SND (EL n l2)) = - recfun (LRBs_inj (MAP (\z. LRB_simple (FST z) (FST (SND z))) l3)) (SND (SND (EL n l2))))`, -Induct THEN SRW_TAC [] [] THEN Cases_on `n` THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss []); - -val lem8 = Q.prove ( -`!l1 l3 n. - n < LENGTH l1 /\ - (MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) l1 = - MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (TE_arrow (FST (SND (SND z))) (SND (SND (SND z))))))) l3) - ==> - (SND (EL n l1) = (TE_arrow (FST (SND (SND (EL n l3)))) (SND (SND (SND (EL n l3))))))`, -Induct THEN SRW_TAC [] [] THEN Cases_on `n` THEN Cases_on `l3` THEN SRW_TAC [] [] THEN -FULL_SIMP_TAC (srw_ss()) [shiftt_11]); - -val lem9 = Q.prove ( -`!l2 l3 n. - n < LENGTH l2 /\ - (MAP (\x. SND (SND x)) l2 = MAP (\x. FST (SND x)) l3) ==> - (SND (SND (EL n l2)) = FST (SND (EL n l3)))`, -Induct THEN SRW_TAC [] [] THEN Cases_on `n` THEN Cases_on `l3` THEN SRW_TAC [] [] THEN -FULL_SIMP_TAC (srw_ss()) []); - - -(* 12, 13 and 14 copied from preservationScript *) - -val lem12 = -(GEN_ALL o Q.SPECL [`S`, `pm`, `t1`, `t2`, `E1`, `EB_tv::E`] o -SIMP_RULE list_ss [GSYM RIGHT_FORALL_IMP_THM, AND_IMP_INTRO] o hd o tl o CONJUNCTS) weak_one_tv_thm; - -(* 13 and 14 copied from weakenScript *) -val lem13 = SIMP_RULE list_ss [] (Q.SPECL [`t`, `n`, `0`, `1`] (hd (CONJUNCTS shiftt_com_lem))); - -val lem14 = Q.prove ( -`!l m n f g. shiftE m 1 (MAP (\z. EB_vn (f z) (TS_forall (shiftt 0 1 (g z)))) l) = - MAP (\z. EB_vn (f z) (TS_forall (shiftt 0 1 (shiftt m 1 (g z))))) l`, -Induct THEN SRW_TAC [] [shiftE_def, shiftEB_def, lem13, shiftts_def] THEN -METIS_TAC [value_env_map_thm, value_env_num_tv_thm, arithmeticTheory.ADD_0]); - - -(* 17, 18, 19, 20 copied from preservationScript *) - -val lem17 = Q.prove ( -`!E E'. PERM E E' ==> value_env E ==> value_env E'`, -HO_MATCH_MP_TAC PERM_IND THEN SRW_TAC [] [value_env_def] THEN -Cases_on `x` THEN FULL_SIMP_TAC (srw_ss()) [value_env_def] THEN -Cases_on `y` THEN FULL_SIMP_TAC (srw_ss()) [value_env_def]); - -val lem18 = Q.prove ( -`!E. value_env E ==> - (MAP (\x. EB_vn (FST (vn_to_x_t x)) (TS_forall (SND (vn_to_x_t x)))) E = E)`, -Induct THEN SRW_TAC [] [value_env_def] THEN Cases_on `h` THEN -FULL_SIMP_TAC (srw_ss()) [value_env_def] THEN Cases_on `t` THEN SRW_TAC [] [vn_to_x_t_def]); - - -val lem19 = Q.prove ( -`!E x_t_list. value_env E ==> - (PERM (MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) x_t_list) E ==> - PERM (MAP FST x_t_list) (MAP FST (MAP vn_to_x_t E)))`, -SRW_TAC [] [] THEN -`PERM (MAP FST (MAP vn_to_x_t (MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) x_t_list))) - (MAP FST (MAP vn_to_x_t E))` by METIS_TAC [PERM_MAP] THEN -FULL_SIMP_TAC (srw_ss()) [MAP_MAP, vn_to_x_t_def] THEN METIS_TAC []); - - -val lem20 = Q.prove ( -`!E x_t_list. value_env E ==> - PERM (MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) x_t_list) E ==> - PERM (MAP (\z. EB_vn (FST z) (TS_forall (SND z))) x_t_list) - (MAP (\x. EB_vn (FST (vn_to_x_t x)) (TS_forall (idxsubn 0 [] (SND (vn_to_x_t x))))) E)`, -SRW_TAC [] [] THEN -`PERM (MAP (\x. EB_vn (FST (vn_to_x_t x)) (TS_forall (idxsubn 0 [] (SND (vn_to_x_t x))))) - (MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) x_t_list)) - (MAP (\x. EB_vn (FST (vn_to_x_t x)) (TS_forall (idxsubn 0 [] (SND (vn_to_x_t x))))) E)` by - METIS_TAC [PERM_MAP] THEN -FULL_SIMP_TAC (srw_ss()) [MAP_MAP, vn_to_x_t_def, sub_shiftt_thm2]); - -val lem21 = (SIMP_RULE (srw_ss()) [] o - GEN_ALL o - Q.SPECL [`definitions`, `E''`, `[]`] o - SIMP_RULE (srw_ss()) [AND_IMP_INTRO, GSYM RIGHT_FORALL_IMP_THM]) - defs_value_perm_thm; - -in - -val ds_preservation_thm = Q.prove ( -`!ds_value p L ds_value' p'. JRdefn ds_value p L ds_value' p' ==> - !ds ds' E1 E2 E3 E4. store_env E1 /\ JTdefinitions [] ds_value E2 /\ JTprog (E1++E2) p E3 /\ - (!S. JTLin S (E1++E2) L) ==> - ?E5 E8 E6 E7. JTdefinitions [] ds_value' (E5++E2) /\ JTprog (E7++E1++E5++E2) p' E6 /\ - (?S. JTLout S (E1++E5++E2) L E7) /\ (E3 = E6++E8++E5) /\ type_env E5 /\ - ((E5 = []) \/ (E8 = []))`, -RULE_INDUCT_TAC JRdefn_ind [JTprog_cases, JTdefinitions_fun, JTdefinition_fun, JTe_fun, JTL_nil_lem] -[([``"Jdefn_type"``], - SRW_TAC [] [] THEN MAP_EVERY Q.EXISTS_TAC [`E'`, `[]`, `E''`] THEN SRW_TAC [] [] THEN - `JTdefinitions (E1 ++ E' ++ E2) definitions E''` by - METIS_TAC [type_definition_type_env_thm, defs_store_type_perm_thm, APPEND] THEN - METIS_TAC [lem1, APPEND_NIL, type_definition_type_env_thm]), - ([``"Jdefn_exn"``], - SRW_TAC [] [] THEN MAP_EVERY Q.EXISTS_TAC [`[EB]`, `[]`, `E''`] THEN SRW_TAC [] [] THEN - `JTdefinitions (E1 ++ [EB] ++ E2) definitions E''` by - METIS_TAC [defs_store_type_perm_thm, APPEND, lem3] THEN1 - METIS_TAC [lem2, APPEND_NIL, defs_ok_thm, ok_ok_thm] THEN - FULL_SIMP_TAC list_ss [JTconstr_decl_cases, type_env_def]), - ([``"Jdefn_let_ctx"``], - SRW_TAC [] [helper_lem1] THEN MAP_EVERY Q.EXISTS_TAC [`[]`, `[]`] THEN SRW_TAC [] [type_env_def] THENL - [IMP_RES_TAC nexp_red_thm THEN FULL_SIMP_TAC list_ss [JTLin_cases, JTLout_cases] THEN SRW_TAC [] [] THEN - `closed_env (EB_tv::(E1 ++ E2))` - by METIS_TAC [closed_env_tv_lem, ds_value_type_env_thm, closed_env_append_thm, - type_env_closed_thm, store_env_closed_thm, type_env_def] THEN - IMP_RES_TAC e_preservation_thm THEN FULL_SIMP_TAC (srw_ss()) [JTLin_cases, JTLout_cases] THEN - `Eok (EB_tv::(E1 ++ E2))` by METIS_TAC [ok_thm, ok_ok_thm] THEN FULL_SIMP_TAC list_ss [] THEN - MAP_EVERY Q.EXISTS_TAC [`REVERSE (MAP (\z. EB_vn (FST z) (TS_forall (SND z))) x_t'_list)`, - `E''`] THEN - SRW_TAC [] [] THEN METIS_TAC [], - POP_ASSUM (ASSUME_TAC o Q.SPEC `Tsigma`) THEN - `closed_env (E1 ++ E2)` - by METIS_TAC [ds_value_type_env_thm, closed_env_append_thm, - type_env_closed_thm, store_env_closed_thm, type_env_def] THEN - IMP_RES_TAC e_preservation_thm THEN - Q.EXISTS_TAC `E'''` THEN SRW_TAC [] [] THENL - [MAP_EVERY Q.EXISTS_TAC [`REVERSE (MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) - x_t'_list)`, - `E''`] THEN - SRW_TAC [] [] THENL - [METIS_TAC [label_weak_thm, APPEND_ASSOC], - METIS_TAC [val_env_defs_label_weak_thm, value_env_map_thm, MAP_REVERSE, APPEND_ASSOC]], - METIS_TAC []]]), - ([``"Jdefn_let_match"``], - SRW_TAC [] [helper_lem1] THEN Q.EXISTS_TAC `[]` THEN SRW_TAC [] [type_env_def] THENL - [Q.EXISTS_TAC `REVERSE (MAP (\z. EB_vn (FST z) (TS_forall (SND z))) x_t'_list)`, - Q.EXISTS_TAC `REVERSE (MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) x_t'_list)`] THEN - SRW_TAC [] [] THEN - MATCH_MP_TAC (SIMP_RULE list_ss [LAMBDA_PROD2] defs_substs_thm) THEN SRW_TAC [] [] THEN - IMP_RES_TAC pat_preservation_thm THEN FULL_SIMP_TAC list_ss [] THEN - IMP_RES_TAC pat_num_bindings_lem THEN FULL_SIMP_TAC list_ss [LENGTH_REVERSE] THEN - `closed_env (E1++E2)` by METIS_TAC [store_env_closed_thm, type_env_closed_thm, closed_env_append_thm, - ds_value_type_env_thm, type_env_def] THEN - IMP_RES_TAC distinct_pat_env THEN - FULL_SIMP_TAC list_ss [MAP_REVERSE, domEB_def, MAP_MAP, ALL_DISTINCT_REVERSE] THEN - `value_env E'''` by METIS_TAC [lem17, value_env_map_thm, MAP_REVERSE] THEN - `LENGTH (REVERSE E''') = LENGTH x_v_list` - by METIS_TAC [LENGTH_REVERSE, LENGTH_MAP, PERM_LENGTH] THENL - [Q.EXISTS_TAC `MAP (\(x,t). (x, idxsubn 0 [] t)) (MAP vn_to_x_t (REVERSE E'''))` THEN - SRW_TAC [] [MAP_MAP, LAMBDA_PROD2] THENL - [SRW_TAC [] [MAP_MAP, lem18] THEN IMP_RES_TAC distinct_pat_env THEN - FULL_SIMP_TAC (srw_ss()) [GSYM MAP_REVERSE] THEN IMP_RES_TAC lem20 THEN - `ALL_DISTINCT (MAP domEB (MAP (\z. EB_vn (FST z) (TS_forall (SND z))) (REVERSE x_t'_list)))` - by FULL_SIMP_TAC (srw_ss()) [MAP_MAP, vn_to_x_t_def, domEB_def] THEN - METIS_TAC [lem21, APPEND_ASSOC, value_env_map_thm], - FULL_SIMP_TAC list_ss [EVERY_MEM] THEN METIS_TAC [value_nonexpansive_thm], - SRW_TAC [] [MAP_REVERSE, ALL_DISTINCT_REVERSE] THEN - FULL_SIMP_TAC (srw_ss()) [GSYM MAP_REVERSE] THEN - IMP_RES_TAC lem19 THEN IMP_RES_TAC distinct_pat_env THEN - FULL_SIMP_TAC (srw_ss()) [MAP_REVERSE, MAP_MAP, domEB_def, LAMBDA_PROD2, - ALL_DISTINCT_REVERSE] THEN - METIS_TAC [MAP_11_ALL_DISTINCT, name_11, PERM_ALL_DISTINCT, PERM_MAP, MAP_MAP, - ALL_DISTINCT_REVERSE], - SRW_TAC [] [ZIP_MAP, EVERY_MAP] THEN - FULL_SIMP_TAC (srw_ss()) [ZIP_MAP, EVERY_MAP, shiftt_11] THEN - FULL_SIMP_TAC list_ss [EVERY_MEM, LAMBDA_PROD2] THEN - SRW_TAC [] [] THEN RES_TAC THEN SRW_TAC [] [vn_to_x_t_def, sub_shiftt_thm2] THEN - METIS_TAC []], - Q.EXISTS_TAC `MAP vn_to_x_t (REVERSE E''')` THEN SRW_TAC [] [MAP_MAP, LAMBDA_PROD2] THENL - [FULL_SIMP_TAC (srw_ss()) [MAP_MAP, lem18, GSYM MAP_REVERSE] THEN IMP_RES_TAC distinct_pat_env THEN - METIS_TAC [lem21, APPEND_ASSOC, value_env_map_thm], - FULL_SIMP_TAC list_ss [EVERY_MEM] THEN METIS_TAC [value_nonexpansive_thm], - SRW_TAC [] [MAP_REVERSE, ALL_DISTINCT_REVERSE] THEN - FULL_SIMP_TAC (srw_ss()) [GSYM MAP_REVERSE] THEN - IMP_RES_TAC lem19 THEN IMP_RES_TAC distinct_pat_env THEN - FULL_SIMP_TAC (srw_ss()) [MAP_REVERSE, MAP_MAP, domEB_def, LAMBDA_PROD2, - ALL_DISTINCT_REVERSE] THEN - METIS_TAC [MAP_11_ALL_DISTINCT, name_11, PERM_ALL_DISTINCT, PERM_MAP, MAP_MAP, - ALL_DISTINCT_REVERSE], - SRW_TAC [] [ZIP_MAP, EVERY_MAP] THEN - FULL_SIMP_TAC (srw_ss()) [ZIP_MAP, EVERY_MAP, shiftt_11] THEN - FULL_SIMP_TAC list_ss [EVERY_MEM, LAMBDA_PROD2] THEN - SRW_TAC [] [] THEN RES_TAC THEN SRW_TAC [] [vn_to_x_t_def] THEN - METIS_TAC [weak_one_tv_thm, num_tv_def, shiftE_def, APPEND, vn_to_x_t_def]]]), - ([``"Jdefn_letrec"``], - SRW_TAC [] [] THEN - MAP_EVERY Q.EXISTS_TAC [`[]`, `REVERSE (MAP (\z. EB_vn (FST z) (TS_forall (SND z))) x_t'_list)`] THEN - SRW_TAC [] [type_env_def] THEN - `(MAP (\z. (FST z,remv_tyvar_expr (FST (SND z)))) x_e_pattern_matching_list) = - MAP (\z. (FST z,remv_tyvar_expr (SND z))) (MAP (\x. (FST x, FST (SND x))) x_e_pattern_matching_list)` - by SRW_TAC [] [MAP_MAP] THEN - SRW_TAC [] [] THEN - MATCH_MP_TAC (SIMP_RULE list_ss [LAMBDA_PROD2] defs_substs_thm) THEN SRW_TAC [] [EVERY_MAP] THEN - `closed_env (E1++E2)` by METIS_TAC [store_env_closed_thm, type_env_closed_thm, closed_env_append_thm, - ds_value_type_env_thm, type_env_def] THEN - SRW_TAC [] [] THEN - Q.EXISTS_TAC `x_t'_list` THEN SRW_TAC [] [] THENL - [METIS_TAC [LENGTH_MAP, LENGTH_REVERSE], - METIS_TAC [lem4], - METIS_TAC [REVERSE_EQ, lem5, MAP_11_ALL_DISTINCT, name_11], - FULL_SIMP_TAC list_ss [REVERSE_EQ] THEN - IMP_RES_TAC lem6 THEN - `MAP FST x_t'_list = MAP FST x_e_pattern_matching_list` by METIS_TAC [lem5] THEN - `LENGTH x_t'_list = LENGTH x_e_pattern_matching_list` by METIS_TAC [LENGTH_MAP] THEN - SRW_TAC [] [ZIP_MAP, EVERY_MAP] THEN - SRW_TAC [] [EVERY_MEM, MEM_ZIP] THEN SRW_TAC [] [] THEN1 METIS_TAC [EL_MAP] THEN - Q.EXISTS_TAC `Tsigma` THEN - IMP_RES_TAC lem7 THEN IMP_RES_TAC lem8 THEN SRW_TAC [] [] THEN - MATCH_MP_TAC recfun_pres_thm THEN - Q.EXISTS_TAC `REVERSE (MAP (\z. (FST z, (shiftt 0 1 - (TE_arrow (FST (SND (SND z))) - (SND (SND (SND z))))))) - value_name_pattern_matching_t_t'_list)` THEN - SRW_TAC [] [closed_env_def] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THENL - [SRW_TAC [] [lookup_def, domEB_def] THEN - Cases_on `EB2` THEN SRW_TAC [] [shiftEB_def] THEN METIS_TAC [closed_env_def], - SRW_TAC [] [JTe_fun] THEN - Q.EXISTS_TAC `MAP (\(vn, pm, t, t'). (vn, pm, shiftt 0 1 t, shiftt 0 1 t')) - value_name_pattern_matching_t_t'_list` THEN - SRW_TAC [] [EVERY_MEM, ELIM_UNCURRY, MAP_MAP, MAP_REVERSE, - shiftt_def] THEN - FULL_SIMP_TAC list_ss [MEM_MAP] THEN SRW_TAC [] [] THEN - RES_TAC THEN IMP_RES_TAC lem12 THEN - FULL_SIMP_TAC list_ss [value_env_map_thm, value_env_num_tv_thm, lem14, - GSYM shiftt_def, shiftTsig_add_thm, GSYM MAP_REVERSE] THEN - METIS_TAC [MAP_REVERSE, APPEND, APPEND_ASSOC], - SRW_TAC [] [MAP_REVERSE, MAP_MAP, EVERY_MEM, ELIM_UNCURRY] THEN - METIS_TAC [MEM_EL, lem9, LENGTH_MAP]]]), - ([``"Jdefn_let_raise"``], - SRW_TAC [] [is_non_expansive_of_expr_def, is_binary_prim_app_value_of_expr_def] THEN - METIS_TAC [APPEND, APPEND_NIL, type_env_def]), - ([``"Jdefn_let_not_match"``], - SRW_TAC [] [is_value_of_expr_def, JTconst_cases, JTconstr_c_cases] THEN - Q.EXISTS_TAC `[]` THEN SRW_TAC [] [type_env_def] THEN IMP_RES_TAC pat_ok_thm THEN - IMP_RES_TAC ok_ok_thm THEN FULL_SIMP_TAC list_ss [Eok_def] THEN - `tkind (E1++E2) (TE_constr [] TC_exn)` by SRW_TAC [] [Eok_def] THEN - METIS_TAC [JTeq_rules, APPEND])]); -end; - - -local - -val lem1 = - (SIMP_RULE list_ss [AND_IMP_INTRO, GSYM RIGHT_FORALL_IMP_THM]) ds_preservation_thm; - -in - -val preservation_thm = Q.store_thm ("preservation_thm", -`!ds_value prog st ds_value' prog' st'. JRtop ds_value prog st ds_value' prog' st' ==> - !E1 E2. JTdefinitions [] ds_value E1 /\ JTtop E1 prog st E2 ==> - ?E3 E4. JTdefinitions [] ds_value' E3 /\ JTtop E3 prog' st' E4`, -HO_MATCH_MP_TAC JRtop_ind THEN SRW_TAC [] [JTtop_cases] THEN -FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THEN -IMP_RES_TAC JTstore_env_thm THEN -IMP_RES_TAC ds_value_type_env_thm THEN -FULL_SIMP_TAC list_ss [type_env_def] THEN -IMP_RES_TAC store_in_thm THEN -SRW_TAC [] [GSYM LEFT_EXISTS_AND_THM, GSYM RIGHT_EXISTS_AND_THM] THEN -`?E5 E8 E6 E7. - JTdefinitions [] ds_value' (E5 ++ E1) /\ - JTprog (E7++E'++E5++E1) prog' E6 /\ - (?S. JTLout S (E' ++ E5 ++ E1) L E7) /\ - (E'' = E6 ++ E8 ++ E5) /\ type_env E5 /\ - ((E5 = []) \/ (E8 = []))` - by METIS_TAC [lem1] THEN -FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THENL -[Q.EXISTS_TAC `E1` THEN SRW_TAC [] [], - Q.EXISTS_TAC `E5++E1` THEN SRW_TAC [] []] THEN -MAP_EVERY Q.EXISTS_TAC [`E7++E'`, `E6`] THEN SRW_TAC [] [] THENL -[METIS_TAC [store_out_thm], - `Eok (E'++E5++E1)` by METIS_TAC [prog_ok_thm, ok_ok_thm, APPEND_ASSOC] THEN - METIS_TAC [store_out_thm, APPEND_ASSOC, type_env_append_thm, type_env_store_weak_thm]]); - -end; - -val type_soundness_thm = SIMP_RULE list_ss [AND_IMP_INTRO, GSYM RIGHT_FORALL_IMP_THM] (Q.prove ( -`!p1 p2. (RTC (\(ds_value, prog, st) (ds_value', prog', st'). JRtop ds_value prog st ds_value' prog' st')) - p1 p2 ==> - !ds_value prog st ds_value' prog' st' E E'. - (p1 = (ds_value, prog, st)) /\ (p2 = (ds_value', prog', st')) /\ - JTdefinitions [] ds_value E /\ is_definitions_value_of_definitions ds_value /\ - JTtop E prog st E' ==> JRB_dbehaviour ds_value' prog' st'`, -HO_MATCH_MP_TAC relationTheory.RTC_INDUCT THEN SRW_TAC [] [] THEN1 METIS_TAC [progress_thm] THEN -Cases_on `p1'` THEN Cases_on `r` THEN FULL_SIMP_TAC list_ss [] THEN -METIS_TAC [preservation_thm, JRtop_cases, ds_value_thm])); - -val _ = save_thm ("type_soundness_thm", type_soundness_thm); - -val _ = export_theory(); diff --git a/vendors/ott/examples/ocaml_light/hol/defs_red_funScript.sml b/vendors/ott/examples/ocaml_light/hol/defs_red_funScript.sml deleted file mode 100644 index c30b1b23dc20..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/defs_red_funScript.sml +++ /dev/null @@ -1,219 +0,0 @@ -open bossLib HolKernel boolLib listTheory rich_listTheory optionTheory combinTheory arithmeticTheory pairTheory; -open ottTheory ottLib caml_typedefTheory; -open utilTheory basicTheory reduction_funTheory matching_funTheory; - -val _ = new_theory "defs_red_fun"; - -val defns_red_def = Define -`(defns_red (defs, Prog_raise _) = Stuck) /\ - (defns_red (defs, Prog_defs Ds_nil) = Stuck) /\ - (defns_red (defs, Prog_defs (Ds_cons (D_let (LB_simple pat e)) defs')) = - if is_definitions_value_of_definitions defs then - if is_raise e then - (case e of - Expr_apply e1 v -> Step (defs, Prog_raise v) - || _ -> Stuck) - else if ~is_value_of_expr e then - result_map (\e'. (defs, Prog_defs (Ds_cons (D_let (LB_simple pat e')) defs'))) - (red e) - else - case pat_match pat e of - SOME substs -> Step (defs, Prog_defs (substs_value_name_definitions - (MAP (\(x, v). (x, remv_tyvar_expr v)) substs) - defs')) - || NONE -> Step (defs, Prog_raise (Expr_constant (CONST_constr C_matchfailure))) - else Stuck) /\ - (defns_red (defs, Prog_defs (Ds_cons (D_letrec lrbs) defs')) = - if is_definitions_value_of_definitions defs then - Step (defs, Prog_defs - (substs_value_name_definitions - (MAP (\lb. (case lb of LRB_simple vn pm -> (vn, remv_tyvar_expr (recfun lrbs pm)))) - (lrbs_to_lrblist lrbs)) - defs')) - else Stuck) /\ - (defns_red (defs, Prog_defs (Ds_cons (D_type type_definition) defs')) = - if is_definitions_value_of_definitions defs then - Step (definitions_snoc defs (D_type type_definition), Prog_defs defs') - else Stuck) /\ - (defns_red (defs, Prog_defs (Ds_cons (D_exception exception_definition) defs')) = - if is_definitions_value_of_definitions defs then - Step (definitions_snoc defs (D_exception exception_definition), Prog_defs defs') - else - Stuck)`; - -val defns_red_ind = fetch "-" "defns_red_ind"; - -local - -val lem6 = Q.prove ( -`!lb f g. f (case lb of LRB_simple vn pm -> g vn pm) = case lb of LRB_simple vn pm -> f (g vn pm)`, -Cases THEN SRW_TAC [] []); - -in - -val defns_red_thm = Q.store_thm ("defns_red_thm", -`!ds_values ds l ds_values' ds'. (UNCURRY JRdefn) (ds_values, ds) l ds_values' ds' = - (interp_result (defns_red (ds_values, ds)) l = SOME (ds_values', ds'))`, -HO_MATCH_MP_TAC defns_red_ind THEN -SRW_TAC [] [JRdefn_fun, defns_red_def, interp_result_def, COND_EXPAND_EQ, interp_map_thm, raise_cases, - is_value_of_expr_def, JM_matchP_thm] THEN EQ_TAC THEN SRW_TAC [] [] THENL -[FULL_SIMP_TAC (srw_ss()) [JR_expr_fun, JRuprim_cases] THEN METIS_TAC [no_value_red_thm], - METIS_TAC [raise_cases, raise_not_JR_thm], - METIS_TAC [red_thm], - METIS_TAC [red_thm], - Cases_on `pat_match pat e` THEN SRW_TAC [] [interp_result_def] THEN METIS_TAC [no_value_red_thm], - IMP_RES_TAC match_thm THEN SRW_TAC [] [interp_result_def, LAMBDA_PROD2], - Cases_on `pat_match pat e` THEN SRW_TAC [] [interp_result_def] THEN METIS_TAC [match_thm, NOT_SOME_NONE], - Cases_on `pat_match pat e` THEN FULL_SIMP_TAC (srw_ss()) [interp_result_def, COND_EXPAND_EQ] THEN - SRW_TAC [] [is_value_of_expr_def, LAMBDA_PROD2] THENL - [METIS_TAC [match_thm, NOT_SOME_NONE], - METIS_TAC [match_thm, pat_match_is_val_thm, EVERY_MAP]], - SRW_TAC [] [lrbs_to_lrblist_def, MAP_MAP] THEN - MATCH_MP_TAC (METIS_PROVE [] ``!f x y z. (x = y) ==> (f x z = f y z)``) THEN - SRW_TAC [] [MAP_EQ] THEN FULL_SIMP_TAC list_ss [EVERY_MEM], - Q.EXISTS_TAC `MAP (\lb. case lb of LRB_simple vn pm -> (vn,recfun lrbs pm, pm)) - (lrbs_to_lrblist lrbs)` THEN - SRW_TAC [] [MAP_MAP, EVERY_MAP, lem6] THENL - [Cases_on `lrbs` THEN SRW_TAC [] [lrbs_to_lrblist_def] THEN - Induct_on `l'` THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [] THEN Cases_on `h` THEN - SRW_TAC [] [], - MATCH_MP_TAC (METIS_PROVE [] ``!f x y z. (x = y) ==> (f x z = f y z)``) THEN - SRW_TAC [] [MAP_EQ] THEN Cases_on `lb` THEN SRW_TAC [] [], - SRW_TAC [] [EVERY_MEM] THEN Cases_on `lb` THEN SRW_TAC [] [] THEN - MATCH_MP_TAC (METIS_PROVE [] ``!f x y z. (x = y) ==> (f x z = f y z)``) THEN - Cases_on `lrbs` THEN SRW_TAC [] [lrbs_to_lrblist_def] THEN - POP_ASSUM (K ALL_TAC) THEN Induct_on `l'` THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [] THEN - Cases_on `h` THEN SRW_TAC [] []]]); - -end; - -val store_assign_def = Define -`(store_assign loc expr [] = NONE) /\ - (store_assign loc expr ((l1, e1)::st) = - if loc = l1 then - SOME ((l1,expr)::st) - else - OPTION_MAP (\st. (l1,e1)::st) (store_assign loc expr st))`; - -val top_red_def = Define -`top_red allocator (st, dvs, prog) = - if is_definitions_value_of_definitions dvs then - case defns_red (dvs, prog) of - Stuck -> NONE - || Step d -> SOME (st,d) - || StepAlloc get_results vl -> - if is_value_of_expr vl then - let l = allocator st in - SOME ((l, remv_tyvar_expr vl)::st, get_results (Expr_location l)) - else - NONE - || StepLookup get_results loc -> - (case list_assoc loc st of - NONE -> NONE - || SOME e -> - if is_value_of_expr e then - SOME (st, get_results e) - else - NONE) - || StepAssign r loc expr -> - if is_value_of_expr expr then - OPTION_MAP (\st. (st, r)) (store_assign loc (remv_tyvar_expr expr) st) - else - NONE - else - NONE`; - -val good_allocator_def = Define -`good_allocator allocator = !st. ~MEM (allocator st) (MAP FST st)`; - -val good_alloc_thm = Q.prove ( -`!st alloc v. good_allocator alloc ==> ~(list_assoc (alloc st) st = SOME v)`, -SRW_TAC [] [good_allocator_def] THEN CCONTR_TAC THEN FULL_SIMP_TAC list_ss [] THEN -IMP_RES_TAC list_assoc_mem THEN FULL_SIMP_TAC list_ss [MEM_MAP] THEN METIS_TAC [FST, SND]); - -val store_assign1_thm = Q.prove ( -`!st n e st'. (store_assign n e st = SOME st') ==> - ?st1 e' st2. (st = st1++[(n, e')]++st2) /\ (st' = st1++[(n,e)]++st2) /\ - (!v. ~(list_assoc n st1 = SOME v))`, -Induct THEN SRW_TAC [] [store_assign_def, list_assoc_def] THEN Cases_on `h` THEN -FULL_SIMP_TAC list_ss [COND_EXPAND_EQ, store_assign_def, list_assoc_def] THEN Cases_on `st'` THEN -FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THENL -[Q.EXISTS_TAC `[]` THEN SRW_TAC [] [list_assoc_def], - RES_TAC THEN SRW_TAC [] [] THEN METIS_TAC [APPEND, APPEND_ASSOC, list_assoc_def]]); - -val store_assign2_thm = Q.prove ( -`!l e st1 e' st2. (!v. ~(list_assoc l st1 = SOME v)) ==> - (store_assign l e (st1++[(l, e')]++st2) = SOME (st1++[(l, e)]++st2))`, -Induct_on `st1` THEN SRW_TAC [] [list_assoc_def, store_assign_def] THEN Cases_on `h` THEN -FULL_SIMP_TAC (srw_ss()) [list_assoc_def, store_assign_def] THEN SRW_TAC [] [] THEN METIS_TAC []); - -val max_alloc_def = Define -`(max_alloc [] = 0:num) /\ - (max_alloc ((l,_)::st) = - let l' = max_alloc st in - if l >= l' then - l + 1 - else l')`; - -local - -val lem1 = Q.prove ( -`!st l'. MEM l' (MAP FST st) ==> (max_alloc st) > l'`, -Induct THEN SRW_TAC [] [max_alloc_def] THEN Cases_on `h` THEN SRW_TAC [] [max_alloc_def, LET_DEF] THEN -RES_TAC THEN DECIDE_TAC); - -in - -val max_alloc_good_thm = Q.prove ( -`good_allocator max_alloc`, -SRW_TAC [] [good_allocator_def] THEN CCONTR_TAC THEN FULL_SIMP_TAC list_ss [] THEN IMP_RES_TAC lem1 THEN -DECIDE_TAC); - -end; - -val top_red1_thm = Q.prove ( -`!alloc st dvs prog st' dvs' prog'. - good_allocator alloc /\ (top_red alloc (st, dvs, prog) = SOME (st', dvs', prog')) ==> - JRtop dvs prog st dvs' prog' st'`, -SRW_TAC [] [JRtop_cases, top_red_def, SIMP_RULE list_ss [ELIM_UNCURRY] defns_red_thm] THEN -Cases_on `defns_red (dvs,prog)` THEN FULL_SIMP_TAC (srw_ss()) [] THEN Cases_on `prog` THEN SRW_TAC [] [] THEN -FULL_SIMP_TAC (srw_ss()) [defns_red_def, interp_result_def, JRstore_cases] THENL -[Q.EXISTS_TAC `Lab_nil` THEN SRW_TAC [] [], - Q.EXISTS_TAC `Lab_alloc e (alloc st)` THEN SRW_TAC [] [interp_result_def] THEN - FULL_SIMP_TAC (srw_ss()) [LET_DEF, list_assoc_mem, COND_EXPAND_EQ, good_alloc_thm], - Cases_on `list_assoc n st` THEN FULL_SIMP_TAC (srw_ss()) [COND_EXPAND_EQ] THEN - Q.EXISTS_TAC `Lab_deref n x` THEN SRW_TAC [] [interp_result_def], - FULL_SIMP_TAC list_ss [COND_EXPAND_EQ] THEN Q.EXISTS_TAC `Lab_assign n e` THEN - SRW_TAC [] [interp_result_def] THEN METIS_TAC [store_assign1_thm]]); - -val top_red2_thm = Q.prove ( -`!st dvs prog st' dvs' prog'. - JRtop dvs prog st dvs' prog' st' ==> - ?alloc. good_allocator alloc /\ (top_red alloc (st, dvs, prog) = SOME (st', dvs', prog'))`, -SRW_TAC [] [JRtop_cases, top_red_def, SIMP_RULE list_ss [ELIM_UNCURRY] defns_red_thm, LET_DEF] THEN -Cases_on `defns_red (dvs,prog)` THEN FULL_SIMP_TAC (srw_ss()) [] THEN Cases_on `prog` THEN SRW_TAC [] [] THEN -FULL_SIMP_TAC (srw_ss()) [defns_red_def, interp_result_def, JRstore_cases, COND_EXPAND_EQ] THEN -SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [interp_result_def, COND_EXPAND_EQ] THEN -SRW_TAC [] [] THENL -[METIS_TAC [max_alloc_good_thm], - Q.EXISTS_TAC `\st'. if st' = st then l else max_alloc st'` THEN SRW_TAC [] [good_allocator_def] THEN - Cases_on `st' = st` THEN SRW_TAC [] [] THENL - [CCONTR_TAC THEN FULL_SIMP_TAC list_ss [] THEN IMP_RES_TAC mem_list_assoc THEN METIS_TAC [], - METIS_TAC [max_alloc_good_thm, good_allocator_def]], - METIS_TAC [max_alloc_good_thm], - Q.EXISTS_TAC `max_alloc` THEN SRW_TAC [] [] THEN METIS_TAC [max_alloc_good_thm, store_assign2_thm], - METIS_TAC []]); - -val top_red_thm = Q.store_thm ("top_red_thm", -`!st dvs prog st' dvs' prog'. - JRtop dvs prog st dvs' prog' st' = - ?alloc. good_allocator alloc /\ (top_red alloc (st, dvs, prog) = SOME (st', dvs', prog'))`, -METIS_TAC [top_red2_thm, top_red1_thm]); - -val top_red_max_alloc_thm = Q.store_thm ("top_red_max_alloc_thm", -`!st dvs prog st' dvs' prog'. - (top_red max_alloc (st, dvs, prog) = SOME (st', dvs', prog')) ==> - JRtop dvs prog st dvs' prog' st'`, -METIS_TAC [top_red_thm, max_alloc_good_thm]); - -val _ = export_theory(); diff --git a/vendors/ott/examples/ocaml_light/hol/env_permScript.sml b/vendors/ott/examples/ocaml_light/hol/env_permScript.sml deleted file mode 100644 index 2d9ca1aee7ac..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/env_permScript.sml +++ /dev/null @@ -1,579 +0,0 @@ -open bossLib HolKernel boolLib listTheory optionTheory rich_listTheory sortingTheory; -open ottTheory ottLib caml_typedefTheory; -open utilTheory basicTheory shiftTheory environmentTheory; - -val OPTION_MAP_ID = Q.prove ( -`!Op. OPTION_MAP (\x. x) Op = Op`, -Cases THEN SRW_TAC [] []); - -val _ = new_theory "env_perm"; - -val idx_bound_append_thm = Q.store_thm ("idx_bound_append_thm", -`!E1 E2 idx. idx_bound (E1++E2) idx = idx_bound E1 idx \/ idx_bound E2 (idx - num_tv E1)`, -Induct THEN SRW_TAC [] [idx_bound_def, num_tv_def] THEN Cases_on `h` THEN -SRW_TAC [] [idx_bound_def, num_tv_def] THEN Cases_on `idx` THEN -SRW_TAC [ARITH_ss] [idx_bound_def, num_tv_def, arithmeticTheory.ADD1]); - -val idx_env_thm = Q.store_thm ("idx_env_thm", -`!E idx. value_env E \/ type_env E \/ store_env E ==> ~(idx_bound E idx)`, -Induct THEN SRW_TAC [] [value_env_def, type_env_def, store_env_def, idx_bound_def] THEN -Cases_on `h` THEN FULL_SIMP_TAC list_ss [value_env_def, type_env_def, store_env_def, idx_bound_def]); - -val type_env_lookup_lem = Q.store_thm ("type_env_lookup_lem", -`!E. type_env E ==> - (!x. lookup E (name_l x) = NONE) /\ - (!x. lookup E (name_vn x) = NONE) /\ - (!x. lookup E name_tv = NONE)`, -Induct THEN SRW_TAC [] [lookup_def, type_env_def, domEB_def] THEN Cases_on `h` THEN -FULL_SIMP_TAC list_ss [type_env_def, domEB_def, name_distinct]); - -val type_env_num_tv_thm = Q.prove ( -`!E. type_env E ==> (num_tv E = 0)`, -Induct THEN SRW_TAC [] [num_tv_def, type_env_def] THEN Cases_on `h` THEN -FULL_SIMP_TAC list_ss [num_tv_def, type_env_def]); - -val lookup_store_type_perm_thm = Q.prove ( -`!E1 E2 E3 E4 EB name. type_env E2 /\ store_env E3 /\ - (lookup (E1++E2++E3++E4) name = SOME EB) ==> (lookup (E1++E3++E2++E4) name = SOME EB)`, -SRW_TAC [] [lookup_append_thm] THEN -Cases_on `lookup E1 name` THEN FULL_SIMP_TAC list_ss [option_case_def] THEN -Cases_on `lookup E2 name` THEN FULL_SIMP_TAC list_ss [option_case_def] THEN -Cases_on `lookup E3 name` THEN FULL_SIMP_TAC list_ss [option_case_def, num_tv_append_thm] THEN -IMP_RES_TAC type_env_num_tv_thm THEN IMP_RES_TAC value_env_num_tv_thm THEN FULL_SIMP_TAC list_ss [] THEN -Cases_on `name` THEN IMP_RES_TAC store_env_lookup_lem THEN FULL_SIMP_TAC list_ss [] THEN -METIS_TAC [NOT_SOME_NONE, type_env_lookup_lem]); - -val idx_bound_store_type_perm_thm = Q.prove ( -`!E1 E2 E3 E4 idx. type_env E2 /\ store_env E3 /\ idx_bound (E1 ++ E2 ++ E3 ++ E4) idx ==> - idx_bound (E1 ++ E3 ++ E2 ++ E4) idx`, -SRW_TAC [ARITH_ss] [idx_bound_append_thm, idx_env_thm, num_tv_append_thm] THEN -METIS_TAC [idx_env_thm]); - -local - -val lem1 = Q.prove ( -`!E1 E2 E3 t. tkind (E1++E3) t /\ Eok (E1++E2++E3) /\ store_env E1 /\ type_env E2 ==> tkind (E1++E2++E3) t`, -Induct THEN SRW_TAC [] [] THENL -[IMP_RES_TAC tkind_weak_thm THEN IMP_RES_TAC type_env_num_tv_thm THEN FULL_SIMP_TAC list_ss [shiftt_add_thm], - Cases_on `h` THEN FULL_SIMP_TAC list_ss [store_env_def] THEN - MATCH_MP_TAC ((SIMP_RULE list_ss [num_tv_def, shiftt_add_thm] o Q.SPEC `[EB_l n t']`) tkind_weak_thm) THEN - `tkind (E1 ++ E3) t` by METIS_TAC [value_env_ok_str_thm, APPEND, APPEND_ASSOC, store_env_def] THEN - METIS_TAC [ok_ok_thm, APPEND]]); - -val lem2 = Q.prove ( -`Eok (E2 ++ EB_l n t::E3 ++ E4) ==> ~MEM (name_l n) (MAP domEB E2)`, -Induct_on `E2` THEN SRW_TAC [] [] THEN `Eok (E2 ++ EB_l n t::E3 ++ E4)` by METIS_TAC [APPEND, ok_ok_thm] THEN -FULL_SIMP_TAC list_ss [] THEN Cases_on `h` THEN FULL_SIMP_TAC list_ss [Eok_def] THEN -FULL_SIMP_TAC list_ss [domEB_def] THEN SRW_TAC [] []); - -in - -val ok_store_type_perm_thm = Q.prove ( -`(!E1 E2 E3 E4. Eok (E1++E2++E3++E4) /\ type_env E2 /\ store_env E3 ==> - Eok (E1++E3++E2++E4)) /\ - (!E1 tc E2 E3 E4 k. (typeconstr_kind (E1++E2++E3++E4) tc = SOME k) /\ type_env E2 /\ - store_env E3 ==> - (typeconstr_kind (E1++E3++E2++E4) tc = SOME k)) /\ - (!E1 ts E2 E3 E4. tsok (E1++E2++E3++E4) ts /\ type_env E2 /\ store_env E3 ==> - tsok (E1++E3++E2++E4) ts) /\ - (!E1 tpo ts E2 E3 E4. ntsok (E1++E2++E3++E4) tpo ts /\ type_env E2 /\ store_env E3 ==> - ntsok (E1++E3++E2++E4) tpo ts) /\ - (!E1 t E2 E3 E4. tkind (E1++E2++E3++E4) t /\ type_env E2 /\ store_env E3 ==> - tkind (E1++E3++E2++E4) t)`, -HO_MATCH_MP_TAC Eok_ind THEN SRW_TAC [] [Eok_def, COND_EXPAND_EQ] THEN -FULL_SIMP_TAC list_ss [Eok_def, type_env_def, store_env_def, EVERY_MEM] THEN SRW_TAC [] [] THENL -[ALL_TAC, - METIS_TAC [lookup_store_type_perm_thm], - METIS_TAC [], - METIS_TAC [], - METIS_TAC [], - METIS_TAC [lookup_store_type_perm_thm], - METIS_TAC [lookup_store_type_perm_thm], - METIS_TAC [lookup_store_type_perm_thm], - Cases_on `lookup (E1 ++ E2 ++ E3 ++ E4) (name_tcn typeconstr_name)` THEN - FULL_SIMP_TAC list_ss [option_case_def] THEN IMP_RES_TAC lookup_store_type_perm_thm THEN SRW_TAC [] [], - METIS_TAC [idx_bound_store_type_perm_thm]] -THEN -Induct_on `E3` THEN SRW_TAC [] [] THEN Cases_on `h` THEN FULL_SIMP_TAC list_ss [store_env_def] THEN -`Eok (EB_l n t::E3 ++ E4)` by METIS_TAC [ok_ok_thm, APPEND, APPEND_ASSOC] THEN -FULL_SIMP_TAC list_ss [Eok_def] THEN -`Eok (E2++E3++E4)` by METIS_TAC [value_env_ok_str_thm, store_env_def, APPEND, APPEND_ASSOC] THEN -SRW_TAC [] [lem1] THEN METIS_TAC [lem2]); - -end; - - -val teq_store_type_perm_thm = Q.prove ( -`!E t t'. JTeq E t t' ==> !E1 E2 E3 E4. (E = E1++E2++E3++E4) /\ store_env E3 /\ type_env E2 ==> - JTeq (E1++E3++E2++E4) t t'`, -INDUCT_TAC JTeq_ind [] -[([``"JTeq_refl"``], METIS_TAC [ok_store_type_perm_thm, ok_ok_thm, JTeq_rules]), - ([``"JTeq_sym"``, ``"JTeq_trans"``], METIS_TAC [JTeq_rules]), - ([``"JTeq_expand"``], - SRW_TAC [] [] THEN ONCE_REWRITE_TAC [JTeq_cases] THEN NTAC 3 DISJ2_TAC THEN DISJ1_TAC THEN - FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN - METIS_TAC [lookup_store_type_perm_thm, ok_store_type_perm_thm]), - ([``"JTeq_arrow"``], METIS_TAC [JTeq_rules]), - ([``"JTeq_tuple"``], - SRW_TAC [] [] THEN ONCE_REWRITE_TAC [JTeq_cases] THEN FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN - METIS_TAC []), - ([``"JTeq_constr"``], - SRW_TAC [] [] THEN ONCE_REWRITE_TAC [JTeq_cases] THEN FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN - METIS_TAC [ok_store_type_perm_thm])]); - - - -val uprim_store_type_perm_thm = Q.prove ( -`!E1 E2 E3 E4 up t. JTuprim (E1++E2++E3++E4) up t /\ store_env E3 /\ type_env E2 ==> - JTuprim (E1++E3++E2++E4) up t`, -SRW_TAC [] [JTuprim_cases, ok_store_type_perm_thm]); - -val bprim_store_type_perm_thm = Q.prove ( -`!E1 E2 E3 E4 bp t. JTbprim (E1++E2++E3++E4) bp t /\ store_env E3 /\ type_env E2 ==> - JTbprim (E1++E3++E2++E4) bp t`, -SRW_TAC [] [JTbprim_cases, ok_store_type_perm_thm]); - -val inst_store_type_perm_thm = Q.prove ( -`!E1 E2 E3 E4 t ts. JTinst (E1++E2++E3++E4) t ts /\ store_env E3 /\ type_env E2 ==> - JTinst (E1++E3++E2++E4) t ts`, -SRW_TAC [] [JTinst_cases, EVERY_MEM] THEN METIS_TAC [ok_store_type_perm_thm]); - -val inst_named_store_type_perm_thm = Q.prove ( -`!E1 E2 E3 E4 t tpo ts. JTinst_named (E1++E2++E3++E4) t tpo ts /\ store_env E3 /\ type_env E2 ==> - JTinst_named (E1++E3++E2++E4) t tpo ts`, -SRW_TAC [] [JTinst_named_cases, EVERY_MEM] THEN METIS_TAC [ok_store_type_perm_thm]); - -val vn_store_type_perm_thm = Q.prove ( -`!E1 E2 E3 E4 vn t. JTvalue_name (E1++E2++E3++E4) vn t /\ store_env E3 /\ type_env E2 ==> - JTvalue_name (E1++E3++E2++E4) vn t`, -SRW_TAC [] [JTvalue_name_cases] THEN Q.EXISTS_TAC `ts` THEN -SRW_TAC [] [lookup_store_type_perm_thm, inst_store_type_perm_thm]); - -val constr_c_store_type_perm_thm = Q.prove ( -`!E1 E2 E3 E4 c t. JTconstr_c (E1++E2++E3++E4) c t /\ store_env E3 /\ type_env E2 ==> - JTconstr_c (E1++E3++E2++E4) c t`, -SRW_TAC [] [JTconstr_c_cases, ok_store_type_perm_thm, lookup_store_type_perm_thm, EVERY_MEM]); - -val const_store_type_perm_thm = Q.prove ( -`!E1 E2 E3 E4 c t. JTconst (E1++E2++E3++E4) c t /\ store_env E3 /\ type_env E2 ==> - JTconst (E1++E3++E2++E4) c t`, -SRW_TAC [] [JTconst_cases, ok_store_type_perm_thm, constr_c_store_type_perm_thm]); - -val constr_p_store_type_perm_thm = Q.prove ( -`!E1 E2 E3 E4 c t t'. JTconstr_p (E1++E2++E3++E4) c t t' /\ store_env E3 /\ type_env E2 ==> - JTconstr_p (E1++E3++E2++E4) c t t'`, -SRW_TAC [] [JTconstr_p_cases, ok_store_type_perm_thm] THEN -METIS_TAC [lookup_store_type_perm_thm, inst_named_store_type_perm_thm]); - -val field_store_type_perm_thm = Q.prove ( -`!E1 E2 E3 E4 fn t t'. JTfield (E1++E2++E3++E4) fn t t' /\ store_env E3 /\ type_env E2 ==> - JTfield (E1++E3++E2++E4) fn t t'`, -SRW_TAC [] [JTfield_cases] THEN -METIS_TAC [lookup_store_type_perm_thm, inst_named_store_type_perm_thm]); - -val inst_any_store_type_perm_thm = Q.prove ( -`!E t t'. JTinst_any E t t' ==> !E1 E2 E3 E4. (E=E1++E2++E3++E4) /\ store_env E3 /\ type_env E2 ==> - JTinst_any (E1++E3++E2++E4) t t'`, -RULE_INDUCT_TAC JTinst_any_ind [JTinst_any_fun, EVERY_MEM] -[] THEN -METIS_TAC [ok_store_type_perm_thm]); - -val pat_store_type_perm_thm = Q.prove ( -`!S E p t E'. JTpat S E p t E' ==> !E1 E2 E3 E4. (E=E1++E2++E3++E4) /\ store_env E3 /\ type_env E2 ==> - JTpat S (E1++E3++E2++E4) p t E'`, -RULE_INDUCT_TAC JTpat_ind [JTpat_fun, EVERY_MEM] -[([``"JTpat_var"``, ``"JTpat_any"``, ``"JTpat_tuple"``, ``"JTpat_cons"``], - METIS_TAC [ok_store_type_perm_thm]), - ([``"JTpat_typed"``], SRW_TAC [] [] THEN METIS_TAC [inst_any_store_type_perm_thm, teq_store_type_perm_thm]), - ([``"JTpat_constant"``], - METIS_TAC [const_store_type_perm_thm]), - ([``"JTpat_construct"``, ``"JTpat_construct_any"``], - METIS_TAC [constr_p_store_type_perm_thm]), - ([``"JTpat_record"``], - METIS_TAC [field_store_type_perm_thm]), - ([``"JTpat_or"``], - METIS_TAC [])]); - -val store_type_perm_thm = Q.prove ( -`(!S E e t. JTe S E e t ==> !E1 E2 E3 E4. (E=E1++E2++E3++E4) /\ store_env E3 /\ type_env E2 ==> - JTe S (E1++E3++E2++E4) e t) /\ - (!S E pm t t'. JTpat_matching S E pm t t' ==> - !E1 E2 E3 E4. (E=E1++E2++E3++E4) /\ store_env E3 /\ type_env E2 ==> - JTpat_matching S (E1++E3++E2++E4) pm t t') /\ - (!S E lb E'. JTlet_binding S E lb E' ==> !E1 E2 E3 E4. (E=E1++E2++E3++E4) /\ store_env E3 /\ type_env E2 ==> - JTlet_binding S (E1++E3++E2++E4) lb E') /\ - (!S E lrbs E'. JTletrec_binding S E lrbs E' ==> - !E1 E2 E3 E4. (E=E1++E2++E3++E4) /\ store_env E3 /\ type_env E2 ==> - JTletrec_binding S (E1++E3++E2++E4) lrbs E')`, -RULE_INDUCT_TAC JTe_ind [JTe_fun, EVERY_MEM] -[([``"JTe_uprim"``, ``"JTe_bprim"``, ``"JTe_ident"``, ``"JTe_constant"``], - METIS_TAC [uprim_store_type_perm_thm, bprim_store_type_perm_thm, vn_store_type_perm_thm, - const_store_type_perm_thm, teq_store_type_perm_thm]), - ([``"JTe_typed"``], SRW_TAC [] [] THEN METIS_TAC [inst_any_store_type_perm_thm, teq_store_type_perm_thm]), - ([``"JTe_tuple"``, ``"JTe_apply"``, ``"JTe_match"``, ``"JTe_cons"``, ``"JTe_and"``, ``"JTe_or"``, - ``"JTe_while"``, ``"JTe_function"``, ``"JTe_assert"``], - METIS_TAC [teq_store_type_perm_thm]), - ([``"JTe_construct"``], - METIS_TAC [constr_p_store_type_perm_thm, teq_store_type_perm_thm]), - ([``"JTe_record_constr"``], - SRW_TAC [] [] THEN - MAP_EVERY Q.EXISTS_TAC [`field_name'_list`, `t'_list`, `field_name_e_t_list`] THEN - METIS_TAC [field_store_type_perm_thm, lookup_store_type_perm_thm, teq_store_type_perm_thm]), - ([``"JTe_record_with"``, ``"JTe_record_proj"``], - METIS_TAC [field_store_type_perm_thm, teq_store_type_perm_thm]), - ([``"JTe_for"``], - METIS_TAC [APPEND, teq_store_type_perm_thm]), - ([``"JTe_let_mono"``], - METIS_TAC [APPEND_ASSOC]), - ([``"JTe_let_poly"``], - SRW_TAC [] [] THEN DISJ2_TAC THEN Q.EXISTS_TAC `x_t_list` THEN METIS_TAC [APPEND, APPEND_ASSOC]), - ([``"JTe_letrec"``], - METIS_TAC [APPEND, APPEND_ASSOC]), - ([``"JTe_assertfalse"``], - SRW_TAC [] [JTconst_cases] THEN METIS_TAC [ok_store_type_perm_thm]), - ([``"JTe_location"``], - METIS_TAC [lookup_store_type_perm_thm, ok_store_type_perm_thm, teq_store_type_perm_thm]), - ([``"JTpat_matching_pm"``], - SRW_TAC [] [] THEN Q.EXISTS_TAC `pattern_e_E_list` THEN SRW_TAC [] [] THEN - METIS_TAC [pat_store_type_perm_thm]), - ([``"JTlet_binding_poly"``], - METIS_TAC [pat_store_type_perm_thm, APPEND_ASSOC]), - ([``"JTletrec_binding_equal_function"``], - SRW_TAC [] [] THEN Q.EXISTS_TAC `value_name_pattern_matching_t_t'_list` THEN SRW_TAC [] [])]); - -val type_def_store_type_perm_thm = Q.prove ( -`!E td E'. JTtype_definition E td E' ==> !E1 E2 E3 E4. (E = E1++E2++E3++E4) /\ type_env E2 /\ store_env E3 ==> - JTtype_definition (E1++E3++E2++E4) td E'`, -RULE_INDUCT_TAC JTtype_definition_ind [JTtype_definition_rules] [] THEN -SRW_TAC [] [] THEN IMP_RES_TAC JTtype_definition_rules THEN FULL_SIMP_TAC (srw_ss()) [] THEN -`Eok ((E''' ++ E'' ++ E' ++ E1) ++ E2 ++ E3 ++ E4) ==> - Eok ((E''' ++ E'' ++ E' ++ E1) ++ E3 ++ E2 ++ E4)` by METIS_TAC [ok_store_type_perm_thm] THEN - FULL_SIMP_TAC (srw_ss()) []); - - -val def_store_type_perm_thm = Q.prove ( -`!E d E'. JTdefinition E d E' ==> !E1 E2 E3 E4. (E = E1++E2++E3++E4) /\ type_env E2 /\ store_env E3 ==> - JTdefinition (E1++E3++E2++E4) d E'`, -RULE_INDUCT_TAC JTdefinition_ind [JTdefinition_fun] -[([``"JTdefinition_let_poly"``, ``"JTdefinition_let_mono"``, ``"JTdefinition_letrec"``], - SRW_TAC [] [] THEN METIS_TAC [store_type_perm_thm, APPEND, APPEND_ASSOC]), - ([``"JTdefinition_typedef"``], - METIS_TAC [type_def_store_type_perm_thm]), - ([``"JTdefinition_exndef"``], - SRW_TAC [] [JTconstr_decl_cases] THEN METIS_TAC [ok_store_type_perm_thm])]); - -val defs_store_type_perm_thm = Q.store_thm ("defs_store_type_perm_thm", -`!E ds E'. JTdefinitions E ds E' ==> !E1 E2 E3 E4. (E = E1++E2++E3++E4) /\ type_env E2 /\ store_env E3 ==> - JTdefinitions (E1++E3++E2++E4) ds E'`, -RULE_INDUCT_TAC JTdefinitions_ind [JTdefinitions_fun] -[([``"JTdefinitions_empty"``], METIS_TAC [ok_store_type_perm_thm]), - ([``"JTdefinitions_item"``], METIS_TAC [def_store_type_perm_thm, APPEND_ASSOC])]); - -local - -val lem1 = Q.prove ( -`!x E. value_env (x::E) = (?n ts. x = EB_vn n ts) /\ value_env E`, -Cases THEN SRW_TAC [] [value_env_def]); - -val lem2 = Q.prove ( -`!E1 E2. PERM E1 E2 ==> ALL_DISTINCT (MAP domEB E1) /\ value_env E1 ==> PERM E1 E2 /\ - !name. (lookup E1 name = lookup E2 name)`, -HO_MATCH_MP_TAC PERM_IND THEN -SRW_TAC [] [PERM_REFL, PERM_MONO, PERM_SWAP_AT_FRONT, PERM_TRANS, lem1] THENL -[SRW_TAC [] [lookup_def], - SRW_TAC [] [lookup_def, shiftEB_add_thm, OPTION_MAP_ID, domEB_def] THEN FULL_SIMP_TAC (srw_ss()) [domEB_def], - METIS_TAC [PERM_ALL_DISTINCT, PERM_MAP, PERM_TRANS, value_env_perm_thm], - METIS_TAC [PERM_ALL_DISTINCT, PERM_MAP, PERM_TRANS, value_env_perm_thm]]); - -in - -val lookup_value_perm_thm = Q.prove ( -`!E1 E2 E3 E4 EB name. value_env E2 /\ PERM E2 E3 /\ (ALL_DISTINCT (MAP domEB E2) \/ !n. ~(name = name_vn n)) /\ - (lookup (E1++E2++E4) name = SOME EB) ==> (lookup (E1++E3++E4) name = SOME EB)`, -SRW_TAC [] [lookup_append_thm] THEN IMP_RES_TAC value_env_perm_thm THEN -Cases_on `lookup E1 name` THEN FULL_SIMP_TAC (srw_ss()) [] THEN -Cases_on `lookup E2 name` THEN FULL_SIMP_TAC (srw_ss()) [] THEN -Cases_on `lookup E3 name` THEN FULL_SIMP_TAC (srw_ss()) [num_tv_append_thm] THEN -IMP_RES_TAC value_env_num_tv_thm THEN FULL_SIMP_TAC (srw_ss()) [] THEN IMP_RES_TAC value_env_lookup_lem THENL -[METIS_TAC [NOT_SOME_NONE, lem2, PERM_SYM, SOME_11], - METIS_TAC [NOT_SOME_NONE, lem2, PERM_SYM, SOME_11], - METIS_TAC [NOT_SOME_NONE, lem2, PERM_SYM, SOME_11], - Cases_on `name` THEN FULL_SIMP_TAC (srw_ss()) [], - Cases_on `name` THEN FULL_SIMP_TAC (srw_ss()) [], - Cases_on `name` THEN FULL_SIMP_TAC (srw_ss()) []]); - -end; - - -val idx_bound_value_perm_thm = Q.prove ( -`!E1 E2 E3 E4 idx. value_env E2 /\ PERM E2 E3 /\ idx_bound (E1 ++ E2 ++ E4) idx ==> - idx_bound (E1 ++ E3 ++ E4) idx`, -SRW_TAC [ARITH_ss] [idx_bound_append_thm, idx_env_thm, num_tv_append_thm] THEN -METIS_TAC [idx_env_thm, value_env_perm_thm, value_env_num_tv_thm]); - -local - -val lem1 = Q.prove ( -`!E1 E2 E3 t. tkind (E1++E3) t /\ Eok (E1++E2++E3) /\ store_env E1 /\ type_env E2 ==> tkind (E1++E2++E3) t`, -Induct THEN SRW_TAC [] [] THENL -[IMP_RES_TAC tkind_weak_thm THEN IMP_RES_TAC type_env_num_tv_thm THEN FULL_SIMP_TAC list_ss [shiftt_add_thm], - Cases_on `h` THEN FULL_SIMP_TAC list_ss [store_env_def] THEN - MATCH_MP_TAC ((SIMP_RULE list_ss [num_tv_def, shiftt_add_thm] o Q.SPEC `[EB_l n t']`) tkind_weak_thm) THEN - `tkind (E1 ++ E3) t` by METIS_TAC [value_env_ok_str_thm, APPEND, APPEND_ASSOC, store_env_def] THEN - METIS_TAC [ok_ok_thm, APPEND]]); - -val lem2 = Q.prove ( -`Eok (E2 ++ EB_l n t::E3 ++ E4) ==> ~MEM (name_l n) (MAP domEB E2)`, -Induct_on `E2` THEN SRW_TAC [] [] THEN `Eok (E2 ++ EB_l n t::E3 ++ E4)` by METIS_TAC [APPEND, ok_ok_thm] THEN -FULL_SIMP_TAC list_ss [] THEN Cases_on `h` THEN FULL_SIMP_TAC list_ss [Eok_def] THEN -FULL_SIMP_TAC list_ss [domEB_def] THEN SRW_TAC [] []); - -val lem3 = Q.prove ( -`!x E. value_env (x::E) = (?n ts. x = EB_vn n ts) /\ value_env E`, -Cases THEN SRW_TAC [] [value_env_def]); - -val lem4 = Q.prove ( -`!E. value_env E ==> ~MEM EB_tv E`, -Induct THEN SRW_TAC [] [lem3]); - -val lem5 = Q.prove ( -`tsok (E2 ++ E4) ts /\ value_env E2 /\ value_env E3 /\ Eok (E3 ++ E4) ==> tsok (E3++E4) ts`, -METIS_TAC [value_env_ok_str_thm, APPEND, lem4, weak_ok_thm]); - -val lem6 = Q.prove ( -`!E2 E3. PERM E2 E3 ==> Eok (E2 ++ E4) /\ value_env E2 ==> - PERM E2 E3 /\ Eok (E3 ++ E4)`, -HO_MATCH_MP_TAC PERM_IND THEN SRW_TAC [] [lem3] THEN FULL_SIMP_TAC (srw_ss()) [Eok_def] THENL -[METIS_TAC [ok_ok_thm], - METIS_TAC [ok_ok_thm, lem5, value_env_perm_thm], - IMP_RES_TAC ok_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [Eok_def] THEN IMP_RES_TAC ok_ok_thm THEN - FULL_SIMP_TAC (srw_ss()) [Eok_def] THEN METIS_TAC [PERM_SWAP_AT_FRONT], - IMP_RES_TAC ok_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [Eok_def] THEN IMP_RES_TAC ok_ok_thm THEN - SIMP_TAC pure_ss [GSYM APPEND] THEN MATCH_MP_TAC (GEN_ALL lem5) THEN - FULL_SIMP_TAC (srw_ss()) [Eok_def, lem3] THEN Q.EXISTS_TAC `E2` THEN - SRW_TAC [] [] THEN1 METIS_TAC [value_env_perm_thm] THEN - METIS_TAC [value_env_ok_str_thm, APPEND, lem4, weak_ok_thm, value_env_perm_thm, lem3], - METIS_TAC [value_env_perm_thm, PERM_TRANS], - METIS_TAC [value_env_perm_thm]]); - -in - -val ok_value_perm_thm = Q.prove ( -`(!E1 E2 E3 E4. Eok (E1++E2++E4) /\ value_env E2 /\ PERM E2 E3 ==> - Eok (E1++E3++E4)) /\ - (!E1 tc E2 E3 E4 k. (typeconstr_kind (E1++E2++E4) tc = SOME k) /\ value_env E2 /\ - PERM E2 E3 ==> - (typeconstr_kind (E1++E3++E4) tc = SOME k)) /\ - (!E1 ts E2 E3 E4. tsok (E1++E2++E4) ts /\ value_env E2 /\ PERM E2 E3 ==> - tsok (E1++E3++E4) ts) /\ - (!E1 tpo ts E2 E3 E4. ntsok (E1++E2++E4) tpo ts /\ value_env E2 /\ PERM E2 E3 ==> - ntsok (E1++E3++E4) tpo ts) /\ - (!E1 t E2 E3 E4. tkind (E1++E2++E4) t /\ value_env E2 /\ PERM E2 E3 ==> - tkind (E1++E3++E4) t)`, -HO_MATCH_MP_TAC Eok_ind THEN SRW_TAC [] [Eok_def, COND_EXPAND_EQ] THEN -FULL_SIMP_TAC list_ss [Eok_def, value_env_def, EVERY_MEM] THEN SRW_TAC [] [] THEN -IMP_RES_TAC value_env_perm_thm THEN IMP_RES_TAC value_env_lookup_lem THEN -FULL_SIMP_TAC (srw_ss()) [GSYM lookup_dom_thm] THENL -[METIS_TAC [lem6], - METIS_TAC [], - METIS_TAC [], - METIS_TAC [lookup_value_perm_thm, name_distinct], - METIS_TAC [], - METIS_TAC [], - METIS_TAC [], - METIS_TAC [], - METIS_TAC [lookup_value_perm_thm, name_distinct], - METIS_TAC [], - METIS_TAC [lookup_value_perm_thm, name_distinct], - METIS_TAC [], - METIS_TAC [lookup_value_perm_thm, name_distinct], - METIS_TAC [], - METIS_TAC [], - METIS_TAC [], - METIS_TAC [], - METIS_TAC [], - Cases_on `lookup (E1 ++ E2 ++ E4) (name_tcn typeconstr_name)` THEN FULL_SIMP_TAC (srw_ss()) [] THEN - `lookup (E1 ++ E3 ++ E4) (name_tcn typeconstr_name) = SOME x` - by METIS_TAC [lookup_value_perm_thm, name_distinct] THEN - SRW_TAC [] [], - METIS_TAC [], - METIS_TAC [], - METIS_TAC [idx_bound_value_perm_thm], - METIS_TAC [], - METIS_TAC [], - METIS_TAC [], - METIS_TAC [], - METIS_TAC []]); - -end; - -val teq_value_perm_thm = Q.prove ( -`!E t t'. JTeq E t t' ==> !E1 E2 E3 E4. (E = E1++E2++E4) /\ value_env E2 /\ PERM E2 E3 ==> - JTeq (E1++E3++E4) t t'`, -INDUCT_TAC JTeq_ind [] -[([``"JTeq_refl"``], METIS_TAC [ok_value_perm_thm, ok_ok_thm, JTeq_rules]), - ([``"JTeq_sym"``, ``"JTeq_trans"``], METIS_TAC [JTeq_rules]), - ([``"JTeq_expand"``], - SRW_TAC [] [] THEN ONCE_REWRITE_TAC [JTeq_cases] THEN NTAC 3 DISJ2_TAC THEN DISJ1_TAC THEN - FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN - METIS_TAC [lookup_value_perm_thm, ok_value_perm_thm, name_distinct]), - ([``"JTeq_arrow"``], METIS_TAC [JTeq_rules]), - ([``"JTeq_tuple"``], - SRW_TAC [] [] THEN ONCE_REWRITE_TAC [JTeq_cases] THEN FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN - METIS_TAC []), - ([``"JTeq_constr"``], - SRW_TAC [] [] THEN ONCE_REWRITE_TAC [JTeq_cases] THEN FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN - METIS_TAC [ok_value_perm_thm])]); - - -val uprim_value_perm_thm = Q.prove ( -`!E1 E2 E3 E4 up t. JTuprim (E1++E2++E4) up t /\ value_env E2 /\ PERM E2 E3 ==> - JTuprim (E1++E3++E4) up t`, -SRW_TAC [] [JTuprim_cases] THEN METIS_TAC [ok_value_perm_thm]); - -val bprim_value_perm_thm = Q.prove ( -`!E1 E2 E3 E4 bp t. JTbprim (E1++E2++E4) bp t /\ value_env E2 /\ PERM E2 E3 ==> - JTbprim (E1++E3++E4) bp t`, -SRW_TAC [] [JTbprim_cases] THEN METIS_TAC [ok_value_perm_thm]); - -val inst_value_perm_thm = Q.prove ( -`!E1 E2 E3 E4 t ts. JTinst (E1++E2++E4) t ts /\ value_env E2 /\ PERM E2 E3==> - JTinst (E1++E3++E4) t ts`, -SRW_TAC [] [JTinst_cases, EVERY_MEM] THEN METIS_TAC [ok_value_perm_thm]); - -val inst_named_value_perm_thm = Q.prove ( -`!E1 E2 E3 E4 t tpo ts. JTinst_named (E1++E2++E4) t tpo ts /\ value_env E2 /\ PERM E2 E3 ==> - JTinst_named (E1++E3++E4) t tpo ts`, -SRW_TAC [] [JTinst_named_cases, EVERY_MEM] THEN METIS_TAC [ok_value_perm_thm]); - -val vn_value_perm_thm = Q.prove ( -`!E1 E2 E3 E4 vn t. JTvalue_name (E1++E2++E4) vn t /\ value_env E2 /\ PERM E2 E3 /\ - ALL_DISTINCT (MAP domEB E2) ==> - JTvalue_name (E1++E3++E4) vn t`, -SRW_TAC [] [JTvalue_name_cases] THEN Q.EXISTS_TAC `ts` THEN -SRW_TAC [] [] THEN METIS_TAC [lookup_value_perm_thm, inst_value_perm_thm]); - -val constr_c_value_perm_thm = Q.prove ( -`!E1 E2 E3 E4 c t. JTconstr_c (E1++E2++E4) c t /\ value_env E2 /\ PERM E2 E3 ==> - JTconstr_c (E1++E3++E4) c t`, -SRW_TAC [] [JTconstr_c_cases, EVERY_MEM] THEN -METIS_TAC [ok_value_perm_thm, lookup_value_perm_thm, name_distinct]); - -val const_value_perm_thm = Q.prove ( -`!E1 E2 E3 E4 c t. JTconst (E1++E2++E4) c t /\ value_env E2 /\ PERM E2 E3 ==> - JTconst (E1++E3++E4) c t`, -SRW_TAC [] [JTconst_cases] THEN METIS_TAC [ok_value_perm_thm, constr_c_value_perm_thm]); - -val constr_p_value_perm_thm = Q.prove ( -`!E1 E2 E3 E4 c t t'. JTconstr_p (E1++E2++E4) c t t' /\ value_env E2 /\ PERM E2 E3 ==> - JTconstr_p (E1++E3++E4) c t t'`, -SRW_TAC [] [JTconstr_p_cases] THEN -METIS_TAC [ok_value_perm_thm, lookup_value_perm_thm, inst_named_value_perm_thm, name_distinct]); - -val field_value_perm_thm = Q.prove ( -`!E1 E2 E3 E4 fn t t'. JTfield (E1++E2++E4) fn t t' /\ value_env E2 /\ PERM E2 E3 ==> - JTfield (E1++E3++E4) fn t t'`, -SRW_TAC [] [JTfield_cases] THEN -METIS_TAC [ok_value_perm_thm, lookup_value_perm_thm, inst_named_value_perm_thm, name_distinct]); - -val inst_any_value_perm_thm = Q.prove ( -`!E t t'. JTinst_any E t t' ==> !E1 E2 E3 E4. (E=E1++E2++E4) /\ value_env E2 /\ PERM E2 E3 ==> - JTinst_any (E1++E3++E4) t t'`, -RULE_INDUCT_TAC JTinst_any_ind [JTinst_any_fun, EVERY_MEM] [] THEN -METIS_TAC [ok_value_perm_thm]); - -val pat_value_perm_thm = Q.prove ( -`!S E p t E'. JTpat S E p t E' ==> !E1 E2 E3 E4. (E=E1++E2++E4) /\ value_env E2 /\ PERM E2 E3 ==> - JTpat S (E1++E3++E4) p t E'`, -RULE_INDUCT_TAC JTpat_ind [JTpat_fun, EVERY_MEM] -[([``"JTpat_var"``, ``"JTpat_any"``, ``"JTpat_tuple"``, ``"JTpat_cons"``], - METIS_TAC [ok_value_perm_thm]), - ([``"JTpat_typed"``], SRW_TAC [] [] THEN METIS_TAC [inst_any_value_perm_thm, teq_value_perm_thm]), - ([``"JTpat_constant"``], - METIS_TAC [const_value_perm_thm]), - ([``"JTpat_construct"``, ``"JTpat_construct_any"``], - METIS_TAC [constr_p_value_perm_thm]), - ([``"JTpat_record"``], - METIS_TAC [field_value_perm_thm]), - ([``"JTpat_or"``], - METIS_TAC [])]); - -val value_perm_thm = Q.store_thm ("value_perm_thm", -`(!S E e t. JTe S E e t ==> !E1 E2 E3 E4. (E=E1++E2++E4) /\ value_env E2 /\ PERM E2 E3 /\ - ALL_DISTINCT (MAP domEB E2) ==> - JTe S (E1++E3++E4) e t) /\ - (!S E pm t t'. JTpat_matching S E pm t t' ==> - !E1 E2 E3 E4. (E=E1++E2++E4) /\ value_env E2 /\ PERM E2 E3 /\ ALL_DISTINCT (MAP domEB E2) ==> - JTpat_matching S (E1++E3++E4) pm t t') /\ - (!S E lb E'. JTlet_binding S E lb E' ==> !E1 E2 E3 E4. (E=E1++E2++E4) /\ value_env E2 /\ PERM E2 E3 /\ - ALL_DISTINCT (MAP domEB E2) ==> - JTlet_binding S (E1++E3++E4) lb E') /\ - (!S E lrbs E'. JTletrec_binding S E lrbs E' ==> - !E1 E2 E3 E4. (E=E1++E2++E4) /\ value_env E2 /\ PERM E2 E3 /\ ALL_DISTINCT (MAP domEB E2) ==> - JTletrec_binding S (E1++E3++E4) lrbs E')`, -RULE_INDUCT_TAC JTe_ind [JTe_fun, EVERY_MEM] -[([``"JTe_uprim"``, ``"JTe_bprim"``, ``"JTe_ident"``, ``"JTe_constant"``], - METIS_TAC [uprim_value_perm_thm, bprim_value_perm_thm, vn_value_perm_thm, const_value_perm_thm, - teq_value_perm_thm]), - ([``"JTe_typed"``], SRW_TAC [] [] THEN METIS_TAC [inst_any_value_perm_thm, teq_value_perm_thm]), - ([``"JTe_tuple"``, ``"JTe_apply"``, ``"JTe_match"``, ``"JTe_cons"``, ``"JTe_and"``, ``"JTe_or"``, - ``"JTe_while"``, ``"JTe_function"``, ``"JTe_assert"``], - METIS_TAC [teq_value_perm_thm]), - ([``"JTe_construct"``], - METIS_TAC [constr_p_value_perm_thm, teq_value_perm_thm]), - ([``"JTe_record_constr"``], - SRW_TAC [] [] THEN - MAP_EVERY Q.EXISTS_TAC [`field_name'_list`, `t'_list`, `field_name_e_t_list`] THEN SRW_TAC [] [] THEN - METIS_TAC [field_value_perm_thm, lookup_value_perm_thm, teq_value_perm_thm]), - ([``"JTe_record_with"``, ``"JTe_record_proj"``], - METIS_TAC [field_value_perm_thm, teq_value_perm_thm]), - ([``"JTe_for"``], - METIS_TAC [APPEND, teq_value_perm_thm]), - ([``"JTe_let_mono"``], - METIS_TAC [APPEND_ASSOC]), - ([``"JTe_let_poly"``], - SRW_TAC [] [] THEN DISJ2_TAC THEN Q.EXISTS_TAC `x_t_list` THEN METIS_TAC [APPEND, APPEND_ASSOC]), - ([``"JTe_letrec"``], - METIS_TAC [APPEND, APPEND_ASSOC]), - ([``"JTe_assertfalse"``], - SRW_TAC [] [JTconst_cases] THEN METIS_TAC [ok_value_perm_thm]), - ([``"JTe_location"``], - METIS_TAC [lookup_value_perm_thm, ok_value_perm_thm, teq_value_perm_thm]), - ([``"JTlet_binding_poly"``], - METIS_TAC [pat_value_perm_thm, APPEND_ASSOC]), - ([``"JTpat_matching_pm"``], - SRW_TAC [] [] THEN Q.EXISTS_TAC `pattern_e_E_list` THEN SRW_TAC [] [] THEN METIS_TAC [pat_value_perm_thm]), - ([``"JTletrec_binding_equal_function"``], - SRW_TAC [] [] THEN Q.EXISTS_TAC `value_name_pattern_matching_t_t'_list` THEN SRW_TAC [] [])]); - -val type_def_value_perm_thm = Q.prove ( -`!E td E'. JTtype_definition E td E' ==> !E1 E2 E3 E4. (E = E1++E2++E4) /\ value_env E2 /\ PERM E2 E3 ==> - JTtype_definition (E1++E3++E4) td E'`, -RULE_INDUCT_TAC JTtype_definition_ind [JTtype_definition_rules] [] THEN -SRW_TAC [] [] THEN IMP_RES_TAC JTtype_definition_rules THEN FULL_SIMP_TAC (srw_ss()) [] THEN -`Eok ((E''' ++ E'' ++ E' ++ E1) ++ E2 ++ E4) ==> - Eok ((E''' ++ E'' ++ E' ++ E1) ++ E3 ++ E4)` by METIS_TAC [ok_value_perm_thm] THEN - FULL_SIMP_TAC (srw_ss()) []); - -val def_value_perm_thm = Q.prove ( -`!E d E'. JTdefinition E d E' ==> !E1 E2 E3 E4. (E = E1++E2++E4) /\ value_env E2 /\ PERM E2 E3 /\ - ALL_DISTINCT (MAP domEB E2) ==> - JTdefinition (E1++E3++E4) d E'`, -RULE_INDUCT_TAC JTdefinition_ind [JTdefinition_fun] -[([``"JTdefinition_let_poly"``, ``"JTdefinition_let_mono"``, ``"JTdefinition_letrec"``], - SRW_TAC [] [] THEN METIS_TAC [value_perm_thm, APPEND, APPEND_ASSOC]), - ([``"JTdefinition_typedef"``], - METIS_TAC [type_def_value_perm_thm]), - ([``"JTdefinition_exndef"``], - SRW_TAC [] [JTconstr_decl_cases] THEN METIS_TAC [ok_value_perm_thm])]); - -val defs_value_perm_thm = Q.store_thm ("defs_value_perm_thm", -`!E ds E'. JTdefinitions E ds E' ==> !E1 E2 E3 E4. (E = E1++E2++E4) /\ value_env E2 /\ PERM E2 E3 /\ - ALL_DISTINCT (MAP domEB E2) ==> - JTdefinitions (E1++E3++E4) ds E'`, -RULE_INDUCT_TAC JTdefinitions_ind [JTdefinitions_fun] -[([``"JTdefinitions_empty"``], METIS_TAC [ok_value_perm_thm]), - ([``"JTdefinitions_item"``], - SRW_TAC [] [] THEN Q.EXISTS_TAC `E'` THEN SRW_TAC [] [] THEN METIS_TAC [def_value_perm_thm, APPEND_ASSOC])]); - -val _ = export_theory(); diff --git a/vendors/ott/examples/ocaml_light/hol/environmentScript.sml b/vendors/ott/examples/ocaml_light/hol/environmentScript.sml deleted file mode 100644 index 7f2ae83bd2af..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/environmentScript.sml +++ /dev/null @@ -1,639 +0,0 @@ -open bossLib HolKernel boolLib listTheory rich_listTheory optionTheory combinTheory pairTheory; -open arithmeticTheory; -open ottLib ottTheory caml_typedefTheory; -open utilTheory basicTheory shiftTheory; - -val _ = new_theory "environment"; - -val shiftEB_dom_thm = Q.store_thm ("shiftEB_dom_thm", -`!EB m n. domEB (shiftEB m n EB) = domEB EB`, -Cases THEN SRW_TAC [] [shiftEB_def, domEB_def]); - -val shiftE_dom_thm = Q.store_thm ("shiftE_dom_thm", -`!E m n. MAP domEB (shiftE m n E) = MAP domEB E`, -Induct THEN SRW_TAC [] [shiftE_def] THEN Cases_on `h` THEN -SRW_TAC [] [shiftE_def, shiftEB_def, domEB_def]); - -val idxsubnEB_dom_thm = Q.store_thm ("idxsubnEB_dom_thm", -`!EB x y. domEB (idxsubnEB x y EB) = domEB EB`, -Cases THEN SRW_TAC [] [idxsubnE_def, idxsubnEB_def, domEB_def]); - -val idxsubnE_dom_thm = Q.store_thm ("idxsubnE_dom_thm", -`!E x y. MAP domEB (idxsubnE x y E) = MAP domEB E`, -Induct THEN SRW_TAC [] [idxsubnE_def, idxsubnEB_def] THEN Cases_on `h` THEN -SRW_TAC [] [idxsubnE_def, idxsubnEB_def, domEB_def]); - -val typexpr_has0_def = ottDefine "typexpr_has0" -`(typexpr_has0 (TE_var tv) = F) /\ - (typexpr_has0 (TE_idxvar m n) = (m = 0)) /\ - (typexpr_has0 TE_any = F) /\ - (typexpr_has0 (TE_arrow t1 t2) = (typexpr_has0 t1) \/ (typexpr_has0 t2)) /\ - (typexpr_has0 (TE_tuple tl) = EXISTS typexpr_has0 tl) /\ - (typexpr_has0 (TE_constr tl tc) = EXISTS typexpr_has0 tl)`; - -val shift_has0_lem = Q.prove ( -`(!t. ~(typexpr_has0 (shiftt 0 1 t))) /\ - (!tl. EVERY (\t. ~(typexpr_has0 (shiftt 0 1 t))) tl)`, -Induct THEN SRW_TAC [] [shiftt_def, typexpr_has0_def, o_DEF, EVERY_MAP]); - -val mono_ts_def = Define -`mono_ts (TS_forall t) = ~(typexpr_has0 t)`; - -val store_env_def = Define -`(store_env [] = T) /\ - (store_env (EB_l l t::E) = store_env E) /\ - (store_env _ = F)`; - -val JTstore_env_thm = Q.store_thm ("JTstore_env_thm", -`!E store E'. JTstore E store E' ==> store_env E'`, -HO_MATCH_MP_TAC JTstore_ind THEN SRW_TAC [] [store_env_def]); - -val value_env_def = Define -`(value_env [] = T) /\ - (value_env (EB_vn vn t::E) = value_env E) /\ - (value_env _ = F)`; - -val mono_value_env_def = Define -`(mono_value_env [] = T) /\ - (mono_value_env (EB_vn vn ts::E) = mono_ts ts /\ mono_value_env E) /\ - (mono_value_env _ = F)`; - -val mono_value_env_value_env_thm = Q.prove ( -`!E. mono_value_env E ==> value_env E`, -Induct THEN SRW_TAC [] [mono_value_env_def, value_env_def] THEN Cases_on `h` THEN -FULL_SIMP_TAC list_ss [mono_value_env_def, value_env_def]); - -val value_env_mem = Q.store_thm ("value_env_mem", -`!E. value_env E = !EB. MEM EB E ==> ?vn t. (EB = EB_vn vn t)`, -recInduct (fetch "-" "value_env_ind") THEN SRW_TAC [] [value_env_def] THENL -[METIS_TAC [], - Q.EXISTS_TAC `EB_l v24 v25`, - Q.EXISTS_TAC `EB_ta v21 v22 v23`, - Q.EXISTS_TAC `EB_tr v18 v19 v20`, - Q.EXISTS_TAC `EB_td v16 v17`, - Q.EXISTS_TAC `EB_fn v12 v13 v14 v15`, - Q.EXISTS_TAC `EB_pc v8 v9 v10 v11`, - Q.EXISTS_TAC `EB_cc v6 v7`, - Q.EXISTS_TAC `EB_tv`] THEN SRW_TAC [] []); - -val mono_value_env_mem = Q.store_thm ("mono_value_env_mem", -`!E. mono_value_env E = !EB. MEM EB E ==> (?vn t. (EB = EB_vn vn t) /\ mono_ts t)`, -recInduct (fetch "-" "mono_value_env_ind") THEN SRW_TAC [] [mono_value_env_def] THENL -[METIS_TAC [environment_binding_11], - Q.EXISTS_TAC `EB_l v24 v25`, - Q.EXISTS_TAC `EB_ta v21 v22 v23`, - Q.EXISTS_TAC `EB_tr v18 v19 v20`, - Q.EXISTS_TAC `EB_td v16 v17`, - Q.EXISTS_TAC `EB_fn v12 v13 v14 v15`, - Q.EXISTS_TAC `EB_pc v8 v9 v10 v11`, - Q.EXISTS_TAC `EB_cc v6 v7`, - Q.EXISTS_TAC `EB_tv`] THEN SRW_TAC [] []); - -val store_env_lookup_lem = Q.store_thm ("store_env_lookup_lem", -`!E. store_env E ==> - (!x. lookup E (name_tcn x) = NONE) /\ - (!x. lookup E (name_cn x) = NONE) /\ - (!x. lookup E (name_fn x) = NONE) /\ - (!x. lookup E (name_vn x) = NONE) /\ - (!x. lookup E name_tv = NONE)`, -HO_MATCH_MP_TAC Eok2_ind THEN SRW_TAC [] [lookup_def, store_env_def, domEB_def]); - -val value_env_lookup_lem = Q.store_thm ("value_env_lookup_lem", -`!E. value_env E ==> - (!x. lookup E (name_tcn x) = NONE) /\ - (!x. lookup E (name_cn x) = NONE) /\ - (!x. lookup E (name_fn x) = NONE) /\ - (!x. lookup E (name_l x) = NONE) /\ - (!x. lookup E name_tv = NONE)`, -HO_MATCH_MP_TAC Eok2_ind THEN SRW_TAC [] [lookup_def, value_env_def, domEB_def]); - -val value_env_num_tv_thm = Q.store_thm ("value_env_num_tv_thm", -`!E. value_env E \/ store_env E ==> (num_tv E = 0)`, -Induct THEN SRW_TAC [] [value_env_def, store_env_def, num_tv_def] THEN Cases_on `h` THEN -FULL_SIMP_TAC list_ss [value_env_def, store_env_def, num_tv_def]); - -val value_env_map_thm = Q.store_thm ("value_env_map_thm", -`!l f g. value_env (MAP (\z. EB_vn (f z) (g z)) l)`, -Induct THEN SRW_TAC [] [value_env_def]); - -val value_env_append_thm = Q.store_thm ("value_env_append_thm", -`!E1 E2. value_env (E1++E2) = value_env E1 /\ value_env E2`, -Induct THEN SRW_TAC [] [value_env_def] THEN Cases_on `h` THEN SRW_TAC [] [value_env_def]); - -val value_env_perm_thm = Q.store_thm ("value_env_perm_thm", -`!E E'. PERM E E' ==> value_env E ==> value_env E'`, -HO_MATCH_MP_TAC sortingTheory.PERM_IND THEN SRW_TAC [] [value_env_def] THEN -Cases_on `x` THEN FULL_SIMP_TAC (srw_ss()) [value_env_def] THEN -Cases_on `y` THEN FULL_SIMP_TAC (srw_ss()) [value_env_def]); - -val pat_env_lem = Q.prove ( -`!Tsig E pat t E'. JTpat Tsig E pat t E' ==> mono_value_env E'`, -RULE_INDUCT_TAC JTpat_ind [mono_value_env_mem, domEB_def, mono_ts_def, shift_has0_lem] [] THEN -FULL_SIMP_TAC list_ss [MEM_FLAT, SOME_EL_REVERSE, EXISTS_MAP, ELIM_UNCURRY, EVERY_MEM, EXISTS_MEM] THEN -SRW_TAC [] [mono_ts_def, shift_has0_lem] THEN -METIS_TAC []); - -val pat_env_lem = Q.store_thm ("pat_env_lem", -`!Tsig E pat t E'. JTpat Tsig E pat t E' ==> mono_value_env E' /\ value_env E'`, -METIS_TAC [pat_env_lem, mono_value_env_value_env_thm]); - - -val closed_env_def = Define -`closed_env E = !name vn t. ~(lookup E name = SOME (EB_vn vn t))`; - -val closed_env_lem = Q.store_thm ("closed_env_lem", -`!E vp t. closed_env E ==> ~JTvalue_name E vp t`, -SRW_TAC [] [closed_env_def, JTvalue_name_cases]); - -val closed_env_tv_lem = Q.store_thm ("closed_env_tv_lem", -`!E. closed_env E ==> closed_env (EB_tv::E)`, -SRW_TAC [] [closed_env_def, lookup_def, domEB_def, COND_EXPAND_EQ] THEN DISJ2_TAC THEN Cases THEN - SRW_TAC [] [shiftEB_def]); - -val closed_env_append_thm = Q.store_thm ("closed_env_append_thm", -`!E1 E2. closed_env E1 /\ closed_env E2 ==> closed_env (E1++E2)`, -SRW_TAC [] [closed_env_def, lookup_append_thm] THEN Cases_on `lookup E1 name` THEN SRW_TAC [] [] THENL -[Cases_on `EB` THEN SRW_TAC [] [shiftEB_def], -METIS_TAC []]); - -val store_env_closed_thm = Q.store_thm ("store_env_closed_thm", -`!E. store_env E ==> closed_env E`, -Induct THEN SRW_TAC [] [store_env_def, closed_env_def, lookup_def, COND_EXPAND_EQ] THEN -Cases_on `h` THEN FULL_SIMP_TAC list_ss [domEB_def, store_env_def] THEN SRW_TAC [] [shiftEB_add_thm] THEN -METIS_TAC [closed_env_def]); - -val EB_vn_list_thm = Q.store_thm ("EB_vn_list_thm", -`!x_t_list x_t_list'. (MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) x_t_list = - MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) x_t_list') = - (x_t_list = x_t_list')`, -Induct THEN SRW_TAC [] [] THEN Cases_on `x_t_list'` THEN FULL_SIMP_TAC list_ss [] THEN -Cases_on `h` THEN Cases_on `h'` THEN SRW_TAC [] [shiftt_11]); - -val aux_xs_pattern_of_pattern_thm = Q.store_thm ("aux_xs_pattern_of_pattern_thm", -`!S E p t E'. JTpat S E p t E' ==> (MAP name_vn (aux_xs_pattern_of_pattern p) = MAP domEB (REVERSE E'))`, -RULE_INDUCT_TAC JTpat_ind [aux_xs_pattern_of_pattern_def, JTpat_fun, domEB_def, ELIM_UNCURRY, MAP_MAP, - MAP_FLAT, MAP_REVERSE, FLAT_REVERSE, REVERSE_APPEND] -[([``"JTpat_construct"``], - SRW_TAC [] [] THEN POP_ASSUM (K ALL_TAC) THEN POP_ASSUM MP_TAC THEN POP_ASSUM (K ALL_TAC) THEN - Induct_on `pattern_E_t_list` THEN SRW_TAC [] []), - ([``"JTpat_tuple"``], - SRW_TAC [] [] THEN NTAC 2 (POP_ASSUM (K ALL_TAC)) THEN POP_ASSUM MP_TAC THEN - Induct_on `pattern_t_E_list` THEN SRW_TAC [] []), - ([``"JTpat_record"``], - SRW_TAC [] [] THEN NTAC 3 (POP_ASSUM (K ALL_TAC)) THEN POP_ASSUM MP_TAC THEN - Induct_on `field_name_pattern_E_t_list` THEN SRW_TAC [] [])]); - -val aux_xs_letrec_bindings_of_letrec_bindings_thm = -Q.store_thm ("aux_xs_letrec_bindings_of_letrec_bindings_thm", -`!S E lrbs E'. JTletrec_binding S E lrbs E' ==> - (MAP name_vn (aux_xs_letrec_bindings_of_letrec_bindings lrbs) = MAP domEB (REVERSE E'))`, -Cases_on `lrbs` THEN SRW_TAC [] [JTe_fun, aux_xs_letrec_bindings_of_letrec_bindings_def] THEN -SRW_TAC [] [REVERSE_REVERSE, MAP_MAP, domEB_def, aux_xs_letrec_binding_of_letrec_binding_def] THEN -REPEAT (POP_ASSUM (K ALL_TAC)) THEN Induct_on `value_name_pattern_matching_t_t'_list` THEN -SRW_TAC [] []); - -val env_fv_thm = Q.store_thm ("env_fv_thm", -`(!S E e t. JTe S E e t ==> (!x. MEM x (fv_expr e) ==> MEM (name_vn x) (MAP domEB E))) /\ - (!S E pm t t'. JTpat_matching S E pm t t' ==> - (!x. MEM x (fv_pattern_matching pm) ==> MEM (name_vn x) (MAP domEB E))) /\ - (!S E lb E'. JTlet_binding S E lb E' ==> - (!x. MEM x (fv_let_binding lb) ==> MEM (name_vn x) (MAP domEB E))) /\ - (!S E lrbs E'. JTletrec_binding S E lrbs E' ==> - (!x. MEM x (list_minus (fv_letrec_bindings lrbs) - (aux_xs_letrec_bindings_of_letrec_bindings lrbs)) ==> - MEM (name_vn x) (MAP domEB E)))`, -RULE_INDUCT_TAC JTe_sind [JTe_fun, fv_letrec_binding_def, domEB_def, list_minus_thm] -[([``"JTe_ident"``], FULL_SIMP_TAC list_ss [JTvalue_name_cases] THEN METIS_TAC [lookup_dom_thm]), - ([``"JTe_tuple"``, ``"JTe_construct"``, ``"JTe_record_constr"``, ``"JTe_record_with"``], - FULL_SIMP_TAC list_ss [MEM_FLAT, EVERY_MEM, EXISTS_MEM, MEM_MAP, LAMBDA_PROD2] THEN - METIS_TAC [FST, SND]), - ([``"JTe_for"``], METIS_TAC []), - ([``"JTe_let_mono"``, ``"JTe_let_poly"``], - SRW_TAC [] [] THENL - [FULL_SIMP_TAC list_ss [MEM_MAP, MEM_REVERSE, aux_xs_let_binding_of_let_binding_def, REVERSE_REVERSE, - MAP_MAP, domEB_def, REVERSE_EQ, EB_vn_list_thm] THEN - RES_TAC THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [domEB_def, name_11] THEN - SRW_TAC [] [] THEN METIS_TAC [], - IMP_RES_TAC aux_xs_pattern_of_pattern_thm THEN - FULL_SIMP_TAC list_ss [MEM_MAP, MEM_REVERSE, aux_xs_let_binding_of_let_binding_def, - REVERSE_REVERSE, MAP_MAP, domEB_def, REVERSE_EQ, - EB_vn_list_thm] THEN - RES_TAC THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [domEB_def, name_11] THEN - SRW_TAC [] [] THENL [ALL_TAC, METIS_TAC []] THEN - `MEM (name_vn (FST z)) (MAP (\z. name_vn (FST z)) x_t_list)` - by (SRW_TAC [] [MEM_MAP] THEN METIS_TAC []) THEN - `MEM (name_vn (FST z)) (MAP name_vn (aux_xs_pattern_of_pattern pat))` by METIS_TAC [] THEN - FULL_SIMP_TAC list_ss [MEM_MAP, name_11]]), - ([``"JTe_letrec"``], - SRW_TAC [] [] THENL - [FULL_SIMP_TAC list_ss [MEM_MAP, MEM_REVERSE] THEN - RES_TAC THEN FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THEN - FULL_SIMP_TAC list_ss [domEB_def, name_distinct] THEN METIS_TAC [], - IMP_RES_TAC aux_xs_letrec_bindings_of_letrec_bindings_thm THEN - FULL_SIMP_TAC list_ss [MEM_MAP, MEM_REVERSE, MAP_MAP, domEB_def] THEN - RES_TAC THEN FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THEN - FULL_SIMP_TAC list_ss [domEB_def, name_distinct, name_11] THENL - [ALL_TAC, METIS_TAC []] THEN - SRW_TAC [] [] THEN - `MEM (name_vn (FST z)) (MAP (\z. name_vn (FST z)) x_t_list)` - by (SRW_TAC [] [MEM_MAP] THEN METIS_TAC []) THEN - `MEM (name_vn (FST z)) (MAP name_vn (aux_xs_letrec_bindings_of_letrec_bindings lrbs))` - by METIS_TAC [] THEN - FULL_SIMP_TAC list_ss [MEM_MAP, name_11]]), - ([``"JTpat_matching_pm"``], - FULL_SIMP_TAC list_ss [MEM_FLAT, MEM_MAP, EVERY_MEM, EXISTS_MEM] THEN - SRW_TAC [] [] THEN - FULL_SIMP_TAC list_ss [fv_letrec_binding_def, list_minus_thm] THEN RES_TAC THENL - [IMP_RES_TAC aux_xs_pattern_of_pattern_thm THEN - `MEM (domEB y) (MAP domEB (REVERSE (SND (SND z))))` by METIS_TAC [MEM_REVERSE, MEM_MAP] THEN - METIS_TAC [MEM_MAP, name_11], - METIS_TAC []]), - ([``"JTletrec_binding_equal_function"``], - FULL_SIMP_TAC list_ss [aux_xs_letrec_bindings_of_letrec_bindings_def, MAP_MAP, - fv_letrec_binding_def, aux_xs_letrec_binding_of_letrec_binding_def, - MEM_FLAT, MEM_MAP, EVERY_MEM, EXISTS_MEM] THEN - SRW_TAC [] [] THEN - FULL_SIMP_TAC list_ss [fv_letrec_binding_def] THEN METIS_TAC [MEM, domEB_def, name_11])] -THEN -SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss []); - - -val closed_env_fv_thm = Q.store_thm ("closed_env_fv_thm", -`!S E e t. closed_env E /\ JTe S E e t ==> (fv_expr e = [])`, -METIS_TAC [closed_env_def, env_fv_thm, lookup_name_thm, lookup_dom_thm, NOT_MEM_EMPTY]); - -val EBok_def = Define -`(EBok E EB_tv = T) /\ - (EBok E (EB_vn vn ts) = tsok E ts) /\ - (EBok E (EB_cc cn TC_exn) = T) /\ - (EBok E (EB_cc cn (TC_name tcn)) = - ?kind. lookup E (name_tcn tcn) = SOME (EB_td tcn kind)) /\ - (EBok E (EB_cc cn _) = F) /\ - (EBok E (EB_pc cn (TPS_nary vars) (typexprs_inj t_list) TC_exn) = - LENGTH t_list >= 1 /\ EVERY (tkind E) t_list /\ (vars = [])) /\ - (EBok E (EB_pc cn (TPS_nary vars) (typexprs_inj t_list) (TC_name tcn)) = - EVERY (\t. ntsok E vars t) t_list /\ - (lookup E (name_tcn tcn) = SOME (EB_td tcn (LENGTH vars))) /\ - LENGTH t_list >= 1) /\ - (EBok E (EB_pc constr_name params (typexprs_inj t_list) tc) = F) /\ - (EBok E (EB_fn field_name (TPS_nary vars) tcn t) = - ntsok E vars t /\ - ?field_name_list. (lookup E (name_tcn tcn) = - SOME (EB_tr tcn (LENGTH vars) field_name_list)) /\ - MEM field_name field_name_list) /\ - (EBok E (EB_td tcn kind) = T) /\ - (EBok E (EB_ta (TPS_nary tps) tcn t) = ntsok E tps t) /\ - (EBok E (EB_tr tcn kind field_name_list) = - ALL_DISTINCT (MAP name_fn field_name_list)) /\ - (EBok E (EB_l location t) = tkind E t)`; - - -val EBok_ind = fetch "-" "EBok_ind"; - - -val remove_vn_tv_def = Define -`remove_vn_tv = FILTER (\n. case n of name_vn vn -> F || name_tv -> F || x -> T)`; - -val remove_vn_tv_thm = Q.store_thm ("remove_vn_tv_thm", -`!l name. (!vn. ~(name = name_vn vn)) /\ ~(name = name_tv) ==> (MEM name (remove_vn_tv l) = MEM name l)`, -Induct THEN SRW_TAC [] [remove_vn_tv_def, MEM_FILTER] THEN Cases_on `h` THEN -FULL_SIMP_TAC list_ss [name_case_def] THEN Cases_on `name` THEN SRW_TAC [] []); - -val remove_vn_tv_APPEND = Q.store_thm ("remove_vn_tv_APPEND", -`!l1 l2. remove_vn_tv (l1++l2) = remove_vn_tv l1 ++ remove_vn_tv l2`, -Induct THEN SRW_TAC [] [FILTER_APPEND, remove_vn_tv_def]); - -val Eok_suffixes_def = Define -`Eok_suffixes E = !E1 E2. (E = E1++E2) ==> Eok E2`; - -val ok_lem1 = Q.prove ( -`(!E. Eok E ==> Eok_suffixes E) /\ - (!E tc k. (typeconstr_kind E tc = SOME k) ==> Eok_suffixes E) /\ - (!E ts. tsok E ts ==> Eok_suffixes E) /\ - (!E tps t. ntsok E tps t ==> Eok_suffixes E) /\ - (!E t. tkind E t ==> Eok_suffixes E)`, -HO_MATCH_MP_TAC Eok_ind THEN SRW_TAC [] [Eok_suffixes_def, Eok_def] THEN - FULL_SIMP_TAC list_ss [] THEN - Cases_on `E1` THEN FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [Eok_def] THEN - TRY (Cases_on `t_list`) THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN - METIS_TAC [APPEND]); - -val ok_ok_thm = Q.store_thm ("ok_ok_thm", -`(!E1 E2. Eok (E1++E2) ==> Eok E2) /\ - (!E tc k. (typeconstr_kind E tc = SOME k) ==> Eok E) /\ - (!E ts. tsok E ts ==> Eok E) /\ - (!E tps t. ntsok E tps t ==> Eok E) /\ - (!E t k. tkind E t ==> Eok E)`, -METIS_TAC [Eok_suffixes_def, APPEND, ok_lem1]); - -val Eok_dom_thm = Q.store_thm ("Eok_dom_thm", -`!E. Eok E ==> ALL_DISTINCT (remove_vn_tv (MAP domEB E))`, -HO_MATCH_MP_TAC Eok2_ind THEN SRW_TAC [] [remove_vn_tv_def, Eok_def] THEN -FULL_SIMP_TAC list_ss [domEB_def, name_case_def, Eok_def, MEM_FILTER] THEN TRY (Cases_on `t_list`) THEN -TRY (Cases_on `tps`) THEN FULL_SIMP_TAC list_ss [Eok_def] THEN METIS_TAC [ok_ok_thm, APPEND]); - -local -val lem1 = SIMP_RULE list_ss [] (Q.SPECL [`EB`, `n`, `0`, `1`] shiftEB_com_lem); -in - -val weak_one_tv_lookup_thm = Q.store_thm ("weak_one_tv_lookup_thm", -`!E1 E2 name EB. - ((lookup (E1++E2) name = SOME EB) ==> - (lookup (shiftE 0 1 E1++[EB_tv]++E2) name = SOME (shiftEB (num_tv E1) 1 EB)))`, -Induct THEN SRW_TAC [] [lookup_def, shiftE_def, domEB_def, shiftEB_dom_thm, num_tv_def] - THENL -[IMP_RES_TAC lookup_name_thm THEN SRW_TAC [] [shiftEB_def], - Cases_on `EB` THEN FULL_SIMP_TAC list_ss [domEB_def, name_11, name_distinct] THEN SRW_TAC [] [shiftEB_def], - Cases_on `EB` THEN FULL_SIMP_TAC list_ss [domEB_def, name_11, name_distinct] THEN - SRW_TAC [] [shiftEB_def, num_tv_def], - Cases_on `h` THEN FULL_SIMP_TAC list_ss [domEB_def, name_11, name_distinct, num_tv_def] THEN - Q.EXISTS_TAC `shiftEB (num_tv E1) 1 EB2` THEN SRW_TAC [] [lem1], - Q.EXISTS_TAC `shiftEB (num_tv E1) 1 EB2` THEN SRW_TAC [] [shiftEB_add_thm] THEN - Cases_on `h` THEN FULL_SIMP_TAC list_ss [domEB_def, name_11, name_distinct, num_tv_def]]); - -end; - -val weak_one_tv_idx_bound_thm = Q.prove ( -`!E1 E2 idx. idx_bound (E1 ++ E2) idx ==> - ((idx < num_tv E1) ==> idx_bound (shiftE 0 1 E1 ++ [EB_tv] ++ E2) idx) /\ - (~(idx < num_tv E1) ==> idx_bound (shiftE 0 1 E1 ++ [EB_tv] ++ E2) (idx + 1))`, -Induct THEN SRW_TAC [] [idx_bound_def, num_tv_def, shiftE_def, GSYM ADD1] THEN -Cases_on `h` THEN SRW_TAC [] [shiftEB_def] THEN FULL_SIMP_TAC list_ss [idx_bound_def, num_tv_def, ADD1] THEN -Cases_on `idx` THEN FULL_SIMP_TAC list_ss [idx_bound_def, num_tv_def, ADD1]); - -val weak_one_tv_ok_thm = Q.store_thm ("weak_one_tv_ok_thm", -`(!E1 E2. Eok (E1++E2) ==> Eok (shiftE 0 1 E1++[EB_tv]++E2)) /\ - (!E1 tc E2 k. (typeconstr_kind (E1++E2) tc = SOME k) ==> - (typeconstr_kind (shiftE 0 1 E1++[EB_tv]++E2) tc = SOME k)) /\ - (!E1 ts E2. tsok (E1++E2) ts ==> tsok (shiftE 0 1 E1++[EB_tv]++E2) (shiftts (num_tv E1) 1 ts)) /\ - (!E1 tpo t E2. ntsok (E1++E2) tpo t ==> ntsok (shiftE 0 1 E1++[EB_tv]++E2) tpo (shiftt (num_tv E1) 1 t)) /\ - (!E1 t k E2. (tkind (E1++E2) t ==> tkind (shiftE 0 1 E1++[EB_tv]++E2) (shiftt (num_tv E1) 1 t)))`, -INDUCT_TAC Eok_ind [Eok_def, shiftE_def, shiftEB_def, domEB_def, shiftE_dom_thm, num_tv_def, shiftts_def] -[] THEN -SRW_TAC [] [COND_EXPAND_EQ] THEN IMP_RES_TAC weak_one_tv_lookup_thm THEN -SRW_TAC [] [shiftEB_def, shifttes_def, Eok_def, EVERY_MAP, shiftt_def] THEN -FULL_SIMP_TAC list_ss [EVERY_MEM, shiftE_dom_thm, domEB_def] THEN SRW_TAC [] [weak_one_tv_idx_bound_thm] -THENL -[METIS_TAC [], - METIS_TAC [], - METIS_TAC [], - Cases_on `lookup (E1 ++ E2) (name_tcn typeconstr_name)` THEN FULL_SIMP_TAC list_ss [] THEN - Cases_on `x` THEN FULL_SIMP_TAC list_ss [environment_binding_case_def] THEN - IMP_RES_TAC weak_one_tv_lookup_thm THEN SRW_TAC [] [shiftEB_def], - RES_TAC THEN FULL_SIMP_TAC list_ss [subst_shiftt_com_lem, MAP_MAP, shiftt_def]]); - -val weak_one_tv_EBok_thm = Q.store_thm ("weak_one_tv_EBok_thm", -`!EB E1 E2. EBok (E1++E2) EB ==> EBok (shiftE 0 1 E1++[EB_tv]++E2) (shiftEB (num_tv E1) 1 EB)`, -Cases THEN SRW_TAC [] [EBok_def, shiftEB_def, weak_one_tv_ok_thm] THENL -[Cases_on `t`, - Cases_on `t` THEN Cases_on `t0` THEN Cases_on `t1`, - Cases_on `t`, - Cases_on `t`] THEN -FULL_SIMP_TAC list_ss [EBok_def, shifttes_def, weak_one_tv_ok_thm, EVERY_MAP, EVERY_MEM] THEN -SRW_TAC [] [] THEN -METIS_TAC [weak_one_tv_lookup_thm, shiftEB_def]); - -val weak_lookup_thm = Q.store_thm ("weak_lookup_thm", -`!E1 E2 name EB1 E3. - ((lookup (E1++E2) name = SOME EB1) /\ ~MEM EB_tv E3 /\ - (MEM name (MAP domEB E1) \/ ~MEM name (MAP domEB E3)) ==> - (lookup (E1++E3++E2) name = SOME EB1))`, -Induct THEN SRW_TAC [] [lookup_def, domEB_def, shiftEB_add_thm] THEN -FULL_SIMP_TAC list_ss [lookup_dom_thm] THENL -[FULL_SIMP_TAC list_ss [domEB_def, name_distinct, lookup_append_thm, no_num_tv_thm, shiftEB_add_thm], - METIS_TAC [], - METIS_TAC []]); - -val weak_idx_bound_thm = Q.prove ( -`!E1 E2 idx E3. idx_bound (E1++E2) idx /\ ~MEM EB_tv E3 ==> idx_bound (E1++E3++E2) idx`, -Induct THEN SRW_TAC [] [idx_bound_def] THENL -[Induct_on `E3` THEN SRW_TAC [] [idx_bound_def] THEN Cases_on `h` THEN Cases_on `idx` THEN - FULL_SIMP_TAC (srw_ss()) [idx_bound_def], - Cases_on `h` THEN FULL_SIMP_TAC list_ss [idx_bound_def] THEN - Cases_on `idx` THEN FULL_SIMP_TAC list_ss [idx_bound_def]]); - -val weak_helper_lem1 = Q.store_thm ("weak_helper_lem1", -`(!t. remove_vn_tv [name_tcn t] = [name_tcn t]) /\ - (!cn. remove_vn_tv [name_cn cn] = [name_cn cn]) /\ - (!fn. remove_vn_tv [name_fn fn] = [name_fn fn]) /\ - (!l. remove_vn_tv [name_l l] = [name_l l])`, -SRW_TAC [] [remove_vn_tv_def]); - -val weak_helper_lem2 = Q.store_thm ("weak_helper_lem2", -`!E1 E3 E2 n. Eok (E1++E3++E2) /\ MEM n (MAP domEB (E1++E2)) /\ - ((?tcn. n = name_tcn tcn) \/ (?fn. n = name_fn fn) \/ (?cn. n = name_cn cn) \/ - (?l. n = name_l l)) ==> - (MEM n (MAP domEB E1) \/ ~MEM n (MAP domEB E3))`, -SRW_TAC [] [] THEN IMP_RES_TAC Eok_dom_thm THEN FULL_SIMP_TAC list_ss [remove_vn_tv_APPEND] THEN -SRW_TAC [] [Q.prove (`a \/ ~b = b ==> a`, METIS_TAC [])] THEN -FULL_SIMP_TAC (srw_ss()) [domEB_def, ALL_DISTINCT_APPEND, DISJOINT_APPEND, DISJOINT_MEM, EVERY_MEM] THEN -METIS_TAC [remove_vn_tv_thm, name_distinct]); - -val weak_helper_lem3 = Q.store_thm ("weak_helper_lem3", -`!E1 E2 name EB. (lookup (E1++E2) name = SOME EB) ==> MEM name (MAP domEB (E1++E2))`, -METIS_TAC [lookup_dom_thm]); - -val weak_ok_thm = Q.store_thm ("weak_ok_thm", -`(!E:environment. T) /\ - (!E1 tc k E2 E3. (typeconstr_kind (E1++E2) tc = SOME k) /\ ~MEM EB_tv E3 /\ Eok (E1++E3++E2) ==> - (typeconstr_kind (E1++E3++E2) tc = SOME k)) /\ - (!E1 ts E2 E3. tsok (E1++E2) ts /\ ~MEM EB_tv E3 /\ Eok (E1++E3++E2) ==> tsok (E1++E3++E2) ts) /\ - (!E1 tps t E2 E3. ntsok (E1++E2) tps t /\ ~MEM EB_tv E3 /\ Eok (E1++E3++E2) ==> - ntsok (E1++E3++E2) tps t) /\ - (!E1 t E2 E3. tkind (E1++E2) t /\ ~MEM EB_tv E3 /\ Eok (E1++E3++E2) ==> tkind (E1++E3++E2) t)`, -HO_MATCH_MP_TAC Eok_ind THEN SRW_TAC [] [Eok_def, EVERY_MEM, COND_EXPAND_EQ, weak_idx_bound_thm] THEN -Cases_on `lookup (E1 ++ E2) (name_tcn typeconstr_name)` THEN FULL_SIMP_TAC list_ss [option_case_def] THEN -IMP_RES_TAC lookup_name_thm THEN SRW_TAC [] [] THEN -FULL_SIMP_TAC (srw_ss()) [] THEN -IMP_RES_TAC weak_helper_lem3 THEN IMP_RES_TAC weak_helper_lem2 THEN SRW_TAC [] [] THEN -IMP_RES_TAC weak_lookup_thm THEN SRW_TAC [] []); - -val weak_EBok_thm = Q.store_thm ("weak_EBok_thm", -`!EB1 E3 E1 E2. EBok (E1++E2) EB1 /\ ~MEM EB_tv E3 /\ Eok (E1++E3++E2) ==> EBok (E1++E3++E2) EB1`, -Cases THEN SRW_TAC [] [EBok_def, weak_ok_thm] THENL -[Cases_on `t`, - Cases_on `t` THEN Cases_on `t0` THEN Cases_on `t1`, - Cases_on `t`, - Cases_on `t`] THEN -FULL_SIMP_TAC list_ss [EBok_def, weak_ok_thm, EVERY_MAP, EVERY_MEM] THEN -IMP_RES_TAC weak_helper_lem3 THEN IMP_RES_TAC weak_helper_lem2 THEN SRW_TAC [] [] THEN -IMP_RES_TAC weak_lookup_thm THEN SRW_TAC [] []); - -val tkind_weak_thm = Q.store_thm ("tkind_weak_thm", -`!E1 E2 t. tkind E2 t /\ Eok (E1++E2) ==> tkind (E1++E2) (shiftt 0 (num_tv E1) t)`, -Induct THEN SRW_TAC [] [num_tv_def, shiftt_add_thm] THEN Cases_on `h = EB_tv` THEN -FULL_SIMP_TAC list_ss [num_tv_def, Eok_def] THENL -[RES_TAC THEN - IMP_RES_TAC ((SIMP_RULE list_ss [] o Q.SPECL [`[]`] o hd o tl o tl o tl o tl o CONJUNCTS) - weak_one_tv_ok_thm) THEN - FULL_SIMP_TAC list_ss [num_tv_def, shiftE_def, GSYM shiftt_add_thm], - `Eok (E1++E2)` by METIS_TAC [ok_ok_thm, APPEND] THEN - `num_tv (h::E1) = num_tv E1` by (Cases_on `h` THEN SRW_TAC [] [num_tv_def]) THEN - SRW_TAC [] [] THEN METIS_TAC [weak_ok_thm, APPEND, APPEND_ASSOC, MEM]]); - -val is_tc_EB_def = Define -`(is_tc_EB (EB_ta _ _ _) = T) /\ - (is_tc_EB (EB_td _ _) = T) /\ - (is_tc_EB (EB_tr _ _ _) = T) /\ - (is_tc_EB EB_tv = T) /\ - (is_tc_EB _ = F)`; - -val is_tc_num_tv_thm = Q.prove ( -`!E. ~EXISTS is_tc_EB E ==> (num_tv E = 0)`, -Induct THEN SRW_TAC [] [num_tv_def, is_tc_EB_def] THEN Cases_on `h` THEN -FULL_SIMP_TAC (srw_ss()) [num_tv_def, is_tc_EB_def]); - -val lookup_str_lem = Q.prove ( -`!E. ~EXISTS is_tc_EB E ==> !tcn. lookup E (name_tcn tcn) = NONE`, -Induct THEN SRW_TAC [] [lookup_def] THEN Cases_on `h` THEN -FULL_SIMP_TAC (srw_ss()) [is_tc_EB_def, lookup_def, domEB_def]); - -val lookup_str_thm = Q.store_thm ("lookup_str_thm", -`!E1 E2 E3. ~EXISTS is_tc_EB E2 ==> (!x. lookup (E1++E2++E3) (name_tcn x) = lookup (E1++E3) (name_tcn x))`, -HO_MATCH_MP_TAC Eok2_ind THEN -SRW_TAC [] [lookup_def, lookup_append_thm, domEB_def, num_tv_def, is_tc_num_tv_thm, - num_tv_append_thm, lookup_str_lem, - Q.prove (`!x. (case x of NONE -> NONE || SOME EB -> SOME EB) = x`, - Cases THEN SRW_TAC [] [])]); - -val idx_bound_str_thm = Q.prove ( -`!E1 E2 E3 idx. ~EXISTS is_tc_EB E2 ==> (idx_bound (E1++E2++E3) idx = idx_bound (E1++E3) idx)`, -Induct THEN SRW_TAC [] [] THENL -[Induct_on `E2` THEN FULL_SIMP_TAC (srw_ss()) [] THEN Cases_on `h` THEN - FULL_SIMP_TAC (srw_ss()) [is_tc_EB_def, idx_bound_def], - Cases_on `h` THEN FULL_SIMP_TAC (srw_ss()) [idx_bound_def] THEN - Cases_on `idx` THEN FULL_SIMP_TAC (srw_ss()) [idx_bound_def]]); - -local - -val SPLIT_CASES = -Cases_on `E1` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [Eok_def] THEN -Cases_on `E2` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [Eok_def] THEN -Cases_on `E3` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [Eok_def] THEN -FULL_SIMP_TAC (srw_ss()) [is_tc_EB_def]; - -val lem1 = Q.prove ( -`!E1 EB E3. ~is_tc_EB EB ==> (!x. lookup (E1++EB::E3) (name_tcn x) = lookup (E1++E3) (name_tcn x))`, -METIS_TAC [lookup_str_thm, EXISTS_DEF, APPEND, APPEND_NIL, APPEND_ASSOC]); - -in - -val ok_str_thm = Q.store_thm ("ok_str_thm", -`(!E. Eok E ==> !E1 E2 E3. (E = E1 ++ E2 ++ E3) ==> ~EXISTS is_tc_EB E2 ==> Eok (E1++E3)) /\ - (!E tc k. (typeconstr_kind E tc = SOME k) ==> - !E1 E2 E3. (E = E1 ++ E2 ++ E3) ==> ~EXISTS is_tc_EB E2 ==> - (typeconstr_kind (E1++E3) tc = SOME k)) /\ - (!E ts. tsok E ts ==> - !E1 E2 E3. (E = E1 ++ E2 ++ E3) ==> ~EXISTS is_tc_EB E2 ==> tsok (E1++E3) ts) /\ - (!E tpo ts. ntsok E tpo ts ==> - !E1 E2 E3. (E = E1 ++ E2 ++ E3) ==> ~EXISTS is_tc_EB E2 ==> ntsok (E1++E3) tpo ts) /\ - (!E t. tkind E t ==> - !E1 E2 E3. (E = E1 ++ E2 ++ E3) ==> ~EXISTS is_tc_EB E2 ==> tkind (E1++E3) t)`, -HO_MATCH_MP_TAC Eok_ind THEN SRW_TAC [] [Eok_def] THEN FULL_SIMP_TAC (srw_ss()) [] THENL -[SPLIT_CASES THEN METIS_TAC [ok_ok_thm], - SPLIT_CASES THEN METIS_TAC [ok_ok_thm], - SPLIT_CASES THEN METIS_TAC [ok_ok_thm], - SPLIT_CASES THEN - METIS_TAC [ok_ok_thm, lookup_str_thm, NOT_EXISTS, APPEND_ASSOC, APPEND, EVERY_DEF, EXISTS_DEF, - APPEND_NIL, MEM], - SPLIT_CASES THENL - [Cases_on `t_list` THEN FULL_SIMP_TAC (srw_ss()) [] THEN METIS_TAC [ok_ok_thm], - FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN SRW_TAC [] [] THEN METIS_TAC [APPEND_NIL, MEM], - FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN SRW_TAC [] [] THEN - METIS_TAC [lookup_str_thm, NOT_EXISTS, EVERY_DEF, EXISTS_DEF, MEM]], - SPLIT_CASES THENL - [Cases_on `t_list` THEN FULL_SIMP_TAC (srw_ss()) [] THEN METIS_TAC [ok_ok_thm], - FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN SRW_TAC [] [] THEN METIS_TAC [APPEND_NIL, MEM], - FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN SRW_TAC [] [] THEN - METIS_TAC [lookup_str_thm, NOT_EXISTS, EVERY_DEF, EXISTS_DEF, MEM], - METIS_TAC [lookup_str_thm, NOT_EXISTS, EVERY_DEF, EXISTS_DEF, MEM, APPEND_NIL], - METIS_TAC [lookup_str_thm, NOT_EXISTS, EVERY_DEF, EXISTS_DEF, MEM, APPEND_NIL]], - SPLIT_CASES THENL - [Cases_on `t_list` THEN FULL_SIMP_TAC (srw_ss()) [] THEN METIS_TAC [ok_ok_thm], - FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN SRW_TAC [] [] THEN METIS_TAC [APPEND_NIL, MEM], - FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN SRW_TAC [] [] THEN - METIS_TAC [lookup_str_thm, NOT_EXISTS, EVERY_DEF, EXISTS_DEF, MEM], - METIS_TAC [lookup_str_thm, NOT_EXISTS, EVERY_DEF, EXISTS_DEF, MEM, APPEND_NIL], - METIS_TAC [lookup_str_thm, NOT_EXISTS, EVERY_DEF, EXISTS_DEF, MEM, APPEND_NIL]], - SPLIT_CASES THENL - [METIS_TAC [ok_ok_thm], - METIS_TAC [lookup_str_thm, NOT_EXISTS, EVERY_DEF, EXISTS_DEF, MEM, APPEND_NIL], - METIS_TAC [lookup_str_thm, NOT_EXISTS, EVERY_DEF, EXISTS_DEF, MEM, APPEND_NIL]], - SPLIT_CASES, - SPLIT_CASES, - SPLIT_CASES, - SPLIT_CASES THEN METIS_TAC [ok_ok_thm], - METIS_TAC [lookup_str_thm, NOT_EXISTS], - METIS_TAC [APPEND], - METIS_TAC [lookup_str_thm, NOT_EXISTS, idx_bound_str_thm], - FULL_SIMP_TAC list_ss [EVERY_MEM], - FULL_SIMP_TAC list_ss [EVERY_MEM]]); - -end; - -val value_env_lookup_str_thm = Q.store_thm ("value_env_lookup_str_thm", -`!E1 E2 E3. value_env E2 ==> - (!x. lookup (E1++E2++E3) (name_tcn x) = lookup (E1++E3) (name_tcn x)) /\ - (!x. lookup (E1++E2++E3) (name_cn x) = lookup (E1++E3) (name_cn x)) /\ - (!x. lookup (E1++E2++E3) (name_fn x) = lookup (E1++E3) (name_fn x)) /\ - (!x. lookup (E1++E2++E3) (name_l x) = lookup (E1++E3) (name_l x))`, -HO_MATCH_MP_TAC Eok2_ind THEN -SRW_TAC [] [lookup_def, lookup_append_thm, value_env_lookup_lem, domEB_def, num_tv_def, value_env_num_tv_thm, - num_tv_append_thm, - Q.prove (`!x. (case x of NONE -> NONE || SOME EB -> SOME EB) = x`, - Cases THEN SRW_TAC [] [])]); - -val store_env_lookup_str_thm = Q.store_thm ("store_env_lookup_str_thm", -`!E1 E2 E3. store_env E2 ==> - (!x. lookup (E1++E2++E3) (name_tcn x) = lookup (E1++E3) (name_tcn x)) /\ - (!x. lookup (E1++E2++E3) (name_cn x) = lookup (E1++E3) (name_cn x)) /\ - (!x. lookup (E1++E2++E3) (name_fn x) = lookup (E1++E3) (name_fn x)) /\ - (!x. lookup (E1++E2++E3) (name_vn x) = lookup (E1++E3) (name_vn x))`, -HO_MATCH_MP_TAC Eok2_ind THEN -SRW_TAC [] [lookup_def, lookup_append_thm, store_env_lookup_lem, domEB_def, num_tv_def, value_env_num_tv_thm, - num_tv_append_thm, - Q.prove (`!x. (case x of NONE -> NONE || SOME EB -> SOME EB) = x`, - Cases THEN SRW_TAC [] [])]); - -local - -val lem1 = Q.prove ( -`!E. value_env E \/ store_env E ==> ~EXISTS is_tc_EB E`, -HO_MATCH_MP_TAC Eok2_ind THEN SRW_TAC [] [value_env_def, store_env_def, is_tc_EB_def]); - -in - -val value_env_ok_str_thm = Q.store_thm ("value_env_ok_str_thm", -`(!E. Eok E ==> !E1 E2 E3. (E = E1 ++ E2 ++ E3) ==> value_env E2 \/ store_env E2 ==> Eok (E1++E3)) /\ - (!E tc k. (typeconstr_kind E tc = SOME k) ==> - !E1 E2 E3. (E = E1 ++ E2 ++ E3) ==> value_env E2 \/ store_env E2 ==> - (typeconstr_kind (E1++E3) tc = SOME k)) /\ - (!E ts. tsok E ts ==> - !E1 E2 E3. (E = E1 ++ E2 ++ E3) ==> value_env E2 \/ store_env E2 ==> tsok (E1++E3) ts) /\ - (!E tpo ts. ntsok E tpo ts ==> - !E1 E2 E3. (E = E1 ++ E2 ++ E3) ==> value_env E2 \/ store_env E2 ==> ntsok (E1++E3) tpo ts) /\ - (!E t. tkind E t ==> - !E1 E2 E3. (E = E1 ++ E2 ++ E3) ==> value_env E2 \/ store_env E2 ==> tkind (E1++E3) t)`, -METIS_TAC [ok_str_thm, lem1]); - -end; - -val type_env_def = Define -`(type_env [] = T) /\ - (type_env (EB_vn x y::E) = F) /\ - (type_env (EB_l l t::E) = F) /\ - (type_env (EB_tv::E) = F) /\ - (type_env (EB::E) = type_env E)`; - -val type_env_append_thm = Q.store_thm ("type_env_append_thm", -`!E1 E2. type_env (E1++E2) = type_env E1 /\ type_env E2`, -Induct THEN SRW_TAC [] [type_env_def] THEN Cases_on `h` THEN FULL_SIMP_TAC list_ss [type_env_def]); - -val type_env_closed_thm = Q.store_thm ("type_env_closed_thm", -`!E. type_env E ==> closed_env E`, -Induct THEN SRW_TAC [] [type_env_def, closed_env_def, lookup_def, COND_EXPAND_EQ] THEN -Cases_on `h` THEN FULL_SIMP_TAC list_ss [domEB_def, type_env_def] THEN SRW_TAC [] [shiftEB_add_thm] THEN -METIS_TAC [closed_env_def]); - - -val _ = export_theory(); diff --git a/vendors/ott/examples/ocaml_light/hol/matching_funScript.sml b/vendors/ott/examples/ocaml_light/hol/matching_funScript.sml deleted file mode 100644 index 9b316519157d..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/matching_funScript.sml +++ /dev/null @@ -1,331 +0,0 @@ -open bossLib HolKernel boolLib listTheory rich_listTheory optionTheory combinTheory arithmeticTheory pairTheory; -open sortingTheory wordsTheory; -open ottTheory ottLib caml_typedefTheory; -open utilTheory basicTheory; - -val _ = new_theory "matching_fun"; - -val ALL_DISTINCT_MAP = Q.prove ( -`!l f. ALL_DISTINCT (MAP f l) ==> ALL_DISTINCT l`, -Induct THEN SRW_TAC [] [MEM_MAP] THEN METIS_TAC []); - -val list_assoc_MAP_11 = Q.prove ( -`!l f k. (!x x'. (f x = f x') = (x = x')) ==> - (list_assoc (f k) (MAP (\x. (f (FST x), SND x)) l) = list_assoc k l)`, -Induct THEN SRW_TAC [] [list_assoc_def] THEN Cases_on `h` THEN SRW_TAC [] [list_assoc_def] THEN -FULL_SIMP_TAC list_ss []); - -val MEM_SPLIT = Q.prove ( -`!x l. MEM x l = ?l1 l2. l = l1++x::l2`, -Induct_on `l` THEN SRW_TAC [] [] THEN EQ_TAC THEN SRW_TAC [] [] THENL -[METIS_TAC [APPEND], - METIS_TAC [APPEND], - Cases_on `l1` THEN FULL_SIMP_TAC list_ss [] THEN METIS_TAC []]); - -val pat_match_def = tDefine "pat_match" -`(pat_match (P_var vn) e = SOME [(vn, e)]) /\ - (pat_match P_any e = SOME []) /\ - (pat_match (P_constant constant) e = - if (e = Expr_constant constant) then - SOME [] - else - NONE) /\ - (pat_match (P_alias pat vn) e = - OPTION_MAP (\s. s++[(vn, e)]) (pat_match pat e)) /\ - (pat_match (P_typed pat t) e = pat_match pat e) /\ - (pat_match (P_or pat1 pat2) e = - case pat_match pat1 e of - SOME s -> SOME s - || NONE -> pat_match pat2 e) /\ - (pat_match (P_construct c plist) e = - case e of - Expr_construct c' elist -> - if ~(c' = c) then - NONE - else - pat_match_list plist elist - || _ -> NONE) /\ - (pat_match (P_construct_any c) e = - case e of - Expr_construct c' elist -> - if (c = c') then - SOME [] - else - NONE - || _ -> NONE) /\ - (pat_match (P_tuple plist) e = - case e of - Expr_tuple elist -> - pat_match_list plist elist - || _ -> NONE) /\ - (pat_match (P_record fplist) e = - case e of - Expr_record felist -> - if ~ALL_DISTINCT (MAP FST felist) \/ ~(ALL_DISTINCT (MAP FST fplist)) then - NONE - else - pat_match_rec_list fplist felist - || _ -> NONE) /\ - (pat_match (P_cons pat1 pat2) e = - case e of - Expr_cons e1 e2 -> - (case pat_match pat1 e1 of - SOME s1 -> - (case pat_match pat2 e2 of - SOME s2 -> SOME (s1++s2) - || NONE -> NONE) - || NONE -> NONE) - || _ -> NONE) /\ - - (pat_match_list [] [] = SOME []) /\ - (pat_match_list (p::plist) (e::elist) = - case pat_match p e of - SOME s1 -> - (case pat_match_list plist elist of - SOME s2 -> SOME (s1++s2) - || NONE -> NONE) - || NONE -> NONE) /\ - (pat_match_list _ _ = NONE) /\ - - (pat_match_rec_list [] _ = SOME []) /\ - (pat_match_rec_list ((f, p)::fplist) felist = - case list_assoc f felist of - SOME e -> - (case pat_match p e of - SOME s1 -> - (case pat_match_rec_list fplist felist of - SOME s2 -> SOME (s1++s2) - || NONE -> NONE) - || NONE -> NONE) - || NONE -> NONE)` - (WF_REL_TAC `measure (sum_case (pattern_size o FST) - (sum_case (pattern1_size o FST) - (pattern2_size o FST)))`); - -val pat_match_ind = fetch "-" "pat_match_ind"; - -val pat_match_is_val_thm = Q.store_thm ("pat_match_is_val_thm", -`(!p e s. is_value_of_expr e /\ (pat_match p e = SOME s) ==> EVERY is_value_of_expr (MAP SND s)) /\ - (!pl el s. EVERY is_value_of_expr el /\ (pat_match_list pl el = SOME s) ==> - EVERY is_value_of_expr (MAP SND s)) /\ - (!fpl fel s. EVERY is_value_of_expr (MAP SND fel) /\ (pat_match_rec_list fpl fel = SOME s) ==> - EVERY is_value_of_expr (MAP SND s))`, -HO_MATCH_MP_TAC pat_match_ind THEN -SRW_TAC [] [pat_match_def, is_value_of_expr_def, EVERY_MAP] THEN -SRW_TAC [] [] THENL -[Cases_on `pat_match p e` THEN FULL_SIMP_TAC (srw_ss()) [], - Cases_on `e` THEN FULL_SIMP_TAC (srw_ss()) [COND_EXPAND_EQ, is_value_of_expr_def] THEN METIS_TAC [], - Cases_on `e` THEN FULL_SIMP_TAC (srw_ss()) [COND_EXPAND_EQ, is_value_of_expr_def] THEN METIS_TAC [EVERY_DEF], - Cases_on `e` THEN FULL_SIMP_TAC (srw_ss()) [COND_EXPAND_EQ, is_value_of_expr_def] THEN METIS_TAC [], - Cases_on `e` THEN FULL_SIMP_TAC (srw_ss()) [COND_EXPAND_EQ, is_value_of_expr_def, LAMBDA_PROD2] THEN - METIS_TAC [], - Cases_on `e` THEN FULL_SIMP_TAC (srw_ss()) [COND_EXPAND_EQ, is_value_of_expr_def] THEN - Cases_on `pat_match p e'` THEN FULL_SIMP_TAC (srw_ss()) [] THEN - Cases_on `pat_match p' e0` THEN FULL_SIMP_TAC (srw_ss()) [] THEN METIS_TAC [EVERY_APPEND], - Cases_on `pat_match p e` THEN FULL_SIMP_TAC (srw_ss()) [] THEN - Cases_on `pat_match_list pl el` THEN FULL_SIMP_TAC (srw_ss()) [] THEN METIS_TAC [EVERY_APPEND], - Cases_on `list_assoc f fel` THEN FULL_SIMP_TAC (srw_ss()) [] THEN - Cases_on `pat_match p x` THEN FULL_SIMP_TAC (srw_ss()) [] THEN - Cases_on `pat_match_rec_list fpl fel` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [] THEN - IMP_RES_TAC list_assoc_mem THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN METIS_TAC [SND]]); - -local - -val lem1 = Q.prove ( -`!s. (substs_x_xs case s of substs_x_xs l -> l) = s`, -Cases THEN SRW_TAC [] []); - -val lem2 = Q.prove ( -`!l1 l2 l3. (LENGTH l1 = LENGTH l2) /\ (LENGTH l2 = LENGTH l3) /\ - EVERY (\x. JM_match (FST x) (FST (SND x)) (substs_x_xs (SND (SND x)))) (ZIP (l1,ZIP (l2,l3))) ==> - EVERY (\x. JM_match (FST x) (FST (SND x)) (SND (SND x))) (ZIP (l1,ZIP (l2,MAP substs_x_xs l3)))`, -Induct THEN Cases_on `l2` THEN Cases_on `l3` THEN FULL_SIMP_TAC list_ss []); - -val lem3 = Q.prove ( -`!l. EVERY (\x. P (SND (SND (SND x))) (FST (SND x)) (FST (SND (SND x)))) l /\ MEM p l /\ - ALL_DISTINCT (MAP FST l) ==> -case list_assoc (FST p) (MAP (\z. (FST z,SND (SND (SND z)))) l ++ fn_v''_list) of - NONE -> F -|| SOME e -> P e (FST (SND p)) (FST (SND (SND p)))`, -Induct THEN SRW_TAC [] [list_assoc_def] THEN FULL_SIMP_TAC list_ss [] THEN -Cases_on `list_assoc (FST h) (MAP (\z. (FST z,SND (SND (SND z)))) l ++ fn_v''_list)` THEN -FULL_SIMP_TAC (srw_ss()) [MEM_MAP] THEN METIS_TAC []); - -val field_to_fn_11 = Q.store_thm ("field_to_fn_11", -`!x x'. (field_to_fn x = field_to_fn x') = (x = x')`, -Cases THEN Cases THEN SRW_TAC [] [field_to_fn_def]); - -val lem4 = Q.prove ( -`!fplist slist l. - EVERY (\z. is_value_of_expr (SND z)) l /\ - ALL_DISTINCT (MAP FST l) /\ - ALL_DISTINCT (MAP FST fplist) /\ - (LENGTH slist = LENGTH fplist) /\ - EVERY (\z. case list_assoc (FST (FST z)) l of - NONE -> F - || SOME e -> JM_match e (SND (FST z)) (substs_x_xs (SND z))) - (ZIP (fplist,slist)) ==> - ?fn_v''_list field_name'_pat_substs_x_v'_list field_name_v_list. - (l = MAP (\z. (F_name (FST z),SND z)) field_name_v_list) /\ - (fplist = - MAP (\z. (F_name (FST z),FST (SND z))) - field_name'_pat_substs_x_v'_list) /\ - (FLAT slist = - FLAT - (MAP (\x. case x of substs_x_xs l' -> l') - (MAP (UNCURRY (\field_name_'. UNCURRY (\pat_. FST))) - field_name'_pat_substs_x_v'_list))) /\ - EVERY (\z. is_value_of_expr (SND z)) fn_v''_list /\ - EVERY (\z. is_value_of_expr (SND (SND (SND z)))) - field_name'_pat_substs_x_v'_list /\ - EVERY (\z. is_value_of_expr (SND z)) field_name_v_list /\ - PERM - (MAP (\z. (FST z,SND (SND (SND z)))) - field_name'_pat_substs_x_v'_list ++ fn_v''_list) - field_name_v_list /\ - EVERY - (\x. JM_match (SND (SND (SND x))) (FST (SND x)) (FST (SND (SND x)))) - field_name'_pat_substs_x_v'_list /\ - ALL_DISTINCT (MAP (\z. name_fn (FST z)) field_name_v_list)`, -Induct THEN SRW_TAC [] [] THEN Cases_on `slist` THEN FULL_SIMP_TAC list_ss [] THENL -[MAP_EVERY Q.EXISTS_TAC [`MAP (\x. (field_to_fn (FST x), (SND x))) l`, - `MAP (\x. (field_to_fn (FST x), (SND x))) l`] THEN - SRW_TAC [] [MAP_MAP, field_to_fn_thm, MAP_I, EVERY_MAP] THEN - METIS_TAC [MAP_11_ALL_DISTINCT, name_11, field_to_fn_11], - Cases_on `list_assoc (FST h) l` THEN FULL_SIMP_TAC list_ss [] THEN - Q.PAT_ASSUM `!slist l'. P slist l' ==> Q slist l'` (MP_TAC o Q.SPECL [`t`, `l`]) THEN - SRW_TAC [] [] THEN - IMP_RES_TAC list_assoc_mem THEN FULL_SIMP_TAC list_ss [EVERY_MAP, MAP_MAP] THEN - Cases_on `h` THEN Cases_on `q` THEN FULL_SIMP_TAC (srw_ss()) [] THEN - `MEM (f',x) (MAP (\z. (FST z,SND z)) field_name_v_list)` by - (FULL_SIMP_TAC (srw_ss()) [MEM_MAP] THEN METIS_TAC []) THEN - FULL_SIMP_TAC (srw_ss()) [MAP_I] THEN IMP_RES_TAC PERM_MEM_EQ THEN FULL_SIMP_TAC list_ss [] THEN1 - (FULL_SIMP_TAC list_ss [MEM_MAP] THEN METIS_TAC []) THEN - FULL_SIMP_TAC list_ss [MEM_SPLIT] THEN - MAP_EVERY Q.EXISTS_TAC [`l1''++l2''`, - `(f', r, substs_x_xs h', x):: - field_name'_pat_substs_x_v'_list`, - `field_name_v_list`] THEN - SRW_TAC [] [field_to_fn_thm] THEN FULL_SIMP_TAC list_ss [EVERY_MAP] THEN - METIS_TAC [PERM_REFL, CONS_PERM, APPEND, PERM_SYM, PERM_TRANS]]); - - -val list_TAC = - Cases_on `e` THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [is_value_of_expr_def, ETA_THM, ELIM_UNCURRY] THEN - EQ_TAC THEN SRW_TAC [] [] THENL - [FULL_SIMP_TAC list_ss [LENGTH_MAP] THEN - Q.PAT_ASSUM `!s. f ==> ((?slist. P slist) = g)` - (MP_TAC o GSYM o - Q.SPEC `FLAT (MAP (\x. case SND (SND x) of substs_x_xs l -> l) - (v_pat_substs_x_list: (expr#pattern#substs_x) list))`) THEN - SRW_TAC [] [MAP_MAP] THEN - Q.EXISTS_TAC `MAP (\x. case SND (SND x) of substs_x_xs l -> l) - (v_pat_substs_x_list: (expr#pattern#substs_x) list)` THEN - SRW_TAC [] [ZIP_MAP, LENGTH_MAP, LENGTH_ZIP, MAP_ZIP_SAME] THEN - SRW_TAC [] [MAP_MAP, EVERY_MAP, lem1], - RES_TAC THEN SRW_TAC [] [] THEN - Q.EXISTS_TAC `ZIP (l,ZIP (plist,MAP substs_x_xs slist))` THEN - SRW_TAC [] [MAP_FST_ZIP, LENGTH_ZIP, GSYM MAP_MAP, GSYM EVERY_MAP, MAP_SND_ZIP] THEN - SRW_TAC [] [MAP_MAP, lem1, MAP_I, lem2]]; - -in - -val match_thm = Q.store_thm ("match_thm", -`(!p e s. is_value_of_expr e ==> (JM_match e p (substs_x_xs s) = (pat_match p e = SOME s))) /\ - (!plist elist s. EVERY is_value_of_expr elist ==> - ((LENGTH plist = LENGTH elist) /\ - (?slist. (LENGTH slist = LENGTH elist) /\ (s = FLAT slist) /\ - EVERY (\(e, p, s). JM_match e p (substs_x_xs s)) (ZIP (elist, ZIP (plist, slist)))) - = - (pat_match_list plist elist = SOME s))) /\ - (!fplist felist s. EVERY is_value_of_expr (MAP SND felist) ==> - ((?slist. (LENGTH slist = LENGTH fplist) /\ (s = FLAT slist) /\ - EVERY (\((f, p), s). - case list_assoc f felist of NONE -> F || SOME e -> JM_match e p (substs_x_xs s)) - (ZIP (fplist, slist))) - = - (pat_match_rec_list fplist felist = SOME s)))`, -HO_MATCH_MP_TAC pat_match_ind THEN SRW_TAC [] [pat_match_def, JM_match_fun, is_value_of_expr_def] THEN -IMP_RES_TAC pat_match_is_val_thm THEN FULL_SIMP_TAC list_ss [EVERY_MAP] THENL -[METIS_TAC [], - METIS_TAC [], - METIS_TAC [], - METIS_TAC [], - METIS_TAC [], - SRW_TAC [] [JM_matchP_thm] THEN Cases_on `pat_match p e` THEN FULL_SIMP_TAC (srw_ss()) [] THEN METIS_TAC [], - list_TAC, - Cases_on `e` THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [is_value_of_expr_def] THEN METIS_TAC [], - list_TAC, - Cases_on `e` THEN SRW_TAC [] [] THENL - [CCONTR_TAC THEN FULL_SIMP_TAC list_ss [EVERY_MAP, MAP_MAP] THEN SRW_TAC [] [] THEN - METIS_TAC [MAP_11_ALL_DISTINCT, name_11, field_11], - CCONTR_TAC THEN FULL_SIMP_TAC list_ss [EVERY_MAP, MAP_MAP] THEN SRW_TAC [] [] THEN - `PERM (MAP FST (MAP (\z. (FST z,SND (SND (SND z)))) - field_name'_pat_substs_x_v'_list ++ fn_v''_list)) - (MAP FST field_name_v_list)` by METIS_TAC [PERM_MAP] THEN - FULL_SIMP_TAC list_ss [MAP_MAP] THEN - IMP_RES_TAC PERM_ALL_DISTINCT THEN FULL_SIMP_TAC list_ss [ALL_DISTINCT_APPEND] THEN - METIS_TAC [MAP_11_ALL_DISTINCT, name_11, field_11], - FULL_SIMP_TAC list_ss [is_value_of_expr_def, LAMBDA_PROD2] THEN POP_ASSUM (MP_TAC o GSYM) THEN - SRW_TAC [] [] THEN EQ_TAC THEN SRW_TAC [] [] THENL - [Q.EXISTS_TAC `MAP (\x. case FST (SND (SND x)) of substs_x_xs l -> l) - (field_name'_pat_substs_x_v'_list:(field_name#pattern#substs_x#expr) list)` THEN - SRW_TAC [] [ELIM_UNCURRY, MAP_MAP, ZIP_MAP, MAP_ZIP_SAME] THEN - SRW_TAC [] [EVERY_MAP, EVERY_MEM, lem1, list_assoc_MAP_11] THEN - FULL_SIMP_TAC (srw_ss()) [MAP_MAP, MAP_11_ALL_DISTINCT, ETA_THM] THEN - `PERM (MAP FST (MAP (\z. (FST z,SND (SND (SND z)))) - field_name'_pat_substs_x_v'_list ++ fn_v''_list)) - (MAP FST field_name_v_list)` - by METIS_TAC [PERM_MAP] THEN - `ALL_DISTINCT (MAP FST (MAP (\z. (FST z,SND (SND (SND z)))) - field_name'_pat_substs_x_v'_list ++ fn_v''_list))` - by METIS_TAC [PERM_ALL_DISTINCT, MAP_MAP, FST, MAP_APPEND] THEN - METIS_TAC [lem3, PERM_list_assoc], - METIS_TAC [lem4]]], - Cases_on `e` THEN SRW_TAC [] [] THEN Cases_on `pat_match p e'` THEN SRW_TAC [] [] THENL - [CCONTR_TAC THEN FULL_SIMP_TAC list_ss [] THEN Cases_on `substs_x1` THEN FULL_SIMP_TAC list_ss [] THEN - METIS_TAC [], - Cases_on `pat_match p' e0` THEN SRW_TAC [] [] THENL - [CCONTR_TAC THEN FULL_SIMP_TAC list_ss [] THEN Cases_on `substs_x2` THEN FULL_SIMP_TAC list_ss [] THEN - METIS_TAC [], - FULL_SIMP_TAC list_ss [is_value_of_expr_def] THEN - EQ_TAC THEN SRW_TAC [] [] THENL - [Cases_on `substs_x1` THEN Cases_on `substs_x2` THEN SRW_TAC [] [] THEN METIS_TAC [], - MAP_EVERY Q.EXISTS_TAC [`substs_x_xs x`, `substs_x_xs x'`] THEN SRW_TAC [] []]]], - Cases_on `s` THEN SRW_TAC [] [] THENL - [Q.EXISTS_TAC `[]` THEN SRW_TAC [] [], - Cases_on `slist` THEN SRW_TAC [] []], - Cases_on `pat_match p e` THEN SRW_TAC [] [] THENL - [CCONTR_TAC THEN FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THEN Cases_on `slist` THEN - FULL_SIMP_TAC list_ss [] THEN METIS_TAC [], - Cases_on `pat_match_list plist elist` THEN SRW_TAC [] [] THENL - [CCONTR_TAC THEN FULL_SIMP_TAC list_ss [] THEN Cases_on `slist` THEN - FULL_SIMP_TAC list_ss [EVERY_MEM, EXISTS_MEM] THEN METIS_TAC [], - EQ_TAC THEN SRW_TAC [] [] THENL - [Cases_on `slist` THEN FULL_SIMP_TAC list_ss [] THEN METIS_TAC [], - METIS_TAC [], - POP_ASSUM (MP_TAC o Q.SPEC `x'`) THEN SRW_TAC [] [] THEN - Q.EXISTS_TAC `x::slist` THEN SRW_TAC [] []]]], - Cases_on `s` THEN SRW_TAC [] [] THENL - [Q.EXISTS_TAC `[]` THEN SRW_TAC [] [], - Cases_on `slist` THEN SRW_TAC [] []], - Cases_on `list_assoc f felist` THEN SRW_TAC [] [] THENL - [Cases_on `slist` THEN SRW_TAC [] [], - Cases_on `pat_match p x` THEN SRW_TAC [] [] THENL - [CCONTR_TAC THEN Cases_on `slist` THEN FULL_SIMP_TAC list_ss [] THEN - REPEAT (POP_ASSUM MP_TAC) THEN SRW_TAC [] [EVERY_MEM] THEN - METIS_TAC [SND, list_assoc_mem], - Cases_on `pat_match_rec_list fplist felist` THEN SRW_TAC [] [] THENL - [CCONTR_TAC THEN Cases_on `slist` THEN FULL_SIMP_TAC list_ss [] THEN - REPEAT (POP_ASSUM MP_TAC) THEN SRW_TAC [] [EVERY_MEM, o_DEF] THEN - METIS_TAC [], - EQ_TAC THEN SRW_TAC [] [] THENL - [Cases_on `slist` THEN FULL_SIMP_TAC list_ss [] THEN - REPEAT (POP_ASSUM MP_TAC) THEN SRW_TAC [] [EVERY_MEM] THEN - METIS_TAC [SND, list_assoc_mem], - POP_ASSUM (MP_TAC o Q.SPEC `x''`) THEN SRW_TAC [] [] THEN - Q.EXISTS_TAC `x'::slist` THEN SRW_TAC [] [] THEN - FULL_SIMP_TAC list_ss [EVERY_MEM] THEN METIS_TAC [SND, list_assoc_mem]]]]]]); - -end; -val _ = export_theory (); diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/.cvsignore b/vendors/ott/examples/ocaml_light/hol/ocamlpp/.cvsignore deleted file mode 100644 index 2b253a377705..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/ocamlpp/.cvsignore +++ /dev/null @@ -1,8 +0,0 @@ -*.a -*.cma -*.cmi -*.cmo -*.cmx -*.cmxa -*.o -filter diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/Makefile b/vendors/ott/examples/ocaml_light/hol/ocamlpp/Makefile deleted file mode 100644 index 05e5c06e4fdd..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/ocamlpp/Makefile +++ /dev/null @@ -1,71 +0,0 @@ - -CAMLC=ocamlc -CAMLOPT=ocamlopt -COMPFLAGS=-warn-error A $(INCLUDES) -LINKFLAGS= - -CAMLYACC=ocamlyacc -YACCFLAGS=-v -CAMLLEX=ocamllex -CAMLDEP=ocamldep -DEPFLAGS=$(INCLUDES) -CAMLRUN=ocamlrun -SHELL=/bin/sh -MKDIR=mkdir -p - -INCLUDES=-I utils -I parsing - -UTILS=utils/misc.cmx utils/tbl.cmx utils/config.cmx \ - utils/clflags.cmx utils/terminfo.cmx utils/ccomp.cmx utils/warnings.cmx \ - utils/consistbl.cmx - -OPTUTILS=$(UTILS) - -PARSING=parsing/linenum.cmx parsing/location.cmx parsing/longident.cmx \ - parsing/syntaxerr.cmx parsing/parser.cmx \ - parsing/lexer.cmx parsing/parse.cmx parsing/printast.cmx - -FILES=$(UTILS) $(PARSING) main.cmx - -filter: $(FILES) Makefile - $(CAMLOPT) $(LINKFLAGS) -o filter $(FILES) - - -parsing/parser.mli parsing/parser.ml: parsing/parser.mly - $(CAMLYACC) $(YACCFLAGS) parsing/parser.mly - - -parsing/lexer.ml: parsing/lexer.mll - $(CAMLLEX) parsing/lexer.mll - - -parsing/linenum.ml: parsing/linenum.mll - $(CAMLLEX) parsing/linenum.mll - - -.SUFFIXES: .ml .mli .cmo .cmi .cmx - -.ml.cmo: - $(CAMLC) $(COMPFLAGS) -c $< - -.mli.cmi: - $(CAMLC) $(COMPFLAGS) -c $< - -.ml.cmx: - $(CAMLOPT) $(COMPFLAGS) -c $< - -clean:: - rm -f utils/*.cm[iox] utils/*.[so] utils/*~ - rm -f parsing/*.cm[iox] parsing/*.[so] parsing/*~ - rm -f parsing/parser.ml parsing/parser.mli parsing/parser.output - rm -f parsing/lexer.mli parsing/lexer.ml - rm -f *.cm[iox] *.[so] *~ filter - -depend: - (for d in utils parsing .; \ - do $(CAMLDEP) $(DEPFLAGS) $$d/*.mli $$d/*.ml; \ - done) > .depend - -FORCE: - -include .depend diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/README b/vendors/ott/examples/ocaml_light/hol/ocamlpp/README deleted file mode 100644 index 5fa6f4a394ba..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/ocamlpp/README +++ /dev/null @@ -1,7 +0,0 @@ -The parser from ocaml-3.10.0 stripped off to run as a filter: code in on stdin, -HOL AST out on stdout. - -Run "make" to build the program, called "filter". The ocaml distribution -should be in your path for this to work (ocamlc, ocamlopt, ocamllex, -ocamlyacc). - diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/main.ml b/vendors/ott/examples/ocaml_light/hol/ocamlpp/main.ml deleted file mode 100644 index ab813caffa07..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/ocamlpp/main.ml +++ /dev/null @@ -1,13 +0,0 @@ -let ic = stdin;; - -let ast = - begin - Location.input_name := "stdin"; - let lexbuf = Lexing.from_channel ic in - Location.init lexbuf "stdin"; - Parse.implementation lexbuf - end;; - -let _ = - Format.fprintf Format.std_formatter "%a@." Printast.implementation ast;; - diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/.cvsignore b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/.cvsignore deleted file mode 100644 index b9e7d3104366..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/.cvsignore +++ /dev/null @@ -1,11 +0,0 @@ -*.a -*.cma -*.cmi -*.cmo -*.cmx -*.cmxa -*.o -*.output -lexer.ml -parser.ml -parser.mli diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/asttypes.mli b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/asttypes.mli deleted file mode 100644 index 0c85d374fb64..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/asttypes.mli +++ /dev/null @@ -1,36 +0,0 @@ -(***********************************************************************) -(* *) -(* Objective Caml *) -(* *) -(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) -(* *) -(* Copyright 1996 Institut National de Recherche en Informatique et *) -(* en Automatique. All rights reserved. This file is distributed *) -(* under the terms of the Q Public License version 1.0. *) -(* *) -(***********************************************************************) - -(* $Id: asttypes.mli,v 1.1 2007/09/24 23:04:49 so294 Exp $ *) - -(* Auxiliary a.s.t. types used by parsetree and typedtree. *) - -type constant = - Const_int of int - | Const_char of char - | Const_string of string - | Const_float of string - | Const_int32 of int32 - | Const_int64 of int64 - | Const_nativeint of nativeint - -type rec_flag = Nonrecursive | Recursive | Default - -type direction_flag = Upto | Downto - -type private_flag = Private | Public - -type mutable_flag = Immutable | Mutable - -type virtual_flag = Virtual | Concrete - -type label = string diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/lexer.mll b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/lexer.mll deleted file mode 100644 index 821c0e311f56..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/lexer.mll +++ /dev/null @@ -1,500 +0,0 @@ -(***********************************************************************) -(* *) -(* Objective Caml *) -(* *) -(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) -(* *) -(* Copyright 1996 Institut National de Recherche en Informatique et *) -(* en Automatique. All rights reserved. This file is distributed *) -(* under the terms of the Q Public License version 1.0. *) -(* *) -(***********************************************************************) - -(* $Id: lexer.mll,v 1.1 2007/09/24 23:04:49 so294 Exp $ *) - -(* The lexer definition *) - -{ -open Lexing -open Misc -open Parser - -type error = - | Illegal_character of char - | Illegal_escape of string - | Unterminated_comment - | Unterminated_string - | Unterminated_string_in_comment - | Keyword_as_label of string - | Literal_overflow of string -;; - -exception Error of error * Location.t;; - -(* The table of keywords *) - -let keyword_table = - create_hashtable 149 [ - "and", AND; - "as", AS; - "assert", ASSERT; - "begin", BEGIN; - "class", CLASS; - "constraint", CONSTRAINT; - "do", DO; - "done", DONE; - "downto", DOWNTO; - "else", ELSE; - "end", END; - "exception", EXCEPTION; - "external", EXTERNAL; - "false", FALSE; - "for", FOR; - "fun", FUN; - "function", FUNCTION; - "functor", FUNCTOR; - "if", IF; - "in", IN; - "include", INCLUDE; - "inherit", INHERIT; - "initializer", INITIALIZER; - "lazy", LAZY; - "let", LET; - "match", MATCH; - "method", METHOD; - "module", MODULE; - "mutable", MUTABLE; - "new", NEW; - "object", OBJECT; - "of", OF; - "open", OPEN; - "or", OR; -(* "parser", PARSER; *) - "private", PRIVATE; - "rec", REC; - "sig", SIG; - "struct", STRUCT; - "then", THEN; - "to", TO; - "true", TRUE; - "try", TRY; - "type", TYPE; - "val", VAL; - "virtual", VIRTUAL; - "when", WHEN; - "while", WHILE; - "with", WITH; - - "mod", INFIXOP3("mod"); - "land", INFIXOP3("land"); - "lor", INFIXOP3("lor"); - "lxor", INFIXOP3("lxor"); - "lsl", INFIXOP4("lsl"); - "lsr", INFIXOP4("lsr"); - "asr", INFIXOP4("asr") -] - -(* To buffer string literals *) - -let initial_string_buffer = String.create 256 -let string_buff = ref initial_string_buffer -let string_index = ref 0 - -let reset_string_buffer () = - string_buff := initial_string_buffer; - string_index := 0 - -let store_string_char c = - if !string_index >= String.length (!string_buff) then begin - let new_buff = String.create (String.length (!string_buff) * 2) in - String.blit (!string_buff) 0 new_buff 0 (String.length (!string_buff)); - string_buff := new_buff - end; - String.unsafe_set (!string_buff) (!string_index) c; - incr string_index - -let get_stored_string () = - let s = String.sub (!string_buff) 0 (!string_index) in - string_buff := initial_string_buffer; - s - -(* To store the position of the beginning of a string and comment *) -let string_start_loc = ref Location.none;; -let comment_start_loc = ref [];; -let in_comment () = !comment_start_loc <> [];; - -(* To translate escape sequences *) - -let char_for_backslash = function - | 'n' -> '\010' - | 'r' -> '\013' - | 'b' -> '\008' - | 't' -> '\009' - | c -> c - -let char_for_decimal_code lexbuf i = - let c = 100 * (Char.code(Lexing.lexeme_char lexbuf i) - 48) + - 10 * (Char.code(Lexing.lexeme_char lexbuf (i+1)) - 48) + - (Char.code(Lexing.lexeme_char lexbuf (i+2)) - 48) in - if (c < 0 || c > 255) && not (in_comment ()) - then raise (Error(Illegal_escape (Lexing.lexeme lexbuf), - Location.curr lexbuf)) - else Char.chr c - -let char_for_hexadecimal_code lexbuf i = - let d1 = Char.code (Lexing.lexeme_char lexbuf i) in - let val1 = if d1 >= 97 then d1 - 87 - else if d1 >= 65 then d1 - 55 - else d1 - 48 - in - let d2 = Char.code (Lexing.lexeme_char lexbuf (i+1)) in - let val2 = if d2 >= 97 then d2 - 87 - else if d2 >= 65 then d2 - 55 - else d2 - 48 - in - Char.chr (val1 * 16 + val2) - -(* Remove underscores from float literals *) - -let remove_underscores s = - let l = String.length s in - let rec remove src dst = - if src >= l then - if dst >= l then s else String.sub s 0 dst - else - match s.[src] with - '_' -> remove (src + 1) dst - | c -> s.[dst] <- c; remove (src + 1) (dst + 1) - in remove 0 0 - -(* Update the current location with file name and line number. *) - -let update_loc lexbuf file line absolute chars = - let pos = lexbuf.lex_curr_p in - let new_file = match file with - | None -> pos.pos_fname - | Some s -> s - in - lexbuf.lex_curr_p <- { pos with - pos_fname = new_file; - pos_lnum = if absolute then line else pos.pos_lnum + line; - pos_bol = pos.pos_cnum - chars; - } -;; - -(* Error report *) - -open Format - -let report_error ppf = function - | Illegal_character c -> - fprintf ppf "Illegal character (%s)" (Char.escaped c) - | Illegal_escape s -> - fprintf ppf "Illegal backslash escape in string or character (%s)" s - | Unterminated_comment -> - fprintf ppf "Comment not terminated" - | Unterminated_string -> - fprintf ppf "String literal not terminated" - | Unterminated_string_in_comment -> - fprintf ppf "This comment contains an unterminated string literal" - | Keyword_as_label kwd -> - fprintf ppf "`%s' is a keyword, it cannot be used as label name" kwd - | Literal_overflow ty -> - fprintf ppf "Integer literal exceeds the range of representable integers of type %s" ty -;; - -} - -let newline = ('\010' | '\013' | "\013\010") -let blank = [' ' '\009' '\012'] -let lowercase = ['a'-'z' '\223'-'\246' '\248'-'\255' '_'] -let uppercase = ['A'-'Z' '\192'-'\214' '\216'-'\222'] -let identchar = - ['A'-'Z' 'a'-'z' '_' '\192'-'\214' '\216'-'\246' '\248'-'\255' '\'' '0'-'9'] -let symbolchar = - ['!' '$' '%' '&' '*' '+' '-' '.' '/' ':' '<' '=' '>' '?' '@' '^' '|' '~'] -let decimal_literal = - ['0'-'9'] ['0'-'9' '_']* -let hex_literal = - '0' ['x' 'X'] ['0'-'9' 'A'-'F' 'a'-'f']['0'-'9' 'A'-'F' 'a'-'f' '_']* -let oct_literal = - '0' ['o' 'O'] ['0'-'7'] ['0'-'7' '_']* -let bin_literal = - '0' ['b' 'B'] ['0'-'1'] ['0'-'1' '_']* -let int_literal = - decimal_literal | hex_literal | oct_literal | bin_literal -let float_literal = - ['0'-'9'] ['0'-'9' '_']* - ('.' ['0'-'9' '_']* )? - (['e' 'E'] ['+' '-']? ['0'-'9'] ['0'-'9' '_']*)? - -rule token = parse - | newline - { update_loc lexbuf None 1 false 0; - token lexbuf - } - | blank + - { token lexbuf } - | "_" - { UNDERSCORE } - | "~" { TILDE } - | "~" lowercase identchar * ':' - { let s = Lexing.lexeme lexbuf in - let name = String.sub s 1 (String.length s - 2) in - if Hashtbl.mem keyword_table name then - raise (Error(Keyword_as_label name, Location.curr lexbuf)); - LABEL name } - | "?" { QUESTION } - | "??" { QUESTIONQUESTION } - | "?" lowercase identchar * ':' - { let s = Lexing.lexeme lexbuf in - let name = String.sub s 1 (String.length s - 2) in - if Hashtbl.mem keyword_table name then - raise (Error(Keyword_as_label name, Location.curr lexbuf)); - OPTLABEL name } - | lowercase identchar * - { let s = Lexing.lexeme lexbuf in - try - Hashtbl.find keyword_table s - with Not_found -> - LIDENT s } - | uppercase identchar * - { UIDENT(Lexing.lexeme lexbuf) } (* No capitalized keywords *) - | int_literal - { try - INT (int_of_string(Lexing.lexeme lexbuf)) - with Failure _ -> - raise (Error(Literal_overflow "int", Location.curr lexbuf)) - } - | float_literal - { FLOAT (remove_underscores(Lexing.lexeme lexbuf)) } - | int_literal "l" - { let s = Lexing.lexeme lexbuf in - try - INT32 (Int32.of_string(String.sub s 0 (String.length s - 1))) - with Failure _ -> - raise (Error(Literal_overflow "int32", Location.curr lexbuf)) } - | int_literal "L" - { let s = Lexing.lexeme lexbuf in - try - INT64 (Int64.of_string(String.sub s 0 (String.length s - 1))) - with Failure _ -> - raise (Error(Literal_overflow "int64", Location.curr lexbuf)) } - | int_literal "n" - { let s = Lexing.lexeme lexbuf in - try - NATIVEINT - (Nativeint.of_string(String.sub s 0 (String.length s - 1))) - with Failure _ -> - raise (Error(Literal_overflow "nativeint", Location.curr lexbuf)) } - | "\"" - { reset_string_buffer(); - let string_start = lexbuf.lex_start_p in - string_start_loc := Location.curr lexbuf; - string lexbuf; - lexbuf.lex_start_p <- string_start; - STRING (get_stored_string()) } - | "'" newline "'" - { update_loc lexbuf None 1 false 1; - CHAR (Lexing.lexeme_char lexbuf 1) } - | "'" [^ '\\' '\'' '\010' '\013'] "'" - { CHAR(Lexing.lexeme_char lexbuf 1) } - | "'\\" ['\\' '\'' '"' 'n' 't' 'b' 'r' ' '] "'" - { CHAR(char_for_backslash (Lexing.lexeme_char lexbuf 2)) } - | "'\\" ['0'-'9'] ['0'-'9'] ['0'-'9'] "'" - { CHAR(char_for_decimal_code lexbuf 2) } - | "'\\" 'x' ['0'-'9' 'a'-'f' 'A'-'F'] ['0'-'9' 'a'-'f' 'A'-'F'] "'" - { CHAR(char_for_hexadecimal_code lexbuf 3) } - | "'\\" _ - { let l = Lexing.lexeme lexbuf in - let esc = String.sub l 1 (String.length l - 1) in - raise (Error(Illegal_escape esc, Location.curr lexbuf)) - } - | "(*" - { comment_start_loc := [Location.curr lexbuf]; - comment lexbuf; - token lexbuf } - | "(*)" - { let loc = Location.curr lexbuf in - Location.prerr_warning loc Warnings.Comment_start; - comment_start_loc := [Location.curr lexbuf]; - comment lexbuf; - token lexbuf - } - | "*)" - { let loc = Location.curr lexbuf in - Location.prerr_warning loc Warnings.Comment_not_end; - lexbuf.Lexing.lex_curr_pos <- lexbuf.Lexing.lex_curr_pos - 1; - let curpos = lexbuf.lex_curr_p in - lexbuf.lex_curr_p <- { curpos with pos_cnum = curpos.pos_cnum - 1 }; - STAR - } - | "#" [' ' '\t']* (['0'-'9']+ as num) [' ' '\t']* - ("\"" ([^ '\010' '\013' '"' ] * as name) "\"")? - [^ '\010' '\013'] * newline - { update_loc lexbuf name (int_of_string num) true 0; - token lexbuf - } - | "#" { SHARP } - | "&" { AMPERSAND } - | "&&" { AMPERAMPER } - | "`" { BACKQUOTE } - | "'" { QUOTE } - | "(" { LPAREN } - | ")" { RPAREN } - | "*" { STAR } - | "," { COMMA } - | "->" { MINUSGREATER } - | "." { DOT } - | ".." { DOTDOT } - | ":" { COLON } - | "::" { COLONCOLON } - | ":=" { COLONEQUAL } - | ":>" { COLONGREATER } - | ";" { SEMI } - | ";;" { SEMISEMI } - | "<" { LESS } - | "<-" { LESSMINUS } - | "=" { EQUAL } - | "[" { LBRACKET } - | "[|" { LBRACKETBAR } - | "[<" { LBRACKETLESS } - | "[>" { LBRACKETGREATER } - | "]" { RBRACKET } - | "{" { LBRACE } - | "{<" { LBRACELESS } - | "|" { BAR } - | "||" { BARBAR } - | "|]" { BARRBRACKET } - | ">" { GREATER } - | ">]" { GREATERRBRACKET } - | "}" { RBRACE } - | ">}" { GREATERRBRACE } - - | "!=" { INFIXOP0 "!=" } - | "+" { PLUS } - | "-" { MINUS } - | "-." { MINUSDOT } - - | "!" symbolchar * - { PREFIXOP(Lexing.lexeme lexbuf) } - | ['~' '?'] symbolchar + - { PREFIXOP(Lexing.lexeme lexbuf) } - | ['=' '<' '>' '|' '&' '$'] symbolchar * - { INFIXOP0(Lexing.lexeme lexbuf) } - | ['@' '^'] symbolchar * - { INFIXOP1(Lexing.lexeme lexbuf) } - | ['+' '-'] symbolchar * - { INFIXOP2(Lexing.lexeme lexbuf) } - | "**" symbolchar * - { INFIXOP4(Lexing.lexeme lexbuf) } - | ['*' '/' '%'] symbolchar * - { INFIXOP3(Lexing.lexeme lexbuf) } - | eof { EOF } - | _ - { raise (Error(Illegal_character (Lexing.lexeme_char lexbuf 0), - Location.curr lexbuf)) - } - -and comment = parse - "(*" - { comment_start_loc := (Location.curr lexbuf) :: !comment_start_loc; - comment lexbuf; - } - | "*)" - { match !comment_start_loc with - | [] -> assert false - | [x] -> comment_start_loc := []; - | _ :: l -> comment_start_loc := l; - comment lexbuf; - } - | "\"" - { reset_string_buffer(); - string_start_loc := Location.curr lexbuf; - begin try string lexbuf - with Error (Unterminated_string, _) -> - match !comment_start_loc with - | [] -> assert false - | loc :: _ -> comment_start_loc := []; - raise (Error (Unterminated_string_in_comment, loc)) - end; - reset_string_buffer (); - comment lexbuf } - | "''" - { comment lexbuf } - | "'" newline "'" - { update_loc lexbuf None 1 false 1; - comment lexbuf - } - | "'" [^ '\\' '\'' '\010' '\013' ] "'" - { comment lexbuf } - | "'\\" ['\\' '"' '\'' 'n' 't' 'b' 'r' ' '] "'" - { comment lexbuf } - | "'\\" ['0'-'9'] ['0'-'9'] ['0'-'9'] "'" - { comment lexbuf } - | "'\\" 'x' ['0'-'9' 'a'-'f' 'A'-'F'] ['0'-'9' 'a'-'f' 'A'-'F'] "'" - { comment lexbuf } - | eof - { match !comment_start_loc with - | [] -> assert false - | loc :: _ -> comment_start_loc := []; - raise (Error (Unterminated_comment, loc)) - } - | newline - { update_loc lexbuf None 1 false 0; - comment lexbuf - } - | _ - { comment lexbuf } - -and string = parse - '"' - { () } - | '\\' newline ([' ' '\t'] * as space) - { update_loc lexbuf None 1 false (String.length space); - string lexbuf - } - | '\\' ['\\' '\'' '"' 'n' 't' 'b' 'r' ' '] - { store_string_char(char_for_backslash(Lexing.lexeme_char lexbuf 1)); - string lexbuf } - | '\\' ['0'-'9'] ['0'-'9'] ['0'-'9'] - { store_string_char(char_for_decimal_code lexbuf 1); - string lexbuf } - | '\\' 'x' ['0'-'9' 'a'-'f' 'A'-'F'] ['0'-'9' 'a'-'f' 'A'-'F'] - { store_string_char(char_for_hexadecimal_code lexbuf 2); - string lexbuf } - | '\\' _ - { if in_comment () - then string lexbuf - else begin -(* Should be an error, but we are very lax. - raise (Error (Illegal_escape (Lexing.lexeme lexbuf), - Location.curr lexbuf)) -*) - let loc = Location.curr lexbuf in - Location.prerr_warning loc Warnings.Illegal_backslash; - store_string_char (Lexing.lexeme_char lexbuf 0); - store_string_char (Lexing.lexeme_char lexbuf 1); - string lexbuf - end - } - | newline - { update_loc lexbuf None 1 false 0; - let s = Lexing.lexeme lexbuf in - for i = 0 to String.length s - 1 do - store_string_char s.[i]; - done; - string lexbuf - } - | eof - { raise (Error (Unterminated_string, !string_start_loc)) } - | _ - { store_string_char(Lexing.lexeme_char lexbuf 0); - string lexbuf } - -and skip_sharp_bang = parse - | "#!" [^ '\n']* '\n' [^ '\n']* "\n!#\n" - { update_loc lexbuf None 3 false 0 } - | "#!" [^ '\n']* '\n' - { update_loc lexbuf None 1 false 0 } - | "" { () } diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/linenum.ml b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/linenum.ml deleted file mode 100644 index f47971c8e7e3..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/linenum.ml +++ /dev/null @@ -1,179 +0,0 @@ -# 18 "parsing/linenum.mll" - -let filename = ref "" -let linenum = ref 0 -let linebeg = ref 0 - -let parse_sharp_line s = - try - (* Update the line number and file name *) - let l1 = ref 0 in - while let c = s.[!l1] in c < '0' || c > '9' do incr l1 done; - let l2 = ref (!l1 + 1) in - while let c = s.[!l2] in c >= '0' && c <= '9' do incr l2 done; - linenum := int_of_string(String.sub s !l1 (!l2 - !l1)); - let f1 = ref (!l2 + 1) in - while !f1 < String.length s && s.[!f1] <> '"' do incr f1 done; - let f2 = ref (!f1 + 1) in - while !f2 < String.length s && s.[!f2] <> '"' do incr f2 done; - if !f1 < String.length s then - filename := String.sub s (!f1 + 1) (!f2 - !f1 - 1) - with Failure _ | Invalid_argument _ -> - Misc.fatal_error "Linenum.parse_sharp_line" - -# 25 "parsing/linenum.ml" -let __ocaml_lex_tables = { - Lexing.lex_base = - "\000\000\253\255\001\000\254\255\002\000\007\000\017\000\004\000\ - \255\255\008\000\009\000\066\000"; - Lexing.lex_backtrk = - "\255\255\255\255\001\000\255\255\255\255\255\255\255\255\000\000\ - \255\255\255\255\255\255\255\255"; - Lexing.lex_default = - "\004\000\000\000\255\255\000\000\004\000\004\000\009\000\255\255\ - \000\000\009\000\010\000\009\000"; - Lexing.lex_trans = - "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ - \000\000\000\000\003\000\003\000\003\000\002\000\008\000\002\000\ - \005\000\003\000\008\000\008\000\002\000\007\000\007\000\000\000\ - \000\000\000\000\011\000\008\000\000\000\000\000\007\000\000\000\ - \000\000\000\000\000\000\005\000\000\000\000\000\000\000\005\000\ - \000\000\000\000\000\000\009\000\000\000\000\000\000\000\000\000\ - \000\000\011\000\000\000\010\000\000\000\000\000\000\000\006\000\ - \006\000\006\000\006\000\006\000\006\000\006\000\006\000\006\000\ - \006\000\006\000\006\000\006\000\006\000\006\000\006\000\006\000\ - \006\000\006\000\006\000\011\000\008\000\000\000\000\000\007\000\ - \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ - \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ - \000\000\000\000\011\000\000\000\010\000\000\000\000\000\000\000\ - \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ - \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ - \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ - \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ - \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ - \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ - \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ - \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ - \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ - \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ - \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ - \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ - \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ - \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ - \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ - \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ - \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ - \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ - \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ - \001\000\000\000\001\000\000\000\000\000\000\000\000\000\001\000\ - \001\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\ - \000\000\001\000\000\000\000\000\000\000\000\000\000\000\000\000\ - \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ - \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ - \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ - \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ - \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\ - \000\000\000\000\001\000"; - Lexing.lex_check = - "\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ - \255\255\255\255\000\000\002\000\004\000\000\000\007\000\004\000\ - \005\000\005\000\009\000\010\000\005\000\009\000\010\000\255\255\ - \255\255\255\255\006\000\006\000\255\255\255\255\006\000\255\255\ - \255\255\255\255\255\255\000\000\255\255\255\255\255\255\005\000\ - \255\255\255\255\255\255\010\000\255\255\255\255\255\255\255\255\ - \255\255\006\000\255\255\006\000\255\255\255\255\255\255\005\000\ - \005\000\005\000\005\000\005\000\005\000\005\000\005\000\005\000\ - \005\000\006\000\006\000\006\000\006\000\006\000\006\000\006\000\ - \006\000\006\000\006\000\011\000\011\000\255\255\255\255\011\000\ - \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ - \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ - \255\255\255\255\011\000\255\255\011\000\255\255\255\255\255\255\ - \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ - \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ - \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ - \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ - \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ - \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ - \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ - \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ - \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ - \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ - \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ - \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ - \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ - \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ - \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ - \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ - \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ - \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ - \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ - \000\000\255\255\004\000\255\255\255\255\255\255\255\255\005\000\ - \009\000\010\000\255\255\255\255\255\255\255\255\255\255\255\255\ - \255\255\006\000\255\255\255\255\255\255\255\255\255\255\255\255\ - \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ - \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ - \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ - \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ - \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\ - \255\255\255\255\011\000"; - Lexing.lex_base_code = - ""; - Lexing.lex_backtrk_code = - ""; - Lexing.lex_default_code = - ""; - Lexing.lex_trans_code = - ""; - Lexing.lex_check_code = - ""; - Lexing.lex_code = - ""; -} - -let rec skip_line lexbuf = - __ocaml_lex_skip_line_rec lexbuf 0 -and __ocaml_lex_skip_line_rec lexbuf __ocaml_lex_state = - match Lexing.engine __ocaml_lex_tables __ocaml_lex_state lexbuf with - | 0 -> -# 46 "parsing/linenum.mll" - ( parse_sharp_line(Lexing.lexeme lexbuf); - linebeg := Lexing.lexeme_start lexbuf; - Lexing.lexeme_end lexbuf ) -# 143 "parsing/linenum.ml" - - | 1 -> -# 51 "parsing/linenum.mll" - ( incr linenum; - linebeg := Lexing.lexeme_start lexbuf; - Lexing.lexeme_end lexbuf ) -# 150 "parsing/linenum.ml" - - | 2 -> -# 55 "parsing/linenum.mll" - ( incr linenum; - linebeg := Lexing.lexeme_start lexbuf; - raise End_of_file ) -# 157 "parsing/linenum.ml" - - | __ocaml_lex_state -> lexbuf.Lexing.refill_buff lexbuf; __ocaml_lex_skip_line_rec lexbuf __ocaml_lex_state - -;; - -# 59 "parsing/linenum.mll" - - -let for_position file loc = - let ic = open_in_bin file in - let lb = Lexing.from_channel ic in - filename := file; - linenum := 1; - linebeg := 0; - begin try - while skip_line lb <= loc do () done - with End_of_file -> () - end; - close_in ic; - (!filename, !linenum - 1, !linebeg) - - -# 180 "parsing/linenum.ml" diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/linenum.mli b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/linenum.mli deleted file mode 100644 index e21869f855e0..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/linenum.mli +++ /dev/null @@ -1,23 +0,0 @@ -(***********************************************************************) -(* *) -(* Objective Caml *) -(* *) -(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) -(* *) -(* Copyright 1997 Institut National de Recherche en Informatique et *) -(* en Automatique. All rights reserved. This file is distributed *) -(* under the terms of the Q Public License version 1.0. *) -(* *) -(***********************************************************************) - -(* $Id: linenum.mli,v 1.1 2007/09/24 23:04:50 so294 Exp $ *) - -(* An auxiliary lexer for determining the line number corresponding to - a file position, honoring the directives # linenum "filename" *) - -val for_position: string -> int -> string * int * int - (* [Linenum.for_position file loc] returns a triple describing - the location [loc] in the file named [file]. - First result is name of actual source file. - Second result is line number in that source file. - Third result is position of beginning of that line in [file]. *) diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/linenum.mll b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/linenum.mll deleted file mode 100644 index 876ead2d682b..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/linenum.mll +++ /dev/null @@ -1,74 +0,0 @@ -(***********************************************************************) -(* *) -(* Objective Caml *) -(* *) -(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) -(* *) -(* Copyright 1997 Institut National de Recherche en Informatique et *) -(* en Automatique. All rights reserved. This file is distributed *) -(* under the terms of the Q Public License version 1.0. *) -(* *) -(***********************************************************************) - -(* $Id: linenum.mll,v 1.1 2007/09/24 23:04:50 so294 Exp $ *) - -(* An auxiliary lexer for determining the line number corresponding to - a file position, honoring the directives # linenum "filename" *) - -{ -let filename = ref "" -let linenum = ref 0 -let linebeg = ref 0 - -let parse_sharp_line s = - try - (* Update the line number and file name *) - let l1 = ref 0 in - while let c = s.[!l1] in c < '0' || c > '9' do incr l1 done; - let l2 = ref (!l1 + 1) in - while let c = s.[!l2] in c >= '0' && c <= '9' do incr l2 done; - linenum := int_of_string(String.sub s !l1 (!l2 - !l1)); - let f1 = ref (!l2 + 1) in - while !f1 < String.length s && s.[!f1] <> '"' do incr f1 done; - let f2 = ref (!f1 + 1) in - while !f2 < String.length s && s.[!f2] <> '"' do incr f2 done; - if !f1 < String.length s then - filename := String.sub s (!f1 + 1) (!f2 - !f1 - 1) - with Failure _ | Invalid_argument _ -> - Misc.fatal_error "Linenum.parse_sharp_line" -} - -rule skip_line = parse - "#" [' ' '\t']* ['0'-'9']+ [' ' '\t']* - ("\"" [^ '\n' '\r' '"' (* '"' *) ] * "\"")? - [^ '\n' '\r'] * - ('\n' | '\r' | "\r\n") - { parse_sharp_line(Lexing.lexeme lexbuf); - linebeg := Lexing.lexeme_start lexbuf; - Lexing.lexeme_end lexbuf } - | [^ '\n' '\r'] * - ('\n' | '\r' | "\r\n") - { incr linenum; - linebeg := Lexing.lexeme_start lexbuf; - Lexing.lexeme_end lexbuf } - | [^ '\n' '\r'] * eof - { incr linenum; - linebeg := Lexing.lexeme_start lexbuf; - raise End_of_file } - -{ - -let for_position file loc = - let ic = open_in_bin file in - let lb = Lexing.from_channel ic in - filename := file; - linenum := 1; - linebeg := 0; - begin try - while skip_line lb <= loc do () done - with End_of_file -> () - end; - close_in ic; - (!filename, !linenum - 1, !linebeg) - -} diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/location.ml b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/location.ml deleted file mode 100644 index c24468e44822..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/location.ml +++ /dev/null @@ -1,250 +0,0 @@ -(***********************************************************************) -(* *) -(* Objective Caml *) -(* *) -(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) -(* *) -(* Copyright 1996 Institut National de Recherche en Informatique et *) -(* en Automatique. All rights reserved. This file is distributed *) -(* under the terms of the Q Public License version 1.0. *) -(* *) -(***********************************************************************) - -(* $Id: location.ml,v 1.1 2007/09/24 23:04:50 so294 Exp $ *) - -open Lexing - -type t = { loc_start: position; loc_end: position; loc_ghost: bool };; - -let none = { loc_start = dummy_pos; loc_end = dummy_pos; loc_ghost = true };; - -let in_file name = - let loc = { - pos_fname = name; - pos_lnum = 1; - pos_bol = 0; - pos_cnum = -1; - } in - { loc_start = loc; loc_end = loc; loc_ghost = true } -;; - -let curr lexbuf = { - loc_start = lexbuf.lex_start_p; - loc_end = lexbuf.lex_curr_p; - loc_ghost = false -};; - -let init lexbuf fname = - lexbuf.lex_curr_p <- { - pos_fname = fname; - pos_lnum = 1; - pos_bol = 0; - pos_cnum = 0; - } -;; - -let symbol_rloc () = { - loc_start = Parsing.symbol_start_pos (); - loc_end = Parsing.symbol_end_pos (); - loc_ghost = false; -};; - -let symbol_gloc () = { - loc_start = Parsing.symbol_start_pos (); - loc_end = Parsing.symbol_end_pos (); - loc_ghost = true; -};; - -let rhs_loc n = { - loc_start = Parsing.rhs_start_pos n; - loc_end = Parsing.rhs_end_pos n; - loc_ghost = false; -};; - -let input_name = ref "" -let input_lexbuf = ref (None : lexbuf option) - -(* Terminal info *) - -let status = ref Terminfo.Uninitialised - -let num_loc_lines = ref 0 (* number of lines already printed after input *) - -(* Highlight the location using standout mode. *) - -let highlight_terminfo ppf num_lines lb loc1 loc2 = - (* Char 0 is at offset -lb.lex_abs_pos in lb.lex_buffer. *) - let pos0 = -lb.lex_abs_pos in - (* Do nothing if the buffer does not contain the whole phrase. *) - if pos0 < 0 then raise Exit; - (* Count number of lines in phrase *) - let lines = ref !num_loc_lines in - for i = pos0 to lb.lex_buffer_len - 1 do - if lb.lex_buffer.[i] = '\n' then incr lines - done; - (* If too many lines, give up *) - if !lines >= num_lines - 2 then raise Exit; - (* Move cursor up that number of lines *) - flush stdout; Terminfo.backup !lines; - (* Print the input, switching to standout for the location *) - let bol = ref false in - print_string "# "; - for pos = 0 to lb.lex_buffer_len - pos0 - 1 do - if !bol then (print_string " "; bol := false); - if pos = loc1.loc_start.pos_cnum || pos = loc2.loc_start.pos_cnum then - Terminfo.standout true; - if pos = loc1.loc_end.pos_cnum || pos = loc2.loc_end.pos_cnum then - Terminfo.standout false; - let c = lb.lex_buffer.[pos + pos0] in - print_char c; - bol := (c = '\n') - done; - (* Make sure standout mode is over *) - Terminfo.standout false; - (* Position cursor back to original location *) - Terminfo.resume !num_loc_lines; - flush stdout - -(* Highlight the location by printing it again. *) - -let highlight_dumb ppf lb loc = - (* Char 0 is at offset -lb.lex_abs_pos in lb.lex_buffer. *) - let pos0 = -lb.lex_abs_pos in - (* Do nothing if the buffer does not contain the whole phrase. *) - if pos0 < 0 then raise Exit; - let end_pos = lb.lex_buffer_len - pos0 - 1 in - (* Determine line numbers for the start and end points *) - let line_start = ref 0 and line_end = ref 0 in - for pos = 0 to end_pos do - if lb.lex_buffer.[pos + pos0] = '\n' then begin - if loc.loc_start.pos_cnum > pos then incr line_start; - if loc.loc_end.pos_cnum > pos then incr line_end; - end - done; - (* Print character location (useful for Emacs) *) - Format.fprintf ppf "Characters %i-%i:@." - loc.loc_start.pos_cnum loc.loc_end.pos_cnum; - (* Print the input, underlining the location *) - print_string " "; - let line = ref 0 in - let pos_at_bol = ref 0 in - for pos = 0 to end_pos do - let c = lb.lex_buffer.[pos + pos0] in - if c <> '\n' then begin - if !line = !line_start && !line = !line_end then - (* loc is on one line: print whole line *) - print_char c - else if !line = !line_start then - (* first line of multiline loc: print ... before loc_start *) - if pos < loc.loc_start.pos_cnum - then print_char '.' - else print_char c - else if !line = !line_end then - (* last line of multiline loc: print ... after loc_end *) - if pos < loc.loc_end.pos_cnum - then print_char c - else print_char '.' - else if !line > !line_start && !line < !line_end then - (* intermediate line of multiline loc: print whole line *) - print_char c - end else begin - if !line = !line_start && !line = !line_end then begin - (* loc is on one line: underline location *) - print_string "\n "; - for i = !pos_at_bol to loc.loc_start.pos_cnum - 1 do - print_char ' ' - done; - for i = loc.loc_start.pos_cnum to loc.loc_end.pos_cnum - 1 do - print_char '^' - done - end; - if !line >= !line_start && !line <= !line_end then begin - print_char '\n'; - if pos < loc.loc_end.pos_cnum then print_string " " - end; - incr line; - pos_at_bol := pos + 1; - end - done - -(* Highlight the location using one of the supported modes. *) - -let rec highlight_locations ppf loc1 loc2 = - match !status with - Terminfo.Uninitialised -> - status := Terminfo.setup stdout; highlight_locations ppf loc1 loc2 - | Terminfo.Bad_term -> - begin match !input_lexbuf with - None -> false - | Some lb -> - let norepeat = - try Sys.getenv "TERM" = "norepeat" with Not_found -> false in - if norepeat then false else - try highlight_dumb ppf lb loc1; true - with Exit -> false - end - | Terminfo.Good_term num_lines -> - begin match !input_lexbuf with - None -> false - | Some lb -> - try highlight_terminfo ppf num_lines lb loc1 loc2; true - with Exit -> false - end - -(* Print the location in some way or another *) - -open Format - -let reset () = - num_loc_lines := 0 - -let (msg_file, msg_line, msg_chars, msg_to, msg_colon, msg_head) = - ("File \"", "\", line ", ", characters ", "-", ":", "") - -(* return file, line, char from the given position *) -let get_pos_info pos = - let (filename, linenum, linebeg) = - if pos.pos_fname = "" && !input_name = "" then - ("", -1, 0) - else if pos.pos_fname = "" then - Linenum.for_position !input_name pos.pos_cnum - else - (pos.pos_fname, pos.pos_lnum, pos.pos_bol) - in - (filename, linenum, pos.pos_cnum - linebeg) -;; - -let print ppf loc = - let (file, line, startchar) = get_pos_info loc.loc_start in - let endchar = loc.loc_end.pos_cnum - loc.loc_start.pos_cnum + startchar in - let (startchar, endchar) = - if startchar < 0 then (0, 1) else (startchar, endchar) - in - if file = "" then begin - if highlight_locations ppf loc none then () else - fprintf ppf "Characters %i-%i:@." - loc.loc_start.pos_cnum loc.loc_end.pos_cnum - end else begin - fprintf ppf "%s%s%s%i" msg_file file msg_line line; - fprintf ppf "%s%i" msg_chars startchar; - fprintf ppf "%s%i%s@.%s" msg_to endchar msg_colon msg_head; - end - -let print_warning loc ppf w = - if Warnings.is_active w then begin - let printw ppf w = - let n = Warnings.print ppf w in - num_loc_lines := !num_loc_lines + n - in - fprintf ppf "%a" print loc; - fprintf ppf "Warning %a@." printw w; - pp_print_flush ppf (); - incr num_loc_lines; - end -;; - -let prerr_warning loc w = print_warning loc err_formatter w;; - -let echo_eof () = - print_newline (); - incr num_loc_lines diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/location.mli b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/location.mli deleted file mode 100644 index d2f8b51a0f8e..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/location.mli +++ /dev/null @@ -1,56 +0,0 @@ -(***********************************************************************) -(* *) -(* Objective Caml *) -(* *) -(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) -(* *) -(* Copyright 1996 Institut National de Recherche en Informatique et *) -(* en Automatique. All rights reserved. This file is distributed *) -(* under the terms of the Q Public License version 1.0. *) -(* *) -(***********************************************************************) - -(* $Id: location.mli,v 1.1 2007/09/24 23:04:50 so294 Exp $ *) - -(* Source code locations (ranges of positions), used in parsetree. *) - -open Format - -type t = { - loc_start: Lexing.position; - loc_end: Lexing.position; - loc_ghost: bool; -} - -(* Note on the use of Lexing.position in this module. - If [pos_fname = ""], then use [!input_name] instead. - If [pos_lnum = -1], then [pos_bol = 0]. Use [pos_cnum] and - re-parse the file to get the line and character numbers. - Else all fields are correct. -*) - -val none : t -(** An arbitrary value of type [t]; describes an empty ghost range. *) -val in_file : string -> t;; -(** Return an empty ghost range located in a given file. *) -val init : Lexing.lexbuf -> string -> unit -(** Set the file name and line number of the [lexbuf] to be the start - of the named file. *) -val curr : Lexing.lexbuf -> t -(** Get the location of the current token from the [lexbuf]. *) - -val symbol_rloc: unit -> t -val symbol_gloc: unit -> t -val rhs_loc: int -> t - -val input_name: string ref -val input_lexbuf: Lexing.lexbuf option ref - -val get_pos_info : Lexing.position -> string * int * int (* file, line, char *) -val print: formatter -> t -> unit -val print_warning: t -> formatter -> Warnings.t -> unit -val prerr_warning: t -> Warnings.t -> unit -val echo_eof: unit -> unit -val reset: unit -> unit - -val highlight_locations: formatter -> t -> t -> bool diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/longident.ml b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/longident.ml deleted file mode 100644 index 2289b28bb914..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/longident.ml +++ /dev/null @@ -1,38 +0,0 @@ -(***********************************************************************) -(* *) -(* Objective Caml *) -(* *) -(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) -(* *) -(* Copyright 1996 Institut National de Recherche en Informatique et *) -(* en Automatique. All rights reserved. This file is distributed *) -(* under the terms of the Q Public License version 1.0. *) -(* *) -(***********************************************************************) - -(* $Id: longident.ml,v 1.1 2007/09/24 23:04:50 so294 Exp $ *) - -type t = - Lident of string - | Ldot of t * string - | Lapply of t * t - -let rec flat accu = function - Lident s -> s :: accu - | Ldot(lid, s) -> flat (s :: accu) lid - | Lapply(l1, l2) -> Misc.fatal_error "Longident.flat" - -let flatten lid = flat [] lid - -let rec split_at_dots s pos = - try - let dot = String.index_from s pos '.' in - String.sub s pos (dot - pos) :: split_at_dots s (dot + 1) - with Not_found -> - [String.sub s pos (String.length s - pos)] - -let parse s = - match split_at_dots s 0 with - [] -> Lident "" (* should not happen, but don't put assert false - so as not to crash the toplevel (see Genprintval) *) - | hd :: tl -> List.fold_left (fun p s -> Ldot(p, s)) (Lident hd) tl diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/longident.mli b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/longident.mli deleted file mode 100644 index 4b3635a92348..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/longident.mli +++ /dev/null @@ -1,23 +0,0 @@ -(***********************************************************************) -(* *) -(* Objective Caml *) -(* *) -(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) -(* *) -(* Copyright 1996 Institut National de Recherche en Informatique et *) -(* en Automatique. All rights reserved. This file is distributed *) -(* under the terms of the Q Public License version 1.0. *) -(* *) -(***********************************************************************) - -(* $Id: longident.mli,v 1.1 2007/09/24 23:04:50 so294 Exp $ *) - -(* Long identifiers, used in parsetree. *) - -type t = - Lident of string - | Ldot of t * string - | Lapply of t * t - -val flatten: t -> string list -val parse: string -> t diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/parse.ml b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/parse.ml deleted file mode 100644 index af6e6e5d17e0..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/parse.ml +++ /dev/null @@ -1,64 +0,0 @@ -(***********************************************************************) -(* *) -(* Objective Caml *) -(* *) -(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) -(* *) -(* Copyright 1996 Institut National de Recherche en Informatique et *) -(* en Automatique. All rights reserved. This file is distributed *) -(* under the terms of the Q Public License version 1.0. *) -(* *) -(***********************************************************************) - -(* $Id: parse.ml,v 1.1 2007/09/24 23:04:50 so294 Exp $ *) - -(* Entry points in the parser *) - -open Location - -(* Skip tokens to the end of the phrase *) - -let rec skip_phrase lexbuf = - try - match Lexer.token lexbuf with - Parser.SEMISEMI | Parser.EOF -> () - | _ -> skip_phrase lexbuf - with - | Lexer.Error (Lexer.Unterminated_comment, _) -> () - | Lexer.Error (Lexer.Unterminated_string, _) -> () - | Lexer.Error (Lexer.Unterminated_string_in_comment, _) -> () - | Lexer.Error (Lexer.Illegal_character _, _) -> skip_phrase lexbuf -;; - -let maybe_skip_phrase lexbuf = - if Parsing.is_current_lookahead Parser.SEMISEMI - || Parsing.is_current_lookahead Parser.EOF - then () - else skip_phrase lexbuf - -let wrap parsing_fun lexbuf = - try - let ast = parsing_fun Lexer.token lexbuf in - Parsing.clear_parser(); - ast - with - | Lexer.Error(Lexer.Unterminated_comment, _) as err -> raise err - | Lexer.Error(Lexer.Unterminated_string, _) as err -> raise err - | Lexer.Error(Lexer.Unterminated_string_in_comment, _) as err -> raise err - | Lexer.Error(Lexer.Illegal_character _, _) as err -> - if !Location.input_name = "" then skip_phrase lexbuf; - raise err - | Syntaxerr.Error _ as err -> - if !Location.input_name = "" then maybe_skip_phrase lexbuf; - raise err - | Parsing.Parse_error | Syntaxerr.Escape_error -> - let loc = Location.curr lexbuf in - if !Location.input_name = "" - then maybe_skip_phrase lexbuf; - raise(Syntaxerr.Error(Syntaxerr.Other loc)) -;; - -let implementation = wrap Parser.implementation -and interface = wrap Parser.interface -and toplevel_phrase = wrap Parser.toplevel_phrase -and use_file = wrap Parser.use_file diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/parse.mli b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/parse.mli deleted file mode 100644 index eb6dd88f4163..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/parse.mli +++ /dev/null @@ -1,21 +0,0 @@ -(***********************************************************************) -(* *) -(* Objective Caml *) -(* *) -(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) -(* *) -(* Copyright 1996 Institut National de Recherche en Informatique et *) -(* en Automatique. All rights reserved. This file is distributed *) -(* under the terms of the Q Public License version 1.0. *) -(* *) -(***********************************************************************) - -(* $Id: parse.mli,v 1.1 2007/09/24 23:04:50 so294 Exp $ *) - -(* Entry points in the parser *) - -val implementation : Lexing.lexbuf -> Parsetree.structure -val interface : Lexing.lexbuf -> Parsetree.signature -val toplevel_phrase : Lexing.lexbuf -> Parsetree.toplevel_phrase -val use_file : Lexing.lexbuf -> Parsetree.toplevel_phrase list - diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/parser.mly b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/parser.mly deleted file mode 100644 index a4c294b2f224..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/parser.mly +++ /dev/null @@ -1,1537 +0,0 @@ -/***********************************************************************/ -/* */ -/* Objective Caml */ -/* */ -/* Xavier Leroy, projet Cristal, INRIA Rocquencourt */ -/* */ -/* Copyright 1996 Institut National de Recherche en Informatique et */ -/* en Automatique. All rights reserved. This file is distributed */ -/* under the terms of the Q Public License version 1.0. */ -/* */ -/***********************************************************************/ - -/* $Id: parser.mly,v 1.1 2007/09/24 23:04:50 so294 Exp $ */ - -/* The parser definition */ - -%{ -open Location -open Asttypes -open Longident -open Parsetree - -let mktyp d = - { ptyp_desc = d; ptyp_loc = symbol_rloc() } -let mkpat d = - { ppat_desc = d; ppat_loc = symbol_rloc() } -let mkexp d = - { pexp_desc = d; pexp_loc = symbol_rloc() } -let mkmty d = - { pmty_desc = d; pmty_loc = symbol_rloc() } -let mksig d = - { psig_desc = d; psig_loc = symbol_rloc() } -let mkmod d = - { pmod_desc = d; pmod_loc = symbol_rloc() } -let mkstr d = - { pstr_desc = d; pstr_loc = symbol_rloc() } -let mkfield d = - { pfield_desc = d; pfield_loc = symbol_rloc() } -let mkclass d = - { pcl_desc = d; pcl_loc = symbol_rloc() } -let mkcty d = - { pcty_desc = d; pcty_loc = symbol_rloc() } - -let reloc_pat x = { x with ppat_loc = symbol_rloc () };; -let reloc_exp x = { x with pexp_loc = symbol_rloc () };; - -let mkoperator name pos = - { pexp_desc = Pexp_ident(Lident name); pexp_loc = rhs_loc pos } - -(* - Ghost expressions and patterns: - expressions and patterns that do not appear explicitely in the - source file they have the loc_ghost flag set to true. - Then the profiler will not try to instrument them and the - -stypes option will not try to display their type. - - Every grammar rule that generates an element with a location must - make at most one non-ghost element, the topmost one. - - How to tell whether your location must be ghost: - A location corresponds to a range of characters in the source file. - If the location contains a piece of code that is syntactically - valid (according to the documentation), and corresponds to the - AST node, then the location must be real; in all other cases, - it must be ghost. -*) -let ghexp d = { pexp_desc = d; pexp_loc = symbol_gloc () };; -let ghpat d = { ppat_desc = d; ppat_loc = symbol_gloc () };; -let ghtyp d = { ptyp_desc = d; ptyp_loc = symbol_gloc () };; - -let mkassert e = - match e with - | {pexp_desc = Pexp_construct (Lident "false", None, false) } -> - mkexp (Pexp_assertfalse) - | _ -> mkexp (Pexp_assert (e)) -;; - -let mkinfix arg1 name arg2 = - mkexp(Pexp_apply(mkoperator name 2, ["", arg1; "", arg2])) - -let neg_float_string f = - if String.length f > 0 && f.[0] = '-' - then String.sub f 1 (String.length f - 1) - else "-" ^ f - -let mkuminus name arg = - match name, arg.pexp_desc with - | "-", Pexp_constant(Const_int n) -> - mkexp(Pexp_constant(Const_int(-n))) - | "-", Pexp_constant(Const_int32 n) -> - mkexp(Pexp_constant(Const_int32(Int32.neg n))) - | "-", Pexp_constant(Const_int64 n) -> - mkexp(Pexp_constant(Const_int64(Int64.neg n))) - | "-", Pexp_constant(Const_nativeint n) -> - mkexp(Pexp_constant(Const_nativeint(Nativeint.neg n))) - | _, Pexp_constant(Const_float f) -> - mkexp(Pexp_constant(Const_float(neg_float_string f))) - | _ -> - mkexp(Pexp_apply(mkoperator ("~" ^ name) 1, ["", arg])) - -let rec mktailexp = function - [] -> - ghexp(Pexp_construct(Lident "[]", None, false)) - | e1 :: el -> - let exp_el = mktailexp el in - let l = {loc_start = e1.pexp_loc.loc_start; - loc_end = exp_el.pexp_loc.loc_end; - loc_ghost = true} - in - let arg = {pexp_desc = Pexp_tuple [e1; exp_el]; pexp_loc = l} in - {pexp_desc = Pexp_construct(Lident "::", Some arg, false); pexp_loc = l} - -let rec mktailpat = function - [] -> - ghpat(Ppat_construct(Lident "[]", None, false)) - | p1 :: pl -> - let pat_pl = mktailpat pl in - let l = {loc_start = p1.ppat_loc.loc_start; - loc_end = pat_pl.ppat_loc.loc_end; - loc_ghost = true} - in - let arg = {ppat_desc = Ppat_tuple [p1; pat_pl]; ppat_loc = l} in - {ppat_desc = Ppat_construct(Lident "::", Some arg, false); ppat_loc = l} - -let ghstrexp e = - { pstr_desc = Pstr_eval e; pstr_loc = {e.pexp_loc with loc_ghost = true} } - -let array_function str name = - Ldot(Lident str, (if !Clflags.fast then "unsafe_" ^ name else name)) - -let rec deep_mkrangepat c1 c2 = - if c1 = c2 then ghpat(Ppat_constant(Const_char c1)) else - ghpat(Ppat_or(ghpat(Ppat_constant(Const_char c1)), - deep_mkrangepat (Char.chr(Char.code c1 + 1)) c2)) - -let rec mkrangepat c1 c2 = - if c1 > c2 then mkrangepat c2 c1 else - if c1 = c2 then mkpat(Ppat_constant(Const_char c1)) else - reloc_pat (deep_mkrangepat c1 c2) - -let syntax_error () = - raise Syntaxerr.Escape_error - -let unclosed opening_name opening_num closing_name closing_num = - raise(Syntaxerr.Error(Syntaxerr.Unclosed(rhs_loc opening_num, opening_name, - rhs_loc closing_num, closing_name))) - -let bigarray_function str name = - Ldot(Ldot(Lident "Bigarray", str), name) - -let bigarray_untuplify = function - { pexp_desc = Pexp_tuple explist} -> explist - | exp -> [exp] - -let bigarray_get arr arg = - match bigarray_untuplify arg with - [c1] -> - mkexp(Pexp_apply(ghexp(Pexp_ident(bigarray_function "Array1" "get")), - ["", arr; "", c1])) - | [c1;c2] -> - mkexp(Pexp_apply(ghexp(Pexp_ident(bigarray_function "Array2" "get")), - ["", arr; "", c1; "", c2])) - | [c1;c2;c3] -> - mkexp(Pexp_apply(ghexp(Pexp_ident(bigarray_function "Array3" "get")), - ["", arr; "", c1; "", c2; "", c3])) - | coords -> - mkexp(Pexp_apply(ghexp(Pexp_ident(bigarray_function "Genarray" "get")), - ["", arr; "", ghexp(Pexp_array coords)])) - -let bigarray_set arr arg newval = - match bigarray_untuplify arg with - [c1] -> - mkexp(Pexp_apply(ghexp(Pexp_ident(bigarray_function "Array1" "set")), - ["", arr; "", c1; "", newval])) - | [c1;c2] -> - mkexp(Pexp_apply(ghexp(Pexp_ident(bigarray_function "Array2" "set")), - ["", arr; "", c1; "", c2; "", newval])) - | [c1;c2;c3] -> - mkexp(Pexp_apply(ghexp(Pexp_ident(bigarray_function "Array3" "set")), - ["", arr; "", c1; "", c2; "", c3; "", newval])) - | coords -> - mkexp(Pexp_apply(ghexp(Pexp_ident(bigarray_function "Genarray" "set")), - ["", arr; - "", ghexp(Pexp_array coords); - "", newval])) -%} - -/* Tokens */ - -%token AMPERAMPER -%token AMPERSAND -%token AND -%token AS -%token ASSERT -%token BACKQUOTE -%token BAR -%token BARBAR -%token BARRBRACKET -%token BEGIN -%token CHAR -%token CLASS -%token COLON -%token COLONCOLON -%token COLONEQUAL -%token COLONGREATER -%token COMMA -%token CONSTRAINT -%token DO -%token DONE -%token DOT -%token DOTDOT -%token DOWNTO -%token ELSE -%token END -%token EOF -%token EQUAL -%token EXCEPTION -%token EXTERNAL -%token FALSE -%token FLOAT -%token FOR -%token FUN -%token FUNCTION -%token FUNCTOR -%token GREATER -%token GREATERRBRACE -%token GREATERRBRACKET -%token IF -%token IN -%token INCLUDE -%token INFIXOP0 -%token INFIXOP1 -%token INFIXOP2 -%token INFIXOP3 -%token INFIXOP4 -%token INHERIT -%token INITIALIZER -%token INT -%token INT32 -%token INT64 -%token LABEL -%token LAZY -%token LBRACE -%token LBRACELESS -%token LBRACKET -%token LBRACKETBAR -%token LBRACKETLESS -%token LBRACKETGREATER -%token LESS -%token LESSMINUS -%token LET -%token LIDENT -%token LPAREN -%token MATCH -%token METHOD -%token MINUS -%token MINUSDOT -%token MINUSGREATER -%token MODULE -%token MUTABLE -%token NATIVEINT -%token NEW -%token OBJECT -%token OF -%token OPEN -%token OPTLABEL -%token OR -/* %token PARSER */ -%token PLUS -%token PREFIXOP -%token PRIVATE -%token QUESTION -%token QUESTIONQUESTION -%token QUOTE -%token RBRACE -%token RBRACKET -%token REC -%token RPAREN -%token SEMI -%token SEMISEMI -%token SHARP -%token SIG -%token STAR -%token STRING -%token STRUCT -%token THEN -%token TILDE -%token TO -%token TRUE -%token TRY -%token TYPE -%token UIDENT -%token UNDERSCORE -%token VAL -%token VIRTUAL -%token WHEN -%token WHILE -%token WITH - -/* Precedences and associativities. - -Tokens and rules have precedences. A reduce/reduce conflict is resolved -in favor of the first rule (in source file order). A shift/reduce conflict -is resolved by comparing the precedence and associativity of the token to -be shifted with those of the rule to be reduced. - -By default, a rule has the precedence of its rightmost terminal (if any). - -When there is a shift/reduce conflict between a rule and a token that -have the same precedence, it is resolved using the associativity: -if the token is left-associative, the parser will reduce; if -right-associative, the parser will shift; if non-associative, -the parser will declare a syntax error. - -We will only use associativities with operators of the kind x * x -> x -for example, in the rules of the form expr: expr BINOP expr -in all other cases, we define two precedences if needed to resolve -conflicts. - -The precedences must be listed from low to high. -*/ - -%nonassoc IN -%nonassoc below_SEMI -%nonassoc SEMI /* below EQUAL ({lbl=...; lbl=...}) */ -%nonassoc LET /* above SEMI ( ...; let ... in ...) */ -%nonassoc below_WITH -%nonassoc FUNCTION WITH /* below BAR (match ... with ...) */ -%nonassoc AND /* above WITH (module rec A: SIG with ... and ...) */ -%nonassoc THEN /* below ELSE (if ... then ...) */ -%nonassoc ELSE /* (if ... then ... else ...) */ -%nonassoc LESSMINUS /* below COLONEQUAL (lbl <- x := e) */ -%right COLONEQUAL /* expr (e := e := e) */ -%nonassoc AS -%left BAR /* pattern (p|p|p) */ -%nonassoc below_COMMA -%left COMMA /* expr/expr_comma_list (e,e,e) */ -%right MINUSGREATER /* core_type2 (t -> t -> t) */ -%right OR BARBAR /* expr (e || e || e) */ -%right AMPERSAND AMPERAMPER /* expr (e && e && e) */ -%nonassoc below_EQUAL -%left INFIXOP0 EQUAL LESS GREATER /* expr (e OP e OP e) */ -%right INFIXOP1 /* expr (e OP e OP e) */ -%right COLONCOLON /* expr (e :: e :: e) */ -%left INFIXOP2 PLUS MINUS MINUSDOT /* expr (e OP e OP e) */ -%left INFIXOP3 STAR /* expr (e OP e OP e) */ -%right INFIXOP4 /* expr (e OP e OP e) */ -%nonassoc prec_unary_minus /* unary - */ -%nonassoc prec_constant_constructor /* cf. simple_expr (C versus C x) */ -%nonassoc prec_constr_appl /* above AS BAR COLONCOLON COMMA */ -%nonassoc below_SHARP -%nonassoc SHARP /* simple_expr/toplevel_directive */ -%nonassoc below_DOT -%nonassoc DOT -/* Finally, the first tokens of simple_expr are above everything else. */ -%nonassoc BACKQUOTE BEGIN CHAR FALSE FLOAT INT INT32 INT64 - LBRACE LBRACELESS LBRACKET LBRACKETBAR LIDENT LPAREN - NEW NATIVEINT PREFIXOP STRING TRUE UIDENT - - -/* Entry points */ - -%start implementation /* for implementation files */ -%type implementation -%start interface /* for interface files */ -%type interface -%start toplevel_phrase /* for interactive use */ -%type toplevel_phrase -%start use_file /* for the #use directive */ -%type use_file - -%% - -/* Entry points */ - -implementation: - structure EOF { $1 } -; -interface: - signature EOF { List.rev $1 } -; -toplevel_phrase: - top_structure SEMISEMI { Ptop_def $1 } - | seq_expr SEMISEMI { Ptop_def[ghstrexp $1] } - | toplevel_directive SEMISEMI { $1 } - | EOF { raise End_of_file } -; -top_structure: - structure_item { [$1] } - | structure_item top_structure { $1 :: $2 } -; -use_file: - use_file_tail { $1 } - | seq_expr use_file_tail { Ptop_def[ghstrexp $1] :: $2 } -; -use_file_tail: - EOF { [] } - | SEMISEMI EOF { [] } - | SEMISEMI seq_expr use_file_tail { Ptop_def[ghstrexp $2] :: $3 } - | SEMISEMI structure_item use_file_tail { Ptop_def[$2] :: $3 } - | SEMISEMI toplevel_directive use_file_tail { $2 :: $3 } - | structure_item use_file_tail { Ptop_def[$1] :: $2 } - | toplevel_directive use_file_tail { $1 :: $2 } -; - -/* Module expressions */ - -module_expr: - mod_longident - { mkmod(Pmod_ident $1) } - | STRUCT structure END - { mkmod(Pmod_structure($2)) } - | STRUCT structure error - { unclosed "struct" 1 "end" 3 } - | FUNCTOR LPAREN UIDENT COLON module_type RPAREN MINUSGREATER module_expr - { mkmod(Pmod_functor($3, $5, $8)) } - | module_expr LPAREN module_expr RPAREN - { mkmod(Pmod_apply($1, $3)) } - | module_expr LPAREN module_expr error - { unclosed "(" 2 ")" 4 } - | LPAREN module_expr COLON module_type RPAREN - { mkmod(Pmod_constraint($2, $4)) } - | LPAREN module_expr COLON module_type error - { unclosed "(" 1 ")" 5 } - | LPAREN module_expr RPAREN - { $2 } - | LPAREN module_expr error - { unclosed "(" 1 ")" 3 } -; -structure: - structure_tail { $1 } - | seq_expr structure_tail { ghstrexp $1 :: $2 } -; -structure_tail: - /* empty */ { [] } - | SEMISEMI { [] } - | SEMISEMI seq_expr structure_tail { ghstrexp $2 :: $3 } - | SEMISEMI structure_item structure_tail { $2 :: $3 } - | structure_item structure_tail { $1 :: $2 } -; -structure_item: - LET rec_flag let_bindings - { match $3 with - [{ppat_desc = Ppat_any}, exp] -> mkstr(Pstr_eval exp) - | _ -> mkstr(Pstr_value($2, List.rev $3)) } - | EXTERNAL val_ident_colon core_type EQUAL primitive_declaration - { mkstr(Pstr_primitive($2, {pval_type = $3; pval_prim = $5})) } - | TYPE type_declarations - { mkstr(Pstr_type(List.rev $2)) } - | EXCEPTION UIDENT constructor_arguments - { mkstr(Pstr_exception($2, $3)) } - | EXCEPTION UIDENT EQUAL constr_longident - { mkstr(Pstr_exn_rebind($2, $4)) } - | MODULE UIDENT module_binding - { mkstr(Pstr_module($2, $3)) } - | MODULE REC module_rec_bindings - { mkstr(Pstr_recmodule(List.rev $3)) } - | MODULE TYPE ident EQUAL module_type - { mkstr(Pstr_modtype($3, $5)) } - | OPEN mod_longident - { mkstr(Pstr_open $2) } - | CLASS class_declarations - { mkstr(Pstr_class (List.rev $2)) } - | CLASS TYPE class_type_declarations - { mkstr(Pstr_class_type (List.rev $3)) } - | INCLUDE module_expr - { mkstr(Pstr_include $2) } -; -module_binding: - EQUAL module_expr - { $2 } - | COLON module_type EQUAL module_expr - { mkmod(Pmod_constraint($4, $2)) } - | LPAREN UIDENT COLON module_type RPAREN module_binding - { mkmod(Pmod_functor($2, $4, $6)) } -; -module_rec_bindings: - module_rec_binding { [$1] } - | module_rec_bindings AND module_rec_binding { $3 :: $1 } -; -module_rec_binding: - UIDENT COLON module_type EQUAL module_expr { ($1, $3, $5) } -; - -/* Module types */ - -module_type: - mty_longident - { mkmty(Pmty_ident $1) } - | SIG signature END - { mkmty(Pmty_signature(List.rev $2)) } - | SIG signature error - { unclosed "sig" 1 "end" 3 } - | FUNCTOR LPAREN UIDENT COLON module_type RPAREN MINUSGREATER module_type - %prec below_WITH - { mkmty(Pmty_functor($3, $5, $8)) } - | module_type WITH with_constraints - { mkmty(Pmty_with($1, List.rev $3)) } - | LPAREN module_type RPAREN - { $2 } - | LPAREN module_type error - { unclosed "(" 1 ")" 3 } -; -signature: - /* empty */ { [] } - | signature signature_item { $2 :: $1 } - | signature signature_item SEMISEMI { $2 :: $1 } -; -signature_item: - VAL val_ident_colon core_type - { mksig(Psig_value($2, {pval_type = $3; pval_prim = []})) } - | EXTERNAL val_ident_colon core_type EQUAL primitive_declaration - { mksig(Psig_value($2, {pval_type = $3; pval_prim = $5})) } - | TYPE type_declarations - { mksig(Psig_type(List.rev $2)) } - | EXCEPTION UIDENT constructor_arguments - { mksig(Psig_exception($2, $3)) } - | MODULE UIDENT module_declaration - { mksig(Psig_module($2, $3)) } - | MODULE REC module_rec_declarations - { mksig(Psig_recmodule(List.rev $3)) } - | MODULE TYPE ident - { mksig(Psig_modtype($3, Pmodtype_abstract)) } - | MODULE TYPE ident EQUAL module_type - { mksig(Psig_modtype($3, Pmodtype_manifest $5)) } - | OPEN mod_longident - { mksig(Psig_open $2) } - | INCLUDE module_type - { mksig(Psig_include $2) } - | CLASS class_descriptions - { mksig(Psig_class (List.rev $2)) } - | CLASS TYPE class_type_declarations - { mksig(Psig_class_type (List.rev $3)) } -; - -module_declaration: - COLON module_type - { $2 } - | LPAREN UIDENT COLON module_type RPAREN module_declaration - { mkmty(Pmty_functor($2, $4, $6)) } -; -module_rec_declarations: - module_rec_declaration { [$1] } - | module_rec_declarations AND module_rec_declaration { $3 :: $1 } -; -module_rec_declaration: - UIDENT COLON module_type { ($1, $3) } -; - -/* Class expressions */ - -class_declarations: - class_declarations AND class_declaration { $3 :: $1 } - | class_declaration { [$1] } -; -class_declaration: - virtual_flag class_type_parameters LIDENT class_fun_binding - { let params, variance = List.split (fst $2) in - {pci_virt = $1; pci_params = params, snd $2; - pci_name = $3; pci_expr = $4; pci_variance = variance; - pci_loc = symbol_rloc ()} } -; -class_fun_binding: - EQUAL class_expr - { $2 } - | COLON class_type EQUAL class_expr - { mkclass(Pcl_constraint($4, $2)) } - | labeled_simple_pattern class_fun_binding - { let (l,o,p) = $1 in mkclass(Pcl_fun(l, o, p, $2)) } -; -class_type_parameters: - /*empty*/ { [], symbol_gloc () } - | LBRACKET type_parameter_list RBRACKET { List.rev $2, symbol_rloc () } -; -class_fun_def: - labeled_simple_pattern MINUSGREATER class_expr - { let (l,o,p) = $1 in mkclass(Pcl_fun(l, o, p, $3)) } - | labeled_simple_pattern class_fun_def - { let (l,o,p) = $1 in mkclass(Pcl_fun(l, o, p, $2)) } -; -class_expr: - class_simple_expr - { $1 } - | FUN class_fun_def - { $2 } - | class_simple_expr simple_labeled_expr_list - { mkclass(Pcl_apply($1, List.rev $2)) } - | LET rec_flag let_bindings IN class_expr - { mkclass(Pcl_let ($2, List.rev $3, $5)) } -; -class_simple_expr: - LBRACKET core_type_comma_list RBRACKET class_longident - { mkclass(Pcl_constr($4, List.rev $2)) } - | class_longident - { mkclass(Pcl_constr($1, [])) } - | OBJECT class_structure END - { mkclass(Pcl_structure($2)) } - | OBJECT class_structure error - { unclosed "object" 1 "end" 3 } - | LPAREN class_expr COLON class_type RPAREN - { mkclass(Pcl_constraint($2, $4)) } - | LPAREN class_expr COLON class_type error - { unclosed "(" 1 ")" 5 } - | LPAREN class_expr RPAREN - { $2 } - | LPAREN class_expr error - { unclosed "(" 1 ")" 3 } -; -class_structure: - class_self_pattern class_fields - { $1, List.rev $2 } -; -class_self_pattern: - LPAREN pattern RPAREN - { reloc_pat $2 } - | LPAREN pattern COLON core_type RPAREN - { mkpat(Ppat_constraint($2, $4)) } - | /* empty */ - { ghpat(Ppat_any) } -; -class_fields: - /* empty */ - { [] } - | class_fields INHERIT class_expr parent_binder - { Pcf_inher ($3, $4) :: $1 } - | class_fields VAL virtual_value - { Pcf_valvirt $3 :: $1 } - | class_fields VAL value - { Pcf_val $3 :: $1 } - | class_fields virtual_method - { Pcf_virt $2 :: $1 } - | class_fields concrete_method - { Pcf_meth $2 :: $1 } - | class_fields CONSTRAINT constrain - { Pcf_cstr $3 :: $1 } - | class_fields INITIALIZER seq_expr - { Pcf_init $3 :: $1 } -; -parent_binder: - AS LIDENT - { Some $2 } - | /* empty */ - { None } -; -virtual_value: - MUTABLE VIRTUAL label COLON core_type - { $3, Mutable, $5, symbol_rloc () } - | VIRTUAL mutable_flag label COLON core_type - { $3, $2, $5, symbol_rloc () } -; -value: - mutable_flag label EQUAL seq_expr - { $2, $1, $4, symbol_rloc () } - | mutable_flag label type_constraint EQUAL seq_expr - { $2, $1, (let (t, t') = $3 in ghexp(Pexp_constraint($5, t, t'))), - symbol_rloc () } -; -virtual_method: - METHOD PRIVATE VIRTUAL label COLON poly_type - { $4, Private, $6, symbol_rloc () } - | METHOD VIRTUAL private_flag label COLON poly_type - { $4, $3, $6, symbol_rloc () } -; -concrete_method : - METHOD private_flag label strict_binding - { $3, $2, ghexp(Pexp_poly ($4, None)), symbol_rloc () } - | METHOD private_flag label COLON poly_type EQUAL seq_expr - { $3, $2, ghexp(Pexp_poly($7,Some $5)), symbol_rloc () } - | METHOD private_flag LABEL poly_type EQUAL seq_expr - { $3, $2, ghexp(Pexp_poly($6,Some $4)), symbol_rloc () } -; - -/* Class types */ - -class_type: - class_signature - { $1 } - | QUESTION LIDENT COLON simple_core_type_or_tuple MINUSGREATER class_type - { mkcty(Pcty_fun("?" ^ $2 , - {ptyp_desc = Ptyp_constr(Lident "option", [$4]); - ptyp_loc = $4.ptyp_loc}, - $6)) } - | OPTLABEL simple_core_type_or_tuple MINUSGREATER class_type - { mkcty(Pcty_fun("?" ^ $1 , - {ptyp_desc = Ptyp_constr(Lident "option", [$2]); - ptyp_loc = $2.ptyp_loc}, - $4)) } - | LIDENT COLON simple_core_type_or_tuple MINUSGREATER class_type - { mkcty(Pcty_fun($1, $3, $5)) } - | simple_core_type_or_tuple MINUSGREATER class_type - { mkcty(Pcty_fun("", $1, $3)) } -; -class_signature: - LBRACKET core_type_comma_list RBRACKET clty_longident - { mkcty(Pcty_constr ($4, List.rev $2)) } - | clty_longident - { mkcty(Pcty_constr ($1, [])) } - | OBJECT class_sig_body END - { mkcty(Pcty_signature $2) } - | OBJECT class_sig_body error - { unclosed "object" 1 "end" 3 } -; -class_sig_body: - class_self_type class_sig_fields - { $1, List.rev $2 } -; -class_self_type: - LPAREN core_type RPAREN - { $2 } - | /* empty */ - { mktyp(Ptyp_any) } -; -class_sig_fields: - /* empty */ { [] } - | class_sig_fields INHERIT class_signature { Pctf_inher $3 :: $1 } - | class_sig_fields VAL value_type { Pctf_val $3 :: $1 } - | class_sig_fields virtual_method { Pctf_virt $2 :: $1 } - | class_sig_fields method_type { Pctf_meth $2 :: $1 } - | class_sig_fields CONSTRAINT constrain { Pctf_cstr $3 :: $1 } -; -value_type: - VIRTUAL mutable_flag label COLON core_type - { $3, $2, Virtual, $5, symbol_rloc () } - | MUTABLE virtual_flag label COLON core_type - { $3, Mutable, $2, $5, symbol_rloc () } - | label COLON core_type - { $1, Immutable, Concrete, $3, symbol_rloc () } -; -method_type: - METHOD private_flag label COLON poly_type - { $3, $2, $5, symbol_rloc () } -; -constrain: - core_type EQUAL core_type { $1, $3, symbol_rloc () } -; -class_descriptions: - class_descriptions AND class_description { $3 :: $1 } - | class_description { [$1] } -; -class_description: - virtual_flag class_type_parameters LIDENT COLON class_type - { let params, variance = List.split (fst $2) in - {pci_virt = $1; pci_params = params, snd $2; - pci_name = $3; pci_expr = $5; pci_variance = variance; - pci_loc = symbol_rloc ()} } -; -class_type_declarations: - class_type_declarations AND class_type_declaration { $3 :: $1 } - | class_type_declaration { [$1] } -; -class_type_declaration: - virtual_flag class_type_parameters LIDENT EQUAL class_signature - { let params, variance = List.split (fst $2) in - {pci_virt = $1; pci_params = params, snd $2; - pci_name = $3; pci_expr = $5; pci_variance = variance; - pci_loc = symbol_rloc ()} } -; - -/* Core expressions */ - -seq_expr: - | expr %prec below_SEMI { $1 } - | expr SEMI { reloc_exp $1 } - | expr SEMI seq_expr { mkexp(Pexp_sequence($1, $3)) } -; -labeled_simple_pattern: - QUESTION LPAREN label_let_pattern opt_default RPAREN - { ("?" ^ fst $3, $4, snd $3) } - | QUESTION label_var - { ("?" ^ fst $2, None, snd $2) } - | OPTLABEL LPAREN let_pattern opt_default RPAREN - { ("?" ^ $1, $4, $3) } - | OPTLABEL pattern_var - { ("?" ^ $1, None, $2) } - | TILDE LPAREN label_let_pattern RPAREN - { (fst $3, None, snd $3) } - | TILDE label_var - { (fst $2, None, snd $2) } - | LABEL simple_pattern - { ($1, None, $2) } - | simple_pattern - { ("", None, $1) } -; -pattern_var: - LIDENT { mkpat(Ppat_var $1) } - | UNDERSCORE { mkpat Ppat_any } -; -opt_default: - /* empty */ { None } - | EQUAL seq_expr { Some $2 } -; -label_let_pattern: - label_var - { $1 } - | label_var COLON core_type - { let (lab, pat) = $1 in (lab, mkpat(Ppat_constraint(pat, $3))) } -; -label_var: - LIDENT { ($1, mkpat(Ppat_var $1)) } -; -let_pattern: - pattern - { $1 } - | pattern COLON core_type - { mkpat(Ppat_constraint($1, $3)) } -; -expr: - simple_expr %prec below_SHARP - { $1 } - | simple_expr simple_labeled_expr_list - { mkexp(Pexp_apply($1, List.rev $2)) } - | LET rec_flag let_bindings IN seq_expr - { mkexp(Pexp_let($2, List.rev $3, $5)) } - | LET MODULE UIDENT module_binding IN seq_expr - { mkexp(Pexp_letmodule($3, $4, $6)) } - | FUNCTION opt_bar match_cases - { mkexp(Pexp_function("", None, List.rev $3)) } - | FUN labeled_simple_pattern fun_def - { let (l,o,p) = $2 in mkexp(Pexp_function(l, o, [p, $3])) } - | MATCH seq_expr WITH opt_bar match_cases - { mkexp(Pexp_match($2, List.rev $5)) } - | TRY seq_expr WITH opt_bar match_cases - { mkexp(Pexp_try($2, List.rev $5)) } - | TRY seq_expr WITH error - { syntax_error() } - | expr_comma_list %prec below_COMMA - { mkexp(Pexp_tuple(List.rev $1)) } - | constr_longident simple_expr %prec below_SHARP - { mkexp(Pexp_construct($1, Some $2, false)) } - | name_tag simple_expr %prec below_SHARP - { mkexp(Pexp_variant($1, Some $2)) } - | IF seq_expr THEN expr ELSE expr - { mkexp(Pexp_ifthenelse($2, $4, Some $6)) } - | IF seq_expr THEN expr - { mkexp(Pexp_ifthenelse($2, $4, None)) } - | WHILE seq_expr DO seq_expr DONE - { mkexp(Pexp_while($2, $4)) } - | FOR val_ident EQUAL seq_expr direction_flag seq_expr DO seq_expr DONE - { mkexp(Pexp_for($2, $4, $6, $5, $8)) } - | expr COLONCOLON expr - { mkexp(Pexp_construct(Lident "::", - Some(ghexp(Pexp_tuple[$1;$3])), - false)) } - | LPAREN COLONCOLON RPAREN LPAREN expr COMMA expr RPAREN - { mkexp(Pexp_construct(Lident "::", - Some(ghexp(Pexp_tuple[$5;$7])), - false)) } - | expr INFIXOP0 expr - { mkinfix $1 $2 $3 } - | expr INFIXOP1 expr - { mkinfix $1 $2 $3 } - | expr INFIXOP2 expr - { mkinfix $1 $2 $3 } - | expr INFIXOP3 expr - { mkinfix $1 $2 $3 } - | expr INFIXOP4 expr - { mkinfix $1 $2 $3 } - | expr PLUS expr - { mkinfix $1 "+" $3 } - | expr MINUS expr - { mkinfix $1 "-" $3 } - | expr MINUSDOT expr - { mkinfix $1 "-." $3 } - | expr STAR expr - { mkinfix $1 "*" $3 } - | expr EQUAL expr - { mkinfix $1 "=" $3 } - | expr LESS expr - { mkinfix $1 "<" $3 } - | expr GREATER expr - { mkinfix $1 ">" $3 } - | expr OR expr - { mkinfix $1 "or" $3 } - | expr BARBAR expr - { mkinfix $1 "||" $3 } - | expr AMPERSAND expr - { mkinfix $1 "&" $3 } - | expr AMPERAMPER expr - { mkinfix $1 "&&" $3 } - | expr COLONEQUAL expr - { mkinfix $1 ":=" $3 } - | subtractive expr %prec prec_unary_minus - { mkuminus $1 $2 } - | simple_expr DOT label_longident LESSMINUS expr - { mkexp(Pexp_setfield($1, $3, $5)) } - | simple_expr DOT LPAREN seq_expr RPAREN LESSMINUS expr - { mkexp(Pexp_apply(ghexp(Pexp_ident(array_function "Array" "set")), - ["",$1; "",$4; "",$7])) } - | simple_expr DOT LBRACKET seq_expr RBRACKET LESSMINUS expr - { mkexp(Pexp_apply(ghexp(Pexp_ident(array_function "String" "set")), - ["",$1; "",$4; "",$7])) } - | simple_expr DOT LBRACE expr RBRACE LESSMINUS expr - { bigarray_set $1 $4 $7 } - | label LESSMINUS expr - { mkexp(Pexp_setinstvar($1, $3)) } - | ASSERT simple_expr %prec below_SHARP - { mkassert $2 } - | LAZY simple_expr %prec below_SHARP - { mkexp (Pexp_lazy ($2)) } - | OBJECT class_structure END - { mkexp (Pexp_object($2)) } - | OBJECT class_structure error - { unclosed "object" 1 "end" 3 } -; -simple_expr: - val_longident - { mkexp(Pexp_ident $1) } - | constant - { mkexp(Pexp_constant $1) } - | constr_longident %prec prec_constant_constructor - { mkexp(Pexp_construct($1, None, false)) } - | name_tag %prec prec_constant_constructor - { mkexp(Pexp_variant($1, None)) } - | LPAREN seq_expr RPAREN - { reloc_exp $2 } - | LPAREN seq_expr error - { unclosed "(" 1 ")" 3 } - | BEGIN seq_expr END - { reloc_exp $2 } - | BEGIN END - { mkexp (Pexp_construct (Lident "()", None, false)) } - | BEGIN seq_expr error - { unclosed "begin" 1 "end" 3 } - | LPAREN seq_expr type_constraint RPAREN - { let (t, t') = $3 in mkexp(Pexp_constraint($2, t, t')) } - | simple_expr DOT label_longident - { mkexp(Pexp_field($1, $3)) } - | simple_expr DOT LPAREN seq_expr RPAREN - { mkexp(Pexp_apply(ghexp(Pexp_ident(array_function "Array" "get")), - ["",$1; "",$4])) } - | simple_expr DOT LPAREN seq_expr error - { unclosed "(" 3 ")" 5 } - | simple_expr DOT LBRACKET seq_expr RBRACKET - { mkexp(Pexp_apply(ghexp(Pexp_ident(array_function "String" "get")), - ["",$1; "",$4])) } - | simple_expr DOT LBRACKET seq_expr error - { unclosed "[" 3 "]" 5 } - | simple_expr DOT LBRACE expr RBRACE - { bigarray_get $1 $4 } - | simple_expr DOT LBRACE expr_comma_list error - { unclosed "{" 3 "}" 5 } - | LBRACE record_expr RBRACE - { let (exten, fields) = $2 in mkexp(Pexp_record(fields, exten)) } - | LBRACE record_expr error - { unclosed "{" 1 "}" 3 } - | LBRACKETBAR expr_semi_list opt_semi BARRBRACKET - { mkexp(Pexp_array(List.rev $2)) } - | LBRACKETBAR expr_semi_list opt_semi error - { unclosed "[|" 1 "|]" 4 } - | LBRACKETBAR BARRBRACKET - { mkexp(Pexp_array []) } - | LBRACKET expr_semi_list opt_semi RBRACKET - { reloc_exp (mktailexp (List.rev $2)) } - | LBRACKET expr_semi_list opt_semi error - { unclosed "[" 1 "]" 4 } - | PREFIXOP simple_expr - { mkexp(Pexp_apply(mkoperator $1 1, ["",$2])) } - | NEW class_longident - { mkexp(Pexp_new($2)) } - | LBRACELESS field_expr_list opt_semi GREATERRBRACE - { mkexp(Pexp_override(List.rev $2)) } - | LBRACELESS field_expr_list opt_semi error - { unclosed "{<" 1 ">}" 4 } - | LBRACELESS GREATERRBRACE - { mkexp(Pexp_override []) } - | simple_expr SHARP label - { mkexp(Pexp_send($1, $3)) } -; -simple_labeled_expr_list: - labeled_simple_expr - { [$1] } - | simple_labeled_expr_list labeled_simple_expr - { $2 :: $1 } -; -labeled_simple_expr: - simple_expr %prec below_SHARP - { ("", $1) } - | label_expr - { $1 } -; -label_expr: - LABEL simple_expr %prec below_SHARP - { ($1, $2) } - | TILDE label_ident - { $2 } - | QUESTION label_ident - { ("?" ^ fst $2, snd $2) } - | OPTLABEL simple_expr %prec below_SHARP - { ("?" ^ $1, $2) } -; -label_ident: - LIDENT { ($1, mkexp(Pexp_ident(Lident $1))) } -; -let_bindings: - let_binding { [$1] } - | let_bindings AND let_binding { $3 :: $1 } -; -let_binding: - val_ident fun_binding - { ({ppat_desc = Ppat_var $1; ppat_loc = rhs_loc 1}, $2) } - | pattern EQUAL seq_expr - { ($1, $3) } -; -fun_binding: - strict_binding - { $1 } - | type_constraint EQUAL seq_expr - { let (t, t') = $1 in ghexp(Pexp_constraint($3, t, t')) } -; -strict_binding: - EQUAL seq_expr - { $2 } - | labeled_simple_pattern fun_binding - { let (l, o, p) = $1 in ghexp(Pexp_function(l, o, [p, $2])) } -; -match_cases: - pattern match_action { [$1, $2] } - | match_cases BAR pattern match_action { ($3, $4) :: $1 } -; -fun_def: - match_action { $1 } - | labeled_simple_pattern fun_def - { let (l,o,p) = $1 in ghexp(Pexp_function(l, o, [p, $2])) } -; -match_action: - MINUSGREATER seq_expr { $2 } - | WHEN seq_expr MINUSGREATER seq_expr { mkexp(Pexp_when($2, $4)) } -; -expr_comma_list: - expr_comma_list COMMA expr { $3 :: $1 } - | expr COMMA expr { [$3; $1] } -; -record_expr: - simple_expr WITH lbl_expr_list opt_semi { (Some $1, List.rev $3) } - | lbl_expr_list opt_semi { (None, List.rev $1) } -; -lbl_expr_list: - label_longident EQUAL expr - { [$1,$3] } - | lbl_expr_list SEMI label_longident EQUAL expr - { ($3, $5) :: $1 } -; -field_expr_list: - label EQUAL expr - { [$1,$3] } - | field_expr_list SEMI label EQUAL expr - { ($3, $5) :: $1 } -; -expr_semi_list: - expr { [$1] } - | expr_semi_list SEMI expr { $3 :: $1 } -; -type_constraint: - COLON core_type { (Some $2, None) } - | COLON core_type COLONGREATER core_type { (Some $2, Some $4) } - | COLONGREATER core_type { (None, Some $2) } - | COLON error { syntax_error() } - | COLONGREATER error { syntax_error() } -; - -/* Patterns */ - -pattern: - simple_pattern - { $1 } - | pattern AS val_ident - { mkpat(Ppat_alias($1, $3)) } - | pattern_comma_list %prec below_COMMA - { mkpat(Ppat_tuple(List.rev $1)) } - | constr_longident pattern %prec prec_constr_appl - { mkpat(Ppat_construct($1, Some $2, false)) } - | name_tag pattern %prec prec_constr_appl - { mkpat(Ppat_variant($1, Some $2)) } - | pattern COLONCOLON pattern - { mkpat(Ppat_construct(Lident "::", Some(ghpat(Ppat_tuple[$1;$3])), - false)) } - | LPAREN COLONCOLON RPAREN LPAREN pattern COMMA pattern RPAREN - { mkpat(Ppat_construct(Lident "::", Some(ghpat(Ppat_tuple[$5;$7])), - false)) } - | pattern BAR pattern - { mkpat(Ppat_or($1, $3)) } -; -simple_pattern: - val_ident %prec below_EQUAL - { mkpat(Ppat_var $1) } - | UNDERSCORE - { mkpat(Ppat_any) } - | signed_constant - { mkpat(Ppat_constant $1) } - | CHAR DOTDOT CHAR - { mkrangepat $1 $3 } - | constr_longident - { mkpat(Ppat_construct($1, None, false)) } - | name_tag - { mkpat(Ppat_variant($1, None)) } - | SHARP type_longident - { mkpat(Ppat_type $2) } - | LBRACE lbl_pattern_list opt_semi RBRACE - { mkpat(Ppat_record(List.rev $2)) } - | LBRACE lbl_pattern_list opt_semi error - { unclosed "{" 1 "}" 4 } - | LBRACKET pattern_semi_list opt_semi RBRACKET - { reloc_pat (mktailpat (List.rev $2)) } - | LBRACKET pattern_semi_list opt_semi error - { unclosed "[" 1 "]" 4 } - | LBRACKETBAR pattern_semi_list opt_semi BARRBRACKET - { mkpat(Ppat_array(List.rev $2)) } - | LBRACKETBAR BARRBRACKET - { mkpat(Ppat_array []) } - | LBRACKETBAR pattern_semi_list opt_semi error - { unclosed "[|" 1 "|]" 4 } - | LPAREN pattern RPAREN - { reloc_pat $2 } - | LPAREN pattern error - { unclosed "(" 1 ")" 3 } - | LPAREN pattern COLON core_type RPAREN - { mkpat(Ppat_constraint($2, $4)) } - | LPAREN pattern COLON core_type error - { unclosed "(" 1 ")" 5 } -; - -pattern_comma_list: - pattern_comma_list COMMA pattern { $3 :: $1 } - | pattern COMMA pattern { [$3; $1] } -; -pattern_semi_list: - pattern { [$1] } - | pattern_semi_list SEMI pattern { $3 :: $1 } -; -lbl_pattern_list: - label_longident EQUAL pattern { [($1, $3)] } - | lbl_pattern_list SEMI label_longident EQUAL pattern { ($3, $5) :: $1 } -; - -/* Primitive declarations */ - -primitive_declaration: - STRING { [$1] } - | STRING primitive_declaration { $1 :: $2 } -; - -/* Type declarations */ - -type_declarations: - type_declaration { [$1] } - | type_declarations AND type_declaration { $3 :: $1 } -; - -type_declaration: - type_parameters LIDENT type_kind constraints - { let (params, variance) = List.split $1 in - let (kind, manifest) = $3 in - ($2, {ptype_params = params; - ptype_cstrs = List.rev $4; - ptype_kind = kind; - ptype_manifest = manifest; - ptype_variance = variance; - ptype_loc = symbol_rloc()}) } -; -constraints: - constraints CONSTRAINT constrain { $3 :: $1 } - | /* empty */ { [] } -; -type_kind: - /*empty*/ - { (Ptype_abstract, None) } - | EQUAL core_type - { (Ptype_abstract, Some $2) } - | EQUAL constructor_declarations - { (Ptype_variant(List.rev $2, Public), None) } - | EQUAL PRIVATE constructor_declarations - { (Ptype_variant(List.rev $3, Private), None) } - | EQUAL private_flag BAR constructor_declarations - { (Ptype_variant(List.rev $4, $2), None) } - | EQUAL private_flag LBRACE label_declarations opt_semi RBRACE - { (Ptype_record(List.rev $4, $2), None) } - | EQUAL core_type EQUAL private_flag opt_bar constructor_declarations - { (Ptype_variant(List.rev $6, $4), Some $2) } - | EQUAL core_type EQUAL private_flag LBRACE label_declarations opt_semi RBRACE - { (Ptype_record(List.rev $6, $4), Some $2) } - | EQUAL PRIVATE core_type - { (Ptype_private, Some $3) } -; -type_parameters: - /*empty*/ { [] } - | type_parameter { [$1] } - | LPAREN type_parameter_list RPAREN { List.rev $2 } -; -type_parameter: - type_variance QUOTE ident { $3, $1 } -; -type_variance: - /* empty */ { false, false } - | PLUS { true, false } - | MINUS { false, true } -; -type_parameter_list: - type_parameter { [$1] } - | type_parameter_list COMMA type_parameter { $3 :: $1 } -; -constructor_declarations: - constructor_declaration { [$1] } - | constructor_declarations BAR constructor_declaration { $3 :: $1 } -; -constructor_declaration: - constr_ident constructor_arguments { ($1, $2, symbol_rloc()) } -; -constructor_arguments: - /*empty*/ { [] } - | OF core_type_list { List.rev $2 } -; -label_declarations: - label_declaration { [$1] } - | label_declarations SEMI label_declaration { $3 :: $1 } -; -label_declaration: - mutable_flag label COLON poly_type { ($2, $1, $4, symbol_rloc()) } -; - -/* "with" constraints (additional type equations over signature components) */ - -with_constraints: - with_constraint { [$1] } - | with_constraints AND with_constraint { $3 :: $1 } -; -with_constraint: - TYPE type_parameters label_longident with_type_binder core_type constraints - { let params, variance = List.split $2 in - ($3, Pwith_type {ptype_params = params; - ptype_cstrs = List.rev $6; - ptype_kind = $4; - ptype_manifest = Some $5; - ptype_variance = variance; - ptype_loc = symbol_rloc()}) } - /* used label_longident instead of type_longident to disallow - functor applications in type path */ - | MODULE mod_longident EQUAL mod_ext_longident - { ($2, Pwith_module $4) } -; -with_type_binder: - EQUAL { Ptype_abstract } - | EQUAL PRIVATE { Ptype_private } -; - -/* Polymorphic types */ - -typevar_list: - QUOTE ident { [$2] } - | typevar_list QUOTE ident { $3 :: $1 } -; -poly_type: - core_type - { mktyp(Ptyp_poly([], $1)) } - | typevar_list DOT core_type - { mktyp(Ptyp_poly(List.rev $1, $3)) } -; - -/* Core types */ - -core_type: - core_type2 - { $1 } - | core_type2 AS QUOTE ident - { mktyp(Ptyp_alias($1, $4)) } -; -core_type2: - simple_core_type_or_tuple - { $1 } - | QUESTION LIDENT COLON core_type2 MINUSGREATER core_type2 - { mktyp(Ptyp_arrow("?" ^ $2 , - {ptyp_desc = Ptyp_constr(Lident "option", [$4]); - ptyp_loc = $4.ptyp_loc}, $6)) } - | OPTLABEL core_type2 MINUSGREATER core_type2 - { mktyp(Ptyp_arrow("?" ^ $1 , - {ptyp_desc = Ptyp_constr(Lident "option", [$2]); - ptyp_loc = $2.ptyp_loc}, $4)) } - | LIDENT COLON core_type2 MINUSGREATER core_type2 - { mktyp(Ptyp_arrow($1, $3, $5)) } - | core_type2 MINUSGREATER core_type2 - { mktyp(Ptyp_arrow("", $1, $3)) } -; - -simple_core_type: - simple_core_type2 %prec below_SHARP - { $1 } - | LPAREN core_type_comma_list RPAREN %prec below_SHARP - { match $2 with [sty] -> sty | _ -> raise Parse_error } -; -simple_core_type2: - QUOTE ident - { mktyp(Ptyp_var $2) } - | UNDERSCORE - { mktyp(Ptyp_any) } - | type_longident - { mktyp(Ptyp_constr($1, [])) } - | simple_core_type2 type_longident - { mktyp(Ptyp_constr($2, [$1])) } - | LPAREN core_type_comma_list RPAREN type_longident - { mktyp(Ptyp_constr($4, List.rev $2)) } - | LESS meth_list GREATER - { mktyp(Ptyp_object $2) } - | LESS GREATER - { mktyp(Ptyp_object []) } - | SHARP class_longident opt_present - { mktyp(Ptyp_class($2, [], $3)) } - | simple_core_type2 SHARP class_longident opt_present - { mktyp(Ptyp_class($3, [$1], $4)) } - | LPAREN core_type_comma_list RPAREN SHARP class_longident opt_present - { mktyp(Ptyp_class($5, List.rev $2, $6)) } - | LBRACKET tag_field RBRACKET - { mktyp(Ptyp_variant([$2], true, None)) } -/* PR#3835: this is not LR(1), would need lookahead=2 - | LBRACKET simple_core_type2 RBRACKET - { mktyp(Ptyp_variant([$2], true, None)) } -*/ - | LBRACKET BAR row_field_list RBRACKET - { mktyp(Ptyp_variant(List.rev $3, true, None)) } - | LBRACKET row_field BAR row_field_list RBRACKET - { mktyp(Ptyp_variant($2 :: List.rev $4, true, None)) } - | LBRACKETGREATER opt_bar row_field_list RBRACKET - { mktyp(Ptyp_variant(List.rev $3, false, None)) } - | LBRACKETGREATER RBRACKET - { mktyp(Ptyp_variant([], false, None)) } - | LBRACKETLESS opt_bar row_field_list RBRACKET - { mktyp(Ptyp_variant(List.rev $3, true, Some [])) } - | LBRACKETLESS opt_bar row_field_list GREATER name_tag_list RBRACKET - { mktyp(Ptyp_variant(List.rev $3, true, Some (List.rev $5))) } -; -row_field_list: - row_field { [$1] } - | row_field_list BAR row_field { $3 :: $1 } -; -row_field: - tag_field { $1 } - | simple_core_type2 { Rinherit $1 } -; -tag_field: - name_tag OF opt_ampersand amper_type_list - { Rtag ($1, $3, List.rev $4) } - | name_tag - { Rtag ($1, true, []) } -; -opt_ampersand: - AMPERSAND { true } - | /* empty */ { false } -; -amper_type_list: - core_type { [$1] } - | amper_type_list AMPERSAND core_type { $3 :: $1 } -; -opt_present: - LBRACKETGREATER name_tag_list RBRACKET { List.rev $2 } - | /* empty */ { [] } -; -name_tag_list: - name_tag { [$1] } - | name_tag_list name_tag { $2 :: $1 } -; -simple_core_type_or_tuple: - simple_core_type { $1 } - | simple_core_type STAR core_type_list - { mktyp(Ptyp_tuple($1 :: List.rev $3)) } -; -core_type_comma_list: - core_type { [$1] } - | core_type_comma_list COMMA core_type { $3 :: $1 } -; -core_type_list: - simple_core_type { [$1] } - | core_type_list STAR simple_core_type { $3 :: $1 } -; -meth_list: - field SEMI meth_list { $1 :: $3 } - | field opt_semi { [$1] } - | DOTDOT { [mkfield Pfield_var] } -; -field: - label COLON poly_type { mkfield(Pfield($1, $3)) } -; -label: - LIDENT { $1 } -; - -/* Constants */ - -constant: - INT { Const_int $1 } - | CHAR { Const_char $1 } - | STRING { Const_string $1 } - | FLOAT { Const_float $1 } - | INT32 { Const_int32 $1 } - | INT64 { Const_int64 $1 } - | NATIVEINT { Const_nativeint $1 } -; -signed_constant: - constant { $1 } - | MINUS INT { Const_int(- $2) } - | MINUS FLOAT { Const_float("-" ^ $2) } - | MINUS INT32 { Const_int32(Int32.neg $2) } - | MINUS INT64 { Const_int64(Int64.neg $2) } - | MINUS NATIVEINT { Const_nativeint(Nativeint.neg $2) } -; -/* Identifiers and long identifiers */ - -ident: - UIDENT { $1 } - | LIDENT { $1 } -; -val_ident: - LIDENT { $1 } - | LPAREN operator RPAREN { $2 } -; -val_ident_colon: - LIDENT COLON { $1 } - | LPAREN operator RPAREN COLON { $2 } - | LABEL { $1 } -; -operator: - PREFIXOP { $1 } - | INFIXOP0 { $1 } - | INFIXOP1 { $1 } - | INFIXOP2 { $1 } - | INFIXOP3 { $1 } - | INFIXOP4 { $1 } - | PLUS { "+" } - | MINUS { "-" } - | MINUSDOT { "-." } - | STAR { "*" } - | EQUAL { "=" } - | LESS { "<" } - | GREATER { ">" } - | OR { "or" } - | BARBAR { "||" } - | AMPERSAND { "&" } - | AMPERAMPER { "&&" } - | COLONEQUAL { ":=" } -; -constr_ident: - UIDENT { $1 } -/* | LBRACKET RBRACKET { "[]" } */ - | LPAREN RPAREN { "()" } - | COLONCOLON { "::" } -/* | LPAREN COLONCOLON RPAREN { "::" } */ - | FALSE { "false" } - | TRUE { "true" } -; - -val_longident: - val_ident { Lident $1 } - | mod_longident DOT val_ident { Ldot($1, $3) } -; -constr_longident: - mod_longident %prec below_DOT { $1 } - | LBRACKET RBRACKET { Lident "[]" } - | LPAREN RPAREN { Lident "()" } - | FALSE { Lident "false" } - | TRUE { Lident "true" } -; -label_longident: - LIDENT { Lident $1 } - | mod_longident DOT LIDENT { Ldot($1, $3) } -; -type_longident: - LIDENT { Lident $1 } - | mod_ext_longident DOT LIDENT { Ldot($1, $3) } -; -mod_longident: - UIDENT { Lident $1 } - | mod_longident DOT UIDENT { Ldot($1, $3) } -; -mod_ext_longident: - UIDENT { Lident $1 } - | mod_ext_longident DOT UIDENT { Ldot($1, $3) } - | mod_ext_longident LPAREN mod_ext_longident RPAREN { Lapply($1, $3) } -; -mty_longident: - ident { Lident $1 } - | mod_ext_longident DOT ident { Ldot($1, $3) } -; -clty_longident: - LIDENT { Lident $1 } - | mod_ext_longident DOT LIDENT { Ldot($1, $3) } -; -class_longident: - LIDENT { Lident $1 } - | mod_longident DOT LIDENT { Ldot($1, $3) } -; - -/* Toplevel directives */ - -toplevel_directive: - SHARP ident { Ptop_dir($2, Pdir_none) } - | SHARP ident STRING { Ptop_dir($2, Pdir_string $3) } - | SHARP ident INT { Ptop_dir($2, Pdir_int $3) } - | SHARP ident val_longident { Ptop_dir($2, Pdir_ident $3) } - | SHARP ident FALSE { Ptop_dir($2, Pdir_bool false) } - | SHARP ident TRUE { Ptop_dir($2, Pdir_bool true) } -; - -/* Miscellaneous */ - -name_tag: - BACKQUOTE ident { $2 } -; -rec_flag: - /* empty */ { Nonrecursive } - | REC { Recursive } -; -direction_flag: - TO { Upto } - | DOWNTO { Downto } -; -private_flag: - /* empty */ { Public } - | PRIVATE { Private } -; -mutable_flag: - /* empty */ { Immutable } - | MUTABLE { Mutable } -; -virtual_flag: - /* empty */ { Concrete } - | VIRTUAL { Virtual } -; -opt_bar: - /* empty */ { () } - | BAR { () } -; -opt_semi: - | /* empty */ { () } - | SEMI { () } -; -subtractive: - | MINUS { "-" } - | MINUSDOT { "-." } -; -%% diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/parsetree.mli b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/parsetree.mli deleted file mode 100644 index 66ec14d0b70a..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/parsetree.mli +++ /dev/null @@ -1,275 +0,0 @@ -(***********************************************************************) -(* *) -(* Objective Caml *) -(* *) -(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) -(* *) -(* Copyright 1996 Institut National de Recherche en Informatique et *) -(* en Automatique. All rights reserved. This file is distributed *) -(* under the terms of the Q Public License version 1.0. *) -(* *) -(***********************************************************************) - -(* $Id: parsetree.mli,v 1.1 2007/09/24 23:04:50 so294 Exp $ *) - -(* Abstract syntax tree produced by parsing *) - -open Asttypes - -(* Type expressions for the core language *) - -type core_type = - { ptyp_desc: core_type_desc; - ptyp_loc: Location.t } - -and core_type_desc = - Ptyp_any - | Ptyp_var of string - | Ptyp_arrow of label * core_type * core_type - | Ptyp_tuple of core_type list - | Ptyp_constr of Longident.t * core_type list - | Ptyp_object of core_field_type list - | Ptyp_class of Longident.t * core_type list * label list - | Ptyp_alias of core_type * string - | Ptyp_variant of row_field list * bool * label list option - | Ptyp_poly of string list * core_type - -and core_field_type = - { pfield_desc: core_field_desc; - pfield_loc: Location.t } - -and core_field_desc = - Pfield of string * core_type - | Pfield_var - -and row_field = - Rtag of label * bool * core_type list - | Rinherit of core_type - -(* XXX Type expressions for the class language *) - -type 'a class_infos = - { pci_virt: virtual_flag; - pci_params: string list * Location.t; - pci_name: string; - pci_expr: 'a; - pci_variance: (bool * bool) list; - pci_loc: Location.t } - -(* Value expressions for the core language *) - -type pattern = - { ppat_desc: pattern_desc; - ppat_loc: Location.t } - -and pattern_desc = - Ppat_any - | Ppat_var of string - | Ppat_alias of pattern * string - | Ppat_constant of constant - | Ppat_tuple of pattern list - | Ppat_construct of Longident.t * pattern option * bool - | Ppat_variant of label * pattern option - | Ppat_record of (Longident.t * pattern) list - | Ppat_array of pattern list - | Ppat_or of pattern * pattern - | Ppat_constraint of pattern * core_type - | Ppat_type of Longident.t - -type expression = - { pexp_desc: expression_desc; - pexp_loc: Location.t } - -and expression_desc = - Pexp_ident of Longident.t - | Pexp_constant of constant - | Pexp_let of rec_flag * (pattern * expression) list * expression - | Pexp_function of label * expression option * (pattern * expression) list - | Pexp_apply of expression * (label * expression) list - | Pexp_match of expression * (pattern * expression) list - | Pexp_try of expression * (pattern * expression) list - | Pexp_tuple of expression list - | Pexp_construct of Longident.t * expression option * bool - | Pexp_variant of label * expression option - | Pexp_record of (Longident.t * expression) list * expression option - | Pexp_field of expression * Longident.t - | Pexp_setfield of expression * Longident.t * expression - | Pexp_array of expression list - | Pexp_ifthenelse of expression * expression * expression option - | Pexp_sequence of expression * expression - | Pexp_while of expression * expression - | Pexp_for of string * expression * expression * direction_flag * expression - | Pexp_constraint of expression * core_type option * core_type option - | Pexp_when of expression * expression - | Pexp_send of expression * string - | Pexp_new of Longident.t - | Pexp_setinstvar of string * expression - | Pexp_override of (string * expression) list - | Pexp_letmodule of string * module_expr * expression - | Pexp_assert of expression - | Pexp_assertfalse - | Pexp_lazy of expression - | Pexp_poly of expression * core_type option - | Pexp_object of class_structure - -(* Value descriptions *) - -and value_description = - { pval_type: core_type; - pval_prim: string list } - -(* Type declarations *) - -and type_declaration = - { ptype_params: string list; - ptype_cstrs: (core_type * core_type * Location.t) list; - ptype_kind: type_kind; - ptype_manifest: core_type option; - ptype_variance: (bool * bool) list; - ptype_loc: Location.t } - -and type_kind = - Ptype_abstract - | Ptype_variant of (string * core_type list * Location.t) list * private_flag - | Ptype_record of - (string * mutable_flag * core_type * Location.t) list * private_flag - | Ptype_private - -and exception_declaration = core_type list - -(* Type expressions for the class language *) - -and class_type = - { pcty_desc: class_type_desc; - pcty_loc: Location.t } - -and class_type_desc = - Pcty_constr of Longident.t * core_type list - | Pcty_signature of class_signature - | Pcty_fun of label * core_type * class_type - -and class_signature = core_type * class_type_field list - -and class_type_field = - Pctf_inher of class_type - | Pctf_val of (string * mutable_flag * virtual_flag * core_type * Location.t) - | Pctf_virt of (string * private_flag * core_type * Location.t) - | Pctf_meth of (string * private_flag * core_type * Location.t) - | Pctf_cstr of (core_type * core_type * Location.t) - -and class_description = class_type class_infos - -and class_type_declaration = class_type class_infos - -(* Value expressions for the class language *) - -and class_expr = - { pcl_desc: class_expr_desc; - pcl_loc: Location.t } - -and class_expr_desc = - Pcl_constr of Longident.t * core_type list - | Pcl_structure of class_structure - | Pcl_fun of label * expression option * pattern * class_expr - | Pcl_apply of class_expr * (label * expression) list - | Pcl_let of rec_flag * (pattern * expression) list * class_expr - | Pcl_constraint of class_expr * class_type - -and class_structure = pattern * class_field list - -and class_field = - Pcf_inher of class_expr * string option - | Pcf_valvirt of (string * mutable_flag * core_type * Location.t) - | Pcf_val of (string * mutable_flag * expression * Location.t) - | Pcf_virt of (string * private_flag * core_type * Location.t) - | Pcf_meth of (string * private_flag * expression * Location.t) - | Pcf_cstr of (core_type * core_type * Location.t) - | Pcf_let of rec_flag * (pattern * expression) list * Location.t - | Pcf_init of expression - -and class_declaration = class_expr class_infos - -(* Type expressions for the module language *) - -and module_type = - { pmty_desc: module_type_desc; - pmty_loc: Location.t } - -and module_type_desc = - Pmty_ident of Longident.t - | Pmty_signature of signature - | Pmty_functor of string * module_type * module_type - | Pmty_with of module_type * (Longident.t * with_constraint) list - -and signature = signature_item list - -and signature_item = - { psig_desc: signature_item_desc; - psig_loc: Location.t } - -and signature_item_desc = - Psig_value of string * value_description - | Psig_type of (string * type_declaration) list - | Psig_exception of string * exception_declaration - | Psig_module of string * module_type - | Psig_recmodule of (string * module_type) list - | Psig_modtype of string * modtype_declaration - | Psig_open of Longident.t - | Psig_include of module_type - | Psig_class of class_description list - | Psig_class_type of class_type_declaration list - -and modtype_declaration = - Pmodtype_abstract - | Pmodtype_manifest of module_type - -and with_constraint = - Pwith_type of type_declaration - | Pwith_module of Longident.t - -(* Value expressions for the module language *) - -and module_expr = - { pmod_desc: module_expr_desc; - pmod_loc: Location.t } - -and module_expr_desc = - Pmod_ident of Longident.t - | Pmod_structure of structure - | Pmod_functor of string * module_type * module_expr - | Pmod_apply of module_expr * module_expr - | Pmod_constraint of module_expr * module_type - -and structure = structure_item list - -and structure_item = - { pstr_desc: structure_item_desc; - pstr_loc: Location.t } - -and structure_item_desc = - Pstr_eval of expression - | Pstr_value of rec_flag * (pattern * expression) list - | Pstr_primitive of string * value_description - | Pstr_type of (string * type_declaration) list - | Pstr_exception of string * exception_declaration - | Pstr_exn_rebind of string * Longident.t - | Pstr_module of string * module_expr - | Pstr_recmodule of (string * module_type * module_expr) list - | Pstr_modtype of string * module_type - | Pstr_open of Longident.t - | Pstr_class of class_declaration list - | Pstr_class_type of class_type_declaration list - | Pstr_include of module_expr - -(* Toplevel phrases *) - -type toplevel_phrase = - Ptop_def of structure - | Ptop_dir of string * directive_argument - -and directive_argument = - Pdir_none - | Pdir_string of string - | Pdir_int of int - | Pdir_ident of Longident.t - | Pdir_bool of bool diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/printast.ml b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/printast.ml deleted file mode 100644 index 724b87ae06c8..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/printast.ml +++ /dev/null @@ -1,959 +0,0 @@ -(***********************************************************************) -(* *) -(* Objective Caml *) -(* *) -(* Damien Doligez, projet Para, INRIA Rocquencourt *) -(* *) -(* Copyright 1999 Institut National de Recherche en Informatique et *) -(* en Automatique. All rights reserved. This file is distributed *) -(* under the terms of the Q Public License version 1.0. *) -(* *) -(***********************************************************************) - -(* $Id: printast.ml,v 1.4 2008/02/07 17:09:50 so294 Exp $ *) - -open Asttypes;; -open Format;; -open Lexing;; -open Location;; -open Parsetree;; - -let fmt_constr f x = - match x with - | "Invalid_argument" -> fprintf f "C_invalidargument" - | "Not_found" -> fprintf f "C_notfound" - | "Assert_failure" -> fprintf f "C_assertfailure" - | "Match_failure" -> fprintf f "C_matchfailure" - | "Division_by_zero" -> fprintf f "C_div_by_0" - | "None" -> fprintf f "C_none" - | "Some" -> fprintf f "C_some" - | _ -> fprintf f "(C_name (CN_id \"%s\"))" x - -let fmt_position f l = () -(* - if l.pos_fname = "" && l.pos_lnum = 1 - then fprintf f "%d" l.pos_cnum - else if l.pos_lnum = -1 - then fprintf f "%s[%d]" l.pos_fname l.pos_cnum - else fprintf f "%s[%d,%d+%d]" l.pos_fname l.pos_lnum l.pos_bol - (l.pos_cnum - l.pos_bol) - *) -;; - -let fmt_location f loc = () - (* - fprintf f "(%a..%a)" fmt_position loc.loc_start fmt_position loc.loc_end; - if loc.loc_ghost then fprintf f " ghost"; - *) -;; - -let rec fmt_longident_aux f x = - match x with - | Longident.Lident (s) -> fprintf f "%s" s; - | Longident.Ldot (y, s) -> fprintf f "%a.%s" fmt_longident_aux y s; - | Longident.Lapply (y, z) -> - fprintf f "%a(%a)" fmt_longident_aux y fmt_longident_aux z; -;; - -let fmt_longident f x = fprintf f "\"%a\"" fmt_longident_aux x;; - -let fmt_constant f x = - match x with - | Const_int (i) -> - if i < 0 then - fprintf f "(CONST_int ($- %dw))" ~-i - else - fprintf f "(CONST_int %dw)" i; - | Const_char (c) -> fprintf f "(CONST_char %02x)" (Char.code c); - | Const_string (s) -> fprintf f "(CONST_string %S)" s; - | Const_float (s) -> fprintf f "(CONST_float %s)" s; - | Const_int32 (i) -> fprintf f "(CONST_int32 %ld)" i; - | Const_int64 (i) -> fprintf f "(CONST_int64 %Ld)" i; - | Const_nativeint (i) -> fprintf f "(CONST_nativeint %nd)" i; -;; - -let fmt_mutable_flag f x = - match x with - | Immutable -> fprintf f "Immutable"; - | Mutable -> fprintf f "Mutable"; -;; - -let fmt_virtual_flag f x = - match x with - | Virtual -> fprintf f "Virtual"; - | Concrete -> fprintf f "Concrete"; -;; - -let fmt_rec_flag f x = - match x with - | Nonrecursive -> fprintf f "Nonrec"; - | Recursive -> fprintf f "Rec"; - | Default -> fprintf f "Default"; -;; - -let fmt_direction_flag f x = - match x with - | Upto -> fprintf f "FD_upto"; - | Downto -> fprintf f "FD_downto"; -;; - -let fmt_private_flag f x = - match x with - | Public -> fprintf f "Public"; - | Private -> fprintf f "Private"; -;; - -let line i f s (*...*) = - fprintf f "%s" (String.make (2*i) ' '); - fprintf f s (*...*) -;; - -let list i f ppf l = - match l with - | [] -> line i ppf "[]\n"; - | h::t -> - line i ppf "(\n"; - List.iter (fun x -> f (i+1) ppf x; line (i+1) ppf "::\n") l; - line i ppf "[])\n"; -;; - -let option i f ppf x = - match x with - | None -> line i ppf "None\n"; - | Some x -> - line i ppf "Some\n"; - f (i+1) ppf x; -;; - -let longident i ppf li = line i ppf "%a\n" fmt_longident li;; -let string i ppf s = line i ppf "\"%s\"\n" s;; -let bool i ppf x = line i ppf "%s\n" (string_of_bool x);; -let label i ppf x = line i ppf "label=\"%s\"\n" x;; - -let rec core_type i ppf x = - let i = i+1 in - match x.ptyp_desc with - | Ptyp_any -> line i ppf "TE_any\n"; - | Ptyp_var (s) -> line i ppf "(TE_var (TV_ident \"%s\"))\n" s; - | Ptyp_arrow (l, ct1, ct2) -> - line i ppf "(TE_arrow\n"; - core_type i ppf ct1; - core_type i ppf ct2; - line i ppf ")\n"; - | Ptyp_tuple l -> - line i ppf "(TE_tuple [\n"; - list i core_type ppf l; - line i ppf "])\n"; - | Ptyp_constr (li, l) -> - line i ppf "(TE_constr \n"; - list (i+1) core_type ppf l; - line (i+1) ppf "(TC_name (TCN_id %a))\n" fmt_longident li; - line i ppf ")\n"; - | Ptyp_variant (l, closed, low) -> - (* - line i ppf "Ptyp_variant closed=%s\n" (string_of_bool closed); - list i label_x_bool_x_core_type_list ppf l; - option i (fun i -> list i string) ppf low - *) - assert false; - | Ptyp_object (l) -> - (* - line i ppf "Ptyp_object\n"; - list i core_field_type ppf l; - *) - assert false; - | Ptyp_class (li, l, low) -> - (* - line i ppf "Ptyp_class %a\n" fmt_longident li; - list i core_type ppf l; - list i string ppf low - *) - assert false; - | Ptyp_alias (ct, s) -> - (* - line i ppf "Ptyp_alias \"%s\"\n" s; - core_type i ppf ct; - *) - assert false; - | Ptyp_poly (sl, ct) -> - (match sl with - [] -> core_type i ppf ct - | _ -> assert false); - (*line i ppf "Ptyp_poly%a\n" - (fun ppf -> List.iter (fun x -> fprintf ppf " '%s" x)) sl; - core_type i ppf ct; - *) - - (* -and core_field_type i ppf x = - line i ppf "core_field_type %a\n" fmt_location x.pfield_loc; - let i = i+1 in - match x.pfield_desc with - | Pfield (s, ct) -> - line i ppf "Pfield \"%s\"\n" s; - core_type i ppf ct; - | Pfield_var -> line i ppf "Pfield_var\n"; - *) - -and pattern i ppf x = - let i = i+1 in - match x.ppat_desc with - | Ppat_any -> line i ppf "P_any\n"; - | Ppat_var (s) -> line i ppf "(P_var (VN_id \"%s\"))\n" s; - | Ppat_alias (p, s) -> - line i ppf "(P_alias\n"; - pattern i ppf p; - line (i + 1) ppf "(VN_id \"%s\"))\n" s; - | Ppat_constant (c) -> line i ppf "(P_constant %a)\n" fmt_constant c; - | Ppat_tuple (l) -> - line i ppf "(P_tuple\n"; - list (i+1) pattern ppf l; - line i ppf ")\n"; - | Ppat_construct (li, po, b) -> - (match (li,po) with - (Longident.Lident "false", None) -> - line i ppf "(P_constant CONST_false)\n" - | (Longident.Lident "true", None) -> - line i ppf "(P_constant CONST_true)\n" - | (Longident.Lident "[]", None) -> - line i ppf "(P_constant CONST_nil)\n" - | (Longident.Lident "()", None) -> - line i ppf "(P_constant CONST_unit)\n" - | (Longident.Lident c, None) -> - line i ppf "(P_constant (CONST_constr %a))\n" fmt_constr c - | (Longident.Lident "::", Some {ppat_desc=Ppat_tuple [e1; e2]}) -> - line i ppf "(P_cons\n"; - pattern (i+1) ppf e1; - pattern (i+1) ppf e2; - line i ppf ")\n"; - | (Longident.Lident c, Some {ppat_desc=Ppat_any}) -> - line i ppf "(P_construct_any %a)\n" fmt_constr c; - | (Longident.Lident c, Some arg) -> - line i ppf "(P_construct %a\n" fmt_constr c; - (match arg.ppat_desc with - Ppat_tuple exps -> list (i + 1) pattern ppf exps - | _ -> list (i + 1) pattern ppf [arg]); - line i ppf ")\n"; - | _ -> assert false) - | Ppat_variant (l, po) -> - (* - line i ppf "Ppat_variant \"%s\"\n" l; - option i pattern ppf po; - *) - assert false; - | Ppat_record (l) -> - line i ppf "(P_record\n"; - list (i+1) longident_x_pattern ppf l; - line i ppf ")\n"; - | Ppat_array (l) -> - (* - line i ppf "Ppat_array\n"; - list i pattern ppf l; - *) - assert false; - | Ppat_or (p1, p2) -> - line i ppf "(P_or\n"; - pattern i ppf p1; - pattern i ppf p2; - line i ppf ")\n"; - | Ppat_constraint (p, ct) -> - line i ppf "(P_typed\n"; - pattern i ppf p; - core_type i ppf ct; - line i ppf ")\n"; - | Ppat_type li -> - (* - line i ppf "PPat_type"; - longident i ppf li - *) - assert false - -and expression i ppf x = - let i = i+1 in - match x.pexp_desc with - | Pexp_ident (li) -> line i ppf "(Expr_ident (VN_id %a))\n" fmt_longident li; - | Pexp_constant (c) -> line i ppf "(Expr_constant %a)\n" fmt_constant c; - | Pexp_let (rf, l, e) -> - (match rf with - Nonrecursive -> - (match l with - [x] -> - line i ppf "(Expr_let\n"; - line i ppf "(LB_simple\n"; - pattern_x_expression_def i ppf x; - line i ppf ")\n"; - expression i ppf e; - line i ppf ")\n"; - | _ -> assert false) - | Recursive -> - line i ppf "(Expr_letrec (LRBs_inj\n"; - list (i+1) pattern_x_expression_rec_def ppf l; - line i ppf ")\n"; - expression i ppf e; - line i ppf ")\n"; - | Default -> assert false) - | Pexp_function (p, eo, l) -> - (match (p, eo) with - ("", None) -> - line i ppf "(Expr_function (PM_pm\n"; - list i pattern_x_expression_case ppf l; - line i ppf "))\n"; - | _ -> assert false) - | Pexp_apply ({pexp_desc=Pexp_ident (Longident.Lident "&&")}, - ["",e1; "",e2]) -> - line i ppf "(Expr_and\n"; - expression (i+1) ppf e1; - expression (i+1) ppf e2; - line i ppf ")\n"; - | Pexp_apply ({pexp_desc=Pexp_ident (Longident.Lident "||")}, - ["",e1; "",e2]) -> - line i ppf "(Expr_or\n"; - expression (i+1) ppf e1; - expression (i+1) ppf e2; - line i ppf ")\n"; - | Pexp_apply (e, l) -> - (match l with - [] -> assert false; - | [l_x_e] -> - line i ppf "(Expr_apply\n"; - expression i ppf e; - label_x_expression i ppf l_x_e; - line i ppf ")\n"; - | (h::t) -> - expression i ppf - {pexp_desc=Pexp_apply ({pexp_desc=Pexp_apply (e, [h]); - pexp_loc = none}, - t); - pexp_loc= none}); - | Pexp_match (e, l) -> - line i ppf "(Expr_match\n"; - expression i ppf e; - line (i+1) ppf "(PM_pm\n"; - list (i+2) pattern_x_expression_case ppf l; - line i ppf "))\n"; - | Pexp_try (e, l) -> - line i ppf "(Expr_try\n"; - expression i ppf e; - line (i+1) ppf "(PM_pm\n"; - list (i+2) pattern_x_expression_case ppf l; - line i ppf "))\n"; - | Pexp_tuple (l) -> - line i ppf "(Expr_tuple\n"; - list i expression ppf l; - line i ppf ")\n"; - | Pexp_construct (li, eo, b) -> - (match (li,eo) with - (Longident.Lident "false", None) -> - line i ppf "(Expr_constant CONST_false)\n" - | (Longident.Lident "true", None) -> - line i ppf "(Expr_constant CONST_true)\n" - | (Longident.Lident "[]", None) -> - line i ppf "(Expr_constant CONST_nil)\n" - | (Longident.Lident "()", None) -> - line i ppf "(Expr_constant CONST_unit)\n" - | (Longident.Lident c, None) -> - line i ppf "(Expr_constant (CONST_constr %a))\n" fmt_constr c - | (Longident.Lident "::", Some {pexp_desc=Pexp_tuple [e1; e2]}) -> - line i ppf "(Expr_cons\n"; - expression (i+1) ppf e1; - expression (i+1) ppf e2; - line i ppf ")\n"; - | (Longident.Lident c, Some arg) -> - line i ppf "(Expr_construct %a" fmt_constr c; - (match arg.pexp_desc with - Pexp_tuple exps -> list (i + 1) expression ppf exps - | _ -> list (i + 1) expression ppf [arg]); - line i ppf ")\n"; - | _ -> assert false) - | Pexp_variant (l, eo) -> - (* - line i ppf "Pexp_variant \"%s\"\n" l; - option i expression ppf eo; - *) - assert false; - | Pexp_record (l, eo) -> - (match eo with - Some e -> - line i ppf "(Expr_override\n"; - expression i ppf e; - list (i+1) longident_x_expression ppf l; - line i ppf ")\n"; - | None -> - line i ppf "(Expr_record\n"; - list (i+1) longident_x_expression ppf l; - line i ppf ")\n";) - | Pexp_field (e, li) -> - line i ppf "(Expr_field\n"; - expression i ppf e; - line (i+1) ppf "(F_name (FN_id %a))\n" fmt_longident li; - line i ppf ")\n"; - | Pexp_setfield (e1, li, e2) -> - (* - line i ppf "Pexp_setfield\n"; - expression i ppf e1; - longident i ppf li; - expression i ppf e2; - *) - assert false; - | Pexp_array (l) -> - (* - line i ppf "Pexp_array\n"; - list i expression ppf l; - *) - assert false; - | Pexp_ifthenelse (e1, e2, eo) -> - line i ppf "(Expr_ifthenelse\n"; - expression i ppf e1; - expression i ppf e2; - (match eo with - None -> line i ppf "(Expr_constant CONST_unit)\n"; - | Some e -> expression i ppf e); - line i ppf ")\n"; - | Pexp_sequence (e1, e2) -> - line i ppf "(Expr_sequence\n"; - expression i ppf e1; - expression i ppf e2; - line i ppf ")\n"; - | Pexp_while (e1, e2) -> - line i ppf "(Expr_while\n"; - expression i ppf e1; - expression i ppf e2; - line i ppf ")\n"; - | Pexp_for (s, e1, e2, df, e3) -> - line i ppf "(Expr_for (VN_id \"%s\")\n" s; - expression i ppf e1; - line i ppf "%a\n" fmt_direction_flag df; - expression i ppf e2; - expression i ppf e3; - line i ppf ")\n"; - | Pexp_constraint (e, cto1, cto2) -> - line i ppf "(Expr_typed\n"; - expression i ppf e; - (match (cto1, cto2) with - (Some t, None) -> core_type i ppf t - | _ -> assert false); - line i ppf ")\n"; - | Pexp_when (e1, e2) -> - (* - line i ppf "Pexp_when\n"; - expression i ppf e1; - expression i ppf e2; - *) - assert false; - | Pexp_send (e, s) -> - (* - line i ppf "Pexp_send \"%s\"\n" s; - expression i ppf e; - *) - assert false; - | Pexp_new (li) -> (*line i ppf "Pexp_new %a\n" fmt_longident li;*) - assert false; - | Pexp_setinstvar (s, e) -> - (* - line i ppf "Pexp_setinstvar \"%s\"\n" s; - expression i ppf e; - *) - assert false; - | Pexp_override (l) -> - (* - line i ppf "Pexp_override\n"; - list i string_x_expression ppf l; - *) - assert false; - | Pexp_letmodule (s, me, e) -> - (* - line i ppf "Pexp_letmodule \"%s\"\n" s; - module_expr i ppf me; - expression i ppf e; - *) - assert false; - | Pexp_assert (e) -> - line i ppf "(Expr_assert"; - expression i ppf e; - line i ppf ")\n" - | Pexp_assertfalse -> - line i ppf "(Expr_assert (Expr_constant CONST_false))\n"; - | Pexp_lazy (e) -> - (* - line i ppf "Pexp_lazy"; - expression i ppf e; - *) - assert false - | Pexp_poly (e, cto) -> - (* - line i ppf "Pexp_poly\n"; - expression i ppf e; - option i core_type ppf cto; - *) - assert false; - | Pexp_object s -> - (* - line i ppf "Pexp_object"; - class_structure i ppf s - *) - assert false; - -and value_description i ppf x = - line i ppf "value_description\n"; - core_type (i+1) ppf x.pval_type; - list (i+1) string ppf x.pval_prim; - -and type_declaration i ppf x = - assert (x.ptype_cstrs = []); - match x.ptype_manifest with - None -> - line i ppf "(TI_def\n"; - type_kind (i+1) ppf x.ptype_kind; - line i ppf ")\n"; - | _ -> assert false - -and type_kind i ppf x = - match x with - | Ptype_abstract -> - (* - line i ppf "Ptype_abstract\n" - *) - assert false; - | Ptype_variant (l, priv) -> - line i ppf "(TR_variant\n"; - list (i+1) string_x_core_type_list_x_location ppf l; - line i ppf ")\n"; - | Ptype_record (l, priv) -> - line i ppf "Ptype_record %a\n" fmt_private_flag priv; - list (i+1) string_x_mutable_flag_x_core_type_x_location ppf l; - | Ptype_private -> - (* - line i ppf "Ptype_private\n" - *) - assert false; - -and exception_declaration i ppf x = list i core_type ppf x - -and class_type i ppf x = - line i ppf "class_type %a\n" fmt_location x.pcty_loc; - let i = i+1 in - match x.pcty_desc with - | Pcty_constr (li, l) -> - line i ppf "Pcty_constr %a\n" fmt_longident li; - list i core_type ppf l; - | Pcty_signature (cs) -> - line i ppf "Pcty_signature\n"; - class_signature i ppf cs; - | Pcty_fun (l, co, cl) -> - line i ppf "Pcty_fun \"%s\"\n" l; - core_type i ppf co; - class_type i ppf cl; - -and class_signature i ppf (ct, l) = - line i ppf "class_signature\n"; - core_type (i+1) ppf ct; - list (i+1) class_type_field ppf l; - -and class_type_field i ppf x = - match x with - | Pctf_inher (ct) -> - line i ppf "Pctf_inher\n"; - class_type i ppf ct; - | Pctf_val (s, mf, vf, ct, loc) -> - line i ppf - "Pctf_val \"%s\" %a %a %a\n" s - fmt_mutable_flag mf fmt_virtual_flag vf fmt_location loc; - core_type (i+1) ppf ct; - | Pctf_virt (s, pf, ct, loc) -> - line i ppf - "Pctf_virt \"%s\" %a %a\n" s fmt_private_flag pf fmt_location loc; - core_type (i+1) ppf ct; - | Pctf_meth (s, pf, ct, loc) -> - line i ppf - "Pctf_meth \"%s\" %a %a\n" s fmt_private_flag pf fmt_location loc; - core_type (i+1) ppf ct; - | Pctf_cstr (ct1, ct2, loc) -> - line i ppf "Pctf_cstr %a\n" fmt_location loc; - core_type i ppf ct1; - core_type i ppf ct2; - -and class_description i ppf x = - line i ppf "class_description %a\n" fmt_location x.pci_loc; - let i = i+1 in - line i ppf "pci_virt = %a\n" fmt_virtual_flag x.pci_virt; - line i ppf "pci_params =\n"; - string_list_x_location (i+1) ppf x.pci_params; - line i ppf "pci_name = \"%s\"\n" x.pci_name; - line i ppf "pci_expr =\n"; - class_type (i+1) ppf x.pci_expr; - -and class_type_declaration i ppf x = - line i ppf "class_type_declaration %a\n" fmt_location x.pci_loc; - let i = i+1 in - line i ppf "pci_virt = %a\n" fmt_virtual_flag x.pci_virt; - line i ppf "pci_params =\n"; - string_list_x_location (i+1) ppf x.pci_params; - line i ppf "pci_name = \"%s\"\n" x.pci_name; - line i ppf "pci_expr =\n"; - class_type (i+1) ppf x.pci_expr; - -and class_expr i ppf x = - line i ppf "class_expr %a\n" fmt_location x.pcl_loc; - let i = i+1 in - match x.pcl_desc with - | Pcl_constr (li, l) -> - line i ppf "Pcl_constr %a\n" fmt_longident li; - list i core_type ppf l; - | Pcl_structure (cs) -> - line i ppf "Pcl_structure\n"; - class_structure i ppf cs; - | Pcl_fun (l, eo, p, e) -> - line i ppf "Pcl_fun\n"; - label i ppf l; - option i expression ppf eo; - pattern i ppf p; - class_expr i ppf e; - | Pcl_apply (ce, l) -> - line i ppf "Pcl_apply\n"; - class_expr i ppf ce; - list i label_x_expression ppf l; - | Pcl_let (rf, l, ce) -> - line i ppf "Pcl_let %a\n" fmt_rec_flag rf; - list i pattern_x_expression_def ppf l; - class_expr i ppf ce; - | Pcl_constraint (ce, ct) -> - line i ppf "Pcl_constraint\n"; - class_expr i ppf ce; - class_type i ppf ct; - -and class_structure i ppf (p, l) = - line i ppf "class_structure\n"; - pattern (i+1) ppf p; - list (i+1) class_field ppf l; - -and class_field i ppf x = - match x with - | Pcf_inher (ce, so) -> - line i ppf "Pcf_inher\n"; - class_expr (i+1) ppf ce; - option (i+1) string ppf so; - | Pcf_valvirt (s, mf, ct, loc) -> - line i ppf - "Pcf_valvirt \"%s\" %a %a\n" s fmt_mutable_flag mf fmt_location loc; - core_type (i+1) ppf ct; - | Pcf_val (s, mf, e, loc) -> - line i ppf - "Pcf_val \"%s\" %a %a\n" s fmt_mutable_flag mf fmt_location loc; - expression (i+1) ppf e; - | Pcf_virt (s, pf, ct, loc) -> - line i ppf - "Pcf_virt \"%s\" %a %a\n" s fmt_private_flag pf fmt_location loc; - core_type (i+1) ppf ct; - | Pcf_meth (s, pf, e, loc) -> - line i ppf - "Pcf_meth \"%s\" %a %a\n" s fmt_private_flag pf fmt_location loc; - expression (i+1) ppf e; - | Pcf_cstr (ct1, ct2, loc) -> - line i ppf "Pcf_cstr %a\n" fmt_location loc; - core_type (i+1) ppf ct1; - core_type (i+1) ppf ct2; - | Pcf_let (rf, l, loc) -> - line i ppf "Pcf_let %a %a\n" fmt_rec_flag rf fmt_location loc; - list (i+1) pattern_x_expression_def ppf l; - | Pcf_init (e) -> - line i ppf "Pcf_init\n"; - expression (i+1) ppf e; - -and class_declaration i ppf x = - line i ppf "class_declaration %a\n" fmt_location x.pci_loc; - let i = i+1 in - line i ppf "pci_virt = %a\n" fmt_virtual_flag x.pci_virt; - line i ppf "pci_params =\n"; - string_list_x_location (i+1) ppf x.pci_params; - line i ppf "pci_name = \"%s\"\n" x.pci_name; - line i ppf "pci_expr =\n"; - class_expr (i+1) ppf x.pci_expr; - -and module_type i ppf x = - line i ppf "module_type %a\n" fmt_location x.pmty_loc; - let i = i+1 in - match x.pmty_desc with - | Pmty_ident (li) -> line i ppf "Pmty_ident %a\n" fmt_longident li; - | Pmty_signature (s) -> - line i ppf "Pmty_signature\n"; - signature i ppf s; - | Pmty_functor (s, mt1, mt2) -> - line i ppf "Pmty_functor \"%s\"\n" s; - module_type i ppf mt1; - module_type i ppf mt2; - | Pmty_with (mt, l) -> - line i ppf "Pmty_with\n"; - module_type i ppf mt; - list i longident_x_with_constraint ppf l; - -and signature i ppf x = list i signature_item ppf x - -and signature_item i ppf x = - line i ppf "signature_item %a\n" fmt_location x.psig_loc; - let i = i+1 in - match x.psig_desc with - | Psig_value (s, vd) -> - line i ppf "Psig_value \"%s\"\n" s; - value_description i ppf vd; - | Psig_type (l) -> - line i ppf "Psig_type\n"; - list i string_x_type_declaration ppf l; - | Psig_exception (s, ed) -> - line i ppf "Psig_exception \"%s\"\n" s; - exception_declaration i ppf ed; - | Psig_module (s, mt) -> - line i ppf "Psig_module \"%s\"\n" s; - module_type i ppf mt; - | Psig_recmodule decls -> - line i ppf "Psig_recmodule\n"; - list i string_x_module_type ppf decls; - | Psig_modtype (s, md) -> - line i ppf "Psig_modtype \"%s\"\n" s; - modtype_declaration i ppf md; - | Psig_open (li) -> line i ppf "Psig_open %a\n" fmt_longident li; - | Psig_include (mt) -> - line i ppf "Psig_include\n"; - module_type i ppf mt; - | Psig_class (l) -> - line i ppf "Psig_class\n"; - list i class_description ppf l; - | Psig_class_type (l) -> - line i ppf "Psig_class_type\n"; - list i class_type_declaration ppf l; - -and modtype_declaration i ppf x = - match x with - | Pmodtype_abstract -> line i ppf "Pmodtype_abstract\n"; - | Pmodtype_manifest (mt) -> - line i ppf "Pmodtype_manifest\n"; - module_type (i+1) ppf mt; - -and with_constraint i ppf x = - match x with - | Pwith_type (td) -> - line i ppf "Pwith_type\n"; - type_declaration (i+1) ppf td; - | Pwith_module (li) -> line i ppf "Pwith_module %a\n" fmt_longident li; - -and module_expr i ppf x = - line i ppf "module_expr %a\n" fmt_location x.pmod_loc; - let i = i+1 in - match x.pmod_desc with - | Pmod_ident (li) -> line i ppf "Pmod_ident %a\n" fmt_longident li; - | Pmod_structure (s) -> - line i ppf "Pmod_structure\n"; - structure i ppf s; - | Pmod_functor (s, mt, me) -> - line i ppf "Pmod_functor \"%s\"\n" s; - module_type i ppf mt; - module_expr i ppf me; - | Pmod_apply (me1, me2) -> - line i ppf "Pmod_apply\n"; - module_expr i ppf me1; - module_expr i ppf me2; - | Pmod_constraint (me, mt) -> - line i ppf "Pmod_constraint\n"; - module_expr i ppf me; - module_type i ppf mt; - -and structure i ppf x = list i structure_item ppf x - -and structure_item i ppf x = - let i = i+1 in - match x.pstr_desc with - | Pstr_eval (e) -> - expression i ppf e; - | Pstr_value (rf, l) -> - (match rf with - Nonrecursive -> - (match l with - [x] -> - line i ppf "(D_let\n"; - line (i+1) ppf "(LB_simple\n"; - pattern_x_expression_def i ppf x; - line i ppf "))\n"; - | _ -> assert false) - | Recursive -> - line i ppf "(D_letrec (LRBs_inj\n"; - list (i+1) pattern_x_expression_rec_def ppf l; - line i ppf "))\n"; - | Default -> assert false) - | Pstr_primitive (s, vd) -> - (* - line i ppf "Pstr_primitive \"%s\"\n" s; - value_description i ppf vd; - *) - assert false; - | Pstr_type (l) -> - line i ppf "(D_type (TDF_tdf\n"; - list i string_x_type_declaration ppf l; - line i ppf "))\n"; - | Pstr_exception (s, ed) -> - line i ppf "Pstr_exception \"%s\"\n" s; - exception_declaration i ppf ed; - | Pstr_exn_rebind (s, li) -> - (* - line i ppf "Pstr_exn_rebind \"%s\" %a\n" s fmt_longident li; - *) - assert false; - | Pstr_module (s, me) -> - (* - line i ppf "Pstr_module \"%s\"\n" s; - module_expr i ppf me; - *) - assert false; - | Pstr_recmodule bindings -> - (* - line i ppf "Pstr_recmodule\n"; - list i string_x_modtype_x_module ppf bindings; - *) - assert false; - | Pstr_modtype (s, mt) -> - (* - line i ppf "Pstr_modtype \"%s\"\n" s; - module_type i ppf mt; - *) - assert false; - | Pstr_open (li) -> (*line i ppf "Pstr_open %a\n" fmt_longident li;*) - assert false; - | Pstr_class (l) -> - (* - line i ppf "Pstr_class\n"; - list i class_declaration ppf l; - *) - assert false; - | Pstr_class_type (l) -> - (* - line i ppf "Pstr_class_type\n"; - list i class_type_declaration ppf l; - *) - assert false; - | Pstr_include me -> - (* - line i ppf "Pstr_include"; - module_expr i ppf me - *) - assert false; - -and tpo i ppf s = - line i ppf "(TP_var (TV_ident \"%s\"))" s; - -and string_x_type_declaration i ppf (s, td) = - line i ppf "(TD_td (TPS_nary\n"; - list i tpo ppf td.ptype_params; - line i ppf ")\n"; - line (i+1) ppf "(TCN_id \"%s\")\n" s; - type_declaration (i+1) ppf td; - line i ppf ")\n"; - -and string_x_module_type i ppf (s, mty) = - string i ppf s; - module_type (i+1) ppf mty; - -and string_x_modtype_x_module i ppf (s, mty, modl) = - string i ppf s; - module_type (i+1) ppf mty; - module_expr (i+1) ppf modl; - -and longident_x_with_constraint i ppf (li, wc) = - line i ppf "%a\n" fmt_longident li; - with_constraint (i+1) ppf wc; - -and core_type_x_core_type_x_location i ppf (ct1, ct2, l) = - line i ppf " %a\n" fmt_location l; - core_type (i+1) ppf ct1; - core_type (i+1) ppf ct2; - -and string_x_core_type_list_x_location i ppf (s, l, loc) = - match l with - [] -> - line i ppf "(CD_nullary (CN_id \"%s\"))\n" s; - | _ -> - line i ppf "(CD_nary (CN_id \"%s\")\n" s; - list (i+1) core_type ppf l; - line i ppf ")\n"; - -and string_x_mutable_flag_x_core_type_x_location i ppf (s, mf, ct, loc) = - line i ppf "\"%s\" %a %a\n" s fmt_mutable_flag mf fmt_location loc; - core_type (i+1) ppf ct; - -and string_list_x_location i ppf (l, loc) = - line i ppf " %a\n" fmt_location loc; - list (i+1) string ppf l; - -and longident_x_pattern i ppf (li, p) = - line i ppf "(F_name (FN_id %a), \n" fmt_longident li; - pattern i ppf p; - line i ppf ")"; - -and pattern_x_expression_case i ppf (p, e) = - line i ppf "(PE_inj \n"; - pattern (i+1) ppf p; - expression (i+1) ppf e; - line i ppf ")\n" - -and pattern_x_expression_def i ppf (p, e) = - pattern (i+1) ppf p; - expression (i+1) ppf e; - -and pattern_x_expression_rec_def i ppf (p, e) = - match (p.ppat_desc, e.pexp_desc) with - (Ppat_var v, Pexp_function ("", None, l)) -> - line i ppf "(LRB_simple\n"; - line (i+1) ppf "(VN_id \"%s\")\n" v; - line (i+1) ppf "(PM_pm\n"; - list (i+1) pattern_x_expression_case ppf l; - line (i+1) ppf ")\n"; - line i ppf ")\n"; - | _ -> assert false; - -and string_x_expression i ppf (s, e) = - line i ppf " \"%s\"\n" s; - expression (i+1) ppf e; - -and longident_x_expression i ppf (li, e) = - line i ppf "(F_name (FN_id %a), \n" fmt_longident li; - expression i ppf e; - line i ppf ")\n"; - -and label_x_expression i ppf (l,e) = - assert (l = ""); - expression (i+1) ppf e; - -and label_x_bool_x_core_type_list i ppf x = - match x with - Rtag (l, b, ctl) -> - line i ppf "Rtag \"%s\" %s\n" l (string_of_bool b); - list (i+1) core_type ppf ctl - | Rinherit (ct) -> - line i ppf "Rinherit\n"; - core_type (i+1) ppf ct -;; - -let rec toplevel_phrase i ppf x = - match x with - | Ptop_def (s) -> - line i ppf "Ptop_def\n"; - structure (i+1) ppf s; - | Ptop_dir (s, da) -> - line i ppf "Ptop_dir \"%s\"\n" s; - directive_argument i ppf da; - -and directive_argument i ppf x = - match x with - | Pdir_none -> line i ppf "Pdir_none\n" - | Pdir_string (s) -> line i ppf "Pdir_string \"%s\"\n" s; - | Pdir_int (i) -> line i ppf "Pdir_int %d\n" i; - | Pdir_ident (li) -> line i ppf "Pdir_ident %a\n" fmt_longident li; - | Pdir_bool (b) -> line i ppf "Pdir_bool %s\n" (string_of_bool b); -;; - -let interface ppf x = list 0 signature_item ppf x;; - -let implementation ppf x = -match x with - (* special handling for a single expression *) - [{pstr_desc=Pstr_eval e}] -> expression 0 ppf e - | _ -> list 0 structure_item ppf x;; - -let top_phrase ppf x = toplevel_phrase 0 ppf x;; diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/printast.mli b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/printast.mli deleted file mode 100644 index eac7571950fb..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/printast.mli +++ /dev/null @@ -1,20 +0,0 @@ -(***********************************************************************) -(* *) -(* Objective Caml *) -(* *) -(* Damien Doligez, projet Para, INRIA Rocquencourt *) -(* *) -(* Copyright 1999 Institut National de Recherche en Informatique et *) -(* en Automatique. All rights reserved. This file is distributed *) -(* under the terms of the Q Public License version 1.0. *) -(* *) -(***********************************************************************) - -(* $Id: printast.mli,v 1.1 2007/09/24 23:04:50 so294 Exp $ *) - -open Parsetree;; -open Format;; - -val interface : formatter -> signature_item list -> unit;; -val implementation : formatter -> structure_item list -> unit;; -val top_phrase : formatter -> toplevel_phrase -> unit;; diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/syntaxerr.ml b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/syntaxerr.ml deleted file mode 100644 index 8bd44336d31a..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/syntaxerr.ml +++ /dev/null @@ -1,41 +0,0 @@ -(***********************************************************************) -(* *) -(* Objective Caml *) -(* *) -(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) -(* *) -(* Copyright 1997 Institut National de Recherche en Informatique et *) -(* en Automatique. All rights reserved. This file is distributed *) -(* under the terms of the Q Public License version 1.0. *) -(* *) -(***********************************************************************) - -(* $Id: syntaxerr.ml,v 1.1 2007/09/24 23:04:50 so294 Exp $ *) - -(* Auxiliary type for reporting syntax errors *) - -open Format - -type error = - Unclosed of Location.t * string * Location.t * string - | Other of Location.t - -exception Error of error -exception Escape_error - -let report_error ppf = function - | Unclosed(opening_loc, opening, closing_loc, closing) -> - if String.length !Location.input_name = 0 - && Location.highlight_locations ppf opening_loc closing_loc - then fprintf ppf "Syntax error: '%s' expected, \ - the highlighted '%s' might be unmatched" closing opening - else begin - fprintf ppf "%aSyntax error: '%s' expected@." - Location.print closing_loc closing; - fprintf ppf "%aThis '%s' might be unmatched" - Location.print opening_loc opening - end - | Other loc -> - fprintf ppf "%aSyntax error" Location.print loc - - diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/syntaxerr.mli b/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/syntaxerr.mli deleted file mode 100644 index eded67b34605..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/ocamlpp/parsing/syntaxerr.mli +++ /dev/null @@ -1,26 +0,0 @@ -(***********************************************************************) -(* *) -(* Objective Caml *) -(* *) -(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) -(* *) -(* Copyright 1997 Institut National de Recherche en Informatique et *) -(* en Automatique. All rights reserved. This file is distributed *) -(* under the terms of the Q Public License version 1.0. *) -(* *) -(***********************************************************************) - -(* $Id: syntaxerr.mli,v 1.1 2007/09/24 23:04:50 so294 Exp $ *) - -(* Auxiliary type for reporting syntax errors *) - -open Format - -type error = - Unclosed of Location.t * string * Location.t * string - | Other of Location.t - -exception Error of error -exception Escape_error - -val report_error: formatter -> error -> unit diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/.cvsignore b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/.cvsignore deleted file mode 100644 index 780c0115b3da..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/.cvsignore +++ /dev/null @@ -1,7 +0,0 @@ -*.a -*.cma -*.cmi -*.cmo -*.cmx -*.cmxa -*.o diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/ccomp.ml b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/ccomp.ml deleted file mode 100644 index e1d0970db29e..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/ccomp.ml +++ /dev/null @@ -1,112 +0,0 @@ -(***********************************************************************) -(* *) -(* Objective Caml *) -(* *) -(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) -(* *) -(* Copyright 1996 Institut National de Recherche en Informatique et *) -(* en Automatique. All rights reserved. This file is distributed *) -(* under the terms of the Q Public License version 1.0. *) -(* *) -(***********************************************************************) - -(* $Id: ccomp.ml,v 1.1 2007/09/24 23:04:52 so294 Exp $ *) - -(* Compiling C files and building C libraries *) - -let command cmdline = - if !Clflags.verbose then begin - prerr_string "+ "; - prerr_string cmdline; - prerr_newline() - end; - Sys.command cmdline - -let run_command cmdline = ignore(command cmdline) - -(* Build @responsefile to work around Windows limitations on - command-line length *) -let build_diversion lst = - let (responsefile, oc) = Filename.open_temp_file "camlresp" "" in - List.iter - (fun f -> - if f <> "" then begin - output_string oc (Filename.quote f); output_char oc '\n' - end) - lst; - close_out oc; - at_exit (fun () -> Misc.remove_file responsefile); - "@" ^ responsefile - -let quote_files lst = - let s = - String.concat " " - (List.map (fun f -> if f = "" then f else Filename.quote f) lst) in - if Sys.os_type = "Win32" && String.length s >= 256 - then build_diversion lst - else s - -let compile_file name = - command - (Printf.sprintf - "%s -c %s %s %s %s" - !Clflags.c_compiler - (String.concat " " (List.rev !Clflags.ccopts)) - (quote_files - (List.rev_map (fun dir -> "-I" ^ dir) !Clflags.include_dirs)) - (Clflags.std_include_flag "-I") - (Filename.quote name)) - -let create_archive archive file_list = - Misc.remove_file archive; - let quoted_archive = Filename.quote archive in - match Config.ccomp_type with - "msvc" -> - command(Printf.sprintf "link /lib /nologo /out:%s %s" - quoted_archive (quote_files file_list)) - | _ -> - let r1 = - command(Printf.sprintf "ar rc %s %s" - quoted_archive (quote_files file_list)) in - if r1 <> 0 || String.length Config.ranlib = 0 - then r1 - else command(Config.ranlib ^ " " ^ quoted_archive) - -let expand_libname name = - if String.length name < 2 || String.sub name 0 2 <> "-l" - then name - else begin - let libname = - "lib" ^ String.sub name 2 (String.length name - 2) ^ Config.ext_lib in - try - Misc.find_in_path !Config.load_path libname - with Not_found -> - libname - end - -(* Handling of msvc's /link options *) - -let make_link_options optlist = - let rec split linkopts otheropts = function - | [] -> String.concat " " otheropts - ^ " /link /subsystem:console " - ^ String.concat " " linkopts - | opt :: rem -> - if String.length opt >= 5 && String.sub opt 0 5 = "/link" - then split (String.sub opt 5 (String.length opt - 5) :: linkopts) - otheropts rem - else split linkopts (opt :: otheropts) rem - in split [] [] optlist - -(* Handling of Visual C++ 2005 manifest files *) - -let merge_manifest exefile = - let manfile = exefile ^ ".manifest" in - if not (Sys.file_exists manfile) then 0 else begin - let retcode = - command (Printf.sprintf "mt -nologo -outputresource:%s -manifest %s" - (Filename.quote exefile) - (Filename.quote manfile)) in - Misc.remove_file manfile; - retcode - end diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/ccomp.mli b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/ccomp.mli deleted file mode 100644 index 6c2756538e9b..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/ccomp.mli +++ /dev/null @@ -1,24 +0,0 @@ -(***********************************************************************) -(* *) -(* Objective Caml *) -(* *) -(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) -(* *) -(* Copyright 1996 Institut National de Recherche en Informatique et *) -(* en Automatique. All rights reserved. This file is distributed *) -(* under the terms of the Q Public License version 1.0. *) -(* *) -(***********************************************************************) - -(* $Id: ccomp.mli,v 1.1 2007/09/24 23:04:52 so294 Exp $ *) - -(* Compiling C files and building C libraries *) - -val command: string -> int -val run_command: string -> unit -val compile_file: string -> int -val create_archive: string -> string list -> int -val expand_libname: string -> string -val quote_files: string list -> string -val make_link_options: string list -> string -val merge_manifest: string -> int diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/clflags.ml b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/clflags.ml deleted file mode 100644 index eb927227b6cf..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/clflags.ml +++ /dev/null @@ -1,90 +0,0 @@ -(***********************************************************************) -(* *) -(* Objective Caml *) -(* *) -(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) -(* *) -(* Copyright 1996 Institut National de Recherche en Informatique et *) -(* en Automatique. All rights reserved. This file is distributed *) -(* under the terms of the Q Public License version 1.0. *) -(* *) -(***********************************************************************) - -(* $Id: clflags.ml,v 1.1 2007/09/24 23:04:52 so294 Exp $ *) - -(* Command-line parameters *) - -let objfiles = ref ([] : string list) (* .cmo and .cma files *) -and ccobjs = ref ([] : string list) (* .o, .a, .so and -cclib -lxxx *) -and dllibs = ref ([] : string list) (* .so and -dllib -lxxx *) - -let compile_only = ref false (* -c *) -and output_name = ref (None : string option) (* -o *) -and include_dirs = ref ([] : string list)(* -I *) -and no_std_include = ref false (* -nostdlib *) -and print_types = ref false (* -i *) -and make_archive = ref false (* -a *) -and debug = ref false (* -g *) -and fast = ref false (* -unsafe *) -and link_everything = ref false (* -linkall *) -and custom_runtime = ref false (* -custom *) -and output_c_object = ref false (* -output-obj *) -and ccopts = ref ([] : string list) (* -ccopt *) -and classic = ref false (* -nolabels *) -and nopervasives = ref false (* -nopervasives *) -and preprocessor = ref(None : string option) (* -pp *) -let save_types = ref false (* -stypes *) -and use_threads = ref false (* -thread *) -and use_vmthreads = ref false (* -vmthread *) -and noassert = ref false (* -noassert *) -and verbose = ref false (* -verbose *) -and noprompt = ref false (* -noprompt *) -and init_file = ref (None : string option) (* -init *) -and use_prims = ref "" (* -use-prims ... *) -and use_runtime = ref "" (* -use-runtime ... *) -and principal = ref false (* -principal *) -and recursive_types = ref false (* -rectypes *) -and make_runtime = ref false (* -make_runtime *) -and gprofile = ref false (* -p *) -and c_compiler = ref Config.bytecomp_c_compiler (* -cc *) -and c_linker = ref Config.bytecomp_c_linker (* -cc *) -and no_auto_link = ref false (* -noautolink *) -and dllpaths = ref ([] : string list) (* -dllpath *) -and make_package = ref false (* -pack *) -and for_package = ref (None: string option) (* -for-pack *) -let dump_parsetree = ref false (* -dparsetree *) -and dump_rawlambda = ref false (* -drawlambda *) -and dump_lambda = ref false (* -dlambda *) -and dump_instr = ref false (* -dinstr *) - -let keep_asm_file = ref false (* -S *) -let optimize_for_speed = ref true (* -compact *) - -and dump_cmm = ref false (* -dcmm *) -let dump_selection = ref false (* -dsel *) -let dump_live = ref false (* -dlive *) -let dump_spill = ref false (* -dspill *) -let dump_split = ref false (* -dsplit *) -let dump_scheduling = ref false (* -dscheduling *) -let dump_interf = ref false (* -dinterf *) -let dump_prefer = ref false (* -dprefer *) -let dump_regalloc = ref false (* -dalloc *) -let dump_reload = ref false (* -dreload *) -let dump_scheduling = ref false (* -dscheduling *) -let dump_linear = ref false (* -dlinear *) -let keep_startup_file = ref false (* -dstartup *) -let dump_combine = ref false (* -dcombine *) - -let native_code = ref false (* set to true under ocamlopt *) -let inline_threshold = ref 10 - -let dont_write_files = ref false (* set to true under ocamldoc *) - -let std_include_flag prefix = - if !no_std_include then "" - else (prefix ^ (Filename.quote Config.standard_library)) -;; - -let std_include_dir () = - if !no_std_include then [] else [Config.standard_library] -;; diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/clflags.mli b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/clflags.mli deleted file mode 100644 index b4912c32b6a2..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/clflags.mli +++ /dev/null @@ -1,75 +0,0 @@ -(***********************************************************************) -(* *) -(* Objective Caml *) -(* *) -(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) -(* *) -(* Copyright 2005 Institut National de Recherche en Informatique et *) -(* en Automatique. All rights reserved. This file is distributed *) -(* under the terms of the Q Public License version 1.0. *) -(* *) -(***********************************************************************) - -(* $Id: clflags.mli,v 1.1 2007/09/24 23:04:52 so294 Exp $ *) - -val objfiles : string list ref -val ccobjs : string list ref -val dllibs : string list ref -val compile_only : bool ref -val output_name : string option ref -val include_dirs : string list ref -val no_std_include : bool ref -val print_types : bool ref -val make_archive : bool ref -val debug : bool ref -val fast : bool ref -val link_everything : bool ref -val custom_runtime : bool ref -val output_c_object : bool ref -val ccopts : string list ref -val classic : bool ref -val nopervasives : bool ref -val preprocessor : string option ref -val save_types : bool ref -val use_threads : bool ref -val use_vmthreads : bool ref -val noassert : bool ref -val verbose : bool ref -val noprompt : bool ref -val init_file : string option ref -val use_prims : string ref -val use_runtime : string ref -val principal : bool ref -val recursive_types : bool ref -val make_runtime : bool ref -val gprofile : bool ref -val c_compiler : string ref -val c_linker : string ref -val no_auto_link : bool ref -val dllpaths : string list ref -val make_package : bool ref -val for_package : string option ref -val dump_parsetree : bool ref -val dump_rawlambda : bool ref -val dump_lambda : bool ref -val dump_instr : bool ref -val keep_asm_file : bool ref -val optimize_for_speed : bool ref -val dump_cmm : bool ref -val dump_selection : bool ref -val dump_live : bool ref -val dump_spill : bool ref -val dump_split : bool ref -val dump_interf : bool ref -val dump_prefer : bool ref -val dump_regalloc : bool ref -val dump_reload : bool ref -val dump_scheduling : bool ref -val dump_linear : bool ref -val keep_startup_file : bool ref -val dump_combine : bool ref -val native_code : bool ref -val inline_threshold : int ref -val dont_write_files : bool ref -val std_include_flag : string -> string -val std_include_dir : unit -> string list diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/config.ml b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/config.ml deleted file mode 100644 index 00d484bdcaa9..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/config.ml +++ /dev/null @@ -1,109 +0,0 @@ -(***********************************************************************) -(* *) -(* Objective Caml *) -(* *) -(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) -(* *) -(* Copyright 1996 Institut National de Recherche en Informatique et *) -(* en Automatique. All rights reserved. This file is distributed *) -(* under the terms of the Q Public License version 1.0. *) -(* *) -(***********************************************************************) - -(* $Id: config.ml,v 1.1 2007/09/24 23:04:52 so294 Exp $ *) - -(* The main OCaml version string has moved to ../VERSION *) -let version = Sys.ocaml_version - -let standard_library_default = "/home/so294/scratch/ocaml/lib/ocaml" - -let standard_library = - try - Sys.getenv "OCAMLLIB" - with Not_found -> - try - Sys.getenv "CAMLLIB" - with Not_found -> - standard_library_default - -let standard_runtime = "/home/so294/scratch/ocaml/bin/ocamlrun" -let ccomp_type = "cc" -let bytecomp_c_compiler = "gcc -fno-defer-pop -Wall -D_FILE_OFFSET_BITS=64 -D_REENTRANT -fPIC" -let bytecomp_c_linker = "gcc -Wl,-E" -let bytecomp_c_libraries = "-lm -ldl -lcurses -lpthread" -let native_c_compiler = "gcc -Wall -D_FILE_OFFSET_BITS=64 -D_REENTRANT" -let native_c_linker = "gcc " -let native_c_libraries = "-lm -ldl" -let native_partial_linker = "ld -r " -let native_pack_linker = "ld -r -o " -let ranlib = "ranlib" -let cc_profile = "-pg" - -let exec_magic_number = "Caml1999X008" -and cmi_magic_number = "Caml1999I010" -and cmo_magic_number = "Caml1999O006" -and cma_magic_number = "Caml1999A007" -and cmx_magic_number = "Caml1999Y011" -and cmxa_magic_number = "Caml1999Z010" -and ast_impl_magic_number = "Caml1999M011" -and ast_intf_magic_number = "Caml1999N010" - -let load_path = ref ([] : string list) - -let interface_suffix = ref ".mli" - -let max_tag = 245 -(* This is normally the same as in obj.ml, but we have to define it - separately because it can differ when we're in the middle of a - bootstrapping phase. *) -let lazy_tag = 246 - -let max_young_wosize = 256 -let stack_threshold = 256 (* see byterun/config.h *) - -let architecture = "amd64" -let model = "default" -let system = "linux" - -let ext_obj = ".o" -let ext_asm = ".s" -let ext_lib = ".a" -let ext_dll = ".so" - -let default_executable_name = - match Sys.os_type with - "Unix" -> "a.out" - | "Win32" | "Cygwin" -> "camlprog.exe" - | _ -> "camlprog" - -let systhread_supported = true;; - -let print_config oc = - let p name valu = Printf.fprintf oc "%s: %s\n" name valu in - let p_bool name valu = Printf.fprintf oc "%s: %B\n" name valu in - p "version" version; - p "standard_library_default" standard_library_default; - p "standard_library" standard_library; - p "standard_runtime" standard_runtime; - p "ccomp_type" ccomp_type; - p "bytecomp_c_compiler" bytecomp_c_compiler; - p "bytecomp_c_linker" bytecomp_c_linker; - p "bytecomp_c_libraries" bytecomp_c_libraries; - p "native_c_compiler" native_c_compiler; - p "native_c_linker" native_c_linker; - p "native_c_libraries" native_c_libraries; - p "native_partial_linker" native_partial_linker; - p "ranlib" ranlib; - p "cc_profile" cc_profile; - p "architecture" architecture; - p "model" model; - p "system" system; - p "ext_obj" ext_obj; - p "ext_asm" ext_asm; - p "ext_lib" ext_lib; - p "ext_dll" ext_dll; - p "os_type" Sys.os_type; - p "default_executable_name" default_executable_name; - p_bool "systhread_supported" systhread_supported; - flush oc; -;; diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/config.mlbuild b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/config.mlbuild deleted file mode 100644 index 37b7024b1b59..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/config.mlbuild +++ /dev/null @@ -1,124 +0,0 @@ -(***********************************************************************) -(* *) -(* Objective Caml *) -(* *) -(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) -(* *) -(* Copyright 1996 Institut National de Recherche en Informatique et *) -(* en Automatique. All rights reserved. This file is distributed *) -(* under the terms of the Q Public License version 1.0. *) -(* *) -(***********************************************************************) - -(* $Id: config.mlbuild,v 1.1 2007/09/24 23:04:52 so294 Exp $ *) - -(* The main OCaml version string has moved to ../VERSION *) -let version = Sys.ocaml_version - -module C = Myocamlbuild_config - -let standard_library_default = C.libdir - -let standard_library = - try - Sys.getenv "OCAMLLIB" - with Not_found -> - try - Sys.getenv "CAMLLIB" - with Not_found -> - standard_library_default - -let windows = - match Sys.os_type with - | "Win32" -> true - | _ -> false - -let sf = Printf.sprintf - -let standard_runtime = - if windows then "ocamlrun" - else C.bindir^"/ocamlrun" -let ccomp_type = C.ccomptype -let bytecomp_c_compiler = sf "%s %s %s" C.bytecc C.bytecccompopts C.sharedcccompopts -let bytecomp_c_linker = sf "%s %s" C.bytecc C.bytecclinkopts -let bytecomp_c_libraries = C.bytecclibs -let native_c_compiler = sf "%s %s" C.nativecc C.nativecccompopts -let native_c_linker = sf "%s %s" C.nativecc C.nativecclinkopts -let native_c_libraries = C.nativecclibs -let native_partial_linker = - if ccomp_type = "msvc" then "link /lib /nologo" - else sf "%s %s" C.partialld C.nativecclinkopts -let native_pack_linker = - if ccomp_type = "msvc" then "link /lib /nologo /out:" - else sf "%s %s -o " C.partialld C.nativecclinkopts -let ranlib = C.ranlibcmd -let cc_profile = C.cc_profile - -let exec_magic_number = "Caml1999X008" -and cmi_magic_number = "Caml1999I010" -and cmo_magic_number = "Caml1999O006" -and cma_magic_number = "Caml1999A007" -and cmx_magic_number = "Caml1999Y011" -and cmxa_magic_number = "Caml1999Z010" -and ast_impl_magic_number = "Caml1999M011" -and ast_intf_magic_number = "Caml1999N010" - -let load_path = ref ([] : string list) - -let interface_suffix = ref ".mli" - -let max_tag = 245 -(* This is normally the same as in obj.ml, but we have to define it - separately because it can differ when we're in the middle of a - bootstrapping phase. *) -let lazy_tag = 246 - -let max_young_wosize = 256 -let stack_threshold = 256 (* see byterun/config.h *) - -let architecture = C.arch -let model = C.model -let system = C.system - -let ext_obj = C.ext_obj -let ext_asm = C.ext_asm -let ext_lib = C.ext_lib -let ext_dll = C.ext_dll - -let default_executable_name = - match Sys.os_type with - "Unix" -> "a.out" - | "Win32" | "Cygwin" -> "camlprog.exe" - | _ -> "camlprog" - -let systhread_supported = C.systhread_support;; - -let print_config oc = - let p name valu = Printf.fprintf oc "%s: %s\n" name valu in - let p_bool name valu = Printf.fprintf oc "%s: %B\n" name valu in - p "version" version; - p "standard_library_default" standard_library_default; - p "standard_library" standard_library; - p "standard_runtime" standard_runtime; - p "ccomp_type" ccomp_type; - p "bytecomp_c_compiler" bytecomp_c_compiler; - p "bytecomp_c_linker" bytecomp_c_linker; - p "bytecomp_c_libraries" bytecomp_c_libraries; - p "native_c_compiler" native_c_compiler; - p "native_c_linker" native_c_linker; - p "native_c_libraries" native_c_libraries; - p "native_partial_linker" native_partial_linker; - p "ranlib" ranlib; - p "cc_profile" cc_profile; - p "architecture" architecture; - p "model" model; - p "system" system; - p "ext_obj" ext_obj; - p "ext_asm" ext_asm; - p "ext_lib" ext_lib; - p "ext_dll" ext_dll; - p "os_type" Sys.os_type; - p "default_executable_name" default_executable_name; - p_bool "systhread_supported" systhread_supported; - flush oc; -;; diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/config.mli b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/config.mli deleted file mode 100644 index d7563b6f0fbe..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/config.mli +++ /dev/null @@ -1,112 +0,0 @@ -(***********************************************************************) -(* *) -(* Objective Caml *) -(* *) -(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) -(* *) -(* Copyright 1996 Institut National de Recherche en Informatique et *) -(* en Automatique. All rights reserved. This file is distributed *) -(* under the terms of the Q Public License version 1.0. *) -(* *) -(***********************************************************************) - -(* $Id: config.mli,v 1.1 2007/09/24 23:04:52 so294 Exp $ *) - -(* System configuration *) - -val version: string - (* The current version number of the system *) - -val standard_library: string - (* The directory containing the standard libraries *) -val standard_runtime: string - (* The full path to the standard bytecode interpreter ocamlrun *) -val ccomp_type: string - (* The "kind" of the C compiler: one of - "cc" (for Unix-style C compilers) - "msvc" (Microsoft Visual C++) - "mrc" (Macintosh MPW) *) -val bytecomp_c_compiler: string - (* The C compiler to use for compiling C files - with the bytecode compiler *) -val bytecomp_c_linker: string - (* The C compiler to use for building custom runtime systems - with the bytecode compiler *) -val bytecomp_c_libraries: string - (* The C libraries to link with custom runtimes *) -val native_c_compiler: string - (* The C compiler to use for compiling C files - with the native-code compiler *) -val native_c_linker: string - (* The C compiler to use for the final linking step - in the native code compiler *) -val native_c_libraries: string - (* The C libraries to link with native-code programs *) -val native_partial_linker: string - (* The linker to use for partial links (ocamlopt -output-obj) *) -val native_pack_linker: string - (* The linker to use for packaging (ocamlopt -pack) *) -val ranlib: string - (* Command to randomize a library, or "" if not needed *) -val cc_profile : string - (* The command line option to the C compiler to enable profiling. *) - -val load_path: string list ref - (* Directories in the search path for .cmi and .cmo files *) - -val interface_suffix: string ref - (* Suffix for interface file names *) - -val exec_magic_number: string - (* Magic number for bytecode executable files *) -val cmi_magic_number: string - (* Magic number for compiled interface files *) -val cmo_magic_number: string - (* Magic number for object bytecode files *) -val cma_magic_number: string - (* Magic number for archive files *) -val cmx_magic_number: string - (* Magic number for compilation unit descriptions *) -val cmxa_magic_number: string - (* Magic number for libraries of compilation unit descriptions *) -val ast_intf_magic_number: string - (* Magic number for file holding an interface syntax tree *) -val ast_impl_magic_number: string - (* Magic number for file holding an implementation syntax tree *) - -val max_tag: int - (* Biggest tag that can be stored in the header of a regular block. *) -val lazy_tag : int - (* Normally the same as Obj.lazy_tag. Separate definition because - of technical reasons for bootstrapping. *) -val max_young_wosize: int - (* Maximal size of arrays that are directly allocated in the - minor heap *) -val stack_threshold: int - (* Size in words of safe area at bottom of VM stack, - see byterun/config.h *) - -val architecture: string - (* Name of processor type for the native-code compiler *) -val model: string - (* Name of processor submodel for the native-code compiler *) -val system: string - (* Name of operating system for the native-code compiler *) - -val ext_obj: string - (* Extension for object files, e.g. [.o] under Unix. *) -val ext_asm: string - (* Extension for assembler files, e.g. [.s] under Unix. *) -val ext_lib: string - (* Extension for library files, e.g. [.a] under Unix. *) -val ext_dll: string - (* Extension for dynamically-loaded libraries, e.g. [.so] under Unix.*) - -val default_executable_name: string - (* Name of executable produced by linking if none is given with -o, - e.g. [a.out] under Unix. *) - -val systhread_supported : bool - (* Whether the system thread library is implemented *) - -val print_config : out_channel -> unit;; diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/config.mlp b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/config.mlp deleted file mode 100644 index cfc8e71c0917..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/config.mlp +++ /dev/null @@ -1,109 +0,0 @@ -(***********************************************************************) -(* *) -(* Objective Caml *) -(* *) -(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) -(* *) -(* Copyright 1996 Institut National de Recherche en Informatique et *) -(* en Automatique. All rights reserved. This file is distributed *) -(* under the terms of the Q Public License version 1.0. *) -(* *) -(***********************************************************************) - -(* $Id: config.mlp,v 1.1 2007/09/24 23:04:52 so294 Exp $ *) - -(* The main OCaml version string has moved to ../VERSION *) -let version = Sys.ocaml_version - -let standard_library_default = "%%LIBDIR%%" - -let standard_library = - try - Sys.getenv "OCAMLLIB" - with Not_found -> - try - Sys.getenv "CAMLLIB" - with Not_found -> - standard_library_default - -let standard_runtime = "%%BYTERUN%%" -let ccomp_type = "%%CCOMPTYPE%%" -let bytecomp_c_compiler = "%%BYTECC%%" -let bytecomp_c_linker = "%%BYTELINK%%" -let bytecomp_c_libraries = "%%BYTECCLIBS%%" -let native_c_compiler = "%%NATIVECC%%" -let native_c_linker = "%%NATIVELINK%%" -let native_c_libraries = "%%NATIVECCLIBS%%" -let native_partial_linker = "%%PARTIALLD%%" -let native_pack_linker = "%%PACKLD%%" -let ranlib = "%%RANLIBCMD%%" -let cc_profile = "%%CC_PROFILE%%" - -let exec_magic_number = "Caml1999X008" -and cmi_magic_number = "Caml1999I010" -and cmo_magic_number = "Caml1999O006" -and cma_magic_number = "Caml1999A007" -and cmx_magic_number = "Caml1999Y011" -and cmxa_magic_number = "Caml1999Z010" -and ast_impl_magic_number = "Caml1999M011" -and ast_intf_magic_number = "Caml1999N010" - -let load_path = ref ([] : string list) - -let interface_suffix = ref ".mli" - -let max_tag = 245 -(* This is normally the same as in obj.ml, but we have to define it - separately because it can differ when we're in the middle of a - bootstrapping phase. *) -let lazy_tag = 246 - -let max_young_wosize = 256 -let stack_threshold = 256 (* see byterun/config.h *) - -let architecture = "%%ARCH%%" -let model = "%%MODEL%%" -let system = "%%SYSTEM%%" - -let ext_obj = "%%EXT_OBJ%%" -let ext_asm = "%%EXT_ASM%%" -let ext_lib = "%%EXT_LIB%%" -let ext_dll = "%%EXT_DLL%%" - -let default_executable_name = - match Sys.os_type with - "Unix" -> "a.out" - | "Win32" | "Cygwin" -> "camlprog.exe" - | _ -> "camlprog" - -let systhread_supported = %%SYSTHREAD_SUPPORT%%;; - -let print_config oc = - let p name valu = Printf.fprintf oc "%s: %s\n" name valu in - let p_bool name valu = Printf.fprintf oc "%s: %B\n" name valu in - p "version" version; - p "standard_library_default" standard_library_default; - p "standard_library" standard_library; - p "standard_runtime" standard_runtime; - p "ccomp_type" ccomp_type; - p "bytecomp_c_compiler" bytecomp_c_compiler; - p "bytecomp_c_linker" bytecomp_c_linker; - p "bytecomp_c_libraries" bytecomp_c_libraries; - p "native_c_compiler" native_c_compiler; - p "native_c_linker" native_c_linker; - p "native_c_libraries" native_c_libraries; - p "native_partial_linker" native_partial_linker; - p "ranlib" ranlib; - p "cc_profile" cc_profile; - p "architecture" architecture; - p "model" model; - p "system" system; - p "ext_obj" ext_obj; - p "ext_asm" ext_asm; - p "ext_lib" ext_lib; - p "ext_dll" ext_dll; - p "os_type" Sys.os_type; - p "default_executable_name" default_executable_name; - p_bool "systhread_supported" systhread_supported; - flush oc; -;; diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/consistbl.ml b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/consistbl.ml deleted file mode 100644 index 2678dda1a60c..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/consistbl.ml +++ /dev/null @@ -1,57 +0,0 @@ -(***********************************************************************) -(* *) -(* Objective Caml *) -(* *) -(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) -(* *) -(* Copyright 2002 Institut National de Recherche en Informatique et *) -(* en Automatique. All rights reserved. This file is distributed *) -(* under the terms of the Q Public License version 1.0. *) -(* *) -(***********************************************************************) - -(* $Id: consistbl.ml,v 1.1 2007/09/24 23:04:52 so294 Exp $ *) - -(* Consistency tables: for checking consistency of module CRCs *) - -type t = (string, Digest.t * string) Hashtbl.t - -let create () = Hashtbl.create 13 - -let clear = Hashtbl.clear - -exception Inconsistency of string * string * string - -exception Not_available of string - -let check tbl name crc source = - try - let (old_crc, old_source) = Hashtbl.find tbl name in - if crc <> old_crc then raise(Inconsistency(name, source, old_source)) - with Not_found -> - Hashtbl.add tbl name (crc, source) - -let check_noadd tbl name crc source = - try - let (old_crc, old_source) = Hashtbl.find tbl name in - if crc <> old_crc then raise(Inconsistency(name, source, old_source)) - with Not_found -> - raise (Not_available name) - -let set tbl name crc source = Hashtbl.add tbl name (crc, source) - -let source tbl name = snd (Hashtbl.find tbl name) - -let extract tbl = - Hashtbl.fold (fun name (crc, auth) accu -> (name, crc) :: accu) tbl [] - -let filter p tbl = - let to_remove = ref [] in - Hashtbl.iter - (fun name (crc, auth) -> - if not (p name) then to_remove := name :: !to_remove) - tbl; - List.iter - (fun name -> - while Hashtbl.mem tbl name do Hashtbl.remove tbl name done) - !to_remove diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/consistbl.mli b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/consistbl.mli deleted file mode 100644 index 037342f16d62..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/consistbl.mli +++ /dev/null @@ -1,60 +0,0 @@ -(***********************************************************************) -(* *) -(* Objective Caml *) -(* *) -(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) -(* *) -(* Copyright 2002 Institut National de Recherche en Informatique et *) -(* en Automatique. All rights reserved. This file is distributed *) -(* under the terms of the Q Public License version 1.0. *) -(* *) -(***********************************************************************) - -(* $Id: consistbl.mli,v 1.1 2007/09/24 23:04:52 so294 Exp $ *) - -(* Consistency tables: for checking consistency of module CRCs *) - -type t - -val create: unit -> t - -val clear: t -> unit - -val check: t -> string -> Digest.t -> string -> unit - (* [check tbl name crc source] - checks consistency of ([name], [crc]) with infos previously - stored in [tbl]. If no CRC was previously associated with - [name], record ([name], [crc]) in [tbl]. - [source] is the name of the file from which the information - comes from. This is used for error reporting. *) - -val check_noadd: t -> string -> Digest.t -> string -> unit - (* Same as [check], but raise [Not_available] if no CRC was previously - associated with [name]. *) - -val set: t -> string -> Digest.t -> string -> unit - (* [set tbl name crc source] forcefully associates [name] with - [crc] in [tbl], even if [name] already had a different CRC - associated with [name] in [tbl]. *) - -val source: t -> string -> string - (* [source tbl name] returns the file name associated with [name] - if the latter has an associated CRC in [tbl]. - Raise [Not_found] otherwise. *) - -val extract: t -> (string * Digest.t) list - (* Return all bindings ([name], [crc]) contained in the given - table. *) - -val filter: (string -> bool) -> t -> unit - (* [filter pred tbl] removes from [tbl] table all (name, CRC) pairs - such that [pred name] is [false]. *) - -exception Inconsistency of string * string * string - (* Raised by [check] when a CRC mismatch is detected. - First string is the name of the compilation unit. - Second string is the source that caused the inconsistency. - Third string is the source that set the CRC. *) - -exception Not_available of string - (* Raised by [check_noadd] when a name doesn't have an associated CRC. *) diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/misc.ml b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/misc.ml deleted file mode 100644 index 6b0e796a0dd0..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/misc.ml +++ /dev/null @@ -1,197 +0,0 @@ -(***********************************************************************) -(* *) -(* Objective Caml *) -(* *) -(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) -(* *) -(* Copyright 1996 Institut National de Recherche en Informatique et *) -(* en Automatique. All rights reserved. This file is distributed *) -(* under the terms of the Q Public License version 1.0. *) -(* *) -(***********************************************************************) - -(* $Id: misc.ml,v 1.1 2007/09/24 23:04:52 so294 Exp $ *) - -(* Errors *) - -exception Fatal_error - -let fatal_error msg = - prerr_string ">> Fatal error: "; prerr_endline msg; raise Fatal_error - -(* Exceptions *) - -let try_finally f1 f2 = - try - let result = f1 () in - f2 (); - result - with x -> f2 (); raise x -;; - -(* List functions *) - -let rec map_end f l1 l2 = - match l1 with - [] -> l2 - | hd::tl -> f hd :: map_end f tl l2 - -let rec map_left_right f = function - [] -> [] - | hd::tl -> let res = f hd in res :: map_left_right f tl - -let rec for_all2 pred l1 l2 = - match (l1, l2) with - ([], []) -> true - | (hd1::tl1, hd2::tl2) -> pred hd1 hd2 && for_all2 pred tl1 tl2 - | (_, _) -> false - -let rec replicate_list elem n = - if n <= 0 then [] else elem :: replicate_list elem (n-1) - -let rec list_remove x = function - [] -> [] - | hd :: tl -> - if hd = x then tl else hd :: list_remove x tl - -let rec split_last = function - [] -> assert false - | [x] -> ([], x) - | hd :: tl -> - let (lst, last) = split_last tl in - (hd :: lst, last) - -let rec samelist pred l1 l2 = - match (l1, l2) with - | ([], []) -> true - | (hd1 :: tl1, hd2 :: tl2) -> pred hd1 hd2 && samelist pred tl1 tl2 - | (_, _) -> false - -(* Options *) - -let may f = function - Some x -> f x - | None -> () - -let may_map f = function - Some x -> Some (f x) - | None -> None - -(* File functions *) - -let find_in_path path name = - if not (Filename.is_implicit name) then - if Sys.file_exists name then name else raise Not_found - else begin - let rec try_dir = function - [] -> raise Not_found - | dir::rem -> - let fullname = Filename.concat dir name in - if Sys.file_exists fullname then fullname else try_dir rem - in try_dir path - end - -let find_in_path_uncap path name = - let uname = String.uncapitalize name in - let rec try_dir = function - [] -> raise Not_found - | dir::rem -> - let fullname = Filename.concat dir name - and ufullname = Filename.concat dir uname in - if Sys.file_exists ufullname then ufullname - else if Sys.file_exists fullname then fullname - else try_dir rem - in try_dir path - -let remove_file filename = - try - Sys.remove filename - with Sys_error msg -> - () - -(* Expand a -I option: if it starts with +, make it relative to the standard - library directory *) - -let expand_directory alt s = - if String.length s > 0 && s.[0] = '+' - then Filename.concat alt - (String.sub s 1 (String.length s - 1)) - else s - -(* Hashtable functions *) - -let create_hashtable size init = - let tbl = Hashtbl.create size in - List.iter (fun (key, data) -> Hashtbl.add tbl key data) init; - tbl - -(* File copy *) - -let copy_file ic oc = - let buff = String.create 0x1000 in - let rec copy () = - let n = input ic buff 0 0x1000 in - if n = 0 then () else (output oc buff 0 n; copy()) - in copy() - -let copy_file_chunk ic oc len = - let buff = String.create 0x1000 in - let rec copy n = - if n <= 0 then () else begin - let r = input ic buff 0 (min n 0x1000) in - if r = 0 then raise End_of_file else (output oc buff 0 r; copy(n-r)) - end - in copy len - -(* Integer operations *) - -let rec log2 n = - if n <= 1 then 0 else 1 + log2(n asr 1) - -let align n a = - if n >= 0 then (n + a - 1) land (-a) else n land (-a) - -let no_overflow_add a b = (a lxor b) lor (a lxor (lnot (a+b))) < 0 - -let no_overflow_sub a b = (a lxor (lnot b)) lor (b lxor (a-b)) < 0 - -let no_overflow_lsl a = min_int asr 1 <= a && a <= max_int asr 1 - -(* String operations *) - -let chop_extension_if_any fname = - try Filename.chop_extension fname with Invalid_argument _ -> fname - -let chop_extensions file = - let dirname = Filename.dirname file and basename = Filename.basename file in - try - let pos = String.index basename '.' in - let basename = String.sub basename 0 pos in - if Filename.is_implicit file && dirname = Filename.current_dir_name then - basename - else - Filename.concat dirname basename - with Not_found -> file - -let search_substring pat str start = - let rec search i j = - if j >= String.length pat then i - else if i + j >= String.length str then raise Not_found - else if str.[i + j] = pat.[j] then search i (j+1) - else search (i+1) 0 - in search start 0 - -let rev_split_words s = - let rec split1 res i = - if i >= String.length s then res else begin - match s.[i] with - ' ' | '\t' | '\r' | '\n' -> split1 res (i+1) - | _ -> split2 res i (i+1) - end - and split2 res i j = - if j >= String.length s then String.sub s i (j-i) :: res else begin - match s.[j] with - ' ' | '\t' | '\r' | '\n' -> split1 (String.sub s i (j-i) :: res) (j+1) - | _ -> split2 res i (j+1) - end - in split1 [] 0 diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/misc.mli b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/misc.mli deleted file mode 100644 index f5a257e3bf75..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/misc.mli +++ /dev/null @@ -1,104 +0,0 @@ -(***********************************************************************) -(* *) -(* Objective Caml *) -(* *) -(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) -(* *) -(* Copyright 1996 Institut National de Recherche en Informatique et *) -(* en Automatique. All rights reserved. This file is distributed *) -(* under the terms of the Q Public License version 1.0. *) -(* *) -(***********************************************************************) - -(* $Id: misc.mli,v 1.1 2007/09/24 23:04:52 so294 Exp $ *) - -(* Miscellaneous useful types and functions *) - -val fatal_error: string -> 'a -exception Fatal_error - -val try_finally : (unit -> 'a) -> (unit -> unit) -> 'a;; - -val map_end: ('a -> 'b) -> 'a list -> 'b list -> 'b list - (* [map_end f l t] is [map f l @ t], just more efficient. *) -val map_left_right: ('a -> 'b) -> 'a list -> 'b list - (* Like [List.map], with guaranteed left-to-right evaluation order *) -val for_all2: ('a -> 'b -> bool) -> 'a list -> 'b list -> bool - (* Same as [List.for_all] but for a binary predicate. - In addition, this [for_all2] never fails: given two lists - with different lengths, it returns false. *) -val replicate_list: 'a -> int -> 'a list - (* [replicate_list elem n] is the list with [n] elements - all identical to [elem]. *) -val list_remove: 'a -> 'a list -> 'a list - (* [list_remove x l] returns a copy of [l] with the first - element equal to [x] removed. *) -val split_last: 'a list -> 'a list * 'a - (* Return the last element and the other elements of the given list. *) -val samelist: ('a -> 'a -> bool) -> 'a list -> 'a list -> bool - (* Like [List.for_all2] but returns [false] if the two - lists have different length. *) - -val may: ('a -> unit) -> 'a option -> unit -val may_map: ('a -> 'b) -> 'a option -> 'b option - -val find_in_path: string list -> string -> string - (* Search a file in a list of directories. *) -val find_in_path_uncap: string list -> string -> string - (* Same, but search also for uncapitalized name, i.e. - if name is Foo.ml, allow /path/Foo.ml and /path/foo.ml - to match. *) -val remove_file: string -> unit - (* Delete the given file if it exists. Never raise an error. *) -val expand_directory: string -> string -> string - (* [expand_directory alt file] eventually expands a [+] at the - beginning of file into [alt] (an alternate root directory) *) - -val create_hashtable: int -> ('a * 'b) list -> ('a, 'b) Hashtbl.t - (* Create a hashtable of the given size and fills it with the - given bindings. *) - -val copy_file: in_channel -> out_channel -> unit - (* [copy_file ic oc] reads the contents of file [ic] and copies - them to [oc]. It stops when encountering EOF on [ic]. *) -val copy_file_chunk: in_channel -> out_channel -> int -> unit - (* [copy_file_chunk ic oc n] reads [n] bytes from [ic] and copies - them to [oc]. It raises [End_of_file] when encountering - EOF on [ic]. *) - -val log2: int -> int - (* [log2 n] returns [s] such that [n = 1 lsl s] - if [n] is a power of 2*) -val align: int -> int -> int - (* [align n a] rounds [n] upwards to a multiple of [a] - (a power of 2). *) -val no_overflow_add: int -> int -> bool - (* [no_overflow_add n1 n2] returns [true] if the computation of - [n1 + n2] does not overflow. *) -val no_overflow_sub: int -> int -> bool - (* [no_overflow_add n1 n2] returns [true] if the computation of - [n1 - n2] does not overflow. *) -val no_overflow_lsl: int -> bool - (* [no_overflow_add n] returns [true] if the computation of - [n lsl 1] does not overflow. *) - -val chop_extension_if_any: string -> string - (* Like Filename.chop_extension but returns the initial file - name if it has no extension *) - -val chop_extensions: string -> string - (* Return the given file name without its extensions. The extensions - is the longest suffix starting with a period and not including - a directory separator, [.xyz.uvw] for instance. - - Return the given name if it does not contain an extension. *) - -val search_substring: string -> string -> int -> int - (* [search_substring pat str start] returns the position of the first - occurrence of string [pat] in string [str]. Search starts - at offset [start] in [str]. Raise [Not_found] if [pat] - does not occur. *) - -val rev_split_words: string -> string list - (* [rev_split_words s] splits [s] in blank-separated words, and return - the list of words in reverse order. *) diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/tbl.ml b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/tbl.ml deleted file mode 100644 index 80f5fc6867d0..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/tbl.ml +++ /dev/null @@ -1,104 +0,0 @@ -(***********************************************************************) -(* *) -(* Objective Caml *) -(* *) -(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) -(* *) -(* Copyright 1996 Institut National de Recherche en Informatique et *) -(* en Automatique. All rights reserved. This file is distributed *) -(* under the terms of the Q Public License version 1.0. *) -(* *) -(***********************************************************************) - -(* $Id: tbl.ml,v 1.1 2007/09/24 23:04:52 so294 Exp $ *) - -type ('a, 'b) t = - Empty - | Node of ('a, 'b) t * 'a * 'b * ('a, 'b) t * int - -let empty = Empty - -let height = function - Empty -> 0 - | Node(_,_,_,_,h) -> h - -let create l x d r = - let hl = height l and hr = height r in - Node(l, x, d, r, (if hl >= hr then hl + 1 else hr + 1)) - -let bal l x d r = - let hl = height l and hr = height r in - if hl > hr + 1 then - match l with - | Node (ll, lv, ld, lr, _) when height ll >= height lr -> - create ll lv ld (create lr x d r) - | Node (ll, lv, ld, Node (lrl, lrv, lrd, lrr, _), _) -> - create (create ll lv ld lrl) lrv lrd (create lrr x d r) - | _ -> assert false - else if hr > hl + 1 then - match r with - | Node (rl, rv, rd, rr, _) when height rr >= height rl -> - create (create l x d rl) rv rd rr - | Node (Node (rll, rlv, rld, rlr, _), rv, rd, rr, _) -> - create (create l x d rll) rlv rld (create rlr rv rd rr) - | _ -> assert false - else - create l x d r - -let rec add x data = function - Empty -> - Node(Empty, x, data, Empty, 1) - | Node(l, v, d, r, h) -> - let c = compare x v in - if c = 0 then - Node(l, x, data, r, h) - else if c < 0 then - bal (add x data l) v d r - else - bal l v d (add x data r) - -let rec find x = function - Empty -> - raise Not_found - | Node(l, v, d, r, _) -> - let c = compare x v in - if c = 0 then d - else find x (if c < 0 then l else r) - -let rec mem x = function - Empty -> false - | Node(l, v, d, r, _) -> - let c = compare x v in - c = 0 || mem x (if c < 0 then l else r) - -let rec merge t1 t2 = - match (t1, t2) with - (Empty, t) -> t - | (t, Empty) -> t - | (Node(l1, v1, d1, r1, h1), Node(l2, v2, d2, r2, h2)) -> - bal l1 v1 d1 (bal (merge r1 l2) v2 d2 r2) - -let rec remove x = function - Empty -> - Empty - | Node(l, v, d, r, h) -> - let c = compare x v in - if c = 0 then - merge l r - else if c < 0 then - bal (remove x l) v d r - else - bal l v d (remove x r) - -let rec iter f = function - Empty -> () - | Node(l, v, d, r, _) -> - iter f l; f v d; iter f r - -open Format - -let print print_key print_data ppf tbl = - let print_tbl ppf tbl = - iter (fun k d -> fprintf ppf "@[<2>%a ->@ %a;@]@ " print_key k print_data d) - tbl in - fprintf ppf "@[[[%a]]@]" print_tbl tbl diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/tbl.mli b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/tbl.mli deleted file mode 100644 index 74f2dd4ca384..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/tbl.mli +++ /dev/null @@ -1,30 +0,0 @@ -(***********************************************************************) -(* *) -(* Objective Caml *) -(* *) -(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) -(* *) -(* Copyright 1996 Institut National de Recherche en Informatique et *) -(* en Automatique. All rights reserved. This file is distributed *) -(* under the terms of the Q Public License version 1.0. *) -(* *) -(***********************************************************************) - -(* $Id: tbl.mli,v 1.1 2007/09/24 23:04:52 so294 Exp $ *) - -(* Association tables from any ordered type to any type. - We use the generic ordering to compare keys. *) - -type ('a, 'b) t - -val empty: ('a, 'b) t -val add: 'a -> 'b -> ('a, 'b) t -> ('a, 'b) t -val find: 'a -> ('a, 'b) t -> 'b -val mem: 'a -> ('a, 'b) t -> bool -val remove: 'a -> ('a, 'b) t -> ('a, 'b) t -val iter: ('a -> 'b -> 'c) -> ('a, 'b) t -> unit - -open Format - -val print: (formatter -> 'a -> unit) -> (formatter -> 'b -> unit) -> - formatter -> ('a, 'b) t -> unit diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/terminfo.ml b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/terminfo.ml deleted file mode 100644 index b6194af7f591..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/terminfo.ml +++ /dev/null @@ -1,25 +0,0 @@ -(***********************************************************************) -(* *) -(* Objective Caml *) -(* *) -(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) -(* *) -(* Copyright 1996 Institut National de Recherche en Informatique et *) -(* en Automatique. All rights reserved. This file is distributed *) -(* under the terms of the Q Public License version 1.0. *) -(* *) -(***********************************************************************) - -(* $Id: terminfo.ml,v 1.1 2007/09/24 23:04:52 so294 Exp $ *) - -(* Basic interface to the terminfo database *) - -type status = - | Uninitialised - | Bad_term - | Good_term of int -;; -external setup : out_channel -> status = "caml_terminfo_setup";; -external backup : int -> unit = "caml_terminfo_backup";; -external standout : bool -> unit = "caml_terminfo_standout";; -external resume : int -> unit = "caml_terminfo_resume";; diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/terminfo.mli b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/terminfo.mli deleted file mode 100644 index da729ed4a2f3..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/terminfo.mli +++ /dev/null @@ -1,25 +0,0 @@ -(***********************************************************************) -(* *) -(* Objective Caml *) -(* *) -(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) -(* *) -(* Copyright 1996 Institut National de Recherche en Informatique et *) -(* en Automatique. All rights reserved. This file is distributed *) -(* under the terms of the Q Public License version 1.0. *) -(* *) -(***********************************************************************) - -(* $Id: terminfo.mli,v 1.1 2007/09/24 23:04:52 so294 Exp $ *) - -(* Basic interface to the terminfo database *) - -type status = - | Uninitialised - | Bad_term - | Good_term of int (* number of lines of the terminal *) -;; -external setup : out_channel -> status = "caml_terminfo_setup";; -external backup : int -> unit = "caml_terminfo_backup";; -external standout : bool -> unit = "caml_terminfo_standout";; -external resume : int -> unit = "caml_terminfo_resume";; diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/warnings.ml b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/warnings.ml deleted file mode 100644 index d47d4ba0b97f..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/warnings.ml +++ /dev/null @@ -1,191 +0,0 @@ -(***********************************************************************) -(* *) -(* Objective Caml *) -(* *) -(* Pierre Weis && Damien Doligez, INRIA Rocquencourt *) -(* *) -(* Copyright 1998 Institut National de Recherche en Informatique et *) -(* en Automatique. All rights reserved. This file is distributed *) -(* under the terms of the Q Public License version 1.0. *) -(* *) -(***********************************************************************) - -(* $Id: warnings.ml,v 1.1 2007/09/24 23:04:52 so294 Exp $ *) - -(* Please keep them in alphabetical order *) - -type t = (* A is all *) - | Comment_start (* C *) - | Comment_not_end - | Deprecated (* D *) - | Fragile_match of string (* E *) - | Partial_application (* F *) - | Labels_omitted (* L *) - | Method_override of string list (* M *) - | Partial_match of string (* P *) - | Statement_type (* S *) - | Unused_match (* U *) - | Unused_pat - | Instance_variable_override of string (* V *) - | Illegal_backslash (* X *) - | Implicit_public_methods of string list - | Unerasable_optional_argument - | Undeclared_virtual_method of string - | Not_principal of string - | Without_principality of string - | Unused_argument - | Nonreturning_statement - | Camlp4 of string - | All_clauses_guarded - | Useless_record_with - | Unused_var of string (* Y *) - | Unused_var_strict of string (* Z *) -;; - -let letter = function (* 'a' is all *) - | Comment_start - | Comment_not_end -> 'c' - | Deprecated -> 'd' - | Fragile_match _ -> 'e' - | Partial_application -> 'f' - | Labels_omitted -> 'l' - | Method_override _ -> 'm' - | Partial_match _ -> 'p' - | Statement_type -> 's' - | Unused_match - | Unused_pat -> 'u' - | Instance_variable_override _ -> 'v' - | Illegal_backslash - | Implicit_public_methods _ - | Unerasable_optional_argument - | Undeclared_virtual_method _ - | Not_principal _ - | Without_principality _ - | Unused_argument - | Nonreturning_statement - | Camlp4 _ - | Useless_record_with - | All_clauses_guarded -> 'x' - | Unused_var _ -> 'y' - | Unused_var_strict _ -> 'z' -;; - -let active = Array.create 27 true;; -let error = Array.create 27 false;; - -let translate c = - if c >= 'A' && c <= 'Z' then - (Char.code c - Char.code 'A', true) - else if c >= 'a' && c <= 'z' then - (Char.code c - Char.code 'a', false) - else - (26, false) -;; - -let is_active x = - let (n, _) = translate (letter x) in - active.(n) -;; - -let is_error x = - let (n, _) = translate (letter x) in - error.(n) -;; - -let parse_options iserr s = - let flags = if iserr then error else active in - for i = 0 to String.length s - 1 do - if s.[i] = 'A' then Array.fill flags 0 (Array.length flags) true - else if s.[i] = 'a' then Array.fill flags 0 (Array.length flags) false - else begin - let (n, fl) = translate s.[i] in - flags.(n) <- fl; - end; - done -;; - -let () = parse_options false "elz";; - -let message = function - | Partial_match "" -> "this pattern-matching is not exhaustive." - | Partial_match s -> - "this pattern-matching is not exhaustive.\n\ - Here is an example of a value that is not matched:\n" ^ s - | Unused_match -> "this match case is unused." - | Unused_pat -> "this sub-pattern is unused." - | Fragile_match "" -> - "this pattern-matching is fragile." - | Fragile_match s -> - "this pattern-matching is fragile.\n\ - It will remain exhaustive when constructors are added to type " ^ s ^ "." - | Labels_omitted -> - "labels were omitted in the application of this function." - | Method_override [lab] -> - "the method " ^ lab ^ " is overriden in the same class." - | Method_override (cname :: slist) -> - String.concat " " - ("the following methods are overriden by the class" - :: cname :: ":\n " :: slist) - | Method_override [] -> assert false - | Instance_variable_override lab -> - "the instance variable " ^ lab ^ " is overriden.\n" ^ - "The behaviour changed in ocaml 3.10 (previous behaviour was hiding.)" - | Partial_application -> - "this function application is partial,\n\ - maybe some arguments are missing." - | Statement_type -> - "this expression should have type unit." - | Comment_start -> "this is the start of a comment." - | Comment_not_end -> "this is not the end of a comment." - | Deprecated -> "this syntax is deprecated." - | Unused_var v | Unused_var_strict v -> "unused variable " ^ v ^ "." - | Illegal_backslash -> "illegal backslash escape in string." - | Implicit_public_methods l -> - "the following private methods were made public implicitly:\n " - ^ String.concat " " l ^ "." - | Unerasable_optional_argument -> "this optional argument cannot be erased." - | Undeclared_virtual_method m -> "the virtual method "^m^" is not declared." - | Not_principal s -> s^" is not principal." - | Without_principality s -> s^" without principality." - | Unused_argument -> "this argument will not be used by the function." - | Nonreturning_statement -> - "this statement never returns (or has an unsound type.)" - | Camlp4 s -> s - | All_clauses_guarded -> - "bad style, all clauses in this pattern-matching are guarded." - | Useless_record_with -> - "this record is defined by a `with' expression,\n\ - but no fields are borrowed from the original." -;; - -let nerrors = ref 0;; - -let print ppf w = - let msg = message w in - let flag = Char.uppercase (letter w) in - let newlines = ref 0 in - for i = 0 to String.length msg - 1 do - if msg.[i] = '\n' then incr newlines; - done; - let (out, flush, newline, space) = - Format.pp_get_all_formatter_output_functions ppf () - in - let countnewline x = incr newlines; newline x in - Format.pp_set_all_formatter_output_functions ppf out flush countnewline space; - Format.fprintf ppf "%c: %s" flag msg; - Format.pp_print_flush ppf (); - Format.pp_set_all_formatter_output_functions ppf out flush newline space; - let (n, _) = translate (letter w) in - if error.(n) then incr nerrors; - !newlines -;; - -exception Errors of int;; - -let check_fatal () = - if !nerrors > 0 then begin - let e = Errors !nerrors in - nerrors := 0; - raise e; - end; -;; diff --git a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/warnings.mli b/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/warnings.mli deleted file mode 100644 index 5537ac7f0f64..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/ocamlpp/utils/warnings.mli +++ /dev/null @@ -1,56 +0,0 @@ -(***********************************************************************) -(* *) -(* Objective Caml *) -(* *) -(* Pierre Weis && Damien Doligez, INRIA Rocquencourt *) -(* *) -(* Copyright 1998 Institut National de Recherche en Informatique et *) -(* en Automatique. All rights reserved. This file is distributed *) -(* under the terms of the Q Public License version 1.0. *) -(* *) -(***********************************************************************) - -(* $Id: warnings.mli,v 1.1 2007/09/24 23:04:52 so294 Exp $ *) - -open Format - -type t = (* A is all *) - | Comment_start (* C *) - | Comment_not_end - | Deprecated (* D *) - | Fragile_match of string (* E *) - | Partial_application (* F *) - | Labels_omitted (* L *) - | Method_override of string list (* M *) - | Partial_match of string (* P *) - | Statement_type (* S *) - | Unused_match (* U *) - | Unused_pat - | Instance_variable_override of string (* V *) - | Illegal_backslash (* X *) - | Implicit_public_methods of string list - | Unerasable_optional_argument - | Undeclared_virtual_method of string - | Not_principal of string - | Without_principality of string - | Unused_argument - | Nonreturning_statement - | Camlp4 of string - | All_clauses_guarded - | Useless_record_with - | Unused_var of string (* Y *) - | Unused_var_strict of string (* Z *) -;; - -val parse_options : bool -> string -> unit;; - -val is_active : t -> bool;; -val is_error : t -> bool;; - -val print : formatter -> t -> int;; - (* returns the number of newlines in the printed string *) - - -exception Errors of int;; - -val check_fatal : unit -> unit;; diff --git a/vendors/ott/examples/ocaml_light/hol/preservationScript.sml b/vendors/ott/examples/ocaml_light/hol/preservationScript.sml deleted file mode 100644 index 3219ddfbe09d..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/preservationScript.sml +++ /dev/null @@ -1,1270 +0,0 @@ -(* -load "ottLib"; -load "substsTheory"; -load "env_permTheory"; -quietdec:=true; -*) -open HolKernel Parse bossLib boolLib combinTheory listTheory rich_listTheory optionTheory pairTheory -open sortingTheory; -open ottLib ottTheory caml_typedefTheory; -open utilTheory basicTheory environmentTheory validTheory strengthenTheory weakenTheory type_substsTheory; -open substsTheory shiftTheory env_permTheory teqTheory; -(* -quietdec:=false; -*) - -val _ = new_theory "preservation"; - -val PERM_lem = Q.prove ( -`!l1 l2 l3 P. EVERY P l1 /\ PERM l1 (l2 ++ l3) ==> EVERY P l2`, -SRW_TAC [] [EVERY_MEM] THEN METIS_TAC [MEM_APPEND, PERM_MEM_EQ]); - - -val EVERY_FORALL = Q.prove ( -`!P l. EVERY (\x. !y. P x y) l = !yl. (LENGTH l = LENGTH yl) ==> EVERY (\(x, y). P x y) (ZIP (l, yl))`, -STRIP_TAC THEN Induct THEN SRW_TAC [] [] THENL -[Cases_on `yl` THEN FULL_SIMP_TAC (srw_ss()) [], - EQ_TAC THEN SRW_TAC [] [] THENL - [Cases_on `yl` THEN FULL_SIMP_TAC (srw_ss()) [], - POP_ASSUM (MP_TAC o Q.SPEC `y::MAP (\x. ARB) l`) THEN SRW_TAC [] [], - Q.PAT_ASSUM `!yl. Q yl` (MP_TAC o Q.SPEC `ARB::yl`) THEN SRW_TAC [] []]]); - -val EVERY_EXISTS = Q.prove ( -`!P l. EVERY (\x. ?y. P x y) l = ?yl. (LENGTH l = LENGTH yl) /\ EVERY (\(x, y). P x y) (ZIP (l, yl))`, -STRIP_TAC THEN Induct THEN SRW_TAC [] [] THENL -[Q.EXISTS_TAC `[]` THEN SRW_TAC [] [], - EQ_TAC THEN SRW_TAC [] [] THENL - [Q.EXISTS_TAC `y::yl` THEN FULL_SIMP_TAC (srw_ss()) [], - Cases_on `yl` THEN FULL_SIMP_TAC (srw_ss()) [] THEN METIS_TAC [], - Cases_on `yl` THEN FULL_SIMP_TAC (srw_ss()) [] THEN METIS_TAC []]]); - -val EVERY_IMP = Q.prove ( -`!P Q l. EVERY (\x. P x ==> Q x) l /\ EVERY P l ==> EVERY Q l`, -NTAC 2 STRIP_TAC THEN Induct THEN SRW_TAC [] []); - -val EVERY_NEST = Q.prove ( -`!l f g. EVERY (\x. EVERY f (g x)) l = EVERY f (FLAT (MAP g l))`, -Induct THEN SRW_TAC [] []); - -val LENGTH_FLAT_REVERSE = Q.prove ( -`!l. LENGTH (FLAT (REVERSE l)) = LENGTH (FLAT l)`, -Induct THEN SRW_TAC [ARITH_ss] [FLAT_APPEND]); - -val _ = Parse.hide "S"; - -val shift_has0_thm = Q.prove ( -`(!t. ~typexpr_has0 t ==> ?t'. t = shiftt 0 1 t') /\ - (!tl. EVERY (\t. ~typexpr_has0 t) tl ==> ?tl'. tl = MAP (\t'. shiftt 0 1 t') tl')`, -Induct THEN SRW_TAC [] [typexpr_has0_def, shiftt_def, o_DEF] THEN1 -METIS_TAC [shiftt_def] THEN1 -(Q.EXISTS_TAC `TE_idxvar (n-1) n0` THEN SRW_TAC [ARITH_ss] [shiftt_def]) THEN METIS_TAC [shiftt_def, MAP]); - -val distinct_pat_env = Q.store_thm ("distinct_pat_env", -`!S E p t E'. JTpat S E p t E' ==> ALL_DISTINCT (MAP domEB E')`, -RULE_INDUCT_TAC JTpat_ind [domEB_def, ALL_DISTINCT_APPEND, DISJOINT_MEM, EVERY_MEM] [] THEN -METIS_TAC []); - -val no_value_red_thm = Q.prove ( -`!e L e'. is_value_of_expr e ==> ~JR_expr e L e'`, -recInduct is_value_of_expr_ind THEN SRW_TAC [] [is_value_of_expr_def, JR_expr_fun] THEN -CCONTR_TAC THEN FULL_SIMP_TAC list_ss [is_value_of_expr_def, expr_11, expr_distinct, JR_expr_fun] THEN -METIS_TAC []); - -val binary_primapp_lem = Q.prove ( -`!e. is_binary_prim_app_value_of_expr e = ?bp. e = Expr_bprim bp`, -Cases THEN SRW_TAC [] [is_binary_prim_app_value_of_expr_def]); - -val nexp_red_lem1 = Q.prove ( -`!e L e'. is_non_expansive_of_expr e /\ JR_expr e L e' ==> (L = Lab_nil)`, -recInduct is_non_expansive_of_expr_ind THEN -SRW_TAC [] [is_non_expansive_of_expr_def, JR_expr_fun] THEN -FULL_SIMP_TAC list_ss [MEM_APPEND, EVERY_APPEND, binary_primapp_lem, expr_distinct] THEN -SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [JR_expr_fun] THEN METIS_TAC []); - -val nexp_red_lem2 = Q.prove ( -`!e L e'. is_non_expansive_of_expr e /\ JR_expr e L e' ==> is_non_expansive_of_expr e'`, -recInduct is_non_expansive_of_expr_ind THEN -SRW_TAC [] [is_non_expansive_of_expr_def, JR_expr_fun] THEN -FULL_SIMP_TAC list_ss [is_non_expansive_of_expr_def] THEN -FULL_SIMP_TAC list_ss [MEM_APPEND, EVERY_APPEND, binary_primapp_lem, expr_distinct] THEN -SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [JR_expr_fun] THENL -[METIS_TAC [], - METIS_TAC [], - METIS_TAC [], - METIS_TAC [], - METIS_TAC [], - METIS_TAC [], - MATCH_MP_TAC substs_nexp_thm THEN SRW_TAC [] [EVERY_MAP] THEN - FULL_SIMP_TAC list_ss [recfun_def, EVERY_MEM, substs_value_name_letrec_binding_def] THEN - METIS_TAC [is_non_expansive_of_expr_def]]); - -val nexp_red_thm = Q.store_thm ("nexp_red_thm", -`!e L e'. is_non_expansive_of_expr e /\ JR_expr e L e' ==> is_non_expansive_of_expr e' /\ (L = Lab_nil)`, -METIS_TAC [nexp_red_lem1, nexp_red_lem2]); - -val value_nonexpansive_thm = Q.store_thm ("value_nonexpansive_thm", -`!v. is_value_of_expr v ==> is_non_expansive_of_expr v`, -recInduct is_value_of_expr_ind THEN -SRW_TAC [] [is_value_of_expr_def, is_non_expansive_of_expr_def, EVERY_MEM, LAMBDA_PROD2] THEN -SRW_TAC [] [is_binary_prim_app_value_of_expr_def] THEN -Cases_on `e` THEN METIS_TAC [SND]); - -local - -val lem3 = Q.prove ( -`!l1 l2 l3. (MAP FST l1 = MAP (\z. substs_typevar_typexpr l3 (TE_var (SND z))) l1) /\ - (MAP SND l1 = MAP FST l2) ==> - (l1 = MAP (\(tv, t). (substs_typevar_typexpr l3 (TE_var tv), tv)) l2)`, -Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN SRW_TAC [] [] THEN -FULL_SIMP_TAC (srw_ss()) [LAMBDA_PROD2] THEN Cases_on `h` THEN FULL_SIMP_TAC (srw_ss()) []); - -val lem4 = Q.prove ( -`!t h'. ~MEM (FST h') (MAP FST t) ==> - (MAP (\z. case (if FST z = FST h' then SOME r else list_assoc (FST z) l1) of - NONE -> TE_var (FST z) || SOME t_5 -> t_5) t = - MAP (\z. case list_assoc (FST z) l1 of NONE -> TE_var (FST z) || SOME t_5 -> t_5) t)`, -Induct THEN SRW_TAC [] []); - -val lem5 = Q.prove ( -`!l1 l2. ALL_DISTINCT (MAP FST l1) /\ - (MAP FST l1 = MAP FST l2) ==> - (MAP (\z. substs_typevar_typexpr l1 (TE_var (FST z))) l2 = MAP SND l1)`, -Induct THEN SRW_TAC [] [substs_typevar_typexpr_def] THEN Cases_on `l2` THEN -FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [] THEN Cases_on `h` THEN FULL_SIMP_TAC (srw_ss()) [] THEN -SRW_TAC [] [list_assoc_def, lem4] THEN FULL_SIMP_TAC (srw_ss()) [substs_typevar_typexpr_def]); - -val lem8 = Q.prove ( -`!l1 l2 l3 l4. - EVERY (\t. tkind E (substs_typevar_typexpr (MAP (\x. (FST x, TE_constr [] TC_unit)) l1) t)) (MAP SND l3) /\ - JTeq E (TE_constr (MAP SND l1) typeconstr) (TE_constr (MAP SND l2) typeconstr) /\ - ~is_abbrev_tc E (TE_constr (MAP SND l1) typeconstr) /\ - ~is_abbrev_tc E (TE_constr (MAP SND l2) typeconstr) /\ - (MAP FST l1 = MAP FST l2) /\ (MAP SND l3 = MAP SND l4) ==> - EVERY (\x. JTeq E (FST x) (SND x)) - (ZIP (MAP (\x. substs_typevar_typexpr l1 (SND x)) l3, - MAP (\x. substs_typevar_typexpr l2 (SND x)) l4))`, -Induct_on `l3` THEN SRW_TAC [] [] THEN Cases_on `l4` THEN FULL_SIMP_TAC (srw_ss()) [] THEN -MATCH_MP_TAC teq_substs_same_thm THEN SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [teq_fun1]); - -in - -val constr_arg_types_lem = Q.prove ( -`!E c ts1 ts2 t t'. JTconstr_p E c ts1 t /\ JTconstr_p E c ts2 t' /\ JTeq E t t' ==> - (LENGTH ts1 = LENGTH ts2) /\ EVERY (\(t1, t2). JTeq E t1 t2) (ZIP (ts1, ts2))`, -SRW_TAC [] [JTconstr_p_cases, JTinst_named_cases, substs_typevar_typexpr_def, MAP_11_EQ] THEN -FULL_SIMP_TAC (srw_ss()) [MAP_MAP, is_abbrev_tc_def, teq_fun1, Eok_def, ETA_THM, MAP_11_ALL_DISTINCT] THEN -SRW_TAC [] [] THENL -[METIS_TAC [LENGTH_MAP], - IMP_RES_TAC lem3 THEN FULL_SIMP_TAC (srw_ss()) [MAP_MAP, LAMBDA_PROD2, ETA_THM] THEN SRW_TAC [] [] THEN - `JTeq E (TE_constr (MAP SND typevar_t_list) typeconstr) (TE_constr (MAP SND typevar_t_list') typeconstr)` - by METIS_TAC [lem5] THEN - `Eok E` by METIS_TAC [ok_ok_thm] THEN - IMP_RES_TAC lookup_ok_thm THEN Cases_on `typeconstr` THEN FULL_SIMP_TAC (srw_ss()) [EBok_def] THEN - MATCH_MP_TAC (GEN_ALL lem8) THEN SRW_TAC [] [] THEN - FULL_SIMP_TAC (srw_ss()) [MAP_11_EQ, ETA_THM, Eok_def] THENL - [Q.EXISTS_TAC `TC_name t'`, Q.EXISTS_TAC `TC_exn`] THEN - SRW_TAC [] [is_abbrev_tc_def] THEN - FULL_SIMP_TAC (srw_ss()) [Eok_def, substs_typevar_typexpr_def, MAP_MAP, EVERY_CONJ, tp_to_tv_def, - EVERY_MAP]]); - - -val record_arg_types_lem = Q.prove ( -`!E fn t1 t1' t2 t2'. JTfield E fn t1 t2 /\ JTfield E fn t1' t2' /\ JTeq E t1 t1' ==> (JTeq E t2 t2')`, -SRW_TAC [] [JTfield_cases, JTinst_named_cases, substs_typevar_typexpr_def, MAP_11_EQ] THEN -FULL_SIMP_TAC (srw_ss()) [MAP_MAP, Eok_def, MAP_11_ALL_DISTINCT, ETA_THM] THEN -IMP_RES_TAC lem3 THEN FULL_SIMP_TAC (srw_ss()) [MAP_MAP, LAMBDA_PROD2, ETA_THM] THEN SRW_TAC [] [] THEN -`JTeq E (TE_constr (MAP SND typevar_t_list) (TC_name typeconstr_name)) - (TE_constr (MAP SND typevar_t_list') (TC_name typeconstr_name))` - by METIS_TAC [lem5] THEN -`Eok E` by METIS_TAC [ok_ok_thm] THEN -IMP_RES_TAC lookup_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [EBok_def] THEN -MATCH_MP_TAC (GEN_ALL teq_substs_same_thm) THEN SRW_TAC [] [] THEN -FULL_SIMP_TAC (srw_ss()) [MAP_11_EQ, ETA_THM, Eok_def, MAP_MAP, substs_typevar_typexpr_def, tp_to_tv_def, - is_abbrev_tc_def, teq_fun1]); - -end; - -local - -val lem1 = Q.prove ( -`!x. (substs_x_xs case x of substs_x_xs l -> l) = x`, -Cases THEN SRW_TAC [] []); - -val lem2 = Q.prove ( -`!l1 l2. (MAP (\z. (F_name (FST z),SND z)) l1 = MAP (\z. (F_name (FST z),FST (SND z))) l2) = - (MAP (\z. (FST z,SND z)) l1 = MAP (\z. (FST z,FST (SND z))) l2)`, -SRW_TAC [] [MAP_pair] THEN METIS_TAC [MAP_11_EQ, field_11]); - -val lem3 = Q.prove ( -`!a b c d. PERM (a::b++c) d ==> PERM (b++a::c) d`, -SRW_TAC [] [PERM_CONS_EQ_APPEND] THEN METIS_TAC [CONS_PERM, PERM_TRANS, PERM_SYM]); - -val lem4 = Q.prove ( -`!l1 t. (LENGTH l1 = LENGTH t) /\ - EVERY (\(x1,x2). LENGTH x1 = LENGTH case x2 of substs_x_xs l -> l) (ZIP (l1,t)) ==> - (LENGTH (FLAT l1) = LENGTH (FLAT (MAP (\x. case x of substs_x_xs l -> l) t)))`, -Induct THEN SRW_TAC [] [] THEN Cases_on `t` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] []); - -val lem5 = Q.prove ( -`!(Q:Tsigma -> environment -> environment -> (value_name # expr) list -> bool) - select_env select_type (select_pat: 'a -> pattern) (l1:'a list) l2 l3 P S E. - EVERY (\x. !v substs. P v (select_pat x) (substs_x_xs substs) /\ JTe S E v (select_type x) ==> - Q S E (select_env x) substs) l1 /\ - EVERY (\x. P (FST x) (FST (SND x)) (SND (SND x))) l2 /\ - EVERY (\x. JTe S E (FST x) (SND x)) l3 /\ - EVERY (\(t1,t2). JTeq E t1 t2) (ZIP (MAP SND l3,MAP select_type l1)) /\ - (MAP select_pat l1 = MAP (\x. (FST (SND x))) l2) /\ - (MAP FST l2 = MAP FST l3) ==> - EVERY (\(x1, x2). Q S E x1 (case x2 of substs_x_xs l -> l)) - (ZIP (MAP select_env l1, MAP (SND o SND) l2))`, -NTAC 4 STRIP_TAC THEN Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN Cases_on `l3` THEN SRW_TAC [] [] THEN -FULL_SIMP_TAC (srw_ss()) [] THEN `JTe S E (FST h'') (select_type h)` by METIS_TAC [teq_thm] THEN -Cases_on `SND (SND h')` THEN SRW_TAC [] [] THEN METIS_TAC []); - -val lem6= SIMP_RULE (srw_ss()) [] (Q.SPEC -`\S E x y. ?E''. PERM x E'' /\ - EVERY (\x. ?t. (FST x = EB_vn (FST (SND x)) (TS_forall (shiftt 0 1 t))) /\ - JTe S E (SND (SND x)) t) - (ZIP (REVERSE E'',y))` -lem5); - -val lem8 = Q.prove ( -`!l1 l2. -(LENGTH l1 = LENGTH l2) /\ EVERY (\(x1, x2). LENGTH x1 = LENGTH case x2 of substs_x_xs l -> l) (ZIP (l1,l2)) /\ -EVERY (\(x1,x2). ?E''. PERM x1 E'' /\ - EVERY (\x. ?t. (FST x = EB_vn (FST (SND x)) (TS_forall (shiftt 0 1 t))) /\ - JTe S E (SND (SND x)) t) - (ZIP (REVERSE E'', case x2 of substs_x_xs l -> l))) - (ZIP (l1,l2)) -==> -?E''. -PERM (FLAT (REVERSE l1)) E'' /\ -EVERY (\x. ?t. (FST x = EB_vn (FST (SND x)) (TS_forall (shiftt 0 1 t))) /\ - JTe S E (SND (SND x)) t) - (ZIP (REVERSE E'', FLAT (MAP (\x. case x of substs_x_xs l -> l) l2)))`, -Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [] THEN -RES_TAC THEN FULL_SIMP_TAC (srw_ss()) [] THEN -Q.EXISTS_TAC `E'''++E''` THEN SRW_TAC [] [FLAT_APPEND, REVERSE_APPEND] THEN1 -METIS_TAC [PERM_CONG] THEN -`LENGTH (REVERSE E'') = LENGTH case h' of substs_x_xs l -> l` by METIS_TAC [PERM_LENGTH, LENGTH_REVERSE] THEN -`LENGTH (REVERSE E''') = LENGTH (FLAT (MAP (\x. case x of substs_x_xs l -> l) t))` - by METIS_TAC [PERM_LENGTH, LENGTH_REVERSE, LENGTH_FLAT_REVERSE, lem4] THEN -SRW_TAC [] [ZIP_APPEND]); - -val INST_TUPLE = - SIMP_RULE (srw_ss()) [o_DEF] o - Q.SPECL [`SND o SND`, `FST o SND`, `FST`] o - INST_TYPE [alpha |-> Type`:pattern # typexpr # environment`]; - -val INST_CTOR = - SIMP_RULE (srw_ss()) [o_DEF] o - Q.SPECL [`FST o SND`, `SND o SND`, `FST`] o - INST_TYPE [alpha |-> Type`:pattern # environment # typexpr`]; - -val INST_REC = - SIMP_RULE (srw_ss()) [o_DEF] o - Q.SPECL [`FST o SND o SND`, `SND o SND o SND`, `FST o SND`] o - INST_TYPE [alpha |-> Type`:field_name # pattern # environment # typexpr`]; - -val lem9 = Q.prove ( -`!l1 l2. (MAP FST l1 = MAP FST l2) /\ - EVERY (\x. JTfield E (FST x) (TE_constr t'_list (TC_name typeconstr_name)) (SND (SND x))) l1 /\ - EVERY (\x. JTfield E (FST x) t (SND (SND (SND x)))) l2 /\ - JTeq E (TE_constr t'_list (TC_name typeconstr_name)) t ==> - EVERY (\(t1,t2). JTeq E t1 t2) - (ZIP (MAP SND (MAP SND l1), MAP (\x. SND (SND (SND x))) l2))`, -Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN FULL_SIMP_TAC (srw_ss()) [] THEN -METIS_TAC [record_arg_types_lem]); - -val lem10 = Q.prove ( -`!l3 l4 l5 l6. - PERM (l4 ++ l5) l6 /\ - (MAP (\z. (F_name (FST z),SND z)) l6 = MAP (\z. (F_name (FST z),FST (SND z))) l3) ==> - ?l1 l2. - PERM l3 (l1 ++ l2) /\ (MAP (\x. (FST x, FST (SND x))) l1 = l4)`, -Induct_on `l4` THEN SRW_TAC [] [] THEN1 METIS_TAC [PERM_REFL] THEN -FULL_SIMP_TAC (srw_ss()) [PERM_CONS_EQ_APPEND] THEN SRW_TAC [] [] THEN -FULL_SIMP_TAC (srw_ss()) [MAP_split] THEN SRW_TAC [] [] THEN Cases_on `l5'` THEN -FULL_SIMP_TAC (srw_ss()) [] THEN -`?l1 l2. PERM (l4'++t) (l1 ++ l2) /\ (MAP (\x. (FST x,FST (SND x))) l1 = l4)` by - METIS_TAC [MAP_APPEND] THEN -Q.EXISTS_TAC `h'::l1` THEN Cases_on `h` THEN SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [] THEN -Q.EXISTS_TAC `l2` THEN ONCE_REWRITE_TAC [PERM_SYM] THEN SRW_TAC [] [PERM_CONS_EQ_APPEND] THEN -METIS_TAC [PERM_SYM]); - -in - -val pat_num_bindings_lem = Q.store_thm ("pat_num_bindings_lem", -`!S E p t E'. JTpat S E p t E' ==> !v substs. JM_match v p (substs_x_xs substs) ==> - (LENGTH E' = LENGTH substs)`, -RULE_INDUCT_TAC JTpat_ind [JM_match_fun] -[([``"JTpat_construct"``], - SRW_TAC [] [] THEN REPEAT (Q.PAT_ASSUM `JTconstr_p a b c d` (K ALL_TAC)) THEN - REPEAT (Q.PAT_ASSUM `ALL_DISTINCT x` (K ALL_TAC)) THEN - REPEAT (POP_ASSUM MP_TAC) THEN - MAP_EVERY Q.ID_SPEC_TAC [`v_pat_substs_x_list`, `pattern_E_t_list`] THEN - Induct THEN SRW_TAC [] [] THEN - Cases_on `v_pat_substs_x_list` THEN FULL_SIMP_TAC list_ss [] THEN - SRW_TAC [] [SUM_APPEND, LENGTH_FLAT] THEN - FULL_SIMP_TAC list_ss [SUM_APPEND, LENGTH_FLAT, ELIM_UNCURRY] THEN - METIS_TAC [lem1]), - ([``"JTpat_tuple"``], - SRW_TAC [] [] THEN REPEAT (Q.PAT_ASSUM `LENGTH x >= y` (K ALL_TAC)) THEN - REPEAT (Q.PAT_ASSUM `ALL_DISTINCT x` (K ALL_TAC)) THEN - REPEAT (POP_ASSUM MP_TAC) THEN - MAP_EVERY Q.ID_SPEC_TAC [`v_pat_substs_x_list`, `pattern_t_E_list`] THEN - Induct THEN SRW_TAC [] [] THEN - Cases_on `v_pat_substs_x_list` THEN FULL_SIMP_TAC list_ss [] THEN - SRW_TAC [] [SUM_APPEND, LENGTH_FLAT] THEN - FULL_SIMP_TAC list_ss [SUM_APPEND, LENGTH_FLAT, ELIM_UNCURRY] THEN - METIS_TAC [lem1]), - ([``"JTpat_record"``], - SRW_TAC [] [] THEN REPEAT (Q.PAT_ASSUM `LENGTH x >= y` (K ALL_TAC)) THEN - REPEAT (Q.PAT_ASSUM `ALL_DISTINCT x` (K ALL_TAC)) THEN - REPEAT (Q.PAT_ASSUM `PERM x y` (K ALL_TAC)) THEN - REPEAT (POP_ASSUM MP_TAC) THEN - MAP_EVERY Q.ID_SPEC_TAC [`field_name'_pat_substs_x_v'_list`, `field_name_pattern_E_t_list`] THEN - Induct THEN SRW_TAC [] [] THEN - Cases_on `field_name'_pat_substs_x_v'_list` THEN FULL_SIMP_TAC list_ss [] THEN - SRW_TAC [] [SUM_APPEND, LENGTH_FLAT] THEN - FULL_SIMP_TAC list_ss [SUM_APPEND, LENGTH_FLAT, ELIM_UNCURRY] THEN - METIS_TAC [lem1])] -THEN -SRW_TAC [ARITH_ss][] THEN FULL_SIMP_TAC list_ss [] THEN METIS_TAC [arithmeticTheory.ADD1, lem1, PERM_LENGTH]); - -local - -val lem7 = Q.prove ( -`!select_env select_type select_pat (l1:'a list) l2. - (LENGTH l1 = LENGTH l2) /\ - (MAP select_pat l1 = MAP (\x. FST (SND x)) l2) /\ - EVERY (\x. JTpat S E (select_pat x) (select_type x) (select_env x)) l1 /\ - EVERY (\x. JM_match (FST x) (FST (SND x)) (SND (SND x))) l2 ==> - EVERY (\(x1, x2). LENGTH x1 = LENGTH case x2 of substs_x_xs l -> l) - (ZIP (MAP select_env l1, MAP (SND o SND) l2))`, -NTAC 3 STRIP_TAC THEN Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN FULL_SIMP_TAC (srw_ss()) [] THEN -SRW_TAC [] [] THEN -Cases_on `SND (SND h')` THEN FULL_SIMP_TAC (srw_ss()) [] THEN METIS_TAC [pat_num_bindings_lem]); - -in - -val pat_preservation_lem = Q.prove ( -`!S E p t E'. JTpat S E p t E' ==> !v substs. JM_match v p (substs_x_xs substs) /\ JTe S E v t ==> - ?E''. PERM E' E'' /\ - (EVERY (\(EB, subst). ?t. (EB = EB_vn (FST subst) (TS_forall (shiftt 0 1 t))) /\ - JTe S E (SND subst) t) - (ZIP (REVERSE E'', substs)))`, -RULE_INDUCT_TAC JTpat_sind [JM_match_fun, EVERY_DEF, ZIP, domEB_def, JTe_fun, ELIM_UNCURRY] -[([``"JTpat_var"``, ``"JTpat_typed"``, ``"JTpat_construct_any"``], - SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [JTe_fun] THEN METIS_TAC []), - ([``"JTpat_or"``], - SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [JTe_fun] THEN METIS_TAC [PERM_LENGTH, PERM_TRANS]), - ([``"JTpat_alias"``], - SRW_TAC [] [] THEN - FULL_SIMP_TAC (srw_ss()) [arithmeticTheory.ADD1] THEN - RES_TAC THEN Q.EXISTS_TAC `EB_vn x (TS_forall (shiftt 0 1 t))::E''` THEN - `LENGTH (REVERSE E'') = LENGTH x_v_list` by - METIS_TAC [LENGTH_REVERSE, PERM_LENGTH, pat_num_bindings_lem] THEN - SRW_TAC [] [ZIP_APPEND] THEN METIS_TAC []), - ([``"JTpat_construct"``], - SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [JTe_fun] THEN - `EVERY (\(t1, t2). JTeq E t1 t2) (ZIP (MAP SND e_t_list, MAP (\x. SND (SND x)) pattern_E_t_list))` - by METIS_TAC [constr_arg_types_lem, LENGTH_MAP] THEN - `LENGTH e_t_list = LENGTH pattern_E_t_list` by METIS_TAC [LENGTH_MAP] THEN - FULL_SIMP_TAC (srw_ss()) [] THEN - IMP_RES_TAC (INST_CTOR lem6) THEN - SRW_TAC [] [MAP_MAP] THEN - IMP_RES_TAC (INST_CTOR lem7) THEN IMP_RES_TAC lem8 THEN FULL_SIMP_TAC (srw_ss()) [MAP_MAP, o_DEF] THEN - METIS_TAC [LENGTH_MAP]), - ([``"JTpat_tuple"``], - SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [JTe_fun, teq_fun1, is_abbrev_tc_def] THEN - `LENGTH e_t_list = LENGTH pattern_t_E_list` by METIS_TAC [LENGTH_MAP] THEN - FULL_SIMP_TAC (srw_ss()) [] THEN - IMP_RES_TAC (INST_TUPLE lem6) THEN - SRW_TAC [] [MAP_MAP] THEN - IMP_RES_TAC (INST_TUPLE lem7) THEN IMP_RES_TAC lem8 THEN FULL_SIMP_TAC (srw_ss()) [MAP_MAP, o_DEF] THEN - METIS_TAC [LENGTH_MAP]), - ([``"JTpat_record"``], - SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [JTe_fun] THEN - `?field_name_e_t_list_perm1 field_name_e_t_list_perm2. - PERM field_name_e_t_list (field_name_e_t_list_perm1 ++ field_name_e_t_list_perm2) /\ - (MAP (\x. (FST x, FST (SND x))) field_name_e_t_list_perm1 = - MAP (\x. (FST x, SND (SND (SND x)))) field_name'_pat_substs_x_v'_list)` by - METIS_TAC [lem10] THEN - `EVERY (\x. JM_match (FST x) (FST (SND x)) (SND (SND x))) - (MAP (\(fn, p, s, v). (v, p, s)) field_name'_pat_substs_x_v'_list)` - by SRW_TAC [] [EVERY_MAP, LAMBDA_PROD2] THEN - `EVERY (\x. JTe S' E (FST x) (SND x)) (MAP SND field_name_e_t_list_perm1)` - by (SRW_TAC [] [EVERY_MAP, LAMBDA_PROD2] THEN METIS_TAC [PERM_lem]) THEN - FULL_SIMP_TAC (srw_ss()) [MAP_pair, MAP_11_EQ, field_11, ETA_THM] THEN - `EVERY (\(t1,t2). JTeq E t1 t2) - (ZIP (MAP SND (MAP SND field_name_e_t_list_perm1), - MAP (\x. SND (SND (SND x))) field_name_pattern_E_t_list))` - by METIS_TAC [lem9, PERM_lem] THEN - `MAP (\x. FST (SND x)) field_name_pattern_E_t_list = - MAP (\x. FST (SND x)) (MAP (\(fn, p, s, v). (v, p, s)) field_name'_pat_substs_x_v'_list)` by - FULL_SIMP_TAC (srw_ss()) [MAP_pair, MAP_MAP, LAMBDA_PROD2] THEN - `MAP FST (MAP (\(fn, p, s, v). (v, p, s)) field_name'_pat_substs_x_v'_list) = - MAP FST (MAP SND field_name_e_t_list_perm1)` by - SRW_TAC [] [MAP_MAP, LAMBDA_PROD2] THEN - `LENGTH field_name_pattern_E_t_list = - LENGTH (MAP (\(fn,p,s,v). (v,p,s)) field_name'_pat_substs_x_v'_list)` by METIS_TAC [LENGTH_MAP] THEN - IMP_RES_TAC (INST_REC lem6) THEN - SRW_TAC [] [MAP_MAP] THEN - IMP_RES_TAC (INST_REC lem7) THEN IMP_RES_TAC lem8 THEN - FULL_SIMP_TAC (srw_ss()) [MAP_MAP, o_DEF, LAMBDA_PROD2] THEN - METIS_TAC []), - ([``"JTpat_cons"``], - SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [JTe_fun] THEN - Cases_on `substs_x2` THEN Cases_on `substs_x1` THEN - `JTe S' E v2 (TE_constr [t] TC_list)` by METIS_TAC [teq_thm] THEN - FULL_SIMP_TAC (srw_ss()) [is_abbrev_tc_def, teq_fun1] THEN - `JTe S' E v1 t` by METIS_TAC [teq_thm] THEN - RES_TAC THEN Q.EXISTS_TAC `E''' ++ E'''''` THEN SRW_TAC [] [] THEN1 - METIS_TAC [PERM_CONG] THEN IMP_RES_TAC pat_num_bindings_lem THEN - `(LENGTH (REVERSE E''''') = LENGTH l') /\ (LENGTH (REVERSE E''') = LENGTH l)` - by METIS_TAC [PERM_LENGTH, LENGTH_REVERSE] THEN - SRW_TAC [] [REVERSE_APPEND, ZIP_APPEND])]); -end; - -val pat_preservation_thm = Q.store_thm ("pat_preservation_thm", -`!S E p t E'. JTpat S E p t E' ==> !v substs. JM_match v p (substs_x_xs substs) /\ JTe S E v t ==> - ?E''. PERM E' E'' /\ - (EVERY (\(EB, subst). ?t. (EB = EB_vn (FST subst) (TS_forall (shiftt 0 1 t))) /\ - JTe S E (SND subst) t) - (ZIP (REVERSE E'', substs)))`, -METIS_TAC [pat_preservation_lem, pat_num_bindings_lem]); - -end; - -val weak_teq_lem1 = Q.prove ( -`!E EB t1 t2. JTeq E t1 t2 /\ ~(EB = EB_tv) /\ Eok (EB::E) ==> JTeq (EB::E) t1 t2`, -METIS_TAC [MEM, APPEND, weak_teq_thm]); - -val uprim_preservation_lem = Q.prove ( -`!uprim e L e'. JRuprim uprim e L e' ==> !S E. closed_env E ==> !t1 t2. JTuprim E uprim (TE_arrow t1 t2) /\ - JTe S E e t1 /\ JTLin S E L ==> ?E''. JTLout S E L E'' /\ JTe S (E''++E) e' t2`, -RULE_INDUCT_TAC JRuprim_ind [JTe_fun, JTconst_cases, JTuprim_cases, JTLin_cases, Eok_def, JTLout_cases] -[([``"Juprim_deref"``], - SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [] THEN - FULL_SIMP_TAC (srw_ss()) [is_abbrev_tc_def, teq_fun1] THEN SRW_TAC [] [] THEN METIS_TAC [teq_thm]), - ([``"Juprim_ref_alloc"``], - SRW_TAC [] [GSYM LEFT_EXISTS_AND_THM, lookup_def, domEB_def, Eok_def] THEN - Q.EXISTS_TAC `t1` THEN SRW_TAC [] [] THEN - `tkind E (TE_constr [t1] TC_ref) /\ Eok (EB_l l t1::E)` - by (SRW_TAC [] [Eok_def] THEN METIS_TAC [ok_ok_thm]) THEN - `JTeq E (TE_constr [t1] TC_ref) (TE_constr [t1] TC_ref)` by METIS_TAC [JTeq_rules, ok_ok_thm] THEN - IMP_RES_TAC weak_teq_lem1 THEN FULL_SIMP_TAC (srw_ss()) [])]); - -val JTL_nil_lem = Q.store_thm ("JTL_nil_lem", -`!S E E'. JTLin S E Lab_nil /\ (JTLout S E Lab_nil E' = (E' = []))`, -SRW_TAC [] [JTLin_cases, JTLout_cases] THEN METIS_TAC []); - -val matching_step_preservation_lem = Q.prove ( -`!S E pm t' t pm'. JTpat_matching S E pm t' t /\ JRmatching_step v pm pm' ==> JTpat_matching S E pm' t' t`, -SRW_TAC [] [JRmatching_step_cases] THEN FULL_SIMP_TAC list_ss [JTe_fun] THEN -Cases_on `pattern_e_E_list` THEN FULL_SIMP_TAC list_ss [] THEN METIS_TAC [LENGTH_MAP]); - -local - -val lem3 = Q.prove ( -`!E. Eok E ==> JTeq E (TE_constr [] TC_bool) (TE_constr [] TC_bool) /\ - JTeq E (TE_constr [] TC_string) (TE_constr [] TC_string) /\ - JTeq E (TE_constr [] TC_exn) (TE_constr [] TC_exn)`, -SRW_TAC [] [] THEN -`tkind E (TE_constr [] TC_bool) /\ tkind E (TE_constr [] TC_string) /\ tkind E (TE_constr [] TC_exn)` - by SRW_TAC [] [Eok_def] THEN -METIS_TAC [JTeq_rules]); - -val lem1 = Q.prove ( -`!exprs E S. JTe S E (FOLDR Expr_and (Expr_constant CONST_true) exprs) (TE_constr [] TC_bool) = - EVERY (\e. JTe S E e (TE_constr [] TC_bool)) exprs /\ Eok E`, -Induct THEN SRW_TAC [] [JTe_fun, JTconst_cases] THEN -EQ_TAC THEN SRW_TAC [] [] THEN METIS_TAC [JTeq_rules, lem3]); - -val lem2 = Q.prove ( -`!l1 l2. (MAP (\z. (F_name (FST z),SND z)) l1 = MAP (\z. (F_name (FST z),FST (SND z))) l2) ==> - (l1 = MAP (\x. (FST x, FST (SND x))) l2)`, -Induct THEN Cases_on `l2` THEN SRW_TAC [] [] THEN Cases_on `h` THEN FULL_SIMP_TAC list_ss [] THEN -Cases_on `h'` THEN FULL_SIMP_TAC list_ss []); - -val lem4 = Q.prove ( -`!E t. JTeq E t t = tkind E t`, -METIS_TAC [JTeq_rules, teq_ok_thm]); - -val lem5 = Q.prove ( -`!v_v'_list e_t_list e_t_list'. - (MAP FST v_v'_list = MAP FST e_t_list) /\ - (MAP SND v_v'_list = MAP FST e_t_list') /\ - EVERY (\x. JTe S E (FST x) (SND x)) e_t_list' /\ - EVERY (\x. JTe S E (FST x) (SND x)) e_t_list /\ - EVERY (\(t1,t2). JTeq E t1 t2) (ZIP (MAP SND e_t_list,MAP SND e_t_list')) ==> - EVERY (\z. ?t1'. (?t1''. (?t. (?t'. (t = TE_arrow t' (TE_arrow t' (TE_constr [] TC_bool))) /\ tkind E t') /\ - JTeq E t (TE_arrow t1'' (TE_arrow t1' (TE_constr [] TC_bool)))) /\ - JTe S E (FST z) t1'') /\ - JTe S E (SND z) t1') - v_v'_list`, -Induct THEN SRW_TAC [] [] THEN Cases_on `e_t_list` THEN FULL_SIMP_TAC (srw_ss()) [] THEN -Cases_on `e_t_list'` THEN FULL_SIMP_TAC (srw_ss()) [] THENL -[Q.EXISTS_TAC `SND h''` THEN SRW_TAC [] [] THEN Q.EXISTS_TAC `SND h'` THEN SRW_TAC [] [] THEN - Q.EXISTS_TAC `TE_arrow (SND h') (TE_arrow (SND h') (TE_constr [] TC_bool))` THEN SRW_TAC [] [] THEN - METIS_TAC [teq_ok_thm, lem4, lem3, JTeq_rules, ok_ok_thm], - METIS_TAC [ok_ok_thm]]); - -in - -val bprim_preservation_lem = Q.prove ( -`!e1 bprim e2 L e'. JRbprim e1 bprim e2 L e' ==> !E S. closed_env E ==> - !t1 t2 t3. JTbprim E bprim (TE_arrow t1 (TE_arrow t2 t3)) /\ - JTe S E e1 t1 /\ JTe S E e2 t2 /\ JTLin S E L ==> - ?E''. JTLout S E L E'' /\ JTe S (E''++E) e' t3`, -RULE_INDUCT_TAC JRbprim_ind [JTe_fun, JTconst_cases, JTbprim_cases, JTLin_cases, JTLout_cases, Eok_def, - lem1, EVERY_MAP] -[([``"Jbprim_equal_loc"``], - SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [Eok_def] THEN SRW_TAC [] [JTuprim_cases] THEN - `tkind E (TE_constr [t] TC_ref)` by METIS_TAC [teq_ok_thm] THEN - FULL_SIMP_TAC (srw_ss()) [Eok_def] THEN - Q.EXISTS_TAC `t` THEN SRW_TAC [] [] THENL - [Q.EXISTS_TAC `t` THEN SRW_TAC [] [] THENL - [Q.EXISTS_TAC `TE_arrow t (TE_arrow t (TE_constr [] TC_bool))` THEN - SRW_TAC [] [Eok_def, lem4], - Q.EXISTS_TAC `TE_constr [t] TC_ref` THEN SRW_TAC [] [Eok_def, lem4] THEN - Q.EXISTS_TAC `TE_arrow (TE_constr [t] TC_ref) t` THEN SRW_TAC [] [Eok_def, lem4]], - Q.EXISTS_TAC `t1` THEN SRW_TAC [] [] THEN - Q.EXISTS_TAC `TE_arrow (TE_constr [t] TC_ref) t` THEN SRW_TAC [] [] THEN - METIS_TAC [JTeq_rules]]), - ([``"Jbprim_equal_const_true"``, ``"Jbprim_equal_const_false"``, ``"Jbprim_equal_cons_nil"``, - ``"Jbprim_equal_nil_cons"``, ``"Jbprim_equal_constr_false"``, ``"Jbprim_equal_const_constr_false"``, - ``"Jbprim_equal_constr_const_false"``], - METIS_TAC [ok_ok_thm, lem3]), - ([``"Jbprim_equal_fun"``], - SRW_TAC [] [JTuprim_cases, JTconstr_p_cases, Eok_def, JTconstr_c_cases] THEN - Q.EXISTS_TAC `TE_constr [] TC_exn` THEN SRW_TAC [] [] THENL - [Q.EXISTS_TAC `TE_arrow (TE_constr [] TC_exn) (TE_constr [] TC_bool)` THEN - SRW_TAC [] [Eok_def, lem4] THEN METIS_TAC [ok_ok_thm], - Q.EXISTS_TAC `[(Expr_constant (CONST_string "equal: functional value"), TE_constr [] TC_string)]` THEN - SRW_TAC [] [JTe_fun, JTconst_cases] THEN METIS_TAC [ok_ok_thm, lem3]]), - ([``"Jbprim_equal_cons"``], - SRW_TAC [] [lem4, Eok_def, COND_EXPAND_EQ] THEN - `tkind E(TE_constr [t] TC_list)` by METIS_TAC [teq_ok_thm] THEN - FULL_SIMP_TAC (srw_ss()) [Eok_def] THENL - [Q.EXISTS_TAC `t'` THEN SRW_TAC [] [] THEN Q.EXISTS_TAC `t` THEN SRW_TAC [] [] THEN - Q.EXISTS_TAC `TE_arrow t (TE_arrow t (TE_constr [] TC_bool))` THEN SRW_TAC [] [] THEN - `JTeq E (TE_constr [t] TC_list) (TE_constr [t'] TC_list)` by METIS_TAC [JTeq_rules] THEN - FULL_SIMP_TAC (srw_ss()) [teq_fun1, is_abbrev_tc_def] THEN - SRW_TAC [] [Eok_def] THEN - METIS_TAC [JTeq_rules, lem3, lem4, ok_ok_thm], - Q.EXISTS_TAC `TE_constr [t'] TC_list` THEN SRW_TAC [] [] THEN - Q.EXISTS_TAC `TE_constr [t] TC_list` THEN SRW_TAC [] [] THEN - Q.EXISTS_TAC `TE_arrow (TE_constr [t] TC_list) - (TE_arrow (TE_constr [t] TC_list) - (TE_constr [] TC_bool))` THEN - SRW_TAC [] [Eok_def] THEN - `JTeq E (TE_constr [t] TC_list) (TE_constr [t'] TC_list)` by METIS_TAC [JTeq_rules] THEN - SRW_TAC [] [] THEN - METIS_TAC [JTeq_rules, lem3, lem4, ok_ok_thm], - METIS_TAC [ok_ok_thm]]), - ([``"Jbprim_equal_tuple"``], - SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [Eok_def] THENL - [`JTeq E (TE_tuple (MAP SND e_t_list)) (TE_tuple (MAP SND e_t_list'))` by METIS_TAC [JTeq_rules] THEN - FULL_SIMP_TAC (srw_ss()) [is_abbrev_tc_def, teq_fun1] THEN SRW_TAC [] [] THEN - METIS_TAC [lem5, LENGTH_MAP], - METIS_TAC [ok_ok_thm]]), - ([``"Jbprim_equal_constr"``], - SRW_TAC [] [] THENL - [`JTeq E t t'` by METIS_TAC [JTeq_rules] THEN - IMP_RES_TAC constr_arg_types_lem THEN FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THEN - METIS_TAC [LENGTH_MAP, lem5], - METIS_TAC [ok_ok_thm]]), - ([``"Jbprim_equal_rec"``], - SRW_TAC [] [] THENL - [IMP_RES_TAC lem2 THEN SRW_TAC [] [EVERY_MAP, EVERY_MEM] THEN - Q.EXISTS_TAC `SND (SND x)` THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN SRW_TAC [] [] THENL - [Q.EXISTS_TAC `SND (SND x)` THEN SRW_TAC [] [] THEN - Q.EXISTS_TAC `TE_arrow (SND (SND x)) (TE_arrow (SND (SND x)) (TE_constr [] TC_bool))` THEN - SRW_TAC [] [lem4, Eok_def] THEN METIS_TAC [ok_thm, ok_ok_thm], - MAP_EVERY Q.EXISTS_TAC [`(TE_constr t'_list (TC_name typeconstr_name))`, `SND (SND x)`] THEN - SRW_TAC [] [lem4] THENL - [`JTeq E (TE_constr t'_list' (TC_name typeconstr_name')) - (TE_constr t'_list (TC_name typeconstr_name))` - by METIS_TAC [JTeq_rules] THEN - MAP_EVERY Q.EXISTS_TAC [`field_name'_list'`, `t'_list'`, `field_name_e_t_list'`, - `typeconstr_name'`] THEN - SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [MAP_MAP, lem4, Eok_def], - METIS_TAC [ok_thm]]], - METIS_TAC [ok_ok_thm]]), - ([``"Jbprim_div0"``], - SRW_TAC [] [JTconstr_c_cases, JTuprim_cases, Eok_def] THEN - Q.EXISTS_TAC `TE_constr [] TC_exn` THEN SRW_TAC [] [lem4, Eok_def] THEN - Q.EXISTS_TAC `TE_arrow (TE_constr [] TC_exn) (TE_constr [] TC_int)` THEN SRW_TAC [] [lem4, Eok_def]), - ([``"Jbprim_assign"``], - SRW_TAC [] [] THEN SRW_TAC [] [lem4, Eok_def] THEN - FULL_SIMP_TAC (srw_ss()) [is_abbrev_tc_def, teq_fun1] THEN METIS_TAC [teq_thm, JTeq_rules])]); - - -end; - -(* -val lem2 = Q.prove ( -`!l1 l2 E t. (LENGTH l1 = LENGTH l2) /\ - (EVERY (\x. JTfield E (FST x) t (SND (SND x))) l1) /\ - (EVERY (\x. JTfield E (FST x) t (SND x)) (ZIP (MAP FST l1, l2))) ==> - (l2 = MAP (\x. SND (SND x)) l1)`, -Induct THEN Cases_on `l2` THEN SRW_TAC [] [] THEN METIS_TAC [record_arg_types_lem]); - -val lem3 = Q.prove ( -`!l1 l2. (MAP (\z. (F_name (FST z),FST (SND z))) l1 = MAP (\z. (F_name (FST z),FST (SND z))) l2) = - (MAP (\z. (FST z,FST (SND z))) l1 = MAP (\z. (FST z,FST (SND z))) l2)`, -Induct THEN Cases_on `l2` THEN SRW_TAC [] []); - -val lem4 = Q.prove ( -`!l1 l2. (MAP (\z. (F_name (FST (SND (SND z))),FST (SND (SND (SND z))))) l1 = - MAP (\z. (F_name (FST z),FST (SND z))) l2) = - (MAP (\z. (FST (SND (SND z)),FST (SND (SND (SND z))))) l1 = - MAP (\z. (FST z,FST (SND z))) l2)`, -Induct THEN Cases_on `l2` THEN SRW_TAC [] []); - -val lem5 = Q.prove ( -`!l1 l2 z. (MAP (\z. (FST z,FST (SND z))) l1 = MAP (\z. (FST z,FST (SND z))) l2) /\ MEM z l1 /\ - ALL_DISTINCT (MAP FST l1) ==> - ?t. list_assoc (FST z) l2 = SOME (FST (SND z),t)`, -Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN FULL_SIMP_TAC list_ss [list_assoc_def] THEN -Cases_on `h'` THEN SRW_TAC [] [list_assoc_def] THEN Cases_on `r` THEN FULL_SIMP_TAC list_ss [] THEN -SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [MEM_MAP] THEN METIS_TAC []); - -e( -FULL_SIMP_TAC list_ss [environment_binding_11] THEN SRW_TAC [] [] THEN -`PERM (MAP FST field_name_e_t_list') (MAP FST field_name_e_t_list)` by METIS_TAC [PERM_SYM, PERM_TRANS] THEN -`?t''list. (LENGTH (MAP FST field_name_e_t_list) = LENGTH t''list) /\ - (PERM (MAP (\x. SND (SND x)) field_name_e_t_list') t''list) /\ - (PERM (ZIP (MAP FST field_name_e_t_list', (MAP (\x. SND (SND x)) field_name_e_t_list'))) - (ZIP (MAP FST field_name_e_t_list, t''list)))` by - METIS_TAC [EXTEND_PERM, PERM_LENGTH, LENGTH_MAP] THEN -FULL_SIMP_TAC list_ss [ZIP_MAP, MAP_MAP, MAP_ZIP_SAME] THEN -`EVERY (\x. JTfield E (FST x) (TE_constr t_'list (TC_name typeconstr_name)) (SND x)) - (ZIP (MAP FST field_name_e_t_list, t''list))` by - (FULL_SIMP_TAC list_ss [EVERY_MEM] THEN SRW_TAC [] [] THEN - `MEM x (MAP (\p. (FST p,SND (SND p))) field_name_e_t_list')` by - METIS_TAC [EVERY_MEM, PERM_MEM_EQ] THEN - FULL_SIMP_TAC list_ss [MEM_MAP]) THEN -`t''list = MAP (\x. SND (SND x)) field_name_e_t_list` by METIS_TAC [lem2] THEN -SRW_TAC [] [] THEN -FULL_SIMP_TAC list_ss [ZIP_MAP, MAP_MAP, MAP_ZIP_SAME, lem3, EVERY_MEM, lem4] THEN -SRW_TAC [] [] THEN -IMP_RES_TAC lookup_ok_thm THEN FULL_SIMP_TAC list_ss [EBok_def] THEN -FULL_SIMP_TAC list_ss [MAP_11_ALL_DISTINCT2, name_11] THEN -`ALL_DISTINCT (MAP FST field_name_e_t_list') /\ ALL_DISTINCT (MAP FST field_name_e_t_list)` by - METIS_TAC [PERM_ALL_DISTINCT] THEN -`ALL_DISTINCT (MAP FST fn_v_fn_'v_'v_''list)` by - ((`MAP FST (MAP (\z. (FST z,FST (SND z))) fn_v_fn_'v_'v_''list) = - MAP FST (MAP (\z. (FST z,FST (SND z))) field_name_e_t_list)` by METIS_TAC []) THEN - FULL_SIMP_TAC list_ss [MAP_MAP, ETA_THM]) THEN -`ALL_DISTINCT (MAP (\x. FST (SND (SND x))) fn_v_fn_'v_'v_''list)` by - ((`MAP FST (MAP (\z. (FST (SND (SND z)),FST (SND (SND (SND z))))) fn_v_fn_'v_'v_''list) = - MAP FST (MAP (\z. (FST z,FST (SND z))) field_name_e_t_list')` by METIS_TAC []) THEN - FULL_SIMP_TAC list_ss [MAP_MAP, ETA_THM]) THEN -`ALL_DISTINCT (MAP FST (MAP (\p. (FST p,SND (SND p))) field_name_e_t_list'))` by - SRW_TAC [] [MAP_MAP, ETA_THM] THEN -`ALL_DISTINCT (MAP FST (MAP (\p. (FST p,FST (SND p))) field_name_e_t_list'))` by - SRW_TAC [] [MAP_MAP, ETA_THM] THEN -`ALL_DISTINCT (MAP FST (MAP (\p. (FST p,SND (SND p))) field_name_e_t_list))` by - SRW_TAC [] [MAP_MAP, ETA_THM] THEN -`ALL_DISTINCT (MAP FST (MAP (\z. (FST z,SND (SND (SND (SND z))))) fn_v_fn_'v_'v_''list))` by - SRW_TAC [] [MAP_MAP, ETA_THM]); - -e(`?t. list_assoc (FST z) field_name_e_t_list = SOME (FST (SND z),t)` by METIS_TAC [lem5]); - -e(`?t. (list_assoc (FST z) field_name_e_t_list' = SOME (SND (SND (SND (SND z))), t))` - by (???)); - -e(`t = t'` by METIS_TAC [OPTION_MAP_DEF, SND, SOME_11, list_assoc_map, PERM_list_assoc] THEN -METIS_TAC [list_assoc_mem, FST, SND, ok_thm]); -*) - - -val recfun_is_value = Q.store_thm ("recfun_is_value", -`!lrbs pm. is_value_of_expr (recfun lrbs pm)`, -Cases THEN SRW_TAC [] [is_value_of_expr_def, recfun_def, substs_value_name_letrec_binding_def]); - -val recfun_ftv_thm = Q.prove ( -`!lrbs pm. (ftv_letrec_bindings lrbs = []) /\ (ftv_pattern_matching pm = []) ==> - (ftv_expr (recfun lrbs pm) = [])`, -Cases THEN -SRW_TAC [] [recfun_def, ftv_letrec_binding_def, substs_value_name_letrec_binding_def, FLAT_EQ_EMPTY, - EVERY_MAP] THEN -MATCH_MP_TAC (List.nth (CONJUNCTS substs_ftv_thm, 4)) THEN SRW_TAC [] [EVERY_MAP, EVERY_MEM] THEN -Cases_on `letrec_binding` THEN SRW_TAC [] [ftv_letrec_binding_def, FLAT_EQ_EMPTY, EVERY_MAP]); - -val letrec_lem = Q.prove ( -`!l1 l2. (MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) l1 = - MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (TE_arrow (FST (SND (SND z))) (SND (SND (SND z))))))) - l2) = - (l1 = MAP (\z. (FST z, TE_arrow (FST (SND (SND z))) (SND (SND (SND z))))) l2)`, -Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THEN -Cases_on `h` THEN Cases_on `h'` THEN SRW_TAC [] [shiftt_11]); - -local - -val lem1 = Q.prove ( -`!E t. JTuprim E Uprim_raise t = ?t'. tkind E t' /\ (t = (TE_arrow (TE_constr [] TC_exn) t'))`, -SRW_TAC [] [JTuprim_cases] THEN METIS_TAC []); - -val lem2 = Q.prove ( -`!l f g. value_env (MAP (\x. EB_vn (f x) (g x)) l)`, -Induct THEN SRW_TAC [] [value_env_def]); - -val lem4 = Q.prove ( -`!E. mono_value_env E ==> ?x_t_list. E = MAP (\(x, t). EB_vn x (TS_forall (shiftt 0 1 t))) x_t_list`, -recInduct mono_value_env_ind THEN SRW_TAC [] [mono_value_env_def] THEN -Cases_on `ts` THEN FULL_SIMP_TAC list_ss [mono_ts_def] THEN IMP_RES_TAC shift_has0_thm THEN -Q.EXISTS_TAC `(vn, t'')::x_t_list` THEN SRW_TAC [] []); - -val vn_to_x_t_def = Define -`vn_to_x_t (EB_vn n (TS_forall t)) = (n, t)`; - -val lem3 = Q.prove ( -`!l1 l2 S. (LENGTH l1 = LENGTH l2) /\ - EVERY (\(EB,subst). ?t. (EB = EB_vn (FST subst) (TS_forall (shiftt 0 1 t))) /\ - JTe (shiftTsig 0 1 S) (EB_tv::E) (SND subst) t) - (ZIP (l1, l2)) ==> - EVERY (\(EB,(x',v')). (FST (vn_to_x_t EB) = x') /\ - JTe (shiftTsig 0 1 S) (EB_tv::E) v' (idxsubn 0 [] (SND (vn_to_x_t EB)))) - (ZIP (l1, l2))`, -Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN -FULL_SIMP_TAC (srw_ss()) [vn_to_x_t_def, sub_shiftt_thm2]); - -val lem5 = Q.prove ( -`!l1 l2 S. (LENGTH l1 = LENGTH l2) /\ - EVERY (\(EB,subst). ?t. (EB = EB_vn (FST subst) (TS_forall (shiftt 0 1 t))) /\ JTe S E (SND subst) t) - (ZIP (l1, l2)) ==> - EVERY (\(EB,(x',v')). (FST (vn_to_x_t EB) = x') /\ - JTe (shiftTsig 0 1 S) (EB_tv::E) v' (SND (vn_to_x_t EB))) - (ZIP (l1, l2))`, -Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN -FULL_SIMP_TAC (srw_ss()) [vn_to_x_t_def, sub_shiftt_thm2] THEN -IMP_RES_TAC weak_one_tv_thm THEN METIS_TAC [APPEND, num_tv_def, shiftE_def]); - -val lem6 = Q.prove ( -`!l1 l2. (MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) l1 = - MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) l2) ==> - (l1 = l2)`, -Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN -FULL_SIMP_TAC list_ss [environment_binding_11, typescheme_11] THEN -Cases_on `h` THEN Cases_on `h'` THEN FULL_SIMP_TAC list_ss [shiftt_11]); - -val lem8 = Q.prove ( -`!l1 l2. (MAP (\z. LRB_simple (FST z) (SND (SND z))) l1 = MAP (\z. LRB_simple (FST z) (FST (SND z))) l2) ==> - (MAP FST l1 = MAP FST l2) /\ (MAP (\x. SND (SND x)) l1 = MAP (\x. FST (SND x)) l2)`, -Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THEN -Cases_on `h` THEN Cases_on `h'` THEN SRW_TAC [] []); - -val lem9 = Q.prove ( -`!l1 l2 P. EVERY (\z:value_name # expr # pattern_matching. P (SND (SND z))) l1 /\ - (MAP (\x. SND (SND x)) l1 = MAP (\x. FST (SND x)) l2) ==> - EVERY (\z:value_name # pattern_matching # typexpr # typexpr. P (FST (SND z))) l2`, -Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN FULL_SIMP_TAC list_ss []); - -val lem10 = Q.prove ( -`!l1 l2. (LENGTH l1 = LENGTH l2) /\ (MAP FST l1 = MAP FST l2) ==> - EVERY (\p. FST (FST p) = FST (SND p)) (ZIP (l1, l2))`, -Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN FULL_SIMP_TAC list_ss []); - -val lem11 = Q.prove ( -`!l1 l2 f P. - (LENGTH l1 = LENGTH l2) /\ - (MAP (\x. SND (SND x)) l1 = MAP (\x. FST (SND x)) l2) /\ - EVERY (\x. f (SND (SND x)) = FST (SND x)) l1 /\ - EVERY (\p. P (f (FST (SND p))) (FST (SND (SND p))) (SND (SND (SND p)))) l2 ==> - EVERY (\p. P (FST (SND (SND p))) (FST (SND (SND (FST p)))) (SND (SND (SND (FST p))))) (ZIP (l2, l1))`, -Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN FULL_SIMP_TAC list_ss [] THEN METIS_TAC []); - -val lem12 = -(GEN_ALL o Q.SPECL [`S`, `pm`, `t1`, `t2`, `E1`, `EB_tv::E`] o -SIMP_RULE list_ss [GSYM RIGHT_FORALL_IMP_THM, AND_IMP_INTRO] o hd o tl o CONJUNCTS) weak_one_tv_thm; - -(* 13 and 14 copied from weakenScript *) -val lem13 = SIMP_RULE list_ss [] (Q.SPECL [`t`, `n`, `0`, `1`] (hd (CONJUNCTS shiftt_com_lem))); - -val lem14 = Q.prove ( -`!l m n f g. shiftE m 1 (MAP (\z. EB_vn (f z) (TS_forall (shiftt 0 1 (g z)))) l) = - MAP (\z. EB_vn (f z) (TS_forall (shiftt 0 1 (shiftt m 1 (g z))))) l`, -Induct THEN SRW_TAC [] [shiftE_def, shiftEB_def, lem13, shiftts_def] THEN -METIS_TAC [value_env_map_thm, value_env_num_tv_thm, arithmeticTheory.ADD_0]); - -val lem15 = -(GEN_ALL o SIMP_RULE list_ss [num_tv_def] o Q.SPEC `[EB_tv]`) tkind_weak_thm; - -val lem16 = Q.prove ( -`!l p. MEM p l /\ ALL_DISTINCT (MAP FST l) ==> -(lookup (MAP (\(x,pm,t1,t2). EB_vn x (TS_forall (shiftt 0 1 (TE_arrow t1 t2)))) l++EB_tv::E) (name_vn (FST p)) = - SOME (EB_vn (FST p) (TS_forall (shiftt 0 1 (TE_arrow (FST (SND (SND p))) (SND (SND (SND p))))))))`, -SIMP_TAC list_ss [LAMBDA_PROD2] THEN Induct THEN SRW_TAC [] [lookup_def, domEB_def, shiftEB_add_thm] THEN -METIS_TAC [lookup_dom_thm, MEM_MAP]); - -val lem17 = Q.prove ( -`!E E'. PERM E E' ==> value_env E ==> value_env E'`, -HO_MATCH_MP_TAC PERM_IND THEN SRW_TAC [] [value_env_def] THEN -Cases_on `x` THEN FULL_SIMP_TAC (srw_ss()) [value_env_def] THEN -Cases_on `y` THEN FULL_SIMP_TAC (srw_ss()) [value_env_def]); - -val lem18 = Q.prove ( -`!E. value_env E ==> - (MAP (\x. EB_vn (FST (vn_to_x_t x)) (TS_forall (SND (vn_to_x_t x)))) E = E)`, -Induct THEN SRW_TAC [] [value_env_def] THEN Cases_on `h` THEN -FULL_SIMP_TAC (srw_ss()) [value_env_def] THEN Cases_on `t` THEN SRW_TAC [] [vn_to_x_t_def]); - -val lem19 = Q.prove ( -`!E x_t_list. value_env E ==> - (PERM (MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) x_t_list) E ==> - PERM (MAP FST x_t_list) (MAP FST (MAP vn_to_x_t E)))`, -SRW_TAC [] [] THEN -`PERM (MAP FST (MAP vn_to_x_t (MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) x_t_list))) - (MAP FST (MAP vn_to_x_t E))` by METIS_TAC [PERM_MAP] THEN -FULL_SIMP_TAC (srw_ss()) [MAP_MAP, vn_to_x_t_def] THEN METIS_TAC []); - -val lem20 = Q.prove ( -`!E x_t_list. value_env E ==> - PERM (MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) x_t_list) E ==> - PERM (MAP (\z. EB_vn (FST z) (TS_forall (SND z))) x_t_list) - (MAP (\x. EB_vn (FST (vn_to_x_t x)) (TS_forall (idxsubn 0 [] (SND (vn_to_x_t x))))) E)`, -SRW_TAC [] [] THEN -`PERM (MAP (\x. EB_vn (FST (vn_to_x_t x)) (TS_forall (idxsubn 0 [] (SND (vn_to_x_t x))))) - (MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) x_t_list)) - (MAP (\x. EB_vn (FST (vn_to_x_t x)) (TS_forall (idxsubn 0 [] (SND (vn_to_x_t x))))) E)` by - METIS_TAC [PERM_MAP] THEN -FULL_SIMP_TAC (srw_ss()) [MAP_MAP, vn_to_x_t_def, sub_shiftt_thm2]); - -val lem21 = Q.prove ( -`!E up t. JTuprim E up t ==> ?t1 t2. t = TE_arrow t1 t2`, -SRW_TAC [] [JTuprim_cases]); - -val lem22 = Q.prove ( -`!E bp t. JTbprim E bp t ==> ?t1 t2 t3. t = TE_arrow t1 (TE_arrow t2 t3)`, -SRW_TAC [] [JTbprim_cases]); - -val lem23 = Q.prove ( -`!S E L E' t t'. JTLout S E L E' /\ JTLin S E L /\ JTeq E t t' ==> JTeq (E'++E) t t'`, -SRW_TAC [] [JTLout_cases, JTLin_cases] THEN SRW_TAC [] [] THEN -IMP_RES_TAC (Q.SPECL [`E`, `EB_l location t''`] weak_teq_lem1) THEN FULL_SIMP_TAC (srw_ss()) [Eok_def] THEN -METIS_TAC [ok_thm]); - -val simple_raise_tac = - IMP_RES_TAC ok_thm THEN FULL_SIMP_TAC list_ss [Eok_def, lem1] THEN SRW_TAC [] [] THEN - FULL_SIMP_TAC list_ss [Eok_def] THEN - FULL_SIMP_TAC (srw_ss()) [is_abbrev_tc_def, teq_fun1] THEN SRW_TAC [] [] THEN - IMP_RES_TAC teq_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [Eok_def] THEN - METIS_TAC [teq_thm, JTeq_rules]; - -in - -val recfun_pres_thm = Q.store_thm ("recfun_pres_thm", -`!S E lrbs pm t t' x_t_list. - closed_env E /\ - JTletrec_binding (shiftTsig 0 1 S) (EB_tv::E) lrbs - (MAP (\(x, t). EB_vn x (TS_forall (shiftt 0 1 t))) x_t_list) /\ - JTpat_matching S (MAP (\(x, t). EB_vn x (TS_forall t)) x_t_list ++ E) pm t t' ==> - JTe S E (recfun lrbs pm) (TE_arrow t t')`, -Cases_on `lrbs` THEN SRW_TAC [] [JTe_fun, recfun_def, substs_value_name_letrec_binding_def] THEN -SRW_TAC [] [MAP_MAP] THEN -MAP_EVERY Q.EXISTS_TAC [`t`, `t'`] THEN SRW_TAC [] [] THENL -[MATCH_MP_TAC substs_pm_lem THEN Q.EXISTS_TAC `REVERSE x_t_list` THEN - SRW_TAC [] [MAP_MAP, EVERY_MAP, LENGTH_MAP, ZIP_MAP, MAP_ZIP_SAME, LENGTH_REVERSE, - is_value_of_expr_def, is_non_expansive_of_expr_def] THEN - FULL_SIMP_TAC (srw_ss()) [GSYM MAP_REVERSE] THEN1 - METIS_TAC [LENGTH_MAP, LENGTH_REVERSE] THEN - FULL_SIMP_TAC (srw_ss()) [LAMBDA_PROD2, GSYM MAP_REVERSE, letrec_lem] THEN - FULL_SIMP_TAC (srw_ss()) [MAP_REVERSE, ALL_DISTINCT_REVERSE, MAP_MAP] THEN1 - METIS_TAC [MAP_11_ALL_DISTINCT, name_11] THEN - SRW_TAC [] [ZIP_MAP, MAP_ZIP_SAME, EVERY_MAP, EVERY_MEM] THEN - FULL_SIMP_TAC (srw_ss()) [MAP_MAP, MEM_MAP, GSYM MAP_REVERSE, MAP_MAP] THEN - SRW_TAC [] [JTe_fun] THEN SRW_TAC [] [GSYM MAP_REVERSE, letrec_lem] THEN - SRW_TAC [] [MAP_REVERSE, REVERSE_EQ, GSYM LEFT_EXISTS_AND_THM, MAP_MAP] THEN - Q.EXISTS_TAC `MAP (\(vn, pm, t, t'). (vn, pm, shiftt 0 1 t, shiftt 0 1 t')) - value_name_pattern_matching_t_t'_list` THEN - SRW_TAC [] [EVERY_MAP, LAMBDA_PROD2, MAP_MAP] THENL - [FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN SRW_TAC [] [] THEN RES_TAC THEN IMP_RES_TAC lem12 THEN - FULL_SIMP_TAC (srw_ss()) [value_env_map_thm, value_env_num_tv_thm, lem14, shiftTsig_add_thm, - shiftt_def] THEN - METIS_TAC [MAP_REVERSE, APPEND, APPEND_ASSOC], - SRW_TAC [] [JTvalue_name_cases] THEN - Q.EXISTS_TAC `TE_arrow (FST (SND (SND p'))) (SND (SND (SND p')))` THEN - SRW_TAC [] [] THENL - [Q.EXISTS_TAC `TS_forall (TE_arrow (shiftt 0 1 (FST (SND (SND p')))) - (shiftt 0 1 (SND (SND (SND p')))))` THEN - SRW_TAC [] [JTinst_cases] THENL - [SRW_TAC [] [GSYM MAP_REVERSE] THEN - MATCH_MP_TAC (SIMP_RULE (srw_ss()) [LAMBDA_PROD2, shiftt_def] lem16) THEN - SRW_TAC [] [MAP_REVERSE, ALL_DISTINCT_REVERSE] THEN - Q.PAT_ASSUM `ALL_DISTINCT a` MP_TAC THEN - REPEAT (POP_ASSUM (K ALL_TAC)) THEN Induct_on `value_name_pattern_matching_t_t'_list` THEN - SRW_TAC [] [MEM_MAP], - FULL_SIMP_TAC (srw_ss()) [EVERY_MEM, Eok_def, idxsub_def, GSYM idxsubn0_thm, - sub_shiftt_thm2] THEN - Q.EXISTS_TAC `[]` THEN SRW_TAC [] [] THEN MATCH_MP_TAC lem15 THEN - SRW_TAC [] [Eok_def, GSYM MAP_REVERSE] THEN FULL_SIMP_TAC (srw_ss()) [shiftt_def] THEN - METIS_TAC [ok_thm, ok_ok_thm]], - FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN RES_TAC THEN - IMP_RES_TAC ok_thm THEN FULL_SIMP_TAC (srw_ss()) [LAMBDA_PROD2, MAP_REVERSE, shiftt_def] THEN - `tkind (REVERSE (MAP (\x. EB_vn (FST x) (TS_forall (TE_arrow (shiftt 0 1 (FST (SND (SND x)))) - (shiftt 0 1 (SND (SND (SND x))))))) - value_name_pattern_matching_t_t'_list) ++ EB_tv::E) - (TE_arrow (FST (SND (SND p'))) (SND (SND (SND p'))))` - by SRW_TAC [] [Eok_def] THEN - METIS_TAC [JTeq_rules]]], - IMP_RES_TAC ok_thm THEN FULL_SIMP_TAC (srw_ss()) [LAMBDA_PROD2] THEN - METIS_TAC [JTeq_rules, value_env_ok_str_thm, value_env_map_thm, APPEND]]); - -val matching_preservation_lem = Q.prove ( -`!v pattern_matching e' S E t' t. - JRmatching_success v pattern_matching e' /\ JTe S E v t' /\ JTpat_matching S E pattern_matching t' t /\ - closed_env E /\ is_value_of_expr v ==> - JTe S E e' t`, -SRW_TAC [] [JRmatching_success_cases] THEN FULL_SIMP_TAC (srw_ss()) [JTe_fun] THEN -Cases_on `pattern_e_E_list` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [] THENL -[IMP_RES_TAC pat_env_lem THEN IMP_RES_TAC lem4 THEN FULL_SIMP_TAC (srw_ss()) [] THEN - IMP_RES_TAC pat_num_bindings_lem THEN IMP_RES_TAC pat_preservation_thm THEN - MATCH_MP_TAC substs_lem THEN IMP_RES_TAC lem17 THEN - Q.EXISTS_TAC `MAP vn_to_x_t (REVERSE E'')` THEN - SRW_TAC [] [MAP_REVERSE] THEN FULL_SIMP_TAC (srw_ss()) [LAMBDA_PROD2] THENL - [IMP_RES_TAC PERM_LENGTH THEN FULL_SIMP_TAC (srw_ss()) [LENGTH_REVERSE] THEN - METIS_TAC [LENGTH_REVERSE, LENGTH_MAP, PERM_LENGTH], - SRW_TAC [] [MAP_MAP, lem18] THEN IMP_RES_TAC distinct_pat_env THEN - METIS_TAC [value_perm_thm, APPEND, value_env_map_thm], - FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN SRW_TAC [] [] THEN Cases_on `SND z` THEN - SRW_TAC [] [] THEN RES_TAC THEN FULL_SIMP_TAC (srw_ss()) [] THEN - METIS_TAC [value_nonexpansive_thm], - IMP_RES_TAC lem19 THEN IMP_RES_TAC distinct_pat_env THEN - FULL_SIMP_TAC (srw_ss()) [MAP_MAP, domEB_def, LAMBDA_PROD2, ALL_DISTINCT_REVERSE] THEN - METIS_TAC [MAP_11_ALL_DISTINCT, name_11, PERM_ALL_DISTINCT, PERM_MAP, MAP_MAP], - `LENGTH (REVERSE E'') = LENGTH x_v_list` - by METIS_TAC [LENGTH_REVERSE, LENGTH_MAP, PERM_LENGTH] THEN - SRW_TAC [] [GSYM MAP_REVERSE, ZIP_MAP, EVERY_MAP] THEN - METIS_TAC [LENGTH_MAP, LENGTH_REVERSE, SIMP_RULE list_ss [LAMBDA_PROD2] lem5, MAP_REVERSE]], - SRW_TAC [] [lem1, JTconst_cases, JTconstr_c_cases] THEN - Q.EXISTS_TAC `TE_constr [] TC_exn` THEN - `tkind E (TE_constr [] TC_exn)` by SRW_TAC [] [Eok_def] THEN - METIS_TAC [pat_env_lem, ok_thm, value_env_ok_str_thm, APPEND, pat_ok_thm, - ok_ok_thm, JTeq_rules]]); - -local - -val lem1 = Q.prove ( -`!x. (substs_x_xs case x of substs_x_xs l -> l) = x`, -Cases THEN SRW_TAC [] []); - -in - -val JMmatch_tyvars_thm = Q.prove ( -`!v p subs. JM_match v p subs ==> !x_v_list. (subs = substs_x_xs x_v_list) ==> (ftv_expr v = []) ==> - EVERY (\xv. ftv_expr (SND xv) = []) x_v_list`, -RULE_INDUCT_TAC JM_match_ind [ftv_letrec_binding_def, MEM_FLAT, MEM_MAP, EXISTS_MEM, ELIM_UNCURRY, - MEM, FLAT_EQ_EMPTY, EVERY_MAP, EVERY_MEM] -[([``"JM_match_alias"``], - SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss []), - ([``"JM_match_construct"``, ``"JM_match_tuple"``], - SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [] THEN Cases_on `x''` THEN Cases_on `r` THEN Cases_on `r'` THEN - FULL_SIMP_TAC list_ss [substs_x_case_def] THEN METIS_TAC [FST, SND]), - ([``"JM_match_record"``], - SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [] THEN Cases_on `x''` THEN Cases_on `r` THEN Cases_on `r'` THEN - FULL_SIMP_TAC list_ss [substs_x_case_def] THEN IMP_RES_TAC PERM_MEM_EQ THEN - FULL_SIMP_TAC list_ss [MEM_MAP] THEN METIS_TAC [FST, SND, lem1]), - ([``"JM_match_cons"``], - SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [] THENL - [Cases_on `subs` THEN FULL_SIMP_TAC list_ss [substs_x_case_def] THEN METIS_TAC [FST, SND], - Cases_on `subs'` THEN FULL_SIMP_TAC list_ss [substs_x_case_def] THEN METIS_TAC [FST, SND]])]); - -end; - -val e_preservation_thm = Q.prove ( -`!e L e'. JR_expr e L e' ==> !E S. closed_env E ==> !t. JTe S E e t /\ JTLin S E L ==> - ?E''. JTLout S E L E'' /\ JTe S (E''++E) e' t`, -RULE_INDUCT_TAC JR_expr_sind [JTL_nil_lem, JTe_fun, JTconst_fun, ftv_letrec_binding_def] -[([``"JR_expr_uprim"``], - SRW_TAC [] [] THEN IMP_RES_TAC lem21 THEN - FULL_SIMP_TAC (srw_ss()) [is_abbrev_tc_def, teq_fun1] THEN SRW_TAC [] [] THEN - `JTe S E v t1'` by METIS_TAC [teq_thm, JTeq_rules] THEN IMP_RES_TAC uprim_preservation_lem THEN - METIS_TAC [lem23, teq_thm]), - ([``"JR_expr_bprim"``], - SRW_TAC [] [] THEN IMP_RES_TAC lem22 THEN - FULL_SIMP_TAC (srw_ss()) [is_abbrev_tc_def, teq_fun1] THEN SRW_TAC [] [] THEN - `JTe S E v1 t1'' /\ JTe S E v2 t2` by METIS_TAC [teq_thm, JTeq_rules] THEN - IMP_RES_TAC bprim_preservation_lem THEN METIS_TAC [lem23, teq_thm]), - ([``"JR_expr_typed_ctx"``], - SRW_TAC [] []), - ([``"JR_expr_apply_ctx_arg"``, ``"JR_expr_apply_ctx_fun"``, ``"JR_expr_sequence_ctx_left"``, - ``"JR_expr_ifthenelse_ctx"``, ``"JR_expr_match_ctx"``, ``"JR_expr_try_ctx"``], - METIS_TAC [label_weak_thm]), - ([``"JR_expr_apply_raise1"``, ``"JR_expr_apply_raise2"``, ``"JR_expr_sequence_raise"``, ``"JR_expr_if_raise"``, - ``"JR_expr_match_raise"``, ``"JR_expr_for_raise1"``, ``"JR_expr_for_raise2"``, ``"JR_expr_cons_raise1"``, - ``"JR_expr_cons_raise2"``, ``"JR_expr_assert_raise"``], - SRW_TAC [] [] THEN simple_raise_tac), - ([``"JR_expr_apply"``], - simple_raise_tac), - ([``"JR_expr_let_ctx"``], - SRW_TAC [] [] THENL - [RES_TAC THEN Q.EXISTS_TAC `E''` THEN SRW_TAC [] [] THEN DISJ1_TAC THEN Q.EXISTS_TAC `x_t_list` THEN - METIS_TAC [val_env_label_weak_thm, label_weak_thm, lem2, MAP_REVERSE], - IMP_RES_TAC nexp_red_thm THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [JTL_nil_lem] THEN - SRW_TAC [] [] THEN DISJ2_TAC THEN - METIS_TAC [closed_env_tv_lem, ok_thm, ok_ok_thm, MAP_REVERSE]]), - ([``"JR_expr_let_raise"``], - SRW_TAC [] [] THENL - [IMP_RES_TAC ok_thm THEN FULL_SIMP_TAC list_ss [Eok_def, lem1] THEN SRW_TAC [] [] THEN - FULL_SIMP_TAC list_ss [Eok_def] THEN - FULL_SIMP_TAC (srw_ss()) [is_abbrev_tc_def, teq_fun1] THEN SRW_TAC [] [] THEN - METIS_TAC [value_env_ok_str_thm, lem2, MAP_REVERSE, APPEND, teq_thm, JTeq_rules], - IMP_RES_TAC ok_thm THEN FULL_SIMP_TAC list_ss [Eok_def, lem1] THEN SRW_TAC [] [] THEN - FULL_SIMP_TAC list_ss [Eok_def, is_non_expansive_of_expr_def, - is_binary_prim_app_value_of_expr_def] THEN - METIS_TAC [value_env_ok_str_thm, lem2, MAP_REVERSE, APPEND]]), - ([``"JR_expr_let_subst"``], - SRW_TAC [] [GSYM MAP_REVERSE] THENL - [`x_t_list' = x_t_list` by METIS_TAC [REVERSE_EQ, lem6] THEN SRW_TAC [] [] THEN - IMP_RES_TAC pat_num_bindings_lem THEN IMP_RES_TAC pat_preservation_thm THEN - MATCH_MP_TAC substs_lem THEN IMP_RES_TAC lem17 THEN - Q.EXISTS_TAC `MAP vn_to_x_t (REVERSE E'')` THEN - SRW_TAC [] [MAP_REVERSE] THEN FULL_SIMP_TAC (srw_ss()) [LAMBDA_PROD2, value_env_map_thm] THENL - [IMP_RES_TAC PERM_LENGTH THEN FULL_SIMP_TAC (srw_ss()) [LENGTH_REVERSE] THEN - METIS_TAC [LENGTH_REVERSE, LENGTH_MAP, PERM_LENGTH], - SRW_TAC [] [MAP_MAP, lem18] THEN IMP_RES_TAC distinct_pat_env THEN - METIS_TAC [value_perm_thm, APPEND, value_env_map_thm], - FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN SRW_TAC [] [] THEN Cases_on `SND z` THEN - SRW_TAC [] [] THEN RES_TAC THEN FULL_SIMP_TAC (srw_ss()) [] THEN - METIS_TAC [value_nonexpansive_thm], - IMP_RES_TAC lem19 THEN IMP_RES_TAC distinct_pat_env THEN - FULL_SIMP_TAC (srw_ss()) [MAP_MAP, domEB_def, LAMBDA_PROD2, ALL_DISTINCT_REVERSE] THEN - METIS_TAC [MAP_11_ALL_DISTINCT, name_11, PERM_ALL_DISTINCT, PERM_MAP, MAP_MAP], - `LENGTH (REVERSE E'') = LENGTH x_v_list` - by METIS_TAC [LENGTH_REVERSE, LENGTH_MAP, PERM_LENGTH] THEN - SRW_TAC [] [GSYM MAP_REVERSE, ZIP_MAP, EVERY_MAP] THEN - METIS_TAC [LENGTH_MAP, LENGTH_REVERSE, SIMP_RULE list_ss [LAMBDA_PROD2] lem5, MAP_REVERSE]], - `x_t_list' = x_t_list` by METIS_TAC [REVERSE_EQ, lem6] THEN SRW_TAC [] [] THEN - IMP_RES_TAC pat_num_bindings_lem THEN IMP_RES_TAC pat_preservation_thm THEN - MATCH_MP_TAC substs_lem THEN IMP_RES_TAC lem17 THEN - Q.EXISTS_TAC `MAP (\(x,t). (x, idxsubn 0 [] t)) (MAP vn_to_x_t (REVERSE E''))` THEN - SRW_TAC [] [MAP_REVERSE] THEN FULL_SIMP_TAC (srw_ss()) [LAMBDA_PROD2, value_env_map_thm] THENL - [IMP_RES_TAC PERM_LENGTH THEN FULL_SIMP_TAC (srw_ss()) [LENGTH_REVERSE] THEN - METIS_TAC [LENGTH_REVERSE, LENGTH_MAP, PERM_LENGTH], - SRW_TAC [] [MAP_MAP, lem18] THEN IMP_RES_TAC distinct_pat_env THEN IMP_RES_TAC lem20 THEN - `ALL_DISTINCT (MAP domEB (MAP (\z. EB_vn (FST z) (TS_forall (SND z))) (REVERSE x_t_list)))` - by FULL_SIMP_TAC (srw_ss()) [MAP_MAP, vn_to_x_t_def, domEB_def] THEN - METIS_TAC [value_perm_thm, APPEND, value_env_map_thm], - FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN SRW_TAC [] [] THEN Cases_on `SND z` THEN - SRW_TAC [] [] THEN RES_TAC THEN FULL_SIMP_TAC (srw_ss()) [] THEN - METIS_TAC [value_nonexpansive_thm], - IMP_RES_TAC lem19 THEN IMP_RES_TAC distinct_pat_env THEN - FULL_SIMP_TAC (srw_ss()) [MAP_MAP, domEB_def, LAMBDA_PROD2, ALL_DISTINCT_REVERSE] THEN - METIS_TAC [MAP_11_ALL_DISTINCT, name_11, PERM_ALL_DISTINCT, PERM_MAP, MAP_MAP], - `LENGTH (REVERSE E'') = LENGTH x_v_list` - by METIS_TAC [LENGTH_REVERSE, LENGTH_MAP, PERM_LENGTH] THEN - SRW_TAC [] [GSYM MAP_REVERSE, ZIP_MAP, EVERY_MAP] THEN - METIS_TAC [LENGTH_MAP, LENGTH_REVERSE, SIMP_RULE list_ss [LAMBDA_PROD2] lem3, - MAP_REVERSE]]]), - ([``"JR_expr_let_fail"``], - SRW_TAC [] [] THENL - [IMP_RES_TAC ok_thm THEN FULL_SIMP_TAC list_ss [Eok_def, lem1] THEN SRW_TAC [] [] THEN - FULL_SIMP_TAC (srw_ss()) [Eok_def, JTconstr_c_cases] THEN - `tkind E (TE_constr [] TC_exn)` by SRW_TAC [] [Eok_def] THEN - METIS_TAC [value_env_ok_str_thm, lem2, MAP_REVERSE, APPEND, ok_ok_thm, JTeq_rules], - IMP_RES_TAC ok_thm THEN FULL_SIMP_TAC list_ss [Eok_def, lem1] THEN SRW_TAC [] [] THEN - FULL_SIMP_TAC (srw_ss()) [Eok_def, JTconstr_c_cases, is_binary_prim_app_value_of_expr_def] THEN - `tkind E (TE_constr [] TC_exn)` by SRW_TAC [] [Eok_def] THEN - METIS_TAC [value_env_ok_str_thm, lem2, MAP_REVERSE, APPEND, ok_ok_thm, JTeq_rules]]), - ([``"JR_expr_letrec"``], - SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [FLAT_EQ_EMPTY, EVERY_MAP, REVERSE_EQ, ftv_letrec_binding_def] THEN - MATCH_MP_TAC substs_lem THEN SRW_TAC [] [EVERY_MAP] THEN - Q.EXISTS_TAC `x_t_list` THEN - IMP_RES_TAC letrec_lem THEN IMP_RES_TAC lem8 THEN FULL_SIMP_TAC list_ss [MAP_MAP] THEN - SRW_TAC [] [LAMBDA_PROD2] THENL - [METIS_TAC [LENGTH_MAP], - FULL_SIMP_TAC list_ss [EVERY_MEM] THEN METIS_TAC [recfun_is_value, value_nonexpansive_thm], - (* FULL_SIMP_TAC list_ss [EVERY_MEM] THEN SRW_TAC [] [] THEN - Tactical.REVERSE (`ftv_expr (FST (SND z)) = []` by ALL_TAC) THEN1 - SRW_TAC [] [DISJOINT_def] THEN - RES_TAC THEN POP_ASSUM (fn x => ONCE_REWRITE_TAC [GSYM x]) THEN - MATCH_MP_TAC recfun_ftv_thm THEN - SRW_TAC [] [ftv_letrec_binding_def, FLAT_EQ_EMPTY, EVERY_MAP] THEN - HO_MATCH_MP_TAC lem9 THEN SRW_TAC [] [EVERY_MEM] THEN METIS_TAC [],*) - METIS_TAC [MAP_11_ALL_DISTINCT2, name_11, MAP_MAP], - `LENGTH x_e_pattern_matching_list = LENGTH value_name_pattern_matching_t_t'_list` - by METIS_TAC [LENGTH_MAP] THEN - SRW_TAC [] [ZIP_MAP, EVERY_MAP, EVERY_CONJ, lem10] THEN HO_MATCH_MP_TAC lem11 THEN - SRW_TAC [] [] THEN - Q.EXISTS_TAC `\y. recfun (LRBs_inj (MAP (\z. LRB_simple (FST z) (FST (SND z))) - value_name_pattern_matching_t_t'_list)) y` THEN - SRW_TAC [] [] THEN - SRW_TAC [] [EVERY_MEM] THEN MATCH_MP_TAC recfun_pres_thm THEN - Q.EXISTS_TAC `REVERSE (MAP (\z. (FST z, (shiftt 0 1 - (TE_arrow (FST (SND (SND z))) - (SND (SND (SND z))))))) - value_name_pattern_matching_t_t'_list)` THEN - SRW_TAC [] [closed_env_def] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THENL - [SRW_TAC [] [lookup_def, domEB_def] THEN - Cases_on `EB2` THEN SRW_TAC [] [shiftEB_def] THEN METIS_TAC [closed_env_def], - SRW_TAC [] [JTe_fun] THEN - Q.EXISTS_TAC `MAP (\(vn, pm, t, t'). (vn, pm, shiftt 0 1 t, shiftt 0 1 t')) - value_name_pattern_matching_t_t'_list` THEN - SRW_TAC [] [EVERY_MEM, ELIM_UNCURRY, MAP_MAP, MAP_REVERSE, - shiftt_def] THEN - FULL_SIMP_TAC list_ss [MEM_MAP] THEN SRW_TAC [] [] THEN - RES_TAC THEN IMP_RES_TAC lem12 THEN - FULL_SIMP_TAC list_ss [value_env_map_thm, value_env_num_tv_thm, lem14, - GSYM shiftt_def, shiftTsig_add_thm, GSYM MAP_REVERSE] THEN - METIS_TAC [MAP_REVERSE, APPEND, APPEND_ASSOC], - SRW_TAC [] [MAP_REVERSE, MAP_MAP, EVERY_MEM, ELIM_UNCURRY]]]), - ([``"JR_expr_match_step"``], - METIS_TAC [matching_step_preservation_lem]), - ([``"JR_expr_match_success"``], - METIS_TAC [matching_preservation_lem]), - ([``"JR_expr_and"``, ``"JR_expr_or"``, ``"JR_expr_while"``], - METIS_TAC [ok_thm, ok_ok_thm, teq_thm]), - ([``"JR_expr_for_ctx1"``], - SRW_TAC [] [] THEN RES_TAC THEN Q.EXISTS_TAC `E''` THEN SRW_TAC [] [] THEN1 METIS_TAC [label_weak_thm] THEN - METIS_TAC [value_env_def, APPEND, val_env_label_weak_thm, lem23]), - ([``"JR_expr_for_ctx2"``], - SRW_TAC [] [] THEN RES_TAC THEN Q.EXISTS_TAC `E''` THEN SRW_TAC [] [] THEN1 METIS_TAC [label_weak_thm] THEN - METIS_TAC [value_env_def, APPEND, val_env_label_weak_thm, lem23]), - ([``"JR_expr_for_to_do"``, ``"JR_expr_for_downto_do"``], - SRW_TAC [] [] THEN DISJ1_TAC THEN Q.EXISTS_TAC `[(VN_id lowercase_ident, TE_constr [] TC_int)]` THEN - SRW_TAC [] [] THEN - Q.EXISTS_TAC `[(VN_id lowercase_ident, TE_constr [] TC_int)]` THEN - SRW_TAC [] [JTpat_fun, Eok_def, shiftt_def] THEN - Q.EXISTS_TAC `TE_constr [] TC_int` THEN SRW_TAC [] [Eok_def, shiftt_def]), - ([``"JR_expr_for_to_done"``, ``"JR_expr_for_downto_done"``], - METIS_TAC []), - ([``"JR_expr_try_catch"``], - SRW_TAC [] [] THEN Q.EXISTS_TAC `TE_constr [] TC_exn` THEN SRW_TAC [] [] THEN - FULL_SIMP_TAC (srw_ss()) [JTuprim_cases] THEN SRW_TAC [] [] THEN - FULL_SIMP_TAC (srw_ss()) [teq_fun1, is_abbrev_tc_def] THENL - [METIS_TAC [teq_thm, JTeq_rules], - Q.EXISTS_TAC `pattern_e_E_list++[(P_any, Expr_apply (Expr_uprim Uprim_raise) v, [])]` THEN - SRW_TAC [] [JTpat_fun, JTe_fun] THEN SRW_TAC [] [Eok_def] THENL - [METIS_TAC [ok_ok_thm], - SRW_TAC [] [JTuprim_cases] THEN METIS_TAC [teq_thm, JTeq_rules], - DECIDE_TAC]]), - ([``"JR_expr_tuple_ctx"``], - SRW_TAC [] [] THEN - `?l1 et l2. (e_list = MAP FST l1) /\ (e = FST et) /\ (v_list = MAP FST l2) /\ - (e_t_list = l1++[et]++l2)` by (FULL_SIMP_TAC list_ss [MAP_split] THEN - Cases_on `l5'` THEN FULL_SIMP_TAC list_ss [] THEN - METIS_TAC []) THEN - FULL_SIMP_TAC list_ss [EVERY_APPEND, FLAT_EQ_EMPTY] THEN SRW_TAC [] [] THEN RES_TAC THEN - Q.EXISTS_TAC `E''` THEN SRW_TAC [] [] THEN Q.EXISTS_TAC `l1++[(e', SND et)]++l2` THEN - SRW_TAC [] [EVERY_MEM] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN METIS_TAC [label_weak_thm, lem23]), - ([``"JR_expr_tuple_raise"``], - SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [MAP_split] THEN Cases_on `l5'` THEN FULL_SIMP_TAC list_ss [] THEN - Cases_on `h` THEN - SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [EVERY_APPEND] THEN SRW_TAC [] [] THEN - FULL_SIMP_TAC list_ss [JTe_fun, JTuprim_cases, typexpr_11, unary_prim_distinct] THEN - SRW_TAC [] [Eok_def, EVERY_MAP] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN - simple_raise_tac), - ([``"JR_expr_constr_ctx"``], - SRW_TAC [] [] THEN - `?l1 et l2. (e_list = MAP FST l1) /\ (e = FST et) /\ (v_list = MAP FST l2) /\ - (e_t_list = l1++[et]++l2)` by (FULL_SIMP_TAC list_ss [MAP_split] THEN - Cases_on `l5'` THEN FULL_SIMP_TAC list_ss [] THEN - METIS_TAC []) THEN - FULL_SIMP_TAC list_ss [EVERY_APPEND, FLAT_EQ_EMPTY] THEN SRW_TAC [] [] THEN RES_TAC THEN - Q.EXISTS_TAC `E''` THEN SRW_TAC [] [] THEN Q.EXISTS_TAC `l1++[(e', SND et)]++l2` THEN - SRW_TAC [] [EVERY_MEM] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN - METIS_TAC [label_weak_thm, label_constr_p_weak_thm, lem23]), - ([``"JR_expr_constr_raise"``], - SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [MAP_split] THEN Cases_on `l5'` THEN FULL_SIMP_TAC list_ss [] THEN - Cases_on `h` THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [EVERY_APPEND] THEN SRW_TAC [] [] THEN - FULL_SIMP_TAC list_ss [JTe_fun, JTuprim_cases, typexpr_11, unary_prim_distinct] THEN - SRW_TAC [] [Eok_def, EVERY_MAP] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN - Q.EXISTS_TAC `t1` THEN SRW_TAC [] [] THEN - Q.EXISTS_TAC `TE_arrow (TE_constr [] TC_exn) t` THEN SRW_TAC [] [] THEN - FULL_SIMP_TAC (srw_ss()) [is_abbrev_tc_def, teq_fun1] THEN - METIS_TAC [teq_ok_thm, JTeq_rules]), - ([``"JR_expr_cons_ctx1"``, ``"JR_expr_cons_ctx2"``], - METIS_TAC [label_weak_thm, lem23]), - ([``"JR_expr_record_ctx"``], - SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [MAP_split] THEN SRW_TAC [] [GSYM MAP_split] THEN Cases_on `l5'` THEN - FULL_SIMP_TAC list_ss [EVERY_APPEND, FLAT_EQ_EMPTY] THEN SRW_TAC [] [] THEN RES_TAC THEN - Q.EXISTS_TAC `E''` THEN SRW_TAC [] [] THEN - MAP_EVERY Q.EXISTS_TAC [`field_name'_list`, `t'_list`, `l4'++[(FST h, e', SND (SND h))]++l5`, - `typeconstr_name`, `kind`] THEN - SRW_TAC [] [EVERY_MEM] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN - METIS_TAC [label_weak_thm, label_field_weak_thm, label_lookup_weak_thm, name_distinct, lem23]), - ([``"JR_expr_record_raise"``], - SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [MAP_split] THEN SRW_TAC [] [GSYM MAP_split] THEN Cases_on `l5'` THEN - FULL_SIMP_TAC list_ss [] THEN Cases_on `h` THEN FULL_SIMP_TAC list_ss [] THEN Cases_on `r` THEN - FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [JTe_fun] THEN - IMP_RES_TAC field_constr_p_ok_thm THEN FULL_SIMP_TAC list_ss [lem1] THEN SRW_TAC [] [] THEN - simple_raise_tac), - ([``"JR_expr_record_with_ctx1"``], - SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [MAP_split] THEN SRW_TAC [] [GSYM MAP_split] THEN Cases_on `l5'` THEN - FULL_SIMP_TAC list_ss [EVERY_APPEND, FLAT_EQ_EMPTY] THEN SRW_TAC [] [] THEN RES_TAC THEN - Q.EXISTS_TAC `E''` THEN SRW_TAC [] [] THEN - Q.EXISTS_TAC `l4'++[(FST h, e', SND (SND h))]++l5` THEN - SRW_TAC [] [EVERY_MEM] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN - METIS_TAC [label_weak_thm, label_field_weak_thm, lem23]), - ([``"JR_expr_record_with_raise1"``], - SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [MAP_split] THEN SRW_TAC [] [GSYM MAP_split] THEN Cases_on `l5'` THEN - FULL_SIMP_TAC list_ss [] THEN Cases_on `h` THEN FULL_SIMP_TAC list_ss [] THEN Cases_on `r` THEN - FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [JTe_fun] THEN - IMP_RES_TAC field_constr_p_ok_thm THEN FULL_SIMP_TAC list_ss [lem1] THEN SRW_TAC [] [] THEN - Q.EXISTS_TAC `t1` THEN SRW_TAC [] [] THEN Q.EXISTS_TAC `TE_arrow (TE_constr [] TC_exn) t` THEN - SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [is_abbrev_tc_def, teq_fun1] THEN - METIS_TAC [JTeq_rules, teq_ok_thm]), - ([``"JR_expr_record_with_ctx2"``], - SRW_TAC [] [] THEN RES_TAC THEN Q.EXISTS_TAC `E''` THEN SRW_TAC [] [] THEN - Q.EXISTS_TAC `field_name_e_t_list` THEN - SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN - METIS_TAC [label_field_weak_thm, label_weak_thm, lem23]), - ([``"JR_expr_record_raise_ctx2"``], - SRW_TAC [] [] THEN - Q.EXISTS_TAC `t1` THEN SRW_TAC [] [] THEN Q.EXISTS_TAC `t''` THEN SRW_TAC [] [] THEN - FULL_SIMP_TAC (srw_ss()) [is_abbrev_tc_def, teq_fun1] THEN - METIS_TAC [JTeq_rules, ok_thm]), - ([``"JR_expr_record_with_many"``], - SRW_TAC [] [] THEN Cases_on `field_name_e_t_list` THEN FULL_SIMP_TAC list_ss [] THEN - MAP_EVERY Q.EXISTS_TAC [`t''`, `t'`] THEN - SRW_TAC [] [] THENL [ALL_TAC, METIS_TAC [LENGTH_MAP]] THEN - FULL_SIMP_TAC list_ss [MAP_split] THEN SRW_TAC [] [GSYM MAP_split] THEN Cases_on `l5'` THEN - FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THEN - MAP_EVERY Q.EXISTS_TAC [`field_name'_list`, `t'_list`, - `l4'++[(FST h, FST (SND h), SND (SND h'))]++l5`, - `typeconstr_name`, `kind`] THEN - SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [] THEN - METIS_TAC [teq_thm, record_arg_types_lem, JTeq_rules]), - ([``"JR_expr_record_with_1"``], - SRW_TAC [] [] THEN Cases_on `field_name_e_t_list` THEN FULL_SIMP_TAC list_ss [] THEN - FULL_SIMP_TAC list_ss [MAP_split] THEN SRW_TAC [] [GSYM MAP_split] THEN Cases_on `l5'` THEN - FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THEN - MAP_EVERY Q.EXISTS_TAC [`field_name'_list`, `t'_list`, - `l4'++[(FST h, FST (SND h), SND (SND h'))]++l5`, - `typeconstr_name`, `kind`] THEN - SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [] THEN - METIS_TAC [teq_thm, record_arg_types_lem, JTeq_rules]), - ([``"JR_expr_record_access_ctx"``], - METIS_TAC [label_field_weak_thm, lem23]), - ([``"JR_expr_record_access_raise"``], - SRW_TAC [] [] THEN IMP_RES_TAC ok_thm THEN FULL_SIMP_TAC list_ss [Eok_def, lem1] THEN SRW_TAC [] [] THEN - FULL_SIMP_TAC list_ss [Eok_def] THEN - Q.EXISTS_TAC `t1` THEN SRW_TAC [] [] THEN - Q.EXISTS_TAC `TE_arrow (TE_constr [] TC_exn) t` THEN SRW_TAC [] [] THEN - FULL_SIMP_TAC (srw_ss()) [teq_fun1, is_abbrev_tc_def] THEN - METIS_TAC [teq_ok_thm, JTeq_rules]), - ([``"JR_expr_record_access"``], - FULL_SIMP_TAC list_ss [MAP_split] THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [EVERY_APPEND] THEN - Cases_on `l5'` THEN FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THEN - METIS_TAC [teq_thm, record_arg_types_lem, JTeq_rules]), - ([``"JR_expr_assert_ctx"``], - SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [JR_expr_fun] THEN METIS_TAC [label_weak_thm, lem23]), - ([``"JR_expr_assert_false"``], - SRW_TAC [] [JTconstr_c_cases, JTuprim_cases] THEN Q.EXISTS_TAC `TE_constr [] TC_exn` THEN SRW_TAC [] [] THEN - `tkind E (TE_constr [] TC_exn)` by (SRW_TAC [] [Eok_def] THEN METIS_TAC [ok_ok_thm]) THEN - `tkind E (TE_arrow (TE_constr [] TC_exn) t)` by (SRW_TAC [] [Eok_def] THEN METIS_TAC [teq_ok_thm]) THEN - METIS_TAC [ok_ok_thm, JTeq_rules, teq_ok_thm])]); - -end; - - -val e_preservation_thm = - save_thm ("e_preservation_thm", SIMP_RULE list_ss [AND_IMP_INTRO, GSYM RIGHT_FORALL_IMP_THM] - e_preservation_thm); - -val _ = export_theory (); - diff --git a/vendors/ott/examples/ocaml_light/hol/progressScript.sml b/vendors/ott/examples/ocaml_light/hol/progressScript.sml deleted file mode 100644 index 2a320248e0cc..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/progressScript.sml +++ /dev/null @@ -1,616 +0,0 @@ -open bossLib HolKernel boolLib sortingTheory combinTheory wordsTheory listTheory rich_listTheory optionTheory; -open pairTheory; -open ottLib ottTheory caml_typedefTheory; -open utilTheory basicTheory environmentTheory validTheory teqTheory; - -val _ = new_theory "progress"; - -val _ = Parse.hide "S"; - -val MEM_SPLIT_FIRST = Q.prove ( -`!l x. MEM x (MAP FST l) = ?l1 l2 y. (l = l1 ++ [(x,y)] ++ l2) /\ ~MEM x (MAP FST l1)`, -Induct THEN SRW_TAC [] [] THEN Cases_on `h` THEN SRW_TAC [] [] THEN -EQ_TAC THEN SRW_TAC [] [] THENL -[METIS_TAC [APPEND, MAP, MEM], - Cases_on `x=q` THEN SRW_TAC [] [] THENL - [MAP_EVERY Q.EXISTS_TAC [`[]`, `l1 ++ [(q,y)] ++ l2`, `r`] THEN SRW_TAC [] [], - MAP_EVERY Q.EXISTS_TAC [`(q,r)::l1`, `l2`, `y`] THEN SRW_TAC [] []], - Cases_on `l1` THEN FULL_SIMP_TAC list_ss [] THEN METIS_TAC []]); - - -val is_constr_p_def = Define -`is_constr_p E e = ?c es tpo ts tc. (e = Expr_construct (C_name c) es) /\ - (lookup E (name_cn c) = SOME (EB_pc c tpo (typexprs_inj ts) tc)) /\ - (LENGTH es = LENGTH ts)`; - -val uprim_lem1 = Q.prove ( -`!E up t. JTuprim E up t ==> ?t1 t2. t = TE_arrow t1 t2`, -SRW_TAC [] [JTuprim_cases]); - -val bprim_lem1 = Q.prove ( -`!E bp t. JTbprim E bp t ==> ?t1 t2 t3. t = TE_arrow t1 (TE_arrow t2 t3)`, -SRW_TAC [] [JTbprim_cases]); - -local - -val lem3 = Q.prove ( -`!E constr t. JTconstr_c E constr t ==> ~is_abbrev_tc E t /\ ?tl tc. t = TE_constr tl tc`, -SRW_TAC [] [JTconstr_c_cases] THEN SRW_TAC [] [is_abbrev_tc_def]); - -val lem4 = Q.prove ( -`!E constr tl t. JTconstr_p E constr tl t ==> ~is_abbrev_tc E t /\ ?tl' tc. t = TE_constr tl' tc`, -SRW_TAC [] [JTconstr_p_cases] THEN SRW_TAC [] [is_abbrev_tc_def] THEN -SRW_TAC [] [is_abbrev_tc_cases] THEN -`Eok E` by METIS_TAC [inst_named_ok_thm, ok_ok_thm] THEN -IMP_RES_TAC lookup_ok_thm THEN Cases_on `typeconstr` THEN -FULL_SIMP_TAC (srw_ss()) [EBok_def] THEN CCONTR_TAC THEN FULL_SIMP_TAC (srw_ss()) []); - -val lem5 = Q.prove ( -`!E constr tl t tcn. - (lookup E (name_tcn tcn) = SOME (EB_tr tcn kind field_name'_list)) ==> - ~is_abbrev_tc E (TE_constr t'_list (TC_name tcn))`, -SRW_TAC [] [is_abbrev_tc_def]); - -val lem6 = Q.prove ( -`!E fn t1 t2. JTfield E fn t1 t2 ==> is_abbrev_tc E t1 \/ is_record_tc E t1`, -SRW_TAC [] [JTfield_cases, JTinst_named_cases, substs_typevar_typexpr_def] THEN -`Eok E` by METIS_TAC [ok_ok_thm] THEN -IMP_RES_TAC lookup_ok_thm THEN FULL_SIMP_TAC list_ss [EBok_def] THEN -(* FULL_SIMP_TAC list_ss [teq_arrow_rw, teq_tup_rw, typexpr_11, typexpr_distinct] THEN *) -SRW_TAC [] [is_abbrev_tc_def, is_record_tc_def] THEN -SRW_TAC [] []); - -val lem7 = Q.prove ( -`!E t l. LENGTH l >= 1 /\ EVERY (\x. JTfield E (FST x) t (SND (SND x))) l ==> - is_abbrev_tc E t \/ is_record_tc E t`, -Cases_on `l` THEN SRW_TAC [] [] THEN METIS_TAC [lem6]); - -val is_constr_p_lem1 = SIMP_RULE list_ss [is_constr_p_def, expr_11] (Q.prove ( -`!E c l ts tcn. JTconstr_p E c (MAP SND l) (TE_constr ts (TC_name tcn)) ==> - is_constr_p E (Expr_construct c (MAP FST l))`, -SRW_TAC [] [is_constr_p_def, JTconstr_p_cases] THEN METIS_TAC [LENGTH_MAP])); - -val is_constr_p_lem2 = SIMP_RULE list_ss [is_constr_p_def, expr_11] (Q.prove ( -`!E c l ts tcn. JTconstr_p E c (MAP SND l) (TE_constr [] TC_exn) ==> - is_constr_p E (Expr_construct c (MAP FST l)) \/ - ((c = C_invalidargument) /\ (LENGTH l = 1))`, -SRW_TAC [] [is_constr_p_def, JTconstr_p_cases] THEN1 METIS_TAC [LENGTH_MAP] THEN -Cases_on `l` THEN FULL_SIMP_TAC list_ss [])); - -val cv_tac = -Cases_on `e` THEN SRW_TAC [] [is_value_of_expr_def, JTe_fun, JTconst_cases] THEN CCONTR_TAC THEN -FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [] THEN -FULL_SIMP_TAC (srw_ss()) [teq_fun2, is_abbrev_tc_def] THEN -MAP_EVERY IMP_RES_TAC [uprim_lem1, bprim_lem1, lem3, lem4, lem5] THEN -SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [teq_fun2, is_abbrev_tc_def, JTe_fun] THEN -IMP_RES_TAC bprim_lem1 THEN -SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [teq_fun2, is_abbrev_tc_def]; - -in - -val cv_var = Q.prove ( -`!S E e a. is_value_of_expr e /\ JTe S E e (TE_var a) ==> F`, -cv_tac); - -val cv_idx = Q.prove ( -`!S E e n1 n2. is_value_of_expr e /\ JTe S E e (TE_idxvar n1 n2) ==> F`, -cv_tac); - -val cv_any = Q.prove ( -`!S E e. is_value_of_expr e /\ JTe S E e TE_any ==> F`, -cv_tac); - -val cv_fun = Q.prove ( -`!S E e t1 t2. is_value_of_expr e /\ JTe S E e (TE_arrow t1 t2) ==> - (?up. e = Expr_uprim up) \/ - (?bp. e = Expr_bprim bp) \/ - (?bp e'. e = Expr_apply (Expr_bprim bp) e') \/ - (?pm. e = Expr_function pm)`, -cv_tac); - -val cv_tup = Q.prove ( -`!S E e ts. is_value_of_expr e /\ JTe S E e (TE_tuple ts) ==> - ?es. (e = Expr_tuple es) /\ (LENGTH ts = LENGTH es)`, -cv_tac); - -val cv_int = Q.prove ( -`!S E e. is_value_of_expr e /\ JTe S E e (TE_constr [] TC_int) ==> - ?n. e = Expr_constant (CONST_int n)`, -cv_tac THEN FULL_SIMP_TAC (srw_ss()) [JTconstr_c_cases, JTconstr_p_cases] THEN SRW_TAC [] [] THEN -`Eok E` by METIS_TAC [inst_named_ok_thm, ok_ok_thm] THEN -IMP_RES_TAC lookup_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [EBok_def]); - -val cv_float = Q.prove ( -`!S E e. is_value_of_expr e /\ JTe S E e (TE_constr [] TC_float) ==> - ?n. e = Expr_constant (CONST_float n)`, -cv_tac THEN FULL_SIMP_TAC (srw_ss()) [JTconstr_c_cases, JTconstr_p_cases] THEN SRW_TAC [] [] THEN -`Eok E` by METIS_TAC [inst_named_ok_thm, ok_ok_thm] THEN -IMP_RES_TAC lookup_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [EBok_def]); - -val cv_char = Q.prove ( -`!S E e. is_value_of_expr e /\ JTe S E e (TE_constr [] TC_char) ==> - ?n. e = Expr_constant (CONST_char n)`, -cv_tac THEN FULL_SIMP_TAC (srw_ss()) [JTconstr_c_cases, JTconstr_p_cases] THEN SRW_TAC [] [] THEN -`Eok E` by METIS_TAC [inst_named_ok_thm, ok_ok_thm] THEN -IMP_RES_TAC lookup_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [EBok_def]); - -val cv_string = Q.prove ( -`!S E e. is_value_of_expr e /\ JTe S E e (TE_constr [] TC_string) ==> - ?n. e = Expr_constant (CONST_string n)`, -cv_tac THEN FULL_SIMP_TAC (srw_ss()) [JTconstr_c_cases, JTconstr_p_cases] THEN SRW_TAC [] [] THEN -`Eok E` by METIS_TAC [inst_named_ok_thm, ok_ok_thm] THEN -IMP_RES_TAC lookup_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [EBok_def]); - -val cv_bool = Q.prove ( -`!S E e. is_value_of_expr e /\ JTe S E e (TE_constr [] TC_bool) ==> - (e = Expr_constant CONST_true) \/ - (e = Expr_constant CONST_false)`, -cv_tac THEN FULL_SIMP_TAC (srw_ss()) [JTconstr_c_cases, JTconstr_p_cases] THEN SRW_TAC [] [] THEN -`Eok E` by METIS_TAC [inst_named_ok_thm, ok_ok_thm] THEN -IMP_RES_TAC lookup_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [EBok_def]); - -val cv_unit = Q.prove ( -`!S E e. is_value_of_expr e /\ JTe S E e (TE_constr [] TC_unit) ==> - (e = Expr_constant CONST_unit)`, -cv_tac THEN FULL_SIMP_TAC (srw_ss()) [JTconstr_c_cases, JTconstr_p_cases] THEN SRW_TAC [] [] THEN -`Eok E` by METIS_TAC [inst_named_ok_thm, ok_ok_thm] THEN -IMP_RES_TAC lookup_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [EBok_def]); - -val cv_exn = SIMP_RULE (srw_ss()) [is_constr_p_def] (Q.prove ( -`!S E e. is_value_of_expr e /\ JTe S E e (TE_constr [] TC_exn) ==> - is_constr_p E e \/ - (?c. e = Expr_constant (CONST_constr c)) \/ - (?e'. e = Expr_construct C_invalidargument [e'])`, -cv_tac THEN Cases_on `tl'` THEN FULL_SIMP_TAC (srw_ss()) [] THEN IMP_RES_TAC is_constr_p_lem2 THEN -FULL_SIMP_TAC (srw_ss()) [is_constr_p_def] THEN Cases_on `e_t_list` THEN FULL_SIMP_TAC (srw_ss()) [] THEN -Cases_on `t` THEN FULL_SIMP_TAC (srw_ss()) [])); - -val cv_option = Q.prove ( -`!S E e t. is_value_of_expr e /\ JTe S E e (TE_constr [t] TC_option) ==> - (?e'. e = Expr_construct C_some [e']) \/ - (e = Expr_constant (CONST_constr C_none))`, -cv_tac THEN FULL_SIMP_TAC (srw_ss()) [JTconstr_c_cases, JTconstr_p_cases] THEN SRW_TAC [] [] THEN -`Eok E` by METIS_TAC [inst_named_ok_thm, ok_ok_thm] THEN -IMP_RES_TAC lookup_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [EBok_def] THEN -Cases_on `e_t_list` THEN FULL_SIMP_TAC (srw_ss()) []); - -val cv_list = Q.prove ( -`!S E e t. is_value_of_expr e /\ JTe S E e (TE_constr [t] TC_list) ==> - (e = Expr_constant CONST_nil) \/ - (?e1 e2. e = Expr_cons e1 e2)`, -cv_tac THEN FULL_SIMP_TAC (srw_ss()) [JTconstr_c_cases, JTconstr_p_cases] THEN SRW_TAC [] [] THEN -`Eok E` by METIS_TAC [inst_named_ok_thm, ok_ok_thm] THEN -IMP_RES_TAC lookup_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [EBok_def] THEN -Cases_on `e_t_list` THEN FULL_SIMP_TAC (srw_ss()) []); - -val cv_ref = Q.prove ( -`!S E e t. is_value_of_expr e /\ JTe S E e (TE_constr [t] TC_ref) ==> - ?l. e = Expr_location l`, -cv_tac THEN FULL_SIMP_TAC (srw_ss()) [JTconstr_c_cases, JTconstr_p_cases] THEN SRW_TAC [] [] THEN -`Eok E` by METIS_TAC [inst_named_ok_thm, ok_ok_thm] THEN -IMP_RES_TAC lookup_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [EBok_def] THEN -Cases_on `e_t_list` THEN FULL_SIMP_TAC (srw_ss()) []); - -val cv_tcn = SIMP_RULE (srw_ss()) [is_constr_p_def] (Q.prove ( -`!S E e ts tcn. is_value_of_expr e /\ JTe S E e (TE_constr ts (TC_name tcn)) ==> - ((?k. lookup E (name_tcn tcn) = SOME (EB_td tcn k)) ==> - (?c. e = Expr_constant (CONST_constr c)) \/ is_constr_p E e) /\ - (!fns. (?k. lookup E (name_tcn tcn) = SOME (EB_tr tcn k fns)) ==> - (?fes. (e = Expr_record fes) /\ (PERM (MAP FST fes) (MAP F_name fns))))`, -cv_tac THEN FULL_SIMP_TAC (srw_ss()) [JTconstr_c_cases] THENL -[IMP_RES_TAC is_constr_p_lem1 THEN FULL_SIMP_TAC (srw_ss()) [is_constr_p_def], - FULL_SIMP_TAC (srw_ss()) [JTconstr_p_cases] THEN - `Eok E` by METIS_TAC [inst_named_ok_thm, ok_ok_thm] THEN IMP_RES_TAC lookup_ok_thm THEN - Cases_on `t''_tv_list` THEN FULL_SIMP_TAC (srw_ss()) [EBok_def], - IMP_RES_TAC lem7 THEN FULL_SIMP_TAC (srw_ss()) [is_abbrev_tc_def, is_record_tc_def] THEN - FULL_SIMP_TAC (srw_ss()) [MAP_MAP] THEN METIS_TAC [PERM_MAP, PERM_SYM, MAP_MAP]])); - -val canon_val_fun = LIST_CONJ - [cv_var, cv_idx, cv_any, cv_fun, cv_tup, cv_int, cv_float, cv_char, cv_string, cv_bool, - cv_unit, cv_exn, cv_option, cv_list, cv_ref, cv_tcn]; - -val _ = save_thm ("canon_val_fun", canon_val_fun); - -end; - -val uprim_progress = Q.store_thm ("uprim_progress", -`!E uprim t1 t2 t3 S v. JTuprim E uprim t3 /\ JTeq E t3 (TE_arrow t1 t2) /\ JTe S E v t1 /\ - is_value_of_expr v ==> - (uprim = Uprim_raise) \/ ?e L. JRuprim uprim v L e`, -SRW_TAC [] [] THEN IMP_RES_TAC uprim_lem1 THEN SRW_TAC [] [] THEN -FULL_SIMP_TAC (srw_ss()) [is_abbrev_tc_def, teq_fun1] THEN -`JTe S E v t1'` by METIS_TAC [JTeq_rules, teq_thm] THEN -FULL_SIMP_TAC (srw_ss()) [JTuprim_cases] THEN -IMP_RES_TAC canon_val_fun THEN SRW_TAC [] [JRuprim_cases] THEN -METIS_TAC []); - -val eq_progress = Q.prove ( -`!E t1 t2 t3 S v1 v2. - ~is_abbrev_tc E t1 /\ ~is_abbrev_tc E t2 /\ - JTbprim E Bprim_equal (TE_arrow t1 (TE_arrow t2 t3)) /\ JTe S E v1 t1 /\ JTe S E v2 t2 /\ - is_value_of_expr v1 /\ is_value_of_expr v2 ==> - ?e L. JRbprim v1 Bprim_equal v2 L e`, -SRW_TAC [] [JTbprim_cases] THEN Cases_on `t1` THENL -[METIS_TAC [cv_var], - METIS_TAC [cv_idx], - METIS_TAC [cv_any], - `(?up. v1 = Expr_uprim up) \/ (?bp. v1 = Expr_bprim bp) \/ (?bp e'. v1 = Expr_apply (Expr_bprim bp) e') \/ - ?pm. v1 = Expr_function pm` by METIS_TAC [cv_fun] THEN - SRW_TAC [] [JRbprim_cases, funval_def] THEN FULL_SIMP_TAC list_ss [is_value_of_expr_def], - IMP_RES_TAC cv_tup THEN - SRW_TAC [ARITH_ss] [EXISTS_OR_THM, funval_def, ELIM_UNCURRY, JRbprim_cases] THEN - Q.EXISTS_TAC `MAP2 (\e1 e2. (e1, e2)) es' es` THEN - SRW_TAC [ARITH_ss] [MAP_MAP2, MAP2_IGNORE, MAP2_LENGTH, EVERY_MAP2, EVERY_MAP, MAP_I] THEN - FULL_SIMP_TAC list_ss [EVERY_MAP, is_value_of_expr_def, Eok_def], - Cases_on `t'` THEN FULL_SIMP_TAC list_ss [Eok_def, COND_EXPAND_EQ, LENGTH_NIL_ALT, LENGTH_1] THEN - SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [] THENL - [ALL_TAC, - IMP_RES_TAC cv_int THEN SRW_TAC [] [JRbprim_cases] THEN METIS_TAC [], - IMP_RES_TAC cv_char THEN SRW_TAC [] [JRbprim_cases] THEN METIS_TAC [], - IMP_RES_TAC cv_string THEN SRW_TAC [] [JRbprim_cases] THEN METIS_TAC [], - IMP_RES_TAC cv_float THEN SRW_TAC [] [JRbprim_cases] THEN METIS_TAC [], - IMP_RES_TAC cv_bool THEN FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [JRbprim_cases] THEN METIS_TAC [], - IMP_RES_TAC cv_unit THEN SRW_TAC [] [JRbprim_cases] THEN METIS_TAC [], - `(?c es tpo ts tc. ((v1 = Expr_construct (C_name c) es) /\ - (lookup E (name_cn c) = SOME (EB_pc c tpo (typexprs_inj ts) tc)) /\ - (LENGTH es = LENGTH ts)) \/ - (?c. v1 = Expr_constant (CONST_constr c)) \/ - ?e'. v1 = Expr_construct C_invalidargument [e']) /\ - (?c es tpo ts tc. ((v2 = Expr_construct (C_name c) es) /\ - (lookup E (name_cn c) = SOME (EB_pc c tpo (typexprs_inj ts) tc)) /\ - (LENGTH es = LENGTH ts)) \/ - (?c. v2 = Expr_constant (CONST_constr c)) \/ - ?e'. v2 = Expr_construct C_invalidargument [e'])` - by METIS_TAC [cv_exn] THEN - SRW_TAC [] [EXISTS_OR_THM, funval_def, ELIM_UNCURRY, JRbprim_cases] THEN - FULL_SIMP_TAC list_ss [is_value_of_expr_def, JTe_fun, ETA_THM] THEN - SRW_TAC [] [] THENL - [Cases_on `(c' = c)` THEN SRW_TAC [] [] THEN - Q.EXISTS_TAC `MAP2 (\t t'. (FST t, FST t')) e_t_list e_t_list'` THEN - `LENGTH e_t_list = LENGTH e_t_list'` by - METIS_TAC [LENGTH_MAP, SOME_11, environment_binding_11, typexprs_11] THEN - FULL_SIMP_TAC list_ss [MAP_MAP2, MAP2_IGNORE, MAP2_LENGTH, EVERY_MAP2, - EVERY_MAP, MAP_I], - METIS_TAC [], - Cases_on `e_t_list` THEN Cases_on `e_t_list'` THEN FULL_SIMP_TAC list_ss [] THEN - SRW_TAC [] [] THEN - Q.EXISTS_TAC `[(FST h, FST h')]` THEN SRW_TAC [] []], - IMP_RES_TAC cv_list THEN SRW_TAC [] [JRbprim_cases] THEN - FULL_SIMP_TAC list_ss [is_value_of_expr_def] THEN METIS_TAC [], - IMP_RES_TAC cv_option THEN SRW_TAC [] [EXISTS_OR_THM, funval_def, JRbprim_cases, ELIM_UNCURRY] THEN - FULL_SIMP_TAC list_ss [is_value_of_expr_def] THEN - Q.EXISTS_TAC `[(e'', e')]` THEN FULL_SIMP_TAC list_ss [], - IMP_RES_TAC cv_ref THEN SRW_TAC [] [JRbprim_cases] THEN METIS_TAC []] THEN - Cases_on `lookup E (name_tcn t'')` THEN FULL_SIMP_TAC (srw_ss()) [is_abbrev_tc_def] THEN - IMP_RES_TAC lookup_name_thm THEN FULL_SIMP_TAC (srw_ss()) [] THENL - [`((?c. v1 = Expr_constant (CONST_constr c)) \/ - ?c es tpo ts tc. (v1 = Expr_construct (C_name c) es) /\ - (lookup E (name_cn c) = SOME (EB_pc c tpo (typexprs_inj ts) tc)) /\ - (LENGTH es = LENGTH ts)) /\ - ((?c. v2 = Expr_constant (CONST_constr c)) \/ - ?c es tpo ts tc. (v2 = Expr_construct (C_name c) es) /\ - (lookup E (name_cn c) = SOME (EB_pc c tpo (typexprs_inj ts) tc)) /\ - (LENGTH es = LENGTH ts))` by METIS_TAC [cv_tcn] THEN - SRW_TAC [] [EXISTS_OR_THM, funval_def, ELIM_UNCURRY, JRbprim_cases] THEN - Cases_on `c' = c` THEN SRW_TAC [] [] THEN - FULL_SIMP_TAC list_ss [is_value_of_expr_def, ETA_THM] THEN - `LENGTH ts = LENGTH ts'` by METIS_TAC [LENGTH_MAP, SOME_11, environment_binding_11, typexprs_11] THEN - Q.EXISTS_TAC `MAP2 (\e e'. (e, e')) es es'` THEN - FULL_SIMP_TAC list_ss [is_value_of_expr_def, MAP_MAP2, MAP2_IGNORE, MAP2_LENGTH, EVERY_MAP2, - EVERY_MAP, MAP_I, ETA_THM], - IMP_RES_TAC cv_tcn THEN SRW_TAC [] [EXISTS_OR_THM, funval_def, JRbprim_cases] THEN - FULL_SIMP_TAC list_ss [JTe_fun, is_value_of_expr_def] THEN SRW_TAC [] [] THEN - FULL_SIMP_TAC list_ss [EVERY_MAP] THEN - MAP_EVERY Q.EXISTS_TAC [`MAP (\z. (FST z,FST (SND z))) field_name_e_t_list'`, - `MAP (\z. (FST z,FST (SND z))) field_name_e_t_list`] THEN - SRW_TAC [] [MAP_MAP, EVERY_MAP] THEN FULL_SIMP_TAC list_ss [MAP_MAP] THEN - `PERM (MAP field_to_fn (MAP (\z. F_name (FST z)) field_name_e_t_list)) - (MAP field_to_fn (MAP (\z. F_name (FST z)) field_name_e_t_list'))` by - METIS_TAC [PERM_SYM, PERM_TRANS, PERM_MAP] THEN - FULL_SIMP_TAC (srw_ss()) [MAP_MAP, field_to_fn_def]]]); - -val value_type_thm = Q.prove ( -`!S E e t. JTe S E e t /\ is_value_of_expr e ==> ?t'. ~is_abbrev_tc E t' /\ JTeq E t t'`, -Cases_on `e` THEN SRW_TAC [] [JTe_fun, is_value_of_expr_def] THENL -[Q.EXISTS_TAC `t'` THEN SRW_TAC [] [] THEN1 FULL_SIMP_TAC (srw_ss()) [JTuprim_cases, is_abbrev_tc_def] THEN - METIS_TAC [JTeq_rules, teq_ok_thm], - Q.EXISTS_TAC `t'` THEN SRW_TAC [] [] THEN1 FULL_SIMP_TAC (srw_ss()) [JTbprim_cases, is_abbrev_tc_def] THEN - METIS_TAC [JTeq_rules, teq_ok_thm], - Q.EXISTS_TAC `t'` THEN SRW_TAC [] [] THEN1 - FULL_SIMP_TAC (srw_ss()) [JTconst_cases, is_abbrev_tc_def, JTconstr_c_cases] THEN - METIS_TAC [JTeq_rules, teq_ok_thm], - Q.EXISTS_TAC `TE_tuple (MAP SND e_t_list)` THEN SRW_TAC [] [is_abbrev_tc_def] THEN - METIS_TAC [JTeq_rules], - Q.EXISTS_TAC `t'` THEN SRW_TAC [] [] THENL - [FULL_SIMP_TAC (srw_ss()) [JTconstr_p_cases, is_abbrev_tc_def] THEN - Cases_on `typeconstr` THEN FULL_SIMP_TAC (srw_ss()) [is_abbrev_tc_def] THEN - `Eok E` by METIS_TAC [teq_ok_thm, ok_ok_thm] THEN - IMP_RES_TAC lookup_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [EBok_def], - METIS_TAC [JTeq_rules, teq_ok_thm]], - Q.EXISTS_TAC `TE_constr [t'] TC_list` THEN SRW_TAC [] [is_abbrev_tc_def] THEN METIS_TAC [JTeq_rules], - Q.EXISTS_TAC `TE_constr t'_list (TC_name typeconstr_name)` THEN SRW_TAC [] [] THENL - [Cases_on `typeconstr_name` THEN FULL_SIMP_TAC (srw_ss()) [is_abbrev_tc_def] THEN - `Eok E` by METIS_TAC [teq_ok_thm, ok_ok_thm] THEN - IMP_RES_TAC lookup_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [EBok_def], - METIS_TAC [JTeq_rules]], - FULL_SIMP_TAC (srw_ss()) [JTe_fun] THEN IMP_RES_TAC bprim_lem1 THEN SRW_TAC [] [] THEN - Q.EXISTS_TAC `TE_arrow t2 t3` THEN SRW_TAC [] [] THEN - FULL_SIMP_TAC (srw_ss()) [is_abbrev_tc_def, teq_fun1] THEN - METIS_TAC [JTeq_rules, teq_ok_thm, teq_thm], - Q.EXISTS_TAC `TE_arrow t' t''` THEN SRW_TAC [] [is_abbrev_tc_def] THEN METIS_TAC [JTeq_rules], - Q.EXISTS_TAC `TE_constr [t'] TC_ref` THEN SRW_TAC [] [is_abbrev_tc_def] THEN METIS_TAC [JTeq_rules]]); - -val bprim_progress = Q.store_thm ("bprim_progress", -`!E bprim t1 t2 t3 t4 S v1 v2. - JTbprim E bprim t4 /\ JTeq E t4 (TE_arrow t1 (TE_arrow t2 t3)) /\ - JTe S E v1 t1 /\ JTe S E v2 t2 /\ is_value_of_expr v1 /\ is_value_of_expr v2 ==> - ?e L. JRbprim v1 bprim v2 L e`, -SRW_TAC [] [] THEN IMP_RES_TAC bprim_lem1 THEN SRW_TAC [] [] THEN -FULL_SIMP_TAC (srw_ss()) [is_abbrev_tc_def, teq_fun1] THEN -`JTe S E v1 t1'` by METIS_TAC [JTeq_rules, teq_thm] THEN -`JTe S E v2 t2'` by METIS_TAC [JTeq_rules, teq_thm] THEN -FULL_SIMP_TAC (srw_ss()) [JTbprim_cases] THEN SRW_TAC [] [] THEN1 - (IMP_RES_TAC value_type_thm THEN MATCH_MP_TAC eq_progress THEN SRW_TAC [] [JTbprim_cases] THEN - METIS_TAC [teq_thm, teq_ok_thm]) THEN -MAP_EVERY IMP_RES_TAC [cv_int, cv_ref] THEN SRW_TAC [] [JRbprim_cases] THEN -METIS_TAC []); - -val JMmatch_val_subst_thm = Q.store_thm ("JMmatch_val_subst_thm", -`!e p s. JM_match e p s ==> ?l. (s = substs_x_xs l) /\ EVERY (\xv. is_value_of_expr (SND xv)) l`, -RULE_INDUCT_TAC JM_match_ind [MAP_MAP, ELIM_UNCURRY] [] THEN SRW_TAC [] [] THEN -FULL_SIMP_TAC list_ss [EVERY_MEM, MEM_FLAT, EXISTS_MAP, EXISTS_MEM] THEN SRW_TAC [] [] THEN -Cases_on `x` THEN Cases_on `r` THEN Cases_on `r'` THEN FULL_SIMP_TAC list_ss [substs_x_case_def] THEN -RES_TAC THEN FULL_SIMP_TAC list_ss [substs_x_11] THEN FULL_SIMP_TAC list_ss [substs_x_case_def]); - -local - -val LRB_lem1 = Q.prove ( -`!lrbs f g h x z. (f (case lrbs of LRB_simple x y -> g x y) = case lrbs of LRB_simple x y -> f (g x y)) /\ - (((case lrbs of LRB_simple x y -> h x y) z) = (case lrbs of LRB_simple x y -> h x y z))`, -Cases THEN SRW_TAC [] []); - -val LRB_lem2 = Q.prove ( -`!lrbs f. (case lrbs of LRB_simple vn pm -> case lrbs of LRB_simple vn' pm' -> f vn pm vn' pm') = - (case lrbs of LRB_simple vn pm -> f vn pm vn pm)`, -Cases THEN SRW_TAC [] []); - -val LRB_lem3 = Q.prove ( -`!lrbs f. (case lrbs of LRB_simple vn pm -> LRB_simple vn pm) = lrbs`, -Cases THEN SRW_TAC [] []); - -in - -val e_progress_thm = Q.prove ( -`(!S E e t. JTe S E e t ==> closed_env E ==> JRB_ebehaviour e) /\ - (!S E pm t1 t2. JTpat_matching S E pm t1 t2 ==> T) /\ - (!S E lb E'. JTlet_binding S E lb E' ==> closed_env E ==> ?p e. (lb = LB_simple p e) /\ JRB_ebehaviour e) /\ - (!S E lrb E'. JTletrec_binding S E lrb E' ==> T)`, -RULE_INDUCT_TAC JTe_sind [JRB_ebehaviour_cases, JR_expr_fun, is_value_of_expr_def] -[([``"JTe_ident"``], METIS_TAC [closed_env_lem]), - ([``"JTe_cons"``, ``"JTe_sequence"``], METIS_TAC []), - ([``"JTe_ifthenelse"``, ``"JTe_assert"``], METIS_TAC [cv_bool]), - ([``"JTe_let_mono"``, ``"JTe_let_poly"``], - METIS_TAC [MAP_REVERSE, closed_env_tv_lem, JMmatch_val_subst_thm, JM_matchP_thm]), - ([``"JTe_try"``], METIS_TAC [pattern_matching_nchotomy]), - ([``"JTe_apply"``], - SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [] THEN1 - (IMP_RES_TAC cv_fun THEN SRW_TAC [] [] THEN - FULL_SIMP_TAC (srw_ss()) [JTe_fun, is_value_of_expr_def] THEN - METIS_TAC [uprim_progress, bprim_progress]) - THEN METIS_TAC []), - ([``"JTe_record_proj"``], - SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [JTfield_cases] THENL - [SRW_TAC [] [] THEN `Eok E` by METIS_TAC [inst_named_ok_thm, ok_ok_thm] THEN - IMP_RES_TAC lookup_ok_thm THEN FULL_SIMP_TAC list_ss [EBok_def] THEN - IMP_RES_TAC cv_tcn THEN SRW_TAC [] [] THEN - IMP_RES_TAC PERM_MEM_EQ THEN - FULL_SIMP_TAC list_ss [is_value_of_expr_def, EVERY_MEM, LAMBDA_PROD2] THEN - `?l1 l2 y. (fes = l1 ++ [(F_name field_name,y)] ++ l2) /\ ~MEM (F_name field_name) (MAP FST l1)` by - METIS_TAC [MEM_SPLIT_FIRST, MEM_MAP] THEN - SRW_TAC [] [EXISTS_OR_THM] THEN DISJ2_TAC THEN - MAP_EVERY Q.EXISTS_TAC - [`y`, - `MAP (\z. (field_to_fn (FST z), SND z)) l2`, - `MAP (\z. (field_to_fn (FST z), SND z)) l1`] THEN - SRW_TAC [] [MAP_MAP, field_to_fn_thm, MAP_I] THEN - FULL_SIMP_TAC list_ss [MEM_MAP, MEM_APPEND] THEN1 METIS_TAC [SND] THEN - Cases THEN SRW_TAC [] [] THEN Cases_on `q` THEN SRW_TAC [] [field_to_fn_def] THEN - METIS_TAC [FST], - METIS_TAC [], - METIS_TAC []]), - ([``"JTe_for"``], - SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [] THEN IMP_RES_TAC cv_int THEN SRW_TAC [] [] THEN1 - (Cases_on `for_dirn` THEN - SRW_TAC [] [EXISTS_OR_THM, integerTheory.NUM_OF_INT, - integer_wordTheory.i2w_def, EVAL ``1:int<0``] THEN - Cases_on `n'<=n` THEN SRW_TAC [] [] THEN - FULL_SIMP_TAC list_ss [WORD_NOT_LESS_EQUAL, WORD_GREATER] THEN METIS_TAC [WORD_LESS_CASES]) - THEN METIS_TAC []), - ([``"JTe_letrec"``], - SRW_TAC [] [] THEN - Q.EXISTS_TAC `MAP (\lrbs. case lrbs of LRB_simple vn pm -> (vn, recfun lrb pm, pm)) (lrbs_to_lrblist lrb)` - THEN - SRW_TAC [] [MAP_MAP, letrec_binding_nchotomy, EVERY_MAP, LRB_lem1, LRB_lem2, LRB_lem3, - MAP_I, lrbs_to_lrblist_thm, EVERY_MEM] THEN Cases_on `lrbs` THEN SRW_TAC [] []), - ([``"JTe_match"``], - SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [JRmatching_step_cases, JRmatching_success_cases] THENL - [Cases_on `pm` THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [JTe_fun, EXISTS_OR_THM] THEN - SRW_TAC [] [] THEN Cases_on `pattern_e_E_list` THEN FULL_SIMP_TAC (srw_ss()) [] THEN - Cases_on `~JM_matchP e (FST h)` THEN SRW_TAC [] [] THENL - [Cases_on `t'` THEN FULL_SIMP_TAC list_ss [] THEN NTAC 2 DISJ2_TAC THEN DISJ1_TAC THEN - Q.EXISTS_TAC `(FST h', FST (SND h'))::MAP (\x. (FST x, FST (SND x))) t''` THEN - SRW_TAC [ARITH_ss] [MAP_MAP], - FULL_SIMP_TAC list_ss [JM_matchP_thm] THEN NTAC 2 DISJ2_TAC THEN - Q.EXISTS_TAC `s` THEN SRW_TAC [] [] THEN - IMP_RES_TAC JM_match_is_val_thm THEN FULL_SIMP_TAC (srw_ss()) [EVERY_MAP] THEN - Q.EXISTS_TAC `MAP (\(a,b,c). (a,b)) t'` THEN SRW_TAC [] [LAMBDA_PROD2, MAP_MAP]], - METIS_TAC [], - METIS_TAC []]), - ([``"JTe_tuple"``, ``"JTe_construct"``], - SRW_TAC [] [] THEN - FULL_SIMP_TAC list_ss [EVERY_MAP] THEN Cases_on `EXISTS (\x. ~is_value_of_expr (FST x)) e_t_list` THEN - FULL_SIMP_TAC list_ss [o_DEF] THEN IMP_RES_TAC EXISTS_LAST_SPLIT THEN - FULL_SIMP_TAC list_ss [o_DEF] THEN - METIS_TAC [EVERY_MAP]), - ([``"JTe_record_constr"``], - SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [EVERY_MAP] THEN - Cases_on `EVERY (\z. is_value_of_expr (FST (SND z))) field_name_e_t_list` THEN - FULL_SIMP_TAC list_ss [o_DEF] THEN IMP_RES_TAC EXISTS_LAST_SPLIT THEN - FULL_SIMP_TAC list_ss [o_DEF] THEN SRW_TAC [] [EXISTS_OR_THM] THENL - [DISJ1_TAC THEN - MAP_EVERY Q.EXISTS_TAC [`L`, `MAP (\x. (FST x, FST (SND x))) l2`, `MAP (\x. (FST x, FST (SND x))) l1`, - `FST y`, `FST (SND y)`, `e'`] THEN - SRW_TAC [] [MAP_MAP, EVERY_MAP], - DISJ2_TAC THEN - MAP_EVERY Q.EXISTS_TAC [`MAP (\x. (FST x, FST (SND x))) l2`, `MAP (\x. (FST x, FST (SND x))) l1`, - `FST y`, `v`] THEN - SRW_TAC [] [MAP_MAP, EVERY_MAP]]), - ([``"JTe_record_with"``], - SRW_TAC [] [] THEN Cases_on `~is_value_of_expr e` THEN SRW_TAC [] [] THEN1 - (FULL_SIMP_TAC list_ss [EXISTS_OR_THM] THEN SRW_TAC [] [] THENL - [DISJ1_TAC THEN MAP_EVERY Q.EXISTS_TAC [`L`, `MAP (\x. (FST x, FST (SND x))) field_name_e_t_list`, - `e'`] THEN - SRW_TAC [] [MAP_MAP, EVERY_MAP], - DISJ2_TAC THEN Q.EXISTS_TAC `MAP (\x. (FST x, FST (SND x))) field_name_e_t_list` THEN - SRW_TAC [] [MAP_MAP, EVERY_MAP]]) - THEN - Cases_on `EXISTS (\x. ~is_value_of_expr (FST (SND x))) field_name_e_t_list` THEN1 - (Q.PAT_ASSUM `closed_env E ==> P` (K ALL_TAC) THEN - FULL_SIMP_TAC list_ss [o_DEF] THEN SRW_TAC [] [EXISTS_OR_THM] THEN - IMP_RES_TAC EXISTS_LAST_SPLIT THEN FULL_SIMP_TAC list_ss [o_DEF] THEN SRW_TAC [] [] THENL - [DISJ1_TAC THEN - MAP_EVERY Q.EXISTS_TAC [`L`, `MAP (\x. (FST x, FST (SND x))) l2`, - `MAP (\x. (FST x, FST (SND x))) l1`, `FST y`, `FST (SND y)`, `e'`] THEN - SRW_TAC [] [MAP_MAP, EVERY_MAP], - DISJ2_TAC THEN DISJ1_TAC THEN - MAP_EVERY Q.EXISTS_TAC [`MAP (\x. (FST x, FST (SND x))) l2`, - `MAP (\x. (FST x, FST (SND x))) l1`, `FST y`, `v`] THEN - SRW_TAC [] [MAP_MAP, EVERY_MAP]]) - THEN - FULL_SIMP_TAC list_ss [o_DEF] THEN SRW_TAC [] [EXISTS_OR_THM] THEN - NTAC 4 DISJ2_TAC THEN - Cases_on `field_name_e_t_list` THEN FULL_SIMP_TAC list_ss [] THEN - FULL_SIMP_TAC list_ss [JTfield_cases] THEN - `Eok E` by METIS_TAC [inst_named_ok_thm, ok_ok_thm] THEN SRW_TAC [] [] THEN - IMP_RES_TAC lookup_ok_thm THEN FULL_SIMP_TAC list_ss [EBok_def] THEN - IMP_RES_TAC cv_tcn THEN SRW_TAC [] [] THEN - IMP_RES_TAC PERM_MEM_EQ THEN - FULL_SIMP_TAC list_ss [is_value_of_expr_def, EVERY_MEM, LAMBDA_PROD2] THEN - `?l1 l2 y. (fes = l1 ++ [(F_name (FST h),y)] ++ l2) /\ ~MEM (F_name (FST h)) (MAP FST l1)` by - METIS_TAC [MEM_SPLIT_FIRST, MEM_MAP] THEN - SRW_TAC [] [] THEN Cases_on `t'` THEN FULL_SIMP_TAC list_ss [is_value_of_expr_def] THEN SRW_TAC [] [] THENL - [MAP_EVERY Q.EXISTS_TAC [`MAP (\z. (field_to_fn (FST z), SND z)) l2`, - `MAP (\z. (field_to_fn (FST z), SND z)) l1`, - `y`] THEN - SRW_TAC [] [MAP_MAP, field_to_fn_thm, MAP_I] THEN - FULL_SIMP_TAC list_ss [MEM_MAP, MEM_APPEND] THEN1 METIS_TAC [SND] THEN - Cases THEN SRW_TAC [] [] THEN Cases_on `q` THEN SRW_TAC [] [field_to_fn_def] THEN - METIS_TAC [FST], - MAP_EVERY Q.EXISTS_TAC [`(FST h', FST (SND h'))::MAP (\z. (FST z,FST (SND z))) t''`, - `MAP (\z. (field_to_fn (FST z), SND z)) l2`, - `MAP (\z. (field_to_fn (FST z), SND z)) l1`, - `y`] THEN - SRW_TAC [] [MAP_MAP, field_to_fn_thm, MAP_I] THEN - FULL_SIMP_TAC list_ss [MEM_MAP, MEM_APPEND] THEN1 - METIS_TAC [SND] THEN - Cases THEN SRW_TAC [] [] THEN Cases_on `q` THEN SRW_TAC [] [field_to_fn_def] THEN - METIS_TAC [FST]])]); - -end; - -val e_progress_thm = save_thm ("e_progress_thm", SIMP_RULE list_ss [GSYM RIGHT_FORALL_IMP_THM, AND_IMP_INTRO] - e_progress_thm); - - -local - -val lem1 = Q.prove ( -`!st. ?l:num. !l' v. (list_assoc l' st = SOME v) ==> (l' < l)`, -Induct THEN SRW_TAC [] [list_assoc_def] THEN Cases_on `h` THEN -SRW_TAC [] [list_assoc_def, COND_EXPAND_EQ] THEN Q.EXISTS_TAC `l+q+1` THEN SRW_TAC [] [] THEN -RES_TAC THEN DECIDE_TAC); - -in - -val fresh_alloc = Q.prove ( -`!st. ?l:num. !v. ~(list_assoc l st = SOME v)`, -METIS_TAC [DECIDE ``!x:num. ~(x !st. - (!l. MEM l (fl_expr v) ==> ?v. (list_assoc l st = SOME v) /\ is_value_of_expr v) ==> - ?L' st' e'. JRuprim up v L' e' /\ JRstore st L' st'`, -RULE_INDUCT_TAC JRuprim_ind [JRstore_cases, JRuprim_cases, fl_letrec_binding_def] -[] THEN METIS_TAC [fresh_alloc]); - -val bprim_store_progress_thm = Q.prove ( -`!v1 bp v2 L e. JRbprim v1 bp v2 L e ==> !st. - (!l. (MEM l (fl_expr v1) \/ MEM l (fl_expr v2)) ==> - ?v. (list_assoc l st = SOME v) /\ is_value_of_expr v) ==> - ?L' st' e'. JRbprim v1 bp v2 L' e' /\ JRstore st L' st'`, -RULE_INDUCT_TAC JRbprim_ind [JRstore_cases, JRbprim_cases, fl_letrec_binding_def] -[([``"Jbprim_equal_fun"``], - Cases_on `v1` THEN FULL_SIMP_TAC list_ss [funval_def] THEN SRW_TAC [] [] THEN METIS_TAC []), - ([``"Jbprim_assign"``], - SRW_TAC [] [list_assoc_split] THEN - POP_ASSUM (MP_TAC o Q.SPEC `l`) THEN SRW_TAC [] [] THEN - MAP_EVERY Q.EXISTS_TAC [`l2`, `v`, `l1`] THEN SRW_TAC [] [] THEN1 METIS_TAC [APPEND_ASSOC, APPEND] THEN - CCONTR_TAC THEN FULL_SIMP_TAC list_ss [])] - THEN METIS_TAC []); - -val e_store_progress_thm = Q.prove ( -`!e L e'. JR_expr e L e' ==> !st. - (!l. MEM l (fl_expr e) ==> ?v. (list_assoc l st = SOME v) /\ is_value_of_expr v) ==> - ?L' st' e'. JR_expr e L' e' /\ JRstore st L' st'`, -RULE_INDUCT_TAC JR_expr_ind [JR_expr_fun, fl_letrec_binding_def, is_value_of_expr_def] -[([``"JR_expr_uprim"``, ``"JR_expr_bprim"``], - METIS_TAC [uprim_store_progress_thm, bprim_store_progress_thm]), - ([``"JR_expr_apply_ctx_arg"``, ``"JR_expr_apply_ctx_fun"``, ``"JR_expr_let_ctx"``, - ``"JR_expr_sequence_ctx_left"``, ``"JR_expr_ifthenelse_ctx"``, ``"JR_expr_match_ctx"``, - ``"JR_expr_for_ctx1"``, ``"JR_expr_for_ctx2"``, ``"JR_expr_try_ctx"``, ``"JR_expr_cons_ctx1"``, - ``"JR_expr_cons_ctx2"``, ``"JR_expr_record_with_ctx2"``, ``"JR_expr_record_access_ctx"``, - ``"JR_expr_assert_ctx"``], - METIS_TAC []), - ([``"JR_expr_tuple_ctx"``, ``"JR_expr_constr_ctx"``, ``"JR_expr_record_ctx"``, ``"JR_expr_record_with_ctx1"``], - SRW_TAC [] [MEM_FLAT, EXISTS_MAP] THEN METIS_TAC [])] -THEN -SRW_TAC [] [JRstore_cases] THEN METIS_TAC []); - -val e_store_progress_thm = - save_thm ("e_store_progress_thm", SIMP_RULE list_ss [GSYM RIGHT_FORALL_IMP_THM, AND_IMP_INTRO] - e_store_progress_thm); - -local - -val lem1 = Q.prove ( -`!E l. value_env E ==> ~MEM (name_l l) (MAP domEB E)`, -Induct THEN SRW_TAC [] [value_env_def, domEB_def] THEN -Cases_on `h` THEN FULL_SIMP_TAC list_ss [value_env_def, domEB_def] THEN SRW_TAC [] []); - -in - -val env_fl_thm = Q.store_thm ("env_fl_thm", -`(!S E e t. JTe S E e t ==> !x. MEM x (fl_expr e) ==> MEM (name_l x) (MAP domEB E)) /\ - (!S E pm t t'. JTpat_matching S E pm t t' ==> - !x. MEM x (fl_pattern_matching pm) ==> MEM (name_l x) (MAP domEB E)) /\ - (!S E lb E'. JTlet_binding S E lb E' ==> - !x. MEM x (fl_let_binding lb) ==> MEM (name_l x) (MAP domEB E)) /\ - (!S E lrbs E'. JTletrec_binding S E lrbs E' ==> - !x. MEM x (fl_letrec_bindings lrbs) ==> MEM (name_l x) (MAP domEB E))`, -RULE_INDUCT_TAC JTe_sind [fl_letrec_binding_def, EVERY_MEM, MEM_FLAT, EXISTS_MAP, EXISTS_MEM, domEB_def, - MAP_REVERSE, MAP_MAP] -[([``"JTe_let_mono"``, ``"JTe_let_poly"``, ``"JTe_letrec"``, ``"JTletrec_binding_equal_function"``], - SRW_TAC [] [MEM_MAP] THEN METIS_TAC []), - ([``"JTe_location"``], - METIS_TAC [lookup_dom_thm]), - ([``"JTpat_matching_pm"``], - SRW_TAC [] [] THEN RES_TAC THEN IMP_RES_TAC pat_env_lem THEN METIS_TAC [lem1])] -THEN METIS_TAC []); - -end; - - -val _= export_theory(); - diff --git a/vendors/ott/examples/ocaml_light/hol/reduction_funScript.sml b/vendors/ott/examples/ocaml_light/hol/reduction_funScript.sml deleted file mode 100644 index 9b77bdd24791..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/reduction_funScript.sml +++ /dev/null @@ -1,1046 +0,0 @@ -open bossLib HolKernel boolLib listTheory rich_listTheory optionTheory combinTheory arithmeticTheory pairTheory; -open sortingTheory wordsTheory; -open ottTheory ottLib caml_typedefTheory; -open utilTheory basicTheory matching_funTheory; - -val _ = new_theory "reduction_fun"; - -val UNZIP_LEM = Q.prove ( -`!l1 l2 l3. (UNZIP l1 = (l2, l3)) = (l2 = MAP FST l1) /\ (l3 = MAP SND l1)`, -Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN SRW_TAC [] [] THEN Cases_on `l3` THEN SRW_TAC [] [] THEN -METIS_TAC [FST, SND]); - -val ZIP_LEM = Q.prove ( -`!l1 l2 l3 x. (MAP SND l1 = l2++x::l3) = ?l2' x' l3'. (LENGTH l2' = LENGTH l2) /\ (LENGTH l3' = LENGTH l3) /\ - (l1 = ZIP (l2', l2) ++ (x',x) :: ZIP (l3', l3))`, -Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN SRW_TAC [] [] THEN EQ_TAC THEN SRW_TAC [] [] THENL -[Q.EXISTS_TAC `[]` THEN SRW_TAC [] [] THEN Cases_on `h` THEN SRW_TAC [] [] THEN - Q.EXISTS_TAC `MAP FST l1` THEN SRW_TAC [] [ZIP_MAP_ID], - Cases_on `l2'` THEN FULL_SIMP_TAC list_ss [], - Cases_on `l2'` THEN FULL_SIMP_TAC list_ss [MAP_SND_ZIP], - FULL_SIMP_TAC list_ss [MAP_SND_ZIP] THEN - Q.PAT_ASSUM `!l2 l3'' x''. (t ++ x::l3 = l2 ++ x''::l3'') = P l2 l3'' x''` - (MP_TAC o Q.SPECL [`t`, `l3`, `x`]) THEN - SRW_TAC [] [] THEN Q.EXISTS_TAC `FST h::l2''` THEN SRW_TAC [] [] THEN METIS_TAC [], - Cases_on `l2'` THEN FULL_SIMP_TAC list_ss [], - Cases_on `l2'` THEN FULL_SIMP_TAC list_ss [] THEN METIS_TAC []]); - - -val is_raise_def = Define -`(is_raise (Expr_apply expr1 expr2) = (expr1 = Expr_uprim Uprim_raise) /\ is_value_of_expr expr2) /\ - (is_raise _ = F)`; - -val value_not_raise_thm = Q.store_thm ("value_not_raise_thm", -`!e. (is_value_of_expr e ==> ~is_raise e) /\ (is_raise e ==> ~is_value_of_expr e)`, -recInduct is_value_of_expr_ind THEN SRW_TAC [] [is_value_of_expr_def, is_raise_def]); - -val _ = Hol_datatype -`result = Stuck - | Step of 'a - | StepAlloc of (expr -> 'a) => expr - | StepLookup of (expr -> 'a) => location - | StepAssign of 'a => location => expr`; - -val result_map_def = Define -`(result_map f Stuck = Stuck) /\ - (result_map f (Step expr) = Step (f expr)) /\ - (result_map f (StepAlloc get_result alloc_expr) = - StepAlloc (\l. f (get_result l)) alloc_expr) /\ - (result_map f (StepLookup get_result lookup_lab) = - StepLookup (\e. f (get_result e)) lookup_lab) /\ - (result_map f (StepAssign result_expr assign_lab assign_expr) = - StepAssign (f result_expr) assign_lab assign_expr)`; - -val interp_result_def = Define -`(interp_result (Step e) l = if l = Lab_nil then SOME e else NONE) /\ - (interp_result (StepAlloc get_result alloc_expr1) (Lab_alloc alloc_expr2 new_loc) = - if alloc_expr1 = alloc_expr2 then - SOME (get_result (Expr_location new_loc)) - else - NONE) /\ - (interp_result (StepLookup get_result lookup_lab1) (Lab_deref lookup_lab2 result_expr) = - if is_value_of_expr result_expr /\ (lookup_lab1 = lookup_lab2) then - SOME (get_result result_expr) - else - NONE) /\ - (interp_result (StepAssign result assign_loc1 assign_expr1) (Lab_assign assign_loc2 assign_expr2) = - if (assign_loc1 = assign_loc2) /\ (assign_expr1 = assign_expr2) then - SOME result - else - NONE) /\ - (interp_result _ _ = NONE)`; - -val eval_uprim_def = Define -`(eval_uprim Uprim_not v = - if v = Expr_constant (CONST_true) then - Step (Expr_constant (CONST_false)) - else if v = Expr_constant (CONST_false) then - Step (Expr_constant (CONST_true)) - else Stuck) /\ - (eval_uprim Uprim_minus v = - case v of - Expr_constant (CONST_int n) -> Step (Expr_constant (CONST_int (0w - n))) - || _ -> Stuck) /\ - (eval_uprim Uprim_ref v = - StepAlloc (\e. e) v) /\ - (eval_uprim Uprim_deref v = - case v of - Expr_location l -> StepLookup (\e. e) l - || _ -> Stuck) /\ - (eval_uprim Uprim_raise v = - Stuck)`; - -val b_int_primop_def = Define -`b_int_primop oper v1 v2 = - case v1 of - Expr_constant (CONST_int n1) -> - (case v2 of - Expr_constant (CONST_int n2) -> - Step (Expr_constant (CONST_int (oper n1 n2))) - || _ -> Stuck) - || _ -> Stuck`; - -val is_const_constr_def = Define -`(is_const_constr (CONST_constr _) = T) /\ - (is_const_constr _ = F)`; - -val non_funval_equal_def = Define -`(non_funval_equal (Expr_constant c) (Expr_constant c') = - if c = c' then - Step (Expr_constant CONST_true) - else - Step (Expr_constant CONST_false)) /\ - (non_funval_equal (Expr_location l) (Expr_location l') = - Step (Expr_apply (Expr_apply (Expr_bprim Bprim_equal) - (Expr_apply (Expr_uprim Uprim_deref) (Expr_location l))) - (Expr_apply (Expr_uprim Uprim_deref) (Expr_location l')))) /\ - (non_funval_equal (Expr_cons v1 v2) (Expr_cons v1' v2') = - Step (Expr_and (Expr_apply (Expr_apply (Expr_bprim Bprim_equal) v1) v1') - (Expr_apply (Expr_apply (Expr_bprim Bprim_equal) v2) v2'))) /\ - (non_funval_equal (Expr_cons v1 v2) (Expr_constant const) = - if (const = CONST_nil) then - Step (Expr_constant CONST_false) - else - Stuck) /\ - (non_funval_equal (Expr_constant const) (Expr_cons v1' v2') = - if const = CONST_nil then - Step (Expr_constant CONST_false) - else - Stuck) /\ - (non_funval_equal (Expr_tuple vs) (Expr_tuple vs') = - if ~(LENGTH vs >= 2) \/ ~(LENGTH vs = LENGTH vs') then - Stuck - else - Step (FOLDR Expr_and - (Expr_constant CONST_true) - (MAP2 (\v v'. Expr_apply (Expr_apply (Expr_bprim Bprim_equal) v) v') vs vs'))) /\ - (non_funval_equal (Expr_construct ctor vs) (Expr_construct ctor' vs') = - if ~(ctor = ctor') then - Step (Expr_constant CONST_false) - else if ~(LENGTH vs = LENGTH vs') then - Stuck - else - Step (FOLDR Expr_and - (Expr_constant CONST_true) - (MAP2 (\v v'. Expr_apply (Expr_apply (Expr_bprim Bprim_equal) v) v') vs vs'))) /\ - (non_funval_equal (Expr_construct ctor vs) (Expr_constant const) = - if is_const_constr const then - Step (Expr_constant CONST_false) - else - Stuck) /\ - (non_funval_equal (Expr_constant const) (Expr_construct ctor' vs') = - if is_const_constr const then - Step (Expr_constant CONST_false) - else - Stuck) /\ - (non_funval_equal (Expr_record field_exprs) (Expr_record field_exprs') = - if ~(PERM (MAP (\x. field_to_fn (FST x)) field_exprs) - (MAP (\x. field_to_fn (FST x)) field_exprs')) then - Stuck - else - Step (FOLDR Expr_and (Expr_constant CONST_true) - (MAP (\(field, v). - Expr_apply (Expr_apply (Expr_bprim Bprim_equal) v) - (Expr_field (Expr_record field_exprs') field)) - field_exprs))) /\ - (non_funval_equal _ _ = Stuck)`; - -val eval_bprim_def = Define -`(eval_bprim Bprim_equal v1 v2 = - if funval v1 then - Step (Expr_apply (Expr_uprim Uprim_raise) - (Expr_construct C_invalidargument - [Expr_constant (CONST_string "equal: functional value")])) - else - non_funval_equal v1 v2) /\ - (eval_bprim Bprim_plus v1 v2 = b_int_primop $+ v1 v2) /\ - (eval_bprim Bprim_minus v1 v2 = b_int_primop $- v1 v2) /\ - (eval_bprim Bprim_times v1 v2 = b_int_primop $* v1 v2) /\ - (eval_bprim Bprim_div v1 v2 = - if v2 = Expr_constant (CONST_int 0w) then - case v1 of - Expr_constant (CONST_int n) -> - Step (Expr_apply (Expr_uprim Uprim_raise) (Expr_constant (CONST_constr C_div_by_0))) - || _ -> Stuck - else - b_int_primop $/ v1 v2) /\ - (eval_bprim Bprim_assign v1 v2 = - case v1 of - Expr_location l -> StepAssign (Expr_constant CONST_unit) l v2 - || _ -> Stuck)`; - -val do_1override_def = Define -`(do_1override fn1 v1 [] = NONE) /\ - (do_1override fn1 v1 ((fn2,v2)::record) = - if fn1 = fn2 then - SOME ((fn1, v1)::record) - else - OPTION_MAP (\r. (fn2, v2)::r) (do_1override fn1 v1 record))`; - -val eval_override_def = Define -`(eval_override v [] [] = Stuck) /\ - (eval_override v1 [fn1] [v] = - case v1 of - Expr_record fn_expr_list -> - (case do_1override fn1 v fn_expr_list of - NONE -> Stuck - || SOME x -> Step (Expr_record x)) - || _ -> Stuck) /\ - (eval_override v1 (fn1::foverrides) (v::voverrides) = - case v1 of - Expr_record fn_expr_list -> - (case do_1override fn1 v fn_expr_list of - NONE -> Stuck - || SOME x -> Step (Expr_override (Expr_record x) (ZIP (foverrides, voverrides)))) - || _ -> Stuck)`; - - -val eval_apply_def = Define -`eval_apply v1 v2 = - case v1 of - Expr_uprim up -> eval_uprim up v2 - || Expr_function pm -> Step (Expr_match v2 pm) - || Expr_apply v3 v4 -> - (case v3 of - Expr_bprim bp -> eval_bprim bp v4 v2 - || _ -> Stuck) - || _ -> Stuck`; - -val eval_field_def = Define -`eval_field field v = - case v of - Expr_record fn_expr_list -> - (case list_assoc field fn_expr_list of - SOME x -> Step x - || NONE -> Stuck) - || _ -> Stuck`; - -val eval_ite_def = Define -`eval_ite expr2 expr3 v1 = - if v1 = Expr_constant CONST_true then - Step expr2 - else if v1 = Expr_constant CONST_false then - Step expr3 - else - Stuck`; - -val eval_while_def = Define -`eval_while e1 e2 = - Step (Expr_ifthenelse e1 (Expr_sequence e2 (Expr_while e1 e2)) (Expr_constant CONST_unit))`; - -val eval_for_def = Define -`eval_for x for_dirn expr3 v2 v1 = - case v1 of - Expr_constant (CONST_int n1) -> - (case v2 of - Expr_constant (CONST_int n2) -> - (case for_dirn of - FD_upto -> - if n1 <= n2 then - Step (Expr_sequence (Expr_let (LB_simple (P_var x) v1) expr3) - (Expr_for x (Expr_constant (CONST_int (n1 + 1w))) for_dirn v2 - expr3)) - else - Step (Expr_constant CONST_unit) - || FD_downto -> - if n2 <= n1 then - Step (Expr_sequence (Expr_let (LB_simple (P_var x) v1) expr3) - (Expr_for x (Expr_constant (CONST_int (n1 - 1w))) for_dirn v2 - expr3)) - else - Step (Expr_constant CONST_unit)) - || _ -> Stuck) - || _ -> Stuck`; - -val eval_match_def = Define -`(eval_match (PM_pm []) v = Stuck) /\ - (eval_match (PM_pm [PE_inj p e]) v = - Step (case pat_match p v of - NONE -> Expr_apply (Expr_uprim Uprim_raise) (Expr_constant (CONST_constr C_matchfailure)) - || SOME substs -> substs_value_name_expr substs e)) /\ - (eval_match (PM_pm (PE_inj p e::pelist)) v = - Step (case pat_match p v of - NONE -> Expr_match v (PM_pm pelist) - || SOME substs -> substs_value_name_expr substs e))`; - - -val eval_try_def = Define -`eval_try expr pattern_matching = - case expr of - Expr_apply e1 e2 -> - if e1 = Expr_uprim Uprim_raise then - (case pattern_matching of - PM_pm pe_list -> Step (Expr_match e2 (PM_pm (pe_list ++ [PE_inj P_any expr])))) - else - Stuck - || _ -> Stuck`; - -val eval_let_def = Define -`eval_let pattern expr2 v1 = - Step (case pat_match pattern v1 of - SOME substs -> substs_value_name_expr substs expr2 - || NONE -> Expr_apply (Expr_uprim Uprim_raise) (Expr_constant (CONST_constr C_matchfailure)))`; - -val eval_letrec_def = Define -`eval_letrec letrec_bindings expr = - Step (substs_value_name_expr (MAP (\lb. (case lb of LRB_simple vn pm -> (vn, recfun letrec_bindings pm))) - (lrbs_to_lrblist letrec_bindings)) expr)`; - -val eval_assert_def = Define -`eval_assert v = - if v = Expr_constant CONST_true then - Step (Expr_constant CONST_unit) - else if v = Expr_constant CONST_false then - Step (Expr_apply (Expr_uprim Uprim_raise) (Expr_constant (CONST_constr C_assertfailure))) - else - Stuck`; - -local - -val lem1 = Q.prove ( -`!exprs1 exprs2. letrec_binding4_size (exprs1 ++ exprs2) = - letrec_binding4_size exprs1 + letrec_binding4_size exprs2`, -Induct THEN SRW_TAC [] [letrec_binding_size_def] THEN DECIDE_TAC); - -val lem2 = Q.prove ( -`!exprs. letrec_binding4_size (REVERSE exprs) = letrec_binding4_size exprs`, -Induct THEN SRW_TAC [] [letrec_binding_size_def, lem1] THEN DECIDE_TAC); - -val lem3 = Q.prove ( -`!field_exprs exprs fields. ((fields,exprs) = UNZIP field_exprs) ==> - letrec_binding4_size exprs <= letrec_binding3_size field_exprs`, -Induct THEN SRW_TAC [] [letrec_binding_size_def] THEN Cases_on `UNZIP field_exprs` THEN -SRW_TAC [] [] THEN Cases_on `h` THEN SRW_TAC [] [letrec_binding_size_def] THEN DECIDE_TAC); - -in - -val red_def = tDefine "red" -`(red (Expr_uprim unary_prim) = Stuck) /\ - (red (Expr_bprim binary_prim) = Stuck) /\ - (red (Expr_ident value_name) = Stuck) /\ - (red (Expr_constant constant) = Stuck) /\ - (red (Expr_typed expr typexpr) = Step expr) /\ - (red (Expr_tuple exprs) = red_list (REVERSE exprs) Expr_tuple (\v. Stuck) []) /\ - (red (Expr_construct constr exprs) = red_list (REVERSE exprs) (Expr_construct constr) (\x. Stuck) []) /\ - (red (Expr_cons expr1 expr2) = red_2 expr1 expr2 Expr_cons (\v1 v2. Stuck)) /\ - (red (Expr_record field_exprs) = - let (fields, exprs) = UNZIP field_exprs in - red_list (REVERSE exprs) (\es. Expr_record (ZIP (fields, es))) (\v. Stuck) []) /\ - (red (Expr_override expr field_exprs) = - red_1 expr (\e. Expr_override e field_exprs) - (\v. let (fields, exprs) = UNZIP field_exprs in - red_list (REVERSE exprs) - (\es. Expr_override v (ZIP (fields, es))) - (eval_override v fields) - [])) /\ - (red (Expr_apply expr1 expr2) = - red_2 expr1 expr2 Expr_apply eval_apply) /\ - (red (Expr_and expr1 expr2) = Step (Expr_ifthenelse expr1 expr2 (Expr_constant CONST_false))) /\ - (red (Expr_or expr1 expr2) = Step (Expr_ifthenelse expr1 (Expr_constant CONST_true) expr2)) /\ - (red (Expr_field expr field) = red_1 expr (\e. Expr_field e field) (eval_field field)) /\ - (red (Expr_ifthenelse expr1 expr2 expr3) = - red_1 expr1 (\e. Expr_ifthenelse e expr2 expr3) (eval_ite expr2 expr3)) /\ - (red (Expr_while expr1 expr2) = eval_while expr1 expr2) /\ - (red (Expr_for value_name expr1 for_dirn expr2 expr3) = - red_2 expr2 expr1 (\e2 e1. Expr_for value_name e1 for_dirn e2 expr3) - (eval_for value_name for_dirn expr3)) /\ - (red (Expr_sequence expr1 expr2) = red_1 expr1 (\e. Expr_sequence e expr2) (\v. Step expr2)) /\ - (red (Expr_match expr pattern_matching) = - red_1 expr (\e. Expr_match e pattern_matching) (eval_match pattern_matching)) /\ - (red (Expr_function pattern_matching) = Stuck) /\ - (red (Expr_try expr pattern_matching) = - if is_raise expr then - eval_try expr pattern_matching - else if is_value_of_expr expr then - Step expr - else - result_map (\e. Expr_try e pattern_matching) (red expr)) /\ - (red (Expr_let (LB_simple pattern expr1) expr2) = - red_1 expr1 (\e1. Expr_let (LB_simple pattern e1) expr2) (eval_let pattern expr2)) /\ - (red (Expr_letrec letrec_bindings expr) = eval_letrec letrec_bindings expr) /\ - (red (Expr_assert expr) = - red_1 expr Expr_assert eval_assert) /\ - (red (Expr_location location) = Stuck) /\ - - (red_1 expr pack1 eval1 = - if is_raise expr then - Step expr - else if ~is_value_of_expr expr then - result_map pack1 (red expr) - else - eval1 expr) /\ - - (red_2 expr1 expr2 pack2 eval2 = - if is_raise expr2 then - Step expr2 - else if ~is_value_of_expr expr2 then - result_map (pack2 expr1) (red expr2) - else if is_raise expr1 then - Step expr1 - else if ~is_value_of_expr expr1 then - result_map (\e. pack2 e expr2) (red expr1) - else - eval2 expr1 expr2) /\ - - (red_list [] packl evall acc = evall acc) /\ - (red_list (expr::exprs) packl evall acc = - if is_raise expr then - Step expr - else if ~is_value_of_expr expr then - result_map (\e. packl (REVERSE exprs++[e]++acc)) (red expr) - else - red_list exprs packl evall (expr::acc))` -(WF_REL_TAC `inv_image ((\x:num y. x < y) LEX (\x:num y. x < y)) - ((sum_case (\e. (expr_size e, 0)) - (sum_case (\(e, f, g). (expr_size e, 1)) - (sum_case (\(e1, e2, f, g). (expr_size e1 + expr_size e2, 1)) - (\(e, f, g). (letrec_binding4_size e, 1))))))` - THEN - SRW_TAC [ARITH_ss] [lem2, METIS_PROVE [] ``!f. (\x y. f x y) = f``] THEN - SRW_TAC [] [prim_recTheory.WF_LESS] THEN IMP_RES_TAC lem3 THEN DECIDE_TAC); - -val red_ind = fetch "-" "red_ind"; - -end; - -val interp_map_thm = Q.store_thm ("interp_map_thm", -`!result label f. interp_result (result_map f result) label = OPTION_MAP f (interp_result result label)`, -Cases THEN Cases THEN SRW_TAC [] [interp_result_def, result_map_def]); - -val eval_ite_thm = Q.prove ( -`!e2 e3 e l. (interp_result (eval_ite expr2 expr3 e) l = SOME e') = - (e = Expr_constant CONST_true) /\ (expr2 = e') /\ (l = Lab_nil) \/ - (e = Expr_constant CONST_false) /\ (expr3 = e') /\ (l = Lab_nil)`, -SRW_TAC [] [eval_ite_def, interp_result_def, COND_EXPAND_EQ] THEN METIS_TAC []); - - -val raise_stuck_thm = Q.prove ( -`!e. is_raise e ==> (red e = Stuck)`, -Cases THEN SRW_TAC [] [is_raise_def, red_def, result_map_def, eval_apply_def, eval_uprim_def] THEN -METIS_TAC [value_not_raise_thm]); - -val no_value_red_thm = Q.store_thm ("no_value_red_thm", -`!e L e'. is_value_of_expr e ==> ~JR_expr e L e'`, -recInduct is_value_of_expr_ind THEN SRW_TAC [] [is_value_of_expr_def, JR_expr_fun] THEN -CCONTR_TAC THEN FULL_SIMP_TAC list_ss [is_value_of_expr_def, expr_11, expr_distinct, JR_expr_fun] THEN -METIS_TAC []); - -val raise_not_JR_thm = Q.store_thm ("raise_not_JR_thm", -`!e. is_raise e ==> !l e'. ~JR_expr e l e'`, -Cases_on `e` THEN SRW_TAC [] [is_raise_def, JR_expr_fun, JRuprim_cases] THEN -FULL_SIMP_TAC list_ss [no_value_red_thm] THEN METIS_TAC [value_not_raise_thm, is_raise_def]); - -local - -val lem1 = Q.prove ( -`!es f acc. EVERY is_value_of_expr es ==> (red_list es f (\v. Stuck) acc = Stuck)`, -Induct THEN SRW_TAC [] [red_def, o_DEF, value_not_raise_thm]); - -val lem2 = Q.prove ( -`!fel fl el P. EVERY (\(f,e). P e) fel /\ (UNZIP fel = (fl,el)) ==> EVERY P el`, -Induct THEN SRW_TAC [] [] THEN SRW_TAC [] [] THENL -[Cases_on `h` THEN FULL_SIMP_TAC list_ss [], - RES_TAC THEN POP_ASSUM MATCH_MP_TAC THEN Q.EXISTS_TAC `FST (UNZIP fel)` THEN SRW_TAC [] []]); - -in - -val value_stuck_thm = Q.prove ( -`!e. is_value_of_expr e ==> (red e = Stuck)`, -recInduct is_value_of_expr_ind THEN -SRW_TAC [] [is_value_of_expr_def, red_def, value_not_raise_thm, eval_apply_def] THEN -SRW_TAC [] [red_def, result_map_def] THEN FULL_SIMP_TAC list_ss [o_DEF] THENL -[METIS_TAC [lem1, EVERY_REVERSE], - METIS_TAC [lem1, EVERY_REVERSE], - METIS_TAC [lem1, lem2, EVERY_REVERSE], - Cases_on `expr1` THEN FULL_SIMP_TAC list_ss [is_raise_def] THEN SRW_TAC [] []]); - -end; - -val FOLDR_MAP = Q.prove ( -`!f e g l. FOLDR f e (MAP g l) = FOLDR (\x y. f (g x) y) e l`, -Induct_on `l` THEN SRW_TAC [] []); - -val raise_cases = Q.store_thm ("raise_cases", -`!e. is_raise e = ?v. is_value_of_expr v /\ (e = Expr_apply (Expr_uprim Uprim_raise) v)`, -Cases THEN SRW_TAC [] [is_raise_def] THEN METIS_TAC []); - -val uprim_red_thm = Q.prove ( -`!u e l e'. is_value_of_expr e ==> - (JRuprim u e l e' = (interp_result (eval_uprim u e) l = SOME e'))`, -Cases THEN SRW_TAC [] [JRuprim_cases] THEN SRW_TAC [] [interp_result_def, eval_uprim_def, COND_EXPAND_EQ] THENL -[METIS_TAC [], - METIS_TAC [], - Cases_on `e` THEN SRW_TAC [] [interp_result_def] THEN Cases_on `c` THEN SRW_TAC [] [interp_result_def] THEN - METIS_TAC [], - Cases_on `l` THEN SRW_TAC [] [interp_result_def] THEN METIS_TAC [], - Cases_on `e` THEN SRW_TAC [] [interp_result_def] THEN Cases_on `l` THEN SRW_TAC [] [interp_result_def] THEN - METIS_TAC []]); - -local - -val TAC = -Cases_on `e1` THEN FULL_SIMP_TAC (srw_ss()) [interp_result_def, is_value_of_expr_def] THEN -Cases_on `c` THEN FULL_SIMP_TAC (srw_ss()) [interp_result_def] THEN -Cases_on `e2` THEN FULL_SIMP_TAC (srw_ss()) [interp_result_def, is_value_of_expr_def] THEN -Cases_on `c` THEN FULL_SIMP_TAC (srw_ss()) [interp_result_def, COND_EXPAND_EQ] THEN METIS_TAC []; - -in - -val bprim_red_thm = Q.prove ( -`!e1 b e2 l e'. is_value_of_expr e1 /\ is_value_of_expr e2 ==> - (JRbprim e1 b e2 l e' = (interp_result (eval_bprim b e1 e2) l = SOME e'))`, -Cases_on `b` THEN SRW_TAC [] [JRbprim_cases] THEN -SRW_TAC [] [interp_result_def, funval_def, eval_bprim_def, COND_EXPAND_EQ, b_int_primop_def] THENL -[Cases_on `e1` THEN FULL_SIMP_TAC (srw_ss()) [funval_def] THEN METIS_TAC [], - Cases_on `e1` THEN - FULL_SIMP_TAC (srw_ss()) [funval_def, is_value_of_expr_def, non_funval_equal_def, interp_result_def] THEN - Cases_on `e2` THEN FULL_SIMP_TAC list_ss [funval_def, is_value_of_expr_def] THEN - SRW_TAC [] [non_funval_equal_def, interp_result_def, COND_EXPAND_EQ, o_DEF] THENL - [METIS_TAC [], - METIS_TAC [], - Cases_on `c` THEN FULL_SIMP_TAC (srw_ss()) [is_const_constr_def] THEN METIS_TAC [], - Cases_on `c` THEN FULL_SIMP_TAC (srw_ss()) [is_const_constr_def] THEN METIS_TAC [], - METIS_TAC [], - METIS_TAC [LENGTH_MAP], - METIS_TAC [LENGTH_MAP], - FULL_SIMP_TAC list_ss [MAP2_ZIP, LAMBDA_PROD2] THEN - METIS_TAC [MAP_FST_ZIP, MAP_SND_ZIP, EVERY_MAP, ZIP_MAP_ID, LENGTH_ZIP], - Cases_on `c'` THEN FULL_SIMP_TAC (srw_ss()) [is_const_constr_def] THEN METIS_TAC [], - Cases_on `c'` THEN FULL_SIMP_TAC (srw_ss()) [is_const_constr_def] THEN METIS_TAC [], - METIS_TAC [], - METIS_TAC [LENGTH_MAP], - FULL_SIMP_TAC list_ss [MAP2_ZIP, LAMBDA_PROD2] THEN - METIS_TAC [MAP_FST_ZIP, MAP_SND_ZIP, EVERY_MAP, ZIP_MAP_ID, LENGTH_ZIP], - METIS_TAC [], - METIS_TAC [], - CCONTR_TAC THEN FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THEN - FULL_SIMP_TAC list_ss [MAP_MAP, field_to_fn_def] THEN METIS_TAC [], - EQ_TAC THEN SRW_TAC [] [] THEN1 SRW_TAC [] [MAP_MAP, LAMBDA_PROD2] THEN - MAP_EVERY Q.EXISTS_TAC [`MAP (\z. (field_to_fn (FST z), SND z)) l''`, - `MAP (\z. (field_to_fn (FST z), SND z)) l'`] THEN - FULL_SIMP_TAC (srw_ss()) [MAP_MAP, field_to_fn_thm, MAP_I, LAMBDA_PROD2, EVERY_MAP], - METIS_TAC []], - TAC, - TAC, - TAC, - Cases_on `e1` THEN FULL_SIMP_TAC (srw_ss()) [interp_result_def, is_value_of_expr_def] THEN - Cases_on `c` THEN FULL_SIMP_TAC (srw_ss()) [interp_result_def, COND_EXPAND_EQ] THEN METIS_TAC [], - TAC, - Cases_on `e1` THEN FULL_SIMP_TAC (srw_ss()) [interp_result_def, is_value_of_expr_def] THEN - Cases_on `l` THEN SRW_TAC [] [interp_result_def] THEN METIS_TAC []]); - -end; - -val list_get_next_def = Define -`(list_get_next [] = NONE) /\ - (list_get_next (e::es) = - if ~is_value_of_expr e then - SOME ([], e, es) - else - OPTION_MAP (\(vs, e', es). (e::vs, e', es)) (list_get_next es))`; - -val get_next_NONE_thm = Q.prove ( -`!es. (list_get_next es = NONE) = EVERY is_value_of_expr es`, -Induct THEN SRW_TAC [] [list_get_next_def] THEN METIS_TAC []); - -val get_next_SOME_thm = Q.prove ( -`!es x. (list_get_next es = SOME x) = - ?v_list e e_list. (es = v_list++[e]++e_list) /\ EVERY is_value_of_expr v_list /\ - ~is_value_of_expr e /\ (x = (v_list, e, e_list))`, -Induct THEN SRW_TAC [] [list_get_next_def] THENL -[Cases_on `x` THEN Cases_on `r` THEN Cases_on `q` THEN SRW_TAC [] [] THEN METIS_TAC [], - EQ_TAC THEN SRW_TAC [] [] THEN SRW_TAC [] [] THEN Cases_on `v_list` THEN FULL_SIMP_TAC list_ss [] THEN - SRW_TAC [] [] THEN Q.EXISTS_TAC `(t, e, e_list)` THEN SRW_TAC [] []]); - -val lem1 = Q.prove ( -`(!v. ~is_value_of_expr v \/ ~(e1 = Expr_apply (Expr_uprim Uprim_raise) v)) ==> - ~(e1 = Expr_apply (Expr_uprim Uprim_raise) v') \/ ~(l = Lab_nil) \/ - ~(e' = Expr_apply (Expr_uprim Uprim_raise) v') \/ ~is_value_of_expr v'`, -METIS_TAC []); - -val lem2 = Q.prove ( -`!x y z. x++[y]++z = x++y::z`, -METIS_TAC [APPEND, APPEND_ASSOC]); - -val lem3 = Q.prove ( -`!e_list e_list' e e' v_list v_list'. - EVERY is_value_of_expr v_list /\ EVERY is_value_of_expr v_list' /\ - ~is_value_of_expr e /\ ~is_value_of_expr e' ==> - ((v_list++e::e_list = v_list'++e'::e_list') = (e_list = e_list') /\ (e = e') /\ (v_list = v_list'))`, -Induct_on `v_list` THEN SRW_TAC [] [] THEN Cases_on `v_list'` THEN FULL_SIMP_TAC list_ss [] THEN METIS_TAC []); - -val lem4 = Q.prove ( -`!ctor. - (!l e'. (if is_raise e then - (e' = e) /\ (l = Lab_nil) - else - ?e1'. (e' = ctor (REVERSE (v_list ++ [e1'] ++ e_list))) /\ JR_expr e l e1') = - (interp_result (red_list (v_list ++ [e] ++ e_list) ctor (\v. Stuck) []) l = SOME e')) /\ - (REVERSE exprs = v_list ++ [e] ++ e_list) /\ - EVERY is_value_of_expr v_list /\ - ~is_value_of_expr e - ==> - ((?v_list e_list e e''. - (exprs = e_list ++ [e] ++ v_list) /\ - (e' = ctor (e_list ++ [e''] ++ v_list)) /\ - EVERY is_value_of_expr v_list /\ JR_expr e l e'') \/ - (?v_list e_list v. - (exprs = - e_list ++ [Expr_apply (Expr_uprim Uprim_raise) v] ++ v_list) /\ - (l = Lab_nil) /\ (e' = Expr_apply (Expr_uprim Uprim_raise) v) /\ - is_value_of_expr v /\ EVERY is_value_of_expr v_list) - = - (interp_result (red_list (v_list ++ [e] ++ e_list) ctor (\v. Stuck) []) l = SOME e'))`, -SRW_TAC [] [] THEN EQ_TAC THEN SRW_TAC [] [] THEN -FULL_SIMP_TAC list_ss [COND_EXPAND_EQ, REVERSE_APPEND, lem2] THENL -[`EVERY is_value_of_expr (REVERSE v_list')` by METIS_TAC [EVERY_REVERSE] THEN - `~is_value_of_expr e''` by METIS_TAC [no_value_red_thm] THEN - FULL_SIMP_TAC list_ss [lem3] THEN SRW_TAC [] [] THEN - `~is_raise e` by METIS_TAC [raise_not_JR_thm] THEN FULL_SIMP_TAC list_ss [] THEN METIS_TAC [], - `EVERY is_value_of_expr (REVERSE v_list')` by METIS_TAC [EVERY_REVERSE] THEN - `~is_value_of_expr (Expr_apply (Expr_uprim Uprim_raise) v)` by SRW_TAC [] [is_value_of_expr_def] THEN - FULL_SIMP_TAC list_ss [lem3] THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [is_raise_def] THEN - METIS_TAC [], - Cases_on `is_raise e` THEN FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THENL - [FULL_SIMP_TAC list_ss [raise_cases] THEN DISJ2_TAC THEN - MAP_EVERY Q.EXISTS_TAC [`REVERSE v_list`, `REVERSE e_list`, `v`] THEN - SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [lem2, REVERSE_EQ_SYM, REVERSE_APPEND, EVERY_REVERSE] THEN - METIS_TAC [], - DISJ1_TAC THEN MAP_EVERY Q.EXISTS_TAC [`REVERSE v_list`, `REVERSE e_list`, `e`] THEN - FULL_SIMP_TAC list_ss [lem2, REVERSE_EQ_SYM, REVERSE_APPEND, EVERY_REVERSE]]]); - -val lem5 = Q.prove ( -`!l1 f x l2 fn_v_list fn'_v'_list e'. - ~MEM (F_name f) (MAP FST l1) /\ ~MEM (F_name f) (MAP (\z. F_name (FST z)) fn_v_list) /\ - (l1 ++ (F_name f,x)::l2 = MAP (\z. (F_name (FST z),SND z)) fn_v_list ++ [(F_name f,e')] ++ - MAP (\z. (F_name (FST z),SND z)) fn'_v'_list) ==> - (x = e')`, -Induct THEN SRW_TAC [] [] THEN Cases_on `fn_v_list` THEN FULL_SIMP_TAC list_ss [] THEN METIS_TAC []); - -(*val lem6 = Q.prove ( -`(!lb g. FST (case lb of LRB_simple vn pm -> g vn pm) = case lb of LRB_simple vn pm -> FST (g vn pm)) /\ - (!lb g. SND (case lb of LRB_simple vn pm -> g vn pm) = case lb of LRB_simple vn pm -> SND (g vn pm))`, -CONJ_TAC THEN Cases THEN SRW_TAC [] []); -*) -val lem6 = Q.prove ( -`!lb f g. f (case lb of LRB_simple vn pm -> g vn pm) = case lb of LRB_simple vn pm -> f (g vn pm)`, -Cases THEN SRW_TAC [] []); - -val lem7 = Q.prove ( -`!h t' pat_e_list. (h::t' = MAP (\z. PE_inj (FST z) (SND z)) pat_e_list) = - (pat_e_list = (case h of PE_inj a b -> (a, b))::MAP (\x. case x of PE_inj a b -> (a, b)) t')`, -Induct_on `t'` THEN SRW_TAC [] [] THENL -[Cases_on `h` THEN Cases_on `pat_e_list` THEN SRW_TAC [] [] THEN Cases_on `h` THEN SRW_TAC [] [] THEN - METIS_TAC [], - Cases_on `pat_e_list` THEN Cases_on `h'` THEN SRW_TAC [] [] THEN Cases_on `h''` THEN SRW_TAC [] [] THEN - Cases_on `h` THEN SRW_TAC [] [] THEN METIS_TAC []]); - -val lem8 = Q.prove ( -`(!pe g. FST (case pe of PE_inj p e -> g p e) = case pe of PE_inj p e -> FST (g p e)) /\ - (!pe g. SND (case pe of PE_inj p e -> g p e) = case pe of PE_inj p e -> SND (g p e))`, -CONJ_TAC THEN Cases THEN SRW_TAC [] []); - -val lem9 = Q.prove ( -`!h. PE_inj (case h of PE_inj a b -> a) (case h of PE_inj a b -> b) = h`, -Cases_on `h` THEN SRW_TAC [] []); - -val lem10 = Q.prove ( -`!l1 l2 fn v v'. ~MEM fn (MAP FST l1) ==> - (interp_result (eval_override (Expr_record (MAP (\z. (F_name (FST z),SND z)) (l1 ++ [(fn, v)] ++ l2))) - [F_name fn] [v']) Lab_nil = - SOME (Expr_record (MAP (\z. (F_name (FST z),SND z)) (l1 ++ [(fn, v')] ++ l2))))`, -SRW_TAC [] [eval_override_def, interp_result_def] THEN Induct_on `l1` THEN -SRW_TAC [] [do_1override_def, interp_result_def] THEN -Cases_on `do_1override (F_name fn) v' (MAP (\z. (F_name (FST z),SND z)) l1 ++ [(F_name fn,v)] ++ - MAP (\z. (F_name (FST z),SND z)) l2)` THEN -FULL_SIMP_TAC (srw_ss()) [interp_result_def]); - -val lem11 = Q.prove ( -`!l3 l1 l2 fn v v'. ~MEM fn (MAP FST l1) /\ LENGTH l3 >= 1 ==> - (interp_result (eval_override (Expr_record (MAP (\z. (F_name (FST z),SND z)) (l1 ++ [(fn, v)] ++ l2))) - (F_name fn::MAP (\z. F_name (FST z)) l3) - (v'::MAP SND l3)) Lab_nil = - SOME (Expr_override (Expr_record (MAP (\z. (F_name (FST z),SND z)) (l1 ++ [(fn,v')] ++ l2))) - (MAP (\z. (F_name (FST z),SND z)) l3)))`, -Induct THEN SRW_TAC [] [] THEN Cases_on `l3` THEN FULL_SIMP_TAC list_ss [] THEN - SRW_TAC [] [eval_override_def, interp_result_def] THEN Induct_on `l1` THEN - SRW_TAC [] [do_1override_def, interp_result_def] THEN - Cases_on `do_1override (F_name fn) v' (MAP (\z. (F_name (FST z),SND z)) l1 ++ [(F_name fn,v)] ++ - MAP (\z. (F_name (FST z),SND z)) l2)` THEN - FULL_SIMP_TAC (srw_ss()) [interp_result_def] THEN - FULL_SIMP_TAC (srw_ss()) [eval_override_def, interp_result_def, ZIP_MAP, MAP_MAP, MAP_ZIP_SAME]); - -val lem12 = Q.prove ( -`!l fn v x. (do_1override fn v l = SOME x) ==> - ?r1 r2 v'. (l = r1 ++ [(fn,v')] ++ r2) /\ (x = r1 ++ [(fn,v)] ++ r2) /\ ~MEM fn (MAP FST r1)`, -Induct THEN SRW_TAC [] [do_1override_def] THEN Cases_on `h` THEN -FULL_SIMP_TAC (srw_ss ()) [do_1override_def, COND_EXPAND_EQ] THEN SRW_TAC [] [] THENL -[Q.EXISTS_TAC `[]` THEN SRW_TAC [] [], - RES_TAC THEN SRW_TAC [] [] THEN Q.EXISTS_TAC `(q,r)::r1` THEN SRW_TAC [] []]); - -val lem13 = Q.prove ( -`!l2 l3 l e e'. (LENGTH l2 >= 2) /\ - (LENGTH l2 = LENGTH l3) /\ - (interp_result (eval_override e l2 l3) l = SOME e') ==> - ?r1 r2 v. (e = Expr_record (r1++[(HD l2, v)]++r2)) /\ - (e' = Expr_override (Expr_record (r1++[(HD l2, HD l3)]++r2)) - (ZIP (TL l2, TL l3))) /\ - ~MEM (HD l2) (MAP FST r1) /\ - (l = Lab_nil)`, -Induct THEN Cases_on `l3` THEN SRW_TAC [] [] THEN -FULL_SIMP_TAC list_ss [eval_override_def, interp_result_def] THEN -Cases_on `l2` THEN FULL_SIMP_TAC list_ss [] THEN -Cases_on `t` THEN FULL_SIMP_TAC list_ss [eval_override_def] THEN -Cases_on `e` THEN FULL_SIMP_TAC (srw_ss()) [interp_result_def] THEN -FULL_SIMP_TAC list_ss [COND_EXPAND_EQ] THEN -Cases_on `do_1override h' h l'` THEN FULL_SIMP_TAC (srw_ss ()) [interp_result_def, COND_EXPAND_EQ] THEN -SRW_TAC [] [] THEN METIS_TAC [lem12]); - - -val red_thm = Q.store_thm ("red_thm", -`(!e l e'. JR_expr e l e' = (interp_result (red e) l = SOME e')) /\ - (!e pack eval l e'. - (if is_raise e then - (l = Lab_nil) /\ (e' = e) - else if ~is_value_of_expr e then - ?e1'. (e' = pack e1') /\ JR_expr e l e1' - else - (interp_result (eval e) l = SOME e')) - = - (interp_result (red_1 e pack eval) l = SOME e')) /\ - (!e1 e2 pack eval l e'. - (if is_raise e2 then - (l = Lab_nil) /\ (e' = e2) - else if ~is_value_of_expr e2 then - ?e2'. (e' = pack e1 e2') /\ JR_expr e2 l e2' - else if is_raise e1 then - (l = Lab_nil) /\ (e' = e1) - else if ~is_value_of_expr e1 then - ?e1'. (e' = pack e1' e2) /\ JR_expr e1 l e1' - else - (interp_result (eval e1 e2) l = SOME e')) - = - (interp_result (red_2 e1 e2 pack eval) l = SOME e')) /\ - (!es pack eval acc l e'. - (case list_get_next es of - NONE -> (interp_result (eval (REVERSE es++acc)) l = SOME e') - || SOME (v_list, e, e_list) -> - if is_raise e then - (e' = e) /\ (l = Lab_nil) - else - ?e1'. (e' = pack (REVERSE (v_list++[e1']++e_list)++acc)) /\ JR_expr e l e1') - = - (interp_result (red_list es pack eval acc) l = SOME e'))`, -HO_MATCH_MP_TAC red_ind THEN REPEAT CONJ_TAC THENL -[(* Expr_uprim unary_prim *) - SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ], - (* Expr_bprim binary_prim *) - SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ], - (* Expr_ident value_name *) - SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ], - (* Expr_constant constant *) - SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ], - (* Expr_typed expr typexpr *) - SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ] THEN METIS_TAC [], - (* Expr_tuple exprs *) - SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ] THEN - Cases_on `list_get_next (REVERSE exprs)` THEN - FULL_SIMP_TAC (srw_ss()) [get_next_NONE_thm, get_next_SOME_thm] THENL - [CCONTR_TAC THEN FULL_SIMP_TAC list_ss [EVERY_REVERSE] THEN SRW_TAC [] [] THEN - FULL_SIMP_TAC (srw_ss()) [EVERY_APPEND, is_value_of_expr_def] THEN METIS_TAC [no_value_red_thm], - SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [lem4]], - (* Expr_construct constr exprs *) - SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ] THEN - Cases_on `list_get_next (REVERSE exprs)` THEN - FULL_SIMP_TAC (srw_ss()) [get_next_NONE_thm, get_next_SOME_thm] THENL - [CCONTR_TAC THEN FULL_SIMP_TAC list_ss [EVERY_REVERSE] THEN SRW_TAC [] [] THEN - FULL_SIMP_TAC (srw_ss()) [EVERY_APPEND, is_value_of_expr_def] THEN METIS_TAC [no_value_red_thm], - SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [lem4]], - (* Expr_cons e1 e2 *) - SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ, raise_not_JR_thm, value_not_raise_thm, - no_value_red_thm, raise_cases] THEN METIS_TAC [], - (* Expr_record field_exprs *) - SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ] THEN - FULL_SIMP_TAC list_ss [UNZIP_LEM] THEN SRW_TAC [] [] THEN - Cases_on `list_get_next (REVERSE (MAP SND field_exprs))` THEN - FULL_SIMP_TAC (srw_ss()) [get_next_NONE_thm, get_next_SOME_thm] THENL - [CCONTR_TAC THEN FULL_SIMP_TAC list_ss [EVERY_REVERSE] THEN SRW_TAC [] [] THEN - FULL_SIMP_TAC (srw_ss()) [EVERY_APPEND, is_value_of_expr_def] THEN METIS_TAC [no_value_red_thm], - SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [COND_EXPAND_EQ] THEN EQ_TAC THEN SRW_TAC [] [] THEN - FULL_SIMP_TAC (srw_ss()) [MAP_MAP, REVERSE_APPEND, lem2, ETA_THM] THENL - [`~is_value_of_expr expr` by METIS_TAC [no_value_red_thm] THEN - `EVERY is_value_of_expr (REVERSE (MAP SND fn'_v_list))` - by METIS_TAC [EVERY_MAP, EVERY_REVERSE] THEN - FULL_SIMP_TAC list_ss [lem3] THEN SRW_TAC [] [] THEN - `~is_raise e` by METIS_TAC [raise_not_JR_thm] THEN - FULL_SIMP_TAC list_ss [ZIP_APPEND, ZIP_MAP, MAP_ZIP_SAME, MAP_MAP] THEN METIS_TAC [], - `~is_value_of_expr (Expr_apply (Expr_uprim Uprim_raise) v)` - by SRW_TAC [] [is_value_of_expr_def] THEN - `EVERY is_value_of_expr (REVERSE (MAP SND fn'_v_list))` - by METIS_TAC [EVERY_MAP, EVERY_REVERSE] THEN - FULL_SIMP_TAC list_ss [lem3] THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [is_raise_def] THEN - METIS_TAC [], - Cases_on `is_raise e` THEN - FULL_SIMP_TAC list_ss [REVERSE_EQ_SYM, ZIP_LEM, REVERSE_APPEND, lem2] THENL - [FULL_SIMP_TAC list_ss [raise_cases] THEN DISJ2_TAC THEN - MAP_EVERY Q.EXISTS_TAC [`ZIP (MAP field_to_fn l3',REVERSE v_list)`, - `ZIP (MAP field_to_fn l2',REVERSE e_list)`, - `field_to_fn x'`, - `v`] THEN - SRW_TAC [] [ZIP_MAP, MAP_MAP, field_to_fn_thm, MAP_I, EVERY_MAP] THEN - FULL_SIMP_TAC list_ss [] THEN1 METIS_TAC [] THEN1 METIS_TAC [] THEN - SRW_TAC [] [GSYM EVERY_MAP, MAP_SND_ZIP, EVERY_REVERSE], - DISJ1_TAC THEN - MAP_EVERY Q.EXISTS_TAC [`ZIP (MAP field_to_fn l3',REVERSE v_list)`, - `ZIP (MAP field_to_fn l2',REVERSE e_list)`, - `field_to_fn x'`, - `e`] THEN - RES_TAC THEN Q.EXISTS_TAC `e1'` THEN SRW_TAC [] [] THEN - SRW_TAC [] [ZIP_MAP, MAP_MAP, field_to_fn_thm, MAP_I, EVERY_MAP, MAP_FST_ZIP, - ZIP_APPEND] THEN - SRW_TAC [] [GSYM EVERY_MAP, MAP_SND_ZIP, EVERY_REVERSE]]]], - (* Expr_override e field_exprs *) - SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ, raise_not_JR_thm, value_not_raise_thm, - no_value_red_thm, raise_cases] THENL - [EQ_TAC THEN SRW_TAC [] [] THEN Q.EXISTS_TAC `MAP (\x. (field_to_fn (FST x), SND x)) field_exprs` THEN - SRW_TAC [] [MAP_MAP, field_to_fn_thm, MAP_I], - EQ_TAC THEN SRW_TAC [] [] THENL - [METIS_TAC [], - FULL_SIMP_TAC (srw_ss()) [interp_map_thm, is_value_of_expr_def, o_DEF, EXISTS_MAP] THEN - FULL_SIMP_TAC list_ss [EXISTS_MEM, EVERY_MEM] THEN METIS_TAC [], - FULL_SIMP_TAC (srw_ss()) [interp_map_thm, is_value_of_expr_def, o_DEF, EXISTS_MAP] THEN - FULL_SIMP_TAC list_ss [EXISTS_MEM, EVERY_MEM] THEN METIS_TAC [], - DISJ1_TAC THEN Q.EXISTS_TAC `MAP (\x. (field_to_fn (FST x), SND x)) field_exprs` THEN - SRW_TAC [] [MAP_MAP, field_to_fn_thm, MAP_I]], - FULL_SIMP_TAC (srw_ss()) [UNZIP_LEM, is_value_of_expr_def, GSYM raise_cases] THEN SRW_TAC [] [] THEN - Cases_on `list_get_next (REVERSE (MAP SND field_exprs))` THEN - FULL_SIMP_TAC (srw_ss()) [get_next_NONE_thm, get_next_SOME_thm] THEN - `~is_raise e` by METIS_TAC [raise_cases] THENL - [EQ_TAC THEN SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [EVERY_REVERSE, is_value_of_expr_def] THENL - [METIS_TAC [no_value_red_thm], - `~MEM field_name (MAP FST fn_v_list)` by FULL_SIMP_TAC (srw_ss()) [MEM_MAP] THEN - FULL_SIMP_TAC list_ss [MAP_MAP] THEN IMP_RES_TAC lem11 THEN FULL_SIMP_TAC list_ss [] THEN - METIS_TAC [], - `~MEM field_name (MAP FST fn_v_list)` by FULL_SIMP_TAC (srw_ss()) [MEM_MAP] THEN - IMP_RES_TAC lem10 THEN FULL_SIMP_TAC list_ss [] THEN METIS_TAC [], - RES_TAC THEN Cases_on `field_exprs` THEN1 - FULL_SIMP_TAC list_ss [eval_override_def, interp_result_def] THEN - Cases_on `t` THEN FULL_SIMP_TAC list_ss [] THEN NTAC 3 DISJ2_TAC THENL - [FULL_SIMP_TAC list_ss [eval_override_def] THEN - Cases_on `e` THEN FULL_SIMP_TAC (srw_ss ()) [interp_result_def] THEN - Cases_on `do_1override (FST h) (SND h) l'` THEN - FULL_SIMP_TAC list_ss [interp_result_def, COND_EXPAND_EQ] THEN SRW_TAC [] [] THEN - IMP_RES_TAC lem12 THEN FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THEN - MAP_EVERY Q.EXISTS_TAC [`MAP (\x. (field_to_fn (FST x), SND x)) r2`, - `MAP (\x. (field_to_fn (FST x), SND x)) r1`, - `field_to_fn (FST h)`, - `v'`, - `SND h`] THEN - SRW_TAC [] [MAP_MAP, field_to_fn_thm, MAP_I, ZIP_MAP, MAP_ZIP_SAME, - EVERY_MAP] THEN - FULL_SIMP_TAC list_ss [is_value_of_expr_def, EVERY_MAP, LAMBDA_PROD2] THEN - SRW_TAC [] [MEM_MAP, field_to_fn_11] THEN FULL_SIMP_TAC list_ss [MEM_MAP], - IMP_RES_TAC lem13 THEN FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THEN - MAP_EVERY Q.EXISTS_TAC [`MAP (\x. (field_to_fn (FST x), SND x)) (h'::t')`, - `MAP (\x. (field_to_fn (FST x), SND x)) r2`, - `MAP (\x. (field_to_fn (FST x), SND x)) r1`, - `field_to_fn (FST h)`, - `v`, - `SND h`] THEN - SRW_TAC [] [MAP_MAP, field_to_fn_thm, MAP_I, ZIP_MAP, MAP_ZIP_SAME, - EVERY_MAP] THEN - FULL_SIMP_TAC list_ss [is_value_of_expr_def, EVERY_MAP, LAMBDA_PROD2] THEN - SRW_TAC [] [MEM_MAP, field_to_fn_11] THEN FULL_SIMP_TAC list_ss [MEM_MAP]]], - SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [COND_EXPAND_EQ] THEN EQ_TAC THEN SRW_TAC [] [] THEN - FULL_SIMP_TAC (srw_ss()) [MAP_MAP, REVERSE_APPEND, lem2, ETA_THM] THENL - [`~is_value_of_expr e''' /\ ~is_raise e'''` - by METIS_TAC [no_value_red_thm, raise_not_JR_thm] THEN - `EVERY is_value_of_expr (REVERSE (MAP SND fn'_v_list))` - by METIS_TAC [EVERY_MAP, EVERY_REVERSE] THEN - FULL_SIMP_TAC list_ss [lem3] THEN SRW_TAC [] [] THEN - FULL_SIMP_TAC list_ss [ZIP_APPEND, ZIP_MAP, MAP_ZIP_SAME, MAP_MAP] THEN METIS_TAC [], - `~is_value_of_expr (Expr_apply (Expr_uprim Uprim_raise) v)` - by SRW_TAC [] [is_value_of_expr_def] THEN - `EVERY is_value_of_expr (REVERSE (MAP SND fn'_v_list))` - by METIS_TAC [EVERY_MAP, EVERY_REVERSE] THEN - FULL_SIMP_TAC list_ss [lem3] THEN SRW_TAC [] [] THEN - FULL_SIMP_TAC list_ss [is_raise_def] THEN METIS_TAC [], - METIS_TAC [EVERY_MAP, EVERY_APPEND, EVERY_REVERSE, EVERY_DEF], - METIS_TAC [EVERY_MAP, EVERY_APPEND, EVERY_REVERSE, EVERY_DEF], - Cases_on `is_raise e''` THEN - FULL_SIMP_TAC list_ss [REVERSE_EQ_SYM, ZIP_LEM, REVERSE_APPEND, lem2] THENL - [FULL_SIMP_TAC list_ss [raise_cases] THEN DISJ2_TAC THEN DISJ1_TAC THEN - MAP_EVERY Q.EXISTS_TAC [`ZIP (MAP field_to_fn l3',REVERSE v_list)`, - `ZIP (MAP field_to_fn l2',REVERSE e_list)`, - `field_to_fn x'`, - `v`] THEN - SRW_TAC [] [ZIP_MAP, MAP_MAP, field_to_fn_thm, MAP_I, EVERY_MAP] THEN - FULL_SIMP_TAC list_ss [] THEN1 METIS_TAC [] THEN1 METIS_TAC [] THEN - SRW_TAC [] [GSYM EVERY_MAP, MAP_SND_ZIP, EVERY_REVERSE], - DISJ1_TAC THEN - MAP_EVERY Q.EXISTS_TAC [`ZIP (MAP field_to_fn l3',REVERSE v_list)`, - `ZIP (MAP field_to_fn l2',REVERSE e_list)`, - `field_to_fn x'`, - `e''`] THEN - RES_TAC THEN Q.EXISTS_TAC `e1'` THEN SRW_TAC [] [] THEN - SRW_TAC [] [ZIP_MAP, MAP_MAP, field_to_fn_thm, MAP_I, EVERY_MAP, MAP_FST_ZIP, - ZIP_APPEND] THEN - SRW_TAC [] [GSYM EVERY_MAP, MAP_SND_ZIP, EVERY_REVERSE]]]]], - (* Expr_apply e1 e2 *) - SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ, raise_not_JR_thm, value_not_raise_thm, - no_value_red_thm, raise_cases] THENL - [METIS_TAC [], - METIS_TAC [], - METIS_TAC [], - METIS_TAC [is_value_of_expr_def], - FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [eval_apply_def] THEN Cases_on `e1` THEN - FULL_SIMP_TAC (srw_ss()) [interp_result_def, lem1, is_value_of_expr_def, COND_EXPAND_EQ] THEN - METIS_TAC [uprim_red_thm, bprim_red_thm]], - (* Expr_and expr1 expr2 *) - SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ] THEN METIS_TAC [], - (* Expr_or expr1 expr2 *) - SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ] THEN METIS_TAC [], - (* Expr_field e field *) - SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ, raise_not_JR_thm, value_not_raise_thm, - no_value_red_thm, raise_cases] THEN Cases_on `field` THEN SRW_TAC [] [] THENL - [METIS_TAC [], - FULL_SIMP_TAC (srw_ss()) [interp_map_thm] THEN EQ_TAC THEN SRW_TAC [] [] THEN - FULL_SIMP_TAC list_ss [is_value_of_expr_def, EXISTS_MAP] THEN - METIS_TAC [EVERY_NOT_EXISTS], - SRW_TAC [] [eval_field_def] THEN - Cases_on `e` THEN FULL_SIMP_TAC (srw_ss()) [interp_result_def, is_value_of_expr_def] THEN - Cases_on `list_assoc (F_name f') l'` THEN SRW_TAC [] [interp_result_def] THENL - [CCONTR_TAC THEN FULL_SIMP_TAC list_ss [] THEN IMP_RES_TAC list_assoc_not_mem THEN - FULL_SIMP_TAC list_ss [] THEN METIS_TAC [], - FULL_SIMP_TAC list_ss [list_assoc_split] THEN SRW_TAC [] [] THEN - EQ_TAC THEN SRW_TAC [] [] THENL - [`~MEM (F_name f') (MAP (\z. F_name (FST z)) fn_v_list)` by - FULL_SIMP_TAC (srw_ss ()) [MEM_MAP] THEN - METIS_TAC [lem5], - MAP_EVERY Q.EXISTS_TAC [`MAP (\z. (field_to_fn (FST z), SND z)) l2`, - `MAP (\z. (field_to_fn (FST z), SND z)) l1`] THEN - SRW_TAC [] [MAP_MAP, field_to_fn_thm, MAP_I, lem2, EVERY_MAP] THEN - FULL_SIMP_TAC (srw_ss()) [EVERY_APPEND, LAMBDA_PROD2, MEM_MAP, EVERY_MAP, - EVERY_MEM] THEN - METIS_TAC [field_to_fn_def, field_to_fn_thm]]]], - (* Expr_ifthenelse e expr2 expr3 *) - SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ, raise_not_JR_thm, value_not_raise_thm, - no_value_red_thm, raise_cases] THENL - [METIS_TAC [], - METIS_TAC [is_value_of_expr_def], - SRW_TAC [] [eval_ite_def, interp_result_def, COND_EXPAND_EQ] THEN METIS_TAC []], - (* Expr_while expr1 expr2 *) - SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ, eval_while_def] THEN METIS_TAC [], - (* Expr_for value_name e2 for_dirn e1 expr3 *) - SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ, raise_not_JR_thm, value_not_raise_thm, - no_value_red_thm, raise_cases] THENL - [METIS_TAC [], - METIS_TAC [is_value_of_expr_def], - METIS_TAC [], - METIS_TAC [is_value_of_expr_def], - FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [eval_for_def] THEN - Cases_on `e2` THEN FULL_SIMP_TAC (srw_ss()) [interp_result_def, lem1, is_value_of_expr_def] THEN - Cases_on `c` THEN SRW_TAC [] [interp_result_def, lem1] THEN - Cases_on `e1` THEN FULL_SIMP_TAC (srw_ss()) [interp_result_def, lem1, is_value_of_expr_def] THEN - Cases_on `c` THEN SRW_TAC [] [interp_result_def, lem1] THEN - Cases_on `for_dirn` THEN SRW_TAC [] [interp_result_def] THEN - FULL_SIMP_TAC list_ss [WORD_GREATER] THEN - METIS_TAC [WORD_LESS_OR_EQ, WORD_LESS_ANTISYM, WORD_LESS_EQ_CASES]], - (* Expr_sequence e expr2 *) - SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ, raise_not_JR_thm, value_not_raise_thm, - no_value_red_thm, raise_cases] THEN METIS_TAC [], - (* Expr_match e pattern_matching *) - SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ, raise_not_JR_thm, value_not_raise_thm, - no_value_red_thm, raise_cases] THENL - [METIS_TAC [], - METIS_TAC [is_value_of_expr_def], - Cases_on `pattern_matching` THEN Cases_on `l'` THEN - FULL_SIMP_TAC (srw_ss()) [JRmatching_step_cases, JRmatching_success_cases, JM_matchP_thm, - eval_match_def, interp_result_def] THEN1 METIS_TAC [] THEN - Cases_on `h` THEN Cases_on `t` THEN SRW_TAC [] [eval_match_def, interp_result_def, match_thm] THEN - Cases_on `pat_match p' e` THEN SRW_TAC [] [lem7, lem8, lem9, MAP_MAP, MAP_I] THENL - [METIS_TAC [], - METIS_TAC [pat_match_is_val_thm, EVERY_MAP], - SRW_TAC [ARITH_ss] [] THEN METIS_TAC [], - METIS_TAC [pat_match_is_val_thm, EVERY_MAP]]], - (* Expr_function pattern_matching *) - SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ], - (* Expr_try e pattern_matching *) - SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ, raise_not_JR_thm, value_not_raise_thm, - no_value_red_thm, raise_cases, interp_map_thm] THENL - [SRW_TAC [] [eval_try_def, interp_result_def] THEN Cases_on `pattern_matching` THEN - SRW_TAC [] [interp_result_def] THEN EQ_TAC THEN SRW_TAC [] [] THEN - FULL_SIMP_TAC (srw_ss()) [is_value_of_expr_def], - METIS_TAC [], - METIS_TAC []], - (* Expr_let (LB_simple pattern e) expr2 *) - SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ, raise_not_JR_thm, value_not_raise_thm, - no_value_red_thm, raise_cases] THENL - [METIS_TAC [], - METIS_TAC [], - SRW_TAC [] [eval_let_def, interp_result_def, JM_matchP_thm, match_thm] THEN - Cases_on `pat_match pattern e` THEN SRW_TAC [] [] THEN - METIS_TAC [pat_match_is_val_thm, EVERY_MAP]], - (* Expr_letrec letrec_bindings expr *) - SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, eval_letrec_def] THEN EQ_TAC THEN SRW_TAC [] [] THENL - [SRW_TAC [] [lrbs_to_lrblist_def, MAP_MAP] THEN - MATCH_MP_TAC (METIS_PROVE [] ``!f x y z. (x = y) ==> (f x z = f y z)``) THEN - SRW_TAC [] [MAP_EQ] THEN FULL_SIMP_TAC list_ss [EVERY_MEM], - Q.EXISTS_TAC `MAP (\lb. case lb of LRB_simple vn pm -> (vn,recfun letrec_bindings pm, pm)) - (lrbs_to_lrblist letrec_bindings)` THEN - SRW_TAC [] [MAP_MAP, EVERY_MAP, lem6] THENL - [Cases_on `letrec_bindings` THEN SRW_TAC [] [lrbs_to_lrblist_def] THEN - Induct_on `l'` THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [] THEN Cases_on `h` THEN - SRW_TAC [] [], - MATCH_MP_TAC (METIS_PROVE [] ``!f x y z. (x = y) ==> (f x z = f y z)``) THEN - SRW_TAC [] [MAP_EQ] THEN Cases_on `lb` THEN SRW_TAC [] [], - SRW_TAC [] [EVERY_MEM] THEN Cases_on `lb` THEN SRW_TAC [] [] THEN - MATCH_MP_TAC (METIS_PROVE [] ``!f x y z. (x = y) ==> (f x z = f y z)``) THEN - Cases_on `letrec_bindings` THEN SRW_TAC [] [lrbs_to_lrblist_def] THEN - POP_ASSUM (K ALL_TAC) THEN Induct_on `l'` THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [] THEN Cases_on `h` THEN SRW_TAC [] []]], - (* Expr_assert e *) - SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ, raise_not_JR_thm, value_not_raise_thm, - no_value_red_thm, raise_cases] THENL - [METIS_TAC [], - METIS_TAC [is_value_of_expr_def], - SRW_TAC [] [eval_assert_def, interp_result_def, COND_EXPAND_EQ] THEN METIS_TAC []], - (* Expr_location location *) - SRW_TAC [] [red_def, interp_result_def, JR_expr_fun, COND_EXPAND_EQ], - (* red_1 *) - SRW_TAC [] [red_def, interp_result_def, COND_EXPAND_EQ, interp_map_thm] THEN METIS_TAC [], - (* red_2 *) - SRW_TAC [] [red_def, interp_result_def, COND_EXPAND_EQ, interp_map_thm] THEN METIS_TAC [], - (* red_list *) - SRW_TAC [] [red_def, interp_result_def, COND_EXPAND_EQ, interp_map_thm, LET_THM, list_get_next_def], - (* red_list *) - SRW_TAC [] [red_def, interp_result_def, COND_EXPAND_EQ, interp_map_thm, LET_THM, list_get_next_def] THENL - [METIS_TAC [], - METIS_TAC [], - METIS_TAC [value_not_raise_thm], - Cases_on `list_get_next es` THEN FULL_SIMP_TAC (srw_ss()) [lem2] THEN - Cases_on `x` THEN Cases_on `r` THEN FULL_SIMP_TAC (srw_ss()) [lem2]]] -); - - -val _ = export_theory (); - diff --git a/vendors/ott/examples/ocaml_light/hol/remv_tyvarScript.sml b/vendors/ott/examples/ocaml_light/hol/remv_tyvarScript.sml deleted file mode 100644 index 17a92ae38927..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/remv_tyvarScript.sml +++ /dev/null @@ -1,223 +0,0 @@ -open HolKernel bossLib boolLib listTheory pairTheory; -open ottTheory ottLib caml_typedefTheory; -open utilTheory basicTheory; - -val _ = new_theory "remv_tyvar"; - -val value_remv_tyvar_thm = Q.store_thm ("value_remv_tyvar_thm", -`!v. is_value_of_expr v ==> is_value_of_expr (remv_tyvar_expr v)`, -HO_MATCH_MP_TAC is_value_of_expr_ind THEN -SRW_TAC [] [is_value_of_expr_def, remv_tyvar_letrec_binding_def, EVERY_MAP, EVERY_MEM, LAMBDA_PROD2] THEN -SRW_TAC [] [remv_tyvar_letrec_binding_def] THEN Cases_on `z` THEN METIS_TAC [SND]); - -val nexp_remv_tyvar_thm = Q.store_thm ("nexp_remv_tyvar_thm", -`!e. is_non_expansive_of_expr e ==> is_non_expansive_of_expr (remv_tyvar_expr e)`, -recInduct is_non_expansive_of_expr_ind THEN -SRW_TAC [] [is_non_expansive_of_expr_def, remv_tyvar_letrec_binding_def] THEN -FULL_SIMP_TAC list_ss [EVERY_MAP, EVERY_MEM] THENL -[FULL_SIMP_TAC list_ss [LAMBDA_PROD2] THEN Cases_on `x` THEN FULL_SIMP_TAC list_ss [] THEN - METIS_TAC [SND], - Cases_on `expr1` THEN - FULL_SIMP_TAC list_ss [is_binary_prim_app_value_of_expr_def, remv_tyvar_letrec_binding_def]]); - -val JTinst_any_ok_thm = Q.prove ( -`!E t t'. JTinst_any E t t' ==> tkind E t`, -RULE_INDUCT_TAC JTinst_any_ind [Eok_def, EVERY_MAP] []); - -val src_t_remv_tyvar_thm = Q.prove ( -`!t. is_src_typexpr_of_typexpr t ==> is_src_typexpr_of_typexpr (remv_tyvar_typexpr t)`, -recInduct is_src_typexpr_of_typexpr_ind THEN -SRW_TAC [] [is_src_typexpr_of_typexpr_def, remv_tyvar_typexpr_def] THEN -FULL_SIMP_TAC list_ss [EVERY_MAP, EVERY_MEM]); - -val remv_tyvar_subst_thm = Q.prove ( -`(!t S. substs_typevar_typexpr S (remv_tyvar_typexpr t) = remv_tyvar_typexpr t) /\ - (!tl S. MAP (\t. substs_typevar_typexpr S (remv_tyvar_typexpr t)) tl = - MAP remv_tyvar_typexpr tl)`, -Induct THEN SRW_TAC [] [substs_typevar_typexpr_def, remv_tyvar_typexpr_def, MAP_MAP, ETA_THM]); - -local - -val lem1 = Q.prove ( -`!l1 l2 S. - (!E S. EVERY (\(t,t'). JTinst_any E t (substs_typevar_typexpr S t') ==> - JTinst_any E t (remv_tyvar_typexpr t')) (ZIP (MAP FST l2,l1))) /\ - (MAP (\typexpr_. substs_typevar_typexpr S typexpr_) l1 = MAP SND l2) /\ - EVERY (\x. JTinst_any E (FST x) (SND x)) l2 ==> - EVERY (\x. JTinst_any E (FST x) (SND x)) (ZIP (MAP FST l2,MAP remv_tyvar_typexpr l1))`, -Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN SRW_TAC [] [] THEN -FULL_SIMP_TAC list_ss [] THEN METIS_TAC []); - -in - -val JTinst_any_remv_tyvar_thm = Q.prove ( -`(!t' E t S. JTinst_any E t (substs_typevar_typexpr S t') ==> - JTinst_any E t (remv_tyvar_typexpr t')) /\ - (!tl' E tl S. (LENGTH tl = LENGTH tl') ==> - EVERY (\(t, t'). JTinst_any E t (substs_typevar_typexpr S t') ==> - JTinst_any E t (remv_tyvar_typexpr t')) - (ZIP (tl, tl')))`, -Induct THEN SRW_TAC [] [JTinst_any_fun, remv_tyvar_typexpr_def, substs_typevar_typexpr_def] THENL -[METIS_TAC [JTinst_any_ok_thm], - METIS_TAC [], - Q.EXISTS_TAC `ZIP (MAP FST t_t'_list, MAP remv_tyvar_typexpr tl')` THEN - SRW_TAC [] [MAP_MAP, LAMBDA_PROD2, ETA_THM] THENL - [METIS_TAC [MAP_FST_ZIP, LENGTH_MAP], - METIS_TAC [MAP_SND_ZIP, LENGTH_MAP], - METIS_TAC [lem1, LENGTH_MAP], - METIS_TAC [LENGTH_MAP, LENGTH_ZIP]], - Q.EXISTS_TAC `ZIP (MAP FST t_t'_list, MAP remv_tyvar_typexpr tl')` THEN - SRW_TAC [] [MAP_MAP, LAMBDA_PROD2, ETA_THM] THENL - [METIS_TAC [MAP_FST_ZIP, LENGTH_MAP], - METIS_TAC [MAP_SND_ZIP, LENGTH_MAP], - METIS_TAC [lem1, LENGTH_MAP], - METIS_TAC [LENGTH_MAP, LENGTH_ZIP]], - Cases_on `tl` THEN FULL_SIMP_TAC (srw_ss()) [], - Cases_on `tl` THEN FULL_SIMP_TAC (srw_ss()) [] THEN METIS_TAC []]); - -end; - -val remv_tyvar_pat_thm = Q.store_thm ("remv_tyvar_pat_thm", -`!S E p t t'. JTpat S E p t t' ==> !S'. JTpat S' E (remv_tyvar_pattern p) t t'`, -RULE_INDUCT_TAC JTpat_ind [JTpat_fun, remv_tyvar_pattern_def] -[([``"JTpat_typed"``], - SRW_TAC [] [src_t_remv_tyvar_thm, remv_tyvar_subst_thm] THEN METIS_TAC [JTinst_any_remv_tyvar_thm]), - ([``"JTpat_construct"``], - SRW_TAC [] [] THEN - Q.EXISTS_TAC `MAP (\x. (remv_tyvar_pattern (FST x), FST (SND x), SND (SND x))) pattern_E_t_list` THEN - SRW_TAC [] [MAP_MAP, EVERY_MAP, ETA_THM] THEN FULL_SIMP_TAC list_ss [EVERY_MEM, ELIM_UNCURRY]), - ([``"JTpat_construct_any"``, ``"JTpat_cons"``], - METIS_TAC []), - ([``"JTpat_tuple"``], - SRW_TAC [] [] THEN - Q.EXISTS_TAC `MAP (\x. (remv_tyvar_pattern (FST x), FST (SND x), SND (SND x))) pattern_t_E_list` THEN - SRW_TAC [] [MAP_MAP, EVERY_MAP, ETA_THM] THEN FULL_SIMP_TAC list_ss [EVERY_MEM, ELIM_UNCURRY]), - ([``"JTpat_record"``], - SRW_TAC [] [] THEN - Q.EXISTS_TAC `MAP (\x. (FST x, remv_tyvar_pattern (FST (SND x)), FST (SND (SND x)), SND (SND (SND x)))) - field_name_pattern_E_t_list` THEN - SRW_TAC [] [MAP_MAP, EVERY_MAP, ETA_THM] THEN FULL_SIMP_TAC list_ss [EVERY_MEM, ELIM_UNCURRY]), - ([``"JTpat_or"``], - METIS_TAC [])]); - - -val remv_tyvar_thm = Q.store_thm ("remv_tyvar_thm", -`(!S E e t. JTe S E e t ==> !S'. JTe S' E (remv_tyvar_expr e) t) /\ - (!S E p t t'. JTpat_matching S E p t t' ==> !S'. JTpat_matching S' E (remv_tyvar_pattern_matching p) t t') /\ - (!S E lb E'. JTlet_binding S E lb E' ==> !S'. JTlet_binding S' E (remv_tyvar_let_binding lb) E') /\ - (!S E lrbs E'. JTletrec_binding S E lrbs E' ==> - !S'. JTletrec_binding S' E (remv_tyvar_letrec_bindings lrbs) E')`, -RULE_INDUCT_TAC JTe_ind [remv_tyvar_letrec_binding_def, JTe_fun] -[([``"JTe_typed"``], - SRW_TAC [] [src_t_remv_tyvar_thm, remv_tyvar_subst_thm] THEN METIS_TAC [JTinst_any_remv_tyvar_thm]), - ([``"JTe_tuple"``, ``"JTe_construct"``], - SRW_TAC [] [] THEN Q.EXISTS_TAC `MAP (\x. (remv_tyvar_expr (FST x), SND x)) e_t_list` THEN - SRW_TAC [] [MAP_MAP, EVERY_MAP, ETA_THM] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN METIS_TAC []), - ([``"JTe_record_constr"``], - SRW_TAC [] [] THEN - MAP_EVERY Q.EXISTS_TAC [`field_name'_list`, - `t'_list`, - `MAP (\x. (FST x, remv_tyvar_expr (FST (SND x)), SND (SND x))) - field_name_e_t_list`] THEN - SRW_TAC [] [MAP_MAP, EVERY_MAP, ETA_THM] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN METIS_TAC []), - ([``"JTe_record_with"``], - SRW_TAC [] [] THEN - Q.EXISTS_TAC `MAP (\x. (FST x, remv_tyvar_expr (FST (SND x)), SND (SND x))) field_name_e_t_list` THEN - SRW_TAC [] [MAP_MAP, EVERY_MAP, ETA_THM] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN METIS_TAC []), - ([``"JTe_apply"``, ``"JTe_record_proj"``, ``"JTe_match"``, ``"JTe_let_mono"``, ``"JTe_letrec"``], - METIS_TAC []), - ([``"JTe_let_poly"``], - METIS_TAC [nexp_remv_tyvar_thm]), - ([``"JTpat_matching_pm"``], - SRW_TAC [] [] THEN - Q.EXISTS_TAC `MAP (\x. (remv_tyvar_pattern (FST x), remv_tyvar_expr (FST (SND x)), SND (SND x))) - pattern_e_E_list` THEN - SRW_TAC [] [MAP_MAP, EVERY_MAP, ETA_THM, remv_tyvar_letrec_binding_def] THEN - FULL_SIMP_TAC list_ss [EVERY_MEM] THEN METIS_TAC [remv_tyvar_pat_thm]), - ([``"JTlet_binding_poly"``], - METIS_TAC [remv_tyvar_pat_thm]), - ([``"JTletrec_binding_equal_function"``], - SRW_TAC [] [remv_tyvar_letrec_binding_def, MAP_MAP] THEN - Q.EXISTS_TAC `MAP (\x. (FST x, remv_tyvar_pattern_matching (FST (SND x)), - FST (SND (SND x)), SND (SND (SND x)))) - value_name_pattern_matching_t_t'_list` THEN - SRW_TAC [] [MAP_MAP] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN SRW_TAC [] [] THEN - FULL_SIMP_TAC list_ss [MEM_MAP])] -THEN METIS_TAC []); - -val remv_tyvar_idem_typexpr_thm = Q.prove ( -`!t. remv_tyvar_typexpr (remv_tyvar_typexpr t) = remv_tyvar_typexpr t`, -HO_MATCH_MP_TAC remv_tyvar_typexpr_ind THEN -SRW_TAC [] [remv_tyvar_typexpr_def, MAP_MAP, MAP_EQ]); - -val remv_tyvar_idem_pat_thm = Q.prove ( -`!p. remv_tyvar_pattern (remv_tyvar_pattern p) = remv_tyvar_pattern p`, -HO_MATCH_MP_TAC remv_tyvar_pattern_ind THEN -SRW_TAC [] [remv_tyvar_pattern_def, MAP_MAP, MAP_EQ, remv_tyvar_idem_typexpr_thm, LAMBDA_PROD2] THEN -Cases_on `z` THEN METIS_TAC [SND]); - -val remv_tyvar_idem_thm = Q.store_thm ("remv_tyvar_idem_thm", -`(!lrb. remv_tyvar_letrec_binding (remv_tyvar_letrec_binding lrb) = - remv_tyvar_letrec_binding lrb) /\ - (!lrbs. remv_tyvar_letrec_bindings (remv_tyvar_letrec_bindings lrbs) = - remv_tyvar_letrec_bindings lrbs) /\ - (!lb. remv_tyvar_let_binding (remv_tyvar_let_binding lb) = - remv_tyvar_let_binding lb) /\ - (!pe. remv_tyvar_pat_exp (remv_tyvar_pat_exp pe) = - remv_tyvar_pat_exp pe) /\ - (!pm. remv_tyvar_pattern_matching (remv_tyvar_pattern_matching pm) = - remv_tyvar_pattern_matching pm) /\ - (!expr. remv_tyvar_expr (remv_tyvar_expr expr) = - remv_tyvar_expr expr)`, -HO_MATCH_MP_TAC remv_tyvar_letrec_binding_ind THEN -SRW_TAC [] [remv_tyvar_letrec_binding_def, MAP_MAP, MAP_EQ, LAMBDA_PROD2, - remv_tyvar_idem_pat_thm, remv_tyvar_idem_typexpr_thm] THEN -Cases_on `z` THEN METIS_TAC [SND]); - -val remv_tyvar_aux_xs_lrb_thm = Q.prove ( -`!lrb. aux_xs_letrec_binding_of_letrec_binding (remv_tyvar_letrec_binding lrb) = - aux_xs_letrec_binding_of_letrec_binding lrb`, -Cases THEN SRW_TAC [] [remv_tyvar_letrec_binding_def, aux_xs_letrec_binding_of_letrec_binding_def]); - -val remv_tyvar_aux_xs_lrbs_thm = Q.prove ( -`!lrbs. aux_xs_letrec_bindings_of_letrec_bindings (remv_tyvar_letrec_bindings lrbs) = - aux_xs_letrec_bindings_of_letrec_bindings lrbs`, -Cases THEN -SRW_TAC [] [remv_tyvar_letrec_binding_def, aux_xs_letrec_bindings_of_letrec_bindings_def, MAP_MAP, - remv_tyvar_aux_xs_lrb_thm, ETA_THM]); - -val remv_tyvar_aux_xs_pattern_thm = Q.prove ( -`!p. aux_xs_pattern_of_pattern (remv_tyvar_pattern p) = aux_xs_pattern_of_pattern p`, -HO_MATCH_MP_TAC aux_xs_pattern_of_pattern_ind THEN -SRW_TAC [] [remv_tyvar_pattern_def, aux_xs_pattern_of_pattern_def, MAP_MAP] THENL -[Induct_on `pattern_list` THEN SRW_TAC [] [], - Induct_on `pattern_list` THEN SRW_TAC [] [], - Induct_on `field_pattern_list` THEN SRW_TAC [] [LAMBDA_PROD2] THEN Cases_on `h` THEN SRW_TAC [] [] THEN - Induct_on `field_pattern_list` THEN SRW_TAC [] [LAMBDA_PROD2] THEN METIS_TAC []]); - -val remv_tyvar_aux_xs_lb_thm = Q.prove ( -`(!lb. aux_xs_let_binding_of_let_binding (remv_tyvar_let_binding lb) = - aux_xs_let_binding_of_let_binding lb)`, -Cases THEN SRW_TAC [] [aux_xs_let_binding_of_let_binding_def, remv_tyvar_letrec_binding_def, - remv_tyvar_aux_xs_pattern_thm]); - -val remv_tyvar_fv_thm = Q.store_thm ("remv_tyvar_fv_thm", -`(!lrb. fv_letrec_binding (remv_tyvar_letrec_binding lrb) = fv_letrec_binding lrb) /\ - (!lrbs. fv_letrec_bindings (remv_tyvar_letrec_bindings lrbs) = fv_letrec_bindings lrbs) /\ - (!lb. fv_let_binding (remv_tyvar_let_binding lb) = fv_let_binding lb) /\ - (!pe. fv_pat_exp (remv_tyvar_pat_exp pe) = fv_pat_exp pe) /\ - (!pm. fv_pattern_matching (remv_tyvar_pattern_matching pm) = fv_pattern_matching pm) /\ - (!expr. fv_expr (remv_tyvar_expr expr) = fv_expr expr)`, -HO_MATCH_MP_TAC fv_letrec_binding_ind THEN -SRW_TAC [] [fv_letrec_binding_def, remv_tyvar_letrec_binding_def, MAP_MAP, LAMBDA_PROD2] THENL -[Induct_on `letrec_binding_list` THEN SRW_TAC [] [], - SRW_TAC [] [remv_tyvar_aux_xs_pattern_thm], - Induct_on `pat_exp_list` THEN SRW_TAC [] [], - Induct_on `expr_list` THEN SRW_TAC [] [], - Induct_on `expr_list` THEN SRW_TAC [] [], - Induct_on `field_expr_list` THEN SRW_TAC [] [] THEN Cases_on `h` THEN SRW_TAC [] [] THEN METIS_TAC [], - Induct_on `field_expr_list` THEN SRW_TAC [] [] THEN Cases_on `h` THEN SRW_TAC [] [] THEN METIS_TAC [], - SRW_TAC [] [remv_tyvar_aux_xs_lb_thm], - SRW_TAC [] [remv_tyvar_aux_xs_lrbs_thm]]); - -val _ = export_theory (); diff --git a/vendors/ott/examples/ocaml_light/hol/shiftScript.sml b/vendors/ott/examples/ocaml_light/hol/shiftScript.sml deleted file mode 100644 index 8a4988cc48ab..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/shiftScript.sml +++ /dev/null @@ -1,206 +0,0 @@ -open HolKernel boolLib bossLib IndDefLib IndDefRules listTheory optionTheory relationTheory pairTheory -open rich_listTheory combinTheory arithmeticTheory; -open ottTheory ottLib caml_typedefTheory; -open utilTheory; - -val _ = new_theory "shift"; - -val shiftt_add_thm = Q.store_thm ("shiftt_add_thm", -`(!t. (shiftt m 0 t = t) /\ - (!x y. shiftt m (x + y) t = shiftt m x (shiftt m y t))) /\ - (!tl. (MAP (shiftt m 0) tl = tl) /\ - (!x y. (MAP (shiftt m (x + y)) tl = MAP (shiftt m x o shiftt m y) tl)))`, -Induct THEN SRW_TAC [ARITH_ss] [shiftt_def, MAP_MAP] THEN METIS_TAC []); - -val shiftts_add_thm = Q.store_thm ("shiftts_add_thm", -`!ts. (shiftts m 0 ts = ts) /\ - (!x y. shiftts m (x + y) ts = shiftts m x (shiftts m y ts))`, -Cases THEN SRW_TAC [] [shiftts_def, shiftt_add_thm]); - -val shifttes_add_thm = Q.store_thm ("shifttes_add_thm", -`!tes. (shifttes m 0 tes = tes) /\ - (!x y. shifttes m (x + y) tes = shifttes m x (shifttes m y tes))`, -Cases THEN SRW_TAC [] [shifttes_def, shiftt_add_thm, MAP_MAP_o]); - -val shiftEB_add_thm = Q.store_thm ("shiftEB_add_thm", -`!EB. (shiftEB m 0 EB = EB) /\ - (!x y. shiftEB m (x + y) EB = shiftEB m x (shiftEB m y EB))`, -Cases THEN SRW_TAC [] [shiftEB_def, shiftt_add_thm, shifttes_add_thm, shiftts_add_thm]); - -val shiftTsig_add_thm = Q.store_thm ("shiftTsig_add_thm", -`!S. (shiftTsig m 0 S = S) /\ - (!x y. shiftTsig m x (shiftTsig m y S) = shiftTsig m (x + y) S)`, -Induct THEN SRW_TAC [] [shiftTsig_def, shiftt_add_thm, MAP_MAP, LAMBDA_PROD2]); - -(* -val shiftE_add_thm = Q.store_thm ("shiftE_add_thm", -`!E m. (shiftE m 0 E = E) /\ - (!x y. shiftE m (x + y) E = shiftE m x (shiftE m y E))`, -Induct THEN SRW_TAC [] [shiftE_def] THEN Cases_on `h` THEN -SRW_TAC [] [shiftEB_def, shiftE_def, shiftt_add_thm, shifttes_add_thm, shiftts_add_thm]); -*) - -val num_tv_append_thm = Q.store_thm ("num_tv_append_thm", -`!E1 E2. num_tv (E1++E2) = num_tv E1 + num_tv E2`, -Induct THEN SRW_TAC [] [num_tv_def] THEN Cases_on `h` THEN SRW_TAC [ARITH_ss] [num_tv_def]); - -val shiftE_append_thm = Q.store_thm ("shiftE_append_thm", -`!E1 E2 m n. shiftE m n (E1++E2) = shiftE (m + num_tv E2) n E1 ++ shiftE m n E2`, -Induct THEN SRW_TAC [ARITH_ss] [shiftE_def, num_tv_append_thm]); - -val is_src_t_shift_thm = Q.store_thm ("is_src_t_shift_thm", -`(!t. is_src_typexpr_of_typexpr t ==> !m n. (shiftt m n t = t)) /\ - (!tl. EVERY is_src_typexpr_of_typexpr tl ==> (!m n. MAP (\t. shiftt m n t) tl = tl))`, -Induct THEN SRW_TAC [] [shiftt_def, is_src_typexpr_of_typexpr_def] THEN METIS_TAC []); - -val shiftt_com_lem = Q.store_thm ("shiftt_com_lem", -`(!t n m l. shiftt (m + n + l) l (shiftt m l t) = shiftt m l (shiftt (m + n) l t)) /\ - (!tl n m l. MAP (\t. shiftt (m + n + l) l (shiftt m l t)) tl = MAP (\t. shiftt m l (shiftt (m + n) l t)) tl)`, -Induct THEN SRW_TAC [] [shiftt_def, MAP_MAP, COND_EXPAND_EQ] THEN DECIDE_TAC); - -val shiftts_com_lem = Q.store_thm ("shiftts_com_lem", -`!t n m l. shiftts (m + n + l) l (shiftts m l t) = shiftts m l (shiftts (m + n) l t)`, -Cases THEN SRW_TAC [] [shiftts_def] THEN METIS_TAC [ADD_ASSOC, ADD_COMM, shiftt_com_lem]); - -val shifttes_com_lem = Q.store_thm ("shifttes_com_lem", -`!ts n m l. shifttes (m + n + l) l (shifttes m l ts) = shifttes m l (shifttes (m + n) l ts)`, -Cases THEN SRW_TAC [] [shifttes_def, shiftt_com_lem, MAP_MAP]); - -val shiftEB_com_lem = Q.store_thm ("shiftEB_com_lem", -`!EB n m l. shiftEB (m + n + l) l (shiftEB m l EB) = shiftEB m l (shiftEB (m + n) l EB)`, -Cases THEN SRW_TAC [] [shiftEB_def, shifttes_com_lem, shiftts_com_lem, shiftt_com_lem]); - -val subst_shiftt_com_lem = Q.store_thm ("subst_shiftt_com_lem", -`(!t substs m n. shiftt m n (substs_typevar_typexpr substs t) = - substs_typevar_typexpr (MAP (\(tv, t'). (tv, shiftt m n t')) substs) (shiftt m n t)) /\ - (!tl substs m n. MAP (\t. shiftt m n (substs_typevar_typexpr substs t)) tl = - MAP (\t. substs_typevar_typexpr (MAP (\(tv, t'). (tv, shiftt m n t')) substs) (shiftt m n t)) - tl)`, -Induct THEN SRW_TAC [] [substs_typevar_typexpr_def, shiftt_def, MAP_MAP] THEN -Cases_on `list_assoc t substs` THEN SRW_TAC [] [LAMBDA_PROD2, shiftt_def, list_assoc_map]); - -val shiftTsig_com_lem = Q.store_thm ("shiftTsig_com_lem", -`!subst n m l. shiftTsig (m + n + l) l (shiftTsig m l subst) = shiftTsig m l (shiftTsig (m + n) l subst)`, -Induct THEN SRW_TAC [] [shiftTsig_def, LAMBDA_PROD2, MAP_MAP, shiftt_com_lem]); - -val shiftt_11 = Q.store_thm ("shiftt_11", -`(!r r' n. (shiftt n 1 r = shiftt n 1 r') = (r = r')) /\ - (!rl rl' n. (MAP (\r. shiftt n 1 r) rl = MAP (\r. shiftt n 1 r) rl') = (rl = rl'))`, -Induct THEN SRW_TAC [] [shiftt_def] THENL -[Cases_on `r'`, - Cases_on `r'`, - Cases_on `r'`, - Cases_on `r'`, - Cases_on `r''`, - Cases_on `r'`, - Cases_on `r'`, - Cases_on `rl'`, - Cases_on `rl'`] - THEN FULL_SIMP_TAC list_ss [shiftt_def] THEN SRW_TAC [] [] THEN DECIDE_TAC); - -val idxsubn_def = ottDefine "idxsubn" -`(idxsubn n tl (TE_var v) = TE_var v) /\ - (idxsubn n tl (TE_idxvar n' n'') = - if n' = n then - (if n'' < LENGTH tl then EL n'' tl else TE_constr [] TC_unit) - else if n' < n then - TE_idxvar n' n'' - else - TE_idxvar (n' - 1) n'') /\ - (idxsubn n tl TE_any = TE_any) /\ - (idxsubn n tl (TE_arrow t1 t2) = TE_arrow (idxsubn n tl t1) (idxsubn n tl t2)) /\ - (idxsubn n tl (TE_tuple tl') = TE_tuple (MAP (idxsubn n tl) tl')) /\ - (idxsubn n tl (TE_constr tl' tcn) = TE_constr (MAP (idxsubn n tl) tl') tcn)`; - -val idxsubnts_def = Define -`idxsubnts n tl (TS_forall t) = TS_forall (idxsubn (n+1) (MAP (shiftt 0 1) tl) t)`; - -val idxsubntes_def = Define -`idxsubntes n tl (typexprs_inj tes) = typexprs_inj (MAP (idxsubn n tl) tes)`; - -val idxsubnEB_def = Define -`(idxsubnEB n tl EB_tv = EB_tv) /\ - (idxsubnEB n tl (EB_vn vn ts) = EB_vn vn (idxsubnts n tl ts)) /\ - (idxsubnEB n tl (EB_cc cn tc) = EB_cc cn tc) /\ - (idxsubnEB n tl (EB_pc cn tpo tes tc) = EB_pc cn tpo (idxsubntes n tl tes) tc) /\ - (idxsubnEB n tl (EB_fn fn tpo tcn t) = EB_fn fn tpo tcn (idxsubn n tl t)) /\ - (idxsubnEB n tl (EB_td tcn k) = EB_td tcn k) /\ - (idxsubnEB n tl (EB_tr tcn k fnl) = EB_tr tcn k fnl) /\ - (idxsubnEB n tl (EB_ta tpo tcn t) = EB_ta tpo tcn (idxsubn n tl t)) /\ - (idxsubnEB n tl (EB_l l t) = EB_l l (idxsubn n tl t))`; - -val idxsubnE_def = Define -`(idxsubnE n tl [] = []) /\ - (idxsubnE n tl (EB::E) = idxsubnEB (n + num_tv E) (MAP (shiftt 0 (n + num_tv E)) tl) EB::idxsubnE n tl E)`; - -val sub_shiftt_thm = Q.store_thm ("sub_shiftt_thm", -`(!t n m tl. idxsubn n tl (shiftt n (m + 1) t) = shiftt n m t) /\ - (!tl' n m tl. MAP (\t. idxsubn n tl (shiftt n (m + 1) t)) tl' = MAP (shiftt n m) tl')`, -Induct THEN SRW_TAC [ARITH_ss] [shiftt_def, idxsubn_def, MAP_MAP] THEN METIS_TAC []); - -val sub_shiftt_thm2 = Q.store_thm ("sub_shiftt_thm2", -`(!t n m tl. idxsubn n tl (shiftt n 1 t) = t) /\ - (!tl' n m tl. MAP (\t. idxsubn n tl (shiftt n 1 t)) tl' = tl')`, -Induct THEN SRW_TAC [ARITH_ss] [shiftt_def, idxsubn_def, MAP_MAP]); - -val sub_shifttes_thm = Q.store_thm ("sub_shifttes_thm", -`!tes n tl. idxsubntes n tl (shifttes n 1 tes) = tes`, -Cases THEN SRW_TAC [ARITH_ss] [idxsubntes_def, shifttes_def, sub_shiftt_thm2, MAP_MAP, MAP_I]); - -val sub_shiftts_thm = Q.store_thm ("sub_shiftts_thm", -`!ts n tl. idxsubnts n tl (shiftts n 1 ts) = ts`, -Cases THEN SRW_TAC [] [idxsubnts_def, shiftts_def, sub_shiftt_thm2]); - -val sub_shiftEB_thm = Q.store_thm ("sub_shiftEB_thm", -`!EB n tl. idxsubnEB n tl (shiftEB n 1 EB) = EB`, -Cases THEN SRW_TAC [] [idxsubnEB_def, shiftEB_def, sub_shiftt_thm2, sub_shifttes_thm, sub_shiftts_thm]); - -val idxsubnE_num_tv_thm = Q.store_thm ("idxsubnE_num_tv_thm", -`!E n tl. num_tv (idxsubnE n tl E) = num_tv E`, -Induct THEN SRW_TAC [] [num_tv_def, idxsubnE_def] THEN Cases_on `h` THEN -SRW_TAC [] [num_tv_def, idxsubnE_def, idxsubnEB_def]); - -local - -val lem1 = Q.prove ( -`(!t. (ftv_typexpr t = []) ==> (substs_typevar_typexpr substs t = t)) /\ - (!tl. EVERY (\t. ftv_typexpr t = []) tl ==> (MAP (substs_typevar_typexpr substs) tl = tl))`, -Induct THEN SRW_TAC [] [ftv_typexpr_def, substs_typevar_typexpr_def, FLAT_EQ_EMPTY, EVERY_MAP] THEN -METIS_TAC []); - -in - -val idxsubn_subst_com_lem = Q.store_thm ("idxsubn_subst_com_lem", -`(!t substs n tl. EVERY (\t. ftv_typexpr t = []) tl ==> - (idxsubn n tl (substs_typevar_typexpr substs t) = - substs_typevar_typexpr (MAP (\(tv, t'). (tv, idxsubn n tl t')) substs) (idxsubn n tl t))) /\ - (!tl substs n tl'. EVERY (\t. ftv_typexpr t = []) tl' ==> - (MAP (\t. idxsubn n tl' (substs_typevar_typexpr substs t)) tl = - MAP (\t. substs_typevar_typexpr (MAP (\(tv, t'). (tv, idxsubn n tl' t')) substs) (idxsubn n tl' t)) - tl))`, -Induct THEN SRW_TAC [] [ftv_typexpr_def, idxsubn_def, substs_typevar_typexpr_def, MAP_MAP] THENL -[Cases_on `list_assoc t substs` THEN SRW_TAC [] [list_assoc_map, idxsubn_def, LAMBDA_PROD2], - FULL_SIMP_TAC list_ss [EVERY_EL] THEN METIS_TAC [lem1]]); - -end; - -val src_t_idxsubn_thm = Q.store_thm ("src_t_idxsubn_thm", -`(!t x y. is_src_typexpr_of_typexpr t ==> (idxsubn x y t = t)) /\ - (!tl x y. EVERY is_src_typexpr_of_typexpr tl ==> (MAP (idxsubn x y) tl = tl))`, -Induct THEN SRW_TAC [] [idxsubn_def, is_src_typexpr_of_typexpr_def] THEN METIS_TAC []); - -val idxsubnE_append_thm = Q.store_thm ("idxsubnE_append_thm", -`!E1 E2 n tl. idxsubnE n tl (E1++E2) = idxsubnE (num_tv E2 + n) tl E1 ++ idxsubnE n tl E2`, -Induct THEN SRW_TAC [ARITH_ss] [idxsubnE_def, num_tv_def, num_tv_append_thm]); - -val shift_idxsubn_com_thm = Q.store_thm ("shift_idxsubn_com_thm", -`(!t y z tl. shiftt 0 y (idxsubn z tl t) = idxsubn (y + z) (MAP (shiftt 0 y) tl) (shiftt 0 y t)) /\ - (!tl' y z tl. MAP (\t. shiftt 0 y (idxsubn z tl t)) tl' = - MAP (\t. idxsubn (y + z) (MAP (shiftt 0 y) tl) (shiftt 0 y t)) tl')`, -Induct THEN SRW_TAC [ARITH_ss] [idxsubn_def, shiftt_def, EL_MAP, COND_EXPAND_EQ, MAP_MAP]); - -val no_num_tv_thm = Q.store_thm ("no_num_tv_thm", -`!E. ~MEM EB_tv E ==> (num_tv E = 0)`, -Induct THEN SRW_TAC [] [num_tv_def] THEN Cases_on `h` THEN SRW_TAC [] [num_tv_def]); - -val _ = export_theory(); diff --git a/vendors/ott/examples/ocaml_light/hol/storeScript.sml b/vendors/ott/examples/ocaml_light/hol/storeScript.sml deleted file mode 100644 index e65d2ef21b2e..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/storeScript.sml +++ /dev/null @@ -1,170 +0,0 @@ -open bossLib HolKernel boolLib listTheory rich_listTheory optionTheory combinTheory arithmeticTheory pairTheory; -open ottTheory ottLib caml_typedefTheory; -open utilTheory basicTheory shiftTheory environmentTheory validTheory; -open weakenTheory shiftTheory remv_tyvarTheory type_substsTheory; - -val _ = Parse.hide "S"; - -val _ = new_theory "store"; - -val store_typing_thm = Q.store_thm ("store_typing_thm", -`!E st E'. JTstore E st E' ==> !l. (MEM (name_l l) (MAP domEB E') = - ?v. (list_assoc l st = SOME v) /\ is_value_of_expr v)`, -RULE_INDUCT_TAC JTstore_ind [list_assoc_def, domEB_def] [] THEN METIS_TAC []); - -val empty_type_sub_inst_any_thm = Q.prove ( -`!E t src_t. JTinst_any E t src_t ==> !S'. JTinst_any E t (substs_typevar_typexpr S' src_t)`, -RULE_INDUCT_TAC JTinst_any_ind [JTinst_any_fun, substs_typevar_typexpr_def] -[([``"JTinst_any_tuple"``, ``"JTinst_any_ctor"``], - SRW_TAC [] [] THEN Q.EXISTS_TAC `MAP (\x. (FST x, substs_typevar_typexpr S' (SND x))) t_t'_list` THEN - SRW_TAC [] [MAP_MAP, ETA_THM, EVERY_MAP] THEN FULL_SIMP_TAC list_ss [EVERY_MEM])]); - -val empty_type_sub_pat_thm = Q.prove ( -`!S E pm t E'. JTpat S E pm t E' ==> (S = []) ==> !S'. JTpat S' E pm t E'`, -RULE_INDUCT_TAC JTpat_ind [JTpat_fun] -[([``"JTpat_typed"``], - SRW_TAC [] [substs_tv_empty_thm] THEN METIS_TAC [empty_type_sub_inst_any_thm]), - ([``"JTpat_construct"``, ``"JTpat_tuple"``, ``"JTpat_record"``], - SRW_TAC [] [EVERY_MEM] THEN METIS_TAC []), - ([``"JTpat_construct_any"``, ``"JTpat_cons"``, ``"JTpat_or"``], - METIS_TAC [])]); - -val empty_type_sub_thm = Q.prove ( -`(!S E e t. JTe S E e t ==> (S = []) ==> !S'. JTe S' E e t) /\ - (!S E p t t'. JTpat_matching S E p t t' ==> (S = []) ==> !S'. JTpat_matching S' E p t t') /\ - (!S E lb E'. JTlet_binding S E lb E' ==> (S = []) ==> !S'. JTlet_binding S' E lb E') /\ - (!S E lrbs E'. JTletrec_binding S E lrbs E' ==> (S = []) ==> !S'. JTletrec_binding S' E lrbs E')`, -RULE_INDUCT_TAC JTe_sind [JTe_fun, shiftTsig_def] -[([``"JTe_typed"``], - SRW_TAC [] [substs_tv_empty_thm] THEN METIS_TAC [empty_type_sub_inst_any_thm]), - ([``"JTe_tuple"``, ``"JTe_construct"``, ``"JTe_record_constr"``, ``"JTe_record_with"``, - ``"JTletrec_binding_equal_function"``], - SRW_TAC [] [EVERY_MEM] THEN METIS_TAC []), - ([``"JTpat_matching_pm"``], - SRW_TAC [] [EVERY_MEM] THEN METIS_TAC [empty_type_sub_pat_thm]), - ([``"JTlet_binding_poly"``], - METIS_TAC [empty_type_sub_pat_thm])] -THEN -METIS_TAC []); - -val store_dom_thm = Q.prove ( -`!E st E'. JTstore E st E' ==> (MAP (\x. name_l (FST x)) st = MAP domEB E')`, -RULE_INDUCT_TAC JTstore_ind [domEB_def] -[]); - -local - -val lem1 = Q.prove ( -`!E1 st E2. JTstore E1 st E2 ==> !l v. (list_assoc l st = SOME v) ==> - ?t. (!S. JTe S E1 v t) /\ (lookup E2 (name_l l) = SOME (EB_l l t))`, -RULE_INDUCT_TAC JTstore_ind [list_assoc_def] [] THEN -SRW_TAC [] [COND_EXPAND_EQ, lookup_def, shiftEB_add_thm, domEB_def] THEN METIS_TAC [empty_type_sub_thm]); - -val lem2 = Q.prove ( -`!E l. type_env E ==> ~MEM (name_l l) (MAP domEB E)`, -Induct THEN SRW_TAC [] [type_env_def] THEN Cases_on `h` THEN -FULL_SIMP_TAC (srw_ss()) [type_env_def, domEB_def]); - -val lem3 = Q.prove ( -`!E st E'. JTstore E st E' ==> (!v. ~(list_assoc l st = SOME v)) ==> ~MEM (name_l l) (MAP domEB E')`, -RULE_INDUCT_TAC JTstore_ind [list_assoc_def, domEB_def] -[] THEN SRW_TAC [] []); - -val lem4 = (SIMP_RULE list_ss [] o GEN_ALL o - Q.SPECL [`[EB]`, `E`, `[]`, `v`, `t`, `[]`] o GEN_ALL o - SIMP_RULE list_ss [AND_IMP_INTRO, GSYM RIGHT_FORALL_IMP_THM]) - (hd (CONJUNCTS weak_not_tv_thm)); - -val lem5 = SIMP_RULE list_ss [AND_IMP_INTRO, GSYM RIGHT_FORALL_IMP_THM] (Q.prove ( -`!E st E'. JTstore E st E' ==> !l t. Eok (EB_l l t::E) ==> JTstore (EB_l l t::E) st E'`, -RULE_INDUCT_TAC JTstore_ind [JTstore_fun] -[([``"JTstore_map"``], - SRW_TAC [] [] THEN MATCH_MP_TAC lem4 THEN - FULL_SIMP_TAC (srw_ss()) [domEB_def, MEM_MAP, Eok_def])])); - -val lem6 = SIMP_RULE list_ss [AND_IMP_INTRO, GSYM RIGHT_FORALL_IMP_THM] (Q.prove ( -`!E st E'. JTstore E st E' ==> !st1 st2 l v v' t. (st = st1++[(l, v')]++st2) /\ is_value_of_expr v /\ - JTe [] E v t /\ (lookup E' (name_l l) = SOME (EB_l l t)) /\ ~MEM l (MAP FST st1) ==> - JTstore E (st1++[(l, v)]++st2) E'`, -RULE_INDUCT_TAC JTstore_sind [] -[] THEN -SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [lookup_def, domEB_def, COND_EXPAND_EQ, shiftEB_add_thm] THEN -SRW_TAC [] [] THEN Cases_on `st1` THEN FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [JTstore_fun] THEN -FULL_SIMP_TAC list_ss [FST])); - -val lem7 = Q.prove ( -`!E' E1 l t. (lookup (E' ++ E1) (name_l l) = SOME (EB_l l t)) /\ type_env E1 ==> - (lookup E' (name_l l) = SOME (EB_l l t))`, -SRW_TAC [] [lookup_append_thm] THEN Cases_on `lookup E' (name_l l)` THEN FULL_SIMP_TAC (srw_ss()) [] THEN -IMP_RES_TAC lookup_dom_thm THEN METIS_TAC [lem2]); - -val lem8 = Q.prove ( -`!st'. DISJOINT (remove_vn_tv (MAP (\x. name_l (FST x)) st')) (remove_vn_tv [name_l l]) ==> - ~MEM l (MAP FST st')`, -SRW_TAC [] [DISJOINT_MEM, EVERY_MEM] THEN POP_ASSUM (ASSUME_TAC o Q.SPEC `name_l l`) THEN -FULL_SIMP_TAC (srw_ss()) [remove_vn_tv_thm, MEM_MAP]); - -in - -val store_in_thm = Q.store_thm ("store_in_thm", -`!st L st'. JRstore st L st' ==> !E' E1 E2. type_env E1 /\ JTstore (E'++E1) st E' ==> - !S. JTLin S (E'++E1) L`, -RULE_INDUCT_TAC JRstore_ind [JTLin_cases] -[([``"JRstore_lookup"``], - SRW_TAC [] [lookup_append_thm] THEN METIS_TAC [lem1, option_case_def]), - ([``"JRstore_alloc"``], - SRW_TAC [] [lem2] THEN METIS_TAC [lem3])]); - -val store_out_thm = Q.store_thm ("store_out_thm", -`!st L st'. JRstore st L st' ==> !E' E'' E1 E2 E7 S. JTstore (E'++E1) st E' /\ JTLout S (E'++E1) L E7 /\ - type_env E1 ==> - JTstore (E7++E'++E1) st' (E7++E')`, -RULE_INDUCT_TAC JRstore_ind [JTLout_cases] -[([``"JRstore_alloc"``], - SRW_TAC [] [JTstore_fun] THEN SRW_TAC [] [value_remv_tyvar_thm] THENL - [MATCH_MP_TAC lem5 THEN SRW_TAC [] [Eok_def] THEN METIS_TAC [ok_thm, lem2, lem3], - MATCH_MP_TAC lem4 THEN SRW_TAC [] [Eok_def, domEB_def, remv_tyvar_fv_thm] THEN - METIS_TAC [remv_tyvar_thm, MEM_MAP, name_distinct, ok_thm, lem2, lem3]]), - ([``"JRstore_assign"``], - SRW_TAC [] [] THEN SRW_TAC [] [] THEN MATCH_MP_TAC lem6 THEN MAP_EVERY Q.EXISTS_TAC [`expr`, `t`] THEN - SRW_TAC [] [value_remv_tyvar_thm, lookup_append_thm] THENL - [METIS_TAC [remv_tyvar_thm], - METIS_TAC [lem7], - IMP_RES_TAC store_dom_thm THEN - `ALL_DISTINCT (remove_vn_tv (MAP domEB (E'++E1)))` - by METIS_TAC [Eok_dom_thm, ok_thm, ok_ok_thm] THEN - FULL_SIMP_TAC list_ss [ALL_DISTINCT_APPEND, remove_vn_tv_APPEND] THEN - `ALL_DISTINCT (remove_vn_tv (MAP (\x. name_l (FST x)) st' ++ [name_l l] ++ - MAP (\x. name_l (FST x)) st))` - by METIS_TAC [] THEN - FULL_SIMP_TAC list_ss [ALL_DISTINCT_APPEND, remove_vn_tv_APPEND] THEN - METIS_TAC [lem8]])]); -end; - -local - -val lem1 = Q.prove ( -`!E. type_env E ==> ~MEM EB_tv E`, -Induct THEN SRW_TAC [] [type_env_def] THEN Cases_on `h` THEN -FULL_SIMP_TAC (srw_ss ()) [type_env_def]); - -val lem2 = Q.prove ( -`!E. type_env E /\ MEM n (MAP domEB E) ==> ~?vn. n = name_vn vn`, -Induct THEN SRW_TAC [] [type_env_def] THEN Cases_on `h` THEN -FULL_SIMP_TAC (srw_ss ()) [type_env_def, domEB_def]); - -in - -val type_env_store_weak_thm = Q.store_thm ("type_env_store_weak_thm", -`!E st E'. JTstore E st E' ==> !E1 E2 E3. (E = E1++E3) /\ type_env E2 /\ Eok (E1++E2++E3) ==> - JTstore (E1++E2++E3) st E'`, -RULE_INDUCT_TAC JTstore_ind [JTstore_fun] -[([``"JTstore_map"``], - SRW_TAC [] [] THEN - MATCH_MP_TAC ((SIMP_RULE list_ss [AND_IMP_INTRO, GSYM RIGHT_FORALL_IMP_THM] o hd o CONJUNCTS) - weak_not_tv_thm) THEN - SRW_TAC [] [lem1] THEN METIS_TAC [lem2, MEM_MAP])]); -end; - - -val _ = export_theory (); diff --git a/vendors/ott/examples/ocaml_light/hol/strengthenScript.sml b/vendors/ott/examples/ocaml_light/hol/strengthenScript.sml deleted file mode 100644 index d70d89deab94..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/strengthenScript.sml +++ /dev/null @@ -1,128 +0,0 @@ -open bossLib HolKernel boolLib listTheory rich_listTheory optionTheory combinTheory arithmeticTheory; -open ottLib caml_typedefTheory; -open utilTheory basicTheory environmentTheory shiftTheory; - -val _ = new_theory "strengthen"; - -val _ = Parse.hide "S"; - -val value_env_teq_str_thm = Q.store_thm ("value_env_teq_str_thm", -`!E t1 t2. JTeq E t1 t2 ==> (E=E1++E2++E3) /\ value_env E2 ==> JTeq (E1++E3) t1 t2`, -RULE_INDUCT_TAC JTeq_ind [] -[([``"JTeq_refl"``], METIS_TAC [value_env_ok_str_thm, JTeq_rules]), - ([``"JTeq_sym"``], METIS_TAC [JTeq_rules]), - ([``"JTeq_trans"``], METIS_TAC [JTeq_rules]), - ([``"JTeq_arrow"``], METIS_TAC [JTeq_rules]), - ([``"JTeq_tuple"``], - SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [Once JTeq_cases] THEN NTAC 3 DISJ2_TAC THEN - METIS_TAC []), - ([``"JTeq_constr"``], - SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [Once JTeq_cases] THEN NTAC 4 DISJ2_TAC THEN - METIS_TAC [value_env_ok_str_thm]), - ([``"JTeq_expand"``], - SRW_TAC [] [] THEN SRW_TAC [] [Once JTeq_cases, MAP_MAP] THEN NTAC 3 DISJ2_TAC THEN DISJ1_TAC THEN - IMP_RES_TAC value_env_lookup_str_thm THEN FULL_SIMP_TAC (srw_ss()) [shiftEB_def] THEN - FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN METIS_TAC [value_env_ok_str_thm])]); - -val value_env_inst_str_thm = Q.store_thm ("value_env_inst_str_thm", -`!E1 E2 E3 t ts. value_env E2 /\ JTinst (E1++E2++E3) t ts ==> JTinst (E1++E3) t ts`, -SRW_TAC [] [JTinst_cases, EVERY_MEM] THEN METIS_TAC [value_env_ok_str_thm]); - -val value_env_inst_named_str_thm = Q.store_thm ("value_env_inst_named_str_thm", -`!E1 E2 E3 t tpo t'. value_env E2 /\ JTinst_named (E1++E2++E3) t tpo t' ==> JTinst_named (E1++E3) t tpo t'`, -SRW_TAC [] [JTinst_named_cases, EVERY_MEM] THEN METIS_TAC [value_env_ok_str_thm]); - -val value_env_constr_p_str_thm = Q.store_thm ("value_env_constr_p_str_thm", -`!E1 E2 E3 c ts t. value_env E2 /\ JTconstr_p (E1++E2++E3) c ts t ==> JTconstr_p (E1++E3) c ts t`, -SRW_TAC [] [JTconstr_p_cases] THEN -METIS_TAC [value_env_ok_str_thm, value_env_lookup_str_thm, value_env_inst_named_str_thm]); - -val value_env_constr_c_str_thm = Q.store_thm ("value_env_constr_c_str_thm", -`!E1 E2 E3 c t. value_env E2 /\ JTconstr_c (E1++E2++E3) c t ==> JTconstr_c (E1++E3) c t`, -SRW_TAC [] [JTconstr_c_cases] THEN -METIS_TAC [value_env_ok_str_thm, value_env_lookup_str_thm, value_env_inst_named_str_thm, EVERY_MEM]); - -val value_env_field_str_thm = Q.store_thm ("value_env_field_str_thm", -`!E1 E2 E3 c ts t. value_env E2 /\ JTfield (E1++E2++E3) c ts t ==> JTfield (E1++E3) c ts t`, -SRW_TAC [] [JTfield_cases] THEN -METIS_TAC [value_env_ok_str_thm, value_env_lookup_str_thm, value_env_inst_named_str_thm]); - -val value_env_const_str_thm = Q.store_thm ("value_env_const_str_thm", -`!E1 E2 E3 c t. value_env E2 /\ JTconst (E1++E2++E3) c t ==> JTconst (E1++E3) c t`, -SRW_TAC [] [JTconst_cases] THEN -METIS_TAC [value_env_ok_str_thm, value_env_constr_c_str_thm]); - -val value_env_inst_any_thm = Q.store_thm ("value_env_inst_any_thm", -`!E t t'. JTinst_any E t t' ==> !E1 E2 E3. (E = E1++E2++E3) /\ value_env E2 ==> JTinst_any (E1++E3) t t'`, -RULE_INDUCT_TAC JTinst_any_ind [JTinst_any_fun, EVERY_MEM] [] THEN -METIS_TAC [value_env_ok_str_thm]); - -val value_env_pat_str_thm = SIMP_RULE list_ss [GSYM RIGHT_FORALL_IMP_THM] ( Q.prove ( -`!S E p t E'. JTpat S E p t E' ==> !E1 E2 E3. (E = E1++E2++E3) /\ value_env E2 ==> JTpat S (E1++E3) p t E'`, -RULE_INDUCT_TAC JTpat_ind [JTpat_fun] [] THEN -SRW_TAC [ARITH_ss] [] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN -METIS_TAC [value_env_ok_str_thm, value_env_const_str_thm, value_env_constr_p_str_thm, - value_env_field_str_thm, value_env_inst_any_thm, value_env_teq_str_thm])); - -val _ = save_thm ("value_env_pat_str_thm", value_env_pat_str_thm); - -val value_env_uprim_str_thm = Q.store_thm ("value_env_uprim_str_thm", -`!E1 E2 E3 u t. value_env E2 /\ JTuprim (E1++E2++E3) u t ==> JTuprim (E1++E3) u t`, -SRW_TAC [] [JTuprim_cases] THEN METIS_TAC [value_env_ok_str_thm]); - -val value_env_bprim_str_thm = Q.store_thm ("value_env_bprim_str_thm", -`!E1 E2 E3 u t. value_env E2 /\ JTbprim (E1++E2++E3) u t ==> JTbprim (E1++E3) u t`, -SRW_TAC [] [JTbprim_cases] THEN METIS_TAC [value_env_ok_str_thm]); - -val value_env_val_name_str_thm = Q.store_thm ("value_env_val_name_str_thm", -`!E1 E2 E3 vn t. value_env E2 /\ (!x. MEM x (MAP domEB E2) ==> MEM x (MAP domEB E1)) /\ - JTvalue_name (E1++E2++E3) vn t ==> - JTvalue_name (E1++E3) vn t`, -SRW_TAC [] [JTvalue_name_cases, lookup_append_thm] THEN -Cases_on `lookup E1 (name_vn vn)` THEN FULL_SIMP_TAC list_ss [] THENL -[Cases_on `lookup E2 (name_vn vn)` THEN FULL_SIMP_TAC list_ss [num_tv_append_thm] THEN SRW_TAC [] [] THEN - METIS_TAC [value_env_inst_str_thm, lookup_dom_thm, value_env_num_tv_thm, ADD_0], - METIS_TAC [value_env_inst_str_thm]]); - -val value_env_str_thm = -SIMP_RULE list_ss [GSYM RIGHT_FORALL_IMP_THM] ( Q.prove ( -`(!S E e t. JTe S E e t ==> !E1. (E = E1++E2++E3) /\ value_env E2 /\ - (!x. MEM x (MAP domEB E2) ==> MEM x (MAP domEB E1)) ==> - JTe S (E1++E3) e t) /\ - (!S E pm t E'. JTpat_matching S E pm t E' ==> !E1. (E = E1++E2++E3) /\ value_env E2 /\ - (!x. MEM x (MAP domEB E2) ==> MEM x (MAP domEB E1)) ==> - JTpat_matching S (E1++E3) pm t E') /\ - (!S E lb E'. JTlet_binding S E lb E' ==> !E1. (E = E1++E2++E3) /\ value_env E2 /\ - (!x. MEM x (MAP domEB E2) ==> MEM x (MAP domEB E1)) ==> - JTlet_binding S (E1++E3) lb E') /\ - (!S E lrbs E'. JTletrec_binding S E lrbs E' ==> !E1. (E = E1++E2++E3) /\ value_env E2 /\ - (!x. MEM x (MAP domEB E2) ==> MEM x (MAP domEB E1)) ==> - JTletrec_binding S (E1++E3) lrbs E')`, -RULE_INDUCT_TAC JTe_ind [JTe_fun] -[([``"JTe_uprim"``, ``"JTe_bprim"``, ``"JTe_ident"``, ``"JTe_constant"``, ``"JTe_record_proj"``, - ``"JTe_typed"``], - METIS_TAC [value_env_uprim_str_thm, value_env_bprim_str_thm, value_env_const_str_thm, value_env_teq_str_thm, - value_env_val_name_str_thm, value_env_field_str_thm, value_env_inst_any_thm]), - ([``"JTe_tuple"``, ``"JTe_construct"``, ``"JTe_record_constr"``, ``"JTe_record_with"``, ``"JTe_apply"``], - FULL_SIMP_TAC list_ss [EVERY_MEM] THEN - METIS_TAC [value_env_constr_p_str_thm, value_env_lookup_str_thm, value_env_field_str_thm, - value_env_teq_str_thm]), - ([``"JTe_cons"``, ``"JTe_match"``, ``"JTe_and"``, ``"JTe_or"``, ``"JTe_while"``, ``"JTe_function"``], - METIS_TAC [value_env_teq_str_thm]), - ([``"JTe_for"``, ``"JTe_let_poly"``, ``"JTe_letrec"``, ``"JTe_let_mono"``], - SRW_TAC [] [shiftt_def] THEN FULL_SIMP_TAC std_ss [APPEND_11, GSYM APPEND, APPEND_ASSOC] THEN - FULL_SIMP_TAC list_ss [] THEN METIS_TAC [value_env_teq_str_thm]), - ([``"JTe_assert"``, ``"JTe_assertfalse"``], METIS_TAC [value_env_ok_str_thm, value_env_teq_str_thm]), - ([``"JTe_location"``], METIS_TAC [value_env_ok_str_thm, value_env_lookup_str_thm, value_env_teq_str_thm]), - ([``"JTpat_matching_pm"``], - SRW_TAC [ARITH_ss] [] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN - METIS_TAC [value_env_pat_str_thm, MEM_APPEND, MAP_APPEND]), - ([``"JTlet_binding_poly"``], METIS_TAC [value_env_pat_str_thm]), - ([``"JTletrec_binding_equal_function"``], - SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN - Q.EXISTS_TAC `value_name_pattern_matching_t_t'_list` THEN SRW_TAC [] [] THEN - METIS_TAC [MEM_APPEND, MAP_APPEND, value_env_ok_str_thm])])); - -val _ = save_thm ("value_env_str_thm", value_env_str_thm); - -val _ = export_theory (); diff --git a/vendors/ott/examples/ocaml_light/hol/substsScript.sml b/vendors/ott/examples/ocaml_light/hol/substsScript.sml deleted file mode 100644 index c16e194c3490..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/substsScript.sml +++ /dev/null @@ -1,957 +0,0 @@ -open HolKernel bossLib boolLib combinTheory listTheory rich_listTheory optionTheory pairTheory sortingTheory; -open wordsTheory markerTheory; -open ottTheory ottLib caml_typedefTheory; -open utilTheory basicTheory environmentTheory shiftTheory validTheory strengthenTheory; -open weakenTheory type_substTheory remv_tyvarTheory teqTheory; - -val _ = new_theory "substs"; - -val _ = Parse.hide "S"; - -val subst_nexp_thm = Q.store_thm ("subst_nexp_thm", -`!nexp v x. is_non_expansive_of_expr nexp /\ is_non_expansive_of_expr v ==> - is_non_expansive_of_expr (subst_value_name_expr v x nexp)`, -recInduct is_non_expansive_of_expr_ind THEN -SRW_TAC [] [is_non_expansive_of_expr_def, subst_value_name_letrec_binding_def, - EVERY_MAP, EVERY_MEM, LAMBDA_PROD2] THENL -[Cases_on `z` THEN METIS_TAC [SND], - Cases_on `expr1` THEN - FULL_SIMP_TAC list_ss [is_binary_prim_app_value_of_expr_def, subst_value_name_letrec_binding_def], - METIS_TAC []]); - -val substs_nexp_thm = Q.store_thm ("substs_nexp_thm", -`!nexp subs. is_non_expansive_of_expr nexp /\ EVERY (\x. is_non_expansive_of_expr (SND x)) subs ==> - is_non_expansive_of_expr (substs_value_name_expr subs nexp)`, -recInduct is_non_expansive_of_expr_ind THEN -SRW_TAC [] [is_non_expansive_of_expr_def, substs_value_name_letrec_binding_def, EVERY_MAP, EVERY_MEM, - LAMBDA_PROD2] THEN -FULL_SIMP_TAC list_ss [MEM_FILTER] THENL -[Cases_on `list_assoc value_name subs` THEN SRW_TAC [] [is_non_expansive_of_expr_def] THEN - METIS_TAC [list_assoc_mem, SND], - Cases_on `z` THEN METIS_TAC [SND], - Cases_on `expr1` THEN - FULL_SIMP_TAC list_ss [is_binary_prim_app_value_of_expr_def, substs_value_name_letrec_binding_def]]); - -local - -val lem1 = Q.prove ( -`!f. (case f of NONE -> NONE || SOME EB -> SOME EB) = f`, -Cases THEN SRW_TAC [] []); - -val lem2 = Q.prove ( -`!l x_t_list z. ~MEM (FST z) l /\ (MAP name_vn l = MAP (\z. name_vn (FST z)) x_t_list) ==> - ~MEM z x_t_list`, -Induct THEN SRW_TAC [] [] THEN Cases_on `x_t_list` THEN FULL_SIMP_TAC list_ss [name_11] THEN METIS_TAC []); - -val lem3 = Q.prove ( -`JTpat (shiftTsig 0 (num_tv E1) S') (E1 ++ [EB_vn x (TS_forall t'')] ++ E2) p t E /\ - JTe (shiftTsig 0 (num_tv E1) S') (E ++ E1 ++ [EB_vn x (TS_forall t'')] ++ E2) e t' /\ - ( is_non_expansive_of_expr v /\ - (E ++ E1 ++ [EB_vn x (TS_forall t'')] ++ E2 = - (E++E1) ++ [EB_vn x (TS_forall t'')] ++ E2) /\ - (shiftTsig 0 (num_tv E1) S' = shiftTsig 0 (num_tv (E++E1)) S') /\ - ~MEM (name_vn x) (MAP domEB (E++E1)) /\ - closed_env E2 /\ - JTe (shiftTsig 0 1 S') (EB_tv::E2) v t'' ==> - JTe (shiftTsig 0 (num_tv (E++E1)) S') ((E++E1) ++ E2) (subst_value_name_expr v x e) t') /\ - is_non_expansive_of_expr v /\ - ~MEM (name_vn x) (MAP domEB E1) /\ - closed_env E2 /\ - JTe (shiftTsig 0 1 S') (EB_tv::E2) v t'' ==> - JTe (shiftTsig 0 (num_tv E1) S') (E ++ E1 ++ E2) - (if MEM x (aux_xs_pattern_of_pattern p) then - e - else - subst_value_name_expr v x e) - t'`, -SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [] THEN -IMP_RES_TAC aux_xs_pattern_of_pattern_thm THEN SRW_TAC [] [] THEN -`num_tv E = 0` by METIS_TAC [pat_env_lem, value_env_num_tv_thm] THEN -FULL_SIMP_TAC list_ss [] THENL -[MATCH_MP_TAC (GEN_ALL (hd (CONJUNCTS (SIMP_RULE list_ss [AND_IMP_INTRO] value_env_str_thm)))) THEN - Q.EXISTS_TAC `[EB_vn x (TS_forall t'')]` THEN - SRW_TAC [] [value_env_def, domEB_def, MAP_REVERSE, MEM_REVERSE, MAP_MAP] THEN - METIS_TAC [MEM_MAP, MEM_REVERSE], - FULL_SIMP_TAC list_ss [num_tv_append_thm] THEN - Q.PAT_ASSUM `~MEM (name_vn x) (MAP domEB E) ==> JTe - (shiftTsig 0 (num_tv E1) S') (E ++ E1 ++ E2) (subst_value_name_expr v x e) t'` - MATCH_MP_TAC THEN - METIS_TAC [MEM_MAP, name_11, MEM_REVERSE]]); - -val lem4 = Q.prove ( -`MEM x (MAP FST l) /\ - JTpat_matching (shiftTsig 0 (num_tv E1) S') - (REVERSE (MAP (\z. EB_vn (FST z) - (TS_forall (shiftt 0 1 (TE_arrow (FST (SND (SND z))) - (SND (SND (SND z))))))) l) ++ E1 ++ - [EB_vn x (TS_forall t'')] ++ E2) pm t t' ==> -JTpat_matching (shiftTsig 0 (num_tv E1) S') - (REVERSE (MAP (\z. EB_vn (FST z) - (TS_forall (shiftt 0 1 (TE_arrow (FST (SND (SND z))) - (SND (SND (SND z))))))) l) ++ E1 ++ - E2) pm t t'`, -Cases_on `pm` THEN SRW_TAC [] [JTe_fun] THEN -Q.EXISTS_TAC `pattern_e_E_list` THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THENL -[METIS_TAC [value_env_pat_str_thm, value_env_def], - SRW_TAC [] [] THEN - MATCH_MP_TAC (GEN_ALL (hd (CONJUNCTS (SIMP_RULE list_ss [AND_IMP_INTRO] value_env_str_thm)))) THEN - Q.EXISTS_TAC `[EB_vn x (TS_forall t'')]` THEN - SRW_TAC [] [value_env_def, MAP_REVERSE, MAP_MAP, domEB_def] THEN - Q.PAT_ASSUM `MEM x (MAP FST l)` MP_TAC THEN - REPEAT (POP_ASSUM (K ALL_TAC)) THEN Induct_on `l` THEN SRW_TAC [] [] THEN METIS_TAC []]); - -val lem5 = Q.prove ( -`!l f g. num_tv (MAP (\x. EB_vn (f x) (g x)) l) = 0`, -METIS_TAC [value_env_map_thm, value_env_num_tv_thm]); - -val lem6 = Q.prove ( -`(!t n m. shiftt n m (shiftt 0 n t) = shiftt 0 (n + m) t) /\ - (!tl n m. MAP (\t. shiftt n m (shiftt 0 n t)) tl = MAP (\t. shiftt 0 (n + m) t) tl)`, -Induct THEN SRW_TAC [] [shiftt_def, MAP_MAP] THEN DECIDE_TAC); - -val lem7 = Q.prove ( -`!S n m. shiftTsig n m (shiftTsig 0 n S) = shiftTsig 0 (n + m) S`, -Induct THEN SRW_TAC [] [shiftTsig_def, LAMBDA_PROD2, MAP_MAP, lem6]); - -val lem8 = Q.prove ( -`!S e t E E' t_list. - JTe (shiftTsig 0 1 S) (EB_tv::E) e t /\ - closed_env E /\ - Eok (E'++E) /\ - EVERY (tkind (E'++E)) t_list ==> - JTe (shiftTsig 0 (num_tv E') S) (E'++E) e (idxsub t_list (shiftt 1 (num_tv E') t))`, -SRW_TAC [] [GSYM idxsubn0_thm] THEN MATCH_MP_TAC type_subst_thm THEN SRW_TAC [] [] THEN -IMP_RES_TAC ((SIMP_RULE list_ss [Eok_def, num_tv_def] o - Q.SPECL [`shiftTsig 0 1 S`, `e`, `t`, `E'`, `E`]) weak_thm) THEN -FULL_SIMP_TAC list_ss [shiftTsig_add_thm, lem7]); - -in - -val subst_lem = Q.store_thm ("subst_lem", -`(!S E e t. JTe S E e t ==> - !S' E1 E2 x v t'. - is_non_expansive_of_expr v /\ - (E = E1 ++ [EB_vn x (TS_forall t')] ++ E2) /\ - (S = shiftTsig 0 (num_tv E1) S') /\ - ~MEM (name_vn x) (MAP domEB E1) /\ - closed_env E2 /\ - JTe (shiftTsig 0 1 S') (EB_tv::E2) v t' ==> - JTe S (E1++E2) (subst_value_name_expr v x e) t) /\ - (!S E pm t t'. JTpat_matching S E pm t t' ==> - !S' E1 E2 x v t''. - is_non_expansive_of_expr v /\ - (E = E1 ++ [EB_vn x (TS_forall t'')] ++ E2) /\ - (S = shiftTsig 0 (num_tv E1) S') /\ - ~MEM (name_vn x) (MAP domEB E1) /\ - closed_env E2 /\ - JTe (shiftTsig 0 1 S') (EB_tv::E2) v t'' ==> - JTpat_matching S (E1++E2) (subst_value_name_pattern_matching v x pm) t t') /\ - (!S E lb E'. JTlet_binding S E lb E' ==> - !S' E1 E2 x v t''. - is_non_expansive_of_expr v /\ - (E = E1 ++ [EB_vn x (TS_forall t'')] ++ E2) /\ - (S = shiftTsig 0 (num_tv E1) S') /\ - ~MEM (name_vn x) (MAP domEB E1) /\ - closed_env E2 /\ - JTe (shiftTsig 0 1 S') (EB_tv::E2) v t'' ==> - JTlet_binding S (E1++E2) (subst_value_name_let_binding v x lb) E') /\ - (!S E lrbs E'. JTletrec_binding S E lrbs E' ==> - !S' x E1 E2 v t''. - is_non_expansive_of_expr v /\ - (E = E1 ++ [EB_vn x (TS_forall t'')] ++ E2) /\ - (S = shiftTsig 0 (num_tv E1) S') /\ - ~MEM (name_vn x) (MAP domEB E1) /\ - closed_env E2 /\ - JTe (shiftTsig 0 1 S') (EB_tv::E2) v t'' ==> - if MEM x (aux_xs_letrec_bindings_of_letrec_bindings lrbs) then - JTletrec_binding S (E1++E2) lrbs E' - else - JTletrec_binding S (E1++E2) (subst_value_name_letrec_bindings v x lrbs) E')`, -RULE_INDUCT_TAC JTe_sind [subst_value_name_letrec_binding_def, JTe_fun] -[([``"JTe_uprim"``, ``"JTe_bprim"``, ``"JTe_constant"``, ``"JTe_typed"``], - FULL_SIMP_TAC list_ss [JTuprim_cases, JTbprim_cases, JTconst_cases, JTconstr_c_cases] THEN - SRW_TAC [] [] THEN - FULL_SIMP_TAC list_ss [lookup_def, domEB_def, name_distinct, EVERY_MEM] THEN - METIS_TAC [value_env_lookup_str_thm, value_env_ok_str_thm, APPEND, value_env_def, - value_env_inst_any_thm, value_env_teq_str_thm]), - ([``"JTe_apply"``, ``"JTe_match"``], METIS_TAC []), - ([``"JTe_ident"``], - SRW_TAC [] [] THEN SRW_TAC [] [JTe_fun] THEN - FULL_SIMP_TAC list_ss [JTvalue_name_cases, lookup_def, domEB_def, name_11, lookup_append_thm, - lookup_dom_thm] THEN - SRW_TAC [] [] THENL - [FULL_SIMP_TAC list_ss [JTinst_cases, shiftEB_def, shiftts_def] THEN SRW_TAC [] [] THEN - `JTe (shiftTsig 0 (num_tv E1) S'') (E1 ++ E2) v (idxsub t_list (shiftt 1 (num_tv E1) t'))` - by (MATCH_MP_TAC lem8 THEN SRW_TAC [] [] THENL - [METIS_TAC [value_env_ok_str_thm, value_env_def, ok_ok_thm], - FULL_SIMP_TAC list_ss [EVERY_MEM] THEN - METIS_TAC [value_env_ok_str_thm, value_env_def]]) THEN - METIS_TAC [teq_thm, value_env_def, value_env_teq_str_thm], - FULL_SIMP_TAC list_ss [lem1] THEN Cases_on `lookup E1 (name_vn value_name)` THEN - FULL_SIMP_TAC list_ss [option_case_def] THEN SRW_TAC [] [] THENL - [Cases_on `EB` THEN - FULL_SIMP_TAC list_ss [environment_binding_distinct, shiftEB_def, num_tv_append_thm, - num_tv_def] THEN - SRW_TAC [] [] THEN - METIS_TAC [value_env_inst_str_thm, value_env_ok_str_thm, value_env_def, - value_env_teq_str_thm], - METIS_TAC [value_env_inst_str_thm, value_env_ok_str_thm, value_env_def, - value_env_teq_str_thm]]]), - ([``"JTe_tuple"``, ``"JTe_construct"``], - SRW_TAC [] [] THEN - Q.EXISTS_TAC `MAP (\e_t. (subst_value_name_expr v x (FST e_t), SND e_t)) e_t_list` THEN - SRW_TAC [] [MAP_MAP, ETA_THM, EVERY_MAP] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN - METIS_TAC [value_env_def, value_env_constr_p_str_thm, APPEND, value_env_teq_str_thm]), - ([``"JTe_cons"``, ``"JTe_and"``, ``"JTe_or"``, ``"JTe_while"``, ``"JTe_function"``], - METIS_TAC [value_env_teq_str_thm, value_env_def]), - ([``"JTe_record_constr"``], - SRW_TAC [] [] THEN - MAP_EVERY Q.EXISTS_TAC [`field_name'_list`, `t'_list`, - `MAP (\fn_e_t. (FST fn_e_t, - subst_value_name_expr v x (FST (SND fn_e_t)), - SND (SND fn_e_t))) - field_name_e_t_list`, - `typeconstr_name`, - `kind`] THEN - SRW_TAC [] [MAP_MAP, ETA_THM, EVERY_MAP] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN1 - METIS_TAC [] THEN1 - METIS_TAC [value_env_def, value_env_field_str_thm, APPEND] THEN1 - METIS_TAC [value_env_def, value_env_lookup_str_thm, APPEND] THEN1 - METIS_TAC [value_env_teq_str_thm, value_env_def]), - ([``"JTe_record_with"``], - SRW_TAC [] [] THEN - Q.EXISTS_TAC `MAP (\fn_e_t. (FST fn_e_t, - subst_value_name_expr v x (FST (SND fn_e_t)), - SND (SND fn_e_t))) - field_name_e_t_list` THEN - SRW_TAC [] [MAP_MAP, ETA_THM, EVERY_MAP] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN - METIS_TAC [value_env_def, value_env_field_str_thm, APPEND, value_env_teq_str_thm]), - ([``"JTe_record_proj"``], - METIS_TAC [value_env_def, value_env_field_str_thm, APPEND, value_env_teq_str_thm]), - ([``"JTe_assert"``, ``"JTe_assertfalse"``], - FULL_SIMP_TAC list_ss [JTconst_cases] THEN SRW_TAC [] [] THEN - METIS_TAC [last (CONJUNCTS value_env_ok_str_thm), value_env_def, APPEND, value_env_teq_str_thm]), - ([``"JTe_location"``], - METIS_TAC [value_env_def, value_env_ok_str_thm, value_env_lookup_str_thm, APPEND, value_env_teq_str_thm]), - ([``"JTe_for"``], - SRW_TAC [] [shiftt_def] THEN SRW_TAC [] [] THENL - [MATCH_MP_TAC (SIMP_RULE list_ss [AND_IMP_INTRO] - (Q.SPECL [`E2`, `[EB_vn (VN_id lowercase_ident) (TS_forall t')]`, - `shiftTsig 0 (num_tv E1) S'`, `e''`, - `TE_constr [] TC_unit`, - `EB_vn (VN_id lowercase_ident) (TS_forall (TE_constr [] TC_int))::E1`] - (GEN_ALL (hd (CONJUNCTS value_env_str_thm))))) THEN - SRW_TAC [] [value_env_def, domEB_def], - Q.PAT_ASSUM `!S'' E1' E2' x' v t''. P S'' E1' E2' x' v t'' ==> - JTe (shiftTsig 0 (num_tv E1') S'') (E1' ++ E2') (subst_value_name_expr v x' e'') - (TE_constr [] TC_unit)` - (MATCH_MP_TAC o - SIMP_RULE list_ss [num_tv_def] o - Q.SPECL [`S'`, `EB_vn (VN_id lowercase_ident) - (TS_forall (TE_constr [] TC_int)) :: E1`]) THEN - SRW_TAC [] [domEB_def, DISJOINT_RIGHT, MEM_MAP] THEN METIS_TAC [], - METIS_TAC [value_env_def, value_env_teq_str_thm]]), - ([``"JTe_let_mono"``], - SRW_TAC [] [] THEN - FULL_SIMP_TAC list_ss [REVERSE_EQ, EB_vn_list_thm, aux_xs_let_binding_of_let_binding_def] THEN - IMP_RES_TAC aux_xs_pattern_of_pattern_thm THEN - FULL_SIMP_TAC list_ss [REVERSE_REVERSE, domEB_def, MAP_MAP] THEN - SRW_TAC [] [] THEN DISJ1_TAC THEN Q.EXISTS_TAC `x_t_list` THEN - SRW_TAC [] [] THENL - [MATCH_MP_TAC (GEN_ALL (hd (CONJUNCTS (SIMP_RULE list_ss [AND_IMP_INTRO] value_env_str_thm)))) THEN - Q.EXISTS_TAC `[EB_vn x (TS_forall t'')]` THEN - SRW_TAC [] [value_env_def, domEB_def, MAP_REVERSE, MEM_REVERSE, MAP_MAP] THEN - METIS_TAC [MEM_MAP], - Q.PAT_ASSUM `!S'' E1' E2' x' v' t'. P S'' E1' E2' x' v' t' ==> - JTe (shiftTsig 0 (num_tv E1') S'') (E1' ++ E2') (subst_value_name_expr v' x' e) t` - (MATCH_MP_TAC o - SIMP_RULE list_ss [MAP_REVERSE] o - SIMP_RULE list_ss [num_tv_append_thm, lem5, GSYM MAP_REVERSE] o - Q.SPECL [`S'`, - `REVERSE (MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) x_t_list) ++ - E1`]) - THEN - SRW_TAC [] [domEB_def, MAP_REVERSE, MEM_REVERSE, MAP_MAP] THEN - METIS_TAC [MEM_MAP, name_11]]), - ([``"JTe_let_poly"``], - SRW_TAC [] [] THEN - FULL_SIMP_TAC list_ss [REVERSE_EQ, EB_vn_list_thm, aux_xs_let_binding_of_let_binding_def] THEN - IMP_RES_TAC aux_xs_pattern_of_pattern_thm THEN - FULL_SIMP_TAC list_ss [REVERSE_REVERSE, domEB_def, MAP_MAP] THEN - SRW_TAC [] [] THEN DISJ2_TAC THEN Q.EXISTS_TAC `x_t_list` THEN - SRW_TAC [ARITH_ss] [shiftTsig_add_thm] THENL - [METIS_TAC [subst_nexp_thm], - Q.PAT_ASSUM `!S'' E1' E2' x' v' t'''. P S'' E1' E2' x' v' t''' ==> - ?t'. JTpat (shiftTsig 0 (num_tv E1') S'') (E1' ++ E2') pat t' E /\ - JTe (shiftTsig 0 (num_tv E1') S'') (E1' ++ E2') - (subst_value_name_expr v' x' nexp) t'` - (MATCH_MP_TAC o - SIMP_RULE list_ss [num_tv_def] o - Q.SPECL [`S'`, `EB_tv::E1`]) - THEN - SRW_TAC [] [MAP_MAP, domEB_def, MAP_REVERSE, MEM_REVERSE] THEN - SRW_TAC [ARITH_ss] [MEM_MAP, shiftTsig_add_thm], - MATCH_MP_TAC (GEN_ALL (hd (CONJUNCTS (SIMP_RULE list_ss [AND_IMP_INTRO] value_env_str_thm)))) THEN - Q.EXISTS_TAC `[EB_vn x (TS_forall t'')]` THEN - SRW_TAC [] [value_env_def, domEB_def, MAP_REVERSE, MEM_REVERSE, MAP_MAP] THEN - METIS_TAC [MEM_MAP], - METIS_TAC [subst_nexp_thm], - Q.PAT_ASSUM `!S'' E1' E2' x' v' t'''. P S'' E1' E2' x' v' t''' ==> - ?t'. JTpat (shiftTsig 0 (num_tv E1') S'') (E1' ++ E2') pat t' E /\ - JTe (shiftTsig 0 (num_tv E1') S'') (E1' ++ E2') - (subst_value_name_expr v' x' nexp) t'` - (MATCH_MP_TAC o - SIMP_RULE list_ss [num_tv_def] o - Q.SPECL [`S'`, `EB_tv::E1`]) - THEN - SRW_TAC [] [MAP_MAP, domEB_def, MAP_REVERSE, MEM_REVERSE] THEN - SRW_TAC [ARITH_ss] [MEM_MAP, shiftTsig_add_thm], - Q.PAT_ASSUM `!S'' E1' E2' x' v' t'. P S'' E1' E2' x' v' t' ==> - JTe (shiftTsig 0 (num_tv E1') S'') (E1' ++ E2') (subst_value_name_expr v' x' e) t` - (MATCH_MP_TAC o - SIMP_RULE list_ss [MAP_REVERSE] o - SIMP_RULE list_ss [num_tv_def, GSYM MAP_REVERSE, lem5, num_tv_append_thm] o - Q.SPECL [`S'`, `REVERSE (MAP (\z. EB_vn (FST z) (TS_forall (SND z))) x_t_list) ++E1`]) - THEN - SRW_TAC [] [domEB_def, MAP_REVERSE, MEM_REVERSE, MAP_MAP] THEN - METIS_TAC [MEM_MAP, name_11]]), - ([``"JTe_letrec"``], - SRW_TAC [] [] THEN IMP_RES_TAC aux_xs_letrec_bindings_of_letrec_bindings_thm THEN - FULL_SIMP_TAC list_ss [REVERSE_REVERSE, MAP_MAP, domEB_def] THEN - Q.EXISTS_TAC `x_t_list` THEN SRW_TAC [] [] THENL - [Q.PAT_ASSUM `!S'' x' E1' E2' v' t''. P S'' x' E1' E2' v' t'' ==> - (if MEM x' (aux_xs_letrec_bindings_of_letrec_bindings lrbs) then - JTletrec_binding (shiftTsig 0 (num_tv E1') S'') (E1' ++ E2') lrbs E' - else - JTletrec_binding (shiftTsig 0 (num_tv E1') S'') (E1' ++ E2') - (subst_value_name_letrec_bindings v' x' lrbs) E'')` - (MP_TAC o - Q.SPECL [`S''`, `x`, `EB_tv::E1`]) THEN - SRW_TAC [] [num_tv_def, shiftTsig_add_thm] THEN POP_ASSUM MATCH_MP_TAC THEN - SRW_TAC [] [domEB_def, MAP_REVERSE, MEM_REVERSE, MAP_MAP, value_env_def] THEN - SRW_TAC [] [MEM_MAP] THEN METIS_TAC [], - Q.PAT_ASSUM `!S'' x' E1' E2' v' t''. P S'' x' E1' E2' v' t'' ==> - (if MEM x' (aux_xs_letrec_bindings_of_letrec_bindings lrbs) then - JTletrec_binding (shiftTsig 0 (num_tv E1') S'') (E1' ++ E2') lrbs E' - else - JTletrec_binding (shiftTsig 0 (num_tv E1') S'') (E1' ++ E2') - (subst_value_name_letrec_bindings v' x' lrbs) E'')` - (MP_TAC o - Q.SPECL [`S''`, `x`, `EB_tv::E1`]) THEN - SRW_TAC [] [num_tv_def, shiftTsig_add_thm] THEN POP_ASSUM MATCH_MP_TAC THEN - SRW_TAC [] [domEB_def, MAP_REVERSE, MEM_REVERSE, MAP_MAP, value_env_def] THEN - SRW_TAC [] [MEM_MAP] THEN METIS_TAC [], - MATCH_MP_TAC (GEN_ALL (hd (CONJUNCTS (SIMP_RULE list_ss [AND_IMP_INTRO] value_env_str_thm)))) THEN - Q.EXISTS_TAC `[EB_vn x (TS_forall t')]` THEN - SRW_TAC [] [domEB_def, MAP_REVERSE, MEM_REVERSE, MAP_MAP, value_env_def] THEN - FULL_SIMP_TAC list_ss [] THEN METIS_TAC [MEM_MAP], - Q.PAT_ASSUM `!S'' E1' E2' x' v t''. P E1' E2' x' v t'' ==> - JTe (shiftTsig 0 (num_tv E1') S'') (E1' ++ E2') (subst_value_name_expr v x' e) t` - (MATCH_MP_TAC o - SIMP_RULE list_ss [MAP_REVERSE] o - SIMP_RULE list_ss [num_tv_def, GSYM MAP_REVERSE, lem5, num_tv_append_thm] o - Q.SPECL [`S'`, `REVERSE (MAP (\z. EB_vn (FST z) (TS_forall (SND z))) x_t_list) ++E1`]) - THEN - SRW_TAC [] [domEB_def, MAP_REVERSE, MEM_REVERSE, MAP_MAP, value_env_def] THEN - SRW_TAC [] [MEM_MAP] THEN Cases_on `x = FST z` THEN SRW_TAC [] [] THEN METIS_TAC [lem2]]), - ([``"JTpat_matching_pm"``], - SRW_TAC [] [] THEN - Q.EXISTS_TAC `MAP (\z. (FST z, - (if MEM x (aux_xs_pattern_of_pattern (FST z)) then - FST (SND z) - else subst_value_name_expr v x (FST (SND z))), - (SND (SND z)))) - pattern_e_E_list` THEN - SRW_TAC [] [MAP_MAP, subst_value_name_letrec_binding_def, EVERY_MAP] THEN - FULL_SIMP_TAC list_ss [EVERY_MEM] THENL - [METIS_TAC [value_env_pat_str_thm, value_env_def], - METIS_TAC [lem3]]), - ([``"JTlet_binding_poly"``], - SRW_TAC [] [] THEN MAP_EVERY Q.EXISTS_TAC [`x_t_list`, `t`] THEN SRW_TAC [] [] THEN1 - METIS_TAC [value_env_pat_str_thm, value_env_def]), - ([``"JTletrec_binding_equal_function"``], - SRW_TAC [] [aux_xs_letrec_bindings_of_letrec_bindings_def, MAP_MAP, - aux_xs_letrec_binding_of_letrec_binding_def, FLAT_MAP_SING] THEN - SRW_TAC [] [] THENL - [FULL_SIMP_TAC list_ss [EVERY_MEM] THEN METIS_TAC [lem4], - Q.EXISTS_TAC `MAP (\(a, b, c, d). (a, subst_value_name_pattern_matching v x b, c, d)) - value_name_pattern_matching_t_t'_list` THEN - SRW_TAC [] [subst_value_name_letrec_binding_def, MAP_MAP, LAMBDA_PROD2, - EVERY_MAP] THEN - FULL_SIMP_TAC list_ss [EVERY_MEM, AND_IMP_INTRO, GSYM RIGHT_FORALL_IMP_THM] THEN - SRW_TAC [] [] THEN - Q.PAT_ASSUM `!x' S'' E1' E2' x'' v' t'''. P x' S'' E1' E2' x'' v' t''' ==> - JTpat_matching (shiftTsig 0 (num_tv E1') S'') (E1' ++ E2') - (subst_value_name_pattern_matching v x'' (FST (SND x'))) - (FST (SND (SND x'))) (SND (SND (SND x')))` - (MATCH_MP_TAC o - SIMP_RULE list_ss [num_tv_append_thm, lem5, MAP_REVERSE] o - Q.SPECL [`x'`, `S'`, - `MAP (\z. EB_vn (FST z) - (TS_forall (shiftt 0 1 (TE_arrow (FST (SND (SND z))) - (SND (SND (SND z))))))) - (REVERSE value_name_pattern_matching_t_t'_list) ++ E1`]) - THEN - SRW_TAC [] [MAP_MAP, domEB_def, MAP_REVERSE, MEM_REVERSE] THEN - Q.PAT_ASSUM `~MEM x (MAP FST value_name_pattern_matching_t_t'_list)` MP_TAC THEN - REPEAT (POP_ASSUM (K ALL_TAC)) THEN - Induct_on `value_name_pattern_matching_t_t'_list` THEN SRW_TAC [] []])] -); - - -(* This is a slight variant on the substitution lemma needed for substitution -* for definitions. The difference is all in the S argument (which is used for -* type variable annotations in the source), and I haven't found a way to unite -* the two lemmas into one. It was copied from the proof above and modified -* slightly. *) - -val lem9 = Q.prove ( -`JTpat S (E1 ++ [EB_vn x (TS_forall t'')] ++ E2) p t E /\ - JTe S (E ++ E1 ++ [EB_vn x (TS_forall t'')] ++ E2) e t' /\ - ( is_non_expansive_of_expr v /\ - (E ++ E1 ++ [EB_vn x (TS_forall t'')] ++ E2 = - (E++E1) ++ [EB_vn x (TS_forall t'')] ++ E2) /\ - ~MEM (name_vn x) (MAP domEB (E++E1)) /\ - closed_env E2 /\ - (?S'. JTe S' (EB_tv::E2) (remv_tyvar_expr v) t'') ==> - JTe S ((E++E1) ++ E2) (subst_value_name_expr (remv_tyvar_expr v) x e) t') /\ - is_non_expansive_of_expr v /\ - ~MEM (name_vn x) (MAP domEB E1) /\ - closed_env E2 /\ - JTe S' (EB_tv::E2) (remv_tyvar_expr v) t'' ==> - JTe S (E ++ E1 ++ E2) - (if MEM x (aux_xs_pattern_of_pattern p) then - e - else - subst_value_name_expr (remv_tyvar_expr v) x e) - t'`, -SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [] THEN -IMP_RES_TAC aux_xs_pattern_of_pattern_thm THEN SRW_TAC [] [] THENL -[MATCH_MP_TAC (GEN_ALL (hd (CONJUNCTS (SIMP_RULE list_ss [AND_IMP_INTRO] value_env_str_thm)))) THEN - Q.EXISTS_TAC `[EB_vn x (TS_forall t'')]` THEN - SRW_TAC [] [value_env_def, domEB_def, MAP_REVERSE, MEM_REVERSE, MAP_MAP] THEN - METIS_TAC [MEM_MAP, MEM_REVERSE], - METIS_TAC [MEM_MAP, name_11, MEM_REVERSE]]); - -val lem10 = Q.prove ( -`MEM x (MAP FST l) /\ - JTpat_matching S - (REVERSE (MAP (\z. EB_vn (FST z) - (TS_forall (shiftt 0 1 (TE_arrow (FST (SND (SND z))) - (SND (SND (SND z))))))) l) ++ E1 ++ - [EB_vn x (TS_forall t'')] ++ E2) pm t t' ==> -JTpat_matching S - (REVERSE (MAP (\z. EB_vn (FST z) - (TS_forall (shiftt 0 1 (TE_arrow (FST (SND (SND z))) - (SND (SND (SND z))))))) l) ++ E1 ++ - E2) pm t t'`, -Cases_on `pm` THEN SRW_TAC [] [JTe_fun] THEN -Q.EXISTS_TAC `pattern_e_E_list` THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THENL -[METIS_TAC [value_env_pat_str_thm, value_env_def], - SRW_TAC [] [] THEN - MATCH_MP_TAC (GEN_ALL (hd (CONJUNCTS (SIMP_RULE list_ss [AND_IMP_INTRO] value_env_str_thm)))) THEN - Q.EXISTS_TAC `[EB_vn x (TS_forall t'')]` THEN - SRW_TAC [] [value_env_def, MAP_REVERSE, MAP_MAP, domEB_def] THEN - Q.PAT_ASSUM `MEM x (MAP FST l)` MP_TAC THEN - REPEAT (POP_ASSUM (K ALL_TAC)) THEN Induct_on `l` THEN SRW_TAC [] [] THEN METIS_TAC []]); - -val lem11 = Q.prove ( -`!S v t E E' t_list. - JTe (shiftTsig 0 1 S) (EB_tv::E) (remv_tyvar_expr v) t /\ closed_env E /\ Eok (E' ++ E) /\ - EVERY (tkind (E' ++ E)) t_list ==> - JTe S (E' ++ E) (remv_tyvar_expr v) (idxsub t_list (shiftt 1 (num_tv E') t))`, -METIS_TAC [lem8, remv_tyvar_thm, remv_tyvar_idem_thm]); - - -val subst_for_def_lem = Q.store_thm ("subst_for_def_lem", -`(!S E e t. JTe S E e t ==> - !E1 E2 x v t'. - is_non_expansive_of_expr v /\ - (E = E1 ++ [EB_vn x (TS_forall t')] ++ E2) /\ - ~MEM (name_vn x) (MAP domEB E1) /\ - closed_env E2 /\ - (?S'. JTe S' (EB_tv::E2) (remv_tyvar_expr v) t') ==> - JTe S (E1++E2) (subst_value_name_expr (remv_tyvar_expr v) x e) t) /\ - (!S E pm t t'. JTpat_matching S E pm t t' ==> - !E1 E2 x v t''. - is_non_expansive_of_expr v /\ - (E = E1 ++ [EB_vn x (TS_forall t'')] ++ E2) /\ - ~MEM (name_vn x) (MAP domEB E1) /\ - closed_env E2 /\ - (?S'. JTe S' (EB_tv::E2) (remv_tyvar_expr v) t'') ==> - JTpat_matching S (E1++E2) (subst_value_name_pattern_matching (remv_tyvar_expr v) x pm) t t') /\ - (!S E lb E'. JTlet_binding S E lb E' ==> - !E1 E2 x v t''. - is_non_expansive_of_expr v /\ - (E = E1 ++ [EB_vn x (TS_forall t'')] ++ E2) /\ - ~MEM (name_vn x) (MAP domEB E1) /\ - closed_env E2 /\ - (?S'. JTe S' (EB_tv::E2) (remv_tyvar_expr v) t'') ==> - JTlet_binding S (E1++E2) (subst_value_name_let_binding (remv_tyvar_expr v) x lb) E') /\ - (!S E lrbs E'. JTletrec_binding S E lrbs E' ==> - !x E1 E2 v t''. - is_non_expansive_of_expr v /\ - (E = E1 ++ [EB_vn x (TS_forall t'')] ++ E2) /\ - ~MEM (name_vn x) (MAP domEB E1) /\ - closed_env E2 /\ - (?S'. JTe S' (EB_tv::E2) (remv_tyvar_expr v) t'') ==> - if MEM x (aux_xs_letrec_bindings_of_letrec_bindings lrbs) then - JTletrec_binding S (E1++E2) lrbs E' - else - JTletrec_binding S (E1++E2) (subst_value_name_letrec_bindings (remv_tyvar_expr v) x lrbs) E')`, -RULE_INDUCT_TAC JTe_sind [subst_value_name_letrec_binding_def, JTe_fun] -[([``"JTe_uprim"``, ``"JTe_bprim"``, ``"JTe_constant"``, ``"JTe_typed"``], - FULL_SIMP_TAC list_ss [JTuprim_cases, JTbprim_cases, JTconst_cases, JTconstr_c_cases] THEN - SRW_TAC [] [] THEN - FULL_SIMP_TAC list_ss [lookup_def, domEB_def, name_distinct, EVERY_MEM] THEN - METIS_TAC [value_env_lookup_str_thm, value_env_ok_str_thm, APPEND, value_env_def, - value_env_inst_any_thm, value_env_teq_str_thm]), - ([``"JTe_apply"``, ``"JTe_match"``], METIS_TAC []), - ([``"JTe_ident"``], - SRW_TAC [] [] THEN SRW_TAC [] [JTe_fun] THEN - FULL_SIMP_TAC list_ss [JTvalue_name_cases, lookup_def, domEB_def, name_11, lookup_append_thm, - lookup_dom_thm] THEN - SRW_TAC [] [] THENL - [FULL_SIMP_TAC list_ss [JTinst_cases, shiftEB_def, shiftts_def] THEN SRW_TAC [] [] THEN - `JTe S' (E1 ++ E2) (remv_tyvar_expr v) (idxsub t_list (shiftt 1 (num_tv E1) t'))` - by (MATCH_MP_TAC lem11 THEN SRW_TAC [] [] THENL - [METIS_TAC [remv_tyvar_idem_thm, remv_tyvar_thm], - METIS_TAC [value_env_ok_str_thm, value_env_def, ok_ok_thm], - FULL_SIMP_TAC list_ss [EVERY_MEM] THEN - METIS_TAC [value_env_ok_str_thm, value_env_def]]) THEN - METIS_TAC [value_env_def, value_env_teq_str_thm, teq_thm], - FULL_SIMP_TAC list_ss [lem1] THEN Cases_on `lookup E1 (name_vn value_name)` THEN - FULL_SIMP_TAC list_ss [option_case_def] THEN SRW_TAC [] [] THENL - [Cases_on `EB` THEN - FULL_SIMP_TAC list_ss [environment_binding_distinct, shiftEB_def, num_tv_append_thm, - num_tv_def] THEN - SRW_TAC [] [] THEN - METIS_TAC [value_env_inst_str_thm, value_env_ok_str_thm, value_env_def, - value_env_teq_str_thm], - METIS_TAC [value_env_inst_str_thm, value_env_ok_str_thm, value_env_def, - value_env_teq_str_thm]]]), - ([``"JTe_tuple"``, ``"JTe_construct"``], - SRW_TAC [] [] THEN - Q.EXISTS_TAC `MAP (\e_t. (subst_value_name_expr (remv_tyvar_expr v) x (FST e_t), SND e_t)) - e_t_list` THEN - SRW_TAC [] [MAP_MAP, ETA_THM, EVERY_MAP] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN - METIS_TAC [value_env_def, value_env_constr_p_str_thm, APPEND, value_env_teq_str_thm]), - ([``"JTe_cons"``, ``"JTe_and"``, ``"JTe_or"``, ``"JTe_while"``, ``"JTe_function"``], - METIS_TAC [value_env_teq_str_thm, value_env_def]), - ([``"JTe_record_constr"``], - SRW_TAC [] [] THEN - MAP_EVERY Q.EXISTS_TAC [`field_name'_list`, `t'_list`, - `MAP (\fn_e_t. (FST fn_e_t, - subst_value_name_expr (remv_tyvar_expr v) x (FST (SND fn_e_t)), - SND (SND fn_e_t))) - field_name_e_t_list`, - `typeconstr_name`, - `kind`] THEN - SRW_TAC [] [MAP_MAP, ETA_THM, EVERY_MAP] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN1 - METIS_TAC [] THEN1 - METIS_TAC [value_env_def, value_env_field_str_thm, APPEND] THEN - METIS_TAC [value_env_def, value_env_lookup_str_thm, APPEND, value_env_teq_str_thm]), - ([``"JTe_record_with"``], - SRW_TAC [] [] THEN - Q.EXISTS_TAC `MAP (\fn_e_t. (FST fn_e_t, - subst_value_name_expr (remv_tyvar_expr v) x (FST (SND fn_e_t)), - SND (SND fn_e_t))) - field_name_e_t_list` THEN - SRW_TAC [] [MAP_MAP, ETA_THM, EVERY_MAP] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN - METIS_TAC [value_env_def, value_env_field_str_thm, APPEND, value_env_teq_str_thm]), - ([``"JTe_record_proj"``], - METIS_TAC [value_env_def, value_env_field_str_thm, APPEND, value_env_teq_str_thm]), - ([``"JTe_assert"``, ``"JTe_assertfalse"``], - FULL_SIMP_TAC list_ss [JTconst_cases] THEN SRW_TAC [] [] THEN - METIS_TAC [last (CONJUNCTS value_env_ok_str_thm), value_env_def, APPEND, value_env_teq_str_thm]), - ([``"JTe_location"``], - METIS_TAC [value_env_def, value_env_ok_str_thm, value_env_lookup_str_thm, APPEND, value_env_teq_str_thm]), - ([``"JTe_for"``], - SRW_TAC [] [shiftt_def] THEN SRW_TAC [] [] THENL - [MATCH_MP_TAC (SIMP_RULE list_ss [AND_IMP_INTRO] - (Q.SPECL [`E2`, `[EB_vn (VN_id lowercase_ident) (TS_forall t')]`, - `S`, `e''`, - `TE_constr [] TC_unit`, - `EB_vn (VN_id lowercase_ident) (TS_forall (TE_constr [] TC_int))::E1`] - (GEN_ALL (hd (CONJUNCTS value_env_str_thm))))) THEN - SRW_TAC [] [value_env_def, domEB_def], - Q.PAT_ASSUM `!E1' E2' x' v t''. P E1' E2' x' v t'' ==> - JTe S (E1' ++ E2') - (subst_value_name_expr (remv_tyvar_expr v) x' e'') - (TE_constr [] TC_unit)` - (MATCH_MP_TAC o - SIMP_RULE list_ss [num_tv_def] o - Q.SPECL [`EB_vn (VN_id lowercase_ident) - (TS_forall (TE_constr [] TC_int)) :: E1`]) THEN - SRW_TAC [] [domEB_def, DISJOINT_RIGHT, MEM_MAP] THEN METIS_TAC [], - METIS_TAC [value_env_def, value_env_teq_str_thm]]), - ([``"JTe_let_mono"``], - SRW_TAC [] [] THEN - FULL_SIMP_TAC list_ss [REVERSE_EQ, EB_vn_list_thm, aux_xs_let_binding_of_let_binding_def] THEN - IMP_RES_TAC aux_xs_pattern_of_pattern_thm THEN - FULL_SIMP_TAC list_ss [REVERSE_REVERSE, domEB_def, MAP_MAP] THEN - SRW_TAC [] [] THEN DISJ1_TAC THEN Q.EXISTS_TAC `x_t_list` THEN - SRW_TAC [] [] THENL - [METIS_TAC [], - MATCH_MP_TAC (GEN_ALL (hd (CONJUNCTS (SIMP_RULE list_ss [AND_IMP_INTRO] value_env_str_thm)))) THEN - Q.EXISTS_TAC `[EB_vn x (TS_forall t'')]` THEN - SRW_TAC [] [value_env_def, domEB_def, MAP_REVERSE, MEM_REVERSE, MAP_MAP] THEN - METIS_TAC [MEM_MAP], - METIS_TAC [], - Q.PAT_ASSUM `!E1' E2' x' v' t'. P E1' E2' x' v' t' ==> - JTe S (E1' ++ E2') (subst_value_name_expr (remv_tyvar_expr v') x' e) t` - (MATCH_MP_TAC o - SIMP_RULE list_ss [MAP_REVERSE] o - SIMP_RULE list_ss [num_tv_append_thm, lem5, GSYM MAP_REVERSE] o - Q.SPECL [`REVERSE (MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) x_t_list) ++ - E1`]) - THEN - SRW_TAC [] [domEB_def, MAP_REVERSE, MEM_REVERSE, MAP_MAP] THEN - METIS_TAC [MEM_MAP, name_11]]), - ([``"JTe_let_poly"``], - SRW_TAC [] [] THEN - FULL_SIMP_TAC list_ss [REVERSE_EQ, EB_vn_list_thm, aux_xs_let_binding_of_let_binding_def] THEN - IMP_RES_TAC aux_xs_pattern_of_pattern_thm THEN - FULL_SIMP_TAC list_ss [REVERSE_REVERSE, domEB_def, MAP_MAP] THEN - SRW_TAC [] [] THEN DISJ2_TAC THEN Q.EXISTS_TAC `x_t_list` THEN - SRW_TAC [ARITH_ss] [shiftTsig_add_thm] THENL - [METIS_TAC [subst_nexp_thm, nexp_remv_tyvar_thm], - Q.PAT_ASSUM `!E1' E2' x' v' t'''. P E1' E2' x' v' t''' ==> - ?t'. JTpat (shiftTsig 0 1 S) (E1' ++ E2') pat t' E /\ - JTe (shiftTsig 0 1 S) (E1' ++ E2') - (subst_value_name_expr (remv_tyvar_expr v') x' nexp) t'` - (MATCH_MP_TAC o - SIMP_RULE list_ss [num_tv_def] o - Q.SPECL [`EB_tv::E1`]) - THEN - SRW_TAC [] [MAP_MAP, domEB_def, MAP_REVERSE, MEM_REVERSE] THEN - SRW_TAC [ARITH_ss] [MEM_MAP, shiftTsig_add_thm] THEN METIS_TAC [], - MATCH_MP_TAC (GEN_ALL (hd (CONJUNCTS (SIMP_RULE list_ss [AND_IMP_INTRO] value_env_str_thm)))) THEN - Q.EXISTS_TAC `[EB_vn x (TS_forall t'')]` THEN - SRW_TAC [] [value_env_def, domEB_def, MAP_REVERSE, MEM_REVERSE, MAP_MAP] THEN - METIS_TAC [MEM_MAP], - METIS_TAC [subst_nexp_thm, nexp_remv_tyvar_thm], - Q.PAT_ASSUM `!E1' E2' x' v' t'''. P E1' E2' x' v' t''' ==> - ?t'. JTpat (shiftTsig 0 1 S) (E1' ++ E2') pat t' E /\ - JTe (shiftTsig 0 1 S) (E1' ++ E2') - (subst_value_name_expr (remv_tyvar_expr v') x' nexp) t'` - (MATCH_MP_TAC o - SIMP_RULE list_ss [num_tv_def] o - Q.SPECL [`EB_tv::E1`]) - THEN - SRW_TAC [] [MAP_MAP, domEB_def, MAP_REVERSE, MEM_REVERSE] THEN - SRW_TAC [ARITH_ss] [MEM_MAP, shiftTsig_add_thm] THEN METIS_TAC [], - Q.PAT_ASSUM `!E1' E2' x' v' t'. P E1' E2' x' v' t' ==> - JTe S (E1' ++ E2') (subst_value_name_expr (remv_tyvar_expr v') x' e) t` - (MATCH_MP_TAC o - SIMP_RULE list_ss [MAP_REVERSE] o - SIMP_RULE list_ss [num_tv_def, GSYM MAP_REVERSE, lem5, num_tv_append_thm] o - Q.SPECL [`REVERSE (MAP (\z. EB_vn (FST z) (TS_forall (SND z))) x_t_list) ++E1`]) - THEN - SRW_TAC [] [domEB_def, MAP_REVERSE, MEM_REVERSE, MAP_MAP] THEN - METIS_TAC [MEM_MAP, name_11]]), - ([``"JTe_letrec"``], - SRW_TAC [] [] THEN IMP_RES_TAC aux_xs_letrec_bindings_of_letrec_bindings_thm THEN - FULL_SIMP_TAC list_ss [REVERSE_REVERSE, MAP_MAP, domEB_def] THEN - Q.EXISTS_TAC `x_t_list` THEN SRW_TAC [] [] THENL - [Q.PAT_ASSUM `!x' E1' E2' v' t''. P x' E1' E2' v' t'' ==> - (if MEM x' (aux_xs_letrec_bindings_of_letrec_bindings lrbs) then - JTletrec_binding (shiftTsig 0 1 S) (E1' ++ E2') lrbs E' - else - JTletrec_binding (shiftTsig 0 1 S) (E1' ++ E2') - (subst_value_name_letrec_bindings (remv_tyvar_expr v') x' lrbs) E'')` - (MP_TAC o - Q.SPECL [`x`, `EB_tv::E1`]) THEN - SRW_TAC [] [num_tv_def, shiftTsig_add_thm] THEN POP_ASSUM MATCH_MP_TAC THEN - SRW_TAC [] [domEB_def, MAP_REVERSE, MEM_REVERSE, MAP_MAP, value_env_def] THEN - SRW_TAC [] [MEM_MAP] THEN METIS_TAC [], - Q.PAT_ASSUM `!x' E1' E2' v' t''. P x' E1' E2' v' t'' ==> - (if MEM x' (aux_xs_letrec_bindings_of_letrec_bindings lrbs) then - JTletrec_binding (shiftTsig 0 1 S'') (E1' ++ E2') lrbs E' - else - JTletrec_binding (shiftTsig 0 1 S'') (E1' ++ E2') - (subst_value_name_letrec_bindings (remv_tyvar_expr v') x' lrbs) E'')` - (MP_TAC o - Q.SPECL [`x`, `EB_tv::E1`]) THEN - SRW_TAC [] [num_tv_def, shiftTsig_add_thm] THEN POP_ASSUM MATCH_MP_TAC THEN - SRW_TAC [] [domEB_def, MAP_REVERSE, MEM_REVERSE, MAP_MAP, value_env_def] THEN - SRW_TAC [] [MEM_MAP] THEN METIS_TAC [], - MATCH_MP_TAC (GEN_ALL (hd (CONJUNCTS (SIMP_RULE list_ss [AND_IMP_INTRO] value_env_str_thm)))) THEN - Q.EXISTS_TAC `[EB_vn x (TS_forall t')]` THEN - SRW_TAC [] [domEB_def, MAP_REVERSE, MEM_REVERSE, MAP_MAP, value_env_def] THEN - FULL_SIMP_TAC list_ss [] THEN METIS_TAC [MEM_MAP], - Q.PAT_ASSUM `!E1' E2' x' v t''. P E1' E2' x' v t'' ==> - JTe S (E1' ++ E2') (subst_value_name_expr (remv_tyvar_expr v) x' e) t` - (MATCH_MP_TAC o - SIMP_RULE list_ss [MAP_REVERSE] o - SIMP_RULE list_ss [num_tv_def, GSYM MAP_REVERSE, lem5, num_tv_append_thm] o - Q.SPECL [`REVERSE (MAP (\z. EB_vn (FST z) (TS_forall (SND z))) x_t_list) ++E1`]) - THEN - SRW_TAC [] [domEB_def, MAP_REVERSE, MEM_REVERSE, MAP_MAP, value_env_def] THEN - SRW_TAC [] [MEM_MAP] THEN Cases_on `x = FST z` THEN SRW_TAC [] [] THEN METIS_TAC [lem2]]), - ([``"JTpat_matching_pm"``], - SRW_TAC [] [] THEN - Q.EXISTS_TAC `MAP (\z. (FST z, - (if MEM x (aux_xs_pattern_of_pattern (FST z)) then - FST (SND z) - else subst_value_name_expr (remv_tyvar_expr v) x (FST (SND z))), - (SND (SND z)))) - pattern_e_E_list` THEN - SRW_TAC [] [MAP_MAP, subst_value_name_letrec_binding_def, EVERY_MAP] THEN - FULL_SIMP_TAC list_ss [EVERY_MEM] THENL - [METIS_TAC [value_env_pat_str_thm, value_env_def], - METIS_TAC [lem9]]), - ([``"JTlet_binding_poly"``], - SRW_TAC [] [] THEN MAP_EVERY Q.EXISTS_TAC [`x_t_list`, `t`] THEN SRW_TAC [] [] THEN - METIS_TAC [value_env_pat_str_thm, value_env_def]), - ([``"JTletrec_binding_equal_function"``], - SRW_TAC [] [aux_xs_letrec_bindings_of_letrec_bindings_def, MAP_MAP, - aux_xs_letrec_binding_of_letrec_binding_def, FLAT_MAP_SING] THEN - SRW_TAC [] [] THENL - [FULL_SIMP_TAC list_ss [EVERY_MEM] THEN METIS_TAC [lem10], - Q.EXISTS_TAC `MAP (\(a, b, c, d). (a, subst_value_name_pattern_matching (remv_tyvar_expr v) x b, c, d)) - value_name_pattern_matching_t_t'_list` THEN - SRW_TAC [] [subst_value_name_letrec_binding_def, MAP_MAP, LAMBDA_PROD2, - EVERY_MAP] THEN - FULL_SIMP_TAC list_ss [EVERY_MEM, AND_IMP_INTRO, GSYM RIGHT_FORALL_IMP_THM] THEN - SRW_TAC [] [] THEN - Q.PAT_ASSUM `!x' E1' E2' x'' v' t'''. P x' E1' E2' x'' v' t''' ==> - JTpat_matching S (E1' ++ E2') - (subst_value_name_pattern_matching - (remv_tyvar_expr v) x'' (FST (SND x'))) - (FST (SND (SND x'))) (SND (SND (SND x')))` - (MATCH_MP_TAC o - SIMP_RULE list_ss [num_tv_append_thm, lem5, MAP_REVERSE] o - Q.SPECL [`x'`, - `MAP (\z. EB_vn (FST z) - (TS_forall (shiftt 0 1 (TE_arrow (FST (SND (SND z))) - (SND (SND (SND z))))))) - (REVERSE value_name_pattern_matching_t_t'_list) ++ E1`]) - THEN - SRW_TAC [] [MAP_MAP, domEB_def, MAP_REVERSE, MEM_REVERSE] THEN - Q.PAT_ASSUM `~MEM x (MAP FST value_name_pattern_matching_t_t'_list)` MP_TAC THENL - [REPEAT (POP_ASSUM (K ALL_TAC)) THEN - Induct_on `value_name_pattern_matching_t_t'_list` THEN SRW_TAC [] [], - METIS_TAC []]])] -); - -end; - -val substs_empty_thm = Q.store_thm ("substs_empty_thm", -`(!lrb. substs_value_name_letrec_binding [] lrb = lrb) /\ - (!lrbs. substs_value_name_letrec_bindings [] lrbs = lrbs) /\ - (!lb. substs_value_name_let_binding [] lb = lb) /\ - (!pe. substs_value_name_pat_exp [] pe = pe) /\ - (!pm. substs_value_name_pattern_matching [] pm = pm) /\ - (!e. substs_value_name_expr [] e = e) /\ - (!lrb_list. MAP (substs_value_name_letrec_binding []) lrb_list = lrb_list) /\ - (!pe_list. MAP (substs_value_name_pat_exp []) pe_list = pe_list) /\ - (!fe_list. MAP (\(f:field, e). (f, substs_value_name_expr [] e)) fe_list = fe_list) /\ - (!e_list. MAP (substs_value_name_expr []) e_list = e_list) /\ - (!fe:(field#expr). (FST fe, substs_value_name_expr [] (SND fe)) = fe)`, -Induct THEN SRW_TAC [] [substs_value_name_letrec_binding_def, list_assoc_def] THENL -[METIS_TAC [], - METIS_TAC [], - METIS_TAC [], - METIS_TAC [], - Cases_on `fe` THEN FULL_SIMP_TAC list_ss []]); - -val substs_DISJOINT_thm = Q.prove ( -`(!subs lrb. DISJOINT (fv_letrec_binding lrb) (MAP FST subs) ==> - (substs_value_name_letrec_binding subs lrb = lrb)) /\ - (!subs lrbs. DISJOINT (fv_letrec_bindings lrbs) (MAP FST subs) ==> - (substs_value_name_letrec_bindings subs lrbs = lrbs)) /\ - (!subs lb. DISJOINT (fv_let_binding lb) (MAP FST subs) ==> - (substs_value_name_let_binding subs lb = lb)) /\ - (!subs pe. DISJOINT (fv_pat_exp pe) (MAP FST subs) ==> - (substs_value_name_pat_exp subs pe = pe)) /\ - (!subs pm. DISJOINT (fv_pattern_matching pm) (MAP FST subs) ==> - (substs_value_name_pattern_matching subs pm = pm)) /\ - (!subs e. DISJOINT (fv_expr e) (MAP FST subs) ==> - (substs_value_name_expr subs e = e))`, -HO_MATCH_MP_TAC substs_value_name_letrec_binding_ind THEN -SRW_TAC [] [substs_value_name_letrec_binding_def, fv_letrec_binding_def, FLAT_EQ_EMPTY, EVERY_MAP, - EVERY_MEM, DISJOINT_MEM] THEN -FULL_SIMP_TAC list_ss [LAMBDA_PROD2] THENL -[Induct_on `letrec_binding_list` THEN SRW_TAC [] [], - FULL_SIMP_TAC list_ss [list_minus_thm, MEM_MAP, MEM_FILTER] THEN METIS_TAC [], - Induct_on `pat_exp_list` THEN SRW_TAC [] [], - IMP_RES_TAC not_mem_list_assoc THEN SRW_TAC [] [], - Induct_on `expr_list` THEN SRW_TAC [] [], - Induct_on `expr_list` THEN SRW_TAC [] [], - Induct_on `field_expr_list` THEN SRW_TAC [] [] THENL - [Cases_on `h` THEN SRW_TAC [] [], - FULL_SIMP_TAC list_ss [MEM_MAP, MEM_FILTER] THEN METIS_TAC []], - Induct_on `field_expr_list` THEN SRW_TAC [] [] THENL - [Cases_on `h` THEN SRW_TAC [] [], - FULL_SIMP_TAC list_ss [MEM_MAP, MEM_FILTER] THEN METIS_TAC []], - FULL_SIMP_TAC list_ss [list_minus_thm, MEM_MAP, MEM_FILTER] THEN METIS_TAC [], - FULL_SIMP_TAC list_ss [list_minus_thm, MEM_MAP, MEM_FILTER] THEN METIS_TAC [], - FULL_SIMP_TAC list_ss [list_minus_thm, MEM_MAP, MEM_FILTER] THEN METIS_TAC [], - FULL_SIMP_TAC list_ss [list_minus_thm, MEM_MAP, MEM_FILTER] THEN METIS_TAC []]); - -val substs_closed_thm = Q.store_thm ("substs_closed_thm", -`!e subs. (fv_expr e = []) ==> (substs_value_name_expr subs e = e)`, -METIS_TAC [DISJOINT_MEM, MEM, substs_DISJOINT_thm, EVERY_MEM]); - -local - -val lem1 = Q.prove ( -`(!lrbs subs. aux_xs_letrec_bindings_of_letrec_bindings (substs_value_name_letrec_bindings subs lrbs) = - aux_xs_letrec_bindings_of_letrec_bindings lrbs) /\ - (!lrb subs. aux_xs_letrec_binding_of_letrec_binding (substs_value_name_letrec_binding subs lrb) = - aux_xs_letrec_binding_of_letrec_binding lrb) /\ - (!lrb_list subs. MAP (\lrb. aux_xs_letrec_binding_of_letrec_binding - (substs_value_name_letrec_binding subs lrb)) lrb_list = - MAP aux_xs_letrec_binding_of_letrec_binding lrb_list)`, -Induct THEN -SRW_TAC [] [aux_xs_letrec_bindings_of_letrec_bindings_def, substs_value_name_letrec_binding_def, - aux_xs_letrec_binding_of_letrec_binding_def, MAP_MAP]); -in - -val substs_iter_thm = Q.store_thm ("substs_iter_thm", -`(!lrb subs. (fv_expr v = []) ==> - (substs_value_name_letrec_binding ((x,v)::subs) lrb = - substs_value_name_letrec_binding subs (subst_value_name_letrec_binding v x lrb))) /\ - (!lrbs subs. (fv_expr v = []) ==> - (substs_value_name_letrec_bindings ((x,v)::subs) lrbs = - substs_value_name_letrec_bindings subs (subst_value_name_letrec_bindings v x lrbs))) /\ - (!lb subs. (fv_expr v = []) ==> - (substs_value_name_let_binding ((x,v)::subs) lb = - substs_value_name_let_binding subs (subst_value_name_let_binding v x lb))) /\ - (!pe subs. (fv_expr v = []) ==> - (substs_value_name_pat_exp ((x,v)::subs) pe = - substs_value_name_pat_exp subs (subst_value_name_pat_exp v x pe))) /\ - (!pm subs. (fv_expr v = []) ==> - (substs_value_name_pattern_matching ((x,v)::subs) pm = - substs_value_name_pattern_matching subs (subst_value_name_pattern_matching v x pm))) /\ - (!e subs. (fv_expr v = []) ==> - (substs_value_name_expr ((x,v)::subs) e = - substs_value_name_expr subs (subst_value_name_expr v x e))) /\ - (!lrb_list subs. (fv_expr v = []) ==> - (MAP (substs_value_name_letrec_binding ((x,v)::subs)) lrb_list = - MAP (\lrb. substs_value_name_letrec_binding subs (subst_value_name_letrec_binding v x lrb)) - lrb_list)) /\ - (!pe_list subs. (fv_expr v = []) ==> - (MAP (substs_value_name_pat_exp ((x,v)::subs)) pe_list = - MAP (\pe. substs_value_name_pat_exp subs (subst_value_name_pat_exp v x pe)) pe_list)) /\ - (!fe_list subs. (fv_expr v = []) ==> - (MAP (\(f:field, e). (f, substs_value_name_expr ((x,v)::subs) e)) fe_list = - MAP (\(f, e). (f, substs_value_name_expr subs (subst_value_name_expr v x e))) fe_list)) /\ - (!e_list subs. (fv_expr v = []) ==> - (MAP (substs_value_name_expr ((x,v)::subs)) e_list = - MAP (\e. substs_value_name_expr subs (subst_value_name_expr v x e)) e_list)) /\ - (!fe:(field#expr) subs. (fv_expr v = []) ==> - ((FST fe, substs_value_name_expr ((x,v)::subs) (SND fe)) = - (FST fe, substs_value_name_expr subs (subst_value_name_expr v x (SND fe)))))`, -Induct THEN -SRW_TAC [] [substs_value_name_letrec_binding_def, subst_value_name_letrec_binding_def, MAP_MAP, - list_assoc_def] THEN -FULL_SIMP_TAC list_ss [LAMBDA_PROD2] THENL -[METIS_TAC [], - METIS_TAC [], - METIS_TAC [substs_closed_thm], - METIS_TAC [], - METIS_TAC [], - Cases_on `lb` THEN - FULL_SIMP_TAC list_ss [subst_value_name_letrec_binding_def, aux_xs_let_binding_of_let_binding_def], - Cases_on `lb` THEN - FULL_SIMP_TAC list_ss [subst_value_name_letrec_binding_def, aux_xs_let_binding_of_let_binding_def], - METIS_TAC [lem1], - METIS_TAC [lem1]]); - -end; - -local - -val lem5 = Q.prove ( -`!l f g. num_tv (MAP (\x. EB_vn (f x) (g x)) l) = 0`, -METIS_TAC [value_env_map_thm, value_env_num_tv_thm]); - -in - -val substs_lem = Q.store_thm ("substs_lem", -`!S e t E x_t_list x_v_list. - (LENGTH x_t_list = LENGTH x_v_list) /\ - JTe S (REVERSE (MAP (\(x,t). EB_vn x (TS_forall t)) x_t_list) ++ E) e t /\ - EVERY (\(x, v). is_non_expansive_of_expr v) x_v_list /\ - closed_env E /\ - ALL_DISTINCT (MAP FST x_t_list) /\ - EVERY (\((x,t),x',v). (x = x') /\ JTe (shiftTsig 0 1 S) (EB_tv::E) v t) - (ZIP (x_t_list,x_v_list)) ==> - JTe S E (substs_value_name_expr x_v_list e) t`, -Induct_on `x_t_list` THEN Cases_on `x_v_list` THEN SRW_TAC [] [substs_empty_thm] THEN -Cases_on `h'` THEN Cases_on `h` THEN FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THEN -`fv_expr r' = []` by (FULL_SIMP_TAC list_ss [GSYM MAP_REVERSE, ELIM_UNCURRY] THEN - METIS_TAC [closed_env_fv_thm, closed_env_tv_lem]) THEN -SRW_TAC [] [substs_iter_thm] THEN -Q.PAT_ASSUM `!S' e' t' E' x_v_list. P S' e' t' E' x_v_list ==> - JTe S' E' (substs_value_name_expr x_v_list e') t'` MATCH_MP_TAC THEN -SRW_TAC [] [LAMBDA_PROD2] THEN -MATCH_MP_TAC ((SIMP_RULE list_ss [MAP_REVERSE] o - SIMP_RULE list_ss [lem5, LAMBDA_PROD2, shiftTsig_add_thm] o - (*Q.SPECL [`e`, `t'`, `S`, `MAP (\(x,t). EB_vn x (TS_forall t)) (REVERSE x_t_list)`] o*) - Q.SPECL [`shiftTsig 0 (num_tv (MAP (\(x,t). EB_vn x (TS_forall t)) (REVERSE x_t_list))) - S`, - `e`, `t'`, `S`, `MAP (\(x,t). EB_vn x (TS_forall t)) (REVERSE x_t_list)`] o - SIMP_RULE list_ss [GSYM RIGHT_FORALL_IMP_THM, AND_IMP_INTRO] o hd o CONJUNCTS) subst_lem) THEN -SRW_TAC [] [MAP_REVERSE, MEM_REVERSE, MAP_MAP, domEB_def] THEN -FULL_SIMP_TAC list_ss [LAMBDA_PROD2, domEB_def] THEN -Q.EXISTS_TAC `r` THEN SRW_TAC [] [] THEN -FULL_SIMP_TAC list_ss [MEM_MAP, name_11]); - -val substs_pm_lem = Q.store_thm ("substs_pm_lem", -`!S pm t t' E x_t_list x_v_list. - (LENGTH x_t_list = LENGTH x_v_list) /\ - JTpat_matching S (REVERSE (MAP (\(x,t). EB_vn x (TS_forall t)) x_t_list) ++ E) pm t t' /\ - EVERY (\(x, v). is_non_expansive_of_expr v) x_v_list /\ - closed_env E /\ - ALL_DISTINCT (MAP FST x_t_list) /\ - EVERY (\((x,t),x',v). (x = x') /\ JTe (shiftTsig 0 1 S) (EB_tv::E) v t) (ZIP (x_t_list,x_v_list)) ==> - JTpat_matching S E (substs_value_name_pattern_matching x_v_list pm) t t'`, -Induct_on `x_t_list` THEN Cases_on `x_v_list` THEN SRW_TAC [] [substs_empty_thm] THEN -Cases_on `h'` THEN Cases_on `h` THEN FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THEN -`fv_expr r' = []` by (FULL_SIMP_TAC list_ss [GSYM MAP_REVERSE, ELIM_UNCURRY] THEN - METIS_TAC [closed_env_fv_thm, closed_env_tv_lem]) THEN -SRW_TAC [] [substs_iter_thm] THEN -Q.PAT_ASSUM `!S' pm' t' t''' E' x_v_list. P S' pm' t' t''' E' x_v_list ==> - JTpat_matching S' E' (substs_value_name_pattern_matching x_v_list pm') t' t'''` MATCH_MP_TAC THEN -SRW_TAC [] [LAMBDA_PROD2] THEN -MATCH_MP_TAC ((SIMP_RULE list_ss [MAP_REVERSE] o - SIMP_RULE list_ss [lem5, LAMBDA_PROD2, shiftTsig_add_thm] o - (*Q.SPECL [`pm`, `t'`, `t''`, `S`, `MAP (\(x,t). EB_vn x (TS_forall t)) (REVERSE x_t_list)`] o*) - Q.SPECL [`shiftTsig 0 (num_tv (MAP (\(x,t). EB_vn x (TS_forall t)) (REVERSE x_t_list))) - S`, - `pm`, `t'`, `t''`, `S`, `MAP (\(x,t). EB_vn x (TS_forall t)) (REVERSE x_t_list)`] o - SIMP_RULE list_ss [GSYM RIGHT_FORALL_IMP_THM, AND_IMP_INTRO] o hd o tl o CONJUNCTS) subst_lem) -THEN -SRW_TAC [] [MAP_REVERSE, MEM_REVERSE, MAP_MAP, domEB_def] THEN -FULL_SIMP_TAC list_ss [LAMBDA_PROD2, domEB_def] THEN -Q.EXISTS_TAC `r` THEN SRW_TAC [] [] THEN -FULL_SIMP_TAC list_ss [MEM_MAP, name_11]); - -end; - -val substs_ftv_thm = Q.store_thm ("substs_ftv_thm", -`(!subs lrb. EVERY (\xv. ftv_expr (SND xv) = []) subs /\ (ftv_letrec_binding lrb = []) ==> - (ftv_letrec_binding (substs_value_name_letrec_binding subs lrb) = [])) /\ - (!subs lrbs. EVERY (\xv. ftv_expr (SND xv) = []) subs /\ (ftv_letrec_bindings lrbs = []) ==> - (ftv_letrec_bindings (substs_value_name_letrec_bindings subs lrbs) = [])) /\ - (!subs lb. EVERY (\xv. ftv_expr (SND xv) = []) subs /\ (ftv_let_binding lb = []) ==> - (ftv_let_binding (substs_value_name_let_binding subs lb) = [])) /\ - (!subs pe. EVERY (\xv. ftv_expr (SND xv) = []) subs /\ (ftv_pat_exp pe = []) ==> - (ftv_pat_exp (substs_value_name_pat_exp subs pe) = [])) /\ - (!subs pm. EVERY (\xv. ftv_expr (SND xv) = []) subs /\ (ftv_pattern_matching pm = []) ==> - (ftv_pattern_matching (substs_value_name_pattern_matching subs pm) = [])) /\ - (!subs e. EVERY (\xv. ftv_expr (SND xv) = []) subs /\ (ftv_expr e = []) ==> - (ftv_expr (substs_value_name_expr subs e) = []))`, -HO_MATCH_MP_TAC substs_value_name_letrec_binding_ind THEN -SRW_TAC [] [substs_value_name_letrec_binding_def, ftv_letrec_binding_def, FLAT_EQ_EMPTY, EVERY_MAP, - EVERY_MEM, MEM_FILTER] THEN -FULL_SIMP_TAC list_ss [LAMBDA_PROD2, ftv_letrec_binding_def] THENL -[Cases_on `list_assoc value_name subs` THEN SRW_TAC [] [ftv_letrec_binding_def] THEN - METIS_TAC [list_assoc_mem, SND], - Cases_on `x` THEN METIS_TAC [SND], - Cases_on `x` THEN METIS_TAC [SND]]); - -val _ = export_theory (); diff --git a/vendors/ott/examples/ocaml_light/hol/teqScript.sml b/vendors/ott/examples/ocaml_light/hol/teqScript.sml deleted file mode 100644 index 79eb50f2ecbc..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/teqScript.sml +++ /dev/null @@ -1,939 +0,0 @@ -open bossLib HolKernel boolLib listTheory rich_listTheory optionTheory combinTheory pairTheory; -open ottLib ottTheory caml_typedefTheory; -open utilTheory basicTheory environmentTheory validTheory weakenTheory shiftTheory type_substTheory; -open type_substsTheory; - -val _ = new_theory "teq"; - - -val EVERY_ZIP_SAME = Q.prove ( -`!l f. EVERY (\(x, y). f x y) (ZIP (l, l)) = EVERY (\x. f x x) l`, -Induct THEN SRW_TAC [] []); - -val EVERY_ZIP_SWAP = Q.prove ( -`!l1 l2 f. (LENGTH l1 = LENGTH l2) ==> - (EVERY (\(x, y). f x y) (ZIP (l1, l2)) = EVERY (\(x, y). f y x) (ZIP (l2, l1)))`, -Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) []); - -val EVERY_T = Q.prove ( -`!l. EVERY (\x. T) l = T`, -Induct THEN SRW_TAC [] []); - - -local - -val lem1 = Q.prove ( -`!E. value_env E ==> ~MEM EB_tv E`, -Induct THEN SRW_TAC [] [value_env_def] THEN Cases_on `h` THEN FULL_SIMP_TAC (srw_ss ()) [value_env_def]); - -in - -val teq_thm = Q.store_thm ("teq_thm", -`(!Tsigma E e t. JTe Tsigma E e t ==> !t'. JTeq E t t' ==> JTe Tsigma E e t') /\ - (!Tsigma E pm t1 t2. JTpat_matching Tsigma E pm t1 t2 ==> - !t'. JTeq E t2 t' ==> JTpat_matching Tsigma E pm t1 t') /\ - (!Tsigma E e E'. JTlet_binding Tsigma E e E' ==> T) /\ - (!Tsigma E e E'. JTletrec_binding Tsigma E e E' ==> T)`, -RULE_INDUCT_TAC JTe_sind [JTe_fun] -[([``"JTe_uprim"``, ``"JTe_bprim"``, ``"JTe_ident"``, ``"JTe_constant"``, ``"JTe_typed"``, ``"JTe_cons"``, - ``"JTe_and"``, ``"JTe_or"``, ``"JTe_while"``, ``"JTe_for"``, ``"JTe_assert"``, ``"JTe_location"``, - ``"JTe_record_proj"``, ``"JTe_function"``], - METIS_TAC [JTeq_rules]), - ([``"JTe_match"``], - METIS_TAC []), - ([``"JTe_tuple"``, ``"JTe_construct"``], - SRW_TAC [] [] THEN Q.EXISTS_TAC `e_t_list` THEN SRW_TAC [] [] THEN METIS_TAC [JTeq_rules]), - ([``"JTe_record_constr"``], - SRW_TAC [] [] THEN MAP_EVERY Q.EXISTS_TAC [`field_name'_list`, `t'_list`, `field_name_e_t_list`] THEN - SRW_TAC [] [] THEN METIS_TAC [JTeq_rules]), - ([``"JTe_record_with"``], - SRW_TAC [] [] THEN Q.EXISTS_TAC `field_name_e_t_list` THEN SRW_TAC [] [] THEN METIS_TAC [JTeq_rules]), - ([``"JTe_apply"``], - METIS_TAC [JTeq_rules, ok_thm]), - ([``"JTe_assertfalse"``], - SRW_TAC [] [JTconst_cases] THEN METIS_TAC [ok_ok_thm, JTeq_rules, teq_ok_thm]), - ([``"JTe_let_mono"``], - SRW_TAC [] [] THEN DISJ1_TAC THEN Q.EXISTS_TAC `x_t_list` THEN SRW_TAC [] [] THEN1 METIS_TAC [] THEN - FULL_SIMP_TAC (srw_ss()) [REVERSE_EQ, EB_vn_list_thm] THEN SRW_TAC [] [] THEN - `~MEM EB_tv (REVERSE (MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) x_t_list))` by - SRW_TAC [] [MEM_REVERSE, MEM_MAP] THEN - METIS_TAC [weak_teq_thm, ok_thm, APPEND, APPEND_ASSOC, ok_ok_thm]), - ([``"JTe_let_poly"``], - SRW_TAC [] [] THEN DISJ2_TAC THEN Q.EXISTS_TAC `x_t_list` THEN SRW_TAC [] [] THEN1 METIS_TAC [] THEN - FULL_SIMP_TAC (srw_ss()) [REVERSE_EQ, EB_vn_list_thm] THEN SRW_TAC [] [] THEN - `~MEM EB_tv (REVERSE (MAP (\z. EB_vn (FST z) (TS_forall (SND z))) x_t_list))` by - SRW_TAC [] [MEM_REVERSE, MEM_MAP] THEN - METIS_TAC [weak_teq_thm, ok_thm, APPEND, APPEND_ASSOC, ok_ok_thm]), - ([``"JTe_letrec"``], - SRW_TAC [] [] THEN Q.EXISTS_TAC `x_t_list` THEN SRW_TAC [] [] THEN - `~MEM EB_tv (REVERSE (MAP (\z. EB_vn (FST z) (TS_forall (SND z))) x_t_list))` by - SRW_TAC [] [MEM_REVERSE, MEM_MAP] THEN - METIS_TAC [weak_teq_thm, ok_thm, APPEND, APPEND_ASSOC, ok_ok_thm]), - ([``"JTpat_matching_pm"``], - SRW_TAC [] [] THEN Q.EXISTS_TAC `pattern_e_E_list` THEN SRW_TAC [] [] THEN - FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN SRW_TAC [] [] THEN - METIS_TAC [weak_teq_thm, ok_thm, APPEND, APPEND_ASSOC, ok_ok_thm, pat_env_lem, lem1])]); -end; - -val num_abbrev_def = Define -`(num_abbrev [] = 0:num) /\ - (num_abbrev (EB_ta x y z :: E) = 1 + num_abbrev E) /\ - (num_abbrev (_ :: E) = num_abbrev E)`; - -local - -val lem1 = Q.prove ( -`!l x. MEM x l ==> typexpr_size x <= typexpr1_size l`, -Induct THEN SRW_TAC [] [typexpr_size_def] THEN RES_TAC THEN DECIDE_TAC); - -in - -val apply_abbrev_def = tDefine "apply_abbrev" -`(apply_abbrev tpo tcn t (TE_var tv) = TE_var tv) /\ - (apply_abbrev tpo tcn t (TE_idxvar i1 i2) = TE_idxvar i1 i2) /\ - (apply_abbrev tpo tcn t TE_any = TE_any) /\ - (apply_abbrev tpo tcn t (TE_arrow t1 t2) = - TE_arrow (apply_abbrev tpo tcn t t1) (apply_abbrev tpo tcn t t2)) /\ - (apply_abbrev tpo tcn t (TE_tuple ts) = TE_tuple (MAP (apply_abbrev tpo tcn t) ts)) /\ - (apply_abbrev tpo tcn t (TE_constr ts tc) = - if (tc = TC_name tcn) /\ (LENGTH ts = LENGTH tpo) then - substs_typevar_typexpr (ZIP (MAP tp_to_tv tpo, MAP (apply_abbrev tpo tcn t) ts)) t - else - TE_constr (MAP (apply_abbrev tpo tcn t) ts) tc)` -(WF_REL_TAC `measure (\(a, b, c, d). typexpr_size d)` THEN SRW_TAC [] [] THEN IMP_RES_TAC lem1 THEN - DECIDE_TAC); - -end; - -val remove_abbrev_def = Define -`(remove_abbrev [] = (NONE, [])) /\ - (remove_abbrev (EB_ta tpo tcn t :: E) = (SOME (EB_ta tpo tcn t), E)) /\ - (remove_abbrev (EB_td tcn k :: E) = - let (a, E') = remove_abbrev E in - (a, EB_td tcn k :: E')) /\ - (remove_abbrev (EB_tr tcn k fns :: E) = - let (a, E') = remove_abbrev E in - (a, EB_tr tcn k fns :: E')) /\ - (remove_abbrev (EB_tv :: E) = - let (a, E') = remove_abbrev E in - (OPTION_MAP (\EB. shiftEB 0 1 EB) a, EB_tv :: E')) /\ - (remove_abbrev (EB_l k t :: E) = remove_abbrev E) /\ - (remove_abbrev (EB_fn fn tpo tcn t :: E) = remove_abbrev E) /\ - (remove_abbrev (EB_pc cn tpo tl tc :: E) = remove_abbrev E) /\ - (remove_abbrev (EB_cc cn tc :: E) = remove_abbrev E) /\ - (remove_abbrev (EB_vn vn ts :: E) = remove_abbrev E)`; - -val remove_abbrev_result_thm = Q.prove ( -`!E. ?E'. (remove_abbrev E = (NONE, E')) \/ ?tpo tcn t. remove_abbrev E = (SOME (EB_ta tpo tcn t), E')`, -Induct THEN SRW_TAC [] [remove_abbrev_def] THEN Cases_on `h` THEN -SRW_TAC [] [remove_abbrev_def, shiftEB_def]); - -val remove_abbrev_num_abbrev_thm = Q.prove ( -`!E E' a. (remove_abbrev E = (a, E')) ==> (num_abbrev E' = num_abbrev E - 1)`, -Induct THEN SRW_TAC [] [remove_abbrev_def, num_abbrev_def] THEN SRW_TAC [] [num_abbrev_def] THEN -Cases_on `h` THEN FULL_SIMP_TAC (srw_ss ()) [remove_abbrev_def, num_abbrev_def, LET_THM, LAMBDA_PROD2] THEN -SRW_TAC [] [num_abbrev_def] THEN Cases_on `remove_abbrev E` THEN FULL_SIMP_TAC (srw_ss()) []); - -val remove_abbrev_num_abbrev_thm2 = Q.prove ( -`!E. (?E'. remove_abbrev E = (NONE, E')) = (num_abbrev E = 0)`, -Induct THEN SRW_TAC [] [remove_abbrev_def, num_abbrev_def] THEN SRW_TAC [] [num_abbrev_def] THEN -Cases_on `h` THEN FULL_SIMP_TAC (srw_ss ()) [remove_abbrev_def, num_abbrev_def, LET_THM, LAMBDA_PROD2] THEN -SRW_TAC [] [num_abbrev_def] THEN Cases_on `remove_abbrev E` THEN FULL_SIMP_TAC (srw_ss()) []); - -val Eok_lem1 = Q.prove ( -`!EB E. Eok (EB::E) ==> Eok E`, -METIS_TAC [ok_ok_thm, APPEND]); - -val remove_lookup_lem = Q.prove ( -`!E tcn E' tpo t. Eok E /\ (remove_abbrev E = (SOME (EB_ta tpo tcn t), E')) ==> - (lookup E (name_tcn tcn) = SOME (EB_ta tpo tcn t))`, -Induct THEN SRW_TAC [] [lookup_def, remove_abbrev_def] THEN Cases_on `h` THEN -FULL_SIMP_TAC (srw_ss()) [remove_abbrev_def, lookup_def, domEB_def, LET_THM, LAMBDA_PROD2, - shiftEB_add_thm, Eok_def] THEN -IMP_RES_TAC Eok_lem1 THEN IMP_RES_TAC ok_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [] THEN -Cases_on `E'` THEN FULL_SIMP_TAC (srw_ss ()) [] THEN SRW_TAC [] [] THEN Cases_on `remove_abbrev E` THEN -FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [] THENL -[METIS_TAC [lookup_dom_thm], - METIS_TAC [lookup_dom_thm], - Cases_on `EB` THEN FULL_SIMP_TAC (srw_ss()) [shiftEB_def]]); - -local - -val lem1 = Q.prove ( -`!EB E t1 t2. Eok (EB::E) /\ ~(EB = EB_tv) /\ JTeq E t1 t2 ==> JTeq (EB::E) t1 t2`, -METIS_TAC [weak_teq_thm, MEM, APPEND]); - -val lem2 = Q.prove ( -`!E. ?EBopt E'. remove_abbrev E = (EBopt, E')`, -SRW_TAC [] [] THEN Cases_on `remove_abbrev E` THEN METIS_TAC []); - -val lem3 = Q.prove ( -`!E1 EB E2 tpo tcn t E'. - (remove_abbrev (E1 ++ [EB] ++ E2) = (SOME (EB_ta (TPS_nary tpo) tcn t),E')) /\ - (remove_abbrev (E1 ++ E2) = (SOME (EB_ta (TPS_nary tpo) tcn t),E')) ==> - ~is_tc_EB EB`, -Induct THEN SRW_TAC [] [remove_abbrev_def, is_tc_EB_def] THENL -[Cases_on `EB` THEN FULL_SIMP_TAC (srw_ss()) [remove_abbrev_def, is_tc_EB_def, LET_THM] THEN - SRW_TAC [] [] THEN IMP_RES_TAC remove_abbrev_num_abbrev_thm THEN - `~(num_abbrev E' = 0)` by METIS_TAC [remove_abbrev_num_abbrev_thm2, NOT_SOME_NONE, PAIR_EQ] THEN - DECIDE_TAC, - Cases_on `h` THEN FULL_SIMP_TAC (srw_ss()) [remove_abbrev_def, is_tc_EB_def, LET_THM, LAMBDA_PROD2] THENL - [STRIP_ASSUME_TAC (Q.SPEC `E1++[EB]++E2` lem2) THEN - STRIP_ASSUME_TAC (Q.SPEC `E1++E2` lem2) THEN SRW_TAC [] [] THEN Cases_on `EB'` THEN - FULL_SIMP_TAC (srw_ss()) [shiftEB_def] THEN - Cases_on `EB''` THEN FULL_SIMP_TAC (srw_ss()) [shiftEB_def, shiftt_11] THEN - METIS_TAC [SND], - METIS_TAC [], - METIS_TAC [], - METIS_TAC [], - METIS_TAC [], - STRIP_ASSUME_TAC (Q.SPEC `E1++[EB]++E2` lem2) THEN - STRIP_ASSUME_TAC (Q.SPEC `E1++E2` lem2) THEN SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [] THEN - SRW_TAC [] [] THEN METIS_TAC [SND], - STRIP_ASSUME_TAC (Q.SPEC `E1++[EB]++E2` lem2) THEN - STRIP_ASSUME_TAC (Q.SPEC `E1++E2` lem2) THEN SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [] THEN - SRW_TAC [] [] THEN METIS_TAC [SND], - SRW_TAC [] [] THEN Cases_on `E1` THEN FULL_SIMP_TAC (srw_ss()) [] THEN - `LENGTH (t++[EB]) = LENGTH t` by METIS_TAC [] THEN - FULL_SIMP_TAC (srw_ss()) [], - METIS_TAC []]]); - -val lem4 = Q.prove ( -`!E1 EB E2'. Eok (E1++[EB]++E2) /\ ~is_tc_EB EB ==> Eok (E1++E2)`, -METIS_TAC [ok_str_thm, EXISTS_DEF]); - -in - -val remove_abbrev_split_lem = Q.prove ( -`!E EB E'. (remove_abbrev E = (SOME EB, E')) ==> - ?E1 EB' E2. ~(EB' = EB_tv) /\ (E = E1++[EB']++E2) /\ - ((remove_abbrev (E1++E2) = (SOME EB, E')) \/ (E' = E1++E2))`, -Induct THEN SRW_TAC [] [remove_abbrev_def] THEN Cases_on `h` THEN -FULL_SIMP_TAC (srw_ss()) [remove_abbrev_def, LET_THM] THEN -STRIP_ASSUME_TAC (Q.SPEC `E` lem2) THEN FULL_SIMP_TAC (srw_ss()) [Eok_def] THEN SRW_TAC [] [] THENL -[MAP_EVERY Q.EXISTS_TAC [`EB_tv::E1`, `EB'''`, `E2`] THEN SRW_TAC [] [remove_abbrev_def], - METIS_TAC [APPEND, APPEND_ASSOC], - MAP_EVERY Q.EXISTS_TAC [`EB_vn v t::E1`, `EB''`, `E2`] THEN SRW_TAC [] [remove_abbrev_def], - MAP_EVERY Q.EXISTS_TAC [`[]`, `EB_vn v t`, `E1++[EB'']++E2`] THEN SRW_TAC [] [remove_abbrev_def], - MAP_EVERY Q.EXISTS_TAC [`EB_cc c t::E1`, `EB''`, `E2`] THEN SRW_TAC [] [remove_abbrev_def], - MAP_EVERY Q.EXISTS_TAC [`[]`, `EB_cc c t`, `E1++[EB'']++E2`] THEN SRW_TAC [] [remove_abbrev_def], - MAP_EVERY Q.EXISTS_TAC [`EB_pc c t t0 t1::E1`, `EB''`, `E2`] THEN SRW_TAC [] [remove_abbrev_def], - MAP_EVERY Q.EXISTS_TAC [`[]`, `EB_pc c t t0 t1`, `E1++[EB'']++E2`] THEN SRW_TAC [] [remove_abbrev_def], - MAP_EVERY Q.EXISTS_TAC [`EB_fn f t t0 t1::E1`, `EB''`, `E2`] THEN SRW_TAC [] [remove_abbrev_def], - MAP_EVERY Q.EXISTS_TAC [`[]`, `EB_fn f t t0 t1`, `E1++[EB'']++E2`] THEN SRW_TAC [] [remove_abbrev_def], - MAP_EVERY Q.EXISTS_TAC [`EB_td t n::E1`, `EB''`, `E2`] THEN SRW_TAC [] [remove_abbrev_def], - METIS_TAC [APPEND, APPEND_ASSOC], - MAP_EVERY Q.EXISTS_TAC [`EB_tr t n l::E1`, `EB''`, `E2`] THEN SRW_TAC [] [remove_abbrev_def], - METIS_TAC [APPEND, APPEND_ASSOC], - MAP_EVERY Q.EXISTS_TAC [`[]`, `EB_ta t t0 t1`, `E`] THEN SRW_TAC [] [], - MAP_EVERY Q.EXISTS_TAC [`EB_l n t::E1`, `EB''`, `E2`] THEN SRW_TAC [] [remove_abbrev_def], - MAP_EVERY Q.EXISTS_TAC [`[]`, `EB_l n t`, `E1++[EB'']++E2`] THEN SRW_TAC [] [remove_abbrev_def]]); - -val remove_abbrev_teq_weak_thm = Q.prove ( -`!E E' tpo tcn t t1 t2. - Eok E /\ (remove_abbrev E = (SOME (EB_ta (TPS_nary tpo) tcn t),E')) /\ JTeq E' t1 t2 ==> - JTeq E t1 t2`, -STRIP_TAC THEN Induct_on `LENGTH E` THEN SRW_TAC [] [] THEN Cases_on `E` THEN -FULL_SIMP_TAC (srw_ss()) [remove_abbrev_def] THEN IMP_RES_TAC remove_abbrev_split_lem THENL -[`LENGTH (h::t') = LENGTH (E1++[EB']++E2)` by METIS_TAC [] THEN - FULL_SIMP_TAC (srw_ss()) [] THEN - `LENGTH t' = LENGTH (E1++E2)` by (SRW_TAC [] [] THEN DECIDE_TAC) THEN - IMP_RES_TAC lem3 THEN IMP_RES_TAC lem4 THEN - RES_TAC THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [] THEN - IMP_RES_TAC weak_teq_thm THEN FULL_SIMP_TAC (srw_ss()) [], - FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [] THEN - IMP_RES_TAC weak_teq_thm THEN FULL_SIMP_TAC (srw_ss()) []]); - -end; - -val abbrev_occurs_def = ottDefine "abbrev_occurs" -`(abbrev_occurs tcn (TE_var _) = F) /\ - (abbrev_occurs tcn (TE_idxvar _ _) = F) /\ - (abbrev_occurs tcn TE_any = F) /\ - (abbrev_occurs tcn (TE_arrow t1 t2) = abbrev_occurs tcn t1 \/ abbrev_occurs tcn t2) /\ - (abbrev_occurs tcn (TE_tuple ts) = EXISTS (abbrev_occurs tcn) ts) /\ - (abbrev_occurs tcn (TE_constr ts tc) = (tc = TC_name tcn) \/ EXISTS (abbrev_occurs tcn) ts)`; - -val apply_abbrev_no_occur_thm = Q.prove ( -`(!t2 tpo tcn t1. ~abbrev_occurs tcn t2 ==> (apply_abbrev tpo tcn t1 t2 = t2)) /\ - (!ts tpo tcn t1. ~EXISTS (abbrev_occurs tcn) ts ==> (MAP (\x. apply_abbrev tpo tcn t1 x) ts = ts))`, -Induct THEN SRW_TAC [] [apply_abbrev_def, abbrev_occurs_def] THEN FULL_SIMP_TAC (srw_ss()) [] THEN -METIS_TAC []); - -val abbrev_occur_lem1 = Q.prove ( -`(!t tcn E tp l. - ~MEM (name_tcn tcn) (MAP domEB E) /\ - tkind E (substs_typevar_typexpr (MAP (\tp. (tp_to_tv tp,TE_constr [] TC_unit)) l) t) ==> - ~abbrev_occurs tcn t) /\ - (!ts tcn E tp l. - ~MEM (name_tcn tcn) (MAP domEB E) /\ - EVERY (\t. tkind E (substs_typevar_typexpr (MAP (\tp. (tp_to_tv tp,TE_constr [] TC_unit)) l) t)) ts ==> - EVERY (\t. ~abbrev_occurs tcn t) ts)`, -Induct THEN SRW_TAC [] [substs_typevar_typexpr_def, Eok_def, abbrev_occurs_def, EVERY_MAP, o_DEF] THENL -[METIS_TAC [], - METIS_TAC [], - METIS_TAC [], - CCONTR_TAC THEN Cases_on `t` THEN FULL_SIMP_TAC (srw_ss()) [Eok_def, COND_EXPAND_EQ] THEN - IMP_RES_TAC lookup_dom_thm THEN FULL_SIMP_TAC (srw_ss()) [], - METIS_TAC [], - METIS_TAC [], - METIS_TAC []]); - - -local - -val lem2 = Q.prove ( -`(!t x y tcn. abbrev_occurs tcn (shiftt x y t) = abbrev_occurs tcn t) /\ - (!ts x y tcn. EXISTS (\t. abbrev_occurs tcn (shiftt x y t)) ts = EXISTS (\t. abbrev_occurs tcn t) ts)`, -Induct THEN SRW_TAC [] [abbrev_occurs_def, shiftt_def, EXISTS_MAP]); - -in - -val abbrev_no_occur_thm = Q.prove ( -`!E tpo tcn t E'. Eok E /\ (remove_abbrev E = (SOME (EB_ta tpo tcn t),E')) ==> ~abbrev_occurs tcn t`, -recInduct (fetch "-" "remove_abbrev_ind") THEN -SRW_TAC [] [remove_abbrev_def, LAMBDA_PROD2, LET_THM, Eok_def] THEN -Cases_on `remove_abbrev E` THEN FULL_SIMP_TAC (srw_ss()) [] THENL -[Cases_on `tpo` THEN FULL_SIMP_TAC (srw_ss()) [Eok_def] THEN METIS_TAC [abbrev_occur_lem1], - Cases_on `EB` THEN FULL_SIMP_TAC (srw_ss()) [shiftEB_def] THEN SRW_TAC [] [] THEN METIS_TAC [lem2], - METIS_TAC [ok_ok_thm], - Cases_on `tpo` THEN FULL_SIMP_TAC (srw_ss()) [Eok_def] THEN METIS_TAC [ok_ok_thm], - Cases_on `tpo` THEN Cases_on `tl` THEN Cases_on `tc` THEN Cases_on `l` THEN - FULL_SIMP_TAC (srw_ss()) [Eok_def] THEN Cases_on `l'` THEN FULL_SIMP_TAC (srw_ss()) [] THEN - METIS_TAC [ok_ok_thm], - Cases_on `tc` THEN FULL_SIMP_TAC (srw_ss()) [Eok_def] THEN METIS_TAC [ok_ok_thm], - METIS_TAC [ok_ok_thm]]); - - -end; - -val remove_abbrev_lem1 = Q.prove ( -`!E tpo tcn t E'. (remove_abbrev E = (SOME (EB_ta (TPS_nary tpo) tcn t),E')) /\ - MEM (name_tcn typeconstr_name) (MAP domEB E') ==> - MEM (name_tcn typeconstr_name) (MAP domEB E)`, -Induct THEN SRW_TAC [] [remove_abbrev_def] THEN Cases_on `h` THEN -FULL_SIMP_TAC (srw_ss()) [remove_abbrev_def, domEB_def, LET_THM, LAMBDA_PROD2] THEN -Cases_on `remove_abbrev E` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [] THEN -FULL_SIMP_TAC (srw_ss()) [domEB_def] THEN Cases_on `EB` THEN FULL_SIMP_TAC (srw_ss()) [shiftEB_def] THEN -SRW_TAC [] []); - -val remove_abbrev_lem2 = Q.prove ( -`!E tpo tcn t E' tcn2 EB. (remove_abbrev E = (SOME (EB_ta (TPS_nary tpo) tcn t),E')) /\ ~(tcn = tcn2) /\ - (lookup E (name_tcn tcn2) = SOME EB) ==> - (lookup E' (name_tcn tcn2) = SOME EB)`, -Induct THEN SRW_TAC [] [remove_abbrev_def, lookup_def] THENL -[Cases_on `EB` THEN FULL_SIMP_TAC (srw_ss()) [remove_abbrev_def, domEB_def, LET_THM, LAMBDA_PROD2] THEN - Cases_on `remove_abbrev E` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [lookup_def] THEN - FULL_SIMP_TAC (srw_ss()) [domEB_def], - Cases_on `h` THEN FULL_SIMP_TAC (srw_ss()) [remove_abbrev_def, domEB_def, LET_THM, LAMBDA_PROD2] THEN - Cases_on `remove_abbrev E` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [lookup_def] THEN - FULL_SIMP_TAC (srw_ss()) [domEB_def] THEN Cases_on `EB` THEN FULL_SIMP_TAC (srw_ss()) [shiftEB_def] THEN - SRW_TAC [] [] THEN METIS_TAC [], - Cases_on `h` THEN - FULL_SIMP_TAC (srw_ss()) [remove_abbrev_def, domEB_def, LET_THM, LAMBDA_PROD2, shiftEB_add_thm] THEN - Cases_on `remove_abbrev E` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [lookup_def] THEN - FULL_SIMP_TAC (srw_ss()) [domEB_def, shiftEB_add_thm]]); - - -local - -val lem3 = Q.prove ( -`!E tpo tcn t E' idx. (remove_abbrev E = (SOME (EB_ta (TPS_nary tpo) tcn t),E')) /\ - idx_bound E idx ==> idx_bound E' idx`, -Induct THEN SRW_TAC [] [remove_abbrev_def, idx_bound_def] THEN Cases_on `h` THEN -FULL_SIMP_TAC (srw_ss()) [remove_abbrev_def, idx_bound_def, LET_THM, LAMBDA_PROD2] THEN -Cases_on `remove_abbrev E` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [idx_bound_def] THEN -Cases_on `idx` THEN FULL_SIMP_TAC (srw_ss()) [idx_bound_def] THEN Cases_on `EB` THEN -FULL_SIMP_TAC (srw_ss()) [shiftEB_def] THEN SRW_TAC [] []); - -val lem4 = Q.prove ( -`!E tpo tcn t E'. - Eok E /\ (remove_abbrev E = (SOME (EB_ta (TPS_nary tpo) tcn t),E')) /\ - (lookup E (name_tcn tcn) = SOME (EB_ta (TPS_nary tpo) tcn t)) ==> - tkind E' (substs_typevar_typexpr (MAP (\tp. (tp_to_tv tp,TE_constr [] TC_unit)) tpo) t)`, -Induct THEN SRW_TAC [] [lookup_def, remove_abbrev_def] THEN -FULL_SIMP_TAC (srw_ss()) [domEB_def, Eok_def, remove_abbrev_def] THEN Cases_on `h` THEN -FULL_SIMP_TAC (srw_ss()) [domEB_def, Eok_def, remove_abbrev_def, LET_THM, LAMBDA_PROD2, shiftEB_add_thm] THEN -SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [Eok_def] THENL -[Cases_on `remove_abbrev E` THEN FULL_SIMP_TAC (srw_ss()) [] THEN Cases_on `EB2` THEN - FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [shiftEB_def] THEN - SRW_TAC [] [] THEN Cases_on `EB` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [] THEN - FULL_SIMP_TAC (srw_ss()) [shiftEB_def, shiftt_11] THEN SRW_TAC [] [] THEN - `tkind (EB_tv::r) - (shiftt 0 1 (substs_typevar_typexpr (MAP (\tp. (tp_to_tv tp,TE_constr [] TC_unit)) tpo) t1))` by - METIS_TAC [weak_one_tv_ok_thm, APPEND, num_tv_def, APPEND_ASSOC, shiftE_def] THEN - FULL_SIMP_TAC (srw_ss()) [subst_shiftt_com_lem, MAP_MAP, shiftt_def], - METIS_TAC [ok_ok_thm], - Cases_on `t'` THEN FULL_SIMP_TAC (srw_ss()) [Eok_def], - Cases_on `t'` THEN Cases_on `t0` THEN Cases_on `t1` THEN Cases_on `l` THEN - FULL_SIMP_TAC (srw_ss()) [Eok_def] THEN Cases_on `l'` THEN FULL_SIMP_TAC (srw_ss()) [] THEN - METIS_TAC [ok_ok_thm], - Cases_on `t'` THEN FULL_SIMP_TAC (srw_ss()) [Eok_def] THEN METIS_TAC [ok_ok_thm], - Cases_on `remove_abbrev E` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [] THEN - `Eok (EB_td t' n::r)` by (SRW_TAC [] [Eok_def] THEN METIS_TAC [remove_abbrev_lem1, ok_ok_thm]) THEN - `~MEM EB_tv [EB_td t' n]` by SRW_TAC [] [] THEN METIS_TAC [weak_ok_thm, APPEND], - Cases_on `remove_abbrev E` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [] THEN - `Eok (EB_tr t' n l::r)` by (SRW_TAC [] [Eok_def] THEN METIS_TAC [remove_abbrev_lem1, ok_ok_thm]) THEN - `~MEM EB_tv [EB_tr t' n l]` by SRW_TAC [] [] THEN METIS_TAC [weak_ok_thm, APPEND], - METIS_TAC [ok_ok_thm]]); - -in - -val teq_remove_abbrev_ok_thm = Q.prove ( -`(!E. Eok E ==> !tpo tcn t E'. (remove_abbrev E = (SOME (EB_ta (TPS_nary tpo) tcn t),E')) ==> Eok E') /\ - (!E tc k. (typeconstr_kind E tc = SOME k) ==> - !tpo tcn t E'. (remove_abbrev E = (SOME (EB_ta (TPS_nary tpo) tcn t),E')) ==> - if (TC_name tcn = tc) /\ (LENGTH tpo = k) then - EBok E' (EB_ta (TPS_nary tpo) tcn t) - else - (typeconstr_kind E' tc = SOME k)) /\ - (!E ts. tsok E ts ==> !tpo tcn t E'. (remove_abbrev E = (SOME (EB_ta (TPS_nary tpo) tcn t),E')) ==> - Eok E') /\ - (!E tps t. ntsok E tps t ==> !tpo tcn t' E'. (remove_abbrev E = (SOME (EB_ta (TPS_nary tpo) tcn t'),E')) ==> - Eok E') /\ - (!E t. tkind E t ==> !tpo tcn t' E'. (remove_abbrev E = (SOME (EB_ta (TPS_nary tpo) tcn t'),E')) ==> - tkind E' (apply_abbrev tpo tcn t' t))`, -HO_MATCH_MP_TAC Eok_ind THEN SRW_TAC [] [Eok_def] THEN -FULL_SIMP_TAC (srw_ss()) [remove_abbrev_def, LET_THM, LAMBDA_PROD2, apply_abbrev_def] THENL -[Cases_on `EB` THEN FULL_SIMP_TAC (srw_ss()) [shiftEB_def] THEN SRW_TAC [] [Eok_def] THEN - Cases_on `remove_abbrev E` THEN FULL_SIMP_TAC (srw_ss()) [], - FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN Cases_on `t_list` THEN FULL_SIMP_TAC (srw_ss()) [] THEN - METIS_TAC [ok_ok_thm], - FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN Cases_on `t_list` THEN FULL_SIMP_TAC (srw_ss()) [] THEN - METIS_TAC [ok_ok_thm], - FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN Cases_on `t_list` THEN FULL_SIMP_TAC (srw_ss()) [] THEN - METIS_TAC [ok_ok_thm], - Cases_on `E'` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [Eok_def] THEN - Cases_on `remove_abbrev E` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [] THEN - METIS_TAC [remove_abbrev_lem1], - METIS_TAC [ok_ok_thm], - Cases_on `E'` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [Eok_def] THEN - Cases_on `remove_abbrev E` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [] THEN - METIS_TAC [remove_abbrev_lem1], - METIS_TAC [ok_ok_thm], - Cases_on `lookup E (name_tcn typeconstr_name)` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [] THENL - [IMP_RES_TAC lookup_name_thm THEN SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [] THEN - IMP_RES_TAC remove_lookup_lem THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [] THEN - SRW_TAC [] [EBok_def, Eok_def] THEN FULL_SIMP_TAC (srw_ss()) [COND_EXPAND_EQ] THEN METIS_TAC [lem4], - IMP_RES_TAC lookup_name_thm THEN SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [] THEN - Cases_on `tcn = typeconstr_name` THEN SRW_TAC [] [] THEN IMP_RES_TAC remove_abbrev_lem2 THEN - SRW_TAC [] [] THEN - IMP_RES_TAC remove_lookup_lem THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [] THEN - FULL_SIMP_TAC (srw_ss()) [COND_EXPAND_EQ]], - FULL_SIMP_TAC (srw_ss()) [shiftEB_def] THEN METIS_TAC [ok_ok_thm, APPEND], - METIS_TAC [ok_ok_thm], - SRW_TAC [] [Eok_def] THEN METIS_TAC [lem3], - SRW_TAC [] [Eok_def], - SRW_TAC [] [Eok_def, EVERY_MAP] THEN FULL_SIMP_TAC (srw_ss()) [EVERY_MEM], - SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [Eok_def, EVERY_MAP] THEN - FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN MATCH_MP_TAC tvar_subst_ok_lem THEN - SRW_TAC [] [MAP_FST_ZIP, EVERY_REVERSE] THEN SRW_TAC [] [GSYM EVERY_MAP] THEN SRW_TAC [] [MAP_SND_ZIP] THEN - SRW_TAC [] [EVERY_MAP] THEN SRW_TAC [] [EVERY_MEM] THEN FULL_SIMP_TAC (srw_ss()) [EBok_def, Eok_def] THEN - Q.EXISTS_TAC `MAP (\x. (tp_to_tv x, TE_constr [] TC_unit)) tpo` THEN SRW_TAC [] [MAP_MAP, ETA_THM] THEN - METIS_TAC []]); - -end; - -val type_substs_com_thm = Q.prove ( -`(!t subs1 subs2. - (!tv. MEM tv (ftv_typexpr t) ==> MEM tv (MAP FST subs1)) - ==> - (substs_typevar_typexpr subs2 (substs_typevar_typexpr subs1 t) = - substs_typevar_typexpr (MAP (\(tv,t). (tv,substs_typevar_typexpr subs2 t)) subs1) t)) /\ - (!tlist subs1 subs2. - (!tv. MEM tv (FLAT (MAP ftv_typexpr tlist)) ==> MEM tv (MAP FST subs1)) - ==> - (MAP (\t. substs_typevar_typexpr subs2 (substs_typevar_typexpr subs1 t)) tlist = - MAP (\t. substs_typevar_typexpr (MAP (\(tv,t). (tv,substs_typevar_typexpr subs2 t)) subs1) t) - tlist))`, -Induct THEN SRW_TAC [] [substs_typevar_typexpr_def, ftv_typexpr_def, MAP_MAP] THENL -[Cases_on `list_assoc t subs1` THEN - SRW_TAC [] [substs_typevar_typexpr_def, list_assoc_map, LAMBDA_PROD2] THEN - IMP_RES_TAC mem_list_assoc THEN FULL_SIMP_TAC (srw_ss()) [], - METIS_TAC [], - METIS_TAC []]); - -local - -val lem1 = Q.prove ( -`!tpo typexpr_list. (LENGTH tpo = LENGTH typexpr_list) ==> - (MAP (\p. tp_to_tv (FST p)) (ZIP (tpo,typexpr_list)) = MAP tp_to_tv tpo)`, -METIS_TAC [MAP_MAP, MAP_FST_ZIP, ETA_THM]); - -in - -val type_subst_apply_abbrev_thm = Q.prove ( -`!substs t' tpo tcn t. (!tv. MEM tv (ftv_typexpr t) ==> MEM tv (MAP tp_to_tv tpo)) ==> - (apply_abbrev tpo tcn t (substs_typevar_typexpr substs t') = - substs_typevar_typexpr (MAP (\s. (FST s, apply_abbrev tpo tcn t (SND s))) substs) - (apply_abbrev tpo tcn t t'))`, -recInduct substs_typevar_typexpr_ind THEN SRW_TAC [] [] THEN -SRW_TAC [] [apply_abbrev_def, substs_typevar_typexpr_def, MAP_MAP, MAP_EQ, ZIP_MAP] THEN -FULL_SIMP_TAC (srw_ss()) [ftv_typexpr_def, MEM_FLAT, EXISTS_MAP] THEN -FULL_SIMP_TAC (srw_ss()) [EXISTS_MEM] THENL -[Cases_on `list_assoc typevar sub` THEN SRW_TAC [] [apply_abbrev_def, list_assoc_map], - MP_TAC ((SIMP_RULE (srw_ss()) [MAP_MAP] o - Q.SPECL [`t`, - `MAP (\p. (tp_to_tv (FST p),apply_abbrev tpo tcn t (SND p))) - (ZIP (tpo,typexpr_list))`, - `MAP (\s. (FST s,apply_abbrev tpo tcn t (SND s))) sub`]) - (hd (CONJUNCTS type_substs_com_thm))) THEN - SRW_TAC [] [lem1] THEN - MATCH_MP_TAC (METIS_PROVE [] ``!x y f z. (x = y) ==> (f x z = f y z)``) THEN - SRW_TAC [] [MAP_EQ] THEN - `MEM (SND p) typexpr_list` by METIS_TAC [MEM_ZIP, SND, MEM_EL] THEN - METIS_TAC []]); - -end; - -local - -val lem1 = Q.prove ( -`!l1 l2. - tkind E (substs_typevar_typexpr (MAP (\x. (FST x,TE_constr [] TC_unit)) l1) (TE_var typevar)) /\ - (MAP FST l1 = MAP FST l2) /\ - EVERY (\(t,t'). JTeq E t t') (ZIP (MAP SND l1,MAP SND l2)) ==> - JTeq E (substs_typevar_typexpr l1 (TE_var typevar)) (substs_typevar_typexpr l2 (TE_var typevar))`, -Induct THEN SRW_TAC [] [substs_typevar_typexpr_def, list_assoc_def] THEN1 METIS_TAC [JTeq_rules] THEN -Cases_on `l2` THEN FULL_SIMP_TAC (srw_ss()) [substs_typevar_typexpr_def] THEN -Cases_on `h` THEN Cases_on `h'` THEN FULL_SIMP_TAC (srw_ss()) [list_assoc_def]); - -in - -val teq_substs_same_thm = Q.store_thm ("teq_substs_same_thm", -`!l1 t l2. tkind E (substs_typevar_typexpr (MAP (\x. (FST x, TE_constr [] TC_unit)) l1) t) /\ - (MAP FST l1 = MAP FST l2) /\ - EVERY (\(t, t'). JTeq E t t') (ZIP (MAP SND l1, MAP SND l2)) ==> - JTeq E (substs_typevar_typexpr l1 t) (substs_typevar_typexpr l2 t)`, -recInduct substs_typevar_typexpr_ind THEN SRW_TAC [] [lem1, substs_typevar_typexpr_def] THENL -[METIS_TAC [JTeq_rules], - FULL_SIMP_TAC (srw_ss()) [Eok_def], - FULL_SIMP_TAC (srw_ss()) [Eok_def] THEN METIS_TAC [JTeq_rules], - FULL_SIMP_TAC (srw_ss()) [Eok_def] THEN - ONCE_REWRITE_TAC [JTeq_cases] THEN NTAC 5 DISJ2_TAC THEN DISJ1_TAC THEN - Q.EXISTS_TAC `ZIP (MAP (\typexpr_. substs_typevar_typexpr sub typexpr_) typexpr_list, - MAP (\typexpr_. substs_typevar_typexpr l2 typexpr_) typexpr_list)` THEN - SRW_TAC [] [MAP_FST_ZIP, MAP_SND_ZIP, LENGTH_MAP, LENGTH_ZIP, ZIP_MAP, MAP_ZIP_SAME, EVERY_MAP] THEN - FULL_SIMP_TAC (srw_ss()) [EVERY_MEM, MEM_MAP] THEN METIS_TAC [], - FULL_SIMP_TAC (srw_ss()) [Eok_def] THEN - ONCE_REWRITE_TAC [JTeq_cases] THEN NTAC 6 DISJ2_TAC THEN - MAP_EVERY Q.EXISTS_TAC [`ZIP (MAP (\typexpr_. substs_typevar_typexpr sub typexpr_) typexpr_list, - MAP (\typexpr_. substs_typevar_typexpr l2 typexpr_) typexpr_list)`, - `typeconstr`] THEN - SRW_TAC [] [MAP_FST_ZIP, MAP_SND_ZIP, LENGTH_MAP, LENGTH_ZIP, ZIP_MAP, MAP_ZIP_SAME, EVERY_MAP] THEN - FULL_SIMP_TAC (srw_ss()) [EVERY_MEM, MEM_MAP] THEN METIS_TAC []]); - -end; - -local - -val teq_refl_lem = Q.prove ( -`!E t. JTeq E t t = tkind E t`, -METIS_TAC [JTeq_rules, teq_ok_thm]); - -val lem1 = Q.prove ( -`(MAP f (MAP FST l) = MAP FST (MAP (\x. (f (FST x), f (SND x))) l)) /\ - (MAP f (MAP SND l) = MAP SND (MAP (\x. (f (FST x), f (SND x))) l))`, -SRW_TAC [] [MAP_MAP]); - -val lem2 = Q.prove ( -`(MAP f (MAP FST l) = MAP FST (MAP (\x. (f (FST x), SND x)) l))`, -SRW_TAC [] [MAP_MAP]); - -val lem3 = Q.prove ( -`!t f l. (ftv_typexpr (substs_typevar_typexpr (MAP (\z. (f z, TE_constr [] TC_unit)) l) t) = []) ==> - (!tv. MEM tv (ftv_typexpr t) ==> MEM tv (MAP f l))`, -recInduct ftv_typexpr_ind THEN SRW_TAC [] [ftv_typexpr_def, substs_typevar_typexpr_def] THEN -FULL_SIMP_TAC (srw_ss()) [MEM_FLAT, MAP_MAP, EXISTS_MAP, FLAT_EQ_EMPTY, EVERY_MAP] THEN -FULL_SIMP_TAC (srw_ss()) [EXISTS_MEM, EVERY_MEM] THENL -[Cases_on `list_assoc typevar (MAP (\z. (f z,TE_constr [] TC_unit)) l)` THEN - FULL_SIMP_TAC (srw_ss()) [ftv_typexpr_def] THEN IMP_RES_TAC list_assoc_mem THEN - FULL_SIMP_TAC (srw_ss()) [MEM_MAP] THEN METIS_TAC [], - METIS_TAC [], - METIS_TAC []]); - -val lem4 = Q.prove ( -`!l. EVERY (\x. tkind E (FST x)) l ==> - EVERY (\s. ftv_typexpr (SND s) = []) (MAP (\z. (SND z,FST z)) l)`, -Induct THEN SRW_TAC [] [] THEN METIS_TAC [ftv_lem1]); - -val lem5 = Q.prove ( -`!l. - (!t E. - tkind E (substs_typevar_typexpr (MAP (\z. (SND z,TE_constr [] TC_unit)) l) t) ==> - !tv. MEM tv (ftv_typexpr t) ==> MEM tv (MAP SND l)) /\ - (!ts E. - EVERY (\t. tkind E (substs_typevar_typexpr (MAP (\z. (SND z,TE_constr [] TC_unit)) l) t)) ts ==> - !tv. MEM tv (FLAT (MAP ftv_typexpr ts)) ==> MEM tv (MAP SND l))`, -STRIP_TAC THEN Induct THEN -SRW_TAC [] [Eok_def, ftv_typexpr_def, substs_typevar_typexpr_def, EVERY_MAP, ETA_THM] THENL -[Cases_on `list_assoc t (MAP (\z. (SND z,TE_constr [] TC_unit)) l)` THEN FULL_SIMP_TAC (srw_ss()) [] THEN - FULL_SIMP_TAC (srw_ss()) [Eok_def] THEN IMP_RES_TAC list_assoc_mem THEN - FULL_SIMP_TAC (srw_ss()) [MEM_MAP] THEN SRW_TAC [] [] THEN METIS_TAC [], - METIS_TAC [], - METIS_TAC [], - METIS_TAC [], - METIS_TAC [], - METIS_TAC [], - METIS_TAC []]); - -val lem6 = Q.prove ( -`!E tpo tcn t' E'. Eok E /\ (remove_abbrev E = (SOME (EB_ta (TPS_nary tpo) tcn t'),E')) ==> - (lookup E' (name_tcn tcn) = NONE)`, -Induct THEN SRW_TAC [] [remove_abbrev_def, lookup_def, domEB_def] THEN Cases_on `h` THEN -FULL_SIMP_TAC (srw_ss()) [remove_abbrev_def, lookup_def, domEB_def] THEN IMP_RES_TAC Eok_lem1 THEN -FULL_SIMP_TAC (srw_ss()) [LET_THM] THEN SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [Eok_def] THENL -[Cases_on `remove_abbrev E` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [lookup_def, domEB_def] THEN - Cases_on `EB` THEN FULL_SIMP_TAC (srw_ss()) [shiftEB_def] THEN SRW_TAC [] [], - Cases_on `remove_abbrev E` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [lookup_def, domEB_def] THEN - METIS_TAC [remove_lookup_lem, lookup_dom_thm], - Cases_on `remove_abbrev E` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [lookup_def, domEB_def] THEN - METIS_TAC [remove_lookup_lem, lookup_dom_thm], - METIS_TAC [lookup_dom_thm]]); - -val lem7 = Q.prove ( -`!tpo t_t'_list. - (LENGTH tpo = LENGTH t_t'_list) ==> - (MAP (\tp. (tp_to_tv tp,TE_constr [] TC_unit)) tpo = - MAP (\p. (tp_to_tv (FST p),TE_constr [] TC_unit)) (ZIP (tpo,t_t'_list)))`, -Induct THEN SRW_TAC [] [] THEN Cases_on `t_t'_list` THEN FULL_SIMP_TAC (srw_ss()) []); - -val lem8 = Q.prove ( -`!E tpo t t_t'_list. - (LENGTH tpo = LENGTH t_t'_list) /\ ntsok E tpo t /\ EVERY (\x. JTeq E (FST x) (SND x)) t_t'_list ==> - JTeq E (substs_typevar_typexpr (MAP (\p. (tp_to_tv (FST p), (FST (SND p)))) (ZIP (tpo,t_t'_list))) t) - (substs_typevar_typexpr (MAP (\p. (tp_to_tv (FST p), (SND (SND p)))) (ZIP (tpo,t_t'_list))) t)`, -SRW_TAC [] [Eok_def] THEN MATCH_MP_TAC teq_substs_same_thm THEN -SRW_TAC [] [MAP_FST_ZIP, MAP_SND_ZIP, MAP_MAP, MAP_ZIP_SAME, ZIP_MAP, ETA_THM, LAMBDA_PROD2] THEN -METIS_TAC [lem7]); - -in - -val apply_abbrev_str_thm = Q.prove ( -`!E t1 t2. JTeq E t1 t2 ==> !tpo tcn t E'. - (remove_abbrev E = (SOME (EB_ta (TPS_nary tpo) tcn t), E')) ==> - JTeq E' (apply_abbrev tpo tcn t t1) (apply_abbrev tpo tcn t t2)`, -RULE_INDUCT_TAC JTeq_ind [remove_abbrev_def, apply_abbrev_def, teq_refl_lem] -[([``"JTeq_sym"``, ``"JTeq_trans"``, ``"JTeq_arrow"``], METIS_TAC [JTeq_rules]), - ([``"JTeq_refl"``], METIS_TAC [teq_remove_abbrev_ok_thm]), - ([``"JTeq_tuple"``], - SRW_TAC [] [lem1] THEN FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN - FULL_SIMP_TAC (srw_ss()) [GSYM EVERY_MEM] THEN MATCH_MP_TAC (List.nth (CONJUNCTS JTeq_rules, 5)) THEN - SRW_TAC [] [EVERY_MAP]), - ([``"JTeq_expand"``], - SRW_TAC [] [] THEN SRW_TAC [] [] THENL - [IMP_RES_TAC remove_lookup_lem THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [] THEN - FULL_SIMP_TAC (srw_ss()) [LENGTH_MAP] THEN SRW_TAC [] [ZIP_MAP, MAP_ZIP_SAME] THEN - SRW_TAC [] [MAP_MAP, tp_to_tv_def] THEN IMP_RES_TAC lookup_ok_thm THEN - FULL_SIMP_TAC (srw_ss()) [EBok_def, Eok_def] THEN IMP_RES_TAC teq_remove_abbrev_ok_thm THEN - IMP_RES_TAC lem4 THEN FULL_SIMP_TAC (srw_ss()) [MAP_MAP] THEN - `EVERY (\s. ftv_typexpr (SND s) = []) - (MAP (\z. (tp_to_tv (TP_var (SND z)),TE_constr [] TC_unit)) t_typevar_list)` - by SRW_TAC [] [EVERY_MAP, ftv_typexpr_def] THEN - FULL_SIMP_TAC (srw_ss()) [tp_to_tv_def] THEN - `!tv. MEM tv (ftv_typexpr t) ==> MEM tv (MAP tp_to_tv (MAP (\z. TP_var (SND z)) t_typevar_list))` - by (SRW_TAC [] [MAP_MAP, tp_to_tv_def] THEN METIS_TAC [lem5]) THEN - FULL_SIMP_TAC (srw_ss()) [type_subst_apply_abbrev_thm] THEN - IMP_RES_TAC abbrev_no_occur_thm THEN - FULL_SIMP_TAC (srw_ss()) [apply_abbrev_no_occur_thm, tp_to_tv_def, MAP_MAP, apply_abbrev_def] THEN - MATCH_MP_TAC (List.nth (CONJUNCTS JTeq_rules, 0)) THEN - MATCH_MP_TAC tvar_subst_ok_lem THEN SRW_TAC [] [MAP_MAP, EVERY_REVERSE, EVERY_MAP] THEN - Q.EXISTS_TAC `MAP (\z. (SND z,TE_constr [] TC_unit)) t_typevar_list` THEN SRW_TAC [] [MAP_MAP] THEN - FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN SRW_TAC [] [] THEN RES_TAC THEN - IMP_RES_TAC teq_remove_abbrev_ok_thm, - IMP_RES_TAC remove_lookup_lem THEN IMP_RES_TAC lookup_ok_thm THEN - FULL_SIMP_TAC (srw_ss()) [EBok_def, Eok_def] THEN SRW_TAC [] [] THEN IMP_RES_TAC ftv_lem1 THEN - FULL_SIMP_TAC (srw_ss()) [MAP_MAP, tp_to_tv_def] THEN IMP_RES_TAC lem3 THEN IMP_RES_TAC lem4 THEN - SRW_TAC [] [type_subst_apply_abbrev_thm, MAP_MAP] THEN - MATCH_MP_TAC ((SIMP_RULE (srw_ss()) [MAP_MAP] o - Q.SPEC `MAP (\x. (apply_abbrev tpo tcn t' (FST x), SND x)) t_typevar_list`) - (List.nth (CONJUNCTS JTeq_rules, 3))) THEN - SRW_TAC [] [EVERY_MAP] THEN IMP_RES_TAC teq_remove_abbrev_ok_thm THENL - [`lookup E' (name_tcn typeconstr_name) = - SOME (EB_ta (TPS_nary (MAP (\z. TP_var (SND z)) t_typevar_list)) typeconstr_name t)` - by METIS_TAC [remove_abbrev_lem2] THEN - IMP_RES_TAC lookup_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [EBok_def, Eok_def] THEN - METIS_TAC [lem6, abbrev_occur_lem1, lookup_dom_thm, apply_abbrev_no_occur_thm], - FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN METIS_TAC [teq_remove_abbrev_ok_thm], - Cases_on `tcn = typeconstr_name` THENL - [SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [] THEN FULL_SIMP_TAC (srw_ss()) [] THEN - METIS_TAC [LENGTH_MAP], - `lookup E' (name_tcn typeconstr_name) = - SOME (EB_ta (TPS_nary (MAP (\z. TP_var (SND z)) t_typevar_list)) typeconstr_name t)` - by METIS_TAC [remove_abbrev_lem2] THEN - IMP_RES_TAC lookup_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [EBok_def, Eok_def] THEN - METIS_TAC [lem6, abbrev_occur_lem1, lookup_dom_thm, apply_abbrev_no_occur_thm]], - FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN METIS_TAC [teq_remove_abbrev_ok_thm]]]), - ([``"JTeq_constr"``], - SRW_TAC [] [lem1] THEN FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN - FULL_SIMP_TAC (srw_ss()) [GSYM EVERY_MEM] THEN SRW_TAC [] [] THENL - [IMP_RES_TAC teq_remove_abbrev_ok_thm THEN POP_ASSUM MP_TAC THEN - SRW_TAC [] [EBok_def] THEN - `EVERY (\x. JTeq E' (FST x) (SND x)) - (MAP (\x. (apply_abbrev tpo tcn t (FST x), apply_abbrev tpo tcn t (SND x))) t_t'_list)` - by SRW_TAC [] [EVERY_MAP] THEN - IMP_RES_TAC lem8 THEN POP_ASSUM MP_TAC THEN SRW_TAC [] [MAP_MAP, ZIP_MAP], - MATCH_MP_TAC (List.nth (CONJUNCTS JTeq_rules, 6)) THEN SRW_TAC [] [EVERY_MAP] THEN - IMP_RES_TAC teq_remove_abbrev_ok_thm THEN METIS_TAC []])]); - -end; - -local - -val lem1 = Q.prove ( -`!l1 l2 P. (LENGTH l1 = LENGTH l2) ==> (EVERY (\x. P (FST x)) (ZIP (l1,l2)) = EVERY (\x. P x) l1)`, -Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN FULL_SIMP_TAC (srw_ss()) []); - -val lem2 = Q.prove ( -`!tpo ts l tcn t'. (LENGTH ts = LENGTH tpo) ==> - (MAP (\p. (tp_to_tv (FST p),apply_abbrev l tcn t' (SND p))) (ZIP (tpo,ts)) = - MAP (\p. (tp_to_tv (SND p),apply_abbrev l tcn t' (FST p))) (ZIP (ts,tpo)))`, -Induct THEN SRW_TAC [] [] THEN Cases_on `ts` THEN FULL_SIMP_TAC (srw_ss()) []); - -in - -val abbrev_eq_thm = Q.prove ( -`(!t tpo tcn t' E. tkind E t /\ (lookup E (name_tcn tcn) = SOME (EB_ta (TPS_nary tpo) tcn t')) ==> - JTeq E t (apply_abbrev tpo tcn t' t)) /\ - (!ts tpo tcn t' E. EVERY (\x. tkind E x) ts /\ - (lookup E (name_tcn tcn) = SOME (EB_ta (TPS_nary tpo) tcn t')) ==> - EVERY (\t. JTeq E t (apply_abbrev tpo tcn t' t)) ts)`, -Induct THEN SRW_TAC [] [apply_abbrev_def, Eok_def] THENL -[`tkind E (TE_idxvar n n0)` by SRW_TAC [] [Eok_def] THEN METIS_TAC [JTeq_rules], - METIS_TAC [JTeq_rules], - MATCH_MP_TAC ((SIMP_RULE (srw_ss()) [MAP_FST_ZIP, MAP_SND_ZIP, LENGTH_MAP] o - Q.SPEC `ZIP (ts, MAP (\a. apply_abbrev tpo tcn t' a) ts)`) - (List.nth (CONJUNCTS JTeq_rules, 5))) THEN - SRW_TAC [] [LENGTH_MAP, LENGTH_ZIP, ZIP_MAP, MAP_ZIP_SAME, EVERY_MAP], - FULL_SIMP_TAC (srw_ss()) [COND_EXPAND_EQ] THEN - IMP_RES_TAC lookup_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [COND_EXPAND_EQ, EBok_def, Eok_def] THEN - ONCE_REWRITE_TAC [JTeq_cases] THEN SRW_TAC [] [] THEN - NTAC 2 DISJ2_TAC THEN DISJ1_TAC THEN - Q.EXISTS_TAC `TE_constr (MAP (apply_abbrev tpo tcn t') ts) (TC_name tcn)` THEN - SRW_TAC [] [] THENL - [ONCE_REWRITE_TAC [JTeq_cases] THEN NTAC 6 DISJ2_TAC THEN SRW_TAC [] [] THEN - Q.EXISTS_TAC `ZIP (ts, MAP (apply_abbrev tpo tcn t') ts)` THEN - SRW_TAC [] [MAP_FST_ZIP, MAP_SND_ZIP, LENGTH_ZIP, ZIP_MAP, MAP_ZIP_SAME, EVERY_MAP, Eok_def], - ONCE_REWRITE_TAC [JTeq_cases] THEN NTAC 3 DISJ2_TAC THEN DISJ1_TAC THEN SRW_TAC [] [] THEN - Q.EXISTS_TAC `ZIP (MAP (apply_abbrev tpo tcn t') ts, MAP tp_to_tv tpo)` THEN - SRW_TAC [] [MAP_FST_ZIP, ZIP_MAP, LENGTH_ZIP, EVERY_MAP, lem1, MAP_MAP, tp_to_tv_thm, ETA_THM, - MAP_SND_ZIP] THENL - [METIS_TAC [lem2], - FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN SRW_TAC [] [] THEN METIS_TAC [teq_ok_thm]]], - MATCH_MP_TAC ((SIMP_RULE (srw_ss()) [MAP_FST_ZIP, MAP_SND_ZIP, LENGTH_MAP] o - Q.SPEC `ZIP (ts, MAP (\a. apply_abbrev tpo tcn t' a) ts)`) - (List.nth (CONJUNCTS JTeq_rules, 6))) THEN - SRW_TAC [] [LENGTH_MAP, LENGTH_ZIP, ZIP_MAP, MAP_ZIP_SAME, EVERY_MAP]]); - -end; - - -val not_abbrev_lem = Q.prove ( -`!E ts1 tc2 tcn tpo t E'. Eok E /\ ~is_abbrev_tc E (TE_constr ts1 tc2) /\ - (remove_abbrev E = (SOME (EB_ta (TPS_nary tpo) tcn t), E')) ==> - ~(tc2 = TC_name tcn)`, -Cases_on `tc2` THEN SRW_TAC [] [is_abbrev_tc_def] THEN Cases_on `lookup E (name_tcn t')` THEN -FULL_SIMP_TAC (srw_ss()) [] THEN1 METIS_TAC [remove_lookup_lem, NOT_SOME_NONE] THEN Cases_on `x` THEN -FULL_SIMP_TAC (srw_ss()) [] THEN IMP_RES_TAC remove_lookup_lem THEN CCONTR_TAC THEN -FULL_SIMP_TAC (srw_ss()) [] THEN METIS_TAC [environment_binding_distinct]); - - -val alg_eq_step_def = Define -`alg_eq_step E t1 t2 = - case t1 of - TE_var tv -> F - || TE_idxvar i1 i2 -> (t2 = TE_idxvar i1 i2) - || TE_any -> F - || TE_arrow t1' t2' -> (?t1'' t2''. (t2 = TE_arrow t1'' t2'') /\ JTeq E t1' t1'' /\ JTeq E t2' t2'') - || TE_tuple ts -> - (?ts'. (t2 = TE_tuple ts') /\ (LENGTH ts = LENGTH ts') /\ (LENGTH ts >= 2) /\ - EVERY (\(t, t'). JTeq E t t') (ZIP (ts, ts'))) - || TE_constr ts tc -> - (?ts'. (t2 = TE_constr ts' tc) /\ (LENGTH ts = LENGTH ts') /\ - (SOME (LENGTH ts) = typeconstr_kind E tc) /\ - EVERY (\(t, t'). JTeq E t t') (ZIP (ts, ts')))`; - -val apply_abbrev_weak_thm = Q.prove ( -`!E E' tpo tcn t1 t2. - tkind E t1 /\ tkind E t2 /\ - (remove_abbrev E = (SOME (EB_ta (TPS_nary tpo) tcn t), E')) /\ - JTeq E' (apply_abbrev tpo tcn t t1) (apply_abbrev tpo tcn t t2) ==> - JTeq E t1 t2`, -SRW_TAC [] [] THEN `Eok E` by METIS_TAC [ok_ok_thm] THEN -MAP_EVERY IMP_RES_TAC [remove_lookup_lem, abbrev_eq_thm, remove_abbrev_teq_weak_thm] THEN -METIS_TAC [JTeq_rules]); - - -local - -val tac = -Q.PAT_ASSUM `EVERY A B` MP_TAC THEN SRW_TAC [] [LENGTH_MAP, ZIP_MAP, EVERY_MAP] THEN -FULL_SIMP_TAC (srw_ss()) [EVERY_MEM, LAMBDA_PROD2] THEN -IMP_RES_TAC teq_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [Eok_def, EVERY_MEM] THEN -`!a. MEM a (ZIP (l, l')) ==> tkind E (FST a) /\ tkind E (SND a)` by - (SRW_TAC [] [MEM_ZIP] THEN SRW_TAC [] [] THEN METIS_TAC [MEM_EL]) THEN -METIS_TAC [apply_abbrev_weak_thm]; - -in - -val alg_eq_step_abbrev_lem = Q.prove ( -`!E t1 t2 E' tpo tcn t. JTeq E t1 t2 /\ JTeq E' (apply_abbrev tpo tcn t t1) (apply_abbrev tpo tcn t t2) /\ - (remove_abbrev E = (SOME (EB_ta (TPS_nary tpo) tcn t), E')) /\ - ~is_abbrev_tc E t1 /\ ~is_abbrev_tc E t2 /\ - alg_eq_step E' (apply_abbrev tpo tcn t t1) (apply_abbrev tpo tcn t t2) ==> - alg_eq_step E t1 t2`, -REWRITE_TAC [alg_eq_step_def] THEN Cases_on `t1` THEN SRW_TAC [] [apply_abbrev_def, COND_EXPAND_EQ] THEN -`Eok E` by METIS_TAC [teq_ok_thm, ok_ok_thm] THENL -[Cases_on `t2` THEN FULL_SIMP_TAC (srw_ss()) [apply_abbrev_def, COND_EXPAND_EQ] THEN - METIS_TAC [not_abbrev_lem], - Cases_on `t2` THEN FULL_SIMP_TAC (srw_ss()) [apply_abbrev_def, COND_EXPAND_EQ] THEN - IMP_RES_TAC teq_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [Eok_def] THEN - METIS_TAC [apply_abbrev_weak_thm, not_abbrev_lem], - Cases_on `t2` THEN FULL_SIMP_TAC (srw_ss()) [apply_abbrev_def, COND_EXPAND_EQ] THEN - SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [LENGTH_MAP] THENL - [tac, - METIS_TAC [not_abbrev_lem]], - Cases_on `t2` THEN FULL_SIMP_TAC (srw_ss()) [apply_abbrev_def, COND_EXPAND_EQ] THEN - SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [LENGTH_MAP] THEN - METIS_TAC [not_abbrev_lem], - Cases_on `t2` THEN FULL_SIMP_TAC (srw_ss()) [apply_abbrev_def, COND_EXPAND_EQ] THEN - SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [LENGTH_MAP] THENL - [METIS_TAC [not_abbrev_lem], - IMP_RES_TAC teq_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [Eok_def], - tac, - IMP_RES_TAC teq_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [Eok_def], - tac, - METIS_TAC [not_abbrev_lem], - IMP_RES_TAC teq_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [Eok_def], - tac, - IMP_RES_TAC teq_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [Eok_def], - tac]]); - -end; - -local - -val lem1 = Q.prove ( -`!E tcn tpo tcn' t. (num_abbrev E = 0) ==> ~(lookup E (name_tcn tcn) = SOME (EB_ta tpo tcn' t))`, -Induct THEN SRW_TAC [] [lookup_def] THEN Cases_on `h` THEN -FULL_SIMP_TAC (srw_ss ()) [num_abbrev_def, lookup_def, domEB_def, shiftEB_add_thm] THEN1 -(Cases_on `EB2` THEN FULL_SIMP_TAC (srw_ss ()) [num_abbrev_def, lookup_def, domEB_def, shiftEB_def]) -THEN METIS_TAC []); - -in - -val no_abbrev_thm = Q.prove ( -`!E t1 t2. JTeq E t1 t2 ==> (num_abbrev E = 0) ==> (t1 = t2)`, -RULE_INDUCT_TAC JTeq_ind [] -[([``"JTeq_expand"``], METIS_TAC [lem1]), - ([``"JTeq_tuple"``, ``"JTeq_constr"``], SRW_TAC [] [EVERY_MEM, MAP_EQ])]); - -end; - -local - -val lem1 = Q.prove ( -`!E tpo tcn t' E' n EB. Eok E /\ (remove_abbrev E = (SOME (EB_ta (TPS_nary tpo) tcn t'),E')) /\ - (lookup E' n = SOME EB) /\ (~?vn. (n = name_vn vn)) ==> (lookup E n = SOME EB)`, -recInduct (fetch "-" "remove_abbrev_ind") THEN -SRW_TAC [] [remove_abbrev_def, domEB_def, Eok_def, lookup_def] THEN -FULL_SIMP_TAC (srw_ss()) [Eok_def] THEN IMP_RES_TAC Eok_lem1 THEN -FULL_SIMP_TAC (srw_ss()) [LET_THM, LAMBDA_PROD2] THEN -IMP_RES_TAC ok_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [] THEN -FULL_SIMP_TAC (srw_ss()) [lookup_dom_thm, shiftEB_add_thm, lookup_def, domEB_def] THENL -[Cases_on `remove_abbrev E` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [], - Cases_on `remove_abbrev E` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [], - Cases_on `remove_abbrev E` THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [] THEN - Cases_on `EB'` THEN FULL_SIMP_TAC (srw_ss()) [shiftEB_def] THEN SRW_TAC [] [] THEN - METIS_TAC [], - METIS_TAC [NOT_SOME_NONE, name_distinct], - Cases_on `tpo` THEN FULL_SIMP_TAC (srw_ss()) [Eok_def] THEN METIS_TAC [lookup_dom_thm, name_distinct], - Cases_on `tpo` THEN Cases_on `tl` THEN Cases_on `tc` THEN Cases_on `l` THEN - FULL_SIMP_TAC (srw_ss()) [Eok_def] THEN METIS_TAC [lookup_dom_thm, name_distinct], - Cases_on `tc` THEN FULL_SIMP_TAC (srw_ss()) [Eok_def] THEN METIS_TAC [lookup_dom_thm, name_distinct]]); - -in - -val remove_abbrev_is_abbrev_lem = Q.prove ( -`!E tpo tcn t E' t'. Eok E /\ - (remove_abbrev E = (SOME (EB_ta (TPS_nary tpo) tcn t), E')) /\ ~is_abbrev_tc E t' ==> - ~is_abbrev_tc E' (apply_abbrev tpo tcn t t')`, -Cases_on `t'` THEN SRW_TAC [] [is_abbrev_tc_def, apply_abbrev_def] THENL -[Cases_on `lookup E (name_tcn tcn)` THEN FULL_SIMP_TAC (srw_ss()) [] THEN1 - METIS_TAC [remove_lookup_lem, NOT_SOME_NONE] THEN Cases_on `x` THEN - FULL_SIMP_TAC (srw_ss()) [] THEN IMP_RES_TAC remove_lookup_lem THEN - FULL_SIMP_TAC (srw_ss()) [] THEN METIS_TAC [environment_binding_distinct], - Cases_on `t''` THEN FULL_SIMP_TAC (srw_ss()) [is_abbrev_tc_def] THEN - Cases_on `lookup E' (name_tcn t')` THEN FULL_SIMP_TAC (srw_ss()) [] THEN - Cases_on `x` THEN FULL_SIMP_TAC (srw_ss()) [] THEN - Cases_on `lookup E (name_tcn t'')` THEN FULL_SIMP_TAC (srw_ss()) [] THEN - IMP_RES_TAC lem1 THEN FULL_SIMP_TAC (srw_ss ()) [] THEN - Cases_on `x` THEN FULL_SIMP_TAC (srw_ss()) []]); -end; - -val alg_eq_step_complete_thm = Q.prove ( -`!E t1 t2. ~is_abbrev_tc E t1 /\ ~is_abbrev_tc E t2 /\ JTeq E t1 t2 ==> alg_eq_step E t1 t2`, -STRIP_TAC THEN Induct_on `num_abbrev E` THENL -[SRW_TAC [] [] THEN `t1 = t2` by METIS_TAC [no_abbrev_thm] THEN SRW_TAC [] [alg_eq_step_def] THEN - Cases_on `t1` THEN SRW_TAC [] [] THEN - IMP_RES_TAC teq_ok_thm THEN FULL_SIMP_TAC (srw_ss ()) [Eok_def, EVERY_ZIP_SAME] THEN - FULL_SIMP_TAC (srw_ss ()) [EVERY_MEM] THEN METIS_TAC [JTeq_rules], - SRW_TAC [] [] THEN STRIP_ASSUME_TAC (Q.SPEC `E` remove_abbrev_result_thm) THEN1 - (IMP_RES_TAC remove_abbrev_num_abbrev_thm2 THEN FULL_SIMP_TAC (srw_ss()) []) THEN - IMP_RES_TAC remove_abbrev_num_abbrev_thm THEN `v = num_abbrev E'` by DECIDE_TAC THEN - MATCH_MP_TAC alg_eq_step_abbrev_lem THEN Cases_on `tpo` THEN SRW_TAC [] [] THEN - IMP_RES_TAC remove_abbrev_is_abbrev_lem THEN METIS_TAC [apply_abbrev_str_thm, teq_ok_thm, ok_ok_thm]]); - -val teq_fun1 = Q.prove ( -`(!E t a. ~is_abbrev_tc E t ==> (JTeq E (TE_var a) t = F)) /\ -(!E t i1 i2. ~is_abbrev_tc E t ==> (JTeq E (TE_idxvar i1 i2) t = (t = TE_idxvar i1 i2) /\ tkind E t)) /\ -(!E t. ~is_abbrev_tc E t ==> (JTeq E TE_any t = F)) /\ -(!E t t1 t2. ~is_abbrev_tc E t ==> - (JTeq E (TE_arrow t1 t2) t = ?t1' t2'. (t = TE_arrow t1' t2') /\ JTeq E t1 t1' /\ JTeq E t2 t2')) /\ -(!E t ts. ~is_abbrev_tc E t ==> - (JTeq E (TE_tuple ts) t = - ?ts'. (t = TE_tuple ts') /\ (LENGTH ts = LENGTH ts') /\ (LENGTH ts >= 2) /\ - EVERY (\(t, t'). JTeq E t t') (ZIP (ts, ts')))) /\ -(!E t ts tc. ~is_abbrev_tc E t /\ ~is_abbrev_tc E (TE_constr ts tc) ==> - (JTeq E (TE_constr ts tc) t = - ?ts'. (t = TE_constr ts' tc) /\ (LENGTH ts = LENGTH ts') /\ - (SOME (LENGTH ts) = typeconstr_kind E tc) /\ - EVERY (\(t, t'). JTeq E t t') (ZIP (ts, ts'))))`, -SRW_TAC [] [] THENL -[CCONTR_TAC THEN FULL_SIMP_TAC (srw_ss()) [] THEN IMP_RES_TAC teq_ok_thm THEN - FULL_SIMP_TAC (srw_ss()) [Eok_def], - EQ_TAC THEN SRW_TAC [] [] THENL [ALL_TAC, METIS_TAC [teq_ok_thm], METIS_TAC [JTeq_rules]], - CCONTR_TAC THEN FULL_SIMP_TAC (srw_ss()) [] THEN IMP_RES_TAC teq_ok_thm THEN - FULL_SIMP_TAC (srw_ss()) [Eok_def], - EQ_TAC THEN SRW_TAC [] [] THENL [ALL_TAC, METIS_TAC [JTeq_rules]], - EQ_TAC THEN SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [LAMBDA_PROD2] THENL - [ALL_TAC, - IMP_RES_TAC JTeq_rules THEN METIS_TAC [MAP_FST_ZIP, MAP_SND_ZIP, LENGTH_ZIP, LENGTH_MAP]], - EQ_TAC THEN SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [LAMBDA_PROD2] THENL - [ALL_TAC, - IMP_RES_TAC JTeq_rules THEN METIS_TAC [MAP_FST_ZIP, MAP_SND_ZIP, LENGTH_ZIP, LENGTH_MAP]]] THEN -IMP_RES_TAC alg_eq_step_complete_thm THEN -FULL_SIMP_TAC (srw_ss()) [is_abbrev_tc_def, alg_eq_step_def, LAMBDA_PROD2]); - - -val _ = save_thm ("teq_fun1", teq_fun1); - -val teq_fun2 = Q.store_thm ("teq_fun2", -`(!E t a. ~is_abbrev_tc E t ==> (JTeq E t (TE_var a) = F)) /\ -(!E t i1 i2. ~is_abbrev_tc E t ==> (JTeq E t (TE_idxvar i1 i2) = (t = TE_idxvar i1 i2) /\ tkind E t)) /\ -(!E t. ~is_abbrev_tc E t ==> ((JTeq E t TE_any) = F)) /\ -(!E t t1 t2. ~is_abbrev_tc E t ==> - (JTeq E t (TE_arrow t1 t2) = ?t1' t2'. (t = TE_arrow t1' t2') /\ JTeq E t1 t1' /\ JTeq E t2 t2')) /\ -(!E t ts. ~is_abbrev_tc E t ==> - (JTeq E t (TE_tuple ts) = - ?ts'. (t = TE_tuple ts') /\ (LENGTH ts = LENGTH ts') /\ (LENGTH ts >= 2) /\ - EVERY (\(t, t'). JTeq E t t') (ZIP (ts, ts')))) /\ -(!E t ts tc. ~is_abbrev_tc E t /\ ~is_abbrev_tc E (TE_constr ts tc) ==> - (JTeq E t (TE_constr ts tc) = - ?ts'. (t = TE_constr ts' tc) /\ (LENGTH ts = LENGTH ts') /\ - (SOME (LENGTH ts) = typeconstr_kind E tc) /\ - EVERY (\(t, t'). JTeq E t t') (ZIP (ts, ts'))))`, -METIS_TAC [teq_fun1, List.nth (CONJUNCTS JTeq_rules, 1)]); - - -val _ = export_theory (); diff --git a/vendors/ott/examples/ocaml_light/hol/testing/Makefile b/vendors/ott/examples/ocaml_light/hol/testing/Makefile deleted file mode 100644 index 3c074645614c..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/testing/Makefile +++ /dev/null @@ -1,8 +0,0 @@ -all: - ./process-tests.scm - hol < make_ml.sml - cp reduction_funML.BUGFIX.sml reduction_funML.sml - sml < run_tests.sml - -clean: - rm -f caml_typedefML.sig caml_typedefML.sml defs_red_funML.sig defs_red_funML.sml matching_funML.sig matching_funML.sml ottML.sig ottML.sml reduction_funML.sig reduction_funML.sml testsML.sig testsML.sml tests.sml run_tests.sml diff --git a/vendors/ott/examples/ocaml_light/hol/testing/README b/vendors/ott/examples/ocaml_light/hol/testing/README deleted file mode 100644 index 360755cab281..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/testing/README +++ /dev/null @@ -1,39 +0,0 @@ -Run the tests with make. Requires that the proof and ocamlpp be built, and -also requires the following software. - 1) hol, - 2) PLT Scheme (tested with v371.3), and - 3) SML/NJ (tested with v110.65). -Modify the first line of process-tests.scm so that it points to the mzscheme -executable from your PLT Scheme distribution. - -The process-tests.scm traverses the file "tests" and calls the ocamlpp filter -program to build HOL ASTs in tests.sml. The make_ml.sml script uses HOL's SML -code extraction to convert the operational semantics and test case ASTs into -SML. The run_tests.sml script runs the test cases, taking advantage of -SML/NJ's coverage checking. - -Before running the tests, you must modify two files in your HOL distribution to -remove some Moscow ML specific features. - -HOLROOT/src/theoryML/numML.sig - Comment out the following lines: - - val ppBin : ppstream -> num -> unit - val ppOct : ppstream -> num -> unit - val ppDec : ppstream -> num -> unit - val ppHex : ppstream -> num -> unit - val pp_num : ppstream -> num -> unit - - -HOLROOT/src/theoryML/numML.sml - Comment out the following lines: - - fun ppBin ppstrm n = PP.add_string ppstrm (toBinString n); - fun ppOct ppstrm n = PP.add_string ppstrm (toOctString n); - fun ppDec ppstrm n = PP.add_string ppstrm (toDecString n); - fun ppHex ppstrm n = PP.add_string ppstrm (toHexString n); - -and - - val pp_num = ppHex; - diff --git a/vendors/ott/examples/ocaml_light/hol/testing/make_ml.sml b/vendors/ott/examples/ocaml_light/hol/testing/make_ml.sml deleted file mode 100644 index b27db8147a42..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/testing/make_ml.sml +++ /dev/null @@ -1,453 +0,0 @@ -(* Has the following bugs: -* Some uses of constructors as values must be eta-expanded by hand to -* curry them. -* There is a pattern that binds v63 twice. -* -* The real type for floats might be an equality type, which harms the pattern -* matcher. -* *) - - -load "wordsLib"; -load "ottTheory"; -load "ottLib"; -load "caml_typedefTheory"; -load "utilTheory"; -load "shiftTheory"; -load "basicTheory"; -load "defs_red_funTheory"; - -quietdec:=true; -open bossLib HolKernel boolLib listTheory rich_listTheory optionTheory combinTheory arithmeticTheory pairTheory; -open ottTheory ottLib caml_typedefTheory; -open utilTheory basicTheory reduction_funTheory matching_funTheory -open defs_red_funTheory; -quietdec:=false; - - -val list_to_defs_def = Define -`(list_to_defs [] = Ds_nil) /\ - (list_to_defs (x::y) = Ds_cons x (list_to_defs y))`; - -val _ = - let open EmitML combinSyntax - in emitML (".") - ("ott", - MLSIG "type num = numML.num" :: - MLSIG "type capitalized_ident = string" :: - MLSTRUCT "type capitalized_ident = string" :: - OPEN ["num", "list", "string"] :: - map DEFN [list_minus_def,list_assoc_def,clause_name_def,REMOVE_1_def, - PERM_EVAL]) - end; - -val _ = disable_tyabbrev_printing "labelled_arrow"; - -val _ = type_pp.pp_num_types := false; -val _ = type_pp.pp_array_types := false; - -val _ = - let open EmitML combinSyntax - in emitML (".") - ("caml_typedef", - MLSIG "type string = stringML.string" :: - MLSIG "type num = numML.num" :: - MLSIG "type index = num" :: - MLSIG "type ident = string" :: - MLSIG "type string_literal = string" :: - MLSIG "type infix_symbol = string" :: - MLSIG "type prefix_symbol = string" :: - MLSIG "type lowercase_ident = string" :: - MLSIG "type capitalized_ident = string" :: - MLSIG "type integer_literal = int" :: - MLSIG "type float_literal = unit" :: - MLSIG "type char_literal = char" :: - MLSIG "type location = num" :: - MLSIG "type idx = num" :: - MLSIG "type word31 = unit wordsML.bit1 wordsML.bit1 wordsML.bit1 wordsML.bit1 wordsML.word" :: - MLSIG "type intn = word31" :: - MLSIG "type kind = num" :: -(* - MLSIG "type names = name list" :: - MLSIG "type Tsigma = (typevar * typexpr) list" :: -*) - - MLSTRUCT "type string = stringML.string" :: - MLSTRUCT "type num = numML.num" :: - MLSTRUCT "type index = num" :: - MLSTRUCT "type ident = string" :: - MLSTRUCT "type string_literal = string" :: - MLSTRUCT "type infix_symbol = string" :: - MLSTRUCT "type prefix_symbol = string" :: - MLSTRUCT "type lowercase_ident = string" :: - MLSTRUCT "type capitalized_ident = string" :: - MLSTRUCT "type integer_literal = int" :: - MLSTRUCT "type float_literal = unit" :: - MLSTRUCT "type char_literal = char" :: - MLSTRUCT "type location = num" :: - MLSTRUCT "type idx = num" :: - MLSTRUCT "type word31 = unit wordsML.bit1 wordsML.bit1 wordsML.bit1 wordsML.bit1 wordsML.word" :: - MLSTRUCT "type intn = word31" :: - MLSTRUCT "type kind = num" :: - - OPEN ["num", "list", "string", "option"] :: - DATATYPE `typeconstr_name = TCN_id of lowercase_ident` :: - DATATYPE `typeconstr = - TC_name of typeconstr_name - | TC_int - | TC_char - | TC_string - | TC_float - | TC_bool - | TC_unit - | TC_exn - | TC_list - | TC_option - | TC_ref` :: - DATATYPE `typevar = TV_ident of ident` :: - DATATYPE `constr_name = CN_id of capitalized_ident` :: - DATATYPE `typexpr = - TE_var of typevar - | TE_idxvar of idx => idx - | TE_any - | TE_arrow of typexpr => typexpr - | TE_tuple of typexpr list - | TE_constr of typexpr list => typeconstr` :: - MLSIG "type Tsigma = (typevar * typexpr) list" :: - MLSTRUCT "type Tsigma = (typevar * typexpr) list" :: - DATATYPE `field_name = FN_id of lowercase_ident` :: - DATATYPE `infix_op = - IO_symbol of infix_symbol - | IO_star - | IO_equal - | IO_colonequal` :: - DATATYPE `constr_decl = - CD_nullary of constr_name - | CD_nary of constr_name => typexpr list` :: - DATATYPE `field_decl = FD_immutable of field_name => typexpr` :: - DATATYPE `operator_name = - ON_symbol of prefix_symbol - | ON_infix of infix_op` :: - DATATYPE `constr = - C_name of constr_name - | C_invalidargument - | C_notfound - | C_assertfailure - | C_matchfailure - | C_div_by_0 - | C_none - | C_some` :: - DATATYPE `type_equation = TE_te of typexpr` :: - DATATYPE `type_representation = - TR_variant of constr_decl list - | TR_record of field_decl list` :: - DATATYPE `type_param = TP_var of typevar` :: - DATATYPE `value_name = - VN_id of lowercase_ident - | VN_op of operator_name` :: - DATATYPE `field = F_name of field_name` :: - DATATYPE `constant = - CONST_int of intn - | CONST_float of float_literal - | CONST_char of char_literal - | CONST_string of string_literal - | CONST_constr of constr - | CONST_false - | CONST_true - | CONST_nil - | CONST_unit` :: - DATATYPE `type_information = - TI_eq of type_equation - | TI_def of type_representation` :: - DATATYPE `type_params_opt = TPS_nary of type_param list` :: - DATATYPE `pattern = - P_var of value_name - | P_any - | P_constant of constant - | P_alias of pattern => value_name - | P_typed of pattern => typexpr - | P_or of pattern => pattern - | P_construct of constr => pattern list - | P_construct_any of constr - | P_tuple of pattern list - | P_record of (field#pattern) list - | P_cons of pattern => pattern` :: - DATATYPE `unary_prim = - Uprim_raise - | Uprim_not - | Uprim_minus - | Uprim_ref - | Uprim_deref` :: - DATATYPE `binary_prim = - Bprim_equal - | Bprim_plus - | Bprim_minus - | Bprim_times - | Bprim_div - | Bprim_assign` :: - DATATYPE `for_dirn = - FD_upto - | FD_downto` :: - DATATYPE `typedef = - TD_td of type_params_opt => typeconstr_name => type_information` :: - - DATATYPE `letrec_binding = LRB_simple of value_name => pattern_matching; - letrec_bindings = LRBs_inj of letrec_binding list; - let_binding = LB_simple of pattern => expr; - pat_exp = PE_inj of pattern => expr; - pattern_matching = PM_pm of pat_exp list; - expr = - Expr_uprim of unary_prim - | Expr_bprim of binary_prim - | Expr_ident of value_name - | Expr_constant of constant - | Expr_typed of expr => typexpr - | Expr_tuple of expr list - | Expr_construct of constr => expr list - | Expr_cons of expr => expr - | Expr_record of (field#expr) list - | Expr_override of expr => (field#expr) list - | Expr_apply of expr => expr - | Expr_and of expr => expr - | Expr_or of expr => expr - | Expr_field of expr => field - | Expr_ifthenelse of expr => expr => expr - | Expr_while of expr => expr - | Expr_for of value_name => expr => for_dirn => expr => expr - | Expr_sequence of expr => expr - | Expr_match of expr => pattern_matching - | Expr_function of pattern_matching - | Expr_try of expr => pattern_matching - | Expr_let of let_binding => expr - | Expr_letrec of letrec_bindings => expr - | Expr_assert of expr - | Expr_location of location` :: - DATATYPE `type_definition = TDF_tdf of typedef list` :: - DATATYPE `exception_definition = ED_def of constr_decl` :: - DATATYPE `definition = - D_let of let_binding - | D_letrec of letrec_bindings - | D_type of type_definition - | D_exception of exception_definition` :: - DATATYPE `typescheme = TS_forall of typexpr` :: - DATATYPE `typexprs = typexprs_inj of typexpr list` :: - DATATYPE `trans_label = - Lab_nil - | Lab_alloc of expr => location - | Lab_deref of location => expr - | Lab_assign of location => expr` :: - DATATYPE `definitions = - Ds_nil - | Ds_cons of definition => definitions` :: - DATATYPE `name = - name_tv - | name_vn of value_name - | name_cn of constr_name - | name_tcn of typeconstr_name - | name_fn of field_name - | name_l of location` :: - DATATYPE `environment_binding = - EB_tv - | EB_vn of value_name => typescheme - | EB_cc of constr_name => typeconstr - | EB_pc of constr_name => type_params_opt => typexprs => typeconstr - | EB_fn of field_name => type_params_opt => typeconstr_name => typexpr - | EB_td of typeconstr_name => kind - | EB_tr of typeconstr_name => kind => field_name list - | EB_ta of type_params_opt => typeconstr_name => typexpr - | EB_l of location => typexpr` :: - - MLSIG "type environment = environment_binding list" :: - MLSTRUCT "type environment = environment_binding list" :: - DATATYPE `program = - Prog_defs of definitions - | Prog_raise of expr` :: - DATATYPE `substs_x = substs_x_xs of (value_name#expr) list` :: - DATATYPE `value_path = VP_name of value_name` :: - - MLSIG "type store = (location * expr) list" :: - MLSTRUCT "type store = (location * expr) list" :: - - map DEFN - [is_binary_prim_app_value_of_expr_def, - is_definition_value_of_definition_def, - caml_typedefTheory.is_value_of_expr_def, - is_non_expansive_of_expr_def, - is_src_typexpr_of_typexpr_def, - is_definitions_value_of_definitions_def, - is_trans_label_of_trans_label_def, - aux_constr_names_constr_decl_of_constr_decl_def, - aux_constr_names_type_representation_of_type_representation_def, - aux_constr_names_type_information_of_type_information_def, - aux_field_names_field_decl_of_field_decl_def, - aux_xs_pattern_of_pattern_def, - aux_xs_letrec_binding_of_letrec_binding_def, - aux_constr_names_typedef_of_typedef_def, - aux_field_names_type_representation_of_type_representation_def, - aux_type_names_typedef_of_typedef_def, - aux_typevars_type_param_of_type_param_def, - aux_xs_let_binding_of_let_binding_def, - aux_xs_letrec_bindings_of_letrec_bindings_def, - aux_constr_names_type_definition_of_type_definition_def, - aux_field_names_type_information_of_type_information_def, - aux_type_names_type_definition_of_type_definition_def, - aux_typevars_type_params_opt_of_type_params_opt_def, - aux_xs_definition_of_definition_def, - ftv_typexpr_def, - ftv_constr_decl_def, - ftv_field_decl_def, - ftv_type_equation_def, - ftv_type_representation_def, - ftv_type_information_def, - ftv_pattern_def, - ftv_typedef_def, - ftv_letrec_binding_def, - ftv_type_definition_def, - ftv_exception_definition_def, - fv_letrec_binding_def, - fl_letrec_binding_def, - ftv_definition_def, - fv_definition_def, - fl_definition_def, - ftv_definitions_def, - ftv_typescheme_def, - ftv_typexprs_def, - fv_definitions_def, - fl_definitions_def, - ftv_substs_x_def, - ftv_program_def, - ftv_environment_binding_def, - ftv_trans_label_def, - fv_substs_x_def, - fv_program_def, - fv_trans_label_def, -fl_substs_x_def, -fl_program_def, -fl_trans_label_def, -substs_typevar_typexpr_def, -substs_typevar_constr_decl_def, -substs_typevar_field_decl_def, -substs_typevar_type_equation_def, -substs_typevar_type_representation_def, -substs_typevar_type_information_def, -substs_typevar_pattern_def, -substs_typevar_typedef_def, -substs_typevar_letrec_binding_def, -substs_typevar_type_definition_def, -substs_typevar_exception_definition_def, -substs_value_name_letrec_binding_def, -subst_value_name_letrec_binding_def, -substs_typevar_definition_def, -substs_value_name_definition_def, -subst_value_name_definition_def, -substs_typevar_definitions_def, -substs_typevar_typescheme_def, -substs_typevar_typexprs_def, -substs_value_name_definitions_def, -subst_value_name_definitions_def, -substs_typevar_program_def, -substs_typevar_environment_binding_def, -substs_typevar_trans_label_def, -substs_value_name_substs_x_def, -substs_value_name_program_def, -substs_value_name_trans_label_def, -subst_value_name_substs_x_def, -subst_value_name_program_def, -subst_value_name_trans_label_def, -substs_typevar_substs_x_def, -shiftt_def, -shifttes_def, -shiftts_def, -shiftEB_def, -num_tv_def, -shiftE_def, -shiftTsig_def, -definitions_snoc_def, -remv_tyvar_typexpr_def, -remv_tyvar_pattern_def, -remv_tyvar_letrec_binding_def, -basicTheory.field_to_fn_def, -basicTheory.funval_def, -basicTheory.recfun_def, -basicTheory.lrbs_to_lrblist_def, -list_to_defs_def]) -end; - -val sigs = -["type expr = caml_typedefML.expr;", - "type kind = caml_typedefML.kind;", - "type unary_prim = caml_typedefML.unary_prim;", - "type binary_prim = caml_typedefML.binary_prim;", - "type word31 = caml_typedefML.word31;", - "type intn = caml_typedefML.intn;", - "type constant = caml_typedefML.constant;", - "type field = caml_typedefML.field;", - "type value_name = caml_typedefML.value_name;", - "type for_dirn = caml_typedefML.for_dirn;", - "type pattern_matching = caml_typedefML.pattern_matching;", - "type pattern = caml_typedefML.pattern;", - "type letrec_bindings = caml_typedefML.letrec_bindings;", - "type definitions = caml_typedefML.definitions;", - "type program = caml_typedefML.program;", - "type store = caml_typedefML.store;"]; - -val _ = - let open EmitML combinSyntax - in emitML (".") - ("matching_fun", - map MLSIG sigs @ - OPEN ["num", "list", "string", "option", "caml_typedef"] :: - map DEFN [pat_match_def]) - end; - -val _ = - let open EmitML combinSyntax - in emitML (".") - ("reduction_fun", - map MLSIG sigs @ - OPEN ["num", "list", "string", "option", "caml_typedef"] :: - DATATYPE `result = Stuck - | Step of 'a - | StepAlloc of (expr -> 'a) => expr - | StepLookup of (expr -> 'a) => location - | StepAssign of 'a => location => expr` :: - map (DEFN o wordsLib.WORDS_EMIT_RULE) - [is_raise_def, - result_map_def, - eval_uprim_def, - b_int_primop_def, - is_const_constr_def, - non_funval_equal_def, - eval_bprim_def, - do_1override_def, - eval_override_def, - eval_apply_def, - eval_field_def, - eval_ite_def, - eval_while_def, - eval_for_def, - eval_match_def, - eval_try_def, - eval_let_def, - eval_letrec_def, - eval_assert_def, - red_def]) - end; - -val _ = - let open EmitML combinSyntax - in emitML (".") - ("defs_red_fun", - map MLSIG sigs @ - MLSIG "type 'a result = 'a reduction_funML.result;" :: - OPEN ["num", "list", "string", "option", "caml_typedef", "reduction_fun"] :: - map DEFN [defns_red_def, - store_assign_def, - top_red_def, - max_alloc_def]) - end; - - -use "tests.sml"; - - diff --git a/vendors/ott/examples/ocaml_light/hol/testing/process-tests.scm b/vendors/ott/examples/ocaml_light/hol/testing/process-tests.scm deleted file mode 100755 index dcdf4889dedc..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/testing/process-tests.scm +++ /dev/null @@ -1,184 +0,0 @@ -#!/home/so294/scratch/plt/bin/mzscheme -qr - -(require (lib "process.ss") - (lib "plt-match.ss") - (lib "port.ss")) - -(define infile "tests") -(define outfile "tests.sml") -(define filter "../ocamlpp/filter") -(define run-tests "run_tests.sml") - -(define ip (open-input-file infile)) -(define op (open-output-file outfile #:exists 'replace)) - -(fprintf op #< true - | _ => false; - -fun eval prog = - let fun loop (store, (defs, Prog_raise r)) = Prog_raise r - | loop (store, (defs, Prog_defs Ds_nil)) = Prog_defs Ds_nil - | loop (state as (store, (defs, Prog_defs ds))) = - (case top_red max_alloc state of - NONE => Prog_defs ds - | SOME state2 => loop state2) - in - loop ([], (Ds_nil, prog)) - end; -end; - -Control.Print.printDepth := 100; - -end-string - ) -(let loop ([idx test-indices]) - (unless (null? idx) - (let ([i (caar idx)] - [type (cdar idx)]) - (case type - [(expr) - (fprintf op "val answer~a = eval testsML.test~a = testsML.result~a;\n" i i i)] - [(stuck) - (fprintf op "val answer~a = is_stuck_expr testsML.test~a;\n" i i)]) - (loop (cdr idx))))) - -(fprintf op #< reduction_funML = -struct - nonfix red_list red_2 red_1 red eval_assert eval_letrec eval_let - eval_try eval_match eval_for eval_while eval_ite eval_field - eval_apply eval_override do_1override eval_bprim - non_funval_equal is_const_constr b_int_primop eval_uprim - result_map is_raise result_size StepAssign StepLookup StepAlloc - Step Stuck * / div mod + - ^ @ <> > < >= <= := o before; - - open numML listML stringML optionML caml_typedefML; - datatype 'a result - = Stuck - | Step of 'a - | StepAlloc of (expr -> 'a) * expr - | StepLookup of (expr -> 'a) * kind - | StepAssign of 'a * kind * expr - fun result_size f Stuck = ZERO - | result_size f (Step(a)) = + ONE (f a) - | result_size f (StepAlloc(a0,a1)) = + ONE (expr_size a1) - | result_size f (StepLookup(a0,a1)) = + ONE a1 - | result_size f (StepAssign(a0,a1,a2)) = - + ONE (+ (f a0) (+ a1 (expr_size a2))) - - fun is_raise (Expr_apply(expr1,expr2)) = - (expr1 = Expr_uprim(Uprim_raise)) andalso is_value_of_expr expr2 - | is_raise (Expr_location(v44)) = false - | is_raise (Expr_assert(v43)) = false - | is_raise (Expr_letrec(v41,v42)) = false - | is_raise (Expr_let(v39,v40)) = false - | is_raise (Expr_try(v37,v38)) = false - | is_raise (Expr_function(v36)) = false - | is_raise (Expr_match(v34,v35)) = false - | is_raise (Expr_sequence(v32,v33)) = false - | is_raise (Expr_for(v27,v28,v29,v30,v31)) = false - | is_raise (Expr_while(v25,v26)) = false - | is_raise (Expr_ifthenelse(v22,v23,v24)) = false - | is_raise (Expr_field(v20,v21)) = false - | is_raise (Expr_or(v18,v19)) = false - | is_raise (Expr_and(v16,v17)) = false - | is_raise (Expr_override(v12,v13)) = false - | is_raise (Expr_record(v11)) = false - | is_raise (Expr_cons(v9,v10)) = false - | is_raise (Expr_construct(v7,v8)) = false - | is_raise (Expr_tuple(v6)) = false - | is_raise (Expr_typed(v4,v5)) = false - | is_raise (Expr_constant(v3)) = false - | is_raise (Expr_ident(v2)) = false - | is_raise (Expr_bprim(v1)) = false - | is_raise (Expr_uprim(v)) = false - - fun result_map f Stuck = Stuck - | result_map f (Step(expr)) = Step(f expr) - | result_map f (StepAlloc(get_result,alloc_expr)) = - StepAlloc(fn l => f (get_result l),alloc_expr) - | result_map f (StepLookup(get_result,lookup_lab)) = - StepLookup(fn e => f (get_result e),lookup_lab) - | result_map f (StepAssign(result_expr,assign_lab,assign_expr)) = - StepAssign(f result_expr,assign_lab,assign_expr) - - fun eval_uprim Uprim_not v = - (if v = Expr_constant(CONST_true) - then Step(Expr_constant(CONST_false)) - else if v = Expr_constant(CONST_false) - then Step(Expr_constant(CONST_true)) else Stuck) - | eval_uprim Uprim_minus v = - (case v - of Expr_uprim(v45) => Stuck - | Expr_bprim(v46) => Stuck - | Expr_ident(v47) => Stuck - | Expr_constant(CONST_int(n)) => - Step(Expr_constant(CONST_int(wordsML.word_sub - (wordsML.n2w_itself - (ZERO,(fcpML.ITSELF (numML.fromDecString"31")))) - n))) - | Expr_constant(CONST_float(v96)) => Stuck - | Expr_constant(CONST_char(v97)) => Stuck - | Expr_constant(CONST_string(v98)) => Stuck - | Expr_constant(CONST_constr(v99)) => Stuck - | Expr_constant(CONST_false) => Stuck - | Expr_constant(CONST_true) => Stuck - | Expr_constant(CONST_nil) => Stuck - | Expr_constant(CONST_unit) => Stuck - | Expr_typed(v49,v50) => Stuck - | Expr_tuple(v51) => Stuck - | Expr_construct(v52,v53) => Stuck - | Expr_cons(v54,v55) => Stuck - | Expr_record(v56) => Stuck - | Expr_override(v57,v58) => Stuck - | Expr_apply(v59,v60) => Stuck - | Expr_and(v61,v62) => Stuck - | Expr_or(v63,v64) => Stuck - | Expr_field(v65,v66) => Stuck - | Expr_ifthenelse(v67,v68,v69) => Stuck - | Expr_while(v70,v71) => Stuck - | Expr_for(v72,v73,v74,v75,v76) => Stuck - | Expr_sequence(v77,v78) => Stuck - | Expr_match(v79,v80) => Stuck - | Expr_function(v81) => Stuck - | Expr_try(v82,v83) => Stuck - | Expr_let(v84,v85) => Stuck - | Expr_letrec(v86,v87) => Stuck - | Expr_assert(v88) => Stuck - | Expr_location(v89) => Stuck) - | eval_uprim Uprim_ref v = StepAlloc(fn e => e,v) - | eval_uprim Uprim_deref v = - (case v - of Expr_uprim(v45) => Stuck - | Expr_bprim(v46) => Stuck - | Expr_ident(v47) => Stuck - | Expr_constant(v48) => Stuck - | Expr_typed(v49,v50) => Stuck - | Expr_tuple(v51) => Stuck - | Expr_construct(v52,v53) => Stuck - | Expr_cons(v54,v55) => Stuck - | Expr_record(v56) => Stuck - | Expr_override(v57,v58) => Stuck - | Expr_apply(v59,v60) => Stuck - | Expr_and(v61,v62) => Stuck - | Expr_or(v63,v64) => Stuck - | Expr_field(v65,v66) => Stuck - | Expr_ifthenelse(v67,v68,v69) => Stuck - | Expr_while(v70,v71) => Stuck - | Expr_for(v72,v73,v74,v75,v76) => Stuck - | Expr_sequence(v77,v78) => Stuck - | Expr_match(v79,v80) => Stuck - | Expr_function(v81) => Stuck - | Expr_try(v82,v83) => Stuck - | Expr_let(v84,v85) => Stuck - | Expr_letrec(v86,v87) => Stuck - | Expr_assert(v88) => Stuck - | Expr_location(l) => StepLookup(fn e => e,l)) - | eval_uprim Uprim_raise v = Stuck - - fun b_int_primop oper v1 v2 = - case v1 - of Expr_uprim(v46) => Stuck - | Expr_bprim(v47) => Stuck - | Expr_ident(v48) => Stuck - | Expr_constant(CONST_int(n1)) => - (case v2 - of Expr_uprim(v45) => Stuck - | Expr_bprim(v46) => Stuck - | Expr_ident(v47) => Stuck - | Expr_constant(CONST_int(n2)) => - Step(Expr_constant(CONST_int(oper n1 n2))) - | Expr_constant(CONST_float(v96)) => Stuck - | Expr_constant(CONST_char(v97)) => Stuck - | Expr_constant(CONST_string(v98)) => Stuck - | Expr_constant(CONST_constr(v99)) => Stuck - | Expr_constant(CONST_false) => Stuck - | Expr_constant(CONST_true) => Stuck - | Expr_constant(CONST_nil) => Stuck - | Expr_constant(CONST_unit) => Stuck - | Expr_typed(v49,v50) => Stuck - | Expr_tuple(v51) => Stuck - | Expr_construct(v52,v53) => Stuck - | Expr_cons(v54,v55) => Stuck - | Expr_record(v56) => Stuck - | Expr_override(v57,v58) => Stuck - | Expr_apply(v59,v60) => Stuck - | Expr_and(v61,v62) => Stuck - | Expr_or(v63,v64) => Stuck - | Expr_field(v65,v66) => Stuck - | Expr_ifthenelse(v67,v68,v69) => Stuck - | Expr_while(v70,v71) => Stuck - | Expr_for(v72,v73,v74,v75,v76) => Stuck - | Expr_sequence(v77,v78) => Stuck - | Expr_match(v79,v80) => Stuck - | Expr_function(v81) => Stuck - | Expr_try(v82,v83) => Stuck - | Expr_let(v84,v85) => Stuck - | Expr_letrec(v86,v87) => Stuck - | Expr_assert(v88) => Stuck - | Expr_location(v89) => Stuck) - | Expr_constant(CONST_float(v97)) => Stuck - | Expr_constant(CONST_char(v98)) => Stuck - | Expr_constant(CONST_string(v99)) => Stuck - | Expr_constant(CONST_constr(v100)) => Stuck - | Expr_constant(CONST_false) => Stuck - | Expr_constant(CONST_true) => Stuck - | Expr_constant(CONST_nil) => Stuck - | Expr_constant(CONST_unit) => Stuck - | Expr_typed(v50,v51) => Stuck - | Expr_tuple(v52) => Stuck - | Expr_construct(v53,v54) => Stuck - | Expr_cons(v55,v56) => Stuck - | Expr_record(v57) => Stuck - | Expr_override(v58,v59) => Stuck - | Expr_apply(v60,v61) => Stuck - | Expr_and(v62,v63) => Stuck - | Expr_or(v64,v65) => Stuck - | Expr_field(v66,v67) => Stuck - | Expr_ifthenelse(v68,v69,v70) => Stuck - | Expr_while(v71,v72) => Stuck - | Expr_for(v73,v74,v75,v76,v77) => Stuck - | Expr_sequence(v78,v79) => Stuck - | Expr_match(v80,v81) => Stuck - | Expr_function(v82) => Stuck - | Expr_try(v83,v84) => Stuck - | Expr_let(v85,v86) => Stuck - | Expr_letrec(v87,v88) => Stuck - | Expr_assert(v89) => Stuck - | Expr_location(v90) => Stuck - - fun is_const_constr (CONST_constr(v0)) = true - | is_const_constr CONST_unit = false - | is_const_constr CONST_nil = false - | is_const_constr CONST_true = false - | is_const_constr CONST_false = false - | is_const_constr (CONST_string(v4)) = false - | is_const_constr (CONST_char(v3)) = false - | is_const_constr (CONST_float(v2)) = false - | is_const_constr (CONST_int(v)) = false - - fun non_funval_equal (Expr_constant(c)) (Expr_constant(c')) = - (if c = c' then Step(Expr_constant(CONST_true)) - else Step(Expr_constant(CONST_false))) - | non_funval_equal (Expr_location(l)) (Expr_location(l')) = - Step(Expr_apply(Expr_apply(Expr_bprim(Bprim_equal), - Expr_apply(Expr_uprim(Uprim_deref), - Expr_location(l))), - Expr_apply(Expr_uprim(Uprim_deref),Expr_location(l')))) - | non_funval_equal (Expr_cons(v1,v2)) (Expr_cons(v1',v2')) = - Step(Expr_and(Expr_apply(Expr_apply(Expr_bprim(Bprim_equal),v1), - v1'), - Expr_apply(Expr_apply(Expr_bprim(Bprim_equal),v2),v2'))) - | non_funval_equal (Expr_cons(v1,v2)) (Expr_constant(const)) = - (if const = CONST_nil then Step(Expr_constant(CONST_false)) - else Stuck) - | non_funval_equal (Expr_constant(const)) (Expr_cons(v1',v2')) = - (if const = CONST_nil then Step(Expr_constant(CONST_false)) - else Stuck) - | non_funval_equal (Expr_tuple(vs)) (Expr_tuple(vs')) = - (if not (>= (LENGTH vs) TWO) orelse not (LENGTH vs = LENGTH vs') - then Stuck - else Step(FOLDR (fn x => fn y => Expr_and (x,y)) (Expr_constant(CONST_true)) - (MAP2 (fn v => fn v' => - Expr_apply(Expr_apply(Expr_bprim(Bprim_equal), - v), - v')) vs vs'))) - | non_funval_equal (Expr_construct(ctor,vs)) - (Expr_construct(ctor',vs')) = - (if not (ctor = ctor') then Step(Expr_constant(CONST_false)) - else if not (LENGTH vs = LENGTH vs') then Stuck - else Step(FOLDR (fn x => fn y => Expr_and (x,y)) (Expr_constant(CONST_true)) - (MAP2 (fn v => fn v' => - Expr_apply(Expr_apply(Expr_bprim(Bprim_equal), - v), - v')) vs vs'))) - | non_funval_equal (Expr_construct(ctor,vs)) (Expr_constant(const)) - = - (if is_const_constr const then Step(Expr_constant(CONST_false)) - else Stuck) - | non_funval_equal (Expr_constant(const)) - (Expr_construct(ctor',vs')) = - (if is_const_constr const then Step(Expr_constant(CONST_false)) - else Stuck) - | non_funval_equal (Expr_record(field_exprs)) - (Expr_record(field_exprs')) = - (if not - (ottML.PERM - (MAP (fn x => field_to_fn (pairML.FST x)) field_exprs) - (MAP (fn x => field_to_fn (pairML.FST x)) - field_exprs')) then Stuck - else Step(FOLDR (fn x => fn y => Expr_and (x,y)) (Expr_constant(CONST_true)) - (MAP (fn (field,v) => - Expr_apply(Expr_apply(Expr_bprim(Bprim_equal), - v), - Expr_field(Expr_record(field_exprs'),field))) - field_exprs))) - | non_funval_equal (Expr_location(v49)) (Expr_assert(v588)) = Stuck - | non_funval_equal (Expr_location(v49)) (Expr_letrec(v586,v587)) = - Stuck - | non_funval_equal (Expr_location(v49)) (Expr_let(v584,v585)) = - Stuck - | non_funval_equal (Expr_location(v49)) (Expr_try(v582,v583)) = - Stuck - | non_funval_equal (Expr_location(v49)) (Expr_function(v581)) = - Stuck - | non_funval_equal (Expr_location(v49)) (Expr_match(v579,v580)) = - Stuck - | non_funval_equal (Expr_location(v49)) (Expr_sequence(v577,v578)) = - Stuck - | non_funval_equal (Expr_location(v49)) - (Expr_for(v572,v573,v574,v575,v576)) = Stuck - | non_funval_equal (Expr_location(v49)) (Expr_while(v570,v571)) = - Stuck - | non_funval_equal (Expr_location(v49)) - (Expr_ifthenelse(v567,v568,v569)) = Stuck - | non_funval_equal (Expr_location(v49)) (Expr_field(v565,v566)) = - Stuck - | non_funval_equal (Expr_location(v49)) (Expr_or(v563,v564)) = Stuck - | non_funval_equal (Expr_location(v49)) (Expr_and(v561,v562)) = - Stuck - | non_funval_equal (Expr_location(v49)) (Expr_apply(v559,v560)) = - Stuck - | non_funval_equal (Expr_location(v49)) (Expr_override(v557,v558)) = - Stuck - | non_funval_equal (Expr_location(v49)) (Expr_record(v556)) = Stuck - | non_funval_equal (Expr_location(v49)) (Expr_cons(v554,v555)) = - Stuck - | non_funval_equal (Expr_location(v49)) (Expr_construct(v552,v553)) - = Stuck - | non_funval_equal (Expr_location(v49)) (Expr_tuple(v551)) = Stuck - | non_funval_equal (Expr_location(v49)) (Expr_typed(v549,v550)) = - Stuck - | non_funval_equal (Expr_location(v49)) (Expr_constant(v548)) = - Stuck - | non_funval_equal (Expr_location(v49)) (Expr_ident(v547)) = Stuck - | non_funval_equal (Expr_location(v49)) (Expr_bprim(v546)) = Stuck - | non_funval_equal (Expr_location(v49)) (Expr_uprim(v545)) = Stuck - | non_funval_equal (Expr_assert(v48)) v3 = Stuck - | non_funval_equal (Expr_letrec(v46,v47)) v3 = Stuck - | non_funval_equal (Expr_let(v44,v45)) v3 = Stuck - | non_funval_equal (Expr_try(v42,v43)) v3 = Stuck - | non_funval_equal (Expr_function(v41)) v3 = Stuck - | non_funval_equal (Expr_match(v39,v40)) v3 = Stuck - | non_funval_equal (Expr_sequence(v37,v38)) v3 = Stuck - | non_funval_equal (Expr_for(v32,v33,v34,v35,v36)) v3 = Stuck - | non_funval_equal (Expr_while(v30,v31)) v3 = Stuck - | non_funval_equal (Expr_ifthenelse(v27,v28,v29)) v3 = Stuck - | non_funval_equal (Expr_field(v25,v26)) v3 = Stuck - | non_funval_equal (Expr_or(v23,v24)) v3 = Stuck - | non_funval_equal (Expr_and(v21,v22)) v3 = Stuck - | non_funval_equal (Expr_apply(v19,v20)) v3 = Stuck - | non_funval_equal (Expr_override(v17,v18)) v3 = Stuck - | non_funval_equal (Expr_record(v16)) (Expr_location(v499)) = Stuck - | non_funval_equal (Expr_record(v16)) (Expr_assert(v498)) = Stuck - | non_funval_equal (Expr_record(v16)) (Expr_letrec(v496,v497)) = - Stuck - | non_funval_equal (Expr_record(v16)) (Expr_let(v494,v495)) = Stuck - | non_funval_equal (Expr_record(v16)) (Expr_try(v492,v493)) = Stuck - | non_funval_equal (Expr_record(v16)) (Expr_function(v491)) = Stuck - | non_funval_equal (Expr_record(v16)) (Expr_match(v489,v490)) = - Stuck - | non_funval_equal (Expr_record(v16)) (Expr_sequence(v487,v488)) = - Stuck - | non_funval_equal (Expr_record(v16)) - (Expr_for(v482,v483,v484,v485,v486)) = Stuck - | non_funval_equal (Expr_record(v16)) (Expr_while(v480,v481)) = - Stuck - | non_funval_equal (Expr_record(v16)) - (Expr_ifthenelse(v477,v478,v479)) = Stuck - | non_funval_equal (Expr_record(v16)) (Expr_field(v475,v476)) = - Stuck - | non_funval_equal (Expr_record(v16)) (Expr_or(v473,v474)) = Stuck - | non_funval_equal (Expr_record(v16)) (Expr_and(v471,v472)) = Stuck - | non_funval_equal (Expr_record(v16)) (Expr_apply(v469,v470)) = - Stuck - | non_funval_equal (Expr_record(v16)) (Expr_override(v467,v468)) = - Stuck - | non_funval_equal (Expr_record(v16)) (Expr_cons(v464,v465)) = Stuck - | non_funval_equal (Expr_record(v16)) (Expr_construct(v462,v463)) = - Stuck - | non_funval_equal (Expr_record(v16)) (Expr_tuple(v461)) = Stuck - | non_funval_equal (Expr_record(v16)) (Expr_typed(v459,v460)) = - Stuck - | non_funval_equal (Expr_record(v16)) (Expr_constant(v458)) = Stuck - | non_funval_equal (Expr_record(v16)) (Expr_ident(v457)) = Stuck - | non_funval_equal (Expr_record(v16)) (Expr_bprim(v456)) = Stuck - | non_funval_equal (Expr_record(v16)) (Expr_uprim(v455)) = Stuck - | non_funval_equal (Expr_cons(v14,v15)) (Expr_location(v409)) = - Stuck - | non_funval_equal (Expr_cons(v14,v15)) (Expr_assert(v408)) = Stuck - | non_funval_equal (Expr_cons(v14,v15)) (Expr_letrec(v406,v407)) = - Stuck - | non_funval_equal (Expr_cons(v14,v15)) (Expr_let(v404,v405)) = - Stuck - | non_funval_equal (Expr_cons(v14,v15)) (Expr_try(v402,v403)) = - Stuck - | non_funval_equal (Expr_cons(v14,v15)) (Expr_function(v401)) = - Stuck - | non_funval_equal (Expr_cons(v14,v15)) (Expr_match(v399,v400)) = - Stuck - | non_funval_equal (Expr_cons(v14,v15)) (Expr_sequence(v397,v398)) = - Stuck - | non_funval_equal (Expr_cons(v14,v15)) - (Expr_for(v392,v393,v394,v395,v396)) = Stuck - | non_funval_equal (Expr_cons(v14,v15)) (Expr_while(v390,v391)) = - Stuck - | non_funval_equal (Expr_cons(v14,v15)) - (Expr_ifthenelse(v387,v388,v389)) = Stuck - | non_funval_equal (Expr_cons(v14,v15)) (Expr_field(v385,v386)) = - Stuck - | non_funval_equal (Expr_cons(v14,v15)) (Expr_or(v383,v384)) = Stuck - | non_funval_equal (Expr_cons(v14,v15)) (Expr_and(v381,v382)) = - Stuck - | non_funval_equal (Expr_cons(v14,v15)) (Expr_apply(v379,v380)) = - Stuck - | non_funval_equal (Expr_cons(v14,v15)) (Expr_override(v377,v378)) = - Stuck - | non_funval_equal (Expr_cons(v14,v15)) (Expr_record(v376)) = Stuck - | non_funval_equal (Expr_cons(v14,v15)) (Expr_construct(v372,v373)) - = Stuck - | non_funval_equal (Expr_cons(v14,v15)) (Expr_tuple(v371)) = Stuck - | non_funval_equal (Expr_cons(v14,v15)) (Expr_typed(v369,v370)) = - Stuck - | non_funval_equal (Expr_cons(v14,v15)) (Expr_ident(v367)) = Stuck - | non_funval_equal (Expr_cons(v14,v15)) (Expr_bprim(v366)) = Stuck - | non_funval_equal (Expr_cons(v14,v15)) (Expr_uprim(v365)) = Stuck - | non_funval_equal (Expr_construct(v12,v13)) (Expr_location(v319)) = - Stuck - | non_funval_equal (Expr_construct(v12,v13)) (Expr_assert(v318)) = - Stuck - | non_funval_equal (Expr_construct(v12,v13)) - (Expr_letrec(v316,v317)) = Stuck - | non_funval_equal (Expr_construct(v12,v13)) (Expr_let(v314,v315)) = - Stuck - | non_funval_equal (Expr_construct(v12,v13)) (Expr_try(v312,v313)) = - Stuck - | non_funval_equal (Expr_construct(v12,v13)) (Expr_function(v311)) = - Stuck - | non_funval_equal (Expr_construct(v12,v13)) (Expr_match(v309,v310)) - = Stuck - | non_funval_equal (Expr_construct(v12,v13)) - (Expr_sequence(v307,v308)) = Stuck - | non_funval_equal (Expr_construct(v12,v13)) - (Expr_for(v302,v303,v304,v305,v306)) = Stuck - | non_funval_equal (Expr_construct(v12,v13)) (Expr_while(v300,v301)) - = Stuck - | non_funval_equal (Expr_construct(v12,v13)) - (Expr_ifthenelse(v297,v298,v299)) = Stuck - | non_funval_equal (Expr_construct(v12,v13)) (Expr_field(v295,v296)) - = Stuck - | non_funval_equal (Expr_construct(v12,v13)) (Expr_or(v293,v294)) = - Stuck - | non_funval_equal (Expr_construct(v12,v13)) (Expr_and(v291,v292)) = - Stuck - | non_funval_equal (Expr_construct(v12,v13)) (Expr_apply(v289,v290)) - = Stuck - | non_funval_equal (Expr_construct(v12,v13)) - (Expr_override(v287,v288)) = Stuck - | non_funval_equal (Expr_construct(v12,v13)) (Expr_record(v286)) = - Stuck - | non_funval_equal (Expr_construct(v12,v13)) (Expr_cons(v284,v285)) - = Stuck - | non_funval_equal (Expr_construct(v12,v13)) (Expr_tuple(v281)) = - Stuck - | non_funval_equal (Expr_construct(v12,v13)) (Expr_typed(v279,v280)) - = Stuck - | non_funval_equal (Expr_construct(v12,v13)) (Expr_ident(v277)) = - Stuck - | non_funval_equal (Expr_construct(v12,v13)) (Expr_bprim(v276)) = - Stuck - | non_funval_equal (Expr_construct(v12,v13)) (Expr_uprim(v275)) = - Stuck - | non_funval_equal (Expr_tuple(v11)) (Expr_location(v229)) = Stuck - | non_funval_equal (Expr_tuple(v11)) (Expr_assert(v228)) = Stuck - | non_funval_equal (Expr_tuple(v11)) (Expr_letrec(v226,v227)) = - Stuck - | non_funval_equal (Expr_tuple(v11)) (Expr_let(v224,v225)) = Stuck - | non_funval_equal (Expr_tuple(v11)) (Expr_try(v222,v223)) = Stuck - | non_funval_equal (Expr_tuple(v11)) (Expr_function(v221)) = Stuck - | non_funval_equal (Expr_tuple(v11)) (Expr_match(v219,v220)) = Stuck - | non_funval_equal (Expr_tuple(v11)) (Expr_sequence(v217,v218)) = - Stuck - | non_funval_equal (Expr_tuple(v11)) - (Expr_for(v212,v213,v214,v215,v216)) = Stuck - | non_funval_equal (Expr_tuple(v11)) (Expr_while(v210,v211)) = Stuck - | non_funval_equal (Expr_tuple(v11)) - (Expr_ifthenelse(v207,v208,v209)) = Stuck - | non_funval_equal (Expr_tuple(v11)) (Expr_field(v205,v206)) = Stuck - | non_funval_equal (Expr_tuple(v11)) (Expr_or(v203,v204)) = Stuck - | non_funval_equal (Expr_tuple(v11)) (Expr_and(v201,v202)) = Stuck - | non_funval_equal (Expr_tuple(v11)) (Expr_apply(v199,v200)) = Stuck - | non_funval_equal (Expr_tuple(v11)) (Expr_override(v197,v198)) = - Stuck - | non_funval_equal (Expr_tuple(v11)) (Expr_record(v196)) = Stuck - | non_funval_equal (Expr_tuple(v11)) (Expr_cons(v194,v195)) = Stuck - | non_funval_equal (Expr_tuple(v11)) (Expr_construct(v192,v193)) = - Stuck - | non_funval_equal (Expr_tuple(v11)) (Expr_typed(v189,v190)) = Stuck - | non_funval_equal (Expr_tuple(v11)) (Expr_constant(v188)) = Stuck - | non_funval_equal (Expr_tuple(v11)) (Expr_ident(v187)) = Stuck - | non_funval_equal (Expr_tuple(v11)) (Expr_bprim(v186)) = Stuck - | non_funval_equal (Expr_tuple(v11)) (Expr_uprim(v185)) = Stuck - | non_funval_equal (Expr_typed(v9,v10)) v3 = Stuck - | non_funval_equal (Expr_constant(v8)) (Expr_location(v139)) = Stuck - | non_funval_equal (Expr_constant(v8)) (Expr_assert(v138)) = Stuck - | non_funval_equal (Expr_constant(v8)) (Expr_letrec(v136,v137)) = - Stuck - | non_funval_equal (Expr_constant(v8)) (Expr_let(v134,v135)) = Stuck - | non_funval_equal (Expr_constant(v8)) (Expr_try(v132,v133)) = Stuck - | non_funval_equal (Expr_constant(v8)) (Expr_function(v131)) = Stuck - | non_funval_equal (Expr_constant(v8)) (Expr_match(v129,v130)) = - Stuck - | non_funval_equal (Expr_constant(v8)) (Expr_sequence(v127,v128)) = - Stuck - | non_funval_equal (Expr_constant(v8)) - (Expr_for(v122,v123,v124,v125,v126)) = Stuck - | non_funval_equal (Expr_constant(v8)) (Expr_while(v120,v121)) = - Stuck - | non_funval_equal (Expr_constant(v8)) - (Expr_ifthenelse(v117,v118,v119)) = Stuck - | non_funval_equal (Expr_constant(v8)) (Expr_field(v115,v116)) = - Stuck - | non_funval_equal (Expr_constant(v8)) (Expr_or(v113,v114)) = Stuck - | non_funval_equal (Expr_constant(v8)) (Expr_and(v111,v112)) = Stuck - | non_funval_equal (Expr_constant(v8)) (Expr_apply(v109,v110)) = - Stuck - | non_funval_equal (Expr_constant(v8)) (Expr_override(v107,v108)) = - Stuck - | non_funval_equal (Expr_constant(v8)) (Expr_record(v106)) = Stuck - | non_funval_equal (Expr_constant(v8)) (Expr_tuple(v101)) = Stuck - | non_funval_equal (Expr_constant(v8)) (Expr_typed(v99,v100)) = - Stuck - | non_funval_equal (Expr_constant(v8)) (Expr_ident(v97)) = Stuck - | non_funval_equal (Expr_constant(v8)) (Expr_bprim(v96)) = Stuck - | non_funval_equal (Expr_constant(v8)) (Expr_uprim(v95)) = Stuck - | non_funval_equal (Expr_ident(v7)) v3 = Stuck - | non_funval_equal (Expr_bprim(v6)) v3 = Stuck - | non_funval_equal (Expr_uprim(v5)) v3 = Stuck - - fun eval_bprim Bprim_equal v1 v2 = - (if funval v1 - then Step(Expr_apply(Expr_uprim(Uprim_raise), - Expr_construct(C_invalidargument, - [Expr_constant(CONST_string("equal: functional value"))]))) - else non_funval_equal v1 v2) - | eval_bprim Bprim_plus v1 v2 = b_int_primop wordsML.word_add v1 v2 - | eval_bprim Bprim_minus v1 v2 = b_int_primop wordsML.word_sub v1 v2 - | eval_bprim Bprim_times v1 v2 = b_int_primop wordsML.word_mul v1 v2 - | eval_bprim Bprim_div v1 v2 = - (if v2 - = - Expr_constant(CONST_int(wordsML.n2w_itself - (ZERO,(fcpML.ITSELF (numML.fromDecString"31"))))) - then (case v1 - of Expr_uprim(v45) => Stuck - | Expr_bprim(v46) => Stuck - | Expr_ident(v47) => Stuck - | Expr_constant(CONST_int(n)) => - Step(Expr_apply(Expr_uprim(Uprim_raise), - Expr_constant(CONST_constr(C_div_by_0)))) - | Expr_constant(CONST_float(v96)) => Stuck - | Expr_constant(CONST_char(v97)) => Stuck - | Expr_constant(CONST_string(v98)) => Stuck - | Expr_constant(CONST_constr(v99)) => Stuck - | Expr_constant(CONST_false) => Stuck - | Expr_constant(CONST_true) => Stuck - | Expr_constant(CONST_nil) => Stuck - | Expr_constant(CONST_unit) => Stuck - | Expr_typed(v49,v50) => Stuck - | Expr_tuple(v51) => Stuck - | Expr_construct(v52,v53) => Stuck - | Expr_cons(v54,v55) => Stuck - | Expr_record(v56) => Stuck - | Expr_override(v57,v58) => Stuck - | Expr_apply(v59,v60) => Stuck - | Expr_and(v61,v62) => Stuck - | Expr_or(v63,v64) => Stuck - | Expr_field(v65,v66) => Stuck - | Expr_ifthenelse(v67,v68,v69) => Stuck - | Expr_while(v70,v71) => Stuck - | Expr_for(v72,v73,v74,v75,v76) => Stuck - | Expr_sequence(v77,v78) => Stuck - | Expr_match(v79,v80) => Stuck - | Expr_function(v81) => Stuck - | Expr_try(v82,v83) => Stuck - | Expr_let(v84,v85) => Stuck - | Expr_letrec(v86,v87) => Stuck - | Expr_assert(v88) => Stuck - | Expr_location(v89) => Stuck) - else b_int_primop wordsML.word_sdiv v1 v2) - | eval_bprim Bprim_assign v1 v2 = - (case v1 - of Expr_uprim(v46) => Stuck - | Expr_bprim(v47) => Stuck - | Expr_ident(v48) => Stuck - | Expr_constant(v49) => Stuck - | Expr_typed(v50,v51) => Stuck - | Expr_tuple(v52) => Stuck - | Expr_construct(v53,v54) => Stuck - | Expr_cons(v55,v56) => Stuck - | Expr_record(v57) => Stuck - | Expr_override(v58,v59) => Stuck - | Expr_apply(v60,v61) => Stuck - | Expr_and(v62,v63) => Stuck - | Expr_or(v64,v65) => Stuck - | Expr_field(v66,v67) => Stuck - | Expr_ifthenelse(v68,v69,v70) => Stuck - | Expr_while(v71,v72) => Stuck - | Expr_for(v73,v74,v75,v76,v77) => Stuck - | Expr_sequence(v78,v79) => Stuck - | Expr_match(v80,v81) => Stuck - | Expr_function(v82) => Stuck - | Expr_try(v83,v84) => Stuck - | Expr_let(v85,v86) => Stuck - | Expr_letrec(v87,v88) => Stuck - | Expr_assert(v89) => Stuck - | Expr_location(l) => - StepAssign(Expr_constant(CONST_unit),l,v2)) - - fun do_1override fn1 v1 [] = NONE - | do_1override fn1 v1 ((fn2,v2)::record) = - (if fn1 = fn2 then SOME((fn1,v1)::record) - else OPTION_MAP (fn r => (fn2,v2)::r) - (do_1override fn1 v1 record)) - - fun eval_override v [] [] = Stuck - | eval_override v1 [fn1] [v] = - (case v1 - of Expr_uprim(v46) => Stuck - | Expr_bprim(v47) => Stuck - | Expr_ident(v48) => Stuck - | Expr_constant(v49) => Stuck - | Expr_typed(v50,v51) => Stuck - | Expr_tuple(v52) => Stuck - | Expr_construct(v53,v54) => Stuck - | Expr_cons(v55,v56) => Stuck - | Expr_record(fn_expr_list) => - (case do_1override fn1 v fn_expr_list - of NONE => Stuck | SOME(x) => Step(Expr_record(x))) - | Expr_override(v58,v59) => Stuck - | Expr_apply(v60,v61) => Stuck - | Expr_and(v62,v63) => Stuck - | Expr_or(v64,v65) => Stuck - | Expr_field(v66,v67) => Stuck - | Expr_ifthenelse(v68,v69,v70) => Stuck - | Expr_while(v71,v72) => Stuck - | Expr_for(v73,v74,v75,v76,v77) => Stuck - | Expr_sequence(v78,v79) => Stuck - | Expr_match(v80,v81) => Stuck - | Expr_function(v82) => Stuck - | Expr_try(v83,v84) => Stuck - | Expr_let(v85,v86) => Stuck - | Expr_letrec(v87,v88) => Stuck - | Expr_assert(v89) => Stuck - | Expr_location(v90) => Stuck) - | eval_override v1 (fn1::v12::v13) (v::voverrides) = - (case v1 - of Expr_uprim(v46) => Stuck - | Expr_bprim(v47) => Stuck - | Expr_ident(v48) => Stuck - | Expr_constant(v49) => Stuck - | Expr_typed(v50,v51) => Stuck - | Expr_tuple(v52) => Stuck - | Expr_construct(v53,v54) => Stuck - | Expr_cons(v55,v56) => Stuck - | Expr_record(fn_expr_list) => - (case do_1override fn1 v fn_expr_list - of NONE => Stuck - | SOME(x) => - Step(Expr_override(Expr_record(x), - ZIP (v12::v13,voverrides)))) - | Expr_override(v58,v59) => Stuck - | Expr_apply(v60,v61) => Stuck - | Expr_and(v62,v63) => Stuck - | Expr_or(v64,v65) => Stuck - | Expr_field(v66,v67) => Stuck - | Expr_ifthenelse(v68,v69,v70) => Stuck - | Expr_while(v71,v72) => Stuck - | Expr_for(v73,v74,v75,v76,v77) => Stuck - | Expr_sequence(v78,v79) => Stuck - | Expr_match(v80,v81) => Stuck - | Expr_function(v82) => Stuck - | Expr_try(v83,v84) => Stuck - | Expr_let(v85,v86) => Stuck - | Expr_letrec(v87,v88) => Stuck - | Expr_assert(v89) => Stuck - | Expr_location(v90) => Stuck) - | eval_override v1 [fn1] (v::v18::v19) = - (case v1 - of Expr_uprim(v46) => Stuck - | Expr_bprim(v47) => Stuck - | Expr_ident(v48) => Stuck - | Expr_constant(v49) => Stuck - | Expr_typed(v50,v51) => Stuck - | Expr_tuple(v52) => Stuck - | Expr_construct(v53,v54) => Stuck - | Expr_cons(v55,v56) => Stuck - | Expr_record(fn_expr_list) => - (case do_1override fn1 v fn_expr_list - of NONE => Stuck - | SOME(x) => - Step(Expr_override(Expr_record(x), - ZIP ([],v18::v19)))) - | Expr_override(v58,v59) => Stuck - | Expr_apply(v60,v61) => Stuck - | Expr_and(v62,v63) => Stuck - | Expr_or(v64,v65) => Stuck - | Expr_field(v66,v67) => Stuck - | Expr_ifthenelse(v68,v69,v70) => Stuck - | Expr_while(v71,v72) => Stuck - | Expr_for(v73,v74,v75,v76,v77) => Stuck - | Expr_sequence(v78,v79) => Stuck - | Expr_match(v80,v81) => Stuck - | Expr_function(v82) => Stuck - | Expr_try(v83,v84) => Stuck - | Expr_let(v85,v86) => Stuck - | Expr_letrec(v87,v88) => Stuck - | Expr_assert(v89) => Stuck - | Expr_location(v90) => Stuck) - - fun eval_apply v1 v2 = - case v1 - of Expr_uprim(up) => eval_uprim up v2 - | Expr_bprim(v49) => Stuck - | Expr_ident(v50) => Stuck - | Expr_constant(v51) => Stuck - | Expr_typed(v52,v53) => Stuck - | Expr_tuple(v54) => Stuck - | Expr_construct(v55,v56) => Stuck - | Expr_cons(v57,v58) => Stuck - | Expr_record(v59) => Stuck - | Expr_override(v60,v61) => Stuck - | Expr_apply(Expr_uprim(v47),v63) => Stuck - | Expr_apply(Expr_bprim(bp),v63) => eval_bprim bp v63 v2 - | Expr_apply(Expr_ident(v49),v63) => Stuck - | Expr_apply(Expr_constant(v50),v63) => Stuck - | Expr_apply(Expr_typed(v51,v52),v63) => Stuck - | Expr_apply(Expr_tuple(v53),v63) => Stuck - | Expr_apply(Expr_construct(v54,v55),v63) => Stuck - | Expr_apply(Expr_cons(v56,v57),v63) => Stuck - | Expr_apply(Expr_record(v58),v63) => Stuck - | Expr_apply(Expr_override(v59,v60),v63) => Stuck - | Expr_apply(Expr_apply(v61,v62),v63) => Stuck - | Expr_apply(Expr_and(v163,v64),v63) => Stuck - | Expr_apply(Expr_or(v65,v66),v63) => Stuck - | Expr_apply(Expr_field(v67,v68),v63) => Stuck - | Expr_apply(Expr_ifthenelse(v69,v70,v71),v63) => Stuck - | Expr_apply(Expr_while(v72,v73),v63) => Stuck - | Expr_apply(Expr_for(v74,v75,v76,v77,v78),v63) => Stuck - | Expr_apply(Expr_sequence(v79,v80),v63) => Stuck - | Expr_apply(Expr_match(v81,v82),v63) => Stuck - | Expr_apply(Expr_function(v83),v63) => Stuck - | Expr_apply(Expr_try(v84,v85),v63) => Stuck - | Expr_apply(Expr_let(v86,v87),v63) => Stuck - | Expr_apply(Expr_letrec(v88,v89),v63) => Stuck - | Expr_apply(Expr_assert(v90),v63) => Stuck - | Expr_apply(Expr_location(v91),v63) => Stuck - | Expr_and(v64,v65) => Stuck - | Expr_or(v66,v67) => Stuck - | Expr_field(v68,v69) => Stuck - | Expr_ifthenelse(v70,v71,v72) => Stuck - | Expr_while(v73,v74) => Stuck - | Expr_for(v75,v76,v77,v78,v79) => Stuck - | Expr_sequence(v80,v81) => Stuck - | Expr_match(v82,v83) => Stuck - | Expr_function(pm) => Step(Expr_match(v2,pm)) - | Expr_try(v85,v86) => Stuck - | Expr_let(v87,v88) => Stuck - | Expr_letrec(v89,v90) => Stuck - | Expr_assert(v91) => Stuck - | Expr_location(v92) => Stuck - - fun eval_field field v = - case v - of Expr_uprim(v45) => Stuck - | Expr_bprim(v46) => Stuck - | Expr_ident(v47) => Stuck - | Expr_constant(v48) => Stuck - | Expr_typed(v49,v50) => Stuck - | Expr_tuple(v51) => Stuck - | Expr_construct(v52,v53) => Stuck - | Expr_cons(v54,v55) => Stuck - | Expr_record(fn_expr_list) => - (case ottML.list_assoc field fn_expr_list - of NONE => Stuck | SOME(x) => Step(x)) - | Expr_override(v57,v58) => Stuck - | Expr_apply(v59,v60) => Stuck - | Expr_and(v61,v62) => Stuck - | Expr_or(v63,v64) => Stuck - | Expr_field(v65,v66) => Stuck - | Expr_ifthenelse(v67,v68,v69) => Stuck - | Expr_while(v70,v71) => Stuck - | Expr_for(v72,v73,v74,v75,v76) => Stuck - | Expr_sequence(v77,v78) => Stuck - | Expr_match(v79,v80) => Stuck - | Expr_function(v81) => Stuck - | Expr_try(v82,v83) => Stuck - | Expr_let(v84,v85) => Stuck - | Expr_letrec(v86,v87) => Stuck - | Expr_assert(v88) => Stuck - | Expr_location(v89) => Stuck - - fun eval_ite expr2 expr3 v1 = - if v1 = Expr_constant(CONST_true) then Step(expr2) - else if v1 = Expr_constant(CONST_false) then Step(expr3) - else Stuck - - fun eval_while e1 e2 = - Step(Expr_ifthenelse(e1, - Expr_sequence(e2,Expr_while(e1,e2)), - Expr_constant(CONST_unit))) - - fun eval_for x for_dirn expr3 v2 v1 = - case v1 - of Expr_uprim(v47) => Stuck - | Expr_bprim(v48) => Stuck - | Expr_ident(v49) => Stuck - | Expr_constant(CONST_int(n1)) => - (case v2 - of Expr_uprim(v47) => Stuck - | Expr_bprim(v48) => Stuck - | Expr_ident(v49) => Stuck - | Expr_constant(CONST_int(n2)) => - (case for_dirn - of FD_upto => - if wordsML.word_le n1 n2 - then Step(Expr_sequence(Expr_let(LB_simple(P_var(x), - v1), - expr3), - Expr_for(x, - Expr_constant(CONST_int(wordsML.word_add - n1 - (wordsML.n2w_itself - (ONE,(fcpML.ITSELF (numML.fromDecString"31")))))), - for_dirn, - v2, - expr3))) - else Step(Expr_constant(CONST_unit)) - | FD_downto => - if wordsML.word_le n2 n1 - then Step(Expr_sequence(Expr_let(LB_simple(P_var(x), - v1), - expr3), - Expr_for(x, - Expr_constant(CONST_int(wordsML.word_sub - n1 - (wordsML.n2w_itself - (ONE,(fcpML.ITSELF (numML.fromDecString"31")))))), - for_dirn, - v2, - expr3))) - else Step(Expr_constant(CONST_unit))) - | Expr_constant(CONST_float(v98)) => Stuck - | Expr_constant(CONST_char(v99)) => Stuck - | Expr_constant(CONST_string(v100)) => Stuck - | Expr_constant(CONST_constr(v101)) => Stuck - | Expr_constant(CONST_false) => Stuck - | Expr_constant(CONST_true) => Stuck - | Expr_constant(CONST_nil) => Stuck - | Expr_constant(CONST_unit) => Stuck - | Expr_typed(v51,v52) => Stuck - | Expr_tuple(v53) => Stuck - | Expr_construct(v54,v55) => Stuck - | Expr_cons(v56,v57) => Stuck - | Expr_record(v58) => Stuck - | Expr_override(v59,v60) => Stuck - | Expr_apply(v61,v62) => Stuck - | Expr_and(v63,v64) => Stuck - | Expr_or(v65,v66) => Stuck - | Expr_field(v67,v68) => Stuck - | Expr_ifthenelse(v69,v70,v71) => Stuck - | Expr_while(v72,v73) => Stuck - | Expr_for(v74,v75,v76,v77,v78) => Stuck - | Expr_sequence(v79,v80) => Stuck - | Expr_match(v81,v82) => Stuck - | Expr_function(v83) => Stuck - | Expr_try(v84,v85) => Stuck - | Expr_let(v86,v87) => Stuck - | Expr_letrec(v88,v89) => Stuck - | Expr_assert(v90) => Stuck - | Expr_location(v91) => Stuck) - | Expr_constant(CONST_float(v98)) => Stuck - | Expr_constant(CONST_char(v99)) => Stuck - | Expr_constant(CONST_string(v100)) => Stuck - | Expr_constant(CONST_constr(v101)) => Stuck - | Expr_constant(CONST_false) => Stuck - | Expr_constant(CONST_true) => Stuck - | Expr_constant(CONST_nil) => Stuck - | Expr_constant(CONST_unit) => Stuck - | Expr_typed(v51,v52) => Stuck - | Expr_tuple(v53) => Stuck - | Expr_construct(v54,v55) => Stuck - | Expr_cons(v56,v57) => Stuck - | Expr_record(v58) => Stuck - | Expr_override(v59,v60) => Stuck - | Expr_apply(v61,v62) => Stuck - | Expr_and(v63,v64) => Stuck - | Expr_or(v65,v66) => Stuck - | Expr_field(v67,v68) => Stuck - | Expr_ifthenelse(v69,v70,v71) => Stuck - | Expr_while(v72,v73) => Stuck - | Expr_for(v74,v75,v76,v77,v78) => Stuck - | Expr_sequence(v79,v80) => Stuck - | Expr_match(v81,v82) => Stuck - | Expr_function(v83) => Stuck - | Expr_try(v84,v85) => Stuck - | Expr_let(v86,v87) => Stuck - | Expr_letrec(v88,v89) => Stuck - | Expr_assert(v90) => Stuck - | Expr_location(v91) => Stuck - - fun eval_match (PM_pm([])) v = Stuck - | eval_match (PM_pm([PE_inj(p,e)])) v = - Step(case matching_funML.pat_match p v - of NONE => - Expr_apply(Expr_uprim(Uprim_raise), - Expr_constant(CONST_constr(C_matchfailure))) - | SOME(substs) => substs_value_name_expr substs e) - | eval_match (PM_pm(PE_inj(p,e)::v8::v9)) v = - Step(case matching_funML.pat_match p v - of NONE => Expr_match(v,PM_pm(v8::v9)) - | SOME(substs) => substs_value_name_expr substs e) - - fun eval_try expr pattern_matching = - case expr - of Expr_uprim(v45) => Stuck - | Expr_bprim(v46) => Stuck - | Expr_ident(v47) => Stuck - | Expr_constant(v48) => Stuck - | Expr_typed(v49,v50) => Stuck - | Expr_tuple(v51) => Stuck - | Expr_construct(v52,v53) => Stuck - | Expr_cons(v54,v55) => Stuck - | Expr_record(v56) => Stuck - | Expr_override(v57,v58) => Stuck - | Expr_apply(e1,e2) => - if e1 = Expr_uprim(Uprim_raise) - then (case pattern_matching - of PM_pm(pe_list) => - Step(Expr_match(e2, - PM_pm(APPEND pe_list - [PE_inj(P_any,expr)]))) - ) else Stuck - | Expr_and(v61,v62) => Stuck - | Expr_or(v63,v64) => Stuck - | Expr_field(v65,v66) => Stuck - | Expr_ifthenelse(v67,v68,v69) => Stuck - | Expr_while(v70,v71) => Stuck - | Expr_for(v72,v73,v74,v75,v76) => Stuck - | Expr_sequence(v77,v78) => Stuck - | Expr_match(v79,v80) => Stuck - | Expr_function(v81) => Stuck - | Expr_try(v82,v83) => Stuck - | Expr_let(v84,v85) => Stuck - | Expr_letrec(v86,v87) => Stuck - | Expr_assert(v88) => Stuck - | Expr_location(v89) => Stuck - - fun eval_let pattern expr2 v1 = - Step(case matching_funML.pat_match pattern v1 - of NONE => - Expr_apply(Expr_uprim(Uprim_raise), - Expr_constant(CONST_constr(C_matchfailure))) - | SOME(substs) => substs_value_name_expr substs expr2) - - fun eval_letrec letrec_bindings expr = - Step(substs_value_name_expr - (MAP (fn lb => - case lb - of LRB_simple(vn,pm) => - (vn,recfun letrec_bindings pm) - ) (lrbs_to_lrblist letrec_bindings)) expr) - - fun eval_assert v = - if v = Expr_constant(CONST_true) - then Step(Expr_constant(CONST_unit)) - else if v = Expr_constant(CONST_false) - then Step(Expr_apply(Expr_uprim(Uprim_raise), - Expr_constant(CONST_constr(C_assertfailure)))) - else Stuck - - fun red (Expr_uprim(unary_prim)) = Stuck - | red (Expr_bprim(binary_prim)) = Stuck - | red (Expr_ident(value_name)) = Stuck - | red (Expr_constant(constant)) = Stuck - | red (Expr_typed(expr,typexpr)) = Step(expr) - | red (Expr_tuple(exprs)) = - red_list (REVERSE exprs) Expr_tuple (fn v => Stuck) [] - | red (Expr_construct(constr,exprs)) = - red_list (REVERSE exprs) (fn x => Expr_construct(constr,x)) (fn x => - Stuck) [] - | red (Expr_cons(expr1,expr2)) = - red_2 expr1 expr2 (fn x => fn y => Expr_cons (x,y)) (fn v1 => fn v2 => Stuck) - | red (Expr_record(field_exprs)) = - let val (fields,exprs) = UNZIP field_exprs - in - red_list (REVERSE exprs) (fn es => - Expr_record(ZIP (fields,es))) (fn v => Stuck) [] - end - | red (Expr_override(expr,field_exprs)) = - red_1 expr (fn e => Expr_override(e,field_exprs)) (fn v => - let val (fields,exprs) = UNZIP field_exprs - in - red_list (REVERSE exprs) (fn es => - Expr_override(v,ZIP (fields,es))) - (eval_override v fields) [] - end) - | red (Expr_apply(expr1,expr2)) = - red_2 expr1 expr2 (fn x => fn y => Expr_apply(x,y)) eval_apply - | red (Expr_and(expr1,expr2)) = - Step(Expr_ifthenelse(expr1,expr2,Expr_constant(CONST_false))) - | red (Expr_or(expr1,expr2)) = - Step(Expr_ifthenelse(expr1,Expr_constant(CONST_true),expr2)) - | red (Expr_field(expr,field)) = - red_1 expr (fn e => Expr_field(e,field)) (eval_field field) - | red (Expr_ifthenelse(expr1,expr2,expr3)) = - red_1 expr1 (fn e => Expr_ifthenelse(e,expr2,expr3)) - (eval_ite expr2 expr3) - | red (Expr_while(expr1,expr2)) = eval_while expr1 expr2 - | red (Expr_for(value_name,expr1,for_dirn,expr2,expr3)) = - red_2 expr2 expr1 (fn e2 => fn e1 => - Expr_for(value_name,e1,for_dirn,e2,expr3)) - (eval_for value_name for_dirn expr3) - | red (Expr_sequence(expr1,expr2)) = - red_1 expr1 (fn e => Expr_sequence(e,expr2)) (fn v => - Step(expr2)) - | red (Expr_match(expr,pattern_matching)) = - red_1 expr (fn e => Expr_match(e,pattern_matching)) - (eval_match pattern_matching) - | red (Expr_function(pattern_matching)) = Stuck - | red (Expr_try(expr,pattern_matching)) = - (if is_raise expr then eval_try expr pattern_matching - else if is_value_of_expr expr then Step(expr) - else result_map (fn e => Expr_try(e,pattern_matching)) - (red expr)) - | red (Expr_let(LB_simple(pattern,expr1),expr2)) = - red_1 expr1 (fn e1 => Expr_let(LB_simple(pattern,e1),expr2)) - (eval_let pattern expr2) - | red (Expr_letrec(letrec_bindings,expr)) = - eval_letrec letrec_bindings expr - | red (Expr_assert(expr)) = red_1 expr Expr_assert eval_assert - | red (Expr_location(location)) = Stuck - - and red_1 expr pack1 eval1 = - if is_raise expr then Step(expr) - else if not (is_value_of_expr expr) - then result_map pack1 (red expr) else eval1 expr - - and red_2 expr1 expr2 pack2 eval2 = - if is_raise expr2 then Step(expr2) - else if not (is_value_of_expr expr2) - then result_map (pack2 expr1) (red expr2) - else if is_raise expr1 then Step(expr1) - else if not (is_value_of_expr expr1) - then result_map (fn e => pack2 e expr2) - (red expr1) else eval2 expr1 expr2 - - and red_list [] packl evall acc = evall acc - | red_list (expr::exprs) packl evall acc = - (if is_raise expr then Step(expr) - else if not (is_value_of_expr expr) - then result_map (fn e => - packl - (APPEND (APPEND (REVERSE exprs) [e]) acc)) - (red expr) - else red_list exprs packl evall (expr::acc)) - -end diff --git a/vendors/ott/examples/ocaml_light/hol/testing/sources1.cm b/vendors/ott/examples/ocaml_light/hol/testing/sources1.cm deleted file mode 100644 index 3566c8cbb181..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/testing/sources1.cm +++ /dev/null @@ -1,14 +0,0 @@ -Group is - -$/pp-lib.cm -$/basis.cm -(* -$smlnj-tdp/coverage.cm -*) - -theoryML.cm - -caml_typedefML.sig -caml_typedefML.sml -ottML.sig -ottML.sml diff --git a/vendors/ott/examples/ocaml_light/hol/testing/sources2.cm b/vendors/ott/examples/ocaml_light/hol/testing/sources2.cm deleted file mode 100644 index d6942f6a4d40..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/testing/sources2.cm +++ /dev/null @@ -1,19 +0,0 @@ -Group is - -$/pp-lib.cm -$/basis.cm -(* -$smlnj-tdp/coverage.cm -*) - -theoryML.cm -sources1.cm - -defs_red_funML.sig -defs_red_funML.sml -matching_funML.sig -matching_funML.sml -reduction_funML.sig -reduction_funML.sml -testsML.sig -testsML.sml diff --git a/vendors/ott/examples/ocaml_light/hol/testing/tests b/vendors/ott/examples/ocaml_light/hol/testing/tests deleted file mode 100644 index fbb3e1763ce9..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/testing/tests +++ /dev/null @@ -1,985 +0,0 @@ - -Make sure the tester is working. First two false. - -TESTEXPR -1 -EXPECT -2 -END - -TESTSTUCK -1+2 -END - -TESTEXPR -1 -EXPECT -1 -END - -TESTSTUCK -1 -END - -Test pattern matching. - -TESTEXPR -match 1 with - 2 -> 2 - | 3 -> 3 -EXPECT -Match_failure -END - -TESTEXPR -match 1 with - 2 -> 2 - | _ -> 1 -EXPECT -1 -END - -TESTEXPR -match 1 with - x -> x - | _ -> 2 -EXPECT -1 -END - -TESTEXPR -match 1 with - _ -> 1 - | _ -> 2 -EXPECT -1 -END - -TESTEXPR -match 1 with - 1 -> 1 - | _ -> 2 -EXPECT -1 -END - -TESTEXPR -match 1 with - 1 as x -> x - | _ -> 2 -EXPECT -1 -END - -TESTEXPR -match 1 with - 2 as x -> x - | _ -> 2 -EXPECT -2 -END - -TESTEXPR -match 1 with - (1:int) -> 1 - | _ -> 2 -EXPECT -1 -END - -TESTEXPR -match (1,2) with - ((a,b) | (b,a)) -> (a,b) - | _ -> (0,0) -EXPECT -(1,2) -END - -TESTEXPR -match (1,2) with - ((2,a)|(a,2)) -> a - | _ -> 2 -EXPECT -1 -END - -TESTEXPR -match [1;2;3] with - x::y -> x - | _ -> 2 -EXPECT -1 -END - -TESTEXPR -match [1;2;3] with - x::y -> y - | _ -> [2] -EXPECT -[2;3] -END - -TESTEXPR -match Some 1 with - None -> 2 - | Some x -> x -EXPECT -1 -END - -TESTEXPR -match None with - Some x -> x - | None -> 2 -EXPECT -2 -END - -TESTEXPR -match () with - () -> 1 -EXPECT -1 -END - -TESTEXPR -match [] with - x::y -> 1 - | [] -> 2 -EXPECT -2 -END - -TESTEXPR -match [1] with - x::y -> 1 - | [] -> 2 -EXPECT -1 -END - -TESTEXPR -match Some 1 with - None -> 2 - | Some _ -> 1 -EXPECT -1 -END - -TESTEXPR -match (1,(2,3),4) with - (a, ((e,f) as b),c) as d -> (a,b,c,d,e,f) -EXPECT -(1, (2, 3), 4, (1, (2, 3), 4), 2, 3) -END - - -TESTEXPR -match true with - false -> 1 - | true -> 2 -EXPECT -2 -END - -TESTEXPR -match false with - true -> 1 - | false -> 2 -EXPECT -2 -END - -TESTEXPR -match {f=1} with - {f=x} -> x - | _ -> 2 -EXPECT -1 -END - -TESTEXPR -match {f=1; g=2} with - {f=3} -> 1 - | _ -> 2 -EXPECT -2 -END - -TESTEXPR -match {f=1; g=2} with - {g=x; f=y} -> (x,y) - | _ -> (3,4) -EXPECT -(2,1) -END - -TESTEXPR -match {f=1;g=2} with - {g=x} -> x - | _ -> 1 -EXPECT -2 -END - - -Testing primitives - -TESTEXPR -1+2 -EXPECT -3 -END - -TESTEXPR -1-2 -EXPECT --1 -END - -TESTEXPR -5 * 4 -EXPECT -20 -END - -TESTEXPR -~- 1 -EXPECT --1 -END - -TESTEXPR -5/4 -EXPECT -1 -END - -TESTEXPR -1073741823 + 1 -EXPECT --1073741824 -END - -TESTEXPR --1073741824 - 1 -EXPECT -1073741823 -END - -TESTEXPR -not true -EXPECT -false -END - -TESTEXPR -not false -EXPECT -true -END - -TESTEXPR -1 = 2 -EXPECT -false -END - - -TESTEXPR -1 = 1 -EXPECT -true -END - -TESTEXPR -true = false -EXPECT -false -END - -TESTEXPR -false = false -EXPECT -true -END - -TESTEXPR -true = true -EXPECT -true -END - -TESTEXPR -[] = [] -EXPECT -true -END - -TESTEXPR -[] = [1] -EXPECT -false -END - -TESTEXPR -[1;2] = [1;2] -EXPECT -true -END - -TESTEXPR -[1;2;3] = [1;2;4] -EXPECT -false -END - -TESTEXPR -None = None -EXPECT -true -END - -TESTEXPR -Some 1 = Some 2 -EXPECT -false -END - - -TESTEXPR -Some None = Some None -EXPECT -true -END - -TESTEXPR -Some 1 = NONE -EXPECT -false -END - -TESTEXPR -{f=1; h=3; g=2} = {g=2; f=1; h=3} -EXPECT -true -END - -TESTEXPR -{f=1; h=2; g=3} = {g=1; f=2; h=3} -EXPECT -false -END - -TESTEXPR -(fun x -> 1) = (fun x -> 1) -EXPECT -Invalid_argument "equal: functional value" -END - - -TESTEXPR -(1,2) = (1,2) -EXPECT -true -END - -TESTEXPR -(1,2) = (1,4) -EXPECT -false -END - -TESTEXPR -C (1,2) = C (1,2) -EXPECT -true -END - -TESTEXPR -C (1,2) = D (1,2,3) -EXPECT -false -END - -TESTEXPR -C = C -EXPECT -true -END - -TESTEXPR -C = D -EXPECT -false -END - -TESTEXPR -C (1,2) = C (1,3) -EXPECT -false -END - -TESTEXPR -C = D (1,2) -EXPECT -false -END - -Test exception propogation and evaluation ordering - -TESTEXPR -1 + raise E -EXPECT -E -END - -TESTEXPR -(raise E) 1 -EXPECT -E -END - -TESTEXPR -(raise E1) (raise E2) -EXPECT -E2 -END - -TESTEXPR -((raise E) : int) -EXPECT -E -END - -TESTEXPR -(1, 2, raise E1, raise E2, 3, 4) -EXPECT -E2 -END - -TESTEXPR -C (1, 2, raise E1, raise E2, 3, 4) -EXPECT -E2 -END - -TESTEXPR -raise E1::raise E -EXPECT -E -END - -TESTEXPR -raise E1::[] -EXPECT -E1 -END - -TESTEXPR -{f=1; g=raise E1; h=raise E2; i=3} -EXPECT -E2 -END - -TESTEXPR -{(raise E3) with f=1; g=raise E1; h=raise E2; i=3} -EXPECT -E3 -END - - -TESTEXPR -{{f=1;g=1;h=1;i=1} with f=1; g=raise E1; h=raise E2; i=3} -EXPECT -E2 -END - -TESTEXPR -raise E1 && raise E2 -EXPECT -E1 -END - -TESTEXPR -true && raise E2 -EXPECT -E2 -END - -TESTEXPR -false && raise E2 -EXPECT -false -END - -TESTEXPR -raise E1 || raise E2 -EXPECT -E1 -END - -TESTEXPR -true || raise E2 -EXPECT -true -END - -TESTEXPR -false || raise E2 -EXPECT -E2 -END - -TESTEXPR -(raise E).f -EXPECT -E -END - -TESTEXPR -if raise E then raise E1 else raise E2 -EXPECT -E -END - -TESTEXPR -if true then raise E1 else raise E2 -EXPECT -E1 -END - -TESTEXPR -if false then raise E1 else raise E2 -EXPECT -E2 -END - -TESTEXPR -while raise E1 do raise E2 done -EXPECT -E1 -END - -TESTEXPR -while true do raise E2 done -EXPECT -E2 -END - -TESTEXPR -while false do raise E2 done -EXPECT -() -END - -TESTEXPR -for i = raise E1 to raise E2 do raise E3 done -EXPECT -E1 -END - -TESTEXPR -for i = 1 to raise E2 do raise E3 done -EXPECT -E2 -END - -TESTEXPR -for i = 1 to 0 do raise E3 done -EXPECT -() -END - -TESTEXPR -for i = 0 to 0 do raise E3 done -EXPECT -E3 -END - -TESTEXPR -(raise E1);(raise E2) -EXPECT -E1 -END - -TESTEXPR -();(raise E3) -EXPECT -E3 -END - -TESTEXPR -match raise E with - | _ -> raise E1 -EXPECT -E -END - -TESTEXPR -match 1 with - 1 -> 1 - | _ -> raise E -EXPECT -1 -END - -TESTEXPR -match 1 with - 2 -> raise E - | _ -> raise E1 -EXPECT -E1 -END - -TESTEXPR -function _ -> raise E -EXPECT -function _ -> raise E -END - -TESTEXPR -let x = raise E1 in raise E2 -EXPECT -E1 -END - -TESTEXPR -let x = 1 in raise E2 -EXPECT -E2 -END - -TESTEXPR -let rec f x = raise E1 and g x = raise E2 in raise E3 -EXPECT -E3 -END - -TESTEXPR -let rec f x = 1 and g x = raise E2 in raise E3 -EXPECT -E3 -END - -TESTEXPR -assert (raise E) -EXPECT -E -END - -Test the core forms - -TESTEXPR -(1+2,3+4) -EXPECT -(3,7) -END - -TESTEXPR -Some (1+2) -EXPECT -Some 3 -END - -TESTEXPR -C (1+2, 3+4, 5+6) -EXPECT -C (3, 7, 11) -END - -TESTEXPR -(1+2)::if true then [] else (1::[]) -EXPECT -3::[] -END - -TESTEXPR -{f = 1+2; g = 3+4} -EXPECT -{f=3; g=7} -END - -TESTEXPR -(function x -> x) 1 -EXPECT -1 -END - -TESTEXPR -(function x -> x) ((+) 1) -EXPECT -((+) 1) -END - -TESTEXPR -true && false -EXPECT -false -END - -TESTEXPR -false || false -EXPECT -false -END - -TESTEXPR -if true then 1 else 2 -EXPECT -1 -END - - -TESTEXPR -if false then 1 else 2 -EXPECT -2 -END - -TESTEXPR -(function None -> 1+2 | Some x -> 1+x) (Some 4) -EXPECT -5 -END - -TESTEXPR -let x = 1 + 2 in x + 4 -EXPECT -7 -END - -TESTEXPR -assert true -EXPECT -() -END - -TESTEXPR -assert false -EXPECT -Assert_failure -END - -TESTEXPR -assert (false && true) -EXPECT -Assert_failure -END - -TESTEXPR -let rec fact x = if x = 0 then 1 else x * fact (x - 1) in fact 4 -EXPECT -24 -END - -TESTEXPR -let rec even x = if x = 0 then true else odd (x - 1) - and odd x = if x = 0 then false else even (x - 1) -in -(even 10, odd 10, even 9, odd 9) -EXPECT -(true, false, false, true) -END - -TESTEXPR -let f = function x -> function y -> x + y in -f 1 2 -EXPECT -3 -END - -TESTEXPR -let f = function x -> function x -> x in -f 1 2 -EXPECT -2 -END - -TESTEXPR -let x = ref 1 in - !x -EXPECT -1 -END - -TESTEXPR -let x = ref 1 in - x := 10; - !x -EXPECT -10 -END - -TESTEXPR -let x = ref [] in - (for j = 0 to 10 do x := j :: !x done); - !x -EXPECT -[10; 9; 8; 7; 6; 5; 4; 3; 2; 1; 0] -END - -TESTEXPR -let x = ref [] in - (for j = 10 downto 0 do x := j :: !x done); - !x -EXPECT -[0; 1; 2; 3; 4; 5; 6; 7; 8; 9; 10] -END - -TESTEXPR -let x = ref [] in -for i = 1+1 to 2+2 do x:=i::!x done; -!x -EXPECT -[4;3;2] -END - - -TESTEXPR -let x = ref [1;2;3;4;5] in -let y = ref [] in - (while not (!x = []) do x := (match !x with a::b -> b); y := !x :: !y done); - !y -EXPECT -[[]; [5]; [4; 5]; [3; 4; 5]; [2; 3; 4; 5]] -END - - -TESTEXPR -try (raise E) ; 2 with - E -> 1 -EXPECT -1 -END - -TESTEXPR -try raise E with - E1 -> 1 - | E2 -> 2 -EXPECT -E -END - -TESTEXPR -try - (try raise (E (1,2)) with - E (1,3) -> 1) - with - E _ -> 10 -EXPECT -10 -END - -TESTEXPR -try - (try raise (E (1,2)) with - E (1,3) -> (3,4)) - with - E (a,b) -> (a,b) -EXPECT -(1,2) -END - -TESTEXPR -let x = ref Empty in -let y = ref Empty in -let fst (Cons (x, y)) = x in -let snd (Cons (x, y)) = y in - x := Cons (1, y); - y := Cons (2, x); - (fst (!(snd (!(snd (!x))))), fst (!(snd (!(snd (!(snd (!x)))))))) -EXPECT -(1,2) -END - -TESTEXPR -{{f=1; g=2; h=3} with g = 4} -EXPECT -{f=1;g=4;h=3} -END - -TESTEXPR -{{f=1; g=2; h=3} with g = 4; f = 5} -EXPECT -{f=5;g=4;h=3} -END - -TESTEXPR -{{f = 1} with f = 1+2} -EXPECT -{f=3} -END - -TESTEXPR -{{f = 1+2; g = 3+4} with g = 3+2} -EXPECT -{f = 3; g=5} -END - -TESTEXPR -{f=1;g=2;h=3}.g -EXPECT -2 -END - -TESTEXPR -{f=1;g=2+2;h=3}.g -EXPECT -4 -END - -TESTSTUCK -(1,2) -END - -TESTSTUCK -C -END - -TESTSTUCK -C (1,2) -END - -TESTSTUCK -{f=1;g=2} -END - -TESTSTUCK -function x -> x+1 -END - -TESTSTUCK -x -END - -TESTSTUCK -(+) -END - -TESTSTUCK -(!) -END - -TESTSTUCK -(+) 1 -END - -TESTSTUCK -1::2::[] -END - -TESTDEFS -let g x y = x * y;; -type ('a, 'b, 'c) t = C;; -let rec f = function y -> if y = 0 then 1 else g (f (y - 1)) y;; -EXPR -f 5 -EXPECT -120 -END - - - - - diff --git a/vendors/ott/examples/ocaml_light/hol/testing/theoryML.cm b/vendors/ott/examples/ocaml_light/hol/testing/theoryML.cm deleted file mode 100644 index 6cd0e5325cdb..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/testing/theoryML.cm +++ /dev/null @@ -1,30 +0,0 @@ -Group is - -$/pp-lib.cm -$/basis.cm -(* -$smlnj-tdp/coverage.cm -*) - -/home/so294/scratch/HOL/src/theoryML/basicSizeML.sig -/home/so294/scratch/HOL/src/theoryML/basicSizeML.sml -/home/so294/scratch/HOL/src/theoryML/bitML.sig -/home/so294/scratch/HOL/src/theoryML/bitML.sml -/home/so294/scratch/HOL/src/theoryML/combinML.sig -/home/so294/scratch/HOL/src/theoryML/combinML.sml -/home/so294/scratch/HOL/src/theoryML/fcpML.sig -/home/so294/scratch/HOL/src/theoryML/fcpML.sml -/home/so294/scratch/HOL/src/theoryML/listML.sig -/home/so294/scratch/HOL/src/theoryML/listML.sml -/home/so294/scratch/HOL/src/theoryML/numML.sig -/home/so294/scratch/HOL/src/theoryML/numML.sml -/home/so294/scratch/HOL/src/theoryML/optionML.sig -/home/so294/scratch/HOL/src/theoryML/optionML.sml -/home/so294/scratch/HOL/src/theoryML/pairML.sig -/home/so294/scratch/HOL/src/theoryML/pairML.sml -/home/so294/scratch/HOL/src/theoryML/stringML.sig -/home/so294/scratch/HOL/src/theoryML/stringML.sml -/home/so294/scratch/HOL/src/theoryML/sumML.sig -/home/so294/scratch/HOL/src/theoryML/sumML.sml -/home/so294/scratch/HOL/src/theoryML/wordsML.sig -/home/so294/scratch/HOL/src/theoryML/wordsML.sml diff --git a/vendors/ott/examples/ocaml_light/hol/type_substScript.sml b/vendors/ott/examples/ocaml_light/hol/type_substScript.sml deleted file mode 100644 index f186ba1bea4f..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/type_substScript.sml +++ /dev/null @@ -1,592 +0,0 @@ -open bossLib HolKernel boolLib listTheory rich_listTheory optionTheory combinTheory arithmeticTheory pairTheory; -open ottTheory ottLib caml_typedefTheory; -open utilTheory basicTheory shiftTheory environmentTheory validTheory; - -val _ = Parse.hide "S"; - -val _ = new_theory "type_subst"; - -val EVERY_FLAT = Q.prove ( -`!l P. (P []) /\ (!x y. P (x++y) = P x /\ P y) ==> (EVERY P l = P (FLAT l))`, -Induct THEN SRW_TAC [] []); - -val EVERY_ZIP_SAME = Q.prove ( -`!l f. EVERY (\x. f (FST x) (SND x)) (ZIP (l,l)) = EVERY (\x. f x x) l`, -Induct THEN SRW_TAC [] []); - - -local - -val lem1 = Q.prove ( -`(!t l m n. shiftt 0 (m + (n + l)) t = shiftt n m (shiftt 0 (n + l) t)) /\ - (!tl l m n. MAP (\t. shiftt 0 (m + (n + l)) t) tl = MAP (\t. shiftt n m (shiftt 0 (n + l) t)) tl)`, -Induct THEN SRW_TAC [ARITH_ss] [shiftt_def, MAP_MAP]); - -val lem2 = Q.prove ( -`(!t m n. idxsubn (num_tv E + n + m) (MAP (shiftt 0 (num_tv E + n + m)) t_list) (shiftt n m t) = - shiftt n m (idxsubn (num_tv E + n) (MAP (shiftt 0 (num_tv E + n)) t_list) t)) /\ - (!tl m n. MAP (\t. idxsubn (num_tv E + n + m) (MAP (shiftt 0 (num_tv E + n + m)) t_list) (shiftt n m t)) tl = - MAP (\t. shiftt n m (idxsubn (num_tv E + n) (MAP (shiftt 0 (num_tv E + n)) t_list) t)) tl)`, -Induct THEN SRW_TAC [ARITH_ss] [idxsubn_def, shiftt_def, EL_MAP, MAP_MAP] THEN -FULL_SIMP_TAC list_ss [lem1]); - -val lem3 = Q.prove ( -`!ts m n. idxsubnts (num_tv E + n + m) (MAP (shiftt 0 (num_tv E + n + m)) t_list) (shiftts n m ts) = - shiftts n m (idxsubnts (num_tv E + n) (MAP (shiftt 0 (num_tv E + n)) t_list) ts)`, -Cases_on `ts` THEN SRW_TAC [] [idxsubnts_def, shiftts_def, MAP_MAP_o, GSYM shiftt_add_thm] THEN -SRW_TAC [ARITH_ss] [(SIMP_RULE list_ss [] o Q.SPECL [`t`, `m`, `n+1`] o hd o CONJUNCTS) lem2]); - -val lem4 = Q.prove ( -`!tes m n. idxsubntes (num_tv E + n + m) (MAP (shiftt 0 (num_tv E + n + m)) t_list) (shifttes n m tes) = - shifttes n m (idxsubntes (num_tv E + n) (MAP (shiftt 0 (num_tv E + n)) t_list) tes)`, -Cases_on `tes` THEN SRW_TAC [] [idxsubntes_def, shifttes_def, MAP_MAP, lem2]); - -val lem5 = Q.prove ( -`!EB m n. idxsubnEB (num_tv E + n + m) (MAP (shiftt 0 (num_tv E + n + m)) t_list) (shiftEB n m EB) = - shiftEB n m (idxsubnEB (num_tv E + n) (MAP (shiftt 0 (num_tv E + n)) t_list) EB)`, -Cases_on `EB` THEN SRW_TAC [] [idxsubnEB_def, shiftEB_def, lem2, lem3, lem4]); - -in - -val type_subst_lookup_thm = Q.prove ( -`!E1 E2 name EB. (lookup (E1 ++ [EB_tv] ++ E2) name = SOME EB) /\ ~(name = name_tv) ==> - (lookup (idxsubnE 0 t_list E1 ++ E2) name = - SOME (idxsubnEB (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) EB))`, -Induct THEN SRW_TAC [] [lookup_def, num_tv_def, idxsubnE_def, domEB_def, idxsubnEB_def] THEN -FULL_SIMP_TAC list_ss [idxsubnEB_dom_thm, sub_shiftEB_thm, shiftEB_add_thm] THENL -[Cases_on `EB` THEN FULL_SIMP_TAC list_ss [domEB_def, name_distinct, num_tv_def], - Cases_on `h` THEN FULL_SIMP_TAC list_ss [domEB_def, name_distinct, num_tv_def] THEN - RES_TAC THEN Q.EXISTS_TAC `idxsubnEB (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) EB2` THEN - SRW_TAC [] [], - Cases_on `h` THEN FULL_SIMP_TAC list_ss [domEB_def, name_distinct, num_tv_def]] THEN - SRW_TAC [] [(SIMP_RULE list_ss [] o Q.SPECL [`EB2`, `1`, `0`]) lem5]); - -end; - -val ftv_lem1 = Q.store_thm ("ftv_lem1", -`(!t E. tkind E t ==> (ftv_typexpr t = [])) /\ - (!tl E. EVERY (tkind E) tl ==> EVERY (\t. ftv_typexpr t = []) tl)`, -Induct THEN SRW_TAC [] [Eok_def, ftv_typexpr_def, FLAT_EQ_EMPTY, EVERY_MAP] THEN -METIS_TAC []); - -val ftv_lem2 = Q.prove ( -`(!t m n. (ftv_typexpr t = []) ==> (ftv_typexpr (shiftt m n t) = [])) /\ - (!tl m n. EVERY (\t. ftv_typexpr t = []) tl ==> EVERY (\t. ftv_typexpr (shiftt m n t) = []) tl)`, -Induct THEN SRW_TAC [] [ftv_typexpr_def, shiftt_def, FLAT_EQ_EMPTY, EVERY_MAP]); - -val idxbound_lem1 = Q.prove ( -`!E1 E2 idx. idx < num_tv E1 /\ idx_bound (E1++[EB_tv]++E2) idx ==> - idx_bound (idxsubnE 0 t_list E1 ++ E2) idx`, -Induct THEN SRW_TAC [] [num_tv_def, idx_bound_def] THEN Cases_on `h` THEN -FULL_SIMP_TAC list_ss [num_tv_def, idx_bound_def, idxsubnE_def, idxsubnEB_def] THEN -Cases_on `idx` THEN FULL_SIMP_TAC list_ss [idx_bound_def]); - -val idxbound_lem2 = Q.prove ( -`!E1 E2 idx. ~(idx < num_tv E1) /\ ~(idx = num_tv E1) /\ idx_bound (E1++[EB_tv]++E2) idx ==> - idx_bound (idxsubnE 0 t_list E1 ++ E2) (idx - 1)`, -Induct THEN SRW_TAC [] [num_tv_def, idx_bound_def, idxsubnE_def] THEN1 -(Cases_on `idx` THEN FULL_SIMP_TAC list_ss [idx_bound_def]) THEN -Cases_on `h` THEN FULL_SIMP_TAC list_ss [num_tv_def, idx_bound_def, idxsubnE_def, idxsubnEB_def] THEN -Cases_on `idx` THEN FULL_SIMP_TAC list_ss [idx_bound_def] THEN Cases_on `n` THEN -SRW_TAC [] [idx_bound_def] THEN RES_TAC THEN FULL_SIMP_TAC list_ss []); - -val type_subst_ok_thm = Q.store_thm ("type_subst_ok_thm", -`(!E1 E2 t_list. Eok (E1++[EB_tv]++E2) /\ EVERY (tkind E2) t_list ==> Eok (idxsubnE 0 t_list E1 ++ E2)) /\ - (!E1 tcn E2 k t_list. (typeconstr_kind (E1++[EB_tv]++E2) tcn = SOME k) /\ EVERY (tkind E2) t_list ==> - (typeconstr_kind (idxsubnE 0 t_list E1++E2) tcn = SOME k)) /\ - (!E1 ts E2 t_list. tsok (E1++[EB_tv]++E2) ts /\ EVERY (tkind E2) t_list ==> - tsok (idxsubnE 0 t_list E1++E2) - (idxsubnts (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) ts)) /\ - (!E1 tpo t E2 t_list. ntsok (E1++[EB_tv]++E2) tpo t /\ EVERY (tkind E2) t_list ==> - ntsok (idxsubnE 0 t_list E1++E2) tpo - (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t)) /\ - (!E1 t E2 t_list. tkind (E1++[EB_tv]++E2) t /\ EVERY (tkind E2) t_list ==> - tkind (idxsubnE 0 t_list E1++E2) - (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t))`, -HO_MATCH_MP_TAC Eok_ind THEN -SRW_TAC [] [Eok_def, idxsubnE_def, idxsubnEB_def, idxsubnE_dom_thm, idxsubntes_def, EVERY_MAP, - COND_EXPAND_EQ, domEB_def, idxsubn_def] THEN -IMP_RES_TAC type_subst_lookup_thm THEN SRW_TAC [] [idxsubnts_def, idxsubnEB_def, Eok_def, COND_EXPAND_EQ] THEN -FULL_SIMP_TAC list_ss [EVERY_MEM] THEN SRW_TAC [] [idxbound_lem1, idxbound_lem2, EL_MAP, MAP_MAP] -THENL -[METIS_TAC [], - METIS_TAC [], - METIS_TAC [], - Cases_on `lookup (E1++[EB_tv]++E2) (name_tcn typeconstr_name)` THEN FULL_SIMP_TAC list_ss [] THEN - Cases_on `x` THEN FULL_SIMP_TAC list_ss [environment_binding_case_def] THEN - IMP_RES_TAC type_subst_lookup_thm THEN SRW_TAC [] [idxsubnEB_def], - RES_TAC THEN FULL_SIMP_TAC list_ss [num_tv_def, GSYM shiftt_add_thm] THEN METIS_TAC [], - RES_TAC THEN - `EVERY (\t. ftv_typexpr t = []) (MAP (shiftt 0 (num_tv E1)) t_list)` by - (SRW_TAC [] [EVERY_MAP] THEN METIS_TAC [ftv_lem1, ftv_lem2, EVERY_MEM]) - THEN IMP_RES_TAC idxsubn_subst_com_lem THEN FULL_SIMP_TAC list_ss [MAP_MAP, idxsubn_def], - FULL_SIMP_TAC list_ss [MEM_EL] THEN RES_TAC THEN FULL_SIMP_TAC list_ss [] THEN - METIS_TAC [tkind_weak_thm, idxsubnE_num_tv_thm]]); - - -val type_subst_teq_thm = Q.prove ( -`!E t1 t2. JTeq E t1 t2 ==> (E = E1++[EB_tv]++E2) /\ EVERY (tkind E2) t_list ==> - JTeq (idxsubnE 0 t_list E1 ++ E2) - (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t1) - (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t2)`, -RULE_INDUCT_TAC JTeq_ind [idxsubn_def] -[([``"JTeq_refl"``], METIS_TAC [type_subst_ok_thm, JTeq_rules]), - ([``"JTeq_sym"``], METIS_TAC [JTeq_rules]), - ([``"JTeq_trans"``], METIS_TAC [JTeq_rules]), - ([``"JTeq_arrow"``], METIS_TAC [JTeq_rules]), - ([``"JTeq_tuple"``], - SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [Once JTeq_cases] THEN NTAC 3 DISJ2_TAC THEN - Q.EXISTS_TAC `MAP (\(x,y). (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) x, - idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) y)) - t_t'_list` THEN - SRW_TAC [] [MAP_MAP, LAMBDA_PROD2, EVERY_MAP]), - ([``"JTeq_constr"``], - SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [Once JTeq_cases] THEN NTAC 4 DISJ2_TAC THEN - Q.EXISTS_TAC `MAP (\(x,y). (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) x, - idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) y)) - t_t'_list` THEN - SRW_TAC [] [MAP_MAP, LAMBDA_PROD2, EVERY_MAP, type_subst_ok_thm]), - ([``"JTeq_expand"``], - SRW_TAC [] [] THEN SRW_TAC [] [Once JTeq_cases, MAP_MAP] THEN NTAC 3 DISJ2_TAC THEN DISJ1_TAC THEN - IMP_RES_TAC type_subst_lookup_thm THEN FULL_SIMP_TAC (srw_ss()) [idxsubnEB_def] THEN - Q.EXISTS_TAC `MAP (\(x,y). (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) x, y)) - t_typevar_list` THEN - SRW_TAC [] [MAP_MAP, LAMBDA_PROD2, EVERY_MAP] THENL - [`EVERY (\t. ftv_typexpr t = []) (MAP (shiftt 0 (num_tv E1)) t_list)` by - (SRW_TAC [] [EVERY_MAP] THEN METIS_TAC [ftv_lem1, ftv_lem2, EVERY_MEM]) - THEN IMP_RES_TAC idxsubn_subst_com_lem THEN FULL_SIMP_TAC list_ss [MAP_MAP, idxsubn_def], - METIS_TAC [type_subst_ok_thm], - POP_ASSUM (K ALL_TAC) THEN Q.PAT_ASSUM `lookup x y = z` (K ALL_TAC) THEN - Induct_on `t_typevar_list` THEN SRW_TAC [] [] THEN METIS_TAC [type_subst_ok_thm]])]); - - -local - -val lem1 = Q.prove ( -`(!t' t_list t_list' n. idxsubn n (MAP (shiftt 0 n) t_list) (idxsub t_list' t') = - idxsub (MAP (\t. idxsubn n (MAP (shiftt 0 n) t_list) t) t_list') - (idxsubn (n + 1) (MAP (shiftt 0 (1 + n)) t_list) t')) /\ - (!tl t_list t_list' n. MAP (\t'. idxsubn n (MAP (shiftt 0 n) t_list) (idxsub t_list' t')) tl = - MAP (\t'. idxsub (MAP (\t. idxsubn n (MAP (shiftt 0 n) t_list) t) t_list') - (idxsubn (n + 1) (MAP (shiftt 0 (1 + n)) t_list) t')) tl)`, -Induct THEN -SRW_TAC [] [idxsubn_def, idxsub_def, MAP_MAP, EL_MAP, GSYM ADD1, COND_EXPAND_EQ] THEN1 -METIS_TAC [idxsubn0_thm, sub_shiftt_thm, shiftt_add_thm] THEN -Cases_on `n` THEN FULL_SIMP_TAC list_ss [idxsub_def, idxsubn_def, COND_EXPAND_EQ] THEN -SRW_TAC [] [idxsubn_def, EL_MAP] THEN Cases_on `n''` THEN FULL_SIMP_TAC list_ss [idxsub_def]); - -in - -val type_subst_inst_thm = Q.prove ( -`!E1 E2 t ts t_list. JTinst (E1++[EB_tv]++E2) t ts /\ EVERY (tkind E2) t_list ==> - JTinst (idxsubnE 0 t_list E1 ++ E2) - (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t) - (idxsubnts (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) ts)`, -SRW_TAC [] [JTinst_cases, Eok_def] THEN SRW_TAC [] [idxsubnts_def, MAP_MAP_o, GSYM shiftt_add_thm] THEN -Q.EXISTS_TAC `MAP (\t. idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t) t_list'` THEN -SRW_TAC [] [MAP_MAP, EVERY_MAP] THENL -[FULL_SIMP_TAC std_ss [GSYM APPEND] THEN IMP_RES_TAC type_subst_ok_thm THEN - FULL_SIMP_TAC list_ss [idxsubnE_def, num_tv_def, idxsubnEB_def], - FULL_SIMP_TAC list_ss [EVERY_MEM] THEN SRW_TAC [] [] THEN METIS_TAC [EVERY_MEM, type_subst_ok_thm], - METIS_TAC [lem1]]); - -end; - -val type_subst_inst_named_thm = Q.prove ( -`!E1 E2 t tpo t' t_list. - JTinst_named (E1++[EB_tv]++E2) t tpo t' /\ EVERY (tkind E2) t_list ==> - JTinst_named (idxsubnE 0 t_list E1 ++ E2) (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t) - tpo (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t')`, -SRW_TAC [] [JTinst_named_cases] THEN -Q.EXISTS_TAC `MAP (\(tv, t). (tv, idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t)) typevar_t_list` -THEN -SRW_TAC [] [MAP_MAP, LAMBDA_PROD2, EVERY_MAP, type_subst_ok_thm] THENL -[IMP_RES_TAC ftv_lem1 THEN IMP_RES_TAC ftv_lem2 THEN - SRW_TAC [] [idxsubn_subst_com_lem, EVERY_MAP, shiftTsig_def, LAMBDA_PROD2, - MAP_MAP, sub_shiftt_thm2, MAP_I, src_t_idxsubn_thm], - FULL_SIMP_TAC list_ss [EVERY_MEM, type_subst_ok_thm]]); - -val type_subst_uprim_thm = Q.prove ( -`!E1 E2 up t t_list. JTuprim (E1++[EB_tv]++E2) up t /\ EVERY (tkind E2) t_list ==> - JTuprim (idxsubnE 0 t_list E1 ++ E2) up - (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t)`, -SRW_TAC [] [JTuprim_cases, idxsubn_def] THEN METIS_TAC [type_subst_ok_thm]); - -val type_subst_bprim_thm = Q.prove ( -`!E1 E2 bp t t_list. JTbprim (E1++[EB_tv]++E2) bp t /\ EVERY (tkind E2) t_list ==> - JTbprim (idxsubnE 0 t_list E1 ++ E2) bp - (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t)`, -SRW_TAC [] [JTbprim_cases, idxsubn_def] THEN METIS_TAC [type_subst_ok_thm]); - -val type_subst_vn_thm = Q.prove ( -`!E E2 vn t t_list. JTvalue_name (E1++[EB_tv]++E2) vn t /\ EVERY (tkind E2) t_list ==> - JTvalue_name (idxsubnE 0 t_list E1 ++ E2) vn - (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t)`, -SRW_TAC [] [JTvalue_name_cases] THEN IMP_RES_TAC type_subst_lookup_thm THEN -FULL_SIMP_TAC list_ss [name_distinct, idxsubnEB_def] THEN SRW_TAC [] [type_subst_inst_thm]); - -val type_subst_constr_c_thm = Q.prove ( -`!E1 E2 c t t_list. JTconstr_c (E1++[EB_tv]++E2) c t /\ EVERY (tkind E2) t_list ==> - JTconstr_c (idxsubnE 0 t_list E1 ++ E2) c - (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t)`, -SRW_TAC [] [JTconstr_c_cases, idxsubn_def, EVERY_MAP] THEN -IMP_RES_TAC type_subst_lookup_thm THEN SRW_TAC [] [type_subst_ok_thm, idxsubnEB_def] THEN -FULL_SIMP_TAC list_ss [EVERY_MEM] THEN METIS_TAC [EVERY_MEM, type_subst_ok_thm]); - -val type_subst_const_thm = Q.prove ( -`!E1 E2 c t t_list. JTconst (E1++[EB_tv]++E2) c t /\ EVERY (tkind E2) t_list ==> - JTconst (idxsubnE 0 t_list E1 ++ E2) c - (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t)`, -SRW_TAC [] [JTconst_cases, idxsubn_def] THEN METIS_TAC [type_subst_ok_thm, type_subst_constr_c_thm]); - -val type_subst_constr_p_thm = Q.prove ( -`!E1 E2 c tl t t_list. JTconstr_p (E1++[EB_tv]++E2) c tl t /\ EVERY (tkind E2) t_list ==> - JTconstr_p (idxsubnE 0 t_list E1 ++ E2) c - (MAP (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list)) tl) - (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t)`, -SRW_TAC [] [JTconstr_p_cases, idxsubn_def, type_subst_ok_thm, MAP_MAP] THEN -MAP_EVERY Q.EXISTS_TAC [`MAP (\(t, t'). (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t, - idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t')) - t'_t_list`, - `MAP (\(t, tv). (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t, tv)) - t''_tv_list`] -THEN -IMP_RES_TAC type_subst_lookup_thm THEN FULL_SIMP_TAC list_ss [] THEN -SRW_TAC [] [idxsubnEB_def, idxsubntes_def, MAP_MAP, LAMBDA_PROD2] THEN -IMP_RES_TAC type_subst_inst_named_thm THEN FULL_SIMP_TAC list_ss [MAP_MAP, idxsubn_def]); - -val type_subst_field_thm = Q.prove ( -`!E1 E2 fn t t' t_list. JTfield (E1++[EB_tv]++E2) fn t t' /\ EVERY (tkind E2) t_list ==> - JTfield (idxsubnE 0 t_list E1 ++ E2) fn - (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t) - (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t')`, -SRW_TAC [] [JTfield_cases] THEN -Q.EXISTS_TAC `MAP (\(t, tv). (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t, tv)) - t'_tv_list` -THEN SRW_TAC [] [idxsubn_def, MAP_MAP, LAMBDA_PROD2] THEN -Q.EXISTS_TAC `idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t''` THEN -IMP_RES_TAC type_subst_lookup_thm THEN FULL_SIMP_TAC list_ss [] THEN -SRW_TAC [] [idxsubnEB_def, idxsubntes_def, MAP_MAP, LAMBDA_PROD2] THEN -IMP_RES_TAC type_subst_inst_named_thm THEN FULL_SIMP_TAC list_ss [MAP_MAP, idxsubn_def]); - -val inst_any_refl_thm = Q.store_thm ("inst_any_refl_thm", -`(!t E. tkind E t ==> JTinst_any E t t) /\ - (!tl E. EVERY (\t. tkind E t) tl ==> EVERY (\t. JTinst_any E t t) tl)`, -Induct THEN SRW_TAC [] [JTinst_any_fun, Eok_def] THEN -Q.EXISTS_TAC `ZIP (tl, tl)` THEN SRW_TAC [] [MAP_FST_ZIP, MAP_SND_ZIP, EVERY_ZIP_SAME, LENGTH_ZIP]); - -val type_subst_inst_any_thm = Q.prove ( -`!E' t t'. JTinst_any E' t t' ==> - !E1 E2 t_list. (E' = E1++[EB_tv]++E2) /\ EVERY (tkind E2) t_list ==> - JTinst_any (idxsubnE 0 t_list E1++E2) - (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t) - (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t')`, -RULE_INDUCT_TAC JTinst_any_ind [JTinst_any_fun, idxsubn_def] -[([``"JTinst_any_tyvar"``], - SRW_TAC [] [] THEN SRW_TAC [] [JTinst_any_fun] THENL - [MATCH_MP_TAC (hd (CONJUNCTS inst_any_refl_thm)) THEN - `MEM (EL num t_list) t_list` by METIS_TAC [MEM_EL] THEN - `Eok (E1 ++ [EB_tv] ++ E2)` by METIS_TAC [ok_ok_thm] THEN - IMP_RES_TAC type_subst_ok_thm THEN - FULL_SIMP_TAC list_ss [EVERY_MEM, idxsubn_def] THEN METIS_TAC [], - FULL_SIMP_TAC list_ss [Eok_def] THEN METIS_TAC [idxbound_lem1, type_subst_ok_thm], - FULL_SIMP_TAC list_ss [Eok_def] THEN METIS_TAC [idxbound_lem1, type_subst_ok_thm], - FULL_SIMP_TAC list_ss [Eok_def] THEN METIS_TAC [idxbound_lem2, type_subst_ok_thm]]), - ([``"JTinst_any_any"``], METIS_TAC [type_subst_ok_thm]), - ([``"JTinst_any_tuple"``, ``"JTinst_any_ctor"``], - SRW_TAC [] [EVERY_MEM, MAP_MAP] THEN - Q.EXISTS_TAC `MAP (\x. (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) (FST x), - idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) (SND x))) - t_t'_list` THEN - SRW_TAC [] [MAP_MAP] THEN FULL_SIMP_TAC list_ss [MEM_MAP] THEN - METIS_TAC [type_subst_ok_thm, EVERY_MEM])]); - -local - -val lem1 = Q.prove ( -`!E' E1 E2 E1'. (E'++(E1++[EB_tv]++E2) = E1'++[EB_tv]++E2) = (E1' = E'++E1)`, -METIS_TAC [APPEND_ASSOC, APPEND_11]); - -val lem2 = Q.prove ( -`!l f g. num_tv (MAP (\z. EB_vn (f z) (g z)) l) = 0`, -METIS_TAC [MAP_REVERSE, value_env_num_tv_thm, value_env_map_thm]); - -val lem3 = Q.prove ( -`!S S' n. (shiftTsig n 1 S = shiftTsig n 1 S') = (S = S')`, -Induct THEN FULL_SIMP_TAC list_ss [shiftTsig_def, LAMBDA_PROD2] THEN1 METIS_TAC [] THEN -Cases_on `S''` THEN SRW_TAC [] [] THEN EQ_TAC THEN SRW_TAC [] [] THEN -Cases_on `h` THEN Cases_on `h'` THEN FULL_SIMP_TAC list_ss [shiftt_11]); - -val lem4 = Q.prove ( -`!l n tl f g. idxsubnE n tl (MAP (\z. EB_vn (f z) (g z)) l) = - MAP (\z. EB_vn (f z) (idxsubnts n (MAP (shiftt 0 n) tl) (g z))) l`, -Induct THEN SRW_TAC [] [idxsubnE_def, idxsubnEB_def, lem2]); - -val lem5 = SIMP_RULE list_ss [EVERY_MAP] (Q.prove ( -`!l f. EVERY value_env (MAP f l) = value_env (FLAT (MAP f l))`, -METIS_TAC [value_env_def, value_env_append_thm, EVERY_FLAT])); - -val lem6 = Q.prove ( -`!l f n t_list. EVERY (\x. value_env (f x)) l ==> - (idxsubnE n t_list (FLAT (MAP f l)) = FLAT (MAP (\x. idxsubnE n t_list (f x)) l))`, -Induct THEN SRW_TAC [] [idxsubnE_append_thm, idxsubnE_def] THEN -FULL_SIMP_TAC list_ss [lem5, value_env_num_tv_thm]); - -val lem7 = Q.prove ( -`!E' E1 E2 E1'. (EB_tv::(E1++[EB_tv]++E2) = E1'++[EB_tv]++E2) = (E1' = EB_tv::E1)`, -METIS_TAC [APPEND_ASSOC, APPEND_11, APPEND]); - -val lem8 = Q.prove ( -`!S S' n. (shiftTsig 0 1 (shiftTsig n 1 S) = shiftTsig (n + 1) 1 S') = (S' = shiftTsig 0 1 S)`, -Induct THEN FULL_SIMP_TAC list_ss [shiftTsig_def, LAMBDA_PROD2] THEN -Cases_on `S''` THEN SRW_TAC [] [] THEN EQ_TAC THEN SRW_TAC [] [] THENL -[Cases_on `h` THEN Cases_on `h'` THEN - FULL_SIMP_TAC list_ss [shiftt_11, - (GSYM o SIMP_RULE list_ss [] o Q.SPECL [`r'`, `n`, `0`, `1`] o hd o CONJUNCTS) - shiftt_com_lem], - METIS_TAC[shiftt_com_lem, ADD, ADD_0]]); - -val lem9 = Q.prove ( -`!E n t_list. value_env E ==> - (idxsubnE n t_list E = MAP (\EB. idxsubnEB n (MAP (shiftt 0 n) t_list) EB) E)`, -Induct_on `E` THEN SRW_TAC [] [value_env_def, idxsubnE_def] THEN Cases_on `h` THEN -FULL_SIMP_TAC (srw_ss()) [value_env_def, idxsubnE_def] THEN IMP_RES_TAC value_env_num_tv_thm -THEN FULL_SIMP_TAC (srw_ss()) []); - - -in - -val type_subst_pat_thm = Q.prove ( -`!S' E' p t E''. JTpat S' E' p t E'' ==> - !S E1 t_list. (S' = shiftTsig (num_tv E1) 1 S) /\ (E' = E1++[EB_tv]++E2) /\ - EVERY (tkind E2) t_list ==> - JTpat S (idxsubnE 0 t_list E1++E2) p - (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t) - (idxsubnE (num_tv E1) t_list E'')`, -RULE_INDUCT_TAC JTpat_sind [JTpat_fun] -[([``"JTpat_var"``], - SRW_TAC [ARITH_ss] [idxsubnE_def, idxsubnEB_def, idxsubnts_def, num_tv_def, MAP_MAP, - shift_idxsubn_com_thm] THEN - METIS_TAC [type_subst_ok_thm]), - ([``"JTpat_any"``, ``"JTpat_constant"``, ``"JTpat_construct_any"``], - SRW_TAC [] [idxsubnE_def] THEN METIS_TAC [type_subst_const_thm, type_subst_ok_thm, type_subst_constr_p_thm]), - ([``"JTpat_alias"``], - SRW_TAC [ARITH_ss] [idxsubnE_def, idxsubnEB_def, idxsubnts_def, num_tv_def, MAP_MAP, - shift_idxsubn_com_thm, GSYM shiftt_add_thm, domEB_def, idxsubnE_dom_thm] THEN - IMP_RES_TAC pat_env_lem THEN SRW_TAC [] [value_env_num_tv_thm]), - ([``"JTpat_typed"``], - SRW_TAC [] [] THEN - `idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) - (substs_typevar_typexpr (shiftTsig (num_tv E1) 1 S) src_t) = - substs_typevar_typexpr S src_t` by - (IMP_RES_TAC ftv_lem1 THEN IMP_RES_TAC ftv_lem2 THEN - SRW_TAC [] [idxsubn_subst_com_lem, EVERY_MAP, shiftTsig_def, LAMBDA_PROD2, - MAP_MAP, sub_shiftt_thm2, MAP_I, src_t_idxsubn_thm]) THEN - METIS_TAC [type_subst_inst_any_thm, type_subst_teq_thm]), - ([``"JTpat_construct"``], - SRW_TAC [] [] THEN - Q.EXISTS_TAC `MAP (\(p, E, t). (p, idxsubnE (num_tv E1) t_list E, - idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t)) - pattern_E_t_list` THEN - FULL_SIMP_TAC list_ss [LAMBDA_PROD2, ELIM_UNCURRY, EVERY_MAP, MAP_REVERSE, REVERSE_FLAT, MAP_FLAT, - MAP_MAP, ETA_THM, idxsubnE_dom_thm] THEN - SRW_TAC [] [] THENL - [FULL_SIMP_TAC list_ss [GSYM MAP_REVERSE] THEN HO_MATCH_MP_TAC lem6 THEN - FULL_SIMP_TAC list_ss [EVERY_MEM] THEN SRW_TAC [] [] THEN METIS_TAC [pat_env_lem], - IMP_RES_TAC type_subst_constr_p_thm THEN FULL_SIMP_TAC list_ss [MAP_MAP], - FULL_SIMP_TAC list_ss [EVERY_MEM]]), - ([``"JTpat_tuple"``], - SRW_TAC [] [] THEN - Q.EXISTS_TAC `MAP (\(p, t, E). (p, idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t, - idxsubnE (num_tv E1) t_list E)) - pattern_t_E_list` THEN - FULL_SIMP_TAC list_ss [LAMBDA_PROD2, ELIM_UNCURRY, EVERY_MAP, MAP_REVERSE, REVERSE_FLAT, MAP_FLAT, - MAP_MAP, ETA_THM, idxsubnE_dom_thm, idxsubn_def] THEN - SRW_TAC [] [] THENL - [FULL_SIMP_TAC list_ss [GSYM MAP_REVERSE] THEN HO_MATCH_MP_TAC lem6 THEN - FULL_SIMP_TAC list_ss [EVERY_MEM] THEN SRW_TAC [] [] THEN METIS_TAC [pat_env_lem], - FULL_SIMP_TAC list_ss [EVERY_MEM]]), - ([``"JTpat_record"``], - SRW_TAC [] [] THEN - Q.EXISTS_TAC `MAP (\(fn, p, E, t). (fn, p, idxsubnE (num_tv E1) t_list E, - idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t)) - field_name_pattern_E_t_list` THEN - FULL_SIMP_TAC list_ss [LAMBDA_PROD2, ELIM_UNCURRY, EVERY_MAP, MAP_REVERSE, REVERSE_FLAT, MAP_FLAT, - MAP_MAP, ETA_THM, idxsubnE_dom_thm] THEN - SRW_TAC [] [] THENL - [FULL_SIMP_TAC list_ss [GSYM MAP_REVERSE] THEN HO_MATCH_MP_TAC lem6 THEN - FULL_SIMP_TAC list_ss [EVERY_MEM] THEN SRW_TAC [] [] THEN METIS_TAC [pat_env_lem], - FULL_SIMP_TAC list_ss [EVERY_MEM], - FULL_SIMP_TAC list_ss [EVERY_MEM] THEN SRW_TAC [] [] THEN RES_TAC THEN - IMP_RES_TAC type_subst_field_thm THEN FULL_SIMP_TAC list_ss [EVERY_MEM, MAP_MAP]]), - ([``"JTpat_cons"``], - SRW_TAC [] [idxsubnE_append_thm, idxsubn_def] THEN IMP_RES_TAC pat_env_lem THEN - SRW_TAC [] [value_env_num_tv_thm] THEN METIS_TAC [idxsubnE_dom_thm]), - ([``"JTpat_or"``], - SRW_TAC [] [] THEN IMP_RES_TAC pat_env_lem THEN FULL_SIMP_TAC (srw_ss()) [lem9] THEN - METIS_TAC [PERM_MAP])]); - -val type_subst_lem = Q.prove ( -`(!S' E' e t. JTe S' E' e t ==> - !S E1 t_list. (S' = shiftTsig (num_tv E1) 1 S) /\ (E' = E1++[EB_tv]++E2) /\ - EVERY (tkind E2) t_list ==> - JTe S (idxsubnE 0 t_list E1++E2) e (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t)) /\ - (!S' E' pm t1 t2. JTpat_matching S' E' pm t1 t2 ==> - !S E1 t_list. (S' = shiftTsig (num_tv E1) 1 S) /\ (E' = E1++[EB_tv]++E2) /\ - EVERY (tkind E2) t_list ==> - JTpat_matching S (idxsubnE 0 t_list E1++E2) pm - (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t1) - (idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t2)) /\ - (!S' E' lb E''. JTlet_binding S' E' lb E'' ==> - !S E1 t_list. (S' = shiftTsig (num_tv E1) 1 S) /\ (E' = E1++[EB_tv]++E2) /\ - EVERY (tkind E2) t_list ==> - JTlet_binding S (idxsubnE 0 t_list E1++E2) lb (idxsubnE (num_tv E1) t_list E'')) /\ - (!S' E' lrbs E''. JTletrec_binding S' E' lrbs E'' ==> - !S E1 t_list. (S' = shiftTsig (num_tv E1) 1 S) /\ (E' = E1++[EB_tv]++E2) /\ - EVERY (tkind E2) t_list ==> - JTletrec_binding S (idxsubnE 0 t_list E1++E2) lrbs (idxsubnE (num_tv E1) t_list E''))`, -RULE_INDUCT_TAC JTe_ind [JTe_fun] -[([``"JTe_cons"``, ``"JTe_apply"``, ``"JTe_and"``, ``"JTe_or"``, ``"JTe_ifthenelse"``, ``"JTe_while"``, - ``"JTe_sequence"``, ``"JTe_match"``, ``"JTe_function"``, ``"JTe_try"``, ``"JTe_assert"``], - SRW_TAC [] [idxsubn_def] THEN IMP_RES_TAC type_subst_teq_thm THEN - FULL_SIMP_TAC (srw_ss()) [idxsubn_def] THEN - METIS_TAC [type_subst_ok_thm]), - ([``"JTe_uprim"``, ``"JTe_bprim"``, ``"JTe_ident"``, ``"JTe_constant"``], - METIS_TAC [type_subst_uprim_thm, type_subst_bprim_thm, type_subst_vn_thm, type_subst_const_thm, - type_subst_teq_thm]), - ([``"JTe_typed"``], - SRW_TAC [] [] THEN - `idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) - (substs_typevar_typexpr (shiftTsig (num_tv E1) 1 S) src_t) = - substs_typevar_typexpr S src_t` by - (IMP_RES_TAC ftv_lem1 THEN IMP_RES_TAC ftv_lem2 THEN - SRW_TAC [] [idxsubn_subst_com_lem, EVERY_MAP, shiftTsig_def, LAMBDA_PROD2, - MAP_MAP, sub_shiftt_thm2, MAP_I, src_t_idxsubn_thm]) THEN - METIS_TAC [type_subst_inst_any_thm, type_subst_teq_thm]), - ([``"JTe_tuple"``], - SRW_TAC [] [idxsubn_def, MAP_MAP] THEN - Q.EXISTS_TAC `MAP (\(e, t). (e, idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t)) e_t_list` THEN - SRW_TAC [] [MAP_MAP, LAMBDA_PROD2, ETA_THM, EVERY_MAP] THEN - FULL_SIMP_TAC list_ss [EVERY_MEM] THEN IMP_RES_TAC type_subst_teq_thm THEN - FULL_SIMP_TAC (srw_ss()) [idxsubn_def, MAP_MAP, EVERY_MEM]), - ([``"JTe_construct"``], - SRW_TAC [] [idxsubn_def, MAP_MAP] THEN - Q.EXISTS_TAC `MAP (\(e, t). (e, idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t)) - e_t_list` THEN - SRW_TAC [] [MAP_MAP, LAMBDA_PROD2, ETA_THM, EVERY_MAP] THEN - FULL_SIMP_TAC list_ss [EVERY_MEM] THEN IMP_RES_TAC type_subst_constr_p_thm THEN - IMP_RES_TAC type_subst_teq_thm THEN - FULL_SIMP_TAC list_ss [EVERY_MEM, MAP_MAP] THEN METIS_TAC []), - ([``"JTe_record_constr"``], - SRW_TAC [] [idxsubn_def, MAP_MAP] THEN - MAP_EVERY Q.EXISTS_TAC [`field_name'_list`, - `MAP (\a. idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) a) t'_list`, - `MAP (\(fn, e, t). (fn, e, idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t)) - field_name_e_t_list`, `typeconstr_name`, `kind`] THEN - SRW_TAC [] [MAP_MAP, LAMBDA_PROD2, EVERY_MAP, ETA_THM] THEN - IMP_RES_TAC type_subst_lookup_thm THEN IMP_RES_TAC type_subst_teq_thm THEN - SRW_TAC [] [idxsubnEB_def] THEN - FULL_SIMP_TAC list_ss [EVERY_MEM] THEN SRW_TAC [] [GSYM idxsubn_def] THEN - MATCH_MP_TAC type_subst_field_thm THEN METIS_TAC [EVERY_MEM]), - ([``"JTe_record_with"``], - SRW_TAC [] [] THEN - MAP_EVERY Q.EXISTS_TAC [`MAP (\(fn, e, t). - (fn, e, idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t)) - field_name_e_t_list`, - `idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t''`] THEN - SRW_TAC [] [MAP_MAP, LAMBDA_PROD2, EVERY_MAP] THEN - FULL_SIMP_TAC list_ss [EVERY_MEM] THEN SRW_TAC [] [GSYM idxsubn_def] THEN - IMP_RES_TAC type_subst_teq_thm THEN FULL_SIMP_TAC (srw_ss()) [idxsubnEB_def, EVERY_MEM] THEN - MATCH_MP_TAC type_subst_field_thm THEN METIS_TAC [EVERY_MEM]), - ([``"JTe_record_proj"``], - SRW_TAC [] [] THEN METIS_TAC [type_subst_field_thm, type_subst_teq_thm]), - ([``"JTe_assertfalse"``], - SRW_TAC [] [idxsubn_def] THEN METIS_TAC [type_subst_ok_thm, type_subst_teq_thm]), - ([``"JTe_location"``], - SRW_TAC [] [idxsubn_def] THEN IMP_RES_TAC type_subst_lookup_thm THEN SRW_TAC [] [idxsubnEB_def] THEN1 - METIS_TAC [type_subst_ok_thm] THEN IMP_RES_TAC type_subst_teq_thm THEN - FULL_SIMP_TAC (srw_ss ()) [idxsubn_def]), - ([``"JTe_for"``], - SRW_TAC [] [idxsubn_def, shiftt_def] THEN FULL_SIMP_TAC list_ss [shiftt_def] THENL - [Q.PAT_ASSUM `!S' E1' t_list. P S' E1' t_list ==> - JTe S' (idxsubnE 0 t_list E1' ++ E2) e'' (TE_constr [] TC_unit)` - (MATCH_MP_TAC o - SIMP_RULE list_ss [idxsubnE_def, idxsubnEB_def, idxsubnts_def, idxsubn_def] o - Q.SPECL [`S`, `EB_vn (VN_id lowercase_ident) (TS_forall (TE_constr [] TC_int))::E1`]) THEN - SRW_TAC [] [num_tv_def], - IMP_RES_TAC type_subst_teq_thm THEN FULL_SIMP_TAC (srw_ss()) [idxsubn_def]]), - ([``"JTpat_matching_pm"``], - SRW_TAC [] [] THEN - Q.EXISTS_TAC `MAP (\(p, e, E). (p, e, idxsubnE (num_tv E1) t_list E)) pattern_e_E_list` THEN - SRW_TAC [] [MAP_MAP, LAMBDA_PROD2, EVERY_MAP] THEN - FULL_SIMP_TAC list_ss [lem1, EVERY_MEM, num_tv_append_thm] THEN SRW_TAC [] [] THEN RES_TAC THEN - IMP_RES_TAC pat_env_lem THEN FULL_SIMP_TAC list_ss [value_env_num_tv_thm, lem3] THEN - IMP_RES_TAC (SIMP_RULE list_ss [EVERY_MEM] type_subst_pat_thm) THEN - FULL_SIMP_TAC list_ss [idxsubnE_append_thm] THEN METIS_TAC []), - ([``"JTlet_binding_poly"``], - SRW_TAC [] [] THEN - MAP_EVERY Q.EXISTS_TAC [`MAP (\(x, t). (x, idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t)) - x_t_list`, - `idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t`] THEN - FULL_SIMP_TAC list_ss [lem3] THEN - SRW_TAC [ARITH_ss] [MAP_MAP, LAMBDA_PROD2, GSYM MAP_REVERSE, lem4, idxsubnts_def, - shift_idxsubn_com_thm] THEN - IMP_RES_TAC type_subst_pat_thm THEN - FULL_SIMP_TAC list_ss [lem1, lem3, GSYM MAP_REVERSE, shift_idxsubn_com_thm, lem4, idxsubnts_def, - MAP_MAP, shiftt_add_thm]), - ([``"JTe_let_mono"``], - SRW_TAC [] [GSYM LEFT_EXISTS_AND_THM, GSYM MAP_REVERSE] THEN - FULL_SIMP_TAC list_ss [lem1, lem2, lem3, lem4, num_tv_append_thm, idxsubnE_append_thm, - idxsubnts_def, MAP_MAP, GSYM shiftt_add_thm] THEN - RES_TAC THEN DISJ1_TAC THEN - MAP_EVERY Q.EXISTS_TAC [`MAP (\(x, t). (x, idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t)) - x_t_list`, - `x_t_list'`, `t'`] THEN - SRW_TAC [ARITH_ss] [GSYM MAP_REVERSE, MAP_MAP, LAMBDA_PROD2, shift_idxsubn_com_thm, - GSYM shiftt_add_thm] THEN - METIS_TAC []), - ([``"JTe_let_poly"``], - SRW_TAC [] [GSYM LEFT_EXISTS_AND_THM, GSYM MAP_REVERSE] THEN - FULL_SIMP_TAC list_ss [lem1, lem2, lem3, lem4, num_tv_append_thm, idxsubnE_append_thm, num_tv_def, - idxsubnts_def, MAP_MAP_o, GSYM shiftt_add_thm, lem7, lem8, - idxsubnE_def, idxsubnEB_def] THEN - RES_TAC THEN DISJ2_TAC THEN - MAP_EVERY Q.EXISTS_TAC [`MAP (\(x, t). (x, idxsubn (num_tv E1 + 1) (MAP (shiftt 0 (num_tv E1 + 1)) - t_list) t)) - x_t_list`, - `x_t_list'`, `t'`] THEN - SRW_TAC [ARITH_ss] [GSYM MAP_REVERSE, MAP_MAP_o, o_DEF, LAMBDA_PROD2, shift_idxsubn_com_thm, - GSYM shiftt_add_thm]), - ([``"JTe_letrec"``], - SRW_TAC [] [GSYM MAP_REVERSE] THEN - FULL_SIMP_TAC list_ss [lem1, lem2, lem3, lem4, num_tv_append_thm, idxsubnE_append_thm, num_tv_def, - idxsubnts_def, MAP_MAP_o, o_DEF, GSYM shiftt_add_thm, lem7, lem8, - idxsubnE_def, idxsubnEB_def] THEN - RES_TAC THEN - Q.EXISTS_TAC `MAP (\(x, t). (x, idxsubn (num_tv E1 + 1) (MAP (shiftt 0 (num_tv E1 + 1)) t_list) t)) - x_t_list` THEN - SRW_TAC [ARITH_ss] [GSYM MAP_REVERSE, MAP_MAP_o, o_DEF, LAMBDA_PROD2, shift_idxsubn_com_thm, - GSYM shiftt_add_thm]), - ([``"JTletrec_binding_equal_function"``], - SRW_TAC [] [] THEN - FULL_SIMP_TAC list_ss [lem1, lem2, lem3, lem4, GSYM MAP_REVERSE, num_tv_append_thm, - idxsubnE_append_thm] THEN - Q.EXISTS_TAC `MAP (\(vn, pm, t, t'). (vn, pm, idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t, - idxsubn (num_tv E1) (MAP (shiftt 0 (num_tv E1)) t_list) t')) - value_name_pattern_matching_t_t'_list` THEN - SRW_TAC [ARITH_ss] [LAMBDA_PROD2, MAP_MAP, GSYM MAP_REVERSE, EVERY_MAP, shiftt_def, - shift_idxsubn_com_thm, GSYM shiftt_add_thm, idxsubnts_def, idxsubn_def] THEN - FULL_SIMP_TAC list_ss [EVERY_MEM] THEN SRW_TAC [] [] THEN RES_TAC THEN - FULL_SIMP_TAC list_ss [LAMBDA_PROD2, MAP_MAP, GSYM MAP_REVERSE, EVERY_MAP, shiftt_def, - shift_idxsubn_com_thm, GSYM shiftt_add_thm, idxsubnts_def, idxsubn_def])]); - -end; - -val type_subst_thm = save_thm ("type_subst_thm", -(GEN_ALL o - SIMP_RULE list_ss [num_tv_def, idxsubnE_def, shiftt_add_thm, AND_IMP_INTRO] o - Q.SPECL [`e`, `t`, `S`, `[]`, `t_list`] o - SIMP_RULE list_ss [GSYM RIGHT_FORALL_IMP_THM] o hd o CONJUNCTS) type_subst_lem); - -val _ = export_theory(); - diff --git a/vendors/ott/examples/ocaml_light/hol/type_substsScript.sml b/vendors/ott/examples/ocaml_light/hol/type_substsScript.sml deleted file mode 100644 index 1347702e8553..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/type_substsScript.sml +++ /dev/null @@ -1,31 +0,0 @@ -open bossLib HolKernel boolLib listTheory; -open ottTheory caml_typedefTheory; -open basicTheory utilTheory; - -val _ = new_theory "type_substs"; - -val substs_tv_empty_thm = Q.store_thm ("substs_tv_empty_thm", -`(!t. substs_typevar_typexpr [] t = t) /\ - (!tl. MAP (substs_typevar_typexpr []) tl = tl)`, -Induct THEN SRW_TAC [] [substs_typevar_typexpr_def, list_assoc_def] THEN METIS_TAC []); - -val substs_typevar_typexpr_drop_lem = Q.store_thm ("substs_typevar_typexpr_drop_lem", -`!subst t tv t'. ~MEM tv (ftv_typexpr t) ==> - (substs_typevar_typexpr ((tv, t')::subst) t = substs_typevar_typexpr subst t)`, -recInduct substs_typevar_typexpr_ind THEN -SRW_TAC [] [substs_typevar_typexpr_def, ftv_typexpr_def, list_assoc_def, MAP_EQ, MEM_FLAT, EVERY_MAP, - EVERY_MEM]); - - - -val substs_typevar_typexpr_id_lem = Q.store_thm ("substs_typevar_typexpr_id_lem", -`!subst t. (ftv_typexpr t = []) ==> (substs_typevar_typexpr subst t = t)`, -recInduct substs_typevar_typexpr_ind THEN -SRW_TAC [] [substs_typevar_typexpr_def, ftv_typexpr_def] THEN -Induct_on `typexpr_list` THEN SRW_TAC [] []); - - - - -val _ = export_theory (); - diff --git a/vendors/ott/examples/ocaml_light/hol/utilScript.sml b/vendors/ott/examples/ocaml_light/hol/utilScript.sml deleted file mode 100644 index 2694d09662f3..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/utilScript.sml +++ /dev/null @@ -1,378 +0,0 @@ -open HolKernel boolLib bossLib listTheory sortingTheory combinTheory wordsTheory pairTheory optionTheory; -open rich_listTheory; -open ottTheory; - -val _ = new_theory "util"; - -val LAMBDA_PROD2 = Q.store_thm ("LAMBDA_PROD2", -`(\(x,y). P x y) = (\z. P (FST z) (SND z))`, -RW_TAC list_ss [FUN_EQ_THM] THEN Cases_on `z` THEN RW_TAC list_ss []); - -val MAP_I = Q.store_thm ("MAP_I", -`!l. MAP (\x. x) l = l`, -Induct THEN RW_TAC list_ss []); - -val MAP_MAP = save_thm ("MAP_MAP", SIMP_RULE list_ss [o_DEF] MAP_MAP_o); - -val DISJOINT_def = Define -`(DISJOINT [] l = T) /\ - (DISJOINT (h::l1) l2 = ~(MEM h l2) /\ DISJOINT l1 l2)`; - -val DISJOINT_RIGHT = Q.store_thm ("DISJOINT_RIGHT", -`!l1 h l2. (DISJOINT l1 [] = T) /\ - (DISJOINT l1 (h::l2) = ~(MEM h l1) /\ DISJOINT l1 l2)`, -Induct THEN RW_TAC list_ss [DISJOINT_def] THEN METIS_TAC []); - -val DISJOINT_APPEND = Q.store_thm ("DISJOINT_APPEND", -`(!l1 l2 l3. DISJOINT (l1++l2) l3 = DISJOINT l1 l3 /\ DISJOINT l2 l3) /\ - (!l1 l2 l3. DISJOINT l1 (l2++l3) = DISJOINT l1 l2 /\ DISJOINT l1 l3)`, -STRIP_TAC THEN Induct THEN RW_TAC list_ss [DISJOINT_def] THEN METIS_TAC []); - -val DISJOINT_MEM = Q.store_thm ("DISJOINT_MEM", -`!l1 l2. DISJOINT l1 l2 = EVERY (\y. ~MEM y l2) l1`, -Induct THEN RW_TAC list_ss [DISJOINT_def]); - -val DISJOINT_REVERSE = Q.store_thm ("DISJOINT_REVERSE", -`!l1 l2. DISJOINT l1 l2 = DISJOINT (REVERSE l1) l2`, -Induct THEN RW_TAC list_ss [DISJOINT_def, DISJOINT_APPEND] THEN METIS_TAC []); - -val ALL_DISTINCT_APPEND = Q.store_thm ("ALL_DISTINCT_APPEND", -`!l1 l2. ALL_DISTINCT (l1++l2) = - ALL_DISTINCT l1 /\ ALL_DISTINCT l2 /\ DISJOINT l1 l2`, -Induct THEN RW_TAC list_ss [DISJOINT_def] THEN EQ_TAC THEN RW_TAC list_ss [EVERY_CONJ, EVERY_MEM]); - -val COND_EXPAND_EQ = Q.store_thm ("COND_EXPAND_EQ", -`!b t1 t2 v. ((if b then t1 else t2) = v) = (b /\ (t1 = v)) \/ (~b /\ (t2 = v))`, -METIS_TAC []); - -val MAP2_MAP = Q.store_thm ("MAP2_MAP", -`!l1 l2 f g h. (LENGTH l1 = LENGTH l2) ==> - (MAP2 f (MAP g l1) (MAP h l2) = MAP2 (\x y. f (g x) (h y)) l1 l2)`, -Induct THEN Cases_on `l2` THEN RW_TAC list_ss []); - -val MAP2_ELIM = Q.store_thm ("MAP2_ELIM", -`!l f. MAP2 (\x y. f x y) l l = MAP (\x. f x x) l`, -Induct THEN RW_TAC list_ss []); - -val MAP_EQ = Q.store_thm ("MAP_EQ", -`!l f g. (MAP f l = MAP g l) = !a. MEM a l ==> (f a = g a)`, -Induct THEN RW_TAC list_ss [] THEN METIS_TAC []); - -val MAP_MAP2 = Q.store_thm ("MAP_MAP2", -`!l1 l2 f g. (LENGTH l1 = LENGTH l2) ==> (MAP f (MAP2 g l1 l2) = MAP2 (\x y. f (g x y)) l1 l2)`, -Induct THEN Cases_on `l2` THEN RW_TAC list_ss []); - -val MAP2_IGNORE = Q.store_thm ("MAP2_IGNORE", -`(!l1 l2 f. (LENGTH l1 = LENGTH l2) ==> (MAP2 (\x y. f x) l1 l2 = MAP f l1)) /\ - (!l1 l2 f. (LENGTH l1 = LENGTH l2) ==> (MAP2 (\x y. f y) l1 l2 = MAP f l2))`, -CONJ_TAC THEN Induct THEN Cases_on `l2` THEN RW_TAC list_ss []); - -val MAP2_LENGTH = Q.store_thm ("MAP2_LENGTH", -`!l1 l2 f. (LENGTH l1 = LENGTH l2) ==> (LENGTH (MAP2 f l1 l2) = LENGTH l1)`, -Induct THEN Cases_on `l2` THEN RW_TAC list_ss []); - -val EVERY_MAP2 = Q.store_thm ("EVERY_MAP2", -`!l1 l2 f g. (LENGTH l1 = LENGTH l2) ==> - (EVERY f (MAP2 g l1 l2) = EVERY (\x. x) (MAP2 (\x y. f (g x y)) l1 l2))`, -Induct THEN Cases_on `l2` THEN RW_TAC list_ss []); - -val LENGTH_NIL_ALT = Q.store_thm ("LENGTH_NIL_ALT", -`!l. (0 = LENGTH l) = (l = [])`, -METIS_TAC [LENGTH_NIL]); - -val LENGTH_1 = Q.store_thm ("LENGTH_1", -`!l. (1 = LENGTH l) = (?x. l = [x])`, -Induct THEN RW_TAC list_ss [LENGTH_NIL]); - -val EXTEND_PERM = Q.store_thm ("EXTEND_PERM", -`!l1 l2. PERM l1 l2 ==> !l3. (LENGTH l3 = LENGTH l1) ==> - ?l4. (LENGTH l2 = LENGTH l4) /\ PERM l3 l4 /\ PERM (ZIP (l1, l3)) (ZIP (l2, l4))`, -HO_MATCH_MP_TAC PERM_IND THEN RW_TAC list_ss [LENGTH_NIL] THENL -[Q.EXISTS_TAC `[]` THEN RW_TAC list_ss [PERM_REFL], - Cases_on `l3` THEN FULL_SIMP_TAC list_ss [] THEN RES_TAC THEN Q.EXISTS_TAC `h::l4` THEN - RW_TAC list_ss [PERM_CONS_IFF], - Cases_on `l3` THEN FULL_SIMP_TAC list_ss [] THEN Cases_on `t` THEN FULL_SIMP_TAC list_ss [] THEN - RES_TAC THEN Q.EXISTS_TAC `h'::h::l4` THEN RW_TAC list_ss [PERM_SWAP_AT_FRONT], - METIS_TAC [PERM_TRANS, PERM_LENGTH]]); - -val PERM_MAP = Q.store_thm ("PERM_MAP", -`!l1 l2. PERM l1 l2 ==> !f. PERM (MAP f l1) (MAP f l2)`, -HO_MATCH_MP_TAC PERM_IND THEN RW_TAC list_ss [PERM_REFL, PERM_CONS_IFF, PERM_SWAP_AT_FRONT] THEN - METIS_TAC [PERM_TRANS]); - -val ZIP_MAP_ID = Q.store_thm ("ZIP_MAP_ID", -`!l. ZIP (MAP FST l, MAP SND l) = l`, -Induct THEN RW_TAC list_ss []); - -val MAP3_def = Define -`(MAP3 f [] [] [] = []) /\ - (MAP3 f (h1::t1) (h2::t2) (h3::t3) = f h1 h2 h3 :: MAP3 f t1 t2 t3)`; - -val MAP_MAP3 = Q.store_thm ("MAP_MAP3", -`!l1 l2 l3 f g. (LENGTH l1 = LENGTH l2) /\ (LENGTH l2 = LENGTH l3) ==> - (MAP f (MAP3 g l1 l2 l3) = MAP3 (\x y z. f (g x y z)) l1 l2 l3)`, -Induct THEN Cases_on `l2` THEN Cases_on `l3` THEN RW_TAC list_ss [MAP3_def]); - -val EVERY_MAP3 = Q.store_thm ("EVERY_MAP3", -`!l1 l2 l3 f g. (LENGTH l1 = LENGTH l2) /\ (LENGTH l2 = LENGTH l3) ==> - (EVERY f (MAP3 g l1 l2 l3) = EVERY (\x. x) (MAP3 (\x y z. f (g x y z)) l1 l2 l3))`, -Induct THEN Cases_on `l2` THEN Cases_on `l3` THEN RW_TAC list_ss [MAP3_def]); - -val MAP3_IGNORE = Q.store_thm ("MAP3_IGNORE", -`(!l1 l2 l3 f. (LENGTH l1 = LENGTH l2) /\ (LENGTH l2 = LENGTH l3) ==> - (MAP3 (\x y z. f x y) l1 l2 l3 = MAP2 f l1 l2)) /\ - (!l1 l2 l3 f. (LENGTH l1 = LENGTH l2) /\ (LENGTH l2 = LENGTH l3) ==> - (MAP3 (\x y z. f y z) l1 l2 l3 = MAP2 f l2 l3)) /\ - (!l1 l2 l3 f. (LENGTH l1 = LENGTH l2) /\ (LENGTH l2 = LENGTH l3) ==> - (MAP3 (\x y z. f x z) l1 l2 l3 = MAP2 f l1 l3))`, -REPEAT CONJ_TAC THEN Induct THEN Cases_on `l2` THEN Cases_on `l3` THEN RW_TAC list_ss [MAP3_def]); - - -val MEM_FLAT = Q.store_thm ("MEM_FLAT", -`!l x. MEM x (FLAT l) = EXISTS (\l'. MEM x l') l`, -Induct THEN RW_TAC list_ss []); - - -val label_def = Define -`label x = T`; - -val EXISTS_REVERSE = Q.store_thm ("EXISTS_REVERSE", -`!l P. EXISTS P (REVERSE l) = EXISTS P l`, -RW_TAC list_ss [MEM_REVERSE, EXISTS_MEM]); - -val EVERY_REVERSE = Q.store_thm ("EVERY_REVERSE", -`!l P. EVERY P (REVERSE l) = EVERY P l`, -RW_TAC list_ss [MEM_REVERSE, EVERY_MEM]); - -val REVERSE_EQ_SYM_IMP = Q.prove ( -`!l1 l2. (REVERSE l1 = l2) ==> (l1 = REVERSE l2)`, -RW_TAC list_ss [] THEN METIS_TAC [REVERSE_REVERSE]); - -val REVERSE_EQ_SYM = Q.store_thm ("REVERSE_EQ_SYM", -`!l1 l2. (REVERSE l1 = l2) = (l1 = REVERSE l2)`, -METIS_TAC [REVERSE_EQ_SYM_IMP]); - -val EXISTS_FIRST_SPLIT = Q.store_thm ("EXISTS_FIRST_SPLIT", -`!l P. EXISTS P l ==> ?l1 l2 y. (l = l1 ++ [y] ++ l2) /\ ~EXISTS P l1 /\ P y`, -Induct THEN RW_TAC list_ss [] THEN FULL_SIMP_TAC list_ss [o_DEF] THENL -[MAP_EVERY Q.EXISTS_TAC [`[]`, `l`, `h`] THEN RW_TAC list_ss [], - Cases_on `P h` THEN RW_TAC list_ss [] THEN1 - (MAP_EVERY Q.EXISTS_TAC [`[]`, `l`, `h`] THEN RW_TAC list_ss []) THEN - RES_TAC THEN MAP_EVERY Q.EXISTS_TAC [`h::l1`, `l2`, `y`] THEN RW_TAC list_ss []]); - -val EXISTS_LAST_SPLIT = Q.store_thm ("EXISTS_LAST_SPLIT", -`!l P. EXISTS P l ==> ?l1 l2 y. (l = l1 ++ [y] ++ l2) /\ ~EXISTS P l2 /\ P y`, -RW_TAC list_ss [o_DEF] THEN -`?l1 l2 y. (REVERSE l = l1 ++ [y] ++ l2) /\ ~EXISTS P l1 /\ P y` by - METIS_TAC [EXISTS_REVERSE, EXISTS_FIRST_SPLIT] THEN -FULL_SIMP_TAC list_ss [REVERSE_EQ_SYM, REVERSE_APPEND, o_DEF] THEN -MAP_EVERY Q.EXISTS_TAC [`REVERSE l2`, `REVERSE l1`, `y`] THEN RW_TAC list_ss [EVERY_REVERSE] THEN -METIS_TAC [APPEND, APPEND_ASSOC]); - -val MAP_11_EQ = Q.store_thm ("MAP_11_EQ", -`!l1 l2 f g h. (!x x'. (f x = f x') = (x = x')) ==> - ((MAP (\x. f (g x)) l1 = MAP (\x. f (h x)) l2) = - (MAP (\x. g x) l1 = MAP (\x. h x) l2))`, -Induct THEN Cases_on `l2` THEN RW_TAC list_ss []); - -val MAP_11_ALL_DISTINCT = Q.store_thm ("MAP_11_ALL_DISTINCT", -`!l f g. (!x x'. (f x = f x') = (x = x')) ==> - (ALL_DISTINCT (MAP (\x. f (g x)) l) = ALL_DISTINCT (MAP g l))`, -Induct THEN RW_TAC list_ss [MEM_MAP]); - -val MAP_11_ALL_DISTINCT2 = Q.store_thm ("MAP_11_ALL_DISTINCT2", -`!l f. (!x x'. (f x = f x') = (x = x')) ==> - (ALL_DISTINCT (MAP f l) = ALL_DISTINCT l)`, -Induct THEN RW_TAC list_ss [MEM_MAP]); - -val MAP_FST_SND_EQ = Q.store_thm ("MAP_FST_SND_EQ", -`!l1 l2. ((MAP FST l1 = MAP FST l2) /\ (MAP SND l1 = MAP SND l2)) = (l1 = l2)`, -Induct THEN Cases_on `l2` THEN RW_TAC list_ss [] THEN Cases_on `h` THEN Cases_on `h'` THEN -RW_TAC list_ss [] THEN METIS_TAC []); - -val MAP_ZIP_SAME = Q.store_thm ("MAP_ZIP_SAME", -`!l f. MAP (\x. f (FST x) (SND x)) (ZIP (l, l)) = MAP (\x. f x x) l`, -Induct THEN RW_TAC list_ss []); - -val PERM_ALL_DISTINCT = Q.store_thm ("PERM_ALL_DISTINCT", -`!l1 l2. PERM l1 l2 ==> (ALL_DISTINCT l1 = ALL_DISTINCT l2)`, -RW_TAC list_ss [PERM_DEF, ALL_DISTINCT_FILTER] THEN -EQ_TAC THEN RW_TAC list_ss [] THEN -`!x. MEM x (FILTER ($= x) l1) = MEM x (FILTER ($= x) l2)` by METIS_TAC [] THEN -FULL_SIMP_TAC list_ss [MEM_FILTER]); - -local - -val lem1 = Q.prove ( -`!l1 l2. PERM l1 l2 ==> - ALL_DISTINCT (MAP FST l1) ==> - PERM l1 l2 /\ !x. list_assoc x l1 = list_assoc x l2`, -HO_MATCH_MP_TAC PERM_IND THEN -RW_TAC list_ss [PERM_REFL, PERM_MONO, PERM_SWAP_AT_FRONT, PERM_TRANS] THENL -[Cases_on `x` THEN RW_TAC list_ss [list_assoc_def], - Cases_on `x` THEN Cases_on `y` THEN RW_TAC list_ss [list_assoc_def] THEN FULL_SIMP_TAC list_ss [], - METIS_TAC [PERM_ALL_DISTINCT, PERM_MAP, PERM_TRANS], - METIS_TAC [PERM_ALL_DISTINCT, PERM_MAP, PERM_TRANS]]); - -val lem2 = Q.prove ( -`!l1 l2. ALL_DISTINCT (MAP FST l1) /\ ALL_DISTINCT (MAP FST l2) /\ - (!x. list_assoc x l1 = list_assoc x l2) ==> - PERM l1 l2`, -Induct THEN RW_TAC list_ss [list_assoc_def, PERM_CONS_EQ_APPEND] THENL -[Cases_on `l2` THEN RW_TAC list_ss [PERM_REFL] THEN Cases_on `h` THEN - FULL_SIMP_TAC list_ss [list_assoc_def] THEN METIS_TAC [NOT_SOME_NONE], - Cases_on `h` THEN FULL_SIMP_TAC list_ss [list_assoc_def] THEN - `?l3 l4. (l2 = l3++(q,r)::l4) /\ ~MEM q (MAP FST l3)` by METIS_TAC [list_assoc_split] THEN - MAP_EVERY Q.EXISTS_TAC [`l3`, `l4`] THEN RW_TAC list_ss [] THEN - FULL_SIMP_TAC list_ss [ALL_DISTINCT_APPEND, DISJOINT_RIGHT, list_assoc_append, list_assoc_def] THEN - Q.PAT_ASSUM `!l2'. P l2' ==> PERM l1 l2'` MATCH_MP_TAC THEN - RW_TAC list_ss [ALL_DISTINCT_APPEND, list_assoc_append] THEN - Cases_on `x = q` THEN RW_TAC list_ss [not_mem_list_assoc] THEN METIS_TAC []]); -in - -val PERM_list_assoc = Q.store_thm ("PERM_list_assoc", -`!l1 l2. ALL_DISTINCT (MAP FST l1) /\ ALL_DISTINCT (MAP FST l2) ==> - (PERM l1 l2 = (!x. list_assoc x l1 = list_assoc x l2))`, -METIS_TAC [lem1, lem2]); - -end; - -val MAP_split = Q.store_thm ("MAP_split", -`!l1 l2 l3 f. (l1++l2 = MAP f l3) = ?l4 l5. (l3 = l4++l5) /\ (l1 = MAP f l4) /\ (l2 = MAP f l5)`, -Induct THEN RW_TAC list_ss [] THEN Cases_on `l3` THEN RW_TAC list_ss [] THEN EQ_TAC THEN -RW_TAC list_ss [] THENL -[MAP_EVERY Q.EXISTS_TAC [`h'::l4`, `l5`] THEN RW_TAC list_ss [], - Cases_on `l4` THEN FULL_SIMP_TAC list_ss [], - Cases_on `l4` THEN FULL_SIMP_TAC list_ss [] THEN METIS_TAC []]); - -val MAP_pair = Q.store_thm ("MAP_pair", -`!l1 l2 f g h i. (MAP (\x. (f x, g x)) l1 = MAP (\x. (h x, i x)) l2) = - (MAP f l1 = MAP h l2) /\ (MAP g l1 = MAP i l2)`, -Induct THEN Cases_on `l2` THEN RW_TAC list_ss [] THEN METIS_TAC []); - -val ZIP_APPEND = Q.store_thm ("ZIP_APPEND", -`!l1 l2 l3 l4. (LENGTH l1 = LENGTH l3) /\ (LENGTH l2 = LENGTH l4) ==> - (ZIP (l1++l2, l3++l4) = ZIP (l1, l3) ++ ZIP (l2, l4))`, -Induct THEN RW_TAC list_ss [] THEN Cases_on `l3` THEN FULL_SIMP_TAC list_ss []); - -local - -val lem1 = Q.prove ( -`!l1 l2 l3 l4. (LENGTH l1 = LENGTH l3) ==> - ((l1++l2 = l3++l4) = (l1 = l3) /\ (l2 = l4))`, -Induct THEN RW_TAC list_ss [] THEN Cases_on `l3` THEN FULL_SIMP_TAC list_ss [] THEN METIS_TAC []); - -val lem2 = Q.prove ( -`!l1 l2 l3 l4. (LENGTH l2 = LENGTH l4) /\ (l1++l2 = l3++l4) ==> (LENGTH l1 = LENGTH l3)`, -RW_TAC list_ss [] THEN `LENGTH (l1++l2) = LENGTH (l3++l4)` by METIS_TAC [] THEN -FULL_SIMP_TAC list_ss [LENGTH_APPEND]); - -in - -val APPEND_LENGTH_11 = Q.store_thm ("APPEND_LENGTH_11", -`!l1 l2 l3 l4. (LENGTH l1 = LENGTH l3) \/ (LENGTH l2 = LENGTH l4) ==> - ((l1++l2 = l3++l4) = (l1 = l3) /\ (l2 = l4))`, -METIS_TAC [lem1, lem2]); - -end; - -val REVERSE_EQ = Q.store_thm ("REVERSE_EQ", -`!l1 l2. (REVERSE l1 = REVERSE l2) = (l1 = l2)`, -Induct THEN RW_TAC list_ss [] THEN Cases_on `l2` THEN FULL_SIMP_TAC list_ss [] THEN -METIS_TAC [APPEND_LENGTH_11, LENGTH, list_11]); - -val NOT_MEM_EMPTY = Q.store_thm ("NOT_MEM_EMPTY", -`!l. (!x. ~MEM x l) = (l = [])`, -Induct THEN RW_TAC list_ss [] THEN METIS_TAC []); - -val FLAT_MAP_SING = Q.store_thm ("FLAT_MAP_SING", -`!l f. FLAT (MAP (\x. [f x]) l) = MAP f l`, -Induct THEN RW_TAC list_ss []); - -val EVERY_FILTER = Q.store_thm ("EVERY_FILTER", -`!l f g. EVERY f l ==> EVERY f (FILTER g l)`, -METIS_TAC [EVERY_MEM, MEM_FILTER]); - -val FLAT_EQ_EMPTY = Q.store_thm ("FLAT_EQ_EMPTY", -`!l. (FLAT l = []) = EVERY (\x. x = []) l`, -Induct THEN RW_TAC list_ss []); - -val ALL_DISTINCT_REVERSE = Q.store_thm ("ALL_DISTINCT_REVERSE", -`!l. ALL_DISTINCT (REVERSE l) = ALL_DISTINCT l`, -Induct THEN RW_TAC list_ss [ALL_DISTINCT_APPEND, DISJOINT_RIGHT] THEN METIS_TAC []); - -val DISTINCT_INJ = Q.store_thm ("DISTINCT_INJ", -`!l i j. ALL_DISTINCT l ==> i < LENGTH l /\ j < LENGTH l ==> (EL i l = EL j l) ==> (i = j)`, -Induct THEN RW_TAC list_ss [] THEN Cases_on `i` THEN Cases_on `j` THEN RW_TAC list_ss [] THEN -FULL_SIMP_TAC list_ss [] THEN METIS_TAC [MEM_EL]); - -val MAP_FST_ZIP = Q.store_thm ("MAP_FST_ZIP", -`!l1 l2. (LENGTH l1 = LENGTH l2) ==> (MAP FST (ZIP (l1, l2)) = l1)`, -Induct THEN RW_TAC list_ss [] THEN Cases_on `l2` THEN FULL_SIMP_TAC list_ss []); - -val MAP_SND_ZIP = Q.store_thm ("MAP_SND_ZIP", -`!l1 l2. (LENGTH l1 = LENGTH l2) ==> (MAP SND (ZIP (l1, l2)) = l2)`, -Induct THEN RW_TAC list_ss [] THEN Cases_on `l2` THEN FULL_SIMP_TAC list_ss []); - -val MEM_SPLIT = Q.store_thm ("MEM_SPLIT", -`!l x. MEM x (MAP FST l) = ?l1 l2 y. l = l1 ++ [(x,y)] ++ l2`, -Induct THEN SRW_TAC [] [] THEN Cases_on `h` THEN SRW_TAC [] [] THEN -EQ_TAC THEN SRW_TAC [] [] THEN1 METIS_TAC [APPEND] THEN1 -METIS_TAC [APPEND] THEN Cases_on `l1` THEN FULL_SIMP_TAC list_ss [] THEN -METIS_TAC []); - -val FIRSTN_EL_LASTN = Q.store_thm ("FIRSTN_EL_LASTN", -`!tl n. (n < LENGTH tl) ==> (tl = FIRSTN n tl ++ [EL n tl] ++ LASTN (LENGTH tl - (n + 1)) tl)`, -Induct THEN SRW_TAC [] [LASTN_CONS, LASTN_LENGTH_ID] THEN Cases_on `n` THEN -FULL_SIMP_TAC (srw_ss()) [FIRSTN] THEN SRW_TAC [ARITH_ss] [arithmeticTheory.ADD1] THEN -`LENGTH tl - (n' + 1) <= LENGTH tl` by DECIDE_TAC THEN METIS_TAC [APPEND, LASTN_APPEND2]); - -val REMOVE_1_def = Define -`(REMOVE_1 v [] = NONE) /\ - (REMOVE_1 v (h::t) = - if h = v then - SOME t - else - OPTION_MAP (\x. h::x) (REMOVE_1 v t))`; - -val REMOVE_1_NONE = Q.store_thm ("REMOVE_1_NONE", -`!l v. (REMOVE_1 v l = NONE) = ~MEM v l`, -Induct THEN SRW_TAC [] [REMOVE_1_def]); - -val REMOVE_1_SOME = Q.store_thm ("REMOVE_1_SOME", -`!l v l'. (REMOVE_1 v l = SOME l') = - ?l1 l2. ~MEM v l1 /\ (l' = l1 ++ l2) /\ (l = l1++v::l2)`, -Induct THEN SRW_TAC [] [REMOVE_1_def] THEN EQ_TAC THEN SRW_TAC [] [] THENL -[MAP_EVERY Q.EXISTS_TAC [`[]`, `l`] THEN SRW_TAC [] [], - Cases_on `l1` THEN FULL_SIMP_TAC list_ss [], - MAP_EVERY Q.EXISTS_TAC [`h::l1`, `l2`] THEN SRW_TAC [] [], - Cases_on `l1` THEN FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THEN METIS_TAC []]); - -local - -(* Copied from sortingScript.sml *) -val FILTER_EQ_CONS_APPEND = Q.prove -(`!M N x. FILTER ($= x) M ++ x::N = x::FILTER ($= x) M ++ N`, - Induct THEN SRW_TAC [][]); - -in - -val PERM_EVAL = Q.store_thm ("PERM_EVAL", -`(PERM [] l = (l = [])) /\ - (PERM (h::t) l = - case (REMOVE_1 h l) of - NONE -> F - || SOME l' -> PERM t l')`, -SRW_TAC [] [PERM_NIL, PERM_CONS_EQ_APPEND] THEN -Cases_on `REMOVE_1 h l` THEN FULL_SIMP_TAC list_ss [REMOVE_1_NONE, REMOVE_1_SOME] THEN1 -METIS_TAC [MEM_APPEND, MEM] THEN EQ_TAC THEN SRW_TAC [] [] THENL -[FULL_SIMP_TAC list_ss [PERM_DEF] THEN SRW_TAC [] [] THEN - `FILTER ($= x) (l1 ++ h::l2) = FILTER ($= x) (M ++ h::N)` by METIS_TAC [] THEN - FULL_SIMP_TAC list_ss [FILTER_APPEND, FILTER] THEN Cases_on `x=h` THEN - FULL_SIMP_TAC list_ss [FILTER_EQ_CONS_APPEND], - METIS_TAC []]); - -end; - - -val _ = export_theory (); diff --git a/vendors/ott/examples/ocaml_light/hol/validScript.sml b/vendors/ott/examples/ocaml_light/hol/validScript.sml deleted file mode 100644 index 490203902fbc..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/validScript.sml +++ /dev/null @@ -1,229 +0,0 @@ -open bossLib HolKernel boolLib combinTheory listTheory rich_listTheory optionTheory pairTheory; -open ottTheory ottLib caml_typedefTheory; -open utilTheory shiftTheory basicTheory environmentTheory shiftTheory type_substsTheory; - -val _ = new_theory "valid"; - -local - -val lem1 = Q.prove ( -`!EB E. Eok (EB::E) ==> EBok E EB`, -Cases_on `EB` THEN SRW_TAC [] [EBok_def, Eok_def] THENL -[Cases_on `t`, - Cases_on `t` THEN Cases_on `t0` THEN Cases_on `l` THEN Cases_on `t1`, - Cases_on `t`, - Cases_on `t`] THEN -FULL_SIMP_TAC list_ss [EBok_def, Eok_def, EVERY_MEM] THEN METIS_TAC []); - - -val lem2 = Q.prove ( -`!EB E. Eok (EB::E) ==> EBok (EB::E) EB`, -SRW_TAC [] [] THEN Cases_on `EB = EB_tv` THEN SRW_TAC [] [Eok_def, EBok_def] THEN -METIS_TAC [lem1, weak_EBok_thm, APPEND, MEM]); - -in - -val lookup_ok_thm = Q.store_thm ("lookup_ok_thm", -`!E name EB. Eok E /\ (lookup E name = SOME EB) ==> EBok E EB`, -Induct THEN SRW_TAC [] [lookup_def, shiftEB_add_thm] THENL -[METIS_TAC [lem2], - `EBok E EB2` by METIS_TAC [APPEND, ok_ok_thm] THEN Cases_on `h` THEN - FULL_SIMP_TAC list_ss [domEB_def, name_distinct] THEN - METIS_TAC [weak_one_tv_EBok_thm, APPEND, shiftE_def, num_tv_def], - METIS_TAC [APPEND, ok_ok_thm, weak_EBok_thm, domEB_def, MEM]]); - -end; - - -local - -val lem1 = Q.prove ( -`!l1 l2. MEM (a,b) l1 /\ (MAP FST l1 = MAP FST l2) ==> ?c. MEM (a,c) l2`, -Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN FULL_SIMP_TAC list_ss [] THEN Cases_on `h` THEN -SRW_TAC [] [] THEN METIS_TAC []); - -in - -val tvar_subst_ok_lem = Q.store_thm ("tvar_subst_ok_lem", -`!v_t_list t v_t_list'. EVERY (\v_t. tkind E (SND v_t)) (REVERSE v_t_list) /\ - (MAP FST v_t_list = MAP FST v_t_list') /\ - tkind E (substs_typevar_typexpr v_t_list' t) ==> - tkind E (substs_typevar_typexpr v_t_list t)`, -recInduct substs_typevar_typexpr_ind THEN -SRW_TAC [] [EVERY_MAP, substs_typevar_typexpr_def, Eok_def, EVERY_MEM] THEN1 -(Cases_on `list_assoc typevar sub` THEN SRW_TAC [] [Eok_def] THEN IMP_RES_TAC list_assoc_mem THEN - IMP_RES_TAC list_assoc_not_mem THENL - [Cases_on `list_assoc typevar v_t_list'` THEN FULL_SIMP_TAC list_ss [Eok_def] THEN - IMP_RES_TAC list_assoc_mem THEN METIS_TAC [lem1], - METIS_TAC [SND]]) -THEN METIS_TAC []); - -end; - - -val teq_ok_thm = Q.store_thm ("teq_ok_thm", -`!E t1 t2. JTeq E t1 t2 ==> tkind E t1 /\ tkind E t2`, -RULE_INDUCT_TAC JTeq_ind [Eok_def, EVERY_CONJ, EVERY_MAP] -[([``"JTeq_expand"``], - SRW_TAC [] [] THENL - [MATCH_MP_TAC tvar_subst_ok_lem THEN - SRW_TAC [] [EVERY_REVERSE, EVERY_MAP, MAP_MAP] THEN IMP_RES_TAC lookup_ok_thm THEN - FULL_SIMP_TAC (srw_ss()) [EBok_def, Eok_def, MAP_MAP, tp_to_tv_def] THEN - Q.EXISTS_TAC `MAP (\z. (SND z, TE_constr [] TC_unit)) t_typevar_list` THEN - SRW_TAC [] [MAP_MAP], - CCONTR_TAC THEN FULL_SIMP_TAC (srw_ss()) [o_DEF] THEN - IMP_RES_TAC lookup_ok_thm THEN FULL_SIMP_TAC (srw_ss()) [EBok_def, - Eok_def, MAP_MAP, tp_to_tv_def]])]); - -val inst_named_ok_thm = Q.store_thm ("inst_named_ok_thm", -`!E t tps t'. JTinst_named E t (TPS_nary tps) t' ==> tkind E t /\ ntsok E tps t'`, -SRW_TAC [] [JTinst_named_cases] THEN -FULL_SIMP_TAC list_ss [Eok_def, MAP_MAP, GSYM MAP_REVERSE, tp_to_tv_def] THEN -MATCH_MP_TAC tvar_subst_ok_lem THEN Q.EXISTS_TAC `MAP (\z. (FST z,TE_constr [] TC_unit)) typevar_t_list` THEN -SRW_TAC [] [EVERY_REVERSE, MAP_MAP] THEN METIS_TAC []); - -val idxsub_ok_lem = Q.store_thm ("idxsub_ok_lem", -`!t_list t E. EVERY (tkind E) t_list /\ tkind (EB_tv::E) t ==> tkind E (idxsub t_list t)`, -HO_MATCH_MP_TAC idxsub_ind THEN -SRW_TAC [] [idxsub_def, Eok_def, EVERY_MAP, EVERY_MEM, idx_bound_def, - GSYM arithmeticTheory.ADD1] THEN1 METIS_TAC [MEM_EL] THEN -Cases_on `tcn` THEN FULL_SIMP_TAC list_ss [Eok_def] THEN Cases_on `Eok E` THEN -FULL_SIMP_TAC list_ss [lookup_def, domEB_def, name_distinct] THEN -Cases_on `lookup E (name_tcn t')` THEN FULL_SIMP_TAC list_ss [] THEN -IMP_RES_TAC lookup_name_thm THEN SRW_TAC [] [] THEN -FULL_SIMP_TAC list_ss [shiftEB_def, environment_binding_case_def]); - -val inst_ok_thm = Q.store_thm ("inst_ok_thm", -`!E t ts. JTinst E t ts ==> tkind E t /\ tsok E ts`, -SRW_TAC [] [JTinst_cases] THEN -FULL_SIMP_TAC list_ss [Eok_def, MAP_MAP, GSYM MAP_REVERSE, tp_to_tv_def] THEN -METIS_TAC [idxsub_ok_lem]); - -val prim_vn_constr_c_ok_thm = Q.store_thm ("prim_vn_constr_c_ok_thm", -`(!E unary_prim t. JTuprim E unary_prim t ==> tkind E t) /\ - (!E binary_prim t. JTbprim E binary_prim t ==> tkind E t) /\ - (!E vp t. JTvalue_name E vp t ==> tkind E t) /\ - (!E constr t. JTconstr_c E constr t ==> tkind E t)`, -SRW_TAC [] [JTuprim_cases, JTbprim_cases, JTconstr_c_cases, JTvalue_name_cases] THEN -SRW_TAC [] [Eok_def] THEN METIS_TAC [ok_ok_thm, inst_ok_thm]); - -val const_ok_thm = Q.store_thm ("const_ok_thm", -`(!E const t. JTconst E const t ==> tkind E t)`, -SRW_TAC [] [JTconst_cases] THEN -SRW_TAC [] [Eok_def] THEN METIS_TAC [ok_ok_thm, prim_vn_constr_c_ok_thm]); - -val field_constr_p_ok_thm = Q.store_thm ("field_constr_p_ok_thm", -`(!E fn t1 t2. JTfield E fn t1 t2 ==> tkind E t1 /\ tkind E t2) /\ - (!E constr tlist t. JTconstr_p E constr tlist t ==> EVERY (tkind E) tlist /\ tkind E t)`, -SRW_TAC [] [JTfield_cases, JTconstr_p_cases] THEN -IMP_RES_TAC inst_named_ok_thm THEN -FULL_SIMP_TAC list_ss [Eok_def, EVERY_MAP] THEN -METIS_TAC [ok_ok_thm]); - -val pat_ok_thm = Q.store_thm ("pat_ok_thm", -`!S E pat t E'. JTpat S E pat t E' ==> tkind E t`, -RULE_INDUCT_TAC JTpat_ind [Eok_def, EVERY_MAP, EVERY_CONJ, ELIM_UNCURRY, domEB_def] -[([``"JTpat_record"``], Cases_on `field_name_pattern_E_t_list` THEN FULL_SIMP_TAC list_ss [] THEN - METIS_TAC [field_constr_p_ok_thm])] -THEN -METIS_TAC [ok_ok_thm, prim_vn_constr_c_ok_thm, const_ok_thm, field_constr_p_ok_thm]); - -local - -val lem1 = Q.prove ( -`!vn ts. ~(EB_vn vn ts = EB_tv)`, FULL_SIMP_TAC list_ss [environment_binding_distinct]); - -val lem2 = Q.prove ( -`!E t k. tkind E t ==> tkind (EB_tv::E) (shiftt 0 1 t)`, -METIS_TAC [weak_one_tv_ok_thm, APPEND, shiftE_def, num_tv_def]); - -val lem3 = Q.prove ( -`!E1 E2. value_env E1 ==> tkind E2 t /\ Eok (E1++E2) ==> tkind (E1++E2) t`, -Induct THEN SRW_TAC [] [value_env_def] THEN Cases_on `h` THEN -FULL_SIMP_TAC list_ss [value_env_def] THEN `Eok (E1++E2)` by METIS_TAC [ok_ok_thm, APPEND] THEN -METIS_TAC [lem1, weak_ok_thm, APPEND, MEM]); - -val lem4 = Q.prove ( -`!E2 E1 E3. value_env E2 ==> tsok (E1++E3) ts /\ Eok (E1++E2++E3) ==> tsok (E1++E2++E3) ts`, -Induct THEN SRW_TAC [] [value_env_def] THEN Cases_on `h` THEN FULL_SIMP_TAC list_ss [value_env_def] THEN -`Eok (E1++E2++E3)` by METIS_TAC [value_env_ok_str_thm, value_env_def, APPEND, APPEND_ASSOC] THEN -METIS_TAC [lem1, weak_ok_thm, APPEND, APPEND_ASSOC, MEM]); - -val lem5 = Q.prove ( -`!l. EVERY value_env l ==> value_env (FLAT l)`, -Induct THEN SRW_TAC [] [value_env_def, value_env_append_thm]); - -val lem6 = Q.prove ( -`!l. Eok E /\ EVERY (\x. Eok (x ++ E)) l /\ EVERY value_env l ==> Eok (FLAT l ++ E)`, -Induct THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [] THEN Induct_on `h` THEN -SRW_TAC [] [] THEN Cases_on `h'` THEN FULL_SIMP_TAC list_ss [value_env_def, Eok_def] THEN -METIS_TAC [ok_ok_thm, lem4, lem5]); - -in - -val pat_ok_thm2 = Q.store_thm ("pat_ok_thm2", -`!S E pat t E'. JTpat S E pat t E' ==> Eok (E'++E)`, -RULE_INDUCT_TAC JTpat_sind [Eok_def, EVERY_MAP, EVERY_CONJ, ELIM_UNCURRY, domEB_def] -[([``"JTpat_var"``], METIS_TAC [lem2]), - ([``"JTpat_any"``, ``"JTpat_constant"``, ``"JTpat_construct_any"``], - METIS_TAC [ok_ok_thm, const_ok_thm, field_constr_p_ok_thm]), - ([``"JTpat_alias"``], METIS_TAC [lem2, lem3, pat_env_lem, APPEND, pat_ok_thm]), - ([``"JTpat_construct"``], - SRW_TAC [] [] THEN MATCH_MP_TAC lem6 THEN SRW_TAC [] [EVERY_REVERSE, EVERY_MAP] THEN1 - METIS_TAC [field_constr_p_ok_thm, ok_ok_thm] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN - METIS_TAC [pat_env_lem]), - ([``"JTpat_tuple"``], - SRW_TAC [] [] THEN MATCH_MP_TAC lem6 THEN SRW_TAC [] [EVERY_REVERSE, EVERY_MAP] THENL - [Cases_on `pattern_t_E_list` THEN FULL_SIMP_TAC list_ss [] THEN METIS_TAC [pat_ok_thm, ok_ok_thm], - FULL_SIMP_TAC list_ss [EVERY_MEM] THEN METIS_TAC [pat_env_lem]]), - ([``"JTpat_record"``], - SRW_TAC [] [] THEN MATCH_MP_TAC lem6 THEN SRW_TAC [] [EVERY_REVERSE, EVERY_MAP] THENL - [Cases_on `field_name_pattern_E_t_list` THEN FULL_SIMP_TAC list_ss [] THEN - METIS_TAC [field_constr_p_ok_thm, ok_ok_thm], - FULL_SIMP_TAC list_ss [EVERY_MEM] THEN METIS_TAC [pat_env_lem]]), - ([``"JTpat_cons"``], - SRW_TAC [] [] THEN MATCH_MP_TAC (SIMP_RULE list_ss [] (Q.SPEC `[E''; E']` lem6)) THEN - METIS_TAC [pat_env_lem, ok_ok_thm])]); - -end; - -local - -val lem1 = Q.prove ( -`!l f g. value_env (MAP (\z. EB_vn (f z) (g z)) l)`, -Induct THEN SRW_TAC [] [value_env_def]); - -in - -val ok_thm = Q.prove ( -`(!S E e t. JTe S E e t ==> tkind E t) /\ - (!S E pm t1 t2. JTpat_matching S E pm t1 t2 ==> tkind E t1 /\ tkind E t2) /\ - (!S E lb E'. JTlet_binding S E lb E' ==> T) /\ - (!S E lrb E'. JTletrec_binding S E lrb E' ==> T)`, -RULE_INDUCT_TAC JTe_ind [Eok_def, EVERY_MAP] -[([``"JTe_uprim"``, ``"JTe_bprim"``, ``"JTe_ident"``, ``"JTe_constant"``, ``"JTe_construct"``, - ``"JTe_record_proj"``, ``"JTe_tuple"``, ``"JTe_cons"``, ``"JTe_and"``, ``"JTe_or"``, ``"JTe_while"``, - ``"JTe_for"``, ``"JTe_assert"``, ``"JTe_location"``, ``"JTe_record_with"``, ``"JTe_function"``], - METIS_TAC [prim_vn_constr_c_ok_thm, const_ok_thm, field_constr_p_ok_thm, pat_ok_thm, teq_ok_thm]), - ([``"JTe_record_constr"``], - SRW_TAC [] [] THEN METIS_TAC [teq_ok_thm]), - (* - Cases_on `field_name_e_t_list` THEN FULL_SIMP_TAC list_ss [] THEN IMP_RES_TAC field_constr_p_ok_thm THEN - FULL_SIMP_TAC list_ss [Eok_def, COND_EXPAND_EQ] THEN - Cases_on `lookup E (name_tcn typeconstr_name)` THEN FULL_SIMP_TAC list_ss [option_case_def] THEN - IMP_RES_TAC lookup_name_thm THEN - FULL_SIMP_TAC list_ss [environment_binding_case_def, environment_binding_distinct, - environment_binding_11] THEN METIS_TAC [ok_ok_thm]), - *) - ([``"JTe_let_mono"``, ``"JTe_let_poly"``, ``"JTe_letrec"``], - METIS_TAC [lem1, value_env_ok_str_thm, APPEND, MAP_REVERSE]), - ([``"JTpat_matching_pm"``], Cases_on `pattern_e_E_list` THEN FULL_SIMP_TAC list_ss [] THEN - METIS_TAC [pat_ok_thm, pat_env_lem, value_env_ok_str_thm, APPEND])]); - -val _ = save_thm ("ok_thm", ok_thm); - -end; - - -val _ = export_theory (); - diff --git a/vendors/ott/examples/ocaml_light/hol/weakenScript.sml b/vendors/ott/examples/ocaml_light/hol/weakenScript.sml deleted file mode 100644 index b2747ac7eb96..000000000000 --- a/vendors/ott/examples/ocaml_light/hol/weakenScript.sml +++ /dev/null @@ -1,830 +0,0 @@ -open bossLib HolKernel boolLib listTheory rich_listTheory optionTheory combinTheory arithmeticTheory pairTheory; -open ottTheory ottLib caml_typedefTheory; -open utilTheory basicTheory shiftTheory environmentTheory validTheory type_substsTheory; - -val _ = Parse.hide "S"; - -val _ = new_theory "weaken"; - -val idxsub_shift_thm = Q.prove ( -`!t_list t n. shiftt n 1 (idxsub t_list t) = - idxsub (MAP (\t. shiftt n 1 t) t_list) (shiftt (n + 1) 1 t)`, -HO_MATCH_MP_TAC idxsub_ind THEN -SRW_TAC [ARITH_ss] [idxsub_def, shiftt_def, EL_MAP, ADD1, MAP_MAP, MAP_EQ] THEN -SRW_TAC [] [GSYM ADD1, idxsub_def, DECIDE ``!x:num.x + 2 = SUC (x + 1)``]); - - -val weak_one_tv_teq_thm = Q.store_thm ("weak_one_tv_teq_thm", -`!E t1 t2. JTeq E t1 t2 ==> (E = E1++E2) ==> - JTeq (shiftE 0 1 E1++[EB_tv]++E2) (shiftt (num_tv E1) 1 t1) (shiftt (num_tv E1) 1 t2)`, -RULE_INDUCT_TAC JTeq_ind [shiftt_def] -[([``"JTeq_refl"``], METIS_TAC [weak_one_tv_ok_thm, JTeq_rules]), - ([``"JTeq_sym"``], METIS_TAC [JTeq_rules]), - ([``"JTeq_trans"``], METIS_TAC [JTeq_rules]), - ([``"JTeq_arrow"``], METIS_TAC [JTeq_rules]), - ([``"JTeq_tuple"``], - SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [Once JTeq_cases] THEN NTAC 3 DISJ2_TAC THEN - Q.EXISTS_TAC `MAP (\(x,y). (shiftt (num_tv E1) 1 x, shiftt (num_tv E1) 1 y)) - t_t'_list` THEN - SRW_TAC [] [MAP_MAP, LAMBDA_PROD2, EVERY_MAP]), - ([``"JTeq_constr"``], - SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [Once JTeq_cases] THEN NTAC 4 DISJ2_TAC THEN - Q.EXISTS_TAC `MAP (\(x,y). (shiftt (num_tv E1) 1 x, shiftt (num_tv E1) 1 y)) - t_t'_list` THEN - SRW_TAC [] [MAP_MAP, LAMBDA_PROD2, EVERY_MAP, weak_one_tv_ok_thm]), - ([``"JTeq_expand"``], - SRW_TAC [] [] THEN SRW_TAC [] [Once JTeq_cases, MAP_MAP] THEN NTAC 3 DISJ2_TAC THEN DISJ1_TAC THEN - IMP_RES_TAC weak_one_tv_lookup_thm THEN FULL_SIMP_TAC (srw_ss()) [shiftEB_def] THEN - Q.EXISTS_TAC `MAP (\(x,y). (shiftt (num_tv E1) 1 x, y)) t_typevar_list` THEN - SRW_TAC [] [MAP_MAP, LAMBDA_PROD2, EVERY_MAP] THENL - [SRW_TAC [] [subst_shiftt_com_lem, MAP_MAP], - METIS_TAC [weak_one_tv_ok_thm], - POP_ASSUM (K ALL_TAC) THEN Q.PAT_ASSUM `lookup x y = z` (K ALL_TAC) THEN - Induct_on `t_typevar_list` THEN SRW_TAC [] [] THEN METIS_TAC [weak_one_tv_ok_thm]])]); - -val weak_one_tv_inst_thm = Q.prove ( -`!E1 E2 t ts. JTinst (E1++E2) t ts ==> - JTinst (shiftE 0 1 E1++[EB_tv]++E2) (shiftt (num_tv E1) 1 t) (shiftts (num_tv E1) 1 ts)`, -SRW_TAC [] [JTinst_cases] THEN SRW_TAC [] [shiftts_def, Eok_def] THEN -Q.EXISTS_TAC `MAP (\t. shiftt (num_tv E1) 1 t) t_list` THEN SRW_TAC [] [Eok_def, EVERY_MAP] THEN -FULL_SIMP_TAC list_ss [EVERY_MEM, Eok_def, idxsub_shift_thm] THENL -[FULL_SIMP_TAC std_ss [GSYM APPEND] THEN IMP_RES_TAC weak_one_tv_ok_thm THEN - FULL_SIMP_TAC list_ss [num_tv_def, shiftE_def, shiftEB_def], - METIS_TAC [weak_one_tv_ok_thm]]); - -val weak_one_tv_inst_named_thm = Q.prove ( -`!E1 E2 t tpo t'. JTinst_named (E1++E2) t tpo t' ==> - JTinst_named (shiftE 0 1 E1++[EB_tv]++E2) (shiftt (num_tv E1) 1 t) tpo - (shiftt (num_tv E1) 1 t')`, -SRW_TAC [] [JTinst_named_cases] THEN -Q.EXISTS_TAC `MAP (\(tv, t). (tv, shiftt (num_tv E1) 1 t)) typevar_t_list` THEN -SRW_TAC [] [MAP_MAP, LAMBDA_PROD2, weak_one_tv_ok_thm, subst_shiftt_com_lem, EVERY_MAP] THEN -FULL_SIMP_TAC list_ss [EVERY_MEM, weak_one_tv_ok_thm]); - -val weak_one_tv_uprim_thm = Q.prove ( -`!E1 E2 uprim t. JTuprim (E1++E2) uprim t ==> - JTuprim (shiftE 0 1 E1++[EB_tv]++E2) uprim (shiftt (num_tv E1) 1 t)`, -SRW_TAC [] [JTuprim_cases, shiftt_def] THEN METIS_TAC [weak_one_tv_ok_thm]); - -val weak_one_tv_bprim_thm = Q.prove ( -`!E1 E2 bprim t. JTbprim (E1++E2) bprim t ==> - JTbprim (shiftE 0 1 E1++[EB_tv]++E2) bprim (shiftt (num_tv E1) 1 t)`, -SRW_TAC [] [JTbprim_cases, shiftt_def] THEN METIS_TAC [weak_one_tv_ok_thm]); - -val weak_one_tv_val_name_thm = Q.prove ( -`!E1 E2 vn t. JTvalue_name (E1++E2) vn t ==> - JTvalue_name (shiftE 0 1 E1++[EB_tv]++E2) vn (shiftt (num_tv E1) 1 t)`, -SRW_TAC [] [JTvalue_name_cases] THEN IMP_RES_TAC weak_one_tv_lookup_thm THEN -SRW_TAC [] [shiftEB_def, weak_one_tv_inst_thm]); - -val weak_on_tv_constr_c_thm = Q.prove ( -`!E1 E2 constr t. JTconstr_c (E1++E2) constr t ==> - JTconstr_c (shiftE 0 1 E1++[EB_tv]++E2) constr (shiftt (num_tv E1) 1 t)`, -SRW_TAC [] [JTconstr_c_cases, shiftt_def, weak_one_tv_ok_thm, EVERY_MAP] THEN -IMP_RES_TAC weak_one_tv_lookup_thm THEN SRW_TAC [] [shiftEB_def] THEN -FULL_SIMP_TAC list_ss [EVERY_MEM, weak_one_tv_ok_thm]); - -val weak_one_tv_const_thm = Q.prove ( -`!E1 E2 const t. JTconst (E1++E2) const t ==> - JTconst (shiftE 0 1 E1++[EB_tv]++E2) const (shiftt (num_tv E1) 1 t)`, -SRW_TAC [] [JTconst_cases, shiftt_def, weak_one_tv_ok_thm, weak_on_tv_constr_c_thm]); - -val weak_one_tv_constr_p_thm = Q.prove ( -`!E1 E2 constr tl t. JTconstr_p (E1++E2) constr tl t ==> - JTconstr_p (shiftE 0 1 E1++[EB_tv]++E2) constr (MAP (shiftt (num_tv E1) 1) tl) - (shiftt (num_tv E1) 1 t)`, -SRW_TAC [] [JTconstr_p_cases, shiftt_def, weak_one_tv_ok_thm] THEN IMP_RES_TAC weak_one_tv_lookup_thm THEN -SRW_TAC [] [shiftEB_def, shifttes_def] THEN -MAP_EVERY Q.EXISTS_TAC [`MAP (\(t, t'). (shiftt (num_tv E1) 1 t, shiftt (num_tv E1) 1 t')) t'_t_list`, - `MAP (\(t, tv). (shiftt (num_tv E1) 1 t, tv)) t''_tv_list`] THEN -SRW_TAC [] [MAP_MAP, LAMBDA_PROD2] THEN IMP_RES_TAC weak_one_tv_inst_named_thm THEN -FULL_SIMP_TAC list_ss [shiftt_def, MAP_MAP]); - -val weak_one_tv_field_thm = Q.prove ( -`!E1 E2 fn t t'. JTfield (E1++E2) fn t t' ==> - JTfield (shiftE 0 1 E1++[EB_tv]++E2) fn (shiftt (num_tv E1) 1 t) - (shiftt (num_tv E1) 1 t')`, -SRW_TAC [] [JTfield_cases] THEN IMP_RES_TAC weak_one_tv_lookup_thm THEN -SRW_TAC [] [shiftEB_def, shifttes_def] THEN -MAP_EVERY Q.EXISTS_TAC [`MAP (\(t, tv). (shiftt (num_tv E1) 1 t, tv)) t'_tv_list`] THEN -SRW_TAC [] [MAP_MAP, LAMBDA_PROD2] THEN IMP_RES_TAC weak_one_tv_inst_named_thm THEN -FULL_SIMP_TAC list_ss [shiftt_def, MAP_MAP, shiftt_def]); - -val weak_one_tv_inst_any_thm = Q.prove ( -`!E t t'. JTinst_any E t t' ==> !E1 E2. (E = E1++E2) ==> - JTinst_any (shiftE 0 1 E1++[EB_tv]++E2) (shiftt (num_tv E1) 1 t) (shiftt (num_tv E1) 1 t')`, -RULE_INDUCT_TAC JTinst_any_ind [shiftt_def, JTinst_any_fun, EVERY_MEM] -[([``"JTinst_any_tyvar"``], - SRW_TAC [] [] THEN SRW_TAC [] [COND_EXPAND, JTinst_any_fun] THEN - IMP_RES_TAC weak_one_tv_ok_thm THEN FULL_SIMP_TAC list_ss [shiftt_def] THEN METIS_TAC []), - ([``"JTinst_any_any"``], METIS_TAC [weak_one_tv_ok_thm]), - ([``"JTinst_any_tuple"``, ``"JTinst_any_ctor"``], - SRW_TAC [] [] THEN - Q.EXISTS_TAC `MAP (\a. (shiftt (num_tv E1) 1 (FST a), shiftt (num_tv E1) 1 (SND a))) t_t'_list` THEN - SRW_TAC [] [MAP_MAP] THEN FULL_SIMP_TAC list_ss [MEM_MAP, weak_one_tv_ok_thm])]); - - -local - -val lem1 = SIMP_RULE list_ss [] (Q.SPECL [`t`, `n`, `0`, `1`] (hd (CONJUNCTS shiftt_com_lem))); - -val lem2 = Q.prove ( -`!l n m f g h. EVERY (\x. JTpat Tsig (E1 ++ E2) (f x) (g x) (h x)) l ==> - (num_tv (FLAT (MAP (\x. h x) l)) = 0)`, -Induct THEN SRW_TAC [] [num_tv_def, num_tv_append_thm] THEN METIS_TAC [pat_env_lem, value_env_num_tv_thm]); - -val lem3 = Q.prove ( -`!l n m f. (num_tv (FLAT (MAP (\x. f x) l)) = 0) ==> - (shiftE n m (FLAT (MAP (\x. f x) l)) = FLAT (MAP (\x. shiftE n m (f x)) l))`, -Induct THEN SRW_TAC [] [shiftE_def, shiftE_append_thm, num_tv_append_thm]); - -val lem6 = Q.prove ( -`!E m n. value_env E ==> (shiftE m n E = MAP (\EB. shiftEB m n EB) E)`, -Induct_on `E` THEN SRW_TAC [] [value_env_def, shiftE_def] THEN Cases_on `h` THEN -FULL_SIMP_TAC (srw_ss()) [value_env_def, shiftE_def] THEN IMP_RES_TAC value_env_num_tv_thm -THEN FULL_SIMP_TAC (srw_ss()) []); - -in - -val weak_one_tv_pat_thm = Q.prove ( -`!Tsig E pat t E'. JTpat Tsig E pat t E' ==> !E1 E2. (E = E1++E2) ==> - JTpat (shiftTsig (num_tv E1) 1 Tsig) (shiftE 0 1 E1++[EB_tv]++E2) pat - (shiftt (num_tv E1) 1 t) (shiftE (num_tv E1) 1 E')`, -RULE_INDUCT_TAC JTpat_sind [JTpat_fun] -[([``"JTpat_var"``, ``"JTpat_any"``, ``"JTpat_constant"``], - SRW_TAC [] [shiftE_def, shiftEB_def, shiftts_def, num_tv_def] THEN - SRW_TAC [] [weak_one_tv_ok_thm, lem1, weak_one_tv_const_thm]), - ([``"JTpat_alias"``], - SRW_TAC [] [shiftE_def, shiftEB_def, shiftts_def, domEB_def, shiftE_dom_thm, lem1] THEN - IMP_RES_TAC pat_env_lem THEN IMP_RES_TAC value_env_num_tv_thm THEN SRW_TAC [] []), - ([``"JTpat_typed"``], - SRW_TAC [] [shiftTsig_def, subst_shiftt_com_lem, LAMBDA_PROD2] THEN - IMP_RES_TAC weak_one_tv_inst_any_thm THEN - FULL_SIMP_TAC list_ss [subst_shiftt_com_lem, LAMBDA_PROD2] THEN - METIS_TAC [is_src_t_shift_thm, weak_one_tv_teq_thm]), - ([``"JTpat_construct_any"``], - SRW_TAC [] [shiftE_def] THEN METIS_TAC [weak_one_tv_constr_p_thm]), - ([``"JTpat_construct"``], - SRW_TAC [] [ELIM_UNCURRY] THEN - Q.EXISTS_TAC `MAP (\(p, E, t). (p, shiftE (num_tv E1) 1 E, shiftt (num_tv E1) 1 t)) pattern_E_t_list` THEN - SRW_TAC [] [LAMBDA_PROD2, MAP_MAP, ETA_THM, ELIM_UNCURRY, EVERY_MAP] THENL - [METIS_TAC [MAP_REVERSE, EVERY_REVERSE, lem2, lem3], - IMP_RES_TAC weak_one_tv_constr_p_thm THEN FULL_SIMP_TAC list_ss [MAP_MAP], - FULL_SIMP_TAC list_ss [EVERY_MEM], - FULL_SIMP_TAC list_ss [MAP_FLAT, MAP_REVERSE, MAP_MAP, shiftE_dom_thm]]), - ([``"JTpat_tuple"``], - SRW_TAC [] [ELIM_UNCURRY] THEN - Q.EXISTS_TAC `MAP (\(p, t, E). (p, shiftt (num_tv E1) 1 t, shiftE (num_tv E1) 1 E)) pattern_t_E_list` THEN - SRW_TAC [] [LAMBDA_PROD2, MAP_MAP, ETA_THM, ELIM_UNCURRY, EVERY_MAP, shiftt_def] THENL - [METIS_TAC [MAP_REVERSE, EVERY_REVERSE, lem3, lem2], - FULL_SIMP_TAC list_ss [EVERY_MEM], - FULL_SIMP_TAC list_ss [MAP_FLAT, MAP_REVERSE, MAP_MAP, shiftE_dom_thm]]), - ([``"JTpat_record"``], - SRW_TAC [] [ELIM_UNCURRY] THEN - Q.EXISTS_TAC `MAP (\(fn, p, E, t). - (fn, p, shiftE (num_tv E1) 1 E, shiftt (num_tv E1) 1 t)) field_name_pattern_E_t_list` - THEN - SRW_TAC [] [LAMBDA_PROD2, MAP_MAP, ETA_THM, ELIM_UNCURRY, EVERY_MAP] THENL - [METIS_TAC [MAP_REVERSE, EVERY_REVERSE, lem2, lem3], - FULL_SIMP_TAC list_ss [EVERY_MEM], - FULL_SIMP_TAC list_ss [EVERY_MEM] THEN SRW_TAC [] [] THEN RES_TAC THEN - IMP_RES_TAC weak_one_tv_field_thm THEN FULL_SIMP_TAC list_ss [MAP_MAP], - FULL_SIMP_TAC list_ss [MAP_FLAT, MAP_REVERSE, MAP_MAP, shiftE_dom_thm]]), - ([``"JTpat_cons"``], - SRW_TAC [] [] THEN - MAP_EVERY Q.EXISTS_TAC [`shiftt (num_tv E1) 1 t`, `shiftE (num_tv E1) 1 E'`, - `shiftE (num_tv E1) 1 E''`] THEN - SRW_TAC [] [shiftt_def, shiftE_append_thm] THEN FULL_SIMP_TAC list_ss [shiftt_def, shiftE_dom_thm] THEN - IMP_RES_TAC pat_env_lem THEN IMP_RES_TAC value_env_num_tv_thm THEN SRW_TAC [] []), - ([``"JTpat_or"``], - SRW_TAC [] [] THEN IMP_RES_TAC pat_env_lem THEN FULL_SIMP_TAC (srw_ss()) [lem6] THEN - METIS_TAC [PERM_MAP])]); - - -val lem4 = Q.prove ( -`!l m n f g. shiftE m 1 (MAP (\z. EB_vn (f z) (TS_forall (shiftt 0 1 (g z)))) l) = - MAP (\z. EB_vn (f z) (TS_forall (shiftt 0 1 (shiftt m 1 (g z))))) l`, -Induct THEN SRW_TAC [] [shiftE_def, shiftEB_def, lem1, shiftts_def] THEN -METIS_TAC [value_env_map_thm, value_env_num_tv_thm, ADD_0]); - -val lem5 = Q.prove ( -`!l m n. shiftE m 1 (MAP (\z. EB_vn (FST z) (TS_forall (SND z))) l) = - MAP (\z. EB_vn (FST z) (TS_forall (shiftt (m + 1) 1 (SND z)))) l`, -Induct THEN SRW_TAC [] [shiftE_def, shiftEB_def, lem1, shiftts_def] THEN -METIS_TAC [value_env_map_thm, value_env_num_tv_thm, ADD_0]); - -val weak_one_tv_thm = Q.store_thm ("weak_one_tv_thm", -`(!S E e t. JTe S E e t ==> - !E1 E2. (E = E1++E2) ==> JTe (shiftTsig (num_tv E1) 1 S) (shiftE 0 1 E1++[EB_tv]++E2) - e (shiftt (num_tv E1) 1 t)) /\ - (!S E pm t1 t2. JTpat_matching S E pm t1 t2 ==> - !E1 E2. (E = E1++E2) ==> JTpat_matching (shiftTsig (num_tv E1) 1 S) (shiftE 0 1 E1++[EB_tv]++E2) - pm (shiftt (num_tv E1) 1 t1) (shiftt (num_tv E1) 1 t2)) /\ - (!S E lb E'. JTlet_binding S E lb E' ==> - !E1 E2. (E = E1++E2) ==> JTlet_binding (shiftTsig (num_tv E1) 1 S) (shiftE 0 1 E1++[EB_tv]++E2) - lb (shiftE (num_tv E1) 1 E')) /\ - (!S E lrbs E'. JTletrec_binding S E lrbs E' ==> - !E1 E2. (E = E1++E2) ==> JTletrec_binding (shiftTsig (num_tv E1) 1 S) (shiftE 0 1 E1++[EB_tv]++E2) - lrbs (shiftE (num_tv E1) 1 E'))`, -RULE_INDUCT_TAC JTe_ind [JTe_fun, shiftt_def] -[([``"JTe_cons"``], - SRW_TAC [] [] THEN Q.EXISTS_TAC `shiftt (num_tv E1) 1 t''` THEN SRW_TAC [] [] THEN - IMP_RES_TAC weak_one_tv_teq_thm THEN FULL_SIMP_TAC (srw_ss()) [shiftt_def]), - ([``"JTe_apply"``, ``"JTe_record_proj"``, ``"JTe_match"``, ``"JTe_assertfalse"``], - METIS_TAC [weak_one_tv_field_thm, weak_one_tv_ok_thm, weak_one_tv_teq_thm]), - ([``"JTe_and"``, ``"JTe_or"``, ``"JTe_while"``, ``"JTe_function"``, ``"JTe_assert"``], - SRW_TAC [] [] THEN IMP_RES_TAC weak_one_tv_teq_thm THEN FULL_SIMP_TAC (srw_ss()) [shiftt_def] THEN - METIS_TAC []), - ([``"JTe_uprim"``, ``"JTe_bprim"``, ``"JTe_ident"``, ``"JTe_constant"``], - SRW_TAC [] [] THEN METIS_TAC [weak_one_tv_uprim_thm, weak_one_tv_bprim_thm, weak_one_tv_val_name_thm, - weak_one_tv_const_thm, weak_one_tv_teq_thm]), - ([``"JTe_location"``], - SRW_TAC [] [] THEN Q.EXISTS_TAC `shiftt (num_tv E1) 1 t''` THEN SRW_TAC [] [] THEN1 - METIS_TAC [weak_one_tv_ok_thm] THEN IMP_RES_TAC weak_one_tv_lookup_thm THEN - FULL_SIMP_TAC list_ss [shiftEB_def] THEN IMP_RES_TAC weak_one_tv_teq_thm THEN - FULL_SIMP_TAC (srw_ss()) [shiftt_def]), - ([``"JTe_typed"``], - SRW_TAC [] [shiftTsig_def, subst_shiftt_com_lem, LAMBDA_PROD2] THEN - IMP_RES_TAC weak_one_tv_inst_any_thm THEN - FULL_SIMP_TAC list_ss [subst_shiftt_com_lem, LAMBDA_PROD2] THEN - METIS_TAC [is_src_t_shift_thm, weak_one_tv_teq_thm]), - ([``"JTe_tuple"``], - SRW_TAC [] [] THEN Q.EXISTS_TAC `MAP (\(e, t). (e, shiftt (num_tv E1) 1 t)) e_t_list` THEN - SRW_TAC [] [shiftt_def, MAP_MAP, LAMBDA_PROD2, ETA_THM] THEN - FULL_SIMP_TAC list_ss [EVERY_MEM] THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [MEM_MAP] THEN - IMP_RES_TAC weak_one_tv_constr_p_thm THEN FULL_SIMP_TAC list_ss [MAP_MAP] THEN - IMP_RES_TAC weak_one_tv_teq_thm THEN FULL_SIMP_TAC (srw_ss()) [shiftt_def, MAP_MAP]), - ([``"JTe_construct"``], - SRW_TAC [] [] THEN Q.EXISTS_TAC `MAP (\(e, t). (e, shiftt (num_tv E1) 1 t)) e_t_list` THEN - SRW_TAC [] [shiftt_def, MAP_MAP, LAMBDA_PROD2, ETA_THM] THEN - FULL_SIMP_TAC list_ss [EVERY_MEM] THEN SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [MEM_MAP] THEN - IMP_RES_TAC weak_one_tv_constr_p_thm THEN FULL_SIMP_TAC list_ss [MAP_MAP] THEN - IMP_RES_TAC weak_one_tv_teq_thm THEN FULL_SIMP_TAC (srw_ss()) [shiftt_def, MAP_MAP] THEN - Q.EXISTS_TAC `shiftt (num_tv E1) 1 t''` THEN SRW_TAC [] [] THEN SRW_TAC [] []), - ([``"JTe_record_constr"``], - SRW_TAC [] [] THEN - MAP_EVERY Q.EXISTS_TAC [`field_name'_list`, `MAP (\x. shiftt (num_tv E1) 1 x) t'_list`, - `MAP (\(fn, e, t). (fn, e, shiftt (num_tv E1) 1 t)) field_name_e_t_list`, - `typeconstr_name`, `kind`] THEN - SRW_TAC [] [shiftt_def, MAP_MAP, LAMBDA_PROD2, ETA_THM, EVERY_MAP] THEN - FULL_SIMP_TAC list_ss [EVERY_MEM] THEN SRW_TAC [] [] THEN RES_TAC THEN - IMP_RES_TAC weak_one_tv_field_thm THEN FULL_SIMP_TAC list_ss [MAP_MAP, shiftt_def] THEN - IMP_RES_TAC weak_one_tv_lookup_thm THEN FULL_SIMP_TAC list_ss [shiftEB_def] THEN - IMP_RES_TAC weak_one_tv_teq_thm THEN FULL_SIMP_TAC (srw_ss()) [shiftt_def, MAP_MAP]), - ([``"JTe_record_with"``], - SRW_TAC [] [] THEN Q.EXISTS_TAC `MAP (\(fn, e, t). (fn, e, shiftt (num_tv E1) 1 t)) field_name_e_t_list` THEN - SRW_TAC [] [shiftt_def, MAP_MAP, LAMBDA_PROD2, ETA_THM, EVERY_MAP] THEN - FULL_SIMP_TAC list_ss [EVERY_MEM] THEN - Q.EXISTS_TAC `shiftt (num_tv E1) 1 t''` THEN SRW_TAC [] [] THEN RES_TAC THEN - IMP_RES_TAC weak_one_tv_field_thm THEN FULL_SIMP_TAC list_ss [MAP_MAP, shiftt_def] THEN - METIS_TAC [weak_one_tv_teq_thm]), - ([``"JTe_for"``], - SRW_TAC [] [] THEN - Q.PAT_ASSUM `!E1' E2'. P E1' E2' ==> JTe (shiftTsig (num_tv E1') 1 S) - (shiftE 0 1 E1' ++ [EB_tv] ++ E2') e'' (TE_constr [] TC_unit)` - (MP_TAC o - Q.SPECL [`EB_vn (VN_id lowercase_ident) (TS_forall (TE_constr [] TC_int))::E1`, `E2`]) THEN - SRW_TAC [] [num_tv_def, shiftE_def, shiftEB_def, shiftts_def, shiftt_def] THEN - IMP_RES_TAC weak_one_tv_teq_thm THEN FULL_SIMP_TAC (srw_ss()) [shiftt_def, MAP_MAP]), - ([``"JTe_let_mono"``], - SRW_TAC [] [] THEN DISJ1_TAC THEN Q.EXISTS_TAC `MAP (\(x, t). (x, shiftt (num_tv E1) 1 t)) x_t_list` THEN - SRW_TAC [] [] THENL - [Q.PAT_ASSUM `!E1' E2'. (E1 ++ E2 = E1' ++ E2') ==> P E1' E2'` (MP_TAC o Q.SPECL [`E1`, `E2`]) THEN - SRW_TAC [] [] THEN MAP_EVERY Q.EXISTS_TAC [`x_t_list'`, `t'`] THEN - FULL_SIMP_TAC list_ss [MAP_MAP, LAMBDA_PROD2] THEN METIS_TAC [lem4, MAP_REVERSE], - Q.PAT_ASSUM `!E1' E2'. P E1' E2' ==> JTe (shiftTsig (num_tv E1') 1 S) - (shiftE 0 1 E1' ++ [EB_tv] ++ E2') e (shiftt (num_tv E1') 1 t)` - (MP_TAC o Q.SPECL [`REVERSE (MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) - x_t_list)++E1`, - `E2`]) THEN - SRW_TAC [] [MAP_MAP, LAMBDA_PROD2, num_tv_append_thm, GSYM MAP_REVERSE, - shiftE_append_thm] THEN - METIS_TAC [ADD, value_env_map_thm, value_env_num_tv_thm, lem4]]), - ([``"JTpat_matching_pm"``], - SRW_TAC [] [] THEN Q.EXISTS_TAC `MAP (\(p, e, E). (p, e, shiftE (num_tv E1) 1 E)) pattern_e_E_list` THEN - SRW_TAC [] [MAP_MAP, LAMBDA_PROD2] THEN FULL_SIMP_TAC list_ss [EVERY_MEM] THEN SRW_TAC [] [] THEN - FULL_SIMP_TAC list_ss [MEM_MAP] THEN1 METIS_TAC [weak_one_tv_pat_thm] THEN RES_TAC THEN SRW_TAC [] [] THEN - Q.PAT_ASSUM `!E2' E1'. (SND (SND z) ++ E1 ++ E2 = E1' ++ E2') ==> - JTe (shiftTsig (num_tv E1') 1 S) (shiftE 0 1 E1' ++ [EB_tv] ++ E2') (FST (SND z)) - (shiftt (num_tv E1') 1 t2)` - (ASSUME_TAC o Q.SPECL [`E2`, `SND (SND (z:pattern # expr # environment)) ++ E1`]) THEN - FULL_SIMP_TAC list_ss [shiftE_def, num_tv_append_thm, shiftE_append_thm] THEN - METIS_TAC [ADD_0, pat_env_lem, value_env_num_tv_thm]), - ([``"JTlet_binding_poly"``], - SRW_TAC [] [] THEN Q.EXISTS_TAC `MAP (\(x, t). (x, shiftt (num_tv E1) 1 t)) x_t_list` THEN - SRW_TAC [] [GSYM MAP_REVERSE, MAP_MAP, LAMBDA_PROD2, lem4] THEN - METIS_TAC [weak_one_tv_pat_thm, MAP_REVERSE, lem4]), - ([``"JTe_let_poly"``], - SRW_TAC [] [] THEN DISJ2_TAC THEN - Q.EXISTS_TAC `MAP (\(x, t). (x, shiftt (num_tv E1 + 1) 1 t)) x_t_list` THEN SRW_TAC [] [] THENL - [Q.PAT_ASSUM `!E1' E2'. (EB_tv::(E1 ++ E2) = E1' ++ E2') ==> P E1' E2'` - (MP_TAC o Q.SPECL [`EB_tv::E1`, `E2`]) THEN - SRW_TAC [] [] THEN MAP_EVERY Q.EXISTS_TAC [`x_t_list'`, `t'`] THEN - FULL_SIMP_TAC list_ss [MAP_MAP, LAMBDA_PROD2, shiftE_def, shiftEB_def, num_tv_def, - lem4, GSYM MAP_REVERSE] THEN - METIS_TAC [shiftTsig_com_lem, ADD, ADD_0], - Q.PAT_ASSUM `!E1' E2'. P E1' E2' ==> JTe (shiftTsig (num_tv E1') 1 S) - (shiftE 0 1 E1' ++ [EB_tv] ++ E2') e (shiftt (num_tv E1') 1 t)` - (MP_TAC o Q.SPECL [`REVERSE (MAP (\z. EB_vn (FST z) (TS_forall (SND z))) - x_t_list)++E1`, - `E2`]) THEN - SRW_TAC [] [MAP_MAP, LAMBDA_PROD2, num_tv_append_thm, GSYM MAP_REVERSE, - shiftE_append_thm] THEN - FULL_SIMP_TAC list_ss [lem5] THEN - METIS_TAC [ADD_0, value_env_map_thm, value_env_num_tv_thm]]), - ([``"JTe_letrec"``], - SRW_TAC [] [] THEN - Q.PAT_ASSUM `!E1' E2'. (EB_tv::(E1 ++ E2) = E1' ++ E2') ==> P E1' E2'` - (MP_TAC o Q.SPECL [`EB_tv::E1`, `E2`]) THEN - Q.PAT_ASSUM `!E1' E2'. P E1' E2' ==> JTe (shiftTsig (num_tv E1') 1 S) - (shiftE 0 1 E1' ++ [EB_tv] ++ E2') e (shiftt (num_tv E1') 1 t)` - (MP_TAC o Q.SPECL [`REVERSE (MAP (\z. EB_vn (FST z) (TS_forall (SND z))) - x_t_list)++E1`, - `E2`]) THEN - SRW_TAC [] [MAP_MAP, LAMBDA_PROD2, num_tv_append_thm, GSYM MAP_REVERSE, - shiftE_append_thm] THEN - Q.EXISTS_TAC `MAP (\(x, t). (x, shiftt (num_tv E1 + 1) 1 t)) x_t_list` THEN - FULL_SIMP_TAC list_ss [MAP_MAP, LAMBDA_PROD2, shiftE_def, shiftEB_def, num_tv_def, - lem4, GSYM MAP_REVERSE, lem5] THEN - METIS_TAC [ADD_0, value_env_map_thm, value_env_num_tv_thm, shiftTsig_com_lem, ADD]), - ([``"JTletrec_binding_equal_function"``], - SRW_TAC [] [] THEN - Q.EXISTS_TAC `MAP (\(vn, pm, t1, t2). (vn, pm, shiftt (num_tv E1) 1 t1, shiftt (num_tv E1) 1 t2)) - value_name_pattern_matching_t_t'_list` THEN - SRW_TAC [] [GSYM MAP_REVERSE, MAP_MAP, LAMBDA_PROD2, EVERY_MAP] THEN1 - SRW_TAC [] [GSYM shiftt_def, lem4] THEN - FULL_SIMP_TAC list_ss [EVERY_MEM] THEN SRW_TAC [] [] THEN RES_TAC THEN - POP_ASSUM (ASSUME_TAC o Q.SPECL [`E2`, - `REVERSE (MAP (\(z:value_name # pattern_matching # typexpr # typexpr). - EB_vn (FST z) - (TS_forall (shiftt 0 1 (TE_arrow (FST (SND (SND z))) - (SND (SND (SND z))))))) - value_name_pattern_matching_t_t'_list) ++ E1`]) THEN - FULL_SIMP_TAC list_ss [GSYM shiftt_def, GSYM MAP_REVERSE, lem4, shiftE_append_thm, num_tv_append_thm] THEN - METIS_TAC [ADD_0, value_env_map_thm, value_env_num_tv_thm, ADD])]); - -end; - -val weak_teq_thm = Q.store_thm ("weak_teq_thm", -`!E t1 t2. JTeq E t1 t2 ==> !E3. (E = E1++E2) /\ ~MEM EB_tv E3 /\ Eok (E1++E3++E2) ==> JTeq (E1++E3++E2) t1 t2`, -RULE_INDUCT_TAC JTeq_ind [] -[([``"JTeq_refl"``], METIS_TAC [weak_ok_thm, JTeq_rules]), - ([``"JTeq_sym"``], METIS_TAC [JTeq_rules]), - ([``"JTeq_trans"``], METIS_TAC [JTeq_rules]), - ([``"JTeq_arrow"``], METIS_TAC [JTeq_rules]), - ([``"JTeq_tuple"``], - SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [Once JTeq_cases] THEN NTAC 3 DISJ2_TAC THEN - FULL_SIMP_TAC (srw_ss ()) [EVERY_MEM] THEN METIS_TAC []), - ([``"JTeq_constr"``], - SRW_TAC [] [] THEN FULL_SIMP_TAC (srw_ss()) [] THEN SRW_TAC [] [Once JTeq_cases] THEN NTAC 4 DISJ2_TAC THEN - FULL_SIMP_TAC (srw_ss ()) [EVERY_MEM] THEN METIS_TAC [weak_ok_thm]), - ([``"JTeq_expand"``], - SRW_TAC [] [] THEN SRW_TAC [] [Once JTeq_cases, MAP_MAP] THEN NTAC 3 DISJ2_TAC THEN DISJ1_TAC THEN - Q.EXISTS_TAC `t_typevar_list` THEN Q.EXISTS_TAC `t` THEN SRW_TAC [] [] THENL - [`MEM (name_tcn typeconstr_name) (MAP domEB E1) \/ ~MEM (name_tcn typeconstr_name) (MAP domEB E3)` by - METIS_TAC [lookup_dom_thm, weak_helper_lem2] THEN - METIS_TAC [weak_lookup_thm], - FULL_SIMP_TAC (srw_ss()) [EVERY_MEM] THEN METIS_TAC [weak_ok_thm]])]); - -val weak_inst_thm = Q.prove ( -`!E1 E2 t ts E3. JTinst (E1++E2) t ts /\ ~MEM EB_tv E3 /\ Eok (E1++E3++E2) ==> JTinst (E1++E3++E2) t ts`, -SRW_TAC [] [JTinst_cases] THEN SRW_TAC [] [Eok_def] THEN FULL_SIMP_TAC list_ss [Eok_def, EVERY_MEM] THEN -`Eok (EB_tv::(E1 ++ E3 ++ E2))` by SRW_TAC [] [Eok_def] THEN METIS_TAC [APPEND, weak_ok_thm]); - -val weak_inst_named_thm = Q.prove ( -`!E1 E2 t tpo ts E3. JTinst_named (E1++E2) t tpo ts /\ ~MEM EB_tv E3 /\ Eok (E1++E3++E2) ==> - JTinst_named (E1++E3++E2) t tpo ts`, -SRW_TAC [] [JTinst_named_cases] THEN SRW_TAC [] [Eok_def] THEN FULL_SIMP_TAC list_ss [Eok_def, EVERY_MEM] THEN -`Eok (EB_tv::(E1 ++ E3 ++ E2))` by SRW_TAC [] [Eok_def] THEN METIS_TAC [APPEND, weak_ok_thm]); - -val weak_uprim_thm = Q.prove ( -`!E1 E2 uprim t E3. JTuprim (E1++E2) uprim t /\ ~MEM EB_tv E3 /\ Eok (E1++E3++E2) ==> - JTuprim (E1++E3++E2) uprim t`, -SRW_TAC [] [JTuprim_cases] THEN METIS_TAC [weak_ok_thm]); - -val weak_bprim_thm = Q.prove ( -`!E1 E2 bprim t E3. JTbprim (E1++E2) bprim t /\ ~MEM EB_tv E3 /\ Eok (E1++E3++E2) ==> - JTbprim (E1++E3++E2) bprim t`, -SRW_TAC [] [JTbprim_cases] THEN METIS_TAC [weak_ok_thm]); - -val weak_val_name_thm = Q.prove ( -`!E1 E2 vn t E3. JTvalue_name (E1++E2) vn t /\ ~MEM EB_tv E3 /\ Eok (E1++E3++E2) /\ - (MEM (name_vn vn) (MAP domEB E3) ==> MEM (name_vn vn) (MAP domEB E1)) ==> - JTvalue_name (E1++E3++E2) vn t`, -SRW_TAC [] [JTvalue_name_cases] THEN IMP_RES_TAC weak_helper_lem3 THEN FULL_SIMP_TAC list_ss [] THEN -METIS_TAC [weak_lookup_thm, weak_inst_thm]); - -val weak_constr_c_thm = Q.prove ( -`!E1 E2 constr t E3. JTconstr_c (E1++E2) constr t /\ ~MEM EB_tv E3 /\ Eok (E1++E3++E2) ==> - JTconstr_c (E1++E3++E2) constr t`, -SRW_TAC [] [JTconstr_c_cases, weak_ok_thm, EVERY_MAP] THEN -IMP_RES_TAC weak_helper_lem3 THEN IMP_RES_TAC weak_helper_lem2 THEN SRW_TAC [] [] THEN -IMP_RES_TAC weak_lookup_thm THEN -SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [EVERY_MEM, weak_ok_thm]); - -val weak_const_thm = Q.prove ( -`!E1 E2 const t EB. JTconst (E1++E2) const t /\ ~MEM EB_tv E3 /\ Eok (E1++E3++E2) ==> - JTconst (E1++E3++E2) const t`, -SRW_TAC [] [JTconst_cases, weak_ok_thm, weak_constr_c_thm]); - -val weak_constr_p_thm = Q.prove ( -`!E1 E2 constr tl t E3. JTconstr_p (E1++E2) constr tl t /\ ~MEM EB_tv E3 /\ Eok (E1++E3++E2) ==> - JTconstr_p (E1++E3++E2) constr tl t`, -SRW_TAC [] [JTconstr_p_cases, weak_ok_thm] THEN -IMP_RES_TAC weak_helper_lem3 THEN IMP_RES_TAC weak_helper_lem2 THEN SRW_TAC [] [] THEN -IMP_RES_TAC weak_lookup_thm THEN SRW_TAC [] [] THEN METIS_TAC [weak_inst_named_thm]); - -val weak_field_thm = Q.prove ( -`!E1 E2 fn t t' E3. JTfield (E1++E2) fn t t' /\ ~MEM EB_tv E3 /\ Eok (E1++E3++E2) ==> - JTfield (E1++E3++E2) fn t t'`, -SRW_TAC [] [JTfield_cases, weak_ok_thm] THEN -IMP_RES_TAC weak_helper_lem3 THEN IMP_RES_TAC weak_helper_lem2 THEN SRW_TAC [] [] THEN -IMP_RES_TAC weak_lookup_thm THEN SRW_TAC [] [] THEN METIS_TAC [weak_inst_named_thm]); - -val weak_inst_any_thm = Q.prove ( -`!E t t'. JTinst_any E t t' ==> !E1 E2 E3. (E = E1++E2) /\ ~MEM EB_tv E3 /\ Eok (E1++E3++E2) ==> - JTinst_any (E1++E3++E2) t t'`, -RULE_INDUCT_TAC JTinst_any_ind [JTinst_any_fun, EVERY_MEM] [] THEN -METIS_TAC [weak_ok_thm]); - -val weak_pat_thm = Q.prove ( -`!Tsig E pat t E'. JTpat Tsig E pat t E' ==> !E1 E2 E3. (E = E1++E2) /\ ~MEM EB_tv E3 /\ Eok (E1++E3++E2) ==> - JTpat Tsig (E1++E3++E2) pat t E'`, -RULE_INDUCT_TAC JTpat_sind [JTpat_fun] -[([``"JTpat_var"``, ``"JTpat_any"``, ``"JTpat_cons"``], METIS_TAC [weak_ok_thm]), - ([``"JTpat_typed"``], METIS_TAC [weak_inst_any_thm, weak_teq_thm]), - ([``"JTpat_constant"``], METIS_TAC [weak_const_thm]), - ([``"JTpat_construct"``, ``"JTpat_construct_any"``, ``"JTpat_tuple"``], - FULL_SIMP_TAC list_ss [EVERY_MEM] THEN METIS_TAC [weak_constr_p_thm]), - ([``"JTpat_record"``], - FULL_SIMP_TAC list_ss [EVERY_MEM] THEN METIS_TAC [weak_field_thm]), - ([``"JTpat_or"``], - METIS_TAC [])]); - -local - -val lem1 = Q.prove ( -`(!t E. tkind (EB_tv::EB_tv::E) (shiftt 0 1 t) = tkind (EB_tv::E) t) /\ - (!tl E. EVERY (\t. tkind (EB_tv::EB_tv::E) (shiftt 0 1 t)) tl = - EVERY (\t. tkind (EB_tv::E) t) tl)`, -Induct THEN SRW_TAC [] [Eok_def, shiftt_def, EVERY_MAP, idx_bound_def, GSYM ADD1] THEN -Cases_on `t` THEN SRW_TAC [] [Eok_def, lookup_def] THEN Cases_on `lookup E (name_tcn t')` THEN -SRW_TAC [] [shiftEB_add_thm] THEN IMP_RES_TAC lookup_name_thm THEN FULL_SIMP_TAC list_ss [] THEN -SRW_TAC [] [shiftEB_def]); - -val lem2 = (GEN_ALL o SIMP_RULE list_ss [] o Q.SPECL [`t`, `[EB_tv]`, `x`, `[EB_tv] ++ E`] o - SIMP_RULE list_ss [GSYM RIGHT_FORALL_IMP_THM, AND_IMP_INTRO] o hd o tl o tl o tl o tl o CONJUNCTS) - value_env_ok_str_thm; - -val lem3 = (GEN_ALL o SIMP_RULE list_ss [Eok_def] o Q.SPECL [`[EB_tv]`, `t`, `E1++E2`, `[h]`] o - SIMP_RULE list_ss [GSYM RIGHT_FORALL_IMP_THM, AND_IMP_INTRO] o hd o tl o tl o tl o tl o CONJUNCTS) - weak_ok_thm; - -val lem4 = Q.prove ( -`!E' E t. value_env E' /\ Eok (E'++E) /\ tkind (EB_tv::E) t ==> tkind (EB_tv::(E'++E)) t`, -Induct THEN SRW_TAC [] [] THEN Cases_on `h` THEN FULL_SIMP_TAC list_ss [value_env_def, Eok_def] THEN -MATCH_MP_TAC lem3 THEN SRW_TAC [] [Eok_def] THEN METIS_TAC [ok_ok_thm]); - -in - -val tv_ok_str_thm = Q.prove ( -`!x_t_list. Eok (MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) x_t_list ++ [EB_tv] ++ E) ==> - Eok (MAP (\z. EB_vn (FST z) (TS_forall (SND z))) x_t_list ++ E)`, -Induct THEN SRW_TAC [] [Eok_def] THEN IMP_RES_TAC lem2 THEN -FULL_SIMP_TAC list_ss [value_env_map_thm, lem1] THEN IMP_RES_TAC ok_ok_thm THEN -FULL_SIMP_TAC list_ss [Eok_def] THEN METIS_TAC [lem4, value_env_map_thm]); -end; - -local - -val lem1 = Q.prove ( -`!lrbs S E E'. Eok E /\ JTletrec_binding S E lrbs E' ==> Eok (E'++E)`, -Cases THEN SRW_TAC [] [JTe_fun] THEN Cases_on `value_name_pattern_matching_t_t'_list` THEN -FULL_SIMP_TAC list_ss [] THEN METIS_TAC [ok_thm, ok_ok_thm]); - -val lem2 = Q.prove ( -`!l f g E1 E2 E3. Eok (MAP (\x. EB_vn (f x) (g x)) l ++ E1 ++ E2) /\ Eok (E1++E3++E2) /\ ~MEM EB_tv E3 ==> - Eok (MAP (\x. EB_vn (f x) (g x)) l ++ E1 ++ E3 ++ E2)`, -Induct THEN SRW_TAC [] [Eok_def] THEN METIS_TAC [weak_ok_thm, ok_ok_thm]); - -val lem3 = Q.prove ( -`!l1 l2. (MAP name_vn l1 = MAP (\z. name_vn (FST z)) l2) = - (l1 = MAP FST l2)`, -Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN SRW_TAC [] []); - -val lem4 = Q.prove ( -`!l1 l2. (MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) l1 = - MAP (\z. EB_vn (FST z) (TS_forall (shiftt 0 1 (SND z)))) l2) = - (l1 = l2)`, -Induct THEN SRW_TAC [] [] THEN Cases_on `l2` THEN SRW_TAC [] [shiftt_11] THEN -Cases_on `h` THEN Cases_on `h'` THEN SRW_TAC [] []); - -val lem5 = Q.prove ( -`!E3 lrbs x_t_list e E1. - ~MEM EB_tv E3 /\ - (!n. MEM n (MAP domEB E3) /\ (MEM n (MAP name_vn (list_minus (fv_letrec_bindings lrbs) (MAP FST x_t_list))) \/ - MEM n (MAP name_vn (list_minus (fv_expr e) (MAP FST x_t_list)))) ==> - MEM n (MAP domEB E1)) - ==> - (!n. MEM n (MAP domEB E3) /\ MEM n (MAP name_vn (fv_expr e)) ==> - MEM n (MAP (\z. name_vn (FST z)) x_t_list) \/ MEM n (MAP domEB E1)) - /\ - (!n. MEM n (MAP domEB E3) /\ MEM n (MAP name_vn (fv_letrec_bindings lrbs)) /\ - ~MEM n (MAP (\z. name_vn (FST z)) x_t_list) ==> - (n = name_tv) \/ MEM n (MAP domEB E1))`, -SRW_TAC [] [MEM_MAP, list_minus_thm] THEN METIS_TAC []); - -val lem6 = Q.prove ( -`!E1 EB E2. E1++[EB]++E2 = E1++EB::E2`, -METIS_TAC [APPEND, APPEND_ASSOC]); - -val lem7 = Q.prove ( -`!l1 l2. MAP name_vn (list_minus l1 l2) = list_minus (MAP name_vn l1) (MAP name_vn l2)`, -Induct THEN SRW_TAC [] [list_minus_def, MEM_MAP]); - -val lem8 = Q.prove ( -`(!n. MEM n (MAP domEB E3) /\ - MEM n - (list_minus (FLAT (MAP (\z. MAP name_vn (fv_pattern_matching (FST (SND z)))) - value_name_pattern_matching_t_t'_list)) - (MAP name_vn (aux_xs_letrec_bindings_of_letrec_bindings - (LRBs_inj (MAP (\z. LRB_simple (FST z) (FST (SND z))) - value_name_pattern_matching_t_t'_list))))) ==> - MEM n (MAP domEB E1)) - ==> -!x. MEM x value_name_pattern_matching_t_t'_list ==> - (!n. MEM n (MAP domEB E3) /\ MEM n (MAP name_vn (fv_pattern_matching (FST (SND x)))) ==> - MEM n (MAP (\z. name_vn (FST z)) (REVERSE value_name_pattern_matching_t_t'_list)) \/ - MEM n (MAP domEB E1))`, -SRW_TAC [] [list_minus_thm, EXISTS_MEM, aux_xs_letrec_bindings_of_letrec_bindings_def, FLAT_MAP_SING, MEM_FLAT, - aux_xs_letrec_binding_of_letrec_binding_def, MAP_MAP] THEN - FULL_SIMP_TAC list_ss [MAP_REVERSE] THEN - Cases_on `MEM n (MAP (\z. name_vn (FST z)) value_name_pattern_matching_t_t'_list)` THEN - FULL_SIMP_TAC list_ss [] THEN SRW_TAC [] [] THEN - Q.PAT_ASSUM `!n. P n ==> MEM n (MAP domEB E1)` MATCH_MP_TAC THEN SRW_TAC [] [] THEN - Q.EXISTS_TAC `MAP name_vn (fv_pattern_matching (FST (SND x)))` THEN SRW_TAC [] [] THEN - FULL_SIMP_TAC list_ss [MEM_MAP] THEN METIS_TAC []); - -in - -val weak_not_tv_thm = Q.store_thm ("weak_not_tv_thm", -`(!S E e t. JTe S E e t ==> - !E1. (E = E1++E2) /\ ~MEM EB_tv E3 /\ - (!n. MEM n (MAP domEB E3) /\ MEM n (MAP name_vn (fv_expr e)) ==> MEM n (MAP domEB E1)) /\ - Eok (E1++E3++E2) ==> - JTe S (E1++E3++E2) e t) /\ - (!S E pm t1 t2. JTpat_matching S E pm t1 t2 ==> - !E1. (E = E1++E2) /\ ~MEM EB_tv E3 /\ - (!n. MEM n (MAP domEB E3) /\ MEM n (MAP name_vn (fv_pattern_matching pm)) ==> - MEM n (MAP domEB E1)) /\ - Eok (E1++E3++E2) ==> - JTpat_matching S (E1++E3++E2) pm t1 t2) /\ - (!S E lb E'. JTlet_binding S E lb E' ==> - !E1. (E = E1++E2) /\ ~MEM EB_tv E3 /\ - (!n. MEM n (MAP domEB E3) /\ MEM n (MAP name_vn (fv_let_binding lb)) ==> MEM n (MAP domEB E1)) /\ - Eok (E1++E3++E2) ==> - JTlet_binding S (E1++E3++E2) lb E') /\ - (!S E lrbs E'. JTletrec_binding S E lrbs E' ==> - !E1. (E = E1++E2) /\ ~MEM EB_tv E3 /\ - (!n. MEM n (MAP domEB E3) /\ - MEM n (list_minus (MAP name_vn (fv_letrec_bindings lrbs)) - (MAP name_vn (aux_xs_letrec_bindings_of_letrec_bindings lrbs))) ==> - MEM n (MAP domEB E1)) /\ - Eok (E1++E3++E2) ==> - JTletrec_binding S (E1++E3++E2) lrbs E')`, -RULE_INDUCT_TAC JTe_sind [JTe_fun, EVERY_MEM, fv_letrec_binding_def, MAP_FLAT, MAP_MAP, MEM_FLAT, - EXISTS_MAP, EXISTS_MEM] -[([``"JTe_uprim"``], METIS_TAC [weak_uprim_thm, weak_teq_thm]), - ([``"JTe_bprim"``], METIS_TAC [weak_bprim_thm, weak_teq_thm]), - ([``"JTe_ident"``], METIS_TAC [weak_val_name_thm, weak_teq_thm]), - ([``"JTe_constant"``], METIS_TAC [weak_const_thm, weak_teq_thm]), - ([``"JTe_typed"``], METIS_TAC [weak_inst_any_thm, weak_teq_thm]), - ([``"JTe_tuple"``, ``"JTe_apply"``, ``"JTe_match"``], METIS_TAC [weak_teq_thm]), - ([``"JTe_construct"``], METIS_TAC [weak_constr_p_thm, weak_teq_thm]), - ([``"JTe_cons"``, ``"JTe_and"``, ``"JTe_or"``, ``"JTe_while"``, ``"JTe_function"``, ``"JTe_assert"``], - METIS_TAC [weak_teq_thm]), - ([``"JTe_record_with"``, ``"JTe_record_proj"``], - METIS_TAC [weak_field_thm, weak_teq_thm]), - ([``"JTe_assertfalse"``], METIS_TAC [weak_ok_thm]), - ([``"JTe_location"``], - SRW_TAC [] [] THEN IMP_RES_TAC weak_helper_lem3 THEN IMP_RES_TAC weak_helper_lem2 THEN SRW_TAC [] [] THEN - IMP_RES_TAC weak_lookup_thm THEN SRW_TAC [] [] THEN METIS_TAC [weak_teq_thm]), - ([``"JTe_record_constr"``], - SRW_TAC [] [] THEN - MAP_EVERY Q.EXISTS_TAC [`field_name'_list`, `t'_list`, `field_name_e_t_list`, - `typeconstr_name`, `kind`] THEN - IMP_RES_TAC weak_helper_lem3 THEN IMP_RES_TAC weak_helper_lem2 THEN SRW_TAC [] [] THEN - IMP_RES_TAC weak_lookup_thm THEN IMP_RES_TAC weak_field_thm THEN IMP_RES_TAC weak_teq_thm THEN - SRW_TAC [] [] THEN METIS_TAC []), - ([``"JTe_for"``], - SRW_TAC [] [] THEN FULL_SIMP_TAC std_ss [GSYM APPEND, APPEND_11, APPEND_ASSOC] THEN - FULL_SIMP_TAC list_ss [domEB_def, Eok_def, shiftt_def, GSYM MAP_REVERSE] THEN - FULL_SIMP_TAC list_ss [MEM_MAP, list_minus_thm] THEN - METIS_TAC [weak_teq_thm]), - ([``"JTe_let_mono"``], - SRW_TAC [] [] THEN - IMP_RES_TAC aux_xs_pattern_of_pattern_thm THEN - FULL_SIMP_TAC std_ss [GSYM APPEND, APPEND_11, APPEND_ASSOC, GSYM MAP_REVERSE] THEN - FULL_SIMP_TAC list_ss [MAP_MAP, lem4, REVERSE_EQ] THEN - FULL_SIMP_TAC list_ss [list_minus_thm, domEB_def, lem3, MAP_REVERSE, MEM_REVERSE, - aux_xs_let_binding_of_let_binding_def] THEN - SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [MEM_MAP, list_minus_thm] THEN - METIS_TAC [APPEND_ASSOC, pat_ok_thm2]), - ([``"JTe_let_poly"``], - SRW_TAC [] [] THEN - IMP_RES_TAC aux_xs_pattern_of_pattern_thm THEN - FULL_SIMP_TAC std_ss [GSYM APPEND, APPEND_11, APPEND_ASSOC] THEN - FULL_SIMP_TAC list_ss [Eok_def, MAP_MAP, GSYM MAP_REVERSE] THEN IMP_RES_TAC pat_ok_thm2 THEN - FULL_SIMP_TAC list_ss [MAP_MAP, lem4, REVERSE_EQ] THEN - FULL_SIMP_TAC list_ss [list_minus_thm, domEB_def, lem3, MAP_REVERSE, MEM_REVERSE, - aux_xs_let_binding_of_let_binding_def] THEN - SRW_TAC [] [] THEN FULL_SIMP_TAC list_ss [MEM_MAP, list_minus_thm] THEN - DISJ2_TAC THEN Q.EXISTS_TAC `x_t_list` THEN SRW_TAC [] [] THEN1 METIS_TAC [] THEN - Q.PAT_ASSUM `x ==> JTe S y e t` MATCH_MP_TAC THEN - METIS_TAC [APPEND_ASSOC, tv_ok_str_thm, MAP_REVERSE, APPEND]), - ([``"JTe_letrec"``], - SRW_TAC [] [] THEN - IMP_RES_TAC aux_xs_letrec_bindings_of_letrec_bindings_thm THEN - FULL_SIMP_TAC std_ss [GSYM APPEND, APPEND_11, APPEND_ASSOC] THEN - FULL_SIMP_TAC list_ss [Eok_def, MAP_MAP, GSYM MAP_REVERSE] THEN - FULL_SIMP_TAC list_ss [MAP_MAP, lem4, REVERSE_EQ] THEN - FULL_SIMP_TAC list_ss [list_minus_thm, domEB_def, lem3, MAP_REVERSE, MEM_REVERSE, - aux_xs_letrec_binding_of_letrec_binding_def] THEN - SRW_TAC [] [] THEN IMP_RES_TAC lem5 THEN FULL_SIMP_TAC list_ss [] THEN - IMP_RES_TAC lem1 THEN FULL_SIMP_TAC list_ss [Eok_def] THEN - METIS_TAC [APPEND_ASSOC, tv_ok_str_thm, MAP_REVERSE, APPEND]), - ([``"JTpat_matching_pm"``], - SRW_TAC [] [] THEN Q.EXISTS_TAC `pattern_e_E_list` THEN SRW_TAC [] [] THEN - RES_TAC THEN FULL_SIMP_TAC list_ss [lem7] THEN SRW_TAC [] [] THEN - IMP_RES_TAC aux_xs_pattern_of_pattern_thm THEN - FULL_SIMP_TAC list_ss [] THEN - FULL_SIMP_TAC list_ss [list_minus_thm, MAP_REVERSE] THEN - METIS_TAC [weak_pat_thm, pat_ok_thm2, APPEND_ASSOC, MEM_APPEND, MAP_APPEND]), - ([``"JTlet_binding_poly"``], - SRW_TAC [] [] THEN Q.EXISTS_TAC `x_t_list` THEN SRW_TAC [] [] THEN - METIS_TAC [weak_pat_thm, pat_ok_thm2, APPEND_ASSOC, MEM_APPEND, MAP_APPEND]), - ([``"JTletrec_binding_equal_function"``], - SRW_TAC [] [] THEN - FULL_SIMP_TAC list_ss [GSYM MAP_REVERSE, MAP_MAP, domEB_def] THEN - IMP_RES_TAC lem8 THEN METIS_TAC [lem2, ok_ok_thm, ok_thm])]); - -end; - -val label_lookup_weak_thm = Q.store_thm ("label_lookup_weak_thm", -`!S E L E' name EB. JTLout S E L E' /\ (!l. ~(name = name_l l)) ==> (lookup E name = lookup (E'++E) name)`, -SRW_TAC [] [JTLout_cases] THEN SRW_TAC [] [lookup_def, domEB_def, shiftEB_add_thm] THEN -Cases_on `(lookup E name)` THEN SRW_TAC [] []); - -local - -val lem1 = Q.prove ( -`!x y. x::y = [x]++y`, -SRW_TAC [] []); - -in - -val label_constr_p_weak_thm = Q.store_thm ("label_constr_p_weak_thm", -`(!E constr t t'. JTconstr_p E constr t t' /\ JTLout S E L E' /\ JTLin S E L ==> - JTconstr_p (E'++E) constr t t')`, -SRW_TAC [] [JTLout_cases, JTLin_cases] THEN SRW_TAC [] [] THEN -ONCE_REWRITE_TAC [lem1] THEN -MATCH_MP_TAC ((SIMP_RULE list_ss [] o Q.SPEC `[]`) weak_constr_p_thm) THEN -SRW_TAC [] [Eok_def] THEN METIS_TAC [ok_thm]); - -val label_field_weak_thm = Q.store_thm ("label_field_weak_thm", - `(!E fn t t'. JTfield E fn t t' /\ JTLout S E L E' /\ JTLin S E L ==> JTfield (E'++E) fn t t')`, -SRW_TAC [] [JTLout_cases, JTLin_cases] THEN SRW_TAC [] [] THEN -ONCE_REWRITE_TAC [lem1] THEN -MATCH_MP_TAC ((SIMP_RULE list_ss [] o Q.SPEC `[]`) weak_field_thm) THEN -SRW_TAC [] [Eok_def] THEN METIS_TAC [ok_thm]); - -end; - -val label_weak_thm = Q.store_thm ("label_weak_thm", -`(!S E E' e t. JTe S E e t /\ JTLout S E L E' /\ JTLin S E L ==> JTe S (E'++E) e t) /\ - (!S E E' pm t t'. JTpat_matching S E pm t t' /\ JTLout S E L E' /\ JTLin S E L ==> - JTpat_matching S (E'++E) pm t t') /\ - (!S E E' p t E''. JTpat S E p t E'' /\ JTLout S E L E' /\ JTLin S E L ==> JTpat S (E'++E) p t E'')`, -SRW_TAC [] [JTLout_cases, JTLin_cases] THEN SRW_TAC [] [] THENL -[MATCH_MP_TAC ((GEN_ALL o SIMP_RULE list_ss [] o Q.SPECL [`[EB_l location t']`, `E`, `S`, `e`, `t`, `[]`] o - SIMP_RULE list_ss [AND_IMP_INTRO, GSYM RIGHT_FORALL_IMP_THM] o GEN_ALL o - hd o CONJUNCTS) weak_not_tv_thm), - MATCH_MP_TAC ((GEN_ALL o SIMP_RULE list_ss [] o - Q.SPECL [`[EB_l location t']`, `E`, `S`, `pm`, `t1`, `t2`, `[]`] o - SIMP_RULE list_ss [AND_IMP_INTRO, GSYM RIGHT_FORALL_IMP_THM] o GEN_ALL o - hd o tl o CONJUNCTS) weak_not_tv_thm), - MATCH_MP_TAC ((GEN_ALL o SIMP_RULE list_ss [] o - Q.SPECL [`Tsig`, `pat`, `t`, `E'`, `[]`, `E`, `[EB_l location t']`] o - SIMP_RULE list_ss [AND_IMP_INTRO, GSYM RIGHT_FORALL_IMP_THM]) weak_pat_thm)] -THEN SRW_TAC [] [Eok_def, domEB_def, MEM_MAP] THEN METIS_TAC [ok_thm]); - -local - -val lem1 = Q.prove ( -`!l t. ~(EB_l l t = EB_tv)`, SRW_TAC [] []); - -in - -val weak_one_loc_ok_thm = Q.store_thm ("weak_one_loc_ok_thm", -`!E1 E2 t location. Eok (E1++E2) /\ tkind E2 t /\ ~MEM (name_l location) (MAP domEB (E1++E2)) ==> - Eok (E1++[EB_l location t]++E2)`, -Induct THEN SRW_TAC [] [Eok_def] THEN Cases_on `h` THEN FULL_SIMP_TAC list_ss [Eok_def, domEB_def] THEN -SRW_TAC [] [] THENL -[METIS_TAC [lem1, weak_ok_thm, ok_ok_thm, MEM, APPEND], - Cases_on `t'` THEN FULL_SIMP_TAC list_ss [Eok_def] THEN SRW_TAC [] [domEB_def] THEN - Q.EXISTS_TAC `kind` THEN MATCH_MP_TAC weak_lookup_thm THEN SRW_TAC [] [domEB_def], - Cases_on `t'` THEN Cases_on `t0` THEN Cases_on `t1` THEN Cases_on `l` THEN - FULL_SIMP_TAC list_ss [Eok_def, substs_tv_empty_thm] THEN SRW_TAC [] [domEB_def] THEN - FULL_SIMP_TAC list_ss [EVERY_MEM] THEN SRW_TAC [] [] THENL - [METIS_TAC [lem1, weak_ok_thm, ok_ok_thm, MEM], - MATCH_MP_TAC weak_lookup_thm THEN SRW_TAC [] [domEB_def], - METIS_TAC [], - METIS_TAC [], - METIS_TAC [lem1, weak_ok_thm, ok_ok_thm, MEM], - MATCH_MP_TAC weak_lookup_thm THEN SRW_TAC [] [domEB_def], - METIS_TAC [lem1, weak_ok_thm, ok_ok_thm, MEM]], - Cases_on `t'` THEN FULL_SIMP_TAC list_ss [Eok_def] THEN SRW_TAC [] [domEB_def] THENL - [METIS_TAC [lem1, weak_ok_thm, ok_ok_thm, MEM, APPEND], - Q.EXISTS_TAC `field_name_list` THEN SRW_TAC [] [] THEN - MATCH_MP_TAC weak_lookup_thm THEN SRW_TAC [] [domEB_def]], - Cases_on `t'` THEN FULL_SIMP_TAC list_ss [Eok_def] THEN SRW_TAC [] [domEB_def] THEN - METIS_TAC [lem1, weak_ok_thm, ok_ok_thm, MEM, APPEND], - METIS_TAC [lem1, weak_ok_thm, ok_ok_thm, MEM, APPEND]]); -end; - -local - -val lem1 = Q.prove ( -`!E l. value_env E ==> ~MEM (name_l l) (MAP domEB E)`, -recInduct Eok2_ind THEN SRW_TAC [] [domEB_def, value_env_def]); - -val lem2 = Q.prove ( -`!E1 EB E2. E1++[EB]++E2 = E1++EB::E2`, -METIS_TAC [APPEND, APPEND_ASSOC]); - -in - -val val_env_label_weak_thm = Q.store_thm ("val_env_label_weak_thm", -`(!S E E' E'' e t. JTe S (E++E') e t /\ value_env E /\ JTLout S E' L E'' /\ JTLin S E' L ==> - JTe S (E++E''++E') e t) /\ - (!S E E' E'' p t E'''. JTpat S (E++E') p t E''' /\ value_env E /\ JTLout S E' L E'' /\ JTLin S E' L ==> - JTpat S (E++E''++E') p t E''')`, -SRW_TAC [] [JTLout_cases, JTLin_cases] THEN SRW_TAC [] [] THENL -[MATCH_MP_TAC ((GEN_ALL o - SIMP_RULE list_ss [AND_IMP_INTRO, GSYM RIGHT_FORALL_IMP_THM] o - hd o CONJUNCTS) weak_not_tv_thm), - MATCH_MP_TAC ((GEN_ALL o - SIMP_RULE list_ss [AND_IMP_INTRO, GSYM RIGHT_FORALL_IMP_THM]) weak_pat_thm)] THEN -SRW_TAC [] [domEB_def, MEM_MAP] THEN -METIS_TAC [weak_one_loc_ok_thm, lem1, ok_thm, ok_ok_thm, pat_ok_thm, MAP_APPEND, MEM_APPEND]); -end; - - -local - -val lem1 = Q.prove ( -`!E n. shiftE n 0 E = E`, -Induct THEN SRW_TAC [] [shiftE_def, shiftEB_add_thm]); - -val lem2 = Q.prove ( -`!EB E. ~(EB = EB_tv) ==> (num_tv (EB::E) = num_tv E)`, -Cases THEN SRW_TAC [] [num_tv_def]); - -in - -val weak_lem = Q.prove ( -`!S e t E2 E3. - JTe S ([EB_tv]++E3) e t /\ - DISJOINT (MAP name_vn (fv_expr e)) (MAP domEB E2) /\ - Eok (E2++E3) ==> - JTe (shiftTsig 1 (num_tv E2) S) ([EB_tv]++E2++E3) e - (shiftt 1 (num_tv E2) t)`, -Induct_on `E2` THEN SRW_TAC [] [num_tv_def, shiftTsig_add_thm, shiftt_add_thm, lem1] THEN -Cases_on `h = EB_tv` THEN -FULL_SIMP_TAC list_ss [num_tv_def, lem2, Eok_def, DISJOINT_RIGHT] THENL -[RES_TAC THEN - IMP_RES_TAC ((SIMP_RULE list_ss [] o GEN_ALL o Q.SPECL [`S`, `e`, `t`, `[EB_tv]`] o - SIMP_RULE list_ss [AND_IMP_INTRO, GSYM RIGHT_FORALL_IMP_THM] o - hd o CONJUNCTS) weak_one_tv_thm) THEN - FULL_SIMP_TAC list_ss [num_tv_def, shiftE_def, shiftEB_def, GSYM shiftt_add_thm, shiftTsig_add_thm], - MATCH_MP_TAC ((SIMP_RULE list_ss [] o GEN_ALL o Q.SPECL [`[h]`, `E2++E3`, `S`, `e`, `t`, `[EB_tv]`] o - GEN_ALL o - SIMP_RULE list_ss [AND_IMP_INTRO, GSYM RIGHT_FORALL_IMP_THM] o - hd o CONJUNCTS) weak_not_tv_thm) THEN - SRW_TAC [] [Eok_def] THEN - METIS_TAC [APPEND, ok_ok_thm]]); - -val weak_thm = Q.store_thm ("weak_thm", -`!S e t E2 E3. - JTe S ([EB_tv]++E3) e t /\ - closed_env E3 /\ - Eok (E2++E3) ==> - JTe (shiftTsig 1 (num_tv E2) S) ([EB_tv]++E2++E3) e - (shiftt 1 (num_tv E2) t)`, -REPEAT STRIP_TAC THEN MATCH_MP_TAC weak_lem THEN SRW_TAC [] [] THEN -IMP_RES_TAC closed_env_tv_lem THEN IMP_RES_TAC closed_env_fv_thm THEN -SRW_TAC [] [DISJOINT_def]); - -end; - -val _ = export_theory (); diff --git a/vendors/ott/examples/ocaml_light/library.ott b/vendors/ott/examples/ocaml_light/library.ott deleted file mode 100644 index 96848e1cbe62..000000000000 --- a/vendors/ott/examples/ocaml_light/library.ott +++ /dev/null @@ -1,15902 +0,0 @@ - -*-LaTeX-*- - - -hacked for caml - all except a few lines are commented out with a % in column 0 - - - Part: IV - ******** - The Objective Caml library - ************************** - - - -Chapter 19 The core library -****************************** -% -% This chapter describes the Objective Caml core library, which is composed of -%declarations for built-in types and exceptions, plus the module Pervasives that -%provides basic operations on these built-in types. The Pervasives module is -%special in two ways: -% -% - It is automatically linked with the user-s object code files by the ocamlc -% command (chapter 8). -% -% - It is automatically --opened-- when a compilation starts, or when the -% toplevel system is launched. Hence, it is possible to use unqualified -% identifiers to refer to the functions provided by the Pervasives module, -% without adding a open Pervasives directive. -% -% -%Conventions -%*=*=*=*=*=* -% -% -% The declarations of the built-in types and the components of module -%Pervasives are printed one by one in typewriter font, followed by a short -%comment. All library modules and the components they provide are indexed at the -%end of this report. -% -% -%19.1 Built-in types and predefined exceptions -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= -% -% -% The following built-in types and predefined exceptions are always defined in -%the compilation environment, but are not part of any module. As a consequence, -%they can only be referred by their short names. -% -Built-in types -============== -% -%<< - type int -%>> -% -% The type of integer numbers. -% -%<< - type char -%>> -% -% The type of characters. -% -%<< - type string -%>> -% -% The type of character strings. -% -%<< - type float -%>> -% -% The type of floating-point numbers. -% -%<< - type bool = false | true -%>> -% -% The type of booleans (truth values). -% -%<< - type unit = () -%>> -% -% The type of the unit value. -% -%<< - type exn -%>> -% -% The type of exception values. -% -%<< -% type 'a array -%>> -% -% The type of arrays whose elements have type 'a. -% -%<< - type 'a list = [] | :: of 'a * 'a list -%>> -% -% The type of lists whose elements have type 'a. -% -%<< - type 'a option = None | Some of 'a -%>> -% -% The type of optional values of type 'a. -% -%<< -% type int32 -%>> -% -% The type of signed 32'bit integers. See the Int32[Int32] -% module. -% -%<< -% type int64 -%>> -% -% The type of signed 64'bit integers. See the Int64[Int64] -% module. -% -%<< -% type nativeint -%>> -% -% The type of signed, platform-native integers (32 bits on -% 32'bit processors, 64 bits on 64'bit processors). See the -% Nativeint[Nativeint] module. -% -%<< -% type ('a, 'b, 'c, 'd) format4 -%>> -% -% The type of format strings. 'a is the type of the parameters -% of the format, 'd is the result type for the printf-style -% function, 'b is the type of the first argument given to \%a and -% \%t printing functions (see module Printf[Printf]), and 'c is -% the result type of these functions. -% -%<< -% type 'a lazy_t -%>> -% -% This type is used to implement the Lazy[Lazy] module. It -% should not be used directly. -% -% -Predefined exceptions -===================== -% -%<< - exception Match_failure of (string * int * int) -%>> -% -% Exception raised when none of the cases of a pattern-matching -% apply. The arguments are the location of the match keyword in -% the source code (file name, line number, column number). -% -%<< - exception Assert_failure of (string * int * int) -%>> -% -% Exception raised when an assertion fails. The arguments are -% the location of the assert keyword in the source code (file -% name, line number, column number). -% -%<< - exception Invalid_argument of string -%>> -% -% Exception raised by library functions to signal that the given -% arguments do not make sense. -% -%<< - exception Failure of string -%>> -% -% Exception raised by library functions to signal that they are -% undefined on the given arguments. -% -%<< - exception Not_found -%>> -% -% Exception raised by search functions when the desired object -% could not be found. -% -%<< -% exception Out_of_memory -%>> -% -% Exception raised by the garbage collector when there is -% insufficient memory to complete the computation. -% -%<< -% exception Stack_overflow -%>> -% -% Exception raised by the bytecode interpreter when the -% evaluation stack reaches its maximal size. This often indicates -% infinite or excessively deep recursion in the user-s program. -% (Not fully implemented by the native'code compiler; see section -% 11.5.) -% -%<< -% exception Sys_error of string -%>> -% -% Exception raised by the input/output functions to report an -% operating system error. -% -%<< -% exception End_of_file -%>> -% -% Exception raised by input functions to signal that the end of -% file has been reached. -% -%<< - exception Division_by_zero -%>> -% -% Exception raised by division and remainder operations when -% their second argument is null. (Not fully implemented by the -% native'code compiler; see section 11.5.) -% -%<< -% exception Sys_blocked_io -%>> -% -% A special case of Sys_error raised when no I/O is possible on -% a non'blocking I/O channel. -% -%<< -% exception Undefined_recursive_module of (string * int * int) -%>> -% -% Exception raised when an ill-founded recursive module -% definition is evaluated. (See section 7.9.) The arguments are -% the location of the definition in the source code (file name, -% line number, column number). -% -% -% - -19.2 Module Pervasives : The initially opened module. -*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= -% -% -% This module provides the basic operations over the built-in types (numbers, -%booleans, strings, exceptions, references, lists, arrays, input-output -%channels, ...) -% This module is automatically opened at the beginning of each compilation. -%All components of this module can therefore be referred by their short name, -%without prefixing them by Pervasives. -% 0.5cm -% -Exceptions -========== -% -%<< - val raise : exn -> 'a -%>> -% -% Raise the given exception value -% -%<< -% val invalid_arg : string -> 'a -%>> -% -% Raise exception Invalid_argument with the given string. -% -%<< -% val failwith : string -> 'a -%>> -% -% Raise exception Failure with the given string. -% -%<< -% exception Exit -%>> -% -% The Exit exception is not raised by any library function. It is -% provided for use in your programs. -% -% -Comparisons -=========== - -** do we need to make these less polymorphic? ** - -% -%<< - val (=) : 'a -> 'a -> bool -%>> -% -% e1 = e2 tests for structural equality of e1 and e2. Mutable -% structures (e.g. references and arrays) are equal if and only -% if their current contents are structurally equal, even if the -% two mutable objects are not the same physical object. Equality -% between functional values raises Invalid_argument. Equality -% between cyclic data structures does not terminate. -% -%<< - val (<>) : 'a -> 'a -> bool -%>> -% -% Negation of Pervasives.(=)[19.2]. -% -%<< - val (<) : 'a -> 'a -> bool -%>> -% -% See Pervasives.(>=)[19.2]. -% -%<< - val (>) : 'a -> 'a -> bool -%>> -% -% See Pervasives.(>=)[19.2]. -% -%<< - val (<=) : 'a -> 'a -> bool -%>> -% -% See Pervasives.(>=)[19.2]. -% -%<< - val (>=) : 'a -> 'a -> bool -%>> -% -% Structural ordering functions. These functions coincide with -% the usual orderings over integers, characters, strings and -% floating-point numbers, and extend them to a total ordering -% over all types. The ordering is compatible with (=). As in the -% case of (=), mutable structures are compared by contents. -% Comparison between functional values raises Invalid_argument. -% Comparison between cyclic structures does not terminate. -% -%<< - val compare : 'a -> 'a -> int -%>> -% -% compare x y returns 0 if x is equal to y, a negative integer -% if x is less than y, and a positive integer if x is greater -% than y. The ordering implemented by compare is compatible with -% the comparison predicates =, < and > defined above, with one -% difference on the treatment of the float value -% Pervasives.nan[19.2]. Namely, the comparison predicates treat -% nan as different from any other float value, including itself; -% while compare treats nan as equal to itself and less than any -% other float value. This treatment of nan ensures that compare -% defines a total ordering relation. -% compare applied to functional values may raise Invalid_argument. -% compare applied to cyclic structures may not terminate. -% The compare function can be used as the comparison function -% required by the Set.Make[20.28] and Map.Make[20.18] functors, as -% well as the List.sort[20.17] and Array.sort[20.2] functions. -% -%<< -% val min : 'a -> 'a -> 'a -%>> -% -% Return the smaller of the two arguments. -% -%<< -% val max : 'a -> 'a -> 'a -%>> -% -% Return the greater of the two arguments. -% -%<< -% val (==) : 'a -> 'a -> bool -%>> -% -% e1 == e2 tests for physical equality of e1 and e2. On integers -% and characters, physical equality is identical to structural -% equality. On mutable structures, e1 == e2 is true if and only if -% physical modification of e1 also affects e2. On non-mutable -% structures, the behavior of (==) is implementation-dependent; -% however, it is guaranteed that e1 == e2 implies compare e1 e2 = -% 0. -% -%<< -% val (!=) : 'a -> 'a -> bool -%>> -% -% Negation of Pervasives.(==)[19.2]. -% -% -Boolean operations -================== -% -%<< - val not : bool -> bool -%>> -% -% The boolean negation. -% -%<< - val (&&) : bool -> bool -> bool -%>> -% -% The boolean -'and--. Evaluation is sequential, left-to-right: -% in e1 && e2, e1 is evaluated first, and if it returns false, e2 -% is not evaluated at all. -% -%<< -% val (&) : bool -> bool -> bool -%>> -% -% Deprecated. Pervasives.(&&)[19.2] should be used instead. -% -%<< - val (||) : bool -> bool -> bool -%>> -% -% The boolean --or--. Evaluation is sequential, left-to-right: -% in e1 || e2, e1 is evaluated first, and if it returns true, e2 -% is not evaluated at all. -% -%<< -% val or : bool -> bool -> bool -%>> -% -% Deprecated. Pervasives.(||)[19.2] should be used instead. -% -% -Integer arithmetic -================== - - Integers are 31 bits wide (or 63 bits on 64'bit processors). All operations -are taken modulo 2^31 (or 2^63). They do not fail on overflow. -%<< -% val (~-) : int -> int -%>> -% -% Unary negation. You can also write -e instead of ~-e. -% -%<< -% val succ : int -> int -%>> -% -% succ x is x+1. -% -%<< -% val pred : int -> int -%>> -% -% pred x is x-1. -% -%<< - val (+) : int -> int -> int -%>> -% -% Integer addition. -% -%<< - val (-) : int -> int -> int -%>> -% -% Integer subtraction. -% -%<< - val (*) : int -> int -> int -%>> -% -% Integer multiplication. -% -%<< - val (/) : int -> int -> int -%>> -% -% Integer division. Raise Division_by_zero if the second -% argument is 0. Integer division rounds the real quotient of its -% arguments towards zero. More precisely, if x >= 0 and y > 0, x -% / y is the greatest integer less than or equal to the real -% quotient of x by y. Moreover, (-x) / y = x / (-y) = -(x / y). -% -%<< -% val mod : int -> int -> int -%>> -% -% Integer remainder. If y is not zero, the result of x mod y -% satisfies the following properties: x = (x / y) * y + x mod y -% and abs(x mod y) <= abs(y)-1. If y = 0, x mod y raises -% Division_by_zero. Notice that x mod y is negative if and only -% if x < 0. -% -%<< -% val abs : int -> int -%>> -% -% Return the absolute value of the argument. -% -%<< - val max_int : int -%>> -% -% The greatest representable integer. -% -%<< - val min_int : int -%>> -% -% The smallest representable integer. -% -% -%Bitwise operations -%------------------ -% -%<< -% val land : int -> int -> int -%>> -% -% Bitwise logical and. -% -%<< -% val lor : int -> int -> int -%>> -% -% Bitwise logical or. -% -%<< -% val lxor : int -> int -> int -%>> -% -% Bitwise logical exclusive or. -% -%<< -% val lnot : int -> int -%>> -% -% Bitwise logical negation. -% -%<< -% val lsl : int -> int -> int -%>> -% -% n lsl m shifts n to the left by m bits. The result is -% unspecified if m < 0 or m >= bitsize, where bitsize is 32 on a -% 32'bit platform and 64 on a 64'bit platform. -% -%<< -% val lsr : int -> int -> int -%>> -% -% n lsr m shifts n to the right by m bits. This is a logical -% shift: zeroes are inserted regardless of the sign of n. The -% result is unspecified if m < 0 or m >= bitsize. -% -%<< -% val asr : int -> int -> int -%>> -% -% n asr m shifts n to the right by m bits. This is an arithmetic -% shift: the sign bit of n is replicated. The result is -% unspecified if m < 0 or m >= bitsize. -% -% -%Floating-point arithmetic -%========================= -% -% Caml-s floating-point numbers follow the IEEE 754 standard, using double -%precision (64 bits) numbers. Floating-point operations never raise an -%exception on overflow, underflow, division by zero, etc. Instead, special IEEE -%numbers are returned as appropriate, such as infinity for 1.0 /. 0.0, -%neg_infinity for -1.0 /. 0.0, and nan (--not a number--) for 0.0 /. 0.0. These -%special numbers then propagate through floating-point computations as -%expected: for instance, 1.0 /. infinity is 0.0, and any operation with nan as -% argument returns nan as result. -%<< -% val (~-.) : float -> float -%>> -% -% Unary negation. You can also write -.e instead of ~-.e. -% -%<< -% val (+.) : float -> float -> float -%>> -% -% Floating-point addition -% -%<< -% val (-.) : float -> float -> float -%>> -% -% Floating-point subtraction -% -%<< -% val (*.) : float -> float -> float -%>> -% -% Floating-point multiplication -% -%<< -% val (/.) : float -> float -> float -%>> -% -% Floating-point division. -% -%<< -% val (**) : float -> float -> float -%>> -% -% Exponentiation -% -%<< -% val sqrt : float -> float -%>> -% -% Square root -% -%<< -% val exp : float -> float -%>> -% -% Exponential. -% -%<< -% val log : float -> float -%>> -% -% Natural logarithm. -% -%<< -% val log10 : float -> float -%>> -% -% Base 10 logarithm. -% -%<< -% val cos : float -> float -%>> -% -% See Pervasives.atan2[19.2]. -% -%<< -% val sin : float -> float -%>> -% -% See Pervasives.atan2[19.2]. -% -%<< -% val tan : float -> float -%>> -% -% See Pervasives.atan2[19.2]. -% -%<< -% val acos : float -> float -%>> -% -% See Pervasives.atan2[19.2]. -% -%<< -% val asin : float -> float -%>> -% -% See Pervasives.atan2[19.2]. -% -%<< -% val atan : float -> float -%>> -% -% See Pervasives.atan2[19.2]. -% -%<< -% val atan2 : float -> float -> float -%>> -% -% The usual trigonometric functions. -% -%<< -% val cosh : float -> float -%>> -% -% See Pervasives.tanh[19.2]. -% -%<< -% val sinh : float -> float -%>> -% -% See Pervasives.tanh[19.2]. -% -%<< -% val tanh : float -> float -%>> -% -% The usual hyperbolic trigonometric functions. -% -%<< -% val ceil : float -> float -%>> -% -% See Pervasives.floor[19.2]. -% -%<< -% val floor : float -> float -%>> -% -% Round the given float to an integer value. floor f returns the -% greatest integer value less than or equal to f. ceil f returns -% the least integer value greater than or equal to f. -% -%<< -% val abs_float : float -> float -%>> -% -% Return the absolute value of the argument. -% -%<< -% val mod_float : float -> float -> float -%>> -% -% mod_float a b returns the remainder of a with respect to b. -% The returned value is a -. n *. b, where n is the quotient a /. -% b rounded towards zero to an integer. -% -%<< -% val frexp : float -> float * int -%>> -% -% frexp f returns the pair of the significant and the exponent -% of f. When f is zero, the significant x and the exponent n of f -% are equal to zero. When f is non-zero, they are defined by f = -% x *. 2 ** n and 0.5 <= x < 1.0. -% -%<< -% val ldexp : float -> int -> float -%>> -% -% ldexp x n returns x *. 2 ** n. -% -%<< -% val modf : float -> float * float -%>> -% -% modf f returns the pair of the fractional and integral part of -% f. -% -%<< -% val float : int -> float -%>> -% -% Same as Pervasives.float_of_int[19.2]. -% -%<< -% val float_of_int : int -> float -%>> -% -% Convert an integer to floating-point. -% -%<< -% val truncate : float -> int -%>> -% -% Same as Pervasives.int_of_float[19.2]. -% -%<< -% val int_of_float : float -> int -%>> -% -% Truncate the given floating-point number to an integer. The -% result is unspecified if it falls outside the range of -% representable integers. -% -%<< -% val infinity : float -%>> -% -% Positive infinity. -% -%<< -% val neg_infinity : float -%>> -% -% Negative infinity. -% -%<< -% val nan : float -%>> -% -% A special floating-point value denoting the result of an -% undefined operation such as 0.0 /. 0.0. Stands for --not a -% number--. Any floating-point operation with nan as argument -% returns nan as result. As for floating-point comparisons, =, <, -% <=, > and >= return false and <> returns true if one or both of -% their arguments is nan. -% -%<< -% val max_float : float -%>> -% -% The largest positive finite value of type float. -% -%<< -% val min_float : float -%>> -% -% The smallest positive, non-zero, non-denormalized value of type -% float. -% -%<< -% val epsilon_float : float -%>> -% -% The smallest positive float x such that 1.0 +. x <> 1.0. -% -%<< -% type fpclass = -% | FP_normal -%>> -% -% Normal number, none of the below -% -%<< -% | FP_subnormal -%>> -% -% Number very close to 0.0, has reduced precision -% -%<< -% | FP_zero -%>> -% -% Number is 0.0 or -0.0 -% -%<< -% | FP_infinite -%>> -% -% Number is positive or negative infinity -% -%<< -% | FP_nan -%>> -% -% Not a number: result of an undefined operation -% -% The five classes of floating-point numbers, as determined by -% the Pervasives.classify_float[19.2] function. -% -%<< -% val classify_float : float -> fpclass -%>> -% -% Return the class of the given floating-point number: normal, -% subnormal, zero, infinite, or not a number. -% -% -String operations -================= -% -% More string operations are provided in module String[20.33]. -%<< - val (^) : string -> string -> string -%>> -% -% String concatenation. -% -% -%Character operations -%==================== -% -% More character operations are provided in module Char[20.5]. -%<< -% val int_of_char : char -> int -%>> -% -% Return the ASCII code of the argument. -% -%<< -% val char_of_int : int -> char -%>> -% -% Return the character with the given ASCII code. Raise -% Invalid_argument "char_of_int" if the argument is outside the -% range 0--255. -% -% -Unit operations -=============== -% -%<< - val ignore : 'a -> unit -%>> -% -% Discard the value of its argument and return (). For instance, -% ignore(f x) discards the result of the side-effecting function -% f. It is equivalent to f x; (), except that the latter may -% generate a compiler warning; writing ignore(f x) instead -% avoids the warning. -% -% -%String conversion functions -%=========================== -% -%<< -% val string_of_bool : bool -> string -%>> -% -% Return the string representation of a boolean. -% -%<< -% val bool_of_string : string -> bool -%>> -% -% Convert the given string to a boolean. Raise Invalid_argument -% "bool_of_string" if the string is not "true" or "false". -% -%<< -% val string_of_int : int -> string -%>> -% -% Return the string representation of an integer, in decimal. -% -%<< -% val int_of_string : string -> int -%>> -% -% Convert the given string to an integer. The string is read in -% decimal (by default) or in hexadecimal (if it begins with 0x or -% 0X), octal (if it begins with 0o or 0O), or binary (if it -% begins with 0b or 0B). Raise Failure "int_of_string" if the -% given string is not a valid representation of an integer, or if -% the integer represented exceeds the range of integers -% representable in type int. -% -%<< -% val string_of_float : float -> string -%>> -% -% Return the string representation of a floating-point number. -% -%<< -% val float_of_string : string -> float -%>> -% -% Convert the given string to a float. Raise Failure -% "float_of_string" if the given string is not a valid -% representation of a float. -% -% -%Pair operations -%=============== -% -%<< -% val fst : 'a * 'b -> 'a -%>> -% -% Return the first component of a pair. -% -%<< -% val snd : 'a * 'b -> 'b -%>> -% -% Return the second component of a pair. -% -% -List operations -=============== -% -% More list operations are provided in module List[20.17]. -%<< - val (@) : 'a list -> 'a list -> 'a list -%>> -% -% List concatenation. -% -% -Input/output -============ -% -%<< -% type in_channel -%>> -% -% The type of input channel. -% -%<< -% type out_channel -%>> -% -% The type of output channel. -% -%<< -% val stdin : in_channel -%>> -% -% The standard input for the process. -% -%<< -% val stdout : out_channel -%>> -% -% The standard output for the process. -% -%<< -% val stderr : out_channel -%>> -% -% The standard error ouput for the process. -% -% -%Output functions on standard output -%----------------------------------- -% -%<< -% val print_char : char -> unit -%>> -% -% Print a character on standard output. -% -%<< - val print_string : string -> unit -%>> -% -% Print a string on standard output. -% -%<< -% val print_int : int -> unit -%>> -% -% Print an integer, in decimal, on standard output. -% -%<< -% val print_float : float -> unit -%>> -% -% Print a floating-point number, in decimal, on standard output. -% -%<< -% val print_endline : string -> unit -%>> -% -% Print a string, followed by a newline character, on standard -% output and flush standard output. -% -%<< -% val print_newline : unit -> unit -%>> -% -% Print a newline character on standard output, and flush -% standard output. This can be used to simulate line buffering of -% standard output. -% -% -%Output functions on standard error -%---------------------------------- -% -%<< -% val prerr_char : char -> unit -%>> -% -% Print a character on standard error. -% -%<< -% val prerr_string : string -> unit -%>> -% -% Print a string on standard error. -% -%<< -% val prerr_int : int -> unit -%>> -% -% Print an integer, in decimal, on standard error. -% -%<< -% val prerr_float : float -> unit -%>> -% -% Print a floating-point number, in decimal, on standard error. -% -%<< -% val prerr_endline : string -> unit -%>> -% -% Print a string, followed by a newline character on standard -% error and flush standard error. -% -%<< -% val prerr_newline : unit -> unit -%>> -% -% Print a newline character on standard error, and flush -% standard error. -% -% -%Input functions on standard input -%--------------------------------- -% -%<< -% val read_line : unit -> string -%>> -% -% Flush standard output, then read characters from standard input -% until a newline character is encountered. Return the string of -% all characters read, without the newline character at the end. -% -%<< -% val read_int : unit -> int -%>> -% -% Flush standard output, then read one line from standard input -% and convert it to an integer. Raise Failure "int_of_string" if -% the line read is not a valid representation of an integer. -% -%<< -% val read_float : unit -> float -%>> -% -% Flush standard output, then read one line from standard input -% and convert it to a floating-point number. The result is -% unspecified if the line read is not a valid representation of a -% floating-point number. -% -% -%General output functions -%------------------------ -% -%<< -% type open_flag = -% | Open_rdonly -%>> -% -% open for reading. -% -%<< -% | Open_wronly -%>> -% -% open for writing. -% -%<< -% | Open_append -%>> -% -% open for appending: always write at end of file. -% -%<< -% | Open_creat -%>> -% -% create the file if it does not exist. -% -%<< -% | Open_trunc -%>> -% -% empty the file if it already exists. -% -%<< -% | Open_excl -%>> -% -% fail if Open_creat and the file already exists. -% -%<< -% | Open_binary -%>> -% -% open in binary mode (no conversion). -% -%<< -% | Open_text -%>> -% -% open in text mode (may perform conversions). -% -%<< -% | Open_nonblock -%>> -% -% open in non'blocking mode. -% -% Opening modes for Pervasives.open_out_gen[19.2] and -% Pervasives.open_in_gen[19.2]. -% -%<< -% val open_out : string -> out_channel -%>> -% -% Open the named file for writing, and return a new output -% channel on that file, positionned at the beginning of the file. -% The file is truncated to zero length if it already exists. It -% is created if it does not already exists. Raise Sys_error if -% the file could not be opened. -% -%<< -% val open_out_bin : string -> out_channel -%>> -% -% Same as Pervasives.open_out[19.2], but the file is opened in -% binary mode, so that no translation takes place during writes. -% On operating systems that do not distinguish between text mode -% and binary mode, this function behaves like -% Pervasives.open_out[19.2]. -% -%<< -% val open_out_gen : open_flag list -> int -> string -> out_channel -%>> -% -% Open the named file for writing, as above. The extra argument -% mode specify the opening mode. The extra argument perm -% specifies the file permissions, in case the file must be -% created. Pervasives.open_out[19.2] and -% Pervasives.open_out_bin[19.2] are special cases of this -% function. -% -%<< -% val flush : out_channel -> unit -%>> -% -% Flush the buffer associated with the given output channel, -% performing all pending writes on that channel. Interactive -% programs must be careful about flushing standard output and -% standard error at the right time. -% -%<< -% val flush_all : unit -> unit -%>> -% -% Flush all open output channels; ignore errors. -% -%<< -% val output_char : out_channel -> char -> unit -%>> -% -% Write the character on the given output channel. -% -%<< -% val output_string : out_channel -> string -> unit -%>> -% -% Write the string on the given output channel. -% -%<< -% val output : out_channel -> string -> int -> int -> unit -%>> -% -% output oc buf pos len writes len characters from string buf, -% starting at offset pos, to the given output channel oc. Raise -% Invalid_argument "output" if pos and len do not designate a -% valid substring of buf. -% -%<< -% val output_byte : out_channel -> int -> unit -%>> -% -% Write one 8'bit integer (as the single character with that -% code) on the given output channel. The given integer is taken -% modulo 256. -% -%<< -% val output_binary_int : out_channel -> int -> unit -%>> -% -% Write one integer in binary format (4 bytes, big-endian) on -% the given output channel. The given integer is taken modulo -% 2^32. The only reliable way to read it back is through the -% Pervasives.input_binary_int[19.2] function. The format is -% compatible across all machines for a given version of Objective -% Caml. -% -%<< -% val output_value : out_channel -> 'a -> unit -%>> -% -% Write the representation of a structured value of any type to -% a channel. Circularities and sharing inside the value are -% detected and preserved. The object can be read back, by the -% function Pervasives.input_value[19.2]. See the description of -% module Marshal[20.19] for more information. -% Pervasives.output_value[19.2] is equivalent to -% Marshal.to_channel[20.19] with an empty list of flags. -% -%<< -% val seek_out : out_channel -> int -> unit -%>> -% -% seek_out chan pos sets the current writing position to pos for -% channel chan. This works only for regular files. On files of -% other kinds (such as terminals, pipes and sockets), the -% behavior is unspecified. -% -%<< -% val pos_out : out_channel -> int -%>> -% -% Return the current writing position for the given channel. Does -% not work on channels opened with the Open_append flag (returns -% unspecified results). -% -%<< -% val out_channel_length : out_channel -> int -%>> -% -% Return the size (number of characters) of the regular file on -% which the given channel is opened. If the channel is opened on -% a file that is not a regular file, the result is meaningless. -% -%<< -% val close_out : out_channel -> unit -%>> -% -% Close the given channel, flushing all buffered write -% operations. Output functions raise a Sys_error exception when -% they are applied to a closed output channel, except close_out -% and flush, which do nothing when applied to an already closed -% channel. Note that close_out may raise Sys_error if the -% operating system signals an error when flushing or closing. -% -%<< -% val close_out_noerr : out_channel -> unit -%>> -% -% Same as close_out, but ignore all errors. -% -%<< -% val set_binary_mode_out : out_channel -> bool -> unit -%>> -% -% set_binary_mode_out oc true sets the channel oc to binary -% mode: no translations take place during output. -% set_binary_mode_out oc false sets the channel oc to text mode: -% depending on the operating system, some translations may take -% place during output. For instance, under Windows, end-of-lines -% will be translated from \n to \r\n. This function has no effect -% under operating systems that do not distinguish between text -% mode and binary mode. -% -% -%General input functions -%----------------------- -% -%<< -% val open_in : string -> in_channel -%>> -% -% Open the named file for reading, and return a new input channel -% on that file, positionned at the beginning of the file. Raise -% Sys_error if the file could not be opened. -% -%<< -% val open_in_bin : string -> in_channel -%>> -% -% Same as Pervasives.open_in[19.2], but the file is opened in -% binary mode, so that no translation takes place during reads. -% On operating systems that do not distinguish between text mode -% and binary mode, this function behaves like -% Pervasives.open_in[19.2]. -% -%<< -% val open_in_gen : open_flag list -> int -> string -> in_channel -%>> -% -% Open the named file for reading, as above. The extra arguments -% mode and perm specify the opening mode and file permissions. -% Pervasives.open_in[19.2] and Pervasives.open_in_bin[19.2] are -% special cases of this function. -% -%<< -% val input_char : in_channel -> char -%>> -% -% Read one character from the given input channel. Raise -% End_of_file if there are no more characters to read. -% -%<< -% val input_line : in_channel -> string -%>> -% -% Read characters from the given input channel, until a newline -% character is encountered. Return the string of all characters -% read, without the newline character at the end. Raise -% End_of_file if the end of the file is reached at the beginning -% of line. -% -%<< -% val input : in_channel -> string -> int -> int -> int -%>> -% -% input ic buf pos len reads up to len characters from the given -% channel ic, storing them in string buf, starting at character -% number pos. It returns the actual number of characters read, -% between 0 and len (inclusive). A return value of 0 means that -% the end of file was reached. A return value between 0 and len -% exclusive means that not all requested len characters were -% read, either because no more characters were available at that -% time, or because the implementation found it convenient to do a -% partial read; input must be called again to read the remaining -% characters, if desired. (See also Pervasives.really_input[19.2] -% for reading exactly len characters.) Exception -% Invalid_argument "input" is raised if pos and len do not -% designate a valid substring of buf. -% -%<< -% val really_input : in_channel -> string -> int -> int -> unit -%>> -% -% really_input ic buf pos len reads len characters from channel -% ic, storing them in string buf, starting at character number -% pos. Raise End_of_file if the end of file is reached before len -% characters have been read. Raise Invalid_argument -% "really_input" if pos and len do not designate a valid -% substring of buf. -% -%<< -% val input_byte : in_channel -> int -%>> -% -% Same as Pervasives.input_char[19.2], but return the 8'bit -% integer representing the character. Raise End_of_file if an -% end of file was reached. -% -%<< -% val input_binary_int : in_channel -> int -%>> -% -% Read an integer encoded in binary format (4 bytes, big-endian) -% from the given input channel. See -% Pervasives.output_binary_int[19.2]. Raise End_of_file if an end -% of file was reached while reading the integer. -% -%<< -% val input_value : in_channel -> 'a -%>> -% -% Read the representation of a structured value, as produced by -% Pervasives.output_value[19.2], and return the corresponding -% value. This function is identical to -% Marshal.from_channel[20.19]; see the description of module -% Marshal[20.19] for more information, in particular concerning -% the lack of type safety. -% -%<< -% val seek_in : in_channel -> int -> unit -%>> -% -% seek_in chan pos sets the current reading position to pos for -% channel chan. This works only for regular files. On files of -% other kinds, the behavior is unspecified. -% -%<< -% val pos_in : in_channel -> int -%>> -% -% Return the current reading position for the given channel. -% -%<< -% val in_channel_length : in_channel -> int -%>> -% -% Return the size (number of characters) of the regular file on -% which the given channel is opened. If the channel is opened on -% a file that is not a regular file, the result is meaningless. -% The returned size does not take into account the end-of-line -% translations that can be performed when reading from a channel -% opened in text mode. -% -%<< -% val close_in : in_channel -> unit -%>> -% -% Close the given channel. Input functions raise a Sys_error -% exception when they are applied to a closed input channel, -% except close_in, which does nothing when applied to an already -% closed channel. Note that close_in may raise Sys_error if the -% operating system signals an error. -% -%<< -% val close_in_noerr : in_channel -> unit -%>> -% -% Same as close_in, but ignore all errors. -% -%<< -% val set_binary_mode_in : in_channel -> bool -> unit -%>> -% -% set_binary_mode_in ic true sets the channel ic to binary mode: -% no translations take place during input. set_binary_mode_out ic -% false sets the channel ic to text mode: depending on the -% operating system, some translations may take place during -% input. For instance, under Windows, end-of-lines will be -% translated from \r\n to \n. This function has no effect under -% operating systems that do not distinguish between text mode and -% binary mode. -% -% -%Operations on large files -%------------------------- -% -%<< -% module LargeFile : >> -% -% sig -% -% -% << -% val seek_out : Pervasives.out_channel -> int64 -> unit -% >> -% -% << -% val pos_out : Pervasives.out_channel -> int64 -% >> -% -% << -% val out_channel_length : Pervasives.out_channel -> int64 -% >> -% -% << -% val seek_in : Pervasives.in_channel -> int64 -> unit -% >> -% -% << -% val pos_in : Pervasives.in_channel -> int64 -% >> -% -% << -% val in_channel_length : Pervasives.in_channel -> int64 -% >> -% -% - end -% -% Operations on large files. This sub-module provides 64'bit -% variants of the channel functions that manipulate file -% positions and file sizes. By representing positions and sizes -% by 64'bit integers (type int64) instead of regular integers -% (type int), these alternate functions allow operating on files -% whose sizes are greater than max_int. -% -% -References -========== -% -%<< - type 'a ref -% type 'a ref = { -% mutable contents : 'a ; -% } -%>> -% -% The type of references (mutable indirection cells) containing -% a value of type 'a. -% -%<< - val ref : 'a -> 'a ref -%>> -% -% Return a fresh reference containing the given value. -% -%<< - val (!) : 'a ref -> 'a -%>> -% -% !r returns the current contents of reference r. Equivalent to -% fun r -> r.contents. -% -%<< - val (:=) : 'a ref -> 'a -> unit -%>> -% -% r := a stores the value of a in reference r. Equivalent to fun -% r v -> r.contents <- v. -% -%<< -% val incr : int ref -> unit -%>> -% -% Increment the integer contained in the given reference. -% Equivalent to fun r -> r := succ !r. -% -%<< -% val decr : int ref -> unit -%>> -% -% Decrement the integer contained in the given reference. -% Equivalent to fun r -> r := pred !r. -% -% -%Operations on format strings -%============================ -% -% See modules Printf[20.24] and Scanf[20.27] for more operations on format -%strings. -%<< -% type ('a, 'b, 'c) format = ('a, 'b, 'c, 'c) format4 -%>> -% -% Simplified type for format strings, included for backward -% compatibility with earlier releases of Objective Caml. 'a is -% the type of the parameters of the format, 'c is the result type -% for the "printf"-style function, and 'b is the type of the -% first argument given to %a and %t printing functions. -% -%<< -% val string_of_format : ('a, 'b, 'c, 'd) format4 -> string -%>> -% -% Converts a format string into a string. -% -%<< -% val format_of_string : ('a, 'b, 'c, 'd) format4 -> ('a, 'b, 'c, 'd) format4 -%>> -% -% format_of_string s returns a format string read from the string -% literal s. -% -%<< -% val (^^) : -% ('a, 'b, 'c, 'd) format4 -> -% (-d, 'b, 'c, -e) format4 -> ('a, 'b, 'c, -e) format4 -%>> -% -% f1 ^^f2 catenates formats f1 and f2. The result is a format -% that accepts arguments from f1, then arguments from f2. -% -% -%Program termination -%=================== -% -%<< -% val exit : int -> 'a -%>> -% -% Terminate the process, returning the given status code to the -% operating system: usually 0 to indicate no errors, and a small -% positive integer to indicate failure. All open output channels -% are flushed with flush_all. An implicit exit 0 is performed -% each time a program terminates normally. An implicit exit 2 is -% performed if the program terminates early because of an -% uncaught exception. -% -%<< -% val at_exit : (unit -> unit) -> unit -%>> -% -% Register the given function to be called at program -% termination time. The functions registered with at_exit will be -% called when the program executes Pervasives.exit[19.2], or -% terminates, either normally or because of an uncaught exception. -% The functions are called in --last in, first out-- order: the -% function most recently added with at_exit is called first. -% -% -% -% -% -%Chapter 20 The standard library -%********************************** -% -% This chapter describes the functions provided by the Objective Caml standard -%library. The modules from the standard library are automatically linked with -%the user-s object code files by the ocamlc command. Hence, these modules can be -%used in standalone programs without having to add any .cmo file on the command -%line for the linking phase. Similarly, in interactive use, these globals can be -%used in toplevel phrases without having to load any .cmo file in memory. -% Unlike the Pervasive module from the core library, the modules from the -%standard library are not automatically --opened-- when a compilation starts, or -%when the toplevel system is launched. Hence it is necessary to use qualified -%identifiers to refer to the functions provided by these modules, or to add open -%directives. -% -% -%Conventions -%*=*=*=*=*=* -% -% -% For easy reference, the modules are listed below in alphabetical order of -%module names. For each module, the declarations from its signature are printed -%one by one in typewriter font, followed by a short comment. All modules and the -%identifiers they export are indexed at the end of this report. -% -% -% -%20.1 Module Arg : Parsing of command line arguments. -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* -% -% -% This module provides a general mechanism for extracting options and -%arguments from the command line to the program. -% Syntax of command lines: A keyword is a character string starting with a -. -%An option is a keyword alone or followed by an argument. The types of keywords -%are: Unit, Bool, Set, Clear, String, Set_string, Int, Set_int, Float, -%Set_float, Tuple, Symbol, and Rest. Unit, Set and Clear keywords take no -%argument. A Rest keyword takes the remaining of the command line as arguments. -% Every other keyword takes the following word on the command line as argument. -% Arguments not preceded by a keyword are called anonymous arguments. -% Examples (cmd is assumed to be the command name): -% -% - cmd -flag (a unit option) -% - cmd -int 1 (an int option with argument 1) -% - cmd -string foobar (a string option with argument "foobar") -% - cmd -float 12.34 (a float option with argument 12.34) -% - cmd a b c (three anonymous arguments: "a", "b", and "c") -% - cmd a b -- c d (two anonymous arguments and a rest option with two -% arguments) -% -% 0.5cm -%<< -% type spec = -% | Unit of (unit -> unit) -%>> -% -% Call the function with unit argument -% -%<< -% | Bool of (bool -> unit) -%>> -% -% Call the function with a bool argument -% -%<< -% | Set of bool Pervasives.ref -%>> -% -% Set the reference to true -% -%<< -% | Clear of bool Pervasives.ref -%>> -% -% Set the reference to false -% -%<< -% | String of (string -> unit) -%>> -% -% Call the function with a string argument -% -%<< -% | Set_string of string Pervasives.ref -%>> -% -% Set the reference to the string argument -% -%<< -% | Int of (int -> unit) -%>> -% -% Call the function with an int argument -% -%<< -% | Set_int of int Pervasives.ref -%>> -% -% Set the reference to the int argument -% -%<< -% | Float of (float -> unit) -%>> -% -% Call the function with a float argument -% -%<< -% | Set_float of float Pervasives.ref -%>> -% -% Set the reference to the float argument -% -%<< -% | Tuple of spec list -%>> -% -% Take several arguments according to the spec list -% -%<< -% | Symbol of string list * (string -> unit) -%>> -% -% Take one of the symbols as argument and call the function with -% the symbol -% -%<< -% | Rest of (string -> unit) -%>> -% -% Stop interpreting keywords and call the function with each -% remaining argument -% -% The concrete type describing the behavior associated with a -% keyword. -% -%<< -% type key = string -%>> -% -%<< -% type doc = string -%>> -% -%<< -% type usage_msg = string -%>> -% -%<< -% type anon_fun = string -> unit -%>> -% -%<< -% val parse : (key * spec * doc) list -> anon_fun -> usage_msg -> unit -%>> -% -% Arg.parse speclist anon_fun usage_msg parses the command line. -% speclist is a list of triples (key, spec, doc). key is the -% option keyword, it must start with a --- character. spec gives -% the option type and the function to call when this option is -% found on the command line. doc is a one-line description of -% this option. anon_fun is called on anonymous arguments. The -% functions in spec and anon_fun are called in the same order as -% their arguments appear on the command line. -% If an error occurs, Arg.parse exits the program, after printing -% an error message as follows: -% -% - The reason for the error: unknown option, invalid or missing -% argument, etc. -% - usage_msg -% - The list of options, each followed by the corresponding doc -% string. -% -% For the user to be able to specify anonymous arguments starting -% with a -, include for example ("-", String anon_fun, doc) in -% speclist. -% By default, parse recognizes two unit options, -help and --help, -% which will display usage_msg and the list of options, and exit -% the program. You can override this behaviour by specifying your -% own -help and --help options in speclist. -% -%<< -% val parse_argv : -% ?current:int Pervasives.ref -> -% string array -> -% (key * spec * doc) list -> anon_fun -> usage_msg -> unit -%>> -% -% Arg.parse_argv ~current args speclist anon_fun usage_msg parses -% the array args as if it were the command line. It uses and -% updates the value of ~current (if given), or Arg.current. You -% must set it before calling parse_argv. The initial value of -% current is the index of the program name (argument 0) in the -% array. If an error occurs, Arg.parse_argv raises Arg.Bad with -% the error message as argument. If option -help or --help is -% given, Arg.parse_argv raises Arg.Help with the help message as -% argument. -% -%<< -% exception Help of string -%>> -% -% Raised by Arg.parse_argv when the user asks for help. -% -%<< -% exception Bad of string -%>> -% -% Functions in spec or anon_fun can raise Arg.Bad with an error -% message to reject invalid arguments. Arg.Bad is also raised by -% Arg.parse_argv in case of an error. -% -%<< -% val usage : (key * spec * doc) list -> usage_msg -> unit -%>> -% -% Arg.usage speclist usage_msg prints an error message including -% the list of valid options. This is the same message that -% Arg.parse[20.1] prints in case of error. speclist and usage_msg -% are the same as for Arg.parse. -% -%<< -% val align : (key * spec * doc) list -> (key * spec * doc) list -%>> -% -% Align the documentation strings by inserting spaces at the -% first space, according to the length of the keyword. Use a -% space as the first character in a doc string if you want to -% align the whole string. The doc strings corresponding to Symbol -% arguments are not aligned. -% -%<< -% val current : int Pervasives.ref -%>> -% -% Position (in Sys.argv[20.34]) of the argument being processed. -% You can change this value, e.g. to force Arg.parse[20.1] to -% skip some arguments. Arg.parse[20.1] uses the initial value of -% Arg.current[20.1] as the index of argument 0 (the program name) -% and starts parsing arguments at the next element. -% -% -% -%20.2 Module Array : Array operations. -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= -% -% -% 0.5cm -%<< -% val length : 'a array -> int -%>> -% -% Return the length (number of elements) of the given array. -% -%<< -% val get : 'a array -> int -> 'a -%>> -% -% Array.get a n returns the element number n of array a. The -% first element has number 0. The last element has number -% Array.length a - 1. You can also write a.(n) instead of -% Array.get a n. -% Raise Invalid_argument "index out of bounds" if n is outside -% the range 0 to (Array.length a - 1). -% -%<< -% val set : 'a array -> int -> 'a -> unit -%>> -% -% Array.set a n x modifies array a in place, replacing element -% number n with x. You can also write a.(n) <- x instead of -% Array.set a n x. -% Raise Invalid_argument "index out of bounds" if n is outside -% the range 0 to Array.length a - 1. -% -%<< -% val make : int -> 'a -> 'a array -%>> -% -% Array.make n x returns a fresh array of length n, initialized -% with x. All the elements of this new array are initially -% physically equal to x (in the sense of the == predicate). -% Consequently, if x is mutable, it is shared among all elements -% of the array, and modifying x through one of the array entries -% will modify all other entries at the same time. -% Raise Invalid_argument if n < 0 or n > Sys.max_array_length. If -% the value of x is a floating-point number, then the maximum -% size is only Sys.max_array_length / 2. -% -%<< -% val create : int -> 'a -> 'a array -%>> -% -% Deprecated. Array.create is an alias for Array.make[20.2]. -% -%<< -% val init : int -> (int -> 'a) -> 'a array -%>> -% -% Array.init n f returns a fresh array of length n, with element -% number i initialized to the result of f i. In other terms, -% Array.init n f tabulates the results of f applied to the -% integers 0 to n-1. -% Raise Invalid_argument if n < 0 or n > Sys.max_array_length. If -% the return type of f is float, then the maximum size is only -% Sys.max_array_length / 2. -% -%<< -% val make_matrix : int -> int -> 'a -> 'a array array -%>> -% -% Array.make_matrix dimx dimy e returns a two-dimensional array -% (an array of arrays) with first dimension dimx and second -% dimension dimy. All the elements of this new matrix are -% initially physically equal to e. The element (x,y) of a matrix -% m is accessed with the notation m.(x).(y). -% Raise Invalid_argument if dimx or dimy is negative or greater -% than Sys.max_array_length. If the value of e is a -% floating-point number, then the maximum size is only -% Sys.max_array_length / 2. -% -%<< -% val create_matrix : int -> int -> 'a -> 'a array array -%>> -% -% Deprecated. Array.create_matrix is an alias for -% Array.make_matrix[20.2]. -% -%<< -% val append : 'a array -> 'a array -> 'a array -%>> -% -% Array.append v1 v2 returns a fresh array containing the -% concatenation of the arrays v1 and v2. -% -%<< -% val concat : 'a array list -> 'a array -%>> -% -% Same as Array.append, but concatenates a list of arrays. -% -%<< -% val sub : 'a array -> int -> int -> 'a array -%>> -% -% Array.sub a start len returns a fresh array of length len, -% containing the elements number start to start + len - 1 of -% array a. -% Raise Invalid_argument "Array.sub" if start and len do not -% designate a valid subarray of a; that is, if start < 0, or len -% < 0, or start + len > Array.length a. -% -%<< -% val copy : 'a array -> 'a array -%>> -% -% Array.copy a returns a copy of a, that is, a fresh array -% containing the same elements as a. -% -%<< -% val fill : 'a array -> int -> int -> 'a -> unit -%>> -% -% Array.fill a ofs len x modifies the array a in place, storing -% x in elements number ofs to ofs + len - 1. -% Raise Invalid_argument "Array.fill" if ofs and len do not -% designate a valid subarray of a. -% -%<< -% val blit : 'a array -> int -> 'a array -> int -> int -> unit -%>> -% -% Array.blit v1 o1 v2 o2 len copies len elements from array v1, -% starting at element number o1, to array v2, starting at element -% number o2. It works correctly even if v1 and v2 are the same -% array, and the source and destination chunks overlap. -% Raise Invalid_argument "Array.blit" if o1 and len do not -% designate a valid subarray of v1, or if o2 and len do not -% designate a valid subarray of v2. -% -%<< -% val to_list : 'a array -> 'a list -%>> -% -% Array.to_list a returns the list of all the elements of a. -% -%<< -% val of_list : 'a list -> 'a array -%>> -% -% Array.of_list l returns a fresh array containing the elements -% of l. -% -%<< -% val iter : ('a -> unit) -> 'a array -> unit -%>> -% -% Array.iter f a applies function f in turn to all the elements -% of a. It is equivalent to f a.(0); f a.(1); ...; f -% a.(Array.length a - 1); (). -% -%<< -% val map : ('a -> 'b) -> 'a array -> 'b array -%>> -% -% Array.map f a applies function f to all the elements of a, and -% builds an array with the results returned by f: [| f a.(0); f -% a.(1); ...; f a.(Array.length a - 1) |]. -% -%<< -% val iteri : (int -> 'a -> unit) -> 'a array -> unit -%>> -% -% Same as Array.iter[20.2], but the function is applied to the -% index of the element as first argument, and the element itself -% as second argument. -% -%<< -% val mapi : (int -> 'a -> 'b) -> 'a array -> 'b array -%>> -% -% Same as Array.map[20.2], but the function is applied to the -% index of the element as first argument, and the element itself -% as second argument. -% -%<< -% val fold_left : ('a -> 'b -> 'a) -> 'a -> 'b array -> 'a -%>> -% -% Array.fold_left f x a computes f (... (f (f x a.(0)) a.(1)) -% ...) a.(n-1), where n is the length of the array a. -% -%<< -% val fold_right : ('a -> 'b -> 'b) -> 'a array -> 'b -> 'b -%>> -% -% Array.fold_right f a x computes f a.(0) (f a.(1) ( ... (f -% a.(n-1) x) ...)), where n is the length of the array a. -% -% -%Sorting -%======= -% -%<< -% val sort : ('a -> 'a -> int) -> 'a array -> unit -%>> -% -% Sort an array in increasing order according to a comparison -% function. The comparison function must return 0 if its arguments -% compare as equal, a positive integer if the first is greater, -% and a negative integer if the first is smaller (see below for a -% complete specification). For example, Pervasives.compare[19.2] -% is a suitable comparison function, provided there are no -% floating-point NaN values in the data. After calling -% Array.sort, the array is sorted in place in increasing order. -% Array.sort is guaranteed to run in constant heap space and (at -% most) logarithmic stack space. -% The current implementation uses Heap Sort. It runs in constant -% stack space. -% Specification of the comparison function: Let a be the array -% and cmp the comparison function. The following must be true for -% all x, y, z in a : -% -% - cmp x y > 0 if and only if cmp y x < 0 -% - if cmp x y >= 0 and cmp y z >= 0 then cmp x z >= 0 -% -% When Array.sort returns, a contains the same elements as before, -% reordered in such a way that for all i and j valid indices of a -% : -% -% - cmp a.(i) a.(j) >= 0 if and only if i >= j -% -%<< -% val stable_sort : ('a -> 'a -> int) -> 'a array -> unit -%>> -% -% Same as Array.sort[20.2], but the sorting algorithm is stable -% (i.e. elements that compare equal are kept in their original -% order) and not guaranteed to run in constant heap space. -% The current implementation uses Merge Sort. It uses n/2 words -% of heap space, where n is the length of the array. It is -% usually faster than the current implementation of -% Array.sort[20.2]. -% -%<< -% val fast_sort : ('a -> 'a -> int) -> 'a array -> unit -%>> -% -% Same as Array.sort[20.2] or Array.stable_sort[20.2], whichever -% is faster on typical input. -% -% -% -%20.3 Module Buffer : Extensible string buffers. -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= -% -% -% This module implements string buffers that automatically expand as -%necessary. It provides accumulative concatenation of strings in quasi-linear -%time (instead of quadratic time when strings are concatenated pairwise). -% 0.5cm -%<< -% type t -%>> -% -% The abstract type of buffers. -% -%<< -% val create : int -> t -%>> -% -% create n returns a fresh buffer, initially empty. The n -% parameter is the initial size of the internal string that holds -% the buffer contents. That string is automatically reallocated -% when more than n characters are stored in the buffer, but -% shrinks back to n characters when reset is called. For best -% performance, n should be of the same order of magnitude as the -% number of characters that are expected to be stored in the -% buffer (for instance, 80 for a buffer that holds one output -% line). Nothing bad will happen if the buffer grows beyond that -% limit, however. In doubt, take n = 16 for instance. If n is not -% between 1 and Sys.max_string_length[20.34], it will be clipped -% to that interval. -% -%<< -% val contents : t -> string -%>> -% -% Return a copy of the current contents of the buffer. The -% buffer itself is unchanged. -% -%<< -% val sub : t -> int -> int -> string -%>> -% -% Buffer.sub b off len returns (a copy of) the substring of the -% current contents of the buffer b starting at offset off of -% length len bytes. May raise Invalid_argument if out of bounds -% request. The buffer itself is unaffected. -% -%<< -% val nth : t -> int -> char -%>> -% -% get the n-th character of the buffer. Raise Invalid_argument if -% index out of bounds -% -%<< -% val length : t -> int -%>> -% -% Return the number of characters currently contained in the -% buffer. -% -%<< -% val clear : t -> unit -%>> -% -% Empty the buffer. -% -%<< -% val reset : t -> unit -%>> -% -% Empty the buffer and deallocate the internal string holding the -% buffer contents, replacing it with the initial internal string -% of length n that was allocated by Buffer.create[20.3] n. For -% long-lived buffers that may have grown a lot, reset allows -% faster reclamation of the space used by the buffer. -% -%<< -% val add_char : t -> char -> unit -%>> -% -% add_char b c appends the character c at the end of the buffer -% b. -% -%<< -% val add_string : t -> string -> unit -%>> -% -% add_string b s appends the string s at the end of the buffer b. -% -%<< -% val add_substring : t -> string -> int -> int -> unit -%>> -% -% add_substring b s ofs len takes len characters from offset ofs -% in string s and appends them at the end of the buffer b. -% -%<< -% val add_substitute : t -> (string -> string) -> string -> unit -%>> -% -% add_substitute b f s appends the string pattern s at the end -% of the buffer b with substitution. The substitution process -% looks for variables into the pattern and substitutes each -% variable name by its value, as obtained by applying the mapping -% f to the variable name. Inside the string pattern, a variable -% name immediately follows a non-escaped $ character and is one -% of the following: -% -% - a non empty sequence of alphanumeric or _ characters, -% - an arbitrary sequence of characters enclosed by a pair of -% matching parentheses or curly brackets. An escaped $ -% character is a $ that immediately follows a backslash -% character; it then stands for a plain $. Raise Not_found if -% the closing character of a parenthesized variable cannot be -% found. -% -%<< -% val add_buffer : t -> t -> unit -%>> -% -% add_buffer b1 b2 appends the current contents of buffer b2 at -% the end of buffer b1. b2 is not modified. -% -%<< -% val add_channel : t -> Pervasives.in_channel -> int -> unit -%>> -% -% add_channel b ic n reads exactly n character from the input -% channel ic and stores them at the end of buffer b. Raise -% End_of_file if the channel contains fewer than n characters. -% -%<< -% val output_buffer : Pervasives.out_channel -> t -> unit -%>> -% -% output_buffer oc b writes the current contents of buffer b on -% the output channel oc. -% -% -% -%20.4 Module Callback : Registering Caml values with the C runtime. -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* -% -% -% This module allows Caml values to be registered with the C runtime under a -%symbolic name, so that C code can later call back registered Caml functions, -%or raise registered Caml exceptions. -% 0.5cm -%<< -% val register : string -> 'a -> unit -%>> -% -% Callback.register n v registers the value v under the name n. -% C code can later retrieve a handle to v by calling -% caml_named_value(n). -% -%<< -% val register_exception : string -> exn -> unit -%>> -% -% Callback.register_exception n exn registers the exception -% contained in the exception value exn under the name n. C code -% can later retrieve a handle to the exception by calling -% caml_named_value(n). The exception value thus obtained is -% suitable for passign as first argument to raise_constant or -% raise_with_arg. -% -% -% -%20.5 Module Char : Character operations. -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* -% -% -% 0.5cm -%<< -% val code : char -> int -%>> -% -% Return the ASCII code of the argument. -% -%<< -% val chr : int -> char -%>> -% -% Return the character with the given ASCII code. Raise -% Invalid_argument "Char.chr" if the argument is outside the -% range 0--255. -% -%<< -% val escaped : char -> string -%>> -% -% Return a string representing the given character, with special -% characters escaped following the lexical conventions of -% Objective Caml. -% -%<< -% val lowercase : char -> char -%>> -% -% Convert the given character to its equivalent lowercase -% character. -% -%<< -% val uppercase : char -> char -%>> -% -% Convert the given character to its equivalent uppercase -% character. -% -%<< -% type t = char -%>> -% -% An alias for the type of characters. -% -%<< -% val compare : t -> t -> int -%>> -% -% The comparison function for characters, with the same -% specification as Pervasives.compare[19.2]. Along with the type -% t, this function compare allows the module Char to be passed as -% argument to the functors Set.Make[20.28] and Map.Make[20.18]. -% -% -% -%20.6 Module Complex : Complex numbers. -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* -% -% -% This module provides arithmetic operations on complex numbers. Complex -%numbers are represented by their real and imaginary parts (cartesian -%representation). Each part is represented by a double-precision floating-point -%number (type float). -% 0.5cm -%<< -% type t = { -% re : float ; -% im : float ; -% } -%>> -% -% The type of complex numbers. re is the real part and im the -% imaginary part. -% -%<< -% val zero : t -%>> -% -% The complex number 0. -% -%<< -% val one : t -%>> -% -% The complex number 1. -% -%<< -% val i : t -%>> -% -% The complex number i. -% -%<< -% val neg : t -> t -%>> -% -% Unary negation. -% -%<< -% val conj : t -> t -%>> -% -% Conjugate: given the complex x + i.y, returns x - i.y. -% -%<< -% val add : t -> t -> t -%>> -% -% Addition -% -%<< -% val sub : t -> t -> t -%>> -% -% Subtraction -% -%<< -% val mul : t -> t -> t -%>> -% -% Multiplication -% -%<< -% val inv : t -> t -%>> -% -% Multiplicative inverse (1/z). -% -%<< -% val div : t -> t -> t -%>> -% -% Division -% -%<< -% val sqrt : t -> t -%>> -% -% Square root. The result x + i.y is such that x > 0 or x = 0 -% and y >= 0. This function has a discontinuity along the -% negative real axis. -% -%<< -% val norm2 : t -> float -%>> -% -% Norm squared: given x + i.y, returns x^2 + y^2. -% -%<< -% val norm : t -> float -%>> -% -% Norm: given x + i.y, returns sqrt(x^2 + y^2). -% -%<< -% val arg : t -> float -%>> -% -% Argument. The argument of a complex number is the angle in the -% complex plane between the positive real axis and a line passing -% through zero and the number. This angle ranges from -pi to pi. -% This function has a discontinuity along the negative real axis. -% -%<< -% val polar : float -> float -> t -%>> -% -% polar norm arg returns the complex having norm norm and -% argument arg. -% -%<< -% val exp : t -> t -%>> -% -% Exponentiation. exp z returns e to the z power. -% -%<< -% val log : t -> t -%>> -% -% Natural logarithm (in base e). -% -%<< -% val pow : t -> t -> t -%>> -% -% Power function. pow z1 z2 returns z1 to the z2 power. -% -% -% -%20.7 Module Digest : MD5 message digest. -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* -% -% -% This module provides functions to compute 128'bit --digests-- of -%arbitrary-length strings or files. The digests are of cryptographic quality: -%it is very hard, given a digest, to forge a string having that digest. The -%algorithm used is MD5. -% 0.5cm -%<< -% type t = string -%>> -% -% The type of digests: 16'character strings. -% -%<< -% val string : string -> t -%>> -% -% Return the digest of the given string. -% -%<< -% val substring : string -> int -> int -> t -%>> -% -% Digest.substring s ofs len returns the digest of the substring -% of s starting at character number ofs and containing len -% characters. -% -%<< -% val channel : Pervasives.in_channel -> int -> t -%>> -% -% If len is nonnegative, Digest.channel ic len reads len -% characters from channel ic and returns their digest, or raises -% End_of_file if end-of-file is reached before len characters are -% read. If len is negative, Digest.channel ic len reads all -% characters from ic until end-of-file is reached and return -% their digest. -% -%<< -% val file : string -> t -%>> -% -% Return the digest of the file whose name is given. -% -%<< -% val output : Pervasives.out_channel -> t -> unit -%>> -% -% Write a digest on the given output channel. -% -%<< -% val input : Pervasives.in_channel -> t -%>> -% -% Read a digest from the given input channel. -% -%<< -% val to_hex : t -> string -%>> -% -% Return the printable hexadecimal representation of the given -% digest. -% -% -% -%20.8 Module Filename : Operations on file names. -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* -% -% -% 0.5cm -%<< -% val current_dir_name : string -%>> -% -% The conventional name for the current directory (e.g. . in -% Unix). -% -%<< -% val parent_dir_name : string -%>> -% -% The conventional name for the parent of the current directory -% (e.g. .. in Unix). -% -%<< -% val concat : string -> string -> string -%>> -% -% concat dir file returns a file name that designates file file -% in directory dir. -% -%<< -% val is_relative : string -> bool -%>> -% -% Return true if the file name is relative to the current -% directory, false if it is absolute (i.e. in Unix, starts with -% /). -% -%<< -% val is_implicit : string -> bool -%>> -% -% Return true if the file name is relative and does not start -% with an explicit reference to the current directory (./ or ../ -% in Unix), false if it starts with an explicit reference to the -% root directory or the current directory. -% -%<< -% val check_suffix : string -> string -> bool -%>> -% -% check_suffix name suff returns true if the filename name ends -% with the suffix suff. -% -%<< -% val chop_suffix : string -> string -> string -%>> -% -% chop_suffix name suff removes the suffix suff from the -% filename name. The behavior is undefined if name does not end -% with the suffix suff. -% -%<< -% val chop_extension : string -> string -%>> -% -% Return the given file name without its extension. The extension -% is the shortest suffix starting with a period and not including -% a directory separator, .xyz for instance. -% Raise Invalid_argument if the given name does not contain an -% extension. -% -%<< -% val basename : string -> string -%>> -% -% Split a file name into directory name / base file name. concat -% (dirname name) (basename name) returns a file name which is -% equivalent to name. Moreover, after setting the current -% directory to dirname name (with Sys.chdir[20.34]), references -% to basename name (which is a relative file name) designate the -% same file as name before the call to Sys.chdir[20.34]. -% The result is not specified if the argument is not a valid file -% name (for example, under Unix if there is a NUL character in -% the string). -% -%<< -% val dirname : string -> string -%>> -% -% See Filename.basename[20.8]. -% -%<< -% val temp_file : string -> string -> string -%>> -% -% temp_file prefix suffix returns the name of a fresh temporary -% file in the temporary directory. The base name of the temporary -% file is formed by concatenating prefix, then a suitably chosen -% integer number, then suffix. The temporary file is created -% empty, with permissions 0o600 (readable and writable only by -% the file owner). The file is guaranteed to be different from -% any other file that existed when temp_file was called. Under -% Unix, the temporary directory is /tmp by default; if set, the -% value of the environment variable TMPDIR is used instead. Under -% Windows, the name of the temporary directory is the value of -% the environment variable TEMP, or C:\temp by default. -% -%<< -% val open_temp_file : -% ?mode:Pervasives.open_flag list -> -% string -> string -> string * Pervasives.out_channel -%>> -% -% Same as Filename.temp_file[20.8], but returns both the name of -% a fresh temporary file, and an output channel opened -% (atomically) on this file. This function is more secure than -% temp_file: there is no risk that the temporary file will be -% modified (e.g. replaced by a symbolic link) before the program -% opens it. The optional argument mode is a list of additional -% flags to control the opening of the file. It can contain one or -% several of Open_append, Open_binary, and Open_text. The default -% is [Open_text] (open in text mode). -% -%<< -% val quote : string -> string -%>> -% -% Return a quoted version of a file name, suitable for use as -% one argument in a shell command line, escaping all shell -% meta'characters. -% -% -% -%20.9 Module Format : Pretty printing. -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= -% -% -% This module implements a pretty-printing facility to format text within -%--pretty-printing boxes--. The pretty-printer breaks lines at specified break -%hints, and indents lines according to the box structure. -% For a gentle introduction to the basics of pretty-printing using Format, -%read -%http://caml.inria.fr/resources/doc/guides/format.html[http://caml.inria.fr/reso -%urces/doc/guides/format.html]. -% Warning: the material output by the following functions is delayed in the -%pretty-printer queue in order to compute the proper line breaking. Hence, you -%should not mix calls to the printing functions of the basic I/O system with -%calls to the functions of this module: this could result in some strange -%output seemingly unrelated with the evaluation order of printing commands. -% You may consider this module as providing an extension to the printf -%facility to provide automatic line breaking. The addition of pretty-printing -%annotations to your regular printf formats gives you fancy indentation and -%line breaks. Pretty-printing annotations are described below in the -%documentation of the function Format.fprintf[20.9]. -% You may also use the explicit box management and printing functions provided -%by this module. This style is more basic but more verbose than the fprintf -%concise formats. -% For instance, the sequence open_box 0; print_string "x ="; print_space (); -%print_int 1; close_box () that prints x = 1 within a pretty-printing box, can -%be abbreviated as printf "@[%s@ %i@]" "x =" 1, or even shorter printf "@[x =@ -%%i@]" 1. -% Rule of thumb for casual users of this library: -% -% - use simple boxes (as obtained by open_box 0); -% - use simple break hints (as obtained by print_cut () that outputs a simple -% break hint, or by print_space () that outputs a space indicating a break -% hint); -% - once a box is opened, display its material with basic printing functions -% (e. g. print_int and print_string); -% - when the material for a box has been printed, call close_box () to close -% the box; -% - at the end of your routine, evaluate print_newline () to close all -% remaining boxes and flush the pretty-printer. -% -% The behaviour of pretty-printing commands is unspecified if there is no -%opened pretty-printing box. Each box opened via one of the open_ functions -%below must be closed using close_box for proper formatting. Otherwise, some of -%the material printed in the boxes may not be output, or may be formatted -%incorrectly. -% In case of interactive use, the system closes all opened boxes and flushes -%all pending text (as with the print_newline function) after each phrase. Each -%phrase is therefore executed in the initial state of the pretty-printer. -% 0.5cm -% -%Boxes -%===== -% -%<< -% val open_box : int -> unit -%>> -% -% open_box d opens a new pretty-printing box with offset d. -% This box is the general purpose pretty-printing box. Material -% in this box is displayed --horizontal or vertical--: break -% hints inside the box may lead to a new line, if there is no -% more room on the line to print the remainder of the box, or if -% a new line may lead to a new indentation (demonstrating the -% indentation of the box). When a new line is printed in the box, -% d is added to the current indentation. -% -%<< -% val close_box : unit -> unit -%>> -% -% Closes the most recently opened pretty-printing box. -% -% -%Formatting functions -%==================== -% -%<< -% val print_string : string -> unit -%>> -% -% print_string str prints str in the current box. -% -%<< -% val print_as : int -> string -> unit -%>> -% -% print_as len str prints str in the current box. The -% pretty-printer formats str as if it were of length len. -% -%<< -% val print_int : int -> unit -%>> -% -% Prints an integer in the current box. -% -%<< -% val print_float : float -> unit -%>> -% -% Prints a floating point number in the current box. -% -%<< -% val print_char : char -> unit -%>> -% -% Prints a character in the current box. -% -%<< -% val print_bool : bool -> unit -%>> -% -% Prints a boolean in the current box. -% -% -%Break hints -%=========== -% -%<< -% val print_space : unit -> unit -%>> -% -% print_space () is used to separate items (typically to print a -% space between two words). It indicates that the line may be -% split at this point. It either prints one space or splits the -% line. It is equivalent to print_break 1 0. -% -%<< -% val print_cut : unit -> unit -%>> -% -% print_cut () is used to mark a good break position. It -% indicates that the line may be split at this point. It either -% prints nothing or splits the line. This allows line splitting -% at the current point, without printing spaces or adding -% indentation. It is equivalent to print_break 0 0. -% -%<< -% val print_break : int -> int -> unit -%>> -% -% Inserts a break hint in a pretty-printing box. print_break -% nspaces offset indicates that the line may be split (a newline -% character is printed) at this point, if the contents of the -% current box does not fit on the current line. If the line is -% split at that point, offset is added to the current -% indentation. If the line is not split, nspaces spaces are -% printed. -% -%<< -% val print_flush : unit -> unit -%>> -% -% Flushes the pretty printer: all opened boxes are closed, and -% all pending text is displayed. -% -%<< -% val print_newline : unit -> unit -%>> -% -% Equivalent to print_flush followed by a new line. -% -%<< -% val force_newline : unit -> unit -%>> -% -% Forces a newline in the current box. Not the normal way of -% pretty-printing, you should prefer break hints. -% -%<< -% val print_if_newline : unit -> unit -%>> -% -% Executes the next formatting command if the preceding line has -% just been split. Otherwise, ignore the next formatting command. -% -% -%Margin -%====== -% -%<< -% val set_margin : int -> unit -%>> -% -% set_margin d sets the value of the right margin to d (in -% characters): this value is used to detect line overflows that -% leads to split lines. Nothing happens if d is smaller than 2. -% If d is too large, the right margin is set to the maximum -% admissible value (which is greater than 10^10). -% -%<< -% val get_margin : unit -> int -%>> -% -% Returns the position of the right margin. -% -% -%Maximum indentation limit -%========================= -% -%<< -% val set_max_indent : int -> unit -%>> -% -% set_max_indent d sets the value of the maximum indentation -% limit to d (in characters): once this limit is reached, boxes -% are rejected to the left, if they do not fit on the current -% line. Nothing happens if d is smaller than 2. If d is too -% large, the limit is set to the maximum admissible value (which -% is greater than 10^10). -% -%<< -% val get_max_indent : unit -> int -%>> -% -% Return the value of the maximum indentation limit (in -% characters). -% -% -%Formatting depth: maximum number of boxes allowed before ellipsis -%================================================================= -% -%<< -% val set_max_boxes : int -> unit -%>> -% -% set_max_boxes max sets the maximum number of boxes -% simultaneously opened. Material inside boxes nested deeper is -% printed as an ellipsis (more precisely as the text returned by -% get_ellipsis_text ()). Nothing happens if max is smaller than -% 2. -% -%<< -% val get_max_boxes : unit -> int -%>> -% -% Returns the maximum number of boxes allowed before ellipsis. -% -%<< -% val over_max_boxes : unit -> bool -%>> -% -% Tests if the maximum number of boxes allowed have already been -% opened. -% -% -%Advanced formatting -%=================== -% -%<< -% val open_hbox : unit -> unit -%>> -% -% open_hbox () opens a new pretty-printing box. This box is -% --horizontal--: the line is not split in this box (new lines -% may still occur inside boxes nested deeper). -% -%<< -% val open_vbox : int -> unit -%>> -% -% open_vbox d opens a new pretty-printing box with offset d. -% This box is --vertical--: every break hint inside this box -% leads to a new line. When a new line is printed in the box, d -% is added to the current indentation. -% -%<< -% val open_hvbox : int -> unit -%>> -% -% open_hvbox d opens a new pretty-printing box with offset d. -% This box is --horizontal-vertical--: it behaves as an -% --horizontal-- box if it fits on a single line, otherwise it -% behaves as a --vertical-- box. When a new line is printed in -% the box, d is added to the current indentation. -% -%<< -% val open_hovbox : int -> unit -%>> -% -% open_hovbox d opens a new pretty-printing box with offset d. -% This box is --horizontal or vertical--: break hints inside this -% box may lead to a new line, if there is no more room on the -% line to print the remainder of the box. When a new line is -% printed in the box, d is added to the current indentation. -% -% -%Tabulations -%=========== -% -%<< -% val open_tbox : unit -> unit -%>> -% -% Opens a tabulation box. -% -%<< -% val close_tbox : unit -> unit -%>> -% -% Closes the most recently opened tabulation box. -% -%<< -% val print_tbreak : int -> int -> unit -%>> -% -% Break hint in a tabulation box. print_tbreak spaces offset -% moves the insertion point to the next tabulation (spaces being -% added to this position). Nothing occurs if insertion point is -% already on a tabulation mark. If there is no next tabulation -% on the line, then a newline is printed and the insertion point -% moves to the first tabulation of the box. If a new line is -% printed, offset is added to the current indentation. -% -%<< -% val set_tab : unit -> unit -%>> -% -% Sets a tabulation mark at the current insertion point. -% -%<< -% val print_tab : unit -> unit -%>> -% -% print_tab () is equivalent to print_tbreak (0,0). -% -% -%Ellipsis -%======== -% -%<< -% val set_ellipsis_text : string -> unit -%>> -% -% Set the text of the ellipsis printed when too many boxes are -% opened (a single dot, ., by default). -% -%<< -% val get_ellipsis_text : unit -> string -%>> -% -% Return the text of the ellipsis. -% -% -%Tags -%==== -% -%<< -% type tag = string -%>> -% -% Tags are used to decorate printed entities for user-s defined purposes, e.g. -%setting font and giving size indications for a display device, or marking -%delimitations of semantics entities (e.g. HTML or TeX elements or terminal -%escape sequences). -% By default, those tags do not influence line breaking calculation: the tag -%--markers-- are not considered as part of the printing material that drives -%line breaking (in other words, the length of those strings is considered as -%zero for line breaking). -% Thus, tag handling is in some sense transparent to pretty-printing and does -%not interfere with usual pretty-printing. Hence, a single pretty printing -%routine can output both simple --verbatim-- material or richer decorated -%output depending on the treatment of tags. By default, tags are not active, -%hence the output is not decorated with tag information. Once set_tags is set -%to true, the pretty printer engine honors tags and decorates the output -%accordingly. -% When a tag has been opened (or closed), it is both and successively -%--printed-- and --marked--. Printing a tag means calling a formatter specific -%function with the name of the tag as argument: that --tag printing-- function -%can then print any regular material to the formatter (so that this material is -%enqueued as usual in the formatter queue for further line'breaking -%computation). Marking a tag means to output an arbitrary string (the --tag -%marker--), directly into the output device of the formatter. Hence, the -%formatter specific --tag marking-- function must return the tag marker string -%associated to its tag argument. Being flushed directly into the output device -%of the formatter, tag marker strings are not considered as part of the -%printing material that drives line breaking (in other words, the length of the -%strings corresponding to tag markers is considered as zero for line -%breaking). In addition, advanced users may take advantage of the specificity -%of tag markers to be precisely output when the pretty printer has already -%decided where to break the lines, and precisely when the queue is flushed into -%the output device. -% In the spirit of HTML tags, the default tag marking functions output tags -%enclosed in "<" and ">": hence, the opening marker of tag t is "" and the -%closing marker "". -% Default tag printing functions just do nothing. -% Tag marking and tag printing functions are user definable and can be set by -%calling set_formatter_tag_functions. -%<< -% val open_tag : tag -> unit -%>> -% -% open_tag t opens the tag named t; the print_open_tag function -% of the formatter is called with t as argument; the tag marker -% mark_open_tag t will be flushed into the output device of the -% formatter. -% -%<< -% val close_tag : unit -> unit -%>> -% -% close_tag () closes the most recently opened tag t. In -% addition, the print_close_tag function of the formatter is -% called with t as argument. The marker mark_close_tag t will be -% flushed into the output device of the formatter. -% -%<< -% val set_tags : bool -> unit -%>> -% -% set_tags b turns on or off the treatment of tags (default is -% off). -% -%<< -% val set_print_tags : bool -> unit -%>> -% -%<< -% val set_mark_tags : bool -> unit -%>> -% -% set_print_tags b turns on or off the printing of tags, while -% set_mark_tags b turns on or off the output of tag markers. -% -%<< -% val get_print_tags : unit -> bool -%>> -% -%<< -% val get_mark_tags : unit -> bool -%>> -% -% Return the current status of tags printing and tags marking. -% -% -%Redirecting formatter output -%============================ -% -%<< -% val set_formatter_out_channel : Pervasives.out_channel -> unit -%>> -% -% Redirect the pretty-printer output to the given channel. -% -%<< -% val set_formatter_output_functions : -% (string -> int -> int -> unit) -> (unit -> unit) -> unit -%>> -% -% set_formatter_output_functions out flush redirects the -% pretty-printer output to the functions out and flush. -% The out function performs the pretty-printer output. It is -% called with a string s, a start position p, and a number of -% characters n; it is supposed to output characters p to p + n - -% 1 of s. The flush function is called whenever the -% pretty-printer is flushed using print_flush or print_newline. -% -%<< -% val get_formatter_output_functions : -% unit -> (string -> int -> int -> unit) * (unit -> unit) -%>> -% -% Return the current output functions of the pretty-printer. -% -% -%Changing the meaning of printing tags -%===================================== -% -%<< -% type formatter_tag_functions = { -% mark_open_tag : tag -> string ; -% mark_close_tag : tag -> string ; -% print_open_tag : tag -> unit ; -% print_close_tag : tag -> unit ; -% } -%>> -% -% The tag handling functions specific to a formatter: mark -% versions are the --tag marking-- functions that associate a -% string marker to a tag in order for the pretty-printing engine -% to flush those markers as 0 length tokens in the output device -% of the formatter. print versions are the --tag printing-- -% functions that can perform regular printing when a tag is -% closed or opened. -% -%<< -% val set_formatter_tag_functions : formatter_tag_functions -> unit -%>> -% -% set_formatter_tag_functions tag_funs changes the meaning of opening and -%closing tags to use the functions in tag_funs. -% When opening a tag name t, the string t is passed to the opening tag marking -%function (the mark_open_tag field of the record tag_funs), that must return -%the opening tag marker for that name. When the next call to close_tag () -%happens, the tag name t is sent back to the closing tag marking function (the -%mark_close_tag field of record tag_funs), that must return a closing tag -%marker for that name. -% The print_ field of the record contains the functions that are called at tag -%opening and tag closing time, to output regular material in the pretty-printer -%queue. -%<< -% val get_formatter_tag_functions : unit -> formatter_tag_functions -%>> -% -% Return the current tag functions of the pretty-printer. -% -% -%Changing the meaning of pretty printing (indentation, line breaking, and -%======================================================================== -%printing material) -%================== -% -%<< -% val set_all_formatter_output_functions : -% out:(string -> int -> int -> unit) -> -% flush:(unit -> unit) -> -% newline:(unit -> unit) -> spaces:(int -> unit) -> unit -%>> -% -% set_all_formatter_output_functions out flush outnewline -% outspace redirects the pretty-printer output to the functions -% out and flush as described in set_formatter_output_functions. -% In addition, the pretty-printer function that outputs a newline -% is set to the function outnewline and the function that outputs -% indentation spaces is set to the function outspace. -% This way, you can change the meaning of indentation (which can -% be something else than just printing space characters) and the -% meaning of new lines opening (which can be connected to any -% other action needed by the application at hand). The two -% functions outspace and outnewline are normally connected to out -% and flush: respective default values for outspace and -% outnewline are out (String.make n - -) 0 n and out "\n" 0 1. -% -%<< -% val get_all_formatter_output_functions : -% unit -> -% (string -> int -> int -> unit) * (unit -> unit) * (unit -> unit) * -% (int -> unit) -%>> -% -% Return the current output functions of the pretty-printer, -% including line breaking and indentation functions. -% -% -%Multiple formatted output -%========================= -% -%<< -% type formatter -%>> -% -% Abstract data type corresponding to a pretty-printer (also -% called a formatter) and all its machinery. Defining new -% pretty-printers permits the output of material in parallel on -% several channels. Parameters of a pretty-printer are local to -% this pretty-printer: margin, maximum indentation limit, maximum -% number of boxes simultaneously opened, ellipsis, and so on, are -% specific to each pretty-printer and may be fixed independently. -% Given an output channel oc, a new formatter writing to that -% channel is obtained by calling formatter_of_out_channel oc. -% Alternatively, the make_formatter function allocates a new -% formatter with explicit output and flushing functions -% (convenient to output material to strings for instance). -% -%<< -% val formatter_of_out_channel : Pervasives.out_channel -> formatter -%>> -% -% formatter_of_out_channel oc returns a new formatter that -% writes to the corresponding channel oc. -% -%<< -% val std_formatter : formatter -%>> -% -% The standard formatter used by the formatting functions above. -% It is defined as formatter_of_out_channel stdout. -% -%<< -% val err_formatter : formatter -%>> -% -% A formatter to use with formatting functions below for output -% to standard error. It is defined as formatter_of_out_channel -% stderr. -% -%<< -% val formatter_of_buffer : Buffer.t -> formatter -%>> -% -% formatter_of_buffer b returns a new formatter writing to -% buffer b. As usual, the formatter has to be flushed at the end -% of pretty printing, using pp_print_flush or pp_print_newline, -% to display all the pending material. -% -%<< -% val stdbuf : Buffer.t -%>> -% -% The string buffer in which str_formatter writes. -% -%<< -% val str_formatter : formatter -%>> -% -% A formatter to use with formatting functions below for output -% to the stdbuf string buffer. str_formatter is defined as -% formatter_of_buffer stdbuf. -% -%<< -% val flush_str_formatter : unit -> string -%>> -% -% Returns the material printed with str_formatter, flushes the -% formatter and resets the corresponding buffer. -% -%<< -% val make_formatter : -% (string -> int -> int -> unit) -> (unit -> unit) -> formatter -%>> -% -% make_formatter out flush returns a new formatter that writes -% according to the output function out, and the flushing function -% flush. Hence, a formatter to the out channel oc is returned by -% make_formatter (output oc) (fun () -> flush oc). -% -% -%Basic functions to use with formatters -%====================================== -% -%<< -% val pp_open_hbox : formatter -> unit -> unit -%>> -% -%<< -% val pp_open_vbox : formatter -> int -> unit -%>> -% -%<< -% val pp_open_hvbox : formatter -> int -> unit -%>> -% -%<< -% val pp_open_hovbox : formatter -> int -> unit -%>> -% -%<< -% val pp_open_box : formatter -> int -> unit -%>> -% -%<< -% val pp_close_box : formatter -> unit -> unit -%>> -% -%<< -% val pp_open_tag : formatter -> string -> unit -%>> -% -%<< -% val pp_close_tag : formatter -> unit -> unit -%>> -% -%<< -% val pp_print_string : formatter -> string -> unit -%>> -% -%<< -% val pp_print_as : formatter -> int -> string -> unit -%>> -% -%<< -% val pp_print_int : formatter -> int -> unit -%>> -% -%<< -% val pp_print_float : formatter -> float -> unit -%>> -% -%<< -% val pp_print_char : formatter -> char -> unit -%>> -% -%<< -% val pp_print_bool : formatter -> bool -> unit -%>> -% -%<< -% val pp_print_break : formatter -> int -> int -> unit -%>> -% -%<< -% val pp_print_cut : formatter -> unit -> unit -%>> -% -%<< -% val pp_print_space : formatter -> unit -> unit -%>> -% -%<< -% val pp_force_newline : formatter -> unit -> unit -%>> -% -%<< -% val pp_print_flush : formatter -> unit -> unit -%>> -% -%<< -% val pp_print_newline : formatter -> unit -> unit -%>> -% -%<< -% val pp_print_if_newline : formatter -> unit -> unit -%>> -% -%<< -% val pp_open_tbox : formatter -> unit -> unit -%>> -% -%<< -% val pp_close_tbox : formatter -> unit -> unit -%>> -% -%<< -% val pp_print_tbreak : formatter -> int -> int -> unit -%>> -% -%<< -% val pp_set_tab : formatter -> unit -> unit -%>> -% -%<< -% val pp_print_tab : formatter -> unit -> unit -%>> -% -%<< -% val pp_set_tags : formatter -> bool -> unit -%>> -% -%<< -% val pp_set_print_tags : formatter -> bool -> unit -%>> -% -%<< -% val pp_set_mark_tags : formatter -> bool -> unit -%>> -% -%<< -% val pp_get_print_tags : formatter -> unit -> bool -%>> -% -%<< -% val pp_get_mark_tags : formatter -> unit -> bool -%>> -% -%<< -% val pp_set_margin : formatter -> int -> unit -%>> -% -%<< -% val pp_get_margin : formatter -> unit -> int -%>> -% -%<< -% val pp_set_max_indent : formatter -> int -> unit -%>> -% -%<< -% val pp_get_max_indent : formatter -> unit -> int -%>> -% -%<< -% val pp_set_max_boxes : formatter -> int -> unit -%>> -% -%<< -% val pp_get_max_boxes : formatter -> unit -> int -%>> -% -%<< -% val pp_over_max_boxes : formatter -> unit -> bool -%>> -% -%<< -% val pp_set_ellipsis_text : formatter -> string -> unit -%>> -% -%<< -% val pp_get_ellipsis_text : formatter -> unit -> string -%>> -% -%<< -% val pp_set_formatter_out_channel : -% formatter -> Pervasives.out_channel -> unit -%>> -% -%<< -% val pp_set_formatter_output_functions : -% formatter -> (string -> int -> int -> unit) -> (unit -> unit) -> unit -%>> -% -%<< -% val pp_get_formatter_output_functions : -% formatter -> unit -> (string -> int -> int -> unit) * (unit -> unit) -%>> -% -%<< -% val pp_set_all_formatter_output_functions : -% formatter -> -% out:(string -> int -> int -> unit) -> -% flush:(unit -> unit) -> -% newline:(unit -> unit) -> spaces:(int -> unit) -> unit -%>> -% -%<< -% val pp_get_all_formatter_output_functions : -% formatter -> -% unit -> -% (string -> int -> int -> unit) * (unit -> unit) * (unit -> unit) * -% (int -> unit) -%>> -% -%<< -% val pp_set_formatter_tag_functions : -% formatter -> formatter_tag_functions -> unit -%>> -% -%<< -% val pp_get_formatter_tag_functions : -% formatter -> unit -> formatter_tag_functions -%>> -% -% These functions are the basic ones: usual functions operating -% on the standard formatter are defined via partial evaluation of -% these primitives. For instance, print_string is equal to -% pp_print_string std_formatter. -% -% -%printf like functions for pretty-printing. -%========================================== -% -%<< -% val fprintf : formatter -> ('a, formatter, unit) Pervasives.format -> 'a -%>> -% -% fprintf ff format arg1 ... argN formats the arguments arg1 to -% argN according to the format string format, and outputs the -% resulting string on the formatter ff. The format is a character -% string which contains three types of objects: plain characters -% and conversion specifications as specified in the printf -% module, and pretty-printing indications. The pretty-printing -% indication characters are introduced by a @ character, and -% their meanings are: -% -% - @[: open a pretty-printing box. The type and offset of the -% box may be optionally specified with the following syntax: -% the < character, followed by an optional box type indication, -% then an optional integer offset, and the closing > -% character. Box type is one of h, v, hv, b, or hov, which -% stand respectively for an horizontal box, a vertical box, an -% --horizontal-vertical-- box, or an --horizontal or -% vertical-- box (b standing for an --horizontal or vertical-- -% box demonstrating indentation and hov standing for a -% regular--horizontal or vertical-- box). For instance, @[ opens an --horizontal or vertical-- box with indentation -% 2 as obtained with open_hovbox 2. For more details about -% boxes, see the various box opening functions open_*box. -% - @]: close the most recently opened pretty-printing box. -% - @,: output a good break as with print_cut (). -% - @ : output a space, as with print_space (). -% - @\n: force a newline, as with force_newline (). -% - @;: output a good break as with print_break. The nspaces and -% offset parameters of the break may be optionally specified -% with the following syntax: the < character, followed by an -% integer nspaces value, then an integer offset, and a closing -% > character. If no parameters are provided, the good break -% defaults to a space. -% - @?: flush the pretty printer as with print_flush (). This is -% equivalent to the conversion %!. -% - @.: flush the pretty printer and output a new line, as with -% print_newline (). -% - @: print the following item as if it were of length n. -% Hence, printf "@<0>%s" arg is equivalent to print_as 0 arg. -% If @ is not followed by a conversion specification, then -% the following character of the format is printed as if it -% were of length n. -% - @{: open a tag. The name of the tag may be optionally -% specified with the following syntax: the < character, -% followed by an optional string specification, and the -% closing > character. The string specification is any -% character string that does not contain the closing character -% ->-. If omitted, the tag name defaults to the empty string. -% For more details about tags, see the functions open_tag and -% close_tag. -% - @}: close the most recently opened tag. -% - @@: print a plain @ character. -% -% Example: printf "@[%s@ %d@]" "x =" 1 is equivalent to open_box -% (); print_string "x ="; print_space (); print_int 1; close_box -% (). It prints x = 1 within a pretty-printing box. -% -%<< -% val printf : ('a, formatter, unit) Pervasives.format -> 'a -%>> -% -% Same as fprintf above, but output on std_formatter. -% -%<< -% val eprintf : ('a, formatter, unit) Pervasives.format -> 'a -%>> -% -% Same as fprintf above, but output on err_formatter. -% -%<< -% val sprintf : ('a, unit, string) Pervasives.format -> 'a -%>> -% -% Same as printf above, but instead of printing on a formatter, -% returns a string containing the result of formatting the -% arguments. Note that the pretty-printer queue is flushed at the -% end of each call to sprintf. -% In case of multiple and related calls to sprintf to output -% material on a single string, you should consider using fprintf -% with a formatter writing to a buffer: flushing the buffer at the -% end of pretty-printing returns the desired string. You can also -% use the predefined formatter str_formatter and call -% flush_str_formatter () to get the result. -% -%<< -% val bprintf : Buffer.t -> ('a, formatter, unit) Pervasives.format -> 'a -%>> -% -% Same as sprintf above, but instead of printing on a string, -% writes into the given extensible buffer. As for sprintf, the -% pretty-printer queue is flushed at the end of each call to -% bprintf. -% In case of multiple and related calls to bprintf to output -% material on the same buffer b, you should consider using -% fprintf with a formatter writing to the buffer b (as obtained -% by formatter_of_buffer b), otherwise the repeated flushes of the -% pretty-printer queue would result in unexpected and badly -% formatted output. -% -%<< -% val kfprintf : -% (formatter -> 'a) -> -% formatter -> ('b, formatter, unit, 'a) format4 -> 'b -%>> -% -% Same as fprintf above, but instead of returning immediately, -% passes the formatter to its first argument at the end of -% printing. -% -%<< -% val ksprintf : (string -> 'a) -> ('b, unit, string, 'a) format4 -> 'b -%>> -% -% Same as sprintf above, but instead of returning the string, -% passes it to the first argument. -% -%<< -% val kprintf : (string -> 'a) -> ('b, unit, string, 'a) format4 -> 'b -%>> -% -% A deprecated synonym for ksprintf. -% -% -% -%20.10 Module Gc : Memory management control and statistics; finalised values. -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= -% -% -% 0.5cm -%<< -% type stat = { -% minor_words : float ; -%>> -% -% Number of words allocated in the minor heap since the program -% was started. This number is accurate in byte'code programs, but -% only an approximation in programs compiled to native code. -% -%<< -% promoted_words : float ; -%>> -% -% Number of words allocated in the minor heap that survived a -% minor collection and were moved to the major heap since the -% program was started. -% -%<< -% major_words : float ; -%>> -% -% Number of words allocated in the major heap, including the -% promoted words, since the program was started. -% -%<< -% minor_collections : int ; -%>> -% -% Number of minor collections since the program was started. -% -%<< -% major_collections : int ; -%>> -% -% Number of major collection cycles completed since the program -% was started. -% -%<< -% heap_words : int ; -%>> -% -% Total size of the major heap, in words. -% -%<< -% heap_chunks : int ; -%>> -% -% Number of contiguous pieces of memory that make up the major -% heap. -% -%<< -% live_words : int ; -%>> -% -% Number of words of live data in the major heap, including the -% header words. -% -%<< -% live_blocks : int ; -%>> -% -% Number of live blocks in the major heap. -% -%<< -% free_words : int ; -%>> -% -% Number of words in the free list. -% -%<< -% free_blocks : int ; -%>> -% -% Number of blocks in the free list. -% -%<< -% largest_free : int ; -%>> -% -% Size (in words) of the largest block in the free list. -% -%<< -% fragments : int ; -%>> -% -% Number of wasted words due to fragmentation. These are 1-words -% free blocks placed between two live blocks. They are not -% available for allocation. -% -%<< -% compactions : int ; -%>> -% -% Number of heap compactions since the program was started. -% -%<< -% top_heap_words : int ; -%>> -% -% Maximum size reached by the major heap, in words. -% -%<< -% } -%>> -% -% The memory management counters are returned in a stat record. -% The total amount of memory allocated by the program since it was -% started is (in words) minor_words + major_words - -% promoted_words. Multiply by the word size (4 on a 32'bit -% machine, 8 on a 64'bit machine) to get the number of bytes. -% -%<< -% type control = { -% mutable minor_heap_size : int ; -%>> -% -% The size (in words) of the minor heap. Changing this parameter -% will trigger a minor collection. Default: 32k. -% -%<< -% mutable major_heap_increment : int ; -%>> -% -% The minimum number of words to add to the major heap when -% increasing it. Default: 62k. -% -%<< -% mutable space_overhead : int ; -%>> -% -% The major GC speed is computed from this parameter. This is -% the memory that will be "wasted" because the GC does not -% immediatly collect unreachable blocks. It is expressed as a -% percentage of the memory used for live data. The GC will work -% more (use more CPU time and collect blocks more eagerly) if -% space_overhead is smaller. Default: 80. -% -%<< -% mutable verbose : int ; -%>> -% -% This value controls the GC messages on standard error output. -% It is a sum of some of the following flags, to print messages -% on the corresponding events: -% -% - 0x001 Start of major GC cycle. -% - 0x002 Minor collection and major GC slice. -% - 0x004 Growing and shrinking of the heap. -% - 0x008 Resizing of stacks and memory manager tables. -% - 0x010 Heap compaction. -% - 0x020 Change of GC parameters. -% - 0x040 Computation of major GC slice size. -% - 0x080 Calling of finalisation functions. -% - 0x100 Bytecode executable search at start-up. -% - 0x200 Computation of compaction triggering condition. -% Default: 0. -% -% -%<< -% mutable max_overhead : int ; -%>> -% -% Heap compaction is triggered when the estimated amount of -% "wasted" memory is more than max_overhead percent of the amount -% of live data. If max_overhead is set to 0, heap compaction is -% triggered at the end of each major GC cycle (this setting is -% intended for testing purposes only). If max_overhead >= -% 1000000, compaction is never triggered. Default: 500. -% -%<< -% mutable stack_limit : int ; -%>> -% -% The maximum size of the stack (in words). This is only -% relevant to the byte'code runtime, as the native code runtime -% uses the operating system-s stack. Default: 256k. -% -%<< -% } -%>> -% -% The GC parameters are given as a control record. -% -%<< -% val stat : unit -> stat -%>> -% -% Return the current values of the memory management counters in -% a stat record. This function examines every heap block to get -% the statistics. -% -%<< -% val quick_stat : unit -> stat -%>> -% -% Same as stat except that live_words, live_blocks, free_words, -% free_blocks, largest_free, and fragments are set to 0. This -% function is much faster than stat because it does not need to go -% through the heap. -% -%<< -% val counters : unit -> float * float * float -%>> -% -% Return (minor_words, promoted_words, major_words). This -% function is as fast at quick_stat. -% -%<< -% val get : unit -> control -%>> -% -% Return the current values of the GC parameters in a control -% record. -% -%<< -% val set : control -> unit -%>> -% -% set r changes the GC parameters according to the control record -% r. The normal usage is: Gc.set { (Gc.get()) with Gc.verbose = -% 0x00d } -% -%<< -% val minor : unit -> unit -%>> -% -% Trigger a minor collection. -% -%<< -% val major_slice : int -> int -%>> -% -% Do a minor collection and a slice of major collection. The -% argument is the size of the slice, 0 to use the -% automatically'computed slice size. In all cases, the result is -% the computed slice size. -% -%<< -% val major : unit -> unit -%>> -% -% Do a minor collection and finish the current major collection -% cycle. -% -%<< -% val full_major : unit -> unit -%>> -% -% Do a minor collection, finish the current major collection -% cycle, and perform a complete new cycle. This will collect all -% currently unreachable blocks. -% -%<< -% val compact : unit -> unit -%>> -% -% Perform a full major collection and compact the heap. Note that -% heap compaction is a lengthy operation. -% -%<< -% val print_stat : Pervasives.out_channel -> unit -%>> -% -% Print the current values of the memory management counters (in -% human-readable form) into the channel argument. -% -%<< -% val allocated_bytes : unit -> float -%>> -% -% Return the total number of bytes allocated since the program -% was started. It is returned as a float to avoid overflow -% problems with int on 32'bit machines. -% -%<< -% val finalise : ('a -> unit) -> 'a -> unit -%>> -% -% finalise f v registers f as a finalisation function for v. v -% must be heap'allocated. f will be called with v as argument at -% some point between the first time v becomes unreachable and the -% time v is collected by the GC. Several functions can be -% registered for the same value, or even several instances of the -% same function. Each instance will be called once (or never, if -% the program terminates before v becomes unreachable). -% The GC will call the finalisation functions in the order of -% deallocation. When several values become unreachable at the -% same time (i.e. during the same GC cycle), the finalisation -% functions will be called in the reverse order of the -% corresponding calls to finalise. If finalise is called in the -% same order as the values are allocated, that means each value -% is finalised before the values it depends upon. Of course, this -% becomes false if additional dependencies are introduced by -% assignments. -% Anything reachable from the closure of finalisation functions -% is considered reachable, so the following code will not work as -% expected: -% -% - let v = ... in Gc.finalise (fun x -> ...) v -% -% Instead you should write: -% -% - let f = fun x -> ... ;; let v = ... in Gc.finalise f v -% -% The f function can use all features of O'caml, including -% assignments that make the value reachable again. It can also -% loop forever (in this case, the other finalisation functions -% will be called during the execution of f). It can call finalise -% on v or other values to register other functions or even -% itself. It can raise an exception; in this case the exception -% will interrupt whatever the program was doing when the function -% was called. -% finalise will raise Invalid_argument if v is not -% heap'allocated. Some examples of values that are not -% heap'allocated are integers, constant constructors, booleans, -% the empty array, the empty list, the unit value. The exact list -% of what is heap'allocated or not is implementation-dependent. -% Some constant values can be heap'allocated but never deallocated -% during the lifetime of the program, for example a list of -% integer constants; this is also implementation-dependent. You -% should also be aware that compiler optimisations may duplicate -% some immutable values, for example floating-point numbers when -% stored into arrays, so they can be finalised and collected while -% another copy is still in use by the program. -% The results of calling String.make[20.33], String.create[20.33], -% Array.make[20.2], and Pervasives.ref[19.2] are guaranteed to be -% heap'allocated and non'constant except when the length argument -% is 0. -% -%<< -% val finalise_release : unit -> unit -%>> -% -% A finalisation function may call finalise_release to tell the -% GC that it can launch the next finalisation function without -% waiting for the current one to return. -% -%<< -% type alarm -%>> -% -% An alarm is a piece of data that calls a user function at the -% end of each major GC cycle. The following functions are -% provided to create and delete alarms. -% -%<< -% val create_alarm : (unit -> unit) -> alarm -%>> -% -% create_alarm f will arrange for f to be called at the end of -% each major GC cycle, starting with the current cycle or the -% next one. A value of type alarm is returned that you can use -% to call delete_alarm. -% -%<< -% val delete_alarm : alarm -> unit -%>> -% -% delete_alarm a will stop the calls to the function associated -% to a. Calling delete_alarm a again has no effect. -% -% -% -%20.11 Module Genlex : A generic lexical analyzer. -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= -% -% -% This module implements a simple --standard-- lexical analyzer, presented as -%a function from character streams to token streams. It implements roughly the -%lexical conventions of Caml, but is parameterized by the set of keywords of -%your language. -% Example: a lexer suitable for a desk calculator is obtained by -%<< -% let lexer = make_lexer ["+";"-";"*";"/";"let";"="; "("; ")"] -%>> -% -% The associated parser would be a function from token stream to, for -%instance, int, and would have rules such as: -%<< -% -% let parse_expr = parser -% [< -Int n >] -> n -% | [< -Kwd "("; n = parse_expr; -Kwd ")" >] -> n -% | [< n1 = parse_expr; n2 = parse_remainder n1 >] -> n2 -% and parse_remainder n1 = parser -% [< -Kwd "+"; n2 = parse_expr >] -> n1+n2 -% | ... -% -%>> -% -% 0.5cm -%<< -% type token = -% | Kwd of string -% | Ident of string -% | Int of int -% | Float of float -% | String of string -% | Char of char -%>> -% -% The type of tokens. The lexical classes are: Int and Float for -% integer and floating-point numbers; String for string literals, -% enclosed in double quotes; Char for character literals, -% enclosed in single quotes; Ident for identifiers (either -% sequences of letters, digits, underscores and quotes, or -% sequences of --operator characters-- such as +, *, etc); and -% Kwd for keywords (either identifiers or single --special -% characters-- such as (, }, etc). -% -%<< -% val make_lexer : string list -> char Stream.t -> token Stream.t -%>> -% -% Construct the lexer function. The first argument is the list of -% keywords. An identifier s is returned as Kwd s if s belongs to -% this list, and as Ident s otherwise. A special character s is -% returned as Kwd s if s belongs to this list, and cause a -% lexical error (exception Parse_error) otherwise. Blanks and -% newlines are skipped. Comments delimited by (* and *) are -% skipped as well, and can be nested. -% -% -% -%20.12 Module Hashtbl : Hash tables and hash functions. -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* -% -% -% Hash tables are hashed association tables, with in-place modification. -% 0.5cm -% -%Generic interface -%================= -% -%<< -% type ('a, 'b) t -%>> -% -% The type of hash tables from type 'a to type 'b. -% -%<< -% val create : int -> ('a, 'b) t -%>> -% -% Hashtbl.create n creates a new, empty hash table, with initial -% size n. For best results, n should be on the order of the -% expected number of elements that will be in the table. The -% table grows as needed, so n is just an initial guess. -% -%<< -% val clear : ('a, 'b) t -> unit -%>> -% -% Empty a hash table. -% -%<< -% val add : ('a, 'b) t -> 'a -> 'b -> unit -%>> -% -% Hashtbl.add tbl x y adds a binding of x to y in table tbl. -% Previous bindings for x are not removed, but simply hidden. -% That is, after performing Hashtbl.remove[20.12] tbl x, the -% previous binding for x, if any, is restored. (Same behavior as -% with association lists.) -% -%<< -% val copy : ('a, 'b) t -> ('a, 'b) t -%>> -% -% Return a copy of the given hashtable. -% -%<< -% val find : ('a, 'b) t -> 'a -> 'b -%>> -% -% Hashtbl.find tbl x returns the current binding of x in tbl, or -% raises Not_found if no such binding exists. -% -%<< -% val find_all : ('a, 'b) t -> 'a -> 'b list -%>> -% -% Hashtbl.find_all tbl x returns the list of all data associated -% with x in tbl. The current binding is returned first, then the -% previous bindings, in reverse order of introduction in the -% table. -% -%<< -% val mem : ('a, 'b) t -> 'a -> bool -%>> -% -% Hashtbl.mem tbl x checks if x is bound in tbl. -% -%<< -% val remove : ('a, 'b) t -> 'a -> unit -%>> -% -% Hashtbl.remove tbl x removes the current binding of x in tbl, -% restoring the previous binding if it exists. It does nothing if -% x is not bound in tbl. -% -%<< -% val replace : ('a, 'b) t -> 'a -> 'b -> unit -%>> -% -% Hashtbl.replace tbl x y replaces the current binding of x in -% tbl by a binding of x to y. If x is unbound in tbl, a binding -% of x to y is added to tbl. This is functionally equivalent to -% Hashtbl.remove[20.12] tbl x followed by Hashtbl.add[20.12] tbl -% x y. -% -%<< -% val iter : ('a -> 'b -> unit) -> ('a, 'b) t -> unit -%>> -% -% Hashtbl.iter f tbl applies f to all bindings in table tbl. f -% receives the key as first argument, and the associated value as -% second argument. Each binding is presented exactly once to f. -% The order in which the bindings are passed to f is unspecified. -% However, if the table contains several bindings for the same -% key, they are passed to f in reverse order of introduction, -% that is, the most recent binding is passed first. -% -%<< -% val fold : ('a -> 'b -> 'c -> 'c) -> ('a, 'b) t -> 'c -> 'c -%>> -% -% Hashtbl.fold f tbl init computes (f kN dN ... (f k1 d1 -% init)...), where k1 ... kN are the keys of all bindings in tbl, -% and d1 ... dN are the associated values. Each binding is -% presented exactly once to f. The order in which the bindings -% are passed to f is unspecified. However, if the table contains -% several bindings for the same key, they are passed to f in -% reverse order of introduction, that is, the most recent binding -% is passed first. -% -%<< -% val length : ('a, 'b) t -> int -%>> -% -% Hashtbl.length tbl returns the number of bindings in tbl. -% Multiple bindings are counted multiply, so Hashtbl.length gives -% the number of times Hashtbl.iter calls its first argument. -% -% -%Functorial interface -%==================== -% -%<< -% module type HashedType = >> -% -% sig -% -% -% << -% type t -% >> -% -% The type of the hashtable keys. -% -% << -% val equal : t -> t -> bool -% >> -% -% The equality predicate used to compare keys. -% -% << -% val hash : t -> int -% >> -% -% A hashing function on keys. It must be such that if two keys -% are equal according to equal, then they have identical hash -% values as computed by hash. Examples: suitable (equal, -% hash) pairs for arbitrary key types include ((=), -% Hashtbl.hash[20.12]) for comparing objects by structure, -% ((fun x y -> compare x y = 0), Hashtbl.hash[20.12]) for -% comparing objects by structure and handling -% Pervasives.nan[19.2] correctly, and ((==), -% Hashtbl.hash[20.12]) for comparing objects by addresses -% (e.g. for cyclic keys). -% -% -% - end -% -% The input signature of the functor Hashtbl.Make[20.12]. -% -%<< -% module type S = >> -% -% sig -% -% -% << -% type key -% >> -% -% << -% type 'a t -% >> -% -% << -% val create : int -> 'a t -% >> -% -% << -% val clear : 'a t -> unit -% >> -% -% << -% val copy : 'a t -> 'a t -% >> -% -% << -% val add : 'a t -> key -> 'a -> unit -% >> -% -% << -% val remove : 'a t -> key -> unit -% >> -% -% << -% val find : 'a t -> key -> 'a -% >> -% -% << -% val find_all : 'a t -> key -> 'a list -% >> -% -% << -% val replace : 'a t -> key -> 'a -> unit -% >> -% -% << -% val mem : 'a t -> key -> bool -% >> -% -% << -% val iter : (key -> 'a -> unit) -> 'a t -> unit -% >> -% -% << -% val fold : (key -> 'a -> 'b -> 'b) -> 'a t -> 'b -> 'b -% >> -% -% << -% val length : 'a t -> int -% >> -% -% - end -% -% The output signature of the functor Hashtbl.Make[20.12]. -% -%<< -% module Make : >> -% -% functor (H : HashedType) -> S with type key = H.t -% Functor building an implementation of the hashtable structure. -% The functor Hashtbl.Make returns a structure containing a type -% key of keys and a type 'a t of hash tables associating data of -% type 'a to keys of type key. The operations perform similarly -% to those of the generic interface, but use the hashing and -% equality functions specified in the functor argument H instead -% of generic equality and hashing. -% -% -%The polymorphic hash primitive -%============================== -% -%<< -% val hash : 'a -> int -%>> -% -% Hashtbl.hash x associates a positive integer to any value of -% any type. It is guaranteed that if x = y or Pervasives.compare -% x y = 0, then hash x = hash y. Moreover, hash always -% terminates, even on cyclic structures. -% -%<< -% val hash_param : int -> int -> 'a -> int -%>> -% -% Hashtbl.hash_param n m x computes a hash value for x, with the -% same properties as for hash. The two extra parameters n and m -% give more precise control over hashing. Hashing performs a -% depth-first, right-to-left traversal of the structure x, -% stopping after n meaningful nodes were encountered, or m nodes, -% meaningful or not, were encountered. Meaningful nodes are: -% integers; floating-point numbers; strings; characters; -% booleans; and constant constructors. Larger values of m and n -% means that more nodes are taken into account to compute the -% final hash value, and therefore collisions are less likely to -% happen. However, hashing takes longer. The parameters m and n -% govern the tradeoff between accuracy and speed. -% -% -% -%20.13 Module Int32 : 32'bit integers. -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= -% -% -% This module provides operations on the type int32 of signed 32'bit integers. -%Unlike the built-in int type, the type int32 is guaranteed to be exactly -%32'bit wide on all platforms. All arithmetic operations over int32 are taken -%modulo 2^32. -% Performance notice: values of type int32 occupy more memory space than -%values of type int, and arithmetic operations on int32 are generally slower -%than those on int. Use int32 only when the application requires exact 32'bit -%arithmetic. -% 0.5cm -%<< -% val zero : int32 -%>> -% -% The 32'bit integer 0. -% -%<< -% val one : int32 -%>> -% -% The 32'bit integer 1. -% -%<< -% val minus_one : int32 -%>> -% -% The 32'bit integer -1. -% -%<< -% val neg : int32 -> int32 -%>> -% -% Unary negation. -% -%<< -% val add : int32 -> int32 -> int32 -%>> -% -% Addition. -% -%<< -% val sub : int32 -> int32 -> int32 -%>> -% -% Subtraction. -% -%<< -% val mul : int32 -> int32 -> int32 -%>> -% -% Multiplication. -% -%<< -% val div : int32 -> int32 -> int32 -%>> -% -% Integer division. Raise Division_by_zero if the second -% argument is zero. This division rounds the real quotient of its -% arguments towards zero, as specified for Pervasives.(/)[19.2]. -% -%<< -% val rem : int32 -> int32 -> int32 -%>> -% -% Integer remainder. If y is not zero, the result of Int32.rem x -% y satisfies the following property: x = Int32.add (Int32.mul -% (Int32.div x y) y) (Int32.rem x y). If y = 0, Int32.rem x y -% raises Division_by_zero. -% -%<< -% val succ : int32 -> int32 -%>> -% -% Successor. Int32.succ x is Int32.add x Int32.one. -% -%<< -% val pred : int32 -> int32 -%>> -% -% Predecessor. Int32.pred x is Int32.sub x Int32.one. -% -%<< -% val abs : int32 -> int32 -%>> -% -% Return the absolute value of its argument. -% -%<< -% val max_int : int32 -%>> -% -% The greatest representable 32'bit integer, 2^31 - 1. -% -%<< -% val min_int : int32 -%>> -% -% The smallest representable 32'bit integer, -2^31. -% -%<< -% val logand : int32 -> int32 -> int32 -%>> -% -% Bitwise logical and. -% -%<< -% val logor : int32 -> int32 -> int32 -%>> -% -% Bitwise logical or. -% -%<< -% val logxor : int32 -> int32 -> int32 -%>> -% -% Bitwise logical exclusive or. -% -%<< -% val lognot : int32 -> int32 -%>> -% -% Bitwise logical negation -% -%<< -% val shift_left : int32 -> int -> int32 -%>> -% -% Int32.shift_left x y shifts x to the left by y bits. The -% result is unspecified if y < 0 or y >= 32. -% -%<< -% val shift_right : int32 -> int -> int32 -%>> -% -% Int32.shift_right x y shifts x to the right by y bits. This is -% an arithmetic shift: the sign bit of x is replicated and -% inserted in the vacated bits. The result is unspecified if y < -% 0 or y >= 32. -% -%<< -% val shift_right_logical : int32 -> int -> int32 -%>> -% -% Int32.shift_right_logical x y shifts x to the right by y bits. -% This is a logical shift: zeroes are inserted in the vacated bits -% regardless of the sign of x. The result is unspecified if y < -% 0 or y >= 32. -% -%<< -% val of_int : int -> int32 -%>> -% -% Convert the given integer (type int) to a 32'bit integer (type -% int32). -% -%<< -% val to_int : int32 -> int -%>> -% -% Convert the given 32'bit integer (type int32) to an integer -% (type int). On 32'bit platforms, the 32'bit integer is taken -% modulo 2^31, i.e. the high-order bit is lost during the -% conversion. On 64'bit platforms, the conversion is exact. -% -%<< -% val of_float : float -> int32 -%>> -% -% Convert the given floating-point number to a 32'bit integer, -% discarding the fractional part (truncate towards 0). The result -% of the conversion is undefined if, after truncation, the number -% is outside the range [Int32.min_int[20.13], -% Int32.max_int[20.13]]. -% -%<< -% val to_float : int32 -> float -%>> -% -% Convert the given 32'bit integer to a floating-point number. -% -%<< -% val of_string : string -> int32 -%>> -% -% Convert the given string to a 32'bit integer. The string is -% read in decimal (by default) or in hexadecimal, octal or binary -% if the string begins with 0x, 0o or 0b respectively. Raise -% Failure "int_of_string" if the given string is not a valid -% representation of an integer, or if the integer represented -% exceeds the range of integers representable in type int32. -% -%<< -% val to_string : int32 -> string -%>> -% -% Return the string representation of its argument, in signed -% decimal. -% -%<< -% val bits_of_float : float -> int32 -%>> -% -% Return the internal representation of the given float according -% to the IEEE 754 floating-point --single format-- bit layout. -% Bit 31 of the result represents the sign of the float; bits 30 -% to 23 represent the (biased) exponent; bits 22 to 0 represent -% the mantissa. -% -%<< -% val float_of_bits : int32 -> float -%>> -% -% Return the floating-point number whose internal representation, -% according to the IEEE 754 floating-point --single format-- bit -% layout, is the given int32. -% -%<< -% type t = int32 -%>> -% -% An alias for the type of 32'bit integers. -% -%<< -% val compare : t -> t -> int -%>> -% -% The comparison function for 32'bit integers, with the same -% specification as Pervasives.compare[19.2]. Along with the type -% t, this function compare allows the module Int32 to be passed -% as argument to the functors Set.Make[20.28] and -% Map.Make[20.18]. -% -% -% -%20.14 Module Int64 : 64'bit integers. -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= -% -% -% This module provides operations on the type int64 of signed 64'bit integers. -%Unlike the built-in int type, the type int64 is guaranteed to be exactly -%64'bit wide on all platforms. All arithmetic operations over int64 are taken -%modulo 2^64 -% Performance notice: values of type int64 occupy more memory space than -%values of type int, and arithmetic operations on int64 are generally slower -%than those on int. Use int64 only when the application requires exact 64'bit -%arithmetic. -% 0.5cm -%<< -% val zero : int64 -%>> -% -% The 64'bit integer 0. -% -%<< -% val one : int64 -%>> -% -% The 64'bit integer 1. -% -%<< -% val minus_one : int64 -%>> -% -% The 64'bit integer -1. -% -%<< -% val neg : int64 -> int64 -%>> -% -% Unary negation. -% -%<< -% val add : int64 -> int64 -> int64 -%>> -% -% Addition. -% -%<< -% val sub : int64 -> int64 -> int64 -%>> -% -% Subtraction. -% -%<< -% val mul : int64 -> int64 -> int64 -%>> -% -% Multiplication. -% -%<< -% val div : int64 -> int64 -> int64 -%>> -% -% Integer division. Raise Division_by_zero if the second -% argument is zero. This division rounds the real quotient of its -% arguments towards zero, as specified for Pervasives.(/)[19.2]. -% -%<< -% val rem : int64 -> int64 -> int64 -%>> -% -% Integer remainder. If y is not zero, the result of Int64.rem x -% y satisfies the following property: x = Int64.add (Int64.mul -% (Int64.div x y) y) (Int64.rem x y). If y = 0, Int64.rem x y -% raises Division_by_zero. -% -%<< -% val succ : int64 -> int64 -%>> -% -% Successor. Int64.succ x is Int64.add x Int64.one. -% -%<< -% val pred : int64 -> int64 -%>> -% -% Predecessor. Int64.pred x is Int64.sub x Int64.one. -% -%<< -% val abs : int64 -> int64 -%>> -% -% Return the absolute value of its argument. -% -%<< -% val max_int : int64 -%>> -% -% The greatest representable 64'bit integer, 2^63 - 1. -% -%<< -% val min_int : int64 -%>> -% -% The smallest representable 64'bit integer, -2^63. -% -%<< -% val logand : int64 -> int64 -> int64 -%>> -% -% Bitwise logical and. -% -%<< -% val logor : int64 -> int64 -> int64 -%>> -% -% Bitwise logical or. -% -%<< -% val logxor : int64 -> int64 -> int64 -%>> -% -% Bitwise logical exclusive or. -% -%<< -% val lognot : int64 -> int64 -%>> -% -% Bitwise logical negation -% -%<< -% val shift_left : int64 -> int -> int64 -%>> -% -% Int64.shift_left x y shifts x to the left by y bits. The -% result is unspecified if y < 0 or y >= 64. -% -%<< -% val shift_right : int64 -> int -> int64 -%>> -% -% Int64.shift_right x y shifts x to the right by y bits. This is -% an arithmetic shift: the sign bit of x is replicated and -% inserted in the vacated bits. The result is unspecified if y < -% 0 or y >= 64. -% -%<< -% val shift_right_logical : int64 -> int -> int64 -%>> -% -% Int64.shift_right_logical x y shifts x to the right by y bits. -% This is a logical shift: zeroes are inserted in the vacated bits -% regardless of the sign of x. The result is unspecified if y < -% 0 or y >= 64. -% -%<< -% val of_int : int -> int64 -%>> -% -% Convert the given integer (type int) to a 64'bit integer (type -% int64). -% -%<< -% val to_int : int64 -> int -%>> -% -% Convert the given 64'bit integer (type int64) to an integer -% (type int). On 64'bit platforms, the 64'bit integer is taken -% modulo 2^63, i.e. the high-order bit is lost during the -% conversion. On 32'bit platforms, the 64'bit integer is taken -% modulo 2^31, i.e. the top 33 bits are lost during the -% conversion. -% -%<< -% val of_float : float -> int64 -%>> -% -% Convert the given floating-point number to a 64'bit integer, -% discarding the fractional part (truncate towards 0). The result -% of the conversion is undefined if, after truncation, the number -% is outside the range [Int64.min_int[20.14], -% Int64.max_int[20.14]]. -% -%<< -% val to_float : int64 -> float -%>> -% -% Convert the given 64'bit integer to a floating-point number. -% -%<< -% val of_int32 : int32 -> int64 -%>> -% -% Convert the given 32'bit integer (type int32) to a 64'bit -% integer (type int64). -% -%<< -% val to_int32 : int64 -> int32 -%>> -% -% Convert the given 64'bit integer (type int64) to a 32'bit -% integer (type int32). The 64'bit integer is taken modulo 2^32, -% i.e. the top 32 bits are lost during the conversion. -% -%<< -% val of_nativeint : nativeint -> int64 -%>> -% -% Convert the given native integer (type nativeint) to a 64'bit -% integer (type int64). -% -%<< -% val to_nativeint : int64 -> nativeint -%>> -% -% Convert the given 64'bit integer (type int64) to a native -% integer. On 32'bit platforms, the 64'bit integer is taken -% modulo 2^32. On 64'bit platforms, the conversion is exact. -% -%<< -% val of_string : string -> int64 -%>> -% -% Convert the given string to a 64'bit integer. The string is -% read in decimal (by default) or in hexadecimal, octal or binary -% if the string begins with 0x, 0o or 0b respectively. Raise -% Failure "int_of_string" if the given string is not a valid -% representation of an integer, or if the integer represented -% exceeds the range of integers representable in type int64. -% -%<< -% val to_string : int64 -> string -%>> -% -% Return the string representation of its argument, in decimal. -% -%<< -% val bits_of_float : float -> int64 -%>> -% -% Return the internal representation of the given float according -% to the IEEE 754 floating-point --double format-- bit layout. -% Bit 63 of the result represents the sign of the float; bits 62 -% to 52 represent the (biased) exponent; bits 51 to 0 represent -% the mantissa. -% -%<< -% val float_of_bits : int64 -> float -%>> -% -% Return the floating-point number whose internal representation, -% according to the IEEE 754 floating-point --double format-- bit -% layout, is the given int64. -% -%<< -% type t = int64 -%>> -% -% An alias for the type of 64'bit integers. -% -%<< -% val compare : t -> t -> int -%>> -% -% The comparison function for 64'bit integers, with the same -% specification as Pervasives.compare[19.2]. Along with the type -% t, this function compare allows the module Int64 to be passed -% as argument to the functors Set.Make[20.28] and -% Map.Make[20.18]. -% -% -% -%20.15 Module Lazy : Deferred computations. -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* -% -% -% 0.5cm -%<< -% type 'a t = 'a lazy_t -%>> -% -% A value of type 'a Lazy.t is a deferred computation, called a -% suspension, that has a result of type 'a. The special -% expression syntax lazy (expr) makes a suspension of the -% computation of expr, without computing expr itself yet. -% "Forcing" the suspension will then compute expr and return its -% result. -% Note: lazy_t is the built-in type constructor used by the -% compiler for the lazy keyword. You should not use it directly. -% Always use Lazy.t instead. -% Note: if the program is compiled with the -rectypes option, -% ill-founded recursive definitions of the form let rec x = lazy x -% or let rec x = lazy(lazy(...(lazy x))) are accepted by the -% type'checker and lead, when forced, to ill-formed values that -% trigger infinite loops in the garbage collector and other parts -% of the run-time system. Without the -rectypes option, such -% ill-founded recursive definitions are rejected by the -% type'checker. -% -%<< -% exception Undefined -%>> -% -%<< -% val force : 'a t -> 'a -%>> -% -% force x forces the suspension x and returns its result. If x -% has already been forced, Lazy.force x returns the same value -% again without recomputing it. If it raised an exception, the -% same exception is raised again. Raise Undefined if the forcing -% of x tries to force x itself recursively. -% -%<< -% val force_val : 'a t -> 'a -%>> -% -% force_val x forces the suspension x and returns its result. If -% x has already been forced, force_val x returns the same value -% again without recomputing it. Raise Undefined if the forcing of -% x tries to force x itself recursively. If the computation of x -% raises an exception, it is unspecified whether force_val x -% raises the same exception or Undefined. -% -%<< -% val lazy_from_fun : (unit -> 'a) -> 'a t -%>> -% -% lazy_from_fun f is the same as lazy (f ()) but slightly more -% efficient. -% -%<< -% val lazy_from_val : 'a -> 'a t -%>> -% -% lazy_from_val v returns an already-forced suspension of v This -% is for special purposes only and should not be confused with -% lazy (v). -% -%<< -% val lazy_is_val : 'a t -> bool -%>> -% -% lazy_is_val x returns true if x has already been forced and -% did not raise an exception. -% -% -% -%20.16 Module Lexing : The run-time library for lexers generated by ocamllex. -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* -% -% -% 0.5cm -% -%Positions -%========= -% -%<< -% type position = { -% pos_fname : string ; -% pos_lnum : int ; -% pos_bol : int ; -% pos_cnum : int ; -% } -%>> -% -% A value of type position describes a point in a source file. -% pos_fname is the file name; pos_lnum is the line number; -% pos_bol is the offset of the beginning of the line (number of -% characters between the beginning of the file and the beginning -% of the line); pos_cnum is the offset of the position (number of -% characters between the beginning of the file and the position). -% -%<< -% val dummy_pos : position -%>> -% -% A value of type position, guaranteed to be different from any -% valid position. -% -% -%Lexer buffers -%============= -% -%<< -% type lexbuf = { -% refill_buff : lexbuf -> unit ; -% mutable lex_buffer : string ; -% mutable lex_buffer_len : int ; -% mutable lex_abs_pos : int ; -% mutable lex_start_pos : int ; -% mutable lex_curr_pos : int ; -% mutable lex_last_pos : int ; -% mutable lex_last_action : int ; -% mutable lex_eof_reached : bool ; -% mutable lex_mem : int array ; -% mutable lex_start_p : position ; -% mutable lex_curr_p : position ; -% } -%>> -% -% The type of lexer buffers. A lexer buffer is the argument -% passed to the scanning functions defined by the generated -% scanners. The lexer buffer holds the current state of the -% scanner, plus a function to refill the buffer from the input. -% Note that the lexing engine will only manage the pos_cnum field -% of lex_curr_p by updating it with the number of characters read -% since the start of the lexbuf. For the other fields to be -% accurate, they must be initialised before the first use of the -% lexbuf, and updated by the lexer actions. -% -%<< -% val from_channel : Pervasives.in_channel -> lexbuf -%>> -% -% Create a lexer buffer on the given input channel. -% Lexing.from_channel inchan returns a lexer buffer which reads -% from the input channel inchan, at the current reading position. -% -%<< -% val from_string : string -> lexbuf -%>> -% -% Create a lexer buffer which reads from the given string. -% Reading starts from the first character in the string. An -% end-of-input condition is generated when the end of the string -% is reached. -% -%<< -% val from_function : (string -> int -> int) -> lexbuf -%>> -% -% Create a lexer buffer with the given function as its reading -% method. When the scanner needs more characters, it will call -% the given function, giving it a character string s and a -% character count n. The function should put n characters or less -% in s, starting at character number 0, and return the number of -% characters provided. A return value of 0 means end of input. -% -% -%Functions for lexer semantic actions -%==================================== -% -% The following functions can be called from the semantic actions of lexer -%definitions (the ML code enclosed in braces that computes the value returned -%by lexing functions). They give access to the character string matched by the -%regular expression associated with the semantic action. These functions must -%be applied to the argument lexbuf, which, in the code generated by ocamllex, -%is bound to the lexer buffer passed to the parsing function. -%<< -% val lexeme : lexbuf -> string -%>> -% -% Lexing.lexeme lexbuf returns the string matched by the regular -% expression. -% -%<< -% val lexeme_char : lexbuf -> int -> char -%>> -% -% Lexing.lexeme_char lexbuf i returns character number i in the -% matched string. -% -%<< -% val lexeme_start : lexbuf -> int -%>> -% -% Lexing.lexeme_start lexbuf returns the offset in the input -% stream of the first character of the matched string. The first -% character of the stream has offset 0. -% -%<< -% val lexeme_end : lexbuf -> int -%>> -% -% Lexing.lexeme_end lexbuf returns the offset in the input stream -% of the character following the last character of the matched -% string. The first character of the stream has offset 0. -% -%<< -% val lexeme_start_p : lexbuf -> position -%>> -% -% Like lexeme_start, but return a complete position instead of -% an offset. -% -%<< -% val lexeme_end_p : lexbuf -> position -%>> -% -% Like lexeme_end, but return a complete position instead of an -% offset. -% -% -%Miscellaneous functions -%======================= -% -%<< -% val flush_input : lexbuf -> unit -%>> -% -% Discard the contents of the buffer and reset the current -% position to 0. The next use of the lexbuf will trigger a -% refill. -% -% -% -%20.17 Module List : List operations. -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* -% -% -% Some functions are flagged as not tail-recursive. A tail-recursive function -%uses constant stack space, while a non-tail-recursive function uses stack -%space proportional to the length of its list argument, which can be a problem -%with very long lists. When the function takes several list arguments, an -%approximate formula giving stack usage (in some unspecified constant unit) is -%shown in parentheses. -% The above considerations can usually be ignored if your lists are not longer -%than about 10000 elements. -% 0.5cm -%<< -% val length : 'a list -> int -%>> -% -% Return the length (number of elements) of the given list. -% -%<< -% val hd : 'a list -> 'a -%>> -% -% Return the first element of the given list. Raise Failure "hd" -% if the list is empty. -% -%<< -% val tl : 'a list -> 'a list -%>> -% -% Return the given list without its first element. Raise Failure -% "tl" if the list is empty. -% -%<< -% val nth : 'a list -> int -> 'a -%>> -% -% Return the n-th element of the given list. The first element -% (head of the list) is at position 0. Raise Failure "nth" if the -% list is too short. -% -%<< -% val rev : 'a list -> 'a list -%>> -% -% List reversal. -% -%<< -% val append : 'a list -> 'a list -> 'a list -%>> -% -% Catenate two lists. Same function as the infix operator @. Not -% tail-recursive (length of the first argument). The @ operator -% is not tail-recursive either. -% -%<< -% val rev_append : 'a list -> 'a list -> 'a list -%>> -% -% List.rev_append l1 l2 reverses l1 and concatenates it to l2. -% This is equivalent to List.rev[20.17] l1 @ l2, but rev_append is -% tail-recursive and more efficient. -% -%<< -% val concat : 'a list list -> 'a list -%>> -% -% Concatenate a list of lists. The elements of the argument are -% all concatenated together (in the same order) to give the -% result. Not tail-recursive (length of the argument + length of -% the longest sub-list). -% -%<< -% val flatten : 'a list list -> 'a list -%>> -% -% Same as concat. Not tail-recursive (length of the argument + -% length of the longest sub-list). -% -% -%Iterators -%========= -% -%<< -% val iter : ('a -> unit) -> 'a list -> unit -%>> -% -% List.iter f [a1; ...; an] applies function f in turn to a1; -% ...; an. It is equivalent to begin f a1; f a2; ...; f an; () -% end. -% -%<< -% val map : ('a -> 'b) -> 'a list -> 'b list -%>> -% -% List.map f [a1; ...; an] applies function f to a1, ..., an, -% and builds the list [f a1; ...; f an] with the results returned -% by f. Not tail-recursive. -% -%<< -% val rev_map : ('a -> 'b) -> 'a list -> 'b list -%>> -% -% List.rev_map f l gives the same result as List.rev[20.17] -% (List.map[20.17] f l), but is tail-recursive and more -% efficient. -% -%<< -% val fold_left : ('a -> 'b -> 'a) -> 'a -> 'b list -> 'a -%>> -% -% List.fold_left f a [b1; ...; bn] is f (... (f (f a b1) b2) -% ...) bn. -% -%<< -% val fold_right : ('a -> 'b -> 'b) -> 'a list -> 'b -> 'b -%>> -% -% List.fold_right f [a1; ...; an] b is f a1 (f a2 (... (f an b) -% ...)). Not tail-recursive. -% -% -%Iterators on two lists -%====================== -% -%<< -% val iter2 : ('a -> 'b -> unit) -> 'a list -> 'b list -> unit -%>> -% -% List.iter2 f [a1; ...; an] [b1; ...; bn] calls in turn f a1 -% b1; ...; f an bn. Raise Invalid_argument if the two lists have -% different lengths. -% -%<< -% val map2 : ('a -> 'b -> 'c) -> 'a list -> 'b list -> 'c list -%>> -% -% List.map2 f [a1; ...; an] [b1; ...; bn] is [f a1 b1; ...; f an -% bn]. Raise Invalid_argument if the two lists have different -% lengths. Not tail-recursive. -% -%<< -% val rev_map2 : ('a -> 'b -> 'c) -> 'a list -> 'b list -> 'c list -%>> -% -% List.rev_map2 f l1 l2 gives the same result as List.rev[20.17] -% (List.map2[20.17] f l1 l2), but is tail-recursive and more -% efficient. -% -%<< -% val fold_left2 : ('a -> 'b -> 'c -> 'a) -> 'a -> 'b list -> 'c list -> 'a -%>> -% -% List.fold_left2 f a [b1; ...; bn] [c1; ...; cn] is f (... (f -% (f a b1 c1) b2 c2) ...) bn cn. Raise Invalid_argument if the -% two lists have different lengths. -% -%<< -% val fold_right2 : ('a -> 'b -> 'c -> 'c) -> 'a list -> 'b list -> 'c -> 'c -%>> -% -% List.fold_right2 f [a1; ...; an] [b1; ...; bn] c is f a1 b1 (f -% a2 b2 (... (f an bn c) ...)). Raise Invalid_argument if the two -% lists have different lengths. Not tail-recursive. -% -% -%List scanning -%============= -% -%<< -% val for_all : ('a -> bool) -> 'a list -> bool -%>> -% -% for_all p [a1; ...; an] checks if all elements of the list -% satisfy the predicate p. That is, it returns (p a1) && (p a2) -% && ... && (p an). -% -%<< -% val exists : ('a -> bool) -> 'a list -> bool -%>> -% -% exists p [a1; ...; an] checks if at least one element of the -% list satisfies the predicate p. That is, it returns (p a1) || -% (p a2) || ... || (p an). -% -%<< -% val for_all2 : ('a -> 'b -> bool) -> 'a list -> 'b list -> bool -%>> -% -% Same as List.for_all[20.17], but for a two'argument predicate. -% Raise Invalid_argument if the two lists have different lengths. -% -%<< -% val exists2 : ('a -> 'b -> bool) -> 'a list -> 'b list -> bool -%>> -% -% Same as List.exists[20.17], but for a two'argument predicate. -% Raise Invalid_argument if the two lists have different lengths. -% -%<< -% val mem : 'a -> 'a list -> bool -%>> -% -% mem a l is true if and only if a is equal to an element of l. -% -%<< -% val memq : 'a -> 'a list -> bool -%>> -% -% Same as List.mem[20.17], but uses physical equality instead of -% structural equality to compare list elements. -% -% -%List searching -%============== -% -%<< -% val find : ('a -> bool) -> 'a list -> 'a -%>> -% -% find p l returns the first element of the list l that -% satisfies the predicate p. Raise Not_found if there is no value -% that satisfies p in the list l. -% -%<< -% val filter : ('a -> bool) -> 'a list -> 'a list -%>> -% -% filter p l returns all the elements of the list l that satisfy -% the predicate p. The order of the elements in the input list is -% preserved. -% -%<< -% val find_all : ('a -> bool) -> 'a list -> 'a list -%>> -% -% find_all is another name for List.filter[20.17]. -% -%<< -% val partition : ('a -> bool) -> 'a list -> 'a list * 'a list -%>> -% -% partition p l returns a pair of lists (l1, l2), where l1 is -% the list of all the elements of l that satisfy the predicate p, -% and l2 is the list of all the elements of l that do not satisfy -% p. The order of the elements in the input list is preserved. -% -% -%Association lists -%================= -% -%<< -% val assoc : 'a -> ('a * 'b) list -> 'b -%>> -% -% assoc a l returns the value associated with key a in the list -% of pairs l. That is, assoc a [ ...; (a,b); ...] = b if (a,b) -% is the leftmost binding of a in list l. Raise Not_found if -% there is no value associated with a in the list l. -% -%<< -% val assq : 'a -> ('a * 'b) list -> 'b -%>> -% -% Same as List.assoc[20.17], but uses physical equality instead -% of structural equality to compare keys. -% -%<< -% val mem_assoc : 'a -> ('a * 'b) list -> bool -%>> -% -% Same as List.assoc[20.17], but simply return true if a binding -% exists, and false if no bindings exist for the given key. -% -%<< -% val mem_assq : 'a -> ('a * 'b) list -> bool -%>> -% -% Same as List.mem_assoc[20.17], but uses physical equality -% instead of structural equality to compare keys. -% -%<< -% val remove_assoc : 'a -> ('a * 'b) list -> ('a * 'b) list -%>> -% -% remove_assoc a l returns the list of pairs l without the first -% pair with key a, if any. Not tail-recursive. -% -%<< -% val remove_assq : 'a -> ('a * 'b) list -> ('a * 'b) list -%>> -% -% Same as List.remove_assoc[20.17], but uses physical equality -% instead of structural equality to compare keys. Not -% tail-recursive. -% -% -%Lists of pairs -%============== -% -%<< -% val split : ('a * 'b) list -> 'a list * 'b list -%>> -% -% Transform a list of pairs into a pair of lists: split -% [(a1,b1); ...; (an,bn)] is ([a1; ...; an], [b1; ...; bn]). Not -% tail-recursive. -% -%<< -% val combine : 'a list -> 'b list -> ('a * 'b) list -%>> -% -% Transform a pair of lists into a list of pairs: combine [a1; -% ...; an] [b1; ...; bn] is [(a1,b1); ...; (an,bn)]. Raise -% Invalid_argument if the two lists have different lengths. Not -% tail-recursive. -% -% -%Sorting -%======= -% -%<< -% val sort : ('a -> 'a -> int) -> 'a list -> 'a list -%>> -% -% Sort a list in increasing order according to a comparison -% function. The comparison function must return 0 if its arguments -% compare as equal, a positive integer if the first is greater, -% and a negative integer if the first is smaller (see Array.sort -% for a complete specification). For example, -% Pervasives.compare[19.2] is a suitable comparison function. The -% resulting list is sorted in increasing order. List.sort is -% guaranteed to run in constant heap space (in addition to the -% size of the result list) and logarithmic stack space. -% The current implementation uses Merge Sort. It runs in constant -% heap space and logarithmic stack space. -% -%<< -% val stable_sort : ('a -> 'a -> int) -> 'a list -> 'a list -%>> -% -% Same as List.sort[20.17], but the sorting algorithm is -% guaranteed to be stable (i.e. elements that compare equal are -% kept in their original order) . -% The current implementation uses Merge Sort. It runs in constant -% heap space and logarithmic stack space. -% -%<< -% val fast_sort : ('a -> 'a -> int) -> 'a list -> 'a list -%>> -% -% Same as List.sort[20.17] or List.stable_sort[20.17], whichever -% is faster on typical input. -% -%<< -% val merge : ('a -> 'a -> int) -> 'a list -> 'a list -> 'a list -%>> -% -% Merge two lists: Assuming that l1 and l2 are sorted according -% to the comparison function cmp, merge cmp l1 l2 will return a -% sorted list containting all the elements of l1 and l2. If -% several elements compare equal, the elements of l1 will be -% before the elements of l2. Not tail-recursive (sum of the -% lengths of the arguments). -% -% -% -%20.18 Module Map : Association tables over ordered types. -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= -% -% -% This module implements applicative association tables, also known as finite -%maps or dictionaries, given a total ordering function over the keys. All -%operations over maps are purely applicative (no side-effects). The -%implementation uses balanced binary trees, and therefore searching and -%insertion take time logarithmic in the size of the map. -% 0.5cm -%<< -% module type OrderedType = >> -% -% sig -% -% -% << -% type t -% >> -% -% The type of the map keys. -% -% << -% val compare : t -> t -> int -% >> -% -% A total ordering function over the keys. This is a -% two'argument function f such that f e1 e2 is zero if the -% keys e1 and e2 are equal, f e1 e2 is strictly negative if e1 -% is smaller than e2, and f e1 e2 is strictly positive if e1 -% is greater than e2. Example: a suitable ordering function is -% the generic structural comparison function -% Pervasives.compare[19.2]. -% -% -% - end -% -% Input signature of the functor Map.Make[20.18]. -% -%<< -% module type S = >> -% -% sig -% -% -% << -% type key -% >> -% -% The type of the map keys. -% -% << -% type +'a t -% >> -% -% The type of maps from type key to type 'a. -% -% << -% val empty : 'a t -% >> -% -% The empty map. -% -% << -% val is_empty : 'a t -> bool -% >> -% -% Test whether a map is empty or not. -% -% << -% val add : key -> 'a -> 'a t -> 'a t -% >> -% -% add x y m returns a map containing the same bindings as m, -% plus a binding of x to y. If x was already bound in m, its -% previous binding disappears. -% -% << -% val find : key -> 'a t -> 'a -% >> -% -% find x m returns the current binding of x in m, or raises -% Not_found if no such binding exists. -% -% << -% val remove : key -> 'a t -> 'a t -% >> -% -% remove x m returns a map containing the same bindings as m, -% except for x which is unbound in the returned map. -% -% << -% val mem : key -> 'a t -> bool -% >> -% -% mem x m returns true if m contains a binding for x, and -% false otherwise. -% -% << -% val iter : (key -> 'a -> unit) -> 'a t -> unit -% >> -% -% iter f m applies f to all bindings in map m. f receives the -% key as first argument, and the associated value as second -% argument. The bindings are passed to f in increasing order -% with respect to the ordering over the type of the keys. Only -% current bindings are presented to f: bindings hidden by more -% recent bindings are not passed to f. -% -% << -% val map : ('a -> 'b) -> 'a t -> 'b t -% >> -% -% map f m returns a map with same domain as m, where the -% associated value a of all bindings of m has been replaced by -% the result of the application of f to a. The bindings are -% passed to f in increasing order with respect to the ordering -% over the type of the keys. -% -% << -% val mapi : (key -> 'a -> 'b) -> 'a t -> 'b t -% >> -% -% Same as Map.S.map[20.18], but the function receives as -% arguments both the key and the associated value for each -% binding of the map. -% -% << -% val fold : (key -> 'a -> 'b -> 'b) -> 'a t -> 'b -> 'b -% >> -% -% fold f m a computes (f kN dN ... (f k1 d1 a)...), where k1 -% ... kN are the keys of all bindings in m (in increasing -% order), and d1 ... dN are the associated data. -% -% << -% val compare : ('a -> 'a -> int) -> 'a t -> 'a t -> int -% >> -% -% Total ordering between maps. The first argument is a total -% ordering used to compare data associated with equal keys in -% the two maps. -% -% << -% val equal : ('a -> 'a -> bool) -> 'a t -> 'a t -> bool -% >> -% -% equal cmp m1 m2 tests whether the maps m1 and m2 are equal, -% that is, contain equal keys and associate them with equal -% data. cmp is the equality predicate used to compare the data -% associated with the keys. -% -% -% - end -% -% Output signature of the functor Map.Make[20.18]. -% -%<< -% module Make : >> -% -% functor (Ord : OrderedType) -> S with type key = Ord.t -% Functor building an implementation of the map structure given -% a totally ordered type. -% -% -% -%20.19 Module Marshal : Marshaling of data structures. -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= -% -% -% This module provides functions to encode arbitrary data structures as -%sequences of bytes, which can then be written on a file or sent over a pipe or -%network connection. The bytes can then be read back later, possibly in another -%process, and decoded back into a data structure. The format for the byte -%sequences is compatible across all machines for a given version of Objective -%Caml. -% Warning: marshaling is currently not type-safe. The type of marshaled data -%is not transmitted along the value of the data, making it impossible to check -%that the data read back possesses the type expected by the context. In -%particular, the result type of the Marshal.from_* functions is given as 'a, -%but this is misleading: the returned Caml value does not possess type 'a for -%all 'a; it has one, unique type which cannot be determined at compile-type. -%The programmer should explicitly give the expected type of the returned value, -%using the following syntax: -% -% - (Marshal.from_channel chan : type). Anything can happen at run-time if the -% object in the file does not belong to the given type. -% -% The representation of marshaled values is not human-readable, and uses bytes -%that are not printable characters. Therefore, input and output channels used -%in conjunction with Marshal.to_channel and Marshal.from_channel must be opened -%in binary mode, using e.g. open_out_bin or open_in_bin; channels opened in -%text mode will cause unmarshaling errors on platforms where text channels -%behave differently than binary channels, e.g. Windows. -% 0.5cm -%<< -% type extern_flags = -% | No_sharing -%>> -% -% Don-t preserve sharing -% -%<< -% | Closures -%>> -% -% Send function closures -% -% The flags to the Marshal.to_* functions below. -% -%<< -% val to_channel : Pervasives.out_channel -> 'a -> extern_flags list -> unit -%>> -% -% Marshal.to_channel chan v flags writes the representation of v -% on channel chan. The flags argument is a possibly empty list of -% flags that governs the marshaling behavior with respect to -% sharing and functional values. -% If flags does not contain Marshal.No_sharing, circularities -% and sharing inside the value v are detected and preserved in -% the sequence of bytes produced. In particular, this guarantees -% that marshaling always terminates. Sharing between values -% marshaled by successive calls to Marshal.to_channel is not -% detected, though. If flags contains Marshal.No_sharing, sharing -% is ignored. This results in faster marshaling if v contains no -% shared substructures, but may cause slower marshaling and -% larger byte representations if v actually contains sharing, or -% even non-termination if v contains cycles. -% If flags does not contain Marshal.Closures, marshaling fails -% when it encounters a functional value inside v: only --pure-- -% data structures, containing neither functions nor objects, can -% safely be transmitted between different programs. If flags -% contains Marshal.Closures, functional values will be marshaled -% as a position in the code of the program. In this case, the -% output of marshaling can only be read back in processes that -% run exactly the same program, with exactly the same compiled -% code. (This is checked at un-marshaling time, using an MD5 -% digest of the code transmitted along with the code position.) -% -%<< -% val to_string : 'a -> extern_flags list -> string -%>> -% -% Marshal.to_string v flags returns a string containing the -% representation of v as a sequence of bytes. The flags argument -% has the same meaning as for Marshal.to_channel[20.19]. -% -%<< -% val to_buffer : string -> int -> int -> 'a -> extern_flags list -> int -%>> -% -% Marshal.to_buffer buff ofs len v flags marshals the value v, -% storing its byte representation in the string buff, starting at -% character number ofs, and writing at most len characters. It -% returns the number of characters actually written to the -% string. If the byte representation of v does not fit in len -% characters, the exception Failure is raised. -% -%<< -% val from_channel : Pervasives.in_channel -> 'a -%>> -% -% Marshal.from_channel chan reads from channel chan the byte -% representation of a structured value, as produced by one of the -% Marshal.to_* functions, and reconstructs and returns the -% corresponding value. -% -%<< -% val from_string : string -> int -> 'a -%>> -% -% Marshal.from_string buff ofs unmarshals a structured value -% like Marshal.from_channel[20.19] does, except that the byte -% representation is not read from a channel, but taken from the -% string buff, starting at position ofs. -% -%<< -% val header_size : int -%>> -% -% The bytes representing a marshaled value are composed of a -% fixed-size header and a variable-sized data part, whose size -% can be determined from the header. Marshal.header_size[20.19] -% is the size, in characters, of the header. -% Marshal.data_size[20.19] buff ofs is the size, in characters, -% of the data part, assuming a valid header is stored in buff -% starting at position ofs. Finally, Marshal.total_size[20.19] -% buff ofs is the total size, in characters, of the marshaled -% value. Both Marshal.data_size[20.19] and -% Marshal.total_size[20.19] raise Failure if buff, ofs does not -% contain a valid header. -% To read the byte representation of a marshaled value into a -% string buffer, the program needs to read first -% Marshal.header_size[20.19] characters into the buffer, then -% determine the length of the remainder of the representation -% using Marshal.data_size[20.19], make sure the buffer is large -% enough to hold the remaining data, then read it, and finally -% call Marshal.from_string[20.19] to unmarshal the value. -% -%<< -% val data_size : string -> int -> int -%>> -% -% See Marshal.header_size[20.19]. -% -%<< -% val total_size : string -> int -> int -%>> -% -% See Marshal.header_size[20.19]. -% -% -% -%20.20 Module Nativeint : Processor-native integers. -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= -% -% -% This module provides operations on the type nativeint of signed 32'bit -%integers (on 32'bit platforms) or signed 64'bit integers (on 64'bit -%platforms). This integer type has exactly the same width as that of a long -%integer type in the C compiler. All arithmetic operations over nativeint are -%taken modulo 2^32 or 2^64 depending on the word size of the architecture. -% Performance notice: values of type nativeint occupy more memory space than -%values of type int, and arithmetic operations on nativeint are generally -%slower than those on int. Use nativeint only when the application requires the -%extra bit of precision over the int type. -% 0.5cm -%<< -% val zero : nativeint -%>> -% -% The native integer 0. -% -%<< -% val one : nativeint -%>> -% -% The native integer 1. -% -%<< -% val minus_one : nativeint -%>> -% -% The native integer -1. -% -%<< -% val neg : nativeint -> nativeint -%>> -% -% Unary negation. -% -%<< -% val add : nativeint -> nativeint -> nativeint -%>> -% -% Addition. -% -%<< -% val sub : nativeint -> nativeint -> nativeint -%>> -% -% Subtraction. -% -%<< -% val mul : nativeint -> nativeint -> nativeint -%>> -% -% Multiplication. -% -%<< -% val div : nativeint -> nativeint -> nativeint -%>> -% -% Integer division. Raise Division_by_zero if the second -% argument is zero. This division rounds the real quotient of its -% arguments towards zero, as specified for Pervasives.(/)[19.2]. -% -%<< -% val rem : nativeint -> nativeint -> nativeint -%>> -% -% Integer remainder. If y is not zero, the result of -% Nativeint.rem x y satisfies the following properties: -% Nativeint.zero <= Nativeint.rem x y < Nativeint.abs y and x = -% Nativeint.add (Nativeint.mul (Nativeint.div x y) y) -% (Nativeint.rem x y). If y = 0, Nativeint.rem x y raises -% Division_by_zero. -% -%<< -% val succ : nativeint -> nativeint -%>> -% -% Successor. Nativeint.succ x is Nativeint.add x Nativeint.one. -% -%<< -% val pred : nativeint -> nativeint -%>> -% -% Predecessor. Nativeint.pred x is Nativeint.sub x -% Nativeint.one. -% -%<< -% val abs : nativeint -> nativeint -%>> -% -% Return the absolute value of its argument. -% -%<< -% val size : int -%>> -% -% The size in bits of a native integer. This is equal to 32 on a -% 32'bit platform and to 64 on a 64'bit platform. -% -%<< -% val max_int : nativeint -%>> -% -% The greatest representable native integer, either 2^31 - 1 on -% a 32'bit platform, or 2^63 - 1 on a 64'bit platform. -% -%<< -% val min_int : nativeint -%>> -% -% The greatest representable native integer, either -2^31 on a -% 32'bit platform, or -2^63 on a 64'bit platform. -% -%<< -% val logand : nativeint -> nativeint -> nativeint -%>> -% -% Bitwise logical and. -% -%<< -% val logor : nativeint -> nativeint -> nativeint -%>> -% -% Bitwise logical or. -% -%<< -% val logxor : nativeint -> nativeint -> nativeint -%>> -% -% Bitwise logical exclusive or. -% -%<< -% val lognot : nativeint -> nativeint -%>> -% -% Bitwise logical negation -% -%<< -% val shift_left : nativeint -> int -> nativeint -%>> -% -% Nativeint.shift_left x y shifts x to the left by y bits. The -% result is unspecified if y < 0 or y >= bitsize, where bitsize -% is 32 on a 32'bit platform and 64 on a 64'bit platform. -% -%<< -% val shift_right : nativeint -> int -> nativeint -%>> -% -% Nativeint.shift_right x y shifts x to the right by y bits. -% This is an arithmetic shift: the sign bit of x is replicated -% and inserted in the vacated bits. The result is unspecified if -% y < 0 or y >= bitsize. -% -%<< -% val shift_right_logical : nativeint -> int -> nativeint -%>> -% -% Nativeint.shift_right_logical x y shifts x to the right by y -% bits. This is a logical shift: zeroes are inserted in the -% vacated bits regardless of the sign of x. The result is -% unspecified if y < 0 or y >= bitsize. -% -%<< -% val of_int : int -> nativeint -%>> -% -% Convert the given integer (type int) to a native integer (type -% nativeint). -% -%<< -% val to_int : nativeint -> int -%>> -% -% Convert the given native integer (type nativeint) to an -% integer (type int). The high-order bit is lost during the -% conversion. -% -%<< -% val of_float : float -> nativeint -%>> -% -% Convert the given floating-point number to a native integer, -% discarding the fractional part (truncate towards 0). The result -% of the conversion is undefined if, after truncation, the number -% is outside the range [Nativeint.min_int[20.20], -% Nativeint.max_int[20.20]]. -% -%<< -% val to_float : nativeint -> float -%>> -% -% Convert the given native integer to a floating-point number. -% -%<< -% val of_int32 : int32 -> nativeint -%>> -% -% Convert the given 32'bit integer (type int32) to a native -% integer. -% -%<< -% val to_int32 : nativeint -> int32 -%>> -% -% Convert the given native integer to a 32'bit integer (type -% int32). On 64'bit platforms, the 64'bit native integer is taken -% modulo 2^32, i.e. the top 32 bits are lost. On 32'bit -% platforms, the conversion is exact. -% -%<< -% val of_string : string -> nativeint -%>> -% -% Convert the given string to a native integer. The string is -% read in decimal (by default) or in hexadecimal, octal or binary -% if the string begins with 0x, 0o or 0b respectively. Raise -% Failure "int_of_string" if the given string is not a valid -% representation of an integer, or if the integer represented -% exceeds the range of integers representable in type nativeint. -% -%<< -% val to_string : nativeint -> string -%>> -% -% Return the string representation of its argument, in decimal. -% -%<< -% type t = nativeint -%>> -% -% An alias for the type of native integers. -% -%<< -% val compare : t -> t -> int -%>> -% -% The comparison function for native integers, with the same -% specification as Pervasives.compare[19.2]. Along with the type -% t, this function compare allows the module Nativeint to be -% passed as argument to the functors Set.Make[20.28] and -% Map.Make[20.18]. -% -% -% -%20.21 Module Oo : Operations on objects -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= -% -% -% 0.5cm -%<< -% val copy : (< .. > as 'a) -> 'a -%>> -% -% Oo.copy o returns a copy of object o, that is a fresh object -% with the same methods and instance variables as o -% -%<< -% val id : < .. > -> int -%>> -% -% Return an integer identifying this object, unique for the -% current execution of the program. -% -% -% -%20.22 Module Parsing : The run-time library for parsers generated by -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* -%ocamlyacc. -%*=*=*=*=*= -% -% -% 0.5cm -%<< -% val symbol_start : unit -> int -%>> -% -% symbol_start and Parsing.symbol_end[20.22] are to be called in -% the action part of a grammar rule only. They return the offset -% of the string that matches the left-hand side of the rule: -% symbol_start() returns the offset of the first character; -% symbol_end() returns the offset after the last character. The -% first character in a file is at offset 0. -% -%<< -% val symbol_end : unit -> int -%>> -% -% See Parsing.symbol_start[20.22]. -% -%<< -% val rhs_start : int -> int -%>> -% -% Same as Parsing.symbol_start[20.22] and -% Parsing.symbol_end[20.22], but return the offset of the string -% matching the nth item on the right-hand side of the rule, where -% n is the integer parameter to rhs_start and rhs_end. n is 1 for -% the leftmost item. -% -%<< -% val rhs_end : int -> int -%>> -% -% See Parsing.rhs_start[20.22]. -% -%<< -% val symbol_start_pos : unit -> Lexing.position -%>> -% -% Same as symbol_start, but return a position instead of an -% offset. -% -%<< -% val symbol_end_pos : unit -> Lexing.position -%>> -% -% Same as symbol_end, but return a position instead of an offset. -% -%<< -% val rhs_start_pos : int -> Lexing.position -%>> -% -% Same as rhs_start, but return a position instead of an offset. -% -%<< -% val rhs_end_pos : int -> Lexing.position -%>> -% -% Same as rhs_end, but return a position instead of an offset. -% -%<< -% val clear_parser : unit -> unit -%>> -% -% Empty the parser stack. Call it just after a parsing function -% has returned, to remove all pointers from the parser stack to -% structures that were built by semantic actions during parsing. -% This is optional, but lowers the memory requirements of the -% programs. -% -%<< -% exception Parse_error -%>> -% -% Raised when a parser encounters a syntax error. Can also be -% raised from the action part of a grammar rule, to initiate -% error recovery. -% -% -% -%20.23 Module Printexc : Facilities for printing exceptions. -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= -% -% -% 0.5cm -%<< -% val to_string : exn -> string -%>> -% -% Printexc.to_string e returns a string representation of the -% exception e. -% -%<< -% val print : ('a -> 'b) -> 'a -> 'b -%>> -% -% Printexc.print fn x applies fn to x and returns the result. If -% the evaluation of fn x raises any exception, the name of the -% exception is printed on standard error output, and the -% exception is raised again. The typical use is to catch and -% report exceptions that escape a function application. -% -%<< -% val catch : ('a -> 'b) -> 'a -> 'b -%>> -% -% Printexc.catch fn x is similar to Printexc.print[20.23], but -% aborts the program with exit code 2 after printing the uncaught -% exception. This function is deprecated: the runtime system is -% now able to print uncaught exceptions as precisely as -% Printexc.catch does. Moreover, calling Printexc.catch makes it -% harder to track the location of the exception using the -% debugger or the stack backtrace facility. So, do not use -% Printexc.catch in new code. -% -% -% -%20.24 Module Printf : Formatted output functions. -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= -% -% -% 0.5cm -%<< -% val fprintf : -% Pervasives.out_channel -> -% ('a, Pervasives.out_channel, unit) Pervasives.format -> 'a -%>> -% -% fprintf outchan format arg1 ... argN formats the arguments -% arg1 to argN according to the format string format, and outputs -% the resulting string on the channel outchan. -% The format is a character string which contains two types of -% objects: plain characters, which are simply copied to the -% output channel, and conversion specifications, each of which -% causes conversion and printing of one argument. -% Conversion specifications consist in the % character, followed -% by optional flags and field widths, followed by one or two -% conversion character. The conversion characters and their -% meanings are: -% -% - d, i, n, or N: convert an integer argument to signed decimal. -% -% - u: convert an integer argument to unsigned decimal. -% - x: convert an integer argument to unsigned hexadecimal, -% using lowercase letters. -% - X: convert an integer argument to unsigned hexadecimal, -% using uppercase letters. -% - o: convert an integer argument to unsigned octal. -% - s: insert a string argument. -% - S: insert a string argument in Caml syntax (double quotes, -% escapes). -% - c: insert a character argument. -% - C: insert a character argument in Caml syntax (single quotes, -% escapes). -% - f: convert a floating-point argument to decimal notation, in -% the style dddd.ddd. -% - F: convert a floating-point argument in Caml syntax (dddd.ddd -% with a mandatory .). -% - e or E: convert a floating-point argument to decimal -% notation, in the style d.ddd e+-dd (mantissa and exponent). -% - g or G: convert a floating-point argument to decimal -% notation, in style f or e, E (whichever is more compact). -% - B: convert a boolean argument to the string true or false -% - b: convert a boolean argument (for backward compatibility; do -% not use in new programs). -% - ld, li, lu, lx, lX, lo: convert an int32 argument to the -% format specified by the second letter (decimal, hexadecimal, -% etc). -% - nd, ni, nu, nx, nX, no: convert a nativeint argument to the -% format specified by the second letter. -% - Ld, Li, Lu, Lx, LX, Lo: convert an int64 argument to the -% format specified by the second letter. -% - a: user-defined printer. Takes two arguments and apply the -% first one to outchan (the current output channel) and to the -% second argument. The first argument must therefore have type -% out_channel -> 'b -> unit and the second 'b. The output -% produced by the function is therefore inserted in the output -% of fprintf at the current point. -% - t: same as %a, but takes only one argument (with type -% out_channel -> unit) and apply it to outchan. -% - !: take no argument and flush the output. -% - %: take no argument and output one % character. -% -% The optional flags include: -% -% - -: left-justify the output (default is right justification). -% - 0: for numerical conversions, pad with zeroes instead of -% spaces. -% - +: for numerical conversions, prefix number with a + sign if -% positive. -% - space: for numerical conversions, prefix number with a space -% if positive. -% - `#': request an alternate formatting style for numbers. -% -% The field widths are composed of an optional integer literal -% indicating the minimal width of the result, possibly followed by -% a dot . and another integer literal indicating how many digits -% follow the decimal point in the %f, %e, and %E conversions. For -% instance, %6d prints an integer, prefixing it with spaces to -% fill at least 6 characters; and %.4f prints a float with 4 -% fractional digits. Each or both of the integer literals can also -% be specified as a *, in which case an extra integer argument is -% taken to specify the corresponding width or precision. -% Warning: if too few arguments are provided, for instance -% because the printf function is partially applied, the format is -% immediately printed up to the conversion of the first missing -% argument; printing will then resume when the missing arguments -% are provided. For example, List.iter (printf "x=%d y=%d " 1) -% [2;3] prints x=1 y=2 3 instead of the expected x=1 y=2 x=1 -% y=3. To get the expected behavior, do List.iter (fun y -> -% printf "x=%d y=%d " 1 y) [2;3]. -% -%<< -% val printf : ('a, Pervasives.out_channel, unit) Pervasives.format -> 'a -%>> -% -% Same as Printf.fprintf[20.24], but output on stdout. -% -%<< -% val eprintf : ('a, Pervasives.out_channel, unit) Pervasives.format -> 'a -%>> -% -% Same as Printf.fprintf[20.24], but output on stderr. -% -%<< -% val sprintf : ('a, unit, string) Pervasives.format -> 'a -%>> -% -% Same as Printf.fprintf[20.24], but instead of printing on an -% output channel, return a string containing the result of -% formatting the arguments. -% -%<< -% val bprintf : Buffer.t -> ('a, Buffer.t, unit) Pervasives.format -> 'a -%>> -% -% Same as Printf.fprintf[20.24], but instead of printing on an -% output channel, append the formatted arguments to the given -% extensible buffer (see module Buffer[20.3]). -% -%<< -% val kprintf : (string -> 'a) -> ('b, unit, string, 'a) format4 -> 'b -%>> -% -% kprintf k format arguments is the same as sprintf format -% arguments, except that the resulting string is passed as -% argument to k; the result of k is then returned as the result -% of kprintf. -% -% -% -%20.25 Module Queue : First-in first-out queues. -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= -% -% -% This module implements queues (FIFOs), with in-place modification. -% 0.5cm -%<< -% type 'a t -%>> -% -% The type of queues containing elements of type 'a. -% -%<< -% exception Empty -%>> -% -% Raised when Queue.take[20.25] or Queue.peek[20.25] is applied -% to an empty queue. -% -%<< -% val create : unit -> 'a t -%>> -% -% Return a new queue, initially empty. -% -%<< -% val add : 'a -> 'a t -> unit -%>> -% -% add x q adds the element x at the end of the queue q. -% -%<< -% val push : 'a -> 'a t -> unit -%>> -% -% push is a synonym for add. -% -%<< -% val take : 'a t -> 'a -%>> -% -% take q removes and returns the first element in queue q, or -% raises Empty if the queue is empty. -% -%<< -% val pop : 'a t -> 'a -%>> -% -% pop is a synonym for take. -% -%<< -% val peek : 'a t -> 'a -%>> -% -% peek q returns the first element in queue q, without removing -% it from the queue, or raises Empty if the queue is empty. -% -%<< -% val top : 'a t -> 'a -%>> -% -% top is a synonym for peek. -% -%<< -% val clear : 'a t -> unit -%>> -% -% Discard all elements from a queue. -% -%<< -% val copy : 'a t -> 'a t -%>> -% -% Return a copy of the given queue. -% -%<< -% val is_empty : 'a t -> bool -%>> -% -% Return true if the given queue is empty, false otherwise. -% -%<< -% val length : 'a t -> int -%>> -% -% Return the number of elements in a queue. -% -%<< -% val iter : ('a -> unit) -> 'a t -> unit -%>> -% -% iter f q applies f in turn to all elements of q, from the -% least recently entered to the most recently entered. The queue -% itself is unchanged. -% -%<< -% val fold : ('a -> 'b -> 'a) -> 'a -> 'b t -> 'a -%>> -% -% fold f accu q is equivalent to List.fold_left f accu l, where -% l is the list of q-s elements. The queue remains unchanged. -% -%<< -% val transfer : 'a t -> 'a t -> unit -%>> -% -% transfer q1 q2 adds all of q1-s elements at the end of the -% queue q2, then clears q1. It is equivalent to the sequence iter -% (fun x -> add x q2) q1; clear q1, but runs in constant time. -% -% -% -%20.26 Module Random : Pseudo-random number generators (PRNG). -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= -% -% -% 0.5cm -% -%Basic functions -%=============== -% -%<< -% val init : int -> unit -%>> -% -% Initialize the generator, using the argument as a seed. The -% same seed will always yield the same sequence of numbers. -% -%<< -% val full_init : int array -> unit -%>> -% -% Same as Random.init[20.26] but takes more data as seed. -% -%<< -% val self_init : unit -> unit -%>> -% -% Initialize the generator with a more-or-less random seed chosen -% in a system-dependent way. -% -%<< -% val bits : unit -> int -%>> -% -% Return 30 random bits in a nonnegative integer. -% -%<< -% val int : int -> int -%>> -% -% Random.int bound returns a random integer between 0 (inclusive) -% and bound (exclusive). bound must be more than 0 and less than -% 2^30. -% -%<< -% val int32 : Int32.t -> Int32.t -%>> -% -% Random.int32 bound returns a random integer between 0 -% (inclusive) and bound (exclusive). bound must be greater than -% 0. -% -%<< -% val nativeint : Nativeint.t -> Nativeint.t -%>> -% -% Random.nativeint bound returns a random integer between 0 -% (inclusive) and bound (exclusive). bound must be greater than -% 0. -% -%<< -% val int64 : Int64.t -> Int64.t -%>> -% -% Random.int64 bound returns a random integer between 0 -% (inclusive) and bound (exclusive). bound must be greater than -% 0. -% -%<< -% val float : float -> float -%>> -% -% Random.float bound returns a random floating-point number -% between 0 (inclusive) and bound (exclusive). If bound is -% negative, the result is negative or zero. If bound is 0, the -% result is 0. -% -%<< -% val bool : unit -> bool -%>> -% -% Random.bool () returns true or false with probability 0.5 each. -% -% -%Advanced functions -%================== -% -% The functions from module State manipulate the current state of the random -%generator explicitely. This allows using one or several deterministic PRNGs, -%even in a multi-threaded program, without interference from other parts of the -%program. -%<< -% module State : >> -% -% sig -% -% -% << -% type t -% >> -% -% The type of PRNG states. -% -% << -% val make : int array -> t -% >> -% -% Create a new state and initialize it with the given seed. -% -% << -% val make_self_init : unit -> t -% >> -% -% Create a new state and initialize it with a system-dependent -% low-entropy seed. -% -% << -% val copy : t -> t -% >> -% -% Return a copy of the given state. -% -% << -% val bits : t -> int -% >> -% -% << -% val int : t -> int -> int -% >> -% -% << -% val int32 : t -> Int32.t -> Int32.t -% >> -% -% << -% val nativeint : t -> Nativeint.t -> Nativeint.t -% >> -% -% << -% val int64 : t -> Int64.t -> Int64.t -% >> -% -% << -% val float : t -> float -> float -% >> -% -% << -% val bool : t -> bool -% >> -% -% These functions are the same as the basic functions, except -% that they use (and update) the given PRNG state instead of -% the default one. -% -% -% - end -% -%<< -% val get_state : unit -> State.t -%>> -% -% Return the current state of the generator used by the basic -% functions. -% -%<< -% val set_state : State.t -> unit -%>> -% -% Set the state of the generator used by the basic functions. -% -% -% -%20.27 Module Scanf : Formatted input functions. -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= -% -% -% 0.5cm -%<< -% module Scanning : >> -% -% sig -% -% -% << -% type scanbuf -% >> -% -% The type of scanning buffers. A scanning buffer is the -% argument passed to the scanning functions used by the scanf -% family of functions. The scanning buffer holds the current -% state of the scan, plus a function to get the next char from -% the input, and a token buffer to store the string matched so -% far. -% -% << -% val stdib : scanbuf -% >> -% -% The scanning buffer reading from stdin. stdib is equivalent -% to Scanning.from_channel stdin. -% -% << -% val from_string : string -> scanbuf -% >> -% -% Scanning.from_string s returns a scanning buffer which reads -% from the given string. Reading starts from the first -% character in the string. The end-of-input condition is set -% when the end of the string is reached. -% -% << -% val from_file : string -> scanbuf -% >> -% -% Bufferized file reading in text mode. The efficient and -% usual way to scan text mode files (in effect, from_file -% returns a buffer that reads characters in large chunks, -% rather than one character at a time as buffers returned by -% from_channel do). Scanning.from_file fname returns a -% scanning buffer which reads from the given file fname in -% text mode. -% -% << -% val from_file_bin : string -> scanbuf -% >> -% -% Bufferized file reading in binary mode. -% -% << -% val from_function : (unit -> char) -> scanbuf -% >> -% -% Scanning.from_function f returns a scanning buffer with the -% given function as its reading method. When scanning needs -% one more character, the given function is called. When the -% function has no more character to provide, it must signal an -% end-of-input condition by raising the exception End_of_file. -% -% << -% val from_channel : Pervasives.in_channel -> scanbuf -% >> -% -% Scanning.from_channel inchan returns a scanning buffer which -% reads one character at a time from the input channel inchan, -% starting at the current reading position. -% -% << -% val end_of_input : scanbuf -> bool -% >> -% -% Scanning.end_of_input scanbuf tests the end of input -% condition of the given buffer. -% -% << -% val beginning_of_input : scanbuf -> bool -% >> -% -% Scanning.beginning_of_input scanbuf tests the beginning of -% input condition of the given buffer. -% -% -% - end -% -% Scanning buffers. -% -%<< -% exception Scan_failure of string -%>> -% -% The exception that formatted input functions raise when the -% input cannot be read according to the given format. -% -%<< -% val bscanf : -% Scanning.scanbuf -> -% ('a, Scanning.scanbuf, 'b) Pervasives.format -> 'a -> 'b -%>> -% -% bscanf ib format f reads tokens from the scanning buffer ib -% according to the format string format, converts these tokens to -% values, and applies the function f to these values. The result -% of this application of f is the result of the whole construct. -% For instance, if p is the function fun s i -> i + 1, then -% Scanf.sscanf "x = 1" "%s = %i" p returns 2. -% Raise Scanf.Scan_failure if the given input does not match the -% format. -% Raise Failure if a conversion to a number is not possible. -% Raise End_of_file if the end of input is encountered while -% scanning and the input matches the given format so far. -% The format is a character string which contains three types of -% objects: -% -% - plain characters, which are simply matched with the -% characters of the input, -% - conversion specifications, each of which causes reading and -% conversion of one argument for f, -% - scanning indications to specify boundaries of tokens. -% -% Among plain characters the space character (ASCII code 32) has a -% special meaning: it matches --whitespace--, that is any number -% of tab, space, newline and carriage return characters. Hence, a -% space in the format matches any amount of whitespace in the -% input. -% Conversion specifications consist in the % character, followed -% by an optional flag, an optional field width, and followed by -% one or two conversion characters. The conversion characters and -% their meanings are: -% -% -% - d: reads an optionally signed decimal integer. -% - i: reads an optionally signed integer (usual input formats -% for hexadecimal (0x[d]+ and 0X[d]+), octal (0o[d]+), and -% binary 0b[d]+ notations are understood). -% - u: reads an unsigned decimal integer. -% - x or X: reads an unsigned hexadecimal integer. -% - o: reads an unsigned octal integer. -% - s: reads a string argument (by default strings end with a -% space). -% - S: reads a delimited string argument (delimiters and special -% escaped characters follow the lexical conventions of Caml). -% - c: reads a single character. To test the current input -% character without reading it, specify a null field width, -% i.e. use specification %0c. Raise Invalid_argument, if the -% field width specification is greater than 1. -% - C: reads a single delimited character (delimiters and special -% escaped characters follow the lexical conventions of Caml). -% - f, e, E, g, G: reads an optionally signed floating-point -% number in decimal notation, in the style dddd.ddd e/E+-dd. -% - F: reads a floating point number according to the lexical -% conventions of Caml (hence the decimal point is mandatory if -% the exponent part is not mentioned). -% - B: reads a boolean argument (true or false). -% - b: reads a boolean argument (for backward compatibility; do -% not use in new programs). -% - ld, li, lu, lx, lX, lo: reads an int32 argument to the -% format specified by the second letter (decimal, hexadecimal, -% etc). -% - nd, ni, nu, nx, nX, no: reads a nativeint argument to the -% format specified by the second letter. -% - Ld, Li, Lu, Lx, LX, Lo: reads an int64 argument to the -% format specified by the second letter. -% - [ range ]: reads characters that matches one of the -% characters mentioned in the range of characters range (or -% not mentioned in it, if the range starts with ^). Returns a -% string that can be empty, if no character in the input -% matches the range. Hence, [0-9] returns a string -% representing a decimal number or an empty string if no -% decimal digit is found. If a closing bracket appears in a -% range, it must occur as the first character of the range (or -% just after the ^ in case of range negation); hence []] -% matches a ] character and [^]] matches any character that is -% not ]. -% - l: applies f to the number of lines read so far. -% - n: applies f to the number of characters read so far. -% - N: applies f to the number of tokens read so far. -% - !: matches the end of input condition. -% - %: matches one % character in the input. -% -% Following the % character introducing a conversion, there may be -% the special flag _: the conversion that follows occurs as -% usual, but the resulting value is discarded. -% The field widths are composed of an optional integer literal -% indicating the maximal width of the token to read. For -% instance, %6d reads an integer, having at most 6 decimal digits; -% and %4f reads a float with at most 4 characters. -% Scanning indications appear just after the string conversions s -% and [ range ] to delimit the end of the token. A scanning -% indication is introduced by a @ character, followed by some -% constant character c. It means that the string token should end -% just before the next matching c (which is skipped). If no c -% character is encountered, the string token spreads as much as -% possible. For instance, "%s@\t" reads a string up to the next -% tabulation character. If a scanning indication @c does not -% follow a string conversion, it is ignored and treated as a plain -% c character. -% Notes: -% -% -% - the scanning indications introduce slight differences in the -% syntax of Scanf format strings compared to those used by the -% Printf module. However, scanning indications are similar to -% those of the Format module; hence, when producing formatted -% text to be scanned by !Scanf.bscanf, it is wise to use -% printing functions from Format (or, if you need to use -% functions from Printf, banish or carefully double check the -% format strings that contain -@- characters). -% -% -% - in addition to relevant digits, -_- characters may appear -% inside numbers (this is reminiscent to the usual Caml -% conventions). If stricter scanning is desired, use the range -% conversion facility instead of the number conversions. -% -% -% - the scanf facility is not intended for heavy duty lexical -% analysis and parsing. If it appears not expressive enough for -% your needs, several alternative exists: regular expressions -% (module Str), stream parsers, ocamllex-generated lexers, -% ocamlyacc-generated parsers. -% -%<< -% val fscanf : -% Pervasives.in_channel -> -% ('a, Scanning.scanbuf, 'b) Pervasives.format -> 'a -> 'b -%>> -% -% Same as Scanf.bscanf[20.27], but inputs from the given channel. -% Warning: since all scanning functions operate from a scanning -% buffer, be aware that each fscanf invocation must allocate a new -% fresh scanning buffer (unless careful use of partial evaluation -% in the program). Hence, there are chances that some characters -% seem to be skipped (in fact they are pending in the previously -% used buffer). This happens in particular when calling fscanf -% again after a scan involving a format that necessitates some -% look ahead (such as a format that ends by skipping whitespace -% in the input). -% To avoid confusion, consider using bscanf with an explicitly -% created scanning buffer. Use for instance Scanning.from_file f -% to allocate the scanning buffer reading from file f. -% This method is not only clearer it is also faster, since -% scanning buffers to files are optimized for fast bufferized -% reading. -% -%<< -% val sscanf : -% string -> ('a, Scanning.scanbuf, 'b) Pervasives.format -> 'a -> 'b -%>> -% -% Same as Scanf.bscanf[20.27], but inputs from the given string. -% -%<< -% val scanf : ('a, Scanning.scanbuf, 'b) Pervasives.format -> 'a -> 'b -%>> -% -% Same as Scanf.bscanf[20.27], but reads from the predefined -% scanning buffer Scanf.Scanning.stdib[20.27] that is connected -% to stdin. -% -%<< -% val kscanf : -% Scanning.scanbuf -> -% (Scanning.scanbuf -> exn -> 'a) -> -% ('b, Scanning.scanbuf, 'a) Pervasives.format -> 'b -> 'a -%>> -% -% Same as Scanf.bscanf[20.27], but takes an additional function -% argument ef that is called in case of error: if the scanning -% process or some conversion fails, the scanning function aborts -% and applies the error handling function ef to the scanning -% buffer and the exception that aborted the scanning process. -% -% -% -%20.28 Module Set : Sets over ordered types. -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= -% -% -% This module implements the set data structure, given a total ordering -%function over the set elements. All operations over sets are purely -%applicative (no side-effects). The implementation uses balanced binary trees, -%and is therefore reasonably efficient: insertion and membership take time -%logarithmic in the size of the set, for instance. -% 0.5cm -%<< -% module type OrderedType = >> -% -% sig -% -% -% << -% type t -% >> -% -% The type of the set elements. -% -% << -% val compare : t -> t -> int -% >> -% -% A total ordering function over the set elements. This is a -% two'argument function f such that f e1 e2 is zero if the -% elements e1 and e2 are equal, f e1 e2 is strictly negative -% if e1 is smaller than e2, and f e1 e2 is strictly positive -% if e1 is greater than e2. Example: a suitable ordering -% function is the generic structural comparison function -% Pervasives.compare[19.2]. -% -% -% - end -% -% Input signature of the functor Set.Make[20.28]. -% -%<< -% module type S = >> -% -% sig -% -% -% << -% type elt -% >> -% -% The type of the set elements. -% -% << -% type t -% >> -% -% The type of sets. -% -% << -% val empty : t -% >> -% -% The empty set. -% -% << -% val is_empty : t -> bool -% >> -% -% Test whether a set is empty or not. -% -% << -% val mem : elt -> t -> bool -% >> -% -% mem x s tests whether x belongs to the set s. -% -% << -% val add : elt -> t -> t -% >> -% -% add x s returns a set containing all elements of s, plus x. -% If x was already in s, s is returned unchanged. -% -% << -% val singleton : elt -> t -% >> -% -% singleton x returns the one-element set containing only x. -% -% << -% val remove : elt -> t -> t -% >> -% -% remove x s returns a set containing all elements of s, -% except x. If x was not in s, s is returned unchanged. -% -% << -% val union : t -> t -> t -% >> -% -% Set union. -% -% << -% val inter : t -> t -> t -% >> -% -% Set intersection. -% -% << -% val diff : t -> t -> t -% >> -% -% Set difference. -% -% << -% val compare : t -> t -> int -% >> -% -% Total ordering between sets. Can be used as the ordering -% function for doing sets of sets. -% -% << -% val equal : t -> t -> bool -% >> -% -% equal s1 s2 tests whether the sets s1 and s2 are equal, -% that is, contain equal elements. -% -% << -% val subset : t -> t -> bool -% >> -% -% subset s1 s2 tests whether the set s1 is a subset of the -% set s2. -% -% << -% val iter : (elt -> unit) -> t -> unit -% >> -% -% iter f s applies f in turn to all elements of s. The -% elements of s are presented to f in increasing order with -% respect to the ordering over the type of the elements. -% -% << -% val fold : (elt -> 'a -> 'a) -> t -> 'a -> 'a -% >> -% -% fold f s a computes (f xN ... (f x2 (f x1 a))...), where x1 -% ... xN are the elements of s, in increasing order. -% -% << -% val for_all : (elt -> bool) -> t -> bool -% >> -% -% for_all p s checks if all elements of the set satisfy the -% predicate p. -% -% << -% val exists : (elt -> bool) -> t -> bool -% >> -% -% exists p s checks if at least one element of the set -% satisfies the predicate p. -% -% << -% val filter : (elt -> bool) -> t -> t -% >> -% -% filter p s returns the set of all elements in s that -% satisfy predicate p. -% -% << -% val partition : (elt -> bool) -> t -> t * t -% >> -% -% partition p s returns a pair of sets (s1, s2), where s1 is -% the set of all the elements of s that satisfy the predicate -% p, and s2 is the set of all the elements of s that do not -% satisfy p. -% -% << -% val cardinal : t -> int -% >> -% -% Return the number of elements of a set. -% -% << -% val elements : t -> elt list -% >> -% -% Return the list of all elements of the given set. The -% returned list is sorted in increasing order with respect to -% the ordering Ord.compare, where Ord is the argument given to -% Set.Make[20.28]. -% -% << -% val min_elt : t -> elt -% >> -% -% Return the smallest element of the given set (with respect -% to the Ord.compare ordering), or raise Not_found if the set -% is empty. -% -% << -% val max_elt : t -> elt -% >> -% -% Same as Set.S.min_elt[20.28], but returns the largest -% element of the given set. -% -% << -% val choose : t -> elt -% >> -% -% Return one element of the given set, or raise Not_found if -% the set is empty. Which element is chosen is unspecified, -% but equal elements will be chosen for equal sets. -% -% << -% val split : elt -> t -> t * bool * t -% >> -% -% split x s returns a triple (l, present, r), where l is the -% set of elements of s that are strictly less than x; r is -% the set of elements of s that are strictly greater than x; -% present is false if s contains no element equal to x, or -% true if s contains an element equal to x. -% -% -% - end -% -% Output signature of the functor Set.Make[20.28]. -% -%<< -% module Make : >> -% -% functor (Ord : OrderedType) -> S with type elt = Ord.t -% Functor building an implementation of the set structure given -% a totally ordered type. -% -% -% -%20.29 Module Sort : Sorting and merging lists. -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* -% -% This module is obsolete and exists only for backward compatibility. The -%sorting functions in Array[20.2] and List[20.17] should be used instead. The -%new functions are faster and use less memory.Sorting and merging lists. -% 0.5cm -%<< -% val list : ('a -> 'a -> bool) -> 'a list -> 'a list -%>> -% -% Sort a list in increasing order according to an ordering -% predicate. The predicate should return true if its first -% argument is less than or equal to its second argument. -% -%<< -% val array : ('a -> 'a -> bool) -> 'a array -> unit -%>> -% -% Sort an array in increasing order according to an ordering -% predicate. The predicate should return true if its first -% argument is less than or equal to its second argument. The -% array is sorted in place. -% -%<< -% val merge : ('a -> 'a -> bool) -> 'a list -> 'a list -> 'a list -%>> -% -% Merge two lists according to the given predicate. Assuming the -% two argument lists are sorted according to the predicate, merge -% returns a sorted list containing the elements from the two -% lists. The behavior is undefined if the two argument lists were -% not sorted. -% -% -% -%20.30 Module Stack : Last-in first-out stacks. -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* -% -% -% This module implements stacks (LIFOs), with in-place modification. -% 0.5cm -%<< -% type 'a t -%>> -% -% The type of stacks containing elements of type 'a. -% -%<< -% exception Empty -%>> -% -% Raised when Stack.pop[20.30] or Stack.top[20.30] is applied to -% an empty stack. -% -%<< -% val create : unit -> 'a t -%>> -% -% Return a new stack, initially empty. -% -%<< -% val push : 'a -> 'a t -> unit -%>> -% -% push x s adds the element x at the top of stack s. -% -%<< -% val pop : 'a t -> 'a -%>> -% -% pop s removes and returns the topmost element in stack s, or -% raises Empty if the stack is empty. -% -%<< -% val top : 'a t -> 'a -%>> -% -% top s returns the topmost element in stack s, or raises Empty -% if the stack is empty. -% -%<< -% val clear : 'a t -> unit -%>> -% -% Discard all elements from a stack. -% -%<< -% val copy : 'a t -> 'a t -%>> -% -% Return a copy of the given stack. -% -%<< -% val is_empty : 'a t -> bool -%>> -% -% Return true if the given stack is empty, false otherwise. -% -%<< -% val length : 'a t -> int -%>> -% -% Return the number of elements in a stack. -% -%<< -% val iter : ('a -> unit) -> 'a t -> unit -%>> -% -% iter f s applies f in turn to all elements of s, from the -% element at the top of the stack to the element at the bottom of -% the stack. The stack itself is unchanged. -% -% -% -%20.31 Module StdLabels : Standard labeled libraries. -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* -% -% -% This meta-module provides labelized version of the Array[20.2], List[20.17] -%and String[20.33] modules. -% They only differ by their labels. Detailed interfaces can be found in -%arrayLabels.mli, listLabels.mli and stringLabels.mli. -% 0.5cm -%<< -% module Array : >> -% -% sig -% -% -% << -% val length : 'a array -> int -% >> -% -% << -% val get : 'a array -> int -> 'a -% >> -% -% << -% val set : 'a array -> int -> 'a -> unit -% >> -% -% << -% val make : int -> 'a -> 'a array -% >> -% -% << -% val create : int -> 'a -> 'a array -% >> -% -% << -% val init : int -> f:(int -> 'a) -> 'a array -% >> -% -% << -% val make_matrix : dimx:int -> dimy:int -> 'a -> 'a array array -% >> -% -% << -% val create_matrix : dimx:int -> dimy:int -> 'a -> 'a array array -% >> -% -% << -% val append : 'a array -> 'a array -> 'a array -% >> -% -% << -% val concat : 'a array list -> 'a array -% >> -% -% << -% val sub : 'a array -> pos:int -> len:int -> 'a array -% >> -% -% << -% val copy : 'a array -> 'a array -% >> -% -% << -% val fill : 'a array -> pos:int -> len:int -> 'a -> unit -% >> -% -% << -% val blit : -% src:'a array -> src_pos:int -> dst:'a array -> dst_pos:int -> len:int -> -% unit -% >> -% -% << -% val to_list : 'a array -> 'a list -% >> -% -% << -% val of_list : 'a list -> 'a array -% >> -% -% << -% val iter : f:('a -> unit) -> 'a array -> unit -% >> -% -% << -% val map : f:('a -> 'b) -> 'a array -> 'b array -% >> -% -% << -% val iteri : f:(int -> 'a -> unit) -> 'a array -> unit -% >> -% -% << -% val mapi : f:(int -> 'a -> 'b) -> 'a array -> 'b array -% >> -% -% << -% val fold_left : f:('a -> 'b -> 'a) -> init:'a -> 'b array -> 'a -% >> -% -% << -% val fold_right : f:('a -> 'b -> 'b) -> 'a array -> init:'b -> 'b -% >> -% -% << -% val sort : cmp:('a -> 'a -> int) -> 'a array -> unit -% >> -% -% << -% val stable_sort : cmp:('a -> 'a -> int) -> 'a array -> unit -% >> -% -% << -% val fast_sort : cmp:('a -> 'a -> int) -> 'a array -> unit -% >> -% -% << -% val unsafe_get : 'a array -> int -> 'a -% >> -% -% << -% val unsafe_set : 'a array -> int -> 'a -> unit -% >> -% -% - end -% -%<< -% module List : >> -% -% sig -% -% -% << -% val length : 'a list -> int -% >> -% -% << -% val hd : 'a list -> 'a -% >> -% -% << -% val tl : 'a list -> 'a list -% >> -% -% << -% val nth : 'a list -> int -> 'a -% >> -% -% << -% val rev : 'a list -> 'a list -% >> -% -% << -% val append : 'a list -> 'a list -> 'a list -% >> -% -% << -% val rev_append : 'a list -> 'a list -> 'a list -% >> -% -% << -% val concat : 'a list list -> 'a list -% >> -% -% << -% val flatten : 'a list list -> 'a list -% >> -% -% << -% val iter : f:('a -> unit) -> 'a list -> unit -% >> -% -% << -% val map : f:('a -> 'b) -> 'a list -> 'b list -% >> -% -% << -% val rev_map : f:('a -> 'b) -> 'a list -> 'b list -% >> -% -% << -% val fold_left : f:('a -> 'b -> 'a) -> init:'a -> 'b list -> 'a -% >> -% -% << -% val fold_right : f:('a -> 'b -> 'b) -> 'a list -> init:'b -> 'b -% >> -% -% << -% val iter2 : f:('a -> 'b -> unit) -> 'a list -> 'b list -> unit -% >> -% -% << -% val map2 : f:('a -> 'b -> 'c) -> 'a list -> 'b list -> 'c list -% >> -% -% << -% val rev_map2 : f:('a -> 'b -> 'c) -> 'a list -> 'b list -> 'c list -% >> -% -% << -% val fold_left2 : -% f:('a -> 'b -> 'c -> 'a) -> init:'a -> 'b list -> 'c list -> 'a -% >> -% -% << -% val fold_right2 : -% f:('a -> 'b -> 'c -> 'c) -> 'a list -> 'b list -> init:'c -> 'c -% >> -% -% << -% val for_all : f:('a -> bool) -> 'a list -> bool -% >> -% -% << -% val exists : f:('a -> bool) -> 'a list -> bool -% >> -% -% << -% val for_all2 : f:('a -> 'b -> bool) -> 'a list -> 'b list -> bool -% >> -% -% << -% val exists2 : f:('a -> 'b -> bool) -> 'a list -> 'b list -> bool -% >> -% -% << -% val mem : 'a -> set:'a list -> bool -% >> -% -% << -% val memq : 'a -> set:'a list -> bool -% >> -% -% << -% val find : f:('a -> bool) -> 'a list -> 'a -% >> -% -% << -% val filter : f:('a -> bool) -> 'a list -> 'a list -% >> -% -% << -% val find_all : f:('a -> bool) -> 'a list -> 'a list -% >> -% -% << -% val partition : f:('a -> bool) -> 'a list -> 'a list * 'a list -% >> -% -% << -% val assoc : 'a -> ('a * 'b) list -> 'b -% >> -% -% << -% val assq : 'a -> ('a * 'b) list -> 'b -% >> -% -% << -% val mem_assoc : 'a -> map:('a * 'b) list -> bool -% >> -% -% << -% val mem_assq : 'a -> map:('a * 'b) list -> bool -% >> -% -% << -% val remove_assoc : 'a -> ('a * 'b) list -> ('a * 'b) list -% >> -% -% << -% val remove_assq : 'a -> ('a * 'b) list -> ('a * 'b) list -% >> -% -% << -% val split : ('a * 'b) list -> 'a list * 'b list -% >> -% -% << -% val combine : 'a list -> 'b list -> ('a * 'b) list -% >> -% -% << -% val sort : cmp:('a -> 'a -> int) -> 'a list -> 'a list -% >> -% -% << -% val stable_sort : cmp:('a -> 'a -> int) -> 'a list -> 'a list -% >> -% -% << -% val fast_sort : cmp:('a -> 'a -> int) -> 'a list -> 'a list -% >> -% -% << -% val merge : cmp:('a -> 'a -> int) -> 'a list -> 'a list -> 'a list -% >> -% -% - end -% -%<< -% module String : >> -% -% sig -% -% -% << -% val length : string -> int -% >> -% -% << -% val get : string -> int -> char -% >> -% -% << -% val set : string -> int -> char -> unit -% >> -% -% << -% val create : int -> string -% >> -% -% << -% val make : int -> char -> string -% >> -% -% << -% val copy : string -> string -% >> -% -% << -% val sub : string -> pos:int -> len:int -> string -% >> -% -% << -% val fill : string -> pos:int -> len:int -> char -> unit -% >> -% -% << -% val blit : -% src:string -> src_pos:int -> dst:string -> dst_pos:int -> len:int -> -% unit -% >> -% -% << -% val concat : sep:string -> string list -> string -% >> -% -% << -% val iter : f:(char -> unit) -> string -> unit -% >> -% -% << -% val escaped : string -> string -% >> -% -% << -% val index : string -> char -> int -% >> -% -% << -% val rindex : string -> char -> int -% >> -% -% << -% val index_from : string -> int -> char -> int -% >> -% -% << -% val rindex_from : string -> int -> char -> int -% >> -% -% << -% val contains : string -> char -> bool -% >> -% -% << -% val contains_from : string -> int -> char -> bool -% >> -% -% << -% val rcontains_from : string -> int -> char -> bool -% >> -% -% << -% val uppercase : string -> string -% >> -% -% << -% val lowercase : string -> string -% >> -% -% << -% val capitalize : string -> string -% >> -% -% << -% val uncapitalize : string -> string -% >> -% -% << -% type t = string -% >> -% -% << -% val compare : t -> t -> int -% >> -% -% << -% val unsafe_get : string -> int -> char -% >> -% -% << -% val unsafe_set : string -> int -> char -> unit -% >> -% -% << -% val unsafe_blit : -% src:string -> src_pos:int -> dst:string -> dst_pos:int -> len:int -> -% unit -% >> -% -% << -% val unsafe_fill : string -> pos:int -> len:int -> char -> unit -% >> -% -% - end -% -% -% -%20.32 Module Stream : Streams and parsers. -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* -% -% -% 0.5cm -%<< -% type 'a t -%>> -% -% The type of streams holding values of type 'a. -% -%<< -% exception Failure -%>> -% -% Raised by parsers when none of the first components of the -% stream patterns is accepted. -% -%<< -% exception Error of string -%>> -% -% Raised by parsers when the first component of a stream pattern -% is accepted, but one of the following components is rejected. -% -% -%Stream builders -%=============== -% -% Warning: these functions create streams with fast access; it is illegal to -%mix them with streams built with [< >]; would raise Failure when accessing -%such mixed streams. -%<< -% val from : (int -> 'a option) -> 'a t -%>> -% -% Stream.from f returns a stream built from the function f. To -% create a new stream element, the function f is called with the -% current stream count. The user function f must return either -% Some for a value or None to specify the end of the -% stream. -% -%<< -% val of_list : 'a list -> 'a t -%>> -% -% Return the stream holding the elements of the list in the same -% order. -% -%<< -% val of_string : string -> char t -%>> -% -% Return the stream of the characters of the string parameter. -% -%<< -% val of_channel : Pervasives.in_channel -> char t -%>> -% -% Return the stream of the characters read from the input -% channel. -% -% -%Stream iterator -%=============== -% -%<< -% val iter : ('a -> unit) -> 'a t -> unit -%>> -% -% Stream.iter f s scans the whole stream s, applying function f -% in turn to each stream element encountered. -% -% -%Predefined parsers -%================== -% -%<< -% val next : 'a t -> 'a -%>> -% -% Return the first element of the stream and remove it from the -% stream. Raise Stream.Failure if the stream is empty. -% -%<< -% val empty : 'a t -> unit -%>> -% -% Return () if the stream is empty, else raise Stream.Failure. -% -% -%Useful functions -%================ -% -%<< -% val peek : 'a t -> 'a option -%>> -% -% Return Some of "the first element" of the stream, or None if -% the stream is empty. -% -%<< -% val junk : 'a t -> unit -%>> -% -% Remove the first element of the stream, possibly unfreezing it -% before. -% -%<< -% val count : 'a t -> int -%>> -% -% Return the current count of the stream elements, i.e. the -% number of the stream elements discarded. -% -%<< -% val npeek : int -> 'a t -> 'a list -%>> -% -% npeek n returns the list of the n first elements of the -% stream, or all its remaining elements if less than n elements -% are available. -% -% -% -%20.33 Module String : String operations. -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* -% -% -% 0.5cm -%<< -% val length : string -> int -%>> -% -% Return the length (number of characters) of the given string. -% -%<< -% val get : string -> int -> char -%>> -% -% String.get s n returns character number n in string s. The -% first character is character number 0. The last character is -% character number String.length s - 1. You can also write s.[n] -% instead of String.get s n. -% Raise Invalid_argument "index out of bounds" if n is outside -% the range 0 to (String.length s - 1). -% -%<< -% val set : string -> int -> char -> unit -%>> -% -% String.set s n c modifies string s in place, replacing the -% character number n by c. You can also write s.[n] <- c instead -% of String.set s n c. Raise Invalid_argument "index out of -% bounds" if n is outside the range 0 to (String.length s - 1). -% -%<< -% val create : int -> string -%>> -% -% String.create n returns a fresh string of length n. The string -% initially contains arbitrary characters. Raise Invalid_argument -% if n < 0 or n > Sys.max_string_length. -% -%<< -% val make : int -> char -> string -%>> -% -% String.make n c returns a fresh string of length n, filled -% with the character c. Raise Invalid_argument if n < 0 or n > -% Sys.max_string_length[20.34]. -% -%<< -% val copy : string -> string -%>> -% -% Return a copy of the given string. -% -%<< -% val sub : string -> int -> int -> string -%>> -% -% String.sub s start len returns a fresh string of length len, -% containing the characters number start to start + len - 1 of -% string s. Raise Invalid_argument if start and len do not -% designate a valid substring of s; that is, if start < 0, or len -% < 0, or start + len > String.length[20.33] s. -% -%<< -% val fill : string -> int -> int -> char -> unit -%>> -% -% String.fill s start len c modifies string s in place, -% replacing the characters number start to start + len - 1 by c. -% Raise Invalid_argument if start and len do not designate a -% valid substring of s. -% -%<< -% val blit : string -> int -> string -> int -> int -> unit -%>> -% -% String.blit src srcoff dst dstoff len copies len characters -% from string src, starting at character number srcoff, to string -% dst, starting at character number dstoff. It works correctly -% even if src and dst are the same string, and the source and -% destination chunks overlap. Raise Invalid_argument if srcoff -% and len do not designate a valid substring of src, or if dstoff -% and len do not designate a valid substring of dst. -% -%<< -% val concat : string -> string list -> string -%>> -% -% String.concat sep sl concatenates the list of strings sl, -% inserting the separator string sep between each. -% -%<< -% val iter : (char -> unit) -> string -> unit -%>> -% -% String.iter f s applies function f in turn to all the -% characters of s. It is equivalent to f s.[0]; f s.[1]; ...; f -% s.[String.length s - 1]; (). -% -%<< -% val escaped : string -> string -%>> -% -% Return a copy of the argument, with special characters -% represented by escape sequences, following the lexical -% conventions of Objective Caml. If there is no special character -% in the argument, return the original string itself, not a copy. -% -%<< -% val index : string -> char -> int -%>> -% -% String.index s c returns the position of the leftmost -% occurrence of character c in string s. Raise Not_found if c -% does not occur in s. -% -%<< -% val rindex : string -> char -> int -%>> -% -% String.rindex s c returns the position of the rightmost -% occurrence of character c in string s. Raise Not_found if c -% does not occur in s. -% -%<< -% val index_from : string -> int -> char -> int -%>> -% -% Same as String.index[20.33], but start searching at the -% character position given as second argument. String.index s c -% is equivalent to String.index_from s 0 c. -% -%<< -% val rindex_from : string -> int -> char -> int -%>> -% -% Same as String.rindex[20.33], but start searching at the -% character position given as second argument. String.rindex s c -% is equivalent to String.rindex_from s (String.length s - 1) c. -% -%<< -% val contains : string -> char -> bool -%>> -% -% String.contains s c tests if character c appears in the string -% s. -% -%<< -% val contains_from : string -> int -> char -> bool -%>> -% -% String.contains_from s start c tests if character c appears in -% the substring of s starting from start to the end of s. Raise -% Invalid_argument if start is not a valid index of s. -% -%<< -% val rcontains_from : string -> int -> char -> bool -%>> -% -% String.rcontains_from s stop c tests if character c appears in -% the substring of s starting from the beginning of s to index -% stop. Raise Invalid_argument if stop is not a valid index of s. -% -%<< -% val uppercase : string -> string -%>> -% -% Return a copy of the argument, with all lowercase letters -% translated to uppercase, including accented letters of the ISO -% Latin-1 (8859-1) character set. -% -%<< -% val lowercase : string -> string -%>> -% -% Return a copy of the argument, with all uppercase letters -% translated to lowercase, including accented letters of the ISO -% Latin-1 (8859-1) character set. -% -%<< -% val capitalize : string -> string -%>> -% -% Return a copy of the argument, with the first character set to -% uppercase. -% -%<< -% val uncapitalize : string -> string -%>> -% -% Return a copy of the argument, with the first character set to -% lowercase. -% -%<< -% type t = string -%>> -% -% An alias for the type of strings. -% -%<< -% val compare : t -> t -> int -%>> -% -% The comparison function for strings, with the same -% specification as Pervasives.compare[19.2]. Along with the type -% t, this function compare allows the module String to be passed -% as argument to the functors Set.Make[20.28] and -% Map.Make[20.18]. -% -% -% -%20.34 Module Sys : System interface. -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* -% -% -% 0.5cm -%<< -% val argv : string array -%>> -% -% The command line arguments given to the process. The first -% element is the command name used to invoke the program. The -% following elements are the command-line arguments given to the -% program. -% -%<< -% val executable_name : string -%>> -% -% The name of the file containing the executable currently -% running. -% -%<< -% val file_exists : string -> bool -%>> -% -% Test if a file with the given name exists. -% -%<< -% val remove : string -> unit -%>> -% -% Remove the given file name from the file system. -% -%<< -% val rename : string -> string -> unit -%>> -% -% Rename a file. The first argument is the old name and the -% second is the new name. If there is already another file under -% the new name, rename may replace it, or raise an exception, -% depending on your operating system. -% -%<< -% val getenv : string -> string -%>> -% -% Return the value associated to a variable in the process -% environment. Raise Not_found if the variable is unbound. -% -%<< -% val command : string -> int -%>> -% -% Execute the given shell command and return its exit code. -% -%<< -% val time : unit -> float -%>> -% -% Return the processor time, in seconds, used by the program -% since the beginning of execution. -% -%<< -% val chdir : string -> unit -%>> -% -% Change the current working directory of the process. -% -%<< -% val getcwd : unit -> string -%>> -% -% Return the current working directory of the process. -% -%<< -% val readdir : string -> string array -%>> -% -% Return the names of all files present in the given directory. -% Names denoting the current directory and the parent directory -% ("." and ".." in Unix) are not returned. Each string in the -% result is a file name rather than a complete path. There is no -% guarantee that the name strings in the resulting array will -% appear in any specific order; they are not, in particular, -% guaranteed to appear in alphabetical order. -% -%<< -% val interactive : bool Pervasives.ref -%>> -% -% This reference is initially set to false in standalone -% programs and to true if the code is being executed under the -% interactive toplevel system ocaml. -% -%<< -% val os_type : string -%>> -% -% Operating system currently executing the Caml program. One of -% -% - "Unix" (for all Unix versions, including Linux and Mac OS X), -% -% - "Win32" (for MS-Windows, OCaml compiled with MSVC++ or -% Mingw), -% - "Cygwin" (for MS-Windows, OCaml compiled with Cygwin). -% -%<< -% val word_size : int -%>> -% -% Size of one word on the machine currently executing the Caml -% program, in bits: 32 or 64. -% -%<< -% val max_string_length : int -%>> -% -% Maximum length of a string. -% -%<< -% val max_array_length : int -%>> -% -% Maximum length of a normal array. The maximum length of a float -% array is max_array_length/2 on 32'bit machines and -% max_array_length on 64'bit machines. -% -% -%Signal handling -%=============== -% -%<< -% type signal_behavior = -% | Signal_default -% | Signal_ignore -% | Signal_handle of (int -> unit) -%>> -% -% What to do when receiving a signal: -% -% - Signal_default: take the default behavior (usually: abort -% the program) -% - Signal_ignore: ignore the signal -% - Signal_handle f: call function f, giving it the signal -% number as argument. -% -% -%<< -% val signal : int -> signal_behavior -> signal_behavior -%>> -% -% Set the behavior of the system on receipt of a given signal. -% The first argument is the signal number. Return the behavior -% previously associated with the signal. If the signal number is -% invalid (or not available on your system), an Invalid_argument -% exception is raised. -% -%<< -% val set_signal : int -> signal_behavior -> unit -%>> -% -% Same as Sys.signal[20.34] but return value is ignored. -% -% -%Signal numbers for the standard POSIX signals. -%---------------------------------------------- -% -%<< -% val sigabrt : int -%>> -% -% Abnormal termination -% -%<< -% val sigalrm : int -%>> -% -% Timeout -% -%<< -% val sigfpe : int -%>> -% -% Arithmetic exception -% -%<< -% val sighup : int -%>> -% -% Hangup on controlling terminal -% -%<< -% val sigill : int -%>> -% -% Invalid hardware instruction -% -%<< -% val sigint : int -%>> -% -% Interactive interrupt (ctrl'c) -% -%<< -% val sigkill : int -%>> -% -% Termination (cannot be ignored) -% -%<< -% val sigpipe : int -%>> -% -% Broken pipe -% -%<< -% val sigquit : int -%>> -% -% Interactive termination -% -%<< -% val sigsegv : int -%>> -% -% Invalid memory reference -% -%<< -% val sigterm : int -%>> -% -% Termination -% -%<< -% val sigusr1 : int -%>> -% -% Application-defined signal 1 -% -%<< -% val sigusr2 : int -%>> -% -% Application-defined signal 2 -% -%<< -% val sigchld : int -%>> -% -% Child process terminated -% -%<< -% val sigcont : int -%>> -% -% Continue -% -%<< -% val sigstop : int -%>> -% -% Stop -% -%<< -% val sigtstp : int -%>> -% -% Interactive stop -% -%<< -% val sigttin : int -%>> -% -% Terminal read from background process -% -%<< -% val sigttou : int -%>> -% -% Terminal write from background process -% -%<< -% val sigvtalrm : int -%>> -% -% Timeout in virtual time -% -%<< -% val sigprof : int -%>> -% -% Profiling interrupt -% -%<< -% exception Break -%>> -% -% Exception raised on interactive interrupt if -% Sys.catch_break[20.34] is on. -% -%<< -% val catch_break : bool -> unit -%>> -% -% catch_break governs whether interactive interrupt (ctrl'c) -% terminates the program or raises the Break exception. Call -% catch_break true to enable raising Break, and catch_break false -% to let the system terminate the program on user interrupt. -% -%<< -% val ocaml_version : string -%>> -% -% ocaml_version is the version of Objective Caml. It is a string -% of the form "major.minor[.patchlevel][+additional-info]" Where -% major, minor, and patchlevel are integers, and additional-info -% is an arbitrary string. The [.patchlevel] and -% [+additional-info] parts may be absent. -% -% -% -%20.35 Module Weak : Arrays of weak pointers and hash tables of weak pointers. -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= -% -% -% 0.5cm -% -%Low-level functions -%=================== -% -%<< -% type 'a t -%>> -% -% The type of arrays of weak pointers (weak arrays). A weak -% pointer is a value that the garbage collector may erase at any -% time. A weak pointer is said to be full if it points to a -% value, empty if the value was erased by the GC. Note that weak -% arrays cannot be marshaled using Pervasives.output_value[19.2] -% or the functions of the Marshal[20.19] module. -% -%<< -% val create : int -> 'a t -%>> -% -% Weak.create n returns a new weak array of length n. All the -% pointers are initially empty. Raise Invalid_argument if n is -% negative or greater than Sys.max_array_length[20.34]-1. -% -%<< -% val length : 'a t -> int -%>> -% -% Weak.length ar returns the length (number of elements) of ar. -% -%<< -% val set : 'a t -> int -> 'a option -> unit -%>> -% -% Weak.set ar n (Some el) sets the nth cell of ar to be a (full) -% pointer to el; Weak.set ar n None sets the nth cell of ar to -% empty. Raise Invalid_argument "Weak.set" if n is not in the -% range 0 to Weak.length[20.35] a - 1. -% -%<< -% val get : 'a t -> int -> 'a option -%>> -% -% Weak.get ar n returns None if the nth cell of ar is empty, -% Some x (where x is the value) if it is full. Raise -% Invalid_argument "Weak.get" if n is not in the range 0 to -% Weak.length[20.35] a - 1. -% -%<< -% val get_copy : 'a t -> int -> 'a option -%>> -% -% Weak.get_copy ar n returns None if the nth cell of ar is -% empty, Some x (where x is a (shallow) copy of the value) if it -% is full. In addition to pitfalls with mutable values, the -% interesting difference with get is that get_copy does not -% prevent the incremental GC from erasing the value in its -% current cycle (get may delay the erasure to the next GC cycle). -% Raise Invalid_argument "Weak.get" if n is not in the range 0 -% to Weak.length[20.35] a - 1. -% -%<< -% val check : 'a t -> int -> bool -%>> -% -% Weak.check ar n returns true if the nth cell of ar is full, -% false if it is empty. Note that even if Weak.check ar n returns -% true, a subsequent Weak.get[20.35] ar n can return None. -% -%<< -% val fill : 'a t -> int -> int -> 'a option -> unit -%>> -% -% Weak.fill ar ofs len el sets to el all pointers of ar from ofs -% to ofs + len - 1. Raise Invalid_argument "Weak.fill" if ofs and -% len do not designate a valid subarray of a. -% -%<< -% val blit : 'a t -> int -> 'a t -> int -> int -> unit -%>> -% -% Weak.blit ar1 off1 ar2 off2 len copies len weak pointers from -% ar1 (starting at off1) to ar2 (starting at off2). It works -% correctly even if ar1 and ar2 are the same. Raise -% Invalid_argument "Weak.blit" if off1 and len do not designate a -% valid subarray of ar1, or if off2 and len do not designate a -% valid subarray of ar2. -% -% -%Weak hash tables -%================ -% -% A weak hash table is a hashed set of values. Each value may magically -%disappear from the set when it is not used by the rest of the program any -%more. This is normally used to share data structures without inducing memory -%leaks. Weak hash tables are defined on values from a Hashtbl.HashedType[20.12] -% module; the equal relation and hash function are taken from that module. We -%will say that v is an instance of x if equal x v is true. -% The equal relation must be able to work on a shallow copy of the values and -%give the same result as with the values themselves. -%<< -% module type S = >> -% -% sig -% -% -% << -% type data -% >> -% -% The type of the elements stored in the table. -% -% << -% type t -% >> -% -% The type of tables that contain elements of type data. Note -% that weak hash tables cannot be marshaled using -% Pervasives.output_value[19.2] or the functions of the -% Marshal[20.19] module. -% -% << -% val create : int -> t -% >> -% -% create n creates a new empty weak hash table, of initial -% size n. The table will grow as needed. -% -% << -% val clear : t -> unit -% >> -% -% Remove all elements from the table. -% -% << -% val merge : t -> data -> data -% >> -% -% merge t x returns an instance of x found in t if any, or -% else adds x to t and return x. -% -% << -% val add : t -> data -> unit -% >> -% -% add t x adds x to t. If there is already an instance of x -% in t, it is unspecified which one will be returned by -% subsequent calls to find and merge. -% -% << -% val remove : t -> data -> unit -% >> -% -% remove t x removes from t one instance of x. Does nothing -% if there is no instance of x in t. -% -% << -% val find : t -> data -> data -% >> -% -% find t x returns an instance of x found in t. Raise -% Not_found if there is no such element. -% -% << -% val find_all : t -> data -> data list -% >> -% -% find_all t x returns a list of all the instances of x found -% in t. -% -% << -% val mem : t -> data -> bool -% >> -% -% mem t x returns true if there is at least one instance of x -% in t, false otherwise. -% -% << -% val iter : (data -> unit) -> t -> unit -% >> -% -% iter f t calls f on each element of t, in some unspecified -% order. It is not specified what happens if f tries to change -% t itself. -% -% << -% val fold : (data -> 'a -> 'a) -> t -> 'a -> 'a -% >> -% -% fold f t init computes (f d1 (... (f dN init))) where d1 -% ... dN are the elements of t in some unspecified order. It -% is not specified what happens if f tries to change t itself. -% -% << -% val count : t -> int -% >> -% -% Count the number of elements in the table. count t gives the -% same result as fold (fun _ n -> n+1) t 0 but does not delay -% the deallocation of the dead elements. -% -% << -% val stats : t -> int * int * int * int * int * int -% >> -% -% Return statistics on the table. The numbers are, in order: -% table length, number of entries, sum of bucket lengths, -% smallest bucket length, median bucket length, biggest bucket -% length. -% -% -% - end -% -% The output signature of the functor Weak.Make[20.35]. -% -%<< -% module Make : >> -% -% functor (H : Hashtbl.HashedType) -> S with type data = H.t -% Functor building an implementation of the weak hash table -% structure. -% -% -% -% -%Chapter 21 The unix library: Unix system calls -%************************************************* -% -% The unix library makes many Unix system calls and system-related library -%functions available to Objective Caml programs. This chapter describes briefly -%the functions provided. Refer to sections 2 and 3 of the Unix manual for more -%details on the behavior of these functions. -% Not all functions are provided by all Unix variants. If some functions are -%not available, they will raise Invalid_arg when called. -% Programs that use the unix library must be linked as follows: -%<< -% ocamlc other options unix.cma other files -% ocamlopt other options unix.cmxa other files -%>> -% For interactive use of the unix library, do: -%<< -% ocamlmktop -o mytop unix.cma -% ./mytop -%>> -% or (if dynamic linking of C libraries is supported on your platform), start -%ocaml and type #load "unix.cma";;. -% Windows: -% A fairly complete emulation of the Unix system calls is -% provided in the Windows version of Objective Caml. The end of -% this chapter gives more information on the functions that are -% not supported under Windows. -% -% -% -%21.1 Module Unix : Interface to the Unix system -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= -% -% -% 0.5cm -% -%Error report -%============ -% -%<< -% type error = -% | E2BIG -%>> -% -% Argument list too long -% -%<< -% | EACCES -%>> -% -% Permission denied -% -%<< -% | EAGAIN -%>> -% -% Resource temporarily unavailable; try again -% -%<< -% | EBADF -%>> -% -% Bad file descriptor -% -%<< -% | EBUSY -%>> -% -% Resource unavailable -% -%<< -% | ECHILD -%>> -% -% No child process -% -%<< -% | EDEADLK -%>> -% -% Resource deadlock would occur -% -%<< -% | EDOM -%>> -% -% Domain error for math functions, etc. -% -%<< -% | EEXIST -%>> -% -% File exists -% -%<< -% | EFAULT -%>> -% -% Bad address -% -%<< -% | EFBIG -%>> -% -% File too large -% -%<< -% | EINTR -%>> -% -% Function interrupted by signal -% -%<< -% | EINVAL -%>> -% -% Invalid argument -% -%<< -% | EIO -%>> -% -% Hardware I/O error -% -%<< -% | EISDIR -%>> -% -% Is a directory -% -%<< -% | EMFILE -%>> -% -% Too many open files by the process -% -%<< -% | EMLINK -%>> -% -% Too many links -% -%<< -% | ENAMETOOLONG -%>> -% -% Filename too long -% -%<< -% | ENFILE -%>> -% -% Too many open files in the system -% -%<< -% | ENODEV -%>> -% -% No such device -% -%<< -% | ENOENT -%>> -% -% No such file or directory -% -%<< -% | ENOEXEC -%>> -% -% Not an executable file -% -%<< -% | ENOLCK -%>> -% -% No locks available -% -%<< -% | ENOMEM -%>> -% -% Not enough memory -% -%<< -% | ENOSPC -%>> -% -% No space left on device -% -%<< -% | ENOSYS -%>> -% -% Function not supported -% -%<< -% | ENOTDIR -%>> -% -% Not a directory -% -%<< -% | ENOTEMPTY -%>> -% -% Directory not empty -% -%<< -% | ENOTTY -%>> -% -% Inappropriate I/O control operation -% -%<< -% | ENXIO -%>> -% -% No such device or address -% -%<< -% | EPERM -%>> -% -% Operation not permitted -% -%<< -% | EPIPE -%>> -% -% Broken pipe -% -%<< -% | ERANGE -%>> -% -% Result too large -% -%<< -% | EROFS -%>> -% -% Read-only file system -% -%<< -% | ESPIPE -%>> -% -% Invalid seek e.g. on a pipe -% -%<< -% | ESRCH -%>> -% -% No such process -% -%<< -% | EXDEV -%>> -% -% Invalid link -% -%<< -% | EWOULDBLOCK -%>> -% -% Operation would block -% -%<< -% | EINPROGRESS -%>> -% -% Operation now in progress -% -%<< -% | EALREADY -%>> -% -% Operation already in progress -% -%<< -% | ENOTSOCK -%>> -% -% Socket operation on non-socket -% -%<< -% | EDESTADDRREQ -%>> -% -% Destination address required -% -%<< -% | EMSGSIZE -%>> -% -% Message too long -% -%<< -% | EPROTOTYPE -%>> -% -% Protocol wrong type for socket -% -%<< -% | ENOPROTOOPT -%>> -% -% Protocol not available -% -%<< -% | EPROTONOSUPPORT -%>> -% -% Protocol not supported -% -%<< -% | ESOCKTNOSUPPORT -%>> -% -% Socket type not supported -% -%<< -% | EOPNOTSUPP -%>> -% -% Operation not supported on socket -% -%<< -% | EPFNOSUPPORT -%>> -% -% Protocol family not supported -% -%<< -% | EAFNOSUPPORT -%>> -% -% Address family not supported by protocol family -% -%<< -% | EADDRINUSE -%>> -% -% Address already in use -% -%<< -% | EADDRNOTAVAIL -%>> -% -% Can-t assign requested address -% -%<< -% | ENETDOWN -%>> -% -% Network is down -% -%<< -% | ENETUNREACH -%>> -% -% Network is unreachable -% -%<< -% | ENETRESET -%>> -% -% Network dropped connection on reset -% -%<< -% | ECONNABORTED -%>> -% -% Software caused connection abort -% -%<< -% | ECONNRESET -%>> -% -% Connection reset by peer -% -%<< -% | ENOBUFS -%>> -% -% No buffer space available -% -%<< -% | EISCONN -%>> -% -% Socket is already connected -% -%<< -% | ENOTCONN -%>> -% -% Socket is not connected -% -%<< -% | ESHUTDOWN -%>> -% -% Can-t send after socket shutdown -% -%<< -% | ETOOMANYREFS -%>> -% -% Too many references: can-t splice -% -%<< -% | ETIMEDOUT -%>> -% -% Connection timed out -% -%<< -% | ECONNREFUSED -%>> -% -% Connection refused -% -%<< -% | EHOSTDOWN -%>> -% -% Host is down -% -%<< -% | EHOSTUNREACH -%>> -% -% No route to host -% -%<< -% | ELOOP -%>> -% -% Too many levels of symbolic links -% -%<< -% | EOVERFLOW -%>> -% -% File size or position not representable -% -%<< -% | EUNKNOWNERR of int -%>> -% -% Unknown error -% -% The type of error codes. Errors defined in the POSIX standard -% and additional errors from UNIX98 and BSD. All other errors -% are mapped to EUNKNOWNERR. -% -%<< -% exception Unix_error of error * string * string -%>> -% -% Raised by the system calls below when an error is encountered. -% The first component is the error code; the second component is -% the function name; the third component is the string parameter -% to the function, if it has one, or the empty string otherwise. -% -%<< -% val error_message : error -> string -%>> -% -% Return a string describing the given error code. -% -%<< -% val handle_unix_error : ('a -> 'b) -> 'a -> 'b -%>> -% -% handle_unix_error f x applies f to x and returns the result. -% If the exception Unix_error is raised, it prints a message -% describing the error and exits with code 2. -% -% -%Access to the process environment -%================================= -% -%<< -% val environment : unit -> string array -%>> -% -% Return the process environment, as an array of strings with -% the format --variable=value--. -% -%<< -% val getenv : string -> string -%>> -% -% Return the value associated to a variable in the process -% environment. Raise Not_found if the variable is unbound. (This -% function is identical to Sys.getenv.) -% -%<< -% val putenv : string -> string -> unit -%>> -% -% Unix.putenv name value sets the value associated to a variable -% in the process environment. name is the name of the environment -% variable, and value its new associated value. -% -% -%Process handling -%================ -% -%<< -% type process_status = -% | WEXITED of int -%>> -% -% The process terminated normally by exit; the argument is the -% return code. -% -%<< -% | WSIGNALED of int -%>> -% -% The process was killed by a signal; the argument is the signal -% number. -% -%<< -% | WSTOPPED of int -%>> -% -% The process was stopped by a signal; the argument is the -% signal number. -% -% The termination status of a process. -% -%<< -% type wait_flag = -% | WNOHANG -%>> -% -% do not block if no child has died yet, but immediately return -% with a pid equal to 0. -% -%<< -% | WUNTRACED -%>> -% -% report also the children that receive stop signals. -% -% Flags for Unix.waitpid[21.1]. -% -%<< -% val execv : string -> string array -> 'a -%>> -% -% execv prog args execute the program in file prog, with the -% arguments args, and the current process environment. These -% execv* functions never return: on success, the current program -% is replaced by the new one; on failure, a -% Unix.Unix_error[21.1] exception is raised. -% -%<< -% val execve : string -> string array -> string array -> 'a -%>> -% -% Same as Unix.execv[21.1], except that the third argument -% provides the environment to the program executed. -% -%<< -% val execvp : string -> string array -> 'a -%>> -% -% Same as Unix.execv[21.1] respectively, except that the program -% is searched in the path. -% -%<< -% val execvpe : string -> string array -> string array -> 'a -%>> -% -% Same as Unix.execvp[21.1] respectively, except that the -% program is searched in the path. -% -%<< -% val fork : unit -> int -%>> -% -% Fork a new process. The returned integer is 0 for the child -% process, the pid of the child process for the parent process. -% -%<< -% val wait : unit -> int * process_status -%>> -% -% Wait until one of the children processes die, and return its -% pid and termination status. -% -%<< -% val waitpid : wait_flag list -> int -> int * process_status -%>> -% -% Same as Unix.wait[21.1], but waits for the child process whose -% pid is given. A pid of -1 means wait for any child. A pid of 0 -% means wait for any child in the same process group as the -% current process. Negative pid arguments represent process -% groups. The list of options indicates whether waitpid should -% return immediately without waiting, or also report stopped -% children. -% -%<< -% val system : string -> process_status -%>> -% -% Execute the given command, wait until it terminates, and return -% its termination status. The string is interpreted by the shell -% /bin/sh and therefore can contain redirections, quotes, -% variables, etc. The result WEXITED 127 indicates that the shell -% couldn-t be executed. -% -%<< -% val getpid : unit -> int -%>> -% -% Return the pid of the process. -% -%<< -% val getppid : unit -> int -%>> -% -% Return the pid of the parent process. -% -%<< -% val nice : int -> int -%>> -% -% Change the process priority. The integer argument is added to -% the --nice-- value. (Higher values of the --nice-- value mean -% lower priorities.) Return the new nice value. -% -% -%Basic file input/output -%======================= -% -%<< -% type file_descr -%>> -% -% The abstract type of file descriptors. -% -%<< -% val stdin : file_descr -%>> -% -% File descriptor for standard input. -% -%<< -% val stdout : file_descr -%>> -% -% File descriptor for standard output. -% -%<< -% val stderr : file_descr -%>> -% -% File descriptor for standard error. -% -%<< -% type open_flag = -% | O_RDONLY -%>> -% -% Open for reading -% -%<< -% | O_WRONLY -%>> -% -% Open for writing -% -%<< -% | O_RDWR -%>> -% -% Open for reading and writing -% -%<< -% | O_NONBLOCK -%>> -% -% Open in non'blocking mode -% -%<< -% | O_APPEND -%>> -% -% Open for append -% -%<< -% | O_CREAT -%>> -% -% Create if nonexistent -% -%<< -% | O_TRUNC -%>> -% -% Truncate to 0 length if existing -% -%<< -% | O_EXCL -%>> -% -% Fail if existing -% -%<< -% | O_NOCTTY -%>> -% -% Don-t make this dev a controlling tty -% -%<< -% | O_DSYNC -%>> -% -% Writes complete as -Synchronised I/O data integrity completion- -% -% -%<< -% | O_SYNC -%>> -% -% Writes complete as -Synchronised I/O file integrity completion- -% -% -%<< -% | O_RSYNC -%>> -% -% Reads complete as writes (depending on O_SYNC/O_DSYNC) -% -% The flags to Unix.openfile[21.1]. -% -%<< -% type file_perm = int -%>> -% -% The type of file access rights, e.g. 0o640 is read and write -% for user, read for group, none for others -% -%<< -% val openfile : string -> open_flag list -> file_perm -> file_descr -%>> -% -% Open the named file with the given flags. Third argument is -% the permissions to give to the file if it is created. Return a -% file descriptor on the named file. -% -%<< -% val close : file_descr -> unit -%>> -% -% Close a file descriptor. -% -%<< -% val read : file_descr -> string -> int -> int -> int -%>> -% -% read fd buff ofs len reads len characters from descriptor fd, -% storing them in string buff, starting at position ofs in string -% buff. Return the number of characters actually read. -% -%<< -% val write : file_descr -> string -> int -> int -> int -%>> -% -% write fd buff ofs len writes len characters to descriptor fd, -% taking them from string buff, starting at position ofs in -% string buff. Return the number of characters actually written. -% write repeats the writing operation until all characters have -% been written or an error occurs. -% -%<< -% val single_write : file_descr -> string -> int -> int -> int -%>> -% -% Same as write, but attempts to write only once. Thus, if an -% error occurs, single_write guarantees that no data has been -% written. -% -% -%Interfacing with the standard input/output library -%================================================== -% -%<< -% val in_channel_of_descr : file_descr -> Pervasives.in_channel -%>> -% -% Create an input channel reading from the given descriptor. The -% channel is initially in binary mode; use set_binary_mode_in ic -% false if text mode is desired. -% -%<< -% val out_channel_of_descr : file_descr -> Pervasives.out_channel -%>> -% -% Create an output channel writing on the given descriptor. The -% channel is initially in binary mode; use set_binary_mode_out oc -% false if text mode is desired. -% -%<< -% val descr_of_in_channel : Pervasives.in_channel -> file_descr -%>> -% -% Return the descriptor corresponding to an input channel. -% -%<< -% val descr_of_out_channel : Pervasives.out_channel -> file_descr -%>> -% -% Return the descriptor corresponding to an output channel. -% -% -%Seeking and truncating -%====================== -% -%<< -% type seek_command = -% | SEEK_SET -%>> -% -% indicates positions relative to the beginning of the file -% -%<< -% | SEEK_CUR -%>> -% -% indicates positions relative to the current position -% -%<< -% | SEEK_END -%>> -% -% indicates positions relative to the end of the file -% -% Positioning modes for Unix.lseek[21.1]. -% -%<< -% val lseek : file_descr -> int -> seek_command -> int -%>> -% -% Set the current position for a file descriptor -% -%<< -% val truncate : string -> int -> unit -%>> -% -% Truncates the named file to the given size. -% -%<< -% val ftruncate : file_descr -> int -> unit -%>> -% -% Truncates the file corresponding to the given descriptor to -% the given size. -% -% -%File statistics -%=============== -% -%<< -% type file_kind = -% | S_REG -%>> -% -% Regular file -% -%<< -% | S_DIR -%>> -% -% Directory -% -%<< -% | S_CHR -%>> -% -% Character device -% -%<< -% | S_BLK -%>> -% -% Block device -% -%<< -% | S_LNK -%>> -% -% Symbolic link -% -%<< -% | S_FIFO -%>> -% -% Named pipe -% -%<< -% | S_SOCK -%>> -% -% Socket -% -%<< -% type stats = { -% st_dev : int ; -%>> -% -% Device number -% -%<< -% st_ino : int ; -%>> -% -% Inode number -% -%<< -% st_kind : file_kind ; -%>> -% -% Kind of the file -% -%<< -% st_perm : file_perm ; -%>> -% -% Access rights -% -%<< -% st_nlink : int ; -%>> -% -% Number of links -% -%<< -% st_uid : int ; -%>> -% -% User id of the owner -% -%<< -% st_gid : int ; -%>> -% -% Group ID of the file-s group -% -%<< -% st_rdev : int ; -%>> -% -% Device minor number -% -%<< -% st_size : int ; -%>> -% -% Size in bytes -% -%<< -% st_atime : float ; -%>> -% -% Last access time -% -%<< -% st_mtime : float ; -%>> -% -% Last modification time -% -%<< -% st_ctime : float ; -%>> -% -% Last status change time -% -%<< -% } -%>> -% -% The informations returned by the Unix.stat[21.1] calls. -% -%<< -% val stat : string -> stats -%>> -% -% Return the informations for the named file. -% -%<< -% val lstat : string -> stats -%>> -% -% Same as Unix.stat[21.1], but in case the file is a symbolic -% link, return the informations for the link itself. -% -%<< -% val fstat : file_descr -> stats -%>> -% -% Return the informations for the file associated with the given -% descriptor. -% -% -%File operations on large files -%============================== -% -%<< -% module LargeFile : >> -% -% sig -% -% -% << -% val lseek : Unix.file_descr -> int64 -> Unix.seek_command -> int64 -% >> -% -% << -% val truncate : string -> int64 -> unit -% >> -% -% << -% val ftruncate : Unix.file_descr -> int64 -> unit -% >> -% -% << -% type stats = { -% st_dev : int ; -% >> -% -% Device number -% -% << -% st_ino : int ; -% >> -% -% Inode number -% -% << -% st_kind : Unix.file_kind ; -% >> -% -% Kind of the file -% -% << -% st_perm : Unix.file_perm ; -% >> -% -% Access rights -% -% << -% st_nlink : int ; -% >> -% -% Number of links -% -% << -% st_uid : int ; -% >> -% -% User id of the owner -% -% << -% st_gid : int ; -% >> -% -% Group ID of the file-s group -% -% << -% st_rdev : int ; -% >> -% -% Device minor number -% -% << -% st_size : int64 ; -% >> -% -% Size in bytes -% -% << -% st_atime : float ; -% >> -% -% Last access time -% -% << -% st_mtime : float ; -% >> -% -% Last modification time -% -% << -% st_ctime : float ; -% >> -% -% Last status change time -% -% << -% } -% >> -% -% << -% val stat : string -> stats -% >> -% -% << -% val lstat : string -> stats -% >> -% -% << -% val fstat : Unix.file_descr -> stats -% >> -% -% - end -% -% File operations on large files. This sub-module provides -% 64'bit variants of the functions Unix.lseek[21.1] (for -% positioning a file descriptor), Unix.truncate[21.1] and -% Unix.ftruncate[21.1] (for changing the size of a file), and -% Unix.stat[21.1], Unix.lstat[21.1] and Unix.fstat[21.1] (for -% obtaining information on files). These alternate functions -% represent positions and sizes by 64'bit integers (type int64) -% instead of regular integers (type int), thus allowing operating -% on files whose sizes are greater than max_int. -% -% -%Operations on file names -%======================== -% -%<< -% val unlink : string -> unit -%>> -% -% Removes the named file -% -%<< -% val rename : string -> string -> unit -%>> -% -% rename old new changes the name of a file from old to new. -% -%<< -% val link : string -> string -> unit -%>> -% -% link source dest creates a hard link named dest to the file -% named source. -% -% -%File permissions and ownership -%============================== -% -%<< -% type access_permission = -% | R_OK -%>> -% -% Read permission -% -%<< -% | W_OK -%>> -% -% Write permission -% -%<< -% | X_OK -%>> -% -% Execution permission -% -%<< -% | F_OK -%>> -% -% File exists -% -% Flags for the Unix.access[21.1] call. -% -%<< -% val chmod : string -> file_perm -> unit -%>> -% -% Change the permissions of the named file. -% -%<< -% val fchmod : file_descr -> file_perm -> unit -%>> -% -% Change the permissions of an opened file. -% -%<< -% val chown : string -> int -> int -> unit -%>> -% -% Change the owner uid and owner gid of the named file. -% -%<< -% val fchown : file_descr -> int -> int -> unit -%>> -% -% Change the owner uid and owner gid of an opened file. -% -%<< -% val umask : int -> int -%>> -% -% Set the process-s file mode creation mask, and return the -% previous mask. -% -%<< -% val access : string -> access_permission list -> unit -%>> -% -% Check that the process has the given permissions over the named -% file. Raise Unix_error otherwise. -% -% -%Operations on file descriptors -%============================== -% -%<< -% val dup : file_descr -> file_descr -%>> -% -% Return a new file descriptor referencing the same file as the -% given descriptor. -% -%<< -% val dup2 : file_descr -> file_descr -> unit -%>> -% -% dup2 fd1 fd2 duplicates fd1 to fd2, closing fd2 if already -% opened. -% -%<< -% val set_nonblock : file_descr -> unit -%>> -% -% Set the --non'blocking-- flag on the given descriptor. When -% the non'blocking flag is set, reading on a descriptor on which -% there is temporarily no data available raises the EAGAIN or -% EWOULDBLOCK error instead of blocking; writing on a descriptor -% on which there is temporarily no room for writing also raises -% EAGAIN or EWOULDBLOCK. -% -%<< -% val clear_nonblock : file_descr -> unit -%>> -% -% Clear the --non'blocking-- flag on the given descriptor. See -% Unix.set_nonblock[21.1]. -% -%<< -% val set_close_on_exec : file_descr -> unit -%>> -% -% Set the -'close-on-exec-- flag on the given descriptor. A -% descriptor with the close-on-exec flag is automatically closed -% when the current process starts another program with one of the -% exec functions. -% -%<< -% val clear_close_on_exec : file_descr -> unit -%>> -% -% Clear the -'close-on-exec-- flag on the given descriptor. See -% Unix.set_close_on_exec[21.1]. -% -% -%Directories -%=========== -% -%<< -% val mkdir : string -> file_perm -> unit -%>> -% -% Create a directory with the given permissions. -% -%<< -% val rmdir : string -> unit -%>> -% -% Remove an empty directory. -% -%<< -% val chdir : string -> unit -%>> -% -% Change the process working directory. -% -%<< -% val getcwd : unit -> string -%>> -% -% Return the name of the current working directory. -% -%<< -% val chroot : string -> unit -%>> -% -% Change the process root directory. -% -%<< -% type dir_handle -%>> -% -% The type of descriptors over opened directories. -% -%<< -% val opendir : string -> dir_handle -%>> -% -% Open a descriptor on a directory -% -%<< -% val readdir : dir_handle -> string -%>> -% -% Return the next entry in a directory. -% Raises End_of_file when the end of the directory has been -% reached. -% -%<< -% val rewinddir : dir_handle -> unit -%>> -% -% Reposition the descriptor to the beginning of the directory -% -%<< -% val closedir : dir_handle -> unit -%>> -% -% Close a directory descriptor. -% -% -%Pipes and redirections -%====================== -% -%<< -% val pipe : unit -> file_descr * file_descr -%>> -% -% Create a pipe. The first component of the result is opened for -% reading, that-s the exit to the pipe. The second component is -% opened for writing, that-s the entrance to the pipe. -% -%<< -% val mkfifo : string -> file_perm -> unit -%>> -% -% Create a named pipe with the given permissions. -% -% -%High-level process and redirection management -%============================================= -% -%<< -% val create_process : -% string -> -% string array -> file_descr -> file_descr -> file_descr -> int -%>> -% -% create_process prog args new_stdin new_stdout new_stderr forks -% a new process that executes the program in file prog, with -% arguments args. The pid of the new process is returned -% immediately; the new process executes concurrently with the -% current process. The standard input and outputs of the new -% process are connected to the descriptors new_stdin, new_stdout -% and new_stderr. Passing e.g. stdout for new_stdout prevents the -% redirection and causes the new process to have the same -% standard output as the current process. The executable file -% prog is searched in the path. The new process has the same -% environment as the current process. -% -%<< -% val create_process_env : -% string -> -% string array -> -% string array -> file_descr -> file_descr -> file_descr -> int -%>> -% -% create_process_env prog args env new_stdin new_stdout -% new_stderr works as Unix.create_process[21.1], except that the -% extra argument env specifies the environment passed to the -% program. -% -%<< -% val open_process_in : string -> Pervasives.in_channel -%>> -% -% High-level pipe and process management. This function runs the -% given command in parallel with the program. The standard output -% of the command is redirected to a pipe, which can be read via -% the returned input channel. The command is interpreted by the -% shell /bin/sh (cf. system). -% -%<< -% val open_process_out : string -> Pervasives.out_channel -%>> -% -% Same as Unix.open_process_in[21.1], but redirect the standard -% input of the command to a pipe. Data written to the returned -% output channel is sent to the standard input of the command. -% Warning: writes on output channels are buffered, hence be -% careful to call Pervasives.flush[19.2] at the right times to -% ensure correct synchronization. -% -%<< -% val open_process : string -> Pervasives.in_channel * Pervasives.out_channel -%>> -% -% Same as Unix.open_process_out[21.1], but redirects both the -% standard input and standard output of the command to pipes -% connected to the two returned channels. The input channel is -% connected to the output of the command, and the output channel -% to the input of the command. -% -%<< -% val open_process_full : -% string -> -% string array -> -% Pervasives.in_channel * Pervasives.out_channel * Pervasives.in_channel -%>> -% -% Similar to Unix.open_process[21.1], but the second argument -% specifies the environment passed to the command. The result is -% a triple of channels connected respectively to the standard -% output, standard input, and standard error of the command. -% -%<< -% val close_process_in : Pervasives.in_channel -> process_status -%>> -% -% Close channels opened by Unix.open_process_in[21.1], wait for -% the associated command to terminate, and return its termination -% status. -% -%<< -% val close_process_out : Pervasives.out_channel -> process_status -%>> -% -% Close channels opened by Unix.open_process_out[21.1], wait -% for the associated command to terminate, and return its -% termination status. -% -%<< -% val close_process : -% Pervasives.in_channel * Pervasives.out_channel -> process_status -%>> -% -% Close channels opened by Unix.open_process[21.1], wait for -% the associated command to terminate, and return its termination -% status. -% -%<< -% val close_process_full : -% Pervasives.in_channel * Pervasives.out_channel * Pervasives.in_channel -> -% process_status -%>> -% -% Close channels opened by Unix.open_process_full[21.1], wait -% for the associated command to terminate, and return its -% termination status. -% -% -%Symbolic links -%============== -% -%<< -% val symlink : string -> string -> unit -%>> -% -% symlink source dest creates the file dest as a symbolic link -% to the file source. -% -%<< -% val readlink : string -> string -%>> -% -% Read the contents of a link. -% -% -%Polling -%======= -% -%<< -% val select : -% file_descr list -> -% file_descr list -> -% file_descr list -> -% float -> file_descr list * file_descr list * file_descr list -%>> -% -% Wait until some input/output operations become possible on -% some channels. The three list arguments are, respectively, a set -% of descriptors to check for reading (first argument), for -% writing (second argument), or for exceptional conditions (third -% argument). The fourth argument is the maximal timeout, in -% seconds; a negative fourth argument means no timeout (unbounded -% wait). The result is composed of three sets of descriptors: -% those ready for reading (first component), ready for writing -% (second component), and over which an exceptional condition is -% pending (third component). -% -% -%Locking -%======= -% -%<< -% type lock_command = -% | F_ULOCK -%>> -% -% Unlock a region -% -%<< -% | F_LOCK -%>> -% -% Lock a region for writing, and block if already locked -% -%<< -% | F_TLOCK -%>> -% -% Lock a region for writing, or fail if already locked -% -%<< -% | F_TEST -%>> -% -% Test a region for other process locks -% -%<< -% | F_RLOCK -%>> -% -% Lock a region for reading, and block if already locked -% -%<< -% | F_TRLOCK -%>> -% -% Lock a region for reading, or fail if already locked -% -% Commands for Unix.lockf[21.1]. -% -%<< -% val lockf : file_descr -> lock_command -> int -> unit -%>> -% -% lockf fd cmd size puts a lock on a region of the file opened -% as fd. The region starts at the current read/write position for -% fd (as set by Unix.lseek[21.1]), and extends size bytes forward -% if size is positive, size bytes backwards if size is negative, -% or to the end of the file if size is zero. A write lock -% prevents any other process from acquiring a read or write lock -% on the region. A read lock prevents any other process from -% acquiring a write lock on the region, but lets other processes -% acquire read locks on it. -% The F_LOCK and F_TLOCK commands attempts to put a write lock on -% the specified region. The F_RLOCK and F_TRLOCK commands -% attempts to put a read lock on the specified region. If one or -% several locks put by another process prevent the current process -% from acquiring the lock, F_LOCK and F_RLOCK block until these -% locks are removed, while F_TLOCK and F_TRLOCK fail immediately -% with an exception. The F_ULOCK removes whatever locks the -% current process has on the specified region. Finally, the -% F_TEST command tests whether a write lock can be acquired on -% the specified region, without actually putting a lock. It -% returns immediately if successful, or fails otherwise. -% -% -%Signals -%======= -% -% Note: installation of signal handlers is performed via the functions -%Sys.signal[20.34] and Sys.set_signal[20.34]. -%<< -% val kill : int -> int -> unit -%>> -% -% kill pid sig sends signal number sig to the process with id -% pid. -% -%<< -% type sigprocmask_command = -% | SIG_SETMASK -% | SIG_BLOCK -% | SIG_UNBLOCK -%>> -% -%<< -% val sigprocmask : sigprocmask_command -> int list -> int list -%>> -% -% sigprocmask cmd sigs changes the set of blocked signals. If -% cmd is SIG_SETMASK, blocked signals are set to those in the -% list sigs. If cmd is SIG_BLOCK, the signals in sigs are added -% to the set of blocked signals. If cmd is SIG_UNBLOCK, the -% signals in sigs are removed from the set of blocked signals. -% sigprocmask returns the set of previously blocked signals. -% -%<< -% val sigpending : unit -> int list -%>> -% -% Return the set of blocked signals that are currently pending. -% -%<< -% val sigsuspend : int list -> unit -%>> -% -% sigsuspend sigs atomically sets the blocked signals to sigs -% and waits for a non-ignored, non'blocked signal to be delivered. -% On return, the blocked signals are reset to their initial -% value. -% -%<< -% val pause : unit -> unit -%>> -% -% Wait until a non-ignored, non'blocked signal is delivered. -% -% -%Time functions -%============== -% -%<< -% type process_times = { -% tms_utime : float ; -%>> -% -% User time for the process -% -%<< -% tms_stime : float ; -%>> -% -% System time for the process -% -%<< -% tms_cutime : float ; -%>> -% -% User time for the children processes -% -%<< -% tms_cstime : float ; -%>> -% -% System time for the children processes -% -%<< -% } -%>> -% -% The execution times (CPU times) of a process. -% -%<< -% type tm = { -% tm_sec : int ; -%>> -% -% Seconds 0..60 -% -%<< -% tm_min : int ; -%>> -% -% Minutes 0..59 -% -%<< -% tm_hour : int ; -%>> -% -% Hours 0..23 -% -%<< -% tm_mday : int ; -%>> -% -% Day of month 1..31 -% -%<< -% tm_mon : int ; -%>> -% -% Month of year 0..11 -% -%<< -% tm_year : int ; -%>> -% -% Year - 1900 -% -%<< -% tm_wday : int ; -%>> -% -% Day of week (Sunday is 0) -% -%<< -% tm_yday : int ; -%>> -% -% Day of year 0..365 -% -%<< -% tm_isdst : bool ; -%>> -% -% Daylight time savings in effect -% -%<< -% } -%>> -% -% The type representing wallclock time and calendar date. -% -%<< -% val time : unit -> float -%>> -% -% Return the current time since 00:00:00 GMT, Jan. 1, 1970, in -% seconds. -% -%<< -% val gettimeofday : unit -> float -%>> -% -% Same as Unix.time[21.1], but with resolution better than 1 -% second. -% -%<< -% val gmtime : float -> tm -%>> -% -% Convert a time in seconds, as returned by Unix.time[21.1], into -% a date and a time. Assumes UTC (Coordinated Universal Time), -% also known as GMT. -% -%<< -% val localtime : float -> tm -%>> -% -% Convert a time in seconds, as returned by Unix.time[21.1], into -% a date and a time. Assumes the local time zone. -% -%<< -% val mktime : tm -> float * tm -%>> -% -% Convert a date and time, specified by the tm argument, into a -% time in seconds, as returned by Unix.time[21.1]. The tm_isdst, -% tm_wday and tm_yday fields of tm are ignored. Also return a -% normalized copy of the given tm record, with the tm_wday, -% tm_yday, and tm_isdst fields recomputed from the other fields, -% and the other fields normalized (so that, e.g., 40 October is -% changed into 9 November). The tm argument is interpreted in the -% local time zone. -% -%<< -% val alarm : int -> int -%>> -% -% Schedule a SIGALRM signal after the given number of seconds. -% -%<< -% val sleep : int -> unit -%>> -% -% Stop execution for the given number of seconds. -% -%<< -% val times : unit -> process_times -%>> -% -% Return the execution times of the process. -% -%<< -% val utimes : string -> float -> float -> unit -%>> -% -% Set the last access time (second arg) and last modification -% time (third arg) for a file. Times are expressed in seconds -% from 00:00:00 GMT, Jan. 1, 1970. -% -%<< -% type interval_timer = -% | ITIMER_REAL -%>> -% -% decrements in real time, and sends the signal SIGALRM when -% expired. -% -%<< -% | ITIMER_VIRTUAL -%>> -% -% decrements in process virtual time, and sends SIGVTALRM when -% expired. -% -%<< -% | ITIMER_PROF -%>> -% -% (for profiling) decrements both when the process is running -% and when the system is running on behalf of the process; it -% sends SIGPROF when expired. -% -% The three kinds of interval timers. -% -%<< -% type interval_timer_status = { -% it_interval : float ; -%>> -% -% Period -% -%<< -% it_value : float ; -%>> -% -% Current value of the timer -% -%<< -% } -%>> -% -% The type describing the status of an interval timer -% -%<< -% val getitimer : interval_timer -> interval_timer_status -%>> -% -% Return the current status of the given interval timer. -% -%<< -% val setitimer : -% interval_timer -> -% interval_timer_status -> interval_timer_status -%>> -% -% setitimer t s sets the interval timer t and returns its -% previous status. The s argument is interpreted as follows: -% s.it_value, if nonzero, is the time to the next timer -% expiration; s.it_interval, if nonzero, specifies a value to be -% used in reloading it_value when the timer expires. Setting -% s.it_value to zero disable the timer. Setting s.it_interval to -% zero causes the timer to be disabled after its next expiration. -% -% -%User id, group id -%================= -% -%<< -% val getuid : unit -> int -%>> -% -% Return the user id of the user executing the process. -% -%<< -% val geteuid : unit -> int -%>> -% -% Return the effective user id under which the process runs. -% -%<< -% val setuid : int -> unit -%>> -% -% Set the real user id and effective user id for the process. -% -%<< -% val getgid : unit -> int -%>> -% -% Return the group id of the user executing the process. -% -%<< -% val getegid : unit -> int -%>> -% -% Return the effective group id under which the process runs. -% -%<< -% val setgid : int -> unit -%>> -% -% Set the real group id and effective group id for the process. -% -%<< -% val getgroups : unit -> int array -%>> -% -% Return the list of groups to which the user executing the -% process belongs. -% -%<< -% type passwd_entry = { -% pw_name : string ; -% pw_passwd : string ; -% pw_uid : int ; -% pw_gid : int ; -% pw_gecos : string ; -% pw_dir : string ; -% pw_shell : string ; -% } -%>> -% -% Structure of entries in the passwd database. -% -%<< -% type group_entry = { -% gr_name : string ; -% gr_passwd : string ; -% gr_gid : int ; -% gr_mem : string array ; -% } -%>> -% -% Structure of entries in the groups database. -% -%<< -% val getlogin : unit -> string -%>> -% -% Return the login name of the user executing the process. -% -%<< -% val getpwnam : string -> passwd_entry -%>> -% -% Find an entry in passwd with the given name, or raise -% Not_found. -% -%<< -% val getgrnam : string -> group_entry -%>> -% -% Find an entry in group with the given name, or raise -% Not_found. -% -%<< -% val getpwuid : int -> passwd_entry -%>> -% -% Find an entry in passwd with the given user id, or raise -% Not_found. -% -%<< -% val getgrgid : int -> group_entry -%>> -% -% Find an entry in group with the given group id, or raise -% Not_found. -% -% -%Internet addresses -%================== -% -%<< -% type inet_addr -%>> -% -% The abstract type of Internet addresses. -% -%<< -% val inet_addr_of_string : string -> inet_addr -%>> -% -% Conversion from the printable representation of an Internet -% address to its internal representation. The argument string -% consists of 4 numbers separated by periods (XXX.YYY.ZZZ.TTT) -% for IPv4 addresses, and up to 8 numbers separated by colons for -% IPv6 addresses. Raise Failure when given a string that does not -% match these formats. -% -%<< -% val string_of_inet_addr : inet_addr -> string -%>> -% -% Return the printable representation of the given Internet -% address. See Unix.inet_addr_of_string[21.1] for a description -% of the printable representation. -% -%<< -% val inet_addr_any : inet_addr -%>> -% -% A special IPv4 address, for use only with bind, representing -% all the Internet addresses that the host machine possesses. -% -%<< -% val inet_addr_loopback : inet_addr -%>> -% -% A special IPv4 address representing the host machine -% (127.0.0.1). -% -%<< -% val inet6_addr_any : inet_addr -%>> -% -% A special IPv6 address, for use only with bind, representing -% all the Internet addresses that the host machine possesses. -% -%<< -% val inet6_addr_loopback : inet_addr -%>> -% -% A special IPv6 address representing the host machine (::1). -% -% -%Sockets -%======= -% -%<< -% type socket_domain = -% | PF_UNIX -%>> -% -% Unix domain -% -%<< -% | PF_INET -%>> -% -% Internet domain (IPv4) -% -%<< -% | PF_INET6 -%>> -% -% Internet domain (IPv6) -% -% The type of socket domains. -% -%<< -% type socket_type = -% | SOCK_STREAM -%>> -% -% Stream socket -% -%<< -% | SOCK_DGRAM -%>> -% -% Datagram socket -% -%<< -% | SOCK_RAW -%>> -% -% Raw socket -% -%<< -% | SOCK_SEQPACKET -%>> -% -% Sequenced packets socket -% -% The type of socket kinds, specifying the semantics of -% communications. -% -%<< -% type sockaddr = -% | ADDR_UNIX of string -% | ADDR_INET of inet_addr * int -%>> -% -% The type of socket addresses. ADDR_UNIX name is a socket -% address in the Unix domain; name is a file name in the file -% system. ADDR_INET(addr,port) is a socket address in the Internet -% domain; addr is the Internet address of the machine, and port -% is the port number. -% -%<< -% val socket : socket_domain -> socket_type -> int -> file_descr -%>> -% -% Create a new socket in the given domain, and with the given -% kind. The third argument is the protocol type; 0 selects the -% default protocol for that kind of sockets. -% -%<< -% val domain_of_sockaddr : sockaddr -> socket_domain -%>> -% -% Return the socket domain adequate for the given socket address. -% -%<< -% val socketpair : -% socket_domain -> -% socket_type -> int -> file_descr * file_descr -%>> -% -% Create a pair of unnamed sockets, connected together. -% -%<< -% val accept : file_descr -> file_descr * sockaddr -%>> -% -% Accept connections on the given socket. The returned descriptor -% is a socket connected to the client; the returned address is -% the address of the connecting client. -% -%<< -% val bind : file_descr -> sockaddr -> unit -%>> -% -% Bind a socket to an address. -% -%<< -% val connect : file_descr -> sockaddr -> unit -%>> -% -% Connect a socket to an address. -% -%<< -% val listen : file_descr -> int -> unit -%>> -% -% Set up a socket for receiving connection requests. The integer -% argument is the maximal number of pending requests. -% -%<< -% type shutdown_command = -% | SHUTDOWN_RECEIVE -%>> -% -% Close for receiving -% -%<< -% | SHUTDOWN_SEND -%>> -% -% Close for sending -% -%<< -% | SHUTDOWN_ALL -%>> -% -% Close both -% -% The type of commands for shutdown. -% -%<< -% val shutdown : file_descr -> shutdown_command -> unit -%>> -% -% Shutdown a socket connection. SHUTDOWN_SEND as second argument -% causes reads on the other end of the connection to return an -% end-of-file condition. SHUTDOWN_RECEIVE causes writes on the -% other end of the connection to return a closed pipe condition -% (SIGPIPE signal). -% -%<< -% val getsockname : file_descr -> sockaddr -%>> -% -% Return the address of the given socket. -% -%<< -% val getpeername : file_descr -> sockaddr -%>> -% -% Return the address of the host connected to the given socket. -% -%<< -% type msg_flag = -% | MSG_OOB -% | MSG_DONTROUTE -% | MSG_PEEK -%>> -% -% The flags for Unix.recv[21.1], Unix.recvfrom[21.1], -% Unix.send[21.1] and Unix.sendto[21.1]. -% -%<< -% val recv : file_descr -> string -> int -> int -> msg_flag list -> int -%>> -% -% Receive data from a connected socket. -% -%<< -% val recvfrom : -% file_descr -> -% string -> int -> int -> msg_flag list -> int * sockaddr -%>> -% -% Receive data from an unconnected socket. -% -%<< -% val send : file_descr -> string -> int -> int -> msg_flag list -> int -%>> -% -% Send data over a connected socket. -% -%<< -% val sendto : -% file_descr -> -% string -> int -> int -> msg_flag list -> sockaddr -> int -%>> -% -% Send data over an unconnected socket. -% -% -%Socket options -%============== -% -%<< -% type socket_bool_option = -% | SO_DEBUG -%>> -% -% Record debugging information -% -%<< -% | SO_BROADCAST -%>> -% -% Permit sending of broadcast messages -% -%<< -% | SO_REUSEADDR -%>> -% -% Allow reuse of local addresses for bind -% -%<< -% | SO_KEEPALIVE -%>> -% -% Keep connection active -% -%<< -% | SO_DONTROUTE -%>> -% -% Bypass the standard routing algorithms -% -%<< -% | SO_OOBINLINE -%>> -% -% Leave out-of'band data in line -% -%<< -% | SO_ACCEPTCONN -%>> -% -% Report whether socket listening is enabled -% -% The socket options that can be consulted with -% Unix.getsockopt[21.1] and modified with Unix.setsockopt[21.1]. -% These options have a boolean (true/false) value. -% -%<< -% type socket_int_option = -% | SO_SNDBUF -%>> -% -% Size of send buffer -% -%<< -% | SO_RCVBUF -%>> -% -% Size of received buffer -% -%<< -% | SO_ERROR -%>> -% -% Report the error status and clear it -% -%<< -% | SO_TYPE -%>> -% -% Report the socket type -% -%<< -% | SO_RCVLOWAT -%>> -% -% Minimum number of bytes to process for input operations -% -%<< -% | SO_SNDLOWAT -%>> -% -% Minimum number of bytes to process for output operations -% -% The socket options that can be consulted with -% Unix.getsockopt_int[21.1] and modified with -% Unix.setsockopt_int[21.1]. These options have an integer value. -% -%<< -% type socket_optint_option = -% | SO_LINGER -%>> -% -% Whether to linger on closed connections that have data -% present, and for how long (in seconds) -% -% The socket options that can be consulted with -% Unix.getsockopt_optint[21.1] and modified with -% Unix.setsockopt_optint[21.1]. These options have a value of -% type int option, with None meaning --disabled--. -% -%<< -% type socket_float_option = -% | SO_RCVTIMEO -%>> -% -% Timeout for input operations -% -%<< -% | SO_SNDTIMEO -%>> -% -% Timeout for output operations -% -% The socket options that can be consulted with -% Unix.getsockopt_float[21.1] and modified with -% Unix.setsockopt_float[21.1]. These options have a -% floating-point value representing a time in seconds. The value -% 0 means infinite timeout. -% -%<< -% val getsockopt : file_descr -> socket_bool_option -> bool -%>> -% -% Return the current status of a boolean-valued option in the -% given socket. -% -%<< -% val setsockopt : file_descr -> socket_bool_option -> bool -> unit -%>> -% -% Set or clear a boolean-valued option in the given socket. -% -%<< -% val getsockopt_int : file_descr -> socket_int_option -> int -%>> -% -% Same as Unix.getsockopt[21.1] for an integer-valued socket -% option. -% -%<< -% val setsockopt_int : file_descr -> socket_int_option -> int -> unit -%>> -% -% Same as Unix.setsockopt[21.1] for an integer-valued socket -% option. -% -%<< -% val getsockopt_optint : file_descr -> socket_optint_option -> int option -%>> -% -% Same as Unix.getsockopt[21.1] for a socket option whose value -% is an int option. -% -%<< -% val setsockopt_optint : -% file_descr -> socket_optint_option -> int option -> unit -%>> -% -% Same as Unix.setsockopt[21.1] for a socket option whose value -% is an int option. -% -%<< -% val getsockopt_float : file_descr -> socket_float_option -> float -%>> -% -% Same as Unix.getsockopt[21.1] for a socket option whose value -% is a floating-point number. -% -%<< -% val setsockopt_float : file_descr -> socket_float_option -> float -> unit -%>> -% -% Same as Unix.setsockopt[21.1] for a socket option whose value -% is a floating-point number. -% -% -%High-level network connection functions -%======================================= -% -%<< -% val open_connection : -% sockaddr -> Pervasives.in_channel * Pervasives.out_channel -%>> -% -% Connect to a server at the given address. Return a pair of -% buffered channels connected to the server. Remember to call -% Pervasives.flush[19.2] on the output channel at the right times -% to ensure correct synchronization. -% -%<< -% val shutdown_connection : Pervasives.in_channel -> unit -%>> -% -% --Shut down-- a connection established with -% Unix.open_connection[21.1]; that is, transmit an end-of-file -% condition to the server reading on the other side of the -% connection. -% -%<< -% val establish_server : -% (Pervasives.in_channel -> Pervasives.out_channel -> unit) -> -% sockaddr -> unit -%>> -% -% Establish a server on the given address. The function given as -% first argument is called for each connection with two buffered -% channels connected to the client. A new process is created for -% each connection. The function Unix.establish_server[21.1] never -% returns normally. -% -% -%Host and protocol databases -%=========================== -% -%<< -% type host_entry = { -% h_name : string ; -% h_aliases : string array ; -% h_addrtype : socket_domain ; -% h_addr_list : inet_addr array ; -% } -%>> -% -% Structure of entries in the hosts database. -% -%<< -% type protocol_entry = { -% p_name : string ; -% p_aliases : string array ; -% p_proto : int ; -% } -%>> -% -% Structure of entries in the protocols database. -% -%<< -% type service_entry = { -% s_name : string ; -% s_aliases : string array ; -% s_port : int ; -% s_proto : string ; -% } -%>> -% -% Structure of entries in the services database. -% -%<< -% val gethostname : unit -> string -%>> -% -% Return the name of the local host. -% -%<< -% val gethostbyname : string -> host_entry -%>> -% -% Find an entry in hosts with the given name, or raise -% Not_found. -% -%<< -% val gethostbyaddr : inet_addr -> host_entry -%>> -% -% Find an entry in hosts with the given address, or raise -% Not_found. -% -%<< -% val getprotobyname : string -> protocol_entry -%>> -% -% Find an entry in protocols with the given name, or raise -% Not_found. -% -%<< -% val getprotobynumber : int -> protocol_entry -%>> -% -% Find an entry in protocols with the given protocol number, or -% raise Not_found. -% -%<< -% val getservbyname : string -> string -> service_entry -%>> -% -% Find an entry in services with the given name, or raise -% Not_found. -% -%<< -% val getservbyport : int -> string -> service_entry -%>> -% -% Find an entry in services with the given service number, or -% raise Not_found. -% -%<< -% type addr_info = { -% ai_family : socket_domain ; -%>> -% -% Socket domain -% -%<< -% ai_socktype : socket_type ; -%>> -% -% Socket type -% -%<< -% ai_protocol : int ; -%>> -% -% Socket protocol number -% -%<< -% ai_addr : sockaddr ; -%>> -% -% Address -% -%<< -% ai_canonname : string ; -%>> -% -% Canonical host name -% -%<< -% } -%>> -% -% Address information returned by Unix.getaddrinfo[21.1]. -% -%<< -% type getaddrinfo_option = -% | AI_FAMILY of socket_domain -%>> -% -% Impose the given socket domain -% -%<< -% | AI_SOCKTYPE of socket_type -%>> -% -% Impose the given socket type -% -%<< -% | AI_PROTOCOL of int -%>> -% -% Impose the given protocol -% -%<< -% | AI_NUMERICHOST -%>> -% -% Do not call name resolver, expect numeric IP address -% -%<< -% | AI_CANONNAME -%>> -% -% Fill the ai_canonname field of the result -% -%<< -% | AI_PASSIVE -%>> -% -% Set address to -'any-- address for use with Unix.bind[21.1] -% -% Options to Unix.getaddrinfo[21.1]. -% -%<< -% val getaddrinfo : -% string -> string -> getaddrinfo_option list -> addr_info list -%>> -% -% getaddrinfo host service opts returns a list of -% Unix.addr_info[21.1] records describing socket parameters and -% addresses suitable for communicating with the given host and -% service. The empty list is returned if the host or service -% names are unknown, or the constraints expressed in opts cannot -% be satisfied. -% host is either a host name or the string representation of an IP -% address. host can be given as the empty string; in this case, -% the -'any-- address or the --loopback-- address are used, -% depending whether opts contains AI_PASSIVE. service is either a -% service name or the string representation of a port number. -% service can be given as the empty string; in this case, the -% port field of the returned addresses is set to 0. opts is a -% possibly empty list of options that allows the caller to force -% a particular socket domain (e.g. IPv6 only or IPv4 only) or a -% particular socket type (e.g. TCP only or UDP only). -% -%<< -% type name_info = { -% ni_hostname : string ; -%>> -% -% Name or IP address of host -% -%<< -% ni_service : string ; -% } -%>> -% -% Name of service or port number -% -% Host and service information returned by Unix.getnameinfo[21.1]. -%<< -% type getnameinfo_option = -% | NI_NOFQDN -%>> -% -% Do not qualify local host names -% -%<< -% | NI_NUMERICHOST -%>> -% -% Always return host as IP address -% -%<< -% | NI_NAMEREQD -%>> -% -% Fail if host name cannot be determined -% -%<< -% | NI_NUMERICSERV -%>> -% -% Always return service as port number -% -%<< -% | NI_DGRAM -%>> -% -% Consider the service as UDP'based instead of the default TCP -% -% Options to Unix.getnameinfo[21.1]. -% -%<< -% val getnameinfo : sockaddr -> getnameinfo_option list -> name_info -%>> -% -% getnameinfo addr opts returns the host name and service name -% corresponding to the socket address addr. opts is a possibly -% empty list of options that governs how these names are obtained. -% Raise Not_found if an error occurs. -% -% -%Terminal interface -%================== -% -% The following functions implement the POSIX standard terminal interface. -%They provide control over asynchronous communication ports and -%pseudo-terminals. Refer to the termios man page for a complete description. -%<< -% type terminal_io = { -% mutable c_ignbrk : bool ; -%>> -% -% Ignore the break condition. -% -%<< -% mutable c_brkint : bool ; -%>> -% -% Signal interrupt on break condition. -% -%<< -% mutable c_ignpar : bool ; -%>> -% -% Ignore characters with parity errors. -% -%<< -% mutable c_parmrk : bool ; -%>> -% -% Mark parity errors. -% -%<< -% mutable c_inpck : bool ; -%>> -% -% Enable parity check on input. -% -%<< -% mutable c_istrip : bool ; -%>> -% -% Strip 8th bit on input characters. -% -%<< -% mutable c_inlcr : bool ; -%>> -% -% Map NL to CR on input. -% -%<< -% mutable c_igncr : bool ; -%>> -% -% Ignore CR on input. -% -%<< -% mutable c_icrnl : bool ; -%>> -% -% Map CR to NL on input. -% -%<< -% mutable c_ixon : bool ; -%>> -% -% Recognize XON/XOFF characters on input. -% -%<< -% mutable c_ixoff : bool ; -%>> -% -% Emit XON/XOFF chars to control input flow. -% -%<< -% mutable c_opost : bool ; -%>> -% -% Enable output processing. -% -%<< -% mutable c_obaud : int ; -%>> -% -% Output baud rate (0 means close connection). -% -%<< -% mutable c_ibaud : int ; -%>> -% -% Input baud rate. -% -%<< -% mutable c_csize : int ; -%>> -% -% Number of bits per character (5-8). -% -%<< -% mutable c_cstopb : int ; -%>> -% -% Number of stop bits (1-2). -% -%<< -% mutable c_cread : bool ; -%>> -% -% Reception is enabled. -% -%<< -% mutable c_parenb : bool ; -%>> -% -% Enable parity generation and detection. -% -%<< -% mutable c_parodd : bool ; -%>> -% -% Specify odd parity instead of even. -% -%<< -% mutable c_hupcl : bool ; -%>> -% -% Hang up on last close. -% -%<< -% mutable c_clocal : bool ; -%>> -% -% Ignore modem status lines. -% -%<< -% mutable c_isig : bool ; -%>> -% -% Generate signal on INTR, QUIT, SUSP. -% -%<< -% mutable c_icanon : bool ; -%>> -% -% Enable canonical processing (line buffering and editing) -% -%<< -% mutable c_noflsh : bool ; -%>> -% -% Disable flush after INTR, QUIT, SUSP. -% -%<< -% mutable c_echo : bool ; -%>> -% -% Echo input characters. -% -%<< -% mutable c_echoe : bool ; -%>> -% -% Echo ERASE (to erase previous character). -% -%<< -% mutable c_echok : bool ; -%>> -% -% Echo KILL (to erase the current line). -% -%<< -% mutable c_echonl : bool ; -%>> -% -% Echo NL even if c_echo is not set. -% -%<< -% mutable c_vintr : char ; -%>> -% -% Interrupt character (usually ctrl'c). -% -%<< -% mutable c_vquit : char ; -%>> -% -% Quit character (usually ctrl-\). -% -%<< -% mutable c_verase : char ; -%>> -% -% Erase character (usually DEL or ctrl-H). -% -%<< -% mutable c_vkill : char ; -%>> -% -% Kill line character (usually ctrl-U). -% -%<< -% mutable c_veof : char ; -%>> -% -% End-of-file character (usually ctrl-D). -% -%<< -% mutable c_veol : char ; -%>> -% -% Alternate end-of-line char. (usually none). -% -%<< -% mutable c_vmin : int ; -%>> -% -% Minimum number of characters to read before the read request -% is satisfied. -% -%<< -% mutable c_vtime : int ; -%>> -% -% Maximum read wait (in 0.1s units). -% -%<< -% mutable c_vstart : char ; -%>> -% -% Start character (usually ctrl-Q). -% -%<< -% mutable c_vstop : char ; -%>> -% -% Stop character (usually ctrl-S). -% -%<< -% } -%>> -% -%<< -% val tcgetattr : file_descr -> terminal_io -%>> -% -% Return the status of the terminal referred to by the given -% file descriptor. -% -%<< -% type setattr_when = -% | TCSANOW -% | TCSADRAIN -% | TCSAFLUSH -%>> -% -%<< -% val tcsetattr : file_descr -> setattr_when -> terminal_io -> unit -%>> -% -% Set the status of the terminal referred to by the given file -% descriptor. The second argument indicates when the status -% change takes place: immediately (TCSANOW), when all pending -% output has been transmitted (TCSADRAIN), or after flushing all -% input that has been received but not read (TCSAFLUSH). -% TCSADRAIN is recommended when changing the output parameters; -% TCSAFLUSH, when changing the input parameters. -% -%<< -% val tcsendbreak : file_descr -> int -> unit -%>> -% -% Send a break condition on the given file descriptor. The -% second argument is the duration of the break, in 0.1s units; 0 -% means standard duration (0.25s). -% -%<< -% val tcdrain : file_descr -> unit -%>> -% -% Waits until all output written on the given file descriptor -% has been transmitted. -% -%<< -% type flush_queue = -% | TCIFLUSH -% | TCOFLUSH -% | TCIOFLUSH -%>> -% -%<< -% val tcflush : file_descr -> flush_queue -> unit -%>> -% -% Discard data written on the given file descriptor but not yet -% transmitted, or data received but not yet read, depending on the -% second argument: TCIFLUSH flushes data received but not read, -% TCOFLUSH flushes data written but not transmitted, and -% TCIOFLUSH flushes both. -% -%<< -% type flow_action = -% | TCOOFF -% | TCOON -% | TCIOFF -% | TCION -%>> -% -%<< -% val tcflow : file_descr -> flow_action -> unit -%>> -% -% Suspend or restart reception or transmission of data on the -% given file descriptor, depending on the second argument: TCOOFF -% suspends output, TCOON restarts output, TCIOFF transmits a STOP -% character to suspend input, and TCION transmits a START -% character to restart input. -% -%<< -% val setsid : unit -> int -%>> -% -% Put the calling process in a new session and detach it from -% its controlling terminal. -% -% -% -%21.2 Module UnixLabels: labelized version of the interface -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* -% -% -% This module is identical to Unix (21.1), and only differs by the addition of -%labels. You may see these labels directly by looking at unixLabels.mli, or by -%using the ocamlbrowser tool. -% Windows: -% The Cygwin port of Objective Caml fully implements all -% functions from the Unix module. The native Win32 ports implement -% a subset of them. Below is a list of the functions that are not -% implemented, or only partially implemented, by the Win32 ports. -% Functions not mentioned are fully implemented and behave as -% described previously in this chapter. -% -% ------------------------------------------------------ -% | Functions | Comment | -% ------------------------------------------------------ -% |fork |not implemented, use | -% | |create_process or | -% | |threads | -% |wait |not implemented, use | -% | |waitpid | -% |waitpid |can only wait for a | -% | |given PID, not any | -% | |child process | -% |getppid |not implemented | -% | |(meaningless under | -% | |Windows) | -% |nice |not implemented | -% |in_channel_of_descr |does not work on | -% | |sockets under Windows | -% | |95, 98, ME; works fine | -% | |under NT, 2000, XP | -% |out_channel_of_descr |ditto | -% |truncate, ftruncate |not implemented | -% |lstat, fstat |not implemented | -% |link, symlink, readlink |not implemented (no | -% | |links under Windows) | -% |fchmod |not implemented | -% |chown, fchown |not implemented (make | -% | |no sense on a DOS file | -% | |system) | -% |umask |not implemented | -% |set_nonblock, clear_nonblock|implemented as dummy | -% | |functions; use threads | -% | |instead of non'blocking| -% | |I/O | -% |rewinddir |not implemented; | -% | |re-open the directory | -% | |instead | -% |mkfifo |not implemented | -% |select |implemented, but works | -% | |only for sockets; use | -% | |threads if you need to| -% | |wait on other kinds of | -% | |file descriptors | -% |lockf |not implemented | -% |kill, pause |not implemented (no | -% | |inter-process signals | -% | |in Windows) | -% |alarm, times |not implemented | -% |getitimer, setitimer |not implemented | -% |getuid, getgid |always return 1 | -% |getgid, getegid, getgroups |not implemented | -% |setuid, setgid |not implemented | -% |getpwnam, getpwuid |always raise Not_found | -% |getgrnam, getgrgid |always raise Not_found | -% |type socket_domain |the domain PF_UNIX is | -% | |not supported; PF_INET | -% | |is fully supported | -% |open_connection |does not work under | -% | |Windows 95, 98, ME; | -% | |works fine under NT, | -% | |2000, XP | -% |establish_server |not implemented; use | -% | |threads | -% |terminal functions (tc*) |not implemented | -% ------------------------------------------------------ -% -% -% -% -%Chapter 22 The num library: arbitrary-precision rational arithmetic -%********************************************************************** -% -% The num library implements integer arithmetic and rational arithmetic in -%arbitrary precision. -% More documentation on the functions provided in this library can be found in -%The CAML Numbers Reference Manual by Valérie Ménissier-Morain, technical -%report 141, INRIA, july 1992 (available electronically, -%ftp://ftp.inria.fr/INRIA/publication/RT/RT-0141.ps.gz). -% Programs that use the num library must be linked as follows: -%<< -% ocamlc other options nums.cma other files -% ocamlopt other options nums.cmxa other files -%>> -% For interactive use of the nums library, do: -%<< -% ocamlmktop -o mytop nums.cma -% ./mytop -%>> -% or (if dynamic linking of C libraries is supported on your platform), start -%ocaml and type #load "nums.cma";;. -% -% -%22.1 Module Num : Operation on arbitrary-precision numbers. -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= -% -% -% Numbers (type num) are arbitrary-precision rational numbers, plus the -%special elements 1/0 (infinity) and 0/0 (undefined). -% 0.5cm -%<< -% type num = -% | Int of int -% | Big_int of Big_int.big_int -% | Ratio of Ratio.ratio -%>> -% -% The type of numbers. -% -% -%Arithmetic operations -%===================== -% -%<< -% val (+/) : num -> num -> num -%>> -% -% Same as Num.add_num[22.1]. -% -%<< -% val add_num : num -> num -> num -%>> -% -% Addition -% -%<< -% val minus_num : num -> num -%>> -% -% Unary negation. -% -%<< -% val (-/) : num -> num -> num -%>> -% -% Same as Num.sub_num[22.1]. -% -%<< -% val sub_num : num -> num -> num -%>> -% -% Subtraction -% -%<< -% val (*/) : num -> num -> num -%>> -% -% Same as Num.mult_num[22.1]. -% -%<< -% val mult_num : num -> num -> num -%>> -% -% Multiplication -% -%<< -% val square_num : num -> num -%>> -% -% Squaring -% -%<< -% val (//) : num -> num -> num -%>> -% -% Same as Num.div_num[22.1]. -% -%<< -% val div_num : num -> num -> num -%>> -% -% Division -% -%<< -% val quo_num : num -> num -> num -%>> -% -% Euclidean division: quotient. -% -%<< -% val mod_num : num -> num -> num -%>> -% -% Euclidean division: remainder. -% -%<< -% val (**/) : num -> num -> num -%>> -% -% Same as Num.power_num[22.1]. -% -%<< -% val power_num : num -> num -> num -%>> -% -% Exponentiation -% -%<< -% val abs_num : num -> num -%>> -% -% Absolute value. -% -%<< -% val succ_num : num -> num -%>> -% -% succ n is n+1 -% -%<< -% val pred_num : num -> num -%>> -% -% pred n is n-1 -% -%<< -% val incr_num : num Pervasives.ref -> unit -%>> -% -% incr r is r:=!r+1, where r is a reference to a number. -% -%<< -% val decr_num : num Pervasives.ref -> unit -%>> -% -% decr r is r:=!r-1, where r is a reference to a number. -% -%<< -% val is_integer_num : num -> bool -%>> -% -% Test if a number is an integer -% -% The four following functions approximate a number by an integer : -%<< -% val integer_num : num -> num -%>> -% -% integer_num n returns the integer closest to n. In case of -% ties, rounds towards zero. -% -%<< -% val floor_num : num -> num -%>> -% -% floor_num n returns the largest integer smaller or equal to n. -% -%<< -% val round_num : num -> num -%>> -% -% round_num n returns the integer closest to n. In case of ties, -% rounds off zero. -% -%<< -% val ceiling_num : num -> num -%>> -% -% ceiling_num n returns the smallest integer bigger or equal to -% n. -% -%<< -% val sign_num : num -> int -%>> -% -% Return -1, 0 or 1 according to the sign of the argument. -% -% -%Comparisons between numbers -%--------------------------- -% -%<< -% val (=/) : num -> num -> bool -%>> -% -%<< -% val ( num -> bool -%>> -% -%<< -% val (>/) : num -> num -> bool -%>> -% -%<< -% val (<=/) : num -> num -> bool -%>> -% -%<< -% val (>=/) : num -> num -> bool -%>> -% -%<< -% val (<>/) : num -> num -> bool -%>> -% -%<< -% val eq_num : num -> num -> bool -%>> -% -%<< -% val lt_num : num -> num -> bool -%>> -% -%<< -% val le_num : num -> num -> bool -%>> -% -%<< -% val gt_num : num -> num -> bool -%>> -% -%<< -% val ge_num : num -> num -> bool -%>> -% -%<< -% val compare_num : num -> num -> int -%>> -% -% Return -1, 0 or 1 if the first argument is less than, equal -% to, or greater than the second argument. -% -%<< -% val max_num : num -> num -> num -%>> -% -% Return the greater of the two arguments. -% -%<< -% val min_num : num -> num -> num -%>> -% -% Return the smaller of the two arguments. -% -% -%Coercions with strings -%====================== -% -%<< -% val string_of_num : num -> string -%>> -% -% Convert a number to a string, using fractional notation. -% -%<< -% val approx_num_fix : int -> num -> string -%>> -% -% See Num.approx_num_exp[22.1]. -% -%<< -% val approx_num_exp : int -> num -> string -%>> -% -% Approximate a number by a decimal. The first argument is the -% required precision. The second argument is the number to -% approximate. Num.approx_num_fix[22.1] uses decimal notation; the -% first argument is the number of digits after the decimal point. -% approx_num_exp uses scientific (exponential) notation; the -% first argument is the number of digits in the mantissa. -% -%<< -% val num_of_string : string -> num -%>> -% -% Convert a string to a number. -% -% -%Coercions between numerical types -%================================= -% -%<< -% val int_of_num : num -> int -%>> -% -%<< -% val num_of_int : int -> num -%>> -% -%<< -% val nat_of_num : num -> Nat.nat -%>> -% -%<< -% val num_of_nat : Nat.nat -> num -%>> -% -%<< -% val num_of_big_int : Big_int.big_int -> num -%>> -% -%<< -% val big_int_of_num : num -> Big_int.big_int -%>> -% -%<< -% val ratio_of_num : num -> Ratio.ratio -%>> -% -%<< -% val num_of_ratio : Ratio.ratio -> num -%>> -% -%<< -% val float_of_num : num -> float -%>> -% -% -% -%22.2 Module Big_int : Operations on arbitrary-precision integers. -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= -% -% -% Big integers (type big_int) are signed integers of arbitrary size. -% 0.5cm -%<< -% type big_int -%>> -% -% The type of big integers. -% -%<< -% val zero_big_int : big_int -%>> -% -% The big integer 0. -% -%<< -% val unit_big_int : big_int -%>> -% -% The big integer 1. -% -% -%Arithmetic operations -%===================== -% -%<< -% val minus_big_int : big_int -> big_int -%>> -% -% Unary negation. -% -%<< -% val abs_big_int : big_int -> big_int -%>> -% -% Absolute value. -% -%<< -% val add_big_int : big_int -> big_int -> big_int -%>> -% -% Addition. -% -%<< -% val succ_big_int : big_int -> big_int -%>> -% -% Successor (add 1). -% -%<< -% val add_int_big_int : int -> big_int -> big_int -%>> -% -% Addition of a small integer to a big integer. -% -%<< -% val sub_big_int : big_int -> big_int -> big_int -%>> -% -% Subtraction. -% -%<< -% val pred_big_int : big_int -> big_int -%>> -% -% Predecessor (subtract 1). -% -%<< -% val mult_big_int : big_int -> big_int -> big_int -%>> -% -% Multiplication of two big integers. -% -%<< -% val mult_int_big_int : int -> big_int -> big_int -%>> -% -% Multiplication of a big integer by a small integer -% -%<< -% val square_big_int : big_int -> big_int -%>> -% -% Return the square of the given big integer -% -%<< -% val sqrt_big_int : big_int -> big_int -%>> -% -% sqrt_big_int a returns the integer square root of a, that is, -% the largest big integer r such that r * r <= a. Raise -% Invalid_argument if a is negative. -% -%<< -% val quomod_big_int : big_int -> big_int -> big_int * big_int -%>> -% -% Euclidean division of two big integers. The first part of the -% result is the quotient, the second part is the remainder. -% Writing (q,r) = quomod_big_int a b, we have a = q * b + r and 0 -% <= r < |b|. Raise Division_by_zero if the divisor is zero. -% -%<< -% val div_big_int : big_int -> big_int -> big_int -%>> -% -% Euclidean quotient of two big integers. This is the first -% result q of quomod_big_int (see above). -% -%<< -% val mod_big_int : big_int -> big_int -> big_int -%>> -% -% Euclidean modulus of two big integers. This is the second -% result r of quomod_big_int (see above). -% -%<< -% val gcd_big_int : big_int -> big_int -> big_int -%>> -% -% Greatest common divisor of two big integers. -% -%<< -% val power_int_positive_int : int -> int -> big_int -%>> -% -%<< -% val power_big_int_positive_int : big_int -> int -> big_int -%>> -% -%<< -% val power_int_positive_big_int : int -> big_int -> big_int -%>> -% -%<< -% val power_big_int_positive_big_int : big_int -> big_int -> big_int -%>> -% -% Exponentiation functions. Return the big integer representing -% the first argument a raised to the power b (the second -% argument). Depending on the function, a and b can be either -% small integers or big integers. Raise Invalid_argument if b is -% negative. -% -% -%Comparisons and tests -%===================== -% -%<< -% val sign_big_int : big_int -> int -%>> -% -% Return 0 if the given big integer is zero, 1 if it is -% positive, and -1 if it is negative. -% -%<< -% val compare_big_int : big_int -> big_int -> int -%>> -% -% compare_big_int a b returns 0 if a and b are equal, 1 if a is -% greater than b, and -1 if a is smaller than b. -% -%<< -% val eq_big_int : big_int -> big_int -> bool -%>> -% -%<< -% val le_big_int : big_int -> big_int -> bool -%>> -% -%<< -% val ge_big_int : big_int -> big_int -> bool -%>> -% -%<< -% val lt_big_int : big_int -> big_int -> bool -%>> -% -%<< -% val gt_big_int : big_int -> big_int -> bool -%>> -% -% Usual boolean comparisons between two big integers. -% -%<< -% val max_big_int : big_int -> big_int -> big_int -%>> -% -% Return the greater of its two arguments. -% -%<< -% val min_big_int : big_int -> big_int -> big_int -%>> -% -% Return the smaller of its two arguments. -% -%<< -% val num_digits_big_int : big_int -> int -%>> -% -% Return the number of machine words used to store the given big -% integer. -% -% -%Conversions to and from strings -%=============================== -% -%<< -% val string_of_big_int : big_int -> string -%>> -% -% Return the string representation of the given big integer, in -% decimal (base 10). -% -%<< -% val big_int_of_string : string -> big_int -%>> -% -% Convert a string to a big integer, in decimal. The string -% consists of an optional - or + sign, followed by one or several -% decimal digits. -% -% -%Conversions to and from other numerical types -%============================================= -% -%<< -% val big_int_of_int : int -> big_int -%>> -% -% Convert a small integer to a big integer. -% -%<< -% val is_int_big_int : big_int -> bool -%>> -% -% Test whether the given big integer is small enough to be -% representable as a small integer (type int) without loss of -% precision. On a 32'bit platform, is_int_big_int a returns true -% if and only if a is between 2^30 and 2^30-1. On a 64'bit -% platform, is_int_big_int a returns true if and only if a is -% between -2^62 and 2^62-1. -% -%<< -% val int_of_big_int : big_int -> int -%>> -% -% Convert a big integer to a small integer (type int). Raises -% Failure "int_of_big_int" if the big integer is not -% representable as a small integer. -% -%<< -% val float_of_big_int : big_int -> float -%>> -% -% Returns a floating-point number approximating the given big -% integer. -% -% -% -%22.3 Module Arith_status : Flags that control rational arithmetic. -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* -% -% -% 0.5cm -%<< -% val arith_status : unit -> unit -%>> -% -% Print the current status of the arithmetic flags. -% -%<< -% val get_error_when_null_denominator : unit -> bool -%>> -% -% See Arith_status.set_error_when_null_denominator[22.3]. -% -%<< -% val set_error_when_null_denominator : bool -> unit -%>> -% -% Get or set the flag null_denominator. When on, attempting to -% create a rational with a null denominator raises an exception. -% When off, rationals with null denominators are accepted. -% Initially: on. -% -%<< -% val get_normalize_ratio : unit -> bool -%>> -% -% See Arith_status.set_normalize_ratio[22.3]. -% -%<< -% val set_normalize_ratio : bool -> unit -%>> -% -% Get or set the flag normalize_ratio. When on, rational numbers -% are normalized after each operation. When off, rational numbers -% are not normalized until printed. Initially: off. -% -%<< -% val get_normalize_ratio_when_printing : unit -> bool -%>> -% -% See Arith_status.set_normalize_ratio_when_printing[22.3]. -% -%<< -% val set_normalize_ratio_when_printing : bool -> unit -%>> -% -% Get or set the flag normalize_ratio_when_printing. When on, -% rational numbers are normalized before being printed. When off, -% rational numbers are printed as is, without normalization. -% Initially: on. -% -%<< -% val get_approx_printing : unit -> bool -%>> -% -% See Arith_status.set_approx_printing[22.3]. -% -%<< -% val set_approx_printing : bool -> unit -%>> -% -% Get or set the flag approx_printing. When on, rational numbers -% are printed as a decimal approximation. When off, rational -% numbers are printed as a fraction. Initially: off. -% -%<< -% val get_floating_precision : unit -> int -%>> -% -% See Arith_status.set_floating_precision[22.3]. -% -%<< -% val set_floating_precision : int -> unit -%>> -% -% Get or set the parameter floating_precision. This parameter is -% the number of digits displayed when approx_printing is on. -% Initially: 12. -% -% -% -% -% -%Chapter 23 The str library: regular expressions and string processing -%************************************************************************ -% -% The str library provides high-level string processing functions, some based -%on regular expressions. It is intended to support the kind of file processing -%that is usually performed with scripting languages such as awk, perl or sed. -% Programs that use the str library must be linked as follows: -%<< -% ocamlc other options str.cma other files -% ocamlopt other options str.cmxa other files -%>> -% For interactive use of the str library, do: -%<< -% ocamlmktop -o mytop str.cma -% ./mytop -%>> -% or (if dynamic linking of C libraries is supported on your platform), start -%ocaml and type #load "str.cma";;. -% -% -%23.1 Module Str : Regular expressions and high-level string processing -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* -% -% -% 0.5cm -% -%Regular expressions -%=================== -% -%<< -% type regexp -%>> -% -% The type of compiled regular expressions. -% -%<< -% val regexp : string -> regexp -%>> -% -% Compile a regular expression. The following constructs are -% recognized: -% -% - . Matches any character except newline. -% - * (postfix) Matches the preceding expression zero, one or -% several times -% - + (postfix) Matches the preceding expression one or several -% times -% - ? (postfix) Matches the preceding expression once or not at -% all -% - [..] Character set. Ranges are denoted with -, as in [a-z]. -% An initial ^, as in [^0-9], complements the set. To include -% a ] character in a set, make it the first character of the -% set. To include a - character in a set, make it the first or -% the last character of the set. -% - ^ Matches at beginning of line (either at the beginning of -% the matched string, or just after a newline character). -% - $ Matches at end of line (either at the end of the matched -% string, or just before a newline character). -% - \| (infix) Alternative between two expressions. -% - \(..\) Grouping and naming of the enclosed expression. -% - \1 The text matched by the first \(...\) expression (\2 for -% the second expression, and so on up to \9). -% - \b Matches word boundaries. -% - \ Quotes special characters. The special characters are -% $^.*+?[]. -% -%<< -% val regexp_case_fold : string -> regexp -%>> -% -% Same as regexp, but the compiled expression will match text in -% a case-insensitive way: uppercase and lowercase letters will be -% considered equivalent. -% -%<< -% val quote : string -> string -%>> -% -% Str.quote s returns a regexp string that matches exactly s and -% nothing else. -% -%<< -% val regexp_string : string -> regexp -%>> -% -% Str.regexp_string s returns a regular expression that matches -% exactly s and nothing else. -% -%<< -% val regexp_string_case_fold : string -> regexp -%>> -% -% Str.regexp_string_case_fold is similar to -% Str.regexp_string[23.1], but the regexp matches in a -% case-insensitive way. -% -% -%String matching and searching -%============================= -% -%<< -% val string_match : regexp -> string -> int -> bool -%>> -% -% string_match r s start tests whether a substring of s that -% starts at position start matches the regular expression r. The -% first character of a string has position 0, as usual. -% -%<< -% val search_forward : regexp -> string -> int -> int -%>> -% -% search_forward r s start searches the string s for a substring -% matching the regular expression r. The search starts at position -% start and proceeds towards the end of the string. Return the -% position of the first character of the matched substring, or -% raise Not_found if no substring matches. -% -%<< -% val search_backward : regexp -> string -> int -> int -%>> -% -% search_backward r s last searches the string s for a substring -% matching the regular expression r. The search first considers -% substrings that start at position last and proceeds towards the -% beginning of string. Return the position of the first character -% of the matched substring; raise Not_found if no substring -% matches. -% -%<< -% val string_partial_match : regexp -> string -> int -> bool -%>> -% -% Similar to Str.string_match[23.1], but also returns true if -% the argument string is a prefix of a string that matches. This -% includes the case of a true complete match. -% -%<< -% val matched_string : string -> string -%>> -% -% matched_string s returns the substring of s that was matched -% by the latest Str.string_match[23.1], Str.search_forward[23.1] -% or Str.search_backward[23.1]. The user must make sure that -% the parameter s is the same string that was passed to the -% matching or searching function. -% -%<< -% val match_beginning : unit -> int -%>> -% -% match_beginning() returns the position of the first character -% of the substring that was matched by Str.string_match[23.1], -% Str.search_forward[23.1] or Str.search_backward[23.1]. -% -%<< -% val match_end : unit -> int -%>> -% -% match_end() returns the position of the character following the -% last character of the substring that was matched by -% string_match, search_forward or search_backward. -% -%<< -% val matched_group : int -> string -> string -%>> -% -% matched_group n s returns the substring of s that was matched -% by the nth group \(...\) of the regular expression during the -% latest Str.string_match[23.1], Str.search_forward[23.1] or -% Str.search_backward[23.1]. The user must make sure that the -% parameter s is the same string that was passed to the matching -% or searching function. matched_group n s raises Not_found if -% the nth group of the regular expression was not matched. This -% can happen with groups inside alternatives \|, options ? or -% repetitions *. For instance, the empty string will match -% \(a\)*, but matched_group 1 "" will raise Not_found because the -% first group itself was not matched. -% -%<< -% val group_beginning : int -> int -%>> -% -% group_beginning n returns the position of the first character -% of the substring that was matched by the nth group of the -% regular expression. -% Raises -% -% - Not_found if the nth group of the regular expression was not -% matched. -% - Invalid_argument if there are fewer than n groups in the -% regular expression. -% -%<< -% val group_end : int -> int -%>> -% -% group_end n returns the position of the character following -% the last character of substring that was matched by the nth -% group of the regular expression. -% Raises -% -% - Not_found if the nth group of the regular expression was not -% matched. -% - Invalid_argument if there are fewer than n groups in the -% regular expression. -% -% -%Replacement -%=========== -% -%<< -% val global_replace : regexp -> string -> string -> string -%>> -% -% global_replace regexp templ s returns a string identical to s, -% except that all substrings of s that match regexp have been -% replaced by templ. The replacement template templ can contain -% \1, \2, etc; these sequences will be replaced by the text -% matched by the corresponding group in the regular expression. -% \0 stands for the text matched by the whole regular expression. -% -%<< -% val replace_first : regexp -> string -> string -> string -%>> -% -% Same as Str.global_replace[23.1], except that only the first -% substring matching the regular expression is replaced. -% -%<< -% val global_substitute : regexp -> (string -> string) -> string -> string -%>> -% -% global_substitute regexp subst s returns a string identical to -% s, except that all substrings of s that match regexp have been -% replaced by the result of function subst. The function subst is -% called once for each matching substring, and receives s (the -% whole text) as argument. -% -%<< -% val substitute_first : regexp -> (string -> string) -> string -> string -%>> -% -% Same as Str.global_substitute[23.1], except that only the first -% substring matching the regular expression is replaced. -% -%<< -% val replace_matched : string -> string -> string -%>> -% -% replace_matched repl s returns the replacement text repl in -% which \1, \2, etc. have been replaced by the text matched by -% the corresponding groups in the most recent matching operation. -% s must be the same string that was matched during this matching -% operation. -% -% -%Splitting -%========= -% -%<< -% val split : regexp -> string -> string list -%>> -% -% split r s splits s into substrings, taking as delimiters the -% substrings that match r, and returns the list of substrings. -% For instance, split (regexp "[ \t]+") s splits s into -% blank-separated words. An occurrence of the delimiter at the -% beginning and at the end of the string is ignored. -% -%<< -% val bounded_split : regexp -> string -> int -> string list -%>> -% -% Same as Str.split[23.1], but splits into at most n substrings, -% where n is the extra integer parameter. -% -%<< -% val split_delim : regexp -> string -> string list -%>> -% -% Same as Str.split[23.1] but occurrences of the delimiter at -% the beginning and at the end of the string are recognized and -% returned as empty strings in the result. For instance, -% split_delim (regexp " ") " abc " returns [""; "abc"; ""], while -% split with the same arguments returns ["abc"]. -% -%<< -% val bounded_split_delim : regexp -> string -> int -> string list -%>> -% -% Same as Str.bounded_split[23.1], but occurrences of the -% delimiter at the beginning and at the end of the string are -% recognized and returned as empty strings in the result. -% -%<< -% type split_result = -% | Text of string -% | Delim of string -%>> -% -%<< -% val full_split : regexp -> string -> split_result list -%>> -% -% Same as Str.split_delim[23.1], but returns the delimiters as -% well as the substrings contained between delimiters. The former -% are tagged Delim in the result list; the latter are tagged -% Text. For instance, full_split (regexp "[{}]") "{ab}" returns -% [Delim "{"; Text "ab"; Delim "}"]. -% -%<< -% val bounded_full_split : regexp -> string -> int -> split_result list -%>> -% -% Same as Str.bounded_split_delim[23.1], but returns the -% delimiters as well as the substrings contained between -% delimiters. The former are tagged Delim in the result list; the -% latter are tagged Text. -% -% -%Extracting substrings -%===================== -% -%<< -% val string_before : string -> int -> string -%>> -% -% string_before s n returns the substring of all characters of s -% that precede position n (excluding the character at position -% n). -% -%<< -% val string_after : string -> int -> string -%>> -% -% string_after s n returns the substring of all characters of s -% that follow position n (including the character at position n). -% -%<< -% val first_chars : string -> int -> string -%>> -% -% first_chars s n returns the first n characters of s. This is -% the same function as Str.string_before[23.1]. -% -%<< -% val last_chars : string -> int -> string -%>> -% -% last_chars s n returns the last n characters of s. -% -% -% -% -% -%dChapter 24 The threads library -%d********************************* -% -% The threads library allows concurrent programming in Objective Caml. It -%provides multiple threads of control (also called lightweight processes) that -%execute concurrently in the same memory space. Threads communicate by in-place -%modification of shared data structures, or by sending and receiving data on -%communication channels. -% The threads library is implemented by time-sharing on a single processor. It -%will not take advantage of multi-processor machines. Using this library will -%therefore never make programs run faster. However, many programs are easier to -%write when structured as several communicating processes. -% Two implementations of the threads library are available, depending on the -%capabilities of the operating system: -% -% - System threads. This implementation builds on the OS-provided threads -% facilities: POSIX 1003.1c threads for Unix, and Win32 threads for Windows. -% When available, system threads support both bytecode and native'code -% programs. -% - VM-level threads. This implementation performs time-sharing and context -% switching at the level of the OCaml virtual machine (bytecode interpreter). -% It is available on Unix systems, and supports only bytecode programs. It -% cannot be used with native'code programs. -% Programs that use system threads must be linked as follows: -%<< -% ocamlc -thread other options threads.cma other files -% ocamlopt -thread other options threads.cmxa other files -%>> -% All object files on the command line must also have been compiled with the -%-thread option (see chapter 8). -% Programs that use VM-level threads must be compiled with the -vmthread option -%to ocamlc (see chapter 8), and be linked as follows: -%<< -% ocamlc -vmthread other options threads.cma other files -%>> -% -% -% -%d24.1 Module Thread : Lightweight threads for Posix 1003.1c and Win32. -%d*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= -%d% -%d% -%d% 0.5cm -%d%<< -%d type t -%d%>> -%d% -%d% The type of thread handles. -%d% -%d% -%d%Thread creation and termination -%d%=============================== -%d% -%d%<< -%d val create : ('a -> 'b) -> 'a -> t -%d%>> -% -% Thread.create funct arg creates a new thread of control, in -% which the function application funct arg is executed -% concurrently with the other threads of the program. The -% application of Thread.create returns the handle of the newly -% created thread. The new thread terminates when the application -% funct arg returns, either normally or by raising an uncaught -% exception. In the latter case, the exception is printed on -% standard error, but not propagated back to the parent thread. -% Similarly, the result of the application funct arg is discarded -% and not directly accessible to the parent thread. -% -%<< -% val self : unit -> t -%>> -% -% Return the thread currently executing. -% -%<< -% val id : t -> int -%>> -% -% Return the identifier of the given thread. A thread identifier -% is an integer that identifies uniquely the thread. It can be -% used to build data structures indexed by threads. -% -%<< -% val exit : unit -> unit -%>> -% -% Terminate prematurely the currently executing thread. -% -%<< -% val kill : t -> unit -%>> -% -% Terminate prematurely the thread whose handle is given. -% -% -%Suspending threads -%================== -% -%<< -% val delay : float -> unit -%>> -% -% delay d suspends the execution of the calling thread for d -% seconds. The other program threads continue to run during this -% time. -% -%<< -% val join : t -> unit -%>> -% -% join th suspends the execution of the calling thread until the -% thread th has terminated. -% -%<< -% val wait_read : Unix.file_descr -> unit -%>> -% -% See Thread.wait_write[24.1]. -% -%<< -% val wait_write : Unix.file_descr -> unit -%>> -% -% This function does nothing in this implementation. -% -%<< -% val wait_timed_read : Unix.file_descr -> float -> bool -%>> -% -% See Thread.wait_timed_read[24.1]. -% -%<< -% val wait_timed_write : Unix.file_descr -> float -> bool -%>> -% -% Suspend the execution of the calling thread until at least one -% character is available for reading (wait_read) or one character -% can be written without blocking (wait_write) on the given Unix -% file descriptor. Wait for at most the amount of time given as -% second argument (in seconds). Return true if the file -% descriptor is ready for input/output and false if the timeout -% expired. -% These functions return immediately true in the Win32 -% implementation. -% -%<< -% val select : -% Unix.file_descr list -> -% Unix.file_descr list -> -% Unix.file_descr list -> -% float -> Unix.file_descr list * Unix.file_descr list * Unix.file_descr list -%>> -% -% Suspend the execution of the calling thead until input/output -% becomes possible on the given Unix file descriptors. The -% arguments and results have the same meaning as for Unix.select. -% This function is not implemented yet under Win32. -% -%<< -% val wait_pid : int -> int * Unix.process_status -%>> -% -% wait_pid p suspends the execution of the calling thread until -% the process specified by the process identifier p terminates. -% Returns the pid of the child caught and its termination status, -% as per Unix.wait. This function is not implemented under MacOS. -% -%<< -% val wait_signal : int list -> int -%>> -% -% wait_signal sigs suspends the execution of the calling thread -% until the process receives one of the signals specified in the -% list sigs. It then returns the number of the signal received. -% Signal handlers attached to the signals in sigs will not be -% invoked. Do not call wait_signal concurrently from several -% threads on the same signals. -% -%<< -% val yield : unit -> unit -%>> -% -% Re-schedule the calling thread without suspending it. This -% function can be used to give scheduling hints, telling the -% scheduler that now is a good time to switch to other threads. -% -% -% -%24.2 Module Mutex : Locks for mutual exclusion. -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= -% -% -% Mutexes (mutual-exclusion locks) are used to implement critical sections and -%protect shared mutable data structures against concurrent accesses. The -%typical use is (if m is the mutex associated with the data structure D): -%<< -% -% Mutex.lock m; -% (* Critical section that operates over D *); -% Mutex.unlock m -% -%>> -% -% 0.5cm -%<< -% type t -%>> -% -% The type of mutexes. -% -%<< -% val create : unit -> t -%>> -% -% Return a new mutex. -% -%<< -% val lock : t -> unit -%>> -% -% Lock the given mutex. Only one thread can have the mutex locked -% at any time. A thread that attempts to lock a mutex already -% locked by another thread will suspend until the other thread -% unlocks the mutex. -% -%<< -% val try_lock : t -> bool -%>> -% -% Same as Mutex.lock[24.2], but does not suspend the calling -% thread if the mutex is already locked: just return false -% immediately in that case. If the mutex is unlocked, lock it and -% return true. -% -%<< -% val unlock : t -> unit -%>> -% -% Unlock the given mutex. Other threads suspended trying to lock -% the mutex will restart. -% -% -% -%24.3 Module Condition : Condition variables to synchronize between threads. -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= -% -% -% Condition variables are used when one thread wants to wait until another -%thread has finished doing something: the former thread --waits-- on the -%condition variable, the latter thread --signals-- the condition when it is -%done. Condition variables should always be protected by a mutex. The typical -%use is (if D is a shared data structure, m its mutex, and c is a condition -%variable): -%<< -% -% Mutex.lock m; -% while (* some predicate P over D is not satisfied *) do -% Condition.wait c m -% done; -% (* Modify D *) -% if (* the predicate P over D is now satified *) then Condition.signal c; -% Mutex.unlock m -% -%>> -% -% 0.5cm -%<< -% type t -%>> -% -% The type of condition variables. -% -%<< -% val create : unit -> t -%>> -% -% Return a new condition variable. -% -%<< -% val wait : t -> Mutex.t -> unit -%>> -% -% wait c m atomically unlocks the mutex m and suspends the -% calling process on the condition variable c. The process will -% restart after the condition variable c has been signalled. The -% mutex m is locked again before wait returns. -% -%<< -% val signal : t -> unit -%>> -% -% signal c restarts one of the processes waiting on the -% condition variable c. -% -%<< -% val broadcast : t -> unit -%>> -% -% broadcast c restarts all processes waiting on the condition -% variable c. -% -% -% -%24.4 Module Event : First'class synchronous communication. -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* -% -% -% This module implements synchronous inter-thread communications over -%channels. As in John Reppy-s Concurrent ML system, the communication events -%are first'class values: they can be built and combined independently before -%being offered for communication. -% 0.5cm -%<< -% type 'a channel -%>> -% -% The type of communication channels carrying values of type 'a. -% -%<< -% val new_channel : unit -> 'a channel -%>> -% -% Return a new channel. -% -%<< -% type 'a event -%>> -% -% The type of communication events returning a result of type 'a. -% -%<< -% val send : 'a channel -> 'a -> unit event -%>> -% -% send ch v returns the event consisting in sending the value v -% over the channel ch. The result value of this event is (). -% -%<< -% val receive : 'a channel -> 'a event -%>> -% -% receive ch returns the event consisting in receiving a value -% from the channel ch. The result value of this event is the -% value received. -% -%<< -% val always : 'a -> 'a event -%>> -% -% always v returns an event that is always ready for -% synchronization. The result value of this event is v. -% -%<< -% val choose : 'a event list -> 'a event -%>> -% -% choose evl returns the event that is the alternative of all -% the events in the list evl. -% -%<< -% val wrap : 'a event -> ('a -> 'b) -> 'b event -%>> -% -% wrap ev fn returns the event that performs the same -% communications as ev, then applies the post-processing function -% fn on the return value. -% -%<< -% val wrap_abort : 'a event -> (unit -> unit) -> 'a event -%>> -% -% wrap_abort ev fn returns the event that performs the same -% communications as ev, but if it is not selected the function fn -% is called after the synchronization. -% -%<< -% val guard : (unit -> 'a event) -> 'a event -%>> -% -% guard fn returns the event that, when synchronized, computes -% fn() and behaves as the resulting event. This allows to compute -% events with side-effects at the time of the synchronization -% operation. -% -%<< -% val sync : 'a event -> 'a -%>> -% -% --Synchronize-- on an event: offer all the communication -% possibilities specified in the event to the outside world, and -% block until one of the communications succeed. The result value -% of that communication is returned. -% -%<< -% val select : 'a event list -> 'a -%>> -% -% --Synchronize-- on an alternative of events. select evl is -% shorthand for sync(choose evl). -% -%<< -% val poll : 'a event -> 'a option -%>> -% -% Non'blocking version of Event.sync[24.4]: offer all the -% communication possibilities specified in the event to the -% outside world, and if one can take place immediately, perform -% it and return Some r where r is the result value of that -% communication. Otherwise, return None without blocking. -% -% -% -%24.5 Module ThreadUnix : Thread'compatible system calls. -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* -% -% The functionality of this module has been merged back into the Unix[21.1] -%module. Threaded programs can now call the functions from module Unix[21.1] -%directly, and still get the correct behavior (block the calling thread, if -%required, but do not block all threads in the process).Thread'compatible -%system calls. -% 0.5cm -% -%Process handling -%================ -% -%<< -% val execv : string -> string array -> unit -%>> -% -%<< -% val execve : string -> string array -> string array -> unit -%>> -% -%<< -% val execvp : string -> string array -> unit -%>> -% -%<< -% val wait : unit -> int * Unix.process_status -%>> -% -%<< -% val waitpid : Unix.wait_flag list -> int -> int * Unix.process_status -%>> -% -%<< -% val system : string -> Unix.process_status -%>> -% -% -%Basic input/output -%================== -% -%<< -% val read : Unix.file_descr -> string -> int -> int -> int -%>> -% -%<< -% val write : Unix.file_descr -> string -> int -> int -> int -%>> -% -% -%Input/output with timeout -%========================= -% -%<< -% val timed_read : Unix.file_descr -> string -> int -> int -> float -> int -%>> -% -% See ThreadUnix.timed_write[24.5]. -% -%<< -% val timed_write : Unix.file_descr -> string -> int -> int -> float -> int -%>> -% -% Behave as ThreadUnix.read[24.5] and ThreadUnix.write[24.5], -% except that Unix_error(ETIMEDOUT,_,_) is raised if no data is -% available for reading or ready for writing after d seconds. The -% delay d is given in the fifth argument, in seconds. -% -% -%Polling -%======= -% -%<< -% val select : -% Unix.file_descr list -> -% Unix.file_descr list -> -% Unix.file_descr list -> -% float -> Unix.file_descr list * Unix.file_descr list * Unix.file_descr list -%>> -% -% -%Pipes and redirections -%====================== -% -%<< -% val pipe : unit -> Unix.file_descr * Unix.file_descr -%>> -% -%<< -% val open_process_in : string -> Pervasives.in_channel -%>> -% -%<< -% val open_process_out : string -> Pervasives.out_channel -%>> -% -%<< -% val open_process : string -> Pervasives.in_channel * Pervasives.out_channel -%>> -% -% -%Time -%==== -% -%<< -% val sleep : int -> unit -%>> -% -% -%Sockets -%======= -% -%<< -% val socket : Unix.socket_domain -> Unix.socket_type -> int -> Unix.file_descr -%>> -% -%<< -% val accept : Unix.file_descr -> Unix.file_descr * Unix.sockaddr -%>> -% -%<< -% val connect : Unix.file_descr -> Unix.sockaddr -> unit -%>> -% -%<< -% val recv : -% Unix.file_descr -> string -> int -> int -> Unix.msg_flag list -> int -%>> -% -%<< -% val recvfrom : -% Unix.file_descr -> -% string -> int -> int -> Unix.msg_flag list -> int * Unix.sockaddr -%>> -% -%<< -% val send : -% Unix.file_descr -> string -> int -> int -> Unix.msg_flag list -> int -%>> -% -%<< -% val sendto : -% Unix.file_descr -> -% string -> int -> int -> Unix.msg_flag list -> Unix.sockaddr -> int -%>> -% -%<< -% val open_connection : -% Unix.sockaddr -> Pervasives.in_channel * Pervasives.out_channel -%>> -% -% -% -% -%Chapter 25 The graphics library -%********************************** -% -% The graphics library provides a set of portable drawing primitives. Drawing -%takes place in a separate window that is created when open_graph is called. -% Unix: -% This library is implemented under the X11 windows system. -% Programs that use the graphics library must be linked as -% follows: -% << -% ocamlc other options graphics.cma other files -% >> -% For interactive use of the graphics library, do: -% << -% ocamlmktop -o mytop graphics.cma -% ./mytop -% >> -% or (if dynamic linking of C libraries is supported on your -% platform), start ocaml and type #load "graphics.cma";;. -% Here are the graphics mode specifications supported by -% open_graph on the X11 implementation of this library: the -% argument to open_graph has the format "display-name geometry", -% where display-name is the name of the X-windows display to -% connect to, and geometry is a standard X-windows geometry -% specification. The two components are separated by a space. -% Either can be omitted, or both. Examples: -% -% open_graph "foo:0" connects to the display foo:0 and creates a -% window with the default geometry -% open_graph "foo:0 300x100+50-0" connects to the display foo:0 -% and creates a window 300 pixels wide by 100 pixels tall, at -% location (50,0) -% open_graph " 300x100+50-0" connects to the default display and -% creates a window 300 pixels wide by 100 pixels tall, at -% location (50,0) -% open_graph "" connects to the default display and creates a -% window with the default geometry. -% -% -% Windows: -% This library is available both for standalone compiled programs -% and under the toplevel application ocamlwin.exe. For the latter, -% this library must be loaded in'core by typing -% << -% #load "graphics.cma";; -% >> -% -% The screen coordinates are interpreted as shown in the figure below. Notice -%that the coordinate system used is the same as in mathematics: y increases from -%the bottom of the screen to the top of the screen, and angles are measured -%counterclockwise (in degrees). Drawing is clipped to the screen. -% -% *libgraph.gif* -% -% -% -%25.1 Module Graphics : Machine-independent graphics primitives. -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= -% -% -% 0.5cm -%<< -% exception Graphic_failure of string -%>> -% -% Raised by the functions below when they encounter an error. -% -% -%Initializations -%=============== -% -%<< -% val open_graph : string -> unit -%>> -% -% Show the graphics window or switch the screen to graphic mode. -% The graphics window is cleared and the current point is set to -% (0, 0). The string argument is used to pass optional -% information on the desired graphics mode, the graphics window -% size, and so on. Its interpretation is implementation-dependent. -% If the empty string is given, a sensible default is selected. -% -%<< -% val close_graph : unit -> unit -%>> -% -% Delete the graphics window or switch the screen back to text -% mode. -% -%<< -% val set_window_title : string -> unit -%>> -% -% Set the title of the graphics window. -% -%<< -% val resize_window : int -> int -> unit -%>> -% -% Resize and erase the graphics window. -% -%<< -% val clear_graph : unit -> unit -%>> -% -% Erase the graphics window. -% -%<< -% val size_x : unit -> int -%>> -% -% See Graphics.size_y[25.1]. -% -%<< -% val size_y : unit -> int -%>> -% -% Return the size of the graphics window. Coordinates of the -% screen pixels range over 0 .. size_x()-1 and 0 .. size_y()-1. -% Drawings outside of this rectangle are clipped, without causing -% an error. The origin (0,0) is at the lower left corner. -% -% -%Colors -%====== -% -%<< -% type color = int -%>> -% -% A color is specified by its R, G, B components. Each component -% is in the range 0..255. The three components are packed in an -% int: 0xRRGGBB, where RR are the two hexadecimal digits for the -% red component, GG for the green component, BB for the blue -% component. -% -%<< -% val rgb : int -> int -> int -> color -%>> -% -% rgb r g b returns the integer encoding the color with red -% component r, green component g, and blue component b. r, g and -% b are in the range 0..255. -% -%<< -% val set_color : color -> unit -%>> -% -% Set the current drawing color. -% -%<< -% val background : color -%>> -% -% See Graphics.foreground[25.1]. -% -%<< -% val foreground : color -%>> -% -% Default background and foreground colors (usually, either black -% foreground on a white background or white foreground on a -% black background). Graphics.clear_graph[25.1] fills the screen -% with the background color. The initial drawing color is -% foreground. -% -% -%Some predefined colors -%---------------------- -% -%<< -% val black : color -%>> -% -%<< -% val white : color -%>> -% -%<< -% val red : color -%>> -% -%<< -% val green : color -%>> -% -%<< -% val blue : color -%>> -% -%<< -% val yellow : color -%>> -% -%<< -% val cyan : color -%>> -% -%<< -% val magenta : color -%>> -% -% -%Point and line drawing -%====================== -% -%<< -% val plot : int -> int -> unit -%>> -% -% Plot the given point with the current drawing color. -% -%<< -% val plots : (int * int) array -> unit -%>> -% -% Plot the given points with the current drawing color. -% -%<< -% val point_color : int -> int -> color -%>> -% -% Return the color of the given point in the backing store (see -% "Double buffering" below). -% -%<< -% val moveto : int -> int -> unit -%>> -% -% Position the current point. -% -%<< -% val rmoveto : int -> int -> unit -%>> -% -% rmoveto dx dy translates the current point by the given vector. -% -%<< -% val current_x : unit -> int -%>> -% -% Return the abscissa of the current point. -% -%<< -% val current_y : unit -> int -%>> -% -% Return the ordinate of the current point. -% -%<< -% val current_point : unit -> int * int -%>> -% -% Return the position of the current point. -% -%<< -% val lineto : int -> int -> unit -%>> -% -% Draw a line with endpoints the current point and the given -% point, and move the current point to the given point. -% -%<< -% val rlineto : int -> int -> unit -%>> -% -% Draw a line with endpoints the current point and the current -% point translated of the given vector, and move the current -% point to this point. -% -%<< -% val curveto : int * int -> int * int -> int * int -> unit -%>> -% -% curveto b c d draws a cubic Bezier curve starting from the -% current point to point d, with control points b and c, and -% moves the current point to d. -% -%<< -% val draw_rect : int -> int -> int -> int -> unit -%>> -% -% draw_rect x y w h draws the rectangle with lower left corner -% at x,y, width w and height h. The current point is unchanged. -% Raise Invalid_argument if w or h is negative. -% -%<< -% val draw_poly_line : (int * int) array -> unit -%>> -% -% draw_poly_line points draws the line that joins the points -% given by the array argument. The array contains the coordinates -% of the vertices of the polygonal line, which need not be -% closed. The current point is unchanged. -% -%<< -% val draw_poly : (int * int) array -> unit -%>> -% -% draw_poly polygon draws the given polygon. The array contains -% the coordinates of the vertices of the polygon. The current -% point is unchanged. -% -%<< -% val draw_segments : (int * int * int * int) array -> unit -%>> -% -% draw_segments segments draws the segments given in the array -% argument. Each segment is specified as a quadruple (x0, y0, x1, -% y1) where (x0, y0) and (x1, y1) are the coordinates of the end -% points of the segment. The current point is unchanged. -% -%<< -% val draw_arc : int -> int -> int -> int -> int -> int -> unit -%>> -% -% draw_arc x y rx ry a1 a2 draws an elliptical arc with center -% x,y, horizontal radius rx, vertical radius ry, from angle a1 to -% angle a2 (in degrees). The current point is unchanged. Raise -% Invalid_argument if rx or ry is negative. -% -%<< -% val draw_ellipse : int -> int -> int -> int -> unit -%>> -% -% draw_ellipse x y rx ry draws an ellipse with center x,y, -% horizontal radius rx and vertical radius ry. The current point -% is unchanged. Raise Invalid_argument if rx or ry is negative. -% -%<< -% val draw_circle : int -> int -> int -> unit -%>> -% -% draw_circle x y r draws a circle with center x,y and radius r. -% The current point is unchanged. Raise Invalid_argument if r is -% negative. -% -%<< -% val set_line_width : int -> unit -%>> -% -% Set the width of points and lines drawn with the functions -% above. Under X Windows, set_line_width 0 selects a width of 1 -% pixel and a faster, but less precise drawing algorithm than the -% one used when set_line_width 1 is specified. Raise -% Invalid_argument if the argument is negative. -% -% -%Text drawing -%============ -% -%<< -% val draw_char : char -> unit -%>> -% -% See Graphics.draw_string[25.1]. -% -%<< -% val draw_string : string -> unit -%>> -% -% Draw a character or a character string with lower left corner -% at current position. After drawing, the current position is set -% to the lower right corner of the text drawn. -% -%<< -% val set_font : string -> unit -%>> -% -% Set the font used for drawing text. The interpretation of the -% argument to set_font is implementation-dependent. -% -%<< -% val set_text_size : int -> unit -%>> -% -% Set the character size used for drawing text. The -% interpretation of the argument to set_text_size is -% implementation-dependent. -% -%<< -% val text_size : string -> int * int -%>> -% -% Return the dimensions of the given text, if it were drawn with -% the current font and size. -% -% -%Filling -%======= -% -%<< -% val fill_rect : int -> int -> int -> int -> unit -%>> -% -% fill_rect x y w h fills the rectangle with lower left corner -% at x,y, width w and height h, with the current color. Raise -% Invalid_argument if w or h is negative. -% -%<< -% val fill_poly : (int * int) array -> unit -%>> -% -% Fill the given polygon with the current color. The array -% contains the coordinates of the vertices of the polygon. -% -%<< -% val fill_arc : int -> int -> int -> int -> int -> int -> unit -%>> -% -% Fill an elliptical pie slice with the current color. The -% parameters are the same as for Graphics.draw_arc[25.1]. -% -%<< -% val fill_ellipse : int -> int -> int -> int -> unit -%>> -% -% Fill an ellipse with the current color. The parameters are the -% same as for Graphics.draw_ellipse[25.1]. -% -%<< -% val fill_circle : int -> int -> int -> unit -%>> -% -% Fill a circle with the current color. The parameters are the -% same as for Graphics.draw_circle[25.1]. -% -% -%Images -%====== -% -%<< -% type image -%>> -% -% The abstract type for images, in internal representation. -% Externally, images are represented as matrices of colors. -% -%<< -% val transp : color -%>> -% -% In matrices of colors, this color represent a --transparent-- -% point: when drawing the corresponding image, all pixels on the -% screen corresponding to a transparent pixel in the image will -% not be modified, while other points will be set to the color of -% the corresponding point in the image. This allows superimposing -% an image over an existing background. -% -%<< -% val make_image : color array array -> image -%>> -% -% Convert the given color matrix to an image. Each sub'array -% represents one horizontal line. All sub'arrays must have the -% same length; otherwise, exception Graphic_failure is raised. -% -%<< -% val dump_image : image -> color array array -%>> -% -% Convert an image to a color matrix. -% -%<< -% val draw_image : image -> int -> int -> unit -%>> -% -% Draw the given image with lower left corner at the given point. -% -%<< -% val get_image : int -> int -> int -> int -> image -%>> -% -% Capture the contents of a rectangle on the screen as an image. -% The parameters are the same as for Graphics.fill_rect[25.1]. -% -%<< -% val create_image : int -> int -> image -%>> -% -% create_image w h returns a new image w pixels wide and h -% pixels tall, to be used in conjunction with blit_image. The -% initial image contents are random, except that no point is -% transparent. -% -%<< -% val blit_image : image -> int -> int -> unit -%>> -% -% blit_image img x y copies screen pixels into the image img, -% modifying img in-place. The pixels copied are those inside the -% rectangle with lower left corner at x,y, and width and height -% equal to those of the image. Pixels that were transparent in -% img are left unchanged. -% -% -%Mouse and keyboard events -%========================= -% -%<< -% type status = { -% mouse_x : int ; -%>> -% -% X coordinate of the mouse -% -%<< -% mouse_y : int ; -%>> -% -% Y coordinate of the mouse -% -%<< -% button : bool ; -%>> -% -% true if a mouse button is pressed -% -%<< -% keypressed : bool ; -%>> -% -% true if a key has been pressed -% -%<< -% key : char ; -%>> -% -% the character for the key pressed -% -%<< -% } -%>> -% -% To report events. -% -%<< -% type event = -% | Button_down -%>> -% -% A mouse button is pressed -% -%<< -% | Button_up -%>> -% -% A mouse button is released -% -%<< -% | Key_pressed -%>> -% -% A key is pressed -% -%<< -% | Mouse_motion -%>> -% -% The mouse is moved -% -%<< -% | Poll -%>> -% -% Don-t wait; return immediately -% -% To specify events to wait for. -% -%<< -% val wait_next_event : event list -> status -%>> -% -% Wait until one of the events specified in the given event list -% occurs, and return the status of the mouse and keyboard at that -% time. If Poll is given in the event list, return immediately -% with the current status. If the mouse cursor is outside of the -% graphics window, the mouse_x and mouse_y fields of the event are -% outside the range 0..size_x()-1, 0..size_y()-1. Keypresses are -% queued, and dequeued one by one when the Key_pressed event is -% specified. -% -% -%Mouse and keyboard polling -%========================== -% -%<< -% val mouse_pos : unit -> int * int -%>> -% -% Return the position of the mouse cursor, relative to the -% graphics window. If the mouse cursor is outside of the graphics -% window, mouse_pos() returns a point outside of the range -% 0..size_x()-1, 0..size_y()-1. -% -%<< -% val button_down : unit -> bool -%>> -% -% Return true if the mouse button is pressed, false otherwise. -% -%<< -% val read_key : unit -> char -%>> -% -% Wait for a key to be pressed, and return the corresponding -% character. Keypresses are queued. -% -%<< -% val key_pressed : unit -> bool -%>> -% -% Return true if a keypress is available; that is, if read_key -% would not block. -% -% -%Sound -%===== -% -%<< -% val sound : int -> int -> unit -%>> -% -% sound freq dur plays a sound at frequency freq (in hertz) for -% a duration dur (in milliseconds). -% -% -%Double buffering -%================ -% -%<< -% val auto_synchronize : bool -> unit -%>> -% -% By default, drawing takes place both on the window displayed -% on screen, and in a memory area (the -'backing store--). The -% backing store image is used to re-paint the on-screen window -% when necessary. -% To avoid flicker during animations, it is possible to turn off -% on-screen drawing, perform a number of drawing operations in -% the backing store only, then refresh the on-screen window -% explicitly. -% auto_synchronize false turns on-screen drawing off. All -% subsequent drawing commands are performed on the backing store -% only. -% auto_synchronize true refreshes the on-screen window from the -% backing store (as per synchronize), then turns on-screen -% drawing back on. All subsequent drawing commands are performed -% both on screen and in the backing store. -% The default drawing mode corresponds to auto_synchronize true. -% -%<< -% val synchronize : unit -> unit -%>> -% -% Synchronize the backing store and the on-screen window, by -% copying the contents of the backing store onto the graphics -% window. -% -%<< -% val display_mode : bool -> unit -%>> -% -% Set display mode on or off. When turned on, drawings are done -% in the graphics window; when turned off, drawings do not affect -% the graphics window. This occurs independently of drawing into -% the backing store (see the function Graphics.remember_mode[25.1] -% below). Default display mode is on. -% -%<< -% val remember_mode : bool -> unit -%>> -% -% Set remember mode on or off. When turned on, drawings are done -% in the backing store; when turned off, the backing store is -% unaffected by drawings. This occurs independently of drawing -% onto the graphics window (see the function -% Graphics.display_mode[25.1] above). Default remember mode is -% on. -% -% -% -% -%Chapter 26 The dbm library: access to NDBM databases -%******************************************************* -% -% The dbm library provides access to NDBM databases under Unix. NDBM databases -%maintain key/data associations, where both the key and the data are arbitrary -%strings. They support fairly large databases (several gigabytes) and can -%retrieve a keyed item in one or two file system accesses. Refer to the Unix -%manual pages for more information. -% Unix: -% Programs that use the dbm library must be linked as follows: -% << -% ocamlc other options dbm.cma other files -% ocamlopt other options dbm.cmxa other files -% >> -% For interactive use of the dbm library, do: -% << -% ocamlmktop -o mytop dbm.cma -% ./mytop -% >> -% -% or (if dynamic linking of C libraries is supported on your platform), start -%ocaml and type #load "dbm.cma";;. -% Windows: -% This library is not available. -% -% -% -%26.1 Module Dbm : Interface to the NDBM database. -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= -% -% -% 0.5cm -%<< -% type t -%>> -% -% The type of file descriptors opened on NDBM databases. -% -%<< -% type open_flag = -% | Dbm_rdonly -% | Dbm_wronly -% | Dbm_rdwr -% | Dbm_create -%>> -% -% Flags for opening a database (see Dbm.opendbm[26.1]). -% -%<< -% exception Dbm_error of string -%>> -% -% Raised by the following functions when an error is encountered. -% -%<< -% val opendbm : string -> open_flag list -> int -> t -%>> -% -% Open a descriptor on an NDBM database. The first argument is -% the name of the database (without the .dir and .pag suffixes). -% The second argument is a list of flags: Dbm_rdonly opens the -% database for reading only, Dbm_wronly for writing only, -% Dbm_rdwr for reading and writing; Dbm_create causes the -% database to be created if it does not already exist. The third -% argument is the permissions to give to the database files, if -% the database is created. -% -%<< -% val close : t -> unit -%>> -% -% Close the given descriptor. -% -%<< -% val find : t -> string -> string -%>> -% -% find db key returns the data associated with the given key in -% the database opened for the descriptor db. Raise Not_found if -% the key has no associated data. -% -%<< -% val add : t -> string -> string -> unit -%>> -% -% add db key data inserts the pair (key, data) in the database -% db. If the database already contains data associated with key, -% raise Dbm_error "Entry already exists". -% -%<< -% val replace : t -> string -> string -> unit -%>> -% -% replace db key data inserts the pair (key, data) in the -% database db. If the database already contains data associated -% with key, that data is discarded and silently replaced by the -% new data. -% -%<< -% val remove : t -> string -> unit -%>> -% -% remove db key data removes the data associated with key in db. -% If key has no associated data, raise Dbm_error "dbm_delete". -% -%<< -% val firstkey : t -> string -%>> -% -% See Dbm.nextkey[26.1]. -% -%<< -% val nextkey : t -> string -%>> -% -% Enumerate all keys in the given database, in an unspecified -% order. firstkey db returns the first key, and repeated calls -% to nextkey db return the remaining keys. Not_found is raised -% when all keys have been enumerated. -% -%<< -% val iter : (string -> string -> 'a) -> t -> unit -%>> -% -% iter f db applies f to each (key, data) pair in the database -% db. f receives key as first argument and data as second -% argument. -% -% -% -% -% -%Chapter 27 The dynlink library: dynamic loading and linking of object files -%****************************************************************************** -% -% The dynlink library supports type-safe dynamic loading and linking of -%bytecode object files (.cmo and .cma files) in a running bytecode program. Type -%safety is ensured by limiting the set of modules from the running program that -%the loaded object file can access, and checking that the running program and -%the loaded object file have been compiled against the same interfaces for these -%modules. -% Programs that use the dynlink library simply need to link dynlink.cma with -%their object files and other libraries. Dynamic linking is available only to -%bytecode programs compiled with ocamlc, not to native'code programs compiled -%with ocamlopt. -% -% -%27.1 Module Dynlink : Dynamic loading of bytecode object files. -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= -% -% -% 0.5cm -% -%Initialization -%============== -% -%<< -% val init : unit -> unit -%>> -% -% Initialize the Dynlink library. Must be called before any -% other function in this module. -% -% -%Dynamic loading of compiled bytecode files -%========================================== -% -%<< -% val loadfile : string -> unit -%>> -% -% Load the given bytecode object file (.cmo file) or bytecode -% library file (.cma file), and link it with the running program. -% All toplevel expressions in the loaded compilation units are -% evaluated. No facilities are provided to access value names -% defined by the unit. Therefore, the unit must register itself -% its entry points with the main program, e.g. by modifying -% tables of functions. -% -%<< -% val loadfile_private : string -> unit -%>> -% -% Same as loadfile, except that the compilation units just loaded -% are hidden (cannot be referenced) from other modules -% dynamically loaded afterwards. -% -% -%Access control -%============== -% -%<< -% val allow_only : string list -> unit -%>> -% -% allow_only units restricts the compilation units that -% dynamically-linked units can reference: it only allows -% references to the units named in list units. References to any -% other compilation unit will cause a Unavailable_unit error -% during loadfile or loadfile_private. -% Initially (just after calling init), all compilation units -% composing the program currently running are available for -% reference from dynamically-linked units. allow_only can be used -% to grant access to some of them only, e.g. to the units that -% compose the API for dynamically-linked code, and prevent access -% to all other units, e.g. private, internal modules of the -% running program. -% -%<< -% val prohibit : string list -> unit -%>> -% -% prohibit units prohibits dynamically-linked units from -% referencing the units named in list units. This can be used to -% prevent access to selected units, e.g. private, internal -% modules of the running program. -% -%<< -% val default_available_units : unit -> unit -%>> -% -% Reset the set of units that can be referenced from -% dynamically-linked code to its default value, that is, all -% units composing the currently running program. -% -%<< -% val allow_unsafe_modules : bool -> unit -%>> -% -% Govern whether unsafe object files are allowed to be -% dynamically linked. A compilation unit is --unsafe-- if it -% contains declarations of external functions, which can break -% type safety. By default, dynamic linking of unsafe object files -% is not allowed. -% -% -%Deprecated, low-level API for access control -%============================================ -% -%<< -% val add_interfaces : string list -> string list -> unit -%>> -% -% add_interfaces units path grants dynamically-linked object -% files access to the compilation units named in list units. The -% interfaces (.cmi files) for these units are searched in path (a -% list of directory names). -% -%<< -% val add_available_units : (string * Digest.t) list -> unit -%>> -% -% Same as Dynlink.add_interfaces[27.1], but instead of searching -% .cmi files to find the unit interfaces, uses the interface -% digests given for each unit. This way, the .cmi interface files -% need not be available at run-time. The digests can be extracted -% from .cmi files using the extract_crc program installed in the -% Objective Caml standard library directory. -% -%<< -% val clear_available_units : unit -> unit -%>> -% -% Empty the list of compilation units accessible to -% dynamically-linked programs. -% -% -%Error reporting -%=============== -% -%<< -% type linking_error = -% | Undefined_global of string -% | Unavailable_primitive of string -% | Uninitialized_global of string -%>> -% -%<< -% type error = -% | Not_a_bytecode_file of string -% | Inconsistent_import of string -% | Unavailable_unit of string -% | Unsafe_file -% | Linking_error of string * linking_error -% | Corrupted_interface of string -% | File_not_found of string -% | Cannot_open_dll of string -%>> -% -%<< -% exception Error of error -%>> -% -% Errors in dynamic linking are reported by raising the Error -% exception with a description of the error. -% -%<< -% val error_message : error -> string -%>> -% -% Convert an error description to a printable message. -% -% -% -% -% -%Chapter 28 The LablTk library: Tcl/Tk GUI interface -%****************************************************** -% -% The labltk library provides access to the Tcl/Tk GUI from Objective Caml -%programs. This interface is generated in an automated way, and you should refer -%to Tcl/Tk books and man pages for detailed information on the behavior of the -%numerous functions. We also suggest to use ocamlbrowser to see the types of the -%various functions, that are the best documentation for the library itself. -% -% Programs that use the labltk library must be linked as follows: -%<< -% ocamlc other options -I +labltk labltk.cma other files -% ocamlopt other options -I +labltk labltk.cmxa other files -%>> -% -% Unix: -% The labltk library is available for any system with Tcl/Tk -% installed, starting from Tcl 7.5/Tk 4.1 up to Tcl/Tk 8.3. Beware -% that some beta versions may have compatibility problems. -% If the library was not compiled correctly, try to run again the -% configure script with the option -tkdefs switches, where -% switches is a list of C-style inclusion paths leading to the -% right tcl.h and tk.h, for instance --I/usr/local/include/tcl8.3 -% -I/usr/local/include/tk8.3-. -% A script is installed, to make easier the use of the labltk -% library as toplevel. -% -% labltk This is a toplevel including the labltk library, and -% the path is already set as to allow the use of the various -% modules. It also includes code for the Unix and Str -% libraries. You can use it in place of ocaml. -% -% -% Windows: -% The labltk library has been precompiled for use with Tcl/Tk -% 8.3. You must first have it installed on your system. It can be -% downloaded from -% http://www.scriptics.com/products/tcltk/8.3.html. After -% installing it, you must put the dynamically loaded libraries -% tcl83.dll and tk83.dll (from the bin directory of the Tcl -% installation) in a directory included in you path. -% No toplevel is available, but you can load the library from the -% standard toplevel with the following commands. -% -% << -% # #directory "+labltk";; -% # #load "labltk.cma";; -% >> -% You can also load it directly from the command line. -% -% << -% C:\ocaml\bin> ocaml -I +labltk labltk.cma -% >> -% -% -% The labltk library is composed of a large number of modules. -% -% << -% Bell Imagebitmap Place -% Button Imagephoto Radiobutton -% Canvas Label Scale -% Checkbutton Listbox Scrollbar -% Clipboard Menu Selection -% Dialog Menubutton Text -% Entry Message Tk -% Focus Option Tkwait -% Frame Optionmenu Toplevel -% Grab Pack Winfo -% Grid Palette Wm -% >> -% -% Giving a detailed account of each of these module would be impractical here. -%We will just present some of the basic functions in the module Tk. Note that -%for most other modules information can be found in the Tcl man page of their -%name. -% -% -%28.1 Module Tk : Basic functions and types for LablTk -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= -% -% -% 0.5cm -% -%Initialization and termination -%============================== -% -%<< -% val openTk : -% ?display:string -> ?clas:string -> unit -> Widget.toplevel Widget.widget -%>> -% -% Initialize LablTk and open a toplevel window. display is -% described according to the X11 conventions. clas is used for -% the X11 resource mechanism. -% -%<< -% val mainLoop : unit -> unit -%>> -% -% Start the main event loop -% -%<< -% val closeTk : unit -> unit -%>> -% -% Quit the main loop and close all open windows. -% -%<< -% val destroy : 'a Widget.widget -> unit -%>> -% -% Destroy an individual widget. -% -% -%Application wide commands -%========================= -% -%<< -% val update : unit -> unit -%>> -% -% Synchronize display with internal state. -% -%<< -% val appname_get : unit -> string -%>> -% -%<< -% val appname_set : string -> unit -%>> -% -% Get or set the application name. -% -% -%Dimensions -%========== -% -%<< -% type units = [ 'cm of float | -In of float | -Mm of float | -Pix of int | -Pt -%of float ] -%>> -% -%<< -% val pixels : units -> int -%>> -% -% Converts various on-screen units to pixels, respective to the -% default display. Available units are pixels, centimeters, -% inches, millimeters and points -% -% -%Widget layout commands -%====================== -% -%<< -% type anchor = [ 'center | -E | -N | -Ne | -Nw | -S | -Se | -Sw | -W ] -%>> -% -%<< -% type fillMode = [ 'both | -None | -X | -Y ] -%>> -% -%<< -% type side = [ 'bottom | -Left | -Right | -Top ] -%>> -% -%<< -% val pack : -% ?after:'a Widget.widget -> -% ?anchor:anchor -> -% ?before:'b Widget.widget -> -% ?expand:bool -> -% ?fill:fillMode -> -% ?inside:'c Widget.widget -> -% ?ipadx:int -> -% ?ipady:int -> -% ?padx:int -> ?pady:int -> ?side:side -> 'd Widget.widget list -> unit -%>> -% -% Pack a widget inside its parent, using the standard layout -% engine. -% -%<< -% val grid : -% ?column:int -> -% ?columnspan:int -> -% ?inside:'a Widget.widget -> -% ?ipadx:int -> -% ?ipady:int -> -% ?padx:int -> -% ?pady:int -> -% ?row:int -> ?rowspan:int -> ?sticky:string -> 'b Widget.widget list -> unit -%>> -% -% Pack a widget inside its parent, using the grid layout engine. -% -%<< -% type borderMode = [ -Ignore | -Inside | -Outside ] -%>> -% -%<< -% val place : -% ?anchor:anchor -> -% ?bordermode:borderMode -> -% ?height:int -> -% ?inside:'a Widget.widget -> -% ?relheight:float -> -% ?relwidth:float -> -% ?relx:float -> -% ?rely:float -> ?width:int -> ?x:int -> ?y:int -> 'b Widget.widget -> unit -%>> -% -% Pack a widget inside its parent, at absolute coordinates. -% -%<< -% val raise_window : ?above:'a Widget.widget -> 'b Widget.widget -> unit -%>> -% -%<< -% val lower_window : ?below:'a Widget.widget -> 'b Widget.widget -> unit -%>> -% -% Raise or lower the window associated to a widget. -% -% -%Event handling -%============== -% -%<< -% type modifier = [ 'alt -% | 'button1 -% | 'button2 -% | 'button3 -% | 'button4 -% | 'button5 -% | 'control -% | 'double -% | -Lock -% | -Meta -% | -Mod1 -% | -Mod2 -% | -Mod3 -% | -Mod4 -% | -Mod5 -% | -Shift -% | -Triple ] -%>> -% -%<< -% type event = [ 'buttonPress -% | 'buttonPressDetail of int -% | 'buttonRelease -% | 'buttonReleaseDetail of int -% | 'circulate -% | 'colorMap -% | 'configure -% | 'destroy -% | -Enter -% | -Expose -% | -FocusIn -% | -FocusOut -% | -Gravity -% | -KeyPress -% | -KeyPressDetail of string -% | -KeyRelease -% | -KeyReleaseDetail of string -% | -Leave -% | -Map -% | -Modified of modifier list * event -% | -Motion -% | -Property -% | -Reparent -% | -Unmap -% | -Visibility ] -%>> -% -% An event can be either a basic X event, or modified by a key or mouse -%modifier. -%<< -% type eventInfo = { -% mutable ev_Above : int ; -% mutable ev_ButtonNumber : int ; -% mutable ev_Count : int ; -% mutable ev_Detail : string ; -% mutable ev_Focus : bool ; -% mutable ev_Height : int ; -% mutable ev_KeyCode : int ; -% mutable ev_Mode : string ; -% mutable ev_OverrideRedirect : bool ; -% mutable ev_Place : string ; -% mutable ev_State : string ; -% mutable ev_Time : int ; -% mutable ev_Width : int ; -% mutable ev_MouseX : int ; -% mutable ev_MouseY : int ; -% mutable ev_Char : string ; -% mutable ev_BorderWidth : int ; -% mutable ev_SendEvent : bool ; -% mutable ev_KeySymString : string ; -% mutable ev_KeySymInt : int ; -% mutable ev_RootWindow : int ; -% mutable ev_SubWindow : int ; -% mutable ev_Type : int ; -% mutable ev_Widget : Widget.any Widget.widget ; -% mutable ev_RootX : int ; -% mutable ev_RootY : int ; -% } -%>> -% -% Event related information accessible in callbacks. -%<< -% type eventField = [ -above -% | -borderWidth -% | -buttonNumber -% | -char -% | -count -% | -detail -% | -Focus -% | -Height -% | -KeyCode -% | -KeySymInt -% | -KeySymString -% | -Mode -% | -MouseX -% | -MouseY -% | -OverrideRedirect -% | -Place -% | -RootWindow -% | -RootX -% | -RootY -% | -SendEvent -% | -State -% | -SubWindow -% | -Time -% | -Type -% | -Widget -% | -Width ] -%>> -% -% In order to access the above event information, one has to pass a list of -%required event fields to the bind function. -%<< -% val bind : -% events:event list -> -% ?extend:bool -> -% ?breakable:bool -> -% ?fields:eventField list -> -% ?action:(eventInfo -> unit) -> 'a Widget.widget -> unit -%>> -% -% Bind a succession of events on a widget to an action. If -% extend is true then then binding is added after existing ones, -% otherwise it replaces them. breakable should be true when break -% is to be called inside the action. action is called with the -% fields required set in an eventInfo structure. Other fields -% should not be accessed. If action is omitted then existing -% bindings are removed. -% -%<< -% val bind_class : -% events:event list -> -% ?extend:bool -> -% ?breakable:bool -> -% ?fields:eventField list -> -% ?action:(eventInfo -> unit) -> ?on:'a Widget.widget -> string -> unit -%>> -% -% Same thing for all widgets of a given class. If a widget is -% given with label ~on:, the binding will be removed as soon as -% it is destroyed. -% -%<< -% val bind_tag : -% events:event list -> -% ?extend:bool -> -% ?breakable:bool -> -% ?fields:eventField list -> -% ?action:(eventInfo -> unit) -> ?on:'a Widget.widget -> string -> unit -%>> -% -% Same thing for all widgets having a given tag -% -%<< -% val break : unit -> unit -%>> -% -% Used inside a bound action, do not call other actions after -% this one. This is only possible if this action was bound with -% ~breakable:true. -% -% -% -% -% -%Chapter 29 The bigarray library -%********************************** -% -% The bigarray library implements large, multi-dimensional, numerical arrays. -%These arrays are called -'big arrays-- to distinguish them from the standard -%Caml arrays described in section 20.2. The main differences between -'big -%arrays-- and standard Caml arrays are as follows: -% -% - Big arrays are not limited in size, unlike Caml arrays (float array are -% limited to 2097151 elements on a 32'bit platform, other array types to -% 4194303 elements). -% - Big arrays are multi-dimensional. Any number of dimensions between 1 and 16 -% is supported. In contrast, Caml arrays are mono-dimensional and require -% encoding multi-dimensional arrays as arrays of arrays. -% - Big arrays can only contain integers and floating-point numbers, while Caml -% arrays can contain arbitrary Caml data types. However, big arrays provide -% more space-efficient storage of integer and floating-point elements, in -% particular because they support --small-- types such as single-precision -% floats and 8 and 16'bit integers, in addition to the standard Caml types of -% double-precision floats and 32 and 64'bit integers. -% - The memory layout of big arrays is entirely compatible with that of arrays -% in C and Fortran, allowing large arrays to be passed back and forth between -% Caml code and C / Fortran code with no data copying at all. -% - Big arrays support interesting high-level operations that normal arrays do -% not provide efficiently, such as extracting sub'arrays and --slicing-- a -% multi-dimensional array along certain dimensions, all without any copying. -% Programs that use the bigarray library must be linked as follows: -%<< -% ocamlc other options bigarray.cma other files -% ocamlopt other options bigarray.cmxa other files -%>> -% For interactive use of the bigarray library, do: -%<< -% ocamlmktop -o mytop bigarray.cma -% ./mytop -%>> -% or (if dynamic linking of C libraries is supported on your platform), start -%ocaml and type #load "bigarray.cma";;. -% -% -%29.1 Module Bigarray : Large, multi-dimensional, numerical arrays. -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* -% -% -% This module implements multi-dimensional arrays of integers and -%floating-point numbers, thereafter referred to as -'big arrays--. The -%implementation allows efficient sharing of large numerical arrays between Caml -%code and C or Fortran numerical libraries. -% Concerning the naming conventions, users of this module are encouraged to do -%open Bigarray in their source, then refer to array types and operations via -%short dot notation, e.g. Array1.t or Array2.sub. -% Big arrays support all the Caml ad-hoc polymorphic operations: -% -% - comparisons (=, <>, <=, etc, as well as Pervasives.compare[19.2]); -% - hashing (module Hash); -% - and structured input-output (Pervasives.output_value[19.2] and -% Pervasives.input_value[19.2], as well as the functions from the -% Marshal[20.19] module). -% -% 0.5cm -% -%Element kinds -%============= -% -% Big arrays can contain elements of the following kinds: -% -% - IEEE single precision (32 bits) floating-point numbers -% (Bigarray.float32_elt[29.1]), -% - IEEE double precision (64 bits) floating-point numbers -% (Bigarray.float64_elt[29.1]), -% - IEEE single precision (2 * 32 bits) floating-point complex numbers -% (Bigarray.complex32_elt[29.1]), -% - IEEE double precision (2 * 64 bits) floating-point complex numbers -% (Bigarray.complex64_elt[29.1]), -% - 8'bit integers (signed or unsigned) (Bigarray.int8_signed_elt[29.1] or -% Bigarray.int8_unsigned_elt[29.1]), -% - 16'bit integers (signed or unsigned) (Bigarray.int16_signed_elt[29.1] or -% Bigarray.int16_unsigned_elt[29.1]), -% - Caml integers (signed, 31 bits on 32'bit architectures, 63 bits on 64'bit -% architectures) (Bigarray.int_elt[29.1]), -% - 32'bit signed integer (Bigarray.int32_elt[29.1]), -% - 64'bit signed integers (Bigarray.int64_elt[29.1]), -% - platform-native signed integers (32 bits on 32'bit architectures, 64 bits -% on 64'bit architectures) (Bigarray.nativeint_elt[29.1]). -% -% Each element kind is represented at the type level by one of the abstract -%types defined below. -%<< -% type float32_elt -%>> -% -%<< -% type float64_elt -%>> -% -%<< -% type complex32_elt -%>> -% -%<< -% type complex64_elt -%>> -% -%<< -% type int8_signed_elt -%>> -% -%<< -% type int8_unsigned_elt -%>> -% -%<< -% type int16_signed_elt -%>> -% -%<< -% type int16_unsigned_elt -%>> -% -%<< -% type int_elt -%>> -% -%<< -% type int32_elt -%>> -% -%<< -% type int64_elt -%>> -% -%<< -% type nativeint_elt -%>> -% -%<< -% type ('a, 'b) kind -%>> -% -% To each element kind is associated a Caml type, which is the -% type of Caml values that can be stored in the big array or read -% back from it. This type is not necessarily the same as the type -% of the array elements proper: for instance, a big array whose -% elements are of kind float32_elt contains 32'bit single -% precision floats, but reading or writing one of its elements -% from Caml uses the Caml type float, which is 64'bit double -% precision floats. -% The abstract type ('a, 'b) kind captures this association of a -% Caml type 'a for values read or written in the big array, and -% of an element kind 'b which represents the actual contents of -% the big array. The following predefined values of type kind -% list all possible associations of Caml types with element -% kinds: -% -%<< -% val float32 : (float, float32_elt) kind -%>> -% -% See Bigarray.char[29.1]. -% -%<< -% val float64 : (float, float64_elt) kind -%>> -% -% See Bigarray.char[29.1]. -% -%<< -% val complex32 : (Complex.t, complex32_elt) kind -%>> -% -% See Bigarray.char[29.1]. -% -%<< -% val complex64 : (Complex.t, complex64_elt) kind -%>> -% -% See Bigarray.char[29.1]. -% -%<< -% val int8_signed : (int, int8_signed_elt) kind -%>> -% -% See Bigarray.char[29.1]. -% -%<< -% val int8_unsigned : (int, int8_unsigned_elt) kind -%>> -% -% See Bigarray.char[29.1]. -% -%<< -% val int16_signed : (int, int16_signed_elt) kind -%>> -% -% See Bigarray.char[29.1]. -% -%<< -% val int16_unsigned : (int, int16_unsigned_elt) kind -%>> -% -% See Bigarray.char[29.1]. -% -%<< -% val int : (int, int_elt) kind -%>> -% -% See Bigarray.char[29.1]. -% -%<< -% val int32 : (int32, int32_elt) kind -%>> -% -% See Bigarray.char[29.1]. -% -%<< -% val int64 : (int64, int64_elt) kind -%>> -% -% See Bigarray.char[29.1]. -% -%<< -% val nativeint : (nativeint, nativeint_elt) kind -%>> -% -% See Bigarray.char[29.1]. -% -%<< -% val char : (char, int8_unsigned_elt) kind -%>> -% -% As shown by the types of the values above, big arrays of kind -% float32_elt and float64_elt are accessed using the Caml type -% float. Big arrays of complex kinds complex32_elt, complex64_elt -% are accessed with the Caml type Complex.t[20.6]. Big arrays of -% integer kinds are accessed using the smallest Caml integer type -% large enough to represent the array elements: int for 8- and -% 16'bit integer bigarrays, as well as Caml-integer bigarrays; -% int32 for 32'bit integer bigarrays; int64 for 64'bit integer -% bigarrays; and nativeint for platform-native integer bigarrays. -% Finally, big arrays of kind int8_unsigned_elt can also be -% accessed as arrays of characters instead of arrays of small -% integers, by using the kind value char instead of -% int8_unsigned. -% -% -%Array layouts -%============= -% -%<< -% type c_layout -%>> -% -% See Bigarray.fortran_layout[29.1]. -% -%<< -% type fortran_layout -%>> -% -% To facilitate interoperability with existing C and Fortran -% code, this library supports two different memory layouts for -% big arrays, one compatible with the C conventions, the other -% compatible with the Fortran conventions. -% In the C-style layout, array indices start at 0, and -% multi-dimensional arrays are laid out in row-major format. That -% is, for a two-dimensional array, all elements of row 0 are -% contiguous in memory, followed by all elements of row 1, etc. -% In other terms, the array elements at (x,y) and (x, y+1) are -% adjacent in memory. -% In the Fortran-style layout, array indices start at 1, and -% multi-dimensional arrays are laid out in column-major format. -% That is, for a two-dimensional array, all elements of column 0 -% are contiguous in memory, followed by all elements of column 1, -% etc. In other terms, the array elements at (x,y) and (x+1, y) -% are adjacent in memory. -% Each layout style is identified at the type level by the -% abstract types Bigarray.c_layout[29.1] and fortran_layout -% respectively. -% -%<< -% type 'a layout -%>> -% -% The type 'a layout represents one of the two supported memory -% layouts: C-style if 'a is Bigarray.c_layout[29.1], Fortran-style -% if 'a is Bigarray.fortran_layout[29.1]. -% -% -%Supported layouts -%----------------- -% -% The abstract values c_layout and fortran_layout represent the two supported -%layouts at the level of values. -%<< -% val c_layout : c_layout layout -%>> -% -%<< -% val fortran_layout : fortran_layout layout -%>> -% -% -%Generic arrays (of arbitrarily many dimensions) -%=============================================== -% -%<< -% module Genarray : >> -% -% sig -% -% -% << -% type ('a, 'b, 'c) t -% >> -% -% The type Genarray.t is the type of big arrays with variable -% numbers of dimensions. Any number of dimensions between 1 and -% 16 is supported. -% The three type parameters to Genarray.t identify the array -% element kind and layout, as follows: -% -% - the first parameter, 'a, is the Caml type for accessing -% array elements (float, int, int32, int64, nativeint); -% - the second parameter, 'b, is the actual kind of array -% elements (float32_elt, float64_elt, int8_signed_elt, -% int8_unsigned_elt, etc); -% - the third parameter, 'c, identifies the array layout -% (c_layout or fortran_layout). -% -% For instance, (float, float32_elt, fortran_layout) Genarray.t -% is the type of generic big arrays containing 32'bit floats -% in Fortran layout; reads and writes in this array use the -% Caml type float. -% -% << -% val create : -% ('a, 'b) Bigarray.kind -> -% 'c Bigarray.layout -> int array -> ('a, 'b, 'c) t -% >> -% -% Genarray.create kind layout dimensions returns a new big -% array whose element kind is determined by the parameter kind -% (one of float32, float64, int8_signed, etc) and whose layout -% is determined by the parameter layout (one of c_layout or -% fortran_layout). The dimensions parameter is an array of -% integers that indicate the size of the big array in each -% dimension. The length of dimensions determines the number of -% dimensions of the bigarray. -% For instance, Genarray.create int32 c_layout [|4;6;8|] -% returns a fresh big array of 32'bit integers, in C layout, -% having three dimensions, the three dimensions being 4, 6 and -% 8 respectively. -% Big arrays returned by Genarray.create are not initialized: -% the initial values of array elements is unspecified. -% Genarray.create raises Invalid_arg if the number of -% dimensions is not in the range 1 to 16 inclusive, or if one -% of the dimensions is negative. -% -% << -% val num_dims : ('a, 'b, 'c) t -> int -% >> -% -% Return the number of dimensions of the given big array. -% -% << -% val dims : ('a, 'b, 'c) t -> int array -% >> -% -% Genarray.dims a returns all dimensions of the big array a, -% as an array of integers of length Genarray.num_dims a. -% -% << -% val nth_dim : ('a, 'b, 'c) t -> int -> int -% >> -% -% Genarray.nth_dim a n returns the n-th dimension of the big -% array a. The first dimension corresponds to n = 0; the -% second dimension corresponds to n = 1; the last dimension, -% to n = Genarray.num_dims a - 1. Raise Invalid_arg if n is -% less than 0 or greater or equal than Genarray.num_dims a. -% -% << -% val kind : ('a, 'b, 'c) t -> ('a, 'b) Bigarray.kind -% >> -% -% Return the kind of the given big array. -% -% << -% val layout : ('a, 'b, 'c) t -> 'c Bigarray.layout -% >> -% -% Return the layout of the given big array. -% -% << -% val get : ('a, 'b, 'c) t -> int array -> 'a -% >> -% -% Read an element of a generic big array. Genarray.get a -% [|i1; ...; iN|] returns the element of a whose coordinates -% are i1 in the first dimension, i2 in the second dimension, -% ..., iN in the N-th dimension. -% If a has C layout, the coordinates must be greater or equal -% than 0 and strictly less than the corresponding dimensions -% of a. If a has Fortran layout, the coordinates must be -% greater or equal than 1 and less or equal than the -% corresponding dimensions of a. Raise Invalid_arg if the -% array a does not have exactly N dimensions, or if the -% coordinates are outside the array bounds. -% If N > 3, alternate syntax is provided: you can write a.{i1, -% i2, ..., iN} instead of Genarray.get a [|i1; ...; iN|]. (The -% syntax a.{...} with one, two or three coordinates is -% reserved for accessing one-, two- and three-dimensional -% arrays as described below.) -% -% << -% val set : ('a, 'b, 'c) t -> int array -> 'a -> unit -% >> -% -% Assign an element of a generic big array. Genarray.set a -% [|i1; ...; iN|] v stores the value v in the element of a -% whose coordinates are i1 in the first dimension, i2 in the -% second dimension, ..., iN in the N-th dimension. -% The array a must have exactly N dimensions, and all -% coordinates must lie inside the array bounds, as described -% for Genarray.get; otherwise, Invalid_arg is raised. -% If N > 3, alternate syntax is provided: you can write a.{i1, -% i2, ..., iN} <- v instead of Genarray.set a [|i1; ...; iN|] -% v. (The syntax a.{...} <- v with one, two or three -% coordinates is reserved for updating one-, two- and -% three-dimensional arrays as described below.) -% -% << -% val sub_left : -% ('a, 'b, Bigarray.c_layout) t -> -% int -> int -> ('a, 'b, Bigarray.c_layout) t -% >> -% -% Extract a sub'array of the given big array by restricting -% the first (left-most) dimension. Genarray.sub_left a ofs len -% returns a big array with the same number of dimensions as a, -% and the same dimensions as a, except the first dimension, -% which corresponds to the interval [ofs ... ofs + len - 1] of -% the first dimension of a. No copying of elements is -% involved: the sub'array and the original array share the same -% storage space. In other terms, the element at coordinates -% [|i1; ...; iN|] of the sub'array is identical to the element -% at coordinates [|i1+ofs; ...; iN|] of the original array a. -% Genarray.sub_left applies only to big arrays in C layout. -% Raise Invalid_arg if ofs and len do not designate a valid -% sub'array of a, that is, if ofs < 0, or len < 0, or ofs + -% len > Genarray.nth_dim a 0. -% -% << -% val sub_right : -% ('a, 'b, Bigarray.fortran_layout) t -> -% int -> int -> ('a, 'b, Bigarray.fortran_layout) t -% >> -% -% Extract a sub'array of the given big array by restricting -% the last (right-most) dimension. Genarray.sub_right a ofs -% len returns a big array with the same number of dimensions -% as a, and the same dimensions as a, except the last -% dimension, which corresponds to the interval [ofs ... ofs + -% len - 1] of the last dimension of a. No copying of elements -% is involved: the sub'array and the original array share the -% same storage space. In other terms, the element at -% coordinates [|i1; ...; iN|] of the sub'array is identical to -% the element at coordinates [|i1; ...; iN+ofs|] of the -% original array a. -% Genarray.sub_right applies only to big arrays in Fortran -% layout. Raise Invalid_arg if ofs and len do not designate a -% valid sub'array of a, that is, if ofs < 1, or len < 0, or -% ofs + len > Genarray.nth_dim a (Genarray.num_dims a - 1). -% -% << -% val slice_left : -% ('a, 'b, Bigarray.c_layout) t -> -% int array -> ('a, 'b, Bigarray.c_layout) t -% >> -% -% Extract a sub'array of lower dimension from the given big -% array by fixing one or several of the first (left-most) -% coordinates. Genarray.slice_left a [|i1; ... ; iM|] returns -% the --slice-- of a obtained by setting the first M -% coordinates to i1, ..., iM. If a has N dimensions, the slice -% has dimension N - M, and the element at coordinates [|j1; -% ...; j(N-M)|] in the slice is identical to the element at -% coordinates [|i1; ...; iM; j1; ...; j(N-M)|] in the original -% array a. No copying of elements is involved: the slice and -% the original array share the same storage space. -% Genarray.slice_left applies only to big arrays in C layout. -% Raise Invalid_arg if M >= N, or if [|i1; ... ; iM|] is -% outside the bounds of a. -% -% << -% val slice_right : -% ('a, 'b, Bigarray.fortran_layout) t -> -% int array -> ('a, 'b, Bigarray.fortran_layout) t -% >> -% -% Extract a sub'array of lower dimension from the given big -% array by fixing one or several of the last (right-most) -% coordinates. Genarray.slice_right a [|i1; ... ; iM|] returns -% the --slice-- of a obtained by setting the last M -% coordinates to i1, ..., iM. If a has N dimensions, the slice -% has dimension N - M, and the element at coordinates [|j1; -% ...; j(N-M)|] in the slice is identical to the element at -% coordinates [|j1; ...; j(N-M); i1; ...; iM|] in the original -% array a. No copying of elements is involved: the slice and -% the original array share the same storage space. -% Genarray.slice_right applies only to big arrays in Fortran -% layout. Raise Invalid_arg if M >= N, or if [|i1; ... ; iM|] -% is outside the bounds of a. -% -% << -% val blit : ('a, 'b, 'c) t -> ('a, 'b, 'c) t -> unit -% >> -% -% Copy all elements of a big array in another big array. -% Genarray.blit src dst copies all elements of src into dst. -% Both arrays src and dst must have the same number of -% dimensions and equal dimensions. Copying a sub'array of src -% to a sub'array of dst can be achieved by applying -% Genarray.blit to sub'array or slices of src and dst. -% -% << -% val fill : ('a, 'b, 'c) t -> 'a -> unit -% >> -% -% Set all elements of a big array to a given value. -% Genarray.fill a v stores the value v in all elements of the -% big array a. Setting only some elements of a to v can be -% achieved by applying Genarray.fill to a sub'array or a slice -% of a. -% -% << -% val map_file : -% Unix.file_descr -> -% ('a, 'b) Bigarray.kind -> -% 'c Bigarray.layout -> bool -> int array -> ('a, 'b, 'c) t -% >> -% -% Memory mapping of a file as a big array. Genarray.map_file -% fd kind layout shared dims returns a big array of kind kind, -% layout layout, and dimensions as specified in dims. The data -% contained in this big array are the contents of the file -% referred to by the file descriptor fd (as opened previously -% with Unix.openfile, for example). If shared is true, all -% modifications performed on the array are reflected in the -% file. This requires that fd be opened with write permissions. -% If shared is false, modifications performed on the array -% are done in memory only, using copy-on-write of the modified -% pages; the underlying file is not affected. -% Genarray.map_file is much more efficient than reading the -% whole file in a big array, modifying that big array, and -% writing it afterwards. -% To adjust automatically the dimensions of the big array to -% the actual size of the file, the major dimension (that is, -% the first dimension for an array with C layout, and the last -% dimension for an array with Fortran layout) can be given as -% -1. Genarray.map_file then determines the major dimension -% from the size of the file. The file must contain an integral -% number of sub'arrays as determined by the non-major -% dimensions, otherwise Failure is raised. -% If all dimensions of the big array are given, the file size -% is matched against the size of the big array. If the file is -% larger than the big array, only the initial portion of the -% file is mapped to the big array. If the file is smaller than -% the big array, the file is automatically grown to the size -% of the big array. This requires write permissions on fd. -% -% -% - end -% -% -%One-dimensional arrays -%====================== -% -%<< -% module Array1 : >> -% -% sig -% -% -% << -% type ('a, 'b, 'c) t -% >> -% -% The type of one-dimensional big arrays whose elements have -% Caml type 'a, representation kind 'b, and memory layout 'c. -% -% << -% val create : -% ('a, 'b) Bigarray.kind -> -% 'c Bigarray.layout -> int -> ('a, 'b, 'c) t -% >> -% -% Array1.create kind layout dim returns a new bigarray of one -% dimension, whose size is dim. kind and layout determine the -% array element kind and the array layout as described for -% Genarray.create. -% -% << -% val dim : ('a, 'b, 'c) t -> int -% >> -% -% Return the size (dimension) of the given one-dimensional -% big array. -% -% << -% val kind : ('a, 'b, 'c) t -> ('a, 'b) Bigarray.kind -% >> -% -% Return the kind of the given big array. -% -% << -% val layout : ('a, 'b, 'c) t -> 'c Bigarray.layout -% >> -% -% Return the layout of the given big array. -% -% << -% val get : ('a, 'b, 'c) t -> int -> 'a -% >> -% -% Array1.get a x, or alternatively a.{x}, returns the -% element of a at index x. x must be greater or equal than 0 -% and strictly less than Array1.dim a if a has C layout. If a -% has Fortran layout, x must be greater or equal than 1 and -% less or equal than Array1.dim a. Otherwise, Invalid_arg is -% raised. -% -% << -% val set : ('a, 'b, 'c) t -> int -> 'a -> unit -% >> -% -% Array1.set a x v, also written a.{x} <- v, stores the value -% v at index x in a. x must be inside the bounds of a as -% described in Bigarray.Array1.get[29.1]; otherwise, -% Invalid_arg is raised. -% -% << -% val sub : ('a, 'b, 'c) t -> -% int -> int -> ('a, 'b, 'c) t -% >> -% -% Extract a sub'array of the given one-dimensional big array. -% See Genarray.sub_left for more details. -% -% << -% val blit : ('a, 'b, 'c) t -> ('a, 'b, 'c) t -> unit -% >> -% -% Copy the first big array to the second big array. See -% Genarray.blit for more details. -% -% << -% val fill : ('a, 'b, 'c) t -> 'a -> unit -% >> -% -% Fill the given big array with the given value. See -% Genarray.fill for more details. -% -% << -% val of_array : -% ('a, 'b) Bigarray.kind -> -% 'c Bigarray.layout -> 'a array -> ('a, 'b, 'c) t -% >> -% -% Build a one-dimensional big array initialized from the -% given array. -% -% << -% val map_file : -% Unix.file_descr -> -% ('a, 'b) Bigarray.kind -> -% 'c Bigarray.layout -> bool -> int -> ('a, 'b, 'c) t -% >> -% -% Memory mapping of a file as a one-dimensional big array. -% See Bigarray.Genarray.map_file[29.1] for more details. -% -% -% - end -% -% One-dimensional arrays. The Array1 structure provides -% operations similar to those of Bigarray.Genarray[29.1], but -% specialized to the case of one-dimensional arrays. (The Array2 -% and Array3 structures below provide operations specialized for -% two- and three-dimensional arrays.) Statically knowing the -% number of dimensions of the array allows faster operations, and -% more precise static type'checking. -% -% -%Two-dimensional arrays -%====================== -% -%<< -% module Array2 : >> -% -% sig -% -% -% << -% type ('a, 'b, 'c) t -% >> -% -% The type of two-dimensional big arrays whose elements have -% Caml type 'a, representation kind 'b, and memory layout 'c. -% -% << -% val create : -% ('a, 'b) Bigarray.kind -> -% 'c Bigarray.layout -> int -> int -> ('a, 'b, 'c) t -% >> -% -% Array2.create kind layout dim1 dim2 returns a new bigarray -% of two dimension, whose size is dim1 in the first dimension -% and dim2 in the second dimension. kind and layout determine -% the array element kind and the array layout as described for -% Bigarray.Genarray.create[29.1]. -% -% << -% val dim1 : ('a, 'b, 'c) t -> int -% >> -% -% Return the first dimension of the given two-dimensional big -% array. -% -% << -% val dim2 : ('a, 'b, 'c) t -> int -% >> -% -% Return the second dimension of the given two-dimensional big -% array. -% -% << -% val kind : ('a, 'b, 'c) t -> ('a, 'b) Bigarray.kind -% >> -% -% Return the kind of the given big array. -% -% << -% val layout : ('a, 'b, 'c) t -> 'c Bigarray.layout -% >> -% -% Return the layout of the given big array. -% -% << -% val get : ('a, 'b, 'c) t -> int -> int -> 'a -% >> -% -% Array2.get a x y, also written a.{x,y}, returns the element -% of a at coordinates (x, y). x and y must be within the -% bounds of a, as described for Bigarray.Genarray.get[29.1]; -% otherwise, Invalid_arg is raised. -% -% << -% val set : ('a, 'b, 'c) t -> int -> int -> 'a -> unit -% >> -% -% Array2.set a x y v, or alternatively a.{x,y} <- v, stores -% the value v at coordinates (x, y) in a. x and y must be -% within the bounds of a, as described for -% Bigarray.Genarray.set[29.1]; otherwise, Invalid_arg is -% raised. -% -% << -% val sub_left : -% ('a, 'b, Bigarray.c_layout) t -> -% int -> int -> ('a, 'b, Bigarray.c_layout) t -% >> -% -% Extract a two-dimensional sub'array of the given -% two-dimensional big array by restricting the first -% dimension. See Bigarray.Genarray.sub_left[29.1] for more -% details. Array2.sub_left applies only to arrays with C -% layout. -% -% << -% val sub_right : -% ('a, 'b, Bigarray.fortran_layout) t -> -% int -> int -> ('a, 'b, Bigarray.fortran_layout) t -% >> -% -% Extract a two-dimensional sub'array of the given -% two-dimensional big array by restricting the second -% dimension. See Bigarray.Genarray.sub_right[29.1] for more -% details. Array2.sub_right applies only to arrays with -% Fortran layout. -% -% << -% val slice_left : -% ('a, 'b, Bigarray.c_layout) t -> -% int -> ('a, 'b, Bigarray.c_layout) Bigarray.Array1.t -% >> -% -% Extract a row (one-dimensional slice) of the given -% two-dimensional big array. The integer parameter is the -% index of the row to extract. See -% Bigarray.Genarray.slice_left[29.1] for more details. -% Array2.slice_left applies only to arrays with C layout. -% -% << -% val slice_right : -% ('a, 'b, Bigarray.fortran_layout) t -> -% int -> ('a, 'b, Bigarray.fortran_layout) Bigarray.Array1.t -% >> -% -% Extract a column (one-dimensional slice) of the given -% two-dimensional big array. The integer parameter is the -% index of the column to extract. See -% Bigarray.Genarray.slice_right[29.1] for more details. -% Array2.slice_right applies only to arrays with Fortran -% layout. -% -% << -% val blit : ('a, 'b, 'c) t -> ('a, 'b, 'c) t -> unit -% >> -% -% Copy the first big array to the second big array. See -% Bigarray.Genarray.blit[29.1] for more details. -% -% << -% val fill : ('a, 'b, 'c) t -> 'a -> unit -% >> -% -% Fill the given big array with the given value. See -% Bigarray.Genarray.fill[29.1] for more details. -% -% << -% val of_array : -% ('a, 'b) Bigarray.kind -> -% 'c Bigarray.layout -> 'a array array -> ('a, 'b, 'c) t -% >> -% -% Build a two-dimensional big array initialized from the -% given array of arrays. -% -% << -% val map_file : -% Unix.file_descr -> -% ('a, 'b) Bigarray.kind -> -% 'c Bigarray.layout -> bool -> int -> int -> ('a, 'b, 'c) t -% >> -% -% Memory mapping of a file as a two-dimensional big array. -% See Bigarray.Genarray.map_file[29.1] for more details. -% -% -% - end -% -% Two-dimensional arrays. The Array2 structure provides -% operations similar to those of Bigarray.Genarray[29.1], but -% specialized to the case of two-dimensional arrays. -% -% -%Three-dimensional arrays -%======================== -% -%<< -% module Array3 : >> -% -% sig -% -% -% << -% type ('a, 'b, 'c) t -% >> -% -% The type of three-dimensional big arrays whose elements have -% Caml type 'a, representation kind 'b, and memory layout 'c. -% -% << -% val create : -% ('a, 'b) Bigarray.kind -> -% 'c Bigarray.layout -> int -> int -> int -> ('a, 'b, 'c) t -% >> -% -% Array3.create kind layout dim1 dim2 dim3 returns a new -% bigarray of three dimension, whose size is dim1 in the first -% dimension, dim2 in the second dimension, and dim3 in the -% third. kind and layout determine the array element kind and -% the array layout as described for -% Bigarray.Genarray.create[29.1]. -% -% << -% val dim1 : ('a, 'b, 'c) t -> int -% >> -% -% Return the first dimension of the given three-dimensional -% big array. -% -% << -% val dim2 : ('a, 'b, 'c) t -> int -% >> -% -% Return the second dimension of the given three-dimensional -% big array. -% -% << -% val dim3 : ('a, 'b, 'c) t -> int -% >> -% -% Return the third dimension of the given three-dimensional -% big array. -% -% << -% val kind : ('a, 'b, 'c) t -> ('a, 'b) Bigarray.kind -% >> -% -% Return the kind of the given big array. -% -% << -% val layout : ('a, 'b, 'c) t -> 'c Bigarray.layout -% >> -% -% Return the layout of the given big array. -% -% << -% val get : ('a, 'b, 'c) t -> int -> int -> int -> 'a -% >> -% -% Array3.get a x y z, also written a.{x,y,z}, returns the -% element of a at coordinates (x, y, z). x, y and z must be -% within the bounds of a, as described for -% Bigarray.Genarray.get[29.1]; otherwise, Invalid_arg is -% raised. -% -% << -% val set : ('a, 'b, 'c) t -> int -> int -> int -> 'a -> unit -% >> -% -% Array3.set a x y v, or alternatively a.{x,y,z} <- v, stores -% the value v at coordinates (x, y, z) in a. x, y and z must -% be within the bounds of a, as described for -% Bigarray.Genarray.set[29.1]; otherwise, Invalid_arg is -% raised. -% -% << -% val sub_left : -% ('a, 'b, Bigarray.c_layout) t -> -% int -> int -> ('a, 'b, Bigarray.c_layout) t -% >> -% -% Extract a three-dimensional sub'array of the given -% three-dimensional big array by restricting the first -% dimension. See Bigarray.Genarray.sub_left[29.1] for more -% details. Array3.sub_left applies only to arrays with C -% layout. -% -% << -% val sub_right : -% ('a, 'b, Bigarray.fortran_layout) t -> -% int -> int -> ('a, 'b, Bigarray.fortran_layout) t -% >> -% -% Extract a three-dimensional sub'array of the given -% three-dimensional big array by restricting the second -% dimension. See Bigarray.Genarray.sub_right[29.1] for more -% details. Array3.sub_right applies only to arrays with -% Fortran layout. -% -% << -% val slice_left_1 : -% ('a, 'b, Bigarray.c_layout) t -> -% int -> int -> ('a, 'b, Bigarray.c_layout) Bigarray.Array1.t -% >> -% -% Extract a one-dimensional slice of the given -% three-dimensional big array by fixing the first two -% coordinates. The integer parameters are the coordinates of -% the slice to extract. See Bigarray.Genarray.slice_left[29.1] -% for more details. Array3.slice_left_1 applies only to arrays -% with C layout. -% -% << -% val slice_right_1 : -% ('a, 'b, Bigarray.fortran_layout) t -> -% int -> int -> ('a, 'b, Bigarray.fortran_layout) Bigarray.Array1.t -% >> -% -% Extract a one-dimensional slice of the given -% three-dimensional big array by fixing the last two -% coordinates. The integer parameters are the coordinates of -% the slice to extract. See -% Bigarray.Genarray.slice_right[29.1] for more details. -% Array3.slice_right_1 applies only to arrays with Fortran -% layout. -% -% << -% val slice_left_2 : -% ('a, 'b, Bigarray.c_layout) t -> -% int -> ('a, 'b, Bigarray.c_layout) Bigarray.Array2.t -% >> -% -% Extract a two-dimensional slice of the given -% three-dimensional big array by fixing the first coordinate. -% The integer parameter is the first coordinate of the slice to -% extract. See Bigarray.Genarray.slice_left[29.1] for more -% details. Array3.slice_left_2 applies only to arrays with C -% layout. -% -% << -% val slice_right_2 : -% ('a, 'b, Bigarray.fortran_layout) t -> -% int -> ('a, 'b, Bigarray.fortran_layout) Bigarray.Array2.t -% >> -% -% Extract a two-dimensional slice of the given -% three-dimensional big array by fixing the last coordinate. -% The integer parameter is the coordinate of the slice to -% extract. See Bigarray.Genarray.slice_right[29.1] for more -% details. Array3.slice_right_2 applies only to arrays with -% Fortran layout. -% -% << -% val blit : ('a, 'b, 'c) t -> ('a, 'b, 'c) t -> unit -% >> -% -% Copy the first big array to the second big array. See -% Bigarray.Genarray.blit[29.1] for more details. -% -% << -% val fill : ('a, 'b, 'c) t -> 'a -> unit -% >> -% -% Fill the given big array with the given value. See -% Bigarray.Genarray.fill[29.1] for more details. -% -% << -% val of_array : -% ('a, 'b) Bigarray.kind -> -% 'c Bigarray.layout -> 'a array array array -> ('a, 'b, 'c) t -% >> -% -% Build a three-dimensional big array initialized from the -% given array of arrays of arrays. -% -% << -% val map_file : -% Unix.file_descr -> -% ('a, 'b) Bigarray.kind -> -% 'c Bigarray.layout -> -% bool -> int -> int -> int -> ('a, 'b, 'c) t -% >> -% -% Memory mapping of a file as a three-dimensional big array. -% See Bigarray.Genarray.map_file[29.1] for more details. -% -% -% - end -% -% Three-dimensional arrays. The Array3 structure provides -% operations similar to those of Bigarray.Genarray[29.1], but -% specialized to the case of three-dimensional arrays. -% -% -%Coercions between generic big arrays and fixed-dimension big arrays -%=================================================================== -% -%<< -% val genarray_of_array1 : ('a, 'b, 'c) Array1.t -> ('a, 'b, 'c) Genarray.t -%>> -% -% Return the generic big array corresponding to the given -% one-dimensional big array. -% -%<< -% val genarray_of_array2 : ('a, 'b, 'c) Array2.t -> ('a, 'b, 'c) Genarray.t -%>> -% -% Return the generic big array corresponding to the given -% two-dimensional big array. -% -%<< -% val genarray_of_array3 : ('a, 'b, 'c) Array3.t -> ('a, 'b, 'c) Genarray.t -%>> -% -% Return the generic big array corresponding to the given -% three-dimensional big array. -% -%<< -% val array1_of_genarray : ('a, 'b, 'c) Genarray.t -> ('a, 'b, 'c) Array1.t -%>> -% -% Return the one-dimensional big array corresponding to the given -% generic big array. Raise Invalid_arg if the generic big array -% does not have exactly one dimension. -% -%<< -% val array2_of_genarray : ('a, 'b, 'c) Genarray.t -> ('a, 'b, 'c) Array2.t -%>> -% -% Return the two-dimensional big array corresponding to the given -% generic big array. Raise Invalid_arg if the generic big array -% does not have exactly two dimensions. -% -%<< -% val array3_of_genarray : ('a, 'b, 'c) Genarray.t -> ('a, 'b, 'c) Array3.t -%>> -% -% Return the three-dimensional big array corresponding to the -% given generic big array. Raise Invalid_arg if the generic big -% array does not have exactly three dimensions. -% -% -%Re-shaping big arrays -%===================== -% -%<< -% val reshape : -% ('a, 'b, 'c) Genarray.t -> -% int array -> ('a, 'b, 'c) Genarray.t -%>> -% -% reshape b [|d1;...;dN|] converts the big array b to a -% N-dimensional array of dimensions d1...dN. The returned array -% and the original array b share their data and have the same -% layout. For instance, assuming that b is a one-dimensional -% array of dimension 12, reshape b [|3;4|] returns a -% two-dimensional array b- of dimensions 3 and 4. If b has C -% layout, the element (x,y) of b- corresponds to the element x * -% 3 + y of b. If b has Fortran layout, the element (x,y) of b- -% corresponds to the element x + (y - 1) * 4 of b. The returned -% big array must have exactly the same number of elements as the -% original big array b. That is, the product of the dimensions of -% b must be equal to i1 * ... * iN. Otherwise, Invalid_arg is -% raised. -% -%<< -% val reshape_1 : ('a, 'b, 'c) Genarray.t -> int -> ('a, 'b, 'c) Array1.t -%>> -% -% Specialized version of Bigarray.reshape[29.1] for reshaping to -% one-dimensional arrays. -% -%<< -% val reshape_2 : -% ('a, 'b, 'c) Genarray.t -> -% int -> int -> ('a, 'b, 'c) Array2.t -%>> -% -% Specialized version of Bigarray.reshape[29.1] for reshaping to -% two-dimensional arrays. -% -%<< -% val reshape_3 : -% ('a, 'b, 'c) Genarray.t -> -% int -> int -> int -> ('a, 'b, 'c) Array3.t -%>> -% -% Specialized version of Bigarray.reshape[29.1] for reshaping to -% three-dimensional arrays. -% -% -% -% -%29.2 Big arrays in the Caml'c interface -%*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= -% -% -% C stub code that interface C or Fortran code with Caml code, as described in -%chapter 18, can exploit big arrays as follows. -% -% -%29.2.1 Include file -%==================== -% -% The include file must be included in the C stub file. It -%declares the functions, constants and macros discussed below. -% -% -%29.2.2 Accessing a Caml bigarray from C or Fortran -%=================================================== -% -% If v is a Caml value representing a big array, the expression -%Data_bigarray_val(v) returns a pointer to the data part of the array. This -%pointer is of type void * and can be cast to the appropriate C type for the -%array (e.g. double [], char [][10], etc). -% Various characteristics of the Caml big array can be consulted from C as -%follows: -% -% -------------------------------------------------------------------- -% | C expression | Returns | -% -------------------------------------------------------------------- -% |Bigarray_val(v)->num_dims |number of dimensions | -% |Bigarray_val(v)->dim[i] |i-th dimension | -% |Bigarray_val(v)->flags & BIGARRAY_KIND_MASK|kind of array elements| -% -------------------------------------------------------------------- -% The kind of array elements is one of the following constants: -% -% -------------------------------------------------------------- -% | Constant | Element kind | -% -------------------------------------------------------------- -% |BIGARRAY_FLOAT32 |32'bit single-precision floats | -% |BIGARRAY_FLOAT64 |64'bit double-precision floats | -% |BIGARRAY_SINT8 |8'bit signed integers | -% |BIGARRAY_UINT8 |8'bit unsigned integers | -% |BIGARRAY_SINT16 |16'bit signed integers | -% |BIGARRAY_UINT16 |16'bit unsigned integers | -% |BIGARRAY_INT32 |32'bit signed integers | -% |BIGARRAY_INT64 |64'bit signed integers | -% |BIGARRAY_CAML_INT |31- or 63'bit signed integers | -% |BIGARRAY_NATIVE_INT|32- or 64'bit (platform-native) integers| -% -------------------------------------------------------------- -% The following example shows the passing of a two-dimensional big array to a -%C function and a Fortran function. -%<< -% extern void my_c_function(double * data, int dimx, int dimy); -% extern void my_fortran_function_(double * data, int * dimx, int * dimy); -% -% value caml_stub(value bigarray) -% { -% int dimx = Bigarray_val(bigarray)->dim[0]; -% int dimy = Bigarray_val(bigarray)->dim[1]; -% /* C passes scalar parameters by value */ -% my_c_function(Data_bigarray_val(bigarray), dimx, dimy); -% /* Fortran passes all parameters by reference */ -% my_fortran_function_(Data_bigarray_val(bigarray), &dimx, &dimy); -% return Val_unit; -% } -%>> -% -% -% -%29.2.3 Wrapping a C or Fortran array as a Caml big array -%========================================================= -% -% A pointer p to an already'allocated C or Fortran array can be wrapped and -%returned to Caml as a big array using the alloc_bigarray or alloc_bigarray_dims -%functions. -% -% - alloc_bigarray(kind | layout, numdims, p, dims) -% Return a Caml big array wrapping the data pointed to by p. kind is the kind of -% array elements (one of the BIGARRAY_ kind constants above). layout is -% BIGARRAY_C_LAYOUT for an array with C layout and BIGARRAY_FORTRAN_LAYOUT for -% an array with Fortran layout. numdims is the number of dimensions in the -% array. dims is an array of numdims long integers, giving the sizes of the -% array in each dimension. -% -% - alloc_bigarray_dims(kind | layout, numdims, p, (long) dim_1, (long) dim_2, -% ..., (long) dim_numdims) -% Same as alloc_bigarray, but the sizes of the array in each dimension are -% listed as extra arguments in the function call, rather than being passed as -% an array. -% The following example illustrates how statically-allocated C and Fortran -%arrays can be made available to Caml. -%<< -% extern long my_c_array[100][200]; -% extern float my_fortran_array_[300][400]; -% -% value caml_get_c_array(value unit) -% { -% long dims[2]; -% dims[0] = 100; dims[1] = 200; -% return alloc_bigarray(BIGARRAY_NATIVE_INT | BIGARRAY_C_LAYOUT, -% 2, my_c_array, dims); -% } -% -% value caml_get_fortran_array(value unit) -% { -% return alloc_bigarray_dims(BIGARRAY_FLOAT32 | BIGARRAY_FORTRAN_LAYOUT, -% 2, my_fortran_array_, 300L, 400L); -% } -%>> -% -% -% diff --git a/vendors/ott/examples/ocaml_light/opsem.ott b/vendors/ott/examples/ocaml_light/opsem.ott deleted file mode 100644 index 0b1df763af50..000000000000 --- a/vendors/ott/examples/ocaml_light/opsem.ott +++ /dev/null @@ -1,168 +0,0 @@ - ->> - -*-LaTeX-*- - - S.4 Reduction Rules - *=*=*=*=*=*=*=*=*=*=*=* - -\heading{Matching} -Define a partial function [[matchsub __ __ ]] taking a value -and a pattern and giving a substitution: - -matchsub v x = {v/x} -matchsub v _ = {} -matchsub constant constant = {} -matchsub v (pat as x) = {v/x} union matchsub v pat -matchsub v ( pat : t ) = matchsub v pat -matchsub v ( pat1 | pat2 ) = matchsub v pat1, if defined, otherwise matchsub v pat2 -matchsub constr v constr pat = matchsub v pat -matchsub v1,....,vn pat1,....,patn = matchsub(v1,pat1) union .. union matchsub(vn ,patn ) -%d matchsub { field1=v1 ; ... ; fieldn=vn} { field1=pat1 ; ... ; fieldn=patn} -%d = matchsub(v1,pat1) union .. union matchsub(vn ,patn ) - -matchsub v pat undefined otherwise - - -Define a partial function [[match __ __ ]] taking a value -and a pattern_matching and giving an expression: - -match v ( | pat1->e1 ... | patn->en) = - (matchsub v patk) ek , where k is the smallest value such that (matchsub v patk) is defined, - undefined , if there is no such k - -\heading{Reduction Axioms} - -<< - -defns -Jop :: JO_ ::= - - -% Pure expression reduction - -defn - e --> e :: :: red :: red_ by - - - -%d { {field1=v1;...;fieldm=vm} with field1'=v1' ; ... ; fieldn'=vn' } -%d --> -%d {field1=v1;...;fieldm=vm} oplus {field1'=v1' ; ... ; fieldn'=vn' } - - -(function x1-> ... -> function xn->e) v1 ... vn e1 .. em --> ( { v1 ... vn / x1 ... xn } e ) e1 .. em - - -% maybe this rule: -(e e1 ... em) e'1 ... e'n --> e e1 ... em e'1 ... e'n - - -%d {field1=v1;...;fieldm=vn}.fieldi --> vi - - - if true then e1 else e2 --> e1 - - if false then e1 else e2 --> e2 - - -while e1 do e2 done --> if e1 then (e2 ; while e1 do e2 done) else () - - for x=v1 to v2 do e done --> - let x=v1 in e ; for x=v1+1 to v2 do e done if v1<=v2 - () otherwise - - for x=v1 downto v2 do e done --> - let x=v1 in e ; for x=v1-1 to v2 do e done if v1>=v2 - () otherwise - - (); e --> e - - - match v with pattern_matching --> match v pattern_matching if that is defined, - - match v with pattern_matching --> raise (Match_failure v') otherwise, where |- v':string*int*int - - - try raise v with pattern_matching --> match v pattern_matching if that is defined - - try v with pattern_matching --> v - - C . raise v --> raise v if not exists pattern_matching. C = try __ with pattern_matching and match v pattern_matching is defined - - let pat=v in e --> - (match v pat) e if (match v pat) is defined, - raise (Match_failure v') otherwise, where |- v':string*int*int - - - let rec x1=function pm1 and ... and xn=function pmn in e ---> - LET sigma = { let rec x1=function pm1 and ... and xn=function pmn in xi / xi | i=1...n } IN - LET rho = { sigma (function pmj) / xj | j=1...n } IN - rho e - - % watch out for our cheating substitution - is it ok here above? - -% let rec x1:T=function (x2:T') -> e1 in e2 --> -% { ( { (let rec x1:T=function (x2:T') -> e1 in x1) / x1 } function (x2:T') -> e1) / x1 } e2 - - - - assert true --> () - -empty |- v : string*int*int --------------------------------------------- :: assert2 -assert false --> raise (Assert_failure v) - - - -%m Instantiation reduction -%m -%m ...TODO... - ->> -Delta rules for applications of functions defined in the standard library -------------------------------------------------------------------------- - -some special magic for total applications of || and && to ensure that -we have: -<< - - true || e --> true - - false && e --> false - - true && e --> e - - false || e --> e - ->> -and likely wierd evaluation order for other operators - cf the Acute -semantics. - - - - -Store reduction --------------------------------- -<< - -defn - s ; e --> s' ; e' :: :: sred :: sred_ by - - location notin dom(s) --------------------------------------------------------------------- :: ref - s ; ref v --> s,location|->v; location - - s,location |-> v,s' ; ( := ) location v' --> s,location |-> v',s' ; () - - s,location |-> v,s' ; ( ! ) location --> s,location |->v,s' ; v - - e --> e' - ------------ :: pure - s;e --> s;e' - - s;e --> s';e' - ----------------- :: context - s;C.e --> s';C.e' - -% that C.e is context application... diff --git a/vendors/ott/examples/ocaml_light/ott-preamble.sed b/vendors/ott/examples/ocaml_light/ott-preamble.sed deleted file mode 100644 index de6d46c515c2..000000000000 --- a/vendors/ott/examples/ocaml_light/ott-preamble.sed +++ /dev/null @@ -1,4 +0,0 @@ -/\\documentclass/s/\([[,]\)[0-9][0-9]*pt\([],]\)/\110pt,titlepage\2/ -/\\begin{document}/i \ -\\geometry{landscape} \ -\\usepackage{ifthen} diff --git a/vendors/ott/examples/ocaml_light/ott-spec.ltx b/vendors/ott/examples/ocaml_light/ott-spec.ltx deleted file mode 100644 index a3d577185897..000000000000 --- a/vendors/ott/examples/ocaml_light/ott-spec.ltx +++ /dev/null @@ -1,96 +0,0 @@ -%% Redefinitions of ott macros to improve the typeset caml specification. - - -\newcommand{\ottenvironmentappend}[2]{% - \begingroup% - \def\@tempa{#1}\def\@tempb{ \ottkw{empty} }% - \ifx\@tempa\@tempb\def\@tempc{}\else\def\@tempc{#1,}\fi% - \expandafter\endgroup% - \@tempc#2% -} -\newcommand{\ie}{% -i.e., -} -\newcommand{\eg}{% -e.g., -} - -% tt that was \verb in syntax.ott -\newcommand{\vtexttt}[1]{\texttt{#1}} - - -%% \ott@regularize@underscores{\command}{FOO_BAR\_QUUX} -%% Run "\command{FOO_BAR_QUUX}" where "_" characters of category 8 and "\_" -%% control sequences have been replaced by a "_" of category 11. -\def\ott@regularize@underscores#1#2{% - \begingroup% - \escapechar=-1 % - \expandafter\def\expandafter\_\expandafter{\string\_}% - \def\@tempa{#1}% - \expandafter\expandafter\expandafter\def% - \expandafter\expandafter\expandafter\@tempb% - \expandafter\expandafter\expandafter{% - \expandafter\string\csname#2\endcsname}% - \expandafter\expandafter\expandafter\def% - \expandafter\expandafter\expandafter\@tempc% - \expandafter\expandafter\expandafter{% - \expandafter\@tempa\expandafter{\@tempb}}% - \expandafter\endgroup\@tempc% -} - -\def\ottdrulelabel@z#1{\label{defn.#1}} -\def\ottdrulelabel@b#1{\ott@regularize@underscores\ottdrulelabel@z} -\def\ottdrulelabel@a#1#2{\ottdrulelabel@b#1} -\def\ottdruleref@a#1{% - \expandafter\@setref\csname r@defn.#1\endcsname% - {\ottdrulename{#1}\@gobbletwo}% - {#1} -} - -\newcommand\ottdruleref{\ott@regularize@underscores\ottdruleref@a} -\renewcommand{\ottdrule}[4][]{% - \frac{\begin{array}{l}#2\end{array}}% - {\ottconclusion{#3}}% - \def\@tempa{#4}% - \ifx\@tempa\empty\else \quad #4\ottdrulelabel@a#4\fi} -%\renewcommand{\ottusedrule}[1]{\[#1\]} -%\renewcommand{\ottpremise}[1]{ #1 \\} - -%% Put \ottmaybebreakline in the TeX rendering to signal a potential -%% breakpoint. -%% Set \ottbreakconclusionlinetrue to break the conclusion of subsequent rules -%% at all declared breakpoints. -\newif\ifottbreakconclusionline \ottbreakconclusionlinefalse -\newcommand\ottmaybebreakline{} -\newcommand{\ottconclusion}[1]{% - \ifottbreakconclusionline% - \def\ottmaybebreakline{\qquad$\\$\hfill\qquad}% - \begin{tabular}{l}$#1$\end{tabular}% - \else% - #1% - \fi% -} - -%% Put each defn block in a subsection -\renewenvironment{ottdefnblock}[3][]{% - \vspace{1em}\par% - \subsection{\protect\framebox{\mbox{#2}} \quad #3}% -}{% -} - -%\renewcommand{\ottnt}[1]{\mathit{#1}} -%\renewcommand{\ottmv}[1]{\mathit{#1}} -%\renewcommand{\ottkw}[1]{\mathbf{#1}} -%\renewcommand{\ottcom}[1]{\text{#1}} - -%% Changed the font for rule names -\renewcommand{\ottdrulename}[1]{\textsf{#1}} - -%\renewcommand{\ottcomplu}[5]{\overline{#1}^{\,#2\in #3 #4 #5}} -%\renewcommand{\ottcompu}[3]{\overline{#1}^{\,#2<#3}} -%\renewcommand{\ottcomp}[2]{\overline{#1}^{\,#2}} -%\renewcommand{\ottgrammartabular}[1]{\begin{supertabular}{llcllllll}#1\end{supertabular}} -%\renewcommand{\ottrulehead}[3]{$#1$ & & $#2$ & & & \multicolumn{2}{l}{#3}} -\renewcommand{\ottprodline}[6]{& & $#1$ & $#2$ & $#3 #4$ & $#5$ & \def\ottprodlinetmp{#6}\ifx\ottprodlinetmp\empty\else\def\ottprodlinetmp{\\ & & & \multicolumn{3}{l}{$~~#6$}}\fi\ottprodlinetmp} -%\renewcommand{\ottinterrule}{\\[5.0mm]} -%\renewcommand{\ottafterlastrule}{\\} diff --git a/vendors/ott/examples/ocaml_light/reduction.ott b/vendors/ott/examples/ocaml_light/reduction.ott deleted file mode 100644 index af36464e6751..000000000000 --- a/vendors/ott/examples/ocaml_light/reduction.ott +++ /dev/null @@ -1,805 +0,0 @@ - -defns -JmatchP :: JM_ ::= - -defn -|- expr matches pattern :: :: matchP :: matchP_ {{ com Pattern matching }} by - -{{ com -Determines if a value matches a pattern. -}} - -------------------------------------------------------- :: var -|- v matches x - -------------------------------------------------------- :: any -|- v matches _ - -------------------------------------------------------- :: constant -|- constant matches constant - -|- v matches pat -------------------------------------------------------- :: alias -|- v matches pat as x - -|- v matches pat -------------------------------------------------------- :: typed -|- v matches (pat : t) - -|- v matches pat1 -------------------------------------------------------- :: or_left -|- v matches pat1 | pat2 - -|- v matches pat2 -------------------------------------------------------- :: or_right -|- v matches pat1 | pat2 - -|- v1 matches pat1 ... |- vn matches patn -------------------------------------------------------- :: construct -|- constr (v1,...,vn) matches constr (pat1,...,patn) - -------------------------------------------------------- :: construct_any -|- constr (v1,...,vn) matches constr _ - -|- v1 matches pat1 .... |- vn matches patn -------------------------------------------------------- :: tuple -|- (v1,....,vn) matches (pat1,....,patn) - -%d field_name1'=v1'...field_namen'=vn' fn1=v1''..fnl=vl'' PERMUTES field_name1=v1...field_namem=vm -%d |- v1' matches pat1 ... |- vn' matches patn -%d field_name1 ... field_namem distinct -%d----------------------------------------------------- :: record -%d |- {field_name1=v1;...;field_namem=vm} matches {field_name1'=pat1;...;field_namen'=patn} - -|- v1 matches pat1 -|- v2 matches pat2 -------------------------------------------------------- :: cons -|- v1::v2 matches pat1::pat2 - -defns -Jmatch :: JM_ ::= - -defn -|- expr matches pattern gives '<<' substs_x '>>' :: :: match :: match_ {{ com Pattern matching with substitution creation }} by - -{{ com -Determines if a value matches a pattern and destructures the value into a -substitution according to the pattern's variables. The previous pattern -matching relation is used to get deterministic behavior for \texttt{|} -patterns. -}} - -------------------------------------------------------- :: var -|- v matches x gives <> - -------------------------------------------------------- :: any -|- v matches _ gives <<:substs_x_xs:>> - -------------------------------------------------------- :: constant -|- constant matches constant gives <<:substs_x_xs:>> - -|- v matches pat gives <> -------------------------------------------------------- :: alias -|- v matches pat as x gives <> - -|- v matches pat gives <> -------------------------------------------------------- :: typed -|- v matches (pat : t) gives <> - -|- v matches pat1 gives <> -------------------------------------------------------- :: or_left -|- v matches pat1 | pat2 gives <> - -|- v notmatches pat1 -|- v matches pat2 gives <> -------------------------------------------------------- :: or_right -|- v matches pat1 | pat2 gives <> - -|- v1 matches pat1 gives <> ... |- vn matches patn gives <> -------------------------------------------------------- :: construct -|- constr (v1,...,vn) matches constr (pat1,...,patn) gives <> - -------------------------------------------------------- :: construct_any -|- constr (v1,...,vn) matches constr _ gives <<:substs_x_xs:>> - -|- v1 matches pat1 gives <> .... |- vn matches patn gives <> -------------------------------------------------------- :: tuple -|- (v1,....,vn) matches (pat1,....,patn) gives <> - -%d field_name1'=v1'...field_namen'=vn' fn1=v1''..fnl=vl'' PERMUTES field_name1=v1...field_namem=vm -%d |- v1' matches pat1 gives <> ... |- vn' matches patn gives <> -%d field_name1 ... field_namem distinct -%d----------------------------------------------------- :: record -%d |- {field_name1=v1;...;field_namem=vm} matches {field_name1'=pat1;...;field_namen'=patn} gives <> - -|- v1 matches pat1 gives <> -|- v2 matches pat2 gives <> -------------------------------------------------------- :: cons -|- v1::v2 matches pat1::pat2 gives <> - - - -defns -Jrecfun :: J ::= - -defn -recfun ( letrec_bindings , pattern_matching ) gives expr :: :: recfun :: recfun_ {{ com Recursive function helper }} by - -{{ com -Expands a recursive definition. -}} - -%%WIDTH: >~a4/landscape/normalsize -letrec_bindings = x1 = function pattern_matching1 and ... and xn = function pattern_matchingn -------------------------------------------------------- :: letrec -recfun(letrec_bindings, pattern_matching) gives <> (function pattern_matching) - - - -defns -Jfunval :: J ::= -defn -|- funval ( e ) :: :: funval :: funval_ {{ com Function values }} by - -{{ com -Determines if an expression is a function value, for use in -(\ottdrulename{Jbprim\_equal\_fun}). -}} - -------------------------------------------------------- :: up -|- funval((%prim unary_prim)) - -------------------------------------------------------- :: bp -|- funval((%prim binary_prim)) - -------------------------------------------------------- :: bp_app -|- funval((%prim binary_prim) v) - -------------------------------------------------------- :: func -|- funval(function pattern_matching) - - - -defns -JRuprim :: J ::= - -defn -|- unary_prim expr labelled_arrow expr' :: :: Ruprim :: uprim_ {{ com Unary primitive evaluation }} by - -{{ com -Computes the result of a unary primitive application. -}} - --------------------------------------------------- :: not_true -|- not true --> false - --------------------------------------------------- :: not_false -|- not false --> true - --------------------------------------------------- :: uminus -|- ~- intn --> 0 .- intn - -{{ com -The effect of creating a reference is communicated to the store via -the label on the reduction arrow. Similarly the reduction arrow -carries the value read from the store when accessing a location. -}} - ---------------------------------------- :: ref_alloc -|- ref v -->:Lab_paren:(ref v = l) l - ------------------ :: deref -|- !l -->:Lab_paren:(!l=v) v - - - -defns -JRbprim :: J ::= - -defn -|- expr1 binary_prim expr2 labelled_arrow expr :: :: Rbprim :: bprim_ {{ com Binary primitive evaluation }} by - -{{ com -Computes the result of a binary primitive application. -}} - -|- funval(v) -------------------------------------------------------- :: equal_fun -|- v = v' --> (%prim raise) (:Expr_construct: Invalid_argument (equal_error_string)) -% equal_error_string should be "equal: functional value", but we can't write that directly. - -------------------------------------------------------- :: equal_const_true -|- constant = constant --> true - -constant noteq constant' -------------------------------------------------------- :: equal_const_false -|- constant = constant' --> false - -------------------------------------------------------- :: equal_loc -|- l = l' --> ((%prim =) ((%prim !) l)) ((%prim !) l') - -------------------------------------------------------- :: equal_cons -|- (v1::v2) = (v1'::v2') --> (((%prim =) v1) v1') && (((%prim =) v2) v2') - -------------------------------------------------------- :: equal_cons_nil -|- (v1::v2) = [] --> false - -------------------------------------------------------- :: equal_nil_cons -|- [] = (v1::v2) --> false - -length (v1) .... (vn) >= 2 -------------------------------------------------------- :: equal_tuple -|- (v1, ...., vn) = (v1', ...., vn') --> AND(((%prim =) v1) v1' && .... && ((%prim =) vn) vn') - - -------------------------------------------------------- :: equal_constr -|- (constr (v1, ..., vn)) = (constr (v1', ..., vn')) --> AND(((%prim =) v1) v1' && ... && ((%prim =) vn) vn') - -constr noteq constr' -------------------------------------------------------- :: equal_constr_false -|- constr (v1, ..., vm) = constr' (v1', ..., vn') --> false - -------------------------------------------------------- :: equal_const_constr_false -|- constr' = constr (v1, ..., vn) --> false - -------------------------------------------------------- :: equal_constr_const_false -|- constr (v1, ..., vn) = constr' --> false - - -%d v' = {fn1''=v1''; ...; fnm''=vm''} -%d fn1...fnn PERMUTES fn1''...fnm'' -%d----------------------------------------------------- :: equal_rec -%d |- {fn1=v1; ...; fnn=vn} = v' --> AND(((%prim =) v1) (v'.fn1) && ... && ((%prim =) vn) (v'.fnn)) - -------------------------------------------------------- :: plus -|- intn1 + intn2 --> intn1 .+ intn2 - -------------------------------------------------------- :: minus -|- intn1 - intn2 --> intn1 .- intn2 - -------------------------------------------------------- :: times -|- intn1 * intn2 --> intn1 .* intn2 - -------------------------------------------------------- :: div0 -|- intn / 0 --> (%prim raise) Division_by_zero - -intn2 noteq 0 -------------------------------------------------------- :: div -|- intn1 / intn2 --> intn1 ./ intn2 - -{{ com -The side effect of an assignment is communicated to the store via the -label on the reduction arrow. -}} - -------------------------------------------------------- :: assign -|- l := v -->:Lab_paren:(l:=v) () - -%% Note that at the moment, JRmatching_step and JRmatching_success -%% do not depend on expression reduction, so they appear -%% before reduction (but after JM_match). However, adding guards would -%% make expression reduction and matching steps mutually recursive. - -defns -JRmatching_step :: JR ::= - -defn -|- expr with pattern_matching --> pattern_matching' :: :: matching_step :: matching_ {{ com Pattern matching step }} by - -{{ com -Proceeding to the next case because the first, but not only, case has failed to -match. -}} - -|- v notmatches pat -length (e1) ... (en) >= 1 -------------------------------------------------------- :: next -|- v with pat -> e | pat1->e1 | ... | patn->en --> pat1->e1 | ... | patn->en - -defns -JRmatching_success :: JR ::= - -defn -|- expr with pattern_matching --> expr' :: :: matching_success :: matching_ {{ com Pattern matching finished }} by - -{{ com -Proceeding to an expression because the first case matches, or the only case -does not match. -}} - -|- v matches pat gives <> -------------------------------------------------------- :: found -|- v with pat -> e | pat1->e1 | ... | patn->en --> <> e - -|- v notmatches pat -------------------------------------------------------- :: fail -|- v with pat -> e --> (%prim raise) Match_failure - - -defns -Jred :: JR_ ::= - -defn -|- expr labelled_arrow expr' :: :: expr :: expr_ {{ com Expression evaluation }} by - -{{ com -Reduces an expression one-step. Most evaluation contexts require two rules, -one for normal evaluation and one for exception propagation. -}} - -|- unary_prim v -->L e -------------------------------------------------------- :: uprim -|- (%prim unary_prim) v -->L e - -|- v1 binary_prim v2 -->L e -------------------------------------------------------- :: bprim -|- ((%prim binary_prim) v1) v2 -->L e - - -------------------------------------------------------- :: typed_ctx -|- (e : t) --> e - -{{ com -Right-to-left evaluation order for application (i.e., argument before function). -}} - -|- e0 -->L e0' -------------------------------------------------------- :: apply_ctx_arg -|- e1 e0 -->L e1 e0' - -------------------------------------------------------- :: apply_raise1 -|- e ((%prim raise) v) --> (%prim raise) v - -|- e1 -->L e1' -------------------------------------------------------- :: apply_ctx_fun -|- e1 v0 -->L e1' v0 - -------------------------------------------------------- :: apply_raise2 -|- ((%prim raise) v) v' --> (%prim raise) v - -------------------------------------------------------- :: apply -|- (function pattern_matching v0) --> match v0 with pattern_matching - -|- e0 -->L e0' -------------------------------------------------------- :: let_ctx -|- let pat = e0 in e -->L let pat = e0' in e - -------------------------------------------------------- :: let_raise -|- let pat = (%prim raise) v in e --> (%prim raise) v - -|- v matches pat gives <> -------------------------------------------------------- :: let_subst -|- let pat = v in e --> <>e - -|- v notmatches pat -------------------------------------------------------- :: let_fail -|- let pat = v in e --> (%prim raise) Match_failure - -letrec_bindings = x1 = function pattern_matching1 and ... and xn = function pattern_matchingn -recfun(letrec_bindings, pattern_matching1) gives e1 ... recfun(letrec_bindings, pattern_matchingn) gives en -------------------------------------------------------- :: letrec -|- let rec letrec_bindings in e --> <>e - -|- e1 -->L e1' -------------------------------------------------------- :: sequence_ctx_left -|- e1; e2 -->L e1'; e2 - -------------------------------------------------------- :: sequence_raise -|- ((%prim raise) v); e --> (%prim raise) v - -------------------------------------------------------- :: sequence -|- v; e2 --> e2 - -|- e1 -->L e1' -------------------------------------------------------- :: ifthenelse_ctx -|- if e1 then e2 else e3 -->L if e1' then e2 else e3 - -------------------------------------------------------- :: if_raise -|- if (%prim raise) v then e1 else e2 --> (%prim raise) v - -------------------------------------------------------- :: ifthenelse_true -|- if true then e2 else e3 --> e2 - -------------------------------------------------------- :: ifthenelse_false -|- if false then e2 else e3 --> e3 - -{{ com -We treat matching one pattern against one value as atomic (this would be -relevant when matching the contents of a reference after introducing concurrent -evaluation). -}} - -|- e -->L e' -------------------------------------------------------- :: match_ctx -|- match e with pattern_matching -->L match e' with pattern_matching - -------------------------------------------------------- :: match_raise -|- match (%prim raise) v with pattern_matching --> (%prim raise) v - -|- v with pattern_matching --> pattern_matching' -------------------------------------------------------- :: match_step -|- match v with pattern_matching --> match v with pattern_matching' - -|- v with pattern_matching --> e' -------------------------------------------------------- :: match_success -|- match v with pattern_matching --> e' - ----------------------------------------------------------------- :: and -|- e1 && e2 --> if e1 then e2 else false - ----------------------------------------------------------------- :: or -|- e1 || e2 --> if e1 then true else e2 - ----------------------------------------------------------------- :: while -|- while e1 do e2 done --> if e1 then (e2; while e1 do e2 done) - -{{ com -We specify the evaluation of $[[e1]]$ before $[[e2]]$ in $\ottkw{for}$ loops, -which appears to follow the implementation. -}} - -|- e1 -->L e1' -------------------------------------------------------- :: for_ctx1 -|- for x = e1 for_dirn e2 do e3 done -->L for x = e1' for_dirn e2 do e3 done - -------------------------------------------------------- :: for_raise1 -|- for x = (%prim raise) v for_dirn e2 do e3 done --> (%prim raise) v - -|- e2 -->L e2' -------------------------------------------------------- :: for_ctx2 -|- for x = v1 for_dirn e2 do e3 done -->L for x = v1 for_dirn e2' do e3 done - -------------------------------------------------------- :: for_raise2 -|- for x = v for_dirn (%prim raise) v' do e3 done --> (%prim raise) v' - -intn1 <= intn2 -------------------------------------------------------- :: for_to_do -|- for x = intn1 to intn2 do e done --> (let x = intn1 in e); for x = intn1 .+ 1 to intn2 do e done - -intn1 > intn2 -------------------------------------------------------- :: for_to_done -|- for x = intn1 to intn2 do e done --> () - -intn2 <= intn1 -------------------------------------------------------- :: for_downto_do -|- for x = intn1 downto intn2 do e done --> (let x = intn1 in e); for x = intn1 .- 1 downto intn2 do e done - -intn2 > intn1 -------------------------------------------------------- :: for_downto_done -|- for x = intn1 downto intn2 do e done --> () - -|- e -->L e' -------------------------------------------------------- :: try_ctx -|- try e with pattern_matching -->L try e' with pattern_matching - -------------------------------------------------------- :: try_return -|- try v with pattern_matching --> v - -------------------------------------------------------- :: try_catch -|- try (%prim raise) v with pat_exp1 | ... | pat_expn --> match v with pat_exp1 | ... | pat_expn | _ -> ((%prim raise) v) - -{{ com -We specify right-to-left evaluation order for tuples, applied variant -constructors, and $\ottkw{::}$. -}} - -|- e -->L e' -------------------------------------------------------- :: tuple_ctx -|- e1,..,em,e,v1,..,vn -->L e1,..,em,e',v1,..,vn - -------------------------------------------------------- :: tuple_raise -|- e1, .., em, ((%prim raise) v), v1, .., vn --> (%prim raise) v - -|- e -->L e' -------------------------------------------------------- :: constr_ctx -|- constr (e1,..,em,e,v1,..,vn) -->L constr (e1,..,em,e',v1,..,vn) - -------------------------------------------------------- :: constr_raise -|- constr (e1, .., em, ((%prim raise) v), v1, .., vn) --> (%prim raise) v - -|- e -->L e' -------------------------------------------------------- :: cons_ctx1 -|- e0 :: e -->L e0 :: e' - -------------------------------------------------------- :: cons_raise1 -|- e :: ((%prim raise) v) --> (%prim raise) v - -|- e -->L e' -------------------------------------------------------- :: cons_ctx2 -|- e :: v -->L e' :: v - -------------------------------------------------------- :: cons_raise2 -|- ((%prim raise) v) :: v' --> (%prim raise) v - ->> -%d<< - -{{ com -We specify right-to-left evaluation for records. The bytecode implementation -appears to go right to left after first reordering the record to correspond to -the field ordering in the record type definition. -}} - -{{ com -\ottbreakconclusionlinetrue -}} - -%%WIDTH: >~a4/landscape/normalsize -|- expr -->L expr' -------------------------------------------------------- :: record_ctx -|- {fn1=e1;...;fnm=em; field_name=expr; fn1'=v1;...;fnn'=vn} -->L {fn1=e1;...;fnm=em; field_name=expr'; fn1'=v1;...;fnn'=vn} - -{{ com -\ottbreakconclusionlinefalse -}} - -------------------------------------------------------- :: record_raise -|- {fn1=e1;...;fnm=em;fn=(%prim raise) v;fn1'=v1;...;fnn'=vn} --> (%prim raise) v - -{{ com -The bytecode implementation appears to evaluate the leftmost position first in -$\ottkw{with}$ expressions, so we follow that here. -}} - -{{ com -\ottbreakconclusionlinetrue -}} - -%%WIDTH: >>a4/landscape/normalsize -|- e -->L e' -------------------------------------------------------- :: record_with_ctx1 -|- {v with fn1=e1;...;fnm=em; field_name=e; fn1'=v1;...;fnn'=vn} -->L {v with fn1=e1;...;fnm=em; field_name=e'; fn1'=v1;...;fnn'=vn} - -{{ com -\ottbreakconclusionlinefalse -}} - -------------------------------------------------------- :: record_with_raise1 -|- {v' with fn1=e1;...;fnm=em; fn=(%prim raise) v; fn1'=v1;...;fnn'=vn} --> (%prim raise) v - -|- e -->L e' -------------------------------------------------------- :: record_with_ctx2 -|- {e with field_name1=e1;...;field_namen=en} -->L {e' with field_name1=e1;...;field_namen=en} - -------------------------------------------------------- :: record_raise_ctx2 -|- {(%prim raise) v with field_name1=e1;...;field_namen=en} --> (%prim raise) v - -{{ com -\ottbreakconclusionlinetrue -}} - -%%WIDTH: >>a4/landscape/normalsize -length (v1'')...(vl'') >=1 -field_name notin fn1...fnm -------------------------------------------------------- :: record_with_many -|- {{fn1=v1;...;fnm=vm;field_name=v;fn1'=v1';...;fnn'=vn'} with field_name=v'; fn1''=v1'';...;fnl''=vl''} --> {{fn1=v1;...;fnm=vm;field_name=v';fn1'=v1';...;fnn'=vn'} with fn1''=v1'';...;fnl''=vl''} - - -%%WIDTH: >>a4/landscape/normalsize -field_name notin fn1...fnm -------------------------------------------------------- :: record_with_1 -|- {{fn1=v1;...;fnm=vm;field_name=v;fn1'=v1';...;fnn'=vn'} with field_name=v'} --> {fn1=v1;...;fnm=vm;field_name=v';fn1'=v1';...;fnn'=vn'} - -{{ com -\ottbreakconclusionlinefalse -}} - -|- e -->L e' -------------------------------------------------------- :: record_access_ctx -|- e.field_name -->L e'.field_name - -------------------------------------------------------- :: record_access_raise -|- ((%prim raise) v).field_name --> (%prim raise) v - -field_name notin fn1...fnn -------------------------------------------------------- :: record_access -|- {fn1=v1;...;fnn=vn;field_name=v;fn1'=v1';...;fnm'=vm'}.field_name --> v - -%d>> -<< - -|- e -->L e' -------------------------------------------------------- :: assert_ctx -|- assert e -->L assert e' - -------------------------------------------------------- :: assert_raise -|- assert ((%prim raise) v) --> (%prim raise) v - -------------------------------------------------------- :: assert_true -|- assert true --> () - -------------------------------------------------------- :: assert_false -|- assert false --> (%prim raise) Assert_failure - - - ->> -%d<< -defns -JRdefn :: J ::= - -defn -|- < definitions , program > labelled_arrow < definitions' , program' > :: :: Rdefn :: defn_ -{{ com Definition sequence evaluation }} -{{ tex \vdash \langle [[definitions]] , [[program]] \rangle [[labelled_arrow]] \langle [[definitions']] , [[program']] \rangle }} by -{{ com -Reduces a definition one-step. Type and exception definitions are moved into -the tuple left sequence as encountered to support typing of intermediate -states. -}} - -|- e -->L e' -------------------------------------------------------- :: let_ctx -|- -->L - -------------------------------------------------------- :: let_raise -|- --> - -|- v matches pat gives <> -------------------------------------------------------- :: let_match -|- --> >definitions> - -|- v notmatches pat -------------------------------------------------------- :: let_not_match -|- --> - -letrec_bindings = x1 = function pattern_matching1 and ... and xn = function pattern_matchingn -recfun(letrec_bindings, pattern_matching1) gives e1 ... recfun(letrec_bindings, pattern_matchingn) gives en -------------------------------------------------------- :: letrec -|- --> >definitions> - -------------------------------------------------------- :: type -|- --> - -------------------------------------------------------- :: exn -|- --> -%d>> -<< - -defns -JSlookup :: JS ::= - -defn -store ( location ) gives expr :: :: lookup :: stlookup_ {{ com Store lookup }} by - -{{ com -Gets the value stored at a given location. -}} - -st(l) gives e' -l noteq l' -------------------------------------------------------- :: rec -st,l'|->e(l) gives e' - -------------------------------------------------------- :: found -st,l|->e(l) gives e - -defns -JRstore :: JR ::= - -defn -|- store labelled_arrow store' :: :: store :: store_ {{ com Store transition }} by - -{{ com -Coordinates a store with a label. -}} - -------------------------------------------------------- :: empty -|- st --> st - -st(l) gives v -------------------------------------------------------- :: lookup -|- st -->(!l=v) st - -st'(l) unallocated -------------------------------------------------------- :: assign -|- st,l|->expr,st' -->(l:=v) st,l|->remv_tyvar v,st' - -st(l) unallocated -------------------------------------------------------- :: alloc -|- st -->(ref v=l) st,l|->remv_tyvar v - - - ->> -%d<< -defns -JRtop :: JR ::= - -defn -|- < definitions , program , store > --> < definitions' , program' , store' > :: :: top :: top_ - {{ tex \vdash \langle [[definitions]] , [[program]] , [[store]] \rangle [[-->]] \langle [[definitions']] , [[program']] , [[store']] \rangle }} - {{ com Top-level reduction }} by - -{{ com -The semantics of a machine is described as the parallel evolution of a -structure body (the program) and a store. Each program evaluation step -labelled $[[L]]$ must be matched by a store evaluation step with the -same label. -}} - -|- store -->L store' -|- -->L --------------------------------------------------------------------------------------- :: defs -|- --> - -%d>> -<< - - -defns -Jebehaviour :: JRB_ ::= -defn -|- expr behaves :: :: ebehaviour :: ebehaviour_ {{ com Expression behaviour }} by - -{{ com -This relation describes expressions whose behaviour is defined. This includes -values, expressions that reduce, and raised exceptions. An expression with no -behaviour is said to be stuck. In this definition of expression behaviour, we -treat any reducing expression as behaving, no matter what (satisfiable) -constraint is imposed on the label. -}} - ----------------------------------------------------------------- :: value -|- v behaves - -|- e -->L e' ----------------------------------------------------------------- :: reduces -|- e behaves - ----------------------------------------------------------------- :: raises -|- (%prim raise) v behaves - - - ->> -%d<< - -defns -Jdbehaviour :: JRB_ ::= - -defn -|- < definitions , program , store > behaves :: :: dbehaviour :: behaviour_ -{{ tex \vdash \langle [[definitions]] , [[program]] , [[store]] \rangle [[behaves]] }} -{{ com structure body behaviour }} by - -{{ com -As for expressions, a definition sequence behaves if it is a value, if it -reduces (under any label), or if it raises an exception. -}} - ----------------------------------------------------------------- :: value -|- behaves - -|- --> ----------------------------------------------------------------- :: reduces -|- behaves - ----------------------------------------------------------------- :: raises -|- behaves - -%d>> -<< - - -{{ com -\section{Statistics} -\label{sec.statistics} - -}} - - -embed -{{ coq -Hint Constructors JM_matchP JM_match - Jrecfun Jfunval JRuprim JRbprim - JRmatching_step JRmatching_success - JR_expr JRdefn - JSlookup JRstore - JRB_ebehaviour - : rules. -}} -%dembed -%d{{ coq -%dHint Constructors JRdefn JRtop JRB_dbehaviour : rules. -%d}} diff --git a/vendors/ott/examples/ocaml_light/syntax.ott b/vendors/ott/examples/ocaml_light/syntax.ott deleted file mode 100644 index 180313a79fc0..000000000000 --- a/vendors/ott/examples/ocaml_light/syntax.ott +++ /dev/null @@ -1,1966 +0,0 @@ -%%%% Preamble follows, search \title to know what this file is about %%%% - -%% In this file, lines beginning with %d or %m are to allow different versions -%% of the system to be build by filtering with a sed script. %d corresponds to -%% definition-level features and %m corresponds to module-level features. (The -%% %m version of the system is not currently working or maintained.) - - -%% Note that with the current ott behaviour, all macro definitions *must* -%% be in the first TeX embedding which must come before anything else that -%% ott doesn't ignore. -embed -{{ tex-preamble -\makeatletter -\input ott-spec.ltx -\makeatother -}} - -embed -{{ tex - -\newif\ifHAVEtypedefinitions \newif\ifHAVEmodules -%d\HAVEtypedefinitionstrue -%m\HAVEmodulestrue - -%%%% End of preamble %%%% - - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -\title{A formal specification for OCaml: the Core Language} -\author{Scott Owens and Gilles Peskine and Peter Sewell} -\maketitle - -\tableofcontents - -\section{Introduction} -\label{sec.introduction} - -This document describes the syntax and semantics of a substantial fragment of -Objective Caml's core language. When writing this semantics, we have followed -the structure of part 2 of the Objective Caml manual: - -\begin{quote} - The Objective Caml system \\ - release 3.09 \\ - Documentation and user's manual \\ - Xavier Leroy (with Damien Doligez, Jacques Garrigue, Didier R\'emy and J\'er\^ome Vouillon) \\ - Copyright \copyright{} 2005 Institut National de Recherche en Informatique et en Automatique -\end{quote} - -Our aim is to describe a real language, including theoretically redundant but -practically useful features. We do not however cover the whole Objective Caml -language: we have omitted some major semantic features, such as objects and -modules. Our guideline is to retain the semantic features of core ML as -implemented in Objective Caml. Our language corresponds roughly to the -fragment presented in Chapter 1 of the Objective Caml manual. - -Supported features include: -\begin{itemize} -\item -the following primitive types and type constructors: \vtexttt{int}, \vtexttt{char}, -\vtexttt{string}, \vtexttt{float}, \vtexttt{bool}, \vtexttt{unit}, \vtexttt{exn}, \vtexttt{list}, -\vtexttt{option}, \vtexttt{ref}; -\item -tuple and function types -\ifHAVEtypedefinitions -\item -type and type constructor definitions, including: -\begin{itemize} -\item -type abbreviations (\eg \vtexttt{type t = int}), -\item -variant data and record types (\eg \vtexttt{type t = I of int $\|$ D of char} and \vtexttt{type t = \{f:int\} }), -\item -parametric type constructors (\eg \vtexttt{type 'a t = 'a -> 'a}), -\item -recursive and mutually recursive combinations of the above (although all -recursion must go through a variant data or record type); -\end{itemize} -\fi -\item -let-based polymorphism (with the traditional ML-style value restriction); -\item -31-bit word semantics for integers and IEEE-754 semantics for floating point -numbers (in the version of the system generated for HOL); -\item -type annotations (\eg \vtexttt{3:int}), list notation (\eg [1; 2; 3]), record -\vtexttt{with} expressions, \vtexttt{if} expressions, \vtexttt{while} expressions, -\vtexttt{for} expressions, sequencing (\vtexttt{;}), \vtexttt{assert} expressions; -\item -(potentially) mutually-recursive function definitions; -\item -pattern matching with nested patterns and \vtexttt{\} } patterns; -\item -mutable references through \vtexttt{ref}, \vtexttt{:=}, and \vtexttt{!}; -\ifHAVEmodules -%% ? -\fi -\item -exception definitions and handling (\vtexttt{try}, \vtexttt{raise}, \vtexttt{exception}); -\item -polymorphic equality (the \vtexttt{=} operator). -\end{itemize} - -The following features are not supported: -\begin{itemize} -\ifHAVEtypedefinitions -\item -mutable records (\eg \texttt{\{mutable l1=e1;...;mutable ln=en\} }); -\else -\item -type definitions; -\fi -\item -arrays; -\ifHAVEmodules -\item functors, named signatures, abstract signatures, module constraints -\item any form of subsignaturing, whether type abstraction, field erasure - or less polymorphic values -\else -\item -modules; -\fi -\item -subtyping, labels, polymorphic variants, objects; -\item -pattern matching guards (\texttt{when}); -\item -features documented in the ``language extensions'' part of the manual; -\item -\texttt{-rectypes}, exhaustivity of pattern matching, and other compiler command-line options; -\item -support for type abbreviations in the HOL model (we explain in the commentary -how they should be added); -\iffalse -\item a couple of really dark corners best left untold; -\fi -\item -finiteness of memory. -\end{itemize} - -This document contains a description of the language syntax -(\S\ref{sec.syntax}), a type system (\S\ref{sec.typing}) and an -operational semantics (\S\ref{sec.runtime}). - -\paragraph{Metatheory} -This typeset definition is generated by \texttt{ott}. Well-formed definitions -in HOL, Isabelle/HOL and Coq are also generated. We have mechanized the type -soundness theorem for the system in HOL. - -}} - -{{ coq -Require Ascii. -Require Import BinInt. -Require String. -Require Import Zdiv. -Require Import Ott.ott_list. -Require Import caml_lib_misc. -Require Import Sorting.Permutation. -}} - -{{ hol -local open integerTheory sortingTheory floatTheory integer_wordTheory in end; -val _ = wordsLib.mk_word_size 31; -}} - - -{{ tex -\section{Syntax} -\label{sec.syntax} - -We describe the syntax of the core OCaml language in BNF form, closely -following the description in the Objective Caml manual, but omitting -unsupported language features. The concrete syntax of Objective Caml includes -lexical specifications as well as precedence rules to disambiguate the grammar; -we do not reproduce these here. - -Some productions mention annotations to the right of the right-hand side. -The following annotations are understood by Ott. -\begin{itemize} -\item -\textsf{M} indicates a metaproduction. These are not part of the free grammar -for the relevant nonterminal. Instead they are given meaning (in the theorem -prover models) by translation into non-metaproductions. These translations, -specified in the Ott source, are specific to each theorem prover. We summarize -their action in this document. -\item -\textsf{S} indicates a metaproduction that is implemented as syntactic sugar. - -\item ``\textsf{bind ...}'' and ``$\mathit{auxfun=\ldots}$'' are Ott - binding specifications. -\end{itemize} -The following annotations are for informational purposes only. -\begin{itemize} -\item \textsf{[I]} indicates a production that is not intended to be - available in user programs but is useful in the metatheory. -\item \textsf{[L]} indicates a library facility (as opposed to a - strictly language facility). -\item \textsf{d} indicates a definition-level feature, if enabled. -\end{itemize} - -\bigskip -}} - -%% Note: ott does not currently supports TeX embeddings inside the -%% grammar (any embedding except for the very first embed block they -%% is printed after the grammar). - -indexvar index , i , j , k , l , m , n ::= - {{ lex numeral }} - {{ coq nat }} - {{ coq-equality }} - {{ hol num }} - {{ lem nat }} - {{ isa nat }} - {{ com index variables (subscripts) }} - - -%% 6.1 (Identifiers) http://caml.inria.fr/pub/docs/manual-ocaml/lex.html#ident - -%% Our usage of [[ident]] is probably wrong: we should probably use -%% [[lowercase_ident]] instead. There are cases where the concrete -%% syntax lexes as alphanum though; these should be called [[ident]], -%% but I don't think we handle any of them (e.g., polmyorphic variants). - -metavar ident ::= - {{ lex alphanum }} - {{ coq nat }} - {{ coq-equality }} - {{ hol string }} - {{ lem string }} - {{ isa string }} - -%% 6.1 (Integer literals) http://caml.inria.fr/pub/docs/manual-ocaml/lex.html#integer-literal - -metavar integer_literal ::= - {{ lex numeral }} - {{ coq Z }} - {{ coq-equality }} - {{ hol word31 }} - {{ holvar [[integer_literal]]w }} - {{ lem integer }} % TODO - {{ lemvar [[integer_literal]] }} - {{ isa int }} - -%% 6.1 (Floating-point literals) http://caml.inria.fr/pub/docs/manual-ocaml/lex.html#float-literal - -metavar float_literal ::= - {{ coq nat }} % should be real - {{ coq-equality }} - {{ hol float }} - {{ lem nat }} % TODO - {{ isa nat }} - -%% 6.1 (Character literals) http://caml.inria.fr/pub/docs/manual-ocaml/lex.html#char-literal - -metavar char_literal ::= - {{ coq Ascii.ascii }} - {{ coq-equality }} - {{ hol char }} - {{ lem nat }} % TODO - {{ isa char }} - -%% 6.1 (String literals) http://caml.inria.fr/pub/docs/manual-ocaml/lex.html#string-literal - -metavar string_literal ::= - {{ coq String.string }} - {{ coq-equality }} - {{ hol string }} - {{ lem string }} - {{ isa string }} - -%% 6.1 (Prefix and infix symbols) http://caml.inria.fr/pub/docs/manual-ocaml/lex.html#infix-symbol - -metavar infix_symbol ::= - {{ coq String.string }} - {{ coq-equality }} - {{ hol string }} - {{ lem string }} - {{ isa string }} - -metavar prefix_symbol ::= - {{ coq String.string }} - {{ coq-equality }} - {{ hol string }} - {{ lem string }} - {{ isa string }} - -%% Not in OCaml's syntax: Locations - -metavar location , l {{ tex \ell }} ::= - {{ coq nat }} - {{ coq-equality }} - {{ hol num }} - {{ lem nat }} - {{ isa nat }} - {{ com store locations (not in the source syntax) }} - -%% 6.3 (Names) - -metavar lowercase_ident ::= - {{ lex alphanum0 }} - {{ coq String.string }} - {{ coq-equality }} - {{ hol string }} - {{ lem string }} - {{ isa string }} -metavar capitalized_ident ::= - {{ lex Alphanum }} - {{ coq String.string }} - {{ coq-equality }} - {{ hol string }} - {{ lem string }} - {{ isa string }} - - -grammar - - %% 6.3 (Naming objects) http://caml.inria.fr/pub/docs/manual-ocaml/manual011.html#value-name - - value_name , x :: VN_ ::= {{ coq-equality }} - | lowercase_ident :: :: id - | ( operator_name ) :: :: op - operator_name :: ON_ ::= {{ coq-equality }} - | prefix_symbol :: :: symbol - | infix_op :: :: infix - infix_op :: IO_ ::= {{ coq-equality }} - | infix_symbol :: :: symbol - | * :: L :: star - | = :: L :: equal - %% "or" and "&" are obsolete syntactic sugar. -% | or :: :: or -% | & :: :: amp - | := :: L :: colonequal - %% The following 7 are integer operators (not handled at the moment). -% | mod :: :: mod -% | land :: :: land -% | lor :: :: lor -% | lxor :: :: lxor -% | lsl :: :: lsl -% | lsr :: :: lsr -% | asr :: :: asr - constr_name , C :: CN_ ::= {{ coq-equality }} - | capitalized_ident :: :: id - typeconstr_name, tcn :: TCN_ ::= {{ coq-equality }} - | lowercase_ident :: :: id -%d field_name , fn :: FN_ ::= {{ coq-equality }} -%d | lowercase_ident :: d :: id -%m module_name , M :: MN_ ::= {{ coq-equality }} -%m | capitalized_ident :: m :: id -%m modtype_name :: MTN_ ::= {{ coq-equality }} -%m | ident :: m :: id - - %% 6.3 (Referring to named objects) http://caml.inria.fr/pub/docs/manual-ocaml/manual011.html#value-path - value_path :: VP_ ::= {{ coq-equality }} - | value_name :: :: name -%m | module_path . value_name :: m :: path - constr :: C_ ::= {{ coq-equality }} - {{ com constructors: named, and built-in (including exceptions) }} - | constr_name :: :: name -%m | module_path . constr_name :: m :: path - %% 19.1 (Predefined exceptions) http://caml.inria.fr/pub/docs/manual-ocaml/manual033.html - | Invalid_argument :: L :: invalidargument - | Not_found :: L :: notfound - | Assert_failure :: L :: assertfailure - | Match_failure :: L :: matchfailure - | Division_by_zero :: L :: div_by_0 - %% 19.1 (Built-in types) http://caml.inria.fr/pub/docs/manual-ocaml/manual033.html - | None :: L :: none - | Some :: L :: some - typeconstr :: TC_ ::= {{ coq-equality }} - {{ com type constructors: named, and built-in }} - | typeconstr_name :: :: name -%m | extended_module_path . typeconstr_name :: m :: epath - %% 19.1 (Built-in types) http://caml.inria.fr/pub/docs/manual-ocaml/manual033.html - | int :: L :: int - | char :: L :: char - | string :: L :: string - | float :: L :: float - | bool :: L :: bool - | unit :: L :: unit - | exn :: L :: exn - | list :: L :: list - | option :: L :: option - %% Pervasives http://caml.inria.fr/pub/docs/manual-ocaml/libref/Pervasives.html - | ref :: L :: ref -%d field {{ lem fieldl }} :: F_ ::= {{ coq-equality }} -%d | field_name :: d :: name -%d% | module_path . field_name :: d :: path -%m module_path , mp :: MP_ ::= {{ coq-equality }} -%m | module_name :: m :: name -%m | module_path . module_name :: m :: path -%m extended_module_path :: EMP_ ::= {{ coq-equality }} -%m | module_name :: m :: name -%m | extended_module_path . module_name :: m :: epath -%m | extended_module_path ( extended_module_path ) :: m :: -%m modtype_path :: MTP_ ::= {{ coq-equality }} -%m | modtype_name :: m :: name -%m | extended_module_path . modtype_name :: m :: epath - - idx, num :: '' ::= - {{ coq nat }} - {{ hol num }} - {{ lem nat }} - {{ isa nat }} - {{ com index arithmetic for the type system's deBruijn type variable representation }} - | m :: I :: N - {{ ichl [[m]] }} - | idx1 + idx2 :: I :: Add - {{ ichl ([[idx1]] + [[idx2]]) }} - | ( num ) :: S I :: paren - {{ ichl [[num]] }} - - Tsigma {{ tex \sigma^T }} :: Tsigma_ ::= - {{ coq list (typevar * typexpr) }} - {{ hol (typevar#typexpr) list }} - {{ lem list (typevar*typexpr) }} - {{ isa (typevar*typexpr) list }} - {{ com multiple substitutions of types for type variables }} - | '<<' typevar1 <- typexpr1 , .. , typevarn <- typexprn '>>' :: I :: substs - {{ ichl [[typevar1 typexpr1..typevarn typexprn]] }} - | shift num num' Tsigma :: M I :: shift - {{ ichl (shiftTsig [[num]] [[num']] [[Tsigma]]) }} - {{ com shift the indices in the types in $[[Tsigma]]$ by $[[num]]$, ignoring indices lower than $[[num']]$ }} - - %% 6.4 (Type expressions) http://caml.inria.fr/pub/docs/manual-ocaml/manual012.html#typexpr - - typexpr , t :: TE_ ::= - | typevar :: :: var - | < idx , num > :: I :: idxvar - {{ com de Bruijn represenataion of type variables. $[[num]]$ allows each binder (\ie a polymorphic $\ottkw{let}$) to introduce an arbitrary number of binders }} - | _ :: :: any - | ( typexpr ) :: S :: paren - {{ ichl [[typexpr]] }} - | typexpr1 -> typexpr2 :: :: arrow - | typexpr1 * .... * typexprn :: :: tuple - | typeconstr :: S :: constr0 - {{ coq (TE_constr nil [[typeconstr]]) }} - {{ hol (TE_constr [] [[typeconstr]]) }} - {{ lem (TE_constr [] [[typeconstr]]) }} - {{ isa (TE_constr [] [[typeconstr]]) }} - {{ com in the theorem prover models we use a uniform representation for 0-, 1-, and n-ary type constructor applications }} - | typexpr typeconstr :: S :: constr1 - {{ coq (TE_constr (cons [[typexpr]] nil) [[typeconstr]]) }} - {{ hol (TE_constr ([ [[typexpr]] ]) [[typeconstr]]) }} - {{ lem (TE_constr ([ [[typexpr]] ]) [[typeconstr]]) }} - {{ isa (TE_constr ([ [[typexpr]] ]) [[typeconstr]]) }} - | ( typexpr1 , ... , typexprn ) typeconstr :: :: constr -% | typexpr as typevar :: :: - | shift num num' typexpr :: M :: shift - {{ ichl (shiftt [[num]] [[num']] [[typexpr]]) }} - {{ com shifts as in $\sigma^T$ above }} - | t1 -> ... -> tn ---> t :: M I :: arrown - {{ coq (fold_right TE_arrow [[t]] [[t1 ... tn]]) }} - {{ hol (FOLDR TE_arrow [[t]] [[t1 ... tn]]) }} - {{ lem (List.foldr TE_arrow [[t]] [[t1 ... tn]]) }} - {{ isa (foldr TE_arrow [[t1 ... tn]] [[t]]) }} - | Tsigma typexpr :: M I :: susbts - {{ ichl (substs_typevar_typexpr [[Tsigma]] [[typexpr]]) }} - {{ com apply the substitution }} - - src_typexpr , src_t :: STE_ ::= {{ com types that can appear in source programs }} - | typevar :: :: var - | _ :: :: any - | ( src_typexpr ) :: :: paren - | src_typexpr1 -> src_typexpr2 :: :: arrow - | src_typexpr1 * .... * src_typexprn :: :: tuple - | typeconstr :: :: constr0 - | src_typexpr typeconstr :: :: constr1 - | ( src_typexpr1 , ... , src_typexprn ) typeconstr :: :: constr - | shift num num' src_typexpr :: :: shift - - typevar {{ tex \alpha }} , tv {{ tex \alpha }} :: TV_ ::= {{ coq-equality }} - | ' ident :: :: ident - {{ tex {\ottkw{'}[[ident]]} }} - - typescheme, ts :: TS_ ::= - | forall typexpr :: I :: forall - | shift num num' typescheme :: I M :: shift - {{ ichl (shiftts [[num]] [[num']] [[typescheme]]) }} - {{ com shifts as in $\sigma^T$ above }} - - intn {{ tex \dot{n} }} :: Intn_ ::= - {{ coq integer_literal }} - {{ coq-equality }} - {{ hol word31 }} - {{ lem integer }} % TODO - {{ isa int }} - {{ com integer mathematical expressions, used to implement primitive operations and $\ottkw{for}$ loops }} - | integer_literal :: :: lit - {{ coq ([[integer_literal]])%Z }} - {{ hol [[integer_literal]] }} - {{ lem [[integer_literal]] }} - {{ isa ( [[integer_literal]]) }} %% FIXME not sure about this - | ( intn ) :: M I :: paren - {{ ichl [[intn]] }} - | intn1 .+ intn2 :: M I :: plus - {{ tex [[intn1]] \stackrel\centerdot+ [[intn2]] }} - {{ coq (([[intn1]] + [[intn2]])%Z) }} - {{ hol ([[intn1]] + [[intn2]]) }} - {{ lem ([[intn1]] + [[intn2]]) }} - {{ isa ([[intn1]] + [[intn2]]) }} - | intn1 .- intn2 :: M I :: minus - {{ tex [[intn1]] \stackrel\centerdot- [[intn2]] }} - {{ coq (([[intn1]] - [[intn2]])%Z) }} - {{ hol ([[intn1]] - [[intn2]]) }} - {{ lem ([[intn1]] - [[intn2]]) }} - {{ isa ([[intn1]] - [[intn2]]) }} - | intn1 .* intn2 :: M I :: times - {{ tex [[intn1]] \stackrel\centerdot* [[intn2]] }} - {{ coq (([[intn1]] * [[intn2]])%Z) }} - {{ hol ([[intn1]] * [[intn2]]) }} - {{ lem ([[intn1]] * [[intn2]]) }} - {{ isa ([[intn1]] * [[intn2]]) }} - | intn1 ./ intn2 :: M I :: div - {{ tex [[intn1]] \stackrel\centerdot/ [[intn2]] }} - {{ coq (([[intn1]] / [[intn2]])%Z) }} - {{ hol ([[intn1]] / [[intn2]]) }} - {{ lem ([[intn1]] / [[intn2]]) }} - {{ isa ([[intn1]] div [[intn2]]) }} %% FIXME not sure about this - - %% 6.5 (Constants) http://caml.inria.fr/pub/docs/manual-ocaml/manual013.html#constant - - constant {{ lem constantl }} :: CONST_ ::= {{ coq-equality }} - | intn :: L :: int - | float_literal :: L :: float - | char_literal :: L :: char - | string_literal :: L :: string - | equal_error_string :: M L :: equal_error_string - {{ hol (CONST_string "equal: functional value") }} - {{ lem (CONST_string "equal: functional value") }} - {{ isa (CONST_string ''equal: functional value'') }} - {{ coq (CONST_string string_equal_functional_value) }} - {{ com The string constant "equal: functional value" }} - | constr :: L :: constr - | false :: L :: false - | true :: L :: true - | [] :: L :: nil - | () :: L :: unit - - %% 6.6 (Patterns) http://caml.inria.fr/pub/docs/manual-ocaml/patterns.html#pattern - - pattern {{ lem patternl }} , pat :: P_ ::= - | value_name :: :: var - (+ xs = value_name +) - | _ :: :: any - (+ xs = {} +) - | constant :: :: constant - (+ xs = {} +) - | pattern as value_name :: :: alias - (+ xs = xs(pattern) union value_name +) - | ( pattern ) :: S :: paren - {{ ichl [[pattern]] }} - | ( pattern : typexpr ) :: :: typed - (+ xs = xs(pattern) +) - | pattern1 '|' pattern2 :: :: or - (+ xs = xs(pattern1) +) - %% Comment out [construct_unary] when it can be given proper precedence wrt - %% [construct] and [construct_any]. -% | constr pattern :: S :: construct_unary -% {{ ichl (P_construct [[constr]] (cons [[pattern]] nil)) }} - | constr ( pattern1 , ... , patternn ) :: :: construct - (+ xs = xs(pattern1...patternn) +) - | constr _ :: :: construct_any - (+ xs = {} +) - | pattern1 , .... , patternn :: :: tuple - (+ xs = xs(pattern1....patternn) +) -%d | { field1 = pattern1 ; ... ; fieldn = patternn } :: d :: record -%d (+ xs = xs(pattern1...patternn) +) - | [ pattern1 ; ... ; patternn ] :: S L :: list - {{ coq (fold_right P_cons CONST_nil [[pattern1...patternn]]) }} - {{ hol (FOLDR P_cons (P_constant CONST_nil) [[pattern1...patternn]]) }} - {{ lem (List.foldr P_cons (P_constant CONST_nil) [[pattern1...patternn]]) }} - {{ isa (foldr P_cons (P_constant CONST_nil) [[pattern1...patternn]]) }} - | pattern1 '::' pattern2 :: L :: cons - (+ xs = xs(pattern1) union xs(pattern2) +) - -parsing - -P_tuple <= P_construct - -grammar - - %% Important primitives from Pervasives http://caml.inria.fr/pub/docs/manual-ocaml/libref/Pervasives.html - unary_prim :: Uprim_ ::= - {{ com primitive functions with one argument }} - | raise :: L I :: raise - | not :: L I :: not - | ~- :: L I :: minus - | ref :: L I :: ref - | ! :: L I :: deref - binary_prim :: Bprim_ ::= - {{ com primitive functions with two arguments }} - | = :: L I :: equal - | + :: L I :: plus - | - :: L I :: minus - | * :: L I :: times - | / :: L I :: div - | := :: L I :: assign - - %% 6.7 (Expressions) http://caml.inria.fr/pub/docs/manual-ocaml/expr.html#expr - - expr , e :: Expr_ ::= - | ( %prim unary_prim ) :: L I :: uprim - {{ com a unary primitive function value }} - | ( %prim binary_prim ) :: L I :: bprim - {{ com a binary primitive function value }} - | value_name :: :: ident - | constant :: :: constant - | ( expr ) :: S :: paren - {{ ichl [[expr]] }} - | begin expr end :: S :: parenb - {{ ichl [[expr]] }} - | ( expr : typexpr ) :: :: typed - | expr1 , .... , exprn :: :: tuple - | constr ( expr1 , .. , exprn ) :: :: construct - {{ com potentially empty constructors to work around ott parser restriction }} - | expr1 '::' expr2 :: L :: cons - | [ expr1 ; ... ; exprn ] :: S L :: list - {{ coq (fold_right Expr_const CONST_nil [[expr1...exprn]]) }} - {{ hol (FOLDR Expr_cons (Expr_constant CONST_nil) [[expr1...exprn]]) }} - {{ lem (List.foldr Expr_cons (Expr_constant CONST_nil) [[expr1...exprn]]) }} - {{ isa (foldr Expr_cons [[expr1...exprn]] (Expr_constant CONST_nil)) }} -%d | { field1 = expr1 ; ... ; fieldn = exprn } :: d :: record -%d | { expr with field1 = expr1 ; ... ; fieldn = exprn } :: d :: override - | expr1 expr2 :: :: apply - | prefix_symbol expr :: S :: applyp - {{ ichl (Expr_apply (Expr_ident (VP_name (VN_op [[prefix_symbol]]))) [[expr]]) }} - | expr1 infix_op expr2 :: S :: applyi - {{ ichl (Expr_apply (Expr_apply (Expr_ident (VP_name (VN_op (ON_infix [[infix_op]])))) [[expr1]]) [[expr2]]) }} - | expr1 && expr2 :: L :: and - | AND ( expr1 && .. && exprn ) :: M I L :: multiand - {{ coq (fold_right Expr_and CONST_true [[expr1..exprn]]) }} - {{ hol (FOLDR Expr_and (Expr_constant CONST_true) [[expr1..exprn]]) }} - {{ lem (List.foldr Expr_and (Expr_constant CONST_true) [[expr1..exprn]]) }} - {{ isa (foldr Expr_and [[expr1..exprn]] (Expr_constant CONST_true)) }} - {{ com a delimited ``and'' operator with a list of arguments }} - | expr1 || expr2 :: L :: or -%d | expr . field :: d :: field -% | expr . field <- expr :: d :: setfield - | if expr0 then expr1 :: S :: ifthen - {{ ichl (Expr_ifthenelse [[expr0]] [[expr1]] (Expr_constant CONST_unit)) }} - | if expr0 then expr1 else expr2 :: :: ifthenelse - | while expr1 do expr2 done :: :: while - | for x = expr1 for_dirn expr2 do expr3 done :: :: for - (+ bind x in expr3 +) - | expr1 ; expr2 :: :: sequence - | match expr with pattern_matching :: :: match - | function pattern_matching :: :: function - | fun pattern1 ... patternn -> expr :: S :: func - {{ ichl (fold_pats [[pattern1...patternn]] [[expr]]) }} - | try expr with pattern_matching :: :: try - | let let_binding in expr :: :: let - (+ bind xs(let_binding) in expr +) - {{ com omitting multiple bindings, i.e.\ $\ottkw{and}$ }} - | let rec letrec_bindings in expr :: :: letrec - (+ bind xs(letrec_bindings) in letrec_bindings +) - (+ bind xs(letrec_bindings) in expr +) - | assert expr :: :: assert - - | location :: I :: location - | '<<' substs_x '>>' expr :: M I :: substs - {{ coq (substs_value_name_expr (substs_x_proj [[substs_x]]) [[expr]]) }} - {{ hol (substs_value_name_expr (case [[substs_x]] of substs_x_xs l => l) [[expr]]) }} - {{ lem (substs_value_name_expr (match [[substs_x]] with Substs_x_xs l -> l end) [[expr]]) }} - {{ isa (substs_value_name_expr (case [[substs_x]] of substs_x_xs l => l) [[expr]]) }} - {{ com substitution of expressions for variables }} - | remv_tyvar expr :: M I :: rem_tyvar - {{ ichl (remv_tyvar_expr [[expr]]) }} - {{ com replace the type variables in an expression's type annotations with $\ottkw{\_}$ }} - -parsing - -Expr_tuple <= Expr_construct -Expr_tuple <= Expr_tuple -CONST_constr right Expr_apply - -grammar - - - for_dirn {{ tex \ottkw{\relax{\sf[}down{\sf]}to} }} :: FD_ ::= - {{ coq-equality }} - | to :: :: upto - | downto :: :: downto - - %% It would be nice for the theorem prover type for [[substs_x]] - %% to be exactly [list (value_name*expr)], but we cannot declare - %% type representation homs as ott would then stop generating - %% auxiliary functions. - substs_x :: substs_x_ ::= - {{ com substitutions of expressions for variables }} - | value_name1 <- expr1 , .. , value_namen <- exprn :: I :: xs - | substs_x1 @ .. @ substs_xn :: M I :: substs - {{ coq (substs_x_xs (flat_map substs_x_proj [[substs_x1..substs_xn]])) }} - {{ hol (substs_x_xs (FLAT (MAP (\x. case x of substs_x_xs l => l) [[substs_x1..substs_xn]]))) }} - {{ lem (Substs_x_xs (List.concat (List.map (fun x -> match x with Substs_x_xs l -> l end) [[substs_x1..substs_xn]]))) }} - {{ isa (substs_x_xs (concat (map (%x. case x of substs_x_xs l => l) [[substs_x1..substs_xn]]))) }} - - pattern_matching , pm :: PM_ ::= - | pat_exp1 '|' ... '|' pat_expn :: :: pm - | '|' pat_exp1 '|' ... '|' pat_expn :: S :: pm_extra_bar - {{ ichl (PM_pm [[pat_exp1...pat_expn]]) }} - - pat_exp :: PE_ ::= - | pattern -> expr :: :: inj (+ bind xs(pattern) in expr +) - - let_binding :: LB_ ::= - | pattern = expr :: :: simple - (+ xs = xs(pattern) +) - | value_name pattern1 ... patternn = expr :: S :: func - {{ ichl (LB_simple (P_var [[value_name]]) (fold_pats [[pattern1...patternn]] [[expr]])) }} - | value_name pattern1 ... patternn : typexpr = expr :: S :: typed - {{ ichl (LB_simple (P_var [[value_name]]) (fold_pats [[pattern1...patternn]] (Expr_typed [[expr]] [[typexpr]]))) }} - | '<<' typevar1 <- typexpr1 , .. , typevarn <- typexprn '>>' let_binding :: M :: susbts - {{ ichl (substs_typevar_let_binding [[typevar1 typexpr1..typevarn typexprn]] [[let_binding]]) }} - {{ com substitution of types for type variables }} - - letrec_bindings :: LRBs_ ::= - | letrec_binding1 and ... and letrec_bindingn :: :: inj (+ xs = xs(letrec_binding1 ... letrec_bindingn) +) - | '<<' typevar1 <- typexpr1 , .. , typevarn <- typexprn '>>' letrec_bindings :: M :: susbts - {{ ichl (substs_typevar_letrec_bindings [[typevar1 typexpr1..typevarn typexprn]] [[letrec_bindings]]) }} - {{ com substitution of types for type variables }} - -%% We want to restrict recursive definitions to functions. We can do this -%% in the syntax or in the type system. We currently do it in the syntax. - letrec_binding :: LRB_ ::= - | value_name = function pattern_matching :: :: simple - (+ xs = value_name +) - | value_name = fun pattern pattern1 .. patternn -> expr :: S :: func - {{ ichl (LRB_simple [[value_name]] (PM_pm [PE_inj [[pattern]] (fold_pats [[pattern1..patternn]] [[expr]])])) }} - | value_name pattern pattern1 .. patternn = expr :: S :: impl_fun - {{ ichl (LRB_simple [[value_name]] (PM_pm [PE_inj [[pattern]] (fold_pats [[pattern1..patternn]] [[expr]])])) }} - | value_name pattern pattern1 .. patternn : typexpr = expr :: S :: typed - {{ ichl (LRB_simple [[value_name]] (PM_pm [PE_inj [[pattern]] (fold_pats [[pattern1..patternn]] (Expr_typed [[expr]] [[typexpr]]))])) }} - ->> -%d<< - - %% 6.8.1 (Type definitions) http://caml.inria.fr/pub/docs/manual-ocaml/manual016.html#type-definition - - type_definition {{ isa caml_type_definition }} :: TDF_ ::= - | type typedef1 and .. and typedefn :: d :: tdf - (+ type_names = type_names(typedef1..typedefn) +) - (+ constr_names = constr_names(typedef1..typedefn) +) - {{ com potentially empty definitions to work around Ott parser restrictions }} - - typedef {{ isa caml_typedef }} :: TD_ ::= - | type_params_opt typeconstr_name type_information :: d :: td - (+ bind typevars(type_params_opt) in type_information +) - (+ type_names = typeconstr_name +) - (+ constr_names = constr_names(type_information) +) - - type_information :: TI_ ::= - | type_equation :: d :: eq - (+ constr_names = {} +) - (+ field_names = {} +) - | type_representation :: d :: def - (+ constr_names = constr_names(type_representation) +) - (+ field_names = field_names(type_representation) +) - - type_equation :: TE_ ::= - | = typexpr :: d :: te - - type_representation :: TR_ ::= - | = constr_decl1 '|' ... '|' constr_decln :: d :: variant - (+ constr_names = constr_names(constr_decl1...constr_decln) +) - (+ field_names = {} +) - | = { field_decl1 ; ... ; field_decln } :: d :: record - (+ constr_names = {} +) - (+ field_names = field_names(field_decl1...field_decln) +) - - type_params_opt :: TPS_ ::= - | :: S d :: nullary - {{ coq (TPS_nary nil) }} - {{ hol (TPS_nary []) }} - {{ lem (TPS_nary []) }} - {{ isa (TPS_nary []) }} - {{ com in the theorem prover models we use a uniform representation for empty, singleton and multiple type paramaters }} - | type_param :: S d :: unary - {{ coq (TPS_nary (cons [[type_param]] nil)) }} - {{ hol (TPS_nary [ [[type_param]] ]) }} - {{ lem (TPS_nary [ [[type_param]] ]) }} - {{ isa (TPS_nary [ [[type_param]] ]) }} - | ( type_param1 , ... , type_paramn ) :: d :: nary - (+ typevars = typevars(type_param1...type_paramn) +) - - type_param , tp :: TP_ ::= {{ coq-equality }} - | typevar :: d :: var - (+ typevars = typevar +) - - constr_decl :: CD_ ::= - | constr_name :: d :: nullary - (+ constr_names = constr_name +) - | constr_name of typexpr1 * ... * typexprn :: d :: nary - (+ constr_names = constr_name +) - -parsing - -TE_tuple <= CD_nary -STE_tuple <= CD_nary - -grammar - - field_decl :: FD_ ::= - | field_name : typexpr :: d :: immutable - (+ field_names = field_name +) - - %% 6.8.2 (Exception definitions) http://caml.inria.fr/pub/docs/manual-ocaml/manual016.html#exception-definition - - exception_definition :: ED_ ::= - | exception constr_decl :: d :: def -% | exception constr_name = constr :: d :: alias - - %% 6.11 (Module expressions (module implementations)) http://caml.inria.fr/pub/docs/manual-ocaml/manual019.html#definition - - definition {{ isa caml_definition }} , d :: D_ ::= - | let let_binding :: d :: let - (+ xs = xs(let_binding) +) - {{ com omitting multiple bindings, i.e.\ $\ottkw{and}$ }} - | let rec letrec_bindings :: d :: letrec - (+ xs = xs(letrec_bindings) +) - (+ bind xs(letrec_bindings) in letrec_bindings +) - | type_definition :: d :: type - (+ xs = {} +) - | exception_definition :: d :: exception - (+ xs = {} +) -%m% | module module_name { ( module_name : module_type ) } [ : module_type ] = module_expr :: m :: functor -%m | module_definition :: m :: module -%m | module type modtype_name = module_type :: m :: modtype -%m% | open module_path :: m :: open -%m% | include module_expr :: m :: include - - definitions , ds :: Ds_ ::= - | :: d :: nil - | definition definitions :: d :: cons - (+ bind xs(definition) in definitions +) - | definition ;; definitions :: S d :: cons_semi - {{ ichl (Ds_cons [[definition]] [[definitions]]) }} - | '<<' substs_x '>>' definitions :: M d :: substs - {{ coq (substs_value_name_definitions (substs_x_proj [[substs_x]]) [[definitions]]) }} - {{ hol (substs_value_name_definitions (case [[substs_x]] of substs_x_xs l => l) [[definitions]]) }} - {{ lem (substs_value_name_definitions (match [[substs_x]] with Substs_x_xs l -> l end) [[definitions]]) }} - {{ isa (substs_value_name_definitions (case [[substs_x]] of substs_x_xs l => l) [[definitions]]) }} - {{ com substitution of expressions for variables }} - | definitions definition :: M d :: snoc - {{ ichl (definitions_snoc [[definitions]] [[definition]]) }} - {{ com adding a definition to the end of a sequence }} - | definitions ;; definition :: M d :: snoc_semi - {{ ichl (definitions_snoc [[definitions]] [[definition]]) }} - - program :: Prog_ ::= - | definitions :: d :: defs - | (%prim raise) expr :: d :: raise -%d>> -<< - - %% Gadgets for the type system and semantics that are not in the source syntax. - - value {{ coq core_value }} , v :: V_ ::= - {{ com core value }} - | ( %prim unary_prim ) :: L I :: uprim - | ( %prim binary_prim ) :: L I :: bprim - | binary_prim_app_value value :: I :: bprim_app - {{ com partially applied binary primitive }} - | constant :: I :: constant - | ( value ) :: I :: paren - | value1 , .... , valuen :: I :: tuple - | constr ( value1 , .. , valuen ) :: I :: construct - | value1 '::' value2 :: I L :: cons - | [ value1 ; ... ; valuen ] :: I L :: list -%d | { field1 = value1 ; ... ; fieldn = valuen } :: I d :: record - | function pattern_matching :: I :: function - | fun pattern1 ... patternn -> expr :: I :: func - | location :: I :: location - - binary_prim_app_value :: BPAV_ ::= - | ( %prim binary_prim ) :: I :: inj - -parsing - -V_tuple <= V_construct - -grammar - ->> -%d<< - definition_value , d_value :: DV_ ::= - | type_definition :: d I :: type - | exception_definition :: d I :: exception - - definitions_value , ds_value :: DsV_ ::= - | :: d I :: nil - | definition_value definitions_value :: d I :: cons - | definition_value ;; definitions_value :: d I :: cons_semi -%d>> -<< - - non_expansive , nexp :: Nexp_ ::= - {{ com nonexpansive expression (allowed in a polymorphic let) }} - | ( %prim unary_prim ) :: I :: uprim - | ( %prim binary_prim ) :: I :: bprim - | binary_prim_app_value nexp :: I :: bprim_app - {{ com partially applied binary primitive }} - | value_name :: I :: ident - | constant :: I :: constant - | ( nexp ) :: I :: paren - | ( nexp : typexpr ) :: I :: typed - | nexp1 , .... , nexpn :: I :: tuple - | constr ( nexp1 , .. , nexpn ) :: I :: construct - | nexp1 '::' nexp2 :: I :: cons - | [ nexp1 ; ... ; nexpn ] :: I L :: list -%d | { field1 = nexp1 ; ... ; fieldn = nexpn } :: I d :: record - | let rec letrec_bindings in nexp :: I :: letrec - | function pattern_matching :: I :: function - | fun pattern1 ... patternn -> expr :: I :: func - | location :: I :: location - -parsing - -Nexp_tuple <= Nexp_construct - -grammar - - store , st :: STORE_ ::= - {{ hol ((location#expr) list) }} - {{ lem (list (location*expr)) }} - {{ isa ((location*expr) list) }} - {{ coq list (location * expr)}} - | empty :: I :: empty - {{ hol [] }} - {{ lem [] }} - {{ isa [] }} - {{ coq (@nil (location*expr)) }} - | store , location |-> expr :: I :: map - {{ hol (([[location]], [[expr]])::[[store]]) }} - {{ lem (([[location]], [[expr]])::[[store]]) }} - {{ isa (([[location]], [[expr]])#[[store]]) }} - {{ coq (cons ([[location]], [[expr]]) [[store]]) }} - | store , location |-> expr , store' :: M I :: middle - {{ hol ([[store']]++[([[location]], [[expr]])]++[[store]]) }} - {{ lem ([[store']]++[([[location]], [[expr]])]++[[store]]) }} - {{ isa ([[store']]@[([[location]], [[expr]])]@[[store]]) }} - {{ coq (app [[store']] (cons ([[location]], [[expr]]) [[store]])) }} - -kind :: K_ ::= - {{ coq nat }} - {{ hol num }} - {{ lem nat }} - {{ isa nat }} - | num -> Type :: I :: arity - {{ ichl [[num]] }} - {{ tex \ottkw{Type}^{[[num]]}\rightarrow[[Type]] }} - | Type :: S I :: type - {{ ichl 0 }} - -name :: name_ ::= {{ coq-equality }} - {{ com environment lookup key }} - | TV :: I :: tv - | value_name :: I :: vn -%d | constr_name :: d I :: cn -%d | typeconstr_name :: d I :: tcn -%d | field_name :: d I :: fn - | location :: I :: l - -names :: names_ ::= - {{ coq list name }} - {{ hol (name list) }} - {{ lem (list name) }} - {{ isa (name list) }} - | name1 .. namen :: I :: inj - {{ ichl [[name1..namen]] }} - -typexprs :: typexprs_ ::= - | typexpr1 , ... , typexprn :: I :: inj - | shift num num' typexprs :: M I :: shift - {{ ichl (shifttes [[num]] [[num']] [[typexprs]]) }} - {{ com shift the indices in the types in $[[typexprs]]$ by $[[num]]$, ignoring indices lower than $[[num']]$ }} - -environment_binding , EB :: EB_ ::= - | TV :: I :: tv - {{ com type variable }} - | value_name : typescheme :: I :: vn - {{ com value binding }} - | value_name : typexpr :: M I :: vntype - {{ com value binding with no universal quantifier }} - {{ ichl (EB_vn [[value_name]] (TS_forall (shiftt 0 1 [[typexpr]]))) }} -%d | constr_name of typeconstr :: d I :: cc -%d {{ com constant constructor }} -%d | constr_name of forall type_params_opt , ( typexprs ) : typeconstr :: d I :: pc -%d (+ bind typevars(type_params_opt) in typexprs +) -%d {{ com parameterised constructor }} -%d | field_name : forall type_params_opt , typeconstr_name -> typexpr :: d I :: fn -%d (+ bind typevars(type_params_opt) in typexpr +) -%d {{ com field name a record destructor }} -%d | typeconstr_name : kind :: d I :: td -%d {{ com type name, bound to a fresh type }} -%d | typeconstr_name : kind { field_name1 ; ... ; field_namen } :: d I :: tr -%d {{ com type name which is a record type definition }} -%d | type_params_opt typeconstr_name = typexpr :: d I :: ta -%d (+ bind typevars(type_params_opt) in typexpr +) -%d {{ com type name which is an abbreviation }} - | location : typexpr :: I :: l - {{ com location (memory cell) }} - | ( EB ) :: M I :: paren - {{ ichl [[EB]] }} - | shift num num' EB :: M I :: shift - {{ ichl (shiftEB [[num]] [[num']] [[EB]]) }} - {{ com shift the indices in the types in $[[EB]]$ by $[[num]]$, ignoring indices lower than $[[num']]$ }} - -environment , E :: Env_ ::= - {{ coq (list environment_binding) }} - {{ hol (environment_binding list) }} - {{ lem (list environment_binding) }} - {{ isa (environment_binding list) }} - | empty :: I :: nil - {{ coq (@nil environment_binding) }} - {{ hol [] }} - {{ lem [] }} - {{ isa [] }} - | E , EB :: I :: snoc - {{ tex \ottenvironmentappend{[[E]]}{[[EB]]} }} - {{ coq (cons [[EB]] [[E]]) }} - {{ hol ([[EB]]::[[E]]) }} - {{ lem ([[EB]]::[[E]]) }} - {{ isa ([[EB]]#[[E]]) }} - | EB1 , .. , EBn :: M I :: list - {{ coq (rev [[EB1 .. EBn]]) }} - {{ hol (REVERSE [[EB1 .. EBn]]) }} - {{ lem (List.reverse [[EB1 .. EBn]]) }} - {{ isa (rev [[EB1 .. EBn]]) }} - | E1 @ .. @ En :: M I :: tree - {{ coq (flatten (rev [[E1 .. En]])) }} - {{ hol (FLAT (REVERSE [[E1 .. En]])) }} - {{ lem (List.concat (List.reverse [[E1 .. En]])) }} - {{ isa (concat (rev [[E1 .. En]])) }} - -trans_label , L :: Lab_ ::= - {{ com reduction label (denoting a side effect) }} - | :: I :: nil - | ref v = location :: I :: alloc - | ! location = v :: I :: deref - | location := v :: I :: assign - | ( L ) :: I M :: paren - {{ ichl [[L]] }} - {{ tex [[L]] }} - -labelled_arrow :: LA_ ::= - {{ ichl trans_label }} - {{ tex \stackrel{\ottnt{L} }{\longrightarrow}\ottmaybebreakline }} - | --> L :: I :: inj - {{ ichl [[L]] }} - {{ tex \stackrel{[[L]]}{\longrightarrow}\ottmaybebreakline }} - -subrules - value <:: expr - binary_prim_app_value <:: expr - non_expansive <:: expr - src_typexpr <:: typexpr - ->> -%d<< -subrules - definition_value <:: definition - definitions_value <:: definitions -%d>> -<< - -freevars typexpr typevar :: ftv -freevars expr value_name :: fv -freevars expr location :: fl - -substitutions - multiple typexpr typevar :: substs_typevar - multiple expr value_name :: substs_value_name - single expr value_name :: subst_value_name - - - -grammar - formula :: formula_ ::= - {{ com semantic judgements and their side conditions }} - | judgement :: :: judgement - | formula1 .. formulan :: :: dots - | intn1 <= intn2 :: :: le_int - {{ coq (([[intn1]] <= [[intn2]])%Z) }} - {{ hol ([[intn1]] <= [[intn2]]) }} - {{ lem ([[intn1]] <= [[intn2]]) }} - {{ isa ([[intn1]] <= [[intn2]]) }} - {{ tex [[intn1]] \stackrel\centerdot\leq [[intn2]] }} - | intn1 > intn2 :: :: gt_int - {{ coq (([[intn1]] > [[intn2]])%Z) }} - {{ hol ([[intn1]] > [[intn2]]) }} - {{ lem ([[intn1]] > [[intn2]]) }} - {{ isa ([[intn1]] > [[intn2]]) }} - {{ tex [[intn1]] \stackrel\centerdot > [[intn2]] }} - | num1 < num2 :: :: lt_num - {{ coq (([[num1]] < [[num2]])%Z) }} - {{ hol ([[num1]] < [[num2]]) }} - {{ lem ([[num1]] < [[num2]]) }} - {{ isa ([[num1]] < [[num2]]) }} - | E = E' :: :: eq_environment - {{ ichl ([[E]] = [[E']]) }} - | expr = expr' :: :: eq_expr - {{ ichl ([[expr]] = [[expr']]) }} - | typexpr = typexpr' :: :: eq_typexpr - {{ ichl ([[typexpr]] = [[typexpr']]) }} - | typescheme = typescheme' :: :: eq_typescheme - {{ ichl ([[typescheme]] = [[typescheme']]) }} - | type_params_opt = type_params_opt' :: :: eq_type_params_opt - {{ ichl ([[type_params_opt]] = [[type_params_opt']]) }} - | letrec_bindings = letrec_bindings' :: :: eq_letrec_bindings - {{ ichl ([[letrec_bindings]] = [[letrec_bindings']]) }} - {{ tex [[letrec_bindings]] = ([[letrec_bindings']]) }} - | length ( tp1 ) .. ( tpn ) = m :: :: length_list_type_param_eq - {{ coq ([[m]] = length [[tp1..tpn]]) }} - {{ hol ([[m]] = LENGTH ([[tp1..tpn]])) }} - {{ lem ([[m]] = List.length ([[tp1..tpn]])) }} - {{ isa ([[m]] = length ([[tp1..tpn]])) }} - | length ( t1 ) .. ( tn ) = num :: :: length_list_typexpr_eq - {{ coq ([[num]] = length [[t1..tn]]) }} - {{ hol ([[num]] = LENGTH ([[t1..tn]])) }} - {{ lem ([[num]] = List.length ([[t1..tn]])) }} - {{ isa ([[num]] = length ([[t1..tn]])) }} - | length ( t1 ) .. ( tn ) <= num :: :: length_list_typexpr_le - {{ coq (length [[t1..tn]] <= [[num]]) }} - {{ hol (LENGTH ([[t1..tn]]) <= [[num]]) }} - {{ lem (List.length ([[t1..tn]]) <= [[num]]) }} - {{ isa (length ([[t1..tn]]) <= [[num]]) }} - | length ( t1 ) .. ( tn ) >= num :: :: length_list_typexpr_ge - {{ coq (length [[t1..tn]] >= [[num]]) }} - {{ hol (LENGTH ([[t1..tn]]) >= [[num]]) }} - {{ lem (List.length ([[t1..tn]]) >= [[num]]) }} - {{ isa (length ([[t1..tn]]) >= [[num]]) }} - | length ( pat1 ) .. ( patn ) >= m :: :: length_list_pattern_ge - {{ coq (length [[pat1..patn]] >= [[m]]) }} - {{ hol (LENGTH ([[pat1..patn]]) >= [[m]]) }} - {{ lem (List.length ([[pat1..patn]]) >= [[m]]) }} - {{ isa (length ([[pat1..patn]]) >= [[m]]) }} - | length ( e1 ) .. ( en ) >= m :: :: length_list_expr_ge - {{ coq (length [[e1..en]] >= [[m]]) }} - {{ hol (LENGTH ([[e1..en]]) >= [[m]]) }} - {{ lem (List.length ([[e1..en]]) >= [[m]]) }} - {{ isa (length ([[e1..en]]) >= [[m]]) }} - | name notin names :: :: name_notin - {{ coq (~In [[name]] [[names]]) }} - {{ hol (~MEM [[name]] [[names]]) }} - {{ lem (not (List.elem [[name]] [[names]])) }} - {{ isa (~( [[name]] mem [[names]])) }} -%d | field_name in field_name1 .. field_namen :: d :: fn_in_fns -%d {{ coq (In [[field_name]] [[field_name1..field_namen]]) }} -%d {{ hol (MEM [[field_name]] [[field_name1..field_namen]]) }} -%d {{ lem (List.elem [[field_name]] [[field_name1..field_namen]]) }} -%d {{ isa ([[field_name]] mem [[field_name1..field_namen]]) }} - | type_param in type_params_opt :: :: typevar_in_typevars - {{ coq (In [[type_param]] (match [[type_params_opt]] with TPS_nary x => x end)) }} - {{ hol (MEM [[type_param]] (case [[type_params_opt]] of TPS_nary x => x)) }} - {{ lem (List.elem [[type_param]] (match [[type_params_opt]] with TPS_nary x -> x end)) }} - {{ isa ([[type_param]] mem (case [[type_params_opt]] of TPS_nary x => x)) }} - | name1 .. namen distinct :: :: distinct_names - {{ coq (NoDup [[name1..namen]]) }} - {{ hol (ALL_DISTINCT ([[name1..namen]])) }} - {{ lem (list_distinct ([[name1..namen]])) }} - {{ isa (distinct ([[name1..namen]])) }} - | tp1 .. tpn distinct :: :: distinct_type_param - {{ coq (NoDup [[tp1..tpn]]) }} - {{ hol (ALL_DISTINCT ([[tp1..tpn]])) }} - {{ lem (list_distinct ([[tp1..tpn]])) }} - {{ isa (distinct ([[tp1..tpn]])) }} - | E PERMUTES E' :: :: permutes_env - {{ coq (Permutation [[E]] [[E']]) }} - {{ hol (PERM ([[E]]) ([[E']])) }} - {{ lem (list_perm ([[E]]) ([[E']])) }} - {{ isa (List.perm ([[E]]) ([[E']])) }} -%d | fn1 .. fnn PERMUTES fn1' .. fnm' :: d :: permutes_field_name -%d {{ coq (Permutation [[fn1..fnn]] [[fn1'..fnm']]) }} -%d {{ hol (PERM ([[fn1..fnn]]) ([[fn1'..fnm']])) }} -%d {{ lem (list_perm ([[fn1..fnn]]) ([[fn1'..fnm']])) }} -%d {{ isa (perm ([[fn1..fnn]]) ([[fn1'..fnm']])) }} -%d | fn1 = e1 .. fnn = en PERMUTES fn1' = e1' .. fnm' = em' :: d :: permutes_field_name_expr -%d {{ coq (Permutation [[fn1 e1..fnn en]] [[fn1' e1'..fnm' em']]) }} -%d {{ hol (PERM ([[fn1 e1..fnn en]]) ([[fn1' e1'..fnm' em']])) }} -%d {{ lem (list_perm ([[fn1 e1..fnn en]]) ([[fn1' e1'..fnm' em']])) }} -%d {{ isa (perm ([[fn1 e1..fnn en]]) ([[fn1' e1'..fnm' em']])) }} - | |- value notmatches pattern :: :: does_not_match - {{ tex \neg([[value]]~\ottkw{matches}~[[pattern]]) }} - {{ coq (~JM_matchP [[value]] [[pattern]]) }} - {{ hol (~JM_matchP [[value]] [[pattern]]) }} - {{ lem (not (JM_matchP [[value]] [[pattern]])) }} - {{ isa (~(([[value]], [[pattern]]) : JM_matchP)) }} - | constant noteq constant' :: :: different_consts - {{ isa (~([[constant]] = [[constant']])) }} - {{ coq (~([[constant]] = [[constant']])) }} - {{ hol (~([[constant]] = [[constant']])) }} - {{ lem (not ([[constant]] = [[constant']])) }} - | name noteq name' :: :: different_names - {{ isa (~([[name]] = [[name']])) }} - {{ coq (~([[name]] = [[name']])) }} - {{ hol (~([[name]] = [[name']])) }} - {{ lem (not ([[name]] = [[name']])) }} - | store ( location ) unallocated :: :: store_unallocated - {{ coq (forall v8, ~JSlookup [[store]] [[location]] v8) }} - {{ hol (!v8. ~JSlookup [[store]] [[location]] v8) }} - {{ lem (forall v8. not (JSlookup [[store]] [[location]] v8)) }} - {{ isa (! v8. ~(([[store]], [[location]], v8) : JSlookup )) }} - | type_vars ( let_binding ) gives typevar1 , .. , typevarn :: :: typevars_of_let_gives - {{ ichl (ftv_let_binding [[let_binding]] = [[typevar1..typevarn]]) }} - | type_vars ( letrec_bindings ) gives typevar1 , .. , typevarn :: :: typevars_of_letrec_gives - {{ ichl (ftv_letrec_bindings [[letrec_bindings]] = [[typevar1..typevarn]]) }} - -grammar - terminals :: terminals_ ::= - {{ com prettyprinting specifications }} - | %prim :: :: prim {{ tex \ottkw{\%prim} }} - | * :: :: star {{ tex \ast }} - | ---> :: :: vararrow {{ tex \rightarrow }} - | --> :: :: red {{ tex \longrightarrow }} - | -> :: :: arrow {{ tex \rightarrow }} - | <- :: :: leftarrow {{ tex \!\!\leftarrow\!\! }} - | '<<' :: :: substl {{ tex \{\!\!\{ }} - | <= :: :: le {{ tex \leq }} - | == :: :: equiv {{ tex \equiv }} - | >= :: :: ge {{ tex \geq }} - | '>>' :: :: substr {{ tex \}\!\!\} }} - | forall :: :: forall {{ tex \forall }} - | gives :: :: gives {{ tex \;\vartriangleright\;\ottmaybebreakline }} - | notin :: :: notin {{ tex \notin }} - | noteq :: :: noteq {{ tex \not = }} - | |- :: :: turnstile {{ tex \vdash }} - | |-> :: :: mapsto {{ tex \mapsto }} - | ~- :: :: uminus {{ tex \mathrel{\sim\!\!-} }} - -embed {{ hol - -val _ = Define -`fold_pat pats expr = FOLDR (\p e. Expr_function (PM_pm [PE_inj p e])) expr pats`; - -val _ = ottDefine "shiftt" -`([[:user_syntax__typexpr:shift m n typevar]] = [[:user_syntax__typexpr:typevar]]) /\ - ([[:user_syntax__typexpr:shift m n ]] = - if [[idx < m]] then [[:user_syntax__typexpr:]] else [[:user_syntax__typexpr:]]) /\ - ([[:user_syntax__typexpr:shift m n _]] = [[:user_syntax__typexpr:_]]) /\ - ([[:user_syntax__typexpr:shift m n (typexpr1->typexpr2)]] = - [[:user_syntax__typexpr:(shift m n typexpr1)->(shift m n typexpr2)]]) /\ - (shiftt m n (TE_tuple typexprs) = TE_tuple (MAP (shiftt m n) typexprs)) /\ - (shiftt m n (TE_constr typexprs tc) = TE_constr (MAP (shiftt m n) typexprs) tc)`; - -val _ = Define -`(shifttes m n (Typexprs_inj tes) = Typexprs_inj (MAP (shiftt m n) tes))`; - -val _ = Define -`([[shift m n forall typexpr]] = [[forall shift (m + 1) n typexpr]])`; - -val _ = Define -`([[:user_syntax__environment_binding:shift m n TV]] = [[:user_syntax__environment_binding:TV]]) /\ - ([[:user_syntax__environment_binding:shift m n value_name:typescheme]] = - [[:user_syntax__environment_binding:value_name : shift m n typescheme]]) /\ - ([[:user_syntax__environment_binding:shift m n constr_name of typeconstr]] = - [[:user_syntax__environment_binding:constr_name of typeconstr]]) /\ - ([[:user_syntax__environment_binding:shift m n constr_name of forall type_params_opt, (typexprs) : typeconstr]] = - [[:user_syntax__environment_binding:constr_name of forall type_params_opt, (shift m n typexprs) : typeconstr]]) /\ - ([[:user_syntax__environment_binding:shift m n field_name:forall type_params_opt, typeconstr_name -> typexpr]] = - [[:user_syntax__environment_binding:field_name:forall type_params_opt, typeconstr_name -> shift m n typexpr]]) /\ - ([[:user_syntax__environment_binding:shift m n typeconstr_name:kind]] = - [[:user_syntax__environment_binding:typeconstr_name:kind]]) /\ - (shiftEB m n (EB_tr tcn k field_names) = EB_tr tcn k field_names) /\ - ([[:user_syntax__environment_binding:shift m n type_params_opt typeconstr_name = typexpr]] = - [[:user_syntax__environment_binding:type_params_opt typeconstr_name = shift m n typexpr]]) /\ - ([[:user_syntax__environment_binding:shift m n location: typexpr]] = - [[:user_syntax__environment_binding:location: shift m n typexpr]])`; - -val num_tv_def = Define -`(num_tv [] = 0:num) /\ - (num_tv (EB_tv::E) = 1 + num_tv E) /\ - (num_tv (EB::E) = num_tv E)`; - -val _ = Define -`(shiftE m n [] = []) /\ - (shiftE m n (EB::E) = shiftEB (m + num_tv E) n EB::shiftE m n E)`; - -val _ = Define -`(shiftTsig m n Tsig = MAP (\(tv, t). (tv, shiftt m n t)) Tsig)`; - -val _ = Define -`(definitions_snoc Ds_nil d = Ds_cons d Ds_nil) /\ - (definitions_snoc (Ds_cons d ds) d' = Ds_cons d (definitions_snoc ds d'))`; - -val _ = ottDefine "remv_tyvar_typexpr" -`(remv_tyvar_typexpr (TE_var typevar) = TE_any) /\ - (remv_tyvar_typexpr (TE_idxvar idx num) = TE_idxvar idx num) /\ - (remv_tyvar_typexpr TE_any = TE_any) /\ - (remv_tyvar_typexpr (TE_arrow typexpr1 typexpr2) = - TE_arrow (remv_tyvar_typexpr typexpr1) (remv_tyvar_typexpr typexpr2)) /\ - (remv_tyvar_typexpr (TE_tuple (typexpr_list)) = - TE_tuple (MAP (\typexpr_. (remv_tyvar_typexpr typexpr_)) typexpr_list)) /\ - (remv_tyvar_typexpr (TE_constr (typexpr_list) typeconstr) = - TE_constr (MAP (\typexpr_. (remv_tyvar_typexpr typexpr_)) typexpr_list) typeconstr)`; - -val _ = ottDefine "remv_tyvar_pattern" -`(remv_tyvar_pattern (P_var value_name) = P_var value_name) /\ - (remv_tyvar_pattern P_any = P_any) /\ - (remv_tyvar_pattern (P_constant constant) = P_constant constant) /\ - (remv_tyvar_pattern (P_alias pattern value_name) = - P_alias (remv_tyvar_pattern pattern) value_name) /\ - (remv_tyvar_pattern (P_typed pattern typexpr) = - P_typed (remv_tyvar_pattern pattern) (remv_tyvar_typexpr typexpr)) /\ - (remv_tyvar_pattern (P_or pattern1 pattern2) = - P_or (remv_tyvar_pattern pattern1) (remv_tyvar_pattern pattern2)) /\ - (remv_tyvar_pattern (P_construct constr (pattern_list)) = - P_construct constr (MAP (\pattern_. (remv_tyvar_pattern pattern_)) pattern_list)) /\ - (remv_tyvar_pattern (P_construct_any constr) = P_construct_any constr) /\ - (remv_tyvar_pattern (P_tuple (pattern_list)) = - P_tuple (MAP (\pattern_. (remv_tyvar_pattern pattern_)) pattern_list)) /\ - (remv_tyvar_pattern (P_record (field_pattern_list)) = - P_record (MAP (\(field_,pattern_). (field_,(remv_tyvar_pattern pattern_))) field_pattern_list)) /\ - (remv_tyvar_pattern (P_cons pattern1 pattern2) = - P_cons (remv_tyvar_pattern pattern1) (remv_tyvar_pattern pattern2))`; - -val _ = ottDefine "remv_tyvar_letrec_binding" -`(remv_tyvar_letrec_binding (LRB_simple value_name pattern_matching) = - LRB_simple value_name (remv_tyvar_pattern_matching pattern_matching)) /\ - (remv_tyvar_letrec_bindings (LRBs_inj (letrec_binding_list)) = - LRBs_inj (MAP (\letrec_binding_. (remv_tyvar_letrec_binding letrec_binding_)) letrec_binding_list)) /\ - (remv_tyvar_let_binding (LB_simple pattern expr) = - LB_simple (remv_tyvar_pattern pattern) (remv_tyvar_expr expr)) /\ - (remv_tyvar_pat_exp (PE_inj pattern expr) = - PE_inj (remv_tyvar_pattern pattern) (remv_tyvar_expr expr)) /\ - (remv_tyvar_pattern_matching (PM_pm (pat_exp_list)) = - PM_pm (MAP (\pat_exp_. (remv_tyvar_pat_exp pat_exp_)) pat_exp_list)) /\ - (remv_tyvar_expr (Expr_uprim unary_prim) = Expr_uprim unary_prim) /\ - (remv_tyvar_expr (Expr_bprim binary_prim) = Expr_bprim binary_prim) /\ - (remv_tyvar_expr (Expr_ident value_name) = Expr_ident value_name) /\ - (remv_tyvar_expr (Expr_constant constant) = Expr_constant constant) /\ - (remv_tyvar_expr (Expr_typed expr typexpr) = - Expr_typed (remv_tyvar_expr expr) (remv_tyvar_typexpr typexpr)) /\ - (remv_tyvar_expr (Expr_tuple (expr_list)) = - Expr_tuple (MAP (\expr_. (remv_tyvar_expr expr_)) expr_list)) /\ - (remv_tyvar_expr (Expr_construct constr (expr_list)) = - Expr_construct constr (MAP (\expr_. (remv_tyvar_expr expr_)) expr_list)) /\ - (remv_tyvar_expr (Expr_cons expr1 expr2) = - Expr_cons (remv_tyvar_expr expr1) (remv_tyvar_expr expr2)) /\ - (remv_tyvar_expr (Expr_record (field_expr_list)) = - Expr_record (MAP (\(field_,expr_). (field_,(remv_tyvar_expr expr_))) field_expr_list)) /\ - (remv_tyvar_expr (Expr_override expr (field_expr_list)) = - Expr_override (remv_tyvar_expr expr) - (MAP (\(field_,expr_). (field_,(remv_tyvar_expr expr_))) field_expr_list)) /\ - (remv_tyvar_expr (Expr_apply expr1 expr2) = - Expr_apply (remv_tyvar_expr expr1) (remv_tyvar_expr expr2)) /\ - (remv_tyvar_expr (Expr_and expr1 expr2) = - Expr_and (remv_tyvar_expr expr1) (remv_tyvar_expr expr2)) /\ - (remv_tyvar_expr (Expr_or expr1 expr2) = - Expr_or (remv_tyvar_expr expr1) (remv_tyvar_expr expr2)) /\ - (remv_tyvar_expr (Expr_field expr field) = Expr_field (remv_tyvar_expr expr) field) /\ - (remv_tyvar_expr (Expr_ifthenelse expr0 expr1 expr2) = - Expr_ifthenelse (remv_tyvar_expr expr0) (remv_tyvar_expr expr1) (remv_tyvar_expr expr2)) /\ - (remv_tyvar_expr (Expr_while expr1 expr2) = - Expr_while (remv_tyvar_expr expr1) (remv_tyvar_expr expr2)) /\ - (remv_tyvar_expr (Expr_for x expr1 for_dirn expr2 expr3) = - Expr_for x (remv_tyvar_expr expr1) for_dirn (remv_tyvar_expr expr2) (remv_tyvar_expr expr3))/\ - (remv_tyvar_expr (Expr_sequence expr1 expr2) = - Expr_sequence (remv_tyvar_expr expr1) (remv_tyvar_expr expr2)) /\ - (remv_tyvar_expr (Expr_match expr pattern_matching) = - Expr_match (remv_tyvar_expr expr) (remv_tyvar_pattern_matching pattern_matching)) /\ - (remv_tyvar_expr (Expr_function pattern_matching) = - Expr_function (remv_tyvar_pattern_matching pattern_matching)) /\ - (remv_tyvar_expr (Expr_try expr pattern_matching) = - Expr_try (remv_tyvar_expr expr) (remv_tyvar_pattern_matching pattern_matching)) /\ - (remv_tyvar_expr (Expr_let let_binding expr) = - Expr_let (remv_tyvar_let_binding let_binding) (remv_tyvar_expr expr)) /\ - (remv_tyvar_expr (Expr_letrec letrec_bindings expr) = - Expr_letrec (remv_tyvar_letrec_bindings letrec_bindings) (remv_tyvar_expr expr)) /\ - (remv_tyvar_expr (Expr_assert expr) = Expr_assert (remv_tyvar_expr expr)) /\ - (remv_tyvar_expr (Expr_location location) = Expr_location location)`; - - -}} - -embed {{ lem - -let rec list_distinct xs = - match xs with - | [] -> true - | [x] -> true - | x::xs -> not(List.elem x xs) && list_distinct xs - end - -(* insert x at all positions into l and return the list of results *) -let rec insert x l = match l with -| [] -> [ [x] ] -| a::m -> (x::l) :: (List.map (fun y -> a::y) (insert x m)) -end - -(* list of all permutations of l *) -let rec perms l = match l with -| a::m -> List.concat (List.map (insert a) (perms m)) -| _ -> [l] -end -(* nb this is very inefficient *) -let rec list_perm xs ys = List.elem xs (perms ys) - - -let fold_pat pats expr = List.foldr (fun p e -> Expr_function (PM_pm [PE_inj p e])) expr pats - -let rec -shiftt m n (TE_var typevar) = TE_var typevar -and -shiftt m n (TE_idxvar idx num) = - if (idx < m) then TE_idxvar idx num else TE_idxvar (idx + n) num -and -shiftt m n TE_any = TE_any -and -shiftt m n (TE_arrow typexpr1 typexpr2) = - TE_arrow (shiftt m n typexpr1) (shiftt m n typexpr2) -and -shiftt m n (TE_tuple typexprs) = TE_tuple (List.map (shiftt m n) typexprs) -and -shiftt m n (TE_constr typexprs tc) = TE_constr (List.map (shiftt m n) typexprs) tc - - -let shifttes m n (Typexprs_inj tes) = Typexprs_inj (List.map (shiftt m n) tes) - -let shiftts m n (TS_forall typexpr) = TS_forall (shiftt (m + 1) n typexpr) - -let rec -shiftEB m n EB_tv = EB_tv -and -shiftEB m n (EB_vn value_name typescheme) = - EB_vn value_name (shiftts m n typescheme) -and -shiftEB m n (EB_cc constr_name typeconstr) = - EB_cc constr_name typeconstr -and -shiftEB m n (EB_pc constr_name type_params_opt typexprs typeconstr) = - EB_pc constr_name type_params_opt (shifttes m n typexprs ) typeconstr -and -shiftEB m n (EB_fn field_name type_params_opt typeconstr_name typexpr) = - EB_fn field_name type_params_opt typeconstr_name (shiftt m n typexpr) -and -shiftEB m n (EB_td typeconstr_name kind) = - EB_td typeconstr_name kind -and -shiftEB m n (EB_tr tcn k field_names) = EB_tr tcn k field_names -and -shiftEB m n (EB_ta type_params_opt typeconstr_name typexpr) = - EB_ta type_params_opt typeconstr_name (shiftt m n typexpr) -and -shiftEB m n (EB_l location typexpr) = - EB_l location (shiftt m n typexpr) - -let rec -num_tv [] = (0:nat) -and -num_tv (EB_tv::E) = 1 + num_tv E -and -num_tv (EB::E) = num_tv E - -let rec -shiftE m n [] = [] -and -shiftE m n (EB::E) = shiftEB (m + num_tv E) n EB::shiftE m n E - -let shiftTsig m n Tsig = List.map (fun (tv, t) -> (tv, shiftt m n t)) Tsig - -let rec -definitions_snoc Ds_nil d = Ds_cons d Ds_nil -and -definitions_snoc (Ds_cons d ds) d' = Ds_cons d (definitions_snoc ds d') - -let rec -remv_tyvar_typexpr (TE_var typevar) = TE_any -and -remv_tyvar_typexpr (TE_idxvar idx num) = TE_idxvar idx num -and -remv_tyvar_typexpr TE_any = TE_any -and -remv_tyvar_typexpr (TE_arrow typexpr1 typexpr2) = - TE_arrow (remv_tyvar_typexpr typexpr1) (remv_tyvar_typexpr typexpr2) -and -remv_tyvar_typexpr (TE_tuple (typexpr_list)) = - TE_tuple (List.map (fun typexpr_ -> (remv_tyvar_typexpr typexpr_)) typexpr_list) -and -remv_tyvar_typexpr (TE_constr (typexpr_list) typeconstr) = - TE_constr (List.map (fun typexpr_ -> (remv_tyvar_typexpr typexpr_)) typexpr_list) typeconstr - -let rec -remv_tyvar_pattern (P_var value_name) = P_var value_name -and -remv_tyvar_pattern P_any = P_any -and -remv_tyvar_pattern (P_constant constantl) = P_constant constantl -and -remv_tyvar_pattern (P_alias patternl value_name) = - P_alias (remv_tyvar_pattern patternl) value_name -and -remv_tyvar_pattern (P_typed patternl typexpr) = - P_typed (remv_tyvar_pattern patternl) (remv_tyvar_typexpr typexpr) -and -remv_tyvar_pattern (P_or pattern1 pattern2) = - P_or (remv_tyvar_pattern pattern1) (remv_tyvar_pattern pattern2) -and -remv_tyvar_pattern (P_construct constr (pattern_list)) = - P_construct constr (List.map (fun pattern_ -> (remv_tyvar_pattern pattern_)) pattern_list) -and -remv_tyvar_pattern (P_construct_any constr) = P_construct_any constr -and -remv_tyvar_pattern (P_tuple (pattern_list)) = - P_tuple (List.map (fun pattern_ -> (remv_tyvar_pattern pattern_)) pattern_list) -and -remv_tyvar_pattern (P_record (field_pattern_list)) = - P_record (List.map (fun (field_,pattern_) -> (field_,(remv_tyvar_pattern pattern_))) field_pattern_list) -and -remv_tyvar_pattern (P_cons pattern1 pattern2) = - P_cons (remv_tyvar_pattern pattern1) (remv_tyvar_pattern pattern2) - -let rec -remv_tyvar_letrec_binding (LRB_simple value_name pattern_matching) = - LRB_simple value_name (remv_tyvar_pattern_matching pattern_matching) -and -remv_tyvar_letrec_bindings (LRBs_inj (letrec_binding_list)) = - LRBs_inj (List.map (fun letrec_binding_ -> (remv_tyvar_letrec_binding letrec_binding_)) letrec_binding_list) -and -remv_tyvar_let_binding (LB_simple patternl expr) = - LB_simple (remv_tyvar_pattern patternl) (remv_tyvar_expr expr) -and -remv_tyvar_pat_exp (PE_inj patternl expr) = - PE_inj (remv_tyvar_pattern patternl) (remv_tyvar_expr expr) -and -remv_tyvar_pattern_matching (PM_pm (pat_exp_list)) = - PM_pm (List.map (fun pat_exp_ -> (remv_tyvar_pat_exp pat_exp_)) pat_exp_list) -and -remv_tyvar_expr (Expr_uprim unary_prim) = Expr_uprim unary_prim -and -remv_tyvar_expr (Expr_bprim binary_prim) = Expr_bprim binary_prim -and -remv_tyvar_expr (Expr_ident value_name) = Expr_ident value_name -and -remv_tyvar_expr (Expr_constant constantl) = Expr_constant constantl -and -remv_tyvar_expr (Expr_typed expr typexpr) = - Expr_typed (remv_tyvar_expr expr) (remv_tyvar_typexpr typexpr) -and -remv_tyvar_expr (Expr_tuple (expr_list)) = - Expr_tuple (List.map (fun expr_ -> (remv_tyvar_expr expr_)) expr_list) -and -remv_tyvar_expr (Expr_construct constr (expr_list)) = - Expr_construct constr (List.map (fun expr_ -> (remv_tyvar_expr expr_)) expr_list) -and -remv_tyvar_expr (Expr_cons expr1 expr2) = - Expr_cons (remv_tyvar_expr expr1) (remv_tyvar_expr expr2) -and -remv_tyvar_expr (Expr_record (field_expr_list)) = - Expr_record (List.map (fun (field_,expr_) -> (field_,(remv_tyvar_expr expr_))) field_expr_list) -and -remv_tyvar_expr (Expr_override expr (field_expr_list)) = - Expr_override (remv_tyvar_expr expr) - (List.map (fun (field_,expr_) -> (field_,(remv_tyvar_expr expr_))) field_expr_list) -and -remv_tyvar_expr (Expr_apply expr1 expr2) = - Expr_apply (remv_tyvar_expr expr1) (remv_tyvar_expr expr2) -and -remv_tyvar_expr (Expr_and expr1 expr2) = - Expr_and (remv_tyvar_expr expr1) (remv_tyvar_expr expr2) -and -remv_tyvar_expr (Expr_or expr1 expr2) = - Expr_or (remv_tyvar_expr expr1) (remv_tyvar_expr expr2) -and -remv_tyvar_expr (Expr_field expr fieldl) = Expr_field (remv_tyvar_expr expr) fieldl -and -remv_tyvar_expr (Expr_ifthenelse expr0 expr1 expr2) = - Expr_ifthenelse (remv_tyvar_expr expr0) (remv_tyvar_expr expr1) (remv_tyvar_expr expr2) -and -remv_tyvar_expr (Expr_while expr1 expr2) = - Expr_while (remv_tyvar_expr expr1) (remv_tyvar_expr expr2) -and -remv_tyvar_expr (Expr_for x expr1 for_dirn expr2 expr3) = - Expr_for x (remv_tyvar_expr expr1) for_dirn (remv_tyvar_expr expr2) (remv_tyvar_expr expr3) -and -remv_tyvar_expr (Expr_sequence expr1 expr2) = - Expr_sequence (remv_tyvar_expr expr1) (remv_tyvar_expr expr2) -and -remv_tyvar_expr (Expr_match expr pattern_matching) = - Expr_match (remv_tyvar_expr expr) (remv_tyvar_pattern_matching pattern_matching) -and -remv_tyvar_expr (Expr_function pattern_matching) = - Expr_function (remv_tyvar_pattern_matching pattern_matching) -and -remv_tyvar_expr (Expr_try expr pattern_matching) = - Expr_try (remv_tyvar_expr expr) (remv_tyvar_pattern_matching pattern_matching) -and -remv_tyvar_expr (Expr_let let_binding expr) = - Expr_let (remv_tyvar_let_binding let_binding) (remv_tyvar_expr expr) -and -remv_tyvar_expr (Expr_letrec letrec_bindings expr) = - Expr_letrec (remv_tyvar_letrec_bindings letrec_bindings) (remv_tyvar_expr expr) -and -remv_tyvar_expr (Expr_assert expr) = Expr_assert (remv_tyvar_expr expr) -and -remv_tyvar_expr (Expr_location location) = Expr_location location - - -}} - - -embed {{ isa - -constdefs fold_pat :: "pattern list => expr => expr" -"fold_pat pats expr == foldr (% p e. Expr_function (PM_pm [PE_inj p e])) pats expr" - -consts shiftt :: "nat => nat => typexpr => typexpr" -(* -primrec -"([[:user_syntax__typexpr:shift m n typevar]] = [[:user_syntax__typexpr:typevar]])" -" ([[:user_syntax__typexpr:shift m n ]] = - (if [[idx < m]] then [[:user_syntax__typexpr:]] else [[:user_syntax__typexpr:]]) " -" ([[:user_syntax__typexpr:shift m n _]] = [[:user_syntax__typexpr:_]])) " -" ([[:user_syntax__typexpr:shift m n (typexpr1->typexpr2)]] = - [[:user_syntax__typexpr:(shift m n typexpr1)->(shift m n typexpr2)]]) " -" (shiftt m n (TE_tuple typexprs) = TE_tuple (map (shiftt m n) typexprs)) " -" (shiftt m n (TE_constr typexprs tc) = TE_constr (map (shiftt m n) typexprs) tc)" -FIXMEdoesn't like recursive call in last clause -*) - -consts shifttes :: "nat => nat => typexprs => typexprs" -(* -primrec -"(shifttes m n (typexprs_inj tes) == typexprs_inj (map (shiftt m n) tes))" -FIXME doesn't like rec call -*) - -consts shiftts :: "nat => nat => typescheme => typescheme" -(* -primrec -"([[shift m n forall typexpr]] = [[forall shift (m + 1) n typexpr]])" -FIXME -*) - -consts shiftEB :: "nat => nat => environment_binding => environment_binding" -primrec -"([[:user_syntax__environment_binding:shift m n TV]] = [[:user_syntax__environment_binding:TV]])" -"([[:user_syntax__environment_binding:shift m n value_name:typescheme]] = - [[:user_syntax__environment_binding:value_name : shift m n typescheme]])" -" ([[:user_syntax__environment_binding:shift m n constr_name of typeconstr]] = - [[:user_syntax__environment_binding:constr_name of typeconstr]]) " -" ([[:user_syntax__environment_binding:shift m n constr_name of forall type_params_opt, (typexprs) : typeconstr]] = - [[:user_syntax__environment_binding:constr_name of forall type_params_opt, (shift m n typexprs) : typeconstr]]) " -" ([[:user_syntax__environment_binding:shift m n field_name:forall type_params_opt, typeconstr_name -> typexpr]] = - [[:user_syntax__environment_binding:field_name:forall type_params_opt, typeconstr_name -> shift m n typexpr]]) " -" ([[:user_syntax__environment_binding:shift m n typeconstr_name:kind]] = - [[:user_syntax__environment_binding:typeconstr_name:kind]]) " -" (shiftEB m n (EB_tr tcn k field_names) = EB_tr tcn k field_names) " -" ([[:user_syntax__environment_binding:shift m n type_params_opt typeconstr_name = typexpr]] = - [[:user_syntax__environment_binding:type_params_opt typeconstr_name = shift m n typexpr]]) " -" ([[:user_syntax__environment_binding:shift m n location: typexpr]] = - [[:user_syntax__environment_binding:location: shift m n typexpr]])" - -consts num_tv :: "environment => nat" -primrec -"(num_tv [] = (0::nat)) " -"(num_tv (eb#e) = (if eb = EB_tv then 1 else 0) + num_tv e)" - -consts shiftE :: "nat => nat => environment => environment" -primrec -"(shiftE m n [] = []) " -" (shiftE m n (EB#E) = shiftEB (m + num_tv E) n EB#shiftE m n E)" - -constdefs shiftTsig :: "nat => nat => ('a * typexpr) list => ('a * typexpr) list" -"(shiftTsig m n Tsig == map (%(tv, t). (tv, shiftt m n t)) Tsig)" - -consts definitions_snoc :: "definitions => caml_definition => definitions" -primrec -"(definitions_snoc Ds_nil d = Ds_cons d Ds_nil) " -"(definitions_snoc (Ds_cons d ds) d' = Ds_cons d (definitions_snoc ds d'))" - -consts remv_tyvar_typexpr :: "typexpr => typexpr" -(* -val _ = ottDefine "remv_tyvar_typexpr" -`(remv_tyvar_typexpr (TE_var typevar) = TE_any) /\ - (remv_tyvar_typexpr (TE_idxvar idx num) = TE_idxvar idx num) /\ - (remv_tyvar_typexpr TE_any = TE_any) /\ - (remv_tyvar_typexpr (TE_arrow typexpr1 typexpr2) = - TE_arrow (remv_tyvar_typexpr typexpr1) (remv_tyvar_typexpr typexpr2)) /\ - (remv_tyvar_typexpr (TE_tuple (typexpr_list)) = - TE_tuple (MAP (\typexpr_. (remv_tyvar_typexpr typexpr_)) typexpr_list)) /\ - (remv_tyvar_typexpr (TE_constr (typexpr_list) typeconstr) = - TE_constr (MAP (\typexpr_. (remv_tyvar_typexpr typexpr_)) typexpr_list) typeconstr)`; -*) - -consts remv_tyvar_pattern :: "pattern => pattern" -(* -`(remv_tyvar_pattern (P_var value_name) = P_var value_name) /\ - (remv_tyvar_pattern P_any = P_any) /\ - (remv_tyvar_pattern (P_constant constant) = P_constant constant) /\ - (remv_tyvar_pattern (P_alias pattern value_name) = - P_alias (remv_tyvar_pattern pattern) value_name) /\ - (remv_tyvar_pattern (P_typed pattern typexpr) = - P_typed (remv_tyvar_pattern pattern) (remv_tyvar_typexpr typexpr)) /\ - (remv_tyvar_pattern (P_or pattern1 pattern2) = - P_or (remv_tyvar_pattern pattern1) (remv_tyvar_pattern pattern2)) /\ - (remv_tyvar_pattern (P_construct constr (pattern_list)) = - P_construct constr (MAP (\pattern_. (remv_tyvar_pattern pattern_)) pattern_list)) /\ - (remv_tyvar_pattern (P_construct_any constr) = P_construct_any constr) /\ - (remv_tyvar_pattern (P_tuple (pattern_list)) = - P_tuple (MAP (\pattern_. (remv_tyvar_pattern pattern_)) pattern_list)) /\ - (remv_tyvar_pattern (P_record (field_pattern_list)) = - P_record (MAP (\(field_,pattern_). (field_,(remv_tyvar_pattern pattern_))) field_pattern_list)) /\ - (remv_tyvar_pattern (P_cons pattern1 pattern2) = - P_cons (remv_tyvar_pattern pattern1) (remv_tyvar_pattern pattern2))`; -*) - -consts remv_tyvar_letrec_binding :: "letrec_binding => letrec_binding" -(* -`(remv_tyvar_letrec_binding (LRB_simple value_name pattern_matching) = - LRB_simple value_name (remv_tyvar_pattern_matching pattern_matching)) /\ - (remv_tyvar_letrec_bindings (LRBs_inj (letrec_binding_list)) = - LRBs_inj (MAP (\letrec_binding_. (remv_tyvar_letrec_binding letrec_binding_)) letrec_binding_list)) /\ - (remv_tyvar_let_binding (LB_simple pattern expr) = - LB_simple (remv_tyvar_pattern pattern) (remv_tyvar_expr expr)) /\ - (remv_tyvar_pat_exp (PE_inj pattern expr) = - PE_inj (remv_tyvar_pattern pattern) (remv_tyvar_expr expr)) /\ - (remv_tyvar_pattern_matching (PM_pm (pat_exp_list)) = - PM_pm (MAP (\pat_exp_. (remv_tyvar_pat_exp pat_exp_)) pat_exp_list)) /\ - (remv_tyvar_expr (Expr_uprim unary_prim) = Expr_uprim unary_prim) /\ - (remv_tyvar_expr (Expr_bprim binary_prim) = Expr_bprim binary_prim) /\ - (remv_tyvar_expr (Expr_ident value_name) = Expr_ident value_name) /\ - (remv_tyvar_expr (Expr_constant constant) = Expr_constant constant) /\ - (remv_tyvar_expr (Expr_typed expr typexpr) = - Expr_typed (remv_tyvar_expr expr) (remv_tyvar_typexpr typexpr)) /\ - (remv_tyvar_expr (Expr_tuple (expr_list)) = - Expr_tuple (MAP (\expr_. (remv_tyvar_expr expr_)) expr_list)) /\ - (remv_tyvar_expr (Expr_construct constr (expr_list)) = - Expr_construct constr (MAP (\expr_. (remv_tyvar_expr expr_)) expr_list)) /\ - (remv_tyvar_expr (Expr_cons expr1 expr2) = - Expr_cons (remv_tyvar_expr expr1) (remv_tyvar_expr expr2)) /\ - (remv_tyvar_expr (Expr_record (field_expr_list)) = - Expr_record (MAP (\(field_,expr_). (field_,(remv_tyvar_expr expr_))) field_expr_list)) /\ - (remv_tyvar_expr (Expr_override expr (field_expr_list)) = - Expr_override (remv_tyvar_expr expr) - (MAP (\(field_,expr_). (field_,(remv_tyvar_expr expr_))) field_expr_list)) /\ - (remv_tyvar_expr (Expr_apply expr1 expr2) = - Expr_apply (remv_tyvar_expr expr1) (remv_tyvar_expr expr2)) /\ - (remv_tyvar_expr (Expr_and expr1 expr2) = - Expr_and (remv_tyvar_expr expr1) (remv_tyvar_expr expr2)) /\ - (remv_tyvar_expr (Expr_or expr1 expr2) = - Expr_or (remv_tyvar_expr expr1) (remv_tyvar_expr expr2)) /\ - (remv_tyvar_expr (Expr_field expr field) = Expr_field (remv_tyvar_expr expr) field) /\ - (remv_tyvar_expr (Expr_ifthenelse expr0 expr1 expr2) = - Expr_ifthenelse (remv_tyvar_expr expr0) (remv_tyvar_expr expr1) (remv_tyvar_expr expr2)) /\ - (remv_tyvar_expr (Expr_while expr1 expr2) = - Expr_while (remv_tyvar_expr expr1) (remv_tyvar_expr expr2)) /\ - (remv_tyvar_expr (Expr_for x expr1 for_dirn expr2 expr3) = - Expr_for x (remv_tyvar_expr expr1) for_dirn (remv_tyvar_expr expr2) (remv_tyvar_expr expr3))/\ - (remv_tyvar_expr (Expr_sequence expr1 expr2) = - Expr_sequence (remv_tyvar_expr expr1) (remv_tyvar_expr expr2)) /\ - (remv_tyvar_expr (Expr_match expr pattern_matching) = - Expr_match (remv_tyvar_expr expr) (remv_tyvar_pattern_matching pattern_matching)) /\ - (remv_tyvar_expr (Expr_function pattern_matching) = - Expr_function (remv_tyvar_pattern_matching pattern_matching)) /\ - (remv_tyvar_expr (Expr_try expr pattern_matching) = - Expr_try (remv_tyvar_expr expr) (remv_tyvar_pattern_matching pattern_matching)) /\ - (remv_tyvar_expr (Expr_let let_binding expr) = - Expr_let (remv_tyvar_let_binding let_binding) (remv_tyvar_expr expr)) /\ - (remv_tyvar_expr (Expr_letrec letrec_bindings expr) = - Expr_letrec (remv_tyvar_letrec_bindings letrec_bindings) (remv_tyvar_expr expr)) /\ - (remv_tyvar_expr (Expr_assert expr) = Expr_assert (remv_tyvar_expr expr)) /\ - (remv_tyvar_expr (Expr_location location) = Expr_location location)`; -*) - -}} - -{{ coq -(*** Coercions and syntactic sugar ***) - -(* Names *) -Coercion VP_name : value_name >-> value_path. -Coercion C_name : constr_name >-> constr. -Coercion TC_name : typeconstr_name >-> typeconstr. - -(* Constants *) -Coercion CONST_int : intn >-> constant. -Definition CONST_int' : Z -> constant := CONST_int. -Coercion CONST_int' : Z >-> constant. -Definition CONST_bool (b:bool) := if b then CONST_true else CONST_false. -Coercion CONST_bool : bool >-> constant. -Definition CONST_unit' (_:unit) := CONST_unit. -Coercion CONST_unit' : unit >-> constant. - -(* Types *) -Definition TPS_proj (tpo:type_params_opt) := let (tvs) := tpo in tvs. -Coercion TPS_proj : type_params_opt >-> list. -Coercion TE_var : typevar >-> typexpr. -Definition TE_constr0 := TE_constr nil. -Coercion TE_constr0 : typeconstr >-> typexpr. -Definition typexprs_proj (tes:typexprs) := let (ts) := tes in ts. -Coercion typexprs_proj : typexprs >-> list. - -(* Patterns *) -Coercion P_var : value_name >-> pattern. -Coercion P_constant : constant >-> pattern. - -(* Expressions *) -Coercion Expr_uprim : unary_prim >-> expr. -Coercion Expr_bprim : binary_prim >-> expr. -Coercion Expr_ident : value_name >-> expr. -Coercion Expr_constant : constant >-> expr. -Definition subst_x x e := substs_x_xs (cons (x, e) nil). - -(* Definitions *) -Fixpoint Ds_proj (ds:definitions) : list definition := - match ds with - | Ds_nil => nil - | Ds_cons d dt => cons d (Ds_proj dt) - end. -Coercion Ds_proj : definitions >-> list. -Fixpoint Ds_list (ds:list definition) : definitions := - match ds with - | nil => Ds_nil - | cons d dt => Ds_cons d (Ds_list dt) - end. - -(* Semantic objects *) -Definition substs_x_proj (z:substs_x) := let (y) := z in y. -Coercion substs_x_proj : substs_x >-> list. -Coercion TE_te : typexpr >-> type_equation. -Coercion TI_eq : type_equation >-> type_information. -Coercion TI_def : type_representation >-> type_information. - - - -(*** Strings ***) - -Section string_literals. -Import String. -Open Scope string_scope. -Definition string_equal_functional_value := "equal: functional value". -End string_literals. - - - - -(*** Auxiliary functions ***) - - -Definition fold_pats pats e0 := - fold_right (fun p e => Expr_function (PM_pm (PE_inj p e :: nil))) e0 pats. - -Definition definitions_snoc (ds:definitions) (d:definition) : definitions := - Ds_list (ds ++ d :: nil). - -Fixpoint remv_tyvar_typexpr (t:typexpr) : typexpr := - match t with - | TE_var tv => TE_any - | TE_idxvar k p => TE_idxvar k p - | TE_any => TE_any - | TE_arrow t1 t2 => TE_arrow (remv_tyvar_typexpr t1) (remv_tyvar_typexpr t2) - | TE_tuple ts => TE_tuple (map remv_tyvar_typexpr ts) - | TE_constr ts tc => TE_constr (map remv_tyvar_typexpr ts) tc - end. -Fixpoint remv_tyvar_pattern (p:pattern) : pattern := - match p with - | P_var vn => P_var vn - | P_any => P_any - | P_constant c => P_constant c - | P_alias p vn => P_alias (remv_tyvar_pattern p) vn - | P_typed p t => P_typed (remv_tyvar_pattern p) (remv_tyvar_typexpr t) - | P_or p1 p2 => P_or (remv_tyvar_pattern p1) (remv_tyvar_pattern p2) - | P_construct cr ps => P_construct cr (map remv_tyvar_pattern ps) - | P_construct_any cr => P_construct_any cr - | P_tuple ps => P_tuple (map remv_tyvar_pattern ps) - | P_record fps => P_record (map (fun tmp => match tmp with (fi,pi) => (fi, remv_tyvar_pattern pi) end) fps) - | P_cons p1 p2 => P_cons (remv_tyvar_pattern p1) (remv_tyvar_pattern p2) - end. -Fixpoint remv_tyvar_letrec_binding (lrb:letrec_binding) : letrec_binding := - match lrb with - | LRB_simple vn pm => LRB_simple vn (remv_tyvar_pattern_matching pm) - end -with remv_tyvar_letrec_bindings (lrbs:letrec_bindings) : letrec_bindings := - match lrbs with - | LRBs_inj lrbs => LRBs_inj (map remv_tyvar_letrec_binding lrbs) - end -with remv_tyvar_let_binding (lb:let_binding) : let_binding := - match lb with - | LB_simple p e => LB_simple (remv_tyvar_pattern p) (remv_tyvar_expr e) - end -with remv_tyvar_pat_exp (pe:pat_exp) : pat_exp := - match pe with - | PE_inj p e => PE_inj (remv_tyvar_pattern p) (remv_tyvar_expr e) - end -with remv_tyvar_pattern_matching (pm:pattern_matching) : pattern_matching := - match pm with - | PM_pm pes => PM_pm (map remv_tyvar_pat_exp pes) - end -with remv_tyvar_expr (e:expr) : expr := - match e with - | Expr_uprim uprim => Expr_uprim uprim - | Expr_bprim bprim => Expr_bprim bprim - | Expr_ident vn => Expr_ident vn - | Expr_constant c => Expr_constant c - | Expr_typed e t => Expr_typed (remv_tyvar_expr e) (remv_tyvar_typexpr t) - | Expr_tuple es => Expr_tuple (map remv_tyvar_expr es) - | Expr_construct cr es => Expr_construct cr (map remv_tyvar_expr es) - | Expr_cons e1 e2 => Expr_cons (remv_tyvar_expr e1) (remv_tyvar_expr e2) - | Expr_record fes => Expr_record (map (fun tmp => match tmp with (fi, ei) => (fi, remv_tyvar_expr ei) end) fes) - | Expr_override e fes => Expr_override (remv_tyvar_expr e) (map (fun tmp => match tmp with (fi, ei) => (fi, remv_tyvar_expr ei) end) fes) - | Expr_apply e1 e2 => Expr_apply (remv_tyvar_expr e1) (remv_tyvar_expr e2) - | Expr_and e1 e2 => Expr_and (remv_tyvar_expr e1) (remv_tyvar_expr e2) - | Expr_or e1 e2 => Expr_or (remv_tyvar_expr e1) (remv_tyvar_expr e2) - | Expr_field e f => Expr_field (remv_tyvar_expr e) f - | Expr_ifthenelse e0 e1 e2 => Expr_ifthenelse (remv_tyvar_expr e0) (remv_tyvar_expr e1) (remv_tyvar_expr e2) - | Expr_while e1 e2 => Expr_while (remv_tyvar_expr e1) (remv_tyvar_expr e2) - | Expr_for x e1 fdn e2 e3 => Expr_for x (remv_tyvar_expr e1) fdn (remv_tyvar_expr e2) (remv_tyvar_expr e3) - | Expr_sequence e1 e2 => Expr_sequence (remv_tyvar_expr e1) (remv_tyvar_expr e2) - | Expr_match e pm => Expr_match (remv_tyvar_expr e) (remv_tyvar_pattern_matching pm) - | Expr_function pm => Expr_function (remv_tyvar_pattern_matching pm) - | Expr_try e pm => Expr_try (remv_tyvar_expr e) (remv_tyvar_pattern_matching pm) - | Expr_let lb e => Expr_let (remv_tyvar_let_binding lb) (remv_tyvar_expr e) - | Expr_letrec lrbs e => Expr_letrec (remv_tyvar_letrec_bindings lrbs) (remv_tyvar_expr e) - | Expr_assert e => Expr_assert (remv_tyvar_expr e) - | Expr_location loc => Expr_location loc - end. - - - -(*** De Bruijn indices ***) - -Fixpoint shiftt (m n:nat) (te:typexpr) {struct te} : typexpr := - match te with - | TE_var tv => TE_var tv - | TE_idxvar k p => TE_idxvar (if le_lt_dec m k then n + k else k) p - | TE_any => TE_any - | TE_arrow te1 te2 => TE_arrow (shiftt m n te1) (shiftt m n te2) - | TE_tuple tes => TE_tuple (map (shiftt m n) tes) - | TE_constr tes tc => TE_constr (map (shiftt m n) tes) tc - end. -Definition shifttes m n (tes:typexprs) := - typexprs_inj (map (shiftt m n) tes). -Definition shiftts m n (ts:typescheme) := - match ts with - | TS_forall te => TS_forall (shiftt (S m) n te) - end. -Definition shiftEB m n (EB:environment_binding) := - match EB with - | EB_tv => EB_tv - | EB_vn vn ts => EB_vn vn (shiftts m n ts) - | EB_cc cn tc => EB_cc cn tc - | EB_pc cn tpo tes tc => EB_pc cn tpo (shifttes m n tes) tc - | EB_fn fn tpo tcn te => EB_fn fn tpo tcn (shiftt m n te) - | EB_td tcn K => EB_td tcn K - | EB_tr tcn K fns => EB_tr tcn K fns - | EB_ta tpo tcn te => EB_ta tpo tcn (shiftt m n te) - | EB_l loc te => EB_l loc (shiftt m n te) - end. -Fixpoint count_E_typevars E := - match E with - | nil => 0 - | EB_tv :: E' => S (count_E_typevars E') - | _ :: E' => count_E_typevars E' - end. -Fixpoint shiftE (m n:nat) (E:environment) {struct E} : environment := - match E with - | nil => nil - | EB :: E' => shiftEB (count_E_typevars E + m) n EB :: shiftE m n E' - end. -Definition shiftTsig m n (sigma:Tsigma) := - map (fun tmp => match tmp with (tv, t) => (tv, shiftt m n t) end) sigma. - -}} diff --git a/vendors/ott/examples/ocaml_light/typing.ott b/vendors/ott/examples/ocaml_light/typing.ott deleted file mode 100644 index d0e0362f8636..000000000000 --- a/vendors/ott/examples/ocaml_light/typing.ott +++ /dev/null @@ -1,1547 +0,0 @@ -grammar -embed -{{ tex -\section{Type system} -\label{sec.typing} - -The Objective Caml manual does not describe the type system. Therefore our -semantics is driven by an attempt to mirror what the Objective Caml -implementation does, drawing inspiration from various presentations of type -systems for ML. Some notable aspects of the formalization follow: -\begin{itemize} -\item -We give a declarative presentation of polymorphic typing, i.e., without -unification. -\item -Polymorphic $\ottkw{let}$ introduces type variables which are encoded with de -Bruijn indices. -\item -Several rules have premises that state there are at least 1 (or 2) elements of -a list, despite there being 3 or 4 dots. This is because Ott does not use dot -imposed length restrictions in the theorem prover models. -\item -Occasionally, we state that some list X1 .. Xm has length m. Ott does not -impose this restriction in the theorem prover models either. -\end{itemize} - -}} - -defns -JdomEB :: J ::= - -defn -dom ( EB ) gives name :: :: domEB :: domEB_ {{ com Environment binding domain }} {{ lemwcf witness type JdomEBwitness; -check JdomEBcheck; - }} by - -{{ com -Gets the name of an environment entry. -}} - -------------------------------------------------------- :: type_param -dom(TV) gives TV - -------------------------------------------------------- :: value_name -dom(value_name:typescheme) gives value_name - -%d----------------------------------------------------- :: const_constr_name -%d dom(constr_name of typeconstr) gives constr_name - -%d----------------------------------------------------- :: constr_name -%d dom(constr_name of forall type_params_opt, (t1, ..., tn) : typeconstr) gives constr_name - -%d----------------------------------------------------- :: opaque_typeconstr_name -%d dom(typeconstr_name:kind) gives typeconstr_name - -%d----------------------------------------------------- :: trans_typeconstr_name -%d dom(type_params_opt typeconstr_name = t) gives typeconstr_name - -%d----------------------------------------------------- :: record_typeconstr_name -%d dom(typeconstr_name : kind {field_name1; ...; field_namen}) gives typeconstr_name -%d -%d----------------------------------------------------- :: record_field_name -%d dom(field_name:forall type_params_opt, typeconstr_name -> typexpr) gives field_name - -------------------------------------------------------- :: location -dom(location:t) gives location - -defns -JdomE :: J ::= - -defn -dom ( E ) gives names :: :: domE :: domE_ {{ com Environment domain }} {{ lemwcf witness type JdomEwitness; -check JdomE_check; -}} by - -{{ com -Gets all of the names in an environment. -}} - -------------------------------------------------------- :: empty -dom(empty) gives - -dom(E) gives name1..namen -:JdomEB:dom(EB) gives name -------------------------------------------------------- :: cons -dom(E,EB) gives name name1..namen - -defns -Jlookup :: Jlookup_ ::= - -defn -E |- name gives EB :: :: EB :: EB_ {{ com Environment lookup }} {{ lemwcf witness type JlookupEBwitness; -check Jlookup_EB_check; -}} by - -{{ com -Returns the rightmost binding that matches the given name. -}} - -:JdomEB:dom(EB) gives name' -name noteq name' -name' noteq TV -E |- name gives EB' -------------------------------------------------------- :: rec1 -E,EB |- name gives EB' - -name noteq TV -E |- name gives EB' -------------------------------------------------------- :: rec2 -E,TV |- name gives shift 0 1 EB' - -:JdomEB:dom(EB) gives name -------------------------------------------------------- :: head -E,EB |- name gives EB - -defns -Jidx :: Jidx_ ::= - -defn -E |- idx bound :: :: bound :: bound_ {{ com Well-formed index }} {{ lemwcf witness type Jidx_boundwitness; -check Jidx_bound_check; -}} by - -{{ com -Determines whether an index is bound by an environment. -}} - -E |- idx bound -:JdomEB:dom(EB) gives name -name noteq TV -------------------------------------------------------- :: skip1 -E, EB |- idx bound - -E |- idx bound -------------------------------------------------------- :: skip2 -E, TV |- idx + 1 bound - -------------------------------------------------------- :: found -E, TV |- 0 bound - - -defns -JTtps_kind :: JT ::= - -defn -|- type_params_opt : kind :: :: tps_kind :: tps_kind_ {{ com Type parameter kinding }} {{ lemwcf witness type JTtps_kindwitness; -check JTtps_kind_check; -}} by - -{{ com -Counts the number of parameters and ensures that none is repeated. -}} - -tp1 ... tpn distinct -length (tp1)...(tpn) = n -------------------------------------------------------- :: kind -|- (tp1, ..., tpn) : n -> Type - - -defns -JTEok :: JT ::= - -defn -E |- ok :: :: Eok :: Eok_ {{ com Environment validity }} {{ lemwcf witness type JTEok_witness; -check JTEok_check; -}}by - -{{ com -Asserts that the various components of the environment are well-formed -(including that there are no free type references), and regulates name -shadowing. Environments contain identifiers related to type definitions and -type variables as well as expression-level variables (i.e., value names), so -they are dependent from left to right. Shadowing of type, constructor, field -and label names is forbidden, but shadowing of value names is allowed. -}} - -------------------------------------------------------- :: empty -empty |- ok - -E |- ok -------------------------------------------------------- :: typevar -E , TV |- ok - -E |- forall t : Type -------------------------------------------------------- :: value_name -E, (value_name : forall t) |- ok - -%d E |- ok -%d E |- typeconstr_name gives typeconstr_name : kind -%d dom(E) gives names -%d constr_name notin names -%d----------------------------------------------------- :: constr_name_c -%d E,(constr_name of typeconstr_name) |- ok - -%d E |- ok -%d dom(E) gives names -%d constr_name notin names -%d----------------------------------------------------- :: exn_constr_name_c -%d E,(constr_name of exn) |- ok - -%d type_params_opt = (tv1, ..., tvm) -%d E |- forall type_params_opt, t1 : Type ... E |- forall type_params_opt, tn : Type -%d E |- typeconstr_name gives typeconstr_name : m -> Type -%d dom(E) gives names -%d constr_name notin names -%d length (t1) ... (tn) >= 1 -%d :formula_length_list_type_param_eq:length (tv1) ... (tvm) = m -%d----------------------------------------------------- :: constr_name_p -%d E,(constr_name of forall (tv1, ..., tvm), (t1, ..., tn) : typeconstr_name) |- ok - -%d E |- t1 : Type ... E |- tn : Type -%d dom(E) gives names -%d constr_name notin names -%d length (t1) ... (tn) >= 1 -%d----------------------------------------------------- :: exn_constr_name_p -%d E,(constr_name of forall , (t1, ..., tn) : exn) |- ok - - -%d E |- forall (tv1, ..., tvm), t : Type -%d dom(E) gives names -%d field_name notin names -%d E |- typeconstr_name gives typeconstr_name:m->Type {field_name1; ...; field_namen} -%d :formula_length_list_type_param_eq:length (tv1) ... (tvm) = m -%d field_name in field_name1...field_namen -%d ---------------------------------------------------- :: record_destr -%d E, (field_name:forall (tv1, ..., tvm), typeconstr_name -> t) |- ok - -%d E |- ok -%d dom(E) gives names -%d typeconstr_name notin names -%d----------------------------------------------------- :: typeconstr_name -%d E,(typeconstr_name : kind) |- ok - -%d dom(E) gives names -%d typeconstr_name notin names -%d E |- forall (tv1, ..., tvm), t : Type -%d----------------------------------------------------- :: typeconstr_eqn -%d E, ((tv1, ..., tvm) typeconstr_name = t) |- ok - -%d E |- ok -%d dom(E) gives names -%d typeconstr_name notin names -%d field_name1...field_namen distinct -%d ---------------------------------------------------- :: typeconstr_record -%d E, (typeconstr_name:kind {field_name1; ...; field_namen}) |- ok - -E |- t : Type -dom(E) gives names -location notin names -------------------------------------------------------- :: location -E,(location : t) |- ok - - -defn -E |- typeconstr : kind :: :: typeconstr :: typeconstr_ {{ com Type constructor kinding }} {{ lemwcf witness type JTtypeconstrwitness; -check JTtypeconstr_check; - }} by - -{{ com -Ensures that the type constructor is either defined in the environment or -built-in. The result kind indicates how many parameters the type constructor -expects. -}} - -%d E |- ok -%d E |- typeconstr_name gives typeconstr_name:kind -%d----------------------------------------------------- :: abstract -%d E |- typeconstr_name:kind - -%d E |- ok -%d E |- typeconstr_name gives type_params_opt typeconstr_name=t -%d |- type_params_opt : kind -%d----------------------------------------------------- :: concrete -%d E |- typeconstr_name:kind - -%d E|- ok -%d E |- typeconstr_name gives typeconstr_name:kind{field_name1; ...; field_namen} -%d----------------------------------------------------- :: record -%d E |- typeconstr_name:kind - -E |- ok -------------------------------------------------------- :: int -E |- int : Type - -E |- ok -------------------------------------------------------- :: char -E |- char : Type - -E |- ok -------------------------------------------------------- :: string -E |- string : Type - -E |- ok -------------------------------------------------------- :: float -E |- float : Type - -E |- ok -------------------------------------------------------- :: bool -E |- bool : Type - -E |- ok -------------------------------------------------------- :: unit -E |- unit : Type - -E |- ok -------------------------------------------------------- :: exn -E |- exn : Type - -E |- ok -------------------------------------------------------- :: list -E |- list : 1 -> Type - -E |- ok -------------------------------------------------------- :: option -E |- option : 1 -> Type - -E |- ok -------------------------------------------------------- :: ref -E |- ref : 1 -> Type - -defn -E |- typescheme : kind :: :: ts :: ts_ {{ com de Bruijn type scheme well-formedness }} {{ lemwcf witness type JTtswitness; -check JTts_check; -}} by - -{{ com -Ensures that the type is well-formed in an extended environment. -}} - -E,TV |- t : Type -------------------------------------------------------- :: forall -E |- forall t : Type - -defn -E |- forall type_params_opt , t : kind :: :: tsnamed :: tsnamed_ {{ com Named type scheme well-formedness }} {{ lemwcf witness type JTtsnamedwitness; -check JTtsnamed_check; -}}by - -{{ com -Ensures that the named type paramaters are distinct, and that the type is -well-formed. Instead of extending the environment, this simply substitutes a -collection of well-formed types, here $\ottkw{unit}$. This works because the -type well-formedness judgment below only depends on well-formedness of -sub-expressions, and not on the exact form of sub-expressions. -}} - -E |- <>t : Type -tv1...tvn distinct -------------------------------------------------------- :: forall -E |- forall (tv1, ..., tvn), t : Type - -defn -E |- typexpr : kind :: :: t :: t_ {{ com Type expression well-formedness }} {{ lemwcf witness type t_witness; - check t_check; -}} by - -{{ com -Ensures that all of the indices and constructors that appear in a type are -bound in the environment. -}} - -E |- ok -E |- idx bound -------------------------------------------------------- :: var -E |- : Type - -E |- t : Type -E |- t' : Type -------------------------------------------------------- :: arrow -E |- t->t' : Type - -E |- t1 : Type .... E |- tn : Type -length (t1)....(tn) >= 2 -------------------------------------------------------- :: tuple -E |- t1*....*tn : Type - -:JTtypeconstr: E |- typeconstr : n -> Type -E |- t1 : Type ... E |- tn : Type -length (t1)...(tn) = n -------------------------------------------------------- :: constr -E |- (t1,...,tn) typeconstr : Type - - - -defns -JTeq :: JT ::= - -defn -E |- typexpr == typexpr' :: :: eq :: eq_ {{ com Type equivalence }} {{ lemwcf witness type JTeq_witness; - check JTeq_check; -}} by - -{{ com -Checks whether two types are related (potentially indirectly) by the type -abbreviations in the environment. The system does not allow recursive types -that do not pass through an opaque (generative) type constructor, i.e., a -variant or record. Therefore all type expressions have a canonical form -obtained by expanding all type abbreviations. -}} - -%d E |- t : Type -%d----------------------------------------------------- :: refl -%d E |- t == t - -%d E |- t' == t -%d----------------------------------------------------- :: sym -%d E |- t == t' - -%d E |- t == t' -%d E |- t' == t'' -%d----------------------------------------------------- :: trans -%d E |- t == t'' - -%d E |- ok -%d E |- typeconstr_name gives (typevar1, ..., typevarn) typeconstr_name=t -%d E |- t1 : Type ... E |- tn : Type -%d----------------------------------------------------- :: expand -%d E |- (t1, ..., tn) typeconstr_name == <>t - -%d E |- t1 == t1' -%d E |- t2 == t2' -%d----------------------------------------------------- :: arrow -%d E |- t1 -> t2 == t1' -> t2' - -%d E |- t1 == t1' .... E |- tn == tn' -%d length (t1)....(tn) >= 2 -%d----------------------------------------------------- :: tuple -%d E |- t1 * .... * tn == t1' * .... * tn' - -%d :JTtypeconstr: E |- typeconstr : n -> Type -%d E |- t1 == t1' ... E |- tn == tn' -%d length (t1)...(tn) = n -%d----------------------------------------------------- :: constr -%d E |- (t1, ..., tn) typeconstr == (t1', ..., tn') typeconstr - -defns -JTidxsub :: JT ::= - -defn -'<<' typexpr1 , .. , typexprn '>>' typexpr' gives typexpr'' :: :: idxsub :: inxsub_ {{ com de Bruin type substitution }} {{ lemwcf witness type JTidxsub_witness; -check JTidxsub_check; -}} by - -{{ com -Replaces index 0 position $n$ with the $n$th type in the list, and reduces all -other indices by 1. -}} - -------------------------------------------------------- :: alpha -<> typevar gives typevar - - -length (t1)..(tm) = num -------------------------------------------------------- :: idx0 -<> <0, num> gives t' - -length (t1)..(tn) <= num -------------------------------------------------------- :: idx1 -<> <0, num> gives unit - -------------------------------------------------------- :: idx2 -<> gives - -------------------------------------------------------- :: any -<> _ gives _ - -<> t1' gives t1'' -<> t2' gives t2'' -------------------------------------------------------- :: arrow -<> (t1' -> t2') gives t1'' -> t2'' - -<> t1' gives t1'' .... <> tm' gives tm'' -------------------------------------------------------- :: tuple -<> (t1' * .... * tm') gives (t1'' * .... * tm'') - -<> t1' gives t1'' ... <> tm' gives tm'' -------------------------------------------------------- :: tc -<> (t1', ..., tm') typeconstr gives (t1'', ..., tm'') typeconstr - - -defns -JTinst :: JT ::= - -defn -E |- typexpr <= typescheme :: :: inst :: inst_ {{ com de Bruijn type scheme instantiation }} {{ lemwcf witness type JTinst_witness; -check JTinst_check; -}} by - -{{ com -Replaces all of the bound variables of a type scheme. -}} - -E |- forall t' : Type -E |- t1 : Type .. E |- tn : Type -<>t' gives t'' -------------------------------------------------------- :: idx -E |- t'' <= forall t' - -defns -JTinst_named :: JT ::= - -defn -E |- typexpr <= forall type_params_opt , typexpr' :: :: inst_named :: inst_named_ {{ com Named type scheme instantiation }} {{ lemwcf witness type JTinst_named_witness; -check JTinst_named_check; -}} by - -{{ com -Replaces all of the bound variables of a named type scheme. -}} - -E |- forall (typevar1, ..., typevarn), t : Type -E |- t1 : Type ... E |- tn : Type -------------------------------------------------------- :: named -E |- <>t <= forall (typevar1, ..., typevarn), t - -defns -JTinst_any :: JT ::= - -defn -E |- typexpr <= typexpr' :: :: inst_any :: inst_any_ {{ com Wildcard type instantiation }} {{ lemwcf witness type JTinst_any_witness; -check JTinst_any_check; -}} by - -{{ com -Replaces $\ottkw{\_}$ type variables with arbitrary types. -}} - -E |- : Type -------------------------------------------------------- :: tyvar -E |- <= - -E |- t : Type -------------------------------------------------------- :: any -E |- t <= _ - -E |- t1 <= t1' -E |- t2 <= t2' -------------------------------------------------------- :: arrow -E |- t1 -> t2 <= t1' -> t2' - -E |- t1 <= t1' .... E |- tn <= tn' -length (t1)....(tn) >= 2 -------------------------------------------------------- :: tuple -E |- t1 * .... * tn <= t1' * .... * tn' - -E |- t1 <= t1' ... E |- tn <= tn' -:JTtypeconstr: E |- typeconstr : n -> Type -length (t1)...(tn) = n -------------------------------------------------------- :: ctor -E |- (t1, ..., tn) typeconstr <= (t1', ..., tn') typeconstr - -defns -JTval :: JT ::= - -defn -E |- value_name : typexpr :: :: value_name :: value_name_ {{ com Variable typing }} {{ lemwcf witness type JTval_witness; -check JTval_check; -}} by - -{{ com -Determines if a variable can have a specified type. -}} - -E |- value_name gives value_name:ts -E |- t <= ts -------------------------------------------------------- :: value_name -E |- value_name:t - ->> -%d<< - -defns -JTfield :: JT ::= -defn -E |- field_name : typexpr -> typexpr' :: :: field :: field_ {{ com Field name typing }} {{ lemwcf witness type JTfield_witness; -check JTfield_check; -}} by - -{{ com -Determines the type constructor associated with a given field name. Since -field names are used to destructure record data, the type is a function type -from a record to the type of the corresponding position. -}} - -E |- field_name gives field_name:forall (tv1, ..., tvm), typeconstr_name -> t -E |- (t1', ..., tm') typeconstr_name -> t'' <= forall (tv1, ..., tvm), (tv1, ..., tvm) typeconstr_name -> t -------------------------------------------------------- :: name -E |- field_name : (t1', ..., tm') typeconstr_name -> t'' - -%d>> -<< - -defns -JTconstr_p :: JT ::= - -defn -E |- constr : typexpr1 ... typexprn -> typexpr' :: :: constr_p :: constr_p_ {{ com Non-constant constructor typing }} {{ lemwcf witness type JTconstr_p_witness; -check JTconstr_p_check; -}} by - -{{ com -Determines the type constructor associated with a given value constructor. -Non-constant constructors are attributed types for each argument as -well as a return type. -}} - -%d E |- constr_name gives constr_name of forall (tv1, ..., tvm), (t1,....,tn):typeconstr -%d E |- (t1' * .... * tn') -> (t1'', ..., tm'') typeconstr <= forall (tv1, ..., tvm), (t1 * .... * tn) -> (tv1, ..., tvm) typeconstr -%d----------------------------------------------------- :: name -%d E |- constr_name : t1' .... tn' -> (t1'', ..., tm'') typeconstr - -E |- ok -------------------------------------------------------- :: invarg -E |- Invalid_argument : string -> exn - -E |- t : Type -------------------------------------------------------- :: some -E |- Some : t -> (t option) - - - -defns -JTconstr_c :: JT ::= - -defn -E |- constr : typexpr :: :: constr_c :: constr_c_ {{ com Constant constructor typing }} {{ lemwcf witness type JTconstr_c_witness; -check JTconstr_c_check; -}} by - -{{ com -Constant constructors are typed like non-constant constructors without -arguments. -}} - -%d E |- ok -%d E |- constr_name gives constr_name of typeconstr_name -%d E |- typeconstr_name gives typeconstr_name : n -> Type -%d E |- t1 : Type ... E |- tn : Type -%d length (t1) ... (tn) = n -%d----------------------------------------------------- :: constr -%d E |- constr_name : (t1, ..., tn) typeconstr_name - -%d E |- ok -%d E |- constr_name gives constr_name of exn -%d----------------------------------------------------- :: exn_constr -%d E |- constr_name : exn - -E |- ok -------------------------------------------------------- :: notfound -E |- Not_found : exn - -E |- ok -------------------------------------------------------- :: assert_fail -E |- Assert_failure : exn - -E |- ok -------------------------------------------------------- :: match_fail -E |- Match_failure : exn - -{{ com -Dropping the source location arguments for $\ottkw{Assert\_failure}$ and -$\ottkw{Match\_failure}$. -}} - -E |- ok -------------------------------------------------------- :: div_by_0 -E |- Division_by_zero : exn - -E |- t : Type -------------------------------------------------------- :: none -E |- None : t option - - - - -defns -JTconst :: JT ::= - -defn -E |- constant : typexpr :: :: const :: const_ {{ com Constant typing }} {{ lemwcf witness type JTconst_witness; -check JTconst_check; -}} by - -{{ com -Determines the type of a constant. -}} - -E |- ok -------------------------------------------------------- :: int -E |- integer_literal : int - -E |- ok -------------------------------------------------------- :: float -E |- float_literal : float - -E |- ok -------------------------------------------------------- :: char -E |- char_literal : char - -E |- ok -------------------------------------------------------- :: string -E |- string_literal : string - -:JTconstr_c: E |- constr : t -------------------------------------------------------- :: constr -E |- constr : t - -E |- ok -------------------------------------------------------- :: false -E |- false : bool - -E |- ok -------------------------------------------------------- :: true -E |- true : bool - -E |- ok -------------------------------------------------------- :: unit -E |- () : unit - -E |- t : Type -------------------------------------------------------- :: nil -E |- [] : t list - -defns -JTpat :: JT ::= - -defn -Tsigma & E |- pattern : typexpr gives E' :: :: pat :: pat_ {{ com Pattern typing and binding collection }} {{ lemwcf witness type JTpat_witness; -check JTpat_check; -}} by - -{{ com -Determines if a pattern matches a value of a certain type, and calculates the -types of the variables it binds. A pattern must bind any given variable at -most once, except that the two alternatives of an or-pattern must bind the same -set of variables. $[[Tsigma]]$ gives the types that should replace type -variables in explicitly type-annotated patterns. -}} - -E |- t : Type -------------------------------------------------------- :: var -Tsigma & E |- x : t gives empty,x:t - -E |- t : Type -------------------------------------------------------- :: any -Tsigma & E |- _ : t gives empty - -:JTconst: E |- constant : t -------------------------------------------------------- :: constant -Tsigma & E |- constant : t gives empty - -Tsigma & E |- pattern : t gives E' -dom(E',x:t) gives name1..namen -name1..namen distinct -------------------------------------------------------- :: alias -Tsigma & E |- pattern as x : t gives E',x:t - -Tsigma & E |- pattern : t gives E' -E |- t' <= Tsigma src_t -E |- t == t' -------------------------------------------------------- :: typed -Tsigma & E |- ( pattern : src_t ) : t gives E' - - -Tsigma & E |- pattern : t gives E' -Tsigma & E |- pattern' : t gives E'' -E' PERMUTES E'' -------------------------------------------------------- :: or -Tsigma & E |- pattern | pattern' : t gives E' - -:JTconstr_p:E |- constr : t1 ... tn -> t -Tsigma & E |- pattern1 : t1 gives E1 ... Tsigma & E |- patternn : tn gives En -dom(E1@...@En) gives name1..namem -name1..namem distinct -------------------------------------------------------- :: construct -Tsigma & E |- constr (pattern1,...,patternn) : t gives E1@...@En - -:JTconstr_p:E |- constr : t1...tn->t -------------------------------------------------------- :: construct_any -Tsigma & E |- constr _ : t gives empty - -Tsigma & E |- pattern1:t1 gives E1 .... Tsigma & E |- patternn:tn gives En -length (pattern1)....(patternn) >= 2 -dom(E1@....@En) gives name1..namem -name1..namem distinct -------------------------------------------------------- :: tuple -Tsigma & E |- pattern1,....,patternn : t1*....*tn gives E1@....@En - -%d Tsigma & E |- pattern1:t1 gives E1 ... Tsigma & E |- patternn:tn gives En -%d E |- field_name1 : t->t1 ... E |- field_namen : t->tn -%d length (pattern1)...(patternn) >= 1 -%d dom(E1@...@En) gives name1..namem -%d name1..namem distinct -%d----------------------------------------------------- :: record -%d Tsigma & E |- {field_name1=pattern1; ...; field_namen=patternn} : t gives E1@...@En - -Tsigma & E |- pattern : t gives E' -Tsigma & E |- pattern' : t list gives E'' -dom(E') gives name1..namem -dom(E'') gives name1'..namen' -name1..namem name1'..namen' distinct -------------------------------------------------------- :: cons -Tsigma & E |- pattern :: pattern' : t list gives E'@E'' - - - -defns -JTuprim :: JT ::= - -defn -E |- unary_prim : typexpr :: :: uprim :: uprim_ {{ com Unary primitive typing }} {{ lemwcf witness type JTuprim_witness; -check JTuprim_check; -}} by - -{{ com -Determines if a unary primitive has a given type. -}} - -E |- t : Type ----------------------------------------------------------------- :: raise -E |- raise : exn -> t - -E |- ok ----------------------------------------------------------------- :: not -E |- not : bool -> bool - -E |- ok ----------------------------------------------------------------- :: uminus -E |- ~- : int -> int - -E |- t : Type ----------------------------------------------------------------- :: ref -E |- ref : t->(t ref) - -E |- t : Type ----------------------------------------------------------------- :: deref -E |- ! : (t ref) -> t - - - -defns -JTbprim :: JT ::= - -defn -E |- binary_prim : typexpr :: :: bprim :: bprim_ {{ com Binary primitive typing }} {{ lemwcf witness type JTbprim_witness; -check JTbprim_check; -}} by - -{{ com -Determines if a binary primitive has a given type. -}} - -E |- t : Type ----------------------------------------------------------------- :: equal -E |- = : t -> (t -> bool) - -E |- ok ----------------------------------------------------------------- :: plus -E |- + : int->(int->int) - -E |- ok ----------------------------------------------------------------- :: minus -E |- - : int->(int->int) - -E |- ok ----------------------------------------------------------------- :: times -E |- * : int->(int->int) - -E |- ok ----------------------------------------------------------------- :: div -E |- / : int->(int->int) - -E |- t : Type ----------------------------------------------------------------- :: assign -E |- := : t ref -> (t -> unit) - - - -defns -JTe :: JT ::= - -defn -Tsigma & E |- expr : typexpr :: :: e :: e_ {{ com Expression typing }} {{ lemwcf witness type JTe_witness; -check JTe_check; -}} by - -{{ com -Detremines if an expression has a given type. Note that -$[[:user_syntax__typexpr: t]]$ is a type, not a type scheme, but it may contain -type variables (which are recorded in $[[E]]$). $[[Tsigma]]$ gives the types -that should replace type variables in explicitly type-annotated patterns. - -While the choice of a rule is mostly syntax-directed (for any given -constructor, a single rule applies, except for $\ottkw{let}$ and -$\ottkw{assert}$), polymorphism is handled in a purely declarative manner. The -choice of instantiation for a polymorphic bound variable or primitive is free, -as is the number of variables introduced by a polymorphic $\ottkw{let}$. -}} - -E |- unary_prim : t -E |- t == t' -------------------------------------------------------- :: uprim -Tsigma & E |- (%prim unary_prim) : t' - -E |- binary_prim : t -E |- t == t' -------------------------------------------------------- :: bprim -Tsigma & E |- (%prim binary_prim) : t' - -:JTvalue_name: E |- value_name : t -E |- t == t' -------------------------------------------------------- :: ident -Tsigma & E |- value_name : t' - -:JTconst: E |- constant : t -E |- t == t' -------------------------------------------------------- :: constant -Tsigma & E |- constant : t' - -Tsigma & E |- e : t -E |- t' <= Tsigma src_t -E |- t == t' -------------------------------------------------------- :: typed -Tsigma & E |- (e:src_t) : t - -Tsigma & E |- e1:t1 .... Tsigma & E |- en:tn -length (e1)....(en) >= 2 -E |- t1*....*tn == t' -------------------------------------------------------- :: tuple -Tsigma & E |- e1,....,en : t' - - -:JTconstr_p:E |- constr : t1...tn->t -Tsigma & E |- e1 : t1 ... Tsigma & E |- en : tn -E |- t == t' -------------------------------------------------------- :: construct -Tsigma & E |- :Expr_construct: constr (e1,...,en) : t' - -Tsigma & E |- e1 : t -Tsigma & E |- e2 : t list -E |- t list == t' -------------------------------------------------------- :: cons -Tsigma & E |- e1 :: e2 : t' - -%d Tsigma & E |- e1 : t1 ... Tsigma & E |- en : tn -%d E |- field_name1 : t->t1 ... E |- field_namen : t->tn -%d t = (t1', ..., tl') typeconstr_name -%d E |- typeconstr_name gives typeconstr_name:kind {field_name1'; ...; field_namem'} -%d field_name1...field_namen PERMUTES field_name1'...field_namem' -%d length (e1)...(en)>=1 -%d E |- t == t' -%d----------------------------------------------------- :: record_constr -%d Tsigma & E |- {field_name1=e1; ...; field_namen=en} : t' - -%d Tsigma & E |- expr : t -%d E |- field_name1 : t->t1 ... E |- field_namen : t->tn -%d Tsigma & E |- e1 : t1 ... Tsigma & E |- en : tn -%d field_name1...field_namen distinct -%d length (e1) ... (en) >= 1 -%d E |- t == t' -%d----------------------------------------------------- :: record_with -%d Tsigma & E |- {expr with field_name1=e1; ...; field_namen=en} : t' - -Tsigma & E |- e : t1 -> t -Tsigma & E |- e1 : t1 -------------------------------------------------------- :: apply -Tsigma & E |- e e1 : t - -%d Tsigma & E |- e : t -%d E |- field_name : t->t' -%d E |- t' == t'' -%d----------------------------------------------------- :: record_proj -%d Tsigma & E |- e.field_name : t'' - -Tsigma & E |- e1 : bool -Tsigma & E |- e2 : bool -E |- bool == t -------------------------------------------------------- :: and -Tsigma & E |- e1 && e2 : t - -Tsigma & E |- e1 : bool -Tsigma & E |- e2 : bool -E |- bool == t -------------------------------------------------------- :: or -Tsigma & E |- e1 || e2 : t - -Tsigma & E |- e1:bool -Tsigma & E |- e2:t -Tsigma & E |- e3:t -------------------------------------------------------- :: ifthenelse -Tsigma & E |- if e1 then e2 else e3 : t - -Tsigma & E |- e1 : bool -Tsigma & E |- e2 : unit -E |- unit == t -------------------------------------------------------- :: while -Tsigma & E |- while e1 do e2 done : t - -Tsigma & E |- e1 : int -Tsigma & E |- e2 : int -Tsigma & E,:VN_id:lowercase_ident:int |- e3 : unit -E |- unit == t -------------------------------------------------------- :: for -Tsigma & E |- for lowercase_ident = e1 for_dirn e2 do e3 done : t - -Tsigma & E |- e1 : unit -Tsigma & E |- e2 : t -------------------------------------------------------- :: sequence -Tsigma & E |- e1; e2 : t - -{{ com -In the above rule, $[[e1]]$ must have type $[[:user_syntax__typeconstr: unit]]$. -Ocaml lets the programmer off with a warning, unless \texttt{-warn-error~S} is -passed on the compiler command line. -}} - -Tsigma & E |- e:t -Tsigma & E |- pattern_matching : t -> t' -------------------------------------------------------- :: match -Tsigma & E |- match e with pattern_matching:t' - -Tsigma & E |- pattern_matching : t -> t' -E |- t -> t' == t'' -------------------------------------------------------- :: function -Tsigma & E |- function pattern_matching : t'' - -Tsigma & E |- e : t -Tsigma & E |- pattern_matching : exn -> t -------------------------------------------------------- :: try -Tsigma & E |- try e with pattern_matching : t - -{{ com -We give three rules for $\ottkw{let}$ expressions. The rule -\ottdruleref{JTe\_let\_mono} describes ``monomorphic let'': it does not allow the -type of $[[expr]]$ to be generalised. The rule \ottdruleref{JTe\_let\_poly} -describes ``polymorphic let'': it allows any number of type variables in the -type of $[[:user_syntax__non_expansive: nexp]]$ to be generalised (more -precisely, this generalisation applies simultaneously to the types of all the -variables bound by $[[pat]]$), at the cost of requiring -$[[:user_syntax__non_expansive: nexp]]$ to be non-expansive (which is described -syntactically through the grammar for $[[:user_syntax__non_expansive: nexp]]$). -The rule \ottdruleref{JTe\_letrec} allows mutually recursive functions to be -defined; since immediate functions are values, thus nonexpansive, there is no -need for a monomorphic $\ottkw{let\:rec}$ rule. -}} - -Tsigma & E |- pat=expr gives x1:t1, .., xn:tn -Tsigma & E@ x1:t1, .., xn:tn |- e : t -------------------------------------------------------- :: let_mono -Tsigma & E |- let pat=expr in e : t - -shift 0 1 Tsigma & E,TV |- pat=nexp gives x1:t1, .., xn:tn -Tsigma & E@ x1:forall t1, .., xn:forall tn |- e : t -------------------------------------------------------- :: let_poly -Tsigma & E |- let pat=nexp in e : t - -shift 0 1 Tsigma & E,TV |- letrec_bindings gives x1:t1, ..., xn:tn -Tsigma & E@(x1:forall t1), ..., (xn:forall tn) |- e : t -------------------------------------------------------- :: letrec -Tsigma & E |- let rec letrec_bindings in e : t - -Tsigma & E |- e : bool -E |- unit == t -------------------------------------------------------- :: assert -Tsigma & E |- assert e : t - -E |- t : Type -------------------------------------------------------- :: assertfalse -Tsigma & E |- assert false : t - -E |- ok -E |- location gives location:t -E |- t ref == t' -------------------------------------------------------- :: location -Tsigma & E |- location : t' - - - -defn -Tsigma & E |- pattern_matching : typexpr -> typexpr' :: :: pat_matching :: pat_matching_ {{ com Pattern matching/expression pair typing }} {{ lemwcf witness type JTepat_witness; -check JTepat_check; -}} by - -{{ com -Determines the function type of a sequence of pattern/expression pairs. The -function type desribes the type of the value matched by all of the patterns and -the type of the value returned by all of the expressions. $[[Tsigma]]$ gives -the types that should replace type variables in explicitly type-annotated -patterns. -}} - -Tsigma & E |- pattern1:t gives E1 ... Tsigma & E |- patternn:t gives En -Tsigma & E@E1 |- e1:t' ... Tsigma & E@En |- en:t' -length (pattern1)...(patternn) >= 1 -------------------------------------------------------- :: pm -Tsigma & E |- pattern1 -> e1 | ... | patternn -> en : t -> t' - -defn -Tsigma & E |- let_binding gives E' :: :: let_binding :: let_binding_ {{ com Let binding typing }} {{ lemwcf witness type JTeletb_witness; -check JTeletb_check; -}} by - -{{ com -Determines the types bound by a let bindings pattern. -}} - -Tsigma & E |- pattern : t gives x1:t1, .., xn:tn -Tsigma & E |- expr : t -------------------------------------------------------- :: poly -Tsigma & E |- pattern = expr gives (x1:t1), .., (xn:tn) - - -defn -Tsigma & E |- letrec_bindings gives E' :: :: letrec_binding :: letrec_binding_ {{ com Recursive let binding typing }} {{ lemwcf witness type JTelrb_witness; -check JTelrb_check; -}} by - -{{ com -Determines the types bound by a recursive let's patterns (which are always just variables). -}} - -{{ com -\ottbreakconclusionlinetrue -}} - -%%WIDTH: >~a4/landscape/normalsize -E' = E@value_name1:t1->t1',...,value_namen:tn->tn' -Tsigma & E' |- pattern_matching1 : t1->t1' ... Tsigma & E' |- pattern_matchingn : tn->tn' -value_name1 ... value_namen distinct -------------------------------------------------------- :: equal_function -Tsigma & E |- value_name1 = function pattern_matching1 and ... and value_namen = function pattern_matchingn gives value_name1:t1->t1', ..., value_namen:tn->tn' - -{{ com -\ottbreakconclusionlinefalse -}} - ->> -%d<< - -defns -JTconstr_decl :: JT ::= - -defn -type_params_opt typeconstr |- constr_decl gives EB :: :: constr_decl :: constr_decl_ {{ com Variant constructor declaration }} {{ lemwcf witness type JTconstr_decl_witness; -check JTconstr_decl_check; -}} by - -{{ com -Collects the constructors of a variant type declaration using named type -schemes for the type parameters. -}} - -------------------------------------------------------- :: nullary -(tv1, ..., tvn) typeconstr |- constr_name gives constr_name of typeconstr - -------------------------------------------------------- :: nary -(tv1, ..., tvn) typeconstr |- constr_name of t1*...*tn gives constr_name of forall (tv1, ..., tvn), (t1,...,tn) : typeconstr - - - -defns -JTfield_decl :: JT ::= - -defn -type_params_opt typeconstr_name |- field_decl gives EB :: :: field_decl :: field_decl_ {{ com Record field declaration }} {{ lemwcf witness type JTfield_decl_witness; -check JTfield_decl_check; -}} by - - -{{ com -Collects the fields of a record type using named type schemes for the type -parameters. -}} - -------------------------------------------------------- :: only -(tv1, ..., tvn) typeconstr_name |- fn:t gives fn:forall (tv1, ..., tvn), typeconstr_name -> t - - - -defns -JTtypedef :: JT ::= - -defn -|- typedef1 and .. and typedefn gives E' and E'' and E''' :: :: typedef :: typedef_ {{ com Type definitions collection }} {{ lemwcf witness type JTtypedef_witness; -check JTtypedef_check; -}} by - -{{ com -A type definition declares several sorts of names: type constructors -(some of them corresponding to freshly generated types, others to type -abbreviations), and data constructors and destructors. These names are -collected into three environments: -\begin{itemize} -\item $[[E']]$ contains generative type definitions (variant and record types); -\item $[[E'']]$ contains type abbreviations; -\item $[[E''']]$ contains constructors and destructors for generative datatypes. -\end{itemize} - -The order $[[E']]$, $[[E'']]$, $[[E''']]$ is chosen so that their -concatenation is well-formed, because no component may refer to a -subsequent one. The first component $[[E']]$, only contains -declarations of names which do not depend on anything. The second -component $[[E'']]$ contains type abbreviations topologically sorted -according to their dependency order, which is possible since we -do not allow recursive type abbreviations (in Objective Caml, -without the \texttt{-rectypes} compiler option, recursive type -abbreviations are only allowed when guarded polymorphic variants and -object types) --- recursive types must be guarded by a generative -datatype. Finally $[[E''']]$ declares constructors and destructors for -the types declared in $[[E']]$; $[[E''']]$ may refer to types declared -in $[[E']]$ or $[[E'']]$ in the types of the arguments to these -constructors and destructors. - -This judgement form does not directly assert the correctness of the -definitions: this is performed by the rule -\ottdruleref{JTtype\_definition\_list} below, which states that the -environment assembled here must be well-formed. -}} - -------------------------------------------------------- :: empty -|- gives empty and empty and empty - -|- gives E and E' and E'' -------------------------------------------------------- :: eq -|- type_params_opt typeconstr_name = t and gives E and E',(type_params_opt typeconstr_name = t) and E'' - -{{ com -\ottbreakconclusionlinetrue -}} - -%%WIDTH: >~a4/landscape/normalsize -|- gives E and E' and E'' -|- type_params_opt : kind -type_params_opt typeconstr_name |- constr_decl1 gives EB1 ... type_params_opt typeconstr_name |- constr_decln gives EBn -------------------------------------------------------- :: def_sum -|- type_params_opt typeconstr_name = constr_decl1 | ... | constr_decln and gives E, (typeconstr_name : kind) and E' and E''@EB1,...,EBn - -{{ com -A variant type definition yields two sorts of bindings: one for the type -constructor name and one for each constructor. -}} - -%%WIDTH: >>a4/landscape/normalsize -|- gives E and E' and E'' -|- type_params_opt : kind -type_params_opt typeconstr_name |- field_name1:t1 gives EB1 ... type_params_opt typeconstr_name |- field_namen:tn gives EBn -------------------------------------------------------- :: def_record -|- type_params_opt typeconstr_name = {field_name1:t1; ...; field_namen:tn} and gives E, (typeconstr_name : kind {field_name1; ...; field_namen}) and E' and E''@EB1,...,EBn - -{{ com -A record type definition yields two sorts of bindings: one for the type -constructor name and one for each field. The field names are also recorded -with the type constructor binding; this information is used in the rule -\ottdruleref{JTe\_record\_constr} to make sure that record expressions -specify all fields. (We would similarly tag type constructor bindings for -variant types with their constructor names if we wanted to check the -exhaustivity of pattern matching.) -}} - -{{ com -\ottbreakconclusionlinefalse -}} - -defns -JTtype_definition :: JT ::= - -defn -E |- type_definition gives E' :: :: type_definition :: type_definition_ {{ com Type definition well-formedness and binding collection }} {{ lemwcf witness type JTtype_definition_witness; -check JTtype_definition_check; -}} by - -{{ com -Collects the bindings of a type definition and ensures that they are -well-formed. Any given name may be defined at most once, and all names used -must have been bound previously or earlier in the same type definition phrase. -The conditions are checked by the premise $[[E@E'''' |- ok]]$ in the rule -\ottdruleref{JTtype\_definition\_list} and the assembly is performed by the -type definitions collection rules above. This implies that the type -abbreviations must be topologically sorted in their dependency order. -(Generative type definitions are exempt from such constraints.) Programmers do -not have to abide by this constraint: they may order type abbreviations in any -way. Therefore the rule \ottdruleref{JTtype_definition_swap} allows an -arbitrary reordering of type definitions --- it suffices for a type definition -to be correct that there exist a reordering that makes the type abbreviations -properly ordered. -}} - -|- typedef1 and ... and typedefn gives E' and E'' and E''' -E'''' = E'@E''@E''' -E@E'''' |- ok -------------------------------------------------------- :: list -E |- type typedef1 and ... and typedefn gives E'''' - - -E |- type and typedef' and typedef and gives E' -------------------------------------------------------- :: swap -E |- type and typedef and typedef' and gives E' - -{{ com -}} - -defns -JTdefinition :: JT ::= - -defn -E |- definition : E' :: :: definition :: definition_ {{ com Definition typing }} {{ lemwcf witness type JTdefinition_witness; -check JTdefinition_check; -}} by - - -{{ com -Collects the bindings of a definition and ensures that they are well-formed. -Each definition can bind zero, one or more names. Type variables that are -mentionned by the programmer in type annotations are scoped at this level. -Thus, the $[[Tsigma]]$ substitution is arbitrarily created for each definition -to ensure that each type variable is used consistently in the definition. -}} - -Tsigma & E,TV |- pat=nexp gives (x1:t1'),..,(xk:tk') -------------------------------------------------------- :: let_poly -E |- let pat = nexp : (x1:forall t1'),..,(xk:forall tk') - -Tsigma & E |- pat=expr gives (x1:t1'),..,(xk:tk') -------------------------------------------------------- :: let_mono -E |- let pat = expr : (x1:t1'),..,(xk:tk') - -Tsigma & E,TV |- letrec_bindings gives (x1:t1'),..,(xk:tk') -------------------------------------------------------- :: letrec -E |- let rec letrec_bindings : (x1:forall t1'),..,(xk:forall tk') - -E |- type typedef1 and ... and typedefn gives E' -------------------------------------------------------- :: typedef -E |- type typedef1 and ... and typedefn : E' - -E |- ok -exn |- constr_decl gives EB -------------------------------------------------------- :: exndef -E |- exception constr_decl : EB - -defns -JTdefinitions :: JT ::= - -defn -E |- definitions : E' :: :: definitions :: definitions_ {{ com Definition sequence typing }} {{ lemwcf witness type JTdefinitions_witness; -check JTdefinitions_check; -}} by - -{{ com -Collects the bindings of a definition and ensures that they are well-typed. -}} - -E |- ok ----------------------------------------------------------------- :: empty -E |- : :Env_list: - -:JTdefinition:E |- definition : E' -:JTdefinitions:E@ E' |- definitions' : E'' ----------------------------------------------------------------- :: item -E |- definition definitions' : E'@E'' - -defns -JTprog :: JT ::= - -defn -E |- program : E' :: :: prog :: prog_ {{ com Program typing }} {{ lemwcf witness type JTprog_witness; -check JTprog_check; -}} by - -{{ com -Checks a progam. -}} - -:JTdefinitions: E |- definitions : E' ------------------------------------------------------ :: defs -E |- definitions : E' - -Tsigma & E |- v : t --------------------------------------------- :: raise -E |- (%prim raise) v : :Env_list: - -%d>> -<< - -defns -JTstore :: JT ::= - -defn -E |- store : E' :: :: store :: store_ {{ com Store typing }} {{ lemwcf witness type JTstore_witness; -check JTstore_check; -}} by - -{{ com -Checks that the values in a store have types. -}} - -------------------------------------------------------- :: empty -E |- empty : :Env_list: - -E |- store : E' -<<>> & E |- v : t -------------------------------------------------------- :: map -E |- store, l |-> v : E',(l:t) - ->> -%d<< - -defns -JTtop :: JT ::= - -defn -E |- < program , store > : E' :: :: top :: top_ {{ com Top-level typing }} -{{ tex [[E]] \vdash \langle [[program]], [[store]] \rangle }} {{ lemwcf witness type JTtop_witness; -check JTtop_check; -}} by - -{{ com -Checks the combination of a program with a store. The store is typed in an -environment that includes its bindings, so that it can contain cyclic -structures. -}} - -E@E' |- store : E' -:JTprog:E@E' |- program : E'' -------------------------------------------------------- :: defs -E |- : E'@E'' - -%d>> -<< - - -defns -JTLin :: JT ::= -defn -Tsigma & E |- L :: :: Lin :: Lin_ {{ com Label-to-environment extraction }} {{ lemwcf witness type JTLin_witness; -check JTLin_check; -}} by - -{{ com -Used in the proof only -}} - -------------------------------------------------------- :: nil -Tsigma & E |- - -dom(E) gives names -location notin names -------------------------------------------------------- :: alloc -Tsigma & E |- ref v = location - -Tsigma & E |- v : t -E |- location gives (location:t) -------------------------------------------------------- :: deref -Tsigma & E |- !location = v - -------------------------------------------------------- :: assign -Tsigma & E |- location := v - -defns -JTLout :: JT ::= -defn -Tsigma & E |- L gives E' :: :: Lout :: Lout_ {{ com Label-to-environment extraction }} {{ lemwcf witness type JTLout_witness; -check JTLout_check; -}} by - -{{ com -Used in the proof only -}} - -------------------------------------------------------- :: nil -Tsigma & E |- gives :Env_list: - -Tsigma & E |- v : t -------------------------------------------------------- :: alloc -Tsigma & E |- ref v = location gives (location:t) - -------------------------------------------------------- :: deref -Tsigma & E |- !location = v gives :Env_list: - -Tsigma & E |- v : t -E |- location gives (location:t) -------------------------------------------------------- :: assign -Tsigma & E |- location := v gives :Env_list: - - -%% The next com is a hack to get the title in the right place when -%% typesetting the reduction rules after the typing rules. - -{{ com -\section{Operational Semantics} -\label{sec.runtime} - -The operational semantics is a labelled transition system that lifts imperative -and non-deterministic behavior our of the core evaluation rules. -Notable aspects of the formalization include: -\begin{itemize} -\item -explicit rules for evaluation in context (instead of a grammar of evaluation contexts), - -\item -small-step propogation of exceptions, - -\item -substitution-based function application, - -\item -right-to-left evaluation ordering, which is overspecified compared to the OCaml -manual; furthermore, this choice of evaluation ordering for record expressions -differs from the implementation's choice, which is based on the type -declaration, - -\item -unlike the implementation, we do not treat curried functions specially, the -difference can be seen in this program: -$[[:user_syntax__program: :Ds_cons_semi:let f = function 1 -> function _ -> 10;; :Ds_cons_semi:let _ = f 2;;]]$ -which does not raise an exception in the implementation. - -\item -As in the type system, several rules have premises that state there are at -least 1 (or 2) elements of a list, despite there being 3 or 4 dots. This is -because Ott does not use dot imposed length restrictions in the theorem prover -models. - -\end{itemize} - -}} - -embed -{{ coq -Hint Constructors JdomEB JdomE Jlookup_EB Jidx_bound - JTtps_kind - JTEok JTtypeconstr JTts JTtsnamed JTt - JTeq JTidxsub JTinst JTinst_named JTinst_any - JTvalue_name JTfield - JTconstr_p JTconstr_c - JTconst - JTpat - JTuprim JTbprim - JTe JTpat_matching JTlet_binding JTletrec_binding - JTstore JTLin JTLout - : rules. -}} -%d{{ coq -%dHint Constructors JTconstr_decl JTfield_decl JTtypedef JTtype_definition -%d JTdefinition JTdefinitions -%d JTprog JTtop -%d : rules. -%d}} diff --git a/vendors/ott/examples/peterson_caml.ott b/vendors/ott/examples/peterson_caml.ott deleted file mode 100644 index d784a20500ed..000000000000 --- a/vendors/ott/examples/peterson_caml.ott +++ /dev/null @@ -1,334 +0,0 @@ -metavar value_name, x ::= - {{ isa string }} {{ coq nat }} {{ coq-equality }} {{ hol string }} - {{ lex alphanum }} -metavar ident ::= - {{ isa string }} {{ coq nat }} {{ hol string }} - {{ lex Alphanum }} -metavar string_literal ::= - {{ isa string }} {{ coq nat }} {{ hol string }} - {{ lex Alphanum }} -metavar integer_literal ::= - {{ isa int }} {{ coq nat }} {{ hol num }} - {{ lex numeral }} -indexvar index, i, j, n, m ::= - {{ isa nat }} {{ coq nat }} {{ hol num }} - {{ lex numeral }} -% the lex specifications above are not accurate - negative numerals, especially, -% should be supported -metavar location, l ::= {{ isa nat }} {{ coq positive }} {{ hol num }} - - -grammar - -typeconstr_name :: TCN_ ::= - | unit :: :: unit - | bool :: :: bool - | int :: :: int - -typeconstr :: TC_ ::= - | typeconstr_name :: :: name - -typvar :: TV_ ::= - | ' ident :: :: ident - -typexpr, t :: TE_ ::= - | typvar :: :: typvar - | typexpr -> typexpr' :: :: arrow - | typexpr ref :: :: ref - | typeconstr :: :: constr0 - | ( typexpr ) :: M :: paren {{ ich [[typexpr]] }} - -typscheme, ts :: TS_ ::= - | ( typvar1 , .. , typvarn ) typexpr :: :: ts (+ bind typvar1 .. typvarn in typexpr +) - - | generalise ( G , t ) :: M :: ts3 - {{ isa (TS_ts (List.remdups (list_minus (ftv_typexpr [[t]]) (ftv_G [[G]]))) [[t]]) }} - {{ coq (TS_ts (remove_duplicates (make_list_typvar (list_minus eq_typvar (ftv_typexpr [[t]]) (ftv_G [[G]])))) [[t]]) }} - {{ hol (TS_ts (remove_duplicates (list_minus (ftv_typexpr [[t]]) (ftv_G [[G]]))) [[t]]) }} - -%TODO: it might be nicer to have ftv remove duplicates, or indeed -%return a set - -constant, c :: CONST_ ::= - | integer_literal :: :: int - | false :: :: false - | true :: :: true - | () :: :: unit - | (&&) :: :: and - | not :: :: not - | ref :: :: ref - | (!) :: :: deref - | (::=) :: :: assign - | Thread.create :: :: thread_create - -expr, e :: E_ ::= - | value_name :: :: ident - | constant :: :: constant - | expr expr' :: :: apply - | function value_name -> expr :: :: function (+ bind value_name in expr +) - | let value_name = expr in expr' :: :: let (+ bind value_name in expr' +) - | let rec value_name = value in expr' :: :: letrec (+ bind value_name in value +) (+ bind value_name in expr' +) - - | if expr then expr' else expr'' :: :: ifthenelse - | trace string_literal expr :: :: trace - | l :: :: location - | ( expr ) :: M :: paren {{ ich [[expr]] }} - | { e / x } e' :: M :: subst - {{ ich (subst_expr [[v]] [[x]] [[e]]) }} - -value, v :: V_ ::= - | constant :: :: constant - | function value_name -> expr :: :: function - -G {{ tex \Gamma }} :: G_ ::= - | empty :: :: em - | G , value_name : typscheme :: :: vn - -store , s :: STORE_ ::= {{ isa location ~=> expr }} - | empty :: :: empty {{ isa empty }} - | store , location |-> v :: :: cell {{ isa [[store]] ([[location]]|->[[v]]) }} - -process , p :: PROC_ ::= {{ isa expr multiset }} - | empty :: :: empty {{ isa {#} }} - | p , e :: :: thread {{ isa [[p]] + {# [[e]] #} }} - - - -formula :: formula_ ::= - | judgement :: :: judgement - | not ( formula ) :: :: not - {{ isa Not([[formula]]) }} - {{ coq not([[formula]]) }} - {{ hol ~([[formula]]) }} - - | typscheme > t :: :: gen - {{ isa ? typvars . ? typexpr . ? s . - [[typscheme]] = TS_ts typvars typexpr - & typvars=List.map fst s - & tsubst_typexpr s typexpr = [[t]] }} - {{ coq (exists tvs, exists txp, exists s, - [[typscheme]] = TS_ts tvs txp - /\ tvs = make_list_typvar - (List.map (fun (x:typvar*typexpr) => match x with (x1,x2) => x1 end) - s) - /\ tsubst_typexpr s txp = [[t]]) }} - {{ hol ? typvars typexpr s . - ([[typscheme]] = TS_ts typvars typexpr ) - /\ (typvars=MAP FST s ) - /\ (tsubst_typexpr s typexpr = [[t]]) }} - - | typscheme = typscheme' :: :: eqt - {{ ich [[typscheme]]=[[typscheme']] }} - | value_name = value_name' :: :: eqv - {{ ich [[value_name]]=[[value_name']] }} - | l first unused for s :: :: unused {{ isa ([[l]]=(LEAST l. ~l : dom [[s]] )) }} - | s ( l ) = v :: :: lookup {{ isa ([[s]]([[l]])=Some [[v]]) }} - -terminals :: terminals_ ::= - | -> :: :: arrow {{ tex \rightarrow }} - | function :: :: function {{ tex \textbf{function} }} - | |- :: :: turnstile {{ tex \vdash }} - | |-> :: :: mapsto {{ tex \mapsto }} - | --> :: :: red {{ tex \longrightarrow }} - | '{' :: :: leftbrace {{ tex \{ }} - | '}' :: :: rightbrace {{ tex \} }} - -embed - {{ coq -Fixpoint remove_duplicates (l:list_typvar) : list_typvar := - match l with - | Nil_list_typvar => Nil_list_typvar - | Cons_list_typvar h t => - if (list_mem eq_typvar h (unmake_list_typvar t)) - then remove_duplicates t - else Cons_list_typvar h (remove_duplicates t) -end. }} - - {{ hol -val _ = Define ` - (remove_duplicates [] = []) /\ - (remove_duplicates (x::xs) = if (MEM x xs) then remove_duplicates xs - else x::(remove_duplicates xs)) -`; }} - - -subrules - v <:: expr - -substitutions - single expr value_name :: subst - multiple typexpr typvar :: tsubst - -freevars - typexpr typvar :: ftv - -defns -Jtype :: '' ::= - -defn -value_name : typscheme in G :: :: VTSin :: VTSin_ by - ---------------------------------------------------- :: vn1 -value_name : typscheme in G, value_name:typscheme - -value_name : typscheme in G -not(value_name = value_name') ---------------------------------------------------- :: vn2 -value_name : typscheme in G, value_name':typscheme' - - - -defn -|- constant : ts :: :: Jconstant :: constant_ by - ------------------------- :: int -|- integer_literal : ()int - ---------------- :: false -|- false : ()bool - --------------- :: true -|- true : ()bool - ------------- :: unit -|- () : ()unit - ----------------------------------- :: and -|- (&&) : () bool -> ( bool -> bool ) - ---------------------- :: not -|- not : () bool -> bool - - ---------------------- :: ref -|- ref : (typvar) typvar -> (typvar ref) - ---------------------- :: deref -|- (!) : (typvar) typvar ref -> typvar - ---------------------- :: assign -|- (::=) : (typvar) typvar ref -> (typvar -> unit) - ---------------------- :: thread_create -|- Thread.create : (typvar1,typvar2) (typvar1->typvar2)->(typvar1->unit) - - -defn -G |- e : t :: :: Get :: Get_ by - -x:typscheme in G -typscheme > t ----------------- :: value_name -G |- x:t - -:Jconstant: |- constant : ts -ts > t ------------------------------- :: constant -G |- constant : t - -G |- e : t1->t2 -G |- e' : t1 ----------------- :: apply -G |- e e' : t2 - -G,x1: ( ) t1 |- e : t ---------------------------- I :: lambda -G |- function x1->e : t1->t - -G |- e : t -G,x:typscheme |- e':t' -typscheme = generalise(G,t) ---------------------------- :: let -G |- let x=e in e' : t' - -G,x:typscheme |- v : t -G,x:typscheme |- e':t' -typscheme = generalise(G,t) ---------------------------- :: letrec -G |- let rec x=v in e' : t' - -G |- e : bool -G |- e' : t -G |- e'' : t ------------------------------- :: ifthenelse -G |- if e then e' else e'' : t - -G |- e : t ------------------------------- :: trace -G |- trace string_literal e : t - - - - - -defns -Jop :: JO_ ::= - -defn -s ; p --> s' ; p' :: :: red :: red_ by - -------------------------------- :: app -s;p,(function x->e) v --> s;p,{v/x} e - ---------------------------- :: let -s;p,let x = v in e --> s;p,{v/x} e - ---------------------------- :: letrec -s;p,let rec x = v in e --> s;p,{ {let rec x=v in v/x}v /x} e - ---------------------------- :: iftrue -s;p,if true then e' else e'' --> s;p,e' - ---------------------------- :: iffalse -s;p,if false then e' else e'' --> s;p,e'' - ------------------------------------- :: trace -s;p,trace string_literal v --> s;p,e - ------------------- :: not_1 -s; p,not true --> s; p,false - ------------------- :: not_2 -s; p,not false --> s; p,true - -------------------- :: and_1 -s; p,((&&) true) e --> s; p,e - ------------------------- :: and_2 -s; p,((&&) false) e --> s; p,false - -l first unused for s ------------------------------- :: ref -s; p,ref v --> s,l|->v ; p,l - -s(l)=v -------------------------------- :: deref -s; p,(!) l --> s;p,v - -------------------------------- :: assign - s,l|->v; p,((::=) l) v' --> s,l|->v'; p,() - ----------------------------------------- :: thread_create -s;p,(Thread.create v1) v2 --> s;p,v1 v2,() - -s;p,e --> s';p',e' --------------- :: context_app1 -s;p,e e1 --> s';p', e' e1 - -s;p,e --> s';p',e' ------------- :: context_app2 -s;p, v e --> s';p', v e' - -s;p, e --> s';p', e' --------------------------------- :: context_let -s;p, let x=e in e1 --> s';p', let x=e' in e1 - -s;p,e1 --> s';p',e2 ---------------------------- :: context_if -s;p,if e1 then e' else e'' --> s';p',if e2 then e' else e'' - -s;p,e --> s';p',e' --------------- :: context_trace -s;p,trace string_literal e --> s';p', trace string_literal e' - - diff --git a/vendors/ott/examples/tapl/.gitignore b/vendors/ott/examples/tapl/.gitignore deleted file mode 100644 index 1bb05d599fa5..000000000000 --- a/vendors/ott/examples/tapl/.gitignore +++ /dev/null @@ -1,13 +0,0 @@ -*.vo -*.glob -*.v.d -*.aux -.coqdeps.d -records.tex -records.thy -recordsScript.sml -records_auto.v -stlc.tex -stlc.thy -stlcScript.sml -stlc_auto.v diff --git a/vendors/ott/examples/tapl/Makefile b/vendors/ott/examples/tapl/Makefile deleted file mode 100644 index dbee9e0d3dee..000000000000 --- a/vendors/ott/examples/tapl/Makefile +++ /dev/null @@ -1,200 +0,0 @@ -topdir = ../.. -ott_coq_lib_dir = $(topdir)/coq -ott_hol_lib_dir = $(topdir)/hol - -COQC = coqc -COQDEP = coqdep -COQ_INCLUDE = -I $(ott_coq_lib_dir) -COQC_FLAGS = -DVIPS = dvips -HOLMAKE = Holmake -HOLMAKE_FLAGS = -I $(ott_hol_lib_dir) -ISABELLE = isabelle -ISABELLE_FLAGS = -q -ISABELLE_WRAPPER = use_thy "$*" handle e => (TextIO.output (TextIO.stdErr, "Isabelled failed: " ^ exnMessage e ^ "\n"); OS.Process.exit OS.Process.failure) -LATEX = latex -OTT = $(topdir)/src/ott -OTT_FLAGS = -merge true #-show_defns false -show_sort false -PDFLATEX = pdflatex - -# NB THIS SHOULD BE IN SYNC WITH THE SYS_ROUGHLYFULLSIMPLE DEFINITION IN src/Makefile -# AND sys-roughlyfullsimple IN src/regression.otl -SOURCES = \ -common.ott \ -common_index.ott \ -common_labels.ott \ -common_typing.ott \ -bool.ott \ -bool_typing.ott \ -nat.ott \ -nat_typing.ott \ -arrow_typing.ott \ -basety.ott \ -unit.ott \ -seq.ott \ -ascribe.ott \ -let.ott \ -product.ott \ -sum.ott \ -fix.ott \ -tuple.ott \ -variant.ott -#record.ott - -records_sources = \ - common.ott common_index.ott common_labels.ott common_typing.ott \ - bool.ott bool_typing.ott \ - nat.ott nat_typing.ott \ - arrow_typing.ott basety.ott \ - unit.ott seq.ott ascribe.ott let.ott \ - product.ott sum.ott fix.ott \ - tuple.ott record.ott variant.ott - -isa_objects = stlc stlc_metatheory - -coq_ott_libs = $(ott_coq_lib_dir)/ott_list -coq_stlc_libs = $(coq_ott_libs) stlc_tactics -coq_stlc_objects = $(coq_stlc_libs) \ - stlc_auto stlc_base stlc_terms \ - stlc_environments stlc_typing stlc_soundness -coq_oldlists_objects = $(coq_stlc_libs) \ - records_oldlists_auto -coq_records_common = $(coq_stlc_libs) \ - records_auto records_base records_terms records_environments -coq_records_objects = $(coq_records_common) \ - records_hand_red records_hand_typing_fl \ - records_typing records_soundness -coq_pf_objects = $(coq_records_common) \ - records_hand_red records_hand_typing_pf \ - records_pf_typing records_pf_soundness -coq_equiv_objects = $(coq_stlc_libs) \ - records_auto records_base records_equiv_common \ - records_equiv_red records_equiv_typing_fl records_equiv_typing_pf -coq_misc_objects = records_quickies records_tick - -default: so -ott: stlc.tex stlc_auto.v stlcScript.sml stlc.thy \ - records.tex records_auto.v recordsScript.sml records.thy -coq-stlc: $(coq_stlc_objects:=.vo) -coq-oldlists: $(coq_oldlists_objects:=.vo) -coq-records: $(coq_records_objects:=.vo) -coq-pf: $(coq_pf_objects:=.vo) -coq-equiv: $(coq_equiv_objects:=.vo) -coq-misc: $(coq_misc_objects:=.vo) -coq: coq-pf -coq-world: coq-stlc coq-records coq-pf coq-equiv coq-misc coq-oldlists -hol: metatheoryTheory.uo -isa: $(isa_objects:=.isa) -# N.B. isa currently requires a CVS version of Isabelle (Isabelle 2005 fails) -all: ott stlc.ps coq hol -world: all stlc.pdf coq-world hol isa - -#### Scott's targets #### -so: stlcScript.sml metatheoryScript.sml stlc.pdf - $(HOLMAKE) $(HOLMAKE_FLAGS) - -#### Tom's targets ##### -tom: stlc.thy stlc.pdf - -#### ott ### -records.tex records_auto.v recordsScript.sml records.thy: $(records_sources) $(OTT) - $(OTT) $(OTT_FLAGS) -merge true -coq_expand_list_types false -o records.tex -o records_auto.v -o recordsScript.sml -o records.thy $(records_sources) -records_oldlists_auto.v: $(records_sources) $(OTT) - $(OTT) $(OTT_FLAGS) -merge true -coq_expand_list_types true -o $@ $(records_sources) -stlc.tex stlc_auto.v stlcScript.sml stlc.thy: $(SOURCES) $(OTT) - $(OTT) $(OTT_FLAGS) -merge true -coq_expand_list_types true -o stlc.tex -o stlc_auto.v -o stlcScript.sml -o stlc.thy $(SOURCES) - -#### TeX #### -.SUFFIXES: .tex .dvi .ps .pdf -.tex.dvi: - $(LATEX) $< -.dvi.ps: - $(DVIPS) -o $@ $< -.tex.pdf: - $(PDFLATEX) $< - -#### Hol #### -hol_libs = $(ott_hol_lib_dir)/ottLib $(ott_hol_lib_dir)/ottTheory -hol_libs: $(hol_libs:=.ui) $(hol_libs:=.uo) -$(hol_libs:=.ui) $(hol_libs:=.uo): %: - cd $(@D) && $(MAKE) $(@F) -%Theory.uo: %Script.sml hol_libs - $(HOLMAKE) $(HOLMAKE_FLAGS) $@ - -#### Isabelle #### -.SUFFIXES: .thy .isa -.thy.isa: - $(ISABELLE) $(ISABELLE_FLAGS) -e '$(ISABELLE_WRAPPER)' - -#### Coq #### -coq_libs: $(coq_ott_libs:=.vo) -$(coq_ott_libs:=.vo): - cd $(ott_coq_lib_dir) && $(MAKE) $(@F) -.SUFFIXES: .v .vo -.v.vo: - $(COQC) $(COQ_INCLUDE) $(COQC_FLAGS) $< - -#### Administrative targets #### -clean: - rm -f stlc.tex stlcScript.sml auto[-_]* *[-_.]auto[-_.]* - rm -f *.aux *.log *.dvi *.ps *.pdf - rm -f *.vo - rm -f stlcTheory.sig stlcTheory.sml metatheoryTheory.sml metatheoryTheory.sig *.uo *.ui - -#### Dependencies #### -dep: .depend - sed -e '/^#### AUTOMATICALLY GENERATED BY make dep, DO NOT CHANGE THIS LINE ####$$/q' Makefile.tmp - cat .depend >>Makefile.tmp - mv -f Makefile .Makefile.old - mv -f Makefile.tmp Makefile -.depend: force - : >.depend.tmp - $(COQDEP) -I . -I $(ott_coq_lib_dir) *.v >.depend.coq.tmp - sed -e '/^_ott_coqrc\.vo:/d' -e 's/ _ott_coqrc\.v/& $$(ott_coqrc_deps)/' <.depend.coq.tmp >>.depend.tmp - rm .depend.coq.tmp - mv .depend.tmp .depend -force: - -# TeX dependencies, mentioned so as not to run afoul of the make -# feature whereby it deletes intermediate files. -records.tex: -stlc.tex: -records.dvi: -stlc.dvi: - -# ott_coqrc_deps must list the dependencies of _ott_coqrc.vo, because -# coqdep would miss them (see _ott_coqrc.v). -ott_coqrc_deps = $(coq_ott_libs:=.vo) -stlc_coq_prelude = $(ott_coqrc_deps) -# stlc_coq_prelude is used by the regression tests and must depend on -# the .vo files that are required to build any ott-generated stlc .v. -stlc_coq_prelude: $(stlc_coq_prelude) - -#### AUTOMATICALLY GENERATED BY make dep, DO NOT CHANGE THIS LINE #### -records_auto.vo: records_auto.v ../../coq/ott_list.vo _ott_coqrc.v $(ott_coqrc_deps) ../../coq/ott_list_flat_map.vo -records_base.vo: records_base.v _ott_coqrc.v $(ott_coqrc_deps) stlc_tactics.vo records_auto.vo -records_environments.vo: records_environments.v _ott_coqrc.v $(ott_coqrc_deps) stlc_tactics.vo records_auto.vo -records_equiv_common.vo: records_equiv_common.v _ott_coqrc.v $(ott_coqrc_deps) stlc_tactics.vo records_auto.vo records_base.vo -records_equiv_red.vo: records_equiv_red.v _ott_coqrc.v $(ott_coqrc_deps) stlc_tactics.vo records_auto.vo records_base.vo records_equiv_common.vo records_hand_red.vo -records_equiv_typing_fl.vo: records_equiv_typing_fl.v _ott_coqrc.v $(ott_coqrc_deps) stlc_tactics.vo records_auto.vo records_base.vo records_equiv_common.vo records_hand_typing_fl.vo -records_equiv_typing_pf.vo: records_equiv_typing_pf.v _ott_coqrc.v $(ott_coqrc_deps) stlc_tactics.vo records_auto.vo records_base.vo records_hand_typing_fl.vo records_hand_typing_pf.vo -records_hand_red.vo: records_hand_red.v _ott_coqrc.v $(ott_coqrc_deps) records_auto.vo records_base.vo -records_hand_typing_fl.vo: records_hand_typing_fl.v _ott_coqrc.v $(ott_coqrc_deps) records_auto.vo records_base.vo -records_hand_typing_pf.vo: records_hand_typing_pf.v _ott_coqrc.v $(ott_coqrc_deps) records_auto.vo records_base.vo -records_oldlists_auto.vo: records_oldlists_auto.v _ott_coqrc.v $(ott_coqrc_deps) ../../coq/ott_list_flat_map.vo -records_pf_soundness.vo: records_pf_soundness.v _ott_coqrc.v $(ott_coqrc_deps) stlc_tactics.vo records_auto.vo records_base.vo records_terms.vo records_environments.vo records_hand_red.vo records_hand_typing_pf.vo records_pf_typing.vo -records_pf_typing.vo: records_pf_typing.v _ott_coqrc.v $(ott_coqrc_deps) stlc_tactics.vo records_auto.vo records_base.vo records_terms.vo records_environments.vo records_hand_typing_pf.vo -records_quickies.vo: records_quickies.v _ott_coqrc.v $(ott_coqrc_deps) stlc_tactics.vo records_auto.vo records_base.vo records_environments.vo records_hand_red.vo records_hand_typing_pf.vo -records_run.vo: records_run.v _ott_coqrc.v $(ott_coqrc_deps) stlc_tactics.vo records_auto.vo records_base.vo records_terms.vo records_environments.vo records_hand_red.vo records_hand_typing_pf.vo -records_soundness.vo: records_soundness.v _ott_coqrc.v $(ott_coqrc_deps) stlc_tactics.vo records_auto.vo records_base.vo records_terms.vo records_environments.vo records_hand_red.vo records_hand_typing_fl.vo records_typing.vo -records_terms.vo: records_terms.v _ott_coqrc.v $(ott_coqrc_deps) stlc_tactics.vo records_auto.vo records_base.vo -records_tick.vo: records_tick.v _ott_coqrc.v $(ott_coqrc_deps) records_auto.vo records_base.vo records_pf_soundness.vo records_hand_red.vo records_hand_typing_pf.vo records_equiv_red.vo records_equiv_typing_pf.vo records_equiv_typing_fl.vo -records_typing.vo: records_typing.v _ott_coqrc.v $(ott_coqrc_deps) stlc_tactics.vo records_auto.vo records_base.vo records_terms.vo records_environments.vo records_hand_typing_fl.vo -stlc_auto.vo: stlc_auto.v _ott_coqrc.v $(ott_coqrc_deps) ../../coq/ott_list_flat_map.vo -stlc_base.vo: stlc_base.v _ott_coqrc.v $(ott_coqrc_deps) stlc_tactics.vo stlc_auto.vo -stlc_environments.vo: stlc_environments.v _ott_coqrc.v $(ott_coqrc_deps) stlc_tactics.vo stlc_auto.vo stlc_base.vo -stlc_soundness.vo: stlc_soundness.v _ott_coqrc.v $(ott_coqrc_deps) stlc_auto.vo stlc_tactics.vo stlc_base.vo stlc_terms.vo stlc_environments.vo stlc_typing.vo -stlc_tactics.vo: stlc_tactics.v -stlc_terms.vo: stlc_terms.v _ott_coqrc.v $(ott_coqrc_deps) stlc_tactics.vo stlc_auto.vo stlc_base.vo -stlc_typing.vo: stlc_typing.v _ott_coqrc.v $(ott_coqrc_deps) stlc_auto.vo stlc_tactics.vo stlc_base.vo stlc_terms.vo stlc_environments.vo -wet_massaged.vo: wet_massaged.v diff --git a/vendors/ott/examples/tapl/arrow.ott b/vendors/ott/examples/tapl/arrow.ott deleted file mode 100644 index d1a9977533a6..000000000000 --- a/vendors/ott/examples/tapl/arrow.ott +++ /dev/null @@ -1,41 +0,0 @@ -% TAPL [arrow] Untyped lambda-calculus, p72 -metavar termvar, x ::= - {{ isa string }} {{ coq nat }} {{ coq-equality }} {{ hol string }} - {{ lex alphanum }} {{ tex \mathsf{[[termvar]]} }} - -grammar -t :: Tm ::= {{ com terms: }} - | x :: :: Var {{ com variable }} - | \ x . t :: :: Abs (+ bind x in t +) - {{ com abstraction }} - | t1 t2 :: :: App {{ com application }} - | [ x |-> t' ] t :: M :: Subst - {{ ich (subst_t [[t']] [[x]] [[t]]) }} - -v :: Va ::= {{ com values: }} - | \ x . t :: :: Abs {{ com abstraction value }} - - -subrules -v <:: t - -substitutions - single t termvar :: subst - -defns -Jop :: '' ::= - -defn -t --> t' :: :: red :: E_ {{ com Evaluation }} by - -t1 --> t1' ------------------ :: App1 -t1 t2 --> t1' t2 - - -t2 --> t2' ------------------ :: App2 -v1 t2 --> v1 t2' - ------------------------------ :: AppAbs -(\x.t12) v2 --> [x |-> v2]t12 diff --git a/vendors/ott/examples/tapl/arrow_typing.ott b/vendors/ott/examples/tapl/arrow_typing.ott deleted file mode 100644 index 5ad46b7a9fb7..000000000000 --- a/vendors/ott/examples/tapl/arrow_typing.ott +++ /dev/null @@ -1,79 +0,0 @@ -% TAPL [arrow typing] Pure simply typed lambda-calculus, p103 - -% (As in TAPL, there are no types in this fragment. Isabelle would therefore -% complain that it cannot define an empty type.) - -metavar termvar, x ::= - {{ isa string }} {{ coq nat }} {{ coq-equality }} {{ hol string }} - {{ lex alphanum }} {{ tex \mathsf{[[termvar]]} }} - -grammar -t :: Tm ::= {{ com terms: }} - | x :: :: Var {{ com variable }} - | \ x : T . t :: :: Abs (+ bind x in t +) - {{ com abstraction }} - | t1 t2 :: :: App {{ com application }} - | [ x |-> t' ] t :: M :: Subst - {{ ich (subst_t [[t']] [[x]] [[t]]) }} - -v :: Va ::= {{ com values: }} - | \ x : T . t :: :: Abs (+ bind x in t +) - {{ com abstraction value }} - -T {{ hol Typ }}, S, U :: Ty ::= {{ com types: }} - | T -> T' :: :: Arr {{ com type of functions }} - | ( T ) :: M :: Paren {{ ich [[T]] }} - - - - -subrules -v <:: t - -substitutions - single t termvar :: subst - -freevars - t x :: fv - -defns -Jop :: '' ::= - -defn -t --> t' :: :: red :: E_ {{ com Evaluation }} by - -t1 --> t1' ------------------ :: App1 -t1 t2 --> t1' t2 - - -t2 --> t2' ------------------ :: App2 -v1 t2 --> v1 t2' - ------------------------------ :: AppAbs -(\x:T.t12) v2 --> [x |-> v2]t12 - - -defns -Jtype :: '' ::= - -defn -G |- t : T :: :: typing :: T_ {{ com Typing }} by - -x:T in G --------- :: Var -G |- x:T - -G,x:T1 |- t2 : T2 ----------------------- :: Abs -G |- \x:T1.t2 : T1->T2 - -G |- t1 : T11->T12 -G |- t2 : T11 ------------------- :: App -G |- t1 t2 : T12 - - - - diff --git a/vendors/ott/examples/tapl/ascribe.ott b/vendors/ott/examples/tapl/ascribe.ott deleted file mode 100644 index cc8cff6c7fd6..000000000000 --- a/vendors/ott/examples/tapl/ascribe.ott +++ /dev/null @@ -1,29 +0,0 @@ - -grammar -t :: Tm ::= {{ com terms: }} - | t as T :: :: Ascribe {{ com ascription }} - - -defns -Jop :: '' ::= - -defn -t --> t' :: :: red :: E_ {{ com Evaluation }} by - --------------- :: Ascribe -v1 as T --> v1 - -t1 --> t1' --------------------- :: Ascribe1 -t1 as T --> t1' as T - - -defns -Jtype :: '' ::= - -defn -G |- t : T :: :: typing :: T_ {{ com Typing }} by - -G |- t1:T --------------- :: Ascribe -G |- t1 as T:T diff --git a/vendors/ott/examples/tapl/basety.ott b/vendors/ott/examples/tapl/basety.ott deleted file mode 100644 index 7de3c59c3e8c..000000000000 --- a/vendors/ott/examples/tapl/basety.ott +++ /dev/null @@ -1,8 +0,0 @@ -metavar basetype, A ::= - {{ isa string }} {{ coq nat }} {{ coq-equality }} {{ hol string }} - {{ lex Alphanum }} {{ tex \textsf{[[basetype]]} }} - -grammar -T :: Ty ::= {{ com types: }} - | A :: :: Id {{ com base type }} - diff --git a/vendors/ott/examples/tapl/bool.ott b/vendors/ott/examples/tapl/bool.ott deleted file mode 100644 index 194c183ab5c8..000000000000 --- a/vendors/ott/examples/tapl/bool.ott +++ /dev/null @@ -1,31 +0,0 @@ -% TAPL [bool] Booleans, p34 -grammar -t :: Tm ::= {{ com terms: }} - | true :: :: True {{ com constant true }} - | false :: :: False {{ com constant false }} - | if t1 then t2 else t3 :: :: If {{ com conditional }} - -v :: Va ::= {{ com values: }} - | true :: :: True {{ com true value }} - | false :: :: False {{ com false value }} - - -subrules -v <:: t - -defns -Jop :: '' ::= - -defn -t --> t' :: :: red :: E_ {{ com Evaluation }} by - -------------------------------- :: IfTrue -if true then t2 else t3 --> t2 - -------------------------------- :: IfFalse -if false then t2 else t3 --> t3 - -t1 --> t1' ------------------------------------------------- :: If -if t1 then t2 else t3 --> if t1' then t2 else t3 - diff --git a/vendors/ott/examples/tapl/bool_typing.ott b/vendors/ott/examples/tapl/bool_typing.ott deleted file mode 100644 index 326dcba897a9..000000000000 --- a/vendors/ott/examples/tapl/bool_typing.ott +++ /dev/null @@ -1,27 +0,0 @@ -% TAPL [bool typing] Typed booleans - -grammar -T {{ hol Typ }}, S, U :: Ty ::= {{ com types: }} - | Bool :: :: Bool {{ com type of booleans }} - - -defns -Jtype :: '' ::= - -defn -G |- t : T :: :: typing :: T_ {{ com Typing }} by - - ------------------ :: True -G |- true : Bool - ------------------ :: False -G |- false : Bool - -G |- t1:Bool -G |- t2:T -G |- t3:T ------------------------------- :: If -G |- if t1 then t2 else t3 : T - - diff --git a/vendors/ott/examples/tapl/bot.ott b/vendors/ott/examples/tapl/bot.ott deleted file mode 100644 index e7afb1e7440a..000000000000 --- a/vendors/ott/examples/tapl/bot.ott +++ /dev/null @@ -1,12 +0,0 @@ -grammar -T {{ hol Typ }}, S, U :: Ty ::= {{ com types: }} - | Bot :: :: Bot {{ com minimum type }} - -defns -Jtype :: '' ::= - -defn -T1 <: T2 :: :: subtyping :: S_ {{ com Subtyping }} by - ---------- :: Bot -Bot <: T diff --git a/vendors/ott/examples/tapl/common.ott b/vendors/ott/examples/tapl/common.ott deleted file mode 100644 index 212c66403657..000000000000 --- a/vendors/ott/examples/tapl/common.ott +++ /dev/null @@ -1,32 +0,0 @@ -embed -{{ tex-preamble -\renewcommand{\ottnt}[1]{\mathsf{#1} } -\renewcommand{\ottkw}[1]{\textsf{#1} } -\renewcommand{\ottcom}[1]{\textit{#1} } -\renewcommand{\ottcomplu}[5]{#1\mbox{}^{\,#2\in #3 #4 #5} } -}} - -{{ coq -Require Import Ott.ott_list. (* for [all_distinct] *) -}} - - -grammar -t :: Tm ::= {{ com terms: }} - | ( t ) :: M :: Paren {{ ich [[t]] }} - -terminals :: terminals_ ::= - | --> :: :: longrightarrow {{ tex \longrightarrow }} - | -> :: :: rightarrow {{ tex \rightarrow }} - | => :: :: Rightarrow {{ tex \Rightarrow }} - | \ :: :: lambda {{ tex \lambda }} - | |-> :: :: mapsto {{ tex \mapsto }} - | |- :: :: vdash {{ tex \vdash }} - | empty :: :: varnothing {{ tex \varnothing }} - | * :: :: times {{ tex \times }} - | <: :: :: subtype {{ tex <: }} - | < :: :: langle {{ tex \langle }} - | > :: :: rangle {{ tex \rangle }} - -formula :: 'formula_' ::= - | judgement :: :: judgement diff --git a/vendors/ott/examples/tapl/common_index.ott b/vendors/ott/examples/tapl/common_index.ott deleted file mode 100644 index 49f930a79030..000000000000 --- a/vendors/ott/examples/tapl/common_index.ott +++ /dev/null @@ -1,32 +0,0 @@ -indexvar index, i, j, n, m ::= {{ isa nat }} {{ coq nat }} {{ hol num }} {{ lex numeral }} - {{ com indices }} - -grammar -formula :: formula_ ::= - | formula1 .. formulan :: :: dots - | j INDEXES t1 .. tn :: :: Indexesv - {{ coq (1 <= [[j]] /\ [[j]] <= length (unmake_list't [[t1..tn]])) }} - {{ hol (1 <= [[j]] /\ [[j]] <= LENGTH [[t1..tn]]) }} - {{ isa (1 <= [[j]] & [[j]] <= length [[t1..tn]]) }} - | j INDEXES T1 .. Tn :: :: IndexesT - {{ coq (1 <= [[j]] /\ [[j]] <= length (unmake_list'T [[T1..Tn]])) }} - {{ hol (1 <= [[j]] /\ [[j]] <= LENGTH [[T1..Tn]]) }} - {{ isa (1 <= [[j]] & [[j]] <= length [[T1..Tn]]) }} - -embed -{{ coq -(* -These definitions are a hack to make [unmake_list'T] (and similarly -[unmake_list't]) work whether native lists or specific lists are -generated by ott. We use [unmake_list'T] in homs, and that should be a -function that converts from whatever type ott uses to represent lists -of [T] to standard lists of [T]. The type [list'T] is defined just so -as to express the argument type of [unmake_list'T]. -*) -Definition list'T : Set. exact list_T || exact (list T). Defined. -Definition unmake_list'T : list'T -> list T. - exact unmake_list_T || exact (fun x => x). Defined. -Definition list't : Set. exact list_t || exact (list t). Defined. -Definition unmake_list't : list't -> list t. - exact unmake_list_t || exact (fun x => x). Defined. -}} diff --git a/vendors/ott/examples/tapl/common_labels.ott b/vendors/ott/examples/tapl/common_labels.ott deleted file mode 100644 index a00bbef5d687..000000000000 --- a/vendors/ott/examples/tapl/common_labels.ott +++ /dev/null @@ -1,27 +0,0 @@ -metavar label, l, k ::= - {{ isa string }} {{ coq nat }} {{ hol string }} {{ lex alphanum }} {{ tex \mathsf{[[label]]} }} - {{ coq-equality }} - {{ com field label }} {{ isavar ''[[label]]'' }} {{ holvar "[[label]]" }} - -grammar -formula :: formula_ ::= - | DISTINCT l1 .. ln :: :: Distinct - {{ coq (Is_true (all_distinct eq_label (unmake_list'label [[l1..ln]]))) }} - {{ hol (ALL_DISTINCT [[l1..ln]]) }} - {{ isa (distinct [[l1..ln]]) }} - -embed -%% See the comment about [unmake_list'T] in common_index.ott. -{{ coq -Definition list'label : Set. exact list_label || exact (list label). Defined. -Definition unmake_list'label : list'label -> list label. - exact unmake_list_label || exact (fun x => x). Defined. -}} - -%% We don't actually use the following nonterminal. However, it is needed -%% to work around a bug in coq code generation with -%% -coq_expand_list_types true (the type list_label is not generated). -grammar -labels :: labels_ ::= - | l1 .. ln :: :: seq - diff --git a/vendors/ott/examples/tapl/common_typing.ott b/vendors/ott/examples/tapl/common_typing.ott deleted file mode 100644 index 768bcda53f8b..000000000000 --- a/vendors/ott/examples/tapl/common_typing.ott +++ /dev/null @@ -1,37 +0,0 @@ -% (Here we represent type environments with proof assistant lists. One could -% instead use the Ott free type, or proof assistant finite maps or what have you.) - -% (The TAPL version has an implicit convention that the assumptions in G -% are for distinct variables. Here instead we always look up the -% rightmost assumption in a G. One could equally well add an explicit -% well-formedness condition to the T_Var rule.) - -grammar -G {{ tex \Gamma }} :: G_ ::= {{ com contexts: }} - {{ isa (termvar*T) list }} - {{ coq list (termvar*T) }} - {{ hol (termvar#Typ) list }} - | empty :: :: empty {{ com empty context }} - {{ isa Nil }} - {{ coq nil }} - {{ hol [] }} - | G , x : T :: :: vn {{ com term variable binding }} - {{ isa ([[x]],[[T]])#[[G]] }} - {{ coq (cons ([[x]],[[T]]) [[G]]) }} - {{ hol (([[x]],[[T]])::[[G]]) }} - - -formula :: 'formula_' ::= - | x : T in G :: :: xTG - {{ tex [[x]]:[[T]] \in [[G]] }} - {{ isa ? G1 G2. [[G]] = G1 @ ([[x]],[[T]])#G2 & [[x]]~:fst ` set G1 }} - {{ coq (bound [[x]] [[T]] [[G]]) }} - {{ hol ? G1 G2. ([[G]] = G1 ++ ([[x]],[[T]])::G2) /\ ~(MEM [[x]] (MAP FST G1)) }} - -embed -{{ coq -Definition bound x T0 G := - exists G1, exists G2, - (G = G1 ++ (x,T0)::G2)%list /\ - ~In x (List.map (@fst termvar T) G1). -}} diff --git a/vendors/ott/examples/tapl/fix.ott b/vendors/ott/examples/tapl/fix.ott deleted file mode 100644 index 51761395bcf2..000000000000 --- a/vendors/ott/examples/tapl/fix.ott +++ /dev/null @@ -1,31 +0,0 @@ -% TAPL also introduces a derived form -% letrec x:T1=t1 in t2 =def= let x = fix(\x:T1.t2) in t2 - -grammar -t :: Tm ::= {{ com terms: }} - | fix t :: :: Fix {{ com fixed point of [[t]] }} - - -defns -Jop :: '' ::= - -defn -t --> t' :: :: red :: E_ {{ com Evaluation }} by - -------------------------------------------- :: FixBeta -fix (\x:T1.t2) --> [x|->(fix (\x:T1.t2))]t2 - - -t1-->t1' ------------------- :: Fix -fix t1 --> fix t1' - -defns -Jtype :: '' ::= - -defn -G |- t : T :: :: typing :: T_ {{ com Typing }} by - -G |- t1:T1->T1 --------------- :: Fix -G |- fix t1:T1 diff --git a/vendors/ott/examples/tapl/inert.ott b/vendors/ott/examples/tapl/inert.ott deleted file mode 100644 index c01138260deb..000000000000 --- a/vendors/ott/examples/tapl/inert.ott +++ /dev/null @@ -1,14 +0,0 @@ -grammar -t :: Tm ::= {{ com terms: }} - | inert T :: :: Inert {{ com inert element of type [[T]] }} - {{ tex [[inert]]_{[[T]]} }} - -defns -Jtype :: '' ::= - -defn -G |- t : T :: :: typing :: T_ {{ com Typing }} by - - ----------------- :: Inert -G |- inert T : T diff --git a/vendors/ott/examples/tapl/let.ott b/vendors/ott/examples/tapl/let.ott deleted file mode 100644 index 374c9a8bb7e6..000000000000 --- a/vendors/ott/examples/tapl/let.ott +++ /dev/null @@ -1,30 +0,0 @@ -grammar -t :: Tm ::= {{ com terms: }} - | let x = t in t' :: :: Let (+ bind x in t' +) {{ com let binding }} - - -defns -Jop :: '' ::= - -defn -t --> t' :: :: red :: E_ {{ com Evaluation }} by - ------------------------------ :: LetV -let x=v1 in t2 --> [x|->v1]t2 - -t1 --> t1' ----------------------------------- :: Let -let x=t1 in t2 --> let x=t1' in t2 - - -defns - -Jtype :: '' ::= - -defn -G |- t : T :: :: typing :: T_ {{ com Typing }} by - -G |- t1:T1 -G,x:T1 |- t2:T2 ------------------------- :: Let -G |- let x=t1 in t2 : T2 diff --git a/vendors/ott/examples/tapl/let_alltt.ott b/vendors/ott/examples/tapl/let_alltt.ott deleted file mode 100644 index bb38d3b39584..000000000000 --- a/vendors/ott/examples/tapl/let_alltt.ott +++ /dev/null @@ -1,29 +0,0 @@ -\par\noindent{\begin{alltt} -\mybf{grammar} -t \mybf{::} Tm \mybf{::=} \mylblb{} \mybf{com} terms: \myrbrb{} - \mybf{|} let x = t in t' \mybf{::} \mybf{::} Let \mybf{(+} \mybf{bind} x \mybf{in} t' \mybf{+)} - \mylblb{} \mybf{com} let binding \myrbrb{} -\mybf{defns} -Jop \mybf{::} '' \mybf{::=} - - \mybf{defn} - t --> t' \mybf{::} \mybf{::} red \mybf{::} E\_ \mylblb{} \mybf{com} Evaluation \myrbrb{} \mybf{by} - - \mybf{-----------------------------} \mybf{::} LetV - let x=v1 in t2 --> [x|->v1]t2 - - t1 --> t1' - \mybf{----------------------------------} \mybf{::} Let - let x=t1 in t2 --> let x=t1' in t2 - -\mybf{defns} -Jtype \mybf{::} '' \mybf{::=} - - \mybf{defn} - G |- t : T \mybf{::} \mybf{::} typing \mybf{::} T\_ \mylblb{} \mybf{com} Typing \myrbrb{} \mybf{by} - - G |- t1:T1 - G,x:T1 |- t2:T2 - \mybf{------------------------} \mybf{::} Let - G |- let x=t1 in t2 : T2 -\end{alltt}}\noindent \ No newline at end of file diff --git a/vendors/ott/examples/tapl/nat.ott b/vendors/ott/examples/tapl/nat.ott deleted file mode 100644 index a0bd74a7ce51..000000000000 --- a/vendors/ott/examples/tapl/nat.ott +++ /dev/null @@ -1,52 +0,0 @@ -% TAPL [nat] Arithmetic expressions, p41 -% -% (the TAPL definition introduces a syntactic category of numeric values, -% nv ::= 0 | succ nv, with nv a production of the value grammar. The Ott -% subrule check would not admit that that value grammar is a subgrammar -% of the t grammar, so here we flatten occurrences of nv onto v. That -% introduces some junk values, of course.) - -grammar -t :: Tm ::= {{ com terms: }} - | 0 :: :: Zero {{ com constant zero }} - | succ t :: :: Succ {{ com successor }} - | pred t :: :: Pred {{ com predecessor }} - | iszero t :: :: Iszero {{ com zero test }} - -v :: Va ::= {{ com values: }} - | 0 :: :: Zero {{ com zero value }} - | succ v :: :: Succ {{ com successor value }} - - -subrules -v <:: t - -defns -Jop :: '' ::= - -defn -t --> t' :: :: red :: E_ {{ com Evaluation }} by - -t1 --> t1' --------------------- :: Succ -succ t1 --> succ t1' - ------------- :: PredZero -pred 0 --> 0 - ---------------------- :: PredSucc -pred (succ v1) --> v1 - -t1 --> t1' --------------------- :: Pred -pred t1 --> pred t1' - ------------------ :: IsZeroZero -iszero 0 --> true - --------------------------- :: IsZeroSucc -iszero (succ v1) --> false - -t1 --> t1' ------------------------- :: IsZero -iszero t1 --> iszero t1' diff --git a/vendors/ott/examples/tapl/nat_typing.ott b/vendors/ott/examples/tapl/nat_typing.ott deleted file mode 100644 index feb9023aeae7..000000000000 --- a/vendors/ott/examples/tapl/nat_typing.ott +++ /dev/null @@ -1,24 +0,0 @@ -grammar -T {{ hol Typ }}, S, U :: Ty ::= {{ com types: }} - | Nat :: :: Nat {{ com type of natural numbers }} - -defns -Jtype :: '' ::= - -defn -G |- t : T :: :: typing :: T_ {{ com Typing }} by - ------------------- :: Zero -G |- 0 : Nat - -G |- t1 : Nat ------------------- :: Succ -G |- succ t1 : Nat - -G |- t1 : Nat ------------------- :: Pred -G |- pred t1 : Nat - -G |- t1 : Nat ---------------------- :: IsZero -G |- iszero t1 : Bool diff --git a/vendors/ott/examples/tapl/product.ott b/vendors/ott/examples/tapl/product.ott deleted file mode 100644 index f670d9560187..000000000000 --- a/vendors/ott/examples/tapl/product.ott +++ /dev/null @@ -1,69 +0,0 @@ -% The TAPL E-Tuple rule uses a slightly different indexing form, -% {li=vi ^{i IN 1..j-1}, lj=tj, lk=tk^{k IN j+1..n} -% which ott does not support, so that rule is slightly rephrased here. - -% The rules include several :TmPair: hints to the parser. These are needed -% only to disambiguate these pairs from tuples, in the (artificial) case in -% which we build a language containing both. - -grammar -T {{ hol Typ }}, S, U :: Ty ::= {{ com types: }} - | T1 * T2 :: :: Pair {{ com product type }} - -t :: Tm ::= {{ com terms: }} - | { t1 , t2 } :: :: Pair {{ com pair }} - | t . 1 :: :: Proj1 {{ com first projection }} - | t . 2 :: :: Proj2 {{ com second projection }} - -v :: Va ::= {{ com values: }} - | { v1 , v2 } :: :: Pair {{ com pair value }} - - -defns -Jop :: '' ::= - -defn -t --> t' :: :: red :: E_ {{ com Evaluation }} by - ----------------- :: PairBeta1 -:TmPair: {v1,v2}.1 --> v1 - ----------------- :: PairBeta2 -:TmPair: {v1,v2}.2 --> v2 - -t1 --> t1' --------------- :: Proj1 -t1.1 --> t1'.1 - -t1 --> t1' --------------- :: Proj2 -t1.2 --> t1'.2 - -t1 --> t1' --------------------- :: Pair1 -:TmPair: {t1,t2} --> :TmPair: {t1',t2} - -t2 --> t2' --------------------- :: Pair2 -:TmPair: {v1,t2} --> :TmPair: {v1,t2'} - - - -defns -Jtype :: '' ::= - -defn -G |- t : T :: :: typing :: T_ {{ com Typing }} by - -G|-t1:T1 -G|-t2:T2 ------------------ :: Pair -G|- :TmPair: {t1,t2}:T1*T2 - -G|- t1:T1*T2 -------------- :: Proj1 -G|- t1.1 : T1 - -G|- t1:T1*T2 -------------- :: Proj2 -G|- t1.2 : T2 diff --git a/vendors/ott/examples/tapl/record.ott b/vendors/ott/examples/tapl/record.ott deleted file mode 100644 index 9c2e22052cd4..000000000000 --- a/vendors/ott/examples/tapl/record.ott +++ /dev/null @@ -1,52 +0,0 @@ -% The TAPL E-Rcd rule uses a slightly different indexing form, -% {li=vi ^{i IN 1..j-1}, lj=tj, lk=tk^{k IN j+1..n} -% which ott does not support, so that rule is slightly rephrased here. - -grammar -T {{ hol Typ }}, S, U :: Ty ::= {{ com types: }} - | { } :: :: Record {{ com type of records }} - -t :: Tm ::= {{ com terms: }} - | { } :: :: Record {{ com record }} - | t . l :: :: Proj {{ com projection }} - -v :: Va ::= {{ com values: }} - | { } :: :: Record {{ com record value }} - - -subrules - v <:: t - -defns -Jop :: '' ::= - -defn -t --> t' :: :: red :: E_ {{ com Evaluation }} by - ----------------------------------- :: ProjRcd -{ }.lj --> vj - -t1 --> t1' --------------- :: Proj -t1.l --> t1'.l - -t --> t' ------------------------------------------------------------------------- :: Rcd -{ ,l=t,} --> { ,l=t',} - - - -defns -Jtype :: '' ::= - -defn -G |- t : T :: :: typing :: T_ {{ com Typing }} by - - -DISTINCT ------------------------------------------------------------ :: Rcd -G|- { }:{ } - -G|- t1:{ } ------------------------------------ :: Proj -G|- t1.lj : Tj diff --git a/vendors/ott/examples/tapl/record_with_explicit_types.ott b/vendors/ott/examples/tapl/record_with_explicit_types.ott deleted file mode 100644 index 66006f0ee283..000000000000 --- a/vendors/ott/examples/tapl/record_with_explicit_types.ott +++ /dev/null @@ -1,66 +0,0 @@ -% t involves a list type, T depends on t, and T also involves a list type -% t and v have mutually recursive is_foo functions -% there's a substitution - - -metavar termvar, x ::= - {{ isa string }} {{ coq nat }} {{ coq-equality }} {{ hol string }} - {{ lex alphanum }} {{ tex \mathsf{[[termvar]]} }} - - -grammar -T {{ hol Typ }}, S, U :: Ty ::= {{ com types: }} - | { } :: :: Record {{ com type of records }} - -t :: Tm ::= {{ com terms: }} - | x :: :: Var {{ com variable }} - | { } :: :: Record {{ com record }} - | t . l :: :: Proj {{ com projection }} - | value v :: :: Value {{ com value }} - -v :: Va ::= {{ com values: }} - | { } :: :: Record {{ com record value }} - - -subrules - v <:: t - -substitutions - single t x :: sub - -defns -Jop :: '' ::= - -defn -t --> t' :: :: red :: E_ {{ com Evaluation }} by - ----------------------------------- :: ProjRcd -{ }.lj --> vj - -t1 --> t1' --------------- :: Proj -t1.l --> t1'.l - -t --> t' ------------------------------------------------------------------------- :: Rcd -{ ,l=t:T,} --> { ,l=t':T,} - - - -defns -Jtype :: '' ::= - -defn -G |- t : T :: :: typing :: T_ {{ com Typing }} by - - ------------------------------------------------------------ :: Rcd -G|- { }:{ } - -G|- t1:{ } ------------------------------------ :: Proj -G|- t1.lj : Tj - -G|- v:T ------------- :: Value -G|- value v : T diff --git a/vendors/ott/examples/tapl/seq.ott b/vendors/ott/examples/tapl/seq.ott deleted file mode 100644 index 4958dc800257..000000000000 --- a/vendors/ott/examples/tapl/seq.ott +++ /dev/null @@ -1,29 +0,0 @@ -grammar -t :: Tm ::= {{ com terms: }} - | t1 ; t2 :: :: Seq {{ com sequencing }} - - -defns -Jop :: '' ::= - -defn -t --> t' :: :: red :: E_ {{ com Evaluation }} by - -t1 --> t1' ----------------- :: Seq -t1;t2 --> t1';t2 - --------------- :: SeqNext -unit;t2 --> t2 - - -defns -Jtype :: '' ::= - -defn -G |- t : T :: :: typing :: T_ {{ com Typing }} by - -G |- t1:Unit -G |- t2:T2 ----------------- :: Seq -G |- t1;t2 : T2 diff --git a/vendors/ott/examples/tapl/sub_arrow.ott b/vendors/ott/examples/tapl/sub_arrow.ott deleted file mode 100644 index cb6eb59ae16d..000000000000 --- a/vendors/ott/examples/tapl/sub_arrow.ott +++ /dev/null @@ -1,27 +0,0 @@ -defns -Jtype :: '' ::= - -defn -G |- t : T :: :: typing :: T_ {{ com Typing }} by - -G |- t:S -S<:T ----------- :: Sub -G |- t:T - - -defn -T1 <: T2 :: :: subtyping :: S_ {{ com Subtyping }} by - ------- :: Refl -S <: S - -S <: U -U <: T ------- :: Trans -S <: T - -T1 <: S1 -S2 <: T2 ----------------- :: Arrow -S1->S2 <: T1->T2 diff --git a/vendors/ott/examples/tapl/sub_record.ott b/vendors/ott/examples/tapl/sub_record.ott deleted file mode 100644 index 0111a6c06db4..000000000000 --- a/vendors/ott/examples/tapl/sub_record.ott +++ /dev/null @@ -1,27 +0,0 @@ -grammar -formula :: 'formula_' ::= - | T1 is a permutation of T2 :: :: perm {{ ich TODO }} - -defns -Jtype :: '' ::= - - - -defn -T1 <: T2 :: :: subtyping :: S_ {{ com Subtyping }} by - - - --------------------- :: RcdWidth -{ , } <: { } - - --------------------- :: RcdDepth -{ } <:{ } - - -{} is a permutation of {} --------------------- :: RcdPerm -{} <: {} - - diff --git a/vendors/ott/examples/tapl/sum.ott b/vendors/ott/examples/tapl/sum.ott deleted file mode 100644 index cb56777ba074..000000000000 --- a/vendors/ott/examples/tapl/sum.ott +++ /dev/null @@ -1,65 +0,0 @@ -% - we add binding in a case -% - the Case constructor and rule names have "Sm" appended to avoid a clash with variants - -grammar -T {{ hol Typ }}, S, U :: Ty ::= {{ com types: }} - | T1 + T2 :: :: Sum {{ com sum type }} - -t :: Tm ::= {{ com terms: }} - | inl t :: :: Inl {{ com tagging (left) }} - | inr t :: :: Inr {{ com tagging (right) }} - | case t of inl x1 => t1 | inr x2 => t2 :: :: CaseSm - (+ bind x1 in t1 +) (+ bind x2 in t2 +) {{ com case }} - -v :: Va ::= {{ com values: }} - | inl v :: :: Inl {{ com tagged value (left) }} - | inr v :: :: Inr {{ com tagged value (right) }} - - - - -defns -Jop :: '' ::= - -defn -t --> t' :: :: red :: E_ {{ com Evaluation }} by - ------------------------------------------------------------------ :: CaseInl -case ( inl v0 ) of inl x1=>t1 | inr x2=>t2 --> [x1 |-> v0]t1 - ------------------------------------------------------------------ :: CaseInr -case ( inr v0 ) of inl x1=>t1 | inr x2=>t2 --> [x2 |-> v0]t2 - -t0 --> t0' --------------------------------------------------------------------------- :: CaseSm -case t0 of inl x1=>t1 | inr x2=>t2 --> case t0' of inl x1=>t1 | inr x2=>t2 - -t1 --> t1' ------------------- :: Inl -inl t1 --> inl t1' - -t1 --> t1' ------------------- :: Inr -inr t1 --> inr t1' - - - -defns -Jtype :: '' ::= - -defn -G |- t : T :: :: typing :: T_ {{ com Typing }} by - -G |- t1 : T1 ------------------- :: Inl -G|- inl t1 : T1+T2 - -G |- t1 : T2 ------------------- :: Inr -G|- inr t1 : T1+T2 - -G |- t0 : T1+T2 -G,x1:T1|- t1:T -G,x2:T2|- t2:T ------------------------------------------- :: CaseSm -G|- case t0 of inl x1=>t1 | inr x2=>t2 : T diff --git a/vendors/ott/examples/tapl/top.ott b/vendors/ott/examples/tapl/top.ott deleted file mode 100644 index 79053959c736..000000000000 --- a/vendors/ott/examples/tapl/top.ott +++ /dev/null @@ -1,12 +0,0 @@ -grammar -T {{ hol Typ }}, S, U :: Ty ::= {{ com types: }} - | Top :: :: Top {{ com maximum type }} - -defns -Jtype :: '' ::= - -defn -T1 <: T2 :: :: subtyping :: S_ {{ com Subtyping }} by - ---------- :: Top -S <: Top diff --git a/vendors/ott/examples/tapl/tuple.ott b/vendors/ott/examples/tapl/tuple.ott deleted file mode 100644 index b1aa8615b220..000000000000 --- a/vendors/ott/examples/tapl/tuple.ott +++ /dev/null @@ -1,52 +0,0 @@ -% The TAPL E-Tuple rule uses a slightly different indexing form, -% {li=vi ^{i IN 1..j-1}, lj=tj, lk=tk^{k IN j+1..n} -% which ott does not support, so that rule is slightly rephrased here. - -grammar -T {{ hol Typ }}, S, U :: Ty ::= {{ com types: }} - | { } :: :: Tuple {{ com tuple type }} - -t :: Tm ::= {{ com terms: }} - | { } :: :: Tuple {{ com tuple }} - | t . i :: :: ProjTp {{ com projection }} - -v :: Va ::= {{ com values: }} - | { } :: :: Tuple {{ com tuple value }} - -subrules - v <:: t - -defns -Jop :: '' ::= - -defn -t --> t' :: :: red :: E_ {{ com Evaluation }} by - -j INDEXES ----------------------------------- :: ProjTuple -{ }.j --> vj - -t1 --> t1' --------------- :: ProjTp -t1.i --> t1'.i - -t --> t' ------------------------------------------------------------------------- :: Tuple -{ ,t,} --> { ,t',} - - - -defns -Jtype :: '' ::= - -defn -G |- t : T :: :: typing :: T_ {{ com Typing }} by - - ------------------------------------------------------------ :: Tuple -G|- { }:{ } - -G|- t1:{ } -j INDEXES ------------------------------------ :: ProjTp -G|- t1.j : Tj diff --git a/vendors/ott/examples/tapl/tuples.ott b/vendors/ott/examples/tapl/tuples.ott deleted file mode 100644 index 8b137891791f..000000000000 --- a/vendors/ott/examples/tapl/tuples.ott +++ /dev/null @@ -1 +0,0 @@ - diff --git a/vendors/ott/examples/tapl/unit.ott b/vendors/ott/examples/tapl/unit.ott deleted file mode 100644 index 1503f5b2a76b..000000000000 --- a/vendors/ott/examples/tapl/unit.ott +++ /dev/null @@ -1,23 +0,0 @@ -% The TAPL text also introduces sugar -% | t1 ; t2 :: S :: [[ (\x:Unit.t2) t1 where x notin FV(t2) ]] - - -grammar -t :: Tm ::= {{ com terms: }} - | unit :: :: Unit {{ com constant [[unit]] }} - -v :: Va ::= {{ com values: }} - | unit :: :: Unit {{ com unit value }} - -T :: Ty ::= {{ com types: }} - | Unit :: :: Unit {{ com unit type }} - -defns -Jtype :: '' ::= - -defn -G |- t : T :: :: typing :: T_ {{ com Typing }} by - - ------------------ :: Unit -G |- unit : Unit diff --git a/vendors/ott/examples/tapl/variant.ott b/vendors/ott/examples/tapl/variant.ott deleted file mode 100644 index 1cfc6b6966c1..000000000000 --- a/vendors/ott/examples/tapl/variant.ott +++ /dev/null @@ -1,58 +0,0 @@ -% The TAPL variants, p136, don't introduce a new value form. Here we do - -% The case term from TAPL would read "case t of => ti // | // i IN 1 .. n />", but -% ott doesn't support the (+ bind xi in ti +) bindspec, so the auxiliary production C is used below. - -% In the E_Case rule the premise here is t-->t', not involving a subscripted t, -% to avoid clashing (The TAPL uses a t0-->t0' which here would be misinterpreted.). - -grammar -T {{ hol Typ }}, S, U :: Ty ::= {{ com types: }} - | < > :: :: Variant {{ com type of variants }} - -t :: Tm ::= {{ com terms: }} - | < l = t > as T :: :: Variant {{ com tagging }} - | case t of :: :: Case {{ com case }} - -C :: C ::= - | < l = x > => t :: :: Case (+ bind x in t +) - -v :: Va ::= {{ com values: }} - | < l = v > as T :: :: Variant {{ com tagged value }} - -defns -Jop :: '' ::= - -defn -t --> t' :: :: red :: E_ {{ com Evaluation }} by - -j INDEXES ---------------------------------------------------------------------- :: CaseVariant -case ( as T ) of => ti //i IN 1..n/> --> [xj |-> v]tj - -t --> t' ------------------------------------------------------------------------------------- :: Case -case t of => ti //i IN 1..n/> --> case t' of => ti //i IN 1..n/> - -ti --> ti' ------------------------------- :: Variant - as T --> as T - - - -defns -Jtype :: '' ::= - -defn -G |- t : T :: :: typing :: T_ {{ com Typing }} by - -G |- t : Tj -j INDEXES --------------------------------------------------------------------------- :: Variant -G|- as < > : < > - -G |- t : < > - -DISTINCT ------------------------------------------------ :: Case -G|- case t of => ti //i IN 1..n/> : T diff --git a/vendors/ott/hol/Makefile b/vendors/ott/hol/Makefile deleted file mode 100644 index a3db82b7b193..000000000000 --- a/vendors/ott/hol/Makefile +++ /dev/null @@ -1,5 +0,0 @@ -all: - Holmake - -clean: - rm -f *Theory.* *.ui *.uo diff --git a/vendors/ott/hol/ottLib.sig b/vendors/ott/hol/ottLib.sig deleted file mode 100644 index 580d503992da..000000000000 --- a/vendors/ott/hol/ottLib.sig +++ /dev/null @@ -1,10 +0,0 @@ -signature ottLib = sig - type thm = Thm.thm; - type term = Term.term; - type 'a frag = 'a Portable.frag; - val ottDefine : string -> term frag list -> thm - val RULE_INDUCT_TAC : Thm.thm -> Thm.thm list -> (Term.term list * Tactic.tactic) list -> Tactic.tactic - val INDUCT_TAC : Thm.thm -> Thm.thm list -> (Term.term list * Tactic.tactic) list -> Tactic.tactic - val get_terms : Thm.thm -> Term.term list - val structural_cases : Thm.thm list -> int -> Term.term list list -> Thm.thm -> Thm.thm -end diff --git a/vendors/ott/hol/ottLib.sml b/vendors/ott/hol/ottLib.sml deleted file mode 100644 index 2a52f408eec2..000000000000 --- a/vendors/ott/hol/ottLib.sml +++ /dev/null @@ -1,167 +0,0 @@ -(**************************************************************************) -(* ottLib *) -(* *) -(* Scott Owens, Computer Laboratory, University of Cambridge *) -(* *) -(* Copyright 2006 *) -(* *) -(* Redistribution and use in source and binary forms, with or without *) -(* modification, are permitted provided that the following conditions *) -(* are met: *) -(* 1. Redistributions of source code must retain the above copyright *) -(* notice, this list of conditions and the following disclaimer. *) -(* 2. Redistributions in binary form must reproduce the above copyright *) -(* notice, this list of conditions and the following disclaimer in the *) -(* documentation and/or other materials provided with the distribution. *) -(* 3. The names of the authors may not be used to endorse or promote *) -(* products derived from this software without specific prior written *) -(* permission. *) -(* *) -(* THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS *) -(* OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED *) -(* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE *) -(* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY *) -(* DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL *) -(* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE *) -(* GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS *) -(* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER *) -(* IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR *) -(* OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN *) -(* IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. *) -(**************************************************************************) - -structure ottLib :> ottLib = struct - -infix THEN - -open numSyntax listSyntax pairSyntax listTheory HolKernel bossLib boolLib Defn; -open ottTheory; - -fun inst_filter_size tm = - case total (PART_MATCH (fst o dest_leq) filter_size) tm of - NONE => - if is_comb tm then - let val (f, args) = strip_comb tm in - inst_filter_size f @ List.concat (List.map inst_filter_size args) - end - else - [] - | SOME thm => [thm]; - -fun APPLY_FILTER_SIZE (assums, g) = - case inst_filter_size g of - [] => ALL_TAC (assums, g) - | l => (MAP_EVERY STRIP_ASSUME_TAC l) (assums, g); - -fun find_list t = - if is_var t then - t - else if is_map t then - find_list (snd (dest_map t)) - else - t; - -fun PAIR_CASES_TAC (a, g) = - case total dest_prod (type_of (fst (dest_forall g))) of - NONE => ALL_TAC (a, g) - | SOME _ => Cases (a, g); - - -fun MEM_IND_TAC mem = -let val (arg1, arg2) = dest_mem mem - val lst = find_list arg2 -in - PAT_ASSUM mem (fn ma => REPEAT (POP_ASSUM MP_TAC) THEN MP_TAC ma) THEN - SPEC_TAC (lst, genvar (type_of lst)) THEN - HO_MATCH_MP_TAC list_induction THEN STRIP_TAC THENL - [ALL_TAC, STRIP_TAC THEN STRIP_TAC THEN PAIR_CASES_TAC] THEN - SRW_TAC [] [] THEN - CONV_TAC TotalDefn.TC_SIMP_CONV THEN - SRW_TAC [] [] THEN - RES_TAC THEN - DECIDE_TAC THEN NO_TAC -end; - -fun ONE_TERM_TAC measure = - WF_REL_TAC `^measure` THEN - CONV_TAC TotalDefn.TC_SIMP_CONV THEN - SRW_TAC [] [] THEN - APPLY_FILTER_SIZE THEN - TRY (ASSUM_LIST (MAP_FIRST MEM_IND_TAC o List.filter is_mem o List.map concl)) - THEN - RES_TAC THEN DECIDE_TAC THEN NO_TAC; - -fun TERM_TAC defn = (MAP_FIRST ONE_TERM_TAC (TotalDefn.guessR defn)); - -fun ottDefine name tq = - let val defn = Hol_defn name tq in - if not (null (tcs_of defn)) then - fst (tstore_defn (defn, TERM_TAC defn)) - else - (save_defn defn; - LIST_CONJ (eqns_of defn)) - end; - -(* Adapted from THENL *) -fun mapshape [] _ _ = [] - | mapshape (n1::nums) (f1::funcs) args = - let val (f1_args,args') = split_after n1 args - in f1 f1_args :: mapshape nums funcs args' - end; - -fun mk_branch_name (consts, TAC) = -((fn (assums, g) => - let val (cn, goal_name) = (dest_comb o hd o strip_conj o fst o dest_imp o snd o strip_forall) g in - same_const ``clause_name`` cn andalso - List.exists (fn tm => term_eq goal_name tm) consts - end), - TAC); - -fun mk_branch (consts, TAC) = -((fn (assums, g) => List.exists (fn const => can (find_term (can (match_term const))) g) consts), - TAC); - -fun THENcases (rws:thm list) (tac1:tactic) (branches:((term list * term -> bool) * tactic) list) : tactic = -fn g => -let val tac2 = SIMP_TAC (srw_ss()) rws; - fun apply_branch subgoal = - case List.find (fn (pred, T) => pred subgoal) branches of - NONE => tac2 subgoal - | SOME (pred, T) => - (case (tac2 THEN T) subgoal of - ([], vf) => let val th = vf [] in ([], fn [] => th) end - | x => x); - val (gl, vf) = tac1 g; - val (G,V,lengths) = - itlist (fn goal => fn (G,V,lengths) => - let val (goals, vfun) = apply_branch goal in - (goals@G, vfun::V, length goals::lengths) - end) - gl - ([],[],[]); -in - case G of - [] => ([], let val th = vf (map (fn f => f[]) V) in fn [] => th end) - | _ => (G, (vf o mapshape lengths V)) -end -handle e as HOL_ERR _ => raise (wrap_exn "Tactical" "THENcases" e); - -fun RULE_INDUCT_TAC (ind:thm) (rws:thm list) (spec:(term list * tactic) list) : tactic = - THENcases rws (HO_MATCH_MP_TAC ind THEN REPEAT CONJ_TAC) (List.map mk_branch_name spec); - -fun INDUCT_TAC (ind:thm) (rws:thm list) (spec:(term list * tactic) list) : tactic = - THENcases rws (HO_MATCH_MP_TAC ind THEN REPEAT CONJ_TAC) (List.map mk_branch spec); - -fun get_terms f = - List.map (hd o snd o strip_comb o hd o snd o strip_comb o concl o SPEC_ALL) (CONJUNCTS f) - -fun structural_cases datatype_thms arg cases thm = - let fun helper (terms, thm) = - let val thm1 = LIST_CONJ (List.map (fn qt => (GEN_ALL o SPEC qt o funpow arg Q.ID_SPEC) thm) terms) - in SIMP_RULE bool_ss datatype_thms thm1 end - in - LIST_CONJ (ListPair.map helper (cases, CONJUNCTS thm)) - end; - - -end diff --git a/vendors/ott/hol/ottScript.sml b/vendors/ott/hol/ottScript.sml deleted file mode 100644 index 3e4f684fce2b..000000000000 --- a/vendors/ott/hol/ottScript.sml +++ /dev/null @@ -1,80 +0,0 @@ -open HolKernel boolLib Parse bossLib pairTheory optionTheory stringTheory; - -val _ = new_theory "ott"; - -val list_minus_def = Define -`(list_minus [] ys = []) /\ - (list_minus (x::xs) ys = (if ~(MEM x ys) then x::(list_minus xs ys) else list_minus xs ys))`; - -val list_minus_thm = Q.store_thm ("list_minus_thm", -`!l x. MEM x (list_minus l l') = MEM x l /\ ~MEM x l'`, -Induct THEN RW_TAC list_ss [list_minus_def] THEN METIS_TAC []); - -val list_minus_append = Q.store_thm ("list_minus_append", -`!l1 l2 l3. list_minus (l1++l2) l3 = list_minus l1 l3 ++ list_minus l2 l3`, -Induct THEN RW_TAC list_ss [list_minus_def]); - -val list_assoc_def = Define -`(list_assoc x [] = NONE) /\ - (list_assoc x ((x',y')::xys) = (if x=x' then SOME y' else list_assoc x xys))`; - -val list_assoc_mem = Q.store_thm ("list_assoc_mem", -`!l x y. (list_assoc x l = SOME y) ==> MEM (x,y) l`, -Induct THEN FULL_SIMP_TAC list_ss [list_assoc_def] THEN Cases_on `h` THEN RW_TAC list_ss [list_assoc_def]); - -val list_assoc_not_mem = Q.store_thm ("list_assoc_not_mem", -`!l x y. (list_assoc x l = NONE) ==> ~MEM (x,y) l`, -Induct THEN FULL_SIMP_TAC list_ss [list_assoc_def] THEN Cases_on `h` THEN RW_TAC list_ss [list_assoc_def]); - -val list_assoc_split = Q.store_thm ("list_assoc_split", -`!l x y. (list_assoc x l = SOME y) = ?l1 l2. (l = l1++(x,y)::l2) /\ ~MEM x (MAP FST l1)`, -Induct THEN RW_TAC list_ss [list_assoc_def] THEN Cases_on `h` THEN RW_TAC list_ss [list_assoc_def] THEN -EQ_TAC THEN RW_TAC list_ss [] THENL -[MAP_EVERY Q.EXISTS_TAC [`[]`, `l`] THEN RW_TAC list_ss [], - Cases_on `l1` THEN FULL_SIMP_TAC list_ss [] THEN RW_TAC list_ss [] THEN FULL_SIMP_TAC list_ss [], - MAP_EVERY Q.EXISTS_TAC [`(q,r)::l1`, `l2`] THEN RW_TAC list_ss [], - Cases_on `l1` THEN FULL_SIMP_TAC list_ss [] THEN METIS_TAC []]); - -val list_assoc_append = Q.store_thm ("list_assoc_append", -`!l1 l2 x. list_assoc x (l1++l2) = - case list_assoc x l1 of - SOME y => SOME y - | NONE => list_assoc x l2`, -Induct THEN RW_TAC list_ss [list_assoc_def] THEN Cases_on `h` THEN RW_TAC list_ss [list_assoc_def]); - -val mem_list_assoc = Q.store_thm ("mem_list_assoc", -`!l x. MEM x (MAP FST l) ==> ?y. list_assoc x l = SOME y`, -Induct THEN RW_TAC list_ss [list_assoc_def] THEN Cases_on `h` THEN RW_TAC list_ss [list_assoc_def]); - -val not_mem_list_assoc = Q.store_thm ("not_mem_list_assoc", -`!l x. ~MEM x (MAP FST l) ==> (list_assoc x l = NONE)`, -Induct THEN RW_TAC list_ss [list_assoc_def] THEN Cases_on `h` THEN RW_TAC list_ss [list_assoc_def] THEN -METIS_TAC [FST]); - -val list_assoc_distinct_reverse = Q.store_thm ("list_assoc_distinct_reverse", -`!l. ALL_DISTINCT (MAP FST l) ==> !x. list_assoc x (REVERSE l) = list_assoc x l`, -Induct THEN RW_TAC list_ss [list_assoc_def, list_assoc_append] THEN Cases_on `h` THEN -RW_TAC list_ss [list_assoc_def] THEN FULL_SIMP_TAC list_ss [] THENL -[METIS_TAC [not_mem_list_assoc, option_case_def], - Cases_on `list_assoc x l` THEN RW_TAC list_ss []]); - -val list_assoc_map = Q.store_thm ("list_assoc_map", -`!l x f. (list_assoc x (MAP (\z. (FST z, f (SND z))) l) = OPTION_MAP f (list_assoc x l))`, -Induct THEN RW_TAC list_ss [list_assoc_def] THEN Cases_on `h` THEN RW_TAC list_ss [list_assoc_def] THEN -METIS_TAC [FST]); - -val mono_every_id_thm = Q.store_thm ("mono_every_id_thm", -`(!x. P x ==> Q x) ==> EVERY (\x. x) (MAP P l) ==> EVERY (\x. x) (MAP Q l)`, -Induct_on `l` THEN RW_TAC list_ss [] THEN METIS_TAC []); - -val _ = IndDefLib.export_mono "mono_every_id_thm" - -val filter_size = Q.store_thm ("filter_size", -`!l f size. list_size size (FILTER f l) <= list_size size l`, -Induct THEN RW_TAC list_ss [listTheory.list_size_def] THEN -Q.PAT_ASSUM `!f' size. g f' size` (STRIP_ASSUME_TAC o (Q.SPECL [`f`, `size`])) THEN -DECIDE_TAC); - -val clause_name = Define `clause_name (x:string) = T`; - -val _ = export_theory(); diff --git a/vendors/ott/menhir/menhir_library_extra.mly b/vendors/ott/menhir/menhir_library_extra.mly deleted file mode 100644 index 4f15a5d63a27..000000000000 --- a/vendors/ott/menhir/menhir_library_extra.mly +++ /dev/null @@ -1,73 +0,0 @@ -/**************************************************************************/ -/* */ -/* Menhir */ -/* */ -/* François Pottier, INRIA Paris-Rocquencourt */ -/* Yann Régis-Gianas, PPS, Université Paris Diderot */ -/* */ -/* Copyright 2005-2015 Institut National de Recherche en Informatique */ -/* et en Automatique. All rights reserved. This file is distributed */ -/* under the terms of the GNU Library General Public License, with the */ -/* special exception on linking described in file LICENSE. */ -/* */ -/**************************************************************************/ - -/* nonempty2 variants of the menhir standard library lists, Peter Sewell, 2017-05 */ - -%% - -(* [nonempty2_list(X)] recognizes a list of two or more [X]'s. It produces - a value of type ['a list] if [X] produces a value of type ['a]. The - front element of the list is the first element that was parsed. *) - -%public nonempty2_list(X): - x1 = X x2 = X - { [ x1 ; x2 ] } -| x = X; xs = nonempty2_list(X) - { x :: xs } - -(* [separated_nonempty2_list(separator, X)] recognizes list of - two or more [X]'s, separated with [separator]'s. It produces a value of type - ['a list] if [X] produces a value of type ['a]. The front element - of the list is the first element that was parsed. *) - -%public separated_nonempty2_list(separator, X): - x1 = X; separator; x2 = X - { [ x1; x2 ] } -| x = X; separator; xs = separated_nonempty2_list(separator, X) - { x :: xs } - - - -(* [tuple(X1, .... ,Xn)] recognizes the sequence [X1 X2]. It produces a value of - type ['a1 * .... * 'an] if each [Xi] produces values of type ['ai]. *) - -%public %inline tuple2(X1, X2): - x1 = X1; x2 = X2 - { (x1, x2) } - -%public %inline tuple3(X1, X2, X3): - x1 = X1; x2 = X2; x3 = X3 - { (x1, x2, x3) } - -%public %inline tuple4(X1, X2, X3, X4): - x1 = X1; x2 = X2; x3 = X3; x4 = X4 - { (x1, x2, x3, x4) } - -%public %inline tuple5(X1, X2, X3, X4, X5): - x1 = X1; x2 = X2; x3 = X3; x4 = X4; x5 = X5 - { (x1, x2, x3, x4, x5, x6) } - -%public %inline tuple6(X1, X2, X3, X4, X5, X6): - x1 = X1; x2 = X2; x3 = X3; x4 = X4; x5 = X5; x6 = X6 - { (x1, x2, x3, x4, x5, x6) } - -%public %inline tuple7(X1, X2, X3, X4, X5, X6, X7): - x1 = X1; x2 = X2; x3 = X3; x4 = X4; x5 = X5; x6 = X6; x7=X7 - { (x1, x2, x3, x4, x5, x6, x7) } - - -%% - - - diff --git a/vendors/ott/ocamlgraph-1.7.tar.gz b/vendors/ott/ocamlgraph-1.7.tar.gz deleted file mode 100644 index 91269ff6051214e10ca070a409a2ef99333e5ded..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 236906 zcmb2|=HR$`EX9|JIX^iuHz&O)u^>a&P|sYiB(aF$&EA(u(&n2qZ0e6LcPN=8_%eWJ z_N^SPQ$6C5-}c_?dum}Ee(_=MMBi1(lg@7N^pZOMy>kEYA6W-)af|ErP2M6rTVtB6H&rfH!m%hC_`pfQ(yM5<>I)C3LKmGLQ zZQHj=1)RHm>sIC;-#35W8vmJjOt@a>$o*Z3`{jR4E{xmhXVB61@&3P@dZqF|=MOzB zk3aAuzq&W+PksN#{^M`;lmBeroAjrC`A7TL?r-@Eb1&>a`|wo-(7q6S6tGc z@^1>!SGqs$|7`!Xdi%HKL0b2Pw|{YGs$RQuvu4dj?zV##Iow_Xe?R2B>0j?+F4cX# zf8iaag#N`BuUfpB>+kZj(ADJC*SBZg?yipK-~4#>zcc*p3?(=0`rAT3?q{ms@$*NG z%(2NCC2}3hC(UPi$Z!3q-uHK+fynX1e2K5k7L0GgGQYjE>2Z}QRTsB2;k&>4vBCw; z-;cCrb#1d3dAxvmN8jPiFIl>L1~$q5hmjQ;zkmKo zsCfP_=cI2;5w3Gslcd=1X6}E*&>Zz>`SbVl_Wt`gx8ldE`;V5l=ij%h`TFkuZf?$_vwr@~yuh^ba#sI? zaD#a)(;qopS=lk!gl|{zt0^rEM&Ev2lr*Tdp2e3KH__np`G(j(-&{N#?r0YpebC>y zYeq%VB@5OUlV4UyT)yBOW-)`W;E2E4JNe?%IkyP)Ch{FFXu%xR(A>gXS-X#;aWREHE_Rttcf7Qf>+G}R%&Zh;Xj3SA^x%4?K@NMwrzQLJ_tXZiew$n#^{{{`{?NkDslr@2 zPX8NJJaSzpZd1R-t6=d*EcM67wOa9w^Lc+iU-rvOW$C=K<%i8a9%l$)oYR*3LhRc% z>xoSHTu#|Mi!^&?PHZ^!?}Jyru#$ee)|*KcdmCQ1zi~6+Jz}t90h7YN8HWYRneJa& z@c;0FtLqm$E)X|K{F@{9VqW_6|EC@qy?MU&tiEOJ(c^6u62}EkWY3HICwb!j=FA)H z%YLe`9$9Oa<^NhjEKt5eey0@Mp;<@o-~4RdD&NrfG>7ZHTDU^({JkuFj1dmezxF;n zt(mIobLBh#LD8DI4}G2*=62N|armaTVbYC1j1ekJ{3DNxsp-x(EHfyezuKhjyffF1oW>a~+xI9qTd(wzPXDt$+EY#I7z3->Nw0$&f{Skay1Q6>t-HNl{l_OC zbU&DLZqJDM7anX=_g84z_xAocnIP!{|JGD_err4Qf0b{=qPaHJm9t`OmmBik+9^NZ z|J*OrY@@wj>{-^P&zYC=oPoWXOKDRJx8H92w+Hr2R@e~tGk$7N);~vG&%`N{&wOBC z6f^_D`(Fr+PCmy(A}n0Q+)Ttv9U4!FlOm| zY9I2@dIRs$gHgRktO*C!cUjzDUiDmhmF1ZuMbDSK?)g<`t&o%c`%#S8#7obbb)4-N zbZ9ngYAgOIoe~)`QL>9mHSOC^o-P%S56`^or<|VNrn_)T+DV?iDW9)PUS{mm{O4>x z`AlQZff`0{!8J!0z5f3A!7raR5!ZFu2;Sh6sqCsoRq-SjhZR!>< ziE1P_#~nF3V?#%`>ZBci1YgbX%$v0Oor`ys%eF1&mq{%xxA9m}q%Omrd!sgN$;%_U zV%C>rL_Rm(*OxaxT4=CRHvH82IJ3l!1*w+4{Cm$=e%sXcYvN3~RkleDnG+^F3AmH! zHBW!ax%-np_iVbNKYQv0NM{ z*;H|{lTKSiD#!1x$5FTC%MU5)oZA>H`|askzYETXz4_GzJ}%JIiQLq)nYr;X%S^|U zKZR5N9+AlQU#oWQYY>ytm6DQUGZsg%-dM$vWAP{NLQ~}&t(rjkL zMy#C@(NyRyV(y$NZk~PG`OcLl3CZ4OKL+b<5=Xp_So6%#Zer1%8Lc)$tT%Z}a3Yg& z&rGj;28O&(iCQ1coF~}!Zn}5-^~BkwH$>X~`}lO<`uJ}#f1e%nbZN=Y*i~<;$~}&5 zNZxi&uct}dQraXSG@v%i_j*`y>&2+g*{j~Rty~+l=~f;q%j1HnVRx-Q-)`Q>QWMD}H{S*jzJf>b_Q0#S@orDCjH?kw19WWwYilQLW;l zRWI#)xR1ULif!DqJ8kho*Dc2*t^_yp^OVj$e4i_bhe21s%yHJC6DQ_MTszXWsAR%X z*6q!US@n)`vboo5>U_SjP*g?I$?;qwr*8i9ReCvfuYadA&U!Mbt7q}fKP$SX%065r zGUG~~xXSd^S3E3^Pv}_1pUZYHe9au^>iZKynxYZF;K-K_y{gYPvihD&em5yZ{j*hC?&%HP z#SOQ(ZqKPZ|I&cdK4h8f&eAhhQRc#`6E%Yb+X8buSEMwk#^!l$kZNOG9c@%}?G>Z< zdbZUaPbI(3dlD|Bxq6$U$^LC?{Fd$zdvQnS_oJt~l&TXS?6?%Z%wwnDCG!(86B2*t zYaZ`fd_hA&wOr@x<5i2c&OPT^s@{{rv>?T0$-H#*dAE-R-wB>FbHOr)qW8K^QUwIFob4)rgbYa=%oa&3Q5FVbL~{#I|h zM*6d71{!BxpN{(5hJDsP4D>3^Xq=NTi!&6Jh2>sxb|5ZJHptcQzpi9*>Z*{XWj{&7u31J z`^f3=0-=h{XSCKvZh0NPMC;w8{;SM!!l&-cP(0zr+E#G(?SZ;cg4=MSU4$v@~<g?0VH)2f|2XLOmrDa%egUhJ0kGH&apU#8*DQ@G+aew7_{O)b?e;Z*%{>#ff6 zX;HC3S3-EdX}cY7xwz*7OVrxgYZaXD`YAS8ZtrfmI?eIGrCwpFudJ^(i?6e*E}ymG z?oFH88CG$gT1V%6OMQ8iQ*Q3dgHgWz^SISkntOBU9n(7N{`1uq#$61@a~6~@P26vN zeb;gsEt@5CW`ulm2~wZ>HiKi;1Cp1^?IlI3fU4!Q&=*zS^iCmzu69y znMsu=v0Rwfcl?EvTla)j@v3!Am7WeyT$>AuRNXFr)aYtn)jF~DOr(kB_Kl1REC)V0 z`^?)K{BLrHi0;c+|0xqS?UucoAwMa~voGuA)+Z~9q8Pd8&Nu`v(xIGCg;@+{3mvnL|uyPv+gS1n59%c z-<@|`?}5EiOh4rdfE>po+|Pkejb1#Ok@2QzZHnh@DJS6@f68{htg4I!Yo~QF{HNO{~vX-7HchcZxc#6x+ zXtz@b{i7UI-W;A*t@A79YtH+i+u7W%%eL&=sO#qyw{-R5li6o0tmmG7vZXP%cUAs` zuVIaK@soFHZr!*nHhSxAp(*yubzYi8u-)NX;FG$4i`nf7S_bQ@mwoSgsmuGX!b-~Z zMG1#iRe|NJ#bOOy997(h;!6xw+j(vB!Epfcy9(pAGde%}ed#=cYgBCw(AJ0m+`CKP{e9x5GcVGRh zDt|O1JTEkHe{J-+O2b>>!g5th_Qc-yeINGs%c)DN0%-rPLH;_$J3uU4L({`gqpHo?PU91pe58caFHe(2ruy&_*@p7V!Z{5ExhgI3;A zOJ5ToPu5+DyW=ZPo|?MU&-C4qjV^!wzOVXMeQJsR(K}ktCAAlpcKa!t3F~KXj=xo! zlKEiT!hhXm3X!{}PB{tWi4y`{DtSu83aZGUO!s$mW)ye}( z^$Qd^-Bz4Fx@6r(%k&$4Y%88GbmdUX*AMcVe@8!h*;=Dn%8ZlN6|Yx%$2oJw>wC?G zyHgk2{SsxUnWW8mTzu-jC9(FbCx0ATqEH*CXZUm89k-&A$0xZaHODL!o}|pYW0H(F zvw7VOwjEEMa{ccuO;kIOx-)EfXjD^O^3-cT;?!9dzTTL_>*qAZ^g^VXDu?ja$#Qoi zw@&|Le@-xVr`3ut`G@XqSluFL7R=|@S|9xI{*xc(cc<;ET^{G>t^70fw^eG%V?En> zVYiD*UMNgGtul8}(Vp5PJhqFHveGWzYdvuP*0$CKvBk$96}@_!cV^1`3%T#lNxVNb zhcA6IW4rCHjm0o6xfVTFj87_l)#-aq zs}D21-&^zga8s9eq+*OW(@eg1hr$xfe)OqLdwXj8E=EP>ntjV3B&|MV`oVwm*Ew-B z(!$;zzmv8uadCvs!gpty3cG#NZ<_COXg*?e=x0-D`zhWR^Tp21%s3-@?z;QoeXr+c z=6c--ea89x_3h9PDt`r!?b-PE=BdXDa#wZAElYRzBxn72xv6GB;?()#SNeU_J?(F< zd3;b^(f#1Y%{_rmzwSP>y78)5c-}Kl``Fr`jIN0GSs5l?X|I!O&uuaL^>T*xo1YE8 z7F8#`&RpM764(5x=+KT7)9E%lPp%XGP#D`)(5L%WY~_q{zd5d#a<+Gh)D}D6UNIq1 zJ1715>rYm8eo?LQb>_RDX*}P=8hQ5W$^RF4rj+lWVzV%pJLmPu%jM=tE5+N|1%7>1 zOFy>kb6KWNdHv_(rp&T$g4PO`{LQR)nz7a(zn6DT*!5%m(-wcJ{(JgPW8~@B57becHwTYIidzP~_IKJ?kQgOjFj(muKS2d87@<9|1c zKYz3KkdNxFd1tlQEw-k^q0;cytK=D4D{A+?+?MgG?W*81mG$bHEd7V$-o7YXcY4N+ zy+()m9xh|H=axNe`93ai(+ZOZx;k@rty{c4EY-U0)#Z7gY(GxR=e}|9oyL|upAOlq zy;&|KqkZI1LdN^E4@H*#Ybe+BxnXEoe)(Iw3xoFYTZj2r-hSKU8xYx-el;(>XoZwazn^Ds~=C*+h>!L+++6E3Q*=Cr=}E=*xJi}mBHvrfO8_t!nQSvdq{e9<2i`$+|7hSsN{pl1;Xb-l}7d+elKji+c&)bCG+rO>qz5D3zax^sc zUcFGfeS7M)HAz=ze#nYzPOsU^I61E3_Sv<2pOwvRI&`_kW{*tg`n%WX&q+7!`NEw|tI);R548twPfIaudw!imq}?=M6j zDN1qKaBBL5d0s)w`%;TiFVL=h5~I1;`-=P4E4Bu^rq0>7rX}_4`JklR>x*>z zjaP3j(|eIzrawP>%l!2%+rA|Iso(Ov`a?p${@aM@H~Ze)_`K3Pye!@z^Zv`CLz5CG zgm=Dtl=9T$o5q*U;6J9#;|=_D8t1! zKF1PSo8N?eQCRl7?M3;@@6N6@?=C+s+t=}zQTpST-OioIU9So|YH8{3`+xJO`j&tN zU*~+Yzk1@+e=R3z6WjTo=L?dYUwu6l@#8P|f2}b6FwdF^wQ48&CAM>@h=eqrJND_X zpLI!~lHWv)Wb02m7tDC-;PGd-Cx2~dgQ37FYtBF7H8#R4jr-CP+2?a+sQ-G(Vy01& zB~{zMH)X=n5T6~A1_36$o8z;7rCh!cczpJ%tu0~QXZIM^nYy15TNRq_BV$`Bx953V z_NE7a*Z%l?{O9C_|F{3HlWBi@KJEYAudk{zf9LPL@SpqdemL=8>ev3rqaJ_j7i|4s z<$UG6x$XLwx!kH>bl=)XJ1(8CQ@$kV24}kB+{|K*;0r9(mln1ZHD9|~A@$Gb%(*nt zt*#q=jky`*zr5`IxZr;7BjLI?jQLYHm!4A=>v`%P;JPZwG{Di=saf;YEnZe7v3i;VFBB-Q!!VIV+<@ zc9sNJM6Ox3;LJl)|1XdCN$8!-t=oV96GPJ)*SAd$Y!e?=ZjCxCd`;K?txU7Z>eH*P zc=>OgY^ufgQQUBsipk-$f3G#?TdG+8_B&?5+wh^oc*4H^Uo7Dp_i6|0c*#h%PhIN8 zn3v4rmn!LNc}4TvtC`zHat+P4%$+eIO-|+P!f;DNKfRY*=8K#-y|1+fWdQ~oQ(?h}wtc^XjjpIJrdecI%2)4BLl*B_d=^la}u)t6Ha zhIevQ<+m8JM2N8;zvrMHl{IyO_L1420*~JME3I)pyz$eV1tQWf?H~X9Z#?(^+qX;4 z{onTL=)e6p{)_+qpY%We&HwJd|IdE=zwjx;Hs|N{)`xCqy~{D*zU|Yw|9y)c7dWig zyv63V!y%gu7witSYpADPuRXeb>9pr# z5&rvrZOcsyg)V8UzRj>mk*_}UgZ0ubA-)COp?Dkh{ZVFoMJ(^uJXWj3!>}zjKT~jyzU`=Op{PKeW!3!$vCB8W{ zIaCI=9a+I_`;D{0;#zgCK;+^=h4pNX?;#Qu< z*}Xcr@3Y+=r!x%})0fvcKkKqjZCk0NIM;#M?9=RfpSFDWD||F>$+n9uhj~uLNKcj# zOJ`orer$TP<045;>&wavv4`4AKTMl@^-5Cq)VzsZdbdUPd0TfS)g5ZrTd6Vcz{4)L zny_9&ON)Ty}0{sOrQJp9UDK*HJ*7(vVZQ=6)opv{MgeET5t<5NYtMC`p&B7ufKWp z?fJFxPRQRz`+pNct!1_y*R{U9c4?6Oe*1MheRoB!oVB3W_tKZcU4DI`{9F93-k+!m z4|Xk@@IFxK(2^IcHBJZ`ER&l0H|3$);~75gE&}{v>n88CQSnpO>Ry?fTC26RsWP5x zmsvB%%Oz4tn(JO1w$W+hsakpJlm2#=&8t`g)GQu|?Jw=ljhQy7@w9T4xo@e!&j$`y zzPGxD?de`8%=Ur1)05q#OV4Bx`=d}3o{&i?87->8D&2A&zWS~vmc<;-tF8Yqh=)Gb z`InfqQ~KQU>(@&-YpRRV5^S~U?N8;8v*E9onogOp`I<`B!(W_7XYh$uPCM5d z7LpOCC@kQveg9C{!dG947woopaBuBeLzC{{1eLXYJbyf;e@?tqD7x&xf((O2;wu;r z<(s^bd20J+a@%IVrG{LFCcDlV^2yqyX!mgaWyq1pTA7lxV#@oIt_}}QrRiI`uw5~2 z6m6~XzIjXLk@sQtEXI|VuP6AdIkE0@REzZ+J>BfLCDj~(ZPhoX_&>b3Wy3VbE$0@f zvWraGtS$9m)+z-?Bk#mjd(X@?{k~V}XaD34@zsy~|9rO!)7^i5t?R;Q^)J*TP)B^N;S!Cq8NxAQhSN+G%O^Y$<_^7hNbb>O&R^MK z{DR*niRR3CtH!=4X1x?+#>R=tA?-}@^K}k~X|8+WsU}nC-X>q?;k!J(MK`Gd7r7d*tZ~=e_Ekdb;KL1y(EWz)-76@7ZHhxJ6})kMS}7P>*$+ zkt7|$H@7eCg|NZx3IAlW)qYuU82_Hg$+M?Vzxd|K8=hwtR6PlGnDnNpZn8XM-BW$h z&V#LLj7zV4_0Rnq^5oHS!_(qVzFt{yT;YmSiQ+zCUhgv!k_WzfUg+uhY+t?1YdTNz zg;ggdW^YXiu+J_FUnAe1HLGa%`HKnG4SzL1@xK4|wyl4LWoWd!pSRmA$%+Z=vzG|y z=31!VDepH-i3l=We=~ox&E~Yt+WL~e`VFOT-hLh^^4PC>!P6yG>uc)j<%*9of2?Bp zG@(8*K&R8jcfJL`z|H@L{-@*Fx9nNTvw4x4^ZSF_Tu%DSa-KSJWpj;lL=BV9u1zY| zxx4=v=(Z@>@sOz|OWsHAPWpGt-5FKANnEPszH=5vCw3b#Hajqsf2OJ~*as zs>(Xczh~{TP>WCgECtRNJN4QOR@(ev>Uv=NQG{9fTZNv_r3D@mO-o#_e0AOuA9-|2 z^>UAlh3l1OXg^lq6s(NST6jrXfAuHx#4uZ)v&ZsTg;@^DrF6`!n{e$APrSylf0O&= zbdDC8oU9Z%-g(5)-A_w1`AwhV*-X^~HGNuppPgA>RQVuY=)q~pwt!>$GLLI=eRp3x z`O@ux#+e&Fe;iCJB%Ndv)nadM*p+wq*b<$>skIaK7i3&_T4c-fSfk@ZL@(=vnz$-o z54+q&aaVG>*1veZZ;erpUQ1qccXY4WOoLBryS$|pnHt_txU}wpL(Ng+R;v=RFB0nB z$GGBonz@(Go90-@TT{4S>GqNXmB}AZ?_1Xz-9CZ!vjIo-^Yn{9Y-U~B>=E^)|JcEv zcb`31a7~+2xAjx_{*Zvn`txH>b+#AFvgI~7o!atMdEYdt1y4oT6IyatNb+oMS=1J{ zz%tM*IOx|^*A0wka^=~s=j@5xJ!xCatOs0<(**Z)UKLqr%T?Vusi{*mf#FohhOUOy zOx7*Q9Wz_(Zy9tH>ddpWde{Ip`GOLa1U*SDT@qN7H)84BF zI|U@#^II>^+M3>~YxC#X-iM;+qixl~t9)8A=lpwNdq*^&BiJ!1K8W$zZng79UWH{h z7W!S1{=U90a8~4TBZVDBySFS;`L1zAN?YTkM>v;CzGn0<#nPze#)&M`xj3&HF?TIb zm#T@)+tm0^b9!kMkA=egLyoJDhArMEzk2GaMUmSkv+wd+uk!rW)2DG$=j=PI#d&v! zR^36l&k-jS4Xsx*S9gb8zAdLt)de%SeW)M9fY4xK=~`SN@_c2c~PS z{(P7#c&;@Ux7pdLDw?0ljCEvIPx6uKv})g_TFjKCWqT_i>V`^O>clGXlhHNSGW$N> z*1E=cW_89P29pdEr}ASLSCkg^x$7xk`Q|k(bjf)(K}+?z#m0uZd)hs(%ral(SnP6Fe-~r zT~zL=zvD~h*Us-ZpB2q?VdS+^O>YpI?H|(c%TMjGv*ef1r!&8QVEO(}oA+7u8|^%< z%)=Tp>+d+(b4ZzR<@^%$Iy*TyL7F96k(Dz=_-nw|Nav7mnpGuEw^ukE$oxHbCH`)Ep^ZfvS)=}}+LeGioEIrh4p)@dx9{$us7 z?TZ&I?Y>l$VmR&GhOibDA)e(v~lB~k7=_PzkHRu zP5JEP$LCJIdMKRvbaQ;y9BW21A>#vS^CtN+X{bzhHEo-aaKojvKYFU?^o4SvC#?i0 z$eN2WpIMxEq*N$uLPYwvtA`vb&b~fiuw%=!Nq4#3EJ{r*!@VEAw=H-u zy>P>%(?%&BD_e;VXO=J3Yog=ih-*=+W#K-93za^+XY z`8vAHb0oU@vvh07r`@2a}`6gBsV7}eJpqOUVY=zV}-EOn@!rSUQJ4_FBMU~*2MJY z=B$w24AM=@p*3pF6g`^v>@(?#IgHEgl)N`k#WaY`y7DIiJ#JAXPDQwpPUwR z=jn_dkv0T~;Vvc&zV&3%6|VM&q_~8>DSs`bk}zWceeu?`_n!`##18 z*K;nPnQFZzCTUirjmG&UTeDvrd1b)2df#)k>m1S7CL~79T{}tKLB^sfvq*3y*M^lc z?9BqXr)t_yKC8%5c({Mn3#UC(GiE&hCG#xg(4n16Og!J*RX=6oB*c4K=Gvy5&yyz^ z`}*ZLA6dzj%eCvYhD7X|p5et%XLp<4O8TS+T|Z^5!3ZRh`=(kh#Dm&da5 ziRq_(({6?>@>`@Dd_K!R=&9=c$-%$XTW)X{a6h@=5MNqsbZ2(nv#arSb&i@!Mgq25 znxi;ZA6##k(rWM2r_R6QOEAx_NuOWoCwYtYEuQ|))$jJ}ryFy2q*VP}(XBpX!)G<| zJyL(3q<4Sq4iLIJ??=L(_MZ#%=dmnawu9qKp6bJSiXU9rMA#Mt)LU$w@4a>$39oj@ygRC>PqwA^g}gXQ#S#>+OqE)@@8M^iTCD7diLa@rtW@&}=`y?5OhV zC*rf-EVfyGx2XC|>o><{cdhG5MY_86Kd!BQhi3=>(Ce>fN zmU{ebtOkss7e{P1pX3txF%U0%r^_D*eOOKT_|N3*hj~=KXvDT! z$j&gEnP|Xl+fXX~L`cVRnjl-B@X`|t_8#kX`MIdt<2C=Aw4>`(^?JX5W{mQa?n--O z)e?Ee^vPMB#Ea`yCNk>2{#zp2$+1{`=h|P7InNblz56gp-beHG^sA=Te&-HvJUX|{ zd~1nO-*r6_%uaqhC`BF?@{Q@<9N z{l3{Y`o&7K-gpsBsb7~??y)mv2svd$hp`Du-t-M<}GTKXHp#Kjiy zecSUcBstSsCFMBd-fJ#jr{v4bto|8n@o;YZwKsj6k67r(l>IyOZT|=38~#3%1RCZLOK%uF6Fdm>!@z2MZ>H#4qT zEVnqf{$%QL%ePGnn%_$}Jy5Z^Zt?o(iscKx^eY#H9l6I^+$A{i@EZa;|F(qK#*G%?sPJ*n@#(Me>6SyH6dkaNI7v&C-fjPfp}aYDTEV?nhRF z(zlmni2sW;;VwFFwx#EU^^Fd8`YAj+ec@vUlcf!L@+m8`GJAEe&p2V{<{;{; z%(YXt`JM4j4u|fK9&#%j5>K5F?-p*h?3hq|tvq78l$)B6Tk&f45At9L;Y)HG(C zQ*m-+-(2wXIm6@5b7n7B=4@&D^|$ar`MM=5?IU}g=lA@a^TK(N;=V^W1eadAWgpyj zaYF1Jhv&zmj|N12&bweJwAr9lwpi-M@M7uJ6(M``Yj7MZe8I z^e^~EJ=bsl#Q!_5{r3N+m1fWQ_Nuuw@55a4?b2s|k2nVbCXNrkF;-I zvP(6-W7Pg^$AN^%THYD!6t}MayW~ChBV+Ez6VB(J)!r|1?z!Z#%2cUyT9+hUt!J<3 znDoT`=$0GmEfX|iT0TDgm2|@67N1SngU#Hs1)bY=w_H5BPnhd$LW)K};Q5sGk?zMg z9sI-)?=|iCg;m1m-gkSsvf52vr*ok%xRJ^F)$|>#VdZTJX>A9%PPOh|eL~Vg$=OuN zcwur#-O@iNL#Dqh7gjs8&$3Eh+fGU5^)YiuissD!+2Heqo1c{h9AxnU#@%B%=$r^k;U?vhMd!PF5%~MtvM*^s27mr z6nNTTSLJ5Qhu>RNe+f$)?z)un`06SpzsMPZ30bN^L2`oJ8zwuhYZo%A&U`t+R_j}L zli!vjZ0%a7q*`Ci3Y>6oU(wTze-&3uSk<@Z(ALu`B?}&{Ec-q&{f_Kl%9WtR;`?b41_Qi~io9^gsN~|E|CB8~^YA`0soj zQ^ibKh1U8RJ&P09*Qc`jZ%a@!@A`a>_xQo}mjmotiXIpL)X#X|SzC9CJ^0gxu5%Gj z^?Ll$CnjmcKdL;Ua-3VqpiM%Lsxt_c-5)q zg5}~Z$M_SDNL*^%eW|PubKDAKF{6o>9!kk7d9{MJ)u7T!|Hvf)Uw6dyXwFEjaPs1`?6w` ztey9t_G9n-vi@)19eQ8$Tm8|0>u>yr#n`%y|2KyjW`ExP;%mC_?~TG5*Y!TKNPMj4 zUq1PB?~Rt*%CX%hSO5R6myc_^*f2Np{PMqbdp0Vb(vP#X6Wjgu?kbC8)z9}P?D=UY z@%?XHXa&EViB_ng)YT*Ru06Xq?@RdN=aRQ>7%(yI%~@dTTXQWjV_uc@ydTa2)v_<| zb$wJ>-NS#bdGfu;>?_~f8CMilO+UpSzLR}czr20f_Nj|cRCI2;ExsTOZ`ik zQ}27{Z9QDLTmH=Yhhba$^;do^_scPConf~)M`>RbbI$as5i?AgDr zgDYA$Jf56?KOlL_OqQGWQm%#qE*oZ>+!Fp)y1;pj(`P2LNq-sSIa+xAdM`|v_$g7G zGg>CbW7(5um40)DRUs%TFt1K1YHvlawfxZ!zn@J_ zHeCH_nb>x}fc4_6hW>XoS#txzUwoZ?>j#H}aQ7_-3zIc>xX)Lt>^NV`vo8Ouv);T5 zLRLKL4DHUhv?k4dVew*Cfy9*LR;ir%%v&6+uStD)vVe!n;ROHslkAouI;Vx~!p|zo zuH>zJ@OO3v%W41LF@>jXf381t_?On{{miXRN^2I$X57(B^(%6&SE`sZ=h38!BT_ED zGh>4K3%7sR=FDxZ^TqqxX1B`+AFMj6e75eI%^~(#x4&Oq%)e`eoZ+IaJi8X{Ufdn} zZD!t&bK5gT_)AyrUD$WIP~7*O(!rz4ZZz*-m^t?W`?TvVa~>;Cx^hj%-!4u0`5({i z@_l}}cUz~--ppYkwAlN|qq}AwkL{LyCYvSlibG**!@*Wpq5jY9($^Y`8~WF=n7-O9 zyM}G@ZOM~U_B~8FaqE75msx-9ZIzsy6H9t|=Ss{_S)`%D`+ec0ugV+hJSLd(}nz6SzM;JNJxnR37ue7>0{;+c70tY4i?oG3Jc8k^+dY`plKHntw(3K;NLPvfq ztSI{N;<$2nK~KZd-(7Nzb+RUL?OV$ZmA}k-Mq%4m3h z#C-1j_Sau-i0km1{#o&&D(KC$<)JZ63G#;PR2cUhs&MB?)~YSx_+9iodcD%GlPr7k zou+VB>Yk|(+P?BWW7cYOlZA&jU$}Vu%F>yfdo}wFH%hJSxFTZJ!DJJeY`FM_VOZ09 zN3K3?yNc&2CM9jZnbz%JYAoe1Ni>$Pt4KA^{-F3@W<*G)_eiyuG-Ltok&!=oP z)?a*UrsF4`DC^A=a!zFR_UxN0sd9e7*3E9aZiTtsKgTmEo%h$wHEvthX-BE6b+Fe< zPxZRyeT+Be)Cb<=nhTSsnN1PCrlKI&qT}ms^doBx*D=#e2X`1q?-i3?k-Si0;r5=b zLS;RLi|$oEdz-B4U+^`@(QSU#Zlk2LV*Jk{UFW>5SeDdsfFr1G>6KL$ufu&jS!J7( zFAH60FZ#it{Eg$Rz6djSR?nt;&r~|L$ZU^4vOVcEU-I++i{Ed&uQs<87P3X34l`3247Pj!8ThzBDT`5z3s>W)>uF4f{>J!LiJ-0pn z`&LKxOJA4Vx$aq&q$TPjkoa|p+Q(55@$yHZoc=0~` z&->NovBbsA=H62K-~Rlu_EM5OH*e_Vtfep9FM9Ae>?&)xC*0Gw;_q&CiQ1%|gGQ0B zkJmgun9Z)bxjseb+LKkr2IqIrTAIr6`Z6eY2!pxU9mY(X}=As{34>$mmLc*UY+o9ny9~6XKMLPt1SiA`xn&9 ztTmGG@+$JobeGs9aeB*{7kWFtt>k;Nzvi0klv0(+lMef4tE;_t(lmLotjBidma7K^ zBF@K{Syim#NoaOHtYWpm@yf&9XMXz`CEuGddw1&dPZPYY9Yf##SzV>Se%|M>#WGb{ zGY+@?+m;$H^g8Qbi&$cN^4~0r{oAy7b}ZGq^?~`VTb{aP3*U(ex__c)iT2ImGmVfs z6;M+@VV0(j@j6pq9?rX+PPx-h#)`3RonxGz@H(|)>WatOlP0eCBpaKRL`S~a65Ec$)( z!;bX<&!R*7FYUOpJtoV0T2_Wf^d_D_pTMJAzOQvP=RG-j!)q?}$o@+vVe?wzo`2i7 zHE7!z4T)W=|GgC9U8z_dv;Eid%O+vGt8M+AgWgtds*etT zn;o+%@z(EaUJJjeJm0eE-0dqbeSa23?PU@S-Zv+7{fB>VpSpg1wP=x_T){KL=dpg@ zkBa{JnpJwzs%cXC1RHPlc!y7|UdR5|3w({TeSILAQ|C)2^Az3b`&VAw9r|Z^(Al4U zw~v>muGuk%=~08m1I`M?DAn6~2J34}nO2;SKlfol@*e(2y!YpJsLxHXNh?S$Uh!~V z?o@sCtE)XzS-t!l%07r|H7#hW-`6_-18>8UmpbmO4aqk(ryb3|5b!R5ktw3AE%l?c z!er~Z29;@h4{Z9uD{w9KdEcv3f3KTdGo3E^(sHq#<0@T=-%mI0;ZwhnXSAilsar(w zV3eo!%c~KsMw_Q4?z{6jxZ(Zfp2epphy?a^t38|_Vc>uAc>f%WTNg!2mKyg=x^}SK z=I=L`to1KC+P+SemfG3b>YP|P&(`_8aWr#c!h4xl1 zCPm?NtHLxP{gOvVzp5|l?Oiv=A#;)RrD+Ybld_FZe_og->RY7oDgDF$|2iM-u?T2>;L+P|KorB7ytLa_5Xj~zyE)J`(8Wm(^s}LReS#I-Fp4by63U~>Xfo~ z`}u5T{aF$%bi`@?pZw4(mi<+3{#)IOuEt3}*jD!Vt?BED44yrwe{rUN_3OD) z+^@#3e#{l$J&j+j?2@jh!jsaTer3K?&MZf1R@dLFdJnb4%Udg6xGH$;uD$5@Ggoh9 z-*wo)nfPn&r{a>|^-TL;Ui5t2*8Ond$=7pNN3y)IN>QouY1TStJ!9vldG?+cjAOgs zFmyh6c1<=`Ed5U z^{MMZ0Y_X5|NXGNrnKS4e-o|v)qA=#Wcw^umZ{=aA6~T;uHQWG{R456Q#M0ve)Cv(5++^BtbTla3>pk4d$_y3Hd?C}57Z~U*e-u-p$k$?5e zH|~xGtuL$J_+S6qfAFHS^*{dImX_Z(CwUT&f874$cP}nUe^AT0Jvrmjr{oKaCuCW* zw^+@&a>#nS?j8~ExQ0vea_hDCaOi#1n|@B7ZNu|tht-N|I;OlAKDO!UzeHn}+8AY% z59RhdTINsYc>m@5d9Pm+3tXfh3jbQ0U~{beS^b7R!tHGAEruLXf8LlYET4Pp!_Dlb zuxHx;w?@b|IbJq(T6*%Y=pCjKmhw)A_4!t>lOh7k_a!Xni+I2%!+&Z)zT^_7qw#_q zvO6Yhh**4DplD^3*2JJ|?+!oW-n78=eYGq{jh^JMFwuW0M#~z)L}h1%Z@b5>rmOdK z*Ni`EKjzKt2)y5?`LvRK{eo!D^%cj{mfFldut~9AyR>gbfBKSshvn5KyuTH`XC3#L z_KEv-p=R9@?*4~Ax=OW|ET3We>c`_iUgnaoe>Xd{@-4T$Tv_7y{+mM1-=0Yek}||S zSZ+FXsMvf7wal7T=5)5Cy4`z=d+GE%{%^XX63;@GG_>E?Vi&a~e#^G_gK~ipm4DlU zZffcM-=ND-E-h;v+4|2-QER@@<%9qDj?7N5`J8-X`Ek?86IWbYyg5%Cn7w7$o+yYxppv+NCH$mxnA139ebc-wy)48E*+NyJtc~j++;~PJ$ zd7br^W82lYoW@bJ7T(BSeOt-yTV=$>|Kjd5G9T}F9=X)Wxj{X8s>iv^8D2VhH#N6; zUEWx;@=VsW#KKQD2}KdQw-}5c%3A#1G^J|EUB1Y?aE+baalcrbtyxmA?S*JrlmTttXZ}EaNpyp^KX`~ez;@G z);G@s4!A{Zo4BNb*UFXgbf9IsgbA~gZQ%!P_VpXuf|nirY5O>bdD)cf+QJ*}_j=6d zb(`*bf!B zCdK`%Wxt@frg_ul8~>jlxOw5b;)(}ryDskea`u>tsGr|=VOO1^*BhjKqMO!Q&2M0; zjoW;2(%tn8YJ9tnUpBt?YueTA>J^^Mh06lh-$67>>RSzB872LYp zpB?=?Z%;rg3#W&2>dR2>fXrZT=bUM+J?uKuqC$-Oqy|g-`#g1+#ZT+J|1jU+Y%+^k`mCeeJUvqtV>zv~mVHdEY0W=F zTNBaxB(sexttAz4h_3HH9z0_>(@~4l(Y}fvK@ieez z0f%{CTnS(2Hyy@>DbvKZ-kO))vVuKST>Yt6mzH+^lym1~JeTb5lhpZ=8Cb|N^L}8r z)2~oNGo3Z_=dSJ6(r+<3)o)>)yg!Xs&Z3EH&fKX&*>S5Zh1@02-qbd!QMJr`Dfw)* z+pa^bpQC)PEGT=L)O9mn^NFZpucUgWMD#h6X(oLqT?;)=->A8L<5tq<8@F;Jj`TP^ zia5F?R>x62Q}p!K?#`S^Rs|+KdOpoX|Mu2oRl39vcUlVR_ zn45e-V!2JHMHN>E9`S!oI`TQgGp5!I{W{zvYa|^`=8hT`p^8@?Dg|% z{#T|~?~a@EU+nq*qd)Tt|3!nD+spn%pSEB)cG={6$Y#wYYo))WMfQ|jc|A8;$nA?w z*n#|)XAYmWYY{2-S3K(5uQ%7H#5hyZY(tqqNS$CRP>Q z)ml&Eindo9iyB4$SMJ+yDqFDd-}c8#@BhE4{bj$?e*_Wz_uu@Tr@nvq5xY;#<5$d$ z#CFxEMr&3zjA@>zh{`1OT9OTV8+H`#FOQ-&gJtwCvm~yY; zz*WvoYfi8xl?Eu@4n8ir%2!?Ryn%%9%c9c$HK#WneztYOq|!$srJ_Qrzj@d*H5V57 zW-9CNRBu{l*47m?E90c?i^;85UMnwIt>zuQtZZe2+NTv+Wz(wusa^cHKDh3>3*UZc z&F%FrnMnaEXWbtyGJEIxVcjAVv-X(te%v4LO;-E1FGP;Lgx&3OY>n31W&bxS{+pK9 zc;@>5ZDmr?UrYY9uXXzWTc-XWw}|4#c{1PrRdK3IzMcFt#r1E{?zGqH?=z;}oZlM% zI_K8W#rHC|b2B{6T)=*KeOE2VI=v69#>H$C3Ts}xU3z|v*R`8vmh0+PEa?|W{^%%M zGjGbZYn4iC!;gO4z5TrW{@d*;NfjQJRlh%+HTIcc%spwI&GpW#yrir0@-I_Fm?nIA z^>woIpH5-Z*R9>7~2)L5cj_peZ@m_dk}go#<_#W&JWR zQeFH-SobrXW!o}dcTTW(YJSGCrnK$AP0sSa=`)hQY~NV=|M{_Vd^L6t&cEID=gW)D z`^x8^zBhe7|BuPPK5gE<{dB;#@|3l)KXBh?o;tj5<#?AY4 zC-H^#?H=#FiuL)0KiTKCdMD5JHns7~HTiM*_RYy#r8d1?%d$n5UHs;?Fy+nDPKDRM zw!Y2h$Ek6z?=G9I^Wz?m--lEFIP!P#R@}S4Yx_}_Pv4%TA69DdiWQ6cwEk67R`&T^ zZ^Lt40V2nui?g5eo;uh2Ppx3$o2kYca~HgR%vxm}Y_t4vW&QNrJ#}mM7i9?NUX`Br zJNjxy#mpV4&W0D{&b*B@)7ucHf4%$d(yAl-CpQ~4p7ow16t~^^%&zYT{^ne{dp>2~ zA0G!#r`>XT=C1=+c4^V9T&-p;2U9t%_3f9Issh8OFPz2r-OeC@1B zzgr(unexdAzjx05xpKjqbGlQ1SBn2SeeGNBtJ3-6r>-^YvrlL8Vtl%ub7|rJ1>TIQ zSED?OoqyY8tk0Xadl{=o?zzccrOS3I=5p0+n6&Y|8E;nQH^t2=yKHyL>BXCT&aEy! zGqrx<%Pm_?zi$tE|L*_OBWL{1y|*?n*D$_gYX5n`os-`R4+^?|6Kt6oUjHq(v?_VW z^o?vP-v33<7<`|5{z+Ad{pKs1=HCnuTkro}R=DFBxWf-cdQbb9*_RlkE9#QB!+vAZBL&*-m084tN2v;>B*ZL&FBBf7hUnzaX z;iIDX;{*|S;Mx?^IafUu}}RMMvH zQ~Nuo_^gzHm6`Ajwqrk6X7?;bh!>sVdp*`)@iuS}n1$DR4h z|4#qeKi&8L?iT!SeqFX}?%k)yt||FmSZ%(}@bQbi`xtFIQfADY$M|}Ec*^DP?~4}c z9{g={S?AuqQ6yMJSQXUE5c z=TrV2)IH0Q_g=^Nqs{t#N6y^dIlJ`u>07gP?7s%Z&RcwZW#{wU`z4PGSHIhG`|G=+ zTe@?2Y+l~c%{sPcGV7d`<@Tmujl61)-F$vGKI_|CQ?YaV+-h5S_qOcXe!}a4=`@i$ zJKreZj(sln-u&I9!fBGHf->v(hy05E_`JO5e}=_N<0JoX-o52@tp3i?M@Rp@SNi8K z_ksY>&Y#x?QJ`tR>3cq%74QGbIx$BJ+Kf%jJAW(eGO3jBQd??M$G~D+-K8^Ly_s=Z6uL#lVeHmMA6+ZdkNl*S|QIkC6?-pYZ3@_@ zZF@aIEwf5-oCk^epj?_Be^fa8q%j(m;P8=foLF8wY2TKto=hKS4^fvGHg87oRS{gywS zZR`=fbp4X5OXe%*UMjz${^E4>S5^}?zX|hKEXvxz6Y^@~oL|3I^1RTS&vEO%y1RJt zu`7FOw$9tkIKgyk)cYfkOYS8H2|8VGf4w4okCzJD9H|{A=TyB=J2t0kj)rt`meR+j zVEsEOet$I^nV0ViN{#-LVx;>)xBias>t*GyRW})?2XrZ)jg6fsoVcIWyV6JMS3bkm zjm7f!qf@Saj7yzANv=R>)hwgT?R}nW+*hgaPwu(5a*}k&q*A-7+gx2ct4nT~ExUN) z^%7a1Nq?3Imm5wL37xvBT{Hi!$SY>8&+Ty`_)3f&7uJ3_Q(oeQbyEH%AyY0oTYXaMZ7k>P9Cm`Zg@cqV*a~LdC zg}Kx#jon)XPW_$|-uYGHB41%_zl)}_P0#etGtZa{Y@62dK-KN;Wr0aG7b6asmp(7o zT-%@#f35a*O>g$g;~?`mpV-O1u90_V>+;SF7q( zPFs@^eSJ^NtckN4R?N)T7Ub8JcQOiU>U!{5;q$GXtP3ZKf7PsD@mjSCe2eYNMtw3oZ{ z_B+(SVwt`vd6q=)+t%%mH!tR_s9L)^yF`O;%^63wC%X%y^LG7NYsc8sV;_CrZ;R^V zt9pixqCS!rx9vMDnE!fr^-X~?`5lHPic2TP7Oj7m^#8!zu((-#V%gSzYbU(8%iMXm zmi6H3YCq1)X=N-SB6(|YRTooxow^pAhJTU_XMfw|yAj7*7snAkK<858NgT(c`v zzinGDy5!*Jvf>l(Gmn%DFFElpU|-KSsjokG#P&!?@peq!Ct-o;)!JE zvw784Q#MJ@Dbqgb(t9jO#JIk^_{N61`nngq>)-h~`*SV6be7ra$-@OVH%vd-*1d@9 zbjPi)zpJ(R5)KD{+@NYGf5PKxT#%6IwxtlK$59>c%Idc2n=HQ*% zqpJdMPt;xEkYBZOiudH6tFiZY&gXc(W%i|ow%c3&-8t=fy}Bo*Z;`7X?_Q2st)X9? zTuts}?(mxN>S$ch?$wf5Zu+r3zgyaT?$w6FdHYx$r(V$VRI0URJo#wFuEkqayd^kpzkA+y z&wIs`Cwv-_&MW;pzXa_%()Z`i+TAaA-?TnG$@6B`nSQ>7pUR)!c$>vxm2STKe^y*h z?(@K)XTgtlY<|09%QRjm?VX)({k%BWsVi#e-K%_% zH{n~^9m`$UPfT7OH)-~Fnat%$&1##N^MJ7re#Z(Z)sLWLJ*snYkR z{hs+|YE#aO4Uc!`s#Pzw-&`GPwAttJq&Khq%=Aim9WUP~-uOjmf3Zf)ri?i`hrN4} z%D9)BT-&*LhHv0*@mHT6&0ND@xZa&KK`h1g)XO-Nus5w|rpsh}J#<>K``4?zAB2)O z73fTwGvzvWXz>1$0((>Q*Eel;G8CP>5V1Z?==I*WM`Z4v>+_h%9({W2LVJ#++^g}& zPq3v-3_nz!6T*O#sOYxkN*ui8y6t)8DTFZ}-fsQd9U|F`>@ z#b4yf-@fAZdjW+5`*d{FX55)%m!P*|t*T?L@`??UkEN!2GVs2;kZ|cy_ypCS>*@Qi96Oj1qxX0Ejk*ct zM(x){zidutcQ{)6_krY}tT&&nYuB!={kiWZ>jlI3X71UmD(Lm`XIF-8 zM9(zE;Ae`TWD~aTHc6j5$Loxoj%`Dh-n~sPRww;y_{FPx82-ZxgjWD?$5ow2g8d#S0}SuN8XwJd-wk2e5q+c zl4a}kPZ=dxhwSB3j-UP({j!1ScvWQCTk}i* z%U?V`*Hyd3{C=qTcB%Rny?5(wxK{0sEB|=#{asi6=zyHHYxEiyoS6G0uJ&tW+%dZu zwFj?#yQei->gctsSKGty$6Ykqu=PvWQN;`L#SGG@Uh?C*O% z*uT&CoALc0*XzH}um753;9vZkW!C(6SMHsAe?v3BZ`J-uU*udL*E~JU$zke$HC@!% z?d{Dd*PYBy!lyXj`5fJ(dP3K4nHVs<2x{KwzNy|uKAwNlOv>E{3K0dWh$QAMc9gCN*=TzF}`}A#PiR|x0nG0*TED-HEelcRowGUZ4 zee;t}ee;-f=l0InN!GDW5EWvCWciQ~U5abpP9IIqtmodb=O} zDlf{owZpP9!+XrrALYkCwlOFa+p%~1*WHt2fN@#>F% zhW-J2=8Ap`)v12caesgPZ;>Ly-TNPDzW#Q}-73v(ZP(>y(ZX9RufJzl9(`Z(t=>u2 zS9>^hwRmqHOkG=h>qFt`zqfa_uI=4^!}l&?ifC$QtF}MiESy9mVVb< zeW~EJ+3)?;YyYWR^($SIVR&mIwcq%=&ehL*L#yW9ec1NuL-SSZoGl7A-#;*#qob~&b>Uk6@^f>|xavO#wl=N&De^_tPT_n4->HS0-Yn2y&+D0T zrs+vl&4ado1>E1xZ&dtYK2e5;Ut>qh>@yR2_(D9IUDWRB+fVp@=C01ZMYRjwW$m7s zJk|2ti8m|H#JMfoCsdIT%YQ~=(WbjPyON3(*5BF@nesDZ&6uPS_)uZNtl#U_al{{vn>S%W zY3*_GonKmy{pWgb_piM6w)e6B_f}v3-t{Bi_0Rg$$Mp+mEdP1?$ZzR)SGGRWtMT^D zt`_^p`j}O3*8lKw`~Tm!z5aUTPrk_K|C|5(eD|#>zdroeyKje@j5kDg{Xc&oPxGHW z^X{cT{+By!MitMXP}G*Nebyo6zn)ibq~_4g-;{ocFw)L#dqg?oC(7~ODjc3Qf_%cx76Kx&Z+Gpoj_jR3C&;$AvoreNt;f66 z_Ik3k)I1mBclvQFSweEBSVYs!9Hv&4u(E?XXEcI#Y(2Yyx#M(PqUqaR>o)xJ%_z^B zyyS0~uTW0a49AD3-Ag+kWk<~2ckj`(sl8otegXGI6H7Kru}joH{~@0hS@)A=hhpJ% zj#a0eeo8HKi1_!E$LS$^LdkL-^B1oIu70}qZvQDVoH2Xq)$(KJr z<2>WkX9O**Bv(I@df@HJ6CZfZWJj6O@n_*D)o%0jKmBz_ zktM40j^YD?4DI=EKVPxWO+J7G})=1 z2NR#CuU#Z>+}G(bD>wYkFYl0N!R)Hbr>|Fdn*Z^i^QnKAS!I7ti>r$`_V03o?+?F2 z|2A*ldspL){n6k3$Vhw7e-0V%^WPS_K6u%E-Tt9;uHwEwC)8tKdEd9^{`G;`zmM%- z>gu=sf6QLx_?}x7tUOho@A{icc>-ybav7dDETh2Bt&H*?uYXd_3%~&*yt@;hDv6<^0{(@NO<~ zGVHm3UBvD1=4n2;QY9AL^8bxyrmkrIc{$NyWyX__(_>}6mlSeaN7%&#?34a#y|&_3 zp7l}lnt#_rD&MEw*y^tEA#6=<@Gp*pIjoQ4ey+$A+!IuHE5*#XCE3nGzbPAFZ0Wtbk^QKR*sn|f1*Y_8z1RM>LuFI_oR+`0Hkaogn{a<#K<2OINe69?S)4h3 z(1p=v3xnMGJ2n|Uw{!!amA%+#CzJQH;AJy=wbAc8>^Dti)6<#0FBW`r;ap&($M?+~ zVKxGRKc;ByZSY$8cY$@{{dpUA-1)Qcj_7pJDejNCqBm@Do%&q%&0pq#D{Tz>)tT)j2 z9~JyrV8$#4$t1>8{@Etk^#Y|^PhLxz8Mlq8=9S!j#%t5LvcHxr(WwvFJahLJHSCMQ_qqj&n%Q}*b?#Tef{)^*-RV- zb~o?L60$XI6?|Nz^wz6J+h!U6q{y%(%PSX_2-&(ksLp7-`FzsJ?#_j=o4x;*RXo^~ z^^Q%))jslt*6ImY? zTf@2c#Tnhor3={1j2x~{*`YY=+idpZ##;57`(8a4-|r>1e^b}ulk@jo`mn;&y8Y^= zSz%uzRAygY#BZhUH*2Eym1Pw#rixV;EtoWS>5={aV|gO&_N=**9~wXOxFhk9mE;b?30-1zelGj+H82 zy~+``GH-3q1zY0^(w6DST7*Aa>6PdvrE%;8$!6* z7N49NmZc)J;_@y7;gHDazp?TcKC16ubV}1Ljvyqx7bS0LG{EYoI z(OhZ0aOJMc94%hkotmaws(S`!adqx=ik@kl<7n*0Dt@|yWvfbTss@Yd>j|eTkJxhS zOHa%Tef59VzFpt<6z+E2?R0BP!Ii3Czur#1c3D3D&-=sMkFSr{y;EslUGYa}@B3#~ zVQX6|ouqggR`~99y?WB)K~IX>v@-z>6O^u9v)($jto+`!Z+F*Cz2)@$`ljvY{1+E4 z|5|eEzd%oNQTs#NE#3|?w^hwAXX*EvzFR13{NmAy$tMLwWVUE#D%l@x42;fyGPkV$ zR^yXN3%`bF{d@7{lSm|Aqes=G`ZE&_#7{N(|M*nBC->0<^S7L@+}&WYyC5nwR{Ukr z%V%W^#p)Y(t*DVayQaFcb47~v)l*zipj78diFM04apXLmnQtW>5#4GPfhWFS$Zm~a^%Ij*@?d+AE8Yx!(>zKmy)*NWtoUvYL`>qvMf~{WbJ|<0E*%!HKnMRLu@b(9r zxTdpL^tqghRhaMd!{ZwlaqPTFNEucTL8zp=o z>CN(+GgKy&);~5FwLLgy~K?5oT&>va)N^-(1nYswKPn&+5MU zA2R2r$Odcs)XN7WFBtE&d3<%kgxaXh;*Jp;9%opo$-QFvs3P-A<=Q*V&r7B~)NB0S zdM-Sn@}tNlKdyQq=FVb|$nynpKNo3N3oOv&th7r%u*@VO>wm(=pkoecJ&UuZX)Lef zsFrve@+ihJE$3CB&p&wNr8-&h*;aksW!_un&oVk`dF{G%Vf*?ujQXiLf$C<} zjHRi@Zc@>|d9DP-2Jc+DC(C$O$-Rk7t6tvocpS9L{L0zZy%&{2I@kQ%t2pn}J3kAS zH|=%%T@Sz8oh|hK*2(u0+m5_C((It6$~vR(czJwa+xD~XR;8?s4VisaUPY+n;w#x+ z->4}Qzh3rV)R)A&;e^Zl1g*Oz_x)0OCx0=sz4Ut;+l%}KTWuUg*ZyVPb%8@nDMU4k zQ^#!5j3m+RJtmSTjgDEg@6I+&efnzulVwt0eD=FYZ`&_g&-LH_>3{J$wg3Bn&3pb< z_3!^O>9~jg!+-o2{a4@mKOW3no3MmE<5A*%@!m$86U&@8T|d(FR{DK|-!n0dmrna) zchsx?xybQvu1k`HkKUq>?K@5}vo@b}w^3ZtZ!txs&EafM!s!aW;%1AR;kR#Z(tl-e zYxdj)?VtPkm9fZC~REw9eI^P8MIU0@)q68LY)=>-`d)q}Ul z9o}$B@*Ue$H3Q4IiK@?^Fdp1VzkmIgx)SN@lg|d94JbSMRMuAY zK={Furb$6^ib8qn46bI(U;T1_+%gOatLN}B|M;;*G{wlMsO9(q%`Kl~JidOMAs{b( zYop*vSw0a-lWs}A>ds`2pL_lsM0wO${S9`5?JboaVh z#$KN+CVUR^o2r~A+AH#Iy3zc}7y5)x6#2`qxL9KJZNW_SwBBIB!)3dBH+``wxVgc) zkIie*yfb@(6aHM9B{oMrqP$D|L!@}%oHaAItId0yCx4^h#DVsMu9>~!EFzJ1^Nv3V zxU}amQ-%{mmd9JS)BfeB9yC5%W_KZ`>d^}8NAIo_Hm?(e7|E0{X$VuKWe4iib zO=pez=#Y4Fwm4^5X&QT&uaCgSFMkf4dMBdEqg7w?+duz7zun`%=YM_6)B1P)+_vx| z|Fz!OxBgwe;lBuI&+z71f7>6`bMEX4O+U1{(&qMFE1!zM`U`g&|Cf96E`KE8U!%8AQY9++&gijymg`@+w!fZbTNc?aQk=c| zgTplKZ+cf!gMuzzmZ`Fs?#%zZAmi4aja=Pw=Mn>3_OLVu?NHC%xu_#p^V^Yvh%@27 z?^ZoItEPNFaOeHm4=3#FzQsP{=dE4c)fswgv$!WY^A#zaVQVcuwAEJdQc2tWjSnK{ zDrdy6`}hCmx%%=~_sW9)-@mz9{8#lxC<2 z&i&?gc)_+S^Au|>yziX57R@x<=vDo(wXSAm+tSPAy2|(SI^Mb0vpAANYT9}>m-f&! z?H!)mIr5WtA5n9YEy@i3$HA#lu5+owf7TAGBgP*wq*dN{f8>Is$$sI3-r4DOJd-7Vbv}KkyYx?d^Hsa&au0XyDZBo= zbL!7CJFIkei=Is1;5@ri;KSJ)-Mh+spK19ycYT(>_5W-B*B|Ns{+)0B|838cf9p2} zANl`Br~V(eiE`cY{`R?XFSJ)a=l!u&qp`< zD{LgacS>G1pV>1pG~=S%0+Ds%w;gAu1{p*Mh6{bS*r~KbWp7x9@;<-*9b2Q0Tv%II za5L!rFV31h2lxEG;&fBpdgDLi0)@YH=@(xtq&bge&Y>T7-m)syzSS!3r!?$~^WCty$Y+4C|Q=2L>c%2X;X zG~YA(%;KkM$z0R#PPG%A;<|Lb`}ALPAAC}E(tI)L?@Zg{lV4vvC%!?>)F^amm9pa6 zC;5x_Sq4aD-Q9aHoo|Zh&u6=o_e#CjYriZ%vwZW*;0vlBHA{m`rHf5Mrq=D1-0#nc-8KetLy3x1_ag1i-ETiH*!!cRa;xy!C66Z5-N49cxvTMHe z?x{yUF1kJW&*f)tTPD4@pn7qd=H5HYxmDkPUZ(sveRfS{@|W=C-k)|Dp5OXJuU|Z0 zZRw;LvjpoV9C-MyPyDlNQQl{TpH(H1qRZ_sUHnn><>%_ls+A%WBc!D}m1nrsEQ&3wPdaejI_cn)FzhddmH+YvSKfS^_=<4k1 z#?AL`oZcgKYI@<`^OYu(id)M)wVue$jN||R_WtVzjpuUjOILniw^cj6=ge>M#g2?m z`xaDO{}mFj$DUzIliqycQ)er_pZCApq&HvwRO!;E@vXa9WB;uR=-Rq5Lb@AFm@bHr zem_m`=(;@(K@OS=?r=^y^V?%x>lTY9%>{SPecf#Td+CxUz16Oze`KyZPur{Z$$g*P zrc&nii}v=h?=Ic_|I6<|{XTA<$N;WgPaJ<<-nmuXZvAeve>YzindhA{kCFcG(s%vz z#pMgU|DKc0T))@s-$!MBUDl-wPQSgd^u|>204@#IDb`JsHce2=U0kv0@vSnO$oIjW z^CG3#bL)ylSIzg`{pFHb{o2R^_Ja;J`!(hIj{lol^<=N&so8O^Z=9pQMf-BBX$??4 zP{k?VG%Nhjxo&k1sfiLlCV$)c>bAj-4A#SO7Cf8owR$m6nD8+%^e5Zz{6&5FC;m^r zanI9slI#1AmLV$=4j$|Ktrg0-u!4h?qn)+PSaGGje3Q1$mZv)d_(JACdMTMC!&9<4 zbJyeUw8_^rx;7tQ61Fbf#o|cXx1y@nWE1$k-=CMeYTxz=32VRYw2y1ca+y8X?Ow<4#QAc%dh6wR zfB9`4+9~NBd+NJwbBlSei zhT!}2^fk-gpMQCOM%ecAS9Y>n&V4-H`t+B)8}sQdL8+BsGwf{e(POt-v>gOmcoXgju$FS z={YjRtVeoZ$?c|vi&6tqznoWKkN@X3iLc#JzANhHjzydPRWF-#`>zI{fM50ey7OMo zWWSo9(-PK{?Ct^qHE#5 z?l;?B4b;2Vtkj?N=ULUxq)(^5w}>mRe7r+*_QLdgl5h5QaWC4^CcMOr|J3*9cPg)JWwG=EzvwA?1F#(Ar}{oA6AVRSF){;|x4Sp15p(5YQab^0v*{HF9S9 z)N2LCUZ-t>ttRLctcY+hWn1GQ%odUO;>x4OgL}dlM7T{yC;`S*kk=&5}ChzS=Q0HGWuVWc1hev~pyxm+uq)Db~*ocmk3R&A4HCaDDKP@U)Be z>48_aKit4$Y#I@8Qc6wu;}!v{GwvF~S{?PQpKH&$ZD5{q_Dn=W`&E@`e2Kgv!8tN+ZGX6AQFY(`J6tBo(Hfghw-;yaNdA(x#v{hAX_ouDNee?*vY%eiW^LLc7rx!= zRO?|K5lPj`w;npOUo`$)&ft-W*>wE*OjFDFCc6MO6|Jz44_?Oc89hQKY+PPH77zdx93*6+U3 zsP{GD?|gNe&3^xWelDoJe~7bG_+D3{vefJr_)f8RXva0yPf?{v!2v{@Bd?7yzaIL=`* zb8GA}%Y%R01OG3ZynyBJZoMUM^qd79t~oibqo7)yyaF^r^YD$oSGEn z7BOE3H}7?RLZ&+no+@NLj68O-J4tUvh!0bjxsQR@qN~DLTXHhn^ZaFQ6&8C*TwG_7 z$o(t&t1md0ur~8L5BcFV}Ib zx?Ffe+ATw|wDGRi*?V)_cXYn;)2qpl*;jttae?r+qoF3Ex%C{cywqK^@81*=SzpkU zQOCZdq_MG1yllOJw8_c@A8G%H_iP(Gc71vL;%fhbvJW0I4}UaN{YtOd{fsp&M z8RF;VG4HlL^!JFRMylUEe)lZeQ*1 z4_9~BzZZU}bb>dH@h}g&a>Ay*hP31V3W{2tpCobFJGfS2JET)@$K&Coc$HsfEm-?yI|($pz^R=RVB2 ze{;?I+-v2n+pp$anH@bZN{_Pe{g+BR5PD+1&vBCvMW(Xs z`~93FgpS;t`s0VFq^#Z56~f0aZ$2Awoq@%^j+G(HeSS`zXT&6Sa>*!%5&sof|iDs}z6 zzx8|l->Ki~zy>!VH%k1*$_wJ{@`%v_)!gBYXpjQlPcf(?@yQp=d{*x}F znbIsbSvw~%#oqW)=3Jn>AnTih!Gve_f7q`-{l#+cVk8F ziuJ30*{4{aQsw>dOMc_Vz7x}qtvGS%iTwjv!MBTMniR2ryZABqzYFUrA1Qk``MX}5 z{+v4Zp2ws?@T!5IUuqV2bf$F7y62H!S57fwc=FBsZF^bv-gC@*3wM2t{PnIRdZV0) z&?~o1b4?`WlPolBuPyz&S1xt`HFJSkUhTUIS%pm*YW1{F&(E=7iG3ngak}JJgvBn= zzP#4O(GOpQVKQ%j>dTw|uPB{2@>~5MQ||x4(qHV`|JLU(-#GQl|66x&>HXQy^}9at zzy6#5t$+7#_`g2w|NeHb41;%zDktxFovhIpkg|vW|L4xqQYodCm-=tiE3q*aKRcc{ z`%PEaTR)d#XCBAG{#AQCcXe!#I-!`YbVBS1i&<0p#Z+H25r)IbLI>O<8JrgPPk+M7 zV;lC`?QdO4qt3s_x5W#CS7|(-d~(IlyXE5I;--70+#la7fBDAn!1v>CKhLtCdF9r{ z2fKefvd;3;e|-Pq#kRc*7rxJL`pC1(y1DOg#v*~%Tgvr9^IHE3%xM4RcdPNns>v@69c@P2+s}o3`2aEc%y_;G1$P0eq$w#BVC|ea|8ZQWBaptk^5z@Ysv0z5a+f4Z{43@T)t%-t%H?4Tj zUmd((JmjHt#<~#pMxYm zu^jvKiz$V(eTPghR{Og6MPKN9=IhDe@W>*={jgu?7pEyg`?9w7 z_;g$UoxGkeUe>n0wBpq6T+NV^*KDUGr0^GPulC?vz9*Wg?_#j}yf%?vjzJ-3<={$3f{qfA3eZK_d0v1*t^vYCh|NMKU!Hk0&YLBLFld3sz ztW_;gd;OLc?%KM(tr^v^&(?peyfJsf-0)>Ccg1G0t?+Zbv%cfk)62_i^E%B{?(|9Y z?h;Gc8h$Y32GjrR=3npDKh&GywIn+|VJFAEzjb^LmCqVgFP2PPvC{1E4xtHeOPEic zFy>59s%PO2JhS`ehSNJY{`h_W;r#dY0c& zOzw(PF|XW>tc`wds+W8)*C^0Wu`NY-iEy7W=SMxMz1?!IlRZs57^}W}Z2Q8r?8fdF zx|v^3I_ckA_u1%%F>y#4&fM=ZM?o`xJKyIK-?h9UN*u5Vbc&WSBLD;B+cQ{rgK|sCa$bqn*lc4OpdH z9H-duov;`0ifU)$>D)X++B$i@$l;Dc*~V{-+P{SBzQsrhIX<*_`Ab3H|0~0RH5F34 z>N=m5HUG?Y>udJZnd-k)C6&qU_3yX*ng@>Xuk-dcd$7))<9GNZYoi0}_j9v5?)hmZ z_2cl@5aYrh^BsQONZEdnr+ewCg_mAx&E&1T&G$w8O~w41&By@bMCBv8`Apx>Z_Gv0ZPUDb0p_X*p~PFUT^K4tA`JX z^je>}edDaf?tHO`~*;#RYj6l{-;aw^D`&4UJ9Gve^S(E;{kE?M@)J`L>P3>D&e{ogQ z_@vuttMS6>uqWHEyP5JwJWW0|9$Te4nN4@?hI)3zu%)f@dJpdRdF*+Em-$~mSGzSM$a_eIM;hd-%J&h0ppWFb4}ppI&zu6C>;ug4O; zsoOlb!>{ar^{^^cs!ICHiM&ZmPusMsvRqm6V9Tj$TW%I5+YcM($H-enG(YTH&(@sK zq*f>YGb<-Hr%pXYWc`yH)6N@bsnrCDBheXziLBES0;ZQ7h}y-4hQr zPY9>hH!c0(T#$G^xoB!b;=5g67M<127O3D63V7b9T$1Ec_2Z+Z`a!>vL-*xe|MuOn zWV*Jzvgr{Q@4byo`K5m>W?a0;{Pd%Y?cuK(1#D~HaCJ$vMASdxZ_beVzCLG9J(qRH z=NK=JxP+T?cJ4^$JSf9^;LXi9ckg<=w!g~oP@_Yz7XD5unXy&hp)%6(@#-qvV(uzZ%M>BPl31>#c~3q5s}Uuf7ePx3gM zU=VeELYCVm@w-#a-(7i8`JmjxsX0i=_RphMsq|U4CS2EVKGJXOxctwkjG^~}lbBM@ ziV!&|zHrMKIw=O#w!3GC`V>7l8*aGw&W-Z_Q*$pE?TUKVuJd^H1|KQU&96Mt*31qJ zV(U-2xbIY?zsdREFW~o-hCWR88UN&M9lWEu~w&c=nt$F|FX9 zsCVY&t~ocum#{fMT{C;FbguOz*5gxh6s&Hy@FY6i485nykQ|=bU(oPx&%zgKZ46Vt z{#mTQu$+5kr}IfE^=St+ryUG&HWWLr*%Y|RR7ho)vEN~}FioM?FB9L-7Sj1(+_(FX z#mTlH>vPWzAGa*Zo_OZewU>f@aVFCmrWaPdsn1(km7NqiYs;>ck8<`|CG>xeo__G| zPoo=oSIjOgsWvs*nRk53$)`HWuY%4UG*5s1=!|LH687FB3oo1Mz0k6i{AzG_UAk}9 z{kxvaGaYxQd9s#AU0AD9{6O#01!2)2GO_PBeq!mmvu9~#+oiK2$LGdobvZ9mWm({! zsc2w%UG>?VJIjCnY8PgxIzRW>?!GfclJ7m21x*Oxn6&uCf77iyjyyYmo^7+w{=2p@ zbND+n5@J_r-WPtlWV?@QxxUylX1~j6nSn{1jPX`1cY1eA?375U*dqDo(oyW!~+@GgnXVIWz;jBb6>7x$)sgLv)E^NTz~Q9ZLjkT{p8bK8jN$Df7V^# z(%7#3A<6vkq3$0+!3VEQ+BG9CD%qoXhkCyBCEtg6x)ZWF*ChIW^z|t;cKGqA*6D|4 zzMx$EQPT#q#nXjSrwd%MODp?*`G?Gh*9>M;1Y+8RFFr_geOZ{~9dmm ziT&$;u4!!gow3z>S6{?(d*_`w8aJz$4)|psisQWysmtfU&b;>2jlUTmBk#vwzqW6Q zt1h>5E&t4B(Fb>y?hp>TKg(yvign8C_W$?aIPZbd@e=m0A~(8baus{1g@l}1s=0ka zN~mG)Ny+DT9PB5?pO9Fuz*=`(iZS!$@@s!CYJ51p(Sln|+|fWJJvrd#OBVKiYf~nv zrG~M=lO8uc-Wb<<@qqI3PA1M*Oh>sK!;hS_JUYK~YO(XR12^k>I;T95OZ2_(6UKh> zx$K@oo4`cfFPG1FUigw1B{a*1{lfOSq9=IUb{;HLkU6&EUvSOi=0k4V9fDpsT|L8- zC#R4kt+@4#gQ)s{o1gz|X8mp0@V~N3YyJPU1Lw~Le8?}ocd0aE^|FViY0h@v{gR4i znI75FKG)pz@|p>jUv(}|jI7ODxqFS+U9WQC?3-J6uik#L*vk9o7u}n##l6p6p1ofE z^^NqWA1_+>U7f5wrI=-H<~7dG3&d{qtZ))}f6!&;LRB8koES!3i?-YuRqRVINwKC) z_HvuFknhO;teshtjtD=Gy>XVc@w$QYq3LbbD(^_Tt>#KwKfZ+Hl|I!=7BBv*kbsDk(~<{|L8e77PzcDOjN?m`Vu^aqp?%KIFor+SsiJ}^k08Y!o9 zw09=6S-Vq!`AnC9qIo;pYyJo5G|RN#reHme$|`F;kuD>>w@>x`L`>-_@lo6+v2iN zjr6Ij9_)IY(D3l~A_))wfBzjr%lVvbE*#|UW1Bl+0)O;9(Zf%AUByIxX>8u!)2}$M z?%R!@@$(E%W-~lAn6toeuH3c6_rb+JDv9@R?63HF?ecDh>o0GVnQYs;fW5h4aYcG8 z^OT))o?eq)B!A23-tmJ1%h}h9h~&(9?fST)HG7Wo{Mbvz6G9S?{QP2~WZ$G$+0w*O zdRJrp2fvkVN^cB0`BvCX-ST?hm*YFwXTKNmH5uLv&bfO&b%^IZO4zdG@qUxji};qTX;V>u*~fR^ zCg#P*sP(3I`u25|x=+?ycOc+X;tFAt%1e9QZ~St&eDMeKuExG!3%Y0PEe`#(MEjkk zZ@vEdpDT8^+t2CZE}7?Y@Ntx4Ov|40eS!{ZSAP|4mc5wjUH>TQn^?fUiy4XYWjp@c zer*@ln9cdIa{8h(mv~pN`WqIh&cZ1e{6FN6no#(gFu#o_6K#`pg=0$(2gb)8o266Q z%Kf{tw|j^G7H!s$BkNwJrfprlBmZiu<{rj}dvYBnaaNxR5@~*O~3{&Z&h zh96AR9!L20?>JdtBRS`r*XIr$Wa*$|(V6ng7+h|%(%_K8bD^5Np^2TB&a z&{1b7_`ZZk#mQ%(%u6XHnFUeIUgte7T>W1muRd3_q)})!-=j6xk1=|Rwlqzym-*tT zb528W3P;U6r40AIiWesONys<(6+b)u+xf%`i#f>~LswtkGrR9i-JkhyT;JFq(ph%p z!|(0-@fw0V@Aw{#Svl3l;+N8ru=x87uO5poXbC8K7q!eq=$TfPoy%*XgI&AI0#?kC z-uZ2++%bmLDf)Y4j-O17%F^AIobY4|^DO;W9zowjS0r|y&fIfF;BIf!&ghWrt$BA7 zRv+DHskW1;RoyOUx1msikKyZroXC!ZHK8>ZMI`5$C`O!6u1wsMh0qpojIN`j_+PpIAMM>(7&n$eG>JO!J<-Hc1wDbn5%a zw>wB{MR2@=n?&;j@4KfK?_jxE^J~H;pCe2Wy@$S8nl~qI{W904d^P;w^)Bq(nC)i;E_M_aQD;hbzEtQmqWQe?+F!{#(p8;qJhHB zIbXtFXC_$j$FxP~@AVE}^?-Q!qY%W$zT_R+$aZ<1LMDyi^T1lpT`}6Pp zux=<~{+P%eEB<0`M}PSfkL_!IY;CU}_WF&s#SGK^shQi)?K;vV zDY-qXW3n#CrK-8lLe0YDRU*P}&Ne<(?6;}ONVeSgU2UM>swR^!%if>oNxs>%&+@TU zQgL?0Nv%^(v)r=ISb8p*!e|ovF#McnSim+<`^~L)tnW`tG+eE=4m5B!Cb9POOT{F8- z*gsV+#pB(b-Q`;O>vB$;=boLM_jAK@Zj0m!tJ4RtBL{sCX9WB*S| zO#DA%_C~(b6DLiNYKvdW+O##QNomF@zBPYJw#}`cbFObLi19nv>i3~j{^_@OuD^8i zaQ7Ff`K6s^$zq!-vmSD-Uub#x{EYfb!j7|JE?tj&d-?+BVLx+eKI0YE+`SXkmKUCh zUi5Lc{{K^4lXw0)edfs*BeuyFkJIZtCY96b{)l3Mh9ew;7+l!-C!U-|6LMb$MwDe>68 zy!_!!hDkbe*%HbwWpW5l-7ew67w?;L&1PTF?#FMwiGP}U=if5TI>pC90!MvKN~*%$ zta6TC>o!SCpS2^~N3`JX)OFz->%N6VzVAOA_m+cY62pEZkN;fJ@HYBa%<_gSby<#wW-DTT+i=`T3UJC z=B}6Ib(^n(Vr|QhE{Hs+dThm7kI8F9*9xZjn!I`VGn!ZVi*{J|%Wq9z?4DP5zTj(Q z;>ob#)jYxXbIHV|ue^>tzqsYT;PZbv7ubxMCOpvi-DG0t(RkeO*`h5P-u4H#Zv7Ja zlX?67fVO!Nu5uO=^dk!>rS2*OSQ_`cWBM- zvYT6OZ=Y)>+*{w7H@js~wU@<&7kKmsHgIOwH`dPiYKtx}6y}}Z$Kdv>C8^h@U2J}nY`?~&Rl&X9j`j8$;m0eE zC>lAx{KWM7Y5{Y>Gq>W{BBMuoxAWq%qg0G*Zg2IT`+9}*>?@iY+h-PS{#7JXns@Hp z>dIStIv@SK^QT6_?}Mq^Y3}p9JO3Q5oAcI(t90+*npnfj5$V138?#Tl zbe-UnA2;?%vfoYUIeue7-}f8h7SI1E*Gl}nyl2C|$s3skIOe@peX&&SZ0y`+YbvIF zs(kymNK~VI@2VGOT9t08+BvD$o13n^Yi}uUdnt5za<#7NlFQbPnx2zyJ7~_m{4_FQ zSy%e3j^4^2<)$@@YECWvtkHGZ<)7^v=kuG*4n1trHSqh&v)f^U(cynn#1DQr)R*ug z(H@Ae5nO_l$)KRW;Z_rK~NlK1NG-}@>Ree(PL@>jQy{(g^!>eqh1Z+`T6 z#cYO~ndHCko`|R66@AT&1$kXD}zIR;@ zhT@*qzSS|TKkc7mY+-fg%LF-xC$YfF?iG7nL+)93otnKoMSNmq_lZ669w~8I4)%Mz zCMMU|eSL7isQJOHy4~Eh#j@%#=2tHHD(R-SMD61}?I>TUh|!dbUPkG0no z1x$Qk@9CoLs ztSeP*#g2 zWtYtiFY?Zw@$1KnR*!v?vZHJnJC>Vz%iMnd#H{r%L!MmI{KumAt!;AZr%Tr8s{gt< zy-X#p#ZKF4zUad9b<;1TpL)HWqwZTcU)?v?oQStaUxkJIzx966@BfZd|F`rN*nYL= ze4=N@@cCB67FLgIe>dkbP5K*?C_N$Gv|3q!{l}u#o=P>_eUnaYEeZ)ue4Qk^$c3%n zV4?T1V6p!%SghO*YBx`sa?P%7&HY1b#QN8T{9hdtt>kb~f7#+d6I-Ch~b6WQU~2YhCHkrp{x`?x1<&#%BYyYmw7hq}D|oqg;-b8q7v=5)v03;%gO z{@+$sUN-6De}k1B|HF^`*M9V0^yB}oAN8((_CJ06Kd{1jM*5$pf%aMT9p2|Qt`*(a zb;h=8r?5TW%Ple)6-TP8Z|!+4;Ck3>MI>X6@9ak(Ur%>f-QFK3v#7~md|{&S-eH9IrJCo(F8X|u zU*&k>l}O4t=?3xcllkR(hCJNXJ1*T2Sha2D3rm$Gj}J!wE>}G}{(SQ0eOyP`cdNxG zt>7_Wf23@A+2rDlefo1fW(5?*^DGnYdT;vSxV(jYZcwUJ#x@hnjnDkz>}r1RpUd6e za>#pyZ`$f*HFLafqzhlm&$7DirLwn3=*Dd~g)p%-y&{Hx9X;7x{bx)_ygrrFsIZ9X zsK`7ChP~|d=@YD0^X`bAArbt@LB0FE`B8^wTYocZ%(Z1o`M!e3I&(#fnB1z^^&RtW z^=aA*eDV+blU`CvOWczw0gF?Nc|1I&e;Fhx8)N$5YCzF4@dU zNOV*3?t9_h^rmsLvENLQhv{;aojNV%Zt@3L^yfEyJaarlztA`R$^^~zAL1jQ%0xsy zI1n4vd2s!U1?K{GoN5g2EPN2vwSUFm!iK&ZwVCYvyC1Foc4C(B-2$1z{wBQJ8|LY1 z7YA2}l(qFb+jPt~~mEkZ(K&WX?O4&+tFU*5F;{N;BJ zR}wE-@+mA#^8FkV?6gJgx^DJ?p2L?u&uR%VzN+;rmoO;9go9fS9n`S=@QpR0w&L2qwt2~fT-dOq$N+d+m) zRWj|*bzUrN^f=g(v#w87>-SPq4+q5qoBuQ0YbJ`a$tY~C$;mpZAf}}u^~IQ5b>W(q zH($RDI{k7I&q7D08PXe$$tO(7KeTuIVJS9+i(huIS<9Z)dK$S{D{9NBg$MWi*>|id zzwJlJ35}gH*|F^#MC)#Z-RWIR%JGd;6xmT|-;@jTvqd*hu8Cxu#HPJC0| z99A`F^Uaku&3koHn3tW@T6(|nY5uX^6%%`oF_tt-syl4++}`xyTk6M(TY37CHj}UG z_C@zS?MWzpdP`>GHZJ2`PVf59POCjRbNkH#p{l3-$DaO@dJ${1J1-@5-u&&!@kcJ~ z$_vU|f97F|vwoB}&&3x$!eVUEPG7Q06#2?brcLS#5uB6k`+4!Kqn4{2+g5I2OtfLN zJKhu6dw-fm{E<>qQ6=dz_CIlA4xuY6SJxNB9yMtAD*bZ4rOS!uMIAe&tGxSWbJea4 zetZ7SvGoL-ZF1~!*sgt74g$cPA4lLf+6PvC1 zu)&jM1Jq)&+^hNW&a6a=-4jwtCxhpIc<$E_;Rd(@P ztlDA!eOh2(f7VGI+l`MUj&Zqm&a#vf`T6^Pt7paqzH4(o^gRhIkPi6yZF}f0Zpoe7 zuXeM%aB-jXC-ti;^YTkd!hXLzQdYKV9<9ISH1llhw`1+o)Dv?)@+D8}X?;*^ke>8% zB9r;ql{Qn~xB2h}BRr<>NheaCJ!DruZnG3A}4wb3Qrjz3Y!} z--9E66*rsSW3#`saN69Zq8(1!uf)|aXS)Y+dh*RV6_NHXLm__Fn*EON=PWC-uDEQP zuyXR_=vek3>qWOC+4n86EbR6^xz@j5zqa#dZJN(D3&|guuK$cn7N(Xf73Xd;7u5fI z(qhkirC3$lP0o>je>z+I3%}B&(kuC)iTxQ`>Ki8uBtBZ?^r= zuy;{elOoCMx;#s}ec$mZ*PS2FPfdOCcD3jJGDymF>=G?;zprP)lA$=E%bW4;W%q|EZF#PbH`a%qdcUePJ7A}q<%@sK^Q8@hx4mw! z?PA}%tuE=#Ie%AmrE1Q7yr(ZOIVSM!D2Mz{o;NZ{_X{Nanf7nao3-T0!em3?``uR3 zu`=;I%Tu{u?3(qNf8%Y_nE4EBlA%!+H7+7IjrWw^?$13PE3y5@8;)r&m>aJ*`QH0* zCc;v}B0g=4_T-Q4e;R!<|AcN|xM785!3US*5N>&Afz(46e)X>4KRR=Z$6Q0*w)<5% zRZ?ME40i<#Bz8QHD*gDEv4&C5lG!UN!ZP&9Cc&~V;`5wo;j(X^<6nnMNv8~-8 zI)B4Q|Im|>rNvQ-W~btReu{dOwJWY_wbxlsyM?zlaWH8bKRzKM#W3+*(KEe|Q3=8) z)Yfj8rs6g8KN&yo(`f2iW}ymZf}wK4nlJ-*pJQFiIXE05f7i`?33)nQky=zGlb zi3i&kGvp99SzT()*v-VY^mjd5}k_{0J{#hFy ze`86W(qr>}Is3EeX`9c#_@e#jNl4#>w$oy@+-+yMNgk){!*IgG|^^fefx*~Tk zU9RQ-!wxC&t%bc!ljrLgYF?QVF!A@Bx68iic$B=7I$_Pc@MHPRdrI@?A9d}Pux?%} ztQ%4LG5?&uU-!E|4+WN*H9xo;G1F_wmR&lfTNHO5?96WsU#K*#NSM#~RZ#k~>#RNo zJtq67HQcd2Gh;`9l6Q%|NY!566H}{JpEGzAeR@Uwl%Ax!92eU|Y=lBG_Xph4*W!J_ zcQoMl-?!#}zA<+N{rT1H_or3(XOHpQ^>1FBSXRG4X?^ONKYM$lc5>gjlq$;99`y3k zUS401Qp;A?V*N!2)<4epAbX~9iOrsUEV-=LCoNo(sXJ{k=Zovl{(RC8U2t9N(v_w6 zWK^A85AS$;biT%xf}h)?_y3(b{p&;5?EJ2>(*<)jvz_F-^Hb}{-;)>atE^wUC2Ptx zvD49ycK^9p{Ht!Qs!Do`(X@#@WqBJWd}#5~S6i3)TI2qPsr3?D&M*qZ8?A}G{A}%8 z@r)10^!LA3ydYi`^uMz2-c{e#%kB0_Oy`&@^7*lBmhxX5KBC(-fC#^<@kDI-e~+)vC$quq@@8-p0w(s^fKEPr5a$*!`?o;%V;e z?9cC4uT6~)pL}-q>#Xc&YYy+*^v$;Cw`x&HYsvO2t(&(#eLwrH@oE{3aMK4OzbAF< z3aaKgQzGM&b^O{2mfBPY`vo?;I#%gbr_7vwH*kB-r)r)c9iFH`z0{m7d-;FIj*4nRoKu*;zqZl9yeU1si<`)~r=a=y_u>VOLbugrc4+ ze#;D<*^* z*Af4{Z^y*#oy(@?KB;xxRUu`kDtcmGf^O1JD|yS4A37~qw}?N#lr`h+kxQ@9$&|rLTW)^0%j?%lrtpm~twCTSU%n z^85YPza3u+&Q=Qw7H;p2Op!Qwx0#1u?)4@8kjOdPWj>h&F(x{yd9|x8uYaNOyf`52 zZCY^QVeVGF0)_On^iqN&L#U%y3`G#+(`ao<>} z>-$|Y@Oo~R%Zrbnw5_!Qn{If_uU`>X*TcB@U#MvAG>f=c6NmO6T#+VM`b`hbTPPp9 zASC;@p`BmfKi^fUoE}^AHS~{~eT(j`yYRN{tpKy$$p-sElRteq+-fBTkJdN5D z^PcJPCg!4ypt&&#JHF+KOB7{%yhp^2$);yW44?(Rr) zx#H}bAuJs$r7iA~xccwJ!yB#^J>H;dZgKtoy)(U=!hQ$0N3PcG*}Uz_w|8oS*MzRr zFY?iGU)kz>GkEsO@JAu-_GT@@txoIgZhe|O)pK&Tz{S<=9|~E!rrbZ)A+jLC<*~(t ziSr%RxwV!QW$acjIW1p)=7`VXb)D`D5`UD4bu*o|Y+pL#fzXZDo5BVEG2H+4k3ZA$ z$-+*d_obB&;-}SD|BwE<{qTJ)(M75^9|+E~YcEc;-FaPp+WY_xX>Ps)6JDBrWXVoA z&QM{ofa85iLXzO>zWFbm4l^kRi>7BTO7oYR{;OQKzNc@?uPeu;uD`zaDKT`Nrl`^G ztz8)>W|i3US^vEJ&ckol;}BEJ#xG5MQ<#q~{><&8Q1h;~;oremqWsq<$De;Fv-E<^ z-HZ^0I%{D|S^38+dCm6*f9`nW?4BR^X6>@$Dty0UgJ+cbvRH-IeK}M84YR%Sd+%z~SIb0R#g{+1`_n{BJ>#{NXmh5`#M=t) zO>;J^y=`-7Qfa^Axz=#OSIg9ob-bB3ZI#KT#g5O}c)51CEi888Tef_`>c&rpOn=0x zU&!6id~UJcPIL7M7rz8M?R?#IxWvTGGH1HUoM#RGXB(bM8=PNr@y`j%KP8Xcr!7C+ zb*cE&+zp53I8-d<_l$lvWy{j5d5g17O;w6^bd(}UyR-<>X) z^>1$p!;LGa{)-z_8iy`BTv=lI>vW*2EK7~%a|X$8|M?$h{yF&m{-wwK+;9JXeQUdZ zV$FZXI?-?c5B-b3@t+&IJYDCq6V;9Z{;b=N6yekGW@my?YiGTk-YTx4+NM z^#wS|$C@6!{w(CdanBp&^1VMkUj2N1{XDz+uP*nmgst;ceZAMEE1>_Mpl?ytq4oz? zOtY){bXWopM81kLU_Rh;A+X_L>AKjCE8@ScEKMt(EHV;QeZJN0O7I!Ed#6J3O>b?l z^X{}hQ8j;Q4Hsv>OWY$%_qp%({W&qKKR{)}oQyNt{h#id-M6{DBFIbI=Ie}Qmj%~L ztmu|AJt~+r@9BJ%+#KHXm!7FTY1f`=zUsr{%gapvcy8ae_*V57?k#d60#17w3_i6x zPlyxVS5{y+N`SsEL%J_$`s zjQ=xDZyB4=t~*vGrXPJ0kMKW`-tsS0epa|#hJM5RY{OqBrxzV$6Zz-a{#-x%P~rl% z-`CxiGA&qAc_`+l$HOCat`}4VE#7^g zExDdI>Chnz=KkJa z%f35QSf6dXe&^n@SSerky}u_%Nb=6x<1K&s^{IzXURiuN{`SmshdQo+Z7g%YKmGDd z=XtKLP1-8kkLv$^U(t>J;;`t&y=$*mi(g?%DO=EGxQKo7v~vgLjjn(7s}8o4^4@Y! zWy3}B%buq83`dJ&lGAIc8WPukg#SFD`RPp8(FqJn{TV$1RbGOwYjvy^ zS@7SIk5ZO*3GYA0{bn;4SJ;}Qqjoon57+VjIn90II9qnnm1Qq8I{tkLdhqS1PS=M! zZB4&z7Vmx|;o)@j?V}5`vPHhO9kMRb^f=PfZ~CIiehFKM$GrXma>%3I0U9mms7OSmNY&I`NvwCt0_(!~lj@lr2ZcC&ezoDVCsYA-qxw=zfaYGGIT z5yO@31~t9fpWn~Yi!A#Pz*rH=QO#t#^bwzSLW|#xk34?@eeHIanp`u#Rl251_(ZzY zx5TNd52mbCxu-Bm{IB&nkJSsUE{Nv|v>FBN)4Fl3@#a%KR@Gm;`xI_jop#-yd_mnU z^LVq1jU|_4d+n;k2&<&1qiJ8gjP}Ls3>E!QZ}KjrQPipa#$o4Ermx&Rd82pAgfZ$Q zgoxhdva*j4OG(gM_^9Aiuu<#pr8S#RJ<={+()r=~oyR_MxhItll(5q=T^Wf!K;T!#? z3+MBuFV__`TkyljPfaJ=Q!nX}chkmY^BE?`Zt6aH{lKP;@AD@3L=i_<)2bTi+1Vd?%Gsrn3nRrwIZs$ z?vgY67jKa-8x=NbC!YB>WoFMJ_a?8iyNfy$FRDZzzOVPe@#w7SJHjFveRe!JnHjp) z(dT!Upq`c(+uW~x&64L=PI}t4{zboV_w%c%p)sL9boS;b*1TL$@A@M7h>N8&Bk!RQ zZbrX(-wL~SZ(>-!ecm;%h>RG{t1dbp<{jeFwNAEXxS_i2o63$U&pzDA;5)y5sbxZY zSh!qIe)U3|KZ#S=mzo+lab9)&ImhCc^R{mW;pGLU?Jf5j+D@HcZ(wts%QzV7FbiqEM>E9#~! z(ff4bc=T(*eil~kSL`*(C443#vHgn=W>`7Oh0CS9-{Q4+QLB7p_>%MMjvSsYtQK~%KKQJgW7+44_I(b$YFfHha)EL_&psTSV{7u&yFK%B<0iQs z$C^!RAO3B*x+7R}g6!cK-(|`f50}V3<9UwlOVGmA})Rk+w@_hV)Q$kS38f(+&;Hw;z{E-GiJ^)_oz%3 zdDql6i1q@X4UVj}-jv&Di-$?p(O&7GM?Qy4!lb z+Lt%d+iVk#ulb@l_h_0;q`L0fnb%7lBTxH;FMX}`@sUir=FJWA`wxq&ITZ9+8$90c zRHOCd+K2ET1$PDbHD$Il9ZdV?otav$?-OnIP4d=ZU1jV29t!<4)~0LhQ#$03`MRg_ zf&Z$T_dgo7{nrgl(#LZH!z zirD=F%3|MV+^A^%vciLPRaTN0-;D>8XZAR!Sv4NNbwb@C>TQjH64(9z4VeaqRx0zH zn3Ef_=COp#naHU^vwd6CCck80zIf>VjT0M|%j<8M@Mh)a8I=~_J{go;D2PAVlp{S^ z?%~DF8w1Wx6YX7kpRt$umqbWG#iYe;pO;r2DF3^^N&eSImp95OD(5~uy`51qOW$87 zh+S-{>8zlZX14Y{7tVa!8jzaOZF26vNc_R&b@klwe3SN{$@HH&Yh}<$EyeYG=|+8N zEy{H#EIIG%&fQMx_&X*E3!@^L`skf%@G)te56L*{+zdYl=XoWB%dT z-EC*iPx$fc$2?Zy8fEkKM-J*LPMGqb&m)CP;X@+--P;}pr|Ui#Iqh%AZQq-ky4lUi z>#R zepBE2cm0O{qTlwvzV(03;s3whr9IyFVVl7h?_~AwALcVVcc}02j(E7>zwEp}JGahf z4Hn@rkgO?7IcN7oJpY*BzEue{tZKmWkU!#w5l!%G*~=Tkg0o z&}Hr|eanFCqaL+w6Ms3s{;#NWX>s%y#)yi4`?pX1^k4TJO4G95^{@RDX@;#m7v&Pp zTQI&^!2ID`-eqq~#+GSXb0ixJ;~3mTy>f5mMH>n~ZNIX#WQnuh(nZR<0{QM++cjD( zTNJG-8(=swar?1p&-Q$q#H;FkzVq&kF3~*xbOS;4Ks_6dv>3jxK3t~^n3I4g&wQFsUmYeW4?FW1JzWF3{@s^6{uh~k! zZZ=w;T`B+Hyyf7rp#p(`9u|aiwV$`=ijae|-3-m#SoUyBNb4y2^K}NWFQybK)MSF8+yIU1#=9x>I*X%jyP$8$-Yo#awmYS-Y1WlzH^{ zYSDp}t>(*Lz(RnIxr{FEqI;1^;3v{J|2 zjO&9=)LG3vSEY&Eucb)R0B#QIZ6ww`BFHTEHKU>;# z6_zj};3 zg|c~8zPvGQ>lyJGah?kzw>i8HyL?G*_ENEn`byoJ!UZ`O|G9COK0eYo>5lE=QqiVP zk^O2@+C;xUI#DG)LuI*+%bP`FJSPuY1oQT5`A$gIozdJdf9zXoB?oHe}Ps7xei6RV5#VwQd zTt#*pD+Ff!(EI(yfi2R8ubZ=+9zlkTVgrmA$I|(&nHRpJ?yN)5n+( zZr}ezLA?EW{iVCS(C-_zawh3F`{n%~1=4-6~_9*N5JimG#IU8}$ zm6@MZ{A{6vjlb_gmydRhbM+ddlP@Z)V+|DxedV+G(#d42<)Z5T7am5>k?EYzY9iu) z`}vuhjr{kQ>B9Hps?H(q*%pSPIsQ$mYfoHSeZWXK;-Soh&`kc; zw~Y=b#Mo>l1CmmkO}77KS~i(u*WC@gRmWP?7aV+k94g6OQYU9$b>BK`-KF`vO-nVrk2kHmf9jvU)9?Se zZVeF+{y#L`wr9!z;ma20RrWp3Atq68>ssD396I&4zwpA_!{4&ROf*f*=dHVF?{)o6N!0aK z797VPb3CrFT)Cot6Wio7ob3j!$tBA|CCk=T6<<8(xi|SA2iFSgQ^(&O%~^0Kz~)fC z!<}aSXR*DzO7-llj%Tm#WH|EEx?u4Ouk~@4uA5DNySHY8(d?xE=fCX!v*Ow@?iYKjjuw6MaNV^0hw7_Emc~<+ zG$wrH$j>f6WEjn~rr^DjWR0Tej_7%2U(I;duKB=RVsh76<>|)UUmsaH1MLK~-Bl+r zc)z-k_w3|$gO8239PYkZHmB{(LG|3yKFO_O2M?t)heVXF2)uSai)+F6Glz@6%1zO} z+4yYg^R`8^P2Y;VeP%K3%a4C0ZYzql3Knv6*m9gReZ?)ue&A$X`Qc}7HC~UIG<#-9 z+Y7hfxTWZRvUQ$%74Olw&ll34s6E#9&D>SC?%jOlNa<&~{MkucnG)}-@>fVreW5FA z*Uis1VbwfN51*J8?H6S``i>s_`)R?(O{Wvi#4ky+k#B0?1}(0beTieM$?pf742A9a z7jv$;u$OHu+ZVlVwVBgBji*hU6c;72(7VamIg26qtu~vS^tr0u;Ll$ojMg-|W=wQ+ zo?YSjDdf|M#+;rLH8#s5%{uc} zO}lTxd+p0!u|E?xbUjSI_$hi@>X}uEd-Z)U6lu*U&O7d^_i>H;>%C^Va#z1RdBAQr zXF0D3{{x-C<~g^#KCf4G(XhnHLyo7ihVV;Rn-9e39D8BftZzsahx@#ju% z55eusL8oL=lGk_4Y_? zXD9VtUivujC7bYOo24=Q`)BUnwqeee)X!|zo);&5+$Z+Oij^nb%E9dncWdft7siIE zT2AW)jgL!qsmy=uGPO7G+~JIMsU$qzJ;EF%T_3D2|1zM zy(x5~(yw1{d+cme7EjCedSoW(eEegtTz2rp;DWm+l=hd*coTis)Gqk$7U@uP-=q89 zhD-9K>sHDCbx?`R>8gxUW#>G8VwL`U9Yby37h5`BzgU`?a_)t)z;Rv!Vd>cqGcGE$ zZ2EawxzZ~mXR^#1=FU$=4n&QJWW`(}UZ-|ZXzi+#KQ z`gZ-zpT}=cWJ}1uyu1IN{q3*IrvLtT+=<&j?AMJM(eHxSt-NugYkjuPHA9|DX->(X zHp`uSV8FdKKo9^ouBo-W$U2)||w}w>XB(ZBvQpei_R;+eZT=~ggDdC>Q zi}J727=Ox^IDP7R6~9oaYLVa~13vX1>r}Q}<=pjei~T|sqx5-US=+83E!BB=ie345 z&71{iR=nT-bT@Ch#{DGOdVSC3vnn_j$+iT@+p-pH-MEJ#MxT*&$r=B!ZH~vkK3>yU zw0rip`>SV2Ut-JNU%tqlLpgKX`A`YoNE4YKd*-+InR;hGX>z??A+>ArOHJ2RGbXBw zb<9av;c?JWudVE%r1-pf*Sxa*8O_!(oceLvCeHPts50j|lO_??#aq5<&0_KWE2CuS zR`YK0%|ALbViI;6ooT=788?gVpXir~avwF;@+K(r)T&LM^5pVnhBk!>{kbPjZ9DGw zZDYI2irhJ|O)J6*U4t^EFO|slHqVe~tY#4{jL%xCB=dvyP9I0Hvf7@LJSR4HzFru= z*j(uAu2VZSgM=BEJ8yDjmz`by>3mVjbYZui(C9^SYrKqNLU9iv-r3TOMYV2i7FD|UwFnM42Ij>X89{5{%vL(4y zsyvssyE*&Q&LZ6tk4~E?ntK;rRe$+pMw{+>yVoVHs#CL_w?)RpDmyE#?HA6Pbn)Lw zw;NYH-EVB|lWS-^DUj-KcKccOL)Ep1^ulr^wiRr;-urrC%j=5RA^fXkWjnLM@fmZ^ufjf2(G7$30DQ($bi=Rnj=~x8L@OFJJFoAX-uqnq+x{o3Xy|-+Bel*!?q`Gdpv)8T0ebc;avb0ZoSG+U~&^sk{>(Rv- z*I#UEo^*GOt&M)*{n_?55g+>{YTtHm`QP{FTl@Lf|94NW`k#9{TjbmQL;s?0)N@0# z)b$PjPlcZO^#AVNHScq(zOcm9@-N<>`s4qq*CsldXZpS`U7E0ex?LlChNj{5Qogq- zCAFJmY<;#&+``SrCw#wIIlQSL<7Zauv7c_UeLpF+X>9qha?XVFKXcnQFO+AdD(y%)c4DK~za_P^S}O%_NKG5MJt6tm!){Du#S^vU-T#UXvUvlU!EaTe*UyyC*Pe7w!U#eYp&#v>1(&~7jwqzmhU#$Bfma?MEB$gO?9v`Q|>;{pEc~^OQp7Jf?kHmtWj*xytHoJ;T24HjhKg zMNKsgSFhgG<1T;3YRk7Y3%B&0dv*rQ3b`u2&bM~1`islUOb*2&V)?XtLx&{ELrgOQ>L-vrWcPtFZj#IE^>2f-HyxeVokb! z1?uPgJ~8Xs`X0?+b0U;aUi0MJcXP|H`=Gg`EpcsTvW4Qu7VoQny6EAtQkD0`_qh3M zYj$*VH_teny`#f3()(T4*CO=^d!G6)xhHTrXOds>p9PY#3r@Bs_#JFz6;b&leNKOy z!ftV&D1(KO#>Z`{KI(kD^+z}&?}ABdYudy5tPi_&G&6LW)-%-$-8`ysP-IHZJ;sCu z|9Y0aNWZ^TetTCz?ty5H8T^r#=JFnvR{1G!xXN&f*kiecSG)H-UU9QT&7axkI5$V# zm1`1)ZMre;(R*hKZ!I*Ec({bsRCMM7GfuX}Vw!7T+w442#cQ=?T|uc8d+E-=J2njJ z)BD$VB(tZ?jBekQ^!cs^=v2@ZbN@Hy@8@(#D3+~Nc-d>Y;-L8IjV-!?Y=6z|)@)9G z`^Nsobq!b9)K{HzcuJ35R8>y+vahO8_^L?V!@e4Y#8S4dwe53DHJom-IvvlnUXn2L z)x$l${aL}BYbU+nIa+%nEM#5WCgq8qkNO3khvi>L-y}C<-c^m&Pc|%kW$f5=|8&Vt z6`$$Jub=ho(f^d-KT%~zhG68A!|i5EPbIS7|CxQ0WpX=)S8}}vT@_2ixOhy zo|)ZAJ9_4?nOqaIUh1Fa){p0OCm&V6vEiYxkZju86CyH87aXpW{N4kJ@Q)aTT#;b%ta+@Re4v>VGfV5@wQJD ztM+MDD_dZ~@pNwEuSvZ(CI`4`2K-+9{8zwwHREjl^8w7c{&627OMhDG%(}L;e{l_m zd+}>=x4Y+a{{M~nxBu(fwN+aG4xjV;_|F}szLvgGzx4n58paJ9BkzmNyM8Cr9}XbrY^dIy8Qgzl-+iTUy z#XW4?TR-r9*?;n9y3POf@87;#_P9Q`y7gc9i+Tic{nGyoQRT1s;rIUCI($36;#+)v z-rF;l|I`=X_HRGmKW}gGDiT z{d_Vj&NG{96UX%WtW}N%=fq!KiE2+PQqG#dDfLMxaNVZEF`BQwd_E^wZ?sLCfEqd{@ZnDf9z7JO|=7o5^Ssk!{mCO`Qi+C=k)J6YFrF=fB=6yZk_3Fo_nunq3 za&mH0^rfywGVi~+@Z2r&mi1b77X`%Uan5IzX4m*|wQ)lJ$pidWj}NU|sb%bcMr!5f zkLLe-(;gp?zuL2O8;^+bM#FQ9KdN-7>&_{7VfZd^gKjZ{*8w% z_AfENQ(yYx`Gl^=ot{b4uD#fjEpz4w$Fl~O8=6S@d^4Le) z5VMl*zU-7evhyNq>XZ-L&0MUIdFuG#RP{qMOaIKzu=Oz6ujc#T_>r>96Q;BTU#{(& zxSE&Uo4BYVk@*hm=f5&P`9$S1B=uY}F6hW+UNlHve4qL5CHJTb!z(tOVr8-q^yYbJ zRAvV{9-a1Nv#UWz$Dj2TCriRazlb;Q?fLLgB`NQ@;$l3rmrI@ z;eUv;W-M#o`mV{rm8VWUcGozl^FV3N;su+|Y*tEGXx>sKImv5Ng?Z45EibIPc6u+` z>7pY(Gmce7=w*k?`FrVYY+F7Bv)0XN`Fm?~dH##DUpS{OuYWR^bD#gq?JvWg7BHGZV8v|-K0D2gs;;dUeZ&0u@|q=j1uHE=f;b9Hv=#*zomt9yMtJ|L z&{Nao=AZrd`R2L*-}bz{Tk>cAqrdA9{R_TP&-L3s@xSI9d-DzdKm5GkoXYD^QP;Zf zWZ^4CEitQi#UWm%o0VsOUi%$%Wrij<^T&_cS8n&)T@|wp{Hng;rNYfVS*MGQ_uGt` zmt+{6zoMoelPu)4D5cJzldVPJ`kJ+ej;w9IzT$H4dE+~UPZu}LXPlJ!Vb!M#F6t2} z_mU;-Jy)M+DB+oN|DuG;3ZDCu@|m9O;#COo>a>Tz9No|JQ#?>dK{2gO%1UcCPF z)9-wK?Y}F++tzO7oT9jR*@Jz7`$AkLZY~T`@Q;+*GV$OxLmdOdnA3+A+*`Bh@w}VW zm1jA=v@H7aM?|*%QE_CKfJ4e;(Qh~RH^v*x@%v+ZU`E&UYd1O?g^qJ&9r_)2cGk?? z`5Mv(HP>uQ+`sq`$IZ7wp>J=zU7l5}7PK%_B~C=PdzoFIu1~#>yXb>QGFwGov70Vr zT)AyS^P4k)^XBv~&g_@;Zw)$TpmWNq@#BVucBL3_e?EVqmH-eQt+WIOtZ5xcH9k6yV zluYIA{cYnggFB(|y4A%A*S+`q7cndL{h2UdD#XwH#6pSWw_Q7o1yhxSww&RXmx#=X zkJ3KwxWMHEXB@Nj+ACh!t`2?ni~jfbF_n48IedO=-+S!cwXjcrzwfPj_#Y|VxBg8R z{moz5aKPrVeudV_`*L5E111(Z8%=(Ayk-BNz@t&A%OBsUtd@FilcVftTYq09ZGKDP zuM^*zADYjtP!z5^a{UOGp`y#2C(f~-=GA;L*WSaCyH4fQt8I5K?O4s#VKu9N$y1NK zE0E7y6gZ4xjpSkS2uRMd z@guD_OLv^w^G{1J`^HA?KiBthc`x)?%`mXJIIwN)e!@PNIN=&xZC!c?ixXG}4|FXDOEj*Ho6OOGfT<6H; z7V-4)H~v2hM3*eQ`lVSze)c27V`h(LY@7BwG;{6rPwCzqvfI}iC|?#XI{7cVf#K;l z&BTO>+(!#}P2~0j`cKh3FBN)GNm-`SD&l;)>5{|OYP{|>^z}RKd&B%|)_wnV?cS60 z7$2)$IlWZSI$P!BX2p}roc`~$Up0oGzRaif`|Y-`0?TXkHjA=PUUk5M!Eo>0wh*^^ zg~)rK4o=?E*0X8VvcRcdwIhyOEa{BP)a5p{lK4s)yS9!uX75+_v4_`_kasZpYJY;g9b~R!%>8OqaET zx#GHpa^u7*+Z&&*G9GEw!h6!62N0vR(yzug;`-1;Hn=fprjxYN2-bC87 z^-cIQ?=GG#g$Y?kaRSwL_bZxatvverqTyNBY{R5d@$>JSyXu~pt^Kj7`n}=Vn+~>> zQm4PFw(*1&fBm%l#T0cJ6J>)IS0g1&#TDx&30dCx#4g11ZQiGhPTACN`xc~F%E`>^ zSncJO^2RXo(FS4mkQou-CMj23*C;Z(PFnr<;ZqGMf0v%{^$o!vMPurwF4Okw`*QmA zwup&`T%0SU18nU$Z38De*eRz7zPwWRoC#W5qJHUiQ|1|H>1E zqz)wh{#E+!ipg;%w^?gXXq7(BQ)$>`>shqo>P(&#FYgHE815%Q+EHEgTV2&> zcfYOWT$_EZR{rn})$jilJ-R3TyyuA%C5O~ z)^DGc|6bO8Hpty+`>sbz%yN%*Z4P*G_o>OG?#r@oHvMZceqDBbQ}lcP)9)s3eWUu_ z<7xF$aly9D_3!(gzZmt-R<)VK^ZVd3o=0~@UVpjp_E~b^>b2AP6qmC6`RDrMe{1=> z|Kazu-@H-z^Z(nc2_YyKjEVlMUw!9)$)EE#%zobCymTth>sYWsVWQv(v+El*PnUl9 zy;=Up&$7zdPL&TBTiY)_`ThP}T|jdgvPZd!f%f!DpFiMw^$p{uE% zSUZJ^uH3Gj|H*~v{bP@bC&PIHS8e?(k^k_4um06dUC)(on@^dZB>j7>+xZR^4W8lZpCk{zy_@UujkrUlpIy zEWMVKbstV_S*W$9=dZTlkHU^@Hy7J0Enyq74^;(L_WjR#+yAB}`t;X*teJk&f1duy zTe@Sx$d%E3Y0ta(3G3_Dx%4R{yKZ;W*y!spmNV z%9hiomPopV|44|JZqyU&H?WD46zS>CklDO;sc>VGScu2_2^$hV8^8JSxNqj%%p0a3 zIj->RljscM_Sa(wpecfE%9ZMO7n|Npl_X>rBrcQY-T(l&)0jocM{)8_TJ zf9qNs0z<^k*sKokdcWb=*Iirp#NRPhPfgn%HgjgAPyW$b|IK^*?*2O(?eg!_cl+Z% z3SOnx{I5NJ`=P10!lfkOtoqm7xcXoaJZ2vv=&-%4zb^R-%&#rYVJ{~Q? z@b3n%$I&47zn8XOcp)y!v9dbRSXOt9=D)^`){oU%SKj^OcxKiQKjj+EE8?`wskcTW@Vt;bUId-hOG#?UuHTvIuS74?hbw?OvTvp*<+WO&YW@K~!cJ+~&wCX5sdd%WQ`m zohK{C&uCF`>O1_X?NRi@P!~ye6_dS7PL)blSG{<=@66WQriPb{lyC2MTAU!`as2wr z4yR()<jji&IkK@?N$q4{Jl6w{yJ^IBN4uds*1V zd3tUtZ`fmxAK!bXPyDGDD}&mhr`|`FDmT=wkz=~BeM)rkjmgFJC(pKS)J(n`{~<+o z?c^)lx%_&RZBoK>e{MD6;s5j7+toF*+ZHoo!doYwD4L5+^<+Dv{Z+IgA1V_g}zeaY=biSbFt>KT0&RtYi- z|7nuwd^q!{?4|jOwuBv9Bk%BPZ^K42GnT8OMqfP@l}`Ow+Vjb$Q$fO2C}Y}3$LEex zzrX)iGE231Z)C6Xj$_v?utlZk%R3HrPhD6)Me}t-#RjE|i_?Qt?)7KQ+_XC7xb=bU zInNxl3O9H&Esrxxa6H48cHn1!%>CU)uVR8q9xh$1H+{_q+fq*D&c4-4($?)`f2nf0 zXx#_96CRsasV>S4cyQ*AFw=t*U0pjCUb$xeRQdJO&(GP8d|v8klP-{w^>n3zTW$S| z{;7BG-`cY0VNXxBMdw?eBIn0>kxvX%%!H>qtd@KE=KGR+byIyb*Y+N}7&-Z7w4G=E zTmG2zh&QUm``5mZk8U}bdQOSABk@nT^pdT=)@g4fQ!U z&sVh^4zrfo{=1RU{`N8LbV=SBn>0>M%RcpMWA65DHLm&}|2KbsSDPzy^3aE$@BbRk zU!*+QLrFog=H$ALNeMl&Wg9;lmOZj{c;YCPkhCz+M5yD2-Tc36qwlA=ISEX9e3$(_ z+u1K)mhOUpRl<_oK~bq{y-!cGmBxkVt~=>>ZJPe|JO0_vf`8qfV6!y9>@b_UMy~IK z|GpaP3A^quT%a^x-N{$paS!sgS;`fpsBx-!$`1fQ~< z?GPw_&hg{^t3Th@cm2N-vG>11_W%DM9-4oDf36-4<=6c?{c*lj_GdW;>n^c0<0B;z zY$lR+Ybq-*`3IlxTVGl6$KAhQwWFP7LCD30Z1UT!sun+f)4Is>hU8bhzqWx1y38MC zT$FVFK8gCA{Z%11O5>RZ=L-)J-|%&O4q@n#8q%LjIyMsi&CDQSw!{mNKaSd)#;Y-LR9 zJ8N;qfiK?f;S9xhk!!QpbRX_8XMWS#^nv596ywbT6A`1!JRkpvbR3RZ)u41|pRME9 z{(C|7{vM4XADX*fP5r#|^Qs2@z%YX(u3A@~gFhJi@0`!7k*sYHzLSz^v?zE#H`nng zm%moA#&G?x-`uES&~)O4!-AdbS1W(LGW$;YWzU$ppx1`DwemW)|(0H7( z*5GST%F2`dujHqyKAWsIjmt*t?mx|`F*jzMJ1m|i_x0{Fw}5AVL-_UvoQY0nDCPcj z_@+apf#n=y_Q^X9%a@n#+4hhBT2FN7|5(xguV??hZ*$`A|B8a;|94;hfA{78cVFtu zf9<#ad*Am<{id#ozw*~MUjBRW)T_f&kIl-m$w=b(;ePo_y?oyqV}Y^-3JYtE{aoyJ zT5qlNy1`UeQu10r@o~zN3zp4%SXbM5+XSReXFwU|22O+T)2eEk!hMKgU< z)o?NZSC6UtW`h1t>(&&xhLB7@2tLb{jkqE zquQePSCzD4WI1bZT>L6=cimdHXOT5R-{<~#d$+_y+y28g!FPeZmn^w2-O1Q)*Dr1 zz02okNlKM9+~37iakEGA>@homZ;HP*`LmmDDW2#@Bt@0%eoQx+2TeeS##ph4k(Y)4lzN zG-V`p&pIf~Y1lK9$?E%zfuH+V zE_?TL&cTS!L8s+*`vj_T24pnT!FH*aju z_{QrhJyyA=cE0_XuToz4nxjYTc+Uvs%y{9@x5su8YsHy+`t7sD=I$wR(|v6*<0u8Tgo3>ma$&u(3&HrH~t+U*Z`m~r=E@|VH&=`eg5wV;b zT5pv88Tz?fUEnZ^I_-7%o&neH>8zV($=el(1qfyOyO`FTJDBoLRdPjBE7wcM3+ocM z-H4oflhJ(&cT=nMr`N5qDLLM9#j?`woA}hH^_<{T{rpMzcg^^~@~<-7f$ z%QTjCx0a-N9K63k$gtv-Q@)5)n~Be*TZ+G=PfR@RCeE(ryJNyNJI8mc7R>rM|M#O$!EFk^Q4Hh==cVPeYVfeu%7akb4e@BUESvO_{6uw)ooD^PrOelT$i9Y zYyJL5$Df>vEbA@Q=TLp@Z~gDlITd&3g(sCFHbey8=5yV2TT~(S6PI;zRnXFdOjo;@ zc$+UwJzp%?(7t!(ZnF%Yr+#*N1lI>FH6%?3M5CNz6K=m$^#& z&GjjwXD42)aQ%FJ^Pal8>Ss;Y&U4lVhnWEH4pqkMIfaJ9K5E^O-dgSEZznoP67oSTu3b&P01AO|dkdO=54(F3b-9p)JIl zbQIx}!&Y~0)%6v&1<~GY zZr$(tq}1kHI3JUooUC?Y{-?K>h5DY~&*_oVnbUgsyQYF-*O#A%{uO&LrFpVfK6dQy zVcY$=%T7)&PwTIZXF<|jrT4p74<2WKsXw8X>)`&>jn7Z=EOakir+$_7&Kup7Co*5t zJ1l=D{@sG~{``jD;U#EaC+x*tNRL8T1x+fy4D6P_iT$-CxQ(;b#hw|QGTs;6~puZTDo?vfi(+O_QGBFm~9!n^rfP8Xz2 zl9V}n@#>{z*NhgeJaBdKmcMs;CQh^3p6)f*Z||{H2Tng+CBmtl_t{A6{7ReClUBTb z`zpdgTv36oO+_|w24B%Eq3;Wu(-)eRonia?u)<2@>fyFu6Em!g4lQ5d+18q2)YT@D z*reid|4}nR?{x_xhl$5d9;nMD7J>}P(((eAx;6HTkcl2%+qu>9I|2<~jd-crUes}(B za(D0k-?96DVfp{Z@BSUX`?r7hZ+Y|G{}aOu_pubk*Bq$XeCfyRL(&SX&;I6L9?Nvo z&bs+$V^j)X&2m$#L#4AS!le(#O!^dY+E!ihp35?c3LzuK-A6Z6Ze`PZGgrk~;*{}C zN0Akl%VX30vso`~<34P9JKUT(!7bv>&1pX#^6Grt?DpZ-;=*@nr}l}e@h|m_UHP@r z#`lA{q><6mzXpH%cn%lUO;vBY!hUKeOYTDLJvPRVC$+}J?SEwFaP7}M*M)nNHt8?g zeUZU((~qg*8S8dAP2O#~_^x)k-f@mM!Rz*m__qBN=+d*kV{Q29pL$Hk%(|N=9bWZL zvG4e4&Hr(J!SlxDD+=uvp569Qt9?)Xu7jF)wC$Gcv99>Nn(y9~{|`^j?qeyEKAvwR zxxW5e*b<+#19^`*)(NbUp1Xf$2IuGbht9rm+qllI`i$xY|D$hpWeOyB`_*%ls7qMi^zVu6Y%#la#gC@GeJpSFO^E+q@wb0!>Is`qJe+oJU(3w%^SXljS3ld~ zRruL>^;+#+wQrSIOCB!T>vy)kVya+es`aF(k3lmG^%ob(HKv=MoY1e@r}tC9Y4-ft zwG4OHKUzF}-;b=Kot7o<1zx>U6~DTuxUES*SvNAfYl-at8QCWH1*ccnT=*Yxo$;%LurL{C=~(Ev@P+`@7bE8-IuHJiXAh;qH^P7xMceO8>rI$n>jc z_d+}Vxs}=_+SAp`)vv5SJMl;Q{pBT@PcBc9?)SSo|9tH6l@5Pr-!0n0{O#x6f;n8b z(@S@6{4lTc-j^$zuU}ji-&xW!^N#PXKUWX$VF`)QDAo_!bbg=6%>CIf%*`G<&0FwT zN9M-sJkR?J4=$>%*jDzP?Vib*Z#G%;`y!sJJ-lY)aq9X0UGp!$|8w_Q@BZjL@24xi ziryO@=FzpUW!~;UvvkS#dN)I~&eUk^ay2Wz8NJVbTj|-lILG#*wrB51@AjL$GpIP3 zW7&bn2EEqj)_Ru9s#_|mJMPj7PI}>HDzrOF#*_7t@Y3etS^h7)X4g@?p%fP@$L(?*#|;i9*nlQa{1z}r0b=#4OUFI6c-f9Keai9 z`9>9|T-lPE4JS`|o+x@2bU8!f+hvLGY;XPaJ&!Nh`matxcJbCvl_@cD>7vQ3PjfWG zlaCp$FG*W!Y%SiWSgd-)@uj=?ndVidTb=E)e+soOzGp_9cedLLQkx4b_mqge24qu{1_lT>TmX72A%KdPzpxMl@}}CnBXK(R?VWp? z%or1W&sDhWK7aR$gu*3rah5;1>R!wZI`1`3-7b2?qt08p$?SNfLgVAsO1*3^QsImZu#M!dY@zsqfNOYOU73*w&LxXwId z(T(~$sTZ%LT}kq-2x7g;;BMizI&RG^ub$H(QthnK?SfWv8;|npq^j@*2RiIo=k@!L z|F5|xE|)qUKK^lPwbI>e7K>x+CU&mV%bAwHJ+9$3e~8Y~yR+7|TKqbzaQCIr%{>!t z?()j?b$FUKzf!Si@sj?K=W;5OAEeova%Vi~5Aq5N&b#==w5In^PjB|LGG5_ZbG>=~ zy?!ktJN0R@4gU<&jdK38Bf@*~6i+>WxszGuHIv&c*@)ZKb1Wmb8ZGuj-ahzF%%zygJQ0HSUW2!4E+JsjNc6 zB2|Z{G|N2BwOZgXqcQ1kLsHlscWsy6?ON{(OQvSk7d>388*yP5^W>+GK25On|1b2A zF~_Im1pmj`C*^Yln?KgBxXUV)oOre|)AGox)$gy|OO4vi@MX)zo`$a7&Ii1UXR~ds z5V#{#>%O5lS^m56#{S=(kLyFtT`$^Q*vD)pmnIx=MJaX8cFh>)#+OSCorU z7oa4jcuFB%KDsQq#^X-PP36eh0=GDCcBt<(kl!PDY5P3Tb(&*a{AKCAd zxVhUe-|@WkTF&+G7qftsfU7S z`oVJBqP)J9&s+Ek_xQ1S>RT$_dT{k(>(#%nf^AlYroT+FHLw5NRn8X<8$d&Yq^8X-XHF!T=CNgz1|!4>96qN89I&c_k~Tm ztSPs=Ij-WS+rOK3mf@~$CH@xvvrMN7Pdg&k^6QyOkM}AshR{xnf|pPBJn0Oss;_PA zT0Z%+(JO~W@wf>-7riemIb_++-JW^H&hquvmsw7iU*0}(x+y~AL{i`9hA(%sxITP2 z&a_(m?ti8@qg8Xi{#*6q{&#u1jFiX!ZFc>C@b2IByMNd3{vBWbegC_6^>^?7-}UXU ze(gl<$2$(Z`@XD&f8+MPIo56x=P&F%VfVG~Y)m8Dvog`LB)pv?%&ufJH}bdj^Ci=#JT`QFf27yylCo^5Ub3N;Na|hHCCdeK zZts$K@o^Gs%K5}s=Z@{)7WdR`qd~}dPm`?d8JiU=j!c`p+o1T%i>%XAWP$_SlR`^` zCc6r(-X5vK%9tXeYs~+|X8M8TYFnpycbX(Gt}J7^t@da3-jeUXt{!{+v+BK7>(t~2 zH|ylLuGKnm^0HCaj=V zE12zypIl524Xxzd?!UUpXMf zsK9&t_@dUW?aQ~!;EnixV(C@a+z9EbIc_^co>=@lx#jYb8EYCoPv7d}qBnc$2iB=e zj1`P5eDgW@&65t?Jl$B_q;A5YzW>&^v6O5EJhynK=R4K5=&voJ|_F{hS{-RH}!=NgFSskB}!GNG>aWtDe9;g>?eY z-nT1Wm|x9aaZl=rHMjc#v1$eTL)w1#5)%IxM81_5x^7e(EFXF$;H=sc9sSiAy>i!2 ziR_dK;JP0*Au2S!mQ_EZTGBq;_n}#syLXV-B(pUcTJ!klaWQQ<^EKo-Bag+h1~

KW-yPWPW4o?s8;4Zk!^JW`I_*L#YR?{W`g^9vSXQnl`H9x^WwXy`-72_K zV%lCNUc5{#raJT5GM9t8viEuH6w_Zgo?JUg|& zZ{fYa&dZM~m93p!8&;gMRXD;TYh8}P3bD}S$Tj?bEI(K=)S2vY2}!??F_^N{2hMnDi z1Mjeh866baa%opegYP@8a~Gw&cmh_jYp?y1$MoK%#@On>lnnVbnxU&?Jg{pq4kkONDb z@~7wv6I>ThS7uA#_Bo~TETpVKGPwVP^HrZr@gK$Mi=@v4iv{mU>Rj2y8<2i}X8Vgj zHr7u{j};V%b$ewTKU1_S{QAQrX(P^u7r(5R>HqEV)P0MWVCe0>X&aY^uH*L%UNwVr zbKMNr=X=k1q)dA+v-0(OpLb{0%)F=Veqc?1!}skb+t2jw66yGwA%JsdYK0eHiCkE^$}v9AYe`7> zOtz|CNw%}`k?dckI! z!>HOUC3cQcrP-XD#WmcYmlthe3vy#S8be{}nGAtu0IMOt5}#b~=3W#j-gKe@-e>bjeF=Zo_}x778k zuWMZJbo+nA_UVH?YYg^V_$KI0$T-`#&pjqQ)cU^Cr)S=Fe;@xyu`yxD{;qXHC3q7 zwz6vRVq2R(4-VVb{0i>>{-P|!FFEJ^wUbY8Wv18sZa!@Pddm6MGa3uinbQjP%si0$F-g#O7 z?u&i-uld%0&(Hn$-0y#}?BDZWxBascyDI-dqdfL|tZ_}sCBKt*s_W%L=S}onoNb^Q zU*F;)`@Fk&(#|O|MGub}*nH(?+%(Pd{)@@_XAHb{an}5MUue>o zrPj7-cCvw=|4D}y_V>qU{n$TkmHMq>;c&&B8*d%3?7V!uTRidoUS=g(!6L`U{!FM3j%X7H#sU#ma!;~Z8S%O+Q!PPA!n1n!GskkmdT+BU`4-VdkzCaGNmYgySUL z@R#dMR@EtQiP&>MyO?v0`@0j2u@_=%3!B!)F44J}xaz~ff1C zhwStW+xxz^KkQAo#A^Qd2YpW>?R4Jle`?k?r>SB^+VV$Y`Ny7aZcp6){hZv2mFEw{ zoEP8lQu9OY$2HTw*ByM4SK#*v?AB-dwv}r=`jK^}|JS}N?z;sh+&NZr zh3Tr>3!|il*(>ti7e#9AbU3@`*6};-xAYfRupBw&niHEQ@3743welsm9fwRZ|7`F% zCvkDIzFf$hW}o(xzZ&AR9{;<}N@yA*e|9=}Z)V(Qz3UC(hd-*@knjCSrk-?eC4K$#=+LffxxPcBF{OTCfV z^=QQkp?MDZZ{Hm{)aut)QrqgBcWO_Wp^LV}Jp0x+2c~uS##DT~d#qmmuf6rt?!2?C zCvtw)zy0^O{eH?@`}g({d%;1D9Qrrw(`rxq*^A8(k}BP`Ah((8zR#6?nHDo=cf2s? z{-t=Ry0JRj-Jrf`PF6klvx203n>i<4-?zSD&sC>bwfLi}!VEP%-Ro|37FQI$nip+T z_2a`o^P7)ZCe01Joa-svYY>SibTd(Pe^r?cR4eh82Csr;1_ zMUOoZ_!HB;Q|W`4W?!l1-Nd(FXW4c={+oN`!2eIHyG4)B{&eSu<$q_1Pk{+6iEq~L zQ_P*{xav8#<=qbg)ruWYU+J&vFb0#DT@yDfqYy=v+|>oxBlUm1Ps=(_MT z4|X=yshmHY$g^i-W>d&qxmCsyJ8xzM&X;0{Zkv0=s%GhAVY4-havG0#eesw45|?hH z^4se2o|TQv1u=oHH~fzzP3vEu64C4adUCW>&Ktjj9PHd>9q!JbWOUUn4UX6x%3GRo)u%7fhmpPflK5t+J;>xVm`GvV!BM6Q61~RcP|o z%8D!4w4c2#QDvofn*V=z{KteF`{HIWZVYj3{oGLWd)u8~B~c46r`&yeenJP&(+j@w z;Ux>Q?$(st3-_r#=lJin!MjwOMIz=Eq8mSz-#AltZ}DT!KWFDZELJO88oTiJeevZQ zmcm^-IxMS}&sx>hr#IEk`I*gzgA?1%T#ajv&+nbue6!m_=|-GG>EDivK3CR=m*4iO&3_6&3mF^oIt5CC$vD{Jc*?y6xXWTbqhg9`* zPI>n%mLCx>I{Vk_UgykDlU*JhQ+~|NUScJq#@TYTkM&5xw>0C*o)7)&#s6%6t<9>m z{cmwz{apbrlQZeh8QSLR{;P3(uKsvMLsR#UcQr?9Sl{pEeYg9=af$W6>hr&)T7236 ze$AY6&*&N1uD|=|?mIW<@8RsYYb%}>N8e!kxzaS7d**%Tz)Krvif`^HdS$k%VbX+_ zw4i{t3Y$wm7ne+yv`jB~Np`TdxZua6E(@Mqa zp{ILjk=An0kURT5o|imTe_^H;+qR|b>W`D&m9u3wOw_PeDGC$wvrF%HxiXJc^jOzR?U8v2jjcrh4D?|aj)q1eBE zA?uIaU6EVXhdI?wvh=#{ekblg)HXv)-t)?R++8_MFRvJHnit&vazkbMf;W=)ZtJzqaRI(&(rdG(LTe7>h#fqI+6+Cs(y{ymwPfR#z zwL|WVaah?@T?vDK6)|gWe{J*A_uYJr>!;7c%IQ~CO?F0ShJ+v5%o6a;T55v@V@^0iw@V=SKh7`m$xp)BZEh zPrBYQXwqH1v-Lxuug_EA6*8~ASN&=2KJ`ua@?4E7f8mD`0#S-l1x)#8quynHD7=;+ zU>ea`*WCI-phEXv`?krh_n*DLJU6{OZ$Z{y^PT>7-X%ZY&zdH)Z2hI3uCu~73-1-l z{^U1(p;hFZ&D@{!w@k=7d$-;?`1szqrhD$PD~*2X^EMC*S@*C z?&P=V?tS4UHFqbj_I;lzY2jX9p;xp2rn1rZf1Hd>2WGRfcqM%+5__|yCm_95`0T=v zR;$#=ohk8lg|#QnbLmB$mS?x0pBc{?uM)fCb9_SL%OiGYS^hc&W=2T-64BiIa#rFj zi_)3=GZW(fE#3UEdfLi)zptNr@$PhCmfEw;QfX@qO^Pa6KQD;k*e$r#>iEkwR|=J; zY<(4+vfntQR>)8z+-v8)7yj0Z_C7nA6ULIj@yvod=g-FG16yxfvCJ`JaNY4O;Kq!{ zf7;)jy~tytT(WR|;lTrQZ)(TL^>2s||0|sMe#Y_Uw6{|1mPfxBefQ+M_;c>z_UxPW z$LbsZrZ2wu<5}Xhf1e+|iv6?Q`uBNc^!ncaQz!m^%e&TYY7)Cd^5>6;L;B};ZEoH3 z^su;ILYaV5<+VkU9(fSv^4;o}W z(-;4l$F|RX^}%N{;S=t7dt@v)ajmUgXUZ~>Py77K`-JwTvTnA|58ur*sn|l|i{8YG zZ=FrspV&>7IeF@s!@3UH$B|ZHJsEwMM0Ry+d*-HQ zR8wK+z2^C@$B%aiKeprA^iA?~`;|x=k6Cb|{sXK;UKR$G_s+#k9ZH-A4UUA%s6cGv{tOLO?$zoY#8{t30O7-6Q7p=Io^p9HzlF3@cgXgTgvrOk`jbznD7Z zT6I|YftY!(Z@xWUxUz6EC->PGA+H|ZUchp7g0orF#BBNRXWENmrC!)&RdI;M=Dk|= z{bu}fnZuLzbU2;3xb$Pt+=C3ix694#3zp)YR_$S6#by0o@Vm;#$m1KTHdR)oJWdz7 zdi2=wly}-ad6%8$pFikjY|bpWX!pJex0XuxDmC4U4O$a+j6vb`&NbY9x1I%*`Yk^9 zJLCrQ@=d`Pr8th&hCE)7BQgJDo1$#XueddlO7iDx<$ke?pVXF2SJd9M^`!5kP?5~U z4EeDChyQa+8Fa7*#EWZ9ZWY}7r24PHx*au^+|%#9WXLYKUi*6OT))$6iz~Bv7_V+< zbjj6I{F*ZDSoO3$yZ-KRNZ1?PA)c$uHDQ;xQu7IZg)IlgdS?8uToM~O+i2zc8wW0K zu3pC*aPpqczE^&~zB}{sn^?pyx)Kn@x#e5>hqceoysh+nb&|FXaQ*ZtQo z>KQkhobT~H{4QJI{O-r+R(#sF@=k#L)l>V8IM;>F^4OvKb(+tVf3C;Q%4qz|anNf~ zbJ#n*SIcJ2!Naq%A6>Rw-emQ9$wIa4UsJ5@j-8L6!JJc}xO-9k%s10{SDf2?`p3n$ z&1K(QKg^!KGhuqPU*!o!_4?$1{lB=l3YnOb&j|P}6qvHo>e<#gzoykce7yh1%T2FJ z6F>j-Ud|u3(RXh_+}*k(fBo|BeBH%=bM?9Dr`G-NELWE~*fLSmnpyev<)v)m8`K|a z{8_na^6eWT+LgLBa;IZ8css34Ctu?3Uo?+XCbg}}Xi?^wNi`ocR_Ym`CNXG?w(?9yoo?RfmVbcALefPIA3Y0A@ z@{DVbe%0-r`%J9&*1zRmn?pmVmmB@tzx9v&|I|@85Fw_^mYBCw?%{^_;SPtCvN9f> zOS03N_~^o|7-uA0I=fCnd zo0?j@y+zm~?8z53^Yng~lEk*NyW+2@bIgbi`e(`|{``>)*)~ouJ?d6~U z|4;hU|LEe+_=WT&a5j^^@o4{+y3iS z^RFys)|>71`Rne5&w9Rk?MVmSRWnX6e`R=2qtBou@RZw~4axm&$6q`UQ2)&E*0=Sa zwaEAM4z_ED6N?yMs84VG(b+rSJi$PZe=FnSDT_kIdBcC-Ex2L2W=+##-*CKgVY^A5X#p37WqUC5rGHBqmx_P&cU#^b`fl1q zv)Todz5led?f)wn=j*;=p=#CiC_C0IqLb!SEUAxsEbb;4yP87l*x8xTXM4Z@9)wv4f%dOY{m9nZZb>Uv;Vxk$oxyJz$E4upUX#MGx=csA8C$F ziJJv1Ub{AS)mU_#%Q)8aJLRhXTaK(MMN6UNISQ5BUxNrd)e|uJe4}U)%ai`d0FKvK#c<1?ydw>WiAqQR=$(ZWr(gjia7{1E+G!F$!a`qlMSCw=eE31ynC{5pNz zp0J-=wGy(A%(!%`RV*^cSvPd6m*njU%okdfBF^|J3T3gp2)rJ++TmS(_?_=l-9+Qs zcim*{D~=I89vq>&soPAX<5J-42{Kx5JULWatRjOiuV;F%=}~HT;7Tle%0_$j}#l`7%`bqiFZB^mK)t59ca6ry1E8+&{_IX_LUnG$Hxu@d+MfZdE%@ z-thRddBSml6Rp!1?J_Bv!qeJz>@eH;>{N}d`_Hw^U)sBGmGQcrnR|{stoUBK*V5DP zy6c%h!<9>SnVqZ(S-r%?_s;~y_JuARHCVoNC<^^IXfZpibR@j%SlhEttR6qlxpuMr z*`qe+z-!fV_bjWT>V_}+wF_2Gc-zXO)o0GP@Ukp#WEqEsw)4l%l|{{Z9YVg3uFjuq zrx#SDytckW;OLgL)Xph~xc*gX=|GoFiYh#l?AFcOG=VYO zz=`jE=+r9We5O)*kGS3avL1c%%Z@erbHp;W*O70=q|Z((XMN60 zJaP8SYXLEd?>jr@UTk3cv~)@OX5;J)*W$UKzghn(IyWSuvvKX=cdx>~n)-Xq>Y7>+ zx!EVf$fobs8=vL*C*~J9JiTMLCbuGT^`VewVuD@bkItq)c*?ay>zu^;qajf?vu>%C zKRa>Gc>T94nQV)ty-`m zuO{<}_bkC_0e2W(woi6py6|}4uXBkhF2XyeIm9X?%~^3N`HrmP!%M&B+kg5uAzu1a z3EPyWZ{aGw@(~wL01OY=Nd> z6I11>q(7MtbEhhcB!9g%dxd#wUY;K1GjpDEZOczysO(E_S*Z>1hI{b_Y9X! zTxz+1fpJB4!gs-i4<5xRC(XXLD#f7d{DtRQ_f<_}t@>uxZ;)8qS8%(>itWwpyR$yc z-S0QUZA;N&{ynQU*Pcwi`0&=#MJrECJu|CcOK-O2B;haG3hB$8=P0L}$ZnNy_KMTf zpOFwyI`v6q#GiAkB=7kxpY_5=dfJir!pq630S&veU98;`=Cb{BN>zKo#Q4eK-sC`k zu@J|Znzap!USC#BxGC{TQQ`6f2F`|Qb&N}1GZ(6=`ARRdj&)lhy!~^hVJZpU>V(H)s6G$Y`5s_2xlu3b}O>m zRQ<*M1~u`Hh6v%it4xJ^pQoi=njn<9EXDMHiK3#(=BZj|mM_1$rzPy_i}2v*$urc` z7M^)o68Uxc_dQF(zN+^zPZQYkGowag^1MmQbRNw4{$N)6v+rgnwrwr}-VU0Sy4fZAEiy~~bO zvQ>5}PBln-b*POsb;?$)*FPqG+_3nhK-i%;3kTh}u6Hv&PTG6zOxE8fU8k&NsUMFV zoO0JU;ACUmjfsoS+FVjM$zbbvcy*_md|b@kmnj@Z7o8q+tT4J_l7CJ*p!`|0B`jD9n*>h~GUmvcy%JDKOe95-bVLUy6S3n)6=@}-pw5UryQ;Q z7q#NSo`qN6+zS*;k1p<7b5kjM+leW;EKY8}Ip!;6A3DMr^V!Lud)oY~`%IV%nR@%T zTwwp1W%}c@=@Ze7f~<~f@4c2ds_=EOe5}QCwM|bC3UkHf@^F8azF7M0@{ZRTe-xMt z{4#DI)!oNcRAUlt61(-Pl>E%K*Dkyh->_kG@&|#8fMsoec68m`IBDVT>#j5HUfph% zex7pVxu2Qp$U%AS3rtPAfgqwU^nX5c{!zw*i z1|_SBR<=xjmV2wlH<|gSe9`AeslPbPi+-+E-^jUld$5-ADTXUrQ(ESIxwcL!s`LH? znQG=al0k)&RDbQPU9Rgs>CvjImFIbwWEX6)aANu?{l@jUa@f1&`!_Gn`0@AF1mS9`SFoSb8Sq#&HiUB4J{c(%3C$(uby9BvT%;>R_k(s&G8c=R@^i& z?U*A~zdx*Y+KO}4Ex$BUpGcz@l8n1b(l(69SZbeRu z8V>fuR(^p>9Vc_W+0RS;Q52e)a5XRWX@R0PTX1Woo9X=|`|7p(PX_JJx>mC0|0>a1 z)7>S>3p2UD%SUey-pZP_A8s)(;yx!Q zW@1_B_TPzOJ26b1Kq* zPxzZ0b*lPf^_5w@LS2`R*hwb-jqmL1PyAb0rY!Wc`~2@cu2&X>hxsp9`X=wDTmbWp zWnw~nMQ7}^9euCv__pNWnnR^0xUTC6tov7*@mu8l?Ug^e@{ZOA?tfHSl{WoHvgt{g zOOJBqi)@+w(#X{Qh-b~3eG<>4N^ku+lso0Ei=gP_)lp|nDjKWWuKJv|oKtT&=TcG4 z?!Udy-xk)~j_rH?#w0L*wo_5&DPdtgrEKklqX(X-zF79y_Gql>j}=?ax|thBpSM^f z?(~1PoAi1CUOr~;(zwETsb3Ep%(-*odPd%2qlfQaEK_Vg8*_Dr$TOd}5sm%t(vlt2 z8p;LvcAq|U^V7DpF_wbRL$RK{nR)P1;bv}9lfm?c%6z=(}IB)(? zo5B+ilPvasM(zI>Ogp|VKt%u9jI z7Ow>MyF?e9zHT5C-lec`&;6@Kb=T#7bi{S%Z2!W^|MbVTyR!pDoo&=2Uxsz(zUm6$ zm9#v2`M%~|pZO0pu6TBATiM-KTk+$#^t^=|7jmEQ-pcll|J(ZS;osM1Z=KruH~H(d z8M9<}zY?_D+qiv+yya?%B@(&Ed($N+@kstV64QPtIOah5{#AB$I#x=qsdA5Ycgfve zvBcJgTViQ@RSM`E!hhxWi*v{9bzh3|Ngs5~#(EqMoAxBSX$#|U;n4G>ZtH1gD zmxWt+4@b_7TNyIRJzOj@<;LtUPnQXGx>>v{+0Ly0`HTOYjq<9we#IAW>EE$hDl$v% z^R;sUS6;3Dl=V}~jcdjS*UV!cQO=u1AFO}scJtwql@S7bg3-s*&wQJIX>IqdgbT|` zc=hYnSv>G=pOidz(yX-(_nq|S7QIN-yREd|f64u=p;mvLv#pPZDz&lXO_6PzWbD1@ zL!Dc1%46@cg0=2n{34(F>U&qtUY09+q%qI+!B-vk>2GE3f8jsMq3x3YaQaNuhQ7Mq zql*=J=Q!?FskE0%c|PG;giP2+SEH=YrPIGgmI%DIbTplG*S(o@meiA!L*>p_tZq#KDb0%r+5bw4y)hwe-GXY-fLoBb3Fnp*{{<_Xi_hzSayS#1w zt&~3P2F{0yGwWYGn7Q|Rak^{b_S@IYd*3|Tu;kZ8&eyq6Q? zsMRdE*z}EG<$_s%ofU6gcUqNpT>ty83kynI4w|HFDKL~+K5LoGOX+Eu$`$XGA63`9 z?+ky~-@akDz!?wGP2U{(&usdxtNSgu?bH+7PlYn7#4 z7AtP5U9R6Nb0*l~+SYi+a=x5xa@XGTnoU3SP4fNizZd^*<$3mgede9wC*}VaNwC%* z=Xn49dceo03J>a-Z^ccR&DqqzWvXyNQaQP~KOynpsg&h6RGzDUoLyS~Hm=CYFezz| zX2-+2r5*8KGuak%JY3AqDiFtd`_+@#$^X)|vz{m2yv>-LGxzn}Hsh4<(wo`4y*^c( zb=cxsy5Rr=vr~c3&(`)ck{_}*JeajSB&Oxl&Mn~=lz9)ybG-Z>zWS2U!T|F*x|?P> z&(xddE)jIwBQJ2BU!Q50cFl8%8_)mVdUgNK3OQS=hc72~eUMOjy-F=8SZqn*y3UMU zA3HMVPG*`vFW=={_Izf``}1ATWrt7x{IRsNl1q1etmo%j5>%&(6}$eRImTzSpf*wD2`{n<(5^l%k z`&PX2U(_i7;3d~m_c?J-e;?m#GV|$c?zrtu~dHru{^ChmgZEMfZezj0z%0&UW z{F@fr|Ls{URpyyCcWLQXW4@1ON~W)8e-4!{vUX9MHSgStsac2GA_e`;Pu-pNrs<7K)_vY!-dA*?+qq+vyuM9zd)~CJj_D@r8@{Yp zy4x7ENZfz*tgrKrJpbj>_wmr;H#^r&f3fSu)p@bkFQ*^c@H3*&D0FU&%(CmemsYPf zEG%S}er`Uy|FuEfy`IOl`_yu3^IzVcw&Qv4`D5w3Jih(QU@fy+{DNokTel4&hrZn{ zyZ-UX)h)dSosU%)hsfNsFi*WC6}VX~&1ljGj=o718#)eEY;@pzdU?^~m~$J1Z9@#E zuMm{U&pf&Jw#nQBf4!KE9-p}Pz==y|*WOU!RYLZB48;!5ZloI;x$m)j#Za`vM|)0) zuW`hEIU_y^-atjSk~J)TlkV+c6mhdMzAJl3KSZ(K@Nm<`4ZOeIaz)~ot*rgDT>0*% z z7q^SZv@LRa;G<`?xmg1z%WlQ|-m@&sN0d`5 z#e;e7Nwn#_yOS;4W3ejD>Q+VT=5>}fTYlP_Zcq5h_hwdrfBQ_v@cb%A_R^S{JLm5> z6XHINRrzu9r7z;fJwn|ZO!qg)=%;b5-54!Y6n)iq(Uhw4i9Gk~lRhWzVezc^@GhyX z$nu_nc;=N;Z;KYoaFv`)=!$fCUUH{Cf8A1kpA%m+r@V=~H1%S}6ZYn;6Bi5145WPK zhMc_Rs~u^*We)q#hW&?5^czSky*b2lugkTv)8x+{)~6Qx6T@%+;_DObT(rkyiT?Hn zxssip`L>T_HoxY65SMaBW&8gE242Oiiw`7q-z*HTh%{FUkI#|jIr#CR=+#Y|8y6Se zdA;l#-};40Vm(2L8yL=Go#rno`>_Q3iq_OmW0RC+2mh@Okump%APz~X+rqnr|Z_ROrO{7^29f^Fg@(* z8Kqg~I+J+s#Dr}tIU2Al@zNKT3pYc>p6ac+#iuT!(Vq9ODB`Jn@G_ZOMm;&~Md#F8 z-SWCLMbe{AF<5Lqcw^fPZL_V3(-zuBZ*tzLKI5rn8VGp`EDNCWVqu)g_&OYM|aIPlVX)mx(6(qWjw(ysIc9w zty*x`0=8py(|&xPG;OaK>&JkGPY+Ywv|hxetXkkd@4G_y5~(|JRyJ$67>-HB?91Gp zUH>;RJ9(3y`RtCm_d#c#oqcw2*4)X)3eUSu9o0`Z=?DFst@yK{>+T``iup@EFbj3< zzbWMXx93fgJ#X>+ivBd6$Fu!9tpB#Ixwu#V-Mz|fjN5Xql@&EN&tbf_(jzRRTPgdM zj_xPv+Rbj~eLc7RO-_Eb%xrO*{I?VCdt4u7ohY8Rco+YPM;Y_Gyrzc4*q1-%(-!J% z`Z-V5)B1^@j*xHk)z@;Nk9wH*y?%Gnd~VL}@RY4DpKo^dx^_{5FOfm`LI$%<+#IX4 z_M^?pDtT@lyP7vm|F&?)D$%ELCd~6`-yz3oBDUp$R6tFK)UT z-)dZ%8(Hl(h5R;oOx< z%)7F`T_{(bqTj z8h>spb&4dpItpFW%bK9{h2b4b&3>&4>$|MmMRt~&NyPr+c)j>d^SKE9l6N;If0%Y6 z^G@2TJ*~f3dA=-V3o(4x6Y!AB;W3{;cpP6{YnQ&Wj!bZld~RURy(@AbAGHa5vs`5K zy!P2Yt@-Vq2Q+QCs=Hn;w6vLQ)D?4CUay9%TGIcAjpJ~$R`+wUrmw4qP6Plmb z=Ds^P&-!qj{wqCi5t}O^4o*(i4$b;+-P`Y2pH?)f>Qm6%qJK>I#1W5QZE5_8UaqM# zI>i%hjGk#Pdh~u%yRl1_!oND7j_KSsdo8+OOzHKhy;Nb6W+ZUE``I+L_T1z>6^*ms z_#WK%Yg=eV_~g&iN;;GaTX$ZHPrtIz)L!!1>j{RL)=pWW89(cz7QczuoKPyy#@)Qw z(Y+zM`;;U5rR1RE2T#sKOnpAZan)4rok_j13ukXBdOWRYn&RtOQJ3=0uhsr{S*r2f zvT4PAZl_jxZ+Ejf|GcE@n(Ol5)E~-y#!GkQhbx$F5cgty)5*Xm`<;DD=i=$=a?f9_ zaf_XJSo8J*`Q2HrUZGc0?uKk&+A%%*_-o@09123)PHt77;4Gr3zTv}{i~WtyXFD!< z(EZpb;I;7w9^E;r&r9anS-QM7+^eSeePY|0)N4;{9%aAk^KMVxQ+QCYZPluE*Vb6G z?|RwweZ~G?TxpxqRvFYCH+-PfeWZ2WH-W>J*P2-~-$(3@y0VdN&K_aQNsmwX&ABho z;AU!-lanEJVVdpoZ%!MH74JxYZ`;3{ELeTd&E#n*nfo!FFBT<01r<#}7q znm?X0WrCvZ*12;uS(FYZO!Vt+Nc7sI$)ljP_4kgmPJujYH)jRr-t>OVxb->9hM5Q6 zip(?DWwz2wlzSMct$kwh#SXtC=N8ZFn6hTBn=Qwd*Bq0hOhj}oyjDphi$$kMKVI=a zyD0PKxrC16OO+=a_;6uE`Adn_K_3=+PdK#eRv`D53a8c21j>~!<|kj#T~w`m8 zY@6Q-C#PKbwxwRY(nM64t0m(^;0$?<8+v8I-;RZLY|Fdiukz{vvyFH1AN9jim~X85 zyWD@i+^K~!iWfB3Y2`dL^lMDMS#_{;J291GqIDs>1&~C zoVxE(|MW1Q3qC8at`A_Txf8)OEup%e=fq*|S%S}uY!@!>p6(xiZ%N?E=nK;M!41JH zT7~v+_nq+jz?Ozn#yp&zuQqr+{FlHvFJRK)Yd5Vk`peJ$2)KIso;z!DV1Q5g5+(lA zJCpp=#b)2Sb$NQR=;SG@l;ezpvtQa7>wBEP@afXhfH>n{8mZjMQ(IT{_VKDe;qT2) z{dTAOLCETaiR*lm*tHqXq(t)WeSN*d;J4%Tx;x8mML#>Rc0*i3NQum^Eek#=ZvSNz zZ>cAH;?VLi|L_|t{i>Ef`Vw+gXo73UjibVjvl1_Uh)LS)B=Sx6{mSZ1$6aEhb}|b_ zJATj$UGK%QZ0ki8e}kVvyvv&oZFwI!jlFw8ie5yD1k1dIEnl8I@#gJ6x+d=5vd5;% zD|Y?J5}tRPE&g5gH|uW)_c(8zoS^pi(ktn2*DeaVh9oGPJXbjAZ@l=-D`z(*xsUaQ z#jomrr3d{#ogKX2LwWOw`eP0!mt?&5JjfbzZ>3_<<_3%W@3XG#@nHRT<)gr(5YvlK zR>|x?J$at8)Z}9ATgE(V2;dmoO^ z@|!!$hw(hi9PP)tx=-5Jd6(MlJI2i4W7x#yzM|mnyx32@d3M*{WKGqu7EphAr-X}t zY}e?)NDDOF4Vs1>yOC`P9~qczGk*~k^h-ShtSzNbeMB$mqX_{z^|J-oQW<+Nga^yvbQ}`r|)OjWqUbEHV4BcSy_N)bJZrllw-{6ORSk!nloE@-qVz_w~;NP zGd6qtXHd63{r0TF*}hHTFZOCLUEY2=>w@(16I?Ae&t@O}mv}MVq*Zs`Ud@`^H6Lyr zW!O1)249Wfo$v)AzLvhfyVEXyN#2z`|FW;`iqB$s^|v-$c_p9pXZf4|jNP99E#8&q zpXT_p>Ti8=uIc9g?RT=vfB)b8_y660|MULWZ~wpl_W$_X|E%->{Y{>6$j@J_WKuHs zRHmH9N2^#e+)v5-FXa2a?PiW^(9N6(j1EvCBpM)kDjh?Az7|bHDGK zQM38Ktl9UrRoD0W99NXeIV`@0X^N3q0@L zb7%hkzQ2C4tB>>-*LGg#`Rpw@#VV!lU1R~1-6mbA8^IYKO*+&_$)K)V^3D) zEmRL%dheq|Pr9{?e~Gl(JJCJYO5O(Tm1g$7@R)t?CC86@yh?R9hKDV$+r6kQ>e_bp za+g%$L$OCg!hUXadwF4f*3>iHrDe;kO~OC)$h8ZLi*4VLKD{Dx&g)CPjI5!x7Z0tm zl+O7T@p{Gk2ikuuEBP+$u3;?u;+5WaG2Lt{VB@OMg~p z@IqHHiYHBmWkbZ*tKMH46&~6J-EchS%v$7gI?TaOs4w)Tcge!IpbaOj+ur`vESRjf zCiwL~L#w&n?Xi8lfu)N~7XR&-xBdK0@#p_uRVCNv{{8o>`D^>@{%iXq|KI*~pWkwm zrkjfL>K`df_Bq6Vc~Qw=yZzXkM=lxv9*MBBbfsSP{Ul(%%B6w*?^dnLpB(q6JbY@L zEgn@|wf4Vh#=;L7%D1B(BQt}7Sa+k=+XH2{K-#%*h?f>`R{(t}N zKRk&>J^#;fM|y9|$*?jW=Eiv$o(^%IN3zNm~abMmlTC~M%(qxP6YTpIkoxhak@cH)N zgEMU7T6-dnYbyjyIcWQmwWw;wc^}qAFYLk^#g=eR5S#mn_7GY z{9kwe@X!D1ugTp#Szmv2fA#in`a8;_vzbCmtry9MmRdJ~h@|_uk6)F!*sXe1#sVUa z*sgk2*0R@L_N}?lmldmS3w{O>pYp`Rw;xYoSTq0Sw)YwbZzn9C@byuRxA@+R_BU@; z|4sRQ)k#}|CsA{@&X&3d?ea|-LZ!F5pe@~5K1O+MLMC65zdvp;{@{@~*`?p3)P zl|;kqEu8Mp|BxxAk#2CA?V+cL&HV$L*2*h5ir-M3`@yn7YSML4F8BJCSzq~1`KT-S zvF@HNeZJgGbX8dWgXi)Vx!<2=Pi8wm=~v3@rJk+N<*#_%V$O84dzW{sfA_9MbJuQH z6P>5}HC}r5Y%9_ErO)0TH~ai8*|V1C#D$eVbWYmm?!9&UUTq@RiQP4SD^G{9p0_If zee|#C?7sX@Pcd1{(pi<-6jqHtDgFnOl8Rd z@^ALuS~4;8<%Z_ckK8)CjvM|a6+h?gDfeERv-&94^EIEipRZx-pZ_k$#yPQUb-`2R%gp57+f;A-U6Wn> z_^7{hwY^TfTc#;PQ8v?C2KD$gGYVI%`fRa_LFn}-FHRo$y}u_v?ta9iA$a^ahh&}8 za^@{X8;j42RvnjhyrW!vDB)fvS4NiQZ1qjihYu|Jv5<3fra<4NkAfWE;`O4JT-(2< z^qi3Af$XT+=gS$JxvN+u`;&MUOk5E8k>T!mW&P(uVGTw8@iebj1`^N-hXWGAB^47T2 zE&6JKOKjdY7FMlp4Mo>(jT7fOs=Sx5t@r(NrOAG>mP)>ZQ6nd(Vp_4Vn&PxO&txV4 zT~~_`{9_<{QJv{%D`Oh>R=MKWw{QH~yjDDVy;)rT!<^cEU#pm_yMHq1njYY>J0soYI??BfH9ooMY>JugpS!PH{DD<*p%z)xb+(y zoi8gWaEhhq<%Iq1lvy>^MfcwVvHFdy>V79XH96N*^ljRBTf<&8FIO%3lE|J@5Bypu zRK+qZ3ICT{$~I@FR7>Rc1bGRTe=|&{-jiVCK5TrzY6_>Al0ai9=lPjmSaMf32W4(l zG7a_qux#JyCvP7)+N9RB_rJFge#)d)VpO$%na#b>6LH(-Z7Iy0s>Ap{>HJUUt>-jN z6U%3Y^#4zcJ(IpD@Ans>pUgHH0=MoaRygi2w0gl9-sqn4Fi6YXHYYl*tH^JL`j-Qr zL%ghmrv`27wmZhNSk5Bm-jkmfS!O%3$*u9nX!E3$s3M4^8J1>+4^4#q9AV8@-i2i{ieXa22cCFp2r#gE?Ve z?)aZmy76L8yXMk^zl;~MtGti7tydnv7FECR%*8KDR=n-ZtU0u{dWvp#$x`V?hOT+f zcU?^~`kz_-`uW;$msb(Xbc-0LyFbWn%aRSA$<1+9y#7mP{3nKMD_I{cdh5p&w6^wX z!3#g8b%$4e?i1tj^PTziF8dK5?%DFo+A1q=7wz96d}K+UczUPrwCC1w({j%UZ7=ZM zD7#H5F3+g)gP5OEbm`Ui9p*EQbVKhp&Fq|f_SKqf`{8P*Y1Zc|Ik@^OMk{1KJG7pCauEHW}Pf@{&Dx+@s@3s7RiPwl58&*=b!ucykco< zj*rgbYs6aDk;!d}Prmy6YWlw6+TaLlrD zQqQ~vGaC4}uqs}vtEikE~RxcAxl;f8Seo}E&2 zD|-E&zWQu3`>7(I_xFvCznXnE@@Oq9_$woE{pqh@#&ZQ#@{_}vZDtDRUXSOg;Jh)b zr9y2!+dZ)lZ;ySRZXI3Szde3S-=jKN{uefKYfG}E&GP^yC7T?{IrrB2d!jf zHm}0-rlSV0z4BSsUWhf^@#!Pm2d|S!4Zd5iw@IWoF$%{A&67#ro6z{>wwMsV9j{pG zw_mS9f)2=AicMiKbH5r_zjxK<*sG?;|H_>RTeWf5tL;Xd#vKdFCM-2sUNAl3;4)?z zo~e~*n~us0myW>n;tk(3FVWh`_i(fo+KUEB+~-*e2)7hdGG^l`X0OFLapOHFdR zX?p438@Kg0E4TZ1qxq^n^?7+`aP0iX6rayz`60(&a5bx^F*}x`rcTm$Aaq z4eOSj6LZ}swC#oTqT=kV%6qRxr$5gRnkT#aJPVV@yZ!?KA$Qmt`z}5)IO|$``S51@ zdCNkTpUz%><5Yj}sT-FUs9NctOrK*p!*y|fmR{Imf7#gR3&C&Y`o z*Vw((Ik&5`1h^|ss2Wh*Ogo*uY}qxt_G>sR_r z9K8MMy6>#nS4b?ZQw_?D?el#7?ZB3E@(a#cUC$A^S9B`cXOY~$hN-WDFXvs7l%DSI z7{|VA_s^~)GX>)Bl&($FR@Le-jg$cZNl@j9S<;(7u)mYfPgeBwM8yQ%lTPn7E?k>N)&A!pOCXz2@mYcDE2>gA}&^r8>5MO*;Zmvz`KGmIT<_a*) zs=V7@J-uCRvGrf$^>uE04|uwLH~m)iLc-+S)xi0CIWE1L9WDKKZn}QC&+kaNkR#I) zTo#>Fkc?_Jywkn+PVLuO+gV)rwWoEntT#8fnZg*w+3xt^i)j?swd0yhMTLbMo76%) zWiwu1=O}ZS)_={AFG!zr_rde_|83$0SJcifZ_BV~3eaDuIoC#%Z@vA6S-wh1S$8uW z3g>uiVz{~Z?9~&y*PWFV`FSXM=TfPt*wjgWH$I%0x5#*#@%uux{t5FZKQh^Op;YTt znwH`1uwSbdCMYbqwp{xETC@0E+na5%D?Qk=ioZYIzb)S8^0TvCx|Q>D-#+vc=UlMz zQi{zR7bkx06W&igDp?t=OkxygnREMYBZs1H$*xa3)=h}y^}J!sGFdyIeE+rn3zKcR z9JDKfIe4FlX`B4Jy6BBxa+a*Gd?~L7}C;>WJ^kJE!!%<%vFM z-C+4ZwN`cWvfJxF>%Kj|{kz#rS^cmHHmgcC;_c;lXDq!|Sjjmr=WWiO%8eh_Pn&oC zNcx*%nUrVMlaGl?eAs0qExnR?_H?(^etH?%y$@nvs>^sxwOU-fOLPL~Nj(_DY%NlM~g&9qx*ubRwMmX_LdE5|xI|Lk<{_uNtEoOz$WyIyfC-GMQQ z!S1`0%kf9sC9DJOo!NeH+-Q9Np~2|)cAXoZfwL?$mdtTie7b-6wuYTc3>N$UdC1ws zaydZgNc;mm4~9){TGzMuY?^qnjQ50+O?OD=wEL5OajfPq;L-RK=zB=TYdNN z8-1I}QTNR*n7SRzwdAaNb|z`=k|Qme4%a3g)jQERck^G1nKGZGH?Zwm8}#)0|EV@d z`j@ut+q!$5MDp)dn>QBvJWouwmFO?23k%h0bxYr<;_vD9JwtlN>6Td~3A>K)t_j%t z>AKP3U5l1TUb&_DOPJZ_(*3xiMRVqEt~|!t5tcS>nv71xanFj)`K>G3^nM!tHECV5 zq-W+9r&Y4IEKhN7dq4Su(D%Ylf5yw7?ZWx_wRctBUX|y(Dnjdy+r!8Nd&OFT+y!&q zF50TMfWNB!sJ(Chs*>PI$6x7hi+jei?#+=CH_xW!ZjI12PiB@E&v;j~EBD-^x0g20 zuJFHU5zMX;*}Y}!&fK5nZ1Rpg%BJt!)E?Tu{I_3m+3g(W{GauoKO}zq`~UaqemT3E z348zV|91B7-~aoc{rfMz%5R#&@&jh`dJSFJTVFk`=zf`M)pagx#)Xfo=I-6;C3pAc z>Sbv)nY^zTSU(g>6xZ+0KVh`yT2{ZD6W^csXI^!W-`B@SAKU-^<$LB|zbE{&TeQD^ z@&5YwW2b+w{<3`|&(;I)rS{%kzMucad*@%jJO0%<*Z+5`|Ib(bT_dRa*S>F;Q|`Q< zbVz3Pt#{=nIVEdve+u7IX(u6iXO+9`!7W;an?;gax(oM<&p+DH=V;QB8>@BE(Ym1_ z_4y%-hnHjau?M_s?3w(3`GxaLC))Wh1#dkY81?AB>ILTdSz%mPWdye{B-r^KJ8T#K zx@D2Utb>!yrLAX6S4Xcsw(A=A3zgD-jfX$&zl&Vx5d8dW)s`O*>%Z0IoL=_lwTV=% z*28a0h357aax>pt{c3lWxz+mbhC%OdmB*X97#s;WZ6>~FPsQfVn}7cC(mOnOGkRwCg+3%G-8_(WOl@N_eVo@6#~J`qLjotJ>L{^viCaFDsMZ z{{5cKz3Q{=L0n}QGnd>8{h;;TE2y<@mfe2m#!qpqpLBR9natA(6?LEaY)_Za)nB`w zT#Q##?YOi-xZ#8hOX96}-=m%`(79df%6ZVX>_le-N2q?Iyo&0Nmpm6|`f`QbY(6<_ zRenId^%Bo>acbESs#y_HPn-8Yi@&*LhX#N6-?-fknjTMzWfD)k`u?Kki-_&>OMF^l z&%G5=Tqg&bxFoB8+^zXs+rz)f>iFEnR+>K>CLZ`-I{V+7 z#ELoRmzKU>5x%{AN{N2-Q;u5ur&)TsW@4G!F35aKIP>f%4^vL!U4!p!9dq0~O&@-L zuplVf%3?*Dc3D?Pk)q7JEn>at36Dg(C!|?0TRLiU&hQSkv3xL1VeR$P& zH+%iIBa%EB@2{1vKH+ob^OjeE`;Da*F$Fj~tL|u?_SNF=nMWeem{*0dJ8Z2R8s4@OTX>?@Nxbn8peu1*HSggExcW1Ek=P1*fKN`+c z7+3F!Q*(c@MXF)RrxJeKewS79t~Ur62VR@XyxAn$T85Oq^p8XMg z3m#L-FccT|%mvsGEV zOMddX+~Lyf-RCdf^_}@9GEyix?f7A*sfQ}$5*-c~?tk6aZ=9>%y-Z!TY(svytTB^? zU`eNbKyYA@*G!>V%{$^}Yf154^ml0Iw_Y**Pi8Ey@*6%uT@Q|jfwR5@=&ASetvcxa zYWMnU9rcWg<}IRo9WRxYxtd(mJ8{~=%purBg($~nR{L@G*jQo zFwF6lh0J$1)l#9SX z-aRrGD&7|NXUT{C&!ul$e{t7{xwy(R*~Bv9&xR96J9r--P`VZ%;S}f*+To~iGB|XZ ze{0OO(>;~587F=}z1MB^9*);nPw(9t_S3qm;(}H^FaL$j;?~ux?AeZ8e*eI(G=1~l zjhipux?*IypWRwof8O4k72BTHOb}U<{F$?CofyZSKUU0c=LB{<*}L=iqnF<{f4kQo zZEbDIWxuF4^7gyaQL5?tO9QME!b;pO_ zUOy1~7OyHNwTV%}?QR%nT;K29zEkZR8SEIoO^o0dlfGISvGixP)w_~_=}wY+lvbNv zE|mBlaCpM`D;s7i99^#)&!6`3RZ%vlfK|!kD^X_;umwMFHi|EN-v8#(`R1!`ccbLe zM9Pak`$oB}_^C_|)yu&YLdv1YU1glMrfoX3h#dS!Q!TcaO3! z=eYirEe?(PzE5vgez)~){cUk?&YcJ>dd(Hh9;8%oJ7V`yvuk_IG7>d}nfSaKnAoQo z?LBD3Gg&_M>zVJS?|+BKXHMkY{IM*t zq$fNVQPn=IrT1~4y0F)~XnW2K<0U_>Iql-amT;_Syt%va(4*}VJj)MSwgfM!nQ|=Z zxT4tS)X+P-Q@Ao*gVcWZdv0axNK5#3oQ)&l4EL(O+eu$mpZy@4DEEWyw6Lf1nrD?e z_`0Xg*>YG+P`Uk^V~FbC{u8MNTQuJ|C!{)kNcc5>^7o*imsgf(9O`pjqoAvMs$60N z|0PvH8_jA?PxbjR-D-jzOXg3A5MR;6FL}^p`?KjaS~fuZ;`P)OS8%^U_^` z?B<_LR8DIxooncHaQB}lHg4km2brqEB%9YP;}@uye)hPXP3D$&lb75qy>)!T54PmV z2|u|nwYE7+$&@eR4AEizo+zOHXywJ6DG9q?zI8sWU>tE`PuGIA#peXJ-rdWw@Hpe=VjJ_{)H>VB8D%e6w0VPloB#9`PdUyse3-B)KSw~^|LlT85({SM-Y~cr z!@Ov@T=%Kq)jU7`A5ym4v1NzS@eT98oSS?yY_&v3+M0O}YwdTw*!(#0z*|GE8B2Cr zbS?NQvB3XA*poLseA1KU&TKzB_wCucbMJ<~UA}w0+4iVcH&?Hn{`T(l^@%;-qZ)G} z_S(cvOSpA&QMt-a_Z1fwZn_+qJ}JhpB|q=q^4@SqJ!82S3|1cRQ#M^?+8(o1YQd|o z%-z$vd#~*Z6EeAG&$=aZ!S`vw8V0$`HGXXNJa_MP@Adp|O_~hCI@J+xzjsug+mo|H zrAyGEOUh(UJOZtcQMp*2*vcZd)CvW4L6<4^j(>!;qIqfcF>~bhUbKz@-W+VHHyz5vl zv3N=SDq#+~G)>rbgJ;vS@;Q&29n`JZQ`w%Fw>+7vUtX}8>pkPNOI17b`Vvn+{lzJF zdqs6>@Wi!8-}WjS?@X9>s(aGzH3z-C=Al1zzcpo!^ZCd=*MdouHWqvmGWP-^2&Li4QqB@^WwsIx5${yYC?7BjV zqy1INj2MP^*U5}4@+5ebHf251TY6f>%4K0=W{IW3`iJ{_59?Vezkk6MpzI%a>h~)7 zW6wEecN!c`xWL$v^C@y|FPG}Y8QZU2>y?TvxuZjM& z4l2o|)o58uHAk{4{7-T|)xfd%kKne|3?3R6p7(~I&)ORGFynC*pOCkaP4JZOI!-Z( z+K&U;869h!L>p3stlV`DxEgT0++jXxv$Dy?r1}4Prpxi~wf`_Pwv+4p}9byn_t z?dm1PQsy};ECB8*dZXYss zvf^6&HnV)@w;53_%WwK8IO)!*kDNHs|H}IXR}Nh5^pNi?XnCHfvvzXL64#mUr(d-= z>co4?>|&+t3FXypN{iZDR1W>MoSLm$r+>NN;u688aM#(YH>K8XJpJfz&p|G2S;r6N z=e3s}-FivgJ)G-n$-V8H-gnPzc_YW=I(@~?W`{U*R@o-BqfuUMuRoxay>J@8lfazYn(L@B3+x zA$VGF{j2wLmYr4N-n+)%awYecC2n6&ufM$IUsCk4hsit7y^Z3`Wwx2Q&d;;uqt!jD zOF@CA$|u(PO}!AdUU5!g_Phi(<+tWG^BuzWxAlbXZ=BM4hYml!x%}{Y_fNOK1jWy|q9XZ3`-o>qTuIxW zJ8gSUIm)MrNPP}{&7RHP+iberbNj5R&2|n)H%?uoVsa}qN~CN#a&BhO$gQZC`{K34PMyWY>@V&HPz;Y?2Mza6*ls6A%|4ze9aJhp>|PS@T26E;gH8Thfan zL%kX_ol|dF`F(7(*#6nh_V4ZcCzfz5yU)h+YjM=$xxf4(L-)%t?>yUmj!lju=VeCa z()er7Bpde%Z{ML|U-4$K{K>nMHZFMiD&@+;7fY|LWwgI?chRO7X`da0-Y?6Yw41A| zGOD%e-`wE%jkcyKZ@*skdd0MMcgU3akwyD?-^@Q{xO?YvhbE=wQnME>lXqWqUF0`O zkSF}s6rbKzx8AOPUj6@8beKEmnM37w%uKzal$YfCY|+ec2%P*WJM`-l`SWr6Lhdi( zy~S)L!!U1R+`Pmm$4X*fX`lY$ZhHTy!1fO3Sv!+&g}pqr?KcmzkV?+iIl)>HAr~Wf z7`})N2Q*86DQW7``fEL-L23q?bf|a^%DR6TPMr1JfD5(5 zJ@ZpL^Qcsn_l5^cu4bz)ZcaVEcnMoxMsw@brCP5pO}y^>^J_xm+xM2Yt=~ki_g=l7 zIc27l_6{4CueJaGe*gXQNx{lnG4b)Mgce=DzS8g2G^H0eSM_&vvDDe#PRJ1RJ<=vvhm|X$!@?O6t2t7(P;5ahd;A-JPm6PQrIpu84VVxJ-CY^ga-Fx4bUr)W` z*S)UDJmBZ`bBTQP!(?2%eZ4s_0ssS z+v8fAkLB-}z3_FrLX_TiYJzpevS8g>+?=3JGFdwPv#5v4r7sU zV&qS1o-RH6|DB3$SC@U5{_O47W7_tP?aPfhtJlZp?ypF@FTejF^Xa?c>vJ#74!6Ew zQIdA&ct!V>-C>-uQhXFK$m8~^#emmn z9ox^jUY(26^xanVF3xJ6JIi3DTGi`!r>{S|*_LUV7&HIPJ~PV)S6y068I$kw%zoGH z%WEN#Ia{ZYd5KBok{>fa@mzSn@yyRz^>H06QU}(R=|AAu&Ui7%#otiK*}&sv{&$J` zUC#~wEx0cAr}y`9PE~c;Kb{H`^{;()|LigKQO&~bA}!}vWXJ0VF9}|yF4Oue{LptL z35$uE>g{iNpSb7!VHD^5t(mp>_LB66GatHfm1S!BXGtcV5z3x6%QlMN=vqa|gZOPM zCxbWoXja_i4CkugUu5^OG|v3i6IRy0POrXdtDLYdH1ca*cDJ$Q*mc?OM)A6rVw97n zP3sOmle_H5ybmnPcxP{SJiVv$>y8slCT|%gJz3KKT#Khp&$M>|)4t28vy&YK_;*aa z{_w<-9j_0IFgBjQd+{pk{j#Tb6>iR(P{@|IK4{OC=6{lzw|?)5{d_=txBj-Kx=U$| zTU+}X?#%ctxMQZtQIVxfA3u(n|}BcM!u;`>ccd+t}uCNMI-|m4n=>JESkX`(QLZ#%a?^Ii5*VHr9zOG);5)=K1c+!5xR(7A$9Yv7tQWu#}uJ z%Madr1&zL`Q+6HCO5vH{bhd_7%{KO!_m{n?qPEX85!Zn-6 z=Bl@@;KjG*zAi7OCm1XG-oM9TCCRrtbFJ2%g`shO9(;Kq9Q)|}k_{8YM z@=f9?GDb7GCM=$6`umW+-!cEx_MwP?Tu}-_R z)W|X?#x42mk0t)|+ z{&%BvWnzVe^zyP3tAi>o`3G6K`!{s%T#&scefLJESy6`?BqbU-_kU_(Jz1gpJ!9UN z=09P!Jzkox7KL1lDtc8MKPUZn#=I!+n9Wn7O)N|{Okxi@^~Uxk`_Hon(yy2Dsw{gE zW_xyKac|g^ZGxUK_FS8Gmxmn-{m*>`x5xnZ}x>@jpktHs|G>9<9Awbarm7 z$bZ-UuJ_#Z_g#lod^bKS|9`dGI9Y-7+~(Rd-@UdcS1+4>WvPzN&M7%f&Ky=}&p+C` zQ(v#IB%8J3k#)azP{96~ehXFDR89WRP5JRYCDn8KMV|61TEdrsfLSP zxKA&d%e8&JZ=BAJ{Wmtop82vxL}$e!UjNF-sjLjiM^EOt6sd%HM1&i=%D`?E1KD%M#BoD?bA%HSP&qFD1BSC)|R%s=7p&(@y2 zl43to-F9m%$LGfdOq&dzZQuVVcxvXZ?mF8=fm`~j1b#F`shl|zEO`Ichi7@p0Y_a+ zckqAewqMS6GECX+-wlbQU+iLxOfAlT3!LZI?#(*2)9#f`QMS)qskfVJr!2p`WyP^C zQ*8cw|G%)6TeL{-$@S&(tF5n0aA@l3|DQ4M%YvJWSd-Pd81yDpZ|i^NX@4T0&1xvzI5noN#5z``)Xw0w!jzzc>4LlGNk!-=O4uKYzL6yIqU- zMV@My*TW7z=(&?b#aj-!9txbnr533oHrs_G5k5{dtY!M4#3P9k&9fYu0?dcSqcK!=F6) zv%%}+cQIZTU;91gRKorUB7QumKiLXt$Cm;>__3oL+0O)R-P-lE;99=l<%WS z@uko1)_=X{!|roY^F#LDwYt`(sI7Q|%)KoqboW`~XS|XIETYU3sY8jyc8us!S%=rx~A3 zV>7axp54uzG0V{6sf2?w@h{#y->ggRAF-01)Rq4JXX z^puzK&vc$zhfbL0U$ktM@7c7|dw#FK7ro8u`C_m;&-2Uw`D0S}E$XKG=Oyw_rq|cx zRNYq17oSoON|InF2X8khYIxIZYpppw$>6n0+P%NmbJpM8oOiieoa6HP)k1R<%PxP8 zEY`fq(rx)(rOt}&XT-hLDN#Xss_Z6U)k!>F)pl%0V-i*}Y+7`Li6^PbE?ZA^_JpGg zwphwGAM0pTcHB8N)h<=>i=F>pqt!R2e0k~06}&uE-$VP{Ebot-6NA*c|3~?V?<@6a zv#Yt1#%B1vQ0-Z|$h_E+tb>t9mx;`ZTe9K6mN%?3H%A&8PS>41VJ@qr_uQtN4r&}R zp3uD7V>NwJU|MsV>Ti>UCiI_lHU0DmSOixsv1b>~8(ps}I20#Ac`KQ}gBk`Kp7f^RI3Rxp01w zi}-3kNVo(9OrC$V8dUu67y5jVXVd-pO&j~Z?y%sOeDhHJU}Vnkr?#`c8EjoJb>T&^ zRB$1GpNGfUU0UT?kGEefIJ2Cc+*o4ax;B~j;f^CyKqbe<$Bys8j{kY~%av{Fd$+b# zdP{a};+$Fj|LRf^uR?okkXIz<+?@8gBH21#Ya%#t)crjEet))}j>H3%Mz#NsY;J?n zNQwNNU))uNeLIi(P2+k7%C3)AZLM6p*`QlJ$dHw`@-(FHia{vxX3daWzYTgYVS_{wAk4-DJs~E#?2OGPVUn%j&-qT<7FQ zB%g~@h&;tK-TS0k#g9iO_TAtt^zEY3<)#V8)ppx#sW~*4DaqW}T!`kdG-bn|A z9aUQ7Q)hc3RcqcOzVjANN}q-EQdg!%W?r#(pPzl%VrAr%=9&u^dg zNKhjGKhNULPv-pnkokY_tGe8+VQ*G@{oV8N)zNR=>As(4X>T>~SIYj9x=}OIY|_$i zUQgFLm(8h=oRuv)i?PQ|?dG9`7eAI2&Auq$@T#3@apj56oco^i#y)YL*wH;-X4eu% zrT)HyZ?YAam1L*3?#+2&Q?@hvdU(pp&l+uqCM;Snva_%0`t~_-zo!3K`teRynquN4 zy?s+xOut;0H0|u;0+Da)<~>^3!L+li)b>eA%Cm&H)nO7*&yBd<%WoZtyTEEuefFFM zkBS^~$h=AUpUP5suTJ!TVxR!3j--NYrp-Mz8Pv~I%fy(K3*f3THqYS&ZTxtsB`%bfpNCOj{_ zc6e2n7;k=d@5#YKPJ-U0r_Wif6Fd~ z?9-b$%Obw4g?GCilXUVSU7`Aa`!XLLo|zr)G^-+5xQM}i{jRA3+vA0zR#>%eSuCy3 z*ECb6L9C&NsneHvdPZTY>#WSI1>T1|U%0&pur_t#pB`v*fT3o2=MS69apoU0erC+r z)Bo$()QaG}(Jp;$3-2B)y7^h;bFa+znH90YIvgL1(h{zi6sad>3`jE}T*`D1u zvrn!)dgtkrYm3S)Ysnzs*5kWS6&oxUOcN` zLndu|n$nf8%StETU2l0~=EY2&P{-{YCyysA@2z|Cb>iyB?uT7XcOCj-Y&Adp$ZxmI ziC4dLlyDX(pEHyBZd&sC)1uo|?DcEdT{jEGm7I)~vH5l(*0+1ks*>c;YW0&7oa~%Vorkd|?FJyOu{JV2+gv!(01$&Qv;ECm(&h+?vAj5@;#dF)dS+5>;m-yc?w~tqO z(uOVen_@06JY=*_u^34{M@bU{cFmqZPcFHfr+)l%PPe`ayZ@A`y)joPfyRT%DZ0odI`^BqxNNV#pTxIhp09leW3E&zn77{NisyHZ&-rs(=Z3g{ zo_bkx!rf`FLU~tDG&YUvetPCj_!MK`1ds4b*QNDe7r83AWJF4uU3hzxf6jm5V^=d0 zT|(wMBvvhZwrqiqM&@e~_4Ma|W`#cIdXg>PIPut|YwFVyUcBq(o69`kR>@G@yTj$f zyY8j^)mh(p{>Cnx;~!!749zG##OlGm z!PR}H=b{&@cz??q&O5BK8dAF{!zT+?io#qU+D2c=n-bv7>kZW(e;u`21#|IEjs-G{^5Om-BlHB4qd~B6IT&)ju)j_6nVz>bYF?Cyy3~&sx)^-xhIL^)BR|Ahlai z|BO|Iwqi`ow8nx8n|C`8Zf{aQBUdT>ddJno?RrrY7Bn1oc5pK}w6chG||LR`sRq}iDr`wyhWk+sXrsdV1FUR02bYHxegC{5Q zazWOwM;7`OyY_Bg`j_d0%Hs{}M|fX8-WOy3PA=*5?9-9Ynf9z)Rvcy2Q2qSs`zlF| z$)4XfrT@;|rT=ibWoXRD$v-j|h_(Gn`8`#y{or zbkXzfo%r^2c=U#k#tUYyh&_BRv&ULxMLBEKvb8!%^A8-^wliVDvVXVZ&-^^9yr$~9 z+;*Set-9h{c9)hOp2KYL;l>a5D7G~_>}HnPh?s~j4wh>@hc)?yH|#!i(B~xQ zXD$zmHgruY8$=_?5+CPav|3%P48vA@P$@m)rm>JJ?oz?xg7X= z-E!@9hrfPGoW1>U6UW-8hMsYLCIKc|+jiOL{dtwvbAEE~b?NnGBa{l?{xhtPj!3!$gW#^;%l#&ACI06Hcn_b-!y4SaKJ77lP^lT z7wx5aI+<7gPZ`)@&W&F2Z9S{}Z#(OC<)g{by z)9Xf+6aE)1d#4_CWjQa(=dxk>f_XyG-rReH>e=Ui0zgWLoC_Z%vc zUD-WZlU)TZD;Iclx1D}EW$R4-y-C~FPu!8!uc-@xhwC1&86Wh#(%)9H`0%-))P zE3VyLu;Geqxy1Kh7tEe296VTXXSwX^gHMb!g*A`OxR@w!-El0}{ul>?P45H2CvCZW zJ|}*OXSH-zOU`aEm9~pB{I}uk{de<-O)lw%&1FzTms+hqO7NmL-p?6Pm=gT=}XbdE&dV){1zenf6A?lHWCzc4-=y zoaTA1J$YB^rJtwf>`pzmUPJi8HKD_Myc-#(o?99h*gJcAX;Mh{>{r(t{&O`PWZH54 z%h#Y~dVi*@KmO-*^U~dprR(;Tzdl`~wQAcAJB1^kGlGuakeIHSo9SD-(?5KnFLR@c zN9fasm*;aa=*Y3H{i1PTe$A}5LoYw5X6jq@SGoR}?Em>;Kc~{Mttwg#{`Iq%66PiF zupfA#omnBbb^H8xTg4up-?eDDj}7y!BQr0&_%b#3gvRDz_X+&5v6D8e3R|`{+a~PF zmXFI*x1J4^s%c{Vn|R>Q-_`BY)~8<=PK=r@k}C1QgFB2jDP`N9U+E%=OJ)iFT5~N*hR}uubb%4~Yuj?LB3?TzO}=3-2M5 zUXS<#4>xV(jbJd`6kcxg;%LLujH40Fi3tpxuY)&lOkr4Hw(ZU-^|fM4Of`6$jke!s z-gWzLhS8aM%S7mv*;Z@+F~ zeC4~|?EZ(M&8HYQlmx^T^f~^!sVkEk*RgGgf4}B%-XG(m%Z+CWCI&66kE}7|)0}ys=d)V0iMOA3 zrPV@}V&O|-XJc)ybh4VC_+jKWb#2|6A}#wRJ-mOyCoBw%Dmvynb=nkrM=_pQ-HyWF zOmS}mmfSeWBgwboQsE`0+6floUquA_{jY4XxGT#@t@{jvlpG3;iG@C zLFm?rHXqrx$BbRiR-`n~_1U?5jmEKS6%0pu4+>teaeMQ#AoPGO%PbcM*|2|XlK;|c zw>O1J7};L$X87=l+w#5Ivw2-FnOTGPFR&J!6WH$Lno#BWDX!PQYWj%>XWb;7Hw4I7 zMtM!BR=&IN6UVFluQcD%TD3TvajK^Bwmo~zby_l3%YJw7Y?jImN&5b|M7X_o&dUe#38uGo z=X{fAT3adbw)<@e8-7}|dL2;KbQI&&*toI8a>Wf%Kb`)2p$$T-Wgh-n+!@KUc*eDQ%N1|h zwfE<*`Q!gPKrSr&-@RqkJ`(?T2g)ZLD}P-zcTU>P`J0=si%*-Taj$0o_metKk!LjQ7e#|b)3`yTmOw(>kv#F1}Pie4U; z^=|nX%R1Gcc|t<8$;Xf9cNwwX6Xo5iS-9ZL3htW+qgssEy2O68FX8#Iv}JOsna(6O#Q;Pk4I*Ge158ngVD4G2BI5#iT>fwhP*-uv&CmwsOdFpaVpp8`V zf-Nt19XvC`VzE(eOw4HwiCL|W0wYiGojA0%kJUSXySUGxjwj|puAN9&|gA7&MndJyX;HjP%HiB@|@1B5~V#ejhNXD_MQ6`TW-H%snwcOap$UEJvC?&-!q~4 zT9(4YMJFv4j%+PfeR{s!&()2)r2n**xsp21j^9y6QuBYVp6D>&&v#PMU~)2bau-UnNPY8@9p{-q?Wk$ z$S>RD&yLq9pO)WM_*(jZMo84%Z{llxw*H$c^?&l_BWL$!zf@I>Ocz*q>SE@ygO7Yq z#jwh+t>09B#$npJ`jD?h>)iLKX@;Jzd)OT=d7bG-u5{x$(>u2oGaRVl^EKz{JM?AB z+ll>$cesnk{PbGnTF~mVGePyzp$oRcZ?>*#w!L(Vv0M0k&EY`bmFoX1zI|HSb?(^S z2_X{7JeQ?bC6+L0<}8k!ZMT5$N0~+c@-MI1norgo%})EKASQO9`S_>#!e=jVJav6$ zw$;a6=D2g~|Ev;2op`4u#nm74@^mIl`xBKhBev<|hq;qq{ftsr=$N$PQmvLbTdBr7 z*ENS))_vH2UC`a|oc!7PhPut2 znVaOKg#VRUyz^I{6uqL%H%;We*}0yQ;QSZU1Lqf7&sF=Xw(v85+2^jVXKx~|{%|}g zGpi$A#%=z-&-o`kj1RX~uacH;4iWkKbkRB1S#u{>xy!qLGY~TG;V7yxGKk(_x?Ml& zO?ld)Ip6LDie+j|b`4VOPIt|Dr9D&h))eyt{}x`f=FM&RVR9^6GjfmlbNPdo+J^&U zG~}FaEW3R3vgxl9LB5X*wyjKXo_0ajJ$-|Ol#~-Be=k0qsU35P-LlRn;eJ!J$GaR)Tb1`L zN7EK8>aUS|6#IOMw|em&=Gmz>Uf&!vdVSq=H~o3X!?yO*BegflANXS*>TUMqmTY^p z-FNGy#`Ry$J~Qgta7*cW`;DcG3{u`NjY%phT*mSF>FTIEl}1bb9F9J=4c@#hEO-8w z|8fV*2QUtX`2?l{`*T!HPZ6aN+X}EQ4NPe%4^EX zG!@o7t~quqsyqAOpJ>^)oB4ik(lGsT6H2jdQlEX9;`wi!Pj+%s7q^}0$$Y%bSI*E0<}Z%@`X zI()&hJB87!Rj2zrM_1-6iQY$7b0oGNYkSAP!Zf{cX4b72issxa_MM)_x_|zJ*-}6D zFL~0s=qJQV= zv&$ZTZg<}`E!ug;Th~K7XJ}@97x??}rr^pMyNjm&oD`v;9R1~+g0G=M&QaCnSG5J> zrmfa}IcwUDyJsF9Z$5V1F>){Wj^fViF>|=8&Q5HIkt-ICEQ(sITbpyBKKsM{zqeN1 zG)S8ky-NPa>jxoUm3!VkG_TlyEn@B3MT{3SYl>z?COlmfwqb$3GvhK2frxUWxpE7? z6|nZNvTKU)nf!zC?wXLL<)5c2Z4o^8?R$NuoSa^xgRg{hi{d`6S34GXuLw9Va9c~B z=d@kaUB%5iTCKcph(5Y(@abRBbRM@>?wC2tl4I7Tc(XoD-X>6XjPG>DTv1W3i%#N4 z=JYrIexldobqNUtXsp#SY#zVUf7dwba?!2(~+eMjf z-LUG*Pp4h@uv2fxZvFWCk0x<%^^Grin0)$V`SuU@&K>g3Fm?GgQ-7by2iDX2rAnI_ zlA{7y4~mwQA5NX&pdHom^zi&WBGP8poX$;+oyp0TpSy40%7i>d^;*?P7u?%3^W4cIjdi(qH}3MYJjU6SzAV;$qty**hq-&sA3Cf#b6UqO zL!XmP6&LqD*RNDcP3p7Uc6h7(Cb!_1=PRQBqsFgY8X2cJzB@8Q zb=reBZq2E6uUv(#7A=^5dc)<58?Sr(uMx>~-B#UYef*t>)Q*o*+^P2WzkWS=?R0cZ z0)H{l)8(at`R{pSiK%&GXYY%C_CRrxlI1_{5)5BhQ}Pgr#By&@OJ(b zIpez8JblV$6P0_<_s2OuGI^iv@n+VfgHyNr@9Xk^6!-I(j}UkLKABJP(zCZ`PVc$u z`@H+d)~C<*JZ{^5m{)S+v@rW(y%Wjt2N-tBOWt$uY%OI87kt1wQ}%H9k>_8g?+?>^ z61INhV^^ge7pHBXeP_-^$D8LPrf;vFox_(kd*SKZrapY1?|$47ed+1jEU|W%Uprra zD(jY%DP^ji_v_Z4yG(5Cod-pyln3YDdnfWvP5xg}?mfMaW@RkZ%<;09ea$BNt;>C` z+1jJ~yv90H<7<1_rJ#SCpUvOCyZ0GadQo6Hv+mCK6))F*4BB0KZOiYUo3CX4PP;qz zjUuPI|4Pjrv()m>#V^mB@^<_Fy6J0f>)lYg%=JX+dDQR6-7j7oo5O#qZePs%=WCB| zKk;e7wwHhS?6%FRDWCJM%tChIRe_i3=N@G|;Qk?9s-$k3locona;Nh;w*#UZO@4k* z|Ge4qh5%Qg`7`H;AD>fQ{I|#3>~!^Ox$2wl3J$+yx9x{}BtYTET=wLHa8uq!j%N?F zxOOReCqB}8r1|Ug{IelOLPGa$Evh)C!9V-n+r5>)N`B|AE;i%5Zfc;$JBjPf&5vB) zPQLgnwVUO@^tvK3Mt>{*;5ljysb9R_RYfEnS!_Lf+s=l#>tA2A-%>K~v76DM(f;yr!L z@=P`n{cpx#eywa}Y<9KR6~1gHt7GqZcfRORE3|UbudKMeZ~Y3hr&pe>im*MuD*W-a z3*zPX4|;Gb=)A0Zvj0|Y-!~yn5&yntzH+jApR*ZHUVU2I&&TMzXO^X@-n-n>lKCx~ zyLqx#dah)-ThvyN{`lj$&Da0O9KQGJ+^j8ilQ=Ec?SH{&a^rU0#+{#^ofMm@wKiw< zdecMRHiyh-XO->xry9I&#ZGD8y)~}o!5^|>?)$pVh|w>bpP!qz=SOC;zPa*Te32If`lX&mw`q z3dS|ddJVm@(`{9h%XlBFGBaC9x-s`$bL+k96212LHzWIX)6dP2vi?7Rd;FbrzE02R z{OwVu6TYv>`c>At$Y=B4BU`$dH4p09_^=x6-*#_b-d1_QVgql{1Lsc_lgk|5m}|Z| zwz#F%VeavZuCs$rW?DV7zvQR9=-t$Ip?at4ig^c%FLJju*R`@;obW8|pM2Z7m%%nH zoHIJtCPxH3I$fgbw*Ts*eZ7xPKJ^?EGbGz0n#;)uOt;;XEwq$n) zvzpKFs<4w?E#16Ik6F>pY%R}P{u9C-^5#Ox{yF_y4y)g=kngYN@N@E;Eg||6AP_-n5 zW%UaWrj60|udK4zu5}%}eUnkNF8*M|iY;Q^|21qBl&*f68(oubJ5yfW^JZa4x8Vr^ z2d?8$?VAtj#M9lyTLIwaD3<-iX|zZHkwZa!X7 zX)3+#`?f!Zo(&{ct^FHPb(5_^4UU8GN!0Hu~(o7d;9*&w8<3-Z^ zmKB`#U-Sg?K24D7t+=*8+`Lqzzo!3}3+H3I0~05O8y#AwCRWlPKiit;VT~cjdnSQ@ z?Cc7A+*q7S7vE?;P`)5QGOByV(W0L0l4EB=`p?+CDLX1(B5c%WsG`4jmerl70lmkZ zC3s5G&oa96^G!>ARC3n*XOMPJ!-;|7Tmws923VBU|LzcBJiG`|3iI*$W*gko8|6qNT z`v359=UtXD*R4J^x2+aDzTj*8)zY=g8e?oDm=}n5Z|A#a=h>+yqTzi&Yu0KFzejiP z`%IA3-cXb7d{N=*tFu>jozl9izpQQXMQP*hj9oVpR_WbzC@U^r|8YU}*%i8*y>GlQ zRo?zPPegp_y8ZHsGd;|0-aVe>wx%#|#rjaj@}}}vR%!F)UMfhJp6=8<>dAU=t%`}H zrAEIRbJV>+{`2wK%ly)ni>v*{kod3ynCw-oulYMp?TYy-=4ht3&n4Bc3>z4pzVoe$T1o1u2X z`i@A=3Wv*cgFj83HEDsv*Fpz}DO!TD4?m>%EL^ktv`uE;g2MqGEWFPiX*#sOJzOVp z^gy>o?=(*z5%o0-9lV6Z*D+}P{c*MUhS{V?(N7mtwy8)kN?(fqBr9V8@p9mKVc{<_0-ofav1uLrpruJ{KjIDIa zSym@>;**L0)DUH(H8)LV6FELCSh>3O%=>@e?>*9w*9~1IZzn5L6SF*H{{6b|e-%r9 zX=}{5#{cc@;>o)r;$vEt%QvfC+wns&!h%z5Lh-lPr8N!ltoOy)8Wt8cgxsiFKE21a z`N<^b^&8~V&A+*CDE5#3Vq=uAf3wiwh1E^rl z(Omwc5*OU7_XO$hb37;gEn)wyy&)dAH`E_}Fj;23-wMXxf1WJ}TYvTX!;RB)u04JD zBD_MU_?duyqx`qKD_m~m#lM${k%x>huSZ(s{^yw z+?o@@`sea*sm|7xyUBufl5tw!l5}$Y^!rNxm?y;D~#m_FraP2d3~H_fF@3D37qw=t4$VsQK0+*kLb>hagv zd&AbgdmC-9c=CeV@?JycsMU?~(o_2kqGvX&oN2SDp@3_)*%514A zi|JIDe%yJpyxMy;2VguKG{A}J-9lzq}Uis~1Wev)9-M=mx$ZTA3{H=0xz3IE# zdrk81$jbKdc`p9`@yQ91?p&`a>{APPULQ1g*=HTI^X3=*>{PaMkMl}Q>?{+*ulx1Q z*ml-v$=)X}kBTPg$(uh5@oC!hP+@8AMbnB*%>$R@J%b!#+ukl*C{q)k=u^X$aF*#} zuwk4;xlpS~`^{#_6?0`ZpD^Ye-2VHc24D5Z_dQ!zE4AJU?oW(7df`C7@C~O8QG8uZ zYlLhnH*eg`xnYY#oyd>UNxR%%)c!kf8*%S1^AG<2%)2cLdzF<8KAh-c32b?DHS?0D zSC$&$ESA+LFSfOTk75!3`LTY%;kzxoxtAREMf_93&+oO z-~G0E?%m^W_nP;AkIQ~)o~!2hcR`rY9qULROO4{E zmL>RaW8CtQ<>10Kn%zPkWnI5pS_O^>^4zgpG$C?s;*3RMMfxufn%RfmU-8RA_FDg= zy19OGec6p4I;U~Y`l9|{d$yQq_pVppZ?XC~N~eeKb+;AmT(ZUJV8nub{mdVNj@+A< z)FW|QXMwuo?7)o&t7bmPpV9Z^Ot6Yqmn+x){mYk|TI*kM>DVG|q%SttlIgT~ufCtq zH2r(~lo>wE5J+43?y$Ad--^}o-g3T?*_yT;exj+f@4dUNU;E2tV(s6y{;Shp%4dmb zTf7iA?T$Ycd0IbXyVDhmcQRKqS2|sfsby}mua=N|UVO6L-QjKGo+V*3r?~8#<=xF2 z_G!wgILQXX+1uab$#K7G+iC9d#KcQMbK1QuQO|8j%RBn!cWgW^^?Ki{oQg-;Y~D<2 zZtE}TI;!p0J-JydUO+T}|=NxSKb}qPg=JU*}(|uC7czLI4c)ut=TQ#RHt&r<8 z<6`fhGfUcx-d7igdb+l)F`D`#^ux)E*}4DQj~ngfwh5LvroMdftn8gHq<^3M^rcn4 z?c90i)&8uP8*Cb4*FB#9X;+n(XNvrebrO5h@=_0b{%sU^bmhXHFkX54Qv#_6wAL%X zI}-FpPAlT!`}2aV9)U}GTmEKOxZLimD_Izj5##o2QA2I!mEBM7YU<3rC=hnwe_OBA zrcD-4KTlOWnJQr?=xS(pPT0LzL+Q&C83p(`DoaBXocWY|W;6V&OnyH96;t->3t{cs zrB?8%O?_+B>a1>_9~;?JXn34iZ}S}a!~?~3M~WCiOUxuJ1mCwAf!uN6M_?7Vws$wdX0mBy0SREo}O`TIom`*NgANz-SX zcwF~~USisn|E&{O3aiJw(GM?G<6ZEx;blsL6>c%@Qq>1hS? zWhyQ52M@$5nPo2c$idgL408U-{QNx?LB|}7Yo{HVar5Jbf;Eyw?~b!AIrqcj^0Xf3 z9qLv*je%8`{=ASAnz|3Ya}*Fm-4(^qW~pSysq>#*~LYa5oF zdtmKx$mZk1rA14F+IBL27TU@9;iB-QxeIKQ6k|me$z8ja)yr<`d#31(bJDqM-Sb8M zeXmKbZvV&8`gtR7??sj5W39~H5zdJmu8N@-)2*f~U*$8OYv-EjlAp~gU;i&!e^E>S zP}SF>{I#L~`sC!coQl^DO51niX7FD_134a(816E&+tM4_Z)2Qw!sYsd#X6juC9ZBR zqjI{!vbVFQ=kBfA`rGU6=Xr5&-`Hi_*A_{LyuY)jUSej~_QOld9oPl$szk)prk|LV zrFWD0rc{>CQrRU=dEC#HC&m`Zl`np0wEOOqUbB^(IDA&Le%99(TCuo}UD7x_{IKhe z^M{YL-%ApA{OsQMM|}TrSu3%uf-fs4JjvMVWi8O$?`8VqK=7Q?TgCRrr=N;6$;?vy z<-3+^_2e90{Tpxo_7t30HF?@Iybbj!S;F< zrY1_dRXpIBV0GX|3}3GDi_4A+vyC?%kzQ;o8Q8_fp3473bD`G3b+rq^EDuP$o&0l0 zHcPdcvw6hi1MQLf`gqvp^68kFZ2#79T!h=~{FV7;aZekMtyQ`08>2PZxA_1kQ?uQY zyc?fi9{aVtK_utPy&|re%Uln0PCZm_oxg2apF+)z2YYJHx8_d|kX$?OXg}xtz6o0P zYSZ+U{I5Lyvp(Tk+xx;zZFfHl*v$=?krbm<;c;QlGoLS>o2Ip9tXy=+*umvb^%d2J zLO0%>G}zhj@bF)gkanr`pudIFFQo=mB;P4(%q+3&aMTI`od%%w(`pyf@yq%4J?90@ zj3NzBhk0FcY}JiBnjmq_F48Y5`*m9HL{>(z>Bpij-kZABFT(%k;d<8d8|@=r_a8lW zeQmSroXPXg{QKI)l%aKLf{}uRMtzI!#>N>8wf8E%t_fQ$+GjRNCis-cF+&gx~er>^x(NmvbtuE+TI`dx4-SbLbUf;OOqB2_KQhjJyUg? zT;g=4=4z&OKArq~Y|CyBEn%6MsUbo+{u{O&6w^7|c-ue^8Rez^%k6`=f9P#XIbgSIC zGhN3{R7_Y=r@h~KnzG=_mj)AjgxL<*nE5;J*~O*wPrGY^-|5Ko8}ANovzA)6wy5Gt zBP%Vp*`K)K9=`E$=)u;egzV49?|w`3zWAQ|XYJibx__myP2M^t~JQN$_t#i?xxLzl5cWbrOi&xwcixJKH&WR;#b;X zdd}D4;@2+GyRggK^=ITI_Lb{HmldTJPHx_=*H>X~obvbZ3#CBylN@c@xn62F;@*9` z`gw1Cb9p?qr8RfCJm9=we4J+(gc>g0Nx>YqWi-O``fUro_@5?a;i zCiDJs>B{vwZm%<9Dh*vGCaicfH6iw9+5AL@CZCf^-%V`PkIuRA`@!Sg=N#7ZoQg@4 zTC~YIVa8YSb0-uNC2AKRR1Ei@RRG=MeQ|NR)-i6cw)fTdZJJj&ah(fT;(p`sW=WF_ zRs*H0-xRc~AKshCzjW;@-6J23x}2tDSnoA7yyV!CeofOgw$EyXpJd#t+(wfF(#;19 zO+;B0R{jZ(sP@R(yQ{_|_|6N)-FyZs1TDoA{mdCN-Oe>m+2X37Q*_mY?QF2ag5dUM zBj!)iYd`!`n>ssHTR7Q&Rj${^49C0L)@i$TiETHRT%E|9wsMcg&eKwBwmf;77$MVn z*tKQzkJ~A62eZ9*upPb?A8*86kkwOCFJpVd@ zmyF&qs^S(mpRf5*wTP`hW?q`?*UcIWa_v?>_R}q#UZDs&dqwc(=F1B|>{C0RxccsO z)&}MqfA>FQG^pKqaB8D{-MmXPjkljtTiv+m&0Rg#AE0gSd(+}t^6O;hC7f+lQ&@Xm zVCK!M&Z~81-hCW$WBb~Y@-&fjzS-N#Z`EWj+dBE_nRDiAR}|ga@;lmYgOjqIWVU;k zhOXHczT|_RtFL>tF$Zucr8)6FwC6s+80a0u^o{-L^=4MPg->$cZ^+-Pw~>?mgpp}j zLL4L3UGAK&Ef+Sgu%=CeIVloXogT|F|YbB&_?$Uzn^-?|M?5v=q`SL!{5{2rmH`_RH|q=-72Qw z(q$f#_FLHMQfC*~Wpq=ZyliRs`!T?~%I^<$f@1 zvdO`@mp3n2y>DL1Z0C0uKCWGvCXtYv#k|Hx(4kIa+1v~>wc~21e|?jlCo<`us-xjQ z9j=c(Un=e-uRWuYxK={8q}(lemr={B(tZ0|ErbH*<-N~&yE5a-%G8oHL#=Bn)fGL~ zX7kuqE~-vkv-#~7#%*Dm8_Y!m_xmkd5qn+8KWFiW?1D#9uWYM7y5;t`b9(tH9JQ!X{Jm3#+hpNf!Bo4{`ICtLDQ@T9XJA748ryr96mUFD{Y^=L`HemT=o}X>0Mu%BKR+`uR&sX`*cv(RuJ7FHvj>X>Wf$DaBfv@MRx-Pv$pjGgg zKi>?Or<+oB!uFXQ1b{kG^U&paJSCRQ<{=R!v|BBKdf4!C%Xg_CR>Zgwv zymSPzIh)SjVZZT1e^;;yN1S2%vdyK6#~p7}_P;8$l$E{q#%0&HkY|}ke7AW?D%T}1 zzT;+IP_@2QJS(-wEFGN`UF^ zyYj3(DnI{t_jMGmJhW-$lvMAw%&V*w;xI+^@}E8Xv0_d6N%x0I2h-m57@6;0a@gWiaznx5pB?+&Pu(_)G5=kp%C7cf zIjeKLQU;DWrO3Jv-{RwCz(L@50GH4(HMl!wP?$G@qSY7BCoi_15$Ja;~~a`P1bnbG%V zK92Oa(_Oh~?dF(E%5VI2Zt4f|w|Y!)+9L5`qWp*NB~t4=!#)N6l@?ntb!OIw`Cpp< zeBzIEIVimT(UfUWXB}Ufuyd1>v%7GIgi+L)Z#RD}Ni&@oHreRi<5jhnmT#_`m*mU( zDSolcp0=a%^TJqlQ}>0sY`5wH|{;Inyuf*@~d8B;a6_`k4Kf2OiyYU zM}F+B%m3MPL0VgPk?y56I=lXE=i6El{aS95&uZ1pHn;WDY))Li)_atxA#nYMLuouy zc3iIDR`H(Re(J-9sIbaJ$1ZW_8~$M~{BGwj9GVf)`+3yUb@s-LXlD zPSVdh^?%L5&D-w0OYhB&@Ts4{?r%ITVAXTQ__pV_qf>I7uiLmxtlBm2TK3nezc~N= zV-l+Qd(XBtT;pNk#&z%Ru3pc7P5npwO#Mx^_iDSXI>ImI?p&_+i|x;hxwkK5X#Q}y z{yNX*fw{O6Q~llIbt0#)hUWWCY%R=Nv{T8+k#km~>SKYGuRi+E;FhyCy}4;~%nkQD z>9JGTrc}6ZySVAO*7<+L_sn)!F`=4SEOavg%cy|5iUwOU>I~SjtWc@V#D$`27 zSBp0@MyfC6jB=j4uw5`qbnV6J7dyGCm#u$%{6#MJ_BDzA)dEK1&W4Y>Q&b*jH}Hj4 ziA}Oi+CMuc;`P@vYtygKm%R6+cbBhCn95n1ZKv)wtb4rkb6|-NxAKz7Qe6FQ{TDV) z|0*(dMS1sytwp*KA~WA87n*xGm)b-+P79o~A#7txW(I$N!gABhUrna(t$O={+9z#T zXSZ=RyGd)wDxOmt8ZY=-PMg}hDQkr(c->*M|F;4Y7k8@-b6i4OjGS#}I2{h-_OZVg zdMrKhSKQjV&%8_p-{d^|8JT6 z-*W=iA1t14@R7N&(bV9(?7<1qP6ii$eDgnX%iJW=zoB|EyW*bn!jrt2_pD}6IQmjj z{$}%w8`fOb@Bc=tMy#)2>{9)!DNkNU?f_qM#Q}F`l^F-`%@=6mVhpX@^EKx;>lxc? z^QInZei-Ok%QW$jZS`i6H!;q|*~;B}Ce*&-x0n4{_uhB%)8>VyIVJW5>Nj3$-qhv{ zN&PB2u~c^MLX)fsv-f<>Sa`U@$K$bbZgX>`;p&OeM-KOk)|}YN6?J9Tu9dff{;t*+ z+n;1^viHZDxUz0fUkyFWwG2BaEbX+vo6%8tY~u4-YpR*b`(AFlmBIEcPpaXKz*c4@ zV}Uh#m$d4Cy8iC2u6TC*QILL%lJdM$dydce79JgNWlEZETzcL;S-G&66HDWpc9>?^ zMy%PtmfuUuIBeVW{QH*W@?yEQ6&{Zsownq?mi{s2*5(%vlA=1^XMZ_q8*y!gzNEuG z1OHXI!utbM)%6;(e<^qDJ9v{*ykV|;npHzjuanuiRBPic-3K0s)IPlO{hRlavcF6j zdrEGsVsC!XGUv&kPe&hK68~Ctf#uG3rYjwX{iF16^G!R|{h@Zr3)PHo)gezEmzI54 z`0+tL`+UAtrr%6BDhm$ZanQG1%KY{xTlC+h=ho^w1&Hp{`hzQ; zXRwQIH@~@rvG$CDqPN4Fs!gBllp zp1y#@s!1nUy^F8BUZ%18@zd*E@i&(qNe%tAu%%1pQGUaGv8fJs{ki|o>+#c`Qn--4kBAW?k2H`Pj}!moqdrxxbvG z@mDFM{nEr^Mq$yROD9cfWY=dl`@6O6VRmW!ZlNXN%)(RG9x7jdJHB34{?#8b_cb~H zQY0s?T$323l>Ogf{;JO9y0#z8uLUt2atS=CU9y+&O48cO*wbE^b0@9Nm{qyIRIJR8QS-3({N2&_x7t6f zbu0R*Exli{a?=#=`VIDrmnvNqnl(pOFYL#HrCq!C9_9b@sdHPk{fE>1d#*lyB{+Xd z*X+$fyv&-t4(r+;rkvjs(3iKW?Maz@)rG~viTh-)nzK(^{$iOu!KBM~j+R6kyo-ECO?B2wAHGxiW0t3(!1vw9tFTIgVv% zCnNqcxxL#c&9+uG+5PR4?S{((gu2;s6&yZnT9(PUYUPP-lWZ+NB(B^yr{DbP%Xzc* zt?{3kqRs#NxccsD?Ux)8|BXVIehs}Ny7#g8c7gY^HU!5NBo{iW8Ck@gSjZ53!SaYw z-(EZ0s0V$wxhhUwTdKsjyq)9orKJki>z;1w`XcmXWrObtfvHjJt705hU7lkqKiPG% zUA6T&x!tnyiSOP<7ge)c^GUvB-kxlkeOYdXXnUUa@&jiAC$s5@=3enQIAc}$wf4Ol z_idaPd&P8Toqp6Z@3qwOTbGvXTEiA-q)@K3$jsxobHt>|F&Ezx+^o7g@gGOdj>;V&|9=$P{=G5fdFt1X zOJsERXjh+mla;C;@~Va1_4lK>Ybt(ge`Q|UejwAWl!4t#Oh+gEycng&hH-FG2V0FZO+H1+_9nGzP0+z z|NpBse$j`2u6C!-Xg%B2m}vE3eif^;-nk8aOe`0_o=Ihwij69|IaA>Fo>^}^YPYTm zaIlt@Uu>N*DQi-rW}DRZu(RG*=PjPPZ^n!30q55ko?EK)q?g_F(}ph}lV{Gop4YG= zUVGvhfrDX3uJ6&W3hkD^D^u~4ZE3^hyxRZbMQ^@rj9Xo6!+0!4oa0T+nUK?yH;1f> z6IQMHx%owQpmwRXY;UmI3ARJM)3>U&<@|~^yZgSpz<-Wt*}eFd!|Muvan4>2+shc+ z)7`k`-c&`sh6oYao~-@*V>fv@l?byS%vyz%_bJPWRNPbTdL z1(DV}mn%5Gdim}4^Jw2%vul<7(n`84o8%UBt2G#VpW#fL<`Axt0e{gPp^_6j-itOi}w4i58rueX6_IpeD z)m%wKolTP+HqDm$rV;Am z`b7VScJsaUVozVL7XEo)M_WnNg_Bb6<8@C>{+Gc1aJB2_HTI`w)NDP$KZ!@^)gyNH z4gNeWdumIA%-$T-`YvNRH#Ak`>8H8dCWYyKT^F{jBd{dlcH+GUISC0jt(1ieucS@z zmD*5}KCR4E^TaK)PL(pY>ik>vyZ_DDzklLdTR;A+X-5@;_OfFR%AE;Qu2H5Bq-;CVr{^v17(JYr@Q@Zq^q&b98~o zjNAQu!m6_@G;Xf#OzQU5sm^8Ur;F@0&Tucp7sTPyqT&6Y@7x#8A*?$vu=PI_=m z{_;LHW%UQr_p@y)o*xM3iwI1q_$%1f^VmQw;V))NR&k11rbiYYszLdn_*=zGOIAxTC zml+l+dFkBVtX@(xXXlrY)2xS7IK_3DCwK4ToOGfvneA5iC=6Q1zmf-rEEFCY{a5Y*b&JyX)dtmeW#8dFK6dJ%0Sg&EhYfcVDV%%0GzoS;pC_ z@N~wCX2k=xEpw(Oh8)$~pdY(smx{~Ay6p~y-WT%{7JKV0Eeub%;3>P`K{zb8#eH+Y z0^akCQ{UX?I~yKb{^;+LvnGDGB80cxx{|&K$&i!WDp^!IG_aDD|@7r~K_4LeJ^)vWKCmR?)1WsAhulbkH^Wtp!H?wOqX`-Gn*TW^Qg z}S^daL5ci`iTM2d%DWWjbb{ z*zWaLyeB}P&;4-b&s`TKdH&S@UH*4>dG`ON>Q~eL1%~c!GnlRLZ{l9Fo$HP=Jm34H za-4&57ViwEnj;r;r{iUY=!3& zFD?=0-BKT0aF_segu>u>w^?aJl5;aSdm?^JxPs{VZT+%fI1 zpU$qHzPmMIPi)LxxychZe0g;4z~}V>S@*e=SOb6TJQ#7o@1w}wAMc+$a!+zMS-Bl@ z6|(6K)hH=z)hXRF;Wux|r9}p^1l_zMlE7_l7vrjX@W2c|)11xi>3bs6RSnLr=x9y< z{xn-$Zq=%!S8dmG-i9`KJd4%X|ATT~zJ5Y#7V>^0T3rd;4GKaB~rj zl**{}8xFd(r)*tobF=DY)2&`MJ`U^X{JZ^oGah|ojw}AVA@%>(jXPgX*~?>{cl37u zQQmpmLWFo3pB}B?_^UT>-^oRZ++HaLPgB0NA5QyQ`FbPwAJ-C=1Dh-DcAfHQo6fhz zK7ap?{cbZ8`vX@!_OMvj@bT5d)F|&u-(D0oT-&{L{^NgtP2XL(c3YSIy6Tq$o*Em! zKH@xNbn8phpT~OB@8~@!>X829Xd!cSZXy2@sYg=}?Yy~*yL^(gzgfeoxc@s?WfIfV z#kK0(HmY8E9s70tUGw!K?d|t}E8Vz}lfVB)U2of@uOeki>3es0J+$y?-r^_yXyF1D z@mqJ!xV%bTRJQ!QmGFI!ezTpiM^Co+=Kb5T_2>C-r^9!j*RoNczLV+iW&c&@{!Q5Y zU>;vbr1g>JsCn;gvx7tWPAyA5p&GnN>$_3rWgDk%iI<*@zZG=z6z(*7Tdgg>v_mOe zc+th^&JRm=Z(EW*>BZh|d44H*_SCO^>jkFPbTOxGeGwLWNqxWE%1OsEw{H8gk@5f9 zgZ1CDSF4Hb35r|3HpO51or&|K@7cXqZ)u%-9xTwiC^58JDAGV~%e$GJ(_X&d*xr5N zGMi2Lv6Q0k4eQufUE2NAOK=s3|L=^Mr8};K^r*TBJzBAVZ{MdH@jXAoKA zB)in%zN?#ca=%*RbCIB=Im?pw++*v`nSY(ju(jk^_aUv$XjLtjjWI5o%%^RG#n)L+ zWA7I_YiBBaY;UEDPb9O8cyg~5i;t?2~w$#{Tb`S0tyxqE?^G!%&(b37Q+xPt3 z>7;R}>cy2#^<8`&7k0OF9*I+1%Eu)1!}I7DHv_houfKktK6B*Y(YH~-=?A|Zz2^3- zX_9@d&;2=-AG5OGpFQ`Qi(|*}iG7=ny-B#MbYJW0s+b7oTd&j)GJQ9VPycl9tnZ5U zQ%$UWX6r4tuxtzo)6sZR=3f>+d*jlWcgce9A2Tg7JK49&UMb|{8N-RU?3NcMF4#M9 zX1;=1blm*3zV?ow*3Czq*O){Z$lh(7{OXUmjLr2+SGIj@Z@(}zXuDCvcFUD{Ry7u{ zjrJ~56p;>>^VH4O)7JIe6z?)o#QK(A>ki|U+ln{UT-0GnEV~(!E60^4pR#A#8^)_0 zUji>^d7M1GOZwZw1)(QiY@ZeVznFJ%Pb}{l)wPeV#R`cnyi-5Z>Cm!_X)Rx`hpElC z?qFT8;Kcr%V;3s54zNDkdrct0_44rtC)aJc<7@RT(L~1m=f?X>+df7gv=CXpJmBV= zzy`0g0uE``EWc7u2^8#f`g3^swAnAYo*XVqkIXN5!<@W8&kd!f~DLTqG)aF$)T>xN~wXT9y%qu}~(pXhs=OBGuV zCq5V1*4m*Vc6e_}asEGZSKTM-od$I;!aVN6ldA~7d)~-JLhoUp}VWE7;d@Z$Sdw=!o58A)Z_Y?K=-0AuSH8! zGSBoyPdmK3Ce_~ALdHt$s+n)p^@``m1zR&G%>gf}w{5rDQ~X};m8{|2*S+q^oG#NB zT=w@hs?L{tzgJ9i>nu-(ZIgVPmKx4x`C~sl+dN#n=u3{&roNn69BMn=w#lbYZdhvR zS+y-?vd*jGrxVxAaao|V-C*LR=(ZP!JPT&HggU8D)}0rT|DfY#vD37LU!r-x{Ruez zZuWKk`+L^CxbiA@u729N|MT+q-rI3@@qWv5|HHzi`{mNk{g<=ZQD6S=`}9ATrI{io z^*-zLkNy$Bc4_{}o41W0$rgPJ=DKh;z{chO^Q8=xSv7K@0lp0r*}P|;H_y@1o}v0z zx8}$C-SzWd{;cm6y;}eDPyFv?8@ElH`@dhR|J}3y@gMnJ=KKn@v07hxZql-%dr6`e z`I8srFAucX@bt;q|7M!M%-$W>Q2V-j+lJX86S9p=r?;(mX}UUoFVlp!;}Y(BmwdK+ zy6mGY%Urpu%gmE?x**wf~oV@lN&PC-1&oC`^3*YS-U0J1-gE zp5>!0``@hZg8Tu|ABUbZ>Z!iec-8MCBqex>`~KXcOC}pDwkCa;`>iWshN+OHgqj}D zWE-BznjRVriZ4|wgl{D!n(!39?BOzem~uYc;AE)5%+*bs9WSZ>-yGiGGJWTYrqvfB zLLALswLY$^$h=)1^r=!U__K=g@~)ICaxD#P-pn(uG~bmwt2S9^* zm>8WjHJZ74qGzJA*rl0&FN!|zI@@Lte&$KxtjjaGW}Tlt`%L`19n)jZIA%{et6w5o z`?EF0N^FDqVVyfQlUINKno}BS^sqnfoag3(HGk)5D9t^--@oy4-Pz~!&rG(rlU|_8 zed1)W#NNoQe_C%$S{3dbxOTGSR=+z@>fu*@)mix6Z{N%G=!E{In_{^)V^Sj*o#bQ; z4==msc{_dkwvg0cbx&U{jXuv%Y@I#LeoDB0a%94;qa~@k=DvqH$3gpU)v9Qd zey%%GX&(*CPltyzpMJD1>D;-X=RHm5H-6q4cQkeG(!8>@PE4%DHzuccdt5xDzJ1Zj zGhJQo7uIXA8p(+^FR@Q8@>_T2rGHD)tj&8CFSwF&FQ`mR%=Ago+MItUZGNVn;eKUi z^6c5{n5q6Hi(*pMQZJo(_waFAocx0iYYwe{cPeVi!JGd?>&haZhDPyB&zk-2orc~$ z?k6Gwer;(7r!86_RjwUyg;6(Mr0&&CeanD5OP4O#uwO+qrQq6zruA+qTEDK%{dTZ} zfmQx1lU4gHcjMg2TVqcg>yG-kGs2PWtlu*RXFIdA(YKkNZJe>F%xLp|jdtToZo6!) zb2X2G&s3Sq?K7L~rarHy$aDEmm1vP=CHrzKTkdFoAG`%>jq^rEj*9>=wL8mmv6&2wYs z+I8$cO)-3XSMa#&JyZGVbL8vl^wn#tjh4RiEWBHMCUWKPo3HErW^N7s^@ulen|pAn z)?TO7m8?a_>Fdr&r2+G-D396+o@77 zEWk5s((1Ox+j}I}`L>;W6Q)+bLe%8n?2E$AhTAWmc+%ze?DfefT#x+LslAgtdxP(M zUh1ViLT7$Pz5KLYul7dD^5Dy6d8|b%!~dvfH0-Nfd0zNNo485ZrP)^hpLA}%F;jLz z_zTgT=bu>9&9|7_RmH9-n6cVK>@KH%V{;tuYa5SQSI_ZGITPA0*C2WKh|cZBFW&5W zu=A)=}-!{4F)*ee^<_kC77fzOJ@LR@g zrO8%O6zg!YZ`wr5T#>yslXLc+oU(JS$oc6%zwcT1yHdrAH?PJzdp6$-78yh z5xvtwS*BL+{?FfA{yzV)n~>}G_>aL`Ufwl)d7@;${G_Ry`_@|QJKo>(HYM%adupD%@uP+aSL-UK0F5njYPl-mw^g4= zh3I|%5JuJOx!F%md>E_0LV(YV?G-`?Dmu=g%?&r0_nAPvDX*7TPx5Z=HwSO`9 zI!^ua*!J~#QEa_l{yllSrO%@crDi=1OKzTSo?S3GZ(ZgD=iLu$?yl)q&5WA8_hHGM zHOsSSi7va?%iFN&($iU9(?e(H-OIb2*NoD1n3s+{h zO`5K&`u<(WAMX4AA4I3#-v3{)BJTBH{U7Vg{vS5|fA+(>clCcJAB(q)w4C|x*!Oyw z%O6)imOt=*_iy|C$LpKhqkre$khZxKcE*7($J)`sa>Lse#-|6i33GhezTjqAQ)5xW zZBF)6jk)Ry8tmKVPFS%2G(!m&H%Pz$ByeHD?d3PcTm=@nF&~J_IIvv#gD9tx{l}2R zn#t$?S=%)>{xCdeAR-iUh~xXQ?Vpc&?n&Cuzcb(Ir>oKO>$9I}KiKo+%?XPG>Y6v0 zx7cQV)jc7$=L$cw@#$yc$AscPGd_q&E!bFXV`IR!FSD=gqkP+oDN6+RercVr(fRyC~|)|@b-iE6whUa zzk=^e*eto^cjJ0g^UPhR^jX&&xEz&yTqi**WY%7J(XgDO93pm1<~)044oLZizUG*^ zb#|9`jfp5wIT+~gdICq;}`H@VlarG0#~{C?kh z%TI4}V)YjqZxX-PG4Xzrgzc&OPiNlVFZnqu^xCKOai6N>{FbFxD*Kx~xDXYVId}R_ z%g<7^X3GpE5?B9d`?EUq=7eVLv!)+D9Q~Lw^*@`7d{GM!Awm75XOTDb->u);Q6SwF2)$q?BU*&9^^{n~y-PMYA ziY+Vm$GrPj)S7rpoT1V{V_C7mLw)%^wr?*!zDUZjk&?WYvBP?U+mFeq@sc+GD=cI- z37li$YJRO#AGd~WKSM*jUhjIhWBTDAUU!Ml5{Y=0ooqOFj!&3T!L0_>gt^BT$0xju ztc!nWe#}Xmd8zJ-!}m|lbK1Z0H?Qom6~TK>vwgiOFn8adR6F~F|Ke=qZYo!0Nln`l zuJmC;k`-1MViN%xR_d)Zm>VM?)(zZd%5C^se#1Qn@f$H z=NUK4NQIwht|~0^E* z`tOz7d$7=I{;|odLciW0Q#z-X?w#EK@?GtN9_5VL_5Yfu`ZG?f>HNJj;&G7JKCRP* z!8ulJUCWl3HmLsVyX*S+OUaShl^ik?nR@-)ubdM&dLVS`0ihQvTwg3QS~@o@Dif0$VQHr018#NxZRb&s>>5@$-RowxK84HJqH)oLed`pa?yh0b{QaxtciTMU<=^Za`=0dGSk0ZI z7aHo8CKf2-V*bfva?SkdtGIPH80M`x-{+Arm)kMWh;7kg3BeG#d+pDHQe&;@(gtzHhnkyzGa1z{Cht?^ysoF?KpjEveTbBCa=56 z?xbX}xUU&Wzm#c5k&EA`JhO`((ShzL0x; z^SI?(H{k+56SjLl{-krycyKWzA*RNZ%iY;%#&^Y=Y*H&c_s*SrzFsi3f4|hvO>g2i zteF&|wDa7w1CG1;m6L0B-q9}Y`1mwy{S~F(izF6tE%~u|;fq=4>jSU!YIv^k(h*6& zS>e_{YXirr=c>;qaHOtjm1^bPC?mVZ#4hU0d515LY#wj!S<0~L#|A!y&U%X%n^q-M zZ=L6%d}iN+%ezn8F8H-wKYp*2ef95GZ>?)rv;X?~t)2fzobY*3YnO!i7jJVOdv3qC z=HJ8JAHVDWule!Hb_VzSkRIO9ncb0!6BYS{Js2z(3cGl`;ra8U;Ky_RV?yf3`TiV_ zTCLb+aK+5E+vw>(Lx~h-slD&r4EUbb$eb|xbw&2ukG2CTrfIE~nfx4VcK&-40z7{7 zsx2^OIm$M5qMX$CAC-Kai>K&@bCl=Rf9m?RPfk?Wfbk#adLv~S14o}3TCNj{Zp}E; zc(W%XGA^6^IJ{$vM2( zYrg+pIeG3Wue`0ko_XQ<=IO^jPDfLAu9kXTv7@|<%V@r~iNJk{0@*cx9_rQa;=Z2i zzPj6RvrgL{^@*xE7*uKQ^skL*%Zg7*21gPsermv*!5S)DwLvk^A}8 zAE&7M%Y%P8X3sYNe09d5ZOt#&HKfQ|Wn6i*p+|c2KR(g!xHXHfoIJDOL%3ksl8nGD zMZKo4qr2zx+-uuZ)39*PIsJsL#!EiWR$u*dB;m5;e`cl!bJl&US9lpA=DOv4xjxUG zO`)DFuZj#Jr~O`e?5IHe>}!+GwYNF+OwrtCe5n4|mc;*0CNj3MX=_JK=HQrEGPkwU z^lFstGCMEXLu&+T)i~l-6$EB(SoKD^V(BjNs=7km?kjGyg(?7lkL4R&rb=pEnJBQMR8#m=>0Y0t)t4s~a+Ix~ zlIxu+FOU;E<@@KFDQAabJ0Hl6G5 z_X?i97`1X0_buh%=`Ie+S-kueQ#}F z_h!-LfMm;(xWlPjiHxN)SdV=3(q1MOtuK~tZ18k}2?Uz2h_NjTT~Kq{PeJfRX@HjcY(Lql8=2lN(=c^Bn?6$_?H^0b&H#DlwY_Rd zmp^Ry%5*jLzY%xc{^JpoKm_KZw}ne;0jKP~1;nfAyf+lJmVAU%%yFbx_+&ps86~ zDk$-xsZUI1|4mumZAbSpt(v;>Izx7uW5B{~MwQlAo=yI#77{)4ADhPdY*sbK>Bd`> z4vF?nu;J}$J1gZp*KCgGmDIqgu2NS!rsN%X`n;5J&6Bu{o#I(~9ieNw6_#{_7VAg6 zb5#|8YISX8cbVUB`#+7L(cusN+&joxdod;OXXNF>Z(m!x%qy5;ZM}5o1n3*S@Aw| z?tG>i^I7?KC$v0&CYd|2TUz_orq$b`OUkX^9{XPZ!Rfx3-v5~D|Hn7!USD+$~=u3hvr^3c+NouA80R4320p53*! zvZ(!#>xxaRGR`zTL1P*J$68mPg`BojfVmL{bx- zccgb^=jD0%o?OhW`R&`!+qTO3U7k|QFEHJ{X*uiLj`vDFwHp}KFXu2CXveO*(e1noBJT0#AAT6tg_&pZy_tW8X68)jw-yp1!=RSSD8D2Is727N(p2 zaHQTpoai5W-1xFx>a{%)pXW+fSF=fd$!HZ?*!|N)+W&LX(QtW}&%*oGZ&jZDN#E_l zl^N!&67!|~voh5;vGJbX`DfYJJDl}j|J|7}O``UXN>tZ$?-vUDvyYYCS^E9z6zh_@ zKPnoZ_eAvhDP|U}oDf=cM#S7sf5YzY4g3O$+eGW~S5;PCd?2Xk_vrF1jl^wF-X}?| z54)i2k-EF}?u(ZuGrw~Z+Z7r@Z8Bm~o`*iJS-8tK$#m_-2{AX+F3k+u5q4Iqec`3zisgL% zGS3uzZ1NjK~V-&mF%`WwE?Af(MMyhGbu zukfDkxlezMoNYBOt1X=rtJHUS^8YaZ=9`kY8X2eUytJff58Kxl?NOPfdUs=wtABj6 z>ZoP7&l#?60qzNFo_qGJ`1R20_Q_aA&4#|&ef>rcL|2ycotPf`aJkX_2EmE3>W-X# zOa(7`mMNLnv*rA+m^S}uXmg9To#SQ$?j7q=S^dvX>o|M9>&yy{`=6#PQ>y-c`bf}+ zb1g;(w{bWIC$@JdZ#nmY^%rAy^(L9;>dO;0|FbdKv~$@y%c9T0FD5Ikzg4(c`&Q02 z?2~cjHoH*Kb)D7=5-YJKfqUJ3abU*78LwdCDx8J0{M( zKJ{wl=0!|j1d1$~I6`9$auj}N9t?QbWzO+$ZrZ_mf1j^&U#tH2>wa=SQvGM@(yOka zpYCUi|6L>1wS;@!qTcm9A(zCNRMzia{;H*VRgi*rY{bh)7L)(BUQIc7CSGr)q+n}O zo^@=vO8L>;jWLE^!NH>CrwlCv+<$r4ZsZFeQGkzY`o@21y<(=xH9n~J?y}Nd^u8*$r=-SOzZ~lbKz+K+! z*)xr6p6cm3Y;6Xt-$hDRr_MOJyM3PX)>mE1kL5}iL^;hkc5B-?`wGQM6Qz&wo8$`q zNPc6lsO+#mwMbvSvS{Z!!J{I3SX?W^cIKTr=jXTX$fw2a9)>}eE;%ZvGM_Do_|}tR zH$Ti;N49RcDT(K|9G=R)vr0k>PyDyDUUxi@qY1^%$uk7 z^+jgW`Dx2mho5M!G)wUC5>Y+BX#Pcp-9|c%bF1JX`XzYSXhB&x603Z&+|=v6RmSL)Jh&jmQlw`yyPlo%gN^ z-Mg>j`?;@wrGH)2z8imjr}Ashx}dwv2dc%s_Hf%Adv)@H)BVfc2iO)%S*mmeTF(4r zBPIJo=Ayav@!xH4n>q~xzn4uYU%o|uk+;~biwEZF6?Pr#`x5bjbB}rA7xhT_Rb4ek zMjP%<-|@MLNByMpY(s^%f_aOsb;Y)@Lv3|4iUOV9XhyVJ5c zT-xs2%k=u~DZ3ft96;aPl%W8&#`Q;!`pvO6#R?Rx~b z`enn_88V9b(~omkEb05E`pl`V=tIDq1yYaFxmo`nTx-3+-b!e}@3%Z|3rp$*SZ^w_ zTz&W7{m=Zx`wksdK4r3F?hL=@2DdlF+AK;}X^mXJD6?aR)@L^x)z!Tby8GHWmqto& z>a099+d=DNlF$0DJ*JoEbbTpY^u1;A5eL<0ww#&w1Fk;3*Z8rnZc?$Y<{Yhcne4mP zZ(AIYe7KCwhsR)VZ~eb(@`?o;AKzh;+#Ho4t>O5SXZk=7IrPOB-}7V~h~ zAwkInJBo$R^8`EfCi70TVDl*XSQ00q@HlL;`^OTY$6lh-1@_2IUVLiDh4T4trKII& zn(qFSV)Jk@8#Bu?k;{==qkWguu>P-0Hzuxzb8D3MYw^gl?`K`rWB$wYmZAMZ5ro2%}x{QYb~JhSHeg#sRj z7JO-c5aG=vv%;@9cTwNYpfLS;^Z6^;HXLlY`S8`(1+t=%hUXZ1?#TWK>R!rMnYs1y zrkdi&H~PA>9c_3erOqtfaLZAk<#}~=bM;jo-?-JUKQ2wxDHPi@wK1acGRu{mgQ|YL zQH$1E?Kvbey&zj+gGE46cUq71jMbCE7j)ZqbRH-_t$ zb3kcnGVcmW$)??VgwJ+0oLM4yJbiYHx_(4faPIQTd8Q$kckR7wF*hoUGwy!oEO%?& z$uFdMj!9j3cC&e%=jW-*LPT!yrhb^zR%Vg^&gA@(xzjSY2ww8lDQC{f;@MXGS7s-# z>Miw)=e8QZaLc)3S6Wu^Y{I8hMb1-agG%SO-b&zJ7|I^Xw%7IzATGM;99EcfT!x!&6TR~yB8_EgGD@yK2BGkvZ` zh~oLES3c1zjdKG_l=h!$-7lIOv3Ziw{@(xmbL;=f{j;BTx!}J!$Gdy~cYprB6A8V1 z^ndcDe^(|kl}h_B|Ec=HoagxKljqZaemQvQ2j4QawWVywS6_X3@9}YQaq-2MFF$>; z|NOMmo^@tgV*UH)1iUhDX<2*JgX^Lxv6teT94m#+Jub7@;@?^AJ>Be}G7kq|wW-^d&r>tfe^i(>|MJ+K zRXt;|g8iYe?n!ev)>d?gwAXttI(HytQM9R-Va@!u15TDpXGFCuda?RxNW~8>?{(9} zt_MnGZH$X!dKDn`Pqg6E>C2q^TV3BXtSRH|`L_R1%_F0yvNIOf)J??JG2X*lji8{=aK)P*iic5`-9W+j}$+B(O+~e zu%<}Jx!1TgB7Jpol>!H6hfc|{PUi;(#T{>AnokxTFFKi6yj9QQPVUN#6hBbBtnJQm<(B>4syE*++_*pfUXae>LO#7joAqZ( zgBG2!3~-Y^+Ta-!v^F{}eNRcirVy2>XZ8u*TqTisb55RWu(fl}Yp*anae;#iaCx+LVn>4(oygWVri{>YEPWo?9b@lm#6{2KvI^8rpvaajDPWY!QTFV+1{9IWh)TQ)z z)0L-QYQa3YYF`RpH8c4>aj9A2b0oz=WO|;u#GQ!Tu$g~*-==*nV{hg;czlhaq9~i& z)|))?J=*bSHInCjE?lu^ic8zM7#pWEtjWz{_Z5FYoqmqB$p%QsxKuk3qDp-Km4zxZrhKaId+Es zq*s{Ef8e7WKBM*HR7T%K4T0oe4WW;R&3>Y=@u7QVcjdQE0mbv?F~VvZ3+=f5Y7W?N?$BlYX*=uYOD(pot?!rW zK07J0hHIaP?@uB3%H!`#q|V={`DgKa$+fscP9IhMS|3+L*(^%hu&upS@7Kx314j&= za|ADFD(zR>QR2Jq3Lnp#_RSB~XK3&KQFKMCeSel|7`yiMRdbI_XWlc%_K(RVy9=tZ z87`jpm}Qa`e9yZpZ?esl3Vi%X^;G}ak4aiAasO)CR@dy4Ui58U%@3|iJO4WK$3J`} zpXqWT^K+8n{E1(FoQT%=nBN(p+`Cjlr*}r!#2~fe)wvTKGOCltvq(j(OQcC*8(faofX#41e-#+j$FQ+e5LzFLX4S& zF~9K|)|9T78x21{%xGA8?o?2ExU(t;uYSjmDR~Fjn(u2r_LR=j2+#Z@Kc!7(YI`Y< z<@+LJt4>|jIelQw!)sxZu?-0|x*W@ol~)}}bZFipwS=wBOH=8o^36#> zt8xlIaQ8gW4;KxN;Q9H0Cxg}FEz{kX?Q3={D9>NL{#1}zN@n==m!DWR{?@Ka5!(^4 z^G(a=nCjr^_O8_pIfAWTLK~NN#5XGP-&h~_{@uUt`(ONhKe@u_ckHA6Y<4>|DKM?Y@yvt{)L ze{5~PGP_jrmfhJ>vrdkG|BJ+*mXBqlTD0H&SW{9tTRh%ZY14+|U)|0>4!vXS_5Y#f zt=T{3T9LV;6L&%SXi@f_h#g_HG{P)3X$^H%3Pkf7b*cZEF zN1%9?g_P-=V=vg2Z(ws@c5mfhBd%99t?Qz_?`%oqi+giWuCkUTJ7z_~)a$Rc8uUNN zO*u3_wPv@KW;*9--It#Cl8qx%9mMCYcoYy@{a8(*+RyWd{R81`d}~|2rf##kx43q{ z+XgO%moH8~komarM)Ct~WhF*~@Ao4s^KVWmKlP;N#zX1Jwt{!76yD#?So`>|tmL~{ zn{Jp_he=lJml=A?NcdWWRzFP+>`D1?r@%OR@!PiViV@|Jp2-(1stzY=-;gd&Qr3!2 zI%bvADqp#*Zf}$Egh!g|j);WpE?0cF`i0)c-=ZfKey_fBLg4bO%V85u-w2k}IR@_g z-hIh)D!Wdojb&v0Ouy>cdG3zx!h1z(0$#7Qt4zIq#Nf1fW>t;*(mm!Lvr1Gxh%ZbF zvtMZU*pFc*$FB?1U(aRt-k@5b>v#RRN8{t7$4A@$^9rX=W4u)3-B#b&_DA@y)W;Tm zPVPCL{FUz#eU9osnt9Upv2nyHdA|FKZMJfeOzB~jK^taui#J+sx$08cC?tP7@n!Nf zzsHAy0#r7K*gQ`v{yVS8Hu&D6pHtU$8O7(E5^ggAa!py9$^q#;+|M7U_?3(7>%TnT?fH+7Pb=z-j;lWVle5$P z*{qMO-{T$szOhuZJHzYxvAJAi>*EIdlbjchGwfwtvBHJ--f?}mk`kW$4F}7PzIL_g zT^oM1Yy;c>3gsn{zh%Vw1d{SxdrR1|EFD1oTdh-*E zrrbFC;!=0hs&&;r?;8HR{r(L*bJ6?;gLYFMXWStVR%Wxj`5L>4kiJqkF<&&%%Qz;r2& z?`f_%$D!J_ljJlyJ}i6?zr$=Xqd%yJD z3)|!K>aeur=Ri}jk1{eETDSUnd!v*p6IRhRo$C{1fv=6(_gXb^RZzR`#Fm4nuD=D@MJ~EwO6~Ca> zHYtA1GtU~!w8kf)HY_`ekIqv_2$>qWC!tHKmP_A#p^*z;Y*_RY_octjiqBH1PWx$U ze>b^RkR^Z4pepM>{!UmQ27x6Y-mOWcNs%723EeC40fc#+7!51E=LL>GzT|ocu$;?1CG^>Kg}g zQ#3=T`%T=+BIwJY>r&dwlfn=D(Z znLp89=|tB#C4m6ZRfWG>^XKrU@NG(dx>EFK+Pxh;rIrV@cg`_haBqRw?}CmEH?~cd z$-mii=ijc*iPwFW{Jj+Ke!F(Q=kG87d-ideWb!&nS6=6Re)G-6uga_PjKZv|V%4wi zO4_9LSm~PgRJMp^zu5TO+-@iG_b!h5eJ<^|`>E`!-pK}=%hGkE&Ykm_?i4UDc*#aL zf6lN~a~)1zm=znisXYB!n#M+{?arRAE4FBvD+Wg|y)U#@dcvx;mwGSWTBZ>2{nPam zO?<&men~E>6u5LSZ)e$s+{<&MS9g`H6M4I9+k^8?$JBq?XQl?Ou6g~mmF?s9nB*(G zW{I2cTrgTKk(T{-li21p7qwoeO^MB)eD{pX?ITLN?fE~=v-pU_pV*&Dk*;=+cP4b3O%AQLe)}kL>V-?)e~$f#eZw_-7pMKAdr>N>e|;xD z*{{80U1+hiV6pGp`;1q=mh9!bdUoZhpseNBOBPw*mQ7~()_keBW9RYg_8V4J5tAM- zn-8-GzGnhWVdvQP) zKCLtVN9Iuvg+mgK6OTu2b@#I5Yrk_X?(loT-FvwgAG0%*Z(Ua-v^!_cw(@nWSM1;J zWh$BUwD{?^0-cB2rmCmb#PT&HN_^e!aC*Vwra6aZvYB5rSS58kLGq5U1^>kj2Y5eB zW?OGCo2l(>Mpx{|Ia-AWPpWO}&%fA}=a{k1Fe~`foGa^0yS_iT8L^_q#M{DAvQoph z`_{=g*RV(C^WMJ=)cp3w`n!+UsUOWxb3GmAWHWo{-o9tOV_IcIfkEw`rL*VWuzL7z z4sYUj*B=`%edk!9;qq)@6r(cZ;TEHc%k!Rp=saT7-e&wKy52(hXm#$6mG=QZ3v z+VQF$UN`qfbL6L~u1hrz%-rEq)wssWT43`Auid3nGV)JfiIz03{=6+9lHVd@@g6C5 zr^neP(^u+Gx~6bq?gWLs;c;uV@=r@D`6TqVPCgmbbwKUh-HATlll_fyyyw5(5PE)l zl-l9lGQZ~4T-u`UFPg8gFZ$ctBPX|ia^uZfT)D7)^Ev&@=pR*~iheAPRUCiMIX%8u zvPb{Xzxh^LmbIizWSV^h~P#@ffO;oEWzrvJ>`)1kSc zQ$uTe+0$LIO&JGY&5c@oKY{thvh`W^FV-9GtQ)sDEW|vF|azMH8-`DqML! zT1{HZ@dPZRjncDXcSmdPZcABW8C67`NM-3xr7d3`ghS(g63Z67O{ zB~EQvCYpl@7u^`8&7^XK31*S?-4dtEdk*AInH6;Sh~j`|M~t=Cy~-F8RhI=ia&J=W#A7OmJ~C zUvHy#f3idJ^lBrn`^Bl-cZgiOVf*Dp?4#KdXLd1mm{*;0dbRnPp=$X5kF&SS$JPB7 z-&c0%**kgNM=58R7HzKGa;&(HtF~`v>HS0VG9F%i7<{2@PwSpLp-E!7-!8wnDZ~6= zjoS~Nvon4!Y5aP6=GmYbuWvH-7Q|d!S0FEQ%;Am0RGzCHD*SK!4&QHB9$^!<w2;hwNMJd3McW0rADN_}3Q2dmo%-Z)<+mWy1mHok|x^d(017G%sSm#%A|v?c1W8 zUf5U$I8R@3Vn(%t_J@@|;PTYOVa-|k+o zee>?FKdU;9%`GbBtf={M`F0`e^iNlwN0mhJbe1MPxp~`M{@&i&Q1&}|E&_`R{i`ic ztL$4-wDj8@hUd@A3^m*Z)g}?`;p!0ZtnHuT6O8fvfC@) zyne53HtB|<(CtEAtBogj?zFiknm2htXIbK_cYQC}%1_VqdU>X^%6pENaYb|Ks}Psm zC2yx6n|y0;)h?Gg{tovp1iUFJ3|?LGNbmacS92Nk0<}-9dUj*NZjWno4z1RYx{?vG zuXEu&rQjIt8NydD{V-Y}^H8H--uW^2{-F50mB|VGRedw=-(%m^>#9|3_2b9S^ZxOB zYd#(`aGx)t-nnH>^MuOPha4CGXLA>PW5UQa{pXwO>ppJmFZjLtkAU=Eb35Lf$M%@r zVFaF?su+r^HFFV20C-rx{{`>Rx^m@CRbxXu2d+$0wt#QRxpUJ{ePni7u>k{*C zE&k}QvYz3{@0|DX|E?<@bkTX`cchRpxn%xZw$v_LE%D=RCH*UM{!aZgc^iZO&CdnD zblJ^(mK&_qetVgDThe~Vdks_N94)5q*xq_z>U<9`m8lwn_Vazi9&K6oM6EQ%Qm;B^ zgGAiY+oytdb6O@`JS8FEmR*xpS<~}AY*IvqmTFbo)0a~xpI={J@%7=;@9X(a|I5hf zz52~7XvAgTX*H^3ZJB`w8;;@xhGZ7 z_T1Fu`wI=1PL7{_KRAs4*Vdj>g{Ictt}?A(qY8g#?ay7Tv3W1^W_9_yDo16Fmrc?? z{`sk`Ytch-)+8}w)@$c0=JPZk)~Wp9rWiHN{$N$&!F#bwy)CMb9alg0eEWU*eU3-} z%Y`w{SJ6B=`D}61Sb@{0x&!_fWaZucJVC$(A ze~xy`C0A$gzD_#RJ*7MD7mQJ-0x(b*5r_ z_{K}~59n0?dUo^S>QC?MmKvD1f3dn^`zu^?UBvXZ1mn7->S!*76_@UD1BKUbjKje{RNlI!55<2mfzmz`}B(B z39e4g6BSd#BMn-Y=h<^iyL!a&|4E*-|JQ2+*FU)a{j@8K{1Y$T-oC557QHHtSXyTx zBmb}B$1~=-VlO6xi&?F5yLS66bm4iBB>a7?gtN_)iS;-49*K!r8Y1Fh!|I(IQ=Dka zs3|Z1R8`xkK497o^B4B4+3d`lblfsh&0@LTo3hx#cg3feISD>~y)Pps9V$JPr2Dhi>%|?h`D^>0 zb4S=~7%uGD`){9wO~Se?o+#VRrgFJUXUNS6J2}OEs)SEfs+dFYk;`v3tE=u?@>zJn ziL9O1@9Wg%$A>&mtor_|SFrl*ffsl6e(B|BoH}%oY1Ve0nYVZQPPr4OtM$$|`O&v+ z0!-VtPgPjAH@bb#+q*{Ra@TujL?2}Tyx3Bfsos94&$%waU;ig&y=8vvf9YpVNoCcg z=hvBT+=}mw_}0pQC+@zCt6+QOM0JHd4cmV_ZZbOaD`VG;2e+I4h9#azeHSdk^*8r~ z`<@21b$7B~Z%JJLa#K=n=#|%RH@r0t2#qwF|Nlr?Yi4=b`=jhX&TgO9+Q6(Owq>!; z@9IC^JMJgmWnb|A(c+~Gf8O6%^nGS1kJ#;rH!?cYH~-X1GgP#zt1JESw*BMlwFH0Z0L;pcYUEDhg=>1sZu*8R-3c!^S4OntzCOCr)6ii?q7TR zhP2<`o^D>g;=aq7J)MB$Naz0g4_y3{(dWMP9<>xi6*-^;-)021KU55W{AEu?B3_9{-2jeyK z7O%@}jAoa^p11yu=6!dxW@4{?f?06!`+0Ttb$`EE27L9;zn|FMe!g+feTJEto9ZSh zI)#~NT0{s=%#fMv{qm5(QxU<7V!VMBOj1c3jrIw2=r?eklsDmz*lxe@^W+Pc?tjeW zI<~|jDe1k{fi2FJX;bE{oGfheBq?MOSK6M#I_I>`FKJ7y5MSfIaoNEgvK#gFrg*fO zbp^k9A$0%Dm8V+!*GtcM>U#Hp%&YQ*n}z|?IH!cEhTZt|w`89F2Tj?f#=mu!yk6Y- z_j+VJ4`=TBH;XPR?4G|s;mPg4Hkx*}bK?}*dnRk|TdID9Wp~c$yqi)Yg4{39zFIiL z*|T!@({Q8KjCx zb2KkG|6!$_!MO_s%+<`lPak&c<=MFU@AiMEn;b4E=JIIBzLi>j*@o?L>csiy#FyM; zEMZ$!Wo6G=;k`mvYjW=bhO`-H(l2W(cTP{>6fG{ZF<`FTHtUH9^W>0cMdCT!F?XhA z>u%#*7P_O!X~#}SjWg~|-*;c|J*V`xP;!tazQT>lfR8}_GY($m?^M_z^QDsjkhGxvS;w21GT;j9^#{9AuT z`+f9%cIP!OXK1?2jQnG#MQsDOxtugQU2r!(_4UM$;``=2_+5Xh@15Rl$HRQ5a>c&2 zeNCPbq3^eB%J&+-ytWNDVwDz8zOs|??+HJJnBV80Z)RtCtdV~E%#B;3pJv_Y_xRLw z=#8{tE?>-i-;KDqg7 z(yy=KS}NNZk2fhS@)rHc^Hym-m%p}`T*I{m(&^lfS#DMyi*M~;e&G7e(8~Peh*g?W zj~*UN{6Ez-D7jlh^MJrw;A=jr{0zB zY>t)t7!=nyOaI7P_D>3WdtZticwdy}Bo{w6JKebGc--yXfb{ zA5)DQ!rkXaY%q(??9U56_u9CaZ;IHv(+tlJ6rT`PS^i>uvPB`Bw}Gn&9Xn(C9zxn`2Potw=(Y^>1LmDy!fYwyp2P?td2rarQOfwE~BTJpPP?o zdwIIg*m`uy<`cZ#hVzBC7F7Ptlx47K)YP`E?D^Tt@k^(U6T9gz z!T+P`lfU^diHCs5+c%ry+Nv2|s@`0A6E&@e^<6%U-qy0Wo~oQ&viZ8w^|yHnrqe1@c!{Y z=ioXqu{mo+j;TcMSlD;SFy7TdBz4(Laj8Mf zO(si&6KX3w*8IMbd!gyn`bDf(AE)aE2nudk;H>`Y%{nuax?gg(&w`fx5H=}xbgcdR z> zsweDa&ma7DfPGCt{uqOZql{MgtP1*Iz4hw*0{uL{b#1S2{SL9ZxA0NOvt^6i zkNO-@$@|y4b*1*QrI{Lv43YK>&T$=CkNLLFTJf$om~joOeMbBAn!S@_)%!;u zw&!~tNCu+gW=>0it`(>)ETlU^|sQaH%-f7VF zjN^ZKqKx#OZCbveMlS?KB6sM$jP&<5H}U*`^oUAl4|M%B^rrWF~rvs~sB(s+)9{llr|JMzQS|u|ApMTde zKYx*qS=yTXw->$N+|Kwi!Z$z4haSjXQsM_}lqCn?Aql|F`<5^=CiLKl?3rYon9hhdpLL`~QbNwHNteet7rf z|NpOiJpbu(;k<{j-SGr9@C44_W@Tz{{-)wkm>z2xk(-&^~t-CW}*=e1f?=Ok3Uv=6iY|8VGlTznp zESdGU|G)RsZ|_b2>-VkC(`8sU^Z&d|>tBDi`<~wX?%DtUGe7_LKVBoXZ&{^ZrhMP$ zpO3O8rl)J3%Q#bOYCmhqV;%qHZ&UZ#=brza$i`jx#pF`ghuz3NGzif@ZwRFqm$ot1mUp<GTh(FJRs&DYP)tQShjaGS@*HBHh<^UNhnIg9?psB_sn|4%*t%!%`3)7LrS zt5*llY&@I%irw_%@erdZQ_sx4zd0!$Gr#Jkub*Pz_GImqj}3F?e7=zw_~d2R^8NOa zz7s{Ie|?!3^Qe3Eu`}gQW*v_{rSB~la`|HKW}mc(tjlh`B3~!dI^rJG6Rcs(V&Vq^oh9PAiL5jE>j2(98Sh zo=dKAb)6J+_UQ_v#)Hq?mh#SU|2+AplZ4YGg_@?TGd_G3IZ||3CS~)KUQS+S|6?1E zTv>iPRJZr!hL4>xAF}2t}Ei=}3%oorhzgT2;0%@SOH zi}kjWf3#JAm}P9o%4<<>%lW2Hd+lW~OHz++d`Xb?QC&VC3mSQ1TV5OpSLvh;SZg) zm;0C539g&Ah-=027q&}^AKYzvmG}4f_4=cqo_w2aZ*KA5(0BW;|H2DOEL{sSY1_SPow1Wcevxe*h$2-+>~2gny4Gqr`%bHE)97%a?zSpZQXUDU3%KlJn`+@P1%C%%IY7=x_{=lZdl~McdnAIpZK*KQny!cbQSA;9JMa> z?ddh5#sa6mxSF-{ROj?Pyw2rgx%QG~sL|`I6@1w%nF>Wu+gRtEEDk%9vsz(M!i(00 z@6E3ZMy?i~`S|0U6NXdYCHXCRI!DX0G0y$VNlUH370=daS$>R+?sK@kraAkK;AyK! zxsN*BSrZ%IvV=XciZVUHeS1?_^6~8R#kW6s`M6y3df2_#@c5C^Gg_sGug&o|otfpe zKBdprQPbs6*g?f`m$Q+ZmVT2lU(gm7K55^Cml-p^I*M6Jy=sipoNA+-A+jS(T5R3b zYZJ1!nk{K|_Trdz*d!yf^SQ~EBSlitS**`z`d#7id!kVqONnXDu1dm~35Bq;^Y{%P}DPgi-Y7CXkyi9*gtZwJat_KW2I^`|Bdv&s9@umRqWG z-Q6(rkJ9omb(6gZvQB>V-7Xk4GkAUS&9KcUG>WBOwe($|Cd{g9Iq~K-zVj=uZ`8e< zIZsJx^~Oo}na*u&68rRF&a$?wsa~Gb>WdKeE1$B*3S#hdc}-DVRVC9~DW{n8pu{T*i7MJF0A7zjo* zS*C}7W?7qE$#vq|nhPsuXmee5TQ}wQwp~v$Pi@>f$0YXD8jV%gFX=88SkiMp>1c<| zxwvOHY=w%?ZB^b}`RMbUwwGs%6G|he8)@12#xxXtzB^4*>Q>wXGyjXrbksA>KVr^g zTXuhvs7u<7S*g3%M!NiXw&p_4%xgBQSBAa#Q5HSz{m-?LbE*yY^+Wt+|owZqE~~IGfS2=2+Ccx8~PB6@0v*WVm>R+FoVd z<&}pn{dVoGY(`2|Fq;s!dY)?b&$YQ%H>a$%N}s(pa#Prg&}_@M zk$Kr+oCZ9H%o=zj^RlNgyqLN0CesGZ)46B07;hy?xA{iq*>W$P-YIZ<_0-e>UjlXH0^7ll38kt<=AGIgtsdd}+5^IF-gt5_FaUzL6`YU1Un z)zd<~s!o5trBZ9_y;5|`b*@|4u5Y*A`X$nWmnM%B$AhzIB?u zYUS22+tb-+H6OP6U13{4Pc7cJhl=D@bITn@J{Z3=nS)$7?WCh%%nkAIlhC#+xFRqR=ua&z~a zEtBe|xlg&aTwn_W$?d4t4#ak>L@XGS_T5EOpf@l%`ZSLy7!xpSMJw3W~!>*-e zukEJ&*52L}a`W;nKAmlkx2+94vh`SQ!pr9|(TlEK6kGmTH#79+v%6B(Ki<8)7{vE{ zd$aiG>o>%9&dEJtU#C>4-MMD&%{y$9-o4q#t9!6qeB04C_sS-0%3E8c6?S@CL{|6T z?rq2BUc6?JSbgdy=eD+x9i~n5#-c)>Gws7Zd<;WeqCr`-E$kSKZwqerhoRXZg zMdoL7xg5W2+{L@&^4gahPaXR$mi|pQeZsSxJzM4STzO{QzFV+i?%ItjYpth7e2uwr zOUi1)w(S|amTtWBfPMGYykEB;ck1RPutYPa-n*x;a+g@HYvKgqk7CdIcd{C9C{lj% zZA;Lfx!X^Ces@jd{r!0{-^`Aze5boj*ZIjbtNm5GQ@WKaPS=|K{gJJ``|gvNO>0?~ zXXmf2{&#KH^IU(W-4Cycm4$7v4R~l4u6a%D_l~{3^P}}Rzw8c}~6{ zH*Td(+3fnav^p|s=c01%i1I+Se_!9#pDt&-9L?IeSM6W(xpkt<#rw_w{w`XOu+LS# z>!R`m`RS`yXVx{eq~`zkaSgnD9b?DK7$(()4-Zy3lgzb}!zqWwIL~=okzb2n(;Hv;8J$psPLn0-rEFp_G zad>Z-+JOoD1_upA-=sF37V2Q* z3%oV$ZX#!&dbhyT7^fq8`y&~b|8aY(VU@n|U0W*ev;^(5n?(FF%nmGEvU;tGKxfWm zsZW|mC(ZaFWO`5bSf&t{_k(7^6C&q4kJRu5Ui+51)FIJ6ti|K?%uOCD?#{jeE9EtP zgV|%+=DuO@=1^tcwM|ALTJ6KfM9rR(Mx8@KAzA^ltdYO?o^lxOs!U~!*L0X6^lFmA zL??bJX@9jFMh8RN?yMK+Q7zDkRaKqDv-V6vo4KM~=)RdV3Z}5MzR)}DQ+9T0@tvvn zr@TL%A3c$=M|#bsHc`*Ea3P5v549bBk%zV|DF_mhu#9L@ZWVlNVCFt2i)pq=PFB!; znQ*bdwu9k9B5g%Ao<^&jRhQiPs3H|&7vQ$?&o-6gT238;cY;!P`g{=Cm=fNyTh^;c zle5d9Ag5I^mFcnQ>4}=J?v&5mGI_^lmhiG`r6Pe#Ral;$`7uB9;JU5<^`0#k{%v0O z|8VJ>14UWy>nonk{ri3Q@&CsY{-6Hy<-pD3_gA0%qhJ?(_Iq{hYJDemxi7xEKWy6Z z;m@7EMJhdqZO%S6*mQK!hWa`2$J{?l)=d6;J)JF~etLAhd$&yU%{r$Ii6tu>{F3$c zROY1A?PNP9$}H%zj7zC-vy%Rwvk5o27_>L6IdLv%HAk_1zwP-?cMSS;j7`t#+4ks& z+TQOgDnBe|mGxKUtgm%v_X#d1Z9ZA;?UPQtZke%IDQ#)m3zlLum$Co$@m9&3 z=)gC}{hqbW{qSka$1{fyZC$kD29L2n z>@oTHSMRaJjaxh?&e(9?<#ji{;+UdfG>5lU$&Nw!d4S-rxK}I&t#g$6ne0!`IpBZD zujP8d=D8M|&5rn7bxWMYK5y<4K_8U~4ijG<@;QHbg>c%fH|IW|@LH^}1V9G2(A64}?Ei;#% zExd02*oL`vCC{O=0wG^JlW*p+?NT`}!)`M7{f@9#?9sE%{CtgWozRsD5eshk{k>3T_+`#yvAIVk zm`R(No_5;4+h|iruE_C)@?sjbcTBu%wlj3jZ*0BTc`ItVj4{jZbLZ!#T;7+Nutwsa zw@U%%*T{Th)Ds z>Fp#9gTr}CE~PlWaVvZAO!`znbg&(x!-)$aOiv|T7qWj+ecv+k*oS$^zXIR29@((j*Z(H^>O>W_+J(^BUKT)J^(t8;{L!V$Nw{?;M@0&>gk9-OnP(=*WqqnE#d-6Az^OtX>Lo-OOEye4 ze2{6Z!2gNKrF{>?_is^ zqIZ~yYfw1HL-~z3Etw;-0Y$En$L8f(eeL#=#YZbyveg1AC@}#-goS{tl%;C z(A^s=3VdT_9p|sL@Qt-D{bR#@$?wp?@7t0->{zvfee%_|_|};Z`JB|(H0A27i-~@` zj^o-*xeMCmj&mPgT0fcf*=u({gGu`~FWgfgo4b_ZSnpJkxQDmGvJURr#2wan?B7KG z?pZaL6+=?@$W{nu9KFNHcrnwC?Od+^vl#!|&sY4#7KoRAtR=H{cmQs&7<*`t9{rPAKLPaQw) zsGP-ea9PayQ&sZEFY?5ipExA*J#o{X%T>Bpa%U@Se5>;5F7MgQaM3>=X2$254}7uZ zp0+b=QrV^@Usb2Qyy^MqxpdyA%3F$D5GZ+e=vEAMFzm%Uj zz|ro;tinADQ{S%?x^Hq>rM)yhtF=sOw&RP^TkkGk-yUne*fu=5HYQ)i^;)K$+f~`X zH_zK{WVG47lV85AJK7~sqJ4JbU#%-80Ou z4HA5D=ve2)v$f9m1ws>B5}w}LCwuUfLfL1P7gw~?wWGi9TRL;khI7oq>cz_DUP4gmCNBxQ!s&kZ>G5{X+|;x^nlD2{n;1VVUZNosVVcr9-{OUv;PSZ}E?+mYnF8bA{$8n2y>b&)@CLAjK zbY+uKf{px{n@YYuw{@)^E`dEa;}ef z{B>=GSw#ljZw$)U+B9sHD7nM`SmWLo9*gtA6_N@U2Ezy8shGwH90)!8#TT#k9a>ZH;SwiTOg*c#gS(j`*hc45eq z#>o|}uiF>sS!o(aCm+0UD#>8lq>96`pB%1=mc=zJ^1XYbb63S$t6vwl<+CRArw49W z$-o!mTfZ}K!t6$Il{A)BW~Z5rPi*!Rim-q3Ek@hV$^PD#FRB;5&pudQVC{CA$U@ZGDzdATCkJTTOe z;W3kYOQztjxdE5>MVf4S_FTAgr7r9vr_r5bg}E1&CL}SHH|oA_S$IG7`t^(F7n|F5 zUQ1z>Gl`1h3lf~NK=`+s##KKJ%jlU?7p`K{4iuZpwW5QrM(6(l_CARNHeLy~Os`J9HR1j;`N@T|cV&DWZu6Ll z$SmCU^2u$3;JF;U{TqbC`s#k|TX{bE#mnRG(x%;RxC;+|=lh3s2c<|g}N zX6o!tVYM{5wuM(SpF7zvI=7cskZY^9gWm&|&i75JIm`FW{8{*_GGX77xhmW1!em|j zCLH>8py;o!WO%4f=i}!aR($2Q*9fYad79nwN!49}D`_DT4OZWj1ESw8+c$0EO5NC? zh?z4vJ@T~6chBUkJ8H{$t@c~n?wpCs0uJe%`=ntc91(DHuEC|WhS#lS6I3I&EmZ2< z^3^5dX5ur}yjKjC6@|M@^*&TnjX2_*Eac0Wa~^W-6gVM;gq9k zVhs~xEu^EWCN6UjI^CJ@QA#xJLGw|e=W-|Bp7@e${6=NR*TW?OP8G(5hedOiXidG- zxA)AZI~rb1ey6kkn%w=KyrITP+t2*U?upL~xL2Lvv$?z}Au7u6Rdi)iX%N#vT``Nm z1(udGmrWM2oH1u%c3Lav>$!(~t>4ai(f%s%g^24Us|B|m19rWbKG&*HtZH`FV~?xc zVJYmH53CLxTbF$-?oRLBFWw8Mz1RN% z$mP}yB{#gb_=F0&w7yj<%!sn!@Dur+cdN7Dp{`i!w3VwE)%kU=8}2=_b+S#NwUN&*Z3pLK}-+pS2Av>2dakynlisLKF`IUFR&x?!9y>l=C8iDIL&jDSawQVR`&IAN+&OWB_J$eQ4~CZ zEij3lGvdSCvZy<+u2x@|)+oO8*|Ei|H2Lp{vTPJ;6k-Zyun-X27^(iHDfh0<<}bUS zSgz4|Wb?tu`cUr^za6f(5BrA7=e_w6DKx89R6R_t^iXc}_xD@9pG=#7G%nF{87o_P z*p7s=;&UeyZ)=HJVENagHTXz^tEy*8)x^0s=jvtd_@!7~em~ZG_qo^xM%H5cX4mpr z%jdCL-FcO=bN4U9>Pa`>E!*gz^Eb>~Xa0c)ojI3_7tY?`#~8fDz}h$b?}oo-ZVhEe ztr?5ed6Rbse-H_`KXC8L&vTdF6<@wt|K_IaJXg&N7q|O_w9LIwl((Dda$ebS*T&r~ z+h(R`K4~~OPi3yt*&Pq_ABSaTPT#_O;m5Rimwn>tE5li)%{_dD_4dj4E~lc8_g`F} zp}zBdgrtB;CzE_yy_~3V# zO#0oXwL8y+&H1kTcF|VuMarAj9%`M+;iDuhR-9+vxBIQ)s->};%_fUTEdHRQZvL6U z=hFh=uwCko&vzf1R(9}~r_T9u2aRW*S2$Nj%Pow$wfB|EcG(TS}>IO+mM|zB=*6vGc~d+0W~EgqCnvYwmloz3|lLEwisx3bZFqXidzr4x91B^G&Hx z;jgrcDGMi8XSuDLp4&5TdGF@=EPj)A*2yrWEu7q*nNqrGacNZT!BL+YCr5+!veh%Elmev+&!J z^*jdVx#B&$ef60lZ)$X*p}QY&rcfEvGf^$*&#Kj~*Or z?lfn&KFfAj|FPL?zPE=e9{y%sbCXM*c^Pv@Cg15RE2JMby`7KmU|ZMO*Aw#E99!r8M2nB7YMoYAqmJFTeHzDq`Isb@-M+782+TV~5Ib9Y>N(U9Rv z@6*z#+ppwAw%>YpF|Ye^9|K#3?}znM%WtP#nX3_Vd81jcd`jl@qjxX#7e)LKRXDpQ zZ@0}Zao3G6cOAIO+*INDpj{!pTcIU1FKR(|`SPtZ*7-j=v?Z~3cIwS#FEY2YeC%tI zZ2aKC{J`-1C)tGC3a?Ujutx7>$=bQ=&3Ped+2GjQevdfnTKAw{w zwU3y4$mt6AMeVD-cW!j9U2}QejCUI*sMc|5r>gUP(L_tUt<>WOo2q%n4L@%P+U;uYRLIfXOd zSbxjwCuI+gCRnjqYDn}fmv_&cHgm2RS7WhsKi6BWotcppQZHHJx{5`g7e0KR!j=DlOJ7=sLr4P-a0UpL2}G-EVhF*}Kne*VcKPS1ENvGH!CIuSdV^?#r^N z=4)2mJjAkC8aY~@=1;QlQ;*i$llmg^Zvn7_2tXr`h@P@&Zn>SS{q+m&SXFHEXCmaT7wVWe%E{U~6X2~~}6n|3vIimGpXe{`9elIJ&WPPKxew&@k8D3P)y>Usen_Z59Auw-N zqvX!Ac?~m)nFQX>73kU4yg+Q0*2y6C-nj=%Ya{;r?rYcEyzRc{jhAwa5=)mfxL#fs z<+I!1-7JalBi)Nt4(^U&yivSxe)+D|k6+GXbY)y-Ze(TFuUGLrT za=*$R9Dby;eeNN@=0zTpZMHnlW4Us6l@e3p`@CKKYwzmmHyLb?k%;Zt^{gqXSmwto zk>z(T_y06jH~3$FZJqA%Z8AssmZ>E)GyXQVuTrQxSI@zFacWS(ueOqn%HAv21UA~va5-q~svtwE}@R%+sVV_&;xwqi4SnA_ccN_DA zf*v^q`=)t?XJ@USo7<=2=Up$V}CNp9aO64kGc z-l){yX(T5f^!3~6lS+wU$^xeQ=UL^|{=a>~;HQdd(UtW=$@?ni?y8!-+25q}k;Ic% zt{)!+JUP8%gILVuHGwN)XIdSMUwP2#T*ckHQa8U&db4ZW)p-{$eG8YraeZU_xdoT? z?))k>oO+Qx<%!;!*L!v;e==LcE|Xnz_0;YeRUBQuqVqnf_B2Xq#)aNEd3{5%*j7$i zgI#X!%yY!l-)^gjo4Ri0v+Zs%1$PRwmzWjajae|Wekv0R(7s? zzx#2(aeMX|yWaUtOI<%{Hruc8^tZ0pg6I{qS1_U%8p4HGvZv`;4$a)w95~gXz~$r0+a|LX?M^ac z*zxd~{RVx$?dX zW$(7>vS&p97P)Pb>vCe%w);lwA79BUs=*jzs`BBu&$rk2JPPJ~C`wQ-%;b)<(q&em4?U$`lyH!teU3|SG>dtA?0+WJBqfN&Q=5`lHZ^|Y z)Lv^wj;+_0EH8I+eR$yF;psjCrrX`!n))hdA9!-rs@~g|UB+{d+^Z_pXQHRwIBMEf zo;}<;!&kXnkCi{mI9prU%aPfg*Su6`Cewy%Q)d^>*QD?HdaM6Qt51s`PMiO*c2-`n*^&8TaqC`Ze&VxW`tCL*&2;VT)|!q>@qHaE z$8WLyP1u#1J;|5tW~T_(#~ruS<4gCYx-~23X&=~daiQw`uwA{uVGMOk9Zv82;j?>L zFsDk*u9#aHJeOH*Pw&ciKmYj4(vF~Y*S-s_wYXMx{X_7yBtET`d~0spdRqC}v@Mdo zckAL~r#ElwUO9hLo96Ljzc#i$WU9LST=d-s)%1`(iq-i|Qnn?1XJWrkm-zGYt`L9t z>qGYsPU<@zyMi%_#fmjsZ+ZOLXHWaBHh;bOs`I4wE|cr$R&6Y}exh$l)|BnvA~Nsk z`o;a&{9wnexg0^K+yn$=%$%GGKWlaQtPlG(aq7kIpC-h3{a9h?^<|B3ZvO4)s{8SO z)2eLOC4KL=x&Ag+)O_O-<<%$mzFL-8CEv%2gC zY~7Ttp%(Oc{whmNiQUd|;R<)A&z^nZ=4*+dJ~3e#$z6FqNy>U|j#{nH;==n*h0i-! z(l9}46|=GAs}Dk(uV*|`-5M!tDlU=ysQlsd14^}wRgRr~I~nXfqYv*sIs2%J`cB>z zCS7f{6{-u5{kbroy-%jLKrH0(TIp*S+-CZfriQ=ht#_|tk@1as?3%1p*nI5dzg@+V z`;{&D`;2;*J(&HKU2gBjJqdlQ!`T1H?lZC2R}x>T%bV6;+Hz0Ft4?$JQ;$nwOV(Fw zuDdSa^xyFN)fqC=w!86Y#F<}c`FUK!JJv}!a^>p%`UTf_9Ma$Q?m@@JB?qTS-HdCT zJY$Mlylid!#=EAsdbs*{?^bW}+oE>W&A@T7_PS{`72o17A7K8(2mW9D`7iJ&0>R7Gl+^p=J&2dUM z!{p+QQ)XN4OYY|B6T7>7o_TAo?bKS)(ApmL{_^D(N+s)Vy2U8Sl)ioJ^}prz`v%41 zjdDg;T2`k^T%Pf*EC0ENuVBzV>)f}~FB$c5*nV-)m=@!E>ReT1`QA$#Kes;N?tjH` zVa}Dy2e12{s17cO>cSff7c|Niqo-go#v7d1${csjIj{)X=I*09$GQfr-qUr1L6I)1ym zEB=)Hec>bZJ9YESqF-@c+NajzJIyazYv!ERGhd(A{+w~ELc%gTV_WXA>Kw%>lian{ z=kiAH-F@ueq{W~2-97y*aQD^arqkN}duN+Pt({z4zBhm6t%_?+kDq*dzBbb@XK&7& zbjKa62MwdVvrSZ)ALO(Pb2~-8lKQ`3+V}elXYoz*(%!n>G5h-iGZFhMA@56NWt$5o z{pp+WX_wU`PtAyZ&qM6|>|}yB_wHl6Q}oR4=k7Nb;_KwhFK@p2piujOpz79|j`+zB zPw_uL{C%_d*ME_IQ#ASdHmp`(bMB6pe$AS#%X_EXUSfa6;h(R_?wr3jeL6pvXZ^e{ z_3!`3)}YcEmF?B8EPrmW#3-MC5w*%%R`;gGrkHe-xsR9r++H{9uH`EM`*mmKvd%^E z2?f1K_F|Z}>RQej#YvW{cD$+n7}UBr%}(n9XJ32n-6@MTfQTFM{CQ}TuF!F>O@ z`j48F4uqXB`EIzQ=TZM%7v7!OVf*z0KNa?}nr_IQ2-Z|@-+*kJVlWS+JXiK=AaZ2lkSA}YyrN>r}*xaU!f^a{{4Zc#M zbq0ku#nXzm3#v(RwM$FLn(yITthH`wn&08jJE7+SvX{U9d62s*E_SO}?X~)9S9^Vj zpBJWGTp@Xd-)-Y;rikk<_J^N~K1_V&@y+U`=iT%#)jMLA+%jFcd-gZ?S4(9kv!7nV zQ2O;RbB>Gsru?^i%Vyblo&0$E(JY~35oY2d-=sY4iGvv)2# zaA^_~+umCYb00lvdG-E?*27PUl`Ern+U6%;&zibFYpe>d0pp7nD73#lIm0}5(C z%y{5pnUHK|csa50dCbaN10cwH*}d(qLaDw(F=SKR+^F?(m@x~E$Nw}`$` zwwGfsip)KIF@s^z*{C;XOQ_Z?~>J$g1nn^Y0^-Q71k;|NHfr+0_Dv-w8s0)Uq~g+t7Sy zo2B26DYg7JZk?Ht5ja~TTG7*5a=H#{)aUcFAMEbR>U$)v{(e*cu@ouCtOF&UHe-?HYE1&*Khi8xUF$=>ZFj(7kfC{Jh@UY706w5srk2S?+^R`0)LqQ z|M{(3JJow`i_*rnr7p!RcBhyxmj+wRT;OKB^TF~QkDGzlJN1u=zwTE2RJlcRZ$uuy z_171l-<9`g=mftwD)i~}zK^Hx)@*ctlUT52Vvp@9=}AQ;JG6h#E>1W-Cvd^*xWror zoRzt@P3#NIeq6CJz%_8OM#B|>t>V()oV&Ww<@7pIk9CcKn6 z8#PdolK7>zfiI?kg|SkM+k~{dLd#&-C>L(UZg*?`;sOJ;`11QSqR~ z&KFlX`!_p3u~`^o0%Hd+ol;-0!lA9OqYe9`ym zEmbSI+Qqi~bIy6Wd&-wvDZzKR>xAyd-}Ny{F6VhI{LAVW(~XNPTla66eO2kGuA*%M z!$X#A_-W_`SjIpxNu0kww1A-wiDC?4I7c;_IQAm7sQ%zxREPwd?n7{&yy{EWRk3VRd{e9JpLsBMw-BY}*ZU4ttRX?~f`)k0QsMj%H*?&LCd3&m8 z)uQFLubzFlz$5Q)?q;srcRi)8t(v44-G*V+}&fvT#~Q12RA=WeJQ6euQct& zwaN?Gy&HlS+irbfn>@*YnfK}8qy6g&R=km|?TzN>P`Mo1&m?|7vuC$E^OfmF43%4w zZ5M6G>bu7McVQpXy6Hhry;YmyrPlm7TDW1)ouuWxd=*iNN~Wv1&nr%0KKo;ZeMm?= z%ao(jUs%1dOSz>nXVT#{<|RU}q}JcmnXreASI)-qtoQ5UzmCyQ_OoACHA(nVDBxvy z^X`N460^YM)kfjBb9*NqdwKDGNQ_s&|K>^^!PyJlvp+^{xb#o4?2GnAjl^e}fjJS+ z+w6mMQi=~O=VWxd|M+r2tUb@?u1}tSwm-UNwk~k#GK~P2<>%&w-&|&|D)qE5xBGVH zl?S`GY`q_6pQ>ayUu$nvgs50Xsr;(zIy)-dYeaJuG;>yVjER`HxwgoSt9W zUUObMzvWlkN9XUM|1y>Z^Do-Hscd3e%=Z^rn|Al-uH(#EJ1_Fup}XI5ciqvEpIL)8EE?6X~r%n0%M(^Hdz8AygEI+S`bu;OyYFwcIK>TT{cKofW z+P2aJ6EtQ)jzJ%5mdPOzgO4E$V0^sZB|9Dom+7GT6Zn${R1bX zlN$u(=00VY4d<9|*`8V<;56k}gZ|px8veD}Pn##o9*wu_3RtjIZ?opF!x?us9|&%K z;Vpctd#AFz&icE>Aq|EtTbq8* zw`P-DH~09GUxgWSgyw$l);~M>#o@9QUt*ho>(4$JpSPyGWv@@Co^f+^z^V z=UA;&k>4P0{5{L(X8Z%i90kVms#ywaPH&5OHoK?A_QWh}w>QfoOKu+NDYcz4|8~@C zPv>io&j#J7m+pMf`!2!1 zf6tT8Gcw<*&0iZHxpm#c;Oe>ecDsg6JQDl*?V`t1Lub#mH2R!&N0V`4_?<2FFV*Vh z#nc|FI;W*YrA_HKIL~8YeevD-i1PM@Kc8tW66HC5YHgmL$2-~SIwpNw5F(f4r2)zgox@6|3fU9EFx@+q%; ztIs!%guUPSVKbjd&O5=9ZF3*)`daA&Q|fJv=6ePma|?N?{>NKIJ)|$^YSl;-~aO6H20j9$G`v4&vxE%J-@Aor7H7m zw9Sm%wmaSeaV;0C!tr+M zWEJkCyAR*JY?1$K;?1muf%BG^zh9X5I7o44Zhm>)wi%tX*YYcF+riHGz3}+9yw^ymy_Rb#*~tivO<5NB8JuE?ZsFbmd)%#f+cZ z-YEQZuRk@r_{u&{tNwB^j$7U5iofl77a*oY&p(~8w@&ik`=3vz$N&HL|KFSM@ptzB%l%hW z7rX!e2h+Vh3~%1uxV|l_ba}-a&S@Ie{sz|fybqNxeD2L;`@YvW+OQ~VY0Ta!oez!k z&7_rNEY4Q{-95cu=tf)3q&4c7=6x4RSzqq=_GP9*9fNss-=oKS-{vlNnY#JdTOJ&6_x=`Nt(N-LvS@?+?Nh4%pQ`_Vz5d_t z^ZV!T|M%tj{y%?~f4nVu|KHp1^Z$P-oi8I^esJ*wNsY&r9D7fOm6$IUzx(>E`sd&I z^*`rN_dli(ckb+Gk$ui{U)5~;-L-k{PS2_H%{)0|4wgOd&MA(zoSCvZgTJ)WIlt*> z(AVV;PIgLhu+MSInHzJgt@6CD7}M60-Sb4>KTIimY~|;<<@X(z+RFE*Z!8R`w%ZM`J^*H3R)rYou_Sg7s_FUi)H|bt{+qk8>#tg6lJC{ z=PhLES}B_UPUE(SaW}#ucBC?MtMW!>iOdyQ}W z-K{X$V1e@U*l*vGD`svxG~w0WW+g?2^7r$#^s^2+N2CdJ-P-nhW6s(lzu%cWy{o@3 zlf03;`<|m;_4eRh8*<)%PbzyIa2BUH?2HCZWV!Dn~P;>eXJO zLz|ZF_&-V3)x2t-?z6&YeeY%}C47JV{NUB}b&+-9}`uSJiNKMn-yOU>ZELK?fXGW7h=kwM* zc@qr2KG`H-cjM#7=5Eb|=f6WF%9XhE5?|e$!4`jNNy56R?zh{|FL)HoRBb*>EG!~< zyS7?mxXR|OYE9RF*OfZI%B-+gj_&Gsed6ZdJJCn)tv@ksZ9?O;70=@CZd@Y!X6NQ3 z6HL!uoBq9X&5yrN_88q?k+H!36Wi#Nz6ua@EqcJc%15t#?_!__M=XXzi5zcUyYz{gx== zVm|%y)4Qq;*;`KL8)KeoXfSG``{sP?XjTjG z+?^z~VSf3)+KasNs*LX6JeVn3zI4-7w*_w;XLcJTZRd*FFvI1+tj!rLL3Upjl;uI-lBSH}8T+_dn&r97SU%R9xmv_E&Vb2_ zW9n|bQ?78ucQKAxtJBwdEO6R!Emz0HP3q-^d7tmDmbj#-vZ>Qu@LXZ?RG-6JY_#qr zvA*hW+4uE=#fIz8%KH;Fz1=!<1I-XE8V|Mo@MDN?!&Eoj)b#)qtLprDM!ig;Nb)R4Jo4s7^ zf%#Ma4?#{r%VexR-}Z=lU)+%UZkAB&vwItQo^P`~?>}j7?w;H2IbZ9hKb9$%U8!2W z`%%t}k5l^DX1o^D@42I{cJq~d-EPsFD+6a2PvU3T^_xLA#OLse686S(WuB!|H$*0w z@1A4w`S`54)72|qUYX1q#oSg?a`yhAn=0(->xCM>Ge3^g^u9Cg$gZ_}q$~Kh&2^gi zd_u5(=q``%cAU3*=c#w|SKPT-*jzl(pP^pH>i;K&Z*eYhQ=_IzEUb9C&M9ZgH_h3c z{kKDQ-n(b8{Tk!bH%c|^!l&IAOqsOf-t3cyCf)JKRNK7slZ@}bWGSJ2Hajn9q;jvU z`>wK0A~?=rUfqJ4@_WhsyCk=7D|^m0UBL8aK)TeKDBXHETd`*ZG<7s0JPJM=Xr_XycWe6CEGyDN3+ zhV#l-9_*>+iRM(u`Rpd~H)Xr|jV;SxF;&Sid~b`H+N-LXbGqfV{`rqanJd#WOv{hG z+Zz*jqhyEp2StXH_a`eycsxHG+4u0zG?|;T8Y_2I2uPQF5?eAQZCCX5-?PKl?VBnn z{fi-Ilg^3N`+w);Ok{{DWp4d7dCuLFw!+8mIptfVut$bl7mFL28@TQfdRtn>x1{>< zH_7sQHXJ|h7p|S|sb?_x!xk;;RpHC_%KFspF|U3%_28B;?^JJvD$$qwPC5T>j?uWi zYHvv6{EsE&vR%A;`5kYcpBwtj&ujC-l=Ck#-?LBJp!jW>OYVi+4vX4V)Ze7l|Lk1r z_2}5{)Pt+G2Z-M~y<+*756us3RSsNR@NC{LnVJLacl6WDmxf98mZ>;=)SJE5N%z9j z%if;bEb@b{hAo|lebe{oNmbbe^X(9 zbYsSgp5oh^`f8Im1wXoP6rJjy5iCAW;p2?$wfwiYbj;B>vHYZ7#kTL~Om4>{&wsK` zVZ)=y$;(eHFFgHDs`56c`N1myXhO-zc0BaZP$y_=Ba)-74dZIJj=in zPXu=TdiH2TE$4|;-CGYrm%LK&sul3=JXzyORcuoTdfdud+m3n z^!ItI?;d(kck5r7^6hBL7X7P|(~r-cTD;pf;m1n$`L4Mo`im1+>ukH%wdS|brt-9% zmycJ+rM_u5B*Lkz3`#l6rlsuR%rR$qv!4a-md?na(rvy8~^zK&;LBle}3=5kGI$N|Nq%j`~A-SUe()n zQT0cR>i?hRi#xq&+R^ODt3rFHt(f*^tIF1r-_!ml&YXPP*;n_j+^hT7jgzlz+Nqnr z`dPiry89wmuI$yDaPhtm$a)ngC-}^CPJio7p`rdq2_iw_=L;HW+UGhP{&Rp|P_kG_b z%j(QE+r0Z{6@A{nI%$W~l_`IpXNCO;|IRGlT3@Q~7x*Lm`y&wulV|b#I*qoA@70bP z{JOhD!fpR-k;5;_Co@g_lNV$%asD#RSts5uTa}@-efFwFop{kFMaC!N;1H9anH*ZP{uqjC&H58&daW2x-a7U@9uuhS$|meVIkstZ)Pp3KM~US;`u*cR3a9{MG$*4^3LY3 za`@8D8{7DTUwYS~lk#RIzL`Jlzpl&p3e|R}wW!`tmb`^Wg(haW|<2Bd)VPsj67Wh|?Wkp8d-$I5JS%Jz? zo`KQ(*N1Fh!MN3>wOeX}cSzj|#=S1CEm8tLA+9SJ-#VqXNChZ_xUZ-S zf}4L|@q0R4{(V(`a>KLlJK64q8@^1pTp;;R>St`PzzgPRzq;t7#%$NZKlU_!4Yf&5 zs1-f`Zvsb1+=_oQI6~rAh)nn=dj8)Ej*!F^|2A-hB&`tnF!hmTgQuvZ7JJRo9giB; zi-gO3nEL3H{IUivUQ>bPD=q~v7j}7pnb!_976%+3ga7j~Uum*@x% zu|MFE7#@Dxp*J)L6nIVt9Of*NVq$wFA}VMgkiDX-p)tZamE{a5$eF6waB)g>n1*;B za9Fc2h>0zU_o@&`(F~BHt1LW6q_or%6s`r>GBST`TE!&MAs!-jfFVCTmVtRsY%3$r zhq6#Mg9Eoir9gtYAi<+xL3WU!97wPhB*@AHQpo`lR00Y1GW^|RyV|Xx?%upm|M2?EBT*55G?e>CWZ_ljeL*o_5B%0z_veoFYBz_vcXLCP z7l^D-KcDsbcv}|Bljrv$O_{tH<74?#~|E?0s_~q{aj7qoSSLm6EDjwxR({p{WI4z^upt1nytB(>^b`v z?=;`PQcO7M#+GeA&Oc)B_gQ%?xA;N%{(9#|-A%Q3Mb8yR*Uvo7zfJzny8YaT__uv& z%;moQh<*QQ##d{E{1lXa8};g}H`>LYW68c?VQ&tT`o2|u0v$&C@-}|ika^BD&s#Ug zTeUq`lIis7B#(sFE$jBS`ZhA%pD(AbnKNtQ(cJ962h9HMlC-aQ_OEe0lW)Mjb?!@l z7*FTFwqnbU+^2sUbN`foZ1!igtWA(UZd|)zAB+5-ckK6>F0${x&2;0(u8#s{OC3r+ zrA9yQ_nDaM%zVNj<8$Z{hs4V=5qH{LkAPG>`jge%dyx_2Xn#-ESNj zOn+A|jrn_E+M{hxnQtHHys&>=etp92$J_oNzqea&TcJ$np`Y3|M`zqy!_eAfU>@Uf zxliZfq_R{`_eD=rL}evd+EkPT7BGGgyIr;av)KK`HL;@}7JXm0 ztQV4=qGbq+Z*0~N^I6WCe0FkAkXk#Lifi!lRb^MX?=^-t0Tox%MnuYRvKPB{oHMn*$HD_gXSF?@D_1CGxm^QnL|{ zxX)@q`EAGBdo65&tcyMeUVYXP=JobUYV)sLyPN|P`$}XkH}FayuL(J7TQ}eO>D!x! zrfmyNYyS0g_nO4!Pk)Xbn0DWnC+DZ;riAS;K8scG-HP6F`)1Ofxw^OB=3dO}zn}Nw zbEXl`w#KLD^Cj{arE@Pn*SN)0)@|AK$DBLx#lO>a@}tq*!FXSOh~4B zo>|6$n*m$6R-A6n{hYWsZ#Mt!$NlDc`G&4=syWckSuP)ocnls)0URl5Y`MaO=el6rXD!sw+?>(~(7sWQb)lJx) zbEDz#I+L6YtUB`H3(x19^ZcyfvyMJcwp}8B``)8L4=%f1dHCJ(R??orEBBbD8OBX* z*|z6+%nIeq&yLK;Zh9OpnzrxUexZ+vxBu9++uG$k`FvcuFk&}f+z!?p^IJ^Q?C*UO ztIaD`3C!JeFeCi7&=mI2=hE{pras+#YKEfhy)NEckGD%1l^9xa)NNtadF|yyoaxN%5Fqhu8?S;`} ztBVJWG@K*T%Wo`j?7p9KAmGspJ>xIit$w25hUWy#rm^LHN-Z_nX%Wv{-u=&qc6xNJRl#5uJUI;X62F3eDLdnJ)?Cw)a<{+q{P zHy+u!=RU}7c6_YYtT0t3QtqVIhB@a0{%1tAeG6l6=l;1s)-Gc@|E=WayvAjp5)YeX zOjlg+BCWdT<;Cq=b1tkq&(8Z}!Jmy~+a=b|2czyc0jZi~JUx`Q>g6&q!k z(-3M?F~6`qE8#G>TzL%BdpE7GswSfC)vW`0j?z7+4|-fK?&rO&`F@l1svqCy#`W{w zPF>*^`le=o&5f-AN6&qiyw<(3EKSpYvevtO=O?UB$~BPPka(NtZ26kxUDKaiYK1q* ze@s+9R}q?W^HX4j^VIYM=@G|{T50Jrn}xld_I&cjurz~=ppU(u3U512U3?%tM&!t> z>r?Z$uU+qYYJDw8M8au>3~Sxb4;2efalSF;SrAgkJU?;8+E3Cydc3=~eM?XL68U@c zl=$Y{x95ZEWJ|ZSW>&_meDTxHS^Vb3ZG}$@mnL2O%`-JA{P+8k8ygf4#{|3bewU1L zl{MXS`6g4@?6T^bh+}eD34e7Hnsre^BhN9s=eD`%$$f_}h)UdO;6FW~(NxEI`^rSg zqCUP<`5flkPY)ZV)QLLTKiRU{_tEW~8#5A5UAekb{^#SjM=pwO_z2FQ;H=p2_G6-C z6&v&Ge8%WmW(y3pdnfDE7h3M0u|weUO_Pa=Q~2f{adLGyAx01qMXZ1xjf&zOsZ223cl{AF(`G{j#Sk zxMBS>V=X_XeX}mCu;BfX<+k{di@?gCAHBC+wk=Vr7HJB6d*tX#g@6(P@#W197ae2f z@G-fv7jn8Sc%h)@$KJT8d5488OBdgxN1uf?tU9_cJ1&@37BfehrHk(tSl$(^3TD*`;=dRiuk)5TMzdTcR>J*Q0c<(Dq~x9b))#}!t+*0Opb z8hg%fBM7+rnyrl+MRY>XIol$L$}dcH&fHKN>M{MTT`^kP-E}DU8>i@-Pf->84 z;_KDXNwuY4e!ZF&5ijd2eOGA9#fw`m>N-lhDZQF%`8Dgzbb*q;^NuBQZoK+FGiQo` z)8Bc^ehMiqy&rso!|OzQ<23$IjulA(4;M=RSt$`x^CHbsgYBwiiS6}n$IP4`M>h&) z-c0_}mzFm_=3Pvx9bM zlaNu_f>0Gl&P>Y-T^$Qrbfj9UVp6AEUO4ZmP*AGCtHRdQV@uO_wisDlm=qV_v|T!5 zrmn`qmAqTNh)%h%n=Pu3%PS+0Syzx%wPcawnvH>Ohb6Ofrd$j^CMCUeOTUzKYDwqD zV{VdX6QYwBx70{%F*UoTx?$l`uc_J#C8iv6+s$IOWr=u+SAz5D97oQn@e7u&U(mv& zf1xNOz)98fq!Z_=mb_hyO?%!71w_S5Oqo#4y!J1*m&b<2Yfo8KQ!e(|v9jDXdVFci zMeW7T*KcSjhO$Mi;_>pB+Bi+CStuxV!O~L;T0$f#Fx^SA-VWFVZ z6-!TTXbF+bLXo<*d1b+JP*D95x^ZEb{?uceL5}2HX>=thHNt5X&(;vhX%n=ZbzhdA zzOZoLEiUg23uj&VHq|GG15URma{e^n`C2pef_z()9gp{k_Jz~<4-0)tl#ra=BXr}! zr^E;+JD#mI64NH|qiVW>EOj>1L}#HmFNV6A)ep99+^^{bS@0_CU^`2A4i1hB(>vY^jl$ zI)Pt#ZE25JhAfQI?RHb$(ifOnp$b!$oH7zwy7bfvY^w8S z7G~bkKr(>eTJ?;kvhK^Hsw#UUvY8$W%{ma_T~)~Gsef(OfgLSs22d(b@^R(4zeO=l zm%6vA8R#wK?152B#HUaAlJwXs!0A$VZ?XfYr@mR*KUI~zHzeMIB$AurL3*wk>Mbno zaek~8$Rr(Q*W-Pned9F#$3mYH*KF-8 z5COM9o%uI0#;IQ7d(Y#@PPwd~8)BX8a)DUWI%hxHHjV$b>XXAzs_eAI)u{*C z_G#u#-=UcYRXKb1BO#gHYo8w87SHAdDr;_B`;@r5r3O1?#y1^g-c!3sCh3J`3v?bj zUPe;hb9y(5g;0A*qf&SDUX$PE{eu5?lwHpB352P_5F{r|QQj&S&gr>+t?J&g?LExf z;2fwJ5@p)>R%q4%nBzcp-qGK_HRPtAV(7N5AvZM@L(8_*+{m0-IO}@VMWIiL?%q{% zg(k(JQpY{2_8KV)meers=b3WMjni}eV%5EVAS!j6ALq=q!ZUX8svcVk;Vgzxv;8_x zSjxVwzOAWvyJSnw<<8R%Tlw!A#2j5<^32rs^z zeC(f7HC9O%ZCJSY>y$%n)28h-iJw!o`_{h=(RcoRn0`y%;(yxVgFl~?*zK^`{odS~ zf6~PY%h~o3YTZvC9ei3+b6Mu>wE7#L;=TW5y9?H^1zI1u?8PLhpM%+dADaIt-xlAU%w|AY<{`&NBzIw>6cTDOnY3xb<&UdRK7Hi>L+sW0 zmFs7-y;|z#Q0&52TeXYnb>il1xzq10-&(A1O7lO=;KX74Y@(**%l3(1H)L|S*G|`O z`XgSZK3DwZ&mhwiubjBGPVngRe3-hZHe2z@o*(bd3h#9aS;(_R-+`|5~m|IQ>=HdgV$& zar~%y6SF-lo z{*T}OKmPo)$rsfH7|h=MuT$^1^t;}=YxUp%+kY%KE1Z+Pv0MMxe-FMgtKG5-uFrqg z{Ib3I=mVRZ-|v;|HFtcnSFqc%=V<-fzwvjN++*K+h**5us~q@1BU*uL?}o>%x##mM z9ePWzYOo4;tKYj(jc+0)! z!2G@+%FkSCUUwb*5%Jf*;ZW^?IaT6a{|o$_;>{i6onJIKnAz|~|ElK5b-f|6?N-=* zr>{qkyW1@|cKqMZ21EHm@dx4Y;=LsoH#q-&-x=q6!PHUsk@UHF^0Ts-VtrlyzI?S_ z@Y|-fr`tlr0;Jrebl$u)Q@(HWc9os0ZY(3yLkodt%Nc%&Zh62Tq~UkOzae+QpIT3I z#;aT}xTAKhJHYhh3XH5mQ^hu){%J6g zMfuvL%uQ#O&eQP-kW<;>*yN-TSUKSa8z*<;meb88ITKb0cx<=vSZ_0_`l;cwh9j*G zPpULqjl|WG4v4&&ynbP2`!U!lMD-w@b`=C+2+k_N^+v=&4QL?|c2{e*XVKxcz_jw`JPN z|L^l@{mn1^_dkBo|JZZ}ArS)xPHu??7gipJM@(!AKPA59iv0d*@hw;7w{}iOj>+$z z6?{21>{I70y|g)`YMR&ipqG(aw%$wASANj}3;ub3d9%pYLJf9dg9IlwpD({Ro%|}< z^1ztmV7frlep|&KJl%G#PY%8H)O)gn#UO!+jc0kjAhTN9fi02-GV^=&n3o-&8Qdp) zYW=GKpNC>a*l7?=hE+-{yC?6r(F8MZx-C!jz?~=J=gTMP%Ni^b3*kT*4vMD zZruCEy-mWErDyf6hQd&3gLPTV$3k-t>{!Js5x$l2@hY=~n5%3c$>Px2OpgMZ&MUIc zcjmThm#E=0{UKBI!Sc(4VveS*r<(82oP0#>_x}&!+yCePF1&H_*8lL2^4h=upZd3d z(|`Sp|MRtyA6rH^?&o8C{@Aj>X~wh1mK#3GJRwAG`6v@sCpLAy>(lhWpOGPSVjj(Z zlRlCA$i}$Tn0xF!r++sTR>~Xby=Ol5wD!P`J^T{WzcW7mWcMKE9{ZfrzeNPvMQZqT zf5;?#u)Ol1_{72I7n;v2a?E!Y)VU@gvV@~A)B5ln<%AiE_4;cL9l2D6hJp4pEVMYxr&*b$DiJwG4 zl6@z`4;cRBvQUd>JpM%c!Hk-v4Hl>#WNcSr63c%Oz|vjJ%BtCv$Rc6T!@%4om~g;= ziATb%f$=bhL4pJ$8;|mVhC~*Lf*uCuKEZ?ohDo^2-ia7 z;G<)Xj$H{B!Yn-LO$`ry1PtbIGPM~y9w<=bkT}P}czC7)NKz)fso}AYK*1bNraoiG z1BGfF7Ux(PkIz(iU?I!`l6>lO;qitKa_z0(Ep+xAPkd<0$Nj!AqN4xsp=ueid$(t` zvLDq@O4%{Jh3EUE2@m6hjP7_lwN-nbDA4DWe5a~-c&`dbQs(=l36JB1itczj^;LVG zDAeb)e5a~-e6Pxr9n)J7l0gpOG}nOY6+uvFeLs9ZGHJU1l>e&#wtn8v@+ed${qz1U ztN-YS{+q7#-+Su+rKkRXsy_99l2-C#%QMG|Gag&U9MqHvo7n&S!m;8Rgvb-eil_8H zMC5a4nET+G2!dP1&PqGMOWjs>lAzG(4?Z<+A0Nz5qb zf>RrJ)QJK|Zb`ii#lx(+Pj)P5l@Z@E;c=5#QOpIWKJKU!g^t{odKrqxu}N}uU?f1L z2LUc87IIwU6Bb*-;b*1iXQ$T|oOGhVi$~J0Q}M8-VTy%n8_)716CO^HD4HYW+!vg5 zqR@-S(yvqTxTfI~3)ME63i~pSXTw7$i5^}x4{#)6`V}5nQ!(~!NcS4-o zW@nu!2qKENuVvmU#pAxFPw+{y9zhLE z4oeZiA`PXKTydE$4(=e9!-bY97JBVG$DdAkxI@NBX1a6RU2;Wh7!eY)r z4p&3~T*;t0fWuPc;H|8~O(F+5$_0%M#kTYmh$|}JaXo>_Ejkq2GN(XXQT>kV3C?ms za=DBs z)h8?toaAy-SRGy#nthc^4}Oo8%H6xN{iudgQp=G}3B^JsH;*|TfvlrAk)PWd7BjyLXdP?q@naAfW=#=gDZ$d*(2x($0QNMCKcBn1y4aN zT+T@%g-t51a}+!U)jfiaP|jW25P`)#pu%a|4*}679Bwz(bO@ShC$*gIl1SXFgoP_? zrv0epY?npiW+lHHYdWaI1&0)*{CEN?Dmx~C6O$63>xPuR6$-8fOeIml&u|lSmuGHg#YY%X&xtv&taF>frR|2P2pkr4;%e8Kag(-OdEvS4W z=?KR*2}4ZooP=&c^&3e?IJZd@HtD)ipNmvV$aHmBhzJ&HC_M^rIWkGXLPQXh=6;;* z5Uev!YPsJd@z7k^4U;QeXZ)z;evidNb7j9DXFF)Z4F+XaND>4&Zea%~AibL&1h9Db zb%8RgLiQ1k6H$uk;yvY1f%Zpx`azVk09_QfrXYo$z z1_f(I@ez(&GKNiN?mY|63MylAId91nHkrB4S#VZRJ)`&tO}QJJ%)VPB#q}#c`-+v? zCiZzzl8B)3p^D=@2KNk=d&A{`L1WmW9js=hm z21N)ek9=Pd2`zV(*;zrX*^wl#k~`Ld>|5hN&e8($%AImQsyZ>l@h62yO2fqtn{0@|0`zRmfsGZYV{~>BW zE0dmh(ka{b{OXTSrr1QB3!f^j`h4@tNB8so6}~D|^+{LWs&Z`cox>BO4?Rn%%j2A# z%eqrFM^5zFv<;F$Q=$(&vn$NwoPBjmvGqPJI5i#>VBv2Kd{c05bB&Glq_PS9>Fyi&K7D+1;-aJ7JlTzwCysAcRs}15 zWFUXOk4I)*f{59?!!_2rIr6OV4V zUYa~lOgeaaa?O?7A`!pu2j2|+`}pPmL)XH%4t)K!U*p{t>&(CLPu!>eTYu?)=&$`= z|HEJY*ZLd3^#AHF^_YUczkaRn$yn1fBcq2w+U~H@{q&TkZv`BJFe&ljGw~06M-bSAOogEMViW%;?uhhpMbmU`hr$wE@#Qn8G zQDIRl?`xCs6MsgjHjwxv5@=mIVz_$6~eq( z_a2cr*_3=tO}JQS>am{5RcAb$C5ks~IXY*Huc7*L_cJF01&S~69_g9z(@g30EyC-&Y-dlHyiJfmXv7sr zo+IpeDrEan#z!UV7X%i}Ui>z**lebmyX%!_OUyEgH;L?U5L~`=$AXV$$>~|ePQv99 z-@Rr15_rWm^fDsf8Gp%^?c=g!y^_ozDxzV{c>Ksc##bWB9eyV!JcwN|gZYY{hnt}D z(Q6M^?2B1YX87;cLzV6C3WEH~El$&bf@;oVha!NT>GYAORuconk?}Z8s97uldR_$Y?Sp=2^3!un{)cDQOJr|KN(Z; z6$;w^jD>9>BK&s8b9EAOcIpKj$y~YM-67U4X0`z9Ck#h<7Vs^vp4&88dYZj+ndPlp zdhQ=@J=KVdUC{J<0r!=!mJY1THIrsU?{IJxU&nnVl|l6D_Z~^})0ztNnXe==w9c9K zs7a=0a`&Fop4#`GK6z5w*rms7KG&9gMev5|Idke`&zTlZpZxGFtJaEtg^jml7A)$X zFu7yJX;16RPnXPnSv2WjiKWmQ?kmqq)*sGX8C~$yh-b#G9u`#{^*?&*3^mh*zu#fi z+VS|C#lnTvb1q!a3vdj3$yC~{xaj%x>x$nbzPqn1vv6P)U%)L=d?6rUS6QQ#E?ev0JeWFzTcofd$?rQ?+^=N~yLc9urO(=>v!Kc4h~eV<65>l40?sgK zNxZtn+GV*hj?2r{_MGHealGp&Z>3lfXsrtgYS+$UE5PFW4e<&B*6Ll zV~zE(3!1j;?loiP&+TKm_-xH>v-Zi`Enjat8_>A4p-QG_yM)8uCX;g;HWejyoy%=c z{CexLgwN6jCbod-m-p%|uV(dk&L&=V~WdwJJPU)y(qVC0Kmv@sfpBGAo+0E{cR~Kil+b4ez^f zg@3oVy_7dQQlI^^@X7MW`&koLcl{4LTK{``|Nm)^U!B;nJ}pH-M}N-N)6E4g2R`{l z_M}{^%Z{GG$Gq&jzJ%LWj{p62vH#?c25O)F{}?>ucYnfvqTecSmHh3||%P5s^TLfcL`{-?eBl=uJi1^=6${{QjX z!~f<-|MNF#oO$w}r^)Nz`X~Rj{?&{A-{18={^(4qIt*d)(RdCns4%V`G+oPyYSW=vodHcq(3GeeL0 z*z+S#-x(xu{R;Rk^Im=aLf7NF>!A*s+}7Vx5d8sN8wV z@YQ0+|f=XAEU z3g09IA3B{oX!1nH$JuY+@(Ghqs625A@L&`@BKO$jv{%@1i?h2744IdmZFs2i=CkG8 z&z5_&y-MdyVOCV1?R~<6p}pq`qvB(O*M~%|#J9~6F5u#pF%dZ%eWLTzaqkBwPHqz` z>f5Y%_=a7IOrvv~;vVkHiJ*YqBQx8My~EU1kiElHjqeyU-zjIYyM-IV4R)lQxRBS< z<9%kr!yrMUEgFiCH<>)SQ{5(`%B3%#Q~tVASHh&^_nFPHY&_c0YtLt`JkG#nq02gF z8W-D&4vDU=x0}Be8GR^|G_V7CSk-S;d|XiCITg{f{AW%!3L7dFx$(&Ma|;_KSUlF; zG1q;LkF}usWxpc@_GO7lY(9ZOyb_P*a*Gu03OBi5ctT;}goAG_zHtevhvpvHsMKL` zYF5W&4+GXCGnY0oZdUI5Y_0q<=SaX_7n$w`5drP?s&3{ZC%NQ{qPQ%RwIoVxlUSI4 zuw*{$F0u*JtMprPK_tMjD)op(heV^3a@*CCRr$JX0VgB_4=xVk>S%7C(9Ch|j96?# z4+Ec|bD^l=8{3!}O>KOF$3<*dk2p4;Kj<82cO-C)tIW};BPVCd7K&sGsuyM*IoT*x zSdyZt;P+h#jJVQrJ0)K2=vb)MZIPI)?04;8NAgvX!kk{EzO{i|59dsCI%m>4r?SgJ zccaGogm0TV9?DA=^2}E1J7n3RIG`?r4BKYp2c|Gv?W^T&SJH_9I=wEE|- z{UYRJ{i+}Kp?~IU{qq<7zr5>z@X`M(AN~KM^|3xEH3!tBExW{Y^k+rcrWqjeQ{GW+ zGkfXtg?97ihM0lKDPKY4ntBka5&|OU1cS(w#<#FG?wgb+na>~J^jvi3-0{tmwf60G zIfJo~@v^!7>FSCB*7E0brO&^uv9bR7`qs~ivP)Y^KYe_YvgiGi$2UC>Up{$! z^W@DdCig$@>wWHLH*YS_nYp4&b0O?4hvwGUSnu3q{j;LXs0yS_<-@CIk8gTL-amVM z^W?YErSG~GV^PJ_=>)s&;PFQ`o?egk> zZqo^4r$zO%7F^zGVE1^@<=*Yji<_Q{_Ie-dobs?(Cfv@I#UxBd-;ZPUqH||tqJzwH z0t4$S`WoX76e{yr@Wswo&~rb?{j#B0@h>M6v&dG4{6d`rwZ~!?z5W*UVV}(t3Fc*c z47jayj>xpPnjH?&dip8o!uRy*>m3u4^W}atX_hWb=@c zgR7IwZG8>9GPX-_9=~m;{IKHo!j7_oS0edbw{WYS?~;(5b35n&R)T({f} zb~EhCD3`39dfV15>{Z|F>g5uyC3j9}9MxF#nC*zpjLm0w=LZ^OM;`GoxZ5fDa;NpW z#-fAC%U{>W_9$7sJGmL8`a|GRjYY4k9*HjQSSS5`nS^V}-Gb$;${%+tx^kzb7SA=} zV*613*jVJunP&km+Y|D(@hNjwY~QWOUZFQ(b+5*Zo%g^d`@0$GED&oIY%>StHd$IAAJN6aXe=iNs4}TrsT^aMg&iSj|nNz>(x&HH) z{jJ;ZRBc1&|Lsw8xBOi%zeVd`{KxOOh( zyhZFt zSO0y|Klgw7=CxlOX8)+akhT10z4bS3kR4tB|9`%!H~Sp_>+S7+TW$YjfBwIAtG)Ek z`qhuOU;6dGPb2K(|E~Z4ul@P|{qSD%jAhEwRor~DqW*_JezL3IUcSak>aeNYaqa8- ze@u`1UwEhM|AV7ffBj$kbHC~T4_`TJUh}7aUb6G3+y=#e?$%wGKkdK2>dXKAXZQcw z>;G+i;OhII?Jn9!-i&r_u1?aQ+0*~L`RCg0b1EOdG@8lZ=Ka2EkIiCVx15Mz{*^bS zecTV+RbPIZzcKWt`rDg}ZytSHQ&Y9=%d38=xC>dOdw<_M{LS11c1P^# z{Ql?W;=|(ke6xAx{M{v-@S$gJ>%)0x^;ne7vw1tb-I`!~ukcZ<-lWN=Pp%7|+3;y! zec6{UPs`o!9Tuz$}q`TEzHh(@?Qpp|s^%eEIPk;Y|uF&Tin$j`Ues6~-=|46Nrg zk9^kTsoVJFiZWB%^5@M@Kb(p7S;*seqkCq;uJ8Mg_=`+AT9KIW_2|0m;{Wpxc-L&2 zFg5V^Q!Qar-npmRR&8byeEM4G|NPmzo^4IB3OZ4v^s1_?PSK;ta-Y|%{^Kq|{Qay( ztW&Qs-sBDaksbKs_34i;AD%ti{7X1nXrkZI)6XWWP3V}pv-{)Ok54eu6!CwVS9nqE@OUUgdH%3*_9UpCKc%B$G5 zM}<|(_MGM_Z>FQKstSXORvrCXV`b3^?A60k`FjuK-#biVm$~?=dvkZ}`=swx-`706y70lea?=@K zSTCBJJhbSa*r0Ou3hVqA{9>n{Z5EU}SE%{Mq)gRt<@WrHmAVb9vbuJ6ef@VfM^7pv zu4DUY;r!<*YGy_LJz*w)jvt*r+xlLT{INxf8B0wT?7#PQ-S$=Di`wGX@^|Q6o@l!F zz{^{kn zO-U+!;ZwSlKfr8n_w&aqw~DbHUKpvhXl_)U|38aEK^wl6WWI3yyYt7TIVzVgKb={5 z`GV}>>*||NuCVv?`xJHLoJ03bwugTYWfnSb_PcGVd%f}V`>L1wdqa3lHPbj2<{C=s z2n#)9@o(g7T2NrcCiwoxHQ^@jw{j=6jdhyu6x*;0C_3@j+<41=`LgGth-3huIST_aQ^h?;!X9ZeK~fOzMU(`dnmi{?!Ti)BWzx< z_%1m4^65{*(x9BGlP*0J243B0bj~Ip`M9xUghRR+ZN3*IT!*$g|w9 z`gPTcZ&95se{Xump9;I)wPfLeNWVto-3QLT(>>Ap=ui2j7@Y^q9~Dm2fA3dze6Bt{ z`2DfnM?-Z^nMs*#n32aQWBK(aZ<9gP{*V7ySY;2~_E~v*PLT47H@9|QzheAx!OPB> z8@e5Q)3dwp{8)6Nw|qb6*PFEs&$s{hb4^n|;irA-DfWne{x3hdynHm*_Bg*!yHV`N zg}a5cF3%U$Um1Lm%i~StxzjdouP*JGaZURFgMRfzi9f1^AC&*#j`7=Eb}{{;@x_0+ z3Ol89)xS#Df4`Rh=30K!-P;Qo^#d-s8is%8-_{>~VUNWtlj+8;?VYcl-IANfb0jfB zCh7YZxefyjXYGaIZ?e|2eQu4g{pw!8B0az9&Xc+I3Ylg8^BY{&PfL69EJb)jnwAHU(YQ`{eW`n<92+iUh# zYh!0HPyEs65_Edb-=~!s?(_W0KiDkkTeZ4d{(RmFjd^+D(_XLFU+kCu?PkT4IXrsm zueM~Kw319&Re${C${VQ}OMc!yeQM+F_G10S^Q#X(j#W9_wspsc ztkwF*0+uh|VCSh(WirEOPkGb!ee6FUOZe^Daq#j>kyPm^H(GRzY-|0i9CqGj&Oeq^ ztHs7sRbh9?Ux%IbL$}rHgV85<9eKAx)p_HhzJMu0_xFj^mt6}{74&2I_^j+=i*@LP z2@7^?-BtH3s=9{2X4LCp*?Faw-NKHgjM_<3RB8Cxjo9G-fTK@ zGFH*dv7c@7QJ#czY~h`53Jblw0+&>*Xk_y_F<<~v7Qux^g$oU)Y@PArhKzI@&OsnmngI{Cr9%))dakfOb^*nZK*BIA0G73`Kw9h zwomK}{waC{UJBkUcB1%_+}RlxvTBD@HqJQfIdj(znN{Evm8FH=|{e_qd(@ztj* zFT9=z=zJB{EmjS4&gNbj-SmDJTP)M8aMcI9qn+Noi8!h^_3*^nKP~?qI<=llUd_%w zw!FX3G0@EJYShI#qrIQ99;tWe9G`yrsgJ?E%uC|3(K<)WEkD^t2Aw(iv}8}oY5n!- zPfyK1JGn^L!uC?oR2{voZL@cWab0+utQcV9BBpKS$uj$Ph{%==Sxo%r^`~t&sa_W) zoyZ?@_sIOPvx{`PZ_f%fO8*x&^~~&@qN$sU+gN{J_O-ncVwRp(neb)`X zbn9^IN11%n^n$-^RovOe(&s;Bzpgt!sq#{enP-y}iQP#X! zPxhX*O&90R`PaU`8_` z&AfVCe&4@$FJ3(D{F3##W->*5zL=x6BK;=I;nQ|;d;3{S|9yD&a&vxPN_miaqtb)^ zxP2B?e?RS9r%-*P;o`OYvc0$6q6`++7g?=qPONWv@`C4sThH2wwKd)Sm(?d+S;+NE zzv|129Xn@rcHQ(n$fD=NXMOfii{=cQW3yV7YPY>IHqd^pxq$1O`|o?50?ULKd8Y)m z=}dggn7dB>>|t^D_VvH@_E19l2TxrXr64ozCSUvUdBhh=IQO7xpTQjwJdZsz>JHBFFR(rJYWuKeO z+K(rnZ%Upo%z5qdlN$@9B}FD2cZfY;I7#}Zrj_6WgJ&my`dpeMb8@{E*Ujp}xR`V4 z+e0>Zm>&;5cuh^X^4NOsg9+zzG`}pFX#2MReCPK4hq&LW<*l@A|M_e0oI?i3n@=8{ zd82-MLAa7%G}Gbguh-6=Jh?9YpBY1e%~huZTZ6e1y4RU+2s!)W!(F3KdCsDzf{}z^fcHgsa_qTK3dJUL%iJiP6zNqnNft|3$9Bwm(X;rH^|F56?_GGDZ zt@Y-2=6ZQ2td8V3Q$2E3T1`Dc}${|k2O zN8J+&Ocu<#{P>{KM6Vl5Cmh-rxU1#i%{PnY-_e<@DK#&1$D6qJlHWdC%q6=u=gp5> z$}9-5T7e`eR&Ht@4cHLm$~4|OdI|!{i$Vh#DddP-c(8+^{{ns$ctc6ecNubyau;oMWm@AJd8jw-WKxy*E`$FKpR$bR-)WN2ZJeijP$2sozrKM3MN{L{QV~v-C{mfmapZ{ANg0qcW9!LZp*EytkPTFv^xdNtggM8 z*}aTc@zTG=ZQOSvr~f~7Xz8K0+*wO@Y5q?8Hsx<`*Rs&talL%2>VL#%{@?GR)|B%@ zj^Xv&|IQ!xPTlsO|M02*t2g~$|K>k@D@FGIeq)8HryO3j+!ie0%l+;*TT0-Tr%^=Q zxxlZ#{fy^)Kb7+C?xUPC-M)m$-QP9L7w!F{5y^LKGV7}Hzy*@3$EPosySwpGW{S?V z<9~!o1ib^!?>ug*#XhUOGlK8a-5)OdrtTL%9XOw>>4>J|lOJi1_Smv+Rl%uQf^sQ$1zWLX0L!<>@vHJ>iV zM(_u(DVW~FrGBtl$5^=j8H=Wr^dm{;XC{r>vtmyg2|P~kd}qGKR%bz5twi;H^a?~4_7HGPNA?p!wO z0q>9K>%GDEDrP1LbLugk*jD>h|MqTX54QVBvaedI{vDjGlH7Cq<@U87YuK-Sd;gKo zPiJ!MdO!XL``bcOnr=B=Io)aG(3&S1xpAeNpteZh^#3M%O$tn7ZtDL@EnTg@s-aHv z`ot;!k8P~5y?guha$E0LkB)|zS6IDPZd|c#OX{6f$81-Za`Ok+F1%K|_V%?`-3OB< zo|)dFzGvTu>$<|b78#v>5_ed3-m9jF4;Q#>=C<6M-+1lvkL?O7-43a8COXegxA{0m z_PB0eEH5bH*t2||bJB9-!b@|iNwcr(~pp~=f^No1qSNyZnebENYc7ufIQZ~D@F zVcX6*>dv2}XUZMkSg>x{rnLKio(RlZY;0Z?V6?e{ae0lw&h<-s_FcIBqUhdyvrFG? zlfJ#^l{i0TN5?{ewU61f1XM%g_uG7kiZEOH?hxbE(3QXE-4|G1I=f8zX4dDbKBgHf zxGv~C=kz~4>F|Vn@e6S3 z?fjeSvrBbefB90x^I7fG)y;FKsvTfam1vtVH9z;ygxuC6!e_Qlxcc0wO8o1;WHW2= zsc~o0k1v`VooS}9J@wPVBY)ZCzic!~te)aCjX6c^$8OG!pO5x^WnOb;;hBAUMR&J+ z`TRux!hV4%oN4N80a=$jGDO3c3Tm7!_BB**x;SI|w>?*$_UxL~=*}|BY0=x`+ne@B zis#u!Z+k3vBeNo5#lwY5-G1pwu{(1=R%mVi;<~BGZpTN)%0*rq-s~5YIaA27!TbKC zy|z>K9lf-Dwb%354KdxqqCOTfoP0JL=6*ks@$cB~yZ-mHRc`irT=?ZRJ!gjTN#*K?Xa|XcC43pu1WgbzAI5v-w8@OzvGpa zb#!-srIr=ze^qMfZ({|14Y$>woQu50ugo)(xY%~=b;cdTV-tAi%<|rK^W;gT$WxnE zYXAQ4mp6M+q)G4P?_ce!&^(yR13~&Isfk`L#oSi&RtUY2i1g zq~y-8Tdw{3NAO0gdCl8n;$*+h{=IL-!)*?->jMR+$Df?v750fstWPemt$q8fx`S3K zamJ=s-gjF`&DO5u`XiJTaq`+)t6#rrmb^QBJj**~#_kaP=XNy)e;OtoYOI}`%*lK2 z_)-Cu?`8L9oUJN8+jfoP z%lE$};&11hr6lZK{(gVN-l4mRZcjLB5o(pM)0{?$nn;LJPzii*F`lJ3hTQ<_5$8cmRX?ztc(EyY}AUW5PAtMlIP;kh%tu~M@`I%`hP9>aBU ztva{nJ)MhfZm%f+|F1UxxWdY9ha3fLqkgS0Vv~KM74F#S7{Q!;>7p>t%L!#R zj>X??KX!V_ef(^vvwQAUz7`Wtu7lcYN6Y?3JDQlDzvasKsAeJS6@b)g$r?oQ=l z?Vi5l@!{QbT3?$jI}nz^p(Ad$S-#@ir6odXmFr@@tUhbE`CZ}VC%g3bPR_phbW7pc zUEV9U9SXiSt-Z*@?6_$z>)+W=YyTZwwQbsNC)N2I8m3GVy>}&Sm-usEW8KQuHOKaG zZzy`_nK*A=W&Z1x@z(Y`b++D%IO)N?>D<-JarsaD8CG0g-YeR&aaL7vdY$gX%(qTl z!UewXV~$qEJ9ezUnZ#J-`c`eq|MUB9M_yE&bXl$G;F>QY-#=M!=^pz#RbYPE#V6Nx zB&iy{o*?f0&DA0))i*c$+RVx=`}t~~u5#8szHjT=h@QCxsm6KH#yrP&-mz`qE1Ug| zA$mcJ_{+^tUiCWN)4n|O|HX~r|NR8yt)4DjX7_gS^iO>%8`S>pNx$-Pwv5{A=?oiJ z`^_pcKJjjH){1#qnZZ+gZ@Gz|`I@`?jPd%nQ$y2ko%?KiD&Mxh@cFjAyH2^~PM)2y z>gCIYSkCEm=4X_Iu9c*_#}f^Y4<$QQw%6<<|h5u7T%z=f`ul6VQ-}x_*r%PMut@WyPNJ&zB5 zV3wMppD9sQ)XK46qF=~VezA+6X;$U*bS4Rgc|kgJPv(3(D1BkU66Z51HojN>Zp>C< zI{o+dP0=se2J@3y{9H341m17zWB+_qFUR@%$&^Q)w>>rLbmf- YjGyCoUlzkKn{ z(%|cC;vwJn?{--7sC>_dUlZ==UE2EK=+!i?Q??AT^SV3_aj6KMOMl_^J@W7umi(PA zhbO%dkK{Vhmw5cQ`IiGf|Nj2(VAB|{|G!=SccS{_|H`XA{SW_P&@?!vZh5_b zL)3-4*V>zI*{^8mDaf0Uq-^pr@s*i*oY^d+%^lyF9@*&YPv2}Aux~-D?ZqCRi?xP3 zV@&LM4k*+b;|BdFd7piB zmgDTL;MWuX%-(J6xM0Q-mutoL8QW&BWncA$*{adjU}ivCi?^ZJ!N+O}I?aWGizIbl z+Eh-8x?!hv-2G%yru>A3t1_E{n^IP$u_Jz4C2LUZ5*2gF4#!^&HYtj({w`Z1-GRU zqe}*li22X_%jTPRN_6yj|j``AS#g<}W9!cDe5JHccC*7P3rX@Dmkby4tnCzW2}E_9d%#|2}>+ zHt=jwjj6)zt1EAA-n0In*`*uC^6qQBt`p0jW%zRp_{cVogzsBdgCP#Sm`-qqX zTvF4Y8TZZ6gmwEOeZAxHO>9rOE2?z-W?r~=@NWLm_3PO`?~b2T#(F;~JpFR>Zh=i4 zTr0MJvd!8aI&*rG+&eo1Rx!?$gAIGmW;gun|FN=hUj@VaVrzy^rO&j9k1nC?HYWoW&Vq+Hsx5#=Z~p?ckG{8 zZ`W)SWk_c9opy=Iyz#Pj#gn_)YqEvZu9#@npH!ql1K)YLN0%^x(vrj@K{ zOiR@$XqlpT{lJ>?=Z!HP{AW(Q4bc)?@jc}yBbUj;^Tr?7Sh9GAi2tnF5U};t?@k^L zi3JOfE#U976_{O|V#>t!ciuryU-d5@`U?(BzV@~%IN&trj18|o3g<{qZ1Rus3S;|p z&dRwUW|7&B;1uVllip1Ix_8}&;!hprtD1JYT*=&Ad~&t!qCjSyTl->|=dbzuMehMa zc1|$M-qXoPra3O^e4Z|NY1O>Tr%pZ7a) z;2P;Ciz<2(9$ZPDHmf(+IIeWF=O*qs;crWet1P#Dm)#Y>pi|=?&i$!TXzI0|n4Z`Y zS)KHAEVq9;OkOyT^IWN~zf1D6|KSQ-I*!G4GMaxpemwb$>4FFS)f2xLDhhD@=;6s) z>3`srO3+eeLSJj&DVrfeBAyF8Ib81tq@P5O(>&OkcJi%K5iG z2Tq>0{i&hJ=Bf+7wLhCYm5Se7E57&FO*Nhy5ypokWG!`08O`1<9GJ{-QSm~BbLHx# zYb-iSzG}L6iLtNJTwSJ`wo{NpcSY%(W&0lSsBX*&)exV!%Da`{hco2cz7)rWRTsPJ zJRz8*tcG4+!z#J zyCV4MK~>fntyc|i=1aNUKlferYQwAA(u2S93;uh@^wl%&`S)-8)x4i|zy6tjSpEC{ ztAE>f{a^d89?YCx`rrHG=I5KW4Q>ZB&eB`1;+gf=x-*yisbpT!rIjc8vRkSZ&NiE> zFFbnF;mY0i*C+SN&)a)q;*&QI3YagbzvjqGVmkhvJ;~jv`DnG<%9&hG6wb}N6};ze zR%ZN1j(yMN8gr(<43T4ay8guyW`lNx#hYa2--wi8tY(`3_;T#7Sa$1>nGYh_UoAV~ z^XiB5{*eD!k#pN;2z_`ie@<=s^WZ;L?atvRm$@A;s>*?MF<+eyUi?+H#qnRp z|4H^&_KQe8-zxQZnd3fN7QV^$M^;aA{&H2Ixk>of^*@ULO0Np+Elmzl&j`QV!t~j+ zpz?yMXo%(CzAZk}lmxfQC1m)?DYz%kT)yE-==JcG({j!_Roz_G_VuN7ZuXI7VScF@ zi*`RLe*Y^}aq02(3wHcm`_*h(SimZ^Z@KsNu5Ns_ByR5i@Ol3)n!l_u`gir*|Fssi z|Gq!oVf8=!`Ttjc;^+Qf{kgvMpMK@P>p6$LKl0wVY~#bIR>`)3Yx+!u!20hz##iMv zXXnP4NI3GXS^oYs$KORxii;YP=WlFV*W7&He|~3a^YOam*p9kG`%MI7lJ!oqq&z+t zR5^LkUzI~$`eHA(?+>`1cd$Rmd~5cqCcl4QX0kqza{1S!>TbNj-e%@m!)3COhnFt6 zF!j6mr@KdfOg$ATl$DufT+qX4wx6DguisbZYzUu6lR*)GX+}8+_ly!jkQ@{1jft z{gW;(G~D^Ha*?s*cYU3s+%pszloZZr9dinEGz-aa!(&0Qu$9N3z9=cR zVA$PI<@TH*R>10&SaEao<&?jb^A_aiD=1%jubCb-c?olDd1)Wt(VGjSE@oeyC0u`7 zYUSO1d^PaXWGHs<1c&r@2y!pUtEjsr2D?OKK=aWws`J|TXXbh-Lgxb z7$;(Iyst)hMJnIEl`B&3?A@httBhIk;yaUtsr7R`>J~jpQZ6>h39vfs;JZ!#gyND# z2A20!k6%?OXwY5f!M?v;MES1!7T1nVX<^dZy5Hs%~|1LFqsJ zN&gG~te*3KvBkMN|Bu(LMoU}&*M72(I{q*|fcb-3q2DzLuBYOn$B!4jZkxO=Yraua zb;&28w{rKZ-alB@dgt^;?GGmeb?-;7T=c;t#HL!TYogJdTEBbl>-F>}X-tW3esbha zP4w%mOB3h#luj}C4%?v_IQ`3YVO}1+>6gVm5=W(tZP$4(t(}(P ztM>3vXNZ35gKAAaX)X5YN2H&{#ssyUx_r||=Rly5!R9t$BVnGGRd&;=Bnq03OkHWj zHbcgLK~bZ0R>aZ62bC7`EpS=4jPs8ITgG>WrV1;~nNy>@`yTkDPGe8$*tkglZ;sWG z4PneTJ$D_ASy7YhwQ^BTz?RVNGwGFvl03q<7r9nHot)k-TJ2RTqOY*_-dd}>SLW}r z`Bxphi{*r}OLL#7#})&%H|KKves8&0_;kgFHIow?1*)rqQYVya6+h}-^-jdP@9A@6 zv((k6c=Ddp zSDq=x;fhW^I| zY_g3N*-bB1%te;2{T9AcK6!zeXnfzdNXcz|R@+rBy328fzWyC2EWTDo^Ume&Lb2yE ztFQmxzNl=)`|$Yxb?ScW|M$s<|N4Lb$^Fyr{QGPFyZ|kiR($!h z`*?dk-#h!yv*!KytggGbTmFCGb<>XC@3Yg-^WSeM-xv4&- z`ae+o(A5l!8U1^zAF*`TAM3rfI6wYUbWX4%Grap_y7 zKFqfbFrLjoEkjT|s)?ySw%mO%~N@Uzz<~k2kI3eC32n`!ac+WtVSm zTKJ01<=*1lWeWe7pZ#@k`BOuU$45VU{q+Ci{qg^bx8?sH92Nclf9=zH%m2zxmh@|U z%QCvJ_T%@lpZtfz)IDDQk8+Io`9J)Z{c8n#w&}Nj3YAFdH>R9S`8t33lanw0SAB1u zcK=bR+A8ZB4Xs&o=l6?uAB?%M@caMD$-Dpiui1OK@R4oIxpT+u58b_lz}n_l0QkZFv`< zEi!w*=(!iWCNBMQI_#VEh5vgeYGwybUHGj0ZO=S~)-w;g$~uod*ng2_1)uWc3^RF; zqXi59{n=$(U7`6bXWxzADpMWR=KkL$5^TpReDfvGqute|RhL5i|JnGkot<2{I3U%j zVDEp6nOv{_zK>*@x29gcwn4w%&Q|Cd*a9NsQiw_mzi>;`KI*R+qIraoi1^{%*a}7 z^|SQ%95?QqzjuA}Q%N3c$Tyu+oK!IA1W6AeYfsG<>@DB z*LQPgZaCVW<6RToba6*r@BS3YKYHBzroTI~;-jRNCx3Hj1-t2{1V-VfpIs)rIbnTt z-?zZ^+uWzgtlo9ugPd}lL*{iChNt}tvKQ-hg|AwbRI3;DxyCH|UFD|wn?{dVw%NRH zWoAo zgY^!1uUq`GWo0W$T|c?JS$!hr_sJEh%nMdk@7^V!t;O(L=ZV6*qUqj0wPiOezW3wq z?vRfctbFTvDcpZ*@8oT-9E$L~J{k}Cd@gzG7|PI_l>v_3TgDy=HcicGx7_-*r`|WZACD_gq-~WurjN?68i-{gZE& z8r{z}U3m8LlKm3@l^f%~?JE6w-^_F(XSUaehF=V}MvsIPo$Y?uXfMCQy87*Tzh6%( zv>WW*7f17GPQE{3S}WJKC8yVCd2LmB`N4kEifb*M47HiNqLt$oc$$dI-po9FH_86? zJX_@+wyy@o&%(_!pVbS0cGy(D(|sCOvGziN+w*RD?VVeCW&1j|y{^@-e{I+yvAW0E zpU?e~0SEt;s(&3nZgbD_%h~W|&J$hJyY6M&=VWH6@vNTUBk}IT_d1K3j~44wyG6y> zeT+Z$PB1gGELbXC!g%46!^UH={ZG6P*6gqR`zf0Ly+YuLiHE*jHcxq)^0Zz#^4grP z)UM_7`s@y|Uzv|CJI}`L@%~FljZVM1?~j*r!uPRp>m~g0f3lI8;kCQhrgq)O(E_eA zALF=+W=(Tk!Ca?O{amK{!{1A`e>5b13$&c)o9+Ew=ZkJ@HQRtctLA z`CQg2y+va7+<2a6k33o*>HcF33{N=VX`cUZ@~(u%pO5W6`h1h#&)un;<~&(&qggFz zxk=zLtDuHVkJyBTf#R~_%K07oCTDxEXlk?fsWCWuPT96FTxRmT2`~P(Jjqj%{->EK z`lrizQnAY-`BE!p*$GE3P2e|HU&ve%v2gAITaK6MyEgxDxw^pr?~gAF)MC@8Fmres zc}RjhuYQ@zrt$M{CW5HxHx&R7#`+dLK;mDqG@XIQQU* zxl@j<|E%;d#;;f8b&65r^ZAdeQ}3XW6rIXwn*-G zH+Ejoa6c$Jm-ns6>AU|Y`PFa+@=>Kj=snYv9GqT`Fr=`#na+{!`D0B zzdwC(!=GS<1IbPcSAIG)X}kFiS(!~U7F*8~d7is=N<@Nh`{F|eE6iK+Y`7PwpS${e z@e`jpXVnVqvJ?9E)mDD-`SPOm$B$?0jVxPuO;s&;S$DEAzWe#`@b>oA2aBX%&;F^R zb@54)$Px|yyx?hWd8;E;bD5?Ff0{jE#l!U3oFzX!IYY8jk2{}`oxSkF^9l3Hc)IkO zD;>Aq=(Js&JJDZfR<6m4m+|d6nMGy->*k5PX?}As-+S`yiA#P=say8d)yOhapqusJ z!#|UzIQKm|n^v;qlh9|rlqrnHTo&2dx(rV0GS(emEq{2O6Be-3TUxF<<&W3KKR%)s z#_ZbL9CvTo=e%*s#BbH#W6B?}YJ0tCmJkW7zA`yQGhya=lpiJkD2U$NtT%YY*<^|Kf3fjYQ_NC-&EB&er}rTARN{h~<`x z!o21;i{ls@>*^{End~q8TD7gD{BrM0@%hV4o1balolvRv%E_;4YpU~-FHtYVRK9jd ziM>AH=(1@V_XLl$D!pe@?!2(EoG;0EX+@~P*Z#Y?JVNDj=0pYFd3_`!xVpPEah4~? z>iNP|PwXb|O53_^?dOk4KP+XemYw!_>KD4HC+I@(i7z`PZcnY6&OYn1^#toRi4RLw z<+_NLPx8Mz(RRk^*rS)G+@Clrw|POoX40P*>sWN#qfaV458%z6woJ}9;Su{g+oVlK z>g?60zPxR^C-_BAX`B5mxmQ-9D|TLOz1#ceqj;Qc{H9~QhucKd_t&;^7F7oAa8Qh| zcAR)yWUnCm%+1|1Z}jGWudDcR_u}b%`L5#jy3(z`re4|-b=gj$_sZ+4!wLPjjv71_ z5?s)=;-%gCI61TQV^{XMC`fL+uc+niG5OCe+r5$Pisx6Jnj5`W?7H82$d3UT}gglYi_A~n=Y=J`AYEl`Ir0V*6hlErgSv!Z0okO z-vV0xv3n?dD#%>_r^&uZJe zaCeC6(yt$jY-aTQSDflu8Es!=7`@xmYn$yR!(CGU7k9?*6W>v36Kxlx_nh0CH{(j) z{TM&BZQl$RbMLiTwps3qUsm3y4-UDjDniP$Hi%T22cwuf(ju_$xdJ?mVPHM`C%6w1D( z;1m0}b7qOsDIupECBD>Kxl0dR-Wtz+C(iS4lP}jfo5v>U8awtM@^ilQA?wxGeO?b= zYA?@RqUG!Fr~LD?TSoBN`Bt0C(+*mGn))ug?A7)1OY3~Tg)6?kGGp6=t>+(4cmKBZ z{NtOK9{TF_Z;Wi$(2O|8rKTG9DF1=}5tY&s4wL_Et^T`=_RQY6yl_eQ`~4=;mk##v zuv?kBIR#y4`SLD!W3zdC`pFN@^@Wv1M*9pGSerk3&G)o!Z?baUJRY~&ij}9eCJOd@ z&RjHe(zGs-Ln^CR8`ZY#TYGomy-8QJ?n~d5aDBD*@|w7VeO2z-vob1ANUHC1a4OsN z)JR71lz+eD)m44ghq)KrtSox8^~uV|E{QiJws1JjbM_1>tXJD77%jL%d~2d5&x?Yr z{>_eWtXpYVGvU_Q4g!tDpYt(|>;Tpm#n8Pd}yNmbL+R}E1&fCD)tD}Yqov&EMv@{ zlIFNoE91+5uK)fqvA1{DiFN)LI3{Z^{C}Zr$iMkh|EE9wANjLB48i-Zxx zTlVdp)xZ4o4$;<8BCeCpEbbXzAkI~2dPJw$S{nz@r9+i0iT`YZ8nfk7V zCDl!aOXV9Yc04Z5%-E$}*VM@trFGtROHaf5j2+FH%G<1kJ3F~gH77fn_$2umlhu%0paeJaDb`sKb=Po~^gdwzV;+07qaZzZ~$ z6&ua#E9kRTcj){p%3PAs@cBtiZKb5GQmD+tHHC9@7q@TUwCre2MtEWPaic)9%iXE> zsyjJ$TwKP%cI?n#TJ-wfQ{^AXaD!ly4bJFfwp1g8gJ8#+)c@9r$(Z8-X z%ysFv1q7cfwW%C0(u%72zGUT%8Xvt}^1N}8X4BXo{Mh-6W2Ini#)+Nz|CYYI^v>!0tE_iZ4$tQ^X!=xNhlu5+FFJ+!vM&guqZ@SL_E8*TQ# z@IN`Rto=&-k=ELoI&IyNjaI(A2&<78w&ozB%ZP|;Bx?Wmby~I52`X#o19ybzPQT!LQ7yaHPy0>|G_Sg?aGu<^_WPE}!nf8g zoNstmde-BcCKJ~Qf7e_cv|VfG(wVDrlvZf27d*ZpSh8XFlxfNjZ=M&gmCRhUPI=Wt zw(t;*mX1{6suv5jcRxFHdWuHHtW`RyIn@eEc{8?eS)g%PyW-iEXt$^%zq~nmR(_hD z>c$)pl2f8+=H0ifM)2W9-Mx`@CQs{G1&zWh-ef<#xNvH&ikr-lYfj47f*kTnPOTM{ zEj@YllCoH&qQj~3)YKDa7Da11o>EIm=qPQP|IR1xvS3ZW$Si1HKBpyG*3<0MgP2MCq>@72OYb6&Hl)_%`dMe7|DHQ{~UZK z&ULk?`7-CcyEDG|p8g-s(PQqG6r!YlqJTZ9|7J|ggXP;lA8#%H&!MXD@vZmA^yAG< zyY5Nv4&-|KUCL*fs@762wzYd4&rNRIw9E1I;?1pH3ZE9c&aPaMbluwSo^QTy0?V51 z@72zQ-e2}@U&cWLh2`z#SGL`lVl8@ZU3C532~##N>FbxCCa+z(D}UyZ?AG^uwLN-< zbHpC#?euJ$e&A4LT()z+be@Opn?|0OF`tta$FDoD14vyvAvw-L1jxx`?3i~hP_QO{;v7gMcQT)DSKOD+C!a~>H%WyINNt*bk+P=niw_v?|@AJc)e`;)me|s5S zu|LkN*wue;ccG>F=AE(9lRnx_d}}x1rJdkYJE4dBmh7xm*;MNqyz5lC{hovG64e)K zN7$N8a+B8D6sDN_);l0iSFiu2$L;WiqH_fdw3FAqsGPpKOrvkVnhw9qx9CIpS0=A{ zz+>UMsA&IHBdysklV&CfhJR<$o?-3svF`2^MRT>yH;*T{>Pv9PqzQud1n4fzA4A9{9LG`@`efsIdIPn!MA&)Ga_vGry ziZlL6wcV09<+7Wj#O=%jdP?>Ry}oMtD}Cl}*3EkAnCbsW;#Y*o+tnN5SYA$;_u|9H z$%psYES}nOSW)OoI% zr`gg%-rPr(Vxzh-uCO&ll+sJ7vELqx<1qTuw=oO(1uq$$AUXo`Lsor zYi(##=Pwp-+`Qp?ir&&UTBUNk8#e6fW)7-b6{Tjd_EfEF;hT_0+Nb-x)2D8VlV5uO z^qau4S2`<0Hg&HQ$lN4cz9sMck~hB3PfW_c)Vb;1nsbvh@-}`Qv!~eU z+JI9p=2$&e%}AcIbZU%HS6xY9jo#@Fcac}O{mvTCIs5$Nqog)7{(D7j`Du?LjOKL} z23B(Rhn0C9Z}00AJ7_1`J4sYRmwW5Klua*|yZdHd$_?wSEBAO`H!;m>iuK_ow@PL* zrESZ2b^rJ8Fija<(T4TEf1mpL>g12ECze+lyFbqEF$r$w4l+F}?6{^og{$!LQALN} z6)QDXwk$m9Ay&TY2 zrYC~MRXkZIZhpN|axJwqT$|t)^$cKTY{J^UPu&=Ey(19Whsh)7Qyfn>#lvFr4dTm|)M@ znR)w`En2$ETI}G;gVpUbrkQQ@VOYxCxJF*zb4hcf?Va~$6APcbe6ltmg7wOlPg=}B zlI*6O3SYxk7v;QQ>oVbhc|L5*r(_+ybe>sRWWHy;<>Eg&O&1)j8+Xd+a{FvCzP5>{ z#eZ+ni!hk&-1hRfL)zm4!RE_r%hsenNj%B5 zZ-LwG*EgQl?eWoT%>5((BWKoXuE-~vd@7+coi}Pd=9}^Cb-=GpQ9Ji1PUBs0Nq^rL zjiz0lU32E1zcp8#zjvmM+bq`K9~n1fyizS$X}4jM(3_yYyjfz!lV7+ltFySx+v*qg zmO;+G&{|5py~6p;f@U7GcDXpY?=Pp$miPGZ$Ewt^VAqi=7Yc&T&&a$twaGR9?-U;A zzGTfMdN)}m`Dfl+ebZoP&Xq%#bq>Z}pY`1N=JK{<;qSJDrT$(mzG14Dd#OXzv)!++ zyqbAnx^c?fZ|e>Oxz7J?tsy65u5oMM?L{w|t}4d;=F&8H=wEo>PuEm*iB<3NJEbqz zc-qR89JB~r*~AjP{_f7jnz1$CgRbPUEq&qfp~mym?})h1^Y$|LAKGw#XY$%+>$aO! zQu;rQ`)fB(xAyJ$ED?3<`qT!CFEigUgiX53ySDNmyU?9?=AM;&k~eZrolmG?U9U99 z%Gp5hq;bclZ*|h1ojxL&;jIO!tBfqX9v+u!5!v+R-|oy_<&|si?VQ{7O6y`~l_+PI z#-_sMTAS4ZLnds_-hJmlTi9KVZN;Z;XFF`#@}!J={@w4=MfX%*u4&Wr?%Zm9MD)&H z#iuO_-=FzNZoIqa_j+@=JEgWC{<7D-ww=@c|x$%rSTxr{Etn&{Ea+K61 z7k2IQol?kKGP@`+ zz1G$5Pip*pbf?HzLQj4BuRjef<+WyV^Eh?l7(a_mDJkqU58n3s>(UvfXM|dw_xzEY znd10q!$Xhr-Wv`yJauVynzZ!c?R3tqIXXKfyJyc_x_p+9Zsh$%N0y$;+>sc+)l1Jf zQtV4Z!BgFXmw9YYy$PJy9a;54*(7oEY0d|+p|_&;3-Letsb|`7VuP3U))e!=7D40p z)9!BYGZkBTx5tF%^LyXDUn&y!f7mzSO4r|Q+pN}PzWU2)Za!DwT?tqEfnD7mk?YNF zc?(XT^{Qn30j}fI-mqNll5COHQNC;XA)r-Aw!}+!3U}ba{&_;*CMaw+>0ViEWIHLy z!PdC+=G$xcilpLVm5M8`252?Zib&aen=UeQaMjJ47`swL_R}8=)^Ec3gD;ZX{bo&BRX#t^$_bS3O_fknNPX%oHltg#BB<8x$ z$>I@bJg2lhN@I#|?|037{|ObP|EyOmNsPYfR9rik!Ht#g#*MVRG%d}eqA$97BqyGm z>e|1t-*TbK7t@x@yE=0psx3E<`#)jpuj1F9yXN%SFF1WsSlh)V)%)lBwEvtgZibB8 zj2UCI|G(`1@9uc(zww(RQ~#!?{*Sy_ANFlN5_5m@@AIN|^SV=R%Fq9@d_wV;lsO%f zFI-J%GG8dNt8L!N1XHy@TUGPcNv3mO7cYqCS&_FO|FQL|#N6LP>}4CYe#Bl=$<57) zFa7Yd%s@6i#%}`S;+v7zIP%ZWXlt~+>ved;b1kkZrIP~ndi*jHDiWENSRa?&^gQ6> zlC1K&PeC6&k2;?1n)KY3)mr;X`)xy4!?roHGrQKzepeA^#r8sO-fotEWx?y$d?@9p zn8VA{yNmVG=EoWHUT0KW%(?91bE~NCw!FW8T2#N0)cjxp^_<@+M#8&K*z(&;7n!Vh zI8*nShrnyDlPA91^Q|u{QtAj1IcD_kcJ${m8&k8mQ%!E$OQyctXgF<>Ve;JXzRVE^ z+)m|PbaK3DmU}^H?IEUV9w)NT=Q=-r-Tix>{Pu6fU3X?Ec?s(8;w}sLB($z>@9VG9 zO}2MplBeB0*jwJazvSNA(8F1#OFJ(vKA6Js+GwG{M6TOYW;(p$+q#aQ&vuEZ>C-c| zJo7#;Oupdy$7#yMcJ9-1PnPZ9A;BYDqMN(ylX182Q-+%0cKJ=>CcB(N&V4z&FX}+~ zUtTfQWB(qy=$tc-jA07g^vvlR|EIddNptcI%0KX|^YP2}-d?@*!T%-ecS@T$tdNmp zRb>78s5B>VR^x+)jV@_A6%(iT#Y|rwxNX9+FZ0V%XI^)TJ3G6hcJkxdCuU6fsGV`A z@0#_Fm)d`Hj})!GoG^Vech+r1M&sNodzMHYFLJ%QK;1uVvRQ25a=%3pTVF}7l8M+` zlIgG}Fyz0|Tj$=mzs6FFH(fpWGVso)1C#Uj+M9+yblX!Xe%kI_>ZuTxmw$tJ7=kBH zeifkWy3}LJld$loQYi(ELMM5RCNpnYzM*pQuBW#Tu)I%5`)s`^?ZtcEQsJ=H8tRnRpL*Q8=;`|l8v;LP zTPU2HEU$mO*h==?vx+J=;XB+tMxKm6jxC1yLOi@O>O@Z3nt6#6`A)3jyYBl}?#=Y=5zpW5Z8Hnq`E}odbiR&kLFUH-wujfr zV=%$+_PqIf2)d z8rvpC-bvl`Uz+FPzvXgG#_ClpMtlBneH6RV_{6$D-u}YuMZd_BB4T|YjcN=@im zTJQ~a1u=DtYEHj`X?J+sP8QVY`2}mHvvn0JojT*+ztH_T^OjrkSFV_9iwFy-KbF3< zpf=B9X3sUH)h9Yn{Q4;${dWJGisZMG5}jKPYR!1(!gNym739zhE@mcOkyi_JE*3p= ztf{Ez-u@xuPhK4V7L#OMyW97j`Pt8BoR;)hd!=X7sR-3s_ZGZ8p&Kb+aa_D&O5{B; zZwq6Cu=UrR?k>1`PkBV4@XaWCvN3x5owYjUt4~erdnUc)_%gl^)sG(j|9|IBpzV=& z4ymu=zTZ7x6}6yYlFvs)FPTMasyO!xhKUE=UFsC@{qG#5Pgl>szdm7w>(oaF-^@BO zY1UC0zDM@XOU|YBgv?p!wQ6bIyR(v!4l(%hBoTjW;%hI4}-Ui1$pOn}tr146P*(6M8 z$sC@xB*B;+8-Feh>M}F9;?e2b$+a_U_2io+nNy=8*_da(U71@Ps`=q?T<}H7we~CR zPwOt4bLzT@%8{%NJGHN6t5@&xc=njP&_Qx>`j=I9XD0_6))t3Yb#fRZ(3qnE7YC4;5?Lq5 zlN-Ah)oq;G&^D`cgLvK@w>KRY}|IrXM$+NxdQV%9r0tlE6jrLMHBlRNZo_DS<+VWC~qpM)>IcP>;k z?1IZ`pbe+@?!P~7FYj($W^k7Eli2!) zg4!9rd$)&~XA8d0d!m<8w*5>M%V(ieuNwE%Y@Bm;;(}jSc3GG_n)On6?|rr6U%&3w zIK}^C-`jF!;$FtvKQEp>uK#r1`b`@z%)8HC#`AdFQ--5f*;X35OW&P*x?xw)6_?vr z7koN5QU8*;z^c2hr*1oaem6g>Jmg5g4olX%i=M@wQ=S=ew5rMClE2FQ3;U<)F8`Cc zKKk#4xY}O}qr87LcJ;5SdnDEHV&Nlp!3{5`&C8Z_p5peWyIR(0(|eEKR&Kd(&slFR zUwLBR?{8`g7BRe!=Ba(&yWpH`$OEZ=Z@48RKHdx~j{oTM>2lekJ2#fAQSo#LMHW zoIXS`-2Za(haQ0hgmz9W>1X$Jg=&e<#>!rw^V#UgTaB8^;yNU;nMTO0=zuR>^tIMdo>sD2wDC5rZ zPWB7W@4S#)8GY5cjhzQ~SMimcwy@%Pjv&j&Io2o2wsl z)mHz>m#_2e|7b^?z4u+tu5QmGt~Na@mh3j$Df<$XF1>jf_e$-^FQ1i6UpKObihZlD zSrq5(+V*#z+)Jh<_Y1flD2Fm!kvo^Ymi=Osz;9hU$-|{ncl~7(j-SBF_dls$E=5b? zZ_g*83#TUZoK}t1oVYIOep%SD*!Mdwn645zgf-yU^Dy1z&0o#ZHMx~|+?v^W zILa43J7?+Z#bI=0$;8M==B-ga^UIH^uS(l<=xkPtFlS)++&ij&Jf1Cb4czl;>w*2V z=S^98K;uQp^%p`>25FmKyDT<*GB0!835n)a;q{5UDXF@ds>weMC(b;Ud0%VI{;s|D zd9xOMRf^sEx~PuhWK}*tpSPw?QNapdv2Ct$D{^G#9OT{Q&={w|H!ttOsi$n~BL$`x z>?{?2V65u0lVLl9!*uPIvOQru9~O$Oi4nM1G=JUIBavUzcQEh%D*gM1SjGNkn@YhC*2m{L%GF3*`TNsk2u?_TILLoXNaM=4V~iCWnJe*BVm}PAy+`M>P4g zb=$l2nf`)`7bR{_5eS^S!F?_J+IQ9Y?i_0ai`jiF>-V%g$(V37yK2^g)MuJYSU>k^ zO1!g)jPaZHOYgSSA3>S!_g5}{;H{k7KK0Rr(uM94kD28zZYsX0c>c!w?5$h4?tClP zJf@s5t$Z(M)L|I|%X8OanD_;bb9b0qXjv?^zZrRZdF{$A=e6d2zgx5@Y6Dy2F_-Ax zE4P!qD&nudFMl}u-ntd_RoYCa!tQ0|vHm#y@&C%z4^3qjmfc^-AJ{mD{fEa_Uthtx zQx&SuCVYSKvpm0#FaC7!yuy%XZp}n}v^gh|AN*spr7_HXMIJC?Pfw}h^* z5tfa7Fr)S8oHgm;&n~1^A9$IOa;ceDe^Kb`1?<=7N(Jq*Ozrl|2+BYEjMI+wn!@i_ z+f+(VEq~K(^*-@cQhk2^p(nhh)5<t{vPX6=7>%v_xPcBbu}`spy^ z=9s{Wg2~|)TeyU$`pC>$pjp^(WwrK!|3yvT4yk@)(5a4{^7r(Q_mhPq@~$sgap8P# zh_`CY%4zdfZkpyWds^z!y%savCx-4Ty42EeM|`rO6kGFcCW)=VyT92Sj*$?y*AlqF zdV)zH?cgilRcvo=u3h=?+RBGvR|{6pNqeJLGgIx>{Q9~`5xcuRe{@O%6J!PP77JZrp@=D>1n>Ynccnq>urjBE=_)7R<*ce`52r*Jjy zRETPQcUgS~FWa@{@BjXhyA!*_LH)4GBbLWH2W1}Xt54DMli$1lYo^iN?*^ZjxCky; z@bW;NzO6{YqOUsDaoc{E-kckIbB#sNP5*>m=RaXmdvk8>DV)df<^22H-uSe?-hDYA zC)Gc=dT(9n-sR6&4^MNwXRq>LYSOve9G%ynwj2>%qx4>6O=a^}qtg~e{fAeI>q!S* zR9sv6d!xYBnSZ@-tIJH5Fgp=u5$FEW;}Z%VUQ3H5E@dUj}}H=Nx8pZ zVHwwI&08D2*d2IZd)<#Jy`Q({_qA2O%X06o*fgoNyi|Eb^F@E=zagBRyWW5E{=IVD ziKk*-8Io~&zu%pCa(*)3?o7enm#wAyvcDerf4_Qhq|;2pb?Kk^3u659^jd1HT0eZg z7qo#nf1=8B?w4Da@A+wGyxeAw+448H*e7|OoS(;@8#_hk!_o&STi&j@rgt^>(wgAE zP8<9}?|o8QnYSWcaI28kr&m`d|7P0tkY!8!@(-)l$LM;c=bnviGz~5|YH@u3LaS?? zzfLkPSh#Nbk$L`Qe?N6rKa!p$EdMnp+-$C%Te^OB))p?7R>5%YNw!ivv%7;&$9SAQ zx0ko1W%IUwwT? z;DP2pKkc~CyP4_-6mLr03(UJ0C2ao1ZgQ#VoCO<%Q{LUN^|q==_n#)kYZ1M|c1ARkvu7!H~m1fRQ^mB zZ=v}WHue9{f8V9?AgIx`tHewE&K={}66fza{cXK|(b_7_cG#3OGu+gzXc<@HOkx8DAfr@nn| zId@6C{*1TY@{|7@D~|P@Q$9I&mhI2y{{M^Hh5fHDNMu&rk-F@5S-Py}j_5;e?{Zva zPHC%cmtNQ0^LN7asK4#)4+N^G@wh$t)o9;a&hf8BqwY(v)wD0F%<~Vq&bT4-`r#0*!FPnb#J-bQxp>ybrFts}>moKj4>Ph6140XEuqWQw@j!P*#`p?5V zOY8ry+pyN_(T!DaqP?1Z-IP}=cF){?W4FVyhbdR=+h#A#Oj2w0$hfZXpmN?*_rlx# zD#yPifBwLIuC`Z z?`2hG`)vXRkE#TSPjg(fgtgdt#SBp?lQ~bdN+*eNB`%L^KUDtHWB!^2AHVPXx?cb8 zhHd$lJl50Rw7uQkcg%dnrQ5cL_j~{H>!0=`@so|Hn82r!B`3WuPdZ|%>$%r@^80f| z_jI4`PL-Rp>Wj|$YfGzkZ#fgWMec3q>=n|rUsFC6pH4pACA_LvcI%?trH9X0txwvV z`}FJ#hZV9*PUSM!)bu`fdev)ox1rnTx+DRwQUPYlU~BouqKT+1p?F&K-Z@&v}-Gv6!sN**!0qvUm%>$LdcZx=EyZqz<+ z)wFKW#nh5Xb97PIsrWlFon?%yK24?z+NSK!3-5a{|5E2ZGk(+0+vlt){&a47#Fx7MC;u(4 zJk4ne@?QAkaj5g{fUc#=?~kt)VDr7bKvcd^BG=QR@B3JquI zPx@!_*eN2Nc!+w((fRujW( zr@B)HF`hraO6yc>|BKSOw%f4qLH^V537eNJzSVlpaQ5YGSrH|X$B5WzjBT+o2%?|50>RUHGVm(QBQ1D_BOYOIkT2~Ui(+Cd)v+Lwt>~(ulsgys>oIL zzJ7JxSCzQv&fR(RYablTQ$r&i{*HNHp_H#@df%wy5r3H7?^8+|UV zW}RB%=PEY8?E9lBUVaMY29opr1S`3PL@xEkK?pz?NmF{aktuHS=aGPY6+b{gQ_f~mWVe!7=P`>k;&r+v; zT3__txMD?L!KtlYe@y$Al*%fluT`JQII(JBXpKp_b7|C^B@c={Pp@rpm|`q?Bme2A zFDbJA@#5WceD170lo?&F`a1f^pRHG}NH?anUM@bk;>E13X;B-VZnjCyxqtDPl=GRk z@97hkhA(g{vD~h_ddJO=>+SBn5j|mFe8bJ%-lxAJbf%5!-w9Rc-}WW=M#U|A|8#Yc z>^qSkPbROQdL~Qrz@OgrGd5|raXWV<#jB_`ur;svB*3yiP-Dk`S>J8%e1*dnyq$Da zc5>yd2?u6x6MN|y7vK5j>*sxm&(wQXPTvr@^hFzQZ(iP8?t~DvKsT1(N)>OXwppB9 zzaVP%#nYE|I$yN%-C93GOa1lhIU*~+_(-J$>??rk`r}1ujjjsat!u%W7^u zU#-v7x?cGRGy#4}TUk=HGcwI^jV*tVOsuezN4Mey(( zxgx>EyX+p9yPbMBKd5}A#7y&}R(IOdEBUAIR4snE_NxB11G00U=-K|Z+*AJdj`+UW zk1V?nNKH~_NZbm?tB%|F4){E>ad z+WSn5(7r z&Cc&a9%7tZB3EtlzqQ$YbN6k_Rrg+juYLIXuGw#5_{juo&QCE#Qv<$EI9;j})%+%{`K3^?{;sLD)jxh+3}*cM;dT1?`Lchn z3LF18yLqvAd;YxzyI(nbye<9m=3@DI`F-EwYQO)wdfL35Df_`ZuCL3rnpei!FIM+Z zEG}?ht?zdIY(9(OYGR7a*=Nnq&&$c~t0<0GVZT4`yj)zDTCCG_&Kkc{tN*xpP$ zwp>$rY3a zo3*2nxmx>WQ_g{tMPA1al=E)R@tFKfEBWkHc2=|4o0lp++zVc{&nGkUVM|2-<0if( z`_1-9__1*t2~60v%2qaX3ujth3h&h|wINd$*%os|ONsumzWO`%?&jF5|EiCReoH^*M8#ocH8#mS@Y?~ zEn3XQSSIplgdFJ5Pd>VQIUm=a*w`llVuJIvdB4gW5^LQbYd%}(oxWCs(%A&%@A*8b5)Aw@sMdH_jhyosFm=vC`S2bvempgQ2%fF^jh%;*20>Hg?W?K3Yd`=mHt?75_V82&AG78 z%WWBRUeUan7W;aazgio2|6E`BQR^Jw2-IAhD=7Zc<@ zG0$w9S0OL;t7z5COXXR1UvrDwdZ7uh|J_Y|PirU!C}*mF2Ge4gDv7nPbf}VkYU9a#j0XiBC4T%;LMb zx#dml`Kiqx_M3zrDT{UgwQQNqv&+*JJa?Tu95VSGE93fuS8AUWr1Bh?`Xt&!Zh??w z?n^H(2Mr&a$l1BKD?}rldMbXrnUhz)e$unYhM&5gIcvIIX+3jwgIE3PTGc5JT;G~4 zky*Tyhog5Z`ycnC!iN$fMU1>>eP6w4LiuNhD7TtrjjC!I6`O=N$Fl{fB}TPZyNRhY zu(FwL@vLJjTP#&kyn1;?_1;UdhreE5vG)75ic4o~)~!Bg%4Jn#6FGTHp>JxXoTPu) zt~1f1Ghc7&Uh0zTZO>e7nVk6c-n_3?JJ+d%uNLnPz3t`4P;PnHvLtPP+3~*0H0JF1 z_?HoXXKLI#@MrPM@PN4`?|cfuG&4+fQQ@3iytmpXO!n$a(mTU zWM+_m=Sb&rt->{vr9@+v1peic)X?kSsQ;ZuI67#)q17kNACqp>ez?@b^oe)TX1&{A-$d?OD8DGQVRmofteEF>zZZWmdwP=N^68sLHs9-= z{r!s_U!lq5SuOR?{>63u37$89i-_Grs||Avmu^n1`nl}l+^DmfpEtjeIu&huiS5m) zYtJH1JM6uirYUko;AWV?Ef4inzx1j8x{Nn3D|J5z-}%4Z+Hc+VJ-@Dh|NmAas_?)3 zk+~XW@Bjbx6WFr)_y1S__V4+fF9Q|$OPkGa)c<$`8J^jDvF2ARVbR_Je?V|{+FXv3ac zzc{}gk$tA-QF@#?_GC|)utCh@x4BY(PHo@%X73C2)jfI=->)rR>~r2OGIeIQlabWT zx;wApvd(M!1z)Ricl%YqL^{7!c|F~4B} z|Ev57Tc@pFbxrmAp7j@0!=FCcp>E$Dcur%ZR#fc0u-c`(=Ra&OGhci~d4WaQ+uSLw zLRWlK{$EYl(Ef4Tk+7GxbM%gXXMg0gXFBuuTJ34` z!=1`f*XMn#+&;(0taT#Ow+HVW_nxp@_=EA>;_ib2evH*$)%E-T-xEY38BB7VUvA=|}*6aReml-_js+|~P&T5n%&&!1=a=hx4~ z#dS04K4^SBaPfJRi{8BbuDjiRUp+dxuri6~jGSq%?#s*DuicgYdNSynovqJ)+b#F) zy!O{#nXqriec_p$n`Gk~eT5ZFt#4*+6aRVH*Q-W|bz((O_W8Kvl~-F_TVp&}RxY(O z>2NOI;hwN``>biwn!y%p=DbN?l4Z4YQd!AG^^}I9spq~v%`CU-|5Q2g{L*CQ#K_B6 z#ZNw2vQV${vum`>lH?bTekbQ`JFvuKf6_D?(fgcg%*EOhnabRDZfX3{xL5DVRn8Bt zJziC88>$`R#Q5vH#3mlQd;NWe#-2Ts1KRaOBt50nBe}h9T6i3A*L$GMRFlF~ziOeN z)r!}0`&eyH*j}%B;dDW--a?$?qm}vsq7WIQ3oRce~xh8?g?OcMa=Y7TsJe z{5B%RTlB>26a72BKM1L=p78AZpBl5bhYz<^xckun%O;Wnz`VapTu-O z{B`Aiv310Jw(6g;%hqLFSlR!!>av1${;_R4eVE@ZNoDFlIv-RbG^3zF_iy<~b?SJ~5Wqpvu} zV;=jziAP;mCF%tF``UkbmQ*v@N9-@Ri}>E$K6>Y_$FsenyN`Y-4w~55Dbi@V zsbEW&UT~vT#&(hQE9K@M(&{`QvRtFYl&&T#$D3WzUf)-QeRD zUeo+{iCl@AUixR{%b>%1m%S_6B`5SJEVQJ))V0ian$*U3Mz&WhSKd0$ws?QHWeZQi z{CJ+0D~*BkWE;cXpSv`yKFeVKFV;fieyGCrgBN~R)NU?++}(eBZ?yf~@3LL&Hy<&I z^51!M-9#gzVXqt;|M8DD8LI*gJzL~e;utcIOSNWN+w{k$S27$c(AEyvUa?ZaNUiCN z#~=Bo69MHew{QH2z1m$nH}m-1P>!0%<}ZW!daE*m%2qFV?=o#gG~-?iVpFdt^@5SG}QCv@SHE$ehe^R!wP5#TnTKk=!gpyUge@#+f%-_DiD(_!;(QT2X z0f7Zi*-ZXCh-E(fi{aYS#r%sNJo;91@y-A5tN%$GycRjle{JnShKaxS2|U!F%rw;hmdz-qSf4i9^ zJoz=(u9?28N+{;-*1EPw5uYlTEy;ad(^e4KHe0lOO+$YAJ<*6OuMY)H@UfpJbWhT% zZ(-WeoA1w>9(=X$c59vd-MHGdlb&tev_wiKE3B>gB#V#9+Y5KgCrIt9S}KlGUJ1o4%*n){Pgagd7Judm1^Z>Ryr0tdUZ_U3a%7K{ZrhqAOtF*d z-mka#`%O4lNbXJaO_8H-V&go%ZZr4yTRLyj)~}xH{>i)Dny@DJ+Hb)GmILlL*z=qJ z)@=B5_rR;qho2THNQmd@SZo!uySwYdTBYXmtj+DA8zLh1c;@l`W<8+V$Ft_q%HPw3 zSp?YC=InLZm}9Y9V)g2_;I*pu^Jf$+_{GO4!^hUlyyT(VOzGAusdM%;24BznwXS#F zWf8H7F5gbwUw*SwV9B-LNsmq?9S~_bU@tLYNx!*H(SuLPTv={^Ziz2-NcOT*f9>_` z1@HU|y)ME>e;=$-xb|S{i(WpHc`=jwHc05PuIV&axLu+2tjJQre{!Yph8yy$=35j{6}RqFiy z%I)BT0?U7y?qSVf_CB<@GW&W>t(srfwcGhm_Ivtzbar_+xt=W9#=<*J6)f|zwhrv2;xJ=9e=_2oy5z>|uu@?!!?41E8EcWBtO$ujquH$|#D z)rjRE(ahn9QkqnLR4G!$cjIq$iHYZ|kN1AFI2hvFbXwIr;=$(Amp9i2{OoUhm=qfl za82X2(4GQA#*;sDcJ8@R{o%o{U%M)0&C)+#W_MpNzo+u|6UG}Iy0g+xe?IxVe?j~I zxp(56os6t(CVt~`%Y6Fkrenza1v?ix?yBmXacsKSxvSoWe}8yQZmeo7?q0tp((G-l z+NPb}+YjyQ40Zpe)%IfL>->UeAx#$P3a{>;k7IwOw$RJn^uB(ag@o)v#l0^TwV>k>sP)#^hrI;Nj@Ut9{+ut>VJFwzj*q2 z`ugAN=hx^SIdbMxwuLFjOomNTJEwAdeE4&-c>C;ECyNsp)&4}xGI~@hcuQrGsaB+V zPy~aQZ=Lcj`+vK?3+9>q65nk2!pH8K{9N9WbPX}k27JLYc5rQ7+xVx551Pc^5!?)b&L_dxmDuXhZx{G>kps4>`oSM+V?PwCF}Gd`6V&A$C? za#wn@@~#$-^G`Cqwd}oRdu)Gi z)Vlu0g~vmk88a>zs(1gH*m1A>;E9PT$0y1*yh(N0d#303w4^It+pX>WKivCrB+6|A zQ(JoT%gms8|9)4^ntNRRL&UYr%ePL8yNh`&bLh&L^LxV~KLF{tHCu;AUO zp89wG;$KUxn+_f=nksdp<(kvJA6I+7UtRlMw6=Z8w0q&rF9YWI#XS2fYWTjn{Jr!f zc_-Ti589tkGM$&f%y7#nKjw3Rmde?~`6u+=x%ub%DjmDW81(hAstD7+4rR!`0#!OnMbQw?!+^`*v4}tp5f6khn|OW*Ke5xN?V7PJrtkM zFZTEH&o`eAX_mA+TJuup#qzbC^2^K8J)<5le>(em`u(c@c)7~+^8Z9d_}umPZa>er z|NA^y**fp*j|wIio9*z>S=R8(;l6G|GGqBw6&|KZ8)qH;_+EU|jR z-=KACg;)7J3{B15=3+d<@9ZXp*a=*DJnw%;s5Y3sPJZ7g{^E6%#lwbWXSof2&n%Hr zYfs!-q2X=x;NI%y!;xm{Ti!7HKD^w%o^P+ae*7NGs=s#^FP^^s>l3-4a}Q(Z)=1qr z_3OX|894B(rJPnsLocWA*(mWT#pV_Nv*q{r7~U&PiW98L z^Ndv}W%<-5`6h8`)0L&lky2-;ZS-8+C&6LJuAsApo2|g?@P#*vcDy*URAb+aiB{jO zCVG7mzR&%(DYp2HPOujnjh`fj5Hm5kVM?H5%A}&5LzdGTQPu8!`s~5@zr>@RAxo~so)RT6B zb62jK@QjP$^*RS#mi6U#O+A(^eSC%M`-|Oi=iHOG)+k3b}r-oTg%06C*6#E8I-o{*wQq;-LVfU8x_9oD>-7@$+^_` zm@1as}E54l$-rjLI!Z5ab<7%}ze^+P4ylJh-^qcc7 z`ATz(@5Y18r<8N1g;hN0Yo4;E*j*&Ju43ofCpwkhn>Xctjm`?!+0%NKNlI+#bcr=r zHr(L3dUehX~&E`+_Eg%hk1yrdVrysy};uQ~RC2dmg{4_P*6{XHWN2 zUALNVMUkh@%enTtO-p>gplU6HknI^k=OI6AaF=?#mc`$jdXe>*$<169s z5*pQ$HVICx5?E}wk+pf(P5+0%oMlU{O!!^$E<;z=p;6EK>_NwQS_idEc9ym+wNhw* zx}r3U*PUDZ(Pi1*8&}*nJU=U1Kw_wJTGx3BGcb?0@< zxyltQ6n-9irJ&WX|D0p~=IP!-t*VQQ93NjV_-=M&z4uP}XQkd(SN~4Eq*86Zuw44l zw-sKxvFlrR3A03tu2OcJCLHqmfKt(&bZ;~x7>?eck;TEc9FNP#$Ga&f0CgjEBi$&^}(5_ z9{~@q*X+)SbRc&v{-`Df{E__xAk0jQ!iZfB3GP z`{&_@g;oC#FFq{p-oF0o7Ae~;JsSESI`7-v(!;w z(l?H_2|HZu5)9OfcyucuZ8dZ6N@=OZM%%5J7c1}DylazDRfJkaMBNQT^|%|WPNY0I zy;n&=>d3yRk9kJB{Vp&(iSQ8F{5kaKlE+L(1%5ZhsItUOkvzJ}@Df7}j42x?; zcR97?1WjKuFk$*%==j@7c*GrgrCX z+o%+8HMVs7FVFh+d!YT!m}x$(L3K4N_lL5ux~=})X!`#|GifUnt8~i?mCfB!N!;S7;Y`$c6MoihwRm^cUV}egkZtT<7 zlLA7*&F-b2YA-exE1rF^?)k0N`l0!YCw9y2R2G?S>s>Tu(j(cI67F|Q>>U~fBtNdz zeV}o{n6)ZYs)UiP*<7LN>UvL|+!^I6yASQ&e8$?4sixmld%1t0v_-96!0RgaYVRb; zY$B_A>@C3G*`O}Q)gw(@>#&xHtv{so#B85^f;-FRBn z@#{77(w(bveqP$t=ph@|%f2xuNP5k`HE%D^zTaTD?}qY{w#9lLnb&vU`+BbERGqnP zWTcd5&^F}=w|!z9&f7Ih`)({)@#mDE=3O=!zR$Z7_m|H;AAUOEbBgD#RWH{+eQADm z*_(?Szh28V{C_28$x-Dy9fFf9*4&xuzADx#LMW{>C}HwO{v}fLEuRMl_-dRinHqHP zR^YPrx&Gc#la{sIJJrk zZQ=(e7R<&vwYga zj~a7$*JW<8+T40Fl-tU~n|&d_>Vl*Tu4)cezn_`^3DIJGDw8``?VCo-n%nZv1s>KO z5pL;8$UWxBXdt^I#OKTv4Tq0+vz~p8pLO7boqBCLN2koBSxH|@EImc7qXYF~c?^~Q z?G3M*V6%mxQ0xF#o3N?H#YBDC133m~{`{29n|D7ktFHarpH+1pJ$duqU74_Aw}pXl zHbeHYy>`2QzB?Vh)js6E-NF67|Nft>`OQ=C`tSe03Lm0h{>d+t2>the>i_zu|KorD z4@WTn%l-XdC_ZT+gWuWm+qdt3U3T^7m4l+EUSz+~IrnJ6yy>qZ(HB~E+wQfT zX?hUnJ>$!3r**2aKIB;P@xRa)2ljjZ1=FULOK))awj_POkMG|6z5C?+-3u&#JgNS3 zY03SvPDRr_>U>+)vmNI5t*Y`bUE!%Na&>lF&f;&}yllE_SH!=v@OKPbC@K2-bZ$)K z!rCQo?CUP%R?4T|laKe9{_Ahi9+BkR3%%{UPAuAc$evH_QOw2oIh}>|6OQXul~{>C zKFYp?V?nX?Dos~&{f7^}Jh}Zb>Bf}sE68-8*&Mysp z(9Ql~Ue#}hvhSyFiSr-fD9cEhzGD8=D<1Xss}iy#?m9(f9-h6-Y1-qb8X69}EUr!8 z9k<`{m0_uS?D82~wCtEoZr)!y`Ex>I;{7}}_4A!QUYunQHkut&?NfOBMstH+T3CBu zaKhfS&-s^SckMB}T32{Kr0xBcNmp0CF}%Zk=L=V4e&Pg1hF$hWZy5X^@|W!6IR5ae zMycl!Qocju3{v8q{T|NZW!lJiNn&GSXzQ;U z_bpR2AHLN{+s&NiurdDaL*Yd?Yd98Y21osq;%Wczn)`vk=bKMX&#Y)Gc`#||#)Au| zXfe&s4s%HkRZl6k?m9X9U4;Lo*r-{0f6t$ue*fFim1(})uWfnv_Q1ZxTT}L5diyuy z)^Gd!Yja5fY0+4oY^wiWEH=1-YXE4lXN?sPSqHA4KcGtaE3ILH%Sq&wxyhlB3wmdPpw zN@^09bls{}$>y=l-EJXtbHb_A7T+2^`@Q`q&$iwuS(1`g@|dH=)5$}nQ0(3;)vkh< zbzchoR1XPmR+xU9Kk)LLmm-;)UrRYXn{ua8;px1&ZN}+-n@@>3Y!r7k&@{Tae(kL@ z36~D^g?C5@BxIle{kZeS^*vT68a_A(-jI^p5g)zxe$?LySDLnbdAI-Gg1*;{Kk6Us zU(W1TWV|HeU%^WE@X`lq?DwuOSonG0heONWYk&W-Z^q(Zw&EY+oG+#kt0epQy2K_pkrk?q`Mm`tS8W{^ft|zx7N1umAFY>c9P${{KJs<-dSFcaMGJ z@dnlT?zj5(tY$oI7;sPY%n{GzjV1crM*D`~tu`_;Ilvta@++CQskdN29ZppS_-3TPKQSFni4v z)!M2PCT_ZO<+|RbPqv=@*}l(Lf5qlWWw92F@*C&%hseI*sSCQo68Y42@ge1=PaPgt zm1iAhejnjCccI#+MIq-?zRK0kTDMdqwRV5oO*x+8DuXjG4;G~I=Ughd^~YoKuR_iG zlgqt#yU*%+v(4n0*KrOt?-d|302 zh0*=%rOoF3eDm$=e?0o|wA`uY$GfA-9tXa7?avKduM1iddiQ;4nB0A z|Lb38->pqmvS#Q%aKcEYjeBD^_kwMH6Y6xfNmgCWj$U8l7qk0J^RjiFQ)Ze!xS%^L zyWzP^`^AWBh7Q|=e_y&F~z-AcrU9@b9sPrv!y#% zL&CI6FF6Vn9?z@1{$ifeWv`2@DoK?OY|9FA7NwqBKI5#IZka8Q6q9L8T!-(G!;?1^ z*=$HZG;7h(w@&FvaVma0{soIplxzAn|9)J*eUE&N@sE#!4DyZ+zl6`|tjgopxH0|3 zS)te*m+bc}M)#BJ?+IGnuMRIbV>i#?PY}y5?9+!nr;wfwBOLBSmtyuPf!q-2?!sn%4_bZII zoI2NXDRb!FXsdv&)=Rn92JM#K7dh$XxiuA@v0PyeNym%gmN`FO5&hmJcCylR@dHuI z_sv-;tvEL{;yA;~(@%DDmrhjJ>#g#CvLyevJ@$GEg6|h4E|O!^O4+*dub*7ZZ2sD9=H`r50U| z7N2%&SWmj$erMyFcax8{8@_1SdsNS$dg-k@ufCOO)$yKFuIT^hJGnEKs=dFOS{v3SG|BCNle687Nk0;Q>iT{>bl&f#VX3g) zejtN*^}*3n;u+rY0+A-^istei`aV?7cUXG zmb@X1aT?deRRRCE3B0M_Rj}mb0{)b=&X5GT}#WkG}i5 zPJ>73w;tC!-k$$jvm&3kG_2iyI>Fs!m$C%6r1nzH{fX(GE0brsHrLp^WeX4KU91uD z^XR(J`iZAF&5vg9-zI${!g}7GU)tH~I?Wp=yX@;+%$%;W>VEX?11YuKlYN9k(pM?& z=GVlou14di~Sog-TDA{dt}%sQP6_M*X?Y zz`d<%*7jKQP3O;@D3-O||Bz+bQuCR;kzaoDu^Jp^Zaw^Qj@U-2!*&k-8{HjNti7Qu z5naDvS&jI=^vSbN-fddt#PR+5CYv|?o`M?k?{BTY`>ptk%1z&CcQ}tPzFX&fu|3ss zdg??|*{umvwcG*h!A++sQi|Vfd1o-cfA>+Dn~y(yob2rW zDd5!oR@tCDk7JHmw-5KSHg7w)&PX8LsMJdJ>glr#hy1uEW~aY6dasrz>SgU)*Es8M zO>xrpyJG*m`0`@$)3;YbmehIlxozxXNjp&&UCnSfb*5LUDf8j9iu|{Z5-U5mxc{~G zKWd?%@%xRGQ}d(Qs(US)&P2SE4wCa!n6iT-A<6MVa_chnlan^681iP!3_AbRzqCMp zNm*2M|1%>)n++PKk~0GLZ{8EQb(PNFM>$u!pL%gDl{xLOrmFGbH39LRi8kT+miKn) zzU{lDBfsQ()6r*Z({hh`NyhGZv^hz1{?v69k!v2M{*=qVQ5M?2^xtlm{_fB{cS1Ir zcx_=?A2fwk`^ZG!Fy75l-_{;oVAjn1-uTx~$-iYU>!+`%4Zrklo#NB;Pkx_IX*?g& zd45`$YtG+oXQEr${gOEPq)x^CIA^D8u`BL#h0?vFj|<%Xt9DIf%ej87nRicep@Z|< z#|hsn%6C|2Wf(iH6fD-es8QK`EoaHQ>m~Xx_Pl?=|1pvIsQ5)kt83P*9~NfCirv3@ zeyjfZ?T>6i>zO9LzmwAQ<7u@b1E*BgiYGOvW;Z=Fs2*ld>|%*E{}b}a z;#l*hUxizi$=}yKKKa?@#o@()V!tNWH6>>3GO|Uk*ap- z&&F4YPQBuP<@M7~tGK7#xH+*r;7jqtRRwA%uiUx4;qHTTgvrm@U4sAVzoEww6nOx(+jbI=FCGk%V`+ zW<|mejl8DXr~-@W$xMPjEaLSp6|URh;#ZM2Yro;Y(BB*G)H5zo+&roG#NI5MqB~Qc z+(|lEnmDOMe?fNTUWUFq<~JgiEK;4dzDnoQmo4kA?m3!X)ff@flJ;efb${CQM=th9 zH@EHicVfPp$69MS(@P><9cC_E!c6^H=hiIk^|=(hv$$r@HI{j?YWeFqKo|K3c*choq>Y6+u8IZ|1@{^ z=CAiqTp-Ql-z)Mc#q#E{m-{Z;_2gVEUnHWojJc~(`~R^yww$HbQ37-^={+NX2rF0?*6)(6kfXdq3X-POE>eZf_6;c zn!p@A)6e5vh7yl4TkhUN`s>chuw2(U&GP(G%~!7N3o-)_o1gW#^X_rP`aP?6r+K|O zCu>^T`!ixy{9CREZH`x0{o~5~&lkDP^lIQ;%dXndK}?**%(A8vj1jBSSR1=gUoZlclM-B z-I9H}r+VL%Cx48OO;xLlb?+4X?k0K3e>4A$K%GaESUU?G-Rf3nUVmg19<(rndl6UA z7KUE=Lqdy>EtEf>kzKcZ|NYwe*Jp<0yOi!yk9d%`>_F`DhR8RWKYcs$%MQAPPFd<@ z`^8yi*I{#E%K~?M6T@e=O^q>fm#2k?- z+pG6^>-MHEeI`?iCtO;qba&^zhYAwT{xXc}{fT!XC1)Dh`mETQc-sEmsT-vyRBP8T zX@+_8Iz>rb%skXGf5)a*8?`o?J>GIaadpO|2Z>2;GPe&+R5pC-$nnZy!IXd{b;}(! zreuFhsY+l|Xg&O88djxu4>^)HBR4Q<_8%T;oe3RLxV@g#47NQXhjsCfNlgjtjx1=83u77mCEWg)_bxQ($|1j2g zr802DuH4o1Tk@=_X!GID3xTSipT~4NM!dIa?6F<;ur@Z-SH7KV>U4HX-!|(nhP#${ zM_=rIq9z%~wD#SJ11qLpPZ#{}Z&Ok$B!A)Szxj^V?^-hdpZ62MafbZ6KlYjBlf-9< zmuNao|FUguZ^Z8xa;s`}i~m@@WWBjx_D25_#W|mOj5jX0yKc>dAbXjPqZLdCmE|XH zKXm?HcEi<+^7-nWdz>9Fr+K9_epkP|`ePDLqICT?xqkNL#wXUZT{sZGvE_{I>QASF z=6#rH@xJ5y`h!&ge_CEWUEBRy?VCmR+$A!hz10ivs?Lo{DO0Kq=hXkMVzePcjsN7X zLn~vHHfb1~jNZO!s;WY))~t%udn-~DXNs>ZQJndG#%Jg6vzA@>5~mapsP*t| zl5cL`f0|EF4zvjpN!xoUbJ3$&G6tEmZG%O0JbWklm`swk4*7bzOz2wYz0&ue?j^|` z-y0(Smg$BgOR2TiUY&NQU$0inXedYc+aF}l`x|zg@5te0Uw?~>x_nJ3u#Eh+cH_wv z5%xPTSkJF-{$G|dE7Vr4!gaa$Pp@S^TWW-@t+kds)Rp^me{c9(C!c`T|BecMUOxHf z{;D5GYx7rd&t~(D{Cq~UOLjxnoWLcn!411MD@+%hxDDpB?$rVcmzuFW-k4|G!I`$SD&{?@>0D2 z-pxm+y6Y9~eibAq;*s9DZMRqKIci&wdv)-Bi|Ni8g(T$75&#sm73wmz6 z!;<6n6g2_i#;wtP={F=N-gsKVksTz`9&Ws+f9RUgGKNhFf78FsJj?gy+1Kuy-dB%oo>=y9 zdgAAT_>I4q&(z3Ai>;}f?<4H0xm9y6@3Sfwkp%xK8T%$b%-4VZKJ>=x#9cBWoNFTf z|Csz-`I=4~MP0aWiyM`044A$qH8mC4ZNtJna&?6Mb!gGgH)JQCX?v zTbr(Mzqv8_u=2sCf4?u>(s*!>$L6Q5^4r#j%TH)0-foOb4qvWiuvl`RjJ2EM^mS#A zUF8>fsb!wGD`*j}|G#ZX|I64I_0Ol5EW6$;Y94!~Nv`N+R2g6SgZ!rY_=oqo|NNHu zU)NjT|M9)xzuK1i_8;G8%dUES_S~&);_}DDP1;&p^R`MSwwx<5+q`S$-L|lxgK7<$Xt)*p(TkUt{@sdUtMilIry9 zdQ0A!O%uL*J8ha@KoMijbr#j@r+MWsADNi`uYLE2-U%t|@{4vD>^$=A_zU|rY>KaB z{ijDtpWLncgy~=G`kP{4qaj0nUgwL#dR$CUgFkd!KIkRZZP0!uC7p|VN#A(yw-D=T1 zy(_bKN$g|(wC44V>e$_z4|ZPL)V1Z?nYr%GnrnD=)rdM+>*;UI|JChi9kD?8fmlVu z#I!%(E+zYlYFI_F+)moVbx+dJ?fr$vTUFo8o))vfEa;5~WA?r4`BA$UHSh@~d|es8 zWc7>9ZjQPqWQ&(CTxw<^eye(qkI}15(>K1Et(aXTe(!g$3EAo{WjQF_-fCbY3oeY{R_9ny~>_04@x`0b*D-ST&?T*tlim`Q2I*=K4I zOHY_A@cO!w^V5;5EolaYF&pI0RKM}N7WHXb&MSq}o6m4fkorD#b%S4pp8Q4DH(Smc z#c%F;xPhU(NrY>Q(s{XkH4*-+<6q5G3tp0~$@VqmRr=D^lTSHIZ~ZhaQ8jJJp<>po z0QT5+tFnztF3-B;vg%n+wQJvJ?m&LI4Jrp$m?xJOI_iJ5ZL6{mnlAYz?tboy@5Q?w zEZF{OoAcpEQ`=dNy#K{}uknQWD?66^IuE>B;vT&1sH(G>ed2gQWK!ivi|uONO)l80fjvv!v9rnAKsb0V9j*H&!UmTRHeT%^^1HaRg=Z{w-di0#3j zLbtiKpI%ucUTOMlT20>6lAUw4K5h*?l;~NtYt!6Qy5%WTjn{bYt(~&!Xx!RWXD+;3 zvwK14#QZl|Uz9@g??>dXbxoD8GUHU6#Z|VZ!)aaLio9SiXLH5STi15_-ufQ3rCoE$ z8xfJ!qVhYB?AjlfJ|WO2Gu$+EyPVLv>6JySA75(t|2?JnV$sg3_0NqZxsL6;az&hf z!gc;j1p!|ACvpopIj4v{Vz7{?i|}cfo?yS<|3Y1{ot$Uz%;KKq<)*^?de4jx9zXZA zRxH9uq3qeS8T{KO)UI}W-LdCg%0xiDn zJK^BG&Z@{v=6|ORucNbj7sIT^kMm>RJ5|m*Z5^E4{G08<_OH4o1{Ig1s^3l1`#$YM zMqqmE>zdb+8 zYR{RBQx+ZgR3^^aShD%ktxF;&LO!?^ZM*Htb?r_@SGlG^(A>)(gdGK)IZimG1sQ)# zpSQ_;C0b zT3@=rn$6|oo4;pUd3@V{sVdv||5(nIE&u!^?8=)zEw^^ZsSDH}Dtq%&H@?2B-S6+i zRlh!0)p7);JK29~>U&;(w@WGbqWL^|)0bvW6t?yjVrGF`sn2oBfjj|`;tBDew_baz3_T( z&3S&7Z&tYn67&UplO+vTc3dty{`yGnk4M$9^7FTFoD!dE8T)G84DpMd%TGS>%JDmV z@bC2L-dzzX=lx_3eA$x3->$>)Cc5yBX#1Iuy|nPHOX8 z$scKosl6C+K`fbH`J<}PjSeS?YWF^Ek$5MGl?^X`HLM8e*?V>B3gNq7nE&T*iqHMX zu!?i{Bk%KX*WJIhX}=>+6Do{oB9k|N1xowGqtv^l$&eCaJ5tPULe)o4F%4DQD8jHxX+l&flw?kdPBBUmn`!>I&fPjgK^55u-q%IAH70D z*PM6Fo_9X&w5|U){pd6miNBIrc`V#A6H60*t$n~)ssB{x?MeNxr3*4otd7X6{N!cT z`$YVVr2n=#2_Fv|-_?vgFh!z=P5ksf`?SrUZEI4y9(>*S#rNROdgc~OyHe)6E9I@K zCY;MnJ^G5d>Mpa`ax^8Gh`V%g%yF4u53@`i8eVdeYG^<;!uJ_{%KJhx`uszRr-6t7W(l|TZf_Z)m>8O>w{a)gK z-u{cO&HKty*U#62mr5^tB<8#;xP1D@c`>ukO$z0ouVb%Kaxna$*~Mp3K{_+1pPVJV z)%w@eN1o+2n?9abZH~=9E3#jG^A4GJZ`WmZz13XYvaW-F*K)Bx6>4tvg;znl2 z7ajV){Mi4=;Y_T)MJ79@&*ZI^ZOUFAmp{R>cbI>c z*56id|0gfbFH~XP{e}PLOS~%E_5bY0`lz`YUdR8xJmR?e(*JOb`NRL^;{Tt|`yRk` z{FB3S;{z9;GPL|HT*rBh-M5u%{#@76?!eyb=zVCRboJ5wWS4}Y-JeJx+{X`939*}hB4J))Cdt_{|D;}$kOm%Y^@*7V7$wrkFMdhO0}vl&ii2k(oyn8nvH$7mMY(kb^Clr<8} zL?*c!-MSFBYyFFqvh%;q+IOUMxn&(~`Be7K9$dK1;!(t6i)gq0 zyj0%_N(WXwT6c|kt6QwL9O2%hqU_ZhNn+2UtM%H#sAAy z&u@=HVzUxXFImQrrX?I@I?Hd8+NC=S_t}OE&U}__x-?isxo(Qolc!8BZgcbGO!D7P zdoC_9;is)f>5R9+Q>26TwH`RT`Da4i>QMP2-zBC`?u8%zd~x2DDGh3Fq1m>R4^P;8 zBy;1Ho`#e?Ey44+S7uurnJ|~fA)AN)u94ZowYzpNyAi+n>B@WD9)Fj7Hn2q?5F-)e(C?8eP8TP zUGtq=<6&~W|Doi(>TeIC$}c}WA@oA?z22>PcQ>y8dr;2(*3*=GvSz;9;-+N2{E(Kz zl*`O%8$_UOYXdqcmG#kT-hVWc>5m1`tSd*xMS|Fuzx`s4rN zx6MB*{4#xUjCD`-spv}PrpAJ+);~o>zf3tDvPL=R`uj?a-MiPHW9v5l+GaE3Mdhc* zPaT?d{{R1WZ_Vyp6>o_-;g8SscU-BtsiFBVCKZ>1 zYK&@(UP)nLf3I2IKRu^z)_#NXZeA9RQ(?PS?^+o=b(+BMUTO1pa(ySeFHbuq(zklq z0n-h_=NW#P>DX*m`1`b`{~Qg|6ze({J+qVFGD$EqKB1@hk5PjA z&ksLdoGc7=xpX_g`IygpcAt6M-?#L?T$!YMrY~j998-g1R>z`N9n5;A!_EKs&_0eg zWv8x9QE`^ccs#@T)Tw69PJ_4Wc)XQbqM7Hu-+O3#+(u5xBjP8n?pv4i{dDf}^@ljr zp51*|IZgbF(ze_k8%*P34?4a5xo1P~vDC+%FK^A%mR33&rqlD{T&-ap``eQ#R<6y8 zI}=y4Hbno9(^NTrzjN6w{vQle9`VjOJLQDg%zqMU4ax0Ej#D$akDatXdT7q>W7_ks zvT6I=3AOuS$h(j4@#pKxa&PsnM0X#aTsT9w_IgWSKzZt))h!q5y?@GwpUZQfznp1@ z+rRre@88rq{eSoF+u1+sb^ot_`hV-6{nP$m|MWlVU;OF+|0{mRd#$nK4)L~8DP5W# zILjwZSt(EDx?Y$0zBP^)7awRho0(a5mp^b;(zYLWzrRZ73$A_t%p~FCnaL|3l)ujF zjIZrK?dtfyjzGWsd5+il<-8PK)ZvSufnS zqxIMn?Mv%-tM-Lwn|_FWVPQ8zJNI<%=l|QE{@>p6|Nh?nn-BcYf4}DM|7(B#&-x$# z`G5Am`m_Jn|NL+I|9|&!RRER%gI>?^(N;VQKm(o%^5 zcXpUX^jteVr^qrTXJX{FQ?*+eDx~aoe9nuUWcIbL^RC0^U##4Yx5~C#_-#mfBAb4h z`Ov(Fzh7-qHhoy}Xw!Giz{=3hRW@@j-dn!)=Y1{Xmwy9hmgdiNi8AxN*;}gc?FE~| zp&NR_v)?j%d9OWxLu#9qhL-9LR?YXzCS2s4yh`=JsvzTSQ>He4wfrQ%bmpHwU+k|R zso!cHJ=f3j|M_q4tp5Lx`WJn=KKp0B?*Fw<_iz2PecJzj_nz3NI8Ag+dZ~QQ`J8s4 z%-8d(+$Kd$lQdlSGPmi>njGG_0fdSp=}_px{PZ9O-;2UZC_O`QL)^1S9uzx2tTY&M+F?jK)R zp#J%v3A3A#>^+6|lTzxo=NqeNzR{4G_i2aUvwA`Ob@gi(`neoc{lAoXiFCQqf9-?E zycLy|YFyLgydKO_cp&!aRz+s8nPdoCxv)o(xUoAym| zuAtG>^~-kepmx`^a-D-8{ z*Uj}k-~amVT48(U=a&8JwaSt?H%dG?+U2X0@-KhcM%4s`r*G%EE-||u{w1Jxr^q`m z%}5u`RTGx1`clyqf9~hzRoXYcho1`lb3JawVo#F;EeYM5AG*#vw6%G<##gn{pS#!- zU(EFhy}@d`@%zF9&I`UQ{yfQzGvu$1@58E>yZUoW0?RbA((_g&1*z3MoPKZf&37x- zKfRyLx9-UetNu%h#!vqEZ0Kk^%)%<3*{6H>!8zl7Zy#=Zef*1;x?Zio?9Ky6tDisd z*}J$;L-G3VlO~exmn*gV6I+>o@cz)QOOFx{v}IB`-Q=}n>c1Q-*Rsy^r(asPU4D^={oPMn zt$eyujHOfsQ>}jQ%A6Owf#+4-;q$Y@*Eug){P5X*?dua(zA>M(`tJJcrqm8q_fU%^>_>14-prlP~v zUq3&dyxf0xf1FM2$5p>yojmLuW2(t{%D>^?vO2b?Z(pALEKGfCz3tX~|Gv2YH)=os zdGb|r+UBz3n)XZ=kBh8W|1@5uuK4S{+DOTDOIA0jz0SOuy;X+Wt8db$^qq0c?A%xD zg?-(=p30sg&ga2iIQLY~l25ZX1(tR8&rQ1<7be1;FEu?ha?RZz)ASrdF220}<(u@i zyr%ZaTVvMoG3`A&!NF~@fuzg^&R0Ea1(zau3jw=W5+x10-^E+r%Om(S|-+s)e!&fM^A@#ic3zn?8xG=2Ge<|p43+}0bo~t7HJRsJ#lH2Tn?6XMjM*2Tm*ps~bJJ{1 z=0XIrBa1)tu%>#?_d%jOPUjsMoSoPtuKwrWl)ezbApuI#9A%@eY! zmw)lQt@rYZ5Vz_{p6Rx8{nX~FhKkrDn`%p9>}I)5SG>354X@vg<$(bgO}-@xp8iPZ|>ICH&55B+bOX%@;RG$ z(oXp*rNi=V*Tj6)7Vm7T>-Fw982I0C!P9U{*@W5AoX@7EvF_vS_IkbUp!nNI>)%S| z%=_T~d{VL6vB=j41vDyoQ|cdX6w#Vuc_?3WnTIjwrusEDoU7K>DtQSP#4~C6FG$JX zdN}*>sZ+)mcxBwXFWGplXPvry(~Bt^ug(7d{o4O{#jra~&;Mur`hTwJ|Npr3>bICF zI{WYc`-}hm50&99`g|aP>xXGt;oLjNUiuz9eEIrLt>@iJYpvwMKU*oT3M^Xu^p#8_ z$24DdPcOrDQTOdm7JZ$&{@t@*n>jfWXD|NIGq)<@$*m`^SI+khuF(uDe`Fi{OZMwe z(|^;eoFu=!JXBQFdPRKQ{g~<_v(?1{r!SWJ_SRcz-><(ukuj5x)TAzaly+d6v>Mm1XHj=TWkTLhh&^LjRV$h$ z;%@06uQ*eHD`ES@MzcRfqO)uZSkJ$|5}#nFxtBF7Zh_4Tx1`^{a{8NRZd82tz^<=4 zp#ArfDG6sAXU;Qurzp1KQt?*yr^oo`hQ64#L;cDox9HLZYu^lwUV|GwLt)%x-Gulbx?zdmTqh0|QhqS{wJ%7wcv*wd07T>bY^@ZlfU-wxF6 zcVq3k`Y74LYu+PaYm3CkPDz(z7fk=~w35kuf}iN2OpA&edum+kpJm^@^yT>W->;5q z*y~p3XrDyT)EFSXI9B}94JgQuH1V( z{7HOYwB}^T{{r8yW__-+m|niwxN2V2{8c3zPd%FbuujQC?j`R-*^OqqvR$0cs%~Xj z@aaj*Jf^VDuQHRJHg8Y7x+NoQ>GxgXa~Gd|awzKmojDU^+-9oXT+_9Ao6V-&XCF>I z{eE=f+0Unp#irimTd660OLkYt$ri52!!a}OA7i_Bj`>nW=&WrMe|O(Lw$D25)yYF= zR=?wr-r|1G@w#-+pXI-o>@44|=v20l?Y7M%#-$S{`U}cbJeGWL&v}`4e_r_Z;+OL> z!}l#%HGA5+Nn8E?y?6faAAV=;4Tg1<|7-K}tGCbjpZ@yaH7qp`D4#C;H@~Iq;Ysn* zE7uz3K77=#zxkiV_iOyh=WFZ_doaEFx;}K)>t72mN>BIUuHUM+#jRn-%!v;*8asU4fLs(RlO)sZ2a`gb?rT_OYQ}> zg!BKOCEEI@YF4k%zqg5Ill(1iXm)3*rk)La8g@Zs?Y0wh6V2JS6*C&{nfe3EFlQg4D|b?MVBPt&gLxm@;* z$?@*RCT0a+EkEu3_UA4g>SZeIl89ch>mc8$;x+wkt7l(s=japNVDW9o3CZiP1Y^%W zPzZJDoc<g3JD|$WsP;c&6 zos$<$XV&i0wb~$dtjhFs-egAi>?I9O{_VD3?EEh9ar{56;VPZI@k>kapX`=E4!aeF zYE4Jti_3M3D510U05`O^V8CZ-IMN_%sS_}s`?|xtGf}Yn>Ta*-}%4O=vhrk zE4Fa!d@->Lz8(GLd&;b@UzV>en7;3+VTawPx0Tb5G1m4jJFJ&vD#Bp>J1_Zj z(&D9j%MX8Gx$*qiO`T9q$veBU zLsgZJj>Xr~w%U(R7VI{@ExYmM{osUb{a31sSp=9RLJpk#Ct}-hBiy;X&s)=f@{P1O ztlpCC&|iN^iJ76My#c#hTdx3ele( z>W{1`>fI*wRQc-9WtvR(ItI&4Z>QR*U9+7daBl^#!p1{tlAM4I>8f5 z?`~VMzE97r(2=p;W6eI}{hkLarz~!AueQH1KS<=iQTGScDaXove=14Ndw6@Ab)))+ zhbd<+U2{FNPwnBtCpVS(w^dwtP-^<|{<1mVO$kd1vo&7MWUN_fDcqNRT3dqkyF!hp zyPZv@%|l_EJBNhAcCOqX>uab}y8q(Mth@Cau7=dlzRkb;OXCHdr3Yo(joxH-ol>&M zysycS=5=$sbo#6L&MGW1$&(x&`t4Y{k1sUjz|E}o=yk92FO?T?*`H>%l74mY+O@0q zu1#C8cgKzcjJ|0r`ffixuX3#@At5@p#ABk%-Pp5HpCg0+6x@*H%TigXxj*BqzSmP( zz2je&)O@R2yyE{yhxbpXUSx90-nw$#g8Iu36Y{*DM_846zbsuAzbt@lFN4a1{R}D@ z&HK;a&GXU!*R=3kS;p$vr@E%wqfV}tELFF?&n^1OX+_GrDQ8w5d6~j6_XcC3ujyP1 z)jajbZ$-AvHgaccIj>y`IZRvcXWa0-9U&jl}Y=JV;4nyok0&-JZLZwR#(DBqc9 zKl2;o-St=QuuJhfetj!(C#Ii;Sy#UOU$w%)57&EKCMUj8%~6|wz+%>{eD+Z91NS}(} zMo6aeuisz8dC7XOWo%#FH{U7Qd+R{pC#ANJvqi4>t4Pnt-Y&xX(0M_q3vd5=iw(OT z>Sb+swWx33iA8Uf%yHuZGHW$9)=eBJA@xu*fJb4b>6Aww)G|BWW%qw ztB>#eRQZh~+|}f7fytRGo-5@10^cz{+$i7vj`cUkCYRCO(imf9v3_6`EwsP;g`N5`|c>~2G@?eY1`Cg-W7N%F%?)} z?q8DfR-mZhG!2~p11VsZRX_; zr`T4OxkSahnrpIg_w4WAWv8Yy>t8VuZaCr)-WYkYmGfTZLq7+F)OEZ+dfqkbo&D7H zpiRhH=~1oe3BBNm6Jmc3d6cm|5!hj5C;dcvKoH zsJqM5%RH5DQh0t+<~fPY{U;>)CmHSz zm8$FEd#`cqh{5v%|K4bv`NvmWzMJ8~*Ws7mDr{ESu-?_u_urCpb{{J~Hm>Bjqn)K^ z@^gtf)5AkH1yUDW_{9`CcAwIotB@7*;nP!3v2ziRV;e5*zbj-RB4$2uXW0KQ{#>>N z?1n-PDyHJEq8m)-3eC(2{(g9N`o<{_zqcQ>TO%DQ_2=#z`2`z(b!FFF72nnWdWrv^ z?c6VFMb6FHZ@zHq9M?xmb2ckT9C;b4!_~RM?+WWPVbzrqp_h4UMwXd1m`55D| zr?zkSpDl7`zb~`7B$Me2U$;^3_xF1DqW65Z5@;`~*`4lX^kBP!pkj*fpWNk{+v|7? z%FP_ie9dKqciuW$JJHPJ$T4o0obK)EQmPwlixd-Cx{Y&Pf~wmxZ~gjpZ0@9;@lxRx z88*ktwR8D5U)koa_50nYz3-MM=}xcGHA&w);eG0=gL6L#?f)wm-V)7t*G;+PVn9;A8(f z?Hq4~X~M_T3SO%2I6UP~U%AHWesRAACP}i+{<%->7z}*ozCIAg*0z1a^kD9pr!#$$ z<}CWIJmbZOr(MnL|BkKRhN#idIj!ON0#XomLahq1^v+2(o1I4o5 z_OFgP_&8Zqg1s%UNQB|j#kq@=kG?C=H=q6{Ri)nTtMb>BL-Ut7z3AU$W44$@LzLZr zbDc?0{>4B!i^iIG))m{>?COJkEPiJ-TP!~7uEpc%;CFPs;%pJ=gND-&N`L=gu|#KYlJR{q6sa-~LDZu3z)l{@OqJ?En4JKk6frvwsLZZCc!N zg4Iv*N2O5UX}6!#UU_dyy2dkYcLKlQ+6&9x?7g44Z+1-I?!(-A(pkz|B4+Dmn% z+eguwTkdPqQh&3h%{uTs{qeq&@h0A?p#tCgK25rK?bGtU@142VbE}H|_HFwaef;mW zhxxbPZO{F;?Qz}hhxxnTnSa}{^G5Ohw;#9vez*O%+UM8T+SA|M*4e zlw+U6?>@8F)>&CkcO3q)?t4Y;qt!w$_D^|O?|ALhW5G=`kEW){dPu!E)0&fFHv8LS zvE3C5cZfb`z17@cv|!%PWE=JQ%Nr*1{;}D6dVBM^ZxZoUb%%G|da!QRxl1v!wsu$N zSABZ9@UO|mt&{lWFM9vX>x+3S^7U1gkm$1Q@$VjK)y+J4TVFbLKKnPtIO~S#G6!6h z;?J_yT$SMItyR0{pcAZpEOtd`lKz$6$NE>!CL4&f`CI5Y#9n7x;j^RV@ciA5!rDiC zYF3Hw&UxltV|4bxWVhv=HBWUWv;_Y3{ure0IDc8aNdKZpsk4RJE9ToA$>M#z`CiGt z7dz^6vSqx3-pPkjHYvg~tS{P(}cd0DTm zJg)n8$I_qr!HX`1T&`OFc&p>S&*9e&tTXS9eZ4X9@v7c=KMl%n*!?m%&i~m@_`^}l zhV_pB{Mt89Trz({!J?W4ESfv*G;-xXUr#^QylH*2=!DCgwqN$>d$9ZapS3g2WiESD z=-#DP_+^8_W z@^W0fW%zx^rZ<8wnJHkHLPOn(jS+PH*OMWYtPYq2soiZ2aZ@}le1x-;$Ca}@2Kr~K*KbI-j) z;)Np1{`i%Kzc<8etUqz%>v4q%PM5>3zin#ZXn4WY6o2<6KwRiDqQLvQ!#F&ofEswQWHu-#&n!8ru{HedT zKg9jQA9LN*XbBcpww2nE@pE*5!xnHL9?w+u^Qux~0tBk6gO7Xp7ZW95dK>BX;h7t$9+Gn=Z_# z*s>>5#-hHw0t1lIjiFnf{AX_eq)Yi$w-qJ}&Tbk@F|>u8&XRF8>CsVDs(Wshc=JoM*c|HYS|!kKEUn0=MeYpI3OulKnv>s%L~tYi_L@b+cG-Gf)v zk8Jf_JnMkjiW_|8{~ehhMEEf@wtl)VGVwy#!oF~38L2S7v%e%ciVnCQVrSF%Fo4M}<9KL(j zmNn%5o@7`v$E;VSVD{uUm2Us{JP?VqTKPNwm1)O|U(6meViW{#EMxDiFX!8>t1>C^ z(3Y>^>LIs(w0(Nva6S^GGF|ww~b-l>&7~L&3PzJo zpKz(q|2u0ghwN;67x;;hE6(j`<%+502d0|-%egRpf2@0-*OR3xsZ9!gfnHTD20Wpf zpU(3h*I2VE>$F_OJxP(7njXsxGka&PJ+vZS`anx|?iSj)^nfU@lleTHT zV-hqJb1`x9jV`m8|4sDh3(HhlP3b4C(a!=F@Bi5RNW%7u`JxrSZ(k48c#+IhymzMh z$HpoP?Jk|SNjo%mir)V?!Mm@b}C^Z9V{#65qEy3=#kRe$dmcKX46=81nqi0HPgMQ@~|-a9y6FW9xyb5i-^ zk4t8(j-S3d*W7u(nP#=^{PE^)`r}i2rwdc3?|9HP!DvYr zdzDUTsefXCzHiXq%l52KS-6^Lw*8cXllAp!a@lT!1)L{Q&?xnqQGqO*!G#K9x zn|;vX@3*?2E?(_>6+ceN`_*vU^7Fj;v#!09Vr@9@#J%d;tGbU_zn4T-1eO&j*Y-TO za%h>*m|v*(K>E+Q{8#Vv%LRkP0$)6yVmIm1;j61;e%!hJdCd{&z}uW#OC>mdSv^?q zviOB_zulK7%mPwBt}V}3wfbUu^}W=_<1RlxYE`o^b;_IAtiKpNUBbxSI``z~<-6}^ z?q9!E{NDeV|NCpqPS~BxQ)hay>wEpS?eFyW{NKE}?|T6 zo&4z8CH{AfrL7=?P^D9x>!YVf^OpzTu`~ELPhTS8WSE3qK=>Db<0G@y7j_@D?+I== zDfna}M`yz~pXAwG3jA|fW_n*PFmtI5f9Tb=$|34~Huu(tCXQ=ko}@kf^X!%M%r1|6 z&Or>87ae(we>O}u@r_#Ytl2+VG$Q9uZul?Uff|DDyTZs z$g(<9?AT|)%38nLWp*9Q&$hmJ`1Q%8X}>OPNz2In=yow^%9kWDci|7_ed06!-|Sm* z_3F7DCfYvL!e({>VzNQ+zoxUURqp$AB)Y@F`@tczd$mz!zq~&QDSLHKUe;4P<2dW) z`@!51hHBqK$Z=B7k4<0Goq-I$}ee-u%deb6w(u`)i z-1ywXe5so|vvtaicIPJ6^9Q81#@p?Pw>T|U^LNLGsV;l^r=)eHTE7-ysJ?h%L(Zx7 z@(-^!2OZ{LZQ^sqJu{=Wfg`c-)$N9Fy)JiyZ~NBieQ*BvqtX7AOX7x>#>i~<^`##U z{(a(cfYZ(AAjkinwHqGue|gAU_u~QQ&Vb1dA8zMIq(61N+j=X^=}OX~zp{d_I-12y zdEcC07CdGD&!tm}uIU>72q>Gl>#ym858rOAIQ8E^p`K;&tPPvyvl)7Z(d``~AZ_Ecn~`-O=T< zmsy90KgiK@Jo9D}_jcdEpY<0qD%@+>SpEO&vscoy_3pm=zk$cf>bCDgcHcU#Z>^zZ#v>uT^g_U3E<*L<}HGm9_(@DIE(A)n!1Y82~{BZpSC&)Ko-`irvU zL$jDpGAS=yWOnIu@nP3|)!ana9WPF;DfB9YXP22fN zbL7mJi~eM^|5%W1KfBPbD0=U$?$)`kZ2u!WDkWUERL-Ale4F8iYI z_=4HJbz2O4J{wCX-C7tSyPALVpXoR6{&yF>oYR)IBr;3M)(E-zkZ z9`m6_bnzAbtKSz2e>MH1JBxGHnJ@OAZ?5Rz>Pg{n$z>`(TfxNg<(-b}!~OMg{=a`D zthv|r#lC&X*^m`aew^p5THvF^WA==%PxPFg{(@$Uy&lUp+$&qBw&C}xy3x5%~)?#ZOf9k(v zh^oU%KIcdtt(9l%HWhuEeDuMLq8y(7|JH6t@9=Edvev)l*eeybpSihnrf&Hvux`WK z9v>Z!&!>(>AFMoZz2N?dyv+)Wm!6oM8l;l;uc4~a$i;Zat{dvl+5VW`Gq2;5$;(Mg zJyyl|ch8I?LQis)stwHCm#3J{WE1L{?DJ{eN3KGpjTgEf9lgl?_nS~9*|zR*Bgst``>oS&D}BO)!Yf@ z!s}mGuio@t!QjO+MbW3;4q+p5?Y@td$|m_2KGW>IcuU!<``K-` zYxfeTuL%0p`?|gE(@y66`bP)6h4N}=n${mXFn@O%?>qfn+v6+j_rH*Wp9jc{P=BtZOpJ|gVn)q@@-TvvDWxapB zi@E=uS7L&60iXWYhjp2KPsNjER~`FjwCC`q(Es<&IR9N$pZ_j#>fV2we*a$j{mbch zkEh?;eZRML$HxcTPdm?1T^Ue+UaQmi^%N0hznncExUG&gANu_9^2XCnJLdn*n6O^A zJ@A>FRrod!MX4rRMN5$a%NQ^QOJQ6D^As!`WXdz53BHBkotu%C%uLMLVox znEq?WUNJP{oGbS4{LY7`GP$%xm|`xh)V{HA+ktx}dKS01mP>8_yP8+=R^V;X`(D6yhg)`=tocS})&Z0VdhqA7s<62>FRqC`@ka^U^O-Q!nSGXIe*l=|@?< zEt|gWHm_C}@6C*aF4ft|TlcnBP72Gr5V$*fQgroI!EM`BRKL9nZW7zQdi#xKu6Gt3 z?0a=5N61tPXuSduv_9|Ik-QMIxR?hpzwFBxlQPk#}8e`&F@O(2u)FH_H75J0d;Pk(tvk#1oGjBy&yM6b5;}Y(jQMrh*U1vv zhf1px*WF$hEdA%}%brew?HONw8>*FcaGgu}dfe&Mgq3RN`eID}zL+*U;i%Q(rAPYW z0|H&I{0Q?sQ1PI^@Qz)<58?l(za5%Bw^e`lQ~iByg-d?UOP&6~;|5c|=l9==*B&M; zbckqa?h-q~B@unSMIWi_`i;0tw_FhPq6J?^@BaVaXb0b z9~GSs;SGEzYpwtNv_JdNy*DRp>b@J?zv-of-n7nJJOB4S{ z|2oyb$apUDH!*tol56s1bIRAeXuh{S{%gDKTifPKXPR)<+r61Z6Q6KeF0TzQ3Ouf8Fh$;5+-CpEz@wYC7By;L&^(m5P}qNKtIq0h z)uzu(%g=kiy7A-7Zr-wr4L>W)esPF5*cARzk>;)XSW*#Pe*5w9*vqMB-dvn{Zm9K?nmGbP=nEG}_{;TSo_Y#YOv~Guf ze_h>jJ9Yg!$r!_PY_?^4ziR#cDrWP|Wv zf4$K!o-;Vb?Gcc}Y4@~3t3`yTzxgkQhI(BQ`%Ijs9H@?$-AF^s13rkkTUq+L2 zjG2L97u7TCO{9;!@}1aoNPK;~-@@XJnH#z`KHp@XMJ5B{p)_@wSB!$`RdB1&9~WRv!>$TzTouAjh}ut z7hXR2zW$$8DZ2p6+2eCB3BJ*p=eV-$tmd1FuK9g(`|IK_QSVYWzpR|b zTPJ_=qWq#~b*a(^ik|D7{cKw(`O--G?2H7#?M`)0o6j_UKECaD`_$eC9uX_qKivPB zeEe_n_1)d`vh8K^Z_W$&Ew;*r|Nf`b{L42!iz}`xn6Ug}g>+Jx^$$Lq^Ld-SR4S!6 z*;hZdR8xPIq^5e@lkYW>x<=|Pxg^D%R#MWtqw7X|Bl3cS5&ugIb2Hrrb4-0#?wZoDhDb!X2< zvvMx0+t$li^410SUd*$%?(5n)ohR`8mucFECh-2vo?XBF?1uMgo1-$hMV|`TEOwqS zw{-Evj58dpM*Mt_wTeo0PM20}t?D{1nWk%Uk2Unfwik!$55AuhCQ|Z>YujtCvR7PX zuerWuacOaUZIWkDeOG?>-`DoHpW0>LJ0I6r^W<>Z&%=H{53dWns-N`puQHcP*fj(1AZDyE9 zT=10*E-&|3Ot;z6Bv?`wpI9JK(zEfk2k#_B+t`CioI8Kp>|V$#e`|5J!B49bTlcT` zxY?BZBJ$E9$>xel!Rb6pL|fN)+@D@qc>YVzg?+ygje5UJzo=oURr*;N7j9&4zhG1L z!f8hJGyNhjvff=6B>rp9woT@-?v2~_TO2(f)Bbtm7Mb#h(&l4(_DOFuJG=H(4~HthX-a`HXYpmnYe_y9(td zS^dz8Fu88JQOLH`Cw_0$mz^=Z|C7^POl|AiYxxhJIkfcSbv;p+mw(P^bZSeR^}Q9^ zbIf_|@4bm>o@V~n>=<90J1&G>osNqzl8vkOupzH9FCs9W8d@p9{( z#oU$=)0ZbKt?n~kzfO4lKl8KynO;;>-;7^(_W#b>|8+nAPQSbN?$_V?um7MRbCIL} zub)i#U%xWQXvWn$r=^x3DVJ>gt+=Zp>bTYCzZ%+pFB%!WmT}a#>MvgDvOHmv=k=r) zFB~;q)+!PM-#0hAQm-Lr-?CW3m*KP2x#lbX z9ZR>AvNqo7<+5b6Jp1HswS95l3c0M+vB7Jq6_vAMmo9BRyyL~Q&2sVj5uao>3++1Z zoqm-2*(KN8RTKY69Xj6T5D;hQ@GVN&!@_Y-!)qn}#V37*(q!N@?a z0O_L@LQMSI4$d+%&N`vgwC5v7uEvJx_iK-oMb6)SY~|yIL;F|rzVOc7H}8p;RoMQO z4_j~D;b_YG$A8}G-Tm|byY-*{ul>2-^#Ar}|F8YIKkNT)-hby;oWB?L zj7g>T`StD7geH_^AI$Qb-@Dy6`uo#EZ;mK@o-2`frswJJ>#G#^FI3z7@{ev*{%dW% zH@$V{-0^!}ANsG+;(2QFp6Y2!A~;mjLps*T9i89%*zix`vfWx~m#3^s^j%lBOz%(V z{Cg#;D{`0J|Dquyp|x{!y5|0dqxn_lewVs4rts`K5OP+-_4_eRBi)Y$eLV`g#@^;< zZhhQXIA@X1mBJ4vA3i=Bn?5CC-n{F6S|>gP1&Ci+B))6q`k15tiVQUwd=+hEc#Xfz zsJWRl$Bduv#X{|`Jr;izKb`;W6{q{WUGC}Dy{CN?xg{Sj?maGO7wJ&HQt6k3u=4zu zSziR?FO@8xoYN)5WqVQMt=@U#yza@zzbOmwxjb;_n|Qx%$@Zuy*)%6VTHG9;SM z316&x&T!D=y_<1~O;%0D$|<}jH^^)5-_>T_xU4looq56{Gy7@#RGj-t+!f`1tiI(U z@8V-{p~3FSMBDtD*v%)U<0IYncKD=z7Cy1W>QmEi-shXMzVfM-@V{$VQ)#U|!Sv6% z&#`;0?6*~DuWnBEDB;e&aPGz~tAioT8KFIMJ@0Z}&7N^y_p4vs{j7cYf-5t=ba*K( zG-a3Nn0b5M?Il{Ah2CfQTnb8;m#iuB-E{6pp|8U_Iyit}<# zw$c>wlMZ}~UY?Lqo!7eTTGieUzUqROJf*XpHS&Ej8d=viy--a(b3-&>$rRP(Xz^p= z5naw(mO9m3ov1I%+df@FxT*Wh3~NJvW2N(#?E5d7$Y~bMJ~^>)CUbM=C#^|E5v6j+ zotiAZ+kfV4^ZK&+W{Sw-`5bGRzFC{EcGX&+yxwqchw#3l=`sl|b&n6PD+u5Apg8#L z`_+L7LftwsdL^HGn1ok+Qn5Mhb}al6Pp#Pf>=zrJ@;yJcnI)tl+9;E`=H+z1$)2~| zm`yc!qh;T&4&XIa*9{H5ws6z3TNj)aHBKGgSXz=Y#asEe#?#&3ckl$A`qQ?);J~c+ zlOl@}PZeI4zxVo=ULxnwKP8uc2)$p=R`*ChX-7_u4cnY`5w54SuZVkg=W$s{eSLn& zUc^4<#>H31w=WjTzHZUX_rktm@7ZTge|fj=-03-C?dxN$j*EL5o&@*Wc9(CJT~V~| z)#QcOf9ki#rGGVD`}Xkv8QV+qZY~r+=-FwvNvJdq3*`_G|yweys;H zzjwa3kNYgvp|yA4!dD^ntKz;d7n@qY>XD;>;1Q#T>-8%5_>#*X-jd9p!+dlHTUhFH zqnV2e_B|5KZao~t#yPDZW8*om(nXur>YkjmV*aMvPKmmAa~|)m+hvq>_1wZO57Xvm z%sT$6)U-%0Z$sRBrlS*zg1VMj*%wR-cv1FZY2V*)pT*6WKWya^w=ns$ec~VEeNhY5 zA1?h}@pk!_1D}f2c_Wf1TRnP_eD`0eW_J7hgC`j)c5|=c+Zp{Yuj9q94kb3*c}o|b za|>xSdb)>UUzpprg=^amF50zBdZ}OUw`s3pqI)l$$XS2k_P1%bA~P@OZmrI>^|C0g zHT4qMu-9p;?K|BS-jREgxqffm8;~Z!e7#QcQT2zlkKQVL_3UR~dA`c_#Oa>p#lA1o z^(3eM)9EnDj15~p^Y!7N@~w($E~WzDVcmFYyz1J1&ceAwpDr@ys*11wmjVsGv zbFI=8RGqq3=f+CubomrdBm=6y|r$(%oLr>E9+)jK8W9)c7Fk9;&MfC1-rPA{Yq~pdcMhW`Fe>v zw2T}&`NC&EUhgT{`)xTZlU#_sQ;=_|hI`@H%_>`YtsK8Pt8V4p z)_khx$XDL7rc)sxs`*vP%F?eppFG+Z|GzG`R&Qs;gX{GH(eu6a_I-R^9~}K(`sS9k zm)7N8eSa(LYHZ-t?Cka;rS)Ok?=HJ@cy(x*CL{Ij&f?y=@XZPi=W7$aIy&GGX0 zS<%<;*4lL2w)XSnuC?g?J!enFq%uB_vjYbG_eJkFg)b=Q z&Ptt8E_y0hGK9r^^8Mx?Z?1n=xIX7!THZ1SmFFY?qK zeO}OHyj`pIgVz7U8@sMoriFFC&wls5p6k2#6}#8p7c6_hn794v@$|_$=a+TN{_$Ev zTCKMF{LKv6*z-I0=skG%s9V3}s7XjSfBwadi&FmAm)2B#dGljh?wRXH>fgW3c{}yZ zf9tth|NcMy=gz#hx;t!VClpjK`@i7a2mUD!gwsmB)BZ=dUDciWr}?(=5BAV!|2F*P zWUGJmYFf|V{pL69&t8zfGjFE-4qN5_YY)Bp*5M-%ap=IgE21il*)6Y@oM_zWQ|T^n z@I<(f-!V0-_wU#prC&?hjnDv#_9&&wrTjV#NT-g=;DE)VdmWCGlHYK^FBb=#BzYTXe zm|qH-MG~< zMIrQ2Vrks%Je9|hjWhdav8YM$Ru?DSyI?v;j^~1}@-Lp^1#g#BJ?98)vN#{|-kqC& z>F2rI+U&k9SRU|G*5%h%dq^XGKQ%y4@NF=L)iw>BVa(X~ZzSbDpks%Fu67|IYI7FU1c1P}&!qq1#}3W8%T! zHqY+OqBHChI!(-9F&y3fxiy)A`J#23j6TEV+k6kT{0vVfWos6FRb`KP`*Z2x+_@bTbBnVS6qaZFMN*iWrzH|TUJKQx=?$lv2{gpNDgHSlk^ zyE|d?KXneH_hAR7%)ThVuRbZ{T+ph_o9A5`-nSi?e?XxkTe$H+v#C_-bjui?*{jU; zAJv(4G(X_`sxv43hP?Z$XuG#3+Me7`emdoRSG4_Xk!44(I!%7?L+eoRWcD&f`_#?5 zmCqgIv=J0n?wHg1&`hm^)x|FQi+8zE*QE@u`pa$K9gi)sZ)$UsI{B>aLi@K3lP^f- z*f~xY-W}L(kj!IkC|`2?hwTC#p^ziY58Q3Cg==p9P?9@4dq*XIy7LbUMoTmPJ!cEK zGQ18jJr#P<+_L0I$m;y!e*)ir9^T)x%(KGmD9`M#Z@z7hYADX0e&c<<{e^ae>HPmM z^((L1_3gj-&;K7E&d;mwdHv-7@40@S|L*U*e=qLz|M*AGci)=-;N$AY_IoYs{{4FC z|LVh+{^Rak|Ey|jKRx=HxnarFV6i`$@pETbv-rIcX}x49w9&Zeg6cAxR-@^GdzVWp zCAsd{xo@q#QYp(KjXjfF#ENp4nYRCa<$KO%{+*pgy3;KycV6-cD6UXg@nVK`23Pu< zv{^|k$@BB#C+uCY%Al3|jd@_$qRAi5#x&j#HIsEO-ck5qonsPy+1FLVMg@{pGTn+0$H9-h%{X1e)?3}V#Ziw z`{`9PkENG$vJ|r1wTyoAep}3ahb@L;d&I@3?^v*J#pRisFWp&lv$*A5#k!KVOPAdK zCYXzrF{M|wtzli*yZdxWr80Aq;-&+I0_TI}x`iI(Wz}&#Wj%W{BCMRW{3I@sn^t&LZ}0pS(0bZQUiNy#07QllXr| z4z)9)+aAcu%;ugU+xEdbZB;ji!FStq?F6%_mebihEzevviL9uw(0=pp#K}aq_LQJd z7iTZU2@34JTAIw2%E?Zm=a%vPR^OwuCTGgmh9HJRkJt`W)_yOT^40!XV*R4CmG7M= z#x2u1^{~(PaiB}qY@7KRZ67ZL~hjSn1p`RsMZFGj`{sd|eVY7WUhGTw0f!&8nl z;pnZQJv%KL!sQK~V)wom#p^JP-{N$yXdlVzv&=+E+t&N}3s#&k~PQkIs5Jg1EDK4#DJ6M1sg z3o^LhupBKA?2%1a{6YPC{pp>GTPj?q`(~Lc1{U61arj)>}xnu1pkYMhvFR6B??GZihmU^@R>%jVT8miJ4-dLK96d3U4RScbKj z_gtWU%af@h=FJvOjpsWHKc%ERWG_mN?&MH-wlBlw<(){kx^>qXmba{9t8y%ki`so* zw*CC>ZM%g0*PJRfSm0v2qN7tSP+#)k{5^)eYojEJAJyM$Up7bXd)VevorXm-o~gw@ zQI(kHGV|ykhACMK0$W0-{FA=gvaCn_&_7eX&V4ercBzfC7ge)4M9i3?c#-X;g=F#h zGv!>T+y0*LZEs02x)|jZlXNe}EhIuPV(sK*dTKW__)gECbJ$Jq73b8`!NzHfhL#7F z>%`YRLl)EJiAEi3q@Z+b~$n(g*qrk-XlC!Lb&?(pC6iICA12`iQq^mBLk zbbLko)5w_{1D5hmu?gWdx_#h(1J4)kIE$r6w&wx|^o+KHIXVhV6S!(3zGAf)Drj zc>h^`J7~H3$C(GtPx>#v*UHYSvi6tj)BkJFee=8dZ-4Fnz0>~hKjQzvUn!I(nlWX|$&foW0pPsC?>Am#dyjl61k#@s8fAP@54^MNMo`~$Ya+!s} z`+T%*^XWe}o$0Skew+5Cy}qLuANRlf)1NP2A6{M_|LxEFyZ3eH|DU_{-+S)4|KCr0 z@o9@yyQ}M??MFSn9KKYRaVEj?h3k9f*&HG}U)KDedyDUObYlB1(>6}+CWh}nI3Aa^ zolp}>7G^0wR9*X*w|l2(>Q=6I3j&om{3cj4cWz>|Ibd?yL+aSakEy21m5K`&2MR2h z$=c=;C$@7!#<^=YL1%WFnlDY-kh6E|1*w$3GoN0ri&)t25VcrxpFcnIPTL*cjguaH zJO6*NxPHA=<-aH0^Xe_Wy>0!xe{0?Ur`>o?$5;viIaG~8v4Bqv97jtTV|Iu_w=DR`7hYSYUX_o|Deei z?^vKEDK`Db=ghD^#93ywVuEBZ{L0W zUi6gzW!Jy__x_V`?8Wk{OR`Ioq;wP|csV~iU45vrJE!fy#fe=h7a1eI%()({a%maM ziLDD42XKoTva*FOSbQ~v_gSXNGyBFVt9h>+GI-0{bXu$AWu3A>u36x3JCpM3>%$da zUkgs^eVlOZ_->t!^^f-5Xzcv3@KDU8w8i_mU*`Vdiz;Eg)yOm}YNtHoJ~o@oZISn{ z8f|CFir@MEK;V+DiA^HTQ-tSv7T1d`tW3`Tn#*(b@XlL11Pja(iV6+-E>4|xmNmk{ z`(@j)YVUrD$`x+w`U4ZPt~$2`>Jr z)GL*@?FZ-HHCx$lcj#o;a@LYLa}EmD+MK%3_St~BPH2^#bx79g%X#^^+qQ4N<+az+ zmgkD$fzm!b#tiv}=H{+sv(iPUuG*J$B-u)o_q3)ID*REf>&u)mZBNvb+5Yc@Qdmun z?dCY^nZeC-FSB=(?>6h+ldHCNoHA773-*t*<30Iw_L6gU3=11HU3R`#ifrAS>h$7C zkd1qBxr6SP@QZs7^R>QjPMA6QpZ9_Lh6>u(s(hR5coptRGL%WbaJYBgQ0k?`o*$g+!b(fqxCsCm}N8iZlvz>VmbaMNW6Oo1jMkYF8TlV;_**W{doJmJgdK`j- z6~twQF3j+q{o>*hcJc75GHMp{PpBT-7(sX7EVinp$qt zFaLt%MLb947ic7(+2_*1lgRWY?aYhr_vh+aCT4drartPxdRSXr>9>);vE1*7+C*P= z&s{EU6E0uuz8EJxL*!~zTaMQpmyC6@dKax!+4cUST~Y`YKLJMH~wkBuE4==DpJPFq%>NapEe572=zBtvxFqaNl*s3XV12EJ94( zv-s{N7Hu~0-Lg&Sk)L28=Q4@tmV=@%*z3~v^vq(vrdlKQJvn6U(*mJikHjbVdIrfI zbDbcuT;LO%XBYGR*>?&VH>X>t{@0(OGL!fGis@7CxMUo$iYNS%TV_Y>UlA^`a5@hYbAU?)OTiqWuY&67 z@A?CTd7I>SY8;+B>)5Qs6OS8Sw^~g)D9c>YmKM>Ut@3>OVUZoTcW`E~Rn@5d`U4$nL~ z<7b!c{CSG<3y=G`d8K@tcipKemV3khnR92o=*+MvdCGZ;xzk*5P1hXOmpn7#d}R;h zN;HO?4bWBKs?t!@Fgf{W&fL&rO+{x`UiL{4N;%hdU#R!C&&o$yTdvEQ9!=fGdFGc( zZ({J~gZr|!%-*41d)V`#t3gp~hg*AA%8MM07w_+dPJhn1&$5NDY7hHIff?ROy`N%O z^xo`!x@cC#1FkA72hI6+B;+-V_>^ShzgbUyJbS`&nH1>N1QkXvoA*R4gFz^T#nZ!?W`rS@YzkH1@4g6WRaxo1gcK%#Y?=Jhpoc{;2HsciAL1Va1Eo z*uq=PHV=MVd0v#AZP@mcX;p3npOo{R>_tZ1YYkmvyaV*EoV(j5rVt*S#1tX#STS|U zJx8S@^=&!^MysZ6OgP&1@vDiCwC$;f-j$81{bCid?q{M?Ogq1-ml;Pi-o0{t%HedY z%}tL59sch>b0PFxm4@{Bo7oW-$7CC(od5q&?nU9*gt!$Nr<2sS%|2{;ch!vDmfq&J z{|;>`o9L)7W%_r;-err9c3%i*IeVeev?Ibu;>N8vE|%|9R~BAZ*1ewU=BzNag|B0N zip#T87I|iWJFHYAB8v_N#$UQIfyaA)oVCH)o3>?oZhOQvJYD9tiLyR4WaYWQTlLES z50CVN|G!`Sv+z|q8_pDUnx!Uk>6#Unnxi9`*_QZO=T-0&f!|kJ zk7P4+Pdp<2M(IKni`~T^3&gWydmbNt`$@3pUV1RsYF&>lCJVRLG-qz>Dy>!XdhC47 zc`462UU?1YV~5Thyen5ZS2tnd)eja5$|7$TS-Eh0dGU5=V|K_CHWm zkiPO!ayhEqqNsQAG~~^`!(G$gF}Y3RLo<7(YGEI`=vt&aD)QxVe3I2~r43wl;ly5G3(L%?;7 zd(LY`<|tU_w#fFGn|YNdu{g|9h|g6P@96WI@onFo=qFwL9UqNmeg6HG>+g@?>s(7D zr|j!h?q=Hdv?5B;@gXmt-s&yiUTFEOX6CcGFm2WxeY0H`Coa8mXTs@d1<~?DygWBI z);LCXv{3Vt3wSQjSTxnHPw?uAlMO}&0$LT58#lz=Lv$C?R{rl?4Lus8w zUFYLu=Gxd*mUPG$yxw+X$-=-d0_Tixw#VEP1f0dQO4trXiC9 zuWUEt)!t;(+`qAC-K0r1k0l^;)1Y!7kQYg zqQl?$)%6t{%s8fEa!4(|Va}d|?s2&iSDc!|{5}bOxq01YapSbF7sMV)9+qWD`PlN~ zoK5gVzU>SrVvl4V@>H}*6Dwbo?-bnmh?SSk+*4h|uk6^J&Gt&X*Oy4M7~D3rdHU=@ zUc_%1O~2?hd|RdaebTSKdz{HtA?A@%Rl%cO?h(woD_^`n^TU<)rOC22S?-5dTC6es z>ZHsfw%G0B(|sFRlnx6_oI3rL)v@bE=NluE1=~0UYG*bWGQYf_I^A#PUz1%27&F%u z$}wa$TxGcVc}l~HAGTeW9`aNuF*q|nR&BUyy_iAuF6(neuAab{+eNuITD~oIELg=` zZYQni`YCTtRPFn=69=}`u;m_Xk=lA!N2%Y`a=F)vjUrE{?+@$Qs`F%1nTz(~*5a*a zOoA3n?a1rgw(!M*RZ9%6Fgfo{v&=1;@?6qjGDpDdO~>}#KD)|prN44Rj8Wq1o`^32 z`9@q3&gr^}kG8(-EM2#xs6*T+JI~nBf%D{wJzH%!UVgD_RKFGdsOZ2hl}C5eT>HL> zPkO%Kdqj(2&q5X{HgTqG4=?e;hrg2+h>V)ko_B@NuY!i;wncttaH&r&~H!C?MPT`yUG0h`sH=Ex4OD}oK z#jTgls9jrOJXcZL#nR2E^Z3sxcgFO3RLI2g+iZl8#Ki z`mONtWsPRu>plJtHg%8^_`&bLX5d4!L+DG2ze(-(s6E?F%>OoiL2v@^oej zr%LMfi?Z2fvtOpwsJiJYIWzX0o)dojQK!bXn+w~-%+|W`*D9VoDtO|kUzx7;?AU5{>!$H`TcymlxeId{85B7Mmn^aK zuyt?oljg|W&gK^$RigM_%FTDB>gN~X=bE3|eV>TrBcd(*5|WISj&OAKsqz z&!00`Xy|i&Vzi}tLj&X7sokI6^a_iv4Y2TIR})jx&97@P&In9g8MEca3a10Y zGcMOU>P7Botk`g>`60Ir20Jr9NSn8-shN2vdyWm;!Ll8kyO0JsKWKa%D<^@ zc`T7^cjp(cF{$MHs`+|4wWSx-DY&n;)@Y&B2wp)w+v)5dz z-1%{tqqO*GiTxd^m)3M?s&P*1E7fT+m3o^UeS1@_w@c!o2MhEx9vpieX||TDN|UAy~wIZvG}U_DKRN3$Jocd9q|tVE-(G<=Zr_WZ&`;?@3WA7RsBn zGQ&Y<%I;*5Io*e3E~&^c^mAt&Jnmqs|0ss9*IP4c(o4m3r%RV2ZReCO56F(!<^poupKo(!tNFZ1PD@-A6);t5ZshQ;$$t;$bc%T{LRy}W7SE05d>xr=O;r35ca^?j^(Dq%(5 z;y;UL^ae-p!b`~s|;gzskOiiRd@?*imkL$Z0a~SfSTN0AN zc-Fan-a~{98355>FPFR<$k+o zi*<8f`fmO4_)H&b{j`4uRm)!K-P=|pn-+7V``Qzu4|A?fzY*`tF=5H}s0Sr4e?4=2AWx=s$T8Yc` z)3aa3_*jO6&tu;mkJ-=YM_9)HSOu zU7We7x3%Jaq<(TpiRB_5nZrgG%MUKwC|R2o@I z=4ztkckFco-_GTGF4qVZ3SOD%xngd&?QMhHiuF@x@{8{h+N_ag9DZt3*OreeYPx%k z74LSgk1ud^zHpoO>cak4$22CUss872@4CL^tbx@Frd~zWzF__PAD?P(Xurl;B>9Bl z3*$Vt@Miz2MKQN!ryZANl(bWQ8+$-bm2=*|9F<0aXBVcGJ``^%?Dpl+m*;5lOF9S1tmogHZn`n(?6eOdN|(cYjXs>Mephni zWz2!##oKt9eRqBHuovV$tvB=QUuLhM?3)La;=H^cy2l?A{CTZsi|`%G0M(ORvKc3K zy4-twEcVud(#$mn1lfBNEVoTLw|M=hlpb#8)jOv)h+Vm}C?q>s;=`N?&$M*6>^ZSb zeA2Qz!V}MO)l0tllM|(~^P08mzUv_ka=n(b_@)-Nrho02$N&5FWW!m9v?5Nqv3I`+ z5)KdRU%u|UK|XW38M|7kSCz-?-c?82tYUBGp z_jB+R)gBkiuC@A)g!)vbS6}$M&vkHSE?F-^(d^0zTFO-_XyI9+8X_N-*X{W&2e`oU8ti^uC z$*XFse9k>$G_hU&nbqvh&L+#!5Oy9$fiuShZ2PJ=D;|BQt95bh%Y!VoQ?_2<(aLW4 z_~q!Ph65W9oK;!NxO~=z?3!0CoE{q_6x;VEHBGvZ`b;%zOV(npcJCLOtj&_2^IMKB z>3O_e>@#cdMD2=K>86%y+fsrq6_{&Fr0Z1v{uem$?0jj1RoRSl=S*hl%$|0j?su9U z^Qp@+5}R3$Ge%B6vM}w%+qjs+*Md){uK9b&Xzl84*Ceuo8C>gQ7A;G8_GH6?$d2!> zYik^0L%LagH!ae=WZxf|6y&sbN`Jv>CKhh)Z7z+!A{2PGEY|xelF!!fUCtz3qAzpy zF-yaa7k=W?`qme|=n1?Pq<>D!+fFi7np0DSYu|H*We&WX8YRqP$}O(Eof$Fr^Npyj zo}tVBvK1LBebfswzjwBEip|jj+vc>IsLSu_`__3{s$gEvR|6C7g0`pC{W&T5CuEK0 ztL~|~|23vJImTsDzwQ65WS3GkpE{Fe(zp5YUx%zPX5+ZHZn0k`TejbaT%}_S8S_~ZC+9qlUke}uVU!ZIgEwxBr3!U&z$eDY)%PYUGYd{&!u_u z*ITB`C2H-JSYOqDZhOqp&i4~SRnJDbTYfiEKW||o9Ndt1a9QAE$+Iipd91YTovD&t z^?KDkfutvoQkVQ+VI=6S{o!MOs{Z$XizOJAEIaq-MV$G%Q<`=k47F5wGgZ{|J7Sz> z{GS%Oj$`^V+lh}~FyFK-k;=O&@QY{jKMDWK6)Hs%MdH57R#WHfTj;Y#+i7vx4?%y#~uHB^q8VlbzV<&b7xO`O0rW zj~l`odIC~rHeFR>uNSgq2~?`A*psz5wn*(jn)ny~E&cHe+^zOns4sIX+`A#EWlyQc zJ%8>jx%)p(FrBYm9hvra;ZB_!bMnPpHa=T*%{OErSN3M}`zhwTuGl>?)$;F)=M-M7 z^m^Hxg92HmUGrHx)vp^QFVB%wSdkm+;e zeWIhZ-3gQM+L^J3Bc;>7PE73VDxUw(P*?S4^NpEa+tqe_v)x{vz3$=%^;7v_OCC#w zU)h{(cVha4wZfMsR~=keH1$`lM9CE6nx)q^sk+`2ihFs~b*6epdumx5Q_Y3@Ruh$z z&neqpPGEc@RLvY6b(*<4NW%Rh&rzFlZsW$;8Ude0;!YbcJ|>rRQd&W9*5!$Noz-2M zb)-)0n=p+@l<|y|vvG62nZlo2Gg(a8lqH@hd9%cKzVA-U5V@E*bH{m!eHxbMj&6#x zbS?JI+|9_vSi(K~_H5rg-7_@{iajpqw!0^9^w(y2p(5M)(S<>3eY)H9u4kH^8ZS6E zm<#T8v=RP4EwG8Pbj#BFAEsqJ7cPFhICP!=@8C_})qYuO&f*hFF?9Md-DK7qPkw_( z;h7)Jj)c`IOg)kP)w=oCb)|R%-&qXDR^;D%f25%Q^OETzZY#5jf;yy6KdP!>Uv@8M zQ&G^L6{|h;e_EO!IlbwdR>meRMn5U8lwZC4QuadMuWs5}*U(vh!)npxpLbM}I@5EO z$xmsBC^|5KMegm|fWQn+&crwNd(JGYIy-6a9oD7FDmUg&zICT_Rr=(;oX*FD&NT#` z`*@+~{`EOw9=|fKs%>?gSou=7=11!(<;0USgoP7MHQt=EsIA6MT{ksl$LgNwo(Ucc z*;*bmOfBYGz`^`K#FI^Io9b$b$>+XojqUSaeCJEw(ZEB~VpsET($1}6{N-~a;rqkT zz8F>??JMm!6D+1pe|TX_dTpkKw&R2)=^Foz?7B2FXZ>t3KhuJDB99gMSGhfsZCUSY z8lCsaYLlq24*RDrvAvc~d%r$2(&o}@?wswRC!5%svL};w(V0J)Q#<7rm83-7nqX?6Zq2W)%0V zD!!)uNsP%b#a_WizM}Kx1*VS@hR0Z{(k}c7o#THpg8lUaRklB~Ol{vEecAUTR*^R@ z>1pq}TYJBMxoqpomi{THYx<1BxW&G4Mztl{t2ZpPepmeAb)}8ei#;7vsuZ6#pVVjF zxNFOtho?C`(wnY#yG>hiJny?7+l~gCJyG8rCH{WsD-_l>6_~!kMQL$!k;0$O=ZY)- zR%*wvBxa`-C0>rNd2>=ee0iGTzuq-Zm?YX=3w&Ln`p;Hfi<_fGnXv+WR zU};T$-|FJD70vQL{FVl+dKgk=BKXYgYUA$XO7hwH7Y^*vRC$?o&+oRd0`dV{s zZ_N$3J@u4e-ggb(Q%NP^?_B0BycU>VxFBTelIa4re);QUp1eQ1HnU5r>(bQBEl>T# zm|7-kO*(df|4Y=9hnVO(hX|W`?kBNuMv7@x{-0?`>l~(rcD*T zdvzAc1Rg&qonf?jZEMk)B1r|g0w)f;vy%i4Ej)VQOL{?r<}62}l`}Mx(wdAHyNX3m zQ3+jf<63T2&pxxoTB{RPKIBNntB9~4uAX;ndZWhP&qaBcX6;cq!mUu;eVpqbFLRL5 zN#;p+CZEgU7q4wHv2)bFkTPq=n~+=I76@ktzN@Yhnttf-&&pyS9sicu%9}GeCfj${ zZf2A}`N&&md+68h+vzUWoYA(;OCR_B{u!`#=G70o7bTpVTM~3`cj~=ZFOkb1nVxc+ z-*7l&u*gL6(qT96N=`*zhS{G*7KYX)$n(usJ?`CZDslTni1n6A=gRYVD+cBmHzYY4Dp$)7(8_%pZc2LmH!Ue)H|Bw znTPQA%ggSwv<+KdZxiP4FSpOC=IdlD%d3_~eODfbA3y%;X!6$=#}9}5_eDp%ziN1` z;-Aum+Q4Hx%b8bvZTe^TZ~OJ*=i^sTKfZq6+&y)?du{)C%I>S-oGWiv!*!MazYN>) z|KDExc$)q7xqScp)#5jP&-YKTTE3otgess%Jsg|?aK{b^L`fTm}$M{?T4TK2j%_e$#1># zk+ZbqPriP9;;RYDtlZX>Y{GVJhbBMopSRC)(HaH*h3(JvJ7ptS%gk8JJ z=kR=quXAR(+;PQLN$7>Ui-@y;6=TJIE6cx&n?yNc{(pIPp@ii?tKB?VyLy-3Et?Cz z2~J;KSM`x?t=NWl%iZMy1Okq~dhz4q$Hmvx^ApP#s__*6dUmt$zz4fpUxun*A-48) zET4~tEkC~g-aH#6i#=9#l@*`70uN0IU%z3x`1zl|?r;}=W_Z|lUx{l^W#7&S5xXk> z*DD=Z-aP)msUXcHJd3UB{{I@L=EsM1pPtPR6xP@<`@isli`-w|d{94k=~M857Yje! zb@hDwD4Dh4iqi9khs8OX+ar7~H+3>NFx^?S_;7l=f1kgs%7TTen|-|J?z5>YY1;2# zxj^pC*Wej(A6~G^EVAEwFt&yNQm0kR+aq!U{FSFgpU@Csj?tUY_h#X_r^FE7q&TSP@LM<2-XyMG|jy7JuYCJu-8 zpHHq%wDjkA{@~-olb6lcoAgO?96F)T&~iid;jFt8E{pfaAGWl}+s46u<>ccBU(PO; zPyN0jxcqTl%i4+xo~wNQ_vT$V`MB_b&YXE1J`aSy32?}~?vPzGEh_xUw~xlGCub+M zs~p-i@0;mH?hg~=e8I^r`B`g{NF3XHPa{5g)q7Byj6Lep0i-x3Vy#5=?(jv zEaq+4-Iy3`c0x7M<+`U^kyNYQhE#8(C2UDChYuvC_%JxN%)b9y zL#v)Bd^{_(^a<}hc58vKc~%AT#|(SczDQ_Xoc&{`-mLDPx(MFR+50Tqwp}@2UCOij z$CT;ErxeA>C9lw%ZtczA$H_7w%fl`GzRC;fE#Y_k&99ws`qnUS;+Zb4X?Ne4d=0KU zx@4){PtnN?d(%A+9(?)5_2|@9#g(x}i|6RKylJR3Y-9D`EHXcT`J3y)r*h{d%wlGD zc@oz5^Csu+q#NgQ_(Y|xxGo>L*==Fkx7_#W%D0Yp91HW0WPO}cv_DvYW7pDX+rG2G zn-llse_bnlA$!i7vd+F^Y4PLDp%1}k=h=!&J|<64%6xV9 ztiznc_xu_%B7F3MA2}~LfBby^^2qmkGJ5YF4?haJ^t;YybKE_XC~=8L@r8UB4r()G znuXcB{q6ra<-@z^Z^?&m2smuGUaSxw`K#7@>%+ErYRWYa)41~m^)eo=)~Z~z*=`SO zjQ{=P4`r z(lTGZbXM}*I5d^L`fc(d&|0@gDP>b8e^1 zCQ8Q%t^7WJ=i}=035%vTGWYMDX2rD1HR^!b;pA-AiWg5OB$+HU_-$Bq-(1D$%X6l8 z{kwew<>sdTjXXC~SYyhb0%eB6Djw4s&DfybGaq~tsXEG-xu^Tdbyg0h=bAAW&i5Pq zl)m-1;k?uKwCBth_8n8vO38S-$P(!*vyTE;D*0xeJ4&uWnh@0|SrQi~MRm{YzOh?(=Q^wVG5uG))pyQ22KxhtMphx5Ek4!fgr2Rbc z;k9~$u&cP?D(izSY8uJQUUlrM=T6r;(%h;W@2}h?!rg!F(+8VVyZ=_oKkqDJNQ(D= zRQ2P4@Qa7~uhg$I`XAv7)(H2@J@JRZG@W66_l>#o9c!8e?ReeI6fk% zqDa`Sn~}VmzO0+%H}^|lPTl)XTgE9$%kOnZq(wJpt1r9PC9(R#WUH?|fB#Fl3R`^p zVkGpQ{rzH2bK#1)jS45HgfpwSOUhSdIdsqYxMR1kKj#X%yQ3LR@lhcDuv9Uurx0RQ5ASv_4L;I=k$5XobQ)*C&0B@6 zmCZ_aA9Q~evBjkC#+(ONSKeB2FQRZY1w3Gt5)7pK!J)nBDxrpE(CC zTGmN?X??b@q+-FDtzUKQ~xrrhmQCv9Qm4l6x;7nC=umW4{sKr^C@bw`N!TZ8~#$FUQ=1 zD~U@5RTsDm^H~3%K0}uA$OG>Q(~I*rZ`aYyyWG3|tHO?Hj$*Gr?W_9rE`uYDKd19xnm7wv;YeJO-j@UPW_aAHb zOHcB?AkKX{-i=kDw?+RE<1-82Uj-?@OJrqKbQSKO<@|}#fvMdbUSn(#!qP5 zc5c(f2kVy!{c%*k@oC2Fw&Nws{_(UN;^4Ud_-4r~nXPL-%+CKcEBF39zA($|k{inm ztxru%3)xW~bLH@o9S%>f$F2PnChH@gP=9rjjUkJ5+`WsBgMF^{eC{+j+j+k7KdbOL zXX}5(>lA!7wo_>AaoGm!);}TlemoCv&`c$qAXF z8b0q?-;A#O;ZH89o_UU+sc%pEr{#ZVc^>7qzO-DsdH2rat{kE&l@`BtyQ`I$9Eq(s zuhRdcLOK8G-+$HDs=K=---<@AW7;I<`*ybZBc)}VzuJ9gF@Le5d)vgHzb`y$*!iS0 z?HH@_%e!~>6sCT;IOkve;m0SDF`cgaKNNLcNVj5hQoSy{W$Gy5(%ekj`SV3 zYF;E=-(@4Kzs`P)kOs^XHYYMkm+^d=O;MMVKmXDjdEBT{di9}>JS5zPTD$?K6UNVnQFy+f_<3zKw zwT?3*3?^@7cD1rmNnKF1K>uZZZKJb~8i(0#JNF$;hAuG;r`dD$VvUo;Z`^!7gZt>S zQ)WMRCNh_lE9RLt9j~e2V^R2=d8O87;$q8&6x9PcyD~B*E|&~HEVS`Pg~)P; z4Gq<pIM(`hirr~Vp;}F?{)gv{{@G1>f5gpHWv^>~msJo~c*e9_^~C?Zpy#N19RJ!)K-)_>|UEdev+|Ju@N;hKRjl%UA`Ti4ra>>s< zUVBR8^78l-?}hd~zgJVn^71>&^YZnoZ08L8k12aQSk98t_fM1)%$#qV%FgBMTI=@c z(hx(-(f;EVw~?#%n>vfZ=r2DhA9nkvci^o8y$<3@;e6Ts3d*<8j_4wd(T| z6J8bB)^gL==GAZXLZTu(mL|{Iu=)qL$UcS&{dM{0HVeqdTsyvK8{1vRuq@5lGrsMb zCZ(I3F$q!Y#|qXSMTQM%=d2hvTo)^%4;5ra5iE|HI-93CbZsD`EtCzd!Ur>&*bJ` zO#i|pF7C;U5LzpLF81<8&C&O2uJ31Y7)vMvPI}M^v%m273|2x>kTlbJxS|(=o z+nZGad7%&P8}A5y+&QoB@E2uoJ0Vxyl^^FHKOp#h)6Fk3^2UxkXDrj5|5Dp{c$i@hc8SuEeM{TWVNP*o#+mH zlD$#m+~kU7ew*VTXSi*ynfZXZYPSF8|LfP!bGgj(L+H`GdD4ANeyo{|W>+^Kv|E&9 zG_SXDo8o>}@$&*FatrOAN%gy()ZZ+T`~SC0kZ-;Ap92q{xh3-N{rXvN!|wBoR;Ta? z)QC)ct(E&E)8~50)k!bHkJJ2d>|Xae ziKzX@_X-Hf&Rib#UA9!F{j}8o6B3W_ylH-2T5ISOr7~rst&U2;p@Vm>Pl=dhQE+m$ zl4PrUpy1xtIG55z)rz8wb6NeCxvtx}rpAv$_Tf6Qx=Q&KwN0Ko#U#WhFzCC~FK(N+ z>1kzH$;setC%s%3a3u9hq$w+0Ib2<^mTy=3EU^cZy%bL8cx=mmzv=FW34i~ISw4@j ztWb}*s?R>-TJ2K#&5B3YT;-nZ&f;4(?UuQStD)C4!IXx~WIyLfLId7^O^|t_mm3`CK(O&utK0x9X$5dwS*Thmrrn*SzQ7#P9yQOTurT?E|Z& z>d`MJ*NSp3zS429uyMEgfn56t$sOJtHZK)s1kSkdb^XRE2`@LWt`QO6JUglTwomku z4eRu>PwjnPwEodU;~xyyMZB7mL+(gz-F?_}gWL376KoPE^)Np@98nY%zPb8HTi?fx z_gKTbtyT}gZ<3J! diff --git a/vendors/ott/ocamlgraph-safe-string.patch b/vendors/ott/ocamlgraph-safe-string.patch deleted file mode 100644 index 8290f72bdb5a..000000000000 --- a/vendors/ott/ocamlgraph-safe-string.patch +++ /dev/null @@ -1,19 +0,0 @@ -diff --git a/lib/bitv.ml b/lib/bitv.ml -index 28d0ac5..23f5325 100644 ---- a/lib/bitv.ml -+++ b/lib/bitv.ml -@@ -449,11 +449,11 @@ let all_ones v = - - let to_string v = - let n = v.length in -- let s = String.make n '0' in -+ let s = Buffer.create n in - for i = 0 to n - 1 do -- if unsafe_get v i then s.[i] <- '1' -+ Buffer.add_char s (if unsafe_get v i then '1' else '0') - done; -- s -+ Buffer.contents s - - let print fmt v = Format.pp_print_string fmt (to_string v) - diff --git a/vendors/ott/ott.install b/vendors/ott/ott.install deleted file mode 100644 index 55d36bde3d86..000000000000 --- a/vendors/ott/ott.install +++ /dev/null @@ -1,3 +0,0 @@ -bin: ["src/ott"] -doc: ["built_doc/top2.pdf" { "doc/ott_manual.pdf" } "built_doc/top2.html" { "doc/ott_manual.html" }] -share_root: ["emacs/ott-mode.el" {"emacs/site-lisp/ott-mode.el"} "tex/ottlayout.sty" {"tex/ottlayout.sty"}] diff --git a/vendors/ott/ott.opam b/vendors/ott/ott.opam deleted file mode 100644 index cc444812d660..000000000000 --- a/vendors/ott/ott.opam +++ /dev/null @@ -1,12 +0,0 @@ -opam-version: "2.0" -synopsis: "Ott is a tool for writing definitions of programming languages and calculi" -maintainer: "Hannes Mehnert " -authors: [ "Peter Sewell" "Francesco Zappa Nardelli" "Scott Owens"] -homepage: "http://www.cl.cam.ac.uk/~pes20/ott/" -dev-repo: "git+https://github.com/ott-lang/ott.git" -bug-reports: "https://github.com/ott-lang/ott/issues" -license: "part BSD3, part LGPL 2.1" -depends: [ "yojson" "ocaml" {>= "4.00.0"} ] -build: [ - [ make "world" ] -] diff --git a/vendors/ott/regression/Makefile b/vendors/ott/regression/Makefile deleted file mode 100644 index dc26d697204b..000000000000 --- a/vendors/ott/regression/Makefile +++ /dev/null @@ -1,81 +0,0 @@ -########################################################################## -# Ott # -# # -# Peter Sewell, Computer Laboratory, University of Cambridge # -# Francesco Zappa Nardelli, Moscova project, INRIA Rocquencourt # -# # -# Copyright 2005-2008 # -# # -# Redistribution and use in source and binary forms, with or without # -# modification, are permitted provided that the following conditions # -# are met: # -# 1. Redistributions of source code must retain the above copyright # -# notice, this list of conditions and the following disclaimer. # -# 2. Redistributions in binary form must reproduce the above copyright # -# notice, this list of conditions and the following disclaimer in the # -# documentation and/or other materials provided with the distribution. # -# 3. The names of the authors may not be used to endorse or promote # -# products derived from this software without specific prior written # -# permission. # -# # -# THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS # -# OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED # -# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE # -# ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY # -# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL # -# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE # -# GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS # -# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER # -# IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR # -# OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN # -# IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. # -########################################################################## - -# REGRESSION ########################################################## - -all: regression - -regression: regression.ml - ocamlc unix.cma str.cma -o regression -dtypes regression.ml - -regression_p: regression_p_client.ml regression_p_master.ml - ocamlc unix.cma str.cma -o regression_p_client regression_p_client.ml - ocamlc unix.cma str.cma -o regression_p_master regression_p_master.ml - -regression_para: regression_para.ml - ocamlp3lopt -par unix.cmxa str.cmxa -o regression_para regression_para.ml - -reg: regression ott - ./regression -no_hol -report ../tests/test*.ott - -regb: regression ott - ./regression -no_hol -baseline ../tests/test*.ott - -regh: regression ott - ./regression -report ../tests/test*.ott - -regbh: regression ott - ./regression -baseline ../tests/test*.ott - -simple: regression - $(MAKE) clean-regr - -make -C ../coq - ./regression -todo_list -todo_list_file regression-small.otl -keep_temp - -clean: - rm -rf *~ - rm -rf regression - rm -rf testRegr* - -clean-regr: - rm -rf testRegr* - rm -rf *~ - rm -f regression-jenkins tests.xml - -# Jenkins - -# regression-jenkins: -# ocamlc unix.cma str.cma -o regression-jenkins -dtypes regression-jenkins.ml - -run-jenkins: regression - ./regression -baseline_file baseline-jenkins.bl -todo_list -jenkins diff --git a/vendors/ott/regression/README b/vendors/ott/regression/README deleted file mode 100644 index 29720af08ece..000000000000 --- a/vendors/ott/regression/README +++ /dev/null @@ -1,10 +0,0 @@ - -$ ./regression -baseline -todo_list - -computes a new baseline for all packages. - -$ ./regression -dump_baseline - -dumps the baseline - -$ ./regression -baseline diff --git a/vendors/ott/regression/_ott_coqrc.v b/vendors/ott/regression/_ott_coqrc.v deleted file mode 100644 index 01f9979800eb..000000000000 --- a/vendors/ott/regression/_ott_coqrc.v +++ /dev/null @@ -1,7 +0,0 @@ -(*This file is used by the regression tests.*) -(* Add LoadPath "../coq/metatheory".*) -Add LoadPath "../coq". -(* Add LoadPath "". *) -(* Add LoadPath "../coq/ln_sets". *) -(* Add LoadPath "../examples/tapl". *) -(* Load "../examples/tapl/_ott_coqrc". *) diff --git a/vendors/ott/regression/baseline-jenkins.bl b/vendors/ott/regression/baseline-jenkins.bl deleted file mode 100644 index c84182903608016b9d926ccd4564a96ceae614b9..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 5195 zcmZpfx@;c!Gd(QyKc^aMClYQX|)RL!|r1-d0giFw5^O%4-4Hc3rjQJ=t~ z2GY4;fhmR-h+-D02`rKmSd1sINK9Z6pTJ_UV1X5?(t`YwlFZa1L#TSO2`tJJ7C1V< zDVqfgj8JsIR4Pqi(VxJ=Gl4~K0*meh7B}?pF*JZ0sWXAaasrFk1Qv@4ETR)w0+0hA z6p)4n@frEKP~WkbO<-}Jz@jjL#c2Xd^aPeDbO#$6#Ag;K7FXs$O?Q~U;yZyQasrFb z1eVkZEGg(=VQ5fX0#)iYfhBwbi^&9*un8>r6Ik*v9a3BppOy+$oiu?ZaRN*31eSye zER_>jDi$o@R6q>~1Ca8}qT-VHjKrKYsJ6HXEZGxSJSMPYO<-xBz|w>fEU@s)n7~px zfhA}HOUVS5zzHlp7z&M`CKgR#sh_|SGl8WJ93s;&6dFSn)=XgOoWPPcfu#c+6blwC zFhO;&aS~MJlnE@8C$OxYz%mIO600zbG=VCdFo9+61eU4^EOWqtumvM@P4!^WJZl2W z@(C<06IhmkJ-!c%Qkd75OkmkKfu(N(%Z3Roy%ShYU{MP5{JIG&yC<;Bn831Y0?YIX zESIn-g?WF+1eT){SQbrSIWmD|;RKdDSd_xNb!Y<1`3Wp*Ca|2Fz_NM*%d-Uw%uqwh zRL=w!R%a%#+?>F&Z34@U2`pPDuzbL#HW?aR*Cwz$p1^Wo0?VTbEc++0{KBR-1*-PJ z1eUiGSWZn~c{73KHg{pluf#v%ImMarjzD;1cJb{&w4~tr8>BaJ80xKiq z1eSXfSQ!~6u-u)%$|!+FwK>$}e-l_4xhJr^n83=&HG$>%1Xe~R4Ao|^IA&$!n83;? zI)UZW1Xf0o2`nEcurlgkQ4Wn~Rz{%-tc>y#SpH04Wt5x1@_Pa+qZtej7Ae!8Tlu$GJ0Xr0F8H6 zMuQ2gjJ6Y48Kow$GTKaFWt5!2${2!012o`S8LcL;GP+M-WmK8K%IG$Ml~H*DD`OlM z4baeMWptUq${09-l~Hd3D`UU}Rz}?ktc)2L8q5(v>NkOvF?s?kqs0VP#;6IbjOG(q z8H=!JfCp;C1Xjk>39O7x6IdBjCa^L(PGDuM!ANQ5daweRl`&}oD`WlyRz{x*tc-aR zSQ*JSzUa3`&pz{q|hSQ#H+(E!cStc=Gdurh)Qi47B2881y>Wn4djmGKo8 z4Hl3hfR*vW1Xe~+Ik9U3E90FBtc*J+urhwZqQMfT;noCJMo>|4WCAPWvk9z>hbOQy z{=?8TYXU3d^$Dy@ zLRd7wWBSJgRwht!@n`}o6Uziv#)lJFnPf0DSi+se#594G2~=FXnZU}#H-VK&eF7_! z8hTp?W;_$m1Xd==39L-U6IhufCa^MooxsXufUX*rikR#turk?AU}e&uz{+GZftAU6 z0xOdhx@uSwVp5pE%A`AimC1bqE0fLyRwnHUtV}NGs$uDeDR=@aQ_uufCg%yPOaT*E znfxcPGWntB8Z+IJ)Cy>9F~v?`Wr~@=%H%tNl__chD^uhIR;CDa^I^%2DSZMfQ`!Vp zrtk@@OeqssnUW{4G9{s_h9w=QunDY8p%Yk{j3%%$g-l>&GMvE5l(PV>rEF0Eb4v9D zR;H>6tW4PxSeYs&urifTU}Y-9XjsK(CFaE&85o%98d&NY!0l?Cz{=Dzft9Ir0xMI~ z1XiZT39L*F3l>`4Hzu$$ zfin7*39L-lCa^NSpTNp=63O#L$tlGUqd~bGl*9K;U}XYX^>YF%(+|v8P0GwmiBBx8 zh)>NeD5-=e3TE~Rtjuf^Sed?0U}a{Rz{<=F>b@;lV2he2z`9fNOAyI{S!e<)v)}|) zW~K?O%={BrnfWHLa4%S3gGFCvaU$G4rq2^tnHeUqGD}ThW%@sXmFeFER%UTb=O*VD z#-|pRCgx<8RK`~zwEvyJ%FH!^m04v1D>LT=R;FhYSeX?UEa22dwKpX-Eib+(wIDUI zBsC>IFF&s&wJ0|;FEIyh64>J+6Ihw`Ca^LKPhe&GFoBg>8^hzNxk;%h@g?~M2#p|5 z%S~Wq`aOY_S#|;|)2|7v%%&JVhXgao9ncKVtT};|Sz`h#v(p4tW_4(2+Y`vM%*GQ~ znT;l}GW$$mWj36^%Ir0PmDv+BxF9(l6lma>f@OJT{RynhHWOHx!zQpYTTftRmYBfG z9K2uwrxt2(A+&=W9A8|TR8*Riitw`g1XgCZ39QV@6IhvDC$KUrO<-k?CE6HR&B5$E zft5L60xPrb1XgDM39QUI6Ihwki8cmSr7-(WU}cV)z{+esft5LO0xPrG1Xkw41q(Pe z@OlcIWf5LVoxsYRGJ%!3ZUQTF@&s09hY76A)kGQs_fX;lR_443tjrw~SebL7vD3O> z0jCZwmw*B~KCLt_xg;|`4=FQMPGDuOn83L;)=_e@}AUN(W1xqAXDbH)T#=EWqq z1|Cz>C$KV4o50FkJb{&Y>I7EibrV>b*OFimtX;soZ~`myf(fk5wG&vG=TBf|u9?8f zyd5LYLDMZ#xXzux%DidFtjsGXurjwzU}ZjtEBj!U5f>(~GM}Ho%6wn~EA!b2 ztjuR7u$;uy4JjjX@{P=4%sJnXeL4!t9>F%6wu1 zEA!F`tjxzJure>1z{-3dGoR$97Nw`gquZ_v&-_Oxurgnoz{!Gd(QyKc^aMClYQX|)RL!|r1-d0giFw5^O%4-4Hc3rjQJ=t~ z2GY4;fhmR-h+-D02`rKmSd1sINK9Z6pTJ_UV1X5?(t`YwlFZa1L#TSO2`tJJSZpUO zaC87;7MleNj8JsIR4Pqi(VxKLIe~>|0*meh7B}?pF*JZ0sWXAaaso^61QxLgETR)w z0+0hA6p)4n@frEKP~WkbO<-}Jz!E!wMPUL<^aPeDbO#$6#Ag;K7FXs$O?Q~U;yZyQ zasrFi1eVkZEGg(=VQ5fX0#)iYfhBwbOW_0-lL;*O6Ik*v9a3BppOy+$oiu?ZaRN*3 z1eSyeER_>jDi$o@R6q>~1Ca8}qT-VHjKrKYsJ6HXEZGxSS|_l0OkioAz|w>fEU@s) zn7~pxfu(-}OV9+CzzHlp7z&M`CKgR#sh_|ya{@~YI7FslC^UvDteL>lIe}&I1eOkP zP%K!mzy#I7#z|0>Qzo!Xp1`tp0?Q7BrG0*g|Z=hsbO**$^f>I9Y< z6IiBCV7Y`vDa`vjCa@fxz;b^A%c2P^3n#GL!J-uAtwR%7&QD-@If3Qe1eVnkSe`9d zV1^n}rg|o@usSn=<>myI&l6Z~OkmkMf#m}>waL)nx;BC3@dTE?6IdQiVA(%`urhK_U}aRD!17`O%kv4Wj7k`)&0w+2 z%E&Q+l~Hs8E2I7dmQNE{K2Bg|)WM=08q=(dLK9dSu1Xf1l39O916IdAqCa^N{Phe&A z!lD5h^Q?>p6IdB-C$KVxPhe$~n!w5^If0ci1d9e}$g?t9O<-kopTNqPIDwVXZ2~K! z@&s1KI4l~Vq0h?bGJ%ybZ~`l1_5@bOfC;ROx)WF#GcYumBZAa#0xM(m1Xjk<39O7! z6IdC|C$KUWVbK5&)QAbJjHwe?8S5voGNw#mWptdt%2sN+tc;Tl5^Or)vDY<$m2vt6 zR>qAJSQ)2HU}Y?xz{m#RfI5Rk13W=(n!w7qe*!Dx%?YfG z`=H@;4T}bNg4#2Il@U}xJf6VHcwz!8CJft7Ln z1XjjZSTtBbiU3x|3lmrwLFELfjJY#`m2u|;R>m(_G+4qk+?v43_?l}UaAD-+8ER>p@DSeaxnG+4r&#Kbg#m5F}>E0g8~Rwlj) ztW4??Seew&TRSl0nRq6!GD%KgWdap8-zKm!ex1O|WPq+3mWr6{C$KWvO<-lxpTNpw zGl7-KdIBqx6}oCz5@J%Az{;dMftAU90xOfw1Xd>P39L*m=&E7qhbedhD^t(}Rwm~O ztV{tDSeg7Murm3f=NdEJlGF-lY%#@7U}cJ#z{=!1ft4w00xMJG1XiX9bn{`!jVXNs zD^uD8R;KU?tV}5rSecS1urei~tA-^VrmzXDOraB4ner#FGKEZFWip(=%9OJJt*vZP z0CP(91XiZ139L-n6IhulCa^Myv8yOgw=^9w-8o=#poxsY}GJ%z; zbOI|=(*#zg#tE!U4GR`nqSW2-pq6%VJS-tGl}un|DxSc~)H{Kdsb~T#Q}+Z`rmh7G zIF+#JN-IiDElVsy(q1rum8o_DE7SA|tV}f%AYnIU!2*rq%3|H5{QR5;6Ihu#Ca^NK zPhe$Q2o16M6Ihw%Em)ulQj=JeS&{)#G-(1W)5Hm^OsglbGUZKRWm-9bm1)I-1==7* zrFkWl1*s_@WpgI5GR>aA%Cr?4K$|D9GHqJ0Ko6v>ptLBpI5W2(Cl#b}*#uUmr4v}0 z_D^7CS~7u^Y3~G9racQ5Xn|CgRKnc0VFD}D`U$K|CnvBn^-N%8IzEAw>DYn=CLmSC z`9&r9X=$Z7IS5mCO<-l(If0ew@&s0<9TQlYE`pp4^-D=9)aoM>SeXt_U}d^HftBgd z1XiZo6IhvULHz=DWN8w}h36))GJ!HWsH9jmftBg$1XiXe3l^Ay>@LbLP0z@wM78|J z1Xdm6;jTfm^V^7Bx+Pb*JQ)Ad&;K&;(Xy!3nI) zOcPj{`6sY4^G#skUa-Ihi@wa_M7VuSpC_;~GfZG*mYTrI^nU^?)4vI<%;K2NP0lZj zPc1A>%*iaNjITgw|2u(|nQHpLscCufMX3d;i6yBi z@p<`qC8MG?NHBxk0nPBtniE)=H72k!J569^R)>bRJ%K#SY&?OL*=PbQ zv(E%pX2S`r%w7{%nLROs3zE}8fd-B#Se9qjpTNp&Gl7*kYyvB@^#oRCi3zOC!3!2} zYM}-fLOaO8@x`S{MWs2Z2rs)&U}bijz{;F3ftA^H0xPr91Xku)qK$#o9L&xWSeXMR zurg;&U}g57z{;#Mft5L(Xk%bi3bXG7R_3S)tjr}7SeYXyurixXU}Y{`uz*toucyFS z7U8AT39QU16Ihw+Ca^LmPhe$sn83AaO&W4 z2`HfB(@OJ_OEUBGkTO%{1XkvX39QVMCa^M>Phe%90171%41&9;bOI}L(*#!LITKi! z8z-3z{=b`ft5L90xR=k5?lk1sp%6~ znWs%)W!^A>m3is}R_1jRSee(7U=XZbz`Sq*EAxU0tjxP6urkk|z{*@Rft7hXMxKMF zTcmKEJAsvX)dW`NBNJGeS59DMZkxc$d=OXm!7L*#Okia`KY^9`zywz2vlCdE&rD!B ziK!b>M&#rtCxT)X5sVururlwPz{-4M0xR?039QW5Ca^MJC8mVgJ%N?^!~|C6M-y0? zmrh`1UNV7|`95Yo$xSUvPmM>nT^FADk4|7^zBGZA`OO4Y=Jn9fe@V14@FWEafIAad UnZHe7WxhRumHEpAR_4zR02s^-j{pDw diff --git a/vendors/ott/regression/baseline.bl b/vendors/ott/regression/baseline.bl deleted file mode 100644 index e97bc3bb052b972f72f5cfde341171214ea1a8c6..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 67 zcmZpfx@;c<1A{&T1A_nq1A`%my+1n6%K#FDZF2VS%F~8g`hlz|p}0 E0E\n"; - output_string fd " \n"; - output_string fd " \n"; - output_string fd " \n"; - output_string fd " details about failure \n"; - output_string fd " \n"; - output_string fd "\n"; - close_out fd; diff --git a/vendors/ott/regression/regression-small.otl b/vendors/ott/regression/regression-small.otl deleted file mode 100644 index 31358bb2a90f..000000000000 --- a/vendors/ott/regression/regression-small.otl +++ /dev/null @@ -1 +0,0 @@ -../tests/test10st.ott diff --git a/vendors/ott/regression/regression.ml b/vendors/ott/regression/regression.ml deleted file mode 100644 index 3cd122c36fb8..000000000000 --- a/vendors/ott/regression/regression.ml +++ /dev/null @@ -1,842 +0,0 @@ -(**************************************************************************) -(* Ott *) -(* *) -(* Peter Sewell, Computer Laboratory, University of Cambridge *) -(* Francesco Zappa Nardelli, Moscova project, INRIA Rocquencourt *) -(* *) -(* Copyright 2005-2010 *) -(* *) -(* Redistribution and use in source and binary forms, with or without *) -(* modification, are permitted provided that the following conditions *) -(* are met: *) -(* 1. Redistributions of source code must retain the above copyright *) -(* notice, this list of conditions and the following disclaimer. *) -(* 2. Redistributions in binary form must reproduce the above copyright *) -(* notice, this list of conditions and the following disclaimer in the *) -(* documentation and/or other materials provided with the distribution. *) -(* 3. The names of the authors may not be used to endorse or promote *) -(* products derived from this software without specific prior written *) -(* permission. *) -(* *) -(* THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS *) -(* OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED *) -(* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE *) -(* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY *) -(* DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL *) -(* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE *) -(* GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS *) -(* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER *) -(* IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR *) -(* OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN *) -(* IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. *) -(**************************************************************************) - -open Unix -open Sys - -type outcome = Success | Failure | Undone | Skipped - -type tp_result = { ott : bool; tp : outcome } - -type result = - { coq_t : tp_result ref; - coq_no_list_t : tp_result ref; - hol_t : tp_result ref; - isa_t : tp_result ref; -(* isa07_t : tp_result ref; *) -(* twelf_t : tp_result ref; *) - caml_t : tp_result ref; - latex_t : tp_result ref } - -(* ** options *) -let compute_baseline = ref false -let baseline_file_name = ref "baseline.bl" -let use_config = ref false -let config_file_name = ref "config.otr" -let todo_list_file = ref "regression.otl" -let todo_list = ref false -let tests = ref [] -let isa_test = ref true -let caml_test = ref true -let coq_test = ref true -let hol_test = ref true -(* let twelf_test = ref true *) -let latex_test = ref true -let dump_baseline = ref false -let night = ref false -let jenkins = ref false -let emails = ref [] -let dump_report = ref false -let keep_temporary_files = ref false -let colour_output = ref true - -(* ** state *) -let progressions = ref 0 -let regressions = ref 0 -let ott_progressions = ref 0 -let ott_regressions = ref 0 -let coq_progressions = ref 0 -let coq_regressions = ref 0 -let coq_no_list_progressions = ref 0 -let coq_no_list_regressions = ref 0 -let caml_progressions = ref 0 -let caml_regressions = ref 0 -let isa_progressions = ref 0 -let isa_regressions = ref 0 -(* let isa07_progressions = ref 0 *) -(* let isa07_regressions = ref 0 *) -let hol_progressions = ref 0 -let hol_regressions = ref 0 -let latex_progressions = ref 0 -let latex_regressions = ref 0 -(* let twelf_progressions = ref 0 *) -(* let twelf_regressions = ref 0 *) -let summary = ref [] -let report_fd = ref Pervasives.stdout -let config_state = ref [] - -let _ = - if !night then begin - putenv "CVSROOT" ":pserver:zappa@localhost:/usr/groups/netsem/dynsem/cvs"; - putenv "CVS_RSH" "ssh"; - putenv "PATH" "/home/yquem/moscova/zappa/bin:/home/yquem/moscova/zappa/source/godi/bin:/usr/bin:/bin"; - putenv "TWELFSERVER" "/home/yquem/moscova/zappa/lib/twelf/bin/twelf-server"; - end - - -(** ******************* *) -(** colour highlighting *) -(** ******************* *) - -(* vt220 colour definitions *) - -let black = 0 -let red = 1 -let green = 2 -let yellow = 3 -let blue = 4 -let magenta = 5 -let cyan = 6 -let white = 7 -let dark_gray = 60 - -let _reset = "\x1b[0m" -let _color fg br = Printf.sprintf "\x1b[%u;%um" br (fg+30) -let _bold = Printf.sprintf "\x1b[%u;%um" 0 (1) -let _w = "\x1b[0;1;4m" -let _r = _color red 0 -let _b = _color blue 0 (* was blue 1 *) -let _g = _color green 0 - -let col_wrap col s = col ^ s ^ _reset - -let col_bold s = col_wrap _bold s -let col_red s = col_wrap _r s -let col_black s = col_wrap _b s -let col_green s = col_wrap _g s -let col_yellow s = col_wrap (_color yellow 0) s -let col_blue s = col_wrap (_color blue 0) s -let col_magenta s = col_wrap (_color magenta 0) s -let col_cyan s = col_wrap (_color cyan 0) s -let col_white s = col_wrap (_color white 0) s -let col_dark_gray s = col_wrap (_color dark_gray 0) s - -(* ******************************************* *) - -let pp_fn s = - Filename.basename s - -let error s = - print_endline ("regression: " ^ s); - exit 1 - -let pp s = - print_endline s -(* if not !night then print_endline s *) - - -let pp_coloured c s = - if !colour_output then pp (col_wrap (_color c black) s) else pp s - -let pp_bold s = - if !colour_output then pp (_bold ^ s ^ _reset) else pp s - -let pp_tgt i_of_n s cmd = - pp ("*** " ^ i_of_n ^ " " ^ s ^ ": " ^ cmd) - -let pp_success s name = - pp_coloured green (" * " ^ name ^ " " ^ s ^ ": " ^ "success") - -let pp_failure s name = - pp_coloured red (" * " ^ name ^ " " ^ s ^ ": " ^ "failure") - -let pp_report s = - output_string !report_fd s; - output_char !report_fd '\n' - -let maybe_remove filename = - if not !keep_temporary_files && Sys.file_exists filename - then Sys.remove filename; - () - -let execute_cmd_list l = - List.iter - (fun c -> - print_endline ("*** executing "^c); - let status = system c in - match status with - | WEXITED n -> if not (n= 0) then error ("error while executing "^c) - | _ -> error ("error2 while executing "^c) ) - l - -let parse_todo_list () = - let rec parse_lines fd = - try - let l = input_line fd in - let pl = Str.split (Str.regexp "[ \t]+") l in - ( match pl with - | t::[] -> tests := (t,[t]) :: !tests - | n::":"::tl -> tests := (n,tl) :: !tests - | _ -> error ("malformed line in todo_list: "^l^"\n") ); - print_endline ("todolist"^String.concat " " pl); - parse_lines fd - with End_of_file -> () - in - if not (file_exists !todo_list_file) - then error ("todo_list file does not exists"); - let todo_fd = open_in !todo_list_file in - parse_lines todo_fd; - close_in todo_fd - -let parse_config_file () = - let convert c = - match c with - | "+" -> true - | "." -> false - | _ -> error "malformed entry in config file" in - let rec parse_lines fd = - try - let l = input_line fd in - let pl = Str.split (Str.regexp "[ \t]+") l in - match pl with - | c::cl::i::h::o::l::n::[] -> - let c = convert c in - let cl = convert cl in - let i = convert i in -(* let i07 = convert i07 in *) - let h = convert h in -(* let t = convert t in *) - let o = convert o in - let l = convert l in - config_state := (n,(c,cl,i,h,o,l))::!config_state; - Printf.printf "config: %s %b %b %b %b %b %b\n" n c cl i h o l; - parse_lines fd - | _ -> error ("malformed line in config file: "^l) - with End_of_file -> () in - if not (file_exists !config_file_name) - then error ("config file does not exists"); - let config_fd = open_in !config_file_name in - parse_lines config_fd; - close_in config_fd - -let options = - Arg.align - [ ("-baseline", - Arg.Unit (fun () -> compute_baseline := true), - " compute and save the baseline"); - ("-baseline_file", - Arg.String (fun s -> baseline_file_name := s), - "<"^ !baseline_file_name^"> name of baseline file"); - ("-todo_list", - Arg.Unit (fun () -> todo_list := true), - " use todo_list"); - ("-todo_list_file", - Arg.String (fun s -> todo_list_file := s), - "<"^ !todo_list_file^"> name of todo_list file"); - ("-use_config", - Arg.Unit (fun () -> use_config := true), - " use a configuration file"); - ("-config_file", - Arg.String (fun s -> config_file_name := s), - "<"^ !config_file_name^"> name of config file"); - ("-no_isa", - Arg.Unit (fun () -> isa_test := false), - " do not run the Isabelle test"); - ("-no_coq", - Arg.Unit (fun () -> coq_test := false), - " do not run the Coq test"); - ("-no_hol", - Arg.Unit (fun () -> hol_test := false), - " do not run the HOL test"); -(* ("-no_twelf", *) -(* Arg.Unit (fun () -> twelf_test := false), *) -(* " do not run the Twelf test"); *) - ("-no_caml", - Arg.Unit (fun () -> caml_test := false), - " do not run the OCaml test"); - ("-no_latex", - Arg.Unit (fun () -> latex_test := false), - " do not run the LaTeX test"); - ("-dump_baseline", - Arg.Unit (fun () -> dump_baseline := true), - " dump the baseline"); - ("-night", - Arg.Unit (fun () -> night := true), - " perform the nightly regression test"); - ("-jenkins", - Arg.Unit (fun () -> jenkins := true), - " output result in XML format for Jenkins"); - ("-email", - Arg.String (fun s -> emails := s::!emails), - " send the night report to"); - ("-report", - Arg.Unit (fun () -> dump_report := true), - " dump a report of the outcome of the tests"); - ("-keep_temp", - Arg.Unit (fun () -> keep_temporary_files := true), - " do not clean up temporary files"); - ("-no_colour", - Arg.Unit (fun () -> colour_output := false), - " do not use colour in output"); - ] - -let rec search t state = - match state with - | [] -> raise Not_found - | (x,e)::tl -> if (String.compare x t = 0) then e else search t tl - -let check_config t tp = - try - if !use_config - then - let entry = search t !config_state in - ( match tp, entry with - | "Coq", (c,_,_,_,_,_) -> c - | "CoqNL", (_,cl,_,_,_,_) -> cl - | "Isa", (_,_,i,_,_,_) -> i -(* | "Isa07", (_,_,_,i07,_,_,_,_) -> i07 *) - | "HOL", (_,_,_,h,_,_) -> h -(* | "Twelf", (_,_,_,_,_,t,_,_) -> t *) - | "OCaml", (_,_,_,_,o,_) -> o - | "LaTeX", (_,_,_,_,_,l) -> l - | _,_ -> failwith "Never happen" ) - else true - with Not_found -> print_endline ("*** test "^t^" not found in config file"); true - -let run_test i n (tn,tl) = - let i_of_n = Printf.sprintf "(%d/%d)" i n in - - let t = - if List.length tl = 1 - then "-i "^(List.hd tl) - else "-merge true -i "^String.concat " -i " tl in - - let result = { coq_t = ref { ott = false; tp = Undone }; - coq_no_list_t = ref { ott = false; tp = Undone }; - hol_t = ref { ott = false; tp = Undone }; - isa_t = ref { ott = false; tp = Undone }; -(* isa07_t = ref { ott = false; tp = Undone }; *) -(* twelf_t = ref { ott = false; tp = Undone }; *) - caml_t = ref { ott = false; tp = Undone }; - latex_t = ref { ott = false; tp = Undone }; } in - pp ("\n*** " ^ i_of_n ^ " " ^ tn ^ "\n"); - - (* ** preliminary *) - let name = "testRegr"^(string_of_int (Random.int 1000)) in - - (* ** run Coq *) - if (not !coq_test) || (not (check_config tn "Coq")) - then result.coq_t := { ott = false; tp = Skipped } - else begin - let cmd = "../bin/ott -show_sort false -show_defns false "^t ^" -o "^name^".v " (* ^" > /dev/null" *) in - let tgt = "Ott-Coq" in - pp_tgt i_of_n tgt cmd; - if (command cmd) = 0 - then begin - pp_success tgt name; - let cmd = "coqc -init-file _ott_coqrc.v "^name^".v > " ^ name ^ ".coq.out" (* was "/dev/null"*) in - let tgt = "Coq" in - pp_tgt i_of_n tgt cmd; - if (command cmd) = 0 then begin - result.coq_t := { ott = true; tp = Success }; - pp_success tgt name; - maybe_remove (name^".vo"); - maybe_remove (name^".glob"); - maybe_remove (name^".coq.out"); - end else begin - result.coq_t := { ott = true; tp = Failure }; - pp_failure tgt name; - maybe_remove (name^".coq.out"); - end; - maybe_remove (name^".v") - end else - pp_failure tgt name; - end; - (* Coq with native lists *) - if (not !coq_test) || (not (check_config tn "CoqNL")) - then result.coq_no_list_t := { ott = false; tp = Skipped } - else begin - let cmd = "../bin/ott -coq_expand_list_types false "^t^" -o "^name^".v " (*^" > /dev/null"*) in - let tgt = "Ott-Coq" in - pp_tgt i_of_n tgt cmd; - if (command cmd) = 0 - then begin - pp_success tgt name; - let cmd = "coqc -init-file _ott_coqrc.v "^name^".v" in - let tgt = "Coq" in - pp_tgt i_of_n tgt cmd; - if (command cmd) = 0 then begin - result.coq_no_list_t := { ott = true; tp = Success }; - pp_success tgt name; - maybe_remove (name^".vo"); - maybe_remove (name^".glob") - end else begin - result.coq_no_list_t := { ott = true; tp = Failure }; - pp_failure tgt name; - end; - maybe_remove (name^".v") - end else - pp_failure tgt name; - end; - - (* ** run Isa *) - if (not !isa_test) || (not (check_config tn "Isa")) - then result.isa_t := { ott = false; tp = Skipped } - else begin - let cmd = "../bin/ott "^t^" -o "^name^".thy" (* ^" > /dev/null"*) in - let tgt = "Ott-Isa" in - pp_tgt i_of_n tgt cmd; - if (command cmd) = 0 - then begin - pp_success tgt name; - let cmd = - (* Victor's suggestion *) - "echo '(use_thy \"" ^ name ^ "\"; OS.Process.exit OS.Process.success) handle _ => (OS.Process.exit OS.Process.failure);' | isabelle console" in -(* - "echo 'ML_command {* (use_thy \"" ^ name - ^ "\"; OS.Process.exit OS.Process.success) handle e => (OS.Process.exit OS.Process.failure); *}'" - ^ " | isabelle console \"\"" (*^ " > /dev/null"*) in (* was isabelle tty -p *) -*) - let tgt = "Isa" in - pp_tgt i_of_n tgt cmd; - if (command cmd) = 0 then begin - result.isa_t := { ott = true; tp = Success }; - pp_success tgt name - end else begin - result.isa_t := { ott = true; tp = Failure }; - pp_failure tgt name; - end; - maybe_remove (name^".thy") - end else - pp_failure tgt name; - end; - (* ** run Isa07 *) -(* if (not !isa_test) || (not (check_config tn "Isa07")) *) -(* result.isa07_t := { ott = false; tp = Skipped } ; *) -(* else begin *) -(* let cmd = "../bin/ott -isabelle "^name^".thy -isabelle2007_syntax " ^t ^" > /dev/null" in *) -(* pp ("*** Ott-Isa07: " ^ cmd); *) -(* if (command cmd) = 0 *) -(* then begin *) -(* pp_success ""; *) -(* let cmd = *) -(* "echo 'use_thy \"" ^ name *) -(* ^ "\" handle e => (OS.Process.exit OS.Process.failure);'" *) -(* ^ " | isabelle > /dev/null" in (\* FZ PUT HERE ISABELLE07 *\) *) -(* pp ("*** Isa07: " ^ cmd); *) -(* if (command cmd) = 0 then begin *) -(* result.isa07_t := { ott = true; tp = Success }; *) -(* pp_success "" *) -(* end else begin *) -(* result.isa07_t := { ott = true; tp = Failure }; *) -(* pp_failure s; *) -(* end; *) -(* maybe_remove (name^".thy") *) -(* end else *) -(* pp_failure s; *) -(* end; *) - - (* ** run HOL *) - if (not !hol_test) || (not (check_config tn "HOL")) - then result.hol_t := { ott = false; tp = Skipped } - else begin - let cmd = "../bin/ott "^t^" -o "^name^"Script.sml" (* ^" > /dev/null"*) in - let tgt = "Ott-Hol" in - pp_tgt i_of_n tgt cmd; - if (command cmd) = 0 - then begin - pp_success tgt name; - let cmd = "Holmake -I ../hol/ "^name^"Theory.uo" (* ^ " &> /dev/null"*) in - let tgt = "HOL" in - pp_tgt i_of_n tgt cmd; - if (command cmd) = 0 then begin - result.hol_t := { ott = true; tp = Success }; - pp_success tgt name; - end else begin - result.hol_t := { ott = true; tp = Failure }; - pp_failure tgt name; - end; - maybe_remove (name^"Theory.sml"); - maybe_remove (name^"Theory.sig"); - maybe_remove (name^"Theory.ui"); - maybe_remove (name^"Script.sml"); - maybe_remove (name^"Theory.uo"); - end else - pp_failure tgt name; - end; - - (* ** run Twelf *) -(* if (not !twelf_test) || (not (check_config tn "Twelf")) *) -(* then result.twelf_t := { ott = false; tp = Skipped } *) -(* else begin *) -(* let cmd = "../bin/ott -twelf "^name^".elf " ^t ^" > /dev/null" in *) -(* pp ("*** Ott-Twelf: " ^ cmd); *) -(* if (command cmd) = 0 *) -(* then begin *) -(* pp_success ""; *) -(* let cmd = "./run_twelf "^name^".elf &> /dev/null" in *) -(* pp ("*** Twelf: " ^ cmd); *) -(* if (command cmd) = 0 then begin *) -(* result.twelf_t := { ott = true; tp = Success }; *) -(* pp_success "" *) -(* end else begin *) -(* result.twelf_t := { ott = true; tp = Failure }; *) -(* pp_failure s *) -(* end; *) -(* maybe_remove (name^".elf"); *) -(* end else *) -(* pp_failure s; *) -(* end; *) - - (* ** run OCaml *) - if (not !caml_test) || (not (check_config tn "OCaml")) - then result.caml_t := { ott = false; tp = Skipped } - else begin - let cmd = "../bin/ott "^t^" -o "^name^".ml" (* ^" > /dev/null"*) in - let tgt = "Ott-OCaml" in - pp_tgt i_of_n tgt cmd; - if (command cmd) = 0 - then begin - pp_success tgt name; - let cmd = "ocamlc "^name^".ml" (* " > /dev/null"*) in - let tgt = "OCaml" in - pp_tgt i_of_n tgt cmd; - if (command cmd) = 0 then begin - result.caml_t := { ott = true; tp = Success }; - pp_success tgt name; - maybe_remove (name^".cmi"); - maybe_remove (name^".cmo") - end else begin - result.caml_t := { ott = true; tp = Failure }; - pp_failure tgt name - end; - maybe_remove (name^".ml") - end else - pp_failure tgt name; - end; - - (* ** run LaTeX *) - if (not !latex_test) || (not (check_config tn "LaTeX")) - then result.latex_t := { ott = false; tp = Skipped } - else begin - let cmd = "../bin/ott "^t^" -o "^name^".tex" (* ^ " > /dev/null"*) in - let tgt = "Ott-LaTeX" in - pp_tgt i_of_n tgt cmd; - if (command cmd) = 0 - then begin - pp_success tgt name; - let cmd = "latex -interaction=batchmode "^name^".tex" (* ^ " > /dev/null"*) in - let tgt = "LaTeX" in - pp_tgt i_of_n tgt cmd; - if (command cmd) = 0 then begin - result.latex_t := { ott = true; tp = Success }; - pp_success tgt name ; - maybe_remove (name^".dvi"); - maybe_remove (name^".aux"); - maybe_remove (name^".log"); - end else begin - result.latex_t := { ott = true; tp = Failure }; - pp_failure tgt name; - maybe_remove (name^".dvi"); - maybe_remove (name^".log"); - maybe_remove (name^".aux"); - end; - maybe_remove (name^".tex") - end else - pp_failure tgt name; - end; - - (* ** return the result *) - result - -let report tp a b = - if a.ott && not b.ott - then begin - progressions := !progressions + 1; - ott_progressions := !ott_progressions + 1 - end else - if not a.ott && b.ott - then begin - regressions := !regressions + 1; - ott_regressions := !ott_regressions + 1 - end; - - if (a.tp = Success) && (b.tp = Failure) - then begin - progressions := !progressions + 1; - ( match tp with - | "Coq" -> coq_progressions := !coq_progressions + 1 - | "CoqNL" -> coq_no_list_progressions := !coq_no_list_progressions + 1 - | "Isa" -> isa_progressions := !isa_progressions + 1 -(* | "Isa07" -> isa07_progressions := !isa07_progressions + 1 *) - | "HOL" -> hol_progressions := !hol_progressions + 1 -(* | "Twelf" -> twelf_progressions := !twelf_progressions + 1 *) - | "OCaml" -> caml_progressions := !caml_progressions + 1 - | "LaTeX" -> latex_progressions := !latex_progressions + 1 - | _ -> failwith "never happens" ); - pp ("*** progression:" ^ tp) end - else if (b.tp = Success) && (a.tp = Failure) - then begin - regressions := !regressions + 1; - ( match tp with - | "Coq" -> coq_regressions := !coq_regressions + 1 - | "CoqNL" -> coq_no_list_regressions := !coq_no_list_regressions + 1 - | "Isa" -> isa_regressions := !isa_regressions + 1 -(* | "Isa07" -> isa07_regressions := !isa07_regressions + 1 *) - | "HOL" -> hol_regressions := !hol_regressions + 1 -(* | "Twelf" -> twelf_regressions := !twelf_regressions + 1 *) - | "OCaml" -> caml_regressions := !caml_regressions + 1 - | "LaTeX" -> latex_regressions := !latex_regressions + 1 - | _ -> failwith "never happens" ); - pp ("*** regression:" ^ tp) end - else () - -let print_result r = - ( match r.ott, r.tp with - | true, _ -> " + " - | false, Skipped -> " ? " - | false, _ -> " - " ) - ^ ( match r.tp with - | Success -> "+ " - | Failure -> "- " - | Skipped -> " " - | Undone -> " " ) - - -let dump_baseline_fc () = - if not (file_exists !baseline_file_name) - then error ("baseline file does not exists"); - let baseline_fd = open_in !baseline_file_name in - let baseline = Marshal.from_channel baseline_fd in - pp " Coq CoqNL Isa HOL OCaml LaTeX"; - List.iter - ( fun (t,r) -> - pp - ( print_result !(r.coq_t) - ^ print_result !(r.coq_no_list_t) - ^ print_result !(r.isa_t) -(* ^ print_result !(r.isa07_t) *) - ^ print_result !(r.hol_t) -(* ^ print_result !(r.twelf_t) *) - ^ print_result !(r.caml_t) - ^ print_result !(r.latex_t) - ^ t) ) - baseline; - close_in baseline_fd - -let compute_baseline_fc () = - let baseline = ref [] in - let n_tests = List.length !tests in - List.iteri - ( fun i -> - fun t -> - let result_t = run_test i n_tests t in - baseline := ((fst t),result_t)::!baseline ) - (List.rev !tests); - if file_exists !baseline_file_name then remove !baseline_file_name; - let baseline_fd = open_out_bin !baseline_file_name in - Marshal.to_channel baseline_fd (List.rev !baseline) []; - close_out baseline_fd; - pp "\n*** baseline built succesfully" - -let test_fc auto = - (* ** open the baseline file *) - if not (file_exists !baseline_file_name) - then error ("baseline file does not exists"); - let baseline_fd = open_in_bin !baseline_file_name in - let baseline = (Marshal.from_channel baseline_fd : (string * result) list) in - print_endline "content of baseline"; - List.iter (fun (n,_) -> print_endline n) baseline; - print_endline "end content of baseline"; - - (* ** for each test *) - let n_tests = List.length !tests in - List.iteri - ( fun i -> - fun (tn,tl) -> - let result_t = run_test i n_tests (tn,tl) in - summary := (tn,result_t)::!summary; - try - let result_baseline = List.assoc tn baseline in - report "Coq" !(result_t.coq_t) !(result_baseline.coq_t); - report "CoqNL" !(result_t.coq_no_list_t) !(result_baseline.coq_no_list_t); - report "Isa" !(result_t.isa_t) !(result_baseline.isa_t); -(* report "Isa07" !(result_t.isa07_t) !(result_baseline.isa07_t); *) - report "HOL" !(result_t.hol_t) !(result_baseline.hol_t); -(* report "Twelf" !(result_t.twelf_t) !(result_baseline.twelf_t); *) - report "OCaml" !(result_t.caml_t) !(result_baseline.caml_t); - report "LaTeX" !(result_t.latex_t) !(result_baseline.latex_t); - with Not_found -> pp ("*** test " ^ tn ^ " not in the baseline") ) - (List.rev !tests); - (* ** print summary *) - pp_report ("\n*** final report"); - - if !dump_report then begin - pp_report "\n*** results"; - pp_report "\n Coq CoqNL Isa HOL OCaml LaTeX"; - List.iter - ( fun (t,r) -> - pp_report - ( print_result !(r.coq_t) - ^ print_result !(r.coq_no_list_t) - ^ print_result !(r.isa_t) -(* ^ print_result !(r.isa07_t) *) - ^ print_result !(r.hol_t) -(* ^ print_result !(r.twelf_t) *) - ^ print_result !(r.caml_t) - ^ print_result !(r.latex_t) - ^ pp_fn t ) ) - !summary; - end; - - pp_report - ( "\n*** progressions: " ^ (string_of_int !progressions) - ^ " (Ott : " ^ (string_of_int !ott_progressions)^")" - ^ " (Coq : " ^ (string_of_int !coq_progressions)^")" - ^ " (CoqNL : " ^ (string_of_int !coq_no_list_progressions)^")" - ^ " (Isa : " ^ (string_of_int !isa_progressions)^")" -(* ^ " (Isa07 : " ^ (string_of_int !isa07_progressions)^")" *) - ^ " (Hol : " ^ (string_of_int !hol_progressions)^")" -(* ^ " (Twelf : " ^ (string_of_int !twelf_progressions)^")" *) - ^ " (OCaml : " ^ (string_of_int !caml_progressions)^")" - ^ " (LaTeX : " ^ (string_of_int !latex_progressions)^")" ); - pp_report - ("*** regressions: " ^ (string_of_int !regressions) - ^ " (Ott : " ^ (string_of_int !ott_regressions)^")" - ^ " (Coq : " ^ (string_of_int !coq_regressions)^")" - ^ " (CoqNL : " ^ (string_of_int !coq_no_list_regressions)^")" - ^ " (Isa : " ^ (string_of_int !isa_regressions)^")" -(* ^ " (Isa07 : " ^ (string_of_int !isa07_regressions)^")" *) - ^ " (Hol : " ^ (string_of_int !hol_regressions)^")" -(* ^ " (Twelf : " ^ (string_of_int !twelf_regressions)^")" *) - ^ " (OCaml : " ^ (string_of_int !caml_regressions)^")" - ^ " (LaTeX : " ^ (string_of_int !latex_progressions)^")" ); - - let p_out n b = - let s_ott = - if n.tp = Skipped then " S " else - if n.ott && not b.ott then " + " else - if b.ott && not n.ott then " - " else " " in - let s_tp = - if (b.tp = Success) && (n.tp = Failure) then "- " - else if (b.tp = Failure) && (n.tp = Success) then "+ " - else if (n.tp = Skipped) || (b.tp = Skipped) then " " - else " " in - s_ott ^ s_tp in - - pp_report "\n Coq CoqNL Isa HOL OCaml LaTeX"; - List.iter - ( fun (t,r) -> - try - let b = List.assoc t baseline in - pp_report - ( p_out !(r.coq_t) !(b.coq_t) - ^ p_out !(r.coq_no_list_t) !(b.coq_no_list_t) - ^ p_out !(r.isa_t) !(b.isa_t) -(* ^ p_out !(r.isa07_t) !(b.isa07_t) *) - ^ p_out !(r.hol_t) !(b.hol_t) -(* ^ p_out !(r.twelf_t) !(b.twelf_t) *) - ^ p_out !(r.caml_t) !(b.caml_t) - ^ p_out !(r.latex_t) !(b.latex_t) - ^ pp_fn t ) - with Not_found -> pp_report (" ? ? ? ? ? ? " ^ t) ) - !summary; - close_in baseline_fd; - - if auto && (!regressions = 0) && (!progressions > 0) - then begin - if file_exists !baseline_file_name then remove !baseline_file_name; - let baseline_fd = open_out_bin !baseline_file_name in - Marshal.to_channel baseline_fd !summary []; - close_out baseline_fd; - end - -let main () = - match !dump_baseline, !compute_baseline with - | true, _ -> dump_baseline_fc () - | false, true -> compute_baseline_fc () - | false, false -> test_fc !night - -let _ = - Random.self_init (); - Arg.parse options - (fun s -> tests := (s,[s]) :: !tests) - ("\n" ^ "regression .. \n"); - tests := List.rev !tests; - if ((List.length !tests) = 0) && not (!dump_baseline) && not (!todo_list) - then error "specify at least one test"; - if !night - then begin - putenv "PATH" "/home/yquem/moscova/zappa/bin:/home/yquem/moscova/zappa/source/godi/bin:/usr/bin:/bin"; - putenv "TWELFSERVER" "/home/yquem/moscova/zappa/lib/twelf/bin/twelf-server"; - chdir "/home/yquem/moscova/zappa/repo/update/Ott2/src"; - execute_cmd_list [ "./regression_night_script.sh" ]; -(* chdir "/home/yquem/moscova/zappa/repo/update/Ott2/tests/"; *) -(* execute_cmd_list [ "cvs update" ]; *) -(* chdir "/home/yquem/moscova/zappa/repo/update/Ott2/examples/tapl/"; *) -(* execute_cmd_list [ "cvs update" ]; *) -(* chdir "/home/yquem/moscova/zappa/repo/update/Ott2/src"; *) -(* let cmd_list = *) -(* [ "env"; *) -(* "cvs update"; *) -(* "make > /dev/null"; *) -(* "make tmp_test7a.ott"; *) -(* "make tmp_test7.ott" ] in *) -(* execute_cmd_list cmd_list; *) - chdir "/home/yquem/moscova/zappa/repo/update/Ott2/src"; - report_fd := open_out "report.txt"; - end; - if !use_config then parse_config_file (); - if !todo_list then parse_todo_list (); - main (); - if !night then begin - close_out !report_fd; - let date = Unix.localtime (Unix.time ()) in - let subject = - Printf.sprintf ("[Ott regression report] %d/%d/%d") - date.tm_mday - date.tm_mon - (1900 + date.tm_year) in - let cmd_list = - List.map - (fun e -> "mail -s '" ^ subject ^ "' " ^ e ^ " < report.txt" ) - !emails in - execute_cmd_list cmd_list - end; - - if !jenkins then begin - let fd = open_out "tests.xml" in - output_string fd "\n"; - if !regressions == 0 - then begin - output_string fd " \n"; - end else begin - output_string fd " \n"; - output_string fd " \n"; - output_string fd " todo\n"; - output_string fd " \n"; - output_string fd " \n"; - end; - output_string fd "\n"; - close_out fd - end diff --git a/vendors/ott/regression/regression.otl b/vendors/ott/regression/regression.otl deleted file mode 100644 index 04d939d31971..000000000000 --- a/vendors/ott/regression/regression.otl +++ /dev/null @@ -1,101 +0,0 @@ -../tests/leroy-jfp96.ott -../tests/test-j.ott -../tests/test-lj-list_ambiguity.ott -../tests/test-mjp-trans.ott -../tests/test-mjp.ott -../tests/test-pottier1.ott -../tests/test1.ott -../tests/test10.ott -../tests/test10_homs.ott -../tests/test10_isasyn.ott -../tests/test10st.ott -../tests/test10st_fe.ott -../tests/test10st_first_half.ott -../tests/test11.ott -../tests/test12.ott -../tests/test13.ott -../tests/test13b.ott -../tests/test14.ott -../tests/test15.0.ott -../tests/test15.1.ott -../tests/test15.2.ott -../tests/test15.3.ott -../tests/test15.4.ott -../tests/test15.4b.ott -../tests/test15.4c.ott -../tests/test15.4d.ott -../tests/test15.5.ott -../tests/test15.6.ott -../tests/test15.7.ott -../tests/test16.0.ott -../tests/test16.1.ott -../tests/test16.2.ott -../tests/test16.3.ott -../tests/test16.4.ott -../tests/test16.5.ott -../tests/test16.6.ott -../tests/test17.0.ott -../tests/test17.1.ott -../tests/test17.10.ott -../tests/test17.11.ott -../tests/test17.12.ott -../tests/test17.13.ott -../tests/test17.14.ott -../tests/test17.2.ott -../tests/test17.3.ott -../tests/test17.4.ott -../tests/test17.5.ott -../tests/test17.6.ott -../tests/test17.7.ott -../tests/test17.8.ott -../tests/test17.9.ott -../tests/test18.0.ott -../tests/test18.1.ott -../tests/test18.2.ott -../tests/test19.0.ott -../tests/test2.ott -../tests/test3.ott -../tests/test4.ott -../tests/test5.ott -../tests/test6-tex.ott -../tests/test6.ott -../tests/test8.ott -../tests/test8p.ott -../tests/test_jan_2006-09-08.ott -../tests/test_lists_1.ott -../tests/test_lists_freevars_1.ott -sys-bool : ../examples/tapl/common.ott ../examples/tapl/bool.ott -sys-arith : ../examples/tapl/nat.ott ../examples/tapl/common.ott ../examples/tapl/bool.ott -sys-untyped : ../examples/tapl/common.ott ../examples/tapl/bool.ott -sys-puresimple : ../examples/tapl/common.ott ../examples/tapl/common_typing.ott ../examples/tapl/arrow_typing.ott -sys-tybool : ../examples/tapl/common.ott ../examples/tapl/common_typing.ott ../examples/tapl/bool.ott ../examples/tapl/bool_typing.ott ../examples/tapl/arrow_typing.ott -sys-sortoffullsimple : ../examples/tapl/common.ott ../examples/tapl/common_typing.ott ../examples/tapl/common_labels.ott ../examples/tapl/common_index.ott ../examples/tapl/arrow_typing.ott ../examples/tapl/basety.ott ../examples/tapl/bool.ott ../examples/tapl/bool_typing.ott ../examples/tapl/nat.ott ../examples/tapl/nat_typing.ott ../examples/tapl/unit.ott ../examples/tapl/seq.ott ../examples/tapl/ascribe.ott ../examples/tapl/inert.ott ../examples/tapl/let.ott ../examples/tapl/sum.ott ../examples/tapl/variant.ott ../examples/tapl/product.ott ../examples/tapl/tuple.ott ../examples/tapl/record.ott ../examples/tapl/fix.ott -sys-tuple : ../examples/tapl/common.ott ../examples/tapl/common_typing.ott ../examples/tapl/common_index.ott ../examples/tapl/unit.ott ../examples/tapl/tuple.ott -sys-puresub : ../examples/tapl/common.ott ../examples/tapl/common_typing.ott ../examples/tapl/arrow_typing.ott ../examples/tapl/sub_arrow.ott ../examples/tapl/top.ott -sys-roughlyfullsimple : ../examples/tapl/common.ott ../examples/tapl/common_index.ott ../examples/tapl/common_labels.ott ../examples/tapl/common_typing.ott ../examples/tapl/bool.ott ../examples/tapl/bool_typing.ott ../examples/tapl/nat.ott ../examples/tapl/nat_typing.ott ../examples/tapl/arrow_typing.ott ../examples/tapl/basety.ott ../examples/tapl/unit.ott ../examples/tapl/seq.ott ../examples/tapl/ascribe.ott ../examples/tapl/let.ott ../examples/tapl/product.ott ../examples/tapl/sum.ott ../examples/tapl/fix.ott ../examples/tapl/tuple.ott ../examples/tapl/variant.ott -sys-purercdsub : ../examples/tapl/common.ott ../examples/tapl/common_typing.ott ../examples/tapl/arrow_typing.ott ../examples/tapl/sub_arrow.ott ../examples/tapl/top.ott ../examples/tapl/common_labels.ott ../examples/tapl/common_index.ott ../examples/tapl/record.ott ../examples/tapl/sub_record.ott -../tests/test_bind_aux_empty_1.ott -../tests/test_bind_dots_1.ott -../tests/test_bind_isa_1.ott -../tests/test_coq_equality_x_1.ott -../tests/test_defn_repeated_nonterminal_1.ott -../tests/test_embed_top_1.ott -../tests/test_empty_defn.ott -../tests/test_lists_1.ott -../tests/test_lists_coq_bind_1.ott -../tests/test_lists_coq_defn_subrule_1.ott -../tests/test_lists_coq_defn_subrule_2.ott -../tests/test_lists_coq_defn_subrule_3.ott -../tests/test_lists_coq_defn_tuple_1.ott -../tests/test_lists_coq_defn_tuple_2.ott -../tests/test_lists_coq_list_functions_1.ott -../tests/test_lists_coq_list_functions_2.ott -../tests/test_lists_defn_list_form_1.ott -../tests/test_lists_coq_list_functions_3.ott -../tests/test_lists_coq_list_functions_4.ott -../tests/test_subrules_1.ott -../tests/test_lists_terminal_1.ott -../tests/test_embed_location_1.ott -../tests/test_embed_top_1.ott -../tests/test_merge_embed_location_1-1.ott -../tests/test_merge_embed_location_1-2.ott diff --git a/vendors/ott/regression/regression_night_script.sh b/vendors/ott/regression/regression_night_script.sh deleted file mode 100755 index 183bc01e1594..000000000000 --- a/vendors/ott/regression/regression_night_script.sh +++ /dev/null @@ -1,21 +0,0 @@ -#!/bin/sh - -# this script is invoked by regression -night before running the tests -# defined in regression.otl - -cd /home/yquem/moscova/zappa/repo/update/Ott2/tests/ -cvs update -cd /home/yquem/moscova/zappa/repo/update/Ott2/src/ -cvs update -d -make coq-lib -ln -sf coq/*.vo . -make > /dev/null -make tmp_test7a.ott -make tmp_test7.ott -#make tmp_lj.ott - -cd ../examples/tapl/ -cvs update -make stlc_coq_prelude -cd ../../src - diff --git a/vendors/ott/regression/regression_p_client.ml b/vendors/ott/regression/regression_p_client.ml deleted file mode 100644 index 4246cbf5a426..000000000000 --- a/vendors/ott/regression/regression_p_client.ml +++ /dev/null @@ -1,303 +0,0 @@ -(**************************************************************************) -(* Ott *) -(* *) -(* Peter Sewell, Computer Laboratory, University of Cambridge *) -(* Francesco Zappa Nardelli, Moscova project, INRIA Rocquencourt *) -(* *) -(* Copyright 2005-2006 *) -(* *) -(* Redistribution and use in source and binary forms, with or without *) -(* modification, are permitted provided that the following conditions *) -(* are met: *) -(* 1. Redistributions of source code must retain the above copyright *) -(* notice, this list of conditions and the following disclaimer. *) -(* 2. Redistributions in binary form must reproduce the above copyright *) -(* notice, this list of conditions and the following disclaimer in the *) -(* documentation and/or other materials provided with the distribution. *) -(* 3. The names of the authors may not be used to endorse or promote *) -(* products derived from this software without specific prior written *) -(* permission. *) -(* *) -(* THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS *) -(* OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED *) -(* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE *) -(* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY *) -(* DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL *) -(* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE *) -(* GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS *) -(* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER *) -(* IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR *) -(* OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN *) -(* IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. *) -(**************************************************************************) - -open Unix -open Sys - -type outcome = Success | Failure | Undone | Skipped - -type tp_result = { ott : bool; tp : outcome } - -type result = - { coq_t : tp_result ref; - hol_t : tp_result ref; - isa_t : tp_result ref; - twelf_t : tp_result ref; - caml_t : tp_result ref; - latex_t : tp_result ref } - -let hostname = gethostname () - -(* ** options *) -let todo_list_file = ref ("regr_todo_"^hostname^".otl") -let todo_list = ref false -let tests = ref [] - -(* ** state *) -let progressions = ref 0 -let regressions = ref 0 -let ott_progressions = ref 0 -let ott_regressions = ref 0 -let coq_progressions = ref 0 -let coq_regressions = ref 0 -let caml_progressions = ref 0 -let caml_regressions = ref 0 -let isa_progressions = ref 0 -let isa_regressions = ref 0 -let hol_progressions = ref 0 -let hol_regressions = ref 0 -let latex_progressions = ref 0 -let latex_regressions = ref 0 -let twelf_progressions = ref 0 -let twelf_regressions = ref 0 -let summary = ref [] -let report_fd = ref Pervasives.stdout - -(* let _ = *) -(* putenv "CVSROOT" ":pserver:zappa@localhost:/usr/groups/netsem/dynsem/cvs"; *) -(* putenv "CVS_RSH" "ssh"; *) -(* putenv "PATH" "/home/nis/zappanar/source/coq/bin:/home/nis/zappanar/source/Isabelle/bin:/home/nis/zappanar/source/hol98/bin:/home/nis/zappanar/source/ocaml/bin:/usr/bin:/bin"; *) -(* putenv "TWELFSERVER" "/home/nis/zappanar/source/twelf/bin/twelf-server"; *) -(* print_endline "CIAO" *) - -let pp_fn s = - Filename.basename s - -let error s = - print_endline ("regression: " ^ s); - exit 1 - -let pp_report s = - output_string !report_fd s; - output_char !report_fd '\n' - -let pp s = - print_endline s - -let execute_cmd_list l = - List.iter - (fun c -> - pp ("*** executing "^c); - let status = system c in - match status with - | WEXITED n -> if not (n= 0) then error ("error while executing "^c) - | _ -> error ("error2 while executing "^c) ) - l - -let parse_todo_list () = - let rec parse_lines fd = - try - let l = input_line fd in - let pl = Str.split (Str.regexp "[ \t]+") l in - ( match pl with - | t::[] -> tests := (t,[t]) :: !tests - | n::":"::tl -> tests := (n,tl) :: !tests - | _ -> error ("malformed line in todo_list: "^l^"\n") ); - pp ("todolist"^String.concat " " pl); - parse_lines fd - with End_of_file -> () - in - if not (file_exists !todo_list_file) - then error ("todo_list file "^(!todo_list_file)^" does not exists"); - let todo_fd = open_in !todo_list_file in - parse_lines todo_fd; - close_in todo_fd - -let run_test (tn,tl) = - let t = - if List.length tl = 1 - then List.hd tl - else "-merge true "^String.concat " " tl in - - let result = { coq_t = ref { ott = false; tp = Undone }; - hol_t = ref { ott = false; tp = Undone }; - isa_t = ref { ott = false; tp = Undone }; - twelf_t = ref { ott = false; tp = Undone }; - caml_t = ref { ott = false; tp = Undone }; - latex_t = ref { ott = false; tp = Undone }; } in - pp ("\n*** " ^ tn ^ "\n"); - - (* ** preliminary *) - let name = "testRegr"^(string_of_int (Random.int 1000)) in - - (* ** run Coq *) - let cmd = "/home/nis/zappanar/source/update/Ott2/src/ott -coq "^name^".v " ^t ^" > /dev/null" in - pp ("*** Ott-Coq: " ^ cmd); - if (command cmd) = 0 - then begin - pp (" * success"); - let cmd = "coqc "^name^".v > /dev/null" in - pp ("*** Coq: " ^ cmd); - if (command cmd) = 0 then begin - result.coq_t := { ott = true; tp = Success }; - pp (" * success"); - remove (name^".vo") - end else begin - result.coq_t := { ott = true; tp = Failure }; - pp (" * failure"); - end; - remove (name^".v") - end else - pp (" * failure"); - - (* ** run Isa *) - let cmd = "/home/nis/zappanar/source/update/Ott2/src/ott -isabelle "^name^".thy " ^t ^" > /dev/null" in - pp ("*** Ott-Isa: " ^ cmd); - if (command cmd) = 0 - then begin - pp (" * success"); - let cmd = - "echo 'use_thy \"" ^ name - ^ "\" handle e => (OS.Process.exit OS.Process.failure);'" - ^ " | isabelle > /dev/null" in - pp ("*** Isa: " ^ cmd); - if (command cmd) = 0 then begin - result.isa_t := { ott = true; tp = Success }; - pp (" * success") - end else begin - result.isa_t := { ott = true; tp = Failure }; - pp (" * failure"); - end; - remove (name^".thy") - end else - pp (" * failure"); - - (* ** run HOL *) - let cmd = "/home/nis/zappanar/source/update/Ott2/src/ott -hol "^name^"Script.sml " ^t ^" > /dev/null" in - pp ("*** Ott-Hol: " ^ cmd); - if (command cmd) = 0 - then begin - pp (" * success"); - let cmd = "Holmake "^name^"Theory.uo &> /dev/null" in - pp ("*** HOL: " ^ cmd); - if (command cmd) = 0 then begin - result.hol_t := { ott = true; tp = Success }; - pp (" * success") - end else begin - result.hol_t := { ott = true; tp = Failure }; - pp (" * failure") - end; - if file_exists (name^"Theory.sml") then remove (name^"Theory.sml"); - if file_exists (name^"Theory.sig") then remove (name^"Theory.sig"); - if file_exists (name^"Theory.ui") then remove (name^"Theory.ui"); - if file_exists (name^"Script.sml") then remove (name^"Script.sml"); - if file_exists (name^"Theory.uo") then remove (name^"Theory.uo"); - end else - pp (" * failure"); - - (* ** run Twelf *) - let cmd = "/home/nis/zappanar/source/update/Ott2/src/ott -twelf "^name^".elf " ^t ^" > /dev/null" in - pp ("*** Ott-Twelf: " ^ cmd); - if (command cmd) = 0 - then begin - pp (" * success"); - let cmd = "./run_twelf "^name^".elf &> /dev/null" in - pp ("*** Twelf: " ^ cmd); - if (command cmd) = 0 then begin - result.twelf_t := { ott = true; tp = Success }; - pp (" * success") - end else begin - result.twelf_t := { ott = true; tp = Failure }; - pp (" * failure") - end; - if file_exists (name^".elf") then remove (name^".elf"); - end else - pp (" * failure"); - - (* ** run OCaml *) - let cmd = "/home/nis/zappanar/source/update/Ott2/src/ott -caml "^name^".ml " ^t ^" > /dev/null" in - pp ("*** Ott-Ocaml: " ^ cmd); - if (command cmd) = 0 - then begin - pp (" * success"); - let cmd = "ocamlc "^name^".ml > /dev/null" in - pp ("*** OCaml: " ^ cmd); - if (command cmd) = 0 then begin - result.caml_t := { ott = true; tp = Success }; - pp (" * success"); - remove (name^".cmi"); - remove (name^".cmo") - end else begin - result.caml_t := { ott = true; tp = Failure }; - pp (" * failure") - end; - remove (name^".ml") - end else - pp (" * failure"); - - (* ** run LaTeX *) - let cmd = "/home/nis/zappanar/source/update/Ott2/src/ott -tex "^name^".tex " ^t ^" > /dev/null" in - pp ("*** Ott-LaTeX: " ^ cmd); - if (command cmd) = 0 - then begin - pp (" * success"); - result.latex_t := { ott = true; tp = Skipped }; - remove (name^".tex") - end else - pp (" * failure"); - - (* ** return the result *) - result - -let print_result r = - ( match r.ott, r.tp with - | true, _ -> " + " - | false, Skipped -> " ? " - | false, _ -> " - " ) - ^ ( match r.tp with - | Success -> "+ " - | Failure -> "- " - | Skipped -> " " - | Undone -> " " ) - -let _ = - Random.self_init (); - putenv "PATH" "/home/nis/zappanar/source/coq/bin:/home/nis/zappanar/source/Isabelle/bin:/home/nis/zappanar/source/hol98/bin:/home/nis/zappanar/source/ocaml/bin:/usr/bin:/bin"; - putenv "TWELFSERVER" "/home/nis/zappanar/source/twelf/bin/twelf-server"; - report_fd := open_out ("report_"^hostname^".txt"); - parse_todo_list (); - - let elaborate_result (tn,result_t) = - summary := (tn,result_t) :: !summary in - - List.iter - ( fun (tn,tl) -> - let result_t = run_test (tn,tl) in - elaborate_result (tn,result_t) ) - !tests; - - (* ** print summary *) - List.iter - ( fun (t,r) -> - pp_report - ( print_result !(r.coq_t) - ^ print_result !(r.isa_t) - ^ print_result !(r.hol_t) - ^ print_result !(r.twelf_t) - ^ print_result !(r.caml_t) - ^ print_result !(r.latex_t) - ^ pp_fn t ) ) - !summary; - - close_out !report_fd - diff --git a/vendors/ott/regression/regression_p_master.ml b/vendors/ott/regression/regression_p_master.ml deleted file mode 100644 index 5d21ab1cf460..000000000000 --- a/vendors/ott/regression/regression_p_master.ml +++ /dev/null @@ -1,207 +0,0 @@ -(**************************************************************************) -(* Ott *) -(* *) -(* Peter Sewell, Computer Laboratory, University of Cambridge *) -(* Francesco Zappa Nardelli, Moscova project, INRIA Rocquencourt *) -(* *) -(* Copyright 2005-2007 *) -(* *) -(* Redistribution and use in source and binary forms, with or without *) -(* modification, are permitted provided that the following conditions *) -(* are met: *) -(* 1. Redistributions of source code must retain the above copyright *) -(* notice, this list of conditions and the following disclaimer. *) -(* 2. Redistributions in binary form must reproduce the above copyright *) -(* notice, this list of conditions and the following disclaimer in the *) -(* documentation and/or other materials provided with the distribution. *) -(* 3. The names of the authors may not be used to endorse or promote *) -(* products derived from this software without specific prior written *) -(* permission. *) -(* *) -(* THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS *) -(* OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED *) -(* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE *) -(* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY *) -(* DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL *) -(* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE *) -(* GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS *) -(* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER *) -(* IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR *) -(* OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN *) -(* IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. *) -(**************************************************************************) - -open Unix -open Sys - -let machines = - List.map (fun n -> "clus64a"^(string_of_int n)^".mdkclus64a.lan") - [ 1;2;3;4;5;6;7;8;9;10;11;12 ] -let no_machines = List.length machines - -(* ** options *) -let compute_baseline = ref false -let baseline_file_name = ref "baseline.bl" -let todo_list_file = ref "regression.otl" -let todo_list = ref false -let tests = ref [] -let dump_baseline = ref false -let night = ref false -let emails = ref [] -let dump_report = ref false - -(* ** state *) -let progressions = ref 0 -let regressions = ref 0 -let ott_progressions = ref 0 -let ott_regressions = ref 0 -let coq_progressions = ref 0 -let coq_regressions = ref 0 -let caml_progressions = ref 0 -let caml_regressions = ref 0 -let isa_progressions = ref 0 -let isa_regressions = ref 0 -let hol_progressions = ref 0 -let hol_regressions = ref 0 -let latex_progressions = ref 0 -let latex_regressions = ref 0 -let twelf_progressions = ref 0 -let twelf_regressions = ref 0 -let report_fd = ref Pervasives.stdout - -(* let _ = *) -(* if !night then begin *) -(* putenv "CVSROOT" ":pserver:zappa@localhost:/usr/groups/netsem/dynsem/cvs"; *) -(* putenv "CVS_RSH" "ssh"; *) -(* putenv "PATH" "/home/yquem/moscova/zappa/bin:/home/yquem/moscova/zappa/source/godi/bin:/usr/bin:/bin"; *) -(* putenv "TWELFSERVER" "/home/yquem/moscova/zappa/lib/twelf/bin/twelf-server"; *) -(* end *) - -let pp_fn s = - Filename.basename s - -let error s = - print_endline ("regression: " ^ s); - exit 1 - -let pp s = - if not !night then print_endline s - -let pp_report s = - output_string !report_fd s; - output_char !report_fd '\n' - -let execute_cmd_list l = - List.iter - (fun c -> - print_endline ("*** executing "^c); - let status = system c in - match status with - | WEXITED n -> if not (n= 0) then error ("error while executing "^c) - | _ -> error ("error2 while executing "^c) ) - l - -let parse_todo_list () = - let rec parse_lines fd = - try - let l = input_line fd in - let pl = Str.split (Str.regexp "[ \t]+") l in - ( match pl with - | t::[] -> tests := (t,[t]) :: !tests - | n::":"::tl -> tests := (n,tl) :: !tests - | _ -> error ("malformed line in todo_list: "^l^"\n") ); - print_endline ("todolist"^String.concat " " pl); - parse_lines fd - with End_of_file -> () - in - if not (file_exists !todo_list_file) - then error ("todo_list file does not exists"); - let todo_fd = open_in !todo_list_file in - parse_lines todo_fd; - close_in todo_fd - -let dump_todo_list m l = - let fd = open_out ("regr_todo_"^m^".otl") in - let rec dump_lines f = - match f with - (n,tl)::tail -> - if List.length tl = 1 - then output_string fd ((List.hd tl)^"\n") - else output_string fd (n^" : "^(String.concat " " tl)^"\n"); - dump_lines tail - | [] -> close_out fd - in dump_lines l - -let generate_tasks () = - let rec gen_buf n buf = - if n = 0 then buf else gen_buf (n-1) ([]::buf) in - let rec gen tests buf = - match tests with - | [] -> buf - | h::t -> - ( match buf with - | bh::bt -> gen t (bt @ [(h::bh)]) ) - in gen !tests (gen_buf no_machines []) - -let options = - Arg.align - [ ("-email", - Arg.String (fun s -> emails := s::!emails), - " send the night report to"); - ("-report", - Arg.Unit (fun () -> dump_report := true), - " dump a report of the outcome of the tests"); - ] - -let collect_results () = - let result_files = - List.map (fun x -> "report_"^x^".txt") machines in - execute_cmd_list [ "cat " ^ (String.concat " " result_files) ^ " > report.txt" ]; - execute_cmd_list [ "rm " ^ (String.concat " " result_files) ] - -let _ = - Random.self_init (); - Arg.parse options - (fun s -> tests := (s,[s]) :: !tests) - ("\n" ^ "regression .. \n"); - tests := List.rev !tests; - putenv "PATH" "/home/nis/zappanar/source/ocaml/bin:/usr/bin:/bin"; - chdir "/home/nis/zappanar/source/update/Ott2/tests/"; - execute_cmd_list [ "cvs update" ]; - chdir "/home/nis/zappanar/source/update/Ott2/examples/tapl/"; - execute_cmd_list [ "cvs update" ]; - chdir "/home/nis/zappanar/source/update/Ott2/src"; - let cmd_list = - [ "env"; - "cvs update"; - "make > /dev/null"; - "make tmp_test7a.ott"; - "make tmp_test7.ott" ] in - execute_cmd_list cmd_list; - parse_todo_list (); - let tasks = generate_tasks () in - List.iter2 dump_todo_list machines tasks; - putenv "GEXEC_SVRS" (String.concat " " machines); - -(* execute_cmd_list [ "echo $GEXEC_SVRS"; "gexec -n 12 hostname" ] *) - execute_cmd_list [ "gexec -n 0 /home/nis/zappanar/source/update/Ott2/src/regression_p_client" ]; - - collect_results () - - - -(* main (); *) -(* if !night then begin *) -(* close_out !report_fd; *) -(* let date = Unix.localtime (Unix.time ()) in *) -(* let subject = *) -(* Printf.sprintf ("[Ott regression report] %d/%d/%d") *) -(* date.tm_mday *) -(* date.tm_mon *) -(* (1900 + date.tm_year) in *) -(* let cmd_list = *) -(* List.map *) -(* (fun e -> "mail -s '" ^ subject ^ "' " ^ e ^ " < report.txt" ) *) -(* !emails in *) -(* execute_cmd_list cmd_list *) -(* end *) diff --git a/vendors/ott/regression/regression_para.ml b/vendors/ott/regression/regression_para.ml deleted file mode 100644 index 7645a8f6ac13..000000000000 --- a/vendors/ott/regression/regression_para.ml +++ /dev/null @@ -1,586 +0,0 @@ -(**************************************************************************) -(* Ott *) -(* *) -(* Peter Sewell, Computer Laboratory, University of Cambridge *) -(* Francesco Zappa Nardelli, Moscova project, INRIA Rocquencourt *) -(* *) -(* Copyright 2005-2006 *) -(* *) -(* Redistribution and use in source and binary forms, with or without *) -(* modification, are permitted provided that the following conditions *) -(* are met: *) -(* 1. Redistributions of source code must retain the above copyright *) -(* notice, this list of conditions and the following disclaimer. *) -(* 2. Redistributions in binary form must reproduce the above copyright *) -(* notice, this list of conditions and the following disclaimer in the *) -(* documentation and/or other materials provided with the distribution. *) -(* 3. The names of the authors may not be used to endorse or promote *) -(* products derived from this software without specific prior written *) -(* permission. *) -(* *) -(* THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS *) -(* OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED *) -(* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE *) -(* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY *) -(* DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL *) -(* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE *) -(* GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS *) -(* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER *) -(* IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR *) -(* OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN *) -(* IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. *) -(**************************************************************************) - -open Unix -open Sys - -type outcome = Success | Failure | Undone | Skipped - -type tp_result = { ott : bool; tp : outcome } - -type result = - { coq_t : tp_result ref; - hol_t : tp_result ref; - isa_t : tp_result ref; - twelf_t : tp_result ref; - caml_t : tp_result ref; - latex_t : tp_result ref } - -(* ** options *) -let compute_baseline = ref false -let baseline_file_name = ref "baseline.bl" -let use_config = ref false -let config_file_name = ref "config.otr" -let todo_list_file = ref "regression.otl" -let todo_list = ref false -let tests = ref [] -let isa_test = ref true -let caml_test = ref true -let coq_test = ref true -let hol_test = ref true -let twelf_test = ref true -let latex_test = ref true -let dump_baseline = ref false -let night = ref false -let emails = ref [] -let dump_report = ref false - -(* ** state *) -let progressions = ref 0 -let regressions = ref 0 -let ott_progressions = ref 0 -let ott_regressions = ref 0 -let coq_progressions = ref 0 -let coq_regressions = ref 0 -let caml_progressions = ref 0 -let caml_regressions = ref 0 -let isa_progressions = ref 0 -let isa_regressions = ref 0 -let hol_progressions = ref 0 -let hol_regressions = ref 0 -let latex_progressions = ref 0 -let latex_regressions = ref 0 -let twelf_progressions = ref 0 -let twelf_regressions = ref 0 -let summary = ref [] -let report_fd = ref Pervasives.stdout -let config_state = ref [] - -let _ = - putenv "CVSROOT" ":pserver:zappa@localhost:/usr/groups/netsem/dynsem/cvs"; - putenv "CVS_RSH" "ssh"; - putenv "PATH" "/home/nis/zappanar/source/coq/bin:/home/nis/zappanar/source/Isabelle/bin:/home/nis/zappanar/source/hol98/bin:/home/nis/zappanar/source/ocaml/bin:/usr/bin:/bin"; - putenv "TWELFSERVER" "/home/nis/zappanar/source/twelf/bin/twelf-server"; - print_endline "CIAO" - - - -let pp_fn s = - Filename.basename s - -let error s = - print_endline ("regression: " ^ s); - exit 1 - -let pp s = - if not !night then print_endline s - -let pp_report s = - output_string !report_fd s; - output_char !report_fd '\n' - -let execute_cmd_list l = - List.iter - (fun c -> - print_endline ("*** executing "^c); - let status = system c in - match status with - | WEXITED n -> if not (n= 0) then error ("error while executing "^c) - | _ -> error ("error2 while executing "^c) ) - l - -let parse_todo_list () = - let rec parse_lines fd = - try - let l = input_line fd in - let pl = Str.split (Str.regexp "[ \t]+") l in - ( match pl with - | t::[] -> tests := (t,[t]) :: !tests - | n::":"::tl -> tests := (n,tl) :: !tests - | _ -> error ("malformed line in todo_list: "^l^"\n") ); - print_endline ("todolist"^String.concat " " pl); - parse_lines fd - with End_of_file -> () - in - if not (file_exists !todo_list_file) - then error ("todo_list file does not exists"); - let todo_fd = open_in !todo_list_file in - parse_lines todo_fd; - close_in todo_fd - -let parse_config_file () = - let convert c = - match c with - | "+" -> true - | "." -> false - | _ -> error "malformed entry in config file" in - let rec parse_lines fd = - try - let l = input_line fd in - let pl = Str.split (Str.regexp "[ \t]+") l in - match pl with - | c::i::h::t::o::l::n::[] -> - let c = convert c in - let i = convert i in - let h = convert h in - let t = convert t in - let o = convert o in - let l = convert l in - config_state := (n,(c,i,h,t,o,l))::!config_state; - Printf.printf "config: %s %b %b %b %b %b %b\n" n c i h t o l; - parse_lines fd - | _ -> error "malformed line in config file" - with End_of_file -> () in - if not (file_exists !config_file_name) - then error ("config file does not exists"); - let config_fd = open_in !config_file_name in - parse_lines config_fd; - close_in config_fd - - -let rec search t state = - match state with - | [] -> raise Not_found - | (x,e)::tl -> if (String.compare x t = 0) then e else search t tl - -let check_config t tp = - try - if !use_config - then - let entry = search t !config_state in - ( match tp, entry with - | "Coq", (c,_,_,_,_,_) -> c - | "Isa", (_,i,_,_,_,_) -> i - | "HOL", (_,_,h,_,_,_) -> h - | "Twelf", (_,_,_,t,_,_) -> t - | "OCaml", (_,_,_,_,o,_) -> o - | "LaTeX", (_,_,_,_,_,l) -> l - | _,_ -> failwith "Never happen" ) - else true - with Not_found -> print_endline ("*** test "^t^" not found in config file"); true - -let run_test (tn,tl) = - let t = - if List.length tl = 1 - then List.hd tl - else "-merge true "^String.concat " " tl in - - let result = { coq_t = ref { ott = false; tp = Undone }; - hol_t = ref { ott = false; tp = Undone }; - isa_t = ref { ott = false; tp = Undone }; - twelf_t = ref { ott = false; tp = Undone }; - caml_t = ref { ott = false; tp = Undone }; - latex_t = ref { ott = false; tp = Undone }; } in - pp ("\n*** " ^ tn ^ "\n"); - - (* ** preliminary *) - let name = "testRegr"^(string_of_int (Random.int 1000)) in - - (* ** run Coq *) - if (not !coq_test) || (not (check_config tn "Coq")) - then result.coq_t := { ott = false; tp = Skipped } - else begin - let cmd = "/home/nis/zappanar/source/update/Ott2/src/ott -coq "^name^".v " ^t ^" > /dev/null" in - pp ("*** Ott-Coq: " ^ cmd); - if (command cmd) = 0 - then begin - pp (" * success"); - let cmd = "coqc "^name^".v > /dev/null" in - pp ("*** Coq: " ^ cmd); - if (command cmd) = 0 then begin - result.coq_t := { ott = true; tp = Success }; - pp (" * success"); - remove (name^".vo") - end else begin - result.coq_t := { ott = true; tp = Failure }; - pp (" * failure"); - end; - remove (name^".v") - end else - pp (" * failure"); - end; - - (* ** run Isa *) - if (not !isa_test) || (not (check_config tn "Isa")) - then result.isa_t := { ott = false; tp = Skipped } - else begin - let cmd = "/home/nis/zappanar/source/update/Ott2/src/ott -isabelle "^name^".thy " ^t ^" > /dev/null" in - pp ("*** Ott-Isa: " ^ cmd); - if (command cmd) = 0 - then begin - pp (" * success"); - let cmd = - "echo 'use_thy \"" ^ name - ^ "\" handle e => (OS.Process.exit OS.Process.failure);'" - ^ " | isabelle > /dev/null" in - pp ("*** Isa: " ^ cmd); - if (command cmd) = 0 then begin - result.isa_t := { ott = true; tp = Success }; - pp (" * success") - end else begin - result.isa_t := { ott = true; tp = Failure }; - pp (" * failure"); - end; - remove (name^".thy") - end else - pp (" * failure"); - end; - - (* ** run HOL *) - if (not !hol_test) || (not (check_config tn "HOL")) - then result.hol_t := { ott = false; tp = Skipped } - else begin - let cmd = "/home/nis/zappanar/source/update/Ott2/src/ott -hol "^name^"Script.sml " ^t ^" > /dev/null" in - pp ("*** Ott-Hol: " ^ cmd); - if (command cmd) = 0 - then begin - pp (" * success"); - let cmd = "Holmake "^name^"Theory.uo &> /dev/null" in - pp ("*** HOL: " ^ cmd); - if (command cmd) = 0 then begin - result.hol_t := { ott = true; tp = Success }; - pp (" * success") - end else begin - result.hol_t := { ott = true; tp = Failure }; - pp (" * failure") - end; - if file_exists (name^"Theory.sml") then remove (name^"Theory.sml"); - if file_exists (name^"Theory.sig") then remove (name^"Theory.sig"); - if file_exists (name^"Theory.ui") then remove (name^"Theory.ui"); - if file_exists (name^"Script.sml") then remove (name^"Script.sml"); - if file_exists (name^"Theory.uo") then remove (name^"Theory.uo"); - end else - pp (" * failure"); - end; - - (* ** run Twelf *) - if (not !twelf_test) || (not (check_config tn "Twelf")) - then result.twelf_t := { ott = false; tp = Skipped } - else begin - let cmd = "/home/nis/zappanar/source/update/Ott2/src/ott -twelf "^name^".elf " ^t ^" > /dev/null" in - pp ("*** Ott-Twelf: " ^ cmd); - if (command cmd) = 0 - then begin - pp (" * success"); - let cmd = "./run_twelf "^name^".elf &> /dev/null" in - pp ("*** Twelf: " ^ cmd); - if (command cmd) = 0 then begin - result.twelf_t := { ott = true; tp = Success }; - pp (" * success") - end else begin - result.twelf_t := { ott = true; tp = Failure }; - pp (" * failure") - end; - if file_exists (name^".elf") then remove (name^".elf"); - end else - pp (" * failure"); - end; - - (* ** run OCaml *) - if (not !caml_test) || (not (check_config tn "OCaml")) - then result.caml_t := { ott = false; tp = Skipped } - else begin - let cmd = "/home/nis/zappanar/source/update/Ott2/src/ott -caml "^name^".ml " ^t ^" > /dev/null" in - pp ("*** Ott-Ocaml: " ^ cmd); - if (command cmd) = 0 - then begin - pp (" * success"); - let cmd = "ocamlc "^name^".ml > /dev/null" in - pp ("*** OCaml: " ^ cmd); - if (command cmd) = 0 then begin - result.caml_t := { ott = true; tp = Success }; - pp (" * success"); - remove (name^".cmo") - end else begin - result.caml_t := { ott = true; tp = Failure }; - pp (" * failure") - end; - remove (name^".ml") - end else - pp (" * failure"); - end; - - (* ** run LaTeX *) - if (not !latex_test) || (not (check_config tn "LaTeX")) - then result.latex_t := { ott = false; tp = Skipped } - else begin - let cmd = "/home/nis/zappanar/source/update/Ott2/src/ott -tex "^name^".tex " ^t ^" > /dev/null" in - pp ("*** Ott-LaTeX: " ^ cmd); - if (command cmd) = 0 - then begin - pp (" * success"); - let cmd = "latex -interaction=batchmode "^name^".tex > /dev/null" in - pp ("*** LaTeX: " ^ cmd); - if (command cmd) = 0 then begin - result.latex_t := { ott = true; tp = Success }; - pp (" * success"); - remove (name^".dvi"); - remove (name^".aux"); - remove (name^".log"); - end else begin - result.latex_t := { ott = true; tp = Failure }; - pp (" * failure"); - if file_exists (name^".log") then remove (name^".log"); - if file_exists (name^".aux") then remove (name^".aux"); - end; - remove (name^".tex") - end else - pp (" * failure"); - end; - - (* ** return the result *) - result - -let run_test_p (tn,tl) = - (tn, run_test(tn,tl)) - -let report tp a b = - if a.ott && not b.ott - then begin - progressions := !progressions + 1; - ott_progressions := !ott_progressions + 1 - end else - if not a.ott && b.ott - then begin - regressions := !regressions + 1; - ott_regressions := !ott_regressions + 1 - end; - - if (a.tp = Success) && (b.tp = Failure) - then begin - progressions := !progressions + 1; - ( match tp with - | "Coq" -> coq_progressions := !coq_progressions + 1 - | "Isa" -> isa_progressions := !isa_progressions + 1 - | "HOL" -> hol_progressions := !hol_progressions + 1 - | "Twelf" -> twelf_progressions := !twelf_progressions + 1 - | "OCaml" -> caml_progressions := !caml_progressions + 1 - | "LaTeX" -> latex_progressions := !latex_progressions + 1 - | _ -> failwith "never happens" ); - pp ("*** progression:" ^ tp) end - else if (b.tp = Success) && (a.tp = Failure) - then begin - regressions := !regressions + 1; - ( match tp with - | "Coq" -> coq_regressions := !coq_regressions + 1 - | "Isa" -> isa_regressions := !isa_regressions + 1 - | "HOL" -> hol_regressions := !hol_regressions + 1 - | "Twelf" -> twelf_regressions := !twelf_regressions + 1 - | "OCaml" -> caml_regressions := !caml_regressions + 1 - | "LaTeX" -> latex_regressions := !latex_regressions + 1 - | _ -> failwith "never happens" ); - pp ("*** regression:" ^ tp) end - else () - -let print_result r = - ( match r.ott, r.tp with - | true, _ -> " + " - | false, Skipped -> " ? " - | false, _ -> " - " ) - ^ ( match r.tp with - | Success -> "+ " - | Failure -> "- " - | Skipped -> " " - | Undone -> " " ) - -let dump_baseline_fc () = - if not (file_exists !baseline_file_name) - then error ("baseline file does not exists"); - let baseline_fd = open_in !baseline_file_name in - let baseline = Marshal.from_channel baseline_fd in - pp " Coq Isa HOL Twelf OCaml LaTeX"; - List.iter - ( fun (t,r) -> - pp - ( print_result !(r.coq_t) - ^ print_result !(r.isa_t) - ^ print_result !(r.hol_t) - ^ print_result !(r.twelf_t) - ^ print_result !(r.caml_t) - ^ print_result !(r.latex_t) - ^ t) ) - baseline; - close_in baseline_fd - -let compute_baseline_fc () = - let baseline = ref [] in - List.iter - ( fun t -> - let result_t = run_test t in - baseline := ((fst t),result_t)::!baseline ) - !tests; - if file_exists !baseline_file_name then remove !baseline_file_name; - let baseline_fd = open_out_bin !baseline_file_name in - Marshal.to_channel baseline_fd !baseline []; - close_out baseline_fd; - pp "\n*** baseline built succesfully" - -(* the skeleton expression to compute a test *) -let run_test_para = parfun(fun()->farm(seq(fun()->run_test_p),2));; (* FZ fix 2 *) - -pardo (fun () -> - Random.self_init (); - putenv "PATH" "/home/nis/zappanar/source/coq/bin:/home/nis/zappanar/source/Isabelle/bin:/home/nis/zappanar/source/hol98/bin:/home/nis/zappanar/source/ocaml/bin:/usr/bin:/bin"; - putenv "TWELFSERVER" "/home/nis/zappanar/source/twelf/bin/twelf-server"; - chdir "/home/nis/zappanar/source/update/Ott2/tests/"; - execute_cmd_list [ "cvs update" ]; - chdir "/home/nis/zappanar/source/update/Ott2/examples/tapl/"; - execute_cmd_list [ "cvs update" ]; - chdir "/home/nis/zappanar/source/update/Ott2/src"; - let cmd_list = - [ "env"; - "cvs update"; - "make > /dev/null"; - "make tmp_test7a.ott"; - "make tmp_test7.ott" ] in - execute_cmd_list cmd_list; - report_fd := open_out "report.txt"; - - (* if !use_config then parse_config_file (); *) - parse_todo_list (); - - (* ** open the baseline file *) - if not (file_exists !baseline_file_name) - then error ("baseline file does not exists"); - let baseline_fd = open_in_bin !baseline_file_name in - let baseline = (Marshal.from_channel baseline_fd : (string * result) list) in - print_endline "content of baseline"; - List.iter (fun (n,_) -> print_endline n) baseline; - print_endline "end content of baseline"; - - let elaborate_result (tn,result_t) = - summary := (tn,result_t) :: !summary; - try - let result_baseline = List.assoc tn baseline in - report "Coq" !(result_t.coq_t) !(result_baseline.coq_t); - report "Isa" !(result_t.isa_t) !(result_baseline.isa_t); - report "HOL" !(result_t.hol_t) !(result_baseline.hol_t); - report "Twelf" !(result_t.twelf_t) !(result_baseline.twelf_t); - report "OCaml" !(result_t.caml_t) !(result_baseline.caml_t); - report "LaTeX" !(result_t.latex_t) !(result_baseline.latex_t); - with Not_found -> pp ("*** test " ^ tn ^ " not in the baseline") in - - (* ** here we do the parallel stuff *) - P3lstream.iter elaborate_result (run_test_para (P3lstream.of_list !tests)); -(* List.iter *) -(* ( fun (tn,tl) -> *) -(* let result_t = run_test (tn,tl) in *) -(* elaborate_result (tn,result_t) ) *) -(* !tests; *) - - (* ** print summary *) - pp_report ("\n*** final report"); - - pp_report "\n*** results"; - pp_report "\n Coq Isa HOL Twelf OCaml LaTeX"; - List.iter - ( fun (t,r) -> - pp_report - ( print_result !(r.coq_t) - ^ print_result !(r.isa_t) - ^ print_result !(r.hol_t) - ^ print_result !(r.twelf_t) - ^ print_result !(r.caml_t) - ^ print_result !(r.latex_t) - ^ pp_fn t ) ) - !summary; - - pp_report - ( "\n*** progressions: " ^ (string_of_int !progressions) - ^ " (Ott : " ^ (string_of_int !ott_progressions)^")" - ^ " (Coq : " ^ (string_of_int !coq_progressions)^")" - ^ " (Isa : " ^ (string_of_int !isa_progressions)^")" - ^ " (Hol : " ^ (string_of_int !hol_progressions)^")" - ^ " (Twelf : " ^ (string_of_int !twelf_progressions)^")" - ^ " (OCaml : " ^ (string_of_int !caml_progressions)^")" - ^ " (LaTeX : " ^ (string_of_int !latex_progressions)^")" ); - pp_report - ("*** regressions: " ^ (string_of_int !regressions) - ^ " (Ott : " ^ (string_of_int !ott_regressions)^")" - ^ " (Coq : " ^ (string_of_int !coq_regressions)^")" - ^ " (Isa : " ^ (string_of_int !isa_regressions)^")" - ^ " (Hol : " ^ (string_of_int !hol_regressions)^")" - ^ " (Twelf : " ^ (string_of_int !twelf_regressions)^")" - ^ " (OCaml : " ^ (string_of_int !caml_regressions)^")" - ^ " (LaTeX : " ^ (string_of_int !latex_progressions)^")" ); - - let p_out n b = - let s_ott = - if n.tp = Skipped then " S " else - if n.ott && not b.ott then " + " else - if b.ott && not n.ott then " - " else " " in - let s_tp = - if (b.tp = Success) && (n.tp = Failure) then "- " - else if (b.tp = Failure) && (n.tp = Success) then "+ " - else if (n.tp = Skipped) || (b.tp = Skipped) then " " - else " " in - s_ott ^ s_tp in - - pp_report "\n Coq Isa HOL Twelf OCaml LaTeX"; - List.iter - ( fun (t,r) -> - try - let b = List.assoc t baseline in - pp_report - ( p_out !(r.coq_t) !(b.coq_t) - ^ p_out !(r.isa_t) !(b.isa_t) - ^ p_out !(r.hol_t) !(b.hol_t) - ^ p_out !(r.twelf_t) !(b.twelf_t) - ^ p_out !(r.caml_t) !(b.caml_t) - ^ p_out !(r.latex_t) !(b.latex_t) - ^ pp_fn t ) - with Not_found -> pp_report (" ? ? ? ? ? ? " ^ t) ) - !summary; - close_in baseline_fd; - - if (!regressions = 0) && (!progressions > 0) - then begin - if file_exists !baseline_file_name then remove !baseline_file_name; - let baseline_fd = open_out_bin !baseline_file_name in - Marshal.to_channel baseline_fd !summary []; - close_out baseline_fd; - end; - - close_out !report_fd; - let date = Unix.localtime (Unix.time ()) in - let subject = - Printf.sprintf ("[Ott regression report] %d/%d/%d") - date.tm_mday - date.tm_mon - (1900 + date.tm_year) in - let cmd_list = - List.map - (fun e -> "mail -s '" ^ subject ^ "' " ^ e ^ " < report.txt" ) - !emails in - execute_cmd_list cmd_list - ) diff --git a/vendors/ott/regression/tests_not_in_regression.otl b/vendors/ott/regression/tests_not_in_regression.otl deleted file mode 100644 index b9fced537769..000000000000 --- a/vendors/ott/regression/tests_not_in_regression.otl +++ /dev/null @@ -1,27 +0,0 @@ -in github ott/tests but not in regression.otl: - -binding.1.ott -binding.2.ott -binding.3.ott -binding.4.ott -binding.5.ott -binding.6b.ott -binding.6.ott -menhir_tests -non_super_tabular.ott -squishtex.ott -test10_homs.ott -test10literate -test10menhir -test10.ott -test10rdx.ott -test10typing_minimal.ott -test13d.ott -test17.10.ott -test21.1.ott -test7a.ott -test7b.ott -test7.ott -test7t.mng -test7tt.mng - diff --git a/vendors/ott/regression/tp_check.sh b/vendors/ott/regression/tp_check.sh deleted file mode 100755 index 95b8b0202c66..000000000000 --- a/vendors/ott/regression/tp_check.sh +++ /dev/null @@ -1,80 +0,0 @@ -#!/bin/sh - -# simple regression test - -# Usage: -# tp_check.sh file_name file_name is processed by Ott, Coq, Isabelle, and HOL -# tp_check.sh runs Ott, Coq, Isabelle, and HOL over all files in TEST_FILES - -TEST_DIR="../tests/" -TEST_FILES="test1.txt test2.txt test3.txt test4.txt test5.txt test6.txt test8.txt test9.txt test10.ott test10st.ott test11.ott test12.ott test13.ott test13b.ott test14.ott" - -# do not edit below this line - -no_tests=0 -succ_isa=0 -succ_coq=0 -succ_ott=0 -succ_hol=0 - -function test { - no_tests=`expr $no_tests + 1` - echo "*** processing "$1 - rm -f outTheory.* # just in case Holmake is wierd - - ./ott -colour true -showraw false -coq out.v -isabelle out.thy $1 > /dev/null - - if [ $? = 0 ] - then - succ_ott=`expr $succ_ott + 1` - # running coqc - coqc out.v > /dev/null - if [ $? = 0 ] - then - echo " * Coq: SUCCESS" - succ_coq=`expr $succ_coq + 1` - rm out.vo - else - echo " * Coq: FAILURE" - fi - # running isabelle - echo 'use_thy "out" handle e => (OS.Process.exit OS.Process.failure);' | isabelle > /dev/null - if [ $? = 0 ] - then - echo " * Isa: SUCCESS" - succ_isa=`expr $succ_isa + 1` - else - echo " * Isa: FAILURE" - fi - # running hol - Holmake outTheory.uo &> /dev/null - if [ $? = 0 ] - then - echo " * HOL: SUCCESS" - succ_hol=`expr $succ_hol + 1` - rm outTheory.* - else - echo " * HOL: FAILURE" - rm -f outTheory.* - fi - - else - echo " * Ott: FAILURE" - fi - } - -if [ -n "$1" ] -then test $1 -else - for file in $TEST_DIR*.ott - do - test $file - done - echo "*** No test: "$no_tests - echo " * Ott : "$succ_ott - echo " * Coq : "$succ_coq - echo " * Isa : "$succ_isa - echo " * HOL : "$succ_hol -fi - -exit diff --git a/vendors/ott/revision_history.txt b/vendors/ott/revision_history.txt deleted file mode 100644 index 8de74c3a0274..000000000000 --- a/vendors/ott/revision_history.txt +++ /dev/null @@ -1,505 +0,0 @@ -2006.09.13 Version 0.04 -2006.11.01 Version 0.04.2 -2006.12.20 Version 0.10 initial public release - -2006.12.20 Version 0.10.1 -- include missing HOL file ottDefine.sml - -2006.12.22 Version 0.10.2 -- include missing ottmode.el - -2007.01.19 Version 0.10.3 -- bugfixes -- new examples: various TAPL fragments, and an OCaml fragment with - concurrency (peterson_caml.ott) -- generation of OCaml code for type definitions and generated - functions (substitution etc) -- merge option to merge ott source files -- improved HOL support infrastructure - -2007.01.24 Version 0.10.4 -- bugfix: allow "-" in bindspec lexing - -2007.02.07 Version 0.10.5 -- various bugfixes (mostly w.r.t. Coq list support) -- various improvements to examples -- document generation of OCaml code -- (breaking) source syntax changes: keyword "rules" is now replaced by - "grammar", and hom "caml" is replaced by "ocaml" - -2007.04.06 Version 0.10.6 -- fixes and additional examples - -2007.07.18 Version 0.10.7 -- bug fixes - -2007.08.13 Version 0.10.8 -- rename module Aux to Auxl, to work around a Windows problem - -2007.08.28 Version 0.10.9 -- add Windows binary-only release - -2007.09.04 Version 0.10.10 -- new manual, in browsable html, pdf and postscript -- new tex style for typesetting rules (in the tex/ directory) -- move emacs mode and hol auxiliaries into new emacs/ and hol/ directories - -2007.09.28 Version 0.10.11 -- fix bug in Windows version: properly open files in binary mode when writesys and readsys - -2007.10.05 Version 0.10.12 -- add missing file from Coq proof support: ott_list_eq_dec.v - -2007.10.18 Version 0.10.13 -- new (experimental!) switch -picky_multiple_parses , - to allow multiple parses if the generated code is - identical - at present only for filtered LaTeX -- some source documentation - -2008.02.15 Version 0.10.14 -- new parser, with better performance and better support for disambiguation - (see Section 14 "Parsing Priorities" in the manual, and changes to - Section 20 "Reference: The language of symbolic terms") -- new support for context grammars, with automatically generated - hole-filling functions (see Section 13 "Context rules" in the manual) -- new syntactic sugar flavour of metaproductions: writing "S" instead - of "M" gives metaproductions that can be used in concrete terms -- various bugfixes - -2008.12.16 Version 0.10.15 -- support for Isabelle 2008 (Isabelle 2005 syntax no longer produced) -- new option -isabelle_primrec : if set to false then ott - generates "fun"s instead of "primrec"s (though Isabelle can only - sometimes automatically prove termination of these "fun"s). -- new declaration "phantom" to turn off type generation for metavariables. - -2009.3.9 Version 0.10.16 -- release of the experimental Coq locally-nameless backend -- aesthetic improvements of the Coq output -- -show-post-sort and -show-defns are now by default to make - output less noisy - -2009.7.19 Version 0.10.17 - -- fix ocamlvar hom bug -- fix bug in Coq backend when dealing with some kinds of dot forms -- suppress printing of number of good/bad definition rules if - there are no rules -- change -tex_show_meta false behaviour to not suppress sugar - productions -- add % at line ends in rules, to prevent extra spaces (per BCP patch) -- remove doc references to the Windows binary distribution. It should - be easy to build from source, but we don't have access to a - suitable machine. - - -2010.3.24 Version 0.10.18alpha - -- The previous command-line options -coq, -hol, etc., are no longer - supported; they should be replaced by -o. - -- By default (unless -merge true is set) the order of the input file - is preserved, so one can have mixed sequences of definitions of - grammar, of inductive relations, and of embed blocks. - -- New command-line options -i and -o for - specifying multiple input and output files. Input files with - non-.ott extensions (.v, .thy, .sml, .ml, .tex) are copied verbatim - into the respective outputs. The command-line order of these - options is significant: the prover output can be split into - multiple output files; each prover output file specified with -o - will contain the material from the previous input files specified - with -i (since the last -o for this prover). - -- Better tex default spacing, distinguishing alphabetic and other - ("symbolic") terminals based on their ott source strings and - wrapping them in \ottkw{} and \ottsym{} respectively. - -- Support for in-line prover code in premises, e.g. - - {{ prover code mentioning [[x]] and [[\y.z]] }} - ----------------------------------------------- :: rulename - conclusion - -- The {{ phantom }} hom can now be applied to metavariables and to - nonterminal rules. In both cases it suppresses generation of a prover - or OCaml definition, but any type homs are taken into account when - the metavariable or nonterminal root is output as a type. - -- There is a new hom {{ order ... }} that can be applied to - productions which lets one specify the order of arguments of a - prover or OCaml constructor independently of the order in which they - appear in the production. For example, one might say: - - | e1 e2 :: :: ReversedApp {{ order [[e2]] [[e1]] }} - -- There is a new hom {{ coq-universe UniverseName }} that can be - applied to metavariable or nonterminal rules, eg to force Ott to - generate definitions in Type instead of in Set. - -- Changed some debug options (eg show-pre-sort) - -- Ocaml list homs on productions are now permitted - -- add coq_lngen option for compatibility with the lngen tool - -- Bug fixes: - - problem with comment line in defns terminated with EOF [Jianzhou Zhao] - - freshness of identifier in Ott generated functions [Jianzhou Zhao] - - processing of parse tree for some cases of dot forms [Scott Owens] - - processing of picky_multiple_parses [Scott Owens] - - added some error checks - - several fixes in the Coq locally-nameless backend [Stephanie Weirich] - - performance issue when using contextrules [Nicolas Pouillard] - - parens in OCaml substitutions for multiple binders [Vilhelm Sjoberg] - - -2010.03.29 Version 0.20 - -- The order among mutually recursive nonterminal definitions in - grammar blocks is now preserved in prover output. - -2010.04.04 Version 0.20.1 - -- Support coq-universe hom on blocks of definitions, eg: - - defns - Jop :: '' ::= {{ coq-universe Type }} - - defn - t1 --> t2 :: ::reduce::'' by - - - -------------------------- :: ax_app - (\x.t1) v2 --> {v2/x}t1 - - -2010.06.29 - -- refactor the generated latex for grammars so that condensed grammars - can be produced by redefining a couple of latex commands, eg - - \renewcommand{\ottgrammartabular}[1]{{\raggedright #1}} - \renewcommand{\ottrulehead}[3]{$#1$ $#2$ } - \renewcommand{\ottprodline}[6]{{}\ ${}#1$\mbox{\ {}$#2$}{}} - \renewcommand{\ottfirstprodline}[6]{{}\ ${}$\mbox{\ {}$#2$}{}} - \renewcommand{\ottprodnewline}{} - \renewcommand{\ottinterrule}{\\[1mm]} - -- add experimental option (-ocaml_include_terminals true) to include, in - generated OCaml types, an instance of "terminal" in all the places - where there's a terminal in the AST - -- gforge bugtracker now in use:https://gforge.inria.fr/tracker/?group_id=2980 - -2010.11.28 Version 0.20.3 - -- fixes to bugs: - - 11367 coq-universe Type problem with non-native lists - 11368 generation of induction principles in Ott 0.20 - 11369 0 and O in generated Ott lists - 11377 {{}} hypothesis and ln backend - 11378 context rules and ln backend - -- (feature request 11373) Support for explicit naming of premises in - inductive rules for the Coq backend. For instance, adding the - [[:RED]] annotation below - - t1 --> t1' [[:RED]] - -------------------- :: ctx_app_arg - v t1 --> v t1' - - results in: - - | ctx_app_arg : forall (v t1 t1':term) - (RED: reduce t1 t1'), - is_val_of_term v -> - reduce (t_app v t1) (t_app v t1'). - - Names of rules cannot contain spaces or other non alpha-numerical - characters, and must begin with a letter. The name annotation must - at the rightmost place on the hypothesis line, and must be enclosed - (without spaces) between the [[: and ]] parentheses. - -- (feature request 11372) The Coq backend now tries to preserve the - names the user specified in the definition of grammar rules. For - instance the grammar definition below - - grammar - term, t :: 't_' ::= - | x :: :: Var - | \ x . t :: :: Lam (+ bind x in t +) - | t t' :: :: App - | ( t ) :: S:: Paren {{ icho [[t]] }} - | { t / x } t' :: M:: Tsub {{ icho (tsubst_t [[t]] [[x]] [[t']])}} - - generates - - Inductive term : Set := - | t_var (x:var) - | t_lam (x:var) (t:term) - | t_app (t:term) (t':term). - - instead of - - Inductive term : Set := - | t_var : var -> term - | t_lam : var -> term -> term - | t_app : term -> term -> term. - - The old behaviour can be obtained via the top-level option - -coq_names_in_rules false. - -2011.11.17 Version 0.21 - -- Bump ocamlgraph version to 1.7, to avoid compilation issues with - OCaml 3.12.1. - -- Ported the Isabelle backend to Isabelle2011 (*). - -- Experimental support for function definitions. As a simple example, - in the Ott file below: - - grammar - n :: 'n_' ::= - | 0 :: :: Zero - | S n :: :: Succ - - funs - Add ::= {{ hol-proof ... }} - fun - n1 + n2 :: n :: add {{ com a function of type num \to num \to num }} - by - 0 + n2 === n2 - S n1 + n2 === n1 + S n2 - - the add function is compiled into the following coq code: - - Fixpoint add (x1:num) (x2:num) : num:= - match x1,x2 with - | n_zero , n2 => n2 - | (n_succ n1) , n2 => (add n1 (n_succ n2) ) - end. - - The "fun n1 + n2 :: n :: add by" declaration specifies: - - - the name of the function: add - - the symbolic term that defines the lhs: n1 + n2 - - the symbolic term that defines the rhs: n - - The type of the arguments of the function is defined by the - non-terminals appearing in the lhs, the return type by the rhs - non-terminal (so num -> num -> num in the above example). Functions - are then defined by case analysis, where the lhs and the rhs are - separated by the reserved symbol "===". - - The {{ hol-proof }} hom allows the specification of a termination - proof. - -- A new option -fast_parse generates a faster parser but - removes the possibility of disambiguating ambiguous terms using the - :non_terminal: syntax. - -- The generated Coq substitution functions now use the list_minus2 - auxiliary function rather than list_filter, as it is easier to - reason about (since rewriting under quantifiers does not work in - Coq). Added the -coq_use_filter_fn option for backwards - compatibility (*). - -- Introduced a new embed hom - - embed {{ coq-lib foo1 foo2 foo3 }} - - to avoid generation of functions foo1, foo2, foo3 (*) - -- No longer generate auxiliary list types for formula_dots in Coq - backend with -coq_expand_list_types true because today Coq now knows - how to generate the right induction principle. - -- Parsing of defns or embed is more robust wrt newlines (*). - -- Various bug-fixes (including #13487), improvements to error reports, - and performance optimisations. - -Entries labelled with (*) were contributed by Viktor Vafeiadis. - -2011.11.18 Version 0.21.1 - -This version fixes a packaging problem of the version 0.21. - -2011.12.9 Version 0.21.2 - -- fix bug 13645: forced use of :nonterm: syntax in conclusions of defn - rules in 0.21.1 (thanks to Karl Palmskog for reporting the bug). - -- Added new hom syntax {{* ... *}} that permits {{ and }} appearing - inside. The existing syntax {{ ... }} is also valid. - -- Added embed tex-wrap-pre/tex-wrap-post homs to customize tex - wrapping: the default LaTeX header can be changed by writing - - embed {{ tex-wrap-pre ... }} - - and the default footer by writing - - embed {{ tex-wrap-post ... }}. - - In addition, the program option -tex_wrap false can be used to omit - wraping the tex output (-tex_wrap false overrides any - tex-wrap-pre/tex-wrap-post embeds). - -- minor updates to the Hol backend to target the new Hol syntax. - - -2012.01.04 fix for HOL multiple definitions bug - -2012.06.12 fix for HOL syntax change - -2012.11.29 bugfix 14175 - -2012.12.04 bugfix 15158 - - -2013.04.20 - -- experimental support for generating Lem definitions, including new - homs lem, lemvar, ichlo - - -2013.06.22 - -- New aux-hom feature: - -We permit an aux hom on grammar rules. For any rule with such a hom, -we transform that rule by appending an "_aux" to its primary nonterminal -root name. We then add a synthesised rule with the original nonterminal -root name and a single production, with a shape described by the body of -the aux hom, which must be of the form - - {{ aux foo1 foo2 _ bar1 bar2 bar3 }} - -with a single _ and any number of strings fooi and barj before and -after, and no Raw_hom_ident's. The _ is replaced by the original -nonterminal root name. - -For example, given a grammar or metavariable l of source locations, one -might say - -ntr :: 'NTR_' ::= {{ aux _ l }} - | ... - -to synthesise grammars ntr_aux and ntr of unannotated and location-annotated -terms, the first with all the original productions and the second with a -single production - | ntr l :: :: NTR_aux. - -If the rule has an empty production name wrapper (eg with '' in place -of 'NTR_') then the production name is based on the original -nonterminal root, capitalised and with _aux appended (eg Ntr_aux), to -avoid spurious conflicts. - -Generation of aux rules is controlled by a command-line option --generate_aux_rules {true|false}, which one might (eg) set to false -for latex output and true for OCaml output. - -- New {{ texlong }} hom on productions, letting long productions -be typeset with the production extending into the space usually used -for comment, pushing that onto the next line. - -2013.07.04 - -- replace "make" by "$(MAKE)" in Makefile. Should fix 15719, reported - by peterbb@ifi.uio.no for OpenBSD - -2013.07.04 Version 0.22 - -- add auxparam hom - -2013.10.24 Version 0.23 - -2013.11.17 - -- add command-line option -output_source_locations to include - comments in the output giving the source locations: - i=0 adds no locations - i=1 adds a location for each inductive definition rule - i=2 also adds a location for other components of the output - Location annotations are lines of the form - - (* #source file FILENAME1 lines M1 - N1 and ... and FILENAMEk lines Mk - Nk *) - - (or with % instead of (* *) for the Latex output). - -2014.01.30 fix bug in {{ order }} hom for Lem backend - -2014.01.30 Version 0.24 - -2014-08-28 Version 0.25 - -- fix incompatibility with OCaml 4.02.0 comment syntax, from Damien - Doligez/Anil Madhavapeddy - -2016-10-27 Snapshot of 0.25 release moved to github at - https://github.com/ott-lang/ott - -2017-02-10 Add command-line option -tex_suppress_category to - suppress productions or rules with the specified category string. - -2017-02-13 Add command-line option -tex_suppress_ntr to - suppress the grammar rule with that principal nonterminal root. - -2017-05-28 fixes for Coq 8.5 and 8.6, contributed by palmskog - -2017-05-29 - 2017-06-14 Add experimental support for generating a -standalone lexer, menhir parser, and pretty printer, as illustrated in -tests/menhir_tests/test10menhir - -2017-07-17 fixes for OCaml safe string, contributed by jpdeplaix - -2017-09-07 example of "literate" ott spec, in tests/test10literate - -2017-09-21 use Type instead of Set in Coq list functions, contributed by palmskog - -2017-09-21 Version 0.26 - -2017-09-26 [palmskog] fixes for Coq 8.7 - -2017-10-03 For the generated lexer, metavar definitions should either have an ocamllex hom (specifying how they should be lexed) or an ocamllex-remove hom (specifying that a constructor of the token type should be generated, but without a lexer rule). - -2017-10-09 - -- improve menhir parser and pp generation for combinations of - {{ aux _ l }} rules (recording source location info) and quotient - rules. As in test/menhir/test10menhir_with_aux/. Probably fragile. - -- improve menhir parser and pp generation for {{ phantom }} rules - -2017-10-11 - -- add highly experimental -aux_style_rules false option, - adding aux info as extra constructor arguments rather than additional - rules - -- use PPrint instead of OCaml string concatenation in raw and cooked - generated pp - -2017-10-16 [hannesm] use ocamlc/ocamlopt (not .opt) - -2017-10-29 add tex file for macros used in -alltt output - -2017-11-26 fixes for Isabelle and for regression testing (in progress) - -2017-11-27 Version 0.27 - -2017-12-05 [Brian Campbell] Bugfix: add missing case of Lem auxparam type name -hack when it's hom - -2018-01 [Peter Sewell, + palmskog for Coq] copy ocaml_light example - sources from svn (rsem/ott/old_pre_github/examples/caml) and - partially de-bitrot - -2018-02 [JoeyEremondi] add pointer to VSCode plugin - [hannesm, Blaisorblade] clean opam install of Emacs ott-mode - -2018-04-24 Version 0.28 diff --git a/vendors/ott/src/Makefile b/vendors/ott/src/Makefile deleted file mode 100644 index a933f534689d..000000000000 --- a/vendors/ott/src/Makefile +++ /dev/null @@ -1,381 +0,0 @@ -######################################################################### -# Ott # -# # -# Peter Sewell, Computer Laboratory, University of Cambridge # -# Francesco Zappa Nardelli, Moscova project, INRIA Rocquencourt # -# # -# Copyright 2005-2017 # -# # -# Redistribution and use in source and binary forms, with or without # -# modification, are permitted provided that the following conditions # -# are met: # -# 1. Redistributions of source code must retain the above copyright # -# notice, this list of conditions and the following disclaimer. # -# 2. Redistributions in binary form must reproduce the above copyright # -# notice, this list of conditions and the following disclaimer in the # -# documentation and/or other materials provided with the distribution. # -# 3. The names of the authors may not be used to endorse or promote # -# products derived from this software without specific prior written # -# permission. # -# # -# THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS # -# OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED # -# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE # -# ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY # -# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL # -# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE # -# GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS # -# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER # -# IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR # -# OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN # -# IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. # -########################################################################## - -topdir = .. - -OTTVER=0.28 - -# for us -OCAMLC = ocamlfind ocamlc -linkpkg -g -dtypes -package yojson -# OCAMLC = ocamlc -g -dtypes # -w p disables partial match warnings -OCAMLOPT = ocamlfind ocamlopt -linkpkg -w y -g -dtypes -unsafe -inline 9 -package yojson -# OCAMLOPT = ocamlopt -w y -g -dtypes -unsafe -inline 9 - -# for releases -#OCAMLC = ocamlc -g -w p -w y -#OCAMLOPT = ocamlopt -w p -w y -unsafe -inline 9 - -OCAMLDEP = ocamldep -OCAMLLEX = ocamllex -OCAMLYACC = ocamlyacc - -LATEX = latex -DVIPS = dvips -DVIPDFM = dvipdfm - -COQC = coqc -COQ_INCLUDE = -I $(topdir)/coq -COQ_FLAGS = -OCAMLGRAPHDIRBODY = ocamlgraph-1.7 -OCAMLGRAPHDIR = $(topdir)/$(OCAMLGRAPHDIRBODY) -OCAMLGRAPHTARGZ = ocamlgraph-1.7.tar.gz -LIBRARIES = str $(OCAMLGRAPHDIR)/graph - -# DO NOT EDIT BELOW THIS LINE ########################################### - -SOURCES_LEXER_PARSER = grammar_lexer.mll grammar_parser.mly - -SOURCES_NON_LEXER_PARSER1 = location.ml types.ml auxl.ml merge.ml global_option.ml michelson_specific.ml - -SOURCES_NON_LEXER_PARSER2 = grammar_pp.ml parse_table.ml glr.ml new_term_parser.ml term_parser.ml \ - dependency.ml bounds.ml context_pp.ml \ - quotient_rules.ml grammar_typecheck.ml \ - transform.ml substs_pp.ml subrules_pp.ml \ - embed_pp.ml defns.ml ln_transform.ml coq_induct.ml \ - system_pp.ml lex_menhir_pp.ml align.ml main.ml - - - - -SOURCES_MLI = \ - align.mli \ - bounds.mli \ - coq_induct.mli \ - defns.mli \ - dependency.mli \ - embed_pp.mli \ - grammar_typecheck.mli \ - merge.mli \ - subrules_pp.mli \ - substs_pp.mli \ - system_pp.mli \ - lex_menhir_pp.mli \ - transform.mli \ - term_parser.mli - -SOURCES= $(SOURCES_NON_LEXER_PARSER1) \ - grammar_lexer.ml grammar_parser.mli grammar_parser.ml \ - version.ml \ - $(SOURCES_NON_LEXER_PARSER2) - -MLI = $(filter %.mli, $(SOURCES)) -ML = $(filter %.ml, $(SOURCES)) - -CMO = $(patsubst %.ml, %.cmo, $(ML)) -CMX = $(patsubst %.cmo, %.cmx, $(CMO)) - -CMI_FROM_MLI = $(patsubst %.mli, %.cmi, $(SOURCES_MLI)) - - -#default: ott.opt -default: ott.byt - -all: default -ott: default - - -# compile and link Ott - -byt: ott.byt - -ott.byt: Makefile $(CMO) $(CMI_FROM_MLI) version.tex - echo $^ - $(OCAMLC) -v - $(OCAMLC) -o ott.byt $(addsuffix .cma, $(LIBRARIES)) $(CMO) - ln -s -f $@ ott - -.FORCE: opt -opt: ott.opt - -ott.opt: Makefile $(CMX) $(CMI_FROM_MLI) version.tex - echo $^ - $(OCAMLOPT) -v - $(OCAMLOPT) -o ott.opt $(addsuffix .cmxa, $(LIBRARIES)) $(CMX) - ln -s -f $@ ott - -interfaces: $(ML:.ml=.interface) - -mlis: $(ML:.ml=.mli) - -# files that require a special treatment - -grammar_lexer.ml: grammar_lexer.mll - $(OCAMLLEX) grammar_lexer.mll - -grammar_parser.ml grammar_parser.mli: grammar_parser.mly - $(OCAMLYACC) -v grammar_parser.mly - -grammar_typecheck.cmo: grammar_typecheck.ml - $(OCAMLC) -c -I $(OCAMLGRAPHDIR) grammar_typecheck.ml - -grammar_typecheck.cmx: grammar_typecheck.ml - $(OCAMLOPT) -c -I $(OCAMLGRAPHDIR) grammar_typecheck.ml - -glr.cmo: glr.ml - $(OCAMLC) -c -I $(OCAMLGRAPHDIR) glr.ml - -glr.cmx: glr.ml - $(OCAMLOPT) -c -I $(OCAMLGRAPHDIR) glr.ml - -parse_table.cmo: parse_table.ml - $(OCAMLC) -c -I $(OCAMLGRAPHDIR) parse_table.ml - -parse_table.cmx: parse_table.ml - $(OCAMLOPT) -c -I $(OCAMLGRAPHDIR) parse_table.ml - -new_term_parser.cmo: new_term_parser.ml - $(OCAMLC) -c -I $(OCAMLGRAPHDIR) new_term_parser.ml - -new_term_parser.cmx: new_term_parser.ml - $(OCAMLOPT) -c -I $(OCAMLGRAPHDIR) new_term_parser.ml - -dependency.cmo: dependency.ml - $(OCAMLC) -c -I $(OCAMLGRAPHDIR) dependency.ml - -dependency.cmx: dependency.ml - $(OCAMLOPT) -c -I $(OCAMLGRAPHDIR) dependency.ml - -#version.ml: Makefile tmp_date.txt -# echo let n=\"$(OTTVER)\" > tmp_version1.ml -# echo -n let d=\" > tmp_version2.ml -# echo \" > tmp_version3.ml -# cat tmp_version1.ml tmp_version2.ml tmp_date.txt tmp_version3.ml > version.ml -# rm tmp_version1.ml tmp_version2.ml tmp_version3.ml - -version.ml: tmp_date.txt Makefile #Makefile-core - echo 'let n="$(OTTVER)"' >version.ml - echo let d=\"$$(cat tmp_date.txt)\" >>version.ml - -version.tex: tmp_date.txt version_src.tex Makefile - sed -e 's/__VERSION__/$(OTTVER)/' \ - -e '/__DATE__/r tmp_date.txt' \ - -e '/__DATE__/d' version.tex -# sed -e 's/__VERSION__/$(OTTVER)/' \ -# -e "s/__DATE__/$$(cat tmp_date.txt)/" version.tex - -# common rules - -%.cmi: %.mli - $(OCAMLC) -I $(OCAMLGRAPHDIR) -c $< - -%.interface: %.ml - $(OCAMLC) -I $(OCAMLGRAPHDIR) -i $< >$@ - -#%.mli: %.ml -# $(OCAMLC) -I $(OCAMLGRAPHDIR) -i $< >$@ - -%.cmo: %.ml - $(OCAMLC) -c $< - -%.cmx: %.ml - $(OCAMLOPT) -I $(OCAMLGRAPHDIR) -c $< - -%.ps : %.dot - dot -Tps $< > $@ - -%.png : %.dot - dot -Tpng -Gsize="2,2" $< > $@ - -%.vo: %.v - $(COQC) $(COQ_INCLUDE) $(COQ_FLAGS) $< - -# INSTALL ############################################################## - -## Rules to unpack and build our copy of ocamlgraph. -$(OCAMLGRAPHDIR)/Makefile: - cd $(topdir) && tar -zxvf $(OCAMLGRAPHTARGZ) - cd $(OCAMLGRAPHDIR) && patch -p1 < $(topdir)/ocamlgraph-safe-string.patch - cd $(OCAMLGRAPHDIR) && ./configure -$(OCAMLGRAPHDIR)/graph.cma: $(OCAMLGRAPHDIR)/Makefile - cd $(OCAMLGRAPHDIR) && $(MAKE) graph.cma -$(OCAMLGRAPHDIR)/graph.cmxa: $(OCAMLGRAPHDIR)/Makefile -# cd $(OCAMLGRAPHDIR) && $(MAKE) OCAMLOPT='$(OCAMLOPT) -I src -I lib' graph.cmxa - cd $(OCAMLGRAPHDIR) && $(MAKE) graph.cmxa - -# The extra `-I' options when building graph.cmxa work around OCaml -# PR#4124 (present in OCaml 3.09.*). -ocamlgraph: $(OCAMLGRAPHDIR)/graph.cma $(OCAMLGRAPHDIR)/graph.cmxa - -$(topdir)/bin: - mkdir $(topdir)/bin - -install.byt: $(topdir)/bin $(OCAMLGRAPHDIR)/graph.cma - $(MAKE) byt - cp ./ott $(topdir)/bin/ott - -install: $(topdir)/bin $(OCAMLGRAPHDIR)/graph.cmxa - $(MAKE) opt - cp ./ott $(topdir)/bin/ott - - - -# LIBRARY ############################################################## - -coq-lib: - cd $(topdir)/coq && $(MAKE) all - - -# GRAMMAR DOCS ########################################################## - -# magic to tex-ify our yacc parser - -Y2L=../aux/y2l/y2l - -%.mly-y2l : %.mly - cat $< | tr -d \' | grep -v '%start' | grep -v '%type' | sed -e 's/%prec [^ ]*//' > $@ - -grammar_parser.tex : grammar_parser.mly-y2l $(Y2L) - $(Y2L) $< -O2 > $@ -# -# not sure if the parser-tokens.y2l can be autogenerated or if we -# have to write it by hand (hacking grammar_parser.mli -# (cf ../../Impl/acute/parser-tokens.y2l). If omitting it, use -# the grammar_parser.tex rule above instead of this below -# -#%.tex : %.mly-y2l parser-tokens.y2l $(Y2L) -# $(Y2L) $< -O2 -tparser-tokens.y2l > $@ - -grammar.ps : grammar.tex grammar_parser.tex - $(LATEX) grammar.tex - $(DVIPS) $(DVIPSOPTS) grammar.dvi - - -# EXAMPLES USED IN MANUAL ############################################## - -tmp_test7_clean.ott: ../tests/test7.ott - rm -f tmp_test7_clean.ott - (grep -v ^a | sed -e 's/^r//g' | grep -v ^% ) < ../tests/test7.ott > tmp_test7_clean.ott - chmod ugo-w tmp_test7_clean.ott - - -# DOT IMAGES FOR WEB PAGE ############################################### - -tmp_test7.ott: ../tests/test7.ott - rm -f tmp_test7.ott - (sed -e 's/^r//g') < ../tests/test7.ott > tmp_test7.ott - chmod ugo-w tmp_test7.ott - - -test7: ott tmp_test7.ott - ./ott -o out.tex \ - -dot tmp_test7_dot.dot \ - -o out.thy -o outScript.sml -o out.v \ - -parse ":user_syntax: \x1':X.x1'" \ - -parse ":user_syntax: :user_syntax__t: \x1':X.x1'" \ - -parse ":user_syntax: :user_syntax__t: :concrete: \x1':X.x1'" \ - -parse ":user_syntax: :concrete: \x1':X.x1'" \ - -parse ":concrete_t:\x1':X.x1'" \ - -parse ":Jop: match({l1=p1,..,lm=pm},{k1=v1,..,kn=vn}) = s1,..,sm" \ - tmp_test7.ott \ - && ($(LATEX) out; $(DVIPS) out -o; $(DVIPDFM) out) - - -%.ps : %.dot - dot -Tps $< > $@ - -%.png : %.dot - dot -Tpng -Gsize="2,2" $< > $@ - - - -#%.gif : %.dot -# dot -Tgif -Gsize="2,2" $< > $@ - - -# WEB PAGE INSTALL ################################################### - - -tmp_index.html: ../doc/index.html.p - cat ../doc/index.html.p | \ - sed -e "s/OTTVERSION/$(OTTVER)/g" > tmp_index.html - -install-www-index: tmp_index.html - $(MAKE) test7 - $(MAKE) tmp_test7_dot.ps - $(MAKE) tmp_test7_dot.png - cp -f tmp_index.html ~/public_html/ott/index.html - cp -f ../doc/style.css ~/public_html/ott - cp -f ../doc/favicon.ico ~/public_html/ott - cp -f ../revision_history.txt ~/public_html/ott - cp -f ../README ~/public_html/ott/README.txt - cp -f tmp_test7_dot.ps ~/public_html/ott/test7.dot.ps - cp -f tmp_test7_dot.png ~/public_html/ott/test7.dot.png - chmod ugo-w ~/public_html/ott/index.html - chmod ugo-w ~/public_html/ott/style.css - chmod ugo-w ~/public_html/ott/revision_history.txt - - - -# CLEANUP ############################################################## - -clean: - rm -f *~ *.cmi *.cmo *.cmx *.o - rm -f grammar_lexer.ml grammar_parser.ml \ - grammar_parser.mli grammar_parser.output - rm -f version.ml - rm -rf ott ott.byt ott.opt $(topdir)/bin/ott - rm -f grammar_parser.tex *.mly-y2l - rm -f *.aux *.log *.dvi *.ps *.pdf *.annot - rm -f out.thy out.v outScript.sml outTheory.uo outTheory.ui outTheory.sig outTheory.sml out.tex out.sty - rm -f tmp_*.dot tmp.dot - rm -f tmp_*.ott - rm -f testRegr* - rm -f *Theory.* *.ui *.uo - rm -rf $(OCAMLGRAPHDIR) - -realclean: - rm -f .depend - cd $(topdir)/coq && $(MAKE) clean - - -# DEPENDENCIES ######################################################## - -foob: - echo $(SOURCES) - -depend: - $(OCAMLDEP) $(SOURCES) $(SOURCES_MLI) > .depend -.depend: Makefile $(SOURCES) $(SOURCES_MLI) - $(OCAMLDEP) $(SOURCES) $(SOURCES_MLI) > .depend - -include .depend diff --git a/vendors/ott/src/README-src.txt b/vendors/ott/src/README-src.txt deleted file mode 100644 index 73491a5d0302..000000000000 --- a/vendors/ott/src/README-src.txt +++ /dev/null @@ -1,77 +0,0 @@ -Wed Oct 3 16:27:40 BST 2007 - -The basic structure of a simple Ott execution is to read in a .ott -file, convert it to an internal representation (a value of type -systemdefn) and then pretty print it into the various targets that -were requested on the command line. The pretty printing functions -are each parameterised by (and often do a case split on) a pp_mode -telling them which target is being generated. - -location.ml locations in ott source files - -types.ml type definitions, especially of syntaxdefn, - relationsdefn, and (roughly their combination) systemdefn - -auxl.ml many assorted auxiliary functions - -merge.ml merging of symbolic terms, eg to take the two - endpoints of a putative ... form and form a - list, and code to abstract an indexvar from an entity - -grammar_lexer.mll the lexer for .ott source files - -grammar_parser.mly the parser for .ott source files - -grammar_pp.ml pretty printing of the syntaxdefn types, for - ascii, latex, coq, hol, isabelle, and ocaml - -term_parser.ml the current(old) parser for user-language concrete and - symbolic terms, implemented with memoized - parser combinators - -glr.ml a general glr parser - -new_term_parser.ml a putative replacement parser for the user languages, - using glr.ml - -dependency.ml computing the dependencies of a syntaxdefn - -grammar_typecheck.ml the check_and_disambiguate function, taking a - raw syntaxdefn and producing a syntaxdefn (together with a - raw_defnclass list) - -transform.ml takes a grammar and returns a grammar in which - the dot forms have been expanded using - auxiliary list-like constructors (for Coq) - -bounds.ml bounds extraction - calculuting a dot - environment from a set of symbolic terms, identifying which are - indexed with the same bounds - -substs_pp.ml pretty print substitution and free variable - proof assistant functions - -subrules_pp.ml pretty print is_value predicates for subrules - -embed_pp.ml pretty print of an embedded part of an .ott file - -defns.ml process inductive definitions, parsing the - rules using term_parser, doing bounds - analysis, and pretty-printing the rules - -coq_induct.ml generates induction principles for Coq native lists - -system_pp.ml pretty prints an entire systemdefn, in any of - the targets - -align.ml a long identity function - -main.ml the driver, reading .ott files (and files to be filtered), - parsing them with grammar_parser, converting - them to syntaxdefns with grammar_typecheck, - processing their defns with defns, and pretty - printing the resulting systemdefns with - system_pp - - - diff --git a/vendors/ott/src/align.ml b/vendors/ott/src/align.ml deleted file mode 100644 index b58619a201b8..000000000000 --- a/vendors/ott/src/align.ml +++ /dev/null @@ -1,75 +0,0 @@ -(**************************************************************************) -(* Ott *) -(* *) -(* Peter Sewell, Computer Laboratory, University of Cambridge *) -(* Francesco Zappa Nardelli, Moscova project, INRIA Rocquencourt *) -(* *) -(* Copyright 2005-2006 *) -(* *) -(* Redistribution and use in source and binary forms, with or without *) -(* modification, are permitted provided that the following conditions *) -(* are met: *) -(* 1. Redistributions of source code must retain the above copyright *) -(* notice, this list of conditions and the following disclaimer. *) -(* 2. Redistributions in binary form must reproduce the above copyright *) -(* notice, this list of conditions and the following disclaimer in the *) -(* documentation and/or other materials provided with the distribution. *) -(* 3. The names of the authors may not be used to endorse or promote *) -(* products derived from this software without specific prior written *) -(* permission. *) -(* *) -(* THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS *) -(* OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED *) -(* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE *) -(* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY *) -(* DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL *) -(* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE *) -(* GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS *) -(* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER *) -(* IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR *) -(* OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN *) -(* IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. *) -(**************************************************************************) - -open Types - -let split_line (s:string) : string * int * string option = - try - let l = String.length s in - let idx = (String.index s '\n') + 1 in - let line = String.sub s 0 idx in - let rest = String.sub s idx (l - idx) in - (line, idx, Some rest) - with Not_found -> (s, (String.length s), None) - -let rec insert_spaces n = - if n = 0 then "" else " "^(insert_spaces (n-1)) - -let align_line (m:pp_mode) (s:string) (l:int) : string = - match m with - | Coq _ -> - if l > 80 - then - (* rule 1: in a pattern-matching, insert a newline after the pattern *) - let rgx = Str.regexp "[ \t]*|.*=>" in - if (Str.string_match rgx s 0) - then begin - let pos = (Str.search_forward (Str.regexp "=>") s 0) + 2 in - let first_line = String.sub s 0 pos in - let second_line = String.sub s pos (l - pos) in - first_line ^"\n" ^ (insert_spaces 5) ^ second_line - end - else s - else s - | _ -> s - -let rec align_doc m s = - match split_line s with - | (s,l,None) -> align_line m s l - | (s,l,Some r) -> (align_line m s l) ^ (align_doc m r) - -(* FZ rename align_doc into align *) -let align (m:pp_mode) (s:string) : string = - match m with - | Coq _ -> (* align_doc m *) s - | _ -> s diff --git a/vendors/ott/src/align.mli b/vendors/ott/src/align.mli deleted file mode 100644 index d34de0bf6ba0..000000000000 --- a/vendors/ott/src/align.mli +++ /dev/null @@ -1,34 +0,0 @@ -(**************************************************************************) -(* Ott *) -(* *) -(* Peter Sewell, Computer Laboratory, University of Cambridge *) -(* Francesco Zappa Nardelli, Moscova project, INRIA Rocquencourt *) -(* *) -(* Copyright 2005-2008 *) -(* *) -(* Redistribution and use in source and binary forms, with or without *) -(* modification, are permitted provided that the following conditions *) -(* are met: *) -(* 1. Redistributions of source code must retain the above copyright *) -(* notice, this list of conditions and the following disclaimer. *) -(* 2. Redistributions in binary form must reproduce the above copyright *) -(* notice, this list of conditions and the following disclaimer in the *) -(* documentation and/or other materials provided with the distribution. *) -(* 3. The names of the authors may not be used to endorse or promote *) -(* products derived from this software without specific prior written *) -(* permission. *) -(* *) -(* THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS *) -(* OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED *) -(* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE *) -(* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY *) -(* DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL *) -(* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE *) -(* GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS *) -(* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER *) -(* IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR *) -(* OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN *) -(* IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. *) -(**************************************************************************) - -val align : Types.pp_mode -> string -> string diff --git a/vendors/ott/src/auxl.ml b/vendors/ott/src/auxl.ml deleted file mode 100644 index 91c94770e543..000000000000 --- a/vendors/ott/src/auxl.ml +++ /dev/null @@ -1,1846 +0,0 @@ -(**************************************************************************) -(* Ott *) -(* *) -(* Peter Sewell, Computer Laboratory, University of Cambridge *) -(* Francesco Zappa Nardelli, Moscova project, INRIA Rocquencourt *) -(* *) -(* Copyright 2005-2010 *) -(* *) -(* Redistribution and use in source and binary forms, with or without *) -(* modification, are permitted provided that the following conditions *) -(* are met: *) -(* 1. Redistributions of source code must retain the above copyright *) -(* notice, this list of conditions and the following disclaimer. *) -(* 2. Redistributions in binary form must reproduce the above copyright *) -(* notice, this list of conditions and the following disclaimer in the *) -(* documentation and/or other materials provided with the distribution. *) -(* 3. The names of the authors may not be used to endorse or promote *) -(* products derived from this software without specific prior written *) -(* permission. *) -(* *) -(* THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS *) -(* OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED *) -(* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE *) -(* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY *) -(* DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL *) -(* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE *) -(* GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS *) -(* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER *) -(* IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR *) -(* OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN *) -(* IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. *) -(**************************************************************************) - -open Types - -(* exceptions ************************************************************ *) - -exception ThisCannotHappen - -(* debug, warning and error report *************************************** *) - -let mode_name m = match m with - | Ascii _ -> "Ascii" - | Tex _ -> "Tex" - | Isa _ -> "Isabelle" - | Hol _ -> "HOL" - | Lem _ -> "Lem" - | Coq _ -> "Coq" - | Twf _ -> "Twelf" - | Caml _ -> "OCaml" - | Rdx _ -> "Redex" - | Lex _ -> "Lex" - | Menhir _ -> "Menhir" - | Json _ -> "Json" - -let debug_on = false - -let debug s = if debug_on then begin print_string s; flush stdout end - -let warning s = print_endline ("warning: " ^ s); flush stdout - -let error s = print_endline ("error: " ^ s); flush stdout; exit 2 - -let int_error s = print_endline("internal: " ^ s); flush stdout; exit 2 - -let errorm m s = print_endline ("internal (" ^ mode_name m ^ "): " ^ s); flush stdout; exit 2 - - -(* ***************** *) -(* naming convention *) -(* ***************** *) - -(* let var_name m xd ntrp = ntrp *) - -(* turned off version *) -(* let hide_isa_trailing_underscore m s = *) -(* s *) - -(* turned on version *) -let hide_isa_trailing_underscore m s = - let debug = false in - if debug then - match m with - | Isa _ -> - if s="" then "E" (* empty *) - else if s.[String.length s - 1] = '_' then s^"U" (* underscore *) - else s^"N" (* no underscore *) - | _ -> s - else - match m with - | Isa _ -> - if s="" then "" (* empty *) - else if s.[String.length s - 1] = '_' then s^"XXX" (* underscore *) - else s (* no underscore *) - | _ -> s - - -let psuedo_terminal_of_prod_name pn = ":" ^ pn ^ ":" - -let fake_concrete_ntr_of_ntr ntr = "concrete_"^ntr - -let parse_as_concrete = ":concrete:" - -let subst_name : string -> nontermroot -> string = - fun s ntr -> s^"_"^ntr - -let auxfn_name : auxfn -> nontermroot -> nontermroot -> string = - fun s ntr typ -> -(* print_string ("==="^s^"=="^ntr^"=="^typ^"===\n");flush stdout; *) -(* if ntr="av" then failwith "auxfn_name called with ntr=av";*) - "aux_"^s^"_"^ntr^"_of_"^typ - -let fv_name : string -> nontermroot -> string = - fun s ntr -> s^"_"^ntr - -let context_name = - fun ntr hole -> "appctx_"^ntr^"_"^hole - -(* generate a predicate name for a sub-ntr *) -let pp_is : nontermroot -> string -> string = fun ntr typ -> "is_"^ntr^"_of_"^typ -let pp_is_list : nontermroot -> string -> string = fun ntr typ -> (pp_is ntr typ)^"_list" - - -(* **************************** *) -(* lexical character categories *) -(* **************************** *) -let isalphanum c = (c>='A' && c<= 'Z') || (c>='a' && c<= 'z') || (c>='0' && c<= '9') - -let iswhitespace c = c=' ' || c = '\010' || c='\009' || c='\013' || c='\012' - -let issuffixpunct c = c='\'' || c='_' (* || c='^' *) - - - -(* simple auto-insert parentheses *) -let paren s = - if String.contains s ' ' - then "("^s^")" - else s - -let string_begins s1 s2 = - try - let len = String.length s2 in - if String.sub s1 0 len = s2 - then true - else false - with _ -> false - -(* equality testing up-to location data ********************************** *) - -let rec eq_raw_element (red,red') = - match red,red' with - | Raw_ident (_,(_,ri)), Raw_ident (_,(_,ri')) -> - (* (List.for_all (fun (a,b) -> a = b) (List.combine rv rv')) && FZ *) (ri = ri') - | Raw_option (_,res), Raw_option (_,res') -> eq_raw_elements res res' - | Raw_list (_,res), Raw_list (_,res') -> eq_raw_elements res res' - | Raw_nelist (_,res), Raw_nelist (_,res') -> eq_raw_elements res res' - | Raw_sugaroption (_,res), Raw_sugaroption (_,res') -> - eq_raw_element (res,res') - | Raw_dots (_,n), Raw_dots (_,n') -> n=n' - | _,_ -> false - -and eq_raw_elements res res' = - try List.for_all eq_raw_element (List.combine res res') - with Invalid_argument _ -> false - -(* utilities *********************************************************** *) - -exception TheOfNone - -let the x = - match x with - | Some x -> x - | None -> raise TheOfNone - -let rec option_map f xs = - match xs with - | [] -> [] - | x::xs -> - ( match f x with - | None -> option_map f xs - | Some x -> x :: (option_map f xs) ) - -let rec list_concat (xs_sep : 'a list) (xss : 'a list list) : 'a list = - match xss with - | [] -> [] - | [xs1] -> xs1 - | xs1::xs2::xss' -> xs1 @ xs_sep @ list_concat xs_sep (xs2::xss') - -let fold_left1 f lst = match lst with - | [] -> raise ThisCannotHappen - | x::xs -> List.fold_left f x xs - -let string_iter f s = - for i = 0 to String.length s - 1 do f (String.get s i) done - -(* we use char lists a lot *) - -let char_list_of_string s = - let n = String.length s in - let rec f i = if i=n then [] else String.get s i :: f (i+1) in - f 0 - -let string_of_char_list ts = - let n = List.length ts in - let s = Buffer.create n in - List.iter (Buffer.add_char s) ts; - Buffer.contents s - -(* tests to identify strings *) - -exception Not_alpha - -let is_char_alpha c = - ((c >= 'A' && c <= 'Z') - || (c >= '\192' && c <= '\214') - || (c >= '\216' && c <= '\222') - || (c >= 'a' && c <= 'z') - || (c >= '\224' && c <= '\246') - || (c >= '\248' && c <= '\254')) - -let is_alpha s = (* FZ this should work for iso-8859-1 *) - try - String.iter (fun c -> - if not ((c >= 'A' && c <= 'Z') - || (c >= '\192' && c <= '\214') - || (c >= '\216' && c <= '\222') - || (c >= 'a' && c <= 'z') - || (c >= '\224' && c <= '\246') - || (c >= '\248' && c <= '\254') - || (c = '_') - ) then raise Not_alpha else ()) s; - true - with Not_alpha -> false - -(* pretty-printing library definitions/lemmas ********************** *) - -let add_to_lib r name def = - let (s, l) = !r in - if not (List.mem name l) then r := (s ^ def, name :: l) - -(* manipulation of a syntaxdefn ************************************ *) - -(* Similar function already in Grammar_pp -let pp_type_name m xd (s: string) = - let homname = match m with - | Coq _ -> "coq" - | Hol _ -> "hol" - | Isa _ -> "isa" - | Twf _ -> "twf" - | Caml _ | Lex _ -> "ocaml" - | Ascii _ | Tex _ -> errorm m "pp_type_name" in - let rec search_hom homs = match homs with - | [] -> None (* should never happen in type-checked specs *) - | (hn,hs)::_ when hn = homname -> - Some (String.concat " " (option_map (function Hom_string s -> Some s | _ -> None) hs)) - | _::homs -> search_hom homs in - let rec search_ntr rs = match rs with - | [] -> None - | r::rs when r.rule_ntr_name = s || List.exists (fun (s',_) -> s'=s) r.rule_ntr_names -> - if r.rule_phantom then search_hom r.rule_homs - else Some s - | _::rs -> search_ntr rs in - let rec search_mvr mds = match mds with - | [] -> None - | mvd::_ when mvd.mvd_name = s || List.exists (fun (s',_) -> s'=s) mvd.mvd_names -> - if mvd.mvd_phantom then search_hom mvd.mvd_rep - else Some s - | _::rs -> search_mvr rs in - match search_mvr xd.xd_mds with Some s -> s | None -> - match search_ntr xd.xd_rs with Some s -> s | None -> - s (* should never happen in type-checked specs *) -*) - -let rec has_assoc (s:string) l = match l with - | [] -> false - | (t,_)::l -> s = t || has_assoc s l - -let mvd_of_mvr (xd:syntaxdefn) (mvr:metavarroot) : metavardefn = - List.find (fun mvd -> mvd.mvd_name = mvr) xd.xd_mds - -let mvd_of_mvr_nonprimary (xd:syntaxdefn) (mvr:metavarroot) : metavardefn = - List.find (fun mvd -> has_assoc mvr mvd.mvd_names) xd.xd_mds - -let rule_of_ntr (xd:syntaxdefn) (ntr:nontermroot) : rule = - let rec search_ntr ntr rs = match rs with - | [] -> raise Not_found - | r::_ when r.rule_ntr_name = ntr -> r - | _::rs -> search_ntr ntr rs in - search_ntr ntr xd.xd_rs - -let rule_of_ntr_nonprimary (xd:syntaxdefn) (ntr:nontermroot) : rule = - let rec search_ntr2 ntr rs = match rs with - | [] -> raise Not_found - | r::_ when has_assoc ntr r.rule_ntr_names -> r - | _::rs -> search_ntr2 ntr rs in - search_ntr2 ntr xd.xd_rs - -let prod_of_prodname ?(warn=true) (xd:syntaxdefn) (pn:prodname) : prod = - let r = - try - List.find - (fun r -> List.exists (fun p -> p.prod_name=pn) r.rule_ps) - xd.xd_rs - with Not_found -> if warn then warning ("internal: prod_of_prodname: searching pn = "^pn^"\n"); raise Not_found in - List.find (fun p -> p.prod_name=pn) r.rule_ps -(* let prod_of_prod_name : prodname -> prod *) -(* = fun prod_name' -> *) -(* let rec q prods = *) -(* match prods with *) -(* [] -> raise Not_found *) -(* | prod::prods' -> *) -(* if prod.prod_name=prod_name' then prod else q prods' in *) -(* let rec p rules = *) -(* match rules with *) -(* [] -> raise Not_found *) -(* | r::rules' -> *) -(* try q (r.rule_ps) with Not_found -> p rules' in *) -(* p (List.concat l.rs) in *) - - -(* auxiliary to promote a primary ntr to its super-ntr, if any *) -let promote_ntr xd ntrp = - (* prerr_string (""^ntrp^"\n");flush stderr; *) - let d = List.map (function sr -> sr.sr_lower,sr.sr_top) xd.xd_srs in - try - List.assoc ntrp d - with Not_found -> - ntrp - -let promote_ntr' xd ntrp = - (* prerr_string (""^ntrp^"\n");flush stderr; *) - let d = List.map (function sr -> sr.sr_lower,(sr.sr_upper,sr.sr_top)) xd.xd_srs in - List.assoc ntrp d - -let promote_ntmvr xd ntmvr = - match ntmvr with - | Ntr ntrp -> (* print_endline ("promoting: " ^ ntrp); *) - Ntr (promote_ntr xd ntrp) - | Mvr mvr -> Mvr mvr - -(* extract the set of nonterminalroots defined by a syntax (including synonyms) - reverse-sorted *) -let all_ntrs_defined_by_syntaxdefn xd = - List.sort - (function a -> function b -> compare b a) - (List.concat (List.map (function r -> List.map fst r.rule_ntr_names) xd.xd_rs )) - -(* extract the set of metavarroots defined by a syntax (including synonms), - reverse-sorted *) -let all_mvrs_defined_by_syntaxdefn xd = - List.sort - (function a -> function b -> compare b a) - (List.concat (List.map (function mvd -> List.map fst mvd.mvd_names) xd.xd_mds )) -let all_nonindex_mvrs_defined_by_syntaxdefn xd = - List.sort - (function a -> function b -> compare b a) - (List.concat - (List.map (function mvd -> List.map fst mvd.mvd_names) - (List.filter (function md->not md.mvd_indexvar) xd.xd_mds ))) -let all_index_mvrs_defined_by_syntaxdefn xd = - List.sort - (function a -> function b -> compare b a) - (List.concat - (List.map (function mvd -> List.map fst mvd.mvd_names) - (List.filter (function md-> md.mvd_indexvar) xd.xd_mds ))) - -(* extract the set of prodnames defined by a syntax *) -let all_prodnames_defined_by_syntaxdefn xd = - List.sort - (function a -> function b -> compare b a) - (List.concat (List.map (function r -> List.map (function p->p.prod_name) r.rule_ps) xd.xd_rs )) - - -(* auxiliary to find the primary ntrs used in an element, prod, and rule *) -let rec primary_ntrs_used_in_element xd promote e = - match e with - | Lang_nonterm (ntr_primary,nt_as_written) -> - NtrSet.singleton - (if promote - then promote_ntr xd ntr_primary - else ntr_primary) - | Lang_metavar _ -> NtrSet.empty - | Lang_terminal _ -> NtrSet.empty - | Lang_option es -> ntrlistunion (List.map (primary_ntrs_used_in_element xd promote) es) - | Lang_sugaroption es -> NtrSet.empty - | Lang_list elb -> ntrlistunion(List.map (primary_ntrs_used_in_element xd promote) elb.elb_es) - -let primary_ntrs_used_in_hom xd m promote homs = - try - let hom = List.assoc m homs in - let defined_ntrs = all_ntrs_defined_by_syntaxdefn xd in - ntrsetoflist - (List.concat - (List.map - (fun hse -> - ( match hse with - | Hom_index _ | Hom_terminal _ -> [] - | Hom_string s -> - let strs = Str.split (Str.regexp "[ \t]+") s in - let ntrs_hom = List.filter (fun st -> List.mem st defined_ntrs) strs in - if promote - then List.map (promote_ntr xd) ntrs_hom - else ntrs_hom )) - hom )) - with Not_found -> NtrSet.empty - -let primary_ntrs_used_in_prod xd promote p = - ntrlistunion (List.map (primary_ntrs_used_in_element xd promote) p.prod_es) - -let primary_ntrs_used_in_rule xd scan_meta scan_homs promote r = - let prods = - if scan_meta - then r.rule_ps - else List.filter (fun p -> not p.prod_meta) r.rule_ps in - let in_rule = ntrlistunion (List.map (primary_ntrs_used_in_prod xd promote) prods) in - match scan_homs with - | None -> in_rule - | Some m -> NtrSet.union in_rule (primary_ntrs_used_in_hom xd m promote r.rule_homs) - - - -(* auxiliary to find the nts used in an element, prod, and rule *) -let rec nts_used_in_element pe e = match e with -| Lang_nonterm (ntr_primary,nt_as_written) -> - [(ntr_primary,nt_as_written,pe)] -| Lang_metavar _ -> [] -| Lang_terminal _ -> [] -| Lang_option es -> List.flatten (List.map (nts_used_in_element pe) es) -| Lang_sugaroption es -> [] -| Lang_list elb -> List.flatten (List.map (nts_used_in_element (elb.elb_boundo::pe)) elb.elb_es) - -let nts_list_used_in_es es = List.flatten (List.map (nts_used_in_element []) es) - -let nts_set_used_in_es es = ntsetoflist (nts_list_used_in_es es) - -let nts_used_in_prod p = nts_set_used_in_es p.prod_es - -let nts_used_in_rule r = ntlistunion (List.map nts_used_in_prod r.rule_ps) - -(* auxiliary to find the primary mvrs used in an element, prod, and rule *) -let rec primary_mvrs_used_in_element e = match e with -| Lang_nonterm _ -> MvrSet.empty -| Lang_metavar (mvr_primary,mv_as_written) -> - MvrSet.singleton mvr_primary -| Lang_terminal _ -> MvrSet.empty -| Lang_option es -> mvrlistunion (List.map primary_mvrs_used_in_element es) -| Lang_sugaroption es -> MvrSet.empty -| Lang_list elb -> mvrlistunion (List.map primary_mvrs_used_in_element elb.elb_es) - -let primary_mvrs_used_in_hom xd m homs = - try - let hom = List.assoc m homs in - let defined_mvrs = all_mvrs_defined_by_syntaxdefn xd in - mvrsetoflist - (List.concat - (List.map - (fun hse -> - ( match hse with - | Hom_index _ | Hom_terminal _ -> [] - | Hom_string s -> - let strs = Str.split (Str.regexp "[ \t]+") s in - List.filter (fun st -> List.mem st defined_mvrs) strs )) - hom )) - with Not_found -> MvrSet.empty - -let primary_mvrs_used_in_prod p = - mvrlistunion (List.map primary_mvrs_used_in_element p.prod_es) - -let primary_mvrs_used_in_rule xd scan_meta scan_homs r = - let rules = - if scan_meta - then r.rule_ps - else List.filter (fun p -> not p.prod_meta) r.rule_ps in - let in_rule = mvrlistunion (List.map primary_mvrs_used_in_prod rules) in - match scan_homs with - | None -> in_rule - | Some m -> MvrSet.union in_rule (primary_mvrs_used_in_hom xd m r.rule_homs) - -(* auxiliary to find the mvs used in an element, prod, and rule *) -let rec mvs_used_in_element pe e = match e with -| Lang_nonterm _ -> [] -| Lang_metavar (mvr_primary,mv_as_written) -> - [(mvr_primary,mv_as_written,pe)] -| Lang_terminal _ -> [] -| Lang_option es -> List.flatten (List.map (mvs_used_in_element pe) es) -| Lang_sugaroption es -> [] -| Lang_list elb -> List.flatten (List.map (mvs_used_in_element (elb.elb_boundo::pe)) elb.elb_es) - -let mvs_list_used_in_es es = List.flatten (List.map (mvs_used_in_element []) es) - -let mvs_set_used_in_es es = mvsetoflist (mvs_list_used_in_es es) - -let mvs_used_in_prod p = mvs_set_used_in_es p.prod_es - -let mvs_used_in_rule r = mvlistunion (List.map mvs_used_in_prod r.rule_ps) - -(* auxiliary to find the terminals used in a systemdefn, reverse-sorted *) -(* including pseudo-terminals :Expr_tuple: made up from production names *) -(* Expr_tuple *) -let rec terminals_of_element e = match e with - Lang_nonterm (_,_) -> TerminalSet.empty -| Lang_metavar (_,_) -> TerminalSet.empty -| Lang_terminal tm -> TerminalSet.singleton tm -| Lang_option es -> terminallistunion (List.map terminals_of_element es) -| Lang_sugaroption tm -> TerminalSet.singleton tm -| Lang_list elb -> - terminallistunion - ((match elb.elb_tmo with - | None -> TerminalSet.empty - | Some tm -> TerminalSet.singleton tm) - ::(List.map terminals_of_element elb.elb_es) ) -let terminals_of_prod p = - let ts = List.map terminals_of_element p.prod_es in - (*let ts = TerminalSet.singleton(psuedo_terminal_of_prod_name p.prod_name) :: ts in*) - terminallistunion ts -let terminals_of_rule r = terminallistunion - (List.map terminals_of_prod r.rule_ps) -let terminals_of_syntaxdefn0 xd = (* as a set *) - terminallistunion - (* ((terminalsetoflist extra_pseudo_terminals) *) - (* ::*) (List.map terminals_of_rule xd.xd_rs) -let terminals_of_syntaxdefn xd = (* as a reverse-ordered list *) - List.rev_append (TerminalSet.elements (terminals_of_syntaxdefn0 xd)) [] -let terminals_of_systemdefn sd = terminals_of_syntaxdefn sd.syntax - -let last_char_isalphanum s = s="" || (isalphanum s.[String.length s -1]) - -let terminals_of_syntaxdefn_alpha xd = - List.filter last_char_isalphanum (terminals_of_syntaxdefn xd) - -let terminals_of_syntaxdefn_nonalpha xd = - List.filter (function c -> not (last_char_isalphanum c)) (terminals_of_syntaxdefn xd) - - -(* auxiliaries to find the synonyms of a primary mvr or ntr *) -let mvr_synonyms : syntaxdefn -> metavarroot -> metavarroot list = - function xd -> - let assoc = List.map (function mvd -> (mvd.mvd_name, List.map fst mvd.mvd_names)) xd.xd_mds in - function mvrp -> List.assoc mvrp assoc - -let ntr_synonyms : syntaxdefn -> nontermroot -> nontermroot list = - function xd -> - let assoc = List.map (function r -> (r.rule_ntr_name, List.map fst r.rule_ntr_names)) xd.xd_rs in - function ntrp -> List.assoc ntrp assoc - -let all_indexvar_synonyms : syntaxdefn -> metavarroot list = - function xd -> - List.flatten (option_map (function mvd -> if mvd.mvd_indexvar then Some(List.map fst mvd.mvd_names) else None) xd.xd_mds) - -(* auxiliaries to take an ntr or mvr and find its primary one *) -let primary_ntr_of_ntr : syntaxdefn -> nontermroot -> nontermroot = - function xd -> - let assoc = List.map (function r -> (r.rule_ntr_name, List.map fst r.rule_ntr_names)) xd.xd_rs in - (* and one in the other direction *) - let assoc_op : (nontermroot * nontermroot) list - = List.concat - (List.map - (function (ntrp,ntrs)->List.map (function ntr'->(ntr',ntrp)) ntrs) - assoc) in - function ntr -> List.assoc ntr assoc_op - -let primary_mvr_of_mvr : syntaxdefn -> metavarroot -> metavarroot = - function xd -> - let assoc = List.map (function mvd -> (mvd.mvd_name, List.map fst mvd.mvd_names)) xd.xd_mds in - (* and one in the other direction *) - let assoc_op : (metavarroot * metavarroot) list - = List.concat - (List.map - (function (mvrp,mvrs)->List.map (function mvr'->(mvr',mvrp)) mvrs) - assoc) in - function mvr -> List.assoc mvr assoc_op - -let primary_nt_or_mv_of_nt_or_mv : syntaxdefn -> nt_or_mv_root -> nt_or_mv_root = - fun xd ntmvr -> - match ntmvr with - | Ntr ntr -> Ntr (primary_ntr_of_ntr xd ntr) - | Mvr mvr -> Mvr (primary_mvr_of_mvr xd mvr) - -(* auxiliary to take a primary ntr and give all its proper sub- (primary) ntrs *) -(* TODO WHAT EXACTLY IS THIS SUPPOSED TO DO??? *) -let ntr_proper_subs : syntaxdefn -> nontermroot -> nontermroot list = - fun xd ntrp -> - try List.assoc ntrp (xd.xd_srd.srd_proper_subntr_data) with Not_found -> [] -(* let x1 = List.map (function r -> r.rule_ntr_name) xd.xd_rs in *) -(* let x2 = List.map (function sr -> (sr.sr_upper,sr.sr_lower)) xd.xd_srs in *) -(* let x3 = List.map (function ntr -> try (ntr,[List.assoc ntr x2]) with Not_found -> (ntr,[])) x1 in *) -(* function ntrp -> List.assoc ntrp x3 *) - -let hom_name_for_pp_mode m - = match m with - | Ascii _ -> "ascii" - | Tex _ -> "tex" - | Isa _ -> "isa" - | Hol _ -> "hol" - | Lem _ -> "lem" - | Coq _ -> "coq" - | Twf _ -> "twf" - | Rdx _ -> "rdx" - | Caml _ -> "ocaml" - | Lex _ -> "lex" - | Menhir _ -> "menhir" - | Json _ -> "json" - -(* select dependencies *) - -let select_dep_ts m xddep = - try ( List.assoc (hom_name_for_pp_mode m) xddep ).xd_dep_ts - with Not_found -> int_error "cannot select dependencies\n" - -let select_dep_graph m xddep = - try ( List.assoc (hom_name_for_pp_mode m) xddep ).xd_dep_graph - with Not_found -> int_error "cannot select dependencies\n" - -let select_dep_graph_nontran m xddep = - try ( List.assoc (hom_name_for_pp_mode m) xddep ).xd_dep_graph_nontran - with Not_found -> int_error "cannot select dependencies\n" - -let hom_spec_for_hom_name hn homs = - try Some (List.assoc hn homs) - with Not_found -> None - -let hom_spec_for_pp_mode m homs = - hom_spec_for_hom_name (hom_name_for_pp_mode m) homs - -let loc_of_raw_element e = - match e with - | Raw_ident (l,_) - | Raw_option (l,_) - | Raw_list (l,_) - | Raw_nelist (l,_) - | Raw_sugaroption (l,_) - | Raw_dots (l,_) - | Raw_comp (l,_,_,_) - -> l - -let loc_of_raw_mse raw_mse = - match raw_mse with - | Raw_MVorNTExp (l,_) - | Raw_MVorNTListExp_dotform (l,_,_,_) - | Raw_MVorNTListExp_comp (l,_,_) - | Raw_Aux (l,_,_) - | Raw_AuxList_dotform (l,_,_,_,_) - | Raw_AuxList_comp (l,_,_,_) - | Raw_Union (l,_,_) - | Raw_Empty (l) - -> l - -let loc_of_raw_bindspec bs = - match bs with - | Raw_Bind (l,_,_) - | Raw_AuxFnDef(l,_,_) - | Raw_NamesEqual(l,_,_) - | Raw_NamesDistinct(l,_,_) - | Raw_AllNamesDistinct(l,_) - -> l - -let loc_of_raw_subrule sr = - sr.raw_sr_loc - -let loc_of_raw_contextrule cr = - cr.raw_cr_loc - -let loc_of_raw_subst sb = - sb.raw_sb_loc - -let loc_of_raw_freevar fv = - fv.raw_fv_loc - -let loc_of_raw_parsing_annotation pa = - pa.raw_pa_loc - -let loc_of_mytoken t = - match t with - | Tok_nonterm(l,_) - | Tok_metavar(l,_) -(* | Tok_terminal(l,_) *) -(* | Tok_dots(l,_) *) -(* | Tok_otherident(l,_) *) -(* | Tok_listform(l,_) *) - -> l - -(* *) -let rec remove_duplicates l = - match l with - | x::xs -> - if (List.mem x xs) then remove_duplicates xs else x::(remove_duplicates xs) - | [] -> [] - -let rec remove_duplicates2 f l = - match l with - | x::xs -> - if (List.exists (f x) xs) then remove_duplicates xs else x::(remove_duplicates xs) - | [] -> [] -(* PS: the above looks suspicious - should the recursive calls be to remove_duplicates2 f ?*) - -let rec find_first_duplicate l = - match l with - | x::xs -> - if (List.mem x xs) then Some x else find_first_duplicate xs - | [] -> None - -let rec find_first_duplicate2 f l = - match l with - | x::xs -> - if (List.exists (f x) xs) then Some x else find_first_duplicate xs - | [] -> None - -let rec setlist_union xs ys = - ( match xs with - | [] -> ys - | x::xs -> - if List.mem x ys then setlist_union xs ys - else x::setlist_union xs ys ) - -let rec setlist_list_union xss = - ( match xss with - | [] -> [] - | xs::xss -> setlist_union xs (setlist_list_union xss) ) - - - -let result_type_of_mse xd mse : nt_or_mv_root = - let rec f mse = match mse with - | MetaVarExp (mv) | MetaVarListExp (mv,_) -> - Some(Mvr(primary_mvr_of_mvr xd (fst mv))) - | NonTermExp (nt) | NonTermListExp (nt,_) -> - Some(Ntr(primary_ntr_of_ntr xd (fst nt))) - | Aux (f,(ntr',suffix)) | AuxList (f,(ntr',suffix),_) -> - Some(snd (List.assoc f xd.xd_axs)) - | Union(mse,mse') -> (match f mse, f mse' with - | Some ntmv, None | None,Some ntmv -> Some ntmv - | Some ntmv, Some ntmv' when ntmv=ntmv' -> Some ntmv - | None, None -> None - | _ -> failwith "result_type_of_mse applied to an mse with inconsistent type constraints") - | Empty -> None in - match f mse with - | Some ntmv -> ntmv - | None -> failwith "result_type_of_mse applied to an mse with unconstained type" - -let min_length_of_stli stli = match stli with - | Stli_single (_,_) -> 1 - | Stli_listform stlb -> match stlb.stl_bound with - | Bound_dotform bd -> 2 (* bd.bd_length *) - | Bound_comp _ -> 2 (* 0 *) - | Bound_comp_u _ -> 2 (* 0 *) - | Bound_comp_lu bclu -> 2 (* bclu.bclu_length *) - -let min_length_of_stlis stlis - = List.fold_left (+) 0 (List.map min_length_of_stli stlis) - - -let string_remove_suffix s s' = - let l = String.length s in - let l' = String.length s' in - if l<(String.length s') then None - else - let s1=String.sub s 0 (l-l') in - let s2=String.sub s (l-l') l' in - if s2<>s' then - None - else - Some s1 - -let string_is_prefix s s' = - let l = String.length s in - let l' = String.length s' in - if l' [] - | fst::_ -> - List.fold_left - (fun r xs -> List.map2 (fun x r -> x::r) xs r) - (List.map (fun _ -> []) fst) - (List.rev m) - -let split3 (l : ('a * 'b * 'c) list) : 'a list * 'b list * 'c list = - let rec internal l ba bb bc = - match l with - | [] -> (List.rev ba, List.rev bb, List.rev bc) - | (a,b,c)::tl -> internal tl (a::ba) (b::bb) (c::bc) - in internal l [] [] [] - -let big_line_comment m s = - match m with - | Coq _ | Hol _ | Lem _ | Isa _ | Caml _ -> "(** "^s^" *)\n" - | Twf _ -> "%%% "^s^" %%%\n\n" - | Tex _ -> "% "^s^"\n" - | Json _ -> "" - | Menhir _ | Lex _ | Ascii _ -> errorm m "big_line_comment" - -(* print only if not empty *) - -let rec print_with_comment m s0 c s = - match s with - | "" -> "" - | _ -> s0 ^ big_line_comment m c ^ s - - - - -(* extract nonterms from a symterm - used when building types in coq list treatment *) - -(* let rec extract_nonterms s = *) -(* match s with *) -(* | [] -> [] *) -(* | (Ste_st (_,St_nonterm (_,nt,_)))::t -> nt :: (extract_nonterms t) *) -(* | h::t -> *) -(* warning *) -(* ("internal: extract_nonterms case failure\n " *) -(* ^ (Grammar_pp.pp_plain_symterm_element h) ^ "***\n\n"); [] *) - - - -(* collect all the nonterms/metavars in a symterm *) -let rec nts_of_symterm st -: nonterm list = - match st with - | St_node (_,stnb) -> nts_of_symterm_node_body stnb - | St_nonterm (_,_,nt) -> [ nt ] - | St_nontermsub (_,ntrl,ntrt,nt) -> [nt] - | St_uninterpreted (_,_)-> [] -and nts_of_symterm_element ste = - match ste with - | Ste_st (_,st) -> nts_of_symterm st - | Ste_metavar (_,_,mv) -> [ ] - | Ste_var _ -> [] - | Ste_list (_,stlis) -> - List.concat (List.map nts_of_symterm_list_item stlis) -and nts_of_symterm_list_item stli = - match stli with - | Stli_single(_,stes) -> - List.concat (List.map nts_of_symterm_element stes) - | Stli_listform stlb -> - nts_of_symterm_list_body stlb -and nts_of_symterm_node_body stnb = - List.concat (List.map nts_of_symterm_element stnb.st_es) -and nts_of_symterm_list_body stlb = - List.concat (List.map nts_of_symterm_element stlb.stl_elements) -and nts_of_symterms sts = - List.concat (List.map nts_of_symterm sts) - -let rec mvs_of_symterm st -: metavar list = - match st with - | St_node (_,stnb) -> mvs_of_symterm_node_body stnb - | St_nonterm (_,_,nt) -> [ ] - | St_nontermsub (_,ntrl,ntrt,nt) -> [] - | St_uninterpreted (_,_)-> [] -and mvs_of_symterm_element ste = - match ste with - | Ste_st (_,st) -> mvs_of_symterm st - | Ste_metavar (_,_,mv) -> [ mv ] - | Ste_var _ -> [] - | Ste_list (_,stlis) -> - List.concat (List.map mvs_of_symterm_list_item stlis) -and mvs_of_symterm_list_item stli = - match stli with - | Stli_single(_,stes) -> - List.concat (List.map mvs_of_symterm_element stes) - | Stli_listform stlb -> - mvs_of_symterm_list_body stlb -and mvs_of_symterm_node_body stnb = - List.concat (List.map mvs_of_symterm_element stnb.st_es) -and mvs_of_symterm_list_body stlb = - List.concat (List.map mvs_of_symterm_element stlb.stl_elements) -and mvs_of_symterms sts = - List.concat (List.map mvs_of_symterm sts) - -let rec ntmvr_of_symterm st -: nt_or_mv_root list = - match st with - | St_node (_,stnb) -> ntmvr_of_symterm_node_body stnb - | St_nonterm (_,_,(ntr,_)) -> [ Ntr ntr ] - | St_nontermsub (_,ntrl,ntrt,(ntr,_)) -> [Ntr ntr] - | St_uninterpreted (_,_)-> [] -and ntmvr_of_symterm_element ste = - match ste with - | Ste_st (_,st) -> ntmvr_of_symterm st - | Ste_metavar (_,_,(mvr,_)) -> [ Mvr mvr ] - | Ste_var _ -> [] - | Ste_list (_,stlis) -> - List.concat (List.map ntmvr_of_symterm_list_item stlis) -and ntmvr_of_symterm_list_item stli = - match stli with - | Stli_single(_,stes) -> - List.concat (List.map ntmvr_of_symterm_element stes) - | Stli_listform stlb -> - ntmvr_of_symterm_list_body stlb -and ntmvr_of_symterm_node_body stnb = - List.concat (List.map ntmvr_of_symterm_element stnb.st_es) -and ntmvr_of_symterm_list_body stlb = - List.concat (List.map ntmvr_of_symterm_element stlb.stl_elements) -and ntmvr_of_symterms sts = - List.concat (List.map ntmvr_of_symterm sts) - -(** ******************************** *) -(** ******************************** *) -(** freshening *) -(** ******************************** *) -(** ******************************** *) - -let fresh_suffix : suffix list -> suffix -> suffix = - fun suffs suff0 -> - let suffix_nums suffs = - option_map - (function suffi -> - match suffi with - Si_num n -> Some(int_of_string n) - | _ -> None) - (List.concat suffs) in - let rec next ns n = if not (List.mem n ns) then n else next ns (n+1) in - (* TODO: do something better than this to avoid the less-trivial clashes *) - let index_suffis suff = List.filter (function suffi -> match suffi with Si_index _ -> true | _ -> false) suff in - let max_non_primes_suffix_length suffs = - List.fold_left max 0 (List.map (function suff -> if List.exists - (fun suffi -> match suffi with Si_punct "'" -> true | _ -> false) suff then 0 else List.length suff) suffs) in - let rec initial_underscores n = if n=0 then [] else (Si_punct "_")::initial_underscores (n-1) in - initial_underscores (max_non_primes_suffix_length suffs) - @ [Si_num (string_of_int (next (suffix_nums suffs) 5 (* 0 *)))] @ index_suffis suff0 - - - -(* find a suffix for a nontermroot that is distinct from all the -suffixes for that root that occur in an NtSet, and similarly for a -metavarroot *) - -(* let fresh_ntr_suffix : NtSet.t -> nontermroot -> suffix = *) -(* fun nts ntr0 -> *) -(* let suffs : suffix list = *) -(* NtSet.fold *) -(* (function (ntrp,(ntr,suff),pe) -> *) -(* function suffs' -> *) -(* if ntr=ntr0 then suff::suffs' else suffs') *) -(* nts *) -(* [] in *) -(* fresh_suffix suffs *) - -(* let fresh_mvr_suffix : MvSet.t -> metavarroot -> suffix = *) -(* fun mvs mvr0 -> *) -(* let suffs : suffix list = *) -(* MvSet.fold *) -(* (function (mvrp,(mvr,suff),pe) -> *) -(* function suffs' -> *) -(* if mvr=mvr0 then suff::suffs' else suffs') *) -(* mvs *) -(* [] in *) -(* fresh_suffix suffs *) - -let fresh_nt : nonterm list -> nonterm -> nonterm = - fun nts (ntr0,suff0) -> - let suffs : suffix list = - List.fold_right - (function (ntr,suff) -> - function suffs' -> - if ntr=ntr0 then suff::suffs' else suffs') - nts - [] in - let fresh_suff = fresh_suffix suffs suff0 in - (ntr0,fresh_suff) - -let fresh_mv : metavar list -> metavar -> metavar = - fun mvs (mvr0,suff0) -> - let suffs : suffix list = - List.fold_right - (function (mvr,suff) -> - function suffs' -> - if mvr=mvr0 then suff::suffs' else suffs') - mvs - [] in - let fresh_suff = fresh_suffix suffs suff0 in - (mvr0,fresh_suff) - - -(** ******************************** *) -(** ******************************** *) -(** nt and mv renaming *) -(** ******************************** *) -(** ******************************** *) - -(* to apply a simultaneous renaming to the nonterms (and roots), metavars (and roots) and prodnames of a system *) -(* NB: the renaming should be consistent in many ways... *) - -let rename_metavarroot (map_mvr,map_mv,map_ntr,map_nt,map_pn) mvr = - try List.assoc mvr map_mvr with Not_found -> mvr -let rename_metavar (map_mvr,map_mv,map_ntr,map_nt,map_pn) (mvr,suff) = - let mv = (mvr,suff) in - match map_mv with - | Some map_mv -> (try List.assoc mv map_mv with Not_found -> mv) - | None -> (try (List.assoc mvr map_mvr, suff) with Not_found -> mv) -let rename_nontermroot (map_mvr,map_mv,map_ntr,map_nt,map_pn) ntr = - try List.assoc ntr map_ntr with Not_found -> ntr -let rename_nonterm (map_mvr,map_mv,map_ntr,map_nt,map_pn) (ntr,suff) = - let nt = (ntr,suff) in - match map_nt with - | Some map_nt -> (try List.assoc nt map_nt with Not_found -> nt) - | None -> (try (List.assoc ntr map_ntr, suff) with Not_found -> nt) -let rename_prodname (map_mvr,map_mv,map_ntr,map_nt,map_pn) pn = - try List.assoc pn map_pn with Not_found -> pn - -let rec rename_nt_or_mv_root map ntmvr = match ntmvr with -| Mvr mvr -> Mvr (rename_metavarroot map mvr) -| Ntr ntr -> Ntr (rename_nontermroot map ntr) - -and rename_nt_or_mv map (ntmv,suff) = - (rename_nt_or_mv_root map ntmv,suff) - -and rename_metavardefn map mvd = - { mvd_name = rename_metavarroot map mvd.mvd_name; - mvd_names = List.map (function mvr,homs -> rename_metavarroot map mvr,homs) mvd.mvd_names; - mvd_rep = mvd.mvd_rep; - mvd_indexvar = mvd.mvd_indexvar; - mvd_locally_nameless = mvd.mvd_locally_nameless; - mvd_phantom = mvd.mvd_phantom; - mvd_loc = mvd.mvd_loc } - -and rename_suffix map suff = List.map (rename_suffix_item map) suff - -and rename_suffix_item map suffi = match suffi with -| Si_var (suffv,n) -> Si_var(rename_metavarroot map suffv,n) -| _ -> suffi - -and rename_bound map b = match b with -| Bound_dotform bd -> Bound_dotform { bd with - bd_lower = rename_suffix_item map bd.bd_lower; - bd_upper = rename_suffix_item map bd.bd_upper } -| Bound_comp bc -> Bound_comp { (* bc with *) - bc_variable = rename_metavarroot map bc.bc_variable} -| Bound_comp_u bcu -> Bound_comp_u { (* bcu with *) - bcu_variable = rename_metavarroot map bcu.bcu_variable; - bcu_upper = rename_suffix_item map bcu.bcu_upper } -| Bound_comp_lu bclu -> Bound_comp_lu { bclu with - bclu_variable = rename_metavarroot map bclu.bclu_variable; - bclu_lower = rename_suffix_item map bclu.bclu_lower; - bclu_upper = rename_suffix_item map bclu.bclu_upper } - -and rename_bindspec map bs = match bs with -| Bind(mse,nt)->Bind(rename_mse map mse,rename_nonterm map nt) -| AuxFnDef(auxfn,mse)->AuxFnDef(auxfn, rename_mse map mse) -| NamesEqual(mse,mse')->NamesEqual(rename_mse map mse,rename_mse map mse') -| NamesDistinct(mse,mse')->NamesDistinct(rename_mse map mse,rename_mse map mse') -| AllNamesDistinct(mse)->AllNamesDistinct(rename_mse map mse) - -and rename_mse map mse = match mse with -| MetaVarExp(mv)->MetaVarExp(rename_metavar map mv) -| NonTermExp(nt)->NonTermExp(rename_nonterm map nt) -| MetaVarListExp(mv,b)->MetaVarListExp(rename_metavar map mv,rename_bound map b) -| NonTermListExp(nt,b)->NonTermListExp(rename_nonterm map nt,rename_bound map b) -| Aux(f,nt)->Aux(f,rename_nonterm map nt) -| AuxList(f,nt,b)->AuxList(f,rename_nonterm map nt,rename_bound map b) -| Union(mse,mse')->Union(rename_mse map mse,rename_mse map mse') -| Empty->Empty - -and rename_auxfn_type map (ntrs,ntmvr) = List.map (rename_nontermroot map) ntrs,rename_nt_or_mv_root map ntmvr - -and rename_element map e = match e with -| Lang_nonterm(ntr,nt)->Lang_nonterm(rename_nontermroot map ntr,rename_nonterm map nt) -| Lang_metavar(mvr,mv)->Lang_metavar(rename_metavarroot map mvr,rename_metavar map mv) -| Lang_terminal(tm)->Lang_terminal(tm) -| Lang_option(es)->Lang_option(List.map (rename_element map) es) -| Lang_sugaroption(tm)->Lang_sugaroption(tm) -| Lang_list(elb)->Lang_list(rename_element_list_body map elb) - -and rename_element_list_body map elb = - { elb_boundo = (match elb.elb_boundo with None->None | Some b -> Some (rename_bound map b)); - elb_tmo = elb.elb_tmo; - elb_es = List.map (rename_element map) elb.elb_es } - -and rename_prod map p = - { p with - prod_name = rename_prodname map p.prod_name; - prod_es = List.map (rename_element map) p.prod_es; - prod_bs = List.map (rename_bindspec map) p.prod_bs; } - -and rename_rule map r = - { r with - rule_ntr_name = rename_nontermroot map r.rule_ntr_name; - rule_ntr_names = List.map (function ntr,homs -> rename_nontermroot map ntr,homs) r.rule_ntr_names; - rule_ps = List.map (rename_prod map) r.rule_ps } - -and rename_subrule map sr = - { sr with - sr_lower = rename_nontermroot map sr.sr_lower; - sr_upper = rename_nontermroot map sr.sr_upper; - sr_top = rename_nontermroot map sr.sr_top } - -and rename_proper_subntr_data map psd = - List.map (function ntr,ntrs -> (rename_nontermroot map ntr,List.map (rename_nontermroot map) ntrs)) psd - -and rename_subrule_graph map sg = - List.map (function ntr,ntr' -> (rename_nontermroot map ntr,rename_nontermroot map ntr')) sg - -and rename_subrule_pn_promotion map spp = - List.map (function ntr,(ntr',pps) -> (rename_nontermroot map ntr,(rename_nontermroot map ntr',List.map (function pn,pn'->rename_prodname map pn,rename_prodname map pn') pps))) spp - -and rename_subrule_data map srd = - {srd_proper_subntr_data = rename_proper_subntr_data map srd.srd_proper_subntr_data; - srd_subrule_graph = rename_subrule_graph map srd.srd_subrule_graph; - srd_subrule_pn_promotion = rename_subrule_pn_promotion map srd.srd_subrule_pn_promotion } - -and rename_contextrule map cr = - { cr with - cr_ntr = rename_nontermroot map cr.cr_ntr; - cr_target = rename_nontermroot map cr.cr_target; - cr_hole = rename_nontermroot map cr.cr_hole } - -and rename_subst map subst = - { subst with - sb_this = rename_nontermroot map subst.sb_this; - sb_that = rename_nt_or_mv_root map subst.sb_that; } - -and rename_freevar map fv = - { fv with - fv_that = rename_nt_or_mv_root map fv.fv_that; } - -and rename_parsing_annotations map pas = - { pa_data = List.map (fun (ntr1,pa_type,ntr2)-> - (rename_nontermroot map ntr1,pa_type,rename_nontermroot map ntr2)) pas.pa_data } - -and rename_dependencies map xddep = - { xd_dep_ts = List.map (List.map (rename_nt_or_mv_root map)) xddep.xd_dep_ts; - xd_dep_graph = List.map (function ntmvr,ntmvrs -> rename_nt_or_mv_root map ntmvr, List.map (rename_nt_or_mv_root map) ntmvrs) xddep.xd_dep_graph; - xd_dep_graph_nontran = List.map (function ntmvr,ntmvrs -> rename_nt_or_mv_root map ntmvr, List.map (rename_nt_or_mv_root map) ntmvrs) xddep.xd_dep_graph; } - -and rename_syntaxdefn map xd = - { xd_mds = List.map (rename_metavardefn map) xd.xd_mds; - xd_rs = List.map (rename_rule map) xd.xd_rs; - xd_dep = List.map (function be,xddep -> (be, rename_dependencies map xddep)) xd.xd_dep; - xd_srs = List.map (rename_subrule map) xd.xd_srs; - xd_srd = rename_subrule_data map xd.xd_srd; - xd_crs = List.map (rename_contextrule map) xd.xd_crs; - xd_axs = List.map (function f,ftype -> (f,rename_auxfn_type map ftype)) xd.xd_axs; - xd_sbs = List.map (rename_subst map) xd.xd_sbs; - xd_fvs = List.map (rename_freevar map) xd.xd_fvs; - xd_embed_preamble = xd.xd_embed_preamble; - (* xd_embed_postamble = xd.xd_embed_postamble; *) - xd_embed = xd.xd_embed; - xd_isa_imports = xd.xd_isa_imports; - xd_pas = rename_parsing_annotations map xd.xd_pas; -} - -and rename_defnclass map dc = - { dc with dc_defns = List.map (rename_defn map) dc.dc_defns } - -and rename_defn map d = - { d with -(* TODO: do we need to rename d_names? d_name = rename_nontermroot d.d_name *) - d_rules = List.map (rename_processed_semiraw_rule map) d.d_rules } - -and rename_drule map dr = - { dr with - drule_premises = List.map (fun (hn,st) -> (hn,rename_symterm map st)) dr.drule_premises; - drule_conclusion = rename_symterm map dr.drule_conclusion; } - -and rename_processed_semiraw_rule map psr = - match psr with - | PSR_Rule dr -> PSR_Rule (rename_drule map dr) - | PSR_Defncom es -> psr - -and rename_funclause map fc = - { fc with - fc_lhs = rename_symterm map fc.fc_lhs; - fc_rhs = rename_symterm map fc.fc_rhs; } - -and rename_fundefn map fd = - { fd with - fd_clauses = List.map (rename_funclause map) fd.fd_clauses } - -and rename_fundefnclass map fdc = - { fdc with - fdc_fundefns = List.map (rename_fundefn map) fdc.fdc_fundefns } - -and rename_fun_or_reln_defnclass map frdc = - match frdc with - | FDC fdc -> FDC (rename_fundefnclass map fdc) - | RDC dc -> RDC (rename_defnclass map dc) - -and rename_relationsdefn map rd = - List.map (rename_fun_or_reln_defnclass map) rd - -and rename_structure_entry map stre = - match stre with - | Struct_md mvr -> Struct_md (rename_metavarroot map mvr) - | Struct_rs ntrs -> Struct_rs (List.map (rename_nontermroot map) ntrs) - | Struct_srs xs -> - Struct_srs (List.map - (fun (ntr1,ntr2) -> - (rename_nontermroot map ntr1, - rename_nontermroot map ntr2)) xs) - | Struct_crs xs -> - Struct_crs (List.map - (fun (ntr1,ntr2,ntr3) -> - (rename_nontermroot map ntr1, - rename_nontermroot map ntr2, - rename_nontermroot map ntr3)) xs) - | Struct_axs f -> Struct_axs f - | Struct_sbs xs -> Struct_sbs xs - | Struct_fvs xs -> Struct_fvs xs - | Struct_embed embeds -> Struct_embed embeds - | Struct_fun_or_defnclass dcns -> Struct_fun_or_defnclass dcns - -and rename_structure map str = - List.map (fun (fn,stre) -> (fn, rename_structure_entry map stre)) str - -and rename_systemdefn map sd = - { syntax = rename_syntaxdefn map sd.syntax; - relations = rename_relationsdefn map sd.relations; - structure = rename_structure map sd.structure; - sources = sd.sources } - -and rename_symterm map st = - match st with - | St_node(l,stnb)->St_node(l,rename_symterm_node_body map stnb) - | St_nonterm(l,ntrp,nt) -> St_nonterm(l,rename_nontermroot map ntrp,rename_nonterm map nt) - | St_nontermsub(l,ntrpl,ntrpt,nt) -> St_nontermsub(l,rename_nontermroot map ntrpl,rename_nontermroot map ntrpt,rename_nonterm map nt) - | St_uninterpreted(l,s) -> st - -and rename_symterm_node_body map stnb = - { stnb with st_es = List.map (rename_symterm_element map) stnb.st_es } - -and rename_symterm_element map ste = - match ste with - | Ste_st(l,st) -> Ste_st(l,rename_symterm map st) - | Ste_metavar(l,mvrp,mv) -> Ste_metavar(l,rename_metavarroot map mvrp,rename_metavar map mv) - | Ste_var(l,mvr,var) -> Ste_var(l,rename_metavarroot map mvr,var) - | Ste_list(l,stlis) -> Ste_list(l,List.map (rename_symterm_list_item map) stlis) - -and rename_symterm_list_item map stli = - match stli with - | Stli_single(l,stes) -> Stli_single(l,List.map (rename_symterm_element map) stes) - | Stli_listform(stlb) -> Stli_listform(rename_symterm_list_body map stlb) - -and rename_symterm_list_body map stlb = - { stlb with - stl_bound = rename_bound map stlb.stl_bound; - stl_elements = List.map (rename_symterm_element map) stlb.stl_elements } - - -(** ******************************** *) -(** ******************************** *) -(** avoidance of primary ntrs etc *) -(** ******************************** *) -(** ******************************** *) - -(* build renamings for metavars and nonterms, to avoid non-suffixed primary ones, *) -(* report an error if there is a primary indexvar *) - -let avoid xd mvs0 nts0 = - - (* first for metavariables *) - - (* remove duplicates, as we didn't bother before *) - let mvs1 = remove_duplicates mvs0 in - - (* consider only mvs with primary mvrs, and raise an error *) - (* if there is one with a primary indexvar, as they cannot be freshened *) - let mvs2 = option_map - (function ((mvr,suff) as mv) -> - let mvd = mvd_of_mvr_nonprimary xd mvr in - match mvd.mvd_indexvar with - | true -> - if mvr=mvd.mvd_name then - warning ("warning: indexvar \""^mvr^"\" is primary so may give a name-clash\n") ; - None - | false -> - if mvr=mvd.mvd_name then Some mv else None - ) mvs1 in - - (* for each such, if there is one with an empty suffix, generate a new suffix that is *) - (* fresh amongst all the suffixes of mvs with the same root *) - let mv_map = option_map - (function ((mvr,suff) as mv) -> - match suff with - | [] -> - let suffs = - option_map - (function (mvr',suff') -> if mvr'=mvr then Some suff' else None) - mvs2 in - let suff'' = fresh_suffix suffs suff in - let mv'' = (mvr,suff'') in - Some (mv,mv'') - | _ -> None) - mvs2 in - - (* and now for nonterminals *) - (* remove duplicates, as we didn't bother before *) - let nts1 = remove_duplicates nts0 in - - (* consider only nts with primary ntrs *) - let primary_ntrs = List.map (function r -> r.rule_ntr_name) xd.xd_rs in - let nts2 = List.filter - (function (ntr,suff) -> List.mem ntr primary_ntrs) nts1 in - - (* for each such, if there is one with an empty suffix, generate a new suffix that is *) - (* fresh amongst all the suffixes of nts with the same root *) - let nt_map = option_map - (function ((ntr,suff) as nt) -> - match suff with - | [] -> - let suffs = option_map (function (ntr',suff') -> if ntr'=ntr then Some suff' else None) nts2 in - let suff'' = fresh_suffix suffs suff in - let nt'' = (ntr,suff'') in - Some (nt,nt'') - | _ -> None) - nts2 in - - ([],Some mv_map,[],Some nt_map,[]) - -(* alternatively...*) -(* build renamings for metavars and nonterms, to rename them all *) -(* (except indexvars) to freshly-renamed secondary ones. *) -(* report an error if there is a primary indexvar *) -(* report an error if there is a (non-index) metavar or nonterm without a secondary name *) - -let secondary_mvr xd mvr = - let mvd = mvd_of_mvr_nonprimary xd mvr in - (match mvd.mvd_names with - | [] -> int_error "secondary_mvr, empty list of rule names" - | [_] ->mvr - | mvrp::mvrq::_ -> fst mvrq) - -let secondary_ntr xd ntr = - let r = rule_of_ntr_nonprimary xd ntr in - (match r.rule_ntr_names with - | [] -> int_error "secondary_ntr, empty list of rule names" - | [_] ->ntr - | ntrp::ntrq::_ -> fst ntrq) - -let secondary_ntmvr xd ntmvr = - match ntmvr with - | Ntr ntr -> Ntr (secondary_ntr xd ntr) - | Mvr mvr -> Mvr (secondary_mvr xd mvr) - -let secondaryify xd mvs0 nts0 = - - (* first for metavariables *) - (* remove duplicates, as we didn't bother before *) - let mvs1 = remove_duplicates mvs0 in - - (* consider only nonindex mvs, and raise an error *) - (* if there is one with a primary indexvar, as they cannot be freshened *) - let mvs2 = option_map - (function ((mvr,suff) as mv) -> - let mvd = mvd_of_mvr_nonprimary xd mvr in - match mvd.mvd_indexvar with - | true -> - if mvr=mvd.mvd_name then - warning ("indexvar \""^mvr^"\" is primary so may give a name-clash\n") ; - Some mv - | false -> - Some mv - ) mvs1 in - - let rec mv_map acc mvs = match mvs with - | [] -> acc - | ((mvr,suff) as mv)::mvs' -> - let mvr' = secondary_mvr xd mvr in - (*if mvr'=mvr then error ("no secondary metavar root defined for \""^mvr^"\"");*) - let suffs = option_map (function (_,(mvr'',suff'')) -> if mvr''=mvr' then Some suff'' else None) acc in - let suff'' = fresh_suffix suffs suff in - let mv'' = (mvr',suff'') in - mv_map ((mv,mv'')::acc) mvs' in - - (* and now for nonterminals *) - let nts2 = remove_duplicates nts0 in - - let rec nt_map acc nts = match nts with - | [] -> acc - | ((ntr,suff) as nt)::nts' -> - let ntr' = secondary_ntr xd ntr in - (*if ntr'=ntr then error ("no secondary nonterminal root defined for \""^ntr^"\"");*) - let suffs = option_map (function (_,(ntr'',suff'')) -> if ntr''=ntr' then Some suff'' else None) acc in - let suff'' = fresh_suffix suffs suff in - let nt'' = (ntr',suff'') in - nt_map ((nt,nt'')::acc) nts' in - - ( [], Some(mv_map [] mvs2), [], Some(nt_map [] nts2), [] ) - -(* apply suitable renamings across a systemdefn *) - -(* this renames the syntaxdefn and the relations. Such renaming *) -(* should have no effect on the parsing of symterms, so it doesn't *) -(* matter whether we parse (in embed sections) with respect to a *) -(* renamed or original syntaxdefn. *) - -(* We don't rename any embedded symterms within embed sections. Should we? Perhaps not.*) - -(* let avoid = secondaryify *) - -let rec avoid_primaries_prod xd s p = - let mvs = - List.map (function(mvrp,mv,pe)->mv) (mvs_list_used_in_es p.prod_es) in - let nts = - List.map (function(ntrp,nt,pe)->nt) (nts_list_used_in_es p.prod_es) in - let map = if s then secondaryify xd mvs nts else avoid xd mvs nts in - { p with - prod_es = List.map (rename_element map) p.prod_es; - prod_bs = List.map (rename_bindspec map) p.prod_bs; } - -and avoid_primaries_rule xd s r = - { r with - rule_ps = List.map (avoid_primaries_prod xd s) r.rule_ps } - -and avoid_primaries_syntaxdefn xd s xd = - { xd with - xd_rs = List.map (avoid_primaries_rule xd s) xd.xd_rs; } - -and avoid_primaries_defnclass xd s dc = - { dc with dc_defns = List.map (avoid_primaries_defn xd s) dc.dc_defns } - -and avoid_primaries_defn xd s d = - {d with d_rules = List.map (avoid_primaries_processed_semiraw_rule xd s) d.d_rules } - -and avoid_primaries_drule xd s dr = - let sts = dr.drule_conclusion :: (List.map snd dr.drule_premises) in - let nts = nts_of_symterms sts in - let mvs = mvs_of_symterms sts in - let map = if s then secondaryify xd mvs nts else avoid xd mvs nts in - {dr with - drule_premises = List.map (fun (hn,st) -> (hn,rename_symterm map st)) dr.drule_premises; - drule_conclusion = rename_symterm map dr.drule_conclusion;} - -and avoid_primaries_processed_semiraw_rule xd s psr = - match psr with - | PSR_Rule dr -> PSR_Rule (avoid_primaries_drule xd s dr) - | PSR_Defncom es -> psr - -and avoid_primaries_funclause xd s fc = - let sts = [fc.fc_lhs;fc.fc_rhs] in - let nts = nts_of_symterms sts in - let mvs = mvs_of_symterms sts in - let map = if s then secondaryify xd mvs nts else avoid xd mvs nts in - { fc with - fc_lhs = rename_symterm map fc.fc_lhs; - fc_rhs = rename_symterm map fc.fc_rhs; } - -and avoid_primaries_fundefn xd s fd = - { fd with fd_clauses = List.map (avoid_primaries_funclause xd s) fd.fd_clauses } - -and avoid_primaries_fundefnclass xd s fdc = - { fdc with - fdc_fundefns = List.map (avoid_primaries_fundefn xd s) fdc.fdc_fundefns } - -and avoid_primaries_fun_or_reln_defnclass xd s fdrc = - match fdrc with - | FDC fdc -> FDC (avoid_primaries_fundefnclass xd s fdc) - | RDC dc -> RDC (avoid_primaries_defnclass xd s dc) - -and avoid_primaries_relationsdefn xd s rd = - List.map (avoid_primaries_fun_or_reln_defnclass xd s) rd - -and avoid_structure_entry xd s stre = - stre (* FZ BROKEN BROKEN BROKEN *) - -and avoid_primaries_structure xd s str = - List.map (avoid_structure_entry xd s) str - -and avoid_primaries_systemdefn s sd = - { syntax = avoid_primaries_syntaxdefn sd.syntax s sd.syntax; - relations = avoid_primaries_relationsdefn sd.syntax s sd.relations; - structure = avoid_primaries_structure sd.syntax s sd.structure; - sources = sd.sources } - - -(** ******************************** *) -(** ******************************** *) -(** caml renaming *) -(** ******************************** *) -(** ******************************** *) - -(* build renamings for metavars and nonterms, to map nonterminals and -metavariables (and their roots) to lowercase, and production names to -uppercase *) - -let rec detect_conflicts l = - match l with - | [] -> (false,"") - | (_,x)::tl -> - if List.mem x (List.map (fun x -> snd x) tl) - then (true,x) - else detect_conflicts tl - -let capitalize_prodnames sd = - let rule_list = sd.syntax.xd_rs in - let prod_list = List.flatten (List.map (fun r -> r.rule_ps) rule_list) in - let prod_name_list = List.map (fun p -> p.prod_name) prod_list in - let map_prod_names = List.map (fun pn -> (pn,String.capitalize pn)) prod_name_list in - let (conflict,err_msg) = detect_conflicts map_prod_names in - if conflict - then error ("Renaming of production name \""^err_msg^"\" generates a conflict\n") - else map_prod_names - -let uncapitalize_prodnames sd = - let rule_list = sd.syntax.xd_rs in - let prod_list = List.flatten (List.map (fun r -> r.rule_ps) rule_list) in - let prod_name_list = List.map (fun p -> p.prod_name) prod_list in - let map_prod_names = List.map (fun pn -> (pn,String.uncapitalize pn)) prod_name_list in - let (conflict,err_msg) = detect_conflicts map_prod_names in - if conflict - then error ("Renaming of production name \""^err_msg^"\" generates a conflict\n") - else map_prod_names - -let uncapitalize_primary_nontermroots sd = - let rule_list = sd.syntax.xd_rs in - let nontermroots_list = List.map (fun r -> r.rule_ntr_name) rule_list in - let map_nontermroots = List.map (fun ntr -> (ntr,String.uncapitalize ntr)) nontermroots_list in - let (conflict,err_msg) = detect_conflicts map_nontermroots in - if conflict - then error ("Renaming of primary nontermroot \""^err_msg^"\" generates a conflict\n") - else map_nontermroots - -let uncapitalize_primary_metavarroots sd = - let metavardefn_list = sd.syntax.xd_mds in - let metavarroots_list = List.map (fun mvd -> mvd.mvd_name) metavardefn_list in - let map_metavarroots = List.map (fun mvr -> (mvr,String.uncapitalize mvr)) metavarroots_list in - let (conflict,err_msg) = detect_conflicts map_metavarroots in - if conflict - then error ("Renaming of primary metavar \""^err_msg^"\" generates a conflict\n") - else map_metavarroots - -let caml_rename sd = - let map_prod_names = capitalize_prodnames sd in - let map_nontermroots = uncapitalize_primary_nontermroots sd in - let map_metavarroots = uncapitalize_primary_metavarroots sd in - rename_systemdefn (map_metavarroots,None,map_nontermroots,None,map_prod_names) sd - -let twelf_rename sd = - let map_prod_names = uncapitalize_prodnames sd in - let map_nontermroots = uncapitalize_primary_nontermroots sd in - let map_metavarroots = uncapitalize_primary_metavarroots sd in - rename_systemdefn (map_metavarroots,None,map_nontermroots,None,map_prod_names) sd - -let rec capitalize_prodnames_in_symterm st = - match st with - | St_node (l,stnb) -> St_node (l,capitalize_prodnames_in_symterm_node_body stnb) - | _ -> st -and capitalize_prodnames_in_symterm_node_body stnb = - { st_rule_ntr_name = stnb.st_rule_ntr_name; - st_prod_name = String.capitalize stnb.st_prod_name; - st_es = List.map capitalize_prodnames_in_symterm_element stnb.st_es; - st_loc = stnb.st_loc } -and capitalize_prodnames_in_symterm_element ste = - match ste with - | Ste_st (l,st) -> Ste_st (l,capitalize_prodnames_in_symterm st) - | Ste_list (l,stlis) -> Ste_list (l,List.map capitalize_prodnames_in_symterm_list_item stlis) - | _ -> ste -and capitalize_prodnames_in_symterm_list_item stli = - match stli with - | Stli_single (l,stes) -> Stli_single (l,List.map capitalize_prodnames_in_symterm_element stes) - | Stli_listform stlb -> Stli_listform (capitalize_prodnames_in_symterm_list_body stlb) -and capitalize_prodnames_in_symterm_list_body stlb = - { stl_bound = stlb.stl_bound ; - stl_elements = List.map capitalize_prodnames_in_symterm_element stlb.stl_elements; - stl_loc = stlb.stl_loc } - -(** ******************************** *) -(** ******************************** *) -(** ******************************** *) -(** ******************************** *) - -(* some useful conversions *) - -let pp_true m in_prop = - match m with - | Isa _ -> "True" - | Coq co -> - if co.coq_expand_lists || in_prop - then "True" - else "true" - | Hol _ -> "T" - | Caml _ -> "true" - | Lem _ -> "true" - | Ascii _ | Tex _ | Twf _ | Lex _ | Menhir _ -> errorm m "pp_true" - -let pp_false m in_prop = - match m with - | Isa _ -> "False" - | Coq co -> - if co.coq_expand_lists || in_prop - then "False" - else "false" - | Hol _ -> "F" - | Caml _ -> "false" - | Lem _ -> "false" - | Ascii _ | Tex _ | Twf _ | Lex _ | Menhir _ -> errorm m "pp_false" - -let pp_and m in_prop = - match m with - | Isa _ -> " & " - | Caml _ -> " && " - | Lem _ -> " && " - | Coq co -> - if co.coq_expand_lists || in_prop - then " /\\ " - else " && " - | Hol _ -> " /\\ " - | Ascii _ | Tex _ | Twf _ | Lex _ | Menhir _ -> errorm m "pp_and" - -let pp_or m in_prop = - match m with - | Isa _ -> " | " - | Coq co -> - if co.coq_expand_lists || in_prop - then " \\/ " - else " || " - | Hol _ -> " \\/ " - | Caml _ -> " || " - | Lem _ -> " || " - | Ascii _ | Tex _ | Twf _ | Lex _ | Menhir _ -> errorm m "pp_or" - -(* coq/twelf support *) -let fresh_nl = - let counter = ref 0 in - fun () -> counter := !counter+1; "NL"^(string_of_int !counter) - -let insert_append m l = - match m with - | Coq _ -> - ( match l with - | [] -> "nil" - | x::[] -> "("^x^")" - | _ -> - let rec last l = - ( match l with - | [] -> errorm m "never happen in insert_append" - | x::[] -> errorm m "never happen in insert_append" - | x::y::[] -> ([x],y) - | h::t -> let (x,y) = last t in (h::x,y) ) in - let els,el_last = last l in - List.fold_right (fun x s -> "(app "^x^" "^s^")") els el_last ) - | Twf _ -> - ( match l with - | [] -> "natlist/nil" - | x::[] -> x - | _ -> - let result_nl = List.map (fun x -> fresh_nl()) (List.tl l) in - let list_nl = List.map (fun x -> fresh_nl()) l in - let final_append = - let rec internal current_result result_nl list_nl = - ( match result_nl with - | [] -> " <- append/natlist " ^ String.concat " " list_nl ^ " " ^ current_result - | r::rt -> - " <- append/natlist " ^ (List.hd list_nl) ^ " " ^ current_result ^ " " ^ (List.hd result_nl) - ^ (internal (List.hd result_nl) (List.tl result_nl) (List.tl list_nl)) ) - - in internal (List.hd result_nl) (List.tl result_nl) list_nl in - - List.hd (List.rev result_nl) ^ " <- " - ^ ( String.concat " <- " - (List.map2 (fun s nl -> s ^ " " ^ nl) l list_nl) ) - ^ final_append ) - | Caml _ | Tex _ | Ascii _ | Hol _ | Lem _ | Isa _ | Lex _ | Menhir _ -> raise ThisCannotHappen - -(* skip a nonterm or a metavar in a list of elements *) -let rec skip_nt_mv (es:element list) = - match es with - | [] -> [] - | (Lang_nonterm (_,_))::tl | (Lang_metavar (_,_))::tl -> tl - | _::tl -> skip_nt_mv tl - -let rec head_nt_mv (es:element list) = - match es with - | [] -> raise Not_found - | (Lang_nonterm (ntr,nt))::tl -> Lang_nonterm (ntr,nt) - | (Lang_metavar (mvr,mv))::tl -> Lang_metavar (mvr,mv) - | _::tl -> head_nt_mv tl - -(* analyze the productions and decide if it relies on polymorphic lists or not - isa output *) -let compute_isa_list_name_flag r = - let prods = List.filter (fun p -> not (p.prod_meta)) r.rule_ps in - let ess = List.concat (List.map (fun p -> p.prod_es) prods) in - let rec scan ess = - match ess with - | [] -> false - | x::xs -> - ( match x with - | Lang_list elb -> (scan_int elb.elb_es xs) || (scan xs) - | _ -> scan xs ) - and scan_int x xs = - match xs with - | [] -> false - | (Lang_list elb)::ys -> - if x = elb.elb_es then true - else scan_int x ys - | _::ys -> scan_int x ys - in - scan ess - -let collapse_embed_spec_el_list es = - - let rec collapse_embed_spec_el_list1 acc es - = match es with - | (Embed_string(l,s))::es' -> collapse_embed_spec_el_list2 acc (l,s) es' - | (Embed_inner(_,_) as ese)::es' -> collapse_embed_spec_el_list1 (ese::acc) es' - | [] -> acc - and collapse_embed_spec_el_list2 acc (l0,s0) es - = match es with - | (Embed_string(l,s))::es' -> collapse_embed_spec_el_list2 acc (dummy_loc,s0^s) es' - | (Embed_inner(_,_) as ese)::es' -> collapse_embed_spec_el_list1 (ese::Embed_string(l0,s0)::acc) es' - | [] -> Embed_string(l0,s0)::acc - in - List.rev (collapse_embed_spec_el_list1 [] es) - -let collapse_embed (l,hn,es) = (l,hn,collapse_embed_spec_el_list es) - -let rec pp_tex_escape s = - String.concat "" - (List.map - (fun c -> - if c='_' then "\\_" else - if c='%' then "\\%" else - if c='$' then "\\$" else - if c='#' then "\\#" else - if c='?' then "\\mbox{?}" else - if c='^' then "\\mbox{$\\uparrow$}" else - if c='{' then "\\{" else - if c='}' then "\\}" else - if c='&' then "\\&" else - if c='\\' then "\\mbox{$\\backslash{}$}" else - if c='|' then "\\mbox{$\\mid$}" else - String.make 1 c) - (char_list_of_string s)) - -let rec pp_tex_escape_alltt s = - String.concat "" - (List.map - (fun c -> -(* if c='_' then "\\_" else *) - if c='{' then "\\mylb{}" else - if c='}' then "\\myrb{}" else - if c='\\' then "\\mybackslash{}" else - String.make 1 c) - (char_list_of_string s)) - -(* file name manipulation *) - -let isa_filename_check s = - match string_remove_suffix s ".thy" with - | None -> error ("Isabelle filenames must end with .thy\n") - | Some s1 -> s1 - -let hol_filename_check s = - match string_remove_suffix s "Script.sml" with - | None -> failwith ("HOL filenames must end with Script.sml\n") - | Some s1 -> s1 - -let filename_check m s = - match m with - | Hol _ -> hol_filename_check s - | Isa _ -> isa_filename_check s - | _ -> s - -(* locally nameless *) - -let is_lngen m = - let co = match m with Coq co -> co - | _ -> errorm m "ln_transform_syntaxdefn of non-coq target" in - co.coq_lngen - -let require_locally_nameless xd = - List.exists - ( fun mvd -> - try let _ = List.assoc "repr-locally-nameless" mvd.mvd_rep in true - with Not_found -> false ) - xd.xd_mds - -(* nominal *) - -let is_nominal_atom m xd mvd = - List.exists - (fun (hn,_) -> String.compare hn "repr-nominal" = 0) - mvd.mvd_rep - -let prod_require_nominal m xd p = - (* true if p contains binders with nominal repr *) - List.exists - ( fun bs -> - match bs with - | Bind (MetaVarExp (mvr,_), nt) -> - is_nominal_atom m xd (mvd_of_mvr xd (primary_mvr_of_mvr xd mvr) ) - | _ -> false ) - p.prod_bs - -let rule_require_nominal m xd r = - List.exists (prod_require_nominal m xd) r.rule_ps - -let rules_require_nominal m xd rs = - List.exists (rule_require_nominal m xd) rs - -let require_nominal xd = - List.exists - ( fun mvd -> - try let _ = List.assoc "repr-nominal" mvd.mvd_rep in true - with Not_found -> false ) - xd.xd_mds - -(* debug code for the structure data type *) - -let dump_structure_entry (l,stre) = - ( match l with - | [] -> "" - | h::_ -> (Location.pp_t h)^" : " ) - ^ - ( match stre with - | Struct_md mvr -> "metavar def: "^mvr - | Struct_rs ntrs -> "rule def: "^(String.concat " " ntrs) - | Struct_srs xs -> "subrule def: "^ - (String.concat " " - (List.map (fun (ntr1,ntr2) -> "("^ntr1^","^ntr2^")") xs)) - | Struct_fvs xs -> "freevar def: "^ - (String.concat " " - (List.map (fun (name,ntr1,ntmvr2) -> "("^name^","^ntr1^","^(match ntmvr2 with Ntr s | Mvr s -> s)^")") xs)) - | Struct_sbs xs -> "substs def: "^ - (String.concat " " - (List.map (fun (name,ntr1,ntmvr2) -> "("^name^","^ntr1^","^(match ntmvr2 with Ntr s | Mvr s -> s)^")") xs)) - | Struct_axs xs -> "aux def: "^ - (String.concat " " xs) - | Struct_fun_or_defnclass s -> "fundefn_class def: "^s - | Struct_embed (_,h,_) -> "embed: "^h) - -let dump_structure str = - "*** dump structure ***\n"^ - (String.concat "\n" (List.map dump_structure_entry str)) - -let dump_structure_fn str = - "*** dump structure ***\n"^ - (String.concat "\n" (List.map (fun (fn,s) -> fn ^" : "^ (dump_structure_entry (dummy_loc,s))) str)) - - -(* reading a whole file in as a string *) - -let string_of_filename filename = - let ic = open_in filename in - let _ = set_binary_mode_in ic true in - let len = in_channel_length ic in - let buff = Buffer.create len in - Buffer.add_channel buff ic len; - Buffer.contents buff diff --git a/vendors/ott/src/bounds.ml b/vendors/ott/src/bounds.ml deleted file mode 100644 index 90ae2e61001c..000000000000 --- a/vendors/ott/src/bounds.ml +++ /dev/null @@ -1,353 +0,0 @@ -(**************************************************************************) -(* Ott *) -(* *) -(* Peter Sewell, Computer Laboratory, University of Cambridge *) -(* Francesco Zappa Nardelli, Moscova project, INRIA Rocquencourt *) -(* *) -(* Copyright 2005-2017 *) -(* *) -(* Redistribution and use in source and binary forms, with or without *) -(* modification, are permitted provided that the following conditions *) -(* are met: *) -(* 1. Redistributions of source code must retain the above copyright *) -(* notice, this list of conditions and the following disclaimer. *) -(* 2. Redistributions in binary form must reproduce the above copyright *) -(* notice, this list of conditions and the following disclaimer in the *) -(* documentation and/or other materials provided with the distribution. *) -(* 3. The names of the authors may not be used to endorse or promote *) -(* products derived from this software without specific prior written *) -(* permission. *) -(* *) -(* THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS *) -(* OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED *) -(* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE *) -(* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY *) -(* DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL *) -(* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE *) -(* GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS *) -(* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER *) -(* IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR *) -(* OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN *) -(* IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. *) -(**************************************************************************) - -exception NotImplementedYet;; - -open Types;; -open Location;; - -exception Bounds of string - - -(** ******************************** *) -(** bounds extraction *) -(** ******************************** *) - -(* let pp_plain_b (suffil,suffiu) = *) -(* "(" *) -(* ^ Grammar_pp.pp_plain_suffix_item suffil ^"," *) -(* ^ Grammar_pp.pp_plain_suffix_item suffiu *) -(* ^ ")" *) - -(*let sie_project = [Si_var ("_",0)] *) -let sie_project = [Si_punct "_"] -let sie_null = [Si_punct ""] - -(* given a bounds environment be and a suffix suff, return at most one bound *) -(* referenced in the suffix. fail if the suffix references >1 bound*) -let findbounds (be : bound list) (suff : suffix) : bound option - = let rec indices suff = - match suff with - | [] -> [] - | (Si_num _ | Si_punct _ | Si_var (_,_))::suff' -> indices suff' - | Si_index i :: suff' -> i :: indices suff' in - (*print_string (String.concat " " (List.map pp_plain_bound be) ^"\n");flush stdout;*) - match indices suff with - | [] -> None - | [i] -> (*print_string ("<<<< "^string_of_int i^" >>>>");flush stdout;*) - Some(List.nth be i) - | _ -> raise (Bounds "findbounds: multiple suffix indices in a suffix") - -(* collect all the nonterms/metavars in a symterm *) -(* (and their nontermsub-lower-and-top data if they have it), *) -(* together with their bounds and length constraints if they have them *) -let rec nt_or_mv_of_symterm (be : bound list) st -: ((nt_or_mv * subntr_data) * bound option ) list = - match st with - | St_node (_,stnb) -> nt_or_mv_of_symterm_node_body be stnb - | St_nonterm (_,_,(ntr,sf)) -> [ (((Ntr ntr),sf),None),findbounds be sf ] - | St_nontermsub (_,ntrl,ntrt,(ntr,sf)) -> [(((Ntr ntr),sf),Some(ntrl,ntrt(*ntru*))),findbounds be sf ] - | St_uninterpreted (_,_)-> [] -and nt_or_mv_of_symterm_element be ste = - match ste with - | Ste_st (_,st) -> nt_or_mv_of_symterm be st - | Ste_metavar (_,_,(mvr,sf)) -> [ (((Mvr mvr),sf),None),findbounds be sf ] - | Ste_var _ -> [] - | Ste_list (_,stlis) -> - List.concat (List.map (nt_or_mv_of_symterm_list_item be) stlis) -and nt_or_mv_of_symterm_list_item be stli = - match stli with - | Stli_single(_,stes) -> - List.concat (List.map (nt_or_mv_of_symterm_element be) stes) - | Stli_listform stlb -> - nt_or_mv_of_symterm_list_body be stlb -and nt_or_mv_of_symterm_node_body be stnb = - List.concat (List.map (nt_or_mv_of_symterm_element be) stnb.st_es) -and nt_or_mv_of_symterm_list_body be stlb = - let be' = stlb.stl_bound :: be in - List.concat (List.map (nt_or_mv_of_symterm_element be') stlb.stl_elements) - -let nt_or_mv_of_symterms sts = - List.concat (List.map (nt_or_mv_of_symterm []) sts) - - -(* check for each Bound_dotform bound that it occurs with only one length constraint. Return the bounds without duplicates *) -let check_length_consistency : - ((nt_or_mv* subntr_data) * bound option ) list -> bound list - = - function xys -> - let bounds = Auxl.remove_duplicates - (Auxl.option_map (function (_,bo)->bo) xys) in - let rec f acc bounds = - match bounds with - | [] -> acc - | ((Bound_dotform bd) as b)::bounds' -> - (try ( - let i=List.assoc (bd.bd_lower,bd.bd_upper) acc in - if i=bd.bd_length then f acc bounds' - else raise (Bounds ("bound "^Grammar_pp.pp_plain_bound b^" has inconsistent length constraints, \""^Grammar_pp.pp_plain_dots i ^"\" and \""^ Grammar_pp.pp_plain_dots bd.bd_length ^ "\""))) - with - Not_found -> f (((bd.bd_lower,bd.bd_upper),bd.bd_length)::acc) bounds' ) - | b::bounds' -> f acc bounds' in - ignore(f [] bounds); - bounds - - - -(* function xys -> *) -(* let rec f acc xys = *) -(* match xys with *) -(* | [] -> acc *) -(* | (x,None)::xys' -> f acc xys' *) -(* | (x,Some(b,i))::xys' -> *) -(* try ( *) -(* let i'=List.assoc b acc in *) -(* if i=i' then f acc xys' *) -(* else raise (Bounds ("bound "^Grammar_pp.pp_plain_bound b^" has multiple distinct length constraints, \""^Grammar_pp.pp_plain_dots i ^"\" and \""^ Grammar_pp.pp_plain_dots i' ^ "\""))) *) -(* with *) -(* Not_found -> f ((b,i)::acc) xys' in *) -(* f [] xys *) - - - -(* check for each nt_or_mv (and subntr data) that it doesn't appear with *) -(* multiple different bounds, and return a list without duplicates *) -let check_bounds_consistency : - ((nt_or_mv*subntr_data) * bound option) list -> - ((nt_or_mv*subntr_data) * bound option) list - = function xbos -> - let rec f acc xbos = - (match xbos with - | [] -> acc - | (x,bo)::xbos' -> - match (try(Some(List.assoc x acc)) with Not_found -> None) with - | None -> f ((x,bo)::acc) xbos' - | Some bo' -> - (if bo=bo' then f acc xbos' - else - raise (Bounds ("inconsistent bounds for "^Grammar_pp.pp_plain_nt_or_mv (fst x)^": "^Grammar_pp.pp_plain_bound_option bo ^" and "^Grammar_pp.pp_plain_bound_option bo' )))) in - f [] xbos - -(* split into those without a bound and those with one *) -let split_bounded : - ((nt_or_mv*subntr_data) * bound option) list -> ((nt_or_mv*subntr_data) list) * ((nt_or_mv*subntr_data) * bound) list - = function xbos -> - let rec f acc1 acc2 xbos = match xbos with - | [] -> (acc1,acc2) - | (x,None)::xbos' -> f (x::acc1) acc2 xbos' - | (x,Some b)::xbos' -> f acc1 ((x,b)::acc2) xbos' in - f [] [] xbos - - -(*invert, calculating, for each bound, the nt_or_mv that have that bound*) -let nt_or_mv_per_bound : - ((nt_or_mv*subntr_data) * bound ) list -> (bound * (nt_or_mv*subntr_data) list) list - = function xys -> - let rec f acc xys = - match xys with - | [] -> acc - | (x,y)::xys' -> - try - let xs0 = List.assoc y acc in - let acc0 = List.remove_assoc y acc in - f ((y,xs0@[x])::acc0) xys' - with - Not_found -> - f ((y,[x])::acc) xys' in - f [] xys - -let pp_plain_foo m xd x = - String.concat "\n " - (List.map - (function (bound,ntmvsns) -> - Grammar_pp.pp_plain_bound bound - ^ ": " - ^ String.concat "," - (List.map (function (ntmv,subntr_data)->Grammar_pp.pp_plain_nt_or_mv ntmv) ntmvsns)) - x) - ^ "\n" - -let pp_plain_bar m xd x = - String.concat "," - (List.map (function (ntmv,subntr_data)->Grammar_pp.pp_plain_nt_or_mv ntmv) x) - ^ "\n" - - - - -(* for an nt_or_mv with no bound, try to merge it with each of those *) -(* that do have bounds - eg to find xj in x1..xn *) -let rec merge_nobound : ((nt_or_mv*subntr_data) * bound) list -> (nt_or_mv*subntr_data) -> (nt_or_mv*subntr_data) * (suffix*suffix_item * bound) option = - function xbs -> function ((ntmvr,suff),subntr_data) -> - match xbs with - | [] -> ((ntmvr,suff),subntr_data),None - | (((ntmvr',suff'),subntr_data'),bound)::xbs' -> - if ntmvr=ntmvr' && subntr_data=subntr_data' then - try - let(pbo'',suff'')=Merge.merge_suffix_against_index 0 (suff,suff')in - let foo_b'' = - (match pbo'' with - | Some (suffi,suffi') -> suffi (* TODO: CHECK? *) - | None -> failwith "cannot happen") in - (((ntmvr,suff),subntr_data),Some(suff'',foo_b'',bound)) - with - Merge.Merge _ -> merge_nobound xbs' ((ntmvr,suff),subntr_data) - else - merge_nobound xbs' ((ntmvr,suff),subntr_data) - - -(* de1 gives, for each bound (eg (1,m)) *) -(* - the list of ntmv (with subntr data) for that bound, *) -(* eg [ l[0],None; p[0],None; s[0],None ] *) -(* - a string for the compound isa/coq/hol identifier, *) -(* eg "l_p_s_list" *) -(* - a string for the isa/coq pattern to deconstruct an element, *) -(* eg "(l_,p_,s_)" *) -(* - a string for the coq type of the pattern *) -(* - a string for the hol type of the compound identifier *) -(* todo: perhaps refactor. The second two components are derived from the first, so *) -(* we could do that on-the-fly in grammar_pp *) - -let dotenv1 m xd x : dotenv1 = - List.map - (function (bound,ntmvsns) -> - let pp1 = - (List.map - (function (ntmv,subntr_data) -> - Grammar_pp.pp_nt_or_mv_with_sie m xd sie_project ntmv) ntmvsns) in - let pp1_null = - (List.map - (function (ntmv,subntr_data) -> - Grammar_pp.pp_nt_or_mv_with_sie m xd sie_null ntmv) ntmvsns) in -(* (\* horrible hack to get a Hol and Coq pp_mode - here our "clean" passing of mode-specific parameters as arguments to the mode constructor hurts us *\) *) - -(* let m_hol = Hol { pph_theory_name="dummy"; hol_library = None } in *) -(* let m_coq = Coq { coq_expand_lists = false ; (\* ARGH - DOES THIS MATTER HERE, WHERE ALL WE'RE DOING IS PRINTING A TYPE? *\) *) -(* coq_quantified_vars_from_de = ref []; *) -(* coq_non_local_hyp_defn = ref ""; *) -(* coq_non_local_hyp_defn_vars = ref []; *) -(* coq_list_types = ref []; *) -(* coq_list_aux_funcs = Some (ref ""); *) -(* coq_list_aux_defns = { defined = ref []; newly_defined = ref [] }; *) -(* coq_library = Some (ref ("",[])); *) -(* coq_locally_nameless = ref false } in *) - let coq_type_pp1 = (match m with - | Coq _ -> - (List.map (function ((ntmv_root,_),subntr_data) -> - (Grammar_pp.pp_nt_or_mv_root_ty m xd - (Auxl.promote_ntmvr xd - (Auxl.primary_nt_or_mv_of_nt_or_mv xd ntmv_root))) - (*^"ZZZ"*)) - ntmvsns) - | _ -> ["dummy"]) in - let hol_type_pp1 = (match m with - | Hol _ | Lem _ -> - (List.map (function ((ntmv_root,_),subntr_data) -> -(* new *) - Grammar_pp.pp_nt_or_mv_root_ty m xd - (Auxl.promote_ntmvr xd - (Auxl.primary_nt_or_mv_of_nt_or_mv xd ntmv_root)) -(* old *) -(* Auxl.pp_hol_type_name *) -(* (Grammar_pp.pp_nt_or_mv_root m xd *) -(* (Auxl.promote_ntmvr xd *) -(* (Auxl.primary_nt_or_mv_of_nt_or_mv xd ntmv_root))) *) -(* end *) - (*^"ZZZ"*)) - ntmvsns) - | _ -> ["dummy"]) in - let pp_squished_vars = - match m with - | Rdx _ -> String.concat "_" pp1_null - | _ -> String.concat "_" pp1_null ^"_list" in - - let pp_pattern = - let tmp = String.concat "," pp1 in - if (List.length pp1) > 1 then "("^tmp^")" else tmp in - let pp_coq_type = (* the coq type of the pattern *) - let tmp = String.concat "*" coq_type_pp1 in - if (List.length pp1) > 1 then "("^tmp^")" else tmp in - let pp_hol_type_var = (* the hol type of the whole variable *) - let tmp = String.concat "#" hol_type_pp1 in - (if (List.length pp1) > 1 then "("^tmp^")" else tmp) - ^ " list" in - ( bound, - { de1_ntmvsns = ntmvsns; - de1_compound_id = pp_squished_vars; - de1_pattern = pp_pattern; - de1_coq_type_of_pattern = pp_coq_type; - de1_hol_type_of_compound_id = pp_hol_type_var }) ) - x - -(* de2 gives a list of ntmv (without subntr data) that are projections *) -(* from a list form. For example, if there is a list l'1..l'n, a use of *) -(* l'j will be indicated here as l'j, ('[0] , j , (1,n) ) *) - -(* de3 gives a list of ntmv (with subntr data) that are not *) -(* projections from list forms. This is not part of a dot environment *) -(* (which just contains de1 and de2) *) - -let dotenv23 ntmvsn_without_bounds ntmvsn_with_bounds = - let y = List.map (merge_nobound ntmvsn_with_bounds) ntmvsn_without_bounds in - let de2 = Auxl.option_map (function ((ntmv,subntr_data),zo)->match zo with None->None|Some z -> Some(ntmv,z)) y in - let de3 = Auxl.option_map (function ((ntmv,subntr_data),zo)->match zo with None->Some(ntmv,subntr_data)|Some z -> None) y in - de2,de3 - - - -let bound_extraction m xd loc sts : dotenv * dotenv3 * string = - try - let x = nt_or_mv_of_symterms sts in - let bounds = check_length_consistency x in - let pp_bounds = String.concat " " - (List.map Grammar_pp.pp_plain_bound bounds) in - let ntmvsn_with_boundopts = check_bounds_consistency x in - let ntmvsn_without_bounds,ntmvsn_with_bounds = split_bounded ntmvsn_with_boundopts in - let bound_with_ntmvsnss = nt_or_mv_per_bound ntmvsn_with_bounds in - let de1 = dotenv1 m xd bound_with_ntmvsnss in - let de2,de3 = dotenv23 ntmvsn_without_bounds ntmvsn_with_bounds in - let de = de1,de2 in - let all_null = (bounds=[] && de1=[] && de2=[] && bound_with_ntmvsnss=[]) in - let s = - (* Grammar_pp.pp_plain_dotenv3 de3 ^"\n" ^ *) - if all_null then "" - else (* pp_plain_bar m xd x'' ^ *) - "bounds: "^pp_bounds ^ "\n" - ^ "bound_with_ntmvss: "^pp_plain_foo m xd bound_with_ntmvsnss - ^ Grammar_pp.pp_plain_dotenv de in - de, de3, s - with - Bounds s' -> raise (Bounds (s'^" at "^Location.pp_loc loc)) -(* with e -> *) - (* "exception in bound_extraction" *) - diff --git a/vendors/ott/src/bounds.mli b/vendors/ott/src/bounds.mli deleted file mode 100644 index ab25c19b144d..000000000000 --- a/vendors/ott/src/bounds.mli +++ /dev/null @@ -1,44 +0,0 @@ -(**************************************************************************) -(* Ott *) -(* *) -(* Peter Sewell, Computer Laboratory, University of Cambridge *) -(* Francesco Zappa Nardelli, Moscova project, INRIA Rocquencourt *) -(* *) -(* Copyright 2005-2010 *) -(* *) -(* Redistribution and use in source and binary forms, with or without *) -(* modification, are permitted provided that the following conditions *) -(* are met: *) -(* 1. Redistributions of source code must retain the above copyright *) -(* notice, this list of conditions and the following disclaimer. *) -(* 2. Redistributions in binary form must reproduce the above copyright *) -(* notice, this list of conditions and the following disclaimer in the *) -(* documentation and/or other materials provided with the distribution. *) -(* 3. The names of the authors may not be used to endorse or promote *) -(* products derived from this software without specific prior written *) -(* permission. *) -(* *) -(* THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS *) -(* OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED *) -(* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE *) -(* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY *) -(* DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL *) -(* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE *) -(* GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS *) -(* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER *) -(* IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR *) -(* OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN *) -(* IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. *) -(**************************************************************************) - -exception Bounds of string -val nt_or_mv_of_symterms : - Types.symterm list -> - ((Types.nt_or_mv * Types.subntr_data) * Types.bound option) list - -val sie_project : Types.suffix_item list -val bound_extraction : - Types.pp_mode -> - Types.syntaxdefn -> - Location.t list -> - Types.symterm list -> Types.dotenv * Types.dotenv3 * string diff --git a/vendors/ott/src/context_pp.ml b/vendors/ott/src/context_pp.ml deleted file mode 100644 index c21468e694d4..000000000000 --- a/vendors/ott/src/context_pp.ml +++ /dev/null @@ -1,163 +0,0 @@ -(**************************************************************************) -(* Ott *) -(* *) -(* Peter Sewell, Computer Laboratory, University of Cambridge *) -(* Francesco Zappa Nardelli, Moscova project, INRIA Rocquencourt *) -(* *) -(* Copyright 2005-2010 *) -(* *) -(* Redistribution and use in source and binary forms, with or without *) -(* modification, are permitted provided that the following conditions *) -(* are met: *) -(* 1. Redistributions of source code must retain the above copyright *) -(* notice, this list of conditions and the following disclaimer. *) -(* 2. Redistributions in binary form must reproduce the above copyright *) -(* notice, this list of conditions and the following disclaimer in the *) -(* documentation and/or other materials provided with the distribution. *) -(* 3. The names of the authors may not be used to endorse or promote *) -(* products derived from this software without specific prior written *) -(* permission. *) -(* *) -(* THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS *) -(* OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED *) -(* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE *) -(* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY *) -(* DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL *) -(* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE *) -(* GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS *) -(* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER *) -(* IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR *) -(* OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN *) -(* IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. *) -(**************************************************************************) - -open Types - -exception Cannot_parse_fake_rhs - -(* *** compute the nts and mvs used in the symterms used for the lhs's of a rule *** *) - -(* this is called also from substs_pp and subrules_pp - should be moved to auxl if we had recursive modules *) -let sts_for_lhss m xd r = - List.map - (function p -> - let lhs_stnb = - Grammar_pp.canonical_symterm_node_body_of_prod r.rule_ntr_name p in - let lhs_st = St_node(dummy_loc,lhs_stnb) in - lhs_st) - r.rule_ps - -let nts_used_in_lhss m xd r = - Auxl.nts_of_symterms (sts_for_lhss m xd r) - -let mvs_used_in_lhss m xd r = - Auxl.mvs_of_symterms (sts_for_lhss m xd r) - -(* *** pp of the fake rhs *** *) - -(* this function builds the string containing the fake rhs *) -let fake_rhs m xd (hole:nonterm) (r:rule) (p:prod) = - let rhs_stnb = Grammar_pp.canonical_symterm_node_body_of_prod r.rule_ntr_name p in - let rhs_st = St_node(dummy_loc,rhs_stnb) in - let fake_rhs_with_hole = Grammar_pp.pp_symterm error_opts xd [] de_empty rhs_st in - - (* FZ instead of regexp we should directly print the string with the fake_hole_var in it *) - let rgx = Str.regexp_string (Str.quote "__") in - let fake_hole_var = Grammar_pp.pp_nonterm m xd hole in - Str.replace_first rgx fake_hole_var fake_rhs_with_hole - -(* this function does the fake_rhs pretty printing and subsequent parsing *) -(* it is used both by grammar typecheck, to verify the subgrammar inclusion *) -(* and by pp_prod_context below, to build the rhs *) - -let context_app_rhs m xd lookup (hole:nonterm) (target:nontermroot) (r:rule) (p:prod) : bool * string option = - try - let fake_rhs = fake_rhs m xd hole r p in -(* print_endline ("*** fr:"^fake_rhs); *) - (*parse the fake rhs*) - let sts = Term_parser.parse_complete lookup target false fake_rhs in - let sts_e = - match List.length sts with - | 0 -> raise Cannot_parse_fake_rhs - (* Auxl.error ("internal: cannot parse context fake rhs: "^ fake_rhs ^"\n") *) - | 1 -> - ( match m with - | Caml _ -> Auxl.capitalize_prodnames_in_symterm (List.hd sts) - | _ -> List.hd sts ) - | _ -> Auxl.warning ("internal: multiple parses context fake rhs: "^fake_rhs^"\n"); List.hd sts in - let sie = [] in - let ((de1,de2) as de,de3,pptbe) = Bounds.bound_extraction m xd dummy_loc [sts_e] in - (true, Some (Grammar_pp.pp_symterm m xd sie de sts_e)) - with Cannot_parse_fake_rhs -> (false, None) - -(* *** all together *** *) - -let pp_prod_context m xd lookup (hole:nonterm) (target:nontermroot) (r:rule) (p:prod) = - (* compute the lhs *) - let lhs_stnb = Grammar_pp.canonical_symterm_node_body_of_prod r.rule_ntr_name p in - let lhs_st = St_node(dummy_loc,lhs_stnb) in - let sie = [] in - let ((de1,de2) as de,de3,pptbe) = Bounds.bound_extraction m xd dummy_loc [lhs_st] in - let lhs_pat = Grammar_pp.pp_symterm m xd sie de lhs_st in - let lhs = - ( match m with - | Coq _ | Caml _ -> lhs_pat - | Isa _ | Hol _ | Lem _ | Twf _ -> lhs_pat ^ " " ^ Grammar_pp.pp_nonterm m xd hole - | Lex _ | Menhir _ | Tex _ | Ascii _ -> assert false) in - (* compute the rhs *) - let rhs = Auxl.the (snd (context_app_rhs m xd lookup hole target r p)) in - (* all together *) - (p.prod_name, lhs, rhs) - -let pp_rule_context m xd lookup cr : int_func = - let e_rule = Auxl.rule_of_ntr xd cr.cr_ntr in - let nts_used = ref (nts_used_in_lhss m xd e_rule) in - let ctx = Auxl.fresh_nt !nts_used (cr.cr_ntr,[]) in - let ctx_var = Grammar_pp.pp_nonterm m xd ctx in - nts_used := ctx::!nts_used; - - let fake_hole = (Auxl.fresh_nt !nts_used (cr.cr_hole,[])) in - let fake_hole_var = Grammar_pp.pp_nonterm m xd fake_hole in - - let clauses = List.map (pp_prod_context m xd lookup fake_hole cr.cr_target e_rule) e_rule.rule_ps in - - let id = Auxl.context_name cr.cr_ntr cr.cr_hole in - let header = - ( match m with - | Coq _ -> - ( id - ^ " ("^ctx_var^":"^ Grammar_pp.pp_nontermroot_ty m xd cr.cr_ntr - ^ ") ("^fake_hole_var^":"^ Grammar_pp.pp_nontermroot_ty m xd cr.cr_hole ^")", - "", - " : " ^ (Grammar_pp.pp_nontermroot_ty m xd cr.cr_target) ^ " :=\n match "^ctx_var^" with\n") - | Isa _ -> - ( id ^ " :: \"" - ^ Grammar_pp.pp_nontermroot_ty m xd cr.cr_ntr ^ " => " - ^ Grammar_pp.pp_nontermroot_ty m xd cr.cr_hole ^ " => " - ^ Grammar_pp.pp_nontermroot_ty m xd cr.cr_target ^ "\"\n", "", "") - | Hol _ -> ("","","") - | Lem _ -> raise LemTODO (* LemTODO23*) - | Caml _ -> - ( id - ^ " ("^ctx_var^":"^ Grammar_pp.pp_nontermroot_ty m xd cr.cr_ntr - ^ ") ("^fake_hole_var^":"^ Grammar_pp.pp_nontermroot_ty m xd cr.cr_hole ^")", - "", - " : " ^ (Grammar_pp.pp_nontermroot_ty m xd cr.cr_target) ^ " =\n match "^ctx_var^" with\n") - | Twf _ -> Auxl.errorm m "pp_rule_context" - | Lex _ | Menhir _ | Tex _ | Ascii _ -> assert false - ) in - - { r_fun_id = id; - r_fun_dep = []; - r_fun_type = cr.cr_ntr; - r_fun_header = header; - r_fun_clauses = clauses } - -let pp_context m xd lookup crs = - Dependency.collapse m xd - { i_funcs = (List.map (pp_rule_context m xd lookup) crs); - i_funcs_proof = None } - - - - diff --git a/vendors/ott/src/coq_induct.ml b/vendors/ott/src/coq_induct.ml deleted file mode 100644 index 6ade4ff960a6..000000000000 --- a/vendors/ott/src/coq_induct.ml +++ /dev/null @@ -1,371 +0,0 @@ -(**************************************************************************) -(* Ott *) -(* *) -(* Peter Sewell, Computer Laboratory, University of Cambridge *) -(* Francesco Zappa Nardelli, Moscova project, INRIA Rocquencourt *) -(* *) -(* Copyright 2005-2010 *) -(* *) -(* Redistribution and use in source and binary forms, with or without *) -(* modification, are permitted provided that the following conditions *) -(* are met: *) -(* 1. Redistributions of source code must retain the above copyright *) -(* notice, this list of conditions and the following disclaimer. *) -(* 2. Redistributions in binary form must reproduce the above copyright *) -(* notice, this list of conditions and the following disclaimer in the *) -(* documentation and/or other materials provided with the distribution. *) -(* 3. The names of the authors may not be used to endorse or promote *) -(* products derived from this software without specific prior written *) -(* permission. *) -(* *) -(* THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS *) -(* OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED *) -(* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE *) -(* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY *) -(* DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL *) -(* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE *) -(* GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS *) -(* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER *) -(* IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR *) -(* OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN *) -(* IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. *) -(**************************************************************************) - -open Types;; - -(* identify the nontermroots that include list types *) -let need_induction m xd r = - let rec_rules = - List.find - (fun l -> List.mem (Ntr r.rule_ntr_name) l) - (Auxl.select_dep_ts m xd.xd_dep) in - let rec uses_list_nt p = - let element_uses_list_nt e = - match e with - | Lang_list elb -> - List.exists - (fun e -> - match e with - | Lang_nonterm (ntr,_) -> List.mem (Ntr ntr) rec_rules - | _ -> false) - elb.elb_es - | Lang_option _ | Lang_sugaroption _ -> - Auxl.error "interal: option types not implemented in pp_induction\n" - | Lang_nonterm (_,_) | Lang_metavar (_,_) | Lang_terminal _ -> false - in List.exists element_uses_list_nt p.prod_es in - (not r.rule_meta) && (List.exists uses_list_nt r.rule_ps) - -let rules_needing_induction m xd rs : nontermroot list list = - (* ** returns the groups of mutually recursive rules that need - an ott-generated induction principle *) - - let rules = List.filter (need_induction m xd) rs in - - let groups = - Auxl.remove_duplicates - (List.map - (fun r -> - Auxl.option_map - (fun ntmvr -> - ( match ntmvr with - | Ntr ntr -> Some ntr - | Mvr _ -> None )) - (List.find - (fun l -> List.mem (Ntr r.rule_ntr_name) l) - (Auxl.select_dep_ts m xd.xd_dep))) - rules) in - - (* remove groups for which a nonterm has a rule hom *) - List.filter - (fun g -> List.for_all - (fun ntr -> - let r = Auxl.rule_of_ntr xd ntr in - match (Auxl.hom_spec_for_hom_name "coq" r.rule_homs) with - Some _ -> false | None -> true) - g) - groups - -(* ** generate the induction principle for a set of rules *) -let generate_induction m xd ntr_set = - let rule_set = - List.map (fun ntr -> Auxl.rule_of_ntr xd ntr) ntr_set in - - (* ** Name for the induction principle ** *) - let ip_name = (String.concat "_" ntr_set) ^ "_rect" - in - - (* ** Variables ** *) - (* need a Variable decl for each inductive type appearing in any rule *) - - let rec used_in_tuple e : (string*string*string option) list = - ( match e with - | Lang_nonterm (ntr_primary,_) -> - let ntr = Auxl.promote_ntr xd ntr_primary in - [ (ntr, ntr, None) ] - | Lang_metavar (mvr_primary,_) -> - [ (mvr_primary,mvr_primary,None) ] - | _ -> [] ) in - - let rec inductive_types_used_in_element e : (string*string*(string option)) list = - ( match e with - | Lang_nonterm (ntr_primary,_) -> - let ntr = Auxl.promote_ntr xd ntr_primary in - if List.mem ntr (List.map (fun r -> r.rule_ntr_name) rule_set) - then [ (ntr, ntr, None) ] - else [] - | Lang_metavar (mvr_primary,_) -> - [] - | Lang_terminal _ -> [] - | Lang_option es -> [ "","<<

{{instr.op_args}}: {{instr.documentation_short|rst_inline}}

{% if type.related_ops %} -
Related operations
+
Related instructions
-
    +
      {% for op in type.related_ops %} -
    • {{op}}
      • +
    • {{op}}
      • {% endfor %}
-- GitLab From 35c27112ae9ee285e93b20f73c7c4d3b72094a40 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Thu, 10 Oct 2019 15:46:47 +0200 Subject: [PATCH 229/252] add folding to typing and semantics rules --- .../templates/instruction.html | 32 +++++++++++-------- 1 file changed, 18 insertions(+), 14 deletions(-) diff --git a/docs/doc_gen/michelson_reference/templates/instruction.html b/docs/doc_gen/michelson_reference/templates/instruction.html index 018d66aa59b2..37d27e380774 100644 --- a/docs/doc_gen/michelson_reference/templates/instruction.html +++ b/docs/doc_gen/michelson_reference/templates/instruction.html @@ -1,19 +1,5 @@

{{instr.op_args}}: {{instr.documentation_short|rst_inline}}

-
Semantics
- -{% for r in instr.semantics %} -{{ macros.pp_rule(r) }} -{# #} -{% endfor %} - -
Typing
- -{% for r in instr.ty %} -{{ macros.pp_rule(r) }} -{# #} -{% endfor %} -
Description
{% if instr['documentation'] %} @@ -22,6 +8,24 @@ {% endif %} +
+ Semantics + + {% for r in instr.semantics %} + {{ macros.pp_rule(r) }} + {# #} + {% endfor %} +
+ +
+ Typing + + {% for r in instr.ty %} + {{ macros.pp_rule(r) }} + {# #} + {% endfor %} +
+ {% for ex in instr.examples %}
Example: {{ex.name|rst_inline if 'name' in ex else ''}}
-- GitLab From 4e41e6e1f2b4fe94ffbe106d030f74f5aa131d3c Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Thu, 10 Oct 2019 16:19:30 +0200 Subject: [PATCH 230/252] use pip version of michelson lexer --- docs/doc_gen/michelson_reference/Makefile | 2 +- .../michelson_reference/MichelsonLexer.py | 39 ------------------- docs/doc_gen/michelson_reference/generate.py | 2 +- .../michelson_reference/requirements.txt | 1 + 4 files changed, 3 insertions(+), 41 deletions(-) delete mode 100644 docs/doc_gen/michelson_reference/MichelsonLexer.py diff --git a/docs/doc_gen/michelson_reference/Makefile b/docs/doc_gen/michelson_reference/Makefile index d88cd2414462..763145fb6f06 100644 --- a/docs/doc_gen/michelson_reference/Makefile +++ b/docs/doc_gen/michelson_reference/Makefile @@ -18,7 +18,7 @@ michelson_embed.tex: michelson.ott michelson.tex: michelson.ott $(ott) -coq_expand_list_types false -i $< -o $@ -DOC_DEPS=generate.py michelson.json michelson-meta.yaml generate.py MichelsonLexer.py $(shell find templates -iname \*.html) +DOC_DEPS=generate.py michelson.json michelson-meta.yaml generate.py $(shell find templates -iname \*.html) docs/index.html: ${DOC_DEPS} $(shell find static -iname \*.js -or -iname \*.css) mkdir -p docs/static/ diff --git a/docs/doc_gen/michelson_reference/MichelsonLexer.py b/docs/doc_gen/michelson_reference/MichelsonLexer.py deleted file mode 100644 index a10082010eb4..000000000000 --- a/docs/doc_gen/michelson_reference/MichelsonLexer.py +++ /dev/null @@ -1,39 +0,0 @@ -from pygments.lexer import RegexLexer -from pygments.token import * - -class MichelsonLexer(RegexLexer): - name = 'Michelson' - aliases = ['michelson'] - filenames = ['*.tz'] - - tokens = { - 'root': [ - (r'\s+', Whitespace), - # numbers - (r'-?[0-9]+', Literal.Number), - # raw bytes - (r'0x[a-fA-F0-9]+', Literal.Number), - (r'[{;,}()]', Punctuation), - # primitives - (r'[A-Z][_A-Z0-9]+', Keyword.Reserved), - # constructors - (r'[A-Z][a-z]+', Keyword.Constant), - (r'\"[^\"]*\"', Literal.String), - # single-line comments - (r'#.*$', Comment.Single), - # c-style comments - (r'/\*', Comment.Multiline, 'comment'), - # sections - (r'(code|parameter|storage)', Keyword), - # types - (r'[a-z][a-z_]*', Keyword.Type), - # annotations - (r'[@:%](@|%|%%|[_a-zA-Z][_0-9a-zA-Z\.]*)?', Keyword.Name) - ], - 'comment': [ - (r'[^*/]', Comment.Multiline), - (r'/\*', Comment.Multiline, '#push'), - (r'\*/', Comment.Multiline, '#pop'), - (r'[*/]', Comment.Multiline) - ] - } diff --git a/docs/doc_gen/michelson_reference/generate.py b/docs/doc_gen/michelson_reference/generate.py index 70fc6249d925..b60efb44f04a 100644 --- a/docs/doc_gen/michelson_reference/generate.py +++ b/docs/doc_gen/michelson_reference/generate.py @@ -10,7 +10,7 @@ import argparse from pygments import highlight from pygments.lexers import PythonLexer from pygments.formatters import HtmlFormatter -from MichelsonLexer import MichelsonLexer +from pygments_michelson import MichelsonLexer try_michelson_url = "https://try-michelson.tzalpha.net" diff --git a/docs/doc_gen/michelson_reference/requirements.txt b/docs/doc_gen/michelson_reference/requirements.txt index ef8e9b950582..79ac9a55adb4 100644 --- a/docs/doc_gen/michelson_reference/requirements.txt +++ b/docs/doc_gen/michelson_reference/requirements.txt @@ -2,3 +2,4 @@ jinja2 docutils pygments jsonschema +pygments-michelson==1.0.1 -- GitLab From 51861d3fc4190fa5ad5ebe73c9de61bab10f710a Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Thu, 10 Oct 2019 17:06:26 +0200 Subject: [PATCH 231/252] docs: add documentation on ADDRESS, CHAIN_ID, COMPARE and CONTRACT --- .../michelson_reference/michelson-meta.yaml | 72 +++++++++++++++++++ 1 file changed, 72 insertions(+) diff --git a/docs/doc_gen/michelson_reference/michelson-meta.yaml b/docs/doc_gen/michelson_reference/michelson-meta.yaml index 92f567f3727e..e1e6f05faa7a 100644 --- a/docs/doc_gen/michelson_reference/michelson-meta.yaml +++ b/docs/doc_gen/michelson_reference/michelson-meta.yaml @@ -24,6 +24,20 @@ instructions: initial_storage: 'Unit' final_storage: 'Unit' hide_final_storage: True + ADDRESS: + category: domain + documentation_short: Push the address of a contract. + documentation: | + This instruction consumes a contract value and produces the address of that contract. + + examples: + - name: Address examples + description: This demonstrates takes a contract by parameter, and then stores its address. + path: opcodes/address.tz + input: '"tz1b7tUupMgCNw2cCLpKTkSD1NZzB5TkP2sv"' + initial_storage: 'None' + final_storage: '(Some "tz1b7tUupMgCNw2cCLpKTkSD1NZzB5TkP2sv")' + LOOP_LEFT: category: core documentation_short: Loop with accumulator. @@ -70,6 +84,19 @@ instructions: input: '(Pair 15 9)' initial_storage: '0' final_storage: '15' + CHAIN_ID: + category: core + documentation_short: Push the chain identifier. + examples: + - name: Push the chain identifier. + description: | + This contract pushes and then stores the chain identifier. + + path: opcodes/chain_id_store.tz + input: 'Unit' + initial_storage: 'None' + final_storage: '(Some 0x7a06a770)' + hide_final_storage: True PAIR: category: core documentation_short: Build a pair from the stack’s top two elements. @@ -282,6 +309,30 @@ instructions: input: '"edpkuBknW28nW72KG6RoHtYW7p12T6GKc7nAbwYX5m8Wd9sDVC9yav"' initial_storage: '(Pair "edsigthTzJ8X7MPmNeEwybRAvdxS1pupqcM5Mk4uCuyZAe7uEk68YpuGDeViW8wSXMrCi5CwoNgqs8V2w8ayB5dMJzrYCHhD8C7" "hello")' final_storage: '(Pair "edsigthTzJ8X7MPmNeEwybRAvdxS1pupqcM5Mk4uCuyZAe7uEk68YpuGDeViW8wSXMrCi5CwoNgqs8V2w8ayB5dMJzrYCHhD8C7" "hello")' + COMPARE: + category: core + documentation_short: 'Compares two values.' + documentation: | + Comparison only works on a class of types that we call + comparable. The ``COMPARE`` operation is defined in an ad hoc way + for each comparable type, but the result of ``COMPARE`` is + always an ``int``, which can in turn be checked in a generic + manner using the ``EQ``, ``NEQ``, ``LT``, ``GT``, ``LE`` and + ``GE`` combinators. + + The result of ``COMPARE`` is ``0`` if the top two elements of + the stack are equal, negative if the first element in the stack + is less than the second, and positive otherwise. + + examples: + - name: A variety of comparisons + description: | + This contract demonstrate several types of comparisons over different values. + + path: opcodes/compare.tz + input: 'Unit' + initial_storage: 'Unit' + final_storage: 'Unit' CONCAT: category: core documentation_short: String, string list and byte sequence concatenation. @@ -318,6 +369,27 @@ instructions: input: '{ 0xbe ; 0xef }' initial_storage: '0xdead' final_storage: '0xdeadbeef' + + CONTRACT: + category: core + documentation_short: 'Push the untyped version of a contract.' + documentation: | + Converts from an ``address`` to a ``contract ty``. + If and only if the address is a valid Tezos contract address with the type ``ty``, + then the result is ``Some contract`` is pushed. + If the address belongs to an implicit contract, then the type parameter ``ty`` must be ``unit``. + If these conditions are not fulfilled, ``None`` is pushed. + + examples: + - name: A variety of comparisons + description: | + This contract receives an ``address`` by parameter, and converts it to a ``contract unit``. + + path: opcodes/contract.tz + input: '"tz1b7tUupMgCNw2cCLpKTkSD1NZzB5TkP2sv"' + initial_storage: 'Unit' + final_storage: 'Unit' + CONS: category: core documentation_short: Prepend an element to a list. -- GitLab From 22a1f50289d128d77039c1a97ceaa829079f1e77 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Mon, 21 Oct 2019 14:18:57 +0200 Subject: [PATCH 232/252] Document more instructions --- .../michelson_reference/michelson-meta.yaml | 519 +++++++++++++++++- .../doc_gen/michelson_reference/michelson.ott | 6 +- .../michelson_reference/templates/macros.html | 2 +- 3 files changed, 515 insertions(+), 12 deletions(-) diff --git a/docs/doc_gen/michelson_reference/michelson-meta.yaml b/docs/doc_gen/michelson_reference/michelson-meta.yaml index e1e6f05faa7a..b767825c92ad 100644 --- a/docs/doc_gen/michelson_reference/michelson-meta.yaml +++ b/docs/doc_gen/michelson_reference/michelson-meta.yaml @@ -1,9 +1,10 @@ categories: - core: Core operations - domain: Domain specific operations + core: Core instructions + domain: Domain specific instructions + deprecated: Deprecated instructions instructions: ADD: - category: domain + category: core documentation_short: Adds two numerical values. documentation: | Adds numerical values. @@ -25,7 +26,7 @@ instructions: final_storage: 'Unit' hide_final_storage: True ADDRESS: - category: domain + category: core documentation_short: Push the address of a contract. documentation: | This instruction consumes a contract value and produces the address of that contract. @@ -119,16 +120,104 @@ instructions: DUP: category: core documentation_short: Duplicate the top of the stack. - # DROP: - # category: core - # documentation_short: Drop the top element of the stack. + DROP: + category: core + documentation_short: Drop the top ``n`` elements of the stack. + documentation: | + ``DROP n`` removes the top ``n`` element of the stacks + and then restores the previous top element. + + FAILWITH: category: core documentation_short: Explicitly abort the current program. + + IF: + category: core + documentation_short: Conditional branching. + documentation: | + The ``IF bt bf`` instruction consumes a stack ``b : S`` of type + ``bool : A``. I.e., ``b`` is a ``boolean`` and the trailing + stack ``S`` has any stack type ``A``. + + This instruction executes the ``bt`` branch if ``b`` is + ``True``, and the ``bf`` branch otherwise. + + Note that both branches must return a stack of the same type. + + IF_CONS: + category: core + documentation_short: Inspect a list. + documentation: | + The ``IF_CONS bt bf`` instruction consumes a stack ``l : S`` of type + ``list ty1 : A``. I.e., ``l`` is a ``list ty1`` and the trailing + stack ``S`` has any stack type ``A``. + + It consumes the list ``l``. If it has at least one element + ``hd`` followed by (a possibly empty) list ``tl``, then the + ``bt`` branch is executed with the stack ``hd : tl : S``. + Otherwise, the ``bf`` branch is executed with the stack ``A``. + + Note that both branches must return a stack of the same type. + + IF_SOME: + category: core + documentation_short: Inspect an optional value. + documentation: | + The ``IF_SOME bt bf`` instruction consumes a stack ``v : S`` of type + ``option ty1 : A``. I.e., ``v`` is a ``option ty1`` and the trailing + stack ``S`` has any stack type ``A``. + + If the optional value ``v`` is ``Some x``, then the ``bt`` + branch is executed with the stack ``x : A``. If ``v`` is + ``None``, then the ``bf`` branch is executed with the stack + ``A``. + + Note that both branches must return a stack of the same type. + + IF_NONE: + category: core + documentation_short: Inspect an optional value (symmetric with ``IF_SOME``). + documentation: | + The ``IF_NONE bt bf`` instruction consumes a stack ``v : S`` of type + ``option ty1 : A``. I.e., ``v`` is a ``option ty1`` and the trailing + stack ``S`` has any stack type ``A``. + + If the optional value ``v`` is ``None``, then the ``bt`` + branch is executed with the stack ``A``. If ``v`` is + ``Some x``, then the ``bf`` branch is executed with the stack + ``x : A``. + + Note that both branches must return a stack of the same type. + IF_LEFT: category: core documentation_short: Inspect a value of a union. - stack_effect: '' + documentation: | + The ``IF_LEFT bt bf`` instruction consumes a stack ``v : S`` of type + ``or ty1 ty2 : A``. I.e., ``v`` is a ``or ty1 ty2`` and the trailing + stack ``S`` has any stack type ``A``. + + If the union ``v`` stack is ``Left x``, then the ``bt`` branch + is executed with the stack ``x : A``. If it is ``Right y``, + then the ``bf`` branch is executed with the stack ``y : A``. + + Note that both branches must return a stack of the same type. + + IF_RIGHT: + category: core + documentation_short: Inspect a value of a union (symmetric with ``IF_LEFT``). + documentation: | + The ``IF_RIGHT bt bf`` instruction consumes a stack ``v : S`` of type + ``or ty1 ty2 : A``. I.e., ``v`` is a ``or ty1 ty2`` and the trailing + stack ``S`` has any stack type ``A``. + + If the union ``v`` stack is ``Right y``, then the ``bt`` branch + is executed with the stack ``y : A``. If it is ``Left x``, then + the ``bf`` branch is executed with the stack ``x : A``. + + Note that both branches must return a stack of the same type. + LEFT: category: core documentation_short: Pack a value in a union (left case). @@ -314,7 +403,7 @@ instructions: documentation_short: 'Compares two values.' documentation: | Comparison only works on a class of types that we call - comparable. The ``COMPARE`` operation is defined in an ad hoc way + comparable. The ``COMPARE`` instructions is defined in an ad hoc way for each comparable type, but the result of ``COMPARE`` is always an ``int``, which can in turn be checked in a generic manner using the ``EQ``, ``NEQ``, ``LT``, ``GT``, ``LE`` and @@ -404,6 +493,418 @@ instructions: input: '5' initial_storage: "{ 99 }" final_storage: "{ 5 ; 99 }" + + CREATE_CONTRACT: + category: core + documentation_short: Forge a new contract from a literal. + documentation: | + Originate a contract based on a literal. The parameters are the + optional delegate, the initial amount taken from the currently + executed contract, and the initial storage of the originated contract. + The contract is returned as a first class value (to be dropped, passed + as parameter or stored). The ``CONTRACT 'p`` instruction will fail + until it is actually originated. + + CREATE_ACCOUNT: + category: deprecated + documentation_short: Forge an account creation operation. + documentation: | + Takes as argument the manager, optional delegate, the delegatable flag + and finally the initial amount taken from the currently executed + contract. This instruction originates a contract with two entrypoints; + ``%default`` of type ``unit`` that does nothing and ``%do`` of type + ``lambda unit (list operation)`` that executes and returns the + parameter if the sender is the contract's manager. + + + EDIV: + category: core + documentation_short: Euclidian division + documentation: | + Consumes two numbers ``x`` and ``y`` (of either ``int`` or + ``nat``) and returns ``None`` if ``y`` is zero and otherwise, ``Some (Pair + (x / y) (x % y))`` otherwise. + + + EMPTY_MAP: + category: core + documentation_short: Build a new, empty map from ``kty`` to ``vty``. + documentation: | + Build a new, empty map from keys of a given type ``kty`` to values of + the other given type ``vty``. + + The ``cty`` type must be comparable. + + EMPTY_SET: + category: core + documentation_short: Build a new, empty set for elements of type ``cty``. + documentation: | + Build a new, empty set for elements of a given + type ``cty``. + + The ``cty`` type must be comparable. + + EQ: + category: core + documentation_short: Checks that the top of the stack EQuals zero. + documentation: | + The ``EQ`` instruction consumes an integer and leaves ``True`` + on the stack if it is ``0`` and ``False`` otherwise. + + It is typically composed with ``COMPARE``: the sequence + ``COMPARE; EQ`` leaves ``True`` on the stack if the two top + stack elements are equal, and ``False`` otherwise. + + NEQ: + category: core + documentation_short: Checks that the top of the stack does Not EQual zero. + documentation: | + The ``NEQ`` instruction consumes an integer and leaves ``True`` + on the stack if it is not ``0`` and ``False`` otherwise. + + It is typically composed with ``COMPARE``: the sequence + ``COMPARE; NEQ`` leaves ``True`` on the stack if the two top + stack elements are not equal, and ``False`` otherwise. + + LT: + category: core + documentation_short: Checks that the top of the stack is Less Than zero. + documentation: | + The ``LT`` instruction consumes an integer and leaves ``True`` + on the stack if it is less than ``0`` and ``False`` otherwise. + + It is typically composed with ``COMPARE``: the sequence + ``COMPARE; LT`` leaves ``True`` on the stack if the first stack + element is less than the second, and ``False`` otherwise. + + GT: + category: core + documentation_short: Checks that the top of the stack is Greater Than zero. + documentation: | + The ``GT`` instruction consumes an integer and leaves ``True`` + on the stack if it is greater than ``0`` and ``False`` otherwise. + + It is typically composed with ``COMPARE``: the sequence + ``COMPARE; GT`` leaves ``True`` on the stack if the first stack + element is greater than the second, and ``False`` otherwise. + + LE: + category: core + documentation_short: Checks that the top of the stack is Less Than of Equal to zero. + documentation: | + The ``LE`` instruction consumes an integer and leaves ``True`` + on the stack if it is less than or equal to ``0`` and ``False`` otherwise. + + It is typically composed with ``COMPARE``: the sequence + ``COMPARE; LE`` leaves ``True`` on the stack if the first stack + element is less than or equal to the second, and ``False`` otherwise. + + GE: + category: core + documentation_short: Checks that the top of the stack is Greater Than of Equal to zero. + documentation: | + The ``GE`` instruction consumes an integer and leaves ``True`` + on the stack if it is greater than or equal to ``0`` and ``False`` otherwise. + + It is typically composed with ``COMPARE``: the sequence + ``COMPARE; GE`` leaves ``True`` on the stack if the first stack + element is greater than or equal to the second, and ``False`` + otherwise. + + EXEC: + category: core + documentation_short: Execute a function from the stack. + documentation: | + The ``EXEC`` instruction consumes a value ``x`` of type ``a`` + and a value ``f`` of type `lambda a b`, applies the lambda to + ``x`` and leaves the results, of type ``b``, on the stack. + + + APPLY: + category: core + documentation_short: Partially apply a tuplified function from the stack. + documentation: | + Partially apply a tuplified function from the stack. That is, + the ``APPLY`` instruction consumes a value ``x`` of type ``a`` + and a value ``f`` of type `lambda (Pair a b) c`. + It /partially/ applies the lambda to ``x``, hence producing a + new lambda of type `lambda a c` on the stack. + Intuitively, this amounts to creating a new function that works + like ``f`` but with the first parameter ``a`` fixed to ``x``. + + The new lambda is storable, and thus values that cannot be + stored (values of type ``operation``, ``contract _`` and ``big + map _ _``) cannot be captured by ``APPLY`` (cannot appear in + ``a``). + + GET: + category: core + documentation_short: Access an element in a ``map`` or ``big_map``. + documentation: | + The instruction ``GET`` consumes a key and a ``map`` or ``big_map`` and returns an + optional value: ``None`` if the key is not present in the data structure, + and ``Some v`` if it is present and mapped to ``v``. + + MEM: + category: core + documentation_short: Check for the presence of a binding for a key in a ``map``, ``set`` or ``big_map``. + documentation: | + The instruction ``GET`` consumes a value and a data structure of + type ``map``, ``set`` or big_map``. + + For ``map`` and ``big_map``, ``GET`` returns ``True`` if the + value is a bound key in the data structure, and ``False`` + otherwise. + + For ``set``, ``True`` is returned if the value is a member of + the ``set``, and ``False`` otherwise. + + + UPDATE: + category: core + documentation_short: Add or remove an element in a ``map``, ``big_map`` or ``set`` + documentation: | + For values of type ``map`` and ``big_map``, the instruction ``UPDATE`` consumes + a key, an optional value and a value of type ``map`` or ``big_map`` . + It returns the same map, but updated in the following way: + + - If the value is ``Some x`` then key is assigned to ``x`` in + the resulting map. + - If the value is ``None`` and the key is present in the map, + then it is removed in the resulting map. If the key is not + present, an unmodified map is returned. + + For values of type ``set``, the instruction ``UPDATE`` consumes + a value ``v``, a boolean flag ``b`` and a set ``s``. It returns the same set, + but updated in the following way: + + - If ``b`` is ``True`` then the value ``v`` is added to the set ``s``. + If ``v`` was already present in ``s``, then the original set is returned. + - If ``b`` is ``False`` then the value ``v`` is removed from ``s``. + If ``v`` is not present in ``s``, then the original set is returned. + + MAP: + category: core + documentation_short: Assign or remove an element in a map. + documentation: | + The instruction ``UPDATE`` consumes a key, an optional value and a map. + It returns the map, is updated in the following way: + + - If the value is ``Some x`` then key is assigned to ``x`` in + the resulting map. + - If the value is ``None`` and the key is present in the map, + then it is removed in the resulting map. If the key is not + present, an unmodified map is returned. + + TRANSFER_TOKENS: + category: domain + documentation_short: Forge a transaction. + documentation: | + The ``TRANSFER_TOKENS`` instruction consumes a value ``v`` of type ``ty1``, + an amount ``a`` in ``mutez`` and a ``c`` of type ``contract ty1``. It returns + a transfer operation that will send to ``a`` mutez to the + specified contract ``c`` with the parameter ``v``. + + Consequently, the parameter must be consistent with the one + expected by the contract. In the case the contract is an + account, then the parameter must be of type ``unit``. + + HASH_KEY: + category: domain + documentation_short: Compute the b58check of a public key. + documentation: | + The ``HASH_KEY`` instruction computes the + [b58check](https://en.bitcoin.it/wiki/Base58Check) of a public + key. + + + IMPLICIT_ACCOUNT: + category: domain + documentation_short: Create an implicit account. + documentation: | + Return a default contract (an implicit account) with the given + public/private key pair. Any funds deposited in this contract + can immediately be spent by the holder of the private key. This + contract cannot execute Michelson code and will always exist on + the blockchain. + + ITER: + category: core + documentation_short: Iterate over a ``set``, ``list`` or ``map``. + documentation: | + + Iterate on a ``set``, ``list`` or ``map``. + + Apply the body expression to each element the structure: + + - In the case of a list or set, the body is applied to each + element, and must thus have the type ``ty1 : A => A``. + - In the case of a map, the body is applied to each binding + ``key`` to value ``val`` in the form of a pair ``Pair key + val``, and must thus have the type ``Pair ty1 ty2 : A => + A``. + + In each case, the body sequence has access to the stack. + + LAMBDA: + category: core + documentation_short: Push a lambda onto the stack. + documentation: | + Push a lambda with parameter type ``ty1``, return type ``ty2`` and body ``code`` + onto the stack. + + LOOP: + category: core + documentation_short: A generic loop. + documentation: | + + The instruction ``LOOP`` consumes a stack ``b : S`` of type + ``bool : A``, i.e. where ``b`` is boolean and the rest of the + stack is of any type ``A``. The body of the loop, ``code``, is + executed as long as ``b`` is ``True``. The body has access to the stack ``S`` + but must produce a stack of type ``bool : A``. If ``b`` is + ``False``, then the resulting stack is ``S``. + + LSL: + category: core + documentation_short: Logically left shift a natural number. + documentation: | + + The ``LSL`` instruction consumes two natural numbers and produces + the first number logically left-shifted by second number. + + This instruction is only defined if the second number is less + than or equal to 256. + + LSR: + category: core + documentation_short: Logically right shift an natural number. + documentation: | + The ``LSR`` instruction consumes two natural numbers and produces + the first number logically right-shifted by second number. + + This instruction is only defined if the second number is less than or equal to 256. + + MUL: + category: core + documentation_short: Multiplicates two numerical values. + documentation: | + The ``MUL`` instruction consumes two natural numbers (int or + nat) and produces their product. ``MUL`` can also be used to + multiply a ``mutez`` with a natural number. + + NOT: + category: core + documentation_short: Logical negation and bitwise complement. + documentation: | + The ``NOT`` instruction is defined for ``bool``, + ``nat`` and ``int``. + + For ``bool``, it returns the logical negation of its argument. + + For numerical values, it returns the complement as an ``int``. + In this case, the return type is an ``int`` and not a ``nat``. + This is because the sign is also negated. The resulting integer + is computed using two's complement. For instance, the boolean + negation of ``0`` is ``-1``. To get a natural back, a + possibility is to use ``AND`` with an unsigned mask afterwards. + + NEG: + category: core + documentation_short: Negates a numerical value. + documentation: | + + The ``NEG`` instruction consumes a natural number (``int`` or + ``nat``) and produces their negation, in the form of an + ``int``. + + NIL: + category: core + documentation_short: Produces an empty list. + documentation: | + + The ``NIL ty1`` instruction produces the empty list of type ``list ty1``. + It is functionally equivalent to ``PUSH (list ty1) {}``. + + NONE: + category: core + documentation_short: Produces the absent optional value. + documentation: | + + The ``NONE ty1`` instruction produces the + absent optional value ``None`` of type ``option ty1``. + + It is functionally equivalent to ``PUSH (option ty1) None``. + + SOME: + category: core + documentation_short: Pack a present optional value. + documentation: | + + The ``SOME`` instruction packs the top element ``x`` of the + stack, of type ``ty1`` into the present optional value ``Some + x`` of type ``option ty1``. + + SENDER: + category: domain + documentation_short: Push the contract that initiated current internal transaction. + documentation: | + + Push the contract that initiated the current + internal transaction. It may be the ``SOURCE``, but may + also not if the source sent an order to an intermediate + smart contract, which then called the current contract. + + SOURCE: + category: domain + documentation_short: Push the contract that initiated the current transaction. + documentation: | + Push the contract that initiated the current + transaction, i.e. the contract that paid the fees and + storage cost, and whose manager signed the operation + that was sent on the blockchain. + + Note that since ``TRANSFER_TOKENS`` instructions can be chained, + ``SOURCE`` and ``SENDER`` are not necessarily the same. + + SELF: + category: domain + documentation_short: Push the current contract. + documentation: | + The ``SELF`` contract pushes the current contract, of type + ``contract ty1`` where ``ty1`` is the type of the currnet + contract. + + NOW: + category: domain + documentation_short: Push block timestamp + documentation: | + Push the timestamp of the block whose validation triggered this + execution. This timestamp doe not change during the execution of + the contract. + + OR: + category: core + documentation_short: Logical and binary OR. + documentation: | + The instruction ``OR`` is defined on operands of booleans and natural numbers. + In the former case, the result is the logical OR of the operands. + In the latter case, the result is the binary OR of the operands. + + SET_DELEGATE: + category: core + documentation_short: Produce a delegation operation. + documentation: | + The ``SET_DELEGATE`` is used to add, updated or remove a + delegation. It consumes an argument of type ``option + key_hash``. + + If the argument is ``None``, then the produced operation will + remove the executing contracts current delegation, if any. If + the argument is ``Some k``, then the produced operation will + update, or add a delegation, from the executing contract to the + implicit account specified by ``k``. + types: string: documentation_short: "A string of characters" diff --git a/docs/doc_gen/michelson_reference/michelson.ott b/docs/doc_gen/michelson_reference/michelson.ott index 9ad7047ce919..a2ef643c7cf0 100644 --- a/docs/doc_gen/michelson_reference/michelson.ott +++ b/docs/doc_gen/michelson_reference/michelson.ott @@ -209,6 +209,7 @@ function :: 'i_' ::= | binary_bitwise :: :: b_bitwise | EXEC :: :: EXEC + | APPLY :: :: APPLY | LSL :: :: LSL | LSR :: :: LSR | COMPARE :: :: COMPARE @@ -218,7 +219,7 @@ function :: 'i_' ::= | GET :: :: GET | CONS :: :: CONS - | DROP :: :: DROP + | DROP n :: :: DROP | DUP :: :: DUP | SWAP :: :: SWAP @@ -247,6 +248,7 @@ code, i, body :: 'i_' ::= | DIP code :: :: DIP | ITER code :: :: ITER | MAP code :: :: MAP + | IF_SOME code1 code2 :: :: IF_SOME | IF_NONE code1 code2 :: :: IF_NONE | IF_LEFT code1 code2 :: :: IF_LEFT | IF_RIGHT code1 code2 :: :: IF_RIGHT @@ -567,7 +569,7 @@ Typing :: 't_' ::= CONS :: ty1 : list ty1 : [] -> list ty1 : [] ---------------------- :: DROP - DROP :: ty1 : [] -> [] + DROP n :: ty1 : [] -> [] --------------------------------- :: DUP DUP :: ty1 : [] -> ty1 : ty1 : [] diff --git a/docs/doc_gen/michelson_reference/templates/macros.html b/docs/doc_gen/michelson_reference/templates/macros.html index 28b7613bd40e..b0d75ff72d6d 100644 --- a/docs/doc_gen/michelson_reference/templates/macros.html +++ b/docs/doc_gen/michelson_reference/templates/macros.html @@ -48,7 +48,7 @@ {% for instr in instructions %} {{ link_first_word("#" ~ url_instr(instr.op), instr.op_args) }} - {{instr.documentation_short}} + {{instr.documentation_short|rst_inline}} {% if instr.stack_effect %} {# -- GitLab From ac382049c96fb1a4340eb3a58720a3f1d6c84674 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Mon, 21 Oct 2019 15:09:41 +0200 Subject: [PATCH 233/252] Document last instructions of athens --- .../michelson_reference/michelson-meta.yaml | 83 ++++++++++++++++++- 1 file changed, 80 insertions(+), 3 deletions(-) diff --git a/docs/doc_gen/michelson_reference/michelson-meta.yaml b/docs/doc_gen/michelson_reference/michelson-meta.yaml index b767825c92ad..8a2e397e9012 100644 --- a/docs/doc_gen/michelson_reference/michelson-meta.yaml +++ b/docs/doc_gen/michelson_reference/michelson-meta.yaml @@ -339,11 +339,11 @@ instructions: category: core documentation_short: Logical and binary AND. documentation: | - The instruction ``AND`` is defined on operands of booleans and natural numbers. + The instruction ``AND`` is defined on boolean and natural number operands. In the former case, the result is the logical AND of the operands. In the latter case, the result is the binary AND of the operands. - ``AND`` is also defined for integer top operands. Negative + ``AND`` is also defined for integer operands. Negative numbers are considered in 2's complement representation, starting with a virtual infinite number of 1s. @@ -887,7 +887,7 @@ instructions: category: core documentation_short: Logical and binary OR. documentation: | - The instruction ``OR`` is defined on operands of booleans and natural numbers. + The instruction ``OR`` is defined on boolean and natural number operands. In the former case, the result is the logical OR of the operands. In the latter case, the result is the binary OR of the operands. @@ -905,6 +905,76 @@ instructions: update, or add a delegation, from the executing contract to the implicit account specified by ``k``. + SIZE: + category: core + documentation_short: Get the size of a ``string``, ``list``, ``set``, ``map`` or byte sequence. + + documentation: | + The ``SIZE`` instruction consumes and returns the size of the + top element of the stack as an ``nat``. It is defined for values of type ``string``, ``list``, ``set``, ``map`` and byte sequences ``bytes``. + + - For a ``string`` value, it returns the number of characters. + - For a ``list``, it returns the number of elements. + - For a ``set``, it returns the number of elements. + - For a ``map``, it returns the number of key-value pairs. + - For a byte sequence ``bytes``, it returns the number of bytes. + + + SLICE: + category: core + documentation_short: Obtain a substring or subsequence of a ``string`` respectively byte sequence ``bytes``. + + documentation: | + The ``SLICE`` instruction consumes two natural numbers ``offset`` and ``length`` + and a character sequence (``string``) or bytes sequence (``bytes``). + + It returns a substring, respectively subsequence, ``Some v`` of + length ``length`` starting at ``offset`` (where offset 0 denotes + the first element) of the sequence. + + If ``offset`` and ``length`` is out of bounds, i.e. ``offset >= + len`` or ``offset + length >= len`` (where ``len`` is the length + of the sequence), then ``None`` is returned. + + STEPS_TO_QUOTA: + category: domain + documentation_short: Push the remaining steps before the contract execution must terminate. + + documentation: | + *Deprecated*. The ``STEPS_TO_QUOTA`` instruction pushes the + number of steps remaining before contract execution is aborted + due to gas exhaustion. + + SUB: + category: core + documentation_short: Subtract two numerical values. + documentation: | + + Consumes two numerical values and returns their difference. The + the return type depends on the argument type: + + - Integers can be subtracted from natural numbers and + vice versa, in which case the result type is always an + integer. + - Integers can be subtracted from timestamps, in which case the + result is a timestamp. + - Timestamps can also be subtracted from timestamps, in which + case the result is a integer denoting their difference + in seconds. + + UNIT: + category: core + documentation_short: Push a unit value onto the stack. + + XOR: + category: core + documentation_short: Logical and binary eXclusive OR. + documentation: | + The instruction ``XOR`` is defined on boolean and natural number operands. + In the former case, the result is the logical XOR of the operands. + In the latter case, the result is the binary XOR of the operands. + + types: string: documentation_short: "A string of characters" @@ -1008,6 +1078,13 @@ types: big_map_value: true examples: - '"2019-09-26T10:59:51Z"' + - '1571659294' + documentation: | + Literal ``timestamp``\ s are written either using ``RFC3339`` notation + in a string (readable), or as the number of seconds since Epoch in + a natural (optimized). + + key: documentation_short: "A public cryptography key" comparable: false -- GitLab From 82fdaf7e897e585c60e901c10752e383cd3461ac Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Mon, 21 Oct 2019 16:55:54 +0200 Subject: [PATCH 234/252] Document DIPn/DROPn/EMPTY_BIG_MAP/INT/ISNAT --- .../michelson_reference/michelson-meta.yaml | 66 +++++++++++++++++-- 1 file changed, 60 insertions(+), 6 deletions(-) diff --git a/docs/doc_gen/michelson_reference/michelson-meta.yaml b/docs/doc_gen/michelson_reference/michelson-meta.yaml index 8a2e397e9012..d1d6aa1b7844 100644 --- a/docs/doc_gen/michelson_reference/michelson-meta.yaml +++ b/docs/doc_gen/michelson_reference/michelson-meta.yaml @@ -105,8 +105,11 @@ instructions: category: core documentation_short: Runs code protecting the top of the stack. documentation: | - ``DIP code`` stores and removes the top element of the stacks, runs ``code``, and - then restores the previous top element. + ``DIP n code`` runs ``code`` protecting the ``n`` topmost + elements of the stack. In particular, ``DIP 0 code`` is + equivalent to ``code`` and ``DIP 1 code`` is equivalent to ``DIP + code``. + examples: - description: | @@ -120,13 +123,14 @@ instructions: DUP: category: core documentation_short: Duplicate the top of the stack. + DROP: category: core documentation_short: Drop the top ``n`` elements of the stack. documentation: | - ``DROP n`` removes the top ``n`` element of the stacks - and then restores the previous top element. - + ``DROP n`` drops the `n` topmost elements of the stack. In + particular, ``DROP 0`` is a noop and ``DROP 1`` is equivalent to + ``DROP``. FAILWITH: category: core @@ -528,13 +532,23 @@ instructions: EMPTY_MAP: category: core - documentation_short: Build a new, empty map from ``kty`` to ``vty``. + documentation_short: Build a new, empty ``map`` from ``kty`` to ``vty``. documentation: | Build a new, empty map from keys of a given type ``kty`` to values of the other given type ``vty``. The ``cty`` type must be comparable. + EMPTY_BIG_MAP: + category: core + documentation_short: Build a new, empty ``big_map`` from ``kty`` to ``vty``. + documentation: | + Build a new, empty map from keys of a given type ``kty`` to values of + the other given type ``vty``. + + The ``cty`` type must be comparable. The ``vty`` type cannot be + a ``operation`` or ``big_map``. + EMPTY_SET: category: core documentation_short: Build a new, empty set for elements of type ``cty``. @@ -974,6 +988,46 @@ instructions: In the former case, the result is the logical XOR of the operands. In the latter case, the result is the binary XOR of the operands. + DIG: + category: core + documentation_short: Retrieves the ``n``\ th element of the stack + documentation: | + ``DIG n`` consumes a stack that contains at least ``n`` + elements. It removes the ``n``\ th element of the stack, and + puts it on the top of the stack. The element on top of the stack + is the 0th element, so that ``DIG 0`` is a no-op. + In other words, ``DIG`` transforms a stack on the form ``x0 : x1 : + ... : xn : ...`` into the stack ``xn : x0 : x1 : ...``. + + The inverse of ``DIG`` is ``DUG``. + + DUG: + category: core + documentation_short: Insert the top element at depth ``n`` + documentation: | + ``DUG n`` consumes a stack that contains at least ``n`` + elements. It removes the top element of the stack, and inserts + it at the ``n``\ th level in the stack. The element on top of + the stack is at depth ``0`` so that ``DUG 0`` is a no-op. In + other words, ``DUG`` transforms a stack on the form ``x0 : x1 : + ... : xn : ...`` into the stack ``x0 : x1 : ... : x0 : xn : + ...``. + + The inverse of ``DUG`` is ``DIG``. + + INT: + category: core + documentation_short: Converts a natural number to an integer. + + ISNAT: + category: core + documentation_short: Converts an non-negative integer to a natural number. + documentation: | + The ``ISNAT`` instruction consumes an integer ``i`` and returns + a value of type ``option nat``. If the integer is non-negative, + ``Some n`` is returned, where ``n`` is equal to ``i`` but + represented as a natural number. Otherwise, ``None`` is + returned. types: string: -- GitLab From 7a9121b0861638bf49f40649dbfc9d8ecfa3b6ed Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Mon, 21 Oct 2019 17:40:19 +0200 Subject: [PATCH 235/252] attempt to regularize the terms used throughout the reference --- .../michelson_reference/michelson-meta.yaml | 58 +++++++++---------- .../michelson_reference/templates/body.html | 52 +++++++++++++++++ 2 files changed, 81 insertions(+), 29 deletions(-) diff --git a/docs/doc_gen/michelson_reference/michelson-meta.yaml b/docs/doc_gen/michelson_reference/michelson-meta.yaml index d1d6aa1b7844..bdf8399214c6 100644 --- a/docs/doc_gen/michelson_reference/michelson-meta.yaml +++ b/docs/doc_gen/michelson_reference/michelson-meta.yaml @@ -43,7 +43,7 @@ instructions: category: core documentation_short: Loop with accumulator. documentation: | - The ``LOOP_LEFT body`` instructions executes ``body`` as long + The ``LOOP_LEFT body`` instruction executes ``body`` as long as the top element of the stack is ``(Left a)``. The ``body`` of the loop must consume a value of type ``a`` and produce a value of type ``(or a b)``. @@ -227,7 +227,7 @@ instructions: documentation_short: Pack a value in a union (left case). NOOP: category: core - documentation_short: Empty sequence. + documentation_short: Empty instruction sequence. PAIR: category: core documentation_short: "Build a pair from the stack's top two elements." @@ -239,7 +239,7 @@ instructions: documentation_short: Pack a value in a union (right case). SEQ: category: core - documentation_short: Sequence. + documentation_short: Instruction sequence. SWAP: category: core documentation_short: Exchange the top two elements of the stack. @@ -385,9 +385,9 @@ instructions: category: core documentation_short: 'Verifies ``signature`` of ``bytes`` by ``key``.' documentation: | - Verifies that a sequence of bytes has been signed with a given key. - This instruction consumes three parameters: a ``key``, a ``signature`` and a - sequence of bytes. It pushes ``True`` if and only if the signature is a + Verifies that a byte sequence has been signed with a given key. + This instruction consumes three operands: a ``key``, a ``signature`` and a + byte sequence. It pushes ``True`` if and only if the signature is a valid signature of the byte sequence by the given key. examples: @@ -407,7 +407,7 @@ instructions: documentation_short: 'Compares two values.' documentation: | Comparison only works on a class of types that we call - comparable. The ``COMPARE`` instructions is defined in an ad hoc way + comparable. The ``COMPARE`` instruction is defined in an ad hoc way for each comparable type, but the result of ``COMPARE`` is always an ``int``, which can in turn be checked in a generic manner using the ``EQ``, ``NEQ``, ``LT``, ``GT``, ``LE`` and @@ -428,7 +428,7 @@ instructions: final_storage: 'Unit' CONCAT: category: core - documentation_short: String, string list and byte sequence concatenation. + documentation_short: String, byte sequence, string list and byte sequence list concatenation. documentation: | The ``CONCAT`` operator is overloaded four times: @@ -471,7 +471,7 @@ instructions: If and only if the address is a valid Tezos contract address with the type ``ty``, then the result is ``Some contract`` is pushed. If the address belongs to an implicit contract, then the type parameter ``ty`` must be ``unit``. - If these conditions are not fulfilled, ``None`` is pushed. + If any of these conditions are not fulfilled, ``None`` is pushed. examples: - name: A variety of comparisons @@ -502,7 +502,7 @@ instructions: category: core documentation_short: Forge a new contract from a literal. documentation: | - Originate a contract based on a literal. The parameters are the + Originate a contract based on a literal. The operands are the optional delegate, the initial amount taken from the currently executed contract, and the initial storage of the originated contract. The contract is returned as a first class value (to be dropped, passed @@ -513,7 +513,7 @@ instructions: category: deprecated documentation_short: Forge an account creation operation. documentation: | - Takes as argument the manager, optional delegate, the delegatable flag + Takes as operands the manager, optional delegate, the delegatable flag and finally the initial amount taken from the currently executed contract. This instruction originates a contract with two entrypoints; ``%default`` of type ``unit`` that does nothing and ``%do`` of type @@ -565,7 +565,7 @@ instructions: The ``EQ`` instruction consumes an integer and leaves ``True`` on the stack if it is ``0`` and ``False`` otherwise. - It is typically composed with ``COMPARE``: the sequence + It is typically composed with ``COMPARE``: the instruction sequence ``COMPARE; EQ`` leaves ``True`` on the stack if the two top stack elements are equal, and ``False`` otherwise. @@ -576,7 +576,7 @@ instructions: The ``NEQ`` instruction consumes an integer and leaves ``True`` on the stack if it is not ``0`` and ``False`` otherwise. - It is typically composed with ``COMPARE``: the sequence + It is typically composed with ``COMPARE``: the instruction sequence ``COMPARE; NEQ`` leaves ``True`` on the stack if the two top stack elements are not equal, and ``False`` otherwise. @@ -587,7 +587,7 @@ instructions: The ``LT`` instruction consumes an integer and leaves ``True`` on the stack if it is less than ``0`` and ``False`` otherwise. - It is typically composed with ``COMPARE``: the sequence + It is typically composed with ``COMPARE``: the instruction sequence ``COMPARE; LT`` leaves ``True`` on the stack if the first stack element is less than the second, and ``False`` otherwise. @@ -598,7 +598,7 @@ instructions: The ``GT`` instruction consumes an integer and leaves ``True`` on the stack if it is greater than ``0`` and ``False`` otherwise. - It is typically composed with ``COMPARE``: the sequence + It is typically composed with ``COMPARE``: the instruction sequence ``COMPARE; GT`` leaves ``True`` on the stack if the first stack element is greater than the second, and ``False`` otherwise. @@ -609,7 +609,7 @@ instructions: The ``LE`` instruction consumes an integer and leaves ``True`` on the stack if it is less than or equal to ``0`` and ``False`` otherwise. - It is typically composed with ``COMPARE``: the sequence + It is typically composed with ``COMPARE``: the instruction sequence ``COMPARE; LE`` leaves ``True`` on the stack if the first stack element is less than or equal to the second, and ``False`` otherwise. @@ -620,7 +620,7 @@ instructions: The ``GE`` instruction consumes an integer and leaves ``True`` on the stack if it is greater than or equal to ``0`` and ``False`` otherwise. - It is typically composed with ``COMPARE``: the sequence + It is typically composed with ``COMPARE``: the instruction sequence ``COMPARE; GE`` leaves ``True`` on the stack if the first stack element is greater than or equal to the second, and ``False`` otherwise. @@ -717,11 +717,11 @@ instructions: The ``TRANSFER_TOKENS`` instruction consumes a value ``v`` of type ``ty1``, an amount ``a`` in ``mutez`` and a ``c`` of type ``contract ty1``. It returns a transfer operation that will send to ``a`` mutez to the - specified contract ``c`` with the parameter ``v``. + specified contract ``c`` with the parameter value ``v``. - Consequently, the parameter must be consistent with the one - expected by the contract. In the case the contract is an - account, then the parameter must be of type ``unit``. + Consequently, the parameter value must be consistent with the + parameter type of the contract. In the case the contract is an + implicit account, then the parameter must be of type ``unit``. HASH_KEY: category: domain @@ -758,7 +758,7 @@ instructions: val``, and must thus have the type ``Pair ty1 ty2 : A => A``. - In each case, the body sequence has access to the stack. + In each case, the body has access to the stack. LAMBDA: category: core @@ -814,7 +814,7 @@ instructions: The ``NOT`` instruction is defined for ``bool``, ``nat`` and ``int``. - For ``bool``, it returns the logical negation of its argument. + For ``bool``, it returns the logical negation of its operand. For numerical values, it returns the complement as an ``int``. In this case, the return type is an ``int`` and not a ``nat``. @@ -910,12 +910,12 @@ instructions: documentation_short: Produce a delegation operation. documentation: | The ``SET_DELEGATE`` is used to add, updated or remove a - delegation. It consumes an argument of type ``option + delegation. It consumes an operand of type ``option key_hash``. - If the argument is ``None``, then the produced operation will + If the operand is ``None``, then the produced operation will remove the executing contracts current delegation, if any. If - the argument is ``Some k``, then the produced operation will + the operand is ``Some k``, then the produced operation will update, or add a delegation, from the executing contract to the implicit account specified by ``k``. @@ -965,7 +965,7 @@ instructions: documentation: | Consumes two numerical values and returns their difference. The - the return type depends on the argument type: + the return type depends on the operand type: - Integers can be subtracted from natural numbers and vice versa, in which case the result type is always an @@ -1226,7 +1226,7 @@ types: - ["{ 0 ; 3 ; 4 }", 'set nat'] contract: - documentation_short: "A contract, with the type of its code, i.e. its parameter" + documentation_short: "A contract, with the type of its code, i.e. its parameter type" insertions: [ 'contract nat' ] comparable: false literal: false @@ -1244,7 +1244,7 @@ types: Values of the ``contract`` type cannot be serialized using ``PACK``, nor can they be taken as a parameter or be stored. There are not literal values of type contract. - Instead, such values are created using primitives such as + Instead, such values are created using instructions such as ``CONTRACT`` or ``IMPLICIT_ACCOUNT``. address: diff --git a/docs/doc_gen/michelson_reference/templates/body.html b/docs/doc_gen/michelson_reference/templates/body.html index 2e3a1d6e30ff..409a71a77605 100644 --- a/docs/doc_gen/michelson_reference/templates/body.html +++ b/docs/doc_gen/michelson_reference/templates/body.html @@ -16,6 +16,58 @@ example to load it in the interpeter: In addition, the stack type of each location of the examples can be exampes by hovering the mouse over that location. +

Terminology

+ +
+
Instruction
+
Instructions refers to Michelson primitives such as ADD. + Not to be confused with operations.
+
Operation
+
The side effect of a contract execution is a new storage and a list of operations. + An operation is either a transfer, an account creation or a delegation.
+
Numerical type
+
Refers to any of the numerical types of Michelson: + int, + nat, + timestamp or + mutez. + Numerical values are values of one these types. +
Sequence type
+
Refers to any of the two sequence type of Michelson: string or bytes. +
+
Structural type
+
Refers to any of the structural types of Michelson: + list, + set, + map or + big_map. + Structural values are values of one these types. +
+
Argument
+
Michelson instructions may be indexed by arguments. + For instance, the + arguments of PUSH nat 3 is nat and 3. + The argument of DIP 2 is 2. + Not to be confused with operands and parameters. +
+
Operand
+
Refers to stack values consumed by instructions. + Not to be confused with arguments and parameters. +
+
Parameter
+
Parameter may refer to three things. + First, each contract has a parameter type and when called, takes a parameter value of this type. + Second, some michelson data types, such as list are parametric. + For instance, a list of integer list nat is an instance of the list type with + the type parameter instantiated to nat. + Finally, the input type of a lambda. + Not to be confused with arguments and operands. +
+
Return value
+
Refers either to the stack values produced by an instruction, or the return value of a lambda. +
+
+

Types

See below for an explanation of type attributes. -- GitLab From 0b75633e732c622d00a397a7abd898fd0dd7964b Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Mon, 21 Oct 2019 17:50:30 +0200 Subject: [PATCH 236/252] avoid . in documentation_short --- .../michelson_reference/michelson-meta.yaml | 160 +++++++++--------- 1 file changed, 80 insertions(+), 80 deletions(-) diff --git a/docs/doc_gen/michelson_reference/michelson-meta.yaml b/docs/doc_gen/michelson_reference/michelson-meta.yaml index bdf8399214c6..01ba578ba53b 100644 --- a/docs/doc_gen/michelson_reference/michelson-meta.yaml +++ b/docs/doc_gen/michelson_reference/michelson-meta.yaml @@ -5,7 +5,7 @@ categories: instructions: ADD: category: core - documentation_short: Adds two numerical values. + documentation_short: Adds two numerical values documentation: | Adds numerical values. This instruction is polymorphic and accepts any combination of natural numbers and integers as operands. @@ -27,7 +27,7 @@ instructions: hide_final_storage: True ADDRESS: category: core - documentation_short: Push the address of a contract. + documentation_short: Push the address of a contract documentation: | This instruction consumes a contract value and produces the address of that contract. @@ -41,7 +41,7 @@ instructions: LOOP_LEFT: category: core - documentation_short: Loop with accumulator. + documentation_short: Loop with accumulator documentation: | The ``LOOP_LEFT body`` instruction executes ``body`` as long as the top element of the stack is ``(Left a)``. The ``body`` @@ -61,7 +61,7 @@ instructions: final_storage: '{ "c" ; "b" ; "a" }' CDR: category: core - documentation_short: Access the right part of a pair. + documentation_short: Access the right part of a pair examples: - name: Store right parameter description: | @@ -74,7 +74,7 @@ instructions: final_storage: '9' CAR: category: core - documentation_short: Access the left part of a pair. + documentation_short: Access the left part of a pair examples: - name: Store left parameter description: | @@ -87,7 +87,7 @@ instructions: final_storage: '15' CHAIN_ID: category: core - documentation_short: Push the chain identifier. + documentation_short: Push the chain identifier examples: - name: Push the chain identifier. description: | @@ -100,10 +100,10 @@ instructions: hide_final_storage: True PAIR: category: core - documentation_short: Build a pair from the stack’s top two elements. + documentation_short: Build a pair from the stack’s top two elements DIP: category: core - documentation_short: Runs code protecting the top of the stack. + documentation_short: Runs code protecting the top of the stack documentation: | ``DIP n code`` runs ``code`` protecting the ``n`` topmost elements of the stack. In particular, ``DIP 0 code`` is @@ -122,11 +122,11 @@ instructions: final_storage: '(Pair 15 24)' DUP: category: core - documentation_short: Duplicate the top of the stack. + documentation_short: Duplicate the top of the stack DROP: category: core - documentation_short: Drop the top ``n`` elements of the stack. + documentation_short: Drop the top ``n`` elements of the stack documentation: | ``DROP n`` drops the `n` topmost elements of the stack. In particular, ``DROP 0`` is a noop and ``DROP 1`` is equivalent to @@ -134,11 +134,11 @@ instructions: FAILWITH: category: core - documentation_short: Explicitly abort the current program. + documentation_short: Explicitly abort the current program IF: category: core - documentation_short: Conditional branching. + documentation_short: Conditional branching documentation: | The ``IF bt bf`` instruction consumes a stack ``b : S`` of type ``bool : A``. I.e., ``b`` is a ``boolean`` and the trailing @@ -151,7 +151,7 @@ instructions: IF_CONS: category: core - documentation_short: Inspect a list. + documentation_short: Inspect a list documentation: | The ``IF_CONS bt bf`` instruction consumes a stack ``l : S`` of type ``list ty1 : A``. I.e., ``l`` is a ``list ty1`` and the trailing @@ -166,7 +166,7 @@ instructions: IF_SOME: category: core - documentation_short: Inspect an optional value. + documentation_short: Inspect an optional value documentation: | The ``IF_SOME bt bf`` instruction consumes a stack ``v : S`` of type ``option ty1 : A``. I.e., ``v`` is a ``option ty1`` and the trailing @@ -181,7 +181,7 @@ instructions: IF_NONE: category: core - documentation_short: Inspect an optional value (symmetric with ``IF_SOME``). + documentation_short: Inspect an optional value (symmetric with ``IF_SOME``) documentation: | The ``IF_NONE bt bf`` instruction consumes a stack ``v : S`` of type ``option ty1 : A``. I.e., ``v`` is a ``option ty1`` and the trailing @@ -196,7 +196,7 @@ instructions: IF_LEFT: category: core - documentation_short: Inspect a value of a union. + documentation_short: Inspect a value of a union documentation: | The ``IF_LEFT bt bf`` instruction consumes a stack ``v : S`` of type ``or ty1 ty2 : A``. I.e., ``v`` is a ``or ty1 ty2`` and the trailing @@ -210,7 +210,7 @@ instructions: IF_RIGHT: category: core - documentation_short: Inspect a value of a union (symmetric with ``IF_LEFT``). + documentation_short: Inspect a value of a union (symmetric with ``IF_LEFT``) documentation: | The ``IF_RIGHT bt bf`` instruction consumes a stack ``v : S`` of type ``or ty1 ty2 : A``. I.e., ``v`` is a ``or ty1 ty2`` and the trailing @@ -224,28 +224,28 @@ instructions: LEFT: category: core - documentation_short: Pack a value in a union (left case). + documentation_short: Pack a value in a union (left case) NOOP: category: core - documentation_short: Empty instruction sequence. + documentation_short: Empty instruction sequence PAIR: category: core - documentation_short: "Build a pair from the stack's top two elements." + documentation_short: "Build a pair from the stack's top two elements" PUSH: category: core - documentation_short: Push a constant value of a given type onto the stack. + documentation_short: Push a constant value of a given type onto the stack RIGHT: category: core - documentation_short: Pack a value in a union (right case). + documentation_short: Pack a value in a union (right case) SEQ: category: core - documentation_short: Instruction sequence. + documentation_short: Instruction sequence SWAP: category: core - documentation_short: Exchange the top two elements of the stack. + documentation_short: Exchange the top two elements of the stack PACK: category: core - documentation_short: Serialize data. + documentation_short: Serialize data documentation: | Serializes any value of packable type to its optimized binary representation, of type ``bytes``. @@ -263,7 +263,7 @@ instructions: final_storage: 'Unit' UNPACK: category: core - documentation_short: Deserializes a piece of data, if valid. + documentation_short: Deserializes a piece of data, if valid documentation: | Serialize a value of type ``bytes`` into the corresponding Michelson value of type ``ty1``. If the top of the stack is not the serialization of a Michelson value of type ``ty1``, then ``None`` is pushed. @@ -283,7 +283,7 @@ instructions: final_storage: 'Unit' BLAKE2B: category: core - documentation_short: Compute a Blake2B cryptographic hash. + documentation_short: Compute a Blake2B cryptographic hash documentation: | Compute the cryptographic hash of the top of the stack using the BLAKE2B cryptographic hash function. @@ -296,17 +296,17 @@ instructions: final_storage: '0xc5b7e76c15ce98128a840b54c38f462125766d2ed3a6bff0e76f7f3eb415df04' SHA256: category: core - documentation_short: Compute a SHA-256 cryptographic hash. + documentation_short: Compute a SHA-256 cryptographic hash documentation: | Compute the cryptographic hash of the top of the stack using the SHA-256 cryptographic hash function. SHA512: category: core - documentation_short: Compute a SHA-512 cryptographic hash. + documentation_short: Compute a SHA-512 cryptographic hash documentation: | Compute the cryptographic hash of the top of the stack using the SHA-512 cryptographic hash function. ABS: category: core - documentation_short: Obtain the absolute value of an integer. + documentation_short: Obtain the absolute value of an integer documentation: | ``ABS`` consumes an integer and pushes its absolute value, with type ``nat``, on the stack. @@ -327,7 +327,7 @@ instructions: hide_final_storage: True AMOUNT: category: core - documentation_short: Push the amount of the current transaction. + documentation_short: Push the amount of the current transaction documentation: | Push the amount of the current transaction, in ``mutez``. @@ -341,7 +341,7 @@ instructions: hide_final_storage: True AND: category: core - documentation_short: Logical and binary AND. + documentation_short: Logical and binary AND documentation: | The instruction ``AND`` is defined on boolean and natural number operands. In the former case, the result is the logical AND of the operands. @@ -368,7 +368,7 @@ instructions: hide_final_storage: True BALANCE: category: core - documentation_short: Push the current amount of mutez of the current contract. + documentation_short: Push the current amount of mutez of the current contract documentation: | Push the current amount of mutez of the current contract, including any mutez added by the transaction. @@ -383,7 +383,7 @@ instructions: hide_final_storage: True CHECK_SIGNATURE: category: core - documentation_short: 'Verifies ``signature`` of ``bytes`` by ``key``.' + documentation_short: 'Verifies ``signature`` of ``bytes`` by ``key``' documentation: | Verifies that a byte sequence has been signed with a given key. This instruction consumes three operands: a ``key``, a ``signature`` and a @@ -404,7 +404,7 @@ instructions: final_storage: '(Pair "edsigthTzJ8X7MPmNeEwybRAvdxS1pupqcM5Mk4uCuyZAe7uEk68YpuGDeViW8wSXMrCi5CwoNgqs8V2w8ayB5dMJzrYCHhD8C7" "hello")' COMPARE: category: core - documentation_short: 'Compares two values.' + documentation_short: 'Compares two values' documentation: | Comparison only works on a class of types that we call comparable. The ``COMPARE`` instruction is defined in an ad hoc way @@ -428,7 +428,7 @@ instructions: final_storage: 'Unit' CONCAT: category: core - documentation_short: String, byte sequence, string list and byte sequence list concatenation. + documentation_short: String, byte sequence, string list and byte sequence list concatenation documentation: | The ``CONCAT`` operator is overloaded four times: @@ -465,7 +465,7 @@ instructions: CONTRACT: category: core - documentation_short: 'Push the untyped version of a contract.' + documentation_short: 'Push the untyped version of a contract' documentation: | Converts from an ``address`` to a ``contract ty``. If and only if the address is a valid Tezos contract address with the type ``ty``, @@ -485,7 +485,7 @@ instructions: CONS: category: core - documentation_short: Prepend an element to a list. + documentation_short: Prepend an element to a list documentation: | Prepends the element at the top of the stack to the list that is the second element of the stack. @@ -500,7 +500,7 @@ instructions: CREATE_CONTRACT: category: core - documentation_short: Forge a new contract from a literal. + documentation_short: Forge a new contract from a literal documentation: | Originate a contract based on a literal. The operands are the optional delegate, the initial amount taken from the currently @@ -511,7 +511,7 @@ instructions: CREATE_ACCOUNT: category: deprecated - documentation_short: Forge an account creation operation. + documentation_short: Forge an account creation operation documentation: | Takes as operands the manager, optional delegate, the delegatable flag and finally the initial amount taken from the currently executed @@ -532,7 +532,7 @@ instructions: EMPTY_MAP: category: core - documentation_short: Build a new, empty ``map`` from ``kty`` to ``vty``. + documentation_short: Build a new, empty ``map`` from ``kty`` to ``vty`` documentation: | Build a new, empty map from keys of a given type ``kty`` to values of the other given type ``vty``. @@ -541,7 +541,7 @@ instructions: EMPTY_BIG_MAP: category: core - documentation_short: Build a new, empty ``big_map`` from ``kty`` to ``vty``. + documentation_short: Build a new, empty ``big_map`` from ``kty`` to ``vty`` documentation: | Build a new, empty map from keys of a given type ``kty`` to values of the other given type ``vty``. @@ -551,7 +551,7 @@ instructions: EMPTY_SET: category: core - documentation_short: Build a new, empty set for elements of type ``cty``. + documentation_short: Build a new, empty set for elements of type ``cty`` documentation: | Build a new, empty set for elements of a given type ``cty``. @@ -560,7 +560,7 @@ instructions: EQ: category: core - documentation_short: Checks that the top of the stack EQuals zero. + documentation_short: Checks that the top of the stack EQuals zero documentation: | The ``EQ`` instruction consumes an integer and leaves ``True`` on the stack if it is ``0`` and ``False`` otherwise. @@ -571,7 +571,7 @@ instructions: NEQ: category: core - documentation_short: Checks that the top of the stack does Not EQual zero. + documentation_short: Checks that the top of the stack does Not EQual zero documentation: | The ``NEQ`` instruction consumes an integer and leaves ``True`` on the stack if it is not ``0`` and ``False`` otherwise. @@ -582,7 +582,7 @@ instructions: LT: category: core - documentation_short: Checks that the top of the stack is Less Than zero. + documentation_short: Checks that the top of the stack is Less Than zero documentation: | The ``LT`` instruction consumes an integer and leaves ``True`` on the stack if it is less than ``0`` and ``False`` otherwise. @@ -593,7 +593,7 @@ instructions: GT: category: core - documentation_short: Checks that the top of the stack is Greater Than zero. + documentation_short: Checks that the top of the stack is Greater Than zero documentation: | The ``GT`` instruction consumes an integer and leaves ``True`` on the stack if it is greater than ``0`` and ``False`` otherwise. @@ -604,7 +604,7 @@ instructions: LE: category: core - documentation_short: Checks that the top of the stack is Less Than of Equal to zero. + documentation_short: Checks that the top of the stack is Less Than of Equal to zero documentation: | The ``LE`` instruction consumes an integer and leaves ``True`` on the stack if it is less than or equal to ``0`` and ``False`` otherwise. @@ -615,7 +615,7 @@ instructions: GE: category: core - documentation_short: Checks that the top of the stack is Greater Than of Equal to zero. + documentation_short: Checks that the top of the stack is Greater Than of Equal to zero documentation: | The ``GE`` instruction consumes an integer and leaves ``True`` on the stack if it is greater than or equal to ``0`` and ``False`` otherwise. @@ -627,7 +627,7 @@ instructions: EXEC: category: core - documentation_short: Execute a function from the stack. + documentation_short: Execute a function from the stack documentation: | The ``EXEC`` instruction consumes a value ``x`` of type ``a`` and a value ``f`` of type `lambda a b`, applies the lambda to @@ -636,7 +636,7 @@ instructions: APPLY: category: core - documentation_short: Partially apply a tuplified function from the stack. + documentation_short: Partially apply a tuplified function from the stack documentation: | Partially apply a tuplified function from the stack. That is, the ``APPLY`` instruction consumes a value ``x`` of type ``a`` @@ -653,7 +653,7 @@ instructions: GET: category: core - documentation_short: Access an element in a ``map`` or ``big_map``. + documentation_short: Access an element in a ``map`` or ``big_map`` documentation: | The instruction ``GET`` consumes a key and a ``map`` or ``big_map`` and returns an optional value: ``None`` if the key is not present in the data structure, @@ -661,7 +661,7 @@ instructions: MEM: category: core - documentation_short: Check for the presence of a binding for a key in a ``map``, ``set`` or ``big_map``. + documentation_short: Check for the presence of a binding for a key in a ``map``, ``set`` or ``big_map`` documentation: | The instruction ``GET`` consumes a value and a data structure of type ``map``, ``set`` or big_map``. @@ -699,7 +699,7 @@ instructions: MAP: category: core - documentation_short: Assign or remove an element in a map. + documentation_short: Assign or remove an element in a map documentation: | The instruction ``UPDATE`` consumes a key, an optional value and a map. It returns the map, is updated in the following way: @@ -712,7 +712,7 @@ instructions: TRANSFER_TOKENS: category: domain - documentation_short: Forge a transaction. + documentation_short: Forge a transaction documentation: | The ``TRANSFER_TOKENS`` instruction consumes a value ``v`` of type ``ty1``, an amount ``a`` in ``mutez`` and a ``c`` of type ``contract ty1``. It returns @@ -725,7 +725,7 @@ instructions: HASH_KEY: category: domain - documentation_short: Compute the b58check of a public key. + documentation_short: Compute the b58check of a public key documentation: | The ``HASH_KEY`` instruction computes the [b58check](https://en.bitcoin.it/wiki/Base58Check) of a public @@ -734,7 +734,7 @@ instructions: IMPLICIT_ACCOUNT: category: domain - documentation_short: Create an implicit account. + documentation_short: Create an implicit account documentation: | Return a default contract (an implicit account) with the given public/private key pair. Any funds deposited in this contract @@ -744,7 +744,7 @@ instructions: ITER: category: core - documentation_short: Iterate over a ``set``, ``list`` or ``map``. + documentation_short: Iterate over a ``set``, ``list`` or ``map`` documentation: | Iterate on a ``set``, ``list`` or ``map``. @@ -762,14 +762,14 @@ instructions: LAMBDA: category: core - documentation_short: Push a lambda onto the stack. + documentation_short: Push a lambda onto the stack documentation: | Push a lambda with parameter type ``ty1``, return type ``ty2`` and body ``code`` onto the stack. LOOP: category: core - documentation_short: A generic loop. + documentation_short: A generic loop documentation: | The instruction ``LOOP`` consumes a stack ``b : S`` of type @@ -792,7 +792,7 @@ instructions: LSR: category: core - documentation_short: Logically right shift an natural number. + documentation_short: Logically right shift an natural number documentation: | The ``LSR`` instruction consumes two natural numbers and produces the first number logically right-shifted by second number. @@ -801,7 +801,7 @@ instructions: MUL: category: core - documentation_short: Multiplicates two numerical values. + documentation_short: Multiplicates two numerical values documentation: | The ``MUL`` instruction consumes two natural numbers (int or nat) and produces their product. ``MUL`` can also be used to @@ -809,7 +809,7 @@ instructions: NOT: category: core - documentation_short: Logical negation and bitwise complement. + documentation_short: Logical negation and bitwise complement documentation: | The ``NOT`` instruction is defined for ``bool``, ``nat`` and ``int``. @@ -825,7 +825,7 @@ instructions: NEG: category: core - documentation_short: Negates a numerical value. + documentation_short: Negates a numerical value documentation: | The ``NEG`` instruction consumes a natural number (``int`` or @@ -834,7 +834,7 @@ instructions: NIL: category: core - documentation_short: Produces an empty list. + documentation_short: Produces an empty list documentation: | The ``NIL ty1`` instruction produces the empty list of type ``list ty1``. @@ -842,7 +842,7 @@ instructions: NONE: category: core - documentation_short: Produces the absent optional value. + documentation_short: Produces the absent optional value documentation: | The ``NONE ty1`` instruction produces the @@ -852,7 +852,7 @@ instructions: SOME: category: core - documentation_short: Pack a present optional value. + documentation_short: Pack a present optional value documentation: | The ``SOME`` instruction packs the top element ``x`` of the @@ -861,7 +861,7 @@ instructions: SENDER: category: domain - documentation_short: Push the contract that initiated current internal transaction. + documentation_short: Push the contract that initiated current internal transaction documentation: | Push the contract that initiated the current @@ -871,7 +871,7 @@ instructions: SOURCE: category: domain - documentation_short: Push the contract that initiated the current transaction. + documentation_short: Push the contract that initiated the current transaction documentation: | Push the contract that initiated the current transaction, i.e. the contract that paid the fees and @@ -883,7 +883,7 @@ instructions: SELF: category: domain - documentation_short: Push the current contract. + documentation_short: Push the current contract documentation: | The ``SELF`` contract pushes the current contract, of type ``contract ty1`` where ``ty1`` is the type of the currnet @@ -899,7 +899,7 @@ instructions: OR: category: core - documentation_short: Logical and binary OR. + documentation_short: Logical and binary OR documentation: | The instruction ``OR`` is defined on boolean and natural number operands. In the former case, the result is the logical OR of the operands. @@ -907,7 +907,7 @@ instructions: SET_DELEGATE: category: core - documentation_short: Produce a delegation operation. + documentation_short: Produce a delegation operation documentation: | The ``SET_DELEGATE`` is used to add, updated or remove a delegation. It consumes an operand of type ``option @@ -921,7 +921,7 @@ instructions: SIZE: category: core - documentation_short: Get the size of a ``string``, ``list``, ``set``, ``map`` or byte sequence. + documentation_short: Get the size of a ``string``, ``list``, ``set``, ``map`` or byte sequence documentation: | The ``SIZE`` instruction consumes and returns the size of the @@ -936,7 +936,7 @@ instructions: SLICE: category: core - documentation_short: Obtain a substring or subsequence of a ``string`` respectively byte sequence ``bytes``. + documentation_short: Obtain a substring or subsequence of a ``string`` respectively byte sequence ``bytes`` documentation: | The ``SLICE`` instruction consumes two natural numbers ``offset`` and ``length`` @@ -952,7 +952,7 @@ instructions: STEPS_TO_QUOTA: category: domain - documentation_short: Push the remaining steps before the contract execution must terminate. + documentation_short: Push the remaining steps before the contract execution must terminate documentation: | *Deprecated*. The ``STEPS_TO_QUOTA`` instruction pushes the @@ -961,7 +961,7 @@ instructions: SUB: category: core - documentation_short: Subtract two numerical values. + documentation_short: Subtract two numerical values documentation: | Consumes two numerical values and returns their difference. The @@ -978,11 +978,11 @@ instructions: UNIT: category: core - documentation_short: Push a unit value onto the stack. + documentation_short: Push a unit value onto the stack XOR: category: core - documentation_short: Logical and binary eXclusive OR. + documentation_short: Logical and binary eXclusive OR documentation: | The instruction ``XOR`` is defined on boolean and natural number operands. In the former case, the result is the logical XOR of the operands. @@ -1017,11 +1017,11 @@ instructions: INT: category: core - documentation_short: Converts a natural number to an integer. + documentation_short: Converts a natural number to an integer ISNAT: category: core - documentation_short: Converts an non-negative integer to a natural number. + documentation_short: Converts an non-negative integer to a natural number documentation: | The ``ISNAT`` instruction consumes an integer ``i`` and returns a value of type ``option nat``. If the integer is non-negative, -- GitLab From 07aeb0be14336888d5a16e528e73106227dbc7ff Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Mon, 21 Oct 2019 17:50:40 +0200 Subject: [PATCH 237/252] update description of LOOP --- docs/doc_gen/michelson_reference/michelson-meta.yaml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/docs/doc_gen/michelson_reference/michelson-meta.yaml b/docs/doc_gen/michelson_reference/michelson-meta.yaml index 01ba578ba53b..a993d3364831 100644 --- a/docs/doc_gen/michelson_reference/michelson-meta.yaml +++ b/docs/doc_gen/michelson_reference/michelson-meta.yaml @@ -777,11 +777,11 @@ instructions: stack is of any type ``A``. The body of the loop, ``code``, is executed as long as ``b`` is ``True``. The body has access to the stack ``S`` but must produce a stack of type ``bool : A``. If ``b`` is - ``False``, then the resulting stack is ``S``. + ``False``, then the loop is terminated with the resulting stack ``S``. LSL: category: core - documentation_short: Logically left shift a natural number. + documentation_short: Logically left shift a natural number documentation: | The ``LSL`` instruction consumes two natural numbers and produces -- GitLab From 8ffeeee69c752c79498f99fe652d873e914225a7 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Tue, 29 Oct 2019 11:19:22 +0100 Subject: [PATCH 238/252] Add latest version of michocott, adds types --- .../doc_gen/michelson_reference/michelson.ott | 737 ++++++++++-------- 1 file changed, 425 insertions(+), 312 deletions(-) diff --git a/docs/doc_gen/michelson_reference/michelson.ott b/docs/doc_gen/michelson_reference/michelson.ott index a2ef643c7cf0..a2ce8f97be2c 100644 --- a/docs/doc_gen/michelson_reference/michelson.ott +++ b/docs/doc_gen/michelson_reference/michelson.ott @@ -6,17 +6,20 @@ Open Scope string_scope. Module Mutez. Inductive mutez :=. End Mutez. + }} -metavar nat_litteral ::= {{ coq N }} +metavar nat_litteral ::= {{ coq nat }} {{ phantom }} metavar int_litteral ::= {{ coq Z }} metavar string_litteral ::= {{ coq String.string }} -metavar timestamp_litteral ::= {{ coq Z }} -metavar signature_litteral ::= {{ coq String.string }} -metavar key_litteral ::= {{ coq String.string }} -metavar key_hash_litteral ::= {{ coq String.string }} -metavar mutez_litteral ::= {{ coq Mutez.mutez }} -metavar contract_litteral ::= {{ coq String.string }} +% metavar ctx ::= {{ coq option type }} + +% metavar timestamp_litteral ::= {{ coq Z }} +% metavar signature_litteral ::= {{ coq String.string }} +% metavar key_litteral ::= {{ coq String.string }} +% metavar key_hash_litteral ::= {{ coq String.string }} +% metavar mutez_litteral ::= {{ coq Mutez.mutez }} +% metavar contract_litteral ::= {{ coq String.string }} indexvar N ::= {{ coq nat }} @@ -45,29 +48,41 @@ bitop :: 'bitop_' ::= %% Data litterals -nat_lit, n :: 'n_' ::= {{ coq nat }} {{ phantom }} - | 0 :: M :: NatZero {{ coq 0 }} - | 1 :: M :: NatOne {{ coq 1 }} - | 256 :: M :: NatMaxByte {{ coq 256 }} - | length s :: M :: StringLength {{ coq (String.length s) }} - | abs z :: M :: Abs {{ coq (Z.abs_nat [[z]]) }} +% nat_lit, n :: 'n_' ::= {{ coq nat }} {{ phantom }} +% | 0 :: M :: NatZero {{ coq 0 }} +% | 1 :: M :: NatOne {{ coq 1 }} +% | 256 :: M :: NatMaxByte {{ coq 256 }} +% | length s :: M :: StringLength {{ coq (String.length s) }} +% | abs z :: M :: Abs {{ coq (Z.abs_nat [[z]]) }} -int_lit, z :: 'z_' ::= {{ coq Z }} {{ phantom }} +int_lit, il, z, ts, nz :: 'z_' ::= {{ coq Z }} {{ phantom }} | 0 :: M :: IntZero {{ coq 0 }} | 1 :: M :: IntOne {{ coq 1 }} - -num, nz :: 'num_' ::= - | int_lit :: :: IntConstant - | nat_lit :: :: NatConstant - | nz1 aop nz2 :: M :: Aop {{ coq ( num_apply_aop [[aop]] [[nz1]] [[nz2]] ) }} - | nz1 bitop nz2 :: M :: Bitop {{ coq ( num_apply_bitop [[bitop]] [[nz1]] [[nz2]] ) }} - | - nz :: M :: NumNeg {{ coq ( num_neg [[nz]] ) }} - | ~ nz :: M :: BitNeg {{ coq ( num_bit_neg [[nz]] ) }} - -string_lit, s , t :: 's_' ::= {{ coq String.string }} {{ phantom }} + | 256 :: M :: NatMaxByte {{ coq 256 }} + | z1 aop z2 :: M :: Aop {{ coq ( num_apply_aop [[aop]] [[z1]] [[z2]] ) }} + | z1 bitop z2 :: M :: Bitop {{ coq ( num_apply_bitop [[bitop]] [[z1]] [[z2]] ) }} + | - z :: M :: NumNeg {{ coq ( num_neg [[z]] ) }} + | ~ z :: M :: BitNeg {{ coq ( num_bit_neg [[z]] ) }} + | length s :: M :: StringLength {{ coq (Z.of_nat (String.length s)) }} + | abs z :: M :: Abs {{ coq (Z.abs [[z]]) }} + +% num, nz :: 'num_' ::= +% | int_lit :: :: IntConstant +% | nat_lit :: :: NatConstant +% | nz1 aop nz2 :: M :: Aop {{ coq ( num_apply_aop [[aop]] [[nz1]] [[nz2]] ) }} +% | nz1 bitop nz2 :: M :: Bitop {{ coq ( num_apply_bitop [[bitop]] [[nz1]] [[nz2]] ) }} +% | - nz :: M :: NumNeg {{ coq ( num_neg [[nz]] ) }} +% | ~ nz :: M :: BitNeg {{ coq ( num_bit_neg [[nz]] ) }} + +string_lit, s , t , sig :: 's_' ::= {{ coq String.string }} {{ phantom }} | "" :: M :: StringEmpty {{ coq ("") }} | ( s ^ s' ) :: M :: Concat {{ coq (String.append [[s]] [[s']]) }} - | slice s n1 n2 :: M :: StringSlice {{ coq (String.substring [[n1]] [[n2]] [[s]]) }} + | slice s z1 z2 :: M :: StringSlice {{ coq (String.substring (Z.to_nat [[z1]]) (Z.to_nat [[z2]]) [[s]]) }} + +bytes_lit, byt :: 'byt_' ::= {{ coq String.string }} {{ phantom }} + | 0x :: M :: BytesEmpty {{ coq ("") }} + | ( byt ^ byt' ) :: M :: Concat {{ coq (Bytes.append [[byt]] [[byt']]) }} + | slice byt n1 n2 :: M :: BytesSlice {{ coq (Bytes.subbytes [[n1]] [[n2]] [[byt]]) }} bool_lit, b :: 'b_' ::= {{ coq bool }} {{ phantom }} | True :: M :: True {{ coq true }} @@ -75,53 +90,56 @@ bool_lit, b :: 'b_' ::= {{ coq bool }} {{ phantom }} | ( b1 bop b2 ) :: M :: Bop {{ coq ( [[bop]] [[b1]] [[b2]] ) }} | ! b2 :: M :: Neg {{ coq ( negb [[b2]] ) }} -set_or_list, tl :: 'setlist_' ::= {{ coq list data }} {{ phantom }} +set_or_list, tl, m :: 'setlist_' ::= {{ coq list concrete_data }} {{ phantom }} | {} :: M :: Nil {{ coq nil }} | { d ; tl } :: M :: Cons {{ coq ([[d]] :: [[tl]]) }} %% meta-productions | { d } :: M :: Singleton {{ coq ([[d]] :: nil) }} | < tl > :: M :: Chevron {{ coq [[tl]] }} -map_elt :: '' ::= - | Elt k v :: :: Elt +% map_elt :: '' ::= +% | Elt k v :: :: Elt -map_lit, m :: 'map_' ::= {{ coq list (data * data) }} {{ phantom }} - | {} :: M :: Nil {{ coq nil }} - | { Elt d d' ; m } :: M :: Cons {{ coq (([[d]], [[d']])::[[m]]) }} - % meta-productions - | { Elt d d' } :: M :: Singleton {{ coq (([[d]], [[d']])::nil) }} - | < m > :: M :: Chevron {{ coq [[m]] }} - %| { Elt d1 d1' ; .. ; Elt dN dN' } :: :: Map +% map_lit, m :: 'map_' ::= {{ coq list (concrete_data * concrete_data) }} {{ phantom }} +% | {} :: M :: Nil {{ coq nil }} +% | { Elt d d' ; m } :: M :: Cons {{ coq (([[d]], [[d']])::[[m]]) }} +% % meta-productions +% | { Elt d d' } :: M :: Singleton {{ coq (([[d]], [[d']])::nil) }} +% | < m > :: M :: Chevron {{ coq [[m]] }} +% %| { Elt d1 d1' ; .. ; Elt dN dN' } :: :: Map %% Data -data, x, y, k, v, d, opt_y :: d_ ::= - | num :: :: Num - | string_lit :: :: StringConstant +concrete_data, data, x, y, k, v, d, opt_y :: d_ ::= + | int_lit :: :: Int_constant + | string_lit :: :: String_constant + | bytes_lit :: :: Bytes_constant | bool_lit :: :: Bool - | timestamp_litteral :: :: Timestamp - | signature_litteral :: :: Signature - | key_litteral :: :: Key - | key_hash_litteral :: :: Key_hash - | mutez_litteral :: :: Mutez - | contract_litteral :: :: Contract + % | timestamp_litteral :: :: Timestamp + % | signature_litteral :: :: Signature + % | key_litteral :: :: Key + % | key_hash_litteral :: :: Key_hash + % | mutez_litteral :: :: Mutez + % | contract_litteral :: :: Contract | Unit :: :: Unit | Pair x y :: :: Pair | Left x :: :: Left | Right y :: :: Right | Some x :: :: Some | None :: :: None - | set_or_list :: :: SetList - | map_lit :: :: Map - | code :: :: instruction - | 0 :: M :: zero {{ coq data_int 0%Z}} + | set_or_list :: :: Concrete_seq + % | map_lit :: :: Map + | Elt x y :: :: Elt + | code :: :: Instruction + + % | 0 :: M :: zero {{ coq data_int 0%Z}} | ( data ) :: M :: Paren {{ coq ( [[data]] ) }} %% Types -type, ty, vty, kty, cty :: ty_ ::= +simple_comparable_type, scty :: scty_ ::= | string :: :: string | nat :: :: nat | int :: :: int @@ -129,7 +147,15 @@ type, ty, vty, kty, cty :: ty_ ::= | bool :: :: bool | mutez :: :: mutez | key_hash :: :: key_hash + | address :: :: address | timestamp :: :: timestamp + +comparable_type, cty, kty :: scty_ ::= + | simple_comparable_type :: :: Simple_comparable_type + | pair simple_comparable_type comparable_type :: :: Pair_comparable_type + +type, ty, vty :: ty_ ::= + | scty :: :: Comparable_type | key :: :: key | unit :: :: unit | signature :: :: signature @@ -137,7 +163,6 @@ type, ty, vty, kty, cty :: ty_ ::= | list type :: :: list | set cty :: :: set | contract type :: :: contract - | address :: :: address | operation :: :: operation | pair ty1 ty2 :: :: pair | or ty1 ty2 :: :: or @@ -145,9 +170,11 @@ type, ty, vty, kty, cty :: ty_ ::= | map kty vty :: :: map | big_map kty vty :: :: big_map | chain_id :: :: chain_id - - | self_ty :: M :: self_ty {{coq self_ty}} + %% Meta productions + % | self_ty ctx :: M :: self_ty {{coq self_ty [[ctx]] }} | ( ty1 ) :: M :: parens {{coq ([[ty1]])}} + %% Explicit coercion of comparable_type to type + | to_type cty :: M :: test_cty {{coq ( comparable_type_to_type [[cty]] ) }} %% Operations @@ -177,8 +204,10 @@ function :: 'i_' ::= | PUSH ty1 x :: :: PUSH | UNIT :: :: UNIT | LAMBDA ty1 ty2 code :: :: LAMBDA + | APPLY :: :: APPLY | EMPTY_SET cty :: :: EMPTY_SET | EMPTY_MAP kty vty :: :: EMPTY_MAP + | EMPTY_BIG_MAP kty vty :: :: EMPTY_BIG_MAP | NONE ty1 :: :: NONE | NIL ty1 :: :: NIL | BALANCE :: :: BALANCE @@ -186,7 +215,6 @@ function :: 'i_' ::= | SENDER :: :: SENDER | SELF :: :: SELF | AMOUNT :: :: AMOUNT - | STEPS_TO_QUOTA :: :: STEPS_TO_QUOTA | NOW :: :: NOW | comparison :: :: unary_comparison @@ -194,6 +222,8 @@ function :: 'i_' ::= | NOT :: :: NOT | NEG :: :: NEG | ABS :: :: ABS + | INT :: :: INT + | ISNAT :: :: ISNAT | SIZE :: :: SIZE | CAR :: :: CAR | CDR :: :: CDR @@ -204,12 +234,12 @@ function :: 'i_' ::= | CONTRACT ty :: :: CONTRACT | SET_DELEGATE :: :: SET_DELEGATE | IMPLICIT_ACCOUNT :: :: IMPLICIT_ACCOUNT + | CHAIN_ID :: :: CHAIN_ID | PACK :: :: PACK | UNPACK ty1 :: :: UNPACK | binary_bitwise :: :: b_bitwise | EXEC :: :: EXEC - | APPLY :: :: APPLY | LSL :: :: LSL | LSR :: :: LSR | COMPARE :: :: COMPARE @@ -219,16 +249,14 @@ function :: 'i_' ::= | GET :: :: GET | CONS :: :: CONS - | DROP n :: :: DROP | DUP :: :: DUP | SWAP :: :: SWAP | SLICE :: :: SLICE | UPDATE :: :: UPDATE - | CREATE_ACCOUNT :: :: CREATE_ACCOUNT + % | CREATE_ACCOUNT :: :: CREATE_ACCOUNT | TRANSFER_TOKENS :: :: TRANSFER_TOKENS | CHECK_SIGNATURE :: :: CHECK_SIGNATURE - | CHAIN_ID :: :: CHAIN_ID | ADD :: :: ADD | SUB :: :: SUB @@ -237,7 +265,7 @@ function :: 'i_' ::= %% Code -code, i, body :: 'i_' ::= +instruction, code, i, body :: 'i_' ::= | function :: :: Fun | FAILWITH :: :: FAILWITH | {} :: :: NOOP @@ -245,19 +273,21 @@ code, i, body :: 'i_' ::= | IF code1 code2 :: :: IF | LOOP code :: :: LOOP | LOOP_LEFT code :: :: LOOP_LEFT - | DIP code :: :: DIP + | DIP nat_litteral code :: :: DIP + | DIG nat_litteral :: :: DIG + | DUG nat_litteral :: :: DUG + | DROP nat_litteral :: :: DROP | ITER code :: :: ITER | MAP code :: :: MAP - | IF_SOME code1 code2 :: :: IF_SOME | IF_NONE code1 code2 :: :: IF_NONE | IF_LEFT code1 code2 :: :: IF_LEFT | IF_RIGHT code1 code2 :: :: IF_RIGHT | IF_CONS code1 code2 :: :: IF_CONS - | CREATE_CONTRACT code :: :: CREATE_CONTRACT + | CREATE_CONTRACT ty1 ty2 code :: :: CREATE_CONTRACT %% Stack -stack, st, S :: Stack_ ::= {{coq list data }} {{ phantom }} +stack, st, S :: Stack_ ::= {{coq list concrete_data }} {{ phantom }} | [] :: M :: empty {{ coq nil }} | d : S :: M :: cons {{ coq ([[d]] :: [[S]]) }} @@ -265,31 +295,65 @@ stack_type, A, B, C :: Stack_type_ ::= {{ coq Datatypes.list type }} {{ phantom | [] :: :: empty {{ coq nil}} | ty1 ':' A :: :: cons {{ coq (cons[[ty1]][[A]])}} | A @ B :: M :: append {{ coq (List.app[[A]][[B]])}} + | ( A ) :: M :: paren {{ coq ( [[A]] ) }} + % | [ ty1 ; .. ; tyN ] :: M :: stack_type_list {{ coq [[ ty1 .. tyN ]] }} % A stackerr is either failed or a stack, which is a list of data. stackerr, SE :: 'SE_' ::= | [FAILED] :: :: Failed | stack :: :: Stack +% a context + +code_context, ctx :: 'cc_' ::= {{ coq option type }} {{ phantom }} + | Some ty :: :: Some {{ coq ( Some [[ty]] ) }} + | None :: :: None {{ coq None }} + + %% Formulas formula :: formula_ ::= | judgement :: :: judgement | formula1 .. formulaN :: :: dots - | get_contract_type contract_litteral ty :: M :: get_contract_rel - {{ coq get_contract_rel [[contract_litteral]] [[ty]] }} - | x = y :: M :: eq {{coq (compare [[x]] i_EQ [[y]])}} - | x <> y :: M :: neq {{coq (compare [[x]] i_NEQ [[y]])}} - | x < y :: M :: lt {{coq (compare [[x]] i_LT [[y]])}} - | x > y :: M :: gt {{coq (compare [[x]] i_GT [[y]])}} - | x <= y :: M :: le {{coq (compare [[x]] i_LE [[y]])}} - | x >= y :: M :: ge {{coq (compare [[x]] i_GE [[y]])}} - | is_comparable type :: M :: is_comparable {{ coq False }} + | get_contract_type s ty :: M :: get_contract_rel + {{ coq C.get_contract_rel [[s]] [[ty]] }} + + | x = y :: M :: deq {{coq (compare [[x]] i_EQ [[y]])}} + | x <> y :: M :: dneq {{coq (compare [[x]] i_NEQ [[y]])}} + | s < t :: M :: seq {{coq (string_compare_lt [[s]] [[t]])}} + | s > t :: M :: sneq {{coq (string_compare_lt [[t]] [[s]])}} + + | z1 < z2 :: M :: lt {{coq ([[z1]] z2 :: M :: gt {{coq ([[z1]] >? [[z2]] = true)}} + | z1 <= z2 :: M :: le {{coq ([[z1]] <=? [[z2]] = true)}} + | z1 >= z2 :: M :: ge {{coq ([[z1]] >=? [[z2]] = true)}} + + | ctx = ctx' :: M :: ctx_eq {{ coq ([[ctx]] = [[ctx']]) }} + + | length A = nat_litteral :: M :: stack_len {{ coq List.length [[A]] = [[nat_litteral]] }} + + % {{coq ctx_self_ty [[ctx]] }} embed {{coq -Section syntax. - Variable self_ty : type. - Variable get_contract_rel : String.string -> type -> Prop. + +Fixpoint comparable_type_to_type (c : comparable_type) : type := + match c with + | scty_simple_comparable_type scty => ty_Comparable_type scty + | scty_pair_comparable_type scty cty => + ty_pair (ty_Comparable_type scty) + (comparable_type_to_type cty) + end. + + +Module Type ContractContext. + Parameter get_contract_rel : String.string -> type -> Prop. +End ContractContext. + +Module Semantics (C : ContractContext). + (* Variable self_ty : type. *) + (* Variable get_contract_rel : String.string -> type -> Prop. *) + (* Coercion comparable_type_to_type : comparable_type >-> type. *) + }} embed {{ coq @@ -301,465 +365,505 @@ defns Typing :: 't_' ::= defn - x '::' ty :: :: data_has_type :: 'data_' by + ctx :- x '::' ty :: :: data_has_type :: 'data_' by ------------------ :: int - int_lit :: int + ctx :- z :: int + + z >= 0 ------------------ :: nat - nat_lit :: nat + ctx :- z :: nat ------------------------ :: string - string_lit :: string + ctx :- string_lit :: string ------------------------------ :: timestamp - timestamp_litteral :: timestamp + ctx :- ts :: timestamp ------------------------------ :: signature - signature_litteral :: signature + ctx :- s :: signature ------------------ :: key - key_litteral :: key + ctx :- s :: key ---------------------------- :: key_hash - key_hash_litteral :: key_hash + ctx :- s :: key_hash ---------------------- :: mutez - mutez_litteral :: mutez + ctx :- z :: mutez - get_contract_type contract_litteral ty1 + get_contract_type s ty1 ------------------------------------- :: contract - contract_litteral :: contract ty1 + ctx :- s :: contract ty1 + + ------------------------------------- :: address + ctx :- s :: address + + ------------------------------------- :: chain_id + ctx :- s :: chain_id + + ------------------------------------- :: bytes + ctx :- byt :: bytes ----------- :: Unit - Unit :: unit + ctx :- Unit :: unit ----------- :: bool - bool_lit :: bool + ctx :- bool_lit :: bool - x :: ty1 - y :: ty2 + ctx :- x :: ty1 + ctx :- y :: ty2 ------------------- :: Pair - Pair x y :: pair ty1 ty2 + ctx :- Pair x y :: pair ty1 ty2 - x :: ty1 + ctx :- x :: ty1 --------------- :: Left - Left x :: or ty1 ty2 + ctx :- Left x :: or ty1 ty2 - y :: ty2 + ctx :- y :: ty2 ---------------- :: Right - Right y :: or ty1 ty2 + ctx :- Right y :: or ty1 ty2 - x :: ty1 + ctx :- x :: ty1 ----------------- :: Some - Some x :: option ty1 + ctx :- Some x :: option ty1 --------------- :: None - None :: option ty1 + ctx :- None :: option ty1 ------------------------ :: set_empty - :setlist_Nil: {} :: set cty + ctx :- :setlist_Nil: {} :: set cty - x :: cty - tl :: set cty + ctx :- x :: to_type cty + ctx :- tl :: set cty ------------------------ :: set_cons - { x ; } :: set cty + ctx :- { x ; } :: set cty ------------------------ :: list_empty - :setlist_Nil: {} :: list cty + ctx :- :setlist_Nil: {} :: list ty - x :: cty - tl :: list cty + ctx :- x :: ty + ctx :- tl :: list ty ------------------------ :: list_cons - { x ; } :: list cty + ctx :- { x ; } :: list ty ------------------------ :: map_empty - :map_Nil: {} :: map kty vty + ctx :- :setlist_Nil: {} :: map kty vty - x :: kty - y :: vty - m :: map kty vty + ctx :- x :: to_type kty + ctx :- y :: vty + ctx :- m :: map kty vty ------------------------ :: map_cons - { Elt x y ; } :: map kty vty + ctx :- { Elt x y ; } :: map kty vty - code :: ty1 : [] => ty2 : [] + %% ctx should have no self_type + None :- code :: ty1 : [] => ty2 : [] ------------------------- :: instruction - code :: lambda ty1 ty2 + ctx :- code :: lambda ty1 ty2 - defn - map_elt '::' kty, vty :: :: map_elt_has_type :: 'map_elt_' by + % defn + % map_elt '::' kty, vty :: :: map_elt_has_type :: 'map_elt_' by - k :: kty - v :: vty - ------------------ :: map_elt - Elt k v :: kty, vty + % k :: to_type kty + % v :: vty + % ------------------ :: map_elt + % Elt k v :: kty, vty defn - function '::' A -> B :: :: fun_has_type :: 'instr_' by + ctx :- function '::' A -> B :: :: fun_has_type :: 'instr_' by - x :: ty1 + ctx :- x :: ty1 ---------------------------- :: PUSH - PUSH ty1 x :: [] -> ty1 : [] + ctx :- PUSH ty1 x :: [] -> ty1 : [] ----------------------- :: UNIT - UNIT :: [] -> unit : [] + ctx :- UNIT :: [] -> unit : [] - code :: ty1 : [] => ty2 : [] + None :- code :: ty1 : [] => ty2 : [] ------------------------------------------------ :: LAMBDA - LAMBDA ty1 ty2 code :: [] -> lambda ty1 ty2 : [] + ctx :- LAMBDA ty1 ty2 code :: [] -> lambda ty1 ty2 : [] ----------------------------------- :: EMPTY_SET - EMPTY_SET cty :: [] -> set cty : [] + ctx :- EMPTY_SET cty :: [] -> set cty : [] ------------------------------------------- :: EMPTY_MAP - EMPTY_MAP kty vty :: [] -> map kty vty : [] + ctx :- EMPTY_MAP kty vty :: [] -> map kty vty : [] + + ------------------------------------------- :: EMPTY_BIG_MAP + ctx :- EMPTY_BIG_MAP kty vty :: [] -> big_map kty vty : [] --------------------------------- :: NONE - NONE ty1 :: [] -> option ty1 : [] + ctx :- NONE ty1 :: [] -> option ty1 : [] ------------------------------ :: NIL - NIL ty1 :: [] -> list ty1 : [] + ctx :- NIL ty1 :: [] -> list ty1 : [] --------------------------- :: BALANCE - BALANCE :: [] -> mutez : [] + ctx :- BALANCE :: [] -> mutez : [] ---------------------------- :: SOURCE - SOURCE :: [] -> address : [] + ctx :- SOURCE :: [] -> address : [] ---------------------------- :: SENDER - SENDER :: [] -> address : [] + ctx :- SENDER :: [] -> address : [] + %% self_ty : can be Some or None, how to match? + ctx = Some ty -------------------------- :: SELF - SELF :: [] -> self_ty : [] + ctx :- SELF :: [] -> contract ty : [] -------------------------- :: AMOUNT - AMOUNT :: [] -> mutez : [] - - -------------------------------- :: STEPS_TO_QUOTA - STEPS_TO_QUOTA :: [] -> nat : [] + ctx :- AMOUNT :: [] -> mutez : [] --------------------------- :: NOW - NOW :: [] -> timestamp : [] + ctx :- NOW :: [] -> timestamp : [] ----------------------------------- :: comparison - comparison :: int : [] -> bool : [] + ctx :- comparison :: int : [] -> bool : [] ----------------------------- :: NOT__bool - NOT :: bool : [] -> bool : [] + ctx :- NOT :: bool : [] -> bool : [] --------------------------- :: NOT__nat - NOT :: nat : [] -> int : [] + ctx :- NOT :: nat : [] -> int : [] --------------------------- :: NOT__int - NOT :: int : [] -> int : [] + ctx :- NOT :: int : [] -> int : [] --------------------------- :: NEG__nat - NEG :: nat : [] -> int : [] + ctx :- NEG :: nat : [] -> int : [] --------------------------- :: NEG__int - NEG :: int : [] -> int : [] + ctx :- NEG :: int : [] -> int : [] --------------------------- :: ABS - ABS :: int : [] -> nat : [] + ctx :- ABS :: int : [] -> nat : [] + + --------------------------- :: INT + ctx :- INT :: nat : [] -> int : [] + + --------------------------- :: ISNAT + ctx :- ISNAT :: int : [] -> option nat : [] -------------------------------- :: SIZE__set - SIZE :: set cty : [] -> nat : [] + ctx :- SIZE :: set cty : [] -> nat : [] ------------------------------------ :: SIZE__map - SIZE :: map kty vty : [] -> nat : [] + ctx :- SIZE :: map kty vty : [] -> nat : [] ------------------------------- :: SIZE__list - SIZE :: list ty1 : [] -> nat : [] + ctx :- SIZE :: list ty1 : [] -> nat : [] ------------------------------- :: SIZE__string - SIZE :: string : [] -> nat : [] + ctx :- SIZE :: string : [] -> nat : [] ------------------------------ :: SIZE__bytes - SIZE :: bytes : [] -> nat : [] + ctx :- SIZE :: bytes : [] -> nat : [] ------------------------------ :: CAR - CAR :: pair ty1 ty2 : [] -> ty1 : [] + ctx :- CAR :: pair ty1 ty2 : [] -> ty1 : [] ------------------------------ :: CDR - CDR :: pair ty1 ty2 : [] -> ty2 : [] + ctx :- CDR :: pair ty1 ty2 : [] -> ty2 : [] ------------------------------- :: SOME - SOME :: ty1 : [] -> option ty1 : [] + ctx :- SOME :: ty1 : [] -> option ty1 : [] ------------------------------- :: LEFT - LEFT ty2 :: ty1 : [] -> or ty1 ty2 : [] + ctx :- LEFT ty2 :: ty1 : [] -> or ty1 ty2 : [] -------------------------------- :: RIGHT - RIGHT ty1 :: ty2 : [] -> or ty1 ty2 : [] + ctx :- RIGHT ty1 :: ty2 : [] -> or ty1 ty2 : [] ------------------------------------------ :: ADDRESS - ADDRESS :: contract ty1 : [] -> address : [] + ctx :- ADDRESS :: contract ty1 : [] -> address : [] --------------------------------------------- :: CONTRACT - CONTRACT ty1 :: address : [] -> contract ty1 : [] + ctx :- CONTRACT ty1 :: address : [] -> option ( contract ty1 ) : [] ------------------------------------------------------ :: SET_DELEGATE - SET_DELEGATE :: option key_hash : [] -> operation : [] + ctx :- SET_DELEGATE :: option key_hash : [] -> operation : [] ------------------------------------------------------- :: IMPLICIT_ACCOUNT - IMPLICIT_ACCOUNT :: key_hash : [] -> contract unit : [] + ctx :- IMPLICIT_ACCOUNT :: key_hash : [] -> contract unit : [] ---------------------------- :: PACK - PACK :: ty1 : [] -> bytes : [] + ctx :- PACK :: ty1 : [] -> bytes : [] -------------------------------- :: UNPACK - UNPACK ty1 :: bytes : [] -> ty1 : [] + ctx :- UNPACK ty1 :: bytes : [] -> option ty1 : [] ------------------------------------- :: HASH_KEY - HASH_KEY :: key : [] -> key_hash : [] + ctx :- HASH_KEY :: key : [] -> key_hash : [] ----------------------------------------- :: HASH - hash_function :: bytes : [] -> bytes : [] + ctx :- hash_function :: bytes : [] -> bytes : [] ----------------------------------------------- :: bitwise_bool - binary_bitwise :: bool : bool : [] -> bool : [] + ctx :- binary_bitwise :: bool : bool : [] -> bool : [] -------------------------------------------- :: bitwise_nat - binary_bitwise :: nat : nat : [] -> nat : [] + ctx :- binary_bitwise :: nat : nat : [] -> nat : [] --------------------------------------------- :: EXEC - EXEC :: ty1 : lambda ty1 ty2 : [] -> ty2 : [] + ctx :- EXEC :: ty1 : lambda ty1 ty2 : [] -> ty2 : [] + + --------------------------------------------- :: APPLY + ctx :- APPLY :: ty1 : lambda (pair ty1 ty2) ty3 : [] -> lambda ty2 ty3 : [] --------------------------------- :: LSL - LSL :: nat : nat : [] -> nat : [] + ctx :- LSL :: nat : nat : [] -> nat : [] --------------------------------- :: LSR - LSR :: nat : nat : [] -> nat : [] + ctx :- LSR :: nat : nat : [] -> nat : [] --------------------------------- :: COMPARE - COMPARE :: cty : cty : [] -> int : [] + ctx :- COMPARE :: to_type cty : to_type cty : [] -> int : [] --------------------------------------------- :: CONCAT__string_list - CONCAT :: list string : [] -> string : [] + ctx :- CONCAT :: list string : [] -> string : [] --------------------------------------------- :: CONCAT__string - CONCAT :: string : string : [] -> string : [] + ctx :- CONCAT :: string : string : [] -> string : [] ------------------------------------------ :: CONCAT__bytes_list - CONCAT :: bytes : bytes : [] -> bytes : [] + ctx :- CONCAT :: bytes : bytes : [] -> bytes : [] ------------------------------------------ :: CONCAT__bytes - CONCAT :: list bytes : [] -> bytes : [] + ctx :- CONCAT :: list bytes : [] -> bytes : [] ----------------------------------- :: PAIR - PAIR :: ty1 : ty2 : [] -> pair ty1 ty2 : [] + ctx :- PAIR :: ty1 : ty2 : [] -> pair ty1 ty2 : [] ---------------------------------- :: MEM__set - MEM :: cty : set cty : [] -> bool : [] + ctx :- MEM :: to_type cty : set cty : [] -> bool : [] ------------------------------------------ :: MEM__map - MEM :: kty : map kty vty : [] -> bool : [] + ctx :- MEM :: to_type kty : map kty vty : [] -> bool : [] ---------------------------------------------- :: MEM__big_map - MEM :: kty : big_map kty vty : [] -> bool : [] + ctx :- MEM :: to_type kty : big_map kty vty : [] -> bool : [] ------------------------------------------------ :: GET__map - GET :: kty : map kty vty : [] -> option vty : [] + ctx :- GET :: to_type kty : map kty vty : [] -> option vty : [] ---------------------------------------------------- :: GET__big_map - GET :: kty : big_map kty vty : [] -> option vty : [] + ctx :- GET :: to_type kty : big_map kty vty : [] -> option vty : [] -------------------------------------------- :: CONS - CONS :: ty1 : list ty1 : [] -> list ty1 : [] - - ---------------------- :: DROP - DROP n :: ty1 : [] -> [] + ctx :- CONS :: ty1 : list ty1 : [] -> list ty1 : [] --------------------------------- :: DUP - DUP :: ty1 : [] -> ty1 : ty1 : [] + ctx :- DUP :: ty1 : [] -> ty1 : ty1 : [] ---------------------------------------- :: SWAP - SWAP :: ty1 : ty2 : [] -> ty2 : ty1 : [] + ctx :- SWAP :: ty1 : ty2 : [] -> ty2 : ty1 : [] ------------------------------------------------------ :: SLICE__string - SLICE :: nat : nat : string : [] -> option string : [] + ctx :- SLICE :: nat : nat : string : [] -> option string : [] ---------------------------------------------------- :: SLICE__bytes - SLICE :: nat : nat : bytes : [] -> option bytes : [] + ctx :- SLICE :: nat : nat : bytes : [] -> option bytes : [] --------------------------------------------------- :: UPDATE__set - UPDATE :: cty : bool : set cty : [] -> set cty : [] + ctx :- UPDATE :: to_type cty : bool : set cty : [] -> set cty : [] ---------------------------------------------------------- :: UPDATE__map - UPDATE :: kty : vty : map kty vty : [] -> map kty vty : [] + ctx :- UPDATE :: to_type kty : option vty : map kty vty : [] -> map kty vty : [] ------------------------------------------------------------------ :: UPDATE__big_map - UPDATE :: kty : vty : big_map kty vty : [] -> big_map kty vty : [] + ctx :- UPDATE :: to_type kty : option vty : big_map kty vty : [] -> big_map kty vty : [] -------------------------------------------------------------------------------------------------------- :: CREATE_ACCOUNT - CREATE_ACCOUNT :: key_hash : option key_hash : bool : mutez : [] -> operation : contract unit : [] +% ------------------------------------------------------------------------------------------------------- :: CREATE_ACCOUNT +% CREATE_ACCOUNT :: key_hash : option key_hash : bool : mutez : [] -> operation : contract unit : [] ------------------------------------------------------------------- :: TRANSFER_TOKENS - TRANSFER_TOKENS :: ty1 : mutez : contract ty1 : [] -> operation : [] + ctx :- TRANSFER_TOKENS :: ty1 : mutez : contract ty1 : [] -> operation : [] --------------------------------------------------------------- :: CHECK_SIGNATURE - CHECK_SIGNATURE :: key : signature : bytes : [] -> bool : [] + ctx :- CHECK_SIGNATURE :: key : signature : bytes : [] -> bool : [] ----------------------------------- :: ADD__nat_nat - ADD :: nat : nat : [] -> nat : [] + ctx :- ADD :: nat : nat : [] -> nat : [] ----------------------------------- :: ADD__nat_int - ADD :: nat : int : [] -> int : [] + ctx :- ADD :: nat : int : [] -> int : [] ----------------------------------- :: ADD__int_nat - ADD :: int : nat : [] -> int : [] + ctx :- ADD :: int : nat : [] -> int : [] ----------------------------------- :: ADD__int_int - ADD :: int : int : [] -> int : [] + ctx :- ADD :: int : int : [] -> int : [] ----------------------------------------------- :: ADD__timestamp_int - ADD :: timestamp : int : [] -> timestamp : [] + ctx :- ADD :: timestamp : int : [] -> timestamp : [] ----------------------------------------------- :: ADD__int_timestamp - ADD :: int : timestamp : [] -> timestamp : [] + ctx :- ADD :: int : timestamp : [] -> timestamp : [] ----------------------------------------- :: ADD__mutez_mutez_mutez - ADD :: mutez : mutez : [] -> mutez : [] + ctx :- ADD :: mutez : mutez : [] -> mutez : [] ----------------------------------- :: SUB__nat_nat - SUB :: nat : nat : [] -> int : [] + ctx :- SUB :: nat : nat : [] -> int : [] ----------------------------------- :: SUB__nat_int - SUB :: nat : int : [] -> int : [] + ctx :- SUB :: nat : int : [] -> int : [] ----------------------------------- :: SUB__int_nat - SUB :: int : nat : [] -> int : [] + ctx :- SUB :: int : nat : [] -> int : [] ----------------------------------- :: SUB__int_int - SUB :: int : int : [] -> int : [] + ctx :- SUB :: int : int : [] -> int : [] ----------------------------------------------- :: SUB__timestamp_int - SUB :: timestamp : int : [] -> timestamp : [] + ctx :- SUB :: timestamp : int : [] -> timestamp : [] ----------------------------------------------- :: SUB__timestamp_timestamp - SUB :: timestamp : timestamp : [] -> int : [] + ctx :- SUB :: timestamp : timestamp : [] -> int : [] ----------------------------------------- :: SUB__mutez_mutez - SUB :: mutez : mutez : [] -> mutez : [] + ctx :- SUB :: mutez : mutez : [] -> mutez : [] ----------------------------------- :: MUL__nat_nat - MUL :: nat : nat : [] -> nat : [] + ctx :- MUL :: nat : nat : [] -> nat : [] ----------------------------------- :: MUL__nat_int - MUL :: nat : int : [] -> int : [] + ctx :- MUL :: nat : int : [] -> int : [] ----------------------------------- :: MUL__int_nat - MUL :: int : nat : [] -> int : [] + ctx :- MUL :: int : nat : [] -> int : [] ----------------------------------- :: MUL__int_int - MUL :: int : int : [] -> int : [] + ctx :- MUL :: int : int : [] -> int : [] --------------------------------------- :: MUL__mutez_nat - MUL :: mutez : nat : [] -> mutez : [] + ctx :- MUL :: mutez : nat : [] -> mutez : [] --------------------------------------- :: MUL__nat_mutez - MUL :: nat : mutez : [] -> mutez : [] + ctx :- MUL :: nat : mutez : [] -> mutez : [] ------------------------------------------- :: EDIV__nat_nat - EDIV :: nat : nat : [] -> nat : nat : [] + ctx :- EDIV :: nat : nat : [] -> option ( pair nat nat ) : [] ------------------------------------------- :: EDIV__nat_int - EDIV :: nat : int : [] -> int : nat : [] + ctx :- EDIV :: nat : int : [] -> option ( pair int nat ) : [] ------------------------------------------- :: EDIV__int_nat - EDIV :: int : nat : [] -> int : nat : [] + ctx :- EDIV :: int : nat : [] -> option ( pair int nat ) : [] ------------------------------------------- :: EDIV__int_int - EDIV :: int : int : [] -> int : nat : [] + ctx :- EDIV :: int : int : [] -> option ( pair int nat ) : [] ------------------------------------------------- :: EDIV__mutez_nat - EDIV :: mutez : nat : [] -> mutez : mutez : [] + ctx :- EDIV :: mutez : nat : [] -> option ( pair mutez mutez ) : [] ------------------------------------------------- :: EDIV__mutez_mutez - EDIV :: mutez : mutez : [] -> nat : mutez : [] + ctx :- EDIV :: mutez : mutez : [] -> option ( pair nat mutez ) : [] + + ------------------------------------------------- :: CHAIN_ID + ctx :- CHAIN_ID :: [] -> chain_id : [] defn - code '::' A => B :: :: code_has_type :: 'instr_' by + ctx :- code '::' A => B :: :: code_has_type :: 'instr_' by - function :: A -> B + ctx :- function :: A -> B ------------------------- :: function - function :: A @ C => B @ C + ctx :- function :: A @ C => B @ C ---------------------- :: FAILWITH - FAILWITH :: ty1 : A => B + ctx :- FAILWITH :: ty1 : A => B ------------- :: NOOP - {} :: A => A + ctx :- {} :: A => A - code1 :: A => B - code2 :: B => C + ctx :- code1 :: A => B + ctx :- code2 :: B => C ------------------------ :: SEQ - code1; code2 :: A => C + ctx :- code1; code2 :: A => C - code1 :: A => B - code2 :: A => B + ctx :- code1 :: A => B + ctx :- code2 :: A => B ------------------------------- :: IF - IF code1 code2 :: bool : A => B + ctx :- IF code1 code2 :: bool : A => B - code :: A => bool : A + ctx :- code :: A => bool : A -------------------------- :: LOOP - LOOP code :: bool : A => A + ctx :- LOOP code :: bool : A => A - code :: ty1 : A => or ty1 ty2 : A + ctx :- code :: ty1 : A => or ty1 ty2 : A --------------------------------- :: LOOP_LEFT - LOOP_LEFT code :: or ty1 ty2 : A => A - - code :: A => B - --------------------------- :: DIP - DIP code :: ty1 : A => ty1 : B + ctx :- LOOP_LEFT code :: or ty1 ty2 : A => ty2 : A - code :: ty1 : A => A + ctx :- code :: ty1 : A => A ---------------------------- :: ITER__list - ITER code :: list ty1 : A => A + ctx :- ITER code :: list ty1 : A => A - code :: cty : A => A + ctx :- code :: to_type cty : A => A ---------------------------- :: ITER__set - ITER code :: set cty : A => A + ctx :- ITER code :: set cty : A => A - code :: (pair kty vty) : A => A + ctx :- code :: (pair ( to_type kty ) vty) : A => A --------------------------------- :: ITER__map - ITER code :: map kty vty : A => A + ctx :- ITER code :: map kty vty : A => A - code :: ty1 : A => ty2 : A + ctx :- code :: ty1 : A => ty2 : A ------------------------------------- :: MAP__list - MAP code :: list ty1 : A => list ty2 : A + ctx :- MAP code :: list ty1 : A => list ty2 : A - code :: (pair kty ty1) : A => ty2 : A + ctx :- code :: (pair ( to_type kty ) ty1) : A => ty2 : A ------------------------------------------- :: MAP__map - MAP code :: map kty ty1 : A => map kty ty2 : A + ctx :- MAP code :: map kty ty1 : A => map kty ty2 : A - code1 :: A => B - code2 :: ty1 : A => B + ctx :- code1 :: A => B + ctx :- code2 :: ty1 : A => B ---------------------------------------- :: IF_NONE - IF_NONE code1 code2 :: option ty1 : A => B + ctx :- IF_NONE code1 code2 :: option ty1 : A => B - code1 :: ty1 : A => B - code2 :: ty2 : A => B + ctx :- code1 :: ty1 : A => B + ctx :- code2 :: ty2 : A => B -------------------------------------- :: IF_LEFT - IF_LEFT code1 code2 :: or ty1 ty2 : A => B + ctx :- IF_LEFT code1 code2 :: or ty1 ty2 : A => B - code1 :: ty2 : A => B - code2 :: ty1 : A => B + ctx :- code1 :: ty2 : A => B + ctx :- code2 :: ty1 : A => B -------------------------------------- :: IF_RIGHT - IF_RIGHT code1 code2 :: or ty1 ty2 : A => B + ctx :- IF_RIGHT code1 code2 :: or ty1 ty2 : A => B - code1 :: ty1 : list ty1 : A => B - code2 :: A => B + ctx :- code1 :: ty1 : list ty1 : A => B + ctx :- code2 :: A => B -------------------------------------- :: IF_CONS - IF_CONS code1 code2 :: list ty1 : A => B + ctx :- IF_CONS code1 code2 :: list ty1 : A => B + + %% ty1 : storage + %% ty2 : parameter + Some ty2 :- code :: pair ty2 ty1 : [] => pair ( list operation ) ty1 : [] + --------------------------------------------------------------- :: CREATE_CONTRACT + ctx :- CREATE_CONTRACT ty1 ty2 code :: option key_hash : mutez : ty1 : A => operation : address : A + + length A = nat_litteral + ------------------------------------------------- :: DIG + ctx :- DIG nat_litteral :: A @ ( ty1 : B ) => ty1 : ( A @ B ) + + length A = nat_litteral + ------------------------------------------------- :: DUG + ctx :- DUG nat_litteral :: ty1 : ( A @ B ) => A @ ( ty1 : B ) --------------------------------------------------------------------------------------------------------------------- :: CREATE_CONTRACT - CREATE_CONTRACT code :: key_hash : option key_hash : bool : bool : mutez : ty2 : A => operation : address : A + length A = nat_litteral + ------------------------------------------------- :: DROP + ctx :- DROP nat_litteral :: A @ B => B + + + length A = nat_litteral + ctx :- code :: B => C + --------------------------- :: DIP + ctx :- DIP nat_litteral code :: A @ B => A @ C defns BigStep :: '' ::= @@ -825,14 +929,19 @@ i1 ; LOOP_LEFT i1 / d : S => S' ------ :: LOOP_LEFT__tt LOOP_LEFT i1 / Left d : S => S' +------ :: LOOP_LEFT__ff +LOOP_LEFT i1 / Right d : S => d : S' + i1 / S => S' ------ :: DIP -DIP i1 / d : S => d : S' +DIP nat_litteral i1 / d : S => d : S' i / d2 : [] => d3 : [] ------ :: EXEC EXEC / i : d2 : S => d3 : S +% 'a : lambda (pair 'a 'b) 'c : 'C -> lambda 'b 'c : 'C + %% %% Stack operations @@ -841,8 +950,10 @@ EXEC / i : d2 : S => d3 : S % :: _ : 'A -> 'A + +% TODO: fix to handle the argument n ----- :: DROP -DROP / d : S => S +DROP nat_litteral / d : S => S % DUP: Duplicate the top of the stack. @@ -1024,7 +1135,7 @@ NOT / False : S => True : S % :: nat : 'S -> int : 'S ----- :: NEG -NEG / n : S => - n : S +NEG / z : S => - z : S % ABS @@ -1041,7 +1152,7 @@ ABS / z : S => abs z : S % :: nat : nat : 'S -> nat : 'S ----- :: ADD -ADD / nz1 : nz2 : S => (nz1 + nz2) : S +ADD / z1 : z2 : S => ( z1 + z2 ) : S % SUB @@ -1051,7 +1162,7 @@ ADD / nz1 : nz2 : S => (nz1 + nz2) : S % :: nat : nat : 'S -> int : 'S ----- :: SUB -SUB / nz1 : nz2 : S => ( nz1 - nz2 ) : S +SUB / z1 : z2 : S => ( z1 - z2 ) : S % MUL @@ -1061,21 +1172,21 @@ SUB / nz1 : nz2 : S => ( nz1 - nz2 ) : S % :: nat : nat : 'S -> nat : 'S ----- :: MUL -MUL / nz1 : nz2 : S => ( nz1 * nz2 ) : S +MUL / z1 : z2 : S => ( z1 * z2 ) : S % EDIV Perform Euclidian division -% :: int : int : 'S -> option (pair int nat) : 'S -% :: int : nat : 'S -> option (pair int nat) : 'S -% :: nat : int : 'S -> option (pair int nat) : 'S +% :: int : int : 'S -> option ( pair int nat ) : 'S +% :: int : nat : 'S -> option ( pair int nat ) : 'S +% :: nat : int : 'S -> option ( pair int nat ) : 'S % :: nat : nat : 'S -> option (pair nat nat) : 'S ----- :: EDIV__0 -EDIV / n : :n_NatZero: 0 : S => None : S +EDIV / z1 : 0 : S => None : S -nz2 <> :n_NatZero: 0 +z2 <> 0 ----- :: EDIV -EDIV / nz1 : nz2 : S => Some ( Pair ( nz1 / nz2 ) ( nz1 % nz2 )) : S +EDIV / z1 : z2 : S => Some ( Pair ( z1 / z2 ) ( z1 % z2 )) : S % Bitwise logical operators are also available on unsigned integers. @@ -1084,25 +1195,25 @@ EDIV / nz1 : nz2 : S => Some ( Pair ( nz1 / nz2 ) ( nz1 % nz2 )) : S % :: nat : nat : 'S -> nat : 'S ----- :: OR__bit -OR / nz1 : nz2 : S => ( nz1 | nz2 ) : S +OR / z1 : z2 : S => ( z1 | z2 ) : S % AND (also available when the top operand is signed) % :: nat : nat : 'S -> nat : 'S % :: int : nat : 'S -> nat : 'S ------ :: AND__bit_nat -AND / n1 : n2 : S => ( n1 & n2 ) : S +% ----- :: AND__bit_nat +% AND / n1 : n2 : S => ( n1 & n2 ) : S ----- :: AND__bit_int_nat -AND / z1 : n2 : S => ( z1 & n2 ) : S +AND / z1 : z2 : S => ( z1 & z2 ) : S % XOR % :: nat : nat : 'S -> nat : 'S ----- :: XOR__bit -XOR / nz1 : nz2 : S => ( nz1 ^ nz2 ) : S +XOR / z1 : z2 : S => ( z1 ^ z2 ) : S % Michelson Documentation: NOT The return type of NOT is an int and not a nat. This is because the sign is also negated. The resulting integer is computed using two’s complement. For instance, the boolean negation of 0 is -1. To get a natural back, a possibility is to use AND with an unsigned mask afterwards. @@ -1110,43 +1221,43 @@ XOR / nz1 : nz2 : S => ( nz1 ^ nz2 ) : S % :: int : 'S -> int : 'S ----- :: NOT__bit -NOT / n : S => ~ n : S +NOT / z : S => ~ z : S % LSL % :: nat : nat : 'S -> nat : 'S -nz2 <= 256 +z2 <= 256 ----- :: LSL -LSL / nz1 : nz2 : S => ( nz1 << nz2 ) : S +LSL / z1 : z2 : S => ( z1 << z2 ) : S -nz2 > 256 +z2 > 256 ----- :: LSL__fail -LSL / nz1 : nz2 : S => [FAILED] +LSL / z1 : z2 : S => [FAILED] % LSR % :: Nat : nat : 'S -> nat : 'S ----- :: LSR -LSR / nz1 : nz2 : S => ( nz1 >> nz2 ) : S +LSR / z1 : z2 : S => ( z1 >> z2 ) : S % COMPARE: Integer/natural comparison % :: int : int : 'S -> int : 'S % :: nat : nat : 'S -> int : 'S -nz1 < nz2 +z1 < z2 ----- :: COMPARE__num_lt -COMPARE / nz1 : nz2 : S => - :z_IntOne: 1 : S +COMPARE / z1 : z2 : S => - :z_IntOne: 1 : S -nz1 = nz2 +z1 = z2 ----- :: COMPARE__num_eq -COMPARE / nz1 : nz2 : S => :z_IntZero: 0 : S +COMPARE / z1 : z2 : S => :z_IntZero: 0 : S -nz1 > nz2 +z1 > z2 ----- :: COMPARE__num_gt -COMPARE / nz1 : nz2 : S => :z_IntOne: 1 : S +COMPARE / z1 : z2 : S => :z_IntOne: 1 : S % Operations on strings @@ -1156,6 +1267,8 @@ COMPARE / nz1 : nz2 : S => :z_IntOne: 1 : S % :: string : string : 'S -> string : 'S +%% TODO: add rules for bytes + ----- :: CONCAT__string CONCAT / s : t : S => ( s ^ t ) : S @@ -1197,9 +1310,9 @@ SIZE / s : S => ( length s ) : S % n: length % n': offset -n1 + n2 < length s +z1 + z2 < length s ----- :: SLICE__some -SLICE / n1 : n2 : s : S => Some ( slice s n1 n2 ) : S +SLICE / z1 : z2 : s : S => Some ( slice s z1 z2 ) : S % where ss is the substring of s at the given offset and of the given length @@ -1207,9 +1320,9 @@ SLICE / n1 : n2 : s : S => Some ( slice s n1 n2 ) : S % n: length % n': offset -nz1 + nz2 >= length s +z1 + z2 >= length s ----- :: SLICE -SLICE / nz1 : nz2 : s : S => None : S +SLICE / z1 : z2 : s : S => None : S % iff offset or (offset + length) are out of bounds @@ -1332,11 +1445,11 @@ ITER body / { x ; < tl > } : S => S' % :: set 'elt : 'S -> nat : 'S ----- :: SIZE__set_nil -SIZE / :setlist_Nil: {} : S => :n_NatZero: 0 : S +SIZE / :setlist_Nil: {} : S => 0 : S -SIZE / tl : S => n : S +SIZE / tl : S => z : S ----- :: SIZE__set_cons -SIZE / { d ; < tl > } : S => :n_NatOne: 1 + n : S +SIZE / { d ; < tl > } : S => 1 + z : S % Operations on maps @@ -1347,14 +1460,14 @@ SIZE / { d ; < tl > } : S => :n_NatOne: 1 + n : S % :: 'S -> map 'key 'val : 'S ----- :: EMPTY_MAP -EMPTY_MAP cty ty / S => :map_Nil: {} : S +EMPTY_MAP cty ty / S => :setlist_Nil: {} : S % GET: Access an element in a map, returns an optional value to be checked with IF_SOME. % :: 'key : map 'key 'val : 'S -> option 'val : 'S ----- :: GET__empty -GET / x : :map_Nil: {} : S => None : S +GET / x : :setlist_Nil: {} : S => None : S COMPARE / x : k : [] => :z_IntOne: 1 : [] GET / x : m : S => opt_y : S @@ -1374,7 +1487,7 @@ GET / x : { Elt k v ; < m > } : S => None : S % :: 'key : map 'key 'val : 'S -> bool : 'S ----- :: MEM__map_empty -MEM / x : :map_Nil: {} : S => False : S +MEM / x : :setlist_Nil: {} : S => False : S COMPARE / x : k : [] => :z_IntOne: 1 : [] MEM / x : m : S => b : S @@ -1394,10 +1507,10 @@ MEM / x : { Elt k v ; < m > } : S => False : S % :: 'key : option 'val : map 'key 'val : 'S -> map 'key 'val : 'S ----- :: UPDATE__map_false -UPDATE / x : None : :map_Nil: {} : S => :map_Nil: {} : S +UPDATE / x : None : :setlist_Nil: {} : S => :setlist_Nil: {} : S ----- :: UPDATE__map_add_nexists -UPDATE / x : Some y : :map_Nil: {} : S => { Elt x y } : S +UPDATE / x : Some y : :setlist_Nil: {} : S => { Elt x y } : S COMPARE / x : k : [] => :z_IntOne: 1 : [] UPDATE / x : opt_y : m : S => m' : S @@ -1426,7 +1539,7 @@ UPDATE / x : Some y : { Elt k v ; < m > } : S => { Elt x y ; { Elt k v ; < m > % iff body :: [ (pair 'key 'val) : 'A -> 'ty2 : 'A ] ----- :: MAP__map_nil -MAP body / :map_Nil: {} : S => :map_Nil: {} : S +MAP body / :setlist_Nil: {} : S => :setlist_Nil: {} : S %% AJ: I'm unsure how to read the conclusion of the original version %% of this rule. what is the meaning of applying body to (Pair k v) ? @@ -1442,7 +1555,7 @@ MAP body / { Elt k v ; < m > } : S => { Elt k v' ; < m' > } : S % iff body :: [ (pair 'elt 'val) : 'A -> 'A ] ----- :: ITER__map_nil -ITER body / :map_Nil: {} : S => S +ITER body / :setlist_Nil: {} : S => S body ; ITER body / (Pair k v) : m : S => S' ----- :: ITER__map_cons @@ -1453,11 +1566,11 @@ ITER body / { Elt k v ; < m > } : S => S' % :: map 'key 'val : 'S -> nat : 'S ----- :: SIZE__map_nil -SIZE / :map_Nil: {} : S => :n_NatZero: 0 : S +SIZE / :setlist_Nil: {} : S => 0 : S -SIZE / m : S => n : S +SIZE / m : S => z : S ----- :: SIZE__map_cons -SIZE / { Elt d d' ; < m > } : S => :n_NatOne: 1 + n : S +SIZE / { Elt d d' ; < m > } : S => 1 + z : S % Operations on big_maps @@ -1587,11 +1700,11 @@ MAP body / :setlist_Nil: {} : S => :setlist_Nil: {} : S % :: list 'elt : 'S -> nat : 'S ----- :: SIZE__list_nil -SIZE / :setlist_Nil: {} : S => :n_NatZero: 0 : S +SIZE / :setlist_Nil: {} : S => 0 : S -SIZE / tl : S => n : S +SIZE / tl : S => z : S ----- :: SIZE__list_cons -SIZE / { d ; } : S => :n_NatOne: 1 + n : S +SIZE / { d ; } : S => 1 + z : S % ITER body: Apply the body expression to each element of a list. The body sequence has access to the stack. @@ -1606,5 +1719,5 @@ ITER body / { d ; } : S => S' ITER body / :setlist_Nil: {} : S => S embed {{coq -End syntax. +End Semantics. }} -- GitLab From 4f2ed01f7e78f6aef492f34a6156b4a81ab603a2 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Fri, 8 Nov 2019 16:18:18 +0100 Subject: [PATCH 239/252] contracts are packable, fix packability tests --- docs/doc_gen/michelson_reference/michelson-meta.yaml | 2 +- tests_python/tests/test_contract_documentation.py | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/docs/doc_gen/michelson_reference/michelson-meta.yaml b/docs/doc_gen/michelson_reference/michelson-meta.yaml index a993d3364831..0ac41b24474b 100644 --- a/docs/doc_gen/michelson_reference/michelson-meta.yaml +++ b/docs/doc_gen/michelson_reference/michelson-meta.yaml @@ -1233,7 +1233,7 @@ types: passable: true big_map_value: true pushable: false - packable: false + packable: true storable: false documentation: A value of type ``contract t`` is guaranteed to be a valid, diff --git a/tests_python/tests/test_contract_documentation.py b/tests_python/tests/test_contract_documentation.py index 2f99bc49cebd..a24f7ff90b82 100644 --- a/tests_python/tests/test_contract_documentation.py +++ b/tests_python/tests/test_contract_documentation.py @@ -52,7 +52,7 @@ def contract_with_val_on_stack(ty_descr, code, storage_ty): if ty_descr['ty'] == 'contract': code = contract( 'unit', storage_ty, - f'SELF; ' + code) + f'DROP; SELF; ' + code) parameter = 'unit' elif ty_descr['ty'] == 'operation': code = contract( @@ -156,7 +156,7 @@ class TestContractsDocumentation: # Check packability @pytest.mark.parametrize('ty, ty_descr', all_types()) - def test_unpackable_values_cannot_be_packed(self, client, ty, ty_descr): + def test_nonpackable_values_cannot_be_packed(self, client, ty, ty_descr): pack_contract = contract_with_val_on_stack( ty_descr, 'PACK; DROP; UNIT; NIL operation; PAIR', 'unit' -- GitLab From 14d886aa07b5aeae2b84a6e55d9b2a997ebd2879 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Thu, 12 Dec 2019 16:15:46 +0100 Subject: [PATCH 240/252] semantics for hash functions and hash_key --- docs/doc_gen/michelson_reference/michelson.ott | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/docs/doc_gen/michelson_reference/michelson.ott b/docs/doc_gen/michelson_reference/michelson.ott index a2ce8f97be2c..92d169422591 100644 --- a/docs/doc_gen/michelson_reference/michelson.ott +++ b/docs/doc_gen/michelson_reference/michelson.ott @@ -11,7 +11,7 @@ End Mutez. metavar nat_litteral ::= {{ coq nat }} {{ phantom }} metavar int_litteral ::= {{ coq Z }} -metavar string_litteral ::= {{ coq String.string }} +% metavar string_litteral ::= {{ coq String.string }} % metavar ctx ::= {{ coq option type }} % metavar timestamp_litteral ::= {{ coq Z }} @@ -78,11 +78,13 @@ string_lit, s , t , sig :: 's_' ::= {{ coq String.string }} {{ phantom }} | "" :: M :: StringEmpty {{ coq ("") }} | ( s ^ s' ) :: M :: Concat {{ coq (String.append [[s]] [[s']]) }} | slice s z1 z2 :: M :: StringSlice {{ coq (String.substring (Z.to_nat [[z1]]) (Z.to_nat [[z2]]) [[s]]) }} + | hash_key s :: M :: HashKey bytes_lit, byt :: 'byt_' ::= {{ coq String.string }} {{ phantom }} | 0x :: M :: BytesEmpty {{ coq ("") }} | ( byt ^ byt' ) :: M :: Concat {{ coq (Bytes.append [[byt]] [[byt']]) }} | slice byt n1 n2 :: M :: BytesSlice {{ coq (Bytes.subbytes [[n1]] [[n2]] [[byt]]) }} + | hash hash_function byt :: M :: HashBytes bool_lit, b :: 'b_' ::= {{ coq bool }} {{ phantom }} | True :: M :: True {{ coq true }} @@ -192,7 +194,6 @@ binary_bitwise :: 'i_' ::= | XOR :: :: XOR hash_function :: 'i_' ::= - | HASH_KEY :: :: HASH_KEY | BLAKE2B :: :: BLAKE2B | SHA256 :: :: SHA256 | SHA512 :: :: SHA512 @@ -219,6 +220,7 @@ function :: 'i_' ::= | comparison :: :: unary_comparison | hash_function :: :: unary_hash + | HASH_KEY :: :: HASH_KEY | NOT :: :: NOT | NEG :: :: NEG | ABS :: :: ABS @@ -1718,6 +1720,13 @@ ITER body / { d ; } : S => S' ----- :: ITER__list_nil ITER body / :setlist_Nil: {} : S => S +------------------------------------- :: HASH_KEY +HASH_KEY / s : S => hash_key s : S + +----------------------------------------- :: HASH +hash_function / byt : S => hash hash_function byt : S + + embed {{coq End Semantics. }} -- GitLab From c9cff9a1bb1b4cbcb508a6ee61cf6699064601a8 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Thu, 12 Dec 2019 16:16:18 +0100 Subject: [PATCH 241/252] semantics for DIG/DUG --- docs/doc_gen/michelson_reference/michelson.ott | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) diff --git a/docs/doc_gen/michelson_reference/michelson.ott b/docs/doc_gen/michelson_reference/michelson.ott index 92d169422591..6421faa9294f 100644 --- a/docs/doc_gen/michelson_reference/michelson.ott +++ b/docs/doc_gen/michelson_reference/michelson.ott @@ -292,6 +292,8 @@ instruction, code, i, body :: 'i_' ::= stack, st, S :: Stack_ ::= {{coq list concrete_data }} {{ phantom }} | [] :: M :: empty {{ coq nil }} | d : S :: M :: cons {{ coq ([[d]] :: [[S]]) }} + | st ++ st' :: M :: append {{ coq (List.app[[st]][[st']])}} + | ( S ) :: M :: paren {{ coq ( [[S]] ) }} stack_type, A, B, C :: Stack_type_ ::= {{ coq Datatypes.list type }} {{ phantom }} | [] :: :: empty {{ coq nil}} @@ -332,7 +334,8 @@ formula :: formula_ ::= | ctx = ctx' :: M :: ctx_eq {{ coq ([[ctx]] = [[ctx']]) }} - | length A = nat_litteral :: M :: stack_len {{ coq List.length [[A]] = [[nat_litteral]] }} + | length A = nat_litteral :: M :: stack_type_len {{ coq List.length [[A]] = [[nat_litteral]] }} + | length S = nat_litteral :: M :: stack_len {{ coq List.length [[S]] = [[nat_litteral]] }} % {{coq ctx_self_ty [[ctx]] }} @@ -1720,6 +1723,16 @@ ITER body / { d ; } : S => S' ----- :: ITER__list_nil ITER body / :setlist_Nil: {} : S => S + +length S1 = nat_litteral +------------------------------------------------- :: DIG +DIG nat_litteral / S1 ++ ( d : S2 ) => d : ( S1 ++ S2 ) + +length S1 = nat_litteral +------------------------------------------------- :: DUG +DUG nat_litteral / d : ( S1 ++ S2 ) => S1 ++ ( d : S2 ) + + ------------------------------------- :: HASH_KEY HASH_KEY / s : S => hash_key s : S -- GitLab From 0c27de205fd1ad6fdcc206176aad148d8f31abf6 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Thu, 12 Dec 2019 16:16:30 +0100 Subject: [PATCH 242/252] semantics for APPLY --- docs/doc_gen/michelson_reference/michelson.ott | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/docs/doc_gen/michelson_reference/michelson.ott b/docs/doc_gen/michelson_reference/michelson.ott index 6421faa9294f..270a9e4c3b7b 100644 --- a/docs/doc_gen/michelson_reference/michelson.ott +++ b/docs/doc_gen/michelson_reference/michelson.ott @@ -133,7 +133,7 @@ concrete_data, data, x, y, k, v, d, opt_y :: d_ ::= | set_or_list :: :: Concrete_seq % | map_lit :: :: Map | Elt x y :: :: Elt - | code :: :: Instruction + | { code : ty1 -> ty2 } :: :: Instruction % | 0 :: M :: zero {{ coq data_int 0%Z}} @@ -465,7 +465,7 @@ Typing :: 't_' ::= %% ctx should have no self_type None :- code :: ty1 : [] => ty2 : [] ------------------------- :: instruction - ctx :- code :: lambda ty1 ty2 + ctx :- { code : ty1 -> ty2 } :: lambda ty1 ty2 % defn % map_elt '::' kty, vty :: :: map_elt_has_type :: 'map_elt_' by @@ -943,10 +943,13 @@ DIP nat_litteral i1 / d : S => d : S' i / d2 : [] => d3 : [] ------ :: EXEC -EXEC / i : d2 : S => d3 : S +EXEC / { i : ty1 -> ty2 } : d2 : S => d3 : S % 'a : lambda (pair 'a 'b) 'c : 'C -> lambda 'b 'c : 'C +%% TODO: from whence ty1 ?? +----------------------------------------- :: APPLY +APPLY / d : { i : ( pair ty1 ty2 ) -> ty3 } : S => { PUSH ty1 d ; PAIR ; i : ty2 -> ty3 } : S %% %% Stack operations @@ -994,7 +997,7 @@ UNIT / S => Unit : S % :: 'A -> (lambda 'ty1 'ty2) : 'A ----- :: LAMBDA -LAMBDA ty ty' i / S => i : S +LAMBDA ty ty' i / S => { i : ty -> ty' } : S %% -- GitLab From b84d8dd1308826d57377bcf5ca0cfa6f3e5d59d5 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Thu, 12 Dec 2019 16:16:37 +0100 Subject: [PATCH 243/252] semantics for EMPTY_BIG_MAP --- docs/doc_gen/michelson_reference/michelson.ott | 3 +++ 1 file changed, 3 insertions(+) diff --git a/docs/doc_gen/michelson_reference/michelson.ott b/docs/doc_gen/michelson_reference/michelson.ott index 270a9e4c3b7b..8f57d71f389e 100644 --- a/docs/doc_gen/michelson_reference/michelson.ott +++ b/docs/doc_gen/michelson_reference/michelson.ott @@ -1470,6 +1470,9 @@ SIZE / { d ; < tl > } : S => 1 + z : S ----- :: EMPTY_MAP EMPTY_MAP cty ty / S => :setlist_Nil: {} : S +----- :: EMPTY_BIG_MAP +EMPTY_BIG_MAP cty ty / S => :setlist_Nil: {} : S + % GET: Access an element in a map, returns an optional value to be checked with IF_SOME. % :: 'key : map 'key 'val : 'S -> option 'val : 'S -- GitLab From 1b968716d2000d1e8839c078143c5ff4ecb9501e Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Thu, 12 Dec 2019 17:03:10 +0100 Subject: [PATCH 244/252] add a bunch of reflection instructions --- .../doc_gen/michelson_reference/michelson.ott | 81 ++++++++++++++++++- 1 file changed, 80 insertions(+), 1 deletion(-) diff --git a/docs/doc_gen/michelson_reference/michelson.ott b/docs/doc_gen/michelson_reference/michelson.ott index 8f57d71f389e..00fc4ffe1a9a 100644 --- a/docs/doc_gen/michelson_reference/michelson.ott +++ b/docs/doc_gen/michelson_reference/michelson.ott @@ -66,6 +66,11 @@ int_lit, il, z, ts, nz :: 'z_' ::= {{ coq Z }} {{ phantom }} | length s :: M :: StringLength {{ coq (Z.of_nat (String.length s)) }} | abs z :: M :: Abs {{ coq (Z.abs [[z]]) }} + % reflection + | balance :: M :: Balance + | amount :: M :: Amount + | now :: M :: Now + % num, nz :: 'num_' ::= % | int_lit :: :: IntConstant % | nat_lit :: :: NatConstant @@ -78,7 +83,22 @@ string_lit, s , t , sig :: 's_' ::= {{ coq String.string }} {{ phantom }} | "" :: M :: StringEmpty {{ coq ("") }} | ( s ^ s' ) :: M :: Concat {{ coq (String.append [[s]] [[s']]) }} | slice s z1 z2 :: M :: StringSlice {{ coq (String.substring (Z.to_nat [[z1]]) (Z.to_nat [[z2]]) [[s]]) }} + % string as key_hash | hash_key s :: M :: HashKey + % string as address + | address s :: M :: Address + | source :: M :: Source + | sender :: M :: Sender + % string as chain_id + | chain_id :: M :: ChainId + % string as contract + | self :: M :: Self + | implicit_account s :: M :: ImplicitAccount + % string as operation + | transfer_tokens d z s :: M :: TransferTokens + | set_delegate d :: M :: SetDelegate + + bytes_lit, byt :: 'byt_' ::= {{ coq String.string }} {{ phantom }} | 0x :: M :: BytesEmpty {{ coq ("") }} @@ -139,6 +159,9 @@ concrete_data, data, x, y, k, v, d, opt_y :: d_ ::= % | 0 :: M :: zero {{ coq data_int 0%Z}} | ( data ) :: M :: Paren {{ coq ( [[data]] ) }} + % from address to option contract + | contract ty s :: M :: Contract + %% Types simple_comparable_type, scty :: scty_ ::= @@ -337,7 +360,11 @@ formula :: formula_ ::= | length A = nat_litteral :: M :: stack_type_len {{ coq List.length [[A]] = [[nat_litteral]] }} | length S = nat_litteral :: M :: stack_len {{ coq List.length [[S]] = [[nat_litteral]] }} - % {{coq ctx_self_ty [[ctx]] }} + % operation + | create_contract ty1 ty2 code d z x = ( s1 , s2 ) :: M :: CreateContract + + + % {{coq ctx_self_ty [[ctx]] }} embed {{coq @@ -1739,12 +1766,64 @@ length S1 = nat_litteral DUG nat_litteral / d : ( S1 ++ S2 ) => S1 ++ ( d : S2 ) +% cryptography + ------------------------------------- :: HASH_KEY HASH_KEY / s : S => hash_key s : S ----------------------------------------- :: HASH hash_function / byt : S => hash hash_function byt : S +% reflection: + + +----------------------------------------- :: BALANCE +BALANCE / S => balance : S + + +----------------------------------------- :: AMOUNT +AMOUNT / S => amount : S + +----------------------------------------- :: NOW +NOW / S => now : S + +----------------------------------------- :: SOURCE +SOURCE / S => source : S + +----------------------------------------- :: SENDER +SENDER / S => sender : S + +----------------------------------------- :: SELF +SELF / S => self : S + +----------------------------------------- :: ADDRESS +ADDRESS / s : S => address s : S + +----------------------------------------- :: CHAIN_ID +CHAIN_ID / S => chain_id : S + +----------------------------------------- :: CONTRACT +CONTRACT ty / s : S => contract ty s : S + +% other reflection: + +----------------------------------------- :: IMPLICIT_ACCOUNT +IMPLICIT_ACCOUNT / s : S => implicit_account s : S + +% operations: + +----------------------------------------- :: SET_DELEGATE +SET_DELEGATE / d : S => set_delegate d : S + +% Warning: The instruction TRANSFER_TOKENS has no semantics rules + +----------------------------------------- :: TRANSFER_TOKENS +TRANSFER_TOKENS / x : z : s : S => transfer_tokens x z s : S + +% Warning: The instruction CREATE_CONTRACT has no semantics rules + +----------------------------------------- :: TRANSFER_TOKENS +TRANSFER_TOKENS / x : z : s : S => transfer_tokens x z s : S embed {{coq End Semantics. -- GitLab From 36c4f690ae9e9d2dbec0881bf7a6c38614a94ef8 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Thu, 12 Dec 2019 17:12:39 +0100 Subject: [PATCH 245/252] add int, isnat, pack/unpack --- .../doc_gen/michelson_reference/michelson.ott | 24 +++++++++++++++++-- 1 file changed, 22 insertions(+), 2 deletions(-) diff --git a/docs/doc_gen/michelson_reference/michelson.ott b/docs/doc_gen/michelson_reference/michelson.ott index 00fc4ffe1a9a..75a298bc04d7 100644 --- a/docs/doc_gen/michelson_reference/michelson.ott +++ b/docs/doc_gen/michelson_reference/michelson.ott @@ -99,12 +99,13 @@ string_lit, s , t , sig :: 's_' ::= {{ coq String.string }} {{ phantom }} | set_delegate d :: M :: SetDelegate - bytes_lit, byt :: 'byt_' ::= {{ coq String.string }} {{ phantom }} | 0x :: M :: BytesEmpty {{ coq ("") }} | ( byt ^ byt' ) :: M :: Concat {{ coq (Bytes.append [[byt]] [[byt']]) }} | slice byt n1 n2 :: M :: BytesSlice {{ coq (Bytes.subbytes [[n1]] [[n2]] [[byt]]) }} | hash hash_function byt :: M :: HashBytes + % string as bytes + | pack d :: M :: Pack bool_lit, b :: 'b_' ::= {{ coq bool }} {{ phantom }} | True :: M :: True {{ coq true }} @@ -155,12 +156,15 @@ concrete_data, data, x, y, k, v, d, opt_y :: d_ ::= | Elt x y :: :: Elt | { code : ty1 -> ty2 } :: :: Instruction - % | 0 :: M :: zero {{ coq data_int 0%Z}} | ( data ) :: M :: Paren {{ coq ( [[data]] ) }} % from address to option contract | contract ty s :: M :: Contract + % from int to option nat + | isnat z :: M :: IsNat + % from bytes to option bytes + | unpack ty d :: M :: Unpack %% Types @@ -1825,6 +1829,22 @@ TRANSFER_TOKENS / x : z : s : S => transfer_tokens x z s : S ----------------------------------------- :: TRANSFER_TOKENS TRANSFER_TOKENS / x : z : s : S => transfer_tokens x z s : S +% basic: + +----------------------------------------- :: INT +INT / z : S => z : S + +----------------------------------------- :: ISNAT +ISNAT / z : S => isnat z : S + +% other: + +----------------------------------------- :: PACK +PACK / d : S => pack d : S + +----------------------------------------- :: UNPACK +UNPACK ty / byt : S => unpack ty s : S + embed {{coq End Semantics. }} -- GitLab From 0932c50e8dcf610b2232e118f2d6cc8d0340a4e8 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Thu, 12 Dec 2019 17:13:05 +0100 Subject: [PATCH 246/252] remove if_right --- docs/doc_gen/michelson_reference/michelson.ott | 6 ------ 1 file changed, 6 deletions(-) diff --git a/docs/doc_gen/michelson_reference/michelson.ott b/docs/doc_gen/michelson_reference/michelson.ott index 75a298bc04d7..71a6e2d19457 100644 --- a/docs/doc_gen/michelson_reference/michelson.ott +++ b/docs/doc_gen/michelson_reference/michelson.ott @@ -310,7 +310,6 @@ instruction, code, i, body :: 'i_' ::= | MAP code :: :: MAP | IF_NONE code1 code2 :: :: IF_NONE | IF_LEFT code1 code2 :: :: IF_LEFT - | IF_RIGHT code1 code2 :: :: IF_RIGHT | IF_CONS code1 code2 :: :: IF_CONS | CREATE_CONTRACT ty1 ty2 code :: :: CREATE_CONTRACT @@ -867,11 +866,6 @@ Typing :: 't_' ::= -------------------------------------- :: IF_LEFT ctx :- IF_LEFT code1 code2 :: or ty1 ty2 : A => B - ctx :- code1 :: ty2 : A => B - ctx :- code2 :: ty1 : A => B - -------------------------------------- :: IF_RIGHT - ctx :- IF_RIGHT code1 code2 :: or ty1 ty2 : A => B - ctx :- code1 :: ty1 : list ty1 : A => B ctx :- code2 :: A => B -------------------------------------- :: IF_CONS -- GitLab From 018caeabee753bd565b9c0cc2517a468f06e8053 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Thu, 12 Dec 2019 17:17:19 +0100 Subject: [PATCH 247/252] Add CHECK_SIGNATURE & CREATE_CONTRACT --- docs/doc_gen/michelson_reference/michelson.ott | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/docs/doc_gen/michelson_reference/michelson.ott b/docs/doc_gen/michelson_reference/michelson.ott index 71a6e2d19457..e1f2b28de0c1 100644 --- a/docs/doc_gen/michelson_reference/michelson.ott +++ b/docs/doc_gen/michelson_reference/michelson.ott @@ -112,6 +112,8 @@ bool_lit, b :: 'b_' ::= {{ coq bool }} {{ phantom }} | False :: M :: False {{ coq false }} | ( b1 bop b2 ) :: M :: Bop {{ coq ( [[bop]] [[b1]] [[b2]] ) }} | ! b2 :: M :: Neg {{ coq ( negb [[b2]] ) }} + % auxiliary functions returning bool + | check_signature s sig byt :: M :: CheckSignature set_or_list, tl, m :: 'setlist_' ::= {{ coq list concrete_data }} {{ phantom }} | {} :: M :: Nil {{ coq nil }} @@ -1772,6 +1774,11 @@ HASH_KEY / s : S => hash_key s : S ----------------------------------------- :: HASH hash_function / byt : S => hash hash_function byt : S + +------------------------------------- :: HASH_KEY +CHECK_SIGNATURE / s : sig : byt : S => check_signature s sig byt : S + + % reflection: @@ -1820,8 +1827,9 @@ TRANSFER_TOKENS / x : z : s : S => transfer_tokens x z s : S % Warning: The instruction CREATE_CONTRACT has no semantics rules ------------------------------------------ :: TRANSFER_TOKENS -TRANSFER_TOKENS / x : z : s : S => transfer_tokens x z s : S +create_contract ty1 ty2 code d z x = ( s1 , s2 ) +----------------------------------------- :: CREATE_CONTRACT +CREATE_CONTRACT ty1 ty2 code / d : z : x : S => s1 : s2 : S % basic: -- GitLab From 2d07b9603e30561d2ee652a5bca588e6efff87c7 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Thu, 12 Dec 2019 17:17:50 +0100 Subject: [PATCH 248/252] fix typechecking hover js --- docs/doc_gen/michelson_reference/static/michelson.js | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/docs/doc_gen/michelson_reference/static/michelson.js b/docs/doc_gen/michelson_reference/static/michelson.js index 25df4698eda2..607bb4792cd5 100644 --- a/docs/doc_gen/michelson_reference/static/michelson.js +++ b/docs/doc_gen/michelson_reference/static/michelson.js @@ -26,7 +26,7 @@ function addTypemap(pre, typemap) { (min === false || len < min)) { var before = el.before.length ? el.before.join(' : ') + ' : []' : '[]'; var after = el.after.length ? el.after.join(' : ') + ' : []' : '[]'; - title = before + ' -- ' + after; + title = before + ' → ' + after; min = len; } }); @@ -43,12 +43,12 @@ $(function () { if (!pre.is('.type-checked')) { pre.addClass('type-checked'); $.ajax({ - url: "https://tezos-lang-server.tzalpha.net/typecheck", + url: "https://tezos-lang-server.tzalpha.net/typecheck_code", type: 'POST', dataType: 'json', contentType: 'application/json', processData: false, - data: JSON.stringify({code: code, storage:"Unit"}), + data: JSON.stringify({code: code}), success: function (typemap) { addTypemap(pre, typemap) }, -- GitLab From d8238b59eef40f2163eddbd429271e75f96cc003 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Thu, 12 Dec 2019 17:18:08 +0100 Subject: [PATCH 249/252] Warnings on missing semantics and typing rules --- docs/doc_gen/michelson_reference/language_def.py | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/docs/doc_gen/michelson_reference/language_def.py b/docs/doc_gen/michelson_reference/language_def.py index e204d92223d2..81d45519d98b 100644 --- a/docs/doc_gen/michelson_reference/language_def.py +++ b/docs/doc_gen/michelson_reference/language_def.py @@ -92,12 +92,18 @@ class LanguageDefinition(): for op, instr in lang_def['instructions'].items(): # Load meta information if not op in lang_meta['instructions']: - # self.opt_error("The instruction {} is undocumented".format(op)) + self.opt_error("The instruction {} is undocumented".format(op)) meta = LanguageDefinition.default_instruction_meta else: meta = lang_meta['instructions'][op] instr = {**instr, **meta} + # Check rules + if not len(instr['ty']): + self.opt_error(f"The instruction {op} has no typing rules") + if not len(instr['semantics']): + self.opt_error(f"The instruction {op} has no semantics rules") + # Synthesize stack effet from typing rule if not 'stack_effect' in instr and len(instr['ty']): instr['stack_effect'] = synthesize_stack_effect(instr) -- GitLab From 2413d17dd8a5aa70c2d5a5d626b7525e7dfef4ec Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Thu, 12 Dec 2019 17:18:18 +0100 Subject: [PATCH 250/252] remove console.log --- docs/doc_gen/michelson_reference/static/ref.js | 2 -- 1 file changed, 2 deletions(-) diff --git a/docs/doc_gen/michelson_reference/static/ref.js b/docs/doc_gen/michelson_reference/static/ref.js index c55e8e71a484..a766792037d4 100644 --- a/docs/doc_gen/michelson_reference/static/ref.js +++ b/docs/doc_gen/michelson_reference/static/ref.js @@ -6,8 +6,6 @@ jQuery(function ($) { var caseSensitiveMatch = (value !== value.toLowerCase()); value = value.replace('--', '—'); - console.log('value', value); - if (value != '') { els.each(function() { var match = caseSensitiveMatch ? -- GitLab From 37607c46f703d8ae99523ee192bcd5c9117d7540 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Tue, 17 Dec 2019 12:28:00 +0100 Subject: [PATCH 251/252] Add static files --- .../docs/static/michelson.js | 61 +++++++++++ .../michelson_reference/docs/static/ref.css | 100 ++++++++++++++++++ .../michelson_reference/docs/static/ref.js | 22 ++++ 3 files changed, 183 insertions(+) create mode 100644 docs/doc_gen/michelson_reference/docs/static/michelson.js create mode 100644 docs/doc_gen/michelson_reference/docs/static/ref.css create mode 100644 docs/doc_gen/michelson_reference/docs/static/ref.js diff --git a/docs/doc_gen/michelson_reference/docs/static/michelson.js b/docs/doc_gen/michelson_reference/docs/static/michelson.js new file mode 100644 index 000000000000..607bb4792cd5 --- /dev/null +++ b/docs/doc_gen/michelson_reference/docs/static/michelson.js @@ -0,0 +1,61 @@ +function addTypemap(pre, typemap) { + var cl = pre.clone(); + + $(pre).find('span').each(function () { + var tgt = $(this); + var code = pre.text(); + var idx = $(this).parent('pre').children().index(tgt); + + // find point corresponding to the beginning of this primitive + var ch = $(cl.children().get(idx)) + var origText = ch.text() + ch.text('<>') + var idxTxt = cl.text().indexOf("<>") + ch.text(origText) + + // find the most specific type in the typemap for this point, e.g. + // the type assigned to the location with smallest distance between + // start and end. + var min = false; + var title = false; + typemap.forEach(function (el) { + // console.log('el', el); + var len = el.location.location.stop.point - el.location.location.start.point; + if (el.location.location.start.point <= idxTxt && + idxTxt <= el.location.location.stop.point && + (min === false || len < min)) { + var before = el.before.length ? el.before.join(' : ') + ' : []' : '[]'; + var after = el.after.length ? el.after.join(' : ') + ' : []' : '[]'; + title = before + ' → ' + after; + min = len; + } + }); + if (title) { + tgt.attr('title', title) + } + }) +} + +$(function () { + $('.highlight > pre').hover(function (e) { + var pre = $(this) + var code = pre.text(); + if (!pre.is('.type-checked')) { + pre.addClass('type-checked'); + $.ajax({ + url: "https://tezos-lang-server.tzalpha.net/typecheck_code", + type: 'POST', + dataType: 'json', + contentType: 'application/json', + processData: false, + data: JSON.stringify({code: code}), + success: function (typemap) { + addTypemap(pre, typemap) + }, + error: function(){ + console.log('error', arguments); + } + }); + } + }); +}); diff --git a/docs/doc_gen/michelson_reference/docs/static/ref.css b/docs/doc_gen/michelson_reference/docs/static/ref.css new file mode 100644 index 000000000000..791147f5edeb --- /dev/null +++ b/docs/doc_gen/michelson_reference/docs/static/ref.css @@ -0,0 +1,100 @@ + +.check { background-color: #9e9; } +.cross { background-color: #e99; } + +#toc{ + display: none; +} + +@media (min-width: 550px) { /*Skeletons default grid-activation width*/ + #toc { + display: block; + margin-top: 5%; + width: 400px; + } +} + +#toc ul { list-style: none; margin-left: 1.5rem; } +#toc > ul { list-style: none; margin-left: 0; } + + +/* *** */ +html { + height: 100%; + font-family: sans-serif; +} +body { + height: 100%; + overflow: hidden; + margin: 0px; + display: flex; +} +.fl-column { + height: 100%; + display: flex; + flex-direction: column; +} +#left { + flex-shrink: 0; +} +#right { +} +.top-left { + flex-shrink: 0; + padding: 20px; +} +.top-right { + display: inline-flex; + flex-shrink: 0; + padding: 20px; +} +.bottom { + flex-grow: 1; + overflow-y: auto; + padding: 20px; +} +.top-right ul{ + display: inline-flex; + list-style: none; + margin: 0; +} +.top-right li{ + margin-right: 20px; +} + +.three-quarter.column { + width: 960px; +} + + +/** Try it examples */ + +.example { + position: relative; +} + +.example .try-it { + position: absolute; + top: 10px; + right: 10px; +} + +/** Tables */ +td.check, td.cross { + text-align: center; +} + + +.types-table th:last-child, +.types-table td:last-child { + padding: 12px 15px; +} + + +/** types */ + +dt { font-weight: bold; } + +.inline-list > li { + display: inline; +} diff --git a/docs/doc_gen/michelson_reference/docs/static/ref.js b/docs/doc_gen/michelson_reference/docs/static/ref.js new file mode 100644 index 000000000000..a766792037d4 --- /dev/null +++ b/docs/doc_gen/michelson_reference/docs/static/ref.js @@ -0,0 +1,22 @@ +jQuery(function ($) { + var toc = $('#toc'); + var els = toc.find('.type, .instr'); + toc.find('#toc-search').on("keyup", function() { + var value = $(this).val(); + var caseSensitiveMatch = (value !== value.toLowerCase()); + value = value.replace('--', '—'); + + if (value != '') { + els.each(function() { + var match = caseSensitiveMatch ? + ($(this).text().indexOf(value) > -1) : + ($(this).text().toLowerCase().indexOf(value.toLowerCase()) > -1); + $(this).toggle(match); + $(this).parents('details').attr('open', match ? 'open' : 'close'); + }); + } else { + els.toggle(true); + toc.find('details').removeAttr('open'); + } + }); +}); -- GitLab From 67aa1d448d55c2254c8c52492689cf696064a2c9 Mon Sep 17 00:00:00 2001 From: Arvid Jakobsson Date: Tue, 17 Dec 2019 12:29:14 +0100 Subject: [PATCH 252/252] Add deploy script --- docs/doc_gen/michelson_reference/deploy.sh | 3 +++ 1 file changed, 3 insertions(+) create mode 100755 docs/doc_gen/michelson_reference/deploy.sh diff --git a/docs/doc_gen/michelson_reference/deploy.sh b/docs/doc_gen/michelson_reference/deploy.sh new file mode 100755 index 000000000000..eed319f1ceb9 --- /dev/null +++ b/docs/doc_gen/michelson_reference/deploy.sh @@ -0,0 +1,3 @@ +#!/bin/bash + +rsync -azuv docs/* arvidj.eu:/var/www/arvidj.eu/michelson/ -- GitLab